From 4a0b12028a6c4e16fea56bb7d823d783d0280793 Mon Sep 17 00:00:00 2001
From: Dan White <dan@whiteaudio.com>
Date: Mon, 13 May 2013 15:10:36 -0500
Subject: [PATCH] word to lookup opcode of next word

---
 msp4th/notes.txt | 5 +++++
 1 file changed, 5 insertions(+)

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
+
-- 
2.25.1