438 lines
5.7 KiB
NASM
438 lines
5.7 KiB
NASM
CheckSwitchMap:
|
|
LDA.l DRMode
|
|
BEQ .not_fancy_door_map
|
|
|
|
; fancy door map
|
|
SEP #$20
|
|
LDA.b $F6
|
|
BIT.b #$30
|
|
BNE .change_dungeon
|
|
|
|
BIT.b #$80
|
|
BNE .select_new_room
|
|
|
|
LDA.b $F4
|
|
BIT.b #$80
|
|
BNE .select_new_room
|
|
|
|
BIT.b #$20
|
|
BNE .next_entrance
|
|
|
|
BIT.b #$40
|
|
BNE .current_room
|
|
|
|
AND.b #$0F
|
|
BEQ .doors_done
|
|
BIT.b #$08 : BEQ + : LDA.b #$00 : BRA .doors_move_cursor : +
|
|
BIT.b #$04 : BEQ + : LDA.b #$02 : BRA .doors_move_cursor : +
|
|
BIT.b #$02 : BEQ + : LDA.b #$01 : BRA .doors_move_cursor : +
|
|
LDA.b #$03
|
|
|
|
.doors_move_cursor
|
|
STA.b $00
|
|
JSL MoveDoorsMapCursor
|
|
BRA .doors_done
|
|
|
|
.select_new_room
|
|
JSL DoorsMapSelectCursor
|
|
BRA .doors_done
|
|
|
|
.next_entrance
|
|
JSL DoorsMapNextEntrance
|
|
BRA .doors_done
|
|
|
|
.change_dungeon
|
|
LDA.l MapSwapping
|
|
BEQ .doors_done
|
|
JSL DoorsMapChangeDungeon
|
|
BRA .doors_done
|
|
|
|
.current_room
|
|
LDA.l CachedDungeonID
|
|
CMP.w DungeonID
|
|
BNE .doors_done
|
|
JSL DoorsMapCurrentRoom
|
|
BRA .doors_done
|
|
|
|
.doors_done
|
|
REP #$20
|
|
LDA.w #$0002 ; ignore input! nothing to see here!
|
|
RTL
|
|
|
|
.not_fancy_door_map
|
|
SEP #$20
|
|
LDA.l MapSwapping
|
|
BEQ .no_swap
|
|
|
|
LDA.b $F6
|
|
AND.b #$30
|
|
BNE .do_swap
|
|
|
|
.no_swap
|
|
; what we wrote over
|
|
REP #$20
|
|
LDA.w DungeonMapFloorCountData, X
|
|
AND.w #$000F
|
|
CLC : ADC.b $00
|
|
RTL
|
|
|
|
.do_swap
|
|
TXA
|
|
.try_next
|
|
ASL A
|
|
TAX
|
|
LDA.b $F6
|
|
BIT.b #$20
|
|
BNE +
|
|
INX
|
|
+
|
|
|
|
LDA.l DungeonMapData.prev, X
|
|
JSL IsValidDungeonToSwapTo
|
|
BCC .try_next
|
|
STA.w DungeonID
|
|
|
|
LDA.b #$04
|
|
STA.w SubModuleInterface
|
|
REP #$20
|
|
LDA.w #$0000
|
|
RTL
|
|
|
|
; in A = dungeon ID to check
|
|
; out C - CC = not valid, CS = valid
|
|
IsValidDungeonToSwapTo:
|
|
CMP.l CachedDungeonID ; dungeon we're in is always valid
|
|
BNE +
|
|
SEC
|
|
RTL
|
|
+
|
|
|
|
PHP
|
|
REP #$20
|
|
PHX : PHA
|
|
TAX
|
|
|
|
LDA.l MapSwapping
|
|
BIT.w #$0080
|
|
BNE .yes
|
|
|
|
BIT.w #$0001
|
|
BEQ +
|
|
; check visited flag
|
|
LDA.l SwapMasks, X
|
|
AND.l DungeonVisited
|
|
BNE .yes
|
|
+
|
|
|
|
LDA.l MapSwapping : BIT.w #$0002
|
|
BEQ +
|
|
; check map flag
|
|
LDA.l SwapMasks, X
|
|
AND.l MapField
|
|
BNE .yes
|
|
+
|
|
|
|
.no
|
|
PLA : PLX
|
|
PLP
|
|
CLC
|
|
RTL
|
|
|
|
.yes
|
|
PLA : PLX
|
|
PLP
|
|
SEC
|
|
RTL
|
|
|
|
SwapMasks:
|
|
dw $C000, $C000, $2000, $1000
|
|
dw $0800, $0400, $0200, $0100
|
|
dw $0080, $0040, $0020, $0010
|
|
dw $0008, $0004, $0002, $0001
|
|
|
|
DungeonMapSwitch_Submodule:
|
|
JSL $80893D
|
|
JSL $80833F
|
|
|
|
LDA.b #$09
|
|
STA.b $14
|
|
STA.w $0710
|
|
|
|
LDA.b #$01
|
|
STA.w SubModuleInterface
|
|
STA.w $020D
|
|
STZ.w $0213
|
|
STZ.w $021B
|
|
STZ.w $021C
|
|
STZ.b $06
|
|
STZ.b $07
|
|
|
|
LDA.w DungeonID
|
|
CMP.l CachedDungeonID
|
|
BEQ .current_dungeon
|
|
|
|
ASL A
|
|
TAX
|
|
LDA.l DungeonMapData.floor, X
|
|
STA.b CurrentFloor
|
|
BRA .continue
|
|
|
|
.current_dungeon
|
|
LDA.l CachedCurrentFloor
|
|
STA.b CurrentFloor
|
|
|
|
.continue
|
|
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.b $02 : PHA
|
|
LDA.b $03 : PHA
|
|
LDA.b $04 : PHA
|
|
|
|
LDA.l DRMode
|
|
BNE +
|
|
LDA.w SubModuleInterface
|
|
CMP.b #$04
|
|
BEQ +
|
|
JSL DrawEntrances
|
|
+
|
|
|
|
PLA : STA.b $04
|
|
PLA : STA.b $03
|
|
PLA : STA.b $02
|
|
|
|
STZ.b $0E
|
|
STZ.b $0F
|
|
|
|
LDA.w SubModuleInterface
|
|
CMP.b #$04
|
|
BNE +
|
|
JML $8AEAFC
|
|
+
|
|
|
|
LDA.l DRMode
|
|
BEQ +
|
|
JSL DrawDoorsMapSprites
|
|
JML $8AEAFC
|
|
+
|
|
|
|
LDA.l CachedDungeonID
|
|
CMP.w DungeonID
|
|
BEQ +
|
|
JML $8AEAF3
|
|
+ JML $8AEADE
|
|
|
|
CacheCurrentDungeon:
|
|
STA.l $7EC206
|
|
SEP #$20
|
|
LDA.w DungeonID
|
|
STA.l CachedDungeonID
|
|
LDA.b CurrentFloor
|
|
STA.l CachedCurrentFloor
|
|
REP #$20
|
|
RTL
|
|
|
|
RestoreCurrentDungeon:
|
|
LDA.b #$F3
|
|
STA.w $012C ; what we wrote over
|
|
LDA.l CachedDungeonID
|
|
STA.w DungeonID
|
|
LDA.l CachedCurrentFloor
|
|
STA.b CurrentFloor
|
|
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
|
|
+
|
|
|
|
; Dungeon Label
|
|
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
|
|
|
|
TYA
|
|
CLC : ADC.w #$0008
|
|
TAY
|
|
|
|
LDA.l MapSwapping
|
|
BEQ +
|
|
; L/R switch indicators
|
|
LDA.w #$E360
|
|
STA.w GFXStripes+$02, Y
|
|
LDA.w #$E960
|
|
STA.w GFXStripes+$0A, Y
|
|
|
|
LDA.w #$0300
|
|
STA.w GFXStripes+$04, Y
|
|
STA.w GFXStripes+$0C, Y
|
|
|
|
LDA.w #$65BF
|
|
STA.w GFXStripes+$06, Y
|
|
LDA.w #$25BD
|
|
STA.w GFXStripes+$08, Y
|
|
|
|
LDA.w #$25BE
|
|
STA.w GFXStripes+$0E, Y
|
|
LDA.w #$25BF
|
|
STA.w GFXStripes+$10, Y
|
|
|
|
TYA
|
|
CLC : ADC.w #$0010
|
|
TAY
|
|
+
|
|
|
|
LDA.l DRMode
|
|
BNE .doors
|
|
JMP .skip_doors
|
|
|
|
.doors
|
|
; Select for Next Entrance indicator
|
|
LDA.w #$E311
|
|
STA.w GFXStripes+$02, Y
|
|
LDA.w #$E319
|
|
STA.w GFXStripes+$16, Y
|
|
|
|
LDA.w #$0F00
|
|
STA.w GFXStripes+$04, Y
|
|
STA.w GFXStripes+$18, Y
|
|
|
|
LDA.w #$09B8
|
|
LDX.b #$07
|
|
-
|
|
STA.w GFXStripes+$06, Y
|
|
STA.w GFXStripes+$1A, Y
|
|
INC A
|
|
INY : INY
|
|
DEX
|
|
BPL -
|
|
|
|
TYA
|
|
CLC : ADC.w #$0018
|
|
TAY
|
|
|
|
LDA.l CachedDungeonID
|
|
AND.w #$00FF
|
|
CMP.w DungeonID
|
|
BNE .skip_doors
|
|
|
|
; Y for Current Location indicator
|
|
LDA.w #$A411
|
|
STA.w GFXStripes+$02, Y
|
|
LDA.w #$A419
|
|
STA.w GFXStripes+$12, Y
|
|
|
|
LDA.w #$0B00
|
|
STA.w GFXStripes+$04, Y
|
|
STA.w GFXStripes+$14, Y
|
|
|
|
LDA.w #$09A9
|
|
LDX.b #$05
|
|
-
|
|
STA.w GFXStripes+$06, Y
|
|
STA.w GFXStripes+$16, Y
|
|
INC A
|
|
INY : INY
|
|
DEX
|
|
BPL -
|
|
|
|
TYA
|
|
CLC : ADC.w #$0014
|
|
TAY
|
|
|
|
.skip_doors
|
|
SEP #$20
|
|
LDA.b #$FF
|
|
STA.w GFXStripes+$02, Y
|
|
LDA.b #$01
|
|
STA.b NMISTRIPES
|
|
|
|
INC.w $020D ; what we wrote over
|
|
RTL
|
|
|
|
StartCurrentRoomSearch:
|
|
LDA.w DungeonMapFloorCountData, X
|
|
LSR A : LSR A : LSR A : LSR A
|
|
STA.b $00
|
|
LDA.w DungeonMapFloorCountData, X
|
|
AND.b #$0F
|
|
CLC : ADC.b $00
|
|
ASL A
|
|
TAY
|
|
RTL
|
|
|
|
FindCurrentRoom:
|
|
LDA.w DungeonMapFloorToDataOffset, Y
|
|
STA.b $0C
|
|
LDY.w #$0000
|
|
SEP #$20
|
|
|
|
.next_room_check
|
|
CPY.b $0C
|
|
BCS .not_found
|
|
|
|
LDA.b ($04), Y
|
|
INY
|
|
CMP.b $0E
|
|
BEQ .found
|
|
|
|
LDA.b $00
|
|
CMP.b #$40
|
|
BCS .next_row
|
|
|
|
CLC : ADC.b #$10
|
|
STA.b $00
|
|
BRA .next_room_check
|
|
|
|
.next_row
|
|
STZ.b $00
|
|
|
|
LDA.b $02
|
|
CMP.b #$40
|
|
BCS .next_floor
|
|
CLC : ADC.b #$10
|
|
STA.b $02
|
|
BRA .next_room_check
|
|
|
|
.next_floor
|
|
STZ.b $02
|
|
BRA .next_room_check
|
|
|
|
.found
|
|
JML $8AE891
|
|
|
|
.not_found
|
|
JML $8AE8CD
|