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

keen: can actually enter level1 again 

it's currently broken though
This commit is contained in:
Vince Weaver 2024-04-13 12:24:35 -04:00
parent 7edd5d75f3
commit 6271105aa6
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
games/keen/mars.s
View File

@ -201,7 +201,11 @@ done_with_keen:
jsr fade_out
lda #LOAD_KEEN1
; set up proper level to load
clc
lda CURRENT_LEVEL
adc #2 ; skip title and mars
sta WHICH_LOAD
rts ; exit back
@ -509,12 +513,28 @@ check_location_match:
;=====================================
;=====================================
; placeholder until action imlpemented
;=====================================
;=====================================
dummy_action:
rts
;=====================================
;=====================================
; enter level
;=====================================
;=====================================
; level number is in X
enter_level:
stx CURRENT_LEVEL
inc LEVEL_OVER
rts
location_x:
.byte 19,22, 9,22,13,16,25,38
@ -532,7 +552,7 @@ location_size:
.byte 1,1,1,1
location_actions_low:
.byte <(dummy_action-1),<(dummy_action-1)
.byte <(enter_level-1),<(dummy_action-1) ; level1, level2
.byte <(dummy_action-1),<(dummy_action-1)
.byte <(dummy_action-1),<(dummy_action-1)
.byte <(dummy_action-1),<(dummy_action-1)
@ -544,7 +564,7 @@ location_actions_low:
.byte <(dummy_action-1),<(dummy_action-1) ; r trans, secret
location_actions_high:
.byte >(dummy_action-1),>(dummy_action-1)
.byte >(enter_level-1),>(dummy_action-1) ; level1, level2
.byte >(dummy_action-1),>(dummy_action-1)
.byte >(dummy_action-1),>(dummy_action-1)
.byte >(dummy_action-1),>(dummy_action-1)

1
games/keen/zp.inc
View File

@ -143,6 +143,7 @@ MARS_TILEY = $A3
INITIAL_SOUND = $A4
PLAY_END_SOUND = $A5
APPLEII_MODEL = $A6
CURRENT_LEVEL = $A7
WHICH_SLOT = $DA
JS_BUTTON_STATE = $DB