From: Dan White <dan@whiteaudio.com>
Date: Mon, 13 May 2013 20:10:36 +0000 (-0500)
Subject: word to lookup opcode of next word
X-Git-Tag: cheetah~78
X-Git-Url: http://git.whiteaudio.com/gitweb/?a=commitdiff_plain;h=4a0b12028a6c4e16fea56bb7d823d783d0280793;p=430.git

word to lookup opcode of next word
---

diff --git a/msp4th/notes.txt b/msp4th/notes.txt
index e2b6027..837e7a9 100644
--- a/msp4th/notes.txt
+++ b/msp4th/notes.txt
@@ -6,3 +6,8 @@
 \compare range, dump "addr value" only if they do not match
 : cmprange 0x6000 0x4000 do i @ i 0x2000 + @ == not if i pav then loop ;
 cmprange
+
+
+
+: ' ( -- opcode) gw lu not if push0 then ;  \ gets next word, leaves its opcode if found, else 0
+