C64 Software  <  SCA: The C64 Software Collection / DRIVE

  Run
; Load: 49152 ($C000), len: 316 bytes

C000  20 E7 FF    JSR $FFE7
C003  A9 02       LDA #$02
C005  A2 08       LDX #$08
C007  A8          TAY
C008  20 BA FF    JSR $FFBA
C00B  A9 01       LDA #$01
C00D  A2 68       LDX #$68
C00F  A0 C0       LDY #$C0
C011  20 BD FF    JSR $FFBD
C014  A9 00       LDA #$00
C016  20 C0 FF    JSR $FFC0
C019  A2 02       LDX #$02
C01B  20 C6 FF    JSR $FFC6
C01E  20 57 C0    JSR $C057
C021  85 AE       STA $AE
C023  20 57 C0    JSR $C057
C026  85 AF       STA $AF
C028  20 57 C0    JSR $C057
C02B  C9 BF       CMP #$BF
C02D  F0 17       BEQ $C046
C02F  20 5D C0    JSR $C05D
C032  A5 90       LDA $90
C034  F0 F2       BEQ $C028
C036  A2 02       LDX #$02
C038  20 CC FF    JSR $FFCC
C03B  A9 02       LDA #$02
C03D  20 C3 FF    JSR $FFC3
C040  20 F2 1E    JSR $1EF2
C043  4C 69 C0    JMP $C069
C046  20 57 C0    JSR $C057
C049  85 FF       STA $FF
C04B  20 57 C0    JSR $C057
C04E  20 5D C0    JSR $C05D
C051  C6 FF       DEC $FF
C053  D0 F9       BNE $C04E
C055  F0 DB       BEQ $C032
C057  20 CF FF    JSR $FFCF
C05A  49 00       EOR #$00
C05C  60          RTS
C05D  A0 00       LDY #$00
C05F  91 AE       STA ($AE),Y
C061  E6 AE       INC $AE
C063  D0 02       BNE $C067
C065  E6 AF       INC $AF
C067  60          RTS
C068  59 A0 00    EOR $00A0,Y
C06B  B9 77 C0    LDA $C077,Y
C06E  99 00 20    STA $2000,Y
C071  88          DEY
C072  D0 F7       BNE $C06B
C074  6C 6F C0    JMP ($C06F)
C077  A9 01       LDA #$01
C079  A2 08       LDX #$08
C07B  A0 0F       LDY #$0F
C07D  20 BA FF    JSR $FFBA
C080  A9 C4       LDA #$C4
C082  8D 00 FF    STA $FF00
C085  A9 03       LDA #$03
C087  A2 40       LDX #$40
C089  A0 20       LDY #$20
C08B  20 BD FF    JSR $FFBD
C08E  20 C0 FF    JSR $FFC0
C091  A9 05       LDA #$05
C093  20 77 20    JSR $2077
C096  A2 01       LDX #$01
C098  20 C6 FF    JSR $FFC6
C09B  20 CF FF    JSR $FFCF
C09E  A9 02       LDA #$02
C0A0  8D 3B 03    STA $033B
C0A3  20 CF FF    JSR $FFCF
C0A6  20 CF FF    JSR $FFCF
C0A9  20 43 20    JSR $2043
C0AC  A9 01       LDA #$01
C0AE  20 C3 FF    JSR $FFC3
C0B1  20 CC FF    JSR $FFCC
C0B4  4C 89 20    JMP $2089
C0B7  55 4A       EOR $4A,X
C0B9  0D A9 07    ORA $07A9
C0BC  48          PHA
C0BD  20 CF FF    JSR $FFCF
C0C0  38          SEC
C0C1  E9 20       SBC #$20
C0C3  18          CLC
C0C4  6D 76 20    ADC $2076
C0C7  8D 76 20    STA $2076
C0CA  68          PLA
C0CB  38          SEC
C0CC  E9 01       SBC #$01
C0CE  10 EC       BPL $C0BC
C0D0  AD 76 20    LDA $2076
C0D3  C9 F8       CMP #$F8
C0D5  F0 10       BEQ $C0E7
C0D7  C9 D2       CMP #$D2
C0D9  F0 06       BEQ $C0E1
C0DB  A9 02       LDA #$02
C0DD  8D 38 03    STA $0338
C0E0  60          RTS
C0E1  A9 01       LDA #$01
C0E3  8D 38 03    STA $0338
C0E6  60          RTS
C0E7  A9 00       LDA #$00
C0E9  8D 38 03    STA $0338
C0EC  60          RTS
C0ED  00          BRK
C0EE  48          PHA
C0EF  A2 00       LDX #$00
C0F1  A0 00       LDY #$00
C0F3  88          DEY
C0F4  D0 FD       BNE $C0F3
C0F6  CA          DEX
C0F7  D0 FA       BNE $C0F3
C0F9  68          PLA
C0FA  38          SEC
C0FB  E9 01       SBC #$01
C0FD  D0 EF       BNE $C0EE
C0FF  60          RTS
C100  A2 08       LDX #$08
C102  A9 01       LDA #$01
C104  A0 01       LDY #$01
C106  20 BA FF    JSR $FFBA
C109  AD 38 03    LDA $0338
C10C  D0 11       BNE $C11F
C10E  AD A6 02    LDA $02A6
C111  D0 0C       BNE $C11F
C113  A2 BA       LDX #$BA
C115  A0 20       LDY #$20
C117  A9 05       LDA #$05
C119  20 BD FF    JSR $FFBD
C11C  4C B1 20    JMP $20B1
C11F  A2 B9       LDX #$B9
C121  A0 20       LDY #$20
C123  A9 06       LDA #$06
C125  20 BD FF    JSR $FFBD
C128  A9 00       LDA #$00
C12A  20 D5 FF    JSR $FFD5
C12D  4C 00 40    JMP $4000
C130  50 42       BVC $C174
C132  41 53       EOR ($53,X)
C134  49 53       EOR #$53
C136  FF          ??
C137  53          ??
C138  43          ??
C139  41 38       EOR ($38,X)
C13B  35 00       AND $00,X
READY.