cc65/libsrc/atari/cgetc.s

;
; Christian Groessler, November-2002
;
; get a char from the keyboard
; char cgetc(void)
;

        .include "atari.inc"
        .export _cgetc
        .import setcursor
        .import KEYBDV_handler

_cgetc:
        jsr     setcursor
        lda     #12
        sta     ICAX1Z          ; fix problems with direct call to KEYBDV
.ifdef __ATARIXL__
        jsr     KEYBDV_handler
.else
        jsr     @1
.endif
        ldx     #0
        rts

.ifndef __ATARIXL__
@1:     lda     KEYBDV+5
        pha
        lda     KEYBDV+4
        pha
        rts
.endif
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
honour cursor setting git-svn-id: svn://svn.cc65.org/cc65/trunk@1481 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-03 22:10:55 +00:00			`; Christian Groessler, November-2002`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
honour cursor setting git-svn-id: svn://svn.cc65.org/cc65/trunk@1481 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-03 22:10:55 +00:00			`; get a char from the keyboard`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`; char cgetc(void)`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.include "atari.inc"`
Atari: split "setcursor" function out of cgetc.s source file into setcursor.s. This function is used by many other CONIO functions, and the user program not necessarily uses 'cgetc'. Having "setcursor" in a different object file saves space in this case and also allows the user program to override it (e.g. when not using GRAPHICS 0 mode). 2017-10-03 19:58:52 +00:00			`.export _cgetc`
			`.import setcursor`
rename KEYBDV_wrapper to KEYBDV_handler 2013-08-27 08:21:42 +00:00			`.import KEYBDV_handler`
setcursor now updates OLDADR from COLCRS and ROWCRS git-svn-id: svn://svn.cc65.org/cc65/trunk@1655 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-26 21:31:01 +00:00
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`_cgetc:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`jsr setcursor`
adapt to atarixl target 2013-05-30 23:38:16 +00:00			`lda #12`
			`sta ICAX1Z ; fix problems with direct call to KEYBDV`
Normalized style. We don't use .ifndef .else .endif 2014-06-03 16:30:11 +00:00			`.ifdef __ATARIXL__`
rename KEYBDV_wrapper to KEYBDV_handler 2013-08-27 08:21:42 +00:00			`jsr KEYBDV_handler`
Normalized style. We don't use .ifndef .else .endif 2014-06-03 16:30:11 +00:00			`.else`
			`jsr @1`
adapt to atarixl target 2013-05-30 23:38:16 +00:00			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldx #0`
			`rts`
fixed return paramter; setup ICAX1Z so the key routine isn't confused by opened R: devices git-svn-id: svn://svn.cc65.org/cc65/trunk@1129 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-12-04 01:04:20 +00:00
Use '.ifdef' and '.ifndef' instead of '.if .defined' and '.if .not .defined'. 2013-09-19 20:36:22 +00:00			`.ifndef __ATARIXL__`
rename KEYBDV_wrapper to KEYBDV_handler 2013-08-27 08:21:42 +00:00			`@1: lda KEYBDV+5`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`pha`
			`lda KEYBDV+4`
			`pha`
rename KEYBDV_wrapper to KEYBDV_handler 2013-08-27 08:21:42 +00:00			`rts`
adapt to atarixl target 2013-05-30 23:38:16 +00:00			`.endif`