!               PM--  ( N A --> ) STORE CELL
#               H:--  ( N --> M ) CONVERT AND HOLD DIGIT
#>              H:--  ( N N --> ) END PICTURED NUMERIC CONVERSION
#IN             H:--  ( --> N ) QUERY AND TRANSLATE NUMBER
#S              H:--  ( N --> 0 ) CONVERT AND HOLD REMAINING DIGITS
$"              HSIS  ( --> A ) COMPILE STRING LITERAL
$SAVE           H:-S  ( --> A ) SAVE STRING IN LEXICON
$SKIP           H:--  ( --> A ) SKIP OVER INLINE STRING LITERAL
'               K:-S  ( --> A ) FIND WORD, FAIL IF NON-EXISTANT
(               H:IS  ( ( --> ) INTRODUCE PARENTHESIZED COMMENT
($")            H:--  ( --> A ) RUNTIME OF $"
(+LOOP)         HR--  ( N --> ) '+LOOP' / 'LOOP' RUNTIME
(.")            H:-S  ( --> ) RUNTIME OF ."
(:)             PM--  ( --> ) ADDRESS LIST INTERPRETER
(?BR)           PM--  ( F --> ) BRANCH ON FALSE
(ABORT)         H:--  ( --> ) RUNTIME OF ABORT"
(BASE)          H:-S  ( --> N ) RUNTIME OF '[OCT]' AND '[BIN]'
(BR)            PM--  ( --> ) BRANCH
(CONST)         PM--  ( --> N ) RUN TIME FOR CONSTANTS
(DO)            HR--  ( LIM I --> ) 'DO' RUNTIME
(LIT)           PM--  ( --> N ) PUSH INLINE LITERAL NUMBER
(NEXT)          HR--  ( --> ) 'NEXT' RUNTIME
(TRAP)          H:--  ( --> ) DEFAULT TRAP HANDLER
(VAR)           PM--  ( --> A ) RUN TIME FOR VARIABLES
*               H:--  ( N M --> N*M ) SIGNED PRODUCT
*/              H:--  ( N M K --> N*M/K ) N*M/K, DOUBLE INTERMEDIATE
*/MOD           PM--  ( N M K --> N*M/K N*M MOD K ) MULTIPLY+DIVIDE
+               PM--  ( N M --> N+M ) ADD NUMBERS
+!              H:--  ( N A --> ) INCREMENT VAR AT TOS BY NUMBER
+CELL           H:--  ( N --> N+2 ) ADVANCE TO NEXT CELL
+LOOP           HSI-  ( N --> ) DELIMIT DO LOOP WITH VAR INCREMENT
,               K:--  ( N --> ) STORE WORD IN LEXICON
-               PM--  ( N M --> N-M ) SUBTRACT NUMBERS
-CELL           H:--  ( N --> N-2 ) GO BACK ONE CELL
-LEX            H:--  ( A A --> F ) COMPARE LEXICON HEADERS
-ROT            H:--  ( N M K --> K N M ) ROTATE STACK DOWN
-TEXT           PM--  ( A1 A2 N --> N ) COMPARE STRINGS
.               H:--  ( N --> ) PRINT SIGNED NUMBER
."              H:IS  ( --> ) TYPE STRING LITERAL
.(              H:IS  ( ( --> ) PRINT EXECUTION TIME COMMENT
.OK             K:--  ( --> ) EMIT "OK" PROMPT
.PAD            H:--  ( L A N --> A N ) PRINT L-N SPACES IF L-N>0
.R              H:--  ( N LEN --> ) PRINT SIGNED NUMBER W/PADDING
.STACK          H:--  ( --> ) PRINT STACK
.WORD           H:--  ( A --> ) PRINT NAME OF WORD
/               H:--  ( N M --> N/M ) SIGNED QUOTIENT
/CELL           H:--  ( N --> N/2 ) CONVERT BYTES TO CELLS
/MOD            H:--  ( N M --> N/M N MOD M ) QUOTIENT AND MODULUS
0               HC--  ( --> 0 ) CONSTANT 0
0=              H:--  ( N --> F ) TEST FOR ZERO
0DESC           KA--  ( --> A ) I/O DESCRIPTOR #0
1               HC--  ( --> 1 ) CONSTANT 1
1+              PM--  ( N --> N+1 ) INCREMENT
1-              PM--  ( N --> N-1 ) DECREMENT
1DESC           KA--  ( --> A ) I/O DESCRIPTOR #1
2               HC--  ( --> 2 ) CONSTANT 2
2+              H:--  ( N --> N+2 ) INCREMENT BY 2
2-              H:--  ( N --> N-2 ) DECREMENT BY 2
2/              H:--  ( N --> N/2 ) DIVISION BY 2
2DROP           H:--  ( N M --> ) DROP TWO MEMBERS
2DUP            H:--  ( N M --> N M N M ) DUP TWO MEMBERS
:               KD--  ( --> ) COLON COMPILER
;               K:I-  ( --> ) END COMPILATION
;;              HSI-  ( --> ) DELIMIT CASE OF DOCASE
<               PM--  ( N M --> N<M ) 'LESS THAN' PREDICATE
<#              H:--  ( N N --> N N ) BEGIN PICTURED CONVERSION
<=              PM--  ( N M --> N<=M ) 'LESS THAN/EQUAL TO' PREDICATE
<>              PM--  ( N M --> N<>M ) 'NOT EQUAL TO' PREDICATE
<HIDE           H:--  ( --> ) MARK END OF HIDDEN AREA
=               PM--  ( N M --> N=M ) 'EQUAL TO' PREDICATE
>               PM--  ( N M --> N>M ) 'GREATER THAN' PREDICATE
>=              PM--  ( N M --> N>=M ) 'GREATER THAN/EQUAL TO' PRED.
>BUF            KV--  ( --> A ) POINTER TO INPUT BUFFER
>C@             K:--  ( --> C ) EXTRACT CHARACTER FROM INPUT STREAM
>CFA            H:--  ( A --> A ) MOVE FROM CFA TO CFA
>IN             KV--  ( --> A ) INPUT POINTER
>L              H:--  ( A N --> A ) ADDRESS OF LINE IN BUFFER
>LINK           H:--  ( A --> A ) MOVE FROM CFA TO LINK FIELD
>LOWER          H:--  ( C --> C2 ) CONVERT CHARACTER TO LOWER CASE
>NAME           H:--  ( A --> A ) MOVE FROM CFA TO NAME FIELD
>PFA            H:--  ( A --> A ) MOVE FROM CFA TO PFA
>R              PM--  ( N --> ; --> N ) TRANSFER VALUE TO RETURN STACK
>UPPER          K:--  ( C --> C2 ) CONVERT CHAR TO UPPER CASE
>VISUAL         H:--  ( C --> C2 ) REPLACE UNPRINTABLE CHARACTERS
?               H:--  ( A --> ) PRINT VALUE OF CELL
?BREAK          H:--  ( F --> ) LEAVE FOR-NEXT LOOP IF TOS TRUE
?DUP            H:--  ( N --> N [N] ) DUP IF TOS NOT ZERO
?EXIT           H:--  ( F --> ) EXIT IF TOS TRUE
?I/O-OK         K:--  ( N --> ) CHECK RESULT OF I/O OPERATION
?IF             HSI-  ( N --> N| ) SHORT FORM OF ?DUP IF
?KEY            PM--  ( --> F ) CONSOLE RECEIVER READY?
?LEAVE          H:--  ( F --> ) LEAVE DO-LOOP LOOP IF TOS TRUE
?NUMBER         K:--  ( A --> 0|N -1 ) TEST NUMBER AND TRANSLATE
?RXRDY          PM--  ( --> F ) AUXILARY RECEIVER READY?
?STACK-OK       K:--  ( --> ) CHECK STACK LIMITS
@               PM--  ( A --> N ) INDIRECTION
@FIND           H:--  ( A A --> A|0 ) FIND WORD IN PARTIAL LEXICON
ABORT"          H:IS  ( --> ) PRINT STRING AND QUIT
ABS             H:--  ( N --> |N| ) ABSOLUTE VALUE OF INTEGER
ADVANCE         K:-S  ( --> ) MOVE TO NEXT CHAR IN INPUT STREAM
AGAIN           HSI-  ( --> ) DELIMIT BEGIN-AGAIN LOOP BODY
ALLOT           K:--  ( N --> ) ALLOCATE BYTES OF MEMORY
AND             PM--  ( N M --> N/\M ) BITWISE LOGICAL PRODUCT
APPEND          K:--  ( C --> ) APPEND CHARACTER TO TIB
B/BUF           HC--  ( --> 1024 ) BYTES PER BUFFER
BACKSPACE       K:--  ( --> ) EMIT DESTRUCTIVE BACKSPACE
BASE            KV--  ( --> A ) INPUT/OUTPUT RADIX
BEGIN           HSI-  ( --> ) INTRODUCE LOOP
BINARY          H:--  ( --> ) SET NUMERIC BASE TO 2
BL              HC--  ( --> 32 ) SPACE CHARACTER
BLANK           H:IS  ( A N --> ) FILL MEMORY WITH BLANKS
BLOCK           K:--  ( BLK --> A ) LOAD BLOCK INTO BUFFER
BREAK           H:--  ( --> ) LEAVE FOR-NEXT LOOP
BUF             H:--  ( --> A ) ADDRESS OF CURRENT BUFFER
BUFFER          K:--  ( BLK --> A ) CREATE EMPTY BUFFER
C!              PM--  ( C A --> ) STORE BYTE
C,              K:--  ( C --> ) STORE BYTE IN LEXICON
C/L             HC--  ( --> 64 ) CHARACTERS PER LINE
C@              PM--  ( A --> C ) BYTE INDIRECTION
CASE>           HSI-  ( F --> ) INTRODUCE CASE OF DOCASE
CASEND          HSI-  ( --> ) DELIMIT DOCASE CONSTRUCT
CDUMP           H:--  ( A --> ) PRINT 8-CHARACTER ASCII DUMP
CELL            HC--  ( --> 2 ) BYTES PER CELL
CELLS           H:--  ( N --> N*2 ) CONVERT CELLS TO BYTES
CHAR            H:IS  ( --> C ) COMPILE CHARACTER LITERAL
CHECK-LEXICON   H:--  ( --> ) CHECK LEXICON FOR CONFLICTS
CLRLN           H:--  ( --> ) CLEAR REST OF CURRENT LINE
CLRSCR          H:--  ( --> ) CLEAR REST OF SCREEN
CMOVE           PM--  ( SRC DST N --> ) MOVE MEMORY REGION
COMPILE         H:IS  ( --> ) COMPILE CODE TO COMPILE WORD
CONSTANT        HD-S  ( N --> ) DEFINE CONSTANT
COPY            H:--  ( SRC DST --> ) COPY BLOCK
COUNT           K:--  ( A --> A N ) EXTRACT STRING LENGTH
CR              K:--  ( --> ) EMIT NEWLINE SEQUENCE
CREATE          K:-S  ( --> ) CREATE LEXICON ENTRY
CSCAN           PM--  ( A N C --> A|0 ) SEARCH BYTE IN MEMORY
CURSOR          H:--  ( X Y --> ) MOVE CURSOR
D0=             H:--  ( N M --> F ) TEST 2 MEMBERS FOR ZERO
D<>             H:--  ( N M K L --> F ) TEST 2 PAIRS FOR INEQUALITY
D=              H:--  ( N M K L --> F ) TEST 2 PAIRS FOR EQUALITY
DDINIT          PM--  ( UNIT --> N ) INITIALIZE AND SELECT TU58
DDREAD          PM--  ( UNIT BLK A --> F ) READ BLOCK FROM TU58
DDUMP           H:--  ( BLK --> ) PRINT BLOCK DUMP
DDWRITE         PM--  ( UNIT BLK A --> F ) WRITE BLOCK TO TU58
DECIMAL         H:--  ( --> ) SET NUMERIC BASE TO 10
DEFER           HDIS  ( --> ) CREATE DEFERRED DEFINITION
DELETE          H:--  ( N --> ) DELETE LINE FROM BUF
DELETE-LINE     H:--  ( A N --> ) DELETE LINE
DEPTH           H:--  ( --> N ) NUMBER OF MEMBERS ON STACK
DLINIT          PM--  ( UNIT --> N ) INITIALIZE AND SELECT RL02
DLREAD          PM--  ( UNIT BLK A --> F ) READ BLOCK FROM RL02
DLWRITE         PM--  ( UNIT BLK A --> F ) WRITE BLOCK TO RL02
DO              HSI-  ( LIM I --> ) INTRODUCE DO-LOOP LOOP
DOCASE          HSI-  ( --> ) INTRODUCE DOCASE CONSTRUCT
DROP            PM--  ( N --> ) DISCARD TOS
DUMP            H:--  ( A N --> ) PRINT OCTAL/CHAR DUMP
DUP             PM--  ( N --> N N ) DUPLICATE TOS
DXINIT          PM--  ( UNIT --> N ) INITIALIZE AND SELECT RX01
DXREAD          PM--  ( UNIT BLK A --> F ) READ BLOCK FROM RX01
DXWRITE         PM--  ( UNIT BLK A --> F ) WRITE BLOCK TO RX01
DYINIT          PM--  ( UNIT --> N ) INITIALIZE AND SELECT RX02
DYREAD          PM--  ( UNIT BLK A --> F ) READ BLOCK FROM RX02
DYWRITE         PM--  ( UNIT BLK A --> F ) WRITE BLOCK TO RX02
ELSE            HSI-  ( --> ) INTRODUCE ALTERNATE COND. BRANCH
EMIT            PM--  ( C --> ) TRANSMIT CHARACTER TO CONSOLE
EMPTY           H:--  ( --> ) FORGET ALL UNPROTECTED WORDS
EMPTY-BUFFERS   H:--  ( --> ) INVALIDATE I/O BUFFERS
ERASE           H:IS  ( A N --> ) FILL MEMORY WITH ZEROES
ESC-[           H:--  ( --> ) EMIT ESC AND '['
EVEN            K:--  ( --> ) WORD-ALIGN H
EXECUTE         PM--  ( A --> ) EXECUTE WORD
EXIT            PM--  ( ; A --> ) RETURN FROM THREAD
FALSE           HC--  ( --> 0 ) LOGICAL FALSITY
FENCE           HV--  ( --> A ) TOP OF PROTECTED AREA
FILL            PM--  ( A N C --> ) FILL MEMORY REGION
FIND            K:-S  ( --> A|0 ) FIND WORD
FOR             HSI-  ( N --> ) INTRODUCE FOR-NEXT LOOP
FORGET          H:-S  ( --> ) DELETE WORDS FROM LEXICON
H               PV--  ( --> A ) BEGINNING OF HEAP
HALT            PM--  ( --> ) HALT THE HOST MACHINE
HELLO           PV--  ( --> A ) POINTER TO STARTUP ROUTINE
HERE            H:--  ( --> A ) BEGINNING OF HEAP
HIDDEN          HV--  ( --> A ) BEGINNING OF HIDDEN AREA
HIDE>           H:--  ( --> ) MARK BEGINNING OF HIDDEN AREA
HLD             HV--  ( --> A ) PTR TO NUMERIC CONVERSION BUFFER
HOLD            H:--  ( C --> ) INSERT CHARACTER INTO SCRATCH PAD
HOME            H:--  ( --> ) MOVE CURSOR TO TOP/LEFT CORNER
I               H:--  ( --> N ) DO-LOOP / FOR-NEXT INDEX
I'              H:--  ( --> N ) DO-LOOP LIMIT
I/O-DRIVER      KA--  ( --> A ) PTR TO CURRENT I/O DRIVER
IF              HSI-  ( F --> ) INTRODUCE CONDITIONAL BRANCH
IMMEDIATE       K:--  ( --> ) MARK WORD IMMEDIATE
INDEX           H:--  ( LO HI --> ) LIST BLOCK HEADINGS
INSERT          H:--  ( N --> ) INSERT BLANK LINE INTO BUF
INSERT-LINE     H:--  ( A N --> ) INSERT BLANK LINE
INTERPRET       K:-S  ( --> ) OUTER INTERPRETER
INVERT          PM--  ( N --> ~N ) BITWISE COMPLEMENT
IODESC          KV--  ( --> A ) PTR TO MOST RECENTLY USED BUFFER
IS              HD-S  ( A --> ) BACKPATCH DEFERRED DEFINITION
KEY             PM--  ( --> C ) RECEIVE CHARACTER FROM CONSOLE
L/BUF           HC--  ( --> 16 ) LINES PER BUFFER
LAST            KV--  ( --> A ) PTR TO LAST CREATED WORD
LEAVE           H:--  ( --> ) LEAVE DO-LOOP LOOP
LEXICON         PV--  ( --> A ) POINTER TO LEXICON
LINK            K:--  ( --> ) LINK ENTRY INTO LEXICON
LIST            H:--  ( N --> ) LIST BLOCK
LITERAL         H:I-  ( N --> ) COMPILE LITERAL NUMBER
LOAD            K:--  ( BLK --> ) LOAD AND INTERRET BLOCK
LOAD-BLOCK      K:--  ( BLK A --> ) LOAD BLOCK AT ADDRESS
LOADS           H:--  ( LO HI --> ) LOAD MULTIPLE BLOCKS
LOOKUP          PM--  ( A --> A|0 ) LOOK UP WORD IN LEXICON
LOOP            HSI-  ( --> ) DELIMIT DO LOOP
LSHIFT          PM--  ( N M --> N LSHIFT M ) BITWISE LEFT SHIFT
MARK            H:--  ( --> A ) CREATE MARK FOR BACKPATCHING
MAX             H:--  ( N --> N|M ) MAXIMUM OF TWO INTEGERS
MEMTOP          PV--  ( --> A ) END OF HEAP
MIN             H:--  ( N --> N|M ) MINIMUM OF TWO INTEGERS
MOD             H:--  ( N M --> N MOD M ) MODULUS
NEGATE          PM--  ( N --> -N ) NEGATE NUMBER
NEXT            HSI-  ( --> ) DELIMIT FOR FOR-NEXT LOOP
NIP             H:--  ( N M --> M ) REMOVE 2ND STACK MEMBER
NOT             PM--  ( N --> \N ) LOGICAL COMPLEMENT
OCTAL           H:--  ( --> ) SET NUMERIC BASE TO 8
ODUMP           H:--  ( A --> ) PRINT 4-WORD OCTAL DUMP
OR              PM--  ( N M --> N\/M ) BITWISE LOGICAL SUM
OTHERWISE       HSI-  ( --> ) INTRODUCE DEFAULT BRANCH OF DOCASE
OVER            PM--  ( N M --> N M N ) DUPLICATE 2ND MEMBER
P               H:--  ( --> ) PRINT RECENTLY LISTED BLOCK
PAD             H:--  ( --> A ) SCRATCH PAD ADDRESS
PAGE            H:--  ( --> ) CLEAR SCREEN
PRINT           H:--  ( N --> A ) PRINT LINE OF CURRENT BUFFER
QUERY           K:--  ( --> ) READ STRING FROM CONSOLE
QUIT            K:--  ( --> ) TOP LEVEL LOOP
R>              PM--  ( --> N ; N --> ) TRANSFER VALUE FROM RSTACK
R@              PM--  ( --> N ) COPY VALUE FROM RETURN STACK
RECURSE         H:I-  ( --> ) CALL CURRENTLY DEFINED WORD
REPEAT          HSI-  ( --> ) DELIMIT BEGIN-WHILE-REPEAT LOOP
REPLACE         H:--  ( N --> ) QUERY AND REPLACE LINE
RESOLVE         H:--  ( A --> ) RESOLVE (BACKPATCH) MARK
REST            H:--  ( N X --> N X M ) SIZE REST OF BUFFER
ROT             PM--  ( N M K --> M K N ) ROTATE STACK UP
RP!             PM--  ( A --> ) SET RETURN STACK POINTER
RP@             PM--  ( --> A ) GET RETURN STACK POINTER
RSHIFT          PM--  ( N M --> N RSHIFT M ) BITWISE RIGHT SHIFT
RUBOUT          K:--  ( --> ) REMOVE LAST CHARACTER FROM TIB
RX@             PM--  ( --> C ) RECEIVE CHAR FROM AUXILARY PORT
SAVE            H:--  ( A --> ) SAVE AND UNMARK BUFFER, A='[01]DESC
SAVE-BLOCK      K:--  ( BLK A --> ) SAVE BLOCK AT ADDRESS
SAVE-BUFFERS    H:--  ( --> ) SAVE AND UNMARK BUFFERS
SAVE-SYSTEM     H:--  ( --> ) REPLACE KERNEL
SE              H:--  ( --> ) TURN OFF STANDOUT MODE
SIGN            H:--  ( N M --> N M ) HOLD MINUS IF N NEGATIVE
SKIP            K:-S  ( C --> ) SKIP CHARACTERS IN INPUT STREAM
SO              H:--  ( --> ) TURN ON STANDOUT MODE
SOL             PM--  ( --> ) INITIALIZATION
SP!             PM--  ( A --> ) SET STACK POINTER
SP@             PM--  ( --> A ) GET STACK POINTER
SPACE           K:--  ( --> ) EMIT SPACE CHARACTER
SPACES          H:--  ( N --> ) EMIT SPACE CHARACTERS
SRC             KV--  ( --> A ) CURRENT INPUT BLOCK
STARTUP         H:--  ( --> ) STARTUP WORD
STATE           KV--  ( --> A ) COMPILER STATE
SWAP            PM--  ( N M --> M N ) SWAP TOP MEMBERS
THEN            HSI-  ( --> ) DELIMIT CONDITONAL BRANCH
TIB             KA--  ( --> A ) TERMINAL INPUT BUFFER
TRAP            K>--  ( --> ) TRAP VECTOR
TRUE            HC--  ( --> -1 ) LOGICAL TRUTH
TX!             PM--  ( C --> ) TRANSMIT CHAR TO AUXILARY PORT
TYPE            K:--  ( A N --> ) EMIT STRING
U*              PM--  ( U V --> U*V ) UNSIGNED PRODUCT
U.              H:--  ( U --> ) PRINT UNSIGNED NUMBER
U.R             H:--  ( U LEN --> ) PRINT UNSIGNED NUMBER W/PADDING
U/              H:--  ( U --> U/V ) UNSIGNED QUOTIENT
U/MOD           PM--  ( U V --> U/V U MOD V ) UNSIGNED DIV+MOD
U<              PM--  ( U V --> U<V ) 'UNSIGNED LESS' PREDICATE
U<=             PM--  ( U V --> U<=V ) 'UNSIGNED LESS/EQUAL' PREDICATE
U>              PM--  ( U V --> U>V ) 'UNSIGNED GREATER' PREDICATE
U>=             PM--  ( U V --> U>=V ) 'UNSIGNED GREATER/EQUAL' PRED.
U?              H:--  ( A --> ) PRINT UNSIGNED VALUE OF CELL
UMOD            H:--  ( U V --> U MOD V ) MODULUS
UNTIL           HSI-  ( F --> ) DELIMIT BEGIN-UNTIL LOOP
UPCASE          K:--  ( A --> ) CONVERT STRING TO UPPER CASE
UPDATE          H:--  ( --> ) MARK MOST RECENTLY USED BUFFER
USE-DESC        K:--  ( BLK [01]DESC --> A ) SET UP DESCRIPTOR
VARIABLE        HD-S  ( --> ) DEFINE VARIABLE
WCOMPILE        K:--  ( A --> ) FIND AND COMPILE WORD
WEXECUTE        K:--  ( A --> ) FIND AND EXECUTE WORD
WHAT?           K:--  ( A --> ) PRINT WORD AND ? AND THEN QUIT
WHILE           HSI-  ( F --> ) INTRODUCE WHILE LOOP BODY
WITHIN          K:--  ( LO HI VAL --> LO<=VAL<=HI ) RANGE CHECK
WORD            K:-S  ( C --> A ) EXTRACT WORD FROM INPUT STREAM
WORDS           H:--  ( --> ) PRINT LEXICON ENTRIES
[               K:I-  ( --> ) TURN OFF THE COMPILER
[']             H:IS  ( --> ) COMPILE ADDRESS OF WORD AS LITERAL
[BIN]           HSIS  ( --> N ) COMPILE BINARY LITERAL
[COMPILE]       H:IS  ( --> ) COMPILE IMMEDIATE WORD
[OCT]           HSIS  ( --> N ) COMPILE OCTAL LITERAL
\               H:IS  ( --> ) COMMENT TO END OF LINE
\D              H:-S  ( --> ) INTRODUCE DOCUMENTATION COMMENT
\S              H:-S  ( --> ) COMMENT TO END OF SCREEN
]               K:--  ( --> ) TURN ON THE COMPILER
