: BLKMEM+ 0x59 RAM+ @ + ; ( n -- Fetches block n and write it to BLK( ) : BLK@* 0 BLKMEM+ ; ( n -- Write back BLK( to storage at block n ) : BLK!* 2 BLKMEM+ ; ( Current blk pointer in ( ) : BLK> 4 BLKMEM+ ; ( Whether buffer is dirty ) : BLKDTY 6 BLKMEM+ ; : BLK( 8 BLKMEM+ ;