X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=rrqforth.asm;h=0a3f80198aa5e39f5b6a3afcfb2f35e473131cd7;hb=26b4e4c3601c02bb543b224a9bff136f551cc8fd;hp=96b90837b5843ff0c3ee817b00c5d410e235144d;hpb=4738ba3eabef30343223098bd81ee6ff80fbbafc;p=rrq%2Frrqforth.git

diff --git a/rrqforth.asm b/rrqforth.asm
index 96b9083..0a3f801 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -190,7 +190,7 @@ p_lparen_loop:
 	cmp rax,1
 	jne p_lparen_loop
 	push rbx
-	push p_lbaren_rparen
+	push p_lparen_rparen
 	push 1
 	DOFORTH p_strncmp
 	pop rax
@@ -199,7 +199,7 @@ p_lparen_loop:
 p_lparen_exit:
 	popr rsi
 	next
-p_lbaren_rparen: db ')',0
+p_lparen_rparen: db ')',0
 
 ;;; ******** The main entry point. ********
 ;;; This could be set up as a WORD but it isn't
@@ -240,6 +240,39 @@ main_is_verbose_loop:
 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
+	DOFORTH p_strlen, p_load_file, p_drop
+	jmp p_process_args_loop
+p_process_args_done:
+	popr rsi
+	next
+	
 ;;; This word is also the last word before syscalls
 last_forth_word:
 	WORD p_quit,'QUIT',fasm
@@ -253,6 +286,7 @@ last_forth_word:
 	push 10000
 	DOFORTH p_stream
 	pop qword [p_stdin_DFA]	; Assign STDIN
+	DOFORTH p_process_args
 
 p_quit_INITIALIZED:
 	;; Setup INPUT from STDIN