C64 Software  <  SCA: The C64 Software Collection / STORM

  Run
; Load: 36864 ($9000), len: 2499 bytes

9000  A9 00       LDA #$00
9002  8D 16 91    STA $9116
9005  A0 23       LDY #$23
9007  A9 00       LDA #$00
9009  99 AA 90    STA $90AA,Y
900C  99 CE 90    STA $90CE,Y
900F  99 F2 90    STA $90F2,Y
9012  88          DEY
9013  10 F4       BPL $9009
9015  A8          TAY
9016  AD 70 97    LDA $9770
9019  8D AD 90    STA $90AD
901C  85 02       STA $02
901E  AD 71 97    LDA $9771
9021  8D AE 90    STA $90AE
9024  85 03       STA $03
9026  B1 02       LDA ($02),Y
9028  8D AB 90    STA $90AB
902B  C8          INY
902C  B1 02       LDA ($02),Y
902E  8D AC 90    STA $90AC
9031  88          DEY
9032  AD 72 97    LDA $9772
9035  8D D1 90    STA $90D1
9038  85 02       STA $02
903A  AD 73 97    LDA $9773
903D  8D D2 90    STA $90D2
9040  85 03       STA $03
9042  B1 02       LDA ($02),Y
9044  8D CF 90    STA $90CF
9047  C8          INY
9048  B1 02       LDA ($02),Y
904A  8D D0 90    STA $90D0
904D  88          DEY
904E  AD 74 97    LDA $9774
9051  8D F5 90    STA $90F5
9054  85 02       STA $02
9056  AD 75 97    LDA $9775
9059  8D F6 90    STA $90F6
905C  85 03       STA $03
905E  B1 02       LDA ($02),Y
9060  8D F3 90    STA $90F3
9063  C8          INY
9064  B1 02       LDA ($02),Y
9066  8D F4 90    STA $90F4
9069  C8          INY
906A  8C AF 90    STY $90AF
906D  8C D3 90    STY $90D3
9070  8C F7 90    STY $90F7
9073  88          DEY
9074  8C BA 90    STY $90BA
9077  8C DE 90    STY $90DE
907A  8C 02 91    STY $9102
907D  88          DEY
907E  8C AA 90    STY $90AA
9081  8C CE 90    STY $90CE
9084  8C F2 90    STY $90F2
9087  8C C7 90    STY $90C7
908A  8C EB 90    STY $90EB
908D  8C 0F 91    STY $910F
9090  8C CB 90    STY $90CB
9093  8C EF 90    STY $90EF
9096  8C 13 91    STY $9113
9099  20 2C 92    JSR $922C
909C  A9 0F       LDA #$0F
909E  8D 5F 96    STA $965F
90A1  A9 01       LDA #$01
90A3  8D 37 92    STA $9237
90A6  8D 16 91    STA $9116
90A9  60          RTS
90AA  00          BRK
90AB  71 98       ADC ($98),Y
90AD  76 97       ROR $97,X
90AF  1A          ??
90B0  00          BRK
90B1  00          BRK
90B2  00          BRK
90B3  00          BRK
90B4  00          BRK
90B5  00          BRK
90B6  00          BRK
90B7  00          BRK
90B8  00          BRK
90B9  00          BRK
90BA  01 02       ORA ($02,X)
90BC  21 09       AND ($09,X)
90BE  20 54 07    JSR $0754
90C1  48          PHA
90C2  08          PHP
90C3  00          BRK
90C4  02          ??
90C5  01 01       ORA ($01,X)
90C7  40          RTI
90C8  02          ??
90C9  08          PHP
90CA  64          ??
90CB  81 40       STA ($40,X)
90CD  40          RTI
90CE  10 26       BPL $90F6
90D0  99 C0 97    STA $97C0,Y
90D3  1A          ??
90D4  00          BRK
90D5  00          BRK
90D6  00          BRK
90D7  3A          ??
90D8  97          ??
90D9  3B          ??
90DA  97          ??
90DB  00          BRK
90DC  00          BRK
90DD  00          BRK
90DE  0F          ??
90DF  10 39       BPL $911A
90E1  0A          ASL A
90E2  60          RTS
90E3  60          RTS
90E4  1D 00 00    ORA $0000,X
90E7  00          BRK
90E8  00          BRK
90E9  00          BRK
90EA  00          BRK
90EB  00          BRK
90EC  00          BRK
90ED  00          BRK
90EE  00          BRK
90EF  00          BRK
90F0  10 10       BPL $9102
90F2  00          BRK
90F3  86 99       STX $99
90F5  0A          ASL A
90F6  98          TYA
90F7  0E 00 00    ASL $0000
90FA  00          BRK
90FB  5C          ??
90FC  97          ??
90FD  5E 97 00    LSR $0097,X
9100  00          BRK
9101  00          BRK
9102  0B          ??
9103  0C          ??
9104  2D 0A 40    AND $400A
9107  88          DEY
9108  0E 58 07    ASL $0758
910B  00          BRK
910C  28          PLP
910D  14          ??
910E  14          ??
910F  40          RTI
9110  01 08       ORA ($08,X)
9112  3C          ??
9113  01 40       ORA ($40,X)
9115  40          RTI
9116  01 50       ORA ($50,X)
9118  D8          CLD
9119  FF          ??
911A  60          RTS
911B  AD 16 91    LDA $9116
911E  F0 FA       BEQ $911A
9120  CE 37 92    DEC $9237
9123  D0 26       BNE $914B
9125  A9 AA       LDA #$AA
9127  85 04       STA $04
9129  A9 90       LDA #$90
912B  85 05       STA $05
912D  20 C7 93    JSR $93C7
9130  A9 CE       LDA #$CE
9132  85 04       STA $04
9134  A9 90       LDA #$90
9136  85 05       STA $05
9138  20 C7 93    JSR $93C7
913B  A9 F2       LDA #$F2
913D  85 04       STA $04
913F  A9 90       LDA #$90
9141  85 05       STA $05
9143  20 C7 93    JSR $93C7
9146  A9 05       LDA #$05
9148  8D 37 92    STA $9237
914B  A9 AA       LDA #$AA
914D  85 04       STA $04
914F  A9 90       LDA #$90
9151  85 05       STA $05
9153  20 A0 94    JSR $94A0
9156  8E BF 90    STX $90BF
9159  8C C0 90    STY $90C0
915C  A9 CE       LDA #$CE
915E  85 04       STA $04
9160  A9 90       LDA #$90
9162  85 05       STA $05
9164  20 A0 94    JSR $94A0
9167  8E E3 90    STX $90E3
916A  8C E4 90    STY $90E4
916D  A9 F2       LDA #$F2
916F  85 04       STA $04
9171  A9 90       LDA #$90
9173  85 05       STA $05
9175  20 A0 94    JSR $94A0
9178  8E 07 91    STX $9107
917B  8C 08 91    STY $9108
917E  AD BF 90    LDA $90BF
9181  8D 00 D4    STA $D400
9184  AD C0 90    LDA $90C0
9187  8D 01 D4    STA $D401
918A  AD C1 90    LDA $90C1
918D  8D 02 D4    STA $D402
9190  AD C2 90    LDA $90C2
9193  8D 03 D4    STA $D403
9196  AD BD 90    LDA $90BD
9199  8D 05 D4    STA $D405
919C  AD BE 90    LDA $90BE
919F  8D 06 D4    STA $D406
91A2  AE CD 90    LDX $90CD
91A5  AD C3 90    LDA $90C3
91A8  F0 06       BEQ $91B0
91AA  CE C3 90    DEC $90C3
91AD  8E 04 D4    STX $D404
91B0  E8          INX
91B1  8E 04 D4    STX $D404
91B4  AD E3 90    LDA $90E3
91B7  8D 07 D4    STA $D407
91BA  AD E4 90    LDA $90E4
91BD  8D 08 D4    STA $D408
91C0  AD E5 90    LDA $90E5
91C3  8D 09 D4    STA $D409
91C6  AD E6 90    LDA $90E6
91C9  8D 0A D4    STA $D40A
91CC  AD E1 90    LDA $90E1
91CF  8D 0C D4    STA $D40C
91D2  AD E2 90    LDA $90E2
91D5  8D 0D D4    STA $D40D
91D8  AE F1 90    LDX $90F1
91DB  AD E7 90    LDA $90E7
91DE  F0 06       BEQ $91E6
91E0  CE E7 90    DEC $90E7
91E3  8E 0B D4    STX $D40B
91E6  E8          INX
91E7  8E 0B D4    STX $D40B
91EA  AD 07 91    LDA $9107
91ED  8D 0E D4    STA $D40E
91F0  AD 08 91    LDA $9108
91F3  8D 0F D4    STA $D40F
91F6  AD 09 91    LDA $9109
91F9  8D 10 D4    STA $D410
91FC  AD 0A 91    LDA $910A
91FF  8D 11 D4    STA $D411
9202  AD 05 91    LDA $9105
9205  8D 13 D4    STA $D413
9208  AD 06 91    LDA $9106
920B  8D 14 D4    STA $D414
920E  AE 15 91    LDX $9115
9211  AD 0B 91    LDA $910B
9214  F0 06       BEQ $921C
9216  CE 0B 91    DEC $910B
9219  8E 12 D4    STX $D412
921C  E8          INX
921D  8E 12 D4    STX $D412
9220  AD 5F 96    LDA $965F
9223  8D 18 D4    STA $D418
9226  60          RTS
9227  A9 00       LDA #$00
9229  8D 16 91    STA $9116
922C  A2 17       LDX #$17
922E  A9 00       LDA #$00
9230  9D 00 D4    STA $D400,X
9233  CA          DEX
9234  10 FA       BPL $9230
9236  60          RTS
9237  01 C4       ORA ($C4,X)
9239  93          ??
923A  98          TYA
923B  93          ??
923C  A0 93       LDY #$93
923E  A8          TAY
923F  93          ??
9240  2C 93 24    BIT $2493
9243  93          ??
9244  8E 93 86    STX $8693
9247  93          ??
9248  CD 92 63    CMP $6392
924B  93          ??
924C  8E 92 92    STX $9292
924F  92          ??
9250  96 92       STX $92,Y
9252  9A          TXS
9253  92          ??
9254  B8          CLV
9255  93          ??
9256  AB          ??
9257  92          ??
9258  60          RTS
9259  92          ??
925A  C8          INY
925B  92          ??
925C  9E          ??
925D  92          ??
925E  A2 92       LDX #$92
9260  A0 00       LDY #$00
9262  B1 02       LDA ($02),Y
9264  48          PHA
9265  C8          INY
9266  B1 02       LDA ($02),Y
9268  48          PHA
9269  C8          INY
926A  B1 02       LDA ($02),Y
926C  48          PHA
926D  A5 02       LDA $02
926F  18          CLC
9270  69 03       ADC #$03
9272  85 02       STA $02
9274  90 02       BCC $9278
9276  E6 03       INC $03
9278  A0 20       LDY #$20
927A  68          PLA
927B  91 04       STA ($04),Y
927D  88          DEY
927E  68          PLA
927F  91 04       STA ($04),Y
9281  88          DEY
9282  68          PLA
9283  91 04       STA ($04),Y
9285  A0 21       LDY #$21
9287  A9 01       LDA #$01
9289  91 04       STA ($04),Y
928B  4C E1 93    JMP $93E1
928E  A9 80       LDA #$80
9290  D0 12       BNE $92A4
9292  A9 40       LDA #$40
9294  D0 0E       BNE $92A4
9296  A9 20       LDA #$20
9298  D0 0A       BNE $92A4
929A  A9 10       LDA #$10
929C  D0 06       BNE $92A4
929E  A9 14       LDA #$14
92A0  D0 02       BNE $92A4
92A2  A9 12       LDA #$12
92A4  A0 22       LDY #$22
92A6  91 04       STA ($04),Y
92A8  4C E1 93    JMP $93E1
92AB  A0 17       LDY #$17
92AD  A9 00       LDA #$00
92AF  91 04       STA ($04),Y
92B1  A0 00       LDY #$00
92B3  B1 02       LDA ($02),Y
92B5  A0 18       LDY #$18
92B7  91 04       STA ($04),Y
92B9  E6 02       INC $02
92BB  D0 02       BNE $92BF
92BD  E6 03       INC $03
92BF  A0 21       LDY #$21
92C1  A9 00       LDA #$00
92C3  91 04       STA ($04),Y
92C5  4C E1 93    JMP $93E1
92C8  68          PLA
92C9  68          PLA
92CA  4C 27 92    JMP $9227
92CD  A0 03       LDY #$03
92CF  B1 04       LDA ($04),Y
92D1  85 02       STA $02
92D3  C8          INY
92D4  B1 04       LDA ($04),Y
92D6  85 03       STA $03
92D8  A0 05       LDY #$05
92DA  B1 04       LDA ($04),Y
92DC  18          CLC
92DD  65 02       ADC $02
92DF  85 02       STA $02
92E1  C8          INY
92E2  B1 04       LDA ($04),Y
92E4  65 03       ADC $03
92E6  85 03       STA $03
92E8  88          DEY
92E9  B1 04       LDA ($04),Y
92EB  69 02       ADC #$02
92ED  91 04       STA ($04),Y
92EF  C8          INY
92F0  B1 04       LDA ($04),Y
92F2  69 00       ADC #$00
92F4  91 04       STA ($04),Y
92F6  A0 00       LDY #$00
92F8  B1 02       LDA ($02),Y
92FA  C8          INY
92FB  11 02       ORA ($02),Y
92FD  D0 16       BNE $9315
92FF  A0 03       LDY #$03
9301  B1 04       LDA ($04),Y
9303  85 02       STA $02
9305  C8          INY
9306  B1 04       LDA ($04),Y
9308  85 03       STA $03
930A  A0 05       LDY #$05
930C  A9 02       LDA #$02
930E  91 04       STA ($04),Y
9310  A9 00       LDA #$00
9312  C8          INY
9313  91 04       STA ($04),Y
9315  A0 00       LDY #$00
9317  B1 02       LDA ($02),Y
9319  AA          TAX
931A  C8          INY
931B  B1 02       LDA ($02),Y
931D  85 03       STA $03
931F  86 02       STX $02
9321  4C E1 93    JMP $93E1
9324  A0 00       LDY #$00
9326  B1 04       LDA ($04),Y
9328  09 20       ORA #$20
932A  D0 06       BNE $9332
932C  A0 00       LDY #$00
932E  B1 04       LDA ($04),Y
9330  09 04       ORA #$04
9332  91 04       STA ($04),Y
9334  A9 00       LDA #$00
9336  A0 07       LDY #$07
9338  91 04       STA ($04),Y
933A  C8          INY
933B  91 04       STA ($04),Y
933D  A8          TAY
933E  B1 02       LDA ($02),Y
9340  48          PHA
9341  C8          INY
9342  B1 02       LDA ($02),Y
9344  48          PHA
9345  C8          INY
9346  B1 02       LDA ($02),Y
9348  A0 0F       LDY #$0F
934A  91 04       STA ($04),Y
934C  68          PLA
934D  A0 0E       LDY #$0E
934F  91 04       STA ($04),Y
9351  88          DEY
9352  68          PLA
9353  91 04       STA ($04),Y
9355  A5 02       LDA $02
9357  18          CLC
9358  69 03       ADC #$03
935A  85 02       STA $02
935C  90 02       BCC $9360
935E  E6 03       INC $03
9360  4C E1 93    JMP $93E1
9363  A0 00       LDY #$00
9365  B1 02       LDA ($02),Y
9367  A0 1B       LDY #$1B
9369  91 04       STA ($04),Y
936B  E6 02       INC $02
936D  D0 02       BNE $9371
936F  E6 03       INC $03
9371  A0 00       LDY #$00
9373  B1 02       LDA ($02),Y
9375  A0 1A       LDY #$1A
9377  91 04       STA ($04),Y
9379  A0 1C       LDY #$1C
937B  91 04       STA ($04),Y
937D  E6 02       INC $02
937F  D0 02       BNE $9383
9381  E6 03       INC $03
9383  4C E1 93    JMP $93E1
9386  A0 00       LDY #$00
9388  B1 04       LDA ($04),Y
938A  09 80       ORA #$80
938C  91 04       STA ($04),Y
938E  A0 00       LDY #$00
9390  B1 04       LDA ($04),Y
9392  09 08       ORA #$08
9394  91 04       STA ($04),Y
9396  D0 49       BNE $93E1
9398  A0 1D       LDY #$1D
939A  A9 00       LDA #$00
939C  91 04       STA ($04),Y
939E  F0 41       BEQ $93E1
93A0  A0 1D       LDY #$1D
93A2  A9 40       LDA #$40
93A4  91 04       STA ($04),Y
93A6  D0 39       BNE $93E1
93A8  A0 00       LDY #$00
93AA  B1 02       LDA ($02),Y
93AC  8D 5F 96    STA $965F
93AF  E6 02       INC $02
93B1  D0 02       BNE $93B5
93B3  E6 03       INC $03
93B5  4C E1 93    JMP $93E1
93B8  A0 00       LDY #$00
93BA  B1 04       LDA ($04),Y
93BC  09 02       ORA #$02
93BE  09 01       ORA #$01
93C0  91 04       STA ($04),Y
93C2  D0 1D       BNE $93E1
93C4  4C FA 93    JMP $93FA
93C7  A0 10       LDY #$10
93C9  B1 04       LDA ($04),Y
93CB  38          SEC
93CC  E9 01       SBC #$01
93CE  91 04       STA ($04),Y
93D0  D0 3C       BNE $940E
93D2  A0 00       LDY #$00
93D4  91 04       STA ($04),Y
93D6  A0 01       LDY #$01
93D8  B1 04       LDA ($04),Y
93DA  85 02       STA $02
93DC  C8          INY
93DD  B1 04       LDA ($04),Y
93DF  85 03       STA $03
93E1  A0 00       LDY #$00
93E3  B1 02       LDA ($02),Y
93E5  AA          TAX
93E6  E6 02       INC $02
93E8  D0 02       BNE $93EC
93EA  E6 03       INC $03
93EC  8A          TXA
93ED  30 3E       BMI $942D
93EF  A0 19       LDY #$19
93F1  A9 01       LDA #$01
93F3  91 04       STA ($04),Y
93F5  8A          TXA
93F6  A0 12       LDY #$12
93F8  91 04       STA ($04),Y
93FA  A0 11       LDY #$11
93FC  B1 04       LDA ($04),Y
93FE  A0 10       LDY #$10
9400  91 04       STA ($04),Y
9402  A5 02       LDA $02
9404  A0 01       LDY #$01
9406  91 04       STA ($04),Y
9408  A5 03       LDA $03
940A  C8          INY
940B  91 04       STA ($04),Y
940D  60          RTS
940E  A0 00       LDY #$00
9410  B1 04       LDA ($04),Y
9412  AA          TAX
9413  29 08       AND #$08
9415  D0 01       BNE $9418
9417  60          RTS
9418  A0 12       LDY #$12
941A  8A          TXA
941B  10 08       BPL $9425
941D  B1 04       LDA ($04),Y
941F  18          CLC
9420  69 01       ADC #$01
9422  91 04       STA ($04),Y
9424  60          RTS
9425  B1 04       LDA ($04),Y
9427  38          SEC
9428  E9 01       SBC #$01
942A  91 04       STA ($04),Y
942C  60          RTS
942D  C9 B8       CMP #$B8
942F  90 5E       BCC $948F
9431  69 1F       ADC #$1F
9433  B0 33       BCS $9468
9435  69 10       ADC #$10
9437  B0 38       BCS $9471
9439  69 10       ADC #$10
943B  90 23       BCC $9460
943D  0A          ASL A
943E  AA          TAX
943F  BD 1E 97    LDA $971E,X
9442  A0 0B       LDY #$0B
9444  91 04       STA ($04),Y
9446  A0 09       LDY #$09
9448  91 04       STA ($04),Y
944A  BD 1F 97    LDA $971F,X
944D  A0 0C       LDY #$0C
944F  91 04       STA ($04),Y
9451  A0 0A       LDY #$0A
9453  91 04       STA ($04),Y
9455  A0 00       LDY #$00
9457  A9 10       LDA #$10
9459  11 04       ORA ($04),Y
945B  91 04       STA ($04),Y
945D  4C E1 93    JMP $93E1
9460  69 09       ADC #$09
9462  8D 47 91    STA $9147
9465  4C E1 93    JMP $93E1
9468  69 00       ADC #$00
946A  A0 11       LDY #$11
946C  91 04       STA ($04),Y
946E  4C E1 93    JMP $93E1
9471  A0 00       LDY #$00
9473  B1 02       LDA ($02),Y
9475  A0 13       LDY #$13
9477  91 04       STA ($04),Y
9479  A0 01       LDY #$01
947B  B1 02       LDA ($02),Y
947D  A0 14       LDY #$14
947F  91 04       STA ($04),Y
9481  A5 02       LDA $02
9483  18          CLC
9484  69 02       ADC #$02
9486  85 02       STA $02
9488  90 02       BCC $948C
948A  E6 03       INC $03
948C  4C E1 93    JMP $93E1
948F  0A          ASL A
9490  AA          TAX
9491  BD 38 92    LDA $9238,X
9494  8D 9E 94    STA $949E
9497  BD 39 92    LDA $9239,X
949A  8D 9F 94    STA $949F
949D  4C 92 92    JMP $9292
94A0  A0 12       LDY #$12
94A2  B1 04       LDA ($04),Y
94A4  AA          TAX
94A5  A0 00       LDY #$00
94A7  A9 10       LDA #$10
94A9  31 04       AND ($04),Y
94AB  F0 3B       BEQ $94E8
94AD  A0 0B       LDY #$0B
94AF  B1 04       LDA ($04),Y
94B1  85 02       STA $02
94B3  C8          INY
94B4  B1 04       LDA ($04),Y
94B6  85 03       STA $03
94B8  A0 00       LDY #$00
94BA  B1 02       LDA ($02),Y
94BC  C9 54       CMP #$54
94BE  90 0F       BCC $94CF
94C0  A0 09       LDY #$09
94C2  B1 04       LDA ($04),Y
94C4  85 02       STA $02
94C6  C8          INY
94C7  B1 04       LDA ($04),Y
94C9  85 03       STA $03
94CB  A0 00       LDY #$00
94CD  B1 02       LDA ($02),Y
94CF  8D E6 94    STA $94E6
94D2  E6 02       INC $02
94D4  D0 02       BNE $94D8
94D6  E6 03       INC $03
94D8  A5 02       LDA $02
94DA  A0 0B       LDY #$0B
94DC  91 04       STA ($04),Y
94DE  A5 03       LDA $03
94E0  C8          INY
94E1  91 04       STA ($04),Y
94E3  8A          TXA
94E4  18          CLC
94E5  69 00       ADC #$00
94E7  AA          TAX
94E8  8A          TXA
94E9  0A          ASL A
94EA  AA          TAX
94EB  BD 60 96    LDA $9660,X
94EE  85 02       STA $02
94F0  BD 61 96    LDA $9661,X
94F3  85 03       STA $03
94F5  A0 1D       LDY #$1D
94F7  B1 04       LDA ($04),Y
94F9  29 40       AND #$40
94FB  D0 03       BNE $9500
94FD  4C 89 95    JMP $9589
9500  A0 1A       LDY #$1A
9502  B1 04       LDA ($04),Y
9504  0A          ASL A
9505  8D 17 91    STA $9117
9508  A0 1D       LDY #$1D
950A  B1 04       LDA ($04),Y
950C  10 0F       BPL $951D
950E  A0 00       LDY #$00
9510  B1 04       LDA ($04),Y
9512  29 01       AND #$01
9514  F0 07       BEQ $951D
9516  A0 1C       LDY #$1C
9518  B1 04       LDA ($04),Y
951A  4C 59 95    JMP $9559
951D  A0 1D       LDY #$1D
951F  B1 04       LDA ($04),Y
9521  29 20       AND #$20
9523  D0 17       BNE $953C
9525  A0 1C       LDY #$1C
9527  B1 04       LDA ($04),Y
9529  A0 1B       LDY #$1B
952B  38          SEC
952C  F1 04       SBC ($04),Y
952E  B0 25       BCS $9555
9530  A0 1D       LDY #$1D
9532  B1 04       LDA ($04),Y
9534  09 20       ORA #$20
9536  91 04       STA ($04),Y
9538  A9 00       LDA #$00
953A  F0 19       BEQ $9555
953C  A0 1C       LDY #$1C
953E  B1 04       LDA ($04),Y
9540  A0 1B       LDY #$1B
9542  18          CLC
9543  71 04       ADC ($04),Y
9545  CD 17 91    CMP $9117
9548  90 0B       BCC $9555
954A  A0 1D       LDY #$1D
954C  B1 04       LDA ($04),Y
954E  29 DF       AND #$DF
9550  91 04       STA ($04),Y
9552  AD 17 91    LDA $9117
9555  A0 1C       LDY #$1C
9557  91 04       STA ($04),Y
9559  A0 1A       LDY #$1A
955B  38          SEC
955C  F1 04       SBC ($04),Y
955E  8D 18 91    STA $9118
9561  8A          TXA
9562  A2 00       LDX #$00
9564  B0 01       BCS $9567
9566  CA          DEX
9567  8E 19 91    STX $9119
956A  18          CLC
956B  69 A0       ADC #$A0
956D  B0 0B       BCS $957A
956F  0E 18 91    ASL $9118
9572  2E 19 91    ROL $9119
9575  18          CLC
9576  69 18       ADC #$18
9578  90 F5       BCC $956F
957A  AD 18 91    LDA $9118
957D  18          CLC
957E  65 02       ADC $02
9580  85 02       STA $02
9582  AD 19 91    LDA $9119
9585  65 03       ADC $03
9587  85 03       STA $03
9589  A0 00       LDY #$00
958B  B1 04       LDA ($04),Y
958D  49 01       EOR #$01
958F  91 04       STA ($04),Y
9591  29 24       AND #$24
9593  F0 60       BEQ $95F5
9595  AA          TAX
9596  A0 0F       LDY #$0F
9598  B1 04       LDA ($04),Y
959A  38          SEC
959B  E9 01       SBC #$01
959D  91 04       STA ($04),Y
959F  D0 54       BNE $95F5
95A1  A9 01       LDA #$01
95A3  91 04       STA ($04),Y
95A5  8A          TXA
95A6  29 04       AND #$04
95A8  D0 27       BNE $95D1
95AA  A0 0E       LDY #$0E
95AC  B1 04       LDA ($04),Y
95AE  48          PHA
95AF  88          DEY
95B0  B1 04       LDA ($04),Y
95B2  A0 07       LDY #$07
95B4  18          CLC
95B5  71 04       ADC ($04),Y
95B7  91 04       STA ($04),Y
95B9  C8          INY
95BA  68          PLA
95BB  71 04       ADC ($04),Y
95BD  91 04       STA ($04),Y
95BF  88          DEY
95C0  A5 02       LDA $02
95C2  18          CLC
95C3  71 04       ADC ($04),Y
95C5  85 02       STA $02
95C7  A5 03       LDA $03
95C9  C8          INY
95CA  71 04       ADC ($04),Y
95CC  85 03       STA $03
95CE  4C F5 95    JMP $95F5
95D1  A0 0E       LDY #$0E
95D3  B1 04       LDA ($04),Y
95D5  48          PHA
95D6  88          DEY
95D7  B1 04       LDA ($04),Y
95D9  A0 07       LDY #$07
95DB  18          CLC
95DC  71 04       ADC ($04),Y
95DE  91 04       STA ($04),Y
95E0  C8          INY
95E1  68          PLA
95E2  71 04       ADC ($04),Y
95E4  91 04       STA ($04),Y
95E6  88          DEY
95E7  A5 02       LDA $02
95E9  38          SEC
95EA  F1 04       SBC ($04),Y
95EC  85 02       STA $02
95EE  A5 03       LDA $03
95F0  C8          INY
95F1  F1 04       SBC ($04),Y
95F3  85 03       STA $03
95F5  A0 21       LDY #$21
95F7  B1 04       LDA ($04),Y
95F9  F0 42       BEQ $963D
95FB  30 20       BMI $961D
95FD  A0 20       LDY #$20
95FF  B1 04       LDA ($04),Y
9601  A0 17       LDY #$17
9603  18          CLC
9604  71 04       ADC ($04),Y
9606  91 04       STA ($04),Y
9608  C8          INY
9609  B1 04       LDA ($04),Y
960B  69 00       ADC #$00
960D  91 04       STA ($04),Y
960F  A0 1F       LDY #$1F
9611  D1 04       CMP ($04),Y
9613  D0 28       BNE $963D
9615  A0 21       LDY #$21
9617  A9 81       LDA #$81
9619  91 04       STA ($04),Y
961B  D0 20       BNE $963D
961D  A0 17       LDY #$17
961F  B1 04       LDA ($04),Y
9621  A0 20       LDY #$20
9623  38          SEC
9624  F1 04       SBC ($04),Y
9626  A0 17       LDY #$17
9628  91 04       STA ($04),Y
962A  C8          INY
962B  B1 04       LDA ($04),Y
962D  E9 00       SBC #$00
962F  91 04       STA ($04),Y
9631  A0 1E       LDY #$1E
9633  D1 04       CMP ($04),Y
9635  D0 06       BNE $963D
9637  A0 21       LDY #$21
9639  A9 01       LDA #$01
963B  91 04       STA ($04),Y
963D  A0 22       LDY #$22
963F  B1 04       LDA ($04),Y
9641  C8          INY
9642  91 04       STA ($04),Y
9644  A0 00       LDY #$00
9646  B1 04       LDA ($04),Y
9648  29 03       AND #$03
964A  C9 03       CMP #$03
964C  D0 0C       BNE $965A
964E  A5 03       LDA $03
9650  69 30       ADC #$30
9652  85 03       STA $03
9654  A0 23       LDY #$23
9656  A9 80       LDA #$80
9658  91 04       STA ($04),Y
965A  A6 02       LDX $02
965C  A4 03       LDY $03
965E  60          RTS
965F  0F          ??
9660  16 01       ASL $01,X
9662  26 01       ROL $01
9664  38          SEC
9665  01 4B       ORA ($4B,X)
9667  01 60       ORA ($60,X)
9669  01 72       ORA ($72,X)
966B  01 89       ORA ($89,X)
966D  01 A1       ORA ($A1,X)
966F  01 BB       ORA ($BB,X)
9671  01 D6       ORA ($D6,X)
9673  01 F1       ORA ($F1,X)
9675  01 0E       ORA ($0E,X)
9677  02          ??
9678  2C 02 4C    BIT $4C02
967B  02          ??
967C  70 02       BVS $9680
967E  96 02       STX $02,Y
9680  C0 02       CPY #$02
9682  E4 02       CPX $02
9684  12          ??
9685  03          ??
9686  42          ??
9687  03          ??
9688  76 03       ROR $03,X
968A  AC 03 E2    LDY $E203
968D  03          ??
968E  1C          ??
968F  04          ??
9690  58          CLI
9691  04          ??
9692  98          TYA
9693  04          ??
9694  E0 04       CPX #$04
9696  2C 05 80    BIT $8005
9699  05 C8       ORA $C8
969B  05 24       ORA $24
969D  06 84       ASL $84
969F  06 EC       ASL $EC
96A1  06 58       ASL $58
96A3  07          ??
96A4  C4 07       CPY $07
96A6  38          SEC
96A7  08          PHP
96A8  B0 08       BCS $96B2
96AA  30 09       BMI $96B5
96AC  C0 09       CPY #$09
96AE  58          CLI
96AF  0A          ASL A
96B0  00          BRK
96B1  0B          ??
96B2  90 0B       BCC $96BF
96B4  48          PHA
96B5  0C          ??
96B6  08          PHP
96B7  0D D8 0D    ORA $0DD8
96BA  B0 0E       BCS $96CA
96BC  88          DEY
96BD  0F          ??
96BE  70 10       BVS $96D0
96C0  60          RTS
96C1  11 60       ORA ($60),Y
96C3  12          ??
96C4  80          ??
96C5  13          ??
96C6  B0 14       BCS $96DC
96C8  00          BRK
96C9  16 20       ASL $20,X
96CB  17          ??
96CC  90 18       BCC $96E6
96CE  10 1A       BPL $96EA
96D0  B0 1B       BCS $96ED
96D2  60          RTS
96D3  1D 10 1F    ORA $1F10,X
96D6  E0 20       CPX #$20
96D8  C0 22       CPY #$22
96DA  C0 24       CPY #$24
96DC  00          BRK
96DD  27          ??
96DE  60          RTS
96DF  29 00       AND #$00
96E1  2C 40 2E    BIT $2E40
96E4  20 31 20    JSR $2031
96E7  34          ??
96E8  60          RTS
96E9  37          ??
96EA  C0 3A       CPY #$3A
96EC  20 3E C0    JSR $C03E
96EF  41 80       EOR ($80,X)
96F1  45 80       EOR $80
96F3  49 00       EOR #$00
96F5  4E C0 52    LSR $52C0
96F8  00          BRK
96F9  58          CLI
96FA  80          ??
96FB  5C          ??
96FC  40          RTI
96FD  62          ??
96FE  40          RTI
96FF  68          PLA
9700  C0 6E       CPY #$6E
9702  80          ??
9703  75 40       ADC $40,X
9705  7C          ??
9706  80          ??
9707  83          ??
9708  00          BRK
9709  8B          ??
970A  00          BRK
970B  93          ??
970C  00          BRK
970D  9C          ??
970E  80          ??
970F  A5 00       LDA $00
9711  B0 00       BCS $9713
9713  B9 80 C4    LDA $C480,Y
9716  80          ??
9717  D0 80       BNE $9699
9719  DD 00 EB    CMP $EB00,X
971C  80          ??
971D  F8          SED
971E  3A          ??
971F  97          ??
9720  3E 97 42    ROL $4297,X
9723  97          ??
9724  47          ??
9725  97          ??
9726  4C 97 50    JMP $5097
9729  97          ??
972A  54          ??
972B  97          ??
972C  58          CLI
972D  97          ??
972E  5C          ??
972F  97          ??
9730  5F          ??
9731  97          ??
9732  62          ??
9733  97          ??
9734  65 97       ADC $97
9736  68          PLA
9737  97          ??
9738  6B          ??
9739  97          ??
973A  00          BRK
973B  03          ??
973C  07          ??
973D  88          DEY
973E  00          BRK
973F  04          ??
9740  07          ??
9741  88          DEY
9742  00          BRK
9743  03          ??
9744  07          ??
9745  0C          ??
9746  88          DEY
9747  00          BRK
9748  04          ??
9749  07          ??
974A  0C          ??
974B  88          DEY
974C  07          ??
974D  0C          ??
974E  0F          ??
974F  88          DEY
9750  07          ??
9751  0C          ??
9752  10 88       BPL $96DC
9754  03          ??
9755  07          ??
9756  0C          ??
9757  88          DEY
9758  04          ??
9759  07          ??
975A  0C          ??
975B  88          DEY
975C  00          BRK
975D  0C          ??
975E  88          DEY
975F  00          BRK
9760  04          ??
9761  88          DEY
9762  00          BRK
9763  03          ??
9764  88          DEY
9765  00          BRK
9766  05 88       ORA $88
9768  00          BRK
9769  07          ??
976A  88          DEY
976B  00          BRK
976C  03          ??
976D  07          ??
976E  0A          ASL A
976F  88          DEY
9770  76 97       ROR $97,X
9772  C0 97       CPY #$97
9774  0A          ASL A
9775  98          TYA
9776  24 98       BIT $98
9778  24 98       BIT $98
977A  24 98       BIT $98
977C  24 98       BIT $98
977E  63          ??
977F  98          TYA
9780  8E 98 AE    STX $AE98
9783  98          TYA
9784  D9 98 63    CMP $6398,Y
9787  98          TYA
9788  8E 98 AE    STX $AE98
978B  98          TYA
978C  D9 98 63    CMP $6398,Y
978F  98          TYA
9790  8E 98 AE    STX $AE98
9793  98          TYA
9794  D9 98 63    CMP $6398,Y
9797  98          TYA
9798  8E 98 AE    STX $AE98
979B  98          TYA
979C  D9 98 63    CMP $6398,Y
979F  98          TYA
97A0  8E 98 AE    STX $AE98
97A3  98          TYA
97A4  D9 98 63    CMP $6398,Y
97A7  98          TYA
97A8  8E 98 AE    STX $AE98
97AB  98          TYA
97AC  D9 98 63    CMP $6398,Y
97AF  98          TYA
97B0  8E 98 AE    STX $AE98
97B3  98          TYA
97B4  D9 98 63    CMP $6398,Y
97B7  98          TYA
97B8  8E 98 AE    STX $AE98
97BB  98          TYA
97BC  D9 98 00    CMP $0098,Y
97BF  00          BRK
97C0  F9 98 F9    SBC $F998,Y
97C3  98          TYA
97C4  F9 98 F9    SBC $F998,Y
97C7  98          TYA
97C8  1F          ??
97C9  99 27 99    STA $9927,Y
97CC  2F          ??
97CD  99 37 99    STA $9937,Y
97D0  1F          ??
97D1  99 27 99    STA $9927,Y
97D4  2F          ??
97D5  99 37 99    STA $9937,Y
97D8  1F          ??
97D9  99 27 99    STA $9927,Y
97DC  2F          ??
97DD  99 37 99    STA $9937,Y
97E0  1F          ??
97E1  99 27 99    STA $9927,Y
97E4  2F          ??
97E5  99 37 99    STA $9937,Y
97E8  1F          ??
97E9  99 27 99    STA $9927,Y
97EC  2F          ??
97ED  99 37 99    STA $9937,Y
97F0  1F          ??
97F1  99 27 99    STA $9927,Y
97F4  2F          ??
97F5  99 37 99    STA $9937,Y
97F8  1F          ??
97F9  99 27 99    STA $9927,Y
97FC  2F          ??
97FD  99 37 99    STA $9937,Y
9800  1F          ??
9801  99 27 99    STA $9927,Y
9804  2F          ??
9805  99 37 99    STA $9937,Y
9808  00          BRK
9809  00          BRK
980A  3F          ??
980B  99 3F 99    STA $993F,Y
980E  3F          ??
980F  99 3F 99    STA $993F,Y
9812  51 99       EOR ($99),Y
9814  51 99       EOR ($99),Y
9816  78          SEI
9817  99 78 99    STA $9978,Y
981A  9B          ??
981B  99 9B 99    STA $999B,Y
981E  51 99       EOR ($99),Y
9820  51 99       EOR ($99),Y
9822  00          BRK
9823  00          BRK
9824  BC 90 02    LDY $0290,X
9827  08          PHP
9828  28          PLP
9829  89          ??
982A  02          ??
982B  04          ??
982C  82          ??
982D  D0 09       BNE $9838
982F  20 8B E1    JSR $E18B
9832  18          CLC
9833  92          ??
9834  E0 40       CPX #$40
9836  43          ??
9837  E1 8A       SBC ($8A,X)
9839  8E 3C 8B    STX $8B3C
983C  0C          ??
983D  8B          ??
983E  E1 18       SBC ($18,X)
9840  E0 0C       CPX #$0C
9842  18          CLC
9843  E1 8A       SBC ($8A,X)
9845  8E 3C 8B    STX $8B3C
9848  24 8B       BIT $8B
984A  E1 18       SBC ($18,X)
984C  92          ??
984D  E0 45       CPX #$45
984F  43          ??
9850  E1 8A       SBC ($8A,X)
9852  8E 3C 8B    STX $8B3C
9855  0C          ??
9856  8B          ??
9857  E1 18       SBC ($18,X)
9859  E0 0C       CPX #$0C
985B  18          CLC
985C  E1 8A       SBC ($8A,X)
985E  8E 3C 8B    STX $8B3C
9861  24 88       BIT $88
9863  90 02       BCC $9867
9865  08          PHP
9866  64          ??
9867  89          ??
9868  01 02       ORA ($02,X)
986A  82          ??
986B  D0 09       BNE $9876
986D  20 8B E1    JSR $E18B
9870  21 E0       AND ($E0,X)
9872  21 21       AND ($21,X)
9874  D0 09       BNE $987F
9876  00          BRK
9877  E1 8A       SBC ($8A,X)
9879  8E 3C 8B    STX $8B3C
987C  E0 21       CPX #$21
987E  28          PLP
987F  E1 21       SBC ($21,X)
9881  E0 21       CPX #$21
9883  21 D0       AND ($D0,X)
9885  09 00       ORA #$00
9887  E1 8A       SBC ($8A,X)
9889  8E 30 8E    STX $8E30
988C  24 88       BIT $88
988E  8B          ??
988F  E1 1D       SBC ($1D,X)
9891  E0 1D       CPX #$1D
9893  1D D0 09    ORA $09D0,X
9896  00          BRK
9897  E1 8A       SBC ($8A,X)
9899  8E 30 8B    STX $8B30
989C  E0 1D       CPX #$1D
989E  24 E1       BIT $E1
98A0  1D E0 1D    ORA $1DE0,X
98A3  1D D0 09    ORA $09D0,X
98A6  00          BRK
98A7  E1 8A       SBC ($8A,X)
98A9  8E 24 8E    STX $8E24
98AC  18          CLC
98AD  88          DEY
98AE  90 02       BCC $98B2
98B0  08          PHP
98B1  64          ??
98B2  89          ??
98B3  01 02       ORA ($02,X)
98B5  82          ??
98B6  D0 09       BNE $98C1
98B8  20 8B E1    JSR $E18B
98BB  18          CLC
98BC  E0 18       CPX #$18
98BE  18          CLC
98BF  D0 09       BNE $98CA
98C1  00          BRK
98C2  E1 8A       SBC ($8A,X)
98C4  8E 3C 8B    STX $8B3C
98C7  E0 18       CPX #$18
98C9  1F          ??
98CA  E1 18       SBC ($18,X)
98CC  E0 18       CPX #$18
98CE  18          CLC
98CF  D0 09       BNE $98DA
98D1  00          BRK
98D2  E1 8A       SBC ($8A,X)
98D4  8E 30 8E    STX $8E30
98D7  24 88       BIT $88
98D9  8B          ??
98DA  E1 1F       SBC ($1F,X)
98DC  E0 1F       CPX #$1F
98DE  1F          ??
98DF  D0 09       BNE $98EA
98E1  00          BRK
98E2  E1 8A       SBC ($8A,X)
98E4  8E 30 8B    STX $8B30
98E7  E0 1F       CPX #$1F
98E9  1C          ??
98EA  E1 1F       SBC ($1F,X)
98EC  E0 1F       CPX #$1F
98EE  1F          ??
98EF  D0 09       BNE $98FA
98F1  00          BRK
98F2  E1 8A       SBC ($8A,X)
98F4  8E 24 8E    STX $8E24
98F7  18          CLC
98F8  88          DEY
98F9  92          ??
98FA  D0 08       BNE $9904
98FC  00          BRK
98FD  E0 30       CPX #$30
98FF  30 30       BMI $9931
9901  3C          ??
9902  30 30       BMI $9934
9904  3C          ??
9905  30 30       BMI $9937
9907  30 30       BMI $9939
9909  30 30       BMI $993B
990B  30 30       BMI $993D
990D  3C          ??
990E  30 30       BMI $9940
9910  30 3C       BMI $994E
9912  30 30       BMI $9944
9914  3C          ??
9915  30 30       BMI $9947
9917  30 30       BMI $9949
9919  30 30       BMI $994B
991B  30 30       BMI $994D
991D  3C          ??
991E  88          DEY
991F  8D D0 0A    STA $0AD0
9922  60          RTS
9923  EF          ??
9924  C0 39       CPY #$39
9926  88          DEY
9927  8D D0 0A    STA $0AD0
992A  60          RTS
992B  EF          ??
992C  C7          ??
992D  35 88       AND $88,X
992F  8D D0 0A    STA $0AD0
9932  60          RTS
9933  EF          ??
9934  C5 30       CMP $30
9936  88          DEY
9937  8D D0 0A    STA $0AD0
993A  60          RTS
993B  EF          ??
993C  C1 37       CMP ($37,X)
993E  88          DEY
993F  8F          ??
9940  00          BRK
9941  90 01       BCC $9944
9943  08          PHP
9944  02          ??
9945  89          ??
9946  0A          ASL A
9947  14          ??
9948  82          ??
9949  8B          ??
994A  D0 8D       BNE $98D9
994C  40          RTI
994D  FF          ??
994E  C8          INY
994F  24 88       BIT $88
9951  90 01       BCC $9954
9953  08          PHP
9954  3C          ??
9955  89          ??
9956  14          ??
9957  28          PLP
9958  82          ??
9959  8B          ??
995A  D0 0A       BNE $9966
995C  40          RTI
995D  E7          ??
995E  2D E1 30    AND $30E1
9961  2F          ??
9962  2D 2B E7    AND $E72B
9965  29 E1       AND #$E1
9967  30 2F       BMI $9998
9969  2D 2B E7    AND $E72B
996C  30 E1       BMI $994F
996E  30 2F       BMI $999F
9970  2D 2B E3    AND $E32B
9973  32          ??
9974  2F          ??
9975  2D 2B 88    AND $882B
9978  90 01       BCC $997B
997A  08          PHP
997B  3C          ??
997C  89          ??
997D  14          ??
997E  28          PLP
997F  82          ??
9980  8B          ??
9981  D0 0A       BNE $998D
9983  40          RTI
9984  EB          ??
9985  2D E3 34    AND $34E3
9988  E1 32       SBC ($32,X)
998A  30 EB       BMI $9977
998C  2D E3 24    AND $24E3
998F  E1 30       SBC ($30,X)
9991  E5 30       SBC $30
9993  E3          ??
9994  30 E3       BMI $9979
9996  32          ??
9997  2F          ??
9998  2D 2B 88    AND $882B
999B  90 01       BCC $999E
999D  08          PHP
999E  3C          ??
999F  89          ??
99A0  14          ??
99A1  28          PLP
99A2  82          ??
99A3  8B          ??
99A4  D0 0A       BNE $99B0
99A6  40          RTI
99A7  E7          ??
99A8  2D E3 34    AND $34E3
99AB  E1 34       SBC ($34,X)
99AD  E3          ??
99AE  32          ??
99AF  ED 34 E3    SBC $E334
99B2  24 E1       BIT $E1
99B4  30 E5       BMI $999B
99B6  30 E1       BMI $9999
99B8  30 E5       BMI $999F
99BA  32          ??
99BB  E1 2F       SBC ($2F,X)
99BD  E5 2D       SBC $2D
99BF  E3          ??
99C0  2B          ??
99C1  88          DEY
99C2  FF          ??
READY.