metroid:disassembly:norfair_page
This is an old revision of the document!
The Norfair bank contains code and data for Norfair.
; ------------------- ; 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 by YOSHi ;Can be reassembled using Ophis. ;Last updated: 3/9/2010 ;Hosted on wiki.metroidconstruction.com, with possible additions by wiki contributors. ;Norfair (memory page 2) .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 ]----------------------------------------- ;Norfair enemy tile patterns. L8D60: .byte $38, $7C, $A6, $FA, $BE, $FA, $6C, $38, $30, $6C, $06, $FA, $BA, $D2, $0C, $38 L8D70: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8D80: .byte $03, $FF, $1F, $3F, $3F, $7F, $7F, $FF, $00, $00, $04, $08, $00, $00, $00, $00 L8D90: .byte $C0, $F0, $FE, $FE, $FE, $FF, $BF, $2C, $00, $00, $0E, $1E, $1E, $1C, $38, $20 L8DA0: .byte $C0, $F0, $F8, $FC, $FE, $FF, $9F, $0C, $00, $00, $00, $00, $00, $00, $00, $00 L8DB0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8DC0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8DD0: .byte $00, $08, $10, $60, $80, $80, $00, $00, $04, $04, $06, $0E, $9C, $BC, $7C, $7C L8DE0: .byte $00, $0C, $02, $03, $1C, $29, $41, $08, $00, $00, $00, $00, $02, $05, $05, $04 L8DF0: .byte $00, $08, $10, $60, $80, $80, $00, $00, $04, $04, $06, $0E, $9C, $B8, $70, $70 L8E00: .byte $01, $2B, $0D, $27, $5B, $07, $5B, $2F, $01, $2B, $0D, $27, $5B, $07, $5B, $2F L8E10: .byte $00, $46, $69, $B8, $E4, $E8, $8C, $66, $00, $40, $60, $B8, $E4, $E0, $80, $06 L8E20: .byte $00, $00, $00, $02, $51, $0B, $2D, $1F, $00, $00, $00, $02, $51, $0B, $2D, $1F L8E30: .byte $20, $48, $62, $AC, $F9, $EF, $FA, $FF, $20, $48, $62, $AC, $F9, $EF, $FA, $FF L8E40: .byte $1C, $78, $FE, $FF, $E5, $CC, $C8, $40, $00, $00, $40, $40, $00, $80, $C8, $40 L8E50: .byte $3C, $7E, $FF, $3C, $DB, $E7, $5A, $3C, $00, $20, $00, $00, $C3, $E7, $42, $00 L8E60: .byte $00, $00, $00, $08, $5A, $A3, $DB, $5A, $00, $00, $00, $10, $24, $6E, $68, $04 L8E70: .byte $00, $00, $00, $00, $10, $28, $3E, $18, $00, $00, $00, $00, $08, $1C, $06, $08 L8E80: .byte $03, $01, $20, $0C, $1E, $7F, $3F, $0E, $00, $00, $20, $00, $00, $00, $08, $00 L8E90: .byte $08, $90, $F8, $E0, $60, $60, $60, $30, $00, $02, $02, $06, $0E, $0A, $03, $00 L8EA0: .byte $28, $B8, $FC, $DE, $5E, $4E, $60, $30, $20, $3A, $1E, $1E, $1E, $0E, $03, $00 L8EB0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8EC0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8ED0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FC, $F8, $F8, $F8, $B8, $7C, $DC, $3C L8EE0: .byte $18, $30, $24, $20, $22, $01, $00, $06, $06, $06, $03, $01, $01, $00, $00, $00 L8EF0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $E0, $F0, $F8, $F8, $B8, $7C, $DC, $3C L8F00: .byte $07, $0A, $01, $03, $04, $01, $00, $00, $07, $0A, $01, $03, $04, $01, $00, $00 L8F10: .byte $66, $8C, $E8, $E6, $FA, $55, $64, $1A, $06, $80, $E0, $E6, $FA, $45, $40, $02 L8F20: .byte $7E, $7D, $7D, $B0, $B6, $6B, $99, $24, $7E, $7C, $3C, $10, $30, $29, $99, $24 L8F30: .byte $7A, $BE, $BC, $08, $6C, $D2, $82, $04, $7A, $3E, $3C, $08, $08, $90, $80, $00 L8F40: .byte $3C, $F0, $98, $68, $90, $B0, $E0, $40, $00, $00, $00, $60, $F0, $F0, $E0, $40 L8F50: .byte $3C, $F0, $98, $68, $00, $00, $00, $00, $00, $00, $00, $60, $00, $00, $00, $00 L8F60: .byte $00, $00, $02, $0D, $06, $2A, $1B, $0F, $00, $00, $00, $00, $00, $03, $07, $1F L8F70: .byte $00, $00, $80, $20, $C0, $B0, $E8, $A0, $00, $00, $00, $00, $00, $C0, $C0, $90 L8F80: .byte $00, $00, $28, $5B, $FB, $BF, $7F, $2E, $00, $00, $00, $14, $2B, $3D, $1A, $04 L8F90: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8FA0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8FB0: .byte $09, $A7, $5F, $BF, $33, $ED, $76, $C9, $00, $00, $00, $00, $00, $6C, $46, $C0 L8FC0: .byte $00, $00, $0A, $1F, $33, $6D, $46, $C1, $00, $00, $00, $00, $00, $6C, $46, $C0 L8FD0: .byte $03, $5F, $3F, $B3, $FD, $7E, $DF, $37, $00, $50, $3A, $99, $74, $3E, $DC, $30 L8FE0: .byte $10, $10, $00, $00, $40, $00, $00, $40, $0B, $0D, $2F, $36, $3C, $18, $78, $30 L8FF0: .byte $40, $00, $00, $00, $00, $00, $00, $00, $34, $F8, $B8, $D0, $00, $00, $00, $00 L9000: .byte $00, $01, $71, $13, $FF, $3C, $F3, $2F, $03, $0E, $0C, $00, $00, $00, $00, $00 L9010: .byte $08, $07, $06, $0D, $1C, $1C, $0E, $06, $00, $00, $00, $00, $04, $00, $02, $00 L9020: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9030: .byte $9E, $7F, $3F, $07, $4E, $3D, $03, $0A, $F0, $68, $30, $3C, $5A, $3F, $07, $0B L9040: .byte $12, $04, $2F, $2F, $3F, $3F, $5F, $2F, $13, $0F, $3D, $3E, $34, $78, $70, $68 L9050: .byte $00, $80, $60, $F0, $E8, $F8, $F0, $FC, $C0, $70, $98, $0C, $14, $06, $0E, $02 L9060: .byte $37, $3F, $4A, $B6, $7F, $25, $58, $00, $0F, $0F, $1E, $1D, $00, $00, $00, $00 L9070: .byte $C8, $F0, $C0, $D0, $40, $00, $00, $00, $E0, $C0, $A0, $00, $80, $00, $00, $00 L9080: .byte $00, $00, $14, $1A, $5F, $BD, $FE, $74, $00, $00, $00, $28, $54, $BC, $58, $20 L9090: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L90A0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L90B0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L90C0: .byte $03, $0F, $17, $3B, $9D, $6A, $1F, $07, $00, $00, $12, $09, $54, $26, $0C, $00 L90D0: .byte $E0, $F0, $E4, $CE, $D1, $C0, $A6, $30, $00, $00, $08, $10, $00, $0E, $1F, $41 L90E0: .byte $00, $00, $40, $00, $00, $10, $00, $00, $10, $71, $32, $3A, $18, $0C, $0F, $03 L90F0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $C0, $20, $20, $20, $60, $C0, $80 L9100: .byte $08, $27, $7C, $F3, $C7, $87, $05, $02, $04, $00, $00, $13, $42, $05, $05, $02 L9110: .byte $08, $27, $7C, $F1, $C3, $81, $00, $00, $04, $00, $00, $11, $43, $01, $00, $00 L9120: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9130: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9140: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00 L9150: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ;Tourian enemy tile patterns. L9160: .byte $00, $00, $00, $00, $00, $00, $00, $01, $00, $00, $00, $00, $01, $03, $06, $0D L9170: .byte $00, $00, $00, $00, $00, $00, $98, $64, $00, $00, $00, $7E, $C3, $00, $00, $00 L9180: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $80, $C0, $60, $30 L9190: .byte $00, $00, $00, $00, $00, $02, $06, $0C, $00, $00, $03, $04, $08, $12, $16, $2C L91A0: .byte $00, $00, $00, $00, $80, $78, $04, $04, $00, $FF, $00, $00, $00, $00, $00, $00 L91B0: .byte $00, $00, $00, $00, $00, $00, $10, $20, $00, $00, $C0, $20, $10, $08, $04, $04 L91C0: .byte $00, $15, $0F, $05, $3F, $2F, $7E, $3D, $00, $00, $00, $00, $01, $07, $06, $0D L91D0: .byte $03, $07, $17, $13, $0F, $1F, $1D, $1F, $01, $04, $03, $03, $07, $06, $05, $1D L91E0: .byte $E0, $A0, $B0, $18, $0F, $00, $00, $00, $A0, $00, $80, $10, $02, $00, $00, $00 L91F0: .byte $00, $00, $00, $00, $80, $00, $00, $00, $7F, $7F, $7F, $7F, $FF, $3F, $3F, $3F L9200: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9210: .byte $F0, $20, $40, $80, $80, $C0, $70, $10, $A0, $00, $00, $00, $87, $1F, $2E, $EF L9220: .byte $00, $00, $10, $30, $60, $60, $F0, $60, $00, $00, $10, $30, $E0, $68, $F4, $66 L9230: .byte $00, $00, $0C, $06, $03, $00, $10, $30, $2C, $27, $3D, $56, $5B, $CC, $D7, $F0 L9240: .byte $00, $00, $00, $03, $1E, $0C, $08, $00, $00, $00, $00, $03, $9E, $EC, $F8, $F0 L9250: .byte $00, $00, $00, $07, $0F, $1F, $1E, $1C, $00, $00, $00, $00, $03, $04, $08, $08 L9260: .byte $03, $02, $04, $0A, $09, $13, $03, $01, $1B, $1A, $30, $30, $60, $60, $60, $78 L9270: .byte $18, $3C, $3C, $3C, $DB, $E7, $E7, $E7, $00, $00, $00, $18, $00, $00, $81, $00 L9280: .byte $40, $80, $80, $40, $88, $D0, $C0, $80, $10, $18, $0C, $0C, $06, $06, $06, $1E L9290: .byte $08, $00, $00, $00, $0D, $33, $03, $01, $28, $40, $40, $40, $80, $81, $81, $F0 L92A0: .byte $18, $3C, $3C, $3C, $DB, $E7, $E7, $E7, $00, $18, $3C, $18, $81, $C3, $E7, $C3 L92B0: .byte $20, $20, $40, $4C, $90, $C0, $C0, $80, $02, $02, $02, $01, $01, $81, $81, $0F L92C0: .byte $3F, $5E, $5B, $3B, $37, $0B, $01, $00, $0F, $0E, $03, $09, $01, $00, $00, $00 L92D0: .byte $1F, $0B, $0F, $1C, $06, $0F, $07, $02, $07, $03, $07, $00, $02, $01, $00, $00 L92E0: .byte $00, $00, $E0, $70, $20, $00, $00, $00, $03, $07, $E7, $7F, $2F, $1F, $1F, $1F L92F0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $F1, $FE, $FF, $FF, $FF, $FF, $FF, $FF L9300: .byte $80, $C0, $60, $70, $78, $38, $30, $00, $80, $C0, $60, $76, $7B, $3B, $77, $47 L9310: .byte $18, $08, $08, $1C, $08, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9320: .byte $00, $00, $00, $00, $00, $00, $00, $00, $8F, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9330: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $F0, $FE, $FF, $FF, $FF, $FF L9340: .byte $00, $00, $00, $00, $00, $00, $00, $00, $F8, $F8, $F4, $FC, $FE, $FE, $FA, $FE L9350: .byte $00, $00, $00, $01, $07, $0E, $0C, $18, $00, $00, $00, $00, $03, $04, $08, $08 L9360: .byte $00, $30, $38, $38, $30, $10, $08, $00, $4E, $03, $00, $20, $20, $10, $08, $00 L9370: .byte $C3, $00, $00, $00, $81, $C3, $C3, $66, $00, $C3, $FF, $3C, $99, $C3, $C3, $66 L9380: .byte $00, $0C, $1C, $1C, $0C, $08, $10, $00, $72, $C0, $00, $04, $04, $08, $10, $00 L9390: .byte $00, $30, $38, $38, $31, $11, $09, $00, $8C, $87, $41, $20, $21, $11, $09, $00 L93A0: .byte $C3, $00, $00, $00, $00, $81, $00, $81, $00, $00, $C3, $7E, $3C, $99, $00, $81 L93B0: .byte $00, $0C, $1C, $1C, $8C, $88, $90, $00, $31, $E1, $82, $04, $84, $88, $90, $00 L93C0: .byte $4A, $BE, $7A, $34, $58, $3C, $3C, $14, $08, $1C, $38, $34, $18, $18, $18, $14 L93D0: .byte $18, $18, $18, $10, $18, $18, $10, $10, $18, $18, $18, $10, $18, $18, $10, $10 L93E0: .byte $00, $00, $03, $07, $01, $00, $00, $80, $1F, $1F, $1F, $1F, $1F, $1F, $0F, $8F L93F0: .byte $00, $C0, $E0, $E0, $C2, $03, $01, $41, $FF, $DF, $EF, $EF, $CD, $1C, $FE, $FE L9400: .byte $00, $10, $10, $18, $10, $10, $10, $00, $00, $08, $08, $18, $08, $08, $08, $00 L9410: .byte $00, $00, $00, $10, $1C, $0C, $07, $02, $00, $00, $00, $08, $0C, $0A, $01, $02 L9420: .byte $00, $00, $00, $3E, $08, $00, $00, $00, $00, $00, $00, $08, $3E, $00, $00, $00 L9430: .byte $3C, $7E, $FF, $FF, $FF, $FF, $7E, $3C, $00, $20, $40, $00, $00, $00, $00, $00 L9440: .byte $00, $00, $00, $00, $00, $00, $00, $00, $DE, $FE, $FC, $FC, $FC, $F8, $F8, $F8 L9450: .byte $00, $00, $00, $00, $01, $04, $00, $08, $00, $00, $00, $00, $01, $04, $00, $08 L9460: .byte $00, $3D, $4A, $81, $4A, $3D, $00, $00, $00, $3D, $7A, $FF, $7A, $3D, $00, $00 L9470: .byte $05, $18, $39, $66, $46, $4C, $78, $00, $05, $1A, $3D, $7E, $7E, $7C, $78, $00 L9480: .byte $15, $0A, $11, $1B, $11, $11, $0A, $04, $15, $0E, $15, $1F, $1F, $1F, $0E, $04 L9490: .byte $00, $00, $00, $18, $3C, $10, $0A, $00, $81, $4A, $28, $3C, $FD, $34, $4A, $89 L94A0: .byte $00, $00, $30, $4A, $68, $1D, $20, $08, $00, $00, $30, $7A, $78, $15, $22, $08 L94B0: .byte $00, $10, $00, $00, $0C, $12, $00, $00, $3C, $DF, $E6, $BD, $DF, $DF, $72, $1C L94C0: .byte $34, $18, $18, $30, $14, $00, $08, $00, $10, $18, $00, $10, $00, $00, $08, $00 L94D0: .byte $18, $10, $10, $10, $00, $10, $00, $10, $18, $10, $10, $10, $00, $10, $00, $10 L94E0: .byte $80, $80, $C0, $70, $59, $CF, $80, $80, $8F, $05, $43, $13, $41, $04, $80, $80 L94F0: .byte $E1, $41, $41, $C2, $83, $03, $03, $04, $BD, $9C, $9E, $1E, $3D, $7C, $B8, $2C L9500: .byte $00, $42, $3C, $3C, $3C, $3C, $42, $00, $00, $00, $18, $24, $24, $18, $00, $00 L9510: .byte $10, $52, $24, $03, $C0, $24, $4A, $08, $34, $5E, $E5, $43, $C2, $A7, $7A, $2C 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 ;($A178) L9562: .word Palette01 ;($A19C) L9564: .word Palette02 ;($A1A8) L9566: .word Palette03 ;($A1A2) L9568: .word Palette04 ;($A1AE) L956A: .word Palette05 ;($A1B4) L956C: .word Palette06 ;($A1D7) L956E: .word Palette06 ;($A1D7) L9570: .word Palette06 ;($A1D7) L9572: .word Palette06 ;($A1D7) L9574: .word Palette06 ;($A1D7) L9576: .word Palette06 ;($A1D7) L9578: .word Palette06 ;($A1D7) L957A: .word Palette06 ;($A1D7) L957C: .word Palette06 ;($A1D7) L957E: .word Palette06 ;($A1D7) L9580: .word Palette06 ;($A1D7) L9582: .word Palette06 ;($A1D7) L9584: .word Palette06 ;($A1D7) L9586: .word Palette06 ;($A1D7) L9588: .word Palette07 ;($A1DE) L958A: .word Palette08 ;($A1E5) L958C: .word Palette09 ;($A1EC) L958E: .word Palette0A ;($A1F3) L9590: .word Palette0B ;($A1FB) L9592: .word Palette0C ;($A203) L9594: .word Palette0D ;($A20B) L9596: .word Palette0E ;($A213) AreaPointers: L9598: .word SpecItmsTbl ;($A2D9)Beginning of special items table. L959A: .word RmPtrTbl ;($A21B)Beginning of room pointer table. L959C: .word StrctPtrTbl ;($A277)Beginning of structure pointer table. L959E: .word MacroDefs ;($AEEC)Beginning of macro definitions. L95A0: .word EnemyFramePtrTbl1 ;($9C64)Address table into enemy animation data. Two--> L95A2: .word EnemyFramePtrTbl2 ;($9D64)tables needed to accommodate all entries. L95A4: .word EnemyPlacePtrTbl ;($9D78)Pointers to enemy frame placement data. L95A6: .word EnemyAnimIndexTbl ;($9BDA)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 L95C3: JMP $9B9D ;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 $FF ;Not used. L95CD: .byte $08 ;Norfair music init flag. L95CE: .byte $00 ;Base damage caused by area enemies to lower health byte. L95CF: .byte $01 ;Base damage caused by area enemies to upper health byte. ;Special room numbers(used to start item room music). L95D0: .byte $10, $05, $27, $04, $0F, $FF, $FF L95D7: .byte $16 ;Samus start x coord on world map. L95D8: .byte $0D ;Samus start y coord on world map. L95D9: .byte $6E ;Samus start verticle screen position. L95DA: .byte $01, $00, $03, $77, $53, $57, $55, $59, $5B, $4F, $32 L95E5: LDA $6B02,X L95E8: JSR $8024 L95EB: .word $98D3 L95ED: .word $9908 L95EF: .word $98C0 L95F1: .word $9833 L95F3: .word $9833 L95F5: .word $9833 L95F7: .word $9996 L95F9: .word $9850 L95FB: .word $9833 L95FD: .word $9833 L95FF: .word $9833 L9601: .word $9A64 L9603: .word $9AD6 L9605: .word $9AE9 L9607: .word $9B64 L9609: .word $9833 L960B: .byte $28, $28, $28, $28, $30, $30, $00, $00, $00, $00, $00, $00, $75, $75, $84, $82 L961B: .byte $00, $00, $11, $11, $13, $18, $35, $35, $41, $41, $4B, $4B, $00, $00, $00, $00 L962B: .byte $08, $08, $FF, $01, $01, $01, $02, $01, $01, $20, $FF, $FF, $08, $06, $FF, $00 L963B: .byte $22, $22, $22, $22, $2A, $2D, $00, $00, $00, $00, $00, $00, $69, $69, $88, $86 L964B: .byte $00, $00, $05, $08, $13, $18, $20, $20, $3C, $37, $43, $47, $00, $00, $00, $00 L965B: .byte $25, $25, $25, $25, $2A, $2D, $00, $00, $00, $00, $00, $00, $69, $69, $7F, $7C L966B: .byte $00, $00, $05, $08, $13, $18, $1D, $1D, $3C, $37, $43, $47, $00, $00, $00, $00 L967B: .byte $00, $00, $80, $82, $00, $00, $00, $00, $80, $00, $00, $00, $82, $00, $00, $00 L968B: .byte $89, $89, $00, $42, $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, $8C, $00, $00 L96BB: .byte $10, $01, $01, $01, $10, $10, $01, $08, $09, $10, $01, $10, $01, $20, $00, $00 L96CB: .byte $12, $14, $00, $00, $00, $00, $02, $02, $00, $04, $06, $09, $0E, $10, $12, $00 L96DB: .word $97E7, $97E7, $97E7, $97E7, $97E7, $97EA, $97ED, $97ED L96EB: .word $97ED, $97ED, $97ED, $97ED, $97ED, $97ED, $97ED, $97ED L96FB: .word $97ED, $97ED, $97ED, $97ED, $97ED, $97ED, $97ED, $97ED L970B: .word $97ED, $97ED, $97ED, $97ED, $97ED, $97ED, $97ED, $97ED L971B: .word $97ED, $97ED, $97ED, $97ED L9723: .byte $00, $00, $00, $00, $00, $00, $00, $00, $80, $80, $00, $00, $00, $00, $00, $00 L9733: .byte $00, $00, $E0, $16, $15, $7F, $7F, $7F, $00, $00, $00, $00, $00, $00, $00, $00 L9743: .byte $00, $00, $38, $38, $C8, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9753: .byte $0C, $0C, $02, $01, $00, $00, $01, $01, $01, $FC, $06, $FE, $FE, $F8, $F9, $FB L9763: .byte $FD, $00, $00, $00, $00, $02, $01, $01, $00, $00, $FA, $FC, $06, $00, $01, $01 L9773: .byte $01, $00, $01, $01, $03, $00, $00, $00 L977B: .byte $4C, $4C, $01, $00, $00, $00, $00, $40, $00, $64, $44, $44, $40, $00, $00, $00 L978B: .byte $00, $00, $00, $00, $4D, $4D, $53, $57, $00, $00, $00, $00, $00, $00, $00, $00 L979B: .byte $08, $F8, $00, $00, $00, $00, $08, $F8, $00, $00, $00, $F8 L97A7: .word $97F7, $9806, $9815, $9824, $9B9E, $9BA3, $9BA8, $9BAD L97B7: .word $9BB2, $9BB7, $9BBC, $9BC1, $9BC6, $9BCB, $9BD0, $9BD5 L97C7: .word $9BDA, $9BDA, $9BDA, $9BDA, $9BDA L97D1: .byte $00, $02, $00, $09, $00, $0D, $01, $0E, $0F, $03, $00, $01, $02, $03, $00, $10 L97E1: .byte $00, $11, $00, $00, $00, $01 L97E7: .byte $01, $03, $FF L97EA: .byte $01, $0B, $FF L97ED: .byte $14, $90, $0A, $00, $FD, $30, $00, $14, $10, $FA L97F7: .byte $0A, $D3, $07, $B3, $07, $93, $07, $03, $07, $13, $07, $23, $50, $33, $FF L9806: .byte $09, $C2, $08, $A2, $07, $92, $07, $12, $08, $22, $09, $42, $50, $72, $FF L9815: .byte $07, $C2, $06, $A2, $05, $92, $05, $12, $06, $22, $07, $42, $50, $72, $FF L9824: .byte $05, $C2, $04, $A2, $03, $92, $03, $12, $04, $22, $05, $42, $50, $72, $FF L9833: LDA #$00 L9835: STA $6AF4,X L9838: RTS L9839: LDA $81 L983B: CMP #$01 L983D: BEQ $9848 L983F: CMP #$03 L9841: BEQ $984D L9843: LDA $00 L9845: JMP $8000 L9848: LDA $01 L984A: JMP $8003 L984D: JMP $8006 L9850: LDA $6AF4,X L9853: CMP #$02 L9855: BNE $988F L9857: LDA $0403,X L985A: BNE $988F L985C: LDA $6AFE,X L985F: BNE $9873 L9861: LDA $030D L9864: SEC L9865: SBC $0400,X L9868: CMP #$40 L986A: BCS $988F L986C: LDA #$7F L986E: STA $6AFE,X L9871: BNE $988F L9873: LDA $0402,X L9876: BMI $988F L9878: LDA #$00 L987A: STA $0402,X L987D: STA $0406,X L9880: STA $6AFE,X L9883: LDA $0405,X L9886: AND #$01 L9888: TAY L9889: LDA $98BE,Y L988C: STA $0403,X L988F: LDA $0405,X L9892: ASL L9893: BMI $98B3 L9895: LDA $6AF4,X L9898: CMP #$02 L989A: BNE $98B3 L989C: JSR $8036 L989F: PHA L98A0: JSR $8039 L98A3: STA $05 L98A5: PLA L98A6: STA $04 L98A8: JSR $9A42 L98AB: JSR $8027 L98AE: BCC $98B8 L98B0: JSR $9A52 L98B3: LDA #$03 L98B5: JMP $8003 L98B8: LDA #$00 L98BA: STA $6AF4,X L98BD: RTS L98BE: PHP L98BF: SED L98C0: LDA $6AF4,X L98C3: CMP #$03 L98C5: BEQ $98CA L98C7: JSR $801E L98CA: LDA #$03 L98CC: STA $00 L98CE: STA $01 L98D0: JMP $9839 L98D3: LDA #$03 L98D5: STA $00 L98D7: LDA #$08 L98D9: STA $01 L98DB: LDA $6AF4,X L98DE: CMP #$01 L98E0: BNE $98EE L98E2: LDA $0405,X L98E5: AND #$10 L98E7: BEQ $98EE L98E9: LDA #$01 L98EB: JSR $9954 L98EE: JSR $98F4 L98F1: JMP $9839 L98F4: LDA $6AF4,X L98F7: CMP #$02 L98F9: BNE $9907 L98FB: LDA #$25 L98FD: LDY $0402,X L9900: BPL $9904 L9902: LDA #$22 L9904: STA $6AF9,X L9907: RTS L9908: LDA $81 L990A: CMP #$01 L990C: BEQ $991E L990E: CMP #$03 L9910: BEQ $9951 L9912: LDA $6AF4,X L9915: CMP #$01 L9917: BNE $9923 L9919: LDA #$00 L991B: JSR $9954 L991E: LDA #$08 L9920: JMP $8003 L9923: LDA #$80 L9925: STA $6AFE,X L9928: LDA $0402,X L992B: BMI $9949 L992D: LDA $0405,X L9930: AND #$10 L9932: BEQ $9949 L9934: LDA $0400,X L9937: SEC L9938: SBC $030D L993B: BPL $9940 L993D: JSR $95C6 L9940: CMP #$10 L9942: BCS $9949 L9944: LDA #$00 L9946: STA $6AFE,X L9949: JSR $98F4 L994C: LDA #$03 L994E: JMP $8000 L9951: JMP $8006 L9954: STA $6B02,X L9957: LDA $040B,X L995A: PHA L995B: JSR $802A L995E: PLA L995F: STA $040B,X L9962: RTS L9963: JSR $801B L9966: LDA #$06 L9968: STA $00 L996A: JMP $9839 L996D: JSR $801B L9970: LDA #$06 L9972: STA $00 L9974: JMP $9839 L9977: JSR $801B L997A: LDA #$06 L997C: STA $00 L997E: LDA $81 L9980: CMP #$02 L9982: BNE $9993 L9984: CMP $6AF4,X L9987: BNE $9993 L9989: JSR $8009 L998C: AND #$03 L998E: BNE $9993 L9990: JMP $984D L9993: JMP $9839 L9996: JSR $8009 L9999: AND #$03 L999B: BEQ $99D1 L999D: LDA $81 L999F: CMP #$01 L99A1: BEQ $99D9 L99A3: CMP #$03 L99A5: BEQ $99D6 L99A7: LDA $6AF4,X L99AA: CMP #$03 L99AC: BEQ $99D1 L99AE: LDA $040A,X L99B1: AND #$03 L99B3: CMP #$01 L99B5: BNE $99C8 L99B7: LDY $0400,X L99BA: CPY #$EB L99BC: BNE $99C8 L99BE: JSR $9A0A L99C1: LDA #$03 L99C3: STA $040A,X L99C6: BNE $99CE L99C8: JSR $9A2F L99CB: JSR $99F5 L99CE: JSR $9A13 L99D1: LDA #$03 L99D3: JSR $800C L99D6: JMP $8006 L99D9: JMP $8003 L99DC: LDA $0405,X L99DF: LSR L99E0: LDA $040A,X L99E3: AND #$03 L99E5: ROL L99E6: TAY L99E7: LDA $99ED,Y L99EA: JMP $800F L99ED: .byte $69, $69, $72, $6C, $6F, $6F, $6C, $72 L99F5: LDX $4B L99F7: BCS $9A12 L99F9: LDA $00 L99FB: BNE $9A0A L99FD: LDY $040A,X L9A00: DEY L9A01: TYA L9A02: AND #$03 L9A04: STA $040A,X L9A07: JMP $99DC L9A0A: LDA $0405,X L9A0D: EOR #$01 L9A0F: STA $0405,X L9A12: RTS L9A13: JSR $9A27 L9A16: JSR $9A2F L9A19: LDX $4B L9A1B: BCC $9A26 L9A1D: JSR $9A27 L9A20: STA $040A,X L9A23: JSR $99DC L9A26: RTS L9A27: LDY $040A,X L9A2A: INY L9A2B: TYA L9A2C: AND #$03 L9A2E: RTS L9A2F: LDY $0405,X L9A32: STY $00 L9A34: LSR $00 L9A36: ROL L9A37: ASL L9A38: TAY L9A39: LDA $8049,Y L9A3C: PHA L9A3D: LDA $8048,Y L9A40: PHA L9A41: RTS L9A42: LDA $0400,X L9A45: STA $08 L9A47: LDA $0401,X L9A4A: STA $09 L9A4C: LDA $6AFB,X L9A4F: STA $0B L9A51: RTS L9A52: LDA $0B L9A54: AND #$01 L9A56: STA $6AFB,X L9A59: LDA $08 L9A5B: STA $0400,X L9A5E: LDA $09 L9A60: STA $0401,X L9A63: RTS L9A64: LDA $81 L9A66: CMP #$01 L9A68: BNE $9A88 L9A6A: LDA $6AF4,X L9A6D: CMP #$03 L9A6F: BEQ $9ACA L9A71: CMP #$02 L9A73: BNE $9A88 L9A75: LDY $0408,X L9A78: LDA $9AD2,Y L9A7B: STA $0402,X L9A7E: LDA #$40 L9A80: STA $6AFE,X L9A83: LDA #$00 L9A85: STA $0406,X L9A88: LDA $6AF4,X L9A8B: CMP #$03 L9A8D: BEQ $9ACA L9A8F: LDA $81 L9A91: CMP #$01 L9A93: BEQ $9ACA L9A95: CMP #$03 L9A97: BEQ $9ACF L9A99: JSR $8036 L9A9C: LDX $4B L9A9E: LDA #$00 L9AA0: STA $05 L9AA2: LDA #$1D L9AA4: LDY $00 L9AA6: STY $04 L9AA8: BMI $9AAC L9AAA: LDA #$20 L9AAC: STA $6AF9,X L9AAF: JSR $9A42 L9AB2: JSR $8027 L9AB5: LDA #$E8 L9AB7: BCC $9ABD L9AB9: CMP $08 L9ABB: BCS $9AC7 L9ABD: STA $08 L9ABF: LDA $0405,X L9AC2: ORA #$20 L9AC4: STA $0405,X L9AC7: JSR $9A52 L9ACA: LDA #$02 L9ACC: JMP $8003 L9ACF: JMP $8006 L9AD2: INC $F8,X L9AD4: INC $FA,X L9AD6: LDA $6AF4,X L9AD9: CMP #$02 L9ADB: BNE $9AE0 L9ADD: JSR $801E L9AE0: LDA #$02 L9AE2: STA $00 L9AE4: STA $01 L9AE6: JMP $9839 L9AE9: LDA $6AF4,X L9AEC: CMP #$01 L9AEE: BNE $9AF5 L9AF0: LDA #$E8 L9AF2: STA $0400,X L9AF5: CMP #$02 L9AF7: BNE $9B4F L9AF9: LDA $0406,X L9AFC: BEQ $9B4F L9AFE: LDA $6B01,X L9B01: BNE $9B4F L9B03: LDA $2D L9B05: AND #$1F L9B07: BNE $9B3C L9B09: LDA $2E L9B0B: AND #$03 L9B0D: BEQ $9B59 L9B0F: LDA #$02 L9B11: STA $87 L9B13: LDA #$00 L9B15: STA $88 L9B17: LDA #$43 L9B19: STA $83 L9B1B: LDA #$47 L9B1D: STA $84 L9B1F: LDA #$03 L9B21: STA $85 L9B23: JSR $8021 L9B26: LDA $0680 L9B29: ORA #$04 L9B2B: STA $0680 L9B2E: LDA $0405,X L9B31: AND #$01 L9B33: TAY L9B34: LDA $0083,Y L9B37: JSR $800F L9B3A: BEQ $9B59 L9B3C: CMP #$0F L9B3E: BCC $9B59 L9B40: LDA $0405,X L9B43: AND #$01 L9B45: TAY L9B46: LDA $9B62,Y L9B49: JSR $800F L9B4C: JMP $9B59 L9B4F: LDA $6AF4,X L9B52: CMP #$03 L9B54: BEQ $9B59 L9B56: JSR $801E L9B59: LDA #$01 L9B5B: STA $00 L9B5D: STA $01 L9B5F: JMP $9839 L9B62: EOR $49 L9B64: LDA #$00 L9B66: STA $6AF5,X L9B69: STA $6AF6,X L9B6C: LDA #$10 L9B6E: STA $0405,X L9B71: TXA L9B72: ASL L9B73: ASL L9B74: STA $00 L9B76: TXA L9B77: LSR L9B78: LSR L9B79: LSR L9B7A: LSR L9B7B: ADC $2D L9B7D: ADC $00 L9B7F: AND #$47 L9B81: BNE $9B9D L9B83: LSR $0405,X L9B86: LDA #$03 L9B88: STA $87 L9B8A: LDA $2E L9B8C: LSR L9B8D: ROL $0405,X L9B90: AND #$03 L9B92: BEQ $9B9D L9B94: STA $88 L9B96: LDA #$02 L9B98: STA $85 L9B9A: JMP $8021 L9B9D: RTS L9B9E: .byte $22, $FF, $FF, $FF, $FF L9BA3: .byte $22, $80, $81, $82, $83 L9BA8: .byte $22, $84, $85, $86, $87 L9BAD: .byte $22, $88, $89, $8A, $8B L9BB2: .byte $22, $8C, $8D, $8E, $8F L9BB7: .byte $22, $94, $95, $96, $97 L9BBC: .byte $22, $9C, $9D, $9D, $9C L9BC1: .byte $22, $9E, $9F, $9F, $9E L9BC6: .byte $22, $90, $91, $92, $93 L9BCB: .byte $22, $70, $71, $72, $73 L9BD0: .byte $22, $74, $75, $75, $74 L9BD5: .byte $22, $76, $76, $76, $76 ;-----------------------------------[ Enemy animation data tables ]---------------------------------- EnemyAnimIndexTbl: L9BDA: .byte $00, $01, $FF L9BDD: .byte $02, $FF L9BDF: .byte $03, $04, $FF L9BE2: .byte $07, $08, $FF L9BE5: .byte $05, $06, $FF L9BE8: .byte $09, $0A, $FF L9BEB: .byte $0B, $FF L9BED: .byte $0C, $0D, $0E, $0F, $FF L9BF2: .byte $10, $11, $12, $13, $FF L9BF7: .byte $15, $14, $FF L9BFA: .byte $16, $FF L9BFC: .byte $17, $18, $FF L9BFF: .byte $19, $1A, $FF L9C02: .byte $1B, $FF L9C04: .byte $1C, $1D, $FF L9C07: .byte $1E, $1F, $FF L9C0A: .byte $20, $FF L9C0C: .byte $21, $22, $FF L9C0F: .byte $23, $FF L9C11: .byte $27, $28, $29, $2A, $FF L9C16: .byte $2B, $2C, $2D, $2E, $FF L9C1B: .byte $2F, $FF L9C1D: .byte $30, $FF L9C1F: .byte $31, $FF L9C21: .byte $32, $FF L9C23: .byte $33, $FF L9C25: .byte $34, $FF L9C27: .byte $42, $FF L9C29: .byte $43, $44, $F7, $FF L9C2D: .byte $3B, $FF L9C2F: .byte $3C, $FF L9C31: .byte $3D, $FF, $3E, $FF L9C35: .byte $3F, $3F, $3F, $3F, $3F, $41, $41, $41, $41, $40, $40, $40, $F7, $FF L9C43: .byte $58, $59, $FF L9C46: .byte $5A, $5B, $FF L9C49: .byte $5C, $5D, $FF L9C4C: .byte $5E, $5F, $FF L9C4F: .byte $60, $FF L9C51: .byte $61, $F7, $62, $F7, $FF L9C56: .byte $66, $67, $FF L9C59: .byte $69, $6A, $FF L9C5C: .byte $68, $FF L9C5E: .byte $6B, $FF L9C60: .byte $66, $FF L9C62: .byte $69, $FF ;----------------------------[ Enemy sprite drawing pointer tables ]--------------------------------- EnemyFramePtrTbl1: L9C64: .word $9E0A, $9E0F, $9E14, $9E19, $9E2C, $9E40, $9E56, $9E6C L9C74: .word $9E7F, $9E93, $9EA9, $9EBF, $9EC9, $9ECE, $9ED3, $9ED8 L9C84: .word $9EDD, $9EE2, $9EE7, $9EEC, $9EF1, $9EFF, $9F0D, $9F1B L9C94: .word $9F2A, $9F39, $9F4A, $9F5B, $9F63, $9F69, $9F6F, $9F75 L9CA4: .word $9F7B, $9F81, $9F89, $9F91, $9F99, $9F99, $9F99, $9F99 L9CB4: .word $9FA5, $9FB3, $9FC1, $9FCF, $9FDB, $9FE9, $9FF7, $A005 L9CC4: .word $A010, $A01F, $A02E, $A03D, $A04C, $A059, $A059, $A059 L9CD4: .word $A059, $A059, $A059, $A059, $A061, $A069, $A071, $A079 L9CE4: .word $A081, $A089, $A093, $A098, $A0A0, $A0A8, $A0A8, $A0A8 L9CF4: .word $A0A8, $A0A8, $A0A8, $A0A8, $A0A8, $A0A8, $A0A8, $A0A8 L9D04: .word $A0A8, $A0A8, $A0A8, $A0A8, $A0A8, $A0A8, $A0A8, $A0A8 L9D14: .word $A0A8, $A0B4, $A0C0, $A0CC, $A0D8, $A0E4, $A0F0, $A0FC L9D24: .word $A108, $A110, $A11E, $A138, $A138, $A138, $A138, $A140 L9D34: .word $A148, $A150, $A158, $A160, $A168, $A168, $A168, $A168 L9D44: .word $A168, $A168, $A168, $A168, $A168, $A168, $A168, $A168 L9D54: .word $A168, $A168, $A168, $A168, $A168, $A168, $A168, $A168 EnemyFramePtrTbl2: L9D64: .word $A168, $A16E, $A173, $A173, $A173, $A173, $A173, $A173 L9D74: .word $A173, $A173 EnemyPlacePtrTbl: L9D78: .word $9D94, $9D96, $9DAE, $9DAE, $9DC0, $9DB2, $9DBC, $9DC4 L9D88: .word $9DD0, $9DD8, $9DD8, $9DF8, $9E06, $9E0A ;------------------------------[ Enemy sprite placement data tables ]-------------------------------- L9D94: .byte $FC, $FC L9D96: .byte $80, $80, $81, $81, $82, $82, $83, $83, $84, $84, $85, $85, $F4, $F8, $F4, $00 L9DA6: .byte $FC, $F8, $FC, $00, $04, $F8, $04, $00 L9DAE: .byte $F4, $F4, $F4, $04 L9DB2: .byte $F8, $F4, $F8, $FC, $F8, $04, $00, $F8, $00, $00 L9DBC: .byte $FC, $F8, $FC, $00 L9DC0: .byte $F0, $F8, $F0, $00 L9DC4: .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00, $08, $F8, $08, $00 L9DD0: .byte $F8, $E8, $F8, $10, $F8, $F0, $F8, $08 L9DD8: .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00, $F0, $00, $F0, $08, $F8, $08, $F0, $F0 L9DE8: .byte $F0, $F8, $F8, $F0, $00, $F0, $08, $F0, $08, $F8, $00, $08, $08, $00, $08, $08 L9DF8: .byte $F8, $FC, $00, $F8, $F4, $F4, $FC, $F4, $00, $00, $F4, $04, $FC, $04 L9E06: .byte $F8, $FC, $00, $FC ;Enemy frame drawing data. L9E0A: .byte $00, $02, $02, $14, $FF L9E0F: .byte $00, $02, $02, $24, $FF L9E14: .byte $00, $00, $00, $04, $FF L9E19: .byte $22, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9E29: .byte $F9, $F8, $FF L9E2C: .byte $22, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9E3C: .byte $D8, $FE, $E8, $FF L9E40: .byte $22, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9E50: .byte $F9, $F8, $FE, $D5, $FA, $FF L9E56: .byte $22, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9E66: .byte $D8, $FE, $E8, $D5, $FA, $FF L9E6C: .byte $62, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9E7C: .byte $F9, $F8, $FF L9E7F: .byte $62, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $D5, $E5, $E6, $E7, $F5, $F6, $F7 L9E8F: .byte $D8, $FE, $E8, $FF L9E93: .byte $62, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9EA3: .byte $F9, $F8, $FE, $D5, $FA, $FF L9EA9: .byte $62, $13, $08, $C8, $C9, $C6, $C7, $D6, $D7, $FE, $D9, $E6, $E7, $E9, $EA, $EB L9EB9: .byte $D8, $FE, $E8, $D5, $FA, $FF L9EBF: .byte $21, $00, $00, $C6, $C7, $D6, $D7, $E6, $E7, $FF L9EC9: .byte $20, $04, $04, $EC, $FF L9ECE: .byte $20, $04, $04, $FB, $FF L9ED3: .byte $E0, $04, $04, $EC, $FF L9ED8: .byte $E0, $04, $04, $FB, $FF L9EDD: .byte $60, $04, $04, $EC, $FF L9EE2: .byte $60, $04, $04, $FB, $FF L9EE7: .byte $A0, $04, $04, $EC, $FF L9EEC: .byte $A0, $04, $04, $FB, $FF L9EF1: .byte $27, $08, $08, $EA, $FD, $62, $EA, $FD, $22, $FB, $FD, $62, $FB, $FF L9EFF: .byte $27, $08, $08, $EA, $FD, $62, $EA, $FD, $22, $FA, $FD, $62, $FA, $FF L9F0D: .byte $27, $08, $08, $EA, $FD, $62, $EA, $FD, $22, $EB, $FD, $62, $EB, $FF L9F1B: .byte $25, $08, $08, $CE, $CF, $FD, $62, $CE, $FD, $22, $DF, $FD, $62, $DF, $FF L9F2A: .byte $25, $08, $08, $CE, $CF, $FD, $62, $CE, $FD, $22, $DE, $FD, $62, $DE, $FF L9F39: .byte $A5, $08, $08, $FD, $22, $CE, $CF, $FD, $62, $CE, $FD, $A2, $DF, $FD, $E2, $DF L9F49: .byte $FF L9F4A: .byte $A5, $08, $08, $FD, $22, $CE, $CF, $FD, $62, $CE, $FD, $A2, $DE, $FD, $E2, $DE L9F5A: .byte $FF L9F5B: .byte $21, $00, $00, $CE, $CE, $DF, $DF, $FF L9F63: .byte $39, $04, $08, $F6, $F7, $FF L9F69: .byte $39, $04, $08, $E7, $F7, $FF L9F6F: .byte $79, $04, $08, $F6, $F7, $FF L9F75: .byte $79, $04, $08, $E7, $F7, $FF L9F7B: .byte $31, $00, $00, $F6, $F7, $FF L9F81: .byte $29, $04, $08, $E6, $FD, $62, $E6, $FF L9F89: .byte $29, $04, $08, $E5, $FD, $62, $E5, $FF L9F91: .byte $21, $00, $00, $EA, $EA, $EB, $EB, $FF L9F99: .byte $27, $08, $08, $EE, $EF, $FD, $E2, $EF, $FD, $A2, $EF, $FF L9FA5: .byte $27, $08, $08, $FD, $62, $EF, $FD, $22, $EF, $ED, $FD, $A2, $EF, $FF L9FB3: .byte $27, $08, $08, $FD, $62, $EF, $FD, $22, $EF, $FD, $E2, $EF, $EE, $FF L9FC1: .byte $27, $08, $08, $FD, $62, $EF, $FD, $E2, $ED, $EF, $FD, $A2, $EF, $FF L9FCF: .byte $67, $08, $08, $EE, $EF, $FD, $A2, $EF, $FD, $E2, $EF, $FF L9FDB: .byte $67, $08, $08, $FD, $22, $EF, $FD, $62, $EF, $ED, $FD, $E2, $EF, $FF L9FE9: .byte $67, $08, $08, $FD, $22, $EF, $FD, $62, $EF, $FD, $A2, $EF, $EE, $FF L9FF7: .byte $67, $08, $08, $FD, $22, $EF, $FD, $A2, $ED, $EF, $FD, $E2, $EF, $FF LA005: .byte $21, $00, $00, $FC, $04, $00, $EE, $EF, $EF, $EF, $FF LA010: .byte $24, $08, $08, $FC, $08, $00, $C8, $C9, $D8, $D9, $E8, $E9, $F8, $F9, $FF LA01F: .byte $24, $08, $08, $FC, $08, $00, $C8, $C7, $D8, $D7, $E8, $E9, $F8, $F9, $FF LA02E: .byte $64, $08, $08, $FC, $08, $00, $C8, $C9, $D8, $D9, $E8, $E9, $F8, $F9, $FF LA03D: .byte $64, $08, $08, $FC, $08, $00, $C8, $C7, $D8, $D7, $E8, $E9, $F8, $F9, $FF LA04C: .byte $21, $00, $00, $FC, $FC, $00, $C8, $C9, $D8, $D9, $E8, $E9, $FF LA059: .byte $37, $04, $04, $E0, $E1, $F0, $F1, $FF LA061: .byte $B7, $04, $04, $E0, $E1, $F0, $F1, $FF LA069: .byte $77, $04, $04, $E0, $E1, $F0, $F1, $FF LA071: .byte $F7, $04, $04, $E0, $E1, $F0, $F1, $FF LA079: .byte $37, $00, $00, $E2, $FD, $63, $E2, $FF LA081: .byte $38, $00, $00, $E2, $FD, $62, $E2, $FF LA089: .byte $38, $00, $00, $FE, $FE, $E2, $FD, $62, $E2, $FF LA093: .byte $30, $04, $04, $C0, $FF LA098: .byte $30, $00, $00, $FC, $F8, $00, $D0, $FF LA0A0: .byte $33, $00, $00, $D1, $FD, $63, $D1, $FF LA0A8: .byte $27, $08, $08, $CC, $FD, $62, $CC, $FD, $22, $DC, $DD, $FF LA0B4: .byte $67, $08, $08, $FD, $22, $CD, $FD, $62, $CD, $DC, $DD, $FF LA0C0: .byte $27, $08, $08, $FD, $A2, $DA, $FD, $22, $CB, $DA, $DB, $FF LA0CC: .byte $A7, $08, $08, $CA, $CB, $FD, $22, $CA, $FD, $A2, $DB, $FF LA0D8: .byte $A7, $08, $08, $CC, $FD, $E2, $CC, $FD, $A2, $DC, $DD, $FF LA0E4: .byte $E7, $08, $08, $FD, $A2, $CD, $FD, $E2, $CD, $DC, $DD, $FF LA0F0: .byte $67, $08, $08, $FD, $E2, $DA, $FD, $62, $CB, $DA, $DB, $FF LA0FC: .byte $E7, $08, $08, $CA, $CB, $FD, $62, $CA, $FD, $E2, $DB, $FF LA108: .byte $21, $00, $00, $CC, $CD, $DC, $DD, $FF LA110: .byte $0A, $00, $00, $75, $FD, $60, $75, $FD, $A0, $75, $FD, $E0, $75, $FF LA11E: .byte $0A, $00, $00, $FE, $FE, $FE, $FE, $3D, $3E, $4E, $FD, $60, $3E, $3D, $4E, $FD LA12E: .byte $E0, $4E, $3E, $3D, $FD, $A0, $4E, $3D, $3E, $FF LA138: .byte $2A, $08, $08, $C2, $C3, $D2, $D3, $FF LA140: .byte $2A, $08, $08, $C2, $C4, $D2, $D4, $FF LA148: .byte $21, $08, $08, $C2, $C4, $D2, $D4, $FF LA150: .byte $6A, $08, $08, $C2, $C3, $D2, $D3, $FF LA158: .byte $6A, $08, $08, $C2, $C4, $D2, $D4, $FF LA160: .byte $61, $08, $08, $C2, $C4, $D2, $D4, $FF LA168: .byte $0C, $08, $04, $14, $24, $FF LA16E: .byte $00, $04, $04, $8A, $FF LA173: .byte $00, $04, $04, $8A, $FF ;-----------------------------------------[ Palette data ]------------------------------------------- Palette00: LA178: .byte $3F ;Upper byte of PPU palette adress. LA179: .byte $00 ;Lower byte of PPU palette adress. LA17A: .byte $20 ;Palette data length. ;The following values are written to the background palette: LA17B: .byte $0F, $20, $10, $00, $0F, $28, $16, $04, $0F, $16, $11, $04, $0F, $31, $13, $15 ;The following values are written to the sprite palette: LA18B: .byte $0F, $16, $19, $27, $0F, $12, $30, $21, $0F, $14, $23, $2C, $0F, $16, $24, $37 LA19B: .byte $00 ;End Palette00 info. Palette01: LA19C: .byte $3F ;Upper byte of PPU palette adress. LA19D: .byte $12 ;Lower byte of PPU palette adress. LA19E: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA19F: .byte $19, $27 LA1A0: .byte $00 ;End Palette01 info. Palette03: LA1A2: .byte $3F ;Upper byte of PPU palette adress. LA1A3: .byte $12 ;Lower byte of PPU palette adress. LA1A4: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA1A5: .byte $2C, $27 LA1A7: .byte $00 ;End Palette02 info. Palette02: LA1A8: .byte $3F ;Upper byte of PPU palette adress. LA1A9: .byte $12 ;Lower byte of PPU palette adress. LA1AA: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA1AB: .byte $19, $35 LA1AD: .byte $00 ;End Palette03 info. Palette04: LA1AE: .byte $3F ;Upper byte of PPU palette adress. LA1AF: .byte $12 ;Lower byte of PPU palette adress. LA1B0: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA1B1: .byte $2C, $24 LA1B3: .byte $00 ;End Palette04 info. Palette05: LA1B4: .byte $3F ;Upper byte of PPU palette adress. LA1B5: .byte $00 ;Lower byte of PPU palette adress. LA1B6: .byte $10 ;Palette data length. ;The following values are written to the background palette: LA1B7: .byte $0F, $20, $10, $00, $0F, $28, $16, $04, $0F, $16, $11, $04, $0F, $35, $1B, $16 LAC17: .byte $3F ;Upper byte of PPU palette adress. LA1C8: .byte $14 ;Lower byte of PPU palette adress. LA1C9: .byte $0C ;Palette data length. ;The following values are written to the sprite palette: LA1CA: .byte $0F, $12, $30, $21, $0F, $14, $23, $2C, $0F, $16, $24, $37 LA1D6: .byte $00 ;End Palette05 info. Palette06: LA1D7: .byte $3F ;Upper byte of PPU palette adress. LA1D8: .byte $11 ;Lower byte of PPU palette adress. LA1D9: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA1DA: .byte $04, $09, $07 LA1DD: .byte $00 ;End Palette06 info. Palette07: LA1DE: .byte $3F ;Upper byte of PPU palette adress. LA1DF: .byte $11 ;Lower byte of PPU palette adress. LA1E0: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA1E1: .byte $05, $09, $17 LA1E4: .byte $00 ;End Palette07 info. Palette08: LA1E5: .byte $3F ;Upper byte of PPU palette adress. LA1E6: .byte $11 ;Lower byte of PPU palette adress. LA1E7: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA1E8: .byte $06, $0A, $26 LA1EB: .byte $00 ;End Palette08 info. Palette09: LA1EC: .byte $3F ;Upper byte of PPU palette adress. LA1ED: .byte $11 ;Lower byte of PPU palette adress. LA1EE: .byte $03 ;Palette data length. ;The following values are written to the sprite palette: LA1EF: .byte $16, $19, $27 LA1F2: .byte $00 ;End Palette09 info. Palette0A: LA1F3: .byte $3F ;Upper byte of PPU palette adress. LA1F4: .byte $00 ;Lower byte of PPU palette adress. LA1F5: .byte $04 ;Palette data length. ;The following values are written to the background palette: LA1F6: .byte $0F, $30, $30, $21 LA1FA: .byte $00 ;End Palette0A info. Palette0B: LA1FB: .byte $3F ;Upper byte of PPU palette adress. LA1FC: .byte $10 ;Lower byte of PPU palette adress. LA1FD: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA1FE: .byte $0F, $15, $34, $17 LA202: .byte $00 ;End Palette0B info. Palette0C: LA203: .byte $3F ;Upper byte of PPU palette adress. LA204: .byte $10 ;Lower byte of PPU palette adress. LA205: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA206: .byte $0F, $15, $34, $19 LA20A: .byte $00 ;End Palette0C info. Palette0D: LA20B: .byte $3F ;Upper byte of PPU palette adress. LA20C: .byte $10 ;Lower byte of PPU palette adress. LA20D: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA20E: .byte $0F, $15, $34, $28 LA212: .byte $00 ;End Palette0D info. Palette0E: LA213: .byte $3F ;Upper byte of PPU palette adress. LA214: .byte $10 ;Lower byte of PPU palette adress. LA215: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA216: .byte $0F, $15, $34, $29 LA21A: .byte $00 ;End Palette0E info. ;--------------------------[ Room and structure pointer tables ]----------------------------------- RmPtrTbl: LA21B: .word $A3AB, $A3BE, $A3C6, $A3F8, $A42F, $A473, $A4AB, $A4F5 LA22B: .word $A527, $A55F, $A598, $A5D9, $A617, $A63E, $A678, $A6AA LA23B: .word $A6DF, $A70E, $A749, $A77E, $A7B3, $A7E6, $A82B, $A852 LA24B: .word $A87F, $A8B2, $A8DC, $A909, $A947, $A979, $A9AB, $A9D5 LA25B: .word $A9FF, $AA3D, $AA6F, $AAA7, $AAD4, $AB0D, $AB34, $AB70 LA26B: .word $ABA5, $ABDA, $AC0D, $AC42, $AC72, $AC99 StrctPtrTbl: LA277: .word $ACB9, $ACCC, $ACE5, $ACFE, $AD05, $AD0C, $AD10, $AD16 LA287: .word $AD26, $AD2B, $AD31, $AD39, $AD4E, $AD57, $AD61, $AD6c LA297: .word $AD78, $AD7B, $AD85, $AD88, $AD9C, $ADB1, $ADB7, $ADBD LA2A7: .word $ADC6, $ADCF, $ADE2, $ADF7, $AE0C, $AE1D, $AE23, $AE26 LA2B7: .word $AE2F, $AE3A, $AE40, $AE55, $AE59, $AE64, $AE6D, $AE82 LA2C7: .word $AE85, $AE8E, $AE91, $AE94, $AE9A, $AEA7, $AEB1, $AEC6 LA2D7: .word $AED9 ;---------------------------------[ 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. LA2D9: .byte $0A LA2DA: .word $A2E8 LA2DC: .byte $1B, $06, $02, $09, $34, $00 ;Missiles. LA2E2: .byte $1C, $FF, $02, $09, $34, $00 ;Elevator from Brinstar. LA2E8: .byte $0B LA2E9: .word $A302 LA2EB: .byte $16, $05, $04, $81, $00 ;Missiles. LA2F0: .byte $1A, $06, $02, $09, $34, $00 ;Missiles. LA2F6: .byte $1B, $06, $02, $09, $34, $00 ;Missiles. LA2FC: .byte $1C, $FF, $02, $09, $34, $00 ;Ice beam. LA302: .byte $0C LA303: .word $A30B LA305: .byte $1A, $FF, $02, $07, $37, $00 ;Elevator to Brinstar. LA30B: .byte $0D LA30C: .word $A313 LA30E: .byte $16, $FF, $04, $81, $00 ;Missiles. LA313: .byte $0E LA314: .word $A31C LA316: .byte $12, $FF, $02, $09, $34, $00 ;Missiles and Melias. LA31C: .byte $0F LA31D: .word $A33B LA31F: .byte $11, $07, $02, $09, $34, $03, $00 ;Missiles. LA326: .byte $13, $06, $02, $09, $34, $00 ;Missiles. LA32C: .byte $14, $06, $02, $09, $34, $00 ;Squeept. LA332: .byte $15, $FF, $41, $8B, $E9, $51, $02, $9B, $00 ;Screw attack. LA33B: .byte $10 LA33C: .word $A344 LA33E: .byte $0F, $FF, $02, $03, $37, $00 ;Palette change room. LA344: .byte $11 LA345: .word $A36D LA347: .byte $16, $04, $0A, $00 ;Squeept. LA34B: .byte $18, $09, $31, $0B, $E9, $41, $02, $9A, $00 ;Squeept. LA354: .byte $19, $09, $21, $8B, $E9, $51, $02, $9A, $00 ;High jump. LA35D: .byte $1B, $06, $02, $01, $37, $00 ;Right door. LA363: .byte $1D, $05, $09, $A0, $00 ;Left door. LA368: .byte $1E, $FF, $09, $B0, $00 ;Energy tank. LA36D: .byte $13 LA36E: .word $A376 LA370: .byte $1A, $FF, $02, $08, $42, $00 ;Right door. LA376: .byte $14 LA377: .word $A389 LA379: .byte $0D, $05, $09, $A0, $00 ;Left door. LA37E: .byte $0E, $05, $09, $B0, $00 ;Missiles. LA383: .byte $1C, $FF, $02, $09, $34, $00 ;Wave beam. LA389: .byte $15 LA38A: .word $A397 LA38C: .byte $12, $06, $02, $06, $37, $00 ;Right door(undefined room). LA392: .byte $17, $FF, $09, $A0, $00 ;Missiles. LA397: .byte $16 LA398: .word $FFFF LA39A: .byte $13, $06, $02, $09, $34, $00 ;Missiles. LA3A0: .byte $14, $06, $02, $09, $34, $00 ;Elevator to Ridley hideout. LA3A6: .byte $19, $FF, $04, $04, $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 LA3AB: .byte $02 ;Attribute table data. ;Room object data: LA3AC: .byte $40, $01, $02, $48, $01, $02, $50, $04, $02, $5F, $04, $02, $FD, $02, $A1, $02 LA3BC: .byte $B1, $FF ;Room #$01 LA3BE: .byte $02 ;Attribute table data. ;Room object data: LA3BF: .byte $07, $02, $02, $87, $02, $02, $FF ;Room #$02 LA3C6: .byte $03 ;Attribute table data. ;Room object data: LA3C7: .byte $00, $0B, $03, $04, $06, $03, $08, $06, $03, $0C, $0B, $03, $40, $07, $03, $4E LA3D7: .byte $07, $03, $76, $08, $01, $79, $08, $01, $90, $07, $03, $96, $09, $00, $9E, $07 LA3E7: .byte $03, $A4, $06, $03, $A8, $06, $03, $B7, $0A, $03, $E0, $06, $03, $EC, $06, $03 LA3F7: .byte $FF ;Room #$03 LA3F8: .byte $03 ;Attribute table data. ;Room object data: LA3F9: .byte $00, $07, $03, $0E, $07, $03, $2B, $06, $03, $36, $06, $03, $50, $03, $02, $5F LA409: .byte $03, $02, $80, $0B, $03, $84, $0B, $03, $88, $0B, $03, $8C, $0B, $03, $8D, $17 LA419: .byte $03, $C0, $0B, $03, $C4, $0B, $03, $C8, $0B, $03, $CC, $0B, $03, $CD, $17, $03 LA429: .byte $FD ;Enemy/door data. LA42A: .byte $02, $A1, $02, $B1, $FF ;Room #$04 LA42F: .byte $00 ;Attribute table data. ;Room object data: LA430: .byte $00, $0D, $00, $08, $0D, $00, $10, $0C, $00, $14, $0C, $00, $1F, $1F, $00, $25 LA440: .byte $0F, $02, $50, $0D, $00, $5F, $04, $02, $63, $0D, $00, $70, $0D, $00, $78, $12 LA450: .byte $00, $80, $11, $00, $88, $12, $00, $89, $0D, $00, $90, $0E, $00, $94, $0D, $00 LA460: .byte $9C, $0E, $00, $B0, $0C, $00, $BF, $0C, $00, $D1, $00, $02, $D7, $00, $02, $FD ;Enemy/door data. LA470: .byte $02, $A0, $FF ;Room #$05 LA473: .byte $00 ;Attribute table data. ;Room object data: LA474: .byte $00, $07, $03, $02, $06, $03, $06, $13, $02, $0A, $14, $02, $0E, $07, $03, $12 LA484: .byte $0A, $03, $2B, $0C, $00, $47, $13, $02, $4B, $14, $02, $4E, $0C, $00, $4F, $14 LA494: .byte $02, $50, $03, $02, $6B, $09, $00, $7A, $09, $00, $80, $0D, $00, $87, $02, $02 LA4A4: .byte $89, $0D, $00, $FD, $02, $B1, $FF ;Room #$06 LA4AB: .byte $03 ;Attribute table data. ;Room object data: LA4AC: .byte $00, $0B, $03, $04, $0B, $03, $08, $0B, $03, $0C, $0B, $03, $30, $16, $03, $34 LA4BC: .byte $16, $03, $38, $16, $03, $3C, $16, $03, $40, $0B, $03, $44, $0B, $03, $48, $0B LA4CC: .byte $03, $4C, $0B, $03, $80, $16, $03, $84, $16, $03, $88, $16, $03, $8C, $16, $03 LA4DC: .byte $90, $0B, $03, $94, $0B, $03, $98, $0B, $03, $9C, $0B, $03, $D0, $0B, $03, $D4 LA4EC: .byte $0B, $03, $D8, $0B, $03, $DC, $0B, $03, $FF ;Room #$07 LA4F5: .byte $03 ;Attribute table data. ;Room object data: LA4F6: .byte $00, $0B, $03, $04, $0B, $03, $08, $0B, $03, $0C, $0B, $03, $40, $0B, $03, $44 LA506: .byte $0B, $03, $48, $0B, $03, $4C, $0B, $03, $74, $0B, $03, $80, $0B, $03, $88, $0B LA516: .byte $03, $8C, $0B, $03, $B0, $0B, $03, $B4, $0B, $03, $BC, $0B, $03, $C8, $0B, $03 LA526: .byte $FF ;Room #$08 LA527: .byte $03 ;Attribute table data. ;Room object data: LA528: .byte $00, $07, $03, $08, $06, $03, $0E, $07, $03, $1D, $18, $01, $32, $06, $03, $50 LA538: .byte $07, $03, $5F, $03, $02, $86, $10, $01, $8D, $18, $01, $8E, $07, $03, $A0, $07 LA548: .byte $03, $A9, $10, $01, $BE, $0B, $03, $CD, $18, $01, $FD ;Enemy/door data. LA553: .byte $02, $A1, $41, $02, $8B, $51, $06, $76, $21, $82, $A3, $FF ;Room #$09 LA55F: .byte $03 ;Attribute table data. ;Room object data: LA560: .byte $00, $07, $03, $0E, $0B, $03, $2A, $06, $03, $33, $06, $03, $35, $06, $03, $43 LA570: .byte $0A, $03, $4E, $0B, $03, $50, $07, $03, $6E, $07, $03, $80, $07, $03, $87, $06 LA580: .byte $03, $97, $0A, $03, $BE, $0B, $03, $C0, $07, $03, $D4, $06, $03, $FD ;Enemy/door data. LA58E: .byte $01, $86, $25, $11, $82, $C5, $41, $06, $79, $FF ;Room #$0A LA598: .byte $02 ;Attribute table data. ;Room object data: LA599: .byte $00, $07, $03, $05, $06, $03, $0C, $18, $01, $0E, $07, $03, $40, $07, $03, $57 LA5A9: .byte $06, $03, $5F, $03, $02, $80, $0B, $03, $84, $00, $02, $8C, $0B, $03, $A4, $17 LA5B9: .byte $03, $A5, $0B, $03, $A9, $0B, $03, $C0, $0B, $03, $C9, $0B, $03, $CD, $0B, $03 LA5C9: .byte $D4, $17, $03, $E5, $0B, $03, $FD ;Enemy/door data. LA5D0: .byte $02, $A1, $31, $02, $36, $41, $86, $48, $FF ;Room #$0B LA5D9: .byte $01 ;Attribute table data. ;Room object data: LA5DA: .byte $00, $07, $03, $0E, $07, $03, $12, $06, $03, $39, $06, $03, $50, $03, $02, $5E LA5EA: .byte $0B, $03, $80, $0B, $03, $84, $0B, $03, $88, $0B, $03, $8C, $17, $03, $8D, $0B LA5FA: .byte $03, $B0, $0B, $03, $B8, $0B, $03, $BC, $17, $03, $BD, $0B, $03, $C4, $0B, $03 LA60A: .byte $EC, $17, $03, $FD ;Enemy/door data. LA60E: .byte $02, $B1, $41, $06, $2B, $51, $02, $1A, $FF ;Room #$0C LA617: .byte $03 ;Attribute table data. ;Room object data: LA618: .byte $00, $07, $03, $0D, $18, $01, $0E, $07, $03, $4D, $18, $01, $50, $07, $03, $5E LA628: .byte $07, $03, $8D, $18, $01, $A0, $07, $03, $AE, $07, $03, $CD, $18, $01, $FD ;Enemy/door data. LA637: .byte $01, $02, $33, $31, $82, $88, $FF ;Room #$0D LA63E: .byte $03 ;Attribute table data. ;Room object data: LA63F: .byte $10, $0B, $03, $14, $0B, $03, $18, $0B, $03, $1C, $0B, $03, $50, $03, $02, $5F LA64F: .byte $03, $02, $80, $07, $03, $81, $17, $03, $82, $06, $03, $86, $06, $03, $8A, $06 LA65F: .byte $03, $8E, $07, $03, $97, $0A, $03, $C0, $0B, $03, $CC, $0B, $03, $D4, $19, $02 LA66F: .byte $FD ;Enemy/door data. LA670: .byte $02, $A1, $02, $B1, $21, $0D, $E5, $FF ;Room #$0E LA678: .byte $03 ;Attribute table data. ;Room object data: LA679: .byte $00, $07, $03, $0E, $07, $03, $2B, $06, $03, $30, $06, $03, $4A, $06, $03, $50 LA689: .byte $03, $02, $5E, $07, $03, $80, $07, $03, $81, $06, $03, $AE, $07, $03, $B0, $07 LA699: .byte $03, $B5, $06, $03, $FD ;Enemy/door data. LA69E: .byte $02, $B1, $11, $86, $A6, $31, $02, $EA, $21, $02, $39, $FF ;Room #$0F LA6A9: .byte $00 ;Attribute table data. ;Room object data: LA6AB: .byte $00, $0E, $00, $04, $0D, $00, $0C, $0D, $00, $10, $0C, $00, $50, $04, $02, $80 LA6BB: .byte $09, $00, $90, $0C, $00, $92, $09, $00, $AF, $09, $00, $B9, $09, $00, $D0, $0E LA6CB: .byte $00, $D3, $00, $02, $DB, $00, $02, $FD ;Enemy/door data. LA6D3: .byte $02, $B0, $01, $0D, $E7, $11, $8D, $ED, $31, $06, $AA, $FF ;Room #$10 LA6DF: .byte $01 ;Attribute table data. ;Room object data: LA6E0: .byte $00, $0D, $00, $04, $0D, $00, $0C, $0E, $00, $1F, $0C, $00, $5F, $03, $02, $8C LA6F0: .byte $09, $00, $94, $09, $00, $9F, $0C, $00, $D0, $00, $02, $D5, $00, $02, $DD, $0E LA700: .byte $00, $FD ;Enemy/door data. LA702: .byte $02, $A1, $21, $0D, $E2, $41, $0D, $EA, $31, $06, $85, $FF ;Room #$11 LA70E: .byte $03 ;Attribute table data. ;Room object data: LA70F: .byte $10, $0B, $03, $14, $0B, $03, $18, $0B, $03, $1C, $0B, $03, $50, $03, $02, $5C LA71F: .byte $0B, $03, $80, $07, $03, $81, $17, $03, $82, $06, $03, $86, $06, $03, $8A, $06 LA72F: .byte $03, $8C, $0B, $03, $B0, $0B, $03, $B4, $19, $02, $BC, $17, $03, $CD, $0B, $03 LA73F: .byte $D4, $0B, $03, $D8, $0B, $03, $FD ;Enemy/door data. LA746: .byte $02, $B1, $FF ;Room #$12 LA749: .byte $03 ;Attribute table data. ;Room object data: LA74A: .byte $00, $2D, $03, $08, $2D, $03, $10, $1B, $03, $14, $0A, $03, $50, $03, $02, $80 LA75A: .byte $1B, $03, $9A, $1C, $03, $B0, $1B, $03, $B6, $1C, $03, $BE, $1C, $03, $C4, $1C LA76A: .byte $03, $D4, $00, $02, $D9, $00, $02, $FD ;Enemy/door data. LA772: .byte $02, $B1, $01, $00, $1C, $41, $00, $18, $21, $0D, $EC, $FF ;Room #$13 LA77E: .byte $03 ;Attribute table data. ;Room object data: LA77F: .byte $00, $2D, $03, $08, $2D, $03, $12, $0A, $03, $1E, $1B, $03, $5F, $03, $02, $69 LA78F: .byte $1C, $03, $8D, $1B, $03, $A3, $1D, $03, $B0, $1C, $03, $CE, $1B, $03, $D0, $00 LA79F: .byte $02, $D6, $00, $02, $FD ;Enemy/door data. LA7A4: .byte $02, $A1, $51, $80, $24, $41, $0D, $E2, $31, $86, $94, $11, $86, $69, $FF ;Room #$14 LA7B3: .byte $03 ;Attribute table data. ;Room object data: LA7B4: .byte $00, $2D, $03, $08, $2D, $03, $16, $0A, $03, $30, $1A, $01, $32, $1A, $01, $3A LA7C4: .byte $1A, $01, $3E, $1A, $01, $50, $1A, $01, $52, $1A, $01, $5A, $1A, $01, $5E, $1A LA7D4: .byte $01, $B7, $1C, $03, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA7DF: .byte $31, $0D, $E6, $51, $8D, $EB, $FF ;Room #$15 LA7E6: .byte $01 ;Attribute table data. ;Room object data: LA7E7: .byte $00, $2D, $03, $08, $2D, $03, $1C, $0A, $03, $52, $1C, $03, $58, $1C, $03, $5A LA7F7: .byte $1C, $03, $64, $1C, $03, $86, $1C, $03, $8C, $1C, $03, $8E, $1C, $03, $A0, $1C LA807: .byte $03, $D0, $1B, $03, $D3, $00, $02, $D4, $1B, $03, $D7, $00, $02, $DA, $1B, $03 LA817: .byte $DD, $00, $02, $DE, $1B, $03, $FD ;Enemy/door data. LA81E: .byte $31, $0C, $1B, $01, $86, $54, $21, $86, $48, $51, $06, $7C, $FF ;Room #$16 LA82B: .byte $03 ;Attribute table data. ;Room object data: LA82C: .byte $00, $2D, $03, $08, $2D, $03, $12, $0A, $03, $1C, $0A, $03, $A2, $1D, $03, $AB LA83C: .byte $1D, $03, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA845: .byte $01, $0D, $E8, $11, $86, $94, $21, $86, $9C, $51, $00, $18, $FF ;Room #$17 LA852: .byte $03 ;Attribute table data. ;Room object data: LA853: .byte $00, $2D, $03, $08, $2D, $03, $16, $0A, $03, $80, $2D, $03, $8A, $2D, $03, $91 LA863: .byte $0A, $03, $B8, $05, $01, $C7, $1D, $03, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA872: .byte $41, $06, $73, $51, $86, $7C, $31, $00, $27, $27, $87, $B9, $FF ;Room #$18 LA87F: .byte $03 ;Attribute table data. ;Room object data: LA880: .byte $00, $2D, $03, $08, $2D, $03, $1A, $0A, $03, $24, $1C, $03, $3E, $18, $01, $54 LA890: .byte $18, $01, $7E, $18, $01, $A2, $1C, $03, $A7, $1D, $03, $BE, $1C, $03, $D0, $00 LA8A0: .byte $02, $D8, $00, $02, $FD ;Enemy/door data. LA8A5: .byte $31, $00, $17, $41, $06, $97, $21, $8B, $E6, $01, $0D, $EC, $FF ;Room #$19 LA8B2: .byte $00 ;Attribute table data. ;Room object data: LA8B3: .byte $00, $0D, $00, $08, $0D, $00, $10, $1F, $00, $44, $1F, $00, $80, $12, $00, $81 LA8C3: .byte $0D, $00, $90, $1F, $00, $98, $1F, $00, $AE, $0D, $00, $BB, $1F, $00, $D0, $00 LA8D3: .byte $02, $D8, $00, $02, $FD ;Enemy/door data. LA8D8: .byte $31, $80, $17, $FF ;Room #$1A LA8DC: .byte $03 ;Attribute table data. ;Room object data: LA8DD: .byte $00, $30, $01, $08, $30, $01, $80, $0D, $00, $84, $05, $02, $86, $05, $02, $88 LA8ED: .byte $0D, $00, $8C, $20, $01, $94, $20, $01, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA8FC: .byte $27, $87, $85, $37, $87, $87, $41, $00, $29, $51, $00, $2C, $FF ;Room #$1B LA909: .byte $00 ;Attribute table data. ;Room object data: LA90A: .byte $00, $20, $01, $04, $20, $01, $08, $20, $01, $0C, $2E, $01, $10, $2E, $01, $4C LA91A: .byte $2E, $01, $50, $03, $02, $80, $2E, $01, $8C, $21, $01, $98, $20, $01, $9C, $2E LA92A: .byte $01, $A2, $20, $01, $C0, $2E, $01, $D2, $00, $02, $DA, $00, $02, $FD ;Enemy/door data. LA938: .byte $02, $B1, $01, $0C, $98, $31, $8C, $3A, $11, $0C, $38, $41, $8B, $E6, $FF ;Room #$1C LA947: .byte $02 ;Attribute table data. ;Room object data: LA948: .byte $00, $22, $02, $04, $22, $02, $08, $22, $02, $0C, $22, $02, $1C, $22, $02, $5F LA958: .byte $03, $02, $8C, $22, $02, $A8, $22, $02, $B0, $22, $02, $B1, $23, $01, $B4, $22 LA968: .byte $02, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA970: .byte $02, $A1, $41, $0E, $B1, $31, $00, $49, $FF ;Room #$1D LA979: .byte $02 ;Attribute table data. ;Room object data: LA97A: .byte $00, $22, $02, $04, $22, $02, $08, $22, $02, $0C, $22, $02, $10, $22, $02, $50 LA98A: .byte $03, $02, $80, $22, $02, $B4, $22, $02, $B8, $22, $02, $BC, $22, $02, $BD, $23 LA999: .byte $01, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA9A2: .byte $02, $B1, $01, $0E, $BD, $21, $00, $49, $FF ;Room #$1E LA9AB: .byte $02 ;Attribute table data. ;Room object data: LA9AC: .byte $00, $22, $02, $04, $22, $02, $08, $22, $02, $0C, $22, $02, $B6, $22, $02, $B7 LA9BC: .byte $23, $01, $C1, $22, $02, $CB, $22, $02, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LA9CB: .byte $51, $0E, $B7, $11, $06, $BD, $31, $86, $B3, $FF ;Room #$1F LA9D5: .byte $02 ;Attribute table data. ;Room object data: LA9D6: .byte $00, $22, $02, $04, $22, $02, $08, $22, $02, $0C, $22, $02, $90, $22, $02, $9C LA9E6: .byte $22, $02, $A7, $23, $01, $B4, $22, $02, $B8, $22, $02, $D0, $00, $02, $D8, $00 LA9F6: .byte $02, $FD ;Enemy/door data. LA9F8: .byte $41, $0E, $A7, $11, $02, $99, $FF ;Room #$20 LA9FF: .byte $00 ;Attribute table data. ;Room object data: LAA00: .byte $00, $2F, $03, $08, $2F, $03, $0B, $06, $03, $1C, $26, $03, $21, $25, $03, $22 LAA10: .byte $06, $03, $5F, $04, $02, $8C, $26, $03, $B0, $25, $03, $B3, $23, $01, $B7, $24 LAA20: .byte $03, $C2, $26, $03, $CE, $26, $03, $D0, $00, $02, $D6, $00, $02, $FD ;Enemy/door data. LAA2E: .byte $02, $A1, $41, $0E, $B3, $11, $86, $A9, $21, $0C, $43, $01, $0B, $EB, $FF ;Room #$21 LAA3D: .byte $03 ;Attribute table data. ;Room object data: LAA3E: .byte $00, $2F, $03, $08, $2F, $03, $10, $26, $03, $19, $06, $03, $50, $03, $02, $80 LAA4E: .byte $26, $03, $AA, $25, $03, $B3, $24, $03, $CE, $24, $03, $D0, $00, $02, $D8, $00 LAA5E: .byte $02, $FD ;Enemy/door data. LAA60: .byte $02, $B1, $31, $06, $BE, $51, $86, $9A, $41, $0C, $77, $21, $0C, $38, $FF ;Room #$22 LAA6F: .byte $03 ;Attribute table data. ;Room object data: LAA70: .byte $00, $2F, $03, $08, $2F, $03, $14, $06, $03, $17, $24, $03, $1E, $26, $03, $23 LAA80: .byte $25, $03, $5F, $03, $02, $8D, $26, $03, $C2, $24, $03, $C7, $24, $03, $CC, $26 LAA90: .byte $03, $D0, $00, $02, $D6, $00, $02, $FD ;Enemy/door data. LAA98: .byte $02, $A1, $01, $86, $B4, $11, $86, $B8, $21, $0C, $59, $31, $0C, $55, $FF ;Room #$23 LAAA7: .byte $03 ;Attribute table data. ;Room object data: LAAA8: .byte $00, $2F, $03, $08, $2F, $03, $14, $06, $03, $8D, $24, $03, $8F, $29, $03, $97 LAAB8: .byte $24, $03, $B1, $24, $03, $B2, $05, $01, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LAAC7: .byte $31, $86, $88, $41, $06, $7C, $51, $00, $29, $17, $87, $B3, $FF ;Room #$24 LAAD4: .byte $03 ;Attribute table data. ;Room object data: LAAD5: .byte $00, $2F, $03, $08, $2F, $03, $50, $2A, $03, $56, $2A, $03, $63, $2A, $03, $6E LAAE5: .byte $2A, $03, $78, $2A, $03, $8C, $2A, $03, $9F, $2A, $03, $A1, $2A, $03, $A5, $2A LAAF5: .byte $03, $BA, $2A, $03, $C7, $2A, $03, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LAB03: .byte $01, $0D, $E8, $21, $8B, $ED, $31, $0B, $E9, $FF ;Room #$25 LAB0D: .byte $00 ;Attribute table data. ;Room object data: LAB0E: .byte $00, $2F, $03, $08, $2F, $03, $0A, $25, $03, $90, $2F, $03, $99, $05, $01, $9B LAB1E: .byte $24, $03, $9F, $06, $03, $A7, $06, $03, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LAB2D: .byte $01, $0C, $27, $37, $07, $9A, $FF ;Room #$26 LAB34: .byte $00 ;Attribute table data. ;Room object data: LAB35: .byte $00, $0E, $00, $04, $0D, $00, $0C, $0E, $00, $20, $0C, $00, $2F, $0C, $00, $52 LAB45: .byte $1F, $00, $60, $28, $03, $64, $1F, $00, $6F, $25, $03, $7F, $29, $03, $8E, $1F LAB55: .byte $00, $97, $1F, $00, $CB, $1F, $00, $D0, $00, $02, $D8, $00, $02, $FD ;Enemy/door data. LAB63: .byte $31, $86, $54, $41, $86, $87, $51, $0D, $E9, $01, $8B, $E5, $FF ;Room #$27 LAB70: .byte $02 ;Attribute table data. ;Room object data: LAB71: .byte $00, $20, $01, $04, $20, $01, $08, $20, $01, $0C, $20, $01, $10, $2C, $01, $50 LAB81: .byte $04, $02, $80, $2C, $01, $81, $15, $03, $87, $27, $03, $8A, $27, $03, $8C, $27 LAB91: .byte $03, $8E, $27, $03, $C0, $2C, $01, $D2, $00, $02, $DA, $00, $02, $FD ;Enemy/door data. LAB9F: .byte $02, $B1, $51, $0D, $E9, $FF ;Room #$28 LABA5: .byte $02 ;Attribute table data. ;Room object data: LABA6: .byte $00, $30, $01, $08, $30, $01, $10, $2C, $01, $17, $15, $03, $50, $03, $02, $80 LABB6: .byte $20, $01, $86, $2B, $00, $8A, $2B, $00, $A0, $2C, $01, $BC, $2B, $00, $D2, $00 LABC6: .byte $02, $DA, $00, $02, $E0, $2C, $01, $FD ;Enemy/door data. LABCE: .byte $02, $B1, $01, $06, $77, $11, $86, $7C, $21, $00, $2A, $FF ;Room #$29 LABDA: .byte $00 ;Attribute table data. ;Room object data: LABDB: .byte $00, $30, $01, $05, $15, $03, $08, $30, $01, $50, $2B, $00, $55, $2B, $00, $6B LABEB: .byte $2B, $00, $91, $2B, $00, $A8, $2B, $00, $B3, $2B, $00, $CC, $2B, $00, $D0, $00 LABFB: .byte $02, $D8, $00, $02, $FD ;Enemy/door data. LAC00: .byte $41, $06, $43, $51, $86, $47, $31, $06, $84, $21, $86, $99, $FF ;Room #$2A LAC0D: .byte $02 ;Attribute table data. ;Room object data: LAC0E: .byte $00, $30, $01, $08, $30, $01, $15, $15, $03, $1E, $2C, $01, $5F, $03, $02, $8C LAC1E: .byte $20, $01, $97, $2B, $00, $AE, $2C, $01, $C2, $2B, $00, $D0, $00, $02, $D6, $00 LAC2E: .byte $02, $EE, $2C, $01, $FD ;Enemy/door data. LAC33: .byte $02, $A1, $21, $86, $88, $31, $86, $B3, $41, $0B, $E0, $51, $8B, $EB, $FF ;Room #$2B LAC42: .byte $00 ;Attribute table data. ;Room object data: LAC43: .byte $00, $30, $01, $08, $30, $01, $2B, $18, $01, $55, $18, $01, $6B, $18, $01, $95 LAC53: .byte $18, $01, $A0, $2C, $01, $AE, $2C, $01, $B8, $2C, $01, $D0, $00, $02, $D8, $00 LAC63: .byte $02, $FD ;Enemy/door data. LAC65: .byte $31, $86, $45, $21, $06, $A9, $11, $86, $9E, $01, $0B, $E3, $FF ;Room #$2C LAC72: .byte $00 ;Attribute table data. ;Room object data: LAC73: .byte $00, $30, $01, $08, $30, $01, $46, $2C, $01, $86, $2C, $01, $94, $20, $01, $AF LAC83: .byte $20, $01, $C0, $30, $01, $CB, $20, $01, $D0, $00, $02, $D5, $20, $01, $D9, $00 LAC93: .byte $02, $FD ;Enemy/door data. LAC95: .byte $01, $0C, $59, $FF ;Room #$2D LAC99: .byte $03 ;Attribute table data. ;Room object data: LAC9A: .byte $00, $07, $03, $0E, $07, $03, $19, $06, $03, $44, $06, $03, $50, $07, $03, $5E LACAA: .byte $07, $03, $93, $06, $03, $A0, $07, $03, $AE, $07, $03, $C7, $06, $03, $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 LACB9: .byte $08, $01, $01, $01, $01, $01, $01, $01, $01, $08, $00, $00, $00, $00, $00, $00 LACC9: .byte $00, $00, $FF ;Structure #$01 LACCC: .byte $08, $02, $02, $02, $02, $02, $02, $02, $02, $01, $0A, $01, $0A, $01, $0A, $08 LACDC: .byte $02, $02, $02, $02, $02, $02, $02, $02, $FF ;Structure #$02 LACE5: .byte $02, $04, $05, $02, $04, $05, $02, $04, $05, $02, $04, $05, $02, $04, $05, $02 LACF5: .byte $04, $05, $02, $04, $05, $02, $04, $05, $FF ;Structure #$03 LACFE: .byte $01, $06, $01, $06, $01, $06, $FF ;Structure #$04 LAD05: .byte $01, $07, $01, $07, $01, $07, $FF ;Structure #$05 LAD0C: .byte $02, $08, $09, $FF ;Structure #$06 LAD10: .byte $04, $0B, $0B, $0B, $0B, $FF ;Structure #$07 LAD16: .byte $02, $0B, $0F, $02, $0C, $0B, $02, $0F, $0C, $02, $0B, $0B, $02, $0C, $0F, $FF ;Structure #$08 LAD26: .byte $01, $0D, $01, $0E, $FF ;Structure #$09 LAD2B: .byte $04, $10, $10, $10, $10, $FF ;Structure #$0A LAD31: .byte $04, $12, $13, $11, $13, $01, $13, $FF ;Structure #$0B LAD39: .byte $04, $0F, $0C, $0C, $0B, $04, $0B, $0F, $0B, $0C, $04, $0C, $0F, $0C, $0B, $04 LAD49: .byte $0F, $0B, $0F, $0C, $FF ;Structure #$0C LAD4E: .byte $01, $1F, $01, $1F, $01, $1F, $01, $1F, $FF ;Structure #$0D LAD57: .byte $08, $20, $20, $20, $20, $20, $20, $20, $20, $FF ;Structure #$0E LAD61: .byte $04, $21, $21, $21, $21, $04, $21, $21, $21, $21, $FF ;Structure #$0F LAD6C: .byte $02, $15, $18, $03, $16, $19, $1E, $03, $17, $1A, $1B, $FF ;Structure #$10 LAD78: .byte $01, $1E, $FF ;Structure #$11 LAD7B: .byte $08, $22, $22, $22, $22, $22, $22, $22, $22, $FF ;Structure #$12 LAD85: .byte $01, $23, $FF ;Structure #$13 LAD88: .byte $04, $24, $26, $26, $26, $04, $25, $26, $26, $26, $13, $27, $26, $26, $04, $28 LAD98: .byte $29, $26, $2A, $FF ;Structure #$14 LAD9C: .byte $04, $26, $26, $26, $26, $04, $26, $26, $26, $26, $04, $26, $26, $26, $26, $04 LADAC: .byte $26, $26, $26, $26, $FF ;Structure #$15 LADB1: .byte $04, $0F, $0F, $0F, $0F, $FF ;Structure #$16 LADB7: .byte $04, $2D, $3D, $2C, $3D, $FF ;Structure #$17 LADBD: .byte $01, $2D, $01, $3D, $01, $2C, $01, $3D, $FF ;Structure #$18 LADC6: .byte $01, $1D, $01, $1D, $01, $1D, $01, $1D, $FF ;Structure #$19 LADCF: .byte $08, $2E, $2E, $2E, $2E, $2E, $2E, $2E, $2E, $08, $2F, $2F, $2F, $2F, $2F, $2F LADDF: .byte $2F, $2F, $FF ;Structure #$1A LADE2: .byte $04, $1D, $1D, $1D, $1D, $04, $1D, $1D, $1D, $1D, $04, $1D, $1D, $1D, $1D, $04 LADF2: .byte $1D, $1D, $1D, $1D, $FF ;Structure #$1B LADF7: .byte $04, $31, $30, $31, $30, $04, $30, $30, $30, $30, $04, $31, $30, $31, $31, $04 LAE07: .byte $30, $31, $30, $30, $FF ;Structure #$1C LAE0C: .byte $01, $30, $01, $31, $01, $30, $01, $30, $01, $31, $01, $31, $01, $30, $01, $30 LAE1C: .byte $FF ;Structure #$1D LAE1D: .byte $04, $30, $31, $30, $30, $FF ;Structure #$1E LAE23: .byte $01, $1C, $FF ;Structure #$1F LAE26: .byte $01, $21, $01, $1F, $01, $1F, $01, $21, $FF ;Structure #$20 LAE2F: .byte $04, $34, $34, $34, $34, $04, $34, $34, $34, $34, $FF ;Structure #$21 LAE3A: .byte $04, $35, $35, $35, $35, $FF ;Structure #$22 LAE40: .byte $04, $37, $37, $37, $37, $04, $37, $36, $37, $36, $04, $36, $37, $36, $37, $04 LAE50: .byte $37, $37, $36, $37, $FF ;Structure #$23 LAE55: .byte $02, $32, $33, $FF ;Structure #$24 LAE59: .byte $04, $2B, $2B, $2B, $2B, $04, $2B, $2B, $2B, $2B, $FF ;Structure #$25 LAE64: .byte $01, $2B, $01, $2B, $01, $2B, $01, $2B, $FF ;Structure #$26 LAE6D: .byte $04, $2B, $2B, $2B, $2B, $04, $2B, $2B, $2B, $2B, $04, $2B, $2B, $2B, $2B, $04 LAE7D: .byte $2B, $2B, $2B, $2B, $FF ;Structure #$27 LAE82: .byte $01, $14, $FF ;Structure #$28 LAE85: .byte $01, $2B, $01, $2B, $01, $2B, $01, $2B, $FF ;Structure #$29 LAE8E: .byte $01, $39, $FF ;Structure #$2A LAE91: .byte $01, $38, $FF ;Structure #$2B LAE94: .byte $04, $3A, $3B, $3B, $3C, $FF ;Structure #$2C LAE9A: .byte $02, $34, $34, $02, $34, $34, $02, $34, $34, $02, $34, $34, $FF ;Structure #$2D LAEA7: .byte $08, $30, $31, $30, $31, $30, $30, $31, $30, $FF ;Structure #$2E LAEB1: .byte $04, $34, $34, $34, $34, $04, $34, $34, $34, $34, $04, $34, $34, $34, $34, $04 LAEC1: .byte $34, $34, $34, $34, $FF ;Structure #$2F LAEC6: .byte $08, $2B, $2B, $2B, $2B, $2B, $2B, $2B, $2B, $08, $2B, $2B, $2B, $2B, $2B, $2B LAED6: .byte $2B, $2B, $FF ;Structure #$30 LAED9: .byte $08, $34, $34, $34, $34, $34, $34, $34, $34, $08, $34, $34, $34, $34, $34, $34 LAEE9: .byte $34, $34, $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: LAEEC: .byte $F1, $F1, $F1, $F1 LAEF0: .byte $FF, $FF, $F0, $F0 LAEF4: .byte $64, $64, $64, $64 LAEF8: .byte $FF, $FF, $64, $64 LAEFC: .byte $A4, $FF, $A4, $FF LAF00: .byte $FF, $A5, $FF, $A5 LAF04: .byte $A0, $A0, $A0, $A0 LAF08: .byte $A1, $A1, $A1, $A1 LAF0C: .byte $FF, $FF, $59, $5A LAF10: .byte $FF, $FF, $5A, $5B LAF14: .byte $FF, $FF, $FF, $FF LAF18: .byte $10, $10, $10, $10 LAF1C: .byte $23, $24, $25, $0B LAF20: .byte $1B, $1C, $1D, $1E LAF24: .byte $17, $18, $19, $1A LAF28: .byte $1F, $20, $21, $22 LAF2C: .byte $60, $61, $62, $63 LAF30: .byte $0E, $0F, $FF, $FF LAF34: .byte $0C, $0D, $0D, $0D LAF38: .byte $10, $0D, $FF, $10 LAF3C: .byte $10, $FF, $FF, $FF LAF40: .byte $FF, $FF, $FF, $30 LAF44: .byte $FF, $33, $FF, $36 LAF48: .byte $FF, $39, $FF, $3D LAF4C: .byte $FF, $FF, $31, $32 LAF50: .byte $34, $35, $37, $38 LAF54: .byte $3A, $3B, $3E, $3F LAF58: .byte $3C, $41, $40, $42 LAF5C: .byte $84, $85, $86, $87 LAF60: .byte $80, $81, $82, $83 LAF64: .byte $88, $89, $8A, $8B LAF68: .byte $45, $46, $45, $46 LAF6C: .byte $47, $48, $48, $47 LAF70: .byte $5C, $5D, $5E, $5F LAF74: .byte $B8, $B8, $B9, $B9 LAF78: .byte $74, $75, $75, $74 LAF7C: .byte $C1, $13, $13, $13 LAF80: .byte $36, $BE, $BC, $BD LAF84: .byte $BF, $14, $15, $14 LAF88: .byte $C0, $14, $C0, $16 LAF8C: .byte $FF, $C1, $FF, $FF LAF90: .byte $C2, $14, $FF, $FF LAF94: .byte $30, $13, $BC, $BD LAF98: .byte $13, $14, $15, $16 LAF9C: .byte $D7, $D7, $D7, $D7 LAFA0: .byte $76, $76, $76, $76 LAFA4: .byte $FF, $FF, $BA, $BA LAFA8: .byte $BB, $BB, $BB, $BB LAFAC: .byte $00, $01, $02, $03 LAFB0: .byte $04, $05, $06, $07 LAFB4: .byte $FF, $FF, $08, $09 LAFB8: .byte $FF, $FF, $09, $0A LAFBC: .byte $55, $56, $57, $58 LAFC0: .byte $90, $91, $92, $93 LAFC4: .byte $4B, $4C, $4D, $50 LAFC8: .byte $51, $52, $53, $54 LAFCC: .byte $70, $71, $72, $73 LAFD0: .byte $8C, $8D, $8E, $8F LAFD4: .byte $11, $12, $FF, $11 LAFD8: .byte $11, $12, $12, $11 LAFDC: .byte $11, $12, $12, $FF LAFE0: .byte $C3, $C4, $C5, $C6 LAFE4: .byte $30, $00, $BC, $BD, $CD, $CE, $CF, $D0, $D1, $D2, $D3, $D4, $90, $91, $92, $93 LAFF4: .byte $20, $20, $20, $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. NorfairSQ1IndexData: LB000: .byte $C3 ; LB001: .byte $B6 ;1 3/16 seconds + LB002: .byte $26 ;G3 | LB003: .byte $B3 ;3/4 seconds | LB004: .byte $22 ;F3 | LB005: .byte $B2 ;3/8 seconds | Repeat 3 times LB006: .byte $2C ;A#3 | LB007: .byte $B6 ;1 3/16 seconds | LB008: .byte $26 ;G3 | LB009: .byte $B4 ;1 1/2 seconds | LB00A: .byte $22 ;F3 + LB00B: .byte $FF ; LB00C: .byte $C2 ; LB00D: .byte $B6 ;1 3/16 seconds + LB00E: .byte $30 ;C4 | LB00F: .byte $34 ;D4 | LB010: .byte $B3 ;3/4 seconds | LB011: .byte $3A ;F4 | Repeat 2 times LB012: .byte $B1 ;3/16 seconds | LB013: .byte $38 ;E4 | LB014: .byte $34 ;D4 | LB015: .byte $B4 ;1 1/2 seconds | LB016: .byte $2A ;A3 + LB017: .byte $FF ; LB018: .byte $C2 ; LB019: .byte $B3 ;3/4 seconds + LB01A: .byte $2A ;A3 | LB01B: .byte $B2 ;3/8 seconds | LB01C: .byte $2E ;B3 | LB01D: .byte $B3 ;3/4 seconds | LB01E: .byte $26 ;G3 | Repeat 2 times LB01F: .byte $B2 ;3/8 seconds | LB020: .byte $2A ;A3 | LB021: .byte $B6 ;1 3/16 seconds | LB022: .byte $22 ;F3 | LB023: .byte $02 ;No sound + LB024: .byte $FF ; LB025: .byte $00 ;End Norfair music NorfairSQ2IndexData: LB026: .byte $C3 ; LB027: .byte $B6 ;1 3/16 seconds + LB028: .byte $1E ;D#3 | LB029: .byte $B3 ;3/4 seconds | LB02A: .byte $1A ;C#3 | LB02B: .byte $B2 ;3/8 seconds | Repeat 3 times LB02C: .byte $24 ;F#3 | LB02D: .byte $B6 ;1 3/16 seconds | LB02E: .byte $1E ;D#3 | LB02F: .byte $B4 ;1 1/2 seconds | LB030: .byte $1A ;C#3 + LB031: .byte $FF ; LB032: .byte $C2 ; LB033: .byte $B6 ;1 3/16 seconds + LB034: .byte $26 ;G3 | LB035: .byte $2A ;A3 | LB036: .byte $30 ;C4 | LB037: .byte $B1 ;3/16 seconds | LB038: .byte $20 ;E3 | LB039: .byte $1C ;D3 | LB03A: .byte $B6 ;1 3/16 seconds | LB03B: .byte $20 ;E3 + LB03C: .byte $FF ; LB03D: .byte $C2 ; LB03E: .byte $B1 ;3/16 seconds + LB03F: .byte $20 ;E3 | LB040: .byte $12 ;A2 | LB041: .byte $16 ;B2 | LB042: .byte $20 ;E3 | LB043: .byte $B2 ;3/8 seconds | LB044: .byte $24 ;F#3 | LB045: .byte $B1 ;3/16 seconds | LB046: .byte $1C ;D3 | LB047: .byte $0E ;G2 | LB048: .byte $12 ;A2 | Repeat 2 times LB049: .byte $1C ;D3 | LB04A: .byte $B2 ;3/8 seconds | LB04B: .byte $20 ;E3 | LB04c: .byte $B1 ;3/16 seconds | LB04D: .byte $18 ;C3 | LB04E: .byte $12 ;A2 | LB04F: .byte $14 ;A#2 | LB050: .byte $18 ;C3 | LB051: .byte $14 ;A#2 | LB052: .byte $B6 ;1 3/16 seconds | LB053: .byte $12 ;A2 | LB054: .byte $B1 ;3/16 seconds | LB055: .byte $02 ;No sound + LB056: .byte $FF ; NorfairTriangleIndexData: LB057: .byte $C3 ; LB058: .byte $B1 ;3/16 seconds + LB059: .byte $34 ;D4 | LB05A: .byte $02 ;No sound | LB05B: .byte $3E ;G4 | LB05C: .byte $02 ;No sound | LB05D: .byte $42 ;A4 | LB05E: .byte $02 ;No sound | LB05F: .byte $B3 ;3/4 seconds | LB060: .byte $30 ;C4 | Repeat 3 times LB061: .byte $B1 ;3/16 seconds | LB062: .byte $3A ;F4 | LB063: .byte $02 ;No sound | LB064: .byte $B2 ;3/8 seconds | LB065: .byte $34 ;D4 | LB066: .byte $B3 ;3/4 seconds | LB067: .byte $02 ;No sound | LB068: .byte $30 ;C4 | LB069: .byte $02 ;No sound + LB06A: .byte $FF ; LB06B: .byte $C2 ; LB06C: .byte $B2 ;3/8 seconds + LB06D: .byte $22 ;F3 | LB06E: .byte $30 ;C4 | LB06F: .byte $34 ;D4 | LB070: .byte $26 ;G3 | LB071: .byte $34 ;D4 | LB072: .byte $38 ;E4 | LB073: .byte $2C ;A#3 | Repeat 2 times LB074: .byte $34 ;D4 | LB075: .byte $3A ;F4 | LB076: .byte $B3 ;3/4 seconds | LB077: .byte $18 ;C3 | LB078: .byte $B2 ;3/8 seconds | LB079: .byte $2A ;A3 | LB07A: .byte $02 ;No sound + LB07B: .byte $FF ; LB07C: .byte $C2 ; LB07D: .byte $B3 ;3/4 seconds + LB07E: .byte $1C ;D3 | LB07F: .byte $B2 ;3/8 seconds | LB080: .byte $20 ;E3 | LB081: .byte $B3 ;3/4 seconds | LB082: .byte $18 ;C3 | Repeat 2 times LB083: .byte $B2 ;3/8 seconds | LB084: .byte $1C ;D3 | LB085: .byte $14 ;A#2 | LB086: .byte $14 ;A#2 | LB087: .byte $02 ;No sound | LB088: .byte $B6 ;1 3/16 seconds | LB089: .byte $02 ;No sound + LB08A: .byte $FF ; NorfairNoiseIndexData: LB08B: .byte $E0 ; LB08C: .byte $B2 ;3/8 seconds + LB08D: .byte $01 ;Drumbeat 00 | LB08E: .byte $04 ;Drumbeat 01 | LB08F: .byte $04 ;Drumbeat 01 | LB090: .byte $01 ;Drumbeat 00 | LB091: .byte $04 ;Drumbeat 01 | Repeat 32 times LB092: .byte $04 ;Drumbeat 01 | LB093: .byte $B6 ;1 3/16 seconds | LB094: .byte $04 ;Drumbeat 01 | LB095: .byte $04 ;Drumbeat 01 | LB096: .byte $B2 ;3/8 seconds | LB097: .byte $01 ;Drumbeat 00 + LB098: .byte $FF ; ;Unused. B099: .byte $B9, $30, $3A, $3E, $B6, $42, $B9, $42, $3E, $42, $B3, $44, $B2, $3A, $B9, $3A B0A9: .byte $44, $48, $B4, $4C, $B3, $48, $46, $B6, $48, $B9, $4E, $4C, $48, $B3, $4C, $B2 B0B9: .byte $44, $B9, $44, $4C, $52, $B4, $54, $54, $C4, $B4, $02, $FF, $C3, $B2, $26, $B9 B0C9: .byte $26, $3E, $34, $B2, $26, $B9, $26, $34, $26, $B2, $2C, $B9, $2C, $3A, $2C, $B2 B0D9: .byte $2C, $B9, $2C, $3A, $2C, $FF, $C4, $B2, $26, $B9, $34, $26, $26, $FF, $D0, $B9 B0E9: .byte $18, $26, $18, $B2, $18, $FF, $C2, $B2, $1E, $B9, $1E, $18, $1E, $B2, $1E, $B9 B0F9: .byte $1E, $18, $1E, $B2, $1C, $B9, $1C, $14, $1C, $B2, $1C, $B9, $1C, $14, $1C, $FF B109: .byte $B2, $26, $12, $16, $18, $1C, $20, $24, $26, $B2, $28, $B9, $28, $1E, $18, $B2 B119: .byte $10, $B9, $30, $2C, $28, $B2, $1E, $1C, $18, $14, $2A, $2A, $2A, $2A, $CC, $B9 B129: .byte $2A, $FF, $E8, $B2, $04, $04, $04, $B9, $04, $04, $04, $FF, $E0, $E0, $F0, $00 B139: .byte $00, $00, $00, $00, $00, $00, $00, $21, $80, $40, $02, $05, $26, $52, $63, $00 B149: .byte $00, $00, $06, $07, $67, $73, $73, $FF, $AF, $2F, $07, $0B, $8D, $A7, $B1, $00 B159: .byte $00, $00, $00, $00, $80, $80, $80, $F8, $B8, $F8, $F8, $F0, $F0, $F8, $FC, $00 B169: .byte $00, $00, $00, $00, $00, $00, $00, $07, $07, $07, $07, $07, $03, $03, $01, $00 B179: .byte $00, $00, $00, $00, $00, $00, $80, $FF, $C7, $83, $03, $C7, $CF, $FE, $EC, $00 B189: .byte $30, $78, $F8, $30, $00, $01, $12, $F5, $EA, $FB, $FD, $F9, $1E, $0E, $44, $07 B199: .byte $03, $03, $01, $01, $E0, $10, $48, $2B, $3B, $1B, $5A, $D0, $D1, $C3, $C3, $3B B1A9: .byte $3B, $9B, $DA, $D0, $D0, $C0, $C0, $2C, $23, $20, $20, $30, $98, $CF, $C7, $00 B1B9: .byte $00, $00, $00, $00, $00, $00, $30, $1F, $80, $C0, $C0, $60, $70, $FC, $C0, $00 B1C9: .byte $00, $00, $00, $00, $00, $00, $00, $01, $00, $00, $00, $00, $00, $00, $00, $80 B1D9: .byte $80, $C0, $78, $4C, $C7, $80, $80, $C4, $A5, $45, $0B, $1B, $03, $03, $00, $3A B1E9: .byte $13, $31, $63, $C3, $83, $03, $04, $E6, $E6, $C4, $8E, $1C, $3C, $18, $30, $E8 B1F9: .byte $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. LBD4B: .byte $0B, $FF, $F0, $04, $04 LBD50: .word $B000, $B026, $B057, $B08B ;Kraid area music(not used this memory page). LBD58: .byte $00, $FF, $F0, $00, $00 LBD5D: .word $0100, $0300, $0500, $0000 ;Item room music. LBD65: .byte $0B, $FF, $03, $00, $00 LBD6A: .word $BDDA, $BDDC, $BDCD, $0000 ;Ridley area music(not used this memory page). LBD72: .byte $0B, $FF, $F0, $01, $01 LBD77: .word $0100, $0300, $0500, $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. ;The following data is 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/norfair_page.1429571233.txt.gz · Last modified: 2015/04/20 23:07 by gf_kennon
