HEX TABLE ADD-TAB 8 C, 8 C, 7 C, ... 0 C, 0 C, 0 C, : F+ \ ( X Y — Z ) OVER 80 AND IF. \ L1 DUP 80 AND IF. 2DUP - DUP 80 AND \ L11 IF \ L111 NEGATE \ — X Y K ) FF AND ADD-TAB + C@ + SWAP DROP DUP 80 AND LNOT IF DROP FF THEN ELSE \ L110 — X Y K ) SWAP DROP FF AND ADD-TAB + C@ + DUP 80 AND LNOT IF DROP FF THEN THEN ELSE. 2DUP - DUP 80 AND \ L10 IF \ L101 — X Y K ) SWAP DROP FF AND ADD-TAB + C@ - DUP 80 AND LNOT IF DROP 80 THEN ELSE \ L100 NEGATE \ — X Y K ) FF AND ADD-TAB + C@ - SWAP DROP DUP 80 AND IF DROP 00 THEN THEN THEN ELSE. DUP 80 AND \ L0 IF. 2DUP - DUP 80 AND \ L01 IF \ L011 — X Y K ) SWAP DROP FF AND ADD-TAB + C@ - DUP 80 AND IF DROP 00 THEN ELSE NEGATE \ L010 — X Y K ) FF AND ADD-TAB + C@ - SWAP DROP DUP 80 AND LNOT IF DROP 80 THEN THEN ELSE. \ L00 2DUP - DUP 80 AND IF NEGATE \ L001 — X Y K ) FF AND ADD-TAB + C@ + SWAP DROP DUP 80 AND IF DROP 7F THEN ELSE \ L000 — X Y K ) SWAP DROP FF AND ADD-TAB + C@ + DUP 80 AND IF DROP 7F THEN THEN THEN THEN FF AND ; : FNEGATE 80 XOR ; \ ( X — X' ) : FABS 7F AND ; \ ( X — X' ) : F- FNEGATE F+ ; \ ( X Y — Z ) : F* \ ( X Y — Z ) 2DUP XOR 80 AND IF + 40 - DUP 80 AND LNOT \ „1“ IF 40 AND IF 80 ELSE FF THEN THEN ELSE \ „0“ + 40 - DUP 80 AND IF 40 AND IF 00 ELSE 7F THEN THEN THEN FF AND ; : F/ \ ( X Y — Z ) 2DUP XOR 80 AND IF - 40 + DUP 80 AND LNOT \ „1“ IF 40 AND IF 80 ELSE FF THEN THEN ELSE - 40 + DUP 80 AND \ „0“ IF 40 AND IF 00 ELSE 7F THEN THEN THEN FF AND ; : 1/X \ ( X --- X' ) DUP IF \ +0 -> 7F DUP 80 = \ -0 -> FF IF DROP FF ELSE 0 SWAP - \ 2er-complement 80 XOR \ invert sign FF AND ELSE DROP 7F THEN THEN ; : ^2 \ ( X --- X' ) 7F AND DUP 20 U< IF DROP 0 ELSE DUP 5F U> IF DROP 7F ELSE 1 ;