mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-06 10:58:45 +10:00
ecca70c7f3
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...
18 lines
487 B
Plaintext
18 lines
487 B
Plaintext
: 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) ;
|
|
|