( USE OF ASSEMBLER )                                            : END-CODE                                                          CURRENT @ CONTEXT ! ?EXEC ?CSP SMUDGE ; IMMEDIATE                                                                           FORTH DEFINITIONS DECIMAL                                       : CODE                                                              ?EXEC CREATE [COMPILE] ASSEMBLER                                ASSEMBLER MEM !CSP ;      IMMEDIATE                                                                                         ( LOCK ASSEMBLER INTO SYSTEM )                                  ' ASSEMBLER CFA    '  ;CODE  8 + !                              LATEST  12  +ORIGIN !                                           HERE    28  +ORIGIN !                                           HERE    30  +ORIGIN !                                           '  ASSEMBLER  6 + 32 +ORIGIN !                                  HERE FENCE !                                                    