8.6.1.1160
DABS
d-abs
DOUBLE
 
( d -- ud )

ud is the absolute value of d.

Testing:
T{       1. DABS -> 1.       }T
T{      -1. DABS -> 1.       }T
T{ MAX-2INT DABS -> MAX-2INT }T
T{ MIN-2INT 1. D+ DABS -> MAX-2INT }T