(7ݤdisk(addr%,cmd%,drv%,trk%,sec%,num%,den%):fs%,n% 2fs%=fs:fs%<>4:*FX143,18,4 <$:n%=num%:sec%+n%>10:n%=10-sec% FD:X%?0=drv%+den%*24+8+2*(trk%80):X%!1=addr%:X%?5=3-7*(cmd%>127) P@X%?6=cmd%:X%?7=trk%80:X%?8=sec%:X%!9=n%&1E20:A%=127:&FFF1 ZYA%=X%?(7+X%?5):A%<>&10:addr%=addr%+n%*256:num%=num%-n%:sec%=(sec%+n%)10:trk%=trk%+1 d+A%<>0num%<1:fs%<>4:"FX143,18,"+fs% n=A% +ݤscsi(addr%,cmd%,drv%,sect%,num%):fs% fs%=fs:fs%<>8:*FADFS DX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%&1F0000)65536) 9X%?7=((sect%&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0 2A%=&72:&FFF1:A%=?X%:fs%<>8:"FX143,18,"+fs% =A% +ݤlvfs(addr%,cmd%,drv%,sect%,num%):fs% !fs%=fs:fs%<>10:*FX143,18,10 DX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%&1F0000)65536) 9X%?7=((sect%&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0 3A%=&62:&FFF1:A%=?X%:fs%<>10:"FX143,18,"+fs% =A%  ݤfs:A%,E%,Y%:=(&FFDA)&FF "ݤscsi_err(A%,S%) ,QA%:"Disk error ";h0(A%,2);" (";"fddhdd",(A%64)/64+1,3);") at ";h0(S%,6) 6=A% Jݤdisk_err(A%,S%) T1A%:"Disk error ";h0(A%,2);" at ";h0(S%,4) ^=A% n)ݤbyte(A%,X%,Y%)=((&FFF4)&FF00)256 x5ݤfx(A%,X%):Y%:Y%=X%256:=((&FFF4)&FFFF00)256 d$ݤh0(A%,N%):="0000000"+~A%,N%) #ݤh(A%,N%):=" "+~A%,N%) $ݤd0(A%,N%):="00000000"+A%,N%) $ݤd(A%,N%):=" "+A%,N%) 4ݤo0(A%,N%):A$,B%,L%:A%<0:B%=2:A%=A%&7FFFFFFF ;A$=(A%7)+A$:A%=A%8:L%=L%+3:L%>27:=(A%+B%)+A$,N%) $ݤo(A%,N%):A$:A%<0:=o0(A%,N%) 2A$=(A%7)+A$:A%=A%8:A%=0:=N%," ")+A$,N%) ,=ݤb0(A%,N%):A$,B$,L%:B$="0":A%<0:B$="1":A%=A%&7FFFFFFF 65A$=(A%1)+A$:A%=A%2:L%=L%+1:L%>30:=B$+A$,N%) T$ݤb(A%,N%):A$:A%<0:=b0(A%,N%) ^2A$=(A%1)+A$:A%=A%2:A%=0:=N%," ")+A$,N%) | ݤdrv(A%):=(48+A%-7*(A%>9)) #ݤDrv(A$):=A$-48+7*(A$>"9")31 P/ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " Z+A$,1)=" ":A$=A$,A$-1):A$,1)<>" " d=A$ ݤuc(A$):B$:A$="":="" 5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$ ݤlc(A$):B$:A$="":="" 5B$=B$+(A$((A$<"_")&20)):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 ,%f_gbpb(A%,chn%,addr%,num%,ptr%) 6>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:<&FFFFF:&FFD1: @A%=1A%=3:#?X%=X%!9 J3:A%=1A%=2:#?X%,?X%!1A%=3A%=4:?X%!1=#?X% T2X%!1=X%!1+1:X%!5=X%!5-1:(#?X%A%>2)X%!5<1: h#gbpb(A%,chn%,addr%,num%,ptr%) r>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:<&FFFFF:&FFD1: |A%=1A%=3:#?X%=X%!9 3: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: ݤgbpb(A%):>&FFFFF:="" NX%!1=name%:&FFD1:A%=name%+((1+?name%)((A%-2)=6)):A%?(1+?A%)=13:=$(A%+1)  ݤf_scan(ptr%):>&FFFFF:="" 7X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:="" 7A%=name%+1:A%!(A%?-1)=&D20:A%?($A%," ")-1)=13:=$A% ݤgbpb8(ptr%):>&FFFFF:="" 7X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:="" &7A%=name%+1:A%!(A%?-1)=&D20:A%?($A%," ")-1)=13:=$A% N5ݤf_args(A%,Y%,ptr%):X%,E%:?(P-3)=0:E%=Y%:Y%=0 X磌 b%!&70:X%=&70:!X%=ptr%:&FFDA:=!X% l v!ș"OS_Args",A%,Y%,ptr%,,ptr%  :=ptr% 3ݤargs(A%,Y%,ptr%):X%,E%:?(P-3)=0:E%=Y%:Y%=0 磌 %!&70:X%=&70:!X%=ptr%:&FFDA:=!X%  !ș"OS_Args",A%,Y%,ptr%,,ptr%  :=ptr% ݤf_argsA(A%):磌 'X%,Y%,E%,!&70:X%=&70:=(&FFDA)&FF   ș"OS_Args",A%A%  :=A% *ݤargsA(A%):磌 4'X%,Y%,E%,!&70:X%=&70:=(&FFDA)&FF > Hș"OS_Args",A%A% R :=A% z-ݤfs:(os%-32)=0:A%,Y%,E%:=(&FFDA)&FF =29 :f_delete(A$):(os%-24):A$="del "+A$A$="delete "+A$  A$: 3f_dir(A$):(os%-24):A$="cd "+A$A$="dir "+A$  A$: f_cdir(A$) +(os%-24):A$="mkdir "+A$A$="cdir "+A$ $磌 . A$: 8 B :: LA$ V ~!ݤf_openin(A$)=(f_name(A$)) "ݤf_openout(A$)=(f_name(A$)) !ݤf_openup(A$)=(f_name(A$)) Wݤf_name(A$):os%-32:A%,B%:B%=A%:A%=A$,"\",A%+1):A%=0:A$,".",B%)=0:A$=A$+"." =A$ d+ݤNetFS_Op(A%,A$)=NetFS_OpN(A%,0,7,A$) nPݤNetFS_OpN(A%,T%,O%,A$):N%:!X%=0:X%?1=O%+1+A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$ xX>&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