Lines Matching refs:dup
29 dup (local) swap if
36 dup "}" eqstr if
39 dup ";" eqstr if
54 dup `| = if
58 dup 0x20 > if
68 hexval-nf dup 0 < if "Not an hex digit: " puts . cr exitvm then ;
73 dup dup `0 >= swap `9 <= and if `0 - ret then
74 dup dup `A >= swap `F <= and if `A - 10 + ret then
75 dup dup `a >= swap `f <= and if `a - 10 + ret then
81 decval-nf dup 0 < if "Not a decimal digit: " puts . cr exitvm then ;
86 dup dup `0 >= swap `9 <= and if `0 - ret then
102 dup data-get8 8 << swap 1+ data-get8 + ;
139 begin dup while 1- postpone then repeat drop ; immediate
148 : endchoice begin dup while 1- postpone then repeat drop ; immediate
154 add-cc: dup { T0_PUSH(T0_PEEK(0)); }