; 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.
