0080ca stz $00c8
0080cd rep #$10
0080cf jsl $009ef3
0080d3 sep #$10
0080d5 lda #$08
0080d7 sta $00c1
0080da ldy #$00
0080dc lda $00c8
0080df bne $80ca
0080e1 lda $0040,y
0080e4 bmi $80ec
0080e6 cmp #$04
0080e8 beq $811b
0080ea bcs $8133
0080ec tya
0080ed clc
0080ee adc #$10
0080f0 tay
0080f1 dec $00c1
0080f4 bne $80dc
0080f6 lda $7efffa
0080fa beq $8118
008118 jmp $80d5
00811b sty $00c0
00811e lda #$02
008120 sta $0040,y
008123 php
008124 phb
008125 rep #$20
008127 tsc
008128 sta $00c2
00812b lda $0042,y
00812e tcs
00812f plp
008130 pld
008131 plb
008132 rtl
008133 sty $00c0
008136 lda #$02
008138 sta $0040,y
00813b php
00813c phb
00813d rep #$20
00813f tsc
008140 sta $00c2
008143 lda $0042,y
008146 tcs
008147 lda #$0000
00814a tcd
00814b ldx $0046,y
00814e jmp ($8237,x)
00815e php
00815f sep #$30
008161 sta $000046,x
008165 lda #$08
008167 sta $000040,x
00816b xba
00816c sta $000048,x
008170 rep #$20
008172 lda $000044,x
008176 sta $000042,x
00817a plp
00817b rtl
00817c rep #$30
00817e lda $0000c2
008182 tcs
008183 plb
008184 plp
008185 ldy $00c0
008188 lda #$00
00818a sta $0040,y
00818d jmp $80ec

00819c phb
00819d phd
00819e php
00819f sep #$30
0081a1 xba
0081a2 lda #$00
0081a4 pha
0081a5 plb
0081a6 ldy $00c0
0081a9 lda #$01
0081ab sta $0040,y
0081ae xba
0081af sta $0041,y
0081b2 bne $81b9
0081b9 tsc
0081ba rep #$20
0081bc sta $0042,y
0081bf lda $00c2
0081c2 tcs
0081c3 plb
0081c4 plp
0081c5 jmp $80ec
0081d9 php
0081da sep #$20
0081dc lda $000040,x
0081e0 cmp #$80
0081e2 bcc $81ec
0081e4 and #$7f
0081e6 sta $000040,x
0081ea plp
0081eb rtl

00825f jml $01a8cf
00832f php
008330 rep #$30
008332 pha
008333 phb
008334 phd
008335 phx
008336 phy
008337 lda #$0000
00833a tcd
00833b sep #$20
00833d pha
00833e plb
00833f inc $c9
008341 jsl $0088b9
008345 jsl $0088c2
008349 inc $c8
00834b lda $4210
00834e bpl $834b
008350 lda $0106
008353 beq $8364
008355 stz $0106
008358 lda $0104
00835b sta $00d7
00835e lda $0105
008361 sta $0036
008364 lda $00ce
008367 beq $83bb
008369 jsr $87be
00836c jsr $86a8
00836f jsr $85c8
008372 jsr $8529
008375 lda $00d7
008378 bne $8391
00837a jsr $8657
00837d jsr $8714
008380 jsr $8741
008383 jsr $84eb
008386 jsr $83c4
008389 lda $00e8
00838c sta $2100
00838f bra $8396
008391 lda #$00
008393 sta $212c
008396 jsr $8406
008399 sep #$30
00839b ldx #$80
00839d lda $40,x
00839f cmp #$01
0083a1 bne $83ab
0083a3 dec $41,x
0083a5 bne $83ab
0083a7 lda #$04
0083a9 sta $40,x
0083ab txa
0083ac sec
0083ad sbc #$10
0083af tax
0083b0 bpl $839d
0083b2 rep #$10
0083b4 jsr $8852
0083b7 jsl $0088b0
0083bb rep #$30
0083bd ply
0083be plx
0083bf pld
0083c0 plb
0083c1 pla
0083c2 plp
0083c3 rti
0083c4 sep #$10
0083c6 lda $2143
0083c9 sta $00ed
0083cc lda $0100
0083cf cmp $0101
0083d2 beq $8403
0083d4 tax
0083d5 lda $2140
0083d8 cmp $7efffb
0083dc bne $8403
0083de lda $7efffb
0083e2 inc
0083e3 sta $7efffb
0083e7 lda $03c0,x
0083ea sta $2142
0083ed lda $03c1,x
0083f0 sta $2141
0083f3 lda $03c2,x
0083f6 sta $2140
0083f9 txa
0083fa inc
0083fb inc
0083fc inc
0083fd inc
0083fe and #$3c
008400 sta $0100
008403 rep #$10
008405 rts
008406 lda $0153
008409 bne $8450
00840b lda $00e0
00840e cmp $00e1
008411 bne $8414
008413 rts
008414 sep #$10
008416 tax
008417 lda $0800,x
00841a sta $0150
00841d lda $0801,x
008420 sta $0151
008423 lda $0802,x
008426 sta $0152
008429 lda $0803,x
00842c sta $0154
00842f lda $0804,x
008432 sta $0155
008435 lda $0805,x
008438 sta $0156
00843b lda $0806,x
00843e sta $0157
008441 lda $0807,x
008444 sta $0153
008447 txa
008448 clc
008449 adc #$10
00844b sta $00e0
00844e rep #$10
008450 lda $2137
008453 lda $213f
008456 lda $213d
008459 sta $0020
00845c lda $213d
00845f and #$01
008461 sta $0021
008464 rep #$20
008466 lda #$0105
008469 sec
00846a sbc $0020
00846d bmi $84ea
00846f beq $84ea
008471 asl a
008472 asl a
008473 asl a
008474 asl a
008475 asl a
008476 sta $0022
008479 asl a
00847a asl a
00847b clc
00847c adc $0022
00847f sta $0022
008482 lda $0156
008485 sec
008486 sbc $0022
008489 beq $848d
00848b bcs $84a0
00848d lda $0156
008490 sta $0022
008493 sep #$20
008495 lda $0153
008498 trb $00e7
00849b stz $0153
00849e rep #$20
0084a0 lda $0022
0084a3 sta $4305
0084a6 lsr a
0084a7 sta $0024
0084aa lda $0156
0084ad sec
0084ae sbc $0022
0084b1 sta $0156
0084b4 lda $0150
0084b7 sta $4302
0084ba clc
0084bb adc $0022
0084be sta $0150
0084c1 lda $0154
0084c4 sta $2116
0084c7 clc
0084c8 adc $0024
0084cb sta $0154
0084ce sep #$20
0084d0 lda $0152
0084d3 sta $4304
0084d6 lda #$80
0084d8 sta $2115
0084db lda #$01
0084dd sta $4300
0084e0 lda #$18
0084e2 sta $4301
0084e5 lda #$01
0084e7 sta $420b
0084ea rts
0084eb lda $00e6
0084ee beq $8528
0084f0 lda #$80
0084f2 sta $2115
0084f5 lda #$7c
0084f7 sta $2117
0084fa lda #$40
0084fc sta $2116
0084ff lda #$01
008501 sta $4300
008504 lda #$18
008506 sta $4301
008509 stz $4302
00850c lda #$24
00850e sta $4303
008511 lda #$7e
008513 sta $4304
008516 lda #$00
008518 sta $4305
00851b lda #$01
00851d sta $4306
008520 lda #$01
008522 sta $420b
008525 stz $00e6
008528 rts
008529 sep #$10
00852b ldy $00e4
00852e cpy $00e5
008531 beq $8584
008533 lda #$18
008535 sta $4301
008538 stz $4304
00853b stz $4306
00853e lda $0b00,y
008541 rep #$30
008543 tya
008544 clc
008545 adc #$0b00
008548 tay
008549 sep #$20
00854b lda #$01
00854d sta $4300
008550 lda $0000,y
008553 sta $2115
008556 iny
008557 lda $0000,y
00855a sta $4305
00855d xba
00855e iny
00855f lda $0000,y
008562 sta $2116
008565 iny
008566 lda $0000,y
008569 sta $2117
00856c iny
00856d sty $4302
008570 sep #$10
008572 sty $00e4
008575 xba
008576 clc
008577 adc $00e4
00857a sta $00e4
00857d lda #$01
00857f sta $420b
008582 bra $852b
008584 rts
008585 rep #$10
008587 rts
008588 sta $4306
00858b rep #$30
00858d tya
00858e clc
00858f adc #$0900
008592 tay
008593 sep #$20
008595 iny
008596 lda $0000,y
008599 sta $4305
00859c iny
00859d lda $0000,y
0085a0 sta $2115
0085a3 iny
0085a4 lda $0000,y
0085a7 sta $2116
0085aa iny
0085ab lda $0000,y
0085ae sta $2117
0085b1 iny
0085b2 lda #$09
0085b4 sta $4300
0085b7 sty $4302
0085ba lda #$01
0085bc sta $420b
0085bf iny
0085c0 iny
0085c1 sep #$10
0085c3 sty $00e2
0085c6 bra $85cf
0085c8 sep #$10
0085ca lda #$18
0085cc sta $4301
0085cf stz $4304
0085d2 ldy $00e2
0085d5 cpy $00e3
0085d8 beq $8585
0085da lda $0900,y
0085dd bpl $8588
0085df and #$7f
0085e1 sta $4306
0085e4 rep #$30
0085e6 tya
0085e7 clc
0085e8 adc #$0900
0085eb tay
0085ec sep #$20
0085ee iny
0085ef lda $0000,y
0085f2 sta $4305
0085f5 xba
0085f6 iny
0085f7 lda $0000,y
0085fa sta $2115
0085fd iny
0085fe lda $0000,y
008601 sta $2116
008604 iny
008605 lda $0000,y
008608 bmi $862a
00862a and #$7f
00862c sta $2117
00862f iny
008630 lda #$01
008632 sta $4300
008635 lda $0000,y
008638 sta $4302
00863b iny
00863c lda $0000,y
00863f sta $4303
008642 iny
008643 lda $0000,y
008646 sta $4304
008649 iny
00864a sep #$10
00864c sty $00e2
00864f lda #$01
008651 sta $420b
008654 jmp $85cf
008657 lda $f0
008659 sta $210d
00865c lda $f1
00865e sta $210d
008661 lda $f2
008663 sta $210e
008666 lda $f3
008668 sta $210e
00866b lda $f4
00866d sta $210f
008670 lda $f5
008672 sta $210f
008675 lda $f6
008677 sta $2110
00867a lda $f7
00867c sta $2110
00867f lda $f8
008681 sta $2111
008684 lda $f9
008686 sta $2111
008689 lda $fa
00868b sta $2112
00868e lda $fb
008690 sta $2112
008693 lda $fc
008695 sta $2113
008698 lda $fd
00869a sta $2113
00869d lda $fe
00869f sta $2114
0086a2 lda $ff
0086a4 sta $2114
0086a7 rts
0086a8 sep #$10
0086aa lda #$18
0086ac sta $4301
0086af lda #$01
0086b1 sta $4300
0086b4 lda #$80
0086b6 sta $2115
0086b9 ldy $00de
0086bc cpy $00df
0086bf beq $8711
0086c1 rep #$20
0086c3 lda $0800,y
0086c6 sta $20
0086c8 sep #$20
0086ca lda $0802,y
0086cd sta $22
0086cf stz $24
0086d1 lda $0803,y
0086d4 sta $25
0086d6 tya
0086d7 clc
0086d8 adc #$10
0086da sta $00de
0086dd ldy #$00
0086df lda
0086e1 sta $4302
0086e4 iny
0086e5 rep #$20
0086e7 lda
0086e9 sta $4303
0086ec iny
0086ed iny
0086ee lda
0086f0 sta $26
0086f2 and #$7fff
0086f5 clc
0086f6 adc $24
0086f8 sta $2116
0086fb iny
0086fc iny
0086fd lda
0086ff sta $4305
008702 iny
008703 iny
008704 sep #$20
008706 lda #$01
008708 sta $420b
00870b lda $27
00870d bmi $86df
00870f bra $86b9
008711 sep #$10
008713 rts

; DMA oam
008714 stz $2102
008717 stz $2103
00871a lda #$00
00871c sta $4300
00871f lda #$04
008721 sta $4301
008724 lda #$80
008726 sta $4302
008729 lda #$01
00872b sta $4303
00872e stz $4304
008731 lda #$20
008733 sta $4305
008736 lda #$02
008738 sta $4306
00873b lda #$01
00873d sta $420b
008740 rts
; DMA oam

008741 stz $00d6
008744 lda $00d0
008747 bne $8771
008749 lda #$00
00874b sta $2121
00874e stz $4300
008751 lda #$22
008753 sta $4301
008756 lda #$00
008758 sta $4302
00875b lda #$04
00875d sta $4303
008760 stz $4304
008763 stz $4305
008766 lda #$02
008768 sta $4306
00876b lda #$01
00876d sta $420b
008770 rts
008771 lda #$80
008773 sta $2121
008776 stz $4300
008779 lda #$22
00877b sta $4301
00877e lda #$00
008780 sta $4302
008783 lda #$06
008785 sta $4303
008788 stz $4304
00878b stz $4305
00878e lda #$01
008790 sta $4306
008793 lda #$01
008795 sta $420b
008798 stz $2121
00879b stz $4300
00879e lda #$22
0087a0 sta $4301
0087a3 lda #$00
0087a5 sta $4302
0087a8 lda #$04
0087aa sta $4303
0087ad stz $4304
0087b0 stz $4305
0087b3 lda #$01
0087b5 sta $4306
0087b8 lda #$01
0087ba sta $420b
0087bd rts
0087be lda $d5
0087c0 eor #$ff
0087c2 and $d4
0087c4 sta $d4
0087c6 lda $d3
0087c8 ora $d5
0087ca eor #$ff
0087cc and $d2
0087ce sta $d2
0087d0 lda $d4
0087d2 lda $420c
0087d5 lda $d3
0087d7 lda $420b
0087da stz $d3
0087dc stz $d5
0087de rts
0087df php
0087e0 rep #$30
0087e2 pha
0087e3 phb
0087e4 phd
0087e5 phx
0087e6 phy
0087e7 lda #$0000
0087ea tcd
0087eb sep #$20
0087ed pha
0087ee plb
0087ef lda $4211
0087f2 lda #$00
0087f4 xba
0087f5 lda $36
0087f7 tax
0087f8 jsr ($8804,x)
0087fb rep #$30
0087fd ply
0087fe plx
0087ff pld
008800 plb
008801 pla
008802 plp
008803 rti
00880c lda $00ea
00880f sta $212c
008812 rts
008813 lda $0000e8
008817 sta $002100
00881b lda #$13
00881d sta $4209
008820 lda #$04
008822 sta $36
008824 rts
008825 lda $00ea
008828 sta $212c
00882b lda #$d6
00882d sta $4209
008830 lda #$06
008832 sta $36
008834 rts
008835 jsl $0088c2
008839 lda #$02
00883b sta $36
00883d lda #$12
00883f sta $4209
008842 jsr $8657
008845 jsr $8714
008848 jsr $8741
00884b jsr $84eb
00884e jsr $83c4
008851 rts
008852 lda #$00
008854 xba
008855 lda $3e
008857 tax
008858 jmp ($885b,x)
008861 rts
0088b0 lda $0108
0088b3 ora #$80
0088b5 sta $4200
0088b8 rtl
0088b9 lda $0108
0088bc and #$7f
0088be sta $4200
0088c1 rtl
0088c2 lda $00e8
0088c5 ora #$80
0088c7 sta $2100
0088ca rtl
0088cb lda $00e8
0088ce and #$0f
0088d0 sta $00e8
0088d3 rtl
00891e tsb $00e7
008921 sta $0000
008924 lda #$00
008926 xba
008927 lda $00e1
00892a tay
00892b lda $00959a,x
00892f sta $0800,y
008932 rep #$20
008934 lda $00959b,x
008938 sta $0801,y
00893b lda $00959d,x
00893f sta $0803,y
008942 lda $00959f,x
008946 sta $0805,y
008949 sep #$20
00894b lda $0000
00894e sta $0807,y
008951 tya
008952 clc
008953 adc #$10
008955 sta $00e1
008958 rtl
0089c2 lda $00959e,x
0089c6 bmi $89fe
0089c8 phd
0089c9 lda #$80
0089cb sta $2115
0089ce lda $00959a,x
0089d2 sta $0010
0089d5 rep #$20
0089d7 lda $00959b,x
0089db sta $0011
0089de lda $00959d,x
0089e2 sta $2116
0089e5 lda $00959f,x
0089e9 tax
0089ea lda #$0000
0089ed tcd
0089ee tay
0089ef lda
0089f1 sta $2118
0089f4 iny
0089f5 iny
0089f6 dex
0089f7 dex
0089f8 bne $89ef
0089fa sep #$20
0089fc pld
0089fd rtl
0089fe lda $00959e,x
008a02 bpl $89c2
008b4c jmp ($8b4f,x)
008b86 ldx #$0000
008b89 jsl $008cf6
008b8d ldx #$0054
008b90 jsl $0089fe
008b94 ldx #$0062
008b97 jsl $0089fe
008b9b ldx #$0111
008b9e jsl $0089fe
008ba2 ldx #$0000
008ba5 jsl $0089fe
008ba9 ldx #$005b
008bac jsl $0089fe
008bb0 ldx #$0000
008bb3 jsl $008c4e
008bb7 ldx #$0007
008bba jsl $008c4e
008bbe rtl
008c4e lda #$80
008c50 sta $2115
008c53 lda $008ca0,x
008c57 sta $0002
008c5a stz $0003
008c5d rep #$20
008c5f lda $008c9a,x
008c63 sta $0010
008c66 lda $008c9c,x
008c6a sta $0012
008c6d lda $008c9e,x
008c71 sta $0000
008c74 ldx $0010
008c77 ldy $0012
008c7a stx $2116
008c7d lda $2139
008c80 sty $2116
008c83 sta $2118
008c86 txa
008c87 clc
008c88 adc $0002
008c8b tax
008c8c tya
008c8d clc
008c8e adc $0002
008c91 tay
008c92 dec $0000
008c95 bne $8c7a
008c97 sep #$20
008c99 rtl
008ca8 lda $0cb0
008cab cmp #$03
008cad beq $8cb2
008caf jmp $97d5

008cf6 phd
008cf7 stx $0014
008cfa lda $00970d,x
008cfe sta $0010
008d01 lda $009710,x
008d05 sta $0001
008d08 rep #$20
008d0a lda $00970e,x
008d0e sta $0011
008d11 lda $0014
008d14 clc
008d15 adc #$0005
008d18 sta $0014
008d1b lda #$0000
008d1e tcd
008d1f tay
008d20 sep #$20
008d22 lda $009712,x
008d26 sta $0000
008d29 tyx
008d2a cmp #$01
008d2c bne $8d31
008d2e ldx #$0100
008d31 lda [$10],y
008d33 sta $0400,x ; Store player palette?
008d36 iny
008d37 inx
008d38 dec $0001
008d3b bne $8d31
008d3d lda $0000
008d40 bmi $8d4a
008d42 pld
008d43 ora $00d6
008d46 sta $00d6
008d49 rtl

008e73 phd
008e74 jsr $8e9b
008e77 rep #$20
008e79 lda #$0000
008e7c tcd
008e7d lda #$000f
008e80 sta $00
008e82 lda $07e000,x
008e86 sta $0500,y
008e89 inx
008e8a inx
008e8b iny
008e8c iny
008e8d dec $00
008e8f bpl $8e82
008e91 lda #$0001
008e94 tsb $00d6
008e97 pld
008e98 sep #$20
008e9a rtl
008e9b rep #$20
008e9d and #$00ff
008ea0 xba
008ea1 lsr a
008ea2 lsr a
008ea3 lsr a
008ea4 tax
008ea5 sep #$20
008ea7 rts

008ea8 sep #$10
008eaa ldx $00e3
008ead rep #$10
008eaf lda #$08
008eb1 sta $0900,x
008eb4 inx
008eb5 stz $0900,x
008eb8 inx
008eb9 lda #$80
008ebb sta $0900,x
008ebe inx
008ebf stz $0900,x
008ec2 inx
008ec3 lda #$7c
008ec5 sta $0900,x
008ec8 inx
008ec9 lda #$20
008ecb sta $0900,x
008ece inx
008ecf stz $0900,x
008ed2 inx
008ed3 txa
008ed4 sta $00e3
008ed7 rtl

008f1a xba
008f1b lda $00d0
008f1e beq $8f2a
008f2a inc $00d0
008f2d ldx #$0060
008f30 lda #$08
008f32 jsl $00815e
008f36 lda #$00
008f38 rtl
008f3b xba
008f3c lda $00d0
008f3f beq $8f4b
008f4b inc $00d0
008f4e ldx #$0060
008f51 lda #$08
008f53 jsl $00815e
008f57 lda #$01
008f59 jsl $00819c
008f5d lda $00d0
008f60 bne $8f57
008f62 rtl
0097d5 phb
0097d6 lda #$00
0097d8 pha
0097d9 plb
0097da jsr $9b42
0097dd lda #$00
0097df xba
0097e0 lda $0cb0
0097e3 asl a
0097e4 tax
0097e5 rep #$20
0097e7 lda $00986b,x
0097eb sta $001e
0097ee sep #$20
0097f0 lda #$00
0097f2 xba
0097f3 lda $0cb1
0097f6 asl a
0097f7 rep #$20
0097f9 clc
0097fa adc $001e
0097fd tax
0097fe lda $00986b,x
009802 sta $001e
009805 sep #$20
009807 jsr $981d
00980a ldx $001e
00980d lda $00986d,x
009811 bmi $981b
009813 inx
009814 inx
009815 inx
009816 stx $001e
009819 bra $9807
00981b plb
00981c rtl
00981d lda #$80
00981f sta $2115
009822 rep #$20
009824 ldx $001e
009827 lda $00986b,x
00982b sta $0010
00982e lda $00986d,x
009832 and #$007f
009835 xba
009836 clc
009837 adc #$2000
00983a sta $2116
00983d sep #$20
00983f ldx $0010
009842 lda $0000,x
009845 sta $0014
009848 lda $0001,x
00984b sta $0015
00984e lda $0002,x
009851 sta $0016
009854 rep #$20
009856 lda $0003,x
009859 tax
00985a ldy #$0000
00985d lda
00985f sta $2118
009862 iny
009863 iny
009864 dex
009865 dex
009866 bne $985d
009868 sep #$20
00986a rts
009b42 lda #$80
009b44 sta $2115
009b47 lda #$00
009b49 xba
009b4a lda $0cb0
009b4d asl a
009b4e tax
009b4f rep #$20
009b51 lda $009c34,x
009b55 sta $001e
009b58 sep #$20
009b5a lda #$00
009b5c xba
009b5d lda $0cb1
009b60 asl a
009b61 tax
009b62 rep #$20
009b64 clc
009b65 adc $001e
009b68 tax
009b69 lda $009c34,x
009b6d tax
009b6e sep #$20
009b70 ldy #$2000
009b73 jsr $9ba3
009b76 lda $009c34,x
009b7a beq $9ba2
009b7c inx
009b7d sta $0000
009b80 jsr $9bae
009b83 inx
009b84 dec $0000
009b87 bne $9b80
009b89 ldy #$2100
009b8c jsr $9ba3
009b8f lda $009c34,x
009b93 beq $9ba2
009ba2 rts
009ba3 lda #$00
009ba5 jsr $9bbb
009ba8 lda #$00
009baa jsr $9bbb
009bad rts
009bae lda $009c34,x
009bb2 bpl $9bbb
009bbb sty $2116
009bbe phy
009bbf rep #$20
009bc1 and #$007f
009bc4 asl a
009bc5 asl a
009bc6 tay
009bc7 lda #$0007
009bca sta $0004
009bcd lda $9bf4,y
009bd0 sta $2118
009bd3 dec $0004
009bd6 bpl $9bd0
009bd8 iny
009bd9 iny
009bda lda #$0007
009bdd sta $0004
009be0 lda $9bf4,y
009be3 sta $2118
009be6 dec $0004
009be9 bpl $9be3
009beb pla
009bec clc
009bed adc #$0010
009bf0 tay
009bf1 sep #$20
009bf3 rts
009d2a phb
009d2b lda #$07
009d2d pha
009d2e plb
009d2f lda #$00
009d31 xba
009d32 lda $0cb0
009d35 asl a
009d36 tax
009d37 rep #$20
009d39 lda $009db2,x
009d3d sta $0010
009d40 sep #$20
009d42 lda #$00
009d44 xba
009d45 lda $0cb1
009d48 asl a
009d49 rep #$20
009d4b clc
009d4c adc $0010
009d4f tax
009d50 lda $009db2,x
009d54 sta $0010
009d57 ldy #$0020
009d5a sep #$20
009d5c ldx $0010
009d5f lda $009db2,x
009d63 sta $0000
009d66 and #$7f
009d68 sta $0008
009d6b rep #$20
009d6d lda $009db3,x
009d71 sta $0018
009d74 sep #$20
009d76 inx
009d77 inx
009d78 inx
009d79 stx $0010
009d7c jsr $9d90
009d7f lda $0000
009d82 bpl $9d86
009d86 plb
009d87 lda $00d6
009d8a ora #$02
009d8c sta $00d6
009d8f rtl
009d90 ldx $0018
009d93 rep #$20
009d95 lda #$000f
009d98 sta $000a
009d9b lda $e800,x
009d9e sta $0400,y
009da1 inx
009da2 inx
009da3 iny
009da4 iny
009da5 dec $000a
009da8 bpl $9d9b
009daa sep #$20
009dac dec $0008
009daf bne $9d93
009db1 rts

009ef3 lda $4212
009ef6 and #$01
009ef8 bne $9ef3
009efa ldx #$0007
009efd lda $0110,x
009f00 eor #$ff
009f02 sta $0118,x ; Store last player inputs inverted
009f05 lda $4218,x
009f08 sta $0110,x ; Store player input
009f0b dex
009f0c bpl $9efd
009f0e rtl

009f5a ora #$00
009f5c beq $9f7e
009f5e phy
009f5f phx
009f60 sep #$10
009f62 ldy $0101
009f65 sta $03c2,y
009f68 lda #$00
009f6a sta $03c0,y
009f6d sta $03c1,y
009f70 tya
009f71 inc
009f72 inc
009f73 inc
009f74 inc
009f75 and #$3c
009f77 sta $0101
009f7a rep #$10
009f7c plx
009f7d ply
009f7e rtl

009f95 sta $0772
009f98 stz $0770
009f9b rep #$20
009f9d lda $07
009f9f sec
009fa0 sbc $0e07
009fa3 sta $0773
009fa6 sep #$20
009fa8 rep #$20
009faa lda $0773
009fad sec
009fae sbc #$0080
009fb1 bpl $9fc2
009fb3 cmp #$ff81
009fb6 bcs $9fbb
009fbb sep #$20
009fbd sta $0771
009fc0 bra $9fcf
009fcf ora #$00
009fd1 beq $9ffa
009fd3 phy
009fd4 phx
009fd5 sep #$10
009fd7 ldy $0101
009fda lda $0770
009fdd sta $03c0,y
009fe0 lda $0771
009fe3 sta $03c1,y
009fe6 lda $0772
009fe9 sta $03c2,y
009fec tya
009fed inc
009fee inc
009fef inc
009ff0 inc
009ff1 and #$3c
009ff3 sta $0101
009ff6 rep #$10
009ff8 plx
009ff9 ply
009ffa rtl
00a0a8 rep #$20
00a0aa lda $0000,x
00a0ad inx
00a0ae inx
00a0af phx
00a0b0 tax
00a0b1 ldy #$0000
00a0b4 lda $14
00a0b6 sta
00a0b8 inc $10
00a0ba inc $10
00a0bc lda $0000,x
00a0bf sta
00a0c1 iny
00a0c2 iny
00a0c3 lda $0002,x
00a0c6 sta
00a0c8 iny
00a0c9 iny
00a0ca sep #$20
00a0cc lda $1a
00a0ce sta
00a0d0 iny
00a0d1 iny
00a0d2 iny
00a0d3 iny
00a0d4 iny
00a0d5 rep #$20
00a0d7 inx
00a0d8 inx
00a0d9 inx
00a0da inx
00a0db stz $0002
00a0de lda $0000,x
00a0e1 sta $18
00a0e3 lda $0002,x
00a0e6 sta
00a0e8 sta $0a
00a0ea iny
00a0eb iny
00a0ec lda $0004,x
00a0ef sta
00a0f1 sta $0c
00a0f3 iny
00a0f4 iny
00a0f5 inx
00a0f6 inx
00a0f7 inx
00a0f8 inx
00a0f9 inx
00a0fa inx
00a0fb phx
00a0fc jsr $a145
00a0ff plx
00a100 lda $18
00a102 bpl $a129
00a104 lda $0000,x
00a107 sta $18
00a109 lda $0002,x
00a10c sec
00a10d sbc $0a
00a10f sta
00a111 lda $0002,x
00a114 sta $0a
00a116 iny
00a117 iny
00a118 lda $0004,x
00a11b sec
00a11c sbc $0c
00a11e sta
00a120 lda $0004,x
00a123 sta $0c
00a125 iny
00a126 iny
00a127 bra $a0f5
00a129 lda $0000,x
00a12c tyx
00a12d ldy #$0007
00a130 sta
00a132 txy
00a133 tyx
00a134 lda $02
00a136 ldy #$0005
00a139 sta
00a13b txa
00a13c clc
00a13d adc $14
00a13f sta $14
00a141 sep #$20
00a143 plx
00a144 rts
00a145 lda $1a
00a147 cmp #$0002
00a14a beq $a157
00a14c cmp #$0000
00a14f bne $a154
00a151 brl $a24d

00a1fc phb
00a1fd lda #$00
00a1ff pha
00a200 plb
00a201 rep #$20
00a203 phd
00a204 lda #$0000
00a207 tcd
00a208 lda $a218,x
00a20b tax
00a20c sep #$20
00a20e lda #$02
00a210 pha
00a211 plb
00a212 jsr $a21e
00a215 pld
00a216 plb
00a217 rtl

00a21e stz $1c
00a220 stz $1d
00a222 lda #$7e
00a224 sta $12
00a226 sta $16
00a228 tya
00a229 ldy #$3000
00a22c sty $10
00a22e rep #$20
00a230 tya
00a231 clc
00a232 adc #$0080
00a235 sta $14
00a237 sep #$20
00a239 lda $0000,x
00a23c sta $00
00a23e inx
00a23f lda #$00
00a241 sta $1a
00a243 stz $1b
00a245 jsr $a0a8
00a248 dec $00
00a24a bne $a245
00a24c rts

00a24d lda $18
00a24f ora #$8000
00a252 tax
00a253 lda $0000,x
00a256 and #$00ff
00a259 sta $04
00a25b clc
00a25c adc $02
00a25e sta $02
00a260 lda $0000,x
00a263 and #$ff00
00a266 sta $1e
00a268 lda $04
00a26a sta $06
00a26c txa
00a26d clc
00a26e adc $06
00a270 sta $06
00a272 sep #$20
00a274 lda #$00
00a276 xba
00a277 lda $0002,x
00a27a bpl $a282
00a27c xba
00a27d lda #$10
00a27f xba
00a280 and #$7f
00a282 rep #$20
00a284 ora $1e
00a286 sta
00a288 inx
00a289 iny
00a28a iny
00a28b dec $04
00a28d beq $a2e8
00a28f sep #$20
00a291 stx $08
00a293 ldx $06
00a295 lda #$00
00a297 xba
00a298 lda $0002,x
00a29b bpl $a2a1
00a29d xba
00a29e lda #$ff
00a2a0 xba
00a2a1 rep #$20
00a2a3 sta
00a2a5 clc
00a2a6 adc $0a
00a2a8 sta $0a
00a2aa iny
00a2ab iny
00a2ac inx
00a2ad sep #$20
00a2af lda #$00
00a2b1 xba
00a2b2 lda $0002,x
00a2b5 bpl $a2bb
00a2bb rep #$20
00a2bd sta
00a2bf clc
00a2c0 adc $0c
00a2c2 sta $0c
00a2c4 iny
00a2c5 iny
00a2c6 inx
00a2c7 stx $06
00a2c9 ldx $08
00a2cb sep #$20
00a2cd lda #$00
00a2cf xba
00a2d0 lda $0002,x
00a2d3 bpl $a2db
00a2d5 xba
00a2d6 lda #$10
00a2d8 xba
00a2d9 and #$7f
00a2db rep #$20
00a2dd ora $1e
00a2df sta
00a2e1 inx
00a2e2 iny
00a2e3 iny
00a2e4 dec $04
00a2e6 bne $a28f
00a2e8 rts
00a405 lda $47
00a407 bne $a424
00a409 lda $44
00a40b beq $a429
00a429 lda #$01
00a42b rtl
00a70b phb
00a70c lda $22
00a70e pha
00a70f plb
00a710 rep #$20
00a712 tya
00a713 and #$00ff
00a716 sta $0000
00a719 txa
00a71a clc
00a71b adc $0000
00a71e tax
00a71f lda $0000,x
00a722 tax
00a723 sep #$20
00a725 bra $a72c
00a727 phb
00a728 lda $22
00a72a pha
00a72b plb
00a72c stx $1a
00a72e lda $0001,x
00a731 sta $1e
00a733 sta $50
00a735 lda $0002,x
00a738 sta $1f
00a73a lda $23
00a73c xba
00a73d lda $0000,x
00a740 tax
00a741 rep #$20
00a743 lda $7e0000,x
00a747 sta $1c
00a749 tax
00a74a lda $7e0000,x
00a74e sta $24
00a750 lda $7e0002,x
00a754 sta $26
00a756 sep #$20
00a758 plb
00a759 rtl
00a75a dec $1e
00a75c beq $a75f
00a75e rtl
00a75f phb
00a760 lda $22
00a762 pha
00a763 plb
00a764 ldx $1a
00a766 inx
00a767 inx
00a768 inx
00a769 lda $0000,x
00a76c bpl $a775
00a76e ldy $0001,x
00a771 tyx
00a772 lda $0000,x
00a775 tay
00a776 lda $0001,x
00a779 sta $1e
00a77b lda $0002,x
00a77e sta $1f
00a780 stx $1a
00a782 lda $23
00a784 xba
00a785 tya
00a786 tax
00a787 rep #$20
00a789 lda $7e0000,x
00a78d cmp $1c
00a78f beq $a7a8
00a791 sta $1c
00a793 tax
00a794 lda $7e0000,x
00a798 sta $24
00a79a lda $7e0002,x
00a79e sta $26
00a7a0 sep #$20
00a7a2 lda $1e
00a7a4 sta $50
00a7a6 plb
00a7a7 rtl
00a7a8 sta $1c
00a7aa tax
00a7ab lda $7e0000,x
00a7af sta $24
00a7b1 lda $7e0002,x
00a7b5 sta $26
00a7b7 sep #$20
00a7b9 plb
00a7ba rtl
00a905 phb
00a906 lda $22
00a908 pha
00a909 plb
00a90a rep #$20
00a90c tya
00a90d and #$00ff
00a910 sta $0000
00a913 txa
00a914 clc
00a915 adc $0000
00a918 tax
00a919 lda $0000,x
00a91c tax
00a91d sep #$20
00a91f bra $a926
00a926 stx $1a
00a928 lda $0002,x
00a92b sta $1e
00a92d lda $0003,x
00a930 sta $1f
00a932 rep #$20
00a934 lda $0000,x
00a937 sta $1c
00a939 tax
00a93a lda $0000,x
00a93d sta $24
00a93f lda $0002,x
00a942 sta $26
00a944 sep #$20
00a946 plb
00a947 rtl
00ad4f lda #$06
00ad51 sta $0000
00ad54 ldx #$1700
00ad57 lda $0000,x
00ad5a beq $ad70
00ad5c dec $0000
00ad5f beq $ad6b
00ad61 rep #$20
00ad63 txa
00ad64 clc
00ad65 adc #$0080
00ad68 tax
00ad69 bra $ad57
00ad70 sep #$20
00ad72 rtl
00ad73 rep #$20
00ad75 stz $00
00ad77 stz $02
00ad79 stz $04
00ad7b sep #$20
00ad7d rtl
00ae1a jsl $00af7b
00ae1e jmp $ae30
00ae30 lda $3a
00ae32 beq $ae3e
00ae3e lda #$02
00ae40 bit $00
00ae42 beq $ae6b
00ae44 lda $44
00ae46 bmi $ae6b
00ae48 ldx $0ac4
00ae4b beq $ae6b
00ae4d rep #$20
00ae4f ldx $0ac6
00ae52 lda $0d
00ae54 sec
00ae55 sbc $4e
00ae57 sta $0000,x
00ae5a tdc
00ae5b sta $0002,x
00ae5e txa
00ae5f inc
00ae60 inc
00ae61 inc
00ae62 inc
00ae63 sta $0ac6
00ae66 dec $0ac4
00ae69 sep #$20
00ae6b rtl
00ae6c ldx $0720
00ae6f beq $ae85
00ae71 rep #$20
00ae73 ldx $0722
00ae76 tdc
00ae77 sta $0000,x
00ae7a txa
00ae7b inc
00ae7c inc
00ae7d sta $0722
00ae80 dec $0720
00ae83 sep #$20
00ae85 rtl

00aeb8 lda $22
00aeba pha
00aebb plb
00aebc lda $27
00aebe beq $aeca
00aec0 bpl $aed0
00aec2 rep #$20
00aec4 lda $0d
00aec6 cmp $0a
00aec8 beq $aed0
00aeca stz $5a
00aecc stz $5b
00aece bra $af29
00aed0 sep #$20
00aed2 lda #$00
00aed4 xba
00aed5 lda $27
00aed7 and #$7f
00aed9 sec
00aeda sbc #$07
00aedc clc
00aedd adc ($2a)
00aedf tay
00aee0 lda ($2a),y
00aee2 bpl $aee7
00aee7 tax
00aee8 lda $20
00aeea rep #$20
00aeec beq $aef4
00aeee txa
00aeef eor #$ffff
00aef2 inc
00aef3 tax
00aef4 txa
00aef5 clc
00aef6 adc $07
00aef8 sta $5a
00aefa sep #$20
00aefc iny
00aefd lda #$00
00aeff xba
00af00 lda ($2a),y
00af02 bpl $af07
00af07 rep #$20
00af09 clc
00af0a adc $0a
00af0c sta $5c
00af0e sep #$20
00af10 iny
00af11 lda ($2a),y
00af13 sta $5e
00af15 iny
00af16 lda ($2a),y
00af18 sta $5f
00af1a iny
00af1b lda ($2a),y
00af1d sta $60
00af1f iny
00af20 lda ($2a),y
00af22 sta $61
00af24 iny
00af25 lda ($2a),y
00af27 sta $62
00af29 sep #$20
00af2b lda $0f
00af2d bne $af74
00af2f lda #$00
00af31 xba
00af32 lda $26
00af34 beq $af74
00af36 tay
00af37 lda ($2a),y
00af39 bpl $af3e
00af3e tax
00af3f lda $20
00af41 rep #$20
00af43 beq $af4b
00af45 txa
00af46 eor #$ffff
00af49 inc
00af4a tax
00af4b txa
00af4c clc
00af4d adc $07
00af4f sta $54
00af51 sep #$20
00af53 iny
00af54 lda #$00
00af56 xba
00af57 lda ($2a),y
00af59 bpl $af5e
00af5e rep #$20
00af60 clc
00af61 adc $0a
00af63 sta $56
00af65 sep #$20
00af67 iny
00af68 lda ($2a),y
00af6a sta $58
00af6c iny
00af6d lda ($2a),y
00af6f sta $59
00af71 iny
00af72 bra $af78
00af78 phk
00af79 plb
00af7a rtl

00af7b lda $00
00af7d beq $afaa
00af7f lda #$02
00af81 trb $00
00af83 rep #$20
00af85 lda $07
00af87 sec
00af88 sbc $0e07
00af8b clc
00af8c adc #$0030
00af8f cmp #$0160
00af92 bcs $afaa
00af94 lda $0a
00af96 sec
00af97 sbc $0e0a
00af9a clc
00af9b adc #$0080
00af9e cmp #$0200
00afa1 bcs $afaa
00afa3 sep #$20
00afa5 lda #$02
00afa7 tsb $00
00afa9 rtl
00b0f9 lda $010a
00b0fc adc #$01
00b0fe sta $010a
00b101 lda $010b
00b104 adc #$03
00b106 sta $010b
00b109 lda $010c
00b10c adc #$05
00b10e sta $010c
00b111 lda $010d
00b114 adc #$07
00b116 sta $010d
00b119 lda $0cb4
00b11c bne $b133
00b11e lda $010d
00b121 adc $010c
00b124 sta $010c
00b127 adc $010b
00b12a sta $010b
00b12d adc $010a
00b130 sta $010a
00b133 rtl
00c904 lda $0d00
00c907 bne $c924
00c924 lda #$00
00c926 xba
00c927 lda $0cb4
00c92a and #$07
00c92c pha
00c92d asl a
00c92e asl a
00c92f tax
00c930 rep #$20
00c932 clc
00c933 lda $0d07
00c936 adc $00c964,x
00c93a sta $0006
00c93d sec
00c93e lda $0d0d
00c941 sbc $0d4e
00c944 clc
00c945 adc $00c966,x
00c949 sta $0008
00c94c sep #$20
00c94e jsl $00c984
00c952 bne $c958
00c954 jsl $00d399
00c958 lda #$00
00c95a xba
00c95b pla
00c95c tax
00c95d lda $000a
00c960 sta $0170,x
00c963 rtl
00c984 rep #$20
00c986 lda $0006
00c989 sec
00c98a sbc $0e07
00c98d bmi $c9ab
00c98f cmp #$0100
00c992 bcs $c9ab
00c994 lda $0008
00c997 sec
00c998 sbc $0e0a
00c99b bmi $c9ab
00c99d cmp #$0100
00c9a0 bcs $c9ab
00c9a2 lda #$0000
00c9a5 sta $000a
00c9a8 sep #$20
00c9aa rtl
00c9ab lda #$0004
00c9ae sta $000a
00c9b1 sep #$20
00c9b3 rtl

; Part of active gameplay
00c9b4 lda #$00
00c9b6 pha
00c9b7 plb
00c9b8 jsr $c9e6
00c9bb jsl $00e0c6
00c9bf jsr $cc89
00c9c2 jsl $00cd06
00c9c6 jsr $cd53
00c9c9 jsr $cd8f
00c9cc jsr $cde5
00c9cf jsl $00ce74
00c9d3 jsl $00cf6f
00c9d7 rep #$30
00c9d9 lda #$0000
00c9dc tcd
00c9dd sep #$20
00c9df pha
00c9e0 plb
00c9e1 jsl $00c904
00c9e5 rtl
; Part of active gameplay

; Player simulation handling?
00c9e6 jsl $00ca41
00c9ea rep #$20
00c9ec lda #$0d00 ; Very suspicious indeed
00c9ef tcd
00c9f0 sep #$20
00c9f2 jsr $cc45
00c9f5 jsr $cfd3
00c9f8 rts

00ca41 lda $00cc
00ca44 beq $ca83
00ca46 ldx #$0d00
00ca49 ldy #$0110
00ca4c lda $0011,x
00ca4f beq $ca54
00ca54 rep #$20
00ca56 lda $0008,y
00ca59 sta $0064,x
00ca5c lda $0000,y ; When y is 110 we are looking at player 1's input
00ca5f sta $0066,x
00ca62 sep #$20
00ca64 ldx #$0d80
00ca67 ldy #$0110 ; This is incorrect, player 2 should be loading #$0112
00ca6a lda $0011,x
00ca6d beq $ca72
00ca72 rep #$20
00ca74 lda $0008,y
00ca77 sta $0064,x
00ca7a lda $0000,y
00ca7d sta $0066,x
00ca80 sep #$20
00ca82 rtl

00cc45 lda $00
00cc47 beq $cc58
00cc49 bmi $cc54
00cc4b lda $44
00cc4d bmi $cc59
00cc4f jsl $02a210
00cc53 rts

00cc89 lda #$02
00cc8b sta $000f
00cc8e rep #$20
00cc90 lda #$1000
00cc93 tcd
00cc94 sep #$20
00cc96 lda $00
00cc98 beq $cca5
00cca5 dec $000f
00cca8 bmi $ccb6
00ccaa rep #$20
00ccac tdc
00ccad clc
00ccae adc #$00a0
00ccb1 tcd
00ccb2 sep #$20
00ccb4 bra $cc96
00ccb6 rts

00cd06 rep #$20
00cd08 lda #$11e0
00cd0b tcd
00cd0c sep #$20
00cd0e lda $00
00cd10 beq $cd1d
00cd1d rtl
00cd53 lda #$05
00cd55 sta $000f
00cd58 rep #$20
00cd5a lda #$1500
00cd5d tcd
00cd5e sep #$20
00cd60 lda $00
00cd62 beq $cd6d
00cd6d dec $000f
00cd70 bmi $cd7e
00cd72 rep #$20
00cd74 tdc
00cd75 clc
00cd76 adc #$0040
00cd79 tcd
00cd7a sep #$20
00cd7c bra $cd60
00cd7e rts
00cd8f lda #$02
00cd91 sta $000f
00cd94 rep #$20
00cd96 lda #$1c00
00cd99 tcd
00cd9a sep #$20
00cd9c lda $00
00cd9e beq $cda9
00cda9 dec $000f
00cdac bmi $cdba
00cdae rep #$20
00cdb0 tdc
00cdb1 clc
00cdb2 adc #$0080
00cdb5 tcd
00cdb6 sep #$20
00cdb8 bra $cd9c
00cdba rts
00cde5 lda #$04
00cde7 sta $000f
00cdea rep #$20
00cdec lda #$1280
00cdef tcd
00cdf0 sep #$20
00cdf2 lda $00
00cdf4 beq $cdff
00cdff dec $000f
00ce02 bmi $ce10
00ce04 rep #$20
00ce06 tdc
00ce07 clc
00ce08 adc #$0080
00ce0b tcd
00ce0c sep #$20
00ce0e bra $cdf2
00ce10 rts
00ce74 lda #$05
00ce76 sta $000f
00ce79 rep #$20
00ce7b lda #$1700
00ce7e tcd
00ce7f sep #$20
00ce81 lda $00
00ce83 beq $ce8e
00ce85 lda #$00
00ce87 xba
00ce88 lda $11
00ce8a tax
00ce8b jsr ($cea0,x)
00ce8e dec $000f
00ce91 bmi $ce9f
00ce93 rep #$20
00ce95 tdc
00ce96 clc
00ce97 adc #$0080
00ce9a tcd
00ce9b sep #$20
00ce9d bra $ce81
00ce9f rtl
00cf19 jsl $058c00
00cf1d rts
00cf24 jsl $05b007
00cf28 rts
00cf6f lda #$07
00cf71 sta $000f
00cf74 rep #$20
00cf76 lda #$1a00
00cf79 tcd
00cf7a sep #$20
00cf7c lda $00
00cf7e beq $cf89
00cf89 dec $000f
00cf8c bmi $cf9a
00cf8e rep #$20
00cf90 tdc
00cf91 clc
00cf92 adc #$0040
00cf95 tcd
00cf96 sep #$20
00cf98 bra $cf7c
00cf9a rtl

00cfd3 jsr $cfee
00cfd6 jsl $00aeb8
00cfda lda #$02
00cfdc bit $01
00cfde beq $cfed
00cfed rts

00cfee lda $0cd4
00cff1 bne $d008
00cff3 lda $02
00cff5 cmp #$02
00cff7 beq $d00d
00cff9 cmp #$04
00cffb beq $d00d
00cffd lda $0cd1
00d000 ora $0cd0
00d003 ora $0cc3
00d006 beq $d00d
00d008 jsl $00af7b
00d00c rts

00d00d lda #$02
00d00f tsb $00
00d011 rep #$20
00d013 stz $0004
00d016 stz $0006
00d019 lda $07
00d01b sec
00d01c sbc $0e07
00d01f tax
00d020 sec
00d021 sbc #$0018
00d024 bpl $d02b
00d02b txa
00d02c sec
00d02d sbc #$00e8
00d030 bmi $d035
00d035 lda $0a
00d037 sec
00d038 sbc $0e0a
00d03b tax
00d03c sec
00d03d sbc #$0020
00d040 bpl $d047
00d047 txa
00d048 sec
00d049 sbc #$00d0
00d04c bmi $d051
00d051 lda $07
00d053 sec
00d054 sbc $0004
00d057 sta $07
00d059 lda $0a
00d05b cmp $0d
00d05d bne $d067
00d05f lda $0d
00d061 sec
00d062 sbc $0006
00d065 sta $0d
00d067 lda $0a
00d069 sec
00d06a sbc $0006
00d06d sta $0a
00d06f sep #$20
00d071 lda $44
00d073 bpl $d0a3
00d0a3 rts

00d0a6 rep #$20
00d0a8 lda $0cb0
00d0ab and #$00ff
00d0ae asl a
00d0af tax
00d0b0 lda $00d0ba,x
00d0b4 sta $0cca
00d0b7 sep #$20
00d0b9 rtl

00d0d0 ldx $07
00d0d2 stx $0006
00d0d5 ldx $0d
00d0d7 stx $0008
00d0da lda $4e
00d0dc bne $d0f8
00d0de jsl $00d2f8
00d0e2 lda $0000
00d0e5 sta $2f
00d0e7 lda $000a
00d0ea sta $2e
00d0ec beq $d0f7
00d0f7 rtl
00d2f8 jsl $00d309
00d2fc beq $d2ff
00d2ff jsl $00d365
00d303 bne $d308
00d305 jmp $d3c1
00d309 rep #$20
00d30b lda $0006
00d30e sec
00d30f sbc $0e07
00d312 clc
00d313 adc #$00b0
00d316 cmp #$0260
00d319 sta $0002
00d31c bcs $d327
00d31e lda #$0000
00d321 sta $000a
00d324 sep #$20
00d326 rtl
00d365 ldy #$1280
00d368 jsr $daf9
00d36b bne $d394
00d36d ldy #$1300
00d370 jsr $daf9
00d373 bne $d394
00d375 ldy #$1380
00d378 jsr $daf9
00d37b bne $d394
00d37d ldy #$1400
00d380 jsr $daf9
00d383 bne $d394
00d385 ldy #$1480
00d388 jsr $daf9
00d38b bne $d394
00d38d stz $4a
00d38f stz $4b
00d391 lda #$00
00d393 rtl
00d399 ldy #$1280
00d39c jsr $daf9
00d39f bne $d3ce
00d3a1 ldy #$1300
00d3a4 jsr $daf9
00d3a7 bne $d3ce
00d3a9 ldy #$1380
00d3ac jsr $daf9
00d3af bne $d3ce
00d3b1 ldy #$1400
00d3b4 jsr $daf9
00d3b7 bne $d3ce
00d3b9 ldy #$1480
00d3bc jsr $daf9
00d3bf bne $d3ce
00d3c1 rep #$20
00d3c3 jsr $df51
00d3c6 lda $0000
00d3c9 asl a
00d3ca tax
00d3cb jsr ($d3d4,x)
00d3ce sta $000a
00d3d1 sep #$20
00d3d3 rtl
00d422 lda #$0000
00d425 rts
00d44c lda $0008
00d44f and #$000f
00d452 sec
00d453 sbc #$0010
00d456 eor #$ffff
00d459 inc
00d45a sta $0004
00d45d stz $0002
00d460 lda #$0001
00d463 rts
00daf9 lda $0000,y
00dafc beq $db17
00db17 lda #$00
00db19 rts
00df51 jsr $df85
00df54 xba
00df55 sta $0010
00df58 lda $0006
00df5b and #$00f0
00df5e lsr a
00df5f lsr a
00df60 lsr a
00df61 lsr a
00df62 clc
00df63 adc $0010
00df66 sta $0010
00df69 lda $0008
00df6c eor #$ffff
00df6f and #$00f0
00df72 clc
00df73 adc $0010
00df76 sta $0010
00df79 tax
00df7a lda $7f2000,x
00df7e and #$00ff
00df81 sta $0000
00df84 rts
00df85 lda $0cdc
00df88 tax
00df89 jmp ($df8c,x)
00dfa0 lda $0007
00dfa3 and #$000f
00dfa6 clc
00dfa7 adc $0cde
00dfaa tax
00dfab lda $070000,x
00dfaf and #$00ff
00dfb2 rts
00dfed jsr $dff4
00dff0 jsr $e010
00dff3 rtl
00dff4 lda #$00
00dff6 xba
00dff7 lda $0cb0
00dffa asl a
00dffb asl a
00dffc tax
00dffd rep #$20
00dfff lda $078084,x
00e003 sta $0cdc
00e006 lda $078086,x
00e00a sta $0cde
00e00d sep #$20
00e00f rts
00e010 rep #$20
00e012 phd
00e013 phb
00e014 lda #$0000
00e017 tcd
00e018 sta $0012
00e01b sep #$20
00e01d lda $0cb0
00e020 asl a
00e021 tax
00e022 ldy $e069,x
00e025 tyx
00e026 lda $0000,x
00e029 sta $0000
00e02c inx
00e02d stx $0010
00e030 jsr $e03b
00e033 dec $0000
00e036 bne $e030
00e038 plb
00e039 pld
00e03a rts
00e03b lda #$00
00e03d xba
00e03e lda ($10)
00e040 xba
00e041 tax
00e042 ldy $0012
00e045 rep #$20
00e047 inc $0010
00e04a sep #$20
00e04c phb
00e04d lda #$7f
00e04f pha
00e050 plb
00e051 lda #$00
00e053 sta $0008
00e056 lda $0f8000,x
00e05a sta $2000,y
00e05d inx
00e05e iny
00e05f dec $0008
00e062 bne $e056
00e064 plb
00e065 sty $0012
00e068 rts
00e0c6 lda #$00
00e0c8 xba
00e0c9 lda #$00
00e0cb tcd
00e0cc lda $0cf0
00e0cf tax
00e0d0 jmp ($e0d3,x)

00e0d7 rep #$30
00e0d9 ldx #$00fe
00e0dc lda #$2020
00e0df sta $7e2400,x
00e0e3 dex
00e0e4 dex
00e0e5 bpl $e0df
00e0e7 ldy #$001e
00e0ea lda $e17f,y
00e0ed sta $0400,y
00e0f0 dey
00e0f1 dey
00e0f2 bpl $e0ea
00e0f4 sep #$20
00e0f6 lda #$02
00e0f8 tsb $00d6
00e0fb ldx #$0047
00e0fe ldy #$001c
00e101 lda #$24
00e103 sta $7e2400,x
00e107 inx
00e108 inx
00e109 dey
00e10a bne $e103
00e10c lda #$54
00e10e sta $7e245c
00e112 lda #$49
00e114 sta $7e245e
00e118 lda #$4d
00e11a sta $7e2460
00e11e lda #$45
00e120 sta $7e2462
00e124 stz $0cf4
00e127 lda $0d10
00e12a sta $0008
00e12d lda $0d11
00e130 sta $000a
00e133 lda $0d12
00e136 sta $000c
00e139 stz $0007
00e13c ldx #$0042
00e13f jsr $e48c
00e142 lda #$ff
00e144 sta $0cfe
00e147 ldx #$0086
00e14a jsr $e368
00e14d jsl $00e528
00e151 ldx #$0002
00e154 ldy #$0010
00e157 lda #$28
00e159 sta $7e2400,x
00e15d inx
00e15e dey
00e15f bne $e159
00e161 jsl $00e56f
00e165 jsl $00e59b
00e169 lda #$24
00e16b sta $7e2457
00e16f jsl $00e5de
00e173 lda #$02
00e175 sta $0cf0
00e178 stz $0cf1
00e17b stz $0cf2
00e17e rtl

00e19f jsr $ec25
00e1a2 stz $0cf4
00e1a5 ldx $0d14
00e1a8 cpx $0cfe
00e1ab beq $e1bf
00e1ad stx $0cfe
00e1b0 stx $0000
00e1b3 ldx $0d18
00e1b6 stx $0002
00e1b9 ldx #$0086
00e1bc jsr $e368
00e1bf lda $0cb3
00e1c2 beq $e1c7
00e1c7 inc $0cf4
00e1ca lda #$00
00e1cc xba
00e1cd lda $0cf1
00e1d0 tax
00e1d1 jsr ($e1d5,x)
00e1d4 rtl
00e1db lda $0102
00e1de cmp $0103
00e1e1 bne $e1fc
00e1e3 lda $0d47
00e1e6 beq $e1eb
00e1eb lda $0cf3
00e1ee beq $e1f3
00e1f3 lda $0cd3
00e1f6 beq $e1fb
00e1fb rts
00e368 rep #$30
00e36a lda $0002
00e36d bne $e372
00e372 ldy #$2000
00e375 sty $0004
00e378 cmp #$0051
00e37b bcc $e383
00e37d lda #$0050
00e380 sta $0002
00e383 lda $0000
00e386 bmi $e397
00e388 beq $e397
00e38a ldy $0002
00e38d cpy $0000
00e390 bcs $e39d
00e397 stz $0000
00e39a jmp $e416
00e39d cmp #$0051
00e3a0 bcs $e3ae
00e3a2 lda $0002
00e3a5 sec
00e3a6 sbc $0000
00e3a9 sta $0002
00e3ac bra $e3ce
00e3ce lda $0000
00e3d1 lsr a
00e3d2 lsr a
00e3d3 lsr a
00e3d4 beq $e3e6
00e3d6 tay
00e3d7 lda #$20c0
00e3da ora $0004
00e3dd sta $7e2400,x
00e3e1 inx
00e3e2 inx
00e3e3 dey
00e3e4 bne $e3dd
00e3e6 lda $0000
00e3e9 and #$0007
00e3ec sta $0000
00e3ef beq $e416
00e3f1 clc
00e3f2 adc $0002
00e3f5 cmp #$0008
00e3f8 bcc $e434
00e3fa lda #$20c8
00e3fd sbc $0000
00e400 sta $7e2400,x
00e404 inx
00e405 inx
00e406 lda $0000
00e409 sbc #$0008
00e40c clc
00e40d adc $0002
00e410 sta $0002
00e413 stz $0000
00e416 lda $0002
00e419 lsr a
00e41a lsr a
00e41b lsr a
00e41c beq $e434
00e41e tay
00e41f lda #$20c8
00e422 sta $7e2400,x
00e426 inx
00e427 inx
00e428 dey
00e429 bne $e41f
00e42b lda $0002
00e42e and #$0007
00e431 sta $0002
00e434 lda $0000
00e437 clc
00e438 adc $0002
00e43b asl a
00e43c tay
00e43d lda $e46a,y
00e440 adc $0002
00e443 ora $0004
00e446 sta $7e2400,x
00e44a inx
00e44b inx
00e44c sep #$20
00e44e lda $0cf4
00e451 beq $e466
00e466 inc $00e6
00e469 rts
00e48c jsr $e4a7
00e48f ldy #$0001
00e492 lda ($10),y
00e494 sta $7e2404,x
00e498 lda #$24
00e49a sta $7e2405,x
00e49e inx
00e49f inx
00e4a0 iny
00e4a1 cpy #$000b
00e4a4 bcc $e492
00e4a6 rts
00e4a7 rep #$20
00e4a9 sep #$10
00e4ab lda #$0000
00e4ae tcd
00e4af ldy $0008
00e4b2 lda $e62b,y
00e4b5 sta $0010
00e4b8 ldy $000a
00e4bb lda ($10),y
00e4bd sta $10
00e4bf ldy $000c
00e4c2 lda ($10),y
00e4c4 sta $10
00e4c6 sep #$30
00e4c8 lda ($10)
00e4ca tay
00e4cb lda $0007
00e4ce bpl $e4da
00e4da phy
00e4db lda $eb99,y
00e4de bmi $e4fc
00e4fc pla
00e4fd rep #$30
00e4ff and #$00ff
00e502 asl a
00e503 asl a
00e504 asl a
00e505 tay
00e506 lda $ea69,y
00e509 sta $7e2400,x
00e50d lda $ea6b,y
00e510 sta $7e2402,x
00e514 lda $ea6d,y
00e517 sta $7e2440,x
00e51b lda $ea6f,y
00e51e sta $7e2442,x
00e522 sep #$20
00e524 inc $00e6
00e527 rts
00e528 phb
00e529 lda #$7e
00e52b pha
00e52c plb
00e52d inc $00e6
00e530 ldx #$001c
00e533 lda $ffc0
00e536 sta $7e23fa,x
00e53a lda $ffc1
00e53d sta $7e23fc,x
00e541 lda $ffc2
00e544 sta $7e23fe,x
00e548 ldy #$0000
00e54b lda $ffb8,y
00e54e bne $e561
00e550 lda #$20
00e552 sta $7e2400,x
00e556 inx
00e557 inx
00e558 iny
00e559 cpy #$0007
00e55c bcc $e54b
00e55e lda $ffb8,y
00e561 sta $7e2400,x
00e565 inx
00e566 inx
00e567 iny
00e568 cpy #$0008
00e56b bcc $e55e
00e56d plb
00e56e rtl
00e56f inc $00e6
00e572 ldx #$0002
00e575 ldy #$0000
00e578 lda $0c90,y
00e57b bne $e58e
00e57d lda #$20
00e57f sta $7e2400,x
00e583 inx
00e584 inx
00e585 iny
00e586 cpy #$0007
00e589 bcc $e578
00e58b lda $0c90,y
00e58e sta $7e2400,x
00e592 inx
00e593 inx
00e594 iny
00e595 cpy #$0008
00e598 bcc $e58b
00e59a rtl
00e59b lda #$20
00e59d xba
00e59e lda $0cbd
00e5a1 asl a
00e5a2 asl a
00e5a3 ora #$80
00e5a5 rep #$20
00e5a7 sta $7e249c
00e5ab inc
00e5ac sta $7e249e
00e5b0 inc
00e5b1 sta $7e24dc
00e5b5 inc
00e5b6 sta $7e24de
00e5ba sep #$20
00e5bc lda $0cbc
00e5bf asl a
00e5c0 asl a
00e5c1 ora #$80
00e5c3 rep #$20
00e5c5 sta $7e24a0
00e5c9 inc
00e5ca sta $7e24a2
00e5ce inc
00e5cf sta $7e24e0
00e5d3 inc
00e5d4 sta $7e24e2
00e5d8 sep #$20
00e5da inc $00e6
00e5dd rtl
00e5de lda $0d6f
00e5e1 beq $e5e7
00e5e7 lda $0d6e
00e5ea dec
00e5eb bpl $e5ee
00e5ee sta $7e2456
00e5f2 inc $00e6
00e5f5 rtl
00ec25 lda #$00
00ec27 xba
00ec28 lda $0158
00ec2b cmp $0159
00ec2e bne $ec31
00ec30 rts
018203 rep #$20
018205 lda #$0000
018208 tcd
018209 sep #$20
01820b jsr $8241
01820e bra $8220
018215 rep #$20
018217 lda #$0000
01821a tcd
01821b sep #$20
01821d jsr $8268
018220 ldx $0010
018223 beq $8240
018225 lda #$f9
018227 sta $2140
01822a jsr $82e4
01822d lda $2140
018230 dec
018231 bne $822d
018233 inc
018234 sta $7efffb
018238 lda #$00
01823a sta $0100
01823d sta $0101
018240 rtl
018241 lda $0d12
018244 cmp #$02
018246 beq $8258
018258 lda #$b0
01825a sta $0010
01825d lda #$a0
01825f sta $0011
018262 lda #$09
018264 sta $0012
018267 rts
018268 lda $0cb0
01826b asl a
01826c tax
01826d rep #$20
01826f lda $00f8ed,x
018273 sta $0000
018276 lda $0cb1
018279 and #$00ff
01827c clc
01827d adc $0000
018280 sta $0000
018283 lda $0cb1
018286 and #$00ff
018289 asl a
01828a clc
01828b adc $0000
01828e tax
01828f lda $00f8ed,x
018293 sta $0010
018296 sep #$20
018298 lda $00f8ef,x
01829c sta $0012
01829f rts
0182e4 php
0182e5 rep #$30
0182e7 ldy #$0000
0182ea lda #$bbaa
0182ed cmp $2140
0182f0 bne $82ed
0182f2 sep #$20
0182f4 lda #$cc
0182f6 bra $8326
0182f8 lda
0182fa iny
0182fb xba
0182fc lda #$00
0182fe bra $8313
018300 xba
018301 lda
018303 iny
018304 bpl $830c
01830c xba
01830d cmp $2140
018310 bne $830d
018312 inc
018313 rep #$20
018315 sta $2140
018318 sep #$20
01831a dex
01831b bne $8300
01831d cmp $2140
018320 bne $831d
018322 adc #$03
018324 beq $8322
018326 pha
018327 rep #$20
018329 lda
01832b iny
01832c iny
01832d tax
01832e lda
018330 iny
018331 iny
018332 sta $2142
018335 sep #$20
018337 cpx #$0001
01833a lda #$00
01833c rol a
01833d sta $2141
018340 adc #$7f
018342 pla
018343 sta $2140
018346 cmp $2140
018349 bne $8346
01834b bvs $82f8
01834d plp
01834e rts

; Main game loop?
01975d jsr $981f
019760 lda #$01
019762 jsl $00819c
019766 bra $975d
; Main game loop?

01978b lda $00cc
01978e beq $97db
019790 lda $0ca0
019793 cmp #$06
019795 beq $97a2
0197a2 lda $0cd0
0197a5 ora $0cd1
0197a8 ora $0cc3
0197ab bne $97db
0197ad lda $0119
0197b0 and $0111
0197b3 and #$10
0197b5 beq $97be
0197be lda $7efffa
0197c2 beq $97db
0197db stz $0140
0197de rts

; Main entry point?
01981f ldx $0cb4
019822 inx
019823 stx $0cb4
019826 lda #$00
019828 xba
019829 lda $0ca0
01982c tax
01982d jmp ($9830,x) ; Jump to game mode
; Main entry point?

; Character select ($0ca0 = #$00)
019868 jsr $a5d8
01986b lda #$02
01986d sta $0ca0
019870 rts
; Character select ($0ca0 = #$00)

; Open stage 1 ($0ca0 = #$02)
019871 jsr $9e4f
019874 jsl $00dfed
019878 stz $0cd3
01987b stz $0cd2
01987e lda #$04
019880 sta $0ca0
019883 rts
; Open stage 1 ($0ca0 = #$02)

; Open stage 2 ($0ca0 = #$04)
019884 jsl $008ea8
019888 ldx #$0000
01988b jsl $008cf6
01988f jsr $9e5a
019892 jsr $a69e
019895 jsl $0297eb
019899 lda #$01
01989b sta $0cd1
01989e stz $0cc3
0198a1 stz $0cd0
0198a4 stz $0cc2
0198a7 stz $0cd5
0198aa stz $0cd6
0198ad rep #$20
0198af stz $0780
0198b2 stz $0782
0198b5 stz $0784
0198b8 stz $0786
0198bb stz $07ae
0198be stz $07b8
0198c1 stz $07b0
0198c4 stz $07b2
0198c7 stz $07b4
0198ca stz $07b6
0198cd sep #$20
0198cf stz $0cab
0198d2 stz $0caa
0198d5 stz $0cac
0198d8 lda #$20
0198da sta $0ca5
0198dd jsl $0297eb
0198e1 lda #$01
0198e3 jsl $00819c
0198e7 dec $0ca5
0198ea bpl $98dd
0198ec lda #$01
0198ee sta $0106
0198f1 sta $0104
0198f4 lda #$02
0198f6 sta $0105
0198f9 lda #$01
0198fb jsl $00819c
0198ff lda #$02
019901 jsl $008f1a
019905 lda #$06
019907 sta $0ca0
01990a lda $0cb3
01990d beq $992e
01992e rts
; Open stage 2 ($0ca0 = #$04)

; Active gameplay ($0ca0 = #$06)
01992f jsr $a847
019932 lda $00cc
019935 beq $995f
019937 ldx $0d6e
01993a bne $995f
01995f jsr $a280
019962 jsr $a33f
019965 jsl $00c9b4
019969 jsl $0297eb
01996d jsl $028000
019971 jsl $01c078
019975 jsl $02c56a
019979 jsl $00b0f9
01997d jsl $01a701
019981 jsr $99ed
019984 lda $0cd0
019987 beq $9996
019995 rts
; Active gameplay

019996 jsr $978b
019999 lda $0140
01999c beq $9995

0199ed lda $0cd0
0199f0 ora $00d0
0199f3 bne $9a0f
0199f5 lda $7efffa
0199f9 beq $9a0f
019a0f rts

019e4f ldx #$0d00
019e52 jsr $a635
019e55 jsl $00d0a6
019e59 rts

; Part of open stage 2
019e5a lda #$f0
019e5c jsl $009f5a
019e60 lda #$0a
019e62 jsl $00819c
019e66 jsl $01a097
019e6a jsl $028b2e
019e6e jsl $00e0d7
019e72 jsr $a068
019e75 sei
019e76 jsl $0088b9
019e7a jsl $0088c2
019e7e stz $015c
019e81 stz $015d
019e84 ldx #$0000
019e87 jsl $008b4c
019e8b jsl $008ca8
019e8f jsl $019f4d
019e93 jsl $018203
019e97 jsl $018215
019e9b jsl $0088cb
019e9f jsl $0088b0
019ea3 cli
019ea4 jsr $a643
019ea7 jsl $009d2a
019eab jsl $01a1ce
019eaf jsl $01a072
019eb3 jsr $9eb7
019eb6 rts
; Part of open stage 2

019eb7 lda $0cb3
019eba bne $9ed2
019ebc jsl $01a40c
019ec0 beq $9ec7
019ec2 cmp $0cb1
019ec5 bne $9ed2
019ed2 rts

019f4d ldx #$0085
019f50 jsl $0089c2
019f54 lda #$1f
019f56 ldy #$0060
019f59 jsl $008e73
019f5d lda #$1e
019f5f ldy #$0040
019f62 jsl $008e73
019f66 lda #$2b
019f68 ldy #$0020
019f6b jsl $008e73
019f6f lda $00f7ff
019f73 bne $9f7e
019f7e ldx #$0165
019f81 jsl $0089c2
019f85 lda #$17
019f87 ldy #$0080
019f8a jsl $008e73
019f8e stz $075a
019f91 lda #$00
019f93 xba
019f94 lda $0cb0
019f97 asl a
019f98 tax
019f99 rep #$20
019f9b lda $0cb1
019f9e asl a
019f9f and #$00ff
019fa2 clc
019fa3 adc $019fad,x
019fa7 tax
019fa8 sep #$20
019faa jmp ($9fad,x)
019fe5 lda $00f7ff
019fe9 bne $9ff4
019ff4 ldx #$0165
019ff7 jsl $0089c2
019ffb lda #$17
019ffd ldy #$0080
01a000 jsl $008e73
01a004 rtl

01a068 ldx #$000f
01a06b stz $0cf0,x
01a06e dex
01a06f bpl $a06b
01a071 rts

01a072 ldx #$0a80
01a075 stx $0ac6
01a078 ldx #$0011
01a07b stx $0ac4
01a07e ldx #$0700
01a081 stx $0722
01a084 ldx #$0010
01a087 stx $0720
01a08a ldx #$0724
01a08d stx $0746
01a090 ldx #$0010
01a093 stx $0744
01a096 rtl

01a097 rep #$20
01a099 lda #$0080
01a09c ldx #$0e00
01a09f ldy #$0004
01a0a2 jsr $a162
01a0a5 rep #$20
01a0a7 lda #$02a0
01a0aa ldx #$1000
01a0ad ldy #$0003
01a0b0 jsr $a162
01a0b3 lda #$04a0
01a0b6 ldx #$11e0
01a0b9 ldy #$0001
01a0bc jsr $a162
01a0bf lda #$0a80
01a0c2 ldx #$1280
01a0c5 ldy #$0005
01a0c8 jsr $a162
01a0cb lda #$1240
01a0ce ldx #$1500
01a0d1 ldy #$0006
01a0d4 jsr $a162
01a0d7 lda #$1080
01a0da ldx #$1680
01a0dd ldy #$0001
01a0e0 jsr $a162
01a0e3 lda #$0880
01a0e6 ldx #$1700
01a0e9 ldy #$0006
01a0ec jsr $a162
01a0ef lda #$0e40
01a0f2 ldx #$1a00
01a0f5 ldy #$0008
01a0f8 jsr $a162
01a0fb lda #$0680
01a0fe ldx #$1c00
01a101 ldy #$0003
01a104 jsr $a162
01a107 sep #$20
01a109 stz $0160
01a10c stz $0161
01a10f stz $0162
01a112 stz $0163
01a115 stz $0164
01a118 stz $0165
01a11b stz $0759
01a11e stz $0ce1
01a121 stz $0cd7
01a124 stz $0cd6
01a127 stz $0caa
01a12a stz $0cab
01a12d stz $0cac
01a130 rep #$20
01a132 stz $0170
01a135 stz $0172
01a138 stz $0174
01a13b stz $0176
01a13e stz $0166
01a141 stz $0168
01a144 stz $016a
01a147 stz $016c
01a14a lda #$ffff
01a14d sta $0748
01a150 sta $074a
01a153 sta $074c
01a156 sta $074e
01a159 stz $0754
01a15c stz $0756
01a15f sep #$20
01a161 rtl

;
01a162 xba
01a163 sta $0000
01a166 xba
01a167 and #$00ff
01a16a sec
01a16b sbc #$0012
01a16e sta $0002
01a171 lda $0000
01a174 and #$00ff
01a177 sta $0000
01a17a sty $0004
01a17d lda #$0010
01a180 tay
01a181 stz $0000,x
01a184 inx
01a185 inx
01a186 dey
01a187 dey
01a188 bne $a181
01a18a lda $0000
01a18d sta $0000,x
01a190 inx
01a191 inx
01a192 lda $0002
01a195 tay
01a196 stz $0000,x
01a199 inx
01a19a inx
01a19b dey
01a19c dey
01a19d bne $a196
01a19f dec $0004
01a1a2 bne $a17d
01a1a4 rts
;

01a1a5 lda #$00
01a1a7 sta $2101
01a1aa lda #$a9
01a1ac sta $2105
01a1af lda #$71
01a1b1 sta $2107
01a1b4 lda #$78
01a1b6 sta $2108
01a1b9 lda #$7c
01a1bb sta $2109
01a1be lda #$7c
01a1c0 sta $210a
01a1c3 lda #$22
01a1c5 sta $210b
01a1c8 lda #$26
01a1ca sta $210c
01a1cd rts
01a1ce jsr $a1a5
01a1d1 lda #$22
01a1d3 sta $210b
01a1d6 stz $00ea
01a1d9 lda #$00
01a1db xba
01a1dc lda $0cb0
01a1df asl a
01a1e0 tax
01a1e1 lda $0cb1
01a1e4 asl a
01a1e5 jsr ($a1e9,x)
01a1e8 rtl
01a1fd tax
01a1fe jmp ($a201,x)
01a207 lda #$30
01a209 sta $0ce0
01a20c rts
01a280 lda $7efffa
01a284 beq $a289
01a289 lda $0cd1
01a28c ora $0cd0
01a28f ora $0cb3
01a292 ora $0cc3
01a295 bne $a2bd
01a297 rep #$20
01a299 inc $0cc8
01a29c lda $0cba
01a29f asl a
01a2a0 tax
01a2a1 lda $01a2be,x
01a2a5 cmp $0cc8
01a2a8 bcs $a2bb
01a2aa stz $0cc8
01a2ad lda $01a2c6,x
01a2b1 cmp $0cb6
01a2b4 bcc $a2bb
01a2b6 beq $a2bb
01a2b8 inc $0cb6
01a2bb sep #$20
01a2bd rts
01a33f lda $0cd1
01a342 ora $0cd0
01a345 ora $0cc3
01a348 bne $a37d
01a34a rep #$20
01a34c inc $0cbe
01a34f lda $0cbe
01a352 cmp #$01e0
01a355 sep #$20
01a357 bcc $a37d
01a359 stz $0cbe
01a35c stz $0cbf
01a35f ldx $0cbc
01a362 beq $a37e
01a364 dec $0cbc
01a367 bpl $a379
01a379 jsl $00e59b
01a37d rts
01a40c lda #$00
01a40e xba
01a40f lda $0cb0
01a412 tax
01a413 lda $01a418,x
01a417 rtl

; More player init
01a542 lda #$01
01a544 sta $00,x
01a546 stz $02,x
01a548 stz $03,x
01a54a stz $04,x
01a54c stz $05,x
01a54e stz $68,x
01a550 stz $69,x
01a552 stz $6a,x
01a554 stz $72,x
01a556 stz $73,x
01a558 stz $52,x
01a55a stz $51,x
01a55c stz $20,x
01a55e stz $38,x
01a560 stz $44,x
01a562 stz $46,x
01a564 stz $47,x
01a566 stz $3b,x
01a568 stz $70
01a56a stz $71
01a56c ldy #$0000
01a56f sty $78,x
01a571 sty $48,x
01a573 sty $4c,x
01a575 sty $7e,x
01a577 sty $4a,x
01a579 sty $4e,x
01a57b rts
; More player init

; Player init
01a5d8 lda #$00
01a5da xba
01a5db lda $0d12
01a5de tax

01a5df ldy #$0000
01a5e2 jsl $00a1fc

01a5e6 ldy #$0d00
01a5e9 jsl $01a5fc

01a5ed lda $00cd
01a5f0 bit #$02 ; Check if two player
01a5f2 beq $a5fb

01a5f4 ldy #$0d80
01a5f7 jsl $01a5fc
01a5fb rts
; Player init

; Player intialization?
01a5fc lda #$00
01a5fe xba
01a5ff lda $0012,y
01a602 asl a
01a603 tax
01a604 rep #$20
01a606 lda $01a629,x
01a60a sta $002a,y
01a60d lda $01a62b,x
01a611 sta $0028,y
01a614 sep #$20
01a616 lda #$00
01a618 sta $0043,y
01a61b lda #$00
01a61d xba
01a61e rep #$20
01a620 lda #$0050
01a623 sta $0018,y
01a626 sep #$20
01a628 rtl
; Player intialization?

01a635 rep #$20
01a637 lda $0018,x
01a63a sta $0014,x
01a63d sta $0016,x
01a640 sep #$20
01a642 rts

; EVEN MORE PLAYER INIT
01a643 ldx #$0d00
01a646 jsr $a542
01a649 phx
01a64a pld
01a64b jsr $a657
01a64e jsr $a670
01a651 ldx #$0000
01a654 phx
01a655 pld
01a656 rts
; EVEN MORE PLAYER INIT

01a657 lda #$02
01a659 sta $22
01a65b lda #$0a
01a65d sta $02
01a65f lda #$00
01a661 xba
01a662 lda $12
01a664 lsr a
01a665 tax
01a666 lda $01a66d,x
01a66a sta $23
01a66c rts

01a670 lda #$00
01a672 xba
01a673 lda $12
01a675 tax
01a676 lda $01a687,x
01a67a tax
01a67b sep #$20
01a67d jsl $008cf6
01a681 lda #$00
01a683 sta $21
01a685 rts

01a69e stz $0cbe
01a6a1 stz $0cbf
01a6a4 lda #$00
01a6a6 xba
01a6a7 lda $0cb0
01a6aa asl a
01a6ab asl a
01a6ac clc
01a6ad adc $0cb1
01a6b0 tax
01a6b1 lda $01a6d5,x
01a6b5 cmp #$ff
01a6b7 beq $a6c7
01a6b9 stz $0cbc
01a6bc sta $0cbd
01a6bf stz $0cc4
01a6c2 sta $0cc5
01a6c5 bra $a6d0
01a6d0 jsl $00e59b
01a6d4 rts
01a701 rep #$20
01a703 lda #$015a
01a706 tcd
01a707 sep #$20
01a709 lda #$00
01a70b xba
01a70c lda $02
01a70e tax
01a70f jsr ($a71b,x)
01a712 rep #$20
01a714 lda #$0000
01a717 tcd
01a718 sep #$20
01a71a rtl
01a721 lda #$02
01a723 sta $02
01a725 rts
01a726 rts
01a727 lda $0cb0
01a72a asl a
01a72b tax
01a72c jmp ($a72f,x)
01a74c lda $0cb1
01a74f asl a
01a750 tax
01a751 jmp ($a754,x)
01a75a lda $03
01a75c tax
01a75d jmp ($a760,x)
01a764 lda #$0b
01a766 jsl $009f5a
01a76a ldx #$00de
01a76d stx $00
01a76f lda #$02
01a771 sta $03
01a773 rts
01a774 ldx $00
01a776 dex
01a777 stx $00
01a779 bne $a77f
01a77f rts

01a847 rep #$20
01a849 ldx #$01ff
01a84c lda #$e000
01a84f sta $017d,x
01a852 dex
01a853 dex
01a854 dex
01a855 dex
01a856 bpl $a84f
01a858 ldx #$001f
01a85b lda #$5555
01a85e sta $0380,x
01a861 dex
01a862 dex
01a863 bpl $a85e
01a865 sep #$20
01a867 rts
01a8cf rep #$30
01a8d1 lda #$00a0
01a8d4 tcd
01a8d5 sep #$20
01a8d7 lda #$00
01a8d9 xba
01a8da lda $08
01a8dc tax
01a8dd jsr ($a8e7,x)
01a8e0 stz $00d0
01a8e3 jml $00817c
01a8eb lda #$01
01a8ed sta $0a
01a8ef stz $09
01a8f1 stz $212d
01a8f4 lda #$97
01a8f6 sta $2131
01a8f9 lda #$02
01a8fb sta $2130
01a8fe inc $09
01a900 jsr $a918
01a903 jsr $a920
01a906 lda $09
01a908 cmp #$1f
01a90a beq $a914
01a90c lda $0a
01a90e jsl $00819c
01a912 bra $a8fe
01a914 stz $00ea
01a917 rts
01a918 lda $09
01a91a ora #$e0
01a91c sta $2132
01a91f rts
01a920 ldx #$00ff
01a923 lda $0500,x
01a926 lsr a
01a927 lsr a
01a928 and #$1f
01a92a sta $0b
01a92c rep #$20
01a92e lda $04ff,x
01a931 asl a
01a932 asl a
01a933 asl a
01a934 sep #$20
01a936 xba
01a937 and #$1f
01a939 sta $0c
01a93b lda $04ff,x
01a93e and #$1f
01a940 sta $0d
01a942 lda $09
01a944 eor #$1f
01a946 cmp $0b
01a948 bcs $a94c
01a94a sta $0b
01a94c cmp $0c
01a94e bcs $a952
01a950 sta $0c
01a952 cmp $0d
01a954 bcs $a958
01a956 sta $0d
01a958 lda $0b
01a95a asl a
01a95b asl a
01a95c sta $0f
01a95e lda $0d
01a960 sta $0e
01a962 lda #$00
01a964 xba
01a965 lda $0c
01a967 xba
01a968 rep #$20
01a96a lsr a
01a96b lsr a
01a96c lsr a
01a96d ora $0e
01a96f sta $05ff,x
01a972 sep #$20
01a974 dex
01a975 dex
01a976 bpl $a923
01a978 rts
01a979 lda #$01
01a97b sta $0a
01a97d lda #$1f
01a97f sta $09
01a981 lda #$17
01a983 sta $00ea
01a986 stz $212d
01a989 lda #$97
01a98b sta $2131
01a98e lda #$02
01a990 sta $2130
01a993 dec $09
01a995 jsr $a918
01a998 jsr $a920
01a99b lda $09
01a99d beq $a9a7
01a99f lda $0a
01a9a1 jsl $00819c
01a9a5 bra $a993
01a9a7 stz $2131
01a9aa stz $2130
01a9ad rts
01b045 lda #$01
01b047 jsl $00819c
01b04b jsr $b050
01b04e bra $b045
01b050 lda #$00
01b052 xba
01b053 lda $0088
01b056 tax
01b057 jmp ($b05a,x)
01b13e jsr $b175
01b141 ldx $008d
01b144 dex
01b145 stx $008d
01b148 beq $b16f
01b14a rts
01b14b lda #$42
01b14d jsl $009f5a
01b151 ldx #$0007
01b154 ldy #$000f
01b157 lda $008f
01b15a beq $b15f
01b15f lda $01b12e,x
01b163 sta $0400,y
01b166 dey
01b167 dex
01b168 bpl $b15f
01b16a ora #$02
01b16c tsb $00d6
01b16f lda #$04
01b171 sta $0088
01b174 rts
01b175 jsl $00ca41
01b179 lda $0d67
01b17c and $0d65
01b17f bit #$23
01b181 bne $b192
01b183 bit #$d0
01b185 bne $b14b
01b187 lda $0d66
01b18a and $0d64
01b18d bit #$c0
01b18f bne $b14b
01b191 rts
01b1d5 lda $008f
01b1d8 and #$01
01b1da asl a
01b1db clc
01b1dc adc #$02
01b1de sta $0d12
01b1e1 lda #$00
01b1e3 jsl $008f3b
01b1e7 lda $008b
01b1ea sta $0cb0
01b1ed lda $008c
01b1f0 sta $0cb1
01b1f3 ldx #$0010
01b1f6 jsl $0081d9
01b1fa jml $00817c
01c078 rep #$20
01c07a lda #$0000
01c07d tcd
01c07e sep #$20
01c080 jsr $c086
01c083 sep #$20
01c085 rtl
01c086 ldx #$0000
01c089 stx $00
01c08b stx $02
01c08d lda #$02
01c08f bit $0d01
01c092 bne $c0ac
01c094 ldx $0d4e
01c097 bne $c0ac
01c099 jsr $caf0
01c09c ldx $0d5a
01c09f beq $c0a4
01c0a1 jsr $c0ad
01c0a4 ldx $0d54
01c0a7 beq $c0ac
01c0a9 jsr $c6e4
01c0ac rts

01c0ad ldy #$0d00
01c0b0 lda #$02
01c0b2 sta $0f
01c0b4 ldx #$1000
01c0b7 lda $0000,x
01c0ba beq $c0bf
01c0bf dec $0f
01c0c1 bmi $c0cf
01c0c3 rep #$20
01c0c5 txa
01c0c6 clc
01c0c7 adc #$00a0
01c0ca tax
01c0cb sep #$20
01c0cd bra $c0b7
01c0cf ldx #$11e0
01c0d2 lda $0000,x
01c0d5 beq $c0da
01c0da lda #$04
01c0dc sta $0f
01c0de ldx #$1280
01c0e1 lda $0000,x
01c0e4 beq $c0e9
01c0e9 dec $0f
01c0eb bmi $c0f9
01c0ed rep #$20
01c0ef txa
01c0f0 clc
01c0f1 adc #$0080
01c0f4 tax
01c0f5 sep #$20
01c0f7 bra $c0e1
01c0f9 rts

01c6e4 lda $00cb
01c6e7 bne $c735
01c6e9 ldx #$0d00
01c6ec lda #$02
01c6ee sta $0f
01c6f0 ldy #$1000
01c6f3 lda $0000,x
01c6f6 beq $c6fb
01c6f8 jsr $c736
01c6fb dec $0f
01c6fd bmi $c70b
01c6ff rep #$20
01c701 tya
01c702 clc
01c703 adc #$00a0
01c706 tay
01c707 sep #$20
01c709 bra $c6f3
01c70b ldy #$11e0
01c70e lda $0000,x
01c711 beq $c716
01c713 jsr $c736
01c716 lda #$04
01c718 sta $0f
01c71a ldy #$1280
01c71d lda $0000,x
01c720 beq $c725
01c722 jsr $c736
01c725 dec $0f
01c727 bmi $c735
01c729 rep #$20
01c72b tya
01c72c clc
01c72d adc #$0080
01c730 tay
01c731 sep #$20
01c733 bra $c71d
01c735 rts
01c736 lda $005a,y
01c739 beq $c75a
01c75a rts
01caf0 lda #$08
01caf2 bit $0d68
01caf5 beq $cb02
01cb02 ldx #$fff4
01cb05 stx $18
01cb07 ldx #$0009
01cb0a stx $1a
01cb0c rts
028000 phd
028001 lda #$80
028003 sta $00d8
028006 ldx #$0003
028009 stx $00dc
02800c stz $0148
02800f stz $0149
028012 stz $014a
028015 stz $014b
028018 ldx #$0380
02801b stx $00da
02801e ldx #$0180
028021 phx
028022 pld
028023 jsr $894c
028026 jsr $80a0
028029 lda #$00
02802b pha
02802c plb
02802d ldy #$0011
028030 sty $0ac4
028033 ldy #$0a80
028036 sty $0ac6
028039 ldy #$0010
02803c sty $0720
02803f ldy #$0700
028042 sty $0722
028045 ldy #$0010
028048 sty $0744
02804b ldy #$0724
02804e sty $0746
028051 jsr $8928
028054 lda #$00
028056 xba
028057 lda $00d8
02805a sec
02805b sbc $00d9
02805e beq $8094
028060 bmi $8094
028062 rep #$20
028064 sta $0000
028067 lda #$e000
02806a ldx #$0000
02806d sta $00,x
02806f xba
028070 sta $02,x
028072 xba
028073 inx
028074 inx
028075 inx
028076 inx
028077 dec $0000
02807a bne $806d
02807c lda #$03a0
02807f sec
028080 sbc $00da
028083 beq $8092
028085 bcc $8092
028087 sep #$20
028089 ldx $00da
02808c stz $0000,x
02808f dec
028090 bne $808c
028092 sep #$20
028094 pld
028095 lda $00d8
028098 sta $00d9
02809b jsl $028ae7
02809f rtl
0280a0 rep #$20
0280a2 lda #$0010
0280a5 sec
0280a6 sbc $0720
0280a9 beq $80ce
0280ab ldx #$0700
0280ae dec
0280af sta $0acc
0280b2 stx $0aca
0280b5 ldy $0000,x
0280b8 inx
0280b9 inx
0280ba stx $0aca
0280bd sep #$20
0280bf jsr $8161
0280c2 rep #$20
0280c4 dec $0acc
0280c7 bmi $80ce
0280c9 ldx $0aca
0280cc bra $80b5
0280ce lda #$0011
0280d1 sec
0280d2 sbc $0ac4
0280d5 beq $80ea
0280d7 ldx #$0a80
0280da dec
0280db beq $80e2
0280e2 ldy $0002,x
0280e5 sep #$20
0280e7 jsr $8161
0280ea rep #$20
0280ec lda #$0010
0280ef sec
0280f0 sbc $0744
0280f3 beq $8118
028118 sep #$20
02811a rts
028161 lda #$00
028163 xba
028164 lda $0010,y
028167 tax
028168 jmp ($816b,x)
028180 lda $0044,y
028183 beq $81a2
0281a2 lda $0001,y
0281a5 bit #$04
0281a7 beq $81b7
0281b7 phd
0281b8 phy
0281b9 pld
0281ba rep #$20
0281bc lda $07
0281be sec
0281bf sbc $0e07
0281c2 sta $0000
0281c5 lda $0a
0281c7 sec
0281c8 sbc $0e0a
0281cb clc
0281cc adc #$000a
0281cf sep #$20
0281d1 eor #$ff
0281d3 rep #$20
0281d5 inc
0281d6 sta $0002
0281d9 sep #$20
0281db lda $21
0281dd ora $0ce0
0281e0 stz $0006
0281e3 sta $0007
0281e6 lda #$7e
0281e8 pha
0281e9 plb
0281ea ldy $1c
0281ec lda #$00
0281ee xba
0281ef lda $0004,y
0281f2 tax
0281f3 jmp ($81f6,x)

; Object drawing?
028226 lda $22
028228 sta $0012
02822b lda $50
02822d sta $000a
028230 stz $50
028232 lda $52
028234 sta $000c
028237 lda $51
028239 sta $000d
02823c lda #$00
02823e xba
02823f lda $3b
028241 tax
028242 beq $8248
028248 lda $20
02824a beq $824f
02824c brl $8350

02824f rep #$20
028251 lda $0000
028254 clc
028255 adc $0281fc,x
028259 sta $0000
02825c sep #$20
02825e pld
02825f lda $0005,y
028262 sta $0004
028265 sta $0005
028268 lda $0007,y
02826b sta $0014
02826e lda $0008,y
028271 sta $0015
028274 dec $00d8
028277 bne $827f
02827f rep #$20
028281 lda $0009,y
028284 clc
028285 adc $0000
028288 sta $0000
02828b lda $000b,y
02828e clc
02828f adc $0002
028292 sta $0002
028295 clc
028296 adc #$0020
028299 cmp #$0100
02829c bcc $82b0
0282b0 sep #$20
0282b2 lda $0000
0282b5 sta $00
0282b7 rep #$20
0282b9 lda $000d,y
0282bc bit #$0e00
0282bf bne $82c9
0282c1 and #$c1ff
0282c4 ora $0006
0282c7 bra $82d6
0282d6 sta $02
0282d8 sep #$20
0282da lda $000e,y
0282dd and #$10
0282df beq $82ee
0282e1 ldx $00dc
0282e4 lda $028948,x
0282e8 ora $0148
0282eb sta $0148
0282ee lda $0001
0282f1 beq $8300
028300 jsr $8913
028303 lda $0002
028306 sta $01
028308 rep #$20
02830a tdc
02830b clc
02830c adc #$0004
02830f tcd
028310 tya
028311 clc
028312 adc #$0006
028315 tay
028316 sep #$20
028318 dec $0004
02831b beq $8320
02831d brl $8274
028320 lda $000a
028323 beq $834f
028325 rep #$20
028327 sty $0010
02832a lda $00df
02832d and #$00ff
028330 tax
028331 lda $0014
028334 sta $0800,x
028337 sep #$20
028339 lda $0012
02833c sta $0802,x
02833f lda $000d
028342 sta $0803,x
028345 txa
028346 clc
028347 adc #$10
028349 sta $00df
02834c ldy $0010
02834f rts
; Object drawing?

; Object drawing?
028350 rep #$20
028352 lda $0000
028355 sec
028356 sbc $0281fc,x
02835a sta $0000
02835d sep #$20
02835f pld
028360 lda $0005,y
028363 sta $0004
028366 sta $0005
028369 lda $0007,y
02836c sta $0014
02836f lda $0008,y
028372 sta $0015
028375 dec $00d8
028378 bne $8380
028380 rep #$20
028382 lda $0000
028385 sec
028386 sbc $0009,y
028389 sta $0000
02838c sec
02838d sbc #$0008
028390 sta $0008
028393 lda $000b,y
028396 clc
028397 adc $0002
02839a sta $0002
02839d clc
02839e adc #$0020
0283a1 cmp #$0100
0283a4 bcc $83b9
0283b9 sep #$20
0283bb rep #$20
0283bd lda $000d,y
0283c0 bit #$0e00
0283c3 bne $83d0
0283c5 and #$c1ff
0283c8 ora $0006
0283cb eor #$4000
0283ce bra $83e0
0283e0 sta $02
0283e2 sep #$20
0283e4 lda $000e,y
0283e7 and #$10
0283e9 beq $8406
0283eb ldx $00dc
0283ee lda $028948,x
0283f2 ora $0148
0283f5 sta $0148
0283f8 rep #$20
0283fa lda $0008
0283fd sec
0283fe sbc #$0008
028401 sta $0008
028404 sep #$20
028406 lda $0008
028409 sta $00
02840b lda $0009
02840e beq $841d
02841d jsr $8913
028420 lda $0002
028423 sta $01
028425 rep #$20
028427 tdc
028428 clc
028429 adc #$0004
02842c tcd
02842d tya
02842e clc
02842f adc #$0006
028432 tay
028433 sep #$20
028435 dec $0004
028438 beq $843d
02843a brl $8375
02843d lda $000a
028440 beq $846c
028442 rep #$20
028444 sty $0010
028447 lda $00df
02844a and #$00ff
02844d tax
02844e lda $0014
028451 sta $0800,x
028454 sep #$20
028456 lda $0012
028459 sta $0802,x
02845c lda $000d
02845f sta $0803,x
028462 txa
028463 clc
028464 adc #$10
028466 sta $00df
028469 ldy $0010
02846c rts
; Object drawing?

02866a phd
02866b phy
02866c pld
02866d rep #$20
02866f lda $07
028671 sec
028672 sbc $0e07
028675 sta $000a
028678 lda $0a
02867a sec
02867b sbc $0e0a
02867e clc
02867f adc #$000a
028682 sep #$20
028684 eor #$ff
028686 rep #$20
028688 inc
028689 sta $000c
02868c sep #$20
02868e lda $21
028690 ora $0ce0
028693 stz $0006
028696 sta $0007
028699 lda $22
02869b pha
02869c plb
02869d ldy $1c
02869f iny
0286a0 iny
0286a1 iny
0286a2 iny
0286a3 sty $0016
0286a6 lda #$00
0286a8 xba
0286a9 lda $3b
0286ab tax
0286ac beq $86b2
0286b2 lda $20
0286b4 beq $86b9
0286b9 rep #$20
0286bb lda $0281fc,x
0286bf clc
0286c0 adc $000a
0286c3 sta $000a
0286c6 sep #$20
0286c8 pld
0286c9 ldy $0016
0286cc rep #$20
0286ce lda $0002,y
0286d1 sta $0000
0286d4 lda $0004,y
0286d7 sta $0002
0286da lda $0000,y
0286dd ora #$8000
0286e0 tay
0286e1 lda $000a
0286e4 clc
0286e5 adc $0000
0286e8 sta $0000
0286eb lda $000c
0286ee clc
0286ef adc $0002
0286f2 sta $0002
0286f5 sep #$20
0286f7 jsr $8713
0286fa ldy $0016
0286fd rep #$20
0286ff lda $0000,y
028702 bpl $8710
028704 lda $0016
028707 clc
028708 adc #$0006
02870b sta $0016
02870e bra $86c9
028710 sep #$20
028712 rts
028713 lda $0000,y
028716 sta $0004
028719 sta $0005
02871c dec $00d8
02871f bne $8725
028725 lda #$00
028727 xba
028728 lda $0001,y
02872b bpl $8730
02872d xba
02872e dec
02872f xba
028730 rep #$20
028732 clc
028733 adc $0000
028736 sta $0000
028739 sep #$20
02873b sta $00
02873d lda #$00
02873f xba
028740 lda $0002,y
028743 bpl $8748
028745 xba
028746 dec
028747 xba
028748 rep #$20
02874a clc
02874b adc $0002
02874e sta $0002
028751 bmi $8758
028753 cmp #$00e0
028756 bcc $876a
028758 tya
028759 clc
02875a adc #$0004
02875d tay
02875e sep #$20
028760 inc $00d8
028763 dec $0004
028766 bne $871c
028768 bra $87d2
0287d2 rts

028913 dec $00dc
028916 bmi $8928
028918 lda $0148
02891b stx $0010
02891e ldx $00da
028921 sta $0000,x
028924 ldx $0010
028927 rts

028928 lda $0148
02892b stz $0148
02892e stx $0010
028931 ldx $00da
028934 sta $0000,x
028937 inx
028938 stx $00da
02893b ldx $0010
02893e lda #$03
028940 sta $00dc
028943 rts
02894c rts
028ae7 lda $7efffa
028aeb beq $8b2d
028b2d rtl

028b2e ldx #$0e00
028b31 jsr $8c92
028b34 lda #$00
028b36 sta $0011,x
028b39 ldx #$0e80
028b3c jsr $8c92
028b3f lda #$02
028b41 sta $0011,x
028b44 ldx #$0f00
028b47 jsr $8c92
028b4a lda #$04
028b4c sta $0011,x
028b4f ldx #$0f80
028b52 jsr $8c92
028b55 lda #$06
028b57 sta $0011,x
028b5a phb
028b5b lda #$02
028b5d pha
028b5e plb
028b5f jsr $8cf5
028b62 jsr $8d11
028b65 jsr $8d2d
028b68 jsr $8ca3
028b6b jsr $8ccc
028b6e jsr $8b7f
028b71 jsr $8bd2
028b74 jsr $8c11
028b77 jsr $8c33
028b7a jsr $8c69
028b7d plb
028b7e rtl

028b7f ldx #$8f45
028b82 lda #$00
028b84 xba
028b85 lda $0cb0
028b88 asl a
028b89 tax
028b8a ldy $8f45,x
028b8d sty $0010
028b90 lda $0cb1
028b93 asl a
028b94 asl a
028b95 asl a
028b96 rep #$20
028b98 clc
028b99 adc $0010
028b9c tay
028b9d lda $8f45,y
028ba0 sta $0e07
028ba3 sta $0e38
028ba6 lda $8f47,y
028ba9 sta $0e0a
028bac clc
028bad adc #$00ff
028bb0 eor #$ffff
028bb3 sta $0e3a
028bb6 lda $8f49,y
028bb9 sta $0e87
028bbc sta $0eb8
028bbf lda $8f4b,y
028bc2 sta $0e8a
028bc5 clc
028bc6 adc #$00ff
028bc9 eor #$ffff
028bcc sta $0eba
028bcf sep #$20
028bd1 rts
028bd2 ldx #$0000
028bd5 stx $0f87
028bd8 stx $0f8a
028bdb lda $0cb0
028bde cmp #$0a
028be0 bne $8bef
028bef cmp #$08
028bf1 bne $8c07
028c07 stx $0f07
028c0a stx $0f38
028c0d stx $0f0a
028c10 rts
028c11 lda #$00
028c13 xba
028c14 lda $0cb0
028c17 asl a
028c18 tax
028c19 ldy $8e57,x
028c1c sty $0010
028c1f lda $0cb1
028c22 asl a
028c23 rep #$20
028c25 clc
028c26 adc $0010
028c29 tay
028c2a lda $8e57,y
028c2d sta $0eb4
028c30 sep #$20
028c32 rts
028c33 lda #$00
028c35 xba
028c36 lda $0cb0
028c39 asl a
028c3a tax
028c3b ldy $8d49,x
028c3e sty $0010
028c41 lda $0cb1
028c44 asl a
028c45 asl a
028c46 asl a
028c47 rep #$20
028c49 clc
028c4a adc $0010
028c4d tay
028c4e lda $8d49,y
028c51 sta $0e2a
028c54 lda $8d4b,y
028c57 sta $0e2c
028c5a lda $8d4d,y
028c5d sta $0e30
028c60 lda $8d4f,y
028c63 sta $0e2e
028c66 sep #$20
028c68 rts
028c69 lda #$00
028c6b xba
028c6c lda $0cb0
028c6f asl a
028c70 tax
028c71 ldy $8eab,x
028c74 sty $0010
028c77 lda $0cb1
028c7a asl a
028c7b asl a
028c7c rep #$20
028c7e clc
028c7f adc $0010
028c82 tay
028c83 lda $8eab,y
028c86 sta $0e32
028c89 lda $8ead,y
028c8c sta $0eb2
028c8f sep #$20
028c91 rts
028c92 rep #$20
028c94 stz $0002,x
028c97 stz $0004,x
028c9a stz $0060,x
028c9d stz $0062,x
028ca0 sep #$20
028ca2 rts
028ca3 lda #$00
028ca5 xba
028ca6 lda $0cb0
028ca9 asl a
028caa tax
028cab ldy $905b,x
028cae sty $0010
028cb1 lda $0cb1
028cb4 asl a
028cb5 rep #$20
028cb7 clc
028cb8 adc $0010
028cbb tax
028cbc lda $02905b,x
028cc0 sta $0e46
028cc3 lda #$7000
028cc6 sta $0e44
028cc9 sep #$20
028ccb rts
028ccc lda #$00
028cce xba
028ccf lda $0cb0
028cd2 asl a
028cd3 tax
028cd4 ldy $9081,x
028cd7 sty $0010
028cda lda $0cb1
028cdd asl a
028cde rep #$20
028ce0 clc
028ce1 adc $0010
028ce4 tax
028ce5 lda $029081,x
028ce9 sta $0ec6
028cec lda #$7800
028cef sta $0ec4
028cf2 sep #$20
028cf4 rts
028cf5 lda #$00
028cf7 xba
028cf8 lda $0cb0
028cfb asl a
028cfc asl a
028cfd tax
028cfe rep #$20
028d00 lda $078000,x
028d04 sta $0e14
028d07 lda $078002,x
028d0b sta $0e16
028d0e sep #$20
028d10 rts
028d11 lda #$00
028d13 xba
028d14 lda $0cb0
028d17 asl a
028d18 asl a
028d19 tax
028d1a rep #$20
028d1c lda $07802c,x
028d20 sta $0e94
028d23 lda $07802e,x
028d27 sta $0e96
028d2a sep #$20
028d2c rts
028d2d lda #$00
028d2f xba
028d30 lda $0cb0
028d33 asl a
028d34 asl a
028d35 tax
028d36 rep #$20
028d38 lda $078058,x
028d3c sta $0f14
028d3f lda $07805a,x
028d43 sta $0f16
028d46 sep #$20
028d48 rts
0290a7 lda #$00
0290a9 xba
0290aa lda $0cb0
0290ad asl a
0290ae tax
0290af lda $0cb1
0290b2 asl a
0290b3 jsr ($90f8,x)
0290b6 lda $0cb3
0290b9 bne $90f5
0290bb lda $32
0290bd cmp #$02
0290bf beq $90f5
0290c1 lda $0cc2
0290c4 bne $90f0
0290c6 rep #$20
0290c8 lda $07
0290ca cmp $2c
0290cc beq $90f5
0290ce cmp $38
0290d0 bne $90f0
0290d2 dec $40
0290d4 bne $90f5
0290f0 ldx #$01a4
0290f3 stx $40
0290f5 sep #$20
0290f7 rtl
02910c tax
02910d jmp ($9110,x)
029116 lda $60
029118 tax
029119 jmp ($911c,x)
029122 lda #$01
029124 sta $61
029126 lda #$02
029128 sta $60
02912a rts
02912b dec $61
02912d bne $9133
02912f lda #$04
029131 sta $60
029133 rts
029134 rts
0292d4 lda #$00
0292d6 xba
0292d7 lda $0cb0
0292da asl a
0292db tax
0292dc lda $0cb1
0292df asl a
0292e0 jmp ($92e3,x)
0292f7 tax
0292f8 jmp ($92fb,x)
029301 rtl

0297eb ldx #$0e00
0297ee phx
0297ef pld
0297f0 jsr $980c
0297f3 ldx #$0e80
0297f6 phx
0297f7 pld
0297f8 jsr $9995
0297fb ldx #$0f00
0297fe phx
0297ff pld
029800 jsr $9b3b
029803 rep #$20
029805 lda #$0000
029808 tcd
029809 sep #$20
02980b rtl

02980c lda #$00
02980e xba
02980f lda $02
029811 tax
029812 jmp ($9815,x)
02981b lda #$02
02981d sta $02
02981f stz $1a
029821 stz $1b
029823 stz $20
029825 stz $21
029827 lda #$3e
029829 sta $36
02982b jmp $9968
02982e jsl $029f77
029832 rep #$20
029834 lda $38
029836 clc
029837 adc #$0008
02983a sta $38
02983c sep #$20
02983e dec $36
029840 bpl $9846
029842 lda #$04
029844 sta $02
029846 rts
029847 jsl $0290a7
02984b ldx #$0000
02984e stx $26
029850 stx $28
029852 lda $0cc2
029855 bne $9865
029857 ldx $07
029859 stx $38
02985b ldx $0a
02985d stx $3a
02985f jsr $988d
029862 jsr $9956
029865 jsr $9968
029868 lda $07
02986a and #$08
02986c eor $1a
02986e bne $988c
029870 lda $1a
029872 eor #$08
029874 sta $1a
029876 lda $20
029878 rep #$20
02987a jsl $029f19
02987e jsl $029f92
029882 jsl $029fe3
029886 jsl $02a0a2
02988a sep #$20
02988c rts
02988d lda #$00
02988f xba
029890 lda $32
029892 tax
029893 jmp ($9896,x)
0298a2 rep #$20
0298a4 ldx #$0d00
0298a7 lda $0007,x
0298aa bmi $98df
0298ac sec
0298ad sbc $07
0298af sbc #$0088
0298b2 bmi $98df
0298df sep #$20
0298e1 rts
029956 lda #$00
029958 xba
029959 lda $33
02995b tax
02995c jmp ($995f,x)
029967 rts
029968 rep #$20
02996a ldx $46
02996c jmp ($996f,x)
029973 lda $07
029975 sta $00f0
029978 lda #$0009
02997b sec
02997c sbc $0a
02997e sta $00f2
029981 sep #$20
029983 rts
029995 lda #$00
029997 xba
029998 lda $02
02999a tax
02999b jmp ($999e,x)
0299a6 lda #$02
0299a8 sta $02
0299aa stz $1a
0299ac stz $1b
0299ae stz $20
0299b0 stz $21
0299b2 lda #$1f
0299b4 sta $36
0299b6 jmp $9b0e
0299b9 jsl $02a162
0299bd rep #$20
0299bf lda $38
0299c1 clc
0299c2 adc #$0010
0299c5 sta $38
0299c7 sep #$20
0299c9 dec $36
0299cb bpl $99e4
0299cd lda $0cb0
0299d0 cmp #$01
0299d2 bne $99e0
0299e0 lda #$04
0299e2 sta $02
0299e4 rts
0299f0 jsl $0292d4
0299f4 ldx $07
0299f6 stx $38
0299f8 ldx $0a
0299fa stx $3a
0299fc jsr $9a2a
0299ff jsr $9afc
029a02 jsr $9b0e
029a05 lda $07
029a07 and #$10
029a09 eor $1a
029a0b bne $9a29
029a0d lda $1a
029a0f eor #$10
029a11 sta $1a
029a13 lda $20
029a15 rep #$20
029a17 jsl $029f48
029a1b jsl $02a17d
029a1f jsl $029fe3
029a23 jsl $02a1af
029a27 sep #$20
029a29 rts
029a2a lda #$00
029a2c xba
029a2d lda $32
029a2f tax
029a30 jmp ($9a33,x)
029a3d lda $34
029a3f tax
029a40 jmp ($9a43,x)
029a64 rep #$20
029a66 lda $0e26
029a69 bpl $9a80
029a80 xba
029a81 and #$ff00
029a84 lsr a
029a85 clc
029a86 adc $06
029a88 sta $06
029a8a sep #$20
029a8c lda #$00
029a8e adc $08
029a90 sta $08
029a92 lda $0e20
029a95 sta $20
029a97 sep #$20
029a99 rts
029afc lda #$00
029afe xba
029aff lda $33
029b01 tax
029b02 jmp ($9b05,x)
029b0d rts
029b0e rep #$20
029b10 ldx $46
029b12 jmp ($9b15,x)
029b19 lda $07
029b1b sta $00f4
029b1e lda #$0109
029b21 sec
029b22 sbc $0a
029b24 sta $00f6
029b27 sep #$20
029b29 rts
029b3b lda #$00
029b3d xba
029b3e lda $02
029b40 tax
029b41 jmp ($9b44,x)
029b4a lda #$02
029b4c sta $02
029b4e ldx #$0000
029b51 stz $06
029b53 stx $07
029b55 stz $09
029b57 stx $0a
029b59 jmp $9bed
029b5c rts
029b5d lda $03
029b5f tax
029b60 jsr ($9b66,x)
029b63 jmp $9bed
029b6e lda $0cb1
029b71 beq $9b81
029b81 ldx #$ffe0
029b84 stx $0a
029b86 lda #$02
029b88 sta $03
029b8a rts
029b90 lda $00d0
029b93 bne $9bbf
029b95 lda $0cb3
029b98 bne $9b9f
029b9a lda $0cd1
029b9d bne $9bbf
029bbf rts
029bed rep #$20
029bef lda $07
029bf1 sta $00f8
029bf4 lda #$fffc
029bf7 sec
029bf8 sbc $0a
029bfa sta $00fa
029bfd sep #$20
029bff rts
029f19 and #$00ff
029f1c tax
029f1d lda $029f38,x
029f21 clc
029f22 adc $07
029f24 sta $000a
029f27 lda $029f3a,x
029f2b clc
029f2c adc $0a
029f2e eor #$ffff
029f31 and #$ff00
029f34 sta $000c
029f37 rtl
029f48 and #$00ff
029f4b tax
029f4c lda $029f67,x
029f50 clc
029f51 adc $07
029f53 sta $000a
029f56 lda $029f69,x
029f5a clc
029f5b adc $0a
029f5d eor #$ffff
029f60 and #$ff00
029f63 sta $000c
029f66 rtl
029f77 rep #$20
029f79 lda $38
029f7b sta $000a
029f7e lda $3a
029f80 sta $000c
029f83 jsl $029f92
029f87 jsl $029fe3
029f8b jsl $02a0a2
029f8f sep #$20
029f91 rtl
029f92 lda $000a
029f95 and #$0100
029f98 asl a
029f99 asl a
029f9a sta $0010
029f9d lda $000a
029fa0 and #$00ff
029fa3 lsr a
029fa4 lsr a
029fa5 lsr a
029fa6 clc
029fa7 adc $0010
029faa sta $0010
029fad clc
029fae adc $44
029fb0 sta $0016
029fb3 lda $000c
029fb6 and #$00f8
029fb9 asl a
029fba asl a
029fbb clc
029fbc adc $0010
029fbf clc
029fc0 adc $44
029fc2 sta $0014
029fc5 ldx #$0000
029fc8 lda $000a
029fcb bit #$0008
029fce beq $9fd3
029fd0 ldx #$0002
029fd3 stx $3e
029fd5 ldx #$0000
029fd8 bit #$0010
029fdb beq $9fe0
029fdd ldx #$0002
029fe0 stx $3c
029fe2 rtl
029fe3 jsr $a00f
029fe6 xba
029fe7 lsr a
029fe8 sta $0012
029feb lda $000a
029fee and #$00e0
029ff1 lsr a
029ff2 lsr a
029ff3 lsr a
029ff4 lsr a
029ff5 sta $22
029ff7 clc
029ff8 adc $0012
029ffb sta $0012
029ffe lda $000c
02a001 and #$00e0
02a004 lsr a
02a005 sta $24
02a007 clc
02a008 adc $0012
02a00b sta $0012
02a00e rtl
02a00f lda $14
02a011 tax
02a012 jmp ($a015,x)
02a029 lda $000b
02a02c and #$000f
02a02f sta $1c
02a031 sta $1e
02a033 clc
02a034 adc $16
02a036 tax
02a037 lda $070000,x
02a03b and #$00ff
02a03e rts
02a0a2 lda #$0000
02a0a5 sep #$20
02a0a7 lda $00e5
02a0aa tay
02a0ab lda #$81
02a0ad sta $0b00,y
02a0b0 iny
02a0b1 lda #$40
02a0b3 sta $0b00,y
02a0b6 iny
02a0b7 rep #$20
02a0b9 lda $0016
02a0bc sta $0b00,y
02a0bf iny
02a0c0 iny
02a0c1 sty $0018
02a0c4 rep #$20
02a0c6 lda $000c
02a0c9 and #$00e0
02a0cc lsr a
02a0cd lsr a
02a0ce sta $0004
02a0d1 lsr a
02a0d2 lsr a
02a0d3 lsr a
02a0d4 sta $0000
02a0d7 sta $0002
02a0da jsr $a0f9
02a0dd lda #$0007
02a0e0 sec
02a0e1 sbc $0002
02a0e4 beq $a0f0
02a0e6 dec
02a0e7 sta $0000
02a0ea sta $0002
02a0ed jsr $a0f9
02a0f0 sep #$20
02a0f2 tya
02a0f3 sta $00e5
02a0f6 rep #$20
02a0f8 rtl
02a0f9 ldx $0012
02a0fc lda $0ea000,x
02a100 xba
02a101 clc
02a102 adc $3c
02a104 tax
02a105 lda $0d0000,x
02a109 xba
02a10a clc
02a10b adc $3e
02a10d tax
02a10e jsr $a139
02a111 ldx $0012
02a114 lda $0ea000,x
02a118 xba
02a119 clc
02a11a adc $3c
02a11c tax
02a11d lda $0d0004,x
02a121 xba
02a122 clc
02a123 adc $3e
02a125 tax
02a126 jsr $a139
02a129 lda #$0010
02a12c clc
02a12d adc $0012
02a130 sta $0012
02a133 dec $0000
02a136 bpl $a0f9
02a138 rts
02a139 bpl $a14e
02a13b lda $0c0000,x
02a13f sta $0b00,y
02a142 iny
02a143 iny
02a144 lda $0c0004,x
02a148 sta $0b00,y
02a14b iny
02a14c iny
02a14d rts
02a14e lda $0e8000,x
02a152 sta $0b00,y
02a155 iny
02a156 iny
02a157 lda $0e8004,x
02a15b sta $0b00,y
02a15e iny
02a15f iny
02a160 rts
02a162 rep #$20
02a164 lda $38
02a166 sta $000a
02a169 lda $3a
02a16b sta $000c
02a16e jsl $02a17d
02a172 jsl $029fe3
02a176 jsl $02a1af
02a17a sep #$20
02a17c rtl
02a17d lda $000c
02a180 and #$01f0
02a183 asl a
02a184 sta $0010
02a187 lda $000a
02a18a and #$01f0
02a18d lsr a
02a18e lsr a
02a18f lsr a
02a190 lsr a
02a191 clc
02a192 adc $0010
02a195 clc
02a196 adc $44
02a198 sta $0010
02a19b ldx #$0000
02a19e lda $000a
02a1a1 and #$00ff
02a1a4 bit #$0010
02a1a7 beq $a1ac
02a1a9 ldx #$0002
02a1ac stx $3e
02a1ae rtl
02a1af lda #$0000
02a1b2 sep #$20
02a1b4 lda $00e5
02a1b7 tay
02a1b8 lda #$81
02a1ba sta $0b00,y
02a1bd iny
02a1be lda #$20
02a1c0 sta $0b00,y
02a1c3 iny
02a1c4 rep #$20
02a1c6 lda $0010
02a1c9 sta $0b00,y
02a1cc iny
02a1cd iny
02a1ce rep #$20
02a1d0 lda $000c
02a1d3 eor #$ffff
02a1d6 and #$00e0
02a1d9 lsr a
02a1da lsr a
02a1db lsr a
02a1dc lsr a
02a1dd lsr a
02a1de sta $0000
02a1e1 sta $0002
02a1e4 jsr $a1f0
02a1e7 sep #$20
02a1e9 tya
02a1ea sta $00e5
02a1ed rep #$20
02a1ef rtl
02a1f0 ldx $0012
02a1f3 lda $0fc000,x
02a1f7 xba
02a1f8 clc
02a1f9 adc $3e
02a1fb tax
02a1fc jsr $a139
02a1ff lda #$0010
02a202 clc
02a203 adc $0012
02a206 sta $0012
02a209 dec $0000
02a20c bpl $a1f0
02a20e rts

02a210 lda #$00
02a212 xba
02a213 lda $02
02a215 tax
02a216 jsr ($a21a,x)
02a219 rtl

02a6f5 lda #$00
02a6f7 xba
02a6f8 lda $03
02a6fa tax
02a6fb jsr ($a71e,x)
02a6fe jsr $ae45
02a701 jsr $ae56
02a704 lda $0f
02a706 beq $a70e
02a70e lda $74
02a710 beq $a714
02a714 jsl $00ae30
02a718 jsr $a744
02a71b brl $a7c0
02a744 lda $7efffa
02a748 bne $a74d
02a74a jmp $a79d
02a79d rts
02a7b5 jsl $00a405
02a7b9 lda $47
02a7bb bne $a79e
02a7bd jmp $a6f5
02a7c0 lda $72
02a7c2 beq $a7c6
02a7c6 lda $73
02a7c8 beq $a7d2
02a7d2 lda $0cd4
02a7d5 bne $a7ec
02a7d7 lda $0cd2
02a7da beq $a7e2
02a7e2 lda $0cd0
02a7e5 bne $a7ef
02a7e7 lda $0cc3
02a7ea bne $a7f4
02a7ec lda #$01
02a7ee rts
02a821 lda $04
02a823 tax
02a824 jsr ($a836,x)
02a827 jsr $ae57
02a82a jsr $af35
02a82d bmi $a835
02a82f jsr $b04a
02a832 jsr $b05f
02a835 rts
02a83a stz $68
02a83c lda #$02
02a83e sta $04
02a840 ldx $0a
02a842 stx $0d
02a844 lda $09
02a846 sta $0c
02a848 jsr $c181
02a84b jsl $00a75a
02a84f jsr $b01e
02a852 beq $a85a
02a85a lda #$00
02a85c sta $68
02a85e rts
02a944 lda $04
02a946 tax
02a947 jsr ($a959,x)
02a94a jsr $ae57
02a94d jsr $af35
02a950 bmi $a958
02a952 jsr $b04a
02a955 jmp $b05f
02a95d stz $68
02a95f lda #$02
02a961 sta $04
02a963 jsr $c194
02a966 jsr $b01e
02a969 beq $a971
02a96b jsr $af48
02a96e jmp $afd5
02a971 lda #$0c
02a973 sta $03
02a975 stz $04
02a977 rts
02a978 lda $04
02a97a tax
02a97b jsr ($a98d,x)
02a97e jsr $ae57
02a981 jsr $af35
02a984 bmi $a98c
02a986 jsr $b04a
02a989 jsr $b05f
02a98c rts
02a991 stz $68
02a993 lda #$06
02a995 sta $3c
02a997 lda #$02
02a999 sta $04
02a99b lda $3c
02a99d beq $a9a8
02a99f dec $3c
02a9a1 bne $a9ac
02a9a3 jsr $c181
02a9a6 bra $a9ac
02a9a8 jsl $00a75a
02a9ac jsr $b01e
02a9af beq $a9b7
02a9b1 lda #$0a
02a9b3 sta $03
02a9b5 stz $04
02a9b7 rts
02ab90 lda $38
02ab92 beq $ab97
02ab97 lda $12
02ab99 tax
02ab9a jmp ($ab9d,x)
02aba3 lda $04
02aba5 tax
02aba6 jmp ($aba9,x)
02abb1 lda $05
02abb3 tax
02abb4 jmp ($abb7,x)
02abbb stz $68
02abbd lda #$3a
02abbf jsl $009f95
02abc3 lda #$06
02abc5 sta $75
02abc7 ldx #$d845
02abca bra $ac1b
02ac1b jsl $00a727
02ac1f lda #$20
02ac21 sta $68
02ac23 jsr $b492
02ac26 lda #$02
02ac28 sta $05
02ac2a jsr $af35
02ac2d bpl $ac33
02ac33 rts
02ac8b lda $1f
02ac8d beq $ac9c
02ac8f bmi $aca6
02ac91 jsr $af35
02ac94 bmi $aca1
02ac96 jsr $ae57
02ac99 jsr $b064
02ac9c jsl $00a75a
02aca0 rts
02aca6 lda #$80
02aca8 trb $69
02acaa jsr $af35
02acad bmi $acbd
02acaf lda #$00
02acb1 sta $03
02acb3 stz $04
02acb5 stz $05
02acb7 jsr $b04a
02acba jsr $b05f
02acbd rts
02ae45 lda #$80
02ae47 bit $69
02ae49 bne $ae55
02ae4b lda $70
02ae4d beq $ae55
02ae55 rts
02ae56 rts
02ae57 lda $12
02ae59 cmp #$02
02ae5b beq $ae62
02ae62 ldy $07
02ae64 sty $0004
02ae67 lda $20
02ae69 rep #$20
02ae6b beq $ae77
02ae6d lda $0004
02ae70 sec
02ae71 sbc #$0078
02ae74 sta $0004
02ae77 sep #$20
02ae79 lda #$00
02ae7b xba
02ae7c lda $0cb4
02ae7f and #$03
02ae81 sta $0008
02ae84 asl a
02ae85 tax
02ae86 jmp ($ae89,x)

02ae91 lda #$01
02ae93 sta $0000
02ae96 ldy #$0d00
02ae99 lda $11
02ae9b bne $aea0
02ae9d ldy #$0d80
02aea0 jmp $aef8
02aea3 lda #$02
02aea5 sta $0000
02aea8 ldy #$1000
02aeab jsr $aef8
02aeae bne $aebe
02aeb0 ldy #$10a0
02aeb3 jsr $aef8
02aeb6 bne $aebe
02aeb8 ldy #$1140
02aebb jmp $aef8
02aebf lda #$04
02aec1 sta $0000
02aec4 ldy #$11e0
02aec7 jmp $aef8
02aeca lda #$08
02aecc sta $0000
02aecf ldy #$1280
02aed2 jsr $aef8
02aed5 bne $aef7
02aed7 ldy #$1300
02aeda jsr $aef8
02aedd bne $aef7
02aedf ldy #$1380
02aee2 jsr $aef8
02aee5 bne $aef7
02aee7 ldy #$1400
02aeea jsr $aef8
02aeed bne $aef7
02aeef ldy #$1480
02aef2 jsr $aef8
02aef5 bne $aef7
02aef7 rts

02aef8 lda $0000,y
02aefb beq $af21
02af21 sep #$20
02af23 lda $0000
02af26 trb $6a
02af28 lda #$00
02af2a rts

02af35 jsl $00d0d0
02af39 beq $af47
02af47 rts
02af48 rep #$20
02af4a lda $12
02af4c and #$00ff
02af4f tax
02af50 lda $f97f,x
02af53 sta $7a
02af55 lda $f985,x
02af58 sta $7c
02af5a lda $42
02af5c and #$00ff
02af5f clc
02af60 adc $7a
02af62 tax
02af63 sep #$20
02af65 clc
02af66 lda $0012,x
02af69 sta $0000
02af6c adc $06
02af6e sta $06
02af70 lda $0009,x
02af73 sta $0001
02af76 adc $07
02af78 sta $07
02af7a lda $0000,x
02af7d adc $08
02af7f sta $08
02af81 rep #$20
02af83 lda $42
02af85 and #$00ff
02af88 clc
02af89 adc $7c
02af8b tax
02af8c sep #$20
02af8e clc
02af8f lda $0012,x
02af92 sta $0002
02af95 adc $09
02af97 sta $09
02af99 lda $0009,x
02af9c sta $0003
02af9f adc $0a
02afa1 sta $0a
02afa3 lda $0000,x
02afa6 adc $0b
02afa8 sta $0b
02afaa ldx $0a
02afac stx $0d
02afae rep #$20
02afb0 lda $0000
02afb3 beq $afc3
02afb5 bpl $afbb
02afb7 eor #$ffff
02afba inc
02afbb clc
02afbc adc $7e
02afbe sta $7e
02afc0 sep #$20
02afc2 rts
02afc3 lda $0002
02afc6 bpl $afcc
02afcc asl a
02afcd clc
02afce adc $7e
02afd0 sta $7e
02afd2 sep #$20
02afd4 rts
02afd5 rep #$20
02afd7 lda $12
02afd9 and #$00ff
02afdc tax
02afdd lda $7e
02afdf cmp $f973,x
02afe2 bcc $afe7
02afe4 sep #$20
02afe6 rts
02afe7 sec
02afe8 sbc $f973,x
02afeb sta $7e
02afed lda $42
02afef and #$00ff
02aff2 tax
02aff3 sep #$20
02aff5 lda $f96a,x
02aff8 bmi $affe
02affa cmp $20
02affc bne $b00f
02affe lda $78
02b000 inc
02b001 inc
02b002 cmp #$0c
02b004 bcc $b008
02b008 sta $78
02b00a jsl $00a75a
02b00e rts
02b01e lda #$00
02b020 xba
02b021 lda $67
02b023 and #$0f
02b025 tax
02b026 lda $f95a,x
02b029 sta $42
02b02b tax
02b02c lda $f96a,x
02b02f bmi $b033
02b031 sta $20
02b033 lda #$08
02b035 cmp $42
02b037 rts
02b04a lda $65
02b04c and $67
02b04e bit #$80
02b050 beq $b05e
02b05e rts
02b05f jsr $b2b1
02b062 beq $b097
02b064 lda $65
02b066 and $67
02b068 and #$40
02b06a beq $b097
02b06c jsr $b0e5
02b06f bne $b074
02b074 lda $74
02b076 bne $b080
02b078 jsr $b218
02b07b bne $b080
02b080 jsr $b0a7
02b083 beq $b097
02b085 lda $70
02b087 bne $b08e
02b089 stz $71
02b08b jmp $b27d
02b097 rts
02b0a7 lda #$04
02b0a9 bit $01
02b0ab beq $b0dd
02b0dd lda #$01
02b0df rts
02b0e5 ldx $4e
02b0e7 bne $b119
02b0e9 ldx #$1500
02b0ec jsr $b11c
02b0ef beq $b15e
02b0f1 ldx #$1540
02b0f4 jsr $b11c
02b0f7 beq $b15e
02b0f9 ldx #$1580
02b0fc jsr $b11c
02b0ff beq $b15e
02b101 ldx #$15c0
02b104 jsr $b11c
02b107 beq $b15e
02b109 ldx #$1600
02b10c jsr $b11c
02b10f beq $b15e
02b111 ldx #$1640
02b114 jsr $b11c
02b117 beq $b15e
02b119 lda #$01
02b11b rts
02b11c lda $0000,x
02b11f beq $b156
02b156 lda #$01
02b158 rts
02b218 ldx $4e
02b21a bne $b260
02b21c ldy #$0002
02b21f ldx #$1c00
02b222 lda $0000,x
02b225 beq $b253
02b253 rep #$20
02b255 txa
02b256 clc
02b257 adc #$0080
02b25a tax
02b25b sep #$20
02b25d dey
02b25e bpl $b222
02b260 lda #$01
02b262 rts
02b27d lda #$00
02b27f xba
02b280 lda $12
02b282 lsr a
02b283 tax
02b284 lda $0cb0
02b287 cmp #$06
02b289 bne $b28e
02b28e lda $71
02b290 cmp $fa2d,x
02b293 bcc $b2a4
02b2a4 sta $04
02b2a6 lda #$14
02b2a8 sta $03
02b2aa stz $05
02b2ac lda #$80
02b2ae tsb $69
02b2b0 rts
02b2b1 lda $0cb0
02b2b4 cmp #$06
02b2b6 beq $b2ef
02b2b8 lda $7efff0
02b2bc bne $b2c6
02b2c6 lda $65
02b2c8 and $67
02b2ca bit #$c0
02b2cc beq $b2ef
02b2ce ora $67
02b2d0 and #$c0
02b2d2 cmp #$c0
02b2d4 bne $b2ef
02b2ef lda #$01
02b2f1 rts
02b492 lda $67
02b494 bit #$02
02b496 beq $b4a1
02b4a1 bit #$01
02b4a3 beq $b4ab
02b4ab rts
02bf3d lda $03
02bf3f tax
02bf40 jsr ($bf48,x)
02bf43 jsl $00ae1a
02bf47 rts
02bf4e ldx $0e07
02bf51 stx $07
02bf53 ldx $0e0a
02bf56 stx $0a
02bf58 stx $0d
02bf5a stz $09
02bf5c stz $0c
02bf5e lda $0cb3
02bf61 bne $bfb7
02bf63 rep #$20
02bf65 lda $07
02bf67 clc
02bf68 adc #$0074
02bf6b sta $07
02bf6d lda $0a
02bf6f clc
02bf70 adc #$0028
02bf73 sta $0a
02bf75 sta $0d
02bf77 sep #$20
02bf79 lda $0cb0
02bf7c cmp #$02
02bf7e bne $bf9b
02bf9b lda #$02
02bf9d sta $03
02bf9f ldx #$0020
02bfa2 lda $0cb1
02bfa5 bne $bfb2
02bfa7 ldx #$00f0
02bfaa ora $0cb0
02bfad bne $bfb2
02bfaf ldx #$00f0
02bfb2 stx $3c
02bfb4 jmp $c181
02bfdf dec $3c
02bfe1 bne $bfec
02bfec rts
02c181 rep #$20
02c183 lda $12
02c185 and #$00ff
02c188 tax
02c189 lda $fa33,x
02c18c tax
02c18d sep #$20
02c18f jsl $00a727
02c193 rts
02c194 rep #$20
02c196 lda $12
02c198 and #$00ff
02c19b tax
02c19c lda $fa39,x
02c19f tax
02c1a0 sep #$20
02c1a2 ldy $78
02c1a4 jsl $00a70b
02c1a8 rts
02c56a rep #$20
02c56c lda #$1680
02c56f tcd
02c570 sep #$20
02c572 jsr $c57e
02c575 jsr $c7a7
02c578 ldx #$0000
02c57b phx
02c57c pld
02c57d rtl
02c57e lda $0cd2
02c581 bne $c58c
02c583 lda #$00
02c585 xba
02c586 lda $70
02c588 tax
02c589 jmp ($c58d,x)
02c595 jsr $c752
02c598 ldx $72
02c59a rep #$20
02c59c lda $070000,x
02c5a0 bpl $c5dc
02c5a2 and #$7fff
02c5a5 sep #$20
02c5a7 tax
02c5a8 jmp ($c5ab,x)
02c5b1 rep #$20
02c5b3 ldx $72
02c5b5 inx
02c5b6 inx
02c5b7 stx $72
02c5b9 ldx $72
02c5bb lda $070000,x
02c5bf bmi $c5a2
02c5c1 jsr $c61d
02c5c4 txa
02c5c5 clc
02c5c6 adc #$0007
02c5c9 sta $72
02c5cb bra $c5b9
02c5cd ldx $72
02c5cf inx
02c5d0 inx
02c5d1 stx $72
02c5d3 bra $c59a
02c5d5 lda #$04
02c5d7 sta $70
02c5d9 stz $71
02c5db rts
02c5dc sta $74
02c5de inx
02c5df inx
02c5e0 stx $72
02c5e2 sep #$20
02c5e4 lda #$02
02c5e6 sta $70
02c5e8 stz $71
02c5ea rts
02c5eb rep #$20
02c5ed ldx $74
02c5ef jmp ($c5f2,x)
02c5fa ldx $72
02c5fc lda $070000,x
02c600 bpl $c605
02c602 jmp $c5a2
02c617 rts
02c61d sep #$20
02c61f lda $070004,x
02c623 jsr $c736
02c626 txy
02c627 lda #$00
02c629 xba
02c62a lda $76
02c62c tax
02c62d jmp ($c630,x)
02c64e phx
02c64f tyx
02c650 ply
02c651 lda #$01
02c653 sta $0000,y
02c656 lda $77
02c658 sta $0011,y
02c65b lda $78
02c65d sta $0012,y
02c660 lda $070005,x
02c664 sta $0013,y
02c667 lda $070006,x
02c66b bpl $c670
02c670 sta $0063,y
02c673 lda #$04
02c675 sta $0021,y
02c678 rep #$20
02c67a lda $070000,x
02c67e sta $0007,y
02c681 lda $070002,x
02c685 sta $000a,y
02c688 rts
02c6d7 jsl $00ad4f
02c6db bne $c6e0
02c6dd jmp $c64e
02c736 phx
02c737 sep #$10
02c739 tax
02c73a sta $79
02c73c lda $02cf44,x
02c740 sta $77
02c742 lda $02cf45,x
02c746 sta $78
02c748 lda $02cf43,x
02c74c sta $76
02c74e rep #$10
02c750 plx
02c751 rts
02c752 lda #$00
02c754 xba
02c755 lda $0cb0
02c758 asl a
02c759 tax
02c75a ldy $faed,x
02c75d sty $0000
02c760 lda #$00
02c762 xba
02c763 lda $0cb1
02c766 asl a
02c767 rep #$20
02c769 clc
02c76a adc $0000
02c76d tax
02c76e lda $070000,x
02c772 sta $72
02c774 rts
02c775 lda #$00
02c777 xba
02c778 lda $0cb0
02c77b asl a
02c77c tax
02c77d ldy $fb01,x
02c780 sty $0000
02c783 lda #$00
02c785 xba
02c786 lda $0cb1
02c789 asl a
02c78a rep #$20
02c78c clc
02c78d adc $0000
02c790 tax
02c791 lda $070000,x
02c795 tax
02c796 lda $070000,x
02c79a sta $06
02c79c inx
02c79d inx
02c79e stx $04
02c7a0 sep #$20
02c7a2 stz $14
02c7a4 stz $15
02c7a6 rts
02c7a7 lda $0cd2
02c7aa bne $c7b5
02c7ac lda #$00
02c7ae xba
02c7af lda $00
02c7b1 tax
02c7b2 jmp ($c7b6,x)
02c7be lda #$02
02c7c0 sta $00
02c7c2 jsr $c775
02c7c5 rts
02c7c6 lda $01
02c7c8 tax
02c7c9 jmp ($c7cc,x)
02c7d2 ldx $06
02c7d4 jmp ($c7d7,x)
02c7df rep #$20
02c7e1 ldx $04
02c7e3 lda $070000,x
02c7e7 bpl $c7ec
02c7ec cmp $0e07
02c7ef beq $c7f3
02c7f1 bcs $c7f8
02c7f8 sep #$20
02c7fa rts
058c00 lda $02
058c02 tax
058c03 jsr ($8c07,x)
058c06 rtl
058c11 stz $3b
058c13 stz $20
058c15 lda $0cb3
058c18 bne $8c38
058c1a lda #$08
058c1c cmp $0cb0
058c1f beq $8c31
058c21 lda $0cd0
058c24 bne $8c2c
058c26 lda #$02
058c28 sta $02
058c2a bra $8c3d
058c3d lda $03
058c3f tax
058c40 jmp ($8c43,x)
058c49 lda $04
058c4b tax
058c4c jmp ($8c4f,x)
058c53 lda $12
058c55 beq $8c62
058c57 lda #$02
058c59 sta $02
058c5b sta $03
058c5d stz $04
058c5f stz $05
058c61 rts
058c62 jsr $9185
058c65 lda #$02
058c67 sta $04
058c69 rts
058c6a lda #$80
058c6c bit $00e7
058c6f bne $8c99
058c71 lda $00d0
058c74 bne $8c99
058c76 lda #$02
058c78 sta $03
058c7a stz $04
058c7c stz $05
058c7e lda $0cb0
058c81 beq $8c8e
058c8e jsl $00ad4f
058c92 bne $8c99
058c94 lda #$04
058c96 jsr $914f
058c99 rts
058c9a lda $12
058c9c tax
058c9d jsr ($8cab,x)
058ca0 jsl $00af7b
058ca4 bcs $8caa
058ca6 jsl $00ae6c
058caa rts
058cb1 lda $04
058cb3 tax
058cb4 jmp ($8cb7,x)
058cbf jsr $91e1
058cc2 lda $0cb0
058cc5 beq $8cc7
058cc7 lda #$02
058cc9 sta $04
058ccb rts
058ccc jsr $915d
058ccf bcc $8cd2
058cd1 rts
058d0d lda $04
058d0f tax
058d10 jmp ($8d13,x)
058d1b jsr $91e1
058d1e lda $0cb0
058d21 beq $8d23
058d23 lda #$02
058d25 sta $04
058d27 rts
058d28 jsr $915d
058d2b bcc $8cd2
058d2d rts
05914f sta $0012,x
059152 lda #$01
059154 sta $0000,x
059157 lda #$04
059159 sta $0011,x
05915c rts
05915d rep #$20
05915f lda $0a
059161 sec
059162 sbc #$0004
059165 sta $0a
059167 sec
059168 sbc $0e0a
05916b cmp #$0080
05916e sep #$20
059170 rts
059185 ldx #$0007
059188 lda #$80
05918a jsl $00891e
05918e lda #$20
059190 ldy #$00a0
059193 jsl $008e73
059197 lda #$21
059199 ldy #$00c0
05919c jsl $008e73
0591a0 lda #$22
0591a2 ldy #$00e0
0591a5 jsl $008e73
0591a9 rts
0591e1 jsr $9218
0591e4 rep #$20
0591e6 lda $12
0591e8 and #$00ff
0591eb lsr a
0591ec tax
0591ed sep #$20
0591ef lda $05920f,x
0591f3 sta $21
0591f5 rep #$20
0591f7 txa
0591f8 asl a
0591f9 tax
0591fa lda $059212,x
0591fe tax
0591ff sep #$20
059201 lda #$05
059203 sta $22
059205 lda $0cb0
059208 asl a
059209 tay
05920a jsl $00a905
05920e rts
059218 rep #$20
05921a lda $0e07
05921d clc
05921e adc #$0080
059221 sta $07
059223 lda $0e0a
059226 clc
059227 adc #$0100
05922a sta $0a
05922c sep #$20
05922e rts
05b007 lda $02
05b009 tax
05b00a jsr ($b00e,x)
05b00d rtl
05b01f lda $03
05b021 tax
05b022 jsr ($b02e,x)
05b025 dec $3c
05b027 bne $b02d
05b029 lda #$04
05b02b sta $02
05b02d rts
05b036 lda #$02
05b038 sta $03
05b03a lda #$43
05b03c jsl $009f5a
05b040 lda #$14
05b042 sta $3d
05b044 jmp $b07f
05b047 dec $3d
05b049 bne $b056
05b04b lda #$04
05b04d sta $03
05b04f lda #$07
05b051 sta $3d
05b053 jmp $b08f
05b056 rts
05b057 dec $3d
05b059 bne $b06c
05b05b lda #$06
05b05d sta $03
05b05f lda #$14
05b061 sta $3d
05b063 lda #$43
05b065 jsl $009f5a
05b069 jmp $b087
05b06c rts
05b06d dec $3d
05b06f bne $b073
05b071 stz $03
05b073 rts
05b074 stz $0cd6
05b077 jsr $b08f
05b07a jsl $00ad73
05b07e rts
05b07f ldx #$b0f2
05b082 stx $0012
05b085 bra $b095
05b087 ldx #$b102
05b08a stx $0012
05b08d bra $b095
05b08f ldx #$b112
05b092 stx $0012
05b095 lda #$00
05b097 xba
05b098 lda $00e3
05b09b tay
05b09c ldx #$fd57
05b09f stx $0010
05b0a2 jsr $b0c1
05b0a5 ldx #$fd77
05b0a8 stx $0010
05b0ab rep #$20
05b0ad lda $0012
05b0b0 clc
05b0b1 adc #$0008
05b0b4 sta $0012
05b0b7 sep #$20
05b0b9 jsr $b0c1
05b0bc tya
05b0bd sta $00e3
05b0c0 rts
05b0c1 lda #$08
05b0c3 sta $0901,y
05b0c6 lda #$80
05b0c8 sta $0900,y
05b0cb iny
05b0cc iny
05b0cd lda #$80
05b0cf sta $0900,y
05b0d2 iny
05b0d3 rep #$20
05b0d5 lda $0010
05b0d8 sta $0900,y
05b0db iny
05b0dc iny
05b0dd lda $0012
05b0e0 sta $0900,y
05b0e3 iny
05b0e4 iny
05b0e5 sep #$20
05b0e7 lda #$05
05b0e9 sta $0900,y
05b0ec iny
05b0ed sep #$10
05b0ef rep #$10
05b0f1 rts