|
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 1d80 1202 | | .XXX[0x192]
0470 4000 208a |@ |
0472 0000 0ee0 | |
0474 4082 02e0 |@ |
0476 4080 03e0 |@ |
0478 bd80 6340 | c@|
047a 1d80 1341 | A|
047c 2880 0602 |( |
047e 8880 b4ca | |
0480 0000 0ee0 | |
0482 4080 02e0 |@ |
0484 4080 07e0 |@ |
0486 bd80 6444 | dD|
0488 0003 6b50 | kP|
048a 2887 22e8 |( " |
048c 1d80 7250 | rP|
048e 0a80 0650 | P|
0490 2a83 ff50 |* P|
0492 a887 2044 | D|
0494 0003 69ff | i |
0496 ffef 7240 | r@|
0498 488d 2340 |H #@|
049a 9d80 2044 | D|
049c 0003 69ff | i |
049e ffef 6240 | b@|
04a0 488d 6340 |H c@|
04a2 9d80 3064 | 0d|
04a4 2040 8360 | @ `|
04a6 9d80 41ff | A |
04a8 fff0 5f40 | _@|
04aa 1d80 2340 | #@|
04ac 9d00 01ff | |
04ae fff0 5340 | S@|
04b0 1d80 3340 | 3@|
04b2 9d80 1368 | h|
04b4 1d80 1369 | i|
04b6 2d80 0602 |- |
04b8 8d80 90ca | |
04ba 0000 0ee0 | |
04bc 4080 06e0 |@ |
04be 4080 0be0 |@ |
04c0 9d80 5100 | Q |
04c2 0001 0b40 | @|
04c4 1d80 1202 | |
04c6 4000 208a |@ |
04c8 0000 0ee0 | |
04ca 4082 02e0 |@ |
04cc 4080 03e0 |@ |
04ce bd80 6380 | c |
04d0 1d80 1381 | |
04d2 3080 0602 |0 |
04d4 9080 b4ca | |
04d6 0000 0ee0 | |
04d8 4080 02e0 |@ |
04da 4080 0444 |@ D|
04dc 0003 6be0 | k |
04de bd80 6790 | g |
04e0 2887 2290 |( " |
04e2 1280 0690 | |
04e4 3283 ff90 |2 |
04e6 a887 2207 | " |
04e8 1f80 2207 | " |
04ea a000 0277 | w|
04ec 8efe 8044 | D|
04ee 0003 6b40 | k@|
04f0 2887 2202 |( " |
04f2 8881 fcaa | |
04f4 0000 104c | L|
04f6 0003 6842 | hB|
04f8 0000 96e8 | |
04fa 4080 0348 |@ H|
04fc 2987 205c |) \|
04fe 0004 1f58 | X|
0500 0b8d 824c | L|
0502 a980 0a54 | T|
0504 a980 0e48 | H|
0506 8a00 26e8 | & |
0508 0b00 25ff | % |
050a ffee 8a40 | @|
050c 4000 6340 |@ c@|
050e 9d80 21ff | ! |
0510 ffee 7e40 | ~@|
0512 4000 6740 |@ g@|
0514 9d80 33d0 | 3 |
0516 9d80 41ff | A |
0518 ffef 7f40 | @|
051a 1d80 2340 | #@|
051c 9d00 01ff | |
051e ffef 7340 | s@|
0520 1d80 3340 | 3@|
0522 9d80 13e0 | |
0524 9d80 53d8 | S |
0526 bd80 6368 | ch|
0528 1d80 1369 | i|
052a 2d80 0602 |- |
052c 8d80 b4ca | |
052e 0000 0ec0 | |
0530 4080 02c0 |@ |
0532 4080 07c0 |@ |
0534 bd80 6444 | dD|
0536 0003 6b80 | k |
0538 2887 22e8 |( " |
053a 4080 0680 |@ |
053c 1080 0680 | |
053e 3083 ff80 |0 |
0540 a887 2207 | " |
0542 1f80 2247 | "G|
0544 a000 7709 | w |
0546 2880 0602 |( |
0548 8180 a00a | |
054a 0000 1804 | |
054c 0000 0349 | I|
054e 2880 0a02 |( |
0550 8980 a0ca | |
0552 0000 1351 | Q|
0554 2880 0442 |( B|
0556 0000 7a40 | z@|
0558 4080 0602 |@ |
055a 8a80 a48a | |
055c 0000 6e40 | n@|
055e 4080 0359 |@ Y|
0560 2880 0a02 |( |
0562 8b80 a48a | |
0564 0000 5e40 | ^@|
0566 4080 0361 |@ a|
0568 2880 0602 |( |
056a 8c80 b48a | |
056c 0000 4e40 | N@|
056e 4080 0369 |@ i|
0570 2880 0602 |( |
0572 8d80 90ca | |
0574 0000 3e40 | >@|
0576 4080 0311 |@ |
0578 2880 0a02 |( |
057a 8281 000a | |
057c 0000 2804 | ( |
057e 0000 0319 | |
0580 2880 0a02 |( |
0582 8381 040a | |
0584 0000 1804 | |
0586 0000 0341 | A|
0588 2880 0a02 |( |
058a 8881 08ca | |
058c 0000 0e40 | @|
058e 4080 0240 |@ @|
0590 4080 0607 |@ |
0592 0f80 2004 | |
0594 0000 0277 | w|
0596 8efe 81ff | |
0598 ffed 6e40 | n@|
059a 4000 604c |@ `L|
059c 0004 1fc0 | |
059e 098d 8054 | T|
05a0 0003 6b50 | kP|
05a2 2a87 22e8 |* " |
05a4 4080 0202 |@ |
05a6 9d00 2ac8 | * |
05a8 3983 fc6a |9 j|
05aa 0000 4ed8 | N |
05ac 4000 22e0 |@ " |
05ae 4080 0758 |@ X|
05b0 1880 2202 | " |
05b2 9b00 2cca | , |
05b4 0000 206c | l|
05b6 0003 6b60 | k`|
05b8 3880 6202 |8 b |
05ba 8c00 64ca | d |
05bc 0000 106c | l|
05be 0003 6842 | hB|
05c0 0000 26c0 | & |
05c2 4000 7768 |@ wh|
05c4 2d87 22e8 |- " |
05c6 1d00 72e8 | r |
05c8 3d83 fe02 |= |
05ca 9d00 342a | 4*|
05cc ffff cac0 | |
05ce 1880 72c0 | r |
05d0 4081 fe07 |@ |
05d2 1f80 2207 | " |
05d4 a000 0277 | w|
05d6 8efe 8248 | H|
05d8 3b83 fdff |; |
05da ffff 7a40 | z@|
05dc 4000 62c0 |@ b |
05de 4000 2202 |@ " |
05e0 9881 fcca | |
05e2 0000 12c4 | |
05e4 b880 0842 | B|
05e6 0000 3ac0 | : |
05e8 4080 0254 |@ T|
05ea b880 0e50 | P|
05ec 8a00 6044 | `D|
05ee 0004 1f58 | X|
05f0 088d 82c0 | |
05f2 4080 0658 |@ X|
05f4 0b00 2b58 | +X|
05f6 0b80 4358 | CX|
05f8 9a00 0340 | @|
05fa 088d 8240 | @|
05fc 0800 2b40 | +@|
05fe 0880 1340 | @|