1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 12:08:07 +11:00
collapseos/blk/371

11 lines
242 B
Plaintext
Raw Normal View History

2020-05-25 21:29:47 +10:00
: [entry] ( w -- )
2020-05-26 10:16:07 +10:00
C@+ ( w+1 len ) TUCK MOVE, ( len )
2020-05-25 21:29:47 +10:00
( write prev value )
H@ CURRENT @ - ,
C, ( write size )
H@ CURRENT !
;
: (entry) WORD [entry] ;
: CREATE (entry) 11 ( 11 == cellWord ) C, ;
: VARIABLE CREATE 2 ALLOT ;