44 lines
367 B
ArmAsm
44 lines
367 B
ArmAsm
/
|
|
/
|
|
|
|
/ ra -- fortran runtime -- real ** real
|
|
|
|
.globl rpr4
|
|
.globl rpr8
|
|
|
|
.globl log
|
|
.globl exp
|
|
.globl rerr
|
|
|
|
rpr8:
|
|
setd
|
|
br 1f
|
|
|
|
rpr4:
|
|
setf
|
|
|
|
1:
|
|
seti
|
|
movf (sp)+,fr1
|
|
movf (sp)+,fr0
|
|
cfcc
|
|
beq 3f / 0**x
|
|
movf fr1,-(sp)
|
|
jsr pc,log
|
|
bes error
|
|
mulf (sp)+,fr0
|
|
jsr pc,exp
|
|
bes error
|
|
2:
|
|
movf fr0,-(sp)
|
|
jmp *(r4)+
|
|
|
|
3:
|
|
tstf r1
|
|
cfcc
|
|
bgt 2b
|
|
|
|
error:
|
|
jsr r5,rerr; 17.
|
|
|