ô > ROMList : ñ (*Dir :System.ROMs 2*Access list/txt wr/r <*Spool list/txt Fî … ö:òClose_All:ñ:à P4Þ ctrl% 31,name% 80,data% 255:X%=ctrl%:Y%=X%256 Z òScan("") d *Spool n*SetType list/txt FFF x*Access list/txt r/r ‚à Œ: –ÝòScan(p$) ê num%,idx%,f$,type% ªõ ´0 f$=¤gbpb8(idx%):idx%=X%!9:ç f$<>"":òObject ¾ý f$="" Èá Ò: ÜÝòObject æ#ç f$="index/htm" „ Àf$,1)="_":á ðOtype%=¤file(f$,5):ç type%=2:ÿ"Dir "+f$:òScan(p$+À".",p$<>"")+f$):ÿ"Dir ^":á ú$ç type%<>1:á ‹ type%=X%!3 € &FFF hç type%=&FC0:in%=Ž(f$):A$=¤rd(in%):Ù#in%:in%=0:A$=ÀA$,§A$+½0,½0)-1):A%=¤file(A$,5):type%=X%!3 € &FFF ç X%!10<100 „ type%<>&BBC:á $in%=Ž(f$):mem%=data%:base%=&8000 "(ògbpb(3,in%,data%,256,base% € &3FFF) ,õ 6 òROMHeader:òROMList @ base%=data%!4 € &FFFF J6 ç ?data%=&20:ç data%?5=&4C:base%=data%!6 € &FFFF T> ç (base% € &C000)<>&8000 „ (base% € &3FFF)>¢#in%:base%=0 ^2 ç base%:ògbpb(3,in%,data%,256,base% € &3FFF) h@ ç base%:mem%=data%:ç mem%!(mem%?7)<>&29432800:mem%=data%+2 r0 ç base%:ç mem%!(mem%?7)<>&29432800:base%=0 | ý base%=0 †Ù#in%:in%=0 á š: ¤ÝòROMHeader ®ô Get ROM title: ¸FA%=9:title$="":õ:ç mem%?A%>31 € mem%?A%<127:title$=title$+½mem%?A% Â@A%=A%+1:ý mem%?A%<32 „ mem%?A%>126 „ A%>63:title$=¤s(title$) Ì#A%=A%-1:õA%=A%+1:ýmem%?(A%-1)=0 Ö: à*ô Get any embedded ROM version string: ê;ver$="":õ:ç mem%?A%>31 € mem%?A%<127:ver$=ver$+½mem%?A% ô=A%=A%+1:ý mem%?A%<32 „ mem%?A%>126 „ A%>127:ver$=¤s(ver$) þ: 0ô Get ROM language type and entry addresses: 31 € mem%?A%<127:copy$=copy$+½mem%?A% X?A%=A%+1:ý mem%?A%<32 „ mem%?A%>126 „ A%>255:copy$=¤s(copy$) bcç Àcopy$,3)<>"(C)":A%=0:õA%=A%+1:ý(Áf$,A%,1)>="0"€Áf$,A%,1)<="9")„A%>©f$:çA%<©f$:ver$=Áf$,A%,3) l: vô Validate header data: €Rç mem%!(mem%?7)<>&29432800:title$="":rtype%=0:load%=0:exec%=0:ver$="":copy$="" Š: ”$ô Try and normalise ROM version: žç ver$=copy$:ver$="" ¨version$=ver$ ²Gç ver$="":A%=§title$,"."):ver$=Átitle$,A%-1,4):title$=Àtitle$,A%-2) ¼Nç ver$="":çbase%=&8000:ç»Âf$,3)„»(Âf$,2)):ver$=Âf$,3):ç»Âf$,4):ver$=Âf$,4) Æ$ç ver$="":ver$=ÀÃ~mem%?8+"00",3) Ð(A%=§ver$," v"):ç A%=0:A%=§ver$," V") Úç A%:ver$=Áver$,A%+1) ä/ç ¤uc(Àver$,7))="VERSION":ver$=¤s(Áver$,8)) î*ç ¤uc(Àver$,2))="V.":ver$=¤s(Áver$,3)) ø)ç ¤uc(Àver$,1))="V":ver$=¤s(Áver$,2)) 7ç Àver$,1)>"9":A%=§ver$,"."):çA%:ver$=Áver$,A%-1,4) ç Àver$,1)>"9":ver$=Áver$,2) /ç Áver$,2,1)="-":ver$=Àver$,1)+"."+Áver$,3) +ç Áver$,2,1)>"9":ver$=Àver$,1)+Áver$,3) *ver$=¤s(ver$) 40ç Áver$,2,1)<>".":ver$=Àver$,1)+"."+Áver$,2) > ç ©ver$<5:ver$=Àver$+"00",4) H@ç Áver$,3,1)<"0" € Áver$,3,1)>"0":ver$=Àver$,2)+"0"+Áver$,3) R@ç Áver$,4,1)<"0" € Áver$,4,1)>"0":ver$=Àver$,3)+"0"+Áver$,3) \!copy$=Àcopy$,3)+¤s(Ácopy$,4)) f@ç ©title$<3:title$=f$:ç§"_/",Átitle$,2,1)):title$=Átitle$,3) pá z: „ ÝòROMList Ž2title$=Àtitle$,24):ñ title$;‰(24-©title$);"|"; ˜-ver$ =Àver$,4) :ñ ver$;‰(4-©ver$);"|"; ¢ A$="" ¬(ç (rtype%€&80):A$=A$+"S" ‹ A$=A$+"-" ¶(ç (rtype%€&40):A$=A$+"L" ‹ A$=A$+"-" À(ç (rtype%€&20):A$=A$+"R" ‹ A$=A$+"-" Ê(ç (rtype%€&10):A$=A$+"K" ‹ A$=A$+"-" Ô‰A$=A$+" "+Á"BASICTurbo65x2 68xx CPU4 CPU5 CPU6 PDP11Z80 32000CPU1080x86CPU12ARM CPU14CPU15",(rtype%€15)*5+1,5)+"|"+¤h0(load%,4)+"|" ÞA$=A$+¤h0(vbyte%,2)+"|" è'ç rtype%=0:A$=" | | |" ò ñ A$; ü:version$=Àversion$,18):ñ version$;‰(18-©version$);"|"; 1copy$ =Àcopy$,27):ñ copy$;‰(27-©copy$);"|"; ñ p$;".";f$;½10; ÿ "FX3,16":ñ:*FX3 $á .: 8/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " B+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " L=A$ VÝ¤uc(A$):ê B$:çA$="":="" `5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ jÝ¤lc(A$):ê B$:çA$="":="" t5õB$=B$+½(—A$„((A$<"_")€&20)):A$=ÁA$,2):ýA$="":=B$ ~#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) ˆ: ’ÝòClose_All:*Spool œ"in%=in%:çin%:A%=in%:in%=0:Ù#A% ¦'out%=out%:çout%:A%=out%:out%=0:Ù#A% °á º: ÄÝ¤rd(i%):êA$:õ Î&A%=š#i%:çA%<>10 € A%<>13:A$=A$+½A% ØýA%=10 „ A%=13 „ Å#i%:=A$ âBÝ¤file(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FF ì3Ýògbpb(A%,ch%,X%!1,X%!5,X%!9):?X%=ch%:Ö &FFD1:á öEÝ¤gbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:="" 7A%=name%+1:A%!(A%?-1)=&D20:A%?(§$A%," ")-1)=13:=$A% Ý¤fs:êA%,Y%,E%:=(º&FFDA)€&FF ÿ