|
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 0484 013c | <| .XXX[0x192]
0470 2155 3925 |!U9%|
0472 5915 494d |Y IM|
0474 1401 9090 | |
0476 9090 b931 | 1|
0478 a5cd d1cc | |
047a b955 b9a5 | U |
047c d1cd 7d51 | }Q|
047e bd7d 55c1 | }U |
0480 9185 d195 | |
0482 7d19 bdc9 |} |
0484 7d49 95b1 |}I |
0486 9585 cd94 | |
0488 0200 3149 | 1I|
048a 1531 1505 | 1 |
048c 4d15 7d31 |M }1|
048e 254d 5000 |%MP |
0490 6c70 9090 |lp |
0492 b931 a5cd | 1 |
0494 d1cc b955 | U|
0496 b9a5 d1cd | |
0498 7d51 bd7d |}Q }|
049a 0995 7d55 | }U|
049c c191 85d1 | |
049e 9590 0070 | p|
04a0 2d35 0539 |-5 9|
04a2 5505 317d |U 1}|
04a4 3125 4d50 |1%MP|
04a6 0048 5490 | HT |
04a8 90b9 31a5 | 1 |
04aa cdd1 ccb9 | |
04ac 19bd c98d | |
04ae 9591 7d55 | }U|
04b0 b9a5 d1cc | |
04b2 0204 2d19 | - |
04b4 3d49 0d15 |=I |
04b6 117d 3125 | }1%|
04b8 4d50 0208 |MP |
04ba 5490 90b9 |T |
04bc 31a5 cdd1 |1 |
04be ccb9 0985 | |
04c0 b9b9 9591 | |
04c2 7d55 b9a5 |}U |
04c4 d1cc 01e8 | |
04c6 2d09 0539 |- 9|
04c8 3915 117d |9 }|
04ca 3125 4d50 |1%MP|
04cc 0024 410d | $A |
04ce 3d35 4105 |=5A |
04d0 4915 7d55 |I }U|
04d2 3925 5915 |9%Y |
04d4 494d 1400 |IM |
04d6 f41d 7d05 | } |
04d8 1105 7cd5 | | |
04da 7c01 e421 || !|
04dc 193d 497d | =I}|
04de 5539 2550 |U9%P|
04e0 00e0 2d11 | - |
04e2 95b5 bdd1 | |
04e4 957d 19a5 | } |
04e6 b194 020c | |
04e8 2d11 1535 |- 5|
04ea 3d51 157d |=Q }|
04ec 1925 3114 | %1 |
04ee 01e0 3125 | 1%|
04f0 b9cd d185 | |
04f2 b1b1 7d19 | } |
04f4 a5b1 9402 | |
04f6 1031 2539 | 1%9|
04f8 4d51 0531 |MQ 1|
04fa 317d 1925 |1} %|
04fc 3114 0214 |1 |
04fe 250d bd91 |% |
0500 957d 19a5 | } |
0502 b194 0218 | |
0504 250d 3d11 |% = |
0506 157d 1925 | } %|
0508 3114 01d8 |1 |
050a 2d19 c995 |- |
050c 95e9 957d | }|
050e 19a5 b194 | |
0510 021c 2d19 | - |
0512 4915 1569 |I i|
0514 157d 1925 | } %|
0516 3114 0180 |1 |
0518 410d 3d35 |A =5|
051a 4155 5115 |AUQ |
051c 7d49 150d |}I |
051e 3d11 2539 |= %9|
0520 1c01 441d | D |
0522 7d05 1105 |} |
0524 7cd9 7c00 || | |
0526 8034 f8f9 | 4 |
0528 6199 95c8 |a |
052a 8119 a5b1 | |
052c 94f0 f001 | |
052e 0425 6119 | %a |
0530 1549 7d19 | I} |
0532 2531 1402 |%1 |
0534 2000 0088 | |
0536 2155 4d15 |!UM |
0538 4939 0535 |I9 5|
053a 1401 dc21 | !|
053c 4105 4d4d |A MM|
053e 5d3d 4910 |]=I |
0540 0068 1519 | h |
0542 0531 4d14 | 1M |
0544 01c0 1d59 | Y|
0546 1549 093d | I =|
0548 4d14 0120 |M |
054a 211d 1551 |! Q|
054c 7d61 1915 |}a |
054e 4802 241d |H $ |
0550 7d05 1105 |} |
0552 7cdd 7c00 || | |
0554 5c40 9090 |\@ |
0556 b905 8dd1 | |
0558 a5d9 a5d1 | |
055a e57d 19a5 | } |
055c b194 007c | ||
055e 3119 3d49 |1 =I|
0560 7d05 0d51 |} Q|
0562 2559 2551 |%Y%Q|
0564 6402 2884 |d ( |
0566 8535 858d | 5 |
0568 a1a5 b994 | |
056a b949 95b1 | I |
056c 9585 cd94 | |
056e b90d d5c9 | |
0570 c995 b9d0 | |
0572 b905 8dd1 | |
0574 a5d9 a5d1 | |
0576 e401 7c3d | |=|
0578 5105 491d |Q I |
057a 1551 7d05 | Q} |
057c 0d51 2559 | Q%Y|
057e 2551 6402 |%Qd |
0580 2c84 8535 |, 5|
0582 858d a1a5 | |
0584 b994 b949 | I|
0586 95b1 9585 | |
0588 cd94 b90d | |
058a d5c9 c995 | |
058c b9d0 b90d | |
058e bdb5 b585 | |
0590 b991 cc01 | |
0592 b84d 0d3d | M =|
0594 3535 0539 |55 9|
0596 117d 3125 | }1%|
0598 392d 4d7d |9-M}|
059a 5d3d 4931 |]=I1|
059c 1001 ac41 | A|
059e 2539 4d51 |%9MQ|
05a0 0531 317d | 11}|
05a2 050d 5125 | Q%|
05a4 5925 5164 |Y%Qd|
05a6 01b4 1d7d | }|
05a8 0511 057c | ||
05aa e17c 0230 | | 0|
05ac 0890 9000 | |
05ae d035 4915 | 5I |
05b0 3115 054d |1 M|
05b2 157d 5d3d | }]=|
05b4 4931 1001 |I1 |
05b6 881d 3d41 | =A|
05b8 5125 3d39 |Q%=9|
05ba 4c02 3469 |L 4i|
05bc 2539 4d51 |%9MQ|
05be 0531 317d | 11}|
05c0 3505 0d21 |5 !|
05c2 2539 157d |%9 }|
05c4 2539 2551 |%9%Q|
05c6 2505 3125 |% 1%|
05c8 6914 018c |i |
05ca 1d7d 0511 | } |
05cc 057c e57c | | ||
05ce 0238 4d25 | 8M%|
05d0 394d 5105 |9MQ |
05d2 3131 7d49 |11}I|
05d4 1119 7d35 | }5|
05d6 2549 493d |%II=|
05d8 494c 023c |IL <|
05da 1d7d 0511 | } |
05dc 057d 057c | } ||
05de 0240 2955 | @)U|
05e0 3925 514d |9%QM|
05e2 7d31 254d |}1%M|
05e4 5001 a850 |P P|
05e6 9090 b905 | |
05e8 c98d a1a5 | |
05ea d995 ccb9 | |
05ec 55b9 a5d9 |U |
05ee 95c9 cd94 | |
05f0 011c 1911 | |
05f2 1559 250d | Y% |
05f4 1402 4441 | DA|
05f6 2539 4d51 |%9MQ|
05f8 0531 317d | 11}|
05fa 5539 2559 |U9%Y|
05fc 1549 4d14 | IM |
05fe 0248 1d7d | H }|