Remove print error function pointer

diff --git a/ddt180.z80 b/ddt180.z80
index dbcebc80357f3bc8dc250d93fbe8c4b2f3344b41..99a690a0d568c115d19bbe1196b8b0d58ef4cdb0 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -123,7 +123,6 @@ reg.pc:     dw      TPA
 var.$: dw      0000h\r
 var.@: dw      0\r
 \r
-error_func:dw  p_msg_error\r
 cmd_rpt:dw     mainloop\r
 \r
 ;-------------------------------------------------------------------------------\r
@@ -201,10 +200,13 @@ CMDTAB:
        dw      cmd_Y           ;examine [and substitute] Y variables\r
        dw      cmd_Z           ;Zap (fill) memory with a byte string\r
 \r
+ERROR:\r
+p_msg_error:\r
+       call    pstr_inl\r
+       dc      '?',CR,LF\r
+       ;fall thru\r
 mainloop:\r
        ld sp,stack\r
-       ld hl,p_msg_error\r
-       ld (error_func),hl\r
        ld hl,(reg.pc)\r
        ld (var.$),hl\r
        call bp_clr_temporary\r
@@ -232,23 +234,16 @@ mainloop:
        inc hl\r
        ld h,(hl)\r
        ld l,a\r
-       jr exe_hl\r
 \r
-ERROR:\r
-       ld hl,(error_func)\r
 exe_hl:\r
        call CALL_HL\r
        jr mainloop\r
 \r
 ;-------------------------------------------------------------------------------\r
 \r
-p_msg_error:\r
-       call    pstr_inl\r
-       dc      '?'\r
-       ;fall thru\r
 crlf:\r
        call    pstr_inl\r
-       db      CR,LF+80h\r
+       dc      CR,LF\r
        call inchar\r
        ld a,0\r
        ld (con_col),a\r
@@ -2947,15 +2942,6 @@ rdhex_done:
        pop hl\r
        jp p_max_high\r
 \r
-\r
-test_numeral:\r
-       cp      '9'\r
-       ret     z\r
-       ccf\r
-       ret     c\r
-       cp      '0'\r
-       ret\r
-\r
 test_whitespace:\r
        cp      ' '\r
        ret     z\r

diff --git a/filter-unref.awk b/filter-unref.awk
index 42e48c5247a8f751324ede3a08efca3983de10ba..c98c274619c08c5e0c65cb2db01f3370d1cbac8c 100644 (file)
--- 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 }