4 ALLMOUNT
      
 DESCRIPTION: This routine will allocate and mount a 
	magnetic tape.  It mounts the tape as "foreign" 
	and inserts a user supplied logical name in 
	the Job Logical Name Table.
      
 example call: call ALLMOUNT (*100,512,512,logname)


 PARAMETERS:  

          return1: Error in routine, control is 
		returned to the calling program.  
          
          recordsize: Size of the logical records 
			in bytes or characters.
                      (passed,integer*2)
      
          blocksize: Size of the logical blocks in bytes.
                      (passed,integer*2)
      
          logname: Logical name to be associated with 
		the allocated tape drive.       
                      (passed,character*(*))


 NOTES:  This version of ALLMOUNT uses the logical name      
	SYS$TAPE_DRIVES.  SYS$TAPE_DRIVES is equated to 
	the physical drive names of all the tape drives
	that are available for use on the system.  The 
	physical names MUST be separated by commas.

    i.e.   assign/system/exec  MSA0,MSB0   SYS$TAPE_DRIVES

