izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/588

13 lines
400 B
Plaintext
Raw Normal View History

acia: make wholly cross compilable
2020-05-12 11:52:44 +10:00
: ACIA$
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-29 07:30:01 +10:00
H@ DUP DUP [ ACIA( LITN ] ! [ ACIAR> LITN ] !
1+ [ ACIAW> LITN ] ! ( write index starts one pos later )
acia: make wholly cross compilable
2020-05-12 11:52:44 +10:00
0x20 ( buffer size ) ALLOT
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-29 07:30:01 +10:00
H@ [ ACIA) LITN ] !
acia: make wholly cross compilable
2020-05-12 11:52:44 +10:00
( setup ACIA
CR7 (1) - Receive Interrupt enabled
CR6:5 (00) - RTS low, transmit interrupt disabled.
CR4:2 (101) - 8 bits + 1 stop bit
CR1:0 (10) - Counter divide: 64 )
0b10010110 [ ACIA_CTL LITN ] PC!
(im1) ;