mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-15 20:30:11 +00:00
tfv: get up/down world wrapping working
This commit is contained in:
parent
a1908141d6
commit
933aad6e90
@ -189,7 +189,6 @@ check_high_x:
|
|||||||
cmp #36
|
cmp #36
|
||||||
bmi check_low_x
|
bmi check_low_x
|
||||||
|
|
||||||
|
|
||||||
; Off screen to right
|
; Off screen to right
|
||||||
lda #0
|
lda #0
|
||||||
sta TFV_X
|
sta TFV_X
|
||||||
@ -202,15 +201,37 @@ check_low_x:
|
|||||||
bpl check_high_y
|
bpl check_high_y
|
||||||
|
|
||||||
dec MAP_X
|
dec MAP_X
|
||||||
lda #25
|
lda #35
|
||||||
sta TFV_X
|
sta TFV_X
|
||||||
inc REFRESH
|
inc REFRESH
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
check_high_y:
|
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:
|
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
|
; Refresh screen if needed
|
||||||
|
Loading…
x
Reference in New Issue
Block a user