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,33 @@
+/
+/
+
+/ alog10 & dlog10 fortran functions
+
+.globl	dlog10.
+.globl	alog10.
+
+.globl	log
+.globl	retrn
+.globl	rerr
+.globl	temp
+
+dlog10.:temp
+	.+2
+	setd
+	br	1f
+
+alog10.:temp
+	.+2
+	setf
+1:
+	movf	*2(r3),r0
+	jsr	pc,log
+	bes	1f
+	mulf	const,r0
+	movf	r0,temp
+	jmp	retrn
+
+1:
+	jsr	r5,rerr; 1
+
+const:	37736;55730;124467;24146