350 lines
5.8 KiB
NASM
350 lines
5.8 KiB
NASM
; =============================================================================
|
|
; Bottle Net Code
|
|
; =============================================================================
|
|
|
|
org $07B073
|
|
Link_CheckNewY_ButtonPress:
|
|
|
|
org $078028
|
|
Player_DoSfx2:
|
|
|
|
org $1EFE33
|
|
PlayerItem_SpawnFaerie:
|
|
|
|
org $1EDCCF
|
|
PlayerItem_ReleaseBee:
|
|
|
|
; =============================================================================
|
|
; LinkItem_Bottle
|
|
|
|
org $07A15B
|
|
JMP $FFA0 ; Local Bank Conditional
|
|
|
|
; =============================================================================
|
|
; $07FFA0
|
|
|
|
org $07FFA0
|
|
{
|
|
LDA $030D
|
|
|
|
BNE $07FFBD
|
|
LDA $0300
|
|
BNE $07FFBD
|
|
LDA $7F5020
|
|
TAX
|
|
LDA $7EF35B, X
|
|
CMP #$02
|
|
BEQ $07FFBD
|
|
JSR $B073
|
|
JMP $A15E
|
|
|
|
; 07FFBD
|
|
JMP $AFF8 ; LinkItem_BugCatchingNet
|
|
JMP $FAF0 ;
|
|
NOP
|
|
JSR $B073
|
|
STZ $030F
|
|
RTS
|
|
}
|
|
|
|
; =============================================================================
|
|
; LinkItem_BugCatchingNet
|
|
|
|
org $07AFF8
|
|
{
|
|
BIT $3A
|
|
BVS $07B029
|
|
LDA $6C
|
|
BNE $07AFB4
|
|
JSR $B073
|
|
BCC $07AFB4
|
|
LDA $2F
|
|
LSR
|
|
TAY
|
|
LDX $AFF4,Y
|
|
LDA $AFCC,X
|
|
STA $0300
|
|
LDA #$03
|
|
STA $3D
|
|
STZ $030D
|
|
LDA #$10
|
|
STA $037A
|
|
JSL $8EFEF0
|
|
STZ $2E
|
|
LDA #$32
|
|
JSR $8028
|
|
JSR $AE65
|
|
LDA $67
|
|
AND #$F0
|
|
STA $67
|
|
DEC $3D
|
|
BPL $07B072
|
|
LDX $030D
|
|
INX
|
|
STX $030D
|
|
LDA #$03
|
|
STA $3D
|
|
LDA $2F
|
|
LSR
|
|
TAY
|
|
LDA $AFF4,Y
|
|
CLC
|
|
ADC $030D
|
|
TAY
|
|
LDA $AFCC,Y
|
|
STA $0300
|
|
CPX #$0A
|
|
BNE $07B072
|
|
STZ $030D
|
|
STZ $0300
|
|
LDA $3A
|
|
AND #$80
|
|
STA $3A
|
|
STZ $037A
|
|
JSL $8EFEF8
|
|
STA $50
|
|
LDA #$80
|
|
STA $44
|
|
STA $45
|
|
RTS
|
|
}
|
|
|
|
; 07B073
|
|
org $07B073
|
|
{
|
|
BIT $3A
|
|
BVS $07B085
|
|
LDA $46
|
|
BNE $07B085
|
|
LDA $F4
|
|
AND #$40
|
|
BEQ $07B085
|
|
TSB $3A
|
|
SEC
|
|
RTS
|
|
|
|
; 07B085
|
|
org $07B085
|
|
CLC
|
|
RTS
|
|
}
|
|
|
|
; $8EFEF0
|
|
LDA #$01
|
|
TSB $50
|
|
STA $0112
|
|
RTL
|
|
|
|
|
|
; =============================================================================
|
|
|
|
org $238000
|
|
LinkItem_NewBottle:
|
|
{
|
|
; Check if we have a bottle or not
|
|
LDA $7EF34F : DEC A : TAX
|
|
LDA $7EF35C, X : BEQ .exit
|
|
|
|
; Check if the bottle is empty
|
|
CMP.b #$03 : BCC .empty_bottle
|
|
|
|
; If so, prepare and call the LinkItem_Bottles routine
|
|
JSR LinkItem_Bottles
|
|
|
|
.empty_bottle
|
|
; Otherwise, prepare and call the LinkItem_BugCatchingNet routien
|
|
JSR LinkItem_BugCatchingNet
|
|
|
|
.exit
|
|
RTL
|
|
}
|
|
|
|
; =============================================================================
|
|
|
|
; *$3A15B-$3A249 JUMP LOCATION
|
|
LinkItem_Bottles:
|
|
{
|
|
LDA.b $3A : AND.b #$BF : STA.b $3A
|
|
|
|
; Check if we have a bottle or not
|
|
LDA.l $7EF34F : DEC A : TAX
|
|
|
|
LDA.l $7EF35C, X : BEQ .exit ; (RTS)
|
|
CMP.b #$03 : BCC .LinkItem_UselessBottle
|
|
CMP.b #$03 : BEQ .LinkItem_RedPotion
|
|
CMP.b #$04 : BEQ .LinkItem_GreenPotion
|
|
CMP.b #$05 : BEQ .LinkItem_BluePotion
|
|
CMP.b #$06 : BEQ .fairy
|
|
|
|
BRL .LinkItem_BeeBottle
|
|
|
|
.exit
|
|
RTS
|
|
|
|
.fairy:
|
|
BRL .LinkItem_FairyBottle
|
|
|
|
.LinkItem_RedPotion:
|
|
LDA.l $7EF36C : CMP.l $7EF36D : BNE .can_drink_red
|
|
|
|
.LinkItem_UselessBottle:
|
|
BRL $07A955 ; LinkGoBeep TODO(scawful): Investigate
|
|
|
|
.can_drink_red:
|
|
LDA.b #$02 : STA.l $7EF35C, X : STZ.w $0301
|
|
|
|
LDA.b #$04 : STA.b $11
|
|
LDA.b $10 : STA.w $010C
|
|
LDA.b #$0E : STA.b $10
|
|
LDA.b #$07 : STA.w $0208
|
|
|
|
JSL $0DFA58
|
|
|
|
RTS
|
|
|
|
.LinkItem_GreenPotion:
|
|
LDA $7EF36E : CMP.b #$80 : BNE .can_drink
|
|
BRL $07A955 ; LinkGoBeep TODO(scawful): Investigate
|
|
|
|
.can_drink:
|
|
LDA $02 : STA $7EF35C, X : STZ $0301
|
|
|
|
; submodule ????
|
|
LDA.b #$08 : STA $11
|
|
LDA $10 : STA $010C
|
|
|
|
; Go to text mode
|
|
LDA.b #$0E : STA $10
|
|
LDA.b #$07 : STA $0208
|
|
|
|
JSL $0DFA58 ; RebuildHUD_long TODO(scawful)
|
|
BRA .bottle_exit
|
|
|
|
.LinkItem_BluePotion:
|
|
LDA $7EF36C : CMP $7EF36D : BNE .useBluePotion
|
|
LDA $7EF36E : CMP.b #$80 : BNE .useBluePotion
|
|
BRL $07A955
|
|
|
|
.useBluePotion
|
|
LDA.b #$02 : STA $7EF35C, X : STZ $0301
|
|
|
|
; more submodule code
|
|
LDA.b #$09 : STA.b $11
|
|
LDA.b $10 : STA.w $010C
|
|
|
|
; Go to text mode (?)
|
|
LDA.b #$0E : STA.b $10
|
|
LDA.b #$07 : STA.w $0208
|
|
|
|
JSL $0DFA58 ; RebuildHUD_Long TODO(scawful)
|
|
BRA .bottle_exit
|
|
|
|
.LinkItem_FairyBottle:
|
|
STZ.w $0301
|
|
JSL PlayerItem_SpawnFaerie : BPL .BRANCH_NU
|
|
BRL $07A955
|
|
|
|
.BRANCH_NU:
|
|
LDA.b #$02 : STA.l $7EF35C, X
|
|
JSL $0DFA58 ; RebuildHUD_Long TODO(scawful)
|
|
BRA .bottle_exit
|
|
|
|
.LinkItem_BeeBottle:
|
|
STZ.w $0301
|
|
JSL PlayerItem_ReleaseBee : BPL .bee_spawn_success
|
|
BRL $07A955 ; LinkGoBeep
|
|
|
|
.bee_spawn_success
|
|
LDA.b #$02 : STA.l $7EF35C, X
|
|
JSL $0DFA58 ; RebuildHUD_Long TODO(scawful)
|
|
|
|
.bottle_exit:
|
|
RTS
|
|
}
|
|
|
|
; =============================================================================
|
|
|
|
pose_id:
|
|
db $0B, $06, $07, $08, $01, $02, $03, $04, $05, $06 ; up
|
|
db $01, $02, $03, $04, $05, $06, $07, $08, $01, $02 ; down
|
|
db $09, $04, $05, $06, $07, $08, $01, $02, $03, $04 ; left
|
|
db $0A, $08, $01, $02, $03, $04, $05, $06, $07, $08 ; right
|
|
|
|
pose_offset:
|
|
db $00 ; up
|
|
db $0A ; down
|
|
db $14 ; left
|
|
db $1E ; right
|
|
|
|
; *$3AFF8-$3B072 LOCAL
|
|
LinkItem_BugCatchingNet:
|
|
{
|
|
LDA $2F : LSR A : TAY
|
|
LDX pose_offset, Y
|
|
LDA pose_id, X : STA $0300
|
|
LDA.b #$03 : STA $3D
|
|
|
|
STZ $030D, X
|
|
|
|
LDA.b #$10 : STA $037A
|
|
LDA.b #$01 : TSB $50
|
|
|
|
STZ $2E
|
|
|
|
; LDA.b #$32 : JSL Player_DoSfx2
|
|
|
|
.y_press:
|
|
|
|
JSR Unknown ; $3AE65 IN ROM
|
|
|
|
LDA $67 : AND.b #$F0 : STA $67
|
|
DEC $3D : BPL .BRANCH_BETA
|
|
LDX $030D : INX : STX $030D
|
|
LDA.b #$03 : STA $3D
|
|
LDA $2F : LSR A : TAY
|
|
LDA pose_offset, Y : CLC : ADC $030D : TAY
|
|
LDA pose_id, Y : STA $0300
|
|
CPX.b #$0A : BNE .BRANCH_BETA
|
|
|
|
STZ $030D
|
|
STZ $0300
|
|
|
|
LDA $3A : AND.b #$80 : STA $3A
|
|
STZ $037A
|
|
|
|
LDA $50 : AND.b #$FE : STA $50
|
|
LDA.b #$80 : STA $44 : STA $45
|
|
|
|
.BRANCH_BETA:
|
|
|
|
RTS
|
|
}
|
|
|
|
; *$3AE65-$3AE87 LOCAL
|
|
Unknown:
|
|
{
|
|
LDA $AD : CMP.b #$02 : BNE .BRANCH_ALPHA
|
|
|
|
LDA $0322 : AND.b #$03 : CMP.b #$03 : BNE .BRANCH_ALPHA
|
|
|
|
STZ $30
|
|
STZ $31
|
|
STZ $67
|
|
STZ $2A
|
|
STZ $2B
|
|
STZ $6B
|
|
|
|
.BRANCH_ALPHA:
|
|
|
|
; Cane of Somaria transit lines?
|
|
LDA $02F5 : BEQ .BRANCH_BETA
|
|
|
|
STZ $67
|
|
|
|
.BRANCH_BETA:
|
|
|
|
RTS
|
|
}
|
|
|
|
; =============================================================================
|