--- gforth/vmgen-ex2/disasm.c	2002/06/02 15:46:17	1.1
+++ gforth/vmgen-ex2/disasm.c	2002/08/07 10:11:19	1.2
@@ -21,6 +21,9 @@
 
 #include "mini.h"
 
+#define IP (ip+1)
+#define IPTOS IP[0]
+
 void vm_disassemble(Inst *ip, Inst *endp, Label vm_prim[])
 {
   while (ip<endp) {