> ROMList ' List entries in Acorn file header : (5 ctrl% 31,mem% 255:X%=ctrl%:Y%=X%256:name%=mem% 27idx%=0::f$=gbpb8(idx%):idx%=X%!9: f$<>"":Object < f$="": F: P Object Z file(f$,5)<>1: din%=(f$): in%=0: n'gbpb(3,in%,mem%,256,0):#in%:in%=0 xrtype%=mem%?6:rcopy%=mem%?7  mem%!rcopy%<>&29432800: f$,10);11); "&";h0(rtype%,2);" ";  rtype%128:"S"; "-";  rtype%64 :"L"; "-";  rtype%32 :"R"; "-";  rtype%16 :"E"; "-"; p" ";"BASICTurbo65x2 68xx CPU4 CPU5 CPU6 PDP11Z80 32000CPU1080x86CPU12ARM CPU14CPU15",(rtype%15)*5+1,5); num%=1:ptr%=mem%+9:  ptr%>rcopy%+mem%:num%=3 +A$=s(str(ptr%)):num%*19+7);A$,18); 'ptr%=ptr%+1:ptr%?-1=0:num%=num%+1  ptr%>rcopy%+mem%+1  (rtype%&60)<>&60:: count%=1:rtype%=rtype%15 " rtype%=7 rtype%=9:count%=2 " num%=1 count% ,num%*18-7); 6 num%=1:"Load: "; @ num%=2:"Entry: "; J""&";h0(!ptr%,8);:ptr%=ptr%+4 T num% ^: h: rBݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF |3gbpb(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% ݤstr(A%):?A%<32:="" *A$=""::A$=A$+?A%:A%=A%+1:?A%<32:=A$ #ݤh0(A%,N%)="0000000"+~A%,N%) /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$