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.
1411 Commits
4 Branches
13MB
Tree: 49d7a7f435
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '49d7a7f435'
${ noResults }
collapseos/blk/587

17 lines
397B
Raw Blame History 

  1. : (key)

  2.     ( inc then fetch )

  3.     ACIAR> @ 1+ DUP ACIA) @ = IF

  4.         DROP ACIA( @

  5.     THEN

  6.     ( As long as R> == W>-1, it means that buffer is empty )

  7.     BEGIN DUP ACIAW> @ = NOT UNTIL

  8.     ACIAR> !

  9.     ACIAR> @ C@

  10. ;

  11. : (emit)

  12.     ( As long at CTL bit 1 is low, we are transmitting. wait )

  13.     BEGIN [ ACIA_CTL LITN ] PC@ 0x02 AND UNTIL

  14.     ( The way is clear, go! )

  15.     [ ACIA_IO LITN ] PC!

  16. ;