C64 Software  <  SCA: The C64 Software Collection / SIDPLAYER

  Run
; Load: 16384 ($4000), len: 304 ($0130) bytes

4000  20 8E 40    JSR $408E
4003  A9 00       LDA #$00
4005  A2 00       LDX #$00
4007  A0 00       LDY #$00
4009  20 2E 41    JSR $412E
400C  20 DE 40    JSR $40DE
400F  A9 00       LDA #$00
4011  A2 00       LDX #$00
4013  A0 00       LDY #$00
4015  20 2F 41    JSR $412F
4018  AD 25 41    LDA $4125
401B  D0 EF       BNE $400C
401D  78          SEI
401E  A9 00       LDA #$00
4020  8D 1A D0    STA $D01A
4023  AD 1A D0    LDA $D01A
4026  8D 18 D4    STA $D418
4029  A9 81       LDA #$81
402B  8D 0D DC    STA $DC0D
402E  C6 01       DEC $01
4030  A2 02       LDX #$02
4032  BD 00 D0    LDA $D000,X
4035  95 00       STA $00,X
4037  E8          INX
4038  D0 F8       BNE $4032
403A  A9 37       LDA #$37
403C  85 01       STA $01
403E  A9 4B       LDA #$4B
4040  8D 05 DC    STA $DC05
4043  AD 24 41    LDA $4124
4046  58          CLI
4047  60          RTS
4048  48          PHA
4049  8A          TXA
404A  48          PHA
404B  98          TYA
404C  48          PHA
404D  AD 19 D0    LDA $D019
4050  8D 19 D0    STA $D019
4053  AE 00 DC    LDX $DC00
4056  8A          TXA
4057  29 02       AND #$02
4059  D0 10       BNE $406B
405B  AD 24 41    LDA $4124
405E  C9 FF       CMP #$FF
4060  F0 09       BEQ $406B
4062  EE 24 41    INC $4124
4065  20 02 41    JSR $4102
4068  4C 88 40    JMP $4088
406B  8A          TXA
406C  29 01       AND #$01
406E  D0 0E       BNE $407E
4070  AD 24 41    LDA $4124
4073  F0 09       BEQ $407E
4075  CE 24 41    DEC $4124
4078  20 02 41    JSR $4102
407B  4C 88 40    JMP $4088
407E  8A          TXA
407F  29 10       AND #$10
4081  D0 05       BNE $4088
4083  A9 00       LDA #$00
4085  8D 25 41    STA $4125
4088  68          PLA
4089  A8          TAY
408A  68          PLA
408B  AA          TAX
408C  68          PLA
408D  40          RTI
408E  78          SEI
408F  A9 35       LDA #$35
4091  85 01       STA $01
4093  A9 01       LDA #$01
4095  8D 0D DC    STA $DC0D
4098  AD 0D DC    LDA $DC0D
409B  A2 00       LDX #$00
409D  8A          TXA
409E  9D 18 D4    STA $D418,X
40A1  E8          INX
40A2  10 FA       BPL $409E
40A4  A9 48       LDA #$48
40A6  8D FE FF    STA $FFFE
40A9  A9 40       LDA #$40
40AB  8D FF FF    STA $FFFF
40AE  A9 1B       LDA #$1B
40B0  8D 11 D0    STA $D011
40B3  8D 12 D0    STA $D012
40B6  8D 25 41    STA $4125
40B9  A9 81       LDA #$81
40BB  8D 1A D0    STA $D01A
40BE  A9 0F       LDA #$0F
40C0  8D 18 D4    STA $D418
40C3  A9 4B       LDA #$4B
40C5  8D 24 41    STA $4124
40C8  C6 01       DEC $01
40CA  A2 02       LDX #$02
40CC  B5 00       LDA $00,X
40CE  9D 00 D0    STA $D000,X
40D1  A9 00       LDA #$00
40D3  95 00       STA $00,X
40D5  E8          INX
40D6  D0 F4       BNE $40CC
40D8  E6 01       INC $01
40DA  58          CLI
40DB  4C EC 40    JMP $40EC
40DE  AD 24 41    LDA $4124
40E1  8D 05 DC    STA $DC05
40E4  AD 0D DC    LDA $DC0D
40E7  29 01       AND #$01
40E9  F0 F9       BEQ $40E4
40EB  60          RTS
40EC  A0 1F       LDY #$1F
40EE  A9 08       LDA #$08
40F0  99 0C DA    STA $DA0C,Y
40F3  C0 19       CPY #$19
40F5  D0 02       BNE $40F9
40F7  A9 07       LDA #$07
40F9  C0 12       CPY #$12
40FB  D0 02       BNE $40FF
40FD  A9 09       LDA #$09
40FF  88          DEY
4100  10 EE       BPL $40F0
4102  AD 24 41    LDA $4124
4105  49 FF       EOR #$FF
4107  48          PHA
4108  4A          LSR A
4109  4A          LSR A
410A  4A          LSR A
410B  A0 00       LDY #$00
410D  AA          TAX
410E  F0 09       BEQ $4119
4110  A9 A0       LDA #$A0
4112  99 0C 06    STA $060C,Y
4115  C8          INY
4116  CA          DEX
4117  D0 F9       BNE $4112
4119  68          PLA
411A  29 07       AND #$07
411C  AA          TAX
411D  BD 26 41    LDA $4126,X
4120  99 0C 06    STA $060C,Y
4123  60          RTS
4124  46 01       LSR $01
4126  20 65 74    JSR $7465
4129  75 61       ADC $61,X
412B  F6 EA       INC $EA,X
412D  E7          ??
412E  60          RTS
412F  60          RTS
READY.