Т > 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:А ^com%=0:У /hB$=аcom$,com%*4+1,4):B$=юB$,їA$+" "," ")-1) 1rcom%=com%+1:Щєuc(юA$,╘B$))=B$ └ com%*4>=╘com$ '|Гє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 &: 0щє_CAT(A$):РLstDir(0):=0 :: Dщє_EX(A$):РLstDir(1):=0 N: $Xщє_DIR(A$):Г A$="$":A%=єMount:=0 3bcblk%=єfind(A$):Гcblk%=0:Я"'"A$"' not found":=0 5lГ(fptr%?&17 ─ &20)=0:Я"'"A$"' not a directory":=0 *vЦ A%=0 ╦ 63 ┬ 4:thisdir%!A%=cblk%!A%:М 7─path$=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 N4src$=юA$,їA$+" "," ")-1):ptr%=єfind(src$):Гptr%=0:Я"'"src$"' not found":=╧ (>Ц A%=0 ╦ 63 ┬ 4:object%!A%=ptr%!A%:М +Hln%=object%!&14 ─ &FFFFFF:p%=32:last%=0 6RЦ P%=0 ╦ ln%-1:Г(P%─&3FF)=0:РReadData(P%):O%=data% :\Q%=?O%─msk%:Гmsk%=255:ОQ% ▀ ГQ%=10 └ Q%=13 └ Q%>31 ОQ% 'fГ(Q%=10 └ Q%=13) ─ Q%<>last%:О23-Q% pГQ%=9:Я┴(8-(╠ ┐ 8)); zlast%=?O%:O%=O%+1:М:Г╠:Я └=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) _8Гsrc$="$":cblk%=єMount:cblk%=thisdir% ▀ cblk%=єfind(src$):Гcblk%=0:Я"'"src$"' not found":=0 )BЦ A%=0 ╦ 63 ┬ 4:object%!A%=cblk%!A%:М ,LТ If src=directory, copy all recursively #VТ if src=file, copy single file N`Г((object%?&17)─&20)=0:fptr%=object%:leaf$=src$:РCopyOneFile(src$,dst$):=0 jГ dst$<>"":Рcdir(dst$) tГ dst$<>"":dst$=dst$+d$ ~Р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А <: ?FщРCopyObject:Й ptr%,bit%,old_cblk%,thisdir$,bitmap$,object$ 7PРFileInfo(fptr%):leaf$=fname$:fname$=єclean(fname$) 7ZГ(access%─&20)=0:РCopyOneFile(fname$,dst$+fname$):А d: nТ Descend into directory :xold_cblk%=cblk% :Т Save current directory block number L┌Ц 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%:М @6РFileInfo(object%):Гєfile(dst$,5):X%!14=&33:A%=єfile(dst$,4) @@X%!2=load%:X%!6=exec%:X%!10=0:X%!14=length%:A%=єfile(dst$,7) *JГlength%:РCopyData:Т Copy if length<>0 $TРSetInfo(dst$):ЯҐ127;Ґ127;Ґ127:А ^: hщРCopyData rout%=єopenout(dst$):P%=0:У 5|Р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Т ======================= :: ?DщРLstDir(cflg%):x%=0:Гcsd%=-1:ГєMount:Я"Not an MDFS disk":А !NТ cflg%=0 - CAT, cflg%=1 - EX !XЯ "Path: :";title$;".";path$' 'bptr%=32:cblk%=thisdir%!ptr% ─ &FFFF NlРRdBlocks(dir%,cblk%,D%,1) :Т Read first directory block AvЦ 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) 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:Я ▀ Я" "; А *: 4щєattr(A%):A$="" >Г(A%─1):A$="r"+A$ HГ(A%─2):A$="w"+A$ RA$="/"+A$ \Г(A%─4):A$="R"+A$ fГ(A%─8):A$="W"+A$ pГ(A%─16):A$="L"+A$ zГ(A%─32):A$="D"+A$ └Г(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:У ,8 Г (entry% ─ 7)=0:bit%=bitmap%?(entry%│8) lB Г (entry% ─ 15)=0:ptr%=ptr%+2:cblk%=thisdir%!ptr% ─ &FFFF:Гcblk%:РRdBlocks(data%,cblk%,D%,1):fptr%=data% ML Г (bit%─1)<>0 ▄ fptr%?11=13:fname$=$(fptr%+1):match%=(єuc(fname$)=match$) 9V Г ╛ match%:bit%=bit%│2:fptr%=fptr%+64:entry%=entry%+1 -` Щentry%>255 └ match%:Г match%:=fptr% ▀ =0 j : t щРFileInfo(f%) ~ 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 "2 res%=0:РRdBlocks(data%,0,D%,1) N< data%?&56=13:A$=$(data%+&40):Г A$<>valid$ ▄ res%=1:РRdBlocks(data%,0,D%,1) FF data%?&56=13:A$=$(data%+&40):Г A$<>valid$ ▄ =-1:Т Not an MDFS disk MP Ц A%=0 ╦ 63 ┬ 4:thisdir%!A%=data%!A%:М:path$="$":csd%=thisdir%!32 ─ &FFFF =Z data%?&61=13:title$=$(data%+&57):dsize%=data%!&62 ─ &FFFF d =0 n : 7x щРReadData(ptr%):Й p%:Т vec%=(object%?&1F AND 1)<>0 W┌ Г 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% AП Ц p%=0 ╦ number%-1:РFDCrd(addr%+p%*1024,block%+res%,drive%,1) З М:А : : Т FDC routines "Т ============ ,: %6щРFDCrd(ad%,sc%,dv%,nm%):Гdv%>1:А 8@Гdrv$<>"":in%=▌(drv$):Гin%=0:in%=▌(drv$+s$):Гin%=0:А >JГdrv$<>"":Рgbpb(3,in%,ad%,nm%*1024,sc%*1024):ы#in%:in%=0:А TГos%<6:РFDCbbc:А ^Гos%=6:РFDCarc:А hГos%=32:РFDCdos:А rЯ"Unsupported":А |: ├щР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: !Nщєclean(A$):Й B%:Гos%<>32:=A$ XЦ A%=1 ╦ ╘ A$ FbB%=ї"/\?<>",аA$,A%,1)):ГB%:A$=юA$,A%-1)+а".~#{}",B%+1,1)+аA$,A%+1) lМ:=A$ 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:ЙA%,X%,Y%:Гos%<32:=(╨&FFDA)─&FF ▀ =29 : щРgbpb(A%,ch%,X%!1,X%!5,X%!9):?X%=ch%:Гos%<32:ж&FFD1:А Г(A%─1):о#?X%=X%!9 @ ГA%=1 └ A%=2:Уу#?X%,?X%!1:X%!1=X%!1+1:X%!5=X%!5-1:Щ X%!5<1:А H* Г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 Х Т ================ Р : 2Э щєNetFS_Op(A%,A$):!X%=0:X%?1=8+╘ A$:$(X%+7)=A$ DщєNetFS_OpN(A%,T%,O%,A$):!X%=0:X%?1=O%+1+╘A$:X%?7=T%:$(X%+O%)=A$ HX%!3=A%:Гos%<6:A%=&14:ж&FFF1 ▀ "XNetFS_DoFSOp",X%?3,X%+7,X%?1,X%?1 =X%?3 ЪЪ