13 : TUCK \ ( x y -- y x y )
16 : PICK \ ( x_u ... x_1 x_0 u -- x_u ... x_1 x_0 x_u )
23 \ Standard words for manipulating BASE.
28 \ Translate a number of cells into memory units
29 \ (in our case 1 cell = 1 memory unit)
32 \ Since the smallest unit of memory in our system is 64 bits and since strings
33 \ are stored as arrays of 64 bit integers, the character store/fetch words are
34 \ just aliases of the standard store/fetch words.
39 \ Retrieve stack depth
42 \ Words for whitespace
49 : ' BL WORD FIND DROP ;
55 : [COMPILE] IMMEDIATE ' , ;
57 LIT LIT , ' , LIT , , ;
59 : LITERAL IMMEDIATE ['] LIT , , ;
67 \ Address containing LFA of most recent definition
71 \ Compile in recursive call to current word
73 LATEST @ \ LATEST points to the word being compiled at the moment
74 LINK> \ get the codeword