Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!uunet!husc6!bloom-beacon!gatech!bbn!uwmcsd1!lakesys!mark From: mark@lakesys.UUCP (Mark Storin) Newsgroups: comp.sys.atari.8bit Subject: vt52em - an Atari vt52 emulator Message-ID: <174@lakesys.UUCP> Date: Sun, 16-Aug-87 11:01:43 EDT Article-I.D.: lakesys.174 Posted: Sun Aug 16 11:01:43 1987 Date-Received: Sun, 16-Aug-87 22:46:33 EDT Organization: Lake Systems, Milwaukee Wisconsin Lines: 303 Keywords: terminal emulation Yes, it's another terminal emulator for the Atari 8-bit. Seems to be a rash of them these days. Anyway here's the code, docs to follow in next message: --------------------------------Cut Here-------------------------------------- begin 0666 vt52em.obj M___$+!Y?("AC*3$Y.#,@06-T:6]N($-O;7!U=&5R(%-E0 N:'RM#PA8:E@J:%(,0MI8.FA"#$+4R++2"@+:6%\">B"":" M)H,FASBE@^6$J*6'Y860!(6'A(/*T.>E@BJB *2#A(9,BRVB$":")H,JL 3% MA) #Y80XRM#O)H(F@X6&I8*F@TR++2 ;+J6&IH=@A:"&H82B&&B%A&D#J&B% MA6D 2)A(H &QA(6"R+&$A8/(L82HN: D8*($/BE$= /YA%,8RT(8PD1&1@3 M(2,S8! 6P(CP")C @/ 23%8MBDI*2DJJF)W !6"B 8812"!C+6BH8$B&H82B MJ*D F< %J+&AC0 %J,BIF] "L:&9 6(T/AHH@"@!2 R+4RQ+H:AJJ2AI;<@ M.RU,L2X@Y2Q,L2Z&H:JDH:6W(.TL3+$N(/,LA*"]2 /P SCI : D:6DH&"& MHJJDHJ6W2*G_A:-H2(:AA**@ *6CD:%HI*(@'R],L2ZB!X:C"@H*"JJEHYU" M ZD G4@#G4D#F"!6Y(6@3+$NJ9NJI;>&H:2AH@M,5B^@F]#W(/TL3+$NA=2& MU2"JV2#FV*#_H@#(Z+'SG5 %$/=)@)U0!8Y0!6"B ""++Z6WHE"@!2#M+$RQ M+J( (*TO3',OH "%H(J$HJ:B((LOI:!,LB^@ "#&+Z6@3($OAJ*JI**EM\ M$!9(AJ&$HJ M('PO.*D Y:&JJ0#EHJAH3,8O(-\O3',O(.8OI:!,@2^&HH2C MH@"DHH2B((LOR+E0!9&BB!#X8. $.V%H(:AA*(XJ0#EH*BI .6AJI@@BR_H MBJBY3P61HHC0^(J1HLBI+9&B8*6WHA..4 6B4* %($XOJ5"B!86DAJ6@ (2@ MA*&$HK&DA:/FHZD@R-&DT 7(Q*,P][&DR2W0 X6BR,2C$#:QI,DP,##).A L M..DPJJ6A2*6@"B:A"B:A&&6@A:!H9:&%H0:@)J$8BF6@A:"0 N:AR,2C,,JE MHO -.*D Y:"%H*D Y:&%H6"%I(:EJ02%IJDD('4OJ0"B! :D)J4JRM#X:3#) M.C ":08@=2_&IM#E8(7 AL&,\ 6@ +' A<+FPJ(-M:*=\ 7*T/B&BX:*YHJD MBL3"L-JQP,DET _FBLBQP,DE\ ;)1= (J9L@=2],(#&DB^:+YHN%H+GP!;[Q M!:2@P$/PYL!3T 8@$B],(#' 2= &(-\O3" QP$C0!B#:,$P@,2"M+TP@,8:A MA*(*"@H*JJDFG4(#(%;D(+$NH "]3@.1H[U, Y&AO4T#R)&A8(:A"@H*"JJ8 MG4T#I:&=3 .EHYU. ZDEG4(#(%;D3+$N E,ZPC$"13K',4BI " ,+ZD,A:.I M *[*,:S+,2#5+JD&( PO:(6D*3!)'(6CJ0:NQ3&LQC%,U2Z%6X9^-,@*-#]*I *((G0#2RA#Z8*J]< *%H&"B ,D$, /H*0.H MO0#3.<$RA:!@! A @*( R0(P ^@I :B] -.(T 1*2DI**0^%H&"JO1#0A:!@ MA:*&HZ L:*%H,BQHH6A8(6@AJ&8H "1H& @]3+(I:.1H&!(J0"%I&B%H(:A MA**@ *6DIJ/P$)&@R-#[YJ'&H]#U\ .1H,C$HM#Y8(6@AJ&$HJ I:7P%K&B MD:#(T/GFH>:CQJ70\? %L:*1H,C$I-#W8(6DAJ6$HJ A*"$H;&DT:+P R" M,\D T %@A:;(L:31HM %Q*:0]6"B_X:@D .QHNB&H6"%H(:AA**@ +&BD:#P M"*BQHI&@B-#Y8(6@AJ&$HJ L:+%I; "A:7&I!BEHF6DA:*0 N:C.*6EY:2P M JD 3)8SA:"&H82BH "QHO -A:;&I#BEI>6D\ *P 6"JQ::0"!BEIJIEI(6E MI:71H) #D: 8I:!EI(6@D +FH8I,FC,?7P( P " ' P,# P,# P B M .!5=W=W(B( "(B(C,S(B(B$1$1$1$1$1$B(N[N "(B(N[N(B(B M[NXB(B(1,R)F1,P ,Q$9B(S$0 $1$S,W=W__\ S,S, (B(S,SN[O__ M,S,S #,S,P /__ #_ #,S,P "(B554B M(@ ,S,B(B( /__ "(B(O__(B(B &9W=W=F #___\ (B( MB(B(B(B( __\B(B(B(O__ ,S,S,S,S,S,(B(S,P !$9D1W(C, M ")W(B(B(@ (B(B(G-1CNM7CII (U'.ZU&.\U;.JU'.^U<.K %3+4[3$D8K2(X;5LZA:ZM(SAM M7#J%KZ L:Z-63J@ *U9.JX4-. !T 5)_XU9.JT.-"D!\!*M63HI#XU9.K'- M*?"1S< \ ZM63HI\(U9.K'-*0^1S0U9.I'-&*7-:2B%S:7.:0"%SNY;.M"& M[EPZ3#4[[@XTJ4_-#C20 TS*.^X/-* C XT(-DY(-(X8*$[;:0[A:ZMHDS= M.XW1.Z C-4[(-DYK=$[29OP TS^.Z C XT[@\TR(S5.ZW5.TD!\ -,#SP@ MV3D@TCA@K=$[R6"0 TPX/*D?S=$[D -,+SPXK=$[Z2"-T3M,.#P8K=$[:4"- MT3NI (6%J0B%A*W1.Z( (.8MC=@[BHW9.Z( J5@@Y3*I (6%J0*%A*T.-*( M(!LNA:X8I:!EKH6LI:%I (6MJ0&%A:E A82M#S2B "#F+86NBH6O&*6L9:Z- MTCNEK66OC=,[K=D[C=<[K=@[C=8[&*W8.VD'C<<\K=D[:0"-R#RMQSS-UCNM MR#SMUSNP!4P@/:T#&*T@-&W6.X6NK2$T;=<[A:^@ +&NC=0[K10T20'P TSS M/*W4.TG_C=0[K=([A:ZMTSN%KZW4.Z D:X8K=([:2B-TCNMTSMI (W3.^[6 M.]"<[M<[3+8\&*T.-&D"C0XTJ4_-#C20 TP[/>X/-* C XT(-DY(-(X8 \R MH@!,23T@<2Y"/0*@ 8Q%/:U"/86NK4,]A:^(L:Z-;SVM;SW-13VP!$R1/3T8 MK4(];44]A:ZM0SUI (6OH "QKH6@I: @7SKN13U,9#VM1#U) ? #3* ]J9L@ M7SI@3!8^&$RH/2!Q+J$] J !C*0]K:$]A:ZMHCV%KXBQKHW./:W./D!C7]!K8!!Z0"-@$%,F4&I 86%J4"%A*T/-*( (.8M MA:Z*A:\8I5AEKH6@I5EEKX6AJ0&%HZ! IJ&EH" (,V!,^4&I ,T/-) #3 ]" M.*T/-.D!C0\T(-(X8$P30JT/-,D7D -,(T+N#S0@TCA@3"="K0XTR4^0 TPW M0NX.-"#2.&!,.T*I ,T.-) #3%%".*T.-.D!C0XT(-(X8#)03%="CE-"C5)" M.*U30ND@C0\T.*U20ND@C0XT(-(X8$QV0JD S0\TD -,D$(XK0\TZ0&-#S0@ MTCA@3)-"((%!8"!,F$*@ (R40JD'S91"L -,M4*I *Z40IT6-.Z40DR=0B#2 M.& 3+U"H ",N4*I!\VY0K #3-I"J<"NN4*=%C3NN4),PD(@TCA@"@ !, MZ4("4CJI#86CJ0"%I*!"HN:I!"#5+JD A:.I (6D3 A# E(ZJ4.%IJD%A:6@ M**( J00@A2]@($P>0ZD A86I@(6$K=]"H@ @YBV%KHJ%KQBMWD)EKHT:0ZT: M0X6CJ0"%I$Q+0P)2.JE#A::I2(6EH"2B *D$((4O8$Q,84,8K>!";>)"A:X8 MI:YMX4*-74.M74.%HZD A:1,@D,"4CJI0X6FJ7^%I: FH@"I!""%+V#03)A# MC91#J0"%A:V40X6$J4"B "#F+86NBH6O&*F 9:Z%HZD A:1,P4,"4CJI0X6F MJ;Z%I: BH@"I!""%+V !$3 1)4;V\@;6%N>2!AB-)46I_XTC1:D A:.I M (6D3&-% E(ZJ46%IJE@A:6@#:( J00@A2^I ,WK I #3(M%J00@5"^EH(TC M14RF1>XD1:TD14TE1= %"0!-)D7P TRC14RF14Q51:TC186@8/ #3+%%("=% MI:"-K$6MK$5)__ #3,1%8*VL14E!\ -,TD4@]D%@K:Q%24+P TS@12 00F"M MK$5)0_ #3.Y%("1"8*VL14E$\ -,_$4@.$)@K:Q%24CP TP21J C XTC \T M(-(X8*VL14E9\ -,-D8@)T6EH(VM12 G1:6@C:Q%KJU%K:Q%(%1"8*VL14E% M\ -,1$8@_#E@K:Q%24GP TQ21B!S0F"MK$5)8O #3&!&(+1 8*VL14E*\ -, M;D8@6D!@K:Q%26_P TQ\1B 5/V"MK$5)2_ #3(I&( 0^8*VL14EL\ -,F$8@ M&4!@K:Q%24WP TRF1B *06"MK$5)3/ #3+1&((%!8*VL14EP\ -,Q$:@ 8P4 M-&"MK$5)1R G1:6@C:U%K:U%237P TP=1R"5 M0F"MK$5)>? #3#Y'("=%I:"-K46MK45)-? #3#U'(+I"8&!D3$-'J00@5"^E MH(T_1ZT_1_ #3%9'8*T_1TD*\ -,9T>M/T<@7SI@K3]'29OP TQ]1ZD-C3]' MK3]'(%\Z8*T_1TD(\ -,BT<@.$)@K3]'21OP TR91R"N16"M/T=)#/ #3*=' M(/PY8*T_1TD'\ -,N$<@'D5@3,A'J1_-/T>0 TS(1ZT_1R!?.F"I3,U'CWP TSB1Z)^J00@>"]@K"]@K#P TP& M2*)[J00@>"]@K+P TP82*)]J00@>"]@8/P"3!Y(K?P"C1I(J"]@K1E(27SP M"JT92$F;\ -,F$BN&4BI!"!X+V"M&4A)'/ #3+%(HANI!"!X+Z)!J00@>"]@ MK1E(21WP TS*2*(;J00@>"^B0JD$('@O8*T92$D>\ -,XTBB&ZD$('@OHD2I M!"!X+V"M&4A)'_ #3/Q(HANI!"!X+Z)#J00@>"]@K1E(27[P TP.2:((J00@ M>"]@K1E(27_P TP@2:()J00@>"]@8&D $PG2:W40_ #3(%)(/PY3$%)"TUO M9&5M(%)E861YH &B2:DU($8]3%!) D%4H$FB3:D$( 8OJ00@5"^EH(TA2:D$ M(%0OI:"-(4FI!"!4+Z6@C2%)J00@5"^EH(TA2:+0J1\@Y3*EH(TA2:TA24D% MT -,;DJ@"*+0J1\@]3*I (6CJ0"%I$RN20)2.JE)A::IJX6EH VB *D$((4O MK==#20'P TSF2:F S>L"D -,YDFM(DGP TSF2:[60ZD$('@O[B))K2))20'P M TP+2JWK LD*D -,"TJNU4.I!"!X+SBM(DGI 8TB2:D S>L"D -,&$H@0$>M M_ ))_] #3"5*(!M(J0#-(TF0 TPX2CBM(TGI 8TC2:+0J1\@Y3*EH(TA2:TA M24D#\ -,:TJM(TGP TQK2JW% DD.C<4"K<8"20Z-Q@*IR(TC24R-26!A/4=, M=4J.<$J-;TJ@ 8QQ2JUO2H6NK7!*A:^(L:Z-FTJMFTK-<4JP!$SO2B 8K6]* M;7%*A:ZM<$II (6OH "QKLE;D -,Z4H8K6]*;7%*A:ZM<$II (6OJ4#1KI # M3.E*&*UO2FUQ2H6NK7!*:0"%KQB@ +&N:2"1KNYQ2DR02F @(" @9DSX2J ! MC/)*B(SP2J (HM"I'R#U,JW\ DG_T -,(4NI B!4+Z6@C?%*3)9+HM"I'R#E M,J6@C?%*K?%*20;P TQ$2ZF;C?%*H ",\DI,EDNI ,WS2JD [?1*D -,9$LX MK?-*Z0&-\TJM]$KI (WT2JWQ2DD#\ -,DTNM\TH-]$KP TR32ZW% DD.C<4" MK<8"20Z-Q@*I XWT2JGHC?-*3 I+K?!*\ -,LDNM\4I)&_ #3+)+J9N-\4J@ M (SR2JWQ2DF;T -,(TRI'\WQ2I #3.5+K?%*R7N0 TSE2^[P2JWQ2J[P2IT! M1*WQ2B!?.DPC3*WQ2DE^\ JM\4I)'O #3"-,J0#-\$J0 TPC3#BM\$KI 8WP M2CBM#C3I 8T.-*D@(%\Z.*T.-.D!C0XT(-(XK?%*29OP TP!2ZWR2DD!\ -, M0DRIFR!?.JWP2HT!1*WR2H6@8&9L86<]3%!,CDE,C4A,H &,3$P8K4A,;4Q, MA:ZM24QI (6OH "QKDD@\ -,?$SN3$Q,?TQ,@DQ,6TRI X@1CU,.DZMWD))"O #3!Y.3!%.!#$R,#"LR$VB3JD,($8]3#I.K=Y"20SP M TPZ3DPP3@0R-# PK,A-HDZI*R!&/6 33#].C3M.3$U.!U!A3V@ *). MJ44@1CVMX$+P TQS3DQF3@1.;VYEK#M.HDZI82!&/4RC3JW@0DD%\ -,D4Y, MA$X#3V1DK#M.HDZI@"!&/4RC3DR93@1%=F5NK#M.HDZIE"!&/6 3*A.C:1. M3+A."5-T;W!B:71S/: HDZIKB!&/:W?0O #3-U.3-!. T]N9:RD3J).J].3 1/"DQI;F5F965D M0DS#4*TF4$E@T 4-)U!)"? #3+=0J0R-WD),PU"@ :X 1*W_0R!&/6"I!" , M+R ;0ZW30TD!\ -,V% @XT)@94S=4*U11(W94*W94/ #3/%0J0$@/$Y@H""B M1*E1($A-I:#0 TP-4: !KNQ#K>M#($8]8$P5401N;VYEJ5&%HZ 0HD2I42!8 M,Z6@!:'P TPS4: C.!"3(I13#M1!&5V96ZI486CH#:B1*E1(%@SI: %H? # M3%E1J0J-X$),BE%,8%$#;V1DJ5&%HZ!!" M3(I1H &N $2M_T,@1CU@J00@#"\@7D.MTT-) ? #3)]1(.-"8"!%3*51K5%$ MC:!1K:!1\ -,N5&I 2"E3F"@(*)$J5$@2$VEH- #3-51H &N[$.MZT,@1CU@ MHD2I42!G,*6@C:%1K:%120'P TSS4: C-]"3!%2K:%120+P TP%4J !C-]" M3!%2H &N $2M_T,@1CU@J00@#"\@&T.MTT-) ? #3"92(.-"8 U,*U*M442- M)U*M)U+P TP_4JD!(/!.8* @HD2I42!(3:6@T -,6U*@ :[L0ZWK0R!&/6!, M85(";VZI4H6CH%ZB1*E1(%@SI: %H? #3']2J4"-X4),L%),AE(#;V9FJ5*% MHZ""HD2I42!8,Z6@!:'P TRD4J C.%"3+!2H &N $2M_T,@1CU@J00@#"\@ M7D.MTT-) ? #3,52(.-"8$S)4JW30TD!\ -,Y5*I!" ,+ZD ()5#H ",TT., MU$-@94E,ZU*M442-YU*MYU+P TS_4JD!(#Q/8* @HD2I42!(3:6@T -,&U.@ M :[L0ZWK0R!&/6"I+\U21) #3#]3K5)$R3J0 TP_4Z)$J5$@9S"EH(W50V!, MK5.MYU)) ? #3&Q3K5)$C>92J6#-YE*0 TQB4SBMYE+I((WF4JWF4HW50V!, MK5.M4D1)7O #3*)3K5-$C>92J6#-YE*0 TR/4SBMYE+I((WF4CBMYE+I0(WF M4JWF4HW50V!,K5.@ :X 1*W_0R!&/6"14TRS4ZU11(VO4ZVO4_ #3,=3J0$@ MCD]@H""B1*E1($A-I:#0 TSC4Z !KNQ#K>M#($8]8*DOS5)$D -,!U2M4D3) M.I #3 =4HD2I42!G,*6@C=9#8$QU5*VO4TD!\ -,-%2M4D2-KE.I8,VN4Y # M3"I4.*VN4^D@C:Y3K:Y3C=9#8$QU5*U21$E>\ -,:E2M4T2-KE.I8,VN4Y # M3%=4.*VN4^D@C:Y3.*VN4^E C:Y3K:Y3C=9#8$QU5* !K@!$K?]#($8]8&), M>E2M442-=E2M=E3P TR.5*D!(-Y/8* @HD2I42!(3:6@T -,JE2@ :[L0ZWK M0R!&/6!,L%0";VZI5(6CH*VB1*E1(%@SI: %H? #3,Y4H &,UT-,_E1,U50# M;V9FJ52%HZ#1HD2I42!8,Z6@!:'P TSS5* C-=#3/Y4H &N $2M_T,@1CU@ M8$P#5: !C XTJ0 @R4VI%(T.-*D!(#Q.H &,#C2I ""E3JD4C0XTJ0$@\$Z@ M 8P.-*D (#Q/J12-#C2I 2".3Z !C XTJ0$@WD]@3$U5J9L@7SI,B54S0V]M M;6%N9" @(" @07)G=6UE;G1S(" @(" @(" @(" @(" @(" @($1EI_R!&/4QZ6#U32$]7(" @(" @(" H3F\@07)G=6UE;G1S M*2 @(" @(" @($1I2 M($5N M=&5R('1E2 M M($5N=&5R(&-O;6UA;F0@;6]D92Z@ :)9J8(@1CU,UEDD/$]05$E/3CX@:V5Y M("T@26YV97)T('-CB1*D!(%@SI: %H? #3$9:("A0 M8$Q06@9P87)I='FI6H6CH$FB1*D!(%@SI: %H? #3'%:HD2I42!R2B#:4&!, M?5H(Y;J0#-[EN0 M TS97*)$J0$@34R@(*)$J0$@2$VEH(WO6ZWO6] #3,]<.*WO6^D!C>];J42% MHZD!A:2M[UN%I: !HD2IH2"C,ZE$A:,8K>];:0&%I*WN6X6EH &B1*E1(*,S MJ42%HZ"AHD2I 2",,Z)$J5$@34RB1*D!(')*("%:3/E;J9L@7SI@'@#^3.A< M(/PY()5"J2*-#C2I XT/-$P"7096=#4R96V@ *)-#C2I"(T/-$R?72)#3TPX,"Y!0U0@*&,I(#$Y.#8@1V5N97)I:R!3>7-T M96USH "B7:E\($8]J1R-#C2I"HT/-* !C!0T3--=&$AI="!A;GD@:V5Y('1O M(&-O;G1I;G5E+J HEVINB!&/: C!0TC.1 M[N-H@2I B#5+JD"(%0OI:"-XERI M B ,+V!I3"Q>H "$MZE,C58MJ;B-6"VI@XU7+:D%A9RI@(6;J0$@#"^I!R , M+TQ77@)+.JD$A:.I (6DH%ZB5*D'(-4NHO^I]R#E,J6@C2A>J0O-*%Z0 TR+ M7JGYC2!%J0J-'T5,E5ZI]8T@1:E6C1]%J00@#"^I B ,+Z !H@*I1"#U,B 2 M.B#E7"#\.4RW7@)2.JD,A:.I (6DH%ZBM*D$(-4N(!M#(%Y#J00@#"^I B , M+TS>7@)+.JD$A:.I (6DH%ZBVZD"(-4N(+I"(/)$(/%;K=-#\ -,$E^@ 8S3 M0ZD!()5#(.-"H ",U$,@)$F@ 8S40TSU7F!@X@+C BE>9V=G9V=G9V=G9V=G -9V=G9V=G9V=G9V=G9T,@ end -- Mark A. Storin | These opinions are my own, Lake Systems, Milw., WI | you can't have them! UUCP: {ihnp4,uwvax}!uwmcsd1!lakesys!mark |