diff options
Diffstat (limited to 'src/cgetc.s')
| -rw-r--r-- | src/cgetc.s | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/cgetc.s b/src/cgetc.s new file mode 100644 index 0000000..dd9fe26 --- /dev/null +++ b/src/cgetc.s @@ -0,0 +1,24 @@ +; +; Christian Groessler, November-2002 +; +; get a char from the keyboard +; char cgetc(void) +; + +; Modified version for FujiNetChat. + .include "atari.inc" + .export _cgetc + +_cgetc: +;;; jsr setcursor ; this is unneeded and causes a hole in screen 7 + lda #12 + sta ICAX1Z ; fix problems with direct call to KEYBDV + jsr @1 + ldx #0 + rts + +@1: lda KEYBDV+5 + pha + lda KEYBDV+4 + pha + rts |