; ; ;----------------------------------------------------- GSTART 00:8000 18 CLC 00:8001 fb XCE ; (E-bit) <-- 0 : Native mode 00:8002 78 SEI ; IRQ disable 00:8003 d8 CLD ; (D-bit) <-- 0 00:8004 c230 REP #30 00:8006 a2df01 LDX #01df 00:8009 9a TXS ; stack pointer init. set ; 00:800a c230 REP #30 00:800c 8b PHB 00:800d a90000 LDA #0000 00:8010 8f000000 STA >000000 00:8014 a93d1f LDA #1f3d 00:8017 a20100 LDX #0001 00:801a 9b TXY 00:801b c8 INY 00:801c 540000 MVN #00,#00 ; RAM CLEAR (00002H ~ 01F3FH) 00:801f ab PLB ; 00:8020 c230 REP #30 00:8022 8b PHB 00:8023 a90000 LDA #0000 00:8026 8f00207e STA >7e2000 00:802a a9fd5f LDA #5ffd 00:802d a20120 LDX #2001 00:8030 9b TXY 00:8031 c8 INY 00:8032 547e7e MVN #7e,#7e ; RAM CLEAR (7E2002H ~ 7E5FFFH) 00:8035 ab PLB ; 00:8036 a90000 LDA #0000 00:8039 5b TCD ; (D) <-- 0 00:803a e220 SEP #20 00:803c a901 LDA #01 00:803e 48 PHA 00:803f ab PLB ; (DBR) <-- 1 00:8040 c220 REP #20 00:8042 e220 SEP #20 00:8044 ad1042 LDA !4210 00:8047 9c0042 STZ !4200 ; NMI disable 00:804a a980 LDA #80 00:804c 8d0021 STA !2100 ; blanking on 00:804f c220 REP #20 00:8051 22f48700 JSL >0087f4 ; MODE SET 00:8055 c210 REP #10 00:8057 a0ff7f LDY #7fff 00:805a a20000 LDX #0000 00:805d 22ac9f00 JSL >009fac ; Vram clear 00:8061 a237a0 LDX #a037 00:8064 2218a200 JSL >00a218 ; Sound init. boot 00:8068 a23880 LDX #8038 00:806b 2218a200 JSL >00a218 00:806f adfc1f LDA !1ffc 00:8072 c93412 CMP #1234 00:8075 d008 BNE 807f 00:8077 adfe1f LDA !1ffe 00:807a c92143 CMP #4321 00:807d f02e BEQ 80ad ; 00:807f c230 REP #30 00:8081 8b PHB 00:8082 a90000 LDA #0000 00:8085 8f401f00 STA >001f40 00:8089 a9bd00 LDA #00bd 00:808c a2411f LDX #1f41 00:808f 9b TXY 00:8090 c8 INY 00:8091 540000 MVN #00,#00 ; RAM CLEAR (01F42H ~ 01FFFH) 00:8094 ab PLB 00:8095 2223e900 JSL >00e923 00:8099 22b6e400 JSL >00e4b6 00:809d 22dfeb06 JSL >06ebdf 00:80a1 a93412 LDA #1234 00:80a4 8dfc1f STA !1ffc 00:80a7 a92143 LDA #4321 00:80aa 8dfe1f STA !1ffe ; 00:80ad 22bf8300 JSL >0083bf 00:80b1 9c941a STZ !1a94 00:80b4 221c8100 JSL >00811c 00:80b8 78 SEI 00:80b9 d8 CLD 00:80ba c230 REP #30 00:80bc a2df01 LDX #01df 00:80bf 9a TXS 00:80c0 a90000 LDA #0000 00:80c3 5b TCD 00:80c4 e220 SEP #20 00:80c6 a901 LDA #01 00:80c8 48 PHA 00:80c9 ab PLB 00:80ca c220 REP #20 00:80cc 2211a100 JSL >00a111 00:80d0 22bf8300 JSL >0083bf 00:80d4 a90000 LDA #0000 00:80d7 2249a500 JSL >00a549 00:80db 9ce41d STZ !1de4 00:80de 223d8300 JSL >00833d 00:80e2 22f48700 JSL >0087f4 00:80e6 22ec8800 JSL >0088ec 00:80ea 22548a00 JSL >008a54 00:80ee 22288400 JSL >008428 00:80f2 c220 REP #20 00:80f4 a90036 LDA #3600 00:80f7 8548 STA <48 00:80f9 a9003a LDA #3a00 00:80fc 854a STA <4a 00:80fe a90032 LDA #3200 00:8101 8542 STA <42 00:8103 22258200 JSL >008225 00:8107 22bcfb00 JSL >00fbbc 00:810b 58 CLI ; 00:810c 22e5a500 JSL >00a5e5 ; SOUND CALL 00:8110 a90000 LDA #0000 00:8113 5b TCD ; (D) <-- 0 00:8114 a58e LDA <8e 00:8116 653a ADC <3a 00:8118 858e STA <8e 00:811a 80f0 BRA 810c ; ; ;----------------------------------------------------- 00:811c ad941a LDA !1a94 00:811f 4a LSR A 00:8120 a9fb00 LDA #00fb 00:8123 9003 BCC 8128 00:8125 a9fa00 LDA #00fa 00:8128 5c038400 JMP >008403 ; ; ;----------------------------------------------------- INTSUB 00:812c c230 REP #30 00:812e 48 PHA ; (A) push 00:812f da PHX ; (X) push 00:8130 5a PHY ; (Y) push 00:8131 0b PHD ; (D) push 00:8132 8b PHB ; (DBR) push 00:8133 a90000 LDA #0000 00:8136 5b TCD ; (D) <-- 0 00:8137 e220 SEP #20 00:8139 a901 LDA #01 00:813b 48 PHA 00:813c ab PLB ; (DBR) <-- 1 00:813d ad1042 LDA !4210 00:8140 c220 REP #20 00:8142 a00100 LDY #0001 00:8145 a53c LDA <3c 00:8147 843c STY <3c 00:8149 f011 BEQ 815c 00:814b 204082 JSR !8240 ; PPU register set 00:814e 2222fa00 JSL >00fa22 ; MODE-7 set 00:8152 20f782 JSR !82f7 ; scroll count set 00:8155 222f8f00 JSL >008f2f ; H,V- count timer set 00:8159 825700 BRL 81b3 00:815c e220 SEP #20 00:815e ad401a LDA !1a40 00:8161 a43e LDY <3e 00:8163 f004 BEQ 8169 00:8165 c63e DEC <3e 00:8167 0980 ORA #80 00:8169 8d0021 STA !2100 00:816c c220 REP #20 00:816e 204082 JSR !8240 ; PPU register set 00:8171 2222fa00 JSL >00fa22 ; MODE-7 set 00:8175 2271a100 JSL >00a171 ; Character set 00:8179 20d681 JSR !81d6 ; CG. & OBJ. DMA 00:817c 22d68f00 JSL >008fd6 ; VRAM DMA 00:8180 22df9000 JSL >0090df ; H-DMA 00:8184 20f782 JSR !82f7 ; scroll count set 00:8187 222f8f00 JSL >008f2f ; H,V- count timer set 00:818b 22418600 JSL >008641 ; Joy-controller read 00:818f 64f4 STZ 008461 ; player & enemy move!! 00:8195 225c9b00 JSL >009b5c 00:8199 2236aa00 JSL >00aa36 00:819d 22309100 JSL >009130 00:81a1 22a7a400 JSL >00a4a7 00:81a5 2285a100 JSL >00a185 00:81a9 22a4fa00 JSL >00faa4 00:81ad 22768300 JSL >008376 ; SOUND PORT0 set 00:81b1 643c STZ <3c 00:81b3 c230 REP #30 00:81b5 e67a INC <7a 00:81b7 ab PLB 00:81b8 2b PLD 00:81b9 7a PLY 00:81ba fa PLX 00:81bb 68 PLA 00:81bc 40 RTI ; ; ;----------------------------------------------------- IRQSUB 00:81bd c230 REP #30 00:81bf 48 PHA 00:81c0 da PHX 00:81c1 5a PHY 00:81c2 0b PHD 00:81c3 8b PHB 00:81c4 a90000 LDA #0000 00:81c7 5b TCD ; (D) <-- 0 00:81c8 e230 SEP #30 00:81ca a901 LDA #01 00:81cc 48 PHA 00:81cd ab PLB 00:81ce 22658f00 JSL >008f65 ; part-scroll count set 00:81d2 c230 REP #30 00:81d4 80dd BRA 81b3 ; ; ;----------------------------------------------------- CG. & OBJ. DMA 00:81d6 e210 SEP #10 00:81d8 a001 LDY #01 00:81da 2440 BIT <40 00:81dc 1023 BPL 8201 00:81de 29ff7f AND #7fff 00:81e1 8540 STA <40 00:81e3 a542 LDA <42 00:81e5 8d0243 STA !4302 00:81e8 a90022 LDA #2200 00:81eb 8d0043 STA !4300 00:81ee a27e LDX #7e 00:81f0 8e0443 STX !4304 00:81f3 a90002 LDA #0200 00:81f6 8d0543 STA !4305 00:81f9 a200 LDX #00 00:81fb 8e2121 STX !2121 00:81fe 8c0b42 STY !420b ; CG. DMA 00:8201 2440 BIT <40 00:8203 701d BVS 8222 00:8205 9c0221 STZ !2102 00:8208 a90004 LDA #0400 00:820b 8d0043 STA !4300 00:820e a9e001 LDA #01e0 00:8211 8d0243 STA !4302 00:8214 a200 LDX #00 00:8216 8e0443 STX !4304 00:8219 a92002 LDA #0220 00:821c 8d0543 STA !4305 00:821f 8c0b42 STY !420b ; OBJ. DMA 00:8222 c210 REP #10 00:8224 60 RTS ; ; ;----------------------------------------------------- 00:8225 08 PHP 00:8226 e220 SEP #20 00:8228 ad1042 LDA !4210 00:822b a90f LDA #0f 00:822d 8d401a STA !1a40 00:8230 a981 LDA #81 00:8232 8d421a STA !1a42 00:8235 8d0042 STA !4200 ; NMI enable 00:8238 a904 LDA #04 00:823a 853e STA <3e 00:823c c220 REP #20 00:823e 28 PLP 00:823f 6b RTL ; ; ;----------------------------------------------------- 00:8240 a90021 LDA #2100 00:8243 5b TCD ; (D) <-- #2100H 00:8244 e220 SEP #20 00:8246 ad461a LDA !1a46 00:8249 8501 STA <01 ; 2101H 00:824b ad4c1a LDA !1a4c 00:824e 8507 STA <07 ; 2107H 00:8250 ad4e1a LDA !1a4e 00:8253 8508 STA <08 ; 2108H 00:8255 a20100 LDX #0001 00:8258 8626 STX <26 ; 2126H 00:825a 8628 STX <28 ; 2128H 00:825c ad5a1a LDA !1a5a 00:825f 852a STA <2a ; 212AH 00:8261 ad5c1a LDA !1a5c 00:8264 852b STA <2b ; 212BH 00:8266 ad7c1a LDA !1a7c 00:8269 8530 STA <30 ; 2130H 00:826b ad601a LDA !1a60 00:826e 852d STA <2d ; 212DH 00:8270 ad821a LDA !1a82 00:8273 8532 STA <32 ; 2132H 00:8275 ad841a LDA !1a84 00:8278 8532 STA <32 ; 2132H 00:827a ad861a LDA !1a86 00:827d 8532 STA <32 ; 2132H 00:827f ad9500 LDA !0095 00:8282 3034 BMI 82b8 00:8284 ad441a LDA !1a44 00:8287 8505 STA <05 ; 2105H 00:8289 ad4a1a LDA !1a4a 00:828c 8506 STA <06 ; 2106H 00:828e ad501a LDA !1a50 00:8291 8509 STA <09 ; 2109H 00:8293 ad7e1a LDA !1a7e 00:8296 8531 STA <31 ; 2131H 00:8298 ad5e1a LDA !1a5e 00:829b 852c STA <2c ; 212CH 00:829d ad621a LDA !1a62 00:82a0 852e STA <2e ; 212EH 00:82a2 ad641a LDA !1a64 00:82a5 852f STA <2f ; 212FH 00:82a7 ad541a LDA !1a54 00:82aa 8523 STA <23 ; 2123H 00:82ac ad561a LDA !1a56 00:82af 8524 STA <24 ; 2124H 00:82b1 ad581a LDA !1a58 00:82b4 8525 STA <25 ; 2125H 00:82b6 8038 BRA 82f0 00:82b8 ad441a LDA !1a44 00:82bb 0908 ORA #08 00:82bd 8505 STA <05 ; 2105H 00:82bf ad4a1a LDA !1a4a 00:82c2 29f3 AND #f3 00:82c4 8506 STA <06 ; 2106H 00:82c6 a950 LDA #50 00:82c8 8509 STA <09 ; 2109H 00:82ca ad7e1a LDA !1a7e 00:82cd 29fb AND #fb 00:82cf 8531 STA <31 ; 2131H 00:82d1 ad5e1a LDA !1a5e 00:82d4 0904 ORA #04 00:82d6 852c STA <2c ; 212CH 00:82d8 ad621a LDA !1a62 00:82db 852e STA <2e ; 212EH 00:82dd ad641a LDA !1a64 00:82e0 852f STA <2f ; 212FH 00:82e2 6423 STZ <23 ; 2121H 00:82e4 ad561a LDA !1a56 00:82e7 29f0 AND #f0 00:82e9 8524 STA <24 ; 2124H 00:82eb ad581a LDA !1a58 00:82ee 8525 STA <25 ; 2125H 00:82f0 c220 REP #20 00:82f2 a90000 LDA #0000 00:82f5 5b TCD 00:82f6 60 RTS ; ; ;----------------------------------------------------- 00:82f7 a00000 LDY #0000 00:82fa a2a01a LDX #1aa0 00:82fd 202483 JSR !8324 ; BG.1 scroll count set 00:8300 a00200 LDY #0002 00:8303 a2c01a LDX #1ac0 00:8306 202483 JSR !8324 ; BG.2 scroll count set 00:8309 a00400 LDY #0004 00:830c a2e01a LDX #1ae0 00:830f a594 LDA <94 00:8311 1011 BPL 8324 ; BG.3 scroll count set ? 00:8313 e220 SEP #20 00:8315 9c1221 STZ !2112 00:8318 9c1221 STZ !2112 00:831b 9c1121 STZ !2111 00:831e 9c1121 STZ !2111 00:8321 c220 REP #20 00:8323 60 RTS ; ; ;----------------------------------------------------- 00:8324 b510 LDA <10,x 00:8326 3a DEC A 00:8327 e220 SEP #20 00:8329 990e21 STA !210e,y ; L-SCCV set 00:832c eb XBA 00:832d 990e21 STA !210e,y ; H-SCCV set 00:8330 b500 LDA <00,x 00:8332 990d21 STA !210d,y ; L-SCCH set 00:8335 b501 LDA <01,x 00:8337 990d21 STA !210d,y ; H-SCCH set 00:833a c220 REP #20 00:833c 60 RTS ; ; ;----------------------------------------------------- 00:833d 08 PHP 00:833e e220 SEP #20 00:8340 ad1042 LDA !4210 00:8343 a900 LDA #00 00:8345 8d0042 STA !4200 00:8348 a980 LDA #80 00:834a 8d0021 STA !2100 00:834d 800c BRA 835b 00:834f 08 PHP 00:8350 e220 SEP #20 00:8352 ad1042 LDA !4210 00:8355 ad421a LDA !1a42 00:8358 8d0042 STA !4200 00:835b a904 LDA #04 00:835d 8d3e00 STA !003e 00:8360 28 PLP 00:8361 6b RTL ; ; ;----------------------------------------------------- 00:8362 08 PHP 00:8363 e220 SEP #20 00:8365 ad421a LDA !1a42 00:8368 10f1 BPL 835b 00:836a a980 LDA #80 00:836c 8d3c00 STA !003c 00:836f ad3c00 LDA !003c 00:8372 30fb BMI 836f 00:8374 80d2 BRA 8348 ; ; ;----------------------------------------------------- SOUND PORT0 SET 00:8376 e230 SEP #30 00:8378 a54c LDA <4c 00:837a f011 BEQ 838d 00:837c e6ee INC 7ec000,x 00:839f e8 INX 00:83a0 864e STX <4e 00:83a2 8d4021 STA !2140 ; SOUND 00:83a5 854c STA <4c 00:83a7 c230 REP #30 00:83a9 a554 LDA <54 00:83ab f005 BEQ 83b2 00:83ad a46a LDY <6a 00:83af f03c BEQ 83ed 00:83b1 6b RTL 00:83b2 a552 LDA <52 00:83b4 1008 BPL 83be 00:83b6 229aa500 JSL >00a59a 00:83ba 2452 BIT <52 00:83bc 102d BPL 83eb 00:83be 6b RTL ;----------------------------------------------------- 00:83bf e220 SEP #20 00:83c1 644c STZ <4c 00:83c3 a9fe LDA #fe 00:83c5 8f00c07e STA >7ec000 00:83c9 644e STZ <4e 00:83cb a901 LDA #01 00:83cd 8550 STA <50 00:83cf 6452 STZ <52 00:83d1 6454 STZ <54 00:83d3 64f6 STZ 00a133 00:83e2 6b RTL ;----------------------------------------------------- 00:83e3 a5f0 LDA 7ec000,x ; SOUND flag set 00:8419 e8 INX 00:841a 8650 STX <50 00:841c e44e CPX <4e 00:841e d002 BNE 8422 00:8420 e64e INC <4e 00:8422 c230 REP #30 00:8424 28 PLP 00:8425 7a PLY 00:8426 fa PLX 00:8427 6b RTL ; ; ;----------------------------------------------------- 00:8428 8b PHB 00:8429 e220 SEP #20 00:842b a97e LDA #7e 00:842d 48 PHA 00:842e ab PLB 00:842f c220 REP #20 00:8431 a2004a LDX #4a00 00:8434 a08000 LDY #0080 00:8437 a9e101 LDA #01e1 00:843a 8500 STA <00 00:843c a98d00 LDA #008d 00:843f 9d0000 STA !0000,x 00:8442 a500 LDA <00 00:8444 9d0100 STA !0001,x 00:8447 18 CLC 00:8448 690400 ADC #0004 00:844b 8500 STA <00 00:844d e8 INX 00:844e e8 INX 00:844f e8 INX 00:8450 88 DEY 00:8451 d0e9 BNE 843c 00:8453 a9c220 LDA #20c2 00:8456 9d0000 STA !0000,x 00:8459 a9ab6b LDA #6bab 00:845c 9d0200 STA !0002,x 00:845f ab PLB 00:8460 6b RTL ; ; ;----------------------------------------------------- 00:8461 c220 REP #20 00:8463 c210 REP #10 00:8465 e63a INC <3a 00:8467 a532 LDA <32 00:8469 0534 ORA <34 00:846b f01c BEQ 8489 00:846d a532 LDA <32 00:846f c90600 CMP #0006 00:8472 d003 BNE 8477 ; GAME ? 00:8474 4cab85 JMP !85ab 00:8477 c90400 CMP #0004 00:847a 9009 BCC 8485 ; TITLE ? 00:847c c90d00 CMP #000d 00:847f 9008 BCC 8489 00:8481 a544 LDA <44 00:8483 f004 BEQ 8489 00:8485 226f8600 JSL >00866f 00:8489 a532 LDA <32 00:848b da PHX 00:848c 0a ASL A 00:848d aa TAX 00:848e bf988400 LDA >008498,x 00:8492 fa PLX 00:8493 8500 STA <00 00:8495 6c0000 JMP (!0000) ; ; ;----------------------------------------------------- 00:8490 ** ** ** ** ** ** ** **-b6 84 da 84 14 85 24 85 ********......$. 00:84a0 56 85 d1 85 ab 85 da 85-e9 85 ea 85 ef 85 f4 85 V............... 00:84b0 f9 85 fe 85 03 86 ** **-** ** ** ** ** ** ** ** ......********** ;----------------------------------------------------- 00:84b6 a634 LDX <34 00:84b8 d015 BNE 84cf 00:84ba 22c08c00 JSL >008cc0 00:84be a90010 LDA #1000 00:84c1 8d881a STA !1a88 00:84c4 6460 STZ <60 00:84c6 6462 STZ <62 00:84c8 22038900 JSL >008903 00:84cc e634 INC <34 00:84ce 6b RTL 00:84cf 22befc00 JSL >00fcbe 00:84d3 a562 LDA <62 00:84d5 f0f7 BEQ 84ce 00:84d7 823b01 BRL 8615 ;----------------------------------------------------- 00:84da 205085 JSR !8550 00:84dd a634 LDX <34 00:84df d00d BNE 84ee 00:84e1 2280e806 JSL >06e880 00:84e5 a90010 LDA #1000 00:84e8 8d881a STA !1a88 00:84eb e634 INC <34 00:84ed 6b RTL 00:84ee 2287f900 JSL >00f987 00:84f2 22f5e806 JSL >06e8f5 00:84f6 22d3f001 JSL >01f0d3 00:84fa 9ce41d STZ !1de4 00:84fd a90000 LDA #0000 00:8500 2249a500 JSL >00a549 00:8504 a90600 LDA #0006 00:8507 229aa500 JSL >00a59a 00:850b 22eb8300 JSL >0083eb 00:850f 221d8600 JSL >00861d 00:8513 6b RTL ;----------------------------------------------------- 00:8514 646a STZ <6a 00:8516 6430 STZ <30 00:8518 205085 JSR !8550 00:851b 222af101 JSL >01f12a 00:851f 222de906 JSL >06e92d 00:8523 6b RTL ;----------------------------------------------------- 00:8524 a634 LDX <34 00:8526 d012 BNE 853a 00:8528 e634 INC <34 00:852a a90020 LDA #2000 00:852d 8d881a STA !1a88 00:8530 22368700 JSL >008736 00:8534 6484 STZ <84 00:8536 5c2cb300 JMP >00b32c 00:853a 22afac00 JSL >00acaf 00:853e a536 LDA <36 00:8540 f072 BEQ 85b4 00:8542 22218700 JSL >008721 00:8546 205085 JSR !8550 00:8549 a90d00 LDA #000d 00:854c 5c278600 JMP >008627 00:8550 a90100 LDA #0001 00:8553 8544 STA <44 00:8555 60 RTS ;----------------------------------------------------- 00:8556 a634 LDX <34 00:8558 d008 BNE 8562 00:855a 6444 STZ <44 00:855c a25000 LDX #0050 00:855f 82a900 BRL 860b 00:8562 ca DEX 00:8563 d01a BNE 857f 00:8565 a90300 LDA #0003 00:8568 8530 STA <30 00:856a 223a8600 JSL >00863a 00:856e d01b BNE 858b 00:8570 a90020 LDA #2000 00:8573 8d881a STA !1a88 00:8576 a0c594 LDY #94c5 00:8579 22f6a900 JSL >00a9f6 00:857d 80dd BRA 855c 00:857f adc019 LDA !19c0 00:8582 d007 BNE 858b 00:8584 22fa8600 JSL >0086fa 00:8588 828a00 BRL 8615 00:858b a564 LDA <64 00:858d 290400 AND #0004 00:8590 85f8 STA 00a098 ; ; ;----------------------------------------------------- GAME 00:85ab a90300 LDA #0003 00:85ae 8530 STA <30 00:85b0 22b7ac00 JSL >00acb7 ; player & enemy 00:85b4 22c5e400 JSL >00e4c5 00:85b8 a46a LDY <6a 00:85ba d014 BNE 85d0 00:85bc 221d9a02 JSL >029a1d 00:85c0 22ad9300 JSL >0093ad 00:85c4 22e8f703 JSL >03f7e8 00:85c8 22dbfb00 JSL >00fbdb 00:85cc 22c5f703 JSL >03f7c5 00:85d0 6b RTL ;----------------------------------------------------- 00:85d1 6470 STZ <70 00:85d3 22368700 JSL >008736 00:85d7 823b00 BRL 8615 ;----------------------------------------------------- 00:85da 222a9002 JSL >02902a 00:85de a536 LDA <36 00:85e0 f006 BEQ 85e8 00:85e2 22278600 JSL >008627 00:85e6 6456 STZ <56 00:85e8 6b RTL ;----------------------------------------------------- 00:85e9 6b RTL ;----------------------------------------------------- 00:85ea 2254f000 JSL >00f054 00:85ee 6b RTL ;----------------------------------------------------- 00:85ef 2200e901 JSL >01e900 00:85f3 6b RTL ;----------------------------------------------------- 00:85f4 22deec01 JSL >01ecde 00:85f8 6b RTL ;----------------------------------------------------- 00:85f9 22b49502 JSL >0295b4 00:85fd 6b RTL ;----------------------------------------------------- 00:85fe 2280e906 JSL >06e980 00:8602 6b RTL ;----------------------------------------------------- 00:8603 2200e903 JSL >03e900 00:8607 6b RTL ; ; ;----------------------------------------------------- 00:8608 a28000 LDX #0080 ;----------------------------------------------------- 00:860b 8664 STX <64 00:860d e634 INC <34 00:860f 6b RTL 00:8610 a28000 LDX #0080 00:8613 8664 STX <64 00:8615 22dc9000 JSL >0090dc 00:8619 22f08c00 JSL >008cf0 00:861d e632 INC <32 00:861f a90000 LDA #0000 00:8622 8536 STA <36 00:8624 8534 STA <34 00:8626 6b RTL ; ; ;----------------------------------------------------- 00:8627 48 PHA 00:8628 22dc9000 JSL >0090dc 00:862c 22f08c00 JSL >008cf0 00:8630 68 PLA 00:8631 8532 STA <32 00:8633 a25000 LDX #0050 00:8636 8664 STX <64 00:8638 d0e5 BNE 861f 00:863a a564 LDA <64 00:863c f002 BEQ 8640 00:863e c664 DEC <64 00:8640 6b RTL ; ; ;----------------------------------------------------- 00:8641 c210 REP #10 00:8643 e220 SEP #20 00:8645 ad1242 LDA !4212 00:8648 4a LSR A 00:8649 b0fa BCS 8645 00:864b c220 REP #20 00:864d a20600 LDX #0006 00:8650 b520 LDA <20,x 00:8652 49ffff EOR #ffff 00:8655 bc1842 LDY !4218,x ; joy-controller read 00:8658 9420 STY <20,x 00:865a 3520 AND <20,x 00:865c 9528 STA <28,x 00:865e ca DEX 00:865f ca DEX 00:8660 10ee BPL 8650 00:8662 a520 LDA <20 00:8664 0522 ORA <22 00:8666 8526 STA <26 00:8668 a528 LDA <28 00:866a 052a ORA <2a 00:866c 852e STA <2e 00:866e 6b RTL ; ; ;----------------------------------------------------- 00:866f c210 REP #10 00:8671 c220 REP #20 00:8673 a20000 LDX #0000 00:8676 227d8600 JSL >00867d 00:867a a20200 LDX #0002 00:867d b528 LDA <28,x 00:867f a432 LDY <32 00:8681 c00100 CPY #0001 00:8684 f03b BEQ 86c1 00:8686 c00200 CPY #0002 00:8689 f006 BEQ 8691 00:868b 890030 BIT #3000 00:868e d05b BNE 86eb 00:8690 6b RTL 00:8691 acc019 LDY !19c0 00:8694 d02b BNE 86c1 00:8696 890010 BIT #1000 00:8699 d027 BNE 86c2 00:869b 89002f BIT #2f00 00:869e f021 BEQ 86c1 00:86a0 890020 BIT #2000 00:86a3 d011 BNE 86b6 00:86a5 890003 BIT #0300 00:86a8 d005 BNE 86af 00:86aa a90200 LDA #0002 00:86ad 800a BRA 86b9 00:86af a456 LDY <56 00:86b1 b90880 LDA !8008,y 00:86b4 8006 BRA 86bc 00:86b6 a90100 LDA #0001 00:86b9 18 CLC 00:86ba 6556 ADC <56 00:86bc 290300 AND #0003 00:86bf 8556 STA <56 00:86c1 6b RTL 00:86c2 a556 LDA <56 00:86c4 c90200 CMP #0002 00:86c7 f01a BEQ 86e3 00:86c9 22bf8300 JSL >0083bf 00:86cd a96900 LDA #0069 00:86d0 229aa500 JSL >00a59a 00:86d4 22eb8300 JSL >0083eb 00:86d8 22008400 JSL >008400 00:86dc a90400 LDA #0004 00:86df 5c318600 JMP >008631 00:86e3 18 CLC 00:86e4 690500 ADC #0005 00:86e7 5c318600 JMP >008631 00:86eb a90100 LDA #0001 00:86ee 22278600 JSL >008627 00:86f2 8000 BRA 86f4 00:86f4 a90002 LDA #0200 00:86f7 8564 STA <64 00:86f9 6b RTL ; ; ;----------------------------------------------------- 00:86fa 22218700 JSL >008721 00:86fe c220 REP #20 00:8700 6444 STZ <44 00:8702 a556 LDA <56 00:8704 c90300 CMP #0003 00:8707 d004 BNE 870d 00:8709 6456 STZ <56 00:870b e684 INC <84 00:870d a00100 LDY #0001 00:8710 a556 LDA <56 00:8712 290100 AND #0001 00:8715 f003 BEQ 871a 00:8717 a00300 LDY #0003 00:871a 847e STY <7e 00:871c 647c STZ <7c 00:871e 6482 STZ <82 00:8720 6b RTL 00:8721 c230 REP #30 00:8723 646a STZ <6a 00:8725 223d8300 JSL >00833d 00:8729 e220 SEP #20 00:872b 22f08900 JSL >0089f0 00:872f 22258200 JSL >008225 00:8733 c220 REP #20 00:8735 6b RTL ; ; ;----------------------------------------------------- 00:8736 9cec1f STZ !1fec 00:8739 9cee1f STZ !1fee 00:873c 9ce81f STZ !1fe8 00:873f 9cea1f STZ !1fea 00:8742 9ce41f STZ !1fe4 00:8745 9ce61f STZ !1fe6 00:8748 9c2e19 STZ !192e 00:874b 9c3019 STZ !1930 00:874e 9c3219 STZ !1932 00:8751 9c3419 STZ !1934 00:8754 9c3619 STZ !1936 00:8757 9c3819 STZ !1938 00:875a 9cf01f STZ !1ff0 00:875d 9cf21f STZ !1ff2 00:8760 9cd81f STZ !1fd8 00:8763 9cda1f STZ !1fda 00:8766 9cdc1f STZ !1fdc 00:8769 9cde1f STZ !1fde 00:876c 9ce01f STZ !1fe0 00:876f 9ce21f STZ !1fe2 00:8772 a544 LDA <44 00:8774 d018 BNE 878e 00:8776 a584 LDA <84 00:8778 d014 BNE 878e 00:877a add81f LDA !1fd8 00:877d 18 CLC 00:877e 6df41f ADC !1ff4 00:8781 8dd81f STA !1fd8 00:8784 adda1f LDA !1fda 00:8787 18 CLC 00:8788 6df41f ADC !1ff4 00:878b 8dda1f STA !1fda 00:878e 6b RTL ; ; ;----------------------------------------------------- 00:878f a67c LDX <7c 00:8791 a90200 LDA #0002 00:8794 959c STA <9c,x 00:8796 a544 LDA <44 00:8798 d00a BNE 87a4 00:879a a584 LDA <84 00:879c d006 BNE 87a4 00:879e bdb01f LDA !1fb0,x 00:87a1 9598 STA <98,x 00:87a3 6b RTL 00:87a4 a0aeb1 LDY #b1ae 00:87a7 b90000 LDA !0000,y 00:87aa 9598 STA <98,x 00:87ac 6b RTL 00:87ad a544 LDA <44 00:87af d01d BNE 87ce 00:87b1 a67c LDX <7c 00:87b3 bdb41f LDA !1fb4,x 00:87b6 8d8e1b STA !1b8e 00:87b9 bde41f LDA !1fe4,x 00:87bc 85d8 STA 008cc0 00:87f8 e210 SEP #10 00:87fa a90021 LDA #2100 00:87fd 5b TCD ; (D) <-- 2100H 00:87fe a200 LDX #00 00:8800 a08f LDY #8f 00:8802 8400 STY <00 ; 2100H <-- 8FH 00:8804 a003 LDY #03 00:8806 8c461a STY !1a46 00:8809 8401 STY <01 ; 2101H 00:880b 8602 STX <02 ; 2102H 00:880d 8603 STX <03 ; 2103H 00:880f a009 LDY #09 00:8811 8405 STY <05 ; 2105H 00:8813 8e4a1a STX !1a4a 00:8816 8606 STX <06 ; 2106H 00:8818 a003 LDY #03 00:881a 8c4c1a STY !1a4c 00:881d 8407 STY <07 ; 2107H 00:881f a013 LDY #13 00:8821 8c4e1a STY !1a4e 00:8824 8408 STY <08 ; 2108H 00:8826 a050 LDY #50 00:8828 8c501a STY !1a50 00:882b 8409 STY <09 ; 2109H 00:882d a050 LDY #50 00:882f 8c521a STY !1a52 00:8832 840a STY <0a ; 210AH 00:8834 a022 LDY #22 00:8836 840b STY <0b ; 210BH 00:8838 a044 LDY #44 00:883a 840c STY <0c ; 210CH 00:883c 860d STX <0d ; 210DH 00:883e 860d STX <0d ; 210DH 00:8840 860e STX <0e ; 210EH 00:8842 860e STX <0e ; 210EH 00:8844 860f STX <0f ; 210FH 00:8846 860f STX <0f ; 210FH 00:8848 8610 STX <10 ; 2110H 00:884a 8610 STX <10 ; 2110H 00:884c 8611 STX <11 ; 2111H 00:884e 8611 STX <11 ; 2111H 00:8850 8612 STX <12 ; 2112H 00:8852 8612 STX <12 ; 2112H 00:8854 8613 STX <13 ; 2113H 00:8856 8613 STX <13 ; 2113H 00:8858 8614 STX <14 ; 2114H 00:885a 8614 STX <14 ; 2114H 00:885c a080 LDY #80 00:885e 8415 STY <15 ; 2115H 00:8860 8616 STX <16 ; 2116H 00:8862 8617 STX <17 ; 2117H 00:8864 a080 LDY #80 00:8866 841a STY <1a ; 211AH 00:8868 861b STX <1b ; 211BH 00:886a a001 LDY #01 00:886c 841b STY <1b ; 211BH 00:886e 861c STX <1c ; 211CH 00:8870 861c STX <1c ; 211CH 00:8872 861d STX <1d ; 211DH 00:8874 861d STX <1d ; 211DH 00:8876 861e STX <1e ; 211EH 00:8878 a001 LDY #01 00:887a 841e STY <1e ; 211EH 00:887c 861f STX <1f ; 211FH 00:887e 861f STX <1f ; 211FH 00:8880 8620 STX <20 ; 2120H 00:8882 8620 STX <20 ; 2120H 00:8884 8621 STX <21 ; 2121H 00:8886 8623 STX <23 ; 2123H 00:8888 8624 STX <24 ; 2124H 00:888a 8625 STX <25 ; 2125H 00:888c 8626 STX <26 ; 2126H 00:888e 8627 STX <27 ; 2127H 00:8890 8628 STX <28 ; 2128H 00:8892 8629 STX <29 ; 2129H 00:8894 862a STX <2a ; 212AH 00:8896 862b STX <2b ; 212BH 00:8898 a017 LDY #17 00:889a 8c5e1a STY !1a5e 00:889d 842c STY <2c ; 212CH 00:889f 8c601a STY !1a60 00:88a2 842d STY <2d ; 212DH 00:88a4 8e621a STX !1a62 00:88a7 862e STX <2e ; 212EH 00:88a9 8e641a STX !1a64 00:88ac 862f STX <2f ; 212FH 00:88ae 8e7c1a STX !1a7c 00:88b1 8630 STX <30 ; 2130H 00:88b3 8e7e1a STX !1a7e 00:88b6 8631 STX <31 ; 2131H 00:88b8 a0e0 LDY #e0 00:88ba 8432 STY <32 ; 2132H 00:88bc 8633 STX <33 ; 2133H 00:88be a90042 LDA #4200 00:88c1 5b TCD ; (D) <-- 4200H 00:88c2 8600 STX <00 ; 4200H 00:88c4 a0ff LDY #ff 00:88c6 8401 STY <01 ; 4201H 00:88c8 8602 STX <02 ; 4202H 00:88ca 8603 STX <03 ; 4203H 00:88cc 8604 STX <04 ; 4204H 00:88ce 8605 STX <05 ; 4205H 00:88d0 8606 STX <06 ; 4206H 00:88d2 a001 LDY #01 00:88d4 8407 STY <07 ; 4207H 00:88d6 8608 STX <08 ; 4208H 00:88d8 8609 STX <09 ; 4209H 00:88da 860a STX <0a ; 420AH 00:88dc 860b STX <0b ; 420BH 00:88de 860c STX <0c ; 420CH 00:88e0 9c921a STZ !1a92 00:88e3 860d STX <0d ; 420DH 00:88e5 a90000 LDA #0000 00:88e8 5b TCD ; (D) <-- 0 00:88e9 c210 REP #10 00:88eb 6b RTL ; ; ;----------------------------------------------------- 00:88ec c230 REP #30 00:88ee 8b PHB 00:88ef a90000 LDA #0000 00:88f2 8f000000 STA >000000 00:88f6 a93501 LDA #0135 00:88f9 a20100 LDX #0001 00:88fc 9b TXY 00:88fd c8 INY 00:88fe 540000 MVN #00,#00 00:8901 ab PLB 00:8902 6b RTL ; ; ;----------------------------------------------------- 00:8903 22228900 JSL >008922 00:8907 22398900 JSL >008939 00:890b c230 REP #30 00:890d 8b PHB 00:890e a90000 LDA #0000 00:8911 8fc01900 STA >0019c0 00:8915 a93d00 LDA #003d 00:8918 a2c119 LDX #19c1 00:891b 9b TXY 00:891c c8 INY 00:891d 540000 MVN #00,#00 00:8920 ab PLB 00:8921 6b RTL ;----------------------------------------------------- 00:8922 c230 REP #30 00:8924 8b PHB 00:8925 a90000 LDA #0000 00:8928 8fa01800 STA >0018a0 00:892c a93d00 LDA #003d 00:892f a2a118 LDX #18a1 00:8932 9b TXY 00:8933 c8 INY 00:8934 540000 MVN #00,#00 ; RAM CLEAR (018A2H ~ 018DFH) 00:8937 ab PLB 00:8938 6b RTL 00:8939 c230 REP #30 00:893b 8b PHB 00:893c a90000 LDA #0000 00:893f 8f000100 STA >000100 00:8943 a93500 LDA #0035 00:8946 a20101 LDX #0101 00:8949 9b TXY 00:894a c8 INY 00:894b 540000 MVN #00,#00 ; RAM CLEAR (00102H ~ 00137H) 00:894e ab PLB 00:894f c230 REP #30 00:8951 8b PHB 00:8952 a90000 LDA #0000 00:8955 8f001900 STA >001900 00:8959 a92500 LDA #0025 00:895c a20119 LDX #1901 00:895f 9b TXY 00:8960 c8 INY 00:8961 540000 MVN #00,#00 ; RAM CLEAR (01902H ~ 01927H) 00:8964 ab PLB 00:8965 c230 REP #30 00:8967 8b PHB 00:8968 a90000 LDA #0000 00:896b 8f001a00 STA >001a00 00:896f a93500 LDA #0035 00:8972 a2011a LDX #1a01 00:8975 9b TXY 00:8976 c8 INY 00:8977 540000 MVN #00,#00 ; RAM CLEAR (01A02H ~ 01A37H) 00:897a ab PLB 00:897b 6b RTL ; ; ;----------------------------------------------------- 00:897c 22228900 JSL >008922 00:8980 c230 REP #30 00:8982 8b PHB 00:8983 a90000 LDA #0000 00:8986 8f000100 STA >000100 00:898a a93500 LDA #0035 00:898d a20101 LDX #0101 00:8990 9b TXY 00:8991 c8 INY 00:8992 540000 MVN #00,#00 00:8995 ab PLB 00:8996 c230 REP #30 00:8998 8b PHB 00:8999 a90000 LDA #0000 00:899c 8f001900 STA >001900 00:89a0 a92500 LDA #0025 00:89a3 a20119 LDX #1901 00:89a6 9b TXY 00:89a7 c8 INY 00:89a8 540000 MVN #00,#00 00:89ab ab PLB 00:89ac c230 REP #30 00:89ae 8b PHB 00:89af a90000 LDA #0000 00:89b2 8fc01900 STA >0019c0 00:89b6 a93d00 LDA #003d 00:89b9 a2c119 LDX #19c1 00:89bc 9b TXY 00:89bd c8 INY 00:89be 540000 MVN #00,#00 00:89c1 ab PLB 00:89c2 6b RTL 00:89c3 c230 REP #30 00:89c5 8b PHB 00:89c6 a90000 LDA #0000 00:89c9 8f000400 STA >000400 00:89cd a99d14 LDA #149d 00:89d0 a20104 LDX #0401 00:89d3 9b TXY 00:89d4 c8 INY 00:89d5 540000 MVN #00,#00 00:89d8 ab PLB 00:89d9 c230 REP #30 00:89db 8b PHB 00:89dc a90000 LDA #0000 00:89df 8fe00100 STA >0001e0 00:89e3 a91d02 LDA #021d 00:89e6 a2e101 LDX #01e1 00:89e9 9b TXY 00:89ea c8 INY 00:89eb 540000 MVN #00,#00 00:89ee ab PLB 00:89ef 6b RTL 00:89f0 c230 REP #30 00:89f2 8b PHB 00:89f3 a90000 LDA #0000 00:89f6 8f600000 STA >000060 00:89fa a98d00 LDA #008d 00:89fd a26100 LDX #0061 00:8a00 9b TXY 00:8a01 c8 INY 00:8a02 540000 MVN #00,#00 00:8a05 ab PLB 00:8a06 6b RTL 00:8a07 c230 REP #30 00:8a09 8b PHB 00:8a0a a90000 LDA #0000 00:8a0d 8f00307e STA >7e3000 00:8a11 a9fd05 LDA #05fd 00:8a14 a20130 LDX #3001 00:8a17 9b TXY 00:8a18 c8 INY 00:8a19 547e7e MVN #7e,#7e 00:8a1c ab PLB 00:8a1d 6b RTL 00:8a1e c230 REP #30 00:8a20 8b PHB 00:8a21 a90000 LDA #0000 00:8a24 8f40327e STA >7e3240 00:8a28 a9bd00 LDA #00bd 00:8a2b a24132 LDX #3241 00:8a2e 9b TXY 00:8a2f c8 INY 00:8a30 547e7e MVN #7e,#7e 00:8a33 ab PLB 00:8a34 22d1a900 JSL >00a9d1 00:8a38 6b RTL 00:8a39 c230 REP #30 00:8a3b 8b PHB 00:8a3c a90000 LDA #0000 00:8a3f 8f40327e STA >7e3240 00:8a43 a93d00 LDA #003d 00:8a46 a24132 LDX #3241 00:8a49 9b TXY 00:8a4a c8 INY 00:8a4b 547e7e MVN #7e,#7e 00:8a4e ab PLB 00:8a4f 22d1a900 JSL >00a9d1 00:8a53 6b RTL 00:8a54 c230 REP #30 00:8a56 8b PHB 00:8a57 a90000 LDA #0000 00:8a5a 8f281900 STA >001928 00:8a5e a91400 LDA #0014 00:8a61 a22919 LDX #1929 00:8a64 9b TXY 00:8a65 c8 INY 00:8a66 540000 MVN #00,#00 00:8a69 ab PLB 00:8a6a 6b RTL 00:8a6b c230 REP #30 00:8a6d 8b PHB 00:8a6e a90000 LDA #0000 00:8a71 8f501c00 STA >001c50 00:8a75 a93d01 LDA #013d 00:8a78 a2511c LDX #1c51 00:8a7b 9b TXY 00:8a7c c8 INY 00:8a7d 540000 MVN #00,#00 00:8a80 ab PLB 00:8a81 6b RTL 00:8a82 c230 REP #30 00:8a84 8b PHB 00:8a85 a90000 LDA #0000 00:8a88 8fb01e00 STA >001eb0 00:8a8c a92d00 LDA #002d 00:8a8f a2b11e LDX #1eb1 00:8a92 9b TXY 00:8a93 c8 INY 00:8a94 540000 MVN #00,#00 00:8a97 ab PLB 00:8a98 6b RTL 00:8a99 c230 REP #30 00:8a9b 8b PHB 00:8a9c a90000 LDA #0000 00:8a9f 8fb01e00 STA >001eb0 00:8aa3 a92d00 LDA #002d 00:8aa6 a2b11e LDX #1eb1 00:8aa9 9b TXY 00:8aaa c8 INY 00:8aab 540000 MVN #00,#00 00:8aae ab PLB 00:8aaf 6b RTL 00:8ab0 22c18a00 JSL >008ac1 00:8ab4 22c88a00 JSL >008ac8 00:8ab8 22cf8a00 JSL >008acf 00:8abc 22d68a00 JSL >008ad6 00:8ac0 6b RTL 00:8ac1 9c401f STZ !1f40 00:8ac4 9c421f STZ !1f42 00:8ac7 6b RTL 00:8ac8 9c441f STZ !1f44 00:8acb 9c461f STZ !1f46 00:8ace 6b RTL 00:8acf 9c481f STZ !1f48 00:8ad2 9c4a1f STZ !1f4a 00:8ad5 6b RTL 00:8ad6 9c4c1f STZ !1f4c 00:8ad9 9c4e1f STZ !1f4e 00:8adc 6b RTL 00:8add c230 REP #30 00:8adf 8b PHB 00:8ae0 a90000 LDA #0000 00:8ae3 8f004c7e STA >7e4c00 00:8ae7 a9fd03 LDA #03fd 00:8aea a2014c LDX #4c01 00:8aed 9b TXY 00:8aee c8 INY 00:8aef 547e7e MVN #7e,#7e 00:8af2 ab PLB 00:8af3 6b RTL 00:8af4 c230 REP #30 00:8af6 8b PHB 00:8af7 a90000 LDA #0000 00:8afa 8f00807f STA >7f8000 00:8afe a9fd7f LDA #7ffd 00:8b01 a20180 LDX #8001 00:8b04 9b TXY 00:8b05 c8 INY 00:8b06 547f7f MVN #7f,#7f 00:8b09 ab PLB 00:8b0a 6b RTL 00:8b0b c230 REP #30 00:8b0d 8b PHB 00:8b0e a90000 LDA #0000 00:8b11 8f00807f STA >7f8000 00:8b15 a9fd1f LDA #1ffd 00:8b18 a20180 LDX #8001 00:8b1b 9b TXY 00:8b1c c8 INY 00:8b1d 547f7f MVN #7f,#7f 00:8b20 ab PLB 00:8b21 ee3a1a INC !1a3a 00:8b24 6b RTL 00:8b25 c230 REP #30 00:8b27 8b PHB 00:8b28 a90000 LDA #0000 00:8b2b 8f00a07f STA >7fa000 00:8b2f a9fd1f LDA #1ffd 00:8b32 a201a0 LDX #a001 00:8b35 9b TXY 00:8b36 c8 INY 00:8b37 547f7f MVN #7f,#7f 00:8b3a ab PLB 00:8b3b ee3a1a INC !1a3a 00:8b3e 6b RTL 00:8b3f c230 REP #30 00:8b41 8b PHB 00:8b42 a90000 LDA #0000 00:8b45 8f00c07f STA >7fc000 00:8b49 a9fd1f LDA #1ffd 00:8b4c a201c0 LDX #c001 00:8b4f 9b TXY 00:8b50 c8 INY 00:8b51 547f7f MVN #7f,#7f 00:8b54 ab PLB 00:8b55 ee3a1a INC !1a3a 00:8b58 6b RTL 00:8b59 c230 REP #30 00:8b5b 8b PHB 00:8b5c a90000 LDA #0000 00:8b5f 8f00e07f STA >7fe000 00:8b63 a9fd1f LDA #1ffd 00:8b66 a201e0 LDX #e001 00:8b69 9b TXY 00:8b6a c8 INY 00:8b6b 547f7f MVN #7f,#7f 00:8b6e ab PLB 00:8b6f ee3a1a INC !1a3a 00:8b72 6b RTL 00:8b73 c230 REP #30 00:8b75 8b PHB 00:8b76 a90000 LDA #0000 00:8b79 8f00e07f STA >7fe000 00:8b7d a9fd1f LDA #1ffd 00:8b80 a201e0 LDX #e001 00:8b83 9b TXY 00:8b84 c8 INY 00:8b85 547f7f MVN #7f,#7f 00:8b88 ab PLB 00:8b89 ee3a1a INC !1a3a 00:8b8c 6b RTL 00:8b8d c230 REP #30 00:8b8f 8b PHB 00:8b90 a90000 LDA #0000 ; ; ;----------------------------------------------------- 00:8c4d c230 REP #30 00:8c4f 8b PHB 00:8c50 a90000 LDA #0000 00:8c53 8ff01e00 STA >001ef0 00:8c57 a94d00 LDA #004d 00:8c5a a2f11e LDX #1ef1 00:8c5d 9b TXY 00:8c5e c8 INY 00:8c5f 540000 MVN #00,#00 ; RAM CLEAR (1EF2H ~ 1F3FH) 00:8c62 ab PLB 00:8c63 6b RTL ;----------------------------------------------------- 00:8c64 c230 REP #30 00:8c66 8b PHB 00:8c67 a90000 LDA #0000 00:8c6a 8fa01a00 STA >001aa0 00:8c6e a95d00 LDA #005d 00:8c71 a2a11a LDX #1aa1 00:8c74 9b TXY 00:8c75 c8 INY 00:8c76 540000 MVN #00,#00 ; RAM CLEAR (1AA2H ~ 1AFFH) 00:8c79 ab PLB 00:8c7a 6b RTL ;----------------------------------------------------- 00:8c7b c230 REP #30 00:8c7d 8b PHB 00:8c7e a90000 LDA #0000 00:8c81 8f201b00 STA >001b20 00:8c85 a90d00 LDA #000d 00:8c88 a2211b LDX #1b21 00:8c8b 9b TXY 00:8c8c c8 INY 00:8c8d 540000 MVN #00,#00 ; RAM CLEAR (1B22H ~ 1B2FH) 00:8c90 ab PLB 00:8c91 6b RTL ;----------------------------------------------------- 00:8c92 c230 REP #30 00:8c94 8b PHB 00:8c95 a90000 LDA #0000 00:8c98 8f700000 STA >000070 00:8c9c a98d00 LDA #008d 00:8c9f a27100 LDX #0071 00:8ca2 9b TXY 00:8ca3 c8 INY 00:8ca4 540000 MVN #00,#00 ; RAM CLEAR (0072H ~ 00FFH) 00:8ca7 ab PLB 00:8ca8 6b RTL ;----------------------------------------------------- 00:8ca9 c230 REP #30 00:8cab 8b PHB 00:8cac a90000 LDA #0000 00:8caf 8f00307e STA >7e3000 00:8cb3 a9fd01 LDA #01fd 00:8cb6 a20130 LDX #3001 00:8cb9 9b TXY 00:8cba c8 INY 00:8cbb 547e7e MVN #7e,#7e ; RAM CLEAR (7E3002H ~ 7E31FFH) 00:8cbe ab PLB 00:8cbf 6b RTL ;----------------------------------------------------- 00:8cc0 a90000 LDA #0000 00:8cc3 8d801a STA !1a80 00:8cc6 291f00 AND #001f 00:8cc9 092000 ORA #0020 00:8ccc 8d821a STA !1a82 00:8ccf ad801a LDA !1a80 00:8cd2 4a LSR A 00:8cd3 4a LSR A 00:8cd4 4a LSR A 00:8cd5 4a LSR A 00:8cd6 4a LSR A 00:8cd7 291f00 AND #001f 00:8cda 094000 ORA #0040 00:8cdd 8d841a STA !1a84 00:8ce0 ad801a LDA !1a80 00:8ce3 eb XBA 00:8ce4 4a LSR A 00:8ce5 4a LSR A 00:8ce6 291f00 AND #001f 00:8ce9 098000 ORA #0080 00:8cec 8d861a STA !1a86 00:8cef 6b RTL ;----------------------------------------------------- 00:8cf0 a03c80 LDY #803c 00:8cf3 8003 BRA 8cf8 00:8cf5 a04480 LDY #8044 00:8cf8 8c8c1a STY !1a8c 00:8cfb 8c981a STY !1a98 00:8cfe add41d LDA !1dd4 00:8d01 f009 BEQ 8d0c 00:8d03 8b PHB 00:8d04 e220 SEP #20 00:8d06 a901 LDA #01 00:8d08 48 PHA 00:8d09 ab PLB 00:8d0a 801f BRA 8d2b 00:8d0c 8b PHB 00:8d0d e220 SEP #20 00:8d0f a901 LDA #01 00:8d11 48 PHA 00:8d12 ab PLB 00:8d13 b90000 LDA !0000,y 00:8d16 8d7c1a STA !1a7c 00:8d19 b90100 LDA !0001,y 00:8d1c 8d7e1a STA !1a7e 00:8d1f b90200 LDA !0002,y 00:8d22 8d5e1a STA !1a5e 00:8d25 b90300 LDA !0003,y 00:8d28 8d601a STA !1a60 00:8d2b b90400 LDA !0004,y 00:8d2e c9ff CMP #ff 00:8d30 f015 BEQ 8d47 00:8d32 8d441a STA !1a44 00:8d35 b90500 LDA !0005,y 00:8d38 8d4c1a STA !1a4c 00:8d3b b90600 LDA !0006,y 00:8d3e 8d4e1a STA !1a4e 00:8d41 b90700 LDA !0007,y 00:8d44 8d501a STA !1a50 00:8d47 c220 REP #20 00:8d49 ab PLB 00:8d4a 6b RTL ;----------------------------------------------------- 00:8d4b a09c80 LDY #809c 00:8d4e 8b PHB 00:8d4f e220 SEP #20 00:8d51 a901 LDA #01 00:8d53 48 PHA 00:8d54 ab PLB 00:8d55 b90000 LDA !0000,y 00:8d58 8d541a STA !1a54 00:8d5b b90100 LDA !0001,y 00:8d5e 8d561a STA !1a56 00:8d61 b90200 LDA !0002,y 00:8d64 8d581a STA !1a58 00:8d67 b90300 LDA !0003,y 00:8d6a 8d5a1a STA !1a5a 00:8d6d b90400 LDA !0004,y 00:8d70 8d5c1a STA !1a5c 00:8d73 b90500 LDA !0005,y 00:8d76 8d621a STA !1a62 00:8d79 b90600 LDA !0006,y 00:8d7c 8d641a STA !1a64 00:8d7f c220 REP #20 00:8d81 ab PLB 00:8d82 6b RTL ;----------------------------------------------------- 00:8d83 e220 SEP #20 00:8d85 8d0242 STA !4202 00:8d88 98 TYA 00:8d89 8d0342 STA !4203 00:8d8c ea NOP 00:8d8d eb XBA 00:8d8e c220 REP #20 00:8d90 ad1642 LDA !4216 00:8d93 6b RTL ;----------------------------------------------------- 00:8d94 e220 SEP #20 00:8d96 c9ff CMP #ff 00:8d98 d00f BNE 8da9 00:8d9a 6400 STZ <00 00:8d9c 6403 STZ <03 00:8d9e c220 REP #20 00:8da0 8401 STY <01 00:8da2 a500 LDA <00 00:8da4 a402 LDY <02 00:8da6 6b RTL ;----------------------------------------------------- 00:8da7 e220 SEP #20 00:8da9 8d0242 STA !4202 00:8dac 98 TYA 00:8dad 8d0342 STA !4203 00:8db0 6402 STZ <02 00:8db2 6403 STZ <03 00:8db4 c220 REP #20 00:8db6 ad1642 LDA !4216 00:8db9 8500 STA <00 00:8dbb 98 TYA 00:8dbc eb XBA 00:8dbd e220 SEP #20 00:8dbf 8d0342 STA !4203 00:8dc2 ea NOP 00:8dc3 ea NOP 00:8dc4 18 CLC 00:8dc5 c220 REP #20 00:8dc7 ad1642 LDA !4216 00:8dca 6501 ADC <01 00:8dcc 8501 STA <01 00:8dce a402 LDY <02 00:8dd0 a500 LDA <00 00:8dd2 6b RTL ;----------------------------------------------------- 00:8dd3 8c0442 STY !4204 00:8dd6 e220 SEP #20 00:8dd8 8d0642 STA !4206 00:8ddb 8503 STA <03 00:8ddd a902 LDA #02 00:8ddf 3a DEC A 00:8de0 d0fd BNE 8ddf 00:8de2 c220 REP #20 00:8de4 ad1442 LDA !4214 00:8de7 8501 STA <01 00:8de9 e220 SEP #20 00:8deb ad1642 LDA !4216 00:8dee 8d0542 STA !4205 00:8df1 a500 LDA <00 00:8df3 8d0442 STA !4204 00:8df6 a503 LDA <03 00:8df8 8d0642 STA !4206 00:8dfb 6403 STZ <03 00:8dfd a903 LDA #03 ; ; ;----------------------------------------------------- 00:8f2f e230 SEP #30 00:8f31 a53e LDA <3e 00:8f33 d02d BNE 8f62 00:8f35 78 SEI 00:8f36 a000 LDY #00 00:8f38 a595 LDA <95 00:8f3a 1009 BPL 8f45 00:8f3c a9b1 LDA #b1 00:8f3e 8d0042 STA !4200 00:8f41 a217 LDX #17 00:8f43 800c BRA 8f51 00:8f45 2495 BIT <95 00:8f47 5019 BVC 8f62 00:8f49 a9b1 LDA #b1 00:8f4b 8d0042 STA !4200 00:8f4e a2bd LDX #bd 00:8f50 c8 INY 00:8f51 8438 STY <38 00:8f53 8e0942 STX !4209 00:8f56 9c0a42 STZ !420a ; V-count timer set 00:8f59 a920 LDA #20 00:8f5b 8d0742 STA !4207 00:8f5e 9c0842 STZ !4208 ; H-count timer set 00:8f61 58 CLI 00:8f62 c230 REP #30 00:8f64 6b RTL ; ; ;----------------------------------------------------- 00:8f65 0b PHD 00:8f66 ad1142 LDA !4211 00:8f69 103f BPL 8faa 00:8f6b a538 LDA <38 00:8f6d d03d BNE 8fac ; 1st. IRQ ? 00:8f6f e638 INC <38 00:8f71 a921 LDA #21 00:8f73 eb XBA 00:8f74 a900 LDA #00 00:8f76 5b TCD ; (D) <-- #2100H 00:8f77 a2cb LDX #cb 00:8f79 8e0942 STX !4209 00:8f7c ade01a LDA !1ae0 00:8f7f eb XBA 00:8f80 ac561a LDY !1a56 00:8f83 ae501a LDX !1a50 00:8f86 ad441a LDA !1a44 00:8f89 2c1242 BIT !4212 00:8f8c 50fb BVC 8f89 00:8f8e 8505 STA <05 ; 2105H 00:8f90 8609 STX <09 ; 2109H 00:8f92 8424 STY <24 ; 2124H 00:8f94 ad541a LDA !1a54 00:8f97 8523 STA <23 ; 2123H 00:8f99 ad4a1a LDA !1a4a 00:8f9c 8506 STA <06 ; 2106H 00:8f9e adf01a LDA !1af0 00:8fa1 8512 STA <12 ; 2112H 00:8fa3 6412 STZ <12 ; 2112H 00:8fa5 eb XBA 00:8fa6 8511 STA <11 ; 2111H 00:8fa8 6411 STZ <11 ; 2111H 00:8faa 2b PLD 00:8fab 6b RTL 00:8fac a981 LDA #81 00:8fae 8d0042 STA !4200 00:8fb1 a921 LDA #21 00:8fb3 eb XBA 00:8fb4 a900 LDA #00 00:8fb6 5b TCD ; (D) <-- #2100H 00:8fb7 a209 LDX #09 00:8fb9 a904 LDA #04 00:8fbb a050 LDY #50 00:8fbd 2c1242 BIT !4212 00:8fc0 50fb BVC 8fbd 00:8fc2 6424 STZ <24 ; 2124H 00:8fc4 8605 STX <05 ; 2105H 00:8fc6 8409 STY <09 ; 2109H 00:8fc8 6406 STZ <06 ; 2106H 00:8fca 6423 STZ <23 ; 2123H 00:8fcc 8512 STA <12 ; 2112H 00:8fce 6412 STZ <12 ; 2112H 00:8fd0 8511 STA <11 ; 2111H 00:8fd2 6411 STZ <11 ; 2111H 00:8fd4 80d4 BRA 8faa ; ; ;----------------------------------------------------- 7E3600 : 2115H set 1 : 2 : 4300H 3 : 4301H 4 : 2116H 5 : 2117H 6 : 4302H 7 : 4303H 8 : 4304H 9 : 4305H A : 4306H ;----------------------------------------------------- 00:8fd6 a90043 LDA #4300 00:8fd9 5b TCD ; (D) <-- #4300H 00:8fda a00100 LDY #0001 00:8fdd a20036 LDX #3600 00:8fe0 ec4800 CPX !0048 00:8fe3 b034 BCS 9019 00:8fe5 bf04007e LDA >7e0004,x 00:8fe9 8d1621 STA !2116 00:8fec bf06007e LDA >7e0006,x 00:8ff0 8502 STA <02 ; 4302H 00:8ff2 bf09007e LDA >7e0009,x 00:8ff6 8505 STA <05 ; 4305H 00:8ff8 bf02007e LDA >7e0002,x 00:8ffc 8500 STA <00 ; 4300H 00:8ffe e220 SEP #20 00:9000 bf00007e LDA >7e0000,x 00:9004 8d1521 STA !2115 00:9007 bf08007e LDA >7e0008,x 00:900b 8504 STA <04 ; 4304H 00:900d 8c0b42 STY !420b ; DMA 00:9010 c220 REP #20 00:9012 8a TXA 00:9013 690b00 ADC #000b 00:9016 aa TAX 00:9017 80c7 BRA 8fe0 00:9019 a90000 LDA #0000 00:901c 5b TCD ; (D) <-- 0 00:901d a90036 LDA #3600 00:9020 8548 STA <48 00:9022 a9003a LDA #3a00 00:9025 854a STA <4a 00:9027 6b RTL ; ; ;----------------------------------------------------- 00:9028 a90000 LDA #0000 00:902b a648 LDX <48 00:902d 9f00007e STA >7e0000,x 00:9031 a90018 LDA #1800 00:9034 8011 BRA 9047 00:9036 a98100 LDA #0081 00:9039 8003 BRA 903e 00:903b a98000 LDA #0080 00:903e a648 LDX <48 00:9040 9f00007e STA >7e0000,x 00:9044 a90118 LDA #1801 00:9047 9f02007e STA >7e0002,x 00:904b 98 TYA 00:904c 9f04007e STA >7e0004,x 00:9050 a54a LDA <4a 00:9052 9f06007e STA >7e0006,x 00:9056 a97e00 LDA #007e 00:9059 9f08007e STA >7e0008,x 00:905d 8a TXA 00:905e 18 CLC 00:905f 690b00 ADC #000b 00:9062 8548 STA <48 00:9064 6b RTL 00:9065 e220 SEP #20 00:9067 a64a LDX <4a 00:9069 9f00007e STA >7e0000,x 00:906d e8 INX 00:906e 864a STX <4a 00:9070 6b RTL 00:9071 a64a LDX <4a 00:9073 9f00007e STA >7e0000,x 00:9077 e8 INX 00:9078 e8 INX 00:9079 864a STX <4a 00:907b 6b RTL 00:907c a648 LDX <48 00:907e 38 SEC 00:907f a54a LDA <4a 00:9081 fffbff7d SBC >7dfffb,x 00:9085 9ffeff7d STA >7dfffe,x 00:9089 6b RTL 00:908a da PHX 00:908b a648 LDX <48 00:908d 9f06007e STA >7e0006,x 00:9091 a500 LDA <00 00:9093 9f08007e STA >7e0008,x 00:9097 98 TYA 00:9098 9f04007e STA >7e0004,x 00:909c a980 LDA #80 00:909e 009f BRK 9f 00:90a0 0000 BRK 00 00:90a2 7ea901 ROR !01a9,x 00:90a5 18 CLC 00:90a6 9f02007e STA >7e0002,x 00:90aa 68 PLA 00:90ab 9f09007e STA >7e0009,x 00:90af 8a TXA 00:90b0 18 CLC 00:90b1 690b ADC #0b 00:90b3 0085 BRK 85 00:90b5 48 PHA 00:90b6 6b RTL 00:90b7 8b PHB 00:90b8 e220 SEP #20 00:90ba a901 LDA #01 00:90bc 48 PHA 00:90bd ab PLB 00:90be c220 REP #20 00:90c0 a55a LDA <5a 00:90c2 19ab80 ORA !80ab,y 00:90c5 8011 BRA 90d8 00:90c7 8b PHB 00:90c8 e220 SEP #20 00:90ca a901 LDA #01 00:90cc 48 PHA 00:90cd ab PLB 00:90ce c220 REP #20 00:90d0 b9ab80 LDA !80ab,y 00:90d3 49ffff EOR #ffff 00:90d6 255a AND <5a 00:90d8 855a STA <5a 00:90da ab PLB 00:90db 6b RTL 00:90dc 645a STZ <5a 00:90de 6b RTL ; ; ;----------------------------------------------------- 001978 : 4300H 9 : 4301H A : 4302H B : 4303H C : 4304H D : E : F : 4305H ;----------------------------------------------------- 00:90df e220 SEP #20 00:90e1 ad921a LDA !1a92 00:90e4 f044 BEQ 912a 00:90e6 a27043 LDX #4370 00:90e9 a907 LDA #07 00:90eb 8508 STA <08 00:90ed eb XBA 00:90ee a900 LDA #00 00:90f0 eb XBA 00:90f1 0a ASL A 00:90f2 0a ASL A 00:90f3 0a ASL A 00:90f4 a8 TAY 00:90f5 b94019 LDA !1940,y 00:90f8 9500 STA <00,x ; 43x0H 00:90fa b94119 LDA !1941,y 00:90fd 9501 STA <01,x ; 43x1H 00:90ff b94219 LDA !1942,y 00:9102 9502 STA <02,x ; 43x2H 00:9104 b94319 LDA !1943,y 00:9107 9503 STA <03,x ; 43x3H 00:9109 b94419 LDA !1944,y 00:910c 9504 STA <04,x ; 43x4H 00:910e b94719 LDA !1947,y 00:9111 9507 STA <07,x ; 43x5H 00:9113 c220 REP #20 00:9115 8a TXA 00:9116 38 SEC 00:9117 e91000 SBC #0010 00:911a aa TAX 00:911b e220 SEP #20 00:911d a508 LDA <08 00:911f 3a DEC A 00:9120 3005 BMI 9127 00:9122 cd961a CMP !1a96 00:9125 b0c4 BCS 90eb 00:9127 ad921a LDA !1a92 00:912a 8d0c42 STA !420c ; H-DMA 00:912d c220 REP #20 00:912f 6b RTL ; ; ;----------------------------------------------------- 00:9130 c220 REP #20 00:9132 a00700 LDY #0007 00:9135 8408 STY <08 00:9137 a20000 LDX #0000 00:913a a55a LDA <5a 00:913c 205491 JSR !9154 00:913f a408 LDY <08 00:9141 c8 INY 00:9142 a90000 LDA #0000 00:9145 c00800 CPY #0008 00:9148 b003 BCS 914d 00:914a b9a380 LDA !80a3,y 00:914d 8d921a STA !1a92 00:9150 8c961a STY !1a96 00:9153 6b RTL ; 00:9154 f015 BEQ 916b 00:9156 a01000 LDY #0010 00:9159 840a STY <0a 00:915b 4a LSR A 00:915c 9007 BCC 9165 00:915e 48 PHA 00:915f da PHX 00:9160 206c91 JSR !916c 00:9163 fa PLX 00:9164 68 PLA 00:9165 e8 INX 00:9166 e8 INX 00:9167 c60a DEC <0a 00:9169 d0f0 BNE 915b 00:916b 60 RTS ; 00:916c a55e LDA <5e 00:916e f005 BEQ 9175 00:9170 bde580 LDA !80e5,x 00:9173 d054 BNE 91c9 00:9175 bccb80 LDY !80cb,x 00:9178 a508 LDA <08 00:917a 0a ASL A 00:917b 0a ASL A 00:917c 0a ASL A 00:917d 694019 ADC #1940 00:9180 aa TAX 00:9181 e220 SEP #20 00:9183 b90000 LDA !0000,y 00:9186 c9ff CMP #ff 00:9188 f03f BEQ 91c9 00:918a 9500 STA <00,x 00:918c b90100 LDA !0001,y 00:918f 9501 STA <01,x 00:9191 c220 REP #20 00:9193 6406 STZ <06 00:9195 b90200 LDA !0002,y 00:9198 c9ffff CMP #ffff 00:919b d01f BNE 91bc 00:919d e606 INC <06 00:919f b90400 LDA !0004,y 00:91a2 8500 STA <00 00:91a4 b90500 LDA !0005,y 00:91a7 8501 STA <01 00:91a9 a700 LDA [<00] 00:91ab 4a LSR A 00:91ac b90700 LDA !0007,y 00:91af 9003 BCC 91b4 00:91b1 b90900 LDA !0009,y 00:91b4 48 PHA 00:91b5 98 TYA 00:91b6 18 CLC 00:91b7 690700 ADC #0007 00:91ba a8 TAY 00:91bb 68 PLA 00:91bc 20cc91 JSR !91cc 00:91bf 98 TYA 00:91c0 18 CLC 00:91c1 690400 ADC #0004 00:91c4 a8 TAY 00:91c5 c608 DEC <08 00:91c7 d0af BNE 9178 00:91c9 c220 REP #20 00:91cb 60 RTS ; 00:91cc 5a PHY 00:91cd a8 TAY 00:91ce e220 SEP #20 00:91d0 b90000 LDA !0000,y 00:91d3 9502 STA <02,x 00:91d5 8500 STA <00 00:91d7 b90100 LDA !0001,y 00:91da 9503 STA <03,x 00:91dc 8501 STA <01 00:91de b90200 LDA !0002,y 00:91e1 9504 STA <04,x 00:91e3 9507 STA <07,x 00:91e5 8502 STA <02 00:91e7 8505 STA <05 00:91e9 c220 REP #20 00:91eb a500 LDA <00 00:91ed 38 SEC 00:91ee e91000 SBC #0010 00:91f1 8503 STA <03 00:91f3 e220 SEP #20 00:91f5 be0300 LDX !0003,y 00:91f8 e0ffff CPX #ffff 00:91fb f027 BEQ 9224 00:91fd a506 LDA <06 00:91ff d008 BNE 9209 00:9201 a703 LDA [<03] 00:9203 4a LSR A 00:9204 9003 BCC 9209 00:9206 be0500 LDX !0005,y 00:9209 a00000 LDY #0000 00:920c bd0000 LDA !0000,x 00:920f 9700 STA [<00],y 00:9211 f011 BEQ 9224 00:9213 c8 INY 00:9214 c220 REP #20 00:9216 bd0100 LDA !0001,x 00:9219 9700 STA [<00],y 00:921b c8 INY 00:921c c8 INY 00:921d e8 INX 00:921e e8 INX 00:921f e8 INX 00:9220 e220 SEP #20 00:9222 80e8 BRA 920c 00:9224 c220 REP #20 00:9226 7a PLY 00:9227 60 RTS ; ; ;----------------------------------------------------- 00:9228 da PHX 00:9229 5a PHY 00:922a a90000 LDA #0000 00:922d 8f30db7e STA >7edb30 00:9231 a940db LDA #db40 00:9234 8f32db7e STA >7edb32 00:9238 a980db LDA #db80 00:923b 8f34db7e STA >7edb34 00:923f a9c0db LDA #dbc0 00:9242 8f36db7e STA >7edb36 00:9246 a900dc LDA #dc00 00:9249 8f38db7e STA >7edb38 00:924d a00200 LDY #0002 00:9250 22b79000 JSL >0090b7 00:9254 7a PLY 00:9255 fa PLX 00:9256 6b RTL 00:9257 5a PHY 00:9258 a00200 LDY #0002 00:925b 22c79000 JSL >0090c7 00:925f 7a PLY 00:9260 6b RTL 00:9261 da PHX 00:9262 5a PHY 00:9263 a90000 LDA #0000 00:9266 8f40dc7e STA >7edc40 00:926a a950dc LDA #dc50 00:926d 8f42dc7e STA >7edc42 00:9271 a990dc LDA #dc90 00:9274 8f44dc7e STA >7edc44 00:9278 a00400 LDY #0004 00:927b 22b79000 JSL >0090b7 00:927f 7a PLY 00:9280 fa PLX 00:9281 6b RTL 00:9282 5a PHY 00:9283 a00400 LDY #0004 00:9286 5c5b9200 JMP >00925b 00:928a da PHX 00:928b 5a PHY 00:928c 229a9200 JSL >00929a 00:9290 a00600 LDY #0006 00:9293 22b79000 JSL >0090b7 00:9297 7a PLY 00:9298 fa PLX 00:9299 6b RTL 00:929a a90000 LDA #0000 00:929d 8f30db7e STA >7edb30 00:92a1 a940db LDA #db40 00:92a4 8f32db7e STA >7edb32 00:92a8 a980db LDA #db80 00:92ab 8f34db7e STA >7edb34 00:92af 6b RTL 00:92b0 5a PHY 00:92b1 a00600 LDY #0006 00:92b4 5c5b9200 JMP >00925b 00:92b8 da PHX 00:92b9 5a PHY 00:92ba 229a9200 JSL >00929a 00:92be a00c00 LDY #000c 00:92c1 22b79000 JSL >0090b7 00:92c5 7a PLY 00:92c6 fa PLX 00:92c7 6b RTL 00:92c8 5a PHY 00:92c9 a00c00 LDY #000c 00:92cc 5c5b9200 JMP >00925b 00:92d0 da PHX 00:92d1 5a PHY 00:92d2 229a9200 JSL >00929a 00:92d6 a00800 LDY #0008 00:92d9 22b79000 JSL >0090b7 00:92dd 7a PLY 00:92de fa PLX 00:92df 6b RTL ; ; ;----------------------------------------------------- 00:9fac a90000 LDA #0000 00:9faf 48 PHA 00:9fb0 e220 SEP #20 00:9fb2 a980 LDA #80 00:9fb4 8d1521 STA !2115 00:9fb7 c220 REP #20 00:9fb9 8e1621 STX !2116 00:9fbc 68 PLA 00:9fbd 8d1821 STA !2118 00:9fc0 88 DEY 00:9fc1 10fa BPL 9fbd 00:9fc3 6b RTL ; ; ;----------------------------------------------------- 00:9fc4 a90002 LDA #0200 00:9fc7 8003 BRA 9fcc 00:9fc9 a90000 LDA #0000 00:9fcc da PHX 00:9fcd 48 PHA 00:9fce 223b9000 JSL >00903b 00:9fd2 68 PLA 00:9fd3 fa PLX 00:9fd4 9b TXY 00:9fd5 22719000 JSL >009071 00:9fd9 88 DEY 00:9fda d0f9 BNE 9fd5 00:9fdc 5c7c9000 JMP >00907c 00:9fe0 a4dc LDY 009fc9 00:9fe9 a5dc LDA 009fc9 00:a002 a5dc LDA 009fc9 00:a01b a5dc LDA 00a07e 00:a035 e6dc INC 00a07e 00:a05e e6dc INC 00903e 00:a0ce fa PLX 00:a0cf 6402 STZ <02 00:a0d1 9b TXY 00:a0d2 b90000 LDA !0000,y 00:a0d5 c8 INY 00:a0d6 29ff00 AND #00ff 00:a0d9 c9fd00 CMP #00fd 00:a0dc b016 BCS a0f4 00:a0de a6f8 LDX 009071 00:a0f2 80de BRA a0d2 00:a0f4 f00c BEQ a102 00:a0f6 c9fe00 CMP #00fe 00:a0f9 f00f BEQ a10a 00:a0fb 64f8 STZ 00907c 00:a101 6b RTL ;----------------------------------------------------- 00:a102 b90000 LDA !0000,y 00:a105 c8 INY 00:a106 8505 STA <05 00:a108 80c8 BRA a0d2 00:a10a 227c9000 JSL >00907c 00:a10e bb TYX 00:a10f 809b BRA a0ac 00:a111 2233a100 JSL >00a133 00:a115 222ea100 JSL >00a12e 00:a119 9cc81c STZ !1cc8 00:a11c a90001 LDA #0100 00:a11f 0b PHD 00:a120 5b TCD 00:a121 2026a1 JSR !a126 00:a124 2b PLD 00:a125 6b RTL ;----------------------------------------------------- 00:a126 6422 STZ <22 00:a128 6428 STZ <28 00:a12a 642a STZ <2a 00:a12c 801b BRA a149 ;----------------------------------------------------- 00:a12e a90019 LDA #1900 00:a131 800f BRA a142 00:a133 6454 STZ <54 00:a135 6452 STZ <52 00:a137 6458 STZ <58 00:a139 9c2c1a STZ !1a2c 00:a13c 9c261a STZ !1a26 00:a13f a9001a LDA #1a00 00:a142 0b PHD 00:a143 5b TCD 00:a144 2049a1 JSR !a149 00:a147 2b PLD 00:a148 6b RTL ;----------------------------------------------------- 00:a149 6416 STZ <16 00:a14b 6412 STZ <12 00:a14d 6410 STZ <10 00:a14f 641c STZ <1c 00:a151 60 RTS ; ; ;----------------------------------------------------- 00:a152 5a PHY 00:a153 2b PLD 00:a154 2049a1 JSR !a149 00:a157 8503 STA <03 00:a159 e220 SEP #20 00:a15b a97e LDA #7e 00:a15d 8505 STA <05 00:a15f bf000003 LDA >030000,x 00:a163 851e STA <1e 00:a165 290f AND #0f 00:a167 8516 STA <16 00:a169 e8 INX 00:a16a 8618 STX <18 ; 00:a16c a516 LDA <16 00:a16e c220 REP #20 00:a170 60 RTS ; ; ;----------------------------------------------------- 00:a171 08 PHP 00:a172 0b PHD 00:a173 c230 REP #30 00:a175 a90001 LDA #0100 00:a178 5b TCD ; (D) <-- #0100H 00:a179 a522 LDA <22 00:a17b f005 BEQ a182 ; Character set ? 00:a17d 6422 STZ <22 ; yes 00:a17f 20fea3 JSR !a3fe 00:a182 826101 BRL a2e6 ; ; ;----------------------------------------------------- 00:a185 c230 REP #30 00:a187 ade018 LDA !18e0 00:a18a f03c BEQ a1c8 00:a18c aee218 LDX !18e2 00:a18f 3a DEC A 00:a190 d01c BNE a1ae 00:a192 eee018 INC !18e0 00:a195 0b PHD 00:a196 a00019 LDY #1900 00:a199 a90028 LDA #2800 00:a19c 2052a1 JSR !a152 00:a19f ca DEX 00:a1a0 8618 STX <18 00:a1a2 a9007e LDA #7e00 00:a1a5 8521 STA <21 00:a1a7 a900b0 LDA #b000 00:a1aa 8520 STA <20 00:a1ac 8009 BRA a1b7 00:a1ae 3a DEC A 00:a1af d018 BNE a1c9 00:a1b1 0b PHD 00:a1b2 a00019 LDY #1900 00:a1b5 5a PHY 00:a1b6 2b PLD 00:a1b7 2254a800 JSL >00a854 00:a1bb 2213a500 JSL >00a513 00:a1bf a510 LDA <10 00:a1c1 2b PLD 00:a1c2 a8 TAY 00:a1c3 d003 BNE a1c8 00:a1c5 eee018 INC !18e0 00:a1c8 6b RTL 00:a1c9 3a DEC A 00:a1ca d016 BNE a1e2 00:a1cc eee018 INC !18e0 00:a1cf bf030003 LDA >030003,x 00:a1d3 29ff7f AND #7fff 00:a1d6 a8 TAY 00:a1d7 ade418 LDA !18e4 00:a1da 22759d00 JSL >009d75 00:a1de b0e8 BCS a1c8 00:a1e0 8009 BRA a1eb 00:a1e2 3a DEC A 00:a1e3 d01e BNE a203 00:a1e5 22b39d00 JSL >009db3 00:a1e9 b0dd BCS a1c8 00:a1eb ade218 LDA !18e2 00:a1ee aa TAX 00:a1ef 18 CLC 00:a1f0 690500 ADC #0005 00:a1f3 8de218 STA !18e2 00:a1f6 bf030003 LDA >030003,x 00:a1fa 30c9 BMI a1c5 00:a1fc a90100 LDA #0001 00:a1ff 8de018 STA !18e0 00:a202 6b RTL 00:a203 3a DEC A 00:a204 d0fc BNE a202 00:a206 eee018 INC !18e0 00:a209 800f BRA a21a 00:a20b 8de418 STA !18e4 00:a20e 8ee218 STX !18e2 00:a211 22fca100 JSL >00a1fc 00:a215 827aff BRL a192 ; ; ;----------------------------------------------------- 00:a218 c230 REP #30 00:a21a bf000003 LDA >030000,x 00:a21e e8 INX 00:a21f 29ff00 AND #00ff 00:a222 f067 BEQ a28b 00:a224 c98000 CMP #0080 00:a227 f056 BEQ a27f 00:a229 3a DEC A 00:a22a d003 BNE a22f 00:a22c 4c51a4 JMP !a451 00:a22f 3a DEC A 00:a230 d003 BNE a235 00:a232 4c22a7 JMP !a722 00:a235 898000 BIT #0080 00:a238 f045 BEQ a27f 00:a23a 894000 BIT #0040 00:a23d f0cc BEQ a20b 00:a23f 8518 STA <18 00:a241 da PHX 00:a242 0b PHD 00:a243 a00019 LDY #1900 00:a246 a90028 LDA #2800 00:a249 2052a1 JSR !a152 00:a24c ca DEX 00:a24d 8618 STX <18 00:a24f a9007e LDA #7e00 00:a252 8521 STA <21 00:a254 a900b0 LDA #b000 00:a257 8520 STA <20 00:a259 2201a500 JSL >00a501 00:a25d 2049a1 JSR !a149 00:a260 a618 LDX <18 00:a262 bf000003 LDA >030000,x 00:a266 2b PLD 00:a267 851a STA <1a 00:a269 29ff7f AND #7fff 00:a26c a8 TAY 00:a26d a518 LDA <18 00:a26f 226b9d00 JSL >009d6b 00:a273 fa PLX 00:a274 e8 INX 00:a275 e8 INX 00:a276 e8 INX 00:a277 e8 INX 00:a278 e8 INX 00:a279 a51a LDA <1a 00:a27b 10c4 BPL a241 00:a27d 809b BRA a21a 00:a27f ade018 LDA !18e0 00:a282 c90600 CMP #0006 00:a285 d003 BNE a28a 00:a287 9ce018 STZ !18e0 00:a28a 6b RTL 00:a28b ade018 LDA !18e0 00:a28e d006 BNE a296 00:a290 a90600 LDA #0006 00:a293 8de018 STA !18e0 00:a296 08 PHP 00:a297 0b PHD 00:a298 ad1201 LDA !0112 00:a29b f013 BEQ a2b0 00:a29d 8a TXA 00:a29e ae2a01 LDX !012a 00:a2a1 e00c00 CPX #000c 00:a2a4 b040 BCS a2e6 00:a2a6 9d2c01 STA !012c,x 00:a2a9 e8 INX 00:a2aa e8 INX 00:a2ab 8e2a01 STX !012a 00:a2ae 8036 BRA a2e6 00:a2b0 9c2801 STZ !0128 00:a2b3 9c2a01 STZ !012a 00:a2b6 a00001 LDY #0100 00:a2b9 a90020 LDA #2000 00:a2bc 2052a1 JSR !a152 00:a2bf 290100 AND #0001 00:a2c2 d025 BNE a2e9 00:a2c4 223d8300 JSL >00833d 00:a2c8 a618 LDX <18 00:a2ca bf000003 LDA >030000,x 00:a2ce 4a LSR A 00:a2cf bf000003 LDA >030000,x 00:a2d3 b006 BCS a2db 00:a2d5 22d0a300 JSL >00a3d0 00:a2d9 80e9 BRA a2c4 00:a2db 224f8300 JSL >00834f 00:a2df 2049a1 JSR !a149 00:a2e2 227fa200 JSL >00a27f ;----------------------------------------------------- 00:a2e6 2b PLD 00:a2e7 28 PLP 00:a2e8 6b RTL 00:a2e9 e612 INC <12 00:a2eb 800d BRA a2fa 00:a2ed 08 PHP 00:a2ee 0b PHD 00:a2ef c230 REP #30 00:a2f1 a00001 LDY #0100 00:a2f4 5a PHY 00:a2f5 2b PLD 00:a2f6 a522 LDA <22 00:a2f8 d0ec BNE a2e6 00:a2fa a512 LDA <12 00:a2fc f0e8 BEQ a2e6 00:a2fe a90200 LDA #0002 00:a301 8524 STA <24 00:a303 a510 LDA <10 00:a305 d03c BNE a343 00:a307 a618 LDX <18 00:a309 bf000003 LDA >030000,x 00:a30d 4a LSR A 00:a30e bf000003 LDA >030000,x 00:a312 9027 BCC a33b 00:a314 241d BIT <1d 00:a316 5003 BVC a31b 00:a318 9cc81c STZ !1cc8 00:a31b a428 LDY <28 00:a31d c42a CPY <2a 00:a31f d006 BNE a327 00:a321 6428 STZ <28 00:a323 642a STZ <2a 00:a325 80b8 BRA a2df 00:a327 b62c LDX <2c,y 00:a329 bf000003 LDA >030000,x 00:a32d 851e STA <1e 00:a32f 290f00 AND #000f 00:a332 8516 STA <16 00:a334 e8 INX 00:a335 c8 INY 00:a336 c8 INY 00:a337 8428 STY <28 00:a339 80ce BRA a309 00:a33b 8520 STA <20 00:a33d e8 INX 00:a33e e8 INX 00:a33f 8618 STX <18 00:a341 641c STZ <1c 00:a343 6422 STZ <22 00:a345 a51d LDA <1d 00:a347 3008 BMI a351 00:a349 2243a800 JSL >00a843 00:a34d e622 INC <22 00:a34f 8095 BRA a2e6 00:a351 20e9a3 JSR !a3e9 00:a354 c624 DEC <24 00:a356 f0f5 BEQ a34d 00:a358 8b PHB 00:a359 a20020 LDX #2000 00:a35c a00024 LDY #2400 00:a35f a50c LDA <0c 00:a361 38 SEC 00:a362 e51a SBC <1a 00:a364 8526 STA <26 00:a366 3a DEC A 00:a367 547e7e MVN #7e,#7e 00:a36a ab PLB 00:a36b a516 LDA <16 00:a36d 4a LSR A 00:a36e 290300 AND #0003 00:a371 a8 TAY 00:a372 8b PHB 00:a373 e220 SEP #20 00:a375 a903 LDA #03 00:a377 48 PHA 00:a378 ab PLB 00:a379 c220 REP #20 00:a37b ae4800 LDX !0048 00:a37e b90080 LDA !8000,y 00:a381 9f00007e STA >7e0000,x 00:a385 b90480 LDA !8004,y 00:a388 9f02007e STA >7e0002,x 00:a38c b90880 LDA !8008,y 00:a38f 9f03007e STA >7e0003,x 00:a393 a520 LDA <20 00:a395 9f04007e STA >7e0004,x 00:a399 a90024 LDA #2400 00:a39c 9f06007e STA >7e0006,x 00:a3a0 a97e00 LDA #007e 00:a3a3 9f08007e STA >7e0008,x 00:a3a7 a526 LDA <26 00:a3a9 9f09007e STA >7e0009,x 00:a3ad 8a TXA 00:a3ae 18 CLC 00:a3af 690b00 ADC #000b 00:a3b2 8d4800 STA !0048 00:a3b5 a516 LDA <16 00:a3b7 29ff00 AND #00ff 00:a3ba aa TAX 00:a3bb a526 LDA <26 00:a3bd e00200 CPX #0002 00:a3c0 b001 BCS a3c3 00:a3c2 4a LSR A 00:a3c3 18 CLC 00:a3c4 6520 ADC <20 00:a3c6 8520 STA <20 00:a3c8 a50c LDA <0c 00:a3ca 851a STA <1a 00:a3cc ab PLB 00:a3cd 8233ff BRL a303 00:a3d0 6410 STZ <10 00:a3d2 a618 LDX <18 00:a3d4 bf000003 LDA >030000,x 00:a3d8 8520 STA <20 00:a3da e8 INX 00:a3db e8 INX 00:a3dc 8618 STX <18 00:a3de 20e9a3 JSR !a3e9 00:a3e1 20fea3 JSR !a3fe 00:a3e4 a610 LDX <10 00:a3e6 d0f6 BNE a3de 00:a3e8 6b RTL ; ; ;----------------------------------------------------- 00:a3e9 2237a800 JSL >00a837 00:a3ed a610 LDX <10 00:a3ef d00c BNE a3fd 00:a3f1 a51e LDA <1e 00:a3f3 1008 BPL a3fd 00:a3f5 a618 LDX <18 00:a3f7 bf000003 LDA >030000,x 00:a3fb 8518 STA <18 00:a3fd 60 RTS ; ; ;----------------------------------------------------- Character set 00:a3fe 08 PHP 00:a3ff e230 SEP #30 00:a401 a516 LDA <16 00:a403 4a LSR A 00:a404 2903 AND #03 00:a406 aa TAX 00:a407 bf008003 LDA >038000,x 00:a40b 8d1521 STA !2115 00:a40e bf048003 LDA >038004,x 00:a412 8d0043 STA !4300 00:a415 bf088003 LDA >038008,x 00:a419 8d0143 STA !4301 00:a41c c220 REP #20 00:a41e a520 LDA <20 00:a420 8d1621 STA !2116 00:a423 a50c LDA <0c 00:a425 38 SEC 00:a426 e51a SBC <1a 00:a428 f025 BEQ a44f 00:a42a 8d0543 STA !4305 00:a42d a616 LDX <16 00:a42f e002 CPX #02 00:a431 b001 BCS a434 00:a433 4a LSR A 00:a434 18 CLC 00:a435 6520 ADC <20 00:a437 8520 STA <20 00:a439 a503 LDA <03 00:a43b 18 CLC 00:a43c 651a ADC <1a 00:a43e 8d0243 STA !4302 00:a441 a605 LDX <05 00:a443 8e0443 STX !4304 00:a446 640c STZ <0c 00:a448 641a STZ <1a 00:a44a a201 LDX #01 00:a44c 8e0b42 STX !420b ; DMA on !! 00:a44f 28 PLP 00:a450 60 RTS ; ; ;----------------------------------------------------- 00:a451 08 PHP 00:a452 0b PHD 00:a453 a000 LDY #00 00:a455 19a900 ORA !00a9,y 00:a458 28 PLP 00:a459 2052a1 JSR !a152 00:a45c 290100 AND #0001 00:a45f d042 BNE a4a3 00:a461 a51d LDA <1d 00:a463 3010 BMI a475 00:a465 a618 LDX <18 00:a467 bf000003 LDA >030000,x 00:a46b 4a LSR A 00:a46c 4a LSR A 00:a46d b031 BCS a4a0 00:a46f 22eca400 JSL >00a4ec 00:a473 80f0 BRA a465 00:a475 6426 STZ <26 00:a477 a618 LDX <18 00:a479 bf000003 LDA >030000,x 00:a47d c9ffff CMP #ffff 00:a480 f01e BEQ a4a0 00:a482 a626 LDX <26 00:a484 e015 CPX #15 00:a486 00b0 BRK b0 00:a488 17bf ORA [03800c,x 00:a493 8520 STA <20 00:a495 e8 INX 00:a496 e8 INX 00:a497 e8 INX 00:a498 8626 STX <26 00:a49a 2201a500 JSL >00a501 00:a49e 80d7 BRA a477 00:a4a0 4cdfa2 JMP !a2df 00:a4a3 e612 INC <12 00:a4a5 800b BRA a4b2 ; ; ;----------------------------------------------------- 00:a4a7 22eda200 JSL >00a2ed 00:a4ab 08 PHP 00:a4ac 0b PHD 00:a4ad a00019 LDY #1900 00:a4b0 5a PHY 00:a4b1 2b PLD ; (D) <-- #1900H 00:a4b2 a512 LDA <12 00:a4b4 d003 BNE a4b9 00:a4b6 4ce6a2 JMP !a2e6 00:a4b9 a510 LDA <10 00:a4bb d024 BNE a4e1 00:a4bd a618 LDX <18 00:a4bf bf000003 LDA >030000,x 00:a4c3 4a LSR A 00:a4c4 4a LSR A 00:a4c5 bf000003 LDA >030000,x 00:a4c9 9003 BCC a4ce 00:a4cb 4cdfa2 JMP !a2df 00:a4ce 8520 STA <20 00:a4d0 e8 INX 00:a4d1 e8 INX 00:a4d2 e220 SEP #20 00:a4d4 bf000003 LDA >030000,x 00:a4d8 8522 STA <22 00:a4da e8 INX 00:a4db 8618 STX <18 00:a4dd c220 REP #20 00:a4df 641c STZ <1c 00:a4e1 2254a800 JSL >00a854 00:a4e5 2213a500 JSL >00a513 00:a4e9 82fafd BRL a2e6 00:a4ec a618 LDX <18 00:a4ee bf000003 LDA >030000,x 00:a4f2 8520 STA <20 00:a4f4 e8 INX 00:a4f5 e8 INX 00:a4f6 e220 SEP #20 00:a4f8 bf000003 LDA >030000,x 00:a4fc 8522 STA <22 00:a4fe e8 INX 00:a4ff 8618 STX <18 ;----------------------------------------------------- 00:a501 c220 REP #20 00:a503 204da1 JSR !a14d 00:a506 2237a800 JSL >00a837 00:a50a 2213a500 JSL >00a513 00:a50e a610 LDX <10 00:a510 d0f4 BNE a506 00:a512 6b RTL ;----------------------------------------------------- 00:a513 a41a LDY <1a 00:a515 c40c CPY <0c 00:a517 f01a BEQ a533 00:a519 e220 SEP #20 00:a51b a51f LDA <1f 00:a51d 3015 BMI a534 00:a51f b703 LDA [<03],y 00:a521 8720 STA [<20] 00:a523 a620 LDX <20 00:a525 e8 INX 00:a526 8620 STX <20 00:a528 c8 INY 00:a529 c40c CPY <0c 00:a52b d0f2 BNE a51f 00:a52d c220 REP #20 00:a52f a50c LDA <0c 00:a531 851a STA <1a 00:a533 6b RTL ;----------------------------------------------------- 00:a534 b703 LDA [<03],y 00:a536 8720 STA [<20] 00:a538 a620 LDX <20 00:a53a e8 INX 00:a53b e8 INX 00:a53c 8620 STX <20 00:a53e c8 INY 00:a53f c40c CPY <0c 00:a541 d0f1 BNE a534 00:a543 80e8 BRA a52d 00:a545 6b RTL ;----------------------------------------------------- 00:a546 090040 ORA #4000 00:a549 090080 ORA #8000 00:a54c 8558 STA <58 00:a54e a454 LDY <54 00:a550 f011 BEQ a563 00:a552 ac231a LDY !1a23 00:a555 100c BPL a563 00:a557 a452 LDY <52 00:a559 3008 BMI a563 00:a55b 48 PHA 00:a55c 98 TYA 00:a55d 090080 ORA #8000 00:a560 8552 STA <52 00:a562 68 PLA 00:a563 29ff3f AND #3fff 00:a566 0a ASL A 00:a567 0a ASL A 00:a568 0a ASL A 00:a569 69879f ADC #9f87 00:a56c aa TAX 00:a56d bf060003 LDA >030006,x 00:a571 29ff00 AND #00ff 00:a574 a8 TAY 00:a575 22aea500 JSL >00a5ae 00:a579 2458 BIT <58 00:a57b 70c8 BVS a545 00:a57d 98 TYA 00:a57e f0c5 BEQ a545 00:a580 4ceb83 JMP !83eb 00:a583 da PHX 00:a584 85f0 STA 00a59a 00:a592 fa PLX 00:a593 6b RTL 00:a594 a5f0 LDA 030001,x 00:a5bb a20030 LDX #3000 00:a5be 0a ASL A 00:a5bf 100b BPL a5cc 00:a5c1 98 TYA 00:a5c2 a200ee LDX #ee00 00:a5c5 900f BCC a5d6 00:a5c7 ee301a INC !1a30 ; Sound BOOT FLAG ON !! 00:a5ca 800a BRA a5d6 00:a5cc a98000 LDA #0080 00:a5cf 9003 BCC a5d4 00:a5d1 a9a000 LDA #00a0 00:a5d4 64f6 STZ 030001,x 00:a5f8 0a ASL A 00:a5f9 08 PHP 00:a5fa 100c BPL a608 00:a5fc 221da600 JSL >00a61d 00:a600 a618 LDX <18 ; 1A18H 00:a602 e8 INX 00:a603 e8 INX 00:a604 e8 INX 00:a605 a000fe LDY #fe00 00:a608 221da600 JSL >00a61d 00:a60c 28 PLP 00:a60d 100d BPL a61c 00:a60f 2426 BIT <26 ; 1A26H 00:a611 5009 BVC a61c 00:a613 ad5800 LDA !0058 00:a616 29ff3f AND #3fff 00:a619 8d5800 STA !0058 00:a61c 6b RTL ;----------------------------------------------------- 00:a61d 2426 BIT <26 ; 1A26H 00:a61f 50fb BVC a61c 00:a621 8422 STY <22 ; 1A22H 00:a623 8618 STX <18 ; 1A18H 00:a625 bf000003 LDA >030000,x 00:a629 f0f1 BEQ a61c 00:a62b a9ffff LDA #ffff 00:a62e 8526 STA <26 ; 1A26H 00:a630 8512 STA <12 ; 1A21H 00:a632 6420 STZ <20 ; 1A20H 00:a634 642c STZ <2c ; 1A2CH 00:a636 204da1 JSR !a14d ; 1A10H,1A1CH <-- 0 00:a639 a9007e LDA #7e00 00:a63c 8504 STA <04 ; 1A04H 00:a63e a9002c LDA #2c00 00:a641 8503 STA <03 ; 1A03H 00:a643 e230 SEP #30 ; 00:a645 a9bb LDA #bb 00:a647 2015a7 JSR !a715 00:a64a a9aa LDA #aa 00:a64c 2015a7 JSR !a715 ; sound irekae init. ; 00:a64f a9a0 LDA #a0 00:a651 a424 LDY <24 ; 1A24H 00:a653 c080 CPY #80 00:a655 9002 BCC a659 00:a657 a9a5 LDA #a5 00:a659 2015a7 JSR !a715 ; (A) <-- #a0 : voice ; ; #a5 : B.G.M. ; 00:a65c a422 LDY <22 ; 1A22H 00:a65e a980 LDA #80 00:a660 2012a7 JSR !a712 00:a663 a423 LDY <23 ; 1A23H 00:a665 a981 LDA #81 00:a667 2012a7 JSR !a712 ; data set address set ; 00:a66a a530 LDA <30 ; 1A30H 00:a66c f009 BEQ a677 00:a66e 20cda6 JSR !a6cd ; Voice data store 00:a671 2426 BIT <26 ; 1A26H 00:a673 5023 BVC a698 00:a675 8013 BRA a68a 00:a677 c230 REP #30 00:a679 2237a800 JSL >00a837 ; B.G.M. data RAM set 00:a67d e230 SEP #30 00:a67f 20a0a6 JSR !a6a0 ; B.G.M. store 00:a682 2426 BIT <26 00:a684 5012 BVC a698 00:a686 a610 LDX <10 00:a688 d0ed BNE a677 00:a68a a9bb LDA #bb 00:a68c 2015a7 JSR !a715 00:a68f a524 LDA <24 00:a691 852e STA <2e 00:a693 642f STZ <2f 00:a695 c230 REP #30 00:a697 6b RTL 00:a698 a9bb LDA #bb 00:a69a 2015a7 JSR !a715 00:a69d c230 REP #30 00:a69f 6b RTL ; ;----------------------------------------------------- ;----------------------------------------------------- 039F7EH --> 1FA4B9H : initial ; 039F1EH --> 1B84D9H : title start music ; 039F18H --> 1B8000H : demo music ; 039F1BH --> 1B86C7H : select music ; 039F81H --> 1FA56EH : start push music ; 039F1BH --> 1B86C7H : select music ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F2DH --> 1B95F9H : stage-1 039F30H --> 1BA75AH : boss-10 039F33H --> 1BABD0H : -11 ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F36H --> 1B9D3DH : stage-2 039F39H --> 1BAEBEH : boss-20 039F3CH --> 1BB0A1H : -21 ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F3FH --> 1BA29EH : stage-3 039F42H --> 1BB258H : boss-30 ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F4BH --> 1BBCADH : stage-4 039F57H --> 1ED909H : boss-40 ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F69H --> 1BDD6BH : stage-5 : 400H,131H 039F33H --> 1BABD0H : boss-50 : 400H,111H ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F6FH --> 1BE198H : stage-6 : 400H,342H 039F51H --> 1BC98AH : boss-60 : 400H,221H ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F75H --> 1CFAC0H : stage-7 : 400H,400H,102H 039F33H --> 1BABD0H : boss-70 : 400H,111H ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F66H --> 1BD8F2H : stage-8 : 400H,400H,102H 039F33H --> 1BABD0H : boss-80 : 400H,111H ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F45H --> 1BB545H : stage-9 : 400H,3E1H 039F30H --> 1BA75AH : boss-90 : 400H,391H 039F54H --> 1BCC55H : boss-91 : 400H,400H,0C1H ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F78H --> 1CF007H : stage-10 : 400H,400H,3F1H 039F7BH --> 1ED788H : boss-00 : 2F1H ; 039F27H --> 1B8EF8H : Game start music : 400H,2F2H 039F48H --> 1BBA0CH : stage-11 : 400H,0C2H 039F5AH --> 1BD0EFH : BOSS : 241H ; 039F84H --> 1EDB0AH : ending-1 : 211H 03845EH --> 0A8F8FH : ending-2 : 400H,272H ; ; ; 039F6CH --> 1BE079H : Game over : 231H 039F60H --> 1BD37EH : Continue : 261H ; ; ; ;----------------------------------------------------- 00:a6a0 c210 REP #10 00:a6a2 a41a LDY <1a 00:a6a4 c40c CPY <0c 00:a6a6 f01e BEQ a6c6 00:a6a8 a620 LDX <20 00:a6aa b703 LDA [<03],y 00:a6ac 8d4221 STA !2142 ; SOUND 00:a6af 8a TXA 00:a6b0 297f AND #7f 00:a6b2 8d4321 STA !2143 ; SOUND 00:a6b5 2426 BIT <26 00:a6b7 500b BVC a6c4 00:a6b9 cd4321 CMP !2143 00:a6bc d0f7 BNE a6b5 00:a6be e8 INX 00:a6bf c8 INY 00:a6c0 c40c CPY <0c 00:a6c2 d0e6 BNE a6aa 00:a6c4 8620 STX <20 00:a6c6 a40c LDY <0c 00:a6c8 841a STY <1a 00:a6ca e210 SEP #10 00:a6cc 60 RTS ; ; ;----------------------------------------------------- VOICE DATA 039F8AH --> 1FA339H (00180H) : initial ; 039F8FH --> 1C8002H (01000H) : speed up ; 039F97H --> 1BE5D7H (01000H) : missile 039F9FH --> 1C9002H (01000H) : 2-way 039FA7H --> 1CA004H (01000H) : rocket 039FAFH --> 1CE008H (01000H) : poton ; 039FB7H --> 1A8002H (01000H) : double 039FBFH --> 1A9003H (01000H) : tailgun ; 039FC7H --> 1AA004H (01000H) : laser 039FCFH --> 1AB005H (01000H) : ripple 039FD7H --> 1AE008H (01000H) : 3-way 039FDFH --> 1FD77AH (01000H) : spread ; 03A007H --> 1FE77BH (01000H) : option ; 039FE7H --> 1CC006H (01000H) : shield 039FEFH --> 1CD007H (01000H) : d-trap 039FF7H --> 1AC006H (01000H) : f-field 039FFFH --> 1AD007H (01000H) : bubble ; 03A017H --> 1FB778H (01000H) : Gal(koshifuri)-voice 03A00FH --> 1FA777H (01000H) : Gal(susukino0)-voice 03A01FH --> 1FC779H (01000H) : (susukino1) 03A027H --> 1CB005H (01000H) : last boss ;----------------------------------------------------- 00:a6cd c230 REP #30 00:a6cf a618 LDX <18 00:a6d1 bf000003 LDA >030000,x 00:a6d5 8500 STA <00 ; data L-address set 00:a6d7 bf010003 LDA >030001,x 00:a6db 29ff1f AND #1fff 00:a6de 8501 STA <01 ; data H-address set 00:a6e0 e220 SEP #20 00:a6e2 8b PHB 00:a6e3 eb XBA 00:a6e4 48 PHA 00:a6e5 ab PLB ; data BANK set 00:a6e6 c220 REP #20 00:a6e8 b200 LDA (<00) 00:a6ea aa TAX 00:a6eb ca DEX 00:a6ec ca DEX 00:a6ed e600 INC <00 00:a6ef e600 INC <00 00:a6f1 a00000 LDY #0000 00:a6f4 e220 SEP #20 00:a6f6 b100 LDA (<00),y 00:a6f8 8d4221 STA !2142 ; SOUND 00:a6fb 98 TYA 00:a6fc 297f AND #7f 00:a6fe 8d4321 STA !2143 ; SOUND 00:a701 2426 BIT <26 00:a703 5009 BVC a70e 00:a705 cd4321 CMP !2143 ; SOUND 00:a708 d0f7 BNE a701 00:a70a c8 INY 00:a70b ca DEX 00:a70c d0e8 BNE a6f6 00:a70e e230 SEP #30 00:a710 ab PLB 00:a711 60 RTS ; ; ;----------------------------------------------------- 00:a712 8c4221 STY !2142 ; SOUND ;----------------------------------------------------- 00:a715 8d4321 STA !2143 ; SOUND 00:a718 2426 BIT <26 00:a71a 5005 BVC a721 00:a71c cd4321 CMP !2143 ; SOUND 00:a71f d0f7 BNE a718 00:a721 60 RTS ; ; ;----------------------------------------------------- 00:a722 08 PHP 00:a723 0b PHD 00:a724 a0001a LDY #1a00 00:a727 a9002c LDA #2c00 00:a72a 2052a1 JSR !a152 00:a72d 20b7a7 JSR !a7b7 00:a730 c220 REP #20 00:a732 a618 LDX <18 00:a734 bf000003 LDA >030000,x 00:a738 4a LSR A 00:a739 b012 BCS a74d 00:a73b bf030003 LDA >030003,x 00:a73f 1006 BPL a747 00:a741 2275a700 JSL >00a775 00:a745 80e9 BRA a730 00:a747 2254a700 JSL >00a754 00:a74b 80e3 BRA a730 00:a74d 2220a800 JSL >00a820 00:a751 4cdfa2 JMP !a2df 00:a754 c220 REP #20 00:a756 204da1 JSR !a14d 00:a759 a618 LDX <18 00:a75b bf000003 LDA >030000,x 00:a75f 8522 STA <22 00:a761 e8 INX 00:a762 e8 INX 00:a763 8618 STX <18 00:a765 20dca7 JSR !a7dc 00:a768 2237a800 JSL >00a837 00:a76c 2200a800 JSL >00a800 00:a770 a610 LDX <10 00:a772 d0f4 BNE a768 00:a774 6b RTL 00:a775 c220 REP #20 00:a777 204da1 JSR !a14d 00:a77a a618 LDX <18 00:a77c bf000003 LDA >030000,x 00:a780 8522 STA <22 00:a782 bf020003 LDA >030002,x 00:a786 8500 STA <00 00:a788 e220 SEP #20 00:a78a bf040003 LDA >030004,x 00:a78e 293f AND #3f 00:a790 8502 STA <02 00:a792 c220 REP #20 00:a794 8a TXA 00:a795 18 CLC 00:a796 690500 ADC #0005 00:a799 8518 STA <18 00:a79b a700 LDA [<00] 00:a79d 8506 STA <06 00:a79f 20dca7 JSR !a7dc 00:a7a2 a00200 LDY #0002 00:a7a5 e220 SEP #20 00:a7a7 b700 LDA [<00],y 00:a7a9 8d4121 STA !2141 00:a7ac 20f5a7 JSR !a7f5 00:a7af e620 INC <20 00:a7b1 c8 INY 00:a7b2 c406 CPY <06 00:a7b4 d0f1 BNE a7a7 00:a7b6 6b RTL ;----------------------------------------------------- 00:a7b7 c220 REP #20 00:a7b9 a9aabb LDA #bbaa 00:a7bc 6420 STZ <20 00:a7be cd4021 CMP !2140 00:a7c1 d0fb BNE a7be 00:a7c3 e220 SEP #20 00:a7c5 a901 LDA #01 00:a7c7 8d4121 STA !2141 00:a7ca a9cc LDA #cc 00:a7cc 20f7a7 JSR !a7f7 00:a7cf a900 LDA #00 00:a7d1 20f7a7 JSR !a7f7 00:a7d4 c220 REP #20 00:a7d6 a90100 LDA #0001 00:a7d9 8520 STA <20 00:a7db 60 RTS 00:a7dc c230 REP #30 00:a7de a522 LDA <22 00:a7e0 8d4221 STA !2142 00:a7e3 e220 SEP #20 00:a7e5 a901 LDA #01 00:a7e7 8d4121 STA !2141 00:a7ea a520 LDA <20 00:a7ec 1a INC A 00:a7ed 20f7a7 JSR !a7f7 00:a7f0 6420 STZ <20 00:a7f2 c220 REP #20 00:a7f4 60 RTS ;----------------------------------------------------- 00:a7f5 a520 LDA <20 ;----------------------------------------------------- 00:a7f7 8d4021 STA !2140 00:a7fa cd4021 CMP !2140 00:a7fd d0fb BNE a7fa 00:a7ff 60 RTS ; ; ;----------------------------------------------------- ;----------------------------------------------------- 00:a837 a90004 LDA #0400 00:a83a 851c STA <1c 00:a83c 641a STZ <1a 00:a83e a20000 LDX #0000 00:a841 8022 BRA a865 00:a843 ad7000 LDA !0070 00:a846 c90700 CMP #0007 00:a849 b004 BCS a84f 00:a84b 20e9a3 JSR !a3e9 00:a84e 6b RTL ;----------------------------------------------------- 00:a84f a08000 LDY #0080 00:a852 8003 BRA a857 ;----------------------------------------------------- 00:a854 a08000 LDY #0080 00:a857 a51c LDA <1c 00:a859 29ff03 AND #03ff 00:a85c 851a STA <1a 00:a85e aa TAX 00:a85f 98 TYA 00:a860 18 CLC 00:a861 651a ADC <1a 00:a863 851c STA <1c 00:a865 e220 SEP #20 00:a867 8b PHB 00:a868 a97e LDA #7e 00:a86a 48 PHA 00:a86b ab PLB 00:a86c a510 LDA <10 00:a86e d03b BNE a8ab 00:a870 c220 REP #20 00:a872 a0fe03 LDY #03fe 00:a875 a90000 LDA #0000 00:a878 9703 STA [<03],y 00:a87a 88 DEY 00:a87b 88 DEY 00:a87c 10fa BPL a878 00:a87e e610 INC <10 00:a880 a618 LDX <18 00:a882 bf000003 LDA >030000,x 00:a886 8500 STA <00 00:a888 e8 INX 00:a889 e8 INX 00:a88a e220 SEP #20 00:a88c bf000003 LDA >030000,x 00:a890 851f STA <1f 00:a892 293f AND #3f 00:a894 8502 STA <02 00:a896 e8 INX 00:a897 8618 STX <18 00:a899 6414 STZ <14 00:a89b c220 REP #20 00:a89d a700 LDA [<00] 00:a89f 8508 STA <08 00:a8a1 a90200 LDA #0002 00:a8a4 8506 STA <06 00:a8a6 a20000 LDX #0000 00:a8a9 e220 SEP #20 00:a8ab a514 LDA <14 00:a8ad f01b BEQ a8ca 00:a8af 3a DEC A 00:a8b0 d003 BNE a8b5 00:a8b2 4cb4a9 JMP !a9b4 00:a8b5 3a DEC A 00:a8b6 d003 BNE a8bb 00:a8b8 4c3ba9 JMP !a93b 00:a8bb 3a DEC A 00:a8bc f05c BEQ a91a 00:a8be 3a DEC A 00:a8bf d003 BNE a8c4 00:a8c1 4c55a9 JMP !a955 00:a8c4 3a DEC A 00:a8c5 d003 BNE a8ca 00:a8c7 4c63a9 JMP !a963 00:a8ca a406 LDY <06 00:a8cc c408 CPY <08 00:a8ce 9003 BCC a8d3 00:a8d0 4c86a9 JMP !a986 00:a8d3 b700 LDA [<00],y 00:a8d5 c8 INY 00:a8d6 8406 STY <06 00:a8d8 c980 CMP #80 00:a8da b003 BCS a8df 00:a8dc 4c93a9 JMP !a993 00:a8df c9a0 CMP #a0 00:a8e1 9050 BCC a933 00:a8e3 c9e0 CMP #e0 00:a8e5 b00c BCS a8f3 00:a8e7 c9c0 CMP #c0 00:a8e9 9065 BCC a950 00:a8eb 48 PHA 00:a8ec b700 LDA [<00],y 00:a8ee c8 INY 00:a8ef 8406 STY <06 00:a8f1 8014 BRA a907 00:a8f3 c9ff CMP #ff 00:a8f5 d00d BNE a904 00:a8f7 640a STZ <0a 00:a8f9 a903 LDA #03 00:a8fb 8514 STA <14 00:a8fd b700 LDA [<00],y 00:a8ff c8 INY 00:a900 8406 STY <06 00:a902 800c BRA a910 00:a904 48 PHA 00:a905 a900 LDA #00 00:a907 850a STA <0a 00:a909 a903 LDA #03 00:a90b 8514 STA <14 00:a90d 68 PLA 00:a90e 291f AND #1f 00:a910 c220 REP #20 00:a912 29ff00 AND #00ff 00:a915 1a INC A 00:a916 850e STA <0e 00:a918 e220 SEP #20 00:a91a a50a LDA <0a 00:a91c 9b TXY 00:a91d a60e LDX <0e 00:a91f 9103 STA (<03),y 00:a921 c8 INY 00:a922 c41c CPY <1c 00:a924 ca DEX 00:a925 860e STX <0e 00:a927 3005 BMI a92e 00:a929 90f4 BCC a91f 00:a92b bb TYX 00:a92c 805a BRA a988 00:a92e bb TYX 00:a92f b04d BCS a97e 00:a931 805b BRA a98e 00:a933 291f AND #1f 00:a935 850e STA <0e 00:a937 a902 LDA #02 00:a939 8514 STA <14 00:a93b a406 LDY <06 00:a93d b700 LDA [<00],y 00:a93f c8 INY 00:a940 8406 STY <06 00:a942 9b TXY 00:a943 9103 STA (<03),y 00:a945 e8 INX 00:a946 e41c CPX <1c 00:a948 c60e DEC <0e 00:a94a f030 BEQ a97c 00:a94c 90ed BCC a93b 00:a94e 8038 BRA a988 00:a950 291f AND #1f 00:a952 1a INC A 00:a953 850e STA <0e 00:a955 a905 LDA #05 00:a957 8514 STA <14 00:a959 a900 LDA #00 00:a95b 9b TXY 00:a95c 9103 STA (<03),y 00:a95e e8 INX 00:a95f e41c CPX <1c 00:a961 b025 BCS a988 00:a963 a904 LDA #04 00:a965 8514 STA <14 00:a967 a406 LDY <06 00:a969 b700 LDA [<00],y 00:a96b c8 INY 00:a96c 8406 STY <06 00:a96e 9b TXY 00:a96f 9103 STA (<03),y 00:a971 e8 INX 00:a972 e41c CPX <1c 00:a974 c60e DEC <0e 00:a976 3004 BMI a97c 00:a978 90db BCC a955 00:a97a 800c BRA a988 00:a97c 9010 BCC a98e 00:a97e 6414 STZ <14 00:a980 a406 LDY <06 00:a982 c408 CPY <08 00:a984 9002 BCC a988 00:a986 6410 STZ <10 00:a988 860c STX <0c 00:a98a ab PLB 00:a98b c220 REP #20 00:a98d 6b RTL ;----------------------------------------------------- 00:a98e 6414 STZ <14 00:a990 8237ff BRL a8ca 00:a993 850b STA <0b 00:a995 4a LSR A 00:a996 4a LSR A 00:a997 1a INC A 00:a998 850e STA <0e 00:a99a b700 LDA [<00],y 00:a99c c8 INY 00:a99d 8406 STY <06 00:a99f 850a STA <0a 00:a9a1 c220 REP #20 00:a9a3 a50a LDA <0a 00:a9a5 38 SEC 00:a9a6 e9df03 SBC #03df 00:a9a9 29ff03 AND #03ff 00:a9ac 850a STA <0a 00:a9ae e220 SEP #20 00:a9b0 a901 LDA #01 00:a9b2 8514 STA <14 00:a9b4 a40a LDY <0a 00:a9b6 b103 LDA (<03),y 00:a9b8 c8 INY 00:a9b9 c00004 CPY #0400 00:a9bc 9003 BCC a9c1 00:a9be a00000 LDY #0000 00:a9c1 840a STY <0a 00:a9c3 9b TXY 00:a9c4 9103 STA (<03),y 00:a9c6 e8 INX 00:a9c7 e41c CPX <1c 00:a9c9 c60e DEC <0e 00:a9cb 30af BMI a97c 00:a9cd 90e5 BCC a9b4 00:a9cf 80b7 BRA a988 00:a9d1 a540 LDA <40 00:a9d3 0900 ORA #00 00:a9d5 8085 BRA a95c 00:a9d7 40 RTI 00:a9d8 6b RTL 00:a9d9 a900 LDA #00 00:a9db 0095 BRK 95 00:a9dd 0474 TSB <74 00:a9df 0074 BRK 74 00:a9e1 0274 COP 74 00:a9e3 0674 ASL <74 00:a9e5 08 PHP 00:a9e6 740a STZ <0a,x 00:a9e8 740c STZ <0c,x 00:a9ea 740e STZ <0e,x 00:a9ec 6b RTL 00:a9ed a2c019 LDX #19c0 00:a9f0 22dca900 JSL >00a9dc 00:a9f4 8007 BRA a9fd 00:a9f6 a2c019 LDX #19c0 00:a9f9 22d9a900 JSL >00a9d9 00:a9fd a901 LDA #01 00:a9ff 00c0 BRK c0 00:aa01 c8 INY 00:aa02 9190 STA (<90),y 00:aa04 241a BIT <1a 00:aa06 c0c094 CPY #94c0 00:aa09 901e BCC aa29 00:aa0b 1a INC A 00:aa0c 0980 ORA #80 00:aa0e 00c0 BRK c0 00:aa10 0195 ORA (<95,x) 00:aa12 9015 BCC aa29 00:aa14 297f AND #7f 00:aa16 001a BRK 1a 00:aa18 c02795 CPY #9527 00:aa1b 900c BCC aa29 00:aa1d 0980 ORA #80 00:aa1f 00c0 BRK c0 00:aa21 4f959004 EOR >049095 00:aa25 297f AND #7f 00:aa27 001a BRK 1a 00:aa29 8980 BIT #80 00:aa2b 00f0 BRK f0 00:aa2d 0309 ORA <09,s 00:aa2f 0080 BRK 80 00:aa31 9500 STA <00,x 00:aa33 9402 STY <02,x 00:aa35 6b RTL 00:aa36 a2c019 LDX #19c0 00:aa39 86fc STX 00aa6e,x 00:aa68 fa PLX 00:aa69 8500 STA <00 00:aa6b 6c0000 JMP (!0000) 00:aa6e 78 SEI 00:aa6f aa TAX 00:aa70 81aa STA (00a9d9 00:aa81 b502 LDA <02,x 00:aa83 8500 STA <00 00:aa85 b506 LDA <06,x 00:aa87 a8 TAY 00:aa88 1a INC A 00:aa89 1a INC A 00:aa8a 9506 STA <06,x 00:aa8c b100 LDA (<00),y 00:aa8e f005 BEQ aa95 00:aa90 204fac JSR !ac4f 00:aa93 80ec BRA aa81 00:aa95 4cd9a9 JMP !a9d9 00:aa98 b508 LDA <08,x 00:aa9a f003 BEQ aa9f 00:aa9c d608 DEC <08,x 00:aa9e 6b RTL 00:aa9f f604 INC <04,x 00:aaa1 b504 LDA <04,x 00:aaa3 c920 CMP #20 00:aaa5 0090 BRK 90 00:aaa7 034c ORA <4c,s 00:aaa9 d9a9b4 CMP !b4a9,y 00:aaac 02b9 COP b9 00:aaae 0000 BRK 00 00:aab0 8980 BIT #80 00:aab2 00f0 BRK f0 00:aab4 0320 ORA <20,s 00:aab6 da PHX 00:aab7 aa TAX 00:aab8 b90000 LDA !0000,y 00:aabb 297f AND #7f 00:aabd 0095 BRK 95 00:aabf 08 PHP 00:aac0 b90300 LDA !0003,y 00:aac3 8500 STA <00 00:aac5 be0100 LDX !0001,y 00:aac8 bf00007e LDA >7e0000,x 00:aacc 20e5aa JSR !aae5 00:aacf 9f00007e STA >7e0000,x 00:aad3 e8 INX 00:aad4 e8 INX 00:aad5 e400 CPX <00 00:aad7 90ef BCC aac8 00:aad9 6b RTL 00:aada ad801a LDA !1a80 00:aadd 20e5aa JSR !aae5 00:aae0 22c38c00 JSL >008cc3 00:aae4 60 RTS 00:aae5 38 SEC 00:aae6 891f BIT #1f 00:aae8 00f0 BRK f0 00:aaea 013a ORA (<3a,x) 00:aaec 89e0 BIT #e0 00:aaee 03f0 ORA 00b11a ; Pause check 00:acbb a570 LDA <70 00:acbd a46a LDY <6a 00:acbf f009 BEQ acca ; pause on ? 00:acc1 22448404 JSL >048444 ; yes 00:acc5 2269b400 JSL >00b469 ; pause off timer check 00:acc9 6b RTL ;----------------------------------------------------- 00:acca e678 INC <78 00:accc c90700 CMP #0007 00:accf d003 BNE acd4 00:acd1 4c71ae JMP !ae71 00:acd4 da PHX 00:acd5 0a ASL A 00:acd6 aa TAX 00:acd7 bfe1ac00 LDA >00ace1,x 00:acdb fa PLX 00:acdc 8500 STA <00 00:acde 6c0000 JMP (!0000) ; 00:ace1 fb ac : 0 : 2c ad : 1 : player select 38 ad : 2 : power-up select 44 ad : 3 : 53 ad : 4 : 97 ad : 5 : aa ad : 6 : 71 ae : 7 : Game 97 ae : 8 : 2a b0 : 9 : 82 b0 : A : 87 b0 : B : dc b0 : C : ; ; ;----------------------------------------------------- 00:acfb 6494 STZ <94 00:acfd 22368c00 JSL >008c36 00:ad01 22c08c00 JSL >008cc0 00:ad05 a90900 LDA #0009 00:ad08 8d441a STA !1a44 00:ad0b 22e69e00 JSL >009ee6 00:ad0f 9ca01a STZ !1aa0 00:ad12 9cc01a STZ !1ac0 00:ad15 9ce01a STZ !1ae0 00:ad18 9cb01a STZ !1ab0 00:ad1b 9cd01a STZ !1ad0 00:ad1e 9cf01a STZ !1af0 00:ad21 9c601b STZ !1b60 00:ad24 a90200 LDA #0002 00:ad27 853e STA <3e 00:ad29 4c07b1 JMP !b107 ;----------------------------------------------------- Player select 00:ad2c 22ebfa03 JSL >03faeb 00:ad30 a574 LDA <74 00:ad32 f003 BEQ ad37 00:ad34 82d003 BRL b107 00:ad37 6b RTL ;----------------------------------------------------- Power-up select 00:ad38 2201fc03 JSL >03fc01 00:ad3c a574 LDA <74 00:ad3e f003 BEQ ad43 00:ad40 82c403 BRL b107 00:ad43 6b RTL ;----------------------------------------------------- 00:ad44 a47c LDY <7c 00:ad46 b9d01f LDA !1fd0,y 00:ad49 85aa STA 00878f 00:ad4f 82b503 BRL b107 00:ad52 6b RTL ;----------------------------------------------------- 00:ad53 22648c00 JSL >008c64 00:ad57 22038900 JSL >008903 00:ad5b 2289b100 JSL >00b189 00:ad5f 228db200 JSL >00b28d 00:ad63 226b8a00 JSL >008a6b 00:ad67 a47c LDY <7c 00:ad69 b9d01f LDA !1fd0,y 00:ad6c 85aa STA 00a218 00:ad79 a5aa LDA 00a218 00:ad84 2271c800 JSL >00c871 00:ad88 228ee400 JSL >00e48e 00:ad8c 64b2 STZ 00b199 00:ad94 827003 BRL b107 ;----------------------------------------------------- 00:ad97 226db100 JSL >00b16d 00:ad9b 22078a00 JSL >008a07 00:ad9f 2260b200 JSL >00b260 00:ada3 22ad8700 JSL >0087ad 00:ada7 825d03 BRL b107 ;----------------------------------------------------- 00:adaa 22bce800 JSL >00e8bc 00:adae a572 LDA <72 00:adb0 da PHX 00:adb1 0a ASL A 00:adb2 aa TAX 00:adb3 bfbdad00 LDA >00adbd,x 00:adb7 fa PLX 00:adb8 8500 STA <00 00:adba 6c0000 JMP (!0000) ; 00:adb0 ** ** ** ** ** ** ** **-** ** ** ** ** c7 ad d8 *************... 00:adc0 ad ed ad f9 ad 03 ae **-** ** ** ** ** ** ** ** .......********* ; ;----------------------------------------------------- 00:adc7 a90400 LDA #0004 00:adca 8d5e1a STA !1a5e 00:adcd a95100 LDA #0051 00:add0 8d501a STA !1a50 00:add3 22a2b100 JSL >00b1a2 00:add7 6b RTL ;----------------------------------------------------- 00:add8 ad1201 LDA !0112 00:addb d00f BNE adec 00:addd 22c08c00 JSL >008cc0 00:ade1 a90400 LDA #0004 00:ade4 8d5e1a STA !1a5e 00:ade7 9c601a STZ !1a60 00:adea e672 INC <72 00:adec 6b RTL ;----------------------------------------------------- 00:aded 229ff003 JSL >03f09f 00:adf1 ad021b LDA !1b02 00:adf4 d002 BNE adf8 00:adf6 e672 INC <72 00:adf8 6b RTL ;----------------------------------------------------- 00:adf9 a540 LDA <40 00:adfb 29ffbf AND #bfff 00:adfe 8540 STA <40 00:ae00 e672 INC <72 00:ae02 6b RTL ;----------------------------------------------------- 00:ae03 ad1201 LDA !0112 00:ae06 d068 BNE ae70 00:ae08 2211f703 JSL >03f711 00:ae0c b062 BCS ae70 00:ae0e a528 LDA <28 00:ae10 052a ORA <2a 00:ae12 898080 BIT #8080 00:ae15 d004 BNE ae1b 00:ae17 a574 LDA <74 00:ae19 f055 BEQ ae70 00:ae1b 22f5e800 JSL >00e8f5 00:ae1f 226fb200 JSL >00b26f 00:ae23 221cb200 JSL >00b21c 00:ae27 2234b200 JSL >00b234 00:ae2b 226dec06 JSL >06ec6d 00:ae2f 2207b100 JSL >00b107 00:ae33 2255ec06 JSL >06ec55 00:ae37 6458 STZ <58 00:ae39 6468 STZ <68 00:ae3b 64c6 STZ 00b2f4 00:ae5a 2294a500 JSL >00a594 00:ae5e 22e38300 JSL >0083e3 00:ae62 8b PHB 00:ae63 e220 SEP #20 00:ae65 a902 LDA #02 00:ae67 48 PHA 00:ae68 ab PLB 00:ae69 c220 REP #20 00:ae6b 22bc8404 JSL >0484bc 00:ae6f ab PLB 00:ae70 6b RTL ;----------------------------------------------------- 00:ae71 225bec06 JSL >06ec5b 00:ae75 22aeb700 JSL >00b7ae ; Player move 00:ae79 223af103 JSL >03f13a ; Scroll 00:ae7d 8b PHB 00:ae7e e220 SEP #20 00:ae80 a902 LDA #02 00:ae82 48 PHA 00:ae83 ab PLB 00:ae84 c220 REP #20 00:ae86 22008004 JSL >048000 ; Enemy move 00:ae8a ab PLB 00:ae8b a574 LDA <74 00:ae8d f007 BEQ ae96 00:ae8f a90b00 LDA #000b 00:ae92 220ab100 JSL >00b10a 00:ae96 6b RTL ;----------------------------------------------------- 00:ae97 225bec06 JSL >06ec5b 00:ae9b 22aeb700 JSL >00b7ae 00:ae9f a572 LDA <72 00:aea1 f018 BEQ aebb 00:aea3 c90400 CMP #0004 00:aea6 f013 BEQ aebb 00:aea8 c90300 CMP #0003 00:aeab f00e BEQ aebb 00:aead b008 BCS aeb7 00:aeaf adc019 LDA !19c0 00:aeb2 0dd019 ORA !19d0 00:aeb5 f004 BEQ aebb 00:aeb7 223af103 JSL >03f13a 00:aebb 8b PHB 00:aebc e220 SEP #20 00:aebe a902 LDA #02 00:aec0 48 PHA 00:aec1 ab PLB 00:aec2 c220 REP #20 00:aec4 22008004 JSL >048000 00:aec8 ab PLB 00:aec9 a574 LDA <74 00:aecb f008 BEQ aed5 00:aecd a90b00 LDA #000b 00:aed0 220ab100 JSL >00b10a 00:aed4 6b RTL 00:aed5 a572 LDA <72 00:aed7 da PHX 00:aed8 0a ASL A 00:aed9 aa TAX 00:aeda bfe4ae00 LDA >00aee4,x 00:aede fa PLX 00:aedf 8500 STA <00 00:aee1 6c0000 JMP (!0000) 00:aee4 f4ae4d PEA 4dae 00:aee7 af6aaf94 LDA >94af6a 00:aeeb afa1af01 LDA >01afa1 00:aeef b006 BCS aef7 00:aef1 b018 BCS af0b 00:aef3 b0c2 BCS aeb7 00:aef5 308b BMI ae82 00:aef7 a90000 LDA #0000 00:aefa 8f381a00 STA >001a38 00:aefe a90500 LDA #0005 00:af01 a2391a LDX #1a39 00:af04 9b TXY 00:af05 c8 INY 00:af06 540000 MVN #00,#00 00:af09 ab PLB 00:af0a 64b8 STZ 00b722 00:af16 226dec06 JSL >06ec6d 00:af1a 22a1b200 JSL >00b2a1 00:af1e 2286f503 JSL >03f586 00:af22 22b4b200 JSL >00b2b4 00:af26 a67c LDX <7c 00:af28 fe2e19 INC !192e,x 00:af2b fe3219 INC !1932,x 00:af2e fe3619 INC !1936,x 00:af31 a58a LDA <8a 00:af33 0a ASL A 00:af34 aa TAX 00:af35 bcc9c1 LDY !c1c9,x 00:af38 c0ffff CPY #ffff 00:af3b f00d BEQ af4a 00:af3d a2d019 LDX #19d0 00:af40 22f9a900 JSL >00a9f9 00:af44 a90100 LDA #0001 00:af47 8d381a STA !1a38 00:af4a e672 INC <72 00:af4c 6b RTL 00:af4d a58a LDA <8a 00:af4f 0a ASL A 00:af50 aa TAX 00:af51 bcdfc1 LDY !c1df,x 00:af54 c0ffff CPY #ffff 00:af57 f00c BEQ af65 00:af59 ce381a DEC !1a38 00:af5c d00b BNE af69 00:af5e a2c019 LDX #19c0 00:af61 22f9a900 JSL >00a9f9 00:af65 64dc STZ 00b2d1 00:af78 227c8900 JSL >00897c 00:af7c a90100 LDA #0001 00:af7f 8d601b STA !1b60 00:af82 64b2 STZ 00e8ad 00:af88 226fb200 JSL >00b26f 00:af8c 9ce61d STZ !1de6 00:af8f 9c3a1a STZ !1a3a 00:af92 6b RTL 00:af93 6b RTL 00:af94 22d8f903 JSL >03f9d8 00:af98 b006 BCS afa0 00:af9a e672 INC <72 00:af9c 2234b200 JSL >00b234 00:afa0 6b RTL 00:afa1 ad3a1a LDA !1a3a 00:afa4 da PHX 00:afa5 0a ASL A 00:afa6 aa TAX 00:afa7 bfb1af00 LDA >00afb1,x 00:afab fa PLX 00:afac 8500 STA <00 00:afae 6c0000 JMP (!0000) 00:afb1 bdafc5 LDA !c5af,x 00:afb4 afcdafd5 LDA >d5afcd ; ; ;----------------------------------------------------- 00:b11a a544 LDA <44 00:b11c 0568 ORA <68 00:b11e 053e ORA <3e 00:b120 d033 BNE b155 00:b122 a56a LDA <6a 00:b124 d030 BNE b156 ; pause on ? 00:b126 a67c LDX <7c ; no 00:b128 b528 LDA <28,x 00:b12a 890010 BIT #1000 00:b12d f026 BEQ b155 ; start button on ? 00:b12f e66a INC <6a ; yes : pause flag on 00:b131 a9f000 LDA #00f0 00:b134 22038400 JSL >008403 ; sound tabel set 00:b138 c230 REP #30 00:b13a 8b PHB 00:b13b a90000 LDA #0000 00:b13e 8f904b7e STA >7e4b90 00:b142 a91d00 LDA #001d 00:b145 a2914b LDX #4b91 00:b148 9b TXY 00:b149 c8 INY 00:b14a 547e7e MVN #7e,#7e ; RAM CLEAR (7E4B92H ~ 7E4BAFH) 00:b14d ab PLB 00:b14e 9c2c19 STZ !192c 00:b151 224db700 JSL >00b74d 00:b155 6b RTL ; ; ;----------------------------------------------------- 00:b156 a67c LDX <7c 00:b158 b528 LDA <28,x 00:b15a 890010 BIT #1000 00:b15d f0f6 BEQ b155 ; start button on ? 00:b15f 226eb400 JSL >00b46e ; yes : 00:b163 646a STZ <6a 00:b165 a9f100 LDA #00f1 00:b168 22038400 JSL >008403 00:b16c 6b RTL 00:b16d a90200 LDA #0002 00:b170 853e STA <3e 00:b172 a04480 LDY #8044 00:b175 22f88c00 JSL >008cf8 00:b179 9c5e1a STZ !1a5e 00:b17c 9c601a STZ !1a60 00:b17f 22129f00 JSL >009f12 00:b183 a90200 LDA #0002 00:b186 853e STA <3e 00:b188 6b RTL 00:b189 9c5e1a STZ !1a5e 00:b18c 9c601a STZ !1a60 00:b18f 22249f00 JSL >009f24 00:b193 a90200 LDA #0002 00:b196 853e STA <3e 00:b198 6b RTL 00:b199 2286f503 JSL >03f586 00:b19d 229bef03 JSL >03ef9b 00:b1a1 6b RTL 00:b1a2 a5c4 LDA 008d83 00:b1b8 18 CLC 00:b1b9 6500 ADC <00 00:b1bb 85fa STA 00a218 00:b1da a570 LDA <70 00:b1dc c90800 CMP #0008 00:b1df f007 BEQ b1e8 00:b1e1 a540 LDA <40 00:b1e3 090040 ORA #4000 00:b1e6 8540 STA <40 00:b1e8 e6c4 INC 00a218 00:b1f9 e6c4 INC 00b473 00:b46d 6b RTL ;----------------------------------------------------- 00:b46e 2290b400 JSL >00b490 00:b472 6b RTL ;----------------------------------------------------- 00:b473 ae2c19 LDX !192c 00:b476 e02000 CPX #0020 00:b479 b014 BCS b48f ; pause off check ok ? 00:b47b a47c LDY <7c ; no 00:b47d b92800 LDA !0028,y 00:b480 29ffef AND #efff 00:b483 f00a BEQ b48f 00:b485 9f904b7e STA >7e4b90,x 00:b489 ee2c19 INC !192c 00:b48c ee2c19 INC !192c 00:b48f 6b RTL ; ; ;----------------------------------------------------- KEY OPTION CHECK 00:b490 a026a3 LDY #a326 00:b493 2205b500 JSL >00b505 ; jisatsu (ue,ue,sita,sita,hidari,migi,hidari,migi,B,A) 00:b497 9009 BCC b4a2 00:b499 a90200 LDA #0002 00:b49c 8de60b STA !0be6 00:b49f 9c9600 STZ !0096 00:b4a2 a03ca3 LDY #a33c 00:b4a5 2205b500 JSL >00b505 ; jisatsu (ue,ue,sita,sita,L,R,L,R,B,A) 00:b4a9 9009 BCC b4b4 00:b4ab a90200 LDA #0002 00:b4ae 8de60b STA !0be6 00:b4b1 9c9600 STZ !0096 00:b4b4 a052a3 LDY #a352 00:b4b7 2205b500 JSL >00b505 ; full option (B,B,X,X,A,Y,A,Y,ue,hidari) 00:b4bb 900e BCC b4cb 00:b4bd a67c LDX <7c 00:b4bf bd2e19 LDA !192e,x 00:b4c2 3007 BMI b4cb 00:b4c4 de2e19 DEC !192e,x 00:b4c7 22dfe300 JSL >00e3df 00:b4cb a068a3 LDY #a368 ; option-1 (ue,ue,sita,sita,hidari,migi,hidari,migi,X,X,B,B,Y,A,Y,A) 00:b4ce 2205b500 JSL >00b505 00:b4d2 9004 BCC b4d8 00:b4d4 2236e400 JSL >00e436 00:b4d8 a08aa3 LDY #a38a 00:b4db 2205b500 JSL >00b505 ; Bell power set (X,X,X,B,B,B,Y,Y,Y,A,A,A,L,R) 00:b4df 9014 BCC b4f5 00:b4e1 2261e400 JSL >00e461 00:b4e5 d00e BNE b4f5 00:b4e7 a67c LDX <7c 00:b4e9 bd3619 LDA !1936,x 00:b4ec 3007 BMI b4f5 00:b4ee de3619 DEC !1936,x 00:b4f1 2274e400 JSL >00e474 00:b4f5 a0a8a3 LDY #a3a8 00:b4f8 2205b500 JSL >00b505 ; muteki (L,R,ue,X,migi,A,hidari,Y,sita,B,A,Y,A,Y,R) 00:b4fc 9006 BCC b504 00:b4fe a90100 LDA #0001 00:b501 8d9600 STA !0096 00:b504 6b RTL ;----------------------------------------------------- 00:b505 a20000 LDX #0000 00:b508 b90000 LDA !0000,y 00:b50b f00e BEQ b51b 00:b50d df904b7e CMP >7e4b90,x 00:b511 d006 BNE b519 00:b513 e8 INX 00:b514 e8 INX 00:b515 c8 INY 00:b516 c8 INY 00:b517 80ef BRA b508 00:b519 18 CLC 00:b51a 6b RTL 00:b51b df904b7e CMP >7e4b90,x 00:b51f d0f8 BNE b519 00:b521 38 SEC 00:b522 6b RTL ; ; ;----------------------------------------------------- 00:b523 a5e2 LDA 009261 00:b52d 60 RTS 00:b52e 9c161e STZ !1e16 00:b531 ad7e1c LDA !1c7e 00:b534 d007 BNE b53d 00:b536 22829200 JSL >009282 00:b53a 64e2 STZ 7edc40 00:b561 4a LSR A 00:b562 a250dc LDX #dc50 00:b565 b003 BCS b56a 00:b567 a290dc LDX #dc90 00:b56a 8618 STX <18 00:b56c a0021e LDY #1e02 00:b56f b90100 LDA !0001,y 00:b572 29ff00 AND #00ff 00:b575 8500 STA <00 00:b577 20f8b5 JSR !b5f8 00:b57a ae821c LDX !1c82 00:b57d 207fb6 JSR !b67f 00:b580 b90000 LDA !0000,y 00:b583 84fe STY 00907c 00:b5a1 ee821c INC !1c82 00:b5a4 ee821c INC !1c82 00:b5a7 c8 INY 00:b5a8 c8 INY 00:b5a9 a618 LDX <18 00:b5ab 80ca BRA b577 00:b5ad 227c9000 JSL >00907c 00:b5b1 a618 LDX <18 00:b5b3 8b PHB 00:b5b4 e220 SEP #20 00:b5b6 a97e LDA #7e 00:b5b8 48 PHA 00:b5b9 ab PLB 00:b5ba c220 REP #20 00:b5bc a91000 LDA #0010 00:b5bf 9d0000 STA !0000,x 00:b5c2 7b TDC 00:b5c3 9d0100 STA !0001,x 00:b5c6 9d0300 STA !0003,x 00:b5c9 9d0500 STA !0005,x 00:b5cc ad40dc LDA !dc40 00:b5cf 490100 EOR #0001 00:b5d2 8d40dc STA !dc40 00:b5d5 ab PLB 00:b5d6 9c021e STZ !1e02 00:b5d9 9c041e STZ !1e04 00:b5dc 9c061e STZ !1e06 00:b5df 9c081e STZ !1e08 00:b5e2 9c0a1e STZ !1e0a 00:b5e5 9c0c1e STZ !1e0c 00:b5e8 9c0e1e STZ !1e0e 00:b5eb 9c101e STZ !1e10 00:b5ee 9c121e STZ !1e12 00:b5f1 9c141e STZ !1e14 00:b5f4 9c7e1c STZ !1c7e 00:b5f7 6b RTL 00:b5f8 8b PHB 00:b5f9 e220 SEP #20 00:b5fb a97e LDA #7e 00:b5fd 48 PHA 00:b5fe ab PLB 00:b5ff c220 REP #20 00:b601 a500 LDA <00 00:b603 f02e BEQ b633 00:b605 c97800 CMP #0078 00:b608 f019 BEQ b623 00:b60a 9017 BCC b623 00:b60c 38 SEC 00:b60d e97800 SBC #0078 00:b610 9d0000 STA !0000,x 00:b613 7b TDC 00:b614 9d0100 STA !0001,x 00:b617 9d0300 STA !0003,x 00:b61a 8a TXA 00:b61b 18 CLC 00:b61c 690500 ADC #0005 00:b61f aa TAX 00:b620 a97800 LDA #0078 00:b623 9d0000 STA !0000,x 00:b626 7b TDC 00:b627 9d0100 STA !0001,x 00:b62a 9d0300 STA !0003,x 00:b62d 8a TXA 00:b62e 18 CLC 00:b62f 690500 ADC #0005 00:b632 aa TAX 00:b633 a90100 LDA #0001 00:b636 9d0000 STA !0000,x 00:b639 7b TDC 00:b63a 9d0100 STA !0001,x 00:b63d ad821c LDA !1c82 00:b640 0a ASL A 00:b641 0a ASL A 00:b642 8500 STA <00 00:b644 b90100 LDA !0001,y 00:b647 29ff00 AND #00ff ; ; ;----------------------------------------------------- 00:e900 e90022 SBC #2200 00:e903 98 TYA 00:e904 a0006b LDY #6b00 00:e907 e674 INC <74 00:e909 6b RTL 00:e90a a240b1 LDX #b140 00:e90d a584 LDA <84 00:e90f d011 BNE e922 00:e911 a212b1 LDX #b112 00:e914 a556 LDA <56 00:e916 f00a BEQ e922 00:e918 a21ab1 LDX #b11a 00:e91b a57c LDA <7c 00:e91d f003 BEQ e922 00:e91f a22db1 LDX #b12d 00:e922 6b RTL 00:e923 c230 REP #30 00:e925 8b PHB 00:e926 a90000 LDA #0000 00:e929 8fb01f00 STA >001fb0 00:e92d a94c00 LDA #004c 00:e930 a2b11f LDX #1fb1 00:e933 9b TXY 00:e934 c8 INY 00:e935 540000 MVN #00,#00 00:e938 ab PLB 00:e939 a00000 LDY #0000 00:e93c a2aeb1 LDX #b1ae 00:e93f 2246e900 JSL >00e946 00:e943 a00200 LDY #0002 00:e946 bd0000 LDA !0000,x 00:e949 99b01f STA !1fb0,y 00:e94c bd0200 LDA !0002,x 00:e94f 99b41f STA !1fb4,y 00:e952 bd0400 LDA !0004,x 00:e955 99b81f STA !1fb8,y 00:e958 bd0600 LDA !0006,x 00:e95b 99bc1f STA !1fbc,y 00:e95e bd0800 LDA !0008,x 00:e961 99c01f STA !1fc0,y 00:e964 bd0a00 LDA !000a,x 00:e967 99c41f STA !1fc4,y 00:e96a bd0c00 LDA !000c,x 00:e96d 99c81f STA !1fc8,y 00:e970 bd0e00 LDA !000e,x 00:e973 99cc1f STA !1fcc,y 00:e976 6b RTL 00:e977 a572 LDA <72 00:e979 da PHX 00:e97a 0a ASL A 00:e97b aa TAX 00:e97c bf86e900 LDA >00e986,x 00:e980 fa PLX 00:e981 8500 STA <00 00:e983 6c0000 JMP (!0000) 00:e986 8ee9c4 STX !c4e9 00:e989 e929ea SBC #ea29 00:e98c 99ea22 STA !22ea,y 00:e98f 7b TDC 00:e990 8c00a9 STY !a900 00:e993 09008d ORA #8d00 00:e996 441a22 MVP #22,#1a 00:e999 398900 AND !0089,y 00:e99c adbe1c LDA !1cbe 00:e99f f011 BEQ e9b2 00:e9a1 a20004 LDX #0400 00:e9a4 22318e00 JSL >008e31 00:e9a8 a97c00 LDA #007c 00:e9ab 9508 STA <08,x 00:e9ad a96400 LDA #0064 00:e9b0 950c STA <0c,x 00:e9b2 22bf8300 JSL >0083bf 00:e9b6 a95400 LDA #0054 00:e9b9 2283a500 JSL >00a583 00:e9bd 22e38300 JSL >0083e3 00:e9c1 e672 INC <72 00:e9c3 6b RTL 00:e9c4 a67c LDX <7c 00:e9c6 b528 LDA <28,x 00:e9c8 890010 BIT #1000 00:e9cb d045 BNE ea12 00:e9cd ee201b INC !1b20 00:e9d0 ad201b LDA !1b20 00:e9d3 292000 AND #0020 00:e9d6 85f8 STA 00a098 00:ea0a ad201b LDA !1b20 00:ea0d c98001 CMP #0180 00:ea10 d006 BNE ea18 00:ea12 a584 LDA <84 00:ea14 d003 BNE ea19 00:ea16 e672 INC <72 00:ea18 6b RTL 00:ea19 7b TDC 00:ea1a 220ab100 JSL >00b10a 00:ea1e a90b00 LDA #000b 00:ea21 22278600 JSL >008627 00:ea25 9ce21d STZ !1de2 00:ea28 6b RTL 00:ea29 2243f503 JSL >03f543 00:ea2d 2287f900 JSL >00f987 00:ea31 22dc9000 JSL >0090dc 00:ea35 64ae STZ 008903 00:ea40 2211a100 JSL >00a111 00:ea44 6494 STZ <94 00:ea46 22e69e00 JSL >009ee6 00:ea4a 224b8d00 JSL >008d4b 00:ea4e a25a84 LDX #845a 00:ea51 2218a200 JSL >00a218 00:ea55 a24481 LDX #8144 00:ea58 2218a200 JSL >00a218 00:ea5c 22629800 JSL >009862 00:ea60 22f08c00 JSL >008cf0 00:ea64 a0c891 LDY #91c8 00:ea67 a2f019 LDX #19f0 00:ea6a 22f9a900 JSL >00a9f9 00:ea6e 9ca01a STZ !1aa0 00:ea71 9ce01a STZ !1ae0 00:ea74 9cf01a STZ !1af0 00:ea77 a90800 LDA #0008 00:ea7a 8db01a STA !1ab0 00:ea7d a90900 LDA #0009 00:ea80 8d261b STA !1b26 00:ea83 22bf8300 JSL >0083bf 00:ea87 a94800 LDA #0048 00:ea8a 2283a500 JSL >00a583 00:ea8e 22e38300 JSL >0083e3 00:ea92 224eeb00 JSL >00eb4e 00:ea96 e672 INC <72 00:ea98 6b RTL 00:ea99 a67c LDX <7c 00:ea9b b528 LDA <28,x 00:ea9d 890020 BIT #2000 00:eaa0 d021 BNE eac3 00:eaa2 890010 BIT #1000 00:eaa5 d04d BNE eaf4 00:eaa7 2235eb00 JSL >00eb35 00:eaab 224eeb00 JSL >00eb4e 00:eaaf ee281b INC !1b28 00:eab2 ad281b LDA !1b28 00:eab5 c95400 CMP #0054 00:eab8 9008 BCC eac2 00:eaba 9c281b STZ !1b28 00:eabd ce261b DEC !1b26 00:eac0 3001 BMI eac3 00:eac2 6b RTL 00:eac3 22008400 JSL >008400 00:eac7 222b9902 JSL >02992b 00:eacb 9008 BCC ead5 00:eacd a90c00 LDA #000c 00:ead0 22278600 JSL >008627 00:ead4 6b RTL 00:ead5 a57e LDA <7e 00:ead7 c90300 CMP #0003 00:eada f008 BEQ eae4 00:eadc a90100 LDA #0001 00:eadf 22278600 JSL >008627 00:eae3 6b RTL 00:eae4 a00100 LDY #0001 00:eae7 a57c LDA <7c 00:eae9 d003 BNE eaee 00:eaeb a00200 LDY #0002 00:eaee 847e STY <7e 00:eaf0 a47c LDY <7c 00:eaf2 8034 BRA eb28 00:eaf4 22008400 JSL >008400 00:eaf8 a57e LDA <7e 00:eafa c90300 CMP #0003 00:eafd f01b BEQ eb1a 00:eaff a47c LDY <7c 00:eb01 d006 BNE eb09 00:eb03 22cf8a00 JSL >008acf 00:eb07 8004 BRA eb0d 00:eb09 22d68a00 JSL >008ad6 00:eb0d b91c80 LDA !801c,y 00:eb10 1482 TRB <82 00:eb12 a90000 LDA #0000 00:eb15 220ab100 JSL >00b10a 00:eb19 6b RTL 00:eb1a a47c LDY <7c 00:eb1c d006 BNE eb24 00:eb1e 22cf8a00 JSL >008acf 00:eb22 8004 BRA eb28 00:eb24 22d68a00 JSL >008ad6 00:eb28 b91c80 LDA !801c,y 00:eb2b 1482 TRB <82 00:eb2d 2257b000 JSL >00b057 00:eb31 5cbf8300 JMP >0083bf 00:eb35 ad261b LDA !1b26 00:eb38 f00d BEQ eb47 00:eb3a ee221b INC !1b22 00:eb3d ad221b LDA !1b22 00:eb40 295000 AND #0050 00:eb43 d002 BNE eb47 00:eb45 e6f8 INC 00a098 00:eb4e ad261b LDA !1b26 00:eb51 0a ASL A 00:eb52 aa TAX 00:eb53 bcf1b1 LDY !b1f1,x 00:eb56 a20004 LDX #0400 00:eb59 b90000 LDA !0000,y 00:eb5c 29f000 AND #00f0 00:eb5f c9f000 CMP #00f0 00:eb62 f024 BEQ eb88 00:eb64 18 CLC 00:eb65 696000 ADC #0060 00:eb68 9508 STA <08,x 00:eb6a b90000 LDA !0000,y 00:eb6d 290f00 AND #000f 00:eb70 0a ASL A 00:eb71 0a ASL A 00:eb72 0a ASL A 00:eb73 0a ASL A 00:eb74 18 CLC 00:eb75 694800 ADC #0048 00:eb78 950c STA <0c,x 00:eb7a a99754 LDA #5497 00:eb7d 9500 STA <00,x 00:eb7f c8 INY 00:eb80 8a TXA 00:eb81 18 CLC 00:eb82 695000 ADC #0050 00:eb85 aa TAX 00:eb86 80d1 BRA eb59 00:eb88 7400 STZ <00,x 00:eb8a 8a TXA 00:eb8b 18 CLC 00:eb8c 695000 ADC #0050 00:eb8f aa TAX 00:eb90 e0a018 CPX #18a0 00:eb93 d0f3 BNE eb88 00:eb95 6b RTL 00:eb96 8b PHB 00:eb97 e220 SEP #20 00:eb99 a901 LDA #01 00:eb9b 48 PHA 00:eb9c ab PLB 00:eb9d c220 REP #20 00:eb9f 221f8c00 JSL >008c1f 00:eba3 9cf61d STZ !1df6 00:eba6 9cf81d STZ !1df8 00:eba9 a97800 LDA #0078 00:ebac 8da01d STA !1da0 00:ebaf 9ce01d STZ !1de0 00:ebb2 8b PHB 00:ebb3 c230 REP #30 00:ebb5 8b PHB 00:ebb6 a90000 LDA #0000 00:ebb9 8f30db7e STA >7edb30 00:ebbd a90d01 LDA #010d 00:ebc0 a231db LDX #db31 00:ebc3 9b TXY 00:ebc4 c8 INY 00:ebc5 547e7e MVN #7e,#7e 00:ebc8 ab PLB 00:ebc9 ab PLB 00:ebca a97aed LDA #ed7a 00:ebcd 85ae STA 00928a 00:ebd3 a978ec LDA #ec78 00:ebd6 85c8 STA 00fc24 00:ebdf a06a92 LDY #926a 00:ebe2 a2f019 LDX #19f0 00:ebe5 22f9a900 JSL >00a9f9 00:ebe9 a9a3b2 LDA #b2a3 00:ebec ac2a19 LDY !192a 00:ebef d003 BNE ebf4 00:ebf1 a9d3b2 LDA #b2d3 00:ebf4 8d961d STA !1d96 00:ebf7 ab PLB 00:ebf8 a20000 LDX #0000 00:ebfb a90303 LDA #0303 00:ebfe 9f40807f STA >7f8040,x 00:ec02 9f20837f STA >7f8320,x ;----------------------------------------------------- 00:fa22 ad8019 LDA !1980 00:fa25 f04d BEQ fa74 ; MODE-7 ? 00:fa27 a90021 LDA #2100 00:fa2a 5b TCD ; (D) <-- #2100H 00:fa2b e220 SEP #20 00:fa2d ad661a LDA !1a66 00:fa30 851a STA <1a ; 211AH 00:fa32 ad681a LDA !1a68 00:fa35 851b STA <1b ; 211BH 00:fa37 ad691a LDA !1a69 00:fa3a 851b STA <1b ; 211BH 00:fa3c ad6a1a LDA !1a6a 00:fa3f 851c STA <1c ; 211CH 00:fa41 ad6b1a LDA !1a6b 00:fa44 851c STA <1c ; 211CH 00:fa46 ad6c1a LDA !1a6c 00:fa49 851d STA <1d ; 211DH 00:fa4b ad6d1a LDA !1a6d 00:fa4e 851d STA <1d ; 211DH 00:fa50 ad6e1a LDA !1a6e 00:fa53 851e STA <1e ; 211EH 00:fa55 ad6f1a LDA !1a6f 00:fa58 851e STA <1e ; 211EH 00:fa5a ad701a LDA !1a70 00:fa5d 851f STA <1f ; 211FH 00:fa5f ad711a LDA !1a71 00:fa62 851f STA <1f ; 211FH 00:fa64 ad721a LDA !1a72 00:fa67 8520 STA <20 ; 2120H 00:fa69 ad731a LDA !1a73 00:fa6c 8520 STA <20 ; 2120H 00:fa6e c220 REP #20 00:fa70 a90000 LDA #0000 00:fa73 5b TCD ; (D) <-- 0 00:fa74 6b RTL ;----------------------------------------------------- 00:fa75 a2a0 LDX #a0 00:fa77 18 CLC 00:fa78 b90000 LDA !0000,y 00:fa7b f004 BEQ fa81 00:fa7d b500 LDA <00,x 00:fa7f d011 BNE fa92 00:fa81 2293fa00 JSL >00fa93 00:fa85 b90000 LDA !0000,y 00:fa88 9500 STA <00,x 00:fa8a b90200 LDA !0002,y 00:fa8d 9502 STA <02,x 00:fa8f a90000 LDA #0000 00:fa92 6b RTL 00:fa93 7400 STZ <00,x 00:fa95 7402 STZ <02,x ;----------------------------------------------------- 00:faa4 a55e LDA <5e 00:faa6 d022 BNE faca 00:faa8 a2a018 LDX #18a0 00:faab 86fc STX 00facb 00:fabe 18 CLC 00:fabf a5fc LDA 00fad9,x 00:fad3 fa PLX 00:fad4 8500 STA <00 00:fad6 6c0000 JMP (!0000) ; 00:fad9 ddfa66 CMP !66fa,x 00:fadc fb XCE 00:fadd b508 LDA <08,x 00:fadf f003 BEQ fae4 00:fae1 d608 DEC <08,x 00:fae3 6b RTL 00:fae4 b502 LDA <02,x 00:fae6 8500 STA <00 00:fae8 b200 LDA (<00) 00:faea 9508 STA <08,x 00:faec f606 INC <06,x 00:faee f606 INC <06,x 00:faf0 b406 LDY <06,x 00:faf2 c8 INY 00:faf3 c8 INY 00:faf4 b100 LDA (<00),y 00:faf6 f05c BEQ fb54 00:faf8 a648 LDX <48 00:fafa a8 TAY 00:fafb b90000 LDA !0000,y 00:fafe f04e BEQ fb4e 00:fb00 c90001 CMP #0100 00:fb03 9014 BCC fb19 00:fb05 a98000 LDA #0080 00:fb08 9f00007e STA >7e0000,x 00:fb0c a90118 LDA #1801 00:fb0f 9f02007e STA >7e0002,x 00:fb13 88 DEY 00:fb14 88 DEY 00:fb15 88 DEY 00:fb16 88 DEY 00:fb17 800b BRA fb24 00:fb19 9f00007e STA >7e0000,x 00:fb1d b90200 LDA !0002,y 00:fb20 9f02007e STA >7e0002,x 00:fb24 b90400 LDA !0004,y 00:fb27 9f04007e STA >7e0004,x 00:fb2b b90600 LDA !0006,y 00:fb2e 9f06007e STA >7e0006,x 00:fb32 b90800 LDA !0008,y 00:fb35 9f08007e STA >7e0008,x 00:fb39 b90900 LDA !0009,y 00:fb3c 9f09007e STA >7e0009,x 00:fb40 98 TYA 00:fb41 18 CLC 00:fb42 690b00 ADC #000b 00:fb45 a8 TAY 00:fb46 8a TXA 00:fb47 18 CLC 00:fb48 690b00 ADC #000b 00:fb4b aa TAX 00:fb4c 80ad BRA fafb 00:fb4e 8648 STX <48 00:fb50 a6fc LDX 7e0000,x 00:fb7f a90118 LDA #1801 00:fb82 9f02007e STA >7e0002,x 00:fb86 b90000 LDA !0000,y 00:fb89 9f04007e STA >7e0004,x 00:fb8d b90200 LDA !0002,y 00:fb90 9f06007e STA >7e0006,x 00:fb94 b90400 LDA !0004,y 00:fb97 9f08007e STA >7e0008,x 00:fb9b b90500 LDA !0005,y 00:fb9e 9f09007e STA >7e0009,x 00:fba2 98 TYA 00:fba3 18 CLC 00:fba4 690700 ADC #0007 00:fba7 a8 TAY 00:fba8 8a TXA 00:fba9 18 CLC 00:fbaa 690b00 ADC #000b 00:fbad aa TAX 00:fbae 80c3 BRA fb73 00:fbb0 8648 STX <48 00:fbb2 a6fc LDX 008c4d 00:fbc0 8b PHB 00:fbc1 e220 SEP #20 00:fbc3 a903 LDA #03 00:fbc5 48 PHA 00:fbc6 ab PLB ; (DBR) <-- 3 00:fbc7 c220 REP #20 00:fbc9 a20000 LDX #0000 00:fbcc bd0fa6 LDA !a60f,x 00:fbcf 9dfd1e STA !1efd,x 00:fbd2 e8 INX 00:fbd3 e8 INX 00:fbd4 e03700 CPX #0037 00:fbd7 90f3 BCC fbcc 00:fbd9 ab PLB 00:fbda 6b RTL ;----------------------------------------------------- 00:fbdb adf01e LDA !1ef0 00:fbde f00d BEQ fbed 00:fbe0 3a DEC A 00:fbe1 d00b BNE fbee 00:fbe3 a2fd1e LDX #1efd 00:fbe6 2218a200 JSL >00a218 00:fbea eef01e INC !1ef0 00:fbed 6b RTL 00:fbee 3a DEC A 00:fbef d017 BNE fc08 00:fbf1 ad1219 LDA !1912 00:fbf4 d011 BNE fc07 00:fbf6 a01fe2 LDY #e21f 00:fbf9 a2b018 LDX #18b0 00:fbfc b500 LDA <00,x 00:fbfe d008 BNE fc08 00:fc00 2278fa00 JSL >00fa78 00:fc04 eef01e INC !1ef0 00:fc07 6b RTL 00:fc08 adb018 LDA !18b0 00:fc0b d015 BNE fc22 00:fc0d 8b PHB 00:fc0e e220 SEP #20 00:fc10 a903 LDA #03 00:fc12 48 PHA 00:fc13 ab PLB 00:fc14 c220 REP #20 00:fc16 acf21e LDY !1ef2 00:fc19 b90000 LDA !0000,y 00:fc1c d005 BNE fc23 00:fc1e 9cf01e STZ !1ef0 00:fc21 ab PLB 00:fc22 6b RTL 00:fc23 ab PLB 00:fc24 8b PHB 00:fc25 e220 SEP #20 00:fc27 a903 LDA #03 00:fc29 48 PHA 00:fc2a ab PLB 00:fc2b c220 REP #20 00:fc2d a20000 LDX #0000 00:fc30 9c2c1f STZ !1f2c 00:fc33 9c2e1f STZ !1f2e 00:fc36 9c301f STZ !1f30 00:fc39 b90000 LDA !0000,y 00:fc3c 8d021f STA !1f02 00:fc3f b90100 LDA !0001,y 00:fc42 8d031f STA !1f03 00:fc45 b90300 LDA !0003,y 00:fc48 8d061f STA !1f06 00:fc4b b90500 LDA !0005,y 00:fc4e 8d0b1f STA !1f0b 00:fc51 38 SEC 00:fc52 e90008 SBC #0800 00:fc55 9057 BCC fcae 00:fc57 8d141f STA !1f14 00:fc5a 38 SEC 00:fc5b e90008 SBC #0800 00:fc5e 9038 BCC fc98 ;----------------------------------------------------- ;-----------------------------------------------------