From 1cbef2f210e72727fc0747dd0a609a24b76144a6 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sat, 2 Jan 2021 13:55:20 -0500 Subject: [PATCH] Add EOT ASCII const --- blk.fs | 14 +++++++------- cvm/stage.bin | Bin 4947 -> 4954 bytes doc/dict.txt | 2 +- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/blk.fs b/blk.fs index e854f9d..5c02fb4 100644 --- a/blk.fs +++ b/blk.fs @@ -1717,7 +1717,8 @@ with "390 LOAD" ( ----- 356 ) SYSVARS 0x53 + :** EMIT : STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ; -: BS 0x8 ; : LF 0xa ; : CR 0xd ; : SPC 0x20 ; : SPC> SPC EMIT ; +: EOT 0x4 ; : BS 0x8 ; : LF 0xa ; : CR 0xd ; : SPC 0x20 ; +: SPC> SPC EMIT ; : NL> 0x50 RAM+ C@ ?DUP IF EMIT ELSE 13 EMIT 10 EMIT THEN ; : ERR STYPE ABORT ; : (uflw) LIT" stack underflow" ERR ; @@ -1806,14 +1807,13 @@ SYSVARS 0x0c + :** C<* C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C, AGAIN ; ( ----- 364 ) -: WS? 33 < ; -: EOT? 4 = ; ( 4 == ASCII EOT, CTRL+D ) -: EOT, 4 C, ; +: WS? SPC <= ; +: EOT? EOT = ; +: EOT, EOT C, ; -: TOWORD +: TOWORD ( -- c, c being the first letter of the word ) 0 ( dummy ) BEGIN - DROP C< DUP WS? NOT OVER EOT? OR - UNTIL ; + DROP C< DUP WS? NOT OVER EOT? OR UNTIL ; ( ----- 365 ) ( Read word from C<, copy to WORDBUF, null-terminate, and return WORDBUF. ) diff --git a/cvm/stage.bin b/cvm/stage.bin index 3107e2992ba7d37b99660c29878968ed3c1efc2c..5def5c9d5dd1f5890f4ddb55908c6009a53ece95 100644 GIT binary patch delta 1768 zcmYjRZERCj7=F*~y}h@+{Vro$ayv?E85F}ZkqOmU*3ylRx{kIJW-~`6q=XNPvL6yj zHnkuGe>hG;tWhUskzr(LqBWUH{9!bi@sD66#Kgoz{|rRYC?AXQIk&@blY8#D@7He5=xi z^?(w@I-v}+_xN??8}=ms)Os=ywRVujpjzYeN8|H@VhWG(J?aB&g1@PD7Hevi5)`7_ zQU@ugaLAk*p?QP0<>LkpzA48L1t{V=$?R+Swq*X@-}swT4Ju@}WpkUHWM!P4A`$ME zx@W4JNe!OKOM*BQHWEwKFWDRiW-6^()FlHBC`=hSk(*09iu|?6x$G7+0x- zex0PGrm-1#MVauh=Cue}lKfpQ;V)|yfN9r=vEQ@>SX++qJ6c9{*b-zR2k*B%Gd5x~ zsJQFt(Ps}0FCmqkwY+Ni+*XnXr7+W2U7b_KKEMoGX&S8x!KkcVf>$z^>Mo>2TDK5S zLRk!YygQffPGnMk(wNOIq$Sy)o@}l+RqzT++now`}2kF z{zALySyxZk!#K2;K&T-H@A=i^RNhcRKLe(<5KukNqGI=>C?Ip1lT_SGb-qX(1@+D znt396mL3S91Tu^12_l)Ziu|)~ic_27O-Q)LGJ1^L90C2bK1s8>h<22BI<^Mm4neC8 zKF=&GuH3*q`jOl3x`D@NL`#extjyS8t`4`Tnu8Z=NY*oY>pyGM(Bv6c zw8^i;=p%#D{e@I+AeSoaBpWO9Yp&LoAxxuXl*Tbq9R$BVk}7-8%YNSGUdLK^!5t3I z>Y_bja01}nI=85Y*w^r9HFr1o>+Wc2R*#T-yIC%w-cDlLGuiGBM@%vzp!DpLjNmz3)k& zcA=BV!E7GsDxY}_ibbCT zNyIqH7)LQyv1rtTjtY^oC>nWc=kC2epcf?{gFUZ!!((*}y1kn3Y!9Y-@*8=~-})csG<_fd delta 1700 zcmY*ZUu;uV82`Ter}wtE|2HN}ZpYT93<|E|gv>fJdPjlIYdhLoAX(;G3B+W?fg36z zQpBr?W>LdQmW-g)1Z6b=V&>$*%oh`4)ICh&gPQQJK3~hu(?LW7IzT2rnY`8K1BuQOsXFKF>*skz2P=O#U)UP}7c!gz?(~kb1~agxuw81j z)T>6YS0%5c6e2gh>Q!u0Z4xIzxdkSPW*~uAaZ;I~bh=;-?+G*H;|?U@w;J@SDqbh6 z1ab?Psm4L*SQ zC|DQY5kGTRgpv?L73<2p!uJu>VT+@*HA+flb%Ct<3z@W)@ljbTmCjk6T;{1OHv8NY!7}^NGlAVKr*%}lD#Mr-!S^vl zs}6?wWJjDj64GLb^q+u+T!(#Tsd!)`$fO=as;jE~$7W9p+1S9X{zdMR#xEkc?BQ-2 zuF1EI(@sR{es(ZQ#Yot#82}Q)G3jT`xz6nE+dxH5V@B&{L2pF6q}5MOt;%IJDdFopirzw<%Gc zEH{Wy{an|E+a#`W?uPvd{D|%LKNe~C8(=Fv(lm{Li|EO*GqXi2N$s3vZ}~R{R;7wl z@gCTZenNZBpV;S;Q}C${*_@Rr3>GrhQE(HpcsC5d^&E5<6L{q=lSWURfN`3fB#^HG z5XMGtNG=u+?8Fco3dCZw8pn>$M}%B-1$Y z1PM=mCEvdqdFJS|qhTU$17rc&3!zxGPGib*&kqK`rs7k;Z&W-U;!|m6t=tB}!XRGM z9miX|@Cpt9ZY`^4X@35uPyr(7ihCO86%GQ)p5PLVGfpQf4nz{dHvFIx8WTWh)Cm&V zRBndiRahV(_w~UAijj0;Ph*9Kz&eo0HBm-3RD{do@lcH(GI}7*BE1ki&p7FF%}2r& z;kv^bEBcTl8F0KXN@sx{Om2OhFyPi*(M=Sm95&#F#PdoU`9lRO8iLpH0$u(o@Jl1J zKbs4}YsmYO-k;9qJalLTe9)Lu&dQoCj-ZkCddG&s)So5xN4RzCih47&-nOCs{8NKj aGc()*Z{Ui`0}XW!d*D?%++@k7ZT|p+cy^Qk diff --git a/doc/dict.txt b/doc/dict.txt index cf06af8..84658d9 100644 --- a/doc/dict.txt +++ b/doc/dict.txt @@ -265,7 +265,7 @@ WORD -- a Read one word from buffered input and push its idered a word). These ASCII consts are defined: -BS CR LF SPC +EOT BS CR LF SPC KEY? and EMIT are ialiases to (key?) and (emit) (see TTY proto- col in protocol.txt). KEY is a loop over KEY?.