metroid:disassembly:ridley_page
This is an old revision of the document!
The Ridley page contains code and data for Ridley's hideout.
; ------------------- ; METROID source code ; ------------------- ; MAIN PROGRAMMERS ; HAI YUKAMI ; ZARU SOBAJIMA ; GPZ SENGOKU ; N.SHIOTANI ; M.HOUDAI ; (C) 1986 NINTENDO ; ;Commented by Dirty McDingus (nmikstas@yahoo.com) ;Disassembled using TRaCER. ;Can be reassembled using Ophis. ;Last updated: 3/9/2010 ;Hosted on wiki.metroidconstruction.com, with possible additions by wiki contributors. ;Ridley hideout (memory page 5) .org $8000 .include "MetroidDefines.txt" ;--------------------------------------[ Forward declarations ]-------------------------------------- .alias startup $C01A .alias NMI $C0D9 .alias ChooseRoutine $C27C .alias Adiv32 $C2BE .alias Amul16 $C2C5 .alias TwosCompliment $C3D4 .alias Base10Subtract $C3FB .alias SubtractHealth $CE92 .alias SetProjectileAnim $D2FA .alias UpdateEnemyAnim $E094 .alias VerticalRoomCentered $E21B ;-----------------------------------------[ Start of code ]------------------------------------------ L8000: JMP $F410 L8003: JMP $F438 L8006: JMP $F416 L8009: JMP $F852 L800C: JMP UpdateEnemyAnim ;($E094) L800F: JMP $F68D L8012: JMP $F83E L8015: JMP $F85A L8018: JMP $FBB9 L801B: JMP $FB88 L801E: JMP $FBCA L8021: JMP $F870 L8024: JMP ChooseRoutine ;($C27C) L8027: JMP $FD8F L802A: JMP $EB6E L802D: JMP $8244 L8030: JMP $8318 L8033: JMP $FA1E L8036: JMP $833F L8039: JMP $8395 L803C: JMP $DD8B L803F: JMP $FEDC L8042: JMP SubtractHealth ;($CE92) L8045: JMP Base10Subtract ;($C3FB) L8048: .word $84FD, $84A6, $844A, $844A, $84A6, $84FD, $83F4, $83F4 L8058: LDX PageIndex L805A: LDA $0405,X L805D: ASL L805E: BMI ++++++++ L8060: LDA EnStatus,X L8063: CMP #$02 L8065: BNE ++++++++ L8067: JSR $8244 L806A: LDA $00 L806C: BPL ++ L806E: JSR TwosCompliment ;($C3D4) L8071: STA $66 L8073:* JSR $83F5 L8076: JSR $80B8 L8079: DEC $66 L807B: BNE - L807D:* BEQ ++ L807F: STA $66 L8081:* JSR $844B L8084: JSR $80FB L8087: DEC $66 L8089: BNE - L808B:* JSR $8318 L808E: LDA $00 L8090: BPL ++ L8092: JSR TwosCompliment ;($C3D4) L8095: STA $66 L8097:* JSR $84A7 L809A: JSR $816E L809D: DEC $66 L809F: BNE - L80A1:* BEQ ++ L80A3: STA $66 L80A5:* JSR $84FE L80A8: JSR $8134 L80AB: DEC $66 L80AD: BNE - L80AF:* RTS L80B0: LDY EnDataIndex,X L80B3: LDA $977B,Y L80B6: ASL ;*2 L80B7: RTS L80B8: LDX PageIndex L80BA: BCS $80FA L80BC: LDA $0405,X L80BF: BPL $80C7 L80C1: JSR $81FC L80C4: JMP $80F6 L80C7: JSR $80B0 L80CA: BPL $80EA L80CC: LDA $6B03,X L80CF: BEQ $80C1 L80D1: BPL $80D8 L80D3: JSR $81B1 L80D6: BEQ $80E2 L80D8: SEC L80D9: ROR $0402,X L80DC: ROR EnCounter,X L80DF: JMP $80F6 L80E2: STA $0402,X L80E5: STA EnCounter,X L80E8: BEQ $80F6 L80EA: LDA $977B,Y L80ED: LSR L80EE: LSR L80EF: BCC $80F6 L80F1: LDA #$04 L80F3: JSR $856B L80F6: LDA #$01 L80F8: STA $66 L80FA: RTS L80FB: LDX PageIndex L80FD: BCS $8133 L80FF: LDA $0405,X L8102: BPL $810A L8104: JSR $81FC L8107: JMP $812F L810A: JSR $80B0 L810D: BPL $8123 L810F: LDA $6B03,X L8112: BEQ $8104 L8114: BPL $8120 L8116: CLC L8117: ROR $0402,X L811A: ROR EnCounter,X L811D: JMP $812F L8120: JSR $81B1 L8123: LDA $977B,Y L8126: LSR L8127: LSR L8128: BCC $812F L812A: LDA #$04 L812C: JSR $856B L812F: LDA #$01 L8131: STA $66 L8133: RTS L8134: LDX PageIndex L8136: BCS $816D L8138: JSR $80B0 L813B: BPL $815E L813D: LDA $0405,X L8140: BMI $8148 L8142: JSR $81C7 L8145: JMP $8169 L8148: LDA $6B03,X L814B: BEQ $8142 L814D: BPL $8159 L814F: CLC L8150: ROR $0403,X L8153: ROR $0407,X L8156: JMP $8169 L8159: JSR $81C0 L815C: BEQ $8169 L815E: LDA $977B,Y L8161: LSR L8162: BCC $8169 L8164: LDA #$01 L8166: JSR $856B L8169: LDA #$01 L816B: STA $66 L816D: RTS L816E: LDX PageIndex L8170: BCS $81B0 L8172: JSR $80B0 L8175: BPL $81A0 L8177: LDA $0405,X L817A: BMI $8182 L817C: JSR $81C7 L817F: JMP $81AC L8182: LDA $6B03,X L8185: BEQ $817C L8187: BPL $818E L8189: JSR $81C0 L818C: BEQ $8198 L818E: SEC L818F: ROR $0403,X L8192: ROR $0407,X L8195: JMP $81AC L8198: STA $0403,X L819B: STA $0407,X L819E: BEQ $81AC L81A0: JSR $80B0 L81A3: LSR L81A4: LSR L81A5: BCC $81AC L81A7: LDA #$01 L81A9: JSR $856B L81AC: LDA #$01 L81AE: STA $66 L81B0: RTS L81B1: JSR $81B8 L81B4: STA $6AFE,X L81B7: RTS L81B8: LDA #$20 L81BA: JSR $F744 L81BD: LDA #$00 L81BF: RTS L81C0: JSR $81B8 L81C3: STA $6AFF,X L81C6: RTS L81C7: JSR $81F6 L81CA: BNE $81F5 L81CC: LDA #$01 L81CE: JSR $856B L81D1: LDA $6AFF,X L81D4: JSR $C3D4 L81D7: STA $6AFF,X L81DA: JSR $81F6 L81DD: BNE $81F5 L81DF: JSR $80B0 L81E2: SEC L81E3: BPL $81ED L81E5: LDA #$00 L81E7: SBC $0407,X L81EA: STA $0407,X L81ED: LDA #$00 L81EF: SBC $0403,X L81F2: STA $0403,X L81F5: RTS L81F6: JSR $F74B L81F9: AND #$20 L81FB: RTS L81FC: JSR $81F6 L81FF: BNE $81F5 L8201: LDA #$04 L8203: JSR $856B L8206: LDA $6AFE,X L8209: JSR $C3D4 L820C: STA $6AFE,X L820F: JSR $81F6 L8212: BNE $822A L8214: JSR $80B0 L8217: SEC L8218: BPL $8222 L821A: LDA #$00 L821C: SBC EnCounter,X L821F: STA EnCounter,X L8222: LDA #$00 L8224: SBC $0402,X L8227: STA $0402,X L822A: RTS L822B: LDA $0405,X L822E: BPL $8232 L8230: LSR L8231: LSR L8232: LSR L8233: LDA $0408,X L8236: ROL L8237: ASL L8238: TAY L8239: LDA $96DB,Y L823C: STA $81 L823E: LDA $96DC,Y L8241: STA $82 L8243: RTS L8244: JSR $80B0 L8247: BPL $824C L8249: JMP $833F L824C: LDA $0405,X L824F: AND #$20 L8251: EOR #$20 L8253: BEQ $82A2 L8255: JSR $822B L8258: LDY EnCounter,X L825B: LDA ($81),Y L825D: CMP #$F0 L825F: BCC $827F L8261: CMP #$FA L8263: BEQ $827C L8265: CMP #$FB L8267: BEQ $82B0 L8269: CMP #$FC L826B: BEQ $82B3 L826D: CMP #$FD L826F: BEQ $82A5 L8271: CMP #$FE L8273: BEQ $82DE L8275: LDA #$00 L8277: STA EnCounter,X L827A: BEQ $8258 L827C: JMP $8312 L827F: SEC L8280: SBC EnDelay,X L8283: BNE $8290 L8285: STA EnDelay,X L8288: INY L8289: INY L828A: TYA L828B: STA EnCounter,X L828E: BNE $825B L8290: INC EnDelay,X L8293: INY L8294: LDA ($81),Y L8296: ASL L8297: PHP L8298: JSR Adiv32 ;($C2BE)Divide by 32. L829B: PLP L829C: BCC $82A2 L829E: EOR #$FF L82A0: ADC #$00 L82A2: STA $00 L82A4: RTS L82A5: INC EnCounter,X L82A8: INY L82A9: LDA #$00 L82AB: STA $6B01,X L82AE: BEQ $825B L82B0: PLA L82B1: PLA L82B2: RTS L82B3: LDA $6B03,X L82B6: BPL $82BE L82B8: JSR $E770 L82BB: JMP $82C3 L82BE: BEQ $82D2 L82C0: JSR $E77B L82C3: LDX PageIndex L82C5: BCS $82D2 L82C7: LDY EnCounter,X L82CA: INY L82CB: LDA #$00 L82CD: STA $6B03,X L82D0: BEQ $82D7 L82D2: LDY EnCounter,X L82D5: DEY L82D6: DEY L82D7: TYA L82D8: STA EnCounter,X L82DB: JMP $825B L82DE: DEY L82DF: DEY L82E0: TYA L82E1: STA EnCounter,X L82E4: LDA $6B03,X L82E7: BPL $82EF L82E9: JSR $E770 L82EC: JMP $82F4 L82EF: BEQ $82FB L82F1: JSR $E77B L82F4: LDX PageIndex L82F6: BCC $82FB L82F8: JMP $8258 L82FB: LDY EnDataIndex,X L82FE: LDA $968B,Y L8301: AND #$20 L8303: BEQ $8312 L8305: LDA $0405,X L8308: EOR #$05 L830A: ORA $968B,Y L830D: AND #$1F L830F: STA $0405,X L8312: JSR $81B1 L8315: JMP $82A2 L8318: JSR $80B0 L831B: BPL $8320 L831D: JMP $8395 L8320: LDA $0405,X L8323: AND #$20 L8325: EOR #$20 L8327: BEQ $833C L8329: LDY EnCounter,X L832C: INY L832D: LDA ($81),Y L832F: TAX L8330: AND #$08 L8332: PHP L8333: TXA L8334: AND #$07 L8336: PLP L8337: BEQ $833C L8339: JSR $C3D4 L833C: STA $00 L833E: RTS L833F: LDY #$0E L8341: LDA $6AFE,X L8344: BMI $835E L8346: CLC L8347: ADC EnCounter,X L834A: STA EnCounter,X L834D: LDA $0402,X L8350: ADC #$00 L8352: STA $0402,X L8355: BPL $8376 L8357: JSR $C3D4 L835A: LDY #$F2 L835C: BNE $8376 L835E: JSR $C3D4 L8361: SEC L8362: STA $00 L8364: LDA EnCounter,X L8367: SBC $00 L8369: STA EnCounter,X L836C: LDA $0402,X L836F: SBC #$00 L8371: STA $0402,X L8374: BMI $8357 L8376: CMP #$0E L8378: BCC $8383 L837A: LDA #$00 L837C: STA EnCounter,X L837F: TYA L8380: STA $0402,X L8383: LDA $6AFC,X L8386: CLC L8387: ADC EnCounter,X L838A: STA $6AFC,X L838D: LDA #$00 L838F: ADC $0402,X L8392: STA $00 L8394: RTS L8395: LDA #$00 L8397: STA $00 L8399: STA $02 L839B: LDA #$0E L839D: STA $01 L839F: STA $03 L83A1: LDA $0407,X L83A4: CLC L83A5: ADC $6AFF,X L83A8: STA $0407,X L83AB: STA $04 L83AD: LDA #$00 L83AF: LDY $6AFF,X L83B2: BPL $83B6 L83B4: LDA #$FF L83B6: ADC $0403,X L83B9: STA $0403,X L83BC: TAY L83BD: BPL $83D0 L83BF: LDA #$00 L83C1: SEC L83C2: SBC $0407,X L83C5: STA $04 L83C7: LDA #$00 L83C9: SBC $0403,X L83CC: TAY L83CD: JSR $E449 L83D0: LDA $04 L83D2: CMP $02 L83D4: TYA L83D5: SBC $03 L83D7: BCC $83E3 L83D9: LDA $00 L83DB: STA $0407,X L83DE: LDA $01 L83E0: STA $0403,X L83E3: LDA $6AFD,X L83E6: CLC L83E7: ADC $0407,X L83EA: STA $6AFD,X L83ED: LDA #$00 L83EF: ADC $0403,X L83F2: STA $00 L83F4: RTS L83F5: LDX PageIndex L83F7: LDA EnYRoomPos,X L83FA: SEC L83FB: SBC EnRadY,X L83FE: AND #$07 L8400: SEC L8401: BNE $8406 L8403: JSR $E770 L8406: LDY #$00 L8408: STY $00 L840A: LDX PageIndex L840C: BCC $844A L840E: INC $00 L8410: LDY EnYRoomPos,X L8413: BNE $8429 L8415: LDY #$F0 L8417: LDA $49 L8419: CMP #$02 L841B: BCS $8429 L841D: LDA $FC L841F: BEQ $844A L8421: JSR $8563 L8424: BEQ $844A L8426: JSR $855A L8429: DEY L842A: TYA L842B: STA EnYRoomPos,X L842E: CMP EnRadY,X L8431: BNE $8441 L8433: LDA $FC L8435: BEQ $843C L8437: JSR $8563 L843A: BNE $8441 L843C: INC EnYRoomPos,X L843F: CLC L8440: RTS L8441: LDA $0405,X L8444: BMI $8449 L8446: INC $6B01,X L8449: SEC L844A: RTS L844B: LDX PageIndex L844D: LDA EnYRoomPos,X L8450: CLC L8451: ADC EnRadY,X L8454: AND #$07 L8456: SEC L8457: BNE $845C L8459: JSR $E77B L845C: LDY #$00 L845E: STY $00 L8460: LDX PageIndex L8462: BCC $84A6 L8464: INC $00 L8466: LDY EnYRoomPos,X L8469: CPY #$EF L846B: BNE $8481 L846D: LDY #$FF L846F: LDA $49 L8471: CMP #$02 L8473: BCS $8481 L8475: LDA $FC L8477: BEQ $84A6 L8479: JSR $8563 L847C: BNE $84A6 L847E: JSR $855A L8481: INY L8482: TYA L8483: STA EnYRoomPos,X L8486: CLC L8487: ADC EnRadY,X L848A: CMP #$EF L848C: BNE $849D L848E: LDA $FC L8490: BEQ $8497 L8492: JSR $8563 L8495: BEQ $849D L8497: DEC EnYRoomPos,X L849A: CLC L849B: BCC $84A6 L849D: LDA $0405,X L84A0: BMI $84A5 L84A2: DEC $6B01,X L84A5: SEC L84A6: RTS L84A7: LDX PageIndex L84A9: LDA EnXRoomPos,X L84AC: SEC L84AD: SBC EnRadX,X L84B0: AND #$07 L84B2: SEC L84B3: BNE $84B8 L84B5: JSR $E8F1 L84B8: LDY #$00 L84BA: STY $00 L84BC: LDX PageIndex L84BE: BCC $84FD L84C0: INC $00 L84C2: LDY EnXRoomPos,X L84C5: BNE $84DA L84C7: LDA $49 L84C9: CMP #$02 L84CB: BCC $84DA L84CD: LDA $FD L84CF: BEQ $84D4 L84D1: JSR $8563 L84D4: CLC L84D5: BEQ $84FD L84D7: JSR $855A L84DA: DEC EnXRoomPos,X L84DD: LDA EnXRoomPos,X L84E0: CMP EnRadX,X L84E3: BNE $84F4 L84E5: LDA $FD L84E7: BEQ $84EE L84E9: JSR $8563 L84EC: BNE $84F4 L84EE: INC EnXRoomPos,X L84F1: CLC L84F2: BCC $84FD L84F4: LDA $0405,X L84F7: BPL $84FC L84F9: INC $6B01,X L84FC: SEC L84FD: RTS L84FE: LDX PageIndex L8500: LDA EnXRoomPos,X L8503: CLC L8504: ADC EnRadX,X L8507: AND #$07 L8509: SEC L850A: BNE $850F L850C: JSR $E8FC L850F: LDY #$00 L8511: STY $00 L8513: LDX PageIndex L8515: BCC $8559 L8517: INC $00 L8519: INC EnXRoomPos,X L851C: BNE $8536 L851E: LDA $49 L8520: CMP #$02 L8522: BCC $8536 L8524: LDA $FD L8526: BEQ $852D L8528: JSR $8563 L852B: BEQ $8533 L852D: DEC EnXRoomPos,X L8530: CLC L8531: BCC $8559 L8533: JSR $855A L8536: LDA EnXRoomPos,X L8539: CLC L853A: ADC EnRadX,X L853D: CMP #$FF L853F: BNE $8550 L8541: LDA $FD L8543: BEQ $854A L8545: JSR $8563 L8548: BEQ $8550 L854A: DEC EnXRoomPos,X L854D: CLC L854E: BCC $8559 L8550: LDA $0405,X L8553: BPL $8558 L8555: DEC $6B01,X L8558: SEC L8559: RTS L855A: LDA EnNameTable,X L855D: EOR #$01 L855F: STA EnNameTable,X L8562: RTS L8563: LDA EnNameTable,X L8566: EOR $FF L8568: AND #$01 L856A: RTS L856B: EOR $0405,X L856E: STA $0405,X L8571: RTS ;---------------------------------[ Object animation data tables ]---------------------------------- ;The following tables are indices into the FramePtrTable that correspond to various animations. The ;FramePtrTable represents individual frames and the entries in ObjectAnimIndexTbl are the groups of ;frames responsible for animaton Samus, her weapons and other objects. ObjectAnimIndexTbl: ;Samus run animation. L8572: .byte $03, $04, $05, $FF ;Samus front animation. L8576: .byte $07, $FF ;Samus jump out of ball animation. L8578: .byte $17 ;Samus Stand animation. L8579: .byte $08, $FF ;Samus stand and fire animation. L857B: .byte $22, $FF ;Samus stand and jump animation. L857D: .byte $04 ;Samus Jump animation. L857E: .byte $10, $FF ;Samus summersault animation. L8580: .byte $17, $18, $19, $1A, $FF ;Samus run and jump animation. L8585: .byte $03, $17, $FF ;Samus roll animation. L8588: .byte $1E, $1D, $1C, $1B, $FF ;Bullet animation. L858D: .byte $28, $FF ;Bullet hit animation. L858F: .byte $2A, $F7, $FF ;Samus jump and fire animation. L8592: .byte $12, $FF ;Samus run and fire animation. L8594: .byte $0C, $0D, $0E, $FF ;Samus point up and shoot animation. L8598: .byte $30 ;Samus point up animation. L8599: .byte $2B, $FF ;Door open animation. L859B: .byte $31, $31, $33, $F7, $FF ;Door close animation. L85A0: .byte $33, $33, $31, $FF ;Samus explode animation. L85A4: .byte $35, $FF ;Samus jump and point up animation. L85A6: .byte $39, $38, $FF ;Samus run and point up animation. L85A9: .byte $40, $41, $42, $FF ;Samus run, point up and shoot animation 1. L85AD: .byte $46, $FF ;Samus run, point up and shoot animation 2. L85AF: .byte $47, $FF ;Samus run, point up and shoot animation 3. L85B1: .byte $48, $FF ;Samus on elevator animation 1. L85B3: .byte $07, $F7, $F7, $07, $F7, $F7, $F7, $07, $F7, $F7, $F7, $F7, $07, $F7, $FF ;Samus on elevator animation 2. L85C2: .byte $23, $F7, $F7, $23, $F7, $F7, $F7, $23, $F7, $F7, $F7, $F7, $23, $F7, $FF ;Samus on elevator animation 3. L85D1: .byte $07, $F7, $F7, $F7, $F7, $07, $F7, $F7, $F7, $07, $F7, $F7, $07, $F7, $FF ;Samus on elevator animation 4. L85E0: .byte $23, $F7, $F7, $F7, $F7, $23, $F7, $F7, $F7, $23, $F7, $F7, $23, $F7, $FF ;Wave beam animation. L85EF: .byte $4B, $FF ;Bomb tick animation. L85F1: .byte $4E, $4F, $FF ;Bomb explode animation. L85F4: .byte $3C, $4A, $49, $4A, $4D, $4A, $4D, $F7, $FF ;Missile left animation. L85FD: .byte $26, $FF ;Missile right animation. L85FF: .byte $25, $FF ;Missile up animation. L8601: .byte $27, $FF ;Missile explode animation. L8603: .byte $67, $67, $67, $68, $68, $69, $F7, $FF ;----------------------------[ Sprite drawing pointer tables ]-------------------------------------- ;The above animation pointers provide an index into the following table ;for the animation sequences. FramePtrTable: L860B: .word $87CB, $87CB, $87CB, $87CB, $87DD, $87F0, $8802, $8802 L861B: .word $8818, $882C, $882C, $882C, $882C, $883E, $8851, $8863 L862B: .word $8863, $8874, $8874, $8885, $8885, $8885, $8885, $8885 L863B: .word $888F, $8899, $88A3, $88AD, $88B8, $88C3, $88CE, $88D9 L864B: .word $88D9, $88D9, $88D9, $88EE, $88F8, $88F8, $88FE, $8904 L865B: .word $890A, $890F, $890F, $8914, $8928, $8928, $8928, $8928 L866B: .word $8928, $893C, $8948, $8948, $8954, $8954, $8961, $8961 L867B: .word $8961, $8974, $8987, $8987, $8987, $8995, $8995, $8995 L868B: .word $8995, $89A9, $89BE, $89D2, $89D2, $89D2, $89D2, $89E6 L869B: .word $89FB, $8A0F, $8A1D, $8A21, $8A26, $8A26, $8A3C, $8A41 L86AB: .word $8A46, $8A4E, $8A56, $8A5E, $8A66, $8A6E, $8A76, $8A7E L86BB: .word $8A86, $8A8E, $8A9C, $8AA1, $8AA6, $8AAE, $8ABA, $8AC4 L86CB: .word $8AC4, $8AC4, $8AC4, $8AC4, $8AC4, $8AC4, $8AD8, $8AE9 L86DB: .word $8AF3, $8B03 ;The following table provides pointers to data used for the placement of the sprites that make up ;Samus and other non-enemy objects. PlacePtrTable: L86DF: .word $8701, $871F, $872B, $8737, $8747, $8751, $86FD, $875D L86EF: .word $8775, $878D, $8791, $8799, $87A5, $8749, $87B1 ;------------------------------[ Sprite placement data tables ]------------------------------------- ;Sprite placement data. The placement data is grouped into two byte segments. The first byte is the ;y placement byte and the second is the x placement byte. If the MSB is set in the byte, the byte ;is in twos compliment format so when it is added to the object position, the end result is to ;decrease the x or y position of the sprite. The Samus explode table is a special case with special ;data bytes. The format of those data bytes is listed just above the Samus explode data. Each data ;table has a graphical representation above it to show how the sprites are laid out with respect to ;the object position, which is represented by a * in the table. The numbers in the lower right corner ;of the boxes indicates which segment of the data table represents which box in the graphic. Each box ;is filled with an 8x8 sprite. ;Samus pointing up frames. Added to the main Samus animation table below. ; +--------+ <----0 ; +--------+ <----1 ; | | ; | | ; | | ; +--------+ ; +--------+ ; ; ; ; ; ; ; ; ; * ; +--0--+ +--1--+ L86FD: .byte $E8, $FC, $EA, $FC ;Several Samus frames. ; +-------+ <---------------D ; +-------+ <---------------E ; | | ; | +---+----+--------+ ; | | | | | ; +-------+ | | ; +-------+ | | ; | 0| 1| ; +----+-+-+----+-+-+--------+ ; | | | | | | | | ; | | | | | | | | ; | | | | | | | | ; | | |2| B|C|3| 4| ; +----+-+-+----+-+-*--------+--------+ ; | | | | ; | | | | ; | | | | ; | 5| 6| 7| ; +--------+--------+--------+ ; | | | | ; | | | | ; | | | | ; | 8| 9| A| ; +--------+--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ +--6--+ +--7--+ L8701: .byte $F0, $F8, $F0, $00, $F8, $F0, $F8, $F8, $F8, $00, $00, $F8, $00, $00, $00, $08 ; +--8--+ +--9--+ +--A--+ +--B--+ +--C--+ +--D--+ +--E--+ L8711: .byte $08, $F8, $08, $00, $08, $08, $F8, $F4, $F8, $F6, $EC, $F4, $EE, $F4 ;Samus summersault and roll frames. ; +--------+--------+ ; | | | ; | | | ; | | | ; | 0| 1| ; +--------+--------+ ; | | | ; +--------+--------+ ; | * | ; | 2| 3| ; +--------+--------+ ; | 4| 5| ; +--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ L871F: .byte $F3, $F8, $F3, $00, $FB, $F8, $FB, $00, $03, $F8, $03, $00 ;Samus summersault frame. ; +--------+--------+--------+ ; | | | | ; | | | | ; | | | | ; | 0| 1| 2| ; +--------+-*------+--------+ ; | | | | ; | | | | ; | | | | ; | 3| 4| 5| ; +--------+--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ L872B: .byte $F8, $F6, $F8, $FE, $F8, $06, $00, $F6, $00, $FE, $00, $06 ;Elevator frame. ; +--------+--------+--------+--------+--------+--------+--------+--------+ ; | | | | | | | | | ; | | | | | | | | | ; | | * | | | | | | ; | 0| 1| 2| 3| 4| 5| 6| 7| ; +--------+--------+--------+--------+--------+--------+--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ +--6--+ +--7--+ L8737: .byte $FC, $F0, $FC, $F8, $FC, $00, $FC, $08, $FC, $10, $FC, $18, $FC, $20, $FC, $28 ;Several projectile frames. ; +--------+ ; | | ; | | ; | * | ; | 0| ; +--------+ ; +--0--+ L8747: .byte $FC, $FC ;Power-up items and bomb explode frames. ; +--------+--------+ ; | | | ; | | | ; | | | ; | 0| 1| ; +--------*--------+ ; | | | ; | | | ; | | | ; | 2| 3| ; +--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ L8749: .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00 ;Door frames. ; +--------+ ; | | ; | | ; | | ; | 0| ; +--------+ ; | | ; | | ; | | ; | 1| ; +--------+ ; | | ; | | ; | | ; | 2| ; *--------+ ; | | ; | | ; | | ; | 3| ; +--------+ ; | | ; | | ; | | ; | 4| ; +--------+ ; | | ; | | ; | | ; | 5| ; +--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ L8751: .byte $E8, $00, $F0, $00, $F8, $00, $00, $00, $08, $00, $10, $00 ;Samus explode. Special case. The bytes that are #$8X indicate displacement data will be loaded ;from a table for the y direction and from a counter for the x direction. The initial displacement ;bytes start at $8769. If the LSB is clear in the bytes where the upper nibble is #$8, those ;data bytes will be used to decrease the x position of the sprite each frame. If the LSB is set, ;the data bytes will increase the x position of the sprite each frame. ; +--------+--------+ ; | | | ; | | | ; | | | ; | 0| 1| ; +--------+--------+ ; | | | ; | | | ; | * | ; | 2| 3| ; +--------+--------+ ; | | | ; | | | ; | | | ; | 4| 5| ; +--------+--------+ ; +--0--+ +--1--+ L875D: .byte $80, $80, $81, $81, $82, $82, $83, $83, $84, $84, $85, $85, $F4, $F8, $F4, $00 ; +--2--+ +--3--+ +--4--+ +--5--+ L876D: .byte $FC, $F8, $FC, $00, $04, $F8, $04, $00 ;Bomb explode frame. ; +--------+--------+--------+--------+ ; | | | | | ; | | | | | ; | | | | | ; | 3| 4| 0| 1| ; +--------+--------+--------+--------+ ; | | | | ; | | | | ; | | | | ; | 5| | 2| ; +--------+ * +--------+ ; | | | | ; | | | | ; | | | | ; | 6| | 9| ; +--------+--------+--------+--------+ ; | | | | | ; | | | | | ; | | | | | ; | 7| 8| A| B| ; +--------+--------+--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ +--6--+ +--7--+ L8775: .byte $F0, $00, $F0, $08, $F8, $08, $F0, $F0, $F0, $F8, $F8, $F0, $00, $F0, $08, $F0 ; +--8--+ +--9--+ +--A--+ +--B--+ L8785: .byte $08, $F8, $00, $08, $08, $00, $08, $08 ;Missile up frame. ; +--------+ ; | | ; | | ; | | ; | 0| ; +----*---+ ; | | ; | | ; | | ; | 1| ; +--------+ ; +--0--+ +--1--+ L878D: .byte $F8, $FC, $00, $FC ;Missile left/right and missile explode frames. ; +--------+--------+ +--------+--------+ ; | | | | | | ; | | | | | | ; | * | | | | ; | 0| 1| | 2| 3| ; +--------+--------+ +--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ L8791: .byte $FC, $F8, $FC, $00, $FC, $10, $FC, $18 ;Missile explode frame. ; +--------+--------+ ; | | | ; | | | ; | | | ; | 1| 2| ; +--------+--------+--------+--------+ ; | | | | ; | | | | ; | | * | | ; | 0| | 3| ; +--------+--------+--------+--------+ ; | | | ; | | | ; | | | ; | 4| 5| ; +--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ L8799: .byte $FC, $F0, $F4, $F8, $F4, $00, $FC, $08, $04, $F8, $04, $00 ;Missile explode frame. ; +--------+ +--------+ ; | | | | ; | | | | ; | | | | ; | 1| | 2| ; +--------+ +--------+ ; ; ; ; ; +--------+ +--------+ ; | | | | ; | | | | ; | | * | | ; | 0| | 3| ; +--------+ +--------+ ; ; ; ; ; +--------+ +--------+ ; | | | | ; | | | | ; | | | | ; | 4| | 5| ; +--------+ +--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ L87A5: .byte $FC, $E8, $EC, $F0, $EC, $08, $FC, $10, $0C, $F0, $0C, $08 ;Statue frames. ; +--------+--------+--------+ ; | | | | ; | | | | ; | | | | ; | 4| 5| 6| ; +--------+--------+--------+ ; | | | | ; | | | | ; | | | | ; | 7| 8| 9| ; +--------+--------+--------+ ; | | | | ; | | | | ; | | | | ; | A| B| C| ; +--------+--------*--------+ ; | | | ; | | | ; | | | ; | 0| 1| ; +--------+--------+ ; | | | ; | | | ; | | | ; | 2| 3| ; +--------+--------+ ; +--0--+ +--1--+ +--2--+ +--3--+ +--4--+ +--5--+ +--6--+ +--7--+ L87B1: .byte $00, $F8, $00, $00, $08, $F8, $08, $00, $E8, $F0, $E8, $F8, $E8, $00, $F0, $F0 ; +--8--+ +--9--+ +--A--+ +--B--+ +--C--+ L87C1: .byte $F0, $F8, $F0, $00, $F8, $F0, $F8, $F8, $F8, $00 ;-------------------------------[ Sprite frame data tables ]--------------------------------------- ;Frame drawing data. The format for the frame drawing data is as follows: ;There are 4 control bytes associated with the frame data and they are #$FC, #$FD, #$FE and #$FF. ; ;#$FC displaces the location of the object in the x and y direction. The first byte following #$FC ;is the y displacement of the object and the second byte is the x displacement. any further bytes ;are pattern table index bytes until the next control byte is reached. ; ;#$FD tells the program to change the sprite control byte. The next byte after #$FD is the new ;control byte. Only the 4 upper bits are used. Any further bytes are pattern table index bytes ;until the next control byte is reached. ; ;#$FE causes the next placement position to be skipped. Any further bytes are pattern table index ;bytes until the next control byte is reached. ; ;#$FF ends the frame drawing data segment. ; ;The first 3 bytes are unique. The first byte contains two parts: AAAABBBB. The upper 4 bits ;are sprite control data which control mirroring and color bits. The lower 4 bits are multiplied ;by 2 and used as an index into the PlacePtrTable to find the proper placement data for the ;current frame. The second byte is saved as the object's y radius and the third byte is saved ;as the object's x radius. ;Samus run. L87CB: .byte $40, $0F, $04, $00, $01, $FD, $20, $FE, $41, $40, $FD, $60, $20, $21, $FE, $FE L87DB: .byte $31, $FF ;Samus run. L87DD: .byte $40, $0F, $04, $02, $03, $FD, $20, $FE, $43, $42, $FD, $60, $22, $23, $FE, $32 L87ED: .byte $33, $34, $FF ;Samus run. L87F0: .byte $40, $0F, $04, $05, $06, $FD, $20, $FE, $45, $44, $FD, $60, $25, $26, $27, $35 L8800: .byte $36, $FF ;Samus facing forward. L8802: .byte $00, $0F, $04, $09, $FD, $60, $09, $FD, $20, $FE, $19, $1A, $FD, $20, $29, $2A L8812: .byte $FE, $39, $FD, $60, $39, $FF ;Samus stand. L8818: .byte $40, $0F, $04, $FD, $20, $0E, $0D, $FE, $1E, $1D, $2E, $2D, $FE, $FD, $60, $3B L8828: .byte $3C, $FE, $17, $FF ;Samus run and fire. L882C: .byte $40, $0F, $04, $00, $01, $FD, $20, $4B, $4A, $49, $FD, $60, $20, $21, $FE, $FE L883C: .byte $31, $FF ;Samus run and fire. L883E: .byte $40, $0F, $04, $00, $01, $FD, $20, $4B, $4A, $49, $FD, $60, $22, $23, $FE, $32 L884E: .byte $33, $34, $FF ;Samus run and fire. L8851: .byte $40, $0F, $04, $00, $01, $FD, $20, $4B, $4A, $49, $FD, $60, $25, $26, $27, $35 L8861: .byte $36, $FF ;Samus stand and jump. L8863: .byte $40, $0F, $04, $00, $01, $FD, $20, $FE, $41, $40, $FD, $60, $22, $07, $08, $32 L8873: .byte $FF ;Samus jump and fire. L8874: .byte $40, $0F, $04, $00, $01, $FD, $20, $4B, $4A, $49, $FD, $60, $22, $07, $08, $32 L8884: .byte $FF ;Samus summersault. L8885: .byte $41, $0F, $04, $52, $53, $62, $63, $72, $73, $FF ;Samus summersault. L888F: .byte $42, $0F, $04, $54, $55, $56, $64, $65, $66, $FF ;Samus summersault. L8899: .byte $81, $0F, $04, $52, $53, $62, $63, $72, $73, $FF ;Samus summersault. L88A3: .byte $82, $0F, $04, $54, $55, $56, $64, $65, $66, $FF ;Samus roll. L88AD: .byte $01, $08, $04, $FC, $03, $00, $50, $51, $60, $61, $FF ;Samus roll. L88B8: .byte $81, $08, $04, $FC, $FD, $00, $50, $51, $60, $61, $FF ;Samus roll. L88C3: .byte $C1, $08, $04, $FC, $FD, $00, $50, $51, $60, $61, $FF ;Samus roll. L88CE: .byte $41, $08, $04, $FC, $03, $00, $50, $51, $60, $61, $FF ;Samus stand and fire. L88D9: .byte $40, $0F, $04, $FD, $20, $0E, $0D, $FE, $1E, $1D, $2E, $2D, $FE, $FD, $60, $3B L88E9: .byte $3C, $FE, $FE, $17, $FF ;Elevator. L88EE: .byte $03, $04, $10, $28, $38, $38, $FD, $60, $28, $FF ;Missile right. L88F8: .byte $4A, $04, $08, $5E, $5F, $FF ;Missile left. L88FE: .byte $0A, $04, $08, $5E, $5F, $FF ;Missile up. L8904: .byte $09, $08, $04, $14, $24, $FF ;Bullet fire. L890A: .byte $04, $02, $02, $30, $FF ;Bullet hit. L890F: .byte $04, $00, $00, $04, $FF ;Samus stand and point up. L8914: .byte $46, $0F, $04, $69, $FE, $FD, $20, $7A, $79, $FE, $78, $77, $2E, $2D, $FE, $FD L8924: .byte $60, $3B, $3C, $FF ;Samus from ball to pointing up. L8928: .byte $46, $0F, $04, $FE, $69, $FD, $20, $7A, $79, $FE, $78, $77, $2E, $2D, $FE, $FD L8938: .byte $60, $3B, $3C, $FF ;Door closed. L893C: .byte $35, $18, $08, $0F, $1F, $2F, $FD, $A3, $2F, $1F, $0F, $FF ;Door open/close. L8948: .byte $35, $18, $04, $6A, $6B, $6C, $FD, $A3, $6C, $6B, $6A, $FF ;Samus explode. L8954: .byte $07, $00, $00, $FC, $FC, $00, $0B, $0C, $1B, $1C, $2B, $2C, $FF ;Samus jump and point up. L8961: .byte $46, $0F, $04, $69, $FD, $20, $FE, $7A, $79, $FE, $78, $77, $FD, $60, $22, $07 L8971: .byte $08, $32, $FF ;Samus jump and point up. L8974: .byte $46, $0F, $04, $FE, $69, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $22, $07 L8984: .byte $08, $32, $FF ;Bomb explode. L8987: .byte $0D, $0C, $0C, $74, $FD, $60, $74, $FD, $A0, $74, $FD, $E0, $74, $FF ;Samus run and point up. L8995: .byte $46, $0F, $04, $69, $FE, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $20, $21 L89A5: .byte $FE, $FE, $31, $FF ;Samus run and point up. L89A9: .byte $46, $0F, $04, $69, $FE, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $22, $23 L89B9: .byte $FE, $32, $33, $34, $FF ;Samus run and point up. L89BE: .byte $46, $0F, $04, $69, $FE, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $25, $26 L89CE: .byte $27, $35, $36, $FF ;Samus run and point up. L89D2: .byte $46, $0F, $04, $FE, $69, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $20, $21 L89E2: .byte $FE, $FE, $31, $FF ;Samus point up, run and fire. L89E6: .byte $46, $0F, $04, $FE, $69, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $22, $23 L89F6: .byte $FE, $32, $33, $34, $FF ;Samus point up, run and fire. L89FB: .byte $46, $0F, $04, $FE, $69, $FD, $20, $7A, $79, $FE, $78, $77, $FD, $60, $25, $26 L8A0B: .byte $27, $35, $36, $FF ;Bomb explode. L8A0F: .byte $0D, $0C, $0C, $75, $FD, $60, $75, $FD, $A0, $75, $FD, $E0, $75, $FF ;Bomb explode. L8A1D: .byte $00, $00, $00, $FF ;Wave beam. L8A21: .byte $04, $04, $04, $4C, $FF ;Bomb explode. L8A26: .byte $08, $10, $10, $3D, $3E, $4E, $FD, $60, $3E, $3D, $4E, $FD, $E0, $4E, $3E, $3D L8A36: .byte $FD, $A0, $4E, $3D, $3E, $FF ;Bomb tick. L8A3C: .byte $04, $04, $04, $70, $FF ;Bomb tick. L8A41: .byte $04, $04, $04, $71, $FF ;Bomb item. L8A46: .byte $0D, $03, $03, $86, $87, $96, $97, $FF ;High jump item. L8A4E: .byte $0D, $03, $03, $7B, $7C, $8B, $8C, $FF ;Long beam item. L8A56: .byte $0D, $03, $03, $88, $67, $98, $99, $FF ;Screw attack item. L8A5E: .byte $0D, $03, $03, $80, $81, $90, $91, $FF ;Maru Mari item. L8A66: .byte $0D, $03, $03, $7D, $7E, $8D, $8E, $FF ;Varia item. L8A6E: .byte $0D, $03, $03, $82, $83, $92, $93, $FF ;Wave beam item. L8A76: .byte $0D, $03, $03, $88, $89, $98, $99, $FF ;Ice beam item. L8A7E: .byte $0D, $03, $03, $88, $68, $98, $99, $FF ;Energy tank item. L8A86: .byte $0D, $03, $03, $84, $85, $94, $95, $FF ;Missile item. L8A8E: .byte $0D, $03, $03, $3F, $FD, $40, $3F, $FD, $00, $4F, $FD, $40, $4F, $FF ;Skree burrow. L8A9C: .byte $34, $04, $04, $F2, $FF ;Not used. L8AA1: .byte $04, $00, $00, $5A, $FF, $13, $00, $00, $B0, $B1, $B2, $B3, $FF, $13, $00, $00 L8AB1: .byte $B4, $B5, $B6, $B7, $B8, $B6, $B9, $B3, $FF, $13, $00, $00, $B3, $BA, $BA, $FE L8AC1: .byte $80, $80, $FF ;Kraid statue. L8AC4: .byte $1E, $00, $08, $FA, $FB, $FA, $FB, $FC, $00, $04, $C5, $C6, $C7, $D5, $D6, $D7 L8AD4: .byte $E5, $E6, $E7, $FF ;Ridley statue. L8AD8: .byte $1E, $00, $08, $FA, $FB, $FA, $FB, $FE, $C8, $C9, $EB, $D8, $D9, $EA, $E8, $E9 L8AE8: .byte $FF ;Missile explode. L8AE9: .byte $0A, $04, $08, $FD, $00, $57, $FD, $40, $57, $FF ;Missile explode. L8AF3: .byte $0B, $04, $0C, $FD, $00, $57, $18, $FD, $40, $18, $57, $FD, $C0, $18, $18, $FF ;Missile explode. L8B03: .byte $0C, $04, $10, $FD, $00, $57, $18, $FD, $40, $18, $57, $FD, $C0, $18, $18, $FF ;------------------------------------[ Samus enter door routines ]----------------------------------- ;This function is called once when Samus first enters a door. SamusEnterDoor: L8B13: LDA DoorStatus ;The code determines if Samus has entered a door if the--> L8B15: BNE ++++ ;door status is 0, but door data information has been--> L8B17: LDY SamusDoorData ;written. If both conditions are met, Samus has just--> L8B19: BEQ ++++ ;entered a door. L8B1B: STA CurrentMissilePickups ; L8B1D: STA CurrentEnergyPickups ;Reset current missile and energy power-up counters. L8B1F: LDA RandomNumber1 ; L8B21: AND #$0F ;Randomly recalculate max missile pickups(16 max, 0 min). L8B23: STA MaxMissilePickup ; L8B25: ASL ; L8B26: ORA #$40 ;*2 for energy pickups and set bit 6(128 max, 64 min). L8B28: STA MaxEnergyPickup ; L8B2A: LDA PPUCNT0ZP ; L8B2C: EOR #$01 ; L8B2E: AND #$01 ;Erase name table door data for new room. L8B30: TAY ; L8B31: LSR ; L8B32: STA $006C,Y ; L8B35: LDA ScrollDir ; L8B37: AND #$02 ;Is Samus scrolling horizontally?--> L8B39: BNE + ;If so, branch. L8B3B: LDX #$04 ;Samus currently scrolling vertically. L8B3D: LDA ScrollY ;Is room centered on screen?--> L8B3F: BEQ +++++ ;If so, branch. L8B41: LDA $FF ; L8B43: EOR ObjectHi ;Get inverse of Samus' current nametable. L8B46: LSR ; L8B47: BCC +++ ;If Samus is on nametable 3, branch. L8B49: BCS ++ ;If Samus is on nametable 0, branch to decrement x. L8B4B:* LDX #$02 ;Samus is currently scrolling horizontally. L8B4D: LDA ObjectX ;Is Samus entering a left hand door?--> L8B50: BPL ++ ;If so, branch. L8B52:* DEX ; SetDoorEntryInfo: L8B53:* TXA ;X contains door scroll status and is transferred to A. L8B54: STA DoorScrollStatus ;Save door scroll status. L8B56: JSR SamusInDoor ;($8B74)Indicate Samus just entered a door. L8B59: LDA #$12 ; L8B5B: STA DoorDelay ;Set DoorDelay to 18 frames(going into door). L8B5D: LDA SamusDoorData ; L8B5F: JSR Amul16 ;($C2C5)*16. Move scroll toggle data to upper 4 bits. L8B62: ORA ObjAction ;Keep Samus action so she will appear the same comming--> L8B65: STA SamusDoorData ;out of the door as she did going in. L8B67: LDA #$05 ; L8B69: STA ObjAction ;Indicate Samus is in a door. L8B6C:* RTS ; L8B6D:* JSR SetDoorEntryInfo ;($8B53)Save Samus action and set door entry timer. L8B70: JSR VerticalRoomCentered ;($E21B)Room is centered. Toggle scroll. L8B73: TXA ;X=#$01 or #$02(depending on which door Samus is in). SamusInDoor: L8B74: ORA #$80 ;Set MSB of DoorStatus to indicate Samus has just--> L8B76: STA DoorStatus ;entered a door. L8B78: RTS ; ;---------------------------------------------------------------------------------------------------- L8B79: LDX #$B0 L8B7B:* JSR $8B87 L8B7E: LDA PageIndex L8B80: SEC L8B81: SBC #$10 L8B83: TAX L8B84: BMI - L8B86: RTS L8B87: STX PageIndex L8B89: LDA ObjAction,X L8B8C: JSR ChooseRoutine ;($C27C) L8B8F: .word $C45C L8B91: .word $8B9D L8B93: .word $8BD5 L8B95: .word $8C01 L8B97: .word $8C84 L8B99: .word $8CC6 L8B9B: .word $8CF0 L8B9D: INC $0300,X L8BA0: LDA #$30 L8BA2: JSR SetProjectileAnim ;($D2FA) L8BA5: JSR $8CFB L8BA8: LDY $0307,X L8BAB: LDA $8BD1,Y L8BAE: STA $030F,X L8BB1: LDA $0307,X L8BB4: CMP #$03 L8BB6: BNE $8BBA L8BB8: LDA #$01 L8BBA: ORA #$A0 L8BBC: STA $6B L8BBE: LDA #$00 L8BC0: STA $030A,X L8BC3: TXA L8BC4: AND #$10 L8BC6: EOR #$10 L8BC8: ORA $6B L8BCA: STA $6B L8BCC: LDA #$06 L8BCE: JMP $DE47 L8BD1: .byte $05, $01, $0A, $01 L8BD5: LDA $030A,X L8BD8: AND #$04 L8BDA: BEQ $8BB1 L8BDC: DEC $030F,X L8BDF: BNE $8BB1 L8BE1: LDA #$03 L8BE3: CMP $0307,X L8BE6: BNE $8BEE L8BE8: LDY $010B L8BEB: INY L8BEC: BNE $8BB1 L8BEE: STA $0300,X L8BF1: LDA #$50 L8BF3: STA $030F,X L8BF6: LDA #$2C L8BF8: STA $0305,X L8BFB: SEC L8BFC: SBC #$03 L8BFE: JMP $8C7E L8C01: LDA DoorStatus L8C03: BEQ $8C1D L8C05: LDA $030C L8C08: EOR $030C,X L8C0B: LSR L8C0C: BCS $8C1D L8C0E: LDA $030E L8C11: EOR $030E,X L8C14: BMI $8C1D L8C16: LDA #$04 L8C18: STA $0300,X L8C1B: BNE $8C73 L8C1D: LDA $0306,X L8C20: CMP $0305,X L8C23: BCC $8C73 L8C25: LDA $030F,X L8C28: CMP #$50 L8C2A: BNE $8C57 L8C2C: JSR $8CF7 L8C2F: LDA $0307,X L8C32: CMP #$01 L8C34: BEQ $8C57 L8C36: CMP #$03 L8C38: BEQ $8C57 L8C3A: LDA #$0A L8C3C: STA $09 L8C3E: LDA $030C,X L8C41: STA $08 L8C43: LDY $50 L8C45: TXA L8C46: JSR $C2C5 L8C49: BCC $8C4C L8C4B: DEY L8C4C: TYA L8C4D: JSR $DC1E L8C50: LDA #$00 L8C52: STA $0300,X L8C55: BEQ $8C73 L8C57: LDA $2D L8C59: LSR L8C5A: BCS $8C73 L8C5C: DEC $030F,X L8C5F: BNE $8C73 L8C61: LDA #$01 L8C63: STA $030F,X L8C66: JSR $8CFB L8C69: LDA #$02 L8C6B: STA $0300,X L8C6E: JSR $8C76 L8C71: LDX PageIndex L8C73: JMP $8BB1 L8C76: LDA #$30 L8C78: STA $0305,X L8C7B: SEC L8C7C: SBC #$02 L8C7E: JSR $D2FD L8C81: JMP $CBDA L8C84: LDA DoorStatus L8C86: CMP #$05 L8C88: BCS $8CC3 L8C8A: JSR $8CFB L8C8D: JSR $8C76 L8C90: LDX PageIndex L8C92: LDA $91 L8C94: BEQ $8CA7 L8C96: TXA L8C97: JSR $C2BF L8C9A: EOR $91 L8C9C: LSR L8C9D: BCC $8CA7 L8C9F: LDA $76 L8CA1: EOR #$07 L8CA3: STA $76 L8CA5: STA $1C L8CA7: INC $0300,X L8CAA: LDA #$00 L8CAC: STA $91 L8CAE: LDA $0307,X L8CB1: CMP #$03 L8CB3: BNE $8CC3 L8CB5: TXA L8CB6: JSR $C2C5 L8CB9: BCS $8CC0 L8CBB: JSR $CC07 L8CBE: BNE $8CC3 L8CC0: JSR $CC03 L8CC3: JMP $8C71 L8CC6: LDA DoorStatus L8CC8: CMP #$05 L8CCA: BNE $8CED L8CCC: TXA L8CCD: EOR #$10 L8CCF: TAX L8CD0: LDA #$06 L8CD2: STA $0300,X L8CD5: LDA #$2C L8CD7: STA $0305,X L8CDA: SEC L8CDB: SBC #$03 L8CDD: JSR $D2FD L8CE0: JSR $CBDA L8CE3: JSR $CB73 L8CE6: LDX PageIndex L8CE8: LDA #$02 L8CEA: STA $0300,X L8CED: JMP $8BB1 L8CF0: LDA DoorStatus L8CF2: BNE $8CED L8CF4: JMP $8C61 L8CF7: LDA #$FF L8CF9: BNE $8CFD L8CFB: LDA #$4E L8CFD: PHA L8CFE: LDA #$50 L8D00: STA $02 L8D02: TXA L8D03: JSR $C2BF L8D06: AND #$01 L8D08: TAY L8D09: LDA $8D3A,Y L8D0C: STA $03 L8D0E: LDA $030C,X L8D11: STA $0B L8D13: JSR $E96A L8D16: LDY #$00 L8D18: PLA L8D19: STA ($04),Y L8D1B: TAX L8D1C: TYA L8D1D: CLC L8D1E: ADC #$20 L8D20: TAY L8D21: TXA L8D22: CPY #$C0 L8D24: BNE $8D19 L8D26: LDX PageIndex L8D28: TXA L8D29: JSR $C2C0 L8D2C: AND #$06 L8D2E: TAY L8D2F: LDA $04 L8D31: STA $005C,Y L8D34: LDA $05 L8D36: STA $005D,Y L8D39: RTS L8D3A: .byte $E8, $10, $60, $AD, $91, $69, $8D, $78, $68, $AD, $92, $69, $8D, $79, $68, $A9 L8D4A: .byte $00, $85, $00, $85, $02, $AD, $97, $69, $29, $80, $F0, $06, $A5, $00, $09, $80 L8D5A: .byte $85, $00, $AD, $97, $69, $29 ;------------------------------------------[ Graphics data ]----------------------------------------- ;Misc. tile patterns. L8D60: .byte $73, $FD, $3B, $A0, $C0, $E0, $60, $80, $00, $00, $00, $1F, $10, $17, $14, $14 L8D70: .byte $E8, $9C, $7C, $1C, $44, $58, $5C, $5C, $00, $04, $0C, $FC, $24, $B8, $BC, $BC L8D80: .byte $E0, $E7, $A0, $2F, $73, $7C, $00, $00, $17, $10, $1F, $0F, $33, $7C, $00, $00 L8D90: .byte $58, $D4, $14, $DC, $EC, $D8, $00, $00, $B8, $34, $F4, $DC, $EC, $D8, $00, $00 L8DA0: .byte $41, $41, $77, $14, $14, $14, $14, $14, $1D, $01, $7F, $0C, $0C, $0C, $0C, $0C L8DB0: .byte $14, $14, $14, $14, $14, $7F, $41, $41, $0C, $0C, $0C, $0C, $0C, $01, $01, $1D L8DC0: .byte $7F, $7F, $7F, $3E, $3E, $3E, $3C, $1C, $03, $03, $07, $06, $06, $06, $04, $04 L8DD0: .byte $7E, $7E, $7E, $7C, $7C, $3C, $38, $38, $06, $06, $0E, $0C, $0C, $0C, $08, $08 L8DE0: .byte $1C, $1C, $1C, $08, $08, $08, $08, $08, $04, $04, $04, $00, $00, $00, $00, $00 L8DF0: .byte $38, $10, $10, $10, $00, $00, $00, $00, $08, $00, $00, $00, $00, $00, $00, $00 L8E00: .byte $7E, $7E, $7E, $3E, $3E, $3C, $1C, $1C, $60, $60, $70, $30, $30, $30, $10, $10 L8E10: .byte $FE, $FE, $FE, $7C, $7C, $7C, $3C, $38, $C0, $C0, $E0, $60, $60, $60, $20, $20 L8E20: .byte $1C, $08, $08, $08, $00, $00, $00, $00, $10, $00, $00, $00, $00, $00, $00, $00 L8E30: .byte $38, $38, $38, $10, $10, $10, $10, $10, $20, $20, $20, $00, $00, $00, $00, $00 L8E40: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8E50: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8E60: .byte $00, $01, $03, $00, $0F, $03, $1F, $21, $00, $01, $01, $00, $01, $03, $07, $01 L8E70: .byte $7F, $FF, $F0, $D7, $8F, $DC, $98, $F8, $7F, $9F, $70, $D0, $83, $C4, $88, $E8 L8E80: .byte $80, $F0, $78, $BC, $FC, $7E, $6E, $4C, $80, $F0, $78, $3C, $BC, $7E, $6E, $4C L8E90: .byte $3C, $3C, $3A, $7B, $77, $6F, $69, $3C, $3C, $2C, $2A, $5B, $51, $47, $61, $1C L8EA0: .byte $D1, $89, $07, $C6, $20, $1C, $87, $00, $C1, $81, $07, $C6, $00, $00, $80, $00 L8EB0: .byte $F6, $02, $08, $1C, $1E, $1E, $07, $07, $F6, $22, $60, $C0, $98, $9C, $44, $26 L8EC0: .byte $70, $70, $0C, $32, $20, $1C, $10, $06, $30, $30, $0C, $12, $20, $0C, $10, $02 L8ED0: .byte $1C, $7E, $78, $F3, $F1, $E1, $C2, $73, $1C, $66, $58, $B3, $B1, $A1, $C2, $73 L8EE0: .byte $03, $03, $03, $01, $B1, $18, $0C, $CC, $12, $12, $22, $00, $90, $08, $04, $44 L8EF0: .byte $00, $07, $00, $03, $00, $01, $03, $0F, $00, $03, $00, $01, $00, $00, $01, $03 L8F00: .byte $01, $48, $46, $30, $1E, $C0, $81, $67, $01, $48, $46, $30, $1E, $C0, $80, $61 L8F10: .byte $E6, $F0, $31, $0B, $83, $00, $EF, $C9, $A2, $C0, $30, $08, $81, $00, $20, $C1 L8F20: .byte $02, $03, $77, $89, $BE, $2C, $00, $80, $00, $01, $77, $81, $8E, $0C, $00, $00 L8F30: .byte $0F, $02, $1F, $02, $0F, $1B, $11, $F0, $07, $02, $0F, $02, $07, $0B, $11, $D0 L8F40: .byte $1F, $3C, $70, $61, $07, $5E, $19, $7E, $07, $1C, $30, $20, $01, $46, $19, $7E L8F50: .byte $26, $7E, $58, $D2, $23, $C1, $00, $00, $20, $22, $10, $52, $23, $C1, $00, $00 L8F60: .byte $00, $40, $70, $18, $C8, $ED, $F7, $3D, $00, $00, $40, $10, $00, $C9, $E1, $3D L8F70: .byte $18, $70, $F0, $80, $00, $00, $00, $00, $10, $10, $F0, $80, $00, $00, $00, $00 L8F80: .byte $00, $00, $00, $70, $FC, $DE, $02, $E2, $00, $00, $00, $00, $70, $1E, $02, $C0 L8F90: .byte $45, $D7, $FF, $FF, $FD, $FF, $BF, $FB, $00, $00, $00, $00, $02, $00, $40, $04 L8FA0: .byte $FF, $BB, $FF, $FF, $EF, $FF, $7F, $FD, $00, $44, $00, $00, $10, $00, $80, $02 L8FB0: .byte $12, $12, $12, $12, $12, $12, $12, $12, $1D, $1D, $1D, $1D, $1D, $1D, $1D, $1D L8FC0: .byte $58, $58, $58, $58, $58, $58, $58, $58, $F8, $F8, $F8, $F8, $F8, $F8, $F8, $F8 L8FD0: .byte $00, $00, $7F, $80, $80, $FF, $7F, $00, $00, $7F, $80, $7F, $FF, $FF, $7F, $00 L8FE0: .byte $00, $00, $FC, $01, $03, $FF, $FE, $00, $00, $FE, $03, $FF, $FF, $FF, $FE, $00 L8FF0: .byte $00, $00, $00, $00, $00, $FF, $00, $00, $FF, $FF, $FF, $FF, $FF, $00, $FF, $FF L9000: .byte $FF, $00, $FF, $FF, $FF, $FF, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00 L9010: .byte $00, $00, $10, $00, $09, $10, $0A, $25, $00, $00, $10, $00, $09, $10, $0A, $25 L9020: .byte $00, $00, $00, $90, $68, $90, $F4, $BA, $00, $00, $00, $90, $68, $90, $74, $AA L9030: .byte $0A, $07, $2B, $15, $02, $21, $04, $00, $0A, $07, $2B, $15, $02, $21, $04, $00 L9040: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9050: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9060: .byte $FC, $B4, $6A, $C8, $22, $28, $00, $00, $FC, $B4, $6A, $C8, $22, $28, $00, $00 L9070: .byte $22, $76, $FF, $FF, $FF, $7F, $FF, $7E, $00, $76, $F7, $7F, $DB, $7F, $FF, $5E L9080: .byte $90, $60, $E0, $D0, $F0, $AC, $D0, $F8, $90, $40, $E0, $D0, $F0, $AC, $D0, $F8 L9090: .byte $FF, $EE, $BD, $7B, $3E, $50, $00, $00, $FF, $EE, $BD, $7B, $3E, $50, $00, $00 L90A0: .byte $E4, $40, $A8, $40, $40, $00, $00, $00, $E4, $40, $A8, $40, $40, $00, $00, $00 L90B0: .byte $3F, $C0, $80, $80, $00, $00, $FF, $80, $00, $3F, $7F, $7F, $00, $00, $00, $7F L90C0: .byte $FC, $00, $00, $00, $00, $1C, $90, $20, $00, $FC, $FC, $FC, $00, $00, $0C, $9C L90D0: .byte $80, $80, $00, $F0, $80, $80, $00, $00, $7F, $7F, $00, $00, $7F, $7F, $00, $00 L90E0: .byte $20, $20, $00, $3C, $40, $40, $00, $00, $9C, $1C, $00, $00, $BC, $BC, $00, $00 L90F0: .byte $10, $10, $10, $00, $08, $08, $08, $08, $6F, $6F, $6F, $00, $17, $17, $17, $17 L9100: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $00, $FF, $FF, $FF, $FF L9110: .byte $00, $00, $00, $00, $00, $00, $00, $00, $E6, $E6, $E6, $00, $C8, $C8, $C8, $C8 L9120: .byte $7E, $FF, $C0, $C0, $C0, $CF, $C0, $4F, $00, $00, $3F, $2F, $3F, $30, $38, $30 L9130: .byte $7E, $FF, $03, $03, $03, $F3, $03, $F2, $00, $01, $FF, $F7, $FF, $FF, $0F, $FE L9140: .byte $40, $CF, $C0, $C0, $C0, $C0, $FF, $7E, $38, $30, $38, $3F, $2F, $3F, $7F, $7E L9150: .byte $02, $F3, $03, $03, $03, $03, $FF, $7E, $0E, $FF, $0F, $FF, $F7, $FF, $FF, $7E L9160: .byte $73, $F9, $FF, $7F, $3F, $BF, $FF, $FF, $00, $79, $40, $5F, $10, $17, $54, $55 L9170: .byte $CC, $DC, $FC, $F4, $F0, $D4, $D4, $54, $00, $DC, $04, $F4, $10, $D4, $54, $54 L9180: .byte $FC, $FF, $B0, $7F, $C0, $F7, $00, $00, $54, $57, $10, $5F, $40, $77, $00, $00 L9190: .byte $50, $D4, $14, $F4, $04, $CC, $00, $00, $50, $94, $14, $E4, $04, $C8, $00, $00 L91A0: .byte $FE, $82, $92, $AA, $92, $82, $FE, $00, $00, $7E, $46, $5E, $56, $7E, $FE, $00 ;Game over, Japaneese font tile patterns. L91B0: .byte $C0, $04, $C4, $04, $04, $0C, $F8, $00, $00, $00, $00, $00, $00, $00, $00, $00 L91C0: .byte $00, $00, $00, $00, $04, $12, $08, $00, $00, $00, $00, $00, $00, $00, $00, $00 L91D0: .byte $40, $7E, $48, $88, $08, $18, $70, $00, $00, $00, $00, $00, $00, $00, $00, $00 L91E0: .byte $E0, $02, $02, $02, $06, $0C, $F8, $00, $00, $00, $00, $00, $00, $00, $00, $00 L91F0: .byte $18, $0C, $86, $82, $82, $82, $82, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9200: .byte $7E, $42, $C2, $02, $06, $0C, $78, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9210: .byte $7E, $42, $C2, $1E, $02, $06, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9220: .byte $44, $FE, $44, $44, $04, $0C, $78, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9230: .byte $40, $40, $40, $78, $44, $40, $40, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9240: .byte $10, $FE, $82, $82, $06, $0C, $78, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9250: .byte $0C, $78, $08, $FE, $08, $18, $70, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9260: .byte $7C, $00, $00, $00, $00, $00, $FE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9270: .byte $00, $00, $50, $54, $04, $0C, $38, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9280: .byte $00, $00, $00, $38, $08, $08, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9290: .byte $A2, $A2, $A2, $02, $06, $0C, $78, $00, $00, $00, $00, $00, $00, $00, $00, $00 L92A0: .byte $40, $FE, $42, $46, $44, $60, $3E, $00, $00, $00, $00, $00, $00, $00, $00, $00 L92B0: .byte $7E, $02, $02, $7E, $02, $02, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00 L92C0: .byte $00, $00, $00, $00, $00, $18, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00 L92D0: .byte $3E, $60, $C0, $CE, $C6, $66, $3E, $00, $00, $00, $00, $00, $00, $00, $00, $00 L92E0: .byte $38, $6C, $C6, $C6, $FE, $C6, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00 L92F0: .byte $C6, $EE, $FE, $FE, $D6, $C6, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9300: .byte $FE, $C0, $C0, $FC, $C0, $C0, $FE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9310: .byte $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9320: .byte $C6, $C6, $C6, $EE, $7C, $38, $10, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9330: .byte $FC, $C6, $C6, $CE, $F8, $DC, $CE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9340: .byte $7E, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9350: .byte $7E, $18, $18, $18, $18, $18, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9360: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9370: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9380: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9390: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L93A0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L93B0: .byte $45, $D7, $FF, $BB, $FF, $EF, $7F, $DD, $00, $00, $00, $44, $02, $50, $88, $22 L93C0: .byte $FF, $77, $DD, $F7, $BE, $EF, $BB, $6E, $24, $88, $22, $48, $45, $10, $46, $B1 L93D0: .byte $7E, $42, $C2, $1E, $02, $06, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00 L93E0: .byte $00, $00, $00, $00, $04, $12, $08, $00, $00, $00, $00, $00, $00, $00, $00, $00 L93F0: .byte $44, $FE, $44, $44, $04, $0C, $78, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9400: .byte $06, $0C, $38, $F0, $10, $10, $10, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9410: .byte $FE, $C0, $C0, $FC, $C0, $C0, $FE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9420: .byte $FC, $C6, $C6, $CE, $F8, $DC, $CE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9430: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9440: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9450: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9460: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9470: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9480: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9490: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00 L94A0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ;Unused tile patterns. L94B0: .byte $06, $0C, $38, $F0, $10, $10, $10, $00, $00, $00, $00, $00, $00, $00, $00, $00 L94C0: .byte $FE, $C0, $C0, $FC, $C0, $C0, $FE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L94D0: .byte $FC, $C6, $C6, $CE, $F8, $DC, $CE, $00, $00, $00, $00, $00, $00, $00, $00, $00 L94E0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L94F0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9500: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9510: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9520: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9530: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9540: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00 L9550: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ;---------------------------------------------------------------------------------------------------- PalPntrTbl: L9560: .word Palette00 ;($A0EB) L9562: .word Palette01 ;($A10F) L9564: .word Palette02 ;($A11B) L9566: .word Palette03 ;($A115) L9568: .word Palette04 ;($A121) L956A: .word Palette05 ;($A127) L956C: .word Palette06 ;($A13B) L956E: .word Palette06 ;($A13B) L9570: .word Palette06 ;($A13B) L9572: .word Palette06 ;($A13B) L9574: .word Palette06 ;($A13B) L9576: .word Palette06 ;($A13B) L9578: .word Palette06 ;($A13B) L957A: .word Palette06 ;($A13B) L957C: .word Palette06 ;($A13B) L957E: .word Palette06 ;($A13B) L9580: .word Palette06 ;($A13B) L9582: .word Palette06 ;($A13B) L9584: .word Palette06 ;($A13B) L9586: .word Palette06 ;($A13B) L9588: .word Palette07 ;($A142) L958A: .word Palette08 ;($A149) L958C: .word Palette09 ;($A150) L958E: .word Palette0A ;($A157) L9590: .word Palette0B ;($A15F) L9592: .word Palette0C ;($A167) L9594: .word Palette0D ;($A16F) L9596: .word Palette0E ;($A177) AreaPointers: L9598: .word SpecItmsTbl ;($A20D)Beginning of special items table. L959A: .word RmPtrTbl ;($A17F)Beginning of room pointer table. L959C: .word StrctPtrTbl ;($A1D3)Beginning of structure pointer table. L959E: .word MacroDefs ;($AB23)Beginning of macro definitions. L95A0: .word EnemyFramePtrTbl1 ;($9BF0)Address table into enemy animation data. Two--> L95A2: .word EnemyFramePtrTbl2 ;($9CF0)tables needed to accommodate all entries. L95A4: .word EnemyPlacePtrTbl ;($9D04)Pointers to enemy frame placement data. L95A6: .word EnemyAnimIndexTbl ;($9B85)Index to values in addr tables for enemy animations. L95A8: .byte $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60 L95B8: .byte $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA AreaRoutine: L95C3: JMP $9B48 ;Area specific routine. TwosCompliment_: L95C6: EOR #$FF ; L95C8: CLC ;The following routine returns the twos--> L95C9: ADC #$01 ;compliment of the value stored in A. L95CB: RTS ; L95CC: .byte $12 ;Ridley's room. L95CD: .byte $80 ;Ridley hideout music init flag. L95CE: .byte $40 ;Base damage caused by area enemies to lower health byte. L95CF: .byte $02 ;Base damage caused by area enemies to upper health byte. ;Special room numbers(used to start item room music). L95D0: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF L95D7: .byte $19 ;Samus start x coord on world map. L95D8: .byte $18 ;Samus start y coord on world map. L95D9: .byte $6E ;Samus start verticle screen position. L95DA: .byte $06, $00, $03, $58, $44, $4A, $48, $4A, $4A, $36, $25 L95E5: LDA $6B02,X L95E8: JSR $8024 L95EB: .word $98D7 L95ED: .word $990C L95EF: .word $9847 L95F1: .word $9862 L95F3: .word $982A L95F5: .word $982A L95F7: .word $9967 L95F9: .word $9867 L95FB: .word $982A L95FD: .word $9A13 L95FF: .word $9A4A L9601: .word $982A L9603: .word $9B03 L9605: .word $982A L9607: .word $9B16 L9609: .word $982A L960B: .byte $23, $23, $23, $23, $3A, $3A, $3C, $3C, $00, $00, $00, $00, $56, $56, $65, $63 L961B: .byte $00, $00, $11, $11, $13, $18, $28, $28, $32, $32, $34, $34, $00, $00, $00, $00 L962B: .byte $08, $08, $08, $08, $01, $01, $02, $01, $01, $8C, $FF, $FF, $08, $06, $FF, $00 L963B: .byte $1D, $1D, $1D, $1D, $3E, $3E, $44, $44, $00, $00, $00, $00, $4A, $4A, $69, $67 L964B: .byte $00, $00, $05, $08, $13, $18, $1D, $1D, $2D, $28, $34, $34, $00, $00, $00, $00 L965B: .byte $20, $20, $20, $20, $3E, $3E, $44, $44, $00, $00, $00, $00, $4A, $4A, $60, $5D L966B: .byte $00, $00, $05, $08, $13, $18, $1D, $1D, $2D, $28, $34, $34, $00, $00, $00, $00 L967B: .byte $00, $00, $00, $00, $00, $00, $00, $00, $80, $00, $00, $00, $82, $00, $00, $00 L968B: .byte $89, $89, $89, $89, $00, $00, $04, $80, $80, $81, $00, $00, $05, $89, $00, $00 L969B: .byte $01, $01, $01, $01, $01, $01, $01, $01, $28, $10, $00, $00, $00, $01, $00, $00 L96AB: .byte $05, $05, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $86, $00, $00 L96BB: .byte $10, $01, $03, $03, $10, $10, $01, $08, $09, $10, $01, $10, $01, $20, $00, $00 L96CB: .byte $18, $1A, $00, $03, $00, $00, $08, $08, $00, $0A, $0C, $0F, $14, $16, $18, $00 L96DB: .word $97ED, $97ED, $97ED, $97ED, $97ED, $97F0, $97F3, $97F3 L96EB: .word $97F3, $97F3, $97F3, $97F3, $97F3, $97F3, $97F3, $97F3 L96FB: .word $97F3, $97F3, $97F3, $97F3, $97F3, $97F3, $97F3, $97F3 L970B: .word $97F3, $97F3, $97F3, $97F3, $97F3, $97F3, $97F3, $97F3 L971B: .word $97F3, $97F3, $97F3, $97F3 L9723: .byte $00, $00, $00, $00, $00, $00, $00, $00, $80, $80, $00, $00, $7F, $7F, $81, $81 L9733: .byte $00, $00, $E0, $16, $15, $7F, $7F, $7F, $00, $00, $00, $00, $00, $00, $00, $00 L9743: .byte $00, $00, $00, $00, $C8, $00, $00, $00, $00, $00, $08, $20, $00, $00, $00, $00 L9753: .byte $0C, $0C, $02, $01, $F6, $FC, $0A, $04, $01, $FC, $06, $FE, $FE, $FA, $F9, $F9 L9763: .byte $FD, $00, $00, $00, $00, $02, $01, $01, $02, $02, $02, $02, $06, $00, $01, $01 L9773: .byte $01, $00, $00, $00, $03, $00, $00, $00 L977B: .byte $4C, $4C, $64, $6C, $00, $00, $00, $40, $00, $64, $44, $44, $40, $00, $00, $00 L978B: .byte $00, $00, $00, $00, $34, $34, $44, $4A, $00, $00, $00, $00, $00, $00, $00, $00 L979B: .byte $08, $F8, $00, $00, $00, $00, $08, $F8, $00, $00, $00, $F8 L97A7: .word $97FD, $97FD, $980C, $981B, $9B49, $9B4E, $9B53, $9B58 L97B7: .word $9B5D, $9B62, $9B67, $9B6C, $9B71, $9B76, $9B7B, $9B80 L97C7: .word $9B85, $9B85, $9B85, $9B85, $9B85 L97D1: .byte $01, $04, $05, $01, $06, $07, $00, $02, $00, $09, $00, $0D, $01, $0E, $0F, $03 L97E1: .byte $00, $01, $02, $03, $00, $10, $00, $11, $00, $00, $00, $01 L97ED: .byte $01, $03, $FF L97F0: .byte $01, $0B, $FF L97F3: .byte $14, $90, $0A, $00, $FD, $30, $00, $14, $10, $FA L97FD: .byte $09, $C2, $08, $A2, $07, $92, $07, $12, $08, $22, $09, $42, $50, $72, $FF L980C: .byte $07, $C2, $06, $A2, $05, $92, $05, $12, $06, $22, $07, $42, $50, $72, $FF L981B: .byte $05, $C2, $04, $A2, $03, $92, $03, $12, $04, $22, $05, $42, $50, $72, $FF L982A: LDA #$00 L982C: STA $6AF4,X L982F: RTS L9830: LDA $81 L9832: CMP #$01 L9834: BEQ $983F L9836: CMP #$03 L9838: BEQ $9844 L983A: LDA $00 L983C: JMP $8000 L983F: LDA $01 L9841: JMP $8003 L9844: JMP $8006 L9847: LDA #$42 L9849: STA $85 L984B: STA $86 L984D: LDA $6AF4,X L9850: CMP #$03 L9852: BEQ $9857 L9854: JSR $801B L9857: LDA #$06 L9859: STA $00 L985B: LDA #$08 L985D: STA $01 L985F: JMP $9830 L9862: LDA #$48 L9864: JMP $9849 L9867: LDA $6AF4,X L986A: CMP #$02 L986C: BNE $98A6 L986E: LDA $0403,X L9871: BNE $98A6 L9873: LDA $6AFE,X L9876: BNE $988A L9878: LDA $030D L987B: SEC L987C: SBC $0400,X L987F: CMP #$40 L9881: BCS $98A6 L9883: LDA #$7F L9885: STA $6AFE,X L9888: BNE $98A6 L988A: LDA $0402,X L988D: BMI $98A6 L988F: LDA #$00 L9891: STA $0402,X L9894: STA $0406,X L9897: STA $6AFE,X L989A: LDA $0405,X L989D: AND #$01 L989F: TAY L98A0: LDA $98D5,Y L98A3: STA $0403,X L98A6: LDA $0405,X L98A9: ASL L98AA: BMI $98CA L98AC: LDA $6AF4,X L98AF: CMP #$02 L98B1: BNE $98CA L98B3: JSR $8036 L98B6: PHA L98B7: JSR $8039 L98BA: STA $05 L98BC: PLA L98BD: STA $04 L98BF: JSR $9AE1 L98C2: JSR $8027 L98C5: BCC $98CF L98C7: JSR $9AF1 L98CA: LDA #$03 L98CC: JMP $8003 L98CF: LDA #$00 L98D1: STA $6AF4,X L98D4: RTS L98D5: PHP L98D6: SED L98D7: LDA #$03 L98D9: STA $00 L98DB: LDA #$08 L98DD: STA $01 L98DF: LDA $6AF4,X L98E2: CMP #$01 L98E4: BNE $98F2 L98E6: LDA $0405,X L98E9: AND #$10 L98EB: BEQ $98F2 L98ED: LDA #$01 L98EF: JSR $9958 L98F2: JSR $98F8 L98F5: JMP $9830 L98F8: LDA $6AF4,X L98FB: CMP #$02 L98FD: BNE $990B L98FF: LDA #$20 L9901: LDY $0402,X L9904: BPL $9908 L9906: LDA #$1D L9908: STA $6AF9,X L990B: RTS L990C: LDA $81 L990E: CMP #$01 L9910: BEQ $9922 L9912: CMP #$03 L9914: BEQ $9955 L9916: LDA $6AF4,X L9919: CMP #$01 L991B: BNE $9927 L991D: LDA #$00 L991F: JSR $9958 L9922: LDA #$08 L9924: JMP $8003 L9927: LDA #$80 L9929: STA $6AFE,X L992C: LDA $0402,X L992F: BMI $994D L9931: LDA $0405,X L9934: AND #$10 L9936: BEQ $994D L9938: LDA $0400,X L993B: SEC L993C: SBC $030D L993F: BPL $9944 L9941: JSR $95C6 L9944: CMP #$10 L9946: BCS $994D L9948: LDA #$00 L994A: STA $6AFE,X L994D: JSR $98F8 L9950: LDA #$03 L9952: JMP $8000 L9955: JMP $8006 L9958: STA $6B02,X L995B: LDA $040B,X L995E: PHA L995F: JSR $802A L9962: PLA L9963: STA $040B,X L9966: RTS L9967: JSR $8009 L996A: AND #$03 L996C: BEQ $99A2 L996E: LDA $81 L9970: CMP #$01 L9972: BEQ $99AA L9974: CMP #$03 L9976: BEQ $99A7 L9978: LDA $6AF4,X L997B: CMP #$03 L997D: BEQ $99A2 L997F: LDA $040A,X L9982: AND #$03 L9984: CMP #$01 L9986: BNE $9999 L9988: LDY $0400,X L998B: CPY #$EB L998D: BNE $9999 L998F: JSR $99DB L9992: LDA #$03 L9994: STA $040A,X L9997: BNE $999F L9999: JSR $9A00 L999C: JSR $99C6 L999F: JSR $99E4 L99A2: LDA #$03 L99A4: JSR $800C L99A7: JMP $8006 L99AA: JMP $8003 L99AD: LDA $0405,X L99B0: LSR L99B1: LDA $040A,X L99B4: AND #$03 L99B6: ROL L99B7: TAY L99B8: LDA $99BE,Y L99BB: JMP $800F L99BE: .byte $4A, $4A, $53, $4D, $50, $50, $4D, $53 L99C6: LDX $4B L99C8: BCS $99E3 L99CA: LDA $00 L99CC: BNE $99DB L99CE: LDY $040A,X L99D1: DEY L99D2: TYA L99D3: AND #$03 L99D5: STA $040A,X L99D8: JMP $99AD L99DB: LDA $0405,X L99DE: EOR #$01 L99E0: STA $0405,X L99E3: RTS L99E4: JSR $99F8 L99E7: JSR $9A00 L99EA: LDX $4B L99EC: BCC $99F7 L99EE: JSR $99F8 L99F1: STA $040A,X L99F4: JSR $99AD L99F7: RTS L99F8: LDY $040A,X L99FB: INY L99FC: TYA L99FD: AND #$03 L99FF: RTS L9A00: LDY $0405,X L9A03: STY $00 L9A05: LSR $00 L9A07: ROL L9A08: ASL L9A09: TAY L9A0A: LDA $8049,Y L9A0D: PHA L9A0E: LDA $8048,Y L9A11: PHA L9A12: RTS L9A13: LDA $6AF4,X L9A16: CMP #$03 L9A18: BCC $9A33 L9A1A: BEQ $9A20 L9A1C: CMP #$05 L9A1E: BNE $9A41 L9A20: LDA #$00 L9A22: STA $6B04 L9A25: STA $6B14 L9A28: STA $6B24 L9A2B: STA $6B34 L9A2E: STA $6B44 L9A31: BEQ $9A41 L9A33: LDA #$0B L9A35: STA $85 L9A37: LDA #$0E L9A39: STA $86 L9A3B: JSR $801B L9A3E: JSR $9A79 L9A41: LDA #$03 L9A43: STA $00 L9A45: STA $01 L9A47: JMP $9830 L9A4A: LDA $0405,X L9A4D: PHA L9A4E: LDA #$02 L9A50: STA $00 L9A52: STA $01 L9A54: JSR $9830 L9A57: PLA L9A58: LDX $4B L9A5A: EOR $0405,X L9A5D: LSR L9A5E: BCS $9A73 L9A60: LDA $0405,X L9A63: LSR L9A64: BCS $9A78 L9A66: LDA $0401,X L9A69: SEC L9A6A: SBC $030E L9A6D: BCC $9A78 L9A6F: CMP #$20 L9A71: BCC $9A78 L9A73: LDA #$00 L9A75: STA $6AF4,X L9A78: RTS L9A79: LDY $80 L9A7B: BNE $9A7F L9A7D: LDY #$60 L9A7F: LDA $2D L9A81: AND #$02 L9A83: BNE $9AA9 L9A85: DEY L9A86: STY $80 L9A88: TYA L9A89: ASL L9A8A: BMI $9AA9 L9A8C: AND #$0F L9A8E: CMP #$0A L9A90: BNE $9AA9 L9A92: LDX #$50 L9A94: LDA $6AF4,X L9A97: BEQ $9AAA L9A99: LDA $0405,X L9A9C: AND #$02 L9A9E: BEQ $9AAA L9AA0: TXA L9AA1: SEC L9AA2: SBC #$10 L9AA4: TAX L9AA5: BNE $9A94 L9AA7: INC $7E L9AA9: RTS L9AAA: TXA L9AAB: TAY L9AAC: LDX #$00 L9AAE: JSR $9AE1 L9AB1: TYA L9AB2: TAX L9AB3: LDA $0405 L9AB6: STA $0405,X L9AB9: AND #$01 L9ABB: TAY L9ABC: LDA $9ADF,Y L9ABF: STA $05 L9AC1: LDA #$F8 L9AC3: STA $04 L9AC5: JSR $8027 L9AC8: BCC $9AA9 L9ACA: LDA #$00 L9ACC: STA $040F,X L9ACF: LDA #$0A L9AD1: STA $6B02,X L9AD4: LDA #$01 L9AD6: STA $6AF4,X L9AD9: JSR $9AF1 L9ADC: JMP $802A L9ADF: PHP L9AE0: SED L9AE1: LDA $0400,X L9AE4: STA $08 L9AE6: LDA $0401,X L9AE9: STA $09 L9AEB: LDA $6AFB,X L9AEE: STA $0B L9AF0: RTS L9AF1: LDA $0B L9AF3: AND #$01 L9AF5: STA $6AFB,X L9AF8: LDA $08 L9AFA: STA $0400,X L9AFD: LDA $09 L9AFF: STA $0401,X L9B02: RTS L9B03: LDA $6AF4,X L9B06: CMP #$02 L9B08: BNE $9B0D L9B0A: JSR $801E L9B0D: LDA #$02 L9B0F: STA $00 L9B11: STA $01 L9B13: JMP $9830 L9B16: LDA #$00 L9B18: STA $6AF5,X L9B1B: STA $6AF6,X L9B1E: LDA #$10 L9B20: STA $0405,X L9B23: TXA L9B24: LSR L9B25: LSR L9B26: LSR L9B27: LSR L9B28: ADC $2D L9B2A: AND #$07 L9B2C: BNE $9B48 L9B2E: LSR $0405,X L9B31: LDA #$03 L9B33: STA $87 L9B35: LDA $2E L9B37: LSR L9B38: ROL $0405,X L9B3B: AND #$03 L9B3D: BEQ $9B48 L9B3F: STA $88 L9B41: LDA #$02 L9B43: STA $85 L9B45: JMP $8021 L9B48: RTS L9B49: .byte $22, $FF, $FF, $FF, $FF L9B4E: .byte $22, $80, $81, $82, $83 L9B53: .byte $22, $84, $85, $86, $87 L9B58: .byte $22, $88, $89, $8A, $8B L9B5D: .byte $22, $8C, $8D, $8E, $8F L9B62: .byte $22, $94, $95, $96, $97 L9B67: .byte $22, $9C, $9D, $9D, $9C L9B6C: .byte $22, $9E, $9F, $9F, $9E L9B71: .byte $22, $90, $91, $92, $93 L9B76: .byte $22, $70, $71, $72, $73 L9B7B: .byte $22, $74, $75, $76, $77 L9B80: .byte $22, $78, $79, $7A, $7B ;-----------------------------------[ Enemy animation data tables ]---------------------------------- EnemyAnimIndexTbl: L9B85: .byte $00, $01, $FF L9B88: .byte $02, $FF L9B8A: .byte $03, $04, $FF L9B8D: .byte $07, $08, $FF L9B90: .byte $05, $06, $FF L9B93: .byte $09, $0A, $FF L9B96: .byte $0B, $FF L9B98: .byte $0C, $0D, $0E, $0F, $FF L9B9D: .byte $10, $11, $12, $13, $FF L9BA2: .byte $17, $18, $FF L9BA5: .byte $19, $1A, $FF L9BA8: .byte $1B, $FF L9BAA: .byte $21, $22, $FF L9BAD: .byte $27, $28, $29, $2A, $FF L9BB2: .byte $2B, $2C, $2D, $2E, $FF L9BB7: .byte $2F, $FF L9BB9: .byte $42, $FF L9BBB: .byte $43, $44, $F7, $FF L9BBF: .byte $37, $FF, $38, $FF L9BC3: .byte $30, $31, $FF L9BC6: .byte $31, $32, $FF L9BC9: .byte $33, $34, $FF L9BCC: .byte $34, $35, $FF L9BCF: .byte $58, $59, $FF L9BD2: .byte $5A, $5B, $FF L9BD5: .byte $5C, $5D, $FF L9BD8: .byte $5E, $5F, $FF L9BDB: .byte $60, $FF L9BDD: .byte $61, $F7, $62, $F7, $FF L9BE2: .byte $66, $67, $FF L9BE5: .byte $69, $6A, $FF L9BE8: .byte $68, $FF L9BEA: .byte $6B, $FF L9BEC: .byte $66, $FF L9BEE: .byte $69, $FF ;----------------------------[ Enemy sprite drawing pointer tables ]--------------------------------- EnemyFramePtrTbl1: L9BF0: .word $9DD8, $9DDD, $9DE2, $9DE7, $9DFA, $9E0E, $9E24, $9E3A L9C00: .word $9E4D, $9E61, $9E77, $9E8D, $9E97, $9E9C, $9EA1, $9EA6 L9C10: .word $9EAB, $9EB0, $9EB5, $9EBA, $9EBF, $9EBF, $9EBF, $9EBF L9C20: .word $9ECE, $9EDD, $9EEE, $9EFF, $9F07, $9F07, $9F07, $9F07 L9C30: .word $9F07, $9F07, $9F0F, $9F17, $9F17, $9F17, $9F17, $9F17 L9C40: .word $9F23, $9F31, $9F3F, $9F4D, $9F59, $9F67, $9F75, $9F83 L9C50: .word $9F8E, $9F9C, $9FAA, $9FB6, $9FC4, $9FD2, $9FDE, $9FDE L9C60: .word $9FF2, $A006, $A006, $A006, $A006, $A006, $A006, $A006 L9C70: .word $A006, $A006, $A006, $A00B, $A013, $A01B, $A01B, $A01B L9C80: .word $A01B, $A01B, $A01B, $A01B, $A01B, $A01B, $A01B, $A01B L9C90: .word $A01B, $A01B, $A01B, $A01B, $A01B, $A01B, $A01B, $A01B L9CA0: .word $A01B, $A027, $A033, $A03F, $A04B, $A057, $A063, $A06F L9CB0: .word $A07B, $A083, $A091, $A0AB, $A0AB, $A0AB, $A0AB, $A0B3 L9CC0: .word $A0BB, $A0C3, $A0CB, $A0D3, $A0DB, $A0DB, $A0DB, $A0DB L9CD0: .word $A0DB, $A0DB, $A0DB, $A0DB, $A0DB, $A0DB, $A0DB, $A0DB L9CE0: .word $A0DB, $A0DB, $A0DB, $A0DB, $A0DB, $A0DB, $A0DB, $A0DB EnemyFramePtrTbl2: L9CF0: .word $A0DB, $A0E1, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6 L9D00: .word $A0E6, $A0E6 EnemyPlacePtrTbl: L9D04: .word $9D22, $9D24, $9D3C, $9D60, $9D72, $9D64, $9D6E, $9D76 L9D14: .word $9D82, $9D8A, $9D8A, $9DAA, $9DB8, $9DBC, $9DCC ;------------------------------[ Enemy sprite placement data tables ]-------------------------------- L9D22: .byte $FC, $FC L9D24: .byte $80, $80, $81, $81, $82, $82, $83, $83, $84, $84, $85, $85, $F4, $F8, $F4, $00 L9D34: .byte $FC, $F8, $FC, $00, $04, $F8, $04, $00 L9D3C: .byte $EC, $F8, $EC, $00, $F4, $F8, $F4, $00, $FC, $F8, $FC, $00, $04, $E8, $04, $F0 L9D4C: .byte $04, $F8, $04, $00, $0C, $F0, $0C, $F8, $0C, $00, $F4, $F4, $F4, $EC, $FC, $F4 L9D5C: .byte $12, $E8, $14, $F8 L9D60: .byte $F4, $F4, $F4, $04 L9D64: .byte $F8, $F4, $F8, $FC, $F8, $04, $00, $F8, $00, $00 L9D6E: .byte $FC, $F8, $FC, $00 L9D72: .byte $F0, $F8, $F0, $00 L9D76: .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00, $08, $F8, $08, $00 L9D82: .byte $F8, $E8, $F8, $10, $F8, $F0, $F8, $08 L9D8A: .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00, $F0, $00, $F0, $08, $F8, $08, $F0, $F0 L9D9A: .byte $F0, $F8, $F8, $F0, $00, $F0, $08, $F0, $08, $F8, $00, $08, $08, $00, $08, $08 L9DAA: .byte $F8, $FC, $00, $F8, $F4, $F4, $FC, $F4, $00, $00, $F4, $04, $FC, $04 L9DB8: .byte $F8, $FC, $00, $FC L9DBC: .byte $F8, $F4, $00, $F4, $F8, $FC, $00, $FC, $F4, $FC, $FC, $FC, $F8, $04, $00, $04 L9DCC: .byte $02, $F4, $0A, $F4, $F8, $FC, $00, $FC, $02, $04, $0A, $04 ;Enemy frame drawing data. L9DD8: .byte $00, $02, $02, $14, $FF L9DDD: .byte $00, $02, $02, $24, $FF L9DE2: .byte $00, $00, $00, $04, $FF L9DE7: .byte $22, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9DF7: .byte $F9, $F8, $FF L9DFA: .byte $22, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9D0A: .byte $D8, $FE, $E8, $FF L9E0E: .byte $22, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9E1E: .byte $F9, $F8, $FE, $D5, $FA, $FF L9E24: .byte $22, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9E34: .byte $D8, $FE, $E8, $D5, $FA, $FF L9E3A: .byte $62, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9E4A: .byte $F9, $F8, $FF L9E4D: .byte $62, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9E5D: .byte $D8, $FE, $E8, $FF L9E61: .byte $62, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9E71: .byte $F9, $F8, $FE, $D5, $FA, $FF L9E77: .byte $62, $13, $14, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9E87: .byte $D8, $FE, $E8, $D5, $FA, $FF L9E8D: .byte $21, $00, $00, $C6, $C7, $D6, $D7, $E6, $E7, $FF L9E97: .byte $30, $07, $07, $EC, $FF L9E9C: .byte $30, $07, $07, $FB, $FF L9EA1: .byte $F0, $07, $07, $EC, $FF L9EA6: .byte $F0, $07, $07, $FB, $FF L9EAB: .byte $70, $07, $07, $EC, $FF L9EB0: .byte $70, $07, $07, $FB, $FF L9EB5: .byte $B0, $07, $07, $EC, $FF L9EBA: .byte $B0, $07, $07, $FB, $FF L9EBF: .byte $25, $08, $08, $CE, $CF, $FD, $62, $CE, $FD, $22, $DF, $FD, $62, $DF, $FF L9ECE: .byte $25, $08, $08, $CE, $CF, $FD, $62, $CE, $FD, $22, $DE, $FD, $62, $DE, $FF L9EDD: .byte $A5, $08, $08, $FD, $22, $CE, $CF, $FD, $62, $CE, $FD, $A2, $DF, $FD, $E2, $DF L9EED: .byte $FF L9EEE: .byte $A5, $08, $08, $FD, $22, $CE, $CF, $FD, $62, $CE, $FD, $A2, $DE, $FD, $E2, $DE L9EFE: .byte $FF L9EFF: .byte $21, $00, $00, $CE, $CE, $DF, $DF, $FF L9F07: .byte $29, $04, $08, $E6, $FD, $62, $E6, $FF L9F0F: .byte $29, $04, $08, $E5, $FD, $62, $E5, $FF, $27, $08, $08, $EE, $EF L9F17: .byte $FD, $E2, $EF, $FD, $A2, $EF, $FF L9F23: .byte $27, $08, $08, $FD, $62, $EF, $FD, $22, $EF, $ED, $FD, $A2, $EF, $FF L9F31: .byte $27, $08, $08, $FD, $62, $EF, $FD, $22, $EF, $FD, $E2, $EF, $EE, $FF L9F3F: .byte $27, $08, $08, $FD, $62, $EF, $FD, $E2, $ED, $EF, $FD, $A2, $EF, $FF L9F4D: .byte $67, $08, $08, $EE, $EF, $FD, $A2, $EF, $FD, $E2, $EF, $FF L9F59: .byte $67, $08, $08, $FD, $22, $EF, $FD, $62, $EF, $ED, $FD, $E2, $EF, $FF L9F67: .byte $67, $08, $08, $FD, $22, $EF, $FD, $62, $EF, $FD, $A2, $EF, $EE, $FF L9F75: .byte $67, $08, $08, $FD, $22, $EF, $FD, $A2, $ED, $EF, $FD, $E2, $EF, $FF L9F83: .byte $21, $00, $00, $FC, $04, $00, $EE, $EF, $EF, $EF, $FF L9F8E: .byte $2D, $08, $0A, $E2, $F2, $E3, $F3, $FE, $FE, $FD, $62, $E2, $F2, $FF L9F9C: .byte $2D, $08, $0A, $E4, $F2, $FE, $FE, $E3, $F3, $FD, $62, $E4, $F2, $FF L9FAA: .byte $2E, $08, $0A, $F4, $F2, $E3, $F3, $FD, $62, $F4, $F2, $FF L9FB6: .byte $AD, $08, $0A, $E2, $F2, $E3, $F3, $FE, $FE, $FD, $E2, $E2, $F2, $FF L9FC4: .byte $AD, $08, $0A, $E4, $F2, $FE, $FE, $E3, $F3, $FD, $E2, $E4, $F2, $FF L9FD2: .byte $AE, $08, $0A, $F4, $F2, $E3, $F3, $FD, $E2, $F4, $F2, $FF L9FDE: .byte $21, $00, $00, $FC, $08, $FC, $E2, $FC, $00, $08, $E2, $FC, $00, $F8, $F2, $FC L9FEE: .byte $00, $08, $F2, $FF L9FF2: .byte $21, $00, $00, $FC, $00, $FC, $F2, $FC, $00, $08, $F2, $FC, $00, $F8, $E2, $FC LA002: .byte $00, $08, $E2, $FF LA006: .byte $20, $04, $04, $C0, $FF LA00B: .byte $20, $00, $00, $FC, $F8, $00, $D0, $FF LA013: .byte $23, $00, $00, $D1, $FD, $62, $D1, $FF LA01B: .byte $27, $08, $08, $CC, $FD, $62, $CC, $FD, $22, $DC, $DD, $FF LA027: .byte $67, $08, $08, $FD, $22, $CD, $FD, $62, $CD, $DC, $DD, $FF LA033: .byte $27, $08, $08, $FD, $A2, $DA, $FD, $22, $CB, $DA, $DB, $FF LA03F: .byte $A7, $08, $08, $CA, $CB, $FD, $22, $CA, $FD, $A2, $DB, $FF LA04B: .byte $A7, $08, $08, $CC, $FD, $E2, $CC, $FD, $A2, $DC, $DD, $FF LA057: .byte $E7, $08, $08, $FD, $A2, $CD, $FD, $E2, $CD, $DC, $DD, $FF LA063: .byte $67, $08, $08, $FD, $E2, $DA, $FD, $62, $CB, $DA, $DB, $FF LA06F: .byte $E7, $08, $08, $CA, $CB, $FD, $62, $CA, $FD, $E2, $DB, $FF LA07B: .byte $21, $00, $00, $CC, $CD, $DC, $DD, $FF LA083: .byte $0A, $00, $00, $75, $FD, $60, $75, $FD, $A0, $75, $FD, $E0, $75, $FF LA091: .byte $0A, $00, $00, $FE, $FE, $FE, $FE, $3D, $3E, $4E, $FD, $60, $3E, $3D, $4E, $FD LA0A1: .byte $E0, $4E, $3E, $3D, $FD, $A0, $4E, $3D, $3E, $FF LA0AB: .byte $2A, $08, $08, $C2, $C3, $D2, $D3, $FF LA0B3: .byte $2A, $08, $08, $C2, $C4, $D2, $D4, $FF LA0BB: .byte $21, $08, $08, $C2, $C4, $D2, $D4, $FF LA0C3: .byte $6A, $08, $08, $C2, $C3, $D2, $D3, $FF LA0CB: .byte $6A, $08, $08, $C2, $C4, $D2, $D4, $FF LA0D3: .byte $61, $08, $08, $C2, $C4, $D2, $D4, $FF LA0DB: .byte $0C, $08, $04, $14, $24, $FF A0E1: .byte $00, $04, $04, $8A, $FF A0E6: .byte $00, $04, $04, $8A, $FF ;------------------------------------------[ Palette data ]------------------------------------------ Palette00: LA0EB: .byte $3F ;Upper byte of PPU palette adress. LA0EC: .byte $00 ;Lower byte of PPU palette adress. LA0ED: .byte $20 ;Palette data length. ;The following values are written to the background palette: LA0EE: .byte $0F, $20, $10, $00, $0F, $21, $14, $13, $0F, $28, $1B, $02, $0F, $15, $16, $04 ;The following values are written to the sprite palette: LA0FE: .byte $0F, $16, $19, $27, $0F, $12, $30, $21, $0F, $14, $13, $29, $0F, $13, $15, $27 LA10E: .byte $00 ;End Palette00 info. Palette01: LA10F: .byte $3F ;Upper byte of PPU palette adress. LA110: .byte $12 ;Lower byte of PPU palette adress. LA111: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA112: .byte $19, $27 LA114: .byte $00 ;End Palette01 info. Palette03: LA115: .byte $3F ;Upper byte of PPU palette adress. LA116: .byte $12 ;Lower byte of PPU palette adress. LA117: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA118: .byte $2C, $27 LA11A: .byte $00 ;End Palette03 info. Palette02: LA11B: .byte $3F ;Upper byte of PPU palette adress. LA11C: .byte $12 ;Lower byte of PPU palette adress. LA11D: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA11E: .byte $19, $35 LA120: .byte $00 ;End Palette02 info. Palette04: LA121: .byte $3F ;Upper byte of PPU palette adress. LA122: .byte $12 ;Lower byte of PPU palette adress. LA123: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA124: .byte $2C, $24 LA126: .byte $00 ;End Palette04 info. Palette05: LA127: .byte $3F ;Upper byte of PPU palette adress. LA128: .byte $00 ;Lower byte of PPU palette adress. LA129: .byte $10 ;Palette data length. ;The following values are written to the background palette: LA12A: .byte $0F, $20, $16, $04, $0F, $21, $14, $13, $0F, $27, $16, $02, $0F, $15, $16, $04 LA13A: .byte $00 ;End Palette05 info. Palette06: LA13B: .byte $3F ;Upper byte of PPU palette adress. LA13C: .byte $11 ;Lower byte of PPU palette adress. LA13D: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA13E: .byte $04, $09, $07 LA141: .byte $00 ;End Palette06 info. Palette07: LA142: .byte $3F ;Upper byte of PPU palette adress. LA143: .byte $11 ;Lower byte of PPU palette adress. LA144: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA145: .byte $05, $09, $17 LA148: .byte $00 ;End Palette07 info. Palette08: LA149: .byte $3F ;Upper byte of PPU palette adress. LA14A: .byte $11 ;Lower byte of PPU palette adress. LA14B: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA14C: .byte $06, $0A, $26 LA14F: .byte $00 ;End Palette08 info. Palette09: LA150: .byte $3F ;Upper byte of PPU palette adress. LA151: .byte $11 ;Lower byte of PPU palette adress. LA152: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA153: .byte $16, $19, $27 LA156: .byte $00 ;End Palette09 info. Palette0A: LA157: .byte $3F ;Upper byte of PPU palette adress. LA158: .byte $00 ;Lower byte of PPU palette adress. LA159: .byte $04 ;Palette data length. ;The following values are written to the background palette: LA15A: .byte $0F, $30, $30, $21 LA15E: .byte $00 ;End Palette0A info. Palette0B: LA15F: .byte $3F ;Upper byte of PPU palette adress. LA160: .byte $10 ;Lower byte of PPU palette adress. LA161: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA162: .byte $0F, $15, $34, $17 LA166: .byte $00 ;End Palette0B info. Palette0C: LA167: .byte $3F ;Upper byte of PPU palette adress. LA168: .byte $10 ;Lower byte of PPU palette adress. LA169: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA16A: .byte $0F, $15, $34, $19 LA16E: .byte $00 ;End Palette0C info. Palette0D: LA16F: .byte $3F ;Upper byte of PPU palette adress. LA170: .byte $10 ;Lower byte of PPU palette adress. LA171: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA172: .byte $0F, $15, $34, $28 LA176: .byte $00 ;End Palette0D info. Palette0E: LA177: .byte $3F ;Upper byte of PPU palette adress. LA178: .byte $10 ;Lower byte of PPU palette adress. LA179: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA17A: .byte $0F, $15, $34, $29 LA17E: .byte $00 ;End Palette0E info. ;----------------------------[ Room and structure pointer tables ]----------------------------------- RmPtrTbl: LA17F: .word $A23F, $A23F, $A247, $A273, $A29E, $A2B2, $A2E4, $A30F LA18F: .word $A34D, $A383, $A3B8, $A3F9, $A429, $A455, $A48C, $A4C3 LA19F: .word $A4F6, $A525, $A555, $A5A1, $A5E5, $A618, $A653, $A67C LA1AF: .word $A6A9, $A6D6, $A6FF, $A72C, $A76B, $A79D, $A7CF, $A7FC LA1BF: .word $A826, $A849, $A867, $A88D, $A8BF, $A8EC, $A92A, $A95D LA1CF: .word $A97B, $A9A5 StrctPtrTbl: LA1D3: .word $A9BF, $A9D2, $A9D9, $A9E0, $A9F9, $A9FD, $AA02, $AA07 LA1E3: .word $AA17, $AA2C, $AA32, $AA3D, $AA57, $AA64, $AA6D, $AA78 LA1F3: .word $AA83, $AA86, $AA8C, $AA96, $AAAB, $AAC7, $AAD2, $AAD9 LA203: .word $AAEE, $AB0A, $AB11, $AB1A, $AB1D ;-----------------------------------[ Special items table ]----------------------------------------- ;The way the bytes work int the special items table is as follows: ;Long entry(one with a data word in it): ;Byte 0=Y coordinate of room on the world map. ;Word 0=Address of next entry in the table that has a different Y coordinate.--> ; $FFFF=No more items with different Y coordinates. ;Byte 1=X coordinate of room in the world map. ;Byte 2=byte offset-1 of next special item in the table that has the same--> ; Y coordinate(short entry). $FF=No more items with different X--> ; coordinates until next long entry. ;Byte 3=Item type. See list below for special item types. ;Bytes 4 to end of entry(ends with #$00)=Data bytes for special item(s).--> ; It is possible to have multiple special items in one room. ;Short entry(one without a data word in it): ;Byte 0=X coordinate of room in the world map(Y coordinate is the same--> ; as the last long item entry in the table). ;Byte 1=byte offset-1 of next special item in the table that has the same--> ; Y coordinate(short entry). $FF=No more items with different X--> ; coordinates until next long entry. ;Byte 2=Item type. See list below for special item types. ;Bytes 3 to end of entry(ends with #$00)=Data bytes for special item(s).--> ; It is possible to have multiple special items in one room. ; ;Special item types: ;#$01=Squeept. ;#$02=Power up. ;#$03=Mellows, Memus or Melias. ;#$04=Elevator. ;#$05=Mother brain room cannon. ;#$06=Mother brain. ;#$07=Zeebetite. ;#$08=Rinka. ;#$09=Door. ;#$0A=Palette change room. SpecItmsTbl: ;Missiles. LA20D: .byte $18 LA20E: .word $A21B LA210: .byte $12, $06, $02, $09, $6D, $00 ;Elevator to Norfair. LA216: .byte $19, $FF, $04, $84, $00 ;Energy tank. LA21B: .byte $19 LA21C: .word $A224 LA21E: .byte $11, $FF, $02, $08, $74, $0 ;Missiles. LA224: .byte $1B LA225: .word $A22D LA227: .byte $18, $FF, $02, $09, $6D, $00 ;Energy tank. LA22D: .byte $1D LA22E: .word $A236 LA230: .byte $0F, $FF, $02, $08, $66, $00 ;Missiles. LA236: .byte $1E LA237: .word $FFFF LA239: .byte $14, $FF, $02, $09, $6D, $00 ;-----------------------------------------[ Room definitions ]--------------------------------------- ;The first byte of the room definitions is attribute table data and is used to set the base color of ;the room. The object data is grouped into 3 byte segments and represents a structure in the room. ;The first byte of the structure data has the format yyyyxxxx and contains the y, x location of the ;structure in the room(measured in tiles). The second byte is an index into the StrctPtrTbl and ;identifies which structure to use. The third byte is an attribute table byte and determines the ;color of the structure. Most of the time, this byte will have the same value as the attribute byte ;for the base color of the room. Having a room base color byte reduces the calculations required to ;find the proper color for each structure as the structure attribute byte is skipped if it is the same ;as the room attribute byte. #$FD marks the end of the room objects portion of the room definition. ;Using the byte #$FE can be used as an empty place holder in the room data. For example, if you ;wanted to remove a structure from a room, simply replace the three bytes associated with the structure ;with #$FE. The next portion of the room definition describes the enemies and doors in the room. The ;number of data bytes and their functions vary depending on what type of item is being loaded. ;Room #$00 LA23F: .byte $02 ;Attribute table data. ;Room object data: LA240: .byte $07, $03, $02, $87, $03, $02, $FF ;Room #$01 LA247: .byte $03 ;Attribute table data. ;Room object data: LA248: .byte $00, $07, $03, $01, $08, $03, $06, $09, $03, $0B, $08, $03, $0E, $07, $03, $50 LA258: .byte $07, $03, $5E, $07, $03, $93, $0A, $00, $96, $09, $03, $9C, $0A, $00, $A0, $07 LA268: .byte $03, $AE, $07, $03, $E2, $08, $03, $EA, $08, $03, $FF ;Room #$02 LA273: .byte $03 ;Attribute table data. ;Room object data: LA274: .byte $00, $07, $03, $0E, $07, $03, $46, $08, $03, $50, $01, $02, $5F, $01, $02, $80 LA284: .byte $08, $03, $84, $09, $03, $88, $09, $03, $8C, $08, $03, $B0, $08, $03, $BC, $08 LA294: .byte $03, $D4, $00, $03, $FD ;Room enemy/door data: LA299: .byte $02, $A1, $02, $B1, $FF ;Room #$03 LA29E: .byte $03 ;Attribute table data. ;Room object data: LA29F: .byte $00, $07, $03, $0E, $07, $03, $50, $07, $03, $5E, $07, $03, $A0, $07, $03, $AE LA2AF: .byte $07, $03, $FF ;Room #$04 LA2B2: .byte $03 ;Attribute table data. ;Room object data: LA2B3: .byte $00, $08, $03, $04, $08, $03, $08, $08, $03, $0C, $08, $03, $40, $08, $03, $44 LA2C3: .byte $08, $03, $48, $08, $03, $4C, $08, $03, $70, $08, $03, $74, $08, $03, $78, $08 LA2D3: .byte $03, $7C, $08, $03, $B0, $08, $03, $B4, $08, $03, $B8, $08, $03, $BC, $08, $03 LA2E3: .byte $FF ;Room #$05 LA2E4: .byte $03 ;Attribute table data. ;Room object data: LA2E5: .byte $00, $07, $03, $05, $08, $03, $0E, $07, $03, $50, $01, $02, $5F, $01, $02, $68 LA2F5: .byte $08, $03, $80, $07, $03, $82, $09, $03, $8C, $09, $03, $8E, $07, $03, $AE, $07 LA305: .byte $03, $B0, $07, $03, $FD ;Room enemy/door data: LA30A: .byte $02, $A1, $02, $B1, $FF ;Room #$06 LA30F: .byte $03 ;Attribute table data. ;Room object data: LA310: .byte $00, $07, $03, $0E, $07, $03, $26, $04, $03, $35, $09, $03, $50, $01, $02, $5E LA320: .byte $07, $03, $80, $07, $03, $82, $09, $03, $89, $09, $03, $AE, $07, $03, $B2, $05 LA330: .byte $01, $C4, $09, $03, $D0, $07, $03, $DC, $04, $03, $EB, $09, $03, $FD ;Room enemy/door data: LA33E: .byte $02, $B1, $07, $87, $27, $17, $87, $DD, $21, $86, $B5, $31, $86, $7B, $FF ;Room #$07 LA34D: .byte $03 ;Attribute table data. ;Room object data: LA34E: .byte $00, $07, $03, $0E, $07, $03, $22, $05, $01, $26, $09, $03, $50, $07, $03, $5E LA35E: .byte $07, $03, $62, $09, $03, $79, $09, $03, $95, $04, $03, $A0, $07, $03, $A4, $09 LA36E: .byte $03, $AE, $07, $03, $E8, $09, $03, $FD ;Room enemy/door data: LA376: .byte $51, $06, $17, $01, $86, $6B, $11, $86, $DA, $27, $87, $96, $FF ;Room #$08 LA383: .byte $03 ;Attribute table data. ;Room object data: LA384: .byte $00, $07, $03, $0E, $07, $03, $26, $09, $03, $2D, $06, $01, $50, $01, $02, $5C LA394: .byte $09, $03, $5E, $07, $03, $80, $08, $03, $84, $08, $03, $88, $08, $03, $8C, $08 LA3A4: .byte $03, $C0, $08, $03, $CC, $08, $03, $D4, $00, $03, $FD ;Room enemy/door data: LA3AF: .byte $02, $B1, $31, $86, $18, $41, $86, $78, $FF ;Room #$09 LA3B8: .byte $00 ;Attribute table data. ;Room object data: LA3B9: .byte $00, $07, $03, $07, $19, $00, $0E, $07, $03, $45, $19, $00, $4C, $19, $00, $50 LA3C9: .byte $07, $03, $5F, $01, $02, $72, $19, $00, $8C, $09, $03, $8E, $07, $03, $A0, $07 LA3D9: .byte $03, $AB, $19, $00, $B4, $19, $00, $BE, $07, $03, $E8, $19, $00, $FD ;Room enemy/door data: LA3E7: .byte $02, $A1, $01, $06, $34, $11, $86, $3C, $21, $06, $9B, $31, $86, $A4, $51, $86 LA3F7: .byte $D8, $FF ;Room #$0A LA3F9: .byte $03 ;Attribute table data. ;Room object data: LA3FA: .byte $00, $07, $03, $0E, $07, $03, $16, $19, $00, $50, $07, $03, $53, $19, $00, $5E LA40A: .byte $07, $03, $86, $19, $00, $A0, $07, $03, $AE, $07, $03, $B9, $19, $00, $BD, $06 LA41A: .byte $01, $FD ;Room enemy/door data: LA41C: .byte $41, $86, $06, $01, $06, $43, $11, $86, $76, $21, $86, $A9, $FF ;Room #$0B LA429: .byte $03 ;Attribute table data. ;Room object data: LA42A: .byte $00, $07, $03, $0E, $07, $03, $50, $07, $03, $5F, $01, $02, $80, $08, $03, $84 LA43A: .byte $08, $03, $88, $09, $03, $8C, $08, $03, $C0, $08, $03, $CC, $08, $03, $D4, $00 LA44A: .byte $03, $FD ;Room enemy/door data: LA44C: .byte $02, $A1, $31, $82, $74, $41, $82, $79, $FF ;Room #$0C LA455: .byte $00 ;Attribute table data. ;Room object data: LA456: .byte $00, $0B, $00, $04, $0B, $00, $08, $0B, $00, $0C, $0B, $00, $50, $01, $02, $5F LA466: .byte $01, $02, $80, $0B, $00, $82, $0B, $00, $86, $0C, $00, $88, $0B, $00, $8C, $0B LA476: .byte $00, $C0, $0B, $00, $C2, $0B, $00, $C6, $0C, $00, $D8, $0B, $00, $DC, $0B, $00 LA486: .byte $FD ;Room enemy/door data: LA487: .byte $02, $A0, $02, $B1, $FF ;Room #$0D LA48C: .byte $00 ;Attribute table data. ;Room object data: LA48D: .byte $00, $0B, $00, $04, $0B, $00, $08, $0B, $00, $0C, $0B, $00, $0E, $0D, $00, $1E LA49D: .byte $0D, $00, $50, $01, $02, $5F, $01, $02, $80, $0B, $00, $84, $0B, $00, $88, $0B LA4AD: .byte $00, $8C, $0B, $00, $C0, $0B, $00, $C4, $0B, $00, $C8, $0B, $00, $CC, $0B, $00 LA4BD: .byte $FD ;Room enemy/door data: LA4BE: .byte $02, $A1, $02, $B1, $FF ;Room #$0E LA4C3: .byte $00 ;Attribute table data. ;Room object data: LA4C4: .byte $00, $0E, $00, $04, $0E, $00, $08, $0E, $00, $0C, $0E, $00, $7D, $0A, $00, $B0 LA4D4: .byte $0B, $00, $B4, $0B, $00, $B8, $0C, $00, $B9, $0B, $00, $BE, $0B, $00, $BF, $0C LA4E4: .byte $00, $D0, $00, $03, $D8, $00, $03, $FD ;Room enemy/door data: LA4EC: .byte $51, $80, $27, $01, $02, $A4, $11, $02, $AA, $FF ;Room #$0F LA4F6: .byte $00 ;Attribute table data. ;Room object data: LA4F7: .byte $00, $0E, $00, $04, $0E, $00, $08, $0E, $00, $0B, $0E, $00, $0F, $0A, $00, $5F LA507: .byte $02, $02, $8C, $08, $03, $CC, $08, $03, $D0, $0F, $03, $D4, $00, $03, $D8, $0F LA517: .byte $03, $FD ;Room enemy/door data: LA519: .byte $02, $A2, $51, $80, $27, $21, $80, $29, $11, $80, $2B, $FF ;Room #$10 LA525: .byte $03 ;Attribute table data. ;Room object data: LA526: .byte $00, $08, $03, $04, $08, $03, $08, $0E, $00, $0C, $0E, $00, $40, $08, $03, $42 LA536: .byte $0B, $00, $70, $08, $03, $72, $0B, $00, $76, $0A, $00, $B0, $08, $03, $B4, $08 LA546: .byte $03, $D8, $0F, $03, $DC, $0F, $03, $FD ;Room enemy/door data: LA54E: .byte $31, $80, $2E, $41, $80, $2B, $FF ;Room #$11 LA555: .byte $03 ;Attribute table data. ;Room object data: LA556: .byte $00, $07, $03, $02, $11, $03, $06, $11, $03, $0A, $11, $03, $0E, $07, $03, $13 LA566: .byte $10, $03, $14, $12, $03, $1C, $10, $03, $22, $0A, $00, $50, $02, $02, $5F, $02 LA576: .byte $02, $80, $07, $03, $84, $11, $03, $8F, $07, $03, $92, $19, $00, $95, $11, $03 LA586: .byte $99, $11, $03, $AE, $19, $00, $C0, $07, $03, $D2, $00, $03, $D7, $00, $03, $DF LA596: .byte $07, $03, $FD ;Room enemy/door data: LA599: .byte $02, $A1, $02, $B2, $01, $49, $66, $FF ;Room #$12 LA5A1: .byte $01 ;Attribute table data. ;Room object data: LA5A2: .byte $00, $07, $03, $01, $0E, $00, $05, $0E, $00, $09, $0E, $00, $0D, $0E, $00, $22 LA5B2: .byte $11, $03, $26, $11, $03, $50, $02, $02, $80, $07, $03, $81, $11, $03, $8B, $0A LA5C2: .byte $00, $A7, $0A, $00, $B0, $07, $03, $BF, $0A, $00, $D2, $00, $03, $DA, $00, $03 LA5D2: .byte $FD ;Room enemy/door data: LA5D3: .byte $02, $B1, $11, $86, $97, $21, $06, $7B, $31, $86, $AF, $41, $80, $35, $51, $83 LA5E3: .byte $3E, $FF ;Room #$13 LA5E5: .byte $01 ;Attribute table data. ;Room object data: LA5E6: .byte $00, $0E, $00, $04, $0E, $00, $08, $0E, $00, $0C, $0E, $00, $86, $0A, $00, $8A LA5F6: .byte $0A, $00, $A2, $0A, $00, $A3, $0A, $00, $BE, $0A, $00, $D0, $00, $03, $D8, $00 LA606: .byte $03, $FD ;Room enemy/door data: LA608: .byte $01, $86, $92, $11, $86, $76, $21, $86, $7A, $31, $06, $AE, $41, $80, $27, $FF ;Room #$14 LA618: .byte $01 ;Attribute table data. ;Room object data: LA619: .byte $00, $0E, $00, $04, $0E, $00, $08, $0E, $00, $0C, $0B, $00, $5F, $01, $02, $85 LA629: .byte $0A, $00, $86, $0A, $00, $8C, $11, $03, $9E, $07, $03, $A2, $0A, $00, $B9, $0A LA639: .byte $00, $CE, $07, $03, $D0, $00, $03, $D6, $00, $03, $FD ;Room enemy/door data: LA644: .byte $02, $A1, $51, $86, $92, $01, $86, $75, $21, $80, $23, $31, $80, $28, $FF ;Room #$15 LA653: .byte $01 ;Attribute table data. ;Room object data: LA654: .byte $00, $14, $01, $08, $14, $01, $10, $13, $01, $50, $01, $02, $80, $13, $01, $94 LA664: .byte $05, $01, $C0, $14, $01, $CA, $14, $01, $D8, $00, $03, $FD ;Room enemy/door data: LA670: .byte $02, $B1, $41, $80, $37, $51, $80, $3C, $01, $80, $3E, $FF ;Room #$16 LA67C: .byte $01 ;Attribute table data. ;Room object data: LA67D: .byte $00, $14, $01, $08, $14, $01, $30, $14, $01, $38, $14, $01, $90, $14, $01, $92 La68D: .byte $04, $03, $94, $04, $03, $98, $14, $01, $9B, $04, $03, $C0, $14, $01, $C8, $14 LA69D: .byte $01, $FD ;Room enemy/door data: LA69F: .byte $17, $87, $93, $27, $07, $95, $37, $87, $9C, $FF ;Room #$17 LA6A9: .byte $01 ;Attribute table data. ;Room object data: LA6AA: .byte $00, $14, $01, $08, $14, $01, $30, $14, $01, $38, $14, $01, $52, $13, $01, $5A LA6BA: .byte $13, $01, $61, $06, $01, $C0, $14, $01, $C3, $04, $03, $C8, $14, $01, $CB, $04 LA6CA: .byte $03, $FD ;Room enemy/door data: LA6CC: .byte $47, $87, $C4, $57, $87, $CC, $01, $80, $67, $FF ;Room #$18 LA6D6: .byte $01 ;Attribute table data. ;Room object data: LA6D7: .byte $00, $14, $01, $08, $14, $01, $1C, $13, $01, $5F, $01, $02, $8C, $13, $01, $C0 LA6E7: .byte $14, $01, $CA, $14, $01, $D0, $00, $03, $D5, $00, $03, $FD ;Room enemy/door data: LA6F3: .byte $02, $A1, $11, $80, $33, $21, $00, $35, $31, $80, $37, $FF ;Room #$19 LA6FF: .byte $00 ;Attribute table data. ;Room object data: LA700: .byte $00, $14, $01, $08, $14, $01, $30, $14, $01, $38, $14, $01, $D0, $00, $03, $D2 LA710: .byte $13, $01, $D7, $13, $01, $D8, $04, $03, $DB, $00, $03, $DC, $13, $01, $FD ;Room enemy/door data: LA71E: .byte $41, $00, $64, $51, $80, $68, $01, $00, $6C, $17, $87, $D9, $FF ;Room #$1A LA72C: .byte $01 ;Attribute table data. ;Room object data: LA72D: .byte $00, $14, $01, $08, $14, $01, $30, $13, $01, $34, $13, $01, $38, $13, $01, $3C LA73D: .byte $13, $01, $40, $16, $01, $41, $15, $01, $44, $15, $01, $48, $15, $01, $4C, $15 LA74D: .byte $01, $4F, $16, $01, $90, $14, $01, $92, $04, $03, $98, $14, $01, $9B, $04, $03 LA75D: .byte $C0, $14, $01, $C8, $14, $01, $FD ;Room enemy/door data: LA764: .byte $27, $87, $93, $37, $87, $9C, $FF ;Room #$1B LA76B: .byte $02 ;Attribute table data. ;Room object data: LA76C: .byte $00, $18, $02, $08, $18, $02, $20, $18, $02, $28, $0A, $00, $50, $01, $02, $5F LA77C: .byte $19, $00, $80, $17, $02, $8C, $19, $00, $C0, $18, $02, $CA, $18, $02, $D8, $00 LA78C: .byte $03, $FD ;Room enemy/door data: LA78E: .byte $02, $B1, $01, $8C, $39, $11, $0C, $3D, $21, $8C, $6B, $31, $0C, $66, $FF ;Room #$1C LA79D: .byte $02 ;Attribute table data. ;Room object data: LA79E: .byte $00, $18, $02, $08, $18, $02, $28, $18, $02, $5F, $01, $02, $70, $19, $00, $8C LA7AE: .byte $17, $02, $94, $19, $00, $B8, $17, $02, $BC, $17, $02, $C0, $18, $02, $D0, $00 LA7BE: .byte $03, $FD ;Room enemy/door data: LA7C0: .byte $02, $A1, $01, $8C, $33, $11, $0C, $36, $41, $8C, $92, $51, $0C, $A6, $FF ;Room #$1D LA7CF: .byte $00 ;Attribute table data. ;Room object data: LA7D0: .byte $00, $18, $02, $08, $18, $02, $30, $0A, $00, $49, $19, $00, $55, $0A, $00, $5D LA7E0: .byte $0A, $00, $A0, $18, $02, $A8, $18, $02, $D0, $00, $03, $D8, $00, $03, $FD ;Room enemy/door data: LA7F1: .byte $21, $8C, $38, $31, $0C, $97, $41, $8C, $99, $51, $0C, $9B, $FF ;Room #$1E LA7FC: .byte $02 ;Attribute table data. ;Room object data: LA7FD: .byte $00, $17, $02, $04, $17, $02, $08, $17, $02, $0C, $17, $02, $70, $17, $02, $74 LA80D: .byte $17, $02, $78, $17, $02, $7C, $17, $02, $D0, $00, $03, $D8, $00, $03, $FD ;Room enemy/door data: LA81C: .byte $01, $8C, $42, $11, $0C, $45, $21, $8C, $48, $FF ;Room #$1F LA826: .byte $00 ;Attribute table data. ;Room object data: LA827: .byte $00, $0B, $00, $04, $18, $02, $0C, $0B, $00, $50, $01, $02, $80, $0B, $00, $C0 LA837: .byte $18, $02, $C8, $18, $02, $FD ;Room enemy/door data: LA83D: .byte $02, $B1, $21, $82, $5B, $31, $03, $85, $41, $83, $88, $FF ;Room #$20 LA849: .byte $02 ;Attribute table data. ;Room object data: LA84A: .byte $20, $18, $02, $28, $18, $02, $A0, $18, $02, $A8, $18, $02, $D0, $00, $03, $D8 LA85A: .byte $00, $03, $FD ;Room enemy/door data: LA85D: .byte $01, $82, $98, $11, $02, $9E, $41, $83, $53, $FF ;Room #$21 LA867: .byte $00 ;Attribute table data. ;Room object data: LA868: .byte $00, $0B, $00, $04, $18, $02, $0C, $0B, $00, $5F, $01, $02, $8C, $0B, $00, $C0 LA878: .byte $18, $02, $C8, $18, $02, $FD ;Room enemy/door data: LA87E: .byte $02, $A1, $11, $02, $57, $31, $83, $85, $41, $83, $88, $51, $03, $8A, $FF ;Room #$22 LA88D: .byte $00 ;Attribute table data. ;Room object data: LA88E: .byte $00, $07, $03, $02, $12, $03, $0A, $12, $03, $50, $01, $02, $80, $07, $03, $82 LA89E: .byte $0B, $00, $8F, $0B, $00, $B0, $07, $03, $B9, $0B, $00, $D2, $00, $03, $DA, $00 LA8AE: .byte $03, $FD ;Room enemy/door data: LA8B0: .byte $02, $B1, $01, $80, $18, $11, $80, $1E, $21, $86, $AB, $31, $86, $7F, $FF ;Room #$23 LA8BF: .byte $01 ;Attribute table data. ;Room object data: LA8C0: .byte $00, $12, $03, $08, $12, $03, $92, $04, $03, $94, $04, $03, $99, $0B, $00, $A2 LA8D0: .byte $0B, $00, $BF, $0B, $00, $D0, $00, $03, $D8, $00, $03, $FD ;Room enemy/door data: LA8DC: .byte $07, $87, $93, $11, $00, $1A, $21, $80, $1F, $47, $87, $95, $51, $86, $8B, $FF ;Room #$24 LA8EC: .byte $02 ;Attribute table data. ;Room object data: LA8ED: .byte $00, $0B, $00, $04, $0E, $00, $08, $0E, $00, $0C, $0E, $00, $37, $0A, $00, $50 LA8FD: .byte $01, $02, $77, $0A, $00, $80, $17, $02, $8D, $1A, $01, $C0, $18, $02, $C4, $1B LA90D: .byte $02, $C8, $18, $02, $D4, $1C, $02, $D8, $1C, $02, $DC, $1C, $02, $FD ;Room enemy/door data: LA91B: .byte $02, $B0, $01, $82, $27, $11, $82, $2B, $21, $83, $B5, $31, $83, $BA, $FF ;Room #$25 LA92A: .byte $02 ;Attribute table data. ;Room object data: LA92B: .byte $00, $0E, $00, $04, $0E, $00, $08, $0E, $00, $0C, $0E, $00, $87, $1A, $01, $C0 LA93B: .byte $18, $02, $C8, $18, $02, $CF, $1B, $02, $D0, $1C, $02, $D4, $1C, $02, $D8, $1C LA94B: .byte $02, $DC, $1C, $02, $FD ;Room enemy/door data: LA950: .byte $21, $82, $26, $31, $02, $2B, $41, $83, $B3, $51, $03, $BC, $FF ;Room #$26 LA95D: .byte $01 ;Attribute table data. ;Room object data: LA95E: .byte $00, $14, $01, $08, $14, $01, $B2, $04, $03, $C0, $14, $01, $C9, $14, $01, $D0 LA96E: .byte $00, $03, $D8, $00, $03, $FD ;Room enemy/door data: LA974: .byte $07, $87, $B3, $11, $03, $29, $FF ;Room #$27 LA97B: .byte $01 ;Attribute table data. ;Room object data: LA97C: .byte $00, $14, $01, $08, $14, $01, $10, $0A, $00, $60, $0A, $00, $B0, $0A, $00, $B5 LA98C: .byte $04, $03, $C1, $14, $01, $CA, $14, $01, $D1, $00, $03, $D8, $00, $03, $FD ;Room enemy/door data: LA99B: .byte $27, $87, $B6, $11, $82, $B7, $11, $80, $27, $FF ;Room #$28 LA9A5: .byte $00 ;Attribute table data. ;Room object data: LA9A6: .byte $00, $0B, $00, $0C, $0B, $00, $50, $01, $02, $5C, $0B, $00, $80, $0B, $00, $AF LA9B6: .byte $0B, $00, $D0, $0B, $00, $FD ;Room enemy/door data: LA9BC: .byte $02, $B1, $FF ;---------------------------------------[ Structure definitions ]------------------------------------ ;The first byte of the structure definition states how many macros are in the first row of the ;structure. The the number of bytes after the macro number byte is equal to the value of the macro ;number byte and those bytes define what each macro in the row are. For example, if the macro number ;byte is #$08, the next 8 bytes represent 8 macros. The macro description bytes are the macro numbers ;and are multiplied by 4 to find the index to the desired macro in MacroDefs. Any further bytes in ;the structure definition represent the next rows. #$FF marks the end of the structure definition. ;Structure #$00 LA9BF: .byte $08, $00, $00, $00, $00, $00, $00, $00, $00, $08, $01, $01, $01, $01, $01, $01 LA9CF: .byte $01, $01, $FF ;Structure #$01 LA9D2: .byte $01, $12, $01, $12, $01, $12, $FF ;Structure #$02 LA9D9: .byte $01, $13, $01, $13, $01, $13, $FF ;Structure #$03 LA9E0: .byte $02, $02, $03, $02, $02, $03, $02, $02, $03, $02, $02, $03, $02, $02, $03 LA9F0: .byte $02, $02, $03, $02, $02, $03, $02, $02, $03, $FF ;Structure #$04 LA9F9: .byte $02, $06, $07, $FF ;Structure #$05 LA9FD: .byte $01, $0A, $01, $0A, $FF ;Structure #$06 LAA02: .byte $01, $0B, $01, $0B, $FF ;Structure #$07 LAA07: .byte $02, $08, $08, $02, $08, $05, $02, $09, $08, $02, $08, $08, $02, $05, $08, $FF ;Structure #$08 LAA17: .byte $04, $08, $08, $08, $08, $04, $08, $09, $09, $08, $04, $08, $09, $09, $08, $04 LAA27: .byte $08, $08, $08, $08, $FF ;Structure #$09 LAA2C: .byte $04, $08, $09, $09, $08, $FF ;Structure #$0A LAA32: .byte $01, $14, $01, $05, $01, $05, $01, $05, $01, $14, $FF ;Structure #$0B LAA3D: .byte $04, $15, $15, $15, $15, $04, $15, $15, $15, $15, $04, $15, $15, $15, $15, $04 LAA4D: .byte $15, $15, $15, $15, $04, $15, $15, $15, $15, $FF ;Structure #$0C LAA57: .byte $02, $16, $16, $02, $16, $16, $02, $16, $16, $02, $16, $16, $FF ;Structure #$0D LAA64: .byte $01, $17, $01, $17, $01, $17, $01, $17, $FF ;Structure #$0E LAA6D: .byte $04, $11, $11, $11, $11, $04, $11, $11, $11, $11, $FF ;Structure #$0F LAA78: .byte $04, $18, $18, $18, $18, $04, $19, $19, $19, $19, $FF ;Structure #$10 LAA83: .byte $01, $1B, $FF ;Structure #$11 LAA86: .byte $04, $1A, $1A, $1A, $1A, $FF ;Structure #$12 LAA8C: .byte $08, $0F, $0F, $0F, $0F, $10, $10, $10, $10, $FF ;Structure #$13 LAA96: .byte $04, $0D, $0D, $0D, $0D, $04, $0D, $0E, $0E, $0D, $04, $0D, $0E, $0E, $0D, $04 LAAA6: .byte $0D, $0D, $0D, $0D, $FF ;Structure #$14 LAAAB: .byte $08, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $08, $0D, $0E, $0E, $0E, $0E, $0E LAABB: .byte $0E, $0D, $08, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $FF ;Structure #$15 LAAC7: .byte $04, $1C, $1C, $1C, $1C, $04, $1C, $1C, $1C, $1C, $FF ;Structure #$16 LAAD2: .byte $01, $1D, $01, $1D, $01, $1D, $FF ;Structure #$17 LAAD9: .byte $04, $1E, $1E, $1E, $1E, $04, $1E, $05, $05, $1E, $04, $1E, $05, $05, $1E, $04 LAAE9: .byte $1E, $1E, $1E, $1E, $FF ;Structure #$18 LAAEE: .byte $08, $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E, $08, $1E, $09, $09, $09, $09, $09 LAAFE: .byte $09, $1E, $08, $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E, $FF ;Structure #$19 LAB0A: .byte $01, $14, $01, $05, $01, $14, $FF ;Structure #$1A LAB11: .byte $01, $04, $01, $04, $01, $04, $01, $04, $FF ;Structure #$1B LAB1A: .byte $01, $1F, $FF ;Structure #$1C LAB1D: .byte $04, $20, $20, $20, $20, $FF ;----------------------------------------[ Macro definitions ]--------------------------------------- ;The macro definitions are simply index numbers into the pattern tables that represent the 4 quadrants ;of the macro definition. The bytes correspond to the following position in order: lower right tile, ;lower left tile, upper right tile, upper left tile. MacroDefs: LAB23: .byte $FF, $FF, $F0, $F0 LAB27: .byte $F1, $F1, $F1, $F1 LAB2B: .byte $A4, $FF, $A4, $FF LAB2F: .byte $FF, $A5, $FF, $A5 LAB33: .byte $80, $81, $82, $83 LAB37: .byte $45, $46, $45, $46 LAB3B: .byte $FF, $FF, $59, $5A LAB3F: .byte $FF, $FF, $5A, $5B LAB43: .byte $60, $61, $62, $63 LAB47: .byte $0C, $0D, $0E, $0F LAB4B: .byte $EC, $FF, $ED, $FF LAB4F: .byte $FF, $EE, $FF, $EF LAB53: .byte $1C, $1D, $1E, $1F LAB57: .byte $20, $21, $22, $23 LAB5B: .byte $25, $25, $24, $24 LAB5F: .byte $26, $27, $28, $29 LAB63: .byte $2A, $2B, $2C, $2D LAB67: .byte $18, $19, $1A, $1B LAB6B: .byte $A0, $A0, $A0, $A0 LAB6F: .byte $A1, $A1, $A1, $A1 LAB73: .byte $10, $11, $12, $13 LAB77: .byte $04, $05, $06, $07 LAB7B: .byte $E0, $E1, $E2, $E3 LAB7F: .byte $70, $71, $72, $73 LAB83: .byte $FF, $FF, $43, $43 LAB87: .byte $44, $44, $44, $44 LAB8B: .byte $14, $15, $16, $17 LAB8F: .byte $88, $89, $8A, $8B LAB93: .byte $E8, $E9, $EA, $EB LAB97: .byte $78, $79, $7A, $7B LAB9B: .byte $55, $56, $57, $58 LAB9F: .byte $90, $91, $92, $93 LABA3: .byte $C7, $C8, $C9, $CA ;Not used. LABA7: .byte $11, $11, $11, $04, $11, $11, $11, $11, $FF, $08, $20, $22, $22, $22, $22, $22 LABB7: .byte $22, $22, $FF, $01, $1F, $FF, $01, $21, $01, $21, $01, $21, $FF, $08, $23, $23 LABC7: .byte $23, $23, $23, $23, $23, $23, $08, $23, $24, $24, $24, $24, $24, $24, $23, $08 LABD7: .byte $23, $23, $23, $23, $23, $23, $23, $23, $FF, $01, $23, $01, $23, $01, $23, $01 LABE7: .byte $23, $FF, $04, $23, $23, $23, $23, $04, $23, $24, $24, $23, $04, $23, $24, $24 LABF7: .byte $23, $04, $23, $23, $23, $23, $FF, $01, $25, $FF, $01, $26, $01, $26, $01, $26 LAC07: .byte $01, $26, $FF, $03, $27, $27, $27, $FF, $03, $28, $28, $28, $FF, $08, $13, $13 LAC17: .byte $13, $13, $13, $13, $13, $13, $FF, $01, $13, $01, $13, $01, $13, $01, $13, $FF LAC27: .byte $04, $0C, $0C, $0C, $0C, $04, $0D, $0D, $0D, $0D, $FF, $F1, $F1, $F1, $F1, $FF LAC37: .byte $FF, $F0, $F0, $64, $64, $64, $64, $FF, $FF, $64, $64, $A4, $FF, $A4, $FF, $FF LAC47: .byte $A5, $FF, $A5, $A0, $A0, $A0, $A0, $A1, $A1, $A1, $A1, $4F, $4F, $4F, $4F, $84 LAC57: .byte $85, $86, $87, $88, $89, $8A, $8B, $80, $81, $82, $83, $FF, $FF, $BA, $BA, $BB LAC67: .byte $BB, $BB, $BB, $10, $11, $12, $13, $04, $05, $06, $07, $14, $15, $16, $17, $1C LAC77: .byte $1D, $1E, $1F, $09, $09, $09, $09, $0C, $0D, $0E, $0F, $FF, $FF, $59, $5A, $FF LAC87: .byte $FF, $5A, $5B, $51, $52, $53, $54, $55, $56, $57, $58, $EC, $FF, $ED, $FF, $FF LAC97: .byte $EE, $FF, $EF, $45, $46, $45, $46, $4B, $4C, $4D, $50, $FF, $FF, $FF, $FF, $47 LACA7: .byte $48, $47, $48, $08, $08, $08, $08, $70, $71, $72, $73, $74, $75, $76, $77, $E0 LACB7: .byte $E1, $E2, $E3, $E4, $E5, $E6, $E7, $20, $21, $22, $23, $25, $25, $24, $24, $78 LACC7: .byte $79, $7A, $7B, $E8, $E9, $EA, $EB, $26, $27, $28, $29, $2A, $2B, $2C, $2D, $0D LACD7: .byte $1E, $07, $21, $1D, $0D, $0D, $0D, $1E, $21, $07, $21, $21, $15, $14, $15, $21 LACE7: .byte $21, $07, $0D, $21, $16, $10, $16, $21, $0D, $07, $1F, $0D, $20, $10, $1F, $0D LACF7: .byte $20, $FF, $08, $22, $22, $0D, $22, $22, $1E, $1C, $1D, $08, $1C, $1C, $21, $1C LAD07: .byte $1C, $21, $1C, $21, $08, $1C, $1C, $0C, $1C, $1C, $1F, $0D, $20, $07, $1C, $1C LAD17: .byte $21, $1C, $1C, $1C, $14, $04, $1C, $14, $0D, $14, $03, $1C, $1C, $15, $FF, $02 LAD27: .byte $01, $01, $02, $00, $00, $FF, $01, $16, $01, $21, $01, $21, $01, $0C, $01, $21 LAD37: .byte $01, $0D, $01, $21, $FF, $01, $0C, $FF, $07, $22, $22, $22, $22, $22, $22, $22 LAD47: .byte $FF, $05, $0B, $1D, $22, $0D, $22, $04, $11, $21, $11, $21, $04, $11, $21, $11 LAD57: .byte $0D, $03, $11, $21, $11, $03, $23, $23, $23, $FF, $03, $19, $1B, $1A, $FF, $01 LAD67: .byte $34, $01, $34, $FF, $08, $1D, $22, $17, $0D, $1E, $0D, $17, $0D, $08, $0D, $22 LAD77: .byte $17, $20, $21, $14, $0D, $11, $08, $21, $1D, $22, $17, $20, $10, $10, $21, $08 LAD87: .byte $21, $1F, $17, $0D, $22, $0D, $1E, $11, $08, $0D, $14, $10, $1F, $22, $22, $20 LAD97: .byte $11, $FF, $08, $17, $17, $0D, $17, $17, $0D, $17, $17, $08, $0D, $17, $17, $17 LADA7: .byte $17, $17, $17, $0D, $FF, $08, $18, $1D, $17, $1E, $1D, $17, $17, $1E, $08, $18 LADB7: .byte $21, $1C, $21, $21, $1C, $1C, $21, $08, $0D, $20, $1C, $1F, $20, $1C, $1C, $1F LADC7: .byte $FF, $04, $0D, $0D, $0D, $0D, $04, $18, $18, $18, $18, $04, $18, $18, $18, $18 LADD7: .byte $04, $18, $18, $18, $18, $FF, $07, $0A, $0A, $0A, $0A, $0A, $0A, $0A, $07, $0D LADE7: .byte $17, $17, $17, $17, $17, $0D, $07, $18, $0A, $10, $0A, $0A, $10, $18, $07, $0D LADF7: .byte $17, $17, $17, $17, $17, $0D, $FF, $01, $0A, $01, $0A, $01, $0A, $01, $0A, $01 LAE07: .byte $0A, $01, $0A, $01, $0A, $01, $0A, $FF, $01, $0D, $01, $18, $01, $18, $01, $18 LAE17: .byte $01, $18, $FF, $02, $19, $1A, $FF, $01, $0D, $FF, $04, $14, $1C, $1C, $14, $04 LAE27: .byte $0A, $0A, $0A, $0A, $FF, $08, $0D, $22, $22, $22, $22, $22, $22, $0D, $FF, $08 LAE37: .byte $0E, $0E, $0E, $0E, $0E, $0E, $0E, $0E, $08, $0E, $10, $0E, $0E, $10, $10, $0E LAE47: .byte $10, $FF, $A7, $A7, $A7, $A7, $FF, $FF, $A6, $A6, $A2, $A2, $FF, $FF, $FF, $FF LAE57: .byte $A3, $A3, $A4, $FF, $A4, $FF, $FF, $A5, $FF, $A5, $FF, $79, $FF, $7E, $4F, $4F LAE67: .byte $4F, $4F, $A0, $A0, $A0, $A0, $A1, $A1, $A1, $A1, $04, $05, $06, $07, $10, $11 LAE77: .byte $12, $13, $00, $01, $02, $03, $08, $08, $08, $08, $18, $19, $1A, $1B, $1C, $1D LAE87: .byte $1E, $1F, $0C, $0D, $0E, $0F, $09, $09, $09, $09, $7A, $7B, $7F, $5A, $2A, $2C LAE97: .byte $FF, $FF, $14, $15, $16, $17, $20, $21, $22, $23, $24, $25, $20, $21, $28, $28 LAEA7: .byte $29, $29, $26, $27, $26, $27, $2A, $2B, $FF, $FF, $2B, $2C, $FF, $FF, $2B, $2B LAEB7: .byte $FF, $FF, $FF, $FF, $FF, $FF, $31, $32, $33, $34, $35, $36, $37, $38, $3D, $3E LAEC7: .byte $3F, $40, $41, $42, $43, $44, $39, $3A, $39, $3A, $3B, $3B, $3C, $3C, $0B, $0B LAED7: .byte $2D, $2E, $2F, $30, $0B, $0B, $50, $51, $52, $53, $54, $55, $54, $55, $56, $57 LAEE7: .byte $58, $59, $FF, $FF, $FF, $5E, $5B, $5C, $5F, $60, $FF, $FF, $61, $FF, $5D, $62 LAEF7: .byte $67, $68, $63, $64, $69, $6A, $65, $66, $6B, $6C, $6D, $6E, $73, $74, $6F, $70 LAF07: .byte $75, $76, $71, $72, $77, $78, $45, $46, $47, $48, $FF, $98, $FF, $98, $49, $4A LAF17: .byte $4B, $4C, $90, $91, $90, $91, $7C, $7D, $4D, $FF, $1C, $1D, $1E, $17, $18, $19 LAF27: .byte $1A, $1F, $20, $21, $22, $60, $61, $62, $63, $0E, $0F, $FF, $FF, $0C, $0D, $0D LAF37: .byte $0D, $10, $0D, $FF, $10, $10, $FF, $FF, $FF, $FF, $FF, $FF, $30, $FF, $33, $FF LAF47: .byte $36, $FF, $39, $FF, $3D, $FF, $FF, $31, $32, $34, $35, $37, $38, $3A, $3B, $3E LAF57: .byte $3F, $3C, $41, $40, $42, $84, $85, $86, $87, $80, $81, $82, $83, $88, $89, $8A LAF67: .byte $8B, $45, $46, $45, $46, $47, $48, $48, $47, $5C, $5D, $5E, $5F, $B8, $B8, $B9 LAF77: .byte $B9, $74, $75, $75, $74, $C1, $13, $13, $13, $36, $BE, $BC, $BD, $BF, $14, $15 LAF87: .byte $14, $C0, $14, $C0, $16, $FF, $C1, $FF, $FF, $C2, $14, $FF, $FF, $30, $13, $BC LAF97: .byte $BD, $13, $14, $15, $16, $D7, $D7, $D7, $D7, $76, $76, $76, $76, $FF, $FF, $BA LAFA7: .byte $BA, $BB, $BB, $BB, $BB, $00, $01, $02, $03, $04, $05, $06, $07, $FF, $FF, $08 LAFB7: .byte $09, $FF, $FF, $09, $0A, $55, $56, $57, $58, $90, $91, $92, $93, $4B, $4C, $4D LAFC7: .byte $50, $51, $52, $53, $54, $70, $71, $72, $73, $8C, $8D, $8E, $8F, $11, $12, $FF LAFD7: .byte $11, $11, $12, $12, $11, $11, $12, $12, $FF, $C3, $C4, $C5, $C6, $30, $00, $BC LAFE7: .byte $BD, $CD, $CE, $CF, $D0, $D1, $D2, $D3, $D4, $90, $91, $92, $93, $20, $20, $20 LAFF7: .byte $20, $C0, $C0, $C0, $C0, $C0, $C0, $C0, $C0 ;------------------------------------------[ Area music data ]--------------------------------------- ;There are 3 control bytes associated with the music data and the rest are musical note indexes. ;If the byte has the binary format 1011xxxx ($Bx), then the byte is an index into the corresponding ;musical notes table and is used to set the note length until it is set by another note length ;byte. The lower 4 bits are the index into the note length table. Another control byte is the loop ;and counter btye. The loop and counter byte has the format 11xxxxxx. Bits 0 thru 6 contain the ;number of times to loop. The third control byte is #$FF. This control byte marks the end of a loop ;and decrements the loop counter. If #$00 is found in the music data, the music has reached the end. ;A #$00 in any of the different music channel data segments will mark the end of the music. The ;remaining bytes are indexes into the MusicNotesTbl and should only be even numbers as there are 2 ;bytes of data per musical note. RidleyTriangleIndexData: LB000: .byte $B6 ;1 3/16 seconds LB001: .byte $20 ;E3 LB002: .byte $B2 ;3/8 seconds LB003: .byte $28 ;Ab3 LB004: .byte $B3 ;3/4 seconds LB005: .byte $2C ;A#3 LB006: .byte $34 ;D4 LB007: .byte $B4 ;1 1/2 seconds LB008: .byte $30 ;C4 LB009: .byte $30 ;C4 LB00A: .byte $B3 ;3/4 seconds LB00B: .byte $3C ;F#4 LB00C: .byte $38 ;E4 LB00D: .byte $30 ;C4 LB00E: .byte $28 ;Ab3 LB00F: .byte $B4 ;1 1/2 seconds LB010: .byte $24 ;F#3 LB011: .byte $24 ;F#3 LB012: .byte $1E ;D#3 LB013: .byte $B3 ;3/4 seconds LB014: .byte $2A ;A3 LB015: .byte $26 ;G3 LB016: .byte $B4 ;1 1/2 seconds LB017: .byte $2E ;B3 LB018: .byte $2E ;B3 LB019: .byte $B3 ;3/4 seconds LB01A: .byte $32 ;C#4 LB01B: .byte $36 ;D#4 LB01C: .byte $2E ;B3 LB01D: .byte $32 ;C#4 LB01E: .byte $B4 ;1 1/2 seconds LB01F: .byte $2A ;A3 LB020: .byte $2A ;A3 LB021: .byte $00 ;End Ridley area music. RidleySQ1IndexData: LB022: .byte $BA ;3/64 seconds LB023: .byte $02 ;No sound LB024: .byte $D0 ; LB025: .byte $B1 ;3/16 seconds + LB026: .byte $3C ;F#4 | LB027: .byte $40 ;Ab4 | Repeat 16 times LB028: .byte $44 ;A#4 | LB029: .byte $40 ;Ab4 + LB02A: .byte $FF ; LB02B: .byte $D0 ; LB02C: .byte $42 ;A4 + LB02D: .byte $46 ;B4 | Repeat 16 times LB02E: .byte $4A ;C#5 | LB02F: .byte $46 ;B4 + LB030: .byte $FF ; RidleySQ2IndexData: LB031: .byte $D0 ; LB032: .byte $B1 ;3/16 seconds + LB033: .byte $44 ;A#4 | LB034: .byte $48 ;C5 | Repeat 16 times LB035: .byte $4C ;D5 | LB036: .byte $48 ;C5 + LB037: .byte $FF ; LB038: .byte $D0 ; LB039: .byte $4A ;C#5 + LB03A: .byte $4E ;D#5 | Repeat 16 times LB03B: .byte $52 ;F5 | LB03C: .byte $4E ;D#5 + LB03D: .byte $FF ; LB03E: .byte $00 ;End Ridley area music. KraidSQ1IndexData: LB03F: .byte $B8 ;11/64 seconds LB040: .byte $02 ;No sound ;SQ1 music data runs down into the SQ2 music data. KraidSQ2IndexData: LB041: .byte $C4 ; LB042: .byte $B3 ;1/2 seconds + LB043: .byte $38 ;E4 | LB044: .byte $B2 ;1/4 seconds | LB045: .byte $2E ;B3 | LB046: .byte $B3 ;1/2 seconds | LB047: .byte $42 ;A4 | LB048: .byte $B2 ;1/4 seconds | LB049: .byte $30 ;C4 | Repeat 4 times LB04A: .byte $B3 ;1/2 seconds | LB04B: .byte $3C ;F#4 | LB04C: .byte $B2 ;1/4 seconds | LB04D: .byte $34 ;D4 | LB04E: .byte $B3 ;1/2 seconds | LB04F: .byte $2E ;B3 | LB050: .byte $B2 ;1/4 seconds | LB051: .byte $2C ;A#3 + LB052: .byte $FF ; LB053: .byte $C2 ; LB054: .byte $B3 ;1/2 seconds + LB055: .byte $3E ;G4 | LB056: .byte $B2 ;1/4 seconds | LB057: .byte $34 ;D4 | LB058: .byte $B3 ;1/2 seconds | LB059: .byte $38 ;E4 | LB05A: .byte $B2 ;1/4 seconds | LB05B: .byte $2E ;B3 | Repeat 2 times LB05C: .byte $B3 ;1/2 seconds | LB05D: .byte $3C ;F#4 | LB05E: .byte $B2 ;1/4 seconds | LB05F: .byte $34 ;D4 | LB060: .byte $B3 ;1/2 seconds | LB061: .byte $42 ;A4 | LB062: .byte $B2 ;1/4 seconds | LB063: .byte $38 ;E4 + LB064: .byte $FF ; LB065: .byte $C4 ; LB066: .byte $B1 ;1/8 seconds + LB067: .byte $3E ;G4 | LB068: .byte $2E ;B3 | LB069: .byte $3E ;G4 | LB06A: .byte $2E ;B3 | LB06B: .byte $3E ;G4 | LB06C: .byte $2E ;B3 | LB06D: .byte $44 ;A#4 | LB06E: .byte $38 ;E4 | LB06F: .byte $44 ;A#4 | LB070: .byte $38 ;E4 | LB071: .byte $44 ;A#4 | Repeat 4 times LB072: .byte $38 ;E4 | LB073: .byte $42 ;A4 | LB074: .byte $30 ;C4 | LB075: .byte $42 ;A4 | LB076: .byte $30 ;C4 | LB077: .byte $42 ;A4 | LB078: .byte $30 ;C4 | LB079: .byte $42 ;A4 | LB07A: .byte $36 ;D#4 | LB07B: .byte $3C ;F#4 | LB07C: .byte $36 ;D#4 | LB07D: .byte $46 ;B4 | LB07E: .byte $36 ;D#4 + LB07F: .byte $FF ; LB080: .byte $C2 ; LB081: .byte $3C ;F#4 + LB082: .byte $3E ;G4 | LB083: .byte $42 ;A4 | LB084: .byte $46 ;B4 | LB085: .byte $4C ;D5 | LB086: .byte $46 ;B4 | LB087: .byte $54 ;F#5 | LB088: .byte $4C ;D5 | LB089: .byte $42 ;A4 | LB08A: .byte $3E ;G4 | LB08B: .byte $3C ;F#4 | Repeat 2 times LB08C: .byte $46 ;B4 | LB08D: .byte $5A ;A5 | LB08E: .byte $54 ;F#5 | LB08F: .byte $4C ;D5 | LB090: .byte $42 ;A4 | LB091: .byte $3E ;G4 | LB092: .byte $3C ;F#4 | LB093: .byte $38 ;E4 | LB094: .byte $3E ;G4 | LB095: .byte $42 ;A4 | LB096: .byte $4C ;D5 | LB097: .byte $50 ;E5 | LB098: .byte $02 ;No sound + LB099: .byte $FF ; LB09A: .byte $C4 ; LB09B: .byte $B1 ;1/8 seconds + LB09C: .byte $5A ;A5 | LB09D: .byte $02 ;No sound | LB09E: .byte $56 ;G5 | LB09F: .byte $02 ;No sound | LB0A0: .byte $54 ;F#5 | LB0A1: .byte $02 ;No sound | Repeat 4 times LB0A2: .byte $50 ;E5 | LB0A3: .byte $02 ;No sound | LB0A4: .byte $54 ;F#5 | LB0A5: .byte $02 ;No sound | LB0A6: .byte $56 ;G5 | LB0A7: .byte $02 ;No sound + LB0A8: .byte $FF ; LB0A9: .byte $00 ;End Kraid area music. KraidTriangleIndexData: LB0AA: .byte $D0 ; LB0AB: .byte $B2 ;1/4 seconds + LB0AC: .byte $20 ;E3 | Repeat 16 times LB0AD: .byte $B3 ;1/2 seconds | LB0AE: .byte $38 ;E4 + LB0AF: .byte $FF ; LB0B0: .byte $C2 ; LB0B1: .byte $B2 ;1/4 seconds + LB0B2: .byte $18 ;C3 | LB0B3: .byte $B3 ;1/2 seconds | LB0B4: .byte $30 ;C4 | LB0B5: .byte $B2 ;1/4 seconds | LB0B6: .byte $18 ;C3 | LB0B7: .byte $B3 ;1/2 seconds | LB0B8: .byte $30 ;C4 | Repeat 2 times LB0B9: .byte $B2 ;1/4 seconds | LB0BA: .byte $1C ;D3 | LB0BB: .byte $B3 ;1/2 seconds | LB0BC: .byte $34 ;D4 | LB0BD: .byte $B2 ;1/4 seconds | LB0BE: .byte $1C ;D3 | LB0BF: .byte $B3 ;1/2 seconds | LB0C0: .byte $34 ;D4 + LB0C1: .byte $FF ; LB0C2: .byte $C4 ; LB0C3: .byte $B2 ;1/4 seconds + LB0C4: .byte $20 ;E3 | LB0C5: .byte $38 ;E4 | LB0C6: .byte $50 ;E5 | LB0C7: .byte $24 ;F#3 | LB0C8: .byte $3C ;F#4 | Repeat 4 times LB0C9: .byte $54 ;F#5 | LB0CA: .byte $22 ;F3 | LB0CB: .byte $3A ;F4 | LB0CC: .byte $52 ;F5 | LB0CD: .byte $16 ;B2 | LB0CE: .byte $2E ;B3 | LB0CF: .byte $46 ;B4 + LB0D0: .byte $FF ; LB0D1: .byte $C2 ; LB0D2: .byte $B3 ;1/2 seconds + LB0D3: .byte $20 ;E3 | LB0D4: .byte $B2 ;1/4 seconds | LB0D5: .byte $2E ;B3 | LB0D6: .byte $B3 ;1/2 seconds | LB0D7: .byte $30 ;C4 | LB0D8: .byte $B2 ;1/4 seconds | LB0D9: .byte $2E ;B3 | Repeat 2 times LB0DA: .byte $B3 ;1/2 seconds | LB0DB: .byte $18 ;C3 | LB0DC: .byte $B2 ;1/4 seconds | LB0DD: .byte $26 ;G3 | LB0DE: .byte $B3 ;1/2 seconds | LB0DF: .byte $2A ;A3 | LB0E0: .byte $B2 ;1/4 seconds | LB0E1: .byte $2E ;B3 + LB0E2: .byte $FF ; LB0E3: .byte $C8 ; LB0E4: .byte $B4 ;1 second + Repeat 8 times LB0E5: .byte $08 ;E2 + LB0E6: .byte $FF ; ;Not used. B0E7: .byte $2A, $2A, $2A, $B9, $2A, $2A, $2A, $B2, $2A, $2A, $2A, $2A, $2A, $B9, $2A, $12 B0F7: .byte $2A, $B2, $26, $B9, $0E, $26, $26, $B2, $26, $B9, $0E, $26, $26, $B2, $22, $B9 B107: .byte $0A, $22, $22, $B2, $22, $B9, $0A, $22, $22, $B2, $20, $20, $B9, $20, $20, $20 B117: .byte $B2, $20, $B9, $34, $30, $34, $38, $34, $38, $3A, $38, $3A, $3E, $3A, $3E, $FF B127: .byte $C2, $B2, $18, $30, $18, $30, $18, $30, $18, $30, $22, $22, $B1, $22, $22, $B2 B137: .byte $22, $20, $1C, $18, $16, $14, $14, $14, $2C, $2A, $2A, $B9, $2A, $2A, $2A, $B2 B147: .byte $2A, $28, $28, $B9, $28, $28, $28, $B2, $28, $26, $26, $B9, $26, $26, $3E, $26 B157: .byte $26, $3E, $FF, $F0, $B2, $01, $04, $01, $04, $FF, $E0, $BA, $2A, $1A, $02, $3A B167: .byte $40, $02, $1C, $2E, $38, $2C, $3C, $38, $02, $40, $44, $46, $02, $1E, $02, $2C B177: .byte $38, $46, $26, $02, $3A, $20, $02, $28, $2E, $02, $18, $44, $02, $46, $48, $4A B187: .byte $4C, $02, $18, $1E, $FF, $B8, $02, $C8, $B0, $0A, $0C, $FF, $C8, $0E, $0C, $FF B197: .byte $C8, $10, $0E, $FF, $C8, $0E, $0C, $FF, $00, $2B, $3B, $1B, $5A, $D0, $D1, $C3 B1A7: .byte $C3, $3B, $3B, $9B, $DA, $D0, $D0, $C0, $C0, $2C, $23, $20, $20, $30, $98, $CF B1B7: .byte $C7, $00, $00, $00, $00, $00, $00, $00, $30, $1F, $80, $C0, $C0, $60, $70, $FC B1C7: .byte $C0, $00, $00, $00, $00, $00, $00, $00, $00, $01, $00, $00, $00, $00, $00, $00 B1D7: .byte $00, $80, $80, $C0, $78, $4C, $C7, $80, $80, $C4, $A5, $45, $0B, $1B, $03, $03 B1E7: .byte $00, $3A, $13, $31, $63, $C3, $83, $03, $04, $E6, $E6, $C4, $8E, $1C, $3C, $18 B1F7: .byte $30, $E8, $E8, $C8, $90, $60, $00, $00, $00 ;------------------------------------------[ Sound Engine ]------------------------------------------ ;SFXdata. The top four entries are used by the noise music player for drum beats. LB200: .byte $00 ;Base for drum beat music data. DrumBeat00SFXData: LB201: .byte $10, $01, $18 ;Noise channel music data #$01. DrumBeat01SFXData: LB204: .byte $00, $01, $38 ;Noise channel music data #$04. DrumBeat02SFXData: LB207: .byte $01, $02, $40 ;Noise channel music data #$07. DrumBeat03SFXData: LB20A: .byte $00, $09, $58 ;Noise channel music data #$0A. GamePausedSFXData: LB20D: .byte $80, $7F, $80, $48 ScrewAttSFXData: LB211: .byte $35, $7F, $00, $B0 MissileLaunchSFXData: LB215: .byte $19, $7F, $0E, $A0 BombExplodeSFXData: LB219: .byte $0D, $7F, $0F, $08 SamusWalkSFXData: LB21D: .byte $16, $7F, $0B, $18 SpitFlameSFXData: LB221: .byte $13, $7F, $0E, $F8 SamusHitSQ1SQ2SFXData: LC225: .byte $C1, $89, $02, $0F BossHitSQ2SFXData: LB229: .byte $34, $BA, $E0, $05 BossHitSQ1SFXData: LB22D: .byte $34, $BB, $CE, $05 IncorrectPasswordSQ1SFXData: LB231: .byte $B6, $7F, $00, $C2 IncorrectPasswordSQ2SFXData: LB235: .byte $B6, $7F, $04, $C2 TimeBombTickSFXData: LB239: .byte $17, $7F, $66, $89 EnergyPickupSFXData: LB23D: .byte $89, $7F, $67, $18 MissilePickupSFXData: LB241: .byte $8B, $7F, $FD, $28 MetalSFXData: LB245: .byte $02, $7F, $A8, $F8 LongRangeShotSFXData: LB249: .byte $D7, $83, $58, $F8 ShortRangeShotSFXData: LB24D: .byte $D6, $82, $58, $F8 JumpSFXData: LB251: .byte $95, $8C, $40, $B9 EnemyHitSFXData: LB255: .byte $1D, $9A, $20, $8F BugOutOFHoleSFXData: LB259: .byte $16, $8D, $E0, $42 WaveBeamSFXData: LB25D: .byte $19, $7F, $6F, $40 IceBeamSFXData: LB261: .byte $18, $7F, $80, $40 BombLaunch1SFXData: LB265: .byte $07, $7F, $40, $28 BombLaunch2SFXData: LB269: .byte $07, $7F, $45, $28 SamusToBallSFXData: LB26D: .byte $7F, $7F, $DD, $3B MetroidHitSFXData: LB26E: .byte $7F, $7F, $FF, $98 SamusDieSFXData: LB275: .byte $7F, $7F, $40, $08 SamusBeepSFXData: LB279: .byte $09, $7F, $30, $48 BigEnemyHitSFXData: LB27D: .byte $03, $7F, $42, $18 StatueRaiseSFXData: LB281: .byte $03, $7F, $11, $09 DoorSFXData: LB285: .byte $7F, $7F, $30, $B2 ;The following table is used by the CheckSFXFlag routine. The first two bytes of each row ;are the address of the pointer table used for handling SFX and music routines for set flags. ;The second pair of bytes is the address of the routine to next jump to if no SFX or music ;flags were found. The final byte represents what type of channel is currently being ;processed: 0=Noise, 1=SQ1, 3=Triangle, 4=Multiple channels. ChooseNextSFXRoutineTbl: LB289: .word $B2BB, $B322 ;Noise init SFX (1st). LB28D: .byte $00 LB28E: .word $B2CB, $B4EE ;Noise continue SFX (2nd). LB292: .byte $00 LB293: .word $B2DB, $B330 ;SQ1 init SFX (5th). LB297: .byte $01 LB298: .word $B2EB, $B4EE ;SQ2 continue SFX (6th). LB29C: .byte $01 LB29D: .word $B2FB, $B344 ;Triangle init SFX (7th). LB2A1: .byte $03 LB2A2: .word $B30B, $B4EE ;Triangle continue SFX (8th). LB2A6: .byte $03 LB2A7: .word $BC06, $B35C ;Multi init SFX (3rd). LB2AB: .byte $04 LB2AC: .word $BC16, $B364 ;Multi continue SFX (4th). LB2B0: .byte $04 LB2B1: .word $BC26, $BC4B ;temp flag Music (10th). LB2B5: .byte $00 LB2B6: .word $BC26, $BC3D ;Music (9th). LB2BA: .byte $00 ;The tables below contain addresses for SFX handling routines. ;Noise Init SFX handling routine addresses: LB2BB: .word $B4EE ;No sound. LB2BD: .word $B52B ;Screw attack init SFX. LB2BF: .word $B56E ;Missile launch init SFX. LB2C1: .word $B583 ;Bomb explode init SFX. LB2C3: .word $B598 ;Samus walk init SFX. LB2C5: .word $B50F ;Spit flame init SFX. LB2C7: .word $B4EE ;No sound. LB2C9: .word $B4EE ;No sound. ;Noise Continue SFX handling routine addresses: LB2CB: .word $B4EE ;No sound. LB2CD: .word $B539 ;Screw attack continue SFX. LB2CF: .word $B57B ;Missile launch continue SFX. LB2D1: .word $B58A ;Bomb explode continue SFX. LB2D3: .word $B58A ;Samus walk continue SFX. LB2D5: .word $B516 ;Spit flame continue SFX. LB2D7: .word $B4EE ;No sound. LB2D9: .word $B4EE ;No sound. ;SQ1 Init SFX handling routine addresses: LB2DB: .word $B6CD ;Missile pickup init SFX. LB2DD: .word $B6E7 ;Energy pickup init SFX. LB2DF: .word $B735 ;Metal init SFX. LB2E1: .word $B716 ;Bullet fire init SFX. LB2E3: .word $B73C ;Bird out of hole init SFX. LB2E5: .word $B710 ;Enemy hit init SFX. LB2E7: .word $B703 ;Samus jump init SFX. LB2E9: .word $B77A ;Wave beam init SFX. ;SQ1 Continue SFX handling routine addresses: LB2EB: .word $B6B0 ;Missile pickup continue SFX. LB2ED: .word $B6D3 ;Energy pickup continue SFX. LB2EF: .word $B6ED ;Metal continue SFX. LB2F1: .word $B74F ;Bullet fire continue SFX. LB2F3: .word $B6ED ;Bird out of hole continue SFX. LB2F5: .word $B6ED ;Enemy hit continue SFX. LB2F7: .word $B6ED ;Samus jump continue SFX. LB2F9: .word $B781 ;Wave beam continue SFX. ;Triangle init handling routine addresses: LB2FB: .word $B8D2 ;Samus die init SFX. LB2FD: .word $B7AC ;Door open close init SFX. LB2FF: .word $B8A7 ;Metroid hit init SFX. LB301: .word $B921 ;Statue raise init SFX. LB303: .word $B7D9 ;Beep init SFX. LB305: .word $B7EF ;Big enemy hit init SFX. LB307: .word $B834 ;Samus to ball init SFX. LB309: .word $B878 ;Bomb launch init SFX. ;Triangle continue handling routine addresses: LB30B: .word $B8ED ;Samus die continue SFX. LB30E: .word $B7CB ;Door open close continue SFX. LB30F: .word $B8B1 ;Metroid hit continue SFX. LB311: .word $B940 ;Statue raise continue SFX. LB313: .word $B7E7 ;Beep continue SFX. LB315: .word $B80E ;Big enemy hit continue SFX. LB317: .word $B84F ;Samus to ball continue SFX. LB319: .word $B87F ;Bomb launch continue SFX. LoadNoiseSFXInitFlags: LB31B: LDA NoiseSFXFlag ;Load A with Noise init SFX flags, (1st SFX cycle). LB31E: LDX #$89 ;Lower address byte in ChooseNextSFXRoutineTbl. LB320: BNE GotoSFXCheckFlags ;Branch always. LoadNoiseSFXContFlags: LB322: LDA NoiseContSFX ;Load A with Noise continue flags, (2nd SFX cycle). LB325: LDX #$8E ;Lower address byte in ChooseNextSFXRoutineTbl. LB327: BNE GotoSFXCheckFlags ;Branch always. LoadSQ1SFXInitFlags: LB329: LDA SQ1SFXFlag ;Load A with SQ1 init flags, (5th SFX cycle). LB32C: LDX #$93 ;Lower address byte in ChooseNextSFXRoutineTbl. LB32E: BNE GotoSFXCheckFlags ;Branch always. LoadSQ1SFXContFlags: LB330: LDA SQ1ContSFX ;Load A with SQ1 continue flags, (6th SFX cycle). LB333: LDX #$98 ;Lower address byte in ChooseNextSFXRoutineTbl. LB335: BNE GotoSFXCheckFlags ;Branch always. GotoSFXCheckFlags: LB337: JSR CheckSFXFlag ;($B4BD)Checks to see if SFX flags set. LB33A: JMP ($00E2) ;if no flag found, Jump to next SFX cycle,--> ;else jump to specific SFX handling routine. LoadSTriangleSFXInitFlags: LB33D: LDA TriangleSFXFlag ;Load A with Triangle init flags, (7th SFX cycle). LB340: LDX #$9D ;Lower address byte in ChooseNextSFXRoutineTbl. LB342: BNE GotoSFXCheckFlags ;Brach always. LoadTriangleSFXContFlags: LB344: LDA TriangleContSFX ;Load A with Triangle continue flags, (8th SFX cycle). LB347: LDX #$A2 ;Lower address byte in ChooseNextSFXRoutineTbl. LB349: BNE GotoSFXCheckFlags ;Branch always. LoadMultiSFXInitFlags: LB34B: LDA MultiSFXFlag ;Load A with Multi init flags, (3rd SFX cycle). LB34E: LDX #$A7 ;Lower address byte in ChooseNextSFXRoutineTbl. LB350: JSR CheckSFXFlag ;($B4BD)Checks to see if SFX or music flags set. LB353: JSR FindMusicInitIndex ;($BC53)Find bit containing music init flag. LB356: JSR Add8 ;($BC64)Add 8 to MusicInitIndex. LB359: JMP ($00E2) ;If no flag found, Jump to next SFX cycle,--> ;else jump to specific SFX handling subroutine. LoadMultiSFXContFlags: LB35C: LDA MultiContSFX ;Load A with $68C flags (4th SFX cycle). LB35F: LDX #$AC ;Lower address byte in ChooseNextSFXRoutineTbl. LB361: JMP GotoSFXCheckFlags ;($B337)Checks to see if SFX or music flags set. LoadSQ1Flags: LB364: JSR LoadSQ1SFXInitFlags ;($B329)Check for SQ1 init flags. LB367: RTS ; LoadSQ1ChannelSFX: ;Used to determine which sound registers to change--> LB368: LDA #$00 ;($4000 - $4003) - SQ1. LB36A: BEQ + ;Branch always. LoadTriangleChannelSFX: ;Used to determine which sound registers to change--> LB36C: LDA #$08 ;($4008 - $400B) - Triangle. LB36E: BNE + ;Branch always. LoadNoiseChannelSFX: ;Used to determine which sound registers to change--> LB370: LDA #$0C ;($400C - $400F) - Noise. LB372: BNE + ;Branch always. LoadSQ2ChannelSFX: ;Used to determine which sound registers to change--> LB374: LDA #$04 ;($4004 - $4007) - SQ2. LoadSFXData: LB376:* STA $E0 ;Lower address byte of desired APU control register. LB378: LDA #$40 ; LB37A: STA $E1 ;Upper address byte of desired APU control register. LB37C: STY $E2 ;Lower address byte of data to load into sound channel. LB37E: LDA #$B2 ; LB380: STA $E3 ;Upper address byte of data to load into sound channel. LB382: LDY #$00 ;Starting index for loading four byte sound data. LoadSFXRegisters: LB384:* LDA ($E2),Y ;Load A with SFX data byte. LB386: STA ($E0),Y ;Store A in SFX register. LB388: INY ; LB389: TYA ;The four registers associated with each sound--> LB38A: CMP #$04 ;channel are loaded one after the other (the loop--> LB38C: BNE - ;repeats four times). LB38E: RTS ; PauseSFX: LB38F:* INC SFXPaused ;SFXPaused=#$01 LB392: JSR ClearSounds ;($B43E)Clear sound registers of data. LB395: STA PauseSFXStatus ;PauseSFXStatus=#$00 LB398: RTS ; LB399:* LDA SFXPaused ;Has SFXPaused been set? if not, branch LB39C: BEQ -- ; LB39E: LDA PauseSFXStatus ;For the first #$12 frames after the game has been--> LB3A1: CMP #$12 ;paused, play GamePaused SFX. If paused for #$12--> LB3A3: BEQ ++ ;frames or more, branch to exit. LB3A5: AND #$03 ; LB3A7: CMP #$03 ;Every fourth frame, repeat GamePaused SFX LB3A9: BNE + ; LB3AB: LDY #$0D ;Lower address byte of GamePaused SFX data(Base=$B200) LB3AD: JSR LoadSQ1ChannelSFX ;($B368) Load GamePaused SFX data. LB3B0:* INC PauseSFXStatus ; LB3B3:* RTS ; ;----------------------------------[ Sound Engine Entry Point ]----------------------------------- ;NOTES: ;SFX take priority over music. ; ;There are 10 SFX cycles run every time the sound engine subroutine is called. The cycles ;search for set sound flags in the following registers in order: ;$680, $688, $684, $68C, $681, $689, $683, $68B, $65D, $685 ; ;The sound channels are assigned SFX numbers. Those SFX numbers are: ;Noise=0, sq1=1, sq2=2, triangle=3, Multi=4 ;The sound channels are assigned music numbers. Those music numbers are: ;SQ1=0, SQ2=1, Triangle=2, Noise=3 SoundEngine: LB3B4: LDA #$C0 ;Set APU to 5 frame cycle, disable frame interrupt. LB3B6: STA APUCommonCntrl1 ; LB3B9: LDA NoiseSFXFlag ;is bit zero is set in NoiseSFXFlag(Silence--> LB3BC: LSR ;music)? If yes, branch. LB3BD: BCS ++ ; LB3BF: LDA MainRoutine ; LB3C1: CMP #$05 ;Is game paused? If yes, branch. LB3C3: BEQ --- ; LB3C5: LDA #$00 ;Clear SFXPaused when game is running. LB3C7: STA SFXPaused ; LB3CA: JSR LoadNoiseSFXInitFlags ;($B31B)Check noise SFX flags. LB3CD: JSR LoadMultiSFXInitFlags ;($B34B)Check multichannel SFX flags. LB3D0: JSR LoadSTriangleSFXInitFlags ;($B33D)Check triangle SFX flags. LB3D3: JSR LoadMusicTempFlags ;($BC36)Check music flags. ClearSFXFlags: LB3D6:* LDA #$00 ; LB3D8: STA NoiseSFXFlag ; LB3DB: STA SQ1SFXFlag ; LB3DE: STA SQ2SFXFlag ;Clear all SFX flags. LB3E1: STA TriangleSFXFlag ; LB3E4: STA MultiSFXFlag ; LB3E7: STA MusicInitFlag ; LB3EA: RTS ; LB3EB:* JSR InitializeSoundAddresses ;($B404)Prepare to start playing music. LB3EE: BEQ -- ;Branch always. CheckRepeatMusic: LB3F0: LDA MusicRepeat ; LB3F3: BEQ + ;If music is supposed to repeat, reset music,--> LB3F5: LDA CurrentMusic ;flags else branch to exit. LB3F8: STA CurrentMusicRepeat ; LB3FB: RTS ; CheckMusicFlags: LB3FC: LDA CurrentMusic ;Loads A with current music flags and compares it--> LB3FF: CMP CurrentSFXFlags ;with current SFX flags. If both are equal,--> LB402: BEQ ++ ;just clear music counters, else clear everything. InitializeSoundAddresses: ; LB404:* JSR ClearMusicAndSFXAddresses ;($B41D)Jumps to all subroutines needed to reset--> LB407: JSR ClearSounds ;($B43E)all sound addresses in order to start--> LB40A:* JSR ClearSpecialAddresses ;($B40E)playing music. LB40D: RTS ; ClearSpecialAddresses: LB40E: LDA #$00 ; LB410: STA TriangleCounterCntrl ;Clears addresses used for repeating music,--> LB413: STA SFXPaused ;pausing music and controlling triangle length. LB416: STA CurrentMusicRepeat ; LB419: STA MusicRepeat ; LB41C: RTS ; ClearMusicAndSFXAddresses: ; LB41D: LDA #$00 ; LB41F: STA SQ1InUse ; LB422: STA SQ2InUse ; LB425: STA TriangleInUse ; LB428: STA WriteMultiChannelData ; LB42B: STA NoiseContSFX ;Clears any SFX or music--> LB42E: STA SQ1ContSFX ;currently being played. LB431: STA SQ2ContSFX ; LB434: STA TriangleContSFX ; LB437: STA MultiContSFX ; LB43A: STA CurrentMusic ; LB43D: RTS ; ClearSounds: ; LB43E: LDA #$10 ; LB440: STA SQ1Cntrl0 ; LB443: STA SQ2Cntrl0 ; LB446: STA NoiseCntrl0 ;Clears all sounds that might be in--> LB449: LDA #$00 ;The sound channel registers. LB44B: STA TriangleCntrl0 ; LB44E: STA DMCCntrl1 ; LB451: RTS ; SelectSFXRoutine: LB452: LDX ChannelType ; LB455: STA NoiseSFXLength,X ;Stores frame length of SFX in corresponding address. LB458: TXA ; LB459: BEQ ++ ;Branch if SFX uses noise channel. LB45B: CMP #$01 ; LB45D: BEQ + ;Branch if SFX uses SQ1 channel. LB45F: CMP #$02 ; LB461: BEQ MusicBranch00 ;Branch if SFX uses SQ2 channel. LB463: CMP #$03 ; LB465: BEQ MusicBranch01 ;Branch if SFX uses triangle wave. LB467: RTS ;Exit if SFX routine uses no channels. LB468:* JSR LoadSQ1ChannelSFX ;($B368)Prepare to load SQ1 channel with data. LB46B: BEQ ++ ;Branch always. MusicBranch00: ; LB46D: JSR LoadSQ2ChannelSFX ;($B374)Prepare to load SQ2 channel with data. LB470: BEQ ++ ;Branch always. MusicBranch01: ; LB472: JSR LoadTriangleChannelSFX ;($B36C)Prepare to load triangle channel with data. LB475: BEQ ++ ;Branch always. LB477:* JSR LoadNoiseChannelSFX ;($B370)Prepare to load noise channel with data. LB47A:* JSR UpdateContFlags ;($B493)Set continuation flags for this SFX. LB47D: TXA ; LB47E: STA NoiseInUse,X ;Indicate sound channel is in use. LB481: LDA #$00 ; LB483: STA ThisNoiseFrame,X ; LB486: STA NoiseSFXData,X ;Clears all the following addresses before going--> LB489: STA MultiSFXData,X ;to the proper SFX handling routine. LB48C: STA ScrewAttackSFXData,X ; LB48F: STA WriteMultiChannelData ; LB492: RTS ; UpdateContFlags: LB493:* LDX ChannelType ;Loads X register with sound channel just changed. LB496: LDA NoiseContSFX,X ;Clear existing continuation SFX--> LB499: AND #$00 ;flags for that channel. LB49B: ORA CurrentSFXFlags ;Load new continuation flags. LB49E: STA NoiseContSFX,X ;Save results. LB4A1: RTS ; ClearCurrentSFXFlags: LB4A2: LDA #$00 ;Once SFX has completed, this block clears the--> LB4A4: STA CurrentSFXFlags ;SFX flag from the current flag register. LB4A7: BEQ - ; IncrementSFXFrame: LB4A9: LDX ChannelType ;Load SFX channel number. LB4AC: INC ThisNoiseFrame,X ;increment current frame to play on given channel. LB4AF: LDA ThisNoiseFrame,X ;Load current frame to play on given channel. LB4B2: CMP NoiseSFXLength,X ;Check to see if current frame is last frame to play. LB4B5: BNE + ; LB4B7: LDA #$00 ;If current frame is last frame,--> LB4B9: STA ThisNoiseFrame,X ;reset current frame to 0. LB4BC:* RTS ; ;The CheckSFXFlag routine loads E0 thru E3 with the below values: ;1st SFX cycle $E0=#$BB, $E1=#$B2, $E2=#$22, $E3=#$B3. Base address=$B289 ;2nd SFX cycle $E0=#$CB, $E1=#$B2, $E2=#$EE, $E3=#$B4. Base address=$B28E ;3rd SFX cycle $E0=#$06, $E1=#$BC, $E2=#$5C, $E3=#$B3. Base address=$B2A7 ;4th SFX cycle $E0=#$16, $E1=#$BC, $E2=#$64, $E3=#$B3. Base address=$B2AC ;5th SFX cycle $E0=#$DB, $E1=#$B2, $E2=#$30, $E3=#$B3. Base address=$B293 ;6th SFX cycle $E0=#$EB, $E1=#$B2, $E2=#$EE, $E3=#$B4. Base address=$B298 ;7th SFX cycle $E0=#$FB, $E1=#$B2, $E2=#$44, $E3=#$B3. Base address=$B29D ;8th SFX cycle $E0=#$0B, $E1=#$B3, $E2=#$EE, $E3=#$B4. Base address=$B2A2 ;9th SFX cycle $E0=#$26, $E1=#$BC, $E2=#$3D, $E3=#$BC. Base address=$B2B6 ;10th SFX cycle $E0=#$26, $E1=#$BC, $E2=#$4B, $E3=#$BC. Base address=$B2B1 CheckSFXFlag: LB4BD: STA CurrentSFXFlags ;Store any set flags in $064D. LB4C0: STX $E4 ; LB4C2: LDY #$B2 ; LB4C4: STY $E5 ; LB4C6: LDY #$00 ;Y=0 for counting loop ahead. LB4C8:* LDA ($E4),Y ; LB4CA: STA $00E0,Y ;See table above for values loaded into $E0--> LB4CD: INY ;thru $E3 during this loop. LB4CE: TYA ; LB4CF: CMP #$04 ;Loop repeats four times to load the values. LB4D1: BNE - ; LB4D3: LDA ($E4),Y ; LB4D5: STA ChannelType ;#$00=SQ1,#$01=SQ2,#$02=Triangle,#$03=Noise LB4D8: LDY #$00 ;Set y to 0 for counting loop ahead. LB4DA: LDA CurrentSFXFlags ; LB4DD: PHA ;Push current SFX flags on stack. LB4DE:* ASL CurrentSFXFlags ; LB4E1: BCS + ;This portion of the routine loops a maximum of--> LB4E3: INY ;eight times looking for any SFX flags that have--> LB4E4: INY ;been set in the current SFX cycle. If a flag--> LB4E5: TYA ;is found, Branch to SFXFlagFound for further--> LB4E6: CMP #$10 ;processing, if no flags are set, continue to--> LB4E8: BNE - ;next SFX cycle. RestoreSFXFlags: LB4EA: PLA ; LB4EB: STA CurrentSFXFlags ;Restore original data in CurrentSFXFlags. LB4EE: RTS ; SFXFlagFound: ; LB4EF:* LDA ($E0),Y ;This routine stores the starting address of the--> LB4F1: STA $E2 ;specific SFX handling routine for the SFX flag--> LB4F3: INY ;found. The address is stored in registers--> LB4F4: LDA ($E0),Y ;$E2 and $E3. LB4F6: STA $E3 ; LB4F8: JMP RestoreSFXFlags ;($B4EA)Restore original data in CurrentSFXFlags. ;-----------------------------------[ SFX Handling Routines ]--------------------------------------- ;The following table is used by the SpitFlamesSFXContinue routine to change the volume--> ;on the SFX. It starts out quiet, then becomes louder then goes quiet again. SpitFlamesTbl: LB4FB: .byte $12, $13, $14, $15, $16, $17, $18, $19, $1A, $1B, $1C, $1D, $1B, $1A, $19, $17 LB50B: .byte $16, $15, $14, $12 SpitFlameSFXStart: LB50F: LDA #$14 ;Number of frames to play sound before a change. LB511: LDY #$21 ;Lower byte of sound data start address(base=$B200). LB513: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. SpitFlameSFXContinue: LB516: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB519: BNE + ;If more frames to process, branch. LB51B: JMP EndNoiseSFX ;($B58F)End SFX. LB51E:* LDY NoiseSFXData ; LB521: LDA $B4FB,Y ;Load data from table above and store in NoiseCntrl0. LB524: STA NoiseCntrl0 ; LB527: INC NoiseSFXData ;Increment to next entry in data table. LB52A: RTS ScrewAttackSFXStart: LB52B: LDA #$05 ;Number of frames to play sound before a change. LB52D: LDY #$11 ;Lower byte of sound data start address(base=$B200). LB52F: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB532: LDA $B213 ;#$00. LB535: STA NoiseSFXData ;Clear NoiseSFXData. LB538:* RTS ; ScrewAttackSFXContinue: LB539: LDA ScrewAttackSFXData ;Prevents period index from being incremented until--> LB53C: CMP #$02 ;after the tenth frame of the SFX. LB53E: BEQ + ;Branch if not ready to increment. LB540: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB543: BNE - ; LB545: INC ScrewAttackSFXData ;Increment every fifth frame. LB548: RTS ; LB549:* JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB54C: BNE IncrementPeriodIndex ;Start increasing period index after first ten frames. LB54E: DEC NoiseSFXData ; LB551: DEC NoiseSFXData ;Decrement NoiseSFXData by three every fifth frame. LB554: DEC NoiseSFXData ; LB557: INC MultiSFXData ;Increment MultiSFXData. When it is equal to #$0F--> LB55A: LDA MultiSFXData ;end screw attack SFX. MultiSFXData does not--> LB55D: CMP #$0F ;appear to be linked to multi SFX channels in--> LB55F: BNE -- ;this routine. LB561: JMP EndNoiseSFX ;($B58F)End SFX. IncrementPeriodIndex: LB564: INC NoiseSFXData ;Incrementing the period index has the effect of--> LB567: LDA NoiseSFXData ;lowering the frequency of the noise SFX. LB56A: STA NoiseCntrl2 ; LB56D: RTS ; MissileLaunchSFXStart: LB56E: LDA #$18 ;Number of frames to play sound before a change. LB570: LDY #$15 ;Lower byte of sound data start address(base=$B200). LB572: JSR GotoSelectSFXRoutine ;($B587)Prepare to setup registers for SFX. LB575: LDA #$0A ; LB577: STA NoiseSFXData ;Start increment index for noise channel at #$0A. LB57A: RTS ; MissileLaunchSFXContine: LB57B: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB57E: BNE IncrementPeriodIndex ; LB580: JMP EndNoiseSFX ;($B58F)End SFX. BombExplodeSFXStart: LB583: LDA #$30 ;Number of frames to play sound before a change. LB585: LDY #$19 ;Lower byte of sound data start address(base=$B200). GotoSelectSFXRoutine: LB587:* JMP SelectSFXRoutine ;($B452)Setup registers for SFX. ;The following routine is used to continue BombExplode and SamusWalk SFX. NoiseSFXContinue: LB58A: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB58D: BNE MusicBranch02 ;If more frames to process, branch to exit. EndNoiseSFX: LB58F: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. LB592: LDA #$10 ; LB594: STA NoiseCntrl0 ;disable envelope generator(sound off). MusicBranch02: LB597: RTS ;Exit for multiple routines. SamusWalkSFXStart: LB598: LDA NoiseContSFX ;If MissileLaunch, SamusWalk or SpitFire SFX are--> LB59B: AND #$34 ;already being played, branch to exit. LB59D: BNE MusicBranch02 ; LB59F: LDA #$03 ;Number of frames to play sound before a change. LB5A1: LDY #$1D ;Lower byte of sound data start address(base=$B200). LB5A3: BNE - ;Branch always. MultiSFXInit: LB5A5: STA MultiSFXLength ; LB5A8: JSR LoadSQ2ChannelSFX ;($B374)Set SQ2 SFX data. LB5AB: JSR UpdateContFlags ;($B493)Set continue SFX flag. LB5AE: LDA #$01 ; LB5B0: STA SQ1InUse ;Disable music from using SQ1 and SQ2 while--> LB5B3: LDA #$02 ;SFX are playing. LB5B5: STA SQ2InUse ; LB5B8: LDA #$00 ; LB5BA: STA SQ1ContSFX ; LB5BD: STA SQ1SFXData ; LB5C0: STA SQ1SQ2SFXData ;Clear all listed memory addresses. LB5C3: STA SQ1SFXPeriodLow ; LB5C6: STA ThisMultiFrame ; LB5C9: STA WriteMultiChannelData ; LB5CC: RTS ; EndMultiSFX: LB5CD: LDA #$10 ; LB5CF: STA SQ1Cntrl0 ;Disable SQ1 envelope generator(sound off). LB5D2: STA SQ2Cntrl0 ;Disable SQ2 envelope generator(sound off). LB5D5: LDA #$7F ; LB5D7: STA SQ1Cntrl1 ;Disable SQ1 sweep. LB5DA: STA SQ2Cntrl1 ;Disable SQ2 sweep. LB5DD: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. LB5E0: LDA #$00 ; LB5E2: STA SQ1InUse ; LB5E5: STA SQ2InUse ;Allows music player to use SQ1 and SQ2 channels. LB5E8: INC WriteMultiChannelData ; LB5EB: RTS ; BossHitSFXStart: LB5EC: LDY #$2D ;Low byte of SQ1 sound data start address(base=$B200). LB5EE: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB5F1: LDY #$29 ;Low byte of SQ2 sound data start address(base=$B200). LB5F3: JMP MultiSFXInit ;($B5A5)Initiate multi channel SFX. BossHitSFXContinue: LB5F6: INC SQ1SFXData ;Increment index to data in table below. LB5F9: LDY SQ1SFXData ; LB5FC: LDA $B63C,Y ; LB5FF: STA SQ1Cntrl0 ;Load SQ1Cntrl0 and SQ2Cntrl0 from table below. LB602: STA SQ2Cntrl0 ; LB605: LDA SQ1SFXData ; LB608: CMP #$14 ;After #$14 frames, end SFX. LB60A: BEQ ++ ; LB60C: CMP #$06 ;After six or more frames of SFX, branch. LB60E: BCC + ; LB610: LDA RandomNumber1 ; LB612: ORA #$10 ;Set bit 5. LB614: AND #$7F ;Randomly set bits 7, 3, 2, 1 and 0. LB616: STA SQ1SFXPeriodLow ;Store in SQ1 period low. LB619: ROL ; LB61A: STA SQ1SQ2SFXData ; LB61D: JMP WriteSQ1SQ2PeriodLow ;($B62C)Write period low data to SQ1 and SQ2. LB620:* INC SQ1SQ2SFXData ; LB623: INC SQ1SQ2SFXData ;Increment SQ1 and SQ2 period low by two. LB626: INC SQ1SFXPeriodLow ; LB629: INC SQ1SFXPeriodLow ; WriteSQ1SQ2PeriodLow: LB62C: LDA SQ1SQ2SFXData ; LB62F: STA SQ2Cntrl2 ;Write new SQ1 and SQ2 period lows to SQ1 and SQ2--> LB632: LDA SQ1SFXPeriodLow ;channels. LB635: STA SQ1Cntrl2 ; LB638: RTS ; LB639:* JMP EndMultiSFX ;($B5CD)End SFX. BossHitSFXDataTbl: LB63C: .byte $38, $3D, $3F, $3F, $3F, $3F, $3F, $3D, $3B, $39, $3B, $3D, $3F, $3D, $3B, $39 LB64C: .byte $3B, $3D, $3F, $39 SamusHitSFXContinue: LB650: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB653: BNE + ;If more SFX frames to process, branch. LB655: JMP EndMultiSFX ;($B5CD)End SFX. LB658:* LDY #$25 ;Low byte of SQ1 sound data start address(base=$B200). LB65A: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB65D: LDA RandomNumber1 ; LB65F: AND #$0F ;Randomly set last four bits of SQ1 period low. LB661: STA SQ1Cntrl2 ; LB664: LDY #$25 ;Low byte of SQ2 sound data start address(base=$B200). LB666: JSR LoadSQ2ChannelSFX ;($B374)Set SQ2 SFX data. LB669: LDA RandomNumber1 ; LB66B: LSR ;Multiply random number by 4. LB66C: LSR ; LB66D: AND #$0F ; LB66F: STA SQ2Cntrl2 ;Randomly set bits 2 and 3 of SQ2 period low. LB672: RTS ; SamusHitSFXStart: LB673: LDY #$25 ;Low byte of SQ1 sound data start address(base=$B200). LB675: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB678: LDA RandomNumber1 ; LB67A: AND #$0F ;Randomly set last four bits of SQ1 period low. LB67C: STA SQ1Cntrl2 ; LB67F: CLC ; LB680: LDA RandomNumber1 ;Randomly set last three bits of SQ2 period low+1. LB682: AND #$03 ; LB684: ADC #$01 ;Number of frames to play sound before a change. LB686: LDY #$25 ;Low byte of SQ2 sound data start address(base=$B200). LB688: JSR MultiSFXInit ;($B5A5)Initiate multi channel SFX. LB68B: LDA RandomNumber1 ; LB68D: LSR ;Multiply random number by 4. LB68E: LSR ; LB68F: AND #$0F ; LB691: STA SQ2Cntrl2 ;Randomly set bits 2 and 3 of SQ2 period low. LB694:* RTS ; IncorrectPasswordSFXStart: LB695: LDY #$31 ;Low byte of SQ1 sound data start address(base=$B200). LB697: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB69A: LDA #$20 ;Number of frames to play sound before a change. LB69C: LDY #$35 ;Low byte of SQ2 sound data start address(base=$B200). LB69E: JMP MultiSFXInit ;($B5A5)Initiate multi channel SFX. IncorrectPasswordSFXContinue: LB6A1: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6A4: BNE - ;If more frames to process, branch to exit. LB6A6: JMP EndMultiSFX ;($B5CD)End SFX. ;The following table is used by the below routine to load SQ1Cntrl2 data in the--> ;MissilePickupSFXContinue routine. MissilePickupSFXTbl: LB6A9: .byte $BD, $8D, $7E, $5E, $46, $3E, $00 MissilePickupSFXContinue: LB6B0: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6B3: BNE MusicBranch03 ;If more frames to process, branch to exit. LB6B5: LDY SQ1SFXData ; LB6B8: LDA MissilePickupSFXTbl,Y ;Load SFX data from table above. LB6BB: BNE + ; LB6BD: JMP EndSQ1SFX ;($B6F2)SFX completed. LB6C0:* STA SQ1Cntrl2 ; LB6C3: LDA $B244 ;#$28. LB6C6: STA SQ1Cntrl3 ;load SQ1Cntrl3 with #$28. LB6C9: INC SQ1SFXData ;Increment index to data table above every 5 frames. MusicBranch03: LB6CC: RTS ;Exit from multiple routines. MissilePickupSFXStart: LB6CD: LDA #$05 ;Number of frames to play sound before a change. LB6CF: LDY #$41 ;Lower byte of sound data start address(base=$B200). LB6D1: BNE +++ ;Branch always. EnergyPickupSFXContinue: LB6D3: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6D6: BNE MusicBranch03 ;If more frames to process, branch to exit. LB6D8: INC SQ1SFXData ; LB6DB: LDA SQ1SFXData ;Every six frames, reload SFX info. Does it--> LB6DE: CMP #$03 ;three times for a total of 18 frames. LB6E0: BEQ + ; LB6E2: LDY #$3D ; LB6E4: JMP LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. EnergyPickupSFXStart: LB6E7: LDA #$06 ;Number of frames to play sound before a change. LB6E9: LDY #$3D ;Lower byte of sound data start address(base=$B200). LB6EB: BNE +++ ;Branch always. ;The following continue routine is used by the metal, bird out of hole, ;enemy hit and the Samus jump SFXs. SQ1SFXContinue: LB6ED: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6F0: BNE MusicBranch03 ; EndSQ1SFX: LB6F2:* LDA #$10 ; LB6F4: STA SQ1Cntrl0 ;Disable envelope generator(sound off). LB6F7: LDA #$00 ; LB6F9: STA SQ1InUse ;Allows music to use SQ1 channel. LB6FC: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. LB6FF: INC WriteMultiChannelData ;Allows music routines to load SQ1 and SQ2 music. LB702: RTS ; SamusJumpSFXStart: LB703: LDA CurrentMusic ;If escape music is playing, exit without playing--> LB706: CMP #$04 ;Samus jump SFX. LB708: BEQ MusicBranch03 ; LB70A: LDA #$0C ;Number of frames to play sound before a change. LB70C: LDY #$51 ;Lower byte of sound data start address(base=$B200). LB70E: BNE SelectSFX1 ;Branch always. EnemyHitSFXStart: LB710: LDA #$08 ;Number of frames to play sound before a change. LB712: LDY #$55 ;Lower byte of sound data start address(base=$B200). LB714: BNE SelectSFX1 ;Branch always. BulletFireSFXStart: LB716: LDA HasBeamSFX ; LB719: LSR ;If Samus has ice beam, branch. LB71A: BCS +++++ ; LB71C: LDA SQ1ContSFX ;If MissilePickup, EnergyPickup, BirdOutOfHole--> LB71F: AND #$CC ;or EnemyHit SFX already playing, branch to exit. LB721: BNE MusicBranch03 ; LB723: LDA HasBeamSFX ; LB726: ASL ;If Samus has long beam, branch. LB727: BCS + ; LB729: LDA #$03 ;Number of frames to play sound before a change. LB72B: LDY #$4D ;Lower byte of sound data start address(base=$B200). LB72D: BNE SelectSFX1 ;Branch always (Plays ShortBeamSFX). HasLongBeamSFXStart: LB72F:* LDA #$07 ;Number of frames to play sound before a change. LB731: LDY #$49 ;Lower byte of sound data start address(base=$B200). LB733: BNE SelectSFX1 ;Branch always. MetalSFXStart: LB735: LDA #$0B ;Number of frames to play sound before a change. LB737: LDY #$45 ;Lower byte of sound data start address(base=$B200). SelectSFX1: LB739:* JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BirdOutOfHoleSFXStart: LB73C: LDA CurrentMusic ;If escape music is playing, use this SFX to make--> LB73F: CMP #$04 ;the bomb ticking sound, else play regular SFX. LB741: BEQ + ; LB743: LDA #$16 ;Number of frames to play sound before a change. LB745: LDY #$59 ;Lower byte of sound data start address(base=$B200). LB747: BNE SelectSFX1 ;Branch always. LB749:* LDA #$07 ;Number of frames to play sound before a change. LB74B: LDY #$39 ;Lower byte of sound data start address(base=$B200). LB74D: BNE SelectSFX1 ;Branch always. BulletFireSFXContinue: LB74F: LDA HasBeamSFX ; LB752: LSR ;If Samus has ice beam, branch. LB753: BCS +++ ; LB755: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB758: BNE + ;If more frames to process, branch to exit. LB75A: JMP EndSQ1SFX ;($B6F2)If SFX finished, jump. LB75D:* RTS ; HasIceBeamSFXStart: LB75E:* LDA #$07 ;Number of frames to play sound before a change. LB760: LDY #$61 ;Lower byte of sound data start address(base=$B200). LB762: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. HasIceBeamSFXContinue: LB765:* JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB768: BNE + ;If more frames to process, branch. LB76A: JMP EndSQ1SFX ;($B6F2)If SFX finished, jump. LB76D:* LDA SQ1SFXData ; LB770: AND #$01 ;Determine index for IceBeamSFXDataTbl below. LB772: TAY ; LB773: LDA IceBeamSFXDataTbl,Y ;Loads A with value from IceBeamSFXDataTbl below. LB776: BNE ++ ; IceBeamSFXDataTbl: LB778: .byte $93 ;Ice beam SFX period low data. LB779: .byte $81 ; WaveBeamSFXStart: LB77A: LDA #$08 ;Number of frames to play sound before a change. LB77C: LDY #$5D ;Lower byte of sound data start address(base=$B200). LB77E: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. WaveBeamSFXContinue: LB781: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB784: BNE + ;If more frames to process, branch. LB786: LDY SQ1SQ2SFXData ; LB789: INC SQ1SQ2SFXData ;Load wave beam SFXDisable/enable envelope length--> LB78C: LDA WaveBeamSFXDisLngthTbl,Y ;data from WaveBeamSFXDisableLengthTbl. LB78F: STA SQ1Cntrl0 ; LB792: BNE MusicBranch10 ;If at end of WaveBeamSFXDisableLengthTbl, end SFX. LB794: JMP EndSQ1SFX ;($B6F2)If SFX finished, jump. LB797:* LDA SQ1SFXData LB79A: AND #$01 ; LB79C: TAY ;Load wave beam SFX period low data from--> LB79D: LDA WaveBeamSFXPeriodLowTbl,Y ;WaveBeamSFXPeriodLowTbl. LoadSQ1PeriodLow: LB7A0:* STA SQ1Cntrl2 ;Change the period low data for SQ1 channel. LB7A3: INC SQ1SFXData ; MusicBranch10: LB7A6: RTS ;Exit for multiple routines. WaveBeamSFXPeriodLowTbl: LB7A7: .byte $58 ;Wave beam SFX period low data. LB7A8: .byte $6F ; WaveBeamSFXDisLngthTbl: LB7A9: .byte $93 ; LB7AA: .byte $91 ;Wave beam SFX Disable/enable envelope length data. LB7AB: .byte $00 ; DoorOpenCloseSFXStart: LB7AC: LDA $B287 ;#$30. LB7AF: STA TrianglePeriodLow ;Set triangle period low data byte. LB7B2: LDA $B288 ;#$B2. LB7B5: AND #$07 ;Set triangle period high data byte. LB7B7: STA TrianglePeriodHigh ;#$B7. LB7BA: LDA #$0F ; LB7BC: STA TriangleChangeLow ;Change triangle channel period low every frame by #$0F. LB7BF: LDA #$00 ; LB7C1: STA TriangleChangeHigh ;No change in triangle channel period high. LB7C4: LDA #$1F ;Number of frames to play sound before a change. LB7C6: LDY #$85 ;Lower byte of sound data start address(base=$B200). LB7C8: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. DoorOpenCloseSFXContinue: LB7CB: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB7CE: BNE + ; LB7D0: JMP EndTriangleSFX ;($B896)End SFX. LB7D3:* JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. LB7D6: JMP WriteTrianglePeriods ;($B869)Save new periods. BeepSFXStart: LB7D9: LDA TriangleContSFX ;If BombLaunchSFX is already playing, branch--> LB7DC: AND #$80 ;without playing BeepSFX. LB7DE: BNE MusicBranch10 ; LB7E0: LDA #$03 ;Number of frames to play sound before a change. LB7E2: LDY #$79 ;Lower byte of sound data start address(base=$B200). LB7E4: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BeepSFXContinue: LB7E7: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB7EA: BNE MusicBranch10 ;If more frames to process, branch to exit. LB7EC: JMP EndTriangleSFX ;($B896)End SFX. BigEnemyHitSFXStart: LB7EF: LDA #$12 ;Increase triangle low period by #$12 every frame. LB7F1: STA TriangleChangeLow ; LB7F4: LDA #$00 ; LB7F6: STA TriangleChangeHigh ;Does not change triangle period high. LB7F9: LDA $B27F ;#$42. LB7FC: STA TrianglePeriodLow ;Save new triangle period low data. LB7FF: LDA $B280 ;#$18. LB802: AND #$07 ;#$1F. LB804: STA TrianglePeriodHigh ;Save new triangle period high data. LB807: LDA #$0A ;Number of frames to play sound before a change. LB809: LDY #$7D ;Lower byte of sound data start address(base=$B200). LB80B: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BigEnemyHitSFXContinue: LB80E: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB811: BNE + ;If more frames to process, branch LB813: JMP EndTriangleSFX ;($B896)End SFX LB816:* JSR IncreaseTrianglePeriods ;($B978)Increase periods. LB819: LDA RandomNumber1 ; LB81B: AND #$3C ; LB81D: STA TriangleSFXData ; LB820: LDA TrianglePeriodLow ;Randomly set or clear bits 2, 3, 4 and 5 in--> LB823: AND #$C3 ;triangle channel period low. LB825: ORA TriangleSFXData ; LB828: STA TriangleCntrl2 ; LB82B: LDA TrianglePeriodHigh ; LB82E: ORA #$40 ;Set 4th bit in triangle channel period high. LB830: STA TriangleCntrl3 ; LB833: RTS ; SamusToBallSFXStart: LB834: LDA #$08 ;Number of frames to play sound before a change. LB836: LDY #$6D ;Lower byte of sound data start address(base=$B200). LB838: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB83B: LDA #$05 ; LB83D: STA PercentDifference ;Stores percent difference. In this case 5 = 1/5 = 20%. LB840: LDA $B26F ;#$DD. LB843: STA TrianglePeriodLow ;Save new triangle period low data. LB846: LDA $B270 ;#$3B. LB849: AND #$07 ;#$02. LB84B: STA TrianglePeriodHigh ;Save new triangle period high data. LB84E: RTS ; SamusToBallSFXContinue: LB84F: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB852: BNE + ;If more frames to process, branch. LB854: JMP EndTriangleSFX ;($B896)End SFX. LB857:* JSR DivideTrianglePeriods ;($B9A0)reduces triangle period low by 20% each frame. LB85A: LDA TriangleLowPercentage ; LB85D: STA TriangleChangeLow ;Store new values to change triangle periods. LB860: LDA TriangleHighPercentage ; LB863: STA TriangleChangeHigh ; LB866: JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. WriteTrianglePeriods: LB869: LDA TrianglePeriodLow ;Write TrianglePeriodLow to triangle channel. LB86C: STA TriangleCntrl2 ; LB86F: LDA TrianglePeriodHigh ; LB872: ORA #$08 ;Write TrianglePeriodHigh to triangle channel. LB874: STA TriangleCntrl3 ; LB877: RTS ; BombLaunchSFXStart: LB878: LDA #$04 ;Number of frames to play sound before a change. LB87A: LDY #$65 ;Lower byte of sound data start address(base=$B200). LB87C: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BombLaunchSFXContinue: LB87F: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB882: BNE MusicBranch04 ;If more frames to process, branch to exit. LB884: INC TriangleSFXData ; LB887: LDA TriangleSFXData ;After four frames, load second part of SFX. LB88A: CMP #$02 ; LB88C: BNE + ; LB88E: JMP EndTriangleSFX ;($B896)End SFX. LB891:* LDY #$69 ;Lower byte of sound data start address(base=$B200). LB893: JMP LoadTriangleChannelSFX ;($B36C)Prepare to load triangle channel with data. EndTriangleSFX: LB896: LDA #$00 ; LB898: STA TriangleCntrl0 ;clear TriangleCntr0(sound off). LB89B: STA TriangleInUse ;Allows music to use triangle channel. LB89E: LDA #$18 ; LB8A0: STA TriangleCntrl3 ;Set length index to #$03. LB8A3: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. MusicBranch04: LB8A6: RTS ;Exit from for multiple routines. MetroidHitSFXStart: LB8A7: LDA #$03 ;Number of frames to play sound before a change. LB8A9: LDY #$71 ;Lower byte of sound data start address(base=$B200). LB8AB: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB8AE: JMP RndTrianglePeriods ;($B8C3)MetroidHit SFX has several different sounds. MetroiHitSFXContinue: LB8B1: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB8B4: BEQ + ; LB8B6: INC TriangleSFXData ; LB8B9: LDA TriangleSFXData ;Randomize triangle periods nine times throughout--> LB8BC: CMP #$09 ;the course of the SFX. LB8BE: BNE MusicBranch04 ;If SFX not done, branch. LB8C0: JMP EndTriangleSFX ;($B896)End SFX. RndTrianglePeriods: LB8C3:* LDA RandomNumber1 ;Randomly set or reset bits 7, 4, 2 and 1 of--> LB8C5: ORA #$6C ;triangle channel period low. LB8C7: STA TriangleCntrl2 ; LB8CA: AND #$01 ; LB8CC: ORA #$F8 ;Randomly set or reset last bit of triangle--> LB8CE: STA TriangleCntrl3 ;channel period high. LB8D1: RTS ; SamusDieSFXStart: LB8D2: JSR InitializeSoundAddresses ;($B404)Clear all sound addresses. LB8D5: LDA #$0E ;Number of frames to play sound before a change. LB8D7: LDY #$75 ;Lower byte of sound data start address(base=$B200). LB8D9: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB8DC: LDA #$15 ;Decrease triangle SFX periods by 4.8% every frame. LB8DE: STA PercentDifference ; LB8E1: LDA $B277 ;#$40. LB8E4: STA TrianglePeriodLow ; LB8E7: LDA #$00 ;Initial values of triangle periods. LB8E9: STA TrianglePeriodHigh ; LB8EC:* RTS ; SamusDieSFXContinue: LB8ED: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB8F0: BNE + ; LB8F2: LDA #$20 ;Store change in triangle period low. LB8F4: STA TriangleChangeLow ; LB8F7: LDA #$00 ; LB8F9: STA TriangleChangeHigh ;No change in triangle period high. LB8FC: JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. LB8FF: INC TriangleSFXData ; LB902: LDA TriangleSFXData ; LB905: CMP #$06 ; LB907: BNE - ;If more frames to process, branch to exit. LB909: JMP EndTriangleSFX ;($B896)End SFX. LB90C:* JSR DivideTrianglePeriods ;($B9A0)reduces triangle period low. LB90F: LDA TriangleLowPercentage ; LB912: STA TriangleChangeLow ;Update triangle periods. LB915: LDA TriangleHighPercentage ; LB918: STA TriangleChangeHigh ; LB91B: JSR IncreaseTrianglePeriods ;($B978)Increase periods. LB91E: JMP WriteTrianglePeriods ;($B869)Save new periods. StatueRaiseSFXStart: LB921: LDA $B283 ;#$11. LB924: STA TrianglePeriodLow ;Save period low data. LB927: LDA $B284 ;#$09. LB92A: AND #$07 ; LB92C: STA TrianglePeriodHigh ;Store last three bits in $B284. LB92F: LDA #$00 ; LB931: STA TriangleChangeHigh ;No change in Triangle period high. LB934: LDA #$0B ; LB936: STA TriangleChangeLow ; LB939: LDA #$06 ;Number of frames to play sound before a change. LB93B: LDY #$81 ;Lower byte of sound data start address(base=$B200). LB93D: JMP SelectSFXroutine ;($B452)Setup registers for SFX. StatueRaiseSFXContinue: LB940: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB943: BNE ++ ; LB945: INC TriangleSFXData ;Increment TriangleSFXData every 6 frames. LB948: LDA TriangleSFXData ; LB94B: CMP #$09 ;When TriangleSFXData = #$09, end SFX. LB94D: BNE + ; LB94F: JMP EndTriangleSFX ;($B896)End SFX. LB952:* LDA TriangleChangeLow ; LB955: PHA ;Save triangle periods. LB956: LDA TriangleChangeHigh ; LB959: PHA ; LB95A: LDA #$25 ; LB95C: STA TriangleChangeLow ; LB95F: LDA #$00 ;No change in triangle period high. LB961: STA TriangleChangeHigh ; LB964: JSR IncreaseTrianglePeriods ;($B978)Increase periods. LB967: PLA ; LB968: STA TriangleChangeHigh ;Restore triangle periods. LB96B: PLA ; LB96C: STA TriangleChangeLow ; LB96F: JMP WriteTrianglePeriods ;($B869)Save new periods. LB972:* JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. LB975: JMP WriteTrianglePeriods ;($B869)Save new periods. IncreaseTrianglePeriods: LB978: CLC LB979: LDA TrianglePeriodLow ; LB97C: ADC TriangleChangeLow ;Calculate new TrianglePeriodLow. LB97F: STA TrianglePeriodLow ; LB982: LDA TrianglePeriodHigh ; LB985: ADC TriangleChangeHigh ;Calculate new TrianglePeriodHigh. LB988: STA TrianglePeriodHigh ; LB98B: RTS ; DecreaseTrianglePeriods: LB98C: SEC LB98D: LDA TrianglePeriodLow ; LB990: SBC TriangleChangeLow ;Calculate new TrianglePeriodLow. LB993: STA TrianglePeriodLow ; LB996: LDA TrianglePeriodHigh ; LB999: SBC TriangleChangeHigh ;Calculate new TrianglePeriodHigh. LB99C: STA TrianglePeriodHigh ; LB99F: RTS ; DivideTrianglePeriods: LB9A0: LDA TrianglePeriodLow ; LB9A3: PHA ;Store TrianglePeriodLow and TrianglePeriodHigh. LB9A4: LDA TrianglePeriodHigh ; LB9A7: PHA ; LB9A8: LDA #$00 ; LB9AA: STA DivideData ; LB9AD: LDX #$10 ; LB9AF: ROL TrianglePeriodLow ; LB9B2: ROL TrianglePeriodHigh ; LB9B5:* ROL DivideData ;The following routine takes the triangle period--> LB9B8: LDA DivideData ;high and triangle period low values and reduces--> LB9BB: CMP PercentDifference ;them by a certain percent. The percent is--> LB9BE: BCC + ;determined by the value stored in--> LB9C0: SBC PercentDifference ;PercentDifference. If PercentDifference=#$05,--> LB9C3: STA DivideData ;then the values will be reduced by 20%(1/5).--> LB9C6:* ROL TrianglePeriodLow ;If PercentDifference=#$0A,Then the value will--> LB9C9: ROL TrianglePeriodHigh ;be reduced by 10%(1/10), etc. This function is--> LB9CC: DEX ;basically a software emulation of a sweep function. LB9CD: BNE -- ; LB9CF: LDA TrianglePeriodLow ; LB9D2: STA TriangleLowPercentage ; LB9D5: LDA TrianglePeriodHigh ; LB9D8: STA TriangleHighPercentage ; LB9DB: PLA ; LB9DC: STA TrianglePeriodHigh ;Restore TrianglePerodLow and TrianglePeriodHigh. LB9DF: PLA ; LB9E0: STA TrianglePeriodLow ; LB9E3: RTS ; ;--------------------------------------[ End SFX routines ]------------------------------------- SetVolumeAndDisableSweep: LB9E4: LDA #$7F ; LB9E6: STA MusicSQ1Sweep ;Disable sweep generator on SQ1 and SQ2. LB9E9: STA MusicSQ2Sweep ; LB9EC: STX SQ1DutyEnvelope ;Store duty cycle and volume data for SQ1 and SQ2. LB9EF: STY SQ2DutyEnvelope ; LB9F2: RTS ; ResetVolumeIndex: LB9F3: LDA SQ1MusicFrameCount ;If at the beginning of a new SQ1 note, set--> LB9F6: CMP #$01 ;SQ1VolumeIndex = #$01. LB9F8: BNE + ; LB9FA: STA SQ1VolumeIndex ; LB9FD:* LDA SQ2MusicFrameCount ; LBA00: CMP #$01 ;If at the beginning of a new SQ2 note, set--> LBA02: BNE + ;SQ2VolumeIndex = #$01. LBA04: STA SQ2VolumeIndex ; LBA07:* RTS ; LoadSQ1SQ2Periods: LBA08: LDA WriteMultiChannelData ;If a Multi channel data does not need to be--> LBA0B: BEQ + ;loaded, branch to exit. LBA0D: LDA #$00 ; LBA0F: STA WriteMultiChannelData ;Clear multi channel data write flag. LBA12: LDA MusicSQ1Sweep ; LBA15: STA SQ1Cntrl1 ; LBA18: LDA MusicSQ1PeriodLow ; LBA1B: STA SQ1Cntrl2 ;Loads SQ1 channel addresses $4001, $4002, $4003. LBA1E: LDA MusicSQ1PeriodHigh ; LBA21: STA SQ1Cntrl3 ; LBA24: LDA MusicSQ2Sweep ; LBA27: STA SQ2Cntrl1 ; LBA2A: LDA MusicSQ2PeriodLow ; LBA2D: STA SQ2Cntrl2 ;Loads SQ2 channel addresses $4005, $4006, $4007. LBA30: LDA MusicSQ2PeriodHigh ; LBA33: STA SQ2Cntrl3 ; LBA36:* RTS ; LoadSQ1SQ2Channels: LBA37: LDX #$00 ;Load SQ1 channel data. LBA39: JSR WriteSQCntrl0 ;($BA41)Write Cntrl0 data. LBA3C: INX ;Load SQ2 channel data. LBA3D: JSR WriteSQCntrl0 ;($BA41)Write Cntrl0 data. LBA40: RTS ; WriteSQCntrl0: LBA41: LDA SQ1VolumeCntrl,X ;Load SQ channel volume data. If zero, branch to exit. LBA44: BEQ +++++ ; LBA46: STA VolumeCntrlAddress ; LBA48: JSR LoadSQ1SQ2Periods ;($BA08)Load SQ1 and SQ2 control information. LBA4B: LDA SQ1VolumeData,X ; LBA4E: CMP #$10 ;If sound channel is not currently--> LBA50: BEQ +++++++ ;playing sound, branch. LBA52: LDY #$00 ; LBA54:* DEC VolumeCntrlAddress ;Desired entry in VolumeCntrlAdressTbl. LBA56: BEQ + ; LBA58: INY ;*2(2 byte address to find voulume control data). LBA59: INY ; LBA5A: BNE - ;Keep decrementing until desired address is found. LBA5C:* LDA VolumeCntrlAddressTbl,Y ;Base is $BCB0. LBA5F: STA $EC ;Volume data address low byte. LBA61: LDA VolumeCntrlAddressTbl+1,Y ;Base is $BCB1. LBA64: STA $ED ;Volume data address high byte. LBA66: LDY SQ1VolumeIndex,X ;Index to desired volume data. LBA69: LDA ($EC),Y ;Load desired volume for current channel into--> LBA6B: STA Cntrl0Data ;Cntrl0Data. LBA6D: CMP #$FF ;If last entry in volume table is #$FF, restore--> LBA6F: BEQ MusicBranch05 ;volume to its original level after done reading--> LBA71: CMP #$F0 ;Volume data. If #$F0 is last entry, turn sound--> LBA73: BEQ MusicBranch06 ;off on current channel until next note. LBA75: LDA SQ1DutyEnvelope,X ;Remove duty cycle data For current channel and--> LBA78: AND #$F0 ;add this frame of volume data and store results--> LBA7A: ORA Cntrl0Data ;in Cntrl0Data. LBA7C: TAY ; LBA7D:* INC SQ1VolumeIndex,X ;Increment Index to volume data. LBA80:* LDA SQ1InUse,X ;If SQ1 or SQ2(depends on loop iteration) in use,--> LBA83: BNE + ;branch to exit, else write SQ(1 or 2)Cntrl0. LBA85: TXA ; LBA86: BEQ ++ ;If currently on SQ1, branch to write SQ1 data. WriteSQ2Cntrl0: ; LBA88: STY SQ2Cntrl0 ;Write SQ2Cntrl0 data. LBA8B:* RTS ; WriteSQ1Cntrl0: ; LBA8C:* STY SQ1Cntrl0 ;Write SQ1Cntrl0 data. LBA8F: RTS ; MusicBranch05: LBA90: LDY SQ1DutyEnvelope,X ;Restore original volume of sound channel. LBA93: BNE --- ;Branch always. MusicBranch06: LBA95: LDY #$10 ;Disable envelope generator and set volume to 0. LBA97: BNE --- ;Branch always. LBA99:* LDY #$10 ;Disable envelope generator and set volume to 0. LBA9B: BNE ----- ;Branch always. GotoCheckRepeatMusic: LBA9D:* JSR CheckRepeatMusic ;($B3F0)Resets music flags if music repeats. LBAA0: RTS ; GotoLoadSQ1SQ2Channels: LBAA1:* JSR LoadSQ1SQ2Channels ;($BA37)Load SQ1 and SQ2 channel data. LBAA4: RTS ; LoadCurrentMusicFrameData: LBAA5: JSR ResetVolumeIndex ;($B9F3)Reset index if at the beginning of a new note. LBAA8: LDA #$00 ; LBAAA: TAX ;X = #$00. LBAAB: STA ThisSoundChannel ;(#$00, #$04, #$08 or #$0C). LBAAE: BEQ ++ ; LBAB0:* TXA ; LBAB1: LSR ; LBAB2: TAX ;Increment to next sound channel(1,2 or 3). ; IncrementToNextChannel: ; LBAB3: INX ; LBAB4: TXA ; LBAB5: CMP #$04 ;If done with four sound channels, branch to load--> LBAB7: BEQ -- ;sound channel SQ1 SQ2 data. LBAB9: LDA ThisSoundChannel ;Add 4 to the least significant byte of the current--> LBABC: CLC ;sound channel start address. This moves to next--> LBABD: ADC #$04 ;sound channel address ranges to process. LBABF: STA ThisSoundChannel ; LBAC2:* TXA ; LBAC3: ASL ;*2(two bytes for sound channel info base address). LBAC4: TAX ; LBAC5: LDA SQ1LowBaseByte,X ; LBAC8: STA $E6 ;Load sound channel info base address into $E6--> LBACA: LDA SQ1HighBaseByte,X ;and $E7. ($E6=low byte, $E7=high byte). LBACD: STA $E7 ; LBACF: LDA SQ1HighBaseByte,X ;If no data for this sound channel, branch--> LBAD2: BEQ -- ;to find data for next sound channel. LBAD4: TXA ; LBAD5: LSR ;/2. Determine current sound channel (0,1,2 or3). LBAD6: TAX ; LBAD7: DEC SQ1MusicFrameCount,X ;Decrement the current sound channel frame count--> LBADA: BNE IncrementToNextChannel ;If not zero, branch to check next channel, else--> ;load the next set of sound channel data. LoadNextChannelIndexData: LBADC: LDY SQ1MusicIndexIndex,X ;Load current channel index to music data index. LBADF: INC SQ1MusicIndexIndex,X ;Increment current channel index to music data index. LBAE2: LDA ($E6),Y ; LBAE4: BEQ ---- ;Branch if music has reached the end. LBAE6: TAY ;Transfer music data index to Y (base=$BE77) . LBAE7: CMP #$FF ; LBAE9: BEQ + ;At end of loop? If yes, branch. LBAEB: AND #$C0 ; LBAED: CMP #$C0 ;At beginnig of new loop? if yes, branch. LBAEF: BEQ ++ ; LBAF1: JMP LoadMusicChannel ;($BB1C)Load music data into channel. RepeatMusicLoop: LBAF4:* LDA SQ1RepeatCounter,X ;If loop counter has reached zero, branch to exit. LBAF7: BEQ ++ ; LBAF9: DEC SQ1RepeatCounter,X ;Decrement loop counter. LBAFC: LDA SQ1LoopIndex,X ;Load loop index for proper channel and store it in--> LBAFF: STA SQ1MusicIndexIndex,X ;music index index address. LBB02: BNE ++ ;Branch unless music has reached the end. StartNewMusicLoop: LBB04:* TYA ; LBB05: AND #$3F ;Remove last six bits of loop controller and save--> LBB07: STA SQ1RepeatCounter,X ;in repeat counter addresses. # of times to loop. LBB0A: DEC SQ1RepeatCounter,X ;Decrement loop counter. LBB0D: LDA SQ1MusicIndexIndex,X ;Store location of loop start in loop index address. LBB10: STA SQ1LoopIndex,X ; LBB13:* JMP LoadNextChannelIndexData ;($BADC)Load next channel index data. LBB16:* JMP LoadNoiseChannelMusic ;($BBDE)Load data for noise channel music. LBB19:* JMP LoadTriangleCntrl0 ;($BBB7)Load Cntrl0 byte of triangle channel. LoadMusicChannel: LBB1C: TYA ; LBB1D: AND #$B0 ; LBB1F: CMP #$B0 ;Is data byte music note length data? If not, branch. LBB21: BNE + ; LBB23: TYA ; LBB24: AND #$0F ;Separate note length data. LBB26: CLC ; LBB27: ADC NoteLengthTblOffset ;Find proper note lengths table for current music. LBB2A: TAY ; LBB2B: LDA NoteLengths0Tbl,Y ;(Base is $BEF7)Load note length and store in--> LBB2E: STA SQ1FrameCountInit,X ;frame count init address. LBB31: TAY ;Y now contains note length. LBB32: TXA ; LBB33: CMP #$02 ;If loading Triangle channel data, branch. LBB35: BEQ - ; LoadSoundDataIndexIndex: LBB37: LDY SQ1MusicIndexIndex,X ;Load current index to sound data index. LBB3A: INC SQ1MusicIndexIndex,X ;Increment music index index address. LBB3D: LDA ($E6),Y ;Load index to sound channel music data. LBB3F: TAY ; LBB40:* TXA ; LBB41: CMP #$03 ;If loading Noise channel data, branch. LBB43: BEQ --- ; LBB45: PHA ;Push music channel number on stack(0, 1 or 2). LBB46: LDX ThisSoundChannel ; LBB49: LDA MusicNotesTbl+1,Y ;(Base=$BE78)Load A with music channel period low data. LBB4C: BEQ + ;If data is #$00, skip period high and low loading. LBB4E: STA MusicSQ1PeriodLow,X ;Store period low data in proper period low address. LBB51: LDA MusicNotesTbl,Y ;(Base=$BE77)Load A with music channel period high data. LBB54: ORA #$08 ;Ensure minimum index length of 1. LBB56: STA MusicSQ1PeriodHigh,X ;Store period high data in proper period high address. LBB59:* TAY ; LBB5A: PLA ;Pull stack and restore channel number to X. LBB5B: TAX ; LBB5C: TYA ; LBB5D: BNE + ;If period information was present, branch. NoPeriodInformation: LBB5F: LDA #$00 ;Turn off channel volume since no period data present. LBB61: STA Cntrl0Data ; LBB63: TXA ; LBB64: CMP #$02 ;If loading triangle channel data, branch. LBB66: BEQ ++ ; LBB68: LDA #$10 ;Turn off volume and disable env. generator(SQ1,SQ2). LBB6A: STA Cntrl0Data ; LBB6C: BNE ++ ;Branch always. PeriodInformationFound: LBB6E:* LDA SQ1DutyEnvelope,X ;Store channel duty cycle and volume info in $EA. LBB71: STA Cntrl0Data ; LBB73:* TXA ; LBB74: DEC SQ1InUse,X ; LBB77: CMP SQ1InUse,X ;If SQ1 or SQ2 are being used by SFX routines, branch. LBB7A: BEQ +++ ; LBB7C: INC SQ1InUse,X ;Restore not in use status of SQ1 or SQ2. LBB7F: LDY ThisSoundChannel ; LBB82: TXA ; LBB83: CMP #$02 ;If loading triangle channel data, branch. LBB85: BEQ + ; LBB87: LDA SQ1VolumeCntrl,X ;If $062E or $062F has volume data, skip writing--> LBB8A: BNE ++ ;Cntrl0Data to SQ1 or SQ2. LBB8C:* LDA Cntrl0Data ; LBB8E: STA SQ1Cntrl0,Y ;Write Cntrl0Data. LBB91:* LDA Cntrl0Data ; LBB93: STA SQ1VolumeData,X ;Store volume data index to volume data. LBB96: LDA MusicSQ1PeriodLow,Y ; LBB99: STA SQ1Cntrl2,Y ; LBB9C: LDA MusicSQ1PeriodHigh,Y ;Write data to three sound channel addresses. LBB9F: STA SQ1Cntrl3,Y ; LBBA2: LDA MusicSQ1Sweep,X ; LBBA5: STA SQ1Cntrl1,Y ; LoadNewMusicFrameCount: LBBA8: LDA SQ1FrameCountInit,X ;Load new music frame count and store it in music--> LBBAB: STA SQ1MusicFrameCount,X ;frame count address. LBBAE: JMP IncrementToNextChannel ;($BAB3)Move to next sound channel. SQ1SQ2InUse: LBBB1:* INC SQ1InUse,X ;Restore in use status of SQ1 or SQ1. LBBB4: JMP LoadNewMusicFrameCount ;($BBA8)Load new music frame count. LoadTriangleCntrl0: LBBB7: LDA TriangleCounterCntrl ; LBBBA: AND #$0F ;If lower bits set, branch to play shorter note. LBBBC: BNE ++ ; LBBBE: LDA TriangleCounterCntrl ; LBBC1: AND #$F0 ;If upper bits are set, branch to play longer note. LBBC3: BNE + ; LBBC5: TYA ; LBBC6: JMP AddTriangleLength ;($BBCD)Calculate length to play note. LBBC9:* LDA #$FF ;Disable length cntr(play until triangle data changes). LBBCB: BNE + ;Branch always. AddTriangleLength: LBBCD: CLC ; LBBCE: ADC #$FF ;Add #$FF(Effectively subtracts 1 from A). LBBD0: ASL ;*2. LBBD1: ASL ;*2. LBBD2: CMP #$3C ; LBBD4: BCC + ;If result is greater than #$3C, store #$3C(highest--> LBBD6: LDA #$3C ;triangle linear count allowed). LBBD8:* STA TriLinearCount ; LBBDB:* JMP LoadSoundDataIndexIndex ;($BB37)Load index to sound data index. LoadNoiseChannelMusic: LBBDE: LDA NoiseContSFX ; LBBE1: AND #$FC ;If playing any Noise SFX, branch to exit. LBBE3: BNE + ; LBBE5: LDA $B200,Y ; LBBE8: STA NoiseCntrl0 ;Load noise channel with drum beat SFX starting--> LBBEB: LDA $B201,Y ;at address B201. The possible values of Y are--> LBBEE: STA NoiseCntrl2 ;#$01, #$04, #$07 or #$0A. LBBF1: LDA $B202,Y ; LBBF4: STA NoiseCntrl3 ; LBBF7:* JMP LoadNewMusicFrameCount ;($BBA8)Load new music frame count. ;The following table is used by the InitializeMusic routine to find the index for loading ;addresses $062B thru $0637. Base is $BD31. InitMusicIndexTbl: LBBFA: .byte $41 ;Ridley area music. LBBFB: .byte $8F ;Tourian music. LBBFC: .byte $34 ;Item room music. LBBFD: .byte $27 ;Kraid area music. LBBFE: .byte $1A ;Norfair music. LBBFF: .byte $0D ;Escape music. LBC00: .byte $00 ;Mother brain music. LBC01: .byte $82 ;Brinstar music. LBC02: .byte $68 ;Fade in music. LBC03: .byte $75 ;Power up music. LBC04: .byte $4E ;End music. LBC05: .byte $5B ;Intro music. ;The tables below contain addresses for SFX and music handling routines. ;Multi channel Init SFX and music handling routine addresses: LBC06: .word $BC80 ;Fade in music. LBC08: .word $BC7A ;Power up music. LBC0A: .word $BC86 ;End game music. LBC0C: .word $BC7A ;Intro music. LBC0E: .word $B4EE ;No sound. LBC10: .word $B673 ;Samus hit init SFX. LBC12: .word $B5EC ;Boss hit init SFX. LBC14: .word $B695 ;Incorrect password init SFX. ;Multi channel continue SFX handling routine addresses: LBC16: .word $B4EE ;No sound. LBC18: .word $B4EE ;No sound. LBC1A: .word $B4EE ;No sound. LBC1C: .word $B4EE ;No sound. LBC1E: .word $B4EE ;No sound. LBC20: .word $B650 ;Samus hit continue SFX. LBC22: .word $B5F6 ;Boss hit continue SFX. LBC24: .word $B6A1 ;Incorrect password continue SFX. ;Music handling routine addresses: LBC26: .word $BC83 ;Ridley area music. LBC28: .word $BC77 ;Tourian music. LBC2A: .word $BC77 ;Item room music. LBC2C: .word $BC77 ;Kraid area music. LBC2E: .word $BC80 ;Norfair music. LBC30: .word $BC7D ;Escape music. LBC32: .word $BC77 ;Mother brain music. LBC34: .word $BC80 ;Brinstar music. ;-----------------------------------[ Entry point for music routines ]-------------------------------- LoadMusicTempFlags: LBC36: LDA CurrentMusicRepeat ;Load A with temp music flags, (9th SFX cycle). LBC39: LDX #$B6 ;Lower address byte in ChooseNextSFXRoutineTbl. LBC3B: BNE + ;Branch always. LoadMusicInitFlags: LBC3D: LDA MusicInitFlag ;Load A with Music flags, (10th SFX cycle). LBC40: LDX #$B1 ;Lower address byte in ChooseNextSFXRoutineTbl. LBC42:* JSR CheckSFXFlag ;($B4BD)Checks to see if SFX or music flags set. LBC45: JSR FindMusicInitIndex ;($BC53)Find bit containing music init flag. LBC48: JMP ($00E2) ;If no flag found, Jump to next SFX cycle,--> ;else jump to specific SFX handling subroutine. ContinueMusic: ;11th and last SFX cycle. LBC4B: LDA CurrentMusic ; LBC4E: BEQ +++ ;Branch to exit of no music playing. LBC50: JMP LoadCurrentMusicFrameData ;($BAA5)Load info for current frame of music data. ;MusicInitIndex values correspond to the following music: ;#$00=Ridley area music, #$01=Tourian music, #$02=Item room music, #$03=Kraid area music, ;#$04=Norfair music, #$05=Escape music, #$06=Mother brain music, #$07=Brinstar music, ;#$08=Fade in music, #$09=Power up music, #$0A=End game music, #$0B=Intro music. FindMusicInitIndex: LBC53: LDA #$FF ;Load MusicInitIndex with #$FF. LBC55: STA MusicInitIndex ; LBC58: LDA CurrentSFXFlags ; LBC5B: BEQ ++ ;Branch to exit if no SFX flags set for Multi SFX. LBC5D:* INC MusicInitIndex ; LBC60: ASL ;Shift left until bit flag is in carry bit. LBC61: BCC - ;Loop until SFX flag found. Store bit--> LBC63:* RTS ;number of music in MusicInitIndex. ;The following routine is used to add eight to the music index when looking for music flags ;in the MultiSFX address. Add8: LBC64: LDA MusicInitIndex ; LBC67: CLC ; LBC68: ADC #$08 ;Add #$08 to MusicInitIndex. LBC6A: STA MusicInitIndex ; LBC6D: RTS ; LBC6E: LDA CurrentMusic ; LBC71: ORA #$F0 ;This code does not appear to be used in this page. LBC73: STA CurrentMusic ; LBC76:* RTS ; Music00Start: LBC77: JMP Music00Init ;($BCAA)Initialize music 00. Music01Start: LBC7A: JMP Music01Init ;($BCA4)Initialize music 01. Music02Start: LBC7D: JMP Music02Init ;($BC9A)Initialize music 02. Msic03Start: LBC80: JMP Music03Init ;($BC96)Initialize music 03. Music04Start: LBC83: JMP Music04Init ;($BC89)Initialize music 04. Music05Start: LBC86: JMP Music05Init ;($BC9E)Initialize music 05. Music04Init: LBC89: LDA #$B3 ;Duty cycle and volume data for SQ1 and SQ2. XYMusicInit: LBC8B:* TAX ;Duty cycle and volume data for SQ1. LBC8C: TAY ;Duty cycle and volume data for SQ2. LBC8D:* JSR SetVolumeAndDisableSweep ;($B9E4)Set duty cycle and volume data for SQ1 and SQ2. LBC90: JSR InitializeMusic ;($BF19)Setup music registers. LBC93: JMP LoadCurrentMusicFrameData ;($BAA5)Load info for current frame of music data. Music03Init: LBC96: LDA #$34 ;Duty cycle and volume data for SQ1 and SQ2. LBC98: BNE -- ;Branch always Music02Init: LBC9A: LDA #$F4 ;Duty cycle and volume data for SQ1 and SQ2. LBC9C: BNE -- ;Branch always Music05Init: LBC9E: LDX #$F5 ;Duty cycle and volume data for SQ1. LBCA0: LDY #$F6 ;Duty cycle and volume data for SQ2. LBCA2: BNE - ;Branch always Music01Init: LBCA4: LDX #$B6 ;Duty cycle and volume data for SQ1. LBCA6: LDY #$F6 ;Duty cycle and volume data for SQ2. LBCA8: BNE - ;Branch always Music00Init: LBCAA: LDX #$92 ;Duty cycle and volume data for SQ1. LBCAC: LDY #$96 ;Duty cycle and volume data for SQ2. LBCAE: BNE - ;Branch always ;The following address table provides starting addresses of the volume data tables below: VolumeCntrlAddressTbl: LBCB0: .word $BCBA, $BCC5, $BCCF, $BCDA, $BD03 VolumeDataTbl1: LBCBA: .byte $01, $02, $02, $03, $03, $04, $05, $06, $07, $08, $FF VolumeDataTbl2: LBCC5: .byte $02, $04, $05, $06, $07, $08, $07, $06, $05, $FF VolumeDataTbl3: LBCCF: .byte $00, $0D, $09, $07, $06, $05, $05, $05, $04, $04, $FF VolumeDataTbl4: LBCDA: .byte $02, $06, $07, $07, $07, $06, $06, $06, $06, $05, $05, $05, $04, $04, $04, $03 LBCEA: .byte $03, $03, $03, $02, $03, $03, $03, $03, $03, $02, $02, $02, $02, $02, $02, $02 LBCFA: .byte $02, $02, $02, $01, $01, $01, $01, $01, $F0 VolumeDataTbl5: LBD03: .byte $0A, $0A, $09, $08, $07, $06, $05, $04, $03, $02, $07, $07, $06, $05, $04, $04 LBD13: .byte $03, $02, $02, $02, $05, $05, $05, $04, $03, $02, $02, $02, $01, $01, $04, $04 LBD23: .byte $03, $02, $01, $02, $02, $01, $01, $01, $02, $02, $02, $01, $01, $F0 ;The init music table loads addresses $062B thru $0637 with the initial data needed to play the ;selected music. The data for each entry in the table have the following format: ;.byte $xx, $xx, $xx, $xx, $xx : .word $xxxx, $xxxx, $xxxx, $xxxx. ;The first five bytes have the following functions: ;Byte 0=index to proper note length table. Will be either #$00, #$0B or #$17. ;Byte 1=Repeat music byte. #$00=no repeat, any other value and the music repeats. ;Byte 2=Controls length counter for triangle channel. ;Byte 3=Volume control byte for SQ1. ;Byte 4=Volume control byte for SQ2. ;Address 0=Base address of SQ1 music data. ;Address 1=Base address of SQ2 music data. ;Address 2=Base address of triangle music data. ;Address 3=Base address of noise music data. InitMusicTbl: ;Mother brain music(not used this memory page). LBD31: .byte $0B, $FF, $F5, $00, $00 LBD36: .word $0100, $0300, $0500, $0000 ;Escape music(not used this memory page). LBD3E: .byte $0B, $FF, $00, $02, $02 LBD43: .word $0100, $0300, $0500, $0700 ;Norfair music(not used this memory page). LBD4B: .byte $0B, $FF, $F0, $04, $04 LBD50: .word $0100, $0300, $0500, $0700 ;Kraid area music. LBD58: .byte $00, $FF, $F0, $00, $00 LBD5D: .word $B03F, $B041, $B0AA, $0000 ;Item room music. LBD65: .byte $0B, $FF, $03, $00, $00 LBD6A: .word $BDDA, $BDDC, $BDCD, $0000 ;Ridley area music. LBD72: .byte $0B, $FF, $F0, $01, $01 LBD77: .word $B022, $B031, $B000, $0000 ;End game music(not used this memory page). LBD7F: .byte $17, $00, $00, $02, $01 LBD84: .word $0100, $0300, $0500, $0700 ;Intro music(not used this memory page). LBD8C: .byte $17, $00, $F0, $02, $05 LBD91: .word $0100, $0300, $0500, $0700 ;Fade in music LBD99: .byte $0B, $00, $F0, $02, $00 LBD9E: .word $BE3E, $BE1D, $BE36, $0000 ;Power up music LBDA6: .byte $00, $00, $F0, $01, $00 LBDAB: .word $BDF7, $BE0D, $BE08, $0000 ;Brinstar music(not used this memory page). LBDB3: .byte $0B, $FF, $00, $02, $03 LBDB8: .word $0100, $0300, $0500, $0700 ;Tourian music LBDC0: .byte $0B, $FF, $03, $00, $00 LBDC5: .word $BE59, $BE47, $BE62, $0000 ItemRoomTriangleIndexData: LBDCD: .byte $C8 ; LBDCE: .byte $B0 ;3/32 seconds + LBDCF: .byte $38 ;E3 | LBDD0: .byte $3A ;F3 | LBDD1: .byte $3C ;F#3 | LBDD2: .byte $3E ;G3 | LBDD3: .byte $40 ;Ab3 | Repeat 8 times LBDD4: .byte $3E ;G3 | LBDD5: .byte $3C ;F#3 | LBDD6: .byte $3A ;F3 | LBDD7: .byte $B6 ;1 3/16 seconds | LBDD8: .byte $02 ;no sound + LBDD9: .byte $FF ; ItemRoomSQ1IndexData: LBDDA: .byte $B8 ;1/4 seconds LBDDB: .byte $02 ;No sound ItemRoomSQ2IndexData: LBDDC: .byte $B3 ;3/4 seconds LBDDD: .byte $02 ;No sound LBDDE: .byte $B2 ;3/8 seconds LBDDF: .byte $74 ;A#6 LBDE0: .byte $02 ;No sound LBDE1: .byte $6A ;F5 LBDE2: .byte $02 ;No sound LBDE3: .byte $72 ;A6 LBDE4: .byte $02 ;No sound LBDE5: .byte $62 ;C#5 LBDE6: .byte $B4 ;1 1/2 seconds LBDE7: .byte $02 ;No sound LBDE8: .byte $B2 ;3/8 seconds LBDE9: .byte $60 ;C5 LBDEA: .byte $02 ;No sound LBDEB: .byte $6C ;F#5 LBDEC: .byte $02 ;No sound LBDED: .byte $76 ;B6 LBDEE: .byte $B3 ;3/4 seconds LBDEF: .byte $02 ;No sound LBDF0: .byte $B2 ;3/8 seconds LBDF1: .byte $7E ;F6 LBDF2: .byte $02 ;No sound LBDF3: .byte $7C ;D6 LBDF4: .byte $B3 ;3/4 seconds LBDF5: .byte $02 ;No sound LBDF6: .byte $00 ;End item room music. PowerUpSQ1IndexData: LBDF7: .byte $B3 ;1/2 seconds LBDF8: .byte $48 ;C4 LBDF9: .byte $42 ;A4 LBDFA: .byte $B2 ;1/4 seconds LBDFB: .byte $3E ;G3 LBDFC: .byte $38 ;E3 LBDFD: .byte $30 ;C3 LBDFE: .byte $38 ;E3 LBDFF: .byte $4C ;D4 LBE00: .byte $44 ;A#4 LBE01: .byte $3E ;G3 LBE02: .byte $36 ;D#3 LBE03: .byte $C8 ; LBE04: .byte $B0 ;1/16 seconds + LBE05: .byte $38 ;E3 | Repeat 8 times LBE06: .byte $3C ;F#3 + LBE07: .byte $FF PowerUpTriangleIndexData: LBE08: .byte $B4 ;1 second LBE09: .byte $2C ;A#3 LBE0A: .byte $2A ;A3 LBE0B: .byte $1E ;D#2 LBE0C: .byte $1C ;D2 PowerUpSQ2IndexData: LBE0D: .byte $B2 ;1/4 seconds LBE0E: .byte $22 ;F2 LBE0F: .byte $2C ;A#3 LBE10: .byte $30 ;C3 LBE11: .byte $34 ;D3 LBE12: .byte $38 ;E3 LBE13: .byte $30 ;C3 LBE14: .byte $26 ;G2 LBE15: .byte $30 ;C3 LBE16: .byte $3A ;F3 LBE17: .byte $34 ;D3 LBE18: .byte $2C ;A#3 LBE19: .byte $26 ;G2 LBE1A: .byte $B4 ;1 second LBE1B: .byte $2A ;A3 LBE1C: .byte $00 ;End power up music. FadeInSQ2IndexData: LBE1D: .byte $C4 LBE1E: .byte $B0 ;3/32 seconds + LBE1F: .byte $3E ;G3 | Repeat 4 times LBE20: .byte $30 ;C3 + LBE21: .byte $FF ; LBE22: .byte $C4 ; LBE23: .byte $42 ;A4 + Repeat 4 times LBE24: .byte $30 ;C3 + LBE25: .byte $FF ; LBE26: .byte $C4 ; LBE27: .byte $3A ;F3 + Repeat 4 times LBE28: .byte $2C ;A#3 + LBE29: .byte $FF ; LBE2A: .byte $C4 ; LBE2B: .byte $38 ;E3 + Repeat 4 times LBE2C: .byte $26 ;G2 + LBE2D: .byte $FF ; LBE2E: .byte $C4 ; LBE2F: .byte $34 ;D3 + Repeat 4 times LBE30: .byte $20 ;E2 + LBE31: .byte $FF ; LBE32: .byte $E0 ; LBE33: .byte $34 ;D3 + Repeat 32 times LBE34: .byte $24 ;F#2 + LBE35: .byte $FF ; FadeInTriangleIndexData: LBE36: .byte $B3 ;3/4 seconds LBE37: .byte $36 ;D#3 LBE38: .byte $34 ;D3 LBE39: .byte $30 ;C3 LBE3A: .byte $2A ;A3 LBE3B: .byte $B4 ;1 1/2 seconds LBE3C: .byte $1C ;D2 LBE3D: .byte $1C ;D2 FadeInSQ1IndexData: LBE3E: .byte $B3 ;3/4 seconds LBE3F: .byte $34 ;D3 LBE40: .byte $3A ;F3 LBE41: .byte $34 ;D3 LBE42: .byte $30 ;C3 LBE43: .byte $B4 ;1 1/2 seconds LBE44: .byte $2A ;A3 LBE45: .byte $2A ;A3 LBE46: .byte $00 ;End fade in music. TourianSQ2IndexData: LBE47: .byte $B4 ;1 1/2 seconds LBE48: .byte $12 ;A2 LBE49: .byte $B3 ;3/4 seconds LBE4A: .byte $10 ;Ab1 LBE4B: .byte $18 ;C2 LBE4C: .byte $16 ;B2 LBE4D: .byte $0A ;F1 LBE4E: .byte $B4 ;1 1/2 seconds LBE4F: .byte $14 ;A#2 LBE50: .byte $12 ;A2 LBE51: .byte $B3 ;3/4 seconds LBE52: .byte $10 ;Ab1 LBE53: .byte $06 ;D1 LBE54: .byte $0E ;G1 LBE55: .byte $04 ;C#1 LBE56: .byte $B4 ;1 1/2 seconds LBE57: .byte $0C ;F#1 LBE58: .byte $00 ;End Tourian music. TourianSQ1IndexData: LBE59: .byte $E0 ; LBE5A: .byte $B0 ;3/32 seconds + LBE5B: .byte $54 ;F#4 | LBE5C: .byte $4E ;D#4 | LBE5D: .byte $48 ;C4 | Repeat 32 times LBE5E: .byte $42 ;A4 | LBE5F: .byte $48 ;C4 | LBE60: .byte $4E ;D#4 + LBE61: .byte $FF ; TourianTriangleIndexData: LBE62: .byte $E0 ; LBE63: .byte $B3 ;3/4 seconds + LBE64: .byte $02 ;No sound | LBE65: .byte $B0 ;3/32 seconds | LBE66: .byte $3C ;F#3 | LBE67: .byte $40 ;Ab3 | LBE68: .byte $44 ;A#4 | LBE69: .byte $4A ;C#4 | LBE6A: .byte $4E ;D#4 | LBE6B: .byte $54 ;F#4 | LBE6C: .byte $58 ;Ab4 | Repeat 32 times LBE6D: .byte $5C ;A#5 | LBE6E: .byte $62 ;C#5 | LBE6F: .byte $66 ;D#5 | LBE70: .byte $6C ;F#5 | LBE71: .byte $70 ;Ab5 | LBE72: .byte $74 ;A#6 | LBE73: .byte $7A ;C#6 | LBE74: .byte $B3 ;3/4 seconds | LBE75: .byte $02 ;No sound + LBE76: .byte $FF ;The following table contains the musical notes used by the music player. The first byte is ;the period high information(3 bits) and the second byte is the period low information(8 bits). ;The formula for figuring out the frequency is as follows: 1790000/16/(hhhllllllll + 1) MusicNotesTbl: LBE77: .byte $07 ;55.0Hz (A1) Index #$00 (Not used) LBE78: .byte $F0 ; LBE79: .byte $00 ;No sound Index #$02 LBE7A: .byte $00 ; LBE7B: .byte $06 ;69.3Hz (C#2) Index #$04 LBE7C: .byte $4E ; LBE7D: .byte $05 ;73.4Hz (D2) Index #$06 LBE7E: .byte $F3 ; LBE7F: .byte $05 ;82.4Hz (E2) Index #$08 LBE80: .byte $4D ; LBE81: .byte $05 ;87.3Hz (F2) Index #$0A LBE82: .byte $01 ; LBE83: .byte $04 ;92.5Hz (F#2) Index #$0C LBE84: .byte $B9 ; LBE85: .byte $04 ;98.0Hz (G2) Index #$0E LBE86: .byte $75 ; LBE87: .byte $04 ;103.8Hz (Ab2) Index #$10 LBE88: .byte $35 ; LBE89: .byte $03 ;110.0Hz (A2) Index #$12 LBE8A: .byte $F8 ; LBE8B: .byte $03 ;116.5Hz (A#2) Index #$14 LBE8C: .byte $BF ; LBE8D: .byte $03 ;123.5Hz (B2) Index #$16 LBE8E: .byte $89 ; LBE8F: .byte $03 ;130.7Hz (C3) Index #$18 LBE90: .byte $57 ; LBE91: .byte $03 ;138.5Hz (C#3) Index #$1A LBE92: .byte $27 ; LBE93: .byte $02 ;146.8Hz (D3) Index #$1C LBE94: .byte $F9 ; LBE95: .byte $02 ;155.4Hz (D#3) Index #$1E LBE96: .byte $CF ; LBE97: .byte $02 ;164.8Hz (E3) Index #$20 LBE98: .byte $A6 ; LBE99: .byte $02 ;174.5Hz (F3) Index #$22 LBE9A: .byte $80 ; LBE9B: .byte $02 ;184.9Hz (F#3) Index #$24 LBE9C: .byte $5C ; LBE9D: .byte $02 ;196.0Hz (G3) Index #$26 LBE9E: .byte $3A ; LBE9F: .byte $02 ;207.6Hz (Ab3) Index #$28 LBEA0: .byte $1A ; LBEA1: .byte $01 ;219.8Hz (A3) Index #$2A LBEA2: .byte $FC ; LBEA3: .byte $01 ;233.1Hz (A#3) Index #$2C LBEA4: .byte $DF ; LBEA5: .byte $01 ;247.0Hz (B3) Index #$2E LBEA6: .byte $C4 ; LBEA7: .byte $01 ;261.4Hz (C4) Index #$30 LBEA8: .byte $AB ; LBEA9: .byte $01 ;276.9Hz (C#4) Index #$32 LBEAA: .byte $93 ; LBEAB: .byte $01 ;293.6Hz (D4) Index #$34 LBEAC: .byte $7C ; LBEAD: .byte $01 ;310.8Hz (D#4) Index #$36 LBEAE: .byte $67 ; LBEAF: .byte $01 ;330.0Hz (E4) Index #$38 LBEB0: .byte $52 ; LBEB1: .byte $01 ;349.6Hz (F4) Index #$3A LBEB2: .byte $3F ; LBEB3: .byte $01 ;370.4Hz (F#4) Index #$3C LBEB4: .byte $2D ; LBEB5: .byte $01 ;392.5Hz (G4) Index #$3E LBEB6: .byte $1C ; LBEB7: .byte $01 ;415.9Hz (Ab4) Index #$40 LBEB8: .byte $0C ; LBEB9: .byte $00 ;440.4Hz (A4) Index #$42 LBEBA: .byte $FD ; LBEBB: .byte $00 ;468.1Hz (A#4) Index #$44 LBEBC: .byte $EE ; LBEBD: .byte $00 ;495.0Hz (B4) Index #$46 LBEBE: .byte $E1 ; LBEBF: .byte $00 ;525.2Hz (C5) Index #$48 LBEC0: .byte $D4 ; LBEC1: .byte $00 ;556.6Hz (C#5) Index #$4A LBEC2: .byte $C8 ; LBEC3: .byte $00 ;588.8Hz (D5) Index #$4C LBEC4: .byte $BD ; LBEC5: .byte $00 ;625.0Hz (D#5) Index #$4E LBEC6: .byte $B2 ; LBEC7: .byte $00 ;662.0Hz (E5) Index #$50 LBEC8: .byte $A8 ; LBEC9: .byte $00 ;699.2Hz (F5) Index #$52 LBECA: .byte $9F ; LBECB: .byte $00 ;740.9Hz (F#5) Index #$54 LBECC: .byte $96 ; LBECD: .byte $00 ;787.9Hz (G5) Index #$56 LBECE: .byte $8D ; LBECF: .byte $00 ;834.9Hz (Ab5) Index #$58 LBED0: .byte $85 ; LBED1: .byte $00 ;880.9HZ (A5) Index #$5A LBED2: .byte $7E ; LBED3: .byte $00 ;940.1Hz (A#5) Index #$5C LBED4: .byte $76 ; LBED5: .byte $00 ;990.0Hz (B5) Index #$5E LBED6: .byte $70 ; LBED7: .byte $00 ;1055Hz (C6) Index #$60 LBED8: .byte $69 ; LBED9: .byte $00 ;1118Hz (C#6) Index #$62 LBEDA: .byte $63 ; LBEDB: .byte $00 ;1178Hz (D6) Index #$64 LBEDC: .byte $5E ; LBEDD: .byte $00 ;1257Hz (D#6) Index #$66 LBEDE: .byte $58 ; LBEDF: .byte $00 ;1332Hz (E6) Index #$68 LBEE0: .byte $53 ; LBEE1: .byte $00 ;1398Hz (F6) Index #$6A LBEE2: .byte $4F ; LBEE3: .byte $00 ;1492Hz (F#6) Index #$6C LBEE4: .byte $4A ; LBEE5: .byte $00 ;1576Hz (G6) Index #$6E LBEE6: .byte $46 ; LBEE7: .byte $00 ;1670Hz (Ab6) Index #$70 LBEE8: .byte $42 ; LBEE9: .byte $00 ;1776Hz (A6) Index #$72 LBEEA: .byte $3E ; LBEEB: .byte $00 ;1896Hz (A#6) Index #$74 LBEEC: .byte $3A ; LBEED: .byte $00 ;1998Hz (B6) Index #$76 LBEEE: .byte $37 ; LBEEF: .byte $00 ;2111Hz (C7) Index #$78 LBEF0: .byte $34 ; LBEF1: .byte $00 ;2238Hz (C#7) Index #$7A LBEF2: .byte $31 ; LBEF3: .byte $00 ;2380Hz (D7) Index #$7C LBEF4: .byte $2E ; LBEF5: .byte $00 ;2796Hz (F7) Index #$7E LBEF6: .byte $27 ; ;The following tables are used to load the music frame count addresses ($0640 thru $0643). The ;larger the number, the longer the music will play a solid note. The number represents how ;many frames the note will play. There is a small discrepancy in time length because the ;Nintendo runs at 60 frames pers second and I am using 64 frames per second to make the ;numbers below divide more evenly. ;Used by power up music and Kraid area music. NoteLengths0Tbl: LBEF7: .byte $04 ;About 1/16 seconds ($B0) LBEF8: .byte $08 ;About 1/8 seconds ($B1) LBEF9: .byte $10 ;About 1/4 seconds ($B2) LBEFA: .byte $20 ;About 1/2 seconds ($B3) LBEFB: .byte $40 ;About 1 seconds ($B4) LBEFC: .byte $18 ;About 3/8 seconds ($B5) LBEFD: .byte $30 ;About 3/4 seconds ($B6) LBEFE: .byte $0C ;About 3/16 seconds ($B7) LBEFF: .byte $0B ;About 11/64 seconds ($B8) LBF00: .byte $05 ;About 5/64 seconds ($B9) LBF01: .byte $02 ;About 1/32 seconds ($BA) ;Used by item room, fade in, Brinstar music, Ridley area music, Mother brain music, ;escape music, Norfair music and Tourian music. NoteLengths1Tbl: LBF02: .byte $06 ;About 3/32 seconds ($B0) LBF03: .byte $0C ;About 3/16 seconds ($B1) LBF04: .byte $18 ;About 3/8 seconds ($B2) LBF05: .byte $30 ;About 3/4 seconds ($B3) LBF06: .byte $60 ;About 1 1/2 seconds ($B4) LBF07: .byte $24 ;About 9/16 seconds ($B5) LBF08: .byte $48 ;About 1 3/16 seconds ($B6) LBF09: .byte $12 ;About 9/32 seconds ($B7) LBF0A: .byte $10 ;About 1/4 seconds ($B8) LBF0B: .byte $08 ;About 1/8 seconds ($B9) LBF0C: .byte $03 ;About 3/64 seconds ($BA) ;Used by intro and end game music. NoteLengths2Tbl: LBF0D: .byte $10 ;About 1/4 seconds ($B0) LBF0E: .byte $07 ;About 7/64 seconds ($B1) LBF0F: .byte $0E ;About 7/32 seconds ($B2) LBF10: .byte $1C ;About 7/16 seconds ($B3) LBF11: .byte $38 ;About 7/8 seconds ($B4) LBF12: .byte $70 ;About 1 13/16 seconds ($B5) LBF13: .byte $2A ;About 21/32 seconds ($B6) LBF14: .byte $54 ;About 1 5/16 seconds ($B7) LBF15: .byte $15 ;About 21/64 seconds ($B8) LBF16: .byte $12 ;About 9/32 seconds ($B9) LBF17: .byte $02 ;About 1/32 seconds ($BA) LBF18: .byte $03 ;About 3/64 seconds ($BB) InitializeMusic: LBF19: JSR CheckMusicFlags ;($B3FC)Check to see if restarting current music. LBF1C: LDA CurrentSFXFlags ;Load current SFX flags and store CurrentMusic address. LBF1F: STA CurrentMusic ; LBF22: LDA MusicInitIndex ; LBF25: TAY ; LBF26: LDA InitMusicIndexTbl,Y ;($BBFA)Find index for music in InitMusicInitIndexTbl. LBF29: TAY ; LBF2A: LDX #$00 ; LBF2C:* LDA InitMusicTbl,Y ;Base is $BD31. LBF2F: STA NoteLengthTblOffset,X ; LBF32: INY ;The following loop repeats 13 times to--> LBF33: INX ;load the initial music addresses --> LBF34: TXA ;(registers $062B thru $0637). LBF35: CMP #$0D ; LBF37: BNE - ; LBF39: LDA #$01 ;Resets addresses $0640 thru $0643 to #$01.--> LBF3B: STA SQ1MusicFrameCount ;These addresses are used for counting the--> LBF3E: STA SQ2MusicFrameCount ;number of frames music channels have been playing. LBF41: STA TriangleMusicFrameCount ; LBF44: STA NoiseMusicFrameCount ; LBF47: LDA #$00 ; LBF49: STA SQ1MusicIndexIndex ; LBF4C: STA SQ2MusicIndexIndex ;Resets addresses $0638 thru $063B to #$00.--> LBF4F: STA TriangleMusicIndexIndex ;These are the index to find sound channel data index. LBF52: STA NoiseMusicIndexIndex ; LBF55: RTS ; ;Not used. LBF56: .byte $10, $07, $0E, $1C, $38, $70, $2A, $54, $15, $12, $02, $03, $20, $2C, $B4, $AD LBF66: .byte $4D, $06, $8D, $8D, $06, $AD, $5E, $06, $A8, $B9, $2A, $BC, $A8, $A2, $00, $B9 LBF76: .byte $61, $BD, $9D, $2B, $06, $C8, $E8, $8A, $C9, $0D, $D0, $F3, $A9, $01, $8D, $40 LBF86: .byte $06, $8D, $41, $06, $8D, $42, $06, $8D, $43, $06, $A9, $00, $8D, $38, $06, $8D LBF96: .byte $39, $06, $8D, $3A, $06, $8D, $3B, $06, $60, $FF, $00, $00, $00, $00, $00, $00 LBFA6: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ;----------------------------------------------[ RESET ]-------------------------------------------- RESET: LBFB0: SEI ;Disables interrupt. LBFB1: CLD ;Sets processor to binary mode. LBFB2: LDX #$00 ; LBFB4: STX PPUControl0 ;Clear PPU control registers. LBFB7: STX PPUControl1 ; LBFBA:* LDA PPUStatus ; LBFBD: BPL - ;Wait for VBlank. LBFBF:* LDA PPUStatus ; LBFC2: BPL - ; LBFC4: ORA #$FF ; LBFC6: STA MMC1Reg0 ;Reset MMC1 chip.--> LBFC9: STA MMC1Reg1 ;(MSB is set). LBFCC: STA MMC1Reg2 ; LBFCF: STA MMC1Reg3 ; LBFD2: JMP Startup ;($C01A)Does preliminry housekeeping. ;Not used. LBFD5: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00 LBFE5: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 LBFF5: .byte $00, $00, $00, $00, $00 ;----------------------------------------[ Interrupt vectors ]-------------------------------------- LBFFA: .word NMI ;($C0D9)NMI vector. LBFFC: .word RESET ;($FFB0)Reset vector. LBFFE: .word RESET ;($FFB0)IRQ vector.
metroid/disassembly/ridley_page.1429571524.txt.gz · Last modified: 2015/04/20 23:12 (external edit)
