Т > SJFiler 0.13 9Т 19-Apr-2007 v0.10 Initial version based on CPMFiler 'Т 20-Apr-2007 v0.11 Testing on BBFW @(Т 21-Apr-2007 v0.12 Physical disk access on BBC+ADFS, RISCOS 82Т 27-Apr-2007 v0.13 Bugfix to gbpb() and CopyOneFile <: QFos%=єfx(0,1)─&FF:arc%=os%=6 ─ ░>&8000:О8:A%=╠:О9,11:ГA%<80:К&80:Г░>&4000:К&80 PГos%<32:Г╛arc%:с=єfx(132,0) 9ZРinit:Я"SJFiler v"ver$" by J.G.Harston"':Н ┘ Г єerr:Ю dУ:X%=ctrl%:Y%=X%│256 .nГdrv$="":ЯҐ(D%+48);"> "; ▀ Я"[";drv$;"] "; xХ""A$:Рdo(A$) ┌Щ0 ▄: √щРinit:ver$="0.13" 3═com$="QUITHELPFILECAT EX DIR TYPEDUMPINFOCOPY" R╙help$=":::::: [CTRLS]: [7BIT]:: :" vЄч ctrl% 127,name% 255,thisdir% 63,bitmap% 63,object% 63,dir% &3FF,alloc% &3FF,data% &3FF:X%=ctrl%:Y%=X%│256:res%=0 NЎOSWORD=&FFF1:D%=0:drv$="":path$="":csd%=-1:valid$="SJ Research MDFS disk " /хfs%=єfs:d$=".":s$="/":Гos%=32:d$="\":s$="." рА э: 0Фщєerr:Ъ"FX229":Ж:Гєfs<>fs%:Ъ"FX143,18,"+цfs% 2ПРCloseAll:Яю" "+ц·,÷<128 ─ ÷<>17):=і-1 ─ ÷<>17 -ЗщРCloseAll:in%=in%:Гin%:A%=in%:in%=0:ы#A% 'out%=out%:Гout%:A%=out%:out%=0:ы#A% А : "щРdo(A$):ГA$="?":A$="HELP" (,Г юA$,1)=" ":УA$=аA$,2):ЩюA$,1)<>" " 6Г юA$,1)=";" └ A$="":А @Г юA$,1)="*" ЪA$:А !JГ юA$,1)="." A$="CAT "+аA$,2) 2TГ ╘A$=1 ─ ї"0123",A$):drv$="":D%=╩A$:csd%=-1:А 8^com%=0:У:B$=аcom$,com%*4+1,4):B$=юB$,їB$+" "," ")-1) 1hcom%=com%+1:Щєuc(юA$,╘B$))=B$ └ com%*4>=╘com$ 'rГєuc(юA$,╘B$))<>B$ Я"Bad command":А )|z%=═("FN_"+B$+"(MID$(A$,2+LENB$))"):А ├: ░: Т Commands єТ ======== ў: ╦щє_QUIT(A$):Я"Quit" бН ┘ Ю л*QUIT жЮ Ю: Йщє_HELP(A$):ptr%=1:com%=0:У TТЯ" "аcom$,com%*4+1,4);:A$=аhelp$,ptr%):A$=юA$,їA$,":")-1):ptr%=ptr%+╘A$:Я" "A$; /ЧЯ:ptr%=ptr%+1:com%=com%+1:Щcom%*4>=╘com$:=0 : (щє_FILE(A$):drv$=A$:D%=-1:csd%=-1:=0 : &щє_CAT(A$):РLstDir(0):=0 0: :щє_EX(A$):РLstDir(1):=0 D: $Nщє_DIR(A$):Г A$="$":A%=єMount:=0 3Xcblk%=єfind(A$):Гcblk%=0:Я"'"A$"' not found":=0 5bГ(fptr%?&17 ─ &20)=0:Я"'"A$"' not a directory":=0 *lЦ A%=0 ╦ 63 ┬ 4:thisdir%!A%=cblk%!A%:М 7vpath$=path$+"."+$(cblk%+1):csd%=thisdir%!32 ─ &FFFF ─=0 ┼: ,■щє_DUMP(A$):Й ln%,p%,ptr%,cols%:cols%=16 N·Т IF LEFT$(A$,1)="-" cols%=VAL(MID$(A$,2)):A$=MID$(A$,INSTR(A$+" "," ")+1) #╗ГA$="":Я"Syntax: DUMP ":=╧ =╡src$=A$:ptr%=єfind(src$):Гptr%=0:Я"'"src$"' not found":=╧ (╪Ц A%=0 ╦ 63 ┬ 4:object%!A%=ptr%!A%:М #фln%=object%!&14 ─ &FFFFFF:p%=32 пЦ P%=0 ╦ ln%-1 ┬ cols%:B$="" 7зЯєh0(P%,6);" ";:Г(P%─&3FF)=0:РReadData(P%):O%=data% ДЦ Q%=P% ╦ P%+cols%-1 KНЯєh0(?O%,2);" ";:A$=Ґ(?O%─&7F):Г A$>=" " ─ A$<="~" B$=B$+A$ ▀ B$=B$+"." ЬO%=O%+1:М:Я B$:М =0 : =щє_TYPE(A$):Й ln%,p%,ptr%:ГA$="":Я"Syntax: TYPE ":=╧ ) msk%=їA$," [")<>0:msk%=(msk%─&80)└&7F N*src$=юA$,їA$+" "," ")-1):ptr%=єfind(src$):Гptr%=0:Я"'"src$"' not found":=╧ (4Ц A%=0 ╦ 63 ┬ 4:object%!A%=ptr%!A%:М +>ln%=object%!&14 ─ &FFFFFF:p%=32:last%=0 6HЦ P%=0 ╦ ln%-1:Г(P%─&3FF)=0:РReadData(P%):O%=data% :RQ%=?O%─msk%:Гmsk%=255:ОQ% ▀ ГQ%=10 └ Q%=13 └ Q%>31 ОQ% '\Г(Q%=10 └ Q%=13) ─ Q%<>last%:О23-Q% fГQ%=9:Я┴(8-(╠ ┐ 8)); plast%=?O%:O%=O%+1:М:Г╠:Я z=0 └: =▌щє_INFO(A$):Й ln%,p%,ptr%:ГA$="":Я"Syntax: INFO ":=╧ =≤src$=A$:ptr%=єfind(src$):Гptr%=0:Я"'"src$"' not found":=╧ (╒Ц A%=0 ╦ 63 ┬ 4:object%!A%=ptr%!A%:М #╛fptr%=object%:x%=0:РListFile(1) GІЦ p%=0 ╦ 31 ┬ 2:Яєh0(object%?p%,2);єh0(object%?(p%+1),2);" ";:М:ЯҐ8 2юЦ p%=32 ╦ 63 ┬ 2:Яєh0(object%!p%,4);" ";:М:ЯҐ8 й=0 т: Cчщє_COPY(A$):ГA$="":Я"Syntax: COPY ":=╧ ХТ copy * path РТ copy * inf:path ЭТ copy * zip:zipfile +p%=їA$," "):src$=юA$,p%-1):A$=аA$,p%+1) zip%=0:inf%=0:dst$=A$ *Гєuc(юA$,4))="INF:":inf%=╧:dst$=аA$,5) *$Гєuc(юA$,4))="ZIP:":zip%=╧:dst$=аA$,5) _.Гsrc$="$":cblk%=єMount:cblk%=thisdir% ▀ cblk%=єfind(src$):Гcblk%=0:Я"'"src$"' not found":=0 )8Ц A%=0 ╦ 63 ┬ 4:object%!A%=cblk%!A%:М ,BТ If src=directory, copy all recursively #LТ if src=file, copy single file NVГ((object%?&17)─&20)=0:fptr%=object%:leaf$=src$:РCopyOneFile(src$,dst$):=0 `Г dst$<>"":Рcdir(dst$) jГ dst$<>"":dst$=dst$+d$ tРCopyDirectory(dst$) ~=0 ┬: ▓: °Т File copying code іТ ================= ╟: -╨щРCopyDirectory(dst$):Й entry%,bit%,fptr% *дЦ A%=0 ╦ 63 ┬ 4:thisdir%!A%=cblk%!A%:М 'нptr%=32:cblk%=thisdir%!ptr% ─ &FFFF NьРRdBlocks(dir%,cblk%,D%,1) :Т Read first directory block AБЦ A%=0 ╦ 63 ┬ 4:bitmap%!A%=dir%!A%:М :Т Get occupied bitmap #Лbit%=?bitmap% │ 2:fptr%=dir%+64 ЖЦ entry%=1 ╦ 255 )Г(entry%─7)=0:bit%=bitmap%?(entry%│8) e Г(entry%─15)=0:ptr%=ptr%+2:cblk%=thisdir%!ptr%─&FFFF:Гcblk%:РRdBlocks(dir%,cblk%,D%,1):fptr%=dir% Г(bit%─1)<>0:РCopyObject 'bit%=bit%│2:fptr%=fptr%+64:М entry% (А 2: ?<щРCopyObject:Й ptr%,bit%,old_cblk%,thisdir$,bitmap$,object$ 7FРFileInfo(fptr%):leaf$=fname$:fname$=єclean(fname$) 7PГ(access%─&20)=0:РCopyOneFile(fname$,dst$+fname$):А Z: dТ Descend into directory :nold_cblk%=cblk% :Т Save current directory block number LxЦ A%=0 ╦ 63:thisdir$=thisdir$+Ґthisdir%?A%:М :Т Save current object info R┌Ц A%=0 ╦ 63:bitmap$ =bitmap$ +Ґbitmap%?A% :М :Т Save current dir. alloc bitmap L▄Ц A%=0 ╦ 63:object$ =object$ +Ґfptr%?A% :М :Т Save current object info ?√cblk%=fptr% :Т Current block is this directory B═Рcdir(dst$+fname$) :Т Create matching destination directory <╙РCopyDirectory(dst$+fname$+d$):Т Copy directory at cblk% CЄЦ A%=0 ╦ 63:object%?A%=≈аobject$,A%+1):М :Т Restore object info NЎРFileInfo(object%):РSetInfo(dst$+fname$) :Т Set directory's metadata х: -рТ Restore into current (parent) directory MэЦ A%=0 ╦ 63:thisdir%?A%=≈аthisdir$,A%+1):М :Т Restore current object info SФЦ A%=0 ╦ 63:bitmap%?A% =≈аbitmap$ ,A%+1):М :Т Restore current dir. alloc bitmap ZПcblk%=old_cblk%:РRdBlocks(dir%,cblk%,D%,1) :Т Restore current directory block ЗА : $щРCopyOneFile(src$,dst$):Й cblk% (Я"Copying ";src$;" to ";dst$;" "; )"Ц A%=0 ╦ 63 ┬ 4:object%!A%=fptr%!A%:М @,РFileInfo(object%):Гєfile(dst$,5):X%!14=&33:A%=єfile(dst$,4) @6X%!2=load%:X%!6=exec%:X%!10=0:X%!14=length%:A%=єfile(dst$,7) *@Гlength%:РCopyData:Т Copy if length<>0 $JРSetInfo(dst$):ЯҐ127;Ґ127;Ґ127:А T: ^щРCopyData hout%=єopenout(dst$):P%=0:У 5rРReadData(P%):ЯҐ8;Ґ8;Ґ8;єd(100*P%│length%,2);"%"; .|num%=1024:ГP%+num%>length%:num%=length%-P% 5├Рgbpb(2,out%,data%,num%,0):P%=P%+1024:ЩP%>length% ░ы#out%:out%=0:А : TєщРSetInfo(dst$):X%!2=load%:X%!6=exec%:X%!10=length%:X%!14=attr%:A%=єfile(dst$,1) |ўA$=leaf$+д11-╘leaf$," ")+єh0(load%,8)+" "+єh0(exec%,8)+" "+єh0(length%,8)+Ґ13+Ґ10:Т +" "+FNh0(attr%,2)+" "+CHR$13+CHR$10 O╦Гinf%:out%=ў(dst$+s$+"inf"):Ц p%=1 ╦ ╘ A$:у#out%,≈аA$,p%,1):М:ы#out%:out%=0 бГfs%<>5:А @лX%!8=cdate%:A%=єNetFS_OpN(19,5,10,dst$) :Т Write create date 6жX%!8=cdate%:X%!10=ctime%:X%!13=mdate%:X%!15=mtime% IЮA%=єNetFS_OpN(19,64,18,dst$) :Т Write create&mod date&time 5ЙA%=єNetFS_Op(19,Ґ4+Ґaccess%+dst$) :Т Write access >ТA%=єNetFS_Op(0,"ACCOUNT "+dst$+" "+ц~acc%+" ("+ц~aux%+")") ЧА : : Т Object display routines &Т ======================= 0: ?:щРLstDir(cflg%):x%=0:Гcsd%=-1:ГєMount:Я"Not an MDFS disk":А !DТ cflg%=0 - CAT, cflg%=1 - EX !NЯ "Path: :";title$;".";path$' 'Xptr%=32:cblk%=thisdir%!ptr% ─ &FFFF NbРRdBlocks(dir%,cblk%,D%,1) :Т Read first directory block AlЦ A%=0 ╦ 63 ┬ 4:bitmap%!A%=dir%!A%:М :Т Get occupied bitmap #vbit%=?bitmap% │ 2:fptr%=dir%+64 ─Ц entry%=1 ╦ 255 ,┼Г (entry% ─ 7)=0:bit%=bitmap%?(entry%│8) j■Г (entry% ─ 15)=0:ptr%=ptr%+2:cblk%=thisdir%!ptr% ─ &FFFF:Гcblk%:РRdBlocks(dir%,cblk%,D%,1):fptr%=dir% $·Г (bit%─1)<>0 ▄ РListFile(cflg%) '╗bit%=bit%│2:fptr%=fptr%+64:М entry% ╡Г(x%─3):Г(cflg%─1)=0:Я ╪А ф: пщРListFile(cflg%) +зРFileInfo(fptr%):Яfname$;┴(11-╘fname$); EДГ(cflg%─1):Яєh0(load%,8);" ";єh0(exec%,8);" ";єh0(length%,6);" "; НЯєattr(access%); FЬГ(cflg%─1):Яєdate(cdate%);" ";єdate(mdate%);" ";єtime(mtime%);" "; 2Г(cflg%─1):Яєh0(acc%,3);" (";єh0(aux%,3);")":А x%=x%+1:Г(x%─3)=0:Я ▀ Я" "; А : *щєattr(A%):A$="" 4Г(A%─1):A$="r"+A$ >Г(A%─2):A$="w"+A$ HA$="/"+A$ RГ(A%─4):A$="R"+A$ \Г(A%─8):A$="W"+A$ fГ(A%─16):A$="L"+A$ pГ(A%─32):A$="D"+A$ zГ(A%─64):A$="P"+A$ └Г(A%─128):A$="M"+A$ ▌=A$+д8-╘A$," ") ≤: Y╒щєdate(A%)=єd0(A%─31,2)+"/"+єd0((A%│256)─15,2)+"/"+єd0(1981+(A%│4096)+((A%─&E0)/2),2) ╛: .Іщєtime(A%)=єd0(A%─255,2)+":"+єd0(A%│256,2) ю: й: #тТ Catalog manipulation routines #чТ ============================= Х: ?Рщєfind(A$):match$=єuc(юA$,10)):match%=0:Гcsd%=-1:ГєMount:=0 'Эptr%=32:cblk%=thisdir%!ptr% ─ &FFFF N РRdBlocks(data%,cblk%,D%,1) :Т Read first directory block A Ц A%=0 ╦ 63 ┬ 4:bitmap%!A%=data%!A%:М :Т Get occupied bitmap $ bit%=?bitmap% │ 2:fptr%=data%+64 $ entry%=1:У ,. Г (entry% ─ 7)=0:bit%=bitmap%?(entry%│8) l8 Г (entry% ─ 15)=0:ptr%=ptr%+2:cblk%=thisdir%!ptr% ─ &FFFF:Гcblk%:РRdBlocks(data%,cblk%,D%,1):fptr%=data% MB Г (bit%─1)<>0 ▄ fptr%?11=13:fname$=$(fptr%+1):match%=(єuc(fname$)=match$) 9L Г ╛ match%:bit%=bit%│2:fptr%=fptr%+64:entry%=entry%+1 -V Щentry%>255 └ match%:Г match%:=fptr% ▀ =0 ` : j щРFileInfo(f%) t acc%=?f% -~ A%=f%?&B:f%?&B=13:fname$=$(f%+1):f%?&B=A% ┬ load%=f%!&C:exec%=f%!&10 ▓ length%=f%!&14 ─ &FFFFFF ° access%=f%?&17 "і cdate%=f%!&18 ─ &FFFF:ctime%=0 /╟ mdate%=f%!&1A ─ &FFFF:mtime%=f%!&1C ─ &FFFF ╨ aux%=f%?&1E:vec%=f%?&1F ─ 1 "д acc%=acc% └ (f%?&1F ─ &0E)*128 н aux%=aux% └ (f%?&1F ─ &70)*8 Aь attr%=(access%─3)*16+(access%─&C)/4+(access%─16)/2+mdate%*256 Б А Л : Ж : Т Disk access routines Т ==================== : щєMount "( res%=0:РRdBlocks(data%,0,D%,1) N2 data%?&56=13:A$=$(data%+&40):Г A$<>valid$ ▄ res%=1:РRdBlocks(data%,0,D%,1) F< data%?&56=13:A$=$(data%+&40):Г A$<>valid$ ▄ =-1:Т Not an MDFS disk MF Ц A%=0 ╦ 63 ┬ 4:thisdir%!A%=data%!A%:М:path$="$":csd%=thisdir%!32 ─ &FFFF =P data%?&61=13:title$=$(data%+&57):dsize%=data%!&62 ─ &FFFF Z =0 d : 7n щРReadData(ptr%):Й p%:Т vec%=(object%?&1F AND 1)<>0 Wx Г vec%=0:p%=32+(ptr%│1024)*2:cblk%=object%!p% ─ &FFFF:РRdBlocks(data%,cblk%,D%,1):А 3┌ p%=32+(ptr%│(512*1024))*2 :Т Find 512K chunk 3▄ cblk%=object%!p% ─ &FFFF :Т L3 block number 1√ РRdBlocks(alloc%,cblk%,D%,1):Т Fetch L3 block 6═ p%=(ptr%─(512*1024-1)) :Т Offset within 512K 1╙ p%=(p%│1024)*2 :Т Find 1K block Є cblk%=alloc%!p% ─ &FFFF Ў РRdBlocks(data%,cblk%,D%,1) х А р : 0э щРRdBlocks(addr%,block%,drive%,number%):Й p% DФ Ц p%=0 ╦ number%-1:РFDCrd(addr%+p%*1024,block%+res%+p%,drive%,1) П М:А З : : Т FDC routines Т ============ ": %,щРFDCrd(ad%,sc%,dv%,nm%):Гdv%>1:А 86Гdrv$<>"":in%=▌(drv$):Гin%=0:in%=▌(drv$+s$):Гin%=0:А >@Гdrv$<>"":Рgbpb(3,in%,ad%,nm%*1024,sc%*1024):ы#in%:in%=0:А JГos%<6:РFDCbbc:А TГos%=6:РFDCarc:А ^Гos%=32:РFDCdos:А hЯ"Unsupported":А r: |щРFDCbbc:Гfs%<>8:*FX143,18,8 &├trk%=sc%│5:trk%=trk%│2+80*(trk%─1) #░sc%=trk%*16+sc%┐5:A%=&72:try%=5 A У:?X%=0:X%!1=ad%:X%?5=8:X%?8=sc%:X%?7=sc%│256:X%?6=&80+dv%*32 7єX%!9=1:X%!11=0:ж OSWORD:try%=try%-1:Щ?X%=0 └ try%=0 /ўГ?X%:Я"Disk error &";~?X%" at ";dv%":";~sc% ╦Гfs%<>8:Ъ"FX143,18,"+цfs% бА л: 9жщРFDCarc:trk%=sc%│5:hd%=trk%─1:trk%=trk%│2:sec%=sc%┐5 LЮ "XADFS_DiscOp",,1,((trk%*2+hd%)*5+sec%)*1024+0+(dv%<<29),ad%,1024 ╦ r% ЙА Т: ЧщРFDCdos:Я"Unsupported":А : : )Т Translate leafname if saving to DOS )&Т =================================== 0Т / \ ? < > become . ~ # { } :: !Dщєclean(A$):Й B%:Гos%<>32:=A$ NЦ A%=1 ╦ ╘ A$ FXB%=ї"/\?<>",аA$,A%,1)):ГB%:A$=юA$,A%-1)+а".~#{}",B%+1,1)+аA$,A%+1) bМ:=A$ l: v: ─Т I/O routines ┼Т ============ %■щєh0(A%,N%):=б"00000000"+ц~A%,N%) $·щєd(A%,N%):=б" "+цA%,N%) $╗щєd0(A%,N%):=б"00000000"+цA%,N%) ╡щєuc(A$):ГA$="":="" E╪ЦA%=1╦╘A$:ГаA$,A%,1)>"_":A$=юA$,A%-1)+Ґ(≈аA$,A%,1)─&5F)+аA$,A%+1) фМ:=A$ 6пщєfx(A%,X%):Й Y%:Y%=X%│256:=(╨&FFF4 ─ &FFFF00)│256 з: ДТ File routines НТ ============= /Ьщєfs:Гos%<32:Й A%,Y%,E%:=(╨&FFDA)─&FF ▀ =29 , щРgbpb(A%,chn%,addr%,num%,ptr%):?X%=chn% 4 X%!1=addr%:X%!5=num%:X%!9=ptr%:Гos%<32:ж &FFD1:А ГA%=1└A%=3:о#?X%=X%!9 5 У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% .* X%!1=X%!1+1:X%!5=X%!5-1:Щ е#?X% └ X%!5<1:А 4 : '> щРcdir(A$):Гos%=32:A%=єfile(A$,8):А H Гєfile(A$,5)=0:Ъ"CDIR "+A$ R А J\ щєfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%│256:Гos%<32:=(╨&FFDD)─&FF f ГїA$,".")=0:A$=A$+"." ,p ГA%=7:Ъ"SAVE "+A$+" "+ц~░+"+"+ц~X%!10:=1 =z ГA%=5:X%!2=▌(A$):ГX%!2:X%!10=╒#X%!2:ы#X%!2:=1 ▀ Г A%=5:=0 └ ГA%=8 ▄ ▌ Н ┘ Й :=2 ≤ Ъ"MKDIR "+A$:=2 ╒ м ╛ =0 /І щєopenout(A$):Гos%=32:ГїA$,".")=0:A$=A$+"." ю =ў(A$) й : т : ч Т NetFS Operations Х Т ================ :Р щєNetFS_Op(A%,A$):ЙO%,T%:X%!1=8+╘ A$:O%=X%+7-3*(os%=6) aЭ щєNetFS_OpN(A%,T%,O%,A$):X%!1=O%+1+╘A$:X%?7=T%:O%=X%+O%:Гos%=6:ЦT%=X%+4╦O%:?T%=T%?3:М:O%=O%-3 n?X%=0:X%?3=A%:$O%=A$:Гos%<>6:A%=&14:ж&FFF1 ▀ "XNetFS_DoFSOp",X%?3,X%+4,X%?1,128 ╦ A%:X%?3=0:ГA%:X%?3=?A% =X%?3 ЪЪ