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,58 @@
+/
+/
+
+/ rf -- real comparisons
+
+.globl	rlt4
+.globl	rle4
+.globl	req4
+.globl	rne4
+.globl	rge4
+.globl	rgt4
+
+rlt4:
+	jsr	pc,compar
+	blt	one
+	br	zero
+
+rle4:
+	jsr	pc,compar
+	ble	one
+	br	zero
+
+req4:
+	jsr	pc,compar
+	beq	one
+	br	zero
+
+rne4:
+	jsr	pc,compar
+	bne	one
+	br	zero
+
+rge4:
+	jsr	pc,compar
+	bge	one
+	br	zero
+
+rgt4:
+	jsr	pc,compar
+	bgt	one
+	br	zero
+
+one:
+	mov	$1,-(sp)
+	jmp	*(r4)+
+
+zero:
+	clr	-(sp)
+	jmp	*(r4)+
+
+compar:
+	mov	(sp)+,r0
+	setf
+	movf	(sp)+,r0
+	cmpf	(sp)+,r0
+	cfcc
+	jmp	(r0)
+