cc65/libsrc/c64/soft80_cgetc.s

;
; char cgetc (void);
;

        .export         soft80_cgetc
        .import         cursor

        .include        "c64.inc"
        .include        "soft80.inc"

.if SOFT80COLORVOODOO = 1
        .import         soft80_putcolor
.endif

soft80_cgetc:
        lda     KEY_COUNT       ; Get number of characters
        bne     L3              ; Jump if there are already chars waiting

        jsr     invertcursor    ; set cursor on or off accordingly

L1:     lda     KEY_COUNT       ; wait for key
        beq     L1

        jsr     invertcursor    ; set cursor on or off accordingly

L3:     jsr     KBDREAD         ; Read char and return in A
        ldx     #0
        rts

; Switch the cursor on or off (invert)

invertcursor:
        lda     cursor
        bne     @invert
        rts
@invert:

        sei
        lda     $01
        pha
        lda     #$34            ; enable RAM under I/O
        sta     $01

        ldy     #$00
.if SOFT80COLORVOODOO = 1
        jsr     soft80_putcolor
.else
        lda     CHARCOLOR
        sta     (CRAM_PTR),y    ; vram
.endif

        lda     CURS_X
        and     #$01
        tax
@lp1:
        lda     (SCREEN_PTR),y
        eor     nibble,x
        sta     (SCREEN_PTR),y
        iny
        cpy     #8
        bne     @lp1

        pla
        sta     $01
        cli
        rts

        .rodata
nibble: .byte $f0, $0f
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`;`
			`; char cgetc (void);`
			`;`

			`.export soft80_cgetc`
some cleanup, checked usage of __bgcolor and __textcolor 2015-09-28 14:10:11 +00:00			`.import cursor`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`.include "c64.inc"`
			`.include "soft80.inc"`

some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`.if SOFT80COLORVOODOO = 1`
			`.import soft80_putcolor`
			`.endif`

initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`soft80_cgetc:`
			`lda KEY_COUNT ; Get number of characters`
			`bne L3 ; Jump if there are already chars waiting`

some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`jsr invertcursor ; set cursor on or off accordingly`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`L1: lda KEY_COUNT ; wait for key`
			`beq L1`

some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`jsr invertcursor ; set cursor on or off accordingly`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`L3: jsr KBDREAD ; Read char and return in A`
			`ldx #0`
			`rts`

some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`; Switch the cursor on or off (invert)`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`invertcursor:`
			`lda cursor`
			`bne @invert`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`rts`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`@invert:`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`sei`
			`lda $01`
			`pha`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`lda #$34 ; enable RAM under I/O`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`sta $01`

			`ldy #$00`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`.if SOFT80COLORVOODOO = 1`
			`jsr soft80_putcolor`
			`.else`
			`lda CHARCOLOR`
			`sta (CRAM_PTR),y ; vram`
			`.endif`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`lda CURS_X`
			`and #$01`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`tax`
			`@lp1:`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`lda (SCREEN_PTR),y`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`eor nibble,x`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`sta (SCREEN_PTR),y`
			`iny`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`cpy #8`
			`bne @lp1`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`pla`
			`sta $01`
			`cli`
			`rts`

some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`.rodata`
			`nibble: .byte $f0, $0f`