From 77d4481146c5b765bb6b9837f34aacbcad7d7250 Mon Sep 17 00:00:00 2001 From: David Schmenk <dschmenk@gmail.com> Date: Fri, 24 Nov 2017 18:32:12 -0800 Subject: [PATCH] Add clear (Z) editing command --- RPNCALC.PO | Bin 143360 -> 143360 bytes src/samplesrc/rpncalc.pla | 8 +++++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/RPNCALC.PO b/RPNCALC.PO index 225a9eba6e9837cde5e3f5ff90460e494b80dbd5..372d0b3f6ea58fd67fdf19eff16aabbccdf517ab 100644 GIT binary patch delta 1734 zcmYL^3v5$m9L4{=kKVhrtX<pPZQN3DW3w$X%F2KtBC}36GY4xgIO#e<6avKvGC?FJ zci-YPM52CP9ub3&7$ov=;v~KZAwdn1gouwwMlwK<#~7PPf-xBJv|O>t@1Ar1-~Zh2 zw)>3QeMbHGEjiFd1=L(bYb$+4m2{41ePzhk-zT>Xx?=_A08!FcPE>BWFYGiomFRTm z7cRT+j;H-4i~bL~HbX2F(=#%;QI$4RL6~WWdKW^y9j15?rsTt@HcfPk>1p;!oq|wj zhv_ba=@~NfuZwz+qIPMjSR|&W+IzJMLaiO*E`+!pCVLPj+nt!`71J^Mq((ug$%i(r z-G$Je4;M=&c@QSqoiU<MNhcdyjmBhVK%4FIiRsz-qlVHs9)vk|NQwa^ooWjwBbiaH z$%T*zH$_sJty)4WQqti>WL_%MSDMni2&u@Le#iM+j%0HyW`>3<!bYSa7aBBF!wnH5 z7dk_zwud_-k0Z2%a@Cf|!?g&Fp<Jgi(%FvC8bYTf+!{f!8ZXs5l9qYtE=RKey-O|! z!oJH1Jg;3Iho@(#I+*lz(E5<KV|mEiQb^SyZ+0v#j2Vf5p#-e9p@|c-zF5>z8}&z> zRHMvFJ-g(Im9vceFzUoqBr>wrn?nm6S!;CYQvt1=SEfoz!05FGuEgC+U{Sl^u;1qy zj^-Bb9Zuw=d-#EIw~y~!+v~r*neQ}Nr-vVL^jguY)$WRbK@^Qi>jWcibzH3;*Xy4j zpz68aWkR&jDNuHL?yHaZ?czIEpFy#B<ZefWRX<Wy6b~2~e32g;x&QUlNVkdHQj)vv zziEwY;nFo-D^@){Ay!jo;KH7=7)7<Lgf~-%u&IQEa2W~vp}Iyw6=(yaU;tdid@Hn} zl!QKz^pTJSy?zpo03|>|1&D)0fQp1Bm<(t^vBz3F+GDbL0`bLyz`KMX+X%k}x(9k# z2=Wt{pN9Spy$N-T0xuPVJPeIPAB3i$PeM09nJBT%BC%~E@wY{t?-qmXGx&p;e~<Yo zFo=9k9Lq;=c2hKolO%Ds6l8vhSUCtv#K&V6k%Bx1oq@Btm^XrEFc0TRNoSA2FM?l! z^KSSp;C<xX==G!bCG-gNJLr$l0q8kNVt-+0j2z?vS?1-YEU*bO@j49dmnA-5*4bj@ z6|&CPz&{7S0p5gv5&mW9>oT#eU_00Wc7Z+MBX9tG4!*+fVeEbbe;oV(eg-GODVz<; z#q2D+c^;1|U<6#l!JjDo4KF*16#zHz0H2e1iL;oM!H)+OAOdQ^Y%mu*1e!rBSO7Y~ za<B^YfS154;8kFO?M^b;yD%Suy`T@5e1c03z<&V_fv>?)a10y=C$RGqc7A~$gg@)l z*#-E^U>ID->>sDjU5d`jKozJ}bT&sJwp1a$Tye71@EhUZP)wa|L)d|^3rl<9`{56v zbPSvXzkxr%E#OvlUasn_N+tHFN_@WRWXs@Jg4Li4tOL)37k~*~!rp6YkZ)F<e4DEB weeegtx2nXC-2?M07*-|bC?F;Q1r&lYzzZgT$^zoi{^ILLg`OK9+;GhL7Z#GMO#lD@ delta 1706 zcmX|<4Qvx-9LC>!?{n+yx_;ay*EPyVX^$|<2K!<T$5KHu2kTB8cAZf(f?JTd5or{2 zJ4h6aCVROIiO3QSA4UVHTc#l)k>FP(VjzOcGzfvnDBCar7hQ<+xmsEB>+}5n@B6=N zll5Iu`mQLS91#6IB#+E>lk_~FhmdQ;<CLKjV#{T&cZmCamMeHL&m1Ep?kyoVOYDN{ zhfOn}k^6r|C6C<i<WQiB&*zg>DQDzXt7S-aPHJ3`nw%^tge=L*sJe_V;FHU8C(C8X z@|;w<AeA}M3n6-nn0WT6x|DbG$)&lYav4&dlL{B4A}5OrA&avzs>XN^pN!>B%4A4c zR%+EY7o;sKV}V75kVUzj2Y9cXj5izcMCy!M=koGNvo3q27uOfU>T{Cd{c^IkC6b7y zM%6VgNMmG8v^8a_jjCHtMjE5*T2uRrTU8IFHTrln#8C0<h!JgYq(Q|_q#<fJ(h<T= zTcjhp5z-WLcABEA%OUYlv9lD9cC^8oLs)8xG)EzJV!Vcn+i#6O%*BU}kGnX?$(xP% z{O4vVK7*NXFz#(9>5!*=bI8+_Pr@Nj*Br7TW>or(8K2#enLj_}jp<yu?$aewCfBxZ zd-nP6S|dBuB}{ojjFf#O^CXwD?`4K5wm!SHRG9G@Y5T^l3dh3}x)X_sMkn5xSXDaX zd%BHs_g|Lw{r5g+XsocOC)RRlyJ0e15bzs>=rQ4CYJ~0H$#7}fx86^}k9syyJzt`v ztJ3+dBiW~6ab)r(EJmglashk&)B<<dZ>;wlc>0LX`8B(y`b_xBfb+Khr)91UojtuT zY<=;eSlMy|FYGRf5nb&P@MO|X%>bcAC4?SAx>Z7J!6-Nb#xOIHdNHB<LEKAd3Z#96 zj(`~u@Dmyam0*RR<Wqcqx)O`scK_|2CQDGtHqoH9gA%qIIfxvhLG~5q7m(MGQ^;9l zJ|AQnPgxjQg?tS86mko48!uRI@WgtPCyenLJIDvEkI+wGeg^Y%;5_^iKZjk#*%bO6 z-W1p@L=uQq015@dyn?`jLXgcv>O#<}z`PpNfmJw<3!1eS{Rwmf=e_8=!9Msw>>a`0 zG2{sH6!IJ756DY`U`^l-5ra$?MOGkE%V&y&MKCBA1=c8PRs!BGYOE8z3w;ZE5BhfW zSCG3zV(kHMgMRQX7zFQw55dRaIPMPN?ic8%!PnqBa2A}y*?F<Z`U(AKU|z<@Rd5{# z87$pK{|np$vw%v(5+%YEsmOAndw~WPfGAi3%0U&V2dhB~Xan6~E7%6MgB@TO*aP;0 z0g0H_emwjD9zKY{2jD0;20jJD;B#;icTVBXm+0T3e=lj)kLVY`Mer+THzbYS1)Qug zH_&9wS|}5%SthJSmaL8FJ?O7u-iQ7=dcSOH)&S%^$Wbf}gVW#~_yvrEKLJ%V%dHTr zQX#BHk*sy-2G|JN!871F&<Qq!t+<y~g6uU#VttCj_MsmJClrAVBhP}1ieP2t;_@W; n1Ka`A;BSzZhkwXC!hCtbf#0}^q43=?&i2rSJExCKbG82h`RA~# diff --git a/src/samplesrc/rpncalc.pla b/src/samplesrc/rpncalc.pla index ea0dbc4..90ac25a 100644 --- a/src/samplesrc/rpncalc.pla +++ b/src/samplesrc/rpncalc.pla @@ -21,7 +21,7 @@ struc t_keyinput byte keyinfo[t_keypad] word phandler end -predef delKey#0, cmdKey#0, dropKey#0 +predef delKey#0, cmdKey#0, dropKey#0, clearKey#0 predef digitKey#0, pointKey#0, opKey#0 predef enterKey#0, copyKey#0, chsKey#0, memKey#0 predef elemsKey#0 @@ -47,6 +47,8 @@ byte[t_keypad] = $1B, 0, 0, "" word = @cmdKey byte[t_keypad] = '=', 0, 0, "" word = @dropKey +byte[t_keypad] = 'Z', 0, 0, "" +word = @clearKey byte[t_keypad] = '7', 3, 10, "[7]" word = @digitKey byte[t_keypad] = '8', 7, 10, "[8]" @@ -262,6 +264,10 @@ def copyKey(pkey)#0 fin showInput end +def clearKey(pkey)#0 + initInput + showInput +end def digitKey(pkey)#0 if inputStr < inputLen if inputStr:0 <> ZEROSTR