From 474b928cac965b078a9cb1e9fdb7a2da66cf607a Mon Sep 17 00:00:00 2001
From: Leo C <erbl259-lmu@yahoo.de>
Date: Tue, 27 Nov 2018 07:15:45 +0100
Subject: [PATCH 1/1] Remove print error function pointer

---
 ddt180.z80       | 26 ++++++--------------------
 filter-unref.awk |  2 +-
 2 files changed, 7 insertions(+), 21 deletions(-)

diff --git a/ddt180.z80 b/ddt180.z80
index dbcebc8..99a690a 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -123,7 +123,6 @@ reg.pc:	dw	TPA
 var.$:	dw	0000h
 var.@:	dw	0
 
-error_func:dw	p_msg_error
 cmd_rpt:dw	mainloop
 
 ;-------------------------------------------------------------------------------
@@ -201,10 +200,13 @@ CMDTAB:
 	dw	cmd_Y		;examine [and substitute] Y variables
 	dw	cmd_Z		;Zap (fill) memory with a byte string
 
+ERROR:
+p_msg_error:
+	call	pstr_inl
+	dc	'?',CR,LF
+	;fall thru
 mainloop:
 	ld sp,stack
-	ld hl,p_msg_error
-	ld (error_func),hl
 	ld hl,(reg.pc)
 	ld (var.$),hl
 	call bp_clr_temporary
@@ -232,23 +234,16 @@ mainloop:
 	inc hl
 	ld h,(hl)
 	ld l,a
-	jr exe_hl
 
-ERROR:
-	ld hl,(error_func)
 exe_hl:
 	call CALL_HL
 	jr mainloop
 
 ;-------------------------------------------------------------------------------
 
-p_msg_error:
-	call	pstr_inl
-	dc	'?'
-	;fall thru
 crlf:
 	call	pstr_inl
-	db	CR,LF+80h
+	dc	CR,LF
 	call inchar
 	ld a,0
 	ld (con_col),a
@@ -2947,15 +2942,6 @@ rdhex_done:
 	pop hl
 	jp p_max_high
 
-
-test_numeral:
-	cp	'9'
-	ret	z
-	ccf
-	ret	c
-	cp	'0'
-	ret
-
 test_whitespace:
 	cp	' '
 	ret	z
diff --git a/filter-unref.awk b/filter-unref.awk
index 42e48c5..c98c274 100644
--- a/filter-unref.awk
+++ b/filter-unref.awk
@@ -1,7 +1,7 @@
 BEGIN	{
 			ign["DDTZ_END"] = 1
 			ign["DEFVERS"] = 1
-			ign["TEST_NUMERAL"] = 1
+			ign["P_MSG_ERROR"] = 1
 		}
 
 /\x1A/	{ exit }
-- 
2.39.2