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.
1287 Commits
4 Branches
13MB
Branch: wip
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'wip'
${ noResults }
collapseos/blk/627

16 lines
524B
Raw Permalink Blame History 

  1. : _cell! ( tilenum pos )

  2.     2 * 0x7800 OR _ctl ( tilenum ) _data 1 _zero ;

  3. : _spc! 0 ( blank ) XYPOS @ _cell! ;

  4. : _lf

  5.     _spc! XYPOS @ [ VDP_COLS LITN ] / 1+ [ VDP_ROWS LITN ] MOD

  6.     [ VDP_COLS LITN ] * XYPOS ! ;

  7. : _bs _spc! XYPOS @ 1-

  8.     [ VDP_COLS VDP_ROWS * LITN ] MOD XYPOS ! ;

  9. : (emit)

  10.     DUP 0x08 = IF DROP _bs EXIT THEN

  11.     DUP 0x0d = IF DROP _lf EXIT THEN

  12.     0x20 - DUP 0< IF DROP EXIT THEN

  13.     0x5e MIN ( tilenum ) XYPOS @ _cell!

  14.     XYPOS @ 1+ DUP [ VDP_COLS VDP_ROWS * LITN ]

  15.     = IF DROP 0 THEN XYPOS ! ;