mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:38:06 +11: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...
16 lines
190 B
Plaintext
16 lines
190 B
Plaintext
( Save ACIA conf )
|
|
ACIA_CTL
|
|
: ACIA_CTL [ LITN ] ;
|
|
ACIA_IO
|
|
: ACIA_IO [ LITN ] ;
|
|
ACIA_MEM
|
|
: ACIA_MEM [ LITN ] ;
|
|
( Memory layout
|
|
+0 ACIAR>
|
|
+2 ACIAW>
|
|
+4 ACIA(
|
|
+6 ACIA) )
|
|
|
|
353 355 LOADR
|
|
|