+
+ WORD p_args,'MAIN-ARGS',dovalue
+ ;; Pointer to initial argument block
+ dq 0 ; *(int argc,(char*[argc]) argv)
+
+ WORD p_verboseQ,'VERBOSE?',dovariable
+ ;; Flags whether the running is in verbose mode ot not
+ dq 0 ;
+
+ WORD p_lparen,'(',fasm,IMMEDIATE
+ pushr rsi
+p_lparen_loop:
+ DOFORTH p_input, p_get, p_read_word
+ pop rax
+ pop rbx
+ cmp rax,0 ; end of stream
+ je p_lparen_exit
+ cmp rax,1
+ jne p_lparen_loop
+ push rbx
+ push p_lparen_rparen
+ push 1
+ DOFORTH p_strncmp
+ pop rax
+ cmp rax,0
+ jne p_lparen_loop
+p_lparen_exit:
+ popr rsi
+ next
+p_lparen_rparen: db ')',0
+
+;;; ******** The main entry point. ********
+;;; This could be set up as a WORD but it isn't
+
+main:
+ ;; 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
+
+ ;; Subroutine to check the command line for a "-v"
+ ;; return boolean in rdx
+ ;; implementation for that 2 byte asciiz string
+main_is_verbose_data:
+ db '-v',0
+
+main_is_verbose:
+ mov rbx,qword [p_args_DFA] ; Pointer to main arguments
+ mov r8,qword [rbx] ; r8 = count of pointers
+ xor rdx,rdx
+ cld
+main_is_verbose_next:
+ dec r8
+ jl main_is_not_verbose
+ add rbx,8
+ mov rsi,qword [rbx]
+ mov rdi,main_is_verbose_data
+main_is_verbose_loop:
+ cmpsb
+ jne main_is_verbose_next
+ cmp byte[rsi-1],0
+ jne main_is_verbose_loop
+ not rdx
+main_is_not_verbose:
+ ret
+
+ WORD p_process_args_var,'PROCESS-ARGS-VAR',dovariable
+ ;; ( -- a )
+ ;; Two cells for iterating and load the main args
+p_process_args_ptr: dq 0
+p_process_args_end: dq 0