1 /* BEGIN INCLUDE FILE gtss_filact_intp1.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  10/05/78 1600.9 mst Thu
 4 */
 5 validate_status: proc (status_address, sp);
 6 
 7 dcl  status_address           bit (18)parm;
 8 dcl  sp                       ptr parm;
 9 dcl  status_pointer           ptr init(null());
10 
11 
12 /**       Assure 2 word status not above memory.  **/
13                if (status_address >= high_b) then goto return_err4;
14 
15 /**       Assure status words and arglist do not overlap.   **/
16                if (fixed(status_address,18)+1) >= fixed(filact_args.L_arglist,18) &
17                fixed (status_address, 18) <= (fixed (filact_args.L_arglist, 18)+ 1) then goto return_err4;
18 
19 /**       Obtain pointer to status words.         **/
20                sp, status_pointer = addrel (gseg, status_address);
21                unspec (status_pointer -> status_word) = "0"b;
22                return;
23 
24 dcl 1 filact_args             aligned based(arg_ptr), /* 1st word only. */
25     2 zero                    bit(18)unal,
26     2 L_arglist               bit(18)unal;
27           end                                               /* validate_status */;
28 /*   END INCLUDE FILE gtss_filact_intp1.incl.pl1 */