Add original unix v6

2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
@@ -0,0 +1,31 @@
+/
+/
+
+/ fx6 -- teletype
+
+.globl	tput
+.globl	tdecml
+
+tdecml:
+	mov	r1,-(sp)
+	jsr	r5,td
+	mov	(sp)+,r1
+	rts	r5
+
+td:
+	mov	r0,r1
+	clr	r0
+	dvd	$10.,r0
+	mov	r1,-(sp)
+	tst	r0
+	beq	1f
+	jsr	r5,td
+1:
+	mov	(sp)+,r0
+	add	$'0,r0
+
+tput:
+	movb	r0,ch+1
+	mov	$1,r0
+	sys	write; ch+1; 1
+	rts	r5