collapseos/blk/465

: BLK$
    H@ 0x59 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> !
;
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`: BLK$`
Add layer of indirection to EMIT 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... 2020-05-02 10:05:15 +10:00			`H@ 0x59 RAM+ !`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`( 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> !`
			`;`