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,27 @@
+/ C library
+/ return floating-point from long integer
+/	d = ltod(l)
+
+.globl	_ltod
+_ltod:
+	mov	r5,-(sp)
+	mov	sp,r5
+	setl
+	movif	*4(r5),fr0
+	seti
+	mov	(sp)+,r5
+	rts	pc
+
+/ return long integer from floating
+/	dtol(d, l)
+
+.globl	_dtol
+_dtol:
+	mov	r5,-(sp)
+	mov	sp,r5
+	setl
+	movf	4(r5),fr0
+	movfi	fr0,*12.(r5)
+	seti
+	mov	(sp)+,r5
+	rts	pc