mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 05:08:05 +11:00
16 lines
186 B
Plaintext
16 lines
186 B
Plaintext
|
: ADEVMEM+ 0x55 RAM+ @ + ;
|
||
|
: A@* 0 ADEVMEM+ ;
|
||
|
: A!* 2 ADEVMEM+ ;
|
||
|
|
||
|
: ADEV$
|
||
|
H@ 0x55 RAM+ !
|
||
|
4 ALLOT
|
||
|
['] C@ A@* !
|
||
|
['] C! A!* !
|
||
|
;
|
||
|
|
||
|
: A@ A@* @ EXECUTE ;
|
||
|
: A! A!* @ EXECUTE ;
|
||
|
|
||
|
|