Lines Matching refs:swap
96 does> create here swap dup @ allot cell+ @ execute
99 : ;structure swap ! ;
102 : ;constructor postpone ; swap cell+ ! ; immediate
115 0 swap .len !
276 tlen swap - dup
280 taddr swap s" console" setenv
306 swap dup c@ dup 32 = over 9 = or over 10 = or
307 over 13 = or over 44 = or swap drop
308 while 1+ swap 1- repeat
309 swap 2 pick 1- over <
313 2 pick tuck - -rot + swap over c@ dup 32 =
315 swap drop if 2drop 2drop true exit then
317 swap dup c@ dup 32 = over 9 = or over 10 = or
318 over 13 = or over 44 = or swap drop
320 while 1+ swap 1- repeat
321 swap
329 s" ttya" 2swap contains? ( addr len f )
331 s" ttyb" 2swap contains? ( f addr len f )
333 s" ttyc" 2swap contains? ( f f addr len f )
335 s" ttyd" 2swap contains? ( f f addr len f )
339 swap drop 0>
343 swap drop 0>
413 over c@ [char] " = if 2 chars - swap char+ swap then
495 2swap strcat
1012 swap throw throw
1025 swap throw throw
1040 swap throw throw
1109 2swap type type cr
1158 swap free-memory
1178 swap ( addr2 addr1 )
1180 swap @ ( addr2 addr len )
1183 swap @ ( addr len addr' len' )
1199 r> swap ! \ a[j] = v
1229 swap 1+ swap
1249 swap ! ( addr len addr' len' taddr ) \ store length
1253 swap move ( addr len )
1255 swap 1+ move \ 1+ for '\0'
1289 2dup swap sort
1292 over 0 swap 0 do ( n array 0 )
1299 2swap ( len addr n array )
1300 over 0 swap 0 do ( len addr n array 0 )
1302 dup @ swap cell+ ( len addr n array total len addr' )
1306 swap move + ( len addr n array total+len )
1308 over + bl swap c! 1+ ( len addr n array total )
1312 swap ( addr len )
1322 rot swap move ( addr len addr' )
1325 dup bl swap c! 1+ ( addr len addr' addr'' )
1326 3 pick swap ( addr len addr' addr addr'' )
1329 free drop swap ( addr' len )
1633 dup -1 = if 0 swap exit then
1652 2swap 2drop
1664 over 0 2swap ( addr 0 addr len )
1670 1- swap 1+ swap
1671 2swap 1+ 2swap
1674 1- swap 1+ swap
1676 2swap
1813 path newmodulepath drop swap move
1887 dup -1 = if 0 swap then
1991 2r> 2swap ( old a1 u1 )