; Load: 16384 ($4000), len: 50 bytes
4000 A0 00 LDY #$00
4002 A9 80 LDA #$80
4004 85 FE STA $FE
4006 A9 F1 LDA #$F1
4008 85 FF STA $FF
400A A9 37 LDA #$37
400C 85 01 STA $01
400E 78 SEI
400F C6 01 DEC $01
4011 C6 01 DEC $01
4013 B1 FE LDA ($FE),Y
4015 E6 01 INC $01
4017 E6 01 INC $01
4019 58 CLI
401A 20 D2 FF JSR $FFD2
401D E6 FE INC $FE
401F D0 02 BNE $4023
4021 E6 FF INC $FF
4023 A6 FF LDX $FF
4025 E8 INX
4026 D0 E6 BNE $400E
4028 A6 FE LDX $FE
402A E0 40 CPX #$40
402C D0 E0 BNE $400E
402E 60 RTS
402F 00 BRK
4030 EC 00 00 CPX $0000
READY.
