1 > AFSlib - library for AFSFiler and SJFiler 4ݤdisk(addr%,cmd%,drv%,trk%,sec%,num%,den%):fs% fs%=fs:fs%<>4:*FX143,18,4 7X%?0=drv%+den%*24+8:X%!1=addr%:X%?5=3-7*(cmd%>127) =X%?6=cmd%:X%?7=trk%:X%?8=sec%:X%?9=num%&20:A%=127:&FFF1 5A%=X%?(7+X%?5):A%<>&10:fs%<>4:"FX143,18,"+fs% =A% &+ݤscsi(addr%,cmd%,drv%,sect%,num%):fs% 0fs%=fs:fs%<>8:*FX143,18,8 :DX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%&1F0000)65536) D9X%?7=((sect%&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0 N2A%=&72:&FFF1:A%=?X%:fs%<>8:"FX143,18,"+fs% X=A% b5ݤfx(A%,X%):Y%:Y%=X%256:=((&FFF4)&FFFF00)256 l$ݤh0(A%,N%):="0000000"+~A%,N%) v$ݤd0(A%,N%):="00000000"+A%,N%) /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$ ݤuc(A$):B$:A$="":="" 5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$ Rݤfile(A$,A%):A%-8:<&FFFFF:$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF RA$=f_name(A$):A%=255A%=5:X%!14=(A$):X%!14:X%!10=#X%!14:#X%!14:X%!14=&33 1A%=255:X%?6=0:"LOAD """+A$+""" "+~X%!2:=1 A%=5:X%!14:=1A%=5:=0 FA%=0:"SAVE """+A$+""" "+~X%!10+" "+~X%!14:X%!10=X%!14-X%!10:=1 BA%=7:"SAVE """+A$+""" "+~+"+"+~X%!10:X%!10=X%!14-X%!10:=1 A%-8:=0 +(os%-24):A$="mkdir "+A$A$="cdir "+A$ >&FFFF:::=0 A$:=2 #gbpb(A%,chn%,addr%,num%,ptr%) >?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:<&FFFFF:&FFD1: *A%=1A%=3:#?X%=X%!9 43:A%=1A%=2:#?X%,?X%!1A%=3A%=4:?X%!1=#?X% >2X%!1=X%!1+1:X%!5=X%!5-1:(#?X%A%>2)X%!5<1: H-ݤfs:(os%-32)=0:A%,Y%,E%:=(&FFDA)&FF R=29 \!ݤf_openin(A$)=(f_name(A$)) f"ݤf_openout(A$)=(f_name(A$)) pWݤf_name(A$):os%-32:A%,B%:B%=A%:A%=A$,"\",A%+1):A%=0:A$,".",B%)=0:A$=A$+"." z=A$ +ݤNetFS_Op(A%,A$)=NetFS_OpN(A%,0,7,A$) PݤNetFS_OpN(A%,T%,O%,A$):N%:!X%=0:X%?1=O%+1+A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$ W>&FFFF:N%=4X%?1:X%?N%=X%?(N%+3):: &60048,A%,X%+4,O%+A$,120A%:A%=0:X%?3=0:=0 :>&FFFF:A%>&FFFF:X%?3=?A%: &2002B,A%+4$(X%+4):=X%?3 A%=&14:&FFF1:=X%?3