Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ucbvax.ARPA
Path: utzoo!watmath!clyde!burl!ulysses!ucbvax!huxham
From: huxham@ucbvax.ARPA (Frederick Huxham)
Newsgroups: net.sources.mac
Subject: SetFile DA (attempt #2)
Message-ID: <5475@ucbvax.ARPA>
Date: Wed, 13-Mar-85 12:10:42 EST
Article-I.D.: ucbvax.5475
Posted: Wed Mar 13 12:10:42 1985
Date-Received: Thu, 14-Mar-85 05:23:46 EST
Distribution: net
Organization: University of California at Berkeley
Lines: 212


Sorry to everyone who downloaded the first attempt that somehow got thrashed.
Thanks to everyone who let me know the upload was bad.
This upload should be ok.

Once again,

I wrote this DA along with Sam Roberts.  I does all that SetFile (software
supplement) does plus

1.  allows you to set/unset the protected and locked bits.
2.  allows you to access files on either drive (plus hard disks).
3.  allows you to eject a disk and insert a new one.

One note:  If you use the DA while on the desktop..any of the attributes you
set or unset will not be activated until the desktop is updated.  (ie. you 
leave and come back to the desktop [run an application])

This sort-of bug is the fault of the Finder (I think)

The DA is written in a combination of C and assembly language using 
Consulair C.

Any questions, comments, or further suggestions should be sent to 
Fred A. Huxham
huxham@BERKELEY

(This file must be converted with BinHex.Hex)
#DESKDAMV$0000
***COMPRESSED
***DATA FORK
(  3   *V @ 4V5T1FEL92!!8V-E<W-O<FEE<P!.5O_T
("\,2&[__*ER0J>I)"A?( QF"$AMOHBH46 .#&P  0!L
(&\&2&V^B*A1*%].7DYU3E8  $)G3KH$A! ?0JX #$Y>
("Z?3G5.5O[>3KK_LJFT0F<_//__2&W^<*EP'5___3 M
(/YP9P !W%- 9QQ50&<  9)50&<  8Q30&<  <!50&< 
( &T8  !SD)G+RW^>DAN_N*I+#U?__XP+O_^4T!G%%- 
(&<:4T!G3E- 9R!50&<N8  !3D)G3KKYS&   41(;?YP
("\N_N*ILV   38O+O[B+RW^>DAM_I"I)6   20 0! R
(        "P   $!:@   %  5@!< &( : @ 4V5T1FEL
(&4  H@"M *X K8"H N\+S@(_$CG?_Y%^O_J*$K4P-CZ
(/_L( @B"2!*(DPD3"9,3I!,WW_^3G4P.O_*8-8P.O_&
(&#,,#K_PF#&,#K_OF# ,#K_NF"^0J=.5O_@828@#5F 
("\ !$  RBM _ORH;JC^J1).N@#T2H!F!$ZZ A"I]   
(   0J<O/$-/1$4_/ #_J: @'V<  - O $*G+SQ#3T1%
(#\\  &IH$'Z_]8B7R 1 H  ____6( @@"!?*$B@)2@ 
(%V$H"D@4#(8 D$ ?S08-AA(PDC#)DV7PI?#)$T^ 0)!
(  .9P  $" #H1YF9B9()$C5PM7#, /B2%- :P9"6T[Z
(/_X(%1<2%&$:T@@&"(8.@!(0.!(/ #D"&<   Y3 &<J
(")Z_US3P2() D8  V<44T9G""6!4 !.^O_.-8%0 $[Z
(/_&%8%0 $[Z_[Y#\A  3OK_UB\*($R@*B\,J:,D7R)*
("9**$I.=2)?+4___"U)  1"@"! 3M%.7BAN  2Y_   
(   9_(N;O_\($!.U$J :PA*@6L  !!@"DJ!;   $$2 
($2!8 Y$@6$*1(%.=42 3OK_]BX!2$?.P#\'+@!(1\[!
(,+ WE](1T)'TH=.=4J :PA*@6L  !!@"DJ!;   $D2 
($2!8!!$@6$,1(!$@4YU1(!.^O_T2H!G.D)'LH!E#E)'
($J :P  #N.(3OK_\$I'9RSBB"\") %"@>.)M(!E!)2 
(%)!4T=O!N*(3OK_[B ")!].=2(\?____T* 3G4@ 4*!
($YU($!*&&;\(DA32)"(; I$0#( $R!306[Z$(!.=2! 
(") 0H$2&&<*4T$2V%')__Q"$2! 3G5* 6<$ $($ $'Z
(  &,((@0   3G5"ITY6__1([@ #__1";/[Z0H!.7EB/
($YU0J=.5O_T2.X  __T0H!.7EB/3G5.=4YU0J=.5OPB
($CN  /_]#U\  '\(DIL_OIF  9:.7P  ?[Z0J>I>SU\
( !0__ ]? !D__)!^@?&( A.NO]0(@A![O_P( A"@B8\
(/____]"A$*%0>[_IBP(3KH&[$HN_Z9G  840>[_L"U(
(/]H'6[_K_]P/6[_K/]L0F[_<D'N_U8@"$*!)#P  * ,
($ZZ_S1*0&<   9.^@7D('P   -6+4C_4"!N_U M:  "
(/],2J[_3&<  "(@;O],,"@ 3K!N_ZQF   &3OH #B!N
(/],+5#_3$[Z_]I*KO],9@  !D[Z!9P@;O],/6@ %OU$
(")N_TPP*  6T&D &#U _4(T+OU$2,(@+O],0>[]2B((
($ZZ!8I*0&<   9.^@5D0>[]2BU(_48@;OU&$!#N"$H 
(&<  #P@;OU&("@ $K"N_X9F   &3OH :B N_48&@   
(  T(&[]1A(H #)(@4C!T($"@/____XM0/U&3OH 0%)N
(/U$,"[]1+!N_4)N   L-"[]1$C"("[_3$'N_4HB"$ZZ
( 4,2D!G   &3OH$YD'N_4HM2/U&3OH !D[Z!-9.^O]X
($*G/SS"8$*G+SS_____J7P@7RU(_3XO+OT^/SP #4AN
(/TL2&[].DAN_3*IC2\N_3H@;OU&$!#L" (   %(@#\ 
(*EC/7P #O]*#&X %O]*;   3$[Z !!2;O]*,"[_2E- 
($[Z_^8O+OT^/R[_2DAN_2Q(;OTZ2&[],JF-+R[].B!N
(/U&,#P '9!N_THR*  *X&D"00 !/P&I8T[Z_[P@;OU&
(%2(+4C\)CU\  '_2@QN  7_2FP  "Y.^@ 04F[_2C N
(/]*4T!.^O_F,"[_2E- (&[\)M# 0^[\*M+N_TH2D$[Z
(/_:'7P !/PJ+R[]/C\\  1(;OTL2&[].DAN_3*IC2\N
(/TZ2&[\*JF/(&[]1ER(+4C\)CU\  '_2@QN  7_2FP 
(  N3OH $%)N_THP+O]*4T!.^O_F,"[_2E- (&[\)M# 
($/N_"K2[O]*$I!.^O_:'7P !/PJ+R[]/C\\  9(;OTL
($AN_3I(;OTRJ8TO+OTZ2&[\*JF/+R[]/C\\  A(;OTL
($AN_3I(;OTRJ8TO+OTZ(&[]1C H  Q(P$'N_"HB"$ZZ
( 0>+PBICR\N_3X_/  *2&[]+$AN_3I(;OTRJ8TO+OTZ
("!N_48P*  .2,!![OPJ(@A.N@/L+PBICR\N_3X_/  ,
($AN_2Q(;OTZ2&[],JF-+R[].B!N_48P*  02,!![OPJ
("((3KH#NB\(J8](>@0J2&[],*F1#&X  ?TP9P8,;@ "
(/TP9P  2 QN___],&<  # O+OT^/R[],$AN_2Q(;OTZ
($AN_3*IC2\N_3I"9R\N_3JI8# ?,CP  9) /P&I8TAZ
( /62&[],*F13OK_J@QN  '],&8  E(O+OT^/SP #4AN
(/TL2&[].DAN_3*IC4)G+R[].JE@,!_M2"!N_482$ (!
( "_2(&"0"!N_480@3U\  [_2@QN !;_2FP  &).^@ 0
(%)N_THP+O]*4T!.^O_F,#P '9!N_THR/  !X6E&02!N
(/U&PV@ "B\N_3X_+O]*2&[]+$AN_3I(;OTRJ8U"9R\N
(/TZJ6 P'S(\ !V2;O]*XV@@;OU&@6@ "D[Z_Z8O+OT^
(#\\  1(;OTL2&[].DAN_3*IC2\N_3I(;OPJJ9 @;OU&
(%2(+4C\)CU\  '_2@QN  7_2FP  "Y.^@ 04F[_2C N
(/]*4T!.^O_F0>[\*M#N_THP+O]*4T B;OPFTL 2D$[Z
(/_:+R[]/C\\  9(;OTL2&[].DAN_3*IC2\N_3I(;OPJ
(*F0(&[]1ER(+4C\)CU\  '_2@QN  7_2FP  "Y.^@ 0
(%)N_THP+O]*4T!.^O_F0>[\*M#N_THP+O]*4T B;OPF
(-+ $I!.^O_:+R[]/C\\  A(;OTL2&[].DAN_3*IC2\N
(/TZ2&[\*JF00>[\*B (3KH!I"!N_48Q0  ,+R[]/C\\
(  *2&[]+$AN_3I(;OTRJ8TO+OTZ2&[\*JF00>[\*B (
($ZZ 7(@;OU&,4  #B\N_3X_/  ,2&[]+$AN_3I(;OTR
(*F-+R[].DAN_"JID$'N_"H@"$ZZ 4 @;OU&,4  $#0N
(/U$2,(@+O],0>[]2B((3KH M#U _U1*0&<  "PO+OT^
(*F##&[_TO]49P8,;O_4_U1F!A \  )@!! \  %(@#U 
(/PB3OH #"\N_3ZI@T[Z !A"9S N_"( 0,)@/P!"IZF&
(# ?/4#]+DY>6(].=4*G3E;_ODCN  ?_\"!N__ ]: !(
(/_4(&[_\#UH $K_UBUN__3_WBU\   " /_B/7P  ?_J
(# N__K!_ ( +4#_[$'N_[X@"$*!)#P  * "3KKXVDY>
(%B/3G5"ITY6_[Y([@ '__ @;O_P/6@ 2/_4(&[_\#UH
( !*_]8M;O_T_]XM?    @#_XCU\  '_ZC N__K!_ ( 
("U _^Q![O^^( A"@20\  "@ TZZ^().7EB/3G4@0"\0
("\!+P(_ R\$+P4O!C\\  *IZDYU($ _/  !J>Y.=2!!
(#\\  "I[DYU0J=.5O_L2.X !__P0F[_["!N__0,4  #
(&<((F[_] Q1  5F  ! (&[_]" H  +@B *     _SU 
(/_N#&X )/_N9P8,;@ T_^YG!@QN $S_[F8  !(]?/__
(/_L('S_____+4C_^# N_^Q.7EB/3G4@7R0?(A\@'R\(
($CG'QA.NO^"3-\8^#]   1.=49I;&4          ,)@
(    A@$1$E43 !\2  'Z(  0 VF $!Z/       $   
(/____\   $%__\!ZP   !8  0'K      $% >L %@'K
(  !!(8  56&  $QQ@ '9<P !Z;8IM@ !Z;8      ! 
('Q( $!\2 $&    0  $  $ !  ! 08 %@ 'Z(  !^B\
(    >  !UK0  =:T  " !8!ZP$& >P !P! #%X 0 NV
(   __\  0 2@  X(D13##\   .D@  X(@    $  ,P<
(  P  $9SD13#$0    !  !3Y@   >8        FL  !
('2.  #,'   0/( 0$3, $ T1 ! $'0  $#R $ ,7@! 
( NV    %0      V  * .H 6@0&4V5T(&ET      #8
( "> .H [@0&0V%N8V5L       0 (( * "^B 14>7!E
(       $ #& "( [I         X (( 4 "^B =#<F5A
('1O<@       #@ Q@!* .Z0        8 "" '@ OH@$
(%9,;V,      &  Q@!R .Z0        B "" *  OH@$
($A,;V,      (@ Q@": .Z0        L "" ,@ OH@&
($9O;&1E<@      L #& ,( [I            H & !D
( 4)4')O=&5C=&5D        &  * #  9 4&3&]C:V5D
(       ,  * $@ 9 4)26YV:7-I8FQE        2  *
( !@ &0%!D)U;F1L90      8  * '@ 9 4&4WES=&5M
(       >  * )  9 4$0F]Z;P      D  * *@ 9 4$
($)U<WD      *@ "@#  &0%!T-H86YG960       # 
(  * -@ 9 4&26YI=&5D      #N  H!+P#TB( @(" @
(" @1G)E9"P@4V%M("8@1&%V92!3;V9T=V%R90T@(" @
(" @,30T,D$@5V%L;G5T(%-T<F5E="P@(S$U,PT@(" @
(" @(" @("!"97)K96QE>2P@0T$@(" Y-#<P.0T@("!&
(')E97=A<F4N+BXN)#$P(" T,34@.#0Y+3DQ,33"8@  
( !0!$1)5$P ?$@ !^B  $ -I@! >CP      !   /__
(/__   !!?__ >L    6  $!ZP     !!0'K !8!ZP !
( 2&  %5A@ !,<8 !V7,  >FV*;8  >FV       0'Q(
( ! ?$@!!@   $  !  !  0  0$& !8 !^B   ?HO   
( '@  =:T  '6M   @ 6 >L!!@'L  < 0 Q> $ +M@  
(/__  $ $H  .")$4PP_   #I(  ."(    !  #,'  P
(  !&<Y$4PQ$     0  4^8   'F        )K   72.
(   S!P  $#R $!$S ! -$0 0!!T  ! \@! #%X 0 NV
(     $      $8 & !: &0$!D-A;F-E;       #@ \
(  N /"(+$-O=6QD;B=T('5P9&%T92!D:7)E8W1O<GDN
( U6;VQU;64@:7,@;&]C:V5D+L)A    3@1$251, 'Q(
(  'Z(  0 VF $!Z/       $   _____P   07__P'K
(    !8  0'K      $% >L %@'K  $$A@ !588  3'&
(  '9<P !Z;8IM@ !Z;8      ! ?$@ 0'Q( 08   ! 
(  $  $ !  ! 08 %@ 'Z(  !^B\   !X  '6M  !UK0
(  " !8!ZP$& >P !P! #%X 0 NV  #__P ! !*  #@B
($13##\   .D@  X(@    $  ,P< #   1G.1%,,1   
(  !  !3Y@   >8        FL  !=(X  ,P<  ! \@! 
($3, $ T1 ! $'0  $#R $ ,7@! "[8    !      !&
(  8 %H 9 0&0V%N8V5L       . #P +@#PB"I!('-Y
('-T96T@97)R;W(@;V-C=7)R960N#5!L96%S92!T<GD@
(&%G86EN+L)@    )01$3$]' 'Q(  ?H@ ! #:8 0'H\
(       $   _____P   07__P'K    %@ ! >L     
( $% >L %@'K  $$A@ !588  3'&  =ES  'IMBFV  '
(*;8      ! ?$@ 0'Q( 08   !   0  0 $  $!!@ 6
(  'Z(  !^B\   !X  '6M  !UK0  ( %@'K 08![  '
( ! #%X 0 NV  #__P ! !*  #@B1%,,/P   Z2  #@B
(     $  ,P< #   1G.1%,,1     $  %/F   !Y@  
(      FL  !=(X  ,P<  ! \@! 1,P 0#1$ $ 0=   
($#R $ ,7@! "[8    = (4!30&#  $!         ,)@
(!!&<F5D+"!386T@)B!$879EPF(    ,!$%,4E0 ?$@ 
( ?H@ ! #:8 0'H\       0  #_____   !!?__ >L 
(   %@ ! >L      04!ZP 6 >L  02&  %5A@ !,<8 
( =ES  'IMBFV  'IM@      $!\2 ! ?$@!!@   $  
( 0  0 $  $!!@ 6  ?H@  'Z+P   '@  =:T  '6M  
( ( %@'K 08![  ' $ ,7@! "[8  /__  $ $H  .")$
(%,,/P   Z2  #@B     0  S!P ,  !&<Y$4PQ$    
( $  %/F   !Y@       ":P  %TC@  S!P  $#R $!$
(,P 0#1$ $ 0=   0/( 0 Q> $ +M@   %H @@#2 7S"
(&)55<)A    # 1!3%)4 'Q(  ?H@ ! #:8 0'H\    
(   $   _____P   07__P'K    %@ ! >L      04!
(.L %@'K  $$A@ !588  3'&  =ES  'IMBFV  'IM@ 
(     ! ?$@ 0'Q( 08   !   0  0 $  $!!@ 6  ?H
((  !^B\   !X  '6M  !UK0  ( %@'K 08![  ' $ ,
(%X 0 NV  #__P ! !*  #@B1%,,/P   Z2  #@B    
( $  ,P< #   1G.1%,,1     $  %/F   !Y@      
(  FL  !=(X  ,P<  ! \@! 1,P 0#1$ $ 0=   0/( 
($ ,7@! "[8   !: (( T@%\PF%55?__   *V @ 4V5T
($9I;&4@06-C97-S;W)I97, 3E;_]"\,2&[__*ER0J>I
("0H7R ,9@A(;;Z(J%%@#@QL  $ ;&\&2&V^B*A1*%].
(%Y.=4Y6  !"9TZZ!(00'T*N  Q.7BZ?3G5.5O[>3KK_
(+*IM$)G/SS__TAM_G"I<!U?__TP+?YP9P !W%- 9QQ5
($!G  &254!G  &,4T!G  ' 54!G  &T8  !SD)G+RW^
('I(;O[BJ2P]7__^,"[__E- 9Q130&<:4T!G3E- 9R!5
($!G+F   4Y"9TZZ^<Q@  %$2&W^<"\N_N*ILV   38O
&R[^XB\M_GI(;?Z0J25@  $D $ 0,@        
***END OF DATA
***CRC:B3CB