2020-05-15 02:08:17 +10:00
|
|
|
: _err LIT" FDerr" ERR ;
|
2020-05-01 06:10:35 +10:00
|
|
|
: _cylsec ( sec -- cs, return sector/cylinder for given secid )
|
|
|
|
|
( 4 256b sectors per block, 10 sec per cyl, 40 cyl max )
|
|
|
|
|
10 /MOD ( sec cyl )
|
|
|
|
|
DUP 39 > IF _err THEN
|
2020-05-08 05:40:10 +10:00
|
|
|
8 LSHIFT + ( cylsec )
|
2020-05-01 06:10:35 +10:00
|
|
|
;
|
|
|
|
|
: FD@! ( wref blk -- )
|
2020-05-02 04:38:31 +10:00
|
|
|
1 @DCSTAT NOT IF _err THEN
|
2020-05-08 05:40:10 +10:00
|
|
|
2 LSHIFT ( 4 * -- wr sec )
|
2020-05-01 06:10:35 +10:00
|
|
|
4 0 DO ( wr sec )
|
|
|
|
|
DUP I + _cylsec ( wr sec cs )
|
2020-05-08 05:40:10 +10:00
|
|
|
I 8 LSHIFT BLK( + ( wr sec cs addr )
|
2020-05-01 06:10:35 +10:00
|
|
|
1 ROT ROT ( wr sec drv cs addr )
|
|
|
|
|
4 PICK EXECUTE NOT IF _err THEN
|
|
|
|
|
LOOP 2DROP ;
|
