collapseos/blk/500

: FD@ ['] RDSEC SWAP FD@! ;
: FD! ['] WRSEC SWAP FD@! ;
: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;