Add word ERR

blk/043

@@ -12,4 +12,5 @@ have to consume it to avoid PSP leak.
 ]         --   End interpretative mode.
 ABORT     --   Resets PS and RS and returns to interpreter.
 ABORT" x" --   *I* Compiles a ." followed by a ABORT.
-EXECUTE   a -- Execute wordref at addr a
+ERR       a -- Prints a and ABORT. Defined early and used by
+               drivers.                                 (cont.)

blk/044

@@ -1,3 +1,4 @@
+EXECUTE   a -- Execute wordref at addr a
 INTERPRET --   Get a line from stdin, compile it in tmp memory,
                then execute the compiled contents.
 LEAVE     --   In a DO..LOOP, exit at the next LOOP call.

blk/394

@@ -1,4 +1,5 @@
 : ABORT (resSP) QUIT ;
+: ERR LIT< (print) (find) IF EXECUTE THEN ABORT ;
 : = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
 : 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
 ( n l h -- f )

blk/421

@@ -12,5 +12,5 @@
 : CRLF CR LF ; : SPC 32 EMIT ;
 : NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;
 : (ok) SPC LIT" ok" (print) NL ;
-: (uflw) LIT" stack underflow" (print) ABORT ;
-: (wnf) (print) SPC LIT" word not found" (print) ABORT ;
+: (uflw) LIT" stack underflow" ERR ;
+: (wnf) (print) SPC LIT" word not found" ERR ;