collapseos/blk/465

13 lines
226 B
Plaintext
Raw Normal View History

2020-04-25 21:54:07 -04:00
: BLK$
H@ 0x57 RAM+ !
( 1024 for the block, 8 for variables )
1032 ALLOT
( LOAD detects end of block with ASCII EOT. This is why
we write it there. EOT == 0x04 )
4 C,
0 BLKDTY !
-1 BLK> !
;