Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-07-03 02:29:35 +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 LDY VIEWPORT_VERT_PAD
JSR SET_XY JSR SET_XY
RTS RTS
;----------------------------------------------------------------------
; >> START LOADING MAP SECTIONS
START_LOAD
LDX #0
LDA #START_LOAD
JMP mainLoader
!macro startLoad {
JSR START_LOAD
}
;---------------------------------------------------------------------- ;----------------------------------------------------------------------
; >> LOAD MAP SECTION ; >> LOAD MAP SECTION
; Section number is in A ; Section number is in A
@ -64,18 +75,34 @@ LOAD_SECTION
LDX #00 ; This is a bogus map section, don't load LDX #00 ; This is a bogus map section, don't load
LDY #00 LDY #00
RTS RTS
.doLoad .doLoad TAY ; resource # in Y
;INSERT LOADER HERE LDX #RES_TYPE_2D_MAP
RTS LDA #QUEUE_LOAD
!loadSection ptr { JMP mainLoader
!macro loadSection ptr {
JSR LOAD_SECTION JSR LOAD_SECTION
STX ptr STX ptr
STY ptr+1 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 ; >> RELEASE MAP SECTION
!macro releaseMapSection resourceId { !macro releaseMapSection ptr {
; --> free up unused resource ; --> free up unused resource
LDX ptr
LDY ptr+1
LDA #FREE_MEMORY
JSR mainLoader
} }
;---------------------------------------------------------------------- ;----------------------------------------------------------------------
; >> LOAD TILES ; >> LOAD TILES
@ -129,8 +156,8 @@ SET_XY
; >> CROSS NORTH BOUNDARY (Load next section to the north) ; >> CROSS NORTH BOUNDARY (Load next section to the north)
!zone !zone
CROSS_NORTH CROSS_NORTH
!releaseMapSection SW_MAP_ID !releaseMapSection SW_MAP_LOC
!releaseMapSection SE_MAP_ID !releaseMapSection SE_MAP_LOC
LDA REL_Y LDA REL_Y
CLC CLC
ADC #SECTION_HEIGHT ADC #SECTION_HEIGHT
@ -140,6 +167,7 @@ CROSS_NORTH
!move_byte NE_MAP_ID, SE_MAP_ID !move_byte NE_MAP_ID, SE_MAP_ID
!move_word NE_MAP_LOC, SE_MAP_LOC !move_word NE_MAP_LOC, SE_MAP_LOC
; Get new NW section ; Get new NW section
!startLoad
LDA (SW_MAP_LOC) LDA (SW_MAP_LOC)
STA NW_MAP_ID STA NW_MAP_ID
!loadSection NW_MAP_LOC !loadSection NW_MAP_LOC
@ -147,13 +175,14 @@ CROSS_NORTH
LDA (SE_MAP_LOC) LDA (SE_MAP_LOC)
STA NE_MAP_ID STA NE_MAP_ID
!loadSection NE_MAP_LOC !loadSection NE_MAP_LOC
!finishLoad
RTS RTS
;---------------------------------------------------------------------- ;----------------------------------------------------------------------
; >> CROSS EAST BOUNDARY (Load next section to the east) ; >> CROSS EAST BOUNDARY (Load next section to the east)
!zone !zone
CROSS_EAST CROSS_EAST
!releaseMapSection NW_MAP_ID !releaseMapSection NW_MAP_LOC
!releaseMapSection SW_MAP_ID !releaseMapSection SW_MAP_LOC
LDA REL_X LDA REL_X
SEC SEC
SBC #SECTION_WIDTH SBC #SECTION_WIDTH
@ -163,6 +192,7 @@ CROSS_EAST
!move_byte SE_MAP_ID, SW_MAP_ID !move_byte SE_MAP_ID, SW_MAP_ID
!move_word SE_MAP_LOC, SW_MAP_LOC !move_word SE_MAP_LOC, SW_MAP_LOC
; Get new NE section ; Get new NE section
!startLoad
LDY #EAST LDY #EAST
LDA (NW_MAP_LOC),Y LDA (NW_MAP_LOC),Y
STA NE_MAP_ID STA NE_MAP_ID
@ -172,13 +202,14 @@ CROSS_EAST
LDA (SW_MAP_LOC),Y LDA (SW_MAP_LOC),Y
STA SE_MAP_ID STA SE_MAP_ID
!loadSection SE_MAP_LOC !loadSection SE_MAP_LOC
!finishLoad
RTS RTS
;---------------------------------------------------------------------- ;----------------------------------------------------------------------
; >> CROSS SOUTH BOUNDARY (Load next section to the south) ; >> CROSS SOUTH BOUNDARY (Load next section to the south)
!zone !zone
CROSS_SOUTH CROSS_SOUTH
!releaseMapSection NW_MAP_ID !releaseMapSection NW_MAP_LOC
!releaseMapSection NE_MAP_ID !releaseMapSection NE_MAP_LOC
LDA REL_Y LDA REL_Y
SEC SEC
SBC #SECTION_HEIGHT SBC #SECTION_HEIGHT
@ -188,22 +219,24 @@ CROSS_SOUTH
!move_byte SE_MAP_ID, NE_MAP_ID !move_byte SE_MAP_ID, NE_MAP_ID
!move_word SE_MAP_LOC, NE_MAP_LOC !move_word SE_MAP_LOC, NE_MAP_LOC
; Get new SW section ; Get new SW section
!startLoad
LDY #SOUTH LDY #SOUTH
LDA (NW_MAP_LOC),Y LDA (NW_MAP_LOC),Y
STA SW_MAP_ID STA SW_MAP_ID
!loadSection SW_MAP_LOC !loadSection SW_MAP_LOC
; Get the new SE section ; Get the new SE section
LDY #SOUTH LDY #SOUTH
LDA (SE_MAP_LOC),Y LDA (NE_MAP_LOC),Y
STA SE_MAP_ID STA SE_MAP_ID
!loadSection SE_MAP_LOC !loadSection SE_MAP_LOC
!finishLoad
RTS RTS
;---------------------------------------------------------------------- ;----------------------------------------------------------------------
; >> CROSS WEST BOUNDARY (load next section to the west) ; >> CROSS WEST BOUNDARY (load next section to the west)
!zone !zone
CROSS_WEST CROSS_WEST
!releaseMapSection NE_MAP_ID !releaseMapSection NE_MAP_LOC
!releaseMapSection SE_MAP_ID !releaseMapSection SE_MAP_LOC
LDA REL_X LDA REL_X
CLC CLC
ADC #SECTION_WIDTH ADC #SECTION_WIDTH
@ -213,6 +246,7 @@ CROSS_WEST
!move_byte SW_MAP_ID, SE_MAP_ID !move_byte SW_MAP_ID, SE_MAP_ID
!move_word SW_MAP_LOC, SE_MAP_LOC !move_word SW_MAP_LOC, SE_MAP_LOC
; Get new NW section ; Get new NW section
!startLoad
LDY #WEST LDY #WEST
LDA (NE_MAP_LOC),Y LDA (NE_MAP_LOC),Y
STA NW_MAP_ID STA NW_MAP_ID
@ -222,6 +256,7 @@ CROSS_WEST
LDA (SE_MAP_LOC),Y LDA (SE_MAP_LOC),Y
STA SW_MAP_ID STA SW_MAP_ID
!loadSection SW_MAP_LOC !loadSection SW_MAP_LOC
!finishLoad
RTS RTS
;---------------------------------------------------------------------- ;----------------------------------------------------------------------
; >> SET PLAYER TILE (A = tile) ; >> SET PLAYER TILE (A = tile)