mirror of
https://github.com/cc65/cc65.git
synced 2025-01-12 17:30:50 +00:00
22 lines
673 B
ArmAsm
22 lines
673 B
ArmAsm
; ---------------------------------------------------------------------------
|
|
; getchar.s
|
|
;
|
|
; for Sym-1
|
|
;
|
|
; Wayne Parham
|
|
; ---------------------------------------------------------------------------
|
|
|
|
.include "sym1.inc"
|
|
.export _getchar
|
|
|
|
.segment "CODE"
|
|
|
|
.proc _getchar: near
|
|
; ---------------------------------------------------------------------------
|
|
jsr INTCHR ; Get character using Monitor ROM call
|
|
and #$7F ; Strip off top bit
|
|
ldx #$00 ;
|
|
rts ; Return char
|
|
; ---------------------------------------------------------------------------
|
|
.endproc
|