Add original unix v6

This commit is contained in:
memnoth
2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
+27
View File
@@ -0,0 +1,27 @@
/
/
/ dim fortran function
.globl dim.
.globl retrn
.globl temp
.globl rerr
/
dim.: temp
.+2
setf
cmp *2(sp),$2
bne 2f
movf *2(r3),r0
subf *4(r3),r0
cfcc
bge 1f
clrf r0
1:
movf r0,temp
jmp retrn
2:
jsr r5,rerr; 7.