From 0fc4654bcd82b73670b9d42c8cc646e310091016 Mon Sep 17 00:00:00 2001 From: Thomas Date: Sat, 16 Dec 2017 22:20:18 +0100 Subject: [PATCH 1/2] prepare CURRENT and VOC --- forth.asm | 24 ++++++++++++++++++++++++ lib/:NVM | 2 ++ 2 files changed, 26 insertions(+) diff --git a/forth.asm b/forth.asm index 9a71f18..e1ebbed 100644 --- a/forth.asm +++ b/forth.asm @@ -4460,6 +4460,30 @@ RESTC: .endif +;=============================================================== +; 346 - 317 = 29 Bytes +; 29 + (3996 - 4017) = 8 byte + +; id? ( wid na -- f ) +; Return true if the word with name address na is a member of the wordlist wid. + +; HEADER IDQ "id?" +;IDQ: +; EXGW X,Y +; LDW X,Y ; DUP +; LDW X,(X) +; LD A,(X) ; C@ +; LDW X,Y +; LDW X,(X) +; SUBW X,#4 ; 4 - +; LDW X,(X) ; @ +; AND A,#0x20 ; $20 AND IF +; JRNE 1$ ; ELSE +; CLRW X ; DROP 0 +;1$: LDW (Y),X +; EXGW X,Y ; THEN +; JP EQUAL ; = + ;=============================================================== LASTN = LINK ;last name defined diff --git a/lib/:NVM b/lib/:NVM index f7f5ea4..e600d64 100644 --- a/lib/:NVM +++ b/lib/:NVM @@ -2,6 +2,8 @@ \ ------------------------------------------------------------------------------ RAM +#require [COMPILE] + \ Begin a nameless definition in the NVM and return its xt on the stack. : :NVM ( -- xt ) NVM HERE ] ; From 7f62038305082e8cb237fb30cea81ccf075a5bba Mon Sep 17 00:00:00 2001 From: Thomas Date: Sat, 16 Dec 2017 22:21:06 +0100 Subject: [PATCH 2/2] prepare CURRENT and VOC --- forth.asm | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/forth.asm b/forth.asm index e1ebbed..9a71f18 100644 --- a/forth.asm +++ b/forth.asm @@ -4460,30 +4460,6 @@ RESTC: .endif -;=============================================================== -; 346 - 317 = 29 Bytes -; 29 + (3996 - 4017) = 8 byte - -; id? ( wid na -- f ) -; Return true if the word with name address na is a member of the wordlist wid. - -; HEADER IDQ "id?" -;IDQ: -; EXGW X,Y -; LDW X,Y ; DUP -; LDW X,(X) -; LD A,(X) ; C@ -; LDW X,Y -; LDW X,(X) -; SUBW X,#4 ; 4 - -; LDW X,(X) ; @ -; AND A,#0x20 ; $20 AND IF -; JRNE 1$ ; ELSE -; CLRW X ; DROP 0 -;1$: LDW (Y),X -; EXGW X,Y ; THEN -; JP EQUAL ; = - ;=============================================================== LASTN = LINK ;last name defined