mirror of
https://github.com/blondie7575/GSCats.git
synced 2024-11-25 10:30:49 +00:00
75 lines
892 B
ArmAsm
75 lines
892 B
ArmAsm
;
|
|
; input
|
|
; Code related to handling input
|
|
;
|
|
; Created by Quinn Dunki on 8/15/17
|
|
;
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; kbdScan
|
|
; Processes keyboard input
|
|
;
|
|
; Trashes A
|
|
;
|
|
|
|
kbdScan:
|
|
BITS8
|
|
lda KBD
|
|
bpl kbdScanDone
|
|
sta KBDSTROBE
|
|
|
|
cmp #(8 + $80)
|
|
beq kbdScanLeftArrow
|
|
cmp #(21 + $80)
|
|
beq kbdScanRightArrow
|
|
cmp #(' ' + $80)
|
|
beq kbdScanSpace
|
|
cmp #('a' + $80)
|
|
beq kbdScanA
|
|
cmp #('z' + $80)
|
|
beq kbdScanZ
|
|
|
|
kbdScanDone:
|
|
BITS16
|
|
rts
|
|
|
|
kbdScanRightArrow:
|
|
BITS16
|
|
lda mapScrollPos
|
|
cmp #VISIBLETERRAINWIDTH-VISIBLETERRAINWINDOW
|
|
beq kbdScanDone
|
|
inc
|
|
inc
|
|
sta mapScrollRequested
|
|
rts
|
|
|
|
kbdScanLeftArrow:
|
|
BITS16
|
|
|
|
lda mapScrollPos
|
|
beq kbdScanDone
|
|
dec
|
|
dec
|
|
sta mapScrollRequested
|
|
rts
|
|
|
|
kbdScanSpace:
|
|
BITS16
|
|
|
|
lda #1
|
|
sta quitRequested
|
|
rts
|
|
|
|
kbdScanA:
|
|
BITS16
|
|
lda #1
|
|
sta angleDeltaRequested
|
|
rts
|
|
|
|
kbdScanZ:
|
|
BITS16
|
|
lda #-1
|
|
sta angleDeltaRequested
|
|
rts
|
|
|