hex dpy words, .s in forth!

1 files changed, 37 insertions, 36 deletions

diff --git a/jefs.s b/jefs.s
index da26f5e..c4dcbdf 100644
--- a/jefs.s
+++ b/jefs.s
@@ -1002,42 +1002,42 @@ defword "0branch", zerobranch, 0
 ; debugging word; outputs raw bytes so needs to be piped through `x(x)d`
 ; terrible and awful
 ; W = r14; W <= wstack_b; W+=8
-defword ".s", dots, 0
-	push r11
-	push r12
-
-	mov r12, r14
-.loop:
-	cmp r12, wstack
-	jge .done
-
-	mov [.space], r12
-	mov rdx, 8 ; qword
-	mov rsi, .space
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-
-	mov rdx, 8 ; qword
-	mov rsi, r12
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-	lea r12, [r12+8]
-	jmp .loop
-
-.done:
-	mov rdx, 16 ; 2 qword
-	mov rsi, .dmsg
-	mov rdi, 1
-	mov rax, __NR_write
-	syscall
-
-	pop r12
-	pop r11
-	ret
-.space: resq 1
-.dmsg: db "DONEDONEYIPPEEEE"
+; defword ".s", dots, 0
+; 	push r11
+; 	push r12
+;
+; 	mov r12, r14
+; .loop:
+; 	cmp r12, wstack
+; 	jge .done
+;
+; 	mov [.space], r12
+; 	mov rdx, 8 ; qword
+; 	mov rsi, .space
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+;
+; 	mov rdx, 8 ; qword
+; 	mov rsi, r12
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+; 	lea r12, [r12+8]
+; 	jmp .loop
+;
+; .done:
+; 	mov rdx, 16 ; 2 qword
+; 	mov rsi, .dmsg
+; 	mov rdi, 1
+; 	mov rax, __NR_write
+; 	syscall
+;
+; 	pop r12
+; 	pop r11
+; 	ret
+; .space: resq 1
+; .dmsg: db "DONEDONEYIPPEEEE"
 
 defword "HEREDUMP", heredump, 0
 	mov rdx, [here]
@@ -1055,6 +1055,7 @@ defvar "#tib", num_tib, 0, initlen
 defvar ">in", to_in, 0, 0
 defvar "state", state, 0, interpreting
 defvar "here", here, 0, umem
+defvar "s0", s0, 0, wstack - 8
 defvar "h0", h0, 0, umem ; beginning of user memory area
 defvar "hend", hend, 0, umem_e ; ending of user memory area
 defvar "base", base, 0, 10