collapseos/blk/391

: .2 DUP 10 < IF SPC THEN . ;
: LIST
    BLK@
    16 0 DO
        I 1+ .2 SPC
        64 I * BLK( + DUP 64 + SWAP DO
            I C@ 0x20 MAX EMIT
        LOOP
        NL
    LOOP
;
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`: .2 DUP 10 < IF SPC THEN . ;`
			`: LIST`
			`BLK@`
			`16 0 DO`
			`I 1+ .2 SPC`
			`64 I * BLK( + DUP 64 + SWAP DO`
LIST: simplify logic There wasn't much of a reason to leave a loop early on 0x0d or null. The idea was that once you have a CR or null, the rest is garbage and you shouldn't see it. However, it brought a problem: In VE, you couldn't insert characters past that limit. It would be written, but never displayed. So let's get rid of this logic and simply always display a 64x16 grid. 2020-06-10 19:00:03 -04:00			`I C@ 0x20 MAX EMIT`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`LOOP`
			`NL`
			`LOOP`
			`;`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-23 15:14:14 -04:00
VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-11 18:12:01 -04:00