From da371451cc28661a71b4c1cf4a7ca6f17aa7bffa Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Mon, 11 May 2020 21:08:24 -0400
Subject: [PATCH] Replace INITIAL_SP with PS_ADDR conf

Now I struggle to remember why I ever did things they way I did.
There must have been a reason...
---
 blk/076                 |   8 ++++----
 blk/081                 |   4 ++--
 blk/082                 |   6 +++---
 blk/280                 |  20 ++++++++++----------
 blk/281                 |  15 ++++++++++-----
 blk/289                 |   3 +--
 blk/299                 |  10 +++-------
 blk/310                 |   2 +-
 blk/313                 |   2 +-
 blk/327                 |   3 +--
 emul/forth.bin          | Bin 5987 -> 5978 bytes
 emul/xcomp.fs           |   1 +
 recipes/rc2014/xcomp.fs |   1 +
 recipes/ti84/xcomp.fs   |   1 +
 recipes/trs80/xcomp.fs  |   1 +
 15 files changed, 40 insertions(+), 37 deletions(-)

diff --git a/blk/076 b/blk/076
index 60e7f8b..a662b31 100644
--- a/blk/076
+++ b/blk/076
@@ -1,6 +1,6 @@
 STACK OVERFLOW PROTECTION: To avoid having to check for stack
 underflow after each pop operation (which can end up being
-prohibitive in terms of costs), we give ourselves a nice 6
-bytes buffer. 6 bytes because we seldom have words requiring
-more than 3 items from the stack. Then, at each "exit" call we
-check for stack underflow.
+prohibitive in terms of costs), PS_ADDR should be set to
+at least 6 bytes before its actual limit. 6 bytes because we
+seldom have words requiring more than 3 items from the stack.
+Then, at each "exit" call we check for stack underflow.
diff --git a/blk/081 b/blk/081
index c4aa45a..02086c2 100644
--- a/blk/081
+++ b/blk/081
@@ -1,5 +1,4 @@
-(cont.)
-RAMSTART  INITIAL_SP           +55       (key) override
+RAMSTART  FUTURE USES          +55       (key) override
 +02       CURRENT              +57       readln's variables
 +04       HERE                 +59       blk's variables
 +06       C<?                  +5b       z80a's variables
@@ -13,4 +12,5 @@ RAMSTART  INITIAL_SP           +55       (key) override
 +53       (emit) override
 
 
+
                                                         (cont.)
diff --git a/blk/082 b/blk/082
index 7253cf7..a3cbc48 100644
--- a/blk/082
+++ b/blk/082
@@ -1,6 +1,3 @@
-INITIAL_SP holds the initial Stack Pointer value so
-that we know where to reset it on ABORT
-
 CURRENT points to the last dict entry.
 
 HERE points to current write offset.
@@ -13,4 +10,7 @@ C<* holds routine address called on C<. If the C<* override
 at 0x08 is nonzero, this routine is called instead.
 
 
+
+
+
                                                         (cont.)
diff --git a/blk/280 b/blk/280
index 52b3fef..5e6905c 100644
--- a/blk/280
+++ b/blk/280
@@ -1,16 +1,16 @@
 Z80 boot code
 
 This assembles the boot binary. It requires the Z80 assembler
-(B200) and cross compilation setup (B260).
+(B200) and cross compilation setup (B260). It also requires
+these constants to be set:
 
-On top of that, it requires RAMSTART to be defined as the
-beginning address of RAM. This is where system variables are
-placed. HERE is then placed at RAM+80 (ref B80).
+RAMSTART: beginning address of RAM. This is where system
+variables are placed. HERE is then placed at RAM+80 (ref B80).
 
-We also need RS_ADDR to be set to the bottom address of the
-Return Stack.
+RS_ADDR: to be set to the bottom address of the Return Stack.
 
-RESERVED REGISTERS: At all times, IX points to RSP TOS and IY
-is IP. SP points to PSP TOS, but you can still use the stack\
-in native code. you just have to make sure you've restored it
-before "next".                                          (cont.)
+PS_ADDR: top address of the Parameter stack (PS grows down-
+wards). Allow space for stack underflow protection (B76).
+
+
+                                                        (cont.)
diff --git a/blk/281 b/blk/281
index 0a2d910..93a47bb 100644
--- a/blk/281
+++ b/blk/281
@@ -1,7 +1,12 @@
-(cont.) STABLE ABI: The boot binary starts with a list of
-references. The address of these references have to stay to
-those addresses. The rest of the Collapse OS code depend on it.
-In fact, up until 0x67, the (?br) wordref, pretty much
-everything has to stay put.
+RESERVED REGISTERS: At all times, IX points to RSP TOS and IY
+is IP. SP points to PSP TOS, but you can still use the stack\
+in native code. you just have to make sure you've restored it
+before "next".
+
+STABLE ABI: The boot binary starts with a list of references.
+The address of these references have to stay to those addr-
+esses. The rest of the Collapse OS code depend on it. In fact,
+up until 0x67, the (?br) wordref, pretty much everything has
+to stay put.
 
 To assemble, run "282 LOAD".
diff --git a/blk/289 b/blk/289
index dd0fc4d..465de47 100644
--- a/blk/289
+++ b/blk/289
@@ -3,8 +3,7 @@ L1 BSET 'B' A, 'O' A, 'O' A, 'T' A, 0 A,
 
 PC ORG @ 1 + ! ( main )
 ( STACK OVERFLOW PROTECTION: See B76 )
-    SP 0xfffa LDddnn,
-    RAMSTART SP LD(nn)dd, ( RAM+00 == INITIAL_SP )
+    SP PS_ADDR LDddnn,
     IX RS_ADDR LDddnn,
 ( HERE begins at RAMEND )
     HL RAMSTART 0x80 + LDddnn,
diff --git a/blk/299 b/blk/299
index 295934b..d547d8f 100644
--- a/blk/299
+++ b/blk/299
@@ -1,14 +1,10 @@
 PC ORG @ 0x1e + ! ( chkPS )
     HL PUSHqq,
-    RAMSTART LDHL(nn), ( RAM+00 == INITIAL_SP )
 ( We have the return address for this very call on the stack
-  and protected registers. Let's compensate )
-    HL DECss,
-    HL DECss,
-    HL DECss,
-    HL DECss,
+  and protected registers. 4 - is to compensate that. )
+    HL PS_ADDR 4 - LDddnn,
     SP SUBHLss,
     HL POPqq,
-    CNC RETcc,      ( INITIAL_SP >= SP? good )
+    CNC RETcc,      ( PS_ADDR >= SP? good )
     JR, L2 BWR      ( abortUnderflow-B298 )
 
diff --git a/blk/310 b/blk/310
index b1eef80..19cc92b 100644
--- a/blk/310
+++ b/blk/310
@@ -9,7 +9,7 @@ CODE PICK
     B (HL) LDrr,
     ( check PS range before returning )
     EXDEHL,
-    RAMSTART LDHL(nn), ( RAM+00 == INITIAL_SP )
+    HL PS_ADDR LDddnn,
     DE SUBHLss,
     CC L2 @ JPccnn,    ( abortUnderflow-B298 )
     BC PUSHqq,
diff --git a/blk/313 b/blk/313
index 2e72338..ed592ac 100644
--- a/blk/313
+++ b/blk/313
@@ -1,5 +1,5 @@
 CODE S0
-    RAMSTART LDHL(nn), ( RAM+00 == INITIAL_SP )
+    HL PS_ADDR LDddnn,
     HL PUSHqq,
 ;CODE
 
diff --git a/blk/327 b/blk/327
index 94c2e81..038c5cd 100644
--- a/blk/327
+++ b/blk/327
@@ -3,8 +3,7 @@ CODE BYE
 ;CODE
 
 CODE (resSP)
-    ( INITIAL_SP == RAM+0 )
-    SP RAMSTART LDdd(nn),
+    SP PS_ADDR LDddnn,
 ;CODE
 
 CODE (resRS)
diff --git a/emul/forth.bin b/emul/forth.bin
index f9614a414bca0d1c2bb6ec6e21955328e3f6c6af..99c64820cad48f9dc684e5f955ae9874d783c10f 100644
GIT binary patch
literal 5978
zcmai2du&_Rc|Z3-nG_|yL|Jy|AeWLBk*4fQ9@<2;B#WddhYKGHN!f8US+#6S@nVaC
zq|}ZQNXc5etp@~yRv;))1ViXy7_vdAy)0YM46x+{&5R7S5&dI8U4&GLQ<X&$6m8(v
z(|*5mNXuzA41&n}edl|>&Ud-=1F`fkLWn1t#L}>~^r*J<Td|~T>z|0Fc5NxBofc=s
zX`C-*ZY_;!>bqZkCmv50gfN@l^NY1Rt4sHZ(AZSi1;m}h;?4o>&UT{q0p}IArq%cE
z7tg;Q`uUxfJ1xLhNB}GoT3cOP+@CG~NXdz1vjx$4dt)UiJ`KKbtJ%D@(=M9zTkFB^
zi}wt%^rzzOHJGqi{?W7L{+`h8Y-DXYaNkGs|7JM@foLFd-@jYB=ZovBp{;9yKwx?O
zaLa+!*-Ig#oLgVD-e2rqz5MP<3;v!FD>K@=E0bbnTw95(MBWWOGk)@PSOn{}^00nO
zsagyEX5)?W)ap;S-GU1%YpY)I=^N$T!#6iwSU<c~tT%iDFW&PCYHNWX+diRZ%j+#I
zKy3Rk@pvLWR7lvhElt-UXWO-0woogKrq%100WPn-4dVWxK@U+ttgR8wWd|8g#x{R2
zI_Tgtxz{K<dmxc>S24>HHJFS)>LCg=*Z$<1zbn%+upYb(`*Sz_8dZd*iYHHogQBKs
zwLjg}QW%Lu%Kr-d9_sQlPvn(|p~3olq|=^!hg;}PkVl{`UrRuUE<({vf1UIO+|T`8
zarVLlvDustG}7efUN6r6vqV0g%{AO5{iovWKT2#STaZ}rKmR(CYiY*YkPz_+O$pde
zfxGGeUZ;t0iHMypA}#{~OL{%wYYo?Y9j2p0Yv{2)C&5?J+5RB>kThp%JRp1MnzyO^
z7v)@szP;Y_`F<JtV6duZx@8J%ef5MP7Rh6<<3U%|lWBr|bp&xf`JkYh!FbROr!Es!
zJ|Pi(E+POwD9TTgCP`aWwMnq89x_%Y|9fRz2K3M9+sfqcSH|z~xHrdR%0p2B-qV|-
zK<PZoOks1qj4(TpB)MKENC2%9L%U;#5-h22;xROJd^$fEt`l3D&|4KmE{~4g(!@>!
zCf~!HN)_lK+Z!zn)^9g+5l;{9fGn9#gdYbXoAI#jbiNJN(eV?L$9AxQSfFT~kexls
zqh(E#-=PzyI>Q!7$_IW2bcY@OR!BM>d{$(;I%Q#P$e?sa2rvpQ^so~JpumW9I8p^$
z<nf+e)tE)(c`pA*a-iTvwadgrO<SnuTKBd4J-5l7lBa<$pQ3BjX)c<MY!{}>65>`#
zkBL|^6G1}|7K9&3<Pr)tg=LG0_)spF$P{*Zg&j1H-HY>xEv|wsV8ld-Q3}_K8rKBi
zMQzZGiN}VL1@y7YX3m+Gu!GTQG>c@WkjM?@5(RPER??=ln25%*xx$0O=K8hqJ?QH}
z_*|XlOE9HdJ-%$d1$=L<#GjWyN4HbxFlS?anMXZ@eqxh6Jq|oC%jb?><lS(6D1qK?
z9#}#b?`zApd2Jq_X(;LG?e1xk{`2HBdGeV&iT6def_*{T3y&_Ci?B5wjG*jXi`r$a
z-M9cJ<9)kOy%m~E6`Ea}G?zd#`t-3QM~@;~AhXcVKe0_993|~M&MeU(F6zYB0{@b(
zPF}{zqQoufC4CN1=;<R<)5nj6<H!OHBF8TA79{x~>4JH)X3m_~F6uOL4rYA6W<jGY
zx8yEqbbx&Gcv5G-++Zl@wGud#^rPY7igZh~LH1?sin-TN&uN{u)j)PkTmY7~kG3Nt
zG^7J=bcv3d2{@q~iV5P602;rGKL|%-FqY0Kg-?d}NreF@={WP2bYH2sf|^;>l5j$W
z#H~}|#Fho^L%3Wk<~8NmJhXUlub1?^_~`~r%G_g8=Uvr|@t0MPh1)h&kNy9uZ~w2V
z^?Ot+m%;_~#KT)AgehX;A1dFib_L%=gotkzq0^J&VRQgfG^OQ%y~tMU-q(#{vJhuW
zwpF|veGiz;6F|-xj5>tS!Y46opLPo__W^Jk{JdiJq0b<zy%DU$v`hSj3O<%B^s(Go
z(;uNPHNhqTHrN0xi%vu7nJ5gZx{Q(;Lu_5h<c2t-6HcSZ+M(fKeqV>QHYhsH3$kGg
z*@M|!e*-H0KkN(IlMdQThf8qrS4a;}1G3j3&^G6|tU1v|igrSLzTws_szNC8@xeoF
zpj5SPlagv6ht-!Czksaa<C8N}&yF-B-t=-&d&j}=ODJ<jU=htgnDgkOUbfrh>4c0;
zNV0|>2I~(U>yFswQ1S=|P^T-6_?(@YnbO|0(-AN8R(wjOjp)2sh8>}?VsWNB{1Aj$
zVmFLuq8Q!tW(n>P!+db}!+i}J9hd@ew5)o*IU)I!mpptLy8DFA0uL-u>g4oPW#B|J
zs*+Lj70c^pVKHW1wV3LCvz2myx9N1EKN&6H26f1J&6u&#Ul3!J+(v@iLC!H3FiODD
zgI$Nc6314Grc&8L9cFf)E$&1Nj-NU)Bgg-onFeX-spHS$Lbkc)%)<av$wI~{eYZr}
zUba_E*vFB0$yAzIg?nA%MOQ28rEI@yFxOwlX5o6UmPKK6FfS8gD<;d|J2(5Lj2zX7
z=j?yu%!{9K0(1y%Sc4pTJyHXHB?>m=l?}}h{|=H4Ot)Kn8~JXklTcKhw^nRy+sEdk
z)|hDHO|-x658GE=V8d-AJH)qKxw?lSC!S3YCQ}KQ_>M$Wg$-BmBU{DyaKISE68n>x
zI&s$JM+Bq$qsdGyfL3I`Z1+1^voSH0DI`;ViJrIz9rD1zW)T)Ybok5(@f-M^9Po<2
z1h*n%m5oDe;gLk95k4+xe&<1_%3~sxPk4b-niS>cx!-vMlXf^cFv4oBIy_84BM7}x
z_{9dZqmZpgBHYd;P*4s$GhI%kD<=B0iF~gIRbYvTV70ebYTm%2!5+P8(8mMOTrwI<
zB{-1J)K@K!XEXUiG=t@t*s}ev>bYlp1-qo{V-zIyV*|!+4v;{9)*=00giHo>l$2MY
zg7@Al#=P;CZ4uu{bT&J<UAk|&%Jyo&817ba1I(?sGig>T5j~LLT0$Wut%%9;ia`On
zY%0|#M^kmYQN{bXSZVu`{so?B(H_3YP=F;2Y!>PhXuk2_jYOi4R6gm<fdnTo?mf(o
zWX-(x=QWJ~uQzTOZrzRUAjK}MnX)ZQ`X$`=RQSH8p2>I$Y%kPce1C}%+tz`v%Jwtl
zuEBw*W^ssiENH3+=W!Fz$db<EfoyJnqHsSFnyXvT!fxiv=T`HRFUY}dU~Ls$wF{aG
z&kZwx7*B{#Wo;zV$-)CtCx;nFVzp&Ck-o{9@$}S*$(b<cH}82%)XSCQC4EdT8ua*_
zJ1>5Y+HP-dK_~K>utc+5del{5bEvCeck}(oJ<rPa>+U(z=4chKxtT<{TQ&#8IoD_I
zR@||~sh45So@OyUbL8k#)-#jGj!%uBES?4z@8MWJ0DZi6&$&?u18Uc-l~6pVp!y1w
z8sM@#;>mh&X${7?Z(6u4$(Tu18UHu}r$8>304DS`_pGN`oGwlsvnGo()_4&HRZQW9
zV?hB4icbOgT`-QiQQMaI7=^N+&0&jUY`J)G?NYD`5VuNp3(q*l^Wp=9b9Xn`)h2~C
z0&C<s_siyz{(*<_?Gnonr`Q?)UxH!ZZZHIl2fR?tK}b4>r1OEl7DdHfk2{z$gRc?0
z&$P)H3hfj0v<GGkd(XM~kF&>lyI4YKAM0nmXDOD0o?^caV-~ct-dPX4<|d2E;WbIp
zMc{dI#bkZol8sRUk6qHKB4X_4u=lYwxno<nfX}%}|AC}u`1*&^gQpPFtcQ`Y%LsAM
zUEtDbT=bIqwxs4}5E~lEKhZ9>MEb;y`doi1lTM`Z!o-)MgR->gZ8C#FXP|kH_y~kl
z8R$ZRxC#x|W4<f$G<0He{AAdT@|!bX^et#JJ||W;RKtnMvFUIl@H4)E@uH7e<?cl2
zl1ZvrPZZWanmE)fi;TO$A2!xmHrCX!laohfW0Ci-r6exqwYXYL@n6tsiFw&ZDnfR-
ztk>RysRxF6V036ljd&A&(N?aR=V49U$y2thDi-;ULdD@{;K8dtvw<17y^;02=%eiz
zn+RR^eW-Q{*((P^olv4^*7FStKW8r6s@sfWYTW}Szf*<VX*}j*Wt8-B=c~R}@q>mx
zUV_lTsYjWmugRV4(A_Kn-M7;RX>;ZlzoZK8<d(uQT0!(yUwtcZf8h{QMT;t!kfN|x
zVXQsqf4_xa3|R@#(aN`88cfYj6tCSJ2V~+>#Cqg+8ZVoB@u>_5gLbb!U_|ggh34fs
zrf+H}{|F~+8fezRYs%g}FUa5VV_gHj8hd7j0(VFeN^Fo9&-se9-FrBQm@vL%QrxVE
z&78=l_VHbyn#x7IV2r_sR5D-S4R;e>d1P}HagBN#*_3^vXe{X?{*ruY?UQ3=(J0D{
zMjH8UR??C#W>mG^N0qi?Q@vSfs?jIV?bEn97!>7&TR+B8n~nDKw+VXp3Iiuo$0zkh
z#3!|4zhd0<Gw5o)ZWVvqsHpE<hP!I7R_M8EREw&JCncAfU4pmQRY=RjRZ{Vc^t{4p
zPvj*;k_MIZA2%vgj!O-H5TN4=+5_J2dVbtU2S2YkNWNU81%;y+7iGRUfxod8VIRo%
zRepiNRO6MKhF<k4<P2h54jUu>B9yipl>DoTWbg*N5FwP?|G}%cxKx{vdoOP?lPr*z
zs~E5Id4H>Tb?XjPPOJFY)(F1;v!PjxPCq*>)*a0vj$c%dJUxBf%I4+0!-aaZM`-^8
DaH~t2

literal 5987
zcmai2e@vTqdVgNOFU01Du`z@s6zw&p#g0QtvTWCMK)}YNz8age4M~b<mS1p5Q^+7K
zE$uD2OFQrSN2*&+l@4uEHLaB<FY4~D6<aQvRH0OgNY#sWxk+t_4yD}DQLa@~u~Y6c
z_W69jc1Z6wEfMznJm2T{ukZ7E_6IV1Nkop+$?OqhHe<~GR%T0$<xgdHmofXGF)1(0
zB+h4(OS2<}{!Zxc*#3A{#HxG0Mi%cb%x;n3;qj0gh`Ue9-2vn7W}@~0=arJWh4&le
z#dm_A+zs3f0AC;haD&j|!s1(dQ!78zaw4fzR(9N3TbYohdB1$&KfBauEp2s5qho2=
z|9yGil-WO)D~mAWt(6}>ztY_v+@1<A-l*U5%QOFKm)F;K)rYtIo9*!Y=K4Z#<6?b%
z{f*@(0|N_FKMtBJ>E#9cXK%GFynA&%fd9|P{AuIr{HV+i8}s4$@YUcm!zU+0;`bUW
zgN`MwYH_P9h4F7@WqjeMn?8Xn^NR~!`C?`z{m9SPU0Hr|qb&PAg*Weeg&G6!XVa(j
z@Wyf=0K}$SvHh`Ve>UbZHq>2*oK17-RJKgax`pfS0=%(!1;pL`eIBBKSX?BWPW3Ua
zjB#dPSD%Z|<X)uc)Icm<Rm9v-sJ?jgaSu_TnR{@qW_L2svkV_#?}wWVstAscoje)x
zOKIIgckk{%b|@TP`4`}KQdbT0MP7yI@2k8|I_=4{R*9ny@(46%$^iI9b`$DKc2_8G
z!2QA-V^jYyLToBs4H{+g3-63gy{(Y@Q)%Bl(u-qL|D>?VR90cZ|KdAHux*%EAR$~W
zh8D1y0$VBoUZ;t0iHNOkBHjf8mUMVRbH2IiR?F3D_}cB;BzU+t)$NBLisrde56HeY
z=dD{gv660eY_9a&-m60I_ZRg{1jfPESxFdTkvs-F>US4CnIPC%K@jJo4++)uMg3K9
z>RqB%jw?i`n+U)U$;vlL6Q`}Z;uP3i2^sUF|2;pvM)>RWZGQB3^TT%ucBFYsc_=Et
zJ3G=8sGMh+X>7WK5oRZnB;8RC5<ttu(C)~A7)$C|JO;;)O=S8)6|$jj<po(PVA7dT
z6)<c!U^4AYs?vc*DwzrR?EhL%Mzpu@0SHt1MEr3OEHNK(l$T!t>%rmUqemZL1+hZW
zKS3uOl}9%WLwyI2KfNPlgJfmkw?MZ#;c$Uuhl|getYwF)tTh#t9bp0tLx3*sKm}+p
ztUL}E!GJp6*-{KzSe>UckHvekUX;7aOqW#>ES+ncYw+A5cS4=kfAth?qfgUaz2VJb
zxowf9ydxr!cruKRAS{F*i=|^4wj@*%k!XK99ZP1ndc_HvZ`_ab$OiXNNx+OqkWmU%
zN~!x4;2Gn96_IcB$Fpc;x7*5Dwm8A)GaDtI%*N7v=~!0ImgJ2oBO+aqR66^Rl(>Iq
z{tfiCBYf^ht=C{mn|^%VdJp)HGKIgOfY!Ehalo9lGdFqEPUw1x;%Rr``KEeq?Lgj5
z_h$;|Xybt`4*A%)S&}ny`0R(0_KvppI^{o4?x>SH>Ll73-U#+-BMOf$S~IXU>JOvt
z+%v{iW0!dmPDVRhP`(A4%LSU2b(+hdIe6;mp(96-Es)u0=<6jT2uI$yfHPZK<&uN=
zGT>ix=#$rRGNW*Fj=UoWD0u47_{6cJp(wIIgUHb$??F;EBwe&_mFBFRamhg=b1>uY
zN~aCVs#Dx~gAR}{hbMjZ*&0KcGxFfj(vO4&3({?AhU}}xoE0_obH9VOl|ptzE&@y2
z4{k$7Xh<vE*e$zDN8p5ZC?dok0yKONzYmT^U@V=}3cnfJqZ9_9r1iP?l>1u69BO99
zNW%#ok~#+!p4u>Nd<K`xBxh*Ha?s)t1}P&yU4u!<`%Kz#Pc>uwRn><>&FiWU|Np8@
z=l`bKai41KQYed_=-MzMmPF)7h3^)phHoK4#5YQCa&$O^4q%F=j0~_pVXL+6X+tsD
zh;vA_RkRI#517ppK+YMA3WU(cCoycFZ8ltv1Mr#roU`KSGsxOj3sz!wDg4C(J`&G%
zvfNqIpQA4gVG{uB_W{eIGf;Y!C=9B)ijp~j*t(I)H96}b+>avL1r7T$ds>yXetFco
zs2Vn#+Luaq`%vlsj(Giri}uptJY4)W(!<kw)oX6ppL1O`eCQ%gJ0iE&>Kryyaq48E
zeFvIBscYS>B$YxAt1lz}30Z^3Mo*7FKh%hL)5{s-0~fz9qs$qB88ic7&ZA3?Ri|5>
zo>H+1D%Q{=V12{&r7N;Nlsw`B>TIDAUve@tQ^u^5j(C~3v8Qy}h|b6j*bzKDHg>u#
z^fd^xWjl;#q8Qx^RvzvU!+dZF#D%Q}P^e@GI9gUbU!RbC$|xQ__1}9cQ%|r!t5efc
zmw^w>s7prAS8TECg{5LvhN<2;RVW8|+uIxKj(1^egSWJTF^j^MvvQ)4+pvE#$T{W$
zW*#_t(DI~L;n+%Di9{+}ftejINt7c7$DTfZT8;ml)eq9(Q^%gija=f+S;GJm@ochO
z`EJXqbJbZeVGl>*Wi?{Xsw(_5w|v{(gnC(ZUNf2NN3mMCA1-52xLwT4h-}1U`RDTW
zzF9?%O64Wz-<D_OCMQ6v7=s4nMBw#MDfqQ0*pSgSG(!9bNIEcWRq_(@ZC5C$OP@Ct
zY;4}c=A+h#H1j6vtN8u))fd=c^Uwow&OKPs2|3YJZ(lqSb4yMkioym9_@RyRT^uk5
zk=WjNvO->VHz0ytd%NPvG5}4;{;IQ~oHZMf{$w_us8Q&V`_MrT9Bh=3yy2?1Z~(vK
zJzn_^xHTECxiN^%J{C*X!pCW&q5RLwbsl4hOw0?M)}$%d&l}1=!lWIH_YARGiw+M`
z&=5ke75-+8+0n=*BoS_>V<;#Wo|&$4q$?ubsaU4NgDS8kEUdF#g_<|9Xs}1Gne=g>
zD;@8OBw`%M->xiL9!(`P*{&qEXJS{K->>AJ@i3N2_va``>c<L<<s2Y^?vzXUKLeQz
z=s{9mg9_ezZ<;yty^<MxBhjf;-)7~0rF+#`3>d@RBp-sg33n#VO2oPbVq8loByUWj
zOWrgoAe~AiYSm~ejyJ0K7#AyTpL0mTyq$cLp#WP<Y!>=6B0KrYgI5xTK2i9jGXpVB
zVBC9{9qH1Xajdiw@&9t|L$l6Nhn^!v3)W24mU+iz-1k)Yv7w*I_$=7ITZ-}h6-I1Z
z1An60&s4hx2cn+ELE15G=pH<S9;A_Z2akJF>AkUR0}?t|F>UOuV!rCD^!((TvVRj;
z(W_<Ch7Qk1Rsb;`kuOwj#Cqe|KT<k5%s3K@Ez5~?hBM>T`0>%xA<l2!^R`r~mE$$X
z3AJd@<5#OP@(F5tTVnv7$ZNuuMz!?ltHABjSHbqi2IQV+tIiLra+cfGByU$SiE6iO
zte3xX->GWC9ZQ^kBj)UBl!?=ajyz>QGkWyc`0&ZGNpSHVj%4bgkJs+2RVaiWy=#^!
zD4Nz#WdTa`a9JMq?Dyc(>WgyUv~gLIF_|bb{$T{31-V)Rn9#SY&UqSTa%}vlJvw&U
z9v*{11ygw8*ib-%v8RCi9vBZ+p|)-L6$)kA$YG0PY`J)G?b5Ig5VuNp3(q*lGx7_B
zb9)=u^*U1lwiX!sx;5wc)Wi7hmYWc#*%|-Oz_4dK7y@R{3)LKiq;n~{YVen#sJQEK
z2h(Qck-P2BHLDnkaT`7Dff+}=uU7F7XZv}(*doT~j`QC06w5(Rv5&%-Y2&>2oCjWW
zlSSnOa5a&126&##S*-6R)fn7`oQh5t5o7<C*!$R;+_7z3z^_)3{uhd#;p^`2?Ry$A
z-S1&!oGL;bbQigFnm_T9`i`RJW)SJ`$vm-5HiSFnqsnx5BH0`3#S0T(hW4q_rnm7V
z2AzrKJyA^{sLQ}18pKs-x}T_?Q>Ve>qr)fha#{-NSE{FtZ&mxSx}h45j~<=~)dK&m
z>VWx5HM7dyiO^+>ROdWjhxL!g4m7GF<8JW#jdh-lHGcHu=n>Ue<o$t?#KpV}SBoV}
z&}qvV)kZo(PPMF;-G`|JhIwFgXh*5c!Y|s&HS+?jNtE-HEvt(~y`xZZ=oxsBudehl
z19#T;dtRxg?HHQ~UE3B^JB38mK&TKcie|m+)A*cqv!uAqXr`u}U}`AW;r5wNRI@Vj
zj<NE5b(8$P?+=$CG;rc^X6aAWPIlm4mVoZuS`BGA%TuGM{9C!DaEulZ9mQAQ0^FTF
zz*Nzq0w$;_oJAOG5Bk5x#!rW=1n6kuTQ3c!W*>^zX^jE0a4F`jff}Fry48(OZ9oXL
z-8Hxy@i&F$<vFHrqCfK(C+q;wtb@0;y`5f=e^4`Rkfj)VW`+VER3fxkKQEpO1!>!N
zau6|Le95G^a~?KxES1>9cY$ImXYhh?0zM?-nJjO(Tky)Gnrjl*=$2YGWv5J<bB^Jf
zyn1QvRAXhvoKzXzRm*p?ypeV@qq^;WS!g>p)ulpH9ee`a{vvJ;21R>O=Xjc<Hr3V5
z-zMnYn+%*v9iQ|Y5ufym{ib=VhC$csb(8#Kt){+z8IF`)E6{V*C>GTup0r$Qb_;K>
zYmk<KtEAFDR1}s**b_dFNYbFZ<4UbIG0mlhKM2tAX(Q<Up65y}9lTv|kbb1Y0ThmA
zoKgAW1U|kIVeiRw7Jh-jRO6M~554+R)C^)=hRxxcNhsZAQu410lELfWjR>LK{tsTw
z6@^3#a_{GjC*xW2auwrs{?|24lHd3sDyK<)wQ(1||HIcP2PdANkS|@062(udhfYl#
Qvr`#;?_i-m*e=HZ0A5&X2LJ#7

diff --git a/emul/xcomp.fs b/emul/xcomp.fs
index e7b63f4..07c4963 100644
--- a/emul/xcomp.fs
+++ b/emul/xcomp.fs
@@ -1,5 +1,6 @@
 0xe800 CONSTANT RAMSTART
 0xf000 CONSTANT RS_ADDR
+0xfffa CONSTANT PS_ADDR
 212 LOAD  ( z80 assembler )
 262 LOAD  ( xcomp )
 : CODE XCODE ;
diff --git a/recipes/rc2014/xcomp.fs b/recipes/rc2014/xcomp.fs
index 6f08080..903cade 100644
--- a/recipes/rc2014/xcomp.fs
+++ b/recipes/rc2014/xcomp.fs
@@ -1,5 +1,6 @@
 0x8000 CONSTANT RAMSTART
 0xf000 CONSTANT RS_ADDR
+0xfffa CONSTANT PS_ADDR
 0x80   CONSTANT ACIA_CTL
 0x81   CONSTANT ACIA_IO
 4      CONSTANT SDC_SPI
diff --git a/recipes/ti84/xcomp.fs b/recipes/ti84/xcomp.fs
index 0b0dd8c..5d142e3 100644
--- a/recipes/ti84/xcomp.fs
+++ b/recipes/ti84/xcomp.fs
@@ -1,5 +1,6 @@
 0x8000 CONSTANT RAMSTART
 0xb000 CONSTANT RS_ADDR
+0xbffa CONSTANT PS_ADDR
 RAMSTART 0x70 + CONSTANT LCD_MEM
 RAMSTART 0x72 + CONSTANT KBD_MEM
 0x01 CONSTANT KBD_PORT
diff --git a/recipes/trs80/xcomp.fs b/recipes/trs80/xcomp.fs
index 2db7e2b..0f3ebb5 100644
--- a/recipes/trs80/xcomp.fs
+++ b/recipes/trs80/xcomp.fs
@@ -1,4 +1,5 @@
 0xf000 CONSTANT RS_ADDR
+0xfffa CONSTANT PS_ADDR
 RS_ADDR 0x80 - CONSTANT RAMSTART
 212 LOAD  ( z80 assembler )
 262 LOAD  ( xcomp )