From ab98e9bcd107a65ed2470aa291aea60bb09b724e Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 28 Mar 2020 09:19:40 -0400
Subject: [PATCH] forth: Forth-ify "(uflw)"

---
 emul/forth/z80c.bin | Bin 840 -> 875 bytes
 forth/forth.asm     |  34 ++++++++--------------------------
 forth/icore.fs      |   4 ++++
 3 files changed, 12 insertions(+), 26 deletions(-)

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index ad2283f1903af1c85009952c99e0b36f907764b2..821f6ba49b32b62dddc4bf5ba95b6c617c38cbd7 100644
GIT binary patch
delta 84
zcmX@X_L^<OFGkjIAt&xrlm9c$SJNm>%PH5?U|{28P+}-9NlebxEzL_wElSJDFK2ke
ona||N<g6nzc_EXZuo>4yR#mq9tO9I~OjhO$jeHCdlbM*^0E!tHO#lD@

delta 49
zcmaFOc7kogFGkiNAzSXFlm9c$XLi<6nS6xFPgt1iBC9IfeO3WBM<y$ChDJUH)5)sL
FZUCCh4fFs2

diff --git a/forth/forth.asm b/forth/forth.asm
index 7d7d374..1d5d01c 100644
--- a/forth/forth.asm
+++ b/forth/forth.asm
@@ -32,17 +32,11 @@
 ; *** Const ***
 ; Base of the Return Stack
 .equ	RS_ADDR		0xf000
-; Number of bytes we keep as a padding between HERE and the scratchpad
-.equ	PADDING		0x20
 ; Buffer where WORD copies its read word to.
 .equ	WORD_BUFSIZE		0x20
 ; Allocated space for sysvars (see comment above SYSVCNT)
 .equ	SYSV_BUFSIZE		0x10
 
-; Flags for the "flag field" of the word structure
-; IMMEDIATE word
-.equ	FLAG_IMMED	7
-
 ; *** Variables ***
 .equ	INITIAL_SP	RAMSTART
 ; wordref of the last entry of the dict.
@@ -66,8 +60,6 @@
 .equ	CINPTR		@+2
 ; Pointer to (emit) word
 .equ	EMITPTR		@+2
-; Pointer to (print) word
-.equ	PRINTPTR	@+2
 .equ	WORDBUF		@+2
 ; Sys Vars are variables with their value living in the system RAM segment. We
 ; need this mechanisms for core Forth source needing variables. Because core
@@ -156,10 +148,6 @@ forthMain:
 	ld	hl, .emitName
 	call	find
 	ld	(EMITPTR), de
-	; Set up PRINTPTR
-	ld	hl, .printName
-	call	find
-	ld	(PRINTPTR), de
 	; Set up CINPTR
 	; do we have a (c<) impl?
 	ld	hl, .cinName
@@ -184,8 +172,6 @@ forthMain:
 	.db	"(c<)", 0
 .emitName:
 	.db	"(emit)", 0
-.printName:
-	.db	"(print)", 0
 .keyName:
 	.db	"KEY", 0
 .bootName:
@@ -199,7 +185,7 @@ INTERPRET:
 	.dw	DROP
 	.dw	EXECUTE
 
-.fill 25
+.fill 43
 
 ; *** Collapse OS lib copy ***
 ; In the process of Forth-ifying Collapse OS, apps will be slowly rewritten to
@@ -679,18 +665,14 @@ ABORT:
 	jp	next
 
 abortUnderflow:
-	ld	hl, .word
-	push	hl
+	ld	hl, .name
+	call	find
+	push	de
 	jp	EXECUTE+2
-.word:
-	.dw	compiledWord
-	.dw	LIT
-	.db	"stack underfl", 0
-	.dw	NUMBER
-	.dw	PRINTPTR
-	.dw	FETCH
-	.dw	EXECUTE
-	.dw	ABORT
+.name:
+	.db "(uflw)", 0
+
+.fill 18
 
 	.db "BYE"
 	.dw $-ABORT
diff --git a/forth/icore.fs b/forth/icore.fs
index 199cbf9..51465ec 100644
--- a/forth/icore.fs
+++ b/forth/icore.fs
@@ -86,6 +86,10 @@
     AGAIN
 ;
 
+: (uflw)
+    LIT< stack-underflow _c (print) ABORT
+;
+
 : C,
     HERE @ _c C!
     HERE @ 1 + HERE !