const
    short  = 1000; { delays for pauses }
    medium = 2000;
    long   = 3000;
    buffersize = $3000; { 12k buffer space }
    MAXTRIES   = 2;     { number of times to try diskio before giving up }
    maxdirs    = $400;  { maximum number of directory entries }
    drivemax   = 4;
    getintrp   = $35;   { dos 21 int functions }
    setintrp   = $25;

    disktable  = $1E;   { disk parameter block has address stored here }
    equip      = $11;

    diskio     = $13;   { does the dirty work }
    diskreset  = $00;   { put one of these in ah for intr $13 }
    diskstatus = $01;
    diskread   = $02;
    diskwrite  = $03;
    diskverify = $04;
    diskformat = $05;
    onesector  = $01;  { in al }
    phys       : array[0..3] of integer = (128,256,512,1024);
    carryflag  = $01;

    MAXsector  = 40;   { max sector number on a track }
    driveflag  = $00c1 ;