The Little Mermaid/ROM map

From Data Crystal
< The Little Mermaid
Revision as of 14:29, 24 January 2024 by Hawk (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

Chip tiny.png The following article is a ROM map for The Little Mermaid.

Page 06 (0x8000-0xBFFF)

Address in ROM: 0x18010-0x1C00F

Function 0x8000

Runs the action scripts of every object slot from lowest to highest and checks for collisions each frame.

06:8000:A5 B1     LDA $00B1   ; Check Ariel's health
06:8002:F0 3A     BEQ $803E   ; Exit if zero 
06:8004:A2 01     LDX #$01
06:8006:86 EF     STX $00EF   ; Current slot #
06:8008:A9 06     LDA #$06
06:800A:85 99     STA $0099   ; ?

06:800C:BD 00 03  LDA $0300,X 
06:800F:10 25     BPL $8036   ; Skip ahead if slot is empty
06:8011:BD A0 04  LDA $04A0,X ; Check if object is stunned
06:8014:D0 16     BNE $802C   ;  If so, skip action script

06:8016:BC 10 03  LDY $0310,X
06:8019:B9 20 85  LDA $8520,Y ; Obtain address of action script
06:801C:85 00     STA $0000   ;  from jump table
06:801E:B9 80 85  LDA $8580,Y ; 
06:8021:85 01     STA $0001
06:8023:A9 80     LDA #$80    ; Set return address
06:8025:48        PHA
06:8026:A9 2B     LDA #$2B
06:8028:48        PHA
06:8029:6C 00 00  JMP ($0000) ; Run object's action script

06:802C:E0 03     CPX #$03    ; Check if object is a bubble
06:802E:90 06     BCC $8036   ; Jump ahead if so
06:8030:20 3F 80  JSR $803F   ; Test collision with Ariel
06:8033:20 FF 80  JSR $80FF   ; Test collision with bubble

06:8036:E6 EF     INC $00EF   ; Tick up to next object slot
06:8038:A6 EF     LDX $00EF   
06:803A:E0 10     CPX #$10    ; Loop until all slots examined
06:803C:D0 CA     BNE $8008
06:803E:60        RTS -----------------------------------------

Function 0x803F

Checks if Ariel is colliding with object X and performs appropriate action if so.

06:803F:20 F2 FA  JSR $FAF2   ; Check if Ariel is colliding with object X
06:8042:B0 79     BCS $80BD   ; Exit if not

06:8044:BD C0 03  LDA $03C0,X ; Check if item has damage flag
06:8047:29 40     AND #$40    ;
06:8049:F0 73     BEQ $80BE   ; Skip to next section if not

ARIEL COLLIDES WITH DAMAGING OBJECT

06:804B:A5 3F     LDA $003F
06:804D:05 2F     ORA $002F
06:804F:D0 6C     BNE $80BD   ; Exit unless both are zero

06:8051:A5 BB     LDA $00BB
06:8053:D0 68     BNE $80BD   ; Exit if not zero

06:8055:A9 07     LDA #$07
06:8057:C5 30     CMP $0030
06:8059:F0 62     BEQ $80BD   ; Exit if Ariel is already in damage animation

ARIEL TAKES DAMAGE

06:805B:C6 B1     DEC $00B1   ; Tick down health
06:805D:D0 05     BNE $8064   ; Jump ahead if not zero

06:805F:A0 00     LDY #$00
06:8061:8C 80 04  STY $0480   ; Clear Parameter 3

06:8064:A4 30     LDY $0030
06:8066:8C 60 04  STY $0460   ; Preserve Ariel's previous action phase
06:8069:85 30     STA $0030   ; Set damage animation
06:806B:A9 1D     LDA #$1D
06:806D:20 A0 FC  JSR $FCA0
06:8070:C0 04     CPY #$04
06:8072:F0 27     BEQ $809B
06:8074:C0 05     CPY #$05
06:8076:F0 23     BEQ $809B
06:8078:A9 08     LDA #$08
06:807A:8D 30 04  STA $0430
06:807D:A9 00     LDA #$00
06:807F:8D 18 04  STA $0418
06:8082:8D 48 04  STA $0448
06:8085:8D 60 04  STA $0460
06:8088:C0 02     CPY #$02
06:808A:D0 0F     BNE $809B
06:808C:8C 60 04  STY $0460
06:808F:AC B0 03  LDY $03B0
06:8092:30 29     BMI $80BD
06:8094:8D A0 03  STA $03A0
06:8097:8D B0 03  STA $03B0
06:809A:60        RTS -----------------------------------------
06:809B:A9 00     LDA #$00
06:809D:85 3A     STA $003A
06:809F:8D 80 03  STA $0380
06:80A2:A9 01     LDA #$01
06:80A4:8D 90 03  STA $0390
06:80A7:A9 10     LDA #$10
06:80A9:8D 70 04  STA $0470
06:80AC:A9 01     LDA #$01
06:80AE:8D D0 03  STA $03D0
06:80B1:AD 00 04  LDA $0400
06:80B4:29 40     AND #$40
06:80B6:F0 21     BEQ $80D9
06:80B8:A9 02     LDA #$02
06:80BA:8D D0 03  STA $03D0
06:80BD:60        RTS -----------------------------------------

ARIEL COLLIDES WITH CARRYABLE OBJECT

06:80BE:A5 3A     LDA $003A
06:80C0:05 30     ORA $0030
06:80C2:D0 15     BNE $80D9
06:80C4:BD 10 03  LDA $0310,X 
06:80C7:C9 30     CMP #$30    ; Check if object is shell
06:80C9:F0 0C     BEQ $80D7   ; If so, set as carried object
06:80CB:C9 02     CMP #$02    ; Check if object is bubble
06:80CD:D0 0A     BNE $80D9   ; If not, exit

06:80CF:86 3A     STX $003A   ; Set bubble as carried object
06:80D1:A9 00     LDA #$00
06:80D3:9D 80 04  STA $0480,X ; Set bubble's parameter 3 as zero
06:80D6:60        RTS -----------------------------------------
06:80D7:86 3A     STX $003A
06:80D9:60        RTS -----------------------------------------

Function 0x81C4

06:81C4:86 04     STX $0004   ; Temp storage for current object slot
06:81C6:BD 00 04  LDA $0400,X ; Object orientation
06:81C9:30 03     BMI $81CE
06:81CB:4C 84 82  JMP $8284   
06:81CE:A9 00     LDA #$00    
06:81D0:85 07     STA $0007
06:81D2:BD C0 03  LDA $03C0,X ; 
06:81D5:29 1F     AND #$1F
06:81D7:C9 02     CMP #$02
06:81D9:F0 04     BEQ $81DF
06:81DB:C9 03     CMP #$03
06:81DD:D0 04     BNE $81E3
06:81DF:A9 08     LDA #$08
06:81E1:85 07     STA $0007
06:81E3:A0 0F     LDY #$0F
06:81E5:BD 60 03  LDA $0360,X ; Object y-position low byte
06:81E8:38        SEC
06:81E9:E5 FA     SBC $00FA
06:81EB:B0 03     BCS $81F0
06:81ED:E9 0F     SBC #$0F
06:81EF:18        CLC
06:81F0:85 05     STA $0005
06:81F2:BD 70 03  LDA $0370,X ; Object y-position high byte
06:81F5:E5 FB     SBC $00FB
06:81F7:29 01     AND #$01
06:81F9:F0 03     BEQ $81FE
06:81FB:4C 84 82  JMP $8284
06:81FE:C4 04     CPY $0004
06:8200:F0 7A     BEQ $827C
06:8202:B9 00 03  LDA $0300,Y
06:8205:10 75     BPL $827C
06:8207:B9 00 04  LDA $0400,Y
06:820A:10 70     BPL $827C
06:820C:29 04     AND #$04
06:820E:D0 6C     BNE $827C
06:8210:B9 C0 03  LDA $03C0,Y
06:8213:29 40     AND #$40
06:8215:F0 65     BEQ $827C
06:8217:BE 10 03  LDX $0310,Y
06:821A:BD C0 84  LDA $84C0,X
06:821D:F0 5D     BEQ $827C
06:821F:B9 A0 04  LDA $04A0,Y
06:8222:D0 58     BNE $827C
06:8224:B9 C0 03  LDA $03C0,Y
06:8227:29 1F     AND #$1F
06:8229:AA        TAX
06:822A:BD 80 FB  LDA $FB80,X
06:822D:18        CLC
06:822E:65 07     ADC $0007
06:8230:85 02     STA $0002
06:8232:C6 02     DEC $0002
06:8234:BD 60 FB  LDA $FB60,X
06:8237:18        CLC
06:8238:65 07     ADC $0007
06:823A:85 03     STA $0003
06:823C:A6 04     LDX $0004
06:823E:B9 30 03  LDA $0330,Y
06:8241:38        SEC
06:8242:FD 30 03  SBC $0330,X
06:8245:48        PHA
06:8246:B9 40 03  LDA $0340,Y
06:8249:FD 40 03  SBC $0340,X
06:824C:68        PLA
06:824D:B0 04     BCS $8253
06:824F:49 FF     EOR #$FF
06:8251:69 01     ADC #$01
06:8253:C5 02     CMP $0002
06:8255:B0 25     BCS $827C
06:8257:B9 60 03  LDA $0360,Y
06:825A:38        SEC
06:825B:E5 FA     SBC $00FA
06:825D:B0 03     BCS $8262
06:825F:E9 0F     SBC #$0F
06:8261:18        CLC
06:8262:85 1F     STA $001F
06:8264:B9 70 03  LDA $0370,Y
06:8267:E5 FB     SBC $00FB
06:8269:29 01     AND #$01
06:826B:D0 0F     BNE $827C
06:826D:A5 1F     LDA $001F
06:826F:38        SEC
06:8270:E5 05     SBC $0005
06:8272:B0 04     BCS $8278
06:8274:49 FF     EOR #$FF
06:8276:69 01     ADC #$01
06:8278:C5 03     CMP $0003
06:827A:90 12     BCC $828E
06:827C:88        DEY
06:827D:C0 02     CPY #$02
06:827F:F0 03     BEQ $8284
06:8281:4C FE 81  JMP $81FE
06:8284:A6 04     LDX $0004
06:8286:38        SEC
06:8287:60        RTS -----------------------------------------

Data Table 0x8520

Jump table for object action functions

Action # Address Description
0x00 0x85E0 Blank (used for Ariel)
0x01 0x85E1 Thrown objects
0x02 0x888F Enemy in bubble
0x03 0x8A14 Fish, Type 1
0x04 0x867A
0x05 0x8A65 Seahorse
0x06 0x8A9B
0x07 0x8BDC
0x08 0x8BE2 Spitting fish
0x09 0x8CA3
0x0A 0x8CBA Octopus
0x0B 0x8DC5 Octopus' rock
0x0C 0x9BA7 Stage 1 Boss (Shark): Sending Fish
0x0D 0x9CC4 Stage 1 Boss (Shark): Dashing
0x0E 0x9D37 Fish (Stage 1 Boss fight)
0x0F 0xA3B3 Cannon (Stage 4 Boss fight)
0x10 0x8F89
0x11 0x8FC7
0x12 0x9046 Fish, Type 2
0x13 0xAF50
0x14 0xAF50
0x15 0x908F Crab (Stage 2 Boss fight)
0x16 0x91D9 Tiny fish (following Ariel)
0x17 0x913F
0x18 0x913F
0x19 0x913F
0x1A 0x913F
0x1B 0x913F
0x1C 0x92A9 Sleeper fish
0x1D 0x9229 Tiny fish (default action)
0x1E 0x9367
0x1F 0x9274 Tiny fish (quad pattern)
0x20 0x940C Shrimp
0x21 0x9460 Poor Unfortunate Soul (Stage 5)
0x22 0x9461 Starfish spawner
0x23 0x954F Starfish (shooting upward)
0x24 0x9604 Frozen fish
0x25 0x908F Helmet crab
0x26 0x869D Crab (walking)
0x27 0x86C1 Crab (ducking/falling)
0x28 0x86F1
0x29 0x8715
0x2A 0x9D3A Stage 3 Boss (Walrus): Default
0x2B 0x9EC7 Stage 3 Boss (Walrus): Dropping item
0x2C 0x9F60 Stage 2 Boss (Eel) #1
0x2D 0x9F60 Stage 2 Boss (Eel) #2
0x2E 0xA1CF Stage 4 Boss (Seahorse)
0x2F 0xA324 Fish (Stage 4 Boss fight)
0x30 0x986D Carried item
0x31 0x97D5
0x32 0x97D5
0x33 0x97D5
0x34 0x9A36
0x35 0x9A36
0x36 0x9A11
0x37 0x87EE
0x38 0x998B Red Orb
0x39 0x998B Green Orb
0x3A 0x9A69
0x3B 0x9A69
0x3C 0x8DCB Volcano
0x3D 0x878B
0x3E 0xA63D
0x3F 0x888E
0x40 0x888E Water splash
0x41 0x8EE3
0x42 0x877D End-of-stage jar
0x43 0x8DCB Upside-down volcano
0x44 0x8E8C Volcanic rock
0x45 0x9654
0x46 0x96E1
0x47 0xA3D9 Stage 5 Boss (Ursula 1)
0x48 0xA54F Enemy Spawn 1 (Stage 5 Boss fight)
0x49 0xA5F0 Enemy Spawn 2 (Stage 5 Boss fight)
0x4A 0xA5F6 Orb (Stage 5 Boss fight)
0x4B 0x8F6E
0x4C 0x876B
0x4D 0x9AA1 Hidden item (?)
0x4E 0x9AA1 Hidden item (?)
0x4F 0x9AA1 Hidden item (?)
0x50 0x9AA1 Hidden item (?)
0x51 0x9AA1 Hidden item (?)
0x52 0x9B0A Flounder
0x53 0x9B0A
0x54 0x9B0A
0x55 0x9B0A
0x56 0x9B0A
0x57 0xA692 Stage 6 Boss (Ursula 2)
0x58 0xA83E Fish (Stage 6 Boss fight)
0x59 0xA879
0x5A 0xA0D8 Crab spawner (Stage 2 Boss fight)
0x5B 0xA324
0x5C 0x8821
0x5D 0x8872
0x5E 0x887F
0x5F 0x888E Urchin (Stage 4 Boss fight)

Function 0x85E0

Action script 0x00 - Ariel

06:85E0:60        RTS -----------------------------------------

Function 0x85E1

Action script 0x01 - Thrown objects

06:85E1:20 C4 81  JSR $81C4 
06:85E4:B0 0A     BCS $85F0 
06:85E6:BD 30 04  LDA $0430,X ; Animation loop
06:85E9:C9 40     CMP #$40    ; Check if shell
06:85EB:D0 F3     BNE $85E0   
06:85ED:4C 47 86  JMP $8647   ; Function that handles thrown shell
06:85F0:20 35 D5  JSR $D535
06:85F3:B0 06     BCS $85FB
06:85F5:A9 00     LDA #$00
06:85F7:9D 00 03  STA $0300,X
06:85FA:60        RTS -----------------------------------------
06:85FB:BD 30 04  LDA $0430,X
06:85FE:C9 40     CMP #$40
06:8600:F0 1D     BEQ $861F
06:8602:A0 08     LDY #$08
06:8604:20 B9 FC  JSR $FCB9
06:8607:B0 0E     BCS $8617
06:8609:A0 06     LDY #$06
06:860B:20 CC FC  JSR $FCCC
06:860E:A5 10     LDA $0010
06:8610:F0 05     BEQ $8617
06:8612:B0 03     BCS $8617
06:8614:4C 4E 98  JMP $984E
06:8617:20 71 83  JSR $8371
06:861A:A9 1B     LDA #$1B
06:861C:4C A0 FC  JMP $FCA0
06:861F:A0 08     LDY #$08
06:8621:20 B9 FC  JSR $FCB9
06:8624:20 4E 98  JSR $984E
06:8627:90 13     BCC $863C
06:8629:A5 BE     LDA $00BE
06:862B:C9 30     CMP #$30
06:862D:D0 18     BNE $8647
06:862F:A5 1A     LDA $001A
06:8631:D0 46     BNE $8679
06:8633:20 BA E7  JSR $E7BA
06:8636:20 64 FE  JSR $FE64
06:8639:4C 47 86  JMP $8647
06:863C:A0 06     LDY #$06
06:863E:20 CC FC  JSR $FCCC
06:8641:A5 10     LDA $0010
06:8643:F0 02     BEQ $8647
06:8645:90 32     BCC $8679
06:8647:BD D0 03  LDA $03D0,X
06:864A:29 08     AND #$08
06:864C:F0 14     BEQ $8662
06:864E:BD 60 03  LDA $0360,X
06:8651:38        SEC
06:8652:E5 FA     SBC $00FA
06:8654:B0 02     BCS $8658
06:8656:E9 0F     SBC #$0F
06:8658:C9 04     CMP #$04
06:865A:B0 06     BCS $8662
06:865C:A9 00     LDA #$00
06:865E:9D 00 03  STA $0300,X
06:8661:60        RTS -----------------------------------------
06:8662:A9 04     LDA #$04
06:8664:9D D0 03  STA $03D0,X
06:8667:A9 00     LDA #$00
06:8669:9D A0 03  STA $03A0,X
06:866C:9D B0 03  STA $03B0,X
06:866F:A9 81     LDA #$81
06:8671:9D 00 03  STA $0300,X
06:8674:A9 30     LDA #$30
06:8676:9D 10 03  STA $0310,X
06:8679:60        RTS -----------------------------------------

Function 0x9BA7

Action script 0x0C - Stage 1 Boss (Shark): Sending Fish

06:9BA7:BD 00 03  LDA $0300,X ; 
06:9BAA:29 0F     AND #$0F    ; Identify phase # of boss fight
06:9BAC:D0 1D     BNE $9BCB   ; Jump ahead if not Phase 0

PHASE 0 - Intro
06:9BAE:20 09 A6  JSR $A609   ; Boss intro
06:9BB1:90 3C     BCC $9BEF   ; Only advance if intro has ended

06:9BB3:20 DF FC  JSR $FCDF   ; Turn sprite the right direction & begin moving horizontally onto screen
06:9BB6:FE 70 04  INC $0470,X ; Tick up timer
06:9BB9:BD 70 04  LDA $0470,X ; 
06:9BBC:C9 40     CMP #$40    ; Move left for 0x40 (64) frames
06:9BBE:D0 2F     BNE $9BEF   ; 
06:9BC0:FE 00 03  INC $0300,X ; Advance to Phase 1
06:9BC3:A9 00     LDA #$00    ; 
06:9BC5:9D 60 04  STA $0460,X ; Set timer 1 to zero
06:9BC8:9D 70 04  STA $0470,X ; Set timer 2 to zero

PHASE 1
06:9BCB:BD 70 04  LDA $0470,X ; If timer 2 is zero, jump ahead
06:9BCE:F0 20     BEQ $9BF0   ; Else tick down
06:9BD0:DE 70 04  DEC $0470,X ; 
06:9BD3:D0 1A     BNE $9BEF   ; Exit

06:9BD5:A9 02     LDA #$02    ; 
06:9BD7:9D 90 03  STA $0390,X ; 
06:9BDA:A9 00     LDA #$00    ; 
06:9BDC:9D 80 03  STA $0380,X ; 
06:9BDF:9D 60 04  STA $0460,X ; 
06:9BE2:9D 90 04  STA $0490,X ; 
06:9BE5:A9 0D     LDA #$0D    ; 
06:9BE7:9D 10 03  STA $0310,X ; 
06:9BEA:A9 5D     LDA #$5D    ; 
06:9BEC:20 45 FC  JSR $FC45   ; Change to action script 0x0D (Dashing)
06:9BEF:60        RTS -----------------------------------------
06:9BF0:BD 00 03  LDA $0300,X 
06:9BF3:29 0F     AND #$0F
06:9BF5:C9 03     CMP #$03
06:9BF7:F0 48     BEQ $9C41
06:9BF9:20 12 FD  JSR $FD12   ; Check distance on y-axis between Ariel and Shark
06:9BFC:C9 20     CMP #$20
06:9BFE:B0 1C     BCS $9C1C   ; Jump ahead if 0x20 (32) or more 
06:9C00:BD 90 04  LDA $0490,X
06:9C03:D0 0A     BNE $9C0F
06:9C05:A5 E4     LDA $00E4
06:9C07:65 E5     ADC $00E5
06:9C09:85 E5     STA $00E5
06:9C0B:29 01     AND #$01    ; RNG #$00-#$01
06:9C0D:D0 06     BNE $9C15   ; Spawn fish (50/50 chance)
06:9C0F:A9 A0     LDA #$A0
06:9C11:9D 70 04  STA $0470,X ; Set timer between spawning fish and advancing to Phase 2
06:9C14:60        RTS -----------------------------------------
06:9C15:A9 83     LDA #$83
06:9C17:9D 00 03  STA $0300,X ;
06:9C1A:D0 0C     BNE $9C28   
06:9C1C:BD 00 03  LDA $0300,X 
06:9C1F:29 0F     AND #$0F
06:9C21:C9 01     CMP #$01
06:9C23:D0 1C     BNE $9C41   
06:9C25:FE 00 03  INC $0300,X 
06:9C28:A9 20     LDA #$20
06:9C2A:9D 60 04  STA $0460,X
06:9C2D:A9 00     LDA #$00
06:9C2F:9D 90 04  STA $0490,X ;
06:9C32:A8        TAY
06:9C33:AD 60 03  LDA $0360
06:9C36:DD 60 03  CMP $0360,X
06:9C39:90 02     BCC $9C3D
06:9C3B:A0 03     LDY #$03
06:9C3D:98        TYA
06:9C3E:9D 80 04  STA $0480,X
06:9C41:DE 60 04  DEC $0460,X
06:9C44:D0 75     BNE $9CBB
06:9C46:20 54 FE  JSR $FE54
06:9C49:B0 70     BCS $9CBB
06:9C4B:86 0F     STX $000F   ; Object # of slot
06:9C4D:A9 20     LDA #$20
06:9C4F:20 51 FC  JSR $FC51   ; Spawn fish 
06:9C52:BD 60 03  LDA $0360,X 
06:9C55:99 60 03  STA $0360,Y ; Set y-pos (low byte) to same as shark
06:9C58:BD 70 03  LDA $0370,X
06:9C5B:99 70 03  STA $0370,Y ; Set y-pos (high byte) to same as shark
06:9C5E:BD 40 03  LDA $0340,X
06:9C61:99 40 03  STA $0340,Y ; Set x-pos (high byte) to same as shark
06:9C64:BD D0 03  LDA $03D0,X 
06:9C67:99 D0 03  STA $03D0,Y ; Set direction of movement to same as shark
06:9C6A:29 01     AND #$01    
06:9C6C:AA        TAX   
06:9C6D:BD BC 9C  LDA $9CBC,X 
06:9C70:99 30 03  STA $0330,Y ; Set proper x-pos (low byte) for that side of screen
06:9C73:A6 0F     LDX $000F
06:9C75:BD 80 04  LDA $0480,X
06:9C78:AA        TAX
06:9C79:B9 60 03  LDA $0360,Y
06:9C7C:18        CLC
06:9C7D:7D BE 9C  ADC $$9CBE,X
06:9C80:99 60 03  STA $0360,Y
06:9C83:A6 0F     LDX $000F
06:9C85:C9 08     CMP #$08
06:9C87:90 86     BCC $9C0F
06:9C89:C9 E8     CMP #$E8
06:9C8B:B0 82     BCS $9C0F
06:9C8D:A9 00     LDA #$00
06:9C8F:99 80 03  STA $0380,Y
06:9C92:A9 01     LDA #$01
06:9C94:99 90 03  STA $0390,Y ; Set x-speed to 0x100 (1 pixel/frame)
06:9C97:A9 60     LDA #$60
06:9C99:99 C0 03  STA $03C0,Y ; Set "hitbox" and "able to be bubbled" flags
06:9C9C:A9 01     LDA #$01
06:9C9E:99 F0 03  STA $03F0,Y ; Set HP to 1
06:9CA1:A9 0E     LDA #$0E
06:9CA3:99 10 03  STA $0310,Y ; Set action loop to 0x0E
06:9CA6:A9 40     LDA #$40
06:9CA8:9D 60 04  STA $0460,X 
06:9CAB:FE 80 04  INC $0480,X
06:9CAE:FE 90 04  INC $0490,X ; Tick up fish counter
06:9CB1:BD 90 04  LDA $0490,X
06:9CB4:C9 03     CMP #$03    ; Check if fish counter is at 3
06:9CB6:90 03     BCC $9CBB   ; Exit if so
06:9CB8:4C 0F 9C  JMP $9C0F   ; Else, reset fish spawn timer and exit
06:9CBB:60        RTS -----------------------------------------

Data Table 0x9CBC

x-position of spawned fish

06:9CBC:FC ; Shark on right
06:9CBD:04 ; Shark on left

Data Table 0x9CBE

y-positions of fish relative to shark

06:9CBE:E0
06:9CBF:C0
06:9CC0:A0
06:9CC1:20
06:9CC2:40
06:9CC3:60

Function 0xA609

Intro to boss fights

Returns one of the following as a result:

  • Carry set = intro has ended
  • Carry clear = continue intro
06:A609:A5 D9     LDA $00D9
06:A60B:C9 08     CMP #$08
06:A60D:B0 1D     BCS $A62C

06:A60F:A5 30     LDA $0030
06:A611:F0 04     BEQ $A617
06:A613:C9 04     CMP #$04
06:A615:D0 22     BNE $A639    ; Exit (wait to advance)
06:A617:A5 30     LDA $0030
06:A619:8D 70 04  STA $0470    ; Set Ariel's timer 2
06:A61C:A9 08     LDA #$08
06:A61E:85 30     STA $0030
06:A620:85 53     STA $0053
06:A622:20 9E FC  JSR $FC9E
06:A625:A9 60     LDA #$60
06:A627:85 5F     STA $005F
06:A629:8D 60 04  STA $0460    ; Set Ariel's subtimer 1 to #$60

06:A62C:A5 5F     LDA $005F
06:A62E:F0 0B     BEQ $A63B
06:A630:C6 5F     DEC $005F
06:A632:D0 05     BNE $A639
06:A634:A9 00     LDA #$00
06:A636:9D 48 04  STA $0448,X
06:A639:18        CLC         ; Exit (wait to advance)
06:A63A:60        RTS -----------------------------------------
06:A63B:38        SEC         ; Exit (advance to next section)
06:A63C:60        RTS -----------------------------------------

Page 07 (0xC000-0xFFFF)

Location in ROM: 0x1C010-0x2000F

Function 0xC250

Advance random number generator each frame

07:C250:A2 00     LDX #$00
07:C252:A0 04     LDY #$04
07:C254:B5 E4     LDA $E4,X
07:C256:29 02     AND #$02
07:C258:85 00     STA $0000
07:C25A:B5 E5     LDA $E5,X
07:C25C:29 02     AND #$02
07:C25E:45 00     EOR $0000 ; If 0x02 bits of 0xE4 and 0xE5
07:C260:18        CLC       ;  are the same, highest bit of
07:C261:F0 01     BEQ $C264 ;   new RNG value will be zero.
07:C263:38        SEC       ;    Otherwise, it will be one.
07:C264:76 E4     ROR $E4,X ;     Then shift all previous bits right.
07:C266:E8        INX
07:C267:88        DEY
07:C268:D0 FA     BNE $C264
07:C26A:60        RTS -----------------------------------------

Function 0xF887

Moves object to the right a distance equal to its speed

07:F887:BD 20 03  LDA $0320,X
07:F88A:18        CLC
07:F88B:7D 80 03  ADC $0380,X
07:F88E:9D 20 03  STA $0320,X
07:F891:BD 30 03  LDA $0330,X
07:F894:7D 90 03  ADC $0390,X
07:F897:9D 30 03  STA $0330,X
07:F89A:90 08     BCC $F8A4
07:F89C:BD 40 03  LDA $0340,X
07:F89F:69 00     ADC #$00
07:F8A1:9D 40 03  STA $0340,X
07:F8A4:60        RTS -----------------------------------------

Function 0xF8A5

Moves object to the left a distance equal to its speed

07:F8A5:BD 20 03  LDA $0320,X
07:F8A8:38        SEC
07:F8A9:FD 80 03  SBC $0380,X
07:F8AC:9D 20 03  STA $0320,X
07:F8AF:BD 30 03  LDA $0330,X
07:F8B2:FD 90 03  SBC $0390,X
07:F8B5:9D 30 03  STA $0330,X
07:F8B8:B0 08     BCS $F8C2
07:F8BA:BD 40 03  LDA $0340,X
07:F8BD:E9 00     SBC #$00
07:F8BF:9D 40 03  STA $0340,X
07:F8C2:60        RTS -----------------------------------------

Function 0xFCDF

Turns object's sprite to match direction of movement, then moves in that direction

07:FCDF:BD D0 03  LDA $03D0,X
07:FCE2:29 03     AND #$03    ; Check horizontal movement
07:FCE4:F0 2B     BEQ $FD11   ; Exit if none
07:FCE6:29 01     AND #$01    
07:FCE8:F0 0B     BEQ $FCF5   ; Jump ahead if left movement not flagged

MOVING LEFT
07:FCEA:BD 00 04  LDA $0400,X
07:FCED:09 40     ORA #$40    
07:FCEF:9D 00 04  STA $0400,X ; Set "flip sprite" flag
07:FCF2:4C 87 F8  JMP $F887   ; Move left

MOVING RIGHT
07:FCF5:BD 00 04  LDA $0400,X
07:FCF8:29 BF     AND #$BF    
07:FCFA:9D 00 04  STA $0400,X ; Clear "flip sprite" flag
07:FCFD:4C A5 F8  JMP $F8A5   ; Move right

Function 0xFFC8

Set RAM bank 0x8000-0xBFFF to Page A

07:FFC8:AA        TAX
07:FFC9:9D DE FF  STA $FFDE,X
07:FFCC:60        RTS -----------------------------------------

Function 0xFFCD

Set RAM bank 0x8000-0xBFFF to Page A, retaining X/Y values

Store Page # to 0x9B/0x9C?

07:FFCD:85 9B     STA $009B
07:FFCF:85 BF     STA $00BF
07:FFD1:86 9C     STX $009C
07:FFD3:84 9D     STY $009D
07:FFD5:AA        TAX
07:FFD6:9D DE FF  STA $FFDE,X
07:FFD9:A6 9C     LDX $009C
07:FFDB:A4 9D     LDY $009D
07:FFDD:60        RTS -----------------------------------------

Data Table 0xFFDE

Used by functions 0xFFC8 and 0xFFCD for bank switching.

See here for more info.

07:FFDE:00
07:FFDF:01
07:FFE0:02
07:FFE1:03
07:FFE2:04
07:FFE3:05
07:FFE4:06