2020-06-09 22:09:15 -04:00
|
|
|
: 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 )
|
2020-06-23 06:53:30 -04:00
|
|
|
SWAP 0 FILL BLK!!
|
2020-06-09 21:48:49 -04:00
|
|
|
EDPOS @ 64 / _pln ;
|
|
|
|
|
: E FBUF _blen X ;
|
2020-06-10 17:27:14 -04:00
|
|
|
: Y FBUF _blen icpy ;
|
