[comp.binaries.atari.st] v15i009: dcbitset -- Fix the TOS 1.0/1.2 archive bit bug

uace0@menudo.uh.edu (Michael B. Vederman) (06/14/91)

Submitted-by: uace0@menudo.uh.edu (Michael B. Vederman)
Posting-number: Volume 15, Issue 9
Archive-name: dcbitset

DC BITSET will fix the way the archive bit works on TOS 1.0 and 1.2, so
it acts right.  (this program may have trouble with OLD ICD drivers!)

Mike Vederman / Double Click Software

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 dcbitset.arc
M&@AD8V)I='-E="YD;V, NPL  (H6P5#_ T85   ,*B -  %B")HR8]: >%.'z
M#@@Z!T&$<>.&H9LQ9=J4<>-P(AD0<^ @3!.&S4(S9LK(6>@&!)$A(*:@>7-'y
M)0@Q9=C0!!%P0 ,%/U^"$)+&X90R#NW$< 'CY\\A;^#DD9/F#!J'*,:D !$Cx
M1XX8+AF*85.F()LT"6.^,4/G3A@Y99PJ@"+GS1DY8=K<S -B29FB:$ <44FFw
MS!R);CXV08LF3,ZA+D!8*5-83IN)<H42-8H4A%*F(-(<#@/"B)0B1:X$.0T"v
M3MV[>2.#"%+Z=.K515J_QJM7-,NR=] P!I&'(8C+>7Z:@9N3+QG1=*B*:5B&u
MQ<V&Q(V/F5C1X9C&<LZ4-?-F9=&%*TO2L0FQK&N[O-'_'/.&XT8ZA]<^C$CFt
MS9@Z&G$4!AUIU!=:2Q/Q=1E%*LE&A%ADF8660E.LU=9;9<%%1QAIN#''3R69s
M1)]45%GE4!EXC,%&'7.D84>&55UU&(H8P7%BBBNV^"((S\T171K3$5B?"W+Ur
M (D3F<&T64R=T2<'7&/0P09?C25&UF'M@804@6Z<<=)^XZ41X6I#()&$%;F)q
M<1YY*XGQ!D0@F"%F7 J, => !7J(V$=MO/&<G-L)J6<=B=E$Q1-3< 4:"N55p
MU6%)6WFDJ P@H-!$&6>$L=433C"1!9% *4"%<(>]!YM>;ATV1QUGB.<C97N!o
MX,2 58) %V-OD0'J3T8B&2JOD%CP5'URGE$'55VZI.1Y1]$!K+"A'IKH=BU5n
M24:$=<#QT!L@W%##0B*U).>5$CE47UD$:N3@LIPYY$89E&')[1KPPO%3=&&Dm
MI5]4&\4YIZK<GD<M"$Y"*25?<W26Y;AEO?6=BV6I28=L5'!+GQO%'DNG9LPBl
M95UQ=8#P+JQT<%O8>I9U6-9,=QR7(+C],GP8Q^V"<(>8)M%;AKT*X*NO&>7^k
M]E :ZLKE0\4$$UN5QLH.U3$=.OS4 B09R!7#5E)LE%=9+PDQ11%4>.L"%%(<j
ML:VR7H.-!QYCERT7" )=<1!<(*P=&I81N0$@3BOI=_%_3]XW)<SB_EOIS1 Qi
MY%![:<CQ$]P#D&DFFC>=ES =6T$T8--+-OL07@G)JV59:0#='E\8VDP5'>NUh
M5/*N"D ^ZH G'%94"&_'?5!+-#/ID!R$SF'=>3>S85*(_@U8UD8,6052R7B)g
M!Q(<^:++K<]K/"Y0EGJWP?>7,D\_DIR4P>[$$U04H0,(1>0;&/:P,@P"7''4f
MT;AA7,F PU[KY0>T1GV20QXH1BJ1[<TF<YA)'=CP$9QH;P!9N@P>B 8@ WK/e
M)GZK#^#@PI'!\:MPY *9S7 &@L;LZ(,\.E:'SO# EYU+2W-HT9#D JP*_"0)d
M'MJ0\5;(N:?5T&A(ZY"/0M3#=D5- 5.[@-6V @4V5 ]M7Z/"VMIFM@YEYU@Wc
M><.;LL4CT2@D"%4X5)S>P, &R44&6"N#F]X$IJ2U 0[4D<.ZG%:SXIE$B#HTb
MB8&DI2@8H&=2L(-<"_[8@B6"0 J$@J+:V$8VLRWG#7K)4F'FL(:2P4$V06A)a
MAZ+CISI$*4\2(8L<'&)'B<!!)&^!'1HEI"_7120)3I@"%8+ !"9<AW4S#)7<z
M^H7'$%'&.B^37W"&XYL[K*YU9RL/P>ZTGH^4TH3HBHCDSE2$GTA,2UCIT',"y
MQ<.%S0DD"F3@31HFAX>]B PI@!VP(/ 3)Z0F! 1QYQ7@*:MWKE,N0; #AYPXx
MEK)4Y ZX"U42@"9"G9RS:5- PA.ND 0J?(PA)S >" S*-9@D=*%%D$) ?S(Jw
MW_CFHE=PV1G00D^0@N $3JB"$3:J *'(A"8V@0L<G(@1O)7E"$5H H\,4\FHv
MQ$2A(35"$IB0&S,0ZI,&0EQ@N%@R+;W(#4&Q*,MLTB<R+!!_FG,(61PB0CNDu
MH0PM6P\>'"(SZZC)#6_A2UFY<H,NHD0E]_D)'-!"!Z:QZ3+X 69B*E6&IX( t
M13[#W&RD, 3K,$$+2+".%I( A3V!0 M/>()$RBF<%\T!=E5(6!N% H4)[922s
M$AE#3>=0'KXTU:M@]1>YK/@RG.K45+R!W1/D8!T6530F4UW)<PPVN$?JI0I)r
M2-0,7#"#2K7HC8,C0_0DHEKKM9$'4/"!-1M2,DVV!+C"):YC5>19 X$TG7*9q
M[4-#-K!>2M2EN96(36>3/BDX(0A4H.9/%WH@697A#43@*0B&VQ0%L.FO?@V@p
M>V J!Y8:88&#H\\;\=3/$<*)B+*TCBP;ME<J4,&-<$3990D2 QC H 3J39CWo
MIL12@R!$(8IK8Q/"P)>N?"4F%\;A76WR%@*IJ"P&0B^! SJJ,O"%HJ&A TN?n
MX(;!D4 &.7!!#FI SR" %F2Z+4-);/)?THPH#RR%6P=6  D&:*\#4X!"$8:0m
M!%JZI BT_#*7O1RJP3A$QS59R7]C\(+BKL5T$='0/G6#EC*PU,G,#<E(2G*3l
MMV2J0^,EV$1*&(8=P9G*RJR/D;NBY&^AH I32 %+IT"TF2)L(Q]A$7-[I!"Ek
M,O?*7X+S>3[C1V5^!BR2(@&EE\Q2%(2!#!\AP0PNG>D_DJ &*&#37\[@AJTDj
M, VG7.$+K'66+EF'"EB8GV'24!B.C ;7(,"!"V10 Q!O" \ID$M'_9>2E8#Zi
M,$H@5%EB8!T7+T4N*Q:3=8;P!")8QPK!I8VDF@"3\E3F,#5A@X++ #LC-> Gh
M0JA"%JR3\(4/1>' .K@"D-#HLH@0CI0-0\(^DB6A$*$(4UC"H1JK3*&$<:@-g
M30+(/:,2&;9$!DSY@4#D,E"1O2G1,+VB'!+&!CR[ARP:9YI^6,1#AJQD52*1f
M@QAT Y^\7%8N(NBQ9F'K],DV3)86>4Z70B "$ S2+RT1PJU5@I_OJ,0Z\%U-e
M$@I2GDL^I"1K6*'V1A &-V&GXS Y.1-2OG([P+R_/XEZ1#P.<I$_H;&^(4W2d
M%W2?UM3X2VU 6!Y>U0:N/W"04C 0$^JP!N&5)NL8!!I4WFA;.;RH=C&IRFPVc
M1!6Y#(&(HFZJO\_^1XTK!,H339Y)]#PG.=)0 49:P$^:\ 36P!(*80QH\&](b
M4..<A5[[\0W5VV"=NTA9R'(10EE61;>F;A4$HE[#/VW6&(=06\KY68F" X2?a
M*S)Z1W5/L=%!8B&WP 545R!GP]C@ELDC9H(,(3H'\1;DMSD)\D*-(3ISP&(Lz
ME07:L6AW\AW@-QILT"<^ F JD0?! 5<L920'@'!\$6]L "P?V%(04A9#<!9Iy
M42%L87]T @62)01/$&TW0 ,Q( ,P8 ,_@00!6%W/1H,W( ,U6"20@  @:"LSx
M\2[ 8H0F6 <-EH*>Q8(70C<@L#XH< ,Q, ,ID ,W< ,M8 ,U@(-$:  _063-w
M1B=&0H8*@%-N\%5P<P#KXQ)/4 5"0%0M, 1[-P1+4"E# %^84EK[!0/AI@"Cv
M!T='87IE484$X2TSX&$L4 -="#<$@ )'(%EI)P5G FK ="=<H84_D5D;T1F0u
M8 !Q6 ?5 P- $"!UT!\N4 =HX *440=1-11> S>D2!!7F(5;2 ,TT (PT&$Xt
M\'N]PE$%-'UW Q+9,E-?]1%6E"4X<19E@&>;<Q[\@A?]HU[B,P:ELXPL\!/Os
M A@V\2!.&"%0N(+UESHHD"4*1CUND =;41$KD25AT! SL7/@1$3=,4X311+]r
M]!.LU8X$TSC_T09#=!' 47ZDU5>0EAX N5L(82[FD1CW$R6Y%T-_1 9Y$0;2q
M4S)R51=)1P=\T2$;!"O*M"IO!1<-9%H1\1\^ DD8Q)!\\29STQHM9R :QUQPp
ML2ILX"P*H!_!-(\[>9'1^)#UE25GH$5DD'Y:8GI]IBK)"(TIV4;KF" @LE=6o
M5!$!64X 4I U=8\2I8Z0Q(Y\@1/[6'<1HI$<DD-)XR%E4#_W01(CJ  8>1G2n
MHTPZ89'Z\1YRTGXHL('MT3<KD8]9 @=O$$- (B9%H9)PI1^I\A,)0SW6V!P2m
M009>M7%G0XTK<2>DA59CH5;ED3!2UD^10A4MDBR^U4:V)1\*D'1W-1$8\26Kl
M(H%'Z2=*F3!,65.@,HP*< (:"&1C8G-E=#<U+G!R9P"3!0  DQ8F:(-WB@8 k
M  Q@-   0(#=P !2 $ :0$;A@@ #P0 8@(S($#%S "C (D1*$(L8GWRA@@,6j
M+Y!SSDAXH>.?/"=U.'I$*9)*#"4Y!@X 9$:.$S0(+@ H<(9 D'< #,#  (L/i
M "9BO$#8 0#!"ZK:8!)2"&,K) 6(&$$:2,GA5B;Z! CXQX3E/T P%0X@=E#"h
M02@#!5#1*0&"#@&[SH!#DD_MOX7T@J1U)4+//Q BHL!HJ4()E#,D9J$C:,8#g
MX0$!#@_@]P/"#QX ?(#@@=()$BR/T(+V9R_(9D!1D/V3!D828<.(16!AD * f
MCHEG ,'Q  R*&0#_] # "P)*/IV 7B0X#2#(ZM9(N#P2DG,B((G_K%C'/@*:e
M:'8CD HX*.Z%4P !X  0@)Y'TZ1MD/';6HB] ( 0I[#D#QK<#?'=17.X]@12d
M"H@   @?*!'(&C8@ %$!9L"@6 #<R*"#/UY8=H8"M@& 6S+_V!,0#, (@45Cc
M_N  0C12E#= (#B"8& 8%&"(EEK^<$ >=D[D\P0413A!G''XF:$ ''= D,T5b
MNO$#$P,1 ,"%&0B$H0,5B,!1!QCJ:!>&!")\H00&9O 3@5-<_/./EG7"]$*9a
M&D@!Q \ (('&?MP=\2!&KD'Q" A?^(D =QDL&B$25#SZ!0R\!*%#-!# Y%< z
M*YP!@#]0P #!?P:T<:H1 XJ6F#X!2&!B/Y3 <AD#+;X8HT3^@*#$H0*8P8 0y
M8TWA8R# .K">>2/HAEA\^^GD@'UYX;*?1/VXHP1/2H"@1S\V"($)%H@HJU,@x
M?R+X9X.62D@AI-^NX0$"P QE!@:$<A? NZ@YR!J$\FJDWY+F-3D$$T],X1< w
M;9C:CR2JLNIJ/XC$BIAB %!A(C_6P(+%&;QNYD<4,,H(0#]B6/9</UP\NU.Tv
MHL%#[7P3\8'M1&ILNS(/W[9A@+C\  (%- COU.054B1!Q1!IB2,#(% /4"$Bu
M(]JA']0"J (!!C( \W788XL-=HU1C"B$" C @!HR3@@QF0#.P"3$&0 #X(03t
M03CZK=UGC/@$' &$P<H9!OPGP!EL<&Q+& .9 H(._$APAA<CDA"&,F<@,"(%s
M80@3(G<O\)TI"$"T2()^="A@AZH8C#4 ,,)(@($D T 3P']+B*$ +$*48< ,r
M^2Z$  \Z[,.-'ZD9\,XC4Q@Q@S%R(="$/O\0 8(3T1P3RS-C>$YK$&&HP/>(q
M;(0A L=NA,&"$%8TX8Z+43CS#SY(X$& (-]<PET,0L@#DX*0MP2 0@%\ T4"p
MQ",I[IA@;PRL@QR"( W]&6$"P1A( 1   OW) P8HV,\0\ $&%C0%(B03P:%0o
M<,+%"6 2R1@!C!:"#Y@H 0\%\ 3BJ"# A0A!,?O  @CP 0!"A  9102B#(8(n
M % <L8EQ28H/!F( )%"Q(4G92E(D045/T"  "_$4%X)0!2H\@0L6$<(4BD"%m
M'_S !5"0 J&V (,N;,$B(!!"&N@PA3+0 01VB($+8, ',>0!!$LHPQ[1 ((Cl
ME$$.9"C#'/@  A. H EI& ,:PE &-H# "F6(I!S:$ 8W\&$(;X!#'N20AC.@k
MX8^] $$,<I"#&/"!"&^H@QC84 80#($-F5P#"*;P!C/0X0YAD$,O[9@$-\R!j
M#F%@ QOX4 0\[+$+ &B  C8 !Q6H!H]ZY*,? 2E(&*Q&!1N(@S:]N;TG4 $$i
M27#"%*@0!"8PH0C:.Z<VL[G-;G[30>'LXQ\#.<ASIK,Z<GC#&>00AC: H)@@h
MH ,:>GF%,I1A#=HT)"(5*=%&/C*2<ZCD)3.YR4[FT06?#.4C2>D&;:)2E:QTg
M)2QE2<L8@ "7NN2E+X$Y!F$2TYC(5.8^(4$ &?B! $1U  A0P $+*,  "#  f
C!9A@ 4>8X*E1Q8 00$ "J!K  K"0@ Y40 ('> "I!0  &@!0e
 d
end