Using Arithmetic Functions

( nu1 nu2 -- sum ) 

Adds nu1 + nu2.

( nu1 nu2 -- diff ) 

Subtracts nu1 - nu2.

( nu1 nu2 -- prod ) 

Multiplies nu1 times nu2.

( n1 n2 n3 -- quot ) 

Calculates nu1 * nu2 / n3. Inputs, outputs and intermediate products are all one cell.

( n1 n2 -- quot ) 

Divides n1 by n2; remainder is discarded.

( nu1 -- nu2 ) 

Adds one. 

( nu1 -- nu2 ) 

Subtracts one. 

( nu1 -- nu2 ) 

Adds two. 

( nu1 -- nu2 )  

Subtracts two. 

( n -- u ) 

Absolute value. 

( start len -- len+start start ) 

Converts start,len to end,start for do or ?do loop.

( n -- n | n+1 ) 

Round to nearest even integer >= n.

( n1 n2 -- n3 ) 

n3 is maximum of n1 and n2 

( n1 n2 -- n3 ) 

n3 is minimum of n1 and n2 

( n1 n2 -- rem ) 

Remainder of n1 / n2.

( n1 n2 n3 -- rem quot ) 

Remainder, quotient of n1 * n2 / n3.

( n1 n2 -- rem quot ) 

Remainder, quotient of n1 / n2.

( n1 -- n2 ) 

Change the sign of n1.

(u1 u2 -- uprod ) 

Multiply 2 unsigned numbers yielding an unsigned product. 

( u1 u2 -- urem uquot ) 

Divide unsigned one-cell number by an unsigned one-cell number; yield one-cell remainder and quotient. 

( x1 u -- x2 ) 

Synonym for lshift.

( x1 u -- x2 ) 

Synonym for rshift.

( x1 -- x2 ) 

Multiply by 2. 

( x1 -- x2 ) 

Divide by 2. 

( x1 u -- x2 ) 

Arithmetic right-shift x1 by u bits.

( x1 x2 -- x3 ) 

Bitwise logical AND. 

( x1 -- x2 ) 

Invert all bits of x1.

( x1 u -- x2 ) 

Left-shift x1 by u bits. Zero-fill low bits.

( x1 -- x2 ) 

Synonym for invert.

( x1 x2 -- x3 ) 

Bitwise logical OR. 

( x1 u -- x2 ) 

Right-shift x1 by u bits. Zero-fill high bits.

( x1 -- x2 ) 

Logical right shift 1 bit; zero shifted into high bit. 

( x1 x2 -- x3 ) 

Bitwise exclusive OR. 

( d1 d2 -- d.sum ) 

Add d1 to d2 yielding double number d.sum. 

( d1 d2 --d.diff ) 

Subtract d2 from d1 yielding double number d.diff. 

( d n -- rem quot ) 

Divide d by n.

( n1 n2 -- d ) 

Signed multiply with double-number product. 

( n1 -- d1 ) 

Convert a number to a double number. 

( d n -- rem quot ) 

Divide d by n, symmetric division.

( u1 u2 -- ud ) 

Unsigned multiply yielding unsigned double number product. 

( ud u -- urem uprod ) 

Divide ud by u.

( b.low b2 b3 b.hi -- quad ) 

Join four bytes to form a quadlet 

( b.low b.hi -- word ) 

Join two bytes to form a doublet. 

( quad1 -- quad2 ) 

Reverse the bytes in a quadlet 

( quad -- b.low b2 b3 b.hi ) 

Split a quadlet into four bytes. 

( quad1 -- quad2 ) 

Swap the doublets in a quadlet. 

( quad -- w.low w.hi ) 

Split a quadlet into two doublets. 

( word1 -- word2 ) 

Swap the bytes in a doublet. 

( word -- b.low b.hi ) 

Split a doublet into two bytes. 

( w.low w.hi -- quad ) 

Join two doublets to form a quadlet. 

bxjoin

( b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi -- o ) 

Join eight bytes to form an octlet. 

lxjoin

( quad.lo quad.hi -- o ) 

Join two quadlets to form an octlet. 

wxjoin

( w.lo w.2 w.3 w.hi -- o ) 

Join four doublets to form an octlet. 

xbflip

( oct1 -- oct2 ) 

Reverse the bytes in an octlet. 

xbsplit

( o -- b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi ) 

Split an octlet into eight bytes. 

xlflip

( oct1 -- oct2 ) 

Reverse the quadlets in an octlet. The bytes in each quadlet are not reversed. 

xlsplit

( o -- quad.lo quad.hi ) 

Split on octlet into two quadlets. 

xwflip

( oct1 -- oct2 ) 

Reverse the doublets in an octlet. The bytes in each doublet are not reversed. 

xwsplit

( o -- w.lo w.2 w.3 w.hi ) 

Split an octlet into four doublets. 

( n1 -- n1 | a-addr) 

Increase n1 if necessary to yield a variable aligned address.

( -- n ) 

The number of address units to a byte: 1. 

( nu1 -- nu2 ) 

Synonym for chars.

( addr1 index -- addr2 ) 

Increment addr1 by index times the value of /c.

( addr1 -- addr2 ) 

Synonym for char+.

( addr1 -- addr2 ) 

Increment addr1 by the value of /n.

( nu1 -- nu2 ) 

Multiply nu1 by the value of /n.

( addr1 -- addr2 ) 

Increment addr1 by the value of /c.

( nu1 -- nu2 ) 

Multiply nu1 by the value of /c.

( -- n ) 

Number of address units to a quadlet; typically 4. 

( nu1 -- nu2 ) 

Multiply nu1 by the value of /l.

( addr1 index -- addr2 ) 

Increment addr1 by index times the value of /l.

( addr1 -- addr2 ) 

Increment addr1 by the value of /l.

( -- n ) 

Number of address units in a cell. 

( nu1 -- nu2 ) 

Synonym for cells.

( addr1 index -- addr2 ) 

Increment addr1 by index times the value of /n.

( addr1 -- addr2 ) 

Synonym for cell+.

( -- n ) 

Number of address units to a doublet; typically 2. 

( nu1 -- nu2 ) 

Multiply nu1 by the value of /w.

( addr1 index -- addr2 ) 

Increment addr1 by index times the value of /w.

( addr1 -- addr2 ) 

Increment addr1 by the value of /w.

( -- n ) 

Number of address units in an octlet, typically eight. 

( nu1 -- nu2 ) 

Multiply nu1 by the value of /x.

( addr1 index -- addr2 ) 

Increment addr1 by index times the value of /x.

( addr1 -- addr2 ) 

Increment addr1 by the value of /x.