|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 e00a | | Load 0x0,0xa
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 e00b | | Load 0x0,0xb
00b8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ba 02c7 | | Declare_Variable Any
00bb e00c | | Load 0x0,0xc
00bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bd 4800 |H | Short_Literal 0x0
00be e00b | | Load 0x0,0xb
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 e00b | | Load 0x0,0xb
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 e00b | | Load 0x0,0xb
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 e00d | | Load 0x0,0xd
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 e00d | | Load 0x0,0xd
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 e00d | | Load 0x0,0xd
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 e00d | | Load 0x0,0xd
00dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00de e00e | | Load 0x0,0xe
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 e010 | | Load 0x0,0x10
00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ea e010 | | Load 0x0,0x10
00eb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ec e010 | | Load 0x0,0x10
00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ee 4800 |H | Short_Literal 0x0
00ef e011 | | Load 0x0,0x11
00f0 02a0 | | Declare_Subprogram Null_Subprogram
00f1 038e | | Declare_Type Package,Defined
00f2 0387 | | Declare_Variable Package
00f3 4800 |H | Short_Literal 0x0
00f4 e012 | | Load 0x0,0x12
00f5 02a0 | | Declare_Subprogram Null_Subprogram
00f6 038e | | Declare_Type Package,Defined
00f7 0387 | | Declare_Variable Package
00f8 029e 02c3 | | Declare_Subprogram For_Call,Unelaborated,INIT_02c0
00fa 029e 02cb | | Declare_Subprogram For_Call,Unelaborated,INIT_02c8
00fc e013 | | Load 0x0,0x13
00fd e014 | | Load 0x0,0x14
00fe e015 | | Load 0x0,0x15
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 For_Call,INIT_02d0
0116 029f 02eb | | Declare_Subprogram For_Call,INIT_02e8
0118 029f 02fb | | Declare_Subprogram For_Call,INIT_02f8
011a 029f 030b | | Declare_Subprogram For_Call,INIT_0308
011c 029f 0323 | #| Declare_Subprogram For_Call,INIT_0320
011e e016 | | Load 0x0,0x16
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 e017 | | Load 0x0,0x17
0144 4813 |H | Short_Literal 0x13
0145 4802 |H | Short_Literal 0x2
0146 0099 | | Action Reference_Dynamic
0147 e018 | | Load 0x0,0x18
0148 e019 | | Load 0x0,0x19
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 e01a | | Load 0x0,0x1a
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 e016 | | Load 0x0,0x16
019b a01b | | Reference 0x0,0x1b
019c e01c | | Load 0x0,0x1c
019d e01d | | Load 0x0,0x1d
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 e00a | | Load 0x0,0xa
01a8 e017 | | Load 0x0,0x17
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 e01e | | Load 0x0,0x1e
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 For_Call,INIT_0348
01bb BODY_0008:
01bb 4800 |H | Short_Literal 0x0
01bc a5fb | | Store_Unchecked 0x2,-0x5
01bd e00c | | Load 0x0,0xc
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 e00e | | Load 0x0,0xe
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 e01f | | Load 0x0,0x1f
01d1 0257 | W | Execute Discrete,Raise
01d2 e434 | 4 | Load 0x2,0x34
01d3 e00e | | Load 0x0,0xe
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 e010 | | Load 0x0,0x10
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 e020 | | Load 0x0,0x20
01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01df e435 | 5 | Load 0x2,0x35
01e0 4800 |H | Short_Literal 0x0
01e1 e021 | ! | Load 0x0,0x21
01e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e3 4800 |H | Short_Literal 0x0
01e4 e00b | | Load 0x0,0xb
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 e010 | | Load 0x0,0x10
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 e00b | | Load 0x0,0xb
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 e00b | | Load 0x0,0xb
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 e00c | | Load 0x0,0xc
0203 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0204 4800 |H | Short_Literal 0x0
0205 e42e | . | Load 0x2,0x2e
0206 e00b | | Load 0x0,0xb
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 e00b | | Load 0x0,0xb
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 e00b | | Load 0x0,0xb
0212 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0213 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0214 e00c | | Load 0x0,0xc
0215 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0216 4800 |H | Short_Literal 0x0
0217 e42d | - | Load 0x2,0x2d
0218 e00b | | Load 0x0,0xb
0219 1b13 | | Execute Package,Field_Read,Field_Number 0x13
021a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
021b e010 | | Load 0x0,0x10
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 e00d | | Load 0x0,0xd
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 e010 | | Load 0x0,0x10
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 e00b | | Load 0x0,0xb
0230 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0231 e00d | | Load 0x0,0xd
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 e010 | | Load 0x0,0x10
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 e00d | | Load 0x0,0xd
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 e00d | | Load 0x0,0xd
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 e00b | | Load 0x0,0xb
0261 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0262 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0263 e010 | | Load 0x0,0x10
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 e00b | | Load 0x0,0xb
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 e010 | | Load 0x0,0x10
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 e00d | | Load 0x0,0xd
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 e010 | | Load 0x0,0x10
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 e00d | | Load 0x0,0xd
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_Subprogram 0x5
0296 TRAP_0008:
0296 e01f | | Load 0x0,0x1f
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_Subprogram 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 e022 | " | Load 0x0,0x22
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_Subprogram 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 e015 | | Load 0x0,0x15
02c5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02c6 4501 |E | Exit_Subprogram 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_Subprogram 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 e010 | | Load 0x0,0x10
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_Subprogram 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_Subprogram 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 e016 | | Load 0x0,0x16
0300 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0301 4503 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0420
034d 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
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 e016 | | Load 0x0,0x16
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 e016 | | Load 0x0,0x16
0381 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0382 4801 |H | Short_Literal 0x1
0383 e40b | | Load 0x2,0xb
0384 e016 | | Load 0x0,0x16
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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 e015 | | Load 0x0,0x15
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_Subprogram 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 For_Call,INIT_0488
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_Subprogram 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 e017 | | Load 0x0,0x17
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,Field_Execute_Dynamic
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,Field_Execute_Dynamic
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_Subprogram 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 000c | | .DEBUG4 0x0004,0x000c,0x001b,0x0000,0x0001,0x0000
059e 0000 0000 | | .BLANK 0000[0x8]
05a6 0100 0000 | | .XXX[0xd]
05a8 a000 0000 | |
05aa 0000 0001 | |
05ac 0000 000b | |
05ae 0000 0000 | |
05b0 0400 0001 | |
05b2 4000 |@ |
05b3 0000 0000 | | .BLANK 0000[0x27]
05da 0200 0001 | | .XXX[0xd]
05dc 4000 0000 |@ |
05de 0000 0002 | |
05e0 0000 0016 | |
05e2 0000 0000 | |
05e4 0800 0002 | |
05e6 8000 | |
05e7 0000 0000 | | .BLANK 0000[0x19]