mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
Pecusx
75 lines
2.1 KiB
NASM
75 lines
2.1 KiB
NASM
;--------------------------------------------------
|
|
.proc GetKey
|
|
; waits for pressing a key and returns pressed value in A
|
|
; when [ESC] is pressed, escFlag is set
|
|
; result: A=keycode
|
|
;--------------------------------------------------
|
|
jsr WaitForKeyRelease
|
|
jsr GetKeyFast
|
|
ldy #0
|
|
sty escFlag
|
|
rts
|
|
.endp
|
|
|
|
;--------------------------------------------------
|
|
.proc GetKeyFast
|
|
; returns pressed value in A - no wait for press
|
|
; when [ESC] is pressed, escFlag is set
|
|
; result: A=keycode
|
|
;--------------------------------------------------
|
|
lda #$ff
|
|
rts
|
|
.endp
|
|
|
|
;--------------------------------------------------
|
|
.proc getkeynowait
|
|
;--------------------------------------------------
|
|
jsr WaitForKeyRelease
|
|
lda kbcode
|
|
and #$3f ;CTRL and SHIFT ellimination
|
|
rts
|
|
.endp
|
|
|
|
;--------------------------------------------------
|
|
.proc WaitForLongPress
|
|
;--------------------------------------------------
|
|
lda #0
|
|
sta pressTimer ; reset
|
|
jsr WaitForKeyRelease.StillWait
|
|
lda pressTimer
|
|
cmp #25 ; 1/2s
|
|
rts ; if CARRY is set then long press
|
|
.endp
|
|
|
|
;--------------------------------------------------
|
|
.proc WaitForKeyRelease
|
|
;--------------------------------------------------
|
|
StillWait
|
|
rts
|
|
.endp
|
|
;--------------------------------------------------
|
|
.proc IsKeyPressed
|
|
; result: A=0 - yes , A>0 - no
|
|
;--------------------------------------------------
|
|
lda #1
|
|
rts
|
|
.endp
|
|
;--------------------------------------------------
|
|
.proc CheckStartKey
|
|
;--------------------------------------------------
|
|
lda #%00000001 ; START KEY not pressed
|
|
rts
|
|
.endp
|
|
;--------------------------------------------------
|
|
.proc CheckExitKeys
|
|
;--------------------------------------------------
|
|
; Checks keyboard and sets appropriate flags for exit procedures
|
|
; If START+OPTION is pressed - exit to GameOver screen
|
|
; If 'O' key is pressed - displays "Are you sure?" and - exit to GameOver screen
|
|
; If 'Esc' key is pressed - displays "Are you sure?" and - exit to Menu screen
|
|
; Just setting the right flags!!!
|
|
mva #$00 escFlag ; flag cleared
|
|
rts
|
|
;
|
|
.endp
|