aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/dabs.asm
blob: 43b372db38e211ba6e40520f2daad552a4160fce (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; ( d -- ud ) 
; Arithmetics
; double cell absolute value
VE_DABS:
    .dw $ff04
    .db "dabs"
    .dw VE_HEAD
    .set VE_HEAD = VE_DABS
XT_DABS:
    .dw DO_COLON
PFA_DABS:
    .dw XT_DUP
    .dw XT_ZEROLESS
    .dw XT_DOCONDBRANCH
    .dw PFA_DABS1
    .dw XT_DNEGATE
PFA_DABS1:
    .dw XT_EXIT
; : dabs      ( ud1 -- +d2 ) dup 0< if dnegate then ;