cc65/libsrc/atari/cgetc.s

;
; get a kbd char.
;
; char cgetc(void)
;

        .include "atari.inc"
        .export _cgetc
        
_cgetc:
	jsr	@1
	ldx	#0
	rts

@1:	lda     KEYBDV+5
        pha
        lda     KEYBDV+4
        pha
	lda	#12
	sta	ICAX1Z		; fix problems with direct call to KEYBDV
        rts
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			`;`
			`; get a kbd char.`
			`;`
			`; char cgetc(void)`
			`;`

			`.include "atari.inc"`
			`.export _cgetc`

			`_cgetc:`
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			`jsr @1`
			`ldx #0`
			`rts`

			`@1: lda KEYBDV+5`
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			`pha`
			`lda KEYBDV+4`
			`pha`
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			`lda #12`
			`sta ICAX1Z ; fix problems with direct call to KEYBDV`
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			`rts`