Lines Matching refs:swap
44 " fmt.5" d# -123 <# dup abs u#s swap sign u#> " -123" $= .passed?
45 " fmt.6" d# 123 <# dup abs u#s swap sign u#> " 123" $= .passed?
46 " fmt.7" " -123" $number invert swap d# -123 = and .passed?
48 " fmt.8" " 32a" $number invert swap h# 32a = and .passed?
52 <# dup abs u#s swap sign u#>
58 " fmt.13" #line @ cr #out @ #line @ rot 1 + = swap 0= and .passed?
59 " fmt.14" #line @ (cr #out @ #line @ rot = swap 0= and .passed?
63 " fmt.18" ascii 5 d# 10 digit swap 5 = and .passed?
64 " fmt.19" ascii x d# 16 digit invert swap ascii x = and .passed?
78 " xyzzy" my-unit-str swap move
83 9 0 do my-unit-str i + dup c@ lcc swap c! loop
85 9 0 do my-unit-str i + dup c@ upc swap c! loop
104 " defer.1" defer-word 3 = swap 2 = and swap 1 = and .passed?
160 decode-phys 2 = swap 1 = and nip nip .passed?
177 " ms.1" get-msecs h# 100 ms get-msecs swap - h# 80 h# 150 between .passed?