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,32 @@
+.globl	mesg
+
+/ usage:
+/   jsr r5,mesg
+/       <string ending in \0>
+/      .even
+/   ...
+/
+/ string is output onto $1
+/
+
+mesg:
+	mov	r0,-(sp)
+	mov	r5,r0
+	mov	r5,0f
+1:
+	tstb	(r5)+
+	bne	1b
+	sub	r5,r0
+	com	r0
+	mov	r0,0f+2
+	mov	$1,r0
+	sys	0; 9f
+.data
+9:
+	sys	write; 0:..; ..
+.text
+	inc	r5
+	bic	$1,r5
+	mov	(sp)+,r0
+	rts	r5
+