collapseos/blk/360

: ACIA$
    H@ DUP DUP ACIA( ! ACIAR> !
    1+ ACIAW> !  ( write index starts one position later )
    ACIABUFSZ ALLOT
    H@ ACIA) !
( 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 PC!
( setup interrupt )
    0xc3 0x4e RAM+ C!  ( c3==JP, 4e==INTJUMP )
    ['] ~ACIA 0x4f RAM+ !
    ['] (emit) 0x53 RAM+ ! ( 53==EMITPTR )
    (im1) ;
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			`: ACIA$`
			`H@ DUP DUP ACIA( ! ACIAR> !`
			`1+ ACIAW> ! ( write index starts one position later )`
			`ACIABUFSZ ALLOT`
			`H@ ACIA) !`
			`( 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 PC!`
			`( setup interrupt )`
			`0xc3 0x4e RAM+ C! ( c3==JP, 4e==INTJUMP )`
			`['] ~ACIA 0x4f RAM+ !`
			`['] (emit) 0x53 RAM+ ! ( 53==EMITPTR )`
			`(im1) ;`