DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 0468 | h | .CONST 0x0468 ; 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 0083 | | .CONST 0x0083 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 60aa |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 e002 | | Load 0x0,0x2 0011 e003 | | Load 0x0,0x3 0012 e004 | | Load 0x0,0x4 0013 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0014 e004 | | Load 0x0,0x4 0015 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0016 487f |H | Short_Literal 0x7f 0017 e005 | | Load 0x0,0x5 0018 0386 | | Declare_Variable Package,Visible 0019 00d8 | | Load_Top At_Offset_0 001a 020f | | Execute Module,Activate 001b 4800 |H | Short_Literal 0x0 001c 4806 |H | Short_Literal 0x6 001d 00e1 | | Load_Encached Boolean_Cache 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4801 |H | Short_Literal 0x1 0020 035e | ^ | Declare_Type Array,Defined,Visible 0021 00d8 | | Load_Top At_Offset_0 0022 0336 | 6 | Declare_Variable Array,Visible 0023 00d8 | | Load_Top At_Offset_0 0024 0335 | 5 | Declare_Variable Array,Duplicate 0025 00cd | | Action Spare6_Action 0026 4806 |H | Short_Literal 0x6 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 00d9 | | Load_Top At_Offset_1 002a e211 | | Load 0x1,0x11 002b 01d6 | | Execute Vector,Field_Write 002c 3ffb |? | Loop_Increasing 0x28 002d 00d9 | | Load_Top At_Offset_1 002e 01d4 | | Execute Vector,Structure_Write 002f 00d9 | | Load_Top At_Offset_1 0030 0337 | 7 | Declare_Variable Array 0031 4801 |H | Short_Literal 0x1 0032 4806 |H | Short_Literal 0x6 0033 00da | | Load_Top At_Offset_2 0034 01d6 | | Execute Vector,Field_Write 0035 4805 |H | Short_Literal 0x5 0036 4800 |H | Short_Literal 0x0 0037 4800 |H | Short_Literal 0x0 0038 00d9 | | Load_Top At_Offset_1 0039 e211 | | Load 0x1,0x11 003a 01d6 | | Execute Vector,Field_Write 003b 3ffb |? | Loop_Increasing 0x37 003c 00da | | Load_Top At_Offset_2 003d 01c3 | | Execute Vector,Check_In_Type 003e 0129 | ) | Execute Any,Make_Visible 003f 00da | | Load_Top At_Offset_2 0040 0337 | 7 | Declare_Variable Array 0041 4801 |H | Short_Literal 0x1 0042 4801 |H | Short_Literal 0x1 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 4801 |H | Short_Literal 0x1 0046 4802 |H | Short_Literal 0x2 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 4801 |H | Short_Literal 0x1 004a 4803 |H | Short_Literal 0x3 004b 00da | | Load_Top At_Offset_2 004c 01d6 | | Execute Vector,Field_Write 004d 4800 |H | Short_Literal 0x0 004e 4800 |H | Short_Literal 0x0 004f 00da | | Load_Top At_Offset_2 0050 01d6 | | Execute Vector,Field_Write 0051 4806 |H | Short_Literal 0x6 0052 4804 |H | Short_Literal 0x4 0053 4800 |H | Short_Literal 0x0 0054 00d9 | | Load_Top At_Offset_1 0055 e212 | | Load 0x1,0x12 0056 01d6 | | Execute Vector,Field_Write 0057 3ffb |? | Loop_Increasing 0x53 0058 00db | | Load_Top At_Offset_3 0059 01c3 | | Execute Vector,Check_In_Type 005a 0129 | ) | Execute Any,Make_Visible 005b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 005d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 005f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0061 00bf | | Action Accept_Activation 0062 e006 | | Load 0x0,0x6 0063 e007 | | Load 0x0,0x7 0064 e008 | | Load 0x0,0x8 0065 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0066 e008 | | Load 0x0,0x8 0067 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0068 e009 | | Load 0x0,0x9 0069 1b18 | | Execute Package,Field_Read,Field_Number 0x18 006a 0387 | | Declare_Variable Package 006b 00d8 | | Load_Top At_Offset_0 006c 020f | | Execute Module,Activate 006d a00a | | Store_Unchecked 0x0,0xa 006e 00c6 | | Action Check_Subprogram_Elaborated 006f e004 | | Load 0x0,0x4 0070 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0071 e008 | | Load 0x0,0x8 0072 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0073 e00b | | Load 0x0,0xb 0074 e00c | | Load 0x0,0xc 0075 4800 |H | Short_Literal 0x0 0076 0007 | | Action Break_Optional 0077 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0079 1d13 | | Execute_Immediate Reference_Lex_1,0x13 007a 00c7 | | Action Elaborate_Subprogram 007b 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 007d 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 007f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0080 00c7 | | Action Elaborate_Subprogram 0081 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0082 00c7 | | Action Elaborate_Subprogram 0083 BODY_0008: 0083 00bc | | Action Signal_Activated 0084 00bb | | Action Signal_Completion 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00a5 | | .CONST 0x00a5 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0009 | | .CONST 0x0009 ; Number of locals 008b INIT_0088: 008b 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 008d 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 008f 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 0091 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0093 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0094 00c6 | | Action Check_Subprogram_Elaborated 0095 4804 |H | Short_Literal 0x4 0096 4802 |H | Short_Literal 0x2 0097 0099 | | Action Reference_Dynamic 0098 4805 |H | Short_Literal 0x5 0099 4802 |H | Short_Literal 0x2 009a 0099 | | Action Reference_Dynamic 009b 0093 0000 | | push_full_address 0x0 009d 6016 |` | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00020000} 009e 0273 | s | Execute Discrete,Plus 009f e00d | | Load 0x0,0xd 00a0 0273 | s | Execute Discrete,Plus 00a1 e00e | | Load 0x0,0xe 00a2 0273 | s | Execute Discrete,Plus 00a3 4809 |H | Short_Literal 0x9 00a4 0007 | | Action Break_Optional 00a5 BODY_0088: 00a5 e5fd | | Load 0x2,-0x3 00a6 e5fe | | Load 0x2,-0x2 00a7 e5ff | | Load 0x2,-0x1 00a8 4806 |H | Short_Literal 0x6 00a9 4802 |H | Short_Literal 0x2 00aa 0099 | | Action Reference_Dynamic 00ab 4807 |H | Short_Literal 0x7 00ac 4802 |H | Short_Literal 0x2 00ad 0099 | | Action Reference_Dynamic 00ae 4808 |H | Short_Literal 0x8 00af 4802 |H | Short_Literal 0x2 00b0 0099 | | Action Reference_Dynamic 00b1 8214 | | Call 0x1,0x14 00b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b3 0000 | | .XXX[0x1] 00b4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d5 | | .CONST 0x00d5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0007 | | .CONST 0x0007 ; Number of locals 00c3 INIT_00c0: 00c3 00ec | | Load_Encached Diana_Tree_Cache 00c4 e004 | | Load 0x0,0x4 00c5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00c6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00c7 02c7 | | Declare_Variable Any 00c8 00d8 | | Load_Top At_Offset_0 00c9 1c00 | | Execute_Immediate Run_Utility,0x0 00ca e004 | | Load 0x0,0x4 00cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cc e004 | | Load 0x0,0x4 00cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ce 02ff | | Declare_Variable Variant_Record 00cf 00d8 | | Load_Top At_Offset_0 00d0 1c00 | | Execute_Immediate Run_Utility,0x0 00d1 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 00d3 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 00d5 BODY_00c0: 00d5 e5fc | | Load 0x2,-0x4 00d6 e004 | | Load 0x0,0x4 00d7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00d8 e00f | | Load 0x0,0xf 00d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00da 027f | | Execute Discrete,Equal 00db 7007 |p | Jump_Nonzero 0xe3 00dc e5fc | | Load 0x2,-0x4 00dd e004 | | Load 0x0,0x4 00de 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00df e00f | | Load 0x0,0xf 00e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e1 027f | | Execute Discrete,Equal 00e2 681a |h | Jump_Zero 0xfd 00e3 e5fc | | Load 0x2,-0x4 00e4 821d | | Call 0x1,0x1d 00e5 00db | | Load_Top At_Offset_3 00e6 016d | m | Execute Variant_Record,Structure_Write 00e7 00da | | Load_Top At_Offset_2 00e8 e004 | | Load 0x0,0x4 00e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ea 7011 |p | Jump_Nonzero 0xfc 00eb 00cf | | Action Mark_Auxiliary 00ec 4806 |H | Short_Literal 0x6 00ed 4800 |H | Short_Literal 0x0 00ee 0007 | | Action Break_Optional 00ef 00d8 | | Load_Top At_Offset_0 00f0 e5fb | | Load 0x2,-0x5 00f1 01d7 | | Execute Vector,Field_Read 00f2 6806 |h | Jump_Zero 0xf9 00f3 e5fa | | Load 0x2,-0x6 00f4 e405 | | Load 0x2,0x5 00f5 e5fc | | Load 0x2,-0x4 00f6 e5fb | | Load 0x2,-0x5 00f7 e40a | | Load 0x2,0xa 00f8 8407 | | Call 0x2,0x7 00f9 00c8 | | Action Pop_Auxiliary_Range 00fa 3ff4 |? | Loop_Increasing 0xef 00fb 00ce | | Action Pop_Auxiliary 00fc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 00fd e5fc | | Load 0x2,-0x4 00fe e004 | | Load 0x0,0x4 00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0100 7008 |p | Jump_Nonzero 0x109 0101 e004 | | Load 0x0,0x4 0102 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0103 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0104 e5fc | | Load 0x2,-0x4 0105 e004 | | Load 0x0,0x4 0106 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0107 012e | . | Execute Any,Not_Equal 0108 6801 |h | Jump_Zero 0x10a 0109 4507 |E | Exit_Suprogram New_Top_Offset 0x7 010a e004 | | Load 0x0,0x4 010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010c e403 | | Load 0x2,0x3 010d 0120 | | Execute Any,Is_Value 010e 6804 |h | Jump_Zero 0x113 010f e004 | | Load 0x0,0x4 0110 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0111 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0112 7801 |x | Jump 0x114 0113 e403 | | Load 0x2,0x3 0114 e004 | | Load 0x0,0x4 0115 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0116 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0117 6030 |`0 | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000} 0118 4801 |H | Short_Literal 0x1 0119 4800 |H | Short_Literal 0x0 011a 4800 |H | Short_Literal 0x0 011b e5fa | | Load 0x2,-0x6 011c 4801 |H | Short_Literal 0x1 011d e5fc | | Load 0x2,-0x4 011e e004 | | Load 0x0,0x4 011f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0121 e004 | | Load 0x0,0x4 0122 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0123 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0124 c402 | | Store 0x2,0x2 0125 c403 | | Store 0x2,0x3 0126 c404 | | Store 0x2,0x4 0127 00db | | Load_Top At_Offset_3 0128 680a |h | Jump_Zero 0x133 0129 4800 |H | Short_Literal 0x0 012a 0092 0408 | | Action Push_String_Extended,0x408 ; "Couldn't open ada unit " 012c e5fc | | Load 0x2,-0x4 012d e004 | | Load 0x0,0x4 012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 012f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0130 01cc | | Execute Vector,Catenate 0131 821c | | Call 0x1,0x1c 0132 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0133 00cf | | Action Mark_Auxiliary 0134 4806 |H | Short_Literal 0x6 0135 4800 |H | Short_Literal 0x0 0136 0007 | | Action Break_Optional 0137 00d8 | | Load_Top At_Offset_0 0138 e5fb | | Load 0x2,-0x5 0139 01d7 | | Execute Vector,Field_Read 013a 6806 |h | Jump_Zero 0x141 013b e5fa | | Load 0x2,-0x6 013c e5fc | | Load 0x2,-0x4 013d e5fb | | Load 0x2,-0x5 013e 00db | | Load_Top At_Offset_3 013f e402 | | Load 0x2,0x2 0140 8406 | | Call 0x2,0x6 0141 00c8 | | Action Pop_Auxiliary_Range 0142 3ff4 |? | Loop_Increasing 0x137 0143 00ce | | Action Pop_Auxiliary 0144 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0162 | b | .CONST 0x0162 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0005 | | .CONST 0x0005 ; Number of locals 0153 INIT_0150: 0153 e004 | | Load 0x0,0x4 0154 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0155 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0156 02c7 | | Declare_Variable Any 0157 00d8 | | Load_Top At_Offset_0 0158 1c00 | | Execute_Immediate Run_Utility,0x0 0159 e004 | | Load 0x0,0x4 015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015b e004 | | Load 0x0,0x4 015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015d 02c7 | | Declare_Variable Any 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 0162 BODY_0150: 0162 8405 | | Call 0x2,0x5 0163 e5fc | | Load 0x2,-0x4 0164 e5fd | | Load 0x2,-0x3 0165 85fe | | Call 0x2,-0x2 0166 e004 | | Load 0x0,0x4 0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0168 e402 | | Load 0x2,0x2 0169 0120 | | Execute Any,Is_Value 016a 6804 |h | Jump_Zero 0x16f 016b e004 | | Load 0x0,0x4 016c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 016d 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 016e 7801 |x | Jump 0x170 016f e402 | | Load 0x2,0x2 0170 67d7 |g | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000} 0171 e5fc | | Load 0x2,-0x4 0172 e5fd | | Load 0x2,-0x3 0173 e004 | | Load 0x0,0x4 0174 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0175 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0176 e004 | | Load 0x0,0x4 0177 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0178 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0179 c402 | | Store 0x2,0x2 017a 005b | [ | Store_Top Discrete,At_Offset_3 017b 00da | | Load_Top At_Offset_2 017c 6818 |h | Jump_Zero 0x195 017d 00da | | Load_Top At_Offset_2 017e 0e08 | | Execute_Immediate Not_Equal,0x8 017f 6814 |h | Jump_Zero 0x194 0180 4800 |H | Short_Literal 0x0 0181 e5fb | | Load 0x2,-0x5 0182 0092 0409 | | Action Push_String_Extended,0x409 ; " " 0184 01cc | | Execute Vector,Catenate 0185 e403 | | Load 0x2,0x3 0186 e004 | | Load 0x0,0x4 0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0188 011c | | Execute Any,Convert_Unchecked 0189 1c01 | | Execute_Immediate Run_Utility,0x1 018a 01cc | | Execute Vector,Catenate 018b 0092 040a | | Action Push_String_Extended,0x40a ; " returned traversing " 018d 01cc | | Execute Vector,Catenate 018e e5fd | | Load 0x2,-0x3 018f e004 | | Load 0x0,0x4 0190 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0191 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0192 01cc | | Execute Vector,Catenate 0193 821c | | Call 0x1,0x1c 0194 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0195 00cf | | Action Mark_Auxiliary 0196 781e |x | Jump 0x1b5 0197 e402 | | Load 0x2,0x2 0198 e004 | | Load 0x0,0x4 0199 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 019a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 019b c404 | | Store 0x2,0x4 019c 00da | | Load_Top At_Offset_2 019d e004 | | Load 0x0,0x4 019e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a0 680b |h | Jump_Zero 0x1ac 01a1 e5fb | | Load 0x2,-0x5 01a2 e5fc | | Load 0x2,-0x4 01a3 e404 | | Load 0x2,0x4 01a4 4ffe |O | Short_Literal -0x2 01a5 4802 |H | Short_Literal 0x2 01a6 0099 | | Action Reference_Dynamic 01a7 4fff |O | Short_Literal -0x1 01a8 4802 |H | Short_Literal 0x2 01a9 0099 | | Action Reference_Dynamic 01aa 8215 | | Call 0x1,0x15 01ab 7803 |x | Jump 0x1af 01ac e5fc | | Load 0x2,-0x4 01ad 00db | | Load_Top At_Offset_3 01ae 85fe | | Call 0x2,-0x2 01af e402 | | Load 0x2,0x2 01b0 e004 | | Load 0x0,0x4 01b1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 01b2 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01b3 c402 | | Store 0x2,0x2 01b4 00c9 | | Action Pop_Auxiliary_Loop 01b5 e402 | | Load 0x2,0x2 01b6 e004 | | Load 0x0,0x4 01b7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 01b8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01b9 6fdd |o | Jump_Zero 0x197 01ba 00ce | | Action Pop_Auxiliary 01bb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e010 | | Load 0x0,0x10 01c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c5 4807 |H | Short_Literal 0x7 01c6 e5ff | | Load 0x2,-0x1 01c7 e011 | | Load 0x0,0x11 01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c9 00db | | Load_Top At_Offset_3 01ca 6802 |h | Jump_Zero 0x1cd 01cb e20d | | Load 0x1,0xd 01cc 0257 | W | Execute Discrete,Raise 01cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01e0 | | .CONST 0x01e0 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0005 | | .CONST 0x0005 ; Number of locals 01d3 INIT_01d0: 01d3 e004 | | Load 0x0,0x4 01d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01d5 02ff | | Declare_Variable Variant_Record 01d6 00d8 | | Load_Top At_Offset_0 01d7 1c00 | | Execute_Immediate Run_Utility,0x0 01d8 e004 | | Load 0x0,0x4 01d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01da 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01db e004 | | Load 0x0,0x4 01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dd e004 | | Load 0x0,0x4 01de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01df 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e0 BODY_01d0: 01e0 e004 | | Load 0x0,0x4 01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e2 e004 | | Load 0x0,0x4 01e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e5 6022 |`" | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000} 01e6 e012 | | Load 0x0,0x12 01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e8 4800 |H | Short_Literal 0x0 01e9 e5ff | | Load 0x2,-0x1 01ea e004 | | Load 0x0,0x4 01eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ed 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01ee 005a | Z | Store_Top Discrete,At_Offset_2 01ef e004 | | Load 0x0,0x4 01f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f2 e402 | | Load 0x2,0x2 01f3 6014 |` | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000} 01f4 e012 | | Load 0x0,0x12 01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f6 4800 |H | Short_Literal 0x0 01f7 e405 | | Load 0x2,0x5 01f8 0092 040b | | Action Push_String_Extended,0x40b ; "?.code_database" 01fa e004 | | Load 0x0,0x4 01fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01fd 00d1 | | Pop_Control Pop_Count_1 01fe 005b | [ | Store_Top Discrete,At_Offset_3 01ff 00d9 | | Load_Top At_Offset_1 0200 7002 |p | Jump_Nonzero 0x203 0201 00da | | Load_Top At_Offset_2 0202 6803 |h | Jump_Zero 0x206 0203 e004 | | Load 0x0,0x4 0204 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0205 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0206 00db | | Load_Top At_Offset_3 0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0208 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021c | | .CONST 0x021c ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0006 | | .CONST 0x0006 ; Number of locals 0213 INIT_0210: 0213 e008 | | Load 0x0,0x8 0214 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0215 e013 | | Load 0x0,0x13 0216 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0217 e009 | | Load 0x0,0x9 0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0219 e008 | | Load 0x0,0x8 021a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 021b 00ec | | Load_Encached Diana_Tree_Cache 021c BODY_0210: 021c e008 | | Load 0x0,0x8 021d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 021e e008 | | Load 0x0,0x8 021f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0220 4801 |H | Short_Literal 0x1 0221 e5fe | | Load 0x2,-0x2 0222 e5ff | | Load 0x2,-0x1 0223 e008 | | Load 0x0,0x8 0224 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0225 c402 | | Store 0x2,0x2 0226 005a | Z | Store_Top Discrete,At_Offset_2 0227 00d9 | | Load_Top At_Offset_1 0228 6802 |h | Jump_Zero 0x22b 0229 00ec | | Load_Encached Diana_Tree_Cache 022a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022b e402 | | Load 0x2,0x2 022c e216 | | Load 0x1,0x16 022d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022e a403 | | Store_Unchecked 0x2,0x3 022f e402 | | Load 0x2,0x2 0230 e216 | | Load 0x1,0x16 0231 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0232 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0233 00da | | Load_Top At_Offset_2 0234 e403 | | Load 0x2,0x3 0235 497d |I} | Short_Literal 0x17d 0236 00eb | | Load_Encached Diana_Cache 0237 0096 | | Execute Package,Entry 0238 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0239 00d8 | | Load_Top At_Offset_0 023a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023b 0000 0000 | | .BLANK 0000[0x5] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00db | | Load_Top At_Offset_3 0244 e5fc | | Load 0x2,-0x4 0245 e20e | | Load 0x1,0xe 0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0247 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e5fc | | Load 0x2,-0x4 024c e7fe | | Load 0x3,-0x2 024d e20e | | Load 0x1,0xe 024e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 024f c5fc | | Store 0x2,-0x4 0250 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00db | | Load_Top At_Offset_3 025c e004 | | Load 0x0,0x4 025d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025e 0119 | | Execute Any,Check_In_Formal_Type 025f 00db | | Load_Top At_Offset_3 0260 e004 | | Load 0x0,0x4 0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0262 0119 | | Execute Any,Check_In_Formal_Type 0263 8402 | | Call 0x2,0x2 0264 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e7fd | | Load 0x3,-0x3 026c e014 | | Load 0x0,0x14 026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026e 0119 | | Execute Any,Check_In_Formal_Type 026f e7fe | | Load 0x3,-0x2 0270 e004 | | Load 0x0,0x4 0271 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0272 0119 | | Execute Any,Check_In_Formal_Type 0273 e7ff | | Load 0x3,-0x1 0274 e004 | | Load 0x0,0x4 0275 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0276 0119 | | Execute Any,Check_In_Formal_Type 0277 8403 | | Call 0x2,0x3 0278 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 02aa | | .CONST 0x02aa ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 000b | | .CONST 0x000b ; Number of locals 0283 INIT_0280: 0283 e004 | | Load 0x0,0x4 0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0285 e015 | | Load 0x0,0x15 0286 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0287 02c7 | | Declare_Variable Any 0288 00d8 | | Load_Top At_Offset_0 0289 1c00 | | Execute_Immediate Run_Utility,0x0 028a 00ec | | Load_Encached Diana_Tree_Cache 028b e004 | | Load 0x0,0x4 028c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 028d 02ff | | Declare_Variable Variant_Record 028e 00d8 | | Load_Top At_Offset_0 028f 1c00 | | Execute_Immediate Run_Utility,0x0 0290 e004 | | Load 0x0,0x4 0291 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0292 02c7 | | Declare_Variable Any 0293 00d8 | | Load_Top At_Offset_0 0294 1c00 | | Execute_Immediate Run_Utility,0x0 0295 e004 | | Load 0x0,0x4 0296 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0297 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0298 e004 | | Load 0x0,0x4 0299 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 029a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 029b 02c7 | | Declare_Variable Any 029c 00d8 | | Load_Top At_Offset_0 029d 1c00 | | Execute_Immediate Run_Utility,0x0 029e e004 | | Load 0x0,0x4 029f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a0 e004 | | Load 0x0,0x4 02a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02a2 02ff | | Declare_Variable Variant_Record 02a3 00d8 | | Load_Top At_Offset_0 02a4 1c00 | | Execute_Immediate Run_Utility,0x0 02a5 e004 | | Load 0x0,0x4 02a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02a7 02ff | | Declare_Variable Variant_Record 02a8 00d8 | | Load_Top At_Offset_0 02a9 1c00 | | Execute_Immediate Run_Utility,0x0 02aa BODY_0280: 02aa e7ff | | Load 0x3,-0x1 02ab 0145 | E | Execute Heap_Access,Diana_Tree_Kind 02ac 0fa8 | | Execute_Immediate Equal,-0x58 02ad 6805 |h | Jump_Zero 0x2b3 02ae e7ff | | Load 0x3,-0x1 02af e004 | | Load 0x0,0x4 02b0 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 02b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b2 680d |h | Jump_Zero 0x2c0 02b3 e010 | | Load 0x0,0x10 02b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b5 4801 |H | Short_Literal 0x1 02b6 0092 040c | | Action Push_String_Extended,0x40c ; "Skipping source state unit " 02b8 e7fc | | Load 0x3,-0x4 02b9 e004 | | Load 0x0,0x4 02ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02bb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02bc 01cc | | Execute Vector,Catenate 02bd e011 | | Load 0x0,0x11 02be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02c0 e7fe | | Load 0x3,-0x2 02c1 0f06 | | Execute_Immediate Equal,0x6 02c2 6861 |ha | Jump_Zero 0x324 02c3 e004 | | Load 0x0,0x4 02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c5 00da | | Load_Top At_Offset_2 02c6 e7ff | | Load 0x3,-0x1 02c7 e004 | | Load 0x0,0x4 02c8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ca 00d1 | | Pop_Control Pop_Count_1 02cb 005b | [ | Store_Top Discrete,At_Offset_3 02cc 00d9 | | Load_Top At_Offset_1 02cd e004 | | Load 0x0,0x4 02ce 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d0 7053 |pS | Jump_Nonzero 0x324 02d1 e010 | | Load 0x0,0x10 02d2 180e | | Execute Package,Field_Execute,Field_Number 0xe 02d3 4801 |H | Short_Literal 0x1 02d4 0092 040d | | Action Push_String_Extended,0x40d ; "Getting other part for " 02d6 e7fc | | Load 0x3,-0x4 02d7 e004 | | Load 0x0,0x4 02d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02da 01cc | | Execute Vector,Catenate 02db e011 | | Load 0x0,0x11 02dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02dd e004 | | Load 0x0,0x4 02de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02df 00d9 | | Load_Top At_Offset_1 02e0 6093 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 02e1 e7fb | | Load 0x3,-0x5 02e2 e60a | | Load 0x3,0xa 02e3 e004 | | Load 0x0,0x4 02e4 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e6 00d1 | | Pop_Control Pop_Count_1 02e7 005b | [ | Store_Top Discrete,At_Offset_3 02e8 e004 | | Load 0x0,0x4 02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ea e608 | | Load 0x3,0x8 02eb 0120 | | Execute Any,Is_Value 02ec 6804 |h | Jump_Zero 0x2f1 02ed e004 | | Load 0x0,0x4 02ee 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02ef 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02f0 7801 |x | Jump 0x2f2 02f1 e608 | | Load 0x3,0x8 02f2 e004 | | Load 0x0,0x4 02f3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02f5 00db | | Load_Top At_Offset_3 02f6 607d |`} | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 02f7 4801 |H | Short_Literal 0x1 02f8 4800 |H | Short_Literal 0x0 02f9 e7fb | | Load 0x3,-0x5 02fa 4801 |H | Short_Literal 0x1 02fb e004 | | Load 0x0,0x4 02fc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02fd 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02fe 00d1 | | Pop_Control Pop_Count_1 02ff c607 | | Store 0x3,0x7 0300 c608 | | Store 0x3,0x8 0301 005b | [ | Store_Top Discrete,At_Offset_3 0302 00da | | Load_Top At_Offset_2 0303 680a |h | Jump_Zero 0x30e 0304 4800 |H | Short_Literal 0x0 0305 0092 040e | | Action Push_String_Extended,0x40e ; "Couldn't open ada unit for spec of " 0307 e7fc | | Load 0x3,-0x4 0308 e004 | | Load 0x0,0x4 0309 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 030a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 030b 01cc | | Execute Vector,Catenate 030c 821c | | Call 0x1,0x1c 030d 7816 |x | Jump 0x324 030e e7ff | | Load 0x3,-0x1 030f e607 | | Load 0x3,0x7 0310 021f | | Execute Heap_Access,Equal 0311 7012 |p | Jump_Nonzero 0x324 0312 e010 | | Load 0x0,0x10 0313 180e | | Execute Package,Field_Execute,Field_Number 0xe 0314 4801 |H | Short_Literal 0x1 0315 e7fc | | Load 0x3,-0x4 0316 e004 | | Load 0x0,0x4 0317 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0318 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0319 0092 040f | | Action Push_String_Extended,0x40f ; " is a body: check its spec" 031b 01cc | | Execute Vector,Catenate 031c e011 | | Load 0x0,0x11 031d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 031e e7fb | | Load 0x3,-0x5 031f e7fc | | Load 0x3,-0x4 0320 e7fd | | Load 0x3,-0x3 0321 e7fe | | Load 0x3,-0x2 0322 e607 | | Load 0x3,0x7 0323 8406 | | Call 0x2,0x6 0324 e7ff | | Load 0x3,-0x1 0325 4976 |Iv | Short_Literal 0x176 0326 00eb | | Load_Encached Diana_Cache 0327 0098 | | Execute Package,Field_Read_Dynamic 0328 180f | | Execute Package,Field_Execute,Field_Number 0xf 0329 a604 | | Store_Unchecked 0x3,0x4 032a e016 | | Load 0x0,0x16 032b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032c e017 | | Load 0x0,0x17 032d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032e e7fb | | Load 0x3,-0x5 032f e604 | | Load 0x3,0x4 0330 e7fe | | Load 0x3,-0x2 0331 e015 | | Load 0x0,0x15 0332 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0333 c603 | | Store 0x3,0x3 0334 00cf | | Action Mark_Auxiliary 0335 7837 |x7 | Jump 0x36d 0336 e603 | | Load 0x3,0x3 0337 e015 | | Load 0x0,0x15 0338 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0339 e605 | | Load 0x3,0x5 033a 016d | m | Execute Variant_Record,Structure_Write 033b e004 | | Load 0x0,0x4 033c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033d e606 | | Load 0x3,0x6 033e 0120 | | Execute Any,Is_Value 033f 6803 |h | Jump_Zero 0x343 0340 e004 | | Load 0x0,0x4 0341 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0342 7801 |x | Jump 0x344 0343 e606 | | Load 0x3,0x6 0344 602f |`/ | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 0345 e7fb | | Load 0x3,-0x5 0346 e605 | | Load 0x3,0x5 0347 e004 | | Load 0x0,0x4 0348 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0349 181b | | Execute Package,Field_Execute,Field_Number 0x1b 034a c606 | | Store 0x3,0x6 034b c602 | | Store 0x3,0x2 034c e602 | | Load 0x3,0x2 034d 701a |p | Jump_Nonzero 0x368 034e e605 | | Load 0x3,0x5 034f e004 | | Load 0x0,0x4 0350 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0351 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0352 6815 |h | Jump_Zero 0x368 0353 e7fc | | Load 0x3,-0x4 0354 e606 | | Load 0x3,0x6 0355 85fd | | Call 0x2,-0x3 0356 7011 |p | Jump_Nonzero 0x368 0357 e7fb | | Load 0x3,-0x5 0358 e7fd | | Load 0x3,-0x3 0359 e606 | | Load 0x3,0x6 035a 4ffd |O | Short_Literal -0x3 035b 4802 |H | Short_Literal 0x2 035c 0099 | | Action Reference_Dynamic 035d 4ffe |O | Short_Literal -0x2 035e 4802 |H | Short_Literal 0x2 035f 0099 | | Action Reference_Dynamic 0360 4fff |O | Short_Literal -0x1 0361 4802 |H | Short_Literal 0x2 0362 0099 | | Action Reference_Dynamic 0363 8214 | | Call 0x1,0x14 0364 e7fb | | Load 0x3,-0x5 0365 e606 | | Load 0x3,0x6 0366 e7fc | | Load 0x3,-0x4 0367 85fe | | Call 0x2,-0x2 0368 e603 | | Load 0x3,0x3 0369 e015 | | Load 0x0,0x15 036a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 036b c603 | | Store 0x3,0x3 036c 00c9 | | Action Pop_Auxiliary_Loop 036d e603 | | Load 0x3,0x3 036e e015 | | Load 0x0,0x15 036f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0370 6fc5 |o | Jump_Zero 0x336 0371 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0372 0000 0000 | | .XXX[0x2] 0374 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 039a | | .CONST 0x039a ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0008 | | .CONST 0x0008 ; Number of locals 037b INIT_0378: 037b e008 | | Load 0x0,0x8 037c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 037d 02ff | | Declare_Variable Variant_Record 037e e7fc | | Load 0x3,-0x4 037f e217 | | Load 0x1,0x17 0380 e218 | | Load 0x1,0x18 0381 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0382 800a | | Call 0x0,0xa 0383 00d9 | | Load_Top At_Offset_1 0384 016d | m | Execute Variant_Record,Structure_Write 0385 e004 | | Load 0x0,0x4 0386 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0387 02c7 | | Declare_Variable Any 0388 00d8 | | Load_Top At_Offset_0 0389 1c00 | | Execute_Immediate Run_Utility,0x0 038a e004 | | Load 0x0,0x4 038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038c e004 | | Load 0x0,0x4 038d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 038e 02ff | | Declare_Variable Variant_Record 038f 00d8 | | Load_Top At_Offset_0 0390 1c00 | | Execute_Immediate Run_Utility,0x0 0391 e015 | | Load 0x0,0x15 0392 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0393 02c7 | | Declare_Variable Any 0394 00d8 | | Load_Top At_Offset_0 0395 1c00 | | Execute_Immediate Run_Utility,0x0 0396 00ec | | Load_Encached Diana_Tree_Cache 0397 e015 | | Load 0x0,0x15 0398 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 0399 0337 | 7 | Declare_Variable Array 039a BODY_0378: 039a 00cf | | Action Mark_Auxiliary 039b 00d9 | | Load_Top At_Offset_1 039c 01d9 | | Execute Vector,Reverse_Bounds 039d 0007 | | Action Break_Optional 039e 00d8 | | Load_Top At_Offset_0 039f e7fe | | Load 0x3,-0x2 03a0 01d7 | | Execute Vector,Field_Read 03a1 00d9 | | Load_Top At_Offset_1 03a2 e608 | | Load 0x3,0x8 03a3 01d6 | | Execute Vector,Field_Write 03a4 00c8 | | Action Pop_Auxiliary_Range 03a5 3ff8 |? | Loop_Increasing 0x39e 03a6 00ce | | Action Pop_Auxiliary 03a7 e016 | | Load 0x0,0x16 03a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a9 e017 | | Load 0x0,0x17 03aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ab e7fb | | Load 0x3,-0x5 03ac 00da | | Load_Top At_Offset_2 03ad e7fb | | Load 0x3,-0x5 03ae e602 | | Load 0x3,0x2 03af 821e | | Call 0x1,0x1e 03b0 e015 | | Load 0x0,0x15 03b1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 03b2 c606 | | Store 0x3,0x6 03b3 00cf | | Action Mark_Auxiliary 03b4 7838 |x8 | Jump 0x3ed 03b5 00db | | Load_Top At_Offset_3 03b6 e015 | | Load 0x0,0x15 03b7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03b8 e605 | | Load 0x3,0x5 03b9 016d | m | Execute Variant_Record,Structure_Write 03ba e004 | | Load 0x0,0x4 03bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bc e603 | | Load 0x3,0x3 03bd 0120 | | Execute Any,Is_Value 03be 6803 |h | Jump_Zero 0x3c2 03bf e004 | | Load 0x0,0x4 03c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03c1 7801 |x | Jump 0x3c3 03c2 e603 | | Load 0x3,0x3 03c3 67b0 |g | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 03c4 e7fb | | Load 0x3,-0x5 03c5 e605 | | Load 0x3,0x5 03c6 e004 | | Load 0x0,0x4 03c7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 03c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03c9 c603 | | Store 0x3,0x3 03ca c604 | | Store 0x3,0x4 03cb e604 | | Load 0x3,0x4 03cc 701b |p | Jump_Nonzero 0x3e8 03cd e605 | | Load 0x3,0x5 03ce e004 | | Load 0x0,0x4 03cf 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 03d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03d1 6816 |h | Jump_Zero 0x3e8 03d2 e7fd | | Load 0x3,-0x3 03d3 e603 | | Load 0x3,0x3 03d4 85fd | | Call 0x2,-0x3 03d5 7012 |p | Jump_Nonzero 0x3e8 03d6 e7fb | | Load 0x3,-0x5 03d7 e7fe | | Load 0x3,-0x2 03d8 e603 | | Load 0x3,0x3 03d9 4ffd |O | Short_Literal -0x3 03da 4802 |H | Short_Literal 0x2 03db 0099 | | Action Reference_Dynamic 03dc 4ffe |O | Short_Literal -0x2 03dd 4802 |H | Short_Literal 0x2 03de 0099 | | Action Reference_Dynamic 03df 4fff |O | Short_Literal -0x1 03e0 4802 |H | Short_Literal 0x2 03e1 0099 | | Action Reference_Dynamic 03e2 8214 | | Call 0x1,0x14 03e3 e7fb | | Load 0x3,-0x5 03e4 e603 | | Load 0x3,0x3 03e5 e004 | | Load 0x0,0x4 03e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e7 85fe | | Call 0x2,-0x2 03e8 00db | | Load_Top At_Offset_3 03e9 e015 | | Load 0x0,0x15 03ea 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03eb c606 | | Store 0x3,0x6 03ec 00c9 | | Action Pop_Auxiliary_Loop 03ed 00db | | Load_Top At_Offset_3 03ee e015 | | Load 0x0,0x15 03ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03f0 6fc4 |o | Jump_Zero 0x3b5 03f1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03f2 0000 0000 | | .BLANK 0000[0x6] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0405 | | .CONST 0x0405 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb e5fd | | Load 0x2,-0x3 03fc e004 | | Load 0x0,0x4 03fd 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 03fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03ff e004 | | Load 0x0,0x4 0400 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0401 6802 |h | Jump_Zero 0x404 0402 00cc | | Action Pop_Block 0403 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0404 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0405 TRAP_03f8: 0405 0007 | | Action Break_Optional 0406 00cc | | Action Pop_Block 0407 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0408 ; -------------------------------------------------------------------------------------- 0408 ; STRING TABLE 0408 ; -------------------------------------------------------------------------------------- 0408 0012 | | .STRTAB 0x0012->0x0411 ; "Couldn't open ada unit " 0409 0027 | ' | .STRTAB 0x0027->0x041c ; " " 040a 0026 | & | .STRTAB 0x0026->0x041d ; " returned traversing " 040b 0039 | 9 | .STRTAB 0x0039->0x0427 ; "?.code_database" 040c 0046 | F | .STRTAB 0x0046->0x042f ; "Skipping source state unit " 040d 005f | _ | .STRTAB 0x005f->0x043c ; "Getting other part for " 040e 0074 | t | .STRTAB 0x0074->0x0448 ; "Couldn't open ada unit for spec of " 040f 0095 | | .STRTAB 0x0095->0x0459 ; " is a body: check its spec" 0410 00ad | | .STREND 0x00ad->0x0466 0411 436f 756c |Coul| .STRTAB_STRINGS 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug Table 0468 ; -------------------------------------------------------------------------------------- 0468 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b69,0x0000,0x0001,0x0000 046e c97d 0905 | } | .XXX[0x192] 0470 391c b951 |9 Q| 0472 3d3d 314c |==1L| 0474 b939 1551 | 9 Q| 0476 5d3d 492d |]=I-| 0478 2539 1cb9 |%9 | 047a 510d 417d |Q A}| 047c 2541 7d11 |%A} | 047e 5535 409d |U5@ | 0480 4d41 150c |MA | 0482 2941 3d31 |)A=1| 0484 6535 3d49 |e5=I| 0486 4121 250d |A!% | 0488 7d4d 1545 |}M E| 048a 5515 3951 |U 9Q| 048c 2505 317d |% 1}| 048e 253c 2885 |%<( | 0490 10c9 7d09 | } | 0492 0539 1cb9 | 9 | 0494 253c b941 |%< A| 0496 3d31 6535 |=1e5| 0498 3d49 4121 |=IA!| 049a 250d 7d4d |% }M| 049c 1545 5515 | EU | 049e 3951 2505 |9Q% | 04a0 317d 253c |1}%<| 04a2 9d4d 4115 | MA | 04a4 0c29 1125 | ) %| 04a6 4915 0d51 |I Q| 04a8 3d49 657d |=Ie}| 04aa 513d 3d31 |Q==1| 04ac 4c28 8510 |L( | 04ae c97d 0905 | } | 04b0 391c b951 |9 Q| 04b2 3d3d 314c |==1L| 04b4 b911 2549 | %I| 04b6 150d 513d | Q=| 04b8 4965 7d51 |Ie}Q| 04ba 3d3d 314c |==1L| 04bc 9d4d 4115 | MA | 04be 0c29 5149 | )QI| 04c0 0539 4d41 | 9MA| 04c2 3d49 517d |=IQ}| 04c4 493d 5551 |I=UQ| 04c6 1428 8510 | ( | 04c8 c97d 0905 | } | 04ca 391c b90d |9 | 04cc 3d35 3505 |=55 | 04ce 3911 4cb9 |9 L | 04d0 5149 0539 |QI 9| 04d2 4d41 3d49 |MA=I| 04d4 517d 493d |Q}I=| 04d6 5551 149d |UQ | 04d8 4d41 150c |MA | 04da 2951 4905 |)QI | 04dc 394d 413d |9MA=| 04de 4951 7d11 |IQ} | 04e0 1519 4c28 | L(| 04e2 8510 c97d | }| 04e4 0905 391c | 9 | 04e6 b951 3d3d | Q==| 04e8 314c b939 |1L 9| 04ea 1551 5d3d | Q]=| 04ec 492d 2539 |I-%9| 04ee 1cb9 5149 | QI| 04f0 0539 4d41 | 9MA| 04f2 3d49 517d |=IQ}| 04f4 1115 194c | L| 04f6 9d4d 4115 | MA | 04f8 0c29 5125 | )Q%| 04fa 3515 7d55 |5 }U| 04fc 5125 3125 |Q%1%| 04fe 5125 154c |Q% L| 0500 2885 10c9 |( | 0502 7d09 0539 |} 9| 0504 1cb9 513d | Q=| 0506 3d31 4cb9 |=1L | 0508 5125 3515 |Q%5 | 050a 7d55 5125 |}UQ%| 050c 3125 5125 |1%Q%| 050e 154c 9d4d | L M| 0510 4115 0c29 |A )| 0512 4d25 3541 |M%5A| 0514 3115 7d4d |1 }M| 0516 5105 5155 |Q QU| 0518 4c28 8510 |L( | 051a c97d 0905 | } | 051c 391c b951 |9 Q| 051e 3d3d 314c |==1L| 0520 b94d 2535 | M%5| 0522 4131 157d |A1 }| 0524 4d51 0551 |MQ Q| 0526 554c 9d4d |UL M| 0528 4115 0c29 |A )| 052a 293d 0828 |)= (| 052c 8510 c97d | }| 052e 0905 391c | 9 | 0530 b90d 3d35 | =5| 0532 3505 3911 |5 9 | 0534 4cb9 293d |L )=| 0536 089d 4d41 | MA| 0538 150c 290d | ) | 053a 3d11 157d |= }| 053c 4d15 1d35 |M 5| 053e 1539 517d | 9Q}| 0540 3d09 2915 |= ) | 0542 0d51 7d15 | Q} | 0544 1125 513d | %Q=| 0546 4828 8510 |H( | 0548 c97d 0905 | } | 054a 391c b951 |9 Q| 054c 3d3d 314c |==1L| 054e b90d 3d11 | = | 0550 157d 4d15 | }M | 0552 1d35 1539 | 5 9| 0554 517d 3d09 |Q}= | 0556 2915 0d51 |) Q| 0558 7d15 1125 |} %| 055a 513d 489d |Q=H | 055c 4d41 150c |MA | 055e 2905 1105 |) | 0560 7d3d 0929 |}= )| 0562 150d 517d | Q}| 0564 1511 2551 | %Q| 0566 3d48 2885 |=H( | 0568 10c9 7d09 | } | 056a 0539 1cb9 | 9 | 056c 513d 3d31 |Q==1| 056e 4cb9 0511 |L | 0570 057d 3d09 | }= | 0572 2915 0d51 |) Q| 0574 7d15 1125 |} %| 0576 513d 489d |Q=H | 0578 4d41 150c |MA | 057a 2941 493d |)AI=| 057c 1d49 0534 | I 4| 057e 2885 10c9 |( | 0580 7d09 0539 |} 9| 0582 1cb9 0d3d | =| 0584 3535 0539 |55 9| 0586 114c b941 | L A| 0588 493d 1d49 |I= I| 058a 0534 9d4d | 4 M| 058c 4115 0c29 |A )| 058e 3d41 1549 |=A I| 0590 0551 3d48 | Q=H| 0592 2885 10c9 |( | 0594 7d09 0539 |} 9| 0596 1cb9 0d3d | =| 0598 3535 0539 |55 9| 059a 114c b93d | L =| 059c 4115 4905 |A I | 059e 513d 489d |Q=H | 05a0 4d41 150c |MA | 05a2 2905 0d0d |) | 05a4 154d 4d7d | MM}| 05a6 3125 4d50 |1%MP| 05a8 2885 10c9 |( | 05aa 7d09 0539 |} 9| 05ac 1cb9 0d3d | =| 05ae 3535 0539 |55 9| 05b0 114c b905 | L | 05b2 0d0d 154d | M| 05b4 4d7d 3125 |M}1%| 05b6 4d50 9d4d |MP M| 05b8 4115 0c29 |A )| 05ba 413d 3165 |A=1e| 05bc 353d 4941 |5=IA| 05be 2125 0d7d |!% }| 05c0 253c 2885 |%<( | 05c2 10c9 7d09 | } | 05c4 0539 1cb9 | 9 | 05c6 253c b941 |%< A| 05c8 3d31 6535 |=1e5| 05ca 3d49 4121 |=IA!| 05cc 250d 7d25 |% }%| 05ce 3c9d 4d41 |< MA| 05d0 150c 2919 | ) | 05d2 5141 7d4d |QA}M| 05d4 1549 5915 | IY | 05d6 4828 8510 |H( | 05d8 c97d 0905 | } | 05da 391c b951 |9 Q| 05dc 3d3d 314c |==1L| 05de b939 1551 | 9 Q| 05e0 5d3d 492d |]=I-| 05e2 2539 1cb9 |%9 | 05e4 1951 417d | QA}| 05e6 4d15 4959 |M IY| 05e8 1548 9d4d | H M| 05ea 4115 0c29 |A )| 05ec 0511 0428 | (| 05ee 8510 c97d | }| 05f0 0905 391c | 9 | 05f2 b90d 3d35 | =5| 05f4 3505 3911 |5 9 | 05f6 4cb9 0511 |L | 05f8 049d 4d41 | MA| 05fa 150c 2905 | ) | 05fc 0d0d 154d | M| 05fe 4d7d 3125 |M}1%|