Add original unix v6
This commit is contained in:
@@ -0,0 +1,21 @@
|
||||
/
|
||||
/
|
||||
|
||||
/ conjg fortran function
|
||||
|
||||
.globl conjg.
|
||||
|
||||
.globl rval8p
|
||||
.globl retrn
|
||||
.globl temp
|
||||
|
||||
conjg.: temp
|
||||
rval8p; 2
|
||||
.+2
|
||||
setf
|
||||
movf (sp)+,r0
|
||||
movf r0,temp
|
||||
movf (sp)+,r0
|
||||
negf r0
|
||||
movf r0,temp+4
|
||||
jmp retrn
|
||||
Reference in New Issue
Block a user