collapseos/blk/360

: 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!
;
recipe/rc2014: use core libs from blkfs 2020-04-27 03:57:44 +10:00			`: 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@`
			`;`
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			`: 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!`
			`;`