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

mist: can walk forward

This commit is contained in:
Vince Weaver 2020-03-01 15:24:28 -05:00
parent 8a81509259
commit ca9c087736
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mist/mist.s
View File

@ -450,6 +450,19 @@ change_location:
; go forward
;===========================
go_forward:
lda DIRECTION
clc
adc #LOCATION_NORTH_EXIT
tay
lda (LOCATION_STRUCT_L),Y
cmp #$ff
beq cant_go_forward
sta LOCATION
jsr change_location
cant_go_forward:
rts
;==========================