msbasic/chrget.s

.segment "CHRGET"
RAMSTART1:
GENERIC_CHRGET:
        inc     TXTPTR
        bne     GENERIC_CHRGOT
        inc     TXTPTR+1
GENERIC_CHRGOT:
GENERIC_TXTPTR = GENERIC_CHRGOT + 1
        lda     $EA60
.ifdef KBD
        jsr     LF430
.endif
        cmp     #$3A
        bcs     L4058
GENERIC_CHRGOT2:
        cmp     #$20
        beq     GENERIC_CHRGET
        sec
        sbc     #$30
        sec
        sbc     #$D0
L4058:
        rts
separated out chrget and init 2008-10-13 00:27:11 +00:00			`.segment "CHRGET"`
			`RAMSTART1:`
			`GENERIC_CHRGET:`
			`inc TXTPTR`
			`bne GENERIC_CHRGOT`
			`inc TXTPTR+1`
			`GENERIC_CHRGOT:`
			`GENERIC_TXTPTR = GENERIC_CHRGOT + 1`
			`lda $EA60`
			`.ifdef KBD`
			`jsr LF430`
			`.endif`
			`cmp #$3A`
			`bcs L4058`
cleanup 2008-10-13 03:25:57 +00:00			`GENERIC_CHRGOT2:`
separated out chrget and init 2008-10-13 00:27:11 +00:00			`cmp #$20`
			`beq GENERIC_CHRGET`
			`sec`
			`sbc #$30`
			`sec`
			`sbc #$D0`
			`L4058:`
			`rts`