aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/equal.asm
blob: 1cd3e5750cca0011e81faf62b72bbd0d93845838 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( n1 n2 -- flag )
; Compare
; compares two values for equality
VE_EQUAL:
    .dw $ff01
    .db "=",0
    .dw VE_HEAD
    .set VE_HEAD = VE_EQUAL
XT_EQUAL:
    .dw DO_COLON
PFA_EQUAL:
    .dw XT_MINUS
    .dw XT_ZEROEQUAL
    .dw XT_EXIT