#Т > BLib.GoMMC 1.01 15-Feb-2005 #Т ============================= Т GoMMC access routines (Т --------------------- 2'Т Depends: String: FNuc(), FNstr0() <: F#Т PROCmmc - Issue GoMMC command P#Т ----------------------------- ZТ action% - GoMMC action d"Т addr% - BBC memory address nТ mmc% - GoMMC address x#Т ----------------------------- ┌#щРmmc_(action%,addr%,mmc%,num%) ▄T!X%=&1212:X%!2=action%:X%?4=&01:X%!6=addr%:X%!10=mmc%:X%!14=num%:A%=&B0:ж&FFF1:А √: ═+Т FNmmc_Type - Return GoMMC object type ╙+Т ------------------------------------- ЄLщєmmc_Type(A%):ГA%<4:=а"NONEFSIMTOOLDISK",A%*4+1,4) ▀ =" "+єh0(A%,2)+" " Ў: х1Т FNmmc_Find - Find an entry in GoMMC catalog р1Т ------------------------------------------- э<Т name$ - onject name to add, can be terminated with '*' Ф1Т mem% - 64 bytes of memory for object entry ПТ З%Т Returns: 0 - Object not found 5Т <>0 - Object found, mem% contains info 1Т ------------------------------------------- щєmmc_Find(A$,mem%) "Й csz%,n%,l%,match% ,Dmem%!0=0:Рmmc_(&4003,mem%,0,64) :Т Read global catalog 6Dmem%?8=13:Г$mem%<>"GoMMCCat":=0 :Т No global catalog @@csz%=mem%!16:Гcsz%=0:=0 :Т Catalog empty J,A$=єuc(A$):ГбA$,1)="*":l%=╘A$-1 ▀ l%=255 T)n%=0:У:Рmmc_(&4003,mem%,512+64*n%,64) ^+match%=юєuc(єstr0(mem%+16)),l%)=юA$,l%) h.n%=n%+1:Щn%=csz% └ match%:Гmatch%:=n% ▀ =0 r: |/Т FNmmc_Add - Add an entry to GoMMC catalog ├/Т ----------------------------------------- ░ Т name$ - object name to add #Т size% - size of object to add єТ type% - object type ўТ subt% - object subtype ╦1Т mem% - 64 bytes of memory for object entry бТ л6Т Returns: 0 - No GoMMC catalog or catalog full ж6Т <>0 - GoMMC data address of new object Ю2Т mem% - contains object catalog info Й/Т ----------------------------------------- Т+щєmmc_Add(name$,size%,type%,subt%,mem%) ЧЙ csz%,free%,add% size%=(size%+511)─-512 Dmem%!0=0:Рmmc_(&4003,mem%,0,32) :Т Read global catalog Dmem%?8=13:Г$mem%<>"GoMMCCat":=0 :Т No global catalog &'mem%?8=0:csz%=mem%!16:free%=mem%!20 0"GoMMCCat":Я" **No global catalog**":=0 csz%=mem%!16:free%=mem%!20 іГ csz%:Ц n%=0 ╦ csz%-1:Рmmc_(&4003,mem%,512+64*n%,64):Я" "єd(n%+1,2)" "єmmc_Type(mem%?0)" "єh0(mem%?1,2)" "єh0(mem%!5,6)" "єh0(mem%!9,6)" "юєstr0(mem%+16),14)Ґ8:М *@!mem%=free%:mem%!4=(512+csz%*64+511)─-512:!mem%=!mem%-mem%!4 4Рmmc_(&0201,0,0,0) >BЯ┴4єh0(X%!7-32,6)┴2єh0(mem%!5+2,6)┴1єh0(mem%!1,6)" Free space" H =free% R: \Т Sort the GoMMC catalogue fТ ------------------------ p?Т sort% - object word to sort by, or 0 to sort by type+name z1Т mem% - 64 bytes of memory for object entry └Т ▌&Т Returns: 0 - No GoMMC catalog ≤/Т <>0 - Number of catalog entries ╒/Т ----------------------------------------- ╛щєmmc_Sort(sort%,mem%) ІЙ swap%,diff%,csz%,n% ю#mem%!0=0:Рmmc_(&4003,mem%,0,32) й#mem%?8=13:Г$mem%<>"GoMMCCat":=0 тcsz%=mem%!16:Г csz%<2:=1 чУ:swap%=0:Ц n%=0 ╦ csz%-2 ХHРmmc_(&4003,mem%+00,512+64*n%,64):Рmmc_(&4003,mem%+64,&240+64*n%,64) Р─diff%=0:Г sort%:diff%=mem%!(sort%+64)-mem%!sort% ▀ A%=0:У:diff%=mem%?A%-mem%?(A%+64):A%=A%+1:A%=A%-12*(A%=4):Щ diff% └ A%=64 ЭZГ diff%>0:Рmmc_(&4103,mem%+00,&240+64*n%,64):Рmmc_(&4103,mem%+64,512+64*n%,64):swap%=1 М n%:Щ swap%=0:=csz% : Ъ