collapseos/blk/376

( n -- Fetches block n and write it to BLK( )
: BLK@* 0x34 RAM+ ;
( n -- Write back BLK( to storage at block n )
: BLK!* 0x36 RAM+ ;
( Current blk pointer in ( )
: BLK> 0x38 RAM+ ;
( Whether buffer is dirty )
: BLKDTY 0x3a RAM+ ;
: BLK( 0x3c RAM+ @ ;
: BLK) BLK( 1024 + ;
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-03 11:47:32 +10:00			`( n -- Fetches block n and write it to BLK( )`
Make blk use system RAM 2020-05-15 04:49:16 +10:00			`: BLK@* 0x34 RAM+ ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-03 11:47:32 +10:00			`( n -- Write back BLK( to storage at block n )`
Make blk use system RAM 2020-05-15 04:49:16 +10:00			`: BLK!* 0x36 RAM+ ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-03 11:47:32 +10:00			`( Current blk pointer in ( )`
Make blk use system RAM 2020-05-15 04:49:16 +10:00			`: BLK> 0x38 RAM+ ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-03 11:47:32 +10:00			`( Whether buffer is dirty )`
Make blk use system RAM 2020-05-15 04:49:16 +10:00			`: BLKDTY 0x3a RAM+ ;`
			`: BLK( 0x3c RAM+ @ ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-03 11:47:32 +10:00			`: BLK) BLK( 1024 + ;`