1
2
3
4
5
6
7
8
9
10
11 ready: rdy:
12 procedure;
13
14
15
16
17
18 dcl 1 flags aligned,
19 2 ready_sw bit (1) unaligned,
20 2 pad bit (35) unaligned;
21
22
23
24 dcl string builtin;
25
26
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
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
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;