ô > SMList/src v0.16 ô List modules ,ô 25-Feb-1999 v0.10 JGH: Initial version (Aô 26-Feb-1999 v0.11 JGH: Copes with ANFS ROM &00,&00 sequence 2Dô and workspace areas; prdec space padded <1ô 12-Jan-2001 v0.12 JGH: Lists JSR/JMP chains F4ô 15-Jan-2001 v0.13 JGH: Remove old module links P;ô 15-Jan-2001 v0.14 JGH: See if we can list old modules ZCô 16-Jan-2001 v0.15 JGH: Use headerbase instead of headerbase-2 d;ô 28-Mar-2002 v0.16 JGH: Remove support for old modules n: x7OSASCI=&FFE3:OSWRCH=&FFEE:OSNEWL=&FFE7:OSBYTE=&FFF4 ‚!Þ mcode% &300:load%=&FFFF0900 Œlink=&A8:next=&AA:num=&AC –: ã P=0 ¸ 1 ªP%=load%:O%=mcode% ´[OPT P*2+4 ¾.TitleString È;EQUS "No. Position Name Version":EQUB 13 Ò: Ü .exec% æ;LDA #0:LDX #1:JSR OSBYTE :\ Find machine type ðATXA:BNE ListStart :\ If not Electron, X<>&00 úCLDA #&05:STA ROMSEL+1 :\ Change to Electron ROMSEL EDEC ROMTABLE+1 :\ Change to Electron ROMTABLE .ListStart LDX #0 ".ListTitleLp ,,LDA TitleString,X:JSR OSASCI:INX:CMP #13 6BNE ListTitleLp @=LDA #1:STA num :\ Start with module 1 J;LDA &F4:PHA:LDX #15 :\ Start with ROM 15 T: ^.ScanRomLoop hJSR SelectRom r .ROMTABLE |BLDA &2A1,X:€ #&C0:BNE P%+5:JMP NextRom :\ Nothing in this slot †ELDA #&00:STA link+0:LDA #&80:STA link+1 :\ Point to start of ROM : š\ Print ROM/Module header ¤.DoRomHeader ®: ¸\ Print BCD module number Â5JSR PrSpace :\ No hundreds ÌLDA num:CMP #10:BCS PrTens Ö1JSR PrSpace:BNE PrUnits :\ No tens à.PrTens ê4JSR PrTopNyb :\ Print tens ô.PrUnits þ5LDA num:JSR PrBotNyb :\ Print units 5CMP #—"9":LDA #1:BCC P%+4:LDA #6 :\ Increment num 9ADC num:STA num:JSR PrSpace :\ &x9 goes to &y0 : &3\ Convert Module header base to ROM header base 0LDA link+0:„A link+1 :OCMP #&80:BEQ PrintAddr :\ At start of ROM, use as base address DBLDY #3 :\ Offset to Service entry N.FindHeaderLp X:LDY #8:LDA (link),Y:€ #&7F:TAX :\ Get binary version H.NotDNFS R=TXA:CPX #10:BCS Binary10Plus :\ >&09, print as x.y0 \@CPX #3:BCS NotBasic:LDY #6 :\ Bugfix for BASIC 1 & 2 fGLDA (link),Y:CMP #&60:BNE NotBasic:INX :\ Basic 0 & 1 becomes 1 & 2 p .NotBasic z=TXA:ASL A:ASL A:ASL A:ASL A :\ <&0A, print as x.00 „.Binary10Plus Ž)PHA:JSR PrTopNyb:LDA #—".":JSR OSWRCH ˜9PLA:JSR PrBotNyb:LDX #3+21 :\ 3 chars printed ¢8LDA #0:BEQ ZeroAlign :\ Pad with zeros ¬: ¶2\ Version string present, tidy it and print it À.VersionString ÊJTAY:INY :\ Point to start of version string Ô"" Þ: èC\ Version string is "" (ie &00), scan back for version in title ò.VersionLookBack üLDEY:LDA (link),Y:CMP #—" " :\ Look for space before version string BNE VersionLookBack:INY : &\ We now point to a version string $.VersionStringHere .INY:INY 8LDA (link),Y:DEY B5CMP #—".":BEQ VersionDotOk :\ xx.xx -> x.xx LLDA (link),Y:DEY V4CMP #—".":BEQ VersionDotOk :\ x.xx -> x.xx `5LDA (link),Y:JSR PrChar:INY :\ xxx -> x.xx jLDA #—".":JSR PrChar t.VersionDotOk ~8JSR PrOffsetString :\ Version & Date ˆ: ’#\ Pad version number with zeros œ.ZeroAlign ¦ LDA #—"0" °CPX #25:BCS CopyrightAlign ºJSR PrChar:BNE ZeroAlign Ä: Î"\ Pad out to copyright message Ø.CopyrightAlign â*JSR PrSpace:CPX #40:BCC CopyrightAlign ì: ö\ Print copyright message JMP JSR prev.hi CMP Z2\ 1 lang.lo prev.lo LDX &01 d2\ 2 lang.hi prev.hi &F4 BEQ n3\ 3 JMP JMP JMP dist x2\ 4 next.lo next.lo next.lo RTS ‚2\ 5 next.hi next.hi next.hi NOP Œ3\ 6 type type type type –3\ 7 copy copy copy copy \ ª\ next+0 -> JSR JSR ´"\ 1 prev.lo prev.lo ¾"\ 2 prev.hi prev.hi È\ 3 JMP LDX Ò\ 4 serv.lo &F4 Ü\ 5 serv.hi JMP æ"\ 6 serv.lo ð"\ 7 serv.hi ú\ >LDY #4:LDA (link),Y:STA next+0 :\ next=>next module "INY :LDA (link),Y:STA next+1 ALDY #0:LDA (next),Y :\ Check for 'JSR prev' "ICMP #&20:BNE NextRom:LDY #3 :\ No prev link, go to next ROM ,.ModuleLink 6FLDA (next),Y:CMP #&4C:BEQ NextModule :\ 'JMP serv', module header @>INY:INY:CMP #&A6:BEQ ModuleLink :\ Step past LDX &F4 J: TM.NextRom :\ No module header, go to next ROM ^BLDX &F4:DEX:BMI P%+5:JMP ScanRomLoop :\ Loop until ROM 0 done hAPLA:TAX :\ Restore original ROM r.SelectRom |DLDA #12:JSR SelectRom2:TXA :\ Electron ROM pre-select †.SelectRom2 7STA &F4:.ROMSEL:STA &FE30:RTS :\ Select ROM š: ¤.NextModule ®ALDA next+0:STA link+0 :\ Point to this header ¸LDA next+1:STA link+1 ÂBJMP DoRomHeader :\ Jump back to print it Ì: Ö .PrTopNyb à(LSR A:LSR A:LSR A:LSR A:BPL PrBotNyb ê .PrHex ôPHA:JSR PrTopNyb:PLA þ .PrBotNyb € #15:CMP #10:BCC PrDigit ADC #6:.PrDigit ADC #48:JMP OSWRCH &: 0.PrSpace : LDA #—" " D.PrChar NINX:JMP OSWRCH X: b.PrOffsetString l0LDA (link),Y:CMP #—" ":BCC PrOffsetStringEnd v%JSR PrChar:INY:BNE PrOffsetString €.PrOffsetStringEnd ŠRTS ”: žEQUS "v0.16" ¨]í ²Eñ" *Save SMList ";~mcode%;" ";~O%;" ";~exec%„&FFFF0000;" ";~load% ÿ