[comp.sys.atari.st] DTR control

bruce@ektools.UUCP (Bruce D. Nelson ) (01/19/87)

The following is a program I put together (with the help of the TOS listing
in the ABACUS Internals book) to turn the DTR line on and off.

Bruce D. Nelson, Sr. Appl. Analyst: Software Maintenance, Product Line Systems
EASTMAN KODAK COMPANY, 901 Elmgrove Rd., Rochester, NY 14650, 716 726-7890
UUCP:   {allegra, seismo}!rochester!kodak!ektools!bruce
ARPA:   kodak!ektools!bruce@rochester.ARPA

-------------------------------- cut here -------------------------------

begin 644 dtr.arc
M&@AD='(N8P   $0  @  E04  #(.UHFTJ-X)   ,+U0T:*  !*0!1*A( 3'F
MC1LZ<MZP 0$GXADY8=JX #$D#!LV9<B ,!.Q#8@I:,I\!/%&#@@B9>:LH?,&
MSD8I9=QD+ ."YDN%+J!(.3*P(*0#:<Q09!-F3$@0:=R "%*%RI.1$LF4D>.B
MJ,$!'3_J\'HP0<*%>T0X%,%'K1DS(OJ0'1!DSIPZ;6*"< L7JE(W;T"$D7,&
M;TXZ70D6O2(G#1TZ.4&(R0-"B)PZ3E]N=*)RCD,0,5[$P/$"QPT03<J<R1@&
M#\?$"E2\*%IT1-0Q;.IH!<'CS1PQ4<FX0..C]NW<NWG,@1CUS/#BB@F6P0-9
MCM0S:9HZM8LBQ8ZBTZM+E4-&#)WNWZ53WRJ5#$2'Z,&OMP["?<2W\=6+!S&G
M#!WS^2D0'GL,L2$'@-[1%IT"8<S1QAX**H"==C'-,19!";3QAAUEN'!' E-(
MP4(+* 1Q0PH)!,1?&!SR1T<8=-0Q!PBR%95 2VEXF, (,.!Q PPPL!!BBBJ 
MD 043(!P POUI3%'&&* !-5#,]:(H88<:C01$3&T0(0,+P01)(DFHJCB%"SR
M)(=J5<Z&(4AA)-"C$9 0@ ,.0+(@)I%3D>'2&TI-\48=;H@T!!IIP$&CFPID
MN&&'8I@5 PM?)L#G$?Z!L.89((RPJ(UA%.I"I"/$4 .E,5BJXJ8@P-""J9]>
M^>BHDK)0(@PH\MD?2&/0H:EJL3;:(!NTEDJI#*H6"=EROX9!Q@MW- :99(X%
MFX 88XR1 'D 0C&$F46>$=B:SEJ+):1F!2G#K>""$*UC/)$!8Q@]!>89H2*-
M@:BBFSI97;#<TJ&#HQS&\16/E,)@X[FTLIMPLLV*--FT)+UATKV%,K3OK]@M
MMY6YCVH)0HDGKH"JEV"*"0((J\9$TYH<^[M5FPO/^B')*9@\9,O+M<33<C#*
M:*T<=,P1H7V FG%AH^?&L6,,-AP+<7^^VD>MKU8V*@9&"5#=[;=\BLM?IL!A
MS6A12+NQ-,%E.-WIJTM6RB=N90Q6'T176[MUG+@=>)ZW[8I-M]UE!UN4UP+7
MG*4+;*2+\H@X\XEFB_UZ+ ?-LG*H8XB0EREYFBX&C7FC..K(HX]Y[ESDD4DN
MV>234?(45=$@%_PT#:A"#$=+O@91>X>-?]GYB;J"7KBG65\[AQP)3)AMA2@ 
M+KE*9?1*$>]3_<YX CB;7*F*QTO6U!K6MD2K\$3  /$49#LV.MM.GXY#$;FK
MR!B\]5Y/=/;)B[%\\]EY'G>DIZ)W3<L-9;@#".S@D3KP)'D,NUF9="8%/N&D
M9S #6HS>=RXM<6^""4,9G]:$036Q:6A%BU#?S+.V#FXO?8\C$_'.!+K*58>#
M-@.1B&38KLG][$4;+%]C3->C'P5)=49"DI*81 8G04E*L\.A[4J%.R[I#GN^
M@^"L@B>#X;7K22T*7__^Y[SMS"%Z8#L3]:RWN_UED5%LVU[WI :^:GE*#..S
M5JB$$RGTJ6]ZOBJ;%-NVHQ[-+W=\NM^T?-+&WNF-C $T(QK;94">(%"!#,S-
M ^$8P0^63$@55-$%7_9#T?W.@W.$X?>*1$)2<NQ]1#,:0>2"H:*HJ UAB H(
M6O 2_VRE#5&1G5(&4YB\/ 0J,U*+&T3 $I?P100;J<M=\K*7I#$S*2  C& (
M QN#*  *$3'C3Q:BG98TT0UG8$,>-I(U&Q4%EU%! 3''P )BVB$%19G=-L\P
MAO0H0%]V4X$]M] %?T((0TF1)V'&  (?@ 8$)C"!B^0PAC; 0:%GL,,68M %
M%BA3!"GH00]P==!&@:@.<)A.]5!@@K0E"$,)J,CLE(("$9P%!&AHD&3*$)D8
M6><I#N'",E_:*%HVJC-E**FEIH!2E8Z!I4A["U$M)=.'T-2F"L&I3L7 4ZGX
M%($B29I00>K/!!@U 44Q:H0 &@AD='(N='1P $0  @  YA4  #(.Q8EQB4\=
M   ,8#0  ,!!% !( P@-/*#HH ,G^0X.L %Q(9.*  H@PGC '$8#H#C*^"@"
M8P%Q&#=(4_%$11L !$"T ,  6BL %&P2A,9K8 @ (@!(:R2,US^$_EP$>0'@
M10,A9W[P *#$29!O_"0R /$2@XBNT]H1E(ES"J W!B: B(+L'S^N ""0Y6!6
M" :V;E&\A)!-+(<43=RZ!(# R4T8(-BX18(& " GNA90P_+H!8M_]GY<U@<9
M "<NCZ0.A!Q G.@@H@58I>RD#I!S /@< (#D'!A 0?+]^X<(9P!A4Q] "#1.
M )F!!B(  2  3EP(3+X%,&#D6VLZ$, ,1$#GG78 )FJ# _ Z]FPY#EX(" /@
MGRT2'P )D..(_3]6U:,#.-!:/'G8L@& GGKV20(?,//5UQXB^7VS7VM.6#$0
M VX $ !A;PR$ Q)L# 1"A0J\@ ),D%U "12/,+ < &8,Y $2>O FF@F002 *
M:!R2J,L%'E#VG08P_F/&C#4:@F.'')0H &M>0"@A #^X0!AD#Z! 18IN#+*=
M&P; ,!4 8'@0)6&B^5"C&I3E $0^LIS1)0^[@4& EZ,U64>$__B3HPTO2%G8
MC@2@J 009X"1(P]]3JF+!?((2J@3.0J1Z)\6@./H&3Q -:EH/-3( (H] )&G
MB@.QP4 .;N3)II=QX@"#E P PP<(4$+I0IZ0.8"#CQ[0*8 ,L HSJV.H->5G
MKM* %FJ>K^)J9X0#C8F :!?I\@ J3#J9YPL+!,&./D*$!X8%,*P @ *R C# 
M&0APVYD*E%F3%04@=/NM$"(@($U/&=$"2R!M8",M9/^X<J4)7SCQ[)/<FE!A
MNPMT1@1E@[K)ZC]@P%#NN>E"<$:(YAH 60-N4";$&N?^8"X#D/D#"0!75OQF
MG'-^B;#"3@Y46P 0.$S8QNCRH:X9"%S\'28N3.#)*@!T:6[0CIUA!=#I"F#&
MS!C;0;70!)P!06I"G*(R39 M@ R*/QSP0LACL[RH)RBJN-O51@,AP!K__'$N
M# <@ 4PT3#L !@D,H(P0 V]P(%H &Q- !!!^,]5VV7R@>,)R#IC M $GPT0G
M -$A\-C";C4,8N=S/EWUU0"@O)P"6Y/'KM$6*@"&%+$C<(8']7H+[LN(!#*O
MM_G8$PTP04 # @(F ')YTV"HL+$$D0, &0,24-;\\P8P ,A!!!#=.F'G@F' 
M^!"<RP#3D!1@P!FDY.XU"%-(,0D$K@"0P/C?V\[#UA<Z@PSX=R[ZV0]_^H. 
ME!* !$# 0F@*. ,&0#"!EVT.%BB3@*D4J+\&I@MC5'"7+OS!!8H1B@'C>YW1
M_J<Z/@1 =Q) '0<9"(@/@D$$8 #!]*8 A!LLAP $5, ,#7@_0'A0:/^XV<(\
M!*(I-&9.(R( J0#0!@P,$40B@( 47@:"($# B#5$(A@DD"@A+K"!/[#>"(WT
M")S=Z4D@$  PC((0%A% "$, @PFF,(1Q"((,^J#"$& @1Q<"X SD*J0 _G$&
M!U"#7P(  !D,( Y%2"&/XJ@D.!1A#"2^8PA($ (A!@D!67V/$) 3 @@$$9T!
M_,.-T++>DVH##T!\B# @\(I<*L0 $F# !!!0 B#4@  C ,((@4  , #P 24(
M@IA&$(01!H$ 83!3$H.(!"NE\P"% 8$=^?!&SFASCG\ XY8($ $O20"!< CB
M'(*H)C-A$$5U( &5-H  .H;0R0,P<B#><$$$PG&(<QP" <>89PI@8D]' $$'
M$4!'$90AFW\" !B6*((U^#  ?PC!$**DTP?&$0A?"*(,!C"# G!A"#$80 I!
MX 0A*G$(<3Q"')3 "SI(P+@(Q (*V@D $F)9&W.BDYWNA*<\/T!/AMX3"/G<
M9S\9209UTD2@!#4H0A7J5(="5*(4]><9B& )CO[#&D5 @0"00 05]*T(,B" 
M,(I!2& <PQG$($8QD'"$4(I2"(7 P0%T(  A'$$(0H#&(:9!"&@(8AJ%$.89
M"(" 8%B(IS#P*5 'P@LA".([MB!J.8%A509XZ7MJR@<W8A&%[TA M.8LK1#8
MH%ITLJ"=ACB'(1!@C'G6$PF,  (.]$D$9%34#(4U!%8+>M"$,G6A!&CH0R,Z
MT>,6]A R@( X'&%3$AC !G,BP,N*X 8*F($ O#@$&W15 !8,=@ N$ !XO0N#
M2"CA$&?@  S$"X BL.N!S'0#!,#QBLS. @@(&,@#SB  (AR"&H>  0M4R]HX
MSO$H V 1YP+A64/QT8^ %&1=#8G($2^RD8\<R(4F6<E+@D$<Q."#/X B '0H
M8I-330<HA1!C #Q@E# H)1].F4H0"",=04!"$(00!! $HI6O))T]Q .(5Q%&
M5O\ P++\(8 *91D!%*)5GLP @ELZ(,A^:X&HIIPJ>W0&%Y0)@CLPTP(D $!P
M/J#0B/+$+@JE;\PN,',+H( 9/;?''V9@ !+:W!E"^$@!B\9,9WP0YSG;H\YW
M3E1ZI 0[/Y4#-^#$!33."04GO Q%T0D ?[SP@BN<RQM940 1P"G..RV1G,"P
MY<.$$ @00."\0@ $&# @#D"((Q+%/G:R(S''1V"8)SB0" C.^63I# "6LQSM
M47_-N2%T& -N:+ @;, # G3 PG3,\-7<6=8IZ<,?>L#V/^11FP/ P&<(( $O
MA9 J?;1 "6ZI%PB D (HY(,:*7AB/K#1 MI28]X-7SAFA%"$(\Q9'CZ8 #J>
MX(R*GF$@@/"$695P!#<@P!=\^$<_VB"!'$JA"!S*ASM$R \I0.$)8*#&%&!.
MVYE'3!?\ ,;-P4 ,$TP@'(,XQR :9T]#('@8S"3Y9(E@\570"0;C& 09!" %
M(%  &%:F ).S/HXHL&  /@@ V:.P=FL88AI'D(;08$"!8.!%'$)H.0&DT.]F
MZ6-W^G:+$ YA/@ID!092. 0(#@ LG" A&/]J@SOR#@8Q@.!6_+"!E"B A&% 
M8Q!2  0)@/ AMT   @T$, R0*P5%: &'!B" !,XEA2Q2SX%"0Q4\2L^/TZ=^
M[F: 0.#?HH#0F\#KVS #/W9^>;=HWO&>'\3 A;#+N,"@$-%A #CDS8^=W7O?
MJ>K]!'X/ #$0K0?#<HL4%@&!\>->0+MK/_GO< 8*R/_]8?@8"*8""0($U0@@
M,&&T,'K> SYFH *^(P0D@ 1@  $PH (<(S0#@%SC0@WS @(*D(#YLB\#40#^
M C#>@($:J"_\XH&1IP#[!S[?(0]"P KY0 M"H ;GPF]Y @'F(E3OMP*)AG[,
MD2< ((,9)D3N!V!W8 88$"6E<RRZ8 ]: !H^,! R&$FV@P;W!V!A8 9"X"N 
M$'YI-"F040 OXX0T(2I"\C68YX5+R %B"#9BPQ^Z, !R@"(_V#3EHU^WX@];
MZ!9=J(0%X 1B.(<7H@ ,< 1SPP Q6$#\YW\P4 -'0!.'&!.)2 * 4 ++80"+
M$S8_ (%N,P 8@"*4>&<UP ;ZL!P2@('9-SKCE (5 @$OF"@0 !GV( B4D2@,
M@(;^P 0H@FW^8"CGP#@TR \T""ZN,''#* \Y(#0!\ _Z@$Y2D#\(X'MAU!Y;
M=GF$<7RC9UA!1055*#0@< 8HL(WZ$W]#*#0-4'_@&$%"2'X,8 9VJ(QF<&:8
M-UF_* 0:(">&!P @\!W^ (XB8 8\0"$6XHZ<TV_1TRS\0&9^9P8:P(/)J \2
MIHQ2H!CZ\&ERMHNC!@**8(]9@4,#@0O@> )FH , N4CZ<#7!6)"8AY"W4I(+
M*30D^9#Z$)'*2)'N8)'GE)$$<(\G  9R8)!FH 8)208,:7KC"  \H%(8&'IJ
MAAE@H 3@Z -F$&@+$'H#!XT !I5RH0!4  A+*0]#"0]@L!7%QY6BPH*I I82
M ),R.9&X49-@<)&*0 '34"_KQS=2< 1\ PNIX@\OX0^FD'?-9P]GP ()" )(
M$ /(>"Z%>9A\$$D 0#VB* 0YP@5](FDC! &P1A/-)P\"Y#M68)B(R1SGPB'Z
M,#6W @_LXBT X 7+8SZJF4/M8BSS!AG]@ V9:5J;T77!D!4$4#VB,51OJ J@
MD0)KY@-3$0 !P3<T:9.^)@,'4 Z]IACV  W!  * <)=Y*9%M$(+2B9$P^6F)
M@1FC)@0O<XKRIB?G  \ 0 )^HE* D!4 $&R\UI0B "LTZ ]*$ AL8 !6L)=$
M$ C.M)]\ER=$( AV$ "T$ B3Y$=9!P;V$&P)*@8$  B#( F"4$GBL AD( \ 
MZ4I\V6"!( YSY@];1P1D21@M$ 0TH1_=1#H<6B$(@0!L@()PTG_Z."8.("UE
M)!I" !D"0 R9J0!+R0\%V']M@ #-QP_?(0V+(RV8.!4]J@L"H E!NI3XD!I.
M*C90ZJ. 4*6B0@\ >2$.\([-AP_0D#]"^CJ#,Y)W1J:W0@]G>BYJ5C[P>&?L
MLG]'X7^6QVFP,(ST\ 8ODBKR0(T*\#)^*CE^(AI X*,:<)M0H:.<QJ,^2@!!
M6J0$T 7 D"X!D%IM0J-Y"@:V@P"SQ2:$BFT#L2E3 9P!@ R@8:K&0B93D02D
M(0NM2CH>M9=@8 /-X@\4R0[X( BC%F1F( *[VJN_&JS.6*R@A@^-!79H&I8#
MZ@\ R01YT@;"<)[WJ4?*ZBW'"G80H)>$\8[;ZJO "@Q"  71.JW5*@WGF38^
MX"?HQSAYPJV"( )(( TCZ@M0X"98@ 2S@ QF8 ]-)0 ^\ 'GF2-B@(8'8 J.
MHE+HIR5Y\AV>D"-HH+"*T+ *@'Z"L!N[.!""D"-NH+!NT+ (H+'^$+%F8&6Q
M@HQG  ,*JPLF9#%P@C%@H"F).A6=H@L 0 =H R53828ZBP:4H;+I,@!["*M:
MUAE0 "JBX@^<.D7[:3080+3#DD9(Z \MXP=#>X=NE ))@ ]^D )*@ ]ZD )?
M@ ]VX 1.( )L +8DT+9Z8!EHVQI>"[9B2[9F.[=!P+9N"[=RF[9O=%8[TS/@
M=U96A@  1@8,!@8(8)SEXP*,"V!UL+B-.Q6VXP&1*S1O0+F.BP!@(#B(*S1X
ML+@$X+@0P #YTSX0P 8J )#'@0!F0"_U<S\]T0+4" $F.J?94:<*0#0"D#_M
MD66GVXBPNQ524DH]@1 'H$>#&!>)=KMS)!$/  ;T<KQ,P3?5 QG[  V4 0(?
M "QG-:#60%)R]@_80)TP  C-"[L.<+OF4$.\\ $8!@8HT+R_UK['BP[P^P#S
M6[UQ<;U] PQ,H;V"X+V4H;NWVR+_  =@8 13D"K6T"SCVY;F.VJ?<BY5),'C
M0,'GZZTO T'0(#1!,$8:S,'!"@$A# "(,;M?),%F0 NA@XJ!ZPVU,0"$2Q,4
M<B'G<C4\>#X*H(IQ<7! 3 $+ER-T$'/4(!4(0 "000]&@*F:V@&BX@U65GQ 
MD$:1!@Z1)@Z+%A>040]&D)D.H$#_X UWRL*U2\9<_'ZK)P%D/ [/R\+#* Y!
MI00 V2*P.Q#@\*[_  [> "+8>0"P0%O@@!82E@_@  8"P#=/V+P $+7'J<A\
M@\6IHL6IPL6KV,30(,9"8 3#!@,O903E*PZC=GI$]$53< 0/W,=\TV<5TA[@
MP ;<$):GW!,PL,K@ )"PS ;L4,5G?$ ] ;ER@<8J/*#@\,![PVFNC&'@T 9T
M+ *._ 8.&,JC7,JH)VPUH\*G# BI7,7(K "#8@;2  8Y),?_( Z^C*3$[ *.
MBYQI>0!W6<W 8,HL7&6<]LWA+ ZUW%](J,4=P@<O, &0,0 Z$*0!/="R0!E^
M$PV3$#K @*VX2JQWN)L%]# @  46@'J#  U#\,$J/(T/LT7X:-%08)5SUP;5
MAZ0E?<T E@-OX N[*F_F4,/?1Q,M\# !MP #1P)0@ 6+H!U<!ZK,Z(P0H D0
M( $?<]3D5P)F@ Y*_7Y,S1PLT'HTR [QVA[H0(/FT '<^ _O\-0 U@+GAXS_
MP ZM!]; AP!<K<)>W7K_]@_P$&GP0# D0!G+H@Z!!P]H#0 N8(1N#7!Q?98$
MLR2/L"P[=99[S09C'9#F<-9(30 > "2'<-.$\0_XT+R**P'-N[D,T+RCVSV-
M6 =8V"SF<*<Z37K9@:2GC68"3!L/@X3FD#;::P6W2=HR"Q-RXBM^<PW \!VD
MT+QC8(1T:4M 8,HA3=2 0 4_/1"&T+QS8 8T('! ,&C_0 \^S0.W@@[C4GKT
MT(S5;=R$T8R$@<I& ,IWFBKT<'IFX U-V;QE< :=W8AFX";->P9FP +277!"
MK'#88!D+Y]_4T,73DMVR#708D)D0  4_;5H',-3C;4M^8JB6K9?_H X= @".
MT"SL< 8D@-T57I^$(0G#B ^<,,+M>]SC/8SO, 7EG5+N4'EE"K[J, 5)%@S0
M$ A+20]+"0\LX"><,.)@P $Q;@ T_G@W7I6[5-U3X*?D#<IFD,A;D2KXX-WX
M@#]>7:9]6MUOH [-!P]*N1S/* $MT@^L@$[41XT((.'\D'T/O3#^X ^T&&EJ
MU ]HP+1O/BERWADX@"*O\N:N*N"D:04$8PRY>&M=7(M*V \F4.CC-&RTZ.#/
M>,UI!!GL( 2@@4[JO7V&#ALUG6^\]!TOM0AG/0$?]QP3( '4$PBI%P0?5^'W
M9P'4,P@ODT<#(0#99SV;KL+X1@)+\!U[QWX3H,#+N  ODY&U?NNNBJH $ 20
M@0_& !J<.CLS:SZY_26N"@;1_3 FO<,Y.A4-D!K-[@C=B^*1CD8^RQS-;@=;
M2Q/(S #AW.:-/D'D#HU6.Q5,K OX@ 3KS@#M'L[<<.WR'MY$+>GGWH?XK@'[
MWN] 8 ;_[J*UH>L@PNNJR95(4&A9LAUF8 $X*D+_0 /*4B$.$+$6P@04LK'A
MJO%2DAX_AS$??V<B'P N4/(S!KLHGVDK#P<M'_(=RS,ML 3*>)\#LX1F$#,+
M/Q"F\!V4L->]R]P8*.'Z &  \ :D5Z@ ,(SZD&9E69GZ4)GR("V*"AGW0 2W
MR:E^D^6<6333/A"H<,BR$ U[69GV\ +\-P "X/53L:BZ< \.,/9K(@ND(@ R
M&R=T$*VMAX%+J0^*7/A4OPC@Z@!ET!YDT(#U\GP.8 S\LAN?-WI-7_7*B/7S
MIO5<;_?D 8NLP/=L4O;%&/@8XX 3UO9[.:JRL*O(;B=#<"\BD!7])P/P>?O@
MH_OZH_M:PONYO_NX3P"^#Q3%K_L!\"O\$/S)SP^1)/S&3_R]SP_+#_S(7_V1
M) W\4 !X<(R1-(HIT"%(('/C#SKY( _G;W#J</Y4D _B</Y8D _F<(S[@<BU
MGP^X$ 1B80 B@ S\#P >\/_\#P!>@0S\OY[_S_\ H +_S_^/^?_\3Q/_GP)"
MTW\OV!IO\,I$0 52  )H$ 9S  )B4 9EX 8@0 =U( =N0 8@\ 9NH  #0014
M( 4@@ 9A, <@( 9E4 9N  )T4 =RX 9E0 8@\ 9FH%(#,01/X 0Z,!!!4 58
MH ,#@:Y4H ,# 00D<! %$  _\#U0HIZ08 !R  #L<0< , 1/X 0Z,!!!4 58
>H ,#@:Y4H ,'H0 E<!P T  *<! %(  &  D)!AH 
 
end