+;; Mark the last added word as immediate.
+forth IMMEDIATE, 'IMMEDIATE', 1
+ dq LIT, 1
+ dq LATEST, GET
+ dq LIT, 8, PLUS
+ dq PUT_BYTE
+ dq EXIT
+
+;; Given the address of a word, return 0 if the given word is not immediate.
+forth IS_IMMEDIATE, 'IMMEDIATE?'
+ dq LIT, 8, PLUS
+ dq GET_BYTE
+ dq EXIT
+
+;; Enter immediate mode, immediately
+forth INTO_IMMEDIATE, '[', 1
+ dq LIT, 0, STATE, PUT_BYTE
+ dq EXIT
+
+;; Enter compilation mode
+forth OUTOF_IMMEDIATE, ']'
+ dq LIT, 1, STATE, PUT_BYTE
+ dq EXIT
+