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.
1528 Commits
4 Branches
13MB
Tree: 97ec2569a0
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '97ec2569a0'
${ noResults }
collapseos/recipes/rc2014/blk/610

13 lines
429B
Raw Blame History 

  1. : _ [ SIO_ACTL LITN ] PC! ;

  2. : SIO$

  3.     H@ [ SIO( LITN ] ! 0 [ SIOR> LITN ] C!

  4.     1 [ SIOW> LITN ] C! ( write index starts one pos later )

  5.     [ SIO_BUFSZ LITN ] ALLOT

  6.     0x18 _ ( CMD3 )

  7.     0x24 _ ( CMD2/PTR4 ) 0b11000100 _ ( WR4/64x/1stop/nopar )

  8.     0x03 _ ( PTR3 ) 0b11000001 _ ( WR3/RXen/8char )

  9.     0x05 _ ( PTR5 ) 0b01101000 _ ( WR5/TXen/8char )

  10.     0x21 _ ( CMD2/PTR1 ) 0b00011000 _ ( WR1/Rx INT all chars )

  11.     (im1)

  12. ;