1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    * Copyright (c) 1972 by Massachusetts Institute of        *
 6    * Technology and Honeywell Information Systems, Inc.      *
 7    *                                                         *
 8    *********************************************************** */
 9 
10 
11 ready: rdy:
12      procedure;
13 
14 /* Changed to print usage if called with args 06/10/80 S. Herbst */
15 
16 /* automatic */
17 
18 dcl 1 flags aligned,
19     2 ready_sw bit (1) unaligned,
20     2 pad bit (35) unaligned;
21 
22 /* builtins */
23 
24 dcl  string builtin;
25 
26 /* entries */
27 
28 dcl com_err_$suppress_name entry options (variable);
29 dcl cu_$arg_count entry returns (fixed bin);
30 dcl (cu_$ready_proc, cu_$set_ready_mode) entry (1 aligned, 2 bit (1) unaligned, 2 bit (35) unaligned);
31 
32 /* program */
33 
34           call check_usage ("ready");
35 
36           string (flags) = "1"b;
37           call cu_$ready_proc (flags);
38 RETURN:   return;
39 
40 ready_on: rdn:
41           entry;
42 
43           call check_usage ("ready_on");
44 
45           string (flags) = "1"b;
46           call cu_$set_ready_mode (flags);
47           return;
48 
49 ready_off: rdf:
50           entry;
51 
52           call check_usage ("ready_off");
53 
54           string (flags) = "0"b;
55           call cu_$set_ready_mode (flags);
56           return;
57 /*^L*/
58 check_usage: proc (A_name);
59 
60 dcl A_name char (*);
61 
62           if cu_$arg_count () > 0 then do;
63                call com_err_$suppress_name (0, A_name,
64                     "Usage:  ^a", A_name);
65                go to RETURN;
66           end;
67 
68 end check_usage;
69 
70 
71 end ready;