mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-03 16:29:56 +00:00
ootw: make title screen easier to navigate on Apple II
This commit is contained in:
parent
c358d8d90c
commit
3862879a2d
|
@ -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:
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user