|
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_ccb0b3
└─⟦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 0598 | | .CONST 0x0598 ; 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 01bb | | .CONST 0x01bb ; Address of begin 0009 0296 | | .CONST 0x0296 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b e5fc | | Load 0x2,-0x4 000c e009 | | Load 0x0,0x9 000d 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 000e e5fc | | Load 0x2,-0x4 000f e009 | | Load 0x0,0x9 0010 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0011 e5fc | | Load 0x2,-0x4 0012 e009 | | Load 0x0,0x9 0013 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0014 e017 | | Load 0x0,0x17 0015 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0016 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0017 011e | | Execute Any,Convert 0018 e5fc | | Load 0x2,-0x4 0019 e009 | | Load 0x0,0x9 001a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 001b e5fe | | Load 0x2,-0x2 001c 00e1 | | Load_Encached Boolean_Cache 001d 03f1 | | Declare_Variable Discrete,With_Value 001e e008 | | Load 0x0,0x8 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 00ec | | Load_Encached Diana_Tree_Cache 0024 02c7 | | Declare_Variable Any 0025 00d8 | | Load_Top At_Offset_0 0026 1c00 | | Execute_Immediate Run_Utility,0x0 0027 00ec | | Load_Encached Diana_Tree_Cache 0028 02c7 | | Declare_Variable Any 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b 00ec | | Load_Encached Diana_Tree_Cache 002c 02c7 | | Declare_Variable Any 002d 00d8 | | Load_Top At_Offset_0 002e 1c00 | | Execute_Immediate Run_Utility,0x0 002f 00ec | | Load_Encached Diana_Tree_Cache 0030 02c7 | | Declare_Variable Any 0031 00d8 | | Load_Top At_Offset_0 0032 1c00 | | Execute_Immediate Run_Utility,0x0 0033 00ee | | Load_Encached Diana_Seq_Type_Cache 0034 02c7 | | Declare_Variable Any 0035 00ee | | Load_Encached Diana_Seq_Type_Cache 0036 a40c | | Store_Unchecked 0x2,0xc 0037 00ec | | Load_Encached Diana_Tree_Cache 0038 02c7 | | Declare_Variable Any 0039 00d8 | | Load_Top At_Offset_0 003a 1c00 | | Execute_Immediate Run_Utility,0x0 003b 00ec | | Load_Encached Diana_Tree_Cache 003c 02c7 | | Declare_Variable Any 003d 00d8 | | Load_Top At_Offset_0 003e 1c00 | | Execute_Immediate Run_Utility,0x0 003f 00ec | | Load_Encached Diana_Tree_Cache 0040 02c7 | | Declare_Variable Any 0041 00d8 | | Load_Top At_Offset_0 0042 1c00 | | Execute_Immediate Run_Utility,0x0 0043 00ec | | Load_Encached Diana_Tree_Cache 0044 02c7 | | Declare_Variable Any 0045 00d8 | | Load_Top At_Offset_0 0046 1c00 | | Execute_Immediate Run_Utility,0x0 0047 00ec | | Load_Encached Diana_Tree_Cache 0048 02c7 | | Declare_Variable Any 0049 00d8 | | Load_Top At_Offset_0 004a 1c00 | | Execute_Immediate Run_Utility,0x0 004b 00ec | | Load_Encached Diana_Tree_Cache 004c 02c7 | | Declare_Variable Any 004d 00d8 | | Load_Top At_Offset_0 004e 1c00 | | Execute_Immediate Run_Utility,0x0 004f 00ec | | Load_Encached Diana_Tree_Cache 0050 02c7 | | Declare_Variable Any 0051 00d8 | | Load_Top At_Offset_0 0052 1c00 | | Execute_Immediate Run_Utility,0x0 0053 00ec | | Load_Encached Diana_Tree_Cache 0054 02c7 | | Declare_Variable Any 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 00ec | | Load_Encached Diana_Tree_Cache 0058 02c7 | | Declare_Variable Any 0059 00d8 | | Load_Top At_Offset_0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b 00ec | | Load_Encached Diana_Tree_Cache 005c 02c7 | | Declare_Variable Any 005d 00d8 | | Load_Top At_Offset_0 005e 1c00 | | Execute_Immediate Run_Utility,0x0 005f 00ec | | Load_Encached Diana_Tree_Cache 0060 02c7 | | Declare_Variable Any 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 00ec | | Load_Encached Diana_Tree_Cache 0064 02c7 | | Declare_Variable Any 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 00ec | | Load_Encached Diana_Tree_Cache 0068 02c7 | | Declare_Variable Any 0069 00d8 | | Load_Top At_Offset_0 006a 1c00 | | Execute_Immediate Run_Utility,0x0 006b 00ec | | Load_Encached Diana_Tree_Cache 006c 02c7 | | Declare_Variable Any 006d 00d8 | | Load_Top At_Offset_0 006e 1c00 | | Execute_Immediate Run_Utility,0x0 006f 00ec | | Load_Encached Diana_Tree_Cache 0070 02c7 | | Declare_Variable Any 0071 00d8 | | Load_Top At_Offset_0 0072 1c00 | | Execute_Immediate Run_Utility,0x0 0073 00ec | | Load_Encached Diana_Tree_Cache 0074 02c7 | | Declare_Variable Any 0075 00d8 | | Load_Top At_Offset_0 0076 1c00 | | Execute_Immediate Run_Utility,0x0 0077 00ec | | Load_Encached Diana_Tree_Cache 0078 02c7 | | Declare_Variable Any 0079 00d8 | | Load_Top At_Offset_0 007a 1c00 | | Execute_Immediate Run_Utility,0x0 007b 00ec | | Load_Encached Diana_Tree_Cache 007c 02c7 | | Declare_Variable Any 007d 00d8 | | Load_Top At_Offset_0 007e 1c00 | | Execute_Immediate Run_Utility,0x0 007f 00ec | | Load_Encached Diana_Tree_Cache 0080 02c7 | | Declare_Variable Any 0081 00d8 | | Load_Top At_Offset_0 0082 1c00 | | Execute_Immediate Run_Utility,0x0 0083 00ec | | Load_Encached Diana_Tree_Cache 0084 02c7 | | Declare_Variable Any 0085 00d8 | | Load_Top At_Offset_0 0086 1c00 | | Execute_Immediate Run_Utility,0x0 0087 00ec | | Load_Encached Diana_Tree_Cache 0088 02c7 | | Declare_Variable Any 0089 00d8 | | Load_Top At_Offset_0 008a 1c00 | | Execute_Immediate Run_Utility,0x0 008b 00ec | | Load_Encached Diana_Tree_Cache 008c 02c7 | | Declare_Variable Any 008d 00d8 | | Load_Top At_Offset_0 008e 1c00 | | Execute_Immediate Run_Utility,0x0 008f 00ec | | Load_Encached Diana_Tree_Cache 0090 02c7 | | Declare_Variable Any 0091 00d8 | | Load_Top At_Offset_0 0092 1c00 | | Execute_Immediate Run_Utility,0x0 0093 00ec | | Load_Encached Diana_Tree_Cache 0094 02c7 | | Declare_Variable Any 0095 00d8 | | Load_Top At_Offset_0 0096 1c00 | | Execute_Immediate Run_Utility,0x0 0097 00ec | | Load_Encached Diana_Tree_Cache 0098 02c7 | | Declare_Variable Any 0099 00d8 | | Load_Top At_Offset_0 009a 1c00 | | Execute_Immediate Run_Utility,0x0 009b 00ec | | Load_Encached Diana_Tree_Cache 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f 00ec | | Load_Encached Diana_Tree_Cache 00a0 02c7 | | Declare_Variable Any 00a1 00d8 | | Load_Top At_Offset_0 00a2 1c00 | | Execute_Immediate Run_Utility,0x0 00a3 00ec | | Load_Encached Diana_Tree_Cache 00a4 02c7 | | Declare_Variable Any 00a5 00d8 | | Load_Top At_Offset_0 00a6 1c00 | | Execute_Immediate Run_Utility,0x0 00a7 00ec | | Load_Encached Diana_Tree_Cache 00a8 02c7 | | Declare_Variable Any 00a9 00d8 | | Load_Top At_Offset_0 00aa 1c00 | | Execute_Immediate Run_Utility,0x0 00ab 00ec | | Load_Encached Diana_Tree_Cache 00ac 02c7 | | Declare_Variable Any 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af 00ec | | Load_Encached Diana_Tree_Cache 00b0 02c7 | | Declare_Variable Any 00b1 00d8 | | Load_Top At_Offset_0 00b2 1c00 | | Execute_Immediate Run_Utility,0x0 00b3 00ec | | Load_Encached Diana_Tree_Cache 00b4 02c7 | | Declare_Variable Any 00b5 00d8 | | Load_Top At_Offset_0 00b6 1c00 | | Execute_Immediate Run_Utility,0x0 00b7 e00c | | Load 0x0,0xc 00b8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ba 02c7 | | Declare_Variable Any 00bb e010 | | Load 0x0,0x10 00bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bd 4800 |H | Short_Literal 0x0 00be e00c | | Load 0x0,0xc 00bf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00c1 a42d | - | Store_Unchecked 0x2,0x2d 00c2 e00c | | Load 0x0,0xc 00c3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 02c7 | | Declare_Variable Any 00c6 00d8 | | Load_Top At_Offset_0 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 e00c | | Load 0x0,0xc 00c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ca 02ff | | Declare_Variable Variant_Record 00cb 00d8 | | Load_Top At_Offset_0 00cc 1c00 | | Execute_Immediate Run_Utility,0x0 00cd e00a | | Load 0x0,0xa 00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cf 02ff | | Declare_Variable Variant_Record 00d0 00d8 | | Load_Top At_Offset_0 00d1 1c00 | | Execute_Immediate Run_Utility,0x0 00d2 e00a | | Load 0x0,0xa 00d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d4 02ff | | Declare_Variable Variant_Record 00d5 00d8 | | Load_Top At_Offset_0 00d6 1c00 | | Execute_Immediate Run_Utility,0x0 00d7 e00a | | Load 0x0,0xa 00d8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d9 02ff | | Declare_Variable Variant_Record 00da 00d8 | | Load_Top At_Offset_0 00db 1c00 | | Execute_Immediate Run_Utility,0x0 00dc e00a | | Load 0x0,0xa 00dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00de e00b | | Load 0x0,0xb 00df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e0 02c7 | | Declare_Variable Any 00e1 00d8 | | Load_Top At_Offset_0 00e2 1c00 | | Execute_Immediate Run_Utility,0x0 00e3 e00f | | Load 0x0,0xf 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 02c7 | | Declare_Variable Any 00e6 00d8 | | Load_Top At_Offset_0 00e7 1c00 | | Execute_Immediate Run_Utility,0x0 00e8 e011 | | Load 0x0,0x11 00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ea e011 | | Load 0x0,0x11 00eb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ec e011 | | Load 0x0,0x11 00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ee 4800 |H | Short_Literal 0x0 00ef e018 | | Load 0x0,0x18 00f0 02a0 | | Declare_Subprogram Null_Subprogram 00f1 038e | | Declare_Type Package,Defined 00f2 0387 | | Declare_Variable Package 00f3 4800 |H | Short_Literal 0x0 00f4 e019 | | Load 0x0,0x19 00f5 02a0 | | Declare_Subprogram Null_Subprogram 00f6 038e | | Declare_Type Package,Defined 00f7 0387 | | Declare_Variable Package 00f8 029e 02c3 | | Declare_Subprogram INIT_02c0,For_Call,Unelaborated 00fa 029e 02cb | | Declare_Subprogram INIT_02c8,For_Call,Unelaborated 00fc e01a | | Load 0x0,0x1a 00fd e01b | | Load 0x0,0x1b 00fe e01c | | Load 0x0,0x1c 00ff 195f | _ | Execute Package,Field_Reference,Field_Number 0x5f 0100 483b |H; | Short_Literal 0x3b 0101 4802 |H | Short_Literal 0x2 0102 0099 | | Action Reference_Dynamic 0103 483c |H< | Short_Literal 0x3c 0104 4802 |H | Short_Literal 0x2 0105 0099 | | Action Reference_Dynamic 0106 4977 |Iw | Short_Literal 0x177 0107 00eb | | Load_Encached Diana_Cache 0108 0098 | | Execute Package,Field_Read_Dynamic 0109 0387 | | Declare_Variable Package 010a 00d8 | | Load_Top At_Offset_0 010b 020f | | Execute Module,Activate 010c 483b |H; | Short_Literal 0x3b 010d 4802 |H | Short_Literal 0x2 010e 0099 | | Action Reference_Dynamic 010f 00c7 | | Action Elaborate_Subprogram 0110 483c |H< | Short_Literal 0x3c 0111 4802 |H | Short_Literal 0x2 0112 0099 | | Action Reference_Dynamic 0113 00c7 | | Action Elaborate_Subprogram 0114 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 0116 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 0118 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 011a 029f 030b | | Declare_Subprogram INIT_0308,For_Call 011c 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 011e e01d | | Load 0x0,0x1d 011f 480e |H | Short_Literal 0xe 0120 4802 |H | Short_Literal 0x2 0121 0099 | | Action Reference_Dynamic 0122 480d |H | Short_Literal 0xd 0123 4802 |H | Short_Literal 0x2 0124 0099 | | Action Reference_Dynamic 0125 4810 |H | Short_Literal 0x10 0126 4802 |H | Short_Literal 0x2 0127 0099 | | Action Reference_Dynamic 0128 480f |H | Short_Literal 0xf 0129 4802 |H | Short_Literal 0x2 012a 0099 | | Action Reference_Dynamic 012b 4812 |H | Short_Literal 0x12 012c 4802 |H | Short_Literal 0x2 012d 0099 | | Action Reference_Dynamic 012e 4811 |H | Short_Literal 0x11 012f 4802 |H | Short_Literal 0x2 0130 0099 | | Action Reference_Dynamic 0131 481c |H | Short_Literal 0x1c 0132 4802 |H | Short_Literal 0x2 0133 0099 | | Action Reference_Dynamic 0134 481e |H | Short_Literal 0x1e 0135 4802 |H | Short_Literal 0x2 0136 0099 | | Action Reference_Dynamic 0137 4816 |H | Short_Literal 0x16 0138 4802 |H | Short_Literal 0x2 0139 0099 | | Action Reference_Dynamic 013a 4818 |H | Short_Literal 0x18 013b 4802 |H | Short_Literal 0x2 013c 0099 | | Action Reference_Dynamic 013d 4826 |H& | Short_Literal 0x26 013e 4802 |H | Short_Literal 0x2 013f 0099 | | Action Reference_Dynamic 0140 4828 |H( | Short_Literal 0x28 0141 4802 |H | Short_Literal 0x2 0142 0099 | | Action Reference_Dynamic 0143 e01e | | Load 0x0,0x1e 0144 4813 |H | Short_Literal 0x13 0145 4802 |H | Short_Literal 0x2 0146 0099 | | Action Reference_Dynamic 0147 e01f | | Load 0x0,0x1f 0148 e020 | | Load 0x0,0x20 0149 4811 |H | Short_Literal 0x11 014a e439 | 9 | Load 0x2,0x39 014b 020e | | Execute Module,Augment_Imports 014c e439 | 9 | Load 0x2,0x39 014d 020f | | Execute Module,Activate 014e e021 | ! | Load 0x0,0x21 014f 4819 |H | Short_Literal 0x19 0150 4802 |H | Short_Literal 0x2 0151 0099 | | Action Reference_Dynamic 0152 481a |H | Short_Literal 0x1a 0153 4802 |H | Short_Literal 0x2 0154 0099 | | Action Reference_Dynamic 0155 481b |H | Short_Literal 0x1b 0156 4802 |H | Short_Literal 0x2 0157 0099 | | Action Reference_Dynamic 0158 481c |H | Short_Literal 0x1c 0159 4802 |H | Short_Literal 0x2 015a 0099 | | Action Reference_Dynamic 015b 481e |H | Short_Literal 0x1e 015c 4802 |H | Short_Literal 0x2 015d 0099 | | Action Reference_Dynamic 015e 481d |H | Short_Literal 0x1d 015f 4802 |H | Short_Literal 0x2 0160 0099 | | Action Reference_Dynamic 0161 4809 |H | Short_Literal 0x9 0162 4802 |H | Short_Literal 0x2 0163 0099 | | Action Reference_Dynamic 0164 4840 |H@ | Short_Literal 0x40 0165 4802 |H | Short_Literal 0x2 0166 0099 | | Action Reference_Dynamic 0167 483f |H? | Short_Literal 0x3f 0168 4802 |H | Short_Literal 0x2 0169 0099 | | Action Reference_Dynamic 016a 4820 |H | Short_Literal 0x20 016b 4802 |H | Short_Literal 0x2 016c 0099 | | Action Reference_Dynamic 016d 4821 |H! | Short_Literal 0x21 016e 4802 |H | Short_Literal 0x2 016f 0099 | | Action Reference_Dynamic 0170 481f |H | Short_Literal 0x1f 0171 4802 |H | Short_Literal 0x2 0172 0099 | | Action Reference_Dynamic 0173 4823 |H# | Short_Literal 0x23 0174 4802 |H | Short_Literal 0x2 0175 0099 | | Action Reference_Dynamic 0176 4824 |H$ | Short_Literal 0x24 0177 4802 |H | Short_Literal 0x2 0178 0099 | | Action Reference_Dynamic 0179 4822 |H" | Short_Literal 0x22 017a 4802 |H | Short_Literal 0x2 017b 0099 | | Action Reference_Dynamic 017c 4816 |H | Short_Literal 0x16 017d 4802 |H | Short_Literal 0x2 017e 0099 | | Action Reference_Dynamic 017f 4818 |H | Short_Literal 0x18 0180 4802 |H | Short_Literal 0x2 0181 0099 | | Action Reference_Dynamic 0182 4817 |H | Short_Literal 0x17 0183 4802 |H | Short_Literal 0x2 0184 0099 | | Action Reference_Dynamic 0185 482a |H* | Short_Literal 0x2a 0186 4802 |H | Short_Literal 0x2 0187 0099 | | Action Reference_Dynamic 0188 482c |H, | Short_Literal 0x2c 0189 4802 |H | Short_Literal 0x2 018a 0099 | | Action Reference_Dynamic 018b 482b |H+ | Short_Literal 0x2b 018c 4802 |H | Short_Literal 0x2 018d 0099 | | Action Reference_Dynamic 018e 4826 |H& | Short_Literal 0x26 018f 4802 |H | Short_Literal 0x2 0190 0099 | | Action Reference_Dynamic 0191 4828 |H( | Short_Literal 0x28 0192 4802 |H | Short_Literal 0x2 0193 0099 | | Action Reference_Dynamic 0194 4827 |H' | Short_Literal 0x27 0195 4802 |H | Short_Literal 0x2 0196 0099 | | Action Reference_Dynamic 0197 4829 |H) | Short_Literal 0x29 0198 4802 |H | Short_Literal 0x2 0199 0099 | | Action Reference_Dynamic 019a e01d | | Load 0x0,0x1d 019b a022 | " | Store_Unchecked 0x0,0x22 019c e023 | # | Load 0x0,0x23 019d e024 | $ | Load 0x0,0x24 019e 480d |H | Short_Literal 0xd 019f 4802 |H | Short_Literal 0x2 01a0 0099 | | Action Reference_Dynamic 01a1 480f |H | Short_Literal 0xf 01a2 4802 |H | Short_Literal 0x2 01a3 0099 | | Action Reference_Dynamic 01a4 4813 |H | Short_Literal 0x13 01a5 4802 |H | Short_Literal 0x2 01a6 0099 | | Action Reference_Dynamic 01a7 e017 | | Load 0x0,0x17 01a8 e01e | | Load 0x0,0x1e 01a9 e439 | 9 | Load 0x2,0x39 01aa 4815 |H | Short_Literal 0x15 01ab 4802 |H | Short_Literal 0x2 01ac 0099 | | Action Reference_Dynamic 01ad 4814 |H | Short_Literal 0x14 01ae 4802 |H | Short_Literal 0x2 01af 0099 | | Action Reference_Dynamic 01b0 4825 |H% | Short_Literal 0x25 01b1 4802 |H | Short_Literal 0x2 01b2 0099 | | Action Reference_Dynamic 01b3 e025 | % | Load 0x0,0x25 01b4 4828 |H( | Short_Literal 0x28 01b5 e43a | : | Load 0x2,0x3a 01b6 020e | | Execute Module,Augment_Imports 01b7 e43a | : | Load 0x2,0x3a 01b8 020f | | Execute Module,Activate 01b9 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 01bb BODY_0008: 01bb 4800 |H | Short_Literal 0x0 01bc a5fb | | Store_Unchecked 0x2,-0x5 01bd e010 | | Load 0x0,0x10 01be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01bf e00f | | Load 0x0,0xf 01c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c1 c435 | 5 | Store 0x2,0x35 01c2 e5fc | | Load 0x2,-0x4 01c3 e009 | | Load 0x0,0x9 01c4 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 01c5 c434 | 4 | Store 0x2,0x34 01c6 e434 | 4 | Load 0x2,0x34 01c7 e00b | | Load 0x0,0xb 01c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c9 6808 |h | Jump_Zero 0x1d2 01ca e407 | | Load 0x2,0x7 01cb 4802 |H | Short_Literal 0x2 01cc 0092 049d | | Action Push_String_Extended,0x49d ; "Could not find standard environment" 01ce 8217 | | Call 0x1,0x17 01cf c407 | | Store 0x2,0x7 01d0 e026 | & | Load 0x0,0x26 01d1 0257 | W | Execute Discrete,Raise 01d2 e434 | 4 | Load 0x2,0x34 01d3 e00b | | Load 0x0,0xb 01d4 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 01d5 180d | | Execute Package,Field_Execute,Field_Number 0xd 01d6 e431 | 1 | Load 0x2,0x31 01d7 016d | m | Execute Variant_Record,Structure_Write 01d8 e011 | | Load 0x0,0x11 01d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01da e42f | / | Load 0x2,0x2f 01db 4800 |H | Short_Literal 0x0 01dc 4800 |H | Short_Literal 0x0 01dd e012 | | Load 0x0,0x12 01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01df e435 | 5 | Load 0x2,0x35 01e0 4800 |H | Short_Literal 0x0 01e1 e027 | ' | Load 0x0,0x27 01e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01e3 4800 |H | Short_Literal 0x0 01e4 e00c | | Load 0x0,0xc 01e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e6 00d1 | | Pop_Control Pop_Count_1 01e7 c436 | 6 | Store 0x2,0x36 01e8 0092 049e | | Action Push_String_Extended,0x49e ; "Ada manager CREATE" 01ea e436 | 6 | Load 0x2,0x36 01eb 843e | > | Call 0x2,0x3e 01ec e011 | | Load 0x0,0x11 01ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ee e42e | . | Load 0x2,0x2e 01ef 0120 | | Execute Any,Is_Value 01f0 6804 |h | Jump_Zero 0x1f5 01f1 e00c | | Load 0x0,0xc 01f2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f4 7801 |x | Jump 0x1f6 01f5 e42e | . | Load 0x2,0x2e 01f6 e435 | 5 | Load 0x2,0x35 01f7 4800 |H | Short_Literal 0x0 01f8 4802 |H | Short_Literal 0x2 01f9 e42f | / | Load 0x2,0x2f 01fa e00c | | Load 0x0,0xc 01fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01fc c42e | . | Store 0x2,0x2e 01fd c437 | 7 | Store 0x2,0x37 01fe 0092 049f | | Action Push_String_Extended,0x49f ; "Ada manager OPEN" 0200 e437 | 7 | Load 0x2,0x37 0201 843e | > | Call 0x2,0x3e 0202 e010 | | Load 0x0,0x10 0203 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0204 4800 |H | Short_Literal 0x0 0205 e42e | . | Load 0x2,0x2e 0206 e00c | | Load 0x0,0xc 0207 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0208 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0209 8443 | C | Call 0x2,0x43 020a e42e | . | Load 0x2,0x2e 020b e40b | | Load 0x2,0xb 020c e00c | | Load 0x0,0xc 020d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 020e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 020f 4803 |H | Short_Literal 0x3 0210 e42e | . | Load 0x2,0x2e 0211 e00c | | Load 0x0,0xc 0212 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0213 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0214 e010 | | Load 0x0,0x10 0215 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0216 4800 |H | Short_Literal 0x0 0217 e42d | - | Load 0x2,0x2d 0218 e00c | | Load 0x0,0xc 0219 1b13 | | Execute Package,Field_Read,Field_Number 0x13 021a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 021b e011 | | Load 0x0,0x11 021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021d e430 | 0 | Load 0x2,0x30 021e e405 | | Load 0x2,0x5 021f e431 | 1 | Load 0x2,0x31 0220 e00a | | Load 0x0,0xa 0221 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0222 00d1 | | Pop_Control Pop_Count_1 0223 c438 | 8 | Store 0x2,0x38 0224 e438 | 8 | Load 0x2,0x38 0225 6816 |h | Jump_Zero 0x23c 0226 e011 | | Load 0x0,0x11 0227 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0228 e430 | 0 | Load 0x2,0x30 0229 e435 | 5 | Load 0x2,0x35 022a 608d |` | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00028000} 022b 4800 |H | Short_Literal 0x0 022c 4800 |H | Short_Literal 0x0 022d e405 | | Load 0x2,0x5 022e e431 | 1 | Load 0x2,0x31 022f e00c | | Load 0x0,0xc 0230 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0231 e00a | | Load 0x0,0xa 0232 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0233 00d1 | | Pop_Control Pop_Count_1 0234 c436 | 6 | Store 0x2,0x36 0235 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Directory manager CREATE" 0237 e436 | 6 | Load 0x2,0x36 0238 843e | > | Call 0x2,0x3e 0239 4801 |H | Short_Literal 0x1 023a a433 | 3 | Store_Unchecked 0x2,0x33 023b 7822 |x" | Jump 0x25e 023c e011 | | Load 0x0,0x11 023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023e e432 | 2 | Load 0x2,0x32 023f e435 | 5 | Load 0x2,0x35 0240 6077 |`w | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00028000} 0241 4800 |H | Short_Literal 0x0 0242 e430 | 0 | Load 0x2,0x30 0243 e00a | | Load 0x0,0xa 0244 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0245 00d1 | | Pop_Control Pop_Count_1 0246 c438 | 8 | Store 0x2,0x38 0247 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "Directory manager GET_VERSION" 0249 e438 | 8 | Load 0x2,0x38 024a 843e | > | Call 0x2,0x3e 024b e435 | 5 | Load 0x2,0x35 024c e432 | 2 | Load 0x2,0x32 024d e00a | | Load 0x0,0xa 024e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 024f 0a01 | | Execute_Immediate Plus,0x1 0250 c433 | 3 | Store 0x2,0x33 0251 e5fd | | Load 0x2,-0x3 0252 0f00 | | Execute_Immediate Equal,0x0 0253 e5fe | | Load 0x2,-0x2 0254 0279 | y | Execute Discrete,And 0255 6808 |h | Jump_Zero 0x25e 0256 e407 | | Load 0x2,0x7 0257 4800 |H | Short_Literal 0x0 0258 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "Not committing Standard because of existing version" 025a 8217 | | Call 0x1,0x17 025b c407 | | Store 0x2,0x7 025c 4800 |H | Short_Literal 0x0 025d a406 | | Store_Unchecked 0x2,0x6 025e e430 | 0 | Load 0x2,0x30 025f e42e | . | Load 0x2,0x2e 0260 e00c | | Load 0x0,0xc 0261 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0262 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0263 e011 | | Load 0x0,0x11 0264 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0265 4800 |H | Short_Literal 0x0 0266 4801 |H | Short_Literal 0x1 0267 e435 | 5 | Load 0x2,0x35 0268 e42f | / | Load 0x2,0x2f 0269 e00c | | Load 0x0,0xc 026a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 026b c437 | 7 | Store 0x2,0x37 026c 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "Ada manager CLOSE" 026e e437 | 7 | Load 0x2,0x37 026f 843e | > | Call 0x2,0x3e 0270 e011 | | Load 0x0,0x11 0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0272 e435 | 5 | Load 0x2,0x35 0273 6044 |`D | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00028000} 0274 e433 | 3 | Load 0x2,0x33 0275 e42f | / | Load 0x2,0x2f 0276 e430 | 0 | Load 0x2,0x30 0277 e00a | | Load 0x0,0xa 0278 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0279 c438 | 8 | Store 0x2,0x38 027a 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "Directory Manager NEW_VERSION" 027c e438 | 8 | Load 0x2,0x38 027d 843e | > | Call 0x2,0x3e 027e e011 | | Load 0x0,0x11 027f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0280 e435 | 5 | Load 0x2,0x35 0281 6036 |`6 | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00028000} 0282 e433 | 3 | Load 0x2,0x33 0283 e430 | 0 | Load 0x2,0x30 0284 e00a | | Load 0x0,0xa 0285 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0286 c438 | 8 | Store 0x2,0x38 0287 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "Directory Manager SET_DEFAULT" 0289 e438 | 8 | Load 0x2,0x38 028a 843e | > | Call 0x2,0x3e 028b e435 | 5 | Load 0x2,0x35 028c 4801 |H | Short_Literal 0x1 028d e406 | | Load 0x2,0x6 028e e00f | | Load 0x0,0xf 028f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0290 c435 | 5 | Store 0x2,0x35 0291 e407 | | Load 0x2,0x7 0292 c5fa | | Store 0x2,-0x6 0293 4801 |H | Short_Literal 0x1 0294 a5fb | | Store_Unchecked 0x2,-0x5 0295 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0296 TRAP_0008: 0296 e026 | & | Load 0x0,0x26 0297 010f | | Execute Exception,Equal 0298 6809 |h | Jump_Zero 0x2a2 0299 e435 | 5 | Load 0x2,0x35 029a 4801 |H | Short_Literal 0x1 029b 4800 |H | Short_Literal 0x0 029c e00f | | Load 0x0,0xf 029d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029e c435 | 5 | Store 0x2,0x35 029f e407 | | Load 0x2,0x7 02a0 c5fa | | Store 0x2,-0x6 02a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02a2 e407 | | Load 0x2,0x7 02a3 4804 |H | Short_Literal 0x4 02a4 0092 04a6 | | Action Push_String_Extended,0x4a6 ; "Unhandled exception raised: " 02a6 4800 |H | Short_Literal 0x0 02a7 4801 |H | Short_Literal 0x1 02a8 e016 | | Load 0x0,0x16 02a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02aa 01cc | | Execute Vector,Catenate 02ab 8217 | | Call 0x1,0x17 02ac c407 | | Store 0x2,0x7 02ad e435 | 5 | Load 0x2,0x35 02ae 4801 |H | Short_Literal 0x1 02af 4800 |H | Short_Literal 0x0 02b0 e00f | | Load 0x0,0xf 02b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02b2 c435 | 5 | Store 0x2,0x35 02b3 e407 | | Load 0x2,0x7 02b4 c5fa | | Store 0x2,-0x6 02b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02b6 0000 0000 | | .XXX[0x2] 02b8 0000 0000 | | .LITERAL {0x00000000, 0x00028000} 02bc 0000 0000 | | .BLANK 0000[0x4] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 4801 |H | Short_Literal 0x1 02c4 e01c | | Load 0x0,0x1c 02c5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 02c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 6810 |h | Jump_Zero 0x2e5 02d5 e407 | | Load 0x2,0x7 02d6 4802 |H | Short_Literal 0x2 02d7 e7fe | | Load 0x3,-0x2 02d8 0092 04a7 | | Action Push_String_Extended,0x4a7 ; " failed with status " 02da 01cc | | Execute Vector,Catenate 02db e7ff | | Load 0x3,-0x1 02dc e011 | | Load 0x0,0x11 02dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02de 011c | | Execute Any,Convert_Unchecked 02df 1c01 | | Execute_Immediate Run_Utility,0x1 02e0 01cc | | Execute Vector,Catenate 02e1 8217 | | Call 0x1,0x17 02e2 c407 | | Store 0x2,0x7 02e3 4887 |H | Short_Literal 0x87 02e4 0257 | W | Execute Discrete,Raise 02e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e40c | | Load 0x2,0xc 02ec 00db | | Load_Top At_Offset_3 02ed 4975 |Iu | Short_Literal 0x175 02ee 00eb | | Load_Encached Diana_Cache 02ef 0098 | | Execute Package,Field_Read_Dynamic 02f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02f1 c40c | | Store 0x2,0xc 02f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f3 0000 0000 | | .BLANK 0000[0x5] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00db | | Load_Top At_Offset_3 02fc 00eb | | Load_Encached Diana_Cache 02fd 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 02fe 00db | | Load_Top At_Offset_3 02ff e01d | | Load 0x0,0x1d 0300 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0301 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0317 | | .CONST 0x0317 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b 4973 |Is | Short_Literal 0x173 030c 00eb | | Load_Encached Diana_Cache 030d 0098 | | Execute Package,Field_Read_Dynamic 030e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030f 02c7 | | Declare_Variable Any 0310 0092 04a8 | | Action Push_String_Extended,0x4a8 ; "ANY_TYPE" 0312 4973 |Is | Short_Literal 0x173 0313 00eb | | Load_Encached Diana_Cache 0314 0098 | | Execute Package,Field_Read_Dynamic 0315 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0316 a602 | | Store_Unchecked 0x3,0x2 0317 BODY_0308: 0317 e419 | | Load 0x2,0x19 0318 00d9 | | Load_Top At_Offset_1 0319 e40b | | Load 0x2,0xb 031a 4973 |Is | Short_Literal 0x173 031b 00eb | | Load_Encached Diana_Cache 031c 0098 | | Execute Package,Field_Read_Dynamic 031d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 031e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031f 0000 | | .XXX[0x1] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0330 | 0 | .CONST 0x0330 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0003 | | .CONST 0x0003 ; Number of locals 0323 INIT_0320: 0323 00ec | | Load_Encached Diana_Tree_Cache 0324 02c7 | | Declare_Variable Any 0325 00d8 | | Load_Top At_Offset_0 0326 1c00 | | Execute_Immediate Run_Utility,0x0 0327 00ec | | Load_Encached Diana_Tree_Cache 0328 02c7 | | Declare_Variable Any 0329 e7ff | | Load 0x3,-0x1 032a 00eb | | Load_Encached Diana_Cache 032b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 032c 4820 |H | Short_Literal 0x20 032d 00eb | | Load_Encached Diana_Cache 032e 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 032f a603 | | Store_Unchecked 0x3,0x3 0330 BODY_0320: 0330 4800 |H | Short_Literal 0x0 0331 00eb | | Load_Encached Diana_Cache 0332 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0333 00d9 | | Load_Top At_Offset_1 0334 4975 |Iu | Short_Literal 0x175 0335 00eb | | Load_Encached Diana_Cache 0336 0098 | | Execute Package,Field_Read_Dynamic 0337 180e | | Execute Package,Field_Execute,Field_Number 0xe 0338 4890 |H | Short_Literal 0x90 0339 00eb | | Load_Encached Diana_Cache 033a 187f | | Execute Package,Field_Execute,Field_Number 0x7f 033b 4837 |H7 | Short_Literal 0x37 033c 00eb | | Load_Encached Diana_Cache 033d 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 033e c602 | | Store 0x3,0x2 033f 00d9 | | Load_Top At_Offset_1 0340 843f | ? | Call 0x2,0x3f 0341 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034f | O | .CONST 0x034f ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0003 | | .CONST 0x0003 ; Number of locals 034b INIT_0348: 034b 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 034d 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 034f BODY_0348: 034f 0092 04a9 | | Action Push_String_Extended,0x4a9 ; "STANDARD" 0351 00eb | | Load_Encached Diana_Cache 0352 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0353 4829 |H) | Short_Literal 0x29 0354 00eb | | Load_Encached Diana_Cache 0355 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0356 c408 | | Store 0x2,0x8 0357 00ee | | Load_Encached Diana_Seq_Type_Cache 0358 488c |H | Short_Literal 0x8c 0359 00eb | | Load_Encached Diana_Cache 035a 187f | | Execute Package,Field_Execute,Field_Number 0x7f 035b 00ee | | Load_Encached Diana_Seq_Type_Cache 035c 488c |H | Short_Literal 0x8c 035d 00eb | | Load_Encached Diana_Cache 035e 187f | | Execute Package,Field_Execute,Field_Number 0x7f 035f 487c |H| | Short_Literal 0x7c 0360 00eb | | Load_Encached Diana_Cache 0361 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 0362 c40a | | Store 0x2,0xa 0363 e40a | | Load 0x2,0xa 0364 e408 | | Load 0x2,0x8 0365 483e |H> | Short_Literal 0x3e 0366 00eb | | Load_Encached Diana_Cache 0367 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 0368 c409 | | Store 0x2,0x9 0369 4801 |H | Short_Literal 0x1 036a e409 | | Load 0x2,0x9 036b e01d | | Load 0x0,0x1d 036c 1890 | | Execute Package,Field_Execute,Field_Number 0x90 036d 00ee | | Load_Encached Diana_Seq_Type_Cache 036e 4895 |H | Short_Literal 0x95 036f 00eb | | Load_Encached Diana_Cache 0370 187f | | Execute Package,Field_Execute,Field_Number 0x7f 0371 e409 | | Load 0x2,0x9 0372 8603 | | Call 0x3,0x3 0373 4975 |Iu | Short_Literal 0x175 0374 00eb | | Load_Encached Diana_Cache 0375 0098 | | Execute Package,Field_Read_Dynamic 0376 180e | | Execute Package,Field_Execute,Field_Number 0xe 0377 4884 |H | Short_Literal 0x84 0378 00eb | | Load_Encached Diana_Cache 0379 187f | | Execute Package,Field_Execute,Field_Number 0x7f 037a 48a8 |H | Short_Literal 0xa8 037b 00eb | | Load_Encached Diana_Cache 037c 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 037d c40b | | Store 0x2,0xb 037e 4801 |H | Short_Literal 0x1 037f e40b | | Load 0x2,0xb 0380 e01d | | Load 0x0,0x1d 0381 1887 | | Execute Package,Field_Execute,Field_Number 0x87 0382 4801 |H | Short_Literal 0x1 0383 e40b | | Load 0x2,0xb 0384 e01d | | Load 0x0,0x1d 0385 188d | | Execute Package,Field_Execute,Field_Number 0x8d 0386 4874 |Ht | Short_Literal 0x74 0387 00eb | | Load_Encached Diana_Cache 0388 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0389 c40d | | Store 0x2,0xd 038a 0092 04aa | | Action Push_String_Extended,0x4aa ; "*UNIVERSAL_INTEGER*" 038c 00eb | | Load_Encached Diana_Cache 038d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 038e 482f |H/ | Short_Literal 0x2f 038f 00eb | | Load_Encached Diana_Cache 0390 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0391 c40e | | Store 0x2,0xe 0392 e40d | | Load 0x2,0xd 0393 e40e | | Load 0x2,0xe 0394 4966 |If | Short_Literal 0x166 0395 00eb | | Load_Encached Diana_Cache 0396 0096 | | Execute Package,Entry 0397 e40e | | Load 0x2,0xe 0398 00d8 | | Load_Top At_Offset_0 0399 496a |Ij | Short_Literal 0x16a 039a 00eb | | Load_Encached Diana_Cache 039b 0096 | | Execute Package,Entry 039c e40d | | Load 0x2,0xd 039d e43a | : | Load 0x2,0x3a 039e 180d | | Execute Package,Field_Execute,Field_Number 0xd 039f e40e | | Load 0x2,0xe 03a0 483b |H; | Short_Literal 0x3b 03a1 00eb | | Load_Encached Diana_Cache 03a2 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 03a3 843f | ? | Call 0x2,0x3f 03a4 4876 |Hv | Short_Literal 0x76 03a5 00eb | | Load_Encached Diana_Cache 03a6 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 03a7 c40f | | Store 0x2,0xf 03a8 0092 04ab | | Action Push_String_Extended,0x4ab ; "*UNIVERSAL_REAL*" 03aa 00eb | | Load_Encached Diana_Cache 03ab 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03ac 482f |H/ | Short_Literal 0x2f 03ad 00eb | | Load_Encached Diana_Cache 03ae 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 03af c410 | | Store 0x2,0x10 03b0 e40f | | Load 0x2,0xf 03b1 e410 | | Load 0x2,0x10 03b2 4966 |If | Short_Literal 0x166 03b3 00eb | | Load_Encached Diana_Cache 03b4 0096 | | Execute Package,Entry 03b5 e410 | | Load 0x2,0x10 03b6 00d8 | | Load_Top At_Offset_0 03b7 496a |Ij | Short_Literal 0x16a 03b8 00eb | | Load_Encached Diana_Cache 03b9 0096 | | Execute Package,Entry 03ba e40f | | Load 0x2,0xf 03bb e43a | : | Load 0x2,0x3a 03bc 180d | | Execute Package,Field_Execute,Field_Number 0xd 03bd e410 | | Load 0x2,0x10 03be 483b |H; | Short_Literal 0x3b 03bf 00eb | | Load_Encached Diana_Cache 03c0 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 03c1 843f | ? | Call 0x2,0x3f 03c2 4875 |Hu | Short_Literal 0x75 03c3 00eb | | Load_Encached Diana_Cache 03c4 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 03c5 c411 | | Store 0x2,0x11 03c6 0092 04ac | | Action Push_String_Extended,0x4ac ; "*UNIVERSAL_FIXED*" 03c8 00eb | | Load_Encached Diana_Cache 03c9 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03ca 482f |H/ | Short_Literal 0x2f 03cb 00eb | | Load_Encached Diana_Cache 03cc 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 03cd c412 | | Store 0x2,0x12 03ce e411 | | Load 0x2,0x11 03cf e412 | | Load 0x2,0x12 03d0 4966 |If | Short_Literal 0x166 03d1 00eb | | Load_Encached Diana_Cache 03d2 0096 | | Execute Package,Entry 03d3 e412 | | Load 0x2,0x12 03d4 00d8 | | Load_Top At_Offset_0 03d5 496a |Ij | Short_Literal 0x16a 03d6 00eb | | Load_Encached Diana_Cache 03d7 0096 | | Execute Package,Entry 03d8 e411 | | Load 0x2,0x11 03d9 e43a | : | Load 0x2,0x3a 03da 180d | | Execute Package,Field_Execute,Field_Number 0xd 03db e412 | | Load 0x2,0x12 03dc 483b |H; | Short_Literal 0x3b 03dd 00eb | | Load_Encached Diana_Cache 03de 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 03df 843f | ? | Call 0x2,0x3f 03e0 e404 | | Load 0x2,0x4 03e1 e403 | | Load 0x2,0x3 03e2 e402 | | Load 0x2,0x2 03e3 e43a | : | Load 0x2,0x3a 03e4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e5 e439 | 9 | Load 0x2,0x39 03e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e7 e439 | 9 | Load 0x2,0x39 03e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03e9 e439 | 9 | Load 0x2,0x39 03ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03eb e439 | 9 | Load 0x2,0x39 03ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ed 0092 04ad | | Action Push_String_Extended,0x4ad ; "CONSTRAINT_ERROR" 03ef 8442 | B | Call 0x2,0x42 03f0 0092 04ae | | Action Push_String_Extended,0x4ae ; "NUMERIC_ERROR" 03f2 8442 | B | Call 0x2,0x42 03f3 0092 04af | | Action Push_String_Extended,0x4af ; "STORAGE_ERROR" 03f5 8442 | B | Call 0x2,0x42 03f6 0092 04b0 | | Action Push_String_Extended,0x4b0 ; "TASKING_ERROR" 03f8 8442 | B | Call 0x2,0x42 03f9 0092 04b1 | | Action Push_String_Extended,0x4b1 ; "PROGRAM_ERROR" 03fb 8442 | B | Call 0x2,0x42 03fc e40a | | Load 0x2,0xa 03fd e408 | | Load 0x2,0x8 03fe 4963 |Ic | Short_Literal 0x163 03ff 00eb | | Load_Encached Diana_Cache 0400 0096 | | Execute Package,Entry 0401 e408 | | Load 0x2,0x8 0402 00d8 | | Load_Top At_Offset_0 0403 496a |Ij | Short_Literal 0x16a 0404 00eb | | Load_Encached Diana_Cache 0405 0096 | | Execute Package,Entry 0406 e40c | | Load 0x2,0xc 0407 e40a | | Load 0x2,0xa 0408 00eb | | Load_Encached Diana_Cache 0409 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 040a 00eb | | Load_Encached Diana_Cache 040b 1890 | | Execute Package,Field_Execute,Field_Number 0x90 040c 8441 | A | Call 0x2,0x41 040d 8602 | | Call 0x3,0x2 040e e5ff | | Load 0x2,-0x1 040f 680d |h | Jump_Zero 0x41d 0410 e5fc | | Load 0x2,-0x4 0411 e001 | | Load 0x0,0x1 0412 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0413 0092 04b2 | | Action Push_String_Extended,0x4b2 ; " Standard Tree" 0415 01cc | | Execute Vector,Catenate 0416 e01c | | Load 0x0,0x1c 0417 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0418 843b | ; | Call 0x2,0x3b 0419 4801 |H | Short_Literal 0x1 041a e40b | | Load 0x2,0xb 041b e43d | = | Load 0x2,0x3d 041c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 041d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 041e 0000 0000 | | .XXX[0x2] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0425 | % | .CONST 0x0425 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 029f 048b | | Declare_Subprogram INIT_0488,For_Call 0425 BODY_0420: 0425 e40a | | Load 0x2,0xa 0426 00eb | | Load_Encached Diana_Cache 0427 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 0428 8802 | | Call 0x4,0x2 0429 e40a | | Load 0x2,0xa 042a 00eb | | Load_Encached Diana_Cache 042b 18be | | Execute Package,Field_Execute,Field_Number 0xbe 042c 8802 | | Call 0x4,0x2 042d e42c | , | Load 0x2,0x2c 042e 00eb | | Load_Encached Diana_Cache 042f 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 0430 8802 | | Call 0x4,0x2 0431 e42c | , | Load 0x2,0x2c 0432 00eb | | Load_Encached Diana_Cache 0433 18be | | Execute Package,Field_Execute,Field_Number 0xbe 0434 8802 | | Call 0x4,0x2 0435 e409 | | Load 0x2,0x9 0436 4972 |Ir | Short_Literal 0x172 0437 00eb | | Load_Encached Diana_Cache 0438 0098 | | Execute Package,Field_Read_Dynamic 0439 180f | | Execute Package,Field_Execute,Field_Number 0xf 043a e408 | | Load 0x2,0x8 043b e409 | | Load 0x2,0x9 043c 4972 |Ir | Short_Literal 0x172 043d 00eb | | Load_Encached Diana_Cache 043e 0098 | | Execute Package,Field_Read_Dynamic 043f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0440 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0441 0000 0000 | | .BLANK 0000[0x7] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 0464 | d | .CONST 0x0464 ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0005 | | .CONST 0x0005 ; Number of locals 044b INIT_0448: 044b 00ec | | Load_Encached Diana_Tree_Cache 044c 02c7 | | Declare_Variable Any 044d 4817 |H | Short_Literal 0x17 044e 00eb | | Load_Encached Diana_Cache 044f 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0450 a802 | | Store_Unchecked 0x4,0x2 0451 00ec | | Load_Encached Diana_Tree_Cache 0452 02c7 | | Declare_Variable Any 0453 4808 |H | Short_Literal 0x8 0454 00eb | | Load_Encached Diana_Cache 0455 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0456 a803 | | Store_Unchecked 0x4,0x3 0457 00ec | | Load_Encached Diana_Tree_Cache 0458 02c7 | | Declare_Variable Any 0459 4840 |H@ | Short_Literal 0x40 045a 00eb | | Load_Encached Diana_Cache 045b 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 045c a804 | | Store_Unchecked 0x4,0x4 045d 4820 |H | Short_Literal 0x20 045e e5fc | | Load 0x2,-0x4 045f 8214 | | Call 0x1,0x14 0460 00e0 | | Load_Encached Standard_Cache 0461 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0462 e01e | | Load 0x0,0x1e 0463 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0464 BODY_0448: 0464 0092 04b3 | | Action Push_String_Extended,0x4b3 ; "VERSION" 0466 00eb | | Load_Encached Diana_Cache 0467 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0468 e802 | | Load 0x4,0x2 0469 00eb | | Load_Encached Diana_Cache 046a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 046b 00d8 | | Load_Top At_Offset_0 046c 00eb | | Load_Encached Diana_Cache 046d 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 046e 00db | | Load_Top At_Offset_3 046f 00eb | | Load_Encached Diana_Cache 0470 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0471 00db | | Load_Top At_Offset_3 0472 00da | | Load_Top At_Offset_2 0473 4930 |I0 | Short_Literal 0x130 0474 00eb | | Load_Encached Diana_Cache 0475 0096 | | Execute Package,Entry 0476 00da | | Load_Top At_Offset_2 0477 4975 |Iu | Short_Literal 0x175 0478 00eb | | Load_Encached Diana_Cache 0479 0098 | | Execute Package,Field_Read_Dynamic 047a 180e | | Execute Package,Field_Execute,Field_Number 0xe 047b 4893 |H | Short_Literal 0x93 047c 00eb | | Load_Encached Diana_Cache 047d 187f | | Execute Package,Field_Execute,Field_Number 0x7f 047e 00da | | Load_Top At_Offset_2 047f 493a |I: | Short_Literal 0x13a 0480 00eb | | Load_Encached Diana_Cache 0481 0096 | | Execute Package,Entry 0482 00d9 | | Load_Top At_Offset_1 0483 00ca | | Action Exit_Nullary_Function 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 00da | | Load_Top At_Offset_2 048c 4972 |Ir | Short_Literal 0x172 048d 00eb | | Load_Encached Diana_Cache 048e 0098 | | Execute Package,Field_Read_Dynamic 048f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0490 00eb | | Load_Encached Diana_Cache 0491 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0492 00db | | Load_Top At_Offset_3 0493 4976 |Iv | Short_Literal 0x176 0494 00eb | | Load_Encached Diana_Cache 0495 0098 | | Execute Package,Field_Read_Dynamic 0496 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0497 00db | | Load_Top At_Offset_3 0498 4972 |Ir | Short_Literal 0x172 0499 00eb | | Load_Encached Diana_Cache 049a 0098 | | Execute Package,Field_Read_Dynamic 049b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 049c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 049d ; -------------------------------------------------------------------------------------- 049d ; STRING TABLE 049d ; -------------------------------------------------------------------------------------- 049d 0030 | 0 | .STRTAB 0x0030->0x04b5 ; "Could not find standard environment" 049e 0051 | Q | .STRTAB 0x0051->0x04c6 ; "Ada manager CREATE" 049f 0061 | a | .STRTAB 0x0061->0x04cf ; "Ada manager OPEN" 04a0 006f | o | .STRTAB 0x006f->0x04d7 ; "Directory manager CREATE" 04a1 0085 | | .STRTAB 0x0085->0x04e3 ; "Directory manager GET_VERSION" 04a2 00a0 | | .STRTAB 0x00a0->0x04f2 ; "Not committing Standard because of existing version" 04a3 00d1 | | .STRTAB 0x00d1->0x050b ; "Ada manager CLOSE" 04a4 00e0 | | .STRTAB 0x00e0->0x0514 ; "Directory Manager NEW_VERSION" 04a5 00fb | | .STRTAB 0x00fb->0x0522 ; "Directory Manager SET_DEFAULT" 04a6 0116 | | .STRTAB 0x0116->0x0531 ; "Unhandled exception raised: " 04a7 0130 | 0 | .STRTAB 0x0130->0x053f ; " failed with status " 04a8 0142 | B | .STRTAB 0x0142->0x0549 ; "ANY_TYPE" 04a9 0148 | H | .STRTAB 0x0148->0x054d ; "STANDARD" 04aa 014e | N | .STRTAB 0x014e->0x0551 ; "*UNIVERSAL_INTEGER*" 04ab 015f | _ | .STRTAB 0x015f->0x055a ; "*UNIVERSAL_REAL*" 04ac 016d | m | .STRTAB 0x016d->0x0562 ; "*UNIVERSAL_FIXED*" 04ad 017c | | | .STRTAB 0x017c->0x056b ; "CONSTRAINT_ERROR" 04ae 018a | | .STRTAB 0x018a->0x0573 ; "NUMERIC_ERROR" 04af 0195 | | .STRTAB 0x0195->0x0579 ; "STORAGE_ERROR" 04b0 01a0 | | .STRTAB 0x01a0->0x0580 ; "TASKING_ERROR" 04b1 01ab | | .STRTAB 0x01ab->0x0586 ; "PROGRAM_ERROR" 04b2 01b6 | | .STRTAB 0x01b6->0x058d ; " Standard Tree" 04b3 01c2 | | .STRTAB 0x01c2->0x0594 ; "VERSION" 04b4 01c7 | | .STREND 0x01c7->0x0597 04b5 436f 756c |Coul| .STRTAB_STRINGS 0598 ; -------------------------------------------------------------------------------------- 0598 ; Debug Table 0598 ; -------------------------------------------------------------------------------------- 0598 0004 000d | | .DEBUG4 0x0004,0x000d,0xd568,0x0000,0x0001,0x0000 059e 0cb6 a90b | | .XXX[0x24] 05a0 8c53 0d00 | S | 05a2 00a3 4d6c | Ml| 05a4 9701 0010 | | 05a6 000b 3000 | 0 | 05a8 000c d268 | h| 05aa 0000 8000 | | 05ac 0000 9002 | | 05ae 8000 0000 | | 05b0 8000 0020 | | 05b2 0000 0110 | | 05b4 0000 0000 | | 05b6 8000 0005 | | 05b8 2000 0403 | | 05ba f457 a000 | W | 05bc 0303 f44d | M| 05be 2000 0303 | | 05c0 f44d 8000 | M | 05c2 0000 0000 | | .BLANK 0000[0x5] 05c7 2000 0303 | | .XXX[0x3] 05c9 f44e | N | 05ca 0000 0000 | | .BLANK 0000[0xc] 05d6 0080 0196 | | .XXX[0x3] 05d8 d580 | | 05d9 0000 0000 | | .BLANK 0000[0x27]