|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8192 (0x2000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0e38 | 8 | .CONST 0x0e38 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8008 | | .CONST 0x8008 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 009f | | .CONST 0x009f ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0022 | " | .CONST 0x0022 ; Number of locals 001b INIT_0018: 001b 00e3 | | Load_Encached Natural_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d 00e3 | | Load_Encached Natural_Cache 001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001f 00e3 | | Load_Encached Natural_Cache 0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0021 00e3 | | Load_Encached Natural_Cache 0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0023 00e3 | | Load_Encached Natural_Cache 0024 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0025 00e3 | | Load_Encached Natural_Cache 0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0027 00e3 | | Load_Encached Natural_Cache 0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0029 4800 |H | Short_Literal 0x0 002a 4802 |H | Short_Literal 0x2 002b 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 002d 03fd | | Declare_Type Discrete,Defined 002e 0092 0a24 | $| Action Push_String_Extended,0xa24 ; "<*PROGRAM_LIBRARY>" 0030 0092 0a25 | %| Action Push_String_Extended,0xa25 ; "<???>" 0032 e001 | | Load 0x0,0x1 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 02c7 | | Declare_Variable Any 0035 e002 | | Load 0x0,0x2 0036 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0037 e001 | | Load 0x0,0x1 0038 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0039 a40c | | Store_Unchecked 0x2,0xc 003a 00e1 | | Load_Encached Boolean_Cache 003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003c e003 | | Load 0x0,0x3 003d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 003e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 003f 02c7 | | Declare_Variable Any 0040 4800 |H | Short_Literal 0x0 0041 4800 |H | Short_Literal 0x0 0042 4801 |H | Short_Literal 0x1 0043 e004 | | Load 0x0,0x4 0044 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0045 e40c | | Load 0x2,0xc 0046 e005 | | Load 0x0,0x5 0047 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0048 e006 | | Load 0x0,0x6 0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004a e003 | | Load 0x0,0x3 004b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 004c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004d a40e | | Store_Unchecked 0x2,0xe 004e e007 | | Load 0x0,0x7 004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0050 02c7 | | Declare_Variable Any 0051 00d8 | | Load_Top At_Offset_0 0052 1c00 | | Execute_Immediate Run_Utility,0x0 0053 e008 | | Load 0x0,0x8 0054 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0055 0007 | | Action Break_Optional 0056 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0058 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 005a 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 005c 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 005e 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0060 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0062 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0064 4800 |H | Short_Literal 0x0 0065 0093 0833 | 3| push_full_address INIT_0830 0067 02a0 | | Declare_Subprogram Null_Subprogram 0068 038e | | Declare_Type Package,Defined 0069 0387 | | Declare_Variable Package 006a e003 | | Load 0x0,0x3 006b e409 | | Load 0x2,0x9 006c e009 | | Load 0x0,0x9 006d e00a | | Load 0x0,0xa 006e e00b | | Load 0x0,0xb 006f e00c | | Load 0x0,0xc 0070 e00d | | Load 0x0,0xd 0071 e00e | | Load 0x0,0xe 0072 e00f | | Load 0x0,0xf 0073 e010 | | Load 0x0,0x10 0074 4803 |H | Short_Literal 0x3 0075 4802 |H | Short_Literal 0x2 0076 0099 | | Action Reference_Dynamic 0077 4817 |H | Short_Literal 0x17 0078 4802 |H | Short_Literal 0x2 0079 0099 | | Action Reference_Dynamic 007a e011 | | Load 0x0,0x11 007b 480c |H | Short_Literal 0xc 007c 4802 |H | Short_Literal 0x2 007d 0099 | | Action Reference_Dynamic 007e e012 | | Load 0x0,0x12 007f 4812 |H | Short_Literal 0x12 0080 4802 |H | Short_Literal 0x2 0081 0099 | | Action Reference_Dynamic 0082 4810 |H | Short_Literal 0x10 0083 e418 | | Load 0x2,0x18 0084 020e | | Execute Module,Augment_Imports 0085 00d8 | | Load_Top At_Offset_0 0086 020f | | Execute Module,Activate 0087 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0089 029f 020b | | Declare_Subprogram INIT_0208,For_Call 008b 029e 0283 | | Declare_Subprogram INIT_0280,For_Call,Unelaborated 008d 481b |H | Short_Literal 0x1b 008e 4802 |H | Short_Literal 0x2 008f 0099 | | Action Reference_Dynamic 0090 00c7 | | Action Elaborate_Subprogram 0091 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 0093 029f 031b | | Declare_Subprogram INIT_0318,For_Call 0095 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 0097 029f 038b | | Declare_Subprogram INIT_0388,For_Call 0099 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call 009b 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 009d 029f 040b | | Declare_Subprogram INIT_0408,For_Call 009f BODY_0018: 009f 8421 | ! | Call 0x2,0x21 00a0 e40f | | Load 0x2,0xf 00a1 4800 |H | Short_Literal 0x0 00a2 0092 0a26 | &| Action Push_String_Extended,0xa26 ; "[Program_Library_Maintenance.Check_Code_Segment_Reference_Counts (Worlds => \x22" 00a4 e5ff | | Load 0x2,-0x1 00a5 01cc | | Execute Vector,Catenate 00a6 0092 0a27 | '| Action Push_String_Extended,0xa27 ; "\x22, Increase_Reference_Counts_That_Are_Too_Small => " 00a8 01cc | | Execute Vector,Catenate 00a9 e5fe | | Load 0x2,-0x2 00aa 00e1 | | Load_Encached Boolean_Cache 00ab 025e | ^ | Execute Discrete,Convert 00ac 1c01 | | Execute_Immediate Run_Utility,0x1 00ad 01cc | | Execute Vector,Catenate 00ae 0092 0a28 | (| Action Push_String_Extended,0xa28 ; ", Decrease_Reference_Counts_That_Are_Too_Large => " 00b0 01cc | | Execute Vector,Catenate 00b1 e5fd | | Load 0x2,-0x3 00b2 00e1 | | Load_Encached Boolean_Cache 00b3 025e | ^ | Execute Discrete,Convert 00b4 1c01 | | Execute_Immediate Run_Utility,0x1 00b5 01cc | | Execute Vector,Catenate 00b6 0092 0a29 | )| Action Push_String_Extended,0xa29 ; ", Options => \x22" 00b8 01cc | | Execute Vector,Catenate 00b9 e5fc | | Load 0x2,-0x4 00ba 01cc | | Execute Vector,Catenate 00bb 0092 0a2a | *| Action Push_String_Extended,0xa2a ; "\x22, Response => \x22" 00bd 01cc | | Execute Vector,Catenate 00be e5fb | | Load 0x2,-0x5 00bf 01cc | | Execute Vector,Catenate 00c0 0092 0a2b | +| Action Push_String_Extended,0xa2b ; "\x22);]." 00c2 01cc | | Execute Vector,Catenate 00c3 8410 | | Call 0x2,0x10 00c4 8422 | " | Call 0x2,0x22 00c5 e40e | | Load 0x2,0xe 00c6 e003 | | Load 0x0,0x3 00c7 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c9 8413 | | Call 0x2,0x13 00ca e40f | | Load 0x2,0xf 00cb 4800 |H | Short_Literal 0x0 00cc 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; "[End of Program_Library_Maintenance.Check_Code_Segment_Reference_Counts command]." 00ce 8410 | | Call 0x2,0x10 00cf e40c | | Load 0x2,0xc 00d0 4801 |H | Short_Literal 0x1 00d1 e40d | | Load 0x2,0xd 00d2 e001 | | Load 0x0,0x1 00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d4 c40c | | Store 0x2,0xc 00d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4603 |F | Jump_Case 0x4 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7802 |x | Jump 0xe0 ; case 0x1 00de 7805 |x | Jump 0xe4 ; case 0x2 00df 7809 |x | Jump 0xe9 ; case 0x3 00e0 00da | | Load_Top At_Offset_2 00e1 0091 0a1f | | Action Push_String_Extended_Indexed,0xa1f ; "CODE" 00e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e4 00db | | Load_Top At_Offset_3 00e5 00db | | Load_Top At_Offset_3 00e6 00e0 | | Load_Encached Standard_Cache 00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e9 00da | | Load_Top At_Offset_2 00ea 00e0 | | Load_Encached Standard_Cache 00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 e40f | | Load 0x2,0xf 00f4 4807 |H | Short_Literal 0x7 00f5 e7ff | | Load 0x3,-0x1 00f6 8410 | | Call 0x2,0x10 00f7 e013 | | Load 0x0,0x13 00f8 0257 | W | Execute Discrete,Raise 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e40f | | Load 0x2,0xf 0104 4807 |H | Short_Literal 0x7 0105 e7ff | | Load 0x3,-0x1 0106 8410 | | Call 0x2,0x10 0107 e408 | | Load 0x2,0x8 0108 0a01 | | Execute_Immediate Plus,0x1 0109 c408 | | Store 0x2,0x8 010a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 013b | ; | .CONST 0x013b ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 e004 | | Load 0x0,0x4 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 02c7 | | Declare_Variable Any 0116 00db | | Load_Top At_Offset_3 0117 a602 | | Store_Unchecked 0x3,0x2 0118 e004 | | Load 0x0,0x4 0119 1b11 | | Execute Package,Field_Read,Field_Number 0x11 011a 0266 | f | Execute Discrete,Bounds 011b e007 | | Load 0x0,0x7 011c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 011d 02a0 | | Declare_Subprogram Null_Subprogram 011e 4801 |H | Short_Literal 0x1 011f 035d | ] | Declare_Type Array,Defined 0120 00d8 | | Load_Top At_Offset_0 0121 0337 | 7 | Declare_Variable Array 0122 00d8 | | Load_Top At_Offset_0 0123 0335 | 5 | Declare_Variable Array,Duplicate 0124 00cd | | Action Spare6_Action 0125 4802 |H | Short_Literal 0x2 0126 4800 |H | Short_Literal 0x0 0127 00da | | Load_Top At_Offset_2 0128 01d6 | | Execute Vector,Field_Write 0129 4806 |H | Short_Literal 0x6 012a 4801 |H | Short_Literal 0x1 012b 00da | | Load_Top At_Offset_2 012c 01d6 | | Execute Vector,Field_Write 012d 4807 |H | Short_Literal 0x7 012e 4802 |H | Short_Literal 0x2 012f 00da | | Load_Top At_Offset_2 0130 01d6 | | Execute Vector,Field_Write 0131 4807 |H | Short_Literal 0x7 0132 4803 |H | Short_Literal 0x3 0133 00da | | Load_Top At_Offset_2 0134 01d6 | | Execute Vector,Field_Write 0135 4808 |H | Short_Literal 0x8 0136 4804 |H | Short_Literal 0x4 0137 00da | | Load_Top At_Offset_2 0138 01d6 | | Execute Vector,Field_Write 0139 00d9 | | Load_Top At_Offset_1 013a 01d4 | | Execute Vector,Structure_Write 013b BODY_0110: 013b 00cf | | Action Mark_Auxiliary 013c 780f |x | Jump 0x14c 013d e40f | | Load 0x2,0xf 013e e602 | | Load 0x3,0x2 013f e004 | | Load 0x0,0x4 0140 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0141 00db | | Load_Top At_Offset_3 0142 01d7 | | Execute Vector,Field_Read 0143 e602 | | Load 0x3,0x2 0144 e004 | | Load 0x0,0x4 0145 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0146 8410 | | Call 0x2,0x10 0147 00db | | Load_Top At_Offset_3 0148 e004 | | Load 0x0,0x4 0149 1819 | | Execute Package,Field_Execute,Field_Number 0x19 014a c602 | | Store 0x3,0x2 014b 00c9 | | Action Pop_Auxiliary_Loop 014c 00db | | Load_Top At_Offset_3 014d e004 | | Load 0x0,0x4 014e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014f 6fed |o | Jump_Zero 0x13d 0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0162 | b | .CONST 0x0162 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b e011 | | Load 0x0,0x11 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d e00f | | Load 0x0,0xf 015e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 015f 02c7 | | Declare_Variable Any 0160 00d8 | | Load_Top At_Offset_0 0161 1c00 | | Execute_Immediate Run_Utility,0x0 0162 BODY_0158: 0162 00be | | Action Activate_Tasks 0163 e011 | | Load 0x0,0x11 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 00d9 | | Load_Top At_Offset_1 0166 0120 | | Execute Any,Is_Value 0167 6803 |h | Jump_Zero 0x16b 0168 e00f | | Load 0x0,0xf 0169 1b15 | | Execute Package,Field_Read,Field_Number 0x15 016a 7801 |x | Jump 0x16c 016b 00d9 | | Load_Top At_Offset_1 016c e40c | | Load 0x2,0xc 016d 4800 |H | Short_Literal 0x0 016e e00f | | Load 0x0,0xf 016f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0170 e012 | | Load 0x0,0x12 0171 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0172 e00f | | Load 0x0,0xf 0173 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0174 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0175 4801 |H | Short_Literal 0x1 0176 e7ff | | Load 0x3,-0x1 0177 e00f | | Load 0x0,0xf 0178 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0179 c603 | | Store 0x3,0x3 017a 005a | Z | Store_Top Discrete,At_Offset_2 017b 00d9 | | Load_Top At_Offset_1 017c 7010 |p | Jump_Nonzero 0x18d 017d e7ff | | Load 0x3,-0x1 017e e012 | | Load 0x0,0x12 017f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0180 0092 0a2d | -| Action Push_String_Extended,0xa2d ; " (segment" 0182 01cc | | Execute Vector,Catenate 0183 00d9 | | Load_Top At_Offset_1 0184 e00f | | Load 0x0,0xf 0185 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0186 00e0 | | Load_Encached Standard_Cache 0187 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0188 01cc | | Execute Vector,Catenate 0189 0092 0a2e | .| Action Push_String_Extended,0xa2e ; ")" 018b 01cc | | Execute Vector,Catenate 018c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018d 0092 0a2f | /| Action Push_String_Extended,0xa2f ; "Bad status opening code segment " 018f e7ff | | Load 0x3,-0x1 0190 e012 | | Load 0x0,0x12 0191 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0192 01cc | | Execute Vector,Catenate 0193 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 0195 01cc | | Execute Vector,Catenate 0196 00da | | Load_Top At_Offset_2 0197 e011 | | Load 0x0,0x11 0198 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0199 025e | ^ | Execute Discrete,Convert 019a 1c01 | | Execute_Immediate Run_Utility,0x1 019b 01cc | | Execute Vector,Catenate 019c 8412 | | Call 0x2,0x12 019d e7ff | | Load 0x3,-0x1 019e e012 | | Load 0x0,0x12 019f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 4602 |F | Jump_Case 0x3 01ad 7805 |x | Jump 0x1b3 ; case 0x0 01ae 7806 |x | Jump 0x1b5 ; case 0x1 01af 7800 |x | Jump 0x1b0 ; case 0x2 01b0 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "main program closure " 01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b3 00ea | | Load_Encached Null_String_Cache 01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b5 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "elaboration " 01b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 01d2 | | .CONST 0x01d2 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 029f 051b | | Declare_Subprogram INIT_0518,For_Call 01bd BODY_01b8: 01bd 00db | | Load_Top At_Offset_3 01be e003 | | Load 0x0,0x3 01bf 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01c1 e003 | | Load 0x0,0x3 01c2 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 01c3 180d | | Execute Package,Field_Execute,Field_Number 0xd 01c4 6808 |h | Jump_Zero 0x1cd 01c5 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; "code view unit " 01c7 e7ff | | Load 0x3,-0x1 01c8 e003 | | Load 0x0,0x3 01c9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01ca 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01cb 01cc | | Execute Vector,Catenate 01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cd 00db | | Load_Top At_Offset_3 01ce e003 | | Load 0x0,0x3 01cf 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 TRAP_01b8: 01d2 0007 | | Action Break_Optional 01d3 8602 | | Call 0x3,0x2 01d4 e40b | | Load 0x2,0xb 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00db | | Load_Top At_Offset_3 01dc 0e02 | | Execute_Immediate Not_Equal,0x2 01dd 7008 |p | Jump_Nonzero 0x1e6 01de 00da | | Load_Top At_Offset_2 01df e003 | | Load 0x0,0x3 01e0 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 01e1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e2 e003 | | Load 0x0,0x3 01e3 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 01e4 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e6 4801 |H | Short_Literal 0x1 01e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01fb | | .CONST 0x01fb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0008 | | .CONST 0x0008 ; Number of locals 01eb INIT_01e8: 01eb 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 01ed 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 01ef 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 01f1 e418 | | Load 0x2,0x18 01f2 1911 | | Execute Package,Field_Reference,Field_Number 0x11 01f3 00c6 | | Action Check_Subprogram_Elaborated 01f4 4804 |H | Short_Literal 0x4 01f5 4803 |H | Short_Literal 0x3 01f6 0099 | | Action Reference_Dynamic 01f7 e014 | | Load 0x0,0x14 01f8 e015 | | Load 0x0,0x15 01f9 4808 |H | Short_Literal 0x8 01fa 0007 | | Action Break_Optional 01fb BODY_01e8: 01fb 4805 |H | Short_Literal 0x5 01fc 4803 |H | Short_Literal 0x3 01fd 0099 | | Action Reference_Dynamic 01fe 4806 |H | Short_Literal 0x6 01ff 4803 |H | Short_Literal 0x3 0200 0099 | | Action Reference_Dynamic 0201 e418 | | Load 0x2,0x18 0202 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0218 | | .CONST 0x0218 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0005 | | .CONST 0x0005 ; Number of locals 020b INIT_0208: 020b e003 | | Load 0x0,0x3 020c 1b52 | R | Execute Package,Field_Read,Field_Number 0x52 020d 02c7 | | Declare_Variable Any 020e e7fd | | Load 0x3,-0x3 020f a602 | | Store_Unchecked 0x3,0x2 0210 e00f | | Load 0x0,0xf 0211 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0212 02ff | | Declare_Variable Variant_Record 0213 00d8 | | Load_Top At_Offset_0 0214 1c00 | | Execute_Immediate Run_Utility,0x0 0215 00e3 | | Load_Encached Natural_Cache 0216 e011 | | Load 0x0,0x11 0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0218 BODY_0208: 0218 00cf | | Action Mark_Auxiliary 0219 785a |xZ | Jump 0x274 021a e602 | | Load 0x3,0x2 021b e003 | | Load 0x0,0x3 021c 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 021d e00f | | Load 0x0,0xf 021e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 021f 0162 | b | Execute Variant_Record,Check_In_Type 0220 e603 | | Load 0x3,0x3 0221 016d | m | Execute Variant_Record,Structure_Write 0222 e602 | | Load 0x3,0x2 0223 e003 | | Load 0x0,0x3 0224 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0225 c602 | | Store 0x3,0x2 0226 e402 | | Load 0x2,0x2 0227 0a01 | | Execute_Immediate Plus,0x1 0228 c402 | | Store 0x2,0x2 0229 00db | | Load_Top At_Offset_3 022a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 022b e00f | | Load 0x0,0xf 022c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 022d 027f | | Execute Discrete,Equal 022e 6831 |h1 | Jump_Zero 0x260 022f e011 | | Load 0x0,0x11 0230 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0231 00e2 | | Load_Encached Integer_Cache 0232 4800 |H | Short_Literal 0x0 0233 4800 |H | Short_Literal 0x0 0234 e40c | | Load 0x2,0xc 0235 e603 | | Load 0x3,0x3 0236 e00f | | Load 0x0,0xf 0237 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0238 c604 | | Store 0x3,0x4 0239 005a | Z | Store_Top Discrete,At_Offset_2 023a 00d9 | | Load_Top At_Offset_1 023b 7007 |p | Jump_Nonzero 0x243 023c e7fe | | Load 0x3,-0x2 023d e7ff | | Load 0x3,-0x1 023e e604 | | Load 0x3,0x4 023f e603 | | Load 0x3,0x3 0240 e418 | | Load 0x2,0x18 0241 180d | | Execute Package,Field_Execute,Field_Number 0xd 0242 7830 |x0 | Jump 0x273 0243 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Bad status getting reference count for code segment " 0245 e603 | | Load 0x3,0x3 0246 e012 | | Load 0x0,0x12 0247 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0248 01cc | | Execute Vector,Catenate 0249 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; " found on " 024b 01cc | | Execute Vector,Catenate 024c e7fe | | Load 0x3,-0x2 024d 8415 | | Call 0x2,0x15 024e 01cc | | Execute Vector,Catenate 024f 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "code segment object list of " 0251 01cc | | Execute Vector,Catenate 0252 e7ff | | Load 0x3,-0x1 0253 8416 | | Call 0x2,0x16 0254 01cc | | Execute Vector,Catenate 0255 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 0257 01cc | | Execute Vector,Catenate 0258 00da | | Load_Top At_Offset_2 0259 e011 | | Load 0x0,0x11 025a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025b 025e | ^ | Execute Discrete,Convert 025c 1c01 | | Execute_Immediate Run_Utility,0x1 025d 01cc | | Execute Vector,Catenate 025e 8412 | | Call 0x2,0x12 025f 7813 |x | Jump 0x273 0260 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; "Unexpected class of object found on " 0262 e7fe | | Load 0x3,-0x2 0263 8415 | | Call 0x2,0x15 0264 01cc | | Execute Vector,Catenate 0265 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "code segment object list of " 0267 01cc | | Execute Vector,Catenate 0268 e7ff | | Load 0x3,-0x1 0269 8416 | | Call 0x2,0x16 026a 01cc | | Execute Vector,Catenate 026b 0092 0a38 | 8| Action Push_String_Extended,0xa38 ; ":" 026d 01cc | | Execute Vector,Catenate 026e e603 | | Load 0x3,0x3 026f e012 | | Load 0x0,0x12 0270 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0271 01cc | | Execute Vector,Catenate 0272 8412 | | Call 0x2,0x12 0273 00c9 | | Action Pop_Auxiliary_Loop 0274 e602 | | Load 0x3,0x2 0275 e003 | | Load 0x0,0x3 0276 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 0277 012f | / | Execute Any,Equal 0278 6fa1 |o | Jump_Zero 0x21a 0279 4504 |E | Exit_Suprogram New_Top_Offset 0x4 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0291 | | .CONST 0x0291 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0006 | | .CONST 0x0006 ; Number of locals 0283 INIT_0280: 0283 e009 | | Load 0x0,0x9 0284 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0285 02ff | | Declare_Variable Variant_Record 0286 00d8 | | Load_Top At_Offset_0 0287 1c00 | | Execute_Immediate Run_Utility,0x0 0288 e009 | | Load 0x0,0x9 0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028a e016 | | Load 0x0,0x16 028b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 028c e016 | | Load 0x0,0x16 028d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 028e e016 | | Load 0x0,0x16 028f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0290 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0291 BODY_0280: 0291 e009 | | Load 0x0,0x9 0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0293 e602 | | Load 0x3,0x2 0294 605f |`_ | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x00004000} 0295 e001 | | Load 0x0,0x1 0296 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0297 4800 |H | Short_Literal 0x0 0298 e7fd | | Load 0x3,-0x3 0299 e009 | | Load 0x0,0x9 029a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 029b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 029c 00d1 | | Pop_Control Pop_Count_1 029d c603 | | Store 0x3,0x3 029e 00db | | Load_Top At_Offset_3 029f 680f |h | Jump_Zero 0x2af 02a0 0092 0a39 | 9| Action Push_String_Extended,0xa39 ; "Bad status getting version for Archived_Code object " 02a2 e7fc | | Load 0x3,-0x4 02a3 01cc | | Execute Vector,Catenate 02a4 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 02a6 01cc | | Execute Vector,Catenate 02a7 e603 | | Load 0x3,0x3 02a8 e009 | | Load 0x0,0x9 02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02aa 025e | ^ | Execute Discrete,Convert 02ab 1c01 | | Execute_Immediate Run_Utility,0x1 02ac 01cc | | Execute Vector,Catenate 02ad 8412 | | Call 0x2,0x12 02ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02af e016 | | Load 0x0,0x16 02b0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02b1 e016 | | Load 0x0,0x16 02b2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02b3 4801 |H | Short_Literal 0x1 02b4 e001 | | Load 0x0,0x1 02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b6 e602 | | Load 0x3,0x2 02b7 e016 | | Load 0x0,0x16 02b8 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 02b9 0162 | b | Execute Variant_Record,Check_In_Type 02ba e016 | | Load 0x0,0x16 02bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02bc c604 | | Store 0x3,0x4 02bd 005a | Z | Store_Top Discrete,At_Offset_2 02be 00d9 | | Load_Top At_Offset_1 02bf 680f |h | Jump_Zero 0x2cf 02c0 0092 0a3a | :| Action Push_String_Extended,0xa3a ; "Bad status opening Archived_Code object " 02c2 e7fc | | Load 0x3,-0x4 02c3 01cc | | Execute Vector,Catenate 02c4 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 02c6 01cc | | Execute Vector,Catenate 02c7 00da | | Load_Top At_Offset_2 02c8 e016 | | Load 0x0,0x16 02c9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02ca 025e | ^ | Execute Discrete,Convert 02cb 1c01 | | Execute_Immediate Run_Utility,0x1 02cc 01cc | | Execute Vector,Catenate 02cd 8412 | | Call 0x2,0x12 02ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02cf e016 | | Load 0x0,0x16 02d0 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02d1 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 02d2 e005 | | Load 0x0,0x5 02d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d4 e006 | | Load 0x0,0x6 02d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d6 e604 | | Load 0x3,0x4 02d7 0217 | | Execute Heap_Access,All_Reference 02d8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02d9 e016 | | Load 0x0,0x16 02da 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02db 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02dc 0031 | 1 | Store_Top Heap_Access,At_Offset_1 02dd 00cf | | Action Mark_Auxiliary 02de 780c |x | Jump 0x2eb 02df 00d9 | | Load_Top At_Offset_1 02e0 e016 | | Load 0x0,0x16 02e1 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02e3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02e4 87fe | | Call 0x3,-0x2 02e5 00d9 | | Load_Top At_Offset_1 02e6 e016 | | Load 0x0,0x16 02e7 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02e8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02e9 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02ea 00c9 | | Action Pop_Auxiliary_Loop 02eb 00d9 | | Load_Top At_Offset_1 02ec e016 | | Load 0x0,0x16 02ed 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02ee 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02ef 6fef |o | Jump_Zero 0x2df 02f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02f1 0000 0000 | | .XXX[0x3] 02f3 0000 | | 02f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0308 | | .CONST 0x0308 ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0006 | | .CONST 0x0006 ; Number of locals 02fb INIT_02f8: 02fb 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call 02fd 481b |H | Short_Literal 0x1b 02fe 4802 |H | Short_Literal 0x2 02ff 0099 | | Action Reference_Dynamic 0300 00c6 | | Action Check_Subprogram_Elaborated 0301 4802 |H | Short_Literal 0x2 0302 4803 |H | Short_Literal 0x3 0303 0099 | | Action Reference_Dynamic 0304 e017 | | Load 0x0,0x17 0305 e018 | | Load 0x0,0x18 0306 4806 |H | Short_Literal 0x6 0307 0007 | | Action Break_Optional 0308 BODY_02f8: 0308 0092 0a3b | ;| Action Push_String_Extended,0xa3b ; "for Loaded_Main unit " 030a e7fe | | Load 0x3,-0x2 030b e003 | | Load 0x0,0x3 030c 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 030d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 030e 01cc | | Execute Vector,Catenate 030f e7ff | | Load 0x3,-0x1 0310 4803 |H | Short_Literal 0x3 0311 4803 |H | Short_Literal 0x3 0312 0099 | | Action Reference_Dynamic 0313 4804 |H | Short_Literal 0x4 0314 4803 |H | Short_Literal 0x3 0315 0099 | | Action Reference_Dynamic 0316 841b | | Call 0x2,0x1b 0317 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031d | | .CONST 0x031d ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 031d BODY_0318: 031d 00db | | Load_Top At_Offset_3 031e 8416 | | Call 0x2,0x16 031f e40b | | Load 0x2,0xb 0320 01de | | Execute Vector,Not_Equal 0321 7001 |p | Jump_Nonzero 0x323 0322 0887 | | Execute_Immediate Raise,0x87 0323 e404 | | Load 0x2,0x4 0324 0a01 | | Execute_Immediate Plus,0x1 0325 c404 | | Store 0x2,0x4 0326 00db | | Load_Top At_Offset_3 0327 e003 | | Load 0x0,0x3 0328 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0329 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 032a 4800 |H | Short_Literal 0x0 032b e7ff | | Load 0x3,-0x1 032c 841a | | Call 0x2,0x1a 032d 00db | | Load_Top At_Offset_3 032e e003 | | Load 0x0,0x3 032f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0330 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0331 4801 |H | Short_Literal 0x1 0332 e7ff | | Load 0x3,-0x1 0333 841a | | Call 0x2,0x1a 0334 00db | | Load_Top At_Offset_3 0335 e003 | | Load 0x0,0x3 0336 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0337 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0338 4802 |H | Short_Literal 0x2 0339 e7ff | | Load 0x3,-0x1 033a 841a | | Call 0x2,0x1a 033b 00db | | Load_Top At_Offset_3 033c e003 | | Load 0x0,0x3 033d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 033e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 033f 6801 |h | Jump_Zero 0x341 0340 8602 | | Call 0x3,0x2 0341 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0358 | X | .CONST 0x0358 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0006 | | .CONST 0x0006 ; Number of locals 034b INIT_0348: 034b e003 | | Load 0x0,0x3 034c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 034d 191f | | Execute Package,Field_Reference,Field_Number 0x1f 034e 00c6 | | Action Check_Subprogram_Elaborated 034f 481d |H | Short_Literal 0x1d 0350 4802 |H | Short_Literal 0x2 0351 0099 | | Action Reference_Dynamic 0352 e019 | | Load 0x0,0x19 0353 e01a | | Load 0x0,0x1a 0354 4805 |H | Short_Literal 0x5 0355 0007 | | Action Break_Optional 0356 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 0358 BODY_0348: 0358 4800 |H | Short_Literal 0x0 0359 e01b | | Load 0x0,0x1b 035a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 035b e7ff | | Load 0x3,-0x1 035c e003 | | Load 0x0,0x3 035d 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 035e 180f | | Execute Package,Field_Execute,Field_Number 0xf 035f e01c | | Load 0x0,0x1c 0360 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0361 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0362 0f03 | | Execute_Immediate Equal,0x3 0363 681a |h | Jump_Zero 0x37e 0364 e40f | | Load 0x2,0xf 0365 4802 |H | Short_Literal 0x2 0366 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "Checking " 0368 e7fe | | Load 0x3,-0x2 0369 8606 | | Call 0x3,0x6 036a 01cc | | Execute Vector,Catenate 036b 8410 | | Call 0x2,0x10 036c e405 | | Load 0x2,0x5 036d 0a01 | | Execute_Immediate Plus,0x1 036e c405 | | Store 0x2,0x5 036f 4801 |H | Short_Literal 0x1 0370 4801 |H | Short_Literal 0x1 0371 4801 |H | Short_Literal 0x1 0372 4800 |H | Short_Literal 0x0 0373 e7ff | | Load 0x3,-0x1 0374 4802 |H | Short_Literal 0x2 0375 4803 |H | Short_Literal 0x3 0376 0099 | | Action Reference_Dynamic 0377 4803 |H | Short_Literal 0x3 0378 4803 |H | Short_Literal 0x3 0379 0099 | | Action Reference_Dynamic 037a e003 | | Load 0x0,0x3 037b 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 037c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 037d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037e e40f | | Load 0x2,0xf 037f 4802 |H | Short_Literal 0x2 0380 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "Skipping non-R1000 world " 0382 e7fe | | Load 0x3,-0x2 0383 8606 | | Call 0x3,0x6 0384 01cc | | Execute Vector,Catenate 0385 8410 | | Call 0x2,0x10 0386 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0387 0000 | | .XXX[0x1] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 0393 | | .CONST 0x0393 ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0003 | | .CONST 0x0003 ; Number of locals 038b INIT_0388: 038b e009 | | Load 0x0,0x9 038c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 038d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038e 02c7 | | Declare_Variable Any 038f 00d8 | | Load_Top At_Offset_0 0390 1c00 | | Execute_Immediate Run_Utility,0x0 0391 e009 | | Load 0x0,0x9 0392 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0393 BODY_0388: 0393 e009 | | Load 0x0,0x9 0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0395 00da | | Load_Top At_Offset_2 0396 0120 | | Execute Any,Is_Value 0397 6804 |h | Jump_Zero 0x39c 0398 e009 | | Load 0x0,0x9 0399 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 039a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039b 7801 |x | Jump 0x39d 039c 00da | | Load_Top At_Offset_2 039d e7ff | | Load 0x3,-0x1 039e e009 | | Load 0x0,0x9 039f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 03a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03a1 c602 | | Store 0x3,0x2 03a2 0059 | Y | Store_Top Discrete,At_Offset_1 03a3 00d8 | | Load_Top At_Offset_0 03a4 680b |h | Jump_Zero 0x3b0 03a5 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "Bad status getting enclosing directory for " 03a7 e7ff | | Load 0x3,-0x1 03a8 e009 | | Load 0x0,0x9 03a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03aa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03ab 01cc | | Execute Vector,Catenate 03ac 8412 | | Call 0x2,0x12 03ad e009 | | Load 0x0,0x9 03ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b0 00d9 | | Load_Top At_Offset_1 03b1 e009 | | Load 0x0,0x9 03b2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03b3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b5 0000 0000 | | .XXX[0x3] 03b7 0000 | | 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03ce | | .CONST 0x03ce ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0007 | | .CONST 0x0007 ; Number of locals 03bb INIT_03b8: 03bb e009 | | Load 0x0,0x9 03bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bd 02c7 | | Declare_Variable Any 03be 00db | | Load_Top At_Offset_3 03bf 841f | | Call 0x2,0x1f 03c0 a602 | | Store_Unchecked 0x3,0x2 03c1 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call 03c3 481b |H | Short_Literal 0x1b 03c4 4802 |H | Short_Literal 0x2 03c5 0099 | | Action Reference_Dynamic 03c6 00c6 | | Action Check_Subprogram_Elaborated 03c7 4803 |H | Short_Literal 0x3 03c8 4803 |H | Short_Literal 0x3 03c9 0099 | | Action Reference_Dynamic 03ca e01d | | Load 0x0,0x1d 03cb e01e | | Load 0x0,0x1e 03cc 4807 |H | Short_Literal 0x7 03cd 0007 | | Action Break_Optional 03ce BODY_03b8: 03ce 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; "for code view " 03d0 e602 | | Load 0x3,0x2 03d1 e009 | | Load 0x0,0x9 03d2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03d4 01cc | | Execute Vector,Catenate 03d5 e7ff | | Load 0x3,-0x1 03d6 4804 |H | Short_Literal 0x4 03d7 4803 |H | Short_Literal 0x3 03d8 0099 | | Action Reference_Dynamic 03d9 4805 |H | Short_Literal 0x5 03da 4803 |H | Short_Literal 0x3 03db 0099 | | Action Reference_Dynamic 03dc 841b | | Call 0x2,0x1b 03dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e8 | | .CONST 0x03e8 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0002 | | .CONST 0x0002 ; Number of locals 03e3 INIT_03e0: 03e3 e01f | | Load 0x0,0x1f 03e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e5 02c7 | | Declare_Variable Any 03e6 00d8 | | Load_Top At_Offset_0 03e7 1c00 | | Execute_Immediate Run_Utility,0x0 03e8 BODY_03e0: 03e8 00d8 | | Load_Top At_Offset_0 03e9 e40f | | Load 0x2,0xf 03ea 0120 | | Execute Any,Is_Value 03eb 6803 |h | Jump_Zero 0x3ef 03ec e007 | | Load 0x0,0x7 03ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ee 7801 |x | Jump 0x3f0 03ef e40f | | Load 0x2,0xf 03f0 e5fb | | Load 0x2,-0x5 03f1 e007 | | Load 0x0,0x7 03f2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 03f3 c40f | | Store 0x2,0xf 03f4 c602 | | Store 0x3,0x2 03f5 4801 |H | Short_Literal 0x1 03f6 00d9 | | Load_Top At_Offset_1 03f7 e01f | | Load 0x0,0x1f 03f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03f9 6807 |h | Jump_Zero 0x401 03fa e007 | | Load 0x0,0x7 03fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 03fc 00d9 | | Load_Top At_Offset_1 03fd e008 | | Load 0x0,0x8 03fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03ff 00cc | | Action Pop_Block 0400 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0401 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0402 0000 0000 | | .BLANK 0000[0x6] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 0433 | 3 | .CONST 0x0433 ; Address of begin 0409 0510 | | .CONST 0x0510 ; Address of exception handler 040a 000a | | .CONST 0x000a ; Number of locals 040b INIT_0408: 040b 485b |H[ | Short_Literal 0x5b 040c e5ff | | Load 0x2,-0x1 040d 01ca | | Execute Vector,Prepend 040e 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "]" 0410 01cc | | Execute Vector,Catenate 0411 e40a | | Load 0x2,0xa 0412 01cc | | Execute Vector,Catenate 0413 0007 | | Action Break_Optional 0414 e009 | | Load 0x0,0x9 0415 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0416 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0417 e009 | | Load 0x0,0x9 0418 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0419 1b18 | | Execute Package,Field_Read,Field_Number 0x18 041a 02c7 | | Declare_Variable Any 041b 00d8 | | Load_Top At_Offset_0 041c 1c00 | | Execute_Immediate Run_Utility,0x0 041d e009 | | Load 0x0,0x9 041e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041f e009 | | Load 0x0,0x9 0420 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0421 02c7 | | Declare_Variable Any 0422 00d8 | | Load_Top At_Offset_0 0423 1c00 | | Execute_Immediate Run_Utility,0x0 0424 e003 | | Load 0x0,0x3 0425 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0426 02c7 | | Declare_Variable Any 0427 00d8 | | Load_Top At_Offset_0 0428 1c00 | | Execute_Immediate Run_Utility,0x0 0429 485b |H[ | Short_Literal 0x5b 042a e5ff | | Load 0x2,-0x1 042b 01ca | | Execute Vector,Prepend 042c 0092 0a41 | A| Action Push_String_Extended,0xa41 ; "]code_database'c(archived_code)" 042e 01cc | | Execute Vector,Catenate 042f 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 0431 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call 0433 BODY_0408: 0433 e5fe | | Load 0x2,-0x2 0434 7002 |p | Jump_Nonzero 0x437 0435 e5fd | | Load 0x2,-0x3 0436 6809 |h | Jump_Zero 0x440 0437 4801 |H | Short_Literal 0x1 0438 e020 | | Load 0x0,0x20 0439 1817 | | Execute Package,Field_Execute,Field_Number 0x17 043a e020 | | Load 0x0,0x20 043b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 043c 7003 |p | Jump_Nonzero 0x440 043d 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "Requested modification of incorrect reference counts, but unable to enter privileged mode" 043f 8411 | | Call 0x2,0x11 0440 00cf | | Action Mark_Auxiliary 0441 00e1 | | Load_Encached Boolean_Cache 0442 0266 | f | Execute Discrete,Bounds 0443 0007 | | Action Break_Optional 0444 00d8 | | Load_Top At_Offset_0 0445 6819 |h | Jump_Zero 0x45f 0446 e009 | | Load 0x0,0x9 0447 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0448 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0449 e604 | | Load 0x3,0x4 044a 60c9 |` | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000} 044b e001 | | Load 0x0,0x1 044c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 044d e005 | | Load 0x0,0x5 044e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 044f e006 | | Load 0x0,0x6 0450 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0451 4801 |H | Short_Literal 0x1 0452 4800 |H | Short_Literal 0x0 0453 e005 | | Load 0x0,0x5 0454 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0455 e009 | | Load 0x0,0x9 0456 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0457 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0458 e602 | | Load 0x3,0x2 0459 e009 | | Load 0x0,0x9 045a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 045b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 045c c604 | | Store 0x3,0x4 045d c603 | | Store 0x3,0x3 045e 7818 |x | Jump 0x477 045f e009 | | Load 0x0,0x9 0460 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0461 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0462 e604 | | Load 0x3,0x4 0463 60b0 |` | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000} 0464 e001 | | Load 0x0,0x1 0465 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0466 e005 | | Load 0x0,0x5 0467 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0468 e006 | | Load 0x0,0x6 0469 1811 | | Execute Package,Field_Execute,Field_Number 0x11 046a 4801 |H | Short_Literal 0x1 046b 4800 |H | Short_Literal 0x0 046c e005 | | Load 0x0,0x5 046d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 046e e009 | | Load 0x0,0x9 046f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0470 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0471 e608 | | Load 0x3,0x8 0472 e009 | | Load 0x0,0x9 0473 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0474 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0475 c604 | | Store 0x3,0x4 0476 c603 | | Store 0x3,0x3 0477 e603 | | Load 0x3,0x3 0478 6843 |hC | Jump_Zero 0x4bc 0479 e603 | | Load 0x3,0x3 047a 0e03 | | Execute_Immediate Not_Equal,0x3 047b 7005 |p | Jump_Nonzero 0x481 047c e604 | | Load 0x3,0x4 047d e009 | | Load 0x0,0x9 047e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 047f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0480 703b |p; | Jump_Nonzero 0x4bc 0481 00d8 | | Load_Top At_Offset_0 0482 681d |h | Jump_Zero 0x4a0 0483 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Unable to resolve name \x22" 0485 e602 | | Load 0x3,0x2 0486 01cc | | Execute Vector,Catenate 0487 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "\x22 because " 0489 01cc | | Execute Vector,Catenate 048a 6089 |` | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000} 048b e001 | | Load 0x0,0x1 048c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 048d e005 | | Load 0x0,0x5 048e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 048f e006 | | Load 0x0,0x6 0490 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0491 4801 |H | Short_Literal 0x1 0492 4800 |H | Short_Literal 0x0 0493 e005 | | Load 0x0,0x5 0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0495 e009 | | Load 0x0,0x9 0496 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0497 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0498 e602 | | Load 0x3,0x2 0499 e603 | | Load 0x3,0x3 049a e009 | | Load 0x0,0x9 049b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 049c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 049d 01cc | | Execute Vector,Catenate 049e 8411 | | Call 0x2,0x11 049f 781c |x | Jump 0x4bc 04a0 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Unable to resolve name \x22" 04a2 e608 | | Load 0x3,0x8 04a3 01cc | | Execute Vector,Catenate 04a4 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "\x22 because " 04a6 01cc | | Execute Vector,Catenate 04a7 606c |`l | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000} 04a8 e001 | | Load 0x0,0x1 04a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04aa e005 | | Load 0x0,0x5 04ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ac e006 | | Load 0x0,0x6 04ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ae 4801 |H | Short_Literal 0x1 04af 4800 |H | Short_Literal 0x0 04b0 e005 | | Load 0x0,0x5 04b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04b2 e009 | | Load 0x0,0x9 04b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b5 e608 | | Load 0x3,0x8 04b6 e603 | | Load 0x3,0x3 04b7 e009 | | Load 0x0,0x9 04b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b9 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 04ba 01cc | | Execute Vector,Catenate 04bb 8411 | | Call 0x2,0x11 04bc 00cf | | Action Mark_Auxiliary 04bd 7846 |xF | Jump 0x504 04be e009 | | Load 0x0,0x9 04bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c0 e606 | | Load 0x3,0x6 04c1 0120 | | Execute Any,Is_Value 04c2 6803 |h | Jump_Zero 0x4c6 04c3 e009 | | Load 0x0,0x9 04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c5 7801 |x | Jump 0x4c7 04c6 e606 | | Load 0x3,0x6 04c7 e604 | | Load 0x3,0x4 04c8 e009 | | Load 0x0,0x9 04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 04cb c606 | | Store 0x3,0x6 04cc c605 | | Store 0x3,0x5 04cd e605 | | Load 0x3,0x5 04ce 6811 |h | Jump_Zero 0x4e0 04cf 0092 0a45 | E| Action Push_String_Extended,0xa45 ; "Bad status getting object for " 04d1 e604 | | Load 0x3,0x4 04d2 e009 | | Load 0x0,0x9 04d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04d5 01cc | | Execute Vector,Catenate 04d6 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 04d8 01cc | | Execute Vector,Catenate 04d9 e605 | | Load 0x3,0x5 04da e009 | | Load 0x0,0x9 04db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04dc 025e | ^ | Execute Discrete,Convert 04dd 1c01 | | Execute_Immediate Run_Utility,0x1 04de 01cc | | Execute Vector,Catenate 04df 8411 | | Call 0x2,0x11 04e0 00d9 | | Load_Top At_Offset_1 04e1 681a |h | Jump_Zero 0x4fc 04e2 e607 | | Load 0x3,0x7 04e3 0120 | | Execute Any,Is_Value 04e4 6803 |h | Jump_Zero 0x4e8 04e5 e003 | | Load 0x0,0x3 04e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e7 7801 |x | Jump 0x4e9 04e8 e607 | | Load 0x3,0x7 04e9 4801 |H | Short_Literal 0x1 04ea e606 | | Load 0x3,0x6 04eb e40e | | Load 0x2,0xe 04ec e003 | | Load 0x0,0x3 04ed 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 04ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04ef c607 | | Store 0x3,0x7 04f0 e40e | | Load 0x2,0xe 04f1 e003 | | Load 0x0,0x3 04f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 04f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04f4 6814 |h | Jump_Zero 0x509 04f5 e604 | | Load 0x3,0x4 04f6 e009 | | Load 0x0,0x9 04f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04f8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04f9 e607 | | Load 0x3,0x7 04fa 841e | | Call 0x2,0x1e 04fb 7802 |x | Jump 0x4fe 04fc e606 | | Load 0x3,0x6 04fd 8420 | | Call 0x2,0x20 04fe e604 | | Load 0x3,0x4 04ff e009 | | Load 0x0,0x9 0500 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0501 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0502 c604 | | Store 0x3,0x4 0503 00c9 | | Action Pop_Auxiliary_Loop 0504 e604 | | Load 0x3,0x4 0505 e009 | | Load 0x0,0x9 0506 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0507 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0508 6fb5 |o | Jump_Zero 0x4be 0509 00ce | | Action Pop_Auxiliary 050a 00c8 | | Action Pop_Auxiliary_Range 050b 3738 |78 | Loop_Decreasing 0x444 050c 00ce | | Action Pop_Auxiliary 050d 8419 | | Call 0x2,0x19 050e 8609 | | Call 0x3,0x9 050f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0510 TRAP_0408: 0510 0007 | | Action Break_Optional 0511 860a | | Call 0x3,0xa 0512 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0513 0000 | | .XXX[0x1] 0514 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051d | | .CONST 0x051d ; Address of begin 0519 053a | : | .CONST 0x053a ; Address of exception handler 051a 0002 | | .CONST 0x0002 ; Number of locals 051b INIT_0518: 051b 029f 075b | [| Declare_Subprogram INIT_0758,For_Call 051d BODY_0518: 051d 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "Exception raised getting name of unit " 051f e7ff | | Load 0x3,-0x1 0520 e003 | | Load 0x0,0x3 0521 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0522 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0523 01cc | | Execute Vector,Catenate 0524 0092 0a47 | G| Action Push_String_Extended,0xa47 ; " in program library " 0526 01cc | | Execute Vector,Catenate 0527 e7ff | | Load 0x3,-0x1 0528 e003 | | Load 0x0,0x3 0529 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 052a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 052b e003 | | Load 0x0,0x3 052c 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 052d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 052e e009 | | Load 0x0,0x9 052f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0530 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0531 01cc | | Execute Vector,Catenate 0532 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 0534 01cc | | Execute Vector,Catenate 0535 e021 | ! | Load 0x0,0x21 0536 180d | | Execute Package,Field_Execute,Field_Number 0xd 0537 01cc | | Execute Vector,Catenate 0538 8412 | | Call 0x2,0x12 0539 4501 |E | Exit_Suprogram New_Top_Offset 0x1 053a TRAP_0518: 053a 0007 | | Action Break_Optional 053b 8802 | | Call 0x4,0x2 053c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 053d 0000 0000 | | .XXX[0x3] 053f 0000 | | 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0558 | X | .CONST 0x0558 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 000a | | .CONST 0x000a ; Number of locals 0543 INIT_0540: 0543 00e3 | | Load_Encached Natural_Cache 0544 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0545 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 0547 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call 0549 029f 07c3 | | Declare_Subprogram INIT_07c0,For_Call 054b e418 | | Load 0x2,0x18 054c 1910 | | Execute Package,Field_Reference,Field_Number 0x10 054d 00c6 | | Action Check_Subprogram_Elaborated 054e 4804 |H | Short_Literal 0x4 054f 4804 |H | Short_Literal 0x4 0550 0099 | | Action Reference_Dynamic 0551 4805 |H | Short_Literal 0x5 0552 4804 |H | Short_Literal 0x4 0553 0099 | | Action Reference_Dynamic 0554 e022 | " | Load 0x0,0x22 0555 e023 | # | Load 0x0,0x23 0556 480a |H | Short_Literal 0xa 0557 0007 | | Action Break_Optional 0558 BODY_0540: 0558 e9ff | | Load 0x4,-0x1 0559 4806 |H | Short_Literal 0x6 055a 4804 |H | Short_Literal 0x4 055b 0099 | | Action Reference_Dynamic 055c 4807 |H | Short_Literal 0x7 055d 4804 |H | Short_Literal 0x4 055e 0099 | | Action Reference_Dynamic 055f 4808 |H | Short_Literal 0x8 0560 4804 |H | Short_Literal 0x4 0561 0099 | | Action Reference_Dynamic 0562 e418 | | Load 0x2,0x18 0563 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0564 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0571 | q | .CONST 0x0571 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0004 | | .CONST 0x0004 ; Number of locals 056b INIT_0568: 056b e011 | | Load 0x0,0x11 056c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 056d 00e3 | | Load_Encached Natural_Cache 056e e007 | | Load 0x0,0x7 056f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0570 0606 | | Execute_Immediate Set_Value_Unchecked,0x6 0571 BODY_0568: 0571 e406 | | Load 0x2,0x6 0572 0a01 | | Execute_Immediate Plus,0x1 0573 c406 | | Store 0x2,0x6 0574 e9fe | | Load 0x4,-0x2 0575 e9fd | | Load 0x4,-0x3 0576 027c | | | Execute Discrete,Less 0577 6805 |h | Jump_Zero 0x57d 0578 e5fe | | Load 0x2,-0x2 0579 7007 |p | Jump_Nonzero 0x581 057a 4807 |H | Short_Literal 0x7 057b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 057c 7804 |x | Jump 0x581 057d e5fd | | Load 0x2,-0x3 057e 7002 |p | Jump_Nonzero 0x581 057f 4807 |H | Short_Literal 0x7 0580 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0581 e40f | | Load 0x2,0xf 0582 00d9 | | Load_Top At_Offset_1 0583 0092 0a48 | H| Action Push_String_Extended,0xa48 ; "Reference count =" 0585 e9fe | | Load 0x4,-0x2 0586 00e0 | | Load_Encached Standard_Cache 0587 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0588 01cc | | Execute Vector,Catenate 0589 0092 0a49 | I| Action Push_String_Extended,0xa49 ; ", but expected value is" 058b 01cc | | Execute Vector,Catenate 058c e9fd | | Load 0x4,-0x3 058d 00e0 | | Load_Encached Standard_Cache 058e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 058f 01cc | | Execute Vector,Catenate 0590 8410 | | Call 0x2,0x10 0591 00d8 | | Load_Top At_Offset_0 0592 0f07 | | Execute_Immediate Equal,0x7 0593 6801 |h | Jump_Zero 0x595 0594 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0595 00cf | | Action Mark_Auxiliary 0596 e9fd | | Load 0x4,-0x3 0597 e9fe | | Load 0x4,-0x2 0598 0a01 | | Execute_Immediate Plus,0x1 0599 0263 | c | Execute Discrete,Above_Bound 059a 701f |p | Jump_Nonzero 0x5ba 059b e011 | | Load 0x0,0x11 059c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059d 4800 |H | Short_Literal 0x0 059e e40c | | Load 0x2,0xc 059f e9ff | | Load 0x4,-0x1 05a0 e00f | | Load 0x0,0xf 05a1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 05a2 c802 | | Store 0x4,0x2 05a3 e802 | | Load 0x4,0x2 05a4 6811 |h | Jump_Zero 0x5b6 05a5 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "Bad status incrementing reference count for code segment " 05a7 e9ff | | Load 0x4,-0x1 05a8 e012 | | Load 0x0,0x12 05a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05aa 01cc | | Execute Vector,Catenate 05ab 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 05ad 01cc | | Execute Vector,Catenate 05ae e802 | | Load 0x4,0x2 05af e011 | | Load 0x0,0x11 05b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b1 025e | ^ | Execute Discrete,Convert 05b2 1c01 | | Execute_Immediate Run_Utility,0x1 05b3 01cc | | Execute Vector,Catenate 05b4 8412 | | Call 0x2,0x12 05b5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05b6 4801 |H | Short_Literal 0x1 05b7 a40d | | Store_Unchecked 0x2,0xd 05b8 00c8 | | Action Pop_Auxiliary_Range 05b9 3fe1 |? | Loop_Increasing 0x59b 05ba 00c9 | | Action Pop_Auxiliary_Loop 05bb e9fe | | Load 0x4,-0x2 05bc e9fd | | Load 0x4,-0x3 05bd 0a01 | | Execute_Immediate Plus,0x1 05be 0263 | c | Execute Discrete,Above_Bound 05bf 701f |p | Jump_Nonzero 0x5df 05c0 e011 | | Load 0x0,0x11 05c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c2 4800 |H | Short_Literal 0x0 05c3 e40c | | Load 0x2,0xc 05c4 e9ff | | Load 0x4,-0x1 05c5 e00f | | Load 0x0,0xf 05c6 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 05c7 c802 | | Store 0x4,0x2 05c8 e802 | | Load 0x4,0x2 05c9 6811 |h | Jump_Zero 0x5db 05ca 0092 0a4b | K| Action Push_String_Extended,0xa4b ; "Bad status decrementing reference count for code segment " 05cc e9ff | | Load 0x4,-0x1 05cd e012 | | Load 0x0,0x12 05ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05cf 01cc | | Execute Vector,Catenate 05d0 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 05d2 01cc | | Execute Vector,Catenate 05d3 e802 | | Load 0x4,0x2 05d4 e011 | | Load 0x0,0x11 05d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d6 025e | ^ | Execute Discrete,Convert 05d7 1c01 | | Execute_Immediate Run_Utility,0x1 05d8 01cc | | Execute Vector,Catenate 05d9 8412 | | Call 0x2,0x12 05da 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05db 4801 |H | Short_Literal 0x1 05dc a40d | | Store_Unchecked 0x2,0xd 05dd 00c8 | | Action Pop_Auxiliary_Range 05de 3fe1 |? | Loop_Increasing 0x5c0 05df 00ce | | Action Pop_Auxiliary 05e0 e011 | | Load 0x0,0x11 05e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e2 00e2 | | Load_Encached Integer_Cache 05e3 4800 |H | Short_Literal 0x0 05e4 4800 |H | Short_Literal 0x0 05e5 e40c | | Load 0x2,0xc 05e6 e9ff | | Load 0x4,-0x1 05e7 e00f | | Load 0x0,0xf 05e8 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 05e9 005b | [ | Store_Top Discrete,At_Offset_3 05ea 005b | [ | Store_Top Discrete,At_Offset_3 05eb 00da | | Load_Top At_Offset_2 05ec 7023 |p# | Jump_Nonzero 0x610 05ed 00d9 | | Load_Top At_Offset_1 05ee e9fd | | Load 0x4,-0x3 05ef 027f | | Execute Discrete,Equal 05f0 6809 |h | Jump_Zero 0x5fa 05f1 e40f | | Load 0x2,0xf 05f2 4803 |H | Short_Literal 0x3 05f3 0092 0a4c | L| Action Push_String_Extended,0xa4c ; " Reference count has been corrected" 05f5 8410 | | Call 0x2,0x10 05f6 e407 | | Load 0x2,0x7 05f7 0a01 | | Execute_Immediate Plus,0x1 05f8 c407 | | Store 0x2,0x7 05f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05fa 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "Error in correcting reference count for code segment " 05fc e9ff | | Load 0x4,-0x1 05fd e012 | | Load 0x0,0x12 05fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05ff 01cc | | Execute Vector,Catenate 0600 0092 0a4e | N| Action Push_String_Extended,0xa4e ; ": new reference count =" 0602 01cc | | Execute Vector,Catenate 0603 00da | | Load_Top At_Offset_2 0604 00e0 | | Load_Encached Standard_Cache 0605 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0606 01cc | | Execute Vector,Catenate 0607 0092 0a49 | I| Action Push_String_Extended,0xa49 ; ", but expected value is" 0609 01cc | | Execute Vector,Catenate 060a e9fd | | Load 0x4,-0x3 060b 00e0 | | Load_Encached Standard_Cache 060c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 060d 01cc | | Execute Vector,Catenate 060e 8412 | | Call 0x2,0x12 060f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0610 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Bad status getting reference count for code segment " 0612 e9ff | | Load 0x4,-0x1 0613 e012 | | Load 0x0,0x12 0614 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0615 01cc | | Execute Vector,Catenate 0616 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 0618 01cc | | Execute Vector,Catenate 0619 00db | | Load_Top At_Offset_3 061a e011 | | Load 0x0,0x11 061b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 061c 025e | ^ | Execute Discrete,Convert 061d 1c01 | | Execute_Immediate Run_Utility,0x1 061e 01cc | | Execute Vector,Catenate 061f 8412 | | Call 0x2,0x12 0620 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0621 0000 0000 | | .BLANK 0000[0x7] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062f | / | .CONST 0x062f ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0002 | | .CONST 0x0002 ; Number of locals 062b INIT_0628: 062b 00db | | Load_Top At_Offset_3 062c e9fd | | Load 0x4,-0x3 062d 027e | ~ | Execute Discrete,Not_Equal 062e 0007 | | Action Break_Optional 062f BODY_0628: 062f e40f | | Load 0x2,0xf 0630 4802 |H | Short_Literal 0x2 0631 0092 0a4f | O| Action Push_String_Extended,0xa4f ; "Reference count is" 0633 e9fe | | Load 0x4,-0x2 0634 00e0 | | Load_Encached Standard_Cache 0635 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0636 01cc | | Execute Vector,Catenate 0637 0092 0a50 | P| Action Push_String_Extended,0xa50 ; " for code segment " 0639 01cc | | Execute Vector,Catenate 063a e9ff | | Load 0x4,-0x1 063b 8414 | | Call 0x2,0x14 063c 01cc | | Execute Vector,Catenate 063d 0092 0a51 | Q| Action Push_String_Extended,0xa51 ; "; uses include:" 063f 01cc | | Execute Vector,Catenate 0640 8410 | | Call 0x2,0x10 0641 00db | | Load_Top At_Offset_3 0642 8602 | | Call 0x3,0x2 0643 00d8 | | Load_Top At_Offset_0 0644 6804 |h | Jump_Zero 0x649 0645 e9fd | | Load 0x4,-0x3 0646 e9fe | | Load 0x4,-0x2 0647 e9ff | | Load 0x4,-0x1 0648 8603 | | Call 0x3,0x3 0649 4504 |E | Exit_Suprogram New_Top_Offset 0x4 064a 0000 0000 | | .BLANK 0000[0x6] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 4801 |H | Short_Literal 0x1 0654 e7fe | | Load 0x3,-0x2 0655 e003 | | Load 0x0,0x3 0656 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e 0657 180f | | Execute Package,Field_Execute,Field_Number 0xf 0658 e9ff | | Load 0x4,-0x1 0659 e418 | | Load 0x2,0x18 065a 180f | | Execute Package,Field_Execute,Field_Number 0xf 065b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 065c 0000 0000 | | .BLANK 0000[0x4] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 066b | k | .CONST 0x066b ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0003 | | .CONST 0x0003 ; Number of locals 0663 INIT_0660: 0663 00ec | | Load_Encached Diana_Tree_Cache 0664 e7ff | | Load 0x3,-0x1 0665 e003 | | Load 0x0,0x3 0666 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e 0667 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0668 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0669 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call 066b BODY_0660: 066b 8803 | | Call 0x4,0x3 066c 00d9 | | Load_Top At_Offset_1 066d 00eb | | Load_Encached Diana_Cache 066e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 066f 700d |p | Jump_Nonzero 0x67d 0670 e001 | | Load 0x0,0x1 0671 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0672 00da | | Load_Top At_Offset_2 0673 e024 | $ | Load 0x0,0x24 0674 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0675 6807 |h | Jump_Zero 0x67d 0676 e7ff | | Load 0x3,-0x1 0677 e001 | | Load 0x0,0x1 0678 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0679 00db | | Load_Top At_Offset_3 067a e024 | $ | Load 0x0,0x24 067b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 067c 841c | | Call 0x2,0x1c 067d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 067e 0000 0000 | | .XXX[0x2] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 068a | | .CONST 0x068a ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0002 | | .CONST 0x0002 ; Number of locals 0683 INIT_0680: 0683 4800 |H | Short_Literal 0x0 0684 00db | | Load_Top At_Offset_3 0685 e40a | | Load 0x2,0xa 0686 e025 | % | Load 0x0,0x25 0687 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0688 00e4 | | Load_Encached Positive_Cache 0689 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 068a BODY_0680: 068a 00d8 | | Load_Top At_Offset_0 068b 0aff | | Execute_Immediate Plus,-0x1 068c e9ff | | Load 0x4,-0x1 068d 01d7 | | Execute Vector,Field_Read 068e 0f2e | . | Execute_Immediate Equal,0x2e 068f 6803 |h | Jump_Zero 0x693 0690 00d8 | | Load_Top At_Offset_0 0691 0aff | | Execute_Immediate Plus,-0x1 0692 0059 | Y | Store_Top Discrete,At_Offset_1 0693 00db | | Load_Top At_Offset_3 0694 01dd | | Execute Vector,First 0695 00d9 | | Load_Top At_Offset_1 0696 0aff | | Execute_Immediate Plus,-0x1 0697 00e4 | | Load_Encached Positive_Cache 0698 025b | [ | Execute Discrete,Check_In_Type 0699 e9ff | | Load 0x4,-0x1 069a 01cf | | Execute Vector,Slice_Read 069b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 069c 0000 0000 | | .BLANK 0000[0x4] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 4800 |H | Short_Literal 0x0 06a4 e602 | | Load 0x3,0x2 06a5 e9ff | | Load 0x4,-0x1 06a6 e418 | | Load 0x2,0x18 06a7 180f | | Execute Package,Field_Execute,Field_Number 0xf 06a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06a9 0000 0000 | | .BLANK 0000[0x7] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b9 | | .CONST 0x06b9 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0004 | | .CONST 0x0004 ; Number of locals 06b3 INIT_06b0: 06b3 e007 | | Load 0x0,0x7 06b4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 06b5 029f 080b | | Declare_Subprogram INIT_0808,For_Call 06b7 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call 06b9 BODY_06b0: 06b9 e408 | | Load 0x2,0x8 06ba 0f00 | | Execute_Immediate Equal,0x0 06bb e406 | | Load 0x2,0x6 06bc e407 | | Load 0x2,0x7 06bd 027f | | Execute Discrete,Equal 06be 0279 | y | Execute Discrete,And 06bf 6803 |h | Jump_Zero 0x6c3 06c0 4803 |H | Short_Literal 0x3 06c1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 06c2 7802 |x | Jump 0x6c5 06c3 4805 |H | Short_Literal 0x5 06c4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 06c5 e40f | | Load 0x2,0xf 06c6 00db | | Load_Top At_Offset_3 06c7 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "Checked" 06c9 e402 | | Load 0x2,0x2 06ca 00e0 | | Load_Encached Standard_Cache 06cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06cc 01cc | | Execute Vector,Catenate 06cd 0092 0a53 | S| Action Push_String_Extended,0xa53 ; " use" 06cf 01cc | | Execute Vector,Catenate 06d0 00ea | | Load_Encached Null_String_Cache 06d1 e402 | | Load 0x2,0x2 06d2 8803 | | Call 0x4,0x3 06d3 01cc | | Execute Vector,Catenate 06d4 0092 0a54 | T| Action Push_String_Extended,0xa54 ; " of" 06d6 01cc | | Execute Vector,Catenate 06d7 e403 | | Load 0x2,0x3 06d8 00e0 | | Load_Encached Standard_Cache 06d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06da 01cc | | Execute Vector,Catenate 06db 0092 0a55 | U| Action Push_String_Extended,0xa55 ; " code segment" 06dd 01cc | | Execute Vector,Catenate 06de 00ea | | Load_Encached Null_String_Cache 06df e403 | | Load 0x2,0x3 06e0 8803 | | Call 0x4,0x3 06e1 01cc | | Execute Vector,Catenate 06e2 0092 0a54 | T| Action Push_String_Extended,0xa54 ; " of" 06e4 01cc | | Execute Vector,Catenate 06e5 e404 | | Load 0x2,0x4 06e6 00e0 | | Load_Encached Standard_Cache 06e7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06e8 01cc | | Execute Vector,Catenate 06e9 0092 0a56 | V| Action Push_String_Extended,0xa56 ; " unit" 06eb 01cc | | Execute Vector,Catenate 06ec 00ea | | Load_Encached Null_String_Cache 06ed e404 | | Load 0x2,0x4 06ee 8803 | | Call 0x4,0x3 06ef 01cc | | Execute Vector,Catenate 06f0 0092 0a57 | W| Action Push_String_Extended,0xa57 ; " in" 06f2 01cc | | Execute Vector,Catenate 06f3 e405 | | Load 0x2,0x5 06f4 00e0 | | Load_Encached Standard_Cache 06f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06f6 01cc | | Execute Vector,Catenate 06f7 0092 0a58 | X| Action Push_String_Extended,0xa58 ; " program librar" 06f9 01cc | | Execute Vector,Catenate 06fa 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "y" 06fc e405 | | Load 0x2,0x5 06fd 8803 | | Call 0x4,0x3 06fe 01cc | | Execute Vector,Catenate 06ff 0092 0a5a | Z| Action Push_String_Extended,0xa5a ; ", found" 0701 01cc | | Execute Vector,Catenate 0702 e406 | | Load 0x2,0x6 0703 00e0 | | Load_Encached Standard_Cache 0704 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0705 01cc | | Execute Vector,Catenate 0706 0092 0a5b | [| Action Push_String_Extended,0xa5b ; " inconsistent reference count" 0708 01cc | | Execute Vector,Catenate 0709 00ea | | Load_Encached Null_String_Cache 070a e406 | | Load 0x2,0x6 070b 8803 | | Call 0x4,0x3 070c 01cc | | Execute Vector,Catenate 070d 0092 0a5c | \| Action Push_String_Extended,0xa5c ; " and" 070f e408 | | Load 0x2,0x8 0710 00e0 | | Load_Encached Standard_Cache 0711 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0712 01cc | | Execute Vector,Catenate 0713 0092 0a5d | ]| Action Push_String_Extended,0xa5d ; " other error" 0715 01cc | | Execute Vector,Catenate 0716 00ea | | Load_Encached Null_String_Cache 0717 e408 | | Load 0x2,0x8 0718 8803 | | Call 0x4,0x3 0719 01cc | | Execute Vector,Catenate 071a e408 | | Load 0x2,0x8 071b 8804 | | Call 0x4,0x4 071c 01cc | | Execute Vector,Catenate 071d 0092 0a5e | ^| Action Push_String_Extended,0xa5e ; ", corrected" 071f e407 | | Load 0x2,0x7 0720 00e0 | | Load_Encached Standard_Cache 0721 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0722 01cc | | Execute Vector,Catenate 0723 0092 0a5f | _| Action Push_String_Extended,0xa5f ; " code segment reference count" 0725 01cc | | Execute Vector,Catenate 0726 00ea | | Load_Encached Null_String_Cache 0727 e407 | | Load 0x2,0x7 0728 8803 | | Call 0x4,0x3 0729 01cc | | Execute Vector,Catenate 072a e407 | | Load 0x2,0x7 072b 8804 | | Call 0x4,0x4 072c 01cc | | Execute Vector,Catenate 072d 8410 | | Call 0x2,0x10 072e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072f 0000 | | .XXX[0x1] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 073e | > | .CONST 0x073e ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 e40d | | Load 0x2,0xd 0734 6805 |h | Jump_Zero 0x73a 0735 e40f | | Load 0x2,0xf 0736 4805 |H | Short_Literal 0x5 0737 0092 0a60 | `| Action Push_String_Extended,0xa60 ; "Abandoning all code segment reference count updates because of errors" 0739 8410 | | Call 0x2,0x10 073a 4800 |H | Short_Literal 0x0 073b a40d | | Store_Unchecked 0x2,0xd 073c e60b | | Load 0x3,0xb 073d 0101 | | Execute Exception,Reraise 073e TRAP_0730: 073e e007 | | Load 0x0,0x7 073f 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0740 010f | | Execute Exception,Equal 0741 6802 |h | Jump_Zero 0x744 0742 00d8 | | Load_Top At_Offset_0 0743 0101 | | Execute Exception,Reraise 0744 e013 | | Load 0x0,0x13 0745 010f | | Execute Exception,Equal 0746 6802 |h | Jump_Zero 0x749 0747 0008 | | Action Idle 0748 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0749 e40f | | Load 0x2,0xf 074a 4808 |H | Short_Literal 0x8 074b 0092 0a61 | a| Action Push_String_Extended,0xa61 ; "Unexpected exception in Check_Code_Segment_Reference_Counts: " 074d e021 | ! | Load 0x0,0x21 074e 180d | | Execute Package,Field_Execute,Field_Number 0xd 074f 01cc | | Execute Vector,Catenate 0750 8410 | | Call 0x2,0x10 0751 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0752 0000 0000 | | .BLANK 0000[0x6] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 0770 | p | .CONST 0x0770 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b 0092 0a62 | b| Action Push_String_Extended,0xa62 ; "Exception raised getting name of some unit in program library " 075d e7ff | | Load 0x3,-0x1 075e e003 | | Load 0x0,0x3 075f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0760 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0761 e003 | | Load 0x0,0x3 0762 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 0763 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0764 e009 | | Load 0x0,0x9 0765 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0766 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0767 01cc | | Execute Vector,Catenate 0768 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 076a 01cc | | Execute Vector,Catenate 076b e021 | ! | Load 0x0,0x21 076c 180d | | Execute Package,Field_Execute,Field_Number 0xd 076d 01cc | | Execute Vector,Catenate 076e 8412 | | Call 0x2,0x12 076f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0770 TRAP_0758: 0770 0007 | | Action Break_Optional 0771 0092 0a63 | c| Action Push_String_Extended,0xa63 ; "Exception raised getting name of unit: " 0773 e021 | ! | Load 0x0,0x21 0774 180d | | Execute Package,Field_Execute,Field_Number 0xd 0775 01cc | | Execute Vector,Catenate 0776 8412 | | Call 0x2,0x12 0777 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b 00da | | Load_Top At_Offset_2 077c 680d |h | Jump_Zero 0x78a 077d e802 | | Load 0x4,0x2 077e 0a01 | | Execute_Immediate Plus,0x1 077f c802 | | Store 0x4,0x2 0780 0092 0a64 | d| Action Push_String_Extended,0xa64 ; " " 0782 e802 | | Load 0x4,0x2 0783 00e0 | | Load_Encached Standard_Cache 0784 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0785 01cc | | Execute Vector,Catenate 0786 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 0788 01cc | | Execute Vector,Catenate 0789 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 078a 0092 0a64 | d| Action Push_String_Extended,0xa64 ; " " 078c 4801 |H | Short_Literal 0x1 078d e802 | | Load 0x4,0x2 078e 00e0 | | Load_Encached Standard_Cache 078f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0790 01db | | Execute Vector,Length 0791 00e9 | | Load_Encached String_Cache 0792 0334 | 4 | Declare_Variable Array,With_Constraint 0793 00d8 | | Load_Top At_Offset_0 0794 01dc | | Execute Vector,Last 0795 4801 |H | Short_Literal 0x1 0796 0263 | c | Execute Discrete,Above_Bound 0797 7005 |p | Jump_Nonzero 0x79d 0798 482d |H- | Short_Literal 0x2d 0799 00d9 | | Load_Top At_Offset_1 079a ea03 | | Load 0x5,0x3 079b 01d6 | | Execute Vector,Field_Write 079c 3ffb |? | Loop_Increasing 0x798 079d 01cc | | Execute Vector,Catenate 079e 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 07a0 01cc | | Execute Vector,Catenate 07a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07a2 0000 0000 | | .BLANK 0000[0x6] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab e40f | | Load 0x2,0xf 07ac 4802 |H | Short_Literal 0x2 07ad ebfe | | Load 0x5,-0x2 07ae ebff | | Load 0x5,-0x1 07af 8417 | | Call 0x2,0x17 07b0 8803 | | Call 0x4,0x3 07b1 ebfe | | Load 0x5,-0x2 07b2 8415 | | Call 0x2,0x15 07b3 01cc | | Execute Vector,Catenate 07b4 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "code segment object list of " 07b6 01cc | | Execute Vector,Catenate 07b7 ebff | | Load 0x5,-0x1 07b8 8416 | | Call 0x2,0x16 07b9 01cc | | Execute Vector,Catenate 07ba 8410 | | Call 0x2,0x10 07bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07bc 0000 0000 | | .BLANK 0000[0x4] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c3 | | .CONST 0x07c3 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0001 | | .CONST 0x0001 ; Number of locals 07c3 BODY_07c0: 07c3 INIT_07c0: 07c3 00db | | Load_Top At_Offset_3 07c4 680e |h | Jump_Zero 0x7d3 07c5 e40f | | Load 0x2,0xf 07c6 4802 |H | Short_Literal 0x2 07c7 4801 |H | Short_Literal 0x1 07c8 8803 | | Call 0x4,0x3 07c9 0092 0a65 | e| Action Push_String_Extended,0xa65 ; "archived code segment list for loaded main program " 07cb 01cc | | Execute Vector,Catenate 07cc ebff | | Load 0x5,-0x1 07cd e009 | | Load 0x0,0x9 07ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07cf 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 07d0 01cc | | Execute Vector,Catenate 07d1 8410 | | Call 0x2,0x10 07d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07d3 e40f | | Load 0x2,0xf 07d4 4802 |H | Short_Literal 0x2 07d5 4801 |H | Short_Literal 0x1 07d6 8803 | | Call 0x4,0x3 07d7 0092 0a66 | f| Action Push_String_Extended,0xa66 ; "archived code segment list for code view " 07d9 01cc | | Execute Vector,Catenate 07da ebff | | Load 0x5,-0x1 07db e009 | | Load 0x0,0x9 07dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07dd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 07de 01cc | | Execute Vector,Catenate 07df 8410 | | Call 0x2,0x10 07e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07e1 0000 0000 | | .BLANK 0000[0x7] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07eb | | .CONST 0x07eb ; Address of begin 07e9 07f4 | | .CONST 0x07f4 ; Address of exception handler 07ea 0001 | | .CONST 0x0001 ; Number of locals 07eb BODY_07e8: 07eb INIT_07e8: 07eb e802 | | Load 0x4,0x2 07ec 00eb | | Load_Encached Diana_Cache 07ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07ee 0f35 | 5 | Execute_Immediate Equal,0x35 07ef 6803 |h | Jump_Zero 0x7f3 07f0 0092 0a67 | g| Action Push_String_Extended,0xa67 ; "It is very unlikely that this message will ever be emitted" 07f2 8412 | | Call 0x2,0x12 07f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07f4 TRAP_07e8: 07f4 0007 | | Action Break_Optional 07f5 0092 0a68 | h| Action Push_String_Extended,0xa68 ; "Found corrupt Comp_Unit_Id for unit " 07f7 e7ff | | Load 0x3,-0x1 07f8 e003 | | Load 0x0,0x3 07f9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 07fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a 07fb 01cc | | Execute Vector,Catenate 07fc 8412 | | Call 0x2,0x12 07fd 00eb | | Load_Encached Diana_Cache 07fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07ff a802 | | Store_Unchecked 0x4,0x2 0800 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0801 0000 0000 | | .BLANK 0000[0x7] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 080b | | .CONST 0x080b ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0001 | | .CONST 0x0001 ; Number of locals 080b BODY_0808: 080b INIT_0808: 080b 00da | | Load_Top At_Offset_2 080c 0f01 | | Execute_Immediate Equal,0x1 080d 6802 |h | Jump_Zero 0x810 080e 00db | | Load_Top At_Offset_3 080f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0810 00db | | Load_Top At_Offset_3 0811 01db | | Execute Vector,Length 0812 7003 |p | Jump_Nonzero 0x816 0813 0092 0a69 | i| Action Push_String_Extended,0xa69 ; "s" 0815 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0816 00db | | Load_Top At_Offset_3 0817 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "y" 0819 01df | | Execute Vector,Equal 081a 6803 |h | Jump_Zero 0x81e 081b 0092 0a6a | j| Action Push_String_Extended,0xa6a ; "ies" 081d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 081e 0831 | 1 | Execute_Immediate Raise,0x31 081f 0000 | | .XXX[0x1] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0823 | # | .CONST 0x0823 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0001 | | .CONST 0x0001 ; Number of locals 0823 BODY_0820: 0823 INIT_0820: 0823 00da | | Load_Top At_Offset_2 0824 7002 |p | Jump_Nonzero 0x827 0825 00ea | | Load_Encached Null_String_Cache 0826 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0827 00db | | Load_Top At_Offset_3 0828 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0829 0000 0000 | | .BLANK 0000[0x7] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 087a | z | .CONST 0x087a ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0017 | | .CONST 0x0017 ; Number of locals 0833 INIT_0830: 0833 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated 0835 4800 |H | Short_Literal 0x0 0836 4801 |H | Short_Literal 0x1 0837 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call 0839 03fe | | Declare_Type Discrete,Defined,Visible 083a 029a 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call,Visible,Unelaborated 083c 029a 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call,Visible,Unelaborated 083e 029a 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call,Visible,Unelaborated 0840 00bf | | Action Accept_Activation 0841 00e1 | | Load_Encached Boolean_Cache 0842 4802 |H | Short_Literal 0x2 0843 e001 | | Load 0x0,0x1 0844 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0845 e002 | | Load 0x0,0x2 0846 4802 |H | Short_Literal 0x2 0847 e003 | | Load 0x0,0x3 0848 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0849 e20e | | Load 0x1,0xe 084a 029f 09b3 | | Declare_Subprogram INIT_09b0,For_Call 084c 4804 |H | Short_Literal 0x4 084d 4800 |H | Short_Literal 0x0 084e 4802 |H | Short_Literal 0x2 084f 4800 |H | Short_Literal 0x0 0850 4801 |H | Short_Literal 0x1 0851 031d | | Declare_Type Variant_Record,Defined 0852 e004 | | Load 0x0,0x4 0853 e005 | | Load 0x0,0x5 0854 00da | | Load_Top At_Offset_2 0855 e006 | | Load 0x0,0x6 0856 0387 | | Declare_Variable Package 0857 00d8 | | Load_Top At_Offset_0 0858 020f | | Execute Module,Activate 0859 00d8 | | Load_Top At_Offset_0 085a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 085b 00e3 | | Load_Encached Natural_Cache 085c 00e3 | | Load_Encached Natural_Cache 085d 029f 09fb | | Declare_Subprogram INIT_09f8,For_Call 085f 4803 |H | Short_Literal 0x3 0860 032d | - | Declare_Type Record,Defined 0861 029b 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call,Unelaborated 0863 e007 | | Load 0x0,0x7 0864 e008 | | Load 0x0,0x8 0865 4865 |He | Short_Literal 0x65 0866 e009 | | Load 0x0,0x9 0867 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0868 e214 | | Load 0x1,0x14 0869 1d15 | | Execute_Immediate Reference_Lex_1,0x15 086a e00a | | Load 0x0,0xa 086b 0387 | | Declare_Variable Package 086c 00d8 | | Load_Top At_Offset_0 086d 020f | | Execute Module,Activate 086e 00d8 | | Load_Top At_Offset_0 086f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0870 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0871 00c7 | | Action Elaborate_Subprogram 0872 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0873 00c7 | | Action Elaborate_Subprogram 0874 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0875 00c7 | | Action Elaborate_Subprogram 0876 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0877 00c7 | | Action Elaborate_Subprogram 0878 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0879 00c7 | | Action Elaborate_Subprogram 087a BODY_0830: 087a 00d9 | | Load_Top At_Offset_1 087b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 087c 4865 |He | Short_Literal 0x65 087d 00db | | Load_Top At_Offset_3 087e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 087f 0039 | 9 | Store_Top Access,At_Offset_1 0880 00bc | | Action Signal_Activated 0881 00bb | | Action Signal_Completion 0882 0000 0000 | | .BLANK 0000[0x6] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 0890 | | .CONST 0x0890 ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0003 | | .CONST 0x0003 ; Number of locals 088b INIT_0888: 088b e214 | | Load 0x1,0x14 088c 0322 | " | Declare_Variable Record 088d 00d8 | | Load_Top At_Offset_0 088e 1c00 | | Execute_Immediate Run_Utility,0x0 088f 00e1 | | Load_Encached Boolean_Cache 0890 BODY_0888: 0890 00e1 | | Load_Encached Boolean_Cache 0891 00da | | Load_Top At_Offset_2 0892 e5ff | | Load 0x2,-0x1 0893 e217 | | Load 0x1,0x17 0894 e216 | | Load 0x1,0x16 0895 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0896 00d1 | | Pop_Control Pop_Count_1 0897 0059 | Y | Store_Top Discrete,At_Offset_1 0898 00d8 | | Load_Top At_Offset_0 0899 7007 |p | Jump_Nonzero 0x8a1 089a e5fe | | Load 0x2,-0x2 089b 00da | | Load_Top At_Offset_2 089c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 089d e00b | | Load 0x0,0xb 089e 0a01 | | Execute_Immediate Plus,0x1 089f c00b | | Store 0x0,0xb 08a0 7808 |x | Jump 0x8a9 08a1 00d9 | | Load_Top At_Offset_1 08a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 08a3 e5fe | | Load 0x2,-0x2 08a4 027f | | Execute Discrete,Equal 08a5 7001 |p | Jump_Nonzero 0x8a7 08a6 0887 | | Execute_Immediate Raise,0x87 08a7 0008 | | Action Idle 08a8 0007 | | Action Break_Optional 08a9 00d9 | | Load_Top At_Offset_1 08aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08ab 4801 |H | Short_Literal 0x1 08ac e212 | | Load 0x1,0x12 08ad 1c08 | | Execute_Immediate Run_Utility,0x8 08ae e5fd | | Load 0x2,-0x3 08af e212 | | Load 0x1,0x12 08b0 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2 08b1 0119 | | Execute Any,Check_In_Formal_Type 08b2 00d9 | | Load_Top At_Offset_1 08b3 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 08b4 e5fc | | Load 0x2,-0x4 08b5 00d9 | | Load_Top At_Offset_1 08b6 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 08b7 e213 | | Load 0x1,0x13 08b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 08b9 00da | | Load_Top At_Offset_2 08ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08bb e5fc | | Load 0x2,-0x4 08bc e5fd | | Load 0x2,-0x3 08bd 800c | | Call 0x0,0xc 08be 6805 |h | Jump_Zero 0x8c4 08bf 00d9 | | Load_Top At_Offset_1 08c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08c1 0a01 | | Execute_Immediate Plus,0x1 08c2 00da | | Load_Top At_Offset_2 08c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08c4 e217 | | Load 0x1,0x17 08c5 4800 |H | Short_Literal 0x0 08c6 00db | | Load_Top At_Offset_3 08c7 e5ff | | Load 0x2,-0x1 08c8 e216 | | Load 0x1,0x16 08c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08ca c217 | | Store 0x1,0x17 08cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08cc 0000 0000 | | .BLANK 0000[0x4] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08d3 | | .CONST 0x08d3 ; Address of begin 08d1 0004 | | .CONST 0x0004 ; Address of exception handler 08d2 0001 | | .CONST 0x0001 ; Number of locals 08d3 BODY_08d0: 08d3 INIT_08d0: 08d3 4603 |F | Jump_Case 0x4 08d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 08d5 7802 |x | Jump 0x8d8 ; case 0x1 08d6 7805 |x | Jump 0x8dc ; case 0x2 08d7 7809 |x | Jump 0x8e1 ; case 0x3 08d8 00da | | Load_Top At_Offset_2 08d9 0091 0a22 | "| Action Push_String_Extended_Indexed,0xa22 ; "FOR_CODE_VIEW" 08db 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 08dc 00db | | Load_Top At_Offset_3 08dd 00db | | Load_Top At_Offset_3 08de 00e0 | | Load_Encached Standard_Cache 08df 181b | | Execute Package,Field_Execute,Field_Number 0x1b 08e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 08e1 00da | | Load_Top At_Offset_2 08e2 00e0 | | Load_Encached Standard_Cache 08e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 08e4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 08e5 0000 0000 | | .XXX[0x3] 08e7 0000 | | 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08f2 | | .CONST 0x08f2 ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0004 | | .CONST 0x0004 ; Number of locals 08eb INIT_08e8: 08eb e214 | | Load 0x1,0x14 08ec 0322 | " | Declare_Variable Record 08ed 00d8 | | Load_Top At_Offset_0 08ee 1c00 | | Execute_Immediate Run_Utility,0x0 08ef 00e1 | | Load_Encached Boolean_Cache 08f0 e00d | | Load 0x0,0xd 08f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08f2 BODY_08e8: 08f2 00e1 | | Load_Encached Boolean_Cache 08f3 00db | | Load_Top At_Offset_3 08f4 e5ff | | Load 0x2,-0x1 08f5 e217 | | Load 0x1,0x17 08f6 e216 | | Load 0x1,0x16 08f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08f8 00d1 | | Pop_Control Pop_Count_1 08f9 005a | Z | Store_Top Discrete,At_Offset_2 08fa 00d9 | | Load_Top At_Offset_1 08fb 701e |p | Jump_Nonzero 0x91a 08fc e00d | | Load 0x0,0xd 08fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08fe 00e2 | | Load_Encached Integer_Cache 08ff 4800 |H | Short_Literal 0x0 0900 4800 |H | Short_Literal 0x0 0901 e00e | | Load 0x0,0xe 0902 e5ff | | Load 0x2,-0x1 0903 e009 | | Load 0x0,0x9 0904 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0905 e402 | | Load 0x2,0x2 0906 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0907 0059 | Y | Store_Top Discrete,At_Offset_1 0908 00d8 | | Load_Top At_Offset_0 0909 6810 |h | Jump_Zero 0x91a 090a 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Bad status getting reference count for code segment " 090c e5ff | | Load 0x2,-0x1 090d e00f | | Load 0x0,0xf 090e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 090f 01cc | | Execute Vector,Catenate 0910 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": " 0912 01cc | | Execute Vector,Catenate 0913 00d9 | | Load_Top At_Offset_1 0914 e00d | | Load 0x0,0xd 0915 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0916 025e | ^ | Execute Discrete,Convert 0917 1c01 | | Execute_Immediate Run_Utility,0x1 0918 01cc | | Execute Vector,Catenate 0919 8010 | | Call 0x0,0x10 091a 00da | | Load_Top At_Offset_2 091b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 091c 4800 |H | Short_Literal 0x0 091d e212 | | Load 0x1,0x12 091e 1c08 | | Execute_Immediate Run_Utility,0x8 091f e5fe | | Load 0x2,-0x2 0920 e212 | | Load 0x1,0x12 0921 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 0922 0119 | | Execute Any,Check_In_Formal_Type 0923 00d9 | | Load_Top At_Offset_1 0924 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0925 e5fd | | Load 0x2,-0x3 0926 00d9 | | Load_Top At_Offset_1 0927 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0928 e213 | | Load 0x1,0x13 0929 1811 | | Execute Package,Field_Execute,Field_Number 0x11 092a 00db | | Load_Top At_Offset_3 092b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 092c 00da | | Load_Top At_Offset_2 092d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 092e 0a01 | | Execute_Immediate Plus,0x1 092f 00db | | Load_Top At_Offset_3 0930 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0931 e217 | | Load 0x1,0x17 0932 4800 |H | Short_Literal 0x0 0933 e402 | | Load 0x2,0x2 0934 e5ff | | Load 0x2,-0x1 0935 e216 | | Load 0x1,0x16 0936 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0937 c217 | | Store 0x1,0x17 0938 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0939 0000 0000 | | .BLANK 0000[0x7] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 094f | O | .CONST 0x094f ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0005 | | .CONST 0x0005 ; Number of locals 0943 INIT_0940: 0943 e214 | | Load 0x1,0x14 0944 0322 | " | Declare_Variable Record 0945 00d8 | | Load_Top At_Offset_0 0946 1c00 | | Execute_Immediate Run_Utility,0x0 0947 00d8 | | Load_Top At_Offset_0 0948 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0949 0007 | | Action Break_Optional 094a e212 | | Load 0x1,0x12 094b 02ff | | Declare_Variable Variant_Record 094c 00d8 | | Load_Top At_Offset_0 094d 1c00 | | Execute_Immediate Run_Utility,0x0 094e 00e1 | | Load_Encached Boolean_Cache 094f BODY_0940: 094f 00e1 | | Load_Encached Boolean_Cache 0950 e402 | | Load 0x2,0x2 0951 e5fc | | Load 0x2,-0x4 0952 e217 | | Load 0x1,0x17 0953 e216 | | Load 0x1,0x16 0954 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0955 00d1 | | Pop_Control Pop_Count_1 0956 0059 | Y | Store_Top Discrete,At_Offset_1 0957 00cf | | Action Mark_Auxiliary 0958 7818 |x | Jump 0x971 0959 00db | | Load_Top At_Offset_3 095a e213 | | Load 0x1,0x13 095b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 095c 00db | | Load_Top At_Offset_3 095d 016d | m | Execute Variant_Record,Structure_Write 095e 00db | | Load_Top At_Offset_3 095f e213 | | Load 0x1,0x13 0960 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0961 a403 | | Store_Unchecked 0x2,0x3 0962 00da | | Load_Top At_Offset_2 0963 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0964 6806 |h | Jump_Zero 0x96b 0965 00da | | Load_Top At_Offset_2 0966 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0967 00db | | Load_Top At_Offset_3 0968 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0969 85fd | | Call 0x2,-0x3 096a 7805 |x | Jump 0x970 096b 00da | | Load_Top At_Offset_2 096c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 096d 00db | | Load_Top At_Offset_3 096e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 096f 85fe | | Call 0x2,-0x2 0970 00c9 | | Action Pop_Auxiliary_Loop 0971 00db | | Load_Top At_Offset_3 0972 e213 | | Load 0x1,0x13 0973 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0974 6fe4 |o | Jump_Zero 0x959 0975 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0976 0000 0000 | | .XXX[0x2] 0978 ; -------------------------------------------------------------------------------------- 0978 ; SUBPROGRAM 0978 ; -------------------------------------------------------------------------------------- 0978 0988 | | .CONST 0x0988 ; Address of begin 0979 0004 | | .CONST 0x0004 ; Address of exception handler 097a 0005 | | .CONST 0x0005 ; Number of locals 097b INIT_0978: 097b e216 | | Load 0x1,0x16 097c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 097d 0322 | " | Declare_Variable Record 097e e009 | | Load 0x0,0x9 097f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0980 02ff | | Declare_Variable Variant_Record 0981 00d8 | | Load_Top At_Offset_0 0982 1c00 | | Execute_Immediate Run_Utility,0x0 0983 e214 | | Load 0x1,0x14 0984 0322 | " | Declare_Variable Record 0985 00d8 | | Load_Top At_Offset_0 0986 1c00 | | Execute_Immediate Run_Utility,0x0 0987 00e1 | | Load_Encached Boolean_Cache 0988 BODY_0978: 0988 00db | | Load_Top At_Offset_3 0989 e217 | | Load 0x1,0x17 098a e216 | | Load 0x1,0x16 098b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 098c 00d1 | | Pop_Control Pop_Count_1 098d 00cf | | Action Mark_Auxiliary 098e 781b |x | Jump 0x9aa 098f e402 | | Load 0x2,0x2 0990 e216 | | Load 0x1,0x16 0991 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0992 e403 | | Load 0x2,0x3 0993 016d | m | Execute Variant_Record,Structure_Write 0994 e402 | | Load 0x2,0x2 0995 e216 | | Load 0x1,0x16 0996 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0997 00d1 | | Pop_Control Pop_Count_1 0998 00e1 | | Load_Encached Boolean_Cache 0999 00db | | Load_Top At_Offset_3 099a e403 | | Load 0x2,0x3 099b e217 | | Load 0x1,0x17 099c e216 | | Load 0x1,0x16 099d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 099e 00d1 | | Pop_Control Pop_Count_1 099f 005a | Z | Store_Top Discrete,At_Offset_2 09a0 00d9 | | Load_Top At_Offset_1 09a1 7001 |p | Jump_Nonzero 0x9a3 09a2 0887 | | Execute_Immediate Raise,0x87 09a3 00da | | Load_Top At_Offset_2 09a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09a5 00db | | Load_Top At_Offset_3 09a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 09a7 e403 | | Load 0x2,0x3 09a8 85fe | | Call 0x2,-0x2 09a9 00c9 | | Action Pop_Auxiliary_Loop 09aa e402 | | Load 0x2,0x2 09ab e216 | | Load 0x1,0x16 09ac 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09ad 6fe1 |o | Jump_Zero 0x98f 09ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09af 0000 | | .XXX[0x1] 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; SUBPROGRAM 09b0 ; -------------------------------------------------------------------------------------- 09b0 09b3 | | .CONST 0x09b3 ; Address of begin 09b1 0004 | | .CONST 0x0004 ; Address of exception handler 09b2 0001 | | .CONST 0x0001 ; Number of locals 09b3 BODY_09b0: 09b3 INIT_09b0: 09b3 4608 |F | Jump_Case 0x9 09b4 7808 |x | Jump 0x9bd ; case 0x0 09b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 09b6 783a |x: | Jump 0x9f1 ; case 0x2 09b7 7839 |x9 | Jump 0x9f1 ; case 0x3 09b8 7838 |x8 | Jump 0x9f1 ; case 0x4 09b9 7837 |x7 | Jump 0x9f1 ; case 0x5 09ba 781e |x | Jump 0x9d9 ; case 0x6 09bb 7824 |x$ | Jump 0x9e0 ; case 0x7 09bc 782d |x- | Jump 0x9ea ; case 0x8 09bd 00da | | Load_Top At_Offset_2 09be 016c | l | Execute Variant_Record,Is_Constrained 09bf 7009 |p | Jump_Nonzero 0x9c9 09c0 00cf | | Action Mark_Auxiliary 09c1 4801 |H | Short_Literal 0x1 09c2 e5ff | | Load 0x2,-0x1 09c3 1c08 | | Execute_Immediate Run_Utility,0x8 09c4 00d8 | | Load_Top At_Offset_0 09c5 1c00 | | Execute_Immediate Run_Utility,0x0 09c6 c5ff | | Store 0x2,-0x1 09c7 00ce | | Action Pop_Auxiliary 09c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 09c9 00da | | Load_Top At_Offset_2 09ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09cb 0f01 | | Execute_Immediate Equal,0x1 09cc 7006 |p | Jump_Nonzero 0x9d3 09cd 00da | | Load_Top At_Offset_2 09ce 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4 09cf 00da | | Load_Top At_Offset_2 09d0 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 09d1 1c00 | | Execute_Immediate Run_Utility,0x0 09d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 09d3 00da | | Load_Top At_Offset_2 09d4 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 09d5 00da | | Load_Top At_Offset_2 09d6 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 09d7 1c00 | | Execute_Immediate Run_Utility,0x0 09d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 09d9 00db | | Load_Top At_Offset_3 09da 0f01 | | Execute_Immediate Equal,0x1 09db 7002 |p | Jump_Nonzero 0x9de 09dc 4802 |H | Short_Literal 0x2 09dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09de 4801 |H | Short_Literal 0x1 09df 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09e0 00db | | Load_Top At_Offset_3 09e1 e5fe | | Load 0x2,-0x2 09e2 0f01 | | Execute_Immediate Equal,0x1 09e3 7002 |p | Jump_Nonzero 0x9e6 09e4 4802 |H | Short_Literal 0x2 09e5 7801 |x | Jump 0x9e7 09e6 4801 |H | Short_Literal 0x1 09e7 e5ff | | Load 0x2,-0x1 09e8 031b | | Declare_Type Variant_Record,Constrained 09e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09ea 00db | | Load_Top At_Offset_3 09eb e5fe | | Load 0x2,-0x2 09ec e5ff | | Load 0x2,-0x1 09ed 1c06 | | Execute_Immediate Run_Utility,0x6 09ee e5ff | | Load 0x2,-0x1 09ef 02fc | | Declare_Variable Variant_Record,With_Constraint 09f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 09f1 0869 | i | Execute_Immediate Raise,0x69 09f2 0000 0000 | | .BLANK 0000[0x6] 09f8 ; -------------------------------------------------------------------------------------- 09f8 ; SUBPROGRAM 09f8 ; -------------------------------------------------------------------------------------- 09f8 09fb | | .CONST 0x09fb ; Address of begin 09f9 0004 | | .CONST 0x0004 ; Address of exception handler 09fa 0001 | | .CONST 0x0001 ; Number of locals 09fb BODY_09f8: 09fb INIT_09f8: 09fb 4608 |F | Jump_Case 0x9 09fc 7808 |x | Jump 0xa05 ; case 0x0 09fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 09fe 7811 |x | Jump 0xa10 ; case 0x2 09ff 7810 |x | Jump 0xa10 ; case 0x3 0a00 780f |x | Jump 0xa10 ; case 0x4 0a01 780e |x | Jump 0xa10 ; case 0x5 0a02 780d |x | Jump 0xa10 ; case 0x6 0a03 780c |x | Jump 0xa10 ; case 0x7 0a04 780b |x | Jump 0xa10 ; case 0x8 0a05 e213 | | Load 0x1,0x13 0a06 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a07 00db | | Load_Top At_Offset_3 0a08 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a09 4800 |H | Short_Literal 0x0 0a0a 00db | | Load_Top At_Offset_3 0a0b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a0c 4800 |H | Short_Literal 0x0 0a0d 00db | | Load_Top At_Offset_3 0a0e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a0f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0a10 0869 | i | Execute_Immediate Raise,0x69 0a11 0000 0000 | | .BLANK 0000[0x7] 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a1b | | .CONST 0x0a1b ; Address of begin 0a19 0004 | | .CONST 0x0004 ; Address of exception handler 0a1a 0001 | | .CONST 0x0001 ; Number of locals 0a1b BODY_0a18: 0a1b INIT_0a18: 0a1b 00da | | Load_Top At_Offset_2 0a1c e003 | | Load 0x0,0x3 0a1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a1e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a1f ; -------------------------------------------------------------------------------------- 0a1f ; STRING TABLE 0a1f ; -------------------------------------------------------------------------------------- 0a1f 009a | | .STRTAB 0x009a->0x0a6c ; "CODE" 0a20 009c | | .STRTAB 0x009c->0x0a6e ; "ELABORATION" 0a21 00a5 | | .STRTAB 0x00a5->0x0a73 ; "MAIN_PROGRAM_CLOSURE" 0a22 00b7 | | .STRTAB 0x00b7->0x0a7d ; "FOR_CODE_VIEW" 0a23 00c2 | | .STRTAB 0x00c2->0x0a84 ; "FOR_LOADED_MAIN_PROGRAM" 0a24 00d7 | | .STRTAB 0x00d7->0x0a8f ; "<*PROGRAM_LIBRARY>" 0a25 00e7 | | .STRTAB 0x00e7->0x0a98 ; "<???>" 0a26 00ea | | .STRTAB 0x00ea->0x0a9b ; "[Program_Library_Maintenance.Check_Code_Segment_Reference_Counts (Worlds => \x22" 0a27 0135 | 5 | .STRTAB 0x0135->0x0ac1 ; "\x22, Increase_Reference_Counts_That_Are_Too_Small => " 0a28 0166 | f | .STRTAB 0x0166->0x0adb ; ", Decrease_Reference_Counts_That_Are_Too_Large => " 0a29 0196 | | .STRTAB 0x0196->0x0af4 ; ", Options => \x22" 0a2a 01a2 | | .STRTAB 0x01a2->0x0afb ; "\x22, Response => \x22" 0a2b 01b0 | | .STRTAB 0x01b0->0x0b03 ; "\x22);]." 0a2c 01b3 | | .STRTAB 0x01b3->0x0b05 ; "[End of Program_Library_Maintenance.Check_Code_Segment_Reference_Counts command]." 0a2d 0202 | | .STRTAB 0x0202->0x0b2e ; " (segment" 0a2e 0209 | | .STRTAB 0x0209->0x0b32 ; ")" 0a2f 0208 | | .STRTAB 0x0208->0x0b33 ; "Bad status opening code segment " 0a30 0226 | & | .STRTAB 0x0226->0x0b43 ; ": " 0a31 0226 | & | .STRTAB 0x0226->0x0b44 ; "main program closure " 0a32 0239 | 9 | .STRTAB 0x0239->0x0b4e ; "elaboration " 0a33 0243 | C | .STRTAB 0x0243->0x0b54 ; "code view unit " 0a34 0250 | P | .STRTAB 0x0250->0x0b5c ; "Bad status getting reference count for code segment " 0a35 0282 | | .STRTAB 0x0282->0x0b76 ; " found on " 0a36 028a | | .STRTAB 0x028a->0x0b7b ; "code segment object list of " 0a37 02a4 | | .STRTAB 0x02a4->0x0b89 ; "Unexpected class of object found on " 0a38 02c6 | | .STRTAB 0x02c6->0x0b9b ; ":" 0a39 02c5 | | .STRTAB 0x02c5->0x0b9b ; "Bad status getting version for Archived_Code object " 0a3a 02f7 | | .STRTAB 0x02f7->0x0bb5 ; "Bad status opening Archived_Code object " 0a3b 031d | | .STRTAB 0x031d->0x0bc9 ; "for Loaded_Main unit " 0a3c 0330 | 0 | .STRTAB 0x0330->0x0bd4 ; "Checking " 0a3d 0337 | 7 | .STRTAB 0x0337->0x0bd8 ; "Skipping non-R1000 world " 0a3e 034e | N | .STRTAB 0x034e->0x0be5 ; "Bad status getting enclosing directory for " 0a3f 0377 | w | .STRTAB 0x0377->0x0bfa ; "for code view " 0a40 0383 | | .STRTAB 0x0383->0x0c01 ; "]" 0a41 0382 | | .STRTAB 0x0382->0x0c02 ; "]code_database'c(archived_code)" 0a42 039f | | .STRTAB 0x039f->0x0c11 ; "Requested modification of incorrect reference counts, but unable to enter privileged mode" 0a43 03f6 | | .STRTAB 0x03f6->0x0c3e ; "Unable to resolve name \x22" 0a44 040c | | .STRTAB 0x040c->0x0c4a ; "\x22 because " 0a45 0414 | | .STRTAB 0x0414->0x0c4f ; "Bad status getting object for " 0a46 0430 | 0 | .STRTAB 0x0430->0x0c5e ; "Exception raised getting name of unit " 0a47 0454 | T | .STRTAB 0x0454->0x0c71 ; " in program library " 0a48 0466 | f | .STRTAB 0x0466->0x0c7b ; "Reference count =" 0a49 0475 | u | .STRTAB 0x0475->0x0c83 ; ", but expected value is" 0a4a 048a | | .STRTAB 0x048a->0x0c8f ; "Bad status incrementing reference count for code segment " 0a4b 04c1 | | .STRTAB 0x04c1->0x0cab ; "Bad status decrementing reference count for code segment " 0a4c 04f8 | | .STRTAB 0x04f8->0x0cc8 ; " Reference count has been corrected" 0a4d 051c | | .STRTAB 0x051c->0x0cdb ; "Error in correcting reference count for code segment " 0a4e 054f | O | .STRTAB 0x054f->0x0cf5 ; ": new reference count =" 0a4f 0564 | d | .STRTAB 0x0564->0x0d01 ; "Reference count is" 0a50 0574 | t | .STRTAB 0x0574->0x0d0a ; " for code segment " 0a51 0584 | | .STRTAB 0x0584->0x0d13 ; "; uses include:" 0a52 0591 | | .STRTAB 0x0591->0x0d1a ; "Checked" 0a53 0596 | | .STRTAB 0x0596->0x0d1e ; " use" 0a54 0598 | | .STRTAB 0x0598->0x0d20 ; " of" 0a55 0599 | | .STRTAB 0x0599->0x0d21 ; " code segment" 0a56 05a4 | | .STRTAB 0x05a4->0x0d28 ; " unit" 0a57 05a7 | | .STRTAB 0x05a7->0x0d2a ; " in" 0a58 05a8 | | .STRTAB 0x05a8->0x0d2c ; " program librar" 0a59 05b5 | | .STRTAB 0x05b5->0x0d33 ; "y" 0a5a 05b4 | | .STRTAB 0x05b4->0x0d34 ; ", found" 0a5b 05b9 | | .STRTAB 0x05b9->0x0d37 ; " inconsistent reference count" 0a5c 05d4 | | .STRTAB 0x05d4->0x0d46 ; " and" 0a5d 05d6 | | .STRTAB 0x05d6->0x0d48 ; " other error" 0a5e 05e0 | | .STRTAB 0x05e0->0x0d4e ; ", corrected" 0a5f 05e9 | | .STRTAB 0x05e9->0x0d53 ; " code segment reference count" 0a60 0604 | | .STRTAB 0x0604->0x0d62 ; "Abandoning all code segment reference count updates because of errors" 0a61 0647 | G | .STRTAB 0x0647->0x0d84 ; "Unexpected exception in Check_Code_Segment_Reference_Counts: " 0a62 0682 | | .STRTAB 0x0682->0x0da3 ; "Exception raised getting name of some unit in program library " 0a63 06bf | | .STRTAB 0x06bf->0x0dc2 ; "Exception raised getting name of unit: " 0a64 06e4 | | .STRTAB 0x06e4->0x0dd6 ; " " 0a65 06e5 | | .STRTAB 0x06e5->0x0dd7 ; "archived code segment list for loaded main program " 0a66 0716 | | .STRTAB 0x0716->0x0df1 ; "archived code segment list for code view " 0a67 073d | = | .STRTAB 0x073d->0x0e05 ; "It is very unlikely that this message will ever be emitted" 0a68 0775 | u | .STRTAB 0x0775->0x0e22 ; "Found corrupt Comp_Unit_Id for unit " 0a69 0797 | | .STRTAB 0x0797->0x0e34 ; "s" 0a6a 0796 | | .STRTAB 0x0796->0x0e35 ; "ies" 0a6b 0797 | | .STREND 0x0797->0x0e36 0a6c 434f 4445 |CODE| .STRTAB_STRINGS 0e37 0000 | | .XXX[0x1] 0e38 ; -------------------------------------------------------------------------------------- 0e38 ; Debug Table 0e38 ; -------------------------------------------------------------------------------------- 0e38 0004 000f | | .DEBUG4 0x0004,0x000f,0xc075,0x0000,0x0001,0x0000 0e3e 4d41 150c |MA | .XXX[0x1c2] 0e40 290d 3d39 |) =9| 0e42 5915 4951 |Y IQ| 0e44 7d35 0525 |}5 %| 0e46 3109 3d61 |1 =a| 0e48 154c 2885 | L( | 0e4a 0d3d 3535 | =55| 0e4c 0539 114c | 9 L| 0e4e b90d 3d39 | =9| 0e50 5915 4951 |Y IQ| 0e52 7d35 0525 |}5 %| 0e54 3109 3d61 |1 =a| 0e56 154c 9d4d | L M| 0e58 4115 0c29 |A )| 0e5a 0549 417d | IA}| 0e5c 4d21 3d5c |M!=\| 0e5e 2885 513d |( Q=| 0e60 3d31 4cb9 |=1L | 0e62 3915 515d |9 Q]| 0e64 3d49 2d25 |=I-%| 0e66 391c b905 |9 | 0e68 4941 7d4d |IA}M| 0e6a 213d 5c9d |!=\ | 0e6c 4d41 150c |MA | 0e6e 294d 654d |)MeM| 0e70 5115 357d |Q 5}| 0e72 0905 0d2d | -| 0e74 5540 2885 |U@( | 0e76 0d3d 3535 | =55| 0e78 0539 114c | 9 L| 0e7a b94d 654d | MeM| 0e7c 5115 357d |Q 5}| 0e7e 0905 0d2d | -| 0e80 5540 9d4d |U@ M| 0e82 4115 0c29 |A )| 0e84 490d 197d |I }| 0e86 5539 0d3d |U9 =| 0e88 1115 7d55 | }U| 0e8a 3925 514c |9%QL| 0e8c 2885 5105 |( Q | 0e8e 491d 1551 |I Q| 0e90 4cb9 2535 |L %5| 0e92 4131 1535 |A1 5| 0e94 1539 5105 | 9Q | 0e96 5125 3d38 |Q%=8| 0e98 b949 0d19 | I | 0e9a 7d49 1531 |}I 1| 0e9c 1505 4d14 | M | 0e9e c57c c97c | | || 0ea0 c8b9 490d | I | 0ea2 197d 5539 | }U9| 0ea4 0d3d 1115 | = | 0ea6 7d55 3925 |}U9%| 0ea8 514c 9d4d |QL M| 0eaa 4115 0c29 |A )| 0eac 0d3d 3535 | =55| 0eae 0539 1028 | 9 (| 0eb0 850d 3d35 | =5| 0eb2 3505 3911 |5 9 | 0eb4 4cb9 0d3d |L =| 0eb6 3535 0539 |55 9| 0eb8 109d 4d41 | MA| 0eba 150c 2951 | )Q| 0ebc 3d2d 1539 |=- 9| 0ebe 7d05 5551 |} UQ| 0ec0 213d 4925 |!=I%| 0ec2 6905 5125 |i Q%| 0ec4 3d38 2885 |=8( | 0ec6 0d3d 3535 | =55| 0ec8 0539 114c | 9 L| 0eca b951 3d2d | Q=-| 0ecc 1539 7d05 | 9} | 0ece 5551 213d |UQ!=| 0ed0 4925 6905 |I%i | 0ed2 5125 3d38 |Q%=8| 0ed4 9d4d 4115 | MA | 0ed6 0c29 5115 | )Q | 0ed8 4935 2539 |I5%9| 0eda 0530 2885 | 0( | 0edc 0d3d 3535 | =55| 0ede 0539 114c | 9 L| 0ee0 b951 1549 | Q I| 0ee2 3525 3905 |5%9 | 0ee4 309d 4d41 |0 MA| 0ee6 150c 2925 | )%| 0ee8 3c28 8525 |<( %| 0eea 3cb9 253c |< %<| 0eec 9d4d 4115 | MA | 0eee 0c29 1d05 | ) | 0ef0 5115 5d05 |Q ] | 0ef2 657d 4149 |e}AI| 0ef4 3d41 1549 |=A I| 0ef6 5164 2885 |Qd( | 0ef8 513d 3d31 |Q==1| 0efa 4cb9 1d05 |L | 0efc 5115 5d05 |Q ] | 0efe 657d 4149 |e}AI| 0f00 3d41 1549 |=A I| 0f02 5164 9d4d |Qd M| 0f04 4115 0c29 |A )| 0f06 0d3d 390d | =9 | 0f08 5549 4915 |UII | 0f0a 3951 7d35 |9Q}5| 0f0c 0541 7d1d | A} | 0f0e 1539 1549 | 9 I| 0f10 250c 2885 |% ( | 0f12 513d 3d31 |Q==1| 0f14 4cb9 0d3d |L =| 0f16 390d 5549 |9 UI| 0f18 4915 3951 |I 9Q| 0f1a 7d35 0541 |}5 A| 0f1c 7d1d 1539 |} 9| 0f1e 1549 250c | I% | 0f20 9d4d 4115 | MA | 0f22 0c29 5165 | )Qe| 0f24 4115 7d25 |A }%| 0f26 3919 3d49 |9 =I| 0f28 3505 5125 |5 Q%| 0f2a 3d38 2885 |=8( | 0f2c 513d 3d31 |Q==1| 0f2e 4cb9 3149 |L 1I| 0f30 34b9 5165 |4 Qe| 0f32 4115 7d25 |A }%| 0f34 3919 3d49 |9 =I| 0f36 3505 5125 |5 Q%| 0f38 3d38 9d4d |=8 M| 0f3a 4115 0c29 |A )| 0f3c 3515 3955 |5 9U| 0f3e 7d3d 4115 |}=A | 0f40 4905 5125 |I Q%| 0f42 3d39 4c28 |=9L(| 0f44 850d 3d35 | =5| 0f46 3505 3911 |5 9 | 0f48 4cb9 3515 |L 5 | 0f4a 3955 7d3d |9U}=| 0f4c 4115 4905 |A I | 0f4e 5125 3d39 |Q%=9| 0f50 4c9d 4d41 |L MA| 0f52 150c 2915 | ) | 0f54 1125 513d | %Q=| 0f56 4828 850d |H( | 0f58 3d35 3505 |=55 | 0f5a 3911 4cb9 |9 L | 0f5c 1511 2551 | %Q| 0f5e 3d48 9d4d |=H M| 0f60 4115 0c29 |A )| 0f62 1125 4d2d | %M-| 0f64 7d11 0515 |} | 0f66 353d 3828 |5=8(| 0f68 8551 3d3d | Q==| 0f6a 314c b911 |1L | 0f6c 254d 2d7d |%M-}| 0f6e 1105 1535 | 5| 0f70 3d38 9d4d |=8 M| 0f72 4115 0c29 |A )| 0f74 0d35 590d | 5Y | 0f76 7d35 0525 |}5 %| 0f78 3951 1539 |9Q 9| 0f7a 0539 0d14 | 9 | 0f7c 2885 0d3d |( =| 0f7e 3535 0539 |55 9| 0f80 114c b90d | L | 0f82 3559 0d7d |5Y }| 0f84 3505 2539 |5 %9| 0f86 5115 3905 |Q 9 | 0f88 390d 149d |9 | 0f8a 4d41 150c |MA | 0f8c 290d 3559 |) 5Y| 0f8e 0d7d 2125 | }!%| 0f90 1549 0549 | I I| 0f92 0d21 6428 | !d(| 0f94 850d 3d35 | =5| 0f96 3505 3911 |5 9 | 0f98 4cb9 0d35 |L 5| 0f9a 590d 7d21 |Y }!| 0f9c 2515 4905 |% I | 0f9e 490d 2164 |I !d| 0fa0 9d4d 4115 | MA | 0fa2 0c29 3d09 | )= | 0fa4 2915 0d51 |) Q| 0fa6 7d4d 1550 |}M P| 0fa8 2885 253c |( %<| 0faa b93d 0929 | = )| 0fac 150d 517d | Q}| 0fae 4d15 509d |M P | 0fb0 4d41 150c |MA | 0fb2 290d 3d35 |) =5| 0fb4 4125 3105 |A%1 | 0fb6 5125 3d39 |Q%=9| 0fb8 7d55 3925 |}U9%| 0fba 514c 2885 |QL( | 0fbc 513d 3d31 |Q==1| 0fbe 4cb9 3149 |L 1I| 0fc0 34b9 0d3d |4 =| 0fc2 3541 2531 |5A%1| 0fc4 0551 253d | Q%=| 0fc6 397d 5539 |9}U9| 0fc8 2551 4c9d |%QL | 0fca 4d41 150c |MA | 0fcc 290d 3559 |) 5Y| 0fce 0d7d 050d | } | 0fd0 0d15 4d4d | MM| 0fd2 7d0d 3d39 |} =9| 0fd4 5149 3d30 |QI=0| 0fd6 2885 0d3d |( =| 0fd8 3535 0539 |55 9| 0fda 114c b90d | L | 0fdc 3559 0d7d |5Y }| 0fde 050d 0d15 | | 0fe0 4d4d 7d0d |MM} | 0fe2 3d39 5149 |=9QI| 0fe4 3d30 9d4d |=0 M| 0fe6 4115 0c29 |A )| 0fe8 5149 0539 |QI 9| 0fea 4d41 3d49 |MA=I| 0fec 5028 8551 |P( Q| 0fee 3d3d 314c |==1L| 0ff0 b939 1551 | 9 Q| 0ff2 5d3d 492d |]=I-| 0ff4 2539 1cb9 |%9 | 0ff6 5149 0539 |QI 9| 0ff8 4d41 3d49 |MA=I| 0ffa 509d 4d41 |P MA| 0ffc 150c 2951 | )Q| 0ffe 1549 3525 | I5%|