Skip to content
Permalink
master
Switch branches/tags

MetroidMMC3/dev.TxROM/code/Title.asm

Go to file
 
 
Cannot retrieve contributors at this time
4545 lines (4066 sloc) 236 KB
Raw Blame
; METROID Disassembly (c) 1986 NINTENDO
; Programmed by HAI YUKAMI, ZARU SOBAJIMA, GPZ SENGOKU, N.SHIOTANI, & M.HOUDAI
; Disassembled by Kent Hansen. Commented by Nick Mikstas.
; This version is organized and ported to use the MMC3.
; Title/Password/Ending (ROM Bank 0)
.org ROMBank_Switchable
.require "Defines.asm"
.require "GameEngineDeclarations.asm"
;-------------------------------[ Address Table ]-------------------------------
;The core GameEngine bank (bank 7) needs to be able to jmp to routines
;located in this bank. The addresses of these routines that are directly
;referenced by GameEngine are located at the beginning of this bank.
.word TitleMainRoutine
.word StarPalSwitch
.word DecSpriteYCoord
.word NMIScreenWrite
.word EndGamePalWrite
.word CopyMap
.word $0000
.word $0000
;-----------------------------------------[ Start of code ]------------------------------------------
;Code begins at ROMBank_Switchable+0x10
TitleMainRoutine:
lda TitleRoutine ;
cmp #$15 ;If intro routines not running, branch.
bcs ++ ;
lda Joy1Change ;
and #$10 ;if start has not been pressed, branch.
beq + ;
ldy #$00 ;
lda PPUCNT0ZP ;
and #$FC ;Set name table to name table 0.
sta PPUCNT0ZP ;
lda #$1B ;If start pressed, load START/CONTINUE screen.
sta TitleRoutine ;
bne ++ ;Branch always.
* jsr RemoveIntroSprites ;Remove sparkle and crosshair sprites from screen.
lda TitleRoutine ;
* jsr ChooseRoutine ;Jump to proper routine below.
L802A: .word InitializeAfterReset ;First routine after reset.
L802C: .word DrawIntroBackground ;Draws ground on intro screen.
L802E: .word FadeInDelay ;Sets up METROID fade in delay.
L8030: .word METROIDFadeIn ;Fade METROID onto screen.
L8032: .word LoadFlashTimer ;Load timer for METROID flash.
L8034: .word FlashEffect ;Makes METROID flash.
L8036: .word METROIDSparkle ;Top and bottom "sparkles" on METROID.
L8038: .word METROIDFadeOut ;Fades METROID off the screen.
L803A: .word Crosshairs ;Displays "crosshairs" effect on screen.
L803C: .word MoreCrosshairs ;Continue "crosshairs" effect.
L803E: .word IncTitleRoutine ;Increment TitleRoutine.
L8040: .word IncTitleRoutine ;Increment TitleRoutine.
L8042: .word ChangeIntroNameTable ;Change from name table 0 to name table 1.
L8044: .word MessageFadeIn ;Fade in intro sequence message.
L8046: .word MessageFadeOut ;Fade out intro sequence message.
L8048: .word DelayIntroReplay ;Set Delay time before intro sequence restarts.
L804A: .word ClearSpareMem ;clears some memory addresses not used by game.
L804C: .word PrepIntroRestart ;Prepare to restart intro routines.
L804E: .word TitleScreenOff ;Turn screen off.
L8050: .word TitleRoutineReturn ;Rts.
L8052: .word TitleRoutineReturn ;Rts.
L8054: .word StartContinueScreen ;Displays START/Continue screen.
L8056: .word ChooseStartContinue ;player chooses between START and CONTINUE.
L8058: .word LoadPasswordScreen ;Loads password entry screen.
L805A: .word EnterPassword ;User enters password.
L805C: .word DisplayPassword ;After game over, display password on screen.
L805E: .word WaitForSTART ;Wait for START when showing password.
L8060: .word StartContinueScreen ;Displays START/Continue screen.
L8062: .word GameOverTitle ;Displays "GAME OVER".
L8064: .word EndGame ;Show ending of the game.
L8066: .word SetTimer ;Set delay timer.
;----------------------------------------[ Intro routines ]------------------------------------------
ClearSpareMem:
L8068: lda #$00 ;
L806A: sta SpareMemCB ;Clears two memory addresses not used by the game.
L806C: sta SpareMemC9 ;
IncTitleRoutine:
L806E: inc TitleRoutine ;Increment to next title routine.
L8070: rts ;
InitializeAfterReset:
L8071: ldy #$02 ;Y=2.
L8073: sty SpareMemCF ;Not accessed by game.
L8075: sty SpareMemCC ;Not accessed by game.
L8077: dey ;Y=1.
L8078: sty SpareMemCE ;Not accessed by game.
L807A: sty SpareMemD1 ;Not accessed by game.
L807C: dey ;Y=0.
L807D: sty SpareMemD0 ;Not accessed by game.
L807F: sty SpareMemCD ;Not accessed by game.
L8081: sty SpareMemD3 ;Not accessed by game.
L8083: sty NARPASSWORD ;Set NARPASSWORD not active.
L8086: sty SpareMemCB ;Not accessed by game.
L8088: sty SpareMemC9 ;Not accessed by game.
L808A: lda #$02 ;A=2.
L808C: sta IntroMusicRestart ;Title rountines cycle twice before restart of music.
L8092: sty PalDataIndex ;Reset index to palette data.
L8094: sty ScreenFlashPalIndex ;Reset index into screen flash palette data.
L8096: sty IntroStarOffset ;Reset index into IntroStarPntr table.
L8098: sty FadeDataIndex ;Reset index into fade out palette data.
L809A: sty $00 ;
L809C: ldx #$60 ;Set $0000 to point to address $6000.
L809E:* stx $01 ;
L80A0: txa ;
L80A1: and #$03 ;
L80A3: asl ;
L80A4: tay ;The following loop Loads the -->
L80A5: sty $02 ;RAM with the following values: -->
L80A7: lda RamValueTbl, y ;$6000 thru $62FF = #$00.
L80AA: ldy #$00 ;$6300 thru $633F = #$C0.
L80AC:* sta ($00), y ;$6340 thru $63FF = #$C4.
L80AE: iny ;$6400 thru $66FF = #$00.
L80AF: beq + ;$6700 thru $673F = #$C0.
L80B1: cpy #$40 ;$6740 thru $67FF = #$C4.
L80B3: bne - ;
L80B5: ldy $02 ;
L80B7: lda RamValueTbl+1, y ;
L80BA: ldy #$40 ;
L80BC: bpl - ;
L80BE:* inx ;
L80BF: cpx #$68 ;
L80C1: bne --- ;
L80C3: inc TitleRoutine ;Draw intro background next.
L80C5: jmp LoadStarSprites ;Loads stars on intro screen.
;The following table is used by the code above for writing values to RAM.
RamValueTbl:
L80C8: .byte $00, $00, $00, $00, $00, $00, $C0, $C4
DrawIntroBackground:
L80D0: LDA #$10 ;Intro music flag.
nop
nop
L80D4: STA MultiSFXFlag ;Initiates intro music.
L80D7: JSR ScreenOff ;Turn screen off.
L80DA: JSR ClearNameTables ;Erase name table data.
L80DD: LDX #$F4 ;Lower address of PPU information.
L80DF: LDY #$82 ;Upper address of PPU information.
L80E1: JSR PreparePPUProcess_ ;Writes background of intro screen to name tables.
L80E4: LDA #$01 ;
L80E6: STA PalDataPending ;Prepare to load palette data.
L80E8: STA SpareMemC5 ;Not accessed by game.
L80EA: LDA PPUCNT0ZP ;
L80EC: AND #$FC ;Switch to name table 0
L80EE: STA PPUCNT0ZP ;
L80F0: INC TitleRoutine ;Next routine sets up METROID fade in delay.
L80F2: LDA #$00 ;
L80F4: STA SpareMemD7 ;Not accessed by game.
L80F6: JMP ScreenOn ;Turn screen on.
FadeInDelay:
L80F9: LDA PPUCNT0ZP ;
L80FB: AND #$FE ;Switch to name table 0 or 2.
L80FD: STA PPUCNT0ZP ;
L80FF: LDA #$08 ;Loads Timer3 with #$08. Delays Fade in routine.-->
L8101: STA Timer3 ;Delays fade in by 80 frames (1.3 seconds).
L8103: LSR ;
L8104: STA PalDataIndex ;Loads PalDataIndex with #$04
L8106: INC TitleRoutine ;Increment to next routine.
L8108: RTS ;
FlashEffect:
L8109: LDA FrameCount ;Every third frame, run change palette-->
L810B: AND #$03 ;Creates METROID flash effect.
L810D: BNE + ;
L810F: LDA PalDataIndex ;Uses only the first three palette-->
L8111: AND #$03 ;data sets in the flash routine.
L8113: STA PalDataIndex ;
L8115: JSR LoadPalData ;
L8118: LDA Timer3 ;If Timer 3 has not expired, branch-->
L811A: BNE + ;so routine will keep running.
L811C: LDA PalDataIndex ;
L811E: CMP #$04 ;Ensures the palette index is back at 0.
L8120: BNE + ;
L8122: INC TitleRoutine ;Increment to next routine.
L8124: JSR LoadSparkleData ; Loads data for next routine.
L8127: LDA #$18 ;Sets Timer 3 for a delay of 240 frames-->
L8129: STA Timer3 ;(4 seconds).
L812B:* RTS ;
METROIDFadeIn:
L812C: LDA Timer3 ;
L812E: BNE + ;
L8130: LDA FrameCount ;Every 16th FrameCount, Change palette.-->
L8132: AND #$0F ;Causes the fade in effect.
L8134: BNE + ;
L8136: JSR LoadPalData ;Load data into Palettes.
L8139: BNE + ;
L813B: LDA #$20 ;Set timer delay for METROID flash effect.-->
L813D: STA Timer3 ;Delays flash by 320 frames (5.3 seconds).
L813F: INC TitleRoutine ;
L8141:* RTS ;
LoadFlashTimer:
L8142: LDA Timer3 ;If 320 frames have not passed, exit
L8144: BNE - ;
L8146: LDA #$08 ;
L8148: STA Timer3 ;Stores a value of 80 frames in Timer3-->
L814A: INC TitleRoutine ;(1.3 seconds).
L814C: RTS ;
METROIDSparkle:
L814D: LDA Timer3 ;Wait until 3 seconds have passed since-->
L814F: BNE ++ ;last routine before continuing.
L8151: LDA IntroSpr0Complete ;Check if sparkle sprites are done moving.
L8154: AND IntroSpr1Complete ;
L8157: CMP #$01 ;Is sparkle routine finished? If so,-->
L8159: BNE + ;go to next title routine, else continue-->
L815B: INC TitleRoutine ;with sparkle routine.
L815D: BNE ++ ;
L815F:* JSR UpdateSparkleSprites ;Update sparkle sprites on the screen.
L8162:* RTS ;
METROIDFadeOut:
L8163: LDA FrameCount ;Wait until the frame count is a multiple-->
L8165: AND #$07 ;of eight before proceeding.
L8167: BNE ++ ;
L8169: LDA FadeDataIndex ;If FadeDataIndex is less than #$04, keep-->
L816B: CMP #$04 ;doing the palette changing routine.
L816D: BNE + ;
L816F: JSR LoadInitialSpriteData ;Load initial sprite values for crosshair routine.
L8172: LDA #$08 ;
L8174: STA Timer3 ;Load Timer3 with a delay of 80 frames(1.3 seconds).
L8176: STA First4SlowCntr ;Set counter for slow sprite movement for 8 frames,
L8178: LDA #$00 ;
L817A: STA SecondCrosshairSprites ;Set SecondCrosshairSprites = #$00
L817C: INC TitleRoutine ;Move to next routine
L817E:* JSR DoFadeOut ;Fades METROID off the screen.
L8181:* RTS ;
Crosshairs:
L8182: LDA FlashScreen ;Is it time to flash the screen white?-->
L8184: BEQ + ;If not, branch.
L8186: JSR FlashIntroScreen ;Flash screen white.
L8189:* LDA Timer3 ;Wait 80 frames from last routine-->
L818B: BNE ++++ ;before running this one.
L818D: LDA IntroSpr0Complete ;
L8190: AND IntroSpr1Complete ;Check if first 4 sprites have completed-->
L8193: AND IntroSpr2Complete ;their movements. If not, branch.
L8196: AND IntroSpr3Complete ;
L8199: BEQ ++ ;
L819B: LDA #$01 ;Prepare to flash screen and draw cross.
L819D: CMP SecondCrosshairSprites ;Branch if second crosshair sprites are already-->
L819F: BEQ + ;active.
L81A1: INC SecondCrosshairSprites ;Indicates second crosshair sprites are active.
L81A3: STA DrawCross ;Draw cross animation on screen.
L81A5: STA FlashScreen ;Flash screen white.
L81A7: LDA #$00 ;
L81A9: STA CrossDataIndex ;Reset index to cross sprite data.
L81AB:* AND IntroSpr4Complete ;
L81AE: AND IntroSpr5Complete ;Check if second 4 sprites have completed-->
L81AF: AND IntroSpr6Complete ;their movements. If not, branch.
L81B4: AND IntroSpr7Complete ;
L81B7: BEQ + ;
L81B9: LDA #$01 ;Prepare to flash screen and draw cross.
L81BB: STA DrawCross ;Draw cross animation on screen.
L81BD: STA FlashScreen ;Flash screen white.
L81BF: JSR LoadStarSprites ;Loads stars on intro screen.
L81C2: LDA #$00 ;
L81C4: STA CrossDataIndex ;Reset index to cross sprite data.
L81C6: INC TitleRoutine ;Do MoreCrosshairs next frame.
L81C8: BNE ++ ;Branch always.
L81CA:* JSR DrawCrosshairsSprites ;Draw sprites that converge in center of screen.
L81CD:* JSR DrawCrossSprites ;Draw cross sprites in middle of the screen.
L81D0:* RTS ;
MoreCrosshairs:
L81D1: LDA FlashScreen ;Is it time to flash the screen white?-->
L81D3: BEQ + ;If not, branch.
L81D5: JSR DrawCrossSprites ;Draw cross sprites in middle of the screen.
L81D8: JMP FlashIntroScreen ;Flash screen white.
L81DB:* INC TitleRoutine ;ChangeIntroNameTable is next routine to run.
L81DD: LDA #$60 ;
L81DF: STA ObjectY ;
L81E2: LDA #$7C ;These values are written into memory, but they are-->
L81E4: STA ObjectX ;not used later in the title routine. This is the-->
L81E7: LDA AnimResetIndex ;remnants of some abandoned code.
L81EA: STA AnimIndex ;
L81ED: RTS ;
ChangeIntroNameTable:
L822E: LDA PPUCNT0ZP ;
L8230: ORA #$01 ;Change to name table 1.
L8232: STA PPUCNT0ZP ;
L8234: INC TitleRoutine ;Next routine to run is MessageFadeIn.
L8236: LDA #$08 ;
L8238: STA Timer3 ;Set Timer3 for 80 frames(1.33 seconds).
L823A: LDA #$06 ;Index to FadeInPalData.
L823C: STA FadeDataIndex ;
L823E: LDA #$00 ;
L8240: STA SpareMemC9 ;Not accessed by game.
L8242: RTS ;
MessageFadeIn:
L8243: LDA Timer3 ;Check if delay timer has expired. If not, branch-->
L8245: BNE ++ ;to exit, else run this rouine.
L8247: LDA FrameCount ;
L8249: AND #$07 ;Perform next step of fade every 8th frame.
L824B: BNE ++ ;
L824D: LDA FadeDataIndex ;
L824F: CMP #$0B ;Has end of fade in palette data been reached?-->
L8251: BNE + ;If not, branch.
L8253: LDA #$00 ;
L8255: STA FadeDataIndex ;Clear FadeDataIndex.
L8257: LDA #$30 ;
L8259: STA Timer3 ;Set Timer3 to 480 frames(8 seconds).
L825B: INC TitleRoutine ;Next routine is MessageFadeOut.
L825D: BNE ++ ;Branch always.
L825F:* JSR DoFadeOut ;Fade message onto screen.
L8262:* RTS ;
MessageFadeOut:
L8263: LDA Timer3 ;Check if delay timer has expired. If not, branch-->
L8265: BNE ++ ;to exit, else run this rouine.
L8267: LDA FrameCount ;
L8269: AND #$07 ;Perform next step of fade every 8th frame.
L826B: BNE ++ ;
L826D: LDA FadeDataIndex ;
L826F: CMP #$05 ;Has end of fade out palette data been reached?-->
L8271: BNE + ;If not, branch.
L8273: LDA #$06 ;
L8275: STA FadeDataIndex ;Set index to start of fade in data.
L8277: LDA #$00 ;
L8279: STA SpareMemCB ;Not accessed by game.
L827B: INC TitleRoutine ;Next routine is DelayIntroReplay.
L827D: BNE ++ ;Branch always.
L827F:* JSR DoFadeOut ;Fade message off of screen.
L8282:* RTS ;
DelayIntroReplay:
L8283: INC TitleRoutine ;Increment to next routine.
L8285: LDA #$10 ;
L8287: STA Timer3 ;Set Timer3 for a delay of 160 frames(2.6 seconds).
L8289: RTS ;
.advance $82A3, $00
PrepIntroRestart:
L82A3: LDA Timer3 ;Check if delay timer has expired. If not, branch-->
L82A5: BNE ++ ;to exit, else run this rouine.
L82A7: STA SpareMemD2 ;Not accessed by game.
L82A9: STA SpareMemBB ;Not accessed by game.
L82AB: STA IsSamus ;Clear IsSamus memory address.
L82AD: LDY #$1F ;
L82AF:* STA ObjAction,Y ;
L82B2: DEY ;Clear RAM $0300 thru $031F.
L82B3: BPL - ;
L82B5: LDA PPUCNT0ZP ;Change to name table 0.
L82B7: AND #$FC ;
L82B9: STA PPUCNT0ZP ;
L82BB: INY ;Y=0
nop
nop
nop
nop
L82C0: STY PalDataIndex ;
L82C2: STY ScreenFlashPalIndex ;Clear all index values from these addresses.
L82C4: STY IntroStarOffset ;
L82C6: STY FadeDataIndex ;
L82C8: STY SpareMemCD ;Not accessed by game.
L82CA: STY Joy1Change ;
L82CC: STY Joy1Status ;Clear addresses that were going to be written to by an-->
L82CE: STY Joy1Retrig ;unused intro routine.
L82D0: STY SpareMemD7 ;Not accessed by game.
L82D2: INY ;Y=1.
L82D3: STY SpareMemCE ;Not accessed by game.
L82D5: INY ;Y=2.
L82D6: STY SpareMemCC ;Not accessed by game.
L82D8: STY SpareMemCF ;Not accessed by game.
L82DA: STY TitleRoutine ;Next routine sets up METROID fade in delay.
L82DC: LDA IntroMusicRestart ;Check to see if intro music needs to be restarted.-->
L82DE: BNE ++ ;Branch if not.
L82E0: LDA #$10 ;
L82E2: STA MultiSFXFlag ;Restart intro music.
L82E5: LDA #$02 ;Set restart of intro music after another two cycles-->
L82E7: STA IntroMusicRestart ;of the title routines.
L82E9:* RTS ;
L82EA:* DEC IntroMusicRestart ;One title routine cycle complete. Decrement intro-->
L82EC: RTS ;music restart counter.
TitleScreenOff:
L82ED: JSR ScreenOff ;Turn screen off.
L82F0: INC TitleRoutine ;Next routine is TitleRoutineReturn.
L82F2: RTS ;This routine should not be reached.
TitleRoutineReturn:
L82F3: RTS ;Last title routine function. Should not be reached.
;The following data fills name table 0 with the intro screen background graphics.
;Information to be stored in attribute table 0.
L82F4: .byte $23 ;PPU address high byte.
L82F5: .byte $C0 ;PPU address low byte.
L82F6: .byte $20 ;PPU string length.
L82F7: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
L8307: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
L8317: .byte $23 ;PPU address high byte.
L8318: .byte $E0 ;PPU address low byte.
L8319: .byte $20 ;PPU string length.
L831A: .byte $FF, $FF, $BF, $AF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00
L832A: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
;Writes row $22E0 (24th row from top).
L833A: .byte $22 ;PPU address high byte.
L833B: .byte $E0 ;PPU address low byte.
L833C: .byte $20 ;PPU string length.
L833D: .byte $FF, $FF, $FF, $FF, $FF, $8C, $FF, $FF, $FF, $FF, $FF, $8D, $FF, $FF, $8E, $FF
L834D: .byte $FF, $FF, $FF, $FF, $FF, $8C, $FF, $FF, $FF, $FF, $FF, $8D, $FF, $FF, $8E, $FF
;Writes row $2300 (25th row from top).
L835D: .byte $23 ;PPU address high byte.
L835E: .byte $00 ;PPU address low byte.
L835F: .byte $20 ;PPU string length.
L8360: .byte $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81
L8370: .byte $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81
;Writes row $2320 (26th row from top).
L8380: .byte $23 ;PPU address high byte.
L8381: .byte $20 ;PPU address low byte.
L8382: .byte $20 ;PPU string length.
L8383: .byte $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83
L8393: .byte $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83
;Writes row $2340 (27th row from top).
L83A3: .byte $23 ;PPU address high byte.
L83A4: .byte $40 ;PPU address low byte.
L83A5: .byte $20 ;PPU string length.
L83A6: .byte $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85
L83B6: .byte $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85
;Writes row $2360 (28th row from top).
L83C6: .byte $23 ;PPU address high byte.
L83C7: .byte $60 ;PPU address low byte.
L83C8: .byte $20 ;PPU string length.
L83C9: .byte $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87
L83D9: .byte $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87
;Writes row $2380 (29th row from top).
L83E9: .byte $23 ;PPU address high byte.
L83EA: .byte $80 ;PPU address low byte.
L83EB: .byte $20 ;PPU string length.
L83EC: .byte $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89
L83FC: .byte $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89
;Writes row $23A0 (Bottom row).
L840C: .byte $23 ;PPU address high byte.
L840D: .byte $A0 ;PPU address low byte.
L840E: .byte $20 ;PPU string length.
L840F: .byte $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B
L841F: .byte $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B
;Writes some blank spaces in row $20A0 (6th row from top).
L842F: .byte $20 ;PPU address high byte.
L8430: .byte $A8 ;PPU address low byte.
L8431: .byte $4F ;PPU string length.
L8432: .byte $FF ;Since RLE bit set, repeat 16 blanks starting at $20A8.
;Writes METROID graphics in row $2100 (9th row from top).
L8433: .byte $21 ;PPU address high byte.
L8434: .byte $03 ;PPU address low byte.
L8435: .byte $1C ;PPU string length.
L8436: .byte $40, $5D, $56, $5D, $43, $40, $5D, $43, $40, $5D, $5D, $43, $40, $5D, $5D, $63
L8446: .byte $62, $5D, $5D, $63, $40, $43, $40, $5D, $5D, $63, $1D, $16
;Writes METROID graphics in row $2120 (10th row from top).
L8452: .byte $21 ;PPU address high byte.
L8453: .byte $23 ;PPU address low byte.
L8454: .byte $1A ;PPU string length.
L8455: .byte $44, $50, $50, $50, $47, $44, $57, $58, $74, $75, $76, $77, $44, $57, $69, $47
L8465: .byte $44, $57, $69, $47, $44, $47, $44, $68, $69, $47
;Writes METROID graphics in row $2140 (11th row from top).
L846F: .byte $21 ;PPU address high byte.
L8470: .byte $43 ;PPU address low byte.
L8471: .byte $1A ;PPU string length.
L8472: .byte $44, $41, $7E, $49, $47, $44, $59, $5A, $78, $79, $7A, $7B, $44, $59, $6D, $70
L8482: .byte $44, $73, $72, $47, $44, $47, $44, $73, $72, $47
;Writes METROID graphics in row $2160 (12th row from top).
L848C: .byte $21 ;PPU address high byte.
L848D: .byte $63 ;PPU address low byte.
L848E: .byte $1A ;PPU string length.
L848F: .byte $44, $42, $7F, $4A, $47, $44, $5B, $5C, $FF, $44, $47, $FF, $44, $5B, $6F, $71
L849F: .byte $44, $45, $46, $47, $44, $47, $44, $45, $46, $47
;Writes METROID graphics in row $2180 (13th row from top).
L84A9: .byte $21 ;PPU address high byte.
L84AA: .byte $83 ;PPU address low byte.
L84AB: .byte $1A ;PPU string length.
L84AC: .byte $44, $47, $FF, $44, $47, $44, $5F, $60, $FF, $44, $47, $FF, $44, $7D, $7C, $47
L84BC: .byte $44, $6A, $6B, $47, $44, $47, $44, $6A, $6B, $47
;Writes METROID graphics in row $21A0 (14th row from top).
L84C6: .byte $21 ;PPU address high byte.
L84C7: .byte $A3 ;PPU address low byte.
L84C8: .byte $1A ;PPU string length.
L84C9: .byte $4C, $4F, $FF, $4C, $4F, $4C, $5E, $4F, $FF, $4C, $4F, $FF, $4C, $4D, $4E, $4F
L84D9: .byte $66, $5E, $5E, $64, $4C, $4F, $4C, $5E, $5E, $64
;Writes METROID graphics in row $21C0 (15th row from top).
L84E3: .byte $21 ;PPU address high byte.
L84E4: .byte $C3 ;PPU address low byte.
L84E5: .byte $1A ;PPU string length.
L84E6: .byte $51, $52, $FF, $51, $52, $51, $61, $52, $FF, $51, $52, $FF, $51, $53, $54, $52
L84F6: .byte $67, $61, $61, $65, $51, $52, $51, $61, $61, $65
;Writes PUSH START BUTTON in row $2220 (18th row from top).
L8500: .byte $22 ;PPU address high byte.
L8501: .byte $27 ;PPU address low byte.
L8502: .byte $15 ;PPU string length.
; '_ P U S H _ S T A R T _ B U T T
L8503: .byte $FF, $19, $1E, $1C, $11, $FF, $1C, $1D, $0A, $1B, $1D, $FF, $0B, $1E, $1D, $1D
; O N _ _ _'
L8513: .byte $18, $17, $FF, $FF, $FF
;Writes C 1986 NINTENDO in row $2260 (20th row from top).
L8518: .byte $22 ;PPU memory high byte.
L8519: .byte $69 ;PPU memory low byte.
L851A: .byte $12 ;PPU string length.
; 'C _ 1 9 8 6 _ N I N T E N D O _
L851B: .byte $8F, $FF, $01, $09, $08, $06, $FF, $17, $12, $17, $1D, $0E, $17, $0D, $18, $FF
; _ _'
L852B: .byte $FF, $FF
;The following data fills name table 1 with the intro screen background graphics.
;Information to be stored in attribute table 1.
L852D: .byte $27 ;PPU memory high byte.
L852E: .byte $C0 ;PPU memory low byte.
L852F: .byte $20 ;PPU string length.
L8530: .byte $00, $00, $00, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
L8540: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
;Writes row $27E0 (24th row from top).
L8550: .byte $27 ;PPU memory high byte.
L8551: .byte $E0 ;PPU memory low byte.
L8552: .byte $20 ;PPU string length.
L8553: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00
L8563: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
;Writes row $26E0 (24th row from top).
L8573: .byte $26 ;PPU memory high byte.
L8574: .byte $E0 ;PPU memory low byte.
L8575: .byte $20 ;PPU string length.
L8576: .byte $FF, $FF, $FF, $FF, $FF, $8C, $FF, $FF, $FF, $FF, $FF, $8D, $FF, $FF, $8E, $FF
L8586: .byte $FF, $FF, $FF, $FF, $FF, $8C, $FF, $FF, $FF, $FF, $FF, $8D, $FF, $FF, $8E, $FF
;Writes row $2700 (25th row from top).
L8595: .byte $27 ;PPU memory high byte.
L8597: .byte $00 ;PPU memory low byte.
L8598: .byte $20 ;PPU string length.
L8599: .byte $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81
L85A9: .byte $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81, $80, $81
;Writes row $2720 (26th row from top).
L85B9: .byte $27 ;PPU memory high byte.
L85BA: .byte $20 ;PPU memory low byte.
L85BB: .byte $20 ;PPU string length.
L85BC: .byte $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83
L85CC: .byte $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83, $82, $83
;Writes row $2740 (27th row from top).
L85DC: .byte $27 ;PPU memory high byte.
L85DD: .byte $40 ;PPU memory low byte.
L85DE: .byte $20 ;PPU string length.
L85DF: .byte $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85
L85EF: .byte $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85, $84, $85
;Writes row $2760 (28th row from top).
L85FF: .byte $27 ;PPU memory high byte.
L8600: .byte $60 ;PPU memory low byte.
L8601: .byte $20 ;PPU string length.
L8602: .byte $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87
L8612: .byte $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87, $86, $87
;Writes row $2780 (29th row from top).
L8622: .byte $27 ;PPU memory high byte.
L8623: .byte $80 ;PPU memory low byte.
L8624: .byte $20 ;PPU string length.
L8625: .byte $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89
L8635: .byte $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89, $88, $89
;Writes row $27A0 (bottom row).
L8645: .byte $27 ;PPU memory high byte.
L8646: .byte $A0 ;PPU memory low byte.
L8647: .byte $20 ;PPU string length.
L8648: .byte $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B
L8658: .byte $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B, $8A, $8B
;Writes row $2480 (5th row from top).
L8668: .byte $24 ;PPU memory high byte.
L8669: .byte $88 ;PPU memory low byte.
L866A: .byte $0F ;PPU string length.
; 'E M E R G E N C Y _ O R D E R'
L866B: .byte $0E, $16, $0E, $1B, $10, $0E, $17, $0C, $22, $FF, $18, $1B, $0D, $0E, $1B
;Writes row $2500 (9th row from top).
L867A: .byte $25 ;PPU memory high byte.
L867B: .byte $04 ;PPU memory low byte.
L867C: .byte $1C ;PPU string length.
; 'D E F E A T _ T H E _ M E T R 0
L867D: .byte $0D, $0E, $0F, $0E, $0A, $1D, $FF, $1D, $11, $0E, $FF, $16, $0E, $1D, $1B, $18
; I D _ O F _ _ _ _ _ _ _'
L868D: .byte $12, $0D, $FF, $18, $0F, $FF, $FF, $FF, $FF, $FF, $FF, $FF
;Writes row $2540 (11th row from top).
L8699: .byte $25 ;PPU memory high byte.
L869A: .byte $44 ;PPU memory low byte.
L869B: .byte $1A ;PPU string length.
; 'T H E _ P L A N E T _ Z E B E T
L869C: .byte $1D, $11, $0E, $FF, $19, $15, $0A, $17, $0E, $1D, $FF, $23, $0E, $0B, $0E, $1D
; H _ A N D _ _ _ _ _'
L86AC: .byte $11, $FF, $0A, $17, $0D, $FF, $FF, $FF, $FF, $FF
;Writes row $2580 (13th row from top).
L86B6: .byte $25 ;PPU memory high byte.
L86B7: .byte $84 ;PPU memory low byte.
L86B8: .byte $1A ;PPU string length.
; 'D E S T R O Y _ T H E _ M O T H
L86B9: .byte $0D, $0E, $1C, $1D, $1B, $18, $22, $FF, $1D, $11, $0E, $FF, $16, $18, $1D, $11
; E R _ B R A I N _ _'
L86C9: .byte $0E, $1B, $FF, $0B, $1B, $0A, $12, $17, $FF, $FF
;Writes row $25C0 (15th row from top).
L86D3: .byte $25 ;PPU memory high byte.
L86D4: .byte $C4 ;PPU memory low byte.
L86D5: .byte $1A ;PPU string length.
; 'T H E _ M E C H A N I C A L _ L
L86D6: .byte $1D, $11, $0E, $FF, $16, $0E, $0C, $11, $0A, $17, $12, $0C, $0A, $15, $FF, $15
; I F E _ V E I N _ _'
L86E9: .byte $12, $0F, $0E, $FF, $1F, $0E, $12, $17, $FF, $FF
;Writes row $2620 (18th row from top).
L86F0: .byte $26 ;PPU memory high byte.
L86F1: .byte $27 ;PPU memory low byte.
L86F2: .byte $15 ;PPU string length.
; 'G A L A X Y _ F E D E R A L _ P
L86F3: .byte $10, $0A, $15, $0A, $21, $22, $FF, $0F, $0E, $0D, $0E, $1B, $0A, $15, $FF, $19
; O L I C E'
L8703: .byte $18, $15, $12, $0C, $0E
;Writes row $2660 (20th row from top).
L8708: .byte $26 ;PPU memory high byte.
L8709: .byte $69 ;PPU memory low byte.
L870A: .byte $12 ;PPU string length.
; '_ _ _ _ _ _ _ _ _ _ _ _ _ _ M 5
L870B: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $16, $05
; 1 0'
L871B: .byte $01, $00
L871D: .byte $00 ;End PPU string write.
;The following data does not appear to be used.
L871E: .byte $46, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
L872E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $20, $00, $00, $00, $00, $00, $00
L873E: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
L874E: .byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
;The following error message is diplayed if the player enters an incorrect password.
; 'E R R O R _ T R Y _ A G A I N'
L8759: .byte $0E, $1B, $1B, $18, $1B, $FF, $1D, $1B, $22, $FF, $0A, $10, $0A, $12, $17
;If the error message above is not being displayed on the password
;screen, the following fifteen blanks spaces are used to cover it up.
; '_ _ _ _ _ _ _ _ _ _ _ _ _ _ _'
L8768: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
;Not used.
L8777: .byte $79, $87, $00, $00, $00, $00, $00, $00, $01, $00, $00, $00, $00, $00, $02, $00
L8787: .byte $00, $03, $00, $00, $00, $00, $00, $00, $01, $00, $00, $00, $00, $00, $02, $00
L8797: .byte $00, $03, $A1, $87, $A2, $87, $A5, $87, $A8, $87, $00, $18, $CC, $00, $18, $CD
L87A7: .byte $00, $18, $CE, $00
LoadSparkleData:
L87AB: LDX #$0A ;
L87AD:* LDA InitSparkleDataTbl,X ;
L87B0: STA IntroSpr0YCoord,X ;Loads $6EA0 thru $6EAA with the table below.
L87B3: STA IntroSpr1YCoord,X ;Loads $6EB0 thru $6EBA with the table below.
L87B6: DEX ;
L87B7: BPL - ;Loop until all values from table below are loaded.
L87B9: LDA #$6B ;
L87BB: STA IntroSpr1YCoord ;$6EA0 thru $6EAA = #$3C, #$C6, #$01, #$18, #$00,-->
L87BE: LDA #$DC ;#$00, #$00, #$00, #$20, #$00, #$00, initial.
L87C0: STA IntroSpr1XCoord ;$6EB0 thru $6EBA = #$6B, #$C6, #$01, #$DC, #$00,-->
L87C3: RTS ;#$00, #$00, #$00, #$20, #$00, #$00, initial.
;Used by above routine to load Metroid initial sparkle data into $6EA0
;thru $6EAA and $6EB0 thru $6EBA.
InitSparkleDataTbl:
L87C4: .byte $3C, $C6, $01, $18, $00, $00, $00, $00, $20, $00, $00
UpdateSparkleSprites:
L87CF: LDX #$00 ;
L87D1: JSR DoOneSparkleUpdate ;Performs calculations on top sparkle sprite.
L87D4: LDX #$10 ;Performs calculations on bottom sparkle sprite.
DoOneSparkleUpdate:
L87D6: JSR SparkleUpdate ;Update sparkle sprite data.
SparkleUpdate:
L87D9: LDA IntroSpr0NextCntr,X ;If $6EA5 has not reached #$00, skip next routine.
L87DC: BNE + ;
L87DE: JSR DoSparkleSpriteCoord ;Update sparkle sprite screen position.
L87E1:* LDA IntroSpr0Complete,X ;
L87E4: BNE ++ ;If sprite is already done, skip routine.
L87E6: DEC IntroSpr0NextCntr,X ;
L87E9: LDA SparkleSpr0YChange,X ;
L87EC: CLC ;
L87ED: ADC IntroSpr0YCoord,X ;Updates sparkle sprite Y coord.
L87F0: STA IntroSpr0YCoord,X ;
L87F3: LDA SparkleSpr0XChange,X ;
L87F6: CLC ;
L87F7: ADC IntroSpr0XCoord,X ;Updates sparkle sprite X coord.
L87FA: STA IntroSpr0XCoord,X ;
L87FD: DEC IntroSpr0ChngCntr,X ;Decrement IntroSpr0ChngCntr. If 0, time to change-->
L8800: BNE + ;sprite graphic.
L8802: LDA IntroSpr0PattTbl,X ;
L8805: EOR #$03 ;If IntroSpr0ChngCntr=$00, the sparkle sprite graphic is-->
L8807: STA IntroSpr0PattTbl,X ;changed back and forth between pattern table-->
L880A: LDA #$20 ;graphic $C6 and $C7. IntroSpr0ChngCntr is reset to #$20.
L880C: STA IntroSpr0ChngCntr,X ;
L880F: ASL ;
L8810: EOR IntroSpr0Cntrl,X ;Flips pattern at $C5 in pattern table-->
L8813: STA IntroSpr0Cntrl,X ;horizontally when displayed.
L8816:* JMP WriteIntroSprite ;Transfer sprite info into sprite RAM.
L8819:* RTS ;
DoSparkleSpriteCoord:
L881A: TXA ;
L881B: JSR Adiv8 ;Y=0 when addressing top sparkle sprite,
L881E: TAY ;and Y=2 when addressing bottom sparkle
L881F: LDA SparkleAddressTbl,Y ;sprite. The addresses are at
L8822: STA $00 ;SparkleAddressTbl.
L8824: LDA SparkleAddressTbl+1,Y ;
L8827: STA $01 ;
L8829: LDY IntroSpr0Index,X ;Loads index for finding sparkle data (x=$00 or $10).
L882C: LDA ($00),Y ;
L882E: BPL + ;If data byte MSB is set, set $6EA9 to #$01 and move to-->
L8830: LDA #$01 ;next index for sparkle sprite data.
L8832: STA IntroSpr0ByteType,X ;
L8835:* BNE + ;
L8837: LDA #$01 ;If value is equal to zero, sparkle sprite-->
L8839: STA IntroSpr0Complete,X ;processing is complete.
L883C:* STA IntroSpr0NextCntr,X ;
L883F: INY ;
L8840: LDA ($00),y ;Get x/y position byte.
L8842: DEC IntroSpr0ByteType,X ;If MSB of second byte is set, branch.
L8845: BMI + ;
L8847: LDA #$00 ;This code is run when the MSB of the first byte-->
L8849: STA SparkleSpr0YChange,X ;is set. This allows the sprite to change X coord-->
L884C: LDA ($00),Y ;by more than 7. Ensures Y coord does not change.
L884E: BMI ++ ;
L8850:* PHA ;Store value twice so X and Y-->
L8851: PHA ;coordinates can be extracted.
L8852: LDA #$00 ;
L8854: STA IntroSpr0ByteType,X ;Set IntroSpr0ByteType to #$00 after processing.
L8857: PLA ;
L8858: JSR Adiv16 ;Move upper 4 bits to lower 4 bits.
L885B: JSR NibbleSubtract ;Check if nibble to be converted to twos compliment.
L885E: STA SparkleSpr0YChange,X ;Twos compliment stored if Y coord decreasing.
L8861: PLA ;
L8862: AND #$0F ;Discard upper 4 bits.
L8864: JSR NibbleSubtract ;Check if nibble to be converted to twos compliment.
L8867:* STA SparkleSpr0XChange,X ;Store amount to move spite in x direction.
L886A: INC IntroSpr0Index,X ;
L886D: INC IntroSpr0Index,X ;Add two to find index for next data byte.
L8870: RTS ;
NibbleSubtract:
L8871: CMP #$08 ;If bit 3 is set, nibble is a negative number-->
L8873: BCC + ;and lower three bits are converted to twos-->
L8875: AND #$07 ;compliment for subtraction, else exit.
L8877: JSR TwosCompliment ;Prepare for subtraction with twos compliment.
L887A:* RTS ;
WriteIntroSprite:
L887B: LDA IntroSpr0YCoord,X ;
L887E: SEC ;Subtract #$01 from first byte to get proper y coordinate.
L887F: SBC #$01 ;
L8881: STA Sprite04RAM,X ;
L8884: LDA IntroSpr0PattTbl,X ;
L8887: STA Sprite04RAM+1,X ;Load the four bytes for the-->
L888A: LDA IntroSpr0Cntrl,X ;intro sprites into sprite RAM.
L888D: STA Sprite04RAM+2,X ;
L8890: LDA IntroSpr0XCoord,X ;
L8893: STA Sprite04RAM+3,X ;
L8896: RTS ;
LoadInitialSpriteData:
L8897: LDA #$20 ;
L8899: STA Second4Delay ;Set delay for second 4 sprites to 32 frames.
L889B: LDX #$3F ;Prepare to loop 64 times.
L889D:* LDA Sprite0and4InitTbl,X ;Load data from tables below.
L88A0: CMP $FF ;If #$FF, skip loading that byte and move to next item.
L88A2: BEQ + ;
L88A4: STA IntroSpr0YCoord,X ;Store initial values for sprites 0 thru 3.
L88A7: STA IntroSpr4YCoord,X ;Store initial values for sprites 4 thru 7.
L88AA:* DEX ;
L88AB: BPL -- ;Loop until all data is loaded.
L88AD: LDA #$B8 ;Special case for sprite 6 and 7.
L88AF: STA IntroSpr6YCoord ;
L88B2: STA IntroSpr7YCoord ;Change sprite 6 and 7 initial y position.
L88B5: LDA #$16 ;
L88B7: STA IntroSpr6YRise ;Change sprite 6 and 7 y displacement. The combination-->
L88BA: STA IntroSpr7YRise ;of these two changes the slope of the sprite movement.
L88BD: RTS ;
;The following tables are loaded into RAM as initial sprite control values for the crosshair sprites.
Sprite0and4InitTbl:
L88BE: .byte $20 ;Initial starting y screen position.
L88BF: .byte $C5 ;Sprite pattern table index.
L88C0: .byte $80 ;Sprite control byte.
L88C1: .byte $00 ;Initial starting x screen position.
L88C2: .byte $FF ;Not used.
L88C3: .byte $FF ;Not used.
L88C4: .byte $74 ;Intro sprite x total movement distance.
L88C5: .byte $58 ;Intro sprite y total movement distance.
L88C6: .byte $FF ;Not used.
L88C7: .byte $FF ;Not used.
L88C8: .byte $00 ;Sprite task complete idicator.
L88C9: .byte $FF ;Not used.
L88CA: .byte $1D ;x displacement of sprite movement(run).
L88CB: .byte $0E ;y displacement of sprite movement(rise).
L88CC: .byte $01 ;Change sprite x coord in positive direction.
L88CD: .byte $01 ;Change sprite y coord in positive direction.
Sprite1and5InitTbl:
L88CE: .byte $20 ;Initial starting y screen position.
L88CF: .byte $C5 ;Sprite pattern table index.
L88D0: .byte $C0 ;Sprite control byte.
L88D1: .byte $F8 ;Initial starting x screen position.
L88D2: .byte $FF ;Not used.
L88D3: .byte $FF ;Not used.
L88D4: .byte $7C ;Intro sprite x total movement distance.
L88D5: .byte $58 ;Intro sprite y total movement distance.
L88D6: .byte $FF ;Not used.
L88D7: .byte $FF ;Not used.
L88D8: .byte $00 ;Sprite task complete idicator.
L88D9: .byte $FF ;Not used.
L88DA: .byte $1F ;x displacement of sprite movement(run).
L88DB: .byte $0E ;y displacement of sprite movement(rise).
L88DC: .byte $80 ;Change sprite x coord in negative direction.
L88DD: .byte $01 ;Change sprite y coord in positive direction.
Sprite2and6InitTbl:
L88DE: .byte $C8 ;Initial starting y screen position.
L88DF: .byte $C5 ;Sprite pattern table index.
L88E0: .byte $00 ;Sprite control byte.
L88E1: .byte $00 ;Initial starting x screen position.
L88E2: .byte $FF ;Not used.
L88E3: .byte $FF ;Not used.
L88E4: .byte $74 ;Intro sprite x total movement distance.
L88E5: .byte $60 ;Intro sprite y total movement distance.
L88E6: .byte $FF ;Not used.
L88E7: .byte $FF ;Not used.
L88E8: .byte $00 ;Sprite task complete idicator.
L88E9: .byte $FF ;Not used.
L88EA: .byte $1D ;x displacement of sprite movement(run).
L88EB: .byte $1A ;y displacement of sprite movement(rise).
L88EC: .byte $01 ;Change sprite x coord in positive direction.
L88ED: .byte $80 ;Change sprite y coord in negative direction.
Sprite3and7InitTbl:
L88EE: .byte $C8 ;Initial starting y screen position.
L88EF: .byte $C5 ;Sprite pattern table index.
L88F0: .byte $40 ;Sprite control byte.
L88F1: .byte $F8 ;Initial starting x screen position.
L88F2: .byte $FF ;Not used.
L88F3: .byte $FF ;Not used.
L88F4: .byte $7C ;Intro sprite x total movement distance.
L88F5: .byte $60 ;Intro sprite y total movement distance.
L88F6: .byte $FF ;Not used.
L88F7: .byte $FF ;Not used.
L88F8: .byte $00 ;Sprite task complete idicator.
L88F9: .byte $FF ;Not used.
L88FA: .byte $1F ;x displacement of sprite movement(run).
L88FB: .byte $1A ;y displacement of sprite movement(rise).
L88FC: .byte $80 ;Change sprite x coord in negative direction.
L88FD: .byte $80 ;Change sprite y coord in negative direction.
DrawCrosshairsSprites:
L88FE: LDA First4SlowCntr ;
L8900: BEQ + ;Has First4SlowCntr already hit 0? If so, branch.
L8902: DEC First4SlowCntr ;
L8904: BNE + ;Is First4SlowCntr now equal to 0? if not, branch.
L8906: ASL IntroSpr0XRun ;
L8909: ASL IntroSpr0YRise ;
L890C: ASL IntroSpr1XRun ;
L890F: ASL IntroSpr1YRise ;
L8912: ASL IntroSpr2XRun ;
L8915: ASL IntroSpr2YRise ;
L8918: ASL IntroSpr3XRun ;Multiply the rise and run of the 8 sprites by 2.-->
L891B: ASL IntroSpr3YRise ;This doubles their speed.
L891E: ASL IntroSpr4XRun ;
L8921: ASL IntroSpr4YRise ;
L8924: ASL IntroSpr5XRun ;
L8927: ASL IntroSpr5YRise ;
L892A: ASL IntroSpr6XRun ;
L892D: ASL IntroSpr6YRise ;
L8930: ASL IntroSpr7XRun ;
L8933: ASL IntroSpr7YRise ;
L8936:* LDX #$00 ;
L8938: JSR DoSpriteMovement ;Move sprite 0.
L893B: LDX #$10 ;
L893D: JSR DoSpriteMovement ;Move sprite 1.
L8940: LDX #$20 ;
L8942: JSR DoSpriteMovement ;Move sprite 2.
L8945: LDX #$30 ;
L8947: LDA Second4Delay ;Check to see if the delay to start movement of the second-->
L8949: BEQ + ;4 sprites has ended. If so, start drawing those sprites.
L894B: DEC Second4Delay ;
L894D: BNE ++ ;
L894F:* JSR DoSpriteMovement ;Move sprite 3.
L8952: LDX #$40 ;
L8954: JSR DoSpriteMovement ;Move sprite 4.
L8957: LDX #$50 ;
L8959: JSR DoSpriteMovement ;Move sprite 5.
L895C: LDX #$60 ;
L895E: JSR DoSpriteMovement ;Move sprite 6.
L8961: LDX #$70 ;Move sprite 7.
DoSpriteMovement:
L8963:* LDA IntroSpr0Complete,X ;If the current sprite has finished-->
L8966: BNE ++ ;its movements, exit this routine.
L8968: JSR UpdateSpriteCoords ;Calculate new sprite position.
L896B: BCS + ;If sprite not at final position, branch to move next frame.
L896D: LDA #$01 ;Sprite movement complete.
L896F: STA IntroSpr0Complete,X ;
L8972:* JMP WriteIntroSprite ;Write sprite data to sprite RAM.
L8975:* RTS ;
DrawCrossSprites:
L8976: LDA DrawCross ;If not ready to draw crosshairs,-->
L8978: BEQ ++++ ;branch to exit.
L897A: LDY CrossDataIndex ;
L897C: CPY #$04 ;Check to see if at last index in table. If so, branch-->
L897E: BCC + ;to draw cross sprites.
L8980: BNE ++++ ;If beyond last index, branch to exit.
L8982: LDA #$00 ;
L8984: STA DrawCross ;If at last index, clear indicaor to draw cross sprites.
L8986:* LDA CrossSpriteIndexTbl,Y ;
L8989: STA $00 ;
L898B: LDY #$00 ;Reset index into CrossSpriteDataTbl
L898D:* LDX CrossSpriteDataTbl,Y ;Get offet into sprite RAM to load sprite.
L8990: INY ;
L8991:* LDA CrossSpriteDataTbl,Y ;Get sprite data byte.
L8994: STA Sprite00RAM,X ;Store byte in sprite RAM.
L8997: INX ;Move to next sprite RAM address.
L8998: INY ;Move to next data byte in table.
L8999: TXA ;
L899A: AND #$03 ;Is new sprite position reached?-->
L899C: BNE - ;if not, branch to load next sprite data byte.
L899E: CPY $00 ;Has all the sprites been loaded for cross graphic?-->
L89A0: BNE -- ;If not, branch to load next set of sprite data.
L89A2: LDA FrameCount ;
L89A4: LSR ;Increment index into CrossSpriteIndexTbl every-->
L89A5: BCC + ;other frame. This updates the cross sprites-->
L89A7: INC CrossDataIndex ;every two frames.
L89A9:* RTS ;
;The following table tells the routine above how many data bytes to load from CrossSpriteDataTbl.
;The more data that is loaded, the bigger the cross that is drawn on the screen. The table below
;starts the cross out small, it then grows bigger and gets small again.
CrossSpriteIndexTbl:
L89AA: .byte $05, $19, $41, $19, $05
;The following table is used to find the data for the sparkle routine in the table below:
SparkleAddressTbl:
L89AF: .word TopSparkleDataTbl ;Table for top sparkle data.
L89B1: .word BottomSparkleDataTbl ;Table for bottom sparkle data.
;The following two tables are the data tables for controlling the movement of the sparkle sprites
;in the title routine. Here's how thw data in the tables work: The first byte is a counter byte.
;It is loaded into a memory address and decremented every frame. Whilt that value is not 0, the
;second byte is used to change the sprite's x and y coordinates in the screen. The upper 4 bits
;of the second byte are amount to change the y coordinates every frame. If bit 7 is set, the
;y coordinates of the sprite are reduced every frame by the amount stored in bits 4,5 and 6. The
;lower 4 bits of the second byte are used to change the x coordinates of the sprite in the same
;manner. If bit 3 is set, the x coordinates of the sprite are reduced every frame by the amount
;stored in bits 0, 1 and 2.
;Special case: If MSB of the first byte is set(in the case of this data, the first byte is #$FF),
;The counter byte is set to only 1 frame and the second byte contains only x coordinates to move
;the sprite. The y coordinates do not change. This allows 8 bytes to move the x coordinate
;instead of only 4. This allows the sprite to "jump" across the edges of the letters. If the MSB
;of the second byte is set, the x coordinate of the sprite is decreased by the amount stored in
;the other seven bytes.
TopSparkleDataTbl:
L89B3: .byte $01, $00
L89B5: .byte $01, $00
L89B7: .byte $01, $01
L89B9: .byte $06, $00
L89BB: .byte $07, $01
L89BD: .byte $10, $01
L89BF: .byte $03, $01
L89C1: .byte $01, $00
L89C3: .byte $01, $01
L89C5: .byte $01, $00
L89C7: .byte $01, $01
L89C9: .byte $01, $00
L89CB: .byte $09, $01
L89CD: .byte $04, $00
L89CF: .byte $27, $01
L89D1: .byte $01, $00
L89D3: .byte $01, $00
L89D5: .byte $06, $01
L89D7: .byte $01, $00
L89D9: .byte $15, $01
L89DB: .byte $06, $00
L89DD: .byte $01, $01
L89DF: .byte $08, $01
L89E1: .byte $0E, $02
L89E3: .byte $02, $03
L89E5: .byte $06, $04
L89E7: .byte $00, $00
BottomSparkleDataTbl:
L89E9: .byte $01, $00
L89EB: .byte $08, $09
L89ED: .byte $01, $99
L89EF: .byte $01, $09
L89F1: .byte $01, $99
L89F3: .byte $01, $09
L89F5: .byte $01, $99
L89F7: .byte $01, $09
L89F9: .byte $01, $99
L89FB: .byte $01, $09
L89FD: .byte $01, $99
L89FF: .byte $01, $09
L8A01: .byte $01, $99
L8A03: .byte $01, $09
L8A05: .byte $01, $99
L8A07: .byte $01, $09
L8A09: .byte $01, $99
L8A0B: .byte $01, $09
L8A0D: .byte $01, $99
L8A0F: .byte $01, $09
L8A11: .byte $01, $99
L8A13: .byte $01, $19
L8A15: .byte $01, $11
L8A17: .byte $01, $10
L8A19: .byte $01, $11
L8A1B: .byte $01, $10
L8A1D: .byte $01, $11
L8A1F: .byte $01, $10
L8A21: .byte $01, $11
L8A23: .byte $01, $10
L8A25: .byte $01, $11
L8A27: .byte $01, $10
L8A29: .byte $01, $11
L8A2B: .byte $01, $10
L8A2D: .byte $01, $11
L8A2F: .byte $01, $10
L8A31: .byte $02, $11
L8A33: .byte $01, $10
L8A35: .byte $01, $11
L8A37: .byte $10, $09
L8A39: .byte $FF, $EF ;MSB of first byte set. move sprite x pos -17 pixles.
L8A3B: .byte $11, $09
L8A3D: .byte $FF, $F3 ;MSB of first byte set. move sprite x pos -13 pixles.
L8A3F: .byte $1F, $09
L8A41: .byte $FF, $EC ;MSB of first byte set. move sprite x pos -20 pixles.
L8A43: .byte $0F, $09
L8A45: .byte $FF, $ED ;MSB of first byte set. move sprite x pos -19 pixles.
L8A47: .byte $16, $09
L8A49: .byte $00, $00
;The following table is used by the DrawCrossSprites routine to draw the sprites on the screen that
;make up the cross that appears during the Crosshairs routine. The single byte is the index into
;the sprite RAM where the sprite data is to be written. The 4 bytes that follow it are the actual
;sprite data bytes.
CrossSpriteDataTbl:
L8A4B: .byte $10 ;Load following sprite data into Sprite04RAM.
L8A4C: .byte $5A, $C0, $00, $79 ;Sprite data.
L8A50: .byte $14 ;Load following sprite data into Sprite05RAM.
L8A51: .byte $52, $C8, $00, $79 ;Sprite data.
L8A55: .byte $18 ;Load following sprite data into Sprite06RAM.
L8A56: .byte $5A, $C2, $40, $71 ;Sprite data.
L8A5A: .byte $1C ;Load following sprite data into Sprite07RAM.
L8A5B: .byte $5A, $C2, $00, $81 ;Sprite data.
L8A5F: .byte $20 ;Load following sprite data into Sprite08RAM.
L8A60: .byte $62, $C8, $80, $79 ;Sprite data.
L8A64: .byte $14 ;Load following sprite data into Sprite05RAM.
L8A65: .byte $52, $C9, $00, $79 ;Sprite data.
L8A69: .byte $18 ;Load following sprite data into Sprite06RAM.
L8A6A: .byte $5A, $C1, $00, $71 ;Sprite data.
L8A6E: .byte $1C ;Load following sprite data into Sprite07RAM.
L8A6F: .byte $5A, $C1, $00, $81 ;Sprite data.
L8A73: .byte $20 ;Load following sprite data into Sprite08RAM.
L8A74: .byte $62, $C9, $00, $79 ;Sprite data.
L8A78: .byte $24 ;Load following sprite data into Sprite09RAM.
L8A79: .byte $4A, $C8, $00, $79 ;Sprite data.
L8A7D: .byte $28 ;Load following sprite data into Sprite0ARAM.
L8A7E: .byte $5A, $C2, $40, $69 ;Sprite data.
L8A82: .byte $2C ;Load following sprite data into Sprite0BRAM.
L8A83: .byte $5A, $C2, $00, $89 ;Sprite data.
L8A87: .byte $30 ;Load following sprite data into Sprite0CRAM.
L8A88: .byte $6A, $C8, $80, $79 ;Sprite data.
LoadPalData:
L8A8C: lDY PalDataIndex ;
L8A8E: LDA PalSelectTbl,Y ;Chooses which set of palette data-->
L8A91: CMP #$FF ;to load from the table below.
L8A93: BEQ + ;
L8A95: STA PalDataPending ;Prepare to write palette data.
L8A97: INC PalDataIndex ;
L8A99:* RTS ;
;The table below is used by above routine to pick the proper palette.
PalSelectTbl:
L8A9A: .byte $02, $03, $04, $05, $06, $07, $08, $09, $0A, $0B, $0C, $0C, $FF
FlashIntroScreen:
L8AA7: LDY ScreenFlashPalIndex ;Load index into table below.
L8AA9: LDA ScreenFlashPalTbl,Y ;Load palette data byte.
L8AAC: CMP #$FF ;Has the end of the table been reached?-->
L8AAE: BNE + ;If not, branch.
L8AB0: LDA #$00 ;
L8AB2: STA ScreenFlashPalIndex ;Clear screen flash palette index and reset-->
L8AB4: STA FlashScreen ;screen flash control address.
L8AB6: BEQ ++ ;Branch always.
L8AB8:* STA PalDataPending ;Store palette change data.
L8ABA: INC ScreenFlashPalIndex ;Increment index into table below.
L8ABC:* RTS ;
ScreenFlashPalTbl:
L8ABD: .byte $11, $01, $11, $01, $11, $11, $01, $11, $01, $FF
;----------------------------------[ Intro star palette routines ]-----------------------------------
StarPalSwitch:
L8AC7: LDA FrameCount ;
L8AC9: AND #$0F ;Change star palette every 16th frame.
L8ACB: BNE + ;
L8ACD: LDA PPUStrIndex ;
L8AD0: BEQ ++ ;Is any other PPU data waiting? If so, exit.
L8AD2:* RTS ;
L8AD3:* LDA #$19 ;
L8AD5: STA $00 ;Prepare to write to the sprite palette-->
L8AD7: LDA #$3F ;starting at address $3F19.
L8AD9: STA $01 ;
L8ADB: LDA IntroStarOffset ;Use only first 3 bits of byte since the pointer-->
L8ADD: AND #$07 ;table only has 8 entries.
L8ADF: ASL ;*2 to find entry in IntroStarPntr table.
L8AE0: TAY ;
L8AE1: LDA IntroStarPntr,Y ;Stores starting address of palette data to write-->
L8AE4: STA $02 ;into $02 and $03 from IntroStarPntr table.
L8AE6: LDA IntroStarPntr+1,Y ;
L8AE9: STA $03 ;
L8AEB: INC IntroStarOffset ;Increment index for next palette change.
L8AED: JSR PrepPPUPaletteString ;Prepare and write new palette data.
L8AF0: LDA #$1D ;
L8AF2: STA $00 ;
L8AF4: LDA #$3F ;Prepare another write to the sprite palette.-->
L8AF6: STA $01 ;This tie starting at address $3F1D.
L8AF8: INY ;
L8AF9: JSR AddYToPtr02 ;Find new data base of palette data.
L8AFC: JMP PrepPPUPaletteString ;Prepare and write new palette data.
;The following table is a list of pointers into the table below. It contains
;the palette data for the twinkling stars in the intro scene. The palette data
;is changed every 16 frames by the above routine.
IntroStarPntr:
.word IntroStarPal0, IntroStarPal1, IntroStarPal2, IntroStarPal3
.word IntroStarPal4, IntroStarPal5, IntroStarPal6, IntroStarPal7
;The following table contains the platette data that is changed in the intro
;scene to give the stars a twinkling effect. All entries in the table are
;non-repeating.
IntroStarPal0:
.byte $03, $0F, $02, $13, $00, $03, $00, $34, $0F, $00
IntroStarPal1:
.byte $03, $06, $01, $23, $00, $03, $0F, $34, $09, $00
IntroStarPal2:
.byte $03, $16, $0F, $23, $00, $03, $0F, $24, $1A, $00
IntroStarPal3:
.byte $03, $17, $0F, $13, $00, $03, $00, $04, $28, $00
IntroStarPal4:
.byte $03, $17, $01, $14, $00, $03, $10, $0F, $28, $00
IntroStarPal5:
.byte $03, $16, $02, $0F, $00, $03, $30, $0F, $1A, $00
IntroStarPal6:
.byte $03, $06, $12, $0F, $00, $03, $30, $04, $09, $00
IntroStarPal7:
.byte $03, $0F, $12, $14, $00, $03, $10, $24, $0F, $00
;----------------------------------------------------------------------------------------------------
DoFadeOut:
L8B5F: LDY FadeDataIndex ;Load palette data from table below.
L8B61: LDA FadeOutPalData,Y ;
L8B64: CMP #$FF ;If palette data = #$FF, exit.
L8B66: BEQ + ;
L8B68: STA PalDataPending ;Store new palette data.
L8B6A: INC FadeDataIndex ;
L8B6C:* RTS ;
FadeOutPalData:
L8B6D: .byte $0D, $0E, $0F, $10, $01, $FF
FadeInPalData:
L8B73: .Byte $01, $10, $0F, $0E, $0D, $FF
;----------------------------------------[ Password routines ]---------------------------------------
ProcessUniqueItems:
L8B79: LDA NumberOfUniqueItems ;
L8B7C: STA $03 ;Store NumberOfUniqueItems at $03.
L8B7E: LDY #$00 ;
L8B80: STY $04 ;Set $04 to #$00.
L8B82:* LDY $04 ;Use $04 at index into unique itme list.
L8B84: INY ;
L8B85: LDA UniqueItemHistory-1,Y ;
L8B88: STA $00 ;Load the two bytes representing the aquired-->
L8B8A: INY ;Unique item and store them in $00 and $01.
L8B8B: LDA UniqueItemHistory-1,Y ;
L8B8E: STA $01 ;
L8B90: STY $04 ;Increment $04 by two (load unique item complete).
L8B92: JSR UniqueItemSearch ;Find unique item.
L8B95: LDY $04 ;
L8B97: CPY $03 ;If all unique items processed, return, else-->
L8B99: BCC - ;branch to process next unique item.
L8B9B: RTS ;
UniqueItemSearch:
L8B9C: LDX #$00 ;
L8B9E:* TXA ;Transfer X to A(Item number).
L8B9F: ASL ;Multiply by 2.
L8BA0: TAY ;Store multiplied value in y.
L8BA1: LDA ItemData,Y ;Load unique item reference (2 bytes).
L8BA4: CMP $00 ;
L8BA6: BNE + ;
L8BA8: LDA ItemData+1,Y ;Get next byte of unique item.
L8BAB: CMP $01 ;
L8BAD: BEQ ++ ;If unique item found, branch to UniqueItemFound.
L8BAF:* INX ;
L8BB0: CPX #$3C ;If the unque item is a Zeebetite, return-->
L8BB2: BCC -- ;else branch to find next unique item.
L8BB4: RTS ;
;The following routine sets the item bits for aquired items in addresses $6988 thru $698E.-->
;Items 1 thru 7 masked in $6988, 8 thru 15 in $6989, etc.
UniqueItemFound:
L8BB5:* TXA ;
L8BB6: JSR Adiv8 ;Divide by 8.
L8BB9: STA $05 ;Shifts 5 MSBs to LSBs of item # and saves results in $05.
L8BBB: JSR Amul8 ;Multiply by 8.
L8BBE: STA $02 ;Restores 5 MSBs of item # and drops 3 LSBs; saves in $02.
L8BC0: TXA ;
L8BC1: SEC ;
L8BC2: SBC $02 ;
L8BC4: STA $06 ;Remove 5 MSBs and stores 3 LSBs in $06.
L8BC6: LDX $05 ;
L8BC8: LDA PasswordByte00,X ;
L8BCB: LDY $06 ;
L8BCD: ORA PasswordBitmaskTbl,Y ;
L8BD0: STA PasswordByte00,X ;Masks each unique item in the proper item address-->
L8BD3: RTS ;(addresses $6988 thru $698E).
LoadUniqueItems:
L8BD4: LDA #$00 ;
L8BD6: STA NumberOfUniqueItems ;
L8BD9: STA $05 ;$05 offset of password byte currently processing(0 thru 7).
L8BDB: STA $06 ;$06 bit of password byte currently processing(0 thru 7).
L8BDD: LDA #$3B ;
L8BDF: STA $07 ;Maximum number of unique items(59 or #$3B).
L8BE1: LDY $05 ;
L8BE3: LDA PasswordByte00,Y ;
L8BE6: STA $08 ;$08 stores contents of password byte currently processing.
L8BE8: LDX #$00 ;
L8BEA: STX $09 ;Stores number of unique items processed(#$0 thru #$3B).
L8BEC: LDX $06 ;
L8BEE: BEQ ++ ;If start of new byte, branch.
L8BF0: LDX #$01 ;
L8BF2: STX $02 ;
L8BF4: CLC ;
L8BF5:* ROR ;
L8BF6: STA $08 ;This code does not appear to ever be executed.
L8BF8: LDX $02 ;
L8BFA: CPX $06 ;
L8BFC: BEQ + ;
L8BFE: INC $02 ;
L8C00: JMP - ;
ProcessNextItem:
L8C03: LDY $05 ;Locates next password byte to process-->
L8C05: LDA PasswordByte00,Y ;and loads it into $08.
L8C08: STA $08 ;
ProcessNewItemByte:
L8C0A:* LDA $08 ;
L8C0C: ROR ;Rotates next bit to be processed to the carry flag.
L8C0D: STA $08 ;
L8C0F: BCC + ;
L8C11: JSR SamusHasItem ;Store item in unique item history.
L8C14:* LDY $06 ;If last bit of item byte has been-->
L8C16: CPY #$07 ;checked, move to next byte.
L8C18: BCS + ;
L8C1A: INC $06 ;
L8C1C: INC $09 ;
L8C1E: LDX $09 ;If all 59 unique items have been-->
L8C20: CPX $07 ;searched through, exit.
L8C22: BCS ++ ;
L8C24: JMP ProcessNewItemByte ;Repeat routine for next item byte.
L8C27:* LDY #$00 ;
L8C29: STY $06 ;
L8C2B: INC $05 ;
L8C2D: INC $09 ;
L8C2F: LDX $09 ;If all 59 unique items have been-->
L8C31: CPX $07 ;searched through, exit.
L8C33: BCS + ;
L8C35: JMP ProcessNextItem ;Process next item.
L8C38:* RTS ;
SamusHasItem:
L8C39: LDA $05 ;$05 becomes the upper part of the item offset-->
L8C3B: JSR Amul8 ;while $06 becomes the lower part of the item offset.
L8C3E: CLC ;
L8C3F: ADC $06 ;
L8C41: ASL ;* 2. Each item is two bytes in length.
L8C42: TAY ;
L8C43: LDA ItemData+1,Y ;
L8C46: STA $01 ;$00 and $01 store the two bytes of-->
L8C48: LDA ItemData,Y ;the unique item to process.
L8C4B: STA $00 ;
L8C4D: LDY NumberOfUniqueItems ;
L8C50: STA UniqueItemHistory,Y ;Store the two bytes of the unique item-->
L8C53: LDA $01 ;in RAM in the unique item history.
L8C55: INY ;
L8C56: STA UniqueItemHistory,Y ;
L8C59: INY ;
L8C5A: STY NumberOfUniqueItems ;Keeps a running total of unique items.
L8C5D: RTS ;
CheckPassword:
L8C5E: JSR ConsolidatePassword ;Convert password characters to password bytes.
L8C61: JSR ValidatePassword ;Verify password is correct.
L8C64: BCS + ;Branch if incorrect password.
L8C66: JMP InitializeGame ;Preliminary housekeeping before game starts.
L8C69:* LDA MultiSFXFlag ;
L8C6C: ORA #$01 ;Set IncorrectPassword SFX flag.
L8C6E: STA MultiSFXFlag ;
L8C71: LDA #$0C ;
L8C73: STA Timer3 ;Set Timer3 time for 120 frames (2 seconds).
L8C75: LDA #$18 ;
L8C77: STA TitleRoutine ;Run EnterPassword routine.
L8C79: RTS ;
CalculatePassword:
L8C7A: LDA #$00 ;
L8C7C: LDY #$0F ;Clears values at addresses -->
L8C7E:* STA PasswordByte00,Y ;$6988 thru $6997 and -->
L8C81: STA PasswordChar00,Y ;$699A thru $69A9.
L8C84: DEY ;
L8C85: BPL - ;
L8C87: JSR ProcessUniqueItems ;Determine what items Samus has collected.
L8C8A: LDA PasswordByte07 ;
L8C8D: AND #$04 ;Check to see if mother brain has been defeated,-->
L8C8F: BEQ + ;If so, restore mother brain, zeebetites and-->
L8C91: LDA #$00 ;all missile doors in Tourian as punishment for-->
L8C93: STA PasswordByte07 ;dying after mother brain defeated. Only reset in the-->
L8C96: LDA PasswordByte06 ;password. Continuing without resetting will not-->
L8C99: AND #$03 ;restore those items.
L8C9B: STA PasswordByte06 ;
L8C9E:* LDA InArea ;Store InArea in bits 0 thru 5 in-->
L8CA0: AND #$3F ;address $6990.
L8CA2: LDY JustInBailey ;
L8CA5: BEQ + ;
L8CA7: ORA #$80 ;Sets MSB of $6990 is Samus is suitless.
L8CA9:* STA PasswordByte08 ;
L8CAC: LDA SamusGear ;
L8CAF: STA PasswordByte09 ;SamusGear stored in $6991.
L8CB2: LDA MissileCount ;
L8CB5: STA PasswordByte0A ;MissileCount stored in $6992.
L8CB8: LDA #$00 ;
L8CBA: STA $00 ;
L8CBC: LDA KraidStatueStatus ;
L8CBF: AND #$80 ;
L8CC1: BEQ + ;If statue not up, branch.
L8CC3: LDA $00 ;
L8CC5: ORA #$80 ;Set bit 7 of $00-->
L8CC7: STA $00 ;if Kraid statue up.
L8CC9:* LDA KraidStatueStatus ;
L8CCC: AND #$01 ;
L8CCE: BEQ + ;Branch if Kraid not yet defeated.
L8CD0: LDA $00 ;
L8CD2: ORA #$40 ;Set bit 6 of $00-->
L8CD4: STA $00 ;If Kraid defeated.
L8CD6:* LDA RidleyStatueStatus ;
L8CD9: AND #$80 ;
L8CDB: BEQ + ;Branch if Ridley statue not up.
L8CDD: LDA $00 ;
L8CDF: ORA #$20 ;Set bit 5 of $00-->
L8CE1: STA $00 ;if Ridley statue up.
L8CE3:* LDA RidleyStatueStatus ;
L8CE6: AND #$02 ;
L8CE8: BEQ + ;Branch if Ridley not yet defeated.
L8CEA: LDA $00 ;
L8CEC: ORA #$10 ;Set bit 4 of $00-->
L8CEE: STA $00 ;if Ridley defeated.
L8CF0:* LDA $00 ;
L8CF2: STA PasswordByte0F ;Stores statue statuses in 4 MSB at $6997.
L8CF5: LDY #$03 ;
L8CF7:* LDA SamusAge,Y ;Store SamusAge in $6993,-->
L8CFA: STA PasswordByte0B,Y ;SamusAge+1 in $6994 and-->
L8CFD: DEY ;SamusAe+2 in $6995.
L8CFE: BPL - ;
L8D00:* JSR RandomNumbers ;
L8D03: LDA RandomNumber1 ;
L8D05: AND #$0F ;Store the value of $2E at $6998-->
L8D07: BEQ - ;When any of the 4 LSB are set. (Does not-->
L8D09: STA PasswordByte10 ;allow RandomNumber1 to be a multiple of 16).
L8D0C: JSR PasswordChecksumAndScramble ;Calculate checksum and scramble password.
L8D0F: JMP LoadPasswordChar ;Calculate password characters.
LoadPasswordData:
L8D12: LDA NARPASSWORD ;If invincible Samus active, skip-->
L8D15: BNE +++ ;further password processing.
L8D17: JSR LoadUniqueItems ;Load unique items from password.
L8D1A: JSR LoadTanksAndMissiles ;Calculate number of missiles from password.
L8D1D: LDY #$00 ;
L8D1F: LDA PasswordByte08 ;If MSB in PasswordByte08 is set,-->
L8D22: AND #$80 ;Samus is not wearing her suit.
L8D24: BEQ + ;
L8D26: INY ;
L8D27:* STY JustInBailey ;
L8D2A: LDA PasswordByte08 ;Extract first 5 bits from PasswordByte08-->
L8D2D: AND #$3F ;and use it to determine starting area.
L8D2F: STA InArea ;
L8D31: LDY #$03 ;
L8D33:* LDA PasswordByte0B,Y ;Load Samus' age.
L8D36: STA SamusAge,Y ;
L8D39: DEY ;
L8D3A: BPL - ;Loop to load all 3 age bytes.
L8D3C:* RTS ;
LoadTanksAndMissiles:
L8D3D: LDA PasswordByte09 ;Loads Samus gear.
L8D40: STA SamusGear ;Save Samus gear.
L8D43: LDA PasswordByte0A ;Loads current number of missiles.
L8D46: STA MissileCount ;Save missile count.
L8D49: LDA #$00 ;
L8D4B: STA $00 ;
L8D4D: STA $02 ;
L8D4F: LDA PasswordByte0F ;
L8D52: AND #$80 ;If MSB is set, Kraid statue is up.
L8D54: BEQ + ;
L8D56: LDA $00 ;
L8D58: ORA #$80 ;If Kraid statue is up, set MSB in $00.
L8D5A: STA $00 ;
L8D5C:* LDA PasswordByte0F ;
L8D5F: AND #$40 ;If bit 6 is set, Kraid is defeated.
L8D61: BEQ + ;
L8D63: LDA $00 ;
L8D65: ORA #$01 ;If Kraid is defeated, set LSB in $00.
L8D67: STA $00 ;
L8D69:* LDA $00 ;
L8D6B: STA KraidStatueStatus ;Store Kraid status.
L8D6E: LDA PasswordByte0F ;
L8D71: AND #$20 ;If bit 5 is set, Ridley statue is up.
L8D73: BEQ + ;
L8D75: LDA $02 ;
L8D77: ORA #$80 ;If Ridley statue is up, set MSB in $02.
L8D79: STA $02 ;
L8D7B:* LDA PasswordByte0F ;
L8D7E: AND #$10 ;If bit 4 is set, Ridley is defeated.
L8D80: BEQ + ;
L8D82: LDA $02 ;
L8D84: ORA #$02 ;If Ridley is defeated, set bit 1 of $02.
L8D86: STA $02 ;
L8D88:* LDA $02 ;
L8D8A: STA RidleyStatueStatus ;Store Ridley status.
L8D8D: LDA #$00 ;
L8D8F: STA $00 ;
L8D91: STA $02 ;
L8D93: LDY #$00 ;
L8D95:* LDA UniqueItemHistory+1,Y ;Load second byte of item and compare-->
L8D98: AND #$FC ;the 6 MSBs to #$20. If it matches,-->
L8D9A: CMP #$20 ;an energy tank has been found.
L8D9C: BNE + ;
L8D9E: INC $00 ;Increment number of energy tanks found.
L8DA0: JMP IncrementToNextItem ;
L8DA3:* CMP #$24 ;Load second byte of item and compare the 6 MSBs to-->
L8DA5: BNE + ;#$24. If it matches, missiles have been found.
L8DA7: INC $02 ;Increment number of missiles found.
IncrementToNextItem:
L8DA9:* INY ;
L8DAA: INY ;Increment twice. Each item is 2 bytes.
L8DAB: CPY #$84 ;7 extra item slots in unique item history.
L8DAD: BCC --- ;Loop until all unique item history checked.
L8DAF: LDA $00 ;
L8DB1: CMP #$06 ;Ensure the Tank Count does not exceed 6-->
L8DB3: BCC + ;tanks. Then stores the number of-->
L8DB5: LDA #$06 ;energy tanks found in TankCount.
L8DB7:* STA TankCount ;
L8DBA: LDA #$00 ;
L8DBC: LDY $02 ;
L8DBE: BEQ ++ ;Branch if no missiles found.
L8DC0: CLC ;
L8DC1:* ADC #$05 ;
L8DC3: DEY ;For every missile item found, this-->
L8DC4: BNE - ;loop adds 5 missiles to MaxMissiles.
L8DC6:* LDY KraidStatueStatus ;
L8DC9: BEQ + ;
L8DCB: ADC #$4B ;75 missiles are added to MaxMissiles-->
L8DCD: BCS ++ ;if Kraid has been defeated and another-->
L8DCF:* LDY RidleyStatueStatus ;75 missiles are added if the ridley-->
L8DD2: BEQ ++ ;has been defeated.
L8DD4: ADC #$4B ;
L8DD6: BCC ++ ;
L8DD8:* LDA #$FF ;If number of missiles exceeds 255, it stays at 255.
L8DDA:* STA MaxMissiles ;
L8DDD: RTS ;
ValidatePassword:
L8DDE: LDA NARPASSWORD ;
L8DE1: BNE ++ ;If invincible Samus already active, branch.
L8DE3: LDY #$0F ;
L8DE5:* LDA PasswordChar00,Y ;
L8DE8: CMP NARPASSWORDTbl,Y ;If NARPASSWORD was entered at the-->
L8DEB: BNE + ;password screen, activate invincible-->
L8DED: DEY ;Samus, else continue to process password.
L8DEE: BPL - ;
L8DF0: LDA #$01 ;
L8DF2: STA NARPASSWORD ;
L8DF5: BNE ++ ;
L8DF7:* JSR UnscramblePassword ;Unscramble password.
L8DFA: JSR PasswordChecksum ;Calculate password checksum.
L8DFD: CMP PasswordByte11 ;Verify proper checksum.
L8E00: BEQ + ;
L8E02: SEC ;If password is invalid, sets carry flag.
L8E03: BCS ++ ;
L8E05:* CLC ;If password is valid, clears carry flag.
L8E06:* RTS ;
;The table below is used by the code above. It checks to see if NARPASSWORD has been entered.
;NOTE: any characters after the 16th character will be ignored if the first 16 characters
;match the values below.
NARPASSWORDTbl:
L8E07: .byte $17 ;N
L8E08: .byte $0A ;A
L8E09: .byte $1B ;R
L8E0A: .byte $19 ;P
L8E0B: .byte $0A ;A
L8E0C: .byte $1C ;S
L8E0D: .byte $1C ;S
L8E0E: .byte $20 ;W
L8E0F: .byte $18 ;O
L8E10: .byte $1B ;R
L8E11: .byte $0D ;D
L8E12: .byte $00 ;0(or no entry).
L8E13: .byte $00 ;0(or no entry).
L8E14: .byte $00 ;0(or no entry).
L8E15: .byte $00 ;0(or no entry).
L8E16: .byte $00 ;0(or no entry).
PasswordChecksumAndScramble:
L8E17: JSR PasswordChecksum ;Store the combined added value of-->
L8E1A: STA PasswordByte11 ;addresses $6988 thu $6998 in $6999.
L8E1D: JSR PasswordScramble ;Scramble password.
L8E20: RTS ;
PasswordChecksum:
L8E21: LDY #$10 ;
L8E23: LDA #$00 ;
L8E25:* CLC ;Add the values at addresses-->
L8E26: ADC PasswordByte00,Y ;$6988 thru $6998 together.
L8E29: DEY ;
L8E2A: BPL - ;
L8E2C: RTS ;
PasswordScramble:
L8E2D: LDA PasswordByte10 ;
L8E30: STA $02 ;
L8E32:* LDA PasswordByte00 ;Store contents of $6988 in $00 for-->
L8E35: STA $00 ;further processing after rotation.
L8E37: LDX #$00 ;
L8E39: LDY #$0F ;
L8E3B:* ROR PasswordByte00,X ;Rotate right, including carry, all values in-->
L8E3E: INX ;addresses $6988 thru $6997.
L8E3F: DEY ;
L8E40: BPL - ;
L8E42: ROR $00 ;Rotate right $6988 to ensure the LSB-->
L8E44: LDA $00 ;from address $6997 is rotated to the-->
L8E46: STA PasswordByte00 ;MSB of $6988.
L8E49: DEC $02 ;
L8E4B: BNE -- ;Continue rotating until $02 = 0.
L8E4D: RTS ;
UnscramblePassword:
L8E4E: LDA PasswordByte10 ;Stores random number used to scramble the password.
L8E51: STA $02 ;
L8E53:* LDA PasswordByte0F ;Preserve MSB that may have been rolled from $6988.
L8E56: STA $00 ;
L8E58: LDX #$0F ;
L8E5A:* ROL PasswordByte00,X ;The following loop rolls left the first 16 bytes-->
L8E5D: DEX ;of the password one time.
L8E5E: BPL - ;
L8E60: ROL $00 ;Rolls byte in $6997 to ensure MSB from $6988 is not lost.
L8E62: LDA $00 ;
L8E64: STA PasswordByte0F ;
L8E67: DEC $02 ;
L8E69: BNE -- ;Loop repeats the number of times decided by the random-->
L8E6B: RTS ;number in $6998 to properly unscramble the password.
;The following code takes the 18 password bytes and converts them into 24 characters
;to be displayed to the player as the password. NOTE: the two MSBs will always be 0.
LoadPasswordChar:
L8E6C: LDY #$00 ;Password byte #$00.
L8E6E: JSR SixUpperBits ;
L8E71: STA PasswordChar00 ;Store results.
L8E74: LDY #$00 ;Password bytes #$00 and #$01.
L8E76: JSR TwoLowerAndFourUpper ;
L8E79: STA PasswordChar01 ;Store results.
L8E7C: LDY #$01 ;Password bytes #$01 and #$02.
L8E7E: JSR FourLowerAndTwoUpper ;
L8E81: STA PasswordChar02 ;Store results.
L8E84: LDY #$02 ;Password byte #$02.
L8E86: JSR SixLowerBits ;
L8E89: STA PasswordChar03 ;Store results.
L8E8C: LDY #$03 ;Password byte #$03.
L8E8E: JSR SixUpperBits ;
L8E91: STA PasswordChar04 ;Store results.
L8E94: LDY #$03 ;Password bytes #$03 and #$04.
L8E96: JSR TwoLowerAndFourUpper ;
L8E99: STA PasswordChar05 ;Store results.
L8E9C: LDY #$04 ;Password bytes #$04 and #$05.
L8E9E: JSR FourLowerAndTwoUpper ;
L8EA1: STA PasswordChar06 ;Store results.
L8EA4: LDY #$05 ;Password byte #$05.
L8EA6: JSR SixLowerBits ;
L8EA9: STA PasswordChar07 ;Store results.
L8EAC: LDY #$06 ;Password byte #$06.
L8EAE: JSR SixUpperBits ;
L8EB1: STA PasswordChar08 ;Store results.
L8EB4: LDY #$06 ;Password bytes #$06 and #$07.
L8EB6: JSR TwoLowerAndFourUpper ;
L8EB9: STA PasswordChar09 ;Store results.
L8EBC: LDY #$07 ;Password bytes #$07 and #$08.
L8EBE: JSR FourLowerAndTwoUpper ;
L8EC1: STA PasswordChar0A ;Store results.
L8EC4: LDY #$08 ;Password byte #$08.
L8EC6: JSR SixLowerBits ;
L8EC9: STA PasswordChar0B ;Store results.
L8ECC: LDY #$09 ;Password byte #$09.
L8ECE: JSR SixUpperBits ;
L8ED1: STA PasswordChar0C ;Store results.
L8ED4: LDY #$09 ;Password bytes #$09 and #$0A.
L8ED6: JSR TwoLowerAndFourUpper ;
L8ED9: STA PasswordChar0D ;Store results.
L8EDC: LDY #$0A ;Password bytes #$0A and #$0B.
L8EDE: JSR FourLowerAndTwoUpper ;
L8EE1: STA PasswordChar0E ;Store results.
L8EE4: LDY #$0B ;Password byte #$0B.
L8EE6: JSR SixLowerBits ;
L8EE9: STA PasswordChar0F ;Store results.
L8EEC: LDY #$0C ;Password byte #$0C.
L8EEE: JSR SixUpperBits ;
L8EF1: STA PasswordChar10 ;Store results.
L8EF4: LDY #$0C ;Password bytes #$0C and #$0D.
L8EF6: JSR TwoLowerAndFourUpper ;
L8EF9: STA PasswordChar11 ;Store results.
L8EFC: LDY #$0D ;Password bytes #$0D and #$0E.
L8EFE: JSR FourLowerAndTwoUpper ;
L8F01: STA PasswordChar12 ;Store results.
L8F04: LDY #$0E ;Password byte #$0E.
L8F06: JSR SixLowerBits ;
L8F09: STA PasswordChar13 ;Store results.
L8F0C: LDY #$0F ;Password byte #$0F.
L8F0E: JSR SixUpperBits ;
L8F11: STA PasswordChar14 ;Store results.
L8F14: LDY #$0F ;Password bytes #$0F and #$10.
L8F16: JSR TwoLowerAndFourUpper ;
L8F19: STA PasswordChar15 ;Store results.
L8F1C: LDY #$10 ;Password bytes #$10 and #$11.
L8F1E: JSR FourLowerAndTwoUpper ;
L8F21: STA PasswordChar16 ;Store results.
L8F24: LDY #$11 ;Password byte #$11.
L8F26: JSR SixLowerBits ;
L8F29: STA PasswordChar17 ;Store results.
L8F2C: RTS ;
SixUpperBits:
L8F2D: LDA PasswordByte00,Y ;Uses six upper bits to create a new byte.-->
L8F30: LSR ;Bits are right shifted twice and two lower-->
L8F31: LSR ;bits are discarded.
L8F32: RTS ;
TwoLowerAndFourUpper:
L8F33: LDA PasswordByte00,Y ;
L8F36: AND #$03 ;Saves two lower bits and stores them-->
L8F38: JSR Amul16 ;in bits 4 and 5.
L8F3B: STA $00 ;
L8F3D: LDA PasswordByte01,Y ;Saves upper 4 bits and stores them-->
L8F40: JSR Adiv16 ;bits 0, 1, 2 and 3.
L8F43: ORA $00 ;Add two sets of bits together to make a byte-->
L8F45: RTS ;where bits 6 and 7 = 0.
FourLowerAndTwoUpper:
L8F46: LDA PasswordByte00,Y ;
L8F49: AND #$0F ;Keep lower 4 bits.
L8F4B: ASL ;Move lower 4 bits to bits 5, 4, 3 and 2.
L8F4C: ASL ;
L8F4D: STA $00 ;
L8F4F: LDA PasswordByte01,Y ;Move upper two bits-->
L8F52: ROL ;to bits 1 and 0.
L8F53: ROL ;
L8F54: ROL ;
L8F55: AND #$03 ;Add two sets of bits together to make a byte-->
L8F57: ORA $00 ;where bits 6 and 7 = 0.
L8F59: RTS ;
SixLowerBits:
L8F5A: LDA PasswordByte00,Y ;Discard bits 6 and 7.
L8F5D: AND #$3F ;
L8F5F: RTS
;The following routine converts the 24 user entered password characters into the 18 password
;bytes used by the program to store Samus' stats and unique item history.
ConsolidatePassword:
L8F60: LDY #$00 ;Password characters #$00 and #$01.
L8F62: JSR SixLowerAndTwoUpper ;
L8F65: STA PasswordByte00 ;Store results.
L8F68: LDY #$01 ;Password characters #$01 and #$02.
L8F6A: JSR FourLowerAndFiveThruTwo ;
L8F6D: STA PasswordByte01 ;Store results.
L8F70: LDY #$02 ;Password characters #$02 and #$03.
L8F72: JSR TwoLowerAndSixLower ;
L8F75: STA PasswordByte02 ;Store results.
L8F78: LDY #$04 ;Password characters #$04 and #$05.
L8F7A: JSR SixLowerAndTwoUpper ;
L8F7D: STA PasswordByte03 ;Store results.
L8F80: LDY #$05 ;Password characters #$05 and #$05.
L8F82: JSR FourLowerAndFiveThruTwo ;
L8F85: STA PasswordByte04 ;Store results.
L8F88: LDY #$06 ;Password characters #$06 and #$07.
L8F8A: JSR TwoLowerAndSixLower ;
L8F8D: STA PasswordByte05 ;Store results.
L8F90: LDY #$08 ;Password characters #$08 and #$09.
L8F92: JSR SixLowerAndTwoUpper ;
L8F95: STA PasswordByte06 ;Store results.
L8F98: LDY #$09 ;Password characters #$09 and #$0A.
L8F9A: JSR FourLowerAndFiveThruTwo ;
L8F9D: STA PasswordByte07 ;Store results.
L8FA0: LDY #$0A ;Password characters #$0A and #$0B.
L8FA2: JSR TwoLowerAndSixLower ;
L8FA5: STA PasswordByte08 ;Store results.
L8FA8: LDY #$0C ;Password characters #$0C and #$0D.
L8FAA: JSR SixLowerAndTwoUpper ;
L8FAD: STA PasswordByte09 ;Store results.
L8FB0: LDY #$0D ;Password characters #$0D and #$0E.
L8FB2: JSR FourLowerAndFiveThruTwo ;
L8FB5: STA PasswordByte0A ;Store results.
L8FB8: LDY #$0E ;Password characters #$0E and #$0F.
L8FBA: JSR TwoLowerAndSixLower ;
L8FBD: STA PasswordByte0B ;Store results.
L8FC0: LDY #$10 ;Password characters #$10 and #$11.
L8FC2: JSR SixLowerAndTwoUpper ;
L8FC5: STA PasswordByte0C ;Store results.
L8FC8: LDY #$11 ;Password characters #$11 and #$12.
L8FCA: JSR FourLowerAndFiveThruTwo ;
L8FCD: STA PasswordByte0D ;Store results.
L8FD0: LDY #$12 ;Password characters #$12 and #$13.
L8FD2: JSR TwoLowerAndSixLower ;
L8FD5: STA PasswordByte0E ;Store results.
L8FD8: LDY #$14 ;Password characters #$15 and #$15.
L8FDA: JSR SixLowerAndTwoUpper ;
L8FDD: STA PasswordByte0F ;Store results.
L8FE0: LDY #$15 ;Password characters #$15 and #$16.
L8FE2: JSR FourLowerAndFiveThruTwo ;
L8FE5: STA PasswordByte10 ;Store results.
L8FE8: LDY #$16 ;Password characters #$16 and #$17.
L8FEA: JSR TwoLowerAndSixLower ;
L8FED: STA PasswordByte11 ;Store results.
L8FF0: RTS ;
SixLowerAndTwoUpper:
L8FF1: LDA PasswordChar00,Y ;Remove upper two bits and transfer-->
L8FF4: ASL ;lower six bits to upper six bits.
L8FF5: ASL ;
L8FF6: STA $00 ;
L8FF8: LDA PasswordChar01,Y ;Move bits 4and 5 to lower two-->
L8FFB: JSR Adiv16 ;bits and discard the rest.
L8FFE: ORA $00 ;Combine the two bytes together.
L9000: RTS ;
FourLowerAndFiveThruTwo:
L9001: LDA PasswordChar00,Y ;Take four lower bits and transfer-->
L9004: JSR Amul16 ;them to upper four bits. Discard the rest.
L9007: STA $00 ;
L9009: LDA PasswordChar01,Y ;Remove two lower bits and transfer-->
L900C: LSR ;bits 5 thru 2 to lower four bits.
L900D: LSR ;
L900E: ORA $00 ;Combine the two bytes together.
L9010: RTS ;
TwoLowerAndSixLower:
L9011: LDA PasswordChar00,Y ;Shifts two lower bits to two higest bits-->
L9014: ROR ;and discards the rest
L9015: ROR ;
L9016: ROR ;
L9017: AND #$C0 ;
L9019: STA $00 ;
L901B: LDA PasswordChar01,Y ;Add six lower bits to previous results.
L901E: ORA $00 ;
L9020: RTS ;
PasswordBitmaskTbl:
L9021: .byte $01, $02, $04, $08, $10, $20, $40, $80
;The following table contains the unique items in the game. The two bytes can be deciphered
;as follows:IIIIIIXX XXXYYYYY. I = item type, X = X coordinate on world map, Y = Y coordinate
;on world map. The items have the following values of IIIIII:
;High jump = 000001
;Long beam = 000010 (Not considered a unique item).
;Screw attack = 000011
;Maru Mari = 000100
;Varia suit = 000101
;Wave beam = 000110 (Not considered a unique item).
;Ice beam = 000111 (Not considered a unique item).
;Energy tank = 001000
;Missiles = 001001
;Missile door = 001010
;Bombs = 001100
;Mother brain = 001110
;1st Zeebetite = 001111
;2nd Zeebetite = 010000
;3rd Zeebetite = 010001
;4th Zeebetite = 010010
;5th Zeebetite = 010011
ItemData:
L9029: .word $104E ;Maru Mari at coord 02,0E (Item 0)
L902B: .word $264B ;Missiles at coord 12,0B (Item 1)
L902D: .word $28E5 ;Red door to long beam at coord 07,05 (Item 2)
L902F: .word $2882 ;Red door to Tourian elevator at coord 05,02 (Item 3)
L9031: .word $2327 ;Energy tank at coord 19,07 (Item 4)
L9033: .word $2B25 ;Red door to bombs at coord 1A,05 (Item 5)
L9035: .word $0325 ;Bombs at coord 19,05 (Item 6)
L9037: .word $2A69 ;Red door to ice beam at coord 13,09 (Item 7)
L9039: .word $2703 ;Missiles at coord 18,03 (Item 8)
L903B: .word $2363 ;Energy tank at coord 1B,03 (Item 9)
L903D: .word $29E2 ;Red door to varia suit at coord 0F,02 (Item 10)
L903F: .word $15E2 ;Varia suit at coord 0F,02 (Item 11)
L9041: .word $212E ;Energy tank at coord 09,0E (Item 12)
L9043: .word $264E ;Missiles at coord 12,0E (Item 13)
L9045: .word $262F ;Missiles at coord 11,0F (Item 14)
L9047: .word $2B4C ;Red door to ice beam at coord 1B,0C (Item 15)
L9049: .word $276A ;Missiles at coord 1B,0A (Item 16)
L904B: .word $278A ;Missiles at coord 1C,0A (Item 17)
L904D: .word $278B ;Missiles at coord 1C,0B (Item 18)
L904F: .word $276B ;Missiles at coord 1B,0B (Item 19)
L9051: .word $274B ;Missiles at coord 1A,0B (Item 20)
L9053: .word $268F ;Missiles at coord 14,0F (Item 21)
L9055: .word $266F ;Missiles at coord 13,0F (Item 22)
L9057: .word $2B71 ;Red door to high jump at coord 1C,11 (Item 23)
L9059: .word $0771 ;High jump at coord 1B,11 (Item 24)
L905B: .word $29F0 ;Red door to screw attack at coord 0E,10 (Item 25)
L905D: .word $0DF0 ;Screw attack at coord 0D,1D (Item 26)
L905F: .word $2676 ;Missiles at coord 13,16 (Item 27)
L9061: .word $2696 ;Misslies at coord 14,16 (Item 28)
L9063: .word $2A55 ;Red door to wave beam at coord 1C,15 (Item 29)
L9065: .word $2353 ;Energy tank at coord 1A,13 (Item 30)
L9067: .word $2794 ;Missiles at coord 1C,14 (Item 31)
L9069: .word $28F5 ;Red door at coord 07,15 (Item 32)
L906B: .word $2535 ;Missiles at coord 09,15 (Item 33)
L906D: .word $2495 ;Missiles at coord 04,15 (Item 34)
L906F: .word $28F6 ;Red door at coord 07,16 (Item 35)
L9071: .word $2156 ;Energy tank at coord 0A,16 (Item 36)
L9073: .word $28F8 ;Red door at coord 07,18 (Item 37)
L9075: .word $287B ;Red door at coord 03,1B (Item 38)
L9077: .word $24BB ;Missiles at coord 05,1B (Item 39)
L9079: .word $2559 ;Missiles at coord 0A,19 (Item 40)
L907B: .word $291D ;Red door to Kraid at coord 08,1D (Item 41)
L907D: .word $211D ;Energy tank at coord 08,1D(Kraid's room) (Item 42)
L907F: .word $2658 ;Missiles at coord 12,18 (Item 43)
L9081: .word $2A39 ;Red door at coord 11,19 (Item 44)
L9083: .word $2239 ;Energy tank at coord 11,19 (Item 45)
L9085: .word $269E ;Missiles at coord 14,1E (Item 46)
L9087: .word $2A1D ;purple door at coord 10,1D(Ridley's room) (Item 47)
L9089: .word $21FD ;Energy tank at coord 0F,1D (Item 48)
L908B: .word $271B ;Missile at coord 18,1B (Item 49)
L908D: .word $2867 ;Orange door at coord 03,07 (Item 50)
L908F: .word $2927 ;Red door at coord 09,07 (Item 51)
L9091: .word $292B ;Red door at coord 0A,0B (Item 52)
L9093: .word $3C00 ;1st Zeebetite in mother brain room (Item 53)
L9095: .word $4000 ;2nd Zeebetite in mother brain room (Item 54)
L9097: .word $4400 ;3rd Zeebetite in mother brain room (Item 55)
L9099: .word $4800 ;4th Zeebetite in mother brain room (Item 56)
L909B: .word $4C00 ;5th Zeebetite in mother brain room (Item 57)
L909D: .word $3800 ;Mother brain (Item 58)
ClearAll:
L909F: jsr ScreenOff ;Turn screen off.
L90A2: jsr ClearNameTables ;Turn off screen, clear sprites and name tables.
L90A5: jsr EraseAllSprites ;
L90A8: lda PPUCNT0ZP ;Set Name table address to $2000.
L90AA: and #$FC ;
L90AC: sta PPUCNT0ZP ;
L90AE: lda #$00 ;
L90B0: sta ScrollY ;Reset scroll offsets.
L90B2: sta ScrollX ;
L90B4: jsr WaitNMIPass ;Wait for NMI to end.
L90B7: jmp VBOffAndHorzWrite ;Set PPU for horizontal write and turn off VBlank.
StartContinueScreen:
L90BA: jsr ClearAll ;Turn off screen, erase sprites and nametables.
L90BD: ldx #$84 ;Low address for PPU write.
L90BF: ldy #$99 ;High address for PPU write.
L90C1: jsr PreparePPUProcess ;Clears screen and writes "START CONTINUE".
L90C4: LDY #$00 ;
L90C6: STY StartContinue ;Set selection sprite at START.
L90C9: LDA #$0D ;
L90CB: STA PalDataPending ;Change palette and title routine.
L90CD: LDA #$16 ;Next routine is ChooseStartContinue.
L90CF: STA TitleRoutine ;
TurnOnDisplay:
L90D1: JSR NMIOn ;Turn on the nonmaskable interrupt.
L90D4: JMP ScreenOn ;Turn screen on.
ChooseStartContinue:
L90D7: LDA Joy1Change ;
L90D9: AND #$30 ;Checks both select and start buttons.
L90DB: CMP #$10 ;Check if START has been pressed.
L90DD: BNE ++ ;Branch if START not pressed.
L90DF: LDY StartContinue ;
L90E2: BNE + ;if CONTINUE selected, branch.
L90E4: JMP InitializeStats ;Zero out all stats.
L90E7:* LDY #$17 ;Next routine is LoadPasswordScreen.
L90E9: STY TitleRoutine ;
L90EB:* CMP #$20 ;check if SELECT has been pressed.
L90ED: BNE + ;Branch if SELECT not pressed.
L90EF: LDA StartContinue ;
L90F2: EOR #$01 ;Chooses between START and CONTINUE-->
L90F4: STA StartContinue ;on game select screen.
L90F7: LDA TriangleSFXFlag ;
L90FA: ORA #$08 ;Set SFX flag for select being pressed.-->
L90FC: STA TriangleSFXFlag ;Uses triangle channel.
L90FF:* LDY StartContinue ;
L9102: LDA StartContTbl,Y ;Get y pos of selection sprite.
L9105: STA Sprite00RAM ;
L9108: LDA #$6E ;Load sprite info for square selection sprite.
L910A: STA Sprite00RAM+1 ;
L910D: LDA #$03 ;
L910F: STA Sprite00RAM+2 ;
L9112: LDA #$50 ;Set data for selection sprite.
L9114: STA Sprite00RAM+3 ;
L9117: RTS ;
StartContTbl:
L9118: .byte $60 ;Y sprite position for START.
L9119: .byte $78 ;Y sprite position for CONTINUE.
LoadPasswordScreen:
L911A: JSR ClearAll ;Turn off screen, erase sprites and nametables.
L911D: LDX #$E3 ;Loads PPU with info to display-->
L911F: LDY #$99 ;PASS WORD PLEASE.
L9121: JSR PreparePPUProcess ;Load "PASSWORD PLEASE" on screen.
L9124: JSR InitGFX7 ;Loads the font for the password.
L9127: JSR DisplayInputCharacters ;Write password character to screen.
L912A: LDA #$13 ;
L912C: STA PalDataPending ;Change palette.
L912E: LDA #$00 ;
L9130: STA InputRow ;Sets character select cursor to-->
L9133: STA InputColumn ;upper left character (0).
L9136: STA Timer3 ;
L9138: LDA #$00 ;
L913A: STA PasswordCursor ;Sets password cursor to password character 0.
L913D: LDY #$00 ;
L913F: STY PasswordStat00 ;Appears to have no function.
L9142: INC TitleRoutine ;
L9144: JMP TurnOnDisplay ;Turn on screen and NMI.
EnterPassword:
L9147: JSR EraseAllSprites ;Remove sprites from screen.
L914A: LDA Joy1Change ;
L914C: AND #$10 ;Check to see if START has been pressed.
L914E: BEQ + ;If not, branch.
L9150: JMP CheckPassword ;Check if password is correct.
L9153:* LDX #$01 ;
L9155: STX PPUDataPending ;Prepare to write the password screen data to PPU.
L9157: LDX PPUStrIndex ;
L915A: LDA #$21 ;Upper byte of PPU string.
L915C: JSR WritePPUByte ;Write byte to PPU.
L915F: LDA #$A8 ;Lower byte of PPU string.
L9161: JSR WritePPUByte ;Write byte to PPU.
L9164: LDA #$0F ;PPU string length.
L9166: JSR WritePPUByte ;Write byte to PPU.
L9169: LDA Timer3 ;
L916B: BEQ + ;
L916D: LDA #$59 ;
L916F: STA $02 ;Writes 'ERROR TRY AGAIN' on the screen-->
L9171: LDA #$87 ;if Timer3 is anything but #$00.
L9173: STA $03 ;
L9175: JMP ++ ;
L9178:* LDA #$68 ;
L917A: STA $02 ;
L917C: LDA #$87 ;
L917E: STA $03 ;Writes the blank lines that cover-->
L9180:* LDY #$00 ;the message 'ERROR TRY AGAIN'.
L9182:* LDA ($02),Y ;
L9184: JSR WritePPUByte ;
L9187: INY ;
L9188: CPY #$0F ;
L918A: BNE - ;
L918C: LDA Joy1Change ;If button A pressed, branch.
L918E: BMI + ;
L9190: JMP CheckBackspace ;Check if backspace pressed.
L9193:* LDA TriangleSFXFlag ;Initiate BombLaunch SFX if a character-->
L9196: ORA #$01 ;has been written to the screen.
L9198: STA TriangleSFXFlag ;
L919B: LDA PasswordCursor ;
L919E: CMP #$12 ;Check to see if password cursor is on-->
L91A0: BCC + ;character 19 thru 24. If not, branch.
L91A2: CLC ;
L91A3: ADC #$3E ;Will equal #$50 thru #$55.
L91A5: JMP LoadRowAndColumn ;
L91A8:* CMP #$0C ;Check to see if password cursor is on-->
L91AA: BCC + ;character 13 thru 18. If not, branch.
L91AC: CLC ;
L91AD: ADC #$3D ;Will equal #$49 thru #$4E.
L91AF: JMP LoadRowAndColumn ;
L91B2:* CMP #$06 ;Check to see if password cursor is on-->
L91B4: BCC + ;character 7 thru 12. If not, branch.
L91B6: CLC ;
L91B7: ADC #$0A ;Will equal #$10 thru #$15.
L91B9: JMP LoadRowAndColumn ;
L91BC:* CLC ;
L91BD: ADC #$09 ;Will equal #$09 thru #$0E.
LoadRowAndColumn:
L91BF:* STA $06 ;
L91C1: LDA InputRow ;
L91C4: ASL ;*2. address pointer is two bytes.
L91C5: TAY ;
L91C6: LDA PasswordRowTbl,Y ;Store lower byte of row pointer.
L91C9: STA $00 ;
L91CB: LDA PasswordRowTbl+1,Y ;Store upper byte of row pointer.
L91CE: STA $01 ;
L91D0: LDY InputColumn ;Uses InputColumn value to find proper index-->
L91D3: LDA ($00),Y ;of current character selected.
L91D5: PHA ;Temp storage of A.
L91D6: STA TileInfo0 ;Store value of current character slected.
L91D9: LDA #$11 ;
L91DB: STA TileSize ;
L91DE: LDX $06 ;Replace password character tile with-->
L91E0: LDY #$21 ;the one selected by the player.
L91E2: JSR PrepareEraseTiles ;
L91E5: LDX PasswordCursor ;
L91E8: PLA ;Store the currently selected password character-->
L91E9: STA PasswordChar00,X ;in the proper PasswordChar RAM location.
L91EC: LDA PasswordCursor ;
L91EF: CLC ;
L91F0: ADC #$01 ;
L91F2: CMP #$18 ;
L91F4: BCC + ;Increment PasswordCursor. If at last character,-->
L91F6: LDA #$00 ;loop back to the first character.
L91F8:* STA PasswordCursor ;
CheckBackspace:
L91FB: LDA Joy1Change ;
L91FD: AND #$40 ;If button B (backspace) has not-->
L91FF: BEQ ++ ;been pressed, branch.
L9201: LDA PasswordCursor ;
L9204: SEC ;Subtract 1 from PasswordCursor. If-->
L9205: SBC #$01 ;PasswordCursor is negative, load-->
L9207: BCS + ;PasswordCursor with #$17 (last character).
L9209: LDA #$17 ;
L920B:* STA PasswordCursor ;
L920E:* LDY PasswordStat00 ;Appears to have no function.
L9211: LDA FrameCount ;
L9213: AND #$08 ;If FrameCount bit 3 not set, branch.
L9215: BEQ +++ ;
L9217: LDA #$3F ;
L9219: LDX PasswordCursor ;Load A with #$3F if PasswordCursor is on-->
L921C: CPX #$0C ;character 0 thru 11, else load it with #$4F.
L921E: BCC + ;
L9220: LDA #$4F ;
L9222:* STA Sprite01RAM ;Set Y-coord of password cursor sprite.
L9225: LDA #$6E ;
L9227: STA Sprite01RAM+1 ;Set pattern for password cursor sprite.
L922A: LDA #$20 ;
L922C: STA Sprite01RAM+2 ;Set attributes for password cursor sprite.
L922F: LDA PasswordCursor ;If the password cursor is at the 12th-->
L9232: CMP #$0C ;character or less, branch.
L9234: BCC + ;
L9236: SBC #$0C ;Calculate how many characters the password cursor-->
L9238:* TAX ;is from the left if on the second row of password.
L9239: LDA CursorPosTbl,X ;Load X position of PasswordCursor.
L923C: STA Sprite01RAM+3 ;
L923F:* LDX InputRow ;Load X and Y with row and column-->
L9242: LDY InputColumn ;of current character selected.
L9245: LDA Joy1Retrig ;
L9247: AND #$0F ;If no directional buttons are in-->
L9249: BEQ ++++++++++ ;retrigger mode, branch.
L924B: PHA ;Temp storage of A.
L924C: LDA TriangleSFXFlag ;Initiate BeepSFX when the player pushes-->
L924F: ORA #$08 ;a button on the directional pad.
L9251: STA TriangleSFXFlag ;
L9254: PLA ;Restore A.
L9255: LSR ;Put status of right directional button in carry bit.
L9256: BCC +++ ;Branch if right button has not been pressed.
L9258: INY ;
L9259: CPY #$0D ;Increment Y(column). If Y is greater than #$0C,-->
L925B: BNE ++ ;increment X(Row). If X is greater than #$04,-->
L925D: INX ;set X to #$00(start back at top row) and store-->
L925E: CPX #$05 ;new row in InputRow.
L9260: BNE + ;
L9262: LDX #$00 ;
L9264:* STX InputRow ;
L9267: LDY #$00 ;Store new column in InputColumn.
L9269:* STY InputColumn ;
L926C:* LSR ;Put status of left directional button in carry bit.
L926D: BCC +++ ;Branch if left button has not been pressed.
L926F: DEY ;
L9270: BPL ++ ;Decrement Y(column). If Y is less than #$00,-->
L9272: DEX ;Decrement X(row). If X is less than #$00,-->
L9273: BPL + ;set X to #$04(last row) and store new row-->
L9275: LDX #$04 ;in InputRow.
L9277:* STX InputRow ;
L927A: LDY #$0C ;Store new column in InputColumn.
L927C:* STY InputColumn ;
L927F:* LSR ;Put status of down directional button in carry bit.
L9280: BCC ++ ;Branch if down button has not been pressed.
L9282: INX ;
L9283: CPX #$05 ;Increment X(row). if X is greater than #$04,-->
L9285: BNE + ;set X to #$00(first row) and store new-->
L9287: LDX #$00 ;row in InputRow.
L9289:* STX InputRow ;
L928C:* LSR ;Put status of up directional button in carry bit.
L928D: BCC ++ ;Branch if up button has not been pressed.
L928F: DEX ;
L9290: BPL + ;Decrement X(row). if X is less than #$00,-->
L9292: LDX #$04 ;set X to #$04(last row) and store new-->
L9294:* STX InputRow ;row in InputRow.
L9297:* LDA FrameCount ;
L9299: AND #$08 ;If FrameCount bit 3 not set, branch.
L929B: BEQ + ;
L929D: LDA CharSelectYTbl,X ;Set Y-coord of character selection sprite.
L92A0: STA Sprite02RAM ;
L92A3: LDA #$6E ;Set pattern for character selection sprite.
L92A5: STA Sprite02RAM+1 ;
L92A8: LDA #$20 ;Set attributes for character selection sprite.
L92AA: STA Sprite02RAM+2 ;
L92AD: LDA CharSelectXTbl,Y ;Set x-Coord of character selection sprite.
L92B0: STA Sprite02RAM+3 ;
L92B3:* RTS ;
;The following data does not appear to be used in the program.
L92B4: .byte $21, $20
;The following table is used to determine the proper Y position of the character
;selection sprite on password entry screen.
CharSelectYTbl:
L92B6: .byte $77, $87, $97, $A7, $B7
;The following table is used to determine the proper X position of the character
;selection sprite on password entry screen.
CharSelectXTbl:
L92BB: .byte $20, $30, $40, $50, $60, $70, $80, $90, $A0, $B0, $C0, $D0, $E0
;When the PasswordCursor is on the second row of the password, the following table is used
;to determine the proper x position of the password cursor sprite(password characters 12-23).
CursorPosTbl:
L92C8: .byte $48, $50, $58, $60, $68, $70, $80, $88, $90, $98, $A0, $A8
InitializeGame:
L92D4: JSR ClearRAM_33_DF ;Clear RAM.
L92D7: JSR ClearSamusStats ;Reset Samus stats for a new game.
L92DA: JSR LoadPasswordData ;Load data from password.
L92DD: LDY #$00 ;
L92DF: STY SpritePagePos ;
L92E1: STY PageIndex ;Clear object data.
L92E3: STY ObjectCntrl ;
L92E5: STY ObjectHi ;
L92E8: JSR SilenceMusic ;Turn off music.
L92EB: LDA #$5A ;
L92ED: STA AnimFrame ;Set animframe index. changed by initializing routines.
L92F0: LDX #$01 ;x is the index into the position tables below.
L92F2: LDA InArea ;Load starting area.
L92F4: AND #$0F ;
L92F6: BNE + ;If in area other than Brinstar, get second item in tables.
L92F8: DEX ;Starting in Brinstar. Get forst item in each table.
L92F9:* LDA RestartYPosTbl,X ;
L92FC: STA ObjectY ;Set Samus restart y position on screen.
L92FF: LDA RestartXPosTbl,X ;
L9302: STA ObjectX ;Set Samus restart x position on screen.
L9305: INC SamusStat02 ;The combination of SamusStat02 and 03 keep track of how-->
L9308: BNE + ;many times Samus has died and beaten the game as they are-->
L930A: INC SamusStat03 ;incremented every time this routine is run, but they are-->
L930D:* LDA #$01 ;not accessed anywhere else.
L930F: STA MainRoutine ;Initialize starting area.
L9311: JSR ScreenNmiOff ;Turn off screen.
L9314: JSR LoadSamusGFX ;Load Samus GFX into pattern table.
L9317: JSR NmiOn ;Turn on the non-maskable interrupt.
L931A: LDA InArea ;Load area Samus is to start in.
L931C: AND #$0F ;
L931E: TAY ;
L931F: LDA BankTable,Y ;Change to proper memory page.
L9322: STA SwitchPending ;
L9324: RTS
;The following two tables are used to find Samus y and x positions on the screen after the game
;restarts. The third entry in each table are not used.
RestartYPosTbl:
L9325: .byte $64 ;Brinstar
L9326: .byte $8C ;All other areas.
L9327: .byte $5C ;Not used.
RestartXPosTbl:
L9328: .byte $78 ;Brinstar
L9329: .byte $78 ;All other areas.
L932A: .byte $5C ;Not used.
InitializeStats:
L932B: LDA #$00 ;
L932D: STA SamusStat00 ;
L9330: STA TankCount ;
L9333: STA SamusGear ;
L9336: STA MissileCount ;
L9339: STA MaxMissiles ;
L933C: STA KraidStatueStatus ;Set all of Samus' stats to 0 when starting new game.
L933F: STA RidleyStatueStatus ;
L9342: STA SamusAge ;
L9345: STA SamusAge+1 ;
L9348: STA SamusAge+2 ;
L934B: STA SamusStat01 ;
L934E: STA AtEnding ;
L9351: STA JustInBailey ;
L9354: LDA #$02 ;
L9356: STA SwitchPending ;Prepare to switch to Brinstar memory page.
L9358:* RTS ;
DisplayPassword:
L9359: LDA Timer3 ;Wait for "GAME OVER" to be displayed-->
L935B: BNE - ;for 160 frames (2.6 seconds).
L935D: JSR ClearAll ;Turn off screen, erase sprites and nametables.
L9360: LDX #$7F ;Low byte of start of PPU data.
L9362: LDY #$93 ;High byte of start of PPU data.
L9364: JSR PreparePPUProcess ;Clears screen and writes "PASS WORD".
L9367: JSR InitGFX7 ;Loads the font for the password.
L936A: JSR CalculatePassword ;Calculates the password.
L936D: JSR NmiOn ;Turn on the nonmaskable interrupt.
L9370: JSR PasswordToScreen ;Displays password on screen.
L9373: JSR WaitNMIPass ;Wait for NMI to end.
L9376: LDA #$13 ;
L9378: STA PalDataPending ;Change palette.
L937A: INC TitleRoutine ;
L937C: JMP ScreenOn ;Turn screen on.
;Information below is for above routine to display "PASS WORD" on the screen.
L937F: .byte $21 ;PPU memory high byte.
L9380: .byte $4B ;PPU memory low byte.
L9381: .byte $09 ;PPU string length.
; 'P A S S _ W O R D'
L9382: .byte $19, $0A, $1C, $1C, $FF, $20, $18, $1B, $0D
;Information to be stored in attribute table 0.
L938B: .byte $23 ;PPU memory high byte.
L938C: .byte $D0 ;PPU memory low byte.
L938D: .byte $48 ;RLE bit set, repeat entry 8 times.
L938E: .byte $00 ;Clears line below "PASS WORD".
L938F: .byte $23 ;PPU memory high byte.
L9390: .byte $D8 ;PPU memory low byte.
L9391: .byte $60 ;RLE bit set, repeat entry 32 times.
L9392: .byte $55 ;Turn color on to display password characters.
L9393: .byte $00 ;End PPU string write.
WaitForSTART:
L9394: LDA Joy1Change ;Waits for START to be ressed proceed-->
L9396: AND #$10 ;past the GAME OVER screen.
L9398: BEQ + ;If start not pressed, branch.
L939A: JMP CheckPassword ;Check if password is correct.
L939D:* RTS ;
GameOverTitle:
L939E: JSR ClearAll ;Turn off screen, erase sprites and nametables.
L93A1: LDX #$B9 ;Low byte of start of PPU data.
L93A3: LDY #$93 ;High byte of start of PPU data.
L93A5: JSR PreparePPUProcess ;Clears screen and writes "GAME OVER".
L93A8: JSR InitGFX7 ;Loads the font for the password.
L93AB: JSR NmiOn ;Turn on the nonmaskable interrupt.
L93AE: LDA #$10 ;Load Timer3 with a delay of 160 frames-->
L93B0: STA Timer3 ;(2.6 seconds) for displaying "GAME OVER".
L93B2: LDA #$19 ;Loads TitleRoutine with -->
L93B4: STA TitleRoutine ;DisplayPassword.
L93B6: JMP ScreenOn ;Turn screen on.
;Information below is for above routine to display "GAME OVER" on the screen.
L93B9: .byte $21 ;PPU memory high byte.
L93BA: .byte $8C ;PPU memory low byte.
L93BB: .byte $09 ;PPU string length.
; 'G A M E _ O V E R'
L93BC: .byte $10, $0A, $16, $0E, $FF, $18, $1F, $0E, $1B
L93C4: .byte $00 ;End PPU string write.
PasswordToScreen:
L93C6: JSR WaitNMIPass ;Wait for NMI to end.
L93C9: LDY #$05 ;Index to find password characters(base=$699A).
L93CB: JSR LoadPasswordTiles ;Load tiles on screen.
L93CE: LDX #$A9 ;PPU low address byte.
L93D0: LDY #$21 ;PPU high address byte.
L93D2: JSR PrepareEraseTiles ;Erase tiles on screen.
L93D5: LDY #$0B ;Index to find password characters(base=$699A).
L93D7: JSR LoadPasswordTiles ;Load tiles on screen.
L93DA: LDX #$B0 ;PPU low address byte.
L93DC: LDY #$21 ;PPU high address byte.
L93DE: JSR PrepareEraseTiles ;Erase tiles on screen.
L93E1: LDY #$11 ;Index to find password characters(base=$699A).
L93E3: JSR LoadPasswordTiles ;Load tiles on screen.
L93E6: LDX #$E9 ;PPU low address byte.
L93E8: LDY #$21 ;PPU high address byte.
L93EA: JSR PrepareEraseTiles ;Erase tiles on screen.
L93ED: LDY #$17 ;Index to find password characters(base=$699A).
L93EF: JSR LoadPasswordTiles ;Load tiles on screen.
L93F2: LDX #$F0 ;PPU low address byte.
L93F4: LDY #$21 ;PPU high address byte.
L93F6: JMP PrepareEraseTiles ;Erase tiles on screen.
LoadPasswordTiles:
L93F9: LDA #$16 ;Tiles to replace are one block-->
L93FB: STA TileSize ;high and 6 blocks long.
L93FE: LDX #$05 ;
L9400:* LDA PasswordChar00,Y ;
L9403: STA TileInfo0,X ;
L9406: DEY ;Transfer password characters to-->
L9407: DEX ;TileInfo addresses.
L9408: BPL- ;
L940A: RTS ;
DisplayInputCharacters:
L940B: LDA PPUStatus ;Clear address latches.
L940E: LDY #$00 ;
L9410: TYA ;Initially sets $00 an $01.
L9411: STA $00 ;to #$00.
L9413: STA $01 ;Also, initialy sets x and y to #$00.
L9415:* ASL ;
L9416: TAX ;
L9417: LDA PasswordRowsTbl,X ;
L941A: STA PPUAddress ;
L941D: LDA PasswordRowsTbl+1,X ;Displays the list of characters -->
L9420: sTA PPUAddress ;to choose from on the password-->
L9423: LDX #$00 ;entry screen.
L9425:* LDA PasswordRow0,Y ;
L9428: STA PPUIOReg ;
L942B: LDA #$FF ;Blank tile.
L942D: STA PPUIOReg ;
L9430: INY ;
L9431: INX ;
L9432: CPX #$0D ;13 characters in current row?
L9434: BNE - ;if not, add another character.
L9436: INC $01 ;
L9438: LDA $01 ;
L943A: CMP #$05 ;5 rows?
L943C: BNE -- ;If not, go to next row.
L943E: RTS ;
;The table below is used by the code above to determine the positions
;of the five character rows on the password entry screen.
PasswordRowsTbl:
L943F: .byte $21, $E4 ;
L9441: .byte $22, $24 ;The two entries in each row are the upper and lower address-->
L9443: .byte $22, $64 ;bytes to start writing to the name table, respectively.
L9445: .byte $22, $A4 ;
L9447: .byte $22, $E4 ;
PreparePPUProcess:
L9449: stx $00 ;Lower byte of pointer to PPU string
L944B: sty $01 ;Upper byte of pointer to PPU string
L944D: jmp ProcessPPUString ;
PrepareEraseTiles:
L9450: STX $00 ;PPU low address byte
L9452: STY $01 ;PPU high address byte
L9454: LDX #$80 ;
L9456: LDY #$07 ;
L9458: STX $02 ;Address of byte where tile size-->
L945A: STY $03 ;of tile to be erased is stored.
L945C: JMP EraseTile ;Erase the selected tiles.
.advance $9560, $00
;--------------------------------------[ Palette data ]---------------------------------------------
;The following table points to the palette data
;used in the intro and ending portions of the game.
PaletteColorsPointerTable:
L9560: .word Palette00 ;
L9562: .word Palette01 ;
L9564: .word Palette02 ;
L9566: .word Palette03 ;
L9568: .word Palette04 ;
L956A: .word Palette05 ;
L956C: .word Palette06 ;
L956E: .word Palette07 ;
L9570: .word Palette08 ;
L9572: .word Palette09 ;
L9574: .word Palette0A ;
L9576: .word Palette0B ;
L9578: .word Palette0C ;
L957A: .word Palette0D ;
L957C: .word Palette0E ;
L957E: .word Palette0F ;
L9580: .word Palette10 ;
L9582: .word Palette11 ;
L9584: .word Palette12 ;
Palette00:
L9586: .byte $3F ;Upper byte of PPU palette adress.
L9587: .byte $00 ;Lower byte of PPU palette adress.
L9588: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9589: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $0F, $0F, $0F, $0F, $0F, $0F, $0F
;The following values are written to the sprite palette:
L9599: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L95A9: .byte $00 ;End Palette01 info.
Palette01:
L95AA: .byte $3F ;Upper byte of PPU palette adress.
L95AB: .byte $00 ;Lower byte of PPU palette adress.
L96AC: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L95AD: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $35, $35, $04, $0F, $35, $14, $04
;The following values are written to the sprite palette:
L95BD: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L95CD: .byte $00 ;End Palette02 info.
Palette02:
L95CE: .byte $3F ;Upper byte of PPU palette adress.
L95CF: .byte $00 ;Lower byte of PPU palette adress.
L95D0: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L95D1: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $39, $39, $09, $0F, $39, $29, $09
;The following values are written to the sprite palette:
L95E1: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L95F1: .byte $00 ;End Palette03 info.
Palette03:
L95F2: .byte $3F ;Upper byte of PPU palette adress.
L95F3: .byte $00 ;Lower byte of PPU palette adress.
L95F4: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L95F5: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $36, $36, $06, $0F, $36, $15, $06
;The following values are written to the sprite palette:
L9605: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L9615: .byte $00 ;End Palette04 info.
Palette04:
L9616: .byte $3F ;Upper byte of PPU palette adress.
L9617: .byte $00 ;Lower byte of PPU palette adress.
L9618: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9619: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $27, $27, $12, $0F, $27, $21, $12
;The following values are written to the sprite palette:
L9629: .byte $0F, $16, $1A, $27, $0F, $31, $20, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L9639: .byte $00 ;End Palette05 info.
Palette05:
L963A: .byte $3F ;Upper byte of PPU palette adress.
L963B: .byte $00 ;Lower byte of PPU palette adress.
L963C: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L963D: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $01, $01, $0F, $0F, $01, $0F, $0F
;The following values are written to the sprite palette:
L964D: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L965D: .byte $00 ;End Palette06 info.
Palette06:
L965E: .byte $3F ;Upper byte of PPU palette adress.
L965F: .byte $00 ;Lower byte of PPU palette adress.
L9660: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9661: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $01, $01, $0F, $0F, $01, $01, $0F
;The following values are written to the sprite palette:
L9671: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L9681: .byte $00 ;End Palette07 info.
Palette07:
L9682: .byte $3F ;Upper byte of PPU palette adress.
L9683: .byte $00 ;Lower byte of PPU palette adress.
L9684: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9685: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $02, $02, $01, $0F, $02, $02, $01
;The following values are written to the sprite palette:
L9695: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L96A5: .byte $00 ;End Palette08 info.
Palette08:
L96A6: .byte $3F ;Upper byte of PPU palette adress.
L96A7: .byte $00 ;Lower byte of PPU palette adress.
L96A8: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L96A9: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $02, $02, $01, $0F, $02, $01, $01
;The following values are written to the sprite palette:
L96B9: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L96C9: .byte $00 ;End Palette09 info.
Palette09:
L96CA: .byte $3F ;Upper byte of PPU palette adress.
L96CB: .byte $00 ;Lower byte of PPU palette adress.
L96CC: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L96CD: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $12, $12, $02, $0F, $12, $12, $02
;The following values are written to the sprite palette:
L96DD: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L96ED: .byte $00 ;End Palette0A info.
Palette0A:
L96EE: .byte $3F ;Upper byte of PPU palette adress.
L96EF: .byte $00 ;Lower byte of PPU palette adress.
L96F0: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L96F1: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $11, $11, $02, $0F, $11, $02, $02
;The following values are written to the sprite palette:
L9701: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L9711: .byte $00 ;End Palette0B info.
Palette0B:
L9712: .byte $3F ;Upper byte of PPU palette adress.
L9713: .byte $00 ;Lower byte of PPU palette adress.
L9714: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9715: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $31, $31, $01, $0F, $31, $11, $01
;The following values are written to the sprite palette:
L9716: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L9735: .byte $00 ;End Palette0C info.
Palette0C:
L9736: .byte $3F ;Upper byte of PPU palette adress.
L9737: .byte $00 ;Lower byte of PPU palette adress.
L9738: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9739: .byte $0F, $28, $18, $08, $0F, $12, $30, $21, $0F, $27, $28, $29, $0F, $31, $31, $01
;The following values are written to the sprite palette:
L9749: .byte $0F, $16, $2A, $27, $0F, $12, $30, $21, $0F, $27, $24, $2C, $0F, $15, $21, $38
L9759: .byte $00 ;End Palette0D info.
Palette0D:
L975A: .byte $3F ;Upper byte of PPU palette adress.
L975B: .byte $00 ;Lower byte of PPU palette adress.
L975C: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L975D: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $12, $12, $01, $0F, $12, $02, $01
;The following values are written to the sprite palette:
L975E: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L977D: .byte $00 ;End Palette0E info.
Palette0E:
L977E: .byte $3F ;Upper byte of PPU palette adress.
L977F: .byte $00 ;Lower byte of PPU palette adress.
L9780: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L9781: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $02, $02, $0F, $0F, $02, $01, $0F
;The following values are written to the sprite palette:
L9791: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L97A1: .byte $00 ;End Palette0F info.
Palette0F:
L97A2: .byte $3F ;Upper byte of PPU palette adress.
L97A3: .byte $00 ;Lower byte of PPU palette adress.
L97A4: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L97A5: .byte $0F, $28, $18, $08, $0F, $29, $1B, $1A, $0F, $01, $01, $0F, $0F, $01, $0F, $0F
;The following values are written to the sprite palette:
L97B5: .byte $0F, $16, $1A, $27, $0F, $37, $3A, $1B, $0F, $17, $31, $37, $0F, $32, $22, $12
L97C5: .byte $00 ;End Palette10 info.
Palette10:
L97C6: .byte $3F ;Upper byte of PPU palette adress.
L97C7: .byte $00 ;Lower byte of PPU palette adress.
L97C8: .byte $20 ;Palette data length.
;The following values are written to the background palette:
L97C9: .byte $30, $28, $18, $08, $30, $29, $1B, $1A, $30, $30, $30, $30, $30, $30, $30, $30
;The following values are written to the sprite palette:
L97D9: .byte $30, $16, $1A, $27, $30, $37, $3A, $1B, $30, $17, $31, $37, $30, $32, $22, $12
L97E9: .byte $00 ;End Palette11 info.
Palette11:
L97EA: .byte $3F ;Upper byte of PPU palette adress.
L97EB: .byte $00 ;Lower byte of PPU palette adress.
L97EC: .byte $04 ;Palette data length.
;The following values are written to the background palette:
L97ED: .byte $0F, $30, $30, $21
L98F1: .byte $00 ;End Palette12 info.
Palette12:
L97F2: .byte $3F ;Upper byte of PPU palette adress.
L97F3: .byte $00 ;Lower byte of PPU palette adress.
L97F4: .byte $10 ;Palette data length.
;The following values are written to the background palette:
L97F5: .byte $0F, $30, $30, $0F, $0F, $2A, $2A, $21, $0F, $31, $31, $0F, $0F, $2A, $2A, $21
L9805: .byte $00 ;End Palette13 data.
EndGamePal0B:
L9806: .byte $3F ;Upper byte of PPU palette adress.
L9807: .byte $00 ;Lower byte of PPU palette adress.
L9808: .byte $10 ;Palette data length.
;The following values are written to the background palette:
L9809: .byte $0F, $2C, $2C, $2C, $0F, $2C, $2C, $2C, $0F, $2C, $2C, $2C, $0F, $2C, $2C, $2C
EndGamePal0C:
L9819: .byte $3F ;Upper byte of PPU palette adress.
L981A: .byte $10 ;Lower byte of PPU palette adress.
L981B: .byte $50 ;Palette data length.
L981C: .byte $0F ;Repeat bit set. Fill sprite palette with #$0F.
L981D: .byte $00 ;End EndGamePal0C data.
UpdateSpriteCoords:
L981E: LDA IntroSpr0XRun,X ;Load sprite run(sprite x component).
L9821: JSR CalcDisplacement ;Calculate sprite displacement in x direction.
L9824: LDY IntroSpr0XDir,X ;Get byte describing if sprite increasing or decreasing pos.
L9827: BPL + ;
L9829: EOR #$FF ;If MSB is set, sprite is decreasing position. convert-->
L982B: CLC ;value in A (result from CalcDisplacement) to twos compliment.
L982C: ADC #$01 ;
L982E:* CLC ;
L982F: ADC IntroSpr0XCoord,X ;Add change to sprite x coord.
L9832: STA IntroSpr0XCoord,X ;
L9835: SEC ;
L9836: SBC IntroSpr0XChange,X ;Subtract total sprite movemnt value from current sprite x pos.
L9839: PHP ;Transfer processor status to A.
L983A: PLA ;
L983B: EOR IntroSpr0XDir,X ;Eor carry bit with direction byte to see if sprite has-->
L983E: LSR ;reached its end point.
L983F: BCC++ ;Branch if sprite has reached the end of x movement.
L9841: LDA IntroSpr0YRise,X ;Load sprite rise(sprite y component).
L9844: JSR CalcDisplacement ;Calculate sprite displacement in y direction.
L9847: LDY IntroSpr0YDir,X ;Get byte describing if sprite increasing or decreasing pos.
L984A: BPL + ;
L984C: EOR #$FF ;If MSB is set, sprite is decreasing position. convert-->
L984E: CLC ;value in A (result from CalcDisplacement) to twos compliment.
L984F: ADC #$01 ;
L9851:* CLC ;
L9852: ADC IntroSpr0YCoord,X ;Add change to sprite y coord.
L9855: STA IntroSpr0YCoord,X ;
L9858: SEC ;
L9859: SBC IntroSpr0YChange,X ;Subtract total sprite movemnt value from current sprite y pos.
L985C: PHP ;Transfer processor status to A.
L985D: PLA ;
L985E: EOR IntroSpr0YDir,X ;Eor carry bit with direction byte to see if sprite has-->
L9861: LSR ;reached its end point.
L9862: BCS ++ ;Branch if sprite has not reached the end of y movement.
L9864:* LDA IntroSpr0YChange,X ;After sprite has reached its final position, this code-->
L9867: STA IntroSpr0YCoord,X ;explicitly writes final the x and y coords to to sprite-->
L986A: LDA IntroSpr0XChange,X ;position addresses to make sure the sprites don't-->
L986D: STA IntroSpr0XCoord,X ;overshoot their mark.
L9870:* RTS ;
CalcDisplacement:
L9871: STA $04 ;
L9873: LDA #$08 ;Time division. The higher the number, the slower the sprite.
L9875: STA $00 ;
L9877:* LSR $04 ;
L9879: BCC + ;
L987B: LDA FrameCount ;
L987D: AND $00 ;Calculate the change in the sprite position by taking the-->
L987F: BNE + ;value in a and dividing it by the time division. The time-->
L9881: INC $04 ;time division in this case is #$08.
L9883:* LSR $00 ;
L9885: BNE -- ;
L9887: LDA $04 ;
L9889: RTS ;Return A/time.
;This function decrements the y coordinate of the 40 intro star sprites.
DecSpriteYCoord:
L988A: LDA TitleRoutine ;
L988C: CMP #$1D ;
L988E: BCS ++ ;If the end game is playing, branch to exit.
L9890: LDA SpriteLoadPending ;
L9892: BEQ ++ ;If no sprite load is pending, branch to exit.
L9894: LDA FrameCount ;
L9896: LSR ;
L9897: BCS ++ ;If not on an odd numbered frame, branch to exit.
L9899: LDX #$9F ;
L989B:* DEC IntroStarSprite00,X ;Decrement y coord of the intro star sprites.
L989E: DEC Sprite18RAM,X ;Decrement y coord of 40 sprites.
L98A1: DEX ;
L98A2: DEX ;
L98A3: DEX ;Move to next sprite.
L98A4: DEX ;
L98A5: CPX #$FF ;
L98A7: BNE - ;Loop 40 times.
L98A9: LDA #$00 ;
L98AB: STA SpriteLoadPending ;Sprite RAM load complete.
L98AD:* RTS ;
LoadStarSprites:
L98AE: LDY #$9F ;
L98B0:* LDA IntroStarSprite00,Y ;
L98B3: STA Sprite18RAM,Y ;Store RAM contents of $6E00 thru $6E9F -->
L98B6: DEY ;in sprite RAM at locations $0260 thru $02FF.
L98B7: CPY #$FF ;
L98B9: BNE - ;
L98BB: LDA #$00 ;
L98BD: STA SpriteLoadPending ;Set $C8 to #$00.
L98BF: RTS ;
;The following values are loaded into RAM $6E00 thru $6E9F in InitBank0
;routine. These values are then loaded into sprite RAM at $0260 thru $02FF
;in above routine. They are the stars in the title screen.
IntroStarsData:
L98C0: .byte $73, $CC, $22, $F2, $48, $CD, $63, $EE, $2A, $CE, $A2, $DC, $36, $CF, $E2, $C6
L98D0: .byte $11, $CC, $23, $B7, $53, $CD, $63, $A0, $BB, $CE, $A2, $9A, $0F, $CF, $E2, $8B
L98E0: .byte $85, $CC, $E2, $70, $9D, $CD, $A3, $6B, $A0, $CE, $63, $58, $63, $CF, $23, $4F
L98F0: .byte $0A, $CC, $22, $39, $1F, $CD, $23, $2A, $7F, $CE, $A3, $1F, $56, $CF, $A2, $03
L9900: .byte $4D, $CC, $E3, $AF, $3E, $CD, $63, $2B, $61, $CE, $E2, $4F, $29, $CF, $62, $6F
L9910: .byte $8A, $CC, $23, $82, $98, $CD, $A3, $07, $AE, $CE, $E2, $CA, $B6, $CF, $63, $E3
L9920: .byte $0F, $CC, $62, $18, $1F, $CD, $22, $38, $22, $CE, $A3, $5F, $53, $CF, $E2, $78
L9930: .byte $48, $CC, $E3, $94, $37, $CD, $A3, $B3, $6F, $CE, $A3, $DC, $78, $CF, $22, $FE
L9940: .byte $83, $CC, $62, $0B, $9F, $CD, $23, $26, $A0, $CE, $62, $39, $BD, $CF, $A2, $1C
L9950: .byte $07, $CC, $E3, $A4, $87, $CD, $63, $5D, $5A, $CE, $62, $4F, $38, $CF, $23, $85
;Not used.
L9960: .byte $3F, $00, $20, $02, $20, $1B, $3A, $02, $20, $21, $01, $02, $2C, $30, $27, $02
L9970: .byte $26, $31, $17, $02, $16, $19, $27, $02, $16, $20, $27, $02, $16, $20, $11, $02
L9980: .byte $01, $20, $21, $00
L9984: .byte $21 ;PPU address high byte.
L9985: .byte $8C ;PPU address low byte.
L9986: .byte $05 ;PPU string length.
; 'S T A R T'
L9987: .byte $1C, $1D, $0A, $1B, $1D
L998C: .byte $21 ;PPU address high byte.
L998D: .byte $EC ;PPU address low byte.
L998E: .byte $08 ;PPU string length.
; 'C O N T I N U E'
L998F: .byte $0C, $18, $17, $1D, $12, $17, $1E, $0E
L9997: .byte $00 ;End PPU string write
;The following pointer table is used to find the start
;of each row on the password screen in the data below.
PasswordRowTbl:
L9998: .word PasswordRow0 ;
L999A: .word PasswordRow1 ;
L999C: .word PasswordRow2 ;
L999E: .word PasswordRow3 ;
L99A0: .word PasswordRow4 ;
;The following data is used to load the name table With the password characters:
PasswordRow0:
L99A2: .byte $00 ;0
L99A3: .byte $01 ;1
L99A4: .byte $02 ;2
L99A5: .byte $03 ;3
L99A6: .byte $04 ;4
L99A7: .byte $05 ;5
L99A8: .byte $06 ;6
L99A9: .byte $07 ;7
L99AA: .byte $08 ;8
L99AB: .byte $09 ;9
L99AC: .byte $0A ;A
L99AD: .byte $0B ;B
L99AE: .byte $0C ;C
PasswordRow1:
L99AF: .byte $0D ;D
L99B0: .byte $0E ;E
L99B1: .byte $0F ;F
L99B2: .byte $10 ;G
L99B3: .byte $11 ;H
L99B4: .byte $12 ;I
L99B5: .byte $13 ;J
L99B6: .byte $14 ;K
L99B7: .byte $15 ;L
L99B8: .byte $16 ;M
L99B9: .byte $17 ;N
L99BA: .byte $18 ;O
L99BB: .byte $19 ;P
PasswordRow2:
L99BC: .byte $1A ;Q
L99BD: .byte $1B ;R
L99BE: .byte $1C ;S
L99BF: .byte $1D ;T
L99C0: .byte $1E ;U
L99C1: .byte $1F ;V
L99C2: .byte $20 ;W
L99C3: .byte $21 ;X
L99C4: .byte $22 ;Y
L99C5: .byte $23 ;Z
L99C6: .byte $24 ;a
L99C7: .byte $25 ;b
L99C8: .byte $26 ;c
PasswordRow3:
L99C9: .byte $27 ;d
L99CA: .byte $28 ;e
L99CB: .byte $29 ;f
L99CC: .byte $2A ;g
L99CD: .byte $2B ;h
L99CE: .byte $2C ;i
L99CF: .byte $2D ;j
L99D0: .byte $2E ;k
L99D1: .byte $2F ;l
L99D2: .byte $30 ;m
L99D3: .byte $31 ;n
L99D4: .byte $32 ;o
L99D5: .byte $33 ;p
PasswordRow4:
L99D6: .byte $34 ;q
L99D7: .byte $35 ;r
L99D8: .byte $36 ;s
L99D9: .byte $37 ;t
L99DA: .byte $38 ;u
L99DB: .byte $39 ;v
L99DC: .byte $3A ;w
L99DD: .byte $3B ;x
L99DE: .byte $3C ;y
L99DF: .byte $3D ;z
L99E0: .byte $3E ;?
L99E1: .byte $3F ;-
L99E2: .byte $FF ;Space
;Writes 'PASSWORD PLEASE' on name table 0 in row $2080 (5th row from top).
L99E3: .byte $20 ;PPU address high byte.
L99E4: .byte $88 ;PPU address low byte.
L99E5: .byte $10 ;PPU string length.
; 'P A S S _ W O R D _ P L E A S E'
L99E6: .byte $19, $0A, $1C, $1C, $FF, $20, $18, $1B, $0D, $FF, $19, $15, $0E, $0A, $1C, $0E
;Clears attribute table 0 starting at address $23C0.
L99F6: .byte $23 ;PPU address high byte.
L99F7: .byte $C0 ;PPU address low byte.
L99F8: .byte $50 ;PPU string length.
L99F9: .byte $00 ;Repeat bit set. Repeats entry 16 times.
;Writes to attribute table 0 starting at address $23D0.
L99FA: .byte $23 ;PPU address high byte.
L99FB: .byte $D0 ;PPU address low byte.
L99FC: .byte $48 ;PPU string length.
L99FD: .byte $55 ;Repeat bit set. Repeats entry 8 times.
;Writes to attribute table 0 starting at address $23D8.
L99FE: .byte $23 ;PPU address high byte.
L99FF: .byte $D8 ;PPU address low byte.
L9A00: .byte $60 ;PPU string length.
L9A01: .byte $FF ;Repeat bit set. Repeats entry 32 times.
;Writes to attribute table 0 starting at address $23DA.
L9A02: .byte $23 ;PPU address high byte.
L9A03: .byte $DA ;PPU address low byte.
L9A04: .byte $44 ;PPU string length.
L9A05: .byte $F0 ;Repeat bit set. Repeats entry 4 times.
L9A06: .byte $00 ;End PPU string write.
;----------------------------------------[ Ending routines ]-----------------------------------------
;The following routine is accessed via the NMI routine every frame.
NMIScreenWrite:
L9A07: LDA TitleRoutine ;
L9A09: CMP #$1D ;If titleRoutine not at end game, exit.
L9A0B: BCC Exit100 ;
L9A0D: JSR LoadCredits ;Display end credits on screen.
L9A10: LDA EndMsgWrite ;
L9A12: BEQ + ;If not time to write end message, branch
L9A14: CMP #$05 ;
L9A16: BCS + ;If end message is finished being written, branch
L9A18: ASL ;
L9A19: TAY ;
L9A1A: LDX EndMessageStringTbl0-2,Y ;Writes the end message on name table 0
L9A1D: LDA EndMessageStringTbl0-1,Y ;
L9A20: TAY ;
L9A21: JSR PreparePPUProcess_ ;Prepare to write to PPU.
L9A24:* LDA HideShowEndMsg ;
L9A26: BEQ Exit100 ;If not time to erase end message, branch
L9A28: CMP #$05 ;
L9A2A: BCS Exit100 ;If end message is finished being erased, branch
L9A2C: ASL ;
L9A2D: TAY ;
L9A2E: LDX EndMessageStringTbl1-2,Y ;Erases the end message on name table 0
L9A31: LDA EndMessageStringTbl1-1,Y ;
L9A34: TAY ;
L9A35: JMP PreparePPUProcess_ ;Prepare to write to PPU.
Exit100:
L9A38: RTS ;Exit from above and below routines.
Restart:
L9A39: LDA Joy1Status ;
L9A3B: AND #$10 ;If start has not been pressed, branch to exit.
L9A3D: BEQ Exit100 ;
L9A3F: LDY #$11 ;
L9A41: LDA #$00 ;
L9A43:* STA PasswordByte00,Y ;Erase PasswordByte00 thru PasswordByte11.
L9A46: DEY ;
L9A47: BPL - ;
L9A49: INY ;Y = #$00.
L9A4A:* STA UniqueItemHistory,Y ;
L9A4D: INY ;Erase Unique item history.
L9A4E: BNE - ;
L9A50: LDA SamusGear ;
L9A53: AND #$10 ;
L9A55: BEQ + ;If Samus does not have Maru Mari, branch.-->
L9A57: LDA #$01 ;Else load Maru Mari data into PasswordByte00.
L9A59: STA PasswordByte00 ;
L9A5C:* LDA SamusGear ;
L9A5F: AND #$01 ;
L9A61: BEQ + ;If Samus does not have bombs, branch.-->
L9A63: LDA PasswordByte00 ;Else load bomb data into PasswordByte00.
L9A66: ORA #$40 ;
L9A68: STA PasswordByte00 ;
L9A6B:* LDA SamusGear ;
L9A6E: AND #$20 ;
L9A70: BEQ + ;If Samus does not have varia suit, branch.-->
L9A72: LDA #$08 ;Else load varia suit data into PasswordByte01.
L9A74: STA PasswordByte01 ;
L9A77:* LDA SamusGear ;
L9A7A: AND #$02 ;
L9A7C: BEQ + ;If Samus does not have high jump, branch.-->
L9A7E: LDA #$01 ;Else load high jump data into PasswordByte03.
L9A80: STA PasswordByte03 ;
L9A83:* LDA SamusGear ;
L9A86: AND #$10 ;If Samus does not have Maru Mari, branch.-->
L9A88: BEQ + ;Else load screw attack data into PasswordByte03.-->
L9A8A: LDA PasswordByte03 ;A programmer error? Should check for screw-->
L9A8D: ORA #$04 ;attack data.
L9A8F: STA PasswordByte03 ;
L9A92:* LDA SamusGear ;
L9A95: STA PasswordByte09 ;Store Samus gear data in PasswordByte09.
L9A98: LDA #$00 ;
L9A9A: LDY JustInBailey ;
L9A9D: BEQ + ;If Samus is wearing suit, branch. Else-->
L9A9F: LDA #$80 ;load suitless Samus data into PasswordByte08.
L9AA1:* STA PasswordByte08 ;
L9AA4: JMP InitializeGame ;Clear RAM to restart game at beginning.
EndGame:
L9AA7: JSR LoadEndStarSprites ;Load stars in end scene onto screen.
L9AAA: LDA IsCredits ;Skips palette change when rolling credits.
L9AAC: BNE + ;
L9AAE: LDA FrameCount ;
L9AB0: AND #$0F ;Changes star palettes every 16th frame.
L9AB2: BNE + ;
L9AB4: INC PalDataPending ;
L9AB6: LDA PalDataPending ;Reset palette data to #$01 after it-->
L9AB8: CMP #$09 ;reaches #$09.
L9ABA: BNE + ;
L9ABC: LDA #$01 ;
L9ABE: STA PalDataPending ;
L9AC0:* LDA RoomPtr ;RoomPtr used in end of game to determine-->
L9AC2: JSR ChooseRoutine ;Which subroutine to run below.
L9AC5: .word LoadEndGFX ;Load end GFX to pattern tables.
L9AC7: .word ShowEndSamus ;Show Samus and end message.
L9AC9: .word EndSamusFlash ;Samus flashes and changes.
L9ACB: .word SamusWave ;Samus waving in ending if suitless.
L9ACD: .word EndFadeOut ;Fade out Samus in ending.
L9ACF: .word RollCredits ;Rolls ending credits.
L9AD1: .word Restart ;Starts at beginning after game completed.
L9AD3: .word ExitSub ;Rts.
LoadEndGFX:
L9AD5: JSR ClearAll ;Turn off screen, erase sprites and nametables.
L9AD8: JSR InitEndGFX ;Prepare to load end GFX.
L9ADB: LDA #$04 ;
L9ADD: LDY JustInBailey ;Checks if game was played as suitless-->
L9AE0: BNE + ;Samus. If so, branch.
L9AE2: LDA #$00 ;Loads SpritePointerIndex with #$00(suit on).
L9AE4:* STA EndingType ;
L9AE7: ASL ;Loads SpritePointerIndex with #$08(suitless).
L9AE8: STA SpritePointerIndex ;
L9AEA: LDX #$52 ;Loads the screen where Samus stands on-->
L9AEC: LDY #$A0 ;the surface of the planet in end of game.
L9AEE: JSR PreparePPUProcess_ ;Prepare to write to PPU.
L9AF1: JSR NmiOn ;Turn on non-maskable interrupt.
L9AF4: LDA #$20 ;Initiate end game music.
L9AF6: STA MultiSFXFlag ;
L9AF9: LDA #$60 ;Loads Timer3 with a delay of 960 frames-->
L9AFB: STA Timer3 ;(16 seconds).
L9AFD: LDA #$36 ;#$36/#$03 = #$12. Number of sprites-->
L9AFF: STA SpriteByteCounter ;used to draw end graphic of Samus.
L9B01: LDA #$00 ;
L9B03: STA SpriteAttribByte ;
L9B05: STA ColorCntIndex ;
L9B07: STA IsCredits ;The following values are-->
L9B09: STA EndMsgWrite ;initialized to #$00.
L9B0B: STA HideShowEndMsg ;
L9B0D: STA CreditPageNumber ;
L9B0F: LDA #$01 ;
L9B11: STA PalDataPending ;Change palette.
L9B13: LDA #$08 ;
L9B15: STA ClrChangeCounter ;Initialize ClrChangeCounter with #$08.
L9B17: INC RoomPtr ;
L9B19: JMP ScreenOn ;Turn screen on.
ShowEndSamus:
L9B1C: JSR LoadEndSamusSprites ;Load end image of Samus.
L9B1F: LDA Timer3 ;Once 960 frames (16 seconds) have expired,-->
L9B21: BNE + ;Move to EndSamusFlash routine.
L9B23: INC RoomPtr ;
L9B25: RTS ;
L9B26:* CMP #$50 ;After 160 frames have past-->
L9B28: BNE + ;(2.6 seconds), write end message.
L9B2A: INC EndMsgWrite ;
L9B2C: RTS ;
L9B2D:* CMP #$01 ;After 950 frames have past-->
L9B2F: BNE + ;(15.8 seconds), erase end message.
L9B31: INC HideShowEndMsg ;
L9B33:* RTS ;
EndSamusFlash:
L9B34: LDA FrameCount ;If FrameCount not divisible by 32, branch.
L9B36: AND #$1F ;
L9B38: BNE +++ ;
L9B3A: INC ColorCntIndex ;Every 32 frame, increment the ColorCntInex-->
L9B3C: LDA ColorCntIndex ;value. Flashing Samus lasts for 512-->
L9B3E: CMP #$08 ;frames (8.5 seconds).
L9B40: BNE + ;
L9B42: JSR ChooseEnding ;Choose which Samus ending to show.
L9B45: JSR CalculatePassword ;Calculate game password.
L9B48: LDA EndingType ;
L9B4B: ASL ;When EndSamusFlash routine is half way-->
L9B4C: STA SpritePointerIndex ;done, this code will calculate the-->
L9B4E: LDA #$36 ;password and choose the proper ending.
L9B50: STA SpriteByteCounter ;
L9B52:* CMP #$10 ;
L9B54: BNE ++ ;Once flashing Samus is compete, set Timer3-->
L9B56: STA Timer3 ;for a 160 frame(2.6 seconds) delay.
L9B58: LDY #$00 ;
L9B5A: LDA EndingType ;
L9B5D: CMP #$04 ;If one of the suitless Samus endings,-->
L9B5F: BCC + ;increment sprite color for proper-->
L9B61: INY ;color to be displayed and increment-->
L9B62:* STY SpriteAttribByte ;RoomPtr and erase the sprites.
L9B64: INC RoomPtr ;
L9B66: JMP EraseAllSprites ;Clear all sprites off the screen.
L9B69:* DEC ClrChangeCounter ;Decrement ClrChangeCounter.
L9B6B: BNE + ;
L9B6D: LDY ColorCntIndex ;
L9B6F: LDA PalChangeTable,Y ;When ClrChangeCounter=#$00, fetch new-->
L9B72: STA ClrChangeCounter ;ClrChangeCounter value. and increment-->
L9B74: INC SpriteAttribByte ;sprite color.
L9B76: LDA SpriteAttribByte ;
L9B78: CMP #$03 ;
L9B7A: BNE + ;
L9B7C: LDA #$00 ;If sprite color=#$03, set sprite-->
L9B7E: STA SpriteAttribByte ;color to #$00.
L9B80:* JMP LoadEndSamusSprites ;Load end image of Samus.
;The following table is used by the above routine to load ClrChangeCounter. ClrChangeCounter
;decrements every frame, When ClrChangeCounter reaches zero, the sprite colors for Samus
;changes. This has the effect of making Samus flash. The flashing starts slow, speeds up,
;then slows down again.
PalChangeTable:
L9B83: .byte $08, $07, $06, $05, $04, $03, $02, $01, $01, $02, $03, $04, $05, $06, $07, $08
SamusWave:
L9B93: LDA Timer3 ;If 160 frame timer from previous routine-->
L9B95: BNE + ;has not expired, branch(waves for 2.6 seconds).
L9B97: LDA #$10 ;
L9B99: STA Timer3 ;Load Timer3 with 160 frame delay-->
L9B9B: LDA #$08 ;(2.6 seconds).
L9B9D: STA PalDataPending ;Change palette
L9B9F: INC RoomPtr ;Increment RoomPtr
L9BA1: RTS ;
L9BA2:* LDA EndingType ;If suitless Samus-->
L9BA5: CMP #$04 ;ending, branch.
L9BA7: BCS + ;
L9BA9: JMP LoadEndSamusSprites ;
L9BAC:* SBC #$04 ;If jumpsuit Samus ending,-->
L9BAE: ASL ;WaveSpritePointer=#$00, if bikini-->
L9BAF: ASL ;Samus ending, WaveSpritePointer=#$04.
L9BB0: STA WaveSpritePointer ;
L9BB2: LDA FrameCount ;
L9BB4: AND #$08 ;Every eigth frame count, change wave sprite data.
L9BB6: BNE + ;
L9BB8: LDY #$10 ;Load WaveSpriteCounter with #$10(16 bytes of-->
L9BBA: STY WaveSpriteCounter ;sprite data to be loaded).
L9BBC: BNE ++ ;Branch always.
L9BBE:* INC WaveSpritePointer ;
L9BC0: INC WaveSpritePointer ;When bit 3 of FrameCount is not set,-->
L9BC2: LDY #$10 ;Samus' waving hand is down.
L9BC4: STY WaveSpriteCounter ;
L9BC6:* LDA #$2D ;Load SpriteByteCounter in preparation for-->
L9BC8: STA SpriteByteCounter ;refreshing Samus sprite bytes.
L9BCA: JMP LoadWaveSprites ;Load sprites for waving Samus.
EndFadeOut:
L9BCD: LDA Timer3 ;If 160 frame delay from last routine has not-->
L9BCF: BNE ++ ;yet expired, branch.
L9BD1: LDA IsCredits ;
L9BD3: BNE + ;Branch always.
L9BD5: LDA #$08 ;*This code does not appear to be used.
L9BD7: STA PalDataPending ;*Change palette.
L9BD9: INC IsCredits ;*Increment IsCredits.
L9BDB:* LDA FrameCount ;
L9BDD: AND #$07 ;Every seventh frame, increment the palette info-->
L9BDF: BNE + ;If PalDataPending is not equal to #$0C, keep-->
L9BE1: INC PalDataPending ;incrementing every seventh frame until it does.-->
L9BE3: LDA PalDataPending ;This creates the fade out effect.
L9BE5: CMP #$0C ;
L9BE7: BNE + ;
L9BE9: LDA #$10 ;After fadeout complete, load Timer3 with 160 frame-->
L9BEB: STA Timer3 ;delay(2.6 seconds) and increment RoomPtr.
L9BED: INC RoomPtr ;
L9BEF:* LDA EndingType ;
L9BF2: CMP #$04 ;If suitless Samus ending, load hand wave sprites,-->
L9BF4: BCS + ;else just load regular Samus sprites
L9BF6: JMP LoadEndSamusSprites ;Load end image of Samus.
L9BF9:* JMP LoadWaveSprites ;Load sprites for waving Samus.
RollCredits:
L9BFC: LDA Timer3 ;If 160 frame timer delay from previous-->
L9BFE: BEQ + ;routine has expired, branch.
L9C00: CMP #$02 ;If not 20 frames left in Timer3, branch to exit.
L9C02: BNE ++++ ;
L9C04: JSR ScreenOff ;When 20 frames left in Timer3,-->
L9C07: JSR ClearNameTable0 ;clear name table 0 and sprites.-->
L9C0A: JSR EraseAllSprites ;prepares screen for credits.
L9C0D: LDA #$0D ;
L9C0F: STA PalDataPending ;Change to proper palette for credits.
L9C11: JSR ScreenOn ;Turn screen on.
L9C14: JMP WaitNMIPass_ ;Wait for NMI to end.
L9C17:* LDA CreditPageNumber ;If first page of credits has not started to-->
L9C19: BNE + ;roll, start it now, else branch.
L9C1B: INC CreditPageNumber ;
L9C1D:* CMP #$06 ;If not at last page of credits, branch.
L9C1F: BNE + ;
L9C21: LDA ScrollY ;
L9C23: CMP #$88 ;If last page of credits is not finished-->
L9C25: BCC + ;scrolling, branch. Else increment to next-->
L9C27: INC RoomPtr ;routine.
L9C29: RTS ;
L9C2A:* LDA FrameCount ;credits scroll up one position every 3 frames.
L9C2C: AND #$03 ;
L9C2E: BNE + ;Ready to scroll? If not, branch.
L9C30: INC ScrollY ;
L9C32: LDA ScrollY ;Load ScrollY and check it to see if its-->
L9C34: CMP #$F0 ;position is at the very bottom on name table.-->
L9C36: BNE + ;if not, branch.
L9C38: INC CreditPageNumber ;
L9C3A: LDA #$00 ;
L9C3C: STA ScrollY ;When Scrolly is at bottom of the name table,-->
L9C3E: LDA PPUCNT0ZP ;Swap to next name table(0 or 2) and increment-->
L9C40: EOR #$02 ;CreditPageNumber.
L9C42: STA PPUCNT0ZP ;
L9C44:* RTS
;The following routine is checked every frame and is accessed via the NMIScreenWrite routine.
;The LoadCredits routine works like this: The Y scroll position is checked every frame. When
;it is in the first four positions of the current name table (0, 1, 2 or 3), or the four
;positions right after 127 (128, 129, 130 and 131), the routine will then load the ending
;credits into the positions on the name table that were just scrolled over. For example, If
;the scroll window is currently half way down name table 0, the LoadCredits routine will load
;the contents of the upper half of name table 0. Also, name table 0 contains odd numbered
;pages and name table 2 contains even numbered pages.
LoadCredits:
L9C45: LDY CreditPageNumber ;
L9C47: BEQ ++++ ;If credits are not being displayed, exit.
L9C49: CPY #$07 ;
L9C4B: BCS ++++ ;If CreditPageNumber is higher than #$06, exit.
L9C4D: LDX #$00 ;
L9C4F: LDA ScrollY ;If ScrollY is less than #$80 (128), branch.
L9C51: BPL + ;
L9C53: INX ;Load X with sign bit (#$01) and remove-->
L9C54: SEC ;sign bit from A.
L9C55: SBC #$80 ;
L9C57:* CMP #$04 ;
L9C59: BCS +++ ;If ScrollY is not #$04, branch to exit.
L9C5B: STA $01 ;Store #$00, #$01, #$02 or #$03 in address $01.
L9C5D: DEY ;Y now contains CreditPageNumber - 1.
L9C5E: TXA ;
L9C5F: BNE + ;If ScrollY is #$80 (128) or greater, branch.
L9C61: DEY ;Y now contains CreditPageNumber - 2.
L9C62: BMI +++ ;If on Credit page less than two , branch to exit.
L9C64: TYA ;
L9C65: ASL ;Start with CreditPageNumber - 2-->
L9C66: ASL ;* 8 + 4 + $01 * 2.
L9C67: ASL ;This formula is used when ScrollY = 0, 1, 2 and 3.
L9C68: ADC #$04 ;Result is index to find proper credits to load.
L9C6A: BNE ++ ;Branch always.
L9C6C:* TYA ;
L9C6D: ASL ;Start with CreditPageNumber - 1-->
L9C6E: ASL ;* 8 + $01 * 2.
L9C6F: ASL ;This formula is used when ScrollY = 128,-->
L9C70:* ADC $01 ;129, 130 and 131.
L9C72: ASL ;Result is index to find proper credits to load.
L9C73: TAY ;
L9C74: LDX CreditsPointerTbl,Y ; Lower byte of pointer to PPU string.
L9C77: LDA CreditsPointerTbl+1,Y ;Upper byte of pointer to PPU string.
L9C7A: TAY ;
L9C7B: JMP PreparePPUProcess_ ;Prepare to write to PPU.
L9C7E:* RTS ;
LoadWaveSprites:
L9C7F: LDX WaveSpritePointer ;
L9C81: LDA WavePointerTable,X ;
L9C84: STA $00 ;Load pointer to wave sprite data-->
L9C86: LDA WavePointerTable+1,X ;into addresses $00 and $01.
L9C89: STA $01 ;
L9C8B: LDX #$20 ;Offset for sprite RAM load.
L9C8D: LDY #$00 ;
L9C8F:* LDA ($00),Y ;
L9C91: STA Sprite00RAM,X ;Load wave sprites into sprite RAM starting at-->
L9C94: INX ;location $220 (Sprite08RAM).
L9C95: INY ;
L9C96: CPY WaveSpriteCounter ;Check to see if sprite RAM load complete.-->
L9C98: BNE - ;If not, branch and load another byte.
LoadEndSamusSprites:
L9C9A: LDX #$30 ;Index for loading Samus sprite data into sprite RAM.
L9C9C: LDY SpritePointerIndex ;
L9C9E: LDA EndSamusAddrTbl,Y ;
L9CA1: STA $00 ;Load $00 and $01 with pointer to the sprite-->
L9CA3: LDA EndSamusAddrTbl+1,Y ;data that shows Samus at the end of the game.
L9CA6: STA $01 ;
L9CA8: LDY #$00 ;
L9CAA:* LDA ($00),Y ;Load sprite data starting at Sprite0CRAM.
L9CAC: STA Sprite00RAM,X ;Load sprite Y-coord.
L9CAF: INX ;
L9CB0: INY ;Increment X and Y.
L9CB1: LDA ($00),Y ;
L9CB3: BPL + ;If sprite pattern byte MSB cleared, branch.
L9CB5: AND #$7F ;
L9CB7: STA Sprite00RAM,X ;Remove MSB and write sprite pattern data-->
L9CBA: LDA SpriteAttribByte ;to sprite RAM.
L9CBC: EOR #$40 ;
L9CBE: BNE ++ ;
L9CC0:* STA Sprite00RAM,X ;Writes sprite pattern byte to-->
L9CC3: LDA SpriteAttribByte ;sprite RAM if its MSB is not set.
L9CC5:* INX ;
L9CC6: STA Sprite00RAM,X ;Writes sprite attribute byte to sprite RAM.
L9CC9: INY ;
L9CCA: INX ;Increment X and Y.
L9CCB: LDA ($00),Y ;
L9CCD: STA Sprite00RAM,X ;Load sprite X-coord.
L9CD0: INY ;
L9CD1: INX ;Increment X and Y.
L9CD2: CPY SpriteByteCounter ;
L9CD4: BNE --- ;Repeat until sprite load is complete.
L9CD6: LDA RoomPtr ;
L9CD8: CMP #$02 ;If not running the EndSamusFlash routine, branch.
L9CDA: BCC ++ ;
L9CDC: LDA ColorCntIndex ;
L9CDE: CMP #$08 ;If EndSamusFlash routine is more than half-->
L9CE0: BCC ++ ;way done, Check ending type for the Samus helmet-->
L9CE2: LDA EndingType ;off ending. If not helmet off ending, branch.
L9CE5: CMP #$03 ;
L9CE7: BNE ++ ;
L9CE9: LDY #$00 ;
L9CEB: LDX #$00 ;
L9CED:* LDA SamusHeadSpriteTble,Y ;The following code loads the sprite graphics-->
L9CF0: STA Sprite00RAM,X ;when the helmet off ending is playing. The-->
L9CF3: INY ;sprites below keep Samus head from flashing-->
L9CF4: INX ;while the rest of her body does.
L9CF5: CPY #$18 ;
L9CF7: BNE - ;
L9CF9:* RTS ;
;The following table is used by the routine above to keep Samus'
;head from flashing during the helmet off ending.
SamusHeadSpriteTble:
L9CFA: .byte $93, $36, $01, $70 ;Sprite00RAM
L9CFE: .byte $93, $37, $01, $78 ;Sprite01RAM
L9D02: .byte $93, $38, $01, $80 ;Sprite02RAM
L9D06: .byte $9B, $46, $01, $70 ;Sprite03RAM
L9D0A: .byte $9B, $47, $01, $78 ;Sprite04RAM
L9D0E: .byte $9B, $48, $01, $80 ;Sprite05RAM
;The following table is a pointer table to the sprites that makes Samus wave in the end
;of the game when she is suitless. The top two pointers are for when she is in the jumpsuit
;and the bottom two pointers are for when she is in the bikini.
WavePointerTable:
.word JsHandUpTable, JsHandDownTable, BkHandUpTable, BkHandDownTable
;Sprite data table used when Samus is in jumpsuit and her waving hand is up.
JsHandUpTable:
.byte $9B, $1F, $01, $80, $A3, $2F, $01, $80
.byte $AB, $3F, $01, $80, $F4, $3F, $01, $80
;Sprite data table used when Samus is in jumpsuit and her waving hand is down.
JsHandDownTable:
.byte $9B, $2A, $01, $80, $9B, $2B, $01, $88
.byte $A3, $3A, $01, $80, $AB, $3F, $01, $80
;Sprite data table used when Samus is in bikini and her waving hand is up.
BkHandUpTable:
.byte $9B, $0C, $01, $80, $A3, $1C, $01, $80
.byte $AB, $3F, $01, $80, $F4, $3F, $01, $80
;Sprite data table used when Samus is in bikini and her waving hand is down.
BkHandDownTable:
.byte $9B, $4A, $01, $80, $9B, $4B, $01, $88
.byte $A3, $4D, $01, $80, $AB, $3F, $01, $80
EndSamusAddrTbl:
L9D5A: .word NormalSamus ;Pointer to end graphic of Samus wearing suit.
L9D5C: .word BackTurnedSamus ;Pointer to end graphic of back turned Samus.
L9D5E: .word FistRaisedSamus ;Pointer to end graphic of fist raised Samus.
L9D60: .word HelmetOffSamus ;Pointer to end graphic of helmet off Samus.
L9D62: .word JumpsuitSamus ;Pointer to end graphic of jumpsuit Samus.
L9D64: .word BikiniSamus ;Pointer to end graphic of bikini Samus.
;The following three bytes are loaded into sprite RAM. The third byte (attribute byte) is
;not included. Instead, if the MSB of the second byte (pattern byte) is set, the pattern
;byte is flipped horizontally (mirror image). If pattern byte MSB is not set, the attribute
;byte is stored as #$00. This is done so the code can generate the flashing Samus effect at
;the end of the game.
NormalSamus:
L9D66: .byte $93, $00, $70
L9D69: .byte $93, $01, $78
L9D6C: .byte $93, $80, $80 ;Mirrored pattern at pattern table location $00.
L9D6F: .byte $9B, $10, $70
L9D72: .byte $9B, $11, $78
L9D75: .byte $9B, $90, $80 ;Mirrored pattern at pattern table location $10.
L9D78: .byte $A3, $20, $70
L9D7B: .byte $A3, $21, $78
L9D7E: .byte $A3, $22, $80
L9D81: .byte $AB, $30, $70
L9D84: .byte $AB, $31, $78
L9D87: .byte $AB, $32, $80
L9D8A: .byte $B3, $40, $70
L9D8D: .byte $B3, $41, $78
L9D90: .byte $B3, $C0, $80
L9D93: .byte $BB, $50, $70
L9D96: .byte $BB, $49, $78
L9D99: .byte $BB, $D0, $80 ;Mirrored pattern at pattern table location $50.
BackTurnedSamus:
L9D9C: .byte $93, $02, $70
L9D9F: .byte $93, $03, $78
L9DA2: .byte $93, $04, $80
L9DA5: .byte $9B, $12, $70
L9DA8: .byte $9B, $13, $78
L9DAB: .byte $9B, $14, $80
L9DAE: .byte $A3, $05, $70
L9DB1: .byte $A3, $06, $78
L9DB4: .byte $A3, $07, $80
L9DB7: .byte $AB, $15, $70
L9DBA: .byte $AB, $16, $78
L9DBD: .byte $AB, $17, $80
L9DC0: .byte $B3, $08, $70
L9DC3: .byte $B3, $09, $78
L9DC6: .byte $B3, $88, $80 ;Mirrored pattern at pattern table location $08.
L9DC9: .byte $BB, $18, $70
L9DCC: .byte $BB, $19, $78
L9DDF: .byte $BB, $98, $80 ;Mirrored pattern at pattern table location $18.
FistRaisedSamus:
L9DD2: .byte $93, $00, $70
L9DD5: .byte $93, $01, $78
L9DD8: .byte $93, $34, $80
L9DDB: .byte $9B, $10, $70
L9DDE: .byte $9B, $11, $78
L9DE1: .byte $9B, $44, $80
L9DE4: .byte $A3, $20, $70
L9DE7: .byte $A3, $21, $78
L9DEA: .byte $A3, $33, $80
L9DED: .byte $AB, $30, $70
L9DF0: .byte $AB, $31, $78
L9DF3: .byte $AB, $43, $80
L9DF6: .byte $B3, $40, $70
L9DF9: .byte $B3, $41, $78
L9DFC: .byte $B3, $C0, $80 ;Mirrored pattern at pattern table location $40.
L9DFF: .byte $BB, $50, $70
L9E02: .byte $BB, $49, $78
L9E05: .byte $BB, $D0, $80 ;Mirrored pattern at pattern table location $50.
HelmetOffSamus:
L9E08: .byte $93, $0D, $70
L9E0B: .byte $93, $0E, $78
L9E0E: .byte $93, $0F, $80
L9E11: .byte $9B, $35, $70
L9E14: .byte $9B, $27, $78
L9E17: .byte $9B, $28, $80
L9E1A: .byte $A3, $20, $70
L9E1D: .byte $A3, $21, $78
L9E20: .byte $A3, $22, $80
L9E23: .byte $AB, $30, $70
L9E26: .byte $AB, $31, $78
L9E29: .byte $AB, $32, $80
L9E2C: .byte $B3, $40, $70
L9E2F: .byte $B3, $41, $78
L9E32: .byte $B3, $C0, $80 ;Mirrored pattern at pattern table location $40.
L9E35: .byte $BB, $50, $70
L9E38: .byte $BB, $49, $78
L9E3B: .byte $BB, $D0, $80 ;Mirrored pattern at pattern table location $50.
JumpsuitSamus:
L9E3E: .byte $93, $0D, $70
L9E41: .byte $93, $0E, $78
L9E44: .byte $93, $0F, $80
L9E47: .byte $9B, $1D, $70
L9E4A: .byte $9B, $1E, $78
L9E4D: .byte $A3, $2D, $70
L9E50: .byte $A3, $2E, $78
L9E53: .byte $AB, $3D, $70
L9E56: .byte $AB, $3E, $78
L9E59: .byte $B3, $08, $70
L9E5C: .byte $B3, $4E, $78
L9E5F: .byte $B3, $4F, $80
L9E62: .byte $BB, $45, $70
L9E65: .byte $BB, $3B, $78
L9E68: .byte $BB, $51, $80
L9E6B: .byte $9B, $29, $80
L9E6E: .byte $A3, $39, $80
L9E71: .byte $AB, $4C, $80
BikiniSamus:
L9E74: .byte $93, $0D, $70
L9E77: .byte $93, $0E, $78
L9E7A: .byte $93, $0F, $80
L9E7D: .byte $9B, $0A, $70
L9E80: .byte $9B, $0B, $78
L9E83: .byte $A3, $1A, $70
L9E86: .byte $A3, $1B, $78
L9E89: .byte $AB, $3D, $70
L9E8C: .byte $AB, $3E, $78
L9E8F: .byte $B3, $08, $70
L9E92: .byte $B3, $4E, $78
L9E95: .byte $B3, $4F, $80
L9E98: .byte $BB, $45, $70
L9E9B: .byte $BB, $3B, $78
L9E9E: .byte $BB, $51, $80
L9EA1: .byte $9B, $2C, $80
L9EA4: .byte $A3, $3C, $80
L9EA7: .byte $AB, $4C, $80
LoadEndStarSprites:
L9EAA: LDY #$00 ;
L9EAC:* LDA EndStarDataTable,Y ;
L9EAF: STA Sprite1CRAM,Y ;Load the table below into sprite RAM-->
L9EB2: INY ;starting at address $0270.
L9EB3: CPY #$9C ;
L9EB5: BNE - ;
L9EB7: RTS
;Loaded into sprite RAM by routine above. Displays stars at the end of the game.
EndStarDataTable:
L9EB8: .byte $08, $23, $22, $10
L9EBC: .byte $68, $23, $23, $60
L9EC0: .byte $00, $23, $22, $60
L9EC4: .byte $7F, $23, $23, $6A
L9EC8: .byte $7F, $23, $22, $D4
L9ECC: .byte $33, $23, $23, $B2
L9ED0: .byte $93, $23, $22, $47
L9ED4: .byte $B3, $23, $23, $95
L9ED8: .byte $0B, $23, $22, $E2
L9EDC: .byte $1C, $23, $23, $34
L9EE0: .byte $84, $23, $22, $18
L9EE4: .byte $B2, $23, $23, $EE
L9EE8: .byte $40, $23, $22, $22
L9EEC: .byte $5A, $23, $23, $68
L9EF0: .byte $1A, $23, $22, $90
L9EF4: .byte $AA, $23, $23, $22
L9EF8: .byte $81, $24, $22, $88
L9EFC: .byte $6A, $24, $23, $D0
L9F00: .byte $A8, $24, $22, $A0
L9F04: .byte $10, $24, $23, $70
L9F08: .byte $15, $25, $22, $42
L9F0C: .byte $4A, $25, $23, $7D
L9F10: .byte $30, $25, $22, $50
L9F14: .byte $5A, $25, $23, $49
L9F18: .byte $50, $25, $22, $B9
L9F1C: .byte $91, $25, $23, $B0
L9F20: .byte $19, $25, $22, $C0
L9F24: .byte $53, $25, $23, $BA
L9F28: .byte $A4, $25, $22, $D6
L9F2C: .byte $98, $25, $23, $1A
L9F30: .byte $68, $25, $22, $0C
L9F34: .byte $97, $25, $23, $EA
L9F38: .byte $33, $25, $22, $92
L9F3C: .byte $43, $25, $23, $65
L9F40: .byte $AC, $25, $22, $4A
L9F44: .byte $2A, $25, $23, $71
L9F48: .byte $7C, $26, $22, $B2
L9F4C: .byte $73, $26, $23, $E7
L9F50: .byte $0C, $26, $22, $AA
EndGamePalWrite:
L9F54: LDA PalDataPending ;If no palette data pending, branch to exit.
L9F56: BEQ ++ ;
L9F58: CMP #$0C ;If PalDataPending has loaded last palette,-->
L9F5A: BEQ ++ ;branch to exit.
L9F5C: CMP #$0D ;Once end palettes have been cycled through,-->
L9F5E: BNE + ;start over.
L9F60: LDY #$00 ;
L9F62: STY PalDataPending ;
L9F64:* ASL ;* 2, pointer is two bytes.
L9F65: TAY ;
L9F66: LDA EndGamePalPntrTbl-1,Y ;High byte of PPU data pointer.
L9F69: LDX EndGamePalPntrTbl-2,Y ;Low byte of PPU data pointer.
L9F6C: TAY ;
L9F6D: JSR PreparePPUProcess_ ;Prepare to write data string to PPU.
L9F70: LDA #$3F ;
L9F72: STA PPUAddress ;
L9F75: LDA #$00 ;
L9F77: STA PPUAddress ;Set PPU address to $3F00.
L9F7A: STA PPUAddress ;
L9F7D: STA PPUAddress ;Set PPU address to $0000.
L9F80:* RTS ;
;The following pointer table is used by the routine above to
;find the proper palette data during the EndGame routine.
EndGamePalPntrTbl:
L9F81: .word EndGamePal00 ;
L9F83: .word EndGamePal01 ;
L9F85: .word EndGamePal02 ;
L9F87: .word EndGamePal03 ;
L9F89: .word EndGamePal04 ;
L9F8B: .word EndGamePal05 ;
L9F8D: .word EndGamePal06 ;
L9F8F: .word EndGamePal07 ;
L9F91: .word EndGamePal08 ;
L9F93: .word EndGamePal09 ;
L9F95: .word EndGamePal0A ;
L9F97: .word EndGamePal0A ;
L9F99: .word EndGamePal0B ;
EndGamePal00:
L9F9B: .byte $3F ;PPU address high byte.
L9F9C: .byte $00 ;PPU address low byte.
L9F9D: .byte $20 ;PPU string length.
;The following values are written to the background palette:
L9F9E: .byte $0F, $21, $11, $02, $0F, $29, $1B, $1A, $0F, $27, $28, $29, $0F, $28, $18, $08
;The following values are written to the sprite palette:
L9FAE: .byte $0F, $16, $19, $27, $0F, $36, $15, $17, $0F, $12, $21, $20, $0F, $35, $12, $16
L9FBE: .byte $00 ;End EndGamePal00 data.
EndGamePal01:
L9FBF: .byte $3F ;PPU address high byte.
L9FC0: .byte $18 ;PPU address low byte.
L9FC1: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
L9FC2: .byte $0F, $10, $20, $30, $0F, $0F, $0F, $0F
L9FCA: .byte $00 ;End EndGamePal01 data.
EndGamePal02:
L9FCB: .byte $3F ;PPU address high byte.
L9FCC: .byte $18 ;PPU address low byte.
L9FCD: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
L9FCE: .byte $0F, $12, $22, $32, $0F, $0B, $1B, $2B
L9FD6: .byte $00 ;End EndGamePal02 data.
EndGamePal03:
L9FD7: .byte $3F ;PPU address high byte.
L9FD8: .byte $18 ;PPU address low byte.
L9FD9: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
L9FDA: .byte $0F, $14, $24, $34, $0F, $09, $19, $29
L9FE2: .byte $00 ;End EndGamePal03 data.
EndGamePal04:
L9FE3: .byte $3F ;PPU address high byte.
L9FE4: .byte $18 ;PPU address low byte.
L9FE5: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
L9FE6: .byte $0F, $16, $26, $36, $0F, $07, $17, $27
L9FEE: .byte $00 ;End EndGamePal04 data.
EndGamePal05:
L9FEF: .byte $3F ;PPU address high byte.
L9FF0: .byte $18 ;PPU address low byte.
L9FF1: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
L9FF2: .byte $0F, $18, $28, $38, $0F, $05, $15, $25
L9FFA: .byte $00 ;End EndGamePal05 data.
EndGamePal06:
L9FFB: .byte $3F ;PPU address high byte.
L9FFC: .byte $18 ;PPU address low byte.
L9FFD: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
L9FFE: .byte $0F, $1A, $2A, $3A, $0F, $03, $13, $13
LA006: .byte $00 ;End EndGamePal06 data.
EndGamePal07:
LA007: .byte $3F ;PPU address high byte.
LA008: .byte $18 ;PPU address low byte.
LA009: .byte $08 ;PPU string length.
;The following values are written to the sprite palette starting at $3F18:
LA00A: .byte $0F, $1C, $2C, $3C, $0F, $01, $11, $21
LA012: .byte $00 ;End EndGamePal07 data.
EndGamePal08:
LA013: .byte $3F ;PPU address high byte.
LA014: .byte $0C ;PPU address low byte.
LA015: .byte $04 ;PPU string length.
;The following values are written to the background palette starting at $3F0C:
LA016: .byte $0F, $18, $08, $07
LA01A: .byte $3F ;PPU address high byte.
LA01B: .byte $10 ;PPU address low byte.
LA01C: .byte $10 ;PPU string length.
;The following values are written to the sprite palette:
LA01D: .byte $0F, $26, $05, $07, $0F, $26, $05, $07, $0F, $01, $01, $05, $0F, $13, $1C, $0C
LA02D: .byte $00 ;End EndGamePal08 data.
EndGamePal09:
LA02E: .byte $3F ;PPU address high byte.
LA02F: .byte $0C ;PPU address low byte.
LA030: .byte $04 ;PPU string length.
;The following values are written to the background palette starting at $3F0C:
LA031: .byte $0F, $08, $07, $0F
LA035: .byte $3F ;PPU address high byte.
LA036: .byte $10 ;PPU address low byte.
LA037: .byte $10 ;PPU string length.
;The following values are written to the sprite palette:
LA038: .byte $0F, $06, $08, $0F, $0F, $06, $08, $0F, $0F, $00, $10, $0F, $0F, $01, $0C, $0F
LA048: .byte $00 ;End EndGamePal09 data.
EndGamePal0A:
LA049: .byte $3F ;PPU address high byte.
LA04A: .byte $0C ;PPU address low byte.
LA04B: .byte $44 ;PPU string length.
LA04C: .byte $0F ;Repeat bit set. Fill background palette with #$0F-->
;starting at $0C.
LA04D: .byte $3F ;PPU address high byte.
LA04E: .byte $10 ;PPU address low byte.
LA04F: .byte $50 ;PPU string length.
LA050: .byte $0F ;Repeat bit set. Fill sprite palette with #$0F.
LA051: .byte $00 ;End EndGamePal0A data.
;The following data writes the end game backgroud graphics.
;Writes ground graphics on name table 0 in row $2300 (25th row from top).
LA052: .byte $23 ;PPU address high byte.
LA053: .byte $00 ;PPU address low byte.
LA054: .byte $20 ;PPU string length.
LA055: .byte $30, $31, $30, $31, $30, $31, $30, $31, $30, $31, $30, $31, $30, $31, $30, $31
LA065: .byte $30, $31, $30, $31, $30, $31, $30, $31, $30, $31, $30, $31, $30, $31, $30, $31
;Writes ground graphics on name table 0 in row $2320 (26th row from top).
LA075: .byte $23 ;PPU address high byte.
LA076: .byte $20 ;PPU address low byte.
LA077: .byte $20 ;PPU string length.
LA078: .byte $32, $33, $32, $33, $32, $33, $32, $33, $32, $33, $32, $33, $32, $33, $32, $33
LA088: .byte $32, $33, $32, $33, $32, $33, $32, $33, $32, $33, $32, $33, $32, $33, $32, $33
;Writes ground graphics on name table 0 in row $2340 (27th row from top).
LA098: .byte $23 ;PPU address high byte.
LA099: .byte $40 ;PPU address low byte.
LA09A: .byte $20 ;PPU string length.
LA09B: .byte $34, $35, $34, $35, $34, $35, $34, $35, $34, $35, $34, $35, $34, $35, $34, $35
LA0AB: .byte $34, $35, $34, $35, $34, $35, $34, $35, $34, $35, $34, $35, $34, $35, $34, $35
;Writes ground graphics on name table 0 in row $2360 (28th row from top).
LA0BB: .byte $23 ;PPU address high byte.
LA0BC: .byte $60 ;PPU address low byte.
LA0BD: .byte $20 ;PPU string length.
LA0BE: .byte $36, $37, $36, $37, $36, $37, $36, $37, $36, $37, $36, $37, $36, $37, $36, $37
LA0CE: .byte $36, $37, $36, $37, $36, $37, $36, $37, $36, $37, $36, $37, $36, $37, $36, $37
;Writes ground graphics on name table 0 in row $2380 (29th row from top).
LA0DE: .byte $23 ;PPU address high byte.
LA0DF: .byte $80 ;PPU address low byte.
LA0E0: .byte $20 ;PPU string length.
LA0E1: .byte $38, $39, $38, $39, $38, $39, $38, $39, $38, $39, $38, $39, $38, $39, $38, $39
LA0F1: .byte $38, $39, $38, $39, $38, $39, $38, $39, $38, $39, $38, $39, $38, $39, $38, $39
;Writes ground graphics on name table 0 in row $23A0 (bottom row).
LA101: .byte $23 ;PPU address high byte.
LA102: .byte $A0 ;PPU address low byte.
LA103: .byte $20 ;PPU string length.
LA104: .byte $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B
LA114: .byte $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B, $3A, $3B
;Sets all color bits in attribute table 0 starting at $23F0.
LA124: .byte $23 ;PPU address high byte.
LA125: .byte $F0 ;PPU address low byte.
LA126: .byte $50 ;PPU string length.
LA127: .byte $FF ;Repeat bit set. Repeats entry 16 times.
;Writes credits on name table 2 in row $2820 (2nd row from top).
LA128: .byte $28 ;PPU address high byte.
LA129: .byte $2E ;PPU address low byte.
LA12A: .byte $05 ;PPU string length.
; 'S T A F F'
LA12B: .byte $1C, $1D, $0A, $0F, $0F
;Writes credits on name table 2 in row $28A0 (6th row from top).
LA130: .byte $28 ;PPU address high byte.
LA131: .byte $A8 ;PPU address low byte.
LA132: .byte $13 ;PPU string length.
; 'S C E N A R I O _ W R I T T E N'
LA133: .byte $1C, $0C, $0E, $17, $0A, $1B, $12, $18, $FF, $20, $1B, $12, $1D, $1D, $0E, $17
; '_ B Y'
LA143: .byte $FF, $0B, $22
;Writes credits on name table 2 in row $28E0 (8th row from top).
LA146: .byte $28 ;PPU address high byte.
LA147: .byte $EE ;PPU address low byte.
LA148: .byte $05 ;PPU string length.
; 'K A N O H'
LA149: .byte $14, $0A, $17, $18, $11
;Writes credits on name table 2 in row $2960 (12th row from top).
LA14E: .byte $29 ;PPU address high byte.
LA14F: .byte $66 ;PPU address low byte.
LA150: .byte $15 ;PPU string length.
; 'C H A R A C T E R _ D E S I G N'
LA151: .byte $0C, $11, $0A, $1B, $0A, $0C, $1D, $0E, $1B, $FF, $0D, $0E, $1C, $12, $10, $17
; 'E D _ B Y'
LA161: .byte $0E, $0D, $FF, $0B, $22
;Writes credits on name table 2 in row $29A0 (14th row from top).
LA166: .byte $29 ;PPU address high byte.
LA167: .byte $AC ;PPU address low byte.
LA168: .byte $08 ;PPU string length.
; 'K I Y O T A K E'
LA169: .byte $14, $12, $22, $18, $1D, $0A, $14, $0E
;Writes credits on name table 2 in row $2A20 (18th row from top).
LA16A: .byte $2A ;PPU address high byte.
LA16B: .byte $2B ;PPU address low byte.
LA173: .byte $0C ;PPU string length.
; 'N E W _ M A T S U O K A'
LA174: .byte $17, $0E, $20, $FF, $16, $0A, $1D, $1C, $1E, $18, $14, $0A
;Writes credits on name table 2 in row $2A60 (20th row from top).
LA180: .byte $2A ;PPU address high byte.
LA181: .byte $6C ;PPU address low byte.
LA182: .byte $09 ;PPU string length.
; 'S H I K A M O T O'
LA183: .byte $1C, $11, $12, $14, $0A, $16, $18, $1D, $18
;Writes credits on name table 2 in row $2AE0 (24th row from top).
LA18C: .byte $2A ;PPU address high byte.
LA18D: .byte $EC ;PPU address low byte.
LA18E: .byte $08 ;PPU string length.
; 'M U S I C _ B Y'
LA18F: .byte $16, $1E, $1C, $12, $0C, $FF, $0B, $22
;Writes credits on name table 2 in row $2B20 (26th row from top)
LA197: .byte $2B ;PPU address high byte.
LA198: .byte $2B ;PPU address low byte.
LA199: .byte $0A ;PPU string length.
; 'H I P _ T A N A K A'
LA19A: .byte $11, $12, $19, $FF, $1D, $0A, $17, $0A, $14, $0A
;Writes credits on name table 2 in row $2BA0 (bottom row).
LA1A4: .byte $2B ;PPU address high byte.
LA1A5: .byte $A7 ;PPU address low byte.
LA1A6: .byte $12 ;PPU string length.
; '_ M A I N _ P R O G R A M M E R'
LA1A7: .byte $FF, $16, $0A, $12, $17, $FF, $19, $1B, $18, $10, $1B, $0A, $16, $16, $0E, $1B
; 'S _'
LA1B7: .byte $1C, $FF
LA1B9: .byte $00 ;End PPU string write.
;The following pointer table is accessed by the NMIScreenWrite routine.
;It is used to locate the start of the PPU strings below.
EndMessageStringTbl0:
.word EndMessageString0, EndMessageString1
.word EndMessageString2, EndMessageString3
;Writes end message on name table 0 in row $2060 (4th row from top).
EndMessageString0:
LA1C2: .byte $20 ;PPU address high byte.
LA1C3: .byte $6D ;PPU address low byte.
LA1C4: .byte $08 ;PPU string length.
; 'G R E A T _ ! !'
LA1C5: .byte $10, $1B, $0E, $0A, $1D, $FF, $3F, $3F
;Writes end message on name table 0 in row $20C0 (7th row from top).
LA1CD: .byte $20 ;PPU address high byte.
LA1CE: .byte $C3 ;PPU address low byte.
LA1CF: .byte $1A ;PPU string length.
; 'Y O U _ F U L F I L E D _ Y O U'
LA1D0: .byte $22, $18, $1E, $FF, $0F, $1E, $15, $0F, $12, $15, $0E, $0D, $FF, $22, $18, $1E
; 'R _ M I S S I O N .'
LA1E0: .byte $1B, $FF, $16, $12, $1C, $1C, $12, $18, $17, $07
LA1EA: .byte $00 ;End PPU string write.
;Writes end message on name table 0 in row $2100 (9th row from top).
EndMessageString1:
LA1EB: .byte $21 ;PPU address high byte.
LA1EC: .byte $03 ;PPU address low byte.
LA1ED: .byte $17 ;PPU string length.
; 'I T _ W I L L _ R E V I V E _ P'
LA1EE: .byte $12, $1D, $FF, $20, $12, $15, $15, $FF, $1B, $0E, $1F, $12, $1F, $0E, $FF, $19
; 'E A C E _ I N'
LA1FE: .byte $0E, $0A, $0C, $0E, $FF, $12, $17
;Writes end message on name table 0 in row $2140 (11th row from top).
LA205: .byte $21 ;PPU address high byte.
LA206: .byte $42 ;PPU address low byte.
LA207: .byte $06 ;PPU string length.
; 'S P A C E .'
LA208: .byte $1C, $19, $0A, $0C, $0E, $07
LA209: .byte $00 ;End PPU string write.
;Writes end message on name table 0 in row $2180 (13th row from top).
EndMessageString2:
LA20F: .byte $21 ;PPU address high byte.
LA210: .byte $83 ;PPU address low byte.
LA211: .byte $18 ;PPU string length.
; 'B U T , I T _ M A Y _ B E _ I N'
LA212: .byte $0B, $1E, $1D, $00, $12, $1D, $FF, $16, $0A, $22, $FF, $0B, $0E, $FF, $12, $17
; 'V A D E D _ B Y'
LA222: .byte $1F, $0A, $0D, $0E, $0D, $FF, $0B, $22
;Writes end message on name table 0 in row $21C0 (15th row from top).
LA22A: .byte $21 ;PPU address high byte.
LA22B: .byte $C2 ;PPU address low byte.
LA22C: .byte $12 ;PPU string length.
; 'T H E _ O T H E R _ M E T R O I'
LA22D: .byte $1D, $11, $0E, $FF, $18, $1D, $11, $0E, $1B, $FF, $16, $0E, $1D, $1B, $18, $12
; 'D .'
LA23D: .byte $0D, $07
LA23F: .byte $00 ;End PPU string write.
;Writes end message on name table 0 in row $2200 (18th row from top).
EndMessageString3:
LA240: .byte $22 ;PPU address high byte.
LA241: .byte $03 ;PPU address low byte.
LA242: .byte $18 ;PPU string length.
; 'P R A Y _ F O R _ A _ T R U E _'
LA243: .byte $19, $1B, $0A, $22, $FF, $0F, $18, $1B, $FF, $0A, $FF, $1D, $1B, $1E, $0E, $FF
; 'P E A C E _ I N'
LA253: .byte $19, $0E, $0A, $0C, $0E, $FF, $12, $17
;Writes end message on name table 0 in row $2240 (19th row from top).
LA25B: .byte $22 ;PPU address high byte.
LA25C: .byte $42 ;PPU address low byte.
LA25D: .byte $06 ;PPU string length.
; 'S P A C E !'
LA25E: .byte $1C, $19, $0A, $0C, $0E, $3F
LA25F: .byte $00 ;End PPU string write.
;The following pointer table is accessed by the NMIScreenWrite routine.
;It is used to locate the start of the PPU strings below.
EndMessageStringTbl1:
LA265: .word EraseEndMsg0, EraseEndMsg1, EraseEndMsg2, EraseEndMsg3
;Erases end message on name table 0 in row $2060 (4th row from top).
EraseEndMsg0:
LA26D: .byte $20 ;PPU address high byte.
LA26E: .byte $6D ;PPU address low byte.
LA26F: .byte $48 ;PPU string length.
LA270: .byte $FF ;Repeat bit set. Repeats entry 8 times.
;Erases end message on name table 0 in row $20C0 (7th row from top).
LA271: .byte $20 ;PPU address high byte.
LA272: .byte $C3 ;PPU address low byte.
LA273: .byte $5A ;PPU string length.
LA274: .byte $FF ;Repeat bit set. Repeats entry 26 times.
LA275: .byte $00 ;End PPU string write.
;Erases end message on name table 0 in row $2100 (9th row from top).
EraseEndMsg1:
LA276: .byte $21 ;PPU address high byte.
LA277: .byte $03 ;PPU address low byte.
LA278: .byte $57 ;PPU string length.
LA279: .byte $FF ;Repeat bit set. Repeats entry 23 times.
;Erases end message on name table 0 in row $2140 (11th row from top).
LA27A: .byte $21 ;PPU address high byte.
LA27B: .byte $42 ;PPU address low byte.
LA27C: .byte $4A ;PPU string length.
LA27D: .byte $FF ;Repeat bit set. Repeats entry 10 times.
LA27E: .byte $00 ;End PPU string write.
;Erases end message on name table 0 in row $2180 (13th row from top).
EraseEndMsg2:
LA27F: .byte $21 ;PPU address high byte.
LA280: .byte $83 ;PPU address low byte.
LA281: .byte $58 ;PPU string length.
LA282: .byte $FF ;Repeat bit set. Repeats entry 24 times.
;Erases end message on name table 0 in row $21C0 (15th row from top).
LA283: .byte $21 ;PPU address high byte.
LA284: .byte $C2 ;PPU address low byte.
LA285: .byte $52 ;PPU string length.
LA286: .byte $FF ;Repeat bit set. Repeats entry 12 times.
LA287: .byte $00 ;End PPU string write.
;Erases end message on name table 0 in row $2200 (18th row from top).
EraseEndMsg3:
LA288: .byte $22 ;PPU address high byte.
LA289: .byte $03 ;PPU address low byte.
LA28A: .byte $58 ;PPU string length.
LA28B: .byte $FF ;Repeat bit set. Repeats entry 24 times.
;Erases end message on name table 0 in row $2240 (19th row from top).
LA28C: .byte $22 ;PPU address high byte.
LA28D: .byte $42 ;PPU address low byte.
LA28E: .byte $4A ;PPU string length.
LA28F: .byte $FF ;Repeat bit set. Repeats entry 10 times.
LA290: .byte $00 ;End PPU string write
;The following table is used by the LoadCredits routine to load the end credits on the screen.
CreditsPointerTbl:
LA291: .word LA2E9, LA2FB, LA31A, LA31B, LA32D, LA339, LA34F, LA362, LA375, LA384, LA39F, LA3AA
LA2A9: .word LA3C8, LA3D8, LA3F1, LA412, LA417, LA426, LA442, LA46B, LA470, LA493, LA49C, LA4AD
LA2C1: .word LA4BD, LA4CD, LA4D2, LA4D7, LA4DC, LA4E1, LA4E6, LA4EB, LA4EF, LA4F0, LA508, LA51A
LA2D9: .word LA51F, LA524, LA51F, LA524, LA538, LA53D, LA538, LA53D
;Writes credits on name table 0 in row $2020 (2nd row from top).
LA2E9: .byte $20 ;PPU address high byte.
LA2EA: .byte $2C ;PPU address low byte.
LA2EB: .byte $0A ;PPU string length.
; 'H A I _ Y U K A M I'
LA2EC: .byte $11, $0A, $12, $FF, $22, $1E, $14, $0A, $16, $12
;Clears attribute table 0 starting at $23C0.
LA2F6: .byte $23 ;PPU address high byte.
LA2F7: .byte $C0 ;PPU address low byte.
LA2F8: .byte $60 ;PPU string length.
LA2F9: .byte $00 ;Repeat bit set. Repeats entry 32 times.
LA2FA: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2060 (4th row from top)
LA2FB: .byte $20 ;PPU address high byte.
LA2FC: .byte $6A ;PPU address low byte.
LA2FD: .byte $0D ;PPU string length.
; 'Z A R U _ S O B A J I M A'
LA2FE: .byte $23, $0A, $1B, $1E, $FF, $1C, $18, $0B, $0A, $13, $12, $16, $0A
;Writes credits on name table 0 in row $20A0 (6th row from top).
LA30B: .byte $20 ;PPU address high byte.
LA30C: .byte $AB ;PPU address low byte.
LA30D: .byte $0B ;PPU string length.
; 'G P Z _ S E N G O K U'
LA30E: .byte $10, $19, $23, $FF, $1C, $0E, $17, $10, $18, $14, $1E
LA319: .byte $00 ;End PPU string write.
LA31A: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2160 (12th row from top).
LA31B: .byte $21 ;PPU address high byte.
LA31C: .byte $6A ;PPU address low byte.
LA31D: .byte $0A ;PPU string length.
; 'N . S H I O T A N I'
LA31E: .byte $17, $07, $1C, $11, $12, $18, $1D, $0A, $17, $12
;Clears attribute table 0 starting at $23E0
LA328: .byte $23 ;PPU address high byte.
LA329: .byte $E0 ;PPU address low byte.
LA32A: .byte $60 ;PPU string length.
LA32B: .byte $00 ;Repeat bit set. Repeats entry 32 times.
LA32C: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $21E0 (16th row from top).
LA32D: .byte $21 ;PPU address high byte.
LA32E: .byte $EB ;PPU address low byte.
LA32F: .byte $08 ;PPU string length.
; 'M . H O U D A I'
LA330: .byte $16, $07, $11, $18, $1E, $0D, $0A, $12
LA338: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $22A0 (22nd row from top).
LA339: .byte $22 ;PPU address high byte.
LA33A: .byte $A7 ;PPU address low byte.
LA33B: .byte $12 ;PPU string length.
; 'S P E C I A L _ T H A N K S _ _ '
LA33C: .byte $1C, $19, $0E, $0C, $12, $0A, $15, $FF, $1D, $11, $0A, $17, $14, $1C, $FF, $FF
; 'T O'
LA34C: .byte $1D, $18
LA34E: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $22E0 (24nd row from top).
LA34F: .byte $22 ;PPU address high byte.
LA350: .byte $EC ;PPU address low byte.
LA351: .byte $08 ;PPU string length.
; 'K E N _ Z U R I'
LA352: .byte $14, $0E, $17, $FF, $23, $1E, $1B, $12
;Writes credits on name table 0 in row $2320 (26nd row from top).
LA35A: .byte $23 ;PPU address high byte.
LA35B: .byte $2E ;PPU address low byte.
LA35C: .byte $04 ;PPU string length.
; 'S U M I'
LA35D: .byte $1C, $1E, $16, $12
LA361: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2360 (28nd row from top).
LA362: .byte $23 ;PPU address high byte.
LA363: .byte $6C ;PPU address low byte.
LA364: .byte $07 ;PPU string length.
; 'I N U S A W A'
LA365: .byte $12, $17, $1E, $1C, $0A, $20, $0A
;Writes credits on name table 0 in row $23A0 (bottom row).
LA36C: .byte $23 ;PPU address high byte.
LA36D: .byte $AD ;PPU address low byte.
LA36E: .byte $05 ;PPU string length.
; 'K A C H O'
LA36F: .byte $14, $0A, $0C, $11, $18
LA374: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2820 (2nd row from top).
LA375: .byte $28 ;PPU address high byte.
LA376: .byte $28 ;PPU address low byte.
LA377: .byte $4E ;PPU string length.
LA378: .byte $FF ;Repeat bit set. Repeats entry 14 times.
;Writes credits on name table 2 in row $2860 (4th row from top).
LA379: .byte $28 ;PPU address high byte.
LA37A: .byte $6C ;PPU address low byte.
LA37B: .byte $07 ;PPU string length.
; 'H Y A K K A N'
LA37C: .byte $11, $22, $0A, $14, $14, $0A, $17
LA383: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $28A0 (6th row from top).
LA384: .byte $28 ;PPU address high byte.
LA385: .byte $A8 ;PPU address low byte.
LA386: .byte $13 ;PPU string length.
; '_ _ _ _ _ G O Y A K E _ _ _ _ _'
LA387: .byte $FF, $FF, $FF, $FF, $FF, $10, $18, $22, $0A, $14, $0E, $FF, $FF, $FF, $FF, $FF
; '_ _ _'
LA397: .byte $FF, $FF, $FF
;Writes credits on name table 2 in row $28E0 (8th row from top).
LA39A: .byte $28 ;PPU address high byte.
LA39B: .byte $E8 ;PPU address low byte.
LA39C: .byte $4F ;PPU string length.
LA39D: .byte $FF ;Repeat bit set. Repeats entry 15 times.
LA39E: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2920 (10th row from top).
LA39F: .byte $29 ;PPU address high byte.
LA3A0: .byte $2C ;PPU address low byte.
LA3A1: .byte $07 ;PPU string length.
; 'H A R A D A _'
LA3A2: .byte $11, $0A, $1B, $0A, $0D, $0A, $FF
LA3A9: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2960 (12th row from top).
LA3AA: .byte $29 ;PPU address high byte.
LA3AB: .byte $66 ;PPU address low byte.
LA3AC: .byte $16 ;PPU string length.
; '_ _ _ _ _ _ _ P E N P E N _ _ _'
LA3AD: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $19, $0E, $17, $19, $0E, $17, $FF, $FF, $FF
; '_ _ _ _ _ _'
LA3BD: .byte $FF, $FF, $FF, $FF, $FF, $FF
;Writes credits on name table 2 in row $29A0 (14th row from top).
LA3C3: .byte $29 ;PPU address high byte.
LA3C4: .byte $A8 ;PPU address low byte.
LA3C5: .byte $4F ;PPU string length.
LA3C6: .byte $FF ;Repeat bit set. Repeats entry 15 times.
LA3C7: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $29E0 (16th row from top).
LA3C8: .byte $29 ;PPU address high byte.
LA3C9: .byte $EA ;PPU address low byte.
LA3CA: .byte $0C ;PPU string length.
; 'C O N V E R T E D _ B Y'
LA3CB: .byte $0C, $18, $17, $1F, $0E, $1B, $1D, $0E, $0D, $FF, $0B, $22
LA3D7: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2A20 (18th row from top).
LA3D8: .byte $2A ;PPU address high byte.
LA3D9: .byte $26 ;PPU address low byte.
LA3DA: .byte $11 ;PPU string length.
; '_ _ _ _ _ T . N A R I H I R O _'
LA3DB: .byte $FF, $FF, $FF, $FF, $FF, $1D, $07, $17, $0A, $1B, $12, $11, $12, $1B, $18, $FF
; '_'
LA3EB: .byte $FF
;Writes credits on name table 2 in row $2A60 (20th row from top).
LA3EC: .byte $2A ;PPU address high byte.
LA3ED: .byte $67 ;PPU address low byte.
LA3EE: .byte $51 ;PPU string length.
LA3EF: .byte $FF ;Repeat bit set. Repeats entry 17 times.
LA3F0: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2AE0 (24th row from top).
LA3F1: .byte $2A ;PPU address high byte.
LA3F2: .byte $EB ;PPU address low byte.
LA3F3: .byte $0B ;PPU string length.
; 'A S S I S T E D _ B Y'
LA3F4: .byte $0A, $1C, $1C, $12, $1C, $1D, $0E, $0D, $FF, $0B, $22
;Writes credits on name table 2 in row $2B20 (26th row from top).
LA3FF: .byte $2B ;PPU address high byte.
LA400: .byte $28 ;PPU address low byte.
LA401: .byte $0F ;PPU string length.
; '_ _ _ M A K O T O _ K A N O H'
LA402: .byte $FF, $FF, $FF, $16, $0A, $14, $18, $1D, $18, $FF, $14, $0A, $17, $18, $11
LA411: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2BA0 (bottom row).
LA412: .byte $2B ;PPU address high byte.
LA413: .byte $A6 ;PPU address low byte.
LA414: .byte $53 ;PPU string length.
LA415: .byte $FF ;Repeat bit set. Repeats entry 19 times.
LA416: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2020 (2nd row from the top).
LA417: .byte $20 ;PPU address high byte.
LA418: .byte $2B ;PPU address low byte.
LA419: .byte $0B ;PPU string length.
; 'D I R E C T E D _ B Y'
LA41A: .byte $0D, $12, $1B, $0E, $0C, $1D, $0E, $0D, $FF, $0B, $22
LA425: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2060 (4th row from the top).
LA426: .byte $20 ;PPU address high byte.
LA427: .byte $67 ;PPU address low byte.
LA428: .byte $14 ;PPU string length.
; '_ _ _ _ _ Y A M A M O T O _ _ _'
LA429: .byte $FF, $FF, $FF, $FF, $FF, $22, $0A, $16, $0A, $16, $18, $1D, $18, $FF, $FF, $FF
; '_ _ _ _'
LA439: .byte $FF, $FF, $FF, $FF
;Writes credits on name table 0 in row $20A0 (6th row from the top).
LA43D: .byte $20 ;PPU address high byte.
LA43E: .byte $AA ;PPU address low byte.
LA43F: .byte $4E ;PPU string length.
LA440: .byte $FF ;Repeat bit set. Repeats entry 14 times.
LA441: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2120 (10th row from the top).
LA442: .byte $21 ;PPU address high byte.
LA443: .byte $27 ;PPU address low byte.
LA444: .byte $11 ;PPU string length.
; '_ _ C H I E F _ D I R E C T O R'
LA445: .byte $FF, $FF, $0C, $11, $12, $0E, $0F, $FF, $0D, $12, $1B, $0E, $0C, $1D, $18, $1B
; '_'
LA455: .byte $FF
;Writes credits on name table 0 in row $2160 (12th row from the top).
LA456: .byte $21 ;PPU address high byte.
LA457: .byte $68 ;PPU address low byte.
LA458: .byte $11 ;PPU string length.
; '_ _ S A T O R U _ O K A D A _ _'
LA459: .byte $FF, $FF, $1C, $0A, $1D, $18, $1B, $1E, $FF, $18, $14, $0A, $0D, $0A, $FF, $FF
; '_'
LA469: .byte $FF
LA46A: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $21E0 (16th row from the top).
LA46B: .byte $21 ;PPU address high byte.
LA46C: .byte $E6 ;PPU address low byte.
LA46D: .byte $58 ;PPU string length.
LA46E: .byte $FF ;Repeat bit set. Repeats entry 24 times.
LA46F: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2220 (18th row from the top).
LA470: .byte $22 ;PPU address high byte.
LA471: .byte $2B ;PPU address low byte.
LA472: .byte $10 ;PPU string length.
; 'P R O D U C E D _ B Y _ _ _ _ _'
LA473: .byte $19, $1B, $18, $0D, $1E, $0C, $0E, $0D, $FF, $0B, $22, $FF, $FF, $FF, $FF, $FF
;Writes credits on name table 0 in row $2260 (20th row from the top).
LA483: .byte $22 ;PPU address high byte.
LA484: .byte $6A ;PPU address low byte.
LA485: .byte $0C ;PPU string length.
; 'G U N P E I _ Y O K O I'
LA486: .byte $10, $1E, $17, $19, $0E, $12, $FF, $22, $18, $14, $18, $12
LA492: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $22A0 (22nd row from the top).
LA493: .byte $22 ;PPU address high byte.
LA494: .byte $A6 ;PPU address low byte.
LA495: .byte $53 ;PPU string length.
LA496: .byte $FF ;Repeat bit set. Repeats entry 19 times.
;Writes credits on name table 0 in row $22E0 (24th row from the top).
LA497: .byte $22 ;PPU address high byte.
LA498: .byte $E8 ;PPU address low byte.
LA499: .byte $4F ;PPU string length.
LA49A: .byte $FF ;Repeat bit set. Repeats entry 15 times.
LA49B: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2320 (26th row from the top).
LA49C: .byte $23 ;PPU address high byte.
LA49D: .byte $29 ;PPU address low byte.
LA49E: .byte $4D ;PPU string length.
LA49F: .byte $FF ;Repeat bit set. Repeats entry 13 times.
;Writes credits on name table 0 in row $2340 (27th row from the top).
LA4A0: .byte $23 ;PPU address high byte.
LA4A1: .byte $4B ;PPU address low byte.
LA4A2: .byte $09 ;PPU string length.
; 'C O P Y R I G H T'
LA4A3: .byte $0C, $18, $19, $22, $1B, $12, $10, $11, $1D
LA4AC: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2360 (28th row from the top).
LA4AD: .byte $23 ;PPU address high byte.
LA4AE: .byte $6B ;PPU address low byte.
LA4AF: .byte $4A ;PPU string length.
LA4B0: .byte $FF ;Repeat bit set. Repeats entry 10 times.
;Writes credits on name table 0 in row $2380 (29th row from the top).
LA4B1: .byte $23 ;PPU address high byte.
LA4B2: .byte $8E ;PPU address low byte.
LA4B3: .byte $04 ;PPU string length.
; '1 9 8 6'
LA4B4: .byte $01, $09, $08, $06
;Writes credits on name table 0 in row $23A0 (bottom row).
LA4B8: .byte $23 ;PPU address high byte.
LA4B9: .byte $A8 ;PPU address low byte.
LA4BA: .byte $4F ;PPU string length.
LA4BB: .byte $FF ;Repeat bit set. Repeats entry 10 times.
LA4BC: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2800 (top row)
LA4BD: .byte $28 ;PPU address high byte.
LA4BE: .byte $0C ;PPU address low byte.
LA4BF: .byte $08 ;PPU string length.
; 'N I N T E N D O'
LA4C0: .byte $17, $12, $17, $1D, $0E, $17, $0D, $18
;Writes credits on name table 2 in row $2860 (4th row from top).
LA4C8: .byte $28 ;PPU address high byte.
LA4C9: .byte $66 ;PPU address low byte.
LA4CA: .byte $51 ;PPU string length.
LA4CB: .byte $FF ;Repeat bit set. Repeats entry 17 times.
LA4CC: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $28A0 (6th row from top).
LA4CD: .byte $28 ;PPU address high byte.
LA4CE: .byte $AA ;PPU address low byte.
LA4CF: .byte $4C ;PPU string length.
LA4D0: .byte $FF ;Repeat bit set. Repeats entry 12 times.
LA4D1: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2920 (10th row from top).
LA4D2: .byte $29 ;PPU address high byte.
LA4D3: .byte $26 ;PPU address low byte.
LA4D4: .byte $5B ;PPU string length.
LA4D5: .byte $FF ;Repeat bit set. Repeats entry 27 times.
LA4D6: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2960 (12th row from top).
LA4D7: .byte $29 ;PPU address high byte.
LA4D8: .byte $67 ;PPU address low byte.
LA4D9: .byte $52 ;PPU string length.
LA4DA: .byte $FF ;Repeat bit set. Repeats entry 18 times.
LA4DB: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $29E0 (16th row from top).
LA4DC: .byte $29 ;PPU address high byte.
LA4DD: .byte $E6 ;PPU address low byte.
LA4DE: .byte $54 ;PPU string length.
LA4DF: .byte $FF ;Repeat bit set. Repeats entry 20 times.
LA4E0: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2A20 (18th row from top).
LA4E1: .byte $2A ;PPU address high byte.
LA4E2: .byte $28 ;PPU address low byte.
LA4E3: .byte $55 ;PPU string length.
LA4E4: .byte $FF ;Repeat bit set. Repeats entry 21 times.
LA4E5: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2AE0 (24th row from top).
LA4E6: .byte $2A ;PPU address high byte.
LA4E7: .byte $E6 ;PPU address low byte.
LA4E8: .byte $50 ;PPU string length.
LA4E9: .byte $FF ;Repeat bit set. Repeats entry 16 times.
LA4EA: .byte $00 ;End PPU string write.
;Writes credits on name table 2 in row $2B20 (26th row from top).
LA4EB: .byte $2B ;PPU address high byte.
LA4EC: .byte $29 ;PPU address low byte.
LA4ED: .byte $4E ;PPU string length.
LA4EE: .byte $FF ;Repeat bit set. Repeats entry 14 times.
LA4EF: .byte $00 ;End PPU string write.
;Writes the top half of 'The End' on name table 0 in row $2020 (2nd row from top).
LA4F0: .byte $20 ;PPU address high byte.
LA4F1: .byte $26 ;PPU address low byte.
LA4F2: .byte $14 ;PPU string length.
LA4F3: .byte $FF, $FF, $FF, $FF, $FF, $24, $25, $26, $27, $FF, $FF, $2C, $2D, $2E, $2F, $FF
LA503: .byte $FF, $FF, $FF, $FF
LA507: .byte $00 ;End PPU string write.
;Writes the bottom half of 'The End' on name table 0 in row $2040 (3rd row from top).
LA508: .byte $20 ;PPU address high byte.
LA509: .byte $4B ;PPU address low byte.
LA50A: .byte $0A ;PPU string length.
LA50B: .byte $28, $29, $2A, $2B, $FF, $FF, $02, $03, $04, $05
;Writes credits on name table 0 in row $2060 (4th row from top).
LA515: .byte $20 ;PPU address high byte.
LA516: .byte $6A ;PPU address low byte.
LA517: .byte $4C ;PPU string length.
LA518: .byte $FF ;Repeat bit set. Repeats entry 12 times.
LA519: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2120 (10th row from top).
LA51A: .byte $21 ;PPU address high byte.
LA51B: .byte $26 ;PPU address low byte.
LA51C: .byte $53 ;PPU string length.
LA51D: .byte $FF ;Repeat bit set. Repeats entry 19 times.
LA51E: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2160 (12th row from top).
LA51F: .byte $21 ;PPU address high byte.
LA520: .byte $6A ;PPU address low byte.
LA521: .byte $4C ;PPU string length.
LA522: .byte $FF ;Repeat bit set. Repeats entry 12 times.
LA523: .byte $00 ;End PPU string write.
;Writes credits on name table 0 in row $2180 (13th row from top).
LA524: .byte $21 ;PPU address high byte.
LA525: .byte $88 ;PPU address low byte.
LA526: .byte $11 ;PPU string length.
; '_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _'
LA527: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
; '_'
LA537: .byte $FF
;Writes credits on name table 0 in row $2220 (18th row from top).
LA538: .byte $22 ;PPU address high byte.
LA539: .byte $26 ;PPU address low byte.
LA53A: .byte $4B ;PPU string length.
LA53B: .byte $FF ;Repeat bit set. Repeats entry 11 times.
LA53C: .byte $00 ;End PPU string write.
LA53D: .byte $00 ;End PPU block write.
;-------------------------------------------[ World map ]--------------------------------------------
WorldMap:
LA53E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
LA54E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
LA55E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $08, $FF, $08, $FF, $FF
LA56E: .byte $FF, $FF, $FF, $FF, $08, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
LA57E: .byte $FF, $FF, $FF, $2C, $2B, $27, $15, $15, $16, $14, $13, $04, $FF, $06, $08, $0A
LA58E: .byte $1A, $29, $29, $28, $2E, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $08, $FF
LA59E: .byte $FF, $0E, $FF, $01, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $03, $1F, $23
LA5AE: .byte $25, $24, $26, $20, $1E, $1F, $21, $21, $07, $22, $1D, $1B, $21, $20, $04, $FF
LA5BE: .byte $FF, $10, $FF, $0E, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $06, $FF, $FF
LA5CE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $02, $FF
LA5DE: .byte $FF, $10, $FF, $0B, $FF, $FF, $08, $0A, $1A, $29, $28, $04, $FF, $06, $FF, $FF
LA5EE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $08, $0A, $1A, $29, $29, $28, $04, $FF
LA5FE: .byte $FF, $10, $FF, $0B, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $06, $FF, $FF
LA60E: .byte $FF, $FF, $08, $FF, $FF, $FF, $08, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF
LA61E: .byte $FF, $10, $FF, $0F, $11, $13, $14, $14, $13, $12, $0D, $03, $00, $05, $0C, $0E
LA62E: .byte $0E, $0D, $10, $0C, $0F, $0D, $10, $0C, $0E, $1B, $0F, $0E, $0F, $0D, $04, $FF
LA63E: .byte $FF, $10, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $0C, $06, $FF, $06, $FF, $FF
LA64E: .byte $FF, $FF, $11, $FF, $FF, $FF, $06, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $08, $FF
LA65E: .byte $FF, $10, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $0C, $06, $FF, $06, $FF, $FF
LA66E: .byte $FF, $FF, $11, $0A, $1A, $28, $04, $FF, $06, $FF, $FF, $FF, $FF, $FF, $06, $FF
LA67E: .byte $FF, $10, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $0C, $06, $FF, $06, $FF, $FF
LA68E: .byte $FF, $FF, $08, $FF, $FF, $FF, $08, $FF, $08, $1B, $06, $19, $19, $2A, $0B, $FF
LA69E: .byte $FF, $0F, $04, $03, $02, $05, $06, $07, $08, $09, $0A, $06, $FF, $03, $12, $14
LA6AE: .byte $15, $14, $07, $16, $15, $13, $0B, $FF, $0C, $07, $19, $19, $19, $2A, $0E, $FF
LA6BE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $08, $FF, $FF
LA6CE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $01, $FF, $0A, $1B, $04, $0F, $06, $2A, $0E, $FF
LA6DE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $06, $FF, $FF
LA6EE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $02, $FF, $06, $FF, $FF, $FF, $FF, $FF, $09, $FF
LA6FE: .byte $FF, $08, $17, $09, $14, $13, $18, $12, $14, $19, $13, $04, $FF, $08, $1D, $1F
LA70E: .byte $06, $1F, $19, $1E, $1E, $1C, $03, $28, $29, $29, $29, $2B, $29, $2A, $0E, $FF
LA71E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $FF, $FF, $FF, $08, $FF, $08, $1D, $1F
LA72E: .byte $1E, $19, $07, $19, $19, $2C, $06, $06, $2B, $2B, $1A, $1A, $1A, $2A, $0B, $FF
LA73E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $0B, $FF, $FF, $0B, $FF, $06, $07, $04
LA74E: .byte $0F, $10, $0B, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $09, $FF
LA75E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $06, $FF, $07, $17, $18, $0C, $FF, $08, $21, $25
LA76E: .byte $25, $22, $03, $21, $25, $20, $00, $27, $2C, $2C, $06, $04, $0F, $10, $0E, $FF
LA77E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $03, $1C, $07, $17, $18, $0C, $FF, $0A, $21, $23
LA78E: .byte $25, $22, $03, $21, $24, $24, $24, $23, $23, $06, $24, $25, $22, $11, $2D, $FF
LA79E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $08, $01, $07, $17, $18, $0C, $FF, $09, $FF, $FF
LA7AE: .byte $FF, $06, $06, $FF, $FF, $FF, $FF, $FF, $FF, $07, $26, $25, $22, $0B, $2D, $FF
LA7BE: .byte $FF, $0B, $FF, $FF, $FF, $FF, $FF, $02, $0B, $FF, $FF, $08, $FF, $0A, $12, $14
LA7CE: .byte $13, $03, $12, $15, $13, $0D, $12, $14, $06, $14, $18, $15, $19, $07, $09, $FF
LA7DE: .byte $FF, $09, $17, $1C, $10, $19, $18, $03, $13, $10, $18, $0C, $FF, $06, $FF, $FF
LA7EE: .byte $FF, $09, $04, $0F, $10, $0B, $FF, $FF, $08, $12, $16, $16, $16, $13, $0E, $FF
LA7FE: .byte $FF, $0A, $17, $1C, $1C, $1C, $18, $03, $13, $19, $12, $0B, $FF, $00, $FF, $FF
LA80E: .byte $0B, $08, $12, $19, $19, $07, $FF, $FF, $08, $05, $FF, $FF, $FF, $FF, $06, $FF
LA81E: .byte $FF, $05, $FF, $FF, $0B, $FF, $FF, $08, $FF, $FF, $FF, $FF, $0B, $FF, $FF, $FF
LA82E: .byte $FF, $06, $FF, $FF, $FF, $FF, $FF, $05, $06, $01, $FF, $FF, $FF, $FF, $0B, $FF
LA83E: .byte $FF, $05, $FF, $FF, $07, $17, $18, $04, $13, $14, $14, $16, $0C, $FF, $05, $FF
LA84E: .byte $FF, $05, $0F, $18, $17, $18, $19, $29, $05, $02, $FF, $FF, $FF, $FF, $05, $FF
LA85E: .byte $FF, $05, $FF, $FF, $08, $FF, $FF, $05, $FF, $0B, $10, $18, $0D, $FF, $0A, $20
LA86E: .byte $22, $0D, $25, $26, $26, $26, $1D, $0E, $0E, $03, $23, $24, $24, $15, $07, $FF
LA87E: .byte $FF, $05, $FF, $FF, $23, $17, $18, $06, $22, $0C, $FF, $0B, $0E, $FF, $0B, $FF
LA88E: .byte $FF, $04, $FF, $FF, $FF, $FF, $05, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $08, $FF
LA89E: .byte $FF, $23, $22, $1A, $13, $10, $14, $1C, $16, $06, $21, $0C, $0E, $FF, $0A, $1C
LA8AE: .byte $1D, $03, $20, $21, $21, $22, $06, $23, $0F, $28, $27, $27, $27, $19, $07, $FF
LA8BE: .byte $FF, $0B, $FF, $1E, $1F, $20, $20, $20, $0F, $15, $21, $24, $0E, $FF, $04, $FF
LA8CE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $04, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $08, $FF
LA8DE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $1D, $1B, $17, $18, $0C, $FF, $04, $11
LA8EE: .byte $10, $12, $13, $14, $14, $15, $03, $1C, $1E, $1E, $1F, $1F, $1F, $1D, $07, $FF
LA8FE: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $0B, $FF, $0C, $16
LA90E: .byte $18, $17, $18, $17, $0F, $17, $17, $1A, $1A, $17, $1B, $1B, $17, $19, $09, $FF
LA91E: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
LA91F: .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
CopyMap:
LA93E: LDA #$3E ;
LA940: STA $00 ;
LA942: LDA #$A5 ;
LA944: STA $01 ;
LA946: LDA #$00 ;
LA948: STA $02 ;
LA94A: LDA #$70 ;Loads contents of world map into -->
LA94C: STA $03 ;RAM at addresses $7000 thru $73FF.
LA94E: LDX #$04 ;
LA950:* LDY #$00 ;
LA952:* LDA ($00),Y ;
LA954: STA ($02),Y ;
LA956: INY ;
LA957: BNE - ;
LA959: INC $01 ;
LA95B: INC $03 ;
LA95D: DEX ;
LA95E: BNE -- ;
LA960: RTS ;
.advance $AC00, $00
.include "music/TitleMusic.asm"
.advance $B200, $00
.include "SoundEngine.asm"
.advance $C000, $00