C64 Software  <  SCA: The C64 Software Collection / D3.5

  Run
; Load: 30720 ($7800), len: 512 bytes

7800  77          ??
7801  8E D5 03    STX $03D5
7804  60          RTS
7805  A2 02       LDX #$02
7807  A9 01       LDA #$01
7809  9D E4 03    STA $03E4,X
780C  BD 75 70    LDA $7075,X
780F  9D F0 03    STA $03F0,X
7812  A9 FD       LDA #$FD
7814  9D ED 03    STA $03ED,X
7817  CA          DEX
7818  10 ED       BPL $7807
781A  A2 18       LDX #$18
781C  BD 86 70    LDA $7086,X
781F  9D 00 D4    STA $D400,X
7822  CA          DEX
7823  10 F7       BPL $781C
7825  AD 7E 70    LDA $707E
7828  8D F3 03    STA $03F3
782B  AD 7F 70    LDA $707F
782E  8D F4 03    STA $03F4
7831  20 3C 79    JSR $793C
7834  60          RTS
7835  AE F8 03    LDX $03F8
7838  F0 09       BEQ $7843
783A  CA          DEX
783B  8E F8 03    STX $03F8
783E  D0 03       BNE $7843
7840  20 3C 79    JSR $793C
7843  AD F9 03    LDA $03F9
7846  38          SEC
7847  ED FA 03    SBC $03FA
784A  90 06       BCC $7852
784C  8D F9 03    STA $03F9
784F  8D 16 D4    STA $D416
7852  A2 02       LDX #$02
7854  DE E4 03    DEC $03E4,X
7857  F0 03       BEQ $785C
7859  4C DC 78    JMP $78DC
785C  BD DE 03    LDA $03DE,X
785F  85 F7       STA $F7
7861  BD E1 03    LDA $03E1,X
7864  85 F8       STA $F8
7866  A0 02       LDY #$02
7868  B1 F7       LDA ($F7),Y
786A  D0 0E       BNE $787A
786C  88          DEY
786D  B1 F7       LDA ($F7),Y
786F  D0 03       BNE $7874
7871  4C 19 79    JMP $7919
7874  20 7D 79    JSR $797D
7877  4C 5C 78    JMP $785C
787A  9D E4 03    STA $03E4,X
787D  E0 00       CPX #$00
787F  D0 0A       BNE $788B
7881  A9 0A       LDA #$0A
7883  8D FA 03    STA $03FA
7886  A9 BF       LDA #$BF
7888  8D F9 03    STA $03F9
788B  8A          TXA
788C  48          PHA
788D  2D 50 03    AND $0350
7890  D0 21       BNE $78B3
7892  BD 83 70    LDA $7083,X
7895  A8          TAY
7896  A9 00       LDA #$00
7898  99 00 D4    STA $D400,Y
789B  BD 80 70    LDA $7080,X
789E  8D A9 78    STA $78A9
78A1  A0 00       LDY #$00
78A3  B1 F7       LDA ($F7),Y
78A5  9D E7 03    STA $03E7,X
78A8  99 00 D4    STA $D400,Y
78AB  E8          INX
78AC  E8          INX
78AD  E8          INX
78AE  C8          INY
78AF  C0 02       CPY #$02
78B1  D0 F0       BNE $78A3
78B3  68          PLA
78B4  AA          TAX
78B5  A0 05       LDY #$05
78B7  B1 F7       LDA ($F7),Y
78B9  D0 03       BNE $78BE
78BB  9D F5 03    STA $03F5,X
78BE  18          CLC
78BF  BD DE 03    LDA $03DE,X
78C2  69 03       ADC #$03
78C4  9D DE 03    STA $03DE,X
78C7  90 03       BCC $78CC
78C9  FE E1 03    INC $03E1,X
78CC  8A          TXA
78CD  2D 50 03    AND $0350
78D0  D0 47       BNE $7919
78D2  BD 83 70    LDA $7083,X
78D5  A8          TAY
78D6  BD 72 70    LDA $7072,X
78D9  99 00 D4    STA $D400,Y
78DC  BD EA 03    LDA $03EA,X
78DF  F0 38       BEQ $7919
78E1  DE F0 03    DEC $03F0,X
78E4  D0 33       BNE $7919
78E6  BD 75 70    LDA $7075,X
78E9  9D F0 03    STA $03F0,X
78EC  F0 2B       BEQ $7919
78EE  8A          TXA
78EF  2D 50 03    AND $0350
78F2  D0 25       BNE $7919
78F4  BD ED 03    LDA $03ED,X
78F7  49 80       EOR #$80
78F9  9D ED 03    STA $03ED,X
78FC  8D 0A 79    STA $790A
78FF  8D 13 79    STA $7913
7902  BD 80 70    LDA $7080,X
7905  A8          TAY
7906  18          CLC
7907  BD E7 03    LDA $03E7,X
790A  FD 78 70    SBC $7078,X
790D  99 00 D4    STA $D400,Y
7910  BD EA 03    LDA $03EA,X
7913  FD 7B 70    SBC $707B,X
7916  99 01 D4    STA $D401,Y
7919  CA          DEX
791A  30 03       BMI $791F
791C  4C 54 78    JMP $7854
791F  A2 02       LDX #$02
7921  BD F5 03    LDA $03F5,X
7924  D0 15       BNE $793B
7926  CA          DEX
7927  10 F8       BPL $7921
7929  A2 02       LDX #$02
792B  38          SEC
792C  BD E4 03    LDA $03E4,X
792F  A8          TAY
7930  ED F8 03    SBC $03F8
7933  90 03       BCC $7938
7935  8C F8 03    STY $03F8
7938  CA          DEX
7939  10 F0       BPL $792B
793B  60          RTS
793C  AD F3 03    LDA $03F3
793F  85 F7       STA $F7
7941  AD F4 03    LDA $03F4
7944  85 F8       STA $F8
7946  A0 03       LDY #$03
7948  B1 F7       LDA ($F7),Y
794A  D0 03       BNE $794F
794C  4C 25 78    JMP $7825
794F  A0 05       LDY #$05
7951  B1 F7       LDA ($F7),Y
7953  99 D8 03    STA $03D8,Y
7956  88          DEY
7957  10 F8       BPL $7951
7959  18          CLC
795A  AD F3 03    LDA $03F3
795D  69 06       ADC #$06
795F  8D F3 03    STA $03F3
7962  90 03       BCC $7967
7964  EE F4 03    INC $03F4
7967  A2 02       LDX #$02
7969  20 7D 79    JSR $797D
796C  A9 01       LDA #$01
796E  9D F5 03    STA $03F5,X
7971  9D E4 03    STA $03E4,X
7974  CA          DEX
7975  10 F2       BPL $7969
7977  A9 00       LDA #$00
7979  8D F8 03    STA $03F8
797C  60          RTS
797D  BD D8 03    LDA $03D8,X
7980  9D DE 03    STA $03DE,X
7983  BD DB 03    LDA $03DB,X
7986  9D E1 03    STA $03E1,X
7989  60          RTS
798A  04          ??
798B  A2 0C       LDX #$0C
798D  D0 12       BNE $79A1
798F  E0 07       CPX #$07
7991  F0 08       BEQ $799B
7993  E0 0A       CPX #$0A
7995  F0 04       BEQ $799B
7997  E0 0B       CPX #$0B
7999  D0 04       BNE $799F
799B  A2 08       LDX #$08
799D  D0 02       BNE $79A1
799F  A2 00       LDX #$00
79A1  8E CC 03    STX $03CC
79A4  A9 6E       LDA #$6E
79A6  8D CD 03    STA $03CD
79A9  AE CB 03    LDX $03CB
79AC  D0 2A       BNE $79D8
79AE  AD 00 DC    LDA $DC00
79B1  AE CC 03    LDX $03CC
79B4  F0 09       BEQ $79BF
79B6  29 10       AND #$10
79B8  D0 1E       BNE $79D8
79BA  8D CC 03    STA $03CC
79BD  F0 19       BEQ $79D8
79BF  F5 94       SBC $94,X
79C1  4D F7 F7    EOR $F7F7
79C4  F7          ??
79C5  F7          ??
79C6  A5 D4       LDA $D4
79C8  3C          ??
79C9  2C 46 75    BIT $7546
79CC  D5 94       CMP $94,X
79CE  B2          ??
79CF  A5 D4       LDA $D4
79D1  3C          ??
79D2  2C 46 75    BIT $7546
79D5  DD 14 EF    CMP $EF14,X
79D8  1F          ??
79D9  75 38       ADC $38,X
79DB  46 3B       LSR $3B
79DD  41 1D       EOR ($1D,X)
79DF  BD 1F BD    LDA $BD1F,X
79E2  00          BRK
79E3  7D BE 9D    ADC $9DBE,X
79E6  BD C6 55    LDA $55C6,X
79E9  5D BE 6D    EOR $6DBE,X
79EC  48          PHA
79ED  14          ??
79EE  1F          ??
79EF  1F          ??
79F0  75 38       ADC $38,X
79F2  46 3B       LSR $3B
79F4  41 1D       EOR ($1D,X)
79F6  BD 1F BD    LDA $BD1F,X
79F9  00          BRK
79FA  7E BE 9D    ROR $9DBE
79FD  BD C6 55    LDA $55C6,X
READY.