|
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 a1c1 bdd1 | | .XXX[0x192]
0470 95b9 d1a5 | |
0472 85b0 a54c | L|
0474 80c4 cc81 | |
0476 e0a1 8d85 | |
0478 b1b1 95c8 | |
047a a54c 80c4 | L |
047c d081 e028 | (|
047e a1bd 98a5 | |
0480 4c80 c4d0 |L |
0482 81e0 8118 | |
0484 d4cc a115 | |
0486 6141 3d39 |aA=9|
0488 1539 50a5 | 9P |
048a 4c80 c4c8 |L |
048c 81e0 8118 | |
048e d8a1 dda5 | |
0490 b1b0 a54c | L|
0492 80c4 d081 | |
0494 e0a1 85d9 | |
0496 bda5 90a5 | |
0498 4c80 c4d0 |L |
049a 81e0 a1d1 | |
049c a194 a54c | L|
049e 8028 c4cc | ( |
04a0 81e0 a18d | |
04a2 85b1 b0a5 | |
04a4 4c80 c4d0 |L |
04a6 81e0 a185 | |
04a8 b990 a54c | L|
04aa 80c4 d081 | |
04ac e0a1 d185 | |
04ae ad94 a54c | L|
04b0 80c4 cc81 | |
04b2 e0a1 84a5 | |
04b4 4c80 c4d0 |L |
04b6 81e0 a191 | |
04b8 a598 a54c | L|
04ba 80b4 c481 | |
04bc e0a1 9995 | |
04be c995 b9d0 | |
04c0 a54c 28c4 | L( |
04c2 cc81 e0a1 | |
04c4 c185 d1a0 | |
04c6 b0a5 4c80 | L |
04c8 c4d0 81e0 | |
04ca a1dd a195 | |
04cc b8a5 4c80 | L |
04ce d4c0 81e4 | |
04d0 80cc c8dc | |
04d2 8160 8118 | ` |
04d4 d4cc a160 | `|
04d6 a54c 80c4 | L |
04d8 c481 e081 | |
04da 18c8 c0a0 | |
04dc f4a5 4c80 | L |
04de c4c8 81e0 | |
04e0 8118 d4cc | |
04e2 28a0 c0b8 |( |
04e4 c0a5 4c81 | L |
04e6 18d8 a170 | p|
04e8 a4b0 a54c | L|
04ea 80c4 c481 | |
04ec e0a1 85b9 | |
04ee 90a5 4c80 | L |
04f0 c4c4 81e0 | |
04f2 a1a5 cca5 | |
04f4 4c80 c4c4 |L |
04f6 81e0 a1c1 | |
04f8 c9bd 8985 | |
04fa 89b1 e4a5 | |
04fc 4c80 c4c4 |L |
04fe 81e0 a1a1 | |
0500 85c9 b5b1 | |
0502 95cd cca5 | |
0504 4c28 c4c0 |L( |
0506 81e0 a1dd | |
0508 a195 b8a5 | |
050a 4c80 c4c4 |L |
050c 81e0 a1b9 | |
050e bdd0 b8a5 | |
0510 4c80 c4dc |L |
0512 81e0 a105 | |
0514 b9bd d1a1 | |
0516 95c8 a54c | L|
0518 80c4 c481 | |
051a e0a1 85b1 | |
051c d195 c9b9 | |
051e 85d1 a5d9 | |
0520 94b0 a54c | L|
0522 80c4 c481 | |
0524 e028 a1c9 | ( |
0526 85a5 cda5 | |
0528 b99c a54c | L|
052a 80c4 c481 | |
052c e0a1 85b8 | |
052e a54c 80c4 | L |
0530 c481 e0a1 | |
0532 95e1 8d95 | |
0534 c1d1 a5bd | |
0536 b8a5 4c80 | L |
0538 c4c4 81e0 | |
053a a1d1 bca5 | |
053c 4c80 c4c4 |L |
053e 81e0 a1cd | |
0540 a59d b985 | |
0542 b0a5 4c80 | L |
0544 c4c4 81e0 | |
0546 28a1 85b8 |( |
0548 a54c 80c4 | L |
054a c481 e0a1 | |
054c a5b1 b195 | |
054e 9d85 b0a5 | |
0550 4c80 c4c4 |L |
0552 81e0 a185 | |
0554 c8a5 4c80 | L |
0556 b4c4 81e0 | |
0558 a19d d5b5 | |
055a 95b9 d0a5 | |
055c 4c80 d4c0 |L |
055e 81e4 80cc | |
0560 c8dc 8160 | `|
0562 a1dd a195 | |
0564 b8a5 4c80 | L |
0566 c4d4 81e0 | |
0568 8029 18d4 | ) |
056a cca1 60a5 | ` |
056c 4c80 c4cc |L |
056e 81e0 8118 | |
0570 c8c0 a0f4 | |
0572 a54c 80c4 | L |
0574 d081 e081 | |
0576 18d4 cca0 | |
0578 c0b8 c0a5 | |
057a 4c80 b4c4 |L |
057c 81e0 8118 | |
057e d8a0 b0a5 | |
0580 4c80 c4d4 |L |
0582 81e0 a1dd | |
0584 85cc a54c | L|
0586 80c4 d481 | |
0588 e028 a1c9 | ( |
058a d5b1 9590 | |
058c a54c 80c4 | L |
058e d481 e0a1 | |
0590 bdd5 d0a5 | |
0592 4c80 c4d4 |L |
0594 81e0 a189 | |
0596 958d 85d5 | |
0598 cd94 a54c | L|
059a 80c4 d481 | |
059c e0a1 a5d0 | |
059e a54c 80c4 | L |
05a0 d481 e0a1 | |
05a2 a5cc a54c | L|
05a4 80c4 d481 | |
05a6 e028 a1d5 | ( |
05a8 b9b9 958d | |
05aa 95cd cd85 | |
05ac c9a5 b1e4 | |
05ae a54c 80c4 | L |
05b0 d481 e0a1 | |
05b2 a185 c9cd | |
05b4 a0a5 4c80 | L |
05b6 c4d4 81e0 | |
05b8 a1dd a195 | |
05ba b8a5 4c80 | L |
05bc c4d4 81e0 | |
05be a184 a54c | L|
05c0 80c4 d481 | |
05c2 e0a1 e995 | |
05c4 c9bc a54c | L|
05c6 80c4 d481 | |
05c8 e028 a1c9 | ( |
05ca 95cd d5b1 | |
05cc d0a5 4c80 | L |
05ce c4d4 81e0 | |
05d0 a1a5 cca5 | |
05d2 4c80 c4d4 |L |
05d4 81e0 a1a1 | |
05d6 85c9 b5b1 | |
05d8 95cd ccb8 | |
05da a54c 80d4 | L |
05dc e081 e480 | |
05de d0c4 c081 | |
05e0 60a1 51a1 |` Q |
05e2 94a5 4c80 | L |
05e4 c4c4 81e0 | |
05e6 28a1 8dbd |( |
05e8 b5c1 85b9 | |
05ea a5bd b8a5 | |
05ec 4c80 c4c4 |L |
05ee 81e0 a199 | |
05f0 d5b9 8dd1 | |
05f2 a5bd b8a5 | |
05f4 4c80 c4c4 |L |
05f6 81e0 8118 | |
05f8 d4cc a118 | |
05fa a54c 2961 | L)a|
05fc 4080 bd18 |@ |
05fe d4cc 80e0 | |