## Module description

tlb -- Toolbelt forth words
The tlb module contains general purpose forth words.

3dup ( x1 x2 x3 -- x1 x2 x3 x1 x2 x3 )
Duplicate the three cells on stack
4dup ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 x3 x4 )
Duplicate the four cells on stack
3drop ( x1 x2 x3 -- )
Drop the three cells on stack
4drop ( x1 x2 x3 x4 -- )
Drop the four cells on stack
lroll ( u1 u2 -- u3 )
Rotate u1 u2 bits to the left
rroll ( u1 u2 -- u3 )
Rotate u1 u2 bits to the right
u<> ( u u - f )
Check for not equal
u<= ( u u - f )
Check for smaller and equal
0>= ( n - f )
Check for equal and greater zero
>= ( n n - f )
Check for greater equal
<= ( n n - f )
Check for smaller equal
d<> ( d d - f )
Check if two two double are unequal
nil= ( addr -- flag )
Check for nil
nil<> ( addr -- flag )
Check for unequal to nil
If addr is nil, then return false, else return address with true
?free ( addr -- ior )
Free the address if not nil
Increase contents of address by 1
Decrease contents of address by 1
@! ( x1 a-addr -- x2 )
First fetch the contents x2 and then store value x1
Compare case-insensitive two strings and return the result [-1,0,1]
ud. ( ud -- )
Type the unsigned double number
sgn ( n1 - n2 )
Determine the sign of the number
<=> ( n1 n2 -- n )
Compare the two numbers and return the compare result [-1,0,1]
index2offset ( n1 n2 -- n3 )
Convert the index n1 range [-n2..n2> into offset n3 range [0..n2>, negative values of n1 downward length n2
r'@ ( R: x1 x2 -- x1 x2; -- x1 )
Fetch the second cell on the return stack

## Float extension words

f-rot ( F: r1 r2 r3 -- r3 r1 r2 )
Rotate counter clockwise three floats
f2dup ( F: r1 r2 -- r1 r2 r1 r2 )
Duplicate two floats
f>r ( F: r -- ; R: -- r )
Push float on the return stack
fr> ( F: -- r ; R: r -- )
Pop float from the return stack
fr@ ( F: -- r ; R: r -- r )
Get float from top of return stack

Generated by fsdocgen 0.1.0