collapseos/blk/359

: (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!
;
Add a layer of indirection for KEY 2020-05-03 00:37:37 +10:00			`: (key)`
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-02 10:05:15 +10:00			`( 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!`
Copy ACIA driver to blkfs We can get rid of acia.z80, but not of acia.fs yet, we still need it. 2020-04-24 02:42:41 +10:00			`;`