{
  This is a brief programming example showing how to use the routines
  in DMA.I
}

{$s5}

program dmatest;

{$i DMA.I}

   var drivesize:long_integer;
      rc,row,col:integer;
      c:char;
      buffer:dat_rec;

begin
   ID:=0;
   LUN:=0;

   drivesize:=read_capacity;
   writeln('Drive Capacity=',drivesize);
   read(c);
   writeln;

   rc:=read_sector(buffer.buf,0,1);
   writeln('Return Code=',rc);
   read(c);
   writeln;

   if rc=0 then begin
      for row:=0 to 31 do begin
         for col:=0 to 15 do write(buffer.bytes[row*16+col]:2:h,' ');
         writeln;
      end;

      read(c);
      writeln;
   end;
end.