collapseos/blk/587

: (key)
    ( inc then fetch )
    [ ACIAR> LITN ] @ 1+ DUP [ ACIA) LITN ] @ = IF
        DROP [ ACIA( LITN ] @
    THEN
    ( As long as R> == W>-1, it means that buffer is empty )
    BEGIN DUP [ ACIAW> LITN ] @ = NOT UNTIL
    [ ACIAR> LITN ] !
    [ ACIAR> LITN ] @ C@
;
: (emit)
    ( As long at CTL bit 1 is low, we are transmitting. wait )
    BEGIN [ ACIA_CTL LITN ] PC@ 0x02 AND UNTIL
    ( The way is clear, go! )
    [ ACIA_IO LITN ] PC!
;
acia: make wholly cross compilable 2020-05-11 21:52:44 -04:00			`: (key)`
			`( inc then fetch )`
rc2014: add a declaration part to ACIA drivers Driver configuration don't need their own words at runtime, we only need to compile them as literals when compiling words. Now that we have this "declaration blocks" pattern emerging, it seems like a good idea to take advantage of this in drivers, both for simplifying the xcomp unit and to make final binary slimmer. 2020-06-28 17:30:01 -04:00			`[ ACIAR> LITN ] @ 1+ DUP [ ACIA) LITN ] @ = IF`
			`DROP [ ACIA( LITN ] @`
acia: make wholly cross compilable 2020-05-11 21:52:44 -04:00			`THEN`
			`( As long as R> == W>-1, it means that buffer is empty )`
rc2014: add a declaration part to ACIA drivers Driver configuration don't need their own words at runtime, we only need to compile them as literals when compiling words. Now that we have this "declaration blocks" pattern emerging, it seems like a good idea to take advantage of this in drivers, both for simplifying the xcomp unit and to make final binary slimmer. 2020-06-28 17:30:01 -04:00			`BEGIN DUP [ ACIAW> LITN ] @ = NOT UNTIL`
			`[ ACIAR> LITN ] !`
			`[ ACIAR> LITN ] @ C@`
acia: make wholly cross compilable 2020-05-11 21:52:44 -04:00			`;`
			`: (emit)`
			`( As long at CTL bit 1 is low, we are transmitting. wait )`
			`BEGIN [ ACIA_CTL LITN ] PC@ 0x02 AND UNTIL`
			`( The way is clear, go! )`
			`[ ACIA_IO LITN ] PC!`
			`;`