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
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