seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 08:54:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/c/lib7/getchar.s Normal file
View File

@@ -0,0 +1,21 @@
*
* read one char from console
*
CRTS=$3ff01
CRTD=$3ff03
.globl _getchar
.globl _putchar
_getchar:
move.b CRTS,R0
and #1,R0 //receive register full
beq _getchar //not yet
move.b CRTD,R0 //read the char
and.l #$7f,R0 //leave only 7 bits
cmp.b #$0d,R0 //carriage return?
bne l0
move.b #$0a,R0 //turn into line feed
l0:
move R0,-(sp)
jsr _putchar //echo it
move (sp)+,R0 //pop arg
rts