00:8000     18        CLC
    00:8001     fb        XCE
    00:8002     78        SEI
    00:8003     c210      REP #10
    00:8005     e220      SEP #20
    00:8007     a2ff1f    LDX #1fff
    00:800a     9a        TXS
    00:800b     a900      LDA #00
    00:800d     48        PHA
    00:800e     ab        PLB
    00:800f     a98f      LDA #8f
    00:8011     8d0021    STA !2100
    00:8014     a900      LDA #00
    00:8016     85b1      STA <b1
    00:8018     8d0042    STA !4200
    00:801b     a00020    LDY #2000
    00:801e     a20000    LDX #0000
    00:8021     a900      LDA #00
    00:8023     9500      STA <00,x
    00:8025     e8        INX
    00:8026     88        DEY
    00:8027     d0fa      BNE 8023
    00:8029     a00060    LDY #6000
    00:802c     a20000    LDX #0000
    00:802f     9f00207e  STA >7e2000,x
    00:8033     e8        INX
    00:8034     88        DEY
    00:8035     d0f8      BNE 802f
    00:8037     c220      REP #20
    00:8039     a90000    LDA #0000
    00:803c     8d6504    STA !0465
    00:803f     e220      SEP #20
    00:8041     ee250b    INC !0b25
    00:8044     a981      LDA #81
    00:8046     85b3      STA <b3
    00:8048     85b1      STA <b1
    00:804a     8d0042    STA !4200
;
    00:804d     a512      LDA <12
    00:804f     d00b      BNE 805c
    00:8051     64b7      STZ <b7
    00:8053     202e8d    JSR !8d2e
    00:8056     224ed203  JSL >03d24e
    00:805a     80f1      BRA 804d
;
    00:805c     206180    JSR !8061
    00:805f     80ec      BRA 804d
;
    00:8061     208882    JSR !8288
    00:8064     205986    JSR !8659
    00:8067     c220      REP #20
    00:8069     a90100    LDA #0001
    00:806c     0200      COP 00
    00:806e     205f82    JSR !825f
    00:8071     e220      SEP #20
    00:8073     208796    JSR !9687
    00:8076     229fca01  JSL >01ca9f
    00:807a     20e595    JSR !95e5
    00:807d     c220      REP #20
    00:807f     a98000    LDA #0080
    00:8082     8dbf02    STA !02bf
    00:8085     e220      SEP #20
    00:8087     ad9501    LDA !0195
    00:808a     2908      AND #08
    00:808c     f004      BEQ 8092
    00:808e     a902      LDA #02
    00:8090     8002      BRA 8094
    00:8092     a901      LDA #01
    00:8094     8504      STA <04
    00:8096     a981      LDA #81
    00:8098     85b1      STA <b1
    00:809a     85b3      STA <b3
    00:809c     8d0042    STA !4200
    00:809f     c220      REP #20
    00:80a1     a90000    LDA #0000
    00:80a4     0200      COP 00
    00:80a6     c220      REP #20
    00:80a8     a90000    LDA #0000
    00:80ab     0200      COP 00
    00:80ad     22078901  JSL >018907
    00:80b1     60        RTS
;
;----------------------------------------------	intsub
    00:80b2     78        SEI
    00:80b3     e220      SEP #20
    00:80b5     48        PHA
    00:80b6     afb10000  LDA >0000b1
    00:80ba     3004      BMI 80c0
    00:80bc     e6b9      INC <b9
    00:80be     68        PLA
    00:80bf     40        RTI
;
    00:80c0     68        PLA
    00:80c1     c230      REP #30
    00:80c3     0b        PHD
    00:80c4     8b        PHB
    00:80c5     48        PHA
    00:80c6     da        PHX
    00:80c7     5a        PHY
    00:80c8     a90000    LDA #0000
    00:80cb     5b        TCD
    00:80cc     e220      SEP #20
    00:80ce     48        PHA
    00:80cf     ab        PLB
    00:80d0     ad1042    LDA !4210
    00:80d3     a512      LDA <12
    00:80d5     d003      BNE 80da
    00:80d7     4cb581    JMP !81b5
    00:80da     2075ba    JSR !ba75
    00:80dd     20f18b    JSR !8bf1
    00:80e0     20a68c    JSR !8ca6
    00:80e3     20d086    JSR !86d0
    00:80e6     203a83    JSR !833a
    00:80e9     20e192    JSR !92e1
    00:80ec     20dd89    JSR !89dd
    00:80ef     200b8c    JSR !8c0b
    00:80f2     209783    JSR !8397
    00:80f5     201a88    JSR !881a
    00:80f8     20dabb    JSR !bbda
    00:80fb     c220      REP #20
    00:80fd     ad7903    LDA !0379
    00:8100     d020      BNE 8122
    00:8102     20ed88    JSR !88ed
    00:8105     204b89    JSR !894b
    00:8108     c220      REP #20
    00:810a     ad0301    LDA !0103
    00:810d     f003      BEQ 8112
    00:810f     ce0301    DEC !0103
    00:8112     ad0f01    LDA !010f
    00:8115     f003      BEQ 811a
    00:8117     ce0f01    DEC !010f
    00:811a     ad8b03    LDA !038b
    00:811d     f003      BEQ 8122
    00:811f     ce8b03    DEC !038b
    00:8122     a556      LDA <56
    00:8124     f002      BEQ 8128
    00:8126     c656      DEC <56
    00:8128     ad8d03    LDA !038d
    00:812b     f003      BEQ 8130
    00:812d     ce8d03    DEC !038d
    00:8130     2095c1    JSR !c195
    00:8133     901c      BCC 8151
    00:8135     adf10a    LDA !0af1
    00:8138     f005      BEQ 813f
    00:813a     2094c3    JSR !c394
    00:813d     8012      BRA 8151
    00:813f     209db4    JSR !b49d
    00:8142     20deb6    JSR !b6de
    00:8145     2046b1    JSR !b146
    00:8148     201eae    JSR !ae1e
    00:814b     202dab    JSR !ab2d
    00:814e     205cb0    JSR !b05c
    00:8151     204592    JSR !9245
    00:8154     20bf86    JSR !86bf
    00:8157     209592    JSR !9295
    00:815a     a5c3      LDA <c3
    00:815c     d046      BNE 81a4
    00:815e     adff01    LDA !01ff
    00:8161     d030      BNE 8193
    00:8163     a6ad      LDX <ad
    00:8165     d015      BNE 817c
    00:8167     ad1b01    LDA !011b
    00:816a     29f0ff    AND #fff0
    00:816d     d024      BNE 8193
    00:816f     3b        TSC
    00:8170     85a9      STA <a9
    00:8172     a5ab      LDA <ab
    00:8174     1b        TCS
    00:8175     a90100    LDA #0001
    00:8178     85ad      STA <ad
    00:817a     8017      BRA 8193
    00:817c     ad1b01    LDA !011b
    00:817f     29f0ff    AND #fff0
    00:8182     d007      BNE 818b
    00:8184     a5d1      LDA <d1
    00:8186     290300    AND #0003
    00:8189     d008      BNE 8193
    00:818b     64ad      STZ <ad
    00:818d     3b        TSC
    00:818e     85ab      STA <ab
    00:8190     a5a9      LDA <a9
    00:8192     1b        TCS
    00:8193     203998    JSR !9839
    00:8196     e220      SEP #20
    00:8198     a901      LDA #01
    00:819a     85b9      STA <b9
    00:819c     c230      REP #30
    00:819e     7a        PLY
    00:819f     fa        PLX
    00:81a0     68        PLA
    00:81a1     ab        PLB
    00:81a2     2b        PLD
    00:81a3     40        RTI
;
    00:81a4     203998    JSR !9839
    00:81a7     e220      SEP #20
    00:81a9     a901      LDA #01
    00:81ab     85b9      STA <b9
    00:81ad     c230      REP #30
    00:81af     7a        PLY
    00:81b0     fa        PLX
    00:81b1     68        PLA
    00:81b2     ab        PLB
    00:81b3     2b        PLD
    00:81b4     40        RTI
;
    00:81b5     e220      SEP #20
    00:81b7     a5b5      LDA <b5
    00:81b9     8d0c42    STA !420c
    00:81bc     20a68c    JSR !8ca6
    00:81bf     a516      LDA <16
    00:81c1     8d0d21    STA !210d
    00:81c4     a517      LDA <17
    00:81c6     8d0d21    STA !210d
    00:81c9     a51a      LDA <1a
    00:81cb     8d0f21    STA !210f
    00:81ce     a51b      LDA <1b
    00:81d0     8d0f21    STA !210f
    00:81d3     a51e      LDA <1e
    00:81d5     8d1121    STA !2111
    00:81d8     a51f      LDA <1f
    00:81da     8d1121    STA !2111
    00:81dd     a518      LDA <18
    00:81df     8d0e21    STA !210e
    00:81e2     a519      LDA <19
    00:81e4     8d0e21    STA !210e
    00:81e7     a51c      LDA <1c
    00:81e9     8d1021    STA !2110
    00:81ec     a51d      LDA <1d
    00:81ee     8d1021    STA !2110
    00:81f1     a520      LDA <20
    00:81f3     8d1221    STA !2112
    00:81f6     a521      LDA <21
    00:81f8     8d1221    STA !2112
    00:81fb     203a83    JSR !833a
    00:81fe     202e8d    JSR !8d2e
    00:8201     204592    JSR !9245
    00:8204     808d      BRA 8193
    00:8206     08        PHP
    00:8207     c220      REP #20
    00:8209     a90000    LDA #0000
    00:820c     0200      COP 00
    00:820e     28        PLP
    00:820f     6b        RTL
;
    00:8210     40        RTI
;
;
    00:8211     58        CLI
    00:8212     8b        PHB
    00:8213     f40000    PEA 0000
    00:8216     ab        PLB
    00:8217     ab        PLB
    00:8218     c220      REP #20
    00:821a     c210      REP #10
    00:821c     0a        ASL A
    00:821d     aa        TAX
    00:821e     fc2382    JSR (!8223,x)
    00:8221     ab        PLB
    00:8222     40        RTI
;
;
    00:8223     d692      DEC <92,x
    00:8225     6d8672    ADC !7286
    00:8228     8e0c8e    STX !8e0c
    00:822b     3e8ed6    ROL !d68e,x
    00:822e     92d6      STA (<d6)
    00:8230     9242      STA (<42)
    00:8232     94a6      STY <a6,x
    00:8234     904b      BCC 8281
    00:8236     8f918640  STA >408691
    00:823a     203e82    JSR !823e
    00:823d     6b        RTL
    00:823e     c220      REP #20
    00:8240     a5c7      LDA <c7
    00:8242     8559      STA <59
    00:8244     1a        INC A
    00:8245     855b      STA <5b
    00:8247     1a        INC A
    00:8248     855d      STA <5d
    00:824a     60        RTS
    00:824b     204f82    JSR !824f
    00:824e     6b        RTL
    00:824f     c220      REP #20
    00:8251     18        CLC
    00:8252     a559      LDA <59
    00:8254     855d      STA <5d
    00:8256     655b      ADC <5b
    00:8258     8559      STA <59
    00:825a     655d      ADC <5d
    00:825c     855b      STA <5b
    00:825e     60        RTS
    00:825f     e220      SEP #20
    00:8261     c210      REP #10
    00:8263     a903      LDA #03
    00:8265     8d7f1f    STA !1f7f
    00:8268     a980      LDA #80
    00:826a     8d7e1f    STA !1f7e
    00:826d     a900      LDA #00
    00:826f     8d7d1f    STA !1f7d
    00:8272     a900      LDA #00
    00:8274     8d7c1f    STA !1f7c
    00:8277     a2ff1e    LDX #1eff
    00:827a     8e7a1f    STX !1f7a
    00:827d     a2721f    LDX #1f72
    00:8280     86ab      STX <ab
    00:8282     a20000    LDX #0000
    00:8285     86ad      STX <ad
    00:8287     60        RTS
    00:8288     e220      SEP #20
    00:828a     e210      SEP #10
    00:828c     a98f      LDA #8f
    00:828e     8d0021    STA !2100
    00:8291     a903      LDA #03
    00:8293     8560      STA <60
    00:8295     a909      LDA #09
    00:8297     8561      STA <61
    00:8299     a958      LDA #58
    00:829b     8562      STA <62
    00:829d     a95c      LDA #5c
    00:829f     8563      STA <63
    00:82a1     a954      LDA #54
    00:82a3     8564      STA <64
    00:82a5     6465      STZ <65
    00:82a7     a900      LDA #00
    00:82a9     8566      STA <66
    00:82ab     a904      LDA #04
    00:82ad     8567      STA <67
    00:82af     a980      LDA #80
    00:82b1     8d1521    STA !2115
    00:82b4     a900      LDA #00
    00:82b6     8d1a21    STA !211a
    00:82b9     8d1b21    STA !211b
    00:82bc     a901      LDA #01
    00:82be     8d1b21    STA !211b
    00:82c1     9c1c21    STZ !211c
    00:82c4     9c1c21    STZ !211c
    00:82c7     9c1d21    STZ !211d
    00:82ca     9c1d21    STZ !211d
    00:82cd     9c1e21    STZ !211e
    00:82d0     8d1e21    STA !211e
    00:82d3     a900      LDA #00
    00:82d5     8d1f21    STA !211f
    00:82d8     8d1f21    STA !211f
    00:82db     8d2021    STA !2120
    00:82de     8d2021    STA !2120
    00:82e1     a900      LDA #00
    00:82e3     8571      STA <71
    00:82e5     8572      STA <72
    00:82e7     8d2621    STA !2126
    00:82ea     8d2721    STA !2127
    00:82ed     8d2921    STA !2129
    00:82f0     a917      LDA #17
    00:82f2     8568      STA <68
    00:82f4     6469      STZ <69
    00:82f6     646a      STZ <6a
    00:82f8     646b      STZ <6b
    00:82fa     9c3321    STZ !2133
    00:82fd     646c      STZ <6c
    00:82ff     646d      STZ <6d
    00:8301     646e      STZ <6e
    00:8303     646f      STZ <6f
    00:8305     6470      STZ <70
    00:8307     9c2b21    STZ !212b
    00:830a     64b1      STZ <b1
    00:830c     64b3      STZ <b3
    00:830e     a9ff      LDA #ff
    00:8310     8d0142    STA !4201
    00:8313     a900      LDA #00
    00:8315     8d0242    STA !4202
    00:8318     8d0342    STA !4203
    00:831b     8d0442    STA !4204
    00:831e     8d0542    STA !4205
    00:8321     8d0642    STA !4206
    00:8324     8d0742    STA !4207
    00:8327     8d0842    STA !4208
    00:832a     8d0942    STA !4209
    00:832d     8d0a42    STA !420a
    00:8330     8d0b42    STA !420b
    00:8333     8d0c42    STA !420c
    00:8336     9c0d42    STZ !420d
    00:8339     60        RTS
    00:833a     e220      SEP #20
    00:833c     c210      REP #10
    00:833e     a65f      LDX <5f
    00:8340     8e0021    STX !2100
    00:8343     a561      LDA <61
    00:8345     8d0521    STA !2105
    00:8348     a662      LDX <62
    00:834a     8e0721    STX !2107
    00:834d     a664      LDX <64
    00:834f     8e0921    STX !2109
    00:8352     a666      LDX <66
    00:8354     8e0b21    STX !210b
    00:8357     a668      LDX <68
    00:8359     8e2c21    STX !212c
    00:835c     a66a      LDX <6a
    00:835e     8e2e21    STX !212e
    00:8361     a66c      LDX <6c
    00:8363     8e3021    STX !2130
    00:8366     a56e      LDA <6e
    00:8368     8d3221    STA !2132
    00:836b     a56f      LDA <6f
    00:836d     8d2521    STA !2125
    00:8370     a570      LDA <70
    00:8372     8d2a21    STA !212a
    00:8375     a671      LDX <71
    00:8377     8e2321    STX !2123
    00:837a     ad9b01    LDA !019b
    00:837d     d00d      BNE 838c
    00:837f     a5d7      LDA <d7
    00:8381     3013      BMI 8396
    00:8383     c901      CMP #01
    00:8385     f00f      BEQ 8396
    00:8387     ad7903    LDA !0379
    00:838a     d00a      BNE 8396
    00:838c     a900      LDA #00
    00:838e     8d2821    STA !2128
    00:8391     a9f7      LDA #f7
    00:8393     8d2921    STA !2129
    00:8396     60        RTS
    00:8397     c220      REP #20
    00:8399     ad9b01    LDA !019b
    00:839c     d01a      BNE 83b8
    00:839e     a5d7      LDA <d7
    00:83a0     300a      BMI 83ac
    00:83a2     c90100    CMP #0001
    00:83a5     f005      BEQ 83ac
    00:83a7     ad7903    LDA !0379
    00:83aa     f001      BEQ 83ad
    00:83ac     60        RTS
    00:83ad     e220      SEP #20
    00:83af     a90c      LDA #0c
    00:83b1     8571      STA <71
    00:83b3     a901      LDA #01
    00:83b5     856a      STA <6a
    00:83b7     60        RTS
    00:83b8     e220      SEP #20
    00:83ba     a90e      LDA #0e
    00:83bc     8571      STA <71
    00:83be     a907      LDA #07
    00:83c0     856a      STA <6a
    00:83c2     60        RTS
    00:83c3     20c783    JSR !83c7
    00:83c6     6b        RTL
    00:83c7     c220      REP #20
    00:83c9     a95001    LDA #0150
    00:83cc     8d5302    STA !0253
    00:83cf     a9bc01    LDA #01bc
    00:83d2     8d5902    STA !0259
    00:83d5     c220      REP #20
    00:83d7     a90a00    LDA #000a
    00:83da     0200      COP 00
    00:83dc     204984    JSR !8449
    00:83df     c220      REP #20
    00:83e1     9c0804    STZ !0408
    00:83e4     60        RTS
    00:83e5     204984    JSR !8449
    00:83e8     c220      REP #20
    00:83ea     a92801    LDA #0128
    00:83ed     8d5302    STA !0253
    00:83f0     a9bc01    LDA #01bc
    00:83f3     8d5902    STA !0259
    00:83f6     c220      REP #20
    00:83f8     a90a00    LDA #000a
    00:83fb     0200      COP 00
    00:83fd     c220      REP #20
    00:83ff     9c0804    STZ !0408
    00:8402     60        RTS
    00:8403     200784    JSR !8407
    00:8406     6b        RTL
    00:8407     c220      REP #20
    00:8409     a90001    LDA #0100
    00:840c     8d5302    STA !0253
    00:840f     a9bc01    LDA #01bc
    00:8412     8d5902    STA !0259
    00:8415     c220      REP #20
    00:8417     a90a00    LDA #000a
    00:841a     0200      COP 00
    00:841c     204984    JSR !8449
    00:841f     c220      REP #20
    00:8421     9c0804    STZ !0408
    00:8424     60        RTS
    00:8425     202984    JSR !8429
    00:8428     6b        RTL
    00:8429     60        RTS
    00:842a     204984    JSR !8449
    00:842d     6b        RTL
    00:842e     204984    JSR !8449
    00:8431     6b        RTL
    00:8432     203684    JSR !8436
    00:8435     6b        RTL
    00:8436     c220      REP #20
    00:8438     ad9a0b    LDA !0b9a
    00:843b     cd9e0b    CMP !0b9e
    00:843e     d009      BNE 8449
    00:8440     ad9c0b    LDA !0b9c
    00:8443     cda00b    CMP !0ba0
    00:8446     d001      BNE 8449
    00:8448     60        RTS
    00:8449     add701    LDA !01d7
    00:844c     f05a      BEQ 84a8
    00:844e     c220      REP #20
    00:8450     ad9a0b    LDA !0b9a
    00:8453     8d9e0b    STA !0b9e
    00:8456     ad9c0b    LDA !0b9c
    00:8459     8da00b    STA !0ba0
    00:845c     a96c00    LDA #006c
    00:845f     8d5302    STA !0253
    00:8462     9c5d02    STZ !025d
    00:8465     9c5f02    STZ !025f
    00:8468     a90700    LDA #0007
    00:846b     8d6102    STA !0261
    00:846e     c220      REP #20
    00:8470     a90200    LDA #0002
    00:8473     0200      COP 00
    00:8475     e220      SEP #20
    00:8477     c210      REP #10
    00:8479     a29a0b    LDX #0b9a
    00:847c     20b88f    JSR !8fb8
    00:847f     a20000    LDX #0000
    00:8482     9b        TXY
    00:8483     647f      STZ <7f
    00:8485     5a        PHY
    00:8486     b97900    LDA !0079,y
    00:8489     057f      ORA <7f
    00:848b     f010      BEQ 849d
    00:848d     a900      LDA #00
    00:848f     eb        XBA
    00:8490     b97900    LDA !0079,y
    00:8493     a8        TAY
    00:8494     b9aa85    LDA !85aa,y
    00:8497     9f72207e  STA >7e2072,x
    00:849b     e67f      INC <7f
    00:849d     e8        INX
    00:849e     e8        INX
    00:849f     e8        INX
    00:84a0     e8        INX
    00:84a1     7a        PLY
    00:84a2     c8        INY
    00:84a3     c00600    CPY #0006
    00:84a6     d0dd      BNE 8485
    00:84a8     60        RTS
    00:84a9     20ad84    JSR !84ad
    00:84ac     6b        RTL
    00:84ad     c220      REP #20
    00:84af     9cb60b    STZ !0bb6
    00:84b2     a90100    LDA #0001
    00:84b5     8d0804    STA !0408
    00:84b8     a91000    LDA #0010
    00:84bb     8d5302    STA !0253
    00:84be     9c5d02    STZ !025d
    00:84c1     9c5f02    STZ !025f
    00:84c4     a90800    LDA #0008
    00:84c7     8d6102    STA !0261
    00:84ca     c220      REP #20
    00:84cc     a90200    LDA #0002
    00:84cf     0200      COP 00
    00:84d1     e220      SEP #20
    00:84d3     c210      REP #10
    00:84d5     a2a20b    LDX #0ba2
    00:84d8     20b88f    JSR !8fb8
    00:84db     a20000    LDX #0000
    00:84de     9b        TXY
    00:84df     647f      STZ <7f
    00:84e1     5a        PHY
    00:84e2     b97900    LDA !0079,y
    00:84e5     057f      ORA <7f
    00:84e7     f010      BEQ 84f9
    00:84e9     a900      LDA #00
    00:84eb     eb        XBA
    00:84ec     b97900    LDA !0079,y
    00:84ef     a8        TAY
    00:84f0     b9aa85    LDA !85aa,y
    00:84f3     9f56207e  STA >7e2056,x
    00:84f7     e67f      INC <7f
    00:84f9     e8        INX
    00:84fa     e8        INX
    00:84fb     e8        INX
    00:84fc     e8        INX
    00:84fd     7a        PLY
    00:84fe     c8        INY
    00:84ff     c00600    CPY #0006
    00:8502     d0dd      BNE 84e1
    00:8504     e220      SEP #20
    00:8506     c210      REP #10
    00:8508     ae500b    LDX !0b50
    00:850b     867f      STX <7f
    00:850d     6481      STZ <81
    00:850f     a27f00    LDX #007f
    00:8512     20b88f    JSR !8fb8
    00:8515     a00000    LDY #0000
    00:8518     bb        TYX
    00:8519     647f      STZ <7f
    00:851b     5a        PHY
    00:851c     b97b00    LDA !007b,y
    00:851f     057f      ORA <7f
    00:8521     f010      BEQ 8533
    00:8523     a900      LDA #00
    00:8525     eb        XBA
    00:8526     b97b00    LDA !007b,y
    00:8529     a8        TAY
    00:852a     b9aa85    LDA !85aa,y
    00:852d     9f2e207e  STA >7e202e,x
    00:8531     e67f      INC <7f
    00:8533     7a        PLY
    00:8534     e8        INX
    00:8535     e8        INX
    00:8536     e8        INX
    00:8537     e8        INX
    00:8538     c8        INY
    00:8539     c00400    CPY #0004
    00:853c     d0dd      BNE 851b
    00:853e     e220      SEP #20
    00:8540     c210      REP #10
    00:8542     ae520b    LDX !0b52
    00:8545     867f      STX <7f
    00:8547     6481      STZ <81
    00:8549     a27f00    LDX #007f
    00:854c     20b88f    JSR !8fb8
    00:854f     a20000    LDX #0000
    00:8552     a00000    LDY #0000
    00:8555     647f      STZ <7f
    00:8557     5a        PHY
    00:8558     b97d00    LDA !007d,y
    00:855b     057f      ORA <7f
    00:855d     f010      BEQ 856f
    00:855f     a900      LDA #00
    00:8561     eb        XBA
    00:8562     b97d00    LDA !007d,y
    00:8565     a8        TAY
    00:8566     b9aa85    LDA !85aa,y
    00:8569     9f42207e  STA >7e2042,x
    00:856d     e67f      INC <7f
    00:856f     7a        PLY
    00:8570     e8        INX
    00:8571     e8        INX
    00:8572     e8        INX
    00:8573     e8        INX
    00:8574     c8        INY
    00:8575     c00200    CPY #0002
    00:8578     d0dd      BNE 8557
    00:857a     aeb80b    LDX !0bb8
    00:857d     bd9985    LDA !8599,x
    00:8580     8f21207e  STA >7e2021
    00:8584     aeba0b    LDX !0bba
    00:8587     bd9985    LDA !8599,x
    00:858a     8f25207e  STA >7e2025
    00:858e     aebc0b    LDX !0bbc
    00:8591     bd9985    LDA !8599,x
    00:8594     8f29207e  STA >7e2029
    00:8598     60        RTS
    00:8599     1e1d1c    ASL !1c1d,x
    00:859c     1b        TCS
    00:859d     1a        INC A
    00:859e     191817    ORA !1718,y
    00:85a1     1615      ASL <15,x
    00:85a3     1413      TRB <13
    00:85a5     1211      ORA (<11)
    00:85a7     100f      BPL 85b8
    00:85a9     0e6061    ASL !6160
    00:85ac     626364    PER 6463
    00:85af     7071      BVS 8622
    00:85b1     7273      ADC (<73)
    00:85b3     74e2      STZ <e2,x
    00:85b5     20c210    JSR !10c2
    00:85b8     a5d7      LDA <d7
    00:85ba     c901      CMP #01
    00:85bc     f001      BEQ 85bf
    00:85be     6b        RTL
    00:85bf     adb60b    LDA !0bb6
    00:85c2     f0fa      BEQ 85be
    00:85c4     9cb60b    STZ !0bb6
    00:85c7     a2a20b    LDX #0ba2
    00:85ca     20b88f    JSR !8fb8
    00:85cd     a20000    LDX #0000
    00:85d0     9b        TXY
    00:85d1     647f      STZ <7f
    00:85d3     5a        PHY
    00:85d4     c00500    CPY #0005
    00:85d7     f00e      BEQ 85e7
    00:85d9     b97900    LDA !0079,y
    00:85dc     057f      ORA <7f
    00:85de     d007      BNE 85e7
    00:85e0     c220      REP #20
    00:85e2     a9b524    LDA #24b5
    00:85e5     800d      BRA 85f4
    00:85e7     c220      REP #20
    00:85e9     e67f      INC <7f
    00:85eb     b97900    LDA !0079,y
    00:85ee     290f00    AND #000f
    00:85f1     09a028    ORA #28a0
    00:85f4     9fec387e  STA >7e38ec,x
    00:85f8     e220      SEP #20
    00:85fa     e8        INX
    00:85fb     e8        INX
    00:85fc     7a        PLY
    00:85fd     c8        INY
    00:85fe     c00600    CPY #0006
    00:8601     d0d0      BNE 85d3
    00:8603     a29a0b    LDX #0b9a
    00:8606     20b88f    JSR !8fb8
    00:8609     a20000    LDX #0000
    00:860c     9b        TXY
    00:860d     647f      STZ <7f
    00:860f     5a        PHY
    00:8610     c00500    CPY #0005
    00:8613     f00e      BEQ 8623
    00:8615     b97900    LDA !0079,y
    00:8618     057f      ORA <7f
    00:861a     d007      BNE 8623
    00:861c     c220      REP #20
    00:861e     a9b524    LDA #24b5
    00:8621     800d      BRA 8630
    00:8623     c220      REP #20
    00:8625     e67f      INC <7f
    00:8627     b97900    LDA !0079,y
    00:862a     290f00    AND #000f
    00:862d     09a028    ORA #28a0
    00:8630     9f6e397e  STA >7e396e,x
    00:8634     e220      SEP #20
    00:8636     e8        INX
    00:8637     e8        INX
    00:8638     7a        PLY
    00:8639     c8        INY
    00:863a     c00600    CPY #0006
    00:863d     d0d0      BNE 860f
    00:863f     e220      SEP #20
    00:8641     a5b3      LDA <b3
    00:8643     297f      AND #7f
    00:8645     85b1      STA <b1
    00:8647     a5bb      LDA <bb
    00:8649     0910      ORA #10
    00:864b     85bb      STA <bb
    00:864d     20ea8d    JSR !8dea
    00:8650     e220      SEP #20
    00:8652     a5b3      LDA <b3
    00:8654     0980      ORA #80
    00:8656     85b1      STA <b1
    00:8658     6b        RTL
    00:8659     c210      REP #10
    00:865b     e220      SEP #20
    00:865d     a20000    LDX #0000
    00:8660     a00080    LDY #8000
    00:8663     8e1621    STX !2116
    00:8666     8e1821    STX !2118
    00:8669     88        DEY
    00:866a     d0fa      BNE 8666
    00:866c     60        RTS
    00:866d     e220      SEP #20
    00:866f     c210      REP #10
    00:8671     a2fc00    LDX #00fc
    00:8674     a980      LDA #80
    00:8676     9f00207e  STA >7e2000,x
    00:867a     9f00217e  STA >7e2100,x
    00:867e     ca        DEX
    00:867f     ca        DEX
    00:8680     ca        DEX
    00:8681     ca        DEX
    00:8682     10f2      BPL 8676
    00:8684     a21f00    LDX #001f
    00:8687     a955      LDA #55
    00:8689     9f00227e  STA >7e2200,x
    00:868d     ca        DEX
    00:868e     10f9      BPL 8689
    00:8690     60        RTS
    00:8691     c230      REP #30
    00:8693     ad5302    LDA !0253
    00:8696     29fcff    AND #fffc
    00:8699     aa        TAX
    00:869a     e220      SEP #20
    00:869c     a9e0      LDA #e0
    00:869e     9f01207e  STA >7e2001,x
    00:86a2     e8        INX
    00:86a3     e8        INX
    00:86a4     e8        INX
    00:86a5     e8        INX
    00:86a6     ec5902    CPX !0259
    00:86a9     90f3      BCC 869e
    00:86ab     60        RTS
    00:86ac     c230      REP #30
    00:86ae     a22000    LDX #0020
    00:86b1     a90000    LDA #0000
    00:86b4     ca        DEX
    00:86b5     ca        DEX
    00:86b6     3006      BMI 86be
    00:86b8     9f00227e  STA >7e2200,x
    00:86bc     80f6      BRA 86b4
    00:86be     60        RTS
    00:86bf     e220      SEP #20
    00:86c1     a5d1      LDA <d1
    00:86c3     2903      AND #03
    00:86c5     d006      BNE 86cd
    00:86c7     a5bb      LDA <bb
    00:86c9     090c      ORA #0c
    00:86cb     85bb      STA <bb
    00:86cd     e6d1      INC <d1
    00:86cf     60        RTS
    00:86d0     c230      REP #30
    00:86d2     a5d7      LDA <d7
    00:86d4     c90100    CMP #0001
    00:86d7     d008      BNE 86e1
    00:86d9     ad1842    LDA !4218
    00:86dc     29f0ff    AND #fff0
    00:86df     d00c      BNE 86ed
    00:86e1     a5e3      LDA <e3
    00:86e3     d008      BNE 86ed
    00:86e5     ad9301    LDA !0193
    00:86e8     c90300    CMP #0003
    00:86eb     d00e      BNE 86fb
    00:86ed     a5e1      LDA <e1
    00:86ef     1a        INC A
    00:86f0     c91800    CMP #0018
    00:86f3     9003      BCC 86f8
    00:86f5     a90000    LDA #0000
    00:86f8     85e1      STA <e1
    00:86fa     60        RTS
    00:86fb     a5e1      LDA <e1
    00:86fd     1a        INC A
    00:86fe     c91800    CMP #0018
    00:8701     9003      BCC 8706
    00:8703     a90000    LDA #0000
    00:8706     85e1      STA <e1
    00:8708     0a        ASL A
    00:8709     aa        TAX
    00:870a     fc0e87    JSR (!870e,x)
    00:870d     60        RTS
    00:870e     3e8771    ROL !7187,x
    00:8711     870d      STA [<0d]
    00:8713     870d      STA [<0d]
    00:8715     87a6      STA [<a6]
    00:8717     87e5      STA [<e5]
    00:8719     870d      STA [<0d]
    00:871b     870d      STA [<0d]
    00:871d     870d      STA [<0d]
    00:871f     870d      STA [<0d]
    00:8721     870d      STA [<0d]
    00:8723     870d      STA [<0d]
    00:8725     873e      STA [<3e]
    00:8727     8771      STA [<71]
    00:8729     870d      STA [<0d]
    00:872b     870d      STA [<0d]
    00:872d     870d      STA [<0d]
    00:872f     870d      STA [<0d]
    00:8731     870d      STA [<0d]
    00:8733     870d      STA [<0d]
    00:8735     870d      STA [<0d]
    00:8737     870d      STA [<0d]
    00:8739     870d      STA [<0d]
    00:873b     870d      STA [<0d]
    00:873d     87a5      STA [<a5]
    00:873f     e529      SBC <29
    00:8741     0300      ORA <00,s
    00:8743     0a        ASL A
    00:8744     aa        TAX
    00:8745     e220      SEP #20
    00:8747     a05039    LDY #3950
    00:874a     8c1621    STY !2116
    00:874d     a901      LDA #01
    00:874f     8d1043    STA !4310
    00:8752     bc6987    LDY !8769,x
    00:8755     8c1243    STY !4312
    00:8758     a905      LDA #05
    00:875a     8d1443    STA !4314
    00:875d     a06006    LDY #0660
    00:8760     8c1543    STY !4315
    00:8763     a902      LDA #02
    00:8765     8d0b42    STA !420b
    00:8768     60        RTS
    00:8769     a0b6a0    LDY #a0b6
    00:876c     ca        DEX
    00:876d     a0dea0    LDY #a0de
    00:8770     f2a5      SBC (<a5)
    00:8772     e5e6      SBC <e6
    00:8774     e529      SBC <29
    00:8776     0300      ORA <00,s
    00:8778     0a        ASL A
    00:8779     aa        TAX
    00:877a     e220      SEP #20
    00:877c     a0803c    LDY #3c80
    00:877f     8c1621    STY !2116
    00:8782     a901      LDA #01
    00:8784     8d1043    STA !4310
    00:8787     bc9e87    LDY !879e,x
    00:878a     8c1243    STY !4312
    00:878d     a905      LDA #05
    00:878f     8d1443    STA !4314
    00:8792     a04006    LDY #0640
    00:8795     8c1543    STY !4315
    00:8798     a902      LDA #02
    00:879a     8d0b42    STA !420b
    00:879d     60        RTS
    00:879e     00bd      BRK bd
    00:87a0     00d1      BRK d1
    00:87a2     00e5      BRK e5
    00:87a4     00f9      BRK f9
    00:87a6     a5e9      LDA <e9
    00:87a8     0a        ASL A
    00:87a9     aa        TAX
    00:87aa     e220      SEP #20
    00:87ac     a00036    LDY #3600
    00:87af     8c1621    STY !2116
    00:87b2     a901      LDA #01
    00:87b4     8d1043    STA !4310
    00:87b7     bcd987    LDY !87d9,x
    00:87ba     8c1243    STY !4312
    00:87bd     a905      LDA #05
    00:87bf     8d1443    STA !4314
    00:87c2     a0c002    LDY #02c0
    00:87c5     8c1543    STY !4315
    00:87c8     a902      LDA #02
    00:87ca     8d0b42    STA !420b
    00:87cd     a5e9      LDA <e9
    00:87cf     1a        INC A
    00:87d0     c906      CMP #06
    00:87d2     9002      BCC 87d6
    00:87d4     a900      LDA #00
    00:87d6     85e9      STA <e9
    00:87d8     60        RTS
    00:87d9     00b0      BRK b0
    00:87db     00c4      BRK c4
    00:87dd     00d8      BRK d8
    00:87df     00ec      BRK ec
    00:87e1     00d8      BRK d8
    00:87e3     00c4      BRK c4
    00:87e5     a5e7      LDA <e7
    00:87e7     e6e7      INC <e7
    00:87e9     2903      AND #03
    00:87eb     000a      BRK 0a
    00:87ed     aa        TAX
    00:87ee     e220      SEP #20
    00:87f0     a06037    LDY #3760
    00:87f3     8c1621    STY !2116
    00:87f6     a901      LDA #01
    00:87f8     8d1043    STA !4310
    00:87fb     bc1288    LDY !8812,x
    00:87fe     8c1243    STY !4312
    00:8801     a905      LDA #05
    00:8803     8d1443    STA !4314
    00:8806     a0e003    LDY #03e0
    00:8809     8c1543    STY !4315
    00:880c     a902      LDA #02
    00:880e     8d0b42    STA !420b
    00:8811     60        RTS
    00:8812     c0b2c0    CPY #c0b2
    00:8815     c6c0      DEC <c0
    00:8817     da        PHX
    00:8818     c0eec2    CPY #c2ee
    00:881b     30a5      BMI 87c2
    00:881d     e30d      SBC <0d,s
    00:881f     0101      ORA (<01,x)
    00:8821     d059      BNE 887c
    00:8823     ad9301    LDA !0193
    00:8826     c903      CMP #03
    00:8828     00f0      BRK f0
    00:882a     51a2      EOR (<a2),y
    00:882c     d000      BNE 882e
    00:882e     a5ff      LDA <ff
    00:8830     1a        INC A
    00:8831     c90c      CMP #0c
    00:8833     00d0      BRK d0
    00:8835     10a5      BPL 87dc
    00:8837     fd1ac9    SBC !c91a,x
    00:883a     0700      ORA [<00]
    00:883c     9003      BCC 8841
    00:883e     a900      LDA #00
    00:8840     0085      BRK 85
    00:8842     fda900    SBC !00a9,x
    00:8845     0085      BRK 85
    00:8847     ffd032a5  SBC >a532d0,x
    00:884b     fd0a0a    SBC !0a0a,x
    00:884e     0a        ASL A
    00:884f     0a        ASL A
    00:8850     a8        TAY
    00:8851     b97d88    LDA !887d,y
    00:8854     9f40247e  STA >7e2440,x
    00:8858     e8        INX
    00:8859     e8        INX
    00:885a     c8        INY
    00:885b     c8        INY
    00:885c     e0d800    CPX #00d8
    00:885f     90f0      BCC 8851
    00:8861     e8        INX
    00:8862     e8        INX
    00:8863     c8        INY
    00:8864     c8        INY
    00:8865     b97d88    LDA !887d,y
    00:8868     9f40247e  STA >7e2440,x
    00:886c     e8        INX
    00:886d     e8        INX
    00:886e     c8        INY
    00:886f     c8        INY
    00:8870     e0e000    CPX #00e0
    00:8873     90f0      BCC 8865
    00:8875     a5bb      LDA <bb
    00:8877     0902      ORA #02
    00:8879     0085      BRK 85
    00:887b     bb        TYX
    00:887c     60        RTS
    00:887d     1f001a00  ORA >001a00,x
    00:8881     1500      ORA <00,x
    00:8883     1000      BPL 8885
    00:8885     563a      LSR <3a,x
    00:8887     167c      ASL <7c,x
    00:8889     1068      BPL 88f3
    00:888b     094c      ORA #4c
    00:888d     1f001a00  ORA >001a00,x
    00:8891     1500      ORA <00,x
    00:8893     1000      BPL 8895
    00:8895     563a      LSR <3a,x
    00:8897     167c      ASL <7c,x
    00:8899     1068      BPL 8903
    00:889b     094c      ORA #4c