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-02 11:52:38 +10: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-07 02:19:36 +10:00			`C< DUP 0xd = IF 2DROP EXIT THEN OVER DUP _zbuf ( c a )`
editor: implement F 2020-05-02 11:52:38 +10: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-02 03:17:40 +10:00			`( user-facing lines are 1-based )`
			`: T 1- DUP 64 * EDPOS ! _pln ;`
editor: implement F 2020-05-02 11:52:38 +10:00			`: P IBUF _type IBUF EDPOS @ _cpos 64 MOVE BLK!! ;`
editor: add "U" word 2020-04-17 21:51:59 +10:00			`: _mvln+ ( ln -- move ln 1 line further )`
			`DUP 14 > IF DROP EXIT THEN`
editor: add cursor pos tracking and display 2020-05-01 10:42:07 +10:00			`_lpos DUP 64 + 64 MOVE`
editor: add "U" word 2020-04-17 21:51:59 +10:00			`;`