C64 Software  <  SCA: The C64 Software Collection / MAIN-CODE

  Run
; Load: 2048 ($0800), len: 460 ($01cc) bytes

0800  78          SEI
0801  A9 CA       LDA #$CA
0803  8D 14 03    STA $0314
0806  A9 08       LDA #$08
0808  8D 15 03    STA $0315
080B  A9 7F       LDA #$7F
080D  8D 0D DC    STA $DC0D
0810  A2 2E       LDX #$2E
0812  BD 9D 09    LDA $099D,X
0815  9D 00 D0    STA $D000,X
0818  CA          DEX
0819  10 F7       BPL $0812
081B  A9 96       LDA #$96
081D  8D 00 DD    STA $DD00
0820  A9 40       LDA #$40
0822  A2 7F       LDX #$7F
0824  A0 44       LDY #$44
0826  20 6D 08    JSR $086D
0829  A9 28       LDA #$28
082B  A2 83       LDX #$83
082D  A0 D8       LDY #$D8
082F  20 6D 08    JSR $086D
0832  AD 10 87    LDA $8710
0835  8D 61 D1    STA $D161
0838  A2 08       LDX #$08
083A  86 33       STX $33
083C  A9 27       LDA #$27
083E  9D F7 47    STA $47F7,X
0841  38          SEC
0842  E9 01       SBC #$01
0844  CA          DEX
0845  D0 F7       BNE $083E
0847  8A          TXA
0848  9D 00 48    STA $4800,X
084B  9D 00 49    STA $4900,X
084E  9D 00 4A    STA $4A00,X
0851  E8          INX
0852  D0 F4       BNE $0848
0854  A9 00       LDA #$00
0856  85 34       STA $34
0858  A9 0B       LDA #$0B
085A  85 35       STA $35
085C  A9 35       LDA #$35
085E  85 01       STA $01
0860  A9 00       LDA #$00
0862  20 00 AE    JSR $AE00
0865  A9 37       LDA #$37
0867  85 01       STA $01
0869  58          CLI
086A  4C 6A 08    JMP $086A
086D  85 FC       STA $FC
086F  86 FD       STX $FD
0871  84 FF       STY $FF
0873  A0 00       LDY #$00
0875  84 FE       STY $FE
0877  A2 04       LDX #$04
0879  B1 FC       LDA ($FC),Y
087B  91 FE       STA ($FE),Y
087D  C8          INY
087E  D0 F9       BNE $0879
0880  E6 FD       INC $FD
0882  E6 FF       INC $FF
0884  CA          DEX
0885  D0 F2       BNE $0879
0887  60          RTS
0888  53          ??
0889  49 44       EOR #$44
088B  45 42       EOR $42
088D  4F          ??
088E  52          ??
088F  44          ??
0890  45 52       EOR $52
0892  2D 53 43    AND $4353
0895  52          ??
0896  4F          ??
0897  4C 4C 45    JMP $454C
089A  52          ??
089B  20 43 4F    JSR $4F43
089E  44          ??
089F  45 44       EOR $44
08A1  20 31 39    JSR $3931
08A4  38          SEC
08A5  36 20       ROL $20,X
08A7  42          ??
08A8  59 20 53    EOR $5320,Y
08AB  41 54       EOR ($54,X)
08AD  55 52       EOR $52,X
08AF  4E 55 53    LSR $5355
08B2  20 54 48    JSR $4854
08B5  45 20       EOR $20
08B7  49 4E       EOR #$4E
08B9  56 49       LSR $49,X
08BB  4E 43 49    LSR $4943
08BE  42          ??
08BF  4C 45 20    JMP $2045
08C2  46 4F       LSR $4F
08C4  52          ??
08C5  20 53 43    JSR $4353
08C8  41 21       EOR ($21,X)
08CA  A9 01       LDA #$01
08CC  8D 19 D0    STA $D019
08CF  A9 00       LDA #$00
08D1  8D 21 D0    STA $D021
08D4  A9 33       LDA #$33
08D6  8D 11 D0    STA $D011
08D9  A0 04       LDY #$04
08DB  88          DEY
08DC  D0 FD       BNE $08DB
08DE  EA          NOP
08DF  A9 D8       LDA #$D8
08E1  A2 0A       LDX #$0A
08E3  CE 16 D0    DEC $D016
08E6  8D 16 D0    STA $D016
08E9  A0 05       LDY #$05
08EB  88          DEY
08EC  D0 FD       BNE $08EB
08EE  EA          NOP
08EF  C5 01       CMP $01
08F1  CA          DEX
08F2  D0 EF       BNE $08E3
08F4  A9 3B       LDA #$3B
08F6  8D 11 D0    STA $D011
08F9  20 21 09    JSR $0921
08FC  AD 11 D0    LDA $D011
08FF  29 80       AND #$80
0901  D0 F9       BNE $08FC
0903  AD 12 D0    LDA $D012
0906  C9 33       CMP #$33
0908  90 F9       BCC $0903
090A  AD 10 87    LDA $8710
090D  8D 21 D0    STA $D021
0910  A9 35       LDA #$35
0912  85 01       STA $01
0914  20 0C AE    JSR $AE0C
0917  A9 37       LDA #$37
0919  85 01       STA $01
091B  68          PLA
091C  A8          TAY
091D  68          PLA
091E  AA          TAX
091F  68          PLA
0920  40          RTI
0921  A9 1B       LDA #$1B
0923  85 32       STA $32
0925  18          CLC
0926  69 CC       ADC #$CC
0928  8D 35 09    STA $0935
092B  A9 49       LDA #$49
092D  8D 36 09    STA $0936
0930  A0 08       LDY #$08
0932  A2 02       LDX #$02
0934  3E FA FF    ROL $FFFA,X
0937  CA          DEX
0938  10 FA       BPL $0934
093A  08          PHP
093B  AD 35 09    LDA $0935
093E  38          SEC
093F  E9 40       SBC #$40
0941  8D 35 09    STA $0935
0944  B0 03       BCS $0949
0946  CE 36 09    DEC $0936
0949  28          PLP
094A  88          DEY
094B  D0 E5       BNE $0932
094D  A5 32       LDA $32
094F  38          SEC
0950  E9 03       SBC #$03
0952  10 CF       BPL $0923
0954  C6 33       DEC $33
0956  A5 33       LDA $33
0958  D0 42       BNE $099C
095A  A9 08       LDA #$08
095C  85 33       STA $33
095E  A9 1B       LDA #$1B
0960  85 37       STA $37
0962  A0 00       LDY #$00
0964  B1 34       LDA ($34),Y
0966  D0 0A       BNE $0972
0968  A9 00       LDA #$00
096A  85 34       STA $34
096C  A9 0B       LDA #$0B
096E  85 35       STA $35
0970  D0 F2       BNE $0964
0972  E6 34       INC $34
0974  D0 02       BNE $0978
0976  E6 35       INC $35
0978  0A          ASL A
0979  26 37       ROL $37
097B  0A          ASL A
097C  26 37       ROL $37
097E  0A          ASL A
097F  26 37       ROL $37
0981  85 36       STA $36
0983  A9 33       LDA #$33
0985  85 01       STA $01
0987  A2 00       LDX #$00
0989  A0 00       LDY #$00
098B  B1 36       LDA ($36),Y
098D  9D CE 49    STA $49CE,X
0990  E8          INX
0991  E8          INX
0992  E8          INX
0993  C8          INY
0994  C0 07       CPY #$07
0996  90 F3       BCC $098B
0998  A9 37       LDA #$37
099A  85 01       STA $01
099C  60          RTS
099D  00          BRK
099E  F8          SED
099F  30 F8       BMI $0999
09A1  60          RTS
09A2  F8          SED
09A3  90 F8       BCC $099D
09A5  C0 F8       CPY #$F8
09A7  F0 F8       BEQ $09A1
09A9  20 F8 50    JSR $50F8
09AC  F8          SED
09AD  C0 3B       CPY #$3B
09AF  F9 00 00    SBC $0000,Y
09B2  FF          ??
09B3  D8          CLD
09B4  00          BRK
09B5  18          CLC
09B6  01 81       ORA ($81,X)
09B8  00          BRK
09B9  00          BRK
09BA  FF          ??
09BB  00          BRK
09BC  00          BRK
09BD  00          BRK
09BE  00          BRK
09BF  00          BRK
09C0  00          BRK
09C1  00          BRK
09C2  00          BRK
09C3  00          BRK
09C4  03          ??
09C5  03          ??
09C6  03          ??
09C7  03          ??
09C8  03          ??
09C9  03          ??
09CA  03          ??
09CB  03          ??
READY.