Code:
LDX.b #End-Start-1
-
LDA.l Start,x
STA.l $7FC700,x
DEX
BPL -
LDA #$4C
STA $7F817F
LDA #$00
STA $7F8180
LDA #$C7
STA $7F8181
LDA #$DE
LDX #$C0
LDY #$DE
RTL

Start:
STA $03FD|!addr
LDA $0100|!addr
CMP #$25
BNE +
LDA $1DE9|!addr
CMP #$0C
BNE +
LDA $145B|!addr
DEC A
BNE +
INC $145B|!addr
LDA #$0B
STA $0100|!addr
LDA #$07
STA $0109|!addr
+
RTL
End:

back to listings