> SRWipe/src v1.04  Sideways RAM Clear Utility  by Gordon Horsington ( (C) The Micro User 2/ Updated for Electron compatibility by JGH <zeropage=&A8 Funits=zeropage Ptens=zeropage+1 Zpointer=&F2 dramcopy=&F4 nromselect=&FE30 xmcode%=&0900 OSARGS=&FFDA OSBYTE=&FFF4 romtype=&2A1 ! mcode% &200:load%=&FFFF0900 P=0 1 P%=load%:O%=mcode% [OPT P*2+4 .error 1BRK:EQUB 220:EQUS "Syntax: *SRWipe ":BRK : .exec% ?LDA #0:LDX #1:JSR OSBYTE :\ Find machine type ETXA:BNE CmdLine :\ If not Electron, X<>&00 GLDA #&05:STA ROMSEL+1 :\ Change to Electron ROMSEL IDEC ROMTABLE1 :\ Change to Electron ROMTABLE  .CmdLine "PLDA #1:LDX #zeropage:JSR OSARGS :\ Find command line (Y=0 from above) ,: 6LDA ramcopy:PHA @LDA (zeropage),Y JCMP #"0":BCC error TCMP #"9"+1:BCC inrange ^ #&DF hCMP #"A":BCC error r #&DF:CMP #"F"+1 |BCC inrangehex SBC #"W":BCC error : TAY:LDX #0  .findram JSR SelectRom  LDA &8008  #&AA  STA &8008  CMP &8008 BEQ foundram  .nextram INX  CPX #16 BNE findram  BEQ error  .foundram & #&AA 0 STA &8008 :DEY DBPL nextram N BMI wipe X .errorjmp b JMP error l.inrangehex v SBC #6  .inrange  #15 TAX  CMP #1  BNE wipe INY LDA (zeropage),Y  CMP #"!"  BCC wipe  CMP #"0" BCC errorjmp  CMP #"6" BCS errorjmp  #15  ADC #10  .wipe  JSR SelectRom * LDA #0 4.ROMTABLE1 >STA romtype,X HSTA zeropage+0 R LDX #&BF \STX zeropage+1 fTAY p .clear zSTA (zeropage),Y INY  BNE clear DEC zeropage+1  BMI clear :  .done -PLA:TAX :\ Restore ROM .SelectRom LDA #12:JSR SelectRom2 5TXA:STA &FF30,X :\ Enable WERAM writes .SelectRom2  STA &F4  .ROMSEL ,STA &FE30:RTS :\ Select ROM : EQUS "v1.04" $]: .E" *SAVE SRWipe ";~mcode%;" ";~O%;" ";~exec%&FFFF0000;" ";~load%