; ------------------- ; 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 ;Tourian (memory page 3) .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 ]----------------------------------------- ;Kraid hideout enemy tile patterns. L8D60: .byte $03, $0F, $05, $32, $D1, $48, $12, $24, $01, $02, $02, $11, $48, $20, $00, $00 L8D70: .byte $E0, $F0, $EC, $DE, $92, $8D, $A0, $3C, $C0, $00, $0C, $02, $01, $0C, $02, $00 L8D80: .byte $00, $80, $58, $38, $70, $23, $83, $CD, $00, $00, $18, $3C, $7C, $38, $30, $00 L8D90: .byte $0E, $59, $B0, $60, $C0, $00, $00, $80, $0E, $59, $B7, $6C, $DE, $2F, $56, $28 L8DA0: .byte $00, $00, $00, $00, $00, $38, $48, $90, $00, $00, $00, $00, $00, $38, $7C, $FA L8DB0: .byte $00, $01, $00, $03, $0C, $08, $10, $03, $00, $00, $00, $03, $0F, $0C, $58, $3F L8DC0: .byte $48, $28, $AF, $3D, $78, $CD, $B6, $6F, $00, $07, $1C, $70, $4A, $01, $32, $00 L8DD0: .byte $00, $00, $B0, $E8, $74, $BC, $18, $18, $00, $50, $B0, $20, $00, $88, $88, $20 L8DE0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8DF0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L8E00: .byte $00, $07, $0F, $0A, $00, $02, $00, $38, $00, $07, $0F, $1A, $18, $1F, $0F, $3B L8E10: .byte $24, $18, $95, $95, $39, $31, $29, $24, $24, $1C, $9C, $D8, $F4, $EC, $B4, $38 L8E20: .byte $38, $7C, $D4, $C4, $78, $00, $00, $00, $38, $7C, $D6, $C6, $FE, $7C, $38, $00 L8E30: .byte $00, $00, $38, $7C, $D6, $44, $38, $00, $00, $00, $38, $7C, $D6, $C6, $FE, $7C L8E40: .byte $81, $A5, $E7, $24, $00, $24, $18, $24, $81, $A5, $E7, $66, $66, $C3, $66, $18 L8E50: .byte $00, $24, $1B, $1F, $3B, $44, $5B, $3F, $BD, $9B, $E4, $C0, $C4, $98, $83, $C7 L8E60: .byte $00, $20, $60, $D1, $D4, $60, $20, $00, $02, $17, $1F, $1F, $1F, $1F, $17, $02 L8E70: .byte $00, $00, $00, $00, $60, $00, $00, $00, $80, $D0, $F4, $FE, $FE, $F4, $D0, $80 L8E80: .byte $76, $02, $02, $04, $38, $00, $00, $00, $00, $50, $00, $28, $00, $01, $02, $00 L8E90: .byte $C4, $CE, $7F, $7B, $79, $02, $02, $00, $10, $00, $80, $00, $00, $50, $A4, $00 L8EA0: .byte $60, $A0, $C2, $E7, $71, $46, $98, $20, $6E, $3C, $18, $08, $00, $50, $D0, $04 L8EB0: .byte $04, $30, $48, $00, $80, $11, $30, $21, $07, $32, $78, $7E, $F0, $C1, $5C, $3C L8EC0: .byte $61, $32, $1E, $81, $F8, $FF, $FF, $F9, $00, $02, $00, $00, $D0, $00, $00, $08 L8ED0: .byte $FC, $FC, $7E, $36, $BE, $0C, $E0, $F8, $44, $2C, $12, $00, $20, $00, $20, $10 L8EE0: .byte $00, $80, $C2, $E7, $7F, $7F, $3E, $0C, $00, $00, $80, $C1, $43, $77, $3E, $0C L8EF0: .byte $0E, $3C, $78, $70, $F0, $F8, $7C, $38, $0C, $38, $60, $60, $C0, $E0, $70, $38 L8F00: .byte $7C, $7C, $38, $10, $00, $00, $00, $00, $7C, $FE, $FE, $D6, $46, $3C, $00, $00 L8F10: .byte $28, $30, $E8, $E4, $14, $30, $28, $44, $34, $2C, $F4, $38, $1C, $3C, $2C, $44 L8F20: .byte $8C, $6C, $2F, $35, $4A, $91, $00, $3E, $88, $68, $2F, $7B, $75, $CE, $00, $00 L8F30: .byte $00, $17, $FC, $5E, $A2, $53, $00, $00, $38, $07, $E4, $BE, $5E, $E7, $00, $00 L8F40: .byte $00, $02, $0D, $17, $2D, $62, $6D, $2E, $83, $C5, $F2, $E0, $C2, $81, $8C, $CE L8F50: .byte $00, $40, $B0, $E8, $B4, $46, $B6, $74, $C1, $A3, $4F, $07, $43, $81, $31, $73 L8F60: .byte $00, $00, $00, $00, $00, $20, $73, $DF, $00, $00, $02, $17, $1F, $14, $11, $18 L8F70: .byte $00, $00, $00, $00, $00, $00, $12, $C0, $00, $00, $80, $D0, $F4, $FE, $70, $00 L8F80: .byte $00, $00, $00, $00, $18, $3C, $3A, $17, $00, $00, $00, $00, $00, $10, $02, $07 L8F90: .byte $00, $00, $08, $00, $00, $81, $81, $DB, $00, $00, $24, $76, $6E, $76, $24, $00 L8FA0: .byte $00, $00, $00, $18, $3D, $3B, $10, $00, $00, $00, $00, $00, $11, $03, $00, $00 L8FB0: .byte $40, $82, $05, $23, $40, $03, $1E, $10, $78, $F0, $C0, $50, $30, $68, $3C, $5E L8FC0: .byte $E3, $F0, $7E, $09, $05, $E8, $31, $9E, $20, $10, $02, $00, $06, $0C, $01, $00 L8FD0: .byte $F0, $E8, $1C, $9E, $42, $9A, $3C, $7E, $00, $00, $00, $02, $42, $C2, $80, $00 L8FE0: .byte $01, $03, $0D, $09, $13, $07, $03, $00, $38, $10, $10, $36, $24, $40, $00, $00 L8FF0: .byte $F8, $EE, $9F, $7F, $9F, $E0, $80, $00, $00, $0E, $00, $70, $10, $00, $00, $00 L9000: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9010: .byte $00, $00, $80, $80, $0C, $0E, $13, $10, $C0, $20, $90, $90, $3C, $E2, $D1, $90 L9020: .byte $F0, $38, $11, $01, $00, $00, $08, $08, $F3, $0C, $09, $09, $0C, $07, $0B, $09 L9030: .byte $00, $00, $01, $01, $30, $70, $C8, $08, $03, $04, $09, $09, $3C, $47, $8B, $09 L9040: .byte $26, $31, $10, $1C, $18, $0C, $00, $00, $C6, $C0, $60, $60, $20, $30, $18, $08 L9050: .byte $5E, $2C, $20, $3C, $24, $18, $00, $00, $87, $C3, $42, $42, $42, $66, $24, $24 L9060: .byte $00, $00, $00, $00, $0B, $27, $73, $DF, $02, $17, $1F, $34, $0B, $07, $11, $18 L9070: .byte $00, $00, $00, $00, $00, $8C, $F2, $E0, $80, $D0, $F4, $FE, $60, $80, $30, $00 L9080: .byte $18, $18, $98, $98, $64, $18, $7E, $E6, $18, $18, $18, $00, $00, $00, $00, $E6 L9090: .byte $BD, $DB, $18, $24, $3C, $66, $66, $24, $00, $00, $00, $42, $00, $00, $42, $24 L90A0: .byte $03, $1A, $3C, $38, $10, $08, $18, $18, $03, $02, $10, $00, $00, $08, $18, $18 L90B0: .byte $20, $01, $03, $07, $01, $03, $07, $02, $38, $10, $B0, $60, $7C, $28, $00, $00 L90C0: .byte $EF, $F7, $C5, $90, $FC, $FF, $3E, $E3, $00, $00, $00, $20, $0C, $03, $00, $E0 L90D0: .byte $FC, $F8, $F2, $C0, $01, $60, $90, $D0, $00, $00, $02, $0E, $01, $60, $F0, $10 L90E0: .byte $00, $00, $00, $F8, $00, $F8, $00, $00, $00, $00, $00, $F8, $07, $00, $00, $00 L90F0: .byte $7C, $F8, $10, $84, $3E, $7F, $19, $00, $60, $F0, $10, $00, $02, $07, $01, $00 L9100: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9110: .byte $0F, $1C, $88, $80, $00, $00, $10, $10, $CF, $30, $90, $90, $30, $E0, $D0, $90 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 ;Ridley hideout enemy tile patterns. L9160: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9170: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9180: .byte $00, $00, $08, $31, $7A, $DA, $19, $FD, $00, $00, $00, $21, $5A, $DA, $99, $FD L9190: .byte $8C, $9C, $BC, $78, $E0, $D8, $A2, $48, $8C, $98, $B0, $60, $C0, $9E, $3D, $77 L91A0: .byte $00, $00, $00, $40, $E0, $E0, $F0, $78, $00, $00, $00, $40, $E0, $C0, $40, $60 L91B0: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L91C0: .byte $18, $0C, $04, $02, $01, $0E, $18, $2C, $06, $02, $03, $01, $00, $00, $07, $13 L91D0: .byte $19, $00, $40, $18, $0C, $96, $56, $00, $DE, $6E, $DE, $C6, $E3, $61, $25, $B9 L91E0: .byte $00, $00, $00, $03, $2E, $2E, $12, $33, $3C, $7F, $FF, $FC, $D1, $50, $69, $0E L91F0: .byte $00, $00, $00, $80, $40, $70, $7C, $35, $00, $00, $C0, $60, $B0, $68, $73, $B2 L9200: .byte $00, $05, $0C, $5F, $34, $19, $33, $BE, $00, $05, $0C, $5F, $34, $19, $31, $B6 L9210: .byte $40, $20, $B4, $48, $DA, $66, $63, $03, $40, $20, $B4, $48, $9A, $66, $4B, $11 L9220: .byte $00, $09, $02, $1A, $3D, $6F, $55, $2A, $00, $09, $02, $1A, $3D, $6F, $55, $2E L9230: .byte $40, $40, $20, $E8, $A4, $9C, $D6, $CA, $40, $40, $20, $E8, $A4, $1C, $96, $CA L9240: .byte $80, $C1, $63, $78, $3E, $3E, $1E, $0E, $80, $40, $20, $18, $04, $00, $00, $00 L9250: .byte $5A, $DB, $DB, $FF, $7E, $18, $81, $81, $50, $00, $00, $00, $00, $00, $00, $24 L9260: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9270: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9280: .byte $F2, $64, $0F, $DA, $8D, $5B, $10, $10, $FB, $70, $01, $C0, $8D, $58, $10, $10 L9290: .byte $90, $40, $20, $80, $B0, $70, $5C, $60, $EF, $3E, $18, $80, $00, $10, $5C, $60 L92A0: .byte $B8, $38, $30, $80, $80, $60, $20, $18, $A0, $A4, $66, $C6, $3E, $0C, $20, $18 L92B0: .byte $30, $27, $2D, $38, $2A, $5E, $70, $40, $10, $00, $01, $00, $12, $20, $00, $00 L92C0: .byte $0A, $40, $40, $51, $78, $C4, $C2, $90, $31, $3D, $3B, $2C, $06, $3B, $3D, $6F L92D0: .byte $00, $08, $10, $80, $42, $00, $2E, $5A, $F9, $B1, $40, $60, $3E, $0E, $82, $92 L92E0: .byte $00, $00, $00, $00, $00, $0C, $0E, $0C, $00, $00, $00, $0C, $1E, $13, $15, $16 L92F0: .byte $00, $01, $01, $00, $00, $08, $04, $12, $00, $00, $00, $06, $0F, $07, $03, $09 L9300: .byte $5D, $23, $54, $2B, $24, $1E, $0F, $04, $5D, $23, $55, $2B, $20, $1C, $0F, $04 L9310: .byte $01, $A7, $06, $0B, $4A, $D6, $2C, $F0, $59, $F1, $52, $FB, $6A, $D6, $2C, $F0 L9320: .byte $EC, $F5, $7C, $99, $42, $60, $38, $0F, $CE, $D5, $70, $9D, $47, $68, $38, $0F L9330: .byte $AF, $73, $36, $26, $0C, $1C, $78, $C0, $AF, $73, $76, $A6, $4C, $1C, $78, $C0 L9340: .byte $69, $2C, $0E, $77, $D4, $B4, $E2, $00, $03, $01, $00, $70, $F0, $F0, $E0, $00 L9350: .byte $69, $2C, $0E, $37, $14, $04, $02, $00, $03, $01, $00, $30, $10, $00, $00, $00 L9360: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9370: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9380: .byte $00, $00, $00, $00, $10, $20, $00, $00, $00, $00, $18, $3C, $3C, $FE, $7D, $FF L9390: .byte $81, $42, $24, $24, $3C, $7E, $C3, $A5, $00, $00, $00, $00, $00, $00, $00, $24 L93A0: .byte $00, $00, $00, $00, $10, $20, $00, $00, $00, $00, $18, $3C, $3F, $FF, $7C, $FE L93B0: .byte $00, $00, $80, $00, $00, $08, $04, $82, $00, $00, $00, $86, $8F, $87, $83, $41 L93C0: .byte $D1, $E4, $88, $00, $00, $30, $88, $70, $2E, $18, $73, $FF, $7F, $8F, $47, $8F L93D0: .byte $80, $00, $00, $20, $00, $10, $30, $70, $00, $00, $C0, $C0, $F0, $E0, $C0, $80 L93E0: .byte $0C, $0C, $0C, $18, $18, $10, $10, $00, $30, $34, $3C, $28, $38, $30, $30, $20 L93F0: .byte $01, $05, $1D, $20, $01, $00, $00, $00, $3C, $38, $20, $40, $40, $40, $40, $80 L9400: .byte $00, $03, $1C, $90, $80, $80, $40, $20, $FF, $FC, $E0, $60, $78, $7C, $3C, $1E L9410: .byte $20, $C0, $00, $00, $00, $00, $00, $00, $C0, $00, $00, $00, $00, $00, $00, $00 L9420: .byte $38, $4C, $86, $36, $7E, $7E, $6C, $38, $00, $08, $04, $14, $3C, $38, $00, $00 L9430: .byte $9E, $7F, $3F, $07, $4E, $3D, $03, $0A, $F0, $68, $30, $3C, $5A, $3F, $07, $0B L9440: .byte $12, $04, $2F, $2F, $3F, $3F, $5F, $2F, $13, $0F, $3D, $3E, $34, $78, $70, $68 L9450: .byte $00, $80, $60, $F0, $E8, $F8, $F0, $FC, $C0, $70, $98, $0C, $14, $06, $0E, $02 L9460: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9470: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9480: .byte $00, $18, $20, $00, $00, $00, $00, $00, $64, $C0, $1C, $78, $3C, $12, $22, $20 L9490: .byte $E7, $5A, $3C, $5A, $81, $81, $42, $00, $66, $42, $00, $00, $00, $00, $00, $00 L94A0: .byte $00, $00, $00, $00, $10, $20, $00, $00, $01, $03, $1B, $3E, $3C, $FE, $7C, $FE L94B0: .byte $41, $21, $10, $04, $00, $00, $00, $00, $20, $1C, $0E, $03, $00, $00, $00, $00 L94C0: .byte $00, $00, $00, $00, $00, $01, $3E, $00, $FF, $FC, $F8, $73, $7F, $7E, $00, $00 L94D0: .byte $00, $00, $00, $00, $08, $97, $59, $08, $E0, $00, $00, $EC, $F6, $73, $39, $08 L94E0: .byte $00, $00, $01, $07, $0F, $0D, $1B, $10, $00, $01, $06, $09, $15, $1F, $2B, $30 L94F0: .byte $00, $40, $E0, $D8, $D8, $BC, $3E, $0C, $60, $B0, $D8, $E4, $F6, $FB, $39, $0A L9500: .byte $30, $26, $08, $18, $33, $06, $00, $00, $0E, $19, $13, $1B, $32, $06, $00, $00 L9510: .byte $04, $02, $31, $5B, $7B, $7E, $3E, $18, $00, $00, $00, $1A, $3A, $1C, $00, $00 L9520: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9530: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF L9540: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00 L9550: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ;---------------------------------------------------------------------------------------------------- PalPntrTbl: L9560: .word Palette00 ;($A718) L9562: .word Palette01 ;($A73C) L9564: .word Palette02 ;($A748) L9566: .word Palette03 ;($A742) L9568: .word Palette04 ;($A74E) L956A: .word Palette05 ;($A754) L956C: .word Palette05 ;($A754) L956E: .word Palette06 ;($A759) L9570: .word Palette07 ;($A75E) L9572: .word Palette08 ;($A773) L9574: .word Palette09 ;($A788) L9576: .word Palette0A ;($A78D) L9578: .word Palette0A ;($A78D) L957A: .word Palette0A ;($A78D) L957C: .word Palette0A ;($A78D) L957E: .word Palette0A ;($A78D) L9580: .word Palette0A ;($A78D) L9582: .word Palette0A ;($A78D) L9584: .word Palette0A ;($A78D) L9586: .word Palette0A ;($A78D) L9588: .word Palette0B ;($A794) L958A: .word Palette0C ;($A79B) L958C: .word Palette0D ;($A7A2) L958E: .word Palette0E ;($A7A9) L9590: .word Palette0F ;($A7B1) L9592: .word Palette10 ;($A7B9) L9594: .word Palette11 ;($A7C1) L9596: .word Palette12 ;($A7C9) AreaPointers: L9598: .word SpecItmsTbl ;($A83B)Beginning of special items table. L959A: .word RmPtrTbl ;($A7D1)Beginning of room pointer table. L959C: .word StrctPtrTbl ;($A7FB)Beginning of structure pointer table. L959E: .word MacroDefs ;($AE49)Beginning of macro definitions. L95A0: .word EnemyFramePtrTbl1 ;($A42C)Address table into enemy animation data. Two--> L95A2: .word EnemyFramePtrTbl2 ;($A52C)tables needed to accommodate all entries. L95A4: .word EnemyPlacePtrTbl ;($A540)Pointers to enemy frame placement data. L95A6: .word EnemyAnimIndexTbl ;($A406)Index to values in addr tables for enemy animations. L95A8: JMP $A320 L95AB: JMP $A315 L95AE: JMP $9C6F L95B1: JMP $9CE6 L95B4: JMP $9D21 L95B7: JMP $9D3D L95BA: JMP $9D6C L95BD: JMP $A0C6 L95C0: JMP $A142 AreaRoutine: L95C3: JMP $9B25 ;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 $40 ;Tourian music init flag. L95CE: .byte $00 ;Base damage caused by area enemies to lower health byte. L95CF: .byte $03 ;Base damage caused by area enemies to upper health byte. ;Special room numbers(used to start item room music). L95D0: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF L95D7: .byte $03 ;Samus start x coord on world map. L95D8: .byte $04 ;Samus start y coord on world map. L95D9: .byte $6E ;Samus start verticle screen position. L95DA: .byte $06, $00, $03, $21, $00, $00, $00, $00, $00, $10, $00 L95E5: LDA $6B02,X L95E8: JSR $8024 L95EB: .word $97F9 L95ED: .word $97F9 L95EF: .word $9A27 L95F1: .word $97DC L95F3: .word $9A2C L95F5: .word $97DC L95F7: .word $97DC L95F9: .word $97DC L95FB: .word $97DC L95FD: .word $97DC L95FF: .word $97DC L9601: .word $97DC L9603: .word $97DC L9605: .word $97DC L9607: .word $97DC L9609: .word $97DC L960B: .byte $08, $08, $08, $08, $16, $16, $18, $18, $1F, $1F, $00, $00, $00, $00, $00, $00 L961B: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L962B: .byte $FF, $FF, $01, $FF, $01, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L963B: .byte $05, $05, $05, $05, $16, $16, $18, $18, $1B, $1B, $00, $00, $00, $00, $00, $00 L964B: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L965B: .byte $05, $05, $05, $05, $16, $16, $18, $18, $1D, $1D, $00, $00, $00, $00, $00, $00 L966B: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L967B: .byte $00, $00, $00, $00, $02, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L968B: .byte $FE, $FE, $00, $00, $C0, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L969B: .byte $01, $01, $00, $00, $01, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L96AB: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L96BB: .byte $01, $01, $00, $00, $01, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L96CB: .byte $00, $02, $00, $00, $04, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L96DB: .word $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5 L96EB: .word $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5 L96FB: .word $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5 L970B: .word $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5, $97D5 L971B: .word $97D5, $97D5, $97D5, $97D5 L9723: .byte $00, $00, $00, $00, $00, $00, $00, $00, $18, $30, $00, $C0, $D0, $00, $00, $7F L9733: .byte $80, $58, $54, $70, $00, $00, $00, $00, $00, $00, $00, $00, $18, $30, $00, $00 L9743: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L9753: .byte $00, $00, $00, $04, $02, $00, $00, $00, $0C, $FC, $FC, $00, $00, $00, $00, $00 L9763: .byte $00, $00, $00, $00, $00, $00, $00, $02, $02, $00, $00, $00, $02, $02, $02, $02 L9773: .byte $00, $00, $00, $00, $00, $00, $00, $00 L977B: .byte $50, $50, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L978B: .byte $00, $00, $26, $26, $26, $26, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 L979B: .byte $0C, $F4, $00, $00, $00, $00, $00, $00, $F4, $00, $00, $00 L97A7: .word $97D5, $97D5, $97D8, $97DB, $A32B, $A330, $A337, $A348 L97B7: .word $A359, $A36A, $A37B, $A388, $A391, $A3A2, $A3B3, $A3C4 L97C7: .word $A3D5, $A3DE, $A3E7, $A3F0, $A3F9 L97D1: .byte $00, $00, $00, $01 L97D5: .byte $50, $22, $FF L97D8: .byte $50, $30, $FF L97DB: .byte $FF L97DC: LDA #$00 L97DE: STA $6AF4,X L97E1: RTS L97E2: LDA $81 L97E4: CMP #$01 L97E6: BEQ $97F1 L97E8: CMP #$03 L97EA: BEQ $97F6 L97EC: LDA $00 L97EE: JMP $8000 L97F1: LDA $01 L97F3: JMP $8003 L97F6: JMP $8006 L97F9: LDY $010B L97FC: INY L97FD: BEQ $9804 L97FF: LDA #$00 L9801: STA $6AF4,X L9804: LDA #$0F L9806: STA $00 L9808: STA $01 L980A: LDA $0405,X L980D: ASL L980E: BMI $97E2 L9810: LDA $6AF4,X L9813: CMP #$03 L9815: BEQ $97E2 L9817: JSR $99B7 L981A: LDA $77F8,Y L981D: BEQ $9822 L981F: JMP $9899 L9822: LDY $0408,X L9825: LDA $77F6,Y L9828: PHA L9829: LDA $0402,X L982C: BPL $983B L982E: PLA L982F: JSR $95C6 L9832: PHA L9833: LDA #$00 L9835: CMP $0406,X L9838: SBC $0402,X L983B: CMP $77F6,Y L983E: PLA L983F: BCC $9849 L9841: STA $0402,X L9844: LDA #$00 L9846: STA $0406,X L9849: LDA $77F6,Y L984C: PHA L984D: LDA $0403,X L9850: BPL $985F L9852: PLA L9853: JSR $95C6 L9856: PHA L9857: LDA #$00 L9859: CMP $0407,X L985C: SBC $0403,X L985F: CMP $77F6,Y L9862: PLA L9863: BCC $986D L9865: STA $0403,X L9868: LDA #$00 L986A: STA $0407,X L986D: LDA $0405,X L9870: PHA L9871: JSR $9A06 L9874: STA $6AFF,X L9877: PLA L9878: LSR L9879: LSR L987A: JSR $9A06 L987D: STA $6AFE,X L9880: LDA $6AF4,X L9883: CMP #$04 L9885: BNE $9894 L9887: LDY $040B,X L988A: INY L988B: BNE $9899 L988D: LDA #$05 L988F: STA $040B,X L9892: BNE $9899 L9894: LDA #$FF L9896: STA $040B,X L9899: LDA $81 L989B: CMP #$06 L989D: BNE $98A9 L989F: CMP $6AF4,X L98A2: BEQ $98A9 L98A4: LDA #$04 L98A6: STA $6AF4,X L98A9: LDA $0404,X L98AC: AND #$20 L98AE: BEQ $990F L98B0: JSR $99B7 L98B3: LDA $77F8,Y L98B6: BEQ $98EF L98B8: LDA $040E,X L98BB: CMP #$07 L98BD: BEQ $98C3 L98BF: CMP #$0A L98C1: BNE $9932 L98C3: LDA $2D L98C5: AND #$02 L98C7: BNE $9932 L98C9: LDA $77F8,Y L98CC: CLC L98CD: ADC #$10 L98CF: STA $77F8,Y L98D2: AND #$70 L98D4: CMP #$50 L98D6: BNE $9932 L98D8: LDA #$02 L98DA: ORA $040F,X L98DD: STA $040C,X L98E0: LDA #$06 L98E2: STA $6AF4,X L98E5: LDA #$20 L98E7: STA $040F,X L98EA: LDA #$01 L98EC: STA $040D,X L98EF: LDA #$00 L98F1: STA $0404,X L98F4: STA $77F8,Y L98F7: STA $0406,X L98FA: STA $0407,X L98FD: LDA $6AFE,X L9900: JSR $9A10 L9903: STA $0402,X L9906: LDA $6AFF,X L9909: JSR $9A10 L990C: STA $0403,X L990F: JSR $99B7 L9912: LDA $77F8,Y L9915: BNE $9932 L9917: LDA $0404,X L991A: AND #$04 L991C: BEQ $9964 L991E: LDA $0403,X L9921: AND #$80 L9923: ORA #$01 L9925: TAY L9926: JSR $99C3 L9929: JSR $99BD L992C: TYA L992D: STA $77F8,X L9930: TXA L9931: TAY L9932: TYA L9933: TAX L9934: LDA $77F8,X L9937: PHP L9938: AND #$0F L993A: CMP #$0C L993C: BEQ $9941 L993E: INC $77F8,X L9941: TAY L9942: LDA $99D7,Y L9945: STA $04 L9947: STY $05 L9949: LDA #$0C L994B: SEC L994C: SBC $05 L994E: LDX $4B L9950: PLP L9951: BMI $9956 L9953: JSR $95C6 L9956: STA $05 L9958: JSR $99E4 L995B: JSR $8027 L995E: JSR $99F4 L9961: JMP $9967 L9964: JSR $99AE L9967: LDA $6AF4,X L996A: CMP #$03 L996C: BNE $9971 L996E: JSR $99AE L9971: LDY #$00 L9973: LDA $77F8 L9976: ORA $77F9 L9979: ORA $77FA L997C: ORA $77FB L997F: ORA $77FC L9982: ORA $77FD L9985: AND #$0C L9987: CMP #$0C L9989: BNE $999E L998B: LDA $0106 L998E: ORA $0107 L9991: BEQ $999E L9993: STY $6F L9995: LDY #$04 L9997: STY $6E L9999: JSR $8042 L999C: LDY #$01 L999E: STY $92 L99A0: LDA $6B L99A2: BMI $99AB L99A4: LDA $6B02,X L99A7: ORA #$A2 L99A9: STA $6B L99AB: JMP $97E2 L99AE: JSR $99B7 L99B1: LDA #$00 L99B3: STA $77F8,Y L99B6: RTS L99B7: TXA L99B8: JSR $9B1B L99BB: TAY L99BC: RTS L99BD: TXA L99BE: JSR $9B1B L99C1: TAX L99C2: RTS L99C3: LDA #$00 L99C5: STA $0402,X L99C8: STA $0403,X L99CB: STA $0407,X L99CE: STA $0406,X L99D1: STA $6AFF,X L99D4: STA $6AFE,X L99D7: RTS L99D8: .byte $00, $FC, $F9, $F7, $F6, $F6, $F5, $F5, $F5, $F6, $F6, $F8 L99E4: LDA $030E L99E7: STA $09 L99E9: LDA $030D L99EC: STA $08 L99EE: LDA $030C L99F1: STA $0B L99F3: RTS L99F4: LDA $09 L99F6: STA $0401,X L99F9: LDA $08 L99FB: STA $0400,X L99FE: LDA $0B L9A00: AND #$01 L9A02: STA $6AFB,X L9A05: RTS L9A06: LSR L9A07: LDA $0408,X L9A0A: ROL L9A0B: TAY L9A0C: LDA $77F2,Y L9A0F: RTS L9A10: ASL L9A11: ROL L9A12: AND #$01 L9A14: TAY L9A15: LDA $77F0,Y L9A18: RTS L9A19: .byte $F8, $08, $30, $D0, $60, $A0, $02, $04, $00, $00, $00, $00, $00, $00 L9A27: LDA #$01 L9A29: JMP $8003 L9A2C: LDY $6AF4,X L9A2F: CPY #$02 L9A31: BNE $9AB0 L9A33: DEY L9A34: CPY $81 L9A36: BNE $9AB0 L9A38: LDA #$00 L9A3A: JSR $99D1 L9A3D: STA $6AFC,X L9A40: STA $6AFD,X L9A43: LDA $030E L9A46: SEC L9A47: SBC $0401,X L9A4A: STA $01 L9A4C: LDA $0405,X L9A4F: PHA L9A50: LSR L9A51: PHA L9A52: BCC $9A5A L9A54: LDA #$00 L9A56: SBC $01 L9A58: STA $01 L9A5A: LDA $030D L9A5D: SEC L9A5E: SBC $0400,X L9A61: STA $00 L9A63: PLA L9A64: LSR L9A65: LSR L9A66: BCC $9A6E L9A68: LDA #$00 L9A6A: SBC $00 L9A6C: STA $00 L9A6E: LDA $00 L9A70: ORA $01 L9A72: LDY #$03 L9A74: ASL L9A75: BCS $9A7A L9A77: DEY L9A78: BNE $9A74 L9A7A: DEY L9A7B: BMI $9A83 L9A7D: LSR $00 L9A7F: LSR $01 L9A81: BPL $9A7A L9A83: JSR $9AF9 L9A86: PLA L9A87: LSR L9A88: PHA L9A89: BCC $9A9B L9A8B: LDA #$00 L9A8D: SBC $0407,X L9A90: STA $0407,X L9A93: LDA #$00 L9A95: SBC $0403,X L9A98: STA $0403,X L9A9B: PLA L9A9C: LSR L9A9D: LSR L9A9E: BCC $9AB0 L9AA0: LDA #$00 L9AA2: SBC $0406,X L9AA5: STA $0406,X L9AA8: LDA #$00 L9AAA: SBC $0402,X L9AAD: STA $0402,X L9AB0: LDA $0405,X L9AB3: ASL L9AB4: BMI $9AF4 L9AB6: LDA $0406,X L9AB9: CLC L9ABA: ADC $6AFC,X L9ABD: STA $6AFC,X L9AC0: LDA $0402,X L9AC3: ADC #$00 L9AC5: STA $04 L9AC7: LDA $0407,X L9ACA: CLC L9ACB: ADC $6AFD,X L9ACE: STA $6AFD,X L9AD1: LDA $0403,X L9AD4: ADC #$00 L9AD6: STA $05 L9AD8: LDA $0400,X L9ADB: STA $08 L9ADD: LDA $0401,X L9AE0: STA $09 L9AE2: LDA $6AFB,X L9AE5: STA $0B L9AE7: JSR $8027 L9AEA: BCS $9AF1 L9AEC: LDA #$00 L9AEE: STA $6AF4,X L9AF1: JSR $99F4 L9AF4: LDA #$08 L9AF6: JMP $8003 L9AF9: LDA $00 L9AFB: PHA L9AFC: JSR $9B1B L9AFF: STA $0402,X L9B02: PLA L9B03: JSR $9B20 L9B06: STA $0406,X L9B09: LDA $01 L9B0B: PHA L9B0C: JSR $9B1B L9B0F: STA $0403,X L9B12: PLA L9B13: JSR $9B20 L9B16: STA $0407,X L9B19: RTS L9B1A: LSR L9B1B: LSR L9B1C: LSR L9B1D: LSR L9B1E: LSR L9B1F: RTS L9B20: ASL L9B21: ASL L9B22: ASL L9B23: ASL L9B24: RTS L9B25: JSR $9B37 L9B28: JSR $9DD4 L9B2B: JSR $A1E7 L9B2E: JSR $A238 L9B31: JSR $A28B L9B34: JMP $A15E L9B37: LDX #$78 L9B39: JSR $9B44 L9B3C: LDA $97 L9B3E: SEC L9B3F: SBC #$08 L9B41: TAX L9B42: BNE $9B39 L9B44: STX $97 L9B46: LDY $6BF4,X L9B49: BNE $9B4C L9B4B: RTS L9B4C: JSR $9C4D L9B4F: TYA L9B50: BNE $9B4B L9B52: LDY $010B L9B55: INY L9B56: BNE $9B65 L9B58: LDA $6BF8,X L9B5B: CMP #$05 L9B5D: BEQ $9B4B L9B5F: JSR $9B70 L9B62: JMP $9C2B L9B65: LDA $2D L9B67: AND #$02 L9B69: BNE $9B4B L9B6B: LDA #$19 L9B6D: JMP $9C31 L9B70: LDY $6BF8,X L9B73: LDA $6BFA,X L9B76: BNE $9B81 L9B78: LDA $9D8F,Y L9B7B: STA $6BFA,X L9B7E: INC $6BFB,X L9B81: DEC $6BFA,X L9B84: LDA $9D94,Y L9B87: CLC L9B88: ADC $6BFB,X L9B8B: TAY L9B8C: LDA $9D99,Y L9B8F: BPL $9BAB L9B91: CMP #$FF L9B93: BNE $9B9F L9B95: LDY $6BF8,X L9B98: LDA #$00 L9B9A: STA $6BFB,X L9B9D: BEQ $9B84 L9B9F: INC $6BFB,X L9BA2: JSR $9BAF L9BA5: LDY $6BF8,X L9BA8: JMP $9B84 L9BAB: STA $6BF9,X L9BAE: RTS L9BAF: PHA L9BB0: LDA MotherBrainStatus L9BB2: CMP #$04 L9BB4: BCS $9BC6 L9BB6: LDY #$60 L9BB8: LDA $6AF4,Y L9BBB: BEQ $9BC8 L9BBD: TYA L9BBE: CLC L9BBF: ADC #$10 L9BC1: TAY L9BC2: CMP #$A0 L9BC4: BNE $9BB8 L9BC6: PLA L9BC7: RTS L9BC8: STY $4B L9BCA: LDA $6BF5,X L9BCD: STA $0400,Y L9BD0: LDA $6BF6,X L9BD3: STA $0401,Y L9BD6: LDA $6BF7,X L9BD9: STA $6AFB,Y L9BDC: LDA #$02 L9BDE: STA $6AF4,Y L9BE1: LDA #$00 L9BE3: STA $0409,Y L9BE6: STA $6AF8,Y L9BE9: STA $0408,Y L9BEC: PLA L9BED: JSR $95C6 L9BF0: TAX L9BF1: STA $040A,Y L9BF4: ORA #$02 L9BF6: STA $0405,Y L9BF9: LDA $9C26,X L9BFC: STA $6AF9,Y L9BFF: STA $6AFA,Y L9C02: LDA $9DCC,X L9C05: STA $05 L9C07: LDA $9DCF,X L9C0A: STA $04 L9C0C: LDX $97 L9C0E: LDA $6BF5,X L9C11: STA $08 L9C13: LDA $6BF6,X L9C16: STA $09 L9C18: LDA $6BF7,X L9C1B: STA $0B L9C1D: TYA L9C1E: TAX L9C1F: JSR $8027 L9C22: JSR $99F4 L9C25: LDX $97 L9C27: RTS L9C28: .byte $0C, $0A, $0E L9c2B: LDY $6BF9,X L9C2E: LDA $9DC6,Y L9C31: STA $6BD7 L9C34: LDA $6BF5,X L9C37: STA $04E0 L9C3A: LDA $6BF6,X L9C3D: STA $04E1 L9C40: LDA $6BF7,X L9C43: STA $6BDB L9C46: LDA #$E0 L9C48: STA $4B L9C4A: JMP $803C L9C4D: LDY #$00 L9C4F: LDA $6BF6,X L9C52: CMP $FD L9C54: LDA $49 L9C56: AND #$02 L9C58: BNE $9C5F L9C5A: LDA $6BF5,X L9C5D: CMP $FC L9C5F: LDA $6BF7,X L9C62: EOR $FF L9C64: AND #$01 L9C66: BEQ $9C6B L9C68: BCS $9C6D L9C6A: SEC L9C6B: BCS $9C6E L9C6D: INY L9C6E: RTS L9C6F: STY $02 L9C71: LDY #$00 L9C73: LDA $6BF7,Y L9C76: EOR $02 L9C78: LSR L9C79: BCS $9C80 L9C7B: LDA #$00 L9C7D: STA $6BF4,Y L9C80: TYA L9C81: CLC L9C82: ADC #$08 L9C84: TAY L9C85: BPL $9C73 L9C87: LDX #$00 L9C89: LDA $0758,X L9C8C: BEQ $9C99 L9C8E: JSR $9D64 L9C91: EOR $075A,X L9C94: BNE $9C99 L9C96: STA $0758,X L9C99: TXA L9C9A: CLC L9C9B: ADC #$08 L9C9D: TAX L9C9E: CMP #$28 L9CA0: BNE $9C89 L9CA2: LDX #$00 L9CA4: JSR $9CD6 L9CA7: LDX #$03 L9CA9: JSR $9CD6 L9CAC: LDA MotherBrainStatus L9CAE: BEQ $9CC3 L9CB0: CMP #$07 L9CB2: BEQ $9CC3 L9CB4: CMP #$0A L9CB6: BEQ $9CC3 L9CB8: LDA $9D L9CBA: EOR $02 L9CBC: LSR L9CBD: BCS $9CC3 L9CBF: LDA #$00 L9CC1: STA MotherBrainStatus L9CC3: LDA $010D L9CC6: BEQ $9CD5 L9CC8: LDA $010C L9CCB: EOR $02 L9CCD: LSR L9CCE: BCS $9CD5 L9CD0: LDA #$00 L9CD2: STA $010D L9CD5: RTS L9CD6: LDA $8B,X L9CD8: BMI $9CE5 L9CDA: LDA $8C,X L9CDC: EOR $02 L9CDE: LSR L9CDF: BCS $9CE5 L9CE1: LDA #$FF L9CE3: STA $8B,X L9CE5: RTS L9CE6: LDX #$00 L9CE8: LDA $6BF4,X L9CEB: BEQ $9CF6 L9CED: TXA L9CEE: CLC L9CEF: ADC #$08 L9CF1: TAX L9CF2: BPL $9CE8 L9CF4: BMI $9D20 L9CF6: LDA ($00),Y L9CF8: JSR $9B1B L9CFB: STA $6BF8,X L9CFE: LDA #$01 L9D00: STA $6BF4,X L9D03: STA $6BFB,X L9D06: INY L9D07: LDA ($00),Y L9D09: PHA L9D0A: AND #$F0 L9D0C: ORA #$07 L9D0E: STA $6BF5,X L9D11: PLA L9D12: JSR $9B20 L9D15: ORA #$07 L9D17: STA $6BF6,X L9D1A: JSR $9D88 L9D1D: STA $6BF7,X L9D20: RTS L9D21: LDA #$01 L9D23: STA MotherBrainStatus L9D25: JSR $9D88 L9D28: STA $9D L9D2A: EOR #$01 L9D2C: TAX L9D2D: LDA $9D3C L9D30: ORA $6C,X L9D32: STA $6C,X L9D34: LDA #$20 L9D36: STA $9A L9D38: STA $9B L9D3A: RTS L9D3B: .byte $02, $01 L9D3D: LDA ($00),Y L9D3F: AND #$F0 L9D41: LSR L9D42: TAX L9D43: ASL L9D44: AND #$10 L9D46: EOR #$10 L9D48: ORA #$84 L9D4A: STA $0759,X L9D4D: JSR $9D64 L9D50: STA $075A,X L9D53: LDA #$01 L9D55: STA $0758,X L9D58: LDA #$00 L9D5A: STA $075B,X L9D5D: STA $075C,X L9D60: STA $075D,X L9D63: RTS L9D64: JSR $9D88 L9D67: ASL L9D68: ASL L9D69: ORA #$61 L9D6B: RTS L9D6C: LDX #$03 L9D6E: JSR $9D75 L9D71: BMI $9D87 L9D73: LDX #$00 L9D75: LDA $8B,X L9D77: BPL $9D87 L9D79: LDA ($00),Y L9D7B: JSR $9B1B L9D7E: STA $8B,X L9D80: JSR $9D88 L9D83: STA $8C,X L9D85: LDA #$FF L9D87: RTS L9D88: LDA $FF L9D8A: EOR $49 L9D8C: AND #$01 L9D8E: RTS L9D8F: .byte $28, $28, $28, $28, $28, $00, $0B, $16, $21, $27, $00, $01, $02, $FD, $03, $04 L9D9F: .byte $FD, $03, $02, $01, $FF, $00, $07, $06, $FE, $05, $04, $FE, $05, $06, $07, $FF L9DAF: .byte $02, $03, $FC, $04, $05, $06, $05, $FC, $04, $03, $FF, $02, $03, $FC, $04, $03 L9DBF: .byte $FF, $06, $05, $FC, $04, $05, $FF, $06, $07, $08, $09, $0A, $0B, $0C, $0D, $09 L9DCF: .byte $F7, $00, $09, $09, $0B, $A5, $98, $F0, $19, $20, $24, $80, $CB, $95, $22, $9E L9DDF: .byte $36, $9E, $52, $9E, $86, $9E, $02, $9F, $49, $9F, $C0, $9F, $02, $9F, $DA, $9F L9DEF: .byte $CB, $95, $60 L9DF2: LDA $030C L9DF5: EOR $9D L9DF7: BNE $9DF1 L9DF9: LDA $030E L9DFC: SEC L9DFD: SBC #$48 L9DFF: CMP #$2F L9E01: BCS $9DF1 L9E03: LDA $030D L9E06: SEC L9E07: SBC #$80 L9E09: BPL $9E0E L9E0B: JSR $95C6 L9E0E: CMP #$20 L9E10: BCS $9DF1 L9E12: LDA #$00 L9E14: STA $6E L9E16: LDA #$02 L9E18: STA $6F L9E1A: LDA #$38 L9E1C: STA $030A L9E1F: JMP $8042 L9E22: JSR $9DF2 L9E25: JSR $9FED L9E28: JSR $A01B L9E2B: JSR $A02E L9E2E: JSR $A041 L9E31: LDA #$00 L9E33: STA $9E L9E35: RTS L9E36: JSR $9E43 L9E39: LDA $9E41,Y L9E3C: STA $1C L9E3E: JMP $9E31 L9E41: .byte $08, $07 L9E43: DEC $9F L9E45: BNE $9E4B L9E47: LDA #$01 L9E49: STA MotherBrainStatus L9E4B: LDA $9F L9E4D: AND #$02 L9E4F: LSR L9E50: TAY L9E51: RTS L9E52: JSR $9E43 L9E55: LDA $9E41,Y L9E58: STA $1C L9E5A: TYA L9E5B: ASL L9E5C: ASL L9E5D: STA $FC L9E5F: LDY MotherBrainStatus L9E61: DEY L9E62: BNE $9E83 L9E64: STY MotherBrainHits L9E66: TYA L9E67: TAX L9E68: TYA L9E69: STA $6AF4,X L9E6C: JSR $9EF9 L9E6F: CPX #$C0 L9E71: BNE $9E68 L9E73: LDA #$04 L9E75: STA MotherBrainStatus L9E77: LDA #$28 L9E79: STA $9F L9E7B: LDA $0680 L9E7E: ORA #$01 L9E80: STA $0680 L9E83: JMP $9E2E L9E86: LDA #$10 L9E88: ORA $0680 L9E8B: STA $0680 L9E8E: JSR $A072 L9E91: INC $9A L9E93: JSR $9E43 L9E96: LDX #$00 L9E98: LDA $6AF4,X L9E9B: CMP #$05 L9E9D: BNE $9EA4 L9E9F: LDA #$00 L9EA1: STA $6AF4,X L9EA4: JSR $9EF9 L9EA7: CMP #$40 L9EA9: BNE $9E98 L9EAB: LDA $07A0 L9EAE: BNE $9EB5 L9EB0: LDA $9F00,Y L9EB3: STA $1C L9EB5: LDY MotherBrainStatus L9EB7: DEY L9EB8: BNE $9ED5 L9EBA: STY $9A L9EBC: LDA #$04 L9EBE: STA MotherBrainStatus L9EC0: LDA #$1C L9EC2: STA $9F L9EC4: LDY MotherBrainHits L9EC6: INC MotherBrainHits L9EC8: CPY #$04 L9ECA: BEQ $9ED3 L9ECC: LDX #$00 L9ECE: BCC $9ED5 L9ED0: JMP $9ED6 L9ED3: LSR $9F L9ED5: RTS L9ED6: LDA $0685 L9ED9: ORA #$04 L9EDB: STA $0685 L9EDE: LDA #$05 L9EE0: STA MotherBrainStatus L9EE2: LDA #$80 L9EE4: STA MotherBrainHits L9EE6: RTS L9EE7: PHA L9EE8: AND #$F0 L9EEA: ORA #$07 L9EEC: STA $0400,X L9EEF: PLA L9EF0: JSR $9B20 L9EF3: ORA #$07 L9EF5: STA $0401,X L9EF8: RTS L9EF9: TXA L9EFA: CLC L9EFB: ADC #$10 L9EFD: TAX L9EFE: RTS L9EFF: .byte $60 L9F00: ORA #$0A L9F02: LDA MotherBrainHits L9F04: BMI $9F33 L9F06: CMP #$08 L9F08: BEQ $9F36 L9F0A: TAY L9F0B: LDA $9F41,Y L9F0E: STA $0503 L9F11: LDA $9F39,Y L9F14: CLC L9F15: ADC #$42 L9F17: STA $0508 L9F1A: PHP L9F1B: LDA $9D L9F1D: ASL L9F1E: ASL L9F1F: PLP L9F20: ADC #$61 L9F22: STA $0509 L9F25: LDA #$00 L9F27: STA $4B L9F29: LDA $07A0 L9F2C: BNE $9F38 L9F2E: JSR $803F L9F31: BCS $9F38 L9F33: INC MotherBrainHits L9F35: RTS L9F36: INC MotherBrainStatus L9F38: RTS L9F39: .byte $00, $40, $08, $48, $80, $C0, $88, $C8, $08, $02, $09, $03, $0A, $04, $0B L9F48: ORA $20 L9F4A: ADC #$9F L9F4C: BCS $9F64 L9F4E: LDA #$00 L9F50: STA MotherBrainStatus L9F52: LDA #$99 L9F54: STA $010A L9F57: STA $010B L9F5A: LDA #$01 L9F5C: STA $010D L9F5F: LDA $9D L9F61: STA $010C L9F64: RTS L9F65: .byte $80, $B0, $A0, $90 L9F69: LDA $50 L9F6B: CLC L9F6C: ADC $4F L9F6E: SEC L9F6F: ROL L9F70: AND #$03 L9F72: TAY L9F73: LDX $9F65,Y L9F76: LDA #$01 L9F78: STA $030F,X L9F7B: LDA #$01 L9F7D: STA $0307,X L9F80: LDA #$03 L9F82: STA $0300,X L9F85: LDA $9D L9F87: STA $030C,X L9F8A: LDA #$10 L9F8C: STA $030E,X L9F8F: LDA #$68 L9F91: STA $030D,X L9F94: LDA #$55 L9F96: STA $0305,X L9F99: STA $0306,X L9F9C: LDA #$00 L9F9E: STA $0304,X L9FA1: LDA #$F7 L9FA3: STA $0303,X L9FA6: LDA #$10 L9FA8: STA $0503 L9FAB: LDA #$40 L9FAD: STA $0508 L9FB0: LDA $9D L9FB2: ASL L9FB3: ASL L9FB4: ORA #$61 L9FB6: STA $0509 L9FB9: LDA #$00 L9FBB: STA $4B L9FBD: JMP $803F L9FC0: LDA #$10 L9FC2: ORA $0680 L9FC5: STA $0680 L9FC8: LDA $2C L9FCA: BNE $9FD9 L9FCC: LDA #$08 L9FCE: STA $0300 L9FD1: LDA #$0A L9FD3: STA MotherBrainStatus L9FD5: LDA #$01 L9FD7: STA $1C L9FD9: RTS L9FDA: JSR $9F69 L9FDD: BCS $9FEC L9FDF: LDA $9D L9FE1: STA $010C L9FE4: LDY #$01 L9FE6: STY $010D L9FE9: DEY L9FEA: STY MotherBrainStatus L9FEC: RTS L9FED: LDA $9E L9FEF: BEQ $A01A L9FF1: LDA $0684 L9FF4: ORA #$02 L9FF6: STA $0684 L9FF9: INC MotherBrainHits L9FFB: LDA MotherBrainHits L9FFD: CMP #$20 L9FFF: LDY #$02 LA001: LDA #$10 LA003: BCC $A016 LA005: LDX #$00 LA007: LDA #$00 LA009: STA $0500,X LA00C: JSR $9EF9 LA00F: CMP #$D0 LA011: BNE $A007 LA013: INY LA014: LDA #$80 LA016: STY MotherBrainStatus LA018: STA $9F LA01A: RTS LA01B: DEC $9A LA01D: BNE $A02D LA01F: LDA $2E LA021: AND #$03 LA023: STA $9C LA025: LDA #$20 LA027: SEC LA028: SBC MotherBrainHits LA02A: LSR LA02B: STA $9A LA02D: RTS LA02E: DEC $9B LA030: LDA $9B LA032: ASL LA033: BNE $A040 LA035: LDA #$20 LA037: SEC LA038: SBC MotherBrainHits LA03A: ORA #$80 LA03C: EOR $9B LA03E: STA $9B LA040: RTS LA041: LDA #$E0 LA043: STA $4B LA045: LDA $9D LA047: STA $6BDB LA04A: LDA #$70 LA04C: STA $04E0 LA04F: LDA #$48 LA051: STA $04E1 LA054: LDY $9C LA056: LDA $A06D,Y LA059: STA $6BD7 LA05C: JSR $803C LA05F: LDA $9B LA061: BMI $A06C LA063: LDA $A071 LA066: STA $6BD7 LA069: JSR $803C LA06C: RTS LA06D: .byte $13, $14, $15, $16, $17 LA072: LDY MotherBrainHits LA074: BEQ $A086 LA076: LDA $A0C0,Y LA079: CLC LA07A: ADC $9A LA07C: TAY LA07D: LDA $A0A3,Y LA080: CMP #$FF LA082: BNE $A087 LA084: DEC $9A LA086: RTS LA087: ADC #$44 LA089: STA $0508 LA08C: PHP LA08D: LDA $9D LA08F: ASL LA090: ASL LA091: ORA #$61 LA093: PLP LA094: ADC #$00 LA096: STA $0509 LA099: LDA #$00 LA09B: STA $0503 LA09E: STA $4B LA0A0: JMP $803F LA0A3: .byte $00, $02, $04, $06, $08, $40, $80, $C0, $48, $88, $C8, $FF, $42, $81, $C1, $27 LA0B3: .byte $FF, $82, $43, $25, $47, $FF, $C2, $C4, $C6, $FF, $84, $45, $86, $FF, $00, $0C LA0C3: .byte $11, $16, $1A LA0C6: LDA $71 LA0C8: BEQ $A13E LA0CA: LDX $4B LA0CC: LDA $0300,X LA0CF: CMP #$0B LA0D1: BNE $A13E LA0D3: CPY #$98 LA0D5: BNE $A103 LA0D7: LDX #$00 LA0D9: LDA $0500,X LA0DC: BEQ $A0E7 LA0DE: JSR $9EF9 LA0E1: CMP #$D0 LA0E3: BNE $A0D9 LA0E5: BEQ $A13E LA0E7: LDA #$8C LA0E9: STA $0508,X LA0EC: LDA $05 LA0EE: STA $0509,X LA0F1: LDA #$01 LA0F3: STA $0503,X LA0F6: LDA $4B LA0F8: PHA LA0F9: STX $4B LA0FB: JSR $803F LA0FE: PLA LA0FF: STA $4B LA101: BNE $A13E LA103: LDA $04 LA105: LSR LA106: BCC $A10A LA108: DEC $04 LA10A: LDY #$00 LA10C: LDA ($04),Y LA10E: LSR LA10F: BCS $A13E LA111: CMP #$48 LA113: BCC $A13E LA115: CMP #$4C LA117: BCS $A13E LA119: LDA $0758,Y LA11C: BEQ $A12E LA11E: LDA $04 LA120: AND #$9E LA122: CMP $0759,Y LA125: BNE $A12E LA127: LDA $05 LA129: CMP $075A,Y LA12C: BEQ $A139 LA12E: TYA LA12F: CLC LA130: ADC #$08 LA132: TAY LA133: CMP #$28 LA135: BNE $A119 LA137: BEQ $A13E LA139: LDA #$01 LA13B: STA $075D,Y LA13E: PLA LA13F: PLA LA140: CLC LA141: RTS LA142: TAY LA143: LDA $71 LA145: BEQ $A15C LA147: LDX $4B LA149: LDA $0300,X LA14C: CMP #$0B LA14E: BNE $A15C LA150: CPY #$5E LA152: BCC $A15C LA154: CPY #$72 LA156: BCS $A15C LA158: LDA #$01 LA15A: STA $9E LA15C: TYA LA15D: RTS LA15E: LDY $010B LA161: INY LA162: BNE $A1DA LA164: LDY #$03 LA166: JSR $A16B LA169: LDY #$00 LA16B: STY $4B LA16D: LDA $008B,Y LA170: BMI $A15D LA172: LDA $008C,Y LA175: EOR $2D LA177: LSR LA178: BCC $A15D LA17A: LDA MotherBrainStatus LA17C: CMP #$04 LA17E: BCS $A15D LA180: LDA $2D LA182: AND #$06 LA184: BNE $A15D LA186: LDX #$20 LA188: LDA $6AF4,X LA18B: BEQ $A19C LA18D: LDA $0405,X LA190: AND #$02 LA192: BEQ $A19C LA194: TXA LA195: SEC LA196: SBC #$10 LA198: TAX LA199: BPL $A188 LA19B: RTS LA19C: LDA #$01 LA19E: STA $6AF4,X LA1A1: LDA #$04 LA1A3: STA $6B02,X LA1A6: LDA #$00 LA1A8: STA $040F,X LA1AB: STA $0404,X LA1AE: JSR $802A LA1B1: LDA #$F7 LA1B3: STA $6AF7,X LA1B6: LDY $4B LA1B8: LDA $008C,Y LA1BB: STA $6AFB,X LA1BE: LDA $008D,Y LA1C1: ASL LA1C2: ORA $008B,Y LA1C5: TAY LA1C6: LDA $A1DB,Y LA1C9: JSR $9EE7 LA1CC: LDX $4B LA1CE: INC $8D,X LA1D0: LDA $8D,X LA1D2: CMP #$06 LA1D4: BNE $A1DA LA1D6: LDA #$00 LA1D8: STA $8D,X LA1DA: RTS LA1DB: .byte $22, $2A, $2A, $BA, $B2, $2A, $C4, $2A, $C8, $BA, $BA, $BA LA1E7: LDY $010B LA1EA: INY LA1EB: BEQ $A237 LA1ED: LDA $010A LA1F0: STA $03 LA1F2: LDA #$01 LA1F4: SEC LA1F5: JSR $8045 LA1F8: STA $010A LA1FB: LDA $010B LA1FE: STA $03 LA200: LDA #$00 LA202: JSR $8045 LA205: STA $010B LA208: LDA $2D LA20A: AND #$1F LA20C: BNE $A216 LA20E: LDA $0681 LA211: ORA #$08 LA213: STA $0681 LA216: LDA $010A LA219: ORA $010B LA21C: BNE $A237 LA21E: DEC $010B LA221: STA MotherBrainHits LA223: LDA #$07 LA225: STA MotherBrainStatus LA227: LDA $0680 LA22A: ORA #$01 LA22C: STA $0680 LA22F: LDA #$0C LA231: STA $2C LA233: LDA #$0B LA235: STA $1C LA237: RTS LA238: LDA $010D LA23B: BEQ $A28A LA23D: LDA $010C LA240: STA $6BDB LA243: LDA #$84 LA245: STA $04E0 LA248: LDA #$64 LA24A: STA $04E1 LA24D: LDA #$1A LA24F: STA $6BD7 LA252: LDA #$E0 LA254: STA $4B LA256: LDA $5B LA258: PHA LA259: JSR $803C LA25C: PLA LA25D: CMP $5B LA25F: BEQ $A28A LA261: TAX LA262: LDA $010B LA265: LSR LA266: LSR LA267: LSR LA268: SEC LA269: ROR LA26A: AND #$0F LA26C: ORA #$A0 LA26E: STA $0201,X LA271: LDA $010B LA274: AND #$0F LA276: ORA #$A0 LA278: STA $0205,X LA27B: LDA $010A LA27E: LSR LA27F: LSR LA280: LSR LA281: SEC LA282: ROR LA283: AND #$0F LA285: ORA #$A0 LA287: STA $0209,X LA28A: RTS LA28B: LDA #$10 LA28D: STA $4B LA28F: LDX #$20 LA291: JSR $A29B LA294: TXA LA295: SEC LA296: SBC #$08 LA298: TAX LA299: BNE $A291 LA29B: LDA $0758,X LA29E: AND #$0F LA2A0: CMP #$01 LA2A2: BNE $A28A LA2A4: LDA $075D,X LA2A7: BEQ $A2F2 LA2A9: INC $075B,X LA2AC: LDA $075B,X LA2AF: LSR LA2B0: BCS $A2F2 LA2B2: TAY LA2B3: SBC #$03 LA2B5: BNE $A2BA LA2B7: INC $0758,X LA2BA: LDA $A310,Y LA2BD: STA $0513 LA2C0: LDA $0759,X LA2C3: STA $0518 LA2C6: LDA $075A,X LA2C9: STA $0519 LA2CC: LDA $07A0 LA2CF: BNE $A2DA LA2D1: TXA LA2D2: PHA LA2D3: JSR $803F LA2D6: PLA LA2D7: TAX LA2D8: BCC $A2EB LA2DA: LDA $0758,X LA2DD: AND #$80 LA2DF: ORA #$01 LA2E1: STA $0758,X LA2E4: STA $075D,X LA2E7: DEC $075B,X LA2EA: RTS LA2EB: LDA #$40 LA2ED: STA $075C,X LA2F0: BNE $A30A LA2F2: LDY $075B,X LA2F5: BEQ $A30A LA2F7: DEC $075C,X LA2FA: BNE $A30A LA2FC: LDA #$40 LA2FE: STA $075C,X LA301: DEY LA302: TYA LA303: STA $075B,X LA306: LSR LA307: TAY LA308: BCC $A2BA LA30A: LDA #$00 LA30C: STA $075D,X LA30F: RTS LA310: .byte $0C, $0D, $0E, $0F, $07 LA315: LDY #$05 LA317: JSR $99B1 LA31A: DEY LA31B: BPL $A317 LA31D: STA $92 LA31F: RTS LA320: TXA LA321: JSR $9B1B LA324: TAY LA325: JSR $99B1 LA328: STA $92 LA32A: RTS LA32B: .byte $22, $FF, $FF, $FF, $FF LA330: .byte $32, $FF, $FF, $FF, $FF, $FF, $FF LA337: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $E0, $DE, $ED, $FF, $E8 LA347: .byte $EE LA348: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $ED, $FF, $DF, $DA, $EC, $ED, $F4 LA358: .byte $FF LA359: .byte $28, $FF, $FF, $FF, $FF, $ED, $E2, $E6, $DE, $FF, $FF, $FF, $FF, $FF, $FF, $FF LA369: .byte $FF LA36A: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF LA37A: .byte $FF LA37B: .byte $62, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF LA388: .byte $42, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF LA391: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $ED, $E2, $E6, $DE, $FF LA3A1: .byte $DB LA3A2: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $E8, $E6, $DB, $FF, $EC, $DE, $ED LA3B2: .byte $FF LA3B3: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF LA3C3: .byte $FF LA3C4: .byte $28, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF LA3D4: .byte $FF LA3D5: .byte $42, $90, $91, $90, $91, $90, $91, $90, $91 LA3DE: .byte $42, $92, $93, $92, $93, $92, $93, $92, $93 LA3E7: .byte $42, $94, $95, $94, $95, $94, $95, $94, $95 LA3F0: .byte $42, $96, $97, $96, $97, $96, $97, $96, $97 LA3F9: .byte $62, $A0, $A0, $A0, $A0, $A0, $A0, $A0, $A0, $A0, $A0, $A0, $A0 ;-----------------------------------[ Enemy animation data tables ]---------------------------------- EnemyAnimIndexTbl: LA406: .byte $00, $01, $FF LA409: .byte $02, $FF LA40B: .byte $03, $04, $FF LA40E: .byte $05, $FF LA410: .byte $0E, $FF LA412: .byte $0F, $FF LA414: .byte $10, $FF LA416: .byte $11, $11, $12, $12, $F7, $FF LA41C: .byte $18, $FF LA41E: .byte $19, $F7, $FF LA421: .byte $1B, $1C, $1D, $FF LA425: .byte $1E, $FF LA427: .byte $61, $F7, $62, $F7, $FF ;----------------------------[ Enemy sprite drawing pointer tables ]--------------------------------- EnemyFramePtrTbl1: LA42C: .word $A5C8, $A5CD, $A5D2, $A5D7, $A5E4, $A5F1, $A5FB, $A600 LA43C: .word $A606, $A60D, $A613, $A618, $A61E, $A625, $A62B, $A630 LA44C: .word $A635, $A63A, $A641, $A651, $A65F, $A66B, $A678, $A687 LA45C: .word $A691, $A69C, $A6A3, $A6AC, $A6BC, $A6CC, $A6DC, $A6E0 LA46C: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA47C: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA48C: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA49C: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA4AC: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA4BC: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA4CC: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA4DC: .word $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0, $A6E0 LA4EC: .word $A6E0, $A6E0, $A6EE, $A708, $A708, $A708, $A708, $A708 LA4FC: .word $A708, $A708, $A708, $A708, $A708, $A708, $A708, $A708 LA50C: .word $A708, $A708, $A708, $A708, $A708, $A708, $A708, $A708 LA51C: .word $A708, $A708, $A708, $A708, $A708, $A708, $A708, $A708 EnemyFramePtrTbl2: LA52C: .word $A708, $A70E, $A713, $A713, $A713, $A713, $A713, $A713 LA53C: .word $A713, $A713 EnemyPlacePtrTbl: LA540: .word $A560, $A562, $A57A, $A58C, $A592, $A59E, $A5A4, $A5A4 LA550: .word $A5A4, $A5A4, $A5A4, $A5C4, $A5C4, $A5C8, $A5C8, $A5C8 ;------------------------------[ Enemy sprite placement data tables ]-------------------------------- LA560: .byte $FC, $FC LA562: .byte $80, $80, $81, $81, $82, $82, $83, $83, $84, $84, $85, $85, $F4, $F8, $F4, $00 LA572: .byte $FC, $F8, $FC, $00, $04, $F8, $04, $00 LA57A: .byte $F4, $F4, $F4, $FC, $F4, $04, $FC, $F4, $FC, $FC, $FC, $04, $04, $F4, $04, $FC LA58A: .byte $04, $04 LA58C: .byte $F1, $FC, $F3, $F3, $FC, $F1 LA592: .byte $F4, $F8, $F4, $00, $FC, $F8, $FC, $00, $04, $F8, $04, $00 LA59E: .byte $FC, $F4, $FC, $FC, $FC, $04 LA5A4: .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00, $F0, $00, $F0, $08, $F8, $08, $F0, $F0 LA5B4: .byte $F0, $F8, $F8, $F0, $00, $F0, $08, $F0, $08, $F8, $00, $08, $08, $00, $08, $08 LA5C4: .byte $F8, $FC, $00, $FC ;Enemy frame drawing data. LA5C8: .byte $00, $02, $02, $14, $FF LA5CD: .byte $00, $02, $02, $24, $FF LA5D2: .byte $00, $00, $00, $04, $FF LA5D7: .byte $32, $0C, $0C, $C0, $C1, $C2, $D0, $D1, $D2, $E0, $E1, $E2, $FF LA5E4: .byte $32, $0C, $0C, $C3, $C4, $C5, $D3, $D4, $D5, $E3, $E4, $E5, $FF LA5F1: .byte $31, $00, $00, $C0, $C2, $D0, $D2, $E0, $E2, $FF LA5FB: .byte $23, $07, $07, $EA, $FF LA600: .byte $23, $07, $07, $FE, $EB, $FF LA606: .byte $23, $07, $07, $FE, $FE, $EC, $FF LA60D: .byte $A3, $07, $07, $FE, $EB, $FF LA613: .byte $A3, $07, $07, $EA, $FF LA618: .byte $E3, $07, $07, $FE, $EB, $FF LA61E: .byte $63, $07, $07, $FE, $FE, $EC, $FF LA625: .byte $63, $07, $07, $FE, $EB, $FF LA62B: .byte $30, $04, $04, $F1, $FF LA630: .byte $70, $04, $04, $F1, $FF LA635: .byte $30, $04, $04, $F2, $FF LA63A: .byte $30, $00, $00, $FD, $03, $F3, $FF LA641: .byte $0A, $00, $00, $FD, $00, $F4, $FD, $40, $F4, $FD, $80, $F4, $FD, $C0, $F4, $FF LA651: .byte $24, $08, $14, $FD, $02, $FC, $04, $F0, $D8, $D9, $E8, $E9, $F8, $FF LA65F: .byte $24, $14, $0C, $FD, $02, $FC, $F4, $F8, $DA, $FE, $C9, $FF LA66B: .byte $24, $20, $04, $FD, $02, $FC, $EC, $00, $CB, $CC, $DB, $DC, $FF LA678: .byte $24, $18, $14, $FD, $02, $FC, $F4, $10, $DD, $CE, $FE, $DE, $FE, $DD, $FF LA687: .byte $24, $08, $0C, $FD, $02, $FC, $0C, $10, $CD, $FF LA691: .byte $21, $00, $00, $FE, $F5, $F5, $F5, $F5, $F5, $F5, $FF LA69C: .byte $30, $00, $00, $FD, $03, $ED, $FF LA6A3: .byte $05, $04, $08, $FD, $00, $00, $00, $00, $FF LA6AC: .byte $3A, $08, $08, $FD, $03, $EF, $FD, $43, $EF, $FD, $83, $EF, $FD, $C3, $EF, $FF LA6BC: .byte $3A, $08, $08, $FD, $03, $DF, $FD, $43, $DF, $FD, $83, $DF, $FD, $C3, $DF, $FF LA6CC: .byte $2A, $08, $08, $FD, $03, $CF, $FD, $43, $CF, $FD, $83, $CF, $FD, $C3, $CF, $FF LA6DC: .byte $01, $00, $00, $FF LA6E0: .byte $0A, $00, $00, $75, $FD, $60, $75, $FD, $A0, $75, $FD, $E0, $75, $FF LA6EE: .byte $0A, $00, $00, $FE, $FE, $FE, $FE, $3D, $3E, $4E, $FD, $60, $3E, $3D, $4E, $FD LA6FE: .byte $E0, $4E, $3E, $3D, $FD, $A0, $4E, $3D, $3E, $FF LA708: .byte $0C, $08, $04, $14, $24, $FF LA70E: .byte $00, $04, $04, $8A, $FF LA713: .byte $00, $04, $04, $8A, $FF ;-----------------------------------------[ Palette data ]------------------------------------------- Palette00: LA718: .byte $3F ;Upper byte of PPU palette adress. LA719: .byte $00 ;Lower byte of PPU palette adress. LA71A: .byte $20 ;Palette data length. ;The following values are written to the background palette: LA71B: .byte $0F, $20, $16, $00, $0F, $20, $11, $00, $0F, $16, $20, $00, $0F, $20, $10, $00 ;The following values are written to the sprite palette: LA72B: .byte $0F, $16, $19, $27, $0F, $12, $30, $21, $0F, $27, $16, $30, $0F, $16, $2A, $37 LA73B: .byte $00 ;End Palette00 info. Palette01: LA73C: .byte $3F ;Upper byte of PPU palette adress. LA73D: .byte $12 ;Lower byte of PPU palette adress. LA73E: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA73F: .byte $19, $27 LA741: .byte $00 ;End Palette01 info. Palette03: LA742: .byte $3F ;Upper byte of PPU palette adress. LA743: .byte $12 ;Lower byte of PPU palette adress. LA744: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA745: .byte $2C, $27 LA747: .byte $00 ;End Palette03 info. Palette02: LA748: .byte $3F ;Upper byte of PPU palette adress. LA749: .byte $12 ;Lower byte of PPU palette adress. LA74A: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA74B: .byte $19, $35 LA74D: .byte $00 ;End Palette02 info. Palette04: LA74E: .byte $3F ;Upper byte of PPU palette adress. LA74F: .byte $12 ;Lower byte of PPU palette adress. LA750: .byte $02 ;Palette data length. ;The following values are written to the sprite palette: LA751: .byte $2C, $24 LA753: .byte $00 ;End Palette04 info. Palette05: LA754: .byte $3F ;Upper byte of PPU palette adress. LA755: .byte $0A ;Lower byte of PPU palette adress. LA756: .byte $01 ;Palette data length. ;The following values are written to the background palette: LA757: .byte $27 LA758: .byte $00 ;End Palette05 info. Palette06: LA759: .byte $3F ;Upper byte of PPU palette adress. LA75A: .byte $0A ;Lower byte of PPU palette adress. LA75B: .byte $01 ;Palette data length. ;The following values are written to the background palette: LA75C: .byte $20 LA75D: .byte $00 ;End Palette06 info. Palette07: LA75E: .byte $3F ;Upper byte of PPU palette adress. LA75F: .byte $00 ;Lower byte of PPU palette adress. LA760: .byte $11 ;Palette data length. ;The following values are written to the background palette: LA761: .byte $0F, $20, $16, $00, $0F, $20, $11, $00, $0F, $20, $16, $00, $0F, $20, $10, $00 LA771: .byte $0F LA772: .byte $00 ;End Palette07 info. Palette08: LA773: .byte $3F ;Upper byte of PPU palette adress. LA774: .byte $00 ;Lower byte of PPU palette adress. LA775: .byte $11 ;Palette data length. ;The following values are written to the background palette: LA776: .byte $20, $02, $16, $00, $20, $02, $11, $00, $20, $02, $16, $00, $20, $02, $10, $00 LA786: .byte $20 LA787: .byte $00 ;End Palette08 info. Palette09: LA788: .byte $3F ;Upper byte of PPU palette adress. LA789: .byte $00 ;Lower byte of PPU palette adress. LA78A: .byte $60 ;Lower byte of PPU palette adress. LA78B: .byte $20 ;Repeat bit set. Fill sprite and background palette with #$20. LA78C: .byte $00 ;End Palette09 info. Palette0A: LA78D: .byte $3F ;Upper byte of PPU palette adress. LA78E: .byte $11 ;Lower byte of PPU palette adress. LA78F: .byte $03 ;The following values are written to the sprite palette: LA790: .byte $04, $09, $07 LA793: .byte $00 ;End Palette0A info. Palette0B: LA794: .byte $3F ;Upper byte of PPU palette adress. LA795: .byte $11 ;Lower byte of PPU palette adress. LA796: .byte $03 ;Lower byte of PPU palette adress. ;The following values are written to the sprite palette: LA797: .byte $05, $09, $17 LA79A: .byte $00 ;End Palette0B info. Palette0C: LA79B: .byte $3F ;Upper byte of PPU palette adress. LA79C: .byte $11 ;Lower byte of PPU palette adress. LA79D: .byte $03 ;Lower byte of PPU palette adress. ;The following values are written to the sprite palette: LA79E: .byte $06, $0A, $26 LA7A1: .byte $00 ;End Palette0C info. Palette0D: LA7A2: .byte $3F ;Upper byte of PPU palette adress. LA7A3: .byte $11 ;Lower byte of PPU palette adress. LA7A4: .byte $03 ;Lower byte of PPU palette adress. ;The following values are written to the sprite palette: LA7A5: .byte $16, $19, $27 LA7A8: .byte $00 ;End Palette0D info. Palette0E: LA7A9: .byte $3F ;Upper byte of PPU palette adress. LA7AA: .byte $00 ;Lower byte of PPU palette adress. LA7AB: .byte $04 ;Lower byte of PPU palette adress. ;The following values are written to the background palette: LA7AC: .byte $0F, $30, $30, $21 LA7B0: .byte $00 ;End Palette0E info. Palette0F: LA7B1: .byte $3F ;Upper byte of PPU palette adress. LA7B2: .byte $10 ;Lower byte of PPU palette adress. LA7B3: .byte $04 ;Lower byte of PPU palette adress. ;The following values are written to the sprite palette: LA7B4: .byte $0F, $15, $34, $17 LA7B8: .byte $00 ;End Palette0F info. Palette10: LA7B9: .byte $3F ;Upper byte of PPU palette adress. LA7BA: .byte $10 ;Lower byte of PPU palette adress. LA7BB: .byte $04 ;Lower byte of PPU palette adress. ;The following values are written to the sprite palette: LA7BC: .byte $0F, $15, $34, $19 LA7C0: .byte $00 ;End Palette10 info. Palette11: LA7C1: .byte $3F ;Upper byte of PPU palette adress. LA7C2: .byte $10 ;Lower byte of PPU palette adress. LA7C3: .byte $04 ;Lower byte of PPU palette adress. ;The following values are written to the sprite palette: LA7C4: .byte $0F, $15, $34, $28 LA7C8: .byte $00 ;End Palette11 info. Palette12: LA7C9: .byte $3F ;Upper byte of PPU palette adress. LA7CA: .byte $10 ;Lower byte of PPU palette adress. LA7CB: .byte $04 ;Palette data length. ;The following values are written to the sprite palette: LA7CC: .byte $0F, $15, $34, $29 LA7D0: .byte $00 ;End Palette12 info. ;----------------------------[ Room and structure pointer tables ]----------------------------------- RmPtrTbl: LA7D1: .word $A8AF, $A8BD, $A8C5, $A8FA, $A929, $A95E, $A975, $A990 LA7E1: .word $A9AB, $A9CF, $A9F2, $AA33, $AA75, $AAAE, $AAE3, $AB12 LA7F1: .word $AB4A, $AB7C, $ABA5, $ABCE, $ABEF StrctPtrTbl: LA7FB: .word $AC16, $AC29, $AC50, $AC69, $AC70, $AC77, $AC7A, $AC8B LA80B: .word $ACA4, $ACB5, $ACC6, $ACD0, $ACF9, $AD26, $AD2D, $AD3C LA81B: .word $AD3F, $AD48, $AD61, $AD66, $AD6B, $AD99, $ADAC, $ADC8 LA82B: .word $ADDD, $ADFE, $AE0F, $AE1A, $AE1E, $AE21, $AE2C, $AE36 ;------------------------------------[ 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: ;Elevator to end. LA83B: .byte $03 LA83C: .word $A843 LA83E: .byte $01, $FF, $04, $8F, $00 ;Elevator to Brinstar. LA843: .byte $04 LA844: .word $A84B LA846: .byte $03, $FF, $04, $83, $00 ;10 missile door. LA84B: .byte $07 LA84C: .word $A85B LA84E: .byte $03, $05, $09, $A2, $00 ;Rinkas LA853: .byte $04, $04, $08, $00 ;Rinkas LA857: .byte $09, $FF, $08, $00 ;Rinkas LA85B: .byte $08 LA85C: .word $A862 LA85E: .byte $0A, $FF, $18, $00 ;Rinkas LA862: .byte $09 LA863: .word $A869 LA865: .byte $0A, $FF, $08, $00 ;Rinkas LA869: .byte $0A LA86A: .word $A870 LA86C: .byte $0A, $FF, $18, $00 ;Door at bottom of escape shaft. LA870: .byte $0B LA871: .word $FFFF LA873: .byte $01, $05, $09, $A3, $00 ;Mother brain, Zeebetite, 3 cannons and Rinkas. LA878: .byte $02, $0C, $06, $47, $18, $05, $49, $15, $4B, $25, $3E, $00 ;2 Zeebetites, 6 cannons and Rinkas. LA884: .byte $03, $12, $37, $27, $08, $05, $41, $15, $43, $25, $36, $05, $49, $15, $4B, $35 LA894: .byte $3E, $00 ;Right door, 2 Zeebetites, 6 cannons and Rinkas. LA896: .byte $04, $14, $09, $A3, $17, $07, $08, $05, $41, $15, $43, $25, $36, $05, $49, $15 LA8A6: .byte $4B, $35, $3E, $00 ;Left door. LA8AA: .byte $05, $FF, $09, $B3, $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 LA8AF: .byte $02 ;Attribute table data. ;Room object data: LA8B0: .byte $40, $01, $03, $48, $01, $03, $50, $03, $02, $5F, $03, $02, $FF ;Room #$01 LA8BD: .byte $02 ;Attribute table data. ;Room object data: LA8BE: .byte $07, $02, $02, $87, $02, $02, $FF ;Room #$02 LA8C5: .byte $03 ;Attribute table data. ;Room object data: LA8C6: .byte $00, $0C, $03, $08, $0C, $03, $0F, $09, $03, $5F, $04, $02, $62, $13, $02, $6A LA8D6: .byte $13, $02, $82, $0E, $02, $85, $12, $01, $8A, $0E, $02, $8D, $12, $01, $8F, $09 LA8E6: .byte $03, $C4, $0F, $03, $C8, $0F, $03, $D3, $10, $03, $DB, $0A, $03, $E0, $0A, $03 LA8F6: .byte $E8, $0A, $03, $FF ;Room #$03 LA8FA: .byte $00 ;Attribute table data. ;Room object data: LA8FB: .byte $00, $0C, $03, $08, $0C, $03, $62, $13, $02, $6A, $13, $02, $82, $0E, $02, $85 LA90B: .byte $12, $01, $8A, $0E, $02, $8D, $12, $01, $C4, $0F, $03, $C8, $0F, $03, $D0, $0D LA91B: .byte $02, $D3, $10, $03, $DB, $0A, $03, $E2, $0A, $03, $EA, $0A, $03, $FF ;Room #$04 LA929: .byte $03 ;Attribute table data. ;Room object data: LA92A: .byte $00, $09, $03, $01, $0A, $03, $03, $11, $03, $08, $0C, $03, $0E, $1C, $03, $52 LA93A: .byte $07, $01, $53, $08, $02, $6A, $13, $02, $80, $09, $03, $8A, $0E, $02, $8D, $12 LA94A: .byte $01, $91, $0B, $03, $CB, $1C, $03, $CC, $1C, $03, $D8, $0D, $02, $DB, $00, $02 LA95A: .byte $E0, $0A, $03, $FF ;Room #$05 LA95E: .byte $03 ;Attribute table data. ;Room object data: LA95F: .byte $00, $14, $03, $08, $14, $03, $50, $04, $02, $80, $14, $03, $88, $14, $03, $D0 LA96F: .byte $14, $03, $D8, $14, $03, $FF ;Room #$06 LA975: .byte $03 ;Attribute table data. ;Room object data: LA976: .byte $00, $14, $03, $08, $14, $03, $95, $14, $03, $D0, $14, $03, $D8, $14, $03, $FD ;Room enemy/door data: LA986: .byte $01, $01, $45, $11, $00, $89, $21, $01, $B3, $FF ;Room #$07 LA990: .byte $03 ;Attribute table data. ;Room object data: LA991: .byte $00, $16, $03, $08, $16, $03, $30, $15, $03, $38, $15, $03, $D0, $15, $03, $D8 LA9A1: .byte $15, $03, $FD ;Room enemy/door data: LA9A4: .byte $31, $01, $69, $41, $00, $B5, $FF ;Room #$08 LA9AB: .byte $01 ;Attribute table data. ;Room object data: LA9AC: .byte $00, $16, $03, $08, $16, $03, $30, $15, $03, $38, $15, $03, $D0, $17, $03, $D4 LA9BC: .byte $00, $02, $D7, $17, $03, $DC, $17, $03, $FD ;Room enemy/door data: LA9C5: .byte $01, $01, $45, $11, $00, $89, $21, $01, $D4, $FF ;Room #$09 LA9CF: .byte $01 ;Attribute table data. ;Room object data: LA9D0: .byte $00, $16, $03, $08, $16, $03, $30, $15, $03, $38, $15, $03, $5F, $03, $02, $8C LA9E0: .byte $17, $03, $B8, $17, $03, $CC, $17, $03, $D0, $00, $02, $D2, $17, $03, $FD ;Room enemy/door data: LA9EF: .byte $02, $A0, $FF ;Room #$0A LA9F2: .byte $03 ;Attribute table data. ;Room object data: LA9F3: .byte $00, $19, $03, $01, $1A, $03, $04, $1B, $01, $09, $12, $01, $0E, $1A, $03, $0F LAA03: .byte $19, $03, $34, $12, $01, $4B, $1B, $01, $50, $03, $02, $5E, $1A, $03, $80, $19 LAA13: .byte $03, $81, $1A, $03, $82, $1B, $01, $88, $18, $03, $8F, $19, $03, $B1, $18, $03 LAA23: .byte $B8, $18, $03, $FD ;Room enemy/door data: LAA27: .byte $02, $B0, $31, $01, $A5, $41, $00, $48, $51, $01, $6A, $FF ;Room #$0B LAA33: .byte $03 ;Attribute table data. ;Room object data: LAA34: .byte $00, $19, $03, $01, $1A, $03, $09, $12, $01, $0E, $1A, $03, $0F, $19, $03, $23 LAA44: .byte $12, $01, $4B, $12, $01, $51, $1A, $03, $5E, $1A, $03, $66, $1B, $01, $80, $19 LAA54: .byte $03, $82, $12, $01, $8F, $19, $03, $98, $12, $01, $A1, $1A, $03, $AE, $1A, $03 LAA64: .byte $CB, $1B, $01, $D5, $12, $01, $FD ;Room enemy/door data: LAA6B: .byte $01, $01, $45, $11, $00, $89, $21, $01, $D4, $FF ;Room #$0C LAA75: .byte $03 ;Attribute table data. ;Room object data: LAA76: .byte $00, $19, $03, $01, $1A, $03, $02, $1E, $03, $0E, $1A, $03, $0F, $19, $03, $36 LAA86: .byte $1E, $03, $3E, $1C, $03, $51, $1A, $03, $5E, $1A, $03, $71, $1C, $03, $72, $1E LAA96: .byte $03, $80, $19, $03, $8F, $19, $03, $A1, $1A, $03, $A6, $1E, $03, $AE, $1A, $03 LAAA6: .byte $FD ;Room enemy/door data: LAAA7: .byte $01, $01, $45, $51, $00, $CB, $FF ;Room #$0D LAAAE: .byte $03 ;Attribute table data. ;Room object data: LAAAF: .byte $00, $19, $03, $01, $18, $03, $08, $18, $03, $0F, $19, $03, $11, $18, $03, $18 LAABF: .byte $18, $03, $50, $03, $02, $5E, $1A, $03, $80, $19, $03, $81, $1A, $03, $82, $1E LAACF: .byte $03, $8F, $19, $03, $AE, $1A, $03, $B6, $1E, $03, $BE, $1C, $03, $D1, $1A, $03 LAADF: .byte $FD ;Room enemy/door data: LAAE0: .byte $02, $B0, $FF ;Room #$0E LAAE3: .byte $03 ;Attribute table data. ;Room object data: LAAE4: .byte $00, $19, $03, $01, $18, $03, $08, $18, $03, $0F, $19, $03, $41, $1A, $03, $4E LAAF4: .byte $1A, $03, $80, $19, $03, $86, $1D, $03, $8F, $19, $03, $91, $1A, $03, $9E, $1A LAB04: .byte $03, $BB, $1B, $01, $C3, $1B, $01, $E1, $1A, $03, $EE, $1A, $03, $FF ;Room #$0F LAB12: .byte $03 ;Attribute table data. ;Room object data: LAB13: .byte $00, $19, $03, $01, $1A, $03, $0E, $1A, $03, $0F, $19, $03, $12, $12, $01, $28 LAB23: .byte $12, $01, $4C, $1B, $01, $51, $1A, $03, $55, $1B, $01, $5F, $03, $02, $80, $19 LAB33: .byte $03, $83, $1B, $01, $8B, $12, $01, $8E, $1A, $03, $8F, $19, $03, $A1, $1A, $03 LAB43: .byte $B1, $18, $03, $B8, $18, $03, $FF ;Room #$10 LAB4A: .byte $03 ;Attribute table data. ;Room object data: LAB4B: .byte $00, $19, $03, $01, $1A, $03, $0E, $1A, $03, $0F, $19, $03, $1A, $05, $01, $4D LAB5B: .byte $05, $01, $51, $1A, $03, $5E, $1A, $03, $80, $19, $03, $8A, $05, $01, $8F, $19 LAB6B: .byte $03, $95, $05, $01, $A1, $1A, $03, $AE, $1A, $03, $CA, $05, $01, $E7, $05, $01 LAB7B: .byte $FF ;Room #$11 LAB7C: .byte $03 ;Attribute table data. ;Room object data: LAB7D: .byte $00, $19, $03, $01, $1F, $01, $09, $1F, $01, $11, $1E, $03, $19, $1E, $03, $50 LAB8D: .byte $03, $02, $80, $19, $03, $81, $1F, $01, $A1, $1E, $03, $B8, $1A, $03, $D1, $1F LAB9D: .byte $01, $D9, $1F, $01, $FD ;Room enemy/door data: LABA2: .byte $02, $B2, $FF ;Room #$12 LABA5: .byte $01 ;Attribute table data. ;Room object data: LABA6: .byte $00, $1F, $01, $08, $1F, $01, $0F, $19, $03, $10, $1E, $03, $17, $1E, $03, $5F LABB6: .byte $03, $02, $87, $1F, $01, $8F, $19, $03, $A7, $1A, $03, $C5, $1F, $01, $D0, $1F LABC6: .byte $01, $D7, $1F, $01, $FD ;Room enemy/door data: LABCB: .byte $02, $A0, $FF ;Room #$13 LABCE: .byte $00 ;Attribute table data. ;Room object data: LABCF: .byte $00, $1F, $01, $08, $1F, $01, $10, $1E, $03, $18, $1E, $03, $D0, $00, $02, $D3 LABDF: .byte $1F, $01, $D8, $00, $02, $DC, $1F, $01, $FD ;Room enemy/door data: LABE8: .byte $01, $01, $45, $11, $00, $89, $FF ;Room #$14 LABEF: .byte $00 ;Attribute table data. ;Room object data: LABF0: .byte $00, $1F, $01, $08, $1F, $01, $10, $1E, $03, $18, $1E, $03, $94, $06, $03, $98 LAC00: .byte $06, $03, $9C, $06, $03, $D0, $1F, $01, $D3, $00, $02, $DB, $00, $02, $FD ;Room enemy/door data: LAC0F: .byte $21, $00, $47, $31, $01, $6A, $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 LAC16: .byte $08, $01, $01, $01, $01, $01, $01, $01, $01, $08, $00, $00, $00, $00, $00, $00 LAC26: .byte $00, $00, $FF ;Structure #$01 LAC29: .byte $08, $0A, $0A, $0A, $0A, $0A, $0A, $0A, $0A, $08, $02, $02, $02, $02, $02, $02 LAC39: .byte $02, $02, $01, $1C, $08, $03, $03, $03, $03, $03, $03, $03, $03, $08, $0A, $0A LAC49: .byte $0A, $0A, $0A, $0A, $0A, $0A, $FF ;Structure #$02 LAC50: .byte $02, $04, $05, $02, $04, $05, $02, $04, $05, $02, $04, $05, $02, $04, $05, $02 LAC60: .byte $04, $05, $02, $04, $05, $02, $04, $05, $FF ;Structure #$03 LAC69: .byte $01, $08, $01, $08, $01, $08, $FF ;Structure #$04 LAC70: .byte $01, $09, $01, $09, $01, $09, $FF ;Structure #$05 LAC77: .byte $01, $13, $FF ;Structure #$06 LAC7A: .byte $03, $1D, $17, $1E, $03, $21, $1C, $21, $03, $21, $1C, $21, $03, $1F, $17, $20 LAC8A: .byte $FF ;Structure #$07 LAC8B: .byte $05, $25, $1C, $1C, $1C, $31, $05, $26, $1C, $1C, $1C, $32, $05, $26, $1C, $1C LAC9B: .byte $1C, $32, $05, $27, $1C, $1C, $1C, $33, $FF ;Structure #$08 LACA4: .byte $03, $28, $29, $2A, $03, $2B, $2C, $2D, $03, $2E, $2F, $30, $03, $06, $12, $35 LACB4: .byte $FF ;Structure #$09 LACB5: .byte $01, $0B, $01, $0B, $01, $0B, $01, $0B, $01, $0B, $01, $0B, $01, $0B, $01, $0B LACC5: .byte $FF ;Structure #$0A LACC6: .byte $08, $0B, $0B, $0B, $0B, $0B, $0B, $0B, $0B, $FF ;Structure #$0B LACD0: .byte $07, $1D, $0D, $16, $16, $16, $0D, $1E, $07, $21, $1D, $0D, $0D, $0D, $1E, $21 LACE0: .byte $07, $21, $21, $15, $14, $15, $21, $21, $07, $0D, $21, $16, $10, $16, $21, $0D LACF0: .byte $07, $1F, $0D, $20, $10, $1F, $0D, $20, $FF ;Structure #$0C LACF9: .byte $08, $22, $22, $0D, $22, $22, $1E, $1C, $1D, $08, $1C, $1C, $21, $1C, $1C, $21 LAD09: .byte $1C, $21, $08, $1C, $1C, $0C, $1C, $1C, $1F, $0D, $20, $07, $1C, $1C, $21, $1C LAD19: .byte $1C, $1C, $14, $04, $1C, $14, $0D, $14, $03, $1C, $1C, $15, $FF ;Structure #$0D LAD26: .byte $02, $01, $01, $02, $00, $00, $FF ;Structure #$0E LAD2D: .byte $01, $16, $01, $21, $01, $21, $01, $0C, $01, $21, $01, $0D, $01, $21, $FF ;Structure #$0F LAD3C: .byte $01, $0C, $FF ;Structure #$10 LAD3F: .byte $07, $22, $22, $22, $22, $22, $22, $22, $FF ;Structure #$11 LAD48: .byte $05, $0B, $1D, $22, $0D, $22, $04, $11, $21, $11, $21, $04, $11, $21, $11, $0D LAD58: .byte $03, $11, $21, $11, $03, $23, $23, $23, $FF ;Structure #$12 LAD61: .byte $03, $19, $1B, $1A, $FF ;Structure #$13 LAD66: .byte $01, $34, $01, $34, $FF ;Structure #$14 LAD6B: .byte $08, $1D, $22, $17, $0D, $1E, $0D, $17, $0D, $08, $0D, $22, $17, $20, $21, $14 LAD7B: .byte $0D, $11, $08, $21, $1D, $22, $17, $20, $10, $10, $21, $08, $21, $1F, $17, $0D LAD8B: .byte $22, $0D, $1E, $11, $08, $0D, $14, $10, $1F, $22, $22, $20, $11, $FF ;Structure #$15 LAD99: .byte $08, $17, $17, $0D, $17, $17, $0D, $17, $17, $08, $0D, $17, $17, $17, $17, $17 LADA9: .byte $17, $0D, $FF ;Structure #$16 LADAC: .byte $08, $18, $1D, $17, $1E, $1D, $17, $17, $1E, $08, $18, $21, $1C, $21, $21, $1C LADBC: .byte $1C, $21, $08, $0D, $20, $1C, $1F, $20, $1C, $1C, $1F, $FF ;Structure #$17 LADC8: .byte $04, $0D, $0D, $0D, $0D, $04, $18, $18, $18, $18, $04, $18, $18, $18, $18, $04 LADD8: .byte $18, $18, $18, $18, $FF ;Structure #$18 LADDD: .byte $07, $0A, $0A, $0A, $0A, $0A, $0A, $0A, $07, $0D, $17, $17, $17, $17, $17, $0D LADED: .byte $07, $18, $0A, $10, $0A, $0A, $10, $18, $07, $0D, $17, $17, $17, $17, $17, $0D LADFD: .byte $FF ;Structure #$19 LADFE: .byte $01, $0A, $01, $0A, $01, $0A, $01, $0A, $01, $0A, $01, $0A, $01, $0A, $01, $0A LAE0E: .byte $FF ;Structure #$1A LAE0F: .byte $01, $0D, $01, $18, $01, $18, $01, $18, $01, $18, $FF ;Structure #$1B LAE1A: .byte $02, $19, $1A, $FF ;Structure #$1C LAE1E: .byte $01, $0D, $FF ;Structure #$1D LAE21: .byte $04, $14, $1C, $1C, $14, $04, $0A, $0A, $0A, $0A, $FF ;Structure #$1E LAE2C: .byte $08, $0D, $22, $22, $22, $22, $22, $22, $0D, $FF ;Structure #$1F LAE36: .byte $08, $0E, $0E, $0E, $0E, $0E, $0E, $0E, $0E, $08, $0E, $10, $0E, $0E, $10, $10 LAE46: .byte $0E, $10, $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: LAE49: .byte $A7, $A7, $A7, $A7 LAE4D: .byte $FF, $FF, $A6, $A6 LAE51: .byte $A2, $A2, $FF, $FF LAE55: .byte $FF, $FF, $A3, $A3 LAE59: .byte $A4, $FF, $A4, $FF LAE5D: .byte $FF, $A5, $FF, $A5 LAE61: .byte $FF, $79, $FF, $7E LAE65: .byte $4F, $4F, $4F, $4F LAE69: .byte $A0, $A0, $A0, $A0 LAE6D: .byte $A1, $A1, $A1, $A1 LAE71: .byte $04, $05, $06, $07 LAE75: .byte $10, $11, $12, $13 LAE79: .byte $00, $01, $02, $03 LAE7D: .byte $08, $08, $08, $08 LAE81: .byte $18, $19, $1A, $1B LAE85: .byte $1C, $1D, $1E, $1F LAE89: .byte $0C, $0D, $0E, $0F LAE8D: .byte $09, $09, $09, $09 LAE91: .byte $7A, $7B, $7F, $5A LAE95: .byte $2A, $2C, $FF, $FF LAE99: .byte $14, $15, $16, $17 LAE9D: .byte $20, $21, $22, $23 LAEA1: .byte $24, $25, $20, $21 LAEA5: .byte $28, $28, $29, $29 LAEA9: .byte $26, $27, $26, $27 LAEAD: .byte $2A, $2B, $FF, $FF LAEB1: .byte $2B, $2C, $FF, $FF LAEB5: .byte $2B, $2B, $FF, $FF LAEB9: .byte $FF, $FF, $FF, $FF LAEBD: .byte $31, $32, $33, $34 LAEC1: .byte $35, $36, $37, $38 LAEC5: .byte $3D, $3E, $3F, $40 LAEC9: .byte $41, $42, $43, $44 LAECD: .byte $39, $3A, $39, $3A LAED1: .byte $3B, $3B, $3C, $3C LAED5: .byte $0B, $0B, $2D, $2E LAED9: .byte $2F, $30, $0B, $0B LAEDD: .byte $50, $51, $52, $53 LAEE1: .byte $54, $55, $54, $55 LAEE5: .byte $56, $57, $58, $59 LAEE9: .byte $FF, $FF, $FF, $5E LAEED: .byte $5B, $5C, $5F, $60 LAEF1: .byte $FF, $FF, $61, $FF LAEF5: .byte $5D, $62, $67, $68 LAEF9: .byte $63, $64, $69, $6A LAEFD: .byte $65, $66, $6B, $6C LAF01: .byte $6D, $6E, $73, $74 LAF05: .byte $6F, $70, $75, $76 LAF09: .byte $71, $72, $77, $78 LAF0D: .byte $45, $46, $47, $48 LAF11: .byte $FF, $98, $FF, $98 LAF15: .byte $49, $4A, $4B, $4C LAF19: .byte $90, $91, $90, $91 LAF1D: .byte $7C, $7D, $4D, $FF ;Not used. LAF21: .byte $1C, $1D, $1E, $17, $18, $19, $1A, $1F, $20, $21, $22, $60, $61, $62, $63, $0E LAF31: .byte $0F, $FF, $FF, $0C, $0D, $0D, $0D, $10, $0D, $FF, $10, $10, $FF, $FF, $FF, $FF LAF41: .byte $FF, $FF, $30, $FF, $33, $FF, $36, $FF, $39, $FF, $3D, $FF, $FF, $31, $32, $34 LAF51: .byte $35, $37, $38, $3A, $3B, $3E, $3F, $3C, $41, $40, $42, $84, $85, $86, $87, $80 LAF61: .byte $81, $82, $83, $88, $89, $8A, $8B, $45, $46, $45, $46, $47, $48, $48, $47, $5C LAF71: .byte $5D, $5E, $5F, $B8, $B8, $B9, $B9, $74, $75, $75, $74, $C1, $13, $13, $13, $36 LAF81: .byte $BE, $BC, $BD, $BF, $14, $15, $14, $C0, $14, $C0, $16, $FF, $C1, $FF, $FF, $C2 LAF91: .byte $14, $FF, $FF, $30, $13, $BC, $BD, $13, $14, $15, $16, $D7, $D7, $D7, $D7, $76 LAFA1: .byte $76, $76, $76, $FF, $FF, $BA, $BA, $BB, $BB, $BB, $BB, $00, $01, $02, $03, $04 LAFB1: .byte $05, $06, $07, $FF, $FF, $08, $09, $FF, $FF, $09, $0A, $55, $56, $57, $58, $90 LAFC1: .byte $91, $92, $93, $4B, $4C, $4D, $50, $51, $52, $53, $54, $70, $71, $72, $73, $8C LAFD1: .byte $8D, $8E, $8F, $11, $12, $FF, $11, $11, $12, $12, $11, $11, $12, $12, $FF, $C3 LAFE1: .byte $C4, $C5, $C6, $30, $00, $BC, $BD, $CD, $CE, $CF, $D0, $D1, $D2, $D3, $D4, $90 LAFF1: .byte $91, $92, $93, $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. EscapeSQ2Data: LB000: .byte $C4 ; LB001: .byte $B3 ;3/4 seconds + LB002: .byte $3E ;G4 | LB003: .byte $44 ;A#4 | Repeat 4 times LB004: .byte $B4 ;1 1/2 seconds | LB005: .byte $42 ;A4 + LB006: .byte $FF ; LB007: .byte $C2 ; LB008: .byte $B6 ;1 3/16 seconds + LB009: .byte $30 ;C4 | LB00A: .byte $B9 ;1/8 seconds | LB00B: .byte $26 ;G3 | LB00C: .byte $30 ;C4 | LB00D: .byte $36 ;D#4 | LB00E: .byte $B4 ;1 1/2 seconds | LB00F: .byte $34 ;D4 | LB010: .byte $B6 ;1 3/16 seconds | LB011: .byte $30 ;C4 | LB012: .byte $B9 ;1/8 seconds | LB013: .byte $26 ;G3 | LB014: .byte $30 ;C4 | LB015: .byte $36 ;D#4 | LB016: .byte $B4 ;1 1/2 seconds | Repeat 2 times LB017: .byte $34 ;D4 | LB018: .byte $B6 ;1 3/16 seconds | LB019: .byte $30 ;C4 | LB01A: .byte $B9 ;1/8 seconds | LB01B: .byte $26 ;G3 | LB01C: .byte $30 ;C4 | LB01D: .byte $38 ;E4 | LB01E: .byte $B4 ;1 1/2 seconds | LB01F: .byte $34 ;D4 | LB020: .byte $B6 ;1 3/16 seconds | LB021: .byte $30 ;C4 | LB022: .byte $B9 ;1/8 seconds | LB023: .byte $26 ;G3 | LB024: .byte $30 ;C4 | LB025: .byte $38 ;E4 | LB026: .byte $B4 ;1 1/2 seconds | LB027: .byte $34 ;D4 + LB028: .byte $FF ; LB029: .byte $C2 ; LB02A: .byte $B6 ;1 3/16 seconds + LB02B: .byte $48 ;C5 | LB02C: .byte $B9 ;1/8 seconds | LB02D: .byte $46 ;B4 | LB02E: .byte $02 ;No sound | LB02F: .byte $48 ;C5 | LB030: .byte $B6 ;1 3/16 seconds | LB031: .byte $4C ;D5 | LB032: .byte $B2 ;3/8 seconds | LB033: .byte $48 ;C5 | LB034: .byte $B6 ;1 3/16 seconds | LB035: .byte $46 ;B4 | LB036: .byte $B9 ;1/8 second | LB037: .byte $42 ;A4 | LB038: .byte $02 ;No sound | LB039: .byte $46 ;B4 | Repeat 2 times LB03A: .byte $B3 ;3/4 seconds | LB03B: .byte $48 ;C5 | LB03C: .byte $3E ;G4 | LB03D: .byte $B6 ;1 3/16 seconds | LB03E: .byte $3A ;F4 | LB03F: .byte $B9 ;1/8 seconds | LB040: .byte $3E ;G4 | LB041: .byte $02 ;No sound | LB042: .byte $3A ;F4 | LB043: .byte $B3 ;3/4 seconds | LB044: .byte $38 ;E4 | LB045: .byte $30 ;C4 | LB046: .byte $B4 ;1 1/2 seconds | LB047: .byte $36 ;D#4 | LB048: .byte $B3 ;3/4 seconds | LB049: .byte $30 ;C4 | LB04A: .byte $2E ;B3 + LB04B: .byte $FF ; LB04C: .byte $00 ;End escape music. EscapeSQ1Data: LB04D: .byte $C4 ; LB04E: .byte $B3 ;3/4 seconds + LB04F: .byte $34 ;D4 | LB050: .byte $3A ;F4 | Repeat 4 times LB051: .byte $B4 ;1 1/2 seconds | LB052: .byte $32 ;C#4 + LB053: .byte $FF ; LB054: .byte $C2 ; LB055: .byte $B4 ;1 1/2 seconds + LB056: .byte $2A ;A3 | LB057: .byte $28 ;Ab3 | LB058: .byte $2A ;A3 | LB059: .byte $B6 ;1 3/16 seconds | LB05A: .byte $28 ;Ab3 | LB05B: .byte $B9 ;1/8 seconds | LB05C: .byte $26 ;G3 | LB05D: .byte $24 ;F#3 | LB05E: .byte $22 ;F3 | LB05F: .byte $B6 ;1 3/16 seconds | LB060: .byte $20 ;E3 | LB061: .byte $B2 ;3/8 seconds | LB062: .byte $22 ;F3 | LB063: .byte $B6 ;1 3/16 seconds | Repeat 2 times LB064: .byte $28 ;Ab3 | LB065: .byte $B9 ;1/8 seconds | LB066: .byte $26 ;G3 | LB067: .byte $24 ;F#3 | LB068: .byte $22 ;F3 | LB069: .byte $B4 ;1 1/2 seconds | LB06A: .byte $26 ;G3 | LB06B: .byte $B9 ;1/8 seconds | LB06C: .byte $22 ;F3 | LB06D: .byte $20 ;E3 | LB06E: .byte $22 ;F3 | LB06F: .byte $26 ;G3 | LB070: .byte $22 ;F3 | LB071: .byte $26 ;G3 | LB072: .byte $2A ;A3 | LB073: .byte $26 ;G3 | LB074: .byte $2A ;A3 | LB075: .byte $2E ;B3 | LB076: .byte $2A ;A3 | LB077: .byte $2E ;B3 + LB078: .byte $FF ; LB079: .byte $C2 ; LB07A: .byte $B9 ;1/8 seconds + LB07B: .byte $20 ;E3 | LB07C: .byte $1E ;D#3 | LB07D: .byte $20 ;E3 | LB07E: .byte $26 ;G3 | LB07F: .byte $30 ;C4 | LB080: .byte $38 ;E4 | LB081: .byte $B2 ;3/8 seconds | LB082: .byte $3E ;G4 | LB083: .byte $38 ;E4 | LB084: .byte $B0 ;3/32 seconds | LB085: .byte $24 ;F#3 | LB086: .byte $20 ;E3 | LB087: .byte $24 ;F#3 | LB088: .byte $2A ;A3 | LB089: .byte $B9 ;1/8 seconds | LB08A: .byte $34 ;D4 | LB08B: .byte $3A ;F4 | LB08C: .byte $3C ;F#4 | LB08D: .byte $B2 ;3/8 seconds | LB08E: .byte $42 ;A4 | LB08F: .byte $3C ;F#4 | LB090: .byte $B2 ;3/8 seconds | LB091: .byte $3E ;G4 | LB092: .byte $B9 ;1/8 seconds | LB093: .byte $34 ;D4 | LB094: .byte $02 ;No sound | LB095: .byte $2E ;B3 | LB096: .byte $B3 ;3/4 seconds | LB097: .byte $34 ;D4 | LB098: .byte $B2 ;3/8 seconds | LB099: .byte $3E ;G4 | LB09A: .byte $3A ;F4 | LB09B: .byte $38 ;E4 | LB09C: .byte $34 ;D4 | LB09D: .byte $B9 ;1/8 seconds | LB09E: .byte $30 ;C4 | LB09F: .byte $26 ;G3 | LB0A0: .byte $30 ;C4 | LB0A1: .byte $B9 ;1/8 seconds | LB0A2: .byte $34 ;D4 | LB0A3: .byte $02 ;No sound | LB0A4: .byte $26 ;G3 | LB0A5: .byte $B3 ;3/4 seconds | Repeat 2 times LB0A6: .byte $30 ;C4 | LB0A7: .byte $B9 ;1/8 seconds | LB0A8: .byte $30 ;C4 | LB0A9: .byte $20 ;E3 | LB0AA: .byte $3E ;G4 | LB0AB: .byte $B9 ;1/8 seconds | LB0AC: .byte $34 ;D4 | LB0AD: .byte $02 ;No sound | LB0AE: .byte $26 ;G3 | LB0AF: .byte $3A ;F4 | LB0B0: .byte $38 ;E4 | LB0B1: .byte $34 ;D4 | LB0B2: .byte $30 ;C4 | LB0B3: .byte $26 ;G3 | LB0B4: .byte $24 ;F#3 | LB0B5: .byte $22 ;F3 | LB0B6: .byte $20 ;E3 | LB0B7: .byte $22 ;F3 | LB0B8: .byte $26 ;G3 | LB0B9: .byte $22 ;F3 | LB0BA: .byte $26 ;G3 | LB0BB: .byte $28 ;Ab3 | LB0BC: .byte $26 ;G3 | LB0BD: .byte $28 ;Ab3 | LB0BE: .byte $2C ;A#3 | LB0BF: .byte $28 ;Ab3 | LB0C0: .byte $2C ;A#3 | LB0C1: .byte $B9 ;1/8 seconds | LB0C2: .byte $22 ;F3 | LB0C3: .byte $20 ;E3 | LB0C4: .byte $22 ;F3 | LB0C5: .byte $20 ;E3 | LB0C6: .byte $22 ;F3 | LB0C7: .byte $20 ;E3 | LB0C8: .byte $22 ;F3 | LB0C9: .byte $1C ;D3 | LB0CA: .byte $22 ;F3 | LB0CB: .byte $1C ;D3 | LB0CC: .byte $22 ;F3 | LB0CD: .byte $1C ;D3 + LB0CE: .byte $FF ; EscapeTriData: LB0CF: .byte $D0 ; LB0D0: .byte $B2 ;3/8 seconds + LB0D1: .byte $3E ;G4 | LB0D2: .byte $B9 ;1/8 seconds | Repeat 16 times LB0D3: .byte $3E ;G4 | LB0D4: .byte $3E ;G4 | LB0D5: .byte $3E ;G4 + LB0D6: .byte $FF ; LB0D7: .byte $C2 ; LB0D8: .byte $B2 ;3/8 seconds + LB0D9: .byte $2A ;A3 | LB0DA: .byte $B9 ;1/8 seconds | LB0DB: .byte $2A ;A3 | LB0DC: .byte $12 ;A2 | LB0DD: .byte $2A ;A3 | LB0DE: .byte $B2 ;3/8 seconds | LB0DF: .byte $2A ;A3 | LB0E0: .byte $2A ;A3 | LB0E1: .byte $2A ;A3 | LB0E2: .byte $B9 ;1/8 seconds | LB0E3: .byte $2A ;A3 | LB0E4: .byte $2A ;A3 | LB0E5: .byte $2A ;A3 | LB0E6: .byte $B2 ;3/8 seconds | LB0E7: .byte $2A ;A3 | LB0E8: .byte $2A ;A3 | LB0E9: .byte $2A ;A3 | LB0EA: .byte $B9 ;1/8 seconds | LB0EB: .byte $2A ;A3 | LB0EC: .byte $2A ;A3 | LB0ED: .byte $2A ;A3 | LB0EE: .byte $B2 ;3/8 seconds | LB0EF: .byte $2A ;A3 | LB0F0: .byte $2A ;A3 | LB0F1: .byte $2A ;A3 | LB0F2: .byte $2A ;A3 | LB0F3: .byte $2A ;A3 | LB0F4: .byte $B9 ;1/8 seconds | LB0F5: .byte $2A ;A3 | LB0F6: .byte $12 ;A2 | LB0F7: .byte $2A ;A3 | LB0F8: .byte $B2 ;3/8 seconds | LB0F9: .byte $26 ;G3 | LB0FA: .byte $B9 ;1/8 seconds | Repeat 2 times LB0FB: .byte $0E ;G2 | LB0FC: .byte $26 ;G3 | LB0FD: .byte $26 ;G3 | LB0FE: .byte $B2 ;3/8 seconds | LB0FF: .byte $26 ;G3 | LB100: .byte $B9 ;1/8 seconds | LB101: .byte $0E ;G2 | LB102: .byte $26 ;G3 | LB103: .byte $26 ;G3 | LB104: .byte $B2 ;3/8 seconds | LB105: .byte $22 ;F3 | LB106: .byte $B9 ;1/8 seconds | LB107: .byte $0A ;F2 | LB108: .byte $22 ;F3 | LB109: .byte $22 ;F3 | LB10A: .byte $B2 ;3/8 seconds | LB10B: .byte $22 ;F3 | LB10C: .byte $B9 ;1/8 seconds | LB10D: .byte $0A ;F2 | LB10E: .byte $22 ;F3 | LB10F: .byte $22 ;F3 | LB110: .byte $B2 ;3/8 seconds | LB111: .byte $20 ;E3 | LB112: .byte $20 ;E3 | LB113: .byte $B9 ;1/8 seconds | LB114: .byte $20 ;E3 | LB115: .byte $20 ;E3 | LB116: .byte $20 ;E3 | LB117: .byte $B2 ;3/8 seconds | LB118: .byte $20 ;E3 | LB119: .byte $B9 ;1/8 seconds | LB11A: .byte $34 ;D4 | LB11B: .byte $30 ;C4 | LB11C: .byte $34 ;D4 | LB11D: .byte $38 ;E4 | LB11E: .byte $34 ;D4 | LB11F: .byte $38 ;E4 | LB120: .byte $3A ;F4 | LB121: .byte $38 ;E4 | LB122: .byte $3A ;F4 | LB123: .byte $3E ;G4 | LB124: .byte $3A ;F4 | LB125: .byte $3E ;G4 + LB126: .byte $FF ; LB127: .byte $C2 ; LB128: .byte $B2 ;3/8 seconds + LB129: .byte $18 ;C3 | LB12A: .byte $30 ;C4 | LB12B: .byte $18 ;C3 | LB12C: .byte $30 ;C4 | LB12D: .byte $18 ;C3 | LB12E: .byte $30 ;C4 | LB12F: .byte $18 ;C3 | LB130: .byte $30 ;C4 | LB131: .byte $22 ;F3 | LB132: .byte $22 ;F3 | LB133: .byte $B1 ;3/16 seconds | LB134: .byte $22 ;F3 | LB135: .byte $22 ;F3 | LB136: .byte $B2 ;3/8 seconds | LB137: .byte $22 ;F3 | LB138: .byte $20 ;E3 | LB139: .byte $1C ;D3 | LB13A: .byte $18 ;C3 | LB13B: .byte $16 ;B2 | LB13C: .byte $14 ;A#2 | LB13D: .byte $14 ;A#2 | LB13E: .byte $14 ;A#2 | LB13F: .byte $2C ;A#3 | Repeat 2 times LB140: .byte $2A ;A3 | LB141: .byte $2A ;A3 | LB142: .byte $B9 ;1/8 seconds | LB143: .byte $2A ;A3 | LB144: .byte $2A ;A3 | LB145: .byte $2A ;A3 | LB146: .byte $B2 ;3/8 seconds | LB147: .byte $2A ;A3 | LB148: .byte $28 ;Ab3 | LB149: .byte $28 ;Ab3 | LB14A: .byte $B9 ;1/8 seconds | LB14B: .byte $28 ;Ab3 | LB14C: .byte $28 ;Ab3 | LB14D: .byte $28 ;Ab3 | LB14E: .byte $B2 ;3/8 seconds | LB14F: .byte $28 ;Ab3 | LB150: .byte $26 ;G3 | LB151: .byte $26 ;G3 | LB152: .byte $B9 ;1/8 seconds | LB153: .byte $26 ;G3 | LB154: .byte $26 ;G3 | LB155: .byte $3E ;G4 | LB156: .byte $26 ;G3 | LB157: .byte $26 ;G3 | LB158: .byte $3E ;G4 + LB159: .byte $FF ; EscapeNoiseData: LB15A: .byte $F0 ; LB15B: .byte $B2 ;3/8 seconds + LB15C: .byte $01 ;Drumbeat 00 | LB15D: .byte $04 ;Drumbeat 01 | Repeat 48 times LB15E: .byte $01 ;Drumbeat 00 | LB15F: .byte $04 ;Drumbeat 01 + LB160: .byte $FF ; MthrBrnRoomTriData: LB161: .byte $E0 ; LB162: .byte $BA ;3/64 seconds + LB163: .byte $2A ;A3 | LB164: .byte $1A ;C#3 | LB165: .byte $02 ;No sound | LB166: .byte $3A ;F4 | LB167: .byte $40 ;Ab4 | LB168: .byte $02 ;No sound | LB169: .byte $1C ;D3 | LB16A: .byte $2E ;B3 | LB16B: .byte $38 ;E4 | LB16C: .byte $2C ;A#3 | LB16D: .byte $3C ;F#4 | LB16E: .byte $38 ;E4 | LB16F: .byte $02 ;No sound | LB170: .byte $40 ;Ab4 | LB171: .byte $44 ;A#4 | LB172: .byte $46 ;B4 | LB173: .byte $02 ;No sound | LB174: .byte $1E ;D#3 | LB175: .byte $02 ;No sound | Repeat 32 times LB176: .byte $2C ;A#3 | LB177: .byte $38 ;E4 | LB178: .byte $46 ;B4 | LB179: .byte $26 ;G3 | LB17A: .byte $02 ;No sound | LB17B: .byte $3A ;F4 | LB17C: .byte $20 ;E3 | LB17D: .byte $02 ;No sound | LB17E: .byte $28 ;Ab3 | LB17F: .byte $2E ;B3 | LB180: .byte $02 ;No sound | LB181: .byte $18 ;C3 | LB182: .byte $44 ;A#4 | LB183: .byte $02 ;No sound | LB184: .byte $46 ;B4 | LB185: .byte $48 ;C5 | LB186: .byte $4A ;C#5 | LB187: .byte $4C ;D5 | LB188: .byte $02 ;No sound | LB189: .byte $18 ;C3 | LB18A: .byte $1E ;D#3 + LB18B: .byte $FF ; MthrBrnRoomSQ1Data: LB18C: .byte $B8 ;1/4 seconds LB18D: .byte $02 ;No sound ;SQ1 music data runs down into the SQ2 music data. MthrBrnRoomSQ2Data: LB18E: .byte $C8 ; LB18F: .byte $B0 ;3/32 seconds + LB190: .byte $0A ;F2 | Repeat 8 times LB191: .byte $0C ;F#2 + LB192: .byte $FF ; LB193: .byte $C8 ; LB194: .byte $0E ;G2 + Repeat 8 times LB195: .byte $0C ;F#2 + LB196: .byte $FF ; LB197: .byte $C8 ; LB198: .byte $10 ;Ab2 + Repeat 8 times LB199: .byte $0E ;G2 + LB19A: .byte $FF ; LB19B: .byte $C8 ; LB19C: .byte $0E ;G2 + Repeat 8 times LB19D: .byte $0C ;F#2 + LB19E: .byte $FF ; LB19F: .byte $00 ;End mother brain room music. ;Unused tile patterns. LB1A0: .byte $2B, $3B, $1B, $5A, $D0, $D1, $C3, $C3, $3B, $3B, $9B, $DA, $D0, $D0, $C0, $C0 LB1B0: .byte $2C, $23, $20, $20, $30, $98, $CF, $C7, $00, $00, $00, $00, $00, $00, $00, $30 LB1C0: .byte $1F, $80, $C0, $C0, $60, $70, $FC, $C0, $00, $00, $00, $00, $00, $00, $00, $00 LB1D0: .byte $01, $00, $00, $00, $00, $00, $00, $00, $80, $80, $C0, $78, $4C, $C7, $80, $80 LB1E0: .byte $C4, $A5, $45, $0B, $1B, $03, $03, $00, $3A, $13, $31, $63, $C3, $83, $03, $04 LB1F0: .byte $E6, $E6, $C4, $8E, $1C, $3C, $18, $30, $E8, $E8, $C8, $90, $60, $00, $00, $00 ;-----------------------------------------[ Sound engine ]------------------------------------------- ;SFXdata. The top four entries are used by the noise music player for drum beats. LB200: .byte $00 ;Base for drum beat music data. DrumBeat00SFXData: LB201: .byte $10, $01, $18 ;Noise channel music data #$01. DrumBeat01SFXData: LB204: .byte $00, $01, $38 ;Noise channel music data #$04. DrumBeat02SFXData: LB207: .byte $01, $02, $40 ;Noise channel music data #$07. DrumBeat03SFXData: LB20A: .byte $00, $09, $58 ;Noise channel music data #$0A. GamePausedSFXData: LB20D: .byte $80, $7F, $80, $48 ScrewAttSFXData: LB211: .byte $35, $7F, $00, $B0 MissileLaunchSFXData: LB215: .byte $19, $7F, $0E, $A0 BombExplodeSFXData: LB219: .byte $0D, $7F, $0F, $08 SamusWalkSFXData: LB21D: .byte $16, $7F, $0B, $18 SpitFlameSFXData: LB221: .byte $13, $7F, $0E, $F8 SamusHitSQ1SQ2SFXData: LC225: .byte $C1, $89, $02, $0F BossHitSQ2SFXData: LB229: .byte $34, $BA, $E0, $05 BossHitSQ1SFXData: LB22D: .byte $34, $BB, $CE, $05 IncorrectPasswordSQ1SFXData: LB231: .byte $B6, $7F, $00, $C2 IncorrectPasswordSQ2SFXData: LB235: .byte $B6, $7F, $04, $C2 TimeBombTickSFXData: LB239: .byte $17, $7F, $66, $89 EnergyPickupSFXData: LB23D: .byte $89, $7F, $67, $18 MissilePickupSFXData: LB241: .byte $8B, $7F, $FD, $28 MetalSFXData: LB245: .byte $02, $7F, $A8, $F8 LongRangeShotSFXData: LB249: .byte $D7, $83, $58, $F8 ShortRangeShotSFXData: LB24D: .byte $D6, $82, $58, $F8 JumpSFXData: LB251: .byte $95, $8C, $40, $B9 EnemyHitSFXData: LB255: .byte $1D, $9A, $20, $8F BugOutOFHoleSFXData: LB259: .byte $16, $8D, $E0, $42 WaveBeamSFXData: LB25D: .byte $19, $7F, $6F, $40 IceBeamSFXData: LB261: .byte $18, $7F, $80, $40 BombLaunch1SFXData: LB265: .byte $07, $7F, $40, $28 BombLaunch2SFXData: LB269: .byte $07, $7F, $45, $28 SamusToBallSFXData: LB26D: .byte $7F, $7F, $DD, $3B MetroidHitSFXData: LB26E: .byte $7F, $7F, $FF, $98 SamusDieSFXData: LB275: .byte $7F, $7F, $40, $08 SamusBeepSFXData: LB279: .byte $09, $7F, $30, $48 BigEnemyHitSFXData: LB27D: .byte $03, $7F, $42, $18 StatueRaiseSFXData: LB281: .byte $03, $7F, $11, $09 DoorSFXData: LB285: .byte $7F, $7F, $30, $B2 ;The following table is used by the CheckSFXFlag routine. The first two bytes of each row ;are the address of the pointer table used for handling SFX and music routines for set flags. ;The second pair of bytes is the address of the routine to next jump to if no SFX or music ;flags were found. The final byte represents what type of channel is currently being ;processed: 0=Noise, 1=SQ1, 3=Triangle, 4=Multiple channels. ChooseNextSFXRoutineTbl: LB289: .word $B2BB, $B322 ;Noise init SFX (1st). LB28D: .byte $00 LB28E: .word $B2CB, $B4EE ;Noise continue SFX (2nd). LB292: .byte $00 LB293: .word $B2DB, $B330 ;SQ1 init SFX (5th). LB297: .byte $01 LB298: .word $B2EB, $B4EE ;SQ2 continue SFX (6th). LB29C: .byte $01 LB29D: .word $B2FB, $B344 ;Triangle init SFX (7th). LB2A1: .byte $03 LB2A2: .word $B30B, $B4EE ;Triangle continue SFX (8th). LB2A6: .byte $03 LB2A7: .word $BC06, $B35C ;Multi init SFX (3rd). LB2AB: .byte $04 LB2AC: .word $BC16, $B364 ;Multi continue SFX (4th). LB2B0: .byte $04 LB2B1: .word $BC26, $BC4B ;temp flag Music (10th). LB2B5: .byte $00 LB2B6: .word $BC26, $BC3D ;Music (9th). LB2BA: .byte $00 ;The tables below contain addresses for SFX handling routines. ;Noise Init SFX handling routine addresses: LB2BB: .word $B4EE ;No sound. LB2BD: .word $B52B ;Screw attack init SFX. LB2BF: .word $B56E ;Missile launch init SFX. LB2C1: .word $B583 ;Bomb explode init SFX. LB2C3: .word $B598 ;Samus walk init SFX. LB2C5: .word $B50F ;Spit flame init SFX. LB2C7: .word $B4EE ;No sound. LB2C9: .word $B4EE ;No sound. ;Noise Continue SFX handling routine addresses: LB2CB: .word $B4EE ;No sound. LB2CD: .word $B539 ;Screw attack continue SFX. LB2CF: .word $B57B ;Missile launch continue SFX. LB2D1: .word $B58A ;Bomb explode continue SFX. LB2D3: .word $B58A ;Samus walk continue SFX. LB2D5: .word $B516 ;Spit flame continue SFX. LB2D7: .word $B4EE ;No sound. LB2D9: .word $B4EE ;No sound. ;SQ1 Init SFX handling routine addresses: LB2DB: .word $B6CD ;Missile pickup init SFX. LB2DD: .word $B6E7 ;Energy pickup init SFX. LB2DF: .word $B735 ;Metal init SFX. LB2E1: .word $B716 ;Bullet fire init SFX. LB2E3: .word $B73C ;Bird out of hole init SFX. LB2E5: .word $B710 ;Enemy hit init SFX. LB2E7: .word $B703 ;Samus jump init SFX. LB2E9: .word $B77A ;Wave beam init SFX. ;SQ1 Continue SFX handling routine addresses: LB2EB: .word $B6B0 ;Missile pickup continue SFX. LB2ED: .word $B6D3 ;Energy pickup continue SFX. LB2EF: .word $B6ED ;Metal continue SFX. LB2F1: .word $B74F ;Bullet fire continue SFX. LB2F3: .word $B6ED ;Bird out of hole continue SFX. LB2F5: .word $B6ED ;Enemy hit continue SFX. LB2F7: .word $B6ED ;Samus jump continue SFX. LB2F9: .word $B781 ;Wave beam continue SFX. ;Triangle init handling routine addresses: LB2FB: .word $B8D2 ;Samus die init SFX. LB2FD: .word $B7AC ;Door open close init SFX. LB2FF: .word $B8A7 ;Metroid hit init SFX. LB301: .word $B921 ;Statue raise init SFX. LB303: .word $B7D9 ;Beep init SFX. LB305: .word $B7EF ;Big enemy hit init SFX. LB307: .word $B834 ;Samus to ball init SFX. LB309: .word $B878 ;Bomb launch init SFX. ;Triangle continue handling routine addresses: LB30B: .word $B8ED ;Samus die continue SFX. LB30E: .word $B7CB ;Door open close continue SFX. LB30F: .word $B8B1 ;Metroid hit continue SFX. LB311: .word $B940 ;Statue raise continue SFX. LB313: .word $B7E7 ;Beep continue SFX. LB315: .word $B80E ;Big enemy hit continue SFX. LB317: .word $B84F ;Samus to ball continue SFX. LB319: .word $B87F ;Bomb launch continue SFX. LoadNoiseSFXInitFlags: LB31B: LDA NoiseSFXFlag ;Load A with Noise init SFX flags, (1st SFX cycle). LB31E: LDX #$89 ;Lower address byte in ChooseNextSFXRoutineTbl. LB320: BNE GotoSFXCheckFlags ;Branch always. LoadNoiseSFXContFlags: LB322: LDA NoiseContSFX ;Load A with Noise continue flags, (2nd SFX cycle). LB325: LDX #$8E ;Lower address byte in ChooseNextSFXRoutineTbl. LB327: BNE GotoSFXCheckFlags ;Branch always. LoadSQ1SFXInitFlags: LB329: LDA SQ1SFXFlag ;Load A with SQ1 init flags, (5th SFX cycle). LB32C: LDX #$93 ;Lower address byte in ChooseNextSFXRoutineTbl. LB32E: BNE GotoSFXCheckFlags ;Branch always. LoadSQ1SFXContFlags: LB330: LDA SQ1ContSFX ;Load A with SQ1 continue flags, (6th SFX cycle). LB333: LDX #$98 ;Lower address byte in ChooseNextSFXRoutineTbl. LB335: BNE GotoSFXCheckFlags ;Branch always. GotoSFXCheckFlags: LB337: JSR CheckSFXFlag ;($B4BD)Checks to see if SFX flags set. LB33A: JMP ($00E2) ;if no flag found, Jump to next SFX cycle,--> ;else jump to specific SFX handling routine. LoadSTriangleSFXInitFlags: LB33D: LDA TriangleSFXFlag ;Load A with Triangle init flags, (7th SFX cycle). LB340: LDX #$9D ;Lower address byte in ChooseNextSFXRoutineTbl. LB342: BNE GotoSFXCheckFlags ;Brach always. LoadTriangleSFXContFlags: LB344: LDA TriangleContSFX ;Load A with Triangle continue flags, (8th SFX cycle). LB347: LDX #$A2 ;Lower address byte in ChooseNextSFXRoutineTbl. LB349: BNE GotoSFXCheckFlags ;Branch always. LoadMultiSFXInitFlags: LB34B: LDA MultiSFXFlag ;Load A with Multi init flags, (3rd SFX cycle). LB34E: LDX #$A7 ;Lower address byte in ChooseNextSFXRoutineTbl. LB350: JSR CheckSFXFlag ;($B4BD)Checks to see if SFX or music flags set. LB353: JSR FindMusicInitIndex ;($BC53)Find bit containing music init flag. LB356: JSR Add8 ;($BC64)Add 8 to MusicInitIndex. LB359: JMP ($00E2) ;If no flag found, Jump to next SFX cycle,--> ;else jump to specific SFX handling subroutine. LoadMultiSFXContFlags: LB35C: LDA MultiContSFX ;Load A with $68C flags (4th SFX cycle). LB35F: LDX #$AC ;Lower address byte in ChooseNextSFXRoutineTbl. LB361: JMP GotoSFXCheckFlags ;($B337)Checks to see if SFX or music flags set. LoadSQ1Flags: LB364: JSR LoadSQ1SFXInitFlags ;($B329)Check for SQ1 init flags. LB367: RTS ; LoadSQ1ChannelSFX: ;Used to determine which sound registers to change--> LB368: LDA #$00 ;($4000 - $4003) - SQ1. LB36A: BEQ + ;Branch always. LoadTriangleChannelSFX: ;Used to determine which sound registers to change--> LB36C: LDA #$08 ;($4008 - $400B) - Triangle. LB36E: BNE + ;Branch always. LoadNoiseChannelSFX: ;Used to determine which sound registers to change--> LB370: LDA #$0C ;($400C - $400F) - Noise. LB372: BNE + ;Branch always. LoadSQ2ChannelSFX: ;Used to determine which sound registers to change--> LB374: LDA #$04 ;($4004 - $4007) - SQ2. LoadSFXData: LB376:* STA $E0 ;Lower address byte of desired APU control register. LB378: LDA #$40 ; LB37A: STA $E1 ;Upper address byte of desired APU control register. LB37C: STY $E2 ;Lower address byte of data to load into sound channel. LB37E: LDA #$B2 ; LB380: STA $E3 ;Upper address byte of data to load into sound channel. LB382: LDY #$00 ;Starting index for loading four byte sound data. LoadSFXRegisters: LB384:* LDA ($E2),Y ;Load A with SFX data byte. LB386: STA ($E0),Y ;Store A in SFX register. LB388: INY ; LB389: TYA ;The four registers associated with each sound--> LB38A: CMP #$04 ;channel are loaded one after the other (the loop--> LB38C: BNE - ;repeats four times). LB38E: RTS ; PauseSFX: LB38F:* INC SFXPaused ;SFXPaused=#$01 LB392: JSR ClearSounds ;($B43E)Clear sound registers of data. LB395: STA PauseSFXStatus ;PauseSFXStatus=#$00 LB398: RTS ; LB399:* LDA SFXPaused ;Has SFXPaused been set? if not, branch LB39C: BEQ -- ; LB39E: LDA PauseSFXStatus ;For the first #$12 frames after the game has been--> LB3A1: CMP #$12 ;paused, play GamePaused SFX. If paused for #$12--> LB3A3: BEQ ++ ;frames or more, branch to exit. LB3A5: AND #$03 ; LB3A7: CMP #$03 ;Every fourth frame, repeat GamePaused SFX LB3A9: BNE + ; LB3AB: LDY #$0D ;Lower address byte of GamePaused SFX data(Base=$B200) LB3AD: JSR LoadSQ1ChannelSFX ;($B368) Load GamePaused SFX data. LB3B0:* INC PauseSFXStatus ; LB3B3:* RTS ; ;----------------------------------[ Sound Engine Entry Point ]----------------------------------- ;NOTES: ;SFX take priority over music. ; ;There are 10 SFX cycles run every time the sound engine subroutine is called. The cycles ;search for set sound flags in the following registers in order: ;$680, $688, $684, $68C, $681, $689, $683, $68B, $65D, $685 ; ;The sound channels are assigned SFX numbers. Those SFX numbers are: ;Noise=0, sq1=1, sq2=2, triangle=3, Multi=4 ;The sound channels are assigned music numbers. Those music numbers are: ;SQ1=0, SQ2=1, Triangle=2, Noise=3 SoundEngine: LB3B4: LDA #$C0 ;Set APU to 5 frame cycle, disable frame interrupt. LB3B6: STA APUCommonCntrl1 ; LB3B9: LDA NoiseSFXFlag ;is bit zero is set in NoiseSFXFlag(Silence--> LB3BC: LSR ;music)? If yes, branch. LB3BD: BCS ++ ; LB3BF: LDA MainRoutine ; LB3C1: CMP #$05 ;Is game paused? If yes, branch. LB3C3: BEQ --- ; LB3C5: LDA #$00 ;Clear SFXPaused when game is running. LB3C7: STA SFXPaused ; LB3CA: JSR LoadNoiseSFXInitFlags ;($B31B)Check noise SFX flags. LB3CD: JSR LoadMultiSFXInitFlags ;($B34B)Check multichannel SFX flags. LB3D0: JSR LoadSTriangleSFXInitFlags ;($B33D)Check triangle SFX flags. LB3D3: JSR LoadMusicTempFlags ;($BC36)Check music flags. ClearSFXFlags: LB3D6:* LDA #$00 ; LB3D8: STA NoiseSFXFlag ; LB3DB: STA SQ1SFXFlag ; LB3DE: STA SQ2SFXFlag ;Clear all SFX flags. LB3E1: STA TriangleSFXFlag ; LB3E4: STA MultiSFXFlag ; LB3E7: STA MusicInitFlag ; LB3EA: RTS ; LB3EB:* JSR InitializeSoundAddresses ;($B404)Prepare to start playing music. LB3EE: BEQ -- ;Branch always. CheckRepeatMusic: LB3F0: LDA MusicRepeat ; LB3F3: BEQ + ;If music is supposed to repeat, reset music,--> LB3F5: LDA CurrentMusic ;flags else branch to exit. LB3F8: STA CurrentMusicRepeat ; LB3FB: RTS ; CheckMusicFlags: LB3FC: LDA CurrentMusic ;Loads A with current music flags and compares it--> LB3FF: CMP CurrentSFXFlags ;with current SFX flags. If both are equal,--> LB402: BEQ ++ ;just clear music counters, else clear everything. InitializeSoundAddresses: ; LB404:* JSR ClearMusicAndSFXAddresses ;($B41D)Jumps to all subroutines needed to reset--> LB407: JSR ClearSounds ;($B43E)all sound addresses in order to start--> LB40A:* JSR ClearSpecialAddresses ;($B40E)playing music. LB40D: RTS ; ClearSpecialAddresses: LB40E: LDA #$00 ; LB410: STA TriangleCounterCntrl ;Clears addresses used for repeating music,--> LB413: STA SFXPaused ;pausing music and controlling triangle length. LB416: STA CurrentMusicRepeat ; LB419: STA MusicRepeat ; LB41C: RTS ; ClearMusicAndSFXAddresses: ; LB41D: LDA #$00 ; LB41F: STA SQ1InUse ; LB422: STA SQ2InUse ; LB425: STA TriangleInUse ; LB428: STA WriteMultiChannelData ; LB42B: STA NoiseContSFX ;Clears any SFX or music--> LB42E: STA SQ1ContSFX ;currently being played. LB431: STA SQ2ContSFX ; LB434: STA TriangleContSFX ; LB437: STA MultiContSFX ; LB43A: STA CurrentMusic ; LB43D: RTS ; ClearSounds: ; LB43E: LDA #$10 ; LB440: STA SQ1Cntrl0 ; LB443: STA SQ2Cntrl0 ; LB446: STA NoiseCntrl0 ;Clears all sounds that might be in--> LB449: LDA #$00 ;The sound channel registers. LB44B: STA TriangleCntrl0 ; LB44E: STA DMCCntrl1 ; LB451: RTS ; SelectSFXRoutine: LB452: LDX ChannelType ; LB455: STA NoiseSFXLength,X ;Stores frame length of SFX in corresponding address. LB458: TXA ; LB459: BEQ ++ ;Branch if SFX uses noise channel. LB45B: CMP #$01 ; LB45D: BEQ + ;Branch if SFX uses SQ1 channel. LB45F: CMP #$02 ; LB461: BEQ MusicBranch00 ;Branch if SFX uses SQ2 channel. LB463: CMP #$03 ; LB465: BEQ MusicBranch01 ;Branch if SFX uses triangle wave. LB467: RTS ;Exit if SFX routine uses no channels. LB468:* JSR LoadSQ1ChannelSFX ;($B368)Prepare to load SQ1 channel with data. LB46B: BEQ ++ ;Branch always. MusicBranch00: ; LB46D: JSR LoadSQ2ChannelSFX ;($B374)Prepare to load SQ2 channel with data. LB470: BEQ ++ ;Branch always. MusicBranch01: ; LB472: JSR LoadTriangleChannelSFX ;($B36C)Prepare to load triangle channel with data. LB475: BEQ ++ ;Branch always. LB477:* JSR LoadNoiseChannelSFX ;($B370)Prepare to load noise channel with data. LB47A:* JSR UpdateContFlags ;($B493)Set continuation flags for this SFX. LB47D: TXA ; LB47E: STA NoiseInUse,X ;Indicate sound channel is in use. LB481: LDA #$00 ; LB483: STA ThisNoiseFrame,X ; LB486: STA NoiseSFXData,X ;Clears all the following addresses before going--> LB489: STA MultiSFXData,X ;to the proper SFX handling routine. LB48C: STA ScrewAttackSFXData,X ; LB48F: STA WriteMultiChannelData ; LB492: RTS ; UpdateContFlags: LB493:* LDX ChannelType ;Loads X register with sound channel just changed. LB496: LDA NoiseContSFX,X ;Clear existing continuation SFX--> LB499: AND #$00 ;flags for that channel. LB49B: ORA CurrentSFXFlags ;Load new continuation flags. LB49E: STA NoiseContSFX,X ;Save results. LB4A1: RTS ; ClearCurrentSFXFlags: LB4A2: LDA #$00 ;Once SFX has completed, this block clears the--> LB4A4: STA CurrentSFXFlags ;SFX flag from the current flag register. LB4A7: BEQ - ; IncrementSFXFrame: LB4A9: LDX ChannelType ;Load SFX channel number. LB4AC: INC ThisNoiseFrame,X ;increment current frame to play on given channel. LB4AF: LDA ThisNoiseFrame,X ;Load current frame to play on given channel. LB4B2: CMP NoiseSFXLength,X ;Check to see if current frame is last frame to play. LB4B5: BNE + ; LB4B7: LDA #$00 ;If current frame is last frame,--> LB4B9: STA ThisNoiseFrame,X ;reset current frame to 0. LB4BC:* RTS ; ;The CheckSFXFlag routine loads E0 thru E3 with the below values: ;1st SFX cycle $E0=#$BB, $E1=#$B2, $E2=#$22, $E3=#$B3. Base address=$B289 ;2nd SFX cycle $E0=#$CB, $E1=#$B2, $E2=#$EE, $E3=#$B4. Base address=$B28E ;3rd SFX cycle $E0=#$06, $E1=#$BC, $E2=#$5C, $E3=#$B3. Base address=$B2A7 ;4th SFX cycle $E0=#$16, $E1=#$BC, $E2=#$64, $E3=#$B3. Base address=$B2AC ;5th SFX cycle $E0=#$DB, $E1=#$B2, $E2=#$30, $E3=#$B3. Base address=$B293 ;6th SFX cycle $E0=#$EB, $E1=#$B2, $E2=#$EE, $E3=#$B4. Base address=$B298 ;7th SFX cycle $E0=#$FB, $E1=#$B2, $E2=#$44, $E3=#$B3. Base address=$B29D ;8th SFX cycle $E0=#$0B, $E1=#$B3, $E2=#$EE, $E3=#$B4. Base address=$B2A2 ;9th SFX cycle $E0=#$26, $E1=#$BC, $E2=#$3D, $E3=#$BC. Base address=$B2B6 ;10th SFX cycle $E0=#$26, $E1=#$BC, $E2=#$4B, $E3=#$BC. Base address=$B2B1 CheckSFXFlag: LB4BD: STA CurrentSFXFlags ;Store any set flags in $064D. LB4C0: STX $E4 ; LB4C2: LDY #$B2 ; LB4C4: STY $E5 ; LB4C6: LDY #$00 ;Y=0 for counting loop ahead. LB4C8:* LDA ($E4),Y ; LB4CA: STA $00E0,Y ;See table above for values loaded into $E0--> LB4CD: INY ;thru $E3 during this loop. LB4CE: TYA ; LB4CF: CMP #$04 ;Loop repeats four times to load the values. LB4D1: BNE - ; LB4D3: LDA ($E4),Y ; LB4D5: STA ChannelType ;#$00=SQ1,#$01=SQ2,#$02=Triangle,#$03=Noise LB4D8: LDY #$00 ;Set y to 0 for counting loop ahead. LB4DA: LDA CurrentSFXFlags ; LB4DD: PHA ;Push current SFX flags on stack. LB4DE:* ASL CurrentSFXFlags ; LB4E1: BCS + ;This portion of the routine loops a maximum of--> LB4E3: INY ;eight times looking for any SFX flags that have--> LB4E4: INY ;been set in the current SFX cycle. If a flag--> LB4E5: TYA ;is found, Branch to SFXFlagFound for further--> LB4E6: CMP #$10 ;processing, if no flags are set, continue to--> LB4E8: BNE - ;next SFX cycle. RestoreSFXFlags: LB4EA: PLA ; LB4EB: STA CurrentSFXFlags ;Restore original data in CurrentSFXFlags. LB4EE: RTS ; SFXFlagFound: ; LB4EF:* LDA ($E0),Y ;This routine stores the starting address of the--> LB4F1: STA $E2 ;specific SFX handling routine for the SFX flag--> LB4F3: INY ;found. The address is stored in registers--> LB4F4: LDA ($E0),Y ;$E2 and $E3. LB4F6: STA $E3 ; LB4F8: JMP RestoreSFXFlags ;($B4EA)Restore original data in CurrentSFXFlags. ;-----------------------------------[ SFX Handling Routines ]--------------------------------------- ;The following table is used by the SpitFlamesSFXContinue routine to change the volume--> ;on the SFX. It starts out quiet, then becomes louder then goes quiet again. SpitFlamesTbl: LB4FB: .byte $12, $13, $14, $15, $16, $17, $18, $19, $1A, $1B, $1C, $1D, $1B, $1A, $19, $17 LB50B: .byte $16, $15, $14, $12 SpitFlameSFXStart: LB50F: LDA #$14 ;Number of frames to play sound before a change. LB511: LDY #$21 ;Lower byte of sound data start address(base=$B200). LB513: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. SpitFlameSFXContinue: LB516: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB519: BNE + ;If more frames to process, branch. LB51B: JMP EndNoiseSFX ;($B58F)End SFX. LB51E:* LDY NoiseSFXData ; LB521: LDA $B4FB,Y ;Load data from table above and store in NoiseCntrl0. LB524: STA NoiseCntrl0 ; LB527: INC NoiseSFXData ;Increment to next entry in data table. LB52A: RTS ScrewAttackSFXStart: LB52B: LDA #$05 ;Number of frames to play sound before a change. LB52D: LDY #$11 ;Lower byte of sound data start address(base=$B200). LB52F: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB532: LDA $B213 ;#$00. LB535: STA NoiseSFXData ;Clear NoiseSFXData. LB538:* RTS ; ScrewAttackSFXContinue: LB539: LDA ScrewAttackSFXData ;Prevents period index from being incremented until--> LB53C: CMP #$02 ;after the tenth frame of the SFX. LB53E: BEQ + ;Branch if not ready to increment. LB540: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB543: BNE - ; LB545: INC ScrewAttackSFXData ;Increment every fifth frame. LB548: RTS ; LB549:* JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB54C: BNE IncrementPeriodIndex ;Start increasing period index after first ten frames. LB54E: DEC NoiseSFXData ; LB551: DEC NoiseSFXData ;Decrement NoiseSFXData by three every fifth frame. LB554: DEC NoiseSFXData ; LB557: INC MultiSFXData ;Increment MultiSFXData. When it is equal to #$0F--> LB55A: LDA MultiSFXData ;end screw attack SFX. MultiSFXData does not--> LB55D: CMP #$0F ;appear to be linked to multi SFX channels in--> LB55F: BNE -- ;this routine. LB561: JMP EndNoiseSFX ;($B58F)End SFX. IncrementPeriodIndex: LB564: INC NoiseSFXData ;Incrementing the period index has the effect of--> LB567: LDA NoiseSFXData ;lowering the frequency of the noise SFX. LB56A: STA NoiseCntrl2 ; LB56D: RTS ; MissileLaunchSFXStart: LB56E: LDA #$18 ;Number of frames to play sound before a change. LB570: LDY #$15 ;Lower byte of sound data start address(base=$B200). LB572: JSR GotoSelectSFXRoutine ;($B587)Prepare to setup registers for SFX. LB575: LDA #$0A ; LB577: STA NoiseSFXData ;Start increment index for noise channel at #$0A. LB57A: RTS ; MissileLaunchSFXContine: LB57B: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB57E: BNE IncrementPeriodIndex ; LB580: JMP EndNoiseSFX ;($B58F)End SFX. BombExplodeSFXStart: LB583: LDA #$30 ;Number of frames to play sound before a change. LB585: LDY #$19 ;Lower byte of sound data start address(base=$B200). GotoSelectSFXRoutine: LB587:* JMP SelectSFXRoutine ;($B452)Setup registers for SFX. ;The following routine is used to continue BombExplode and SamusWalk SFX. NoiseSFXContinue: LB58A: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB58D: BNE MusicBranch02 ;If more frames to process, branch to exit. EndNoiseSFX: LB58F: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. LB592: LDA #$10 ; LB594: STA NoiseCntrl0 ;disable envelope generator(sound off). MusicBranch02: LB597: RTS ;Exit for multiple routines. SamusWalkSFXStart: LB598: LDA NoiseContSFX ;If MissileLaunch, SamusWalk or SpitFire SFX are--> LB59B: AND #$34 ;already being played, branch to exit. LB59D: BNE MusicBranch02 ; LB59F: LDA #$03 ;Number of frames to play sound before a change. LB5A1: LDY #$1D ;Lower byte of sound data start address(base=$B200). LB5A3: BNE - ;Branch always. MultiSFXInit: LB5A5: STA MultiSFXLength ; LB5A8: JSR LoadSQ2ChannelSFX ;($B374)Set SQ2 SFX data. LB5AB: JSR UpdateContFlags ;($B493)Set continue SFX flag. LB5AE: LDA #$01 ; LB5B0: STA SQ1InUse ;Disable music from using SQ1 and SQ2 while--> LB5B3: LDA #$02 ;SFX are playing. LB5B5: STA SQ2InUse ; LB5B8: LDA #$00 ; LB5BA: STA SQ1ContSFX ; LB5BD: STA SQ1SFXData ; LB5C0: STA SQ1SQ2SFXData ;Clear all listed memory addresses. LB5C3: STA SQ1SFXPeriodLow ; LB5C6: STA ThisMultiFrame ; LB5C9: STA WriteMultiChannelData ; LB5CC: RTS ; EndMultiSFX: LB5CD: LDA #$10 ; LB5CF: STA SQ1Cntrl0 ;Disable SQ1 envelope generator(sound off). LB5D2: STA SQ2Cntrl0 ;Disable SQ2 envelope generator(sound off). LB5D5: LDA #$7F ; LB5D7: STA SQ1Cntrl1 ;Disable SQ1 sweep. LB5DA: STA SQ2Cntrl1 ;Disable SQ2 sweep. LB5DD: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. LB5E0: LDA #$00 ; LB5E2: STA SQ1InUse ; LB5E5: STA SQ2InUse ;Allows music player to use SQ1 and SQ2 channels. LB5E8: INC WriteMultiChannelData ; LB5EB: RTS ; BossHitSFXStart: LB5EC: LDY #$2D ;Low byte of SQ1 sound data start address(base=$B200). LB5EE: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB5F1: LDY #$29 ;Low byte of SQ2 sound data start address(base=$B200). LB5F3: JMP MultiSFXInit ;($B5A5)Initiate multi channel SFX. BossHitSFXContinue: LB5F6: INC SQ1SFXData ;Increment index to data in table below. LB5F9: LDY SQ1SFXData ; LB5FC: LDA $B63C,Y ; LB5FF: STA SQ1Cntrl0 ;Load SQ1Cntrl0 and SQ2Cntrl0 from table below. LB602: STA SQ2Cntrl0 ; LB605: LDA SQ1SFXData ; LB608: CMP #$14 ;After #$14 frames, end SFX. LB60A: BEQ ++ ; LB60C: CMP #$06 ;After six or more frames of SFX, branch. LB60E: BCC + ; LB610: LDA RandomNumber1 ; LB612: ORA #$10 ;Set bit 5. LB614: AND #$7F ;Randomly set bits 7, 3, 2, 1 and 0. LB616: STA SQ1SFXPeriodLow ;Store in SQ1 period low. LB619: ROL ; LB61A: STA SQ1SQ2SFXData ; LB61D: JMP WriteSQ1SQ2PeriodLow ;($B62C)Write period low data to SQ1 and SQ2. LB620:* INC SQ1SQ2SFXData ; LB623: INC SQ1SQ2SFXData ;Increment SQ1 and SQ2 period low by two. LB626: INC SQ1SFXPeriodLow ; LB629: INC SQ1SFXPeriodLow ; WriteSQ1SQ2PeriodLow: LB62C: LDA SQ1SQ2SFXData ; LB62F: STA SQ2Cntrl2 ;Write new SQ1 and SQ2 period lows to SQ1 and SQ2--> LB632: LDA SQ1SFXPeriodLow ;channels. LB635: STA SQ1Cntrl2 ; LB638: RTS ; LB639:* JMP EndMultiSFX ;($B5CD)End SFX. BossHitSFXDataTbl: LB63C: .byte $38, $3D, $3F, $3F, $3F, $3F, $3F, $3D, $3B, $39, $3B, $3D, $3F, $3D, $3B, $39 LB64C: .byte $3B, $3D, $3F, $39 SamusHitSFXContinue: LB650: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB653: BNE + ;If more SFX frames to process, branch. LB655: JMP EndMultiSFX ;($B5CD)End SFX. LB658:* LDY #$25 ;Low byte of SQ1 sound data start address(base=$B200). LB65A: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB65D: LDA RandomNumber1 ; LB65F: AND #$0F ;Randomly set last four bits of SQ1 period low. LB661: STA SQ1Cntrl2 ; LB664: LDY #$25 ;Low byte of SQ2 sound data start address(base=$B200). LB666: JSR LoadSQ2ChannelSFX ;($B374)Set SQ2 SFX data. LB669: LDA RandomNumber1 ; LB66B: LSR ;Multiply random number by 4. LB66C: LSR ; LB66D: AND #$0F ; LB66F: STA SQ2Cntrl2 ;Randomly set bits 2 and 3 of SQ2 period low. LB672: RTS ; SamusHitSFXStart: LB673: LDY #$25 ;Low byte of SQ1 sound data start address(base=$B200). LB675: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB678: LDA RandomNumber1 ; LB67A: AND #$0F ;Randomly set last four bits of SQ1 period low. LB67C: STA SQ1Cntrl2 ; LB67F: CLC ; LB680: LDA RandomNumber1 ;Randomly set last three bits of SQ2 period low+1. LB682: AND #$03 ; LB684: ADC #$01 ;Number of frames to play sound before a change. LB686: LDY #$25 ;Low byte of SQ2 sound data start address(base=$B200). LB688: JSR MultiSFXInit ;($B5A5)Initiate multi channel SFX. LB68B: LDA RandomNumber1 ; LB68D: LSR ;Multiply random number by 4. LB68E: LSR ; LB68F: AND #$0F ; LB691: STA SQ2Cntrl2 ;Randomly set bits 2 and 3 of SQ2 period low. LB694:* RTS ; IncorrectPasswordSFXStart: LB695: LDY #$31 ;Low byte of SQ1 sound data start address(base=$B200). LB697: JSR LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. LB69A: LDA #$20 ;Number of frames to play sound before a change. LB69C: LDY #$35 ;Low byte of SQ2 sound data start address(base=$B200). LB69E: JMP MultiSFXInit ;($B5A5)Initiate multi channel SFX. IncorrectPasswordSFXContinue: LB6A1: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6A4: BNE - ;If more frames to process, branch to exit. LB6A6: JMP EndMultiSFX ;($B5CD)End SFX. ;The following table is used by the below routine to load SQ1Cntrl2 data in the--> ;MissilePickupSFXContinue routine. MissilePickupSFXTbl: LB6A9: .byte $BD, $8D, $7E, $5E, $46, $3E, $00 MissilePickupSFXContinue: LB6B0: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6B3: BNE MusicBranch03 ;If more frames to process, branch to exit. LB6B5: LDY SQ1SFXData ; LB6B8: LDA MissilePickupSFXTbl,Y ;Load SFX data from table above. LB6BB: BNE + ; LB6BD: JMP EndSQ1SFX ;($B6F2)SFX completed. LB6C0:* STA SQ1Cntrl2 ; LB6C3: LDA $B244 ;#$28. LB6C6: STA SQ1Cntrl3 ;load SQ1Cntrl3 with #$28. LB6C9: INC SQ1SFXData ;Increment index to data table above every 5 frames. MusicBranch03: LB6CC: RTS ;Exit from multiple routines. MissilePickupSFXStart: LB6CD: LDA #$05 ;Number of frames to play sound before a change. LB6CF: LDY #$41 ;Lower byte of sound data start address(base=$B200). LB6D1: BNE +++ ;Branch always. EnergyPickupSFXContinue: LB6D3: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6D6: BNE MusicBranch03 ;If more frames to process, branch to exit. LB6D8: INC SQ1SFXData ; LB6DB: LDA SQ1SFXData ;Every six frames, reload SFX info. Does it--> LB6DE: CMP #$03 ;three times for a total of 18 frames. LB6E0: BEQ + ; LB6E2: LDY #$3D ; LB6E4: JMP LoadSQ1ChannelSFX ;($B368)Set SQ1 SFX data. EnergyPickupSFXStart: LB6E7: LDA #$06 ;Number of frames to play sound before a change. LB6E9: LDY #$3D ;Lower byte of sound data start address(base=$B200). LB6EB: BNE +++ ;Branch always. ;The following continue routine is used by the metal, bird out of hole, ;enemy hit and the Samus jump SFXs. SQ1SFXContinue: LB6ED: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB6F0: BNE MusicBranch03 ; EndSQ1SFX: LB6F2:* LDA #$10 ; LB6F4: STA SQ1Cntrl0 ;Disable envelope generator(sound off). LB6F7: LDA #$00 ; LB6F9: STA SQ1InUse ;Allows music to use SQ1 channel. LB6FC: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. LB6FF: INC WriteMultiChannelData ;Allows music routines to load SQ1 and SQ2 music. LB702: RTS ; SamusJumpSFXStart: LB703: LDA CurrentMusic ;If escape music is playing, exit without playing--> LB706: CMP #$04 ;Samus jump SFX. LB708: BEQ MusicBranch03 ; LB70A: LDA #$0C ;Number of frames to play sound before a change. LB70C: LDY #$51 ;Lower byte of sound data start address(base=$B200). LB70E: BNE SelectSFX1 ;Branch always. EnemyHitSFXStart: LB710: LDA #$08 ;Number of frames to play sound before a change. LB712: LDY #$55 ;Lower byte of sound data start address(base=$B200). LB714: BNE SelectSFX1 ;Branch always. BulletFireSFXStart: LB716: LDA HasBeamSFX ; LB719: LSR ;If Samus has ice beam, branch. LB71A: BCS +++++ ; LB71C: LDA SQ1ContSFX ;If MissilePickup, EnergyPickup, BirdOutOfHole--> LB71F: AND #$CC ;or EnemyHit SFX already playing, branch to exit. LB721: BNE MusicBranch03 ; LB723: LDA HasBeamSFX ; LB726: ASL ;If Samus has long beam, branch. LB727: BCS + ; LB729: LDA #$03 ;Number of frames to play sound before a change. LB72B: LDY #$4D ;Lower byte of sound data start address(base=$B200). LB72D: BNE SelectSFX1 ;Branch always (Plays ShortBeamSFX). HasLongBeamSFXStart: LB72F:* LDA #$07 ;Number of frames to play sound before a change. LB731: LDY #$49 ;Lower byte of sound data start address(base=$B200). LB733: BNE SelectSFX1 ;Branch always. MetalSFXStart: LB735: LDA #$0B ;Number of frames to play sound before a change. LB737: LDY #$45 ;Lower byte of sound data start address(base=$B200). SelectSFX1: LB739:* JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BirdOutOfHoleSFXStart: LB73C: LDA CurrentMusic ;If escape music is playing, use this SFX to make--> LB73F: CMP #$04 ;the bomb ticking sound, else play regular SFX. LB741: BEQ + ; LB743: LDA #$16 ;Number of frames to play sound before a change. LB745: LDY #$59 ;Lower byte of sound data start address(base=$B200). LB747: BNE SelectSFX1 ;Branch always. LB749:* LDA #$07 ;Number of frames to play sound before a change. LB74B: LDY #$39 ;Lower byte of sound data start address(base=$B200). LB74D: BNE SelectSFX1 ;Branch always. BulletFireSFXContinue: LB74F: LDA HasBeamSFX ; LB752: LSR ;If Samus has ice beam, branch. LB753: BCS +++ ; LB755: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB758: BNE + ;If more frames to process, branch to exit. LB75A: JMP EndSQ1SFX ;($B6F2)If SFX finished, jump. LB75D:* RTS ; HasIceBeamSFXStart: LB75E:* LDA #$07 ;Number of frames to play sound before a change. LB760: LDY #$61 ;Lower byte of sound data start address(base=$B200). LB762: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. HasIceBeamSFXContinue: LB765:* JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB768: BNE + ;If more frames to process, branch. LB76A: JMP EndSQ1SFX ;($B6F2)If SFX finished, jump. LB76D:* LDA SQ1SFXData ; LB770: AND #$01 ;Determine index for IceBeamSFXDataTbl below. LB772: TAY ; LB773: LDA IceBeamSFXDataTbl,Y ;Loads A with value from IceBeamSFXDataTbl below. LB776: BNE ++ ; IceBeamSFXDataTbl: LB778: .byte $93 ;Ice beam SFX period low data. LB779: .byte $81 ; WaveBeamSFXStart: LB77A: LDA #$08 ;Number of frames to play sound before a change. LB77C: LDY #$5D ;Lower byte of sound data start address(base=$B200). LB77E: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. WaveBeamSFXContinue: LB781: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB784: BNE + ;If more frames to process, branch. LB786: LDY SQ1SQ2SFXData ; LB789: INC SQ1SQ2SFXData ;Load wave beam SFXDisable/enable envelope length--> LB78C: LDA WaveBeamSFXDisLngthTbl,Y ;data from WaveBeamSFXDisableLengthTbl. LB78F: STA SQ1Cntrl0 ; LB792: BNE MusicBranch10 ;If at end of WaveBeamSFXDisableLengthTbl, end SFX. LB794: JMP EndSQ1SFX ;($B6F2)If SFX finished, jump. LB797:* LDA SQ1SFXData LB79A: AND #$01 ; LB79C: TAY ;Load wave beam SFX period low data from--> LB79D: LDA WaveBeamSFXPeriodLowTbl,Y ;WaveBeamSFXPeriodLowTbl. LoadSQ1PeriodLow: LB7A0:* STA SQ1Cntrl2 ;Change the period low data for SQ1 channel. LB7A3: INC SQ1SFXData ; MusicBranch10: LB7A6: RTS ;Exit for multiple routines. WaveBeamSFXPeriodLowTbl: LB7A7: .byte $58 ;Wave beam SFX period low data. LB7A8: .byte $6F ; WaveBeamSFXDisLngthTbl: LB7A9: .byte $93 ; LB7AA: .byte $91 ;Wave beam SFX Disable/enable envelope length data. LB7AB: .byte $00 ; DoorOpenCloseSFXStart: LB7AC: LDA $B287 ;#$30. LB7AF: STA TrianglePeriodLow ;Set triangle period low data byte. LB7B2: LDA $B288 ;#$B2. LB7B5: AND #$07 ;Set triangle period high data byte. LB7B7: STA TrianglePeriodHigh ;#$B7. LB7BA: LDA #$0F ; LB7BC: STA TriangleChangeLow ;Change triangle channel period low every frame by #$0F. LB7BF: LDA #$00 ; LB7C1: STA TriangleChangeHigh ;No change in triangle channel period high. LB7C4: LDA #$1F ;Number of frames to play sound before a change. LB7C6: LDY #$85 ;Lower byte of sound data start address(base=$B200). LB7C8: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. DoorOpenCloseSFXContinue: LB7CB: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB7CE: BNE + ; LB7D0: JMP EndTriangleSFX ;($B896)End SFX. LB7D3:* JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. LB7D6: JMP WriteTrianglePeriods ;($B869)Save new periods. BeepSFXStart: LB7D9: LDA TriangleContSFX ;If BombLaunchSFX is already playing, branch--> LB7DC: AND #$80 ;without playing BeepSFX. LB7DE: BNE MusicBranch10 ; LB7E0: LDA #$03 ;Number of frames to play sound before a change. LB7E2: LDY #$79 ;Lower byte of sound data start address(base=$B200). LB7E4: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BeepSFXContinue: LB7E7: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB7EA: BNE MusicBranch10 ;If more frames to process, branch to exit. LB7EC: JMP EndTriangleSFX ;($B896)End SFX. BigEnemyHitSFXStart: LB7EF: LDA #$12 ;Increase triangle low period by #$12 every frame. LB7F1: STA TriangleChangeLow ; LB7F4: LDA #$00 ; LB7F6: STA TriangleChangeHigh ;Does not change triangle period high. LB7F9: LDA $B27F ;#$42. LB7FC: STA TrianglePeriodLow ;Save new triangle period low data. LB7FF: LDA $B280 ;#$18. LB802: AND #$07 ;#$1F. LB804: STA TrianglePeriodHigh ;Save new triangle period high data. LB807: LDA #$0A ;Number of frames to play sound before a change. LB809: LDY #$7D ;Lower byte of sound data start address(base=$B200). LB80B: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BigEnemyHitSFXContinue: LB80E: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB811: BNE + ;If more frames to process, branch LB813: JMP EndTriangleSFX ;($B896)End SFX LB816:* JSR IncreaseTrianglePeriods ;($B978)Increase periods. LB819: LDA RandomNumber1 ; LB81B: AND #$3C ; LB81D: STA TriangleSFXData ; LB820: LDA TrianglePeriodLow ;Randomly set or clear bits 2, 3, 4 and 5 in--> LB823: AND #$C3 ;triangle channel period low. LB825: ORA TriangleSFXData ; LB828: STA TriangleCntrl2 ; LB82B: LDA TrianglePeriodHigh ; LB82E: ORA #$40 ;Set 4th bit in triangle channel period high. LB830: STA TriangleCntrl3 ; LB833: RTS ; SamusToBallSFXStart: LB834: LDA #$08 ;Number of frames to play sound before a change. LB836: LDY #$6D ;Lower byte of sound data start address(base=$B200). LB838: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB83B: LDA #$05 ; LB83D: STA PercentDifference ;Stores percent difference. In this case 5 = 1/5 = 20%. LB840: LDA $B26F ;#$DD. LB843: STA TrianglePeriodLow ;Save new triangle period low data. LB846: LDA $B270 ;#$3B. LB849: AND #$07 ;#$02. LB84B: STA TrianglePeriodHigh ;Save new triangle period high data. LB84E: RTS ; SamusToBallSFXContinue: LB84F: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB852: BNE + ;If more frames to process, branch. LB854: JMP EndTriangleSFX ;($B896)End SFX. LB857:* JSR DivideTrianglePeriods ;($B9A0)reduces triangle period low by 20% each frame. LB85A: LDA TriangleLowPercentage ; LB85D: STA TriangleChangeLow ;Store new values to change triangle periods. LB860: LDA TriangleHighPercentage ; LB863: STA TriangleChangeHigh ; LB866: JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. WriteTrianglePeriods: LB869: LDA TrianglePeriodLow ;Write TrianglePeriodLow to triangle channel. LB86C: STA TriangleCntrl2 ; LB86F: LDA TrianglePeriodHigh ; LB872: ORA #$08 ;Write TrianglePeriodHigh to triangle channel. LB874: STA TriangleCntrl3 ; LB877: RTS ; BombLaunchSFXStart: LB878: LDA #$04 ;Number of frames to play sound before a change. LB87A: LDY #$65 ;Lower byte of sound data start address(base=$B200). LB87C: JMP SelectSFXRoutine ;($B452)Setup registers for SFX. BombLaunchSFXContinue: LB87F: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB882: BNE MusicBranch04 ;If more frames to process, branch to exit. LB884: INC TriangleSFXData ; LB887: LDA TriangleSFXData ;After four frames, load second part of SFX. LB88A: CMP #$02 ; LB88C: BNE + ; LB88E: JMP EndTriangleSFX ;($B896)End SFX. LB891:* LDY #$69 ;Lower byte of sound data start address(base=$B200). LB893: JMP LoadTriangleChannelSFX ;($B36C)Prepare to load triangle channel with data. EndTriangleSFX: LB896: LDA #$00 ; LB898: STA TriangleCntrl0 ;clear TriangleCntr0(sound off). LB89B: STA TriangleInUse ;Allows music to use triangle channel. LB89E: LDA #$18 ; LB8A0: STA TriangleCntrl3 ;Set length index to #$03. LB8A3: JSR ClearCurrentSFXFlags ;($B4A2)Clear all SFX flags. MusicBranch04: LB8A6: RTS ;Exit from for multiple routines. MetroidHitSFXStart: LB8A7: LDA #$03 ;Number of frames to play sound before a change. LB8A9: LDY #$71 ;Lower byte of sound data start address(base=$B200). LB8AB: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB8AE: JMP RndTrianglePeriods ;($B8C3)MetroidHit SFX has several different sounds. MetroiHitSFXContinue: LB8B1: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB8B4: BEQ + ; LB8B6: INC TriangleSFXData ; LB8B9: LDA TriangleSFXData ;Randomize triangle periods nine times throughout--> LB8BC: CMP #$09 ;the course of the SFX. LB8BE: BNE MusicBranch04 ;If SFX not done, branch. LB8C0: JMP EndTriangleSFX ;($B896)End SFX. RndTrianglePeriods: LB8C3:* LDA RandomNumber1 ;Randomly set or reset bits 7, 4, 2 and 1 of--> LB8C5: ORA #$6C ;triangle channel period low. LB8C7: STA TriangleCntrl2 ; LB8CA: AND #$01 ; LB8CC: ORA #$F8 ;Randomly set or reset last bit of triangle--> LB8CE: STA TriangleCntrl3 ;channel period high. LB8D1: RTS ; SamusDieSFXStart: LB8D2: JSR InitializeSoundAddresses ;($B404)Clear all sound addresses. LB8D5: LDA #$0E ;Number of frames to play sound before a change. LB8D7: LDY #$75 ;Lower byte of sound data start address(base=$B200). LB8D9: JSR SelectSFXRoutine ;($B452)Setup registers for SFX. LB8DC: LDA #$15 ;Decrease triangle SFX periods by 4.8% every frame. LB8DE: STA PercentDifference ; LB8E1: LDA $B277 ;#$40. LB8E4: STA TrianglePeriodLow ; LB8E7: LDA #$00 ;Initial values of triangle periods. LB8E9: STA TrianglePeriodHigh ; LB8EC:* RTS ; SamusDieSFXContinue: LB8ED: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB8F0: BNE + ; LB8F2: LDA #$20 ;Store change in triangle period low. LB8F4: STA TriangleChangeLow ; LB8F7: LDA #$00 ; LB8F9: STA TriangleChangeHigh ;No change in triangle period high. LB8FC: JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. LB8FF: INC TriangleSFXData ; LB902: LDA TriangleSFXData ; LB905: CMP #$06 ; LB907: BNE - ;If more frames to process, branch to exit. LB909: JMP EndTriangleSFX ;($B896)End SFX. LB90C:* JSR DivideTrianglePeriods ;($B9A0)reduces triangle period low. LB90F: LDA TriangleLowPercentage ; LB912: STA TriangleChangeLow ;Update triangle periods. LB915: LDA TriangleHighPercentage ; LB918: STA TriangleChangeHigh ; LB91B: JSR IncreaseTrianglePeriods ;($B978)Increase periods. LB91E: JMP WriteTrianglePeriods ;($B869)Save new periods. StatueRaiseSFXStart: LB921: LDA $B283 ;#$11. LB924: STA TrianglePeriodLow ;Save period low data. LB927: LDA $B284 ;#$09. LB92A: AND #$07 ; LB92C: STA TrianglePeriodHigh ;Store last three bits in $B284. LB92F: LDA #$00 ; LB931: STA TriangleChangeHigh ;No change in Triangle period high. LB934: LDA #$0B ; LB936: STA TriangleChangeLow ; LB939: LDA #$06 ;Number of frames to play sound before a change. LB93B: LDY #$81 ;Lower byte of sound data start address(base=$B200). LB93D: JMP SelectSFXroutine ;($B452)Setup registers for SFX. StatueRaiseSFXContinue: LB940: JSR IncrementSFXFrame ;($B4A9)Get next databyte to process in SFX. LB943: BNE ++ ; LB945: INC TriangleSFXData ;Increment TriangleSFXData every 6 frames. LB948: LDA TriangleSFXData ; LB94B: CMP #$09 ;When TriangleSFXData = #$09, end SFX. LB94D: BNE + ; LB94F: JMP EndTriangleSFX ;($B896)End SFX. LB952:* LDA TriangleChangeLow ; LB955: PHA ;Save triangle periods. LB956: LDA TriangleChangeHigh ; LB959: PHA ; LB95A: LDA #$25 ; LB95C: STA TriangleChangeLow ; LB95F: LDA #$00 ;No change in triangle period high. LB961: STA TriangleChangeHigh ; LB964: JSR IncreaseTrianglePeriods ;($B978)Increase periods. LB967: PLA ; LB968: STA TriangleChangeHigh ;Restore triangle periods. LB96B: PLA ; LB96C: STA TriangleChangeLow ; LB96F: JMP WriteTrianglePeriods ;($B869)Save new periods. LB972:* JSR DecreaseTrianglePeriods ;($B98C)Decrease periods. LB975: JMP WriteTrianglePeriods ;($B869)Save new periods. IncreaseTrianglePeriods: LB978: CLC LB979: LDA TrianglePeriodLow ; LB97C: ADC TriangleChangeLow ;Calculate new TrianglePeriodLow. LB97F: STA TrianglePeriodLow ; LB982: LDA TrianglePeriodHigh ; LB985: ADC TriangleChangeHigh ;Calculate new TrianglePeriodHigh. LB988: STA TrianglePeriodHigh ; LB98B: RTS ; DecreaseTrianglePeriods: LB98C: SEC LB98D: LDA TrianglePeriodLow ; LB990: SBC TriangleChangeLow ;Calculate new TrianglePeriodLow. LB993: STA TrianglePeriodLow ; LB996: LDA TrianglePeriodHigh ; LB999: SBC TriangleChangeHigh ;Calculate new TrianglePeriodHigh. LB99C: STA TrianglePeriodHigh ; LB99F: RTS ; DivideTrianglePeriods: LB9A0: LDA TrianglePeriodLow ; LB9A3: PHA ;Store TrianglePeriodLow and TrianglePeriodHigh. LB9A4: LDA TrianglePeriodHigh ; LB9A7: PHA ; LB9A8: LDA #$00 ; LB9AA: STA DivideData ; LB9AD: LDX #$10 ; LB9AF: ROL TrianglePeriodLow ; LB9B2: ROL TrianglePeriodHigh ; LB9B5:* ROL DivideData ;The following routine takes the triangle period--> LB9B8: LDA DivideData ;high and triangle period low values and reduces--> LB9BB: CMP PercentDifference ;them by a certain percent. The percent is--> LB9BE: BCC + ;determined by the value stored in--> LB9C0: SBC PercentDifference ;PercentDifference. If PercentDifference=#$05,--> LB9C3: STA DivideData ;then the values will be reduced by 20%(1/5).--> LB9C6:* ROL TrianglePeriodLow ;If PercentDifference=#$0A,Then the value will--> LB9C9: ROL TrianglePeriodHigh ;be reduced by 10%(1/10), etc. This function is--> LB9CC: DEX ;basically a software emulation of a sweep function. LB9CD: BNE -- ; LB9CF: LDA TrianglePeriodLow ; LB9D2: STA TriangleLowPercentage ; LB9D5: LDA TrianglePeriodHigh ; LB9D8: STA TriangleHighPercentage ; LB9DB: PLA ; LB9DC: STA TrianglePeriodHigh ;Restore TrianglePerodLow and TrianglePeriodHigh. LB9DF: PLA ; LB9E0: STA TrianglePeriodLow ; LB9E3: RTS ; ;--------------------------------------[ End SFX routines ]------------------------------------- SetVolumeAndDisableSweep: LB9E4: LDA #$7F ; LB9E6: STA MusicSQ1Sweep ;Disable sweep generator on SQ1 and SQ2. LB9E9: STA MusicSQ2Sweep ; LB9EC: STX SQ1DutyEnvelope ;Store duty cycle and volume data for SQ1 and SQ2. LB9EF: STY SQ2DutyEnvelope ; LB9F2: RTS ; ResetVolumeIndex: LB9F3: LDA SQ1MusicFrameCount ;If at the beginning of a new SQ1 note, set--> LB9F6: CMP #$01 ;SQ1VolumeIndex = #$01. LB9F8: BNE + ; LB9FA: STA SQ1VolumeIndex ; LB9FD:* LDA SQ2MusicFrameCount ; LBA00: CMP #$01 ;If at the beginning of a new SQ2 note, set--> LBA02: BNE + ;SQ2VolumeIndex = #$01. LBA04: STA SQ2VolumeIndex ; LBA07:* RTS ; LoadSQ1SQ2Periods: LBA08: LDA WriteMultiChannelData ;If a Multi channel data does not need to be--> LBA0B: BEQ + ;loaded, branch to exit. LBA0D: LDA #$00 ; LBA0F: STA WriteMultiChannelData ;Clear multi channel data write flag. LBA12: LDA MusicSQ1Sweep ; LBA15: STA SQ1Cntrl1 ; LBA18: LDA MusicSQ1PeriodLow ; LBA1B: STA SQ1Cntrl2 ;Loads SQ1 channel addresses $4001, $4002, $4003. LBA1E: LDA MusicSQ1PeriodHigh ; LBA21: STA SQ1Cntrl3 ; LBA24: LDA MusicSQ2Sweep ; LBA27: STA SQ2Cntrl1 ; LBA2A: LDA MusicSQ2PeriodLow ; LBA2D: STA SQ2Cntrl2 ;Loads SQ2 channel addresses $4005, $4006, $4007. LBA30: LDA MusicSQ2PeriodHigh ; LBA33: STA SQ2Cntrl3 ; LBA36:* RTS ; LoadSQ1SQ2Channels: LBA37: LDX #$00 ;Load SQ1 channel data. LBA39: JSR WriteSQCntrl0 ;($BA41)Write Cntrl0 data. LBA3C: INX ;Load SQ2 channel data. LBA3D: JSR WriteSQCntrl0 ;($BA41)Write Cntrl0 data. LBA40: RTS ; WriteSQCntrl0: LBA41: LDA SQ1VolumeCntrl,X ;Load SQ channel volume data. If zero, branch to exit. LBA44: BEQ +++++ ; LBA46: STA VolumeCntrlAddress ; LBA48: JSR LoadSQ1SQ2Periods ;($BA08)Load SQ1 and SQ2 control information. LBA4B: LDA SQ1VolumeData,X ; LBA4E: CMP #$10 ;If sound channel is not currently--> LBA50: BEQ +++++++ ;playing sound, branch. LBA52: LDY #$00 ; LBA54:* DEC VolumeCntrlAddress ;Desired entry in VolumeCntrlAdressTbl. LBA56: BEQ + ; LBA58: INY ;*2(2 byte address to find voulume control data). LBA59: INY ; LBA5A: BNE - ;Keep decrementing until desired address is found. LBA5C:* LDA VolumeCntrlAddressTbl,Y ;Base is $BCB0. LBA5F: STA $EC ;Volume data address low byte. LBA61: LDA VolumeCntrlAddressTbl+1,Y ;Base is $BCB1. LBA64: STA $ED ;Volume data address high byte. LBA66: LDY SQ1VolumeIndex,X ;Index to desired volume data. LBA69: LDA ($EC),Y ;Load desired volume for current channel into--> LBA6B: STA Cntrl0Data ;Cntrl0Data. LBA6D: CMP #$FF ;If last entry in volume table is #$FF, restore--> LBA6F: BEQ MusicBranch05 ;volume to its original level after done reading--> LBA71: CMP #$F0 ;Volume data. If #$F0 is last entry, turn sound--> LBA73: BEQ MusicBranch06 ;off on current channel until next note. LBA75: LDA SQ1DutyEnvelope,X ;Remove duty cycle data For current channel and--> LBA78: AND #$F0 ;add this frame of volume data and store results--> LBA7A: ORA Cntrl0Data ;in Cntrl0Data. LBA7C: TAY ; LBA7D:* INC SQ1VolumeIndex,X ;Increment Index to volume data. LBA80:* LDA SQ1InUse,X ;If SQ1 or SQ2(depends on loop iteration) in use,--> LBA83: BNE + ;branch to exit, else write SQ(1 or 2)Cntrl0. LBA85: TXA ; LBA86: BEQ ++ ;If currently on SQ1, branch to write SQ1 data. WriteSQ2Cntrl0: ; LBA88: STY SQ2Cntrl0 ;Write SQ2Cntrl0 data. LBA8B:* RTS ; WriteSQ1Cntrl0: ; LBA8C:* STY SQ1Cntrl0 ;Write SQ1Cntrl0 data. LBA8F: RTS ; MusicBranch05: LBA90: LDY SQ1DutyEnvelope,X ;Restore original volume of sound channel. LBA93: BNE --- ;Branch always. MusicBranch06: LBA95: LDY #$10 ;Disable envelope generator and set volume to 0. LBA97: BNE --- ;Branch always. LBA99:* LDY #$10 ;Disable envelope generator and set volume to 0. LBA9B: BNE ----- ;Branch always. GotoCheckRepeatMusic: LBA9D:* JSR CheckRepeatMusic ;($B3F0)Resets music flags if music repeats. LBAA0: RTS ; GotoLoadSQ1SQ2Channels: LBAA1:* JSR LoadSQ1SQ2Channels ;($BA37)Load SQ1 and SQ2 channel data. LBAA4: RTS ; LoadCurrentMusicFrameData: LBAA5: JSR ResetVolumeIndex ;($B9F3)Reset index if at the beginning of a new note. LBAA8: LDA #$00 ; LBAAA: TAX ;X = #$00. LBAAB: STA ThisSoundChannel ;(#$00, #$04, #$08 or #$0C). LBAAE: BEQ ++ ; LBAB0:* TXA ; LBAB1: LSR ; LBAB2: TAX ;Increment to next sound channel(1,2 or 3). ; IncrementToNextChannel: ; LBAB3: INX ; LBAB4: TXA ; LBAB5: CMP #$04 ;If done with four sound channels, branch to load--> LBAB7: BEQ -- ;sound channel SQ1 SQ2 data. LBAB9: LDA ThisSoundChannel ;Add 4 to the least significant byte of the current--> LBABC: CLC ;sound channel start address. This moves to next--> LBABD: ADC #$04 ;sound channel address ranges to process. LBABF: STA ThisSoundChannel ; LBAC2:* TXA ; LBAC3: ASL ;*2(two bytes for sound channel info base address). LBAC4: TAX ; LBAC5: LDA SQ1LowBaseByte,X ; LBAC8: STA $E6 ;Load sound channel info base address into $E6--> LBACA: LDA SQ1HighBaseByte,X ;and $E7. ($E6=low byte, $E7=high byte). LBACD: STA $E7 ; LBACF: LDA SQ1HighBaseByte,X ;If no data for this sound channel, branch--> LBAD2: BEQ -- ;to find data for next sound channel. LBAD4: TXA ; LBAD5: LSR ;/2. Determine current sound channel (0,1,2 or3). LBAD6: TAX ; LBAD7: DEC SQ1MusicFrameCount,X ;Decrement the current sound channel frame count--> LBADA: BNE IncrementToNextChannel ;If not zero, branch to check next channel, else--> ;load the next set of sound channel data. LoadNextChannelIndexData: LBADC: LDY SQ1MusicIndexIndex,X ;Load current channel index to music data index. LBADF: INC SQ1MusicIndexIndex,X ;Increment current channel index to music data index. LBAE2: LDA ($E6),Y ; LBAE4: BEQ ---- ;Branch if music has reached the end. LBAE6: TAY ;Transfer music data index to Y (base=$BE77) . LBAE7: CMP #$FF ; LBAE9: BEQ + ;At end of loop? If yes, branch. LBAEB: AND #$C0 ; LBAED: CMP #$C0 ;At beginnig of new loop? if yes, branch. LBAEF: BEQ ++ ; LBAF1: JMP LoadMusicChannel ;($BB1C)Load music data into channel. RepeatMusicLoop: LBAF4:* LDA SQ1RepeatCounter,X ;If loop counter has reached zero, branch to exit. LBAF7: BEQ ++ ; LBAF9: DEC SQ1RepeatCounter,X ;Decrement loop counter. LBAFC: LDA SQ1LoopIndex,X ;Load loop index for proper channel and store it in--> LBAFF: STA SQ1MusicIndexIndex,X ;music index index address. LBB02: BNE ++ ;Branch unless music has reached the end. StartNewMusicLoop: LBB04:* TYA ; LBB05: AND #$3F ;Remove last six bits of loop controller and save--> LBB07: STA SQ1RepeatCounter,X ;in repeat counter addresses. # of times to loop. LBB0A: DEC SQ1RepeatCounter,X ;Decrement loop counter. LBB0D: LDA SQ1MusicIndexIndex,X ;Store location of loop start in loop index address. LBB10: STA SQ1LoopIndex,X ; LBB13:* JMP LoadNextChannelIndexData ;($BADC)Load next channel index data. LBB16:* JMP LoadNoiseChannelMusic ;($BBDE)Load data for noise channel music. LBB19:* JMP LoadTriangleCntrl0 ;($BBB7)Load Cntrl0 byte of triangle channel. LoadMusicChannel: LBB1C: TYA ; LBB1D: AND #$B0 ; LBB1F: CMP #$B0 ;Is data byte music note length data? If not, branch. LBB21: BNE + ; LBB23: TYA ; LBB24: AND #$0F ;Separate note length data. LBB26: CLC ; LBB27: ADC NoteLengthTblOffset ;Find proper note lengths table for current music. LBB2A: TAY ; LBB2B: LDA NoteLengths0Tbl,Y ;(Base is $BEF7)Load note length and store in--> LBB2E: STA SQ1FrameCountInit,X ;frame count init address. LBB31: TAY ;Y now contains note length. LBB32: TXA ; LBB33: CMP #$02 ;If loading Triangle channel data, branch. LBB35: BEQ - ; LoadSoundDataIndexIndex: LBB37: LDY SQ1MusicIndexIndex,X ;Load current index to sound data index. LBB3A: INC SQ1MusicIndexIndex,X ;Increment music index index address. LBB3D: LDA ($E6),Y ;Load index to sound channel music data. LBB3F: TAY ; LBB40:* TXA ; LBB41: CMP #$03 ;If loading Noise channel data, branch. LBB43: BEQ --- ; LBB45: PHA ;Push music channel number on stack(0, 1 or 2). LBB46: LDX ThisSoundChannel ; LBB49: LDA MusicNotesTbl+1,Y ;(Base=$BE78)Load A with music channel period low data. LBB4C: BEQ + ;If data is #$00, skip period high and low loading. LBB4E: STA MusicSQ1PeriodLow,X ;Store period low data in proper period low address. LBB51: LDA MusicNotesTbl,Y ;(Base=$BE77)Load A with music channel period high data. LBB54: ORA #$08 ;Ensure minimum index length of 1. LBB56: STA MusicSQ1PeriodHigh,X ;Store period high data in proper period high address. LBB59:* TAY ; LBB5A: PLA ;Pull stack and restore channel number to X. LBB5B: TAX ; LBB5C: TYA ; LBB5D: BNE + ;If period information was present, branch. NoPeriodInformation: LBB5F: LDA #$00 ;Turn off channel volume since no period data present. LBB61: STA Cntrl0Data ; LBB63: TXA ; LBB64: CMP #$02 ;If loading triangle channel data, branch. LBB66: BEQ ++ ; LBB68: LDA #$10 ;Turn off volume and disable env. generator(SQ1,SQ2). LBB6A: STA Cntrl0Data ; LBB6C: BNE ++ ;Branch always. PeriodInformationFound: LBB6E:* LDA SQ1DutyEnvelope,X ;Store channel duty cycle and volume info in $EA. LBB71: STA Cntrl0Data ; LBB73:* TXA ; LBB74: DEC SQ1InUse,X ; LBB77: CMP SQ1InUse,X ;If SQ1 or SQ2 are being used by SFX routines, branch. LBB7A: BEQ +++ ; LBB7C: INC SQ1InUse,X ;Restore not in use status of SQ1 or SQ2. LBB7F: LDY ThisSoundChannel ; LBB82: TXA ; LBB83: CMP #$02 ;If loading triangle channel data, branch. LBB85: BEQ + ; LBB87: LDA SQ1VolumeCntrl,X ;If $062E or $062F has volume data, skip writing--> LBB8A: BNE ++ ;Cntrl0Data to SQ1 or SQ2. LBB8C:* LDA Cntrl0Data ; LBB8E: STA SQ1Cntrl0,Y ;Write Cntrl0Data. LBB91:* LDA Cntrl0Data ; LBB93: STA SQ1VolumeData,X ;Store volume data index to volume data. LBB96: LDA MusicSQ1PeriodLow,Y ; LBB99: STA SQ1Cntrl2,Y ; LBB9C: LDA MusicSQ1PeriodHigh,Y ;Write data to three sound channel addresses. LBB9F: STA SQ1Cntrl3,Y ; LBBA2: LDA MusicSQ1Sweep,X ; LBBA5: STA SQ1Cntrl1,Y ; LoadNewMusicFrameCount: LBBA8: LDA SQ1FrameCountInit,X ;Load new music frame count and store it in music--> LBBAB: STA SQ1MusicFrameCount,X ;frame count address. LBBAE: JMP IncrementToNextChannel ;($BAB3)Move to next sound channel. SQ1SQ2InUse: LBBB1:* INC SQ1InUse,X ;Restore in use status of SQ1 or SQ1. LBBB4: JMP LoadNewMusicFrameCount ;($BBA8)Load new music frame count. LoadTriangleCntrl0: LBBB7: LDA TriangleCounterCntrl ; LBBBA: AND #$0F ;If lower bits set, branch to play shorter note. LBBBC: BNE ++ ; LBBBE: LDA TriangleCounterCntrl ; LBBC1: AND #$F0 ;If upper bits are set, branch to play longer note. LBBC3: BNE + ; LBBC5: TYA ; LBBC6: JMP AddTriangleLength ;($BBCD)Calculate length to play note. LBBC9:* LDA #$FF ;Disable length cntr(play until triangle data changes). LBBCB: BNE + ;Branch always. AddTriangleLength: LBBCD: CLC ; LBBCE: ADC #$FF ;Add #$FF(Effectively subtracts 1 from A). LBBD0: ASL ;*2. LBBD1: ASL ;*2. LBBD2: CMP #$3C ; LBBD4: BCC + ;If result is greater than #$3C, store #$3C(highest--> LBBD6: LDA #$3C ;triangle linear count allowed). LBBD8:* STA TriLinearCount ; LBBDB:* JMP LoadSoundDataIndexIndex ;($BB37)Load index to sound data index. LoadNoiseChannelMusic: LBBDE: LDA NoiseContSFX ; LBBE1: AND #$FC ;If playing any Noise SFX, branch to exit. LBBE3: BNE + ; LBBE5: LDA $B200,Y ; LBBE8: STA NoiseCntrl0 ;Load noise channel with drum beat SFX starting--> LBBEB: LDA $B201,Y ;at address B201. The possible values of Y are--> LBBEE: STA NoiseCntrl2 ;#$01, #$04, #$07 or #$0A. LBBF1: LDA $B202,Y ; LBBF4: STA NoiseCntrl3 ; LBBF7:* JMP LoadNewMusicFrameCount ;($BBA8)Load new music frame count. ;The following table is used by the InitializeMusic routine to find the index for loading ;addresses $062B thru $0637. Base is $BD31. InitMusicIndexTbl: LBBFA: .byte $41 ;Ridley area music. LBBFB: .byte $8F ;Tourian music. LBBFC: .byte $34 ;Item room music. LBBFD: .byte $27 ;Kraid area music. LBBFE: .byte $1A ;Norfair music. LBBFF: .byte $0D ;Escape music. LBC00: .byte $00 ;Mother brain music. LBC01: .byte $82 ;Brinstar music. LBC02: .byte $68 ;Fade in music. LBC03: .byte $75 ;Power up music. LBC04: .byte $4E ;End music. LBC05: .byte $5B ;Intro music. ;The tables below contain addresses for SFX and music handling routines. ;Multi channel Init SFX and music handling routine addresses: LBC06: .word $BC80 ;Fade in music. LBC08: .word $BC7A ;Power up music. LBC0A: .word $BC86 ;End game music. LBC0C: .word $BC7A ;Intro music. LBC0E: .word $B4EE ;No sound. LBC10: .word $B673 ;Samus hit init SFX. LBC12: .word $B5EC ;Boss hit init SFX. LBC14: .word $B695 ;Incorrect password init SFX. ;Multi channel continue SFX handling routine addresses: LBC16: .word $B4EE ;No sound. LBC18: .word $B4EE ;No sound. LBC1A: .word $B4EE ;No sound. LBC1C: .word $B4EE ;No sound. LBC1E: .word $B4EE ;No sound. LBC20: .word $B650 ;Samus hit continue SFX. LBC22: .word $B5F6 ;Boss hit continue SFX. LBC24: .word $B6A1 ;Incorrect password continue SFX. ;Music handling routine addresses: LBC26: .word $BC83 ;Ridley area music. LBC28: .word $BC77 ;Tourian music. LBC2A: .word $BC77 ;Item room music. LBC2C: .word $BC77 ;Kraid area music. LBC2E: .word $BC80 ;Norfair music. LBC30: .word $BC7D ;Escape music. LBC32: .word $BC77 ;Mother brain music. LBC34: .word $BC80 ;Brinstar music. ;-----------------------------------[ Entry point for music routines ]-------------------------------- LoadMusicTempFlags: LBC36: LDA CurrentMusicRepeat ;Load A with temp music flags, (9th SFX cycle). LBC39: LDX #$B6 ;Lower address byte in ChooseNextSFXRoutineTbl. LBC3B: BNE + ;Branch always. LoadMusicInitFlags: LBC3D: LDA MusicInitFlag ;Load A with Music flags, (10th SFX cycle). LBC40: LDX #$B1 ;Lower address byte in ChooseNextSFXRoutineTbl. LBC42:* JSR CheckSFXFlag ;($B4BD)Checks to see if SFX or music flags set. LBC45: JSR FindMusicInitIndex ;($BC53)Find bit containing music init flag. LBC48: JMP ($00E2) ;If no flag found, Jump to next SFX cycle,--> ;else jump to specific SFX handling subroutine. ContinueMusic: ;11th and last SFX cycle. LBC4B: LDA CurrentMusic ; LBC4E: BEQ +++ ;Branch to exit of no music playing. LBC50: JMP LoadCurrentMusicFrameData ;($BAA5)Load info for current frame of music data. ;MusicInitIndex values correspond to the following music: ;#$00=Ridley area music, #$01=Tourian music, #$02=Item room music, #$03=Kraid area music, ;#$04=Norfair music, #$05=Escape music, #$06=Mother brain music, #$07=Brinstar music, ;#$08=Fade in music, #$09=Power up music, #$0A=End game music, #$0B=Intro music. FindMusicInitIndex: LBC53: LDA #$FF ;Load MusicInitIndex with #$FF. LBC55: STA MusicInitIndex ; LBC58: LDA CurrentSFXFlags ; LBC5B: BEQ ++ ;Branch to exit if no SFX flags set for Multi SFX. LBC5D:* INC MusicInitIndex ; LBC60: ASL ;Shift left until bit flag is in carry bit. LBC61: BCC - ;Loop until SFX flag found. Store bit--> LBC63:* RTS ;number of music in MusicInitIndex. ;The following routine is used to add eight to the music index when looking for music flags ;in the MultiSFX address. Add8: LBC64: LDA MusicInitIndex ; LBC67: CLC ; LBC68: ADC #$08 ;Add #$08 to MusicInitIndex. LBC6A: STA MusicInitIndex ; LBC6D: RTS ; LBC6E: LDA CurrentMusic ; LBC71: ORA #$F0 ;This code does not appear to be used in this page. LBC73: STA CurrentMusic ; LBC76:* RTS ; Music00Start: LBC77: JMP Music00Init ;($BCAA)Initialize music 00. Music01Start: LBC7A: JMP Music01Init ;($BCA4)Initialize music 01. Music02Start: LBC7D: JMP Music02Init ;($BC9A)Initialize music 02. Msic03Start: LBC80: JMP Music03Init ;($BC96)Initialize music 03. Music04Start: LBC83: JMP Music04Init ;($BC89)Initialize music 04. Music05Start: LBC86: JMP Music05Init ;($BC9E)Initialize music 05. Music04Init: LBC89: LDA #$B3 ;Duty cycle and volume data for SQ1 and SQ2. XYMusicInit: LBC8B:* TAX ;Duty cycle and volume data for SQ1. LBC8C: TAY ;Duty cycle and volume data for SQ2. LBC8D:* JSR SetVolumeAndDisableSweep ;($B9E4)Set duty cycle and volume data for SQ1 and SQ2. LBC90: JSR InitializeMusic ;($BF19)Setup music registers. LBC93: JMP LoadCurrentMusicFrameData ;($BAA5)Load info for current frame of music data. Music03Init: LBC96: LDA #$34 ;Duty cycle and volume data for SQ1 and SQ2. LBC98: BNE -- ;Branch always Music02Init: LBC9A: LDA #$F4 ;Duty cycle and volume data for SQ1 and SQ2. LBC9C: BNE -- ;Branch always Music05Init: LBC9E: LDX #$F5 ;Duty cycle and volume data for SQ1. LBCA0: LDY #$F6 ;Duty cycle and volume data for SQ2. LBCA2: BNE - ;Branch always Music01Init: LBCA4: LDX #$B6 ;Duty cycle and volume data for SQ1. LBCA6: LDY #$F6 ;Duty cycle and volume data for SQ2. LBCA8: BNE - ;Branch always Music00Init: LBCAA: LDX #$92 ;Duty cycle and volume data for SQ1. LBCAC: LDY #$96 ;Duty cycle and volume data for SQ2. LBCAE: BNE - ;Branch always ;The following address table provides starting addresses of the volume data tables below: VolumeCntrlAddressTbl: LBCB0: .word $BCBA, $BCC5, $BCCF, $BCDA, $BD03 VolumeDataTbl1: LBCBA: .byte $01, $02, $02, $03, $03, $04, $05, $06, $07, $08, $FF VolumeDataTbl2: LBCC5: .byte $02, $04, $05, $06, $07, $08, $07, $06, $05, $FF VolumeDataTbl3: LBCCF: .byte $00, $0D, $09, $07, $06, $05, $05, $05, $04, $04, $FF VolumeDataTbl4: LBCDA: .byte $02, $06, $07, $07, $07, $06, $06, $06, $06, $05, $05, $05, $04, $04, $04, $03 LBCEA: .byte $03, $03, $03, $02, $03, $03, $03, $03, $03, $02, $02, $02, $02, $02, $02, $02 LBCFA: .byte $02, $02, $02, $01, $01, $01, $01, $01, $F0 VolumeDataTbl5: LBD03: .byte $0A, $0A, $09, $08, $07, $06, $05, $04, $03, $02, $07, $07, $06, $05, $04, $04 LBD13: .byte $03, $02, $02, $02, $05, $05, $05, $04, $03, $02, $02, $02, $01, $01, $04, $04 LBD23: .byte $03, $02, $01, $02, $02, $01, $01, $01, $02, $02, $02, $01, $01, $F0 ;The init music table loads addresses $062B thru $0637 with the initial data needed to play the ;selected music. The data for each entry in the table have the following format: ;.byte $xx, $xx, $xx, $xx, $xx : .word $xxxx, $xxxx, $xxxx, $xxxx. ;The first five bytes have the following functions: ;Byte 0=index to proper note length table. Will be either #$00, #$0B or #$17. ;Byte 1=Repeat music byte. #$00=no repeat, any other value and the music repeats. ;Byte 2=Controls length counter for triangle channel. ;Byte 3=Volume control byte for SQ1. ;Byte 4=Volume control byte for SQ2. ;Address 0=Base address of SQ1 music data. ;Address 1=Base address of SQ2 music data. ;Address 2=Base address of triangle music data. ;Address 3=Base address of noise music data. InitMusicTbl: ;Mother brain music. LBD31: .byte $0B, $FF, $F5, $00, $00 LBD36: .word $B18C, $B18E, $B161, $0000 ;Escape music. LBD3E: .byte $0B, $FF, $00, $02, $02 LBD43: .word $B04D, $B000, $B0CF, $B15A ;Norfair music(not used this memory page). LBD4B: .byte $0B, $FF, $F0, $04, $04 LBD50: .word $0100, $0300, $0500, $0700 ;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 ; ;The following data is a repeat of the above routine and is 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.