1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/cbm610/cgetc.s
cuz 97494bc1f3 Design change: Do keyboard polling internally without calling the kernal
in the system bank. For one this performs better (several %), second it
allows to handle the function keys in conformance with other platforms.
Without the custom keyboard routine, we would have to apply some more
magic to the function keys to make them work as with other cc65 targets.


git-svn-id: svn://svn.cc65.org/cc65/trunk@2811 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-12-21 18:43:25 +00:00

51 lines
1.0 KiB
ArmAsm

;
; Ullrich von Bassewitz, 06.08.1998
;
; char cgetc (void);
;
.export _cgetc
.import plot, write_crtc
.import cursor
.import keyidx: zp, keybuf: zp, config: zp
_cgetc: lda keyidx ; Get number of characters
bne L2 ; Jump if there are already chars waiting
; Switch on the cursor if needed
lda cursor
beq L1 ; Jump if no cursor
jsr plot ; Set the current cursor position
ldy #10
lda config ; Cursor format
jsr write_crtc ; Set the cursor formar
L1: lda keyidx
beq L1
ldy #10
lda #$20 ; Cursor off
jsr write_crtc
L2: ldx #$00 ; Get index
ldy keybuf ; Get first character in the buffer
sei
L3: lda keybuf+1,x ; Move up the remaining chars
sta keybuf,x
inx
cpx keyidx
bne L3
dec keyidx
cli
ldx #$00 ; High byte
tya ; First char from buffer
rts