 
ô > ROMS/src v1.12 ô Source for *ROMS command ô 20-Feb-1991 (+ô 22-Jun-1997 v1.11 Electron compatible 2Cô 18-Jul-1997 v1.12 Default list displays version number/string <: F7OSWRCH=&FFEE:OSNEWL=&FFE7:OSARGS=&FFDA:OSBYTE=&FFF4 P7Þ mc% &200:load%=&FFFF0900:zp%=&A8:roms=&AC:flg=&AD Z: dã P=0 ¸ 1 nP%=load%:O%=mc% x[OPT P*2+4 ‚.start% Œ;LDA #0:LDX #&FF:JSR OSBYTE         :\ Find machine type –ATXA:BNE CmdLine                    :\ If not Electron, X<>&00  CLDA #&05:STA ROMSEL+1              :\ Change to Electron ROMSEL ªEDEC ROMTABLE+1:DEC ROMACTIVE+1     :\ Change to Electron ROMTABLE ´.CmdLine ¾LSTY flg:LDA #1:LDX #zp%:JSR OSARGS :\ Find command line (Y=0 from above) È
.CmdLp Ò<LDA (zp%),Y:CMP #13:BEQ CountRoms  :\ No more parameters ÜNDEC flg:BNE RomsStart              :\ Parameters present, do extended list æ: ð.CountRoms ú3TYA:DEY                         :\ A=&00, Y=&FF.CountLoopINY.ROMTABLE"<„A &2A1,Y:BEQ CountLoop        :\ Find lowest active ROM,:6.RomsStart@LSTY roms:LDA &F4:PHA:LDX #15    :\ Save current, count from 15 downwardsJPHP:SEIT.RomsLoop^6JSR SelectRom                   :\ Select this ROMhLDY #—"O"r9LDA &8008:‚ #&AA:STA &8008     :\ Modify version byte|:CMP &8008:PHP:‚ #&AA:STA &8008 :\ Restore version byte†.RomTest?LDA &8008:‚ &8008:BNE RomTest  :\ Loop until stops changingšPLP:BNE RomType:LDY #—"A"¤.RomType®LDA #—"R":JSR OSWRCH¸5TYA:JSR OSWRCH                  :\ 'ROM' or 'RAM'Â$LDA #—"M":JSR OSWRCH:JSR PrSpaceÌ TXA:JSR PrNybble:JSR PrSpaceÖ:à;STX &F5:LDX #3:LDY &8007        :\ Check for ROM headerê.CheckLpô)LDA &8000,Y:CMP Header,X:BNE NoHeaderþINY:DEX:BPL CheckLp:LDX &F5.ROMACTIVEQLDA &2A1,X:CMP #4               :\ &00=empty, &01=duplicate, &02=SRDATA/SRROMPHP:BCS RomEnabled&LDA #—"(":JSR OSWRCH0.RomEnabled::DELDY #9:SEC:JSR PrString1        :\ Print title and version stringN<LDA &7FFE,Y:€ #&F0            :\ Check if number printedX=CMP #&30:BEQ VersionDone        :\ Version string printedbJSR PrSpacel=LDA &8008:€ #&7F:LDY &8006    :\ Get version and ROM typev0CPY #&60:BNE RomVersion         :\ Not BASIC€BCMP #2:BCS RomVersion:ADC #1    :\ If 0 or 1, change to 1 or 2Š.RomVersion”8CMP #&10:BCC RomVersion2        :\ Print &0x as x.00ž8PHA:ASL A:PLA                   :\ Change &xy to &yx¨8ROL A:ROL A:ROL A:ROL A:ROL A   :\ Print &xy as x.y0².RomVersion2¼.PHA:JSR PrNybble                :\ Print xÆ-LDA #—".":JSR OSWRCH          :\ Print x.Ð/PLA:€ #&F0:JSR PrHex          :\ Print x.y0Ú.VersionDoneä:î9\ Y=>'(' of copyright string or '(' of version stringø:LDA flg:BEQ NoCopyrightString   :\ No parameters given!CPY &8007:BCS NoVersionStringCCLC:JSR PrStringSpc             :\ Print rest of version string.NoVersionString :*=LDY &8007:CLC:JSR PrStringSpc   :\ Print Copyright string4.NoCopyrightString>:HPLP:BCS NoHeaderRLDA #—")":JSR OSWRCH\.NoHeaderfJSR OSNEWL:LDX &F5pCPX roms:BEQ RomsFinishedz<DEX:JMP RomsLoop                :\ Step down to next ROM„:Ž.RomsFinished˜PLP:PLA:TAX¢.SelectRom¬1LDA #12:JSR SelectRom2 :\ Electron ROM select¶1TXA:STA &FF30,X        :\ Enable WERAM writesÀ.SelectRom2ÊSTA &F4Ô.ROMSELÞ(STA &FE30              :\ Select ROMè.ZeroEndòRTSü:.PrStringZeroBCC ZeroEnd.PrStringSpc$PHP:JSR PrSpace:PLP..PrStringLp8INYB.PrString1L6BCC PrString                 :\ CLC=&00 terminatorVLDA &8001,Y`4CMP #—"(":BEQ ZeroEnd:SEC  :\ SEC='(' terminatorj.PrStringt=LDA &8000,Y:BEQ PrStringZero :\ &00, check for terminator~PHP:CMP #—" "ˆ8BCC P%+5:JSR OSWRCH          :\ Ignore control codes’PLP:BNE PrStringLpœ:¦.PrSpace°LDA #—" ":BNE PrCharº:Ä
.PrHexÎPHA:LSR A:LSR A:LSR A:LSR AØJSR PrNybble:PLAâ.PrNybbleì$€ #15:CMP #10:BCC PrDigit:ADC #6ö.PrDigit  ADC #—"0":.PrChar:JMP OSWRCH
:.HeaderEQUS ")C(":EQUB 0(EQUS "v1.12"2]<íFAñ" *SAVE ROMS ";~mc%;" ";~O%;" ";~start%„&FFFF0000;" ";~load%ÿ