collapseos/recipes/trs80/blk/610

: 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 ;
trs80: add CL< and CL> 2020-05-02 04:38:31 +10:00			`: FD@ ['] @RDSEC SWAP FD@! ;`
			`: FD! ['] @WRSEC SWAP FD@! ;`
recipes/trs80: making progress on floppy drivers 2020-05-01 06:10:35 +10:00			`: FD$ ['] FD@ BLK@* ! ['] FD! BLK!* ! ;`

trs80: adapt recipe to single stage xcomp 2020-05-15 02:08:17 +10:00			`: _err LIT" *CLerr" ERR ;`
trs80: add CL< and CL> 2020-05-02 04:38:31 +10:00			`: *CL< 0 BEGIN DROP 0x0238 @GET UNTIL ;`
			`: *CL> 0x0238 @PUT NOT IF _err THEN ;`