collapseos/blk/112

: icpy ( n -- copy n chars from cursor to IBUF )
    IBUF _zbuf EDPOS @ _cpos IBUF ( n a buf ) ROT MOVE ;
: _X ( n -- )
    DUP icpy EDPOS @ _cpos 2DUP + ( n a1 a1+n )
    SWAP _rbufsz MOVE ( n )
    ( get to next line - n )
    DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( n a )
    SWAP 0 FILL BLK!! ;
: X _X EDPOS @ 64 / _pln ;
: _E FBUF _blen _X ;
: E FBUF _blen X ;
: Y FBUF _blen icpy ;
ed: make X and E cut to IBUF This allows cut&paste similar to VI's 2020-06-10 12:09:15 +10:00			`: icpy ( n -- copy n chars from cursor to IBUF )`
			`IBUF _zbuf EDPOS @ _cpos IBUF ( n a buf ) ROT MOVE ;`
VE: supress ed's output on E and X Most of the time, this output would be hidden by the next screen update, except when editing the last line. 2020-06-28 21:04:08 +10:00			`: _X ( n -- )`
ed: make X and E cut to IBUF This allows cut&paste similar to VI's 2020-06-10 12:09:15 +10:00			`DUP icpy EDPOS @ _cpos 2DUP + ( n a1 a1+n )`
			`SWAP _rbufsz MOVE ( n )`
			`( get to next line - n )`
			`DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( n a )`
VE: supress ed's output on E and X Most of the time, this output would be hidden by the next screen update, except when editing the last line. 2020-06-28 21:04:08 +10:00			`SWAP 0 FILL BLK!! ;`
			`: X _X EDPOS @ 64 / _pln ;`
			`: _E FBUF _blen _X ;`
ed: free some blocks for the docs 2020-06-10 11:48:49 +10:00			`: E FBUF _blen X ;`
ed and VE: add command Y 2020-06-11 07:27:14 +10:00			`: Y FBUF _blen icpy ;`