[Coco] hard disk performance

[Robert Gault]

PS.

I've assumed that the limiting factor is the speed of the hard drive 
system, not megaread. The code for megaread follows

ReadK    equ   1024       1024K is 1 megabyte (modify as desired)

          mod   eom,name,tylg,atrv,start,size

          org   0
KiloBuff rmb   $0400
          rmb   200        stack space
size     equ   .

name     fcs   /MegaRead/
          fcb   edition

start    ldx   #ReadK
loop     pshs  x          save counter
          leax  KiloBuff,u point (X) to buffer
          ldy   #$0400     read 1K
          clra             std input
          os9   I$Read
          bcs   eofchk
          puls  x          recover counter
          leax  -1,x       done yet?
          bne   loop       no, go get another 1K
          bra   exitok     yes, exit
eofchk   cmpb  #E$EOF     end of media?
          bne   exit       no, a real error
exitok   clrb
exit     os9   F$Exit

          emod
eom      equ   *
          end