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 @@
+/ fortran random number generator.
+/ either single or double prec.
+
+.globl	rand., srand.
+.globl	retrn
+
+srand.:
+	value
+	.+2
+	mov	*2(r3),seed1
+	inc	first
+	jmp	retrn
+
+rand.:
+	value
+	.+2
+	tst	first
+	bne	1f
+	sys	time
+	mov	r1,seed1
+	inc	first
+1:
+	mov	seed1,r1
+	jsr	pc,ran
+	mov	r1,seed1
+	seti
+	setd
+	movif	r0,fr0
+	divf	$44000,fr0
+	movf	fr0,value
+	jmp	retrn
+
+ran:
+	mpy	$13077.,r1
+	add	$6925.,r1
+	mov	r1,r0
+	bic	$100000,r0
+	rts	pc
+
+.bss
+first:	.=.+2
+seed1:	.=.+2
+value:	.=.+8