projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
started compiler words
[rrq/rrqforth.git]
/
rrqforth.asm
diff --git
a/rrqforth.asm
b/rrqforth.asm
index ba41cbe39021df277ccc6e3343ece77f2cb8e188..16dc7d6ddba4d651702868d72ea62f264464c286 100644
(file)
--- a/
rrqforth.asm
+++ b/
rrqforth.asm
@@
-119,6
+119,7
@@
include 'memory.asm'
include 'stack.asm'
include 'math.asm'
include 'stdio.asm'
include 'stack.asm'
include 'math.asm'
include 'stdio.asm'
+include 'compile.asm'
WORD p_program_version,'PROGRAM_VERSION',dostring
STRING 'RRQ Forth version 0.1 - 2021-05-13',10
WORD p_program_version,'PROGRAM_VERSION',dostring
STRING 'RRQ Forth version 0.1 - 2021-05-13',10
@@
-142,12
+143,17
@@
main:
pop qword [p_stdin_DFA]
;; Initial blurb
pop qword [p_stdin_DFA]
;; Initial blurb
- push qword 1 ; stdout
- DOFORTH p_program_version ; version string => ( s n )
- DOFORTH sys_write ; printout
- pop rax ; ignore errors
-
- DOFORTH p_words
+ FORTH
+ dq p_program_version
+ dq p_tell
+ dq p_stdin
+ dq p_read_word
+ dq p_tell
+ dq p_nl
+ dq p_emit
+ ENDFORTH
+
+ ;; DOFORTH p_words
push 0
DOFORTH sys_exit
push 0
DOFORTH sys_exit
@@
-160,3
+166,6
@@
include 'syscalls.asm'
last_word:
heap_start:
last_word:
heap_start:
+ rb 1048576 ; +1 Mb heap
+ rb 1048576 ; +1 Mb heap
+ rb 1048576 ; +1 Mb heap