1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 01:00:55 +11:00
collapseos/blk/500

17 lines
212 B
Plaintext
Raw Normal View History

2020-05-02 04:38:31 +10:00
: FD@ ['] @RDSEC SWAP FD@! ;
: FD! ['] @WRSEC SWAP FD@! ;
: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;
: _err LIT" *CLerr" ERR ;
2020-05-02 04:38:31 +10:00
: *CL< 0 BEGIN DROP 0x0238 @GET UNTIL ;
: *CL> 0x0238 @PUT NOT IF _err THEN ;