Operation

IF operand is in range
THEN
C2 0;
ST tan(ST);
Decrement stack-top pointer;
ST 1.0;
ELSE
C2 1;
FI;