Path: utzoo!attcan!uunet!snorkelwacker!usc!cs.utexas.edu!asuvax!anasaz!rick From: rick@anasaz.UUCP (Rick Coupland) Newsgroups: alt.sources.amiga Subject: Some fixes for zmodem distributed with VT100 v2.9 Message-ID: <918@anasaz.UUCP> Date: 18 Nov 89 20:34:34 GMT Reply-To: rick@anasaz.UUCP (Rick Coupland) Organization: Anasazi Inc, Phoenix AZ Lines: 365 Approved: santa@northpole Here are some fixes I came up with for the zmodem file transfer program which was recently distributed with v2.9 of VT100 on comp.sources.amiga. I am using Lattice C v5.04 so some of the fixes were just to make the sources compatible with this compiler. Some of the other problems which were fixed (I don't remember all of them) were: 1. Wouldn't work when attempting to send files at a baud rate faster than 2400 baud. 2. File modification times were not being sent properly for some files. 3. File protection bits were not being set properly for files being sent to Unix systems. The first file included here is a uuencoded, compressed, context diff showing all of the changes to the source files. The second file is a new source file for "dos_packet.c". This routine is called by rz.c and wasn't in any library that I have, so I coded a new one. Rick Coupland ...!{noao!asuvax | mcdphx}!anasaz!rick (602) 870-3330 -------------------------------------------------------------------------- #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh 'p1.Z.uu' <<'END_OF_FILE' Xbegin 644 p1.Z XM'YV-*@*">,*$R(LI9>0D>>)BC((6$$$@5,C08<"+&#,JN A"AHT;+&3,FKYPR=.K(<0.BB!0I3Z1XC>@1 XMI$@9(""*)LQ6)4N7I)W2M(ES:,^?08>:C8E4*5.G4*52M8I5*U>SA-6R=0M7 XM+EV[>/7R3>,7L.#4;5$<3KRX,8C'D2=7OISY9<;O%S<*%#DCY(T,#!HB\>\"4 $3XZ5>6 B& D !V\8& 0E579;65 XM'"NL %AJ(/21VD)4I-%&&2WX0(<<7RSUH0MTV/'%'''- 4(/()A8QAMUT/%" XM###,=A*''H(H(HDRHJAB&TS)\<:+(. (PY(PJ(""C#3240*.%XK6T0TRF(=# XM:**U8-]T[%7W7G;R<5>?42!$!T*!^_7W'P@!FC1@"VP>F.""\&F'0E@I/,B; XMA%Q5>"&:&:;G()0U B@@CQ^&.&*)/0JY8HM((FHCCMZ!]YUX:XE40T@XT" @ XM@?GM9Q:>9#H(86\3"JKC21HF&!.C/CX:9(J3CN$BC);>F"."1M'J*)"1XDKD XM&$8BJ2233EHZ)0P7RKKC$QTV^N,7;KQ!1ADNI/'&%T.\T49.;I"!)!52?!$$ XM$41(4404510Q!14O26L20N4NA *M@QJ%+QD3^<6"%'%-)$0=9O0[*VQ"[:0L XM"#SPX. 5*858!8MR0/&&''2$V 8<7TR1QAE"U*7P23GMU,,58=0EG4\3B7Q& XMPVN P <(M,I,L\TX,SQ4E9S=0 .H-7 YFIRD&G@J@WKRZ6>$OE%HX:LFQ0J6 XM&8?V&*6B=PI[[:TJLJAKI5K7Z&N]"GIM:[%#%GDDC,LNV6S94E*)=@)JDYCM XMMMU^&^ZX891[;KKKMOMNO//>_:^^_*(=DX9H_AMP# ,7G-#!"5/M4V2Q.0PW XMQ!*C0+$;%F.L,<<>@RQSR72<;%+*:ZS^D,^^Y4]OC XM^ [G[O-.W+?E8'%SD747UPHND08;;#!N_HS4^VE+W^AFH:L5+RAR2 ',3 :1#:TON8E"730(YWT XM3+PL:XA(_ER4G0'=RWY/H XME@)@)2 F J(((NF$B5US#_R[( XMG RF1D/"TPCQ<("#D.1 5')B8W,TF)HRL(%%:0HB"F!G AOB, 4AZ &TX.1$ XM*-Y/BE3<81K_%Y,C0*8)4MR@2;ST)P5[$(X94F*N*($ #6^X0VO3D#7?'OD0N$HD*6F40+=7$.P'P XMD?J3I/]4>1)+T@&3FK1A]3YIDE".LI1F.&4J!:1.Z;2R5'1XY81B.;N4U#(% XMM\SE6G8I.%\"4YCD*F9+CIE,.2SS,9P:2$%>( L($O@:UKC%] AC?,0<56 C +!$S-%9M8 XMP9&Z\(V)'.$)5UC+0V8QAST,X@N/&,<1ODI<9OSA& N9Q&+6<6-Y/.,>U1C, XM<+XR#W8\AB7[&,AO1C.'CRR&)*=AR4U^\H7[ZU^.X"!+.+@!::X@A"(X :]3 XM&(*[+(TFX7QW,2!X ];F@*PR,"9-E+D#&IB"AA@=R:RG[BRLS!*6GM4EJS R XM0A"8,(4BT-HT9V@#';Y 83.885()U36O?2U>$"!!)R X0A.H$&ICLV@E8C U XM9:[] _G"I-;!'G:QS;"#!"1 .$QXPQB 7&TS7!L$9C!2&Z(][1CUR-NE6;G.U04#JQYPZ)2!0-:M= XM'>KJX/MQOTZ@&VY-V%SONMUG0TN%)#2A"%JH21%@B^J5A)O8;3GVM0$N XM!8'3'-S"QKFQ>V"#)K7\Y3%W@J]I/@(_LNC;P [ZN)'= V6CO-G/=I&TJ2UJ XM=T-&+]JF.&2ZW5F@BSOGY3[W6M*];C;8^T/M?G>\Q45O:LO(041R0XUBG)?. XM-KU<;>'42T-J/!;@8,"SAKK(22Y7DR\[Y""X^=1W;G5F"R?K=8_[U[-]:FY[ XM.T%F%SJYS8UN=;.[ZW*7=^;O7G;3[+O?<4EHP)>>;Q!0(2%MJ/K)F:UVIP#R XM]G+(.[O;H"UNDGTPM9?E$'@N< 4)1Y;PWAA+WN"&70;?-M0'NQDVQDT#.]FA XM&>=E,'] V8A$VN T0'C-(R_UG!/=Z"Z'N^N: XMAVUAYWG/ 7I1EW^CUWMLQVYWAWI?-W?S!H!W-T@IL7=ST'>#,6*,46SW]WIO XMX&^RUW.TMW[ EWO\YWQK,3VVAWLI,7S%!P+'=W_*QWR\]WRS$WUR-0;49WTY XML139EVW;]Q@LP0;?1TOA5R[C]QR,I@(A)0-2YA$P !.DH40H0 9P@"1-YG$H XM( (BP (@8 (HAA>)Y 0SP02*0B@IL7U(PD7&154^L7U$H!1A $%!@#_JU@1E XMT 8H@ )$2$LI, =IH "15" D0/J-X6"9(58"&N4L85=^(5AB$@]0(9,8(;5 XM6(FHN(:%V#.'F!1T:(=C@(=ZR(?4=P9_&(B#R(8&Y(:H&(=)D8@@L(B-^(A" XM$(F3Z#CJY""7Z"!6N(GJQA.HMGU'Y$1*9(L^L(I?4 4C1P>YF&UR)3'0TD@F XM08I( @-X< .Y%96Y=3?3*(J$(K;=XNM^(JQ>).TF).I^).XZ)6[V(N_ XMJ(S$" +&B(P@H(QZT8S<) ;06( * CEH,HTF$2<*([I:''L>#]E\([Q.(^048I."952.96"%T=-6 .>80,D<977$9FFZ)- F8M? XM*1=A*9IEJ8M@B9; *(QKV99P!Y?,Z(QT"9;1&!-Z^9 )X)9CH2 ?JR$UFT(Z-"8_R>#?T:(_XB"%X"2ND8006IY$.\HDLP)%^2'$@*6H/ XM\HEXD8\>80/F 1J:)2#3B9O;M)<"PIO:R"*!"8[&*9SD:([%>9R+Z8[,28FH XM(IE/69F622CK62A&89VFAIU:^0;;V8<>Z9V"")XJ()[!PV@A-0,R,#0S, -1 XM6'LJ@&)FP9J#=:A<0157^IZF XM,09TN0;YX09IUWNS&6,<1P:O>(5*9:?/>),?)R!&D 8>10=B0X,[H*=\JDAZ XM502BQB*,H7N/=Z3&\RFAXA_IZ9YR0JB.BJ>F :NOZ*>Q!ZB&N31E4*B/"EAB XMIZ@3G*B>INJJM.GNO&GNQ XMFB.54:O:AJLH=YG"$U,P< /1A",W4%,F\8WJ-D1A4)@HX 9A\"%-U$_B?":JC0J@($27S;XH4J<%94D;&3:A("(ASOME-A4 =LL!+D=;"0H4QL XM65&.99BKZ*F=E0 5^X(P(@)W( +YR*\@@2/&HWX VQ)E,+ )4; HF[ 3V[!E XM\+ *$K'/&E=4,;,7*ZE8VGLAJQ\C6[(@<+(?\JC+Q++D^+(N$K-0RTTU>[.9 XMTE\Q]1'F25./)B )T!(6BP)II51(ZX4HD*\WD+=?" *IFA\6RXW]4G]/9XU! XMU 3:"!C&$9FB(YF10%A$]/&4VH'XK-\0]5<165F1> XM]@9;[,2?!L4BUFQY1L7G,BC/&A( XMMLDREF@J=F:1+ )A01;>X@8OD,MULBU.SM29/< 1&D 1,,!4B4,-$ XM> ;"+%OZ450@X"[K@E?$NP1'6@-#P[K?^\J23&>/[,ICO&>,[&>6',;D',E& XM%LM*-LMH',7@S .^[(.\7,_ #&9"%4BAQ01!0 6].W--7&0 6UTO0,@JUJ8< XM40.?4G1S'&&:_,Y,%L_K'&>X#!OVW,L8G<_17%K3?%HT@C2*#,N%)LL3W1W2\3N=F8 XMW=B^W=F>%=9FX,G@$5(V0#DVX*^!/=BJ#61FVB^UG=F,@=M)MMMFT=OB]]N: XMO=W"/=G'M3SV+ 0ZP4TJ(-Z[3-XLDMUA6EAE< >^#0)N($PP$B!6HJ^AW<;? XMW!:PC35&/=LF,=VW#=G"K=U(R-V,$=P7HG+$+85'T=[H37WJ;=X1[@83SMZ4 XM;17PO=WR3=^,5-=K@0.4@P/,?7]U GD^P7A(PG_WI\#[MWMKB7D Z( "V'EC XM]W&A-VYI5WIM]W;<1./PIGH2>&^MIV\;R&\?&'NN2K4;"&^,F;6PAT"[K!RL XM&H-6 D*7M23_6'LG?G\IKER-Q[^9)MW0,;G^UY^*4!^-8]W_U!N2/I2X)N:YFN=QKG.00:^6MQ8R_N>,7N."3@K3H*X)^IZU7LJ XM6((MZ'9_"X,X;AHSR*XH6-DW&(335WVJVH-3#H3<-X1%> 9'>-GD-QA7OK,P XM, -N#+_KI^>A?H+^IW6F+NM@9^.J/NUPWNJ'OB:)[N,!&.1T-^1P]QP,/ND= XM>.11'H("Q^2"\^O<5-"Q]^W%?NRU5H+*?NW-SH(&"^TO:/'4/CO+9^V]!WW: XMKH/ /^LI)^D<./C<5?B'3P6);VF,KR ."F^ *(C 4>G+G27++6EGS_=M+R"A XM+_@*0O@H:_B(K_BMS_N/'_E$RS^AAK3]"F'ZFH/_RL XM/_H)\/KN!I)36T"0+_DHZX64/_L6RA$VD -4GP,X$,3]3<1F?^WP@X/?JJJQ XMMS'%)'WE6C-SL!AC (PYN?P0MB)= G W,0H%0+QL<8I0D@G(' *B*< (,^ " XMD,(7B':*"W@E 2,P;:A5$)& ,$(#&@$BD 2J%!^X&2!0(GR!#=B2EL 9 E]F XMP.65@0:8CVZ 9;&!TV2_C3TX-EJ,&/T;(N9*VU&8QX! ]%^HD2O]C^( 0 $( XM\0J@@$" 2D$!,B8&F!(<( 2,+0%,!AXT6/!42D M:0 RH C=@!WQ/ XM'_!%A, 5. )+H,U @6JP#!J!%O@"S4T,)$(L@@;*/9BB_G* #]-7S,W<, W* XM\ 26P*G 2X*KF=P)%-/SS-<#]$_>B#X1ION$5$K '- !?.O):4%,6 (.3%P: XM+'. .9D_\T4!+: 6#%S63T%4B+XU!E2"VXMY=* E.(BL1P?P !QP \D/<#&2 XM^X990IM'4#^",$\00D.HGJJ?_;D37J<,K(%39+<<5 J()AT!$FI!)+$?_ @; XMT(/(T%8MPY30##O2,_1"T(+^I,($L KO1RL\$')B#L!"68@":*$MQ(7,3U%4 XM.GWU!V, $!M\Y0T$:($IL 22 !30 6YK$ X$8B@GK,9N"B(A0 O\K7F3N'9> XM+52 77!%@*04T -ZP'S(#$8K&*:*BW@F^E(0$4I'Q@VL@3!0#>5 1DP =< - XMA,1E>/Z.%);X@S,@^EV]WY HK XM(D<\B0*1(WI !P$24\)(+(DG,26NQ$98M,[6X.$(6**.C 2=-Z>8UM+[?!@K XM#H#!TX>R9(#P4WW$S^VU-ZA'_6Z,$.,I/5! 5($I@ 0R [7Y6S60!FA%AJ9^ XMNN+::UI@D2J(Q0A(%C^$64Q]JV_Q<3_O-PUGU.C[+/&O[/E QT?9V*(XQ',* XM0@B,*3/ !N2"5<1,6/&#A+:8B/=T7V!4 8/Q^LD5I'48M9]B-'Z5$>Y1OS/S XM%N7?9)R+=5$*W,7B,Q8C%<-"63- '"*\^Q:,0AN5T7R,$20U)?K#W\A>7$R' XM:U$VHHU$Z$0TXXGBC)[1B:"8VS"1UM^A5ZFHF.SS8TA>[(F+ZC+/)]"8 \ZD;SN"UZHW]4CXNQ(\$; XM]\BEA&/I.POQ"P48R#: ( /$/.0MH8T&R 'YQ'E%U!LD?#/.J%'F$A"PU]X2-113AQ$;^(C>P"0S M"$FE] XM(<7%"!UAPFB2+>!)\J6_PX'N6]WK5S-MA!#(PG4C7R!DU)&DA4<*DBIY);)&,@>L@\^-AJ!,!*T XM(@W0:V^2!\HQ*=DCW<"/5&)!4G$-23MI)*5@IDJ257!)^DDGZ2:KDIRDDK;2 XM2N)*+*DK\2273(!>4B$12R@Y#NT@<*I/$X82BH!_ 7XLH1?JA.:B_UU"I,(" XMW-;C(H6'$B3Y !]P RI?OQH:>2N$:+XIN8?HY+*TD[LR3R; /1DL^Z2T!)3F XMTMT0RBU8"KT@^$N4BG!1"I)&B20>92[T0I*24EK*)X IF65EP .<,K%XRD[D XM+QW7J%2.$] %F$I4"?8$Y(DT-P?P6DY"P^2%MF58,T+>$@2 RU)EFC!A%S*7 XM)H$4:L%UV2X_X[W"BC2 <@B-^FAN:N6MI#"Y\DZB+#O9)5H1V*3FV1/O/GOO*??!)Q$4'S231U4/@]G,$&?C3,GIHKV61!5)1/"BC4@ XM2RQ(WRDHDZ*9F%H/Y$8%O;SP*Y)($"$"'ZBZS &V,@?0 (#P3)UF+6P46L)- XM7 #'<:(QZP!*'Q0 !PX+RM(K&4NO5 @X("KI9<:*@R?@!9R DVANL5HD4G/ XM:3OW$&JL$$@B8PD*,"I&[60(, (DBPTP/W-I1FLIPLA'."!?&9X8P.Z^UQ-, XMI*.T#)0'$$!+4:DJQ:6N]'T=0P412D4I\RNEI]26KE)&JDNK)17ZI;$%1@A3 XM"T%,3X Q1:;X8YE^SF;J3:G?/"1QH2T'S$@I"4^78XZ4E?./7H: ($!JTD : XML).GZ&A607SI+&'?OIR"P+(Q",M_^1=6Y_]SFQI+!'3".L _CT0)> ,'R7F" XM)"]D-H5-CV"I$?%OH<+VU&Q&1. 8HDJ!M?1 #NFIO%45< )) OP5">8(A=J XM0WVH#3&B*DND:3'SY;.,@M$2:HK*OR6K=%4, F/III"R 104-^C6XR,S[%& XMH@"C&@"1JN)2JG4R2RY-?1D%^:5&?9I_LJ.ZDX]J-4/J2"VI,A.ELE12J5(% XM$4P=@S+BKPX;F7H9 4E-#2QN *I%@"L[3&Q.94M.94YY%_SJTK8KY"URA:? XM.0!@76A(.0]#(YH.5/ %7Z&L,ZJO5/;)6=D5FV75[);MLE*2NQ[$/60VE<*( XM, ')3 @THI5&$15)7OA;?$"1T( E,62C T2T@'96#N#9)*!GO\ 5D ))0"KT XMV44":!6)#""TJ]/0UMD\JFCS;",J EB >%4!25L1*6WQ";0P0$DP62849U/0 XMR,$#)\!% -9[4QLXAHN@=2%$"02.))$#]%7=*9>M-N.L&F G%-P K)6U@_7N XMU%I6)?#F3:[=M3&@U[X_ ?NFC(=6G9]/9"W$UYMZ8J6L:[FOC56_.@46JV6W XM!9=MM0#6Q492.BLR^8(C6GB[;-$VVD<;:8O I/VSI];28EHIV62#K5!* \>6 XMXB1;6IL4;&VS/2&ZEC)$6U^[=8 MF5T+&@?8M9:G$FL!WK*]M:KGV2I<:>ME XML:(?-#PPX+6NVT,[;!*MO/VTH78(C%I[6VKQ[;9 M:K6;?7;A^L47FW%G;5P XMY^(>7(W+:QGNM!&;-#?BKI;E3X$C< ?I* XM!M1 '4 *+$\():KBF9V,3:%+75N!7 T@R' 2O8V Y5!P2K]M54W;;D^EKIMX XMU.?D.EI(2VK]+$]%M9>VO:H=)_MOB^[ S;D%E]DFW:6[#%N'2'YR[!_1)H$^C$3NM( XMMQU7($33\B#B8@"70$4A(ZNY^VZ6$/TAMU[E^K*KETR-[^U/@57 XMDIIA3VI*[;!61"F=!'BGZCYLCP@N!6QTC2[K)<""B^>R 2F@!2@P U9T=$ 4 XM&IL@@*PH/&&GZOZ6]_T?B' 21,T0E]U$2]X!ZG,"9EU=0#5)HGA\ XMPKET(WE:K;NDE XMF"@7;Y>J!$J4&>W>X[$\79^N<:W. T@BV>W(-$G<(H7%H3S@(F)+;;DMN>47 XM7:[HNTABB^A= 2.8=5+ $YQ341CTDE["KZ" XMKUL8OGC5^,)4S;E21^1+Y:G^:7H&S_LY/"TA)Q2N1"BOBD+Y5C;;+LEDJS/4K!]IO#'B_T,A]R%_Z:W]7 L811ENB4_E/;U/I XM1%R8E0&N5T[HI3W0[X+ ]JP+= #8G8$WH"T*I;9S.5#@!2R!)D $#BF]_(G; XMH@V0T4N5J9!$!YL"24 +#%EG&E"$T0WH FNHKW*3V.**\P+/7,7]= L((QL XMBV^4+$9@^;==@H!U:0]Y8HH$Q7D(*>I$/;!U(=Z3Z*=>* :L@ *2J:AH"C!= XMFH@5&RD!NX0-CV8"AHNX$3_B/"J)*3&%04[2!Q-K8D[LB94(,A;%YI(4GYH0 XM2+Q0L2I>G:Q8%XN$7GP[IR$M%@FVF%WB8ENJCWEQ+/;'P3@@)XD:8(S%ZCM6 XMQJF"&6\@9\R*H_$T'A'5F(MBXQ:@C6/8510(,J7NA63FMJ)6@F"A&MNQ*3BM XMV;0%:D#QJT1N 06P9%0B2H(6P!A:[*3/GKDG,&KKH!Y8#(9I"^WD4=N)9DM(1"4'*-NPTIN1BVY^,66F#1':81I\ %(:K@8 XMA;?EE;=4@+P:>V@F=X&:/+ "1DZNB$C9)P-E.2"4XP]/I@)%N>@=9;L\:E7K XM<>,((?E3R!0L(2!^,CFJRR_G+N?EI:43D3(?L1=2.:'( 3+0$I;A-8X!,&DX XMH #!X@.>)$N. 6N98+1EG,Q$J(82P4:]B47X@ 'V!"ML]40JV($EJ(0>4 +, XM10G S(3#XQAP>*%U')OQLJ@&8@X",%2$3MJ9;FTW L1/V4(:9B#L@A RHNY XMC5(&QYQ-(+-@41:96=@^.10 $7102FP=C,2'.H@Z,8RYU :."2Q9L(1FF^R6 XM2[,3J1 GV2I5#4.! E!S?"H#JSDC6M"WV3)C\SFDS;89-]_FW+R;$U2EXXPCFC)- 8;P>2IG$YCL(%:T:F;-R/!%#Z<8 XMO1)F=("NT;>Y0-,!!8U*%#1H;M /VD='Z(0RH3.B0#Q%K>-!H("4"(C.0&(Q XM%SMT-BEI^U.AK^J^NJHDN3!4Z;]TI?6SEM:6_GDVT^@!':9O=&0FTPR:1Z=I XM^DR=-J^4C/@"1--=Q= E"\:SHCOX%Z?:_/0+[6$02[ XM#!ALA(VE8H)PN"H,VUPX[,L&L8^$Q!8FT,9BAT1/%?@V-GUU$1X[=O$%8*>$ XMTA](!L"".2;6Q]3PLVUAX!#:VZUH4YR+0K&'23%9VAE[^7%LJ/VQI[;(3@V& XMR[$$M]'! EK Z @18F4_% $R@([J]MWV 53 K.QM=$2)"LIAL"VXX$"-F -;*%R0+#+@!NIOY/DZ XM%6< @:2B?">&0'X('%4 #DBV.W$57(8;@UV]$C>2D4'$&_KK4*P-QIP XMN*QS*063.<"]0\3OQM>M@VH0 3\2!B*;/00,SQ7;W=_O?#_*W<0F58]!"TZ6 XMD:V]9@! I:;L;\LI;*#]M>WW'1#;1[ML*^VBDK:==MF.VB";:D>ZF!"WRX#S XMGB[EVP?D;3HPN*U(!@_<<*"#%VZL-+Y7QO6FW"KD? ?O[$R\37CW1N$APGM3 XMCTIMZ#]H,[KVU]\PFWW_;>X/OQW4=QG<&5^'YFGNL;[;BO@>8 XM7FDVT(=^NYVA?;]=1/X&2?M;7">)0>O#8D#0U&O%20_( 3R0$HQ(V,M]$DM3 XMP<;C8AGA:"AU Q,:7D$$-^ #9-6;L&\D^U4*9AH0C-1/&!_C91PYG''&G/?4 XMN&L#J[63,K)QZ2B'>:D6]^)-&I*_5K]8R-5B; Q\XO&:RI6"%@XW9EAOZ0X\\$7VBQY6*+C@=RS;7 XMZ(<4G-<:<;X?1GKO,>ER!:5CW78>Z=XY"HCG9&">)E;0SH2IUT\#4MU0Y XM?^IE^:1+GW7.4[U-+'?D*1*K:_7R;,^]^K4JQ6&=0?KEFC>NZW7A]8Z -D.Y7A*7PNFV,@**=3R&)X@0'5I%DJRP"=6VQOP=)TS3[ XM,QWD_MRS:\>JW!1 >VHG[7"T0H3VT=X&3@4YVAB[HHY6:#IRH0]/(/2*:4]. XM^';B#AQH(R*/D[_OM\\;&,':73LEVJ7%31$;)N2.TZ7H)M\!.T!4(H4W@ :R XM^AS5[I4OVA:/R\+^EO/\A.YZS_B!].G.IZJ[*EP!P[V_"XCC[E'*>RA%[^J] XMNK1WNAS@7U$,$RD&X5&U@?P2$22\#OO(:V$^^N]!/K"Y2[AP U%#_,J!J$$U XMH,M-^/ ^@6:DD=? .6B&BJ(-$(YAQ)@Y,-%5P(>(7=:\9Y\$%.\&=H;S"!T? XM7C23@>J1.K('R8@A)*3%\XX?GT)*1R=!'==#=6@/)&\E-#S*1N7I6F%%J@\? XMXB<"B4\-)MZA4Y\4[QI@!XO_';*!1L8$'N_C3\CS> O41\@3^2AOY+>'YB@A XM#^/-_^WID3%:2)&'(>G[D6.YA0L3/KP]&0(HX#'$@3J0THW61%(@#,2!4 5% XMS^B1@M+2\M$=11H%2I_259'?*)P%'%5SXB^PTJ@&IT<*GOX++.XU% 36E D8 XM SD+FM!WM4O3##UD0/2G?@(+7,H&Z<4(&4C.$,*!7LG!J J+[(]2-\*>E$8S^?/1O)S@'F*>_& XM:F2_Z,D]LS_W*"#=:WM^O^G;_;+_%M)%WK<:N*&^W\"]=_CY_C,E:S[!\.&( XLU?;V/@S'dos_packet.c' <<'END_OF_FILE' X/* X** dos_packet - Send a DOS packet & wait for reply X*/ X/* Rick Coupland - 10/30/89 */ X X#include X#include X#include X X#define MAXARGS 7 /* Maximum number of arguments */ X Xtypedef struct { X struct Message msg; X struct DosPacket dp; X} PKT; X Xlong dos_packet(task, type, args) Xstruct MsgPort *task; Xint type; Xlong args; X{ X register PKT *pk; X struct MsgPort *mp; X long rc; X X pk = (PKT *)AllocMem((long)sizeof(PKT), (long)(MEMF_PUBLIC|MEMF_CLEAR)); X if ( !pk ) X return -2; X mp = &((struct Process *)FindTask(0L))->pr_MsgPort; X pk->msg.mn_Node.ln_Name = (char *)(&pk->dp); X pk->dp.dp_Link = &pk->msg; X pk->dp.dp_Port = mp; X pk->dp.dp_Type = type; X memcpy((char *)&pk->dp.dp_Arg1, (char *)&args, sizeof(long)*MAXARGS); X PutMsg(task, &pk->msg); X WaitPort(mp); X GetMsg(mp); X rc = pk->dp.dp_Res1; X FreeMem((char *)pk, sizeof(PKT)); X return rc; X} END_OF_FILE if test 894 -ne `wc -c <'dos_packet.c'`; then echo shar: \"'dos_packet.c'\" unpacked with wrong size! fi # end of 'dos_packet.c' fi echo shar: End of shell archive. exit 0 -- Rick Coupland ...!{noao!asuvax | mcdphx}!anasaz!rick (602) 870-3330