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,43 @@
+/
+/
+
+/ ra -- fortran runtime --  real ** real
+
+.globl	rpr4
+.globl	rpr8
+
+.globl	log
+.globl	exp
+.globl	rerr
+
+rpr8:
+	setd
+	br	1f
+
+rpr4:
+	setf
+
+1:
+	seti
+	movf	(sp)+,fr1
+	movf	(sp)+,fr0
+	cfcc
+	beq	3f			/ 0**x
+	movf	fr1,-(sp)
+	jsr	pc,log
+	bes	error
+	mulf	(sp)+,fr0
+	jsr	pc,exp
+	bes	error
+2:
+	movf	fr0,-(sp)
+	jmp	*(r4)+
+
+3:
+	tstf	r1
+	cfcc
+	bgt	2b
+
+error:
+	jsr	r5,rerr; 17.
+