1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 15:38:05 +11:00
collapseos/blk/143

16 lines
186 B
Plaintext
Raw Normal View History

: 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 ;