izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1258 Commits
4 Branches
13MB
Branch: forth
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'forth'
${ noResults }
collapseos/blk/104

14 lines
363B
Raw Permalink Blame History 

  1. ( Cursor position in buffer. EDPOS/64 is line number )

  2. VARIABLE EDPOS

  3. CREATE IBUF 64 ALLOT

  4. CREATE FBUF 64 ALLOT

  5. : _cpos BLK( + ;

  6. : _lpos 64 * _cpos ;

  7. : _pln ( lineno -- )

  8.     DUP _lpos DUP 64 + SWAP DO ( lno )

  9.         I EDPOS @ _cpos = IF '^' EMIT THEN

  10.         I C@ DUP 0x20 < IF DROP 0x20 THEN

  11.         EMIT

  12.     LOOP ( lno ) 1+ . ;

  13. : _zbuf 64 0 FILL ; ( buf -- )