From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 18 May 2021 01:29:18 +0000 (+1000)
Subject: renaming
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;ds=sidebyside;h=f3bc3b97f37dd7bc012c152374d4185c734b3a7e;p=rrq%2Frrqforth.git

renaming
---

diff --git a/Makefile b/Makefile
index 2a4d3bb..ffb97c7 100644
--- a/Makefile
+++ b/Makefile
@@ -1,24 +1,10 @@
-BINARY = rrqforth
+INCS := $(shell grep ^include rrqforth.asm | tr -d "'" | sed 's/include//' )
+SRCS = rrqforth.asm $(INCS)
 
-default: X
-
-VFMT := "RRQ Forth version %h at %aI"
-VERSION := $(shell git log -1 --pretty=format:'$(VFMT)' main.fasm)
-
-main.fasm: machine.fasm readline.fasm syscalls.fasm
-
-version: main.fasm
-	@echo "db '$(VERSION)'\ndb 10" > $@
-
-rrqforth: main.fasm | 
-	fasm $^ $@
+# compile into 3 things: binary, symbolic information and debug support
+rrqforth: rrqforth.asm
+	fasm $^ -s $< > $@.fas
 	chmod a+x $@
-
-rrqforth.fas: main.fasm rrqforth
-	fasm $< -s $@
-
-X: rrqforth.fas
-	./symbols.lsp $< > $@
-
+	./symbols.lsp $@.fas > $@.dbg
 clean:
-	rm -f version rrqforth rrqforth.fas
+	rm -f rrqforth{,.fas,.dbg}
diff --git a/fas2txt.lsp b/fas2txt.lsp
new file mode 100755
index 0000000..98f4c41
--- /dev/null
+++ b/fas2txt.lsp
@@ -0,0 +1,118 @@
+#!/usr/bin/newlisp
+#
+# Print an assembly listing for ELF targets associating binary address
+# with source lines.
+
+(signal 2 exit) ; exit on Ctrl-C
+
+; Format a byte or list of bytes into a hex string
+(define (hex L)
+  (if (list? L) (string "0x" (join (map (curry format "%02x") L)))
+    ; else
+    (hex (list L))))
+
+; Helper function to "copy out" a NUL terminated string from the
+; beginning of a memblock. (only an issue with utf8-enabled newlisp)
+(define (asciiz X) (get-string (address X)))
+
+; Helper function to set and print a variable
+(define (print-assign X Y) (set X (println X " = " Y)))
+
+; Helper "macro" to set variables and print their assignments
+(define-macro (setf-print)
+  (map (fn (P) (print-assign (P 0) (eval (P 1)))) (explode (args) 2)))
+
+; Load the .fas file here; named last on the command line
+(setf FAS (read-file (main-args -1)))
+
+(setf-print
+ SIGNATURE (hex (reverse (unpack (dup "b" 4) FAS)))
+ VERSION (unpack "bb" (4 FAS))
+ HEADER-LENGTH ((unpack "u" (6 FAS)) 0)
+ INFILEP ((unpack "lu" (8 FAS)) 0)
+ OUTFILEP ((unpack "lu" (12 FAS)) 0)
+ STRINGS-TABLE-OFFSET ((unpack "lu" (16 FAS)) 0)
+ STRINGS-TABLE-LENGTH ((unpack "lu" (20 FAS)) 0)
+ SYMBOLS-TABLE-OFFSET ((unpack "lu" (24 FAS)) 0)
+ SYMBOLS-TABLE-LENGTH ((unpack "lu" (28 FAS)) 0)
+ PREPROCESSED-OFFSET ((unpack "lu" (32 FAS)) 0)
+ PREPROCESSED-LENGTH ((unpack "lu" (36 FAS)) 0)
+ ASSEMBLY-DUMP-OFFSET ((unpack "lu" (40 FAS)) 0)
+ ASSEMBLY-DUMP-LENGTH ((unpack "lu" (44 FAS)) 0)
+ SECTION-TABLE-OFFSET ((unpack "lu" (48 FAS)) 0)
+ SECTION-TABLE-LENGTH ((unpack "lu" (52 FAS)) 0)
+ SYMBOL-REFERENCES-DUMP-OFFSET ((unpack "lu" (56 FAS)) 0)
+ SYMBOL-REFERENCES-DUMP-LENGTH ((unpack "lu" (60 FAS)) 0)
+ )
+
+(setf
+ STRINGS (STRINGS-TABLE-OFFSET STRINGS-TABLE-LENGTH FAS)
+ _ (println STRINGS)
+ PREP (PREPROCESSED-OFFSET PREPROCESSED-LENGTH FAS)
+ )
+
+(setf-print
+ MAIN-FILE (asciiz (INFILEP STRINGS))
+ )
+
+; Hash tables for filename->content and macroid->firstline
+(define FILES:FILES nil)   ; for captured file content
+(define MACROS:MACROS nil) ; for captured first-appearance-line of macros
+
+; Get/cache content of file
+(define (get-file NAME)
+  (or (FILES NAME) (FILES NAME (read-file NAME))))
+
+; Check if N is the first-appearence-line in macro ID
+; (capture N for the very first appearance of ID)
+(define (macro-start ID N)
+  (if (MACROS ID) (= (MACROS ID) N) (MACROS ID N)))
+
+; The file name for prep entry index i (with 0 = main file)
+(define (source-file i)
+  (if (= i) MAIN-FILE (asciiz (i PREP))))
+
+; Extract and format the file line with line number LN that is at at
+; position i of file FILE.
+(define (get-line i FILE LN)
+  (letn ((DATA (get-file FILE))
+         (END (find "\n" DATA nil i))
+         (R (i (- END i) DATA)) )
+    (format "%s:%-5d %s" FILE LN R)))
+
+; Format a "macro" prep entry by prepending an informative line for
+; the first-appearance-line.
+(define (resolve-macro AT PL)
+  (if (macro-start (PL 2) (PL 1))
+      (string (PREP-SOURCE-LINE "--------" (PL 2)) "\n"
+              (PREP-SOURCE-LINE AT (PL 3)))
+    ; else
+    (PREP-SOURCE-LINE AT (PL 3))))
+
+; Format output for "address" AT and prep line PL (unpacked)
+(define (prep-source AT PL)
+  (if (!= (& 0x80000000 (PL 1))) (resolve-macro AT PL)
+    ; else
+    (string AT " " (get-line (PL 2) (source-file (PL 0)) (PL 1)))))
+
+; Format output for "address" AT and prep line at P (index)
+(define (PREP-SOURCE-LINE AT P)
+  (prep-source AT (unpack "lu lu lu lu" (P PREP))))
+
+; Format output for assembly line L (memblock)
+(define (ASSEMBLY-LINE L)
+  (let ((AL (unpack "lu lu lu lu lu b b b b" (or L ""))))
+    (PREP-SOURCE-LINE (hex (AL 2)) (AL 1))
+    ))
+
+; divide memblock D into memblocks of size N
+(define (frag N D)
+  (unpack (dup (string "s" N " ") (/ (length D) N)) D))
+
+#### Main action(s) start here
+
+(map println
+     (map ASSEMBLY-LINE
+          (frag 28 (ASSEMBLY-DUMP-OFFSET ASSEMBLY-DUMP-LENGTH FAS))))
+
+(exit 0)
diff --git a/machine.asm b/machine.asm
new file mode 100644
index 0000000..ddfb971
--- /dev/null
+++ b/machine.asm
@@ -0,0 +1,47 @@
+;;; This file define/describes the "machine"
+;;;
+;;; Abstract Machine:
+;;; https://en.wikibooks.org/wiki/X86_Assembly/X86_Architecture
+;;; 
+;;; General Purpose Registers ( * marks those used in syscalls )
+;;;  *rax = ( -, eax = ( -, ax = ( ah, al) )) "accumulator"
+;;;   rbx = ( -, ebx = ( -, bx = ( bh, bl) )) "base"
+;;;  *rcx = ( -, ecx = ( -, cx = ( ch, cl) )) "counter"
+;;;  *rdx = ( -, edx = ( -, dx = ( dh, dl) )) "data"
+;;;   rsp = ( -, esp = ( -, sp = ( -, spl) )) "stack pointer"
+;;;   rbp = ( -, ebp = ( -, bp = ( -, bpl) )) "stack base pointer"
+;;;  *rsi = ( -, esi = ( -, si = ( -, sil) )) "source"
+;;;  *rdi = ( -, edi = ( -, di = ( -, dil) )) "destination"
+;;;  *r8
+;;;  *r9
+;;;   r10
+;;;  *r11
+;;;   r12
+;;;   r13
+;;;   r14
+;;;   r15
+;;; clobbers rdi rsi rdx rcx r8 r9 r11
+;;; rax = syscall id
+;;;
+;;; Segment Registers
+;;;   SS "Stack Segment"
+;;;   CS "Code Segment"
+;;;   DS "Data Segment"
+;;;   ES "Extra Segment"
+;;;   FS "more Extra Segment"
+;;;   GS "more more Extra Segment"
+;;;
+;;; EFLAGS Register
+;;;   0,0,0,0,0,0,0,0,0,0,ID,VIP,VIF,AC,VM,RF,
+;;;   0,NT,[IOPL,IOPL],OF,DF,IF,TF,SF,ZF,0,AF,0,PF,1,CF
+;;; 
+;;; Instruction pointer
+;;;   EIP
+;;; 
+;;; Syscall allocations
+;;; clobbers rdi rsi rdx rcx r8 r9 r11
+;;; rax = syscall id
+;;;
+;;; function calling
+
+
diff --git a/machine.fasm b/machine.fasm
deleted file mode 100644
index ddfb971..0000000
--- a/machine.fasm
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; This file define/describes the "machine"
-;;;
-;;; Abstract Machine:
-;;; https://en.wikibooks.org/wiki/X86_Assembly/X86_Architecture
-;;; 
-;;; General Purpose Registers ( * marks those used in syscalls )
-;;;  *rax = ( -, eax = ( -, ax = ( ah, al) )) "accumulator"
-;;;   rbx = ( -, ebx = ( -, bx = ( bh, bl) )) "base"
-;;;  *rcx = ( -, ecx = ( -, cx = ( ch, cl) )) "counter"
-;;;  *rdx = ( -, edx = ( -, dx = ( dh, dl) )) "data"
-;;;   rsp = ( -, esp = ( -, sp = ( -, spl) )) "stack pointer"
-;;;   rbp = ( -, ebp = ( -, bp = ( -, bpl) )) "stack base pointer"
-;;;  *rsi = ( -, esi = ( -, si = ( -, sil) )) "source"
-;;;  *rdi = ( -, edi = ( -, di = ( -, dil) )) "destination"
-;;;  *r8
-;;;  *r9
-;;;   r10
-;;;  *r11
-;;;   r12
-;;;   r13
-;;;   r14
-;;;   r15
-;;; clobbers rdi rsi rdx rcx r8 r9 r11
-;;; rax = syscall id
-;;;
-;;; Segment Registers
-;;;   SS "Stack Segment"
-;;;   CS "Code Segment"
-;;;   DS "Data Segment"
-;;;   ES "Extra Segment"
-;;;   FS "more Extra Segment"
-;;;   GS "more more Extra Segment"
-;;;
-;;; EFLAGS Register
-;;;   0,0,0,0,0,0,0,0,0,0,ID,VIP,VIF,AC,VM,RF,
-;;;   0,NT,[IOPL,IOPL],OF,DF,IF,TF,SF,ZF,0,AF,0,PF,1,CF
-;;; 
-;;; Instruction pointer
-;;;   EIP
-;;; 
-;;; Syscall allocations
-;;; clobbers rdi rsi rdx rcx r8 r9 r11
-;;; rax = syscall id
-;;;
-;;; function calling
-
-
diff --git a/main.fasm b/main.fasm
deleted file mode 100644
index f06c158..0000000
--- a/main.fasm
+++ /dev/null
@@ -1,220 +0,0 @@
-; This is a forth interpreter for x86_64 (elf64)
-	format elf64 executable
-	entry main
-
-;;; ========================================
-;;; The pushr macro pushes x onto the return stack
-;;; The popr macro pops x from the return stack
-macro pushr x {
-	sub rbp, 8
-	mov [rbp], x
-}
-
-macro popr x {
-	mov x, [rbp]
-	add rbp, 8
-}
-
-;;; ========================================
-;;; The next macro "moves" execution to the next FORTH instruction,
-;;; using rsi as instruction pointer. It points to the doer field of a
-;;; word, which points to the assembly code that implements the
-;;; execution effect of the word. That doer code is entered with rsi
-;;; referring to the subsequent address in the colling word, and rax
-;;; referring to the doer field of the called word.
-
-macro next {
-	lodsq			; mov rax, [rsi] + add rsi,8
-	jmp qword [rax]		; goto code of that FORTH word (64 bit jump)
-}
-
-;;; ========================================
-;;; The FORTH macro transitions to inline FORTH execution.
-macro FORTH {
-	local forthcode
-	mov rsi,forthcode
-	next
-	;; align 8
-forthcode:
-}
-
-;;; ========================================
-;;; The ENDFORTH macro transitions back to inline assembler after FORTH
-;;; ========================================
-macro ENDFORTH {
-	dq inline_code
-}
-
-;;; ========================================
-;;; The DOFORTH lays out a single FORTH call
-;;; ========================================
-macro DOFORTH label {
-	FORTH
-	dq label
-	ENDFORTH
-}
-
-;;; Macro WORD starts a FORTH word definition in this code
-;;; 
-	previous_word = 0	; Used for chaining the words
-
-	IMMEDIATE = 1		; optional flag
-
-macro WORD label, name, doer, flags {
-	;; align 8
-label#_TFA:
-	;; TFA
-	dq previous_word
-	previous_word = label#_TFA
-	;; PFA
-label#_PFA:
-	db flags + 0
-	db label - $ - 2
-	db name
-	db 0
-	;; align 8
-
-label#_OFF:
-	dq 0			; The DOES offset. Defaults to 0.
-	;; also CFA = pointer to "doer"
-label:
-	if doer eq
-	    dq doforth
-	else
-	    if doer in <fasm>
-	        dq label#_DFA
-	    else
-	        dq doer
-	    end if
-	end if
-	;; DFA
-label#_DFA:
-}
-
-;;; ============================================================
-;;; FORTH machine model
-;;; rsp = data stack pointer
-;;; rbp = return stack pointer
-;;; rsi = instruction pointer
-
-;;; ============================================================
-
-	segment readable writable executable
-
-	WORD return_stack,'RS',dovariable
-	;; The return stack
-	rb 1048576		; 1 Mb return stack
-RS_TOP:				; The initial rbp
-	
-	WORD data_stack,'DS',dovariable
-	;; The data stack
-	rb 1048576		; 1 Mb data stack
-DS_TOP:				; The initial rsp
-
-	WORD inline_code,'[ASM]',fasm
-	;; ( -- )
-	;; This transitions execution into inline assembler in the
-	;; calling word defintion. Note that it stops advancing rsi;
-	;; code should use FORTH macro to reenter forth execution, or
-	;; exit to the calling definition via "jmp exit".
-	jmp qword rsi
-
-;;; Execution semantics for FORTH defition word
-;;; At entry, rsi points into the calling definition, at the cell
-;;; following the cell indicating this word, rax points to the CFA of
-;;; this word.
-doforth:
-	pushr rsi
-	lea rsi, [rax+8] 	; rsi = the DFA of the rax word
-	next
-
-	WORD p_exit, 'EXIT',fasm
-	;; ( -- ) ( R: addr -- )
-	;; Returns execution to the calling definition as per the
-	;; return stack.
-exit:
-	popr rsi
-	next
-
-	;; Execution semantics for a variable ( -- addr )
-	;; rax points to doer field
-dovariable:
-	push rax+16
-	next
-
-	;; Execution semantics for a constant ( -- v )
-	;; rax points to doer field
-dovalue:
-	push qword [rax+16]
-	next
-
-	;; Execution semantics for a string constant ( -- addr n )
-	;; rax points to doer field
-dostring:
-	add rax,16
-	mov bl,[rax]
-	mov byte [rsp],bl
-	push rax+1
-	next
-
-include 'wordlists.fasm'
-include 'syscalls.fasm'
-include 'memory.fasm'
-include 'stack.fasm'
-include 'math.fasm'
-include 'stdio.fasm'
-
-	WORD p_program_version,'PROGRAM_VERSION',dostring
-	db length
-program_version_string:	
-	db 'RRQ Forth version 0.1 - 2021-05-13',10
-	length = $ - program_version_string
-
-	WORD p_stdin,'STDIN',dovalue
-	;; Initialised to hold a STREAM for fd 0
-	dq 0
-	
-	WORD p_quit,'QUIT',fasm
-	;; QUIT is the program entry point ********************
-main:
-	mov rsp,DS_TOP
-	mov rbp,RS_TOP
-	;; Initialize STREAM STDIN
-	push 0
-	push 10000
-	DOFORTH p_stream
-	pop qword [p_stdin_DFA]
-
-	;; read a word
-	push qword 1		; ( fd ) =stdout
-	push qword [p_stdin_DFA]
-	FORTH
-	dq p_read_word		; ( fd s n )
-	dq sys_write
-	ENDFORTH
-
-	push qword 1			; stdout
-	push qword program_version_string ; address of string
-	push qword length 		; length of string (cheating)
-	DOFORTH sys_write		; printout
-	pop rax				; ignore errors
-	
-	push 0
-	DOFORTH sys_exit
-
-	;; TERMINATE0 terminates the program with code 0
-	;; ( v -- )
-	WORD terminate, 'TERMINATE',fasm
-	pop rdx
-terminate_special:
-	mov eax,60
-	syscall
-
-last_word:
-	;; FORTH is the last word of VOCABULARY FORTH
-	WORD forth,'FORTH',dovalue
-	dq forth_TFA
-	dq 0
-
-	
-heap_start:
diff --git a/math.asm b/math.asm
new file mode 100644
index 0000000..d25d14c
--- /dev/null
+++ b/math.asm
@@ -0,0 +1,59 @@
+;;; Words doing arithmetics
+	
+	WORD p_plus, '+',fasm
+	;; ( n1 n2 -- n3 )
+	;; n3 is the sum of n1 and n2
+	pop rax
+	add [rsp],rax
+	next
+
+	WORD p_minus, '-',fasm
+	;; ( n1 n2 -- n3 )
+	;; n3 is the result of subtracting n2 from n1
+	pop rax
+	sub [rsp], rax
+	next
+
+	WORD p_mult, '*',fasm
+	;; ( n1 n2 -- n3 )
+	;; Multiply n1 by n2 giving the product n3.
+	;; [rsp{8}] * [rsp+8{8}]
+	;; dd00 = [rsp+4{4}]*[rsp+12{4}] ignored
+	;; needs checking !!
+	;; 
+	;; 0cc0 = [rsp{4}]*[rsp+12{4}]
+	mov eax, dword [rsp]
+	imul dword [rsp+12]
+	mov ebx,eax
+	;; 0bb0 = [rsp+4{4}]*[rsp+8{4}]
+	mov eax, dword [rsp+4]
+	imul dword [rsp+8]
+	add ebx, eax
+	;; 00aa = [rsp{4}]*[rsp+8{4}]
+	mov eax, dword [rsp]
+	imul dword [rsp+8]
+	add ebx, edx
+	shl rbx,32
+	mov eax,eax		; ensure zero-extending eax
+	add rax, rbx
+	push rax
+	next
+
+	WORD p_abs, 'ABS',fasm
+	;; ( n -- u )
+	;; u is the absolute value of n.
+	cmp qword [rsp],0
+	jge p_abs_end
+	neg qword [rsp]
+p_abs_end:
+	next
+
+	WORD p_negate, 'NEGATE',fasm
+	;; ( n1 -- n2 )
+	;; Negate n1, giving its arithmetic inverse n2. 
+	xor rax,rax
+	sub rax,qword [rsp]
+	mov qword [rsp],rax
+	next
+
+	
diff --git a/math.fasm b/math.fasm
deleted file mode 100644
index d25d14c..0000000
--- a/math.fasm
+++ /dev/null
@@ -1,59 +0,0 @@
-;;; Words doing arithmetics
-	
-	WORD p_plus, '+',fasm
-	;; ( n1 n2 -- n3 )
-	;; n3 is the sum of n1 and n2
-	pop rax
-	add [rsp],rax
-	next
-
-	WORD p_minus, '-',fasm
-	;; ( n1 n2 -- n3 )
-	;; n3 is the result of subtracting n2 from n1
-	pop rax
-	sub [rsp], rax
-	next
-
-	WORD p_mult, '*',fasm
-	;; ( n1 n2 -- n3 )
-	;; Multiply n1 by n2 giving the product n3.
-	;; [rsp{8}] * [rsp+8{8}]
-	;; dd00 = [rsp+4{4}]*[rsp+12{4}] ignored
-	;; needs checking !!
-	;; 
-	;; 0cc0 = [rsp{4}]*[rsp+12{4}]
-	mov eax, dword [rsp]
-	imul dword [rsp+12]
-	mov ebx,eax
-	;; 0bb0 = [rsp+4{4}]*[rsp+8{4}]
-	mov eax, dword [rsp+4]
-	imul dword [rsp+8]
-	add ebx, eax
-	;; 00aa = [rsp{4}]*[rsp+8{4}]
-	mov eax, dword [rsp]
-	imul dword [rsp+8]
-	add ebx, edx
-	shl rbx,32
-	mov eax,eax		; ensure zero-extending eax
-	add rax, rbx
-	push rax
-	next
-
-	WORD p_abs, 'ABS',fasm
-	;; ( n -- u )
-	;; u is the absolute value of n.
-	cmp qword [rsp],0
-	jge p_abs_end
-	neg qword [rsp]
-p_abs_end:
-	next
-
-	WORD p_negate, 'NEGATE',fasm
-	;; ( n1 -- n2 )
-	;; Negate n1, giving its arithmetic inverse n2. 
-	xor rax,rax
-	sub rax,qword [rsp]
-	mov qword [rsp],rax
-	next
-
-	
diff --git a/memory.asm b/memory.asm
new file mode 100644
index 0000000..8a7ec6e
--- /dev/null
+++ b/memory.asm
@@ -0,0 +1,109 @@
+;;; This file defines "memory access words"
+
+	WORD p_get, '@',fasm
+	;; ( addr -- v )
+	;; Load value v from address addr
+	pop rax
+	push qword [rax]
+	next
+
+	WORD p_put, '!',fasm
+	;; ( v addr -- )
+	;; Store value v at address addr.
+	pop rax
+	pop rbx
+	mov qword [rax], rbx
+	next
+
+	WORD p_Cget, 'C@',fasm
+	;; ( addr -- v )
+	;; Load the (unsigned) byte v from address addr.
+	pop rax
+	mov bl,[rax]
+	push 0
+	mov [rsp],bl
+	next
+	
+	WORD p_Cput, 'C!',fasm
+	;; ( v addr -- )
+	;; Store byte value v at address addr.
+	pop rax
+	pop rbx
+	mov byte [rax], bl
+	next
+
+	WORD p_2get, '2@',fasm
+	;; ( addr -- v1 v2 )
+	;; Load the cell pair {x2,x1} from address addr.
+	pop rax
+	push qword [rax+8]
+	push qword [rax]
+	next
+
+	WORD p_2put, '!',fasm
+	;; ( v1 v2 addr -- )
+	;; Store value pair {v2,v1} at address addr.
+	pop rax
+	pop rbx
+	mov qword [rax], rbx
+	pop rbx
+	mov qword [rax+8], rbx
+	next
+
+	WORD p_erase, 'ERASE',fasm
+	;; ( addr u -- )
+	;; Clear u bytes at address addr and up.
+	pop rax
+	pop rbx
+	xor rcx,rcx
+p_erase_loop:
+	cmp rax,8
+	jl p_erase_last
+	mov qword [rbx],0 	; mov qword[rbx],rcx
+	add rbx,8
+	sub rax,8
+	jmp p_erase_loop
+p_erase_more:
+	mov [rbx],byte 0	; mov byte [rbx], cl
+	inc rbx
+	dec rax
+p_erase_last:
+	jg p_erase_more
+	next
+
+	WORD p_1plus, '1+',fasm
+	;; ( n1 -- n2 )
+	;; Add one (1) to n1 resulting in n2.
+	inc qword [rsp]
+	next
+
+	WORD p_plus_put, '+!',fasm
+	;; ( n addr -- )
+	;; Add n to the value at addr.
+	pop rax
+	pop rbx
+	add [rax],rbx
+	next
+
+	WORD p_1minus, '1-',fasm
+	;; ( n1 -- n2 )
+	;; Subtract one (1) from n1 resulting in n2. 
+	dec qword [rsp]
+	next
+
+	WORD p_2mult, '2*',fasm
+	;; ( x1 -- x2 )
+	;; x2 is the result of shifting x1 one bit toward the
+	;; most-significant bit, filling the vacated least-significant
+	;; bit with zero.
+	shl qword [rsp],1
+	next
+
+	WORD p_2div, '2/',fasm
+	;; ( x1 -- x2 )
+	;; x2 is the result of shifting x1 one bit toward the
+	;; least-significant bit, leaving the most-significant bit
+	;; unchanged. (signed right shift)
+	sar qword [rsp],1
+	next
+	
diff --git a/memory.fasm b/memory.fasm
deleted file mode 100644
index 8a7ec6e..0000000
--- a/memory.fasm
+++ /dev/null
@@ -1,109 +0,0 @@
-;;; This file defines "memory access words"
-
-	WORD p_get, '@',fasm
-	;; ( addr -- v )
-	;; Load value v from address addr
-	pop rax
-	push qword [rax]
-	next
-
-	WORD p_put, '!',fasm
-	;; ( v addr -- )
-	;; Store value v at address addr.
-	pop rax
-	pop rbx
-	mov qword [rax], rbx
-	next
-
-	WORD p_Cget, 'C@',fasm
-	;; ( addr -- v )
-	;; Load the (unsigned) byte v from address addr.
-	pop rax
-	mov bl,[rax]
-	push 0
-	mov [rsp],bl
-	next
-	
-	WORD p_Cput, 'C!',fasm
-	;; ( v addr -- )
-	;; Store byte value v at address addr.
-	pop rax
-	pop rbx
-	mov byte [rax], bl
-	next
-
-	WORD p_2get, '2@',fasm
-	;; ( addr -- v1 v2 )
-	;; Load the cell pair {x2,x1} from address addr.
-	pop rax
-	push qword [rax+8]
-	push qword [rax]
-	next
-
-	WORD p_2put, '!',fasm
-	;; ( v1 v2 addr -- )
-	;; Store value pair {v2,v1} at address addr.
-	pop rax
-	pop rbx
-	mov qword [rax], rbx
-	pop rbx
-	mov qword [rax+8], rbx
-	next
-
-	WORD p_erase, 'ERASE',fasm
-	;; ( addr u -- )
-	;; Clear u bytes at address addr and up.
-	pop rax
-	pop rbx
-	xor rcx,rcx
-p_erase_loop:
-	cmp rax,8
-	jl p_erase_last
-	mov qword [rbx],0 	; mov qword[rbx],rcx
-	add rbx,8
-	sub rax,8
-	jmp p_erase_loop
-p_erase_more:
-	mov [rbx],byte 0	; mov byte [rbx], cl
-	inc rbx
-	dec rax
-p_erase_last:
-	jg p_erase_more
-	next
-
-	WORD p_1plus, '1+',fasm
-	;; ( n1 -- n2 )
-	;; Add one (1) to n1 resulting in n2.
-	inc qword [rsp]
-	next
-
-	WORD p_plus_put, '+!',fasm
-	;; ( n addr -- )
-	;; Add n to the value at addr.
-	pop rax
-	pop rbx
-	add [rax],rbx
-	next
-
-	WORD p_1minus, '1-',fasm
-	;; ( n1 -- n2 )
-	;; Subtract one (1) from n1 resulting in n2. 
-	dec qword [rsp]
-	next
-
-	WORD p_2mult, '2*',fasm
-	;; ( x1 -- x2 )
-	;; x2 is the result of shifting x1 one bit toward the
-	;; most-significant bit, filling the vacated least-significant
-	;; bit with zero.
-	shl qword [rsp],1
-	next
-
-	WORD p_2div, '2/',fasm
-	;; ( x1 -- x2 )
-	;; x2 is the result of shifting x1 one bit toward the
-	;; least-significant bit, leaving the most-significant bit
-	;; unchanged. (signed right shift)
-	sar qword [rsp],1
-	next
-	
diff --git a/rrqforth.asm b/rrqforth.asm
new file mode 100644
index 0000000..f06c158
--- /dev/null
+++ b/rrqforth.asm
@@ -0,0 +1,220 @@
+; This is a forth interpreter for x86_64 (elf64)
+	format elf64 executable
+	entry main
+
+;;; ========================================
+;;; The pushr macro pushes x onto the return stack
+;;; The popr macro pops x from the return stack
+macro pushr x {
+	sub rbp, 8
+	mov [rbp], x
+}
+
+macro popr x {
+	mov x, [rbp]
+	add rbp, 8
+}
+
+;;; ========================================
+;;; The next macro "moves" execution to the next FORTH instruction,
+;;; using rsi as instruction pointer. It points to the doer field of a
+;;; word, which points to the assembly code that implements the
+;;; execution effect of the word. That doer code is entered with rsi
+;;; referring to the subsequent address in the colling word, and rax
+;;; referring to the doer field of the called word.
+
+macro next {
+	lodsq			; mov rax, [rsi] + add rsi,8
+	jmp qword [rax]		; goto code of that FORTH word (64 bit jump)
+}
+
+;;; ========================================
+;;; The FORTH macro transitions to inline FORTH execution.
+macro FORTH {
+	local forthcode
+	mov rsi,forthcode
+	next
+	;; align 8
+forthcode:
+}
+
+;;; ========================================
+;;; The ENDFORTH macro transitions back to inline assembler after FORTH
+;;; ========================================
+macro ENDFORTH {
+	dq inline_code
+}
+
+;;; ========================================
+;;; The DOFORTH lays out a single FORTH call
+;;; ========================================
+macro DOFORTH label {
+	FORTH
+	dq label
+	ENDFORTH
+}
+
+;;; Macro WORD starts a FORTH word definition in this code
+;;; 
+	previous_word = 0	; Used for chaining the words
+
+	IMMEDIATE = 1		; optional flag
+
+macro WORD label, name, doer, flags {
+	;; align 8
+label#_TFA:
+	;; TFA
+	dq previous_word
+	previous_word = label#_TFA
+	;; PFA
+label#_PFA:
+	db flags + 0
+	db label - $ - 2
+	db name
+	db 0
+	;; align 8
+
+label#_OFF:
+	dq 0			; The DOES offset. Defaults to 0.
+	;; also CFA = pointer to "doer"
+label:
+	if doer eq
+	    dq doforth
+	else
+	    if doer in <fasm>
+	        dq label#_DFA
+	    else
+	        dq doer
+	    end if
+	end if
+	;; DFA
+label#_DFA:
+}
+
+;;; ============================================================
+;;; FORTH machine model
+;;; rsp = data stack pointer
+;;; rbp = return stack pointer
+;;; rsi = instruction pointer
+
+;;; ============================================================
+
+	segment readable writable executable
+
+	WORD return_stack,'RS',dovariable
+	;; The return stack
+	rb 1048576		; 1 Mb return stack
+RS_TOP:				; The initial rbp
+	
+	WORD data_stack,'DS',dovariable
+	;; The data stack
+	rb 1048576		; 1 Mb data stack
+DS_TOP:				; The initial rsp
+
+	WORD inline_code,'[ASM]',fasm
+	;; ( -- )
+	;; This transitions execution into inline assembler in the
+	;; calling word defintion. Note that it stops advancing rsi;
+	;; code should use FORTH macro to reenter forth execution, or
+	;; exit to the calling definition via "jmp exit".
+	jmp qword rsi
+
+;;; Execution semantics for FORTH defition word
+;;; At entry, rsi points into the calling definition, at the cell
+;;; following the cell indicating this word, rax points to the CFA of
+;;; this word.
+doforth:
+	pushr rsi
+	lea rsi, [rax+8] 	; rsi = the DFA of the rax word
+	next
+
+	WORD p_exit, 'EXIT',fasm
+	;; ( -- ) ( R: addr -- )
+	;; Returns execution to the calling definition as per the
+	;; return stack.
+exit:
+	popr rsi
+	next
+
+	;; Execution semantics for a variable ( -- addr )
+	;; rax points to doer field
+dovariable:
+	push rax+16
+	next
+
+	;; Execution semantics for a constant ( -- v )
+	;; rax points to doer field
+dovalue:
+	push qword [rax+16]
+	next
+
+	;; Execution semantics for a string constant ( -- addr n )
+	;; rax points to doer field
+dostring:
+	add rax,16
+	mov bl,[rax]
+	mov byte [rsp],bl
+	push rax+1
+	next
+
+include 'wordlists.fasm'
+include 'syscalls.fasm'
+include 'memory.fasm'
+include 'stack.fasm'
+include 'math.fasm'
+include 'stdio.fasm'
+
+	WORD p_program_version,'PROGRAM_VERSION',dostring
+	db length
+program_version_string:	
+	db 'RRQ Forth version 0.1 - 2021-05-13',10
+	length = $ - program_version_string
+
+	WORD p_stdin,'STDIN',dovalue
+	;; Initialised to hold a STREAM for fd 0
+	dq 0
+	
+	WORD p_quit,'QUIT',fasm
+	;; QUIT is the program entry point ********************
+main:
+	mov rsp,DS_TOP
+	mov rbp,RS_TOP
+	;; Initialize STREAM STDIN
+	push 0
+	push 10000
+	DOFORTH p_stream
+	pop qword [p_stdin_DFA]
+
+	;; read a word
+	push qword 1		; ( fd ) =stdout
+	push qword [p_stdin_DFA]
+	FORTH
+	dq p_read_word		; ( fd s n )
+	dq sys_write
+	ENDFORTH
+
+	push qword 1			; stdout
+	push qword program_version_string ; address of string
+	push qword length 		; length of string (cheating)
+	DOFORTH sys_write		; printout
+	pop rax				; ignore errors
+	
+	push 0
+	DOFORTH sys_exit
+
+	;; TERMINATE0 terminates the program with code 0
+	;; ( v -- )
+	WORD terminate, 'TERMINATE',fasm
+	pop rdx
+terminate_special:
+	mov eax,60
+	syscall
+
+last_word:
+	;; FORTH is the last word of VOCABULARY FORTH
+	WORD forth,'FORTH',dovalue
+	dq forth_TFA
+	dq 0
+
+	
+heap_start:
diff --git a/stack.asm b/stack.asm
new file mode 100644
index 0000000..9726cc2
--- /dev/null
+++ b/stack.asm
@@ -0,0 +1,121 @@
+;;; Words for stack manipulations
+	
+	WORD p_dup, 'DUP',fasm
+	;; ( v -- v v )
+	;; Duplicate top ov stack value.
+	;; push qword [rsp] ??
+	mov rax,qword [rsp]
+	push rax
+	next
+
+	WORD p_2dup, '2DUP',fasm
+	;; ( x1 x2 -- x1 x2 x1 x2 )
+	;; Duplicate cell pair x1 x2.
+	push qword [rsp+8]
+	push qword [rsp+8]
+	next
+
+	WORD p_drop, 'DROP',fasm
+	;; ( x -- )
+	;; Remove x from the stack.
+	add rsp,8
+	next
+
+	WORD p_2drop, '2DROP',fasm
+	;; ( x1 x2 -- )
+	;; Drop cell pair x1 x2 from the stack.
+	add rsp,16
+	next
+
+	WORD p_over, 'OVER',fasm
+	;; ( x1 x2 -- x1 x2 x1 )
+	;; Place a copy of x1 on top of the stack. 
+	push qword [rsp+8]
+	next
+
+	WORD p_2over, '2OVER',fasm
+	;; ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 )
+	;; Copy cell pair x1 x2 to the top of the stack.
+	push qword [rsp+24]
+	push qword [rsp+24]
+	next
+
+	WORD p_swap, 'SWAP',fasm
+	;; ( x1 x2 -- x2 x1 )
+	;; Exchange the top two stack items.
+	mov rax,qword [rsp]
+	mov rbx,qword [rsp+8]
+	mov qword [rsp+8],rax
+	mov qword [rsp],rbx
+	next
+
+	WORD p_2swap, '2SWAP',fasm
+	;; ( x1 x2 x3 x4 -- x3 x4 x1 x2 )
+	;; Exchange the top two cell pairs.
+	mov rax,qword [rsp]
+	mov rbx,qword [rsp+16]
+	mov qword [rsp], rbx
+	mov qword [rsp+16],rax
+	mov rax,qword [rsp+8]
+	mov rbx,qword [rsp+24]
+	mov qword [rsp+8], rbx
+	mov qword [rsp+24],rax
+	next
+
+	WORD p_rot, 'ROT',fasm
+	;; ( x1 x2 x3 -- x2 x3 x1 )
+	;; Rotate the top three stack entries.
+	mov rax,qword [rsp+16]
+	mov rbx,qword [rsp+8]
+	mov qword [rsp+16],rbx
+	mov rbx,qword [rsp]
+	mov qword [rsp+8],rbx
+	mov qword [rsp],rax
+	next
+
+	;; ( xu xu-1 ... x0 u -- xu-1 ... x0 xu )
+	;; Remove u. Rotate u+1 items on the top of the stack. An
+	;; ambiguous condition exists if there are less than u+2 items
+	;; on the stack before ROLL is executed.
+	WORD p_roll, 'ROLL',fasm
+	pop rcx
+	shl rcx,3
+	add rcx,rsp
+	mov rax,[rcx+8]
+p_roll_loop:
+	cmp rcx,rsp
+	je p_roll_eq
+	mov rbx,[rcx]
+	mov [rcx+8],rbx
+	sub rcx,8
+	jmp p_roll_loop
+p_roll_eq:
+	mov [rsp],rax
+	next
+
+	WORD p_nip, 'NIP',fasm
+	;; ( x1 x2 -- x2 )
+	;; Discard the second stack item. 
+	pop rax
+	mov qword [rsp],rax
+	next
+
+	WORD p_pick, 'PICK',fasm
+	;; ( xu...x1 x0 u -- xu...x1 x0 xu )
+	;; Remove u. Copy the xu to the top of the stack. An ambiguous
+	;; condition exists if there are less than u+2 items on the
+	;; stack before PICK is executed.
+	pop rax
+	shl rax,3		; 8 bytes per index
+	push qword [rsp+rax]
+	next
+
+	WORD w6.2.2300, 'TUCK',fasm
+	;; ( x1 x2 -- x2 x1 x2 )
+	;; insert the top stack value into below second stack value.
+	pop rax
+	pop rbx
+	push rax
+	push rbx
+	push rax
+	next
diff --git a/stack.fasm b/stack.fasm
deleted file mode 100644
index 9726cc2..0000000
--- a/stack.fasm
+++ /dev/null
@@ -1,121 +0,0 @@
-;;; Words for stack manipulations
-	
-	WORD p_dup, 'DUP',fasm
-	;; ( v -- v v )
-	;; Duplicate top ov stack value.
-	;; push qword [rsp] ??
-	mov rax,qword [rsp]
-	push rax
-	next
-
-	WORD p_2dup, '2DUP',fasm
-	;; ( x1 x2 -- x1 x2 x1 x2 )
-	;; Duplicate cell pair x1 x2.
-	push qword [rsp+8]
-	push qword [rsp+8]
-	next
-
-	WORD p_drop, 'DROP',fasm
-	;; ( x -- )
-	;; Remove x from the stack.
-	add rsp,8
-	next
-
-	WORD p_2drop, '2DROP',fasm
-	;; ( x1 x2 -- )
-	;; Drop cell pair x1 x2 from the stack.
-	add rsp,16
-	next
-
-	WORD p_over, 'OVER',fasm
-	;; ( x1 x2 -- x1 x2 x1 )
-	;; Place a copy of x1 on top of the stack. 
-	push qword [rsp+8]
-	next
-
-	WORD p_2over, '2OVER',fasm
-	;; ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 )
-	;; Copy cell pair x1 x2 to the top of the stack.
-	push qword [rsp+24]
-	push qword [rsp+24]
-	next
-
-	WORD p_swap, 'SWAP',fasm
-	;; ( x1 x2 -- x2 x1 )
-	;; Exchange the top two stack items.
-	mov rax,qword [rsp]
-	mov rbx,qword [rsp+8]
-	mov qword [rsp+8],rax
-	mov qword [rsp],rbx
-	next
-
-	WORD p_2swap, '2SWAP',fasm
-	;; ( x1 x2 x3 x4 -- x3 x4 x1 x2 )
-	;; Exchange the top two cell pairs.
-	mov rax,qword [rsp]
-	mov rbx,qword [rsp+16]
-	mov qword [rsp], rbx
-	mov qword [rsp+16],rax
-	mov rax,qword [rsp+8]
-	mov rbx,qword [rsp+24]
-	mov qword [rsp+8], rbx
-	mov qword [rsp+24],rax
-	next
-
-	WORD p_rot, 'ROT',fasm
-	;; ( x1 x2 x3 -- x2 x3 x1 )
-	;; Rotate the top three stack entries.
-	mov rax,qword [rsp+16]
-	mov rbx,qword [rsp+8]
-	mov qword [rsp+16],rbx
-	mov rbx,qword [rsp]
-	mov qword [rsp+8],rbx
-	mov qword [rsp],rax
-	next
-
-	;; ( xu xu-1 ... x0 u -- xu-1 ... x0 xu )
-	;; Remove u. Rotate u+1 items on the top of the stack. An
-	;; ambiguous condition exists if there are less than u+2 items
-	;; on the stack before ROLL is executed.
-	WORD p_roll, 'ROLL',fasm
-	pop rcx
-	shl rcx,3
-	add rcx,rsp
-	mov rax,[rcx+8]
-p_roll_loop:
-	cmp rcx,rsp
-	je p_roll_eq
-	mov rbx,[rcx]
-	mov [rcx+8],rbx
-	sub rcx,8
-	jmp p_roll_loop
-p_roll_eq:
-	mov [rsp],rax
-	next
-
-	WORD p_nip, 'NIP',fasm
-	;; ( x1 x2 -- x2 )
-	;; Discard the second stack item. 
-	pop rax
-	mov qword [rsp],rax
-	next
-
-	WORD p_pick, 'PICK',fasm
-	;; ( xu...x1 x0 u -- xu...x1 x0 xu )
-	;; Remove u. Copy the xu to the top of the stack. An ambiguous
-	;; condition exists if there are less than u+2 items on the
-	;; stack before PICK is executed.
-	pop rax
-	shl rax,3		; 8 bytes per index
-	push qword [rsp+rax]
-	next
-
-	WORD w6.2.2300, 'TUCK',fasm
-	;; ( x1 x2 -- x2 x1 x2 )
-	;; insert the top stack value into below second stack value.
-	pop rax
-	pop rbx
-	push rax
-	push rbx
-	push rax
-	next
diff --git a/stdio.asm b/stdio.asm
new file mode 100644
index 0000000..ae3e08e
--- /dev/null
+++ b/stdio.asm
@@ -0,0 +1,140 @@
+;;; ========================================
+;;; Dynamic memory management. Allocated with MALLOC and released with
+;;; MUNMAP (see below)
+
+	;; ( size -- addr )
+	;; Allocates memory (using brk)
+	WORD p_malloc,'MALLOC',fasm
+	pushr rsi		; pretend it's a FORTH word since it
+				; ends via sys_mmap_asm
+	pop rax
+	push qword 0		; address of mapping (suggestion)
+	push rax		; length of mapping
+	push qword 3		; protection mode PROT_READ | PROT_WRITE
+	push qword 8226		; flags PRIVATE | ANONYMOUS | LOCKED
+	push qword -1		; fd -1
+	push qword 0		; offset
+	jmp sys_mmap_asm	; exit via sys_mmap
+
+;;; ========================================
+;;; Mapping files
+
+	;; ( fd -- address )
+	;; Request memory mapping of a file
+	WORD p_mmap,'MMAP',fasm
+	pushr rsi		; pretend it's a FORTH word since it
+				; ends via sys_mmap_asm
+	pop rax
+	push qword 0		; address of mapping (suggestion)
+	push qword 10240	; length of mapping
+	push qword 1		; protection mode PROT_READ
+	push qword 2		; flags MAP_PRIVATE
+	push rax		; fd
+	push qword 0		; offset
+	jmp sys_mmap_asm	; exit via sys_mmap
+
+;;; ========================================
+;;; Input stream handling. An input stream has a stream buffer that is
+;;; gradually filled on needs basis. The stream buffer includes a
+;;; header portion with:
+;;; * size of buffer (excluding the 32 byte head)
+;;; * source file descriptor
+;;; * current fill
+;;; * current read position
+
+	WORD p_stream,'STREAM',
+	;; ( fd size -- addr )
+	;; Allocates a stream buffer of the given size and initializes
+	;; it to be filled from the given input file descriptor.
+	dq p_dup		; ( fd size size )
+	dq p_malloc		; ( fd size addr )
+	dq p_2dup		; ( fd size addr size addr )
+	dq p_swap		; ( fd size addr addr size )
+	dq p_erase		; ( fd size addr )
+	ENDFORTH
+	pop rax			; ( fd size )
+	pop rbx			; ( fd )
+	sub rbx,32
+	mov [rax],rbx
+	pop rbx
+	mov [rax+8],rbx
+	push rax
+	jmp exit
+
+	WORD p_read_stream_char,'READ-STREAM-CHAR',fasm
+	;; ( stream -- ch )
+	pushr rsi
+	mov rax,qword [rsp]
+	mov rbx,[rax+16]	; fill
+p_read_stream_char.READ:
+	mov rcx,[rax+24]	; current
+	cmp rbx,rcx
+	jg p_read_stream_char.CHAR
+	push qword [rax+8] 	; fd
+	lea rbx,[rax+32]
+	push rbx		; buffer
+	push qword [rax]	; size
+	mov qword[rax+16],0
+	mov qword[rax+24],0
+	DOFORTH sys_read
+	pop rbx
+	mov rax,qword [rsp]
+	cmp rbx,0
+	jle p_read_stream_char.EOF
+	mov qword[rax+16],rbx
+	jmp p_read_stream_char.READ
+p_read_stream_char.EOF:
+	mov qword [rsp],-1
+	popr rsi
+	next
+p_read_stream_char.CHAR:
+	inc qword [rax+24]
+	add rcx,32
+	mov qword [rsp],0
+	mov bl,[rax+rcx]
+	mov byte [rsp],bl
+	popr rsi
+	next
+
+	WORD p_line_buffer,'LINE-BUFFER',dovariable
+	;; A buffer for holding a text line
+	rb 1024
+
+	WORD p_read_word,'READ-WORD',fasm
+	;; ( stream -- addr length )
+	;; Read a text line from the stream into the line buffer
+	pushr rsi
+	pop rax
+	push qword p_line_buffer_DFA
+	push qword 0
+	push rax
+p_read_word_skipblanks:	
+	FORTH
+	dq p_dup
+	dq p_read_stream_char
+	ENDFORTH
+	pop rbx
+	cmp bl,0
+	jl p_read_word_nomore
+	cmp bl,' '
+	jle p_read_word_skipblanks
+p_read_word_readword:
+	FORTH
+	dq p_dup
+	dq p_read_stream_char
+	ENDFORTH
+	pop rbx
+	cmp bl,0
+	jl p_read_word_nomore
+	cmp bl,' '
+	jle p_read_word_nomore
+	;; ( buffer length stream )
+	mov rax,qword [rsp+16]
+	mov rcx,qword [rsp+8]
+	mov [rax+rcx],bl
+	inc qword [rsp+8]
+	jmp p_read_word_readword
+p_read_word_nomore:
+	pop rax
+	popr rsi
+	next
diff --git a/stdio.fasm b/stdio.fasm
deleted file mode 100644
index ae3e08e..0000000
--- a/stdio.fasm
+++ /dev/null
@@ -1,140 +0,0 @@
-;;; ========================================
-;;; Dynamic memory management. Allocated with MALLOC and released with
-;;; MUNMAP (see below)
-
-	;; ( size -- addr )
-	;; Allocates memory (using brk)
-	WORD p_malloc,'MALLOC',fasm
-	pushr rsi		; pretend it's a FORTH word since it
-				; ends via sys_mmap_asm
-	pop rax
-	push qword 0		; address of mapping (suggestion)
-	push rax		; length of mapping
-	push qword 3		; protection mode PROT_READ | PROT_WRITE
-	push qword 8226		; flags PRIVATE | ANONYMOUS | LOCKED
-	push qword -1		; fd -1
-	push qword 0		; offset
-	jmp sys_mmap_asm	; exit via sys_mmap
-
-;;; ========================================
-;;; Mapping files
-
-	;; ( fd -- address )
-	;; Request memory mapping of a file
-	WORD p_mmap,'MMAP',fasm
-	pushr rsi		; pretend it's a FORTH word since it
-				; ends via sys_mmap_asm
-	pop rax
-	push qword 0		; address of mapping (suggestion)
-	push qword 10240	; length of mapping
-	push qword 1		; protection mode PROT_READ
-	push qword 2		; flags MAP_PRIVATE
-	push rax		; fd
-	push qword 0		; offset
-	jmp sys_mmap_asm	; exit via sys_mmap
-
-;;; ========================================
-;;; Input stream handling. An input stream has a stream buffer that is
-;;; gradually filled on needs basis. The stream buffer includes a
-;;; header portion with:
-;;; * size of buffer (excluding the 32 byte head)
-;;; * source file descriptor
-;;; * current fill
-;;; * current read position
-
-	WORD p_stream,'STREAM',
-	;; ( fd size -- addr )
-	;; Allocates a stream buffer of the given size and initializes
-	;; it to be filled from the given input file descriptor.
-	dq p_dup		; ( fd size size )
-	dq p_malloc		; ( fd size addr )
-	dq p_2dup		; ( fd size addr size addr )
-	dq p_swap		; ( fd size addr addr size )
-	dq p_erase		; ( fd size addr )
-	ENDFORTH
-	pop rax			; ( fd size )
-	pop rbx			; ( fd )
-	sub rbx,32
-	mov [rax],rbx
-	pop rbx
-	mov [rax+8],rbx
-	push rax
-	jmp exit
-
-	WORD p_read_stream_char,'READ-STREAM-CHAR',fasm
-	;; ( stream -- ch )
-	pushr rsi
-	mov rax,qword [rsp]
-	mov rbx,[rax+16]	; fill
-p_read_stream_char.READ:
-	mov rcx,[rax+24]	; current
-	cmp rbx,rcx
-	jg p_read_stream_char.CHAR
-	push qword [rax+8] 	; fd
-	lea rbx,[rax+32]
-	push rbx		; buffer
-	push qword [rax]	; size
-	mov qword[rax+16],0
-	mov qword[rax+24],0
-	DOFORTH sys_read
-	pop rbx
-	mov rax,qword [rsp]
-	cmp rbx,0
-	jle p_read_stream_char.EOF
-	mov qword[rax+16],rbx
-	jmp p_read_stream_char.READ
-p_read_stream_char.EOF:
-	mov qword [rsp],-1
-	popr rsi
-	next
-p_read_stream_char.CHAR:
-	inc qword [rax+24]
-	add rcx,32
-	mov qword [rsp],0
-	mov bl,[rax+rcx]
-	mov byte [rsp],bl
-	popr rsi
-	next
-
-	WORD p_line_buffer,'LINE-BUFFER',dovariable
-	;; A buffer for holding a text line
-	rb 1024
-
-	WORD p_read_word,'READ-WORD',fasm
-	;; ( stream -- addr length )
-	;; Read a text line from the stream into the line buffer
-	pushr rsi
-	pop rax
-	push qword p_line_buffer_DFA
-	push qword 0
-	push rax
-p_read_word_skipblanks:	
-	FORTH
-	dq p_dup
-	dq p_read_stream_char
-	ENDFORTH
-	pop rbx
-	cmp bl,0
-	jl p_read_word_nomore
-	cmp bl,' '
-	jle p_read_word_skipblanks
-p_read_word_readword:
-	FORTH
-	dq p_dup
-	dq p_read_stream_char
-	ENDFORTH
-	pop rbx
-	cmp bl,0
-	jl p_read_word_nomore
-	cmp bl,' '
-	jle p_read_word_nomore
-	;; ( buffer length stream )
-	mov rax,qword [rsp+16]
-	mov rcx,qword [rsp+8]
-	mov [rax+rcx],bl
-	inc qword [rsp+8]
-	jmp p_read_word_readword
-p_read_word_nomore:
-	pop rax
-	popr rsi
-	next
diff --git a/symbols.lsp b/symbols.lsp
deleted file mode 100755
index 98f4c41..0000000
--- a/symbols.lsp
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/usr/bin/newlisp
-#
-# Print an assembly listing for ELF targets associating binary address
-# with source lines.
-
-(signal 2 exit) ; exit on Ctrl-C
-
-; Format a byte or list of bytes into a hex string
-(define (hex L)
-  (if (list? L) (string "0x" (join (map (curry format "%02x") L)))
-    ; else
-    (hex (list L))))
-
-; Helper function to "copy out" a NUL terminated string from the
-; beginning of a memblock. (only an issue with utf8-enabled newlisp)
-(define (asciiz X) (get-string (address X)))
-
-; Helper function to set and print a variable
-(define (print-assign X Y) (set X (println X " = " Y)))
-
-; Helper "macro" to set variables and print their assignments
-(define-macro (setf-print)
-  (map (fn (P) (print-assign (P 0) (eval (P 1)))) (explode (args) 2)))
-
-; Load the .fas file here; named last on the command line
-(setf FAS (read-file (main-args -1)))
-
-(setf-print
- SIGNATURE (hex (reverse (unpack (dup "b" 4) FAS)))
- VERSION (unpack "bb" (4 FAS))
- HEADER-LENGTH ((unpack "u" (6 FAS)) 0)
- INFILEP ((unpack "lu" (8 FAS)) 0)
- OUTFILEP ((unpack "lu" (12 FAS)) 0)
- STRINGS-TABLE-OFFSET ((unpack "lu" (16 FAS)) 0)
- STRINGS-TABLE-LENGTH ((unpack "lu" (20 FAS)) 0)
- SYMBOLS-TABLE-OFFSET ((unpack "lu" (24 FAS)) 0)
- SYMBOLS-TABLE-LENGTH ((unpack "lu" (28 FAS)) 0)
- PREPROCESSED-OFFSET ((unpack "lu" (32 FAS)) 0)
- PREPROCESSED-LENGTH ((unpack "lu" (36 FAS)) 0)
- ASSEMBLY-DUMP-OFFSET ((unpack "lu" (40 FAS)) 0)
- ASSEMBLY-DUMP-LENGTH ((unpack "lu" (44 FAS)) 0)
- SECTION-TABLE-OFFSET ((unpack "lu" (48 FAS)) 0)
- SECTION-TABLE-LENGTH ((unpack "lu" (52 FAS)) 0)
- SYMBOL-REFERENCES-DUMP-OFFSET ((unpack "lu" (56 FAS)) 0)
- SYMBOL-REFERENCES-DUMP-LENGTH ((unpack "lu" (60 FAS)) 0)
- )
-
-(setf
- STRINGS (STRINGS-TABLE-OFFSET STRINGS-TABLE-LENGTH FAS)
- _ (println STRINGS)
- PREP (PREPROCESSED-OFFSET PREPROCESSED-LENGTH FAS)
- )
-
-(setf-print
- MAIN-FILE (asciiz (INFILEP STRINGS))
- )
-
-; Hash tables for filename->content and macroid->firstline
-(define FILES:FILES nil)   ; for captured file content
-(define MACROS:MACROS nil) ; for captured first-appearance-line of macros
-
-; Get/cache content of file
-(define (get-file NAME)
-  (or (FILES NAME) (FILES NAME (read-file NAME))))
-
-; Check if N is the first-appearence-line in macro ID
-; (capture N for the very first appearance of ID)
-(define (macro-start ID N)
-  (if (MACROS ID) (= (MACROS ID) N) (MACROS ID N)))
-
-; The file name for prep entry index i (with 0 = main file)
-(define (source-file i)
-  (if (= i) MAIN-FILE (asciiz (i PREP))))
-
-; Extract and format the file line with line number LN that is at at
-; position i of file FILE.
-(define (get-line i FILE LN)
-  (letn ((DATA (get-file FILE))
-         (END (find "\n" DATA nil i))
-         (R (i (- END i) DATA)) )
-    (format "%s:%-5d %s" FILE LN R)))
-
-; Format a "macro" prep entry by prepending an informative line for
-; the first-appearance-line.
-(define (resolve-macro AT PL)
-  (if (macro-start (PL 2) (PL 1))
-      (string (PREP-SOURCE-LINE "--------" (PL 2)) "\n"
-              (PREP-SOURCE-LINE AT (PL 3)))
-    ; else
-    (PREP-SOURCE-LINE AT (PL 3))))
-
-; Format output for "address" AT and prep line PL (unpacked)
-(define (prep-source AT PL)
-  (if (!= (& 0x80000000 (PL 1))) (resolve-macro AT PL)
-    ; else
-    (string AT " " (get-line (PL 2) (source-file (PL 0)) (PL 1)))))
-
-; Format output for "address" AT and prep line at P (index)
-(define (PREP-SOURCE-LINE AT P)
-  (prep-source AT (unpack "lu lu lu lu" (P PREP))))
-
-; Format output for assembly line L (memblock)
-(define (ASSEMBLY-LINE L)
-  (let ((AL (unpack "lu lu lu lu lu b b b b" (or L ""))))
-    (PREP-SOURCE-LINE (hex (AL 2)) (AL 1))
-    ))
-
-; divide memblock D into memblocks of size N
-(define (frag N D)
-  (unpack (dup (string "s" N " ") (/ (length D) N)) D))
-
-#### Main action(s) start here
-
-(map println
-     (map ASSEMBLY-LINE
-          (frag 28 (ASSEMBLY-DUMP-OFFSET ASSEMBLY-DUMP-LENGTH FAS))))
-
-(exit 0)
diff --git a/syscalls.asm b/syscalls.asm
new file mode 100644
index 0000000..ede8849
--- /dev/null
+++ b/syscalls.asm
@@ -0,0 +1,372 @@
+;;; https://chromium.googlesource.com/chromiumos/docs/+/master/constants/syscalls.md
+;;;
+;;;          id  rtn  0     1    2    3    4  5
+;;; x86_64: rax, rax, rdi, rsi, rdx, r10, r8, r9
+
+;;; %rax	System call	%rdi	%rsi	%rdx	%r10	%r8	%r9
+
+;;; ==============================
+;;; Helper macro for layout of syscall argument registers
+
+macro SYSCALLARG register,count,nargs {
+if count < nargs
+	mov register, [rsp + ((nargs-count-1)*8)]
+end if
+}
+
+;;; Code layout for system call with up to 6 arguments
+macro SYSCALL id,name,fname,nargs {
+	WORD name,fname,fasm
+	pushr rsi
+name#_asm:
+	mov rax,qword id
+	SYSCALLARG r9,5,nargs
+	SYSCALLARG r8,4,nargs
+	SYSCALLARG r10,3,nargs
+	SYSCALLARG rdx,2,nargs
+	SYSCALLARG rsi,1,nargs
+	SYSCALLARG rdi,0,nargs
+if nargs > 0
+	add rsp,nargs*8
+end if
+	syscall
+	push rax
+	jmp exit
+}
+
+	SYSCALL 0,sys_read,'SYS_READ',3
+	SYSCALL 1,sys_write,'SYS_WRITE',3
+	SYSCALL 2,sys_open,'SYS_OPEN',3
+	SYSCALL 3,sys_close,'SYS_CLOSE',1
+	SYSCALL 4,sys_stat,'SYS_STAT',2
+	SYSCALL 5,sys_fstat,'SYS_FSTAT',2				
+	SYSCALL 6,sys_lstat,'SYS_LSTAT',2
+	SYSCALL 7,sys_poll,'SYS_POLL',3
+	SYSCALL 8,sys_lseek,'SYS_LSEEK',3
+	SYSCALL 9,sys_mmap,'SYS_MMAP',6
+	SYSCALL 10,sys_mprotect,'SYS_MPROTECT',3
+	SYSCALL 11,sys_munmap,'SYS_MUNMAP',2
+	SYSCALL 12,sys_brk,'SYS_BRK',1
+	SYSCALL 13,sys_rt_sigaction,'SYS_RT_SIGACTION',4
+	SYSCALL 14,sys_rt_sigprocmask,'SYS_RT_SIGPROCMASK',4
+	SYSCALL 15,sys_rt_sigreturn,'SYS_RT_SIGRETURN',1
+	SYSCALL 16,sys_ioctl,'SYS_IOCTL',3
+	SYSCALL 17,sys_pread64,'SYS_PREAD64',4
+	SYSCALL 18,sys_pwrite64,'SYS_PWRITE64',4
+	SYSCALL 19,sys_readv,'SYS_READV',3
+	SYSCALL 20,sys_writev,'SYS_WRITEV',3
+	SYSCALL 21,sys_access,'SYS_ACCESS',2
+	SYSCALL 22,sys_pipe,'SYS_PIPE',1
+	SYSCALL 23,sys_select,'SYS_SELECT',5
+	SYSCALL 24,sys_sched_yield,'SYS_SCHED_YIELD',0
+	SYSCALL 25,sys_mremap,'SYS_MREMAP',5
+	SYSCALL 26,sys_msync,'SYS_MSYNC',3
+	SYSCALL 27,sys_mincore,'SYS_MINCORE',3
+	SYSCALL 28,sys_madvise,'SYS_MADVISE',3
+	SYSCALL 29,sys_shmget,'SYS_SHMGET',3
+	SYSCALL 30,sys_shmat,'SYS_SHMAT',3
+	SYSCALL 31,sys_shmctl,'SYS_SHMCTL',3
+	SYSCALL 32,sys_dup,'SYS_DUP',1
+	SYSCALL 33,sys_dup2,'SYS_DUP2',2
+	SYSCALL 34,sys_pause,'SYS_PAUSE',0
+	SYSCALL 35,sys_nanosleep,'SYS_NANOSLEEP',2
+	SYSCALL 36,sys_getitimer,'SYS_GETITIMER',2
+	SYSCALL 37,sys_alarm,'SYS_ALARM',1
+	SYSCALL 38,sys_setitimer,'SYS_SETITIMER',3
+	SYSCALL 39,sys_getpid,'SYS_GETPID',0
+	SYSCALL 40,sys_sendfile,'SYS_SENDFILE',4
+	SYSCALL 41,sys_socket,'SYS_SOCKET',3
+	SYSCALL 42,sys_connect,'SYS_CONNECT',3
+	SYSCALL 43,sys_accept,'SYS_ACCEPT',3
+	SYSCALL 44,sys_sendto,'SYS_SENDTO',6
+	SYSCALL 45,sys_recvfrom,'SYS_RECVFROM',6
+	SYSCALL 46,sys_sendmsg,'SYS_SENDMSG',3			
+	SYSCALL 47,sys_recvmsg,'SYS_RECVMSG',3			
+	SYSCALL 48,sys_shutdown,'SYS_SHUTDOWN',2
+	SYSCALL 49,sys_bind,'SYS_BIND',3
+	SYSCALL 50,sys_listen,'SYS_LISTEN',2
+	SYSCALL 51,sys_getsockname,'SYS_GETSOCKNAME',3
+	SYSCALL 52,sys_getpeername,'SYS_GETPEERNAME',3
+	SYSCALL 53,sys_socketpair,'SYS_SOCKETPAIR',4
+	SYSCALL 54,sys_setsockopt,'SYS_SETSOCKOPT',5
+	SYSCALL 55,sys_getsockopt,'SYS_GETSOCKOPT',5
+	SYSCALL 56,sys_clone,'SYS_CLONE',5
+	SYSCALL 57,sys_fork,'SYS_FORK',0
+	SYSCALL 58,sys_vfork,'SYS_VFORK',0
+	SYSCALL 59,sys_execve,'SYS_EXECVE',3
+	SYSCALL 60,sys_exit,'SYS_EXIT',1
+	SYSCALL 61,sys_wait4,'SYS_WAIT4',4
+	SYSCALL 62,sys_kill,'SYS_KILL',2
+	SYSCALL 63,sys_uname,'SYS_UNAME',1
+	SYSCALL 64,sys_semget,'SYS_SEMGET',3
+	SYSCALL 65,sys_semop,'SYS_SEMOP',3
+	SYSCALL 66,sys_semctl,'SYS_SEMCTL',4
+	SYSCALL 67,sys_shmdt,'SYS_SHMDT',1
+	SYSCALL 68,sys_msgget,'SYS_MSGGET',2
+	SYSCALL 69,sys_msgsnd,'SYS_MSGSND',4
+	SYSCALL 70,sys_msgrcv,'SYS_MSGRCV',5
+	SYSCALL 71,sys_msgctl,'SYS_MSGCTL',3
+	SYSCALL 72,sys_fcntl,'SYS_FCNTL',3
+	SYSCALL 73,sys_flock,'SYS_FLOCK',2
+	SYSCALL 74,sys_fsync,'SYS_FSYNC',1
+	SYSCALL 75,sys_fdatasync,'SYS_FDATASYNC',1
+	SYSCALL 76,sys_truncate,'SYS_TRUNCATE',2
+	SYSCALL 77,sys_ftruncate,'SYS_FTRUNCATE',2
+	SYSCALL 78,sys_getdents,'SYS_GETDENTS',3
+	SYSCALL 79,sys_getcwd,'SYS_GETCWD',2
+	SYSCALL 80,sys_chdir,'SYS_CHDIR',1
+	SYSCALL 81,sys_fchdir,'SYS_FCHDIR',1
+	SYSCALL 82,sys_rename,'SYS_RENAME',2
+	SYSCALL 83,sys_mkdir,'SYS_MKDIR',2
+	SYSCALL 84,sys_rmdir,'SYS_RMDIR',1
+	SYSCALL 85,sys_creat,'SYS_CREAT',2
+	SYSCALL 86,sys_link,'SYS_LINK',2
+	SYSCALL 87,sys_unlink,'SYS_UNLINK',1
+	SYSCALL 88,sys_symlink,'SYS_SYMLINK',2
+	SYSCALL 89,sys_readlink,'SYS_READLINK',3
+	SYSCALL 90,sys_chmod,'SYS_CHMOD',2
+	SYSCALL 91,sys_fchmod,'SYS_FCHMOD',2
+	SYSCALL 92,sys_chown,'SYS_CHOWN',3
+	SYSCALL 93,sys_fchown,'SYS_FCHOWN',3
+	SYSCALL 94,sys_lchown,'SYS_LCHOWN',3
+	SYSCALL 95,sys_umask,'SYS_UMASK',1
+	SYSCALL 96,sys_gettimeofday,'SYS_GETTIMEOFDAY',2
+	SYSCALL 97,sys_getrlimit,'SYS_GETRLIMIT',2
+	SYSCALL 98,sys_getrusage,'SYS_GETRUSAGE',2
+	SYSCALL 99,sys_sysinfo,'SYS_SYSINFO',1
+	SYSCALL 100,sys_times,'SYS_TIMES',1
+	SYSCALL 101,sys_ptrace,'SYS_PTRACE',4
+	SYSCALL 102,sys_getuid,'SYS_GETUID',0
+	SYSCALL 103,sys_syslog,'SYS_SYSLOG',3
+	SYSCALL 104,sys_getgid,'SYS_GETGID',0
+	SYSCALL 105,sys_setuid,'SYS_SETUID',1
+	SYSCALL 106,sys_setgid,'SYS_SETGID',1
+	SYSCALL 107,sys_geteuid,'SYS_GETEUID',0
+	SYSCALL 108,sys_getegid,'SYS_GETEGID',0
+	SYSCALL 109,sys_setpgid,'SYS_SETPGID',2
+	SYSCALL 110,sys_getppid,'SYS_GETPPID',0
+	SYSCALL 111,sys_getpgrp,'SYS_GETPGRP',0
+	SYSCALL 112,sys_setsid,'SYS_SETSID',0
+	SYSCALL 113,sys_setreuid,'SYS_SETREUID',2
+	SYSCALL 114,sys_setregid,'SYS_SETREGID',2
+	SYSCALL 115,sys_getgroups,'SYS_GETGROUPS',2
+	SYSCALL 116,sys_setgroups,'SYS_SETGROUPS',2
+	SYSCALL 117,sys_setresuid,'SYS_SETRESUID',3
+	SYSCALL 118,sys_getresuid,'SYS_GETRESUID',3
+	SYSCALL 119,sys_setresgid,'SYS_SETRESGID',3
+	SYSCALL 120,sys_getresgid,'SYS_GETRESGID',3
+	SYSCALL 121,sys_getpgid,'SYS_GETPGID',1
+	SYSCALL 122,sys_setfsuid,'SYS_SETFSUID',1
+	SYSCALL 123,sys_setfsgid,'SYS_SETFSGID',1
+	SYSCALL 124,sys_getsid,'SYS_GETSID',1
+	SYSCALL 125,sys_capget,'SYS_CAPGET',2
+	SYSCALL 126,sys_capset,'SYS_CAPSET',2
+	SYSCALL 127,sys_rt_sigpending,'SYS_RT_SIGPENDING',2
+	SYSCALL 128,sys_rt_sigtimedwait,'SYS_RT_SIGTIMEDWAIT',4
+	SYSCALL 129,sys_rt_sigqueueinfo,'SYS_RT_SIGQUEUEINFO',3
+	SYSCALL 130,sys_rt_sigsuspend,'SYS_RT_SIGSUSPEND',2
+	SYSCALL 131,sys_sigaltstack,'SYS_SIGALTSTACK',2
+	SYSCALL 132,sys_utime,'SYS_UTIME',2
+	SYSCALL 133,sys_mknod,'SYS_MKNOD',3
+	;SYSCALL 134,sys_uselib,'SYS_USELIB',	NOT IMPLEMENTED
+	SYSCALL 135,sys_personality,'SYS_PERSONALITY',1
+	SYSCALL 136,sys_ustat,'SYS_USTAT',2
+	SYSCALL 137,sys_statfs,'SYS_STATFS',2
+	SYSCALL 138,sys_fstatfs,'SYS_FSTATFS',2
+	SYSCALL 139,sys_sysfs,'SYS_SYSFS',3
+	SYSCALL 140,sys_getpriority,'SYS_GETPRIORITY',2
+	SYSCALL 141,sys_setpriority,'SYS_SETPRIORITY',3
+	SYSCALL 142,sys_sched_setparam,'SYS_SCHED_SETPARAM',2
+	SYSCALL 143,sys_sched_getparam,'SYS_SCHED_GETPARAM',2
+	SYSCALL 144,sys_sched_setscheduler,'SYS_SCHED_SETSCHEDULER',3
+	SYSCALL 145,sys_sched_getscheduler,'SYS_SCHED_GETSCHEDULER',1
+	SYSCALL 146,sys_sched_get_priority_max,'SYS_SCHED_GET_PRIORITY_MAX',1
+	SYSCALL 147,sys_sched_get_priority_min,'SYS_SCHED_GET_PRIORITY_MIN',1
+	SYSCALL 148,sys_sched_rr_get_interval,'SYS_SCHED_RR_GET_INTERVAL',2
+	SYSCALL 149,sys_mlock,'SYS_MLOCK',2
+	SYSCALL 150,sys_munlock,'SYS_MUNLOCK',2
+	SYSCALL 151,sys_mlockall,'SYS_MLOCKALL',1
+	SYSCALL 152,sys_munlockall,'SYS_MUNLOCKALL',0
+	SYSCALL 153,sys_vhangup,'SYS_VHANGUP',0
+	SYSCALL 154,sys_modify_ldt,'SYS_MODIFY_LDT',3
+	SYSCALL 155,sys_pivot_root,'SYS_PIVOT_ROOT',2
+	SYSCALL 156,sys__sysctl,'SYS__SYSCTL',1
+	SYSCALL 157,sys_prctl,'SYS_PRCTL',6
+	SYSCALL 158,sys_arch_prctl,'SYS_ARCH_PRCTL',3
+	SYSCALL 159,sys_adjtimex,'SYS_ADJTIMEX',1
+	SYSCALL 160,sys_setrlimit,'SYS_SETRLIMIT',2
+	SYSCALL 161,sys_chroot,'SYS_CHROOT',1
+	SYSCALL 162,sys_sync,'SYS_SYNC',0
+	SYSCALL 163,sys_acct,'SYS_ACCT',1
+	SYSCALL 164,sys_settimeofday,'SYS_SETTIMEOFDAY',2
+	SYSCALL 165,sys_mount,'SYS_MOUNT',5
+	SYSCALL 166,sys_umount2,'SYS_UMOUNT2',2
+	SYSCALL 167,sys_swapon,'SYS_SWAPON',2
+	SYSCALL 168,sys_swapoff,'SYS_SWAPOFF',1
+	SYSCALL 169,sys_reboot,'SYS_REBOOT',4
+	SYSCALL 170,sys_sethostname,'SYS_SETHOSTNAME',2
+	SYSCALL 171,sys_setdomainname,'SYS_SETDOMAINNAME',2
+	SYSCALL 172,sys_iopl,'SYS_IOPL',2
+	SYSCALL 173,sys_ioperm,'SYS_IOPERM',3
+	;SYSCALL 174,sys_create_module,'SYS_CREATE_MODULE' REMOVED IN Linux 2.6
+	SYSCALL 175,sys_init_module,'SYS_INIT_MODULE',3
+	SYSCALL 176,sys_delete_module,'SYS_DELETE_MODULE',2
+	;SYSCALL 177,sys_get_kernel_syms, REMOVED IN Linux 2.6
+	;SYSCALL 178,sys_query_module,'SYS_QUERY_MODULE', REMOVED IN Linux 2.6
+	SYSCALL 179,sys_quotactl,'SYS_QUOTACTL',4
+	;SYSCALL 180,sys_nfsservctl,'SYS_NFSSERVCTL',	NOT IMPLEMENTED
+	;SYSCALL 181,sys_getpmsg,'SYS_GETPMSG',	NOT IMPLEMENTED
+	;SYSCALL 182,sys_putpmsg,'SYS_PUTPMSG',	NOT IMPLEMENTED
+	;SYSCALL 183,sys_afs_syscall,'SYS_AFS_SYSCALL',	NOT IMPLEMENTED
+	;SYSCALL 184,sys_tuxcall,'SYS_TUXCALL',	NOT IMPLEMENTED
+	;SYSCALL 185,sys_security,'SYS_SECURITY',	NOT IMPLEMENTED
+	SYSCALL 186,sys_gettid,'SYS_GETTID',0
+	SYSCALL 187,sys_readahead,'SYS_READAHEAD',3
+	SYSCALL 188,sys_setxattr,'SYS_SETXATTR',5
+	SYSCALL 189,sys_lsetxattr,'SYS_LSETXATTR',5
+	SYSCALL 190,sys_fsetxattr,'SYS_FSETXATTR',5
+	SYSCALL 191,sys_getxattr,'SYS_GETXATTR',4
+	SYSCALL 192,sys_lgetxattr,'SYS_LGETXATTR',4
+	SYSCALL 193,sys_fgetxattr,'SYS_FGETXATTR',4
+	SYSCALL 194,sys_listxattr,'SYS_LISTXATTR',3
+	SYSCALL 195,sys_llistxattr,'SYS_LLISTXATTR',4
+	SYSCALL 196,sys_flistxattr,'SYS_FLISTXATTR',3
+	SYSCALL 197,sys_removexattr,'SYS_REMOVEXATTR',2
+	SYSCALL 198,sys_lremovexattr,'SYS_LREMOVEXATTR',2
+	SYSCALL 199,sys_fremovexattr,'SYS_FREMOVEXATTR',2
+	SYSCALL 200,sys_tkill,'SYS_TKILL',2
+	SYSCALL 201,sys_time,'SYS_TIME',1
+	SYSCALL 202,sys_futex,'SYS_FUTEX',6
+	SYSCALL 203,sys_sched_setaffinity,'SYS_SCHED_SETAFFINITY',3
+	SYSCALL 204,sys_sched_getaffinity,'SYS_SCHED_GETAFFINITY',3
+	;SYSCALL 205,sys_set_thread_area, NOT IMPLEMENTED. Use arch_prctl
+	SYSCALL 206,sys_io_setup,'SYS_IO_SETUP',2
+	SYSCALL 207,sys_io_destroy,'SYS_IO_DESTROY',2
+	SYSCALL 208,sys_io_getevents,'SYS_IO_GETEVENTS',4
+	SYSCALL 209,sys_io_submit,'SYS_IO_SUBMIT',3
+	SYSCALL 210,sys_io_cancel,'SYS_IO_CANCEL',3
+	;SYSCALL 211,sys_get_thread_area, NOT IMPLEMENTED. Use arch_prctl
+	SYSCALL 212,sys_lookup_dcookie,'SYS_LOOKUP_DCOOKIE',3
+	SYSCALL 213,sys_epoll_create,'SYS_EPOLL_CREATE',1
+	;SYSCALL 214,sys_epoll_ctl_old,'SYS_EPOLL_CTL_OLD', NOT IMPLEMENTED
+	;SYSCALL 215,sys_epoll_wait_old,'SYS_EPOLL_WAIT_OLD', NOT IMPLEMENTED
+	SYSCALL 216,sys_remap_file_pages,'SYS_REMAP_FILE_PAGES',5
+	SYSCALL 217,sys_getdents64,'SYS_GETDENTS64',3
+	SYSCALL 218,sys_set_tid_address,'SYS_SET_TID_ADDRESS',1
+	SYSCALL 219,sys_restart_syscall,'SYS_RESTART_SYSCALL',0
+	SYSCALL 220,sys_semtimedop,'SYS_SEMTIMEDOP',4
+	SYSCALL 221,sys_fadvise64,'SYS_FADVISE64',4
+	SYSCALL 222,sys_timer_create,'SYS_TIMER_CREATE',3
+	SYSCALL 223,sys_timer_settime,'SYS_TIMER_SETTIME',4
+	SYSCALL 224,sys_timer_gettime,'SYS_TIMER_GETTIME',2
+	SYSCALL 225,sys_timer_getoverrun,'SYS_TIMER_GETOVERRUN',1
+	SYSCALL 226,sys_timer_delete,'SYS_TIMER_DELETE',1
+	SYSCALL 227,sys_clock_settime,'SYS_CLOCK_SETTIME',2
+	SYSCALL 228,sys_clock_gettime,'SYS_CLOCK_GETTIME',2
+	SYSCALL 229,sys_clock_getres,'SYS_CLOCK_GETRES',2
+	SYSCALL 230,sys_clock_nanosleep,'SYS_CLOCK_NANOSLEEP',4
+	SYSCALL 231,sys_exit_group,'SYS_EXIT_GROUP',1
+	SYSCALL 232,sys_epoll_wait,'SYS_EPOLL_WAIT',4
+	SYSCALL 233,sys_epoll_ctl,'SYS_EPOLL_CTL',4
+	SYSCALL 234,sys_tgkill,'SYS_TGKILL',3
+	SYSCALL 235,sys_utimes,'SYS_UTIMES',2
+	;SYSCALL 236,sys_vserver,'SYS_VSERVER',	NOT IMPLEMENTED
+	SYSCALL 237,sys_mbind,'SYS_MBIND',6
+	SYSCALL 238,sys_set_mempolicy,'SYS_SET_MEMPOLICY',3
+	SYSCALL 239,sys_get_mempolicy,'SYS_GET_MEMPOLICY',5
+	SYSCALL 240,sys_mq_open,'SYS_MQ_OPEN',4
+	SYSCALL 241,sys_mq_unlink,'SYS_MQ_UNLINK',1
+	SYSCALL 242,sys_mq_timedsend,'SYS_MQ_TIMEDSEND',5
+	SYSCALL 243,sys_mq_timedreceive,'SYS_MQ_TIMEDRECEIVE',5
+	SYSCALL 244,sys_mq_notify,'SYS_MQ_NOTIFY',2
+	SYSCALL 245,sys_mq_getsetattr,'SYS_MQ_GETSETATTR',3
+	SYSCALL 246,sys_kexec_load,'SYS_KEXEC_LOAD',4
+	SYSCALL 247,sys_waitid,'SYS_WAITID',5
+	SYSCALL 248,sys_add_key,'SYS_ADD_KEY',4
+	SYSCALL 249,sys_request_key,'SYS_REQUEST_KEY',4
+	SYSCALL 250,sys_keyctl,'SYS_KEYCTL',5
+	SYSCALL 251,sys_ioprio_set,'SYS_IOPRIO_SET',3
+	SYSCALL 252,sys_ioprio_get,'SYS_IOPRIO_GET',2
+	SYSCALL 253,sys_inotify_init,'SYS_INOTIFY_INIT',0
+	SYSCALL 254,sys_inotify_add_watch,'SYS_INOTIFY_ADD_WATCH',3
+	SYSCALL 255,sys_inotify_rm_watch,'SYS_INOTIFY_RM_WATCH',2
+	SYSCALL 256,sys_migrate_pages,'SYS_MIGRATE_PAGES',4
+	SYSCALL 257,sys_openat,'SYS_OPENAT',4
+	SYSCALL 258,sys_mkdirat,'SYS_MKDIRAT',3
+	SYSCALL 259,sys_mknodat,'SYS_MKNODAT',4
+	SYSCALL 260,sys_fchownat,'SYS_FCHOWNAT',5
+	SYSCALL 261,sys_futimesat,'SYS_FUTIMESAT',3
+	SYSCALL 262,sys_newfstatat,'SYS_NEWFSTATAT',4
+	SYSCALL 263,sys_unlinkat,'SYS_UNLINKAT',3
+	SYSCALL 264,sys_renameat,'SYS_RENAMEAT',4
+	SYSCALL 265,sys_linkat,'SYS_LINKAT',5
+	SYSCALL 266,sys_symlinkat,'SYS_SYMLINKAT',3
+	SYSCALL 267,sys_readlinkat,'SYS_READLINKAT',4
+	SYSCALL 268,sys_fchmodat,'SYS_FCHMODAT',3
+	SYSCALL 269,sys_faccessat,'SYS_FACCESSAT',3
+	SYSCALL 270,sys_pselect6,'SYS_PSELECT6',6
+	SYSCALL 271,sys_ppoll,'SYS_PPOLL',5
+	SYSCALL 272,sys_unshare,'SYS_UNSHARE',1
+	SYSCALL 273,sys_set_robust_list,'SYS_SET_ROBUST_LIST',2
+	SYSCALL 274,sys_get_robust_list,'SYS_GET_ROBUST_LIST',3
+	SYSCALL 275,sys_splice,'SYS_SPLICE',6
+	SYSCALL 276,sys_tee,'SYS_TEE',4
+	SYSCALL 277,sys_sync_file_range,'SYS_SYNC_FILE_RANGE',4
+	SYSCALL 278,sys_vmsplice,'SYS_VMSPLICE',4
+	SYSCALL 279,sys_move_pages,'SYS_MOVE_PAGES',6
+	SYSCALL 280,sys_utimensat,'SYS_UTIMENSAT',4
+	SYSCALL 281,sys_epoll_pwait,'SYS_EPOLL_PWAIT',6
+	SYSCALL 282,sys_signalfd,'SYS_SIGNALFD',3
+	SYSCALL 283,sys_timerfd_create,'SYS_TIMERFD_CREATE',2
+	SYSCALL 284,sys_eventfd,'SYS_EVENTFD',1
+	SYSCALL 285,sys_fallocate,'SYS_FALLOCATE',4
+	SYSCALL 286,sys_timerfd_settime,'SYS_TIMERFD_SETTIME',4
+	SYSCALL 287,sys_timerfd_gettime,'SYS_TIMERFD_GETTIME',2
+	SYSCALL 288,sys_accept4,'SYS_ACCEPT4',4
+	SYSCALL 289,sys_signalfd4,'SYS_SIGNALFD4',4
+	SYSCALL 290,sys_eventfd2,'SYS_EVENTFD2',2
+	SYSCALL 291,sys_epoll_create1,'SYS_EPOLL_CREATE1',1
+	SYSCALL 292,sys_dup3,'SYS_DUP3',3
+	SYSCALL 293,sys_pipe2,'SYS_PIPE2',2
+	SYSCALL 294,sys_inotify_init1,'SYS_INOTIFY_INIT1',1
+	SYSCALL 295,sys_preadv,'SYS_PREADV',5
+	SYSCALL 296,sys_pwritev,'SYS_PWRITEV',5
+	SYSCALL 297,sys_rt_tgsigqueueinfo,'SYS_RT_TGSIGQUEUEINFO',4
+	SYSCALL 298,sys_perf_event_open,'SYS_PERF_EVENT_OPEN',5
+	SYSCALL 299,sys_recvmmsg,'SYS_RECVMMSG',5
+	SYSCALL 300,sys_fanotify_init,'SYS_FANOTIFY_INIT',2
+	SYSCALL 301,sys_fanotify_mark,'SYS_FANOTIFY_MARK',5	
+	SYSCALL 302,sys_prlimit64,'SYS_PRLIMIT64',4
+	SYSCALL 303,sys_name_to_handle_at,'SYS_NAME_TO_HANDLE_AT',5
+	SYSCALL 304,sys_open_by_handle_at,'SYS_OPEN_BY_HANDLE_AT',5
+	SYSCALL 305,sys_clock_adjtime,'SYS_CLOCK_ADJTIME',2
+	SYSCALL 306,sys_syncfs,'SYS_SYNCFS',1
+	SYSCALL 307,sys_sendmmsg,'SYS_SENDMMSG',4
+	SYSCALL 308,sys_setns,'SYS_SETNS',2
+	SYSCALL 309,sys_getcpu,'SYS_GETCPU',3
+	SYSCALL 310,sys_process_vm_readv,'SYS_PROCESS_VM_READV',6
+	SYSCALL 311,sys_process_vm_writev,'SYS_PROCESS_VM_WRITEV',6
+	SYSCALL 312,sys_kcmp,'SYS_KCMP',5
+	SYSCALL 313,sys_finit_module,'SYS_FINIT_MODULE',3
+	SYSCALL 314,sys_sched_setattr,'SYS_SCHED_SETATTR',3
+	SYSCALL 315,sys_sched_getattr,'SYS_SCHED_GETATTR',4
+	SYSCALL 316,sys_renameat2,'SYS_RENAMEAT2',5
+	SYSCALL 317,sys_seccomp,'SYS_SECCOMP',3
+	SYSCALL 318,sys_getrandom,'SYS_GETRANDOM',3
+	SYSCALL 319,sys_memfd_create,'SYS_MEMFD_CREATE',2
+	SYSCALL 320,sys_kexec_file_load,'SYS_KEXEC_FILE_LOAD',5
+	SYSCALL 321,sys_bpf,'SYS_BPF',3
+	SYSCALL 322,stub_execveat,'STUB_EXECVEAT',5
+	SYSCALL 323,userfaultfd,'USERFAULTFD',1
+	SYSCALL 324,membarrier,'MEMBARRIER',2
+	SYSCALL 325,mlock2,'MLOCK2',3
+	SYSCALL 326,copy_file_range,'COPY_FILE_RANGE',6
+	SYSCALL 327,preadv2,'PREADV2',6
+	SYSCALL 328,pwritev2,'PWRITEV2',6
+	SYSCALL 329,pkey_mprotect,'PKEY_MPROTECT',0
+	SYSCALL 330,pkey_alloc,'PKEY_ALLOC',0
+	SYSCALL 331,pkey_free,'PKEY_FREE',0
+	SYSCALL 332,statx,'STATX',0
+	SYSCALL 333,io_pgetevents,'IO_PGETEVENTS',0
+	SYSCALL 334,rseq,'RSEQ',0
+	SYSCALL 335,pkey_mprotect1,'PKEY_MPROTECT1',0
diff --git a/syscalls.fasm b/syscalls.fasm
deleted file mode 100644
index ede8849..0000000
--- a/syscalls.fasm
+++ /dev/null
@@ -1,372 +0,0 @@
-;;; https://chromium.googlesource.com/chromiumos/docs/+/master/constants/syscalls.md
-;;;
-;;;          id  rtn  0     1    2    3    4  5
-;;; x86_64: rax, rax, rdi, rsi, rdx, r10, r8, r9
-
-;;; %rax	System call	%rdi	%rsi	%rdx	%r10	%r8	%r9
-
-;;; ==============================
-;;; Helper macro for layout of syscall argument registers
-
-macro SYSCALLARG register,count,nargs {
-if count < nargs
-	mov register, [rsp + ((nargs-count-1)*8)]
-end if
-}
-
-;;; Code layout for system call with up to 6 arguments
-macro SYSCALL id,name,fname,nargs {
-	WORD name,fname,fasm
-	pushr rsi
-name#_asm:
-	mov rax,qword id
-	SYSCALLARG r9,5,nargs
-	SYSCALLARG r8,4,nargs
-	SYSCALLARG r10,3,nargs
-	SYSCALLARG rdx,2,nargs
-	SYSCALLARG rsi,1,nargs
-	SYSCALLARG rdi,0,nargs
-if nargs > 0
-	add rsp,nargs*8
-end if
-	syscall
-	push rax
-	jmp exit
-}
-
-	SYSCALL 0,sys_read,'SYS_READ',3
-	SYSCALL 1,sys_write,'SYS_WRITE',3
-	SYSCALL 2,sys_open,'SYS_OPEN',3
-	SYSCALL 3,sys_close,'SYS_CLOSE',1
-	SYSCALL 4,sys_stat,'SYS_STAT',2
-	SYSCALL 5,sys_fstat,'SYS_FSTAT',2				
-	SYSCALL 6,sys_lstat,'SYS_LSTAT',2
-	SYSCALL 7,sys_poll,'SYS_POLL',3
-	SYSCALL 8,sys_lseek,'SYS_LSEEK',3
-	SYSCALL 9,sys_mmap,'SYS_MMAP',6
-	SYSCALL 10,sys_mprotect,'SYS_MPROTECT',3
-	SYSCALL 11,sys_munmap,'SYS_MUNMAP',2
-	SYSCALL 12,sys_brk,'SYS_BRK',1
-	SYSCALL 13,sys_rt_sigaction,'SYS_RT_SIGACTION',4
-	SYSCALL 14,sys_rt_sigprocmask,'SYS_RT_SIGPROCMASK',4
-	SYSCALL 15,sys_rt_sigreturn,'SYS_RT_SIGRETURN',1
-	SYSCALL 16,sys_ioctl,'SYS_IOCTL',3
-	SYSCALL 17,sys_pread64,'SYS_PREAD64',4
-	SYSCALL 18,sys_pwrite64,'SYS_PWRITE64',4
-	SYSCALL 19,sys_readv,'SYS_READV',3
-	SYSCALL 20,sys_writev,'SYS_WRITEV',3
-	SYSCALL 21,sys_access,'SYS_ACCESS',2
-	SYSCALL 22,sys_pipe,'SYS_PIPE',1
-	SYSCALL 23,sys_select,'SYS_SELECT',5
-	SYSCALL 24,sys_sched_yield,'SYS_SCHED_YIELD',0
-	SYSCALL 25,sys_mremap,'SYS_MREMAP',5
-	SYSCALL 26,sys_msync,'SYS_MSYNC',3
-	SYSCALL 27,sys_mincore,'SYS_MINCORE',3
-	SYSCALL 28,sys_madvise,'SYS_MADVISE',3
-	SYSCALL 29,sys_shmget,'SYS_SHMGET',3
-	SYSCALL 30,sys_shmat,'SYS_SHMAT',3
-	SYSCALL 31,sys_shmctl,'SYS_SHMCTL',3
-	SYSCALL 32,sys_dup,'SYS_DUP',1
-	SYSCALL 33,sys_dup2,'SYS_DUP2',2
-	SYSCALL 34,sys_pause,'SYS_PAUSE',0
-	SYSCALL 35,sys_nanosleep,'SYS_NANOSLEEP',2
-	SYSCALL 36,sys_getitimer,'SYS_GETITIMER',2
-	SYSCALL 37,sys_alarm,'SYS_ALARM',1
-	SYSCALL 38,sys_setitimer,'SYS_SETITIMER',3
-	SYSCALL 39,sys_getpid,'SYS_GETPID',0
-	SYSCALL 40,sys_sendfile,'SYS_SENDFILE',4
-	SYSCALL 41,sys_socket,'SYS_SOCKET',3
-	SYSCALL 42,sys_connect,'SYS_CONNECT',3
-	SYSCALL 43,sys_accept,'SYS_ACCEPT',3
-	SYSCALL 44,sys_sendto,'SYS_SENDTO',6
-	SYSCALL 45,sys_recvfrom,'SYS_RECVFROM',6
-	SYSCALL 46,sys_sendmsg,'SYS_SENDMSG',3			
-	SYSCALL 47,sys_recvmsg,'SYS_RECVMSG',3			
-	SYSCALL 48,sys_shutdown,'SYS_SHUTDOWN',2
-	SYSCALL 49,sys_bind,'SYS_BIND',3
-	SYSCALL 50,sys_listen,'SYS_LISTEN',2
-	SYSCALL 51,sys_getsockname,'SYS_GETSOCKNAME',3
-	SYSCALL 52,sys_getpeername,'SYS_GETPEERNAME',3
-	SYSCALL 53,sys_socketpair,'SYS_SOCKETPAIR',4
-	SYSCALL 54,sys_setsockopt,'SYS_SETSOCKOPT',5
-	SYSCALL 55,sys_getsockopt,'SYS_GETSOCKOPT',5
-	SYSCALL 56,sys_clone,'SYS_CLONE',5
-	SYSCALL 57,sys_fork,'SYS_FORK',0
-	SYSCALL 58,sys_vfork,'SYS_VFORK',0
-	SYSCALL 59,sys_execve,'SYS_EXECVE',3
-	SYSCALL 60,sys_exit,'SYS_EXIT',1
-	SYSCALL 61,sys_wait4,'SYS_WAIT4',4
-	SYSCALL 62,sys_kill,'SYS_KILL',2
-	SYSCALL 63,sys_uname,'SYS_UNAME',1
-	SYSCALL 64,sys_semget,'SYS_SEMGET',3
-	SYSCALL 65,sys_semop,'SYS_SEMOP',3
-	SYSCALL 66,sys_semctl,'SYS_SEMCTL',4
-	SYSCALL 67,sys_shmdt,'SYS_SHMDT',1
-	SYSCALL 68,sys_msgget,'SYS_MSGGET',2
-	SYSCALL 69,sys_msgsnd,'SYS_MSGSND',4
-	SYSCALL 70,sys_msgrcv,'SYS_MSGRCV',5
-	SYSCALL 71,sys_msgctl,'SYS_MSGCTL',3
-	SYSCALL 72,sys_fcntl,'SYS_FCNTL',3
-	SYSCALL 73,sys_flock,'SYS_FLOCK',2
-	SYSCALL 74,sys_fsync,'SYS_FSYNC',1
-	SYSCALL 75,sys_fdatasync,'SYS_FDATASYNC',1
-	SYSCALL 76,sys_truncate,'SYS_TRUNCATE',2
-	SYSCALL 77,sys_ftruncate,'SYS_FTRUNCATE',2
-	SYSCALL 78,sys_getdents,'SYS_GETDENTS',3
-	SYSCALL 79,sys_getcwd,'SYS_GETCWD',2
-	SYSCALL 80,sys_chdir,'SYS_CHDIR',1
-	SYSCALL 81,sys_fchdir,'SYS_FCHDIR',1
-	SYSCALL 82,sys_rename,'SYS_RENAME',2
-	SYSCALL 83,sys_mkdir,'SYS_MKDIR',2
-	SYSCALL 84,sys_rmdir,'SYS_RMDIR',1
-	SYSCALL 85,sys_creat,'SYS_CREAT',2
-	SYSCALL 86,sys_link,'SYS_LINK',2
-	SYSCALL 87,sys_unlink,'SYS_UNLINK',1
-	SYSCALL 88,sys_symlink,'SYS_SYMLINK',2
-	SYSCALL 89,sys_readlink,'SYS_READLINK',3
-	SYSCALL 90,sys_chmod,'SYS_CHMOD',2
-	SYSCALL 91,sys_fchmod,'SYS_FCHMOD',2
-	SYSCALL 92,sys_chown,'SYS_CHOWN',3
-	SYSCALL 93,sys_fchown,'SYS_FCHOWN',3
-	SYSCALL 94,sys_lchown,'SYS_LCHOWN',3
-	SYSCALL 95,sys_umask,'SYS_UMASK',1
-	SYSCALL 96,sys_gettimeofday,'SYS_GETTIMEOFDAY',2
-	SYSCALL 97,sys_getrlimit,'SYS_GETRLIMIT',2
-	SYSCALL 98,sys_getrusage,'SYS_GETRUSAGE',2
-	SYSCALL 99,sys_sysinfo,'SYS_SYSINFO',1
-	SYSCALL 100,sys_times,'SYS_TIMES',1
-	SYSCALL 101,sys_ptrace,'SYS_PTRACE',4
-	SYSCALL 102,sys_getuid,'SYS_GETUID',0
-	SYSCALL 103,sys_syslog,'SYS_SYSLOG',3
-	SYSCALL 104,sys_getgid,'SYS_GETGID',0
-	SYSCALL 105,sys_setuid,'SYS_SETUID',1
-	SYSCALL 106,sys_setgid,'SYS_SETGID',1
-	SYSCALL 107,sys_geteuid,'SYS_GETEUID',0
-	SYSCALL 108,sys_getegid,'SYS_GETEGID',0
-	SYSCALL 109,sys_setpgid,'SYS_SETPGID',2
-	SYSCALL 110,sys_getppid,'SYS_GETPPID',0
-	SYSCALL 111,sys_getpgrp,'SYS_GETPGRP',0
-	SYSCALL 112,sys_setsid,'SYS_SETSID',0
-	SYSCALL 113,sys_setreuid,'SYS_SETREUID',2
-	SYSCALL 114,sys_setregid,'SYS_SETREGID',2
-	SYSCALL 115,sys_getgroups,'SYS_GETGROUPS',2
-	SYSCALL 116,sys_setgroups,'SYS_SETGROUPS',2
-	SYSCALL 117,sys_setresuid,'SYS_SETRESUID',3
-	SYSCALL 118,sys_getresuid,'SYS_GETRESUID',3
-	SYSCALL 119,sys_setresgid,'SYS_SETRESGID',3
-	SYSCALL 120,sys_getresgid,'SYS_GETRESGID',3
-	SYSCALL 121,sys_getpgid,'SYS_GETPGID',1
-	SYSCALL 122,sys_setfsuid,'SYS_SETFSUID',1
-	SYSCALL 123,sys_setfsgid,'SYS_SETFSGID',1
-	SYSCALL 124,sys_getsid,'SYS_GETSID',1
-	SYSCALL 125,sys_capget,'SYS_CAPGET',2
-	SYSCALL 126,sys_capset,'SYS_CAPSET',2
-	SYSCALL 127,sys_rt_sigpending,'SYS_RT_SIGPENDING',2
-	SYSCALL 128,sys_rt_sigtimedwait,'SYS_RT_SIGTIMEDWAIT',4
-	SYSCALL 129,sys_rt_sigqueueinfo,'SYS_RT_SIGQUEUEINFO',3
-	SYSCALL 130,sys_rt_sigsuspend,'SYS_RT_SIGSUSPEND',2
-	SYSCALL 131,sys_sigaltstack,'SYS_SIGALTSTACK',2
-	SYSCALL 132,sys_utime,'SYS_UTIME',2
-	SYSCALL 133,sys_mknod,'SYS_MKNOD',3
-	;SYSCALL 134,sys_uselib,'SYS_USELIB',	NOT IMPLEMENTED
-	SYSCALL 135,sys_personality,'SYS_PERSONALITY',1
-	SYSCALL 136,sys_ustat,'SYS_USTAT',2
-	SYSCALL 137,sys_statfs,'SYS_STATFS',2
-	SYSCALL 138,sys_fstatfs,'SYS_FSTATFS',2
-	SYSCALL 139,sys_sysfs,'SYS_SYSFS',3
-	SYSCALL 140,sys_getpriority,'SYS_GETPRIORITY',2
-	SYSCALL 141,sys_setpriority,'SYS_SETPRIORITY',3
-	SYSCALL 142,sys_sched_setparam,'SYS_SCHED_SETPARAM',2
-	SYSCALL 143,sys_sched_getparam,'SYS_SCHED_GETPARAM',2
-	SYSCALL 144,sys_sched_setscheduler,'SYS_SCHED_SETSCHEDULER',3
-	SYSCALL 145,sys_sched_getscheduler,'SYS_SCHED_GETSCHEDULER',1
-	SYSCALL 146,sys_sched_get_priority_max,'SYS_SCHED_GET_PRIORITY_MAX',1
-	SYSCALL 147,sys_sched_get_priority_min,'SYS_SCHED_GET_PRIORITY_MIN',1
-	SYSCALL 148,sys_sched_rr_get_interval,'SYS_SCHED_RR_GET_INTERVAL',2
-	SYSCALL 149,sys_mlock,'SYS_MLOCK',2
-	SYSCALL 150,sys_munlock,'SYS_MUNLOCK',2
-	SYSCALL 151,sys_mlockall,'SYS_MLOCKALL',1
-	SYSCALL 152,sys_munlockall,'SYS_MUNLOCKALL',0
-	SYSCALL 153,sys_vhangup,'SYS_VHANGUP',0
-	SYSCALL 154,sys_modify_ldt,'SYS_MODIFY_LDT',3
-	SYSCALL 155,sys_pivot_root,'SYS_PIVOT_ROOT',2
-	SYSCALL 156,sys__sysctl,'SYS__SYSCTL',1
-	SYSCALL 157,sys_prctl,'SYS_PRCTL',6
-	SYSCALL 158,sys_arch_prctl,'SYS_ARCH_PRCTL',3
-	SYSCALL 159,sys_adjtimex,'SYS_ADJTIMEX',1
-	SYSCALL 160,sys_setrlimit,'SYS_SETRLIMIT',2
-	SYSCALL 161,sys_chroot,'SYS_CHROOT',1
-	SYSCALL 162,sys_sync,'SYS_SYNC',0
-	SYSCALL 163,sys_acct,'SYS_ACCT',1
-	SYSCALL 164,sys_settimeofday,'SYS_SETTIMEOFDAY',2
-	SYSCALL 165,sys_mount,'SYS_MOUNT',5
-	SYSCALL 166,sys_umount2,'SYS_UMOUNT2',2
-	SYSCALL 167,sys_swapon,'SYS_SWAPON',2
-	SYSCALL 168,sys_swapoff,'SYS_SWAPOFF',1
-	SYSCALL 169,sys_reboot,'SYS_REBOOT',4
-	SYSCALL 170,sys_sethostname,'SYS_SETHOSTNAME',2
-	SYSCALL 171,sys_setdomainname,'SYS_SETDOMAINNAME',2
-	SYSCALL 172,sys_iopl,'SYS_IOPL',2
-	SYSCALL 173,sys_ioperm,'SYS_IOPERM',3
-	;SYSCALL 174,sys_create_module,'SYS_CREATE_MODULE' REMOVED IN Linux 2.6
-	SYSCALL 175,sys_init_module,'SYS_INIT_MODULE',3
-	SYSCALL 176,sys_delete_module,'SYS_DELETE_MODULE',2
-	;SYSCALL 177,sys_get_kernel_syms, REMOVED IN Linux 2.6
-	;SYSCALL 178,sys_query_module,'SYS_QUERY_MODULE', REMOVED IN Linux 2.6
-	SYSCALL 179,sys_quotactl,'SYS_QUOTACTL',4
-	;SYSCALL 180,sys_nfsservctl,'SYS_NFSSERVCTL',	NOT IMPLEMENTED
-	;SYSCALL 181,sys_getpmsg,'SYS_GETPMSG',	NOT IMPLEMENTED
-	;SYSCALL 182,sys_putpmsg,'SYS_PUTPMSG',	NOT IMPLEMENTED
-	;SYSCALL 183,sys_afs_syscall,'SYS_AFS_SYSCALL',	NOT IMPLEMENTED
-	;SYSCALL 184,sys_tuxcall,'SYS_TUXCALL',	NOT IMPLEMENTED
-	;SYSCALL 185,sys_security,'SYS_SECURITY',	NOT IMPLEMENTED
-	SYSCALL 186,sys_gettid,'SYS_GETTID',0
-	SYSCALL 187,sys_readahead,'SYS_READAHEAD',3
-	SYSCALL 188,sys_setxattr,'SYS_SETXATTR',5
-	SYSCALL 189,sys_lsetxattr,'SYS_LSETXATTR',5
-	SYSCALL 190,sys_fsetxattr,'SYS_FSETXATTR',5
-	SYSCALL 191,sys_getxattr,'SYS_GETXATTR',4
-	SYSCALL 192,sys_lgetxattr,'SYS_LGETXATTR',4
-	SYSCALL 193,sys_fgetxattr,'SYS_FGETXATTR',4
-	SYSCALL 194,sys_listxattr,'SYS_LISTXATTR',3
-	SYSCALL 195,sys_llistxattr,'SYS_LLISTXATTR',4
-	SYSCALL 196,sys_flistxattr,'SYS_FLISTXATTR',3
-	SYSCALL 197,sys_removexattr,'SYS_REMOVEXATTR',2
-	SYSCALL 198,sys_lremovexattr,'SYS_LREMOVEXATTR',2
-	SYSCALL 199,sys_fremovexattr,'SYS_FREMOVEXATTR',2
-	SYSCALL 200,sys_tkill,'SYS_TKILL',2
-	SYSCALL 201,sys_time,'SYS_TIME',1
-	SYSCALL 202,sys_futex,'SYS_FUTEX',6
-	SYSCALL 203,sys_sched_setaffinity,'SYS_SCHED_SETAFFINITY',3
-	SYSCALL 204,sys_sched_getaffinity,'SYS_SCHED_GETAFFINITY',3
-	;SYSCALL 205,sys_set_thread_area, NOT IMPLEMENTED. Use arch_prctl
-	SYSCALL 206,sys_io_setup,'SYS_IO_SETUP',2
-	SYSCALL 207,sys_io_destroy,'SYS_IO_DESTROY',2
-	SYSCALL 208,sys_io_getevents,'SYS_IO_GETEVENTS',4
-	SYSCALL 209,sys_io_submit,'SYS_IO_SUBMIT',3
-	SYSCALL 210,sys_io_cancel,'SYS_IO_CANCEL',3
-	;SYSCALL 211,sys_get_thread_area, NOT IMPLEMENTED. Use arch_prctl
-	SYSCALL 212,sys_lookup_dcookie,'SYS_LOOKUP_DCOOKIE',3
-	SYSCALL 213,sys_epoll_create,'SYS_EPOLL_CREATE',1
-	;SYSCALL 214,sys_epoll_ctl_old,'SYS_EPOLL_CTL_OLD', NOT IMPLEMENTED
-	;SYSCALL 215,sys_epoll_wait_old,'SYS_EPOLL_WAIT_OLD', NOT IMPLEMENTED
-	SYSCALL 216,sys_remap_file_pages,'SYS_REMAP_FILE_PAGES',5
-	SYSCALL 217,sys_getdents64,'SYS_GETDENTS64',3
-	SYSCALL 218,sys_set_tid_address,'SYS_SET_TID_ADDRESS',1
-	SYSCALL 219,sys_restart_syscall,'SYS_RESTART_SYSCALL',0
-	SYSCALL 220,sys_semtimedop,'SYS_SEMTIMEDOP',4
-	SYSCALL 221,sys_fadvise64,'SYS_FADVISE64',4
-	SYSCALL 222,sys_timer_create,'SYS_TIMER_CREATE',3
-	SYSCALL 223,sys_timer_settime,'SYS_TIMER_SETTIME',4
-	SYSCALL 224,sys_timer_gettime,'SYS_TIMER_GETTIME',2
-	SYSCALL 225,sys_timer_getoverrun,'SYS_TIMER_GETOVERRUN',1
-	SYSCALL 226,sys_timer_delete,'SYS_TIMER_DELETE',1
-	SYSCALL 227,sys_clock_settime,'SYS_CLOCK_SETTIME',2
-	SYSCALL 228,sys_clock_gettime,'SYS_CLOCK_GETTIME',2
-	SYSCALL 229,sys_clock_getres,'SYS_CLOCK_GETRES',2
-	SYSCALL 230,sys_clock_nanosleep,'SYS_CLOCK_NANOSLEEP',4
-	SYSCALL 231,sys_exit_group,'SYS_EXIT_GROUP',1
-	SYSCALL 232,sys_epoll_wait,'SYS_EPOLL_WAIT',4
-	SYSCALL 233,sys_epoll_ctl,'SYS_EPOLL_CTL',4
-	SYSCALL 234,sys_tgkill,'SYS_TGKILL',3
-	SYSCALL 235,sys_utimes,'SYS_UTIMES',2
-	;SYSCALL 236,sys_vserver,'SYS_VSERVER',	NOT IMPLEMENTED
-	SYSCALL 237,sys_mbind,'SYS_MBIND',6
-	SYSCALL 238,sys_set_mempolicy,'SYS_SET_MEMPOLICY',3
-	SYSCALL 239,sys_get_mempolicy,'SYS_GET_MEMPOLICY',5
-	SYSCALL 240,sys_mq_open,'SYS_MQ_OPEN',4
-	SYSCALL 241,sys_mq_unlink,'SYS_MQ_UNLINK',1
-	SYSCALL 242,sys_mq_timedsend,'SYS_MQ_TIMEDSEND',5
-	SYSCALL 243,sys_mq_timedreceive,'SYS_MQ_TIMEDRECEIVE',5
-	SYSCALL 244,sys_mq_notify,'SYS_MQ_NOTIFY',2
-	SYSCALL 245,sys_mq_getsetattr,'SYS_MQ_GETSETATTR',3
-	SYSCALL 246,sys_kexec_load,'SYS_KEXEC_LOAD',4
-	SYSCALL 247,sys_waitid,'SYS_WAITID',5
-	SYSCALL 248,sys_add_key,'SYS_ADD_KEY',4
-	SYSCALL 249,sys_request_key,'SYS_REQUEST_KEY',4
-	SYSCALL 250,sys_keyctl,'SYS_KEYCTL',5
-	SYSCALL 251,sys_ioprio_set,'SYS_IOPRIO_SET',3
-	SYSCALL 252,sys_ioprio_get,'SYS_IOPRIO_GET',2
-	SYSCALL 253,sys_inotify_init,'SYS_INOTIFY_INIT',0
-	SYSCALL 254,sys_inotify_add_watch,'SYS_INOTIFY_ADD_WATCH',3
-	SYSCALL 255,sys_inotify_rm_watch,'SYS_INOTIFY_RM_WATCH',2
-	SYSCALL 256,sys_migrate_pages,'SYS_MIGRATE_PAGES',4
-	SYSCALL 257,sys_openat,'SYS_OPENAT',4
-	SYSCALL 258,sys_mkdirat,'SYS_MKDIRAT',3
-	SYSCALL 259,sys_mknodat,'SYS_MKNODAT',4
-	SYSCALL 260,sys_fchownat,'SYS_FCHOWNAT',5
-	SYSCALL 261,sys_futimesat,'SYS_FUTIMESAT',3
-	SYSCALL 262,sys_newfstatat,'SYS_NEWFSTATAT',4
-	SYSCALL 263,sys_unlinkat,'SYS_UNLINKAT',3
-	SYSCALL 264,sys_renameat,'SYS_RENAMEAT',4
-	SYSCALL 265,sys_linkat,'SYS_LINKAT',5
-	SYSCALL 266,sys_symlinkat,'SYS_SYMLINKAT',3
-	SYSCALL 267,sys_readlinkat,'SYS_READLINKAT',4
-	SYSCALL 268,sys_fchmodat,'SYS_FCHMODAT',3
-	SYSCALL 269,sys_faccessat,'SYS_FACCESSAT',3
-	SYSCALL 270,sys_pselect6,'SYS_PSELECT6',6
-	SYSCALL 271,sys_ppoll,'SYS_PPOLL',5
-	SYSCALL 272,sys_unshare,'SYS_UNSHARE',1
-	SYSCALL 273,sys_set_robust_list,'SYS_SET_ROBUST_LIST',2
-	SYSCALL 274,sys_get_robust_list,'SYS_GET_ROBUST_LIST',3
-	SYSCALL 275,sys_splice,'SYS_SPLICE',6
-	SYSCALL 276,sys_tee,'SYS_TEE',4
-	SYSCALL 277,sys_sync_file_range,'SYS_SYNC_FILE_RANGE',4
-	SYSCALL 278,sys_vmsplice,'SYS_VMSPLICE',4
-	SYSCALL 279,sys_move_pages,'SYS_MOVE_PAGES',6
-	SYSCALL 280,sys_utimensat,'SYS_UTIMENSAT',4
-	SYSCALL 281,sys_epoll_pwait,'SYS_EPOLL_PWAIT',6
-	SYSCALL 282,sys_signalfd,'SYS_SIGNALFD',3
-	SYSCALL 283,sys_timerfd_create,'SYS_TIMERFD_CREATE',2
-	SYSCALL 284,sys_eventfd,'SYS_EVENTFD',1
-	SYSCALL 285,sys_fallocate,'SYS_FALLOCATE',4
-	SYSCALL 286,sys_timerfd_settime,'SYS_TIMERFD_SETTIME',4
-	SYSCALL 287,sys_timerfd_gettime,'SYS_TIMERFD_GETTIME',2
-	SYSCALL 288,sys_accept4,'SYS_ACCEPT4',4
-	SYSCALL 289,sys_signalfd4,'SYS_SIGNALFD4',4
-	SYSCALL 290,sys_eventfd2,'SYS_EVENTFD2',2
-	SYSCALL 291,sys_epoll_create1,'SYS_EPOLL_CREATE1',1
-	SYSCALL 292,sys_dup3,'SYS_DUP3',3
-	SYSCALL 293,sys_pipe2,'SYS_PIPE2',2
-	SYSCALL 294,sys_inotify_init1,'SYS_INOTIFY_INIT1',1
-	SYSCALL 295,sys_preadv,'SYS_PREADV',5
-	SYSCALL 296,sys_pwritev,'SYS_PWRITEV',5
-	SYSCALL 297,sys_rt_tgsigqueueinfo,'SYS_RT_TGSIGQUEUEINFO',4
-	SYSCALL 298,sys_perf_event_open,'SYS_PERF_EVENT_OPEN',5
-	SYSCALL 299,sys_recvmmsg,'SYS_RECVMMSG',5
-	SYSCALL 300,sys_fanotify_init,'SYS_FANOTIFY_INIT',2
-	SYSCALL 301,sys_fanotify_mark,'SYS_FANOTIFY_MARK',5	
-	SYSCALL 302,sys_prlimit64,'SYS_PRLIMIT64',4
-	SYSCALL 303,sys_name_to_handle_at,'SYS_NAME_TO_HANDLE_AT',5
-	SYSCALL 304,sys_open_by_handle_at,'SYS_OPEN_BY_HANDLE_AT',5
-	SYSCALL 305,sys_clock_adjtime,'SYS_CLOCK_ADJTIME',2
-	SYSCALL 306,sys_syncfs,'SYS_SYNCFS',1
-	SYSCALL 307,sys_sendmmsg,'SYS_SENDMMSG',4
-	SYSCALL 308,sys_setns,'SYS_SETNS',2
-	SYSCALL 309,sys_getcpu,'SYS_GETCPU',3
-	SYSCALL 310,sys_process_vm_readv,'SYS_PROCESS_VM_READV',6
-	SYSCALL 311,sys_process_vm_writev,'SYS_PROCESS_VM_WRITEV',6
-	SYSCALL 312,sys_kcmp,'SYS_KCMP',5
-	SYSCALL 313,sys_finit_module,'SYS_FINIT_MODULE',3
-	SYSCALL 314,sys_sched_setattr,'SYS_SCHED_SETATTR',3
-	SYSCALL 315,sys_sched_getattr,'SYS_SCHED_GETATTR',4
-	SYSCALL 316,sys_renameat2,'SYS_RENAMEAT2',5
-	SYSCALL 317,sys_seccomp,'SYS_SECCOMP',3
-	SYSCALL 318,sys_getrandom,'SYS_GETRANDOM',3
-	SYSCALL 319,sys_memfd_create,'SYS_MEMFD_CREATE',2
-	SYSCALL 320,sys_kexec_file_load,'SYS_KEXEC_FILE_LOAD',5
-	SYSCALL 321,sys_bpf,'SYS_BPF',3
-	SYSCALL 322,stub_execveat,'STUB_EXECVEAT',5
-	SYSCALL 323,userfaultfd,'USERFAULTFD',1
-	SYSCALL 324,membarrier,'MEMBARRIER',2
-	SYSCALL 325,mlock2,'MLOCK2',3
-	SYSCALL 326,copy_file_range,'COPY_FILE_RANGE',6
-	SYSCALL 327,preadv2,'PREADV2',6
-	SYSCALL 328,pwritev2,'PWRITEV2',6
-	SYSCALL 329,pkey_mprotect,'PKEY_MPROTECT',0
-	SYSCALL 330,pkey_alloc,'PKEY_ALLOC',0
-	SYSCALL 331,pkey_free,'PKEY_FREE',0
-	SYSCALL 332,statx,'STATX',0
-	SYSCALL 333,io_pgetevents,'IO_PGETEVENTS',0
-	SYSCALL 334,rseq,'RSEQ',0
-	SYSCALL 335,pkey_mprotect1,'PKEY_MPROTECT1',0
diff --git a/wordlists.asm b/wordlists.asm
new file mode 100644
index 0000000..9790a28
--- /dev/null
+++ b/wordlists.asm
@@ -0,0 +1,59 @@
+;;; This file contains words dealing with word lists (vocabularies)
+;;;
+	WORD p_wordlists,'WORDLIST',dovariable
+	;; VARIABLE WORDLIST is the currently active wordlist.
+	dq last_word
+
+	WORD p_strncmp,'STRNCMP',fasm
+	;; ( chars1 chars2 n -- flag )
+	;; Compare bytes until one is NUL, return <0, =0 or >0 to
+	;; indicate that chars1 is lesser, they are equal, or chars2
+	;; is lesser in ascii ordering respectively.
+	pop rdx
+	pop rbx
+	pop rax
+	xor rcx,rcx
+	;; rax = chars1, rbx = chars2, cl = byte acc, rdx = length
+	inc rdx
+p_strncmp_loop:
+	dec rdx
+	je p_strncmp_end
+	mov cl,[rax]
+	inc rax
+	sub cl,[rbx]
+	inc rbx
+	je p_strncmp_loop
+p_strncmp_end:
+	push rcx
+	next
+
+	WORD p_find,'FIND'
+	;; ( chars length -- [ chars 0 | cfa 1 )
+	;; Search the current wordlists for the given pname
+	mov rcx,[p_wordlists_DFA]
+p_find_loop:
+	cmp rcx,0
+	je p_find_done
+	mov rbx,[rsp]
+	mov rax,[rsp+8]
+	cmp bl,byte [rcx+10]
+	jne p_find_nextword
+	push rcx
+	;; check word
+	push rax
+	push rcx+11
+	push rbx
+	DOFORTH p_strncmp
+	pop rax			; return value
+	pop rcx
+	cmp rax,0
+	je p_find_done
+p_find_nextword:
+	mov rcx,[rcx]
+	jmp p_find_loop
+p_find_found:
+	mov qword [rsp+8],rcx	; replace chars with tfa
+	mov rcx,1
+p_find_done:
+	push rcx
+	next
diff --git a/wordlists.fasm b/wordlists.fasm
deleted file mode 100644
index 9790a28..0000000
--- a/wordlists.fasm
+++ /dev/null
@@ -1,59 +0,0 @@
-;;; This file contains words dealing with word lists (vocabularies)
-;;;
-	WORD p_wordlists,'WORDLIST',dovariable
-	;; VARIABLE WORDLIST is the currently active wordlist.
-	dq last_word
-
-	WORD p_strncmp,'STRNCMP',fasm
-	;; ( chars1 chars2 n -- flag )
-	;; Compare bytes until one is NUL, return <0, =0 or >0 to
-	;; indicate that chars1 is lesser, they are equal, or chars2
-	;; is lesser in ascii ordering respectively.
-	pop rdx
-	pop rbx
-	pop rax
-	xor rcx,rcx
-	;; rax = chars1, rbx = chars2, cl = byte acc, rdx = length
-	inc rdx
-p_strncmp_loop:
-	dec rdx
-	je p_strncmp_end
-	mov cl,[rax]
-	inc rax
-	sub cl,[rbx]
-	inc rbx
-	je p_strncmp_loop
-p_strncmp_end:
-	push rcx
-	next
-
-	WORD p_find,'FIND'
-	;; ( chars length -- [ chars 0 | cfa 1 )
-	;; Search the current wordlists for the given pname
-	mov rcx,[p_wordlists_DFA]
-p_find_loop:
-	cmp rcx,0
-	je p_find_done
-	mov rbx,[rsp]
-	mov rax,[rsp+8]
-	cmp bl,byte [rcx+10]
-	jne p_find_nextword
-	push rcx
-	;; check word
-	push rax
-	push rcx+11
-	push rbx
-	DOFORTH p_strncmp
-	pop rax			; return value
-	pop rcx
-	cmp rax,0
-	je p_find_done
-p_find_nextword:
-	mov rcx,[rcx]
-	jmp p_find_loop
-p_find_found:
-	mov qword [rsp+8],rcx	; replace chars with tfa
-	mov rcx,1
-p_find_done:
-	push rcx
-	next