dabs

 double cell absolute value

Stackeffects

( d -- ud )
R( -- )

Definition

: dabs
   dup    0<
(?branch) PFA_DABS1
   dnegate
PFA_DABS1:
   exit
;

Used by

d.r