diff --git a/blk/354 b/blk/354 index 302b2ab..b5f3088 100644 --- a/blk/354 +++ b/blk/354 @@ -1,5 +1,4 @@ : 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 ) 2 PICK > ( n l f ) ROT ROT > AND ; diff --git a/blk/356 b/blk/356 index 38a6c6e..1b48772 100644 --- a/blk/356 +++ b/blk/356 @@ -3,6 +3,7 @@ SYSVARS 0x53 + :** EMIT : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ; : CRLF CR LF ; : SPC 32 EMIT ; SYSVARS 0x0a + :** NL +: ERR (print) ABORT ; : (uflw) LIT" stack underflow" ERR ; XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! : (oflw) LIT" stack overflow" ERR ; diff --git a/cvm/forth.bin b/cvm/forth.bin index a7ccd5b..efdb44e 100644 Binary files a/cvm/forth.bin and b/cvm/forth.bin differ