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,35 @@
+/
+/
+
+/ cexp fortran function
+
+.globl	cexp.
+
+.globl	rval8p
+.globl	retrn
+.globl	temp
+.globl	rerr
+.globl	exp
+.globl	sin
+.globl	cos
+
+cexp.:	temp
+	rval8p; 2
+	.+2
+	setf
+	movf	(sp)+,r0
+	jsr	pc,exp
+	bes	1f
+	movf	r0,temp
+	movf	(sp),r0
+	jsr	pc,sin
+	mulf	temp,r0
+	movf	r0,temp+4
+	movf	(sp)+,r0
+	jsr	pc,cos
+	mulf	temp,r0
+	movf	r0,temp
+	jmp	retrn
+
+1:
+	jsr	r5,rerr; 5.