Remove print error function pointer

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 }