mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-08 14: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
186 B
Plaintext
16 lines
186 B
Plaintext
: ADEVMEM+ 0x5d RAM+ @ + ;
|
|
: A@* 0 ADEVMEM+ ;
|
|
: A!* 2 ADEVMEM+ ;
|
|
|
|
: ADEV$
|
|
H@ 0x5d RAM+ !
|
|
4 ALLOT
|
|
['] C@ A@* !
|
|
['] C! A!* !
|
|
;
|
|
|
|
: A@ A@* @ EXECUTE ;
|
|
: A! A!* @ EXECUTE ;
|
|
|
|
|