1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6         *                                                         *
 7         * Copyright (c) 1972 by Massachusetts Institute of        *
 8         * Technology and Honeywell Information Systems, Inc.      *
 9         *                                                         *
10         *********************************************************** */
11 
12 
13 mountedp: proc (a_lvid) returns (fixed bin (35));
14 
15 /*
16 
17    Written 03/11/76 by R. Bratt to answer the question: is my process
18    able to use a given logical volume
19 
20 */
21 
22 dcl  a_lvid bit (36) aligned;
23 dcl  lvid bit (36) aligned,
24      code fixed bin (35);
25 dcl  logical_volume_manager$lvtep entry (bit (36) aligned, ptr, fixed bin (35)),
26      private_logical_volume$lvx entry (bit (36) aligned, fixed bin (8), fixed bin (35));
27 
28           lvid = a_lvid;
29           call logical_volume_manager$lvtep (lvid, lvtep, code);
30           if code ^= 0 then return (code);
31           if lvtep -> lvte.public then return (0);
32           call private_logical_volume$lvx (lvid, (0), code);
33           return (code);
34 
35 /* ^L */
36 
37 %include lvt;
38 
39      end mountedp;