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,32 @@
+/
+/
+
+/ fxb -- get integer constant or label
+
+.globl	geticon
+.globl	getlab
+
+.globl	getsym
+.globl	geti
+.globl	ptemp
+
+geticon:
+	jsr	r5,getsym
+	cmp	r0,$2
+	bne	1f
+	cmp	r3,$intcon
+	bne	1f
+	jsr	r5,geti
+	tst	(r5)+
+1:
+	rts	r5
+
+getlab:
+	jsr	r5,geticon
+		br 1f
+	mov	r0,temp
+	jsr	r5,ptemp; 'r; temp; line
+	tst	(r5)+
+1:
+	rts	r5
+