 
ô > RList/s 1ô List files in ROMs created with Micron Plus : (mcode%=&FFFF0900 2OSWRCH=&FFEE:OSNEWL=&FFE7 <: FLptr=&A8:Addr=&AA P: Zã P=0 ¸ 1 dP%=mcode% n[OPT P*3 x	.Text ‚EQUS "BAS":BRK ŒEQUS "M/C":BRK –:  .start% ªLDA &F4:PHA ´%LDX #Lptr:LDY #0:LDA #1:JSR &FFDA ¾#LDA (Lptr),Y:CMP #13:BNE GetHex ÈLDX #15:.RomLoop ÒTXA:PHA:JSR DoRom Ü(PLA:TAX:DEX:BPL RomLoop:BMI Finished æ.GetHex ð'CMP #—"A":BCC GetHex2:€ #&DF:SBC #7 ú.GetHex2:€ #15:JSR DoRom.FinishedPLA.SelectRom"STA &F4:STA &FE30,
.Empty6RTS@:J
.DoRomTJSR SelectRom^+LDA &8004:STA Addr:LDA &8005:STA Addr+1h*LDY #0:LDA (Addr),Y:CMP #&18:BNE EmptyrLDY #6:LDA (Addr),Y:TAX|ADEY:LDA (Addr),Y:STA Addr:STX Addr+1:\ Point to start of list†\ Print ROM title!LDA &F4:JSR PrHex:JSR PrSpacešLDX #0:.TitleLoop¤LDA &8009,X:BEQ TitleEnd® JSR OSWRCH:INX:BNE TitleLoop¸.TitleEndÂLDA #—":":JSR OSWRCHÌJSR OSNEWLÖ
.Loop0à
LDY #0ê
.Loop1ô(LDA (Addr),Y:BEQ ListEnd:BMI NameEndþJSR OSWRCH:INY:BNE Loop1.NameEnd!PHA:TYA:SEC:ADC Addr:STA Addr!LDA Addr+1:STA Addr+1:LDA #32&
.Loop20$JSR OSWRCH:INY:CPY #12:BCC Loop2:'PLA:€ #1:ASL A:ASL A:TAX:JSR PrMessD%JSR Pr2Space:LDY #3:JSR PrThisHexN%JSR Pr2Space:LDY #5:JSR PrThisHexX5JSR Pr2Space:LDY #0:LDA (Addr),Y:SEC:SBC Addr:TAXb#INY:LDA (Addr),Y:SBC Addr+1:TAYl9TXA:SEC:SBC #6:TAX:TYA:SBC #0:JSR PrHex:TXA:JSR PrHexv&JSR OSNEWL:LDY #0:LDA (Addr),Y:TAX€(INY:LDA (Addr),Y:STA Addr+1:STX AddrŠBNE Loop0”.ListEndž.PrMessEnd¨RTS²:¼.PrMessÆLDA Text,X:BEQ PrMessEndÐJSR OSWRCH:INX:BNE PrMessÚ:ä.PrThisHexîLDA (Addr),Y:JSR PrHexøDEY:LDA (Addr),Y:
.PrHexPHA:LSR A:LSR A:LSR A:LSR A JSR PrNybble:PLA*.PrNybble4€ #15:CMP #10:BCC PrDigit>ADC #6:.PrDigit:ADC #48HJMP OSWRCHR:\.Pr2SpacefLDA #32:JSR OSWRCHp.PrSpacezLDA #32:JMP OSWRCH„:Ž]í˜9ñ"*SAVE RList ";~mcode%;" ";~P%;" ";~start%„&FFFF0000ÿ