"ô > BLib.FileIO 1.01 07Sep2006 <ô v1.01 07Sep2006 JGH: FNargs avoid zero page on RISC OS *ô v1.00 09Aug1988 JGH: Initial version (: 2%ô General File Interface Routines <%ô =============================== F: P,ô Returns file type, file info in X%!... Z,ô -------------------------------------- dBݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF n: xô General OSGBPB call ‚ô ------------------- ŒUÝògbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Ö &FFD1:á –:  @ô Return current disk (5), directory (6) or library (7) name ª@ô ---------------------------------------------------------- ´Bݤgbpb(A%):X%!1=name%:Ö&FFD1:A%=name%+((1+?name%)€((A%€-2)=6)) ¾A%?(1+?A%)=13:=$(A%+1) È: ÒBô Returns entry in current directory, or null string if at end ÜBô ------------------------------------------------------------ æEݤgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:="" ð#A%=name%:A%?(1+?A%)=13:=$(A%+1) ú: 7ô OSARGS call with data. Returns any returned data 7ô ------------------------------------------------- 4ݤ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% 6: @'ô OSARGS call ignoring X, returns A J'ô --------------------------------- T=ݤargsA(A%):ç<&8000:ê X%,Y%,E%,!&70:X%=&70:=(º&FFDA)€&FF ^È™"OS_Args",A% ¸ A%:=A% h: r&ô Get current filing system number |&ô -------------------------------- †!ݤfs:ê A%,Y%,E%:=(º&FFDA)€&FF ÿ