Using Arithmetic Functions

( nu1 nu2 -- sum ) 

Add nu1 + nu2.

( nu1 nu2 -- diff ) 

Subtract nu1 - nu2.

( nu1 nu2 -- prod ) 

Multiply nu1 * nu2.

( n1 n2 -- quot ) 

Divide n1 by n2; remainder is discarded.

( n1 n2 -- rem quot ) 

Remainder, quotient of n1 / n2.

( x1 u -- x2 ) 

Synonym for lshift.

( x1 u -- x2 ) 

Synonym for rshift.

( x1 u -- x2 ) 

Arithmetic right-shift x1 by u bits.

( n1 n2 n3 -- quot ) 

n1 * n2 / n3.

( n1 n2 n3 -- rem quot ) 

Remainder, quotient of n1 * n2 / n3.

( nu1 -- nu2 ) 

Add 1. 

( nu1 -- nu2 ) 

Subtract 1. 

( nu1 -- nu2 ) 

Multiply by 2. 

( nu1 -- nu2 ) 

Add 2. 

( nu1 -- nu2 )  

Subtract 2. 

( nu1 -- nu2 ) 

Divide by 2. 

( n -- u ) 

Absolute value. 

( n1 -- n1 | a-addr) 

Round n1 up to the next multiple of 4.

( n1 n2 -- n3 ) 

Bitwise logical AND.

( startaddr len -- endaddr startaddr ) 

Convert startaddr len to endaddr startaddr for do loop.

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

Join four bytes to form a 32-bit quadword. 

( b.low b.hi -- word ) 

Join two bytes to form a 16-bit word. 

(d1 d2 -- d.sum ) 

Add two 64-bit numbers. 

(d1 d2 --d.diff ) 

Subtract two 64-bit numbers. 

( n -- n | n+1 ) 

Round to nearest even integer >= n.

( d n -- rem quot ) 

Divide d by n.

( x1 -- x2 ) 

Invert all bits of x1.

( quad1 -- quad2 ) 

Swap the bytes within a 32-bit quadword 

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

Split a 32-bit quadword into four bytes. 

( quad1 -- quad2 ) 

Swap halves of a 32-bit quadword. 

( quad -- w.low w.hi ) 

Split a 32-bit quadword into two 16-bit words. 

( x1 u -- x2 ) 

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

( 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 ) 

Change the sign of n1.

( x1 -- x2 ) 

Synonym for invert.

( n1 n2 -- n3 ) 

Bitwise logical OR. 

( x1 u -- x2 ) 

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

( n1 -- d1 ) 

Convert a number to a double number. 

( d n -- rem quot ) 

Divide d by n, symmetric division.

( x1 -- x2 ) 

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

(u1 u2 -- uprod ) 

Multiply 2 unsigned numbers yielding an unsigned product. 

( u1 u2 -- urem uquot ) 

Divide unsigned 32-bit number by an unsigned 32-bit number; yield 32-bit remainder and quotient. 

( u1 u2 -- ud ) 

Multiply 2 unsigned 32-bit numbers; yield unsigned double number product. 

( ud u -- urem uprod ) 

Divide ud by u.

( word1 -- word2 ) 

Swap the bytes within a 16-bit word. 

( word -- b.low b.hi ) 

Split 16-bit word into two bytes. 

( w.low w.hi -- quad ) 

Join two words to form a quadword. 

( x1 x2 --x3 ) 

Bitwise exclusive OR.