Т > FSTest "Т Test filing system interface 'Т Assumes $.dir.file/ext filesystem ((Т v1.00 17-Feb-1992 Original version 2GТ v1.10 08-Sep-2006 Tweeked FNargs0() to avoid zero page on RISC OS 0 Ц l%=ad%+1 ╦ ad%+?ad%:Рv(?l%):М Я"""";:А : "#щєd0(A%,N%)=б"00000000"+цA%,N%) ,#щєh0(A%,N%)=б"0000000"+ц~A%,N%) 6щєdrv(A%)=Ґ(48+A%-7*(A%>9)) @4щРv(A%):Г A%<31 └ A%>126 Я"""(";~A%;")"""; ▀ ОA% JА T: ^ щРdir hЯ"Drive: ";:Рpr(name%) r&Я'┴6"Dir: ";:Рpr(name%+1+?name%) |*o%=?(name%+2+?name%+?(name%+1+?name%)) ├6Я'┴6"Owner: ";~o%;" ";:Гo%=0:Я"Owner" ▀ Я"Public" ░А : є щРinfo ў,Я"&05: ";fn$;┴(11-╘fn$);:A%=єfile(fn$,5) ╦BЯ"A%="єh0(A%,2)" "єh0(X%!2,8)" "єh0(X%!6,8)" "єh0(X%!10,8)" "; б:Яєh0(X%!14,8)" "єf_access(X%?14,A%)" "єf_prdate(X%!15) лЦ A%=2 ╦ 17:X%?A%=&AA:М ж.Я"&FD: ";fn$;┴(11-╘fn$);:A%=єfile(fn$,&FD) ЮBЯ"A%="єh0(A%,2)" "єh0(X%!2,8)" "єh0(X%!6,8)" "єh0(X%!10,8)" "; Й9Яєh0(X%!14,8)" "єf_prtime(X%!6);" ";єf_prdate(X%!9) Т@Т IFX%?13<127:PRINTFNf_prtime(X%!11) ELSE PRINTFNh0(X%!11,6) ЧЪ"Info "+fn$:Я А : щєf_prdate(A%):A%=A%─&FFFF &J=єd0(A%─31,2)+"/"+єd0((A%│256)─15,2)+"/"+ц(1981+(A%│&1000)+(A%─&E0)/2) 0 щєf_prtime(A%):A%=A%─&FFFFFF :D=єd0(A%─255,2)+":"+єd0((A%│256)─255,2)+":"+єd0((A%│65536)─255,2) D: Nщєf_access(A%,B%):Й A$ XГ B%=2:A$="D" ▀ A$="-" b#Г(A%─128):A$=A$+"P" ▀ A$=A$+"-" l!Г(A%─8):A$=A$+"L" ▀ A$=A$+"-" v!Г(A%─4):A$=A$+"E" ▀ A$=A$+"-" ─!Г(A%─2):A$=A$+"W" ▀ A$=A$+"-" ┼!Г(A%─1):A$=A$+"R" ▀ A$=A$+"-" ■ A$=A$+"/" ·"Г(A%─64):A$=A$+"e" ▀ A$=A$+"-" ╗"Г(A%─32):A$=A$+"w" ▀ A$=A$+"-" ╡"Г(A%─16):A$=A$+"r" ▀ A$=A$+"-" ╪=юA$+" ",10) ф: п-щєargs0(A%,Y%,ptr%):Г?(╦P-3)=0:E%=Y%:Y%=0 з+Г ░<&8000:X%=&70:!X%=ptr%:=(╨&FFDA)─&FF Д4х≥"OS_Args",A%,Y%,ptr% ╦ A%,Y%,ptr%:!X%=ptr%:=A% Н: Ь3щєargs(A%,Y%,ptr%):ЙX%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 .Г░<&8000:Й!&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% 'х≥"OS_Args",A%,Y%,ptr%╦,,ptr%:=ptr% : #щєgbpbA(A%,ch%,addr%,num%,ptr%) *8!X%=ch%:X%!1=addr%:X%!5=num%:X%!9=ptr%:=(╨&FFD1)─&FF 4: >Eщєgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" H#A%=name%:A%?(1+?A%)=13:=$(A%+1) R: \Bщєfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF f: p,щєopen:ЙA%:A%=ґ"*":ГA%:=A% ▀ =ґєgbpb8(0) z: └: ▌: ≤щРgo ╒Т OSARGS TEST ╛Т =========== І,X%=ctrl%:Y%=X%│256:ш:Я"OSARGS"'"======"; ю4test$=єgbpb8(0):В █d@C:Г test$="":test$="FSTEST" й-ч A$(11,1):ЦB%=0╦1:ЦA%=0╦9:СA$(A%,B%):М:М тA%=-3:B%=0:chn%=0:ext%=0 ч=Н ┘ Я┼51,╪);Ґ19;Ґ0;Ґ0;Ґ0;:Ж:Я:A%=A%+1:ГA%>6:A%=-3:B%=B%+1 ХУ:ГA%=-3:Я:ГB%:chn%=ґtest$ Р2ГA%=-3:ГB%:ext%=єargs0(&FE,chn%,ext%):ext%=!X% ЭГA%>-3:ГB%:ext%=╒#chn% QЯ"A%=";єh0(A%,2);", Y%=";єh0(chn%,2);", !X%=";єh0(ext%,8);": ";A$(A%+3,B%─1); 'retA%=єargs0(A%,chn%,ext%):ret%=!X% 3Я┴(51-╠);"A%=";єh0(retA%,2);" !X%=";єh0(ret%,8) $/A%=A%+1:ГA%>6:A%=-3:B%=B%+1:РWait:ЯҐ11'┴30; .ЩB%>1:РClose 8<э FD,Last drive,Ensure all files,Current FS,Command line BBэ Version type,libfs number,Disk space used,Disk free space,06 LRэ Write context,Read context,Ensure file,Read PTR,Write PTR,Read EXT,Write EXT V)э Read allocated,Read EOF,Ensure size `6Т On RISC OS, FSControl 49 reads device free space j: tВ █DtD:Я:Ц Y%=25 ╦ 29:С A$ ~5Я"A%=FE, Y%=";єh0(Y%,2);","┴(15)"Read HADFS ";A$; ┬#retA%=єargs0(&FE,Y%,0):ret%=!X% ▓3Я┴(51-╠);"A%=";єh0(retA%,2);" !X%=";єh0(ret%,8) °М:Я іэ CSD,LIB,URD,OPT/USER,CURR ╟: ╨Н ┘ ┤:РWait д: н: ьТ OSGBPB TEST БТ =========== Л+X%=ctrl%:Y%=X%│256:ш:Я"OSGBPB"'"======" ЖЯ"A%=5, Read disk title:" %!name%=0:A%=єgbpbA(5,0,name%,0,0) Я"A%=";A%;" ";:Рpr(name%) FЯ'┼6)"Opt: ";?(name%+1+?name%);" Drive: ";єdrv(?(name%+2+?name%)) : ("Я'"A%=6, Read directory name:" 2%!name%=0:A%=єgbpbA(6,0,name%,0,0) <Я"A%=";A%;" ";:Рdir F: P Я'"A%=7, Read library name:" Z%!name%=0:A%=єgbpbA(7,0,name%,0,0) dЯ"A%=";A%;" ";:Рdir n: x%Я'"A%=8, Read directory entries:" ┌Я┴11"Num: 3 Index: 0" ▄%!name%=0:A%=єgbpbA(8,0,name%,3,0) √0Я"A%=";A%;┼11);"Num: ";X%!5;" Index: ";X%!9 ═6d%=name%:Цz%=X%!5 ╦ 2:Я┴6;:Рpr(d%):Я:d%=d%+1+?d%:М ╙: Є"Я'"Checking OSGBPB extensions" ЎAchn%=▌"%":Гchn%=0:chn%=▌"@":Гchn%=0:Я"Can't open '%' or '@'." хXB%=9*2-1:Н ┘ Я"A%=";B%│2;┴(6-╠);" XY%?0=";chn%─((B%─1)<>0);┴(18-╠);Ґ19;Ґ0;Ґ0;Ґ0;:Ж:Я р У:B%=B%+1 э]Г B%<32:Г(B%─1)=0 └ chn%<>0:!name%=0:name%!8=0:A%=єgbpbA(B%│2,chn%─((B%─1)<>0),name%,3,0) Ф⌡Г B%<32:Г(B%─1)=0 └ chn%<>0:Г!name% └ name%!8:Я'"A%=";B%│2;"/";chn%─((B%─1)<>0);┼11)"Num: 3 Index: 0"'"A%=";A%;┼11)"Num: ";X%!5;" Index: ";X%!9:Рdump ПЩB%>30:Н ┘ ┤:Я:РClose:РWait З: : Т OSFILE TEST Т =========== "2X%=ctrl%:Y%=X%│256:ш:Я"OSFILE"'"======":В █TNF ,-Ц A%=1 ╦ 7:С A$(A%,0):М:A$(0,0)=єgbpb8(0) 6#Гs$=".":Ц A%=1 ╦ 6:С A$(A%,0):М @#Гd$="\":Ц A%=1 ╦ 6:С A$(A%,0):М J,B%=-1:Н ┘ О11:Ж:Я" with *INFO"':Г ÷=17:Ю T У:B%=B%+1 ^Г B%<7:fn$=A$(B%,0):Рinfo h ЩB%>6 rэ FSTEST,NOFILE,$,%,&,@,^ |э FSTEST,NOFILE,/,/,/,.,.. ├э FSTEST,NOFILE,\,\,\,.,.. ░: : є РWait ўЯ:Ю Ъ