word to lookup opcode of next word

diff --git a/msp4th/notes.txt b/msp4th/notes.txt
index e2b6027f8550a909920d8d1e084c134bb689b213..837e7a902117a73195edb72955e0e230ee62e7b7 100644 (file)
--- 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
+