dos33fsprogs/games/lemm/keyboard.s

487 lines
7.3 KiB
ArmAsm
Raw Normal View History

2022-03-10 05:45:51 +00:00
;==============================
; Handle Keypress
;==============================
handle_keypress:
; first handle joystick
lda JOYSTICK_ENABLED
beq actually_handle_keypress
; only check joystick every-other frame
lda FRAMEL
and #$1
beq actually_handle_keypress
check_button:
lda PADDLE_BUTTON0
bpl button_clear
lda JS_BUTTON_STATE
bne js_check
lda #1
sta JS_BUTTON_STATE
lda #' '
jmp handle_input
button_clear:
lda #0
sta JS_BUTTON_STATE
js_check:
jsr handle_joystick
js_check_left:
lda value0
cmp #$20
bcs js_check_right ; if less than 32, left
lda #'A'
bne handle_input
js_check_right:
cmp #$40
bcc js_check_up
lda #'D'
bne handle_input
js_check_up:
lda value1
cmp #$20
bcs js_check_down
lda #'W'
bne handle_input
js_check_down:
cmp #$40
bcc done_joystick
lda #'S'
bne handle_input
done_joystick:
actually_handle_keypress:
lda KEYPRESS
bmi keypress
jmp no_keypress
keypress:
and #$7f ; clear high bit
cmp #$40
bcc handle_input ; make sure not to lose space
; and numbers
2022-03-10 05:45:51 +00:00
and #$df ; convert uppercase to lower case
handle_input:
; first check if 1...8 pressed
cmp #'1'
bcc check_sound
cmp #'9'
bcs check_sound
sec ; map 1->3, 2->4, 4->5, etc
sbc #'1'
clc
adc #3
jsr handle_menu_which_in_a
jmp done_keypress
2022-03-10 05:45:51 +00:00
check_sound:
cmp #$14 ; control-T
bne check_joystick
lda SOUND_STATUS
eor #SOUND_DISABLED
sta SOUND_STATUS
jmp done_keypress
; can't be ^J as that's the same as down
check_joystick:
cmp #'J'
bne check_left
lda JOYSTICK_ENABLED
eor #1
sta JOYSTICK_ENABLED
jmp done_keypress
check_left:
cmp #'A'
beq left_pressed
cmp #8 ; left key
bne check_right
left_pressed:
lda CURSOR_X ; if 41<x<$FE don't decrement
cmp #41
bcc do_dec_cursor_x
cmp #$FE
bcc done_left_pressed
do_dec_cursor_x:
dec CURSOR_X
done_left_pressed:
jmp done_keypress
check_right:
cmp #'D'
beq right_pressed
cmp #$15 ; right key
bne check_up
right_pressed:
lda CURSOR_X ; if 40<x<$FE don't increment
cmp #40
bcc do_inc_cursor_x
cmp #$FE
bcc done_right_pressed
do_inc_cursor_x:
inc CURSOR_X
done_right_pressed:
jmp done_keypress
check_up:
cmp #'W'
beq up_pressed
cmp #$0B ; up key
bne check_down
up_pressed:
lda CURSOR_Y ; if 191<y<$F0 don't decrement
cmp #191
bcc do_dec_cursor_y
cmp #$F0
bcc done_up_pressed
do_dec_cursor_y:
dec CURSOR_Y
dec CURSOR_Y
dec CURSOR_Y
dec CURSOR_Y
done_up_pressed:
jmp done_keypress
check_down:
cmp #'S'
beq down_pressed
cmp #$0A
bne check_escape
down_pressed:
lda CURSOR_Y ; if 191<y<$EE don't decrement
cmp #191
bcc do_inc_cursor_y
cmp #$EE
bcc done_down_pressed
do_inc_cursor_y:
inc CURSOR_Y
inc CURSOR_Y
inc CURSOR_Y
inc CURSOR_Y
done_down_pressed:
jmp done_keypress
check_escape:
cmp #27
bne check_return
escape_pressed:
2022-03-15 04:50:35 +00:00
lda #LEVEL_FAIL
sta LEVEL_OVER
2022-03-10 05:45:51 +00:00
jmp done_keypress
check_return:
cmp #' '
beq return_pressed
cmp #13
bne done_keypress
return_pressed:
2022-03-15 02:57:33 +00:00
; first check if off bottom of screen
lda CURSOR_Y
cmp #168-8 ; center of cursor
bcc return_check_lemming
2022-03-14 16:16:40 +00:00
2022-03-15 02:57:33 +00:00
jsr handle_menu
jmp done_keypress
2022-03-10 05:45:51 +00:00
2022-03-15 02:57:33 +00:00
; next check if over lemming
return_check_lemming:
lda OVER_LEMMING
2022-03-23 01:36:44 +00:00
bmi not_over_lemming
tay
2022-03-15 04:41:12 +00:00
; check if digging selected
2022-03-24 02:57:02 +00:00
jsr click_speaker
2022-03-15 04:41:12 +00:00
lda BUTTON_LOCATION
2022-03-24 02:57:02 +00:00
cmp #1
beq make_climber
cmp #2
beq make_floater
cmp #3
beq make_exploding
cmp #4
beq make_stopper
cmp #5
beq make_builder
cmp #6
beq make_basher
cmp #7
beq make_miner
2022-03-15 04:41:12 +00:00
cmp #8
2022-03-24 02:57:02 +00:00
beq make_digger
2022-03-15 04:41:12 +00:00
bne done_keypress
2022-03-24 02:57:02 +00:00
make_climber:
2022-03-25 01:25:26 +00:00
jsr make_climber_routine
2022-03-24 02:57:02 +00:00
jmp done_keypress
make_floater:
2022-03-25 01:25:26 +00:00
jsr make_floater_routine
2022-03-24 02:57:02 +00:00
jmp done_keypress
make_exploding:
jsr make_exploding_routine
jmp done_keypress
make_stopper:
2022-03-25 04:59:49 +00:00
jsr make_stopper_routine
2022-03-24 02:57:02 +00:00
jmp done_keypress
make_builder:
jmp done_keypress
make_basher:
jmp done_keypress
make_miner:
jmp done_keypress
make_digger:
jsr make_digger_routine
jmp done_keypress
2022-03-10 05:45:51 +00:00
not_over_lemming:
2022-03-10 05:45:51 +00:00
done_keypress:
no_keypress:
bit KEYRESET
rts
2022-03-24 02:57:02 +00:00
;========================
; make digger
;========================
make_digger_routine:
; only do it if walking
lda lemming_status,Y
cmp #LEMMING_WALKING
bne done_make_digger
lda #LEMMING_DIGGING
sta lemming_status,Y
; FIXME: decrement digger_count
done_make_digger:
rts
;========================
; make exploding
;========================
make_exploding_routine:
lda #1
sta lemming_exploding,Y
rts
2022-03-25 01:25:26 +00:00
;========================
; make climber
;========================
make_climber_routine:
lda #LEMMING_CLIMBER
ora lemming_attribute,Y
sta lemming_attribute,Y
rts
;========================
; make floater
;========================
make_floater_routine:
lda #LEMMING_FLOATER
ora lemming_attribute,Y
sta lemming_attribute,Y
rts
2022-03-25 04:59:49 +00:00
;========================
; make stopper
;========================
make_stopper_routine:
lda lemming_status,Y
cmp #LEMMING_FLOATER ; can't stop if floating
beq cant_stop
cmp #LEMMING_FALLING ; can't stop if falling
beq cant_stop
lda #LEMMING_STOPPING
sta lemming_status,Y
; put line on page2 to make lemmings reverse
; line from (x,a) to (x,a+y)
lda #$7f
sta HGR_COLOR
jsr hgr_vlin_page_toggle
clc
lda lemming_x,Y ; multiply x by 7
asl
adc lemming_x,Y
asl
adc lemming_x,Y
tax
lda lemming_y,Y
ldy #10
jsr hgr_vlin
jsr hgr_vlin_page_toggle
cant_stop:
rts
2022-03-25 01:25:26 +00:00
2022-03-24 02:57:02 +00:00
;=============================
;=============================
; handle menu
;=============================
;=============================
2022-03-15 02:57:33 +00:00
handle_menu:
; see where we clicked
lda CURSOR_X
; urgh need to multiply by 7
clc
asl
adc CURSOR_X
asl
adc CURSOR_X
clc
adc #24 ; adjust to center
lsr ; /16 for on-screen co-ords
lsr
lsr
lsr ; each box is 16 wide
handle_menu_which_in_a:
2022-03-15 02:57:33 +00:00
cmp #3
bcc plus_minus_buttons
cmp #11
beq pause_button
cmp #12
beq nuke_button
bcs map_grid_button
2022-03-24 02:57:02 +00:00
;==========================
2022-03-15 02:57:33 +00:00
; otherwise was job button
job_button:
pha
jsr click_speaker
pla
pha
2022-03-15 02:57:33 +00:00
; erase old
jsr erase_menu
; update value
pla
sec
sbc #2
sta BUTTON_LOCATION
; draw new
jsr update_menu
jmp done_menu
2022-03-23 01:36:44 +00:00
;============================
;============================
; plus/minus button
;============================
;============================
2022-03-15 02:57:33 +00:00
plus_minus_buttons:
2022-03-24 01:49:58 +00:00
lda release_lemming_speed+1
cmp #1
beq done_plus_adjust
lsr release_lemming_speed+1 ; make release faster
done_plus_adjust:
2022-03-15 02:57:33 +00:00
jmp done_menu
2022-03-23 01:36:44 +00:00
;============================
;============================
; nuke
;============================
;============================
; TODO: offset them a bit so it's not simultaneous
; FIXME: also stop more from coming out the door
2022-03-15 02:57:33 +00:00
nuke_button:
2022-03-16 01:00:30 +00:00
lda #1
2022-03-23 01:36:44 +00:00
ldy #0
nuke_loop:
sta lemming_exploding,Y
iny
cpy #MAX_LEMMINGS
bne nuke_loop
2022-03-15 02:57:33 +00:00
jmp done_menu
2022-03-23 01:36:44 +00:00
;============================
;============================
; map grid
;============================
;============================
2022-03-15 02:57:33 +00:00
map_grid_button:
; TODO
jmp done_menu
2022-03-23 01:36:44 +00:00
;============================
;============================
; pause
;============================
;============================
; FIXME: should stop clock too
2022-03-15 02:57:33 +00:00
pause_button:
2022-03-23 01:36:44 +00:00
2022-03-15 02:57:33 +00:00
bit KEYRESET
jsr wait_until_keypress
done_menu:
rts