From a17da42021d25ee7ada45b79e9334237e8e9f04c Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 28 Mar 2020 13:12:07 -0400
Subject: [PATCH] forth: remove unused (fbr) and (bbr)

---
 emul/forth/z80c.bin | Bin 1037 -> 1037 bytes
 forth/forth.asm     |  50 +-------------------------------------------
 2 files changed, 1 insertion(+), 49 deletions(-)

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index a0a132363819b9e457ff8195cfa14b4cd6d54cf2..0e6fbf1d9b9e4f027442ef0b294bdb41c5e377f7 100644
GIT binary patch
delta 279
zcmeC>=;hcT&J-XZ!p_sr&B5%*<mlud6e7&P%Exe?BY??~NuwaKs5n)VpMjl^!G(1?
zlQ<_xtSB?DL{ktX7S6`Z5zcm)Wja$m69<DOn<bkg(|wM~=}el!wwxfv&N?y-OneL%
zSykCSvrk^k<iNCwbMjLrcZbuQNh}~y1qMcjY3$)_7g+_^+}NhEgT(Fw@icZ0=1xus
zPXK7Dr(cL`P(YAth&=-*AH!+R$vMp4VPRa3Ojhy?jeHCuTnY?)3>?g-Icva<kpMbv
z83)8!9nAGiEI_$>CN73|K%+aDe{t3`UHk9IWNiu3tH9vM#KBz40djmiKLaBG3-~&P

delta 279
zcmeC>=;hcT&J@rm%+Ax#&B5%*<mlud6e7&P%Eu7M8NlSoq*0JqRGg~G&%n;d;KDkc
zX(lH~tSB?DL{ktX7S7hn5zcm)Wja$m69<DOn<bkgQzGZ&bS6#V{hT1h&N?y-OneL%
zSykCeIVLY=a$wTon*5Z>-NBbDi3KF8z`)2L0W{+xs{orDn*;|)>^=}naBwhlb3u3l
zKvO;aLR^Caf?PxF894bEe7Pp)FnfpH;BsWLl4oe-W0=OJz`)1A!R*Ub19prA&}kZ+
x5NCBT*E6vI<?5NZ7~TPm?qIIrs%N_P-;v4M5~Npw!I6oB`9BB9@$vi&i~vVDI5z+Q

diff --git a/forth/forth.asm b/forth/forth.asm
index d0140c7..26ffeba 100644
--- a/forth/forth.asm
+++ b/forth/forth.asm
@@ -690,12 +690,6 @@ CSKIP:
 	ld	de, BR
 	call	.HLPointsDE
 	jr	z, .isNum
-	ld	de, FBR
-	call	.HLPointsDE
-	jr	z, .isBranch
-	ld	de, BBR
-	call	.HLPointsDE
-	jr	z, .isBranch
 	ld	de, LIT
 	call	.HLPointsDE
 	jr	nz, .isWord
@@ -707,9 +701,6 @@ CSKIP:
 .isNum:
 	; skip by 4
 	inc	hl
-	; continue to isBranch
-.isBranch:
-	; skip by 3
 	inc	hl
 	; continue to isWord
 .isWord:
@@ -730,7 +721,7 @@ CSKIP:
 	cp	d		; Z has our answer
 	ret
 
-.fill 29
+.fill 45
 
 	.db	","
 	.dw	$-CSKIP
@@ -1069,45 +1060,6 @@ CMP:
 	push	bc
 	jp	next
 
-.fill 80
-; This word's atom is followed by 1b *relative* offset (to the cell's addr) to
-; where to branch to. For example, The branching cell of "IF THEN" would
-; contain 3. Add this value to RS.
-	.db	"(fbr)"
-	.dw	$-CMP
-	.db	5
-; STABLE ABI
-; Offset: 073e
-.out $
-FBR:
-	.dw	nativeWord
-	push	de
-	ld	hl, (IP)
-	ld	a, (hl)
-	call	addHL
-	ld	(IP), hl
-	pop	de
-	jp	next
-
-	.db	"(bbr)"
-	.dw	$-FBR
-	.db	5
-; STABLE ABI
-; Offset: 0757
-.out $
-BBR:
-	.dw	nativeWord
-	ld	hl, (IP)
-	ld	d, 0
-	ld	e, (hl)
-	or	a		; clear carry
-	sbc	hl, de
-	ld	(IP), hl
-	jp	next
-
-; To allow dict binaries to "hook themselves up", we always end such binary
-; with a dummy, *empty* entry. Therefore, we can have a predictable place for
-; getting a prev label.
 	.db	"_bend"
 	.dw	$-CMP
 	.db	5