+ ;; 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
+
+ WORD p_process_args,'PROCESS-ARGS',fasm
+ pushr rsi
+ mov rax,qword [p_args_DFA] ; args*
+ mov rbx,qword [rax] ; count
+ shl rbx,3
+ add rax,8
+ add rbx,rax ; end
+ mov qword [p_process_args_end],rbx
+ add rax,8
+ mov qword [p_process_args_ptr],rax
+p_process_args_loop:
+ mov rax,qword [p_process_args_ptr]
+ cmp rax,qword [p_process_args_end]
+ jge p_process_args_done
+ add qword [p_process_args_ptr],8
+ mov rax,qword [rax]
+ mov bl,[rax]
+ cmp bl,'-'
+ je p_process_args_loop
+ push rax
+ push rax
+ FORTH
+ dq p_strlen, p_load_file
+ BRANCH 0, p_quit_ERROR
+ ENDFORTH
+ jmp p_process_args_loop
+p_process_args_done:
+ popr rsi
+ next
+