diff --git a/blk/291 b/blk/291 index 3a22926..33e6ecc 100644 --- a/blk/291 +++ b/blk/291 @@ -2,7 +2,6 @@ PC ORG @ 4 + ! ( find ) ( Find the entry corresponding to word name where (HL) points to in dictionary having its tip at DE and sets DE to point to that entry. Z if found, NZ if not. ) - BC PUSHqq, HL PUSHqq, ( First, figure out string len ) A (HL) LDrr, A ORr, diff --git a/blk/296 b/blk/296 index 9e8b9b2..da781c2 100644 --- a/blk/296 +++ b/blk/296 @@ -3,5 +3,4 @@ A INCr, L2 FSET ( end ) HL POPqq, - BC POPqq, RET, diff --git a/emul/forth.bin b/emul/forth.bin index 9cd6b22..eeb152e 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ