-
Notifications
You must be signed in to change notification settings - Fork 0
/
com_err_.list
1237 lines (1211 loc) · 75.3 KB
/
com_err_.list
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
COMPILATION LISTING OF SEGMENT com_err_
Compiled by: Multics PL/I Compiler, Release 32f, of October 9, 1989
Compiled at: Bull HN, Phoenix AZ, System-M
Compiled on: 11/11/89 1008.2 mst Sat
Options: optimize map
1 /****^ ***********************************************************
2* * *
3* * Copyright, (C) Honeywell Bull Inc., 1987 *
4* * *
5* * Copyright, (C) Honeywell Information Systems Inc., 1984 *
6* * *
7* * Copyright (c) 1972 by Massachusetts Institute of *
8* * Technology and Honeywell Information Systems, Inc. *
9* * *
10* *********************************************************** */
11
12
13 /* format: style4 */
14 com_err_:
15 procedure options (variable);
16
17 /* com_err_ formats error messages and signals the condition "command_error".
18* Its calling sequence is of the form: call com_err_(code, callername, ioa_control, arg1, arg2,...);.
19* If code > 0, the corresponding error_table_ message is included. Callername is the name of the
20* calling procedure and is inserted with a colon at the beginning of the error message.
21* It may be either varying or fixed length; if it is null, the colon is omitted.
22* The rest of the arguments are optional; however, if arg1, etc. are present, ioa_control
23* must also be present. ioa_control is a regular ioa_ control string and the argi are the
24* format arguments to ioa_. If print_sw = "1"b after signalling "command_error", the
25* error message is printed.
26* Several other entry points are included in this procedure. The active_fnc_err_
27* entry is similar to com_err_ except that the condition "active_function_error" is
28* signalled. The suppress_name entry is identical to com_err_ except that the
29* callername is omitted from the error message.
30* There is an entry point for convert_status_code_, which simply looks up the code and
31* returns the error_table_ message.
32**/
33 /* initially coded by M Weaver June 1969 */
34 /* recoded in PL/I with several facilities added by M Weaver 2 June 1970 */
35 /* major surgery by J. Stern on 9/3/71 */
36 /* minor bug fixes by M. Weaver 3 November 1971 */
37 /* completely changed error code format and fixed a bug, D. Reed 6/21/72 */
38 /* fixed bug in argument passing to command_error signalled procedure, D. Reed 7/20/71 */
39 /* changed check_fs_errcode_ entry to convert_status_code_, R. Mullen 12/13/72 */
40 /* modified to pass info structures with standard headers, M. Weaver 8/73 */
41 /* Entry point active_fnc_err_$af_suppress_name added by S. Herbst 8/25/78 */
42 /* Modified 781203 by PG to accept any computational data type for arg 1. */
43 /* Modified: 8 August 1980 by G. Palter to recognize error_table_$active_function as a special case and signal
44* active_function_error rather than command_error */
45 /* Modified: June 1981 to use new include file and set quiet_restart, B. Margulies */
46 /* Modified: February 1982 to establish any_other handler while reading error table, E. N. Kittlitz */
47 /* Modified: May 1984 for calling within bce, Keith Loepere */
48
49 /* Automatic */
50
51 dcl save_code fixed bin (35);
52 dcl (active_fnc_sw, suppress_name_sw, convert_sw, packed) bit (1) aligned;
53 dcl (ndims, scale, len, lng, type, bi, hi, lo) fixed bin (17);
54 dcl (code, ec) fixed bin (35);
55 dcl (q, arg_list_ptr, tp) ptr;
56 dcl arg_ptr ptr;
57 dcl prec fixed bin;
58 dcl buffer char (256) aligned,
59 retstring char (256);
60
1 1 /* BEGIN INCLUDE FILE condition_info_header.incl.pl1 BIM 1981 */
1 2 /* format: style2 */
1 3
1 4 declare condition_info_header_ptr
1 5 pointer;
1 6 declare 1 condition_info_header
1 7 aligned based (condition_info_header_ptr),
1 8 2 length fixed bin, /* length in words of this structure */
1 9 2 version fixed bin, /* version number of this structure */
1 10 2 action_flags aligned, /* tell handler how to proceed */
1 11 3 cant_restart bit (1) unaligned, /* caller doesn't ever want to be returned to */
1 12 3 default_restart bit (1) unaligned, /* caller can be returned to with no further action */
1 13 3 quiet_restart bit (1) unaligned, /* return, and print no message */
1 14 3 support_signal bit (1) unaligned, /* treat this signal as if the signalling procedure had the support bit set */
1 15 /* if the signalling procedure had the support bit set, do the same for its caller */
1 16 3 pad bit (32) unaligned,
1 17 2 info_string char (256) varying, /* may contain printable message */
1 18 2 status_code fixed bin (35); /* if^=0, code interpretable by com_err_ */
1 19
1 20 /* END INCLUDE FILE condition_info_header.incl.pl1 */
61
2 1 /* BEGIN INCLUDE FILE com_af_error_info.incl.pl1 April 81 BIM */
2 2 /* format: style2 */
2 3
2 4 /* info structures for command error and active function error */
2 5 /* The include file condition_info_header must be included to use this file */
2 6
2 7 declare com_af_error_info_ptr pointer;
2 8 declare 1 com_af_error_info aligned based (com_af_error_info_ptr),
2 9 2 header aligned like condition_info_header,
2 10 2 name_ptr ptr,
2 11 2 name_lth fixed bin,
2 12 2 errmess_ptr ptr,
2 13 2 errmess_lth fixed bin (21),
2 14 2 max_errmess_lth fixed bin (21),
2 15 2 print_sw bit (1); /* set this to inform com_err_ that the msg has been printed */
2 16
2 17 declare com_af_error_info_version_3 internal static options (constant) init (3);
2 18
2 19 /* END INCLUDE FILE com_af_error_info */
62
3 1 /* */
3 2 /* BEGIN INCLUDE FILE mc.incl.pl1 Created Dec 72 for 6180 - WSS. */
3 3 /* Modified 06/07/76 by Greenberg for mc.resignal */
3 4 /* Modified 07/07/76 by Morris for fault register data */
3 5 /* Modified 08/28/80 by J. A. Bush for the DPS8/70M CVPU */
3 6 /* Modified '82 to make values constant */
3 7
3 8 /* words 0-15 pointer registers */
3 9
3 10 dcl mcp ptr;
3 11
3 12 dcl 1 mc based (mcp) aligned,
3 13 2 prs (0:7) ptr, /* POINTER REGISTERS */
3 14 (2 regs, /* registers */
3 15 3 x (0:7) bit (18), /* index registers */
3 16 3 a bit (36), /* accumulator */
3 17 3 q bit (36), /* q-register */
3 18 3 e bit (8), /* exponent */
3 19 3 pad1 bit (28),
3 20 3 t bit (27), /* timer register */
3 21 3 pad2 bit (6),
3 22 3 ralr bit (3), /* ring alarm register */
3 23
3 24 2 scu (0:7) bit (36),
3 25
3 26 2 mask bit (72), /* mem controller mask at time of fault */
3 27 2 ips_temp bit (36), /* Temporary storage for IPS info */
3 28 2 errcode fixed bin (35), /* fault handler's error code */
3 29 2 fim_temp,
3 30 3 unique_index bit (18) unal, /* unique index for restarting faults */
3 31 3 resignal bit (1) unal, /* recompute signal name with fcode below */
3 32 3 fcode bit (17) unal, /* fault code used as index to FIM table and SCT */
3 33 2 fault_reg bit (36), /* fault register */
3 34 2 pad2 bit (1),
3 35 2 cpu_type fixed bin (2) unsigned, /* L68 = 0, DPS8/70M = 1 */
3 36 2 ext_fault_reg bit (15), /* extended fault reg for DPS8/70M CPU */
3 37 2 fault_time bit (54), /* time of fault */
3 38
3 39 2 eis_info (0:7) bit (36)) unaligned;
3 40
3 41
3 42 dcl (apx fixed bin init (0),
3 43 abx fixed bin init (1),
3 44 bpx fixed bin init (2),
3 45 bbx fixed bin init (3),
3 46 lpx fixed bin init (4),
3 47 lbx fixed bin init (5),
3 48 spx fixed bin init (6),
3 49 sbx fixed bin init (7)) internal static options (constant);
3 50
3 51
3 52
3 53
3 54 dcl scup ptr;
3 55
3 56 dcl 1 scu based (scup) aligned, /* SCU DATA */
3 57
3 58
3 59 /* WORD (0) */
3 60
3 61 (2 ppr, /* PROCEDURE POINTER REGISTER */
3 62 3 prr bit (3), /* procedure ring register */
3 63 3 psr bit (15), /* procedure segment register */
3 64 3 p bit (1), /* procedure privileged bit */
3 65
3 66 2 apu, /* APPENDING UNIT STATUS */
3 67 3 xsf bit (1), /* ext seg flag - IT modification */
3 68 3 sdwm bit (1), /* match in SDW Ass. Mem. */
3 69 3 sd_on bit (1), /* SDW Ass. Mem. ON */
3 70 3 ptwm bit (1), /* match in PTW Ass. Mem. */
3 71 3 pt_on bit (1), /* PTW Ass. Mem. ON */
3 72 3 pi_ap bit (1), /* Instr Fetch or Append cycle */
3 73 3 dsptw bit (1), /* Fetch of DSPTW */
3 74 3 sdwnp bit (1), /* Fetch of SDW non paged */
3 75 3 sdwp bit (1), /* Fetch of SDW paged */
3 76 3 ptw bit (1), /* Fetch of PTW */
3 77 3 ptw2 bit (1), /* Fetch of pre-paged PTW */
3 78 3 fap bit (1), /* Fetch of final address paged */
3 79 3 fanp bit (1), /* Fetch of final address non-paged */
3 80 3 fabs bit (1), /* Fetch of final address absolute */
3 81
3 82 2 fault_cntr bit (3), /* number of retrys of EIS instructions */
3 83
3 84
3 85 /* WORD (1) */
3 86
3 87 2 fd, /* FAULT DATA */
3 88 3 iro bit (1), /* illegal ring order */
3 89 3 oeb bit (1), /* out of execute bracket */
3 90 3 e_off bit (1), /* no execute */
3 91 3 orb bit (1), /* out of read bracket */
3 92 3 r_off bit (1), /* no read */
3 93 3 owb bit (1), /* out of write bracket */
3 94 3 w_off bit (1), /* no write */
3 95 3 no_ga bit (1), /* not a gate */
3 96 3 ocb bit (1), /* out of call bracket */
3 97 3 ocall bit (1), /* outward call */
3 98 3 boc bit (1), /* bad outward call */
3 99 3 inret bit (1), /* inward return */
3 100 3 crt bit (1), /* cross ring transfer */
3 101 3 ralr bit (1), /* ring alarm register */
3 102 3 am_er bit (1), /* associative memory fault */
3 103 3 oosb bit (1), /* out of segment bounds */
3 104 3 paru bit (1), /* processor parity upper */
3 105 3 parl bit (1), /* processor parity lower */
3 106 3 onc_1 bit (1), /* op not complete type 1 */
3 107 3 onc_2 bit (1), /* op not complete type 2 */
3 108
3 109 2 port_stat, /* PORT STATUS */
3 110 3 ial bit (4), /* illegal action lines */
3 111 3 iac bit (3), /* illegal action channel */
3 112 3 con_chan bit (3), /* connect channel */
3 113
3 114 2 fi_num bit (5), /* (fault/interrupt) number */
3 115 2 fi_flag bit (1), /* 1 => fault, 0 => interrupt */
3 116
3 117
3 118 /* WORD (2) */
3 119
3 120 2 tpr, /* TEMPORARY POINTER REGISTER */
3 121 3 trr bit (3), /* temporary ring register */
3 122 3 tsr bit (15), /* temporary segment register */
3 123
3 124 2 pad2 bit (9),
3 125
3 126 2 cpu_no bit (3), /* CPU number */
3 127
3 128 2 delta bit (6), /* tally modification DELTA */
3 129
3 130
3 131 /* WORD (3) */
3 132
3 133 2 word3 bit (18),
3 134
3 135 2 tsr_stat, /* TSR STATUS for 1,2,&3 word instructions */
3 136 3 tsna, /* Word 1 status */
3 137 4 prn bit (3), /* Word 1 PR number */
3 138 4 prv bit (1), /* Word 1 PR valid bit */
3 139 3 tsnb, /* Word 2 status */
3 140 4 prn bit (3), /* Word 2 PR number */
3 141 4 prv bit (1), /* Word 2 PR valid bit */
3 142 3 tsnc, /* Word 3 status */
3 143 4 prn bit (3), /* Word 3 PR number */
3 144 4 prv bit (1), /* Word 3 PR valid bit */
3 145
3 146 2 tpr_tbr bit (6), /* TPR.TBR field */
3 147
3 148
3 149 /* WORD (4) */
3 150
3 151 2 ilc bit (18), /* INSTRUCTION COUNTER */
3 152
3 153 2 ir, /* INDICATOR REGISTERS */
3 154 3 zero bit (1), /* zero indicator */
3 155 3 neg bit (1), /* negative indicator */
3 156 3 carry bit (1), /* carryry indicator */
3 157 3 ovfl bit (1), /* overflow indicator */
3 158 3 eovf bit (1), /* eponent overflow */
3 159 3 eufl bit (1), /* exponent underflow */
3 160 3 oflm bit (1), /* overflow mask */
3 161 3 tro bit (1), /* tally runout */
3 162 3 par bit (1), /* parity error */
3 163 3 parm bit (1), /* parity mask */
3 164 3 bm bit (1), /* ^bar mode */
3 165 3 tru bit (1), /* truncation mode */
3 166 3 mif bit (1), /* multi-word instruction mode */
3 167 3 abs bit (1), /* absolute mode */
3 168 3 hex bit (1), /* hexadecimal exponent mode */
3 169 3 pad bit (3),
3 170
3 171
3 172 /* WORD (5) */
3 173
3 174 2 ca bit (18), /* COMPUTED ADDRESS */
3 175
3 176 2 cu, /* CONTROL UNIT STATUS */
3 177 3 rf bit (1), /* on first cycle of repeat instr */
3 178 3 rpt bit (1), /* repeat instruction */
3 179 3 rd bit (1), /* repeat double instruction */
3 180 3 rl bit (1), /* repeat link instruciton */
3 181 3 pot bit (1), /* IT modification */
3 182 3 pon bit (1), /* return type instruction */
3 183 3 xde bit (1), /* XDE from Even location */
3 184 3 xdo bit (1), /* XDE from Odd location */
3 185 3 poa bit (1), /* operation preparation */
3 186 3 rfi bit (1), /* tells CPU to refetch instruction */
3 187 3 its bit (1), /* ITS modification */
3 188 3 if bit (1), /* fault occured during instruction fetch */
3 189
3 190 2 cpu_tag bit (6)) unaligned, /* computed tag field */
3 191
3 192
3 193 /* WORDS (6,7) */
3 194
3 195 2 even_inst bit (36), /* even instruction of faulting pair */
3 196
3 197 2 odd_inst bit (36); /* odd instruction of faulting pair */
3 198
3 199
3 200
3 201
3 202
3 203
3 204 /* ALTERNATE SCU DECLARATION */
3 205
3 206
3 207 dcl 1 scux based (scup) aligned,
3 208
3 209 (2 pad0 bit (36),
3 210
3 211 2 fd, /* GROUP II FAULT DATA */
3 212 3 isn bit (1), /* illegal segment number */
3 213 3 ioc bit (1), /* illegal op code */
3 214 3 ia_am bit (1), /* illegal address - modifier */
3 215 3 isp bit (1), /* illegal slave procedure */
3 216 3 ipr bit (1), /* illegal procedure */
3 217 3 nea bit (1), /* non existent address */
3 218 3 oobb bit (1), /* out of bounds */
3 219 3 pad bit (29),
3 220
3 221 2 pad2 bit (36),
3 222
3 223 2 pad3a bit (18),
3 224
3 225 2 tsr_stat (0:2), /* TSR STATUS as an ARRAY */
3 226 3 prn bit (3), /* PR number */
3 227 3 prv bit (1), /* PR valid bit */
3 228
3 229 2 pad3b bit (6)) unaligned,
3 230
3 231 2 pad45 (0:1) bit (36),
3 232
3 233 2 instr (0:1) bit (36); /* Instruction ARRAY */
3 234
3 235
3 236
3 237 /* END INCLUDE FILE mc.incl.pl1 */
63
64
65 dcl 1 error_info aligned like com_af_error_info;
66
67 /* based */
68
69 dcl strlng bit (9) aligned based (tp); /* used to reference long message length */
70 dcl char8 char (8) aligned based; /* used to reference short message */
71 dcl num fixed bin (17) based;
72 dcl based_code fixed bin (35) based;
73 dcl callername char (error_info.name_lth) based (error_info.name_ptr),
74 work_string char (lng) aligned based;
75
76 dcl 1 code_format aligned based (addr (code)),
77 2 segno bit (18) unal,
78 2 offset bit (18) unal;
79
80 /* builtins */
81
82 dcl (addr, addrel, baseno, baseptr, bin, binary, bit, fixed, length, null, rtrim, size, string, substr, ptr) builtin;
83
84 dcl request_abort_ condition; /* for aborting bootload active functions */
85
86 /* entries */
87
88 dcl
89 bce_error$com_err entry options (variable),
90 condition_ entry (char (*), entry),
91 reversion_ entry (char (*)),
92 cu_$arg_list_ptr ext entry (ptr),
93 cu_$arg_ptr ext entry (fixed bin, ptr, fixed bin, fixed bin (35)),
94 cu_$arg_count ext entry returns (fixed bin),
95 cu_$generate_call entry (entry, ptr),
96 decode_descriptor_ ext entry (ptr, fixed bin, fixed bin, bit (1) aligned, fixed bin, fixed bin, fixed bin),
97 hcs_$high_low_seg_count entry (fixed bin, fixed bin),
98 ioa_$rsnnl ext entry options (variable),
99 ioa_$general_rs ext entry (ptr, fixed bin, fixed bin, char (*), fixed bin, bit (1) aligned, bit (1) aligned),
100 iox_$put_chars entry (ptr, ptr, fixed bin (21), fixed bin (35)),
101 signal_ ext entry (char (*), ptr, ptr, ptr);
102
103 /* external static */
104
105 dcl error_table_$ ext fixed bin aligned;
106 dcl error_table_$active_function fixed binary (35) external;
107 dcl iox_$error_output ptr external static;
108 dcl sys_info$service_system bit (1) aligned external static;
109
110 /* internal static */
111
112 dcl nl char (1) aligned static init ("
113 ");
114
115 /* include files */
116
4 1 /* BEGIN INCLUDE FILE ... desc_dcls.incl.pl1 */
4 2
4 3 /* This include segment contains declarations for use with assign_ */
4 4
4 5 dcl intype fixed bin (17),
4 6 outtype fixed bin (17);
4 7
4 8 dcl inscale_prec fixed bin (35),
4 9 outscale_prec fixed bin (35);
4 10
4 11 dcl 1 info based (addr (inscale_prec)) aligned,
4 12 2 inscale fixed bin (17) unal,
4 13 2 inprec fixed bin (17) unal;
4 14
4 15 dcl 1 outfo based (addr (outscale_prec)) aligned,
4 16 2 outscale fixed bin (17) unal,
4 17 2 outprec fixed bin (17) unal;
4 18
4 19 dcl inclength fixed bin(31) aligned based(addr(inscale_prec));
4 20 dcl outclength fixed bin(31) aligned based(addr(outscale_prec));
4 21
4 22 dcl char_to_numeric_ entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17)),
4 23 assign_ entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17), fixed bin (35)),
4 24 assign_round_ entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17), fixed bin (35)),
4 25 assign_truncate_ entry (ptr, fixed bin (17), fixed bin (35), ptr, fixed bin (17), fixed bin (35));
4 26
4 27 /* END INCLUDE FILE ... desc_dcls.incl.pl1 */
117
5 1 /* BEGIN INCLUDE FILE ... std_descriptor_types.incl.pl1 */
5 2
5 3
5 4 /****^ HISTORY COMMENTS:
5 5* 1) change(86-09-05,JMAthane), approve(86-09-05,MCR7525),
5 6* audit(86-09-11,Martinson), install(86-11-12,MR12.0-1208):
5 7* Added pascal_string_type_dtype descriptor type. Its number is 87.
5 8* Objects of this type are PASCAL string types.
5 9* 2) change(88-09-20,WAAnderson), approve(88-09-20,MCR7952),
5 10* audit(88-09-30,JRGray), install(88-10-24,MR12.2-1184):
5 11* Added the new C types.
5 12* END HISTORY COMMENTS */
5 13
5 14 /* This include file defines mnemonic names for the Multics
5 15* standard descriptor types, using both pl1 and cobol terminology.
5 16* PG 780613
5 17* JRD 790530
5 18* JRD 791016
5 19* MBW 810731
5 20* TGO 830614 Add hex types.
5 21* Modified June 83 JMAthane to add PASCAL data types
5 22* TGO 840120 Add float dec extended and generic, float binary generic
5 23**/
5 24
5 25 dcl (real_fix_bin_1_dtype init (1),
5 26 real_fix_bin_2_dtype init (2),
5 27 real_flt_bin_1_dtype init (3),
5 28 real_flt_bin_2_dtype init (4),
5 29 cplx_fix_bin_1_dtype init (5),
5 30 cplx_fix_bin_2_dtype init (6),
5 31 cplx_flt_bin_1_dtype init (7),
5 32 cplx_flt_bin_2_dtype init (8),
5 33 real_fix_dec_9bit_ls_dtype init (9),
5 34 real_flt_dec_9bit_dtype init (10),
5 35 cplx_fix_dec_9bit_ls_dtype init (11),
5 36 cplx_flt_dec_9bit_dtype init (12),
5 37 pointer_dtype init (13),
5 38 offset_dtype init (14),
5 39 label_dtype init (15),
5 40 entry_dtype init (16),
5 41 structure_dtype init (17),
5 42 area_dtype init (18),
5 43 bit_dtype init (19),
5 44 varying_bit_dtype init (20),
5 45 char_dtype init (21),
5 46 varying_char_dtype init (22),
5 47 file_dtype init (23),
5 48 real_fix_dec_9bit_ls_overp_dtype init (29),
5 49 real_fix_dec_9bit_ts_overp_dtype init (30),
5 50 real_fix_bin_1_uns_dtype init (33),
5 51 real_fix_bin_2_uns_dtype init (34),
5 52 real_fix_dec_9bit_uns_dtype init (35),
5 53 real_fix_dec_9bit_ts_dtype init (36),
5 54 real_fix_dec_4bit_uns_dtype init (38), /* digit-aligned */
5 55 real_fix_dec_4bit_ts_dtype init (39), /* byte-aligned */
5 56 real_fix_dec_4bit_bytealigned_uns_dtype init (40), /* COBOL */
5 57 real_fix_dec_4bit_ls_dtype init (41), /* digit-aligned */
5 58 real_flt_dec_4bit_dtype init (42), /* digit-aligned */
5 59 real_fix_dec_4bit_bytealigned_ls_dtype init (43),
5 60 real_flt_dec_4bit_bytealigned_dtype init (44),
5 61 cplx_fix_dec_4bit_bytealigned_ls_dtype init (45),
5 62 cplx_flt_dec_4bit_bytealigned_dtype init (46),
5 63 real_flt_hex_1_dtype init (47),
5 64 real_flt_hex_2_dtype init (48),
5 65 cplx_flt_hex_1_dtype init (49),
5 66 cplx_flt_hex_2_dtype init (50),
5 67 c_typeref_dtype init (54),
5 68 c_enum_dtype init (55),
5 69 c_enum_const_dtype init (56),
5 70 c_union_dtype init (57),
5 71 algol68_straight_dtype init (59),
5 72 algol68_format_dtype init (60),
5 73 algol68_array_descriptor_dtype init (61),
5 74 algol68_union_dtype init (62),
5 75
5 76 cobol_comp_6_dtype init (1),
5 77 cobol_comp_7_dtype init (1),
5 78 cobol_display_ls_dtype init (9),
5 79 cobol_structure_dtype init (17),
5 80 cobol_char_string_dtype init (21),
5 81 cobol_display_ls_overp_dtype init (29),
5 82 cobol_display_ts_overp_dtype init (30),
5 83 cobol_display_uns_dtype init (35),
5 84 cobol_display_ts_dtype init (36),
5 85 cobol_comp_8_uns_dtype init (38), /* digit aligned */
5 86 cobol_comp_5_ts_dtype init (39), /* byte aligned */
5 87 cobol_comp_5_uns_dtype init (40),
5 88 cobol_comp_8_ls_dtype init (41), /* digit aligned */
5 89 real_flt_dec_extended_dtype init (81), /* 9-bit exponent */
5 90 cplx_flt_dec_extended_dtype init (82), /* 9-bit exponent */
5 91 real_flt_dec_generic_dtype init (83), /* generic float decimal */
5 92 cplx_flt_dec_generic_dtype init (84),
5 93 real_flt_bin_generic_dtype init (85), /* generic float binary */
5 94 cplx_flt_bin_generic_dtype init (86)) fixed bin internal static options (constant);
5 95
5 96 dcl (ft_integer_dtype init (1),
5 97 ft_real_dtype init (3),
5 98 ft_double_dtype init (4),
5 99 ft_complex_dtype init (7),
5 100 ft_complex_double_dtype init (8),
5 101 ft_external_dtype init (16),
5 102 ft_logical_dtype init (19),
5 103 ft_char_dtype init (21),
5 104 ft_hex_real_dtype init (47),
5 105 ft_hex_double_dtype init (48),
5 106 ft_hex_complex_dtype init (49),
5 107 ft_hex_complex_double_dtype init (50)
5 108 ) fixed bin internal static options (constant);
5 109
5 110 dcl (algol68_short_int_dtype init (1),
5 111 algol68_int_dtype init (1),
5 112 algol68_long_int_dtype init (2),
5 113 algol68_real_dtype init (3),
5 114 algol68_long_real_dtype init (4),
5 115 algol68_compl_dtype init (7),
5 116 algol68_long_compl_dtype init (8),
5 117 algol68_bits_dtype init (19),
5 118 algol68_bool_dtype init (19),
5 119 algol68_char_dtype init (21),
5 120 algol68_byte_dtype init (21),
5 121 algol68_struct_struct_char_dtype init (22),
5 122 algol68_struct_struct_bool_dtype init (20)
5 123 ) fixed bin internal static options (constant);
5 124
5 125 dcl (label_constant_runtime_dtype init (24),
5 126 int_entry_runtime_dtype init (25),
5 127 ext_entry_runtime_dtype init (26),
5 128 ext_procedure_runtime_dtype init (27),
5 129 picture_runtime_dtype init (63)
5 130 ) fixed bin internal static options (constant);
5 131
5 132 dcl (pascal_integer_dtype init (1),
5 133 pascal_real_dtype init (4),
5 134 pascal_label_dtype init (24),
5 135 pascal_internal_procedure_dtype init (25),
5 136 pascal_exportable_procedure_dtype init (26),
5 137 pascal_imported_procedure_dtype init (27),
5 138 pascal_typed_pointer_type_dtype init (64),
5 139 pascal_char_dtype init (65),
5 140 pascal_boolean_dtype init (66),
5 141 pascal_record_file_type_dtype init (67),
5 142 pascal_record_type_dtype init (68),
5 143 pascal_set_dtype init (69),
5 144 pascal_enumerated_type_dtype init (70),
5 145 pascal_enumerated_type_element_dtype init (71),
5 146 pascal_enumerated_type_instance_dtype init (72),
5 147 pascal_user_defined_type_dtype init (73),
5 148 pascal_user_defined_type_instance_dtype init (74),
5 149 pascal_text_file_dtype init (75),
5 150 pascal_procedure_type_dtype init (76),
5 151 pascal_variable_formal_parameter_dtype init (77),
5 152 pascal_value_formal_parameter_dtype init (78),
5 153 pascal_entry_formal_parameter_dtype init (79),
5 154 pascal_parameter_procedure_dtype init (80),
5 155 pascal_string_type_dtype init (87)) fixed bin int static options (constant);
5 156
5 157
5 158 /* END INCLUDE FILE ... std_descriptor_types.incl.pl1 */
118
119
120 /* program */
121
122 active_fnc_sw,
123 suppress_name_sw = "0"b;
124 go to join;
125
126 suppress_name:
127 entry options (variable);
128
129 active_fnc_sw = "0"b;
130 suppress_name_sw = "1"b;
131 go to join;
132
133 active_fnc_err_:
134 entry options (variable);
135
136 active_fnc_sw = "1"b;
137 suppress_name_sw = "0"b;
138 go to join;
139
140 af_suppress_name:
141 entry options (variable);
142
143 active_fnc_sw, suppress_name_sw = "1"b;
144
145 join:
146 call cu_$arg_list_ptr (arg_list_ptr);
147
148 if ^sys_info$service_system then do; /* let bootload routine do it */
149 call cu_$generate_call (bce_error$com_err, arg_list_ptr);
150 if active_fnc_sw then signal request_abort_;
151 return;
152 end;
153
154 call cu_$arg_ptr (1, arg_ptr, (0), ec);
155 call decode_descriptor_ (arg_list_ptr, 1, type, packed, ndims, prec, scale);
156
157 if (type = real_fix_bin_1_dtype) & (packed = "0"b)
158 then code = arg_ptr -> based_code;
159 else do;
160 intype = 2 * type + bin (packed, 1);
161
162 if (type >= bit_dtype) & (type <= varying_char_dtype)
163 then inclength = prec;
164 else do;
165 info.inscale = scale;
166 info.inprec = prec;
167 end;
168 outtype = 2 * real_fix_bin_1_dtype;
169 outfo.outscale = 0;
170 outfo.outprec = 35;
171 call assign_ (addr (code), outtype, outscale_prec, arg_ptr, intype, inscale_prec);
172 end;
173
174 /* save status code because it will be clobbered by the statements that address the error table. */
175
176 save_code = code;
177
178 /* get callername */
179
180 call cu_$arg_ptr (2, error_info.name_ptr, error_info.name_lth, ec);
181 call decode_descriptor_ (arg_list_ptr, 2, type, packed, ndims, error_info.name_lth, scale);
182 if type = varying_char_dtype then /* varying string: use current length */
183 error_info.name_lth = addrel (error_info.name_ptr, -1) -> num;
184
185 if suppress_name_sw then do;
186 bi = 1;
187 go to no_name;
188 end;
189
190 if error_info.name_lth ^= 0 then do; /* put caller name into buffer */
191 buffer = rtrim (callername) || ": ";
192 bi = length (rtrim (buffer)) + 2; /* index of next character */
193 if bi = 3 then bi = 1; /* caller name was blank */
194 end;
195 else bi = 1; /* null callername */
196
197 /* get system message */
198
199 no_name: if code ^= 0 then do; /* get message from error_table_ */
200 convert_sw = "0"b; /* this is not the convert_status_code_ entry point */
201 go to find; /* get pointer to correct message */
202 continue: bi = bi + lng - 1;
203 end;
204
205 /* get user message */
206
207 if cu_$arg_count () > 2 then do;
208 if code ^= 0 then do; /* put a blank between system message and caller message */
209 substr (buffer, bi, 1) = " "; /* append blank */
210 bi = bi + 1; /* update length */
211 end;
212 call ioa_$general_rs (arg_list_ptr, 3, 4, retstring, len, "0"b, "0"b); /* add new line later */
213 do len = len by -1 to 1 while (substr (retstring, len, 1) = " "); /* Strip off trailing blanks */
214 end;
215 if len ^= 0
216 then do;
217 substr (buffer, bi, len) = substr (retstring, 1, len);
218 bi = bi + len;
219 end;
220 else bi = bi - 1; /* Kill the space we just put in! */
221 end;
222
223 substr (buffer, bi, 1) = nl; /* always add new-line */
224 bi = bi + 1; /* for the last time... */
225
226 /* fill in the rest of error_info structure */
227
228 string (error_info.action_flags) = ""b;
229 error_info.length = size (error_info);
230 error_info.version = com_af_error_info_version_3;
231 error_info.status_code = save_code; /* the unclobbered code is passed to signal */
232 error_info.action_flags.quiet_restart = "1"b; /* will be diddled below */
233 error_info.errmess_ptr = addr (buffer);
234 error_info.errmess_lth = bi - 1;
235 error_info.max_errmess_lth = 256;
236 error_info.info_string = substr (buffer, 1, error_info.errmess_lth);
237 error_info.print_sw = "1"b;
238
239 /* signal the error condition */
240
241 if (active_fnc_sw | (error_info.status_code = error_table_$active_function)) then do;
242 error_info.quiet_restart = "0"b;
243 error_info.action_flags.default_restart = "0"b;
244 call signal_ ("active_function_error", null, addr (error_info), null);
245 end;
246 else do;
247 error_info.action_flags.default_restart = "1"b;
248 call signal_ ("command_error", null, addr (error_info), null);
249 end;
250
251 if error_info.print_sw
252 then call iox_$put_chars (iox_$error_output, error_info.errmess_ptr, error_info.errmess_lth, ec);
253
254 return;
255
256 /* section to look up code in error_table_; "returns" pointer to message */
257 check_fs_errcode_: /* this entry is obsolete name */
258 convert_status_code_: entry (P_code, shortinfo, longinfo);
259
260 dcl P_code fixed bin (35),
261 shortinfo char (8) aligned,
262 longinfo char (100) aligned;
263
264 code, save_code = P_code;
265 if code = 0 then do;
266 shortinfo = "";
267 longinfo = "";
268 return;
269 end;
270 convert_sw = "1"b;
271
272 find: /* Figure out what sort of message to give back */
273 call hcs_$high_low_seg_count (hi, lo); /* Have to call every time, since high-seg is dynamic */
274 hi = hi + lo; /* Get highest valid segment number */
275 if code_format.segno = "000111111111111111"b then /* 077777(8) segno means code comes from system error table */
276 code_format.segno = bit (binary (baseno (addr (error_table_$)), 18, 0), 18);
277 else if bin (code_format.segno, 18) <= lo /* Don't want to access supervisor segs */
278 then go to errdoc;
279 else if bin (code_format.segno, 18) > hi then go to errdoc; /* Similar for large values */
280 else if code_format.segno & "111"b then go to errdoc; /* negative and large codes too */
281 q = baseptr (code_format.segno);
282 tp = ptr (q, code_format.offset); /* get location of long string message */
283
284 call condition_ ("any_other", any_other_handler);
285
286 lng = fixed (tp -> strlng, 9) + 1;
287 if convert_sw then
288 do;
289 shortinfo = addrel (tp, -2) -> char8;
290 longinfo = substr (tp -> work_string, 2);
291 return;
292 end;
293 else do;
294 substr (buffer, bi, lng) = substr (tp -> work_string, 2);
295 call reversion_ ("any_other");
296 go to continue;
297 end;
298
299 errdoc: /* couldn't find code in error_table_ */
300 call reversion_ ("any_other");
301 code = save_code; /* may have been diddled */
302 if code < 0 /* I/O code? */
303 then call ioa_$rsnnl (" I/O status ^w", retstring, lng, code);
304 else call ioa_$rsnnl (" Code ^d.", retstring, lng, code);
305 /* Insert a blank in front so that retstring can be referenced the same as an acc string */
306 if convert_sw then do; /* convert_status_code_ case */
307 if code < 0
308 then shortinfo = "iostatus"; /* Return different short message */
309 else shortinfo = "xxxxxxxx";
310 longinfo = substr (retstring, 2);
311 return;
312 end;
313 else do; /* com_err_ case */
314 tp = addr (retstring);
315 substr (buffer, bi, lng) = substr (tp -> work_string, 2);
316 go to continue; /* continue processing */
317 end;
318
319 unpack_system_code_: entry (packed_code, bin_code);
320
321 dcl packed_code bit (*) unaligned,
322 bin_code fixed bin (35) aligned;
323
324 if packed_code = "0"b then bin_code = 0; /* if zero, then no error */
325 else bin_code = binary (packed_code, 35) + 111111111111111000000000000000000b;
326 /* add in the magic constant */
327 return;
328
329
330 /* condition hander. This handler is ONLY active when convert_status_code_
331* or com_err_ is attempting to reference the text of the error table.
332* If it is probable that the fault occured as a result of such a reference,
333* we punt picking up text, and will instead generate a "Code xxx" message. */
334
335 any_other_handler: proc (mc_ptr, cname, coptr, infoptr, continue);
336
337 dcl cname char (*);
338 dcl mc_ptr ptr;
339 dcl coptr ptr;
340 dcl infoptr ptr;
341 dcl continue bit (1);
342
343 mcp = mc_ptr;
344 scup = addr (mc.scu);
345 if cname = "cleanup" then return; /* already squeaky */
346 if binary (baseno (tp), 18) = binary (scu.tsr, 15) then /* talking about the right segment? */
347 if cname = "out_of_bounds" | /* is it a reasonable fault? */
348 cname = "seg_fault_error" |
349 cname = "not_in_read_bracket" |
350 cname = "no_read_permission" then
351 go to errdoc; /* yep - bogus error code */
352 continue = "1"b; /* not for us */
353 end;
354
355 end;
SOURCE FILES USED IN THIS COMPILATION.
LINE NUMBER DATE MODIFIED NAME PATHNAME
0 11/11/89 0803.9 com_err_.pl1 >spec>install>1110>com_err_.pl1
61 1 03/24/82 1347.2 condition_info_header.incl.pl1 >ldd>include>condition_info_header.incl.pl1
62 2 06/22/81 1815.3 com_af_error_info.incl.pl1 >ldd>include>com_af_error_info.incl.pl1
63 3 12/15/83 1100.4 mc.incl.pl1 >ldd>include>mc.incl.pl1
117 4 11/30/78 1227.5 desc_dcls.incl.pl1 >ldd>include>desc_dcls.incl.pl1
118 5 10/26/88 1255.5 std_descriptor_types.incl.pl1 >ldd>include>std_descriptor_types.incl.pl1
NAMES DECLARED IN THIS COMPILATION.
IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES
(* indicates a set context)
NAMES DECLARED BY DECLARE STATEMENT.
P_code parameter fixed bin(35,0) dcl 260 ref 257 257 264
action_flags 2 000336 automatic structure level 3 dcl 65 set ref 228*
active_fnc_sw 000101 automatic bit(1) dcl 52 set ref 122* 129* 136* 143* 150 241
addr builtin function dcl 82 ref 162 165 166 169 170 171 171 233 244 244
248 248 275 275 275 277 279 280 281 282 314 344
addrel builtin function dcl 82 ref 182 289
arg_list_ptr 000122 automatic pointer dcl 55 set ref 145* 149* 155* 181* 212*
arg_ptr 000126 automatic pointer dcl 56 set ref 154* 157 171*
assign_ 000052 constant entry external dcl 4-22 ref 171
based_code based fixed bin(35,0) dcl 72 ref 157
baseno builtin function dcl 82 ref 275 346
baseptr builtin function dcl 82 ref 281
bce_error$com_err 000010 constant entry external dcl 88 ref 149 149
bi 000112 automatic fixed bin(17,0) dcl 53 set ref 186* 192* 193 193* 195* 202* 202 209
210* 210 217 218* 218 220* 220 223 224* 224 234
294 315
bin builtin function dcl 82 ref 160 277 279
bin_code parameter fixed bin(35,0) dcl 321 set ref 319 324* 325*
binary builtin function dcl 82 ref 275 325 346 346
bit builtin function dcl 82 ref 275
bit_dtype constant fixed bin(17,0) initial dcl 5-25 ref 162
buffer 000131 automatic char(256) dcl 58 set ref 191* 192 209* 217* 223* 233 236 294*
315*
callername based char packed unaligned dcl 73 ref 191
char8 based char(8) dcl 70 ref 289
cname parameter char packed unaligned dcl 337 ref 335 345 346 346 346 346
code 000115 automatic fixed bin(35,0) dcl 54 set ref 157* 171 171 176 199 208 264* 265 275
275 277 279 280 281 282 301* 302 302* 304* 307
code_format based structure level 1 dcl 76
com_af_error_info based structure level 1 dcl 2-8
com_af_error_info_version_3 constant fixed bin(17,0) initial dcl 2-17 ref 230
condition_ 000012 constant entry external dcl 88 ref 284
condition_info_header based structure level 1 dcl 1-6
continue parameter bit(1) packed unaligned dcl 341 set ref 335 352*
convert_sw 000103 automatic bit(1) dcl 52 set ref 200* 270* 287 306
coptr parameter pointer dcl 339 ref 335
cu_$arg_count 000022 constant entry external dcl 88 ref 207
cu_$arg_list_ptr 000016 constant entry external dcl 88 ref 145
cu_$arg_ptr 000020 constant entry external dcl 88 ref 154 180
cu_$generate_call 000024 constant entry external dcl 88 ref 149
decode_descriptor_ 000026 constant entry external dcl 88 ref 155 181
default_restart 2(01) 000336 automatic bit(1) level 4 packed packed unaligned dcl 65 set ref 243*
247*
ec 000116 automatic fixed bin(35,0) dcl 54 set ref 154* 180* 251*
errmess_lth 114 000336 automatic fixed bin(21,0) level 2 dcl 65 set ref 234* 236 251*
errmess_ptr 112 000336 automatic pointer level 2 dcl 65 set ref 233* 251*
error_info 000336 automatic structure level 1 dcl 65 set ref 229 244 244 248 248
error_table_$ 000042 external static fixed bin(17,0) dcl 105 set ref 275
error_table_$active_function 000044 external static fixed bin(35,0) dcl 106 ref 241
fixed builtin function dcl 82 ref 286
hcs_$high_low_seg_count 000030 constant entry external dcl 88 ref 272
header 000336 automatic structure level 2 dcl 65
hi 000113 automatic fixed bin(17,0) dcl 53 set ref 272* 274* 274 279
inclength based fixed bin(31,0) dcl 4-19 set ref 162*
info based structure level 1 dcl 4-11
info_string 3 000336 automatic varying char(256) level 3 dcl 65 set ref 236*
infoptr parameter pointer dcl 340 ref 335
inprec 0(18) based fixed bin(17,0) level 2 packed packed unaligned dcl 4-11 set ref
166*
inscale based fixed bin(17,0) level 2 packed packed unaligned dcl 4-11 set ref
165*
inscale_prec 000466 automatic fixed bin(35,0) dcl 4-8 set ref 162 165 166 171*
intype 000464 automatic fixed bin(17,0) dcl 4-5 set ref 160* 171*
ioa_$general_rs 000034 constant entry external dcl 88 ref 212
ioa_$rsnnl 000032 constant entry external dcl 88 ref 302 304
iox_$error_output 000046 external static pointer dcl 107 set ref 251*
iox_$put_chars 000036 constant entry external dcl 88 ref 251
len 000107 automatic fixed bin(17,0) dcl 53 set ref 212* 213* 213 213* 215 217 217 218
length 000336 automatic fixed bin(17,0) level 3 in structure "error_info" dcl 65
in procedure "com_err_" set ref 229*
length builtin function dcl 82 in procedure "com_err_" ref 192
lng 000110 automatic fixed bin(17,0) dcl 53 set ref 202 286* 290 294 294 302* 304* 315
315
lo 000114 automatic fixed bin(17,0) dcl 53 set ref 272* 274 277
longinfo parameter char(100) dcl 260 set ref 257 257 267* 290* 310*
max_errmess_lth 115 000336 automatic fixed bin(21,0) level 2 dcl 65 set ref 235*
mc based structure level 1 dcl 3-12
mc_ptr parameter pointer dcl 338 ref 335 343
mcp 000332 automatic pointer dcl 3-10 set ref 343* 344
name_lth 110 000336 automatic fixed bin(17,0) level 2 dcl 65 set ref 180* 181* 182* 190 191
name_ptr 106 000336 automatic pointer level 2 dcl 65 set ref 180* 182 191
ndims 000105 automatic fixed bin(17,0) dcl 53 set ref 155* 181*
nl constant char(1) initial dcl 112 ref 223
null builtin function dcl 82 ref 244 244 244 244 248 248 248 248
num based fixed bin(17,0) dcl 71 ref 182
offset 0(18) based bit(18) level 2 packed packed unaligned dcl 76 ref 282
outfo based structure level 1 dcl 4-15
outprec 0(18) based fixed bin(17,0) level 2 packed packed unaligned dcl 4-15 set ref
170*
outscale based fixed bin(17,0) level 2 packed packed unaligned dcl 4-15 set ref
169*
outscale_prec 000467 automatic fixed bin(35,0) dcl 4-8 set ref 169 170 171*
outtype 000465 automatic fixed bin(17,0) dcl 4-5 set ref 168* 171*
packed 000104 automatic bit(1) dcl 52 set ref 155* 157 160 181*
packed_code parameter bit packed unaligned dcl 321 ref 319 324 325
prec 000130 automatic fixed bin(17,0) dcl 57 set ref 155* 162 166
print_sw 116 000336 automatic bit(1) level 2 dcl 65 set ref 237* 251
ptr builtin function dcl 82 ref 282
q 000120 automatic pointer dcl 55 set ref 281* 282
quiet_restart 2(02) 000336 automatic bit(1) level 4 packed packed unaligned dcl 65 set ref 232*
242*
real_fix_bin_1_dtype constant fixed bin(17,0) initial dcl 5-25 ref 157 168
request_abort_ 000456 stack reference condition dcl 84 ref 150
retstring 000231 automatic char(256) packed unaligned dcl 58 set ref 212* 213 217 302*
304* 310 314
reversion_ 000014 constant entry external dcl 88 ref 295 299
rtrim builtin function dcl 82 ref 191 192
save_code 000100 automatic fixed bin(35,0) dcl 51 set ref 176* 231 264* 301
scale 000106 automatic fixed bin(17,0) dcl 53 set ref 155* 165 181*
scu 30 based bit(36) array level 2 in structure "mc" packed packed
unaligned dcl 3-12 in procedure "com_err_" set ref
344
scu based structure level 1 dcl 3-56 in procedure "com_err_"
scup 000334 automatic pointer dcl 3-54 set ref 344* 346
segno based bit(18) level 2 packed packed unaligned dcl 76 set ref 275
275* 277 279 280 281
shortinfo parameter char(8) dcl 260 set ref 257 257 266* 289* 307* 309*
signal_ 000040 constant entry external dcl 88 ref 244 248
size builtin function dcl 82 ref 229
status_code 104 000336 automatic fixed bin(35,0) level 3 dcl 65 set ref 231* 241
string builtin function dcl 82 set ref 228*
strlng based bit(9) dcl 69 ref 286
substr builtin function dcl 82 set ref 209* 213 217* 217 223* 236 290 294*
294 310 315* 315
suppress_name_sw 000102 automatic bit(1) dcl 52 set ref 122* 130* 137* 143* 185
sys_info$service_system 000050 external static bit(1) dcl 108 ref 148
tp 000124 automatic pointer dcl 55 set ref 282* 286 289 290 294 314* 315 346
tpr 2 based structure level 2 packed packed unaligned dcl 3-56
tsr 2(03) based bit(15) level 3 packed packed unaligned dcl 3-56 ref 346
type 000111 automatic fixed bin(17,0) dcl 53 set ref 155* 157 160 162 162 181* 182
varying_char_dtype constant fixed bin(17,0) initial dcl 5-25 ref 162 182
version 1 000336 automatic fixed bin(17,0) level 3 dcl 65 set ref 230*
work_string based char dcl 73 ref 290 294 315
NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED.
abx internal static fixed bin(17,0) initial dcl 3-42
algol68_array_descriptor_dtype internal static fixed bin(17,0) initial dcl 5-25
algol68_bits_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_bool_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_byte_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_char_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_compl_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_format_dtype internal static fixed bin(17,0) initial dcl 5-25
algol68_int_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_long_compl_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_long_int_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_long_real_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_real_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_short_int_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_straight_dtype internal static fixed bin(17,0) initial dcl 5-25
algol68_struct_struct_bool_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_struct_struct_char_dtype internal static fixed bin(17,0) initial dcl 5-110
algol68_union_dtype internal static fixed bin(17,0) initial dcl 5-25
apx internal static fixed bin(17,0) initial dcl 3-42
area_dtype internal static fixed bin(17,0) initial dcl 5-25
assign_round_ 000000 constant entry external dcl 4-22
assign_truncate_ 000000 constant entry external dcl 4-22
bbx internal static fixed bin(17,0) initial dcl 3-42
bpx internal static fixed bin(17,0) initial dcl 3-42
c_enum_const_dtype internal static fixed bin(17,0) initial dcl 5-25
c_enum_dtype internal static fixed bin(17,0) initial dcl 5-25
c_typeref_dtype internal static fixed bin(17,0) initial dcl 5-25
c_union_dtype internal static fixed bin(17,0) initial dcl 5-25