experimented, fixed bugs, implemented basic tty

2026-02-12 02:57:41 +00:00 · 2016-05-01 00:12:29 +02:00
parent bda85e8902
commit 79ef7a3af8
9 changed files with 283 additions and 38 deletions
--- a/ttytest.s
+++ b/ttytest.s
@@ -0,0 +1,43 @@
+P=17
+TTY=120
+
+
+PDLLEN=100
+
+.=40
+	JRST	4,
+	JRST	4,
+
+.=1000
+ENTRY:	JRST	START
+PDL:	.=.+PDLLEN
+SP:	-PDLLEN,,PDL-1
+
+START:
+	MOVE	P,SP
+	PUSHJ	P,GETCH
+	PUSHJ	P,PUTCHR
+	MOVEI	0,"\n
+	PUSHJ	P,PUTCHR
+	MOVEI	0,"a
+	PUSHJ	P,PUTCHR
+	JRST	4,
+
+GETCH:
+	CONI	TTY,0
+	TRNN	0,40
+	 JRST	.-2
+	DATAI	TTY,0
+	TRZ	0,200
+	POPJ	P,
+
+PUTCHR:
+	CONI	TTY,1
+	TRNE	1,20
+	 JRST	.-2
+	IORI	0,200
+	DATAO	TTY,0
+	POPJ	P,
+
+STR:
+	"a