--- 35.asm	2006-02-20 00:09:19.000000000 -0800
+++ 35v2.asm	2006-02-20 00:09:27.000000000 -0800
@@ -6,8 +6,8 @@
 	1 -> s9
 	1 -> s2
 	select rom 2
-	jsb @264
-	go to @376
+	jsb @124
+	go to @102
 	go to @027
 	go to @060
 	stack -> a
@@ -33,7 +33,7 @@
 	stack -> a
 	go to @020
 	go to @164
-	3 -> p
+	11 -> p
 	return
 	no operation
 	go to @040
@@ -54,103 +54,103 @@
 	go to @022
 	go to @231
 	clear registers
-	jsb @134
+	jsb @355
 	go to @335
-	go to @362
+	go to @166
 	shift right a[w]
 	1 -> s3
-	go to @166
+	go to @340
 	c -> stack
 	clear status
 	shift right a[w]
-	jsb @335
+	go to @335
+	m -> c
+	go to @333
 	a -> b[w]
 	0 -> a[xs]
 	shift left a[ms]
 	a - 1 -> a[x]
-	go to @340
+	go to @207
 	if c[xs] = 0
-	go to @346
+	go to @215
 	a exchange b[ms]
 	13 -> p
-	go to @346
-	p - 1 -> p
-	c + 1 -> c[x]
-	if b[p] = 0
-	go to @114
-	1 -> s11
-	shift right a[ms]
-	a exchange c[m]
-	if s4 = 0
-	go to @207
-	jsb @137
-	go to @335
-	0 -> c[wp]
-	c - 1 -> c[wp]
-	0 -> c[xs]
-	a + b -> a[x]
-	go to @135
-	0 -> c[w]
-	clear status
-	c -> a[w]
-	12 -> p
-	a -> b[x]
-	c -> a[x]
-	if c[xs] = 0
-	go to @150
-	0 - c -> c[x]
-	c - 1 -> c[xs]
+	go to @215
+	a exchange b[w]
+	0 -> a[w]
+	if s3 = 0
+	go to @124
+	a - 1 -> a[s]
+	0 - c - 1 -> c[s]
+	if s7 = 0
 	go to @127
-	5 -> p
-	a exchange c[x]
-	if s4 = 0
-	go to @102
-	a exchange b[x]
-	0 -> b[x]
-	jsb @367
-	shift left a[x]
-	shift right a[w]
-	if p # 12
-	go to @211
-	a exchange c[wp]
-	go to @172
-	jsb @264
-	select rom 1
-	if s4 = 0
-	go to @366
-	a exchange c[wp]
-	0 - c - 1 -> c[xs]
-	c -> a[w]
-	if c[xs] = 0
-	go to @177
-	0 -> c[xs]
-	0 - c -> c[x]
-	13 -> p
-	shift left a[ms]
+	c -> stack
+	1 -> s7
+	0 -> c[w]
 	c - 1 -> c[x]
-	if a[s] >= 1
-	go to @116
-	if a[ms] >= 1
-	go to @200
-	0 -> c[x]
-	jsb @367
+	a exchange c[s]
+	if p # 11
+	go to @107
+	jsb @107
+	1 -> s6
+	jsb @345
 	shift right a[ms]
-	c -> a[s]
 	if p # 12
-	go to @223
-	b -> c[w]
+	go to @136
+	b exchange c[w]
 	c + 1 -> c[w]
 	1 -> p
 	shift left a[wp]
 	p + 1 -> p
 	if c[p] = 0
-	go to @217
-	a exchange c[w]
+	go to @146
+	c - 1 -> c[w]
+	b exchange c[w]
+	a exchange c[m]
 	if p # 3
-	go to @371
-	0 -> c[x]
-	1 -> s6
+	go to @257
+	a exchange c[m]
+	0 -> a[x]
+	if s4 = 0
+	go to @137
 	go to @172
+	jsb @124
+	select rom 1
+	1 -> s4
+	if s11 = 0
+	go to @034
+	shift right a[w]
+	jsb @345
+	a -> b[x]
+	shift right a[w]
+	a -> b[xs]
+	a - b -> a[x]
+	a exchange c[x]
+	if b[xs] = 0
+	go to @203
+	0 - c -> c[x]
+	a - c -> c[x]
+	c -> a[x]
+	jsb @360
+	go to @335
+	shift right a[ms]
+	p - 1 -> p
+	if p # 2
+	go to @107
+	12 -> p
+	0 -> a[w]
+	0 -> a[ms]
+	a + 1 -> a[p]
+	a + 1 -> a[p]
+	2 -> p
+	p + 1 -> p
+	a - 1 -> a[p]
+	go to @226
+	if b[p] = 0
+	go to @221
+	a + 1 -> a[p]
+	a exchange b[w]
+	return
 	0 - c - 1 -> c[s]
 	stack -> a
 	0 -> b[w]
@@ -173,23 +173,23 @@
 	if b[w] = 0
 	go to @276
 	go to @250
-	0 -> a[ms]
-	if s3 = 0
+	c -> a[m]
+	if s6 = 0
 	go to @264
-	a - 1 -> a[s]
-	0 - c - 1 -> c[s]
-	if s7 = 0
-	go to @267
-	c -> stack
-	1 -> s7
-	0 -> c[w]
-	c - 1 -> c[w]
-	0 - c -> c[s]
-	c + 1 -> c[s]
-	b exchange c[w]
-	return
+	p - 1 -> p
+	c - 1 -> c[x]
+	shift right b[wp]
+	12 -> p
+	if c[m] = 0
+	go to @160
+	c + 1 -> c[x]
+	1 -> s11
+	if a[p] >= 1
+	go to @157
+	shift left a[m]
+	go to @272
 	select rom 1
-	jsb @134
+	jsb @355
 	1 -> s5
 	go to @335
 	shift right a[w]
@@ -217,43 +217,43 @@
 	keys -> rom address
 	c -> stack
 	a exchange c[w]
-	jsb @135
+	jsb @375
 	1 -> s7
-	jsb @367
-	jsb @257
-	go to @212
-	shift right a[ms]
-	p - 1 -> p
-	if p # 2
-	go to @105
-	12 -> p
-	0 -> a[w]
-	0 -> a[ms]
-	a + 1 -> a[p]
-	a + 1 -> a[p]
-	2 -> p
-	p + 1 -> p
-	a - 1 -> a[p]
-	go to @357
-	if b[p] = 0
-	go to @352
-	a + 1 -> a[p]
-	a exchange b[w]
-	return
-	1 -> s4
-	if s11 = 0
-	go to @034
-	go to @157
+	jsb @345
+	jsb @116
+	go to @143
+	if s4 = 0
+	go to @344
+	a + b -> a[xs]
+	go to @373
 	0 - c - 1 -> c[s]
 	0 -> s10
 	go to @303
-	if s6 = 0
-	go to @374
-	p - 1 -> p
-	shift right b[wp]
-	jsb @172
-	m -> c
-	go to @333
+	a exchange c[xs]
+	0 -> c[wp]
+	c - 1 -> c[wp]
+	0 -> c[xs]
+	if a[xs] >= 1
+	go to @375
+	0 -> c[w]
+	clear status
+	c -> a[w]
+	12 -> p
+	if c[xs] = 0
+	go to @367
+	0 - c -> c[x]
+	c - 1 -> c[xs]
+	go to @347
+	5 -> p
+	a exchange c[x]
+	if s4 = 0
+	go to @104
+	a exchange b[x]
+	0 -> b[x]
+	go to @172
+	if c[m] >= 1
+	go to @356
+	go to @355
 	go to @363
 	a exchange b[w]
 	jsb @050
@@ -333,8 +333,8 @@
 	go to @043
 	0 -> c[w]
 	0 -> b[x]
-	shift right a[ms]
-	jsb @262
+	c + 1 -> c[p]
+	jsb @267
 	c - 1 -> c[p]
 	stack -> a
 	a exchange c[w]
@@ -520,7 +520,7 @@
 	jsb @246
 	c -> a[w]
 	if s8 = 0
-	go to @102
+	go to @103
 	0 -> a[w]
 	a - c -> a[m]
 	go to @000
@@ -533,6 +533,7 @@
 	a - 1 -> a[p]
 	go to @021
 	a exchange b[wp]
+	a -> b[s]
 	a + b -> a[s]
 	go to @001
 	7 -> p
@@ -555,16 +556,16 @@
 	a exchange c[w]
 	a - c -> c[w]
 	if b[xs] = 0
-	go to @057
+	go to @060
 	a - c -> c[w]
 	a exchange b[w]
 	p - 1 -> p
 	shift left a[w]
 	if p # 1
-	go to @060
+	go to @061
 	a exchange c[w]
 	if c[s] = 0
-	go to @070
+	go to @071
 	0 - c - 1 -> c[m]
 	c + 1 -> c[x]
 	11 -> p
@@ -578,6 +579,7 @@
 	go to @224
 	jsb @366
 	jsb @354
+	0 -> b[ms]
 	jsb @271
 	11 -> p
 	jsb @233
@@ -592,8 +594,6 @@
 	jsb @233
 	jsb @233
 	jsb @233
-	6 -> p
-	0 -> a[wp]
 	13 -> p
 	b exchange c[w]
 	a exchange c[w]
@@ -617,7 +617,7 @@
 	go to @154
 	a exchange b[w]
 	a - b -> a[w]
-	0 - c - 1 -> c[w]
+	0 - c - 1 -> c[x]
 	shift right a[w]
 	b exchange c[w]
 	0 -> c[w]
@@ -655,15 +655,15 @@
 	a exchange c[w]
 	a - 1 -> a[s]
 	go to @210
-	a exchange b[w]
+	0 -> a[w]
 	a + 1 -> a[p]
-	jsb @314
+	jsb @304
 	select rom 1
 	shift right a[wp]
 	a - 1 -> a[s]
 	go to @225
-	0 -> a[s]
-	a + b -> a[w]
+	a + b -> a[wp]
+	a exchange b[s]
 	return
 	select rom 1
 	shift right a[w]
