-;; vim: syntax=fasm
-
-;; We need some basic words to be available before we can implement the actual
-;; interpreter. For this reason we need to write some words in assembly, even
-;; though they depend only on other Forth words. Such words are defined in this
-;; file.
+;; We need some basic words to be available before we can implement
+;; the actual interpreter. For this reason we need to write some words
+;; in assembly, even though they depend only on other Forth words.
+;; Such words are defined in this file.
-;; With these words, we can finally defined INTERPRET, and from there we'll load
-;; everything else from an external file.
+;; With these words, we can finally defined INTERPRET, and from there
+;; we'll load everything else from an external file.
macro forth label, name, immediate {
header label, name, immediate
dq DOCOL
}
forth COMMA, ','
macro forth label, name, immediate {
header label, name, immediate
dq DOCOL
}
forth COMMA, ','
- dq HERE, GET, PUT ; Set the memory at the address pointed to by HERE
- dq HERE, GET, LIT, 8, PLUS ; Calculate new address for HERE to point to
- dq HERE, PUT ; Update HERE to point to the new address
+ dq HERE, GET, PUT ; Set the memory at the address pointed to by HERE
+ dq HERE, GET, LIT, 8, PLUS ; Calculate new address for HERE to point to
+ dq HERE, PUT ; Update HERE to point to the new address
dq LIT, 1, STATE, PUT_BYTE
dq EXIT
dq LIT, 1, STATE, PUT_BYTE
dq EXIT
-;; INTERPRET-WORD expects a word as a (buffer, length) pair on the stack. It
-;; interprets and executes the word. It's behavior depends on the current STATE.
-;; It provides special handling for integers.
+;; INTERPRET-WORD expects a word as a (buffer, length) pair on the
+;; stack. It interprets and executes the word. It's behavior depends
+;; on the current STATE. It provides special handling for integers.
forth INTERPRET_WORD, 'INTERPRET-WORD'
dq PAIRDUP
;; Stack is (word length word length).
forth INTERPRET_WORD, 'INTERPRET-WORD'
dq PAIRDUP
;; Stack is (word length word length).
- dq STATE, GET, ZBRANCH, 8 * 11 ; Check whether we are in compilation or immediate mode
+ dq STATE, GET, ZBRANCH, 8 * 11 ; Check whether we are in compilation
+ ; or immediate mode
- dq DUP_, IS_IMMEDIATE, NOT_, ZBRANCH, 8 * 6 ; If the word is immediate, continue as we would in immediate mode
+ dq DUP_, IS_IMMEDIATE, NOT_, ZBRANCH, 8 * 6 ; If the word is
+ ; immediate, continue as we would in
+ ; immediate mode
- dq STATE, GET, ZBRANCH, 8 * 5 ; Check whether we are in compilation or immediate mode
+ dq STATE, GET, ZBRANCH, 8 * 5 ; Check whether we are in compilation
+ ; or immediate mode
-;; INTERPRET_STRING is a variant of INTERPRET that reads from a string instead
-;; of from the user. It takes a string as a (buffer, length) pair on the stack
-;; and interprets the entire string, even if the string has more than one word.
+;; INTERPRET_STRING is a variant of INTERPRET that reads from a string
+;; instead of from the user. It takes a string as a (buffer, length)
+;; pair on the stack and interprets the entire string, even if the
+;; string has more than one word.
forth INTERPRET_STRING, 'INTERPRET-STRING'
dq INPUT_LENGTH, PUT
dq INPUT_BUFFER, PUT
;; Check if the buffer is-non-empty
forth INTERPRET_STRING, 'INTERPRET-STRING'
dq INPUT_LENGTH, PUT
dq INPUT_BUFFER, PUT
;; Check if the buffer is-non-empty