57 lines
1.7 KiB
NASM
57 lines
1.7 KiB
NASM
;--------------------------------------------------------------------------------
|
|
; $7F5010 - Scratch Space
|
|
;--------------------------------------------------------------------------------
|
|
|
|
DrawDungeonCompassCounts:
|
|
LDX $1B : BNE + : RTL : + ; Skip if outdoors
|
|
|
|
; extra hard safeties for getting dungeon ID to prevent crashes
|
|
PHA
|
|
LDA.w $040C : AND.w #$00FE : TAX ; force dungeon ID to be multiple of 2
|
|
PLA
|
|
|
|
CPX.b #$1B : BCS .done ; Skip if not in a valid dungeon ID
|
|
|
|
CMP.w #$0002 : BEQ ++ ; if CompassMode==2, we don't check for the compass
|
|
LDA CompassField : AND.l DungeonItemMasks, X ; Load compass values to A, mask with dungeon item masks
|
|
BEQ .done ; skip if we don't have compass
|
|
++
|
|
|
|
TXA : LSR : TAX
|
|
BNE +
|
|
INC
|
|
+
|
|
LDA.l CompassTotalsWRAM, X : AND #$00FF
|
|
SEP #$20
|
|
JSR HudHexToDec2Digit
|
|
REP #$20
|
|
PHX
|
|
LDX.b $06 : TXA : ORA #$2400 : STA $7EC79A
|
|
LDX.b $07 : TXA : ORA #$2400 : STA $7EC79C
|
|
PLX
|
|
|
|
LDA DungeonLocationsChecked, X : AND #$00FF
|
|
SEP #$20
|
|
JSR HudHexToDec2Digit
|
|
REP #$20
|
|
LDX.b $06 : TXA : ORA #$2400 : STA $7EC794 ; Draw the item count
|
|
LDX.b $07 : TXA : ORA #$2400 : STA $7EC796
|
|
|
|
LDA.w #$2830 : STA $7EC798 ; draw the slash
|
|
|
|
.done
|
|
RTL
|
|
|
|
DungeonItemMasks: ; these are dungeon correlations to $7EF364 - $7EF369 so it knows where to store compasses, etc
|
|
dw $8000, $4000, $2000, $1000, $0800, $0400, $0200, $0100
|
|
dw $0080, $0040, $0020, $0010, $0008, $0004
|
|
;--------------------------------------------------------------------------------
|
|
InitCompassTotalsRAM:
|
|
LDX #$00
|
|
-
|
|
LDA CompassTotalsROM, X : STA CompassTotalsWRAM, X
|
|
INX
|
|
CPX #$0F : !BLT -
|
|
RTL
|
|
|