|
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 145c 003d | \ =| .XXX[0x192]
0470 4d51 0539 |MQ 9|
0472 1105 4910 | I |
0474 b94d 5149 | MQI|
0476 2539 1c01 |%9 |
0478 fa40 8c00 | @ |
047a 3551 3d7d |5Q=}|
047c 313d 0d05 |1= |
047e 317d 1925 |1} %|
0480 3114 5c00 |1 \ |
0482 7d11 1559 |} Y|
0484 250d 157d |% }|
0486 2539 1115 |%9 |
0488 4115 3911 |A 9 |
048a 1539 517d | 9Q}|
048c 253c b919 |%< |
048e 2531 157d |%1 }|
0490 5165 4114 |QeA |
0492 01fa 408c | @ |
0494 0029 0d3d | ) =|
0496 3939 150d |99 |
0498 5125 3d38 |Q%=8|
049a 5c00 3d49 |\ =I|
049c 1545 5515 | EU |
049e 4d51 4cb9 |MQL |
04a0 2105 3911 |! 9 |
04a2 3114 01f6 |1 |
04a4 4094 0019 |@ |
04a6 4d51 0551 |MQ Q|
04a8 554c 5c00 |UL\ |
04aa 5d4d 2535 |]M%5|
04ac 4131 157d |A1 }|
04ae 4d51 0551 |MQ Q|
04b0 554c b90d |UL |
04b2 3d39 1125 |=9 %|
04b4 5125 3d38 |Q%=8|
04b6 0000 0000 | |
04b8 01a0 0318 | |
04ba 0075 4915 | uI |
04bc 4555 154d |EU M|
04be 514c b939 |QL 9|
04c0 3d51 7d0d |=Q} |
04c2 3d39 3915 |=99 |
04c4 0d51 1511 | Q |
04c6 7d4d 5105 |}MQ |
04c8 5155 4ce1 |QUL |
04ca 985c 0071 | \ q|
04cc 4d25 3541 |M%5A|
04ce 3115 7d4d |1 }M|
04d0 5105 5155 |Q QU|
04d2 4cb9 0d3d |L =|
04d4 3911 2551 |9 %Q|
04d6 253d 397d |%=9}|
04d8 3905 3514 |9 5 |
04da 0040 045c | @ \|
04dc 004d 4915 | MI |
04de 4555 154d |EU M|
04e0 514c b935 |QL 5|
04e2 052d 157d | - }|
04e4 1549 493d | II=|
04e6 4a4c 3c38 |JL<8|
04e8 5c00 4d49 |\ MI|
04ea 1545 5515 | EU |
04ec 4d51 4cb9 |MQL |
04ee 1549 493d | II=|
04f0 497d 3905 |I}9 |
04f2 3514 5c00 |5 \ |
04f4 1525 3505 | %5 |
04f6 1d14 5800 | X |
04f8 8549 1545 | I E|
04fa 5515 4d51 |U MQ|
04fc 4cb9 1549 |L I|
04fe 493d 497d |I=I}|
0500 3905 3514 |9 5 |
0502 b939 3d51 | 9=Q|
0504 7d0d 3d39 |} =9|
0506 3915 0d51 |9 Q|
0508 1510 5800 | X |
050a 954d 2535 | M%5|
050c 4131 157d |A1 }|
050e 4d51 0551 |MQ Q|
0510 554c b90d |UL |
0512 3d39 1125 |=9 %|
0514 5125 3d39 |Q%=9|
0516 7d0d 3105 |} 1 |
0518 4d4c b95d |ML ]|
051a 0549 3925 | I9%|
051c 391c 0000 |9 |
051e 0040 03ec | @ |
0520 002d 4915 | -I |
0522 4555 154d |EU M|
0524 514c b931 |QL 1|
0526 4cf5 ee51 |L Q|
0528 fa40 8c00 | @ |
052a 5519 493d |U I=|
052c 357d 4915 |5}I |
052e 353d 5115 |5=Q |
0530 7d11 2549 |} %I|
0532 150d 513d | Q=|
0534 4964 5c00 |Id\ |
0536 3d4d 5105 |=MQ |
0538 3911 0549 |9 I|
053a 10b9 4d51 | MQ|
053c 4925 391c |I%9 |
053e 01fa 408c | @ |
0540 0015 3115 | 1 |
0542 5915 305c |Y 0\|
0544 0041 4d51 | AMQ|
0546 0539 1105 | 9 |
0548 4910 b939 |I 9|
054a 0551 5549 | QUI|
054c 0530 01fa | 0 |
054e 408c 0035 |@ 5|
0550 513d 7d31 |Q=}1|
0552 3d0d 0531 |= 1|
0554 7d19 2531 |} %1|
0556 145c 003d | \ =|
0558 4d51 0539 |MQ 9|
055a 1105 4910 | I |
055c b94d 5149 | MQI|
055e 2539 1c01 |%9 |
0560 fa40 8c00 | @ |
0562 3905 4141 |9 AA|
0564 1539 117d | 9 }|
0566 513d 7d19 |Q=} |
0568 2531 145c |%1 \|
056a 0041 4d51 | AMQ|
056c 0539 1105 | 9 |
056e 4910 b909 |I |
0570 3d3d 3115 |==1 |
0572 0538 01fa | 8 |
0574 408c 0029 |@ )|
0576 0d3d 3939 | =99|
0578 150d 5125 | Q%|
057a 3d38 5c00 |=8\ |
057c 6949 1545 |iI E|
057e 5515 4d51 |U MQ|
0580 4cb9 0d3d |L =|
0582 3939 150d |99 |
0584 5125 3d39 |Q%=9|
0586 7d21 0539 |}! 9|
0588 1131 1401 | 1 |
058a f640 9400 | @ |
058c 194d 5105 | MQ |
058e 5155 4c5c |QUL\|
0590 005d 4d25 | ]M%|
0592 3541 3115 |5A1 |
0594 7d4d 5105 |}MQ |
0596 5155 4cb9 |QUL |
0598 0d3d 3911 | =9 |
059a 2551 253d |%Q%=|
059c 3800 0000 |8 |
059e 0000 5800 | X |
05a0 ec00 5549 | UI|
05a2 1545 5515 | EU |
05a4 4d51 4cb9 |MQL |
05a6 1549 493d | II=|
05a8 497d 4d65 |I}Me|
05aa 4d51 1534 |MQ 4|
05ac e198 5c00 | \ |
05ae 3d4d 5105 |=MQ |
05b0 3911 0549 |9 I|
05b2 10b9 4d51 | MQ|
05b4 4925 391c |I%9 |
05b6 0058 0031 | X 1|
05b8 1549 493d | II=|
05ba 497d 4d65 |I}Me|
05bc 4d51 1534 |MQ 4|
05be 0000 01c0 | |
05c0 0308 006d | m|
05c2 4915 4555 |I EU|
05c4 154d 514c | MQL|
05c6 b955 394d | U9M|
05c8 5541 413d |UAA=|
05ca 4951 1511 |IQ |
05cc 7d4d 5105 |}MQ |
05ce 5155 4ce1 |QUL |
05d0 985c 0071 | \ q|
05d2 4d25 3541 |M%5A|
05d4 3115 7d4d |1 }M|
05d6 5105 5155 |Q QU|
05d8 4cb9 0d3d |L =|
05da 3911 2551 |9 %Q|
05dc 253d 397d |%=9}|
05de 3905 3514 |9 5 |
05e0 0040 045c | @ \|
05e2 004d 4915 | MI |
05e4 4555 154d |EU M|
05e6 514c b935 |QL 5|
05e8 052d 157d | - }|
05ea 1549 493d | II=|
05ec 4a4c 3c38 |JL<8|
05ee 5c00 4d49 |\ MI|
05f0 1545 5515 | EU |
05f2 4d51 4cb9 |MQL |
05f4 1549 493d | II=|
05f6 497d 3905 |I}9 |
05f8 3514 5c00 |5 \ |
05fa 1525 3505 | %5 |
05fc 1d14 5800 | X |
05fe 7d49 1545 |}I E|