ootw: make title screen easier to navigate on Apple II

This commit is contained in:
Vince Weaver 2021-05-03 09:40:51 -04:00
parent c358d8d90c
commit 3862879a2d

View File

@ -30,25 +30,32 @@ title_loop:
jsr wait_for_keypress jsr wait_for_keypress
; $15/$A = right/down ; convert to uppercase, remove top bit
cmp #$15+$80 ; 1110 0001 -> 0100 0001
and #$5f
; $15/$A = right/down/S
cmp #$15
beq down_pressed beq down_pressed
cmp #$A+$80 cmp #$A
beq down_pressed
cmp #'S'
beq down_pressed beq down_pressed
; 8/B = left/up ; 8/B = left/up/W
cmp #$8+$80 cmp #$8
beq up_pressed beq up_pressed
cmp #$B+$80 cmp #$B
beq up_pressed
cmp #'W'
beq up_pressed beq up_pressed
; Return = 13 ; Return = 13
cmp #13+$80 cmp #13
beq all_done beq all_done
cmp #'H'+$80 cmp #'H'
beq want_help
cmp #'h'+$80
bne key_unknown bne key_unknown
want_help: want_help: