dos33fsprogs/games/tfv/draw_menu.s
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

100 lines
1.2 KiB
ArmAsm

; print menu selection, draw to draw page
; use arrow keys to scroll
; return/space selects
; X = num entries
; Y = start Y?
; OUTL/OUTH points to list to draw
; return number of response in A
; $FF = nothing
; 0..# is number of selection chosen
draw_menu:
; clear bottom
jsr clear_bottom
; make normal?
; draw list
jsr move_and_print_list
; draw arrow
lda menu_y
clc
adc menu_offset
asl
tay
lda gr_offsets+1,Y
clc
adc DRAW_PAGE
sta OUTH
clc
lda gr_offsets,Y
adc menu_x
sta OUTL
ldy #0
lda #'-'
sta (OUTL),Y
iny
sta (OUTL),Y
iny
lda #'>'
sta (OUTL),Y
; check keypress
jsr get_keypress
; keypress is in A
cmp #0
beq menu_nothing
cmp #'A'
beq dec_menu
cmp #'W'
beq dec_menu
cmp #'S'
beq inc_menu
cmp #'D'
beq inc_menu
cmp #' '
beq menu_select
cmp #13
beq menu_select
bne menu_nothing
inc_menu:
lda menu_offset
cmp menu_max
bcs menu_nothing ; don't go above max
inc menu_offset
jmp menu_nothing
dec_menu:
lda menu_offset
beq menu_nothing ; can't go below 0
dec menu_offset
jmp menu_nothing
menu_select:
lda menu_offset
jmp done_menu
menu_nothing:
lda #$ff
done_menu:
sta MENU_RESULT
rts
menu_x: .byte 12
menu_y: .byte 21
menu_max: .byte 2
menu_offset: .byte 0