pushpname rax
next
- WORD p_calltrace,'calltrace',dovalue
+ WORD p_calltrace,'[calltrace]',dovalue
;; Common call point for debugging
;; rax = cfa of called word
;; rsi = cell* of next forth word
;segment readable executable
+include 'signals.asm'
+
;;; At fasm compilation: reset previous_word to make a new word list
;;; Words above belong to the SYSTEM wordlist, and the following
;;; belong to the FORTH wordlist.
include 'math.asm'
include 'logic.asm'
include 'stdio.asm'
+include 'temp.asm'
include 'compile.asm'
WORD p_program_version,'PROGRAM_VERSION',dostring
WORD p_lparen,'(',fasm,IMMEDIATE
pushr rsi
p_lparen_loop:
- DOFORTH p_stdin, p_read_word
+ DOFORTH p_input, p_get, p_read_word
pop rax
pop rbx
cmp rax,0 ; end of stream
cmp rax,1
jne p_lparen_loop
push rbx
- push qword ')'
+ push p_lbaren_rparen
push 1
DOFORTH p_strncmp
pop rax
p_lparen_exit:
popr rsi
next
-
+p_lbaren_rparen: db ')',0
+
;;; ******** The main entry point. ********
;;; This could be set up as a WORD but it isn't
;; Initial rsp points to the arguments block of size (64 bits)
;; followed by the argument pointers.
mov qword [p_args_DFA],rsp
+ mov rbp,RS_TOP
+ call p_setup_signals_DFA
call main_is_verbose
mov qword [p_verboseQ_DFA],rdx
jmp p_quit_DFA ; QUIT
last_forth_word:
WORD p_quit,'QUIT',fasm
;; QUIT is the program entry point ********************
-
mov rsp,DS_TOP
mov rbp,RS_TOP
cmp qword [p_stdin_DFA],0
pop qword [p_stdin_DFA] ; Assign STDIN
p_quit_INITIALIZED:
- ;; Initial blurb
+ ;; Setup INPUT from STDIN
FORTH
dq p_verboseQ
dq p_get
dq p_program_version
dq p_tell
p_quit_EVAL:
- dq p_stdin
- dq p_evaluate_stream
+ dq p_stdin, p_evaluate_stream
BRANCH 0,p_quit_ERROR
dq p_false
dq sys_exit
dq p_tell
ENDFORTH
mov rbp,RS_TOP ; reset the return stack
- jmp main
+ jmp p_quit_INITIALIZED
;;; ========================================