ZMSAVE LDX ADDR1 LDY ADDR1+1 PLA STA :RETADR ; LOCAL BECAUSE RETADDR PLA ; IS STORED ON ZERO PAGE STA :RETADR+1 PLA STA ADDR1 PLA STA ADDR1+1 TYA ; STORE ADDR1 VALS LDY #1 ; FIRST STA (ADDR1),Y LDY #0 TXA STA (ADDR1),Y LDY #2 LDA $08 STA (ADDR1),Y INY LDA $09 STA (ADDR1),Y INY LDA $19 STA (ADDR1),Y INY LDA $1E STA (ADDR1),Y INY LDA $E3 STA (ADDR1),Y INY LDA $EB STA (ADDR1),Y INY LDA $EC STA (ADDR1),Y INY LDA $ED STA (ADDR1),Y INY LDA $EE STA (ADDR1),Y INY LDA $EF STA (ADDR1),Y INY LDA $FA STA (ADDR1),Y INY LDA $FB STA (ADDR1),Y INY LDA $FC STA (ADDR1),Y INY LDA $FD STA (ADDR1),Y INY LDA $FE STA (ADDR1),Y INY LDA $FF STA (ADDR1),Y LDA :RETADR+1 PHA LDA :RETADR PHA RTS :RETADR DS 2