msbasic/chrget.s

24 lines
435 B
ArmAsm
Raw Normal View History

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
2008-10-13 03:25:57 +00:00
GENERIC_CHRGOT2:
2008-10-13 00:27:11 +00:00
cmp #$20
beq GENERIC_CHRGET
sec
sbc #$30
sec
sbc #$D0
L4058:
rts