|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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 000d | | .DEBUG4 0x0004,0x000d,0x51a8,0x0000,0x0001,0x0000
034e 0000 0000 | | .BLANK 0000[0xb2]