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
+35
View File
@@ -0,0 +1,35 @@
/
/
/ sign & dsign fortran functions
.globl sign.
.globl dsign.
.globl retrn
.globl temp
.globl rerr
dsign.: temp
.+2
setd
br 1f
sign.: temp
.+2
setf
1:
cmp *2(sp),$2
bne 2f
movf *2(r3),r0
absf r0
tstf *4(r3)
cfcc
bge 1f
negf r0
1:
movf r0,temp
jmp retrn
2:
jsr r5,rerr; 12.