1 /* ***********************************************************
2 * *
3 * Copyright, C Honeywell Bull Inc., 1988 *
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
14
15
16 /* HISTORY COMMENTS:
17 1) change88-07-27Farley, approve88-10-05MCR7968,
18 audit88-10-10Beattie, install88-10-14MR12.2-1166:
19 Added message for new rcerr_addscu_memoverlap error.
20 END HISTORY COMMENTS */
21
22
23 rc_messages: proc;
24
25 /* This data base includes the messages that are reported during dynamic reconfiguration
26 of system controllers and processors.
27
28 The data base consists of a two dimensional array of character strings. The first
29 dimension indicates the type of reconfiguration command as follows:
30
31 * 0 general
32 * 1 add cpu
33 * 2 dl cpu
34 * 3 add mem
35 * 4 dl mem
36 * 5 add page
37 * 6 dl page
38
39 The second dimension is controlled by the particular reconfiguration request.
40
41 Modified March 1976 by Steve Webber --- Initial coding
42 Modified Feb 1979 by BSG for 8-cpu port expander
43 Modified Dec 1979 by Mike Grady for new add scu message
44 Modified August 1984 by Chris Jones for new reconfiguration commands
45 */
46
47 /* Automatic */
48
49 dcl 1 cdsa aligned like cds_args;
50 dcl code fixed bin 35;
51 dcl 1 rc_messages_array aligned,
52 2 rc_messages 0:7 11 char 64 aligned;
53 dcl addr null size string builtin;
54
55 /* Entries */
56
57 dcl create_data_segment_ entry ptr fixed bin 35;
58
59 /* Now begins the initialization */
60
61 string rc_messages_array = "";
62
63 rc_messages 0 rcerr_locked - 11 = "Reconfiguration database is locked.";
64 rc_messages 0 rcerr_online - 11 = "^a is already online.";
65 rc_messages 0 rcerr_no_config - 11 = "^a is not configured.";
66 rc_messages 0 rcerr_not_online - 11 = "^a is not online.";
67 rc_messages 0 rcerr_range - 11 = "Request is not within range of a single controller.";
68 rc_messages 0 rcerr_sprq_failed - 11 = "Could not set CPU required.";
69
70 rc_messages 1 rcerr_addcpu_no_response = "No response from ^a.";
71 rc_messages 1 rcerr_addcpu_bad_switches = "The following switches on ^a are set incorrectly: ^a";
72 rc_messages 1 rcerr_addcpu_trouble = "Trouble fault trying to start ^a.";
73 rc_messages 1 rcerr_addcpu_startup = "Startup fault trying to start ^a.";
74 rc_messages 1 rcerr_addcpu_lockup = "Lockup fault trying to start ^a.";
75 rc_messages 1 rcerr_addcpu_gcos = "^a is not in Multics mode.";
76 rc_messages 1 rcerr_addcpu_amoff = "Associative memories not enabled on ^a.";
77 rc_messages 1 rcerr_addcpu_enable = "^a is not enabled at MEM ^a.";
78
79 rc_messages 2 rcerr_delcpu_no_stop = "Cannot stop ^a.";
80 rc_messages 2 rcerr_delcpu_last = "^a is the only CPU.";
81 rc_messages 2 rcerr_delcpu_no_good_blcpu = "No acceptable bootload CPU would be left.";
82
83 rc_messages 3 rcerr_addscu_size = "Size of ^a disagrees with CPU switches.";
84 rc_messages 3 rcerr_addscu_dup_mask = "^a has duplicate mask assignments to CPU ^a.";
85 rc_messages 3 rcerr_addscu_no_mask = "^a does not have mask assigned to CPU ^a.";
86 rc_messages 3 rcerr_addscu_bad_mask = "^a has mask ^a assigned to non-CPU port.";
87 rc_messages 3 rcerr_addscu_fault = "^a cannot be accessed by CPU ^a.";
88 rc_messages 3 rcerr_addscu_switches = "Switches for ^a set improperly on CPU ^a.";
89 rc_messages 3 rcerr_addscu_enable = "^a is not enabled on CPU ^a.";
90 rc_messages 3 rcerr_addscu_manual = "^a is not in PROGRAM mode.";
91 rc_messages 3 rcerr_addscu_oldexpand = "^a is a 6000 SCU which may not have a port expander.";
92 rc_messages 3 rcerr_addscu_bigconfig = "^a has less memory than config card indicates.";
93 rc_messages 3 rcerr_addscu_memoverlap = "^a has a possible memory address overlap problem.";
94
95 rc_messages 4 rcerr_delmain_nomem = "Not enough main memory to remove ^a.";
96 rc_messages 4 rcerr_delmain_abs_wired = "Abs wired pages in ^a.";
97
98 rc_messages 6 rcerr_delmain_nomem = "Not enough main memory left.";
99 rc_messages 6 rcerr_delmain_abs_wired = "Abs wired pages in memory.";
100
101
102 /* Now set up call to create data base */
103
104 cdsa.sections 1.p = addr rc_messages_array;
105 cdsa.sections 1.len = size rc_messages_array;
106 cdsa.sections 1.struct_name = "rc_messages_array";
107
108 cdsa.seg_name = "rc_messages";
109 cdsa.num_exclude_names = 0;
110 cdsa.exclude_array_ptr = null ;
111
112 string cdsa.switches = "0"b;
113 cdsa.switches.have_text = "1"b;
114
115 call create_data_segment_ addr cdsa code;
116 %page;
117 % include rcerr;
118 %page;
119 % include cds_args;
120
121 end rc_messages;