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,30 @@
+/
+/
+
+/ mod fortran function
+
+.globl	mod.
+
+.globl	retrn
+.globl	temp
+one = 40200
+.globl	rerr
+
+mod.:	temp
+	.+2
+	setd
+	setl
+	cmp	*2(sp),$2
+	bne	1f
+	movif	*2(r3),r0
+	movf	r0,r2
+	movif	*4(r3),r1
+	divf	r1,r2
+	modf	$one,r2
+	mulf	r1,r3
+	subf	r3,r0
+	movfi	r0,temp
+	jmp	retrn
+
+1:
+	jsr	r5,rerr; 11.