|
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_0a70f4
└─⟦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 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 0088 | | .CONST 0x0088 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c e001 | | Load 0x0,0x1
000d 0129 | ) | Execute Any,Make_Visible
000e e002 | | Load 0x0,0x2
000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0010 0129 | ) | Execute Any,Make_Visible
0011 e003 | | Load 0x0,0x3
0012 e004 | | Load 0x0,0x4
0013 00da | | Load_Top At_Offset_2
0014 e002 | | Load 0x0,0x2
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 00d8 | | Load_Top At_Offset_0
001c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001d 0129 | ) | Execute Any,Make_Visible
001e 4800 |H | Short_Literal 0x0
001f 4806 |H | Short_Literal 0x6
0020 00e1 | | Load_Encached Boolean_Cache
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035e | ^ | Declare_Type Array,Defined,Visible
0024 00d8 | | Load_Top At_Offset_0
0025 0336 | 6 | Declare_Variable Array,Visible
0026 00d8 | | Load_Top At_Offset_0
0027 0335 | 5 | Declare_Variable Array,Duplicate
0028 00cd | | Action Spare6_Action
0029 4806 |H | Short_Literal 0x6
002a 4800 |H | Short_Literal 0x0
002b 4801 |H | Short_Literal 0x1
002c 00d9 | | Load_Top At_Offset_1
002d e213 | | Load 0x1,0x13
002e 01d6 | | Execute Vector,Field_Write
002f 3ffb |? | Loop_Increasing 0x2b
0030 00d9 | | Load_Top At_Offset_1
0031 01d4 | | Execute Vector,Structure_Write
0032 00d9 | | Load_Top At_Offset_1
0033 0337 | 7 | Declare_Variable Array
0034 4801 |H | Short_Literal 0x1
0035 4806 |H | Short_Literal 0x6
0036 00da | | Load_Top At_Offset_2
0037 01d6 | | Execute Vector,Field_Write
0038 4805 |H | Short_Literal 0x5
0039 4800 |H | Short_Literal 0x0
003a 4800 |H | Short_Literal 0x0
003b 00d9 | | Load_Top At_Offset_1
003c e213 | | Load 0x1,0x13
003d 01d6 | | Execute Vector,Field_Write
003e 3ffb |? | Loop_Increasing 0x3a
003f 00da | | Load_Top At_Offset_2
0040 01c3 | | Execute Vector,Check_In_Type
0041 0129 | ) | Execute Any,Make_Visible
0042 00da | | Load_Top At_Offset_2
0043 0337 | 7 | Declare_Variable Array
0044 4801 |H | Short_Literal 0x1
0045 4801 |H | Short_Literal 0x1
0046 00da | | Load_Top At_Offset_2
0047 01d6 | | Execute Vector,Field_Write
0048 4801 |H | Short_Literal 0x1
0049 4802 |H | Short_Literal 0x2
004a 00da | | Load_Top At_Offset_2
004b 01d6 | | Execute Vector,Field_Write
004c 4801 |H | Short_Literal 0x1
004d 4803 |H | Short_Literal 0x3
004e 00da | | Load_Top At_Offset_2
004f 01d6 | | Execute Vector,Field_Write
0050 4800 |H | Short_Literal 0x0
0051 4800 |H | Short_Literal 0x0
0052 00da | | Load_Top At_Offset_2
0053 01d6 | | Execute Vector,Field_Write
0054 4806 |H | Short_Literal 0x6
0055 4804 |H | Short_Literal 0x4
0056 4800 |H | Short_Literal 0x0
0057 00d9 | | Load_Top At_Offset_1
0058 e214 | | Load 0x1,0x14
0059 01d6 | | Execute Vector,Field_Write
005a 3ffb |? | Loop_Increasing 0x56
005b 00db | | Load_Top At_Offset_3
005c 01c3 | | Execute Vector,Check_In_Type
005d 0129 | ) | Execute Any,Make_Visible
005e 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0060 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0062 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0064 00bf | | Action Accept_Activation
0065 0007 | | Action Break_Optional
0066 0007 | | Action Break_Optional
0067 e006 | | Load 0x0,0x6
0068 e007 | | Load 0x0,0x7
0069 e008 | | Load 0x0,0x8
006a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
006b e008 | | Load 0x0,0x8
006c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
006d e009 | | Load 0x0,0x9
006e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
006f 0387 | | Declare_Variable Package
0070 00d8 | | Load_Top At_Offset_0
0071 020f | | Execute Module,Activate
0072 a00a | | Store_Unchecked 0x0,0xa
0073 00c6 | | Action Check_Subprogram_Elaborated
0074 e002 | | Load 0x0,0x2
0075 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0076 e008 | | Load 0x0,0x8
0077 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0078 e00b | | Load 0x0,0xb
0079 e00c | | Load 0x0,0xc
007a 4800 |H | Short_Literal 0x0
007b 0007 | | Action Break_Optional
007c 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
007e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007f 00c7 | | Action Elaborate_Subprogram
0080 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
0082 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0084 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0085 00c7 | | Action Elaborate_Subprogram
0086 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0087 00c7 | | Action Elaborate_Subprogram
0088 BODY_0008:
0088 00bc | | Action Signal_Activated
0089 00bb | | Action Signal_Completion
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00a3 | | .CONST 0x00a3 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0008 | | .CONST 0x0008 ; Number of locals
0093 INIT_0090:
0093 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
0095 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0097 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0098 00c6 | | Action Check_Subprogram_Elaborated
0099 4802 |H | Short_Literal 0x2
009a 4802 |H | Short_Literal 0x2
009b 0099 | | Action Reference_Dynamic
009c 4803 |H | Short_Literal 0x3
009d 4802 |H | Short_Literal 0x2
009e 0099 | | Action Reference_Dynamic
009f e00d | | Load 0x0,0xd
00a0 e00e | | Load 0x0,0xe
00a1 4808 |H | Short_Literal 0x8
00a2 0007 | | Action Break_Optional
00a3 BODY_0090:
00a3 e5fd | | Load 0x2,-0x3
00a4 e5fe | | Load 0x2,-0x2
00a5 e5ff | | Load 0x2,-0x1
00a6 4804 |H | Short_Literal 0x4
00a7 4802 |H | Short_Literal 0x2
00a8 0099 | | Action Reference_Dynamic
00a9 4805 |H | Short_Literal 0x5
00aa 4802 |H | Short_Literal 0x2
00ab 0099 | | Action Reference_Dynamic
00ac 4806 |H | Short_Literal 0x6
00ad 4802 |H | Short_Literal 0x2
00ae 0099 | | Action Reference_Dynamic
00af 8216 | | Call 0x1,0x16
00b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d1 | | .CONST 0x00d1 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0007 | | .CONST 0x0007 ; Number of locals
00bb INIT_00b8:
00bb 0007 | | Action Break_Optional
00bc 00ec | | Load_Encached Diana_Tree_Cache
00bd 02c7 | | Declare_Variable Any
00be 00d8 | | Load_Top At_Offset_0
00bf 1c00 | | Execute_Immediate Run_Utility,0x0
00c0 e002 | | Load 0x0,0x2
00c1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00c2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00c3 02c7 | | Declare_Variable Any
00c4 00d8 | | Load_Top At_Offset_0
00c5 1c00 | | Execute_Immediate Run_Utility,0x0
00c6 e002 | | Load 0x0,0x2
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 e002 | | Load 0x0,0x2
00c9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ca 02ff | | Declare_Variable Variant_Record
00cb 00d8 | | Load_Top At_Offset_0
00cc 1c00 | | Execute_Immediate Run_Utility,0x0
00cd 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
00cf 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
00d1 BODY_00b8:
00d1 e5fc | | Load 0x2,-0x4
00d2 e002 | | Load 0x0,0x2
00d3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d4 e00f | | Load 0x0,0xf
00d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d6 027f | | Execute Discrete,Equal
00d7 7007 |p | Jump_Nonzero 0xdf
00d8 e5fc | | Load 0x2,-0x4
00d9 e002 | | Load 0x0,0x2
00da 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00db e00f | | Load 0x0,0xf
00dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00dd 027f | | Execute Discrete,Equal
00de 681a |h | Jump_Zero 0xf9
00df e5fc | | Load 0x2,-0x4
00e0 821f | | Call 0x1,0x1f
00e1 00db | | Load_Top At_Offset_3
00e2 016d | m | Execute Variant_Record,Structure_Write
00e3 00da | | Load_Top At_Offset_2
00e4 e002 | | Load 0x0,0x2
00e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e6 7011 |p | Jump_Nonzero 0xf8
00e7 00cf | | Action Mark_Auxiliary
00e8 4806 |H | Short_Literal 0x6
00e9 4800 |H | Short_Literal 0x0
00ea 0007 | | Action Break_Optional
00eb 00d8 | | Load_Top At_Offset_0
00ec e5fb | | Load 0x2,-0x5
00ed 01d7 | | Execute Vector,Field_Read
00ee 6806 |h | Jump_Zero 0xf5
00ef e5fa | | Load 0x2,-0x6
00f0 e405 | | Load 0x2,0x5
00f1 e5fc | | Load 0x2,-0x4
00f2 e5fb | | Load 0x2,-0x5
00f3 e40a | | Load 0x2,0xa
00f4 8407 | | Call 0x2,0x7
00f5 00c8 | | Action Pop_Auxiliary_Range
00f6 3ff4 |? | Loop_Increasing 0xeb
00f7 00ce | | Action Pop_Auxiliary
00f8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00f9 e5fc | | Load 0x2,-0x4
00fa e002 | | Load 0x0,0x2
00fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00fc 7008 |p | Jump_Nonzero 0x105
00fd e002 | | Load 0x0,0x2
00fe 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0100 e5fc | | Load 0x2,-0x4
0101 e002 | | Load 0x0,0x2
0102 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0103 012e | . | Execute Any,Not_Equal
0104 6801 |h | Jump_Zero 0x106
0105 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0106 e002 | | Load 0x0,0x2
0107 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0108 e403 | | Load 0x2,0x3
0109 0120 | | Execute Any,Is_Value
010a 6804 |h | Jump_Zero 0x10f
010b e002 | | Load 0x0,0x2
010c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
010d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
010e 7801 |x | Jump 0x110
010f e403 | | Load 0x2,0x3
0110 e402 | | Load 0x2,0x2
0111 0120 | | Execute Any,Is_Value
0112 6804 |h | Jump_Zero 0x117
0113 e002 | | Load 0x0,0x2
0114 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0115 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0116 7801 |x | Jump 0x118
0117 e402 | | Load 0x2,0x2
0118 602f |`/ | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000}
0119 4801 |H | Short_Literal 0x1
011a 4800 |H | Short_Literal 0x0
011b 4800 |H | Short_Literal 0x0
011c e5fa | | Load 0x2,-0x6
011d 4801 |H | Short_Literal 0x1
011e e5fc | | Load 0x2,-0x4
011f e002 | | Load 0x0,0x2
0120 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0121 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0122 e002 | | Load 0x0,0x2
0123 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0124 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0125 c402 | | Store 0x2,0x2
0126 c403 | | Store 0x2,0x3
0127 c404 | | Store 0x2,0x4
0128 00db | | Load_Top At_Offset_3
0129 680a |h | Jump_Zero 0x134
012a 4800 |H | Short_Literal 0x0
012b 0092 0408 | | Action Push_String_Extended,0x408 ; "Couldn't open ada unit "
012d e5fc | | Load 0x2,-0x4
012e e002 | | Load 0x0,0x2
012f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0130 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0131 01cc | | Execute Vector,Catenate
0132 821e | | Call 0x1,0x1e
0133 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0134 00cf | | Action Mark_Auxiliary
0135 4806 |H | Short_Literal 0x6
0136 4800 |H | Short_Literal 0x0
0137 0007 | | Action Break_Optional
0138 00d8 | | Load_Top At_Offset_0
0139 e5fb | | Load 0x2,-0x5
013a 01d7 | | Execute Vector,Field_Read
013b 6806 |h | Jump_Zero 0x142
013c e5fa | | Load 0x2,-0x6
013d e5fc | | Load 0x2,-0x4
013e e5fb | | Load 0x2,-0x5
013f 00db | | Load_Top At_Offset_3
0140 e402 | | Load 0x2,0x2
0141 8406 | | Call 0x2,0x6
0142 00c8 | | Action Pop_Auxiliary_Range
0143 3ff4 |? | Loop_Increasing 0x138
0144 00ce | | Action Pop_Auxiliary
0145 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0146 0000 0000 | | .XXX[0x2]
0148 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0161 | a | .CONST 0x0161 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0005 | | .CONST 0x0005 ; Number of locals
0153 INIT_0150:
0153 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015b e20e | | Load 0x1,0xe
015c 02c7 | | Declare_Variable Any
015d 00d8 | | Load_Top At_Offset_0
015e 1c00 | | Execute_Immediate Run_Utility,0x0
015f 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
0161 BODY_0150:
0161 8405 | | Call 0x2,0x5
0162 e5fc | | Load 0x2,-0x4
0163 e5fd | | Load 0x2,-0x3
0164 85fe | | Call 0x2,-0x2
0165 e002 | | Load 0x0,0x2
0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0167 e402 | | Load 0x2,0x2
0168 0120 | | Execute Any,Is_Value
0169 6804 |h | Jump_Zero 0x16e
016a e002 | | Load 0x0,0x2
016b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
016c 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
016d 7801 |x | Jump 0x16f
016e e402 | | Load 0x2,0x2
016f 67d8 |g | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000}
0170 e5fc | | Load 0x2,-0x4
0171 e5fd | | Load 0x2,-0x3
0172 e002 | | Load 0x0,0x2
0173 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0174 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0175 e002 | | Load 0x0,0x2
0176 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0177 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0178 c402 | | Store 0x2,0x2
0179 005b | [ | Store_Top Discrete,At_Offset_3
017a 00da | | Load_Top At_Offset_2
017b 6818 |h | Jump_Zero 0x194
017c 00da | | Load_Top At_Offset_2
017d 0e08 | | Execute_Immediate Not_Equal,0x8
017e 6814 |h | Jump_Zero 0x193
017f 4800 |H | Short_Literal 0x0
0180 e5fb | | Load 0x2,-0x5
0181 0092 0409 | | Action Push_String_Extended,0x409 ; " "
0183 01cc | | Execute Vector,Catenate
0184 e403 | | Load 0x2,0x3
0185 e002 | | Load 0x0,0x2
0186 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0187 011c | | Execute Any,Convert_Unchecked
0188 1c01 | | Execute_Immediate Run_Utility,0x1
0189 01cc | | Execute Vector,Catenate
018a 0092 040a | | Action Push_String_Extended,0x40a ; " returned traversing "
018c 01cc | | Execute Vector,Catenate
018d e5fd | | Load 0x2,-0x3
018e e002 | | Load 0x0,0x2
018f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0190 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0191 01cc | | Execute Vector,Catenate
0192 821e | | Call 0x1,0x1e
0193 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0194 00cf | | Action Mark_Auxiliary
0195 781e |x | Jump 0x1b4
0196 e402 | | Load 0x2,0x2
0197 e002 | | Load 0x0,0x2
0198 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0199 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
019a c404 | | Store 0x2,0x4
019b 00da | | Load_Top At_Offset_2
019c e002 | | Load 0x0,0x2
019d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
019e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019f 680b |h | Jump_Zero 0x1ab
01a0 e5fb | | Load 0x2,-0x5
01a1 e5fc | | Load 0x2,-0x4
01a2 e404 | | Load 0x2,0x4
01a3 4ffe |O | Short_Literal -0x2
01a4 4802 |H | Short_Literal 0x2
01a5 0099 | | Action Reference_Dynamic
01a6 4fff |O | Short_Literal -0x1
01a7 4802 |H | Short_Literal 0x2
01a8 0099 | | Action Reference_Dynamic
01a9 8217 | | Call 0x1,0x17
01aa 7803 |x | Jump 0x1ae
01ab e5fc | | Load 0x2,-0x4
01ac 00db | | Load_Top At_Offset_3
01ad 85fe | | Call 0x2,-0x2
01ae e402 | | Load 0x2,0x2
01af e002 | | Load 0x0,0x2
01b0 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01b1 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
01b2 c402 | | Store 0x2,0x2
01b3 00c9 | | Action Pop_Auxiliary_Loop
01b4 e402 | | Load 0x2,0x2
01b5 e002 | | Load 0x0,0x2
01b6 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01b7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01b8 6fdd |o | Jump_Zero 0x196
01b9 00ce | | Action Pop_Auxiliary
01ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01bb 0000 0000 | | .BLANK 0000[0x5]
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 01e3 | | .CONST 0x01e3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0005 | | .CONST 0x0005 ; Number of locals
01d3 INIT_01d0:
01d3 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
01d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01db e002 | | Load 0x0,0x2
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd e002 | | Load 0x0,0x2
01de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01df 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01e0 02c7 | | Declare_Variable Any
01e1 00d8 | | Load_Top At_Offset_0
01e2 1c00 | | Execute_Immediate Run_Utility,0x0
01e3 BODY_01d0:
01e3 e002 | | Load 0x0,0x2
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 00d9 | | Load_Top At_Offset_1
01e6 0120 | | Execute Any,Is_Value
01e7 6804 |h | Jump_Zero 0x1ec
01e8 e002 | | Load 0x0,0x2
01e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01eb 7801 |x | Jump 0x1ed
01ec 00d9 | | Load_Top At_Offset_1
01ed 6022 |`" | Indirect_Literal Discrete,0x210,{0x00000000, 0x00004000}
01ee e012 | | Load 0x0,0x12
01ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f0 4800 |H | Short_Literal 0x0
01f1 e5ff | | Load 0x2,-0x1
01f2 e002 | | Load 0x0,0x2
01f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f5 c405 | | Store 0x2,0x5
01f6 005a | Z | Store_Top Discrete,At_Offset_2
01f7 e002 | | Load 0x0,0x2
01f8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fa e402 | | Load 0x2,0x2
01fb 6014 |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x00004000}
01fc e012 | | Load 0x0,0x12
01fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fe 4800 |H | Short_Literal 0x0
01ff e405 | | Load 0x2,0x5
0200 0092 040b | | Action Push_String_Extended,0x40b ; "?.code_database"
0202 e002 | | Load 0x0,0x2
0203 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0204 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0205 00d1 | | Pop_Control Pop_Count_1
0206 005b | [ | Store_Top Discrete,At_Offset_3
0207 00d9 | | Load_Top At_Offset_1
0208 7002 |p | Jump_Nonzero 0x20b
0209 00da | | Load_Top At_Offset_2
020a 6803 |h | Jump_Zero 0x20e
020b e002 | | Load 0x0,0x2
020c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020e 00db | | Load_Top At_Offset_3
020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0210 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0232 | 2 | .CONST 0x0232 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 000b | | .CONST 0x000b ; Number of locals
021b INIT_0218:
021b e008 | | Load 0x0,0x8
021c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
021d e013 | | Load 0x0,0x13
021e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
021f e009 | | Load 0x0,0x9
0220 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0221 e008 | | Load 0x0,0x8
0222 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0223 00ec | | Load_Encached Diana_Tree_Cache
0224 02c7 | | Declare_Variable Any
0225 00d8 | | Load_Top At_Offset_0
0226 1c00 | | Execute_Immediate Run_Utility,0x0
0227 0007 | | Action Break_Optional
0228 a00a | | Store_Unchecked 0x0,0xa
0229 00c6 | | Action Check_Subprogram_Elaborated
022a e012 | | Load 0x0,0x12
022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022c e012 | | Load 0x0,0x12
022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022e e014 | | Load 0x0,0x14
022f e015 | | Load 0x0,0x15
0230 480b |H | Short_Literal 0xb
0231 0007 | | Action Break_Optional
0232 BODY_0218:
0232 e008 | | Load 0x0,0x8
0233 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0234 e008 | | Load 0x0,0x8
0235 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0236 4801 |H | Short_Literal 0x1
0237 e5fe | | Load 0x2,-0x2
0238 e407 | | Load 0x2,0x7
0239 e408 | | Load 0x2,0x8
023a 4809 |H | Short_Literal 0x9
023b 4802 |H | Short_Literal 0x2
023c 0099 | | Action Reference_Dynamic
023d 800a | | Call 0x0,0xa
023e e5ff | | Load 0x2,-0x1
023f e008 | | Load 0x0,0x8
0240 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0241 c402 | | Store 0x2,0x2
0242 c405 | | Store 0x2,0x5
0243 e405 | | Load 0x2,0x5
0244 6802 |h | Jump_Zero 0x247
0245 00ec | | Load_Encached Diana_Tree_Cache
0246 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0247 e402 | | Load 0x2,0x2
0248 e218 | | Load 0x1,0x18
0249 1811 | | Execute Package,Field_Execute,Field_Number 0x11
024a a403 | | Store_Unchecked 0x2,0x3
024b e402 | | Load 0x2,0x2
024c e218 | | Load 0x1,0x18
024d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024e a404 | | Store_Unchecked 0x2,0x4
024f e404 | | Load 0x2,0x4
0250 e403 | | Load 0x2,0x3
0251 497d |I} | Short_Literal 0x17d
0252 00eb | | Load_Encached Diana_Cache
0253 0096 | | Execute Package,Entry
0254 c406 | | Store 0x2,0x6
0255 e406 | | Load 0x2,0x6
0256 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0257 0000 | | .XXX[0x1]
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 e5fc | | Load 0x2,-0x4
025d e20f | | Load 0x1,0xf
025e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
025f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 e5fc | | Load 0x2,-0x4
0264 e7fe | | Load 0x3,-0x2
0265 e20f | | Load 0x1,0xf
0266 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0267 c5fc | | Store 0x2,-0x4
0268 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0269 0000 0000 | | .BLANK 0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 02a3 | | .CONST 0x02a3 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 000b | | .CONST 0x000b ; Number of locals
0273 INIT_0270:
0273 0007 | | Action Break_Optional
0274 0007 | | Action Break_Optional
0275 0007 | | Action Break_Optional
0276 e002 | | Load 0x0,0x2
0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0278 e016 | | Load 0x0,0x16
0279 1b19 | | Execute Package,Field_Read,Field_Number 0x19
027a 02c7 | | Declare_Variable Any
027b 00d8 | | Load_Top At_Offset_0
027c 1c00 | | Execute_Immediate Run_Utility,0x0
027d 00ec | | Load_Encached Diana_Tree_Cache
027e 02c7 | | Declare_Variable Any
027f 00d8 | | Load_Top At_Offset_0
0280 1c00 | | Execute_Immediate Run_Utility,0x0
0281 e002 | | Load 0x0,0x2
0282 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0283 02ff | | Declare_Variable Variant_Record
0284 00d8 | | Load_Top At_Offset_0
0285 1c00 | | Execute_Immediate Run_Utility,0x0
0286 e002 | | Load 0x0,0x2
0287 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0288 02c7 | | Declare_Variable Any
0289 00d8 | | Load_Top At_Offset_0
028a 1c00 | | Execute_Immediate Run_Utility,0x0
028b e002 | | Load 0x0,0x2
028c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
028d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
028e 02c7 | | Declare_Variable Any
028f 00d8 | | Load_Top At_Offset_0
0290 1c00 | | Execute_Immediate Run_Utility,0x0
0291 e002 | | Load 0x0,0x2
0292 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0293 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0294 02c7 | | Declare_Variable Any
0295 00d8 | | Load_Top At_Offset_0
0296 1c00 | | Execute_Immediate Run_Utility,0x0
0297 e002 | | Load 0x0,0x2
0298 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0299 e002 | | Load 0x0,0x2
029a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
029b 02ff | | Declare_Variable Variant_Record
029c 00d8 | | Load_Top At_Offset_0
029d 1c00 | | Execute_Immediate Run_Utility,0x0
029e e002 | | Load 0x0,0x2
029f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02a0 02ff | | Declare_Variable Variant_Record
02a1 00d8 | | Load_Top At_Offset_0
02a2 1c00 | | Execute_Immediate Run_Utility,0x0
02a3 BODY_0270:
02a3 e7ff | | Load 0x3,-0x1
02a4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02a5 0fa8 | | Execute_Immediate Equal,-0x58
02a6 6805 |h | Jump_Zero 0x2ac
02a7 e7ff | | Load 0x3,-0x1
02a8 e002 | | Load 0x0,0x2
02a9 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
02aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ab 680d |h | Jump_Zero 0x2b9
02ac e010 | | Load 0x0,0x10
02ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ae 4801 |H | Short_Literal 0x1
02af 0092 040c | | Action Push_String_Extended,0x40c ; "Skipping source state unit "
02b1 e7fc | | Load 0x3,-0x4
02b2 e002 | | Load 0x0,0x2
02b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02b5 01cc | | Execute Vector,Catenate
02b6 e011 | | Load 0x0,0x11
02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b8 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02b9 e7fe | | Load 0x3,-0x2
02ba 0f06 | | Execute_Immediate Equal,0x6
02bb 6866 |hf | Jump_Zero 0x322
02bc e002 | | Load 0x0,0x2
02bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02be 00da | | Load_Top At_Offset_2
02bf e7ff | | Load 0x3,-0x1
02c0 e002 | | Load 0x0,0x2
02c1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 005b | [ | Store_Top Discrete,At_Offset_3
02c5 00d9 | | Load_Top At_Offset_1
02c6 e002 | | Load 0x0,0x2
02c7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c9 7058 |pX | Jump_Nonzero 0x322
02ca e010 | | Load 0x0,0x10
02cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cc 4801 |H | Short_Literal 0x1
02cd 0092 040d | | Action Push_String_Extended,0x40d ; "Getting other part for "
02cf e7fc | | Load 0x3,-0x4
02d0 e002 | | Load 0x0,0x2
02d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02d3 01cc | | Execute Vector,Catenate
02d4 e011 | | Load 0x0,0x11
02d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d6 e002 | | Load 0x0,0x2
02d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d8 00d9 | | Load_Top At_Offset_1
02d9 6096 |` | Indirect_Literal Discrete,0x370,{0x00000000, 0x00004000}
02da e7fb | | Load 0x3,-0x5
02db e60a | | Load 0x3,0xa
02dc e002 | | Load 0x0,0x2
02dd 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02df 00d1 | | Pop_Control Pop_Count_1
02e0 005b | [ | Store_Top Discrete,At_Offset_3
02e1 e002 | | Load 0x0,0x2
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 e608 | | Load 0x3,0x8
02e4 0120 | | Execute Any,Is_Value
02e5 6804 |h | Jump_Zero 0x2ea
02e6 e002 | | Load 0x0,0x2
02e7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02e8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02e9 7801 |x | Jump 0x2eb
02ea e608 | | Load 0x3,0x8
02eb e607 | | Load 0x3,0x7
02ec 0120 | | Execute Any,Is_Value
02ed 6804 |h | Jump_Zero 0x2f2
02ee e002 | | Load 0x0,0x2
02ef 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02f0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02f1 7801 |x | Jump 0x2f3
02f2 e607 | | Load 0x3,0x7
02f3 00db | | Load_Top At_Offset_3
02f4 607b |`{ | Indirect_Literal Discrete,0x370,{0x00000000, 0x00004000}
02f5 4801 |H | Short_Literal 0x1
02f6 4800 |H | Short_Literal 0x0
02f7 e7fb | | Load 0x3,-0x5
02f8 4801 |H | Short_Literal 0x1
02f9 e002 | | Load 0x0,0x2
02fa 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02fb 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02fc 00d1 | | Pop_Control Pop_Count_1
02fd c607 | | Store 0x3,0x7
02fe c608 | | Store 0x3,0x8
02ff 005b | [ | Store_Top Discrete,At_Offset_3
0300 00da | | Load_Top At_Offset_2
0301 680a |h | Jump_Zero 0x30c
0302 4800 |H | Short_Literal 0x0
0303 0092 040e | | Action Push_String_Extended,0x40e ; "Couldn't open ada unit for spec of "
0305 e7fc | | Load 0x3,-0x4
0306 e002 | | Load 0x0,0x2
0307 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0308 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0309 01cc | | Execute Vector,Catenate
030a 821e | | Call 0x1,0x1e
030b 7816 |x | Jump 0x322
030c e7ff | | Load 0x3,-0x1
030d e607 | | Load 0x3,0x7
030e 012f | / | Execute Any,Equal
030f 7012 |p | Jump_Nonzero 0x322
0310 e010 | | Load 0x0,0x10
0311 180e | | Execute Package,Field_Execute,Field_Number 0xe
0312 4801 |H | Short_Literal 0x1
0313 e7fc | | Load 0x3,-0x4
0314 e002 | | Load 0x0,0x2
0315 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0316 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0317 0092 040f | | Action Push_String_Extended,0x40f ; " is a body: check its spec"
0319 01cc | | Execute Vector,Catenate
031a e011 | | Load 0x0,0x11
031b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031c e7fb | | Load 0x3,-0x5
031d e7fc | | Load 0x3,-0x4
031e e7fd | | Load 0x3,-0x3
031f e7fe | | Load 0x3,-0x2
0320 e607 | | Load 0x3,0x7
0321 8406 | | Call 0x2,0x6
0322 e7ff | | Load 0x3,-0x1
0323 4976 |Iv | Short_Literal 0x176
0324 00eb | | Load_Encached Diana_Cache
0325 0098 | | Execute Package,Field_Read_Dynamic
0326 180f | | Execute Package,Field_Execute,Field_Number 0xf
0327 c604 | | Store 0x3,0x4
0328 e017 | | Load 0x0,0x17
0329 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032a e018 | | Load 0x0,0x18
032b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032c e7fb | | Load 0x3,-0x5
032d e604 | | Load 0x3,0x4
032e e7fe | | Load 0x3,-0x2
032f e016 | | Load 0x0,0x16
0330 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0331 c603 | | Store 0x3,0x3
0332 00cf | | Action Mark_Auxiliary
0333 7837 |x7 | Jump 0x36b
0334 e603 | | Load 0x3,0x3
0335 e016 | | Load 0x0,0x16
0336 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0337 e605 | | Load 0x3,0x5
0338 016d | m | Execute Variant_Record,Structure_Write
0339 e002 | | Load 0x0,0x2
033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033b e606 | | Load 0x3,0x6
033c 0120 | | Execute Any,Is_Value
033d 6803 |h | Jump_Zero 0x341
033e e002 | | Load 0x0,0x2
033f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0340 7801 |x | Jump 0x342
0341 e606 | | Load 0x3,0x6
0342 602d |`- | Indirect_Literal Discrete,0x370,{0x00000000, 0x00004000}
0343 e7fb | | Load 0x3,-0x5
0344 e605 | | Load 0x3,0x5
0345 e002 | | Load 0x0,0x2
0346 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0347 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0348 c606 | | Store 0x3,0x6
0349 c602 | | Store 0x3,0x2
034a e602 | | Load 0x3,0x2
034b 701a |p | Jump_Nonzero 0x366
034c e605 | | Load 0x3,0x5
034d e002 | | Load 0x0,0x2
034e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
034f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0350 6815 |h | Jump_Zero 0x366
0351 e7fc | | Load 0x3,-0x4
0352 e606 | | Load 0x3,0x6
0353 85fd | | Call 0x2,-0x3
0354 7011 |p | Jump_Nonzero 0x366
0355 e7fb | | Load 0x3,-0x5
0356 e7fd | | Load 0x3,-0x3
0357 e606 | | Load 0x3,0x6
0358 4ffd |O | Short_Literal -0x3
0359 4802 |H | Short_Literal 0x2
035a 0099 | | Action Reference_Dynamic
035b 4ffe |O | Short_Literal -0x2
035c 4802 |H | Short_Literal 0x2
035d 0099 | | Action Reference_Dynamic
035e 4fff |O | Short_Literal -0x1
035f 4802 |H | Short_Literal 0x2
0360 0099 | | Action Reference_Dynamic
0361 8216 | | Call 0x1,0x16
0362 e7fb | | Load 0x3,-0x5
0363 e606 | | Load 0x3,0x6
0364 e7fc | | Load 0x3,-0x4
0365 85fe | | Call 0x2,-0x2
0366 e603 | | Load 0x3,0x3
0367 e016 | | Load 0x0,0x16
0368 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0369 c603 | | Store 0x3,0x3
036a 00c9 | | Action Pop_Auxiliary_Loop
036b e603 | | Load 0x3,0x3
036c e016 | | Load 0x0,0x16
036d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
036e 6fc5 |o | Jump_Zero 0x334
036f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0370 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0374 0000 0000 | | .BLANK 0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 039d | | .CONST 0x039d ; 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 e219 | | Load 0x1,0x19
0380 e21a | | Load 0x1,0x1a
0381 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0382 800a | | Call 0x0,0xa
0383 00d9 | | Load_Top At_Offset_1
0384 016d | m | Execute Variant_Record,Structure_Write
0385 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038c e002 | | Load 0x0,0x2
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 e016 | | Load 0x0,0x16
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 02c7 | | Declare_Variable Any
0398 00d8 | | Load_Top At_Offset_0
0399 1c00 | | Execute_Immediate Run_Utility,0x0
039a e016 | | Load 0x0,0x16
039b 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
039c 0337 | 7 | Declare_Variable Array
039d BODY_0378:
039d 00cf | | Action Mark_Auxiliary
039e 00d9 | | Load_Top At_Offset_1
039f 01d9 | | Execute Vector,Reverse_Bounds
03a0 0007 | | Action Break_Optional
03a1 00d8 | | Load_Top At_Offset_0
03a2 e7fe | | Load 0x3,-0x2
03a3 01d7 | | Execute Vector,Field_Read
03a4 00d9 | | Load_Top At_Offset_1
03a5 e608 | | Load 0x3,0x8
03a6 01d6 | | Execute Vector,Field_Write
03a7 00c8 | | Action Pop_Auxiliary_Range
03a8 3ff8 |? | Loop_Increasing 0x3a1
03a9 00ce | | Action Pop_Auxiliary
03aa e017 | | Load 0x0,0x17
03ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ac e018 | | Load 0x0,0x18
03ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ae e7fb | | Load 0x3,-0x5
03af 00da | | Load_Top At_Offset_2
03b0 e7fb | | Load 0x3,-0x5
03b1 e602 | | Load 0x3,0x2
03b2 8220 | | Call 0x1,0x20
03b3 e016 | | Load 0x0,0x16
03b4 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03b5 c606 | | Store 0x3,0x6
03b6 00cf | | Action Mark_Auxiliary
03b7 7838 |x8 | Jump 0x3f0
03b8 00db | | Load_Top At_Offset_3
03b9 e016 | | Load 0x0,0x16
03ba 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03bb e605 | | Load 0x3,0x5
03bc 016d | m | Execute Variant_Record,Structure_Write
03bd e002 | | Load 0x0,0x2
03be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bf e603 | | Load 0x3,0x3
03c0 0120 | | Execute Any,Is_Value
03c1 6803 |h | Jump_Zero 0x3c5
03c2 e002 | | Load 0x0,0x2
03c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c4 7801 |x | Jump 0x3c6
03c5 e603 | | Load 0x3,0x3
03c6 67a9 |g | Indirect_Literal Discrete,0x370,{0x00000000, 0x00004000}
03c7 e7fb | | Load 0x3,-0x5
03c8 e605 | | Load 0x3,0x5
03c9 e002 | | Load 0x0,0x2
03ca 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03cc c603 | | Store 0x3,0x3
03cd c604 | | Store 0x3,0x4
03ce e604 | | Load 0x3,0x4
03cf 701b |p | Jump_Nonzero 0x3eb
03d0 e605 | | Load 0x3,0x5
03d1 e002 | | Load 0x0,0x2
03d2 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03d3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03d4 6816 |h | Jump_Zero 0x3eb
03d5 e7fd | | Load 0x3,-0x3
03d6 e603 | | Load 0x3,0x3
03d7 85fd | | Call 0x2,-0x3
03d8 7012 |p | Jump_Nonzero 0x3eb
03d9 e7fb | | Load 0x3,-0x5
03da e7fe | | Load 0x3,-0x2
03db e603 | | Load 0x3,0x3
03dc 4ffd |O | Short_Literal -0x3
03dd 4802 |H | Short_Literal 0x2
03de 0099 | | Action Reference_Dynamic
03df 4ffe |O | Short_Literal -0x2
03e0 4802 |H | Short_Literal 0x2
03e1 0099 | | Action Reference_Dynamic
03e2 4fff |O | Short_Literal -0x1
03e3 4802 |H | Short_Literal 0x2
03e4 0099 | | Action Reference_Dynamic
03e5 8216 | | Call 0x1,0x16
03e6 e7fb | | Load 0x3,-0x5
03e7 e603 | | Load 0x3,0x3
03e8 e002 | | Load 0x0,0x2
03e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ea 85fe | | Call 0x2,-0x2
03eb 00db | | Load_Top At_Offset_3
03ec e016 | | Load 0x0,0x16
03ed 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03ee c606 | | Store 0x3,0x6
03ef 00c9 | | Action Pop_Auxiliary_Loop
03f0 00db | | Load_Top At_Offset_3
03f1 e016 | | Load 0x0,0x16
03f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03f3 6fc4 |o | Jump_Zero 0x3b8
03f4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
03f5 0000 0000 | | .XXX[0x3]
03f7 0000 | |
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 e002 | | Load 0x0,0x2
03fd 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ff e002 | | Load 0x0,0x2
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 0003 | | .DEBUG4 0x0004,0x0003,0x52e4,0x0000,0x0001,0x0000
046e b4b4 b4b4 | | .XXX[0x3]
0470 b4b4 | |
0471 b428 b4b4 | ( | .XXX[0xf]
0473 8161 7d0d | a} |
0475 bdb1 bdc8 | |
0477 818d bdb9 | |
0479 d1c9 bdb0 | |
047b 81c9 bdd5 | |
047d d1a5 b995 | |
047f cc28 | ( |
0480 b4b4 b4b4 | | .BLANK b4b4[0x27]
04a7 2828 8080 |(( | .XXX[0x1f]
04a9 8081 c1c9 | |
04ab bd8d 9591 | |
04ad d5c9 9481 | |
04af 617d 05b1 |a} |
04b1 b1bd 8d7d | }|
04b3 0dbd b1bd | |
04b5 c880 a111 | |
04b7 a5cd c1b1 | |
04b9 85e4 8080 | |
04bb e880 8080 | |
04bd 8080 8080 | |
04bf 8161 7d11 | a} |
04c1 a5cd c1b1 | |
04c3 85e4 ec80 | |
04c5 8028 | ( |
04c6 8080 8080 | | .BLANK 8080[0xe]
04d4 810d bdb1 | | .XXX[0x11]
04d6 bdc9 b585 | |
04d8 c080 e880 | |
04da 8080 8080 | |
04dc 8080 8161 | a|
04de 7d0d bdb1 |} |
04e0 bdc9 b585 | |
04e2 c0ec 8080 | |
04e4 2880 |( |
04e5 8080 8080 | | .BLANK 8080[0xd]
04f2 8081 0dbd | | .XXX[0x10]
04f4 b1bd c880 | |
04f6 8080 80e8 | |
04f8 81a5 b881 | |
04fa bdd5 d081 | |
04fc 617d 0dbd |a} |
04fe b1bd c8ec | |
0500 8080 2880 | ( |
0502 8080 8080 | | .BLANK 8080[0xd]
050f 8081 4dd1 | M | .XXX[0x10]
0511 85d1 d5cc | |
0513 8080 80e8 | |
0515 81bd d5d0 | |
0517 8080 8081 | |
0519 617d 4dd1 |a}M |
051b 85d1 d5cc | |
051d a4ec 28b4 | ( |
051f b4b4 b4b4 | | .BLANK b4b4[0x26]
0545 b428 b4b4 | ( | .XXX[0xbb]
0547 8081 11a5 | |
0549 cdc1 b185 | |
054b e480 80b4 | |
054d 814d c195 | M |
054f 8da5 99a5 | |
0551 95cc 81d1 | |
0553 a194 8191 | |
0555 a5cd c1b1 | |
0557 85e4 81d1 | |
0559 bc81 d5cd | |
055b 94b8 28b4 | ( |
055d b480 810d | |
055f bdb1 bdc9 | |
0561 b585 c080 | |
0563 b481 4dc1 | M |
0565 958d a599 | |
0567 a595 cc81 | |
0569 d1a1 9481 | |
056b 8dbd b1bd | |
056d c881 b585 | |
056f c081 d1bc | |
0571 81d5 cd94 | |
0573 b828 b4b4 | ( |
0575 8081 0dbd | |
0577 b1bd c880 | |
0579 8080 80b4 | |
057b 814d c195 | M |
057d 8da5 99a5 | |
057f 95cc 81bd | |
0581 c881 c995 | |
0583 d1d5 c9b9 | |
0585 cc81 d1a1 | |
0587 9481 d985 | |
0589 b1d5 95cc | |
058b 8185 8dd1 | |
058d d585 b1b1 | |
058f e481 d5cd | |
0591 9590 81a5 | |
0593 b881 d1a1 | |
0595 9481 8dbd | |
0597 b1bd c881 | |
0599 b585 c0b8 | |
059b 28b4 b480 |( |
059d 814d d185 | M |
059f d1d5 cc80 | |
05a1 8080 b481 | |
05a3 4995 8d95 |I |
05a5 a5d9 95cc | |
05a7 814d d58d | M |
05a9 8d95 cdcd | |
05ab 99d5 b081 | |
05ad bdc8 8119 | |
05af 85a5 b195 | |
05b1 90b8 28b4 | ( |
05b3 b428 b4b4 | ( |
05b5 8105 b1b1 | |
05b7 bd8d 85d1 | |
05b9 95cc 8184 | |
05bb 81c9 9585 | |
05bd 90b5 bdb9 | |
05bf b1e4 818d | |
05c1 bdb1 bdc8 | |
05c3 81b5 85c0 | |
05c5 8195 b9d1 | |
05c7 c9e4 818d | |
05c9 bdc9 c995 | |
05cb cdc1 bdb9 | |
05cd 91a5 b99c | |
05cf 81d1 bc81 | |
05d1 d1a1 9481 | |
05d3 8db1 bdcd | |
05d5 95cd d081 | |
05d7 c995 90b0 | |
05d9 28b4 b481 |( |
05db 9dc9 9595 | |
05dd b8b0 8185 | |
05df b990 8189 | |
05e1 b1d5 9481 | |
05e3 d985 b1d5 | |
05e5 95cc 81cd | |
05e7 d5c1 c1bd | |
05e9 c9d1 9590 | |
05eb 8189 e481 | |
05ed d1a1 9481 | |
05ef a185 c991 | |
05f1 dd85 c994 | |
05f3 b880 8151 | Q|
05f5 a194 81c1 | |
05f7 a5e1 95b0 | |
05f9 81d9 85b1 | |
05fb d594 81bd | |
05fd 9828 b4b4 | ( |
05ff 818d | |