PHA
TXA
PHA
TYA
PHA
TXS
TXA
PHA
PHP
LDX #0
LDA #0
LP:
STA 0,X
INX
BNE LP
LP2:
LDA $031E
BEQ LP2
TAY
SBC 13
BEQ END
TYA
TAX
LDA 0,X
ADC #1
STA 0,X
SEC
BCS LP2
END:
LDX #0
LP3:
LDA 0,X
STA $031F
INX
BNE LP3
PLP
PLA
TAX
TXS
PLA
TAY
PLA
TAX
PLA
BRK