izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove LF word

Browse Source 
Also, remove extraneous uses of it. In the rdln routine, we would
spit a new line after each line input, but that NL was spurious:
we already spit the newline we receive as it is typed.
This commit is contained in:
Virgil Dupras 2021-01-02 09:45:08 -05:00
parent ba4edbdce3
commit 1fb062e121
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
blk.fs
View File

@ -1717,8 +1717,8 @@ with "390 LOAD"
( ----- 356 ) ( ----- 356 )
SYSVARS 0x53 + :** EMIT SYSVARS 0x53 + :** EMIT
: STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ; : STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ; : BS 8 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ; : CRLF CR 10 EMIT ; : SPC 32 EMIT ;
SYSVARS 0x0a + :** NL SYSVARS 0x0a + :** NL
: ERR STYPE ABORT ; : ERR STYPE ABORT ;
: (uflw) LIT" stack underflow" ERR ; : (uflw) LIT" stack underflow" ERR ;
@ -1970,10 +1970,8 @@ SYSVARS 0x0c + :** C<*
C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
LOOP NL ; LOOP NL ;
: DUMP ( n a -- ) : DUMP ( n a -- )
LF
SWAP 8 /MOD SWAP IF 1+ THEN SWAP 8 /MOD SWAP IF 1+ THEN
0 DO _ LOOP 0 DO _ LOOP ;
;
( ----- 378 ) ( ----- 378 )
( handle backspace: go back one char in IN>, if possible, then ( handle backspace: go back one char in IN>, if possible, then
emit BS + SPC + BS ) emit BS + SPC + BS )
@ -2009,8 +2007,7 @@ SYSVARS 0x55 + :** KEY?
( Read one line in input buffer and make IN> point to it ) ( Read one line in input buffer and make IN> point to it )
: (rdln) : (rdln)
( EOT or less triggers line flush ) ( EOT or less triggers line flush )
(infl) BEGIN (rdlnc) 5 < UNTIL (infl) BEGIN (rdlnc) 5 < UNTIL IN( IN> ! ;
LF IN( IN> ! ;
( And finally, implement C<* ) ( And finally, implement C<* )
: RDLN< : RDLN<
IN> @ C@ IN> @ C@

BIN
cvm/stage.bin
View File

Binary file not shown.