17 lines
332 B
ArmAsm
Executable file
17 lines
332 B
ArmAsm
Executable file
;; B1=abs(A1)
|
|
.data
|
|
A1: .double -10.0
|
|
B1: .double 0.0
|
|
zero: .double 0.0
|
|
.text
|
|
main:
|
|
|
|
l.d f0,zero(r0)
|
|
l.d f2, A1(r0) ; f2=A1
|
|
mov.d f4, f2 ; f4=B1 = A1
|
|
c.lt.d 7, f2, f0 ; B1 < 0 ?
|
|
bc1f 7, done ; if false, nothing to do
|
|
sub.d f4, f0, f2 ; f4=-A=|A|= 0.0 - f4
|
|
done: s.d f4,B1(r0)
|
|
halt
|
|
|