File Handling: dos.fs

[Whammo]

Lastly but not leastly, there's nothing to be mined here.
I've added the ability to DOS $ to get a directory, but this interferes
with sending dos commands that have spaces, and $ chokes on padded
spaces- likely consuming any space savings.
Edit: I saw the fix, nevertheless.

require io
\ send command string to drive and
\ print response
: send-cmd ( addr len -- )
$f $f open ioabort
clrchn $f chkin ioabort
begin chrin emit readst until
clrchn $f close cr ;

\ send remainder of line as dos command
\ and print response
: dos parse-name
over c@ 36 = if \ dir
8 0 open ioabort
clrchn
8 chkin ioabort
chrin chrin 2drop page
chrin drop
begin chrin drop
chrin chrin 8 lshift + .
begin chrin ?dup while emit repeat
cr more chrin 0= until
clrchn 8 close cr
else 2drop source >in @ /string \ I saw the fix- nearly didn't
dup >in +!
 send-cmd then ;

The good stuff:

require io

\ send command string to drive and
\ print response
: send-cmd ( addr len -- )
$f $f open ioabort 
clrchn $f chkin ioabort
begin chrin emit readst until
clrchn $f close cr ;

\ send remainder of line as dos command
\ and print response
: dos source >in @ /string 
dup >in +! \ consume buffer
send-cmd ;

[Whammo]

Just a little time and distance and things become apparent.
Welcome to my process folks!

require io

\ send command string to drive and
\ print response
: send-cmd ( addr len -- )
$f $f open ioabort
clrchn $f chkin ioabort
begin chrin emit readst until
clrchn $f close cr ;
\ send remainder of line as dos command
\ and print response
: dos parse-name
over c@ 36 = if \ dir
ls
else 2drop source >in @ /string
dup >in +!
send-cmd then ;