Follow @CuttingRoomWiki on Twitter and TCRF on Facebook!
Notes:Atlantis no Nazo
From The Cutting Room Floor
This page contains notes for the game Atlantis no Nazo.
This page aims to be a complete disassembly of Atlantis no Nazo. Maybe putting it up here will motivate me to work on it some more. (Any changes you make will be erased when I update it unless you post them elsewhere, like here.)
*** INITIAL CODE BLOCK ***
8000: 78 SEI
8001: d8 CLD
8002: a2 3f LDX #$3f
8004: 9a TXS
8005: ae 02 20 LDX $2002 ; \ Loop until VBLANK ends
8008: 10 fb BPL .8005 ; |
800a: ae 02 20 LDX $2002 ; | twice
800d: 10 fb BPL .800a ; /
800f: a9 10 LDA #$10 ; \
8011: 8d 00 00 STA $0000 ; |
8014: 8d 00 20 STA $2000 ; | Set up the PPU
8017: a9 1e LDA #$1e ; |
8019: 8d 01 00 STA $0001 ; |
801c: 8d 01 20 STA $2001 ; /
801f: a2 01 LDX #$01 ; \
8021: a0 40 LDY #$40 ; | Zero-fill $40 (64) bytes
8023: a9 40 LDA #$40 ; | starting at $0140
8025: 20 47 84 JSR .8447 ; /
8028: a2 00 LDX #$00 ; \
802a: a0 02 LDY #$02 ; | Zero-fill $d (13) bytes
802c: a9 0d LDA #$0d ; | starting at $0002
802e: 20 47 84 JSR .8447 ; /
8031: a9 00 LDA #$00 ; \
8033: 8d 10 40 STA $4010 ; | Disable sound hardware interrupts
8036: a9 40 LDA #$40 ; |
8038: 8d 17 40 STA $4017 ; /
803b: 20 34 c7 JSR .c734 ; Initialize sound engine
803e: 20 6a 84 JSR .846a ; Soft-reset check
8041: 4c c4 80 JMP .80c4
*** NMI HANDLER ***
8044: 08 PHP
8045: 48 PHA
8046: 8e 0e 00 STX $000e
8049: 8c 0f 00 STY $000f
804c: ad 02 20 LDA $2002 ; Acknowledge VBlank
804f: ad 50 01 LDA $0150
8052: d0 03 BNE .8057
8054: 4c b5 80 JMP .80b5
8057: ad 56 01 LDA $0156
805a: f0 2f BEQ .808b
805c: ad 57 01 LDA $0157
805f: d0 2a BNE .808b
8061: a2 3f LDX #$3f ; \
8063: a0 00 LDY #$00 ; | Update palette
8065: 8e 06 20 STX $2006 ; |
8068: 8c 06 20 STY $2006 ; |
806b: b9 e0 01 LDA $01e0,Y ; |
806e: 8d 07 20 STA $2007 ; |
8071: c8 INY ; |
8072: c0 20 CPY #$20 ; |
8074: d0 f5 BNE .806b ; /
8076: a9 3f LDA #$3f
8078: 8d 06 20 STA $2006
807b: a9 00 LDA #$00
807d: 8d 06 20 STA $2006
8080: 8d 06 20 STA $2006
8083: 8d 06 20 STA $2006
8086: a9 00 LDA #$00
8088: 8d 56 01 STA $0156
808b: a9 00 LDA #$00 ; \
808d: 8d 03 20 STA $2003 ; | DMA sprites to PPU
8090: a9 07 LDA #$07 ; |
8092: 8d 14 40 STA $4014 ; /
8095: 20 2d 83 JSR .832d ; Do nothing...? (Might be link to old sprite code.)
8098: 20 f9 89 JSR .89f9 ; Screen updater
809b: ad 00 00 LDA $0000
809e: 8d 00 20 STA $2000
80a1: ae 09 00 LDX $0009
80a4: ac 05 00 LDY $0005
80a7: 8e 05 20 STX $2005
80aa: 8c 05 20 STY $2005
80ad: 20 7d c7 JSR .c77d ; Sound engine (skipping disassembly for now)
80b0: a9 00 LDA #$00
80b2: 8d 50 01 STA $0150
80b5: 20 95 84 JSR .8495 ; Decrement counters?
80b8: ce 40 01 DEC $0140
80bb: ac 0f 00 LDY $000f
80be: ae 0e 00 LDX $000e
80c1: 68 PLA
80c2: 28 PLP
80c3: 40 RTI
*** MAIN LOOP ***
80c4: a9 00 LDA #$00
80c6: 8d 51 01 STA $0151
80c9: a9 05 LDA #$05
80cb: 8d 41 01 STA $0141
80ce: a9 03 LDA #$03
80d0: 8d 4a 01 STA $014a
80d3: 20 34 c7 JSR .c734 ; Initialize sound engine
80d6: a9 04 LDA #$04 ; \ Play title screen music
80d8: 20 45 c7 JSR .c745 ; /
80db: 20 de bb JSR .bbde ; Draw title screen
80de: 20 d8 83 JSR .83d8 ; Controller setup (need to check this)
80e1: ad 4a 01 LDA $014a
80e4: d0 0a BNE .80f0
80e6: ad 07 02 LDA $0207
80e9: 29 10 AND #$10
80eb: d0 2f BNE .811c
80f0: 20 8a 84 JSR .848a ; Wait for NMI
80f3: ad 48 01 LDA $0148
80f6: d0 e6 BNE .80de
80f8: ce 48 01 DEC $0148
80fb: ce 41 01 DEC $0141
80fe: d0 de BNE .80de
8100: 20 4e 8c JSR .8c4e ; New game
8103: ad 5b 01 LDA $015b
8106: ee 5b 01 INC $015b
8109: 29 07 AND #$07
810b: aa TAX
810c: bd 62 86 LDA $8662,X ; Demo door IDs to load
810f: 8d 96 01 STA $0196
8112: 20 76 8c JSR .8c76 ; Load (demo) level
8115: a9 ff LDA #$ff
8117: 8d 81 01 STA $0181
811a: d0 28 BNE .8144
811c: a9 ff LDA #$ff
811e: 8d 48 01 STA $0148
8121: 20 4e 8c JSR .8c4e ; New game
8124: 20 f0 82 JSR .82f0 ; Enable debug codes
8127: 20 ea bc JSR .bcea ; MYSTERY ADVENTURE START..
812a: 20 34 c7 JSR .c734 ; Initialize sound
812d: a9 05 LDA #$05 ; \ Play Zone Start music
812f: 20 45 c7 JSR .c745 ; /
8132: a9 04 LDA #$04
8134: 8d 49 01 STA $0149 ; This appears to be a timer
8137: a9 00 LDA #$00 ; \ Clear pause
8139: 8d 52 01 STA $0152 ; /
813c: 20 8a 84 JSR .848a ; \
813f: ad 48 01 LDA $0148 ; | This appears to be a timer too
8142: d0 f8 BNE .813c ; /
8144: 20 c9 8f JSR .8fc9 ; Load the initial view of the zone
8147: 20 5c 90 JSR .905c Coming up next time: What does this subroutine do?
814a: a9 04 LDA #$04
814c: 8d 49 01 STA $0149
814f: 20 d8 83 JSR .83d8
8152: ad 51 01 LDA $0151
8155: f0 0d BEQ .8164
8157: ad 07 02 LDA $0207
815a: 29 10 AND #$10
815c: f0 03 BEQ .8161
815e: 4c c4 80 JMP .80c4
8161: 20 17 86 JSR .8617
8164: 20 99 82 JSR .8299
8167: 20 5c 84 JSR .845c
816a: 20 87 93 JSR .9387
816d: 20 15 8b JSR .8b15
8170: 20 9a 86 JSR .869a
8173: 20 cc 97 JSR .97cc
8176: 20 9f b9 JSR .b99f
8179: 20 c8 82 JSR .82c8
817c: 20 8e b8 JSR .b88e
817f: 20 65 ba JSR .ba65
8182: 20 6e 82 JSR .826e
8185: 20 2a b8 JSR .b82a
8188: 20 11 b4 JSR .b411
818b: 20 8a 84 JSR .848a
818e: ad 9f 01 LDA $019f
8191: f0 1d BEQ .81b0 ; This branch was always taken
8193: ad 07 02 LDA $0207 ; \
8196: 29 20 AND #$20 ; | This code did not run.
8198: f0 16 BEQ .81b0 ; |
819a: ae 9e 01 LDX $019e ; |
819d: e8 INX ; |
819e: e0 64 CPX #$64 ; |
81a0: f0 0e BEQ .81b0 ; |
81a2: 8e 9e 01 STX $019e ; |
81a5: bd e5 fe LDA $fee5,X ; |
81a8: 8d 96 01 STA $0196 ; |
81ab: a9 20 LDA #$20 ; |
81ad: 4c 1d 82 JMP .821d ; /
81b0: 20 77 85 JSR .8577
81b3: ad c3 01 LDA $01c3
81b6: f0 08 BEQ .81c0
81b8: ad 51 01 LDA $0151
81bb: d0 13 BNE .81d0
81bd: 4c d3 81 JMP .81d3
81c0: ad c2 01 LDA $01c2
81c3: f0 08 BEQ .81cd
81c5: ad 51 01 LDA $0151
81c8: d0 06 BNE .81d0
81ca: 4c 1b 82 JMP .821b
81cd: 4c 4f 81 JMP .814f
81d0: 4c c4 80 JMP .80c4
*** MAIN LOOP BRANCH A ***
81d3: a9 00 LDA #$00
81d5: 8d 52 04 STA $0452
81d8: 8d 56 04 STA $0456
81db: ad 57 04 LDA $0457
81de: f0 03 BEQ .81e3
81e0: ee 57 04 INC $0457
81e3: ad 91 01 LDA $0191
81e6: d0 30 BNE .8218
81e8: ce 94 01 DEC $0194
81eb: 10 2b BPL .8218
81ed: a9 02 LDA #$02
81ef: 8d 41 01 STA $0141
81f2: a9 50 LDA #$50
81f4: 8d 48 01 STA $0148
81f7: 20 3c 85 JSR .853c
81fa: 20 18 be JSR .be18
81fd: 20 34 c7 JSR .c734
8200: a9 06 LDA #$06
8202: 20 45 c7 JSR .c745
8205: 20 8a 84 JSR .848a
8208: ad 48 01 LDA $0148
820b: d0 f8 BNE .8205
820d: ce 48 01 DEC $0148
8210: ce 41 01 DEC $0141
8213: d0 f0 BNE .8205
8215: 4c c4 80 JMP .80c4
8218: 4c 1b 82 JMP .821b
*** MAIN LOOP BRANCH B ***
821b: a9 ff LDA #$ff
821d: 8d 48 01 STA $0148
8220: ad 16 02 LDA $0216
8223: 29 7f AND #$7f
8225: 8d 9a 01 STA $019a
8228: 20 76 8c JSR .8c76
822b: 20 02 bd JSR .bd02
822e: 20 34 c7 JSR .c734
8231: a9 05 LDA #$05
8233: 20 45 c7 JSR .c745
8236: a9 04 LDA #$04
8238: 8d 49 01 STA $0149
823b: a9 00 LDA #$00
823d: 8d 52 01 STA $0152
8240: 20 d8 83 JSR .83d8
8243: 20 99 82 JSR .8299
8246: 20 8a 84 JSR .848a
8249: ad 52 01 LDA $0152
824c: f0 05 BEQ .8253
824e: a9 45 LDA #$45
8250: 8d 48 01 STA $0148
8253: ad 48 01 LDA $0148
8256: d0 e8 BNE .8240
8258: 20 c9 8f JSR .8fc9
825b: ad 9a 01 LDA $019a
825e: 29 01 AND #$01
8260: 8d 16 02 STA $0216
8263: 20 5c 90 JSR .905c
8266: a9 04 LDA #$04
8268: 8d 49 01 STA $0149
826b: 4c 4f 81 JMP .814f
*** SUBROUTINE ***
Debug codes
82f0: a2 ff LDX #$ff ;
82f2: ad 5e 01 LDA $015e ; \
82f5: c9 21 CMP #$21 ; | Debug warp button combo:
82f7: d0 11 BNE .830a ; | Selet on either pad pressed 33 times,
82f9: ad 5c 01 LDA $015c ; | pad 2 A pressed 22 times,
82fc: c9 16 CMP #$16 ; | and hold an A and a B button
82fe: d0 0a BNE .830a ; | while starting.
8300: ad 5f 01 LDA $015f ; |
8303: c9 c0 CMP #$c0 ; |
8305: d0 03 BNE .830a ; |
8307: 8e 9f 01 STX $019f ; /
830a: ad 5c 01 LDA $015c ; \
830d: c9 0b CMP #$0b ; | Debug infinite lives button combo:
830f: d0 0a BNE .831b ; | Pad 2 A pressed 11 times,
8311: ad 5d 01 LDA $015d ; | and pad 1 B pressed 22 times.
8314: c9 16 CMP #$16 ; |
8316: d0 03 BNE .831b ; |
8318: 8e 91 01 STX $0191 ; /
831b: ad 5f 01 LDA $015f ; \
831e: c9 ec CMP #$ec ; | Debug invincibility button combo:A B Select Up Down
8320: d0 0a BNE .832c ; | Press pad 1 B 33 times,
8322: ad 5d 01 LDA $015d ; | and hold any pad A B select up down buttons
8325: c9 21 CMP #$21 ; | while starting.
8327: d0 03 BNE .832c ; |
8329: ee 57 04 INC $0457 ; /
832c: 60 RTS
*** SUBROUTINE ***
Update the PPU's OAM the hard way. Replace the first byte with EA (NOP) to make it run.
However, 18 (CLC) looks more appropriate - and works better, too!
832D 60 RTS
832E AD 59 01 LDA $0159 ; \
8331 AA TAX ; | It's too slow to update all of the OAM, so it updates 68 (104)
8332 AC 57 01 LDY $0157 ; | bytes on most frames and 28 (40) bytes when the nametable needs
8335 D0 03 BNE $833A ; | to be updated.
8337 69 40 ADC #$40 ; |
8339 18 CLC ; |
833A 69 28 ADC #$28 ; |
833C 8D 59 01 STA $0159 ; /
833F A0 40 LDY #$40 ; \ This doesn't look right. Change A0 40 to EA EA (NOP) and change
8341 8C 03 20 STY $2003 ; / 8C to 8E (STX). X is the offset into the updated object data,
8344 BD 00 07 LDA $0700,X ; so shouldn't it be the offset into OAM too?
8347 8D 04 20 STA $2004
834A E8 INX
834B EC 59 01 CPX $0159
834E D0 F4 BNE $8344
8350 60 RTS
*** SUBROUTINE ***
Enable VBlank
8351: ad 00 00 LDA $0000
8354: 09 80 ORA #$80
8356: 8d 00 00 STA $0000
8359: 8d 00 20 STA $2000
835c: ad 01 00 LDA $0001
835f: 8d 01 20 STA $2001
8362: 60 RTS
*** SUBROUTINE ***
Blackout PPU
8363: a9 00 LDA #$00 ; \ Kill rendering
8365: 8d 01 20 STA $2001 ; /
8368: ad 00 00 LDA $0000 ; \
836b: 29 7f AND #$7f ; | Disable VBlank
836d: 8d 00 00 STA $0000 ; |
8370: 8d 00 20 STA $2000 ; /
8373: a2 3f LDX #$3f ; \
8375: a0 00 LDY #$00 ; | Palette = all black
8377: 8e 06 20 STX $2006 ; | Also, typo.
837a: 8e 06 20 STX $2006 ; | The second STX should be STY.
837d: a9 0f LDA #$0f ; | It still works, though.
837f: a0 20 LDY #$20 ; | Lucky for them. :)
8381: 8d 07 20 STA $2007 ; |
8384: 88 DEY ; |
8385: d0 fa BNE .8381 ; /
8387: a9 3f LDA #$3f ; \
8389: 8d 06 20 STA $2006 ; | What?
838c: a9 00 LDA #$00 ; |
838e: 8d 06 20 STA $2006 ; |
8391: 8d 06 20 STA $2006 ; |
8394: 8d 06 20 STA $2006 ; /
8397: a9 ff LDA #$ff ; \ Update palette during next NMI
8399: 8d 56 01 STA $0156 ; /
839c: 60 RTS
*** SUBROUTINE ***
Set PPU address without affecting scroll
839d: 8e 06 20 STX $2006 ; \ Set PPU address
83a0: 8c 06 20 STY $2006 ; /
83a3: ad 09 00 LDA $0009 ; \
83a6: 8d 05 20 STA $2005 ; | Reload scroll
83a9: ad 05 00 LDA $0005 ; |
83ac: 8d 05 20 STA $2005 ; /
83af: 60 RTS
*** SUBROUTINE ***
A (very stupid) routine to clear the PPU RAM
83b0: a2 20 LDX #$20 ; Name table 0 (starting from here)
83b2: d0 02 BNE .83b6
83b4: a2 24 LDX #$24 ; Name table 1 (starting from here)
83b6: a0 00 LDY #$00
83b8: 8e 06 20 STX $2006
83bb: 8c 06 20 STY $2006
83be: a9 ff LDA #$ff ; \
83c0: a0 1e LDY #$1e ; | Wipe the name table.
83c2: a2 20 LDX #$20 ; |
83c4: 8d 07 20 STA $2007 ; |
83c7: ca DEX ; |
83c8: d0 fa BNE .83c4 ; |
83ca: 88 DEY ; |
83cb: d0 f5 BNE .83c2 ; /
83cd: a2 40 LDX #$40 ; \
83cf: a9 ff LDA #$ff ; | Then wipe the attribute table separately.
83d1: 8d 07 20 STA $2007 ; |
83d4: ca DEX ; | WHY? 8(
83d5: d0 fa BNE .83d1 ; /
83d7: 60 RTS
*** SUBROUTINE ***
Read controllers
83d8: ad 00 02 LDA $0200
83db: 8d 02 02 STA $0202
83de: ad 01 02 LDA $0201
83e1: 8d 03 02 STA $0203
83e4: a9 01 LDA #$01 ; \
83e6: 8d 16 40 STA $4016 ; | Set up controller
83e9: a9 00 LDA #$00 ; |
83eb: 8d 16 40 STA $4016 ; /
83ee: a2 08 LDX #$08 ; \
83f0: ad 16 40 LDA $4016 ; | Rotate it into $0200 and $0201
83f3: 29 06 AND #$06 ; |
83f5: c9 01 CMP #$01 ; |
83f7: 2e 00 02 ROL $0200 ; |
83fa: ad 17 40 LDA $4017 ; |
83fd: 29 03 AND #$03 ; |
83ff: c9 01 CMP #$01 ; |
8401: 2e 01 02 ROL $0201 ; |
8404: ca DEX ; |
8405: d0 e9 BNE .83f0 ; /
8407: ad 02 02 LDA $0202 ; \
840a: 4d 00 02 EOR $0200 ; | Update the controller status
840d: 2d 00 02 AND $0200 ; |
8410: 8d 04 02 STA $0204 ; |
8413: ad 03 02 LDA $0203 ; |
8416: 4d 01 02 EOR $0201 ; |
8419: 2d 01 02 AND $0201 ; |
841c: 8d 05 02 STA $0205 ; |
841f: 0d 04 02 ORA $0204 ; |
8422: 8d 07 02 STA $0207 ; |
8425: ad 00 02 LDA $0200 ; |
8428: 0d 01 02 ORA $0201 ; |
842b: 8d 06 02 STA $0206 ; /
842e: 60 RTS
*** SUBROUTINE ***
Zero-fill memory.
8447: 8e 1f 00 STX $001f
844a: 8c 1e 00 STY $001e
844d: 8d 2f 00 STA $002f
8450: a9 00 LDA #$00
8452: a8 TAY
8453: 91 1e STA ($1e),Y
8455: c8 INY
8456: cc 2f 00 CPY $002f
8459: d0 f8 BNE .8453
845b: 60 RTS
*** SUBROUTINE ***
Reset sprite data
845c: a2 00 LDX #$00
845e: 8e 55 01 STX $0155
8461: a9 f6 LDA #$f6
8463: 9d 00 07 STA $0700,X
8466: e8 INX
8467: d0 fa BNE .8463
8469: 60 RTS
*** SUBROUTINE ***
Check for soft reset, and clear the hi-score counter if the check fails
846a: a2 00 LDX #$00
846c: bd 89 84 LDA $8489,X ; Location of the check bytes
846f: dd 88 01 CMP $0188,X
8472: 9d 88 01 STA $0188,X
8475: d0 06 BNE .847d
8477: e8 INX
8478: e0 02 CPX #$02 ; Length of check data
847a: d0 f0 BNE .846c
847c: 60 RTS
847d: a0 07 LDY #$07 ; \
847f: a9 00 LDA #$00 ; | Nuke the high score
8481: 99 80 01 STA $0180,Y ; | (and also an extra byte?)
8484: 88 DEY ; |
8485: 10 fa BPL .8481 ; |
8487: 30 ee BMI .8477 ; /
*** SUBROUTINE ***
Wait for NMI.
848a: a9 ff LDA #$ff
848c: 8d 50 01 STA $0150
848f: ad 50 01 LDA $0150
8492: d0 fb BNE .848f
8494: 60 RTS
8495: a2 07 LDX #$07
8497: bd 48 01 LDA $0148,X
849a: 38 SEC
849b: e9 01 SBC #$01
849d: 90 03 BCC .84a2
849f: 9d 48 01 STA $0148,X
84a2: ca DEX
84a3: 10 f2 BPL .8497
84a5: 60 RTS
*** SUBROUTINE ***
Grab a halfscreen ID
85e8: 4a LSR A
85e9: 4a LSR A
85ea: 4a LSR A
85eb: a8 TAY
85ec: b1 ba LDA ($ba),Y
85ee: aa TAX
85ef: 60 RTS
*** SUBROUTINE ***
From 85f0, load zone CHR pages
From 85f6, set CHR pages
85f0: ae 92 01 LDX $0192
85f3: bd 7d fe LDA $fe7d,X
85f6: 8d 0a 00 STA $000a
85f9: 8d 00 60 STA $6000
85fc: 60 RTS
*** SUBROUTINE ***
Reset scroll
85fd: a9 00 LDA #$00 ; \
85ff: 8d 09 00 STA $0009 ; | Reset hardware scroll
8602: 8d 05 00 STA $0005 ; |
8605: 8d 05 20 STA $2005 ; |
8608: 8d 05 20 STA $2005 ; /
860b: ad 00 00 LDA $0000 ; \
860e: 29 fe AND #$fe ; | Also set horizontal name table to 0
8610: 8d 00 00 STA $0000 ; | (which is important when resetting the scroll)
8613: 8d 00 20 STA $2000 ; /
8616: 60 RTS
*** SUBROUTINE ***
Draw the zone
868a: 60 RTS
868b: ad 03 00 LDA $0003 ; \
868e: 8d 13 00 STA $0013 ; | To the left
8691: 38 SEC ; | (13) = (3)
8692: ad 02 00 LDA $0002 ; | (12) = (2) - 0x01
8695: e9 01 SBC #$01 ; |
8697: 4c 09 87 JMP .8709
869a: ad 02 00 LDA $0002 ; \
869d: 8d 10 00 STA $0010 ; | (2,3) -> (10,11)
86a0: ad 03 00 LDA $0003 ; | (6,7) -> (2,3)
86a3: 8d 11 00 STA $0011 ; |
86a6: ad 06 00 LDA $0006 ; | Shuffle
86a9: 8d 02 00 STA $0002 ; |
86ac: ad 07 00 LDA $0007 ; |
86af: 8d 03 00 STA $0003 ; /
86b2: ad 02 00 LDA $0002 ; \
86b5: 8d 08 00 STA $0008 ; | (8,9) = (2,3) >> 4
86b8: ad 03 00 LDA $0003 ; |
86bb: 4e 08 00 LSR $0008 ; | Divide by 16
86be: 6a ROR A ; |
86bf: 4e 08 00 LSR $0008 ; |
86c2: 6a ROR A ; |
86c3: 4e 08 00 LSR $0008 ; |
86c6: 6a ROR A ; |
86c7: 4e 08 00 LSR $0008 ; |
86ca: 6a ROR A ; |
86cb: 8d 09 00 STA $0009 ; /
86ce: 4e 00 00 LSR $0000 ; \
86d1: ad 08 00 LDA $0008 ; | Bit 0 of $0008 goes to bit 0 of
86d4: 4a LSR A ; | $0000
86d5: ad 00 00 LDA $0000 ; |
86d8: 2a ROL A ; |
86d9: 8d 00 00 STA $0000 ; /
86dc: ad 02 00 LDA $0002 ; \
86df: 29 01 AND #$01 ; | RTS if the difference between
86e1: 8d 20 00 STA $0020 ; | $0002 and $0010 is an even number.
86e4: ad 10 00 LDA $0010 ; |
86e7: 29 01 AND #$01 ; |
86e9: 4d 20 00 EOR $0020 ; |
86ec: f0 9c BEQ .868a ; /
86ee: 38 SEC ; \
86ef: ad 03 00 LDA $0003 ; | Check which direction we're going
86f2: ed 11 00 SBC $0011 ; |
86f5: ad 02 00 LDA $0002 ; |
86f8: ed 10 00 SBC $0010 ; |
86fb: 30 8e BMI .868b ; /
86fd: ad 03 00 LDA $0003 ; \
8700: 8d 13 00 STA $0013 ; | To the right
8703: 18 CLC ; | (13) = (3)
8704: ad 02 00 LDA $0002 ; | (12) = (2) + 0x11
8707: 69 11 ADC #$11 ; |
8709: 8d 12 00 STA $0012 ; /
870c: a2 20 LDX #$20 ; \
870e: a0 23 LDY #$23 ; | $12.4 ? $bf = 0x20 : $bf = 0x24
8710: 29 10 AND #$10 ; | $12.4 ? $bd = 0x23 : $bd = 0x27
8712: f0 04 BEQ .8718 ; |
8714: a2 24 LDX #$24 ; | Bit 4 of $12, but I don't know what
8716: a0 27 LDY #$27 ; | the other variables are yet.
8718: 8e bf 00 STX $00bf ; |
871b: 8c bd 00 STY $00bd ; /
871e: ad 12 00 LDA $0012
8721: 29 0f AND #$0f
8723: 0a ASL A
8724: 8d be 00 STA $00be ; ???
8727: 4a LSR A
8728: 4a LSR A
8729: 8d ab 00 STA $00ab ; ???
872c: 18 CLC
872d: 69 c0 ADC #$c0
872f: 8d bc 00 STA $00bc
8732: ad 12 00 LDA $0012 ; \
8735: 4a LSR A ; | Grab the ID of the halfscreen data
8736: 4a LSR A ; | to load
8737: 4a LSR A ; |
8738: a8 TAY ; |
8739: b1 ba LDA ($ba),Y ; /
873b: a2 00 LDX #$00 ; \
873d: 8e 15 00 STX $0015 ; | Calculate the address of the
8740: 0a ASL A ; | halfscreen layout data (relative to
8741: 2e 15 00 ROL $0015 ; | $ea50)
8744: 0a ASL A ; |
8745: 2e 15 00 ROL $0015 ; |
8748: 0a ASL A ; |
8749: 2e 15 00 ROL $0015 ; |
874c: 0a ASL A ; |
874d: 2e 15 00 ROL $0015 ; |
8750: 69 50 ADC #$50 ; |
8752: 8d 14 00 STA $0014 ; |
8755: ad 15 00 LDA $0015 ; |
8758: 69 ea ADC #$ea ; |
875a: 8d 15 00 STA $0015 ; /
875d: ad 12 00 LDA $0012 ; \
8760: 29 07 AND #$07 ; | Grab the ID of the first stripe to
8762: 0a ASL A ; | load
8763: a8 TAY ; |
8764: b1 14 LDA ($14),Y ; |
8766: 8d 23 00 STA $0023 ; /
8769: a2 00 LDX #$00 ; \
876b: 8e 17 00 STX $0017 ; | Calculate the address of the first
876e: 8e 19 00 STX $0019 ; | stripe layout (relative to $de50)
8771: 0a ASL A ; |
8772: 2e 17 00 ROL $0017 ; |
8775: 0a ASL A ; |
8776: 2e 17 00 ROL $0017 ; |
8779: 0a ASL A ; |
877a: 2e 17 00 ROL $0017 ; |
877d: 69 50 ADC #$50 ; |
877f: 8d 16 00 STA $0016 ; |
8782: ad 17 00 LDA $0017 ; |
8785: 69 de ADC #$de ; |
8787: 8d 17 00 STA $0017 ; /
878a: c8 INY ; \
878b: b1 14 LDA ($14),Y ; | Grab the second stripe ID
878d: 8d 24 00 STA $0024 ; /
8790: 0a ASL A ; \
8791: 2e 19 00 ROL $0019 ; | Calculate the second address
8794: 0a ASL A ; |
8795: 2e 19 00 ROL $0019 ; |
8798: 0a ASL A ; |
8799: 2e 19 00 ROL $0019 ; |
879c: 69 50 ADC #$50 ; |
879e: 8d 18 00 STA $0018 ; |
87a1: ad 19 00 LDA $0019 ; |
87a4: 69 de ADC #$de ; |
87a6: 8d 19 00 SDA $0019 ; /
87a9: a2 00 LDX #$00
87ab: 8e 25 00 STX $0025
87ae: a9 00 LDA #$00 ;/\ *** duplicated code ***
87b0: 8d 1b 00 STA $001b ; |
87b3: ac 25 00 LDY $0025 ; | Grab a block ID
87b6: b1 16 LDA ($16),Y ; /
87b8: 0a ASL A ; \
87b9: 2e 1b 00 ROL $001b ; | Calculate block layout address
87bc: 0a ASL A ; | (relative to $f3c0)
87bd: 2e 1b 00 ROL $001b ; |
87c0: 69 c0 ADC #$c0 ; |
87c2: 8d 1a 00 STA $001a ; |
87c5: ad 1b 00 LDA $001b ; |
87c8: 69 f3 ADC #$f3 ; |
87ca: 8d 1b 00 STA $001b ; /
87cd: a0 00 LDY #$00 ; \
87cf: b1 1a LDA ($1a),Y ; | Stuff tile data into RAM
87d1: 9d c0 00 STA $00c0,X ; |
87d4: c8 INY ; |
87d5: b1 1a LDA ($1a),Y ; |
87d7: 9d e0 00 STA $00e0,X ; |
87da: c8 INY ; |
87db: b1 1a LDA ($1a),Y ; |
87dd: 9d c1 00 STA $00c1,X ; |
87e0: c8 INY ; |
87e1: b1 1a LDA ($1a),Y ; |
87e3: 9d e1 00 STA $00e1,X ; /
87e6: ee 25 00 INC $0025
87e9: e8 INX
87ea: e8 INX
87eb: e0 10 CPX #$10 ; Run through 8 blocks
87ed: d0 bf BNE .87ae ;\/
87ef: a9 00 LDA #$00
87f1: 8d 25 00 STA $0025
87f4: a9 00 LDA #$00 ;/\
87f6: 8d 1b 00 STA $001b
87f9: ac 25 00 LDY $0025
87fc: b1 18 LDA ($18),Y ; Block ID is from second stripe
87fe: 0a ASL A
87ff: 2e 1b 00 ROL $001b
8802: 0a ASL A
8803: 2e 1b 00 ROL $001b
8806: 69 c0 ADC #$c0
8808: 8d 1a 00 STA $001a
880b: ad 1b 00 LDA $001b
880e: 69 f3 ADC #$f3
8810: 8d 1b 00 STA $001b
8813: a0 00 LDY #$00
8815: b1 1a LDA ($1a),Y
8817: 9d c0 00 STA $00c0,X
881a: c8 INY
881b: b1 1a LDA ($1a),Y
881d: 9d e0 00 STA $00e0,X
8820: c8 INY
8821: b1 1a LDA ($1a),Y
8823: 9d c1 00 STA $00c1,X
8826: c8 INY
8827: b1 1a LDA ($1a),Y
8829: 9d e1 00 STA $00e1,X
882c: ee 25 00 INC $0025
882f: e8 INX
8830: e8 INX
8831: e0 20 CPX #$20 ; Run through 8 more blocks
8833: d0 bf BNE .87f4 ;\/
8835: a2 00 LDX #$00
8837: ad 12 00 LDA $0012
883a: 29 10 AND #$10
883c: f0 02 BEQ .8840
883e: a2 40 LDX #$40
8840: 8a TXA
8841: 18 CLC
8842: 6d ab 00 ADC $00ab
8845: 8d ab 00 STA $00ab
8848: a2 cc LDX #$cc ; \
884a: a0 33 LDY #$33 ; | Set up masks for attribute updates
884c: ad 12 00 LDA $0012 ; |
884f: 4a LSR A ; | $00ad is the mask for new
8850: b0 04 BCS .8856 ; | $00ac is the mask for old
8852: a2 33 LDX #$33 ; |
8854: a0 cc LDY #$cc ; |
8856: 8e ad 00 STX $00ad ; |
8859: 8c ac 00 STY $00ac ; /
885c: ad 23 00 LDA $0023 ;/\ *** duplicated code ***
885f: a2 00 LDX #$00 ; | Calculate first stripe attribute
8861: 8e 1f 00 STX $001f ; | address (relative to $e650)
8864: 0a ASL A ; |
8865: 2e 1f 00 ROL $001f ; |
8868: 69 50 ADC #$50 ; |
886a: 8d 1e 00 STA $001e ; |
886d: ad 1f 00 LDA $001f ; |
8870: 69 e6 ADC #$e6 ; |
8872: 8d 1f 00 STA $001f ; /
8875: a0 00 LDY #$00 ; \
8877: b1 1e LDA ($1e),Y ; | Load and shuffle first stripe
8879: 8d 28 00 STA $0028 ; | attributes. Fairly straightforward,
887c: ac ab 00 LDY $00ab ; | so long as you understand how the
887f: 20 ae 89 JSR .89ae ; | PPU interprets attribute tables.
8882: b9 80 04 LDA $0480,Y ; |
8885: 2d ac 00 AND $00ac ; |
8888: 0d 2b 00 ORA $002b ; |
888b: 99 80 04 STA $0480,Y ; |
888e: 8d b0 00 STA $00b0 ; |
8891: 20 d5 89 JSR .89d5 ; |
8894: b9 88 04 LDA $0488,Y ; |
8897: 2d ac 00 AND $00ac ; |
889a: 0d 2b 00 ORA $002b ; |
889d: 99 88 04 STA $0488,Y ; |
88a0: 8d b1 00 STA $00b1 ; |
88a3: a0 01 LDY #$01 ; |
88a5: b1 1e LDA ($1e),Y ; |
88a7: 8d 28 00 STA $0028 ; |
88aa: ac ab 00 LDY $00ab ; |
88ad: 20 ae 89 JSR .89ae ; |
88b0: b9 90 04 LDA $0490,Y ; |
88b3: 2d ac 00 AND $00ac ; |
88b6: 0d 2b 00 ORA $002b ; |
88b9: 99 90 04 STA $0490,Y ; |
88bc: 8d b2 00 STA $00b2 ; |
88bf: 20 d5 89 JSR .89d5 ; |
88c2: b9 98 04 LDA $0498,Y ; |
88c5: 2d ac 00 AND $00ac ; |
88c8: 0d 2b 00 ORA $002b ; |
88cb: 99 98 04 STA $0498,Y ; |
88ce: 8d b3 00 STA $00b3 ;\/
88d1: ad 24 00 LDA $0024 ;/\
88d4: a2 00 LDX #$00 ; Like above, but for the second
88d6: 8e 1f 00 STX $001f ; stripe. (This would be a lot smaller
88d9: 0a ASL A ; as a loop.)
88da: 2e 1f 00 ROL $001f
88dd: 69 50 ADC #$50
88df: 8d 1e 00 STA $001e
88e2: ad 1f 00 LDA $001f
88e5: 69 e6 ADC #$e6
88e7: 8d 1f 00 STA $001f
88ea: a0 00 LDY #$00
88ec: b1 1e LDA ($1e),Y
88ee: 8d 28 00 STA $0028
88f1: ac ab 00 LDY $00ab
88f4: 20 ae 89 JSR .89ae
88f7: b9 a0 04 LDA $04a0
88fa: 2d ac 00 AND $00ac
88fd: 0d 2b 00 ORA $002b
8900: 99 a0 04 STA $04a0,Y
8903: 8d b4 00 STA $00b4
8906: 20 d5 89 JSR .89d5
8909: b9 a8 04 LDA $04a8,Y
890c: 2d ac 00 AND $00ac
890f: 0d 2b 00 ORA $002b
8912: 99 a8 04 STA $04a8,Y
8915: 8d b5 00 STA $00b5
8918: a0 01 LDY #$01
891a: b1 1e LDA ($1e),Y
891c: 8d 28 00 STA $0028
891f: ac ab 00 LDY $00ab
8922: 20 ae 89 JSR .89ae
8925: b9 b0 04 LDA $04b0,Y
8928: 2d ac 00 AND $00ac
892b: 0d 2b 00 ORA $002b
892e: 99 b0 04 STA $04b0,Y
8931: 8d b6 00 STA $00b6
8934: 20 d5 89 JSR .89d5
8937: b9 b8 04 LDA $04b8,Y
893a: 2d ac 00 AND $00ac
893d: 0d 2b 00 ORA $002b
8940: 99 b8 04 STA $04b8,Y
8943: 8d b7 00 STA $00b7 ;\/
8946: a2 00 LDX #$00
8948: bd 50 02 LDA $0250,X ; \ Door presence (visibility high bit
894b: 10 53 BPL .89a0 ; / set means it's a door)
894d: bd 51 02 LDA $0251,X ; \
8950: cd 12 00 CMP $0012 ; | Door X
8953: d0 4b BNE .89a0 ; /
8955: bd 52 02 LDA $0252,X ; \
8958: 4a LSR A ; | Door Y
8959: a8 TAY ; |
895a: 88 DEY ; |
895b: 8c 2f 00 STY $002f ; /
895e: 8e 2c 00 STX $002c
8961: bd 50 02 LDA $0250,X ; \ Door visibility: #$81, #$82, and
8964: 29 03 AND #$03 ; | #$c1 mean the door is visible.
8966: f0 38 BEQ .89a0 ; /
8968: a2 03 LDX #$03 ; \
896a: 29 01 AND #$01 ; | Also, #$82 means the door is open.
896c: d0 02 BNE .8970 ; |
896e: a2 07 LDX #$07 ; |
8970: 8e 2d 00 STX $002d ; /
8973: a9 03 LDA #$03 ; \
8975: 8d 2e 00 STA $002e ; | Load up the left side of the door
8978: bd 3e 8c LDA $8c3e,X ; |
897b: 99 c0 00 STA $00c0,Y ; |
897e: 88 DEY ; |
897f: ca DEX ; |
8980: ce 2e 00 DEC $002e ; |
8983: 10 f3 BPL .8978 ; /
8985: ae 2d 00 LDX $002d
8988: ac 2f 00 LDY $002f
898b: a9 03 LDA #$03 ; \
898d: 8d 2e 00 STA $002e ; | And the right side
8990: bd 46 8c LDA $8c46,X ; | (yes this is more duplicate code)
8993: 99 e0 00 STA $00e0,Y ; |
8996: 88 DEY ; |
8997: ca DEX ; |
8998: ce 2e 00 DEC $002e ; |
899b: 10 f3 BPL .8990 ; /
899d: ae 2c 00 LDX $002c
89a0: e8 INX
89a1: e8 INX
89a2: e8 INX
89a3: e8 INX
89a4: e0 10 CPX #$10
89a6: d0 a0 BNE .8948
89a8: a9 ff LDA #$ff ; \ Update nametable during VBlank
89aa: 8d 57 01 STA $0157 ; /
89ad: 60 RTS
*** SUBROUTINE ***
Load attributes for two blocks in a stripe
89ae: 29 c0 AND #$c0
89b0: 18 CLC
89b1: 2a ROL A
89b2: 2a ROL A
89b3: 2a ROL A
89b4: aa TAX
89b5: bd 36 8c LDA $8c36,X ; Lookup table to avoid bit shifts
89b8: 2d ad 00 AND $00ad
89bb: 8d 2b 00 STA $002b
89be: ad 28 00 LDA $0028
89c1: 29 30 AND #$30
89c3: 4a LSR A
89c4: 4a LSR A
89c5: 4a LSR A
89c6: 4a LSR A
89c7: aa TAX
89c8: bd 3a 8c LDA $8c3a,X ; Another lookup table
89cb: 2d ad 00 AND $00ad
89ce: 0d 2b 00 ORA $002b
89d1: 8d 2b 00 STA $002b
89d4: 60 RTS
*** SUBROUTINE ***
See above
89d5: ad 28 00 LDA $0028
89d8: 29 0c AND #$0c
89da: 4a LSR A
89db: 4a LSR A
89dc: aa TAX
89dd: bd 36 8c LDA $8c36,X
89e0: 2d ad 00 AND $00ad
89e3: 8d 2b 00 STA $002b
89e6: ad 28 00 LDA $0028
89e9: 29 03 AND #$03
89eb: aa TAX
89ec: bd 3a 8c LDA $8c3a,X
89ef: 2d ad 00 AND $00ad
89f2: 0d 2b 00 ORA $002b
89f5: 8d 2b 00 STA $002b
89f8: 60 RTS
*** SUBROUTINE ***
Update name/attribute tables
89f9: ad 57 01 LDA $0157 ; \
89fc: d0 03 BNE .8a01 ; | Check if it's uploading layout data
89fe: 4c e0 8b JMP .8be0 ; /
8a01: ad 00 00 LDA $0000 ; \
8a04: 09 04 ORA #$04 ; | Vertical nametable writing
8a06: 8d 00 00 STA $0000 ; |
8a09: 8d 00 20 STA $2000 ; /
8a0c: ae bf 00 LDX $00bf ; \
8a0f: ac be 00 LDY $00be ; | and the appropriate PPU address
8a12: 8e 06 20 STX $2006 ; |
8a15: 8c 06 20 STY $2006 ; /
8a18: a2 00 LDX #$00 ; \
8a1a: bd c0 00 LDA $00c0,X ; | Write 30 tiles
8a1d: 8d 07 20 STA $2007 ; |
8a20: e8 INX ; |
8a21: e0 1e CPX #$1e ; |
8a23: d0 f5 BNE .8a1a ; /
8a25: ae bf 00 LDX $00bf ; \
8a28: c8 INY ; | PPU address again
8a29: 8e 06 20 STX $2006 ; |
8a2c: 8c 06 20 STY $2006 ; /
8a2f: a2 20 LDX #$20 ; \
8a31: bd c0 00 LDA $00c0,X ; | Write another 30 tiles
8a34: 8d 07 20 STA $2007 ; |
8a37: e8 INX ; | I'm sure they could've done this
8a38: e0 3e CPX #$3e ; | in less space.
8a3a: d0 f5 BNE .8a31 ; /
8a3c: ad 00 00 LDA $0000 ; \
8a3f: 29 fb AND #$fb ; | Horizontal nametable writing
8a41: 8d 00 00 STA $0000 ; |
8a44: 8d 00 20 STA $2000 ; /
8a47: a0 00 LDY #$00
8a49: ae bd 00 LDX $00bd ; \
8a4c: ad bc 00 LDA $00bc ; | But it doesn't matter since the PPU
8a4f: 8e 06 20 STX $2006 ; | address is reset after each byte.
8a52: 8d 06 20 STA $2006 ; |
8a55: 18 CLC ; | Oh well. It works.
8a56: 69 08 ADC #$08 ; |
8a58: 8d bc 00 STA $00bc ; |
8a5b: b9 b0 00 LDA $00b0,Y ; |
8a5e: 8d 07 20 STA $2007 ; |
8a61: c8 INY ; |
8a62: c0 08 CPY #$08 ; |
8a64: d0 e6 BNE .8a4c ; /
8a66: a9 00 LDA #$00 ; \ Well that's one job done
8a68: 8d 57 01 STA $0157 ; /
8a6b: 60 RTS
8be0: ad 5a 01 LDA $015a ; \ Check if it's uploading door data
8be3: f0 50 BEQ .8c35 ; /
8be5: ad 00 00 LDA $0000 ; \
8be8: 09 04 ORA #$04 ; | Vertical nametables
8bea: 8d 00 00 STA $0000 ; |
8bed: 8d 00 20 STA $0020 ; /
8bf0: ae a7 00 LDX $00a7
8bf3: ac a6 00 LDY $00a6
8bf6: 8e 06 20 STX $2006
8bf9: 8c 06 20 STY $2006
8bfc: a0 04 LDY #$04
8bfe: ae a8 00 LDX $00a8
8c01: bd 3e 8c LDA $8c3e,X ; Door tilemap
8c04: 8d 07 20 STA $2007
8c07: e8 INX
8c08: 88 DEY
8c09: d0 f6 BNE .8c01
8c0b: ae a7 00 LDX $00a7
8c0e: ac a6 00 LDY $00a6
8c11: c8 INY
8c12: 8e 06 20 STX $2006
8c15: 8c 06 20 STY $2006
8c18: a0 04 LDY #$04
8c1a: ae a8 00 LDX $00a8
8c1d: bd 46 8c LDA $8c46,X ; More door tilemap
8c20: 8d 07 20 STA $2007
8c23: e8 INX
8c24: 88 DEY
8c25: d0 f6 BNE .8c1d
8c27: 8c 5a 01 STY $015a
8c2a: ad 00 00 LDA $0000 ; \
8c2d: 29 fb AND #$fb ; | Horizontal nametables (why bother?)
8c2f: 8d 00 00 STA $0000 ; |
8c32: 8d 00 20 STA $0020 ; /
8c35: 60 RTS
*** SUBROUTINE ***
New game
8c4e: a2 01 LDX #$01 ; \
8c50: a0 90 LDY #$90 ; | Clear $30 bytes starting at $0190
8c52: a9 30 LDA #$30 ; |
8c54: 20 47 84 JSR .8447 ; /
8c57: a2 04 LDX #$04 ; \
8c59: a0 00 LDY #$00 ; | Clear $80 bytes starting at $0400
8c5b: a9 80 LDA #$80 ; |
8c5d: 20 47 84 JSR .8447 ; /
8c60: ad 00 00 LDA $0000 ; \
8c63: 29 e7 AND #$e7 ; | Set pattern tables
8c65: 09 10 ORA #$10 ; |
8c67: 8d 00 00 STA $0000 ; |
8c6a: 8d 00 20 STA $2000 ; /
8c6d: 20 76 8c JSR .8c76 ; Load level
8c70: a9 06 LDA #$06 ; \ Give Wynn 7 lives
8c72: 8d 94 01 STA $0194 ; /
8c75: 60 RTS
*** SUBROUTINE ***
Load level
8c76: a2 01 LDX #$01 ; \
8c78: a0 c0 LDY #$c0 ; | Clear $20 bytes starting at $01c0
8c7a: a9 20 LDA #$20 ; |
8c7c: 20 47 84 JSR .8447 ; /
8c7f: a2 05 LDX #$05 ; \
8c81: a0 00 LDY #$00 ; | Clear $20 bytes starting at $0500
8c83: a9 20 LDA #$20 ; |
8c85: 20 47 84 JSR .8447 ; /
8c88: a2 02 LDX #$02 ; \
8c8a: a0 00 LDY #$00 ; | Clear $c0 bytes starting at $0200
8c8c: a9 c0 LDA #$c0 ; |
8c8e: 20 47 84 JSR .8447 ; /
8c91: a2 03 LDX #$03 ; \
8c93: a0 00 LDY #$00 ; | Clear $100 bytes starting at $0300
8c95: a9 00 LDA #$00 ; |
8c97: 20 47 84 JSR .8447 ; /
8c9a: 20 b3 8c JSR .8cb3 ; Load Wynn's starting position
8c9d: 20 e9 8c JSR .8ce9 ; Load collision data
8ca0: 20 fb 8d JSR .8dfb ; Load background palettes.
8ca3: 20 6b 8e JSR .8e6b ; Load sprite palettes.
8ca6: 20 c7 8e JSR .8ec7 ; Load door information
8ca9: 20 2b 8f JSR .8f2b ; Load treasure chests and powerups
8cac: 20 4a 90 JSR .904a ; Load LevelASM pointer
8caf: 20 10 90 JSR .9010 ; Load enemy ASM pointers
8cb2: 60 RTS
*** SUBROUTINE ***
Make Wynn appear in front of a door
8cb3: ad 96 01 LDA $0196 ; \
8cb6: a0 00 LDY #$00 ; | Calculate address of door data
8cb8: 8c 19 00 STY $0019 ; |
8cbb: 0a ASL A ; |
8cbc: 2e 19 00 ROL $0019 ; |
8cbf: 0a ASL A ; |
8cc0: 2e 19 00 ROL $0019 ; |
8cc3: 69 e0 ADC #$e0 ; |
8cc5: 8d 18 00 STA $0018 ; |
8cc8: ad 19 00 LDA $0019 ; |
8ccb: 69 d5 ADC #$d5 ; |
8ccd: 8d 19 00 STA $0019 ; /
8cd0: b1 18 LDA ($18),Y ; \ Load zone ID
8cd2: 8d 92 01 STA $0192 ; /
8cd5: c8 INY
8cd6: b1 18 LDA ($18),Y ; \ Load Wynn's X position
8cd8: 8d 10 02 STA $0210 ; /
8cdb: c8 INY
8cdc: b1 18 LDA ($18),Y ; \
8cde: 09 40 ORA #$40 ; | Load Wynn's Y position
8ce0: 8d 12 02 STA $0212 ; /
8ce3: a9 80 LDA #$80 ; \ Set Wynn's fine X position
8ce5: 8d 11 02 STA $0211 ; /
8ce8: 60 RTS
*** SUBROUTINE ***
Load collision data to $0500 (and set up pointers at $02c0)
8ce9: ad 92 01 LDA $0192 ; Load zone number
8cec: 0a ASL A ; Multiply by two
8ced: aa TAX ; Use it as X
8cee: bd 80 f7 LDA $f780,X ; \
8cf1: 8d ba 00 STA $00ba ; | Level address goes to $00ba
8cf4: bd 81 f7 LDA $f781,X ; |
8cf7: 8d bb 00 STA $00bb ; /
8cfa: a9 c0 LDA #$c0 ; \
8cfc: 8d b8 00 STA $00b8 ; | $02c0 goes to $00b8
8cff: a9 02 LDA #$02 ; |
8d01: 8d b9 00 STA $00b9 ; /
8d04: a0 00 LDY #$00
8d06: 8c 22 00 STY $0022
8d09: 8c 00 05 STY $0500
8d0c: c8 INY
8d0d: 8c 21 00 STY $0021
8d10: ac 21 00 LDY $0021 ; \
8d13: b1 ba LDA ($ba),Y ; | Huge freaking loop.
8d15: 8d 20 00 STA $0020 ; | Without figuring out exactly what it does,
8d18: a0 00 LDY #$00 ; | I can say it checks the level data for duplicate
8d1a: b1 ba LDA ($ba),Y ; | halfscreens and optimizes the collision data
8d1c: cd 20 00 CMP $0020 ; | pointers.
8d1f: f0 1e BEQ .8d3f ; |
8d21: c8 INY ; |
8d22: cc 21 00 CPY $0021 ; |
8d25: d0 f3 BNE .8d1a ; |
8d27: ee 22 00 INC $0022 ; |
8d2a: ad 22 00 LDA $0022 ; |
8d2d: 29 0f AND #$0f ; |
8d2f: ac 21 00 LDY $0021 ; |
8d32: 99 00 05 STA $0500,Y ; |
8d35: c8 INY ; |
8d36: 8c 21 00 STY $0021 ; |
8d39: c0 20 CPY #$20 ; |
8d3b: d0 d3 BNE .8d10 ; |
8d3d: f0 05 BEQ .8d44 ; | Actually, you know what?
8d3f: b9 00 05 LDA $0500,Y ; | Someone else can comment this subroutine.
8d42: 10 eb BPL .8d2f ; /
8d44: a2 00 LDX #$00
8d46: a0 00 LDY #$00
8d48: a9 00 LDA #$00
8d4a: 8d 13 00 STA $0013
8d4d: bd 00 05 LDA $0500,X
8d50: 0a ASL A
8d51: 2e 13 00 ROL $0013
8d54: 0a ASL A
8d55: 2e 13 00 ROL $0013
8d58: 0a ASL A
8d59: 2e 13 00 ROL $0013
8d5c: 0a ASL A
8d5d: 2e 13 00 ROL $0013
8d60: 0a ASL A
8d61: 2e 13 00 ROL $0013
8d64: 69 00 ADC #$00
8d66: 99 c0 02 STA $02c0,Y
8d69: ad 13 00 LDA $0013
8d6c: 69 05 ADC #$05
8d6e: c8 INY
8d6f: 99 c0 02 STA $02c0,Y
8d72: c8 INY
8d73: e8 INX
8d74: e0 20 CPX #$20
8d76: d0 d0 BNE .8d48
8d78: a9 00 LDA #$00
8d7a: 8d 20 00 STA $0020
8d7d: ac 20 00 LDY $0020
8d80: b1 ba LDA ($ba),Y
8d82: a2 00 LDX #$00
8d84: 8e 15 00 STX $0015
8d87: 0a ASL A
8d88: 2e 15 00 ROL $0015
8d8b: 0a ASL A
8d8c: 2e 15 00 ROL $0015
8d8f: 0a ASL A
8d90: 2e 15 00 ROL $0015
8d93: 0a ASL A
8d94: 2e 15 00 ROL $0015
8d97: 69 50 ADC #$50
8d99: 8d 14 00 STA $0014
8d9c: ad 15 00 LDA $0015
8d9f: 69 ea ADC #$ea
8da1: 8d 15 00 STA $0015
8da4: ad 20 00 LDA $0020
8da7: 0a ASL A
8da8: a8 TAY
8da9: b9 c0 02 LDA $02c0,Y
8dac: 8d 18 00 STA $0018
8daf: b9 c1 02 LDA $02c1,Y
8db2: 8d 19 00 STA $0019
8db5: a9 00 LDA #$00
8db7: 8d 23 00 STA $0023
8dba: ac 23 00 LDY $0023
8dbd: b1 14 LDA ($14),Y
8dbf: a2 00 LDX #$00
8dc1: 8e 1b 00 STX $001b
8dc4: 0a ASL A
8dc5: 2e 1b 00 ROL $001b
8dc8: 69 50 ADC #$50
8dca: 8d 1a 00 STA $001a
8dcd: ad 1b 00 LDA $001b
8dd0: 69 e8 ADC #$e8
8dd2: 8d 1b 00 STA $001b
8dd5: a0 00 LDY #$00
8dd7: b1 1a LDA ($1a),Y
8dd9: 91 18 STA ($18),Y
8ddb: c8 INY
8ddc: b1 1a LDA ($1a),Y
8dde: 91 18 STA ($18),Y
8de0: ee 18 00 INC $0018
8de3: ee 18 00 INC $0018
8de6: ee 23 00 INC $0023
8de9: ad 23 00 LDA $0023
8dec: c9 10 CMP #$10
8dee: d0 ca BNE .8dba
8df0: ee 20 00 INC $0020
8df3: ad 20 00 LDA $0020
8df6: c9 20 CMP #$20
8df8: d0 83 BNE .8d7d
8dfa: 60 RTS
*** SUBROUTINE ***
Load the background palette. Waste space.
8dfb: ad 92 01 LDA $0192
8dfe: 0a ASL A
8dff: aa TAX
8e00: bd 79 90 LDA $9079,X
8e03: 0a ASL A
8e04: 0a ASL A
8e05: 8d 25 00 STA $0025
8e08: bd 40 91 LDA $9140,X
8e0b: 0a ASL A
8e0c: 0a ASL A
8e0d: 8d 26 00 STA $0026
8e10: bd 41 91 LDA $9141,X
8e13: 0a ASL A
8e14: 0a ASL A
8e15: 8d 27 00 STA $0027
8e18: bd 78 90 LDA $9078,X
8e1b: 0a ASL A
8e1c: 0a ASL A
8e1d: aa TAX
8e1e: bd 76 92 LDA $9276,X
8e21: a0 1f LDY #$1f
8e23: 99 e0 01 STA $01e0,Y
8e26: 88 DEY
8e27: 10 fa BPL .8e23
8e29: a0 01 LDY #$01
8e2b: e8 INX
8e2c: bd 76 92 LDA $9276,X
8e2f: 99 e0 01 STA $01e0,Y
8e32: c8 INY
8e33: c0 04 CPY #$04
8e35: d0 f4 BNE .8e2b
8e37: ae 25 00 LDX $0025
8e3a: a0 01 LDY #$01
8e3c: e8 INX
8e3d: bd 76 92 LDA $9276,X
8e40: 99 e4 01 STA $01e4,Y
8e43: c8 INY
8e44: c0 04 CPY #$04
8e46: d0 f4 BNE .8e3c
8e48: ae 26 00 LDX #$0026
8e4b: a0 01 LDY #$01
8e4d: e8 INX
8e4e: bd 76 92 LDA $9276,X
8e51: 99 e8 01 STA $01e8,Y
8e54: c8 INY
8e55: c0 04 CPY #$04
8e57: d0 f4 BNE .8e4d
8e59: ae 27 00 LDX $0027
8e5c: a0 01 LDY #$01
8e5e: e8 INX
8e5f: bd 76 92 LDA $9276,X
8e62: 99 ec 01 STA $01ec,Y
8e65: c8 INY
8e66: c0 04 CPY #$04
8e68: d0 f4 BNE .8e5e
8e6a: 60 RTS
*** SUBROUTINE ***
Load the sprite palettes. Probably wasting space here too.
8e6b: a2 02 LDX #$02 ; \
8e6d: bd 70 92 LDA $9270,X ; | Load the palette used for bombs,
8e70: 9d f9 01 STA $01f9,X ; | the OSD, and a couple other things.
8e73: ca DEX ; |
8e74: 10 f7 BPL .8e6d ; /
8e76: a2 02 LDX #$02 ; \
8e78: bd 73 92 LDA $9273,X ; | Load the palette used for Wynn
8e7b: 9d fd 01 STA $01fd,X ; |
8e7e: ca DEX ; |
8e7f: 10 f7 BPL .8e78 ; /
8e81: ae 92 01 LDX $0192 ; \ Load the level sprite palette index
8e84: bd 08 92 LDA $9208,X ; /
8e87: 8d 23 00 STA $0023
8e8a: 29 f0 AND #$f0
8e8c: 4a LSR A
8e8d: 4a LSR A
8e8e: 4a LSR A
8e8f: 8d 24 00 STA $0024
8e92: 4a LSR A
8e93: 18 CLC
8e94: 6d 24 00 ADC $0024
8e97: aa TAX
8e98: a0 01 LDY #$01
8e9a: bd 56 93 LDA $9356,X
8e9d: 99 f0 01 STA $01f0,Y
8ea0: e8 INX
8ea1: c8 INY
8ea2: c0 04 CPY #$04
8ea4: d0 f4 BNE .8e9a
8ea6: ad 23 00 LDA $0023
8ea9: 29 0f AND #$0f
8eab: 8d 24 00 STA $0024
8eae: 0a ASL A
8eaf: 6d 24 00 ADC $0024
8eb2: aa TAX
8eb3: a0 01 LDY #$01
8eb5: bd 56 93 LDA $9356,X
8eb8: 99 f4 01 STA $01f4,Y
8ebb: e8 INX
8ebc: c8 INY
8ebd: c0 04 CPY #$04
8ebf: d0 f4 BNE .8eb5
8ec1: a9 ff LDA #$ff ; \ Flag to update palette during NMI?
8ec3: 8d 56 01 STA $0156 ; /
8ec6: 60 RTS
*** SUBROUTINE ***
Load doors for current zone
8ec7: a9 e0 LDA #$e0 ; \
8ec9: 8d 1c 00 STA $001c ; | Address of the main part of the door list
8ecc: a9 d5 LDA #$d5 ; | (zone, X, Y, destination)
8ece: 8d 1d 00 STA $001d ; /
8ed1: a9 50 LDA #$50 ; \
8ed3: 8d 1e 00 STA $001e ; | Address in RAM to store door information
8ed6: a9 02 LDA #$02 ; |
8ed8: 8d 1f 00 STA $001f ; /
8edb: a9 ff LDA #$ff
8edd: 8d 2e 00 STA $002e
8ee0: a0 00 LDY #$00
8ee2: b1 1c LDA ($1c),Y ; \
8ee4: c9 ff CMP #$ff ; | Check if this is the end of the list
8ee6: f0 42 BEQ .8f2a ; /
8ee8: ee 2e 00 INC $002e
8eeb: cd 92 01 CMP $0192 ; \ Check if a door is in the current zone
8eee: d0 29 BNE .8f19 ; /
8ef0: ae 2e 00 LDX $002e ; \
8ef3: a9 c1 LDA #$c1 ; | The door Wynn last came out of is always
8ef5: ec 96 01 CPX $0196 ; | visible and closed. The appearance of all
8ef8: f0 05 BEQ .8eff ; | other doors is determined by another list.
8efa: bd a0 d9 LDA $d9a0,X ; |
8efd: 09 80 ORA #$80 ; |
8eff: 91 1e STA ($1e),Y ; /
8f01: c8 INY ; \
8f02: b1 1c LDA ($1c),Y ; | The other three bytes are copied from the
8f04: 91 1e STA ($1e),Y ; | main list in ROM.
8f06: c8 INY ; |
8f07: b1 1c LDA ($1c),Y ; | It's stored in RAM like this:
8f09: 91 1e STA ($1e),Y ; | (visibility, X, Y, destination)
8f0b: c8 INY ; |
8f0c: b1 1c LDA ($1c),Y ; |
8f0e: 91 1e STA ($1e),Y ; /
8f10: 18 CLC ; \
8f11: ad 1e 00 LDA $001e ; | Increment RAM address
8f14: 69 04 ADC #$04 ; |
8f16: 8d 1e 00 STA $001e ; /
8f19: 18 CLC ; \
8f1a: ad 1c 00 LDA $001c ; | Increment ROM address
8f1d: 69 04 ADC #$04 ; |
8f1f: 8d 1c 00 STA $001c ; |
8f22: 90 bc BCC .8ee0 ; |
8f24: ee 1d 00 INC $001d ; /
8f27: 4c e0 8e JMP .8ee0
8f2a: 60 RTS
*** SUBROUTINE ***
Load treasure chests and powerups
WARNING! Powerup items MUST NOT be in front of treasure chests in ROM!
8f2b: a9 90 LDA #$90 ; \
8f2d: 8d 1c 00 STA $001c ; | Treasure table in ROM
8f30: a9 da LDA #$da ; | (zone, X, Y, treasure)
8f32: 8d 1d 00 STA $001d ; /
8f35: a9 30 LDA #$30 ; \
8f37: 8d 1e 00 STA $001e ; | Treasure data in RAM
8f3a: a9 02 LDA #$02 ; | (X, fine X, Y, fine Y, ???, ???, ID, value)
8f3c: 8d 1f 00 STA $001f ; /
8f3f: a9 00 LDA #$00
8f41: 8d 2f 00 STA $002f
8f44: a0 00 LDY #$00
8f46: b1 1c LDA ($1c),Y ; \
8f48: c9 ff CMP #$ff ; | Check if it's the end of the list
8f4a: f0 7c BEQ .8fc8 ; /
8f4c: cd 92 01 CMP $0192 ; \ Check if it's the current zone
8f4f: d0 63 BNE .8fb4 ; /
8f51: c8 INY ; \
8f52: b1 1c LDA ($1c),Y ; | Copy X to RAM
8f54: 88 DEY ; |
8f55: 91 1e STA ($1e),Y ; /
8f57: a9 80 LDA #$80 ; \
8f59: c8 INY ; | Set fine X
8f5a: 91 1e STA ($1e),Y ; /
8f5c: c8 INY ; \
8f5d: b1 1c LDA ($1c),Y ; | Set Y
8f5f: 91 1e STA ($1e),Y ; /
8f61: a9 00 LDA #$00 ; \
8f63: c8 INY ; | Set fine Y
8f64: 91 1e STA ($1e),Y ; /
8f66: b1 1c LDA ($1c),Y ; \ Check if it's a powerup
8f68: 30 20 BMI .8f8a ; /
8f6a: a8 TAY
8f6b: ad 2f 00 LDA $002f ; \
8f6e: 29 07 AND #$07 ; | Check if the treasure has already been
8f70: 8d 2e 00 STA $002e ; | collected
8f73: ad 2f 00 LDA $002f ; |
8f76: 4a LSR A ; |
8f77: 4a LSR A ; |
8f78: 4a LSR A ; |
8f79: aa TAX ; |
8f7a: bd 00 04 LDA $0400,X ; |
8f7d: ae 2e 00 LDX $002e ; |
8f80: 3d 68 90 AND $9068,X ; |
8f83: f0 1b BEQ .8fa0 ; |
8f85: a0 00 LDY #$00 ; /
8f87: 4c a0 8f JMP .8fa0
8f8a: a2 ff LDX #$ff ; \ This will break any treasure chests that
8f8c: 8e 2f 00 STX $002f ; / appear after a powerup in the ROM list.
8f8f: 29 07 AND #$07
8f91: a8 TAY
8f92: b9 50 04 LDA $0450,Y ; \
8f95: f0 09 BEQ .8fa0 ; | Check if Wynn still has the powerup, and
8f97: a0 01 LDY #$01 ; | set the fine X to zero if he does.
8f99: a9 00 LDA #$00 ; | (That makes it not appear for some reason.)
8f9b: 91 1e STA ($1e),Y ; | This will re-use RAM if the item need not appear.
8f9d: 4c b7 8f JMP .8fb7 ; /
8fa0: 98 TYA
8fa1: a0 07 LDY #$07 ; \ Set value
8fa3: 91 1e STA ($1e),Y ; /
8fa5: ad 2f 00 LDA $002f ; \
8fa8: 88 DEY ; | Set ID
8fa9: 91 1e STA ($1e),Y ; /
8fab: 18 CLC ; \
8fac: ad 1e 00 LDA $001e ; | Increment RAM address
8faf: 69 08 ADC #$08 ; |
8fb1: 8d 1e 00 STA $001e ; /
8fb4: ee 2f 00 INC $002f ; Increment ID
8fb7: 18 CLC ; \
8fb8: ad 1c 00 LDA $001c ; | Increment ROM address
8fbb: 69 04 ADC #$04 ; |
8fbd: 8d 1c 00 STA $001c ; |
8fc0: 90 82 BCC .8f44 ; |
8fc2: ee 1d 00 INC $001d ; /
8fc5: 4c 44 8f JMP .8f44
8fc8: 60 RTS
*** SUBROUTINE ***
Draw the initial view of the zone
8fc9: 20 63 83 JSR .8363 ; Blackout PPU
8fcc: 20 f0 85 JSR .85f0 ; Load zone CHR pages
8fcf: ad 10 02 LDA $0210 ; Wynn X
8fd2: 38 SEC
8fd3: e9 20 SBC #$20
8fd5: 8d 02 00 STA $0002
8fd8: a9 80 LDA #$80
8fda: 8d 03 00 STA $0003
8fdd: 8d 07 00 STA $0007
8fe0: 18 CLC
8fe1: ad 02 00 LDA $0002
8fe4: 69 01 ADC #$01
8fe6: 8d 06 00 STA $0006
8fe9: 20 9a 86 JSR .869a ; Draw part of the zone
8fec: 20 f9 89 JSR .89f9 ; And send it to the PPU
8fef: 38 SEC
8ff0: ad 10 02 LDA $0210
8ff3: e9 08 SBC #$08
8ff5: cd 02 00 CMP $0002
8ff8: d0 e6 BNE .8fe0
8ffa: ae 09 00 LDX $0009
8ffd: ac 05 00 LDY $0005
9000: ad 00 00 LDA $0000
9003: 8e 05 20 STX $2005
9006: 8c 05 20 STY $2005
9009: 8d 00 20 STA $2000
900c: 20 51 83 JSR .8351 ; Enable VBlank
900f: 60 RTS
*** SUBROUTINE ***
Load enemy ASM pointers
9010: ad 92 01 LDA $0192 ; \
9013: 0a ASL A ; | Get address of enemy data
9014: aa TAX ; |
9015: bd d9 af LDA $afd9,X ; |
9018: 8d 14 00 STA $0014 ; |
901b: bd da af LDA $afda,X ; |
901e: 8d 15 00 STA $0015 ; /
9021: a0 00 LDY #$00
9023: b1 14 LDA ($14),Y ; \
9025: 30 1e BMI .9045 ; | Load enemy ASM pointers
9027: 0a ASL A ; |
9028: aa TAX ; |
9029: bd 1a b1 LDA $b11a,X ; |
902c: 99 b0 02 STA $02b0,Y ; |
902f: bd 1b b1 LDA $b11b,X ; |
9032: 99 b8 02 STA $02b8,Y ; |
9035: c8 INY ; |
9036: d0 eb BNE .9023 ; /
9038: ad 1a b1 LDA $b11a ; \
903b: 99 b0 02 STA $02b0,Y ; | Fill extra slots with pointers
903e: ad 1b b1 LDA $b11b ; | to do nothing
9041: 99 b8 02 STA $02b8,Y ; |
9044: c8 INY ; |
9045: c0 08 CPY #$08 ; |
9047: d0 ef BNE .9038 ; /
9049: 60 RTS
*** SUBROUTINE ***
Load LevelASM pointer
904a: ad 92 01 LDA $0192
904d: 0a ASL A
904e: aa TAX
904f: bd a6 be LDA $bea6,X
9052: 8d de 01 STA $01de
9055: bd a7 be LDA $bea7,X
9058: 8d df 01 STA $01df
905b: 60 RTS
*** SUBROUTINE ***
Draw Wynn, be retarded
b88d: 60 RTS ; \
b88e: ad 17 02 LDA $0217 ; | Check if Wynn is on-screen
b891: 30 fa BMI .b88d ; /
b893: ac 14 02 LDY $0214
b896: 8c 28 00 STY $0028
b899: ac 15 02 LDY $0215
b89c: 8c 29 00 STY $0029
b89f: ad 10 02 LDA $0210 ; \ Grab a halfscreen ID based on
b8a2: 20 e8 85 JSR .85e8 ; / Wynn's X position
b8a5: a0 43 LDY #$43 ; \
b8a7: ad 16 02 LDA $0216 ; | Decide if Wynn should be flipped
b8aa: 29 01 AND #$01 ; | horizontally
b8ac: d0 02 BNE .b8b0 ; |
b8ae: a0 03 LDY #$03 ; /
b8b0: 98 TYA
b8b1: 1d e5 fd ORA $fde5,X ; Load priority bit from a table
b8b4: 8d 2a 00 STA $002a
b8b7: ad 16 02 LDA $0216
b8ba: a8 TAY
b8bb: 30 41 BMI .b8fe ; Wynn is dying
b8bd: 98 TYA ; \
b8be: 29 02 AND #$02 ; | Throwing
b8c0: d0 2f BNE .b8f1 ; /
b8c2: 98 TYA ; \
b8c3: 29 10 AND #$10 ; | Crouching
b8c5: d0 18 BNE .b8df ; /
b8c7: 98 TYA ; \
b8c8: 29 04 AND #$04 ; | In the air
b8ca: d0 17 BNE .b8e3 ; /
b8cc: ad 1c 02 LDA $021c ; \ Standing still
b8cf: f0 0a BEQ .b8db ; /
b8d1: ad 18 02 LDA $0218 ; \
b8d4: 29 0c AND #$0c ; | Wynn must be running, so pick frame
b8d6: 4a LSR A ; | 0, 1, 2, 3 in sequence.
b8d7: a8 TAY ; |
b8d8: 4c 0f b9 JMP .b90f ; /
b8db: a0 08 LDY #$08 ; \ Wynn standing still is frame 4
b8dd: d0 30 BNE .b90f ; /
b8df: a0 0c LDY #$0c ; \ Wynn crouching is frame 6
b8e1: d0 2c BNE .b90f ; /
b8e3: ad 29 00 LDA $0029 ; \ ***********************************
b8e6: 18 CLC ; | Completely screws up jumping if a
b8e7: 6d 04 00 ADC $0004 ; | specific memory address isn't zero
b8ea: 8d 29 00 STA $0029 ; / ***********************************
b8ed: a0 0a LDY #$0a ; \ Wynn in the air is frame 5
b8ef: d0 1e BNE .b90f ; /
b8f1: a0 10 LDY #$10 ; \
b8f3: ad 1a 02 LDA $021a ; | Wynn throwing is frames 8 and 9
b8f6: c9 02 CMP #$02 ; |
b8f8: 10 15 BPL .b90f ; |
b8fa: c8 INY ; |
b8fb: c8 INY ; |
b8fc: d0 11 BNE .b90f ; /
b8fe: 29 40 AND #$40 ; \ "Eww" death
b900: d0 0b BNE .b90d ; /
b902: ad 2a 00 LDA $002a ; \
b905: 29 fe AND #$fe ; | Wynn is petrified: regular graphics
b907: 8d 2a 00 STA $002a ; | with palette 3.
b90a: 4c bd b8 JMP .b8bd ; /
b90d: a0 0e LDY #$0e ; Wynn going "eww" is frame 7
b90f: b9 d7 ba LDA $bad7,Y ; \
b912: 8d 1a 00 STA $001a ; | Load pointer from within the
b915: b9 d8 ba LDA $bad8,Y ; | tilemap
b918: 8d 1b 00 STA $001b ; /
b91b: ae 55 01 LDX $0155 ; \
b91e: a0 00 LDY #$00 ; | Add Wynn to the sprite page.
b920: b1 1a LDA ($1a),Y ; |
b922: c9 ff CMP #$ff ; | For some reason, it has code to
b924: f0 3f BEQ .b965 ; | clip the sprite off the right side
b926: 9d 01 07 STA $0701,X ; | of the screen the same way the PPU
b929: ad 2a 00 LDA $002a ; | clips sprites off the left side. If
b92c: 9d 02 07 STA $0702,X ; | anyone can think of a good reason
b92f: 29 40 AND #$40 ; | to do it this way, I'd love to hear
b931: d0 06 BNE .b939 ; | it. (And by the way, it's already
b933: b9 ce ba LDA $bace,Y ; | checking for and preventing
b936: 4c 3c b9 JMP .b93c ; | wraparound.)
b939: b9 cf ba LDA $bacf,Y ; |
b93c: 18 CLC ; |
b93d: 30 09 BMI .b948 ; |
b93f: 6d 28 00 ADC $0028 ; |
b942: c9 fc CMP #$fc ; |
b944: b0 23 BCS .b969 ; |
b946: 90 09 BCC .b951 ; |
b948: 6d 28 00 ADC $0028 ; |
b94b: b0 04 BCS .b951 ; |
b94d: c9 fc CMP #$fc ; |
b94f: 90 18 BCC .b969 ; |
b951: 9d 03 07 STA $0703,X ; |
b954: b9 c6 ba LDA $bac6,Y ; |
b957: 18 CLC ; |
b958: 6d 29 00 ADC $0029 ; |
b95b: 9d 00 07 STA $0700,X ; |
b95e: c8 INY ; |
b95f: e8 INX ; |
b960: e8 INX ; |
b961: e8 INX ; |
b962: e8 INX ; |
b963: d0 bb BNE .b920 ; |
b965: 8e 55 01 STX $0155 ; |
b968: 60 RTS ; |
b969: c8 INY ; |
b96a: d0 b4 BNE .b920 ; /
*** SUBROUTINE ***
Draw title screen
bbde: 20 63 83 JSR .8363 ; Black screen
bbe1: 20 b0 83 JSR .83b0 ; Wipe name table 0
bbe4: 20 b4 83 JSR .83b4 ; Wipe name table 1
bbe7: 20 5c 84 JSR .845c ; Fill sprite area with dummy data ($0700)
bbea: a9 34 LDA #$34 ; \ Set CHR pages to 0x34
bbec: 20 f6 85 JSR .85f6 ; /
bbef: 20 fd 85 JSR .85fd ; Reset scrolling
bbf2: a9 20 LDA $#20 ; \
bbf4: 8d 20 00 STA $0020 ; | Write the title screen tiles to name table 0
bbf7: a9 81 LDA #$81 ; | Also it re-writes the address when it reaches
bbf9: 8d 21 00 STA $0021 ; | the page boundary ($2100) in PPU memory.
bbfc: a0 81 LDY #$81 ; | Utterly pointless, given how the PPU works.
bbfe: a2 00 LDX #$00 ; |
bc00: ad 20 00 LDA $0020 ; |
bc03: 8d 06 20 STA $2006 ; |
bc06: ad 21 00 LDA $0021 ; |
bc09: 8d 06 20 STA $2006 ; |
bc0c: bd 34 c6 LDA $c634,X ; |
bc0f: c9 80 CMP #$80 ; | (end-of-data code)
bc11: f0 10 BEQ .bc23 ; |
bc13: 8d 07 20 STA $2007 ; |
bc16: e8 INX ; |
bc17: c8 INY ; |
bc18: d0 f2 BNE .bc0c ; |
bc1a: 8c 21 00 STY $0021 ; |
bc1d: ee 20 00 INC $0020 ; |
bc20: 4c 00 bc JMP .bc00 ; /
bc23: a9 b0 LDA #$b0 ; \ (X-position)
bc25: 8d 21 00 STA $0021 ; | Write title screen "no" to sprite page ($0700)
bc28: a9 50 LDA #$50 ; | (Y-position)
bc2a: 8d 22 00 STA $0022 ; |
bc2d: a2 24 LDX #$24 ; |
bc2f: ac 55 01 LDY $0155 ; |
bc32: ad 22 00 LDA $0022 ; |
bc35: 99 00 07 STA $0700,Y ; |
bc38: c8 INY ; |
bc39: 8a TXA ; |
bc3a: 99 00 07 STA $0700,Y ; |
bc3d: c8 INY ; |
bc3e: a9 00 LDA #$00 ; |
bc40: 99 00 07 STA $0700,Y ; |
bc43: c8 INY ; |
bc44: ad 21 00 LDA $0021 ; |
bc47: 99 00 07 STA $0700,Y ; |
bc4a: c8 INY ; |
bc4b: e8 INX ; |
bc4c: ad 21 00 LDA $0021 ; |
bc4f: 18 CLC ; |
bc50: 69 08 ADC #$08 ; |
bc52: 8d 21 00 STA $0021 ; |
bc55: c9 c8 CMP #$c8 ; | (X-position + $18)
bc57: d0 d9 BNE .bc32 ; |
bc59: a9 b0 LDA #$b0 ; | (X-position)
bc5b: 8d 21 00 STA $0021 ; |
bc5e: ad 22 00 LDA $0022 ; |
bc61: 18 CLC ; |
bc62: 69 08 ADC #$08 ; |
bc64: 8d 22 00 STA $0022 ; |
bc67: c9 68 CMP #$68 ; | (Y-position + $18)
bc69: d0 c7 BNE .bc32 ; |
bc6b: 8c 55 01 STY $0155 ; /
bc6e: a9 01 LDA #$01 ; \
bc70: a2 22 LDX #$22 ; | Draw title screen text to name table
bc72: a0 26 LDY #$26 ; |
bc74: 20 82 be JSR .be82 ; | (1: -PUSH START BUTTON!-)
bc77: a9 02 LDA #$02 ; | (2: HI-SCORE)
bc79: a2 22 LDX #$22 ; |
bc7b: a0 88 LDY #$88 ; |
bc7d: 20 82 be JSR .be82 ; |
bc80: a9 00 LDA #$00 ; | (0: High score)
bc82: a2 22 LDX #$22 ; |
bc84: a0 92 LDY #$92 ; |
bc86: 20 82 be JSR .be82 ; |
bc89: a9 03 LDA #$03 ; | (3: © 1986 SUNSOFT)
bc8b: a2 23 LDX #$23 ; |
bc8d: a0 0a LDY #$0a ; |
bc8f: 20 82 be JSR .be82 ; |
bc92: a9 04 LDA #$04 ; | (4: SUN ELECTRONICS CORP.)
bc94: a2 23 LDX #$23 ; |
bc96: a0 46 LDY #$46 ; |
bc98: 20 82 be JSR .be82 ; /
bc9b: a2 23 LDX #$23 ; \
bc9d: a0 c0 LDY #$c0 ; | And attributes
bc9f: 20 9d 83 JSR .839d ; |
bca2: a9 55 LDA #$55 ; |
bca4: a0 20 LDY #$20 ; |
bca6: 8d 07 20 STA $2007 ; |
bca9: 88 DEY ; |
bcaa: d0 fa BNE .bca6 ; |
bcac: a9 aa LDA #$aa ; |
bcae: a0 10 LDY #$10 ; |
bcb0: 8d 07 20 STA $2007 ; |
bcb3: 88 DEY ; |
bcb4: d0 fa BNE .bcb0 ; |
bcb6: a9 ff LDA #$ff ; |
bcb8: a0 10 LDY #$10 ; |
bcba: 8d 07 20 STA $2007 ; |
bcbd: 88 DEY ; |
bcbe: d0 fa BNE .bcba ; /
bcc0: a0 20 LDY #$20
bcc2: a9 0f LDA #$0f
bcc4: 99 e0 01 STA $01e0,Y ; \
bcc7: 88 DEY ; | Blank palette stored in RAM
bcc8: d0 fa BNE .bcc4 ; /
bcca: a0 0f LDY #$0f ; \
bccc: b9 d9 bc LDA $bcd9,Y ; | Put title screen palettes in RAM
bccf: 99 e4 01 STA $01e4,Y ; |
bcd2: 88 DEY ; | $01e0 = palette stored in RAM
bcd3: 10 f7 BPL .bccc ; /
bcd5: 20 51 83 JSR .8351 ; Enable VBlank
bcd8: 60 RTS
*** SUBROUTINE ***
MYSTERY ADVENTURE START
bcea: 20 63 83 JSR .8363 ; Blackout ppu
bced: 20 74 be JSR .be74 ; Set up zone start screen
bcf0: 20 60 bd JSR .bd60 ; Draw zone start screen
bcf3: 20 b1 bd JSR .bdb1 ; Draw life counter
bcf6: a2 22 LDX #$22 ; \
bcf8: a0 24 LDY #$24 ; |
bcfa: a9 0a LDA #$0a ; | (10: MYSTERY ADVENTURE START..)
bcfc: 20 82 be JSR .be82 ; /
bcff: 4c 51 83 JMP .8351 ; Enable VBlank (and RTS)
*** SUBROUTINE ***
Draw zone start screen
bd60: ac 92 01 LDY $0192 ; \
bd63: c8 INY ; | Load zone number tilemap
bd64: 98 TYA ; |
bd65: 20 dd bd JSR .bddd ; /
bd68: a2 00 LDX #$00 ; \
bd6a: ad 92 01 LDA $0192 ; | Load ordinal indicator tilemap
bd6d: f0 1f BEQ .bd8e ; |
bd6f: e8 INX ; |
bd70: c9 01 CMP #$01 ; |
bd72: f0 1a BEQ .bd8e ; |
bd74: e8 INX ; |
bd75: c9 02 CMP #$02 ; |
bd77: f0 15 BEQ .bd8e ; |
bd79: e8 INX ; |
bd7a: c9 63 CMP #$63 ; |
bd7c: d0 10 BNE .bd8e ; |
bd7e: a9 0f LDA #$0f ; | Also replace zone number with "FIN"
bd80: 8d 20 00 STA $0020 ; | on zone 100
bd83: a9 12 LDA #$12 ; |
bd85: 8d 21 00 STA $0021 ; |
bd88: a9 17 LDA #$17 ; |
bd8a: 8d 22 00 STA $0022 ; |
bd8d: e8 INX ; |
bd8e: bd 2a c6 LDA $c62a,X ; | I wrote a better version of this.
bd91: 8d 23 00 STA $0023 ; | It fits exactly in this space.
bd94: bd 2f c6 LDA $c62f,X ; |
bd97: 8d 24 00 STA $0024 ; |
bd9a: a9 80 LDA #$80 ; |
bd9c: 8d 25 00 STA $0025 ; /
bd9f: a2 21 LDX #$21 ; \
bda1: a0 67 LDY #$67 ; | Draw the zone start screen text
bda3: a9 06 LDA #$06 ; | (6: variable)
bda5: 20 82 be JSR .be82 ; |
bda8: a2 21 LDX #$21 ; |
bdaa: a0 6d LDY #$6d ; |
bdac: a9 09 LDA #$09 ; | (9: ZONE !)
bdae: 4c 82 be JMP .be82 ; /
*** SUBROUTINE ***
Draw the life counter
bdb1: a9 28 LDA #$28 ; \
bdb3: 8d 20 00 STA $0020 ; | Draw x followed by the number of
bdb6: a9 ff LDA #$ff ; | lives
bdb8: 8d 21 00 STA $0021 ; |
bdbb: ac 94 01 LDY $0194 ; |
bdbe: c8 INY ; |
bdbf: 8c 22 00 STY $0022 ; |
bdc2: a9 80 LDA #$80 ; |
bdc4: 8d 23 00 STA $0023 ; |
bdc7: a2 23 LDX #$23 ; |
bdc9: a0 16 LDY #$16 ; |
bdcb: a9 06 LDA #$06 ; | (6: variable)
bdcd: 20 82 be JSR .be82 ; /
bdd0: a9 a0 LDA #$a0 ; \
bdd2: 8d 14 02 STA $0214 ; | Draw Wynn in the corner of the
bdd5: a9 d0 LDA #$d0 ; | screen
bdd7: 8d 15 02 STA $0215 ; |
bdda: 4c 8e b8 JMP .b88e ; /
*** SUBROUTINE ***
Put zone number tilemap in RAM
bddd: 8d 22 00 STA $0022
bde0: a9 00 LDA #$00
bde2: aa TAX
bde3: a8 TAY
bde4: ad 22 00 LDA $0022
bde7: c9 64 CMP #$64
bde9: 30 07 BMI .bdf2
bdeb: e8 INX
bdec: 38 SEC
bded: e9 64 SBC #$64
bdef: 4c e7 bd JMP .bde7
bdf2: c9 0a CMP #$0a
bdf4: 30 07 BMI .bdfd
bdf6: c8 INY
bdf7: 38 SEC
bdf8: e9 0a SBC #$0a
bdfa: 4c f2 bd JMP .bdf2
bdfd: e0 00 CPX #$00
bdff: d0 08 BNE .be09
be01: a2 ff LDX #$ff
be03: c0 00 CPY #$00
be05: d0 02 BNE .be09
be07: a0 ff LDY #$ff
be09: 8e 20 00 STX $0020
be0c: 8c 21 00 STY $0021
be0f: 8d 22 00 STA $0022
be12: a9 80 LDA #$80 ; \ This code only makes sense if this sub
be14: 8d 23 00 STA $0023 ; / is called from elsewhere.
be17: 60 RTS
*** SUBROUTINE ***
Set up zone start screen
be74: 20 5c 84 JSR .845c ; Clear sprites
be77: 20 b0 83 JSR .83b0 ; Clear name table 0
be7a: a9 34 LDA #$34 ; \ Set CHR to page #$34
be7c: 20 f6 85 JSR .85f6 ; /
be7f: 4c fd 85 JMP .85fd ; Reset scroll (then RTS)
*** SUBROUTINE ***
Draw title\zone start screen text
be82: 48 PHA
be83: 20 9d 83 JSR .839d ; Set up PPU
be86: 68 PLA
be87: 0a ASL A
be88: aa TAX
be89: bd 7f c5 LDA $c57f,X ; \
be8c: 8d 1e 00 STA $001e ; |
be8f: e8 INX ; | Prepare address for indirect-Y access
be90: bd 7f c5 LDA $c57f,X ; |
be93: 8d 1f 00 STA $001f ; /
be96: a0 00 LDY #$00
be98: b1 1e LDA ($1e),Y
be9a: c9 80 CMP #$80 ; End-of-data code
be9c: f0 07 BEQ .bea5
be9e: 8d 07 20 STA $2007
bea1: c8 INY
bea2: 4c 98 be JMP .be98
bea5: 60 RTS
*** SUBROUTINE ***
Initialize sound engine
c734: a2 40 LDX #$40 ; \
c736: a9 ff LDA #$ff ; | Fill $0030-$006f
c738: 9d 2f 00 STA $002f,X ; | with #$ff
c73b: ca DEX ; |
c73c: d0 fa BNE .c738 ; /
c73e: 8e 0b 00 STX $000b
c741: 8e 15 40 STX $4015 ; Mute everything
c744: 60 RTS
*** SUBROUTINE ***
Load data to sound engine
c745: 0a ASL A
c746: aa TAX
c747: bd 4d c9 LDA $c94d,X
c74a: 8d 1e 00 STA $001e
c74d: bd 4e c9 LDA $c94e,X
c750: 8d 1f 00 STA $001f
c753: a0 00 LDY #$00
c755: b1 1e LDA ($1e),Y
c757: 8d 2e 00 STA $002e
c75a: c8 INY
c75b: b1 1e LDA ($1e),Y
c75d: aa TAX
c75e: a9 01 LDA #$01
c760: 9d 54 00 STA $0054,X
c763: a9 ff LDA #$ff
c765: 9d 60 00 STA $0060,X
c768: c8 INY
c769: b1 1e LDA ($1e),Y
c76b: 9d 30 00 STA $0030,X
c76e: 8a TXA
c76f: 18 CLC
c770: 69 06 ADC #$06
c772: aa TAX
c773: e0 24 CPX #$24
c775: 90 f1 BCC .c768
c777: ce 2e 00 DEC $002e
c77a: d0 de BNE .c75a
c77c: 60 RTS
*** IRQ/BRK HANDLER ***
fff9: 40 RTI
fffa: 44 80 .addr $8044 ; NMI
fffc: 00 80 .addr $8000 ; Reset
fffe: f9 ff .addr $fff9 ; IRQ/BRK
