--- gforth/cache1.vmg	2004/01/20 19:07:40	1.4
+++ gforth/cache1.vmg	2007/12/31 17:34:58	1.8
@@ -1,6 +1,6 @@
 \ stack cache setup
 
-\ Copyright (C) 2003 Free Software Foundation, Inc.
+\ Copyright (C) 2003,2004,2007 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -20,41 +20,41 @@
 
 \E register IPTOS Cell
 \E register spTOS Cell
-\  \E register spb Cell
-\  \E register spc Cell
+\E register spb Cell
+\E register spc Cell
 \  \E register spd Cell
 
 \E create IPregs IPTOS ,
-\ \E create regs spc , spb , spTOS ,
-\E create regs spTOS ,
+\E create regs spc , spb , spTOS ,
+\ \E create regs spTOS ,
 
 \E IPregs 1 0 stack-state IPss1
-\ \E regs 3 cells + 0  -1 stack-state ss0
-\ \E regs 2 cells + 1  0 stack-state ss1
-\ \E regs 1 cells + 2  1 stack-state ss2
-\ \E regs 0 cells + 3  2 stack-state ss3
-\E regs 1 cells + 0 -1 stack-state ss0
-\E regs           1  0 stack-state ss1
+\E regs 3 th 0  -1 stack-state ss0
+\E regs 2 th 1  0 stack-state ss1
+\E regs 1 th 2  1 stack-state ss2
+\ \E regs 0 th 3  2 stack-state ss3
+\ \E regs 1 th 0 -1 stack-state ss0
+\ \E regs           1  0 stack-state ss1
 
 \ the first of these is the default state (for now)
 \E state S1
 \E state S0
-\ \E state S2
+\E state S2
 \ \E state S3
 
 \E ss0 data-stack S0 set-ss
 \E ss1 data-stack S1 set-ss
-\  \E ss2 data-stack S2 set-ss
+\E ss2 data-stack S2 set-ss
 \  \E ss3 data-stack S3 set-ss
 
 \E IPss1 inst-stream S0 set-ss
 \E IPss1 inst-stream S1 set-ss
-\  \E IPss1 inst-stream S2 set-ss
+\E IPss1 inst-stream S2 set-ss
 \  \E IPss1 inst-stream S3 set-ss
 
 \E data-stack to cache-stack
-\  \E here 4 cache-states 2! s0 , s1 , s2 , s3 ,
-\E here 2 cache-states 2! s0 , s1 ,
+\E here 3 cache-states 2! s0 , s1 , s2 ,
+\ \E here 2 cache-states 2! s0 , s1 ,
 
 \ !! the following should be automatic
 \E S1 to state-default