mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:28: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...
18 lines
315 B
Plaintext
18 lines
315 B
Plaintext
IFZ, ( end of buffer reached? )
|
|
( yes )
|
|
( +4 == ACIA( )
|
|
ACIA_MEM 4 + LDHL(nn),
|
|
( +2 == ACIAW> )
|
|
ACIA_MEM 2+ LD(nn)HL,
|
|
THEN,
|
|
THEN,
|
|
THEN,
|
|
DE POPqq,
|
|
HL POPqq,
|
|
AF POPqq,
|
|
EI,
|
|
RETI,
|
|
|
|
|
|
|