DSKFRE BASIC SUBROUTINE

                                  NOTICE

All    rights   reserved.  This software is the property of UDISCO LTD.  and
the material contained herein is  the   proprietary   property   and   trade
secrets    of    UDISCO  LTD.,  embodying  substantial  creative efforts and
confidential information, ideas and expressions, no part of  which  may   be
reproduced   or  transmitted  in  any  form  or  by  any  means, electronic,
mechanical,  or  otherwise,  including  photocopying  or  input  into    any
information   storage  or  retrieval  system  without  the  express  written
permission of UDISCO LTD.

Permission to copy and use is granted to AMUS members for non commercial
purposes only.

       Author:         Rene S. Hollan
       Date Written:   June 3, 1989

       COPYRIGHT (C) 1989 - UDISCO LTD.

       Usage:  XCALL DSKFRE,<device spec.>,<contig>,<total>

       Where   <device spec.> is device specification (i.e. DSK0:),

               <contig> receives size of largest contigous block,

               <total> receives total number of blocks free.

               <contig> and <total> must be mapped as floating point
                                    variables, i.e.:

               MAP1 contig,F,6
               MAP1 total,F,6

       If an error occurs (bad device spec., etc.) contig is set to
       0 and the file system error code is returned in total.

   Note that the device driver for the specified device must be loaded
into memory and that there must be sufficient memory available in the
BASIC impure area to hold a 24 byte result table (from DSKFRE), a DDB,
and a 512 byte disk buffer.