|
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: 2048 (0x800) 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 0348 | H | .CONST 0x0348 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003e | > | .CONST 0x003e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 001a c218 | | Store 0x1,0x18 001b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001d c219 | | Store 0x1,0x19 001e 00bf | | Action Accept_Activation 001f 4800 |H | Short_Literal 0x0 0020 4801 |H | Short_Literal 0x1 0021 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0023 03fd | | Declare_Type Discrete,Defined 0024 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0026 a001 | | Store_Unchecked 0x0,0x1 0027 00c6 | | Action Check_Subprogram_Elaborated 0028 00ec | | Load_Encached Diana_Tree_Cache 0029 00e4 | | Load_Encached Positive_Cache 002a 49a0 |I | Short_Literal 0x1a0 002b 00eb | | Load_Encached Diana_Cache 002c 0098 | | Execute Package,Field_Read_Dynamic 002d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 002e e002 | | Load 0x0,0x2 002f e003 | | Load 0x0,0x3 0030 4800 |H | Short_Literal 0x0 0031 0007 | | Action Break_Optional 0032 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 0034 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0036 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 0038 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 003a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 003b 00c7 | | Action Elaborate_Subprogram 003c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 003d 00c7 | | Action Elaborate_Subprogram 003e BODY_0008: 003e 00bc | | Action Signal_Activated 003f 00bb | | Action Signal_Completion 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 006c | l | .CONST 0x006c ; Address of begin 0041 0091 | | .CONST 0x0091 ; Address of exception handler 0042 0008 | | .CONST 0x0008 ; Number of locals 0043 INIT_0040: 0043 00f1 | | Load_Encached Diana_Temp_Seq 0044 02c7 | | Declare_Variable Any 0045 00f1 | | Load_Encached Diana_Temp_Seq 0046 a402 | | Store_Unchecked 0x2,0x2 0047 e004 | | Load 0x0,0x4 0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0049 02c7 | | Declare_Variable Any 004a 00d8 | | Load_Top At_Offset_0 004b 1c00 | | Execute_Immediate Run_Utility,0x0 004c e005 | | Load 0x0,0x5 004d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 004e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 004f 02c7 | | Declare_Variable Any 0050 4800 |H | Short_Literal 0x0 0051 4800 |H | Short_Literal 0x0 0052 4801 |H | Short_Literal 0x1 0053 e403 | | Load 0x2,0x3 0054 e5fc | | Load 0x2,-0x4 0055 e006 | | Load 0x0,0x6 0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0057 e007 | | Load 0x0,0x7 0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0059 e005 | | Load 0x0,0x5 005a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 005b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 005c a404 | | Store_Unchecked 0x2,0x4 005d e008 | | Load 0x0,0x8 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f e005 | | Load 0x0,0x5 0060 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0061 02c7 | | Declare_Variable Any 0062 e5ff | | Load 0x2,-0x1 0063 00db | | Load_Top At_Offset_3 0064 e005 | | Load 0x0,0x5 0065 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0066 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0067 a406 | | Store_Unchecked 0x2,0x6 0068 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 006a 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 006c BODY_0040: 006c 4800 |H | Short_Literal 0x0 006d a5fb | | Store_Unchecked 0x2,-0x5 006e e403 | | Load 0x2,0x3 006f e004 | | Load 0x0,0x4 0070 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0071 7007 |p | Jump_Nonzero 0x79 0072 e403 | | Load 0x2,0x3 0073 e004 | | Load 0x0,0x4 0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0075 0c02 | | Execute_Immediate Greater_Equal,0x2 0076 6802 |h | Jump_Zero 0x79 0077 e009 | | Load 0x0,0x9 0078 0257 | W | Execute Discrete,Raise 0079 e5fd | | Load 0x2,-0x3 007a 6806 |h | Jump_Zero 0x81 007b e402 | | Load 0x2,0x2 007c e5ff | | Load 0x2,-0x1 007d e406 | | Load 0x2,0x6 007e 8226 | & | Call 0x1,0x26 007f c402 | | Store 0x2,0x2 0080 780a |x | Jump 0x8b 0081 e402 | | Load 0x2,0x2 0082 e404 | | Load 0x2,0x4 0083 e406 | | Load 0x2,0x6 0084 8225 | % | Call 0x1,0x25 0085 c402 | | Store 0x2,0x2 0086 e402 | | Load 0x2,0x2 0087 e404 | | Load 0x2,0x4 0088 e406 | | Load 0x2,0x6 0089 8224 | $ | Call 0x1,0x24 008a c402 | | Store 0x2,0x2 008b 8407 | | Call 0x2,0x7 008c e404 | | Load 0x2,0x4 008d e005 | | Load 0x0,0x5 008e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 008f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0090 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0091 TRAP_0040: 0091 e009 | | Load 0x0,0x9 0092 010f | | Execute Exception,Equal 0093 6802 |h | Jump_Zero 0x96 0094 8408 | | Call 0x2,0x8 0095 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0096 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "Ddb_Registration.Unregister_Dependencies" 0098 e00a | | Load 0x0,0xa 0099 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009a a5fb | | Store_Unchecked 0x2,-0x5 009b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00cc | | .CONST 0x00cc ; Address of begin 00a1 00ff | | .CONST 0x00ff ; Address of exception handler 00a2 0008 | | .CONST 0x0008 ; Number of locals 00a3 INIT_00a0: 00a3 00f1 | | Load_Encached Diana_Temp_Seq 00a4 02c7 | | Declare_Variable Any 00a5 00f1 | | Load_Encached Diana_Temp_Seq 00a6 a402 | | Store_Unchecked 0x2,0x2 00a7 e004 | | Load 0x0,0x4 00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a9 02c7 | | Declare_Variable Any 00aa 00d8 | | Load_Top At_Offset_0 00ab 1c00 | | Execute_Immediate Run_Utility,0x0 00ac e005 | | Load 0x0,0x5 00ad 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00af 02c7 | | Declare_Variable Any 00b0 4800 |H | Short_Literal 0x0 00b1 4800 |H | Short_Literal 0x0 00b2 4801 |H | Short_Literal 0x1 00b3 e403 | | Load 0x2,0x3 00b4 e5fc | | Load 0x2,-0x4 00b5 e006 | | Load 0x0,0x6 00b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b7 e007 | | Load 0x0,0x7 00b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b9 e005 | | Load 0x0,0x5 00ba 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00bc a404 | | Store_Unchecked 0x2,0x4 00bd e008 | | Load 0x0,0x8 00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bf e005 | | Load 0x0,0x5 00c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c1 02c7 | | Declare_Variable Any 00c2 e5ff | | Load 0x2,-0x1 00c3 00db | | Load_Top At_Offset_3 00c4 e005 | | Load 0x0,0x5 00c5 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 00c6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c7 a406 | | Store_Unchecked 0x2,0x6 00c8 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 00ca 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 00cc BODY_00a0: 00cc e00b | | Load 0x0,0xb 00cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ce 4801 |H | Short_Literal 0x1 00cf 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Ddb_Registration.Unregister_Dependencies starting" 00d1 e00c | | Load 0x0,0xc 00d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d3 4800 |H | Short_Literal 0x0 00d4 a5fb | | Store_Unchecked 0x2,-0x5 00d5 e403 | | Load 0x2,0x3 00d6 e004 | | Load 0x0,0x4 00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d8 7007 |p | Jump_Nonzero 0xe0 00d9 e403 | | Load 0x2,0x3 00da e004 | | Load 0x0,0x4 00db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dc 0c02 | | Execute_Immediate Greater_Equal,0x2 00dd 6802 |h | Jump_Zero 0xe0 00de e009 | | Load 0x0,0x9 00df 0257 | W | Execute Discrete,Raise 00e0 e5fd | | Load 0x2,-0x3 00e1 6806 |h | Jump_Zero 0xe8 00e2 e402 | | Load 0x2,0x2 00e3 e5ff | | Load 0x2,-0x1 00e4 e406 | | Load 0x2,0x6 00e5 8226 | & | Call 0x1,0x26 00e6 c402 | | Store 0x2,0x2 00e7 780a |x | Jump 0xf2 00e8 e402 | | Load 0x2,0x2 00e9 e404 | | Load 0x2,0x4 00ea e406 | | Load 0x2,0x6 00eb 8225 | % | Call 0x1,0x25 00ec c402 | | Store 0x2,0x2 00ed e402 | | Load 0x2,0x2 00ee e404 | | Load 0x2,0x4 00ef e406 | | Load 0x2,0x6 00f0 8224 | $ | Call 0x1,0x24 00f1 c402 | | Store 0x2,0x2 00f2 8407 | | Call 0x2,0x7 00f3 e404 | | Load 0x2,0x4 00f4 e005 | | Load 0x0,0x5 00f5 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 00f6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f7 e00b | | Load 0x0,0xb 00f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f9 4801 |H | Short_Literal 0x1 00fa 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "Ddb_Registration.Unregister_Dependencies finished" 00fc e00c | | Load 0x0,0xc 00fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ff TRAP_00a0: 00ff e009 | | Load 0x0,0x9 0100 010f | | Execute Exception,Equal 0101 6802 |h | Jump_Zero 0x104 0102 8408 | | Call 0x2,0x8 0103 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0104 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "Ddb_Registration.Unregister_Dependencies" 0106 e00a | | Load 0x0,0xa 0107 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0108 a5fb | | Store_Unchecked 0x2,-0x5 0109 4505 |E | Exit_Suprogram New_Top_Offset 0x5 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4607 |F | Jump_Case 0x8 0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0115 7806 |x | Jump 0x11c ; case 0x1 0116 7809 |x | Jump 0x120 ; case 0x2 0117 780d |x | Jump 0x125 ; case 0x3 0118 7810 |x | Jump 0x129 ; case 0x4 0119 7811 |x | Jump 0x12b ; case 0x5 011a 7812 |x | Jump 0x12d ; case 0x6 011b 7815 |x | Jump 0x131 ; case 0x7 011c 00da | | Load_Top At_Offset_2 011d 0091 02e0 | | Action Push_String_Extended_Indexed,0x2e0 ; "INSERT" 011f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0120 00db | | Load_Top At_Offset_3 0121 00db | | Load_Top At_Offset_3 0122 00e0 | | Load_Encached Standard_Cache 0123 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0125 00da | | Load_Top At_Offset_2 0126 00e0 | | Load_Encached Standard_Cache 0127 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0128 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0129 00db | | Load_Top At_Offset_3 012a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012b 00db | | Load_Top At_Offset_3 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d e21a | | Load 0x1,0x1a 012e 00dc | | Load_Top At_Offset_4 012f 0267 | g | Execute Discrete,Predecessor 0130 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0131 e21a | | Load 0x1,0x1a 0132 00dc | | Load_Top At_Offset_4 0133 0268 | h | Execute Discrete,Successor 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c e008 | | Load 0x0,0x8 013d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 013e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 013f e5fe | | Load 0x2,-0x2 0140 e008 | | Load 0x0,0x8 0141 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0142 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0143 01c1 | | Execute Vector,Less 0144 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0151 | Q | .CONST 0x0151 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b 00f1 | | Load_Encached Diana_Temp_Seq 014c 02c7 | | Declare_Variable Any 014d 00db | | Load_Top At_Offset_3 014e a402 | | Store_Unchecked 0x2,0x2 014f 00e2 | | Load_Encached Integer_Cache 0150 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0151 BODY_0148: 0151 00cf | | Action Mark_Auxiliary 0152 e5fe | | Load 0x2,-0x2 0153 01d9 | | Execute Vector,Reverse_Bounds 0154 0263 | c | Execute Discrete,Above_Bound 0155 700c |p | Jump_Nonzero 0x162 0156 e402 | | Load 0x2,0x2 0157 0217 | | Execute Heap_Access,All_Reference 0158 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0159 00d9 | | Load_Top At_Offset_1 015a e5fe | | Load 0x2,-0x2 015b 01d6 | | Execute Vector,Field_Write 015c e402 | | Load 0x2,0x2 015d 0217 | | Execute Heap_Access,All_Reference 015e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015f c402 | | Store 0x2,0x2 0160 00c8 | | Action Pop_Auxiliary_Range 0161 3ff4 |? | Loop_Increasing 0x156 0162 00ce | | Action Pop_Auxiliary 0163 00d9 | | Load_Top At_Offset_1 0164 6801 |h | Jump_Zero 0x166 0165 0887 | | Execute_Immediate Raise,0x87 0166 00d8 | | Load_Top At_Offset_0 0167 e5fe | | Load 0x2,-0x2 0168 e21c | | Load 0x1,0x1c 0169 e21d | | Load 0x1,0x1d 016a e21e | | Load 0x1,0x1e 016b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 016c 1d20 | | Execute_Immediate Reference_Lex_1,0x20 016d 8001 | | Call 0x0,0x1 016e 00d1 | | Pop_Control Pop_Count_1 016f 0059 | Y | Store_Top Discrete,At_Offset_1 0170 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0181 | | .CONST 0x0181 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e00d | | Load 0x0,0xd 017d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 017e e00d | | Load 0x0,0xd 017f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0180 0216 | | Execute Heap_Access,Convert 0181 BODY_0178: 0181 00cf | | Action Mark_Auxiliary 0182 781e |x | Jump 0x1a1 0183 00d9 | | Load_Top At_Offset_1 0184 0217 | | Execute Heap_Access,All_Reference 0185 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0186 6815 |h | Jump_Zero 0x19c 0187 e5fe | | Load 0x2,-0x2 0188 e005 | | Load 0x0,0x5 0189 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 018a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 018b 00da | | Load_Top At_Offset_2 018c 0217 | | Execute Heap_Access,All_Reference 018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018e e00e | | Load 0x0,0xe 018f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0190 680b |h | Jump_Zero 0x19c 0191 e5fd | | Load 0x2,-0x3 0192 00da | | Load_Top At_Offset_2 0193 0217 | | Execute Heap_Access,All_Reference 0194 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0195 4976 |Iv | Short_Literal 0x176 0196 00eb | | Load_Encached Diana_Cache 0197 0098 | | Execute Package,Field_Read_Dynamic 0198 180f | | Execute Package,Field_Execute,Field_Number 0xf 0199 00eb | | Load_Encached Diana_Cache 019a 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 019b c5fd | | Store 0x2,-0x3 019c 00d9 | | Load_Top At_Offset_1 019d 0217 | | Execute Heap_Access,All_Reference 019e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 019f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01a0 00c9 | | Action Pop_Auxiliary_Loop 01a1 00d9 | | Load_Top At_Offset_1 01a2 77e0 |w | Jump_Nonzero 0x183 01a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b1 | | .CONST 0x01b1 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e00d | | Load 0x0,0xd 01ac 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 01ad 00ec | | Load_Encached Diana_Tree_Cache 01ae 02c7 | | Declare_Variable Any 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 BODY_01a8: 01b1 e5ff | | Load 0x2,-0x1 01b2 e00d | | Load 0x0,0xd 01b3 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01b4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01b5 00cf | | Action Mark_Auxiliary 01b6 780f |x | Jump 0x1c6 01b7 e5fd | | Load 0x2,-0x3 01b8 00db | | Load_Top At_Offset_3 01b9 0217 | | Execute Heap_Access,All_Reference 01ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bb 00eb | | Load_Encached Diana_Cache 01bc 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 01bd c5fd | | Store 0x2,-0x3 01be 00da | | Load_Top At_Offset_2 01bf 0217 | | Execute Heap_Access,All_Reference 01c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c1 e00d | | Load 0x0,0xd 01c2 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 01c3 0216 | | Execute Heap_Access,Convert 01c4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01c5 00c9 | | Action Pop_Auxiliary_Loop 01c6 00da | | Load_Top At_Offset_2 01c7 77ef |w | Jump_Nonzero 0x1b7 01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d6 | | .CONST 0x01d6 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 e00d | | Load 0x0,0xd 01d5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01d6 BODY_01d0: 01d6 00cf | | Action Mark_Auxiliary 01d7 00d9 | | Load_Top At_Offset_1 01d8 01d9 | | Execute Vector,Reverse_Bounds 01d9 0263 | c | Execute Discrete,Above_Bound 01da 700f |p | Jump_Nonzero 0x1ea 01db e5fe | | Load 0x2,-0x2 01dc 00d9 | | Load_Top At_Offset_1 01dd e402 | | Load 0x2,0x2 01de 01d7 | | Execute Vector,Field_Read 01df 012e | . | Execute Any,Not_Equal 01e0 6807 |h | Jump_Zero 0x1e8 01e1 e5fd | | Load 0x2,-0x3 01e2 00d9 | | Load_Top At_Offset_1 01e3 e402 | | Load 0x2,0x2 01e4 01d7 | | Execute Vector,Field_Read 01e5 00eb | | Load_Encached Diana_Cache 01e6 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 01e7 c5fd | | Store 0x2,-0x3 01e8 00c8 | | Action Pop_Auxiliary_Range 01e9 3ff1 |? | Loop_Increasing 0x1db 01ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 0200 | | .CONST 0x0200 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 4801 |H | Short_Literal 0x1 01f4 e402 | | Load 0x2,0x2 01f5 4975 |Iu | Short_Literal 0x175 01f6 00eb | | Load_Encached Diana_Cache 01f7 0098 | | Execute Package,Field_Read_Dynamic 01f8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 01f9 49a0 |I | Short_Literal 0x1a0 01fa 00eb | | Load_Encached Diana_Cache 01fb 0098 | | Execute Package,Field_Read_Dynamic 01fc 035b | [ | Declare_Type Array,Constrained 01fd 0337 | 7 | Declare_Variable Array 01fe 00d8 | | Load_Top At_Offset_0 01ff 1c00 | | Execute_Immediate Run_Utility,0x0 0200 BODY_01f0: 0200 00d8 | | Load_Top At_Offset_0 0201 e402 | | Load 0x2,0x2 0202 8223 | # | Call 0x1,0x23 0203 c402 | | Store 0x2,0x2 0204 00d1 | | Pop_Control Pop_Count_1 0205 00cf | | Action Mark_Auxiliary 0206 00d9 | | Load_Top At_Offset_1 0207 01d9 | | Execute Vector,Reverse_Bounds 0208 0263 | c | Execute Discrete,Above_Bound 0209 7017 |p | Jump_Nonzero 0x221 020a 00d8 | | Load_Top At_Offset_0 020b 0f01 | | Execute_Immediate Equal,0x1 020c 7009 |p | Jump_Nonzero 0x216 020d 00d8 | | Load_Top At_Offset_0 020e e602 | | Load 0x3,0x2 020f 01d7 | | Execute Vector,Field_Read 0210 00d9 | | Load_Top At_Offset_1 0211 0aff | | Execute_Immediate Plus,-0x1 0212 e602 | | Load 0x3,0x2 0213 01d7 | | Execute Vector,Field_Read 0214 012e | . | Execute Any,Not_Equal 0215 6809 |h | Jump_Zero 0x21f 0216 4801 |H | Short_Literal 0x1 0217 e5fc | | Load 0x2,-0x4 0218 00da | | Load_Top At_Offset_2 0219 e602 | | Load 0x3,0x2 021a 01d7 | | Execute Vector,Field_Read 021b 4806 |H | Short_Literal 0x6 021c e5fe | | Load 0x2,-0x2 021d e00f | | Load 0x0,0xf 021e 180f | | Execute Package,Field_Execute,Field_Number 0xf 021f 00c8 | | Action Pop_Auxiliary_Range 0220 3fe9 |? | Loop_Increasing 0x20a 0221 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0232 | 2 | .CONST 0x0232 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0003 | | .CONST 0x0003 ; Number of locals 022b INIT_0228: 022b e008 | | Load 0x0,0x8 022c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 022d 02ff | | Declare_Variable Variant_Record 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e008 | | Load 0x0,0x8 0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0232 BODY_0228: 0232 e008 | | Load 0x0,0x8 0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0234 00da | | Load_Top At_Offset_2 0235 e5ff | | Load 0x2,-0x1 0236 e008 | | Load 0x0,0x8 0237 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0238 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0239 00d1 | | Pop_Control Pop_Count_1 023a 0059 | Y | Store_Top Discrete,At_Offset_1 023b 4801 |H | Short_Literal 0x1 023c 4803 |H | Short_Literal 0x3 023d e010 | | Load 0x0,0x10 023e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023f 035b | [ | Declare_Type Array,Constrained 0240 0337 | 7 | Declare_Variable Array 0241 00da | | Load_Top At_Offset_2 0242 e010 | | Load 0x0,0x10 0243 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0244 e010 | | Load 0x0,0x10 0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0246 0119 | | Execute Any,Check_In_Formal_Type 0247 4801 |H | Short_Literal 0x1 0248 00da | | Load_Top At_Offset_2 0249 01d6 | | Execute Vector,Field_Write 024a 00ea | | Load_Encached Null_String_Cache 024b e010 | | Load 0x0,0x10 024c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 024d e010 | | Load 0x0,0x10 024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024f 0119 | | Execute Any,Check_In_Formal_Type 0250 4802 |H | Short_Literal 0x2 0251 00da | | Load_Top At_Offset_2 0252 01d6 | | Execute Vector,Field_Write 0253 e403 | | Load 0x2,0x3 0254 e004 | | Load 0x0,0x4 0255 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0256 e010 | | Load 0x0,0x10 0257 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0258 e010 | | Load 0x0,0x10 0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025a 0119 | | Execute Any,Check_In_Formal_Type 025b 4803 |H | Short_Literal 0x3 025c 00da | | Load_Top At_Offset_2 025d 01d6 | | Execute Vector,Field_Write 025e 6005 |` | Indirect_Literal Discrete,0x264,{0x00000000, 0x000081da} 025f e011 | | Load 0x0,0x11 0260 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0261 a5fb | | Store_Unchecked 0x2,-0x5 0262 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0263 0000 | | .XXX[0x1] 0264 0000 0000 | | .LITERAL {0x00000000, 0x000081da} 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0278 | x | .CONST 0x0278 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b 4801 |H | Short_Literal 0x1 026c e402 | | Load 0x2,0x2 026d 4975 |Iu | Short_Literal 0x175 026e 00eb | | Load_Encached Diana_Cache 026f 0098 | | Execute Package,Field_Read_Dynamic 0270 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0271 49a0 |I | Short_Literal 0x1a0 0272 00eb | | Load_Encached Diana_Cache 0273 0098 | | Execute Package,Field_Read_Dynamic 0274 035b | [ | Declare_Type Array,Constrained 0275 0337 | 7 | Declare_Variable Array 0276 00d8 | | Load_Top At_Offset_0 0277 1c00 | | Execute_Immediate Run_Utility,0x0 0278 BODY_0268: 0278 00d8 | | Load_Top At_Offset_0 0279 e402 | | Load 0x2,0x2 027a 8223 | # | Call 0x1,0x23 027b c402 | | Store 0x2,0x2 027c 00d1 | | Pop_Control Pop_Count_1 027d 00cf | | Action Mark_Auxiliary 027e 00d9 | | Load_Top At_Offset_1 027f 01d9 | | Execute Vector,Reverse_Bounds 0280 0263 | c | Execute Discrete,Above_Bound 0281 7017 |p | Jump_Nonzero 0x299 0282 e00b | | Load 0x0,0xb 0283 180e | | Execute Package,Field_Execute,Field_Number 0xe 0284 4801 |H | Short_Literal 0x1 0285 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "Removing DDB relation from unit : " 0287 00db | | Load_Top At_Offset_3 0288 e602 | | Load 0x3,0x2 0289 01d7 | | Execute Vector,Field_Read 028a e00e | | Load 0x0,0xe 028b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 028c 01cc | | Execute Vector,Catenate 028d e00c | | Load 0x0,0xc 028e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 028f e5fc | | Load 0x2,-0x4 0290 00d9 | | Load_Top At_Offset_1 0291 e602 | | Load 0x3,0x2 0292 01d7 | | Execute Vector,Field_Read 0293 4806 |H | Short_Literal 0x6 0294 e5fe | | Load 0x2,-0x2 0295 e00f | | Load 0x0,0xf 0296 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0297 00c8 | | Action Pop_Auxiliary_Range 0298 3fe9 |? | Loop_Increasing 0x282 0299 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029a 0000 0000 | | .BLANK 0000[0x6] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02aa | | .CONST 0x02aa ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0003 | | .CONST 0x0003 ; Number of locals 02a3 INIT_02a0: 02a3 e008 | | Load 0x0,0x8 02a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02a5 02ff | | Declare_Variable Variant_Record 02a6 00d8 | | Load_Top At_Offset_0 02a7 1c00 | | Execute_Immediate Run_Utility,0x0 02a8 e008 | | Load 0x0,0x8 02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02aa BODY_02a0: 02aa e008 | | Load 0x0,0x8 02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ac 00da | | Load_Top At_Offset_2 02ad e5ff | | Load 0x2,-0x1 02ae e008 | | Load 0x0,0x8 02af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02b0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02b1 00d1 | | Pop_Control Pop_Count_1 02b2 0059 | Y | Store_Top Discrete,At_Offset_1 02b3 4801 |H | Short_Literal 0x1 02b4 4803 |H | Short_Literal 0x3 02b5 e010 | | Load 0x0,0x10 02b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b7 035b | [ | Declare_Type Array,Constrained 02b8 0337 | 7 | Declare_Variable Array 02b9 00da | | Load_Top At_Offset_2 02ba e010 | | Load 0x0,0x10 02bb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02bc e010 | | Load 0x0,0x10 02bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02be 0119 | | Execute Any,Check_In_Formal_Type 02bf 4801 |H | Short_Literal 0x1 02c0 00da | | Load_Top At_Offset_2 02c1 01d6 | | Execute Vector,Field_Write 02c2 00ea | | Load_Encached Null_String_Cache 02c3 e010 | | Load 0x0,0x10 02c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02c5 e010 | | Load 0x0,0x10 02c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c7 0119 | | Execute Any,Check_In_Formal_Type 02c8 4802 |H | Short_Literal 0x2 02c9 00da | | Load_Top At_Offset_2 02ca 01d6 | | Execute Vector,Field_Write 02cb e403 | | Load 0x2,0x3 02cc e004 | | Load 0x0,0x4 02cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02ce e010 | | Load 0x0,0x10 02cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02d0 e010 | | Load 0x0,0x10 02d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d2 0119 | | Execute Any,Check_In_Formal_Type 02d3 4803 |H | Short_Literal 0x3 02d4 00da | | Load_Top At_Offset_2 02d5 01d6 | | Execute Vector,Field_Write 02d6 6005 |` | Indirect_Literal Discrete,0x2dc,{0x00000000, 0x000081da} 02d7 e011 | | Load 0x0,0x11 02d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d9 a5fb | | Store_Unchecked 0x2,-0x5 02da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02db 0000 | | .XXX[0x1] 02dc 0000 0000 | | .LITERAL {0x00000000, 0x000081da} 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; STRING TABLE 02e0 ; -------------------------------------------------------------------------------------- 02e0 000e | | .STRTAB 0x000e->0x02e7 ; "INSERT" 02e1 0012 | | .STRTAB 0x0012->0x02ea ; "REMOVE" 02e2 0016 | | .STRTAB 0x0016->0x02ed ; "Ddb_Registration.Unregister_Dependencies" 02e3 003c | < | .STRTAB 0x003c->0x0301 ; "Ddb_Registration.Unregister_Dependencies starting" 02e4 006b | k | .STRTAB 0x006b->0x0319 ; "Ddb_Registration.Unregister_Dependencies finished" 02e5 009a | | .STRTAB 0x009a->0x0332 ; "Removing DDB relation from unit : " 02e6 00ba | | .STREND 0x00ba->0x0343 02e7 494e 5345 |INSE| .STRTAB_STRINGS 0343 0000 0000 | | .BLANK 0000[0x5] 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug Table 0348 ; -------------------------------------------------------------------------------------- 0348 0004 000e | | .DEBUG4 0x0004,0x000e,0xcc8a,0x0000,0x0001,0x0000 034e 0000 0000 | | .BLANK 0000[0xb2]