188 lines
2.1 KiB
NASM
188 lines
2.1 KiB
NASM
CheckSwitchMap:
|
|
SEP #$20
|
|
LDA.b $F6
|
|
AND.b #$30
|
|
BNE +
|
|
|
|
; what we wrote over
|
|
REP #$20
|
|
LDA.w $8AF5E9, X
|
|
AND.w #$000F
|
|
CLC : ADC.b $00
|
|
RTL
|
|
|
|
+ PHA
|
|
TXA
|
|
ASL A
|
|
TAX
|
|
PLA
|
|
BIT.b #$20
|
|
BNE +
|
|
INX
|
|
+ LDA.l DungeonMapData.prev, X
|
|
STA.w DungeonID
|
|
|
|
LDA.b #$04
|
|
STA.w $0200
|
|
REP #$20
|
|
LDA.w #$0000
|
|
RTL
|
|
|
|
DungeonMapSwitch_Submodule:
|
|
; LDA.b $9B
|
|
; STA.l $7EC229
|
|
|
|
JSL $80893D
|
|
JSL $80833F
|
|
; LDA.l $7EC229
|
|
; STA.b $9B
|
|
|
|
LDA.b #$09
|
|
STA.b $14
|
|
STA.w $0710
|
|
|
|
LDA.b #$01
|
|
STA.w $0200
|
|
STA.w $020D
|
|
STZ.w $0213
|
|
STZ.w $021B
|
|
STZ.w $021C
|
|
STZ.b $06
|
|
STZ.b $07
|
|
|
|
LDA.w DungeonID
|
|
ASL A
|
|
TAX
|
|
LDA.l DungeonMapData.floor, X
|
|
STA.b $A4
|
|
|
|
REP #$20
|
|
STZ.b $E0
|
|
STZ.b $E2
|
|
STZ.b $E4
|
|
STZ.b $E6
|
|
STZ.b $E8
|
|
STZ.b $EA
|
|
JML $98BCA1
|
|
|
|
SkipMapSprites:
|
|
STZ.b $00
|
|
|
|
LDA.l DRMode
|
|
BNE +
|
|
LDA.w $0200
|
|
CMP.b #$04
|
|
BEQ +
|
|
JSL DrawEntrances
|
|
+
|
|
|
|
STZ.b $0E
|
|
STZ.b $0F
|
|
|
|
LDA.w $0200
|
|
CMP.b #$04
|
|
BNE +
|
|
JML $8AEAFC
|
|
+
|
|
|
|
LDA.l DRMode
|
|
BEQ +
|
|
JML $8AEAEE
|
|
+
|
|
|
|
LDA.l $7EC22A
|
|
CMP.w DungeonID
|
|
BEQ +
|
|
JML $8AEAF3
|
|
+ JML $8AEADE
|
|
|
|
CacheCurrentDungeon:
|
|
STA.l $7EC206
|
|
SEP #$20
|
|
LDA.b $A4
|
|
STA.l $7EC22B
|
|
|
|
LDA.w DungeonID
|
|
STA.l $7EC22A
|
|
|
|
LDA.l DRMode
|
|
BEQ +
|
|
|
|
LDA.w DungeonID
|
|
PHX
|
|
ASL A
|
|
TAX
|
|
LDA.l DungeonMapData.floor, X
|
|
STA.b $A4
|
|
PLX
|
|
|
|
+
|
|
REP #$20
|
|
RTL
|
|
|
|
RestoreCurrentDungeon:
|
|
LDA.b #$F3
|
|
STA.w $012C ; what we wrote over
|
|
LDA.l $7EC22A
|
|
STA.w DungeonID
|
|
LDA.l $7EC22B
|
|
STA.b $A4
|
|
RTL
|
|
|
|
RestoreDungeonMapFloorIndex:
|
|
STZ.w $020F ; first part we wrote over
|
|
|
|
LDA.w $021B
|
|
STA.b $07
|
|
STZ.b $06
|
|
|
|
LDA.b $0A ; the rest of what we wrote over
|
|
AND.b #$08
|
|
RTL
|
|
|
|
DrawDungeonLabel:
|
|
LDY.b #$00
|
|
LDA.w DungeonID
|
|
ASL A
|
|
TAX
|
|
LDA.b NMISTRIPES
|
|
BEQ +
|
|
LDY.b #$20
|
|
+
|
|
|
|
REP #$20
|
|
LDA.w #$E660
|
|
STA.w GFXStripes+$02, Y
|
|
LDA.w #$0300
|
|
STA.w GFXStripes+$04, Y
|
|
|
|
LDA.l DungeonLabels+0, X
|
|
STA.w GFXStripes+$06, Y
|
|
LDA.l DungeonLabels+2, X
|
|
STA.w GFXStripes+$08, Y
|
|
SEP #$20
|
|
LDA.b #$FF
|
|
STA.w GFXStripes+$0A, Y
|
|
LDA.b #$01
|
|
STA.b NMISTRIPES
|
|
|
|
INC.w $020D ; what we wrote over
|
|
RTL
|
|
|
|
CountFloors:
|
|
ADC.w $8AF605, Y
|
|
STA.b $04
|
|
LDY.w #$0000
|
|
RTL
|
|
|
|
CheckIfRoomFound:
|
|
CPY.w #$0032
|
|
BCS .not_found
|
|
LDA.b ($04), Y
|
|
INY
|
|
CMP.b $0E
|
|
JML $8AE877
|
|
|
|
.not_found
|
|
JML $8AE8CD
|