|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 05a8 | | .CONST 0x05a8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002d | - | .CONST 0x002d ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0004 | | .CONST 0x0004 ; Number of locals 0023 INIT_0020: 0023 4803 |H | Short_Literal 0x3 0024 00db | | Load_Top At_Offset_3 0025 e002 | | Load 0x0,0x2 0026 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0027 e002 | | Load 0x0,0x2 0028 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0029 03f1 | | Declare_Variable Discrete,With_Value 002a e002 | | Load 0x0,0x2 002b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002c 03e9 | | Declare_Variable Discrete,Duplicate 002d BODY_0020: 002d 00da | | Load_Top At_Offset_2 002e 7002 |p | Jump_Nonzero 0x31 002f 4800 |H | Short_Literal 0x0 0030 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0031 00da | | Load_Top At_Offset_2 0032 0a01 | | Execute_Immediate Plus,0x1 0033 005b | [ | Store_Top Discrete,At_Offset_3 0034 00da | | Load_Top At_Offset_2 0035 e5ff | | Load 0x2,-0x1 0036 e002 | | Load 0x0,0x2 0037 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0038 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0039 00da | | Load_Top At_Offset_2 003a 0a01 | | Execute_Immediate Plus,0x1 003b 005b | [ | Store_Top Discrete,At_Offset_3 003c 00da | | Load_Top At_Offset_2 003d e5ff | | Load 0x2,-0x1 003e e002 | | Load 0x0,0x2 003f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0040 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0041 00d9 | | Load_Top At_Offset_1 0042 0910 | | Execute_Immediate Binary_Scale,0x10 0043 00d9 | | Load_Top At_Offset_1 0044 0273 | s | Execute Discrete,Plus 0045 00d8 | | Load_Top At_Offset_0 0046 e003 | | Load 0x0,0x3 0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0048 0260 | ` | Execute Discrete,In_Type 0049 7001 |p | Jump_Nonzero 0x4b 004a 0801 | | Execute_Immediate Raise,0x1 004b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0079 | y | .CONST 0x0079 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0009 | | .CONST 0x0009 ; Number of locals 0053 INIT_0050: 0053 e004 | | Load 0x0,0x4 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 02c7 | | Declare_Variable Any 0056 e005 | | Load 0x0,0x5 0057 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0058 e004 | | Load 0x0,0x4 0059 1814 | | Execute Package,Field_Execute,Field_Number 0x14 005a a402 | | Store_Unchecked 0x2,0x2 005b e006 | | Load 0x0,0x6 005c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005e 02c7 | | Declare_Variable Any 005f 4800 |H | Short_Literal 0x0 0060 4800 |H | Short_Literal 0x0 0061 4801 |H | Short_Literal 0x1 0062 e007 | | Load 0x0,0x7 0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0064 e402 | | Load 0x2,0x2 0065 e008 | | Load 0x0,0x8 0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0067 e009 | | Load 0x0,0x9 0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0069 e006 | | Load 0x0,0x6 006a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 006b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006c a403 | | Store_Unchecked 0x2,0x3 006d 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 006f 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0071 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0073 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0075 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0077 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 0079 BODY_0050: 0079 8409 | | Call 0x2,0x9 007a e402 | | Load 0x2,0x2 007b 4801 |H | Short_Literal 0x1 007c 4800 |H | Short_Literal 0x0 007d e004 | | Load 0x0,0x4 007e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 007f c402 | | Store 0x2,0x2 0080 e403 | | Load 0x2,0x3 0081 e006 | | Load 0x0,0x6 0082 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0083 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0084 c5fa | | Store 0x2,-0x6 0085 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00b5 | | .CONST 0x00b5 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 000e | | .CONST 0x000e ; Number of locals 008b INIT_0088: 008b e00a | | Load 0x0,0xa 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 e007 | | Load 0x0,0x7 0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0092 02c7 | | Declare_Variable Any 0093 00d8 | | Load_Top At_Offset_0 0094 1c00 | | Execute_Immediate Run_Utility,0x0 0095 00e1 | | Load_Encached Boolean_Cache 0096 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0097 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call 0099 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 009b 029f 038b | | Declare_Subprogram INIT_0388,For_Call 009d 029f 039b | | Declare_Subprogram INIT_0398,For_Call 009f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00a0 00c6 | | Action Check_Subprogram_Elaborated 00a1 4807 |H | Short_Literal 0x7 00a2 4802 |H | Short_Literal 0x2 00a3 0099 | | Action Reference_Dynamic 00a4 4808 |H | Short_Literal 0x8 00a5 4802 |H | Short_Literal 0x2 00a6 0099 | | Action Reference_Dynamic 00a7 0093 0000 | | push_full_address 0x0 00a9 604e |`N | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00010000} 00aa 0273 | s | Execute Discrete,Plus 00ab e00b | | Load 0x0,0xb 00ac 0273 | s | Execute Discrete,Plus 00ad e00c | | Load 0x0,0xc 00ae 0273 | s | Execute Discrete,Plus 00af 480c |H | Short_Literal 0xc 00b0 0007 | | Action Break_Optional 00b1 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call 00b3 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 00b5 BODY_0088: 00b5 840e | | Call 0x2,0xe 00b6 e402 | | Load 0x2,0x2 00b7 4800 |H | Short_Literal 0x0 00b8 0092 0457 | W| Action Push_String_Extended,0x457 ; "[Program_Library_Maintenance.Display_Referencers (R1000_Code_Segment_Name =>" 00ba e5ff | | Load 0x2,-0x1 00bb 00e0 | | Load_Encached Standard_Cache 00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bd 01cc | | Execute Vector,Catenate 00be 0092 0458 | X| Action Push_String_Extended,0x458 ; ", Worlds => \x22" 00c0 01cc | | Execute Vector,Catenate 00c1 e5fe | | Load 0x2,-0x2 00c2 01cc | | Execute Vector,Catenate 00c3 0092 0459 | Y| Action Push_String_Extended,0x459 ; "\x22, Options => \x22" 00c5 01cc | | Execute Vector,Catenate 00c6 e5fd | | Load 0x2,-0x3 00c7 01cc | | Execute Vector,Catenate 00c8 0092 045a | Z| Action Push_String_Extended,0x45a ; "\x22, Response => \x22" 00ca 01cc | | Execute Vector,Catenate 00cb e5fc | | Load 0x2,-0x4 00cc 01cc | | Execute Vector,Catenate 00cd 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22);]." 00cf 01cc | | Execute Vector,Catenate 00d0 e00d | | Load 0x0,0xd 00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d2 e403 | | Load 0x2,0x3 00d3 0120 | | Execute Any,Is_Value 00d4 6803 |h | Jump_Zero 0xd8 00d5 e007 | | Load 0x0,0x7 00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d7 7801 |x | Jump 0xd9 00d8 e403 | | Load 0x2,0x3 00d9 e5fe | | Load 0x2,-0x2 00da e5ff | | Load 0x2,-0x1 00db 4809 |H | Short_Literal 0x9 00dc 4802 |H | Short_Literal 0x2 00dd 0099 | | Action Reference_Dynamic 00de 480a |H | Short_Literal 0xa 00df 4802 |H | Short_Literal 0x2 00e0 0099 | | Action Reference_Dynamic 00e1 480b |H | Short_Literal 0xb 00e2 4802 |H | Short_Literal 0x2 00e3 0099 | | Action Reference_Dynamic 00e4 820e | | Call 0x1,0xe 00e5 c403 | | Store 0x2,0x3 00e6 e404 | | Load 0x2,0x4 00e7 6804 |h | Jump_Zero 0xec 00e8 0092 045c | \| Action Push_String_Extended,0x45c ; "<none>" 00ea e00e | | Load 0x0,0xe 00eb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00ec e403 | | Load 0x2,0x3 00ed 840d | | Call 0x2,0xd 00ee e402 | | Load 0x2,0x2 00ef 4800 |H | Short_Literal 0x0 00f0 0092 045d | ]| Action Push_String_Extended,0x45d ; "[End of Program_Library_Maintenance.Display_Referencers command]." 00f2 e00d | | Load 0x0,0xd 00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0111 | | .CONST 0x0111 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0006 | | .CONST 0x0006 ; Number of locals 0103 INIT_0100: 0103 e00f | | Load 0x0,0xf 0104 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0105 02ff | | Declare_Variable Variant_Record 0106 00d8 | | Load_Top At_Offset_0 0107 1c00 | | Execute_Immediate Run_Utility,0x0 0108 e00f | | Load 0x0,0xf 0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010a e010 | | Load 0x0,0x10 010b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 010c e010 | | Load 0x0,0x10 010d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 010e e010 | | Load 0x0,0x10 010f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0110 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0111 BODY_0100: 0111 e00f | | Load 0x0,0xf 0112 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0113 e602 | | Load 0x3,0x2 0114 6073 |`s | Indirect_Literal Discrete,0x188,{0x00000000, 0x00004000} 0115 e004 | | Load 0x0,0x4 0116 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0117 4800 |H | Short_Literal 0x0 0118 e7ff | | Load 0x3,-0x1 0119 e00f | | Load 0x0,0xf 011a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 011b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011c 00d1 | | Pop_Control Pop_Count_1 011d c603 | | Store 0x3,0x3 011e 00db | | Load_Top At_Offset_3 011f 6816 |h | Jump_Zero 0x136 0120 4802 |H | Short_Literal 0x2 0121 0092 045e | ^| Action Push_String_Extended,0x45e ; "Bad status getting version for Archived_Code object " 0123 e7ff | | Load 0x3,-0x1 0124 e00f | | Load 0x0,0xf 0125 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0126 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0127 01cc | | Execute Vector,Catenate 0128 0092 045f | _| Action Push_String_Extended,0x45f ; ": " 012a 01cc | | Execute Vector,Catenate 012b e603 | | Load 0x3,0x3 012c e00f | | Load 0x0,0xf 012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012e 011c | | Execute Any,Convert_Unchecked 012f 1c01 | | Execute_Immediate Run_Utility,0x1 0130 01cc | | Execute Vector,Catenate 0131 e403 | | Load 0x2,0x3 0132 e006 | | Load 0x0,0x6 0133 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0134 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0136 e010 | | Load 0x0,0x10 0137 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0138 e010 | | Load 0x0,0x10 0139 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 013a 4801 |H | Short_Literal 0x1 013b e004 | | Load 0x0,0x4 013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013d e602 | | Load 0x3,0x2 013e e010 | | Load 0x0,0x10 013f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0140 0162 | b | Execute Variant_Record,Check_In_Type 0141 e010 | | Load 0x0,0x10 0142 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0143 c604 | | Store 0x3,0x4 0144 005a | Z | Store_Top Discrete,At_Offset_2 0145 00d9 | | Load_Top At_Offset_1 0146 6816 |h | Jump_Zero 0x15d 0147 4802 |H | Short_Literal 0x2 0148 0092 0460 | `| Action Push_String_Extended,0x460 ; "Bad status opening Archived_Code object " 014a e602 | | Load 0x3,0x2 014b e00f | | Load 0x0,0xf 014c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 014d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 014e 01cc | | Execute Vector,Catenate 014f 0092 045f | _| Action Push_String_Extended,0x45f ; ": " 0151 01cc | | Execute Vector,Catenate 0152 00db | | Load_Top At_Offset_3 0153 e010 | | Load 0x0,0x10 0154 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0155 011c | | Execute Any,Convert_Unchecked 0156 1c01 | | Execute_Immediate Run_Utility,0x1 0157 01cc | | Execute Vector,Catenate 0158 e403 | | Load 0x2,0x3 0159 e006 | | Load 0x0,0x6 015a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 015b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015d e010 | | Load 0x0,0x10 015e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 015f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0160 e403 | | Load 0x2,0x3 0161 e006 | | Load 0x0,0x6 0162 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0163 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0164 e604 | | Load 0x3,0x4 0165 0217 | | Execute Heap_Access,All_Reference 0166 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0167 e010 | | Load 0x0,0x10 0168 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0169 181f | | Execute Package,Field_Execute,Field_Number 0x1f 016a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 016b 00cf | | Action Mark_Auxiliary 016c 7814 |x | Jump 0x181 016d e5fc | | Load 0x2,-0x4 016e 00da | | Load_Top At_Offset_2 016f e010 | | Load 0x0,0x10 0170 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0171 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0172 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0173 027f | | Execute Discrete,Equal 0174 6806 |h | Jump_Zero 0x17b 0175 e602 | | Load 0x3,0x2 0176 e010 | | Load 0x0,0x10 0177 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0178 0162 | b | Execute Variant_Record,Check_In_Type 0179 85fe | | Call 0x2,-0x2 017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017b 00d9 | | Load_Top At_Offset_1 017c e010 | | Load 0x0,0x10 017d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 017e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 017f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0180 00c9 | | Action Pop_Auxiliary_Loop 0181 00d9 | | Load_Top At_Offset_1 0182 e010 | | Load 0x0,0x10 0183 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0184 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0185 6fe7 |o | Jump_Zero 0x16d 0186 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0187 0000 | | .XXX[0x1] 0188 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 019a | | .CONST 0x019a ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e011 | | Load 0x0,0x11 0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0195 e012 | | Load 0x0,0x12 0196 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0197 02c7 | | Declare_Variable Any 0198 00d8 | | Load_Top At_Offset_0 0199 1c00 | | Execute_Immediate Run_Utility,0x0 019a BODY_0190: 019a 00be | | Action Activate_Tasks 019b e011 | | Load 0x0,0x11 019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019d 00d9 | | Load_Top At_Offset_1 019e 0120 | | Execute Any,Is_Value 019f 6803 |h | Jump_Zero 0x1a3 01a0 e012 | | Load 0x0,0x12 01a1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a2 7801 |x | Jump 0x1a4 01a3 00d9 | | Load_Top At_Offset_1 01a4 e004 | | Load 0x0,0x4 01a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a6 4800 |H | Short_Literal 0x0 01a7 e012 | | Load 0x0,0x12 01a8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a9 e003 | | Load 0x0,0x3 01aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ab e012 | | Load 0x0,0x12 01ac 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01ad 0161 | a | Execute Variant_Record,Check_In_Formal_Type 01ae 4801 |H | Short_Literal 0x1 01af e7ff | | Load 0x3,-0x1 01b0 e012 | | Load 0x0,0x12 01b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b2 c603 | | Store 0x3,0x3 01b3 005a | Z | Store_Top Discrete,At_Offset_2 01b4 00d9 | | Load_Top At_Offset_1 01b5 7004 |p | Jump_Nonzero 0x1ba 01b6 00d8 | | Load_Top At_Offset_0 01b7 e012 | | Load 0x0,0x12 01b8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ba 4802 |H | Short_Literal 0x2 01bb 0092 0461 | a| Action Push_String_Extended,0x461 ; "Bad status opening code segment " 01bd e7ff | | Load 0x3,-0x1 01be e003 | | Load 0x0,0x3 01bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01c0 01cc | | Execute Vector,Catenate 01c1 0092 045f | _| Action Push_String_Extended,0x45f ; ": " 01c3 01cc | | Execute Vector,Catenate 01c4 00db | | Load_Top At_Offset_3 01c5 e011 | | Load 0x0,0x11 01c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c7 011c | | Execute Any,Convert_Unchecked 01c8 1c01 | | Execute_Immediate Run_Utility,0x1 01c9 01cc | | Execute Vector,Catenate 01ca e403 | | Load 0x2,0x3 01cb e006 | | Load 0x0,0x6 01cc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01cd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ce 4800 |H | Short_Literal 0x0 01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d8 | | .CONST 0x01d8 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 e006 | | Load 0x0,0x6 01d4 1b52 | R | Execute Package,Field_Read,Field_Number 0x52 01d5 02c7 | | Declare_Variable Any 01d6 00db | | Load_Top At_Offset_3 01d7 a602 | | Store_Unchecked 0x3,0x2 01d8 BODY_01d0: 01d8 00cf | | Action Mark_Auxiliary 01d9 7811 |x | Jump 0x1eb 01da e5fc | | Load 0x2,-0x4 01db 00da | | Load_Top At_Offset_2 01dc e006 | | Load 0x0,0x6 01dd 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 01de e012 | | Load 0x0,0x12 01df 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e0 0162 | b | Execute Variant_Record,Check_In_Type 01e1 8405 | | Call 0x2,0x5 01e2 027f | | Execute Discrete,Equal 01e3 6802 |h | Jump_Zero 0x1e6 01e4 4801 |H | Short_Literal 0x1 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 00d9 | | Load_Top At_Offset_1 01e7 e006 | | Load 0x0,0x6 01e8 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 01e9 c602 | | Store 0x3,0x2 01ea 00c9 | | Action Pop_Auxiliary_Loop 01eb 00d9 | | Load_Top At_Offset_1 01ec e006 | | Load 0x0,0x6 01ed 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 01ee 012f | / | Execute Any,Equal 01ef 6fea |o | Jump_Zero 0x1da 01f0 00ce | | Action Pop_Auxiliary 01f1 4800 |H | Short_Literal 0x0 01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fd | | .CONST 0x01fd ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb 029f 041b | | Declare_Subprogram INIT_0418,For_Call 01fd BODY_01f8: 01fd 00db | | Load_Top At_Offset_3 01fe e006 | | Load 0x0,0x6 01ff 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0200 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0201 8406 | | Call 0x2,0x6 0202 6803 |h | Jump_Zero 0x206 0203 4800 |H | Short_Literal 0x0 0204 e7ff | | Load 0x3,-0x1 0205 85fd | | Call 0x2,-0x3 0206 00db | | Load_Top At_Offset_3 0207 e006 | | Load 0x0,0x6 0208 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0209 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 020a 8406 | | Call 0x2,0x6 020b 6803 |h | Jump_Zero 0x20f 020c 4801 |H | Short_Literal 0x1 020d e7ff | | Load 0x3,-0x1 020e 85fd | | Call 0x2,-0x3 020f 00db | | Load_Top At_Offset_3 0210 e006 | | Load 0x0,0x6 0211 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0212 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0213 6801 |h | Jump_Zero 0x215 0214 8602 | | Call 0x3,0x2 0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0216 0000 0000 | | .XXX[0x2] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0226 | & | .CONST 0x0226 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0005 | | .CONST 0x0005 ; Number of locals 021b INIT_0218: 021b e006 | | Load 0x0,0x6 021c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 021d 191f | | Execute Package,Field_Reference,Field_Number 0x1f 021e 00c6 | | Action Check_Subprogram_Elaborated 021f 4807 |H | Short_Literal 0x7 0220 4802 |H | Short_Literal 0x2 0221 0099 | | Action Reference_Dynamic 0222 e013 | | Load 0x0,0x13 0223 e014 | | Load 0x0,0x14 0224 4805 |H | Short_Literal 0x5 0225 0007 | | Action Break_Optional 0226 BODY_0218: 0226 4800 |H | Short_Literal 0x0 0227 e015 | | Load 0x0,0x15 0228 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0229 e7ff | | Load 0x3,-0x1 022a e006 | | Load 0x0,0x6 022b 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b 022c 180f | | Execute Package,Field_Execute,Field_Number 0xf 022d e016 | | Load 0x0,0x16 022e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 022f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0230 0f03 | | Execute_Immediate Equal,0x3 0231 680e |h | Jump_Zero 0x240 0232 4801 |H | Short_Literal 0x1 0233 4801 |H | Short_Literal 0x1 0234 4801 |H | Short_Literal 0x1 0235 4800 |H | Short_Literal 0x0 0236 e7ff | | Load 0x3,-0x1 0237 4802 |H | Short_Literal 0x2 0238 4803 |H | Short_Literal 0x3 0239 0099 | | Action Reference_Dynamic 023a 4803 |H | Short_Literal 0x3 023b 4803 |H | Short_Literal 0x3 023c 0099 | | Action Reference_Dynamic 023d e006 | | Load 0x0,0x6 023e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 023f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0240 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0241 0000 0000 | | .BLANK 0000[0x7] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0270 | p | .CONST 0x0270 ; Address of begin 0249 0347 | G | .CONST 0x0347 ; Address of exception handler 024a 0008 | | .CONST 0x0008 ; Number of locals 024b INIT_0248: 024b 485b |H[ | Short_Literal 0x5b 024c e5fb | | Load 0x2,-0x5 024d 01ca | | Execute Vector,Prepend 024e 0092 0462 | b| Action Push_String_Extended,0x462 ; "]" 0250 01cc | | Execute Vector,Catenate 0251 0092 0463 | c| Action Push_String_Extended,0x463 ; "<*PROGRAM_LIBRARY>" 0253 01cc | | Execute Vector,Catenate 0254 0007 | | Action Break_Optional 0255 e00f | | Load 0x0,0xf 0256 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0257 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0258 e00f | | Load 0x0,0xf 0259 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 025b 02c7 | | Declare_Variable Any 025c 00d8 | | Load_Top At_Offset_0 025d 1c00 | | Execute_Immediate Run_Utility,0x0 025e e00f | | Load 0x0,0xf 025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0260 e00f | | Load 0x0,0xf 0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0262 02c7 | | Declare_Variable Any 0263 00d8 | | Load_Top At_Offset_0 0264 1c00 | | Execute_Immediate Run_Utility,0x0 0265 e006 | | Load 0x0,0x6 0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0267 02c7 | | Declare_Variable Any 0268 00d8 | | Load_Top At_Offset_0 0269 1c00 | | Execute_Immediate Run_Utility,0x0 026a 485b |H[ | Short_Literal 0x5b 026b e5fb | | Load 0x2,-0x5 026c 01ca | | Execute Vector,Prepend 026d 0092 0464 | d| Action Push_String_Extended,0x464 ; "]code_database'c(archived_code)" 026f 01cc | | Execute Vector,Catenate 0270 BODY_0248: 0270 00cf | | Action Mark_Auxiliary 0271 00e1 | | Load_Encached Boolean_Cache 0272 0266 | f | Execute Discrete,Bounds 0273 0007 | | Action Break_Optional 0274 00d8 | | Load_Top At_Offset_0 0275 6819 |h | Jump_Zero 0x28f 0276 e00f | | Load 0x0,0xf 0277 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0278 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0279 e604 | | Load 0x3,0x4 027a 60e1 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000} 027b e004 | | Load 0x0,0x4 027c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 027d e008 | | Load 0x0,0x8 027e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 027f e009 | | Load 0x0,0x9 0280 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0281 4801 |H | Short_Literal 0x1 0282 4800 |H | Short_Literal 0x0 0283 e008 | | Load 0x0,0x8 0284 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0285 e00f | | Load 0x0,0xf 0286 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0287 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0288 e602 | | Load 0x3,0x2 0289 e00f | | Load 0x0,0xf 028a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 028b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028c c604 | | Store 0x3,0x4 028d c603 | | Store 0x3,0x3 028e 7818 |x | Jump 0x2a7 028f e00f | | Load 0x0,0xf 0290 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0291 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0292 e604 | | Load 0x3,0x4 0293 60c8 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000} 0294 e004 | | Load 0x0,0x4 0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0296 e008 | | Load 0x0,0x8 0297 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0298 e009 | | Load 0x0,0x9 0299 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029a 4801 |H | Short_Literal 0x1 029b 4800 |H | Short_Literal 0x0 029c e008 | | Load 0x0,0x8 029d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029e e00f | | Load 0x0,0xf 029f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a1 e608 | | Load 0x3,0x8 02a2 e00f | | Load 0x0,0xf 02a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02a5 c604 | | Store 0x3,0x4 02a6 c603 | | Store 0x3,0x3 02a7 e603 | | Load 0x3,0x3 02a8 684c |hL | Jump_Zero 0x2f5 02a9 e603 | | Load 0x3,0x3 02aa 0e03 | | Execute_Immediate Not_Equal,0x3 02ab 7005 |p | Jump_Nonzero 0x2b1 02ac e604 | | Load 0x3,0x4 02ad e00f | | Load 0x0,0xf 02ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02af 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02b0 7044 |pD | Jump_Nonzero 0x2f5 02b1 00d8 | | Load_Top At_Offset_0 02b2 6821 |h! | Jump_Zero 0x2d4 02b3 4802 |H | Short_Literal 0x2 02b4 0092 0465 | e| Action Push_String_Extended,0x465 ; "Unable to resolve name \x22" 02b6 e602 | | Load 0x3,0x2 02b7 01cc | | Execute Vector,Catenate 02b8 0092 0466 | f| Action Push_String_Extended,0x466 ; "\x22 because " 02ba 01cc | | Execute Vector,Catenate 02bb 60a0 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000} 02bc e004 | | Load 0x0,0x4 02bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02be e008 | | Load 0x0,0x8 02bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c0 e009 | | Load 0x0,0x9 02c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c2 4801 |H | Short_Literal 0x1 02c3 4800 |H | Short_Literal 0x0 02c4 e008 | | Load 0x0,0x8 02c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c6 e00f | | Load 0x0,0xf 02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02c9 e602 | | Load 0x3,0x2 02ca e603 | | Load 0x3,0x3 02cb e00f | | Load 0x0,0xf 02cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02cd 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 02ce 01cc | | Execute Vector,Catenate 02cf e403 | | Load 0x2,0x3 02d0 e006 | | Load 0x0,0x6 02d1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 02d2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02d3 7870 |xp | Jump 0x344 02d4 4802 |H | Short_Literal 0x2 02d5 0092 0465 | e| Action Push_String_Extended,0x465 ; "Unable to resolve name \x22" 02d7 e608 | | Load 0x3,0x8 02d8 01cc | | Execute Vector,Catenate 02d9 0092 0466 | f| Action Push_String_Extended,0x466 ; "\x22 because " 02db 01cc | | Execute Vector,Catenate 02dc 607f |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000} 02dd e004 | | Load 0x0,0x4 02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02df e008 | | Load 0x0,0x8 02e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e1 e009 | | Load 0x0,0x9 02e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e3 4801 |H | Short_Literal 0x1 02e4 4800 |H | Short_Literal 0x0 02e5 e008 | | Load 0x0,0x8 02e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e7 e00f | | Load 0x0,0xf 02e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02ea e608 | | Load 0x3,0x8 02eb e603 | | Load 0x3,0x3 02ec e00f | | Load 0x0,0xf 02ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ee 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 02ef 01cc | | Execute Vector,Catenate 02f0 e403 | | Load 0x2,0x3 02f1 e006 | | Load 0x0,0x6 02f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 02f3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02f4 784f |xO | Jump 0x344 02f5 00cf | | Action Mark_Auxiliary 02f6 7847 |xG | Jump 0x33e 02f7 e00f | | Load 0x0,0xf 02f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f9 e606 | | Load 0x3,0x6 02fa 0120 | | Execute Any,Is_Value 02fb 6803 |h | Jump_Zero 0x2ff 02fc e00f | | Load 0x0,0xf 02fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fe 7801 |x | Jump 0x300 02ff e606 | | Load 0x3,0x6 0300 e604 | | Load 0x3,0x4 0301 e00f | | Load 0x0,0xf 0302 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0303 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0304 c606 | | Store 0x3,0x6 0305 c605 | | Store 0x3,0x5 0306 e605 | | Load 0x3,0x5 0307 6816 |h | Jump_Zero 0x31e 0308 4802 |H | Short_Literal 0x2 0309 0092 0467 | g| Action Push_String_Extended,0x467 ; "Bad status getting object for " 030b e604 | | Load 0x3,0x4 030c e00f | | Load 0x0,0xf 030d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 030e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 030f 01cc | | Execute Vector,Catenate 0310 0092 045f | _| Action Push_String_Extended,0x45f ; ": " 0312 01cc | | Execute Vector,Catenate 0313 e605 | | Load 0x3,0x5 0314 e00f | | Load 0x0,0xf 0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0316 011c | | Execute Any,Convert_Unchecked 0317 1c01 | | Execute_Immediate Run_Utility,0x1 0318 01cc | | Execute Vector,Catenate 0319 e403 | | Load 0x2,0x3 031a e006 | | Load 0x0,0x6 031b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 031c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 031d 781a |x | Jump 0x338 031e 00d9 | | Load_Top At_Offset_1 031f 6816 |h | Jump_Zero 0x336 0320 e607 | | Load 0x3,0x7 0321 0120 | | Execute Any,Is_Value 0322 6803 |h | Jump_Zero 0x326 0323 e006 | | Load 0x0,0x6 0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0325 7801 |x | Jump 0x327 0326 e607 | | Load 0x3,0x7 0327 4801 |H | Short_Literal 0x1 0328 e606 | | Load 0x3,0x6 0329 e403 | | Load 0x2,0x3 032a e006 | | Load 0x0,0x6 032b 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 032c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 032d c607 | | Store 0x3,0x7 032e e403 | | Load 0x2,0x3 032f e006 | | Load 0x0,0x6 0330 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0331 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0332 6810 |h | Jump_Zero 0x343 0333 e607 | | Load 0x3,0x7 0334 8408 | | Call 0x2,0x8 0335 7802 |x | Jump 0x338 0336 e606 | | Load 0x3,0x6 0337 8404 | | Call 0x2,0x4 0338 e604 | | Load 0x3,0x4 0339 e00f | | Load 0x0,0xf 033a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 033b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 033c c604 | | Store 0x3,0x4 033d 00c9 | | Action Pop_Auxiliary_Loop 033e e604 | | Load 0x3,0x4 033f e00f | | Load 0x0,0xf 0340 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0341 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0342 6fb4 |o | Jump_Zero 0x2f7 0343 00ce | | Action Pop_Auxiliary 0344 00c8 | | Action Pop_Auxiliary_Range 0345 372e |7. | Loop_Decreasing 0x274 0346 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0347 TRAP_0248: 0347 0007 | | Action Break_Optional 0348 4802 |H | Short_Literal 0x2 0349 0092 0468 | h| Action Push_String_Extended,0x468 ; "Unexpected exception raised while determining referencers for code segment " 034b e5fc | | Load 0x2,-0x4 034c 00e0 | | Load_Encached Standard_Cache 034d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 034e 01cc | | Execute Vector,Catenate 034f 0092 045f | _| Action Push_String_Extended,0x45f ; ": " 0351 01cc | | Execute Vector,Catenate 0352 e017 | | Load 0x0,0x17 0353 180d | | Execute Package,Field_Execute,Field_Number 0xd 0354 01cc | | Execute Vector,Catenate 0355 e403 | | Load 0x2,0x3 0356 e006 | | Load 0x0,0x6 0357 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0358 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0359 4501 |E | Exit_Suprogram New_Top_Offset 0x1 035a 0000 0000 | | .XXX[0x2] 035c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0367 | g | .CONST 0x0367 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 e006 | | Load 0x0,0x6 0365 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0366 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0367 BODY_0360: 0367 e7fe | | Load 0x3,-0x2 0368 6807 |h | Jump_Zero 0x370 0369 00d8 | | Load_Top At_Offset_0 036a 0092 0469 | i| Action Push_String_Extended,0x469 ; " (elaboration code)" 036c 01cc | | Execute Vector,Catenate 036d e00e | | Load 0x0,0xe 036e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 036f 7803 |x | Jump 0x373 0370 00d8 | | Load_Top At_Offset_0 0371 e00e | | Load 0x0,0xe 0372 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0373 4800 |H | Short_Literal 0x0 0374 a404 | | Store_Unchecked 0x2,0x4 0375 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0376 0000 0000 | | .XXX[0x2] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c e00f | | Load 0x0,0xf 037d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 037f e00e | | Load 0x0,0xe 0380 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0381 4800 |H | Short_Literal 0x0 0382 a404 | | Store_Unchecked 0x2,0x4 0383 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0384 0000 0000 | | .BLANK 0000[0x4] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00db | | Load_Top At_Offset_3 038c 00db | | Load_Top At_Offset_3 038d e006 | | Load 0x0,0x6 038e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 038f 0119 | | Execute Any,Check_In_Formal_Type 0390 8405 | | Call 0x2,0x5 0391 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0392 0000 0000 | | .BLANK 0000[0x6] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00da | | Load_Top At_Offset_2 039c e010 | | Load 0x0,0x10 039d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 039e 0161 | a | Execute Variant_Record,Check_In_Formal_Type 039f 8406 | | Call 0x2,0x6 03a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a1 0000 0000 | | .BLANK 0000[0x7] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03d3 | | .CONST 0x03d3 ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0004 | | .CONST 0x0004 ; Number of locals 03ab INIT_03a8: 03ab e007 | | Load 0x0,0x7 03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ad 02c7 | | Declare_Variable Any 03ae 00db | | Load_Top At_Offset_3 03af a602 | | Store_Unchecked 0x3,0x2 03b0 e007 | | Load 0x0,0x7 03b1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03b2 0266 | f | Execute Discrete,Bounds 03b3 e00a | | Load 0x0,0xa 03b4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03b5 02a0 | | Declare_Subprogram Null_Subprogram 03b6 4801 |H | Short_Literal 0x1 03b7 035d | ] | Declare_Type Array,Defined 03b8 00d8 | | Load_Top At_Offset_0 03b9 0337 | 7 | Declare_Variable Array 03ba 00d8 | | Load_Top At_Offset_0 03bb 0335 | 5 | Declare_Variable Array,Duplicate 03bc 00cd | | Action Spare6_Action 03bd 4802 |H | Short_Literal 0x2 03be 4800 |H | Short_Literal 0x0 03bf 00da | | Load_Top At_Offset_2 03c0 01d6 | | Execute Vector,Field_Write 03c1 4806 |H | Short_Literal 0x6 03c2 4801 |H | Short_Literal 0x1 03c3 00da | | Load_Top At_Offset_2 03c4 01d6 | | Execute Vector,Field_Write 03c5 4807 |H | Short_Literal 0x7 03c6 4802 |H | Short_Literal 0x2 03c7 00da | | Load_Top At_Offset_2 03c8 01d6 | | Execute Vector,Field_Write 03c9 4807 |H | Short_Literal 0x7 03ca 4803 |H | Short_Literal 0x3 03cb 00da | | Load_Top At_Offset_2 03cc 01d6 | | Execute Vector,Field_Write 03cd 4808 |H | Short_Literal 0x8 03ce 4804 |H | Short_Literal 0x4 03cf 00da | | Load_Top At_Offset_2 03d0 01d6 | | Execute Vector,Field_Write 03d1 00d9 | | Load_Top At_Offset_1 03d2 01d4 | | Execute Vector,Structure_Write 03d3 BODY_03a8: 03d3 00cf | | Action Mark_Auxiliary 03d4 7810 |x | Jump 0x3e5 03d5 e402 | | Load 0x2,0x2 03d6 e602 | | Load 0x3,0x2 03d7 e007 | | Load 0x0,0x7 03d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03d9 00db | | Load_Top At_Offset_3 03da 01d7 | | Execute Vector,Field_Read 03db e602 | | Load 0x3,0x2 03dc e007 | | Load 0x0,0x7 03dd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03de e00d | | Load 0x0,0xd 03df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e0 00db | | Load_Top At_Offset_3 03e1 e007 | | Load 0x0,0x7 03e2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03e3 c602 | | Store 0x3,0x2 03e4 00c9 | | Action Pop_Auxiliary_Loop 03e5 00db | | Load_Top At_Offset_3 03e6 e007 | | Load 0x0,0x7 03e7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03e8 6fec |o | Jump_Zero 0x3d5 03e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ea 0000 0000 | | .BLANK 0000[0x6] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f8 | | .CONST 0x03f8 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0002 | | .CONST 0x0002 ; Number of locals 03f3 INIT_03f0: 03f3 e018 | | Load 0x0,0x18 03f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f5 02c7 | | Declare_Variable Any 03f6 00d8 | | Load_Top At_Offset_0 03f7 1c00 | | Execute_Immediate Run_Utility,0x0 03f8 BODY_03f0: 03f8 00d8 | | Load_Top At_Offset_0 03f9 e402 | | Load 0x2,0x2 03fa 0120 | | Execute Any,Is_Value 03fb 6803 |h | Jump_Zero 0x3ff 03fc e00a | | Load 0x0,0xa 03fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fe 7801 |x | Jump 0x400 03ff e402 | | Load 0x2,0x2 0400 e5fc | | Load 0x2,-0x4 0401 e00a | | Load 0x0,0xa 0402 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0403 c402 | | Store 0x2,0x2 0404 c602 | | Store 0x3,0x2 0405 4801 |H | Short_Literal 0x1 0406 00d9 | | Load_Top At_Offset_1 0407 e018 | | Load 0x0,0x18 0408 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0409 6807 |h | Jump_Zero 0x411 040a e00a | | Load 0x0,0xa 040b 180e | | Execute Package,Field_Execute,Field_Number 0xe 040c 00d9 | | Load_Top At_Offset_1 040d e00d | | Load 0x0,0xd 040e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 040f 00cc | | Action Pop_Block 0410 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0411 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0412 0000 0000 | | .BLANK 0000[0x6] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0421 | ! | .CONST 0x0421 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0003 | | .CONST 0x0003 ; Number of locals 041b INIT_0418: 041b e7ff | | Load 0x3,-0x1 041c e006 | | Load 0x0,0x6 041d 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e 041e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 041f 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 0421 BODY_0418: 0421 8803 | | Call 0x4,0x3 0422 00d9 | | Load_Top At_Offset_1 0423 680c |h | Jump_Zero 0x430 0424 e004 | | Load 0x0,0x4 0425 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0426 00da | | Load_Top At_Offset_2 0427 e019 | | Load 0x0,0x19 0428 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0429 6806 |h | Jump_Zero 0x430 042a e004 | | Load 0x0,0x4 042b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042c 00da | | Load_Top At_Offset_2 042d e019 | | Load 0x0,0x19 042e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 042f 8404 | | Call 0x2,0x4 0430 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0431 0000 0000 | | .BLANK 0000[0x7] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0447 | G | .CONST 0x0447 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b e802 | | Load 0x4,0x2 043c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 043d 0f35 | 5 | Execute_Immediate Equal,0x35 043e 6807 |h | Jump_Zero 0x446 043f 4802 |H | Short_Literal 0x2 0440 0092 046a | j| Action Push_String_Extended,0x46a ; "It is very unlikely that this message will ever be emitted" 0442 e403 | | Load 0x2,0x3 0443 e006 | | Load 0x0,0x6 0444 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0445 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0447 TRAP_0438: 0447 0007 | | Action Break_Optional 0448 4802 |H | Short_Literal 0x2 0449 0092 046b | k| Action Push_String_Extended,0x46b ; "Found corrupt Comp_Unit_Id for unit " 044b e7ff | | Load 0x3,-0x1 044c e006 | | Load 0x0,0x6 044d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 044e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 044f 01cc | | Execute Vector,Catenate 0450 e403 | | Load 0x2,0x3 0451 e006 | | Load 0x0,0x6 0452 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0453 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0454 00ec | | Load_Encached Diana_Tree_Cache 0455 a802 | | Store_Unchecked 0x4,0x2 0456 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0457 ; -------------------------------------------------------------------------------------- 0457 ; STRING TABLE 0457 ; -------------------------------------------------------------------------------------- 0457 002c | , | .STRTAB 0x002c->0x046d ; "[Program_Library_Maintenance.Display_Referencers (R1000_Code_Segment_Name =>" 0458 0076 | v | .STRTAB 0x0076->0x0493 ; ", Worlds => \x22" 0459 0081 | | .STRTAB 0x0081->0x0499 ; "\x22, Options => \x22" 045a 008e | | .STRTAB 0x008e->0x04a1 ; "\x22, Response => \x22" 045b 009c | | .STRTAB 0x009c->0x04a9 ; "\x22);]." 045c 009f | | .STRTAB 0x009f->0x04ab ; "<none>" 045d 00a3 | | .STRTAB 0x00a3->0x04ae ; "[End of Program_Library_Maintenance.Display_Referencers command]." 045e 00e2 | | .STRTAB 0x00e2->0x04cf ; "Bad status getting version for Archived_Code object " 045f 0114 | | .STRTAB 0x0114->0x04e9 ; ": " 0460 0114 | | .STRTAB 0x0114->0x04ea ; "Bad status opening Archived_Code object " 0461 013a | : | .STRTAB 0x013a->0x04fe ; "Bad status opening code segment " 0462 0158 | X | .STRTAB 0x0158->0x050e ; "]" 0463 0157 | W | .STRTAB 0x0157->0x050e ; "<*PROGRAM_LIBRARY>" 0464 0167 | g | .STRTAB 0x0167->0x0517 ; "]code_database'c(archived_code)" 0465 0184 | | .STRTAB 0x0184->0x0527 ; "Unable to resolve name \x22" 0466 019a | | .STRTAB 0x019a->0x0533 ; "\x22 because " 0467 01a2 | | .STRTAB 0x01a2->0x0538 ; "Bad status getting object for " 0468 01be | | .STRTAB 0x01be->0x0547 ; "Unexpected exception raised while determining referencers for code segment " 0469 0207 | | .STRTAB 0x0207->0x056c ; " (elaboration code)" 046a 0218 | | .STRTAB 0x0218->0x0576 ; "It is very unlikely that this message will ever be emitted" 046b 0250 | P | .STRTAB 0x0250->0x0593 ; "Found corrupt Comp_Unit_Id for unit " 046c 0272 | r | .STREND 0x0272->0x05a5 046d 5b50 726f |[Pro| .STRTAB_STRINGS 05a5 0000 0000 | | .XXX[0x3] 05a7 0000 | | 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; Debug Table 05a8 ; -------------------------------------------------------------------------------------- 05a8 0004 0007 | | .DEBUG4 0x0004,0x0007,0x48a7,0x0000,0x0001,0x0000 05ae 0000 2c00 | , | .XXX[0x6] 05b0 0000 0010 | | 05b2 0000 0500 | | 05b4 0000 0000 | | .BLANK 0000[0x28] 05dc e641 3000 | A0 | .XXX[0x14] 05de 0000 0800 | | 05e0 0002 3000 | 0 | 05e2 0001 0000 | | 05e4 0008 0000 | | 05e6 002b 0000 | + | 05e8 0000 2000 | | 05ea 0004 6869 | hi| 05ec e9a9 a829 | )| 05ee c88a 6000 | ` | 05f0 0000 0000 | | .BLANK 0000[0xc] 05fc 0010 0000 | | .XXX[0x4] 05fe 1900 0000 | |