mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-20 04:48:26 +10:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
212 B
Plaintext
17 lines
212 B
Plaintext
: FD@ ['] @RDSEC SWAP FD@! ;
|
|
: FD! ['] @WRSEC SWAP FD@! ;
|
|
: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;
|
|
|
|
: _err LIT" *CLerr" ERR ;
|
|
: *CL< 0 BEGIN DROP 0x0238 @GET UNTIL ;
|
|
: *CL> 0x0238 @PUT NOT IF _err THEN ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|