2000-05-28 13:40:48 +00:00
|
|
|
;
|
2002-11-03 22:10:55 +00:00
|
|
|
; Christian Groessler, November-2002
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
2002-11-03 22:10:55 +00:00
|
|
|
; get a char from the keyboard
|
2000-05-28 13:40:48 +00:00
|
|
|
; char cgetc(void)
|
|
|
|
|
;
|
|
|
|
|
|
2002-11-03 22:10:55 +00:00
|
|
|
.include "atari.inc"
|
|
|
|
|
.export _cgetc
|
|
|
|
|
.import cursor
|
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
_cgetc:
|
2002-11-03 22:10:55 +00:00
|
|
|
jsr setcursor
|
2001-12-04 01:04:20 +00:00
|
|
|
jsr @1
|
|
|
|
|
ldx #0
|
|
|
|
|
rts
|
|
|
|
|
|
2002-11-03 22:10:55 +00:00
|
|
|
@1: lda KEYBDV+5
|
|
|
|
|
pha
|
|
|
|
|
lda KEYBDV+4
|
|
|
|
|
pha
|
2001-12-04 01:04:20 +00:00
|
|
|
lda #12
|
|
|
|
|
sta ICAX1Z ; fix problems with direct call to KEYBDV
|
2002-11-03 22:10:55 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.proc setcursor
|
|
|
|
|
|
|
|
|
|
lda OLDCHR ; get char at current cursor position
|
|
|
|
|
ldy #0 ; needed later
|
|
|
|
|
|
|
|
|
|
ldx cursor ; current cursor setting as requested by the user
|
|
|
|
|
beq off
|
|
|
|
|
ldx #0
|
|
|
|
|
beq cont
|
|
|
|
|
|
|
|
|
|
off: inx
|
|
|
|
|
cont: stx CRSINH ; update system variable
|
|
|
|
|
|
|
|
|
|
beq turnon
|
|
|
|
|
and #$7f ; clear high bit / inverse flag
|
|
|
|
|
finish: sta (OLDADR),y ; update on-screen display
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
turnon: ora #$80 ; set high bit / inverse flag
|
|
|
|
|
bne finish
|
|
|
|
|
|
|
|
|
|
.endproc
|
