User Tools

Site Tools


metroid:disassembly:brinstar_page

The Brinstar bank includes code and data for Brinstar.

; -------------------
; METROID source code
; -------------------
; MAIN PROGRAMMERS
;     HAI YUKAMI
;   ZARU SOBAJIMA
;    GPZ SENGOKU
;    N.SHIOTANI
;     M.HOUDAI
; (C) 1986 NINTENDO
; 
;Commented by Dirty McDingus (nmikstas@yahoo.com)
;Disassembled using TRaCER.
;Can be reassembled using Ophis.
;Last updated: 3/9/2010

;Hosted on wiki.metroidconstruction.com, with possible additions by wiki contributors.

;Brinstar (memory page 1)

.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 ]-----------------------------------------

;Partial font, "THE END".
L8D60:  .byte $00, $00, $00, $00, $00, $18, $18, $08, $00, $00, $00, $00, $00, $00, $00, $00
L8D70:  .byte $18, $38, $18, $18, $18, $18, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8D80:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $78, $70, $F0, $F0, $78, $79, $1F, $00
L8D90:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $03, $87, $46, $4E, $4C, $8C, $08, $00
L8DA0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $39, $99, $3B, $33, $73, $79, $30, $00
L8DB0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $FC, $DC, $98, $B8, $B8, $FD, $66, $00
L8DC0:  .byte $3C, $60, $C0, $FC, $C6, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8DD0:  .byte $00, $00, $00, $00, $00, $18, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8DE0:  .byte $7C, $C6, $C6, $7C, $C6, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8DF0:  .byte $7C, $C6, $C6, $7E, $06, $0C, $78, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E00:  .byte $38, $6C, $C6, $C6, $FE, $C6, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E10:  .byte $FC, $C6, $C6, $FC, $C6, $C6, $FC, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E20:  .byte $3C, $66, $C0, $C0, $C0, $66, $3C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E30:  .byte $F8, $CC, $C6, $C6, $C6, $CC, $F8, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E40:  .byte $FE, $C0, $C0, $FC, $C0, $C0, $FE, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E50:  .byte $FE, $C0, $C0, $FC, $C0, $C0, $C0, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E60:  .byte $3E, $60, $C0, $CE, $C6, $66, $3E, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E70:  .byte $C6, $C6, $C6, $FE, $C6, $C6, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E80:  .byte $7E, $18, $18, $18, $18, $18, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8E90:  .byte $1E, $06, $06, $06, $C6, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8EA0:  .byte $C6, $CC, $D8, $F0, $F8, $DC, $CE, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8EB0:  .byte $60, $60, $60, $60, $60, $60, $7E, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8EC0:  .byte $C6, $EE, $FE, $FE, $D6, $C6, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8ED0:  .byte $C6, $E6, $F6, $FE, $DE, $CE, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8EE0:  .byte $7C, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8EF0:  .byte $FC, $C6, $C6, $C6, $FC, $C0, $C0, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F00:  .byte $7C, $C6, $C6, $C6, $DE, $CC, $7A, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F10:  .byte $FC, $C6, $C6, $CE, $F8, $DC, $CE, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F20:  .byte $78, $CC, $C0, $7C, $06, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F30:  .byte $7E, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F40:  .byte $C6, $C6, $C6, $C6, $C6, $C6, $7C, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F50:  .byte $C6, $C6, $C6, $EE, $7C, $38, $10, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F60:  .byte $C6, $C6, $D6, $FE, $FE, $EE, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F70:  .byte $C6, $EE, $7C, $38, $7C, $EE, $C6, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F80:  .byte $66, $66, $66, $3C, $18, $18, $18, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8F90:  .byte $FE, $0E, $1C, $38, $70, $E0, $FE, $00, $00, $00, $00, $00, $00, $00, $00, $00
L8FA0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $01, $07, $0F, $0C, $08, $08, $04, $03
L8FB0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $C1, $FF, $FF, $3E, $00, $08, $88, $19
L8FC0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $20, $60, $60, $E0, $C0, $C8
L8FD0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $38
L8FE0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $30, $48, $40, $61, $3F, $3F, $1F, $00
L8FF0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $11, $33, $73, $E7, $E6, $C6, $04, $00
L9000:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $9C, $CC, $1C, $19, $3A, $3C, $18, $00
L9010:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $7C, $74, $E4, $F8, $E0, $72, $3C, $00
L9020:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $03, $06, $0C, $0C, $06, $02, $1E, $3C
L9030:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $80, $40, $20, $20, $40, $03, $01, $03
L9040:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $80, $90
L9050:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $03, $03, $07, $06, $EE
L9060:  .byte $32, $FF, $F7, $FF, $7F, $FF, $DB, $FF, $73, $FF, $FF, $FF, $FF, $FF, $FF, $FF
L9070:  .byte $B4, $FF, $FF, $FF, $FE, $7B, $FF, $FD, $B6, $FF, $FF, $FF, $FF, $FF, $FF, $FF
L9080:  .byte $B5, $FF, $7F, $9D, $F6, $7F, $DD, $77, $FF, $FF, $FF, $FF, $EF, $FF, $BB, $FE
L9090:  .byte $D7, $FF, $79, $DE, $F5, $3F, $ED, $BF, $FF, $FF, $FF, $FF, $BF, $FF, $FB, $FF
L90A0:  .byte $89, $F7, $5F, $F3, $E7, $FD, $70, $CF, $FF, $BF, $EC, $FF, $9F, $FE, $AF, $F9
L90B0:  .byte $9F, $F9, $3D, $F7, $3F, $99, $FD, $CF, $F6, $7F, $FF, $FD, $CF, $FF, $FF, $FB
L90C0:  .byte $B9, $59, $CC, $7F, $DF, $9F, $BF, $1E, $7F, $FF, $B7, $F3, $FD, $6F, $FF, $E7
L90D0:  .byte $7F, $F9, $F3, $FF, $FF, $FF, $FF, $BB, $9F, $FF, $CF, $9F, $FD, $FF, $27, $DF
L90E0:  .byte $63, $EF, $EE, $1F, $B9, $1C, $F7, $FF, $9D, $38, $FF, $FF, $C7, $E3, $FF, $BF
L90F0:  .byte $FF, $9D, $7E, $FF, $B3, $C7, $FF, $A1, $3C, $7E, $FF, $E7, $CF, $FF, $FB, $7F
L9100:  .byte $C8, $ED, $BE, $DC, $9E, $F8, $36, $CC, $3F, $1E, $7F, $FF, $EF, $07, $CF, $FF
L9110:  .byte $C7, $BF, $3A, $7F, $BD, $A3, $7F, $FC, $3C, $7C, $FD, $E7, $CF, $FE, $8C, $0F
L9120:  .byte $00, $00, $18, $18, $3C, $7E, $5E, $FF, $10, $10, $18, $38, $7C, $7E, $FE, $FF
L9130:  .byte $00, $10, $10, $10, $10, $30, $30, $10, $10, $10, $10, $10, $30, $30, $30, $30
L9140:  .byte $20, $30, $30, $20, $60, $30, $70, $F8, $20, $30, $30, $60, $60, $70, $F0, $F8
L9150:  .byte $10, $10, $10, $10, $10, $10, $00, $10, $00, $00, $00, $00, $00, $00, $00, $00

;Brinstar enemy tile patterns.
L9160:  .byte $03, $0F, $05, $32, $D1, $48, $12, $24, $01, $02, $02, $11, $48, $20, $00, $00
L9170:  .byte $E0, $F0, $EC, $DE, $92, $8D, $A0, $3C, $C0, $00, $0C, $02, $01, $0C, $02, $00
L9180:  .byte $00, $00, $F8, $3E, $1F, $0F, $0F, $0E, $00, $00, $00, $08, $04, $00, $00, $00
L9190:  .byte $18, $30, $6C, $7C, $5C, $78, $70, $21, $00, $00, $0C, $1C, $1C, $38, $30, $3C
L91A0:  .byte $18, $30, $60, $60, $40, $40, $40, $01, $00, $00, $00, $00, $00, $00, $00, $3C
L91B0:  .byte $00, $01, $00, $00, $03, $04, $48, $3C, $00, $01, $00, $03, $0C, $08, $10, $03
L91C0:  .byte $48, $2F, $B3, $4D, $32, $CC, $84, $6F, $48, $28, $AF, $3D, $78, $CD, $B6, $6F
L91D0:  .byte $00, $50, $00, $C8, $74, $34, $90, $38, $00, $00, $B0, $E8, $74, $BC, $18, $18
L91E0:  .byte $3C, $7F, $FF, $FF, $FF, $7E, $7B, $3D, $3C, $7F, $FF, $FC, $D1, $50, $69, $0E
L91F0:  .byte $00, $00, $C0, $E0, $B0, $08, $07, $87, $00, $00, $C0, $60, $B0, $68, $73, $B2
L9200:  .byte $01, $00, $1C, $0F, $07, $03, $0F, $3F, $01, $00, $10, $08, $04, $00, $08, $20
L9210:  .byte $80, $C0, $F8, $C8, $88, $32, $51, $68, $0C, $10, $A0, $06, $01, $32, $11, $00
L9220:  .byte $00, $01, $21, $33, $3B, $1F, $9F, $FF, $00, $01, $20, $12, $08, $00, $80, $20
L9230:  .byte $00, $00, $08, $98, $B8, $F0, $F2, $FE, $00, $00, $08, $90, $20, $00, $02, $04
L9240:  .byte $81, $A5, $E7, $00, $00, $24, $18, $24, $81, $A5, $E7, $42, $66, $C3, $66, $18
L9250:  .byte $00, $24, $1B, $1F, $3B, $44, $5B, $3F, $BD, $9B, $E4, $C0, $C4, $98, $83, $C7
L9260:  .byte $00, $20, $60, $C3, $CC, $60, $20, $00, $0A, $0F, $0F, $1C, $13, $0F, $0F, $0A
L9270:  .byte $00, $00, $00, $00, $E0, $00, $00, $00, $40, $E8, $FA, $FF, $1F, $FA, $E8, $40
L9280:  .byte $1E, $1C, $18, $3A, $36, $60, $00, $00, $00, $00, $00, $02, $06, $00, $03, $00
L9290:  .byte $43, $C6, $FE, $F8, $F6, $A9, $21, $20, $38, $00, $00, $00, $66, $AD, $F9, $20
L92A0:  .byte $73, $DE, $EF, $F8, $F6, $A9, $21, $20, $38, $1E, $0F, $00, $66, $AD, $F9, $20
L92B0:  .byte $03, $02, $30, $7E, $70, $D0, $6C, $1D, $04, $30, $48, $00, $80, $11, $30, $21
L92C0:  .byte $61, $30, $1E, $81, $28, $FF, $FF, $F1, $61, $32, $1E, $81, $F8, $FF, $FF, $F9
L92D0:  .byte $B8, $D0, $6C, $36, $9E, $0C, $C0, $E8, $FC, $FC, $7E, $36, $BE, $0C, $E0, $F8
L92E0:  .byte $1F, $0F, $07, $03, $01, $0E, $1F, $3F, $07, $03, $03, $01, $00, $06, $17, $13
L92F0:  .byte $C3, $66, $9E, $DE, $EF, $F7, $73, $B9, $DA, $66, $DE, $C6, $E3, $61, $25, $B9
L9300:  .byte $0F, $03, $07, $0F, $1D, $00, $01, $03, $08, $00, $04, $08, $10, $00, $01, $02
L9310:  .byte $60, $51, $32, $88, $C8, $F8, $C0, $00, $0C, $11, $32, $00, $04, $02, $12, $20
L9320:  .byte $78, $33, $65, $26, $19, $00, $04, $02, $00, $00, $04, $46, $80, $90, $14, $0A
L9330:  .byte $1C, $C8, $A4, $64, $18, $00, $20, $40, $00, $00, $25, $62, $80, $88, $26, $40
L9340:  .byte $00, $02, $0D, $17, $2D, $62, $6D, $2E, $83, $C5, $F2, $E0, $C2, $81, $8C, $CE
L9350:  .byte $00, $40, $B0, $E8, $B4, $46, $B6, $74, $C1, $A3, $4F, $07, $43, $81, $31, $73
L9360:  .byte $00, $00, $00, $00, $00, $20, $73, $DF, $00, $00, $0A, $0F, $1F, $14, $11, $18
L9370:  .byte $00, $00, $00, $00, $00, $00, $12, $C0, $00, $00, $40, $E8, $FA, $FF, $70, $00
L9380:  .byte $24, $3C, $5A, $DB, $66, $99, $5A, $24, $00, $00, $42, $C3, $66, $00, $00, $42
L9390:  .byte $00, $00, $44, $EE, $B2, $82, $84, $40, $04, $38, $54, $EE, $B2, $80, $00, $00
L93A0:  .byte $00, $00, $0C, $04, $62, $12, $1F, $01, $00, $B0, $50, $78, $9C, $6C, $20, $00
L93B0:  .byte $38, $72, $C5, $73, $72, $6F, $22, $00, $40, $82, $05, $23, $42, $07, $1E, $00
L93C0:  .byte $C3, $E0, $7C, $8F, $C7, $F3, $72, $00, $E3, $F0, $7E, $8F, $C7, $F2, $71, $01
L93D0:  .byte $F0, $E8, $3C, $9C, $80, $18, $1C, $00, $F0, $E8, $3C, $9E, $42, $5A, $5C, $00
L93E0:  .byte $3B, $7D, $7B, $7D, $7E, $FF, $FF, $00, $31, $3D, $3B, $1C, $6E, $37, $79, $00
L93F0:  .byte $F9, $B9, $50, $E0, $7C, $8C, $E0, $00, $F9, $B1, $40, $60, $3C, $8E, $C2, $02
L9400:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L9410:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L9420:  .byte $60, $71, $30, $18, $0C, $00, $00, $00, $62, $72, $37, $93, $81, $7E, $34, $06
L9430:  .byte $00, $01, $00, $08, $1C, $30, $70, $60, $02, $02, $07, $83, $91, $7E, $74, $66
L9440:  .byte $26, $31, $10, $1C, $18, $0C, $00, $00, $C6, $C0, $60, $60, $20, $30, $18, $08
L9450:  .byte $5E, $2C, $20, $3C, $24, $18, $00, $00, $87, $C3, $42, $42, $42, $66, $24, $24
L9460:  .byte $00, $00, $00, $00, $0B, $27, $73, $DF, $0A, $0F, $1F, $34, $0B, $07, $11, $18
L9470:  .byte $00, $00, $00, $00, $00, $8C, $F2, $E0, $40, $E8, $FA, $FF, $60, $80, $30, $00
L9480:  .byte $00, $00, $1C, $3E, $3E, $3E, $1C, $00, $00, $1C, $26, $69, $55, $53, $32, $1C
L9490:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L94A0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L94B0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L94C0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L94D0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L94E0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L94F0:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L9500:  .byte $1D, $1D, $1D, $1D, $1D, $1D, $1D, $1D, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F
L9510:  .byte $F8, $F8, $F8, $F8, $F8, $F8, $F8, $F8, $A0, $A0, $A0, $A0, $A0, $A0, $A0, $A0
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                 ;($A271)
L9562:  .word Palette01                 ;($A295)
L9564:  .word Palette02                 ;($A2A1)
L9566:  .word Palette03                 ;($A29B)
L9568:  .word Palette04                 ;($A2A7)
L956A:  .word Palette05                 ;($A2AD)
L956C:  .word Palette06                 ;($A2D0)
L956E:  .word Palette06                 ;($A2D0)
L9570:  .word Palette06                 ;($A2D0)
L9572:  .word Palette06                 ;($A2D0)
L9574:  .word Palette06                 ;($A2D0)
L9576:  .word Palette06                 ;($A2D0)
L9578:  .word Palette06                 ;($A2D0)
L957A:  .word Palette06                 ;($A2D0)
L957C:  .word Palette06                 ;($A2D0)
L957E:  .word Palette06                 ;($A2D0)
L9580:  .word Palette06                 ;($A2D0)
L9582:  .word Palette06                 ;($A2D0)
L9584:  .word Palette06                 ;($A2D0)
L9586:  .word Palette06                 ;($A2D0)
L9588:  .word Palette07                 ;($A2D7)
L958A:  .word Palette08                 ;($A2DE)
L958C:  .word Palette09                 ;($A2E5)
L958E:  .word Palette0A                 ;($A2EC)
L9590:  .word Palette0B                 ;($A2F4)
L9592:  .word Palette0C                 ;($A2FC)
L9594:  .word Palette0D                 ;($A304)
L9596:  .word Palette0E                 ;($A30C)

AreaPointers:
L9598:  .word SpecItmsTbl               ;($A3D6)Beginning of special items table.
L959A:  .word RmPtrTbl                  ;($A314)Beginning of room pointer table.        
L959C:  .word StrctPtrTbl               ;($A372)Beginning of structure pointer table.
L959E:  .word MacroDefs                 ;($AEF0)Beginning of macro definitions.
L95A0:  .word EnemyFramePtrTbl1         ;($9DE0)Pointer table into enemy animation data. Two-->
L95A2:  .word EnemyFramePtrTbl2         ;($9EE0)tables needed to accommodate all entries.
L95A4:  .word EnemyPlacePtrTbl          ;($9F0E)Pointers to enemy frame placement data.
L95A6:  .word EnemyAnimIndexTbl         ;($9D6A)index to values in addr tables for enemy animations.

L95A8:  .byte $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60 
L95B8:  .byte $EA, $EA, $60, $EA, $EA, $60, $EA, $EA, $60, $EA, $EA

AreaRoutine:
L95C3:  JMP $9D35                       ;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 $01                       ;Brinstar music init flag.

L95CE:  .byte $80                       ;Base damage caused by area enemies to lower health byte.
L95CF:  .byte $00                       ;Base damage caused by area enemies to upper health byte.

;Special room numbers(used to start item room music).
L95D0:  .byte $2B, $2C, $28, $0B, $1C, $0A, $1A

L95D7:  .byte $03                       ;Samus start x coord on world map.
L95D8:  .byte $0E                       ;Samus start y coord on world map.
L95D9:  .byte $B0                       ;Samus start verticle screen position.

L95DA:  .byte $01, $00, $03, $43, $00, $00, $00, $00, $00, $00, $69 

L95E5:  LDA EnDataIndex, X
L95E8:  JSR $8024

L95EB:  .word $99B8
L95ED:  .word $99D3
L95EF:  .word $99E5
L95F1:  .word $99D8
L95F3:  .word $99FA
L95F5:  .word $9A4C
L95F7:  .word $9AF5
L95F9:  .word $9B32
L95FB:  .word $9BA2
L95FD:  .word $9BD2
L95FF:  .word $9C1A
L9601:  .word $0000
L9603:  .word $0000
L9605:  .word $0000
L9607:  .word $0000
L9609:  .word $0000

L960B:  .byte $27, $27, $29, $29, $2D, $2B, $31, $2F, $33, $33, $41, $41, $4B, $4B, $55, $53

L961B:  .byte $72, $74, $00, $00, $00, $00, $69, $69, $69, $69, $00, $00, $00, $00, $00, $00

EnemyHitPointTbl:
L962B:  .byte $08, $08, $04, $FF, $02, $02, $04, $01, $20, $FF, $FF, $04, $01, $00, $00, $00

L963B:  .byte $05, $05, $0B, $0B, $17, $13, $1B, $19, $23, $23, $35, $35, $48, $48, $59, $57 

L964B:  .byte $6C, $6F, $5B, $5D, $62, $67, $69, $69, $69, $69, $00, $00, $00, $00, $00, $00

L965B:  .byte $05, $05, $0B, $0B, $17, $13, $1B, $19, $23, $23, $35, $35, $48, $48, $50, $4D

L966B:  .byte $6C, $6F, $5B, $5D, $5F, $64, $69, $69, $69, $69, $00, $00, $00, $00, $00, $00

L967B:  .byte $00, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00, $00, $80, $00, $00, $00 

L968B:  .byte $01, $01, $01, $00, $86, $04, $89, $80, $81, $00, $00, $00, $82, $00, $00, $00 

L969B:  .byte $01, $01, $01, $01, $01, $01, $01, $01, $20, $01, $01, $01, $40, $00, $00, $00 

L96AB:  .byte $00, $00, $06, $00, $83, $00, $88, $00, $00, $00, $00, $00, $00, $00, $00, $00 

EnemyInitDelayTbl:
L96BB:  .byte $08, $08, $01, $01, $01, $01, $10, $08, $10, $00, $00, $01, $01, $00, $00, $00

L96CB:  .byte $00, $03, $06, $08, $0A, $10, $0C, $0E, $14, $17, $19, $10, $12, $00, $00, $00

L96DB:  .word $97EF, $97F2, $97F5, $97F5, $97F5, $97F5, $97F5, $97F5
L96EB:  .word $97F5, $97F5, $97F5, $9840, $988B, $988E, $9891, $98A5
L96FB:  .word $98B9, $98B9, $98B9, $98B9, $98B9, $98B9, $98B9, $98B9
L970B:  .word $98B9, $98C0, $98C7, $98CE, $98D5, $98D8, $98DB, $98F2
L971B:  .word $9909, $9920, $9937, $994E

L9723:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $7F, $40, $30, $C0, $D0, $00, $00, $7F
L9733:  .byte $80, $00, $54, $70, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L9743:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L9753:  .byte $F6, $FC, $FE, $04, $02, $00, $00, $00, $0C, $FC, $FC, $00, $00, $00, $00, $00
L9763:  .byte $00, $00, $00, $00, $00, $02, $02, $02, $02, $00, $00, $00, $02, $00, $02, $02
L9773:  .byte $00, $00, $00, $00, $00, $00, $00, $00

L977B:  .byte $64, $6C, $21, $01, $04, $00, $4C, $40, $04, $00, $00, $40, $40, $00, $00, $00 

L978B:  .byte $00, $00, $64, $67, $69, $69, $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 $9965, $9974, $9983, $9992, $9D36, $9D3B, $9D40, $9D45
L97B7:  .word $9D4A, $9D4F, $9D54, $9D59, $9D5E, $9D63, $9D6A, $9D6A
L97C7:  .word $9D6A, $9D6A, $9D6A, $9D6A, $9D6A

L97D1:  .byte $01, $01, $02, $01, $03, $04, $00, $05, $00, $06, $00, $07, $00, $08, $00, $09
L97E1:  .byte $00, $00, $00, $0B, $01, $0C, $0D, $00, $0E, $03, $0F, $10, $11, $0F

L97EF:  .byte $20, $22, $FE

L97F2:  .byte $20, $2A, $FE

L97F5:  .byte $02, $F2, $04, $E2, $04, $D2, $05, $B2, $03, $92, $04, $02, $05, $12, $03, $32
L9805:  .byte $05, $52, $04, $62, $02, $72, $02, $72, $04, $62, $04, $52, $05, $32, $03, $12
L9815:  .byte $04, $02, $05, $92, $03, $B2, $05, $D2, $04, $E2, $02, $F2, $FD, $03, $D2, $06
L9825:  .byte $B2, $08, $92, $05, $02, $07, $12, $05, $32, $04, $52, $03, $52, $06, $32, $08
L9835:  .byte $12, $05, $02, $07, $92, $05, $B2, $04, $D2, $FD, $FF

L9840:  .byte $02, $FA, $04, $EA, $04, $DA, $05, $BA, $03, $9A, $04, $0A, $05, $1A, $03, $3A
L9850:  .byte $05, $5A, $04, $6A, $02, $7A, $02, $7A, $04, $6A, $04, $5A, $05, $3A, $03, $1A
L9860:  .byte $04, $0A, $05, $9A, $03, $BA, $05, $DA, $04, $EA, $02, $FA, $FD, $03, $DA, $06
L9870:  .byte $BA, $08, $9A, $05, $0A, $07, $1A, $05, $3A, $04, $5A, $03, $5A, $06, $3A, $08
L9880:  .byte $1A, $05, $0A, $07, $9A, $05, $BA, $04, $DA, $FD, $FF

L988B:  .byte $01, $01, $FF

L988E:  .byte $01, $09, $FF

L9891:  .byte $04, $22, $01, $42, $01, $22, $01, $42, $01, $62, $01, $42, $04, $62, $FC, $01
L98A1:  .byte $00, $64, $00, $FB

L98A5:  .byte $04, $2A, $01, $4A, $01, $2A, $01, $4A, $01, $6A, $01, $4A, $04, $6A, $FC, $01
L98B5:  .byte $00, $64, $00, $FB

L98B9:  .byte $14, $11, $0A, $00, $14, $19, $FE

L98C0:  .byte $14, $19, $0A, $00, $14, $11, $FE

L98C7:  .byte $1E, $11, $0A, $00, $1E, $19, $FE 

L98CE:  .byte $1E, $19, $0A, $00, $1E, $11, $FE

L98D5:  .byte $50, $04, $FF

L98D8:  .byte $50, $0C, $FF

L98DB:  .byte $02, $F3, $04, $E3, $04, $D3, $05, $B3, $03, $93, $04, $03, $05, $13, $03, $33
L98EB:  .byte $05, $53, $04, $63, $50, $73, $FF

L98F2:  .byte $02, $FB, $04, $EB, $04, $DB, $05, $BB, $03, $9B, $04, $0B, $05, $1B, $03, $3B
L9902:  .byte $05, $5B, $04, $6B, $50, $7B, $FF

L9909:  .byte $02, $F4, $04, $E4, $04, $D4, $05, $B4, $03, $94, $04, $04, $05, $14, $03, $34
L9919:  .byte $05, $54, $04, $64, $50, $74, $FF

L9920:  .byte $02, $FC, $04, $EC, $04, $DC, $05, $BC, $03, $9C, $04, $0C, $05, $1C, $03, $3C
L9930:  .byte $05, $5C, $04, $6C, $50, $7C, $FF

L9937:  .byte $02, $F2, $04, $E2, $04, $D2, $05, $B2, $03, $92, $04, $02, $05, $12, $03, $32
L9947:  .byte $05, $52, $04, $62, $50, $72, $FF

L994E:  .byte $02, $FA, $04, $EA, $04, $DA, $05, $BA, $03, $9A, $04, $0A, $05, $1A, $03, $3A
L995E:  .byte $05, $5A, $04, $6A, $50, $7A, $FF

L9965:  .byte $04, $B3, $05, $A3, $06, $93, $07, $03, $06, $13, $05, $23, $50, $33, $FF

L9974:  .byte $09, $C2, $08, $A2, $07, $92, $07, $12, $08, $22, $09, $42, $50, $72, $FF

L9983:  .byte $07, $C2, $06, $A2, $05, $92, $05, $12, $06, $22, $07, $42, $50, $72, $FF

L9992:  .byte $05, $C2, $04, $A2, $03, $92, $03, $12, $04, $22, $05, $42, $50, $72, $FF

L99A1:  LDA $81
L99A3:  CMP #$01
L99A5:  BEQ $99B0
L99A7:  CMP #$03
L99A9:  BEQ $99B5
L99AB:  LDA $00
L99AD:  JMP $8000
L99B0:  LDA $01
L99B2:  JMP $8003
L99B5:  JMP $8006

L99B8:  LDA #$09
L99BA:  STA $85
L99BC:  STA $86
L99BE:  LDA EnStatus,X
L99C1:  CMP #$03
L99C3:  BEQ $99C8
L99C5:  JSR $801B
L99C8:  LDA #$06
L99CA:  STA $00
L99CC:  LDA #$08
L99CE:  STA $01
L99D0:  JMP $99A1

L99D3:  LDA #$0F
L99D5:  JMP $99BA
L99D8:  LDA EnStatus,X
L99DB:  CMP #$03
L99DD:  BEQ $99E2
L99DF:  JSR $801E
L99E2:  JMP $99C8
L99E5:  LDA #$21
L99E7:  STA $85
L99E9:  LDA #$1E
L99EB:  STA $86
L99ED:  LDA EnStatus,X
L99F0:  CMP #$03
L99F2:  BEQ $99F7
L99F4:  JSR $801B
L99F7:  JMP $99C8
L99FA:  LDA $81
L99FC:  CMP #$01
L99FE:  BEQ $9A44
L9A00:  CMP #$03
L9A02:  BEQ $9A49
L9A04:  LDA EnCounter,X
L9A07:  CMP #$0F
L9A09:  BCC $9A3F
L9A0B:  CMP #$11
L9A0D:  BCS $9A16
L9A0F:  LDA #$3A
L9A11:  STA $6B01,X
L9A14:  BNE $9A3F
L9A16:  DEC $6B01,X
L9A19:  BNE $9A3F
L9A1B:  LDA #$00
L9A1D:  STA EnStatus,X
L9A20:  LDY #$0C
L9A22:  LDA #$0A
L9A24:  STA $00A0,Y
L9A27:  LDA EnYRoomPos,X
L9A2A:  STA $00A1,Y
L9A2D:  LDA EnXRoomPos,X
L9A30:  STA $00A2,Y
L9A33:  LDA EnNameTable,X
L9A36:  STA $00A3,Y
L9A39:  DEY 
L9A3A:  DEY 
L9A3B:  DEY 
L9A3C:  DEY 
L9A3D:  BPL $9A22
L9A3F:  LDA #$02
L9A41:  JMP $8000
L9A44:  LDA #$08
L9A46:  JMP $8003
L9A49:  JMP $8006

L9A4C:  JSR $8009
L9A4F:  AND #$03
L9A51:  BEQ $9A87
L9A53:  LDA $81
L9A55:  CMP #$01
L9A57:  BEQ $9A44
L9A59:  CMP #$03
L9A5B:  BEQ $9A49
L9A5D:  LDA EnStatus,X
L9A60:  CMP #$03
L9A62:  BEQ $9A87
L9A64:  LDA $040A,X
L9A67:  AND #$03
L9A69:  CMP #$01
L9A6B:  BNE $9A7E
L9A6D:  LDY EnYRoomPos,X
L9A70:  CPY #$E4
L9A72:  BNE $9A7E
L9A74:  JSR $9ABD
L9A77:  LDA #$03
L9A79:  STA $040A,X
L9A7C:  BNE $9A84
L9A7E:  JSR $9AE2
L9A81:  JSR $9AA8
L9A84:  JSR $9AC6
L9A87:  LDA #$03
L9A89:  JSR $800C
L9A8C:  JMP $8006
L9A8F:  LDA $0405,X
L9A92:  LSR 
L9A93:  LDA $040A,X
L9A96:  AND #$03
L9A98:  ROL 
L9A99:  TAY 
L9A9A:  LDA $9AA0,Y
L9A9D:  JMP $800F

L9AA0:  .byte $35, $35, $3E, $38, $3B, $3B, $38, $3E 

L9AA8:  LDX PageIndex
L9AAA:  BCS $9AC5
L9AAC:  LDA $00
L9AAE:  BNE $9ABD
L9AB0:  LDY $040A,X
L9AB3:  DEY 
L9AB4:  TYA 
L9AB5:  AND #$03
L9AB7:  STA $040A,X
L9ABA:  JMP $9A8F
L9ABD:  LDA $0405,X
L9AC0:  EOR #$01
L9AC2:  STA $0405,X
L9AC5:  RTS

L9AC6:  JSR $9ADA
L9AC9:  JSR $9AE2
L9ACC:  LDX PageIndex
L9ACE:  BCC $9AD9
L9AD0:  JSR $9ADA
L9AD3:  STA $040A,X
L9AD6:  JSR $9A8F
L9AD9:  RTS

L9ADA:  LDY $040A,X
L9ADD:  INY 
L9ADE:  TYA 
L9ADF:  AND #$03
L9AE1:  RTS

L9AE2:  LDY $0405,X
L9AE5:  STY $00
L9AE7:  LSR $00
L9AE9:  ROL 
L9AEA:  ASL 
L9AEB:  TAY 
L9AEC:  LDA $8049,Y
L9AEF:  PHA 
L9AF0:  LDA $8048,Y
L9AF3:  PHA 
L9AF4:  RTS

L9AF5:  LDA $81
L9AF7:  CMP #$01
L9AF9:  BEQ $9B2D
L9AFB:  CMP #$03
L9AFD:  BEQ $9B2A
L9AFF:  LDA #$80
L9B01:  STA $6AFE,X
L9B04:  LDA $0402,X
L9B07:  BMI $9B25
L9B09:  LDA $0405,X
L9B0C:  AND #$10
L9B0E:  BEQ $9B25
L9B10:  LDA EnYRoomPos,X
L9B13:  SEC 
L9B14:  SBC $030D
L9B17:  BPL $9B1C
L9B19:  JSR $95C6
L9B1C:  CMP #$10
L9B1E:  BCS $9B25
L9B20:  LDA #$00
L9B22:  STA $6AFE,X
L9B25:  LDA #$03
L9B27:  JMP $8000
L9B2A:  JMP $8006
L9B2D:  LDA #$08
L9B2F:  JMP $8003
L9B32:  LDA EnStatus,X
L9B35:  CMP #$02
L9B37:  BNE $9B71
L9B39:  LDA $0403,X
L9B3C:  BNE $9B71
L9B3E:  LDA $6AFE,X
L9B41:  BNE $9B55
L9B43:  LDA $030D
L9B46:  SEC 
L9B47:  SBC EnYRoomPos,X
L9B4A:  CMP #$40
L9B4C:  BCS $9B71
L9B4E:  LDA #$7F
L9B50:  STA $6AFE,X
L9B53:  BNE $9B71
L9B55:  LDA $0402,X
L9B58:  BMI $9B71
L9B5A:  LDA #$00
L9B5C:  STA $0402,X
L9B5F:  STA EnCounter,X
L9B62:  STA $6AFE,X
L9B65:  LDA $0405,X
L9B68:  AND #$01
L9B6A:  TAY 
L9B6B:  LDA $9BA0,Y
L9B6E:  STA $0403,X
L9B71:  LDA $0405,X
L9B74:  ASL 
L9B75:  BMI $9B95
L9B77:  LDA EnStatus,X
L9B7A:  CMP #$02
L9B7C:  BNE $9B95
L9B7E:  JSR $8036
L9B81:  PHA 
L9B82:  JSR $8039
L9B85:  STA $05
L9B87:  PLA 
L9B88:  STA $04
L9B8A:  JSR $9CA8
L9B8D:  JSR $8027
L9B90:  BCC $9B9A
L9B92:  JSR $9C96
L9B95:  LDA #$03
L9B97:  JMP $8003
L9B9A:  LDA #$00
L9B9C:  STA EnStatus,X
L9B9F:  RTS

L9BA0:  .byte $04, $FC

L9BA2:  LDA EnStatus,X
L9BA5:  CMP #$03
L9BA7:  BCC $9BC2
L9BA9:  BEQ $9BAF
L9BAB:  CMP #$05
L9BAD:  BNE $9BCB
L9BAF:  LDA #$00
L9BB1:  STA $6B04
L9BB4:  STA $6B14
L9BB7:  STA $6B24
L9BBA:  STA $6B34
L9BBD:  STA $6B44
L9BC0:  BEQ $9BCB
L9BC2:  JSR $9C1D
L9BC5:  JSR $9CCC
L9BC8:  JSR $9D05
L9BCB:  LDA #$0A
L9BCD:  STA $00
L9BCF:  JMP $99CC
L9BD2:  LDA $0405,X
L9BD5:  AND #$02
L9BD7:  BEQ $9BE0
L9BD9:  LDA EnStatus,X
L9BDC:  CMP #$03
L9BDE:  BNE $9BE7
L9BE0:  LDA #$00
L9BE2:  STA EnStatus,X
L9BE5:  BEQ $9C12
L9BE7:  LDA $0405,X
L9BEA:  ASL 
L9BEB:  BMI $9C12
L9BED:  LDA EnStatus,X
L9BF0:  CMP #$02
L9BF2:  BNE $9C12
L9BF4:  JSR $802D
L9BF7:  LDX PageIndex
L9BF9:  LDA $00
L9BFB:  STA $0402,X
L9BFE:  JSR $8030
L9C01:  LDX PageIndex
L9C03:  LDA $00
L9C05:  STA $0403,X
L9C08:  JSR $8033
L9C0B:  BCS $9C12
L9C0D:  LDA #$03
L9C0F:  STA EnStatus,X
L9C12:  LDA #$01
L9C14:  JSR $800C
L9C17:  JMP $8006
L9C1A:  JMP $9BD2
L9C1D:  LDX #$50
L9C1F:  JSR $9C2A
L9C22:  TXA 
L9C23:  SEC 
L9C24:  SBC #$10
L9C26:  TAX 
L9C27:  BNE $9C1F
L9C29:  RTS

L9C2A:  LDY EnStatus,X
L9C2D:  BEQ $9C55
L9C2F:  LDA EnDataIndex,X
L9C32:  CMP #$0A
L9C34:  BEQ $9C3A
L9C36:  CMP #$09
L9C38:  BNE $9CA7
L9C3A:  LDA $0405,X
L9C3D:  AND #$02
L9C3F:  BEQ $9C55
L9C41:  DEY 
L9C42:  BEQ $9C60
L9C44:  CPY #$02
L9C46:  BEQ $9C55
L9C48:  CPY #$03
L9C4A:  BNE $9CA7
L9C4C:  LDA $040C,X
L9C4F:  CMP #$01
L9C51:  BNE $9CA7
L9C53:  BEQ $9C60
L9C55:  LDA #$00
L9C57:  STA EnStatus,X
L9C5A:  STA EnSpecialAttribs,X
L9C5D:  JSR $802A
L9C60:  LDA $0405
L9C63:  STA $0405,X
L9C66:  LSR 
L9C67:  PHP 
L9C68:  TXA 
L9C69:  LSR 
L9C6A:  LSR 
L9C6B:  LSR 
L9C6C:  LSR 
L9C6D:  TAY 
L9C6E:  LDA $9CB7,Y
L9C71:  STA $04
L9C73:  LDA $9CC6,Y
L9C76:  STA EnDataIndex,X
L9C79:  TYA 
L9C7A:  PLP 
L9C7B:  ROL 
L9C7C:  TAY 
L9C7D:  LDA $9CBB,Y
L9C80:  STA $05
L9C82:  LDX #$00
L9C84:  JSR $9CA8
L9C87:  JSR $8027
L9C8A:  LDX PageIndex
L9C8C:  BCC $9CA7
L9C8E:  LDA EnStatus,X
L9C91:  BNE $9C96
L9C93:  INC EnStatus,X
L9C96:  LDA $08
L9C98:  STA EnYRoomPos,X
L9C9B:  LDA $09
L9C9D:  STA EnXRoomPos,X
L9CA0:  LDA $0B
L9CA2:  AND #$01
L9CA4:  STA EnNameTable,X
L9CA7:  RTS

L9CA8:  LDA EnYRoomPos,X
L9CAB:  STA $08
L9CAD:  LDA EnXRoomPos,X
L9CB0:  STA $09
L9CB2:  LDA EnNameTable,X
L9CB5:  STA $0B
L9CB7:  RTS

L9CB8:  .byte $F5, $FD, $05, $F6, $FE, $0A, $F6, $0C, $F4, $0E, $F2, $F8, $08, $F4, $0C, $09
L9CC8:  .byte $09, $09, $0A, $0A
 
L9CCC:  LDY $7E
L9CCE:  BNE $9CD2
L9CD0:  LDY #$80
L9CD2:  LDA $2D
L9CD4:  AND #$02
L9CD6:  BNE $9D04
L9CD8:  DEY 
L9CD9:  STY $7E
L9CDB:  TYA 
L9CDC:  ASL 
L9CDD:  BMI $9D04
L9CDF:  AND #$0F
L9CE1:  CMP #$0A
L9CE3:  BNE $9D04
L9CE5:  LDA #$01
L9CE7:  LDX #$10
L9CE9:  CMP EnStatus,X
L9CEC:  BEQ $9CFF
L9CEE:  LDX #$20
L9CF0:  CMP EnStatus,X
L9CF3:  BEQ $9CFF
L9CF5:  LDX #$30
L9CF7:  CMP EnStatus,X
L9CFA:  BEQ $9CFF
L9CFC:  INC $7E
L9CFE:  RTS

L9CFF:  LDA #$08
L9D01:  STA EnDelay,X
L9D04:  RTS

L9D05:  LDY $7F
L9D07:  BNE $9D0B
L9D09:  LDY #$60
L9D0B:  LDA $2D
L9D0D:  AND #$02
L9D0F:  BNE $9D34
L9D11:  DEY 
L9D12:  STY $7F
L9D14:  TYA 
L9D15:  ASL 
L9D16:  BMI $9D34
L9D18:  AND #$0F
L9D1A:  BNE $9D34
L9D1C:  LDA #$01
L9D1E:  LDX #$40
L9D20:  CMP EnStatus,X
L9D23:  BEQ $9D2F
L9D25:  LDX #$50
L9D27:  CMP EnStatus,X
L9D2A:  BEQ $9D2F
L9D2C:  INC $7F
L9D2E:  RTS

L9D2F:  LDA #$08
L9D31:  STA EnDelay,X
L9D34:  RTS

L9D35:  .byte $60, $22, $FF, $FF, $FF, $FF, $22, $80, $81, $82, $83, $22, $84, $85, $86, $87
L9D45:  .byte $22, $88, $89, $8A, $8B, $22, $8C, $8D, $8E, $8F, $22, $94, $95, $96, $97, $22
L9D55:  .byte $9C, $9D, $9D, $9C, $22, $9E, $9F, $9F, $9E, $22, $90, $91, $92, $93, $32, $4E
L9D65:  .byte $4E, $4E, $4E, $4E, $4E

;-----------------------------------[ Enemy animation data tables ]----------------------------------

EnemyAnimIndexTbl:

L9D6A:  .byte $00, $01, $FF

L9D6D:  .byte $02, $FF

L9D6F:  .byte $19, $1A, $FF

L9D72:  .byte $1A, $1B, $FF

L9D75:  .byte $1C, $1D, $FF

L9D78:  .byte $1D, $1E, $FF

L9D7B:  .byte $22, $23, $24, $FF

L9D7F:  .byte $1F, $20, $21, $FF

L9D83:  .byte $22, $FF

L9D85:  .byte $1F, $FF

L9D87:  .byte $23, $04, $FF

L9D8A:  .byte $20, $03, $FF

L9D8D:  .byte $27, $28, $29, $FF

L9D91:  .byte $37, $FF

L9D93:  .byte $38, $FF

L9D95:  .byte $39, $FF

L9D97:  .byte $3A, $FF

L9D99:  .byte $3B, $FF

L9D9B:  .byte $3C, $FF

L9D9D:  .byte $3D, $FF

L9D9F:  .byte $58, $59, $FF

L9DA2:  .byte $5A, $5B, $FF

L9DA5:  .byte $5C, $5D, $FF

L9DA8:  .byte $5E, $5F, $FF

L9DAB:  .byte $60, $FF

L9DAD:  .byte $61, $F7, $62, $F7, $FF

L9DB2:  .byte $63, $64, $FF

L9DB5:  .byte $65, $FF

L9DB7:  .byte $66, $67, $FF

L9DBA:  .byte $69, $6A, $FF

L9DBD:  .byte $68, $FF

L9DBF:  .byte $6B, $FF

L9DC1:  .byte $66, $FF

L9DC3:  .byte $69, $FF

L9DC5:  .byte $6C, $FF

L9DC7:  .byte $6D, $FF

L9DC9:  .byte $6F, $70, $71, $6E, $FF

L9DCE:  .byte $73, $74, $75, $72, $FF

L9DD3:  .byte $8F, $90, $FF

L9DD6:  .byte $91, $92, $FF

L9DD9:  .byte $93, $94, $FF

L9DDC:  .byte $95, $FF

L9DDE:  .byte $96, $FF

;----------------------------[ Enemy sprite drawing pointer tables ]---------------------------------

EnemyFramePtrTbl1:
L9DE0:  .word $9FC2, $9FC7, $9FCC, $9FD1, $9FDA, $9FE3, $9FE3, $9FE3
L9DF0:  .word $9FE3, $9FE3, $9FE3, $9FE3, $9FE3, $9FE3, $9FE3, $9FE3
L9E00:  .word $9FE3, $9FE3, $9FE3, $9FE3, $9FE3, $9FE3, $9FE3, $9FE3
L9E10:  .word $9FE3, $9FE3, $9FF1, $9FFF, $A00B, $A019, $A027, $A033
L9E20:  .word $A03C, $A046, $A050, $A059, $A063, $A06D, $A06D, $A06D
L9E30:  .word $A07B, $A082, $A08B, $A08B, $A08B, $A08B, $A08B, $A08B
L9E40:  .word $A08B, $A08B, $A08B, $A08B, $A08B, $A08B, $A08B, $A08B
L9E50:  .word $A09F, $A0B3, $A0BE, $A0C9, $A0D2, $A0DB, $A0E6, $A0E6
L9E60:  .word $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6
L9E70:  .word $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6
L9E80:  .word $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6, $A0E6
L9E90:  .word $A0E6, $A0EE, $A0F6, $A0FE, $A106, $A10E, $A116, $A11E
L9EA0:  .word $A126, $A12E, $A13C, $A156, $A162, $A16F, $A177, $A17F
L9EB0:  .word $A187, $A18F, $A197, $A19F, $A1A7, $A1AF, $A1B7, $A1BF
L9EC0:  .word $A1C7, $A1CF, $A1D7, $A1DF, $A1E7, $A1EF, $A1F7, $A1F7
L9ED0:  .word $A1F7, $A1F7, $A1F7, $A1F7, $A1F7, $A1F7, $A1F7, $A1F7

EnemyFramePtrTbl2:
L9EE0:  .word $A1F7, $A1FF, $A204, $A204, $A204, $A204, $A204, $A204
L9EF0:  .word $A204, $A204, $A209, $A209, $A209, $A209, $A209, $A209
L9F00:  .word $A213, $A21D, $A22D, $A23D, $A24D, $A25D, $A267

EnemyPlacePtrTbl:
L9F0E:  .word $9F2E, $9F30, $9F48, $9F60, $9F60, $9F60, $9F70, $9F7C
L9F1E:  .word $9F84, $9F90, $9F90, $9FB0, $9FBE, $9FBE, $9FBE, $9FBE

;------------------------------[ Enemy sprite placement data tables ]--------------------------------

L9F2E:  .byte $FC, $FC

;Enemy explode.
L9F30:  .byte $80, $80, $81, $81, $82, $82, $83, $83, $84, $84, $85, $85, $F4, $F8, $F4, $00
L9F40:  .byte $FC, $F8, $FC, $00, $04, $F8, $04, $00

L9F48:  .byte $F0, $F4, $F0, $FC, $F0, $04, $F8, $F4, $F8, $FC, $F8, $04, $00, $F4, $00, $FC
L9F58:  .byte $00, $04, $08, $F4, $08, $FC, $08, $04

L9F60:  .byte $F8, $F4, $00, $F4, $F8, $FC, $00, $FC, $F4, $FC, $FC, $FC, $F8, $04, $00, $04

L9F70:  .byte $02, $F4, $0A, $F4, $F8, $FC, $00, $FC, $02, $04, $0A, $04

L9F7C:  .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00

L9F84:  .byte $F4, $FC, $FC, $FC, $04, $FC, $FC, $04, $04, $04, $0C, $FC

L9F90:  .byte $F8, $F8, $F8, $00, $00, $F8, $00, $00, $F0, $00, $F0, $08, $F8, $08, $F0, $F0
L9FA0:  .byte $F0, $F8, $F8, $F0, $00, $F0, $08, $F0, $08, $F8, $00, $08, $08, $00, $08, $08

L9FB0:  .byte $F8, $FC, $00, $F8, $F4, $F4, $FC, $F4, $00, $00, $F4, $04, $FC, $04

L9FBE:  .byte $FC, $F8, $FC, $00 

;Enemy frame drawing data.

L9FC2:  .byte $00, $02, $02, $14, $FF

L9FC7:  .byte $00, $02, $02, $24, $FF

L9FCC:  .byte $00, $00, $00, $04, $FF

L9FD1:  .byte $27, $06, $08, $FC, $04, $00, $D0, $D1, $FF

L9FDA:  .byte $67, $06, $08, $FC, $04, $00, $D0, $D1, $FF

L9FE3:  .byte $25, $08, $0A, $A3, $B3, $A4, $B4, $FE, $FE, $FD, $62, $A3, $B3, $FF

L9FF1:  .byte $25, $08, $0A, $A5, $B3, $FE, $FE, $A4, $B4, $FD, $62, $A5, $B3, $FF

L9FFF:  .byte $26, $08, $0A, $B5, $B3, $A4, $B4, $FD, $62, $B5, $B3, $FF

LA00B:  .byte $A5, $08, $0A, $A3, $B3, $A4, $B4, $FE, $FE, $FD, $E2, $A3, $B3, $FF

LA019:  .byte $A5, $08, $0A, $A5, $B3, $FE, $FE, $A4, $B4, $FD, $E2, $A5, $B3, $FF

LA027:  .byte $A6, $08, $0A, $B5, $B3, $A4, $B4, $FD, $E2, $B5, $B3, $FF

LA033:  .byte $27, $06, $08, $FC, $04, $00, $C0, $C1, $FF

LA03C:  .byte $27, $06, $08, $E0, $E1, $FD, $A2, $E0, $E1, $FF

LA046:  .byte $27, $06, $08, $F0, $F1, $FD, $A2, $F0, $F1, $FF

LA050:  .byte $67, $06, $08, $FC, $04, $00, $C0, $C1, $FF

LA059:  .byte $67, $06, $08, $E0, $E1, $FD, $E2, $E0, $E1, $FF

LA063:  .byte $67, $06, $08, $F0, $F1, $FD, $E2, $F0, $F1, $FF

LA06D:  .byte $28, $0C, $08, $CE, $FC, $00, $FC, $DE, $EE, $DF, $FD, $62, $EE, $FF

LA07B:  .byte $28, $0C, $08, $CE, $CF, $EF, $FF

LA082:  .byte $28, $0C, $08, $CE, $FD, $62, $CF, $EF, $FF

LA08B:  .byte $21, $00, $00, $FC, $08, $FC, $A3, $FC, $00, $08, $A3, $FC, $00, $F8, $B3, $FC
LA09B:  .byte $00, $08, $B3, $FF

LA09F:  .byte $21, $00, $00, $FC, $00, $FC, $B3, $FC, $00, $08, $B3, $FC, $00, $F8, $A3, $FC
LA0AF:  .byte $00, $08, $A3, $FF

LA0B3:  .byte $21, $00, $00, $FC, $04, $00, $F1, $F0, $F1, $F0, $FF

LA0BE:  .byte $21, $00, $00, $FC, $04, $00, $F0, $F1, $F0, $F1, $FF

LA0C9:  .byte $21, $00, $00, $FC, $08, $00, $D1, $D0, $FF

LA0D2:  .byte $21, $00, $00, $FC, $08, $00, $D0, $D1, $FF

LA0DB:  .byte $21, $00, $00, $FC, $08, $00, $DE, $DF, $EE, $EE, $FF

LA0E6:  .byte $27, $08, $08, $CC, $CD, $DC, $DD, $FF

LA0EE:  .byte $67, $08, $08, $CC, $CD, $DC, $DD, $FF

LA0F6:  .byte $27, $08, $08, $CA, $CB, $DA, $DB, $FF

LA0FE:  .byte $A7, $08, $08, $CA, $CB, $DA, $DB, $FF

LA106:  .byte $A7, $08, $08, $CC, $CD, $DC, $DD, $FF

LA10E:  .byte $E7, $08, $08, $CC, $CD, $DC, $DD, $FF

LA116:  .byte $67, $08, $08, $CA, $CB, $DA, $DB, $FF

LA11E:  .byte $E7, $08, $08, $CA, $CB, $DA, $DB, $FF

LA126:  .byte $21, $00, $00, $CC, $CD, $DC, $DD, $FF

LA12E:  .byte $0A, $00, $00, $75, $FD, $60, $75, $FD, $A0, $75, $FD, $E0, $75, $FF

LA13C:  .byte $0A, $00, $00, $FE, $FE, $FE, $FE, $3D, $3E, $4E, $FD, $60, $3E, $3D, $4E, $FD
LA14C:  .byte $E0, $4E, $3E, $3D, $FD, $A0, $4E, $3D, $3E, $FF

LA156:  .byte $2B, $08, $08, $E2, $E3, $E4, $FE, $FD, $62, $E3, $E4, $FF

LA162:  .byte $2B, $08, $08, $E2, $E3, $FE, $E4, $FD, $62, $E3, $FE, $E4, $FF

LA16F:  .byte $21, $00, $00, $96, $96, $98, $98, $FF

LA177:  .byte $2A, $08, $08, $C2, $C3, $D2, $D3, $FF

LA17F:  .byte $2A, $08, $08, $C2, $C4, $D2, $D4, $FF

LA187:  .byte $21, $08, $08, $C2, $C4, $D2, $D4, $FF

LA18F:  .byte $6A, $08, $08, $C2, $C3, $D2, $D3, $FF

LA197:  .byte $6A, $08, $08, $C2, $C4, $D2, $D4, $FF

LA19F:  .byte $61, $08, $08, $C2, $C4, $D2, $D4, $FF

LA1A7:  .byte $20, $02, $04, $FC, $FF

LA1AC:  .byte $00, $F8, $FF

LA1AF:  .byte $60, $02, $04, $FC, $FF

LA1B4:  .byte $00, $F8, $FF

LA1B7:  .byte $20, $02, $02, $FC, $FE, $00, $D9, $FF

LA1BF:  .byte $E0, $02, $02, $FC, $00, $02, $D8, $FF

LA1C7:  .byte $E0, $02, $02, $FC, $02, $00, $D9, $FF

LA1CF:  .byte $20, $02, $02, $FC, $00, $FE, $D8, $FF

LA1D7:  .byte $60, $02, $02, $FC, $FE, $00, $D9, $FF

LA1DF:  .byte $A0, $02, $02, $FC, $00, $FE, $D8, $FF

LA1E7:  .byte $A0, $02, $02, $FC, $02, $00, $D9, $FF

LA1EF:  .byte $60, $02, $02, $FC, $00, $02, $D8, $FF

LA1F7:  .byte $06, $08, $04, $FE, $FE, $14, $24, $FF

LA1FF:  .byte $00, $04, $04, $8A, $FF

LA204:  .byte $00, $04, $04, $8A, $FF

LA209:  .byte $3F, $04, $08, $FD, $03, $EC, $FD, $43, $EC, $FF

LA213:  .byte $3F, $04, $08, $FD, $03, $ED, $FD, $43, $ED, $FF

LA21D:  .byte $22, $10, $0C, $C5, $C6, $C7, $D5, $D6, $D7, $E5, $E6, $E7, $F5, $F6, $F7, $FF

LA22D:  .byte $22, $10, $0C, $C5, $C6, $C7, $D5, $D6, $D7, $E5, $E6, $E7, $E8, $E9, $F9, $FF

LA23D:  .byte $62, $10, $0C, $C5, $C6, $C7, $D5, $D6, $D7, $E5, $E6, $E7, $F5, $F6, $F7, $FF

LA24D:  .byte $62, $10, $0C, $C5, $C6, $C7, $D5, $D6, $D7, $E5, $E6, $E7, $E8, $E9, $F9, $FF

LA25D:  .byte $21, $00, $00, $C5, $C7, $D5, $D7, $E5, $E7, $FF

LA267:  .byte $21, $00, $00, $C7, $C5, $D7, $D5, $E7, $E5, $FF

;----------------------------------------[ Palette data ]--------------------------------------------

Palette00:
LA271:  .byte $3F                       ;Upper byte of PPU palette adress.
LA272:  .byte $00                       ;Lower byte of PPU palette adress.
LA273:  .byte $20                       ;Palette data length.
;The following values are written to the background palette:
LA274:  .byte $0F, $22, $12, $1C, $0F, $22, $12, $1C, $0F, $27, $11, $07, $0F, $22, $12, $1C
;The following values are written to the sprite palette:
LA284:  .byte $0F, $16, $19, $27, $0F, $12, $30, $21, $0F, $27, $2A, $3C, $0F, $15, $21, $38

LA294:  .byte $00                       ;End Palette00 info.

Palette01:
LA295:  .byte $3F                       ;Upper byte of PPU palette adress.
LA296:  .byte $12                       ;Lower byte of PPU palette adress.
LA297:  .byte $02                       ;Palette data length.
;The following values are written to the sprite palette:
LA298:  .byte $19, $27

LA29A:  .byte $00                       ;End Palette01 info.

Palette03:
LA29B:  .byte $3F                       ;Upper byte of PPU palette adress.
LA29C:  .byte $12                       ;Lower byte of PPU palette adress.
LA29D:  .byte $02                       ;Palette data length.
;The following values are written to the sprite palette:
LA29E:  .byte $2C, $27

LA2A0:  .byte $00                       ;End Palette02 info.

Palette02:
LA2A1:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2A2:  .byte $12                       ;Lower byte of PPU palette adress.
LA2A3:  .byte $02                       ;Palette data length.
;The following values are written to the sprite palette:
LA2A4:  .byte $19, $35

LA2A6:  .byte $00                       ;End Palette03 info.

Palette04:
LA2A7:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2A8:  .byte $12                       ;Lower byte of PPU palette adress.
LA2A9:  .byte $02                       ;Palette data length.
;The following values are written to the sprite palette:
LA2AA:  .byte $2C, $24

LA2AC:  .byte $00                       ;End Palette04 info.

Palette05:
LA2AD:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2AE:  .byte $00                       ;Lower byte of PPU palette adress.
LA2AF:  .byte $10                       ;Palette data length.
;The following values are written to the background palette:
LA2B0:  .byte $0F, $20, $10, $00, $0F, $28, $19, $17, $0F, $27, $11, $07, $0F, $28, $16, $17
LA2C0:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2C1:  .byte $14                       ;Lower byte of PPU palette adress.
LA2C2:  .byte $0C                       ;Palette data length.
;The following values are written to the sprite palette:
LA2C3:  .byte $0F, $12, $30, $21, $0F, $26, $1A, $31, $0F, $15, $21, $38

LA2CF:  .byte $00                       ;End Palette05 info.

Palette06:
LA2D0:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2D1:  .byte $11                       ;Lower byte of PPU palette adress.
LA2D2:  .byte $03                       ;Palette data length.
;The following values are written to the sprite palette:
LA2D3:  .byte $04, $09, $07

LA2D6:  .byte $00                       ;End Palette06 info.

Palette07:
LA2D7:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2D8:  .byte $11                       ;Lower byte of PPU palette adress.
LA2D9:  .byte $03                       ;Palette data length.
;The following values are written to the sprite palette:
LA2DA:  .byte $05, $09, $17

LA2DD:  .byte $00                       ;End Palette07 info.

Palette08:
LA2DE:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2DF:  .byte $11                       ;Lower byte of PPU palette adress.
LA2E0:  .byte $03                       ;Palette data length.
;The following values are written to the sprite palette:
LA2E1:  .byte $06, $0A, $26

LA2E4:  .byte $00                       ;End Palette08 info.

Palette09:
LA2E5:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2E6:  .byte $11                       ;Lower byte of PPU palette adress.
LA2E7:  .byte $03                       ;Palette data length.
;The following values are written to the sprite palette:
LA2E8:  .byte $16, $19, $27

LA2EB:  .byte $00                       ;End Palette09 info.

Palette0A:
LA2EC:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2ED:  .byte $00                       ;Lower byte of PPU palette adress.
LA2EE:  .byte $04                       ;Palette data length.
;The following values are written to the background palette:
LA2EF:  .byte $0F, $30, $30, $21

LA2F3:  .byte $00                       ;End Palette0A info.

Palette0B:
LA2F4:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2F5:  .byte $10                       ;Lower byte of PPU palette adress.
LA2F6:  .byte $04                       ;Palette data length.
;The following values are written to the sprite palette:
LA2F7:  .byte $0F, $15, $34, $17

LA2FB:  .byte $00                       ;End Palette0B info.

Palette0C:
LA2FC:  .byte $3F                       ;Upper byte of PPU palette adress.
LA2FD:  .byte $10                       ;Lower byte of PPU palette adress.
LA2FE:  .byte $04                       ;Palette data length.
;The following values are written to the sprite palette:
LA2FF:  .byte $0F, $15, $34, $19

LA303:  .byte $00                       ;End Palette0C info.

Palette0D:
LA304:  .byte $3F                       ;Upper byte of PPU palette adress.
LA305:  .byte $10                       ;Lower byte of PPU palette adress.
LA306:  .byte $04                       ;Palette data length.
;The following values are written to the sprite palette:
LA307:  .byte $0F, $15, $34, $28

LA30B:  .byte $00                       ;End Palette0D info.

Palette0E:
LA30C:  .byte $3F                       ;Upper byte of PPU palette adress.
LA30D:  .byte $10                       ;Lower byte of PPU palette adress.
LA30E:  .byte $04                       ;Palette data length.
;The following values are written to the sprite palette:
LA30F:  .byte $0F, $15, $34, $29

LA313:  .byte $00                       ;End Palette0E info.

;----------------------------[ Room and structure pointer tables ]-----------------------------------

RmPtrTbl:
LA314:  .word $A441, $A454, $A45C, $A480, $A4BB, $A4ED, $A524, $A55A
LA324:  .word $A587, $A5B9, $A5DD, $A615, $A635, $A661, $A68D, $A6B1
LA334:  .word $A6DB, $A715, $A73C, $A768, $A78B, $A7A3, $A7D0, $A7F1
LA344:  .word $A81B, $A85B, $A88B, $A8B1, $A8E7, $A910, $A92B, $A96B
LA354:  .word $A997, $A9C6, $A9F6, $AA20, $AA56, $AAA4, $AAE6, $AB19
LA364:  .word $AB48, $AB71, $AB92, $ABBF, $AC24, $AC4D, $AC6A 

StrctPtrTbl:
LA372:  .word $AC84, $AC97, $ACB0, $ACC9, $ACD0, $ACD7, $ACDB, $ACE6
LA382:  .word $ACF3, $ACFF, $AD05, $AD0A, $AD1A, $AD1E, $AD28, $AD4D 
LA392:  .word $AD57, $AD6A, $AD7F, $AD8E, $AD98, $ADA2, $ADAD, $ADBE
LA3A2:  .word $ADE3, $ADE6, $ADEC, $ADF9, $AE09, $AE13, $AE18, $AE2D
LA3B2:  .word $AE42, $AE48, $AE4B, $AE5F, $AE70, $AE85, $AE8E, $AE92
LA3C2:  .word $AEA5, $AEB0, $AEB3, $AEBE, $AEC8, $AECB, $AEDE, $AEE1
LA3D2:  .word $AEE4, $AEED 

;------------------------------------[ 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 Tourian.
LA3D6:  .byte $02
LA3D7:  .word $A3E4
LA3D9:  .byte $03, $05, $04, $03, $00

;Varia suit.
LA3DE:  .byte $0F, $FF, $02, $05, $37, $00

;Missiles.
LA3E4:  .byte $03
LA3E5:  .word $A3F3
LA3E7:  .byte $18, $06, $02, $09, $67, $00

;Energy tank.
LA3ED:  .byte $1B, $FF, $02, $08, $87, $00

;Long beam.
LA3F3:  .byte $05
LA3F4:  .word $A402
LA3F6:  .byte $07, $06, $02, $02, $37, $00

;Bombs.
LA3FC:  .byte $19, $FF, $02, $00, $37, $00

;Palette change room.
LA402:  .byte $07
LA403:  .word $A40F
LA405:  .byte $0C, $04, $0A, $00

;Energy tank.
LA409:  .byte $19, $FF, $02, $08, $87, $00

;Ice beam.
LA40F:  .byte $09
LA410:  .word $A41C
LA412:  .byte $13, $06, $02, $07, $37, $00

;Mellows.
LA418:  .byte $15, $FF, $03, $00

;Missiles.
LA41C:  .byte $0B
LA41D:  .word $A42A
LA41F:  .byte $12, $06, $02, $09, $67, $00

;Elevator to Norfair.
LA425:  .byte $16, $FF, $04, $01, $00

;Maru Mari.
LA42A:  .byte $0E
LA42B:  .word $A439
LA42D:  .byte $02, $06, $02, $04, $96, $00

;Energy tank.
LA433:  .byte $09, $FF, $02, $08, $12, $00

;Elevator to Kraid.
LA439:  .byte $12
LA43A:  .word $FFFF
LA43C:  .byte $07, $FF, $04, $02, $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
LA441:  .byte $02                               ;Attribute table data.
;Room object data:
LAA42:  .byte $40, $01, $02, $48, $01, $02, $50, $03, $02, $5F, $03, $02, $FD
;Room enemy/door data:
LAA4F:  .byte $02, $A1, $02, $B1, $FF

;Room #$01
LA454:  .byte $02                               ;Attribute table data.
;Room object data:
LA455:  .byte $07, $02, $02, $87, $02, $02, $FF

;Room #$02
LA45C:  .byte $03                               ;Attribute table data.
;Room object data:
LA45D:  .byte $00, $0B, $03, $0E, $0B, $03, $50, $0B, $03, $5E, $0B, $03, $A0, $0B, $03, $AE
LA46D:  .byte $0B, $03, $FD
;Room enemy/door data: 
LA470:  .byte $01, $03, $42, $11, $83, $8A, $21, $03, $B5, $31, $02, $59, $41, $02, $A3, $FF

;Room #$03
LA480:  .byte $02                               ;Attribute table data.
;Room object data:
LA481:  .byte $00, $0B, $03, $02, $09, $03, $0E, $0B, $03, $50, $0B, $03, $56, $0A, $03, $5F
LA491:  .byte $03, $02, $8B, $0A, $03, $8E, $0B, $03, $92, $0A, $03, $A0, $0B, $03, $C7, $09
LA4A1:  .byte $03, $DE, $0B, $03, $FD 
;Room enemy/door data:
LA4A6:  .byte $02, $A1, $01, $85, $47, $11, $05, $BA, $21, $03, $08, $31, $83, $53, $41, $83
LA4B6:  .byte $97, $51, $03, $C5, $FF

;Room #$04
LA4BB:  .byte $03                               ;Attribute table data.
;Room object data:
LA4BC:  .byte $00, $0B, $03, $04, $0A, $03, $0E, $0B, $03, $47, $09, $03, $50, $03, $02, $5E
LA4CC:  .byte $0B, $03, $80, $0B, $03, $82, $0A, $03, $9C, $0A, $03, $AE, $0B, $03, $B6, $0A
LA4DC:  .byte $03, $C0, $0B, $03, $FD
;Room enemy/door data:
LA4E1:  .byte $02, $B1, $41, $03, $45, $51, $03, $BB, $31, $05, $39, $FF 

;Room #$05
LA4ED:  .byte $03                               ;Attribute table data.
;Room object data:
LA4EE:  .byte $00, $0B, $03, $0E, $0B, $03, $15, $09, $03, $50, $03, $02, $57, $0A, $03, $5F
LA4FE:  .byte $03, $02, $80, $0B, $03, $82, $0A, $03, $8B, $0A, $03, $8E, $0B, $03, $B0, $0B
LA50E:  .byte $03, $C6, $09, $03, $CE, $0B, $03, $FD
;Room enemy/door data:
LA516:  .byte $02, $A1, $02, $B1, $01, $83, $43, $31, $85, $48, $51, $05, $B7, $FF

;Room #$06
LA524:  .byte $03                               ;Attribute table data.
;Room object data:
LA525:  .byte $00, $0B, $03, $0E, $0B, $03, $12, $0A, $03, $37, $0A, $03, $50, $0B, $03, $5E
LA535:  .byte $0B, $03, $73, $0A, $03, $8A, $0A, $03, $A0, $0B, $03, $AE, $0B, $03, $B6, $09
LA545:  .byte $03, $FD 
;Room enemy/door data:
LA547:  .byte $01, $03, $B3, $11, $03, $3C, $21, $05, $A8, $31, $05, $64, $51, $85, $7B, $41
LA557:  .byte $05, $28, $FF

;Room #$07
LA55A:  .byte $03                               ;Attribute table data.
;Room object data:
LA55B:  .byte $00, $0D, $03, $08, $0D, $03, $54, $06, $03, $5A, $06, $03, $67, $07, $03, $A0
LA56B:  .byte $0B, $03, $AE, $0B, $03, $C2, $06, $03, $CD, $06, $03, $D2, $00, $02, $D6, $00
LA57B:  .byte $02, $FD
;Room enemy/door data:
LA57D:  .byte $51, $05, $B2, $41, $05, $BD, $31, $05, $67, $FF

;Room #$08
LA587:  .byte $03                               ;Attribute table data.
;Room object data:
LA588:  .byte $00, $1E, $03, $04, $1E, $03, $08, $1E, $03, $0C, $1E, $03, $38, $1E, $03, $40
LA598:  .byte $1E, $03, $44, $1E, $03, $4C, $1E, $03, $74, $1E, $03, $78, $1E, $03, $80, $1E
LA5A8:  .byte $03, $8C, $1E, $03, $B0, $1E, $03, $B4, $1E, $03, $B8, $1E, $03, $CC, $1E, $03
LA5B8:  .byte $FF

;Room #$09(Starting room).
LA5B9:  .byte $03                               ;Attribute table data.
;Room object data:
LA5BA:  .byte $00, $11, $01, $08, $11, $01, $35, $1D, $03, $3B, $1D, $03, $55, $0B, $03, $5A
LA5CA:  .byte $0B, $03, $C5, $16, $00, $D0, $10, $03, $D8, $10, $03, $FD
;Room enemy/door data: 
LA5D6:  .byte $51, $05, $25, $41, $05, $2B, $FF

;Room #$0A
LA5DD:  .byte $00                               ;Attribute table data.
;Room object data:
LA5DE:  .byte $00, $14, $00, $08, $14, $00, $0F, $15, $00, $10, $15, $00, $14, $15, $00, $25
LA5EE:  .byte $08, $03, $50, $14, $00, $58, $0C, $00, $5F, $04, $02, $60, $14, $00, $70, $13
LA5FE:  .byte $00, $80, $14, $00, $88, $14, $00, $90, $16, $00, $99, $16, $00, $B3, $15, $00
LA60E:  .byte $BC, $15, $00, $FD
;Room enemy/door data: 
LA612:  .byte $02, $A0, $FF

;Room #$0B
LA615:  .byte $00                               ;Attribute table data.
;Room object data:
LA616:  .byte $00, $15, $00, $01, $16, $00, $08, $16, $00, $0F, $15, $00, $4F, $15, $00, $50
LA626:  .byte $04, $02, $80, $16, $00, $87, $02, $02, $89, $16, $00, $FD
;Room enemy/door data:
LA632:  .byte $02, $B1, $FF

;Room #$0C
LA635:  .byte $02                               ;Attribute table data.
;Room object data:
LA636:  .byte $00, $1B, $02, $08, $1B, $02, $10, $1A, $02, $50, $03, $02, $80, $1A, $02, $82
LA646:  .byte $19, $02, $BC, $19, $02, $C0, $1A, $02, $C6, $1B, $02, $D1, $00, $02, $D9, $00
LA656:  .byte $02, $FD
;Room enemy/door data:
LA658:  .byte $02, $B1, $51, $02, $5A, $31, $02, $AA, $FF

;Room #$0D
LA661:  .byte $02                               ;Attribute table data.
;Room object data:
LA662:  .byte $00, $1B, $02, $08, $1B, $02, $1E, $1A, $02, $5F, $03, $02, $8C, $19, $02, $8E
LA672:  .byte $1A, $02, $B7, $1A, $02, $C2, $1A, $02, $CE, $1A, $02, $D0, $00, $02, $D7, $00
LA682:  .byte $02, $FD
;Room enemy/door data:
LA684:  .byte $02, $A1, $31, $05, $B3, $51, $02, $44, $FF

;Room #$0E
LA68D:  .byte $02                               ;Attribute table data.
;Room object data:
LA68E:  .byte $00, $1B, $02, $08, $1B, $02, $AC, $19, $02, $B4, $19, $02, $B8, $1A, $02, $D0
LA69E:  .byte $00, $02, $D8, $00, $02, $FD
;Room enemy/door data:
LA6A4:  .byte $01, $82, $28, $11, $05, $A5, $21, $02, $8B, $31, $02, $BD, $FF 

;Room #$0F
LA6B1:  .byte $03                               ;Attribute table data.
;Room object data:
LA6B2:  .byte $00, $1B, $02, $08, $1B, $02, $59, $06, $03, $92, $19, $02, $AC, $19, $02, $BB
LA6C2:  .byte $19, $02, $C0, $06, $03, $D0, $00, $02, $D8, $00, $02, $FD
;Room enemy/door data:
LA6CE:  .byte $01, $02, $3B, $11, $02, $B8, $51, $85, $84, $41, $05, $49, $FF

;Room #$10
LA6DB:  .byte $02                               ;Attribute table data.
;Room object data:
LA6DC:  .byte $00, $17, $02, $08, $17, $02, $10, $17, $02, $18, $17, $02, $50, $03, $02, $5F
LA6EC:  .byte $03, $02, $80, $1A, $02, $82, $19, $02, $86, $2E, $02, $87, $1B, $02, $8E, $1A
LA6FC:  .byte $02, $C0, $1A, $02, $CE, $1A, $02, $D2, $12, $02, $D8, $12, $02, $FD
;Room enemy/door data:
LA70A:  .byte $02, $A1, $02, $B1, $01, $02, $5C, $11, $02, $A7, $FF

;Room #$11
LA715:  .byte $03                               ;Attribute table data.
;Room object data:
LA716:  .byte $00, $0B, $03, $02, $06, $03, $0E, $0B, $03, $50, $0B, $03, $52, $06, $03, $5E
LA726:  .byte $0B, $03, $A0, $0B, $03, $A2, $06, $03, $AE, $0B, $03, $FD
;Room enemy/door data:
LA732:  .byte $01, $83, $DD, $11, $03, $35, $21, $02, $7D, $FF

;Room #$12
LA73C:  .byte $03                               ;Attribute table data.
;Room object data:
LA73D:  .byte $00, $0B, $03, $02, $11, $01, $0A, $11, $01, $50, $03, $02, $80, $0B, $03, $82
LA74D:  .byte $0A, $03, $D0, $10, $03, $D8, $10, $03, $FD
;Room enemy/door data:
LA756:  .byte $02, $B1, $01, $05, $C7, $11, $05, $CB, $51, $04, $3A, $41, $04, $29, $31, $04
LA766:  .byte $1E, $FF

;Room #$13
LA768:  .byte $03                               ;Attribute table data.
;Room object data:
LA769:  .byte $00, $11, $01, $07, $10, $03, $0E, $0B, $03, $5F, $03, $02, $8A, $09, $03, $8E
LA779:  .byte $0B, $03, $D0, $10, $03, $D8, $10, $03, $FD
;Room enemy/door data:
LA782:  .byte $02, $A1, $01, $05, $7B, $11, $05, $C8, $FF

;Room #$14
LA78B:  .byte $01                               ;Attribute table data.
;Room object data:
LA78C:  .byte $00, $11, $01, $08, $11, $01, $D0, $10, $03, $D8, $10, $03, $FD
;Room enemy/door data:
LA799:  .byte $51, $04, $14, $21, $04, $38, $41, $04, $2E, $FF

;Room #$15
LA7A3:  .byte $03                               ;Attribute table data.
;Room object data:
LA7A4:  .byte $00, $10, $03, $08, $10, $03, $90, $1F, $01, $96, $1F, $01, $AA, $05, $03, $AC
LA7B4:  .byte $1F, $01, $BA, $10, $03, $C4, $05, $03, $D0, $10, $03, $D8, $10, $03, $FD
;Room enemy/door data:
LA7C3:  .byte $51, $05, $89, $37, $87, $AB, $21, $06, $23, $17, $07, $C5, $FF

;Room #$16
LA7D0:  .byte $01                               ;Attribute table data.
;Room object data:
LA7D1:  .byte $00, $11, $01, $08, $11, $01, $B0, $1F, $01, $B6, $05, $03, $B8, $05, $03, $BC
LA7E1:  .byte $1F, $01, $C6, $1F, $01, $D4, $00, $02, $FD
;Room enemy/door data:
LA7EA:  .byte $07, $07, $B7, $47, $87, $B9, $FF

;Room #$17
LA7F1:  .byte $03                               ;Attribute table data.
;Room object data:
LA7F2:  .byte $00, $11, $01, $08, $10, $03, $4A, $1E, $03, $6B, $1E, $03, $8C, $1E, $03, $A6
LA802:  .byte $15, $00, $B3, $1D, $03, $B9, $1D, $03, $C3, $0C, $00, $C8, $0C, $00, $D0, $10
LA812:  .byte $03, $D8, $10, $03, $FD
;Room enemy/door data:
LA817:  .byte $41, $05, $B4, $FF

;Room #$18
LA81B:  .byte $01                               ;Attribute table data.
;Room object data:
LA81C:  .byte $00, $0B, $03, $01, $11, $01, $09, $11, $01, $0E, $0B, $03, $50, $03, $02, $5F
LA82C:  .byte $03, $02, $64, $0D, $03, $66, $20, $01, $80, $1F, $01, $84, $20, $01, $88, $20
LA83C:  .byte $01, $8C, $1E, $03, $A6, $20, $01, $B0, $0B, $03, $BE, $0B, $03, $E6, $20, $01
LA84C:  .byte $FD
;Room enemy/door data:
LA84D:  .byte $02, $A1, $02, $B1, $31, $05, $56, $01, $85, $5A, $21, $05, $D9, $FF

;Room #$19
LA85B:  .byte $01                               ;Attribute table data.
;Room object data:
LA85C:  .byte $00, $10, $03, $04, $1F, $01, $08, $1F, $01, $0C, $11, $01, $12, $31, $03, $44
LA86C:  .byte $1F, $01, $48, $1F, $01, $84, $1F, $01, $88, $1F, $01, $D0, $1F, $01, $D4, $1F
LA87C:  .byte $01, $D8, $10, $03, $FD
;Room enemy/door data:
LA881:  .byte $51, $05, $C0, $41, $05, $CA, $31, $06, $3C, $FF

;Room #$1A
LA88B:  .byte $02                               ;Attribute table data.
;Room object data:
LA88C:  .byte $00, $28, $02, $01, $2D, $02, $09, $2D, $02, $50, $04, $02, $80, $28, $02, $81
LA89C:  .byte $14, $00, $95, $15, $00, $D0, $2D, $02, $D8, $2D, $02, $FD
;Room enemy/door data:
LA8A8:  .byte $02, $B0, $01, $05, $C7, $11, $85, $CA, $FF

;Room #$1B
LA8B1:  .byte $00                               ;Attribute table data.
;Room object data:
LA8B2:  .byte $00, $14, $00, $04, $15, $00, $08, $14, $00, $0A, $15, $00, $97, $06, $03, $A0
LA8C2:  .byte $0B, $03, $A6, $15, $00, $A8, $15, $00, $AE, $0B, $03, $B4, $06, $03, $BA, $06
LA8D2:  .byte $03, $C2, $06, $03, $D2, $00, $02, $D6, $00, $02, $FD
;Room enemy/door data:
LA8DD:  .byte $41, $05, $AA, $21, $06, $17, $11, $05, $A4, $FF

;Room #$1C
LA8E7:  .byte $00                               ;Attribute table data.
;Room object data:
LA8E8:  .byte $00, $15, $00, $01, $0D, $03, $09, $0E, $01, $2A, $23, $01, $37, $22, $03, $4D
LA8F8:  .byte $0E, $01, $50, $03, $02, $6A, $16, $00, $6D, $0E, $01, $80, $14, $00, $87, $02
LA908:  .byte $02, $89, $14, $00, $FD
;Room enemy/door data:
LA90D:  .byte $02, $B1, $FF

;Room #$1D
LA910:  .byte $01                               ;Attribute table data.
;Room object data:
LA911:  .byte $00, $0E, $01, $08, $0E, $01, $44, $0E, $01, $84, $0F, $01, $94, $0E, $01, $B0
LA921:  .byte $0E, $01, $B8, $0E, $01, $FD 
;Room enemy/door data:
LA927:  .byte $31, $06, $42, $FF

;Room #$1E
LA92B:  .byte $01                               ;Attribute table data.
;Room object data:
LA92C:  .byte $00, $0E, $01, $02, $2A, $01, $07, $25, $01, $08, $0E, $01, $10, $0E, $01, $12
LA93c:  .byte $2A, $01, $17, $25, $01, $18, $0E, $01, $50, $03, $02, $5F, $03, $02, $74, $26
LA94C:  .byte $01, $78, $26, $01, $80, $0E, $01, $88, $0E, $01, $C0, $24, $01, $CC, $24, $01
LA95C:  .byte $D4, $00, $02, $FD
;Room enemy/door data:
LA960:  .byte $02, $A1, $02, $B1, $11, $02, $52, $01, $03, $C8, $FF

;Room #$1F
LA96B:  .byte $01                               ;Attribute table data.
;Room object data:
LA96C:  .byte $00, $27, $01, $08, $27, $01, $10, $24, $01, $50, $03, $02, $80, $24, $01, $A6
LA97C:  .byte $26, $01, $B0, $0E, $01, $CA, $26, $01, $D8, $0E, $01, $FD
;Room enemy/door data:
LA988:  .byte $02, $B1, $01, $02, $2B, $11, $02, $BB, $21, $82, $5B, $31, $02, $8B, $FF

;Room #$20
LA997:  .byte $01                               ;Attribute table data.
;Room object data:
LA998:  .byte $00, $27, $01, $08, $27, $01, $1C, $24, $01, $20, $24, $01, $5F, $03, $02, $8C
LA9A8:  .byte $24, $01, $BA, $26, $01, $C4, $26, $01, $C8, $0E, $01, $D0, $0E, $01, $FD 
;Room enemy/door data:
LA9B7:  .byte $02, $A1, $51, $02, $85, $41, $02, $C5, $31, $05, $BA, $21, $05, $C5, $FF

;Room #$21
LA9C6:  .byte $01                               ;Attribute table data.
;Room object data:
LA9C7:  .byte $00, $0E, $01, $08, $0E, $01, $30, $0E, $01, $38, $0E, $01, $A7, $26, $01, $B0
LA9D7:  .byte $24, $01, $B6, $24, $01, $BC, $24, $01, $C4, $05, $03, $D4, $27, $01, $DA, $00
LA9E7:  .byte $02, $FD
;Room enemy/door data:
LA9E9:  .byte $07, $07, $C5, $11, $05, $AC, $21, $05, $A8, $51, $06, $7A, $FF

;Room #$22
LA9F6:  .byte $01                               ;Attribute table data.
;Room object data:
LA9F7:  .byte $00, $0E, $01, $08, $0E, $01, $30, $0E, $01, $37, $25, $01, $48, $2A, $01, $4C
LAA07:  .byte $2A, $01, $68, $0E, $01, $78, $0E, $01, $A3, $26, $01, $B0, $0E, $01, $B8, $0E
LAA17:  .byte $01, $FD
;Room enemy/door data:
LAA19:  .byte $41, $06, $75, $21, $03, $85, $FF

;Room #$23
LAA20:  .byte $02                               ;Attribute table data.
;Room object data:
LAA21:  .byte $00, $27, $01, $08, $27, $01, $63, $29, $01, $73, $28, $02, $8B, $29, $01, $9B
LAA31:  .byte $28, $02, $C0, $26, $01, $C6, $26, $01, $D0, $0E, $01, $D8, $00, $02, $D9, $0E
LAA41:  .byte $01, $DE, $05, $03, $FD
;Room enemy/door data:
LAA46:  .byte $01, $85, $63, $11, $05, $8B, $21, $02, $6E, $47, $07, $DF, $31, $83, $A8, $FF

;Room #$24
LAA56:  .byte $01                               ;Attribute table data.
;Room object data:
LAA57:  .byte $00, $0E, $01, $08, $0E, $01, $40, $2B, $00, $48, $2B, $00, $50, $0E, $01, $53
LAA67:  .byte $20, $01, $58, $0E, $01, $5B, $20, $01, $60, $2B, $00, $68, $13, $00, $70, $27
LAA77:  .byte $01, $78, $27, $01, $80, $2B, $00, $88, $2B, $00, $90, $27, $01, $98, $27, $01
LAA87:  .byte $A0, $13, $00, $A8, $2B, $00, $B0, $0E, $01, $B8, $0E, $01, $FD
;Room enemy/door data:
LAA94:  .byte $01, $05, $4D, $11, $85, $6C, $21, $05, $8A, $31, $85, $AF, $41, $05, $47, $FF

;Room #$25
LAAA4:  .byte $02                               ;Attribute table data.
;Room object data:
LAAA5:  .byte $00, $27, $01, $05, $27, $01, $0A, $0E, $01, $23, $24, $01, $4A, $13, $00, $52
LAAB5:  .byte $24, $01, $59, $20, $01, $5A, $0E, $01, $6A, $2B, $00, $79, $0E, $01, $89, $2B
LAAC5:  .byte $00, $90, $28, $02, $94, $06, $03, $98, $0E, $01, $A8, $13, $00, $B0, $0E, $01
LAAD5:  .byte $B8, $0E, $01, $FD
;Room enemy/door data:
LAAD9:  .byte $51, $05, $4F, $41, $05, $6E, $31, $05, $8E, $21, $02, $48, $FF

;Room #$26
LAAE6:  .byte $01                               ;Attribute table data.
;Room object data:
LAAE7:  .byte $00, $0E, $01, $08, $27, $01, $40, $2B, $00, $50, $0E, $01, $56, $20, $01, $60
LAAF7:  .byte $2B, $00, $68, $2C, $00, $80, $27, $01, $8B, $24, $01, $D0, $00, $02, $D8, $00
LAB07:  .byte $02, $FD
;Room enemy/door data:
LAB09:  .byte $51, $05, $67, $41, $05, $7E, $21, $05, $7B, $31, $03, $49, $11, $02, $C6, $FF

;Room #$27
LAB19:  .byte $03                               ;Attribute table data.
;Room object data:
LAB1A:  .byte $00, $0B, $03, $02, $11, $01, $09, $11, $01, $50, $04, $02, $80, $0B, $03, $82
LAB2A:  .byte $1E, $03, $B6, $1D, $03, $B7, $1D, $03, $C2, $09, $03, $C8, $1D, $03, $D0, $10
LAB3A:  .byte $03, $D8, $10, $03, $FD
;Room enemy/door data:
LAB3F:  .byte $02, $B0, $11, $04, $38, $31, $06, $27, $FF

;Room #$28
LAB48:  .byte $00                               ;Attribute table data.
;Room object data:
LAB49:  .byte $00, $2D, $02, $08, $2D, $02, $0F, $28, $02, $5F, $03, $02, $87, $14, $00, $8F
LAB59:  .byte $28, $02, $9A, $15, $00, $C3, $26, $01, $D0, $2D, $02, $D8, $2D, $02, $FD 
;Room enemy/door data:
LAB68:  .byte $02, $A1, $01, $06, $23, $31, $05, $7D, $FF

;Room #$29
LAB71:  .byte $02                               ;Attribute table data.
;Room object data:
LAB72:  .byte $00, $2D, $02, $08, $2D, $02, $C2, $26, $01, $C7, $26, $01, $C9, $26, $01, $D0
LAB82:  .byte $2D, $02, $D8, $2D, $02, $FD
;Room enemy/door data:
LAB88:  .byte $41, $86, $25, $51, $06, $2A, $21, $05, $CB, $FF

;Room #$2A
LAB92:  .byte $00                               ;Attribute table data.
;Room object data:
LAB93:  .byte $00, $11, $01, $08, $11, $01, $68, $21, $02, $78, $15, $00, $95, $15, $00, $A0
LABA3:  .byte $0B, $03, $AE, $0B, $03, $BB, $15, $00, $C2, $06, $03, $D2, $00, $02, $D6, $00
LABB3:  .byte $02, $FD
;Room enemy/door data:
LABB5:  .byte $01, $05, $58, $11, $05, $85, $31, $06, $26, $FF

;Room #$2B(Bridge to Tourian).
LABBF:  .byte $02                               ;Attribute table data.
;Room object data:
LABC0:  .byte $00, $30, $00, $01, $1A, $02, $02, $30, $00, $03, $1A, $02, $05, $1C, $02, $0A
LABD0:  .byte $1B, $02, $0F, $30, $00, $10, $30, $00, $14, $30, $00, $1F, $30, $00, $2C, $18
LABE0:  .byte $02, $35, $18, $02, $41, $19, $02, $44, $2F, $02, $45, $18, $02, $46, $2F, $02
LABF0:  .byte $50, $04, $02, $53, $19, $02, $5F, $04, $02, $64, $1C, $02, $65, $1C, $02, $68
LAC00:  .byte $2F, $02, $80, $15, $00, $81, $19, $02, $8D, $19, $02, $9C, $19, $02, $9F, $15
LAC10:  .byte $00, $C0, $30, $00, $D1, $00, $02, $D7, $00, $02, $DF, $30, $00, $FD
;Room enemy/door data:
LAC1E:  .byte $02, $A0, $02, $B1, $06, $FF

;Room #$2C
LAC24:  .byte $00                               ;Attribute table data.
;Room object data:
LAC25:  .byte $00, $16, $00, $07, $16, $00, $0E, $16, $00, $1F, $15, $00, $20, $15, $00, $40
LAC35:  .byte $30, $00, $5F, $04, $02, $80, $16, $00, $87, $02, $02, $89, $16, $00, $A0, $15
LAC45:  .byte $00, $AF, $15, $00, $FD
;Room enemy/door data:
LAC4A:  .byte $02, $A1, $FF

;Room #$2D
LAC4D:  .byte $03                               ;Attribute table data.
;Room object data:
LAC4E:  .byte $00, $11, $01, $08, $11, $01, $1E, $1E, $03, $5F, $04, $02, $8B, $10, $03, $9E
LAC5E:  .byte $0B, $03, $D0, $10, $03, $D8, $10, $03, $FD
;Room enemy/door data:
LAC67:  .byte $02, $A1, $FF

;Room #$2E
LAC6A:  .byte $03                               ;Attribute table data.
;Room object data:
LAC6B:  .byte $00, $0B, $03, $0E, $0B, $03, $50, $03, $02, $5E, $0B, $03, $80, $0B, $03, $AE
LAC7B:  .byte $0B, $03, $D0, $0B, $03, $FD
;Room enemy/door data:
LAC81:  .byte $02, $B1, $FF

;---------------------------------------[ Structure definitions ]------------------------------------

;The first byte of the structure definition states how many macros are in the first row of the
;structure. The the number of bytes after the macro number byte is equal to the value of the macro
;number byte and those bytes define what each macro in the row are. For example, if the macro number
;byte is #$08, the next 8 bytes represent 8 macros. The macro description bytes are the macro numbers
;and are multiplied by 4 to find the index to the desired macro in MacroDefs.  Any further bytes in
;the structure definition represent the next rows.  #$FF marks the end of the structure definition.

;Structure #$00
LAC84:  .byte $08, $01, $01, $01, $01, $01, $01, $01, $01, $08, $00, $00, $00, $00, $00, $00
LAC94:  .byte $00, $00, $FF

;Structure #$01
LAC97:  .byte $08, $02, $02, $02, $02, $02, $02, $02, $02, $01, $28, $01, $28, $01, $28, $08
LACA7:  .byte $02, $02, $02, $02, $02, $02, $02, $02, $FF

;Structure #$02
LACB0:  .byte $02, $04, $05, $02, $04, $05, $02, $04, $05, $02, $04, $05, $02, $04, $05, $02
LACC0:  .byte $04, $05, $02, $04, $05, $02, $04, $05, $FF

;Structure #$03
LACC9:  .byte $01, $06, $01, $06, $01, $06, $FF

;Structure #$04
LACD0:  .byte $01, $07, $01, $07, $01, $07, $FF

;Structure #$05
LACD7:  .byte $02, $31, $32, $FF

;Structure #$06
LACDB:  .byte $01, $08, $01, $33, $01, $33, $01, $33, $01, $33, $FF

;Structure #$07
LACE6:  .byte $01, $28, $01, $08, $01, $1F, $01, $17, $01, $17, $01, $1F, $FF

;Structure #$08
LACF3:  .byte $02, $0E, $11, $03, $0F, $12, $22, $03, $10, $13, $14, $FF

;Structure #$09
LACFF:  .byte $04, $08, $35, $35, $08, $FF

;Structure #$0A
LAD05:  .byte $03, $08, $35, $08, $FF

;Structure #$0B
LAD0A:  .byte $02, $36, $36, $02, $1C, $08, $02, $08, $34, $02, $34, $34, $02, $08, $08, $FF

;Structure #$0C
LAD1A:  .byte $02, $20, $20, $FF

;Structure #$0D
LAD1E:  .byte $08, $08, $1C, $08, $35, $08, $35, $1C, $08, $FF

;Structure #$0E
LAD28:  .byte $08, $1E, $1E, $1C, $1C, $1E, $1E, $1E, $1E, $08, $1E, $1E, $1E, $1E, $1C, $1E
LAD38:  .byte $1E, $1E, $08, $1C, $1E, $1E, $1E, $1E, $1E, $1C, $1E, $08, $1E, $1E, $1E, $1C
LAD48:  .byte $1E, $1C, $1C, $1E, $FF

;Structure #$0F
LAD4D:  .byte $08, $2E, $2E, $2E, $2E, $2E, $2E, $2E, $2E, $FF

;Structure #$10
LAD57:  .byte $08, $08, $0B, $0B, $0B, $0B, $08, $0B, $0B, $08, $08, $08, $1C, $1C, $08, $08
LAD67:  .byte $1C, $08, $FF

;Structure #$11
LAD6A:  .byte $08, $1C, $08, $08, $08, $08, $0A, $08, $1C, $08, $08, $0A, $09, $0A, $28, $28
LAD7A:  .byte $08, $08, $01, $08, $FF

;Structure #$12
LAD7F:  .byte $06, $2C, $2C, $2C, $2C, $15, $2C, $06, $2D, $2D, $2D, $2D, $16, $2D, $FF

;Structure #$13
LAD8E:  .byte $08, $2B, $2B, $2B, $2B, $2B, $2B, $2B, $2B, $FF

;Structure #$14
LAD98:  .byte $08, $1A, $1A, $1A, $1A, $1A, $1A, $1A, $1A, $FF

;Structure #$15
LADA2:  .byte $01, $20, $01, $20, $01, $17, $01, $17, $01, $20, $FF

;Structure #$16
LADAD:  .byte $07, $20, $20, $20, $20, $20, $20, $20, $07, $20, $1A, $20, $1F, $20, $1A, $20
LADBD:  .byte $FF

;Structure #$17
LADBE:  .byte $08, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $08, $0D, $0D, $0D, $0D, $0D, $0D
LADCE:  .byte $0D, $0D, $08, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $08, $0D, $0D, $0D, $0D
LADDE:  .byte $0D, $0D, $0D, $0D, $FF

;Structure #$18
LADE3:  .byte $01, $0D, $FF

;Structure #$19
LADE6:  .byte $04, $0D, $0D, $0D, $0D, $FF

;Structure #$1A
LADEC:  .byte $02, $0D, $0D, $02, $0D, $0D, $02, $0D, $0D, $02, $0D, $0D, $FF

;Structure #$1B
LADF9:  .byte $08, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $05, $27, $30, $0D, $0D, $30, $FF

;Structure #$1C
LAE09:  .byte $08, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $0D, $FF

;Structure #$1D
LAE13:  .byte $01, $0C, $01, $1F, $FF

;Structure #$1E
LAE18:  .byte $04, $08, $35, $08, $08, $04, $08, $1C, $08, $34, $04, $34, $08, $08, $08, $04
LAE28:  .byte $08, $08, $1C, $08, $FF

;Structure #$1F
LAE2D:  .byte $04, $1D, $1D, $1D, $1D, $04, $1D, $1C, $1C, $1D, $04, $1C, $1D, $1C, $1C, $04
LAE3D:  .byte $1D, $1C, $1D, $1D, $FF

;Structure #$20
LAE42:  .byte $04, $33, $33, $33, $33, $FF

;Structure #$21
LAE48:  .byte $01, $22, $FF

;Structure #$22
LAE4B:  .byte $03, $28, $0E, $08, $03, $37, $08, $39, $03, $38, $39, $39, $03, $28, $3A, $0A
LAE5B:  .byte $02, $3B, $3C, $FF

;Structure #$23
LAE5F:  .byte $03, $1E, $1E, $1C, $03, $39, $08, $1E, $03, $0A, $09, $1E, $03, $3D, $0B, $0A
LAE6F:  .byte $FF

;Structure #$24
LAE70:  .byte $04, $1E, $1E, $1C, $1E, $04, $1E, $1E, $1E, $1E, $04, $1C, $1E, $1E, $1E, $04
LAE80:  .byte $1E, $1E, $1C, $1E, $FF

;Structure #$25
LAE85:  .byte $01, $23, $01, $23, $01, $23, $01, $23, $FF

;Structure #$26
LAE8E:  .byte $02, $3E, $3F, $FF

;Structure #$27
LAE92:  .byte $08, $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E, $08, $1E, $1E, $1E, $1E, $1E, $1E
LAEA2:  .byte $1E, $1E, $FF

;Structure #$28
LAEA5:  .byte $01, $1F, $01, $1F, $01, $1F, $01, $1F, $01, $1F, $FF

;Structure #$29
LAEB0:  .byte $01, $3E, $FF

;Structure #$2A
LAEB3:  .byte $04, $2E, $2A, $2E, $2E, $04, $2E, $2E, $2E, $2A, $FF

;Structure #$2B
LAEBE:  .byte $08, $2B, $03, $03, $2B, $03, $03, $03, $2B, $FF

;Structure #$2C
LAEC8:  .byte $01, $1B, $FF

;Structure #$2D
LAECB:  .byte $08, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $08, $1F, $1F, $1F, $1F, $1F, $1F
LAEDB:  .byte $1F, $1F, $FF

;Structure #$2E
LAEDE:  .byte $01, $2F, $FF

;Structure #$2F
LAEE1:  .byte $01, $1F, $FF

;Structure #$30
LAEE4:  .byte $01, $17, $01, $17, $01, $17, $01, $17, $FF

;Structure #$31
LAEED:  .byte $01, $24, $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:

LAEF0:  .byte $F1, $F1, $F1, $F1
LAEF4:  .byte $FF, $FF, $F0, $F0
LAEF8:  .byte $64, $64, $64, $64
LAEFC:  .byte $D5, $D6, $CB, $CC
LAF00:  .byte $A4, $FF, $A4, $FF
LAF04:  .byte $FF, $A5, $FF, $A5
LAF08:  .byte $A0, $A0, $A0, $A0
LAF0C:  .byte $A1, $A1, $A1, $A1
LAF10:  .byte $00, $01, $02, $03
LAF14:  .byte $0B, $00, $FF, $0B
LAF18:  .byte $03, $0A, $0A, $FF
LAF1C:  .byte $08, $09, $02, $03
LAF20:  .byte $0E, $0F, $10, $11
LAF24:  .byte $12, $13, $14, $0C
LAF28:  .byte $FF, $FF, $FF, $30
LAF2C:  .byte $FF, $33, $FF, $36
LAF30:  .byte $FF, $39, $FF, $3D
LAF34:  .byte $FF, $FF, $31, $32
LAF38:  .byte $34, $35, $37, $38
LAF3C:  .byte $3A, $3B, $3E, $3F
LAF40:  .byte $3C, $41, $40, $42
LAF44:  .byte $FF, $FF, $43, $43
LAF48:  .byte $44, $44, $44, $44
LAF4C:  .byte $45, $46, $45, $46
LAF50:  .byte $FF, $47, $47, $48
LAF54:  .byte $48, $FF, $47, $48
LAF58:  .byte $48, $47, $47, $48
LAF5C:  .byte $49, $49, $4A, $4A
LAF60:  .byte $4B, $4C, $4D, $50
LAF64:  .byte $51, $52, $53, $54
LAF68:  .byte $55, $56, $57, $58
LAF6C:  .byte $59, $5B, $59, $5B
LAF70:  .byte $5C, $5D, $5E, $5F
LAF74:  .byte $4F, $4F, $4F, $4F
LAF78:  .byte $88, $89, $8A, $8B
LAF7C:  .byte $84, $85, $86, $87
LAF80:  .byte $8C, $8D, $8E, $8F
LAF84:  .byte $FF, $FF, $FF, $FF        ;Not used.
LAF88:  .byte $FF, $FF, $FF, $FF        ;Not used.
LAF8C:  .byte $FF, $FF, $FF, $FF        ;Not used.
LAF90:  .byte $FF, $FF, $FF, $FF        ;Not used.
LAF94:  .byte $B0, $B1, $B2, $B3
LAF98:  .byte $B4, $B5, $B6, $B7
LAF9C:  .byte $B8, $B8, $B9, $B9
LAFA0:  .byte $FF, $FF, $BA, $BA
LAFA4:  .byte $BB, $BB, $BB, $BB
LAFA8:  .byte $C7, $C8, $C9, $CA
LAFAC:  .byte $94, $95, $96, $97
LAFB0:  .byte $0D, $FF, $FF, $FF
LAFB4:  .byte $FF, $FF, $59, $5A
LAFB8:  .byte $FF, $FF, $5A, $5B
LAFBC:  .byte $80, $81, $82, $83
LAFC0:  .byte $04, $05, $04, $05
LAFC4:  .byte $06, $06, $07, $07
LAFC8:  .byte $60, $61, $62, $63
LAFCC:  .byte $C1, $00, $00, $08
LAFD0:  .byte $0B, $BE, $BC, $BD
LAFD4:  .byte $BF, $01, $02, $03
LAFD8:  .byte $C0, $01, $C0, $03
LAFDC:  .byte $FF, $C1, $FF, $FF
LAFE0:  .byte $C2, $01, $FF, $FF
LAFE4:  .byte $30, $00, $BC, $BD
LAFE8:  .byte $CD, $CE, $CF, $D0
LAFEC:  .byte $D1, $D2, $D3, $D4
LAFF0:  .byte $90, $91, $92, $93

;Not used.
LAFF4:  .byte $20, $20, $20, $20, $C0, $C0, $C0, $C0, $C0, $C0, $C0, $C0

;------------------------------------------[ Area music data ]---------------------------------------

;There are 3 control bytes associated with the music data and the rest are musical note indexes.
;If the byte has the binary format 1011xxxx ($Bx), then the byte is an index into the corresponding
;musical notes table and is used to set the note length until it is set by another note length
;byte. The lower 4 bits are the index into the note length table. Another control byte is the loop
;and counter btye. The loop and counter byte has the format 11xxxxxx. Bits 0 thru 6 contain the
;number of times to loop.  The third control byte is #$FF. This control byte marks the end of a loop
;and decrements the loop counter. If #$00 is found in the music data, the music has reached the end.
;A #$00 in any of the different music channel data segments will mark the end of the music. The
;remaining bytes are indexes into the MusicNotesTbl and should only be even numbers as there are 2
;bytes of data per musical note.

BrinstarSQ1IndexData:
LB000:  .byte $C2                       ;
LB001:  .byte $B4                       ;1 1/2 seconds  +
LB002:  .byte $2E                       ;B3             | Repeat 2 times
LB003:  .byte $30                       ;C4             +
LB004:  .byte $FF                       ;
LB005:  .byte $C3                       ;
LB006:  .byte $B3                       ;3/4 seconds    +
LB007:  .byte $2E                       ;B3             |
LB008:  .byte $34                       ;D4             | Repeat 3 times
LB009:  .byte $30                       ;C4             |
LB00A:  .byte $3A                       ;F4             +
LB00B:  .byte $FF                       ;
LB00C:  .byte $B4                       ;1 1/2 seconds
LB00d:  .byte $2E                       ;B3
LB00E:  .byte $B3                       ;3/4 seconds
LB00F:  .byte $30                       ;C4
LB010:  .byte $34                       ;D4
LB011:  .byte $C3                       ;
LB012:  .byte $B6                       ;1 3/16 seconds +
LB013:  .byte $38                       ;E4             |
LB014:  .byte $B9                       ;1/8 seconds    |
LB015:  .byte $30                       ;C4             |
LB016:  .byte $26                       ;G3             | Repeat 3 times
LB017:  .byte $30                       ;C4             |
LB018:  .byte $B3                       ;3/4 seconds    |
LB019:  .byte $3A                       ;F4             |
LB01A:  .byte $34                       ;D4             +
LB01B:  .byte $FF                       ;
LB01C:  .byte $B4                       ;1 1/2 seconds
LB01D:  .byte $38                       ;E4
LB01E:  .byte $38                       ;E4
LB01F:  .byte $B2                       ;3/8 seconds
LB020:  .byte $3A                       ;F4
LB021:  .byte $30                       ;C4
LB022:  .byte $2A                       ;A3
LB023:  .byte $B9                       ;1/8 seconds
LB024:  .byte $30                       ;C4
LB025:  .byte $2C                       ;A#3
LB026:  .byte $30                       ;C4
LB027:  .byte $B2                       ;3/8 seconds
LB028:  .byte $34                       ;D4
LB029:  .byte $3A                       ;F4
LB02A:  .byte $B3                       ;3/4 seconds
LB02B:  .byte $30                       ;C4
LB02C:  .byte $B2                       ;3/8 seconds
LB02D:  .byte $36                       ;D#4
LB02E:  .byte $2A                       ;A3
LB02F:  .byte $22                       ;F3
LB030:  .byte $B9                       ;1/8 seconds
LB031:  .byte $18                       ;C3
LB032:  .byte $2C                       ;A#3
LB033:  .byte $18                       ;C3
LB034:  .byte $B2                       ;3/8 seconds
LB035:  .byte $1C                       ;D3
LB036:  .byte $22                       ;F3
LB037:  .byte $2C                       ;A#3
LB038:  .byte $B9                       ;1/8 seconds
LB039:  .byte $18                       ;C3
LB03A:  .byte $22                       ;F3
LB03B:  .byte $2A                       ;A3
LB03C:  .byte $B3                       ;3/4 seconds
LB03D:  .byte $2E                       ;B3
LB03E:  .byte $2A                       ;A3
LB03F:  .byte $26                       ;G3
LB040:  .byte $34                       ;D4
LB041:  .byte $B2                       ;3/8 seconds
LB042:  .byte $36                       ;D#4
LB043:  .byte $3A                       ;F4
LB044:  .byte $28                       ;Ab3
LB045:  .byte $B9                       ;1/8 seconds
LB046:  .byte $26                       ;G3
LB047:  .byte $22                       ;F3
LB048:  .byte $1E                       ;D#3
LB049:  .byte $B2                       ;3/8 seconds
LB04A:  .byte $22                       ;F3
LB04B:  .byte $2C                       ;A#3
LB04C:  .byte $26                       ;G3
LB04D:  .byte $B9                       ;1/8 seconds
LB04E:  .byte $22                       ;F3
LB04F:  .byte $44                       ;A#4
LB050:  .byte $34                       ;D4
LB051:  .byte $B4                       ;1 1/2 seconds
LB052:  .byte $34                       ;D4
LB053:  .byte $B3                       ;3/4 seconds
LB054:  .byte $2E                       ;B3
LB055:  .byte $26                       ;G3
LB056:  .byte $00                       ;End Brinstar music

BrinstarSQ2IndexData:
LB057:  .byte $C2                       ;
LB058:  .byte $B2                       ;3/8 seconds    +
LB059:  .byte $0E                       ;G2             |
LB05A:  .byte $B9                       ;1/8 seconds    |
LB05B:  .byte $0E                       ;G2             |
LB05C:  .byte $06                       ;D2             |
LB05D:  .byte $0E                       ;G2             |
LB05E:  .byte $B2                       ;3/8 seconds    |
LB05F:  .byte $0E                       ;G2             |
LB060:  .byte $B9                       ;1/8 seconds    |
LB061:  .byte $0E                       ;G2             |
LB062:  .byte $06                       ;D2             |
LB063:  .byte $0E                       ;G2             | Repeat 2 times
LB064:  .byte $B2                       ;3/8 seconds    |
LB065:  .byte $14                       ;A#2            |
LB066:  .byte $B9                       ;1/8 seconds    |
LB067:  .byte $14                       ;A#2            |
LB068:  .byte $0A                       ;F2             |
LB069:  .byte $14                       ;A#2            |
LB06A:  .byte $B2                       ;3/8 seconds    |
LB06B:  .byte $14                       ;A#2            |
LB06C:  .byte $B9                       ;1/8 seconds    |
LB06D:  .byte $14                       ;A#2            |
LB06E:  .byte $0A                       ;F2             |
LB06F:  .byte $14                       ;A#2            +
LB070:  .byte $FF                       ;
LB071:  .byte $C3                       ;
LB072:  .byte $B4                       ;1 1/2 seconds  +
LB073:  .byte $3E                       ;G4             |
LB074:  .byte $B6                       ;1 3/16 seconds |
LB075:  .byte $44                       ;A#4            |
LB076:  .byte $B0                       ;3/32 seconds   | Repeat 3 times
LB077:  .byte $42                       ;A4             |
LB078:  .byte $44                       ;A#4            |
LB079:  .byte $42                       ;A4             |
LB07A:  .byte $3A                       ;F4             +
LB07B:  .byte $FF                       ;
LB07C:  .byte $B4                       ;1 1/2 seconds
LB07D:  .byte $3E                       ;G4
LB07E:  .byte $3E                       ;G4
LB07F:  .byte $C3                       ;
LB080:  .byte $B6                       ;1 3/16 seconds +
LB081:  .byte $48                       ;C5             |
LB082:  .byte $B2                       ;3/8 seconds    |
LB083:  .byte $3E                       ;G4             |
LB084:  .byte $B6                       ;1 3/16 seconds |
LB085:  .byte $44                       ;A#4            | Repeat 3 times
LB086:  .byte $B0                       ;3/32 seconds   |
LB087:  .byte $42                       ;A4             |
LB088:  .byte $44                       ;A#4            |
LB089:  .byte $42                       ;A4             |
LB08A:  .byte $3A                       ;F4             +
LB08B:  .byte $FF                       ;
LB08C:  .byte $B4                       ;1 1/2 seconds
LB08D:  .byte $3E                       ;G4
LB08E:  .byte $26                       ;G3
LB08F:  .byte $B6                       ;1 3/16 seconds
LB090:  .byte $42                       ;A4
LB091:  .byte $B9                       ;1/8 seconds
LB092:  .byte $42                       ;A4
LB093:  .byte $3E                       ;G4
LB094:  .byte $42                       ;A4
LB095:  .byte $B3                       ;3/4 seconds
LB096:  .byte $44                       ;A#4
LB097:  .byte $B2                       ;3/8 seconds
LB098:  .byte $3A                       ;F4
LB099:  .byte $B9                       ;1/8 seconds
LB09A:  .byte $30                       ;C4
LB09B:  .byte $3A                       ;F4
LB09C:  .byte $3E                       ;G4
LB09D:  .byte $B6                       ;1 3/16 seconds
LB09E:  .byte $42                       ;A4
LB09F:  .byte $B9                       ;1/8 seconds
LB0A0:  .byte $42                       ;A4
LB0A1:  .byte $3E                       ;G4
LB0A2:  .byte $42                       ;A4
LB0A3:  .byte $B3                       ;3/4 seconds
LB0A4:  .byte $44                       ;A#4
LB0A5:  .byte $B2                       ;3/8 seconds
LB0A6:  .byte $3A                       ;F4
LB0A7:  .byte $B9                       ;1/8 seconds
LB0A8:  .byte $3A                       ;F4
LB0A9:  .byte $44                       ;A#4
LB0AA:  .byte $48                       ;C5
LB0AB:  .byte $B4                       ;1 1/2 seconds
LB0AC:  .byte $4C                       ;D5
LB0AD:  .byte $B3                       ;3/4 seconds
LB0AE:  .byte $48                       ;C5
LB0AF:  .byte $46                       ;B4
LB0B0:  .byte $B6                       ;1 3/16 seconds
LB0B1:  .byte $48                       ;C5
LB0B2:  .byte $B9                       ;1/8 seconds
LB0B3:  .byte $4E                       ;D#5
LB0B4:  .byte $4C                       ;D5
LB0B5:  .byte $48                       ;C5
LB0B6:  .byte $B3                       ;3/4 seconds
LB0B7:  .byte $4C                       ;D5
LB0B8:  .byte $B2                       ;3/8 seconds
LB0B9:  .byte $44                       ;A#4
LB0BA:  .byte $B9                       ;1/8 seconds
LB0BB:  .byte $44                       ;A#4
LB0BC:  .byte $4C                       ;D5
LB0BD:  .byte $52                       ;F5
LB0BE:  .byte $B4                       ;1 1/2 seconds
LB0BF:  .byte $54                       ;F#5
LB0C0:  .byte $54                       ;F#5

BrinstarTriangleIndexData:
LB0C1:  .byte $C4                       ;
LB0C2:  .byte $B4                       ;1 1/2 seconds  + Repeat 4 times
LB0C3:  .byte $02                       ;No sound       +
LB0C4:  .byte $FF                       ;
LB0C5:  .byte $C3                       ;
LB0C6:  .byte $B2                       ;3/8 seconds    +
LB0C7:  .byte $26                       ;G3             |
LB0C8:  .byte $B9                       ;1/8 seconds    |
LB0C9:  .byte $26                       ;G3             |
LB0CA:  .byte $3E                       ;G4             |
LB0CB:  .byte $34                       ;D4             |
LB0CC:  .byte $B2                       ;3/8 seconds    |
LB0CD:  .byte $26                       ;G3             |
LB0CE:  .byte $B9                       ;1/8 seconds    |
LB0CF:  .byte $26                       ;G3             |
LB0D0:  .byte $34                       ;D4             | Repeat 3 times
LB0D1:  .byte $26                       ;G3             |
LB0D2:  .byte $B2                       ;3/8 seconds    |
LB0D3:  .byte $2C                       ;A#3            |
LB0D4:  .byte $B9                       ;1/8 seconds    |
LB0D5:  .byte $2C                       ;A#3            |
LB0D6:  .byte $3A                       ;F4             |
LB0D7:  .byte $2C                       ;A#3            |
LB0D8:  .byte $B2                       ;3/8 seconds    |
LB0D9:  .byte $2C                       ;A#3            |
LB0DA:  .byte $B9                       ;1/8 seconds    |
LB0DB:  .byte $2C                       ;A#3            |
LBoDC:  .byte $3A                       ;F4             |
LB0DD:  .byte $2C                       ;A#3            +
LB0DE:  .byte $FF                       ;
LB0DF:  .byte $C4                       ;
LB0E0:  .byte $B2                       ;3/8 seconds    +
LB0E1:  .byte $26                       ;G3             |
LB0E2:  .byte $B9                       ;1/8 seconds    | Repeat 4 times
LB0E3:  .byte $34                       ;D4             |
LB0E4:  .byte $26                       ;G3             |
LB0E5:  .byte $26                       ;G3             +
LB0E6:  .byte $FF                       ;
LB0E7:  .byte $D0                       ;
LB0E8:  .byte $B9                       ;1/8 seconds    +                               
LB0E9:  .byte $18                       ;C3             |
LB0EA:  .byte $26                       ;G3             | Repeat 16 times
LB0EB:  .byte $18                       ;C3             |
LB0EC:  .byte $B2                       ;3/8 seconds    |
LB0ED:  .byte $18                       ;C3             +
LB0EE:  .byte $FF                       ;
LB0EF:  .byte $C2                       ;
LB0F0:  .byte $B2                       ;3/8 seconds    +
LB0F1:  .byte $1E                       ;D#3            |
LB0F2:  .byte $B9                       ;1/8 seconds    |
LB0F3:  .byte $1E                       ;D#3            |
LB0F4:  .byte $18                       ;C3             |
LB0F5:  .byte $1E                       ;D#3            |
LB0F6:  .byte $B2                       ;3/8 seconds    |
LB0F7:  .byte $1E                       ;D#3            |
LB0F8:  .byte $B9                       ;1/8 seconds    |
LB0F9:  .byte $1E                       ;D#3            |
LB0FA:  .byte $18                       ;C3             | Repeat 2 times
LB0FB:  .byte $1E                       ;D#3            |
LB0FC:  .byte $B2                       ;3/8 seconds    |
LB0FD:  .byte $1C                       ;D3             |
LB0FE:  .byte $B9                       ;1/8 seconds    |
LB0FF:  .byte $1C                       ;D3             |
LB100:  .byte $14                       ;A#2            |
LB101:  .byte $1C                       ;D3             |
LB102:  .byte $B2                       ;3/8 seconds    |
LB103:  .byte $1C                       ;D3             |
LB104:  .byte $B9                       ;1/8 seconds    |
LB105:  .byte $1C                       ;D3             |
LB106:  .byte $14                       ;A#2            |
LB107:  .byte $1C                       ;D3             +
LB108:  .byte $FF                       ;
LB109:  .byte $B2                       ;3/8 seconds
LB10A:  .byte $26                       ;G3
LB10B:  .byte $12                       ;A2
LB10C:  .byte $16                       ;B2
LB10D:  .byte $18                       ;C3
LB10E:  .byte $1C                       ;D3
LB10F:  .byte $20                       ;E3
LB110:  .byte $24                       ;F#3
LB111:  .byte $26                       ;G3
LB112:  .byte $B2                       ;3/8 seconds
LB113:  .byte $28                       ;Ab3
LB114:  .byte $B9                       ;1/8 seconds
LB115:  .byte $28                       ;Ab3
LB116:  .byte $1E                       ;D#3
LB117:  .byte $18                       ;C3
LB118:  .byte $B2                       ;3/8 seconds
LB119:  .byte $10                       ;Ab2
LB11A:  .byte $B9                       ;1/8 seconds
LB11B:  .byte $30                       ;C4
LB11C:  .byte $2C                       ;A#3
LB11D:  .byte $28                       ;Ab3
LB11E:  .byte $B2                       ;3/8 seconds
LB11F:  .byte $1E                       ;D#3
LB120:  .byte $1C                       ;D3
LB121:  .byte $18                       ;C3
LB122:  .byte $14                       ;A#2
LB123:  .byte $2A                       ;A3
LB124:  .byte $2A                       ;A3
LB125:  .byte $2A                       ;A3
LB126:  .byte $2A                       ;A3
LB127:  .byte $CC                       ;
LB128:  .byte $B9                       ;1/8 seconds    + Repeat 12 times
LB129:  .byte $2A                       ;A3             +
LB12A:  .BYTE $FF                       ;

BrinstarNoiseIndexData:
LB12B:  .byte $E8                       ;
LB12C:  .byte $B2                       ;3/8 seconds    +
LB12D:  .byte $04                       ;Drumbeat 01    |
LB12E:  .byte $04                       ;Drumbeat 01    |
LB12F:  .byte $04                       ;Drumbeat 01    | Repeat 40 times
LB130:  .byte $B9                       ;1/8 seconds    |
LB131:  .byte $04                       ;Drumbeat 01    |
LB132:  .byte $04                       ;Drumbeat 01    |
LB133:  .byte $04                       ;Drumbeat 01    +
LB134:  .byte $FF                       ;

;Unused tile patterns. 
LB135:  .byte $E0, $E0, $F0, $00, $00, $00, $00, $00, $00, $00, $00, $21, $80, $40, $02, $05
LB145:  .byte $26, $52, $63, $00, $00, $00, $06, $07, $67, $73, $73, $FF, $AF, $2F, $07, $0B
LB155:  .byte $8D, $A7, $B1, $00, $00, $00, $00, $00, $80, $80, $80, $F8, $B8, $F8, $F8, $F0
LB165:  .byte $F0, $F8, $FC, $00, $00, $00, $00, $00, $00, $00, $00, $07, $07, $07, $07, $07
LB175:  .byte $03, $03, $01, $00, $00, $00, $00, $00, $00, $00, $80, $FF, $C7, $83, $03, $C7
LB185:  .byte $CF, $FE, $EC, $00, $30, $78, $F8, $30, $00, $01, $12, $F5, $EA, $FB, $FD, $F9
LB195:  .byte $1E, $0E, $44, $07, $03, $03, $01, $01, $E0, $10, $48, $2B, $3B, $1B, $5A, $D0
LB1A5:  .byte $D1, $C3, $C3, $3B, $3B, $9B, $DA, $D0, $D0, $C0, $C0, $2C, $23, $20, $20, $30
LB1B5:  .byte $98, $CF, $C7, $00, $00, $00, $00, $00, $00, $00, $30, $1F, $80, $C0, $C0, $60
LB1C5:  .byte $70, $FC, $C0, $00, $00, $00, $00, $00, $00, $00, $00, $01, $00, $00, $00, $00
LB1D5:  .byte $00, $00, $00, $80, $80, $C0, $78, $4C, $C7, $80, $80, $C4, $A5, $45, $0B, $1B
LB1E5:  .byte $03, $03, $00, $3A, $13, $31, $63, $C3, $83, $03, $04, $E6, $E6, $C4, $8E, $1C
LB1F5:  .byte $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(not used this memory page).
LBD31:  .byte $0B, $FF, $F5, $00, $00
LBD36:  .word $0100, $0300, $0500, $0000

;Escape music(not used this memory page).
LBD3E:  .byte $0B, $FF, $00, $02, $02
LBD43:  .word $0100, $0300, $0500, $0700

;Norfair music(not used this memory page).
LBD4B:  .byte $0B, $FF, $F0, $04, $04
LBD50:  .word $0100, $0300, $0500, $0700

;Kraid area music(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
LBDB3:  .byte $0B, $FF, $00, $02, $03
LBDB8:  .word $B000, $B057, $B0C1, $B12B

;Tourian music
LBDC0:  .byte $0B, $FF, $03, $00, $00
LBDC5:  .word $BE59, $BE47, $BE62, $0000

ItemRoomTriangleIndexData:
LBDCD:  .byte $C8                       ;
LBDCE:  .byte $B0                       ;3/32 seconds   +
LBDCF:  .byte $38                       ;E3             |
LBDD0:  .byte $3A                       ;F3             |
LBDD1:  .byte $3C                       ;F#3            |
LBDD2:  .byte $3E                       ;G3             |
LBDD3:  .byte $40                       ;Ab3            | Repeat 8 times
LBDD4:  .byte $3E                       ;G3             |
LBDD5:  .byte $3C                       ;F#3            |
LBDD6:  .byte $3A                       ;F3             |
LBDD7:  .byte $B6                       ;1 3/16 seconds |
LBDD8:  .byte $02                       ;no sound       +
LBDD9:  .byte $FF                       ;

ItemRoomSQ1IndexData:
LBDDA:  .byte $B8                       ;1/4 seconds
LBDDB:  .byte $02                       ;No sound

ItemRoomSQ2IndexData:
LBDDC:  .byte $B3                       ;3/4 seconds
LBDDD:  .byte $02                       ;No sound
LBDDE:  .byte $B2                       ;3/8 seconds
LBDDF:  .byte $74                       ;A#6
LBDE0:  .byte $02                       ;No sound
LBDE1:  .byte $6A                       ;F5
LBDE2:  .byte $02                       ;No sound
LBDE3:  .byte $72                       ;A6
LBDE4:  .byte $02                       ;No sound
LBDE5:  .byte $62                       ;C#5
LBDE6:  .byte $B4                       ;1 1/2 seconds
LBDE7:  .byte $02                       ;No sound
LBDE8:  .byte $B2                       ;3/8 seconds
LBDE9:  .byte $60                       ;C5
LBDEA:  .byte $02                       ;No sound
LBDEB:  .byte $6C                       ;F#5
LBDEC:  .byte $02                       ;No sound
LBDED:  .byte $76                       ;B6
LBDEE:  .byte $B3                       ;3/4 seconds
LBDEF:  .byte $02                       ;No sound
LBDF0:  .byte $B2                       ;3/8 seconds
LBDF1:  .byte $7E                       ;F6
LBDF2:  .byte $02                       ;No sound
LBDF3:  .byte $7C                       ;D6
LBDF4:  .byte $B3                       ;3/4 seconds
LBDF5:  .byte $02                       ;No sound
LBDF6:  .byte $00                       ;End item room music.

PowerUpSQ1IndexData:
LBDF7:  .byte $B3                       ;1/2 seconds
LBDF8:  .byte $48                       ;C4
LBDF9:  .byte $42                       ;A4
LBDFA:  .byte $B2                       ;1/4 seconds
LBDFB:  .byte $3E                       ;G3
LBDFC:  .byte $38                       ;E3
LBDFD:  .byte $30                       ;C3
LBDFE:  .byte $38                       ;E3
LBDFF:  .byte $4C                       ;D4
LBE00:  .byte $44                       ;A#4
LBE01:  .byte $3E                       ;G3
LBE02:  .byte $36                       ;D#3
LBE03:  .byte $C8                       ;
LBE04:  .byte $B0                       ;1/16 seconds   +
LBE05:  .byte $38                       ;E3             | Repeat 8 times
LBE06:  .byte $3C                       ;F#3            +
LBE07:  .byte $FF

PowerUpTriangleIndexData:
LBE08:  .byte $B4                       ;1 second
LBE09:  .byte $2C                       ;A#3
LBE0A:  .byte $2A                       ;A3
LBE0B:  .byte $1E                       ;D#2
LBE0C:  .byte $1C                       ;D2

PowerUpSQ2IndexData:
LBE0D:  .byte $B2                       ;1/4 seconds
LBE0E:  .byte $22                       ;F2
LBE0F:  .byte $2C                       ;A#3
LBE10:  .byte $30                       ;C3
LBE11:  .byte $34                       ;D3
LBE12:  .byte $38                       ;E3
LBE13:  .byte $30                       ;C3
LBE14:  .byte $26                       ;G2
LBE15:  .byte $30                       ;C3
LBE16:  .byte $3A                       ;F3
LBE17:  .byte $34                       ;D3
LBE18:  .byte $2C                       ;A#3
LBE19:  .byte $26                       ;G2
LBE1A:  .byte $B4                       ;1 second
LBE1B:  .byte $2A                       ;A3
LBE1C:  .byte $00                       ;End power up music.

FadeInSQ2IndexData:
LBE1D:  .byte $C4
LBE1E:  .byte $B0                       ;3/32 seconds   +
LBE1F:  .byte $3E                       ;G3             | Repeat 4 times
LBE20:  .byte $30                       ;C3             +
LBE21:  .byte $FF                       ;
LBE22:  .byte $C4                       ;
LBE23:  .byte $42                       ;A4             + Repeat 4 times
LBE24:  .byte $30                       ;C3             +
LBE25:  .byte $FF                       ;
LBE26:  .byte $C4                       ;
LBE27:  .byte $3A                       ;F3             + Repeat 4 times
LBE28:  .byte $2C                       ;A#3            +
LBE29:  .byte $FF                       ;
LBE2A:  .byte $C4                       ;
LBE2B:  .byte $38                       ;E3             + Repeat 4 times
LBE2C:  .byte $26                       ;G2             +
LBE2D:  .byte $FF                       ;
LBE2E:  .byte $C4                       ;
LBE2F:  .byte $34                       ;D3             + Repeat 4 times
LBE30:  .byte $20                       ;E2             +
LBE31:  .byte $FF                       ;
LBE32:  .byte $E0                       ;
LBE33:  .byte $34                       ;D3             + Repeat 32 times
LBE34:  .byte $24                       ;F#2            +
LBE35:  .byte $FF                       ;

FadeInTriangleIndexData:
LBE36:  .byte $B3                       ;3/4 seconds
LBE37:  .byte $36                       ;D#3
LBE38:  .byte $34                       ;D3
LBE39:  .byte $30                       ;C3
LBE3A:  .byte $2A                       ;A3
LBE3B:  .byte $B4                       ;1 1/2 seconds
LBE3C:  .byte $1C                       ;D2
LBE3D:  .byte $1C                       ;D2

FadeInSQ1IndexData:
LBE3E:  .byte $B3                       ;3/4 seconds
LBE3F:  .byte $34                       ;D3
LBE40:  .byte $3A                       ;F3
LBE41:  .byte $34                       ;D3
LBE42:  .byte $30                       ;C3
LBE43:  .byte $B4                       ;1 1/2 seconds
LBE44:  .byte $2A                       ;A3
LBE45:  .byte $2A                       ;A3
LBE46:  .byte $00                       ;End fade in music.

TourianSQ2IndexData:
LBE47:  .byte $B4                       ;1 1/2 seconds
LBE48:  .byte $12                       ;A2
LBE49:  .byte $B3                       ;3/4 seconds
LBE4A:  .byte $10                       ;Ab1
LBE4B:  .byte $18                       ;C2
LBE4C:  .byte $16                       ;B2
LBE4D:  .byte $0A                       ;F1
LBE4E:  .byte $B4                       ;1 1/2 seconds
LBE4F:  .byte $14                       ;A#2
LBE50:  .byte $12                       ;A2
LBE51:  .byte $B3                       ;3/4 seconds
LBE52:  .byte $10                       ;Ab1
LBE53:  .byte $06                       ;D1
LBE54:  .byte $0E                       ;G1
LBE55:  .byte $04                       ;C#1
LBE56:  .byte $B4                       ;1 1/2 seconds
LBE57:  .byte $0C                       ;F#1
LBE58:  .byte $00                       ;End Tourian music.

TourianSQ1IndexData:
LBE59:  .byte $E0                       ;
LBE5A:  .byte $B0                       ;3/32 seconds   +
LBE5B:  .byte $54                       ;F#4            |
LBE5C:  .byte $4E                       ;D#4            |
LBE5D:  .byte $48                       ;C4             | Repeat 32 times
LBE5E:  .byte $42                       ;A4             |
LBE5F:  .byte $48                       ;C4             |
LBE60:  .byte $4E                       ;D#4            +
LBE61:  .byte $FF                       ;

TourianTriangleIndexData:
LBE62:  .byte $E0                       ;
LBE63:  .byte $B3                       ;3/4 seconds    +
LBE64:  .byte $02                       ;No sound       |
LBE65:  .byte $B0                       ;3/32 seconds   |
LBE66:  .byte $3C                       ;F#3            |
LBE67:  .byte $40                       ;Ab3            |
LBE68:  .byte $44                       ;A#4            |
LBE69:  .byte $4A                       ;C#4            |
LBE6A:  .byte $4E                       ;D#4            |
LBE6B:  .byte $54                       ;F#4            |
LBE6C:  .byte $58                       ;Ab4            | Repeat 32 times
LBE6D:  .byte $5C                       ;A#5            |
LBE6E:  .byte $62                       ;C#5            |
LBE6F:  .byte $66                       ;D#5            |
LBE70:  .byte $6C                       ;F#5            |
LBE71:  .byte $70                       ;Ab5            |
LBE72:  .byte $74                       ;A#6            |
LBE73:  .byte $7A                       ;C#6            |
LBE74:  .byte $B3                       ;3/4 seconds    |
LBE75:  .byte $02                       ;No sound       +
LBE76:  .byte $FF

;The following table contains the musical notes used by the music player.  The first byte is
;the period high information(3 bits) and the second byte is the period low information(8 bits).
;The formula for figuring out the frequency is as follows: 1790000/16/(hhhllllllll + 1)

MusicNotesTbl:
LBE77:  .byte $07                       ;55.0Hz (A1)    Index #$00 (Not used)
LBE78:  .byte $F0                       ;

LBE79:  .byte $00                       ;No sound       Index #$02
LBE7A:  .byte $00                       ;

LBE7B:  .byte $06                       ;69.3Hz (C#2)   Index #$04
LBE7C:  .byte $4E                       ;

LBE7D:  .byte $05                       ;73.4Hz (D2)    Index #$06
LBE7E:  .byte $F3                       ;

LBE7F:  .byte $05                       ;82.4Hz (E2)    Index #$08
LBE80:  .byte $4D                       ;

LBE81:  .byte $05                       ;87.3Hz (F2)    Index #$0A
LBE82:  .byte $01                       ;

LBE83:  .byte $04                       ;92.5Hz (F#2)   Index #$0C
LBE84:  .byte $B9                       ;

LBE85:  .byte $04                       ;98.0Hz (G2)    Index #$0E
LBE86:  .byte $75                       ;

LBE87:  .byte $04                       ;103.8Hz (Ab2)  Index #$10
LBE88:  .byte $35                       ;

LBE89:  .byte $03                       ;110.0Hz (A2)   Index #$12
LBE8A:  .byte $F8                       ;

LBE8B:  .byte $03                       ;116.5Hz (A#2)  Index #$14
LBE8C:  .byte $BF                       ;

LBE8D:  .byte $03                       ;123.5Hz (B2)   Index #$16
LBE8E:  .byte $89                       ;

LBE8F:  .byte $03                       ;130.7Hz (C3)   Index #$18
LBE90:  .byte $57                       ;

LBE91:  .byte $03                       ;138.5Hz (C#3)  Index #$1A
LBE92:  .byte $27                       ;

LBE93:  .byte $02                       ;146.8Hz (D3)   Index #$1C
LBE94:  .byte $F9                       ;

LBE95:  .byte $02                       ;155.4Hz (D#3)  Index #$1E
LBE96:  .byte $CF                       ;

LBE97:  .byte $02                       ;164.8Hz (E3)   Index #$20
LBE98:  .byte $A6                       ;

LBE99:  .byte $02                       ;174.5Hz (F3)   Index #$22
LBE9A:  .byte $80                       ;

LBE9B:  .byte $02                       ;184.9Hz (F#3)  Index #$24
LBE9C:  .byte $5C                       ;

LBE9D:  .byte $02                       ;196.0Hz (G3)   Index #$26
LBE9E:  .byte $3A                       ;       
        
LBE9F:  .byte $02                       ;207.6Hz (Ab3)  Index #$28
LBEA0:  .byte $1A                       ;

LBEA1:  .byte $01                       ;219.8Hz (A3)   Index #$2A
LBEA2:  .byte $FC                       ;

LBEA3:  .byte $01                       ;233.1Hz (A#3)  Index #$2C
LBEA4:  .byte $DF                       ;

LBEA5:  .byte $01                       ;247.0Hz (B3)   Index #$2E
LBEA6:  .byte $C4                       ;

LBEA7:  .byte $01                       ;261.4Hz (C4)   Index #$30
LBEA8:  .byte $AB                       ;

LBEA9:  .byte $01                       ;276.9Hz (C#4)  Index #$32
LBEAA:  .byte $93                       ;

LBEAB:  .byte $01                       ;293.6Hz (D4)   Index #$34
LBEAC:  .byte $7C                       ;

LBEAD:  .byte $01                       ;310.8Hz (D#4)  Index #$36
LBEAE:  .byte $67                       ;

LBEAF:  .byte $01                       ;330.0Hz (E4)   Index #$38
LBEB0:  .byte $52                       ;

LBEB1:  .byte $01                       ;349.6Hz (F4)   Index #$3A
LBEB2:  .byte $3F                       ;

LBEB3:  .byte $01                       ;370.4Hz (F#4)  Index #$3C
LBEB4:  .byte $2D                       ;

LBEB5:  .byte $01                       ;392.5Hz (G4)   Index #$3E
LBEB6:  .byte $1C                       ;

LBEB7:  .byte $01                       ;415.9Hz (Ab4)  Index #$40
LBEB8:  .byte $0C                       ;

LBEB9:  .byte $00                       ;440.4Hz (A4)   Index #$42
LBEBA:  .byte $FD                       ;

LBEBB:  .byte $00                       ;468.1Hz (A#4)  Index #$44
LBEBC:  .byte $EE                       ;

LBEBD:  .byte $00                       ;495.0Hz (B4)   Index #$46
LBEBE:  .byte $E1                       ;

LBEBF:  .byte $00                       ;525.2Hz (C5)   Index #$48
LBEC0:  .byte $D4                       ;

LBEC1:  .byte $00                       ;556.6Hz (C#5)  Index #$4A
LBEC2:  .byte $C8                       ;

LBEC3:  .byte $00                       ;588.8Hz (D5)   Index #$4C
LBEC4:  .byte $BD                       ;

LBEC5:  .byte $00                       ;625.0Hz (D#5)  Index #$4E
LBEC6:  .byte $B2                       ;

LBEC7:  .byte $00                       ;662.0Hz (E5)   Index #$50
LBEC8:  .byte $A8                       ;

LBEC9:  .byte $00                       ;699.2Hz (F5)   Index #$52
LBECA:  .byte $9F                       ;

LBECB:  .byte $00                       ;740.9Hz (F#5)  Index #$54
LBECC:  .byte $96                       ;

LBECD:  .byte $00                       ;787.9Hz (G5)   Index #$56
LBECE:  .byte $8D                       ;

LBECF:  .byte $00                       ;834.9Hz (Ab5)  Index #$58
LBED0:  .byte $85                       ;

LBED1:  .byte $00                       ;880.9HZ (A5)   Index #$5A
LBED2:  .byte $7E                       ;

LBED3:  .byte $00                       ;940.1Hz (A#5)  Index #$5C
LBED4:  .byte $76                       ;

LBED5:  .byte $00                       ;990.0Hz (B5)   Index #$5E
LBED6:  .byte $70                       ;

LBED7:  .byte $00                       ;1055Hz (C6)    Index #$60
LBED8:  .byte $69                       ;

LBED9:  .byte $00                       ;1118Hz (C#6)   Index #$62
LBEDA:  .byte $63                       ;

LBEDB:  .byte $00                       ;1178Hz (D6)    Index #$64
LBEDC:  .byte $5E                       ;

LBEDD:  .byte $00                       ;1257Hz (D#6)   Index #$66
LBEDE:  .byte $58                       ;

LBEDF:  .byte $00                       ;1332Hz (E6)    Index #$68
LBEE0:  .byte $53                       ;

LBEE1:  .byte $00                       ;1398Hz (F6)    Index #$6A
LBEE2:  .byte $4F                       ;

LBEE3:  .byte $00                       ;1492Hz (F#6)   Index #$6C
LBEE4:  .byte $4A                       ;

LBEE5:  .byte $00                       ;1576Hz (G6)    Index #$6E
LBEE6:  .byte $46                       ;

LBEE7:  .byte $00                       ;1670Hz (Ab6)   Index #$70
LBEE8:  .byte $42                       ;

LBEE9:  .byte $00                       ;1776Hz (A6)    Index #$72
LBEEA:  .byte $3E                       ;

LBEEB:  .byte $00                       ;1896Hz (A#6)   Index #$74
LBEEC:  .byte $3A                       ;

LBEED:  .byte $00                       ;1998Hz (B6)    Index #$76
LBEEE:  .byte $37                       ;

LBEEF:  .byte $00                       ;2111Hz (C7)    Index #$78
LBEF0:  .byte $34                       ;

LBEF1:  .byte $00                       ;2238Hz (C#7)   Index #$7A
LBEF2:  .byte $31                       ;

LBEF3:  .byte $00                       ;2380Hz (D7)    Index #$7C
LBEF4:  .byte $2E                       ;

LBEF5:  .byte $00                       ;2796Hz (F7)    Index #$7E
LBEF6:  .byte $27                       ;

;The following tables are used to load the music frame count addresses ($0640 thru $0643). The
;larger the number, the longer the music will play a solid note.  The number represents how
;many frames the note will play.  There is a small discrepancy in time length because the
;Nintendo runs at 60 frames pers second and I am using 64 frames per second to make the
;numbers below divide more evenly.

;Used by power up music and Kraid area music.

NoteLengths0Tbl:
LBEF7:  .byte $04                       ;About    1/16 seconds ($B0)
LBEF8:  .byte $08                       ;About    1/8  seconds ($B1)
LBEF9:  .byte $10                       ;About    1/4  seconds ($B2)
LBEFA:  .byte $20                       ;About    1/2  seconds ($B3)
LBEFB:  .byte $40                       ;About 1       seconds ($B4)
LBEFC:  .byte $18                       ;About    3/8  seconds ($B5)
LBEFD:  .byte $30                       ;About    3/4  seconds ($B6)
LBEFE:  .byte $0C                       ;About    3/16 seconds ($B7)
LBEFF:  .byte $0B                       ;About   11/64 seconds ($B8)
LBF00:  .byte $05                       ;About    5/64 seconds ($B9)
LBF01:  .byte $02                       ;About    1/32 seconds ($BA)

;Used by item room, fade in, Brinstar music, Ridley area music, Mother brain music,
;escape music, Norfair music and Tourian music.

NoteLengths1Tbl:
LBF02:  .byte $06                       ;About    3/32 seconds ($B0)
LBF03:  .byte $0C                       ;About    3/16 seconds ($B1)
LBF04:  .byte $18                       ;About    3/8  seconds ($B2)
LBF05:  .byte $30                       ;About    3/4  seconds ($B3)
LBF06:  .byte $60                       ;About 1  1/2  seconds ($B4)
LBF07:  .byte $24                       ;About    9/16 seconds ($B5)
LBF08:  .byte $48                       ;About 1  3/16 seconds ($B6)
LBF09:  .byte $12                       ;About    9/32 seconds ($B7)
LBF0A:  .byte $10                       ;About    1/4  seconds ($B8)
LBF0B:  .byte $08                       ;About    1/8  seconds ($B9)
LBF0C:  .byte $03                       ;About    3/64 seconds ($BA)

;Used by intro and end game music.

NoteLengths2Tbl:
LBF0D:  .byte $10                       ;About    1/4  seconds ($B0)
LBF0E:  .byte $07                       ;About    7/64 seconds ($B1)
LBF0F:  .byte $0E                       ;About    7/32 seconds ($B2)
LBF10:  .byte $1C                       ;About    7/16 seconds ($B3)
LBF11:  .byte $38                       ;About    7/8  seconds ($B4)
LBF12:  .byte $70                       ;About 1 13/16 seconds ($B5)
LBF13:  .byte $2A                       ;About   21/32 seconds ($B6)
LBF14:  .byte $54                       ;About 1  5/16 seconds ($B7)
LBF15:  .byte $15                       ;About   21/64 seconds ($B8)
LBF16:  .byte $12                       ;About    9/32 seconds ($B9)
LBF17:  .byte $02                       ;About    1/32 seconds ($BA)
LBF18:  .byte $03                       ;About    3/64 seconds ($BB)

InitializeMusic:                                        
LBF19:  JSR CheckMusicFlags             ;($B3FC)Check to see if restarting current music.
LBF1C:  LDA CurrentSFXFlags             ;Load current SFX flags and store CurrentMusic address.
LBF1F:  STA CurrentMusic                ;
LBF22:  LDA MusicInitIndex              ;
LBF25:  TAY                             ;
LBF26:  LDA InitMusicIndexTbl,Y         ;($BBFA)Find index for music in InitMusicInitIndexTbl.
LBF29:  TAY                             ;
LBF2A:  LDX #$00                        ;

LBF2C:* LDA InitMusicTbl,Y              ;Base is $BD31.
LBF2F:  STA NoteLengthTblOffset,X       ;
LBF32:  INY                             ;The following loop repeats 13 times to-->
LBF33:  INX                             ;load the initial music addresses -->
LBF34:  TXA                             ;(registers $062B thru $0637).
LBF35:  CMP #$0D                        ;
LBF37:  BNE -                           ;

LBF39:  LDA #$01                        ;Resets addresses $0640 thru $0643 to #$01.-->
LBF3B:  STA SQ1MusicFrameCount          ;These addresses are used for counting the-->
LBF3E:  STA SQ2MusicFrameCount          ;number of frames music channels have been playing.
LBF41:  STA TriangleMusicFrameCount     ;
LBF44:  STA NoiseMusicFrameCount        ;
LBF47:  LDA #$00                        ;
LBF49:  STA SQ1MusicIndexIndex          ;
LBF4C:  STA SQ2MusicIndexIndex          ;Resets addresses $0638 thru $063B to #$00.-->
LBF4F:  STA TriangleMusicIndexIndex     ;These are the index to find sound channel data index.
LBF52:  STA NoiseMusicIndexIndex        ;
LBF55:  RTS                             ;

;Not used.
LBF56:  .byte $10, $07, $0E, $1C, $38, $70, $2A, $54, $15, $12, $02, $03, $20, $2C, $B4, $AD
LBF66:  .byte $4D, $06, $8D, $8D, $06, $AD, $5E, $06, $A8, $B9, $2A, $BC, $A8, $A2, $00, $B9
LBF76:  .byte $61, $BD, $9D, $2B, $06, $C8, $E8, $8A, $C9, $0D, $D0, $F3, $A9, $01, $8D, $40
LBF86:  .byte $06, $8D, $41, $06, $8D, $42, $06, $8D, $43, $06, $A9, $00, $8D, $38, $06, $8D
LBF96:  .byte $39, $06, $8D, $3A, $06, $8D, $3B, $06, $60, $FF, $00, $00, $00, $00, $00, $00
LBFA6:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00

;----------------------------------------------[ RESET ]--------------------------------------------

RESET:
LBFB0:  SEI                             ;Disables interrupt.
LBFB1:  CLD                             ;Sets processor to binary mode.
LBFB2:  LDX #$00                        ;
LBFB4:  STX PPUControl0                 ;Clear PPU control registers.
LBFB7:  STX PPUControl1                 ;
LBFBA:* LDA PPUStatus                   ;
LBFBD:  BPL -                           ;Wait for VBlank.
LBFBF:* LDA PPUStatus                   ;
LBFC2:  BPL -                           ;
LBFC4:  ORA #$FF                        ;
LBFC6:  STA MMC1Reg0                    ;Reset MMC1 chip.-->
LBFC9:  STA MMC1Reg1                    ;(MSB is set).
LBFCC:  STA MMC1Reg2                    ;
LBFCF:  STA MMC1Reg3                    ;
LBFD2:  JMP Startup                     ;($C01A)Does preliminry housekeeping.

;Not used.
LBFD5:  .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00
LBFE5:  .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
LBFF5:  .byte $00, $00, $00, $00, $00

;----------------------------------------[ Interrupt vectors ]--------------------------------------

LBFFA:  .word NMI                       ;($C0D9)NMI vector.
LBFFC:  .word RESET                     ;($FFB0)Reset vector.
LBFFE:  .word RESET                     ;($FFB0)IRQ vector.
metroid/disassembly/brinstar_page.txt · Last modified: 2015/06/07 12:14 by snarfblam