Add original unix v6
This commit is contained in:
@@ -0,0 +1,18 @@
|
||||
/
|
||||
/
|
||||
|
||||
/ iabs fortran function
|
||||
|
||||
.globl iabs.
|
||||
|
||||
.globl retrn
|
||||
.globl temp
|
||||
|
||||
iabs.: temp
|
||||
.+2
|
||||
setl
|
||||
setd
|
||||
movif *2(r3),r0
|
||||
absf r0
|
||||
movfi r0,temp
|
||||
jmp retrn
|
||||
Reference in New Issue
Block a user