collapseos/blk/105

: _type ( buf -- )
    C< DUP 0xd = IF 2DROP EXIT THEN OVER DUP _zbuf ( c a )
    BEGIN ( c a )
        C!+ C< SWAP
    OVER 0x0d = UNTIL ( c a ) C! ;
( user-facing lines are 1-based )
: T 1- DUP 64 * EDPOS ! _pln ;
: P IBUF _type IBUF EDPOS @ _cpos 64 MOVE BLK!! ;
: _mvln+ ( ln -- move ln 1 line further )
    DUP 14 > IF DROP EXIT THEN
    _lpos DUP 64 + 64 MOVE
;
editor: implement F 2020-05-01 21:52:38 -04:00			`: _type ( buf -- )`
editor: implement I command Also, made LIST properly handle full 64-chars lines not ending with a null or CR. Previously, such a line would be accompanied by its following line, duplicating that line's output. 2020-05-06 12:19:36 -04:00			`C< DUP 0xd = IF 2DROP EXIT THEN OVER DUP _zbuf ( c a )`
editor: implement F 2020-05-01 21:52:38 -04:00			`BEGIN ( c a )`
			`C!+ C< SWAP`
			`OVER 0x0d = UNTIL ( c a ) C! ;`
editor: add edit buffer Also, add word "C!+" and fix PSP leak in FILL. 2020-05-01 13:17:40 -04:00			`( user-facing lines are 1-based )`
			`: T 1- DUP 64 * EDPOS ! _pln ;`
editor: implement F 2020-05-01 21:52:38 -04:00			`: P IBUF _type IBUF EDPOS @ _cpos 64 MOVE BLK!! ;`
editor: add "U" word 2020-04-17 07:51:59 -04:00			`: _mvln+ ( ln -- move ln 1 line further )`
			`DUP 14 > IF DROP EXIT THEN`
editor: add cursor pos tracking and display 2020-04-30 20:42:07 -04:00			`_lpos DUP 64 + 64 MOVE`
editor: add "U" word 2020-04-17 07:51:59 -04:00			`;`