diff --git a/blk/381 b/blk/381 index 22419f5..12767c1 100644 --- a/blk/381 +++ b/blk/381 @@ -4,7 +4,7 @@ : (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ; : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ; : CRLF CR LF ; : SPC 32 EMIT ; -0x0a RAM+ :** NL +SYSVARS 0x0a + :** NL : (uflw) LIT" stack underflow" ERR ; XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! : (oflw) LIT" stack overflow" ERR ; diff --git a/blk/394 b/blk/394 index 27c83a8..2bc6057 100644 --- a/blk/394 +++ b/blk/394 @@ -3,8 +3,8 @@ : LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ; : LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ; ( Now, adev stuff ) -0x3e RAM+ :** A@ -0x40 RAM+ :** A! +SYSVARS 0x3e + :** A@ +SYSVARS 0x40 + :** A! ( src dst u -- ) : AMOVE