345 lines
7.1 KiB
NASM
345 lines
7.1 KiB
NASM
org $0DFB91
|
|
JSL NewMenuUpdate
|
|
RTS
|
|
|
|
org $3D8000
|
|
NewMenuUpdate:
|
|
{
|
|
PHB : PHK : PLB
|
|
JSR Hud_UpdateItemBox
|
|
|
|
; ; *$6FB94 ALTERNATE ENTRY POINT
|
|
; .ignoreItemBox
|
|
|
|
; SEP #$30
|
|
|
|
; ; the hook for optimization was placed here...
|
|
; ; need to draw partial heart still though. update: optimization complete with great results
|
|
; LDA.b #$FD : STA $0A
|
|
; LDA.b #$F9 : STA $0B
|
|
; LDA.b #$0D : STA $0C
|
|
|
|
; LDA.b #$68 : STA $07
|
|
; LDA.b #$C7 : STA $08
|
|
; LDA.b #$7E : STA $09
|
|
|
|
; REP #$30
|
|
|
|
; ; Load Capacity health.
|
|
; LDA $7EF36C : AND.w #$00FF : STA $00 : STA $02 : STA $04
|
|
|
|
; ; First, just draw all the empty hearts (capacity health)
|
|
; JSR HUD_UpdateHearts
|
|
|
|
; SEP #$30
|
|
|
|
; LDA.b #$03 : STA $0A
|
|
; LDA.b #$FA : STA $0B
|
|
; LDA.b #$0D : STA $0C
|
|
|
|
; LDA.b #$68 : STA $07
|
|
; LDA.b #$C7 : STA $08
|
|
; LDA.b #$7E : STA $09
|
|
|
|
; ; Branch if at full health
|
|
; LDA $7EF36C : CMP $7EF36D : BEQ .healthUpdated
|
|
|
|
; ; Seems absurd to have a branch of zero bytes, right?
|
|
; SBC #$04 : CMP $7EF36D : BCS .healthUpdated
|
|
|
|
; .healthUpdated
|
|
|
|
; ; A = actual health + 0x03;
|
|
; LDA $7EF36D : ADC #$03
|
|
|
|
; REP #$30
|
|
|
|
; AND.w #$00FC : STA $00 : STA $04
|
|
|
|
; LDA $7EF36C : AND.w #$00FF : STA $02
|
|
|
|
; ; this time we're filling in the full and partially filled hearts (actual health)
|
|
; JSR HUD_UpdateHearts
|
|
|
|
; ; *$6FC09 ALTERNATE ENTRY POINT ; reentry hook
|
|
; .ignoreHealth
|
|
|
|
; REP #$30
|
|
|
|
; ; Magic amount indicator (normal, 1/2, or 1/4)
|
|
; LDA $7EF37B : AND.w #$00FF : CMP.w #$0001 : BCC .normalMagicMeter
|
|
|
|
; ; draws a 1/2 magic meter (note, we could add in the 1/4 magic meter here if
|
|
; ; we really cared about that >_>
|
|
; LDA.w #$28F7 : STA $7EC704
|
|
; LDA.w #$2851 : STA $7EC706
|
|
; LDA.w #$28FA : STA $7EC708
|
|
|
|
; .normalMagicMeter
|
|
|
|
; ; check how much magic power the player has at the moment (ranges from 0 to 0x7F)
|
|
; ; X = ((MP & 0xFF)) + 7) & 0xFFF8)
|
|
; LDA $7EF36E : AND.w #$00FF : ADC #$0007 : AND.w #$FFF8 : TAX
|
|
|
|
; ; these four writes draw the magic power bar based on how much MP you have
|
|
; LDA MagicTilemap+0, X : STA $7EC746
|
|
; LDA MagicTilemap+2, X : STA $7EC786
|
|
; LDA MagicTilemap+4, X : STA $7EC7C6
|
|
; LDA MagicTilemap+6, X : STA $7EC806
|
|
|
|
; ; Load how many rupees the player has
|
|
; LDA $7EF362
|
|
|
|
; JSR HexToDecimal
|
|
|
|
; REP #$30
|
|
|
|
; ; The tile index for the first rupee digit
|
|
; LDA $03 : AND.w #$00FF : ORA.w #$2400 : STA $7EC750
|
|
|
|
; ; The tile index for the second rupee digit
|
|
; LDA $04 : AND.w #$00FF : ORA.w #$2400 : STA $7EC752
|
|
|
|
; ; The tile index for the third rupee digit
|
|
; LDA $05 : AND.w #$00FF : ORA.w #$2400 : STA $7EC754
|
|
|
|
; ; Number of bombs Link has.
|
|
; LDA $7EF343 : AND.w #$00FF
|
|
|
|
; JSR HexToDecimal
|
|
|
|
; REP #$30
|
|
|
|
; ; The tile index for the first bomb digit
|
|
; LDA $04 : AND.w #$00FF : ORA.w #$2400 : STA $7EC758
|
|
|
|
; ; The tile index for the second bomb digit
|
|
; LDA $05 : AND.w #$00FF : ORA.w #$2400 : STA $7EC75A
|
|
|
|
; ; Number of Arrows Link has.
|
|
; LDA $7EF377 : AND.w #$00FF
|
|
|
|
; ; converts hex to up to 3 decimal digits
|
|
; JSR HexToDecimal
|
|
|
|
; REP #$30
|
|
|
|
; ; ; The tile index for the first arrow digit
|
|
; ; LDA $04 : AND.w #$00FF : ORA.w #$2400 : STA $7EC75E
|
|
|
|
; ; ; The tile index for the second arrow digit
|
|
; ; LDA $05 : AND.w #$00FF : ORA.w #$2400 : STA $7EC760
|
|
|
|
; ; LDA.w #$007F : STA $05
|
|
|
|
; ; Load number of Keys Link has
|
|
; LDA $7EF36F : AND.w #$00FF : CMP.w #$00FF : BEQ .noKeys
|
|
|
|
; JSR HexToDecimal
|
|
|
|
; .noKeys
|
|
|
|
; REP #$30
|
|
|
|
; ; The key digit, which is optionally drawn.
|
|
; ; Also check to see if the key spot is blank
|
|
; LDA $05 : AND.w #$00FF : ORA.w #$2400 : STA $7EC764
|
|
|
|
; CMP.w #$247F : BNE .dontBlankKeyIcon
|
|
|
|
; ; If the key digit is blank, also blank out the key icon.
|
|
; STA $7EC724
|
|
|
|
; .dontBlankKeyIcon
|
|
|
|
; SEP #$30
|
|
|
|
PLB
|
|
RTL
|
|
}
|
|
|
|
; ==============================================================================
|
|
; Update Items
|
|
|
|
HudItems:
|
|
dw BowsGFX
|
|
dw BoomsGFX
|
|
dw HookGFX
|
|
dw BombsGFX
|
|
dw DekuMaskGFX
|
|
dw BottlesGFX
|
|
dw HammerGFX
|
|
dw LampGFX
|
|
dw Fire_rodGFX
|
|
dw Ice_rodGFX
|
|
dw GoronMaskGFX
|
|
dw BottlesGFX
|
|
dw ShovelGFX
|
|
dw JumpFeatherGFX
|
|
dw SomariaGFX
|
|
dw ByrnaGFX
|
|
dw BunnyHoodGFX
|
|
dw BottlesGFX
|
|
dw PowderGFX
|
|
dw BookGFX
|
|
dw OcarinaGFX
|
|
dw MirrorGFX
|
|
dw StoneMaskGFX
|
|
dw BottlesGFX
|
|
|
|
Hud_UpdateItemBox:
|
|
{
|
|
LDA.w $0202
|
|
ASL : TAX
|
|
LDY.w HudItems-2, X
|
|
|
|
LDA.w $0000,Y : STA.l $7EC778
|
|
LDA.w $0002,Y : STA.l $7EC77A
|
|
LDA.w $0004,Y : STA.l $7EC7B8
|
|
LDA.w $0006,Y : STA.l $7EC7BA
|
|
|
|
RTS
|
|
}
|
|
|
|
; ==============================================================================
|
|
|
|
|
|
HUD_UpdateHearts:
|
|
{
|
|
; Draws hearts in a painfully slow loop
|
|
; I used DMA to speed it up in my custom code
|
|
; (but still needs fixing to work on 1/1/1 hardware)
|
|
|
|
LDX.w #$0000
|
|
|
|
.nextHeart
|
|
|
|
LDA $00 : CMP.w #$0008 : BCC .lessThanOneHeart
|
|
|
|
; Notice no SEC was needed since carry is assumedly set.
|
|
SBC.w #$0008 : STA $00
|
|
|
|
LDY.w #$0004
|
|
|
|
JSR .drawHeart
|
|
|
|
INX #2
|
|
|
|
BRA .nextHeart
|
|
|
|
.lessThanOneHeart
|
|
|
|
CMP.w #$0005 : BCC .halfHeartOrLess
|
|
|
|
LDY.w #$0004
|
|
|
|
BRA .drawHeart
|
|
|
|
.halfHeartOrLess
|
|
|
|
CMP.w #$0001 : BCC .emptyHeart
|
|
|
|
LDY.w #$0002
|
|
|
|
BRA .drawHeart
|
|
|
|
.emptyHeart
|
|
|
|
RTS
|
|
|
|
.drawHeart
|
|
|
|
; Compare number of hearts so far on current line to 10
|
|
CPX.w #$0014 : BCC .noLineChange
|
|
|
|
; if not, we have to move down one tile in the tilemap
|
|
LDX.w #$0000
|
|
|
|
LDA $07 : ADC #$0040 : STA $07
|
|
|
|
.noLineChange
|
|
|
|
LDA [$0A], Y : TXY : STA [$07], Y
|
|
|
|
RTS
|
|
}
|
|
|
|
MagicTilemap:
|
|
dw $3CF5, $3CF5, $3CF5, $3CF5
|
|
dw $3CF5, $3CF5, $3CF5, $3C5F
|
|
dw $3CF5, $3CF5, $3CF5, $3C4C
|
|
dw $3CF5, $3CF5, $3CF5, $3C4D
|
|
dw $3CF5, $3CF5, $3CF5, $3C4E
|
|
dw $3CF5, $3CF5, $3C5F, $3C5E
|
|
dw $3CF5, $3CF5, $3C4C, $3C5E
|
|
dw $3CF5, $3CF5, $3C4D, $3C5E
|
|
dw $3CF5, $3CF5, $3C4E, $3C5E
|
|
dw $3CF5, $3C5F, $3C5E, $3C5E
|
|
dw $3CF5, $3C4C, $3C5E, $3C5E
|
|
dw $3CF5, $3C4D, $3C5E, $3C5E
|
|
dw $3CF5, $3C4E, $3C5E, $3C5E
|
|
dw $3C5F, $3C5E, $3C5E, $3C5E
|
|
dw $3C4C, $3C5E, $3C5E, $3C5E
|
|
dw $3C4D, $3C5E, $3C5E, $3C5E
|
|
dw $3C4E, $3C5E, $3C5E, $3C5E
|
|
|
|
HexToDecimal:
|
|
{
|
|
; This apparently is a hex to decimal converter for use with displaying numbers
|
|
; It's obviously slower with larger numbers... should find a way to speed it up. (already done)
|
|
|
|
REP #$30
|
|
|
|
STZ $0003
|
|
|
|
; The objects mentioned could be rupees, arrows, bombs, or keys.
|
|
LDX.w #$0000
|
|
LDY.w #$0002
|
|
|
|
.nextDigit
|
|
|
|
; If number of objects left < 100, 10
|
|
CMP $F9F9, Y : BCC .nextLowest10sPlace
|
|
|
|
; Otherwise take off another 100 objects from the total and increment $03
|
|
; $6F9F9, Y THAT IS, 100, 10
|
|
SBC $F9F9, Y
|
|
INC $03, X
|
|
|
|
BRA .nextDigit
|
|
|
|
.nextLowest10sPlace
|
|
|
|
INX : DEY #2
|
|
|
|
; Move on to next digit (to the right)
|
|
BPL .nextDigit
|
|
|
|
; Whatever is left is obviously less than 10, so store the digit at $05.
|
|
STA $05
|
|
|
|
SEP #$30
|
|
|
|
; Go through at most three digits.
|
|
LDX.b #$02
|
|
|
|
; Repeat for all three digits.
|
|
.setNextDigitTile
|
|
|
|
; Load each digit's computed value
|
|
LDA $03, X : CMP.b #$7F
|
|
|
|
BEQ .blankDigit
|
|
|
|
; #$0-9 -> #$90-#$99
|
|
ORA.b #$90
|
|
|
|
.blankDigit
|
|
|
|
; A blank digit.
|
|
STA $03, X
|
|
|
|
DEX : BPL .setNextDigitTile
|
|
|
|
RTS
|
|
} |