collapseos/359 at ecca70c7f3f47d75180ef966b341ae9b401ebd15 - collapseos - SKS Gitea

izaya/collapseos

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 19:20:55 +11:00

Virgil Dupras ecca70c7f3 Add layer of indirection to EMIT

This would allow things like temporary giving control to the *CL
line on the TRS-80. For example... A very far fetched example. Not
at all the only *raison d'etre* of the layer...

2020-05-01 20:05:15 -04:00

17 lines

377 B

Plaintext

Raw Blame History

 : KEY
     ( inc then fetch )
     ACIAR> @ 1+ DUP ACIA) @ = IF
         DROP ACIA( @
     THEN
     ( As long as R> == W>-1, it means that buffer is empty )
     BEGIN DUP ACIAW> @ = NOT UNTIL
     ACIAR> !
     ACIAR> @ C@
 ;
 : (emit)
     ( As long at CTL bit 1 is low, we are transmitting. wait )
     BEGIN ACIA_CTL PC@ 0x02 AND UNTIL
     ( The way is clear, go! )
     ACIA_IO PC!
 ;