Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

tfv: get up/down world wrapping working

This commit is contained in:
Vince Weaver 2017-11-16 17:17:16 -05:00
parent a1908141d6
commit 933aad6e90
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tfv/tfv_worldmap.s
View File

@ -189,7 +189,6 @@ check_high_x:
cmp #36
bmi check_low_x
; Off screen to right
lda #0
sta TFV_X
@ -202,15 +201,37 @@ check_low_x:
bpl check_high_y
dec MAP_X
lda #25
lda #35
sta TFV_X
inc REFRESH
check_high_y:
lda TFV_Y ; load Y value
cmp #28
bmi check_low_y ; if less than 28, check low Y
clc
lda #$4
sta TFV_Y
adc MAP_X
sta MAP_X
inc REFRESH
bne done_map_check
check_low_y:
lda TFV_Y
cmp #4
bpl done_map_check
lda #28
sta TFV_Y
dec MAP_X
dec MAP_X
dec MAP_X
dec MAP_X
inc REFRESH
done_map_check:
;============================
; Refresh screen if needed