Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-12-26 19:29:27 +00:00
Code Issues Projects Releases Wiki Activity

Added loading code, and fixed a typo in CROSS_SOUTH.

Browse Source
This commit is contained in:
Martin Haye 2014-07-17 09:34:34 -07:00
parent fdb36f9aab
commit 6084d6764e
1 changed files with 49 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
Platform/Apple/virtual/src/tile/tile.s
View File

@ -47,6 +47,17 @@ INIT
LDY VIEWPORT_VERT_PAD
JSR SET_XY
RTS
;----------------------------------------------------------------------
; >> START LOADING MAP SECTIONS
START_LOAD
LDX #0
LDA #START_LOAD
JMP mainLoader
!macro startLoad {
JSR START_LOAD
}
;----------------------------------------------------------------------
; >> LOAD MAP SECTION
; Section number is in A
@ -64,18 +75,34 @@ LOAD_SECTION
LDX #00 ; This is a bogus map section, don't load
LDY #00
RTS
.doLoad
;INSERT LOADER HERE
RTS
!loadSection ptr {
.doLoad TAY ; resource # in Y
LDX #RES_TYPE_2D_MAP
LDA #QUEUE_LOAD
JMP mainLoader
!macro loadSection ptr {
JSR LOAD_SECTION
STX ptr
STY ptr+1
}
;----------------------------------------------------------------------
; >> FINISH LOADING MAP SECTIONS
FINISH_LOAD
LDX #0 ; 1 to keep open for next load, 0 for close so you can flip to HGR page 2
LDA #FINISH_LOAD
JMP mainLoader
!macro finishLoad {
JSR FINISH_LOAD
}
;----------------------------------------------------------------------
; >> RELEASE MAP SECTION
!macro releaseMapSection resourceId {
!macro releaseMapSection ptr {
; --> free up unused resource
LDX ptr
LDY ptr+1
LDA #FREE_MEMORY
JSR mainLoader
}
;----------------------------------------------------------------------
; >> LOAD TILES
@ -129,8 +156,8 @@ SET_XY
; >> CROSS NORTH BOUNDARY (Load next section to the north)
!zone
CROSS_NORTH
!releaseMapSection SW_MAP_ID
!releaseMapSection SE_MAP_ID
!releaseMapSection SW_MAP_LOC
!releaseMapSection SE_MAP_LOC
LDA REL_Y
CLC
ADC #SECTION_HEIGHT
@ -140,6 +167,7 @@ CROSS_NORTH
!move_byte NE_MAP_ID, SE_MAP_ID
!move_word NE_MAP_LOC, SE_MAP_LOC
; Get new NW section
!startLoad
LDA (SW_MAP_LOC)
STA NW_MAP_ID
!loadSection NW_MAP_LOC
@ -147,13 +175,14 @@ CROSS_NORTH
LDA (SE_MAP_LOC)
STA NE_MAP_ID
!loadSection NE_MAP_LOC
!finishLoad
RTS
;----------------------------------------------------------------------
; >> CROSS EAST BOUNDARY (Load next section to the east)
!zone
CROSS_EAST
!releaseMapSection NW_MAP_ID
!releaseMapSection SW_MAP_ID
!releaseMapSection NW_MAP_LOC
!releaseMapSection SW_MAP_LOC
LDA REL_X
SEC
SBC #SECTION_WIDTH
@ -163,6 +192,7 @@ CROSS_EAST
!move_byte SE_MAP_ID, SW_MAP_ID
!move_word SE_MAP_LOC, SW_MAP_LOC
; Get new NE section
!startLoad
LDY #EAST
LDA (NW_MAP_LOC),Y
STA NE_MAP_ID
@ -172,13 +202,14 @@ CROSS_EAST
LDA (SW_MAP_LOC),Y
STA SE_MAP_ID
!loadSection SE_MAP_LOC
!finishLoad
RTS
;----------------------------------------------------------------------
; >> CROSS SOUTH BOUNDARY (Load next section to the south)
!zone
CROSS_SOUTH
!releaseMapSection NW_MAP_ID
!releaseMapSection NE_MAP_ID
!releaseMapSection NW_MAP_LOC
!releaseMapSection NE_MAP_LOC
LDA REL_Y
SEC
SBC #SECTION_HEIGHT
@ -188,22 +219,24 @@ CROSS_SOUTH
!move_byte SE_MAP_ID, NE_MAP_ID
!move_word SE_MAP_LOC, NE_MAP_LOC
; Get new SW section
!startLoad
LDY #SOUTH
LDA (NW_MAP_LOC),Y
STA SW_MAP_ID
!loadSection SW_MAP_LOC
; Get the new SE section
LDY #SOUTH
LDA (SE_MAP_LOC),Y
LDA (NE_MAP_LOC),Y
STA SE_MAP_ID
!loadSection SE_MAP_LOC
!finishLoad
RTS
;----------------------------------------------------------------------
; >> CROSS WEST BOUNDARY (load next section to the west)
!zone
CROSS_WEST
!releaseMapSection NE_MAP_ID
!releaseMapSection SE_MAP_ID
!releaseMapSection NE_MAP_LOC
!releaseMapSection SE_MAP_LOC
LDA REL_X
CLC
ADC #SECTION_WIDTH
@ -213,6 +246,7 @@ CROSS_WEST
!move_byte SW_MAP_ID, SE_MAP_ID
!move_word SW_MAP_LOC, SE_MAP_LOC
; Get new NW section
!startLoad
LDY #WEST
LDA (NE_MAP_LOC),Y
STA NW_MAP_ID
@ -222,6 +256,7 @@ CROSS_WEST
LDA (SE_MAP_LOC),Y
STA SW_MAP_ID
!loadSection SW_MAP_LOC
!finishLoad
RTS
;----------------------------------------------------------------------
; >> SET PLAYER TILE (A = tile)