Big rename of gk files

gk/dungeon_switch.asm

@@ -0,0 +1,381 @@
+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
+	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.b $F6
+	AND.b #$30
+	BNE +
+
+	; what we wrote over
+	REP #$20
+	LDA.w DungeonMapFloorCountData, 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 SubModuleInterface
+	REP #$20
+	LDA.w #$0000
+	RTL
+
+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
+
+	; L/R switch indicators
+	LDA.w #$E310
+	STA.w GFXStripes+$02, Y
+	LDA.w #$E910
+	STA.w GFXStripes+$0A, Y
+	LDA.w #$E318
+	STA.w GFXStripes+$12, Y
+	LDA.w #$E918
+	STA.w GFXStripes+$1A, Y
+
+	LDA.w #$0300
+	STA.w GFXStripes+$04, Y
+	STA.w GFXStripes+$0C, Y
+	STA.w GFXStripes+$14, Y
+	STA.w GFXStripes+$1C, Y
+
+	LDA.w #$49AF
+	STA.w GFXStripes+$06, Y
+	STA.w GFXStripes+$16, Y
+	LDA.w #$099E
+	STA.w GFXStripes+$08, Y
+	STA.w GFXStripes+$18, Y
+
+	LDA.w #$099F
+	STA.w GFXStripes+$0E, Y
+	STA.w GFXStripes+$1E, Y
+	LDA.w #$09AF
+	STA.w GFXStripes+$10, Y
+	STA.w GFXStripes+$20, Y
+
+	TYA
+	CLC : ADC.w #$0020
+	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