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,36 @@
+/
+/
+
+/ fxa -- genop -- output a typed operator
+
+.globl	genop
+.globl	newline
+
+.globl	code
+.globl	typ
+
+genop:
+	mov	r1,-(sp)
+	mov	r3,-(sp)
+	bic	$!7,r3
+	movb	typ(r3),r1
+	mov	(sp),r3
+	clrb	r3
+	swab	r3
+	jsr	r5,code
+		<	%c%c%d\0>; .even
+		r1
+		r0
+		r3
+	mov	(sp)+,r3
+	mov	(sp)+,r1
+	rts	r5
+
+newline:
+	jsr	r5,code
+		<\n\0>; .even
+	rts	r5
+
+typ:
+	<?irlc??g>
+