Synertek Systems Sym-1 machine-specific files

This commit is contained in:
Wayne Parham
2021-05-09 16:34:53 -05:00
parent 07bd5089ec
commit 6e79379405
23 changed files with 2088 additions and 0 deletions

21
libsrc/sym1/getchar.s Normal file
View File

@@ -0,0 +1,21 @@
; ---------------------------------------------------------------------------
; 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