C64 Software  <  SCA: The C64 Software Collection / SAVER.OBJ

  Run
; Load: 16384 ($4000), len: 50 ($0032) 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.