From b4a41e772828ce945a9c6fad416160f95878b64a Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Mon, 8 Dec 2014 13:32:32 -0800
Subject: [PATCH] Fix writing to byte variables in sandbox. Init initial plvm02
 autorun string.

---
 SANDBOX.PO         | Bin 143360 -> 143360 bytes
 src/toolsrc/sb.pla |   4 ++--
 src/vmsrc/plvm02.s |   2 ++
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/SANDBOX.PO b/SANDBOX.PO
index e510d2e96c5973091db3e7961b922fedd92d5bd1..08b6e036c4af52b0354459cd4b8e8494d322501d 100644
GIT binary patch
delta 234
zcmZp8z|ru4V?#QNz-4ZRGFet`4u;1J3LUc2ypzjWyjVJ9#dtR#Wm&|?_;qsz+iY*v
zMGSra87DIb`7#Pl4h%A7{4}{e$lT_y!Um<aOp3iMiV6(-PckcR5CQQxK)h4ziW}J0
z@hSqf0eNTm6@3H*7#o<_9YaI>gF^k7zi$2&#K^cQgokM}d)ODwri5(?jFujZBGau_
zFv>HEY>!&O7#bwt6dB^G5TT<G$*Z6c?jPi`edjMmM@G4jU`^|Q&=6-06&FojS3ehC
gUT4oBXGb4rUKf8q*Xe71Glpyy;Ob*s_K(pB0GKIA8UO$Q

delta 385
zcmX}myGufG6bEpR-mBLaS&C60o!ityA%%!aK|w{!^zysDZWOuYUr^8_EiTn^hu_c=
zO)iBb<Y-Gn5pB^bv{pJs)X#o8G@bK-?|Ia^QmrdB_XXFp-EiO&?ULcmfOVhOtse>-
zLftpvY26E#0KHb#e7>nmWD6X6ku1Z9enM8lU)Y?z`o+@$qM`G^u<04fBy&9)<)-;s
zlFtUf^<<MXE*I2{mRKR5BZaJ~-x?4Ay|0Qld55tzUhG-*JBxT+xvjuz3Zita0W%P7
zZ#SSoY^5BDW7&_IzuozU7|;v1(QM+TP6jBJLrz3m`-CYsVk(o)&MAr?RSaNonAu~n
zPPIOGX|)Yww8Owg-}~U8FAOGk|MTS#4~ORYD#T<u%WEQ|CPqvUf)NbFwUHEsLko`j
ubP`n!!?-jOAIuScID$MA&y})tfx*00#l_(#ib8i79MM+>(`|vlPw)?w+I8pv

diff --git a/src/toolsrc/sb.pla b/src/toolsrc/sb.pla
index 65757cd..e518a83 100644
--- a/src/toolsrc/sb.pla
+++ b/src/toolsrc/sb.pla
@@ -3605,13 +3605,13 @@ def parse_stmnt
                 if token == SET_TKN
                     if !parse_expr; return parse_err(@bad_expr); fin
                     if type & LOCAL_TYPE
-                        if elem_type == BYTE_TYPE
+                        if elem_type & BYTE_TYPE
                             emit_slb(addr + elem_offset)
                         else
                             emit_slw(addr + elem_offset)
                         fin
                     else
-                        if elem_type == BYTE_TYPE
+                        if elem_type & BYTE_TYPE
                             emit_sab(addr, elem_offset)
                         else
                             emit_saw(addr, elem_offset)
diff --git a/src/vmsrc/plvm02.s b/src/vmsrc/plvm02.s
index baf18b6..86a0298 100644
--- a/src/vmsrc/plvm02.s
+++ b/src/vmsrc/plvm02.s
@@ -57,6 +57,8 @@ INTERP	=	$03D0
 *	=	$2000
 	LDX     #$FE
 	TXS
+	LDX	#$00
+	STX	$01FF
 ;*
 ;* DISCONNECT /RAM
 ;*