Return to errore.fs CVS log | Up to [gforth] / gforth |
version 1.4, 1995/04/06 16:56:10 | version 1.5, 1995/04/20 09:42:49 |
---|---|
Line 74 ErrLink @ unlock reloff lock \ make sure | Line 74 ErrLink @ unlock reloff lock \ make sure |
IF 2 cells + count type drop exit THEN | IF 2 cells + count type drop exit THEN |
REPEAT | REPEAT |
drop | drop |
dup -512 <= over -2048 > and | dup -2047 -511 within |
IF | IF |
512 + negate strerror type exit | 512 + negate strerror type exit |
THEN | THEN |