collapseos/recipes/rc2014/blk/610

: _ [ SIO_ACTL LITN ] PC! ;
: SIO$
    H@ [ SIO( LITN ] ! 0 [ SIOR> LITN ] C!
    1 [ SIOW> LITN ] C! ( write index starts one pos later )
    [ SIO_BUFSZ LITN ] ALLOT
    0x18 _ ( CMD3 )
    0x24 _ ( CMD2/PTR4 ) 0b11000100 _ ( WR4/64x/1stop/nopar )
    0x03 _ ( PTR3 ) 0b11000001 _ ( WR3/RXen/8char )
    0x05 _ ( PTR5 ) 0b01101000 _ ( WR5/TXen/8char )
    0x21 _ ( CMD2/PTR1 ) 0b00011000 _ ( WR1/Rx INT all chars )
    (im1)
;
Move SIO driver into RC2014 recipe 2020-08-16 23:31:02 +10:00			`: _ [ SIO_ACTL LITN ] PC! ;`
			`: SIO$`
			`H@ [ SIO( LITN ] ! 0 [ SIOR> LITN ] C!`
			`1 [ SIOW> LITN ] C! ( write index starts one pos later )`
			`[ SIO_BUFSZ LITN ] ALLOT`
			`0x18 _ ( CMD3 )`
			`0x24 _ ( CMD2/PTR4 ) 0b11000100 _ ( WR4/64x/1stop/nopar )`
			`0x03 _ ( PTR3 ) 0b11000001 _ ( WR3/RXen/8char )`
rc2014: make SIO actually work on real hardware my previous commit was only tested in emulation, I had init wrong. 2020-08-19 05:33:15 +10:00			`0x05 _ ( PTR5 ) 0b01101000 _ ( WR5/TXen/8char )`
Move SIO driver into RC2014 recipe 2020-08-16 23:31:02 +10:00			`0x21 _ ( CMD2/PTR1 ) 0b00011000 _ ( WR1/Rx INT all chars )`
			`(im1)`
			`;`