ASSEMBLY LISTING OF SEGMENT >spec>install>1110>ondata_.alm ASSEMBLED ON: 11/11/89 0949.4 mst Sat OPTIONS USED: -target l68 list symbols ASSEMBLED BY: ALM Version 8.14 March 1989 ASSEMBLER CREATED: 06/09/89 1002.3 mst Fri 1 " *********************************************************** 2 " * * 3 " * Copyright, (C) Honeywell Bull Inc., 1987 * 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 " ondata_ 14 " 15 " 16 " static stuff for condition handlers within PL/1 procedures 17 " 18 " P.A.Belmont 19 " 5-29-70 20 " updated by P.A.Belmont 2-17-72 21 " As of 2/72 a single bound segment is to house 22 " all of the PL/I signalling stuff. This ONDATA_ 23 " will be a part of it as will pl1_signal_, 24 " used for signalling all PL/I conditions, and 25 " default_pl1_handler, the handler for all PL/I 26 " conditions. Since version 1 and version 2 27 " PL/I I/O must co-exist for an indefinite time, 28 " the mechanisms of pl1_signal_ and default_pl1_handler 29 " will be . . . . . obscure 30 " updated by M. Weaver 12/28/73 to remove segdefs for handler 31 " 000000 32 name ondata_ 33 " 000010 34 segdef ondatalength 000012 35 segdef fileptr 000130 36 segdef onfile,datafield,oncharindex,onsource,onkey,onloc 000447 37 segdef oncode,condition_name 000014 38 segdef scratchfileptr 39 " 40 " 41 " 42 " 43 " 44 use linkc 45 join /link/linkc 46 " 47 even 48 " 49 " 50 " 51 " 000010 aa 000000 000450 52 ondatalength: vfd 18/0,18/endondata-ondatalength 000011 aa 000000 000000 53 dec 0 54 " **************************************************************** 000012 aa 077777 000043 55 fileptr: its -1,1 000013 aa 000001 000000 56 " points to the "file", i.e., to (FAB1p,FSBp) 57 " this is the file associated with the ONFILE below 58 " which changes only for file-related conditions (FR=1) 59 " 60 " **************************************************************** 000014 aa 077777 000043 61 scratchfileptr: its -1,1 000015 aa 000001 000000 62 " if I/O routine leaves a fileptr here, it should 63 " remove it (null it) when it is no longer required. 64 " This scratch fileptr will identify the associated file 65 " when the conversion package is called. A strategy for 66 " "cleaning up" this scratch fileptr will ultimately be needed. 67 " 68 " **************************************************************** 000016 aa 000000 000000 69 datafield: dec 0 000017 70 bss datafieldstr,64 71 " datafield - bad identifier in GET DATA statement 72 " **************************************************************** 73 " 000117 aa 000000 000000 74 onfile: dec 0 000120 75 bss onfilestr,8 76 " 77 " onfile - filename 78 " **************************************************************** 000130 aa 000000 000000 79 onloc: dec 0 000131 80 bss onlocstr,73 81 " 82 " onloc - name, as characterstring, of faulting procedure /* ?? */ 83 " allowing a name of the form "32"$"256" 84 " **************************************************************** 000242 aa 000000 000000 85 onsource: dec 0 000243 86 bss onsourcestr,64 87 " onsource - bad string causing CONVERSION ERROR 000343 aa 040 040 040 040 88 aci " " 89 " the unused value of onchar is blank 90 " this is the blank: see that oncharindex is 260 initially 91 " **************************************************************** 92 " 000344 aa 000000 000000 93 onkey: dec 0 000345 94 bss onkeystr,64 95 " onkey - bad key or key involved in bad something else 96 " **************************************************************** 97 " 000445 aa 000000 000404 98 oncharindex: dec 260 99 " oncharindex - index in onsourcestr of the offending character 100 " **************************************************************** 101 " 000446 aa 000000 000000 102 oncode: dec 0 103 " oncode - Multics PL/1 error code /* not assigned */ 104 " **************************************************************** 105 " 000447 aa 000000 000000 106 condition_name: dec 0 000450 107 bss condition_namestr,8 108 " the name of the last condition signalled by pl1_signal_ or friends 109 " **************************************************************** 110 " 000460 aa 000000 000000 111 endondata: dec 0 000461 112 bss padding,75 113 " 114 " when changing the length of ondata_ 115 " also change wherever save_ondata is declared. 116 " (pl1_signal_, plio1_..., plio2_... ) 117 " 118 " 119 " 120 " 121 end NO LITERALS NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 000000 5a 000003 000000 000001 5a 000117 600000 000002 aa 000000 000000 000003 55 000010 000002 000004 5a 000002 400003 000005 55 000006 000010 000006 aa 007 157 156 144 000007 aa 141 164 141 137 000010 55 000017 000003 000011 2a 000014 400001 000012 55 000013 000003 000013 aa 016 163 143 162 scratchfileptr 000014 aa 141 164 143 150 000015 aa 146 151 154 145 000016 aa 160 164 162 000 000017 55 000026 000010 000020 2a 000447 400001 000021 55 000022 000003 000022 aa 016 143 157 156 condition_name 000023 aa 144 151 164 151 000024 aa 157 156 137 156 000025 aa 141 155 145 000 000026 55 000033 000017 000027 2a 000446 400001 000030 55 000031 000003 000031 aa 006 157 156 143 oncode 000032 aa 157 144 145 000 000033 55 000040 000026 000034 2a 000130 400001 000035 55 000036 000003 000036 aa 005 157 156 154 onloc 000037 aa 157 143 000 000 000040 55 000045 000033 000041 2a 000344 400001 000042 55 000043 000003 000043 aa 005 157 156 153 onkey 000044 aa 145 171 000 000 000045 55 000053 000040 000046 2a 000242 400001 000047 55 000050 000003 000050 aa 010 157 156 163 onsource 000051 aa 157 165 162 143 000052 aa 145 000 000 000 000053 55 000061 000045 000054 2a 000445 400001 000055 55 000056 000003 000056 aa 013 157 156 143 oncharindex 000057 aa 150 141 162 151 000060 aa 156 144 145 170 000061 55 000067 000053 000062 2a 000016 400001 000063 55 000064 000003 000064 aa 011 144 141 164 datafield 000065 aa 141 146 151 145 000066 aa 154 144 000 000 000067 55 000074 000061 000070 2a 000117 400001 000071 55 000072 000003 000072 aa 006 157 156 146 onfile 000073 aa 151 154 145 000 000074 55 000101 000067 000075 2a 000012 400001 000076 55 000077 000003 000077 aa 007 146 151 154 fileptr 000100 aa 145 160 164 162 000101 55 000110 000074 000102 2a 000010 400001 000103 55 000104 000003 000104 aa 014 157 156 144 ondatalength 000105 aa 141 164 141 154 000106 aa 145 156 147 164 000107 aa 150 000 000 000 000110 55 000002 000101 000111 6a 000000 400002 000112 55 000113 000003 000113 aa 014 163 171 155 symbol_table 000114 aa 142 157 154 137 000115 aa 164 141 142 154 000116 aa 145 000 000 000 DEFINITIONS HASH TABLE 000117 aa 000000 000015 000120 aa 000000 000000 000121 5a 000026 000000 000122 5a 000017 000000 000123 5a 000033 000000 000124 5a 000040 000000 000125 5a 000053 000000 000126 5a 000061 000000 000127 5a 000045 000000 000130 5a 000010 000000 000131 5a 000067 000000 000132 5a 000074 000000 000133 5a 000101 000000 000134 5a 000110 000000 NO EXTERNAL NAMES NO TRAP POINTER WORDS TYPE PAIR BLOCKS 000135 aa 000001 000000 000136 aa 000000 000000 INTERNAL EXPRESSION WORDS 000137 aa 000000 000000 LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 000000 000000 000002 aa 000000 000000 000003 aa 000000 000000 000004 aa 000000 000000 000005 aa 000000 000000 000006 22 000574 000574 000007 a2 000000 000564 SYMBOL INFORMATION SYMBOL TABLE HEADER 000000 aa 000000 000001 000001 aa 163171 155142 000002 aa 164162 145145 000003 aa 000000 000010 000004 aa 000000 117244 000005 aa 361023 525721 000006 aa 000000 117547 000007 aa 255342 014564 000010 aa 141154 155040 000011 aa 040040 040040 000012 aa 000024 000040 000013 aa 000034 000040 000014 aa 000044 000100 000015 aa 000002 000002 000016 aa 000064 000000 000017 aa 000000 000163 000020 aa 000000 000102 000021 aa 000134 000104 000022 aa 000155 000102 000023 aa 000064 000000 000024 aa 101114 115040 000025 aa 126145 162163 000026 aa 151157 156040 000027 aa 070056 061064 000030 aa 040115 141162 000031 aa 143150 040061 000032 aa 071070 071040 000033 aa 040040 040040 000034 aa 110151 162156 000035 aa 145151 163145 000036 aa 156056 123171 000037 aa 163115 141151 000040 aa 156164 056141 000041 aa 040040 040040 000042 aa 040040 040040 000043 aa 040040 040040 000044 aa 055164 141162 000045 aa 147145 164040 000046 aa 154066 070040 000047 aa 040040 040040 000050 aa 040040 040040 000051 aa 040040 040040 000052 aa 040040 040040 000053 aa 040040 040040 000054 aa 040040 040040 000055 aa 040040 040040 000056 aa 040154 151163 000057 aa 164040 163171 000060 aa 155142 157154 000061 aa 163040 040040 000062 aa 040040 040040 000063 aa 040040 040040 000064 aa 000000 000001 000065 aa 000000 000001 000066 aa 000072 000036 000067 aa 175453 017577 000070 aa 000000 117547 000071 aa 176314 400000 000072 aa 076163 160145 >spec>install>1110>ondata_.alm 000073 aa 143076 151156 000074 aa 163164 141154 000075 aa 154076 061061 000076 aa 061060 076157 000077 aa 156144 141164 000100 aa 141137 056141 000101 aa 154155 040040 MULTICS ASSEMBLY CROSS REFERENCE LISTING Value Symbol Source file Line number 447 condition_name ondata_: 37, 106. 450 condition_namestr ondata_: 107. 16 datafield ondata_: 36, 69. 17 datafieldstr ondata_: 70. 460 endondata ondata_: 52, 111. 12 fileptr ondata_: 35, 55. 10 linkc ondata_: 44, 45. 445 oncharindex ondata_: 36, 98. 446 oncode ondata_: 37, 102. 10 ondatalength ondata_: 34, 52. 117 onfile ondata_: 36, 74. 120 onfilestr ondata_: 75. 344 onkey ondata_: 36, 93. 345 onkeystr ondata_: 94. 130 onloc ondata_: 36, 79. 131 onlocstr ondata_: 80. 242 onsource ondata_: 36, 85. 243 onsourcestr ondata_: 86. 461 padding ondata_: 112. 14 scratchfileptr ondata_: 38, 61. NO FATAL ERRORS ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved