37 lines
334 B
ArmAsm
37 lines
334 B
ArmAsm
/
|
|
/
|
|
|
|
/ amod & dmod fortran functions
|
|
|
|
.globl amod.
|
|
.globl dmod.
|
|
|
|
.globl retrn
|
|
one = 40200
|
|
.globl temp
|
|
.globl rerr
|
|
|
|
dmod.: temp
|
|
.+2
|
|
setd
|
|
br 1f
|
|
|
|
amod.: temp
|
|
.+2
|
|
setf
|
|
1:
|
|
cmp *2(sp),$2
|
|
bne 1f
|
|
movf *2(r3),r0
|
|
movf r0,r2
|
|
movf *4(r3),r1
|
|
divf r1,r2
|
|
modf $one,r2
|
|
mulf r1,r3
|
|
subf r3,r0
|
|
movf r0,temp
|
|
jmp retrn
|
|
|
|
1:
|
|
jsr r5,rerr; 2
|