|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0220f2
└─⟦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 0450 | P | .CONST 0x0450 ; 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 0085 | | .CONST 0x0085 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 0129 | ) | Execute Any,Make_Visible
000d e002 | | Load 0x0,0x2
000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000f 0129 | ) | Execute Any,Make_Visible
0010 e003 | | Load 0x0,0x3
0011 e004 | | Load 0x0,0x4
0012 00da | | Load_Top At_Offset_2
0013 e002 | | Load 0x0,0x2
0014 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0015 487f |H | Short_Literal 0x7f
0016 e005 | | Load 0x0,0x5
0017 0386 | | Declare_Variable Package,Visible
0018 00d8 | | Load_Top At_Offset_0
0019 020f | | Execute Module,Activate
001a 00d8 | | Load_Top At_Offset_0
001b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001c 0129 | ) | Execute Any,Make_Visible
001d 4800 |H | Short_Literal 0x0
001e 4806 |H | Short_Literal 0x6
001f 00e1 | | Load_Encached Boolean_Cache
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 4801 |H | Short_Literal 0x1
0022 035e | ^ | Declare_Type Array,Defined,Visible
0023 00d8 | | Load_Top At_Offset_0
0024 0336 | 6 | Declare_Variable Array,Visible
0025 00d8 | | Load_Top At_Offset_0
0026 0335 | 5 | Declare_Variable Array,Duplicate
0027 00cd | | Action Spare6_Action
0028 4806 |H | Short_Literal 0x6
0029 4800 |H | Short_Literal 0x0
002a 4801 |H | Short_Literal 0x1
002b 00d9 | | Load_Top At_Offset_1
002c e213 | | Load 0x1,0x13
002d 01d6 | | Execute Vector,Field_Write
002e 3ffb |? | Loop_Increasing 0x2a
002f 00d9 | | Load_Top At_Offset_1
0030 01d4 | | Execute Vector,Structure_Write
0031 00d9 | | Load_Top At_Offset_1
0032 0337 | 7 | Declare_Variable Array
0033 4801 |H | Short_Literal 0x1
0034 4806 |H | Short_Literal 0x6
0035 00da | | Load_Top At_Offset_2
0036 01d6 | | Execute Vector,Field_Write
0037 4805 |H | Short_Literal 0x5
0038 4800 |H | Short_Literal 0x0
0039 4800 |H | Short_Literal 0x0
003a 00d9 | | Load_Top At_Offset_1
003b e213 | | Load 0x1,0x13
003c 01d6 | | Execute Vector,Field_Write
003d 3ffb |? | Loop_Increasing 0x39
003e 00da | | Load_Top At_Offset_2
003f 01c3 | | Execute Vector,Check_In_Type
0040 0129 | ) | Execute Any,Make_Visible
0041 00da | | Load_Top At_Offset_2
0042 0337 | 7 | Declare_Variable Array
0043 4801 |H | Short_Literal 0x1
0044 4801 |H | Short_Literal 0x1
0045 00da | | Load_Top At_Offset_2
0046 01d6 | | Execute Vector,Field_Write
0047 4801 |H | Short_Literal 0x1
0048 4802 |H | Short_Literal 0x2
0049 00da | | Load_Top At_Offset_2
004a 01d6 | | Execute Vector,Field_Write
004b 4801 |H | Short_Literal 0x1
004c 4803 |H | Short_Literal 0x3
004d 00da | | Load_Top At_Offset_2
004e 01d6 | | Execute Vector,Field_Write
004f 4800 |H | Short_Literal 0x0
0050 4800 |H | Short_Literal 0x0
0051 00da | | Load_Top At_Offset_2
0052 01d6 | | Execute Vector,Field_Write
0053 4806 |H | Short_Literal 0x6
0054 4804 |H | Short_Literal 0x4
0055 4800 |H | Short_Literal 0x0
0056 00d9 | | Load_Top At_Offset_1
0057 e214 | | Load 0x1,0x14
0058 01d6 | | Execute Vector,Field_Write
0059 3ffb |? | Loop_Increasing 0x55
005a 00db | | Load_Top At_Offset_3
005b 01c3 | | Execute Vector,Check_In_Type
005c 0129 | ) | Execute Any,Make_Visible
005d 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
005f 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0061 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0063 00bf | | Action Accept_Activation
0064 e006 | | Load 0x0,0x6
0065 e007 | | Load 0x0,0x7
0066 e008 | | Load 0x0,0x8
0067 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0068 e008 | | Load 0x0,0x8
0069 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
006a e009 | | Load 0x0,0x9
006b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
006c 0387 | | Declare_Variable Package
006d 00d8 | | Load_Top At_Offset_0
006e 020f | | Execute Module,Activate
006f a00a | | Reference 0x0,0xa
0070 00c6 | | Action Check_Subprogram_Elaborated
0071 e002 | | Load 0x0,0x2
0072 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0073 e008 | | Load 0x0,0x8
0074 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0075 e00b | | Load 0x0,0xb
0076 e00c | | Load 0x0,0xc
0077 4800 |H | Short_Literal 0x0
0078 0007 | | Action Break_Optional
0079 029d 01bb | | Declare_Subprogram For_Outer_Call,INIT_01b8
007b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007c 00c7 | | Action Elaborate_Subprogram
007d 029d 01cb | | Declare_Subprogram For_Outer_Call,INIT_01c8
007f 029d 0213 | | Declare_Subprogram For_Outer_Call,INIT_0210
0081 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0082 00c7 | | Action Elaborate_Subprogram
0083 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0084 00c7 | | Action Elaborate_Subprogram
0085 BODY_0008:
0085 00bc | | Action Signal_Activated
0086 00bb | | Action Signal_Completion
0087 0000 | | .XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009b | | .CONST 0x009b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0008 | | .CONST 0x0008 ; Number of locals
008b INIT_0088:
008b 029f 0243 | C| Declare_Subprogram For_Call,INIT_0240
008d 029f 024b | K| Declare_Subprogram For_Call,INIT_0248
008f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0090 00c6 | | Action Check_Subprogram_Elaborated
0091 4802 |H | Short_Literal 0x2
0092 4802 |H | Short_Literal 0x2
0093 0099 | | Action Reference_Dynamic
0094 4803 |H | Short_Literal 0x3
0095 4802 |H | Short_Literal 0x2
0096 0099 | | Action Reference_Dynamic
0097 e00d | | Load 0x0,0xd
0098 e00e | | Load 0x0,0xe
0099 4808 |H | Short_Literal 0x8
009a 0007 | | Action Break_Optional
009b BODY_0088:
009b e5fd | | Load 0x2,-0x3
009c e5fe | | Load 0x2,-0x2
009d e5ff | | Load 0x2,-0x1
009e 4804 |H | Short_Literal 0x4
009f 4802 |H | Short_Literal 0x2
00a0 0099 | | Action Reference_Dynamic
00a1 4805 |H | Short_Literal 0x5
00a2 4802 |H | Short_Literal 0x2
00a3 0099 | | Action Reference_Dynamic
00a4 4806 |H | Short_Literal 0x6
00a5 4802 |H | Short_Literal 0x2
00a6 0099 | | Action Reference_Dynamic
00a7 8216 | | Call 0x1,0x16
00a8 4504 |E | Exit_Subprogram 0x4
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c8 | | .CONST 0x00c8 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0007 | | .CONST 0x0007 ; Number of locals
00b3 INIT_00b0:
00b3 00ec | | Load_Encached Diana_Tree_Cache
00b4 02c7 | | Declare_Variable Any
00b5 00d8 | | Load_Top At_Offset_0
00b6 1c00 | | Execute_Immediate Run_Utility,0x0
00b7 e002 | | Load 0x0,0x2
00b8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00b9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00ba 02c7 | | Declare_Variable Any
00bb 00d8 | | Load_Top At_Offset_0
00bc 1c00 | | Execute_Immediate Run_Utility,0x0
00bd e002 | | Load 0x0,0x2
00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bf e002 | | Load 0x0,0x2
00c0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c1 02ff | | Declare_Variable Variant_Record
00c2 00d8 | | Load_Top At_Offset_0
00c3 1c00 | | Execute_Immediate Run_Utility,0x0
00c4 029f 025b | [| Declare_Subprogram For_Call,INIT_0258
00c6 029f 0363 | c| Declare_Subprogram For_Call,INIT_0360
00c8 BODY_00b0:
00c8 e5fc | | Load 0x2,-0x4
00c9 e002 | | Load 0x0,0x2
00ca 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00cb e00f | | Load 0x0,0xf
00cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00cd 027f | | Execute Discrete,Equal
00ce 7007 |p | Jump_Nonzero 0xd6
00cf e5fc | | Load 0x2,-0x4
00d0 e002 | | Load 0x0,0x2
00d1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d2 e00f | | Load 0x0,0xf
00d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d4 027f | | Execute Discrete,Equal
00d5 681a |h | Jump_Zero 0xf0
00d6 e5fc | | Load 0x2,-0x4
00d7 821f | | Call 0x1,0x1f
00d8 00db | | Load_Top At_Offset_3
00d9 016d | m | Execute Variant_Record,Structure_Write
00da 00da | | Load_Top At_Offset_2
00db e002 | | Load 0x0,0x2
00dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00dd 7011 |p | Jump_Nonzero 0xef
00de 00cf | | Action Mark_Auxiliary
00df 4806 |H | Short_Literal 0x6
00e0 4800 |H | Short_Literal 0x0
00e1 0007 | | Action Break_Optional
00e2 00d8 | | Load_Top At_Offset_0
00e3 e5fb | | Load 0x2,-0x5
00e4 01d7 | | Execute Vector,Field_Read
00e5 6806 |h | Jump_Zero 0xec
00e6 e5fa | | Load 0x2,-0x6
00e7 e405 | | Load 0x2,0x5
00e8 e5fc | | Load 0x2,-0x4
00e9 e5fb | | Load 0x2,-0x5
00ea e40a | | Load 0x2,0xa
00eb 8407 | | Call 0x2,0x7
00ec 00c8 | | Action Pop_Auxiliary_Range
00ed 3ff4 |? | Loop_Increasing 0xe2
00ee 00ce | | Action Pop_Auxiliary
00ef 4507 |E | Exit_Subprogram 0x7
00f0 e5fc | | Load 0x2,-0x4
00f1 e002 | | Load 0x0,0x2
00f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f3 7008 |p | Jump_Nonzero 0xfc
00f4 e002 | | Load 0x0,0x2
00f5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f7 e5fc | | Load 0x2,-0x4
00f8 e002 | | Load 0x0,0x2
00f9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00fa 012e | . | Execute Any,Not_Equal
00fb 6801 |h | Jump_Zero 0xfd
00fc 4507 |E | Exit_Subprogram 0x7
00fd e002 | | Load 0x0,0x2
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff e403 | | Load 0x2,0x3
0100 0120 | | Execute Any,Is_Value
0101 6804 |h | Jump_Zero 0x106
0102 e002 | | Load 0x0,0x2
0103 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0104 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0105 7801 |x | Jump 0x107
0106 e403 | | Load 0x2,0x3
0107 e402 | | Load 0x2,0x2
0108 0120 | | Execute Any,Is_Value
0109 6804 |h | Jump_Zero 0x10e
010a e002 | | Load 0x0,0x2
010b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
010c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
010d 7801 |x | Jump 0x10f
010e e402 | | Load 0x2,0x2
010f 6030 |`0 | Indirect_Literal Discrete,0x140,{0x00000000, 0x00004000}
0110 4801 |H | Short_Literal 0x1
0111 4800 |H | Short_Literal 0x0
0112 4800 |H | Short_Literal 0x0
0113 e5fa | | Load 0x2,-0x6
0114 4801 |H | Short_Literal 0x1
0115 e5fc | | Load 0x2,-0x4
0116 e002 | | Load 0x0,0x2
0117 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0118 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0119 e002 | | Load 0x0,0x2
011a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
011b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
011c c402 | | Store 0x2,0x2
011d c403 | | Store 0x2,0x3
011e c404 | | Store 0x2,0x4
011f 00db | | Load_Top At_Offset_3
0120 680a |h | Jump_Zero 0x12b
0121 4800 |H | Short_Literal 0x0
0122 0092 03f0 | | Action Push_String_Extended,0x3f0 ; "Couldn't open ada unit "
0124 e5fc | | Load 0x2,-0x4
0125 e002 | | Load 0x0,0x2
0126 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0127 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0128 01cc | | Execute Vector,Catenate
0129 821e | | Call 0x1,0x1e
012a 4507 |E | Exit_Subprogram 0x7
012b 00cf | | Action Mark_Auxiliary
012c 4806 |H | Short_Literal 0x6
012d 4800 |H | Short_Literal 0x0
012e 0007 | | Action Break_Optional
012f 00d8 | | Load_Top At_Offset_0
0130 e5fb | | Load 0x2,-0x5
0131 01d7 | | Execute Vector,Field_Read
0132 6806 |h | Jump_Zero 0x139
0133 e5fa | | Load 0x2,-0x6
0134 e5fc | | Load 0x2,-0x4
0135 e5fb | | Load 0x2,-0x5
0136 00db | | Load_Top At_Offset_3
0137 e402 | | Load 0x2,0x2
0138 8406 | | Call 0x2,0x6
0139 00c8 | | Action Pop_Auxiliary_Range
013a 3ff4 |? | Loop_Increasing 0x12f
013b 00ce | | Action Pop_Auxiliary
013c 4507 |E | Exit_Subprogram 0x7
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0159 | Y | .CONST 0x0159 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0005 | | .CONST 0x0005 ; Number of locals
014b INIT_0148:
014b e002 | | Load 0x0,0x2
014c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
014d 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
014e 02c7 | | Declare_Variable Any
014f 00d8 | | Load_Top At_Offset_0
0150 1c00 | | Execute_Immediate Run_Utility,0x0
0151 e002 | | Load 0x0,0x2
0152 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0153 e20e | | Load 0x1,0xe
0154 02c7 | | Declare_Variable Any
0155 00d8 | | Load_Top At_Offset_0
0156 1c00 | | Execute_Immediate Run_Utility,0x0
0157 029f 03e3 | | Declare_Subprogram For_Call,INIT_03e0
0159 BODY_0148:
0159 8405 | | Call 0x2,0x5
015a e5fc | | Load 0x2,-0x4
015b e5fd | | Load 0x2,-0x3
015c 85fe | | Call 0x2,-0x2
015d e002 | | Load 0x0,0x2
015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015f e402 | | Load 0x2,0x2
0160 0120 | | Execute Any,Is_Value
0161 6804 |h | Jump_Zero 0x166
0162 e002 | | Load 0x0,0x2
0163 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0164 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0165 7801 |x | Jump 0x167
0166 e402 | | Load 0x2,0x2
0167 67d8 |g | Indirect_Literal Discrete,0x140,{0x00000000, 0x00004000}
0168 e5fc | | Load 0x2,-0x4
0169 e5fd | | Load 0x2,-0x3
016a e002 | | Load 0x0,0x2
016b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
016c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016d e002 | | Load 0x0,0x2
016e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
016f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0170 c402 | | Store 0x2,0x2
0171 005b | [ | Store_Top Discrete,At_Offset_3
0172 00da | | Load_Top At_Offset_2
0173 6818 |h | Jump_Zero 0x18c
0174 00da | | Load_Top At_Offset_2
0175 0e08 | | Execute_Immediate Not_Equal,0x8
0176 6814 |h | Jump_Zero 0x18b
0177 4800 |H | Short_Literal 0x0
0178 e5fb | | Load 0x2,-0x5
0179 0092 03f1 | | Action Push_String_Extended,0x3f1 ; " "
017b 01cc | | Execute Vector,Catenate
017c e403 | | Load 0x2,0x3
017d e002 | | Load 0x0,0x2
017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017f 011c | | Execute Any,Convert_Unchecked
0180 1c01 | | Execute_Immediate Run_Utility,0x1
0181 01cc | | Execute Vector,Catenate
0182 0092 03f2 | | Action Push_String_Extended,0x3f2 ; " returned traversing "
0184 01cc | | Execute Vector,Catenate
0185 e5fd | | Load 0x2,-0x3
0186 e002 | | Load 0x0,0x2
0187 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0188 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0189 01cc | | Execute Vector,Catenate
018a 821e | | Call 0x1,0x1e
018b 4506 |E | Exit_Subprogram 0x6
018c 00cf | | Action Mark_Auxiliary
018d 781e |x | Jump 0x1ac
018e e402 | | Load 0x2,0x2
018f e002 | | Load 0x0,0x2
0190 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0191 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0192 c404 | | Store 0x2,0x4
0193 00da | | Load_Top At_Offset_2
0194 e002 | | Load 0x0,0x2
0195 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0196 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0197 680b |h | Jump_Zero 0x1a3
0198 e5fb | | Load 0x2,-0x5
0199 e5fc | | Load 0x2,-0x4
019a e404 | | Load 0x2,0x4
019b 4ffe |O | Short_Literal 0x7fe
019c 4802 |H | Short_Literal 0x2
019d 0099 | | Action Reference_Dynamic
019e 4fff |O | Short_Literal 0x7ff
019f 4802 |H | Short_Literal 0x2
01a0 0099 | | Action Reference_Dynamic
01a1 8217 | | Call 0x1,0x17
01a2 7803 |x | Jump 0x1a6
01a3 e5fc | | Load 0x2,-0x4
01a4 00db | | Load_Top At_Offset_3
01a5 85fe | | Call 0x2,-0x2
01a6 e402 | | Load 0x2,0x2
01a7 e002 | | Load 0x0,0x2
01a8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01a9 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
01aa c402 | | Store 0x2,0x2
01ab 00c9 | | Action Pop_Auxiliary_Loop
01ac e402 | | Load 0x2,0x2
01ad e002 | | Load 0x0,0x2
01ae 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01af 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01b0 6fdd |o | Jump_Zero 0x18e
01b1 00ce | | Action Pop_Auxiliary
01b2 4506 |E | Exit_Subprogram 0x6
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e010 | | Load 0x0,0x10
01bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bd 4807 |H | Short_Literal 0x7
01be e5ff | | Load 0x2,-0x1
01bf e011 | | Load 0x0,0x11
01c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c1 00db | | Load_Top At_Offset_3
01c2 6802 |h | Jump_Zero 0x1c5
01c3 e20d | | Load 0x1,0xd
01c4 0257 | W | Execute Discrete,Raise
01c5 4503 |E | Exit_Subprogram 0x3
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01db | | .CONST 0x01db ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0005 | | .CONST 0x0005 ; Number of locals
01cb INIT_01c8:
01cb e002 | | Load 0x0,0x2
01cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01cd 02ff | | Declare_Variable Variant_Record
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e002 | | Load 0x0,0x2
01d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d3 e002 | | Load 0x0,0x2
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 e002 | | Load 0x0,0x2
01d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d8 02c7 | | Declare_Variable Any
01d9 00d8 | | Load_Top At_Offset_0
01da 1c00 | | Execute_Immediate Run_Utility,0x0
01db BODY_01c8:
01db e002 | | Load 0x0,0x2
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd 00d9 | | Load_Top At_Offset_1
01de 0120 | | Execute Any,Is_Value
01df 6804 |h | Jump_Zero 0x1e4
01e0 e002 | | Load 0x0,0x2
01e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01e3 7801 |x | Jump 0x1e5
01e4 00d9 | | Load_Top At_Offset_1
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 e002 | | Load 0x0,0x2
01eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed c405 | | Store 0x2,0x5
01ee 005a | Z | Store_Top Discrete,At_Offset_2
01ef e002 | | Load 0x0,0x2
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 03f3 | | Action Push_String_Extended,0x3f3 ; "?.code_database"
01fa e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
0204 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0205 4401 |D | Exit_Subprogram With_Result,0x1
0206 00db | | Load_Top At_Offset_3
0207 4401 |D | Exit_Subprogram With_Result,0x1
0208 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021f | | .CONST 0x021f ; 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 02c7 | | Declare_Variable Any
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f BODY_0210:
021f e008 | | Load 0x0,0x8
0220 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0221 e008 | | Load 0x0,0x8
0222 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0223 4801 |H | Short_Literal 0x1
0224 e5fe | | Load 0x2,-0x2
0225 e5ff | | Load 0x2,-0x1
0226 e008 | | Load 0x0,0x8
0227 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0228 c402 | | Store 0x2,0x2
0229 005a | Z | Store_Top Discrete,At_Offset_2
022a 00d9 | | Load_Top At_Offset_1
022b 6802 |h | Jump_Zero 0x22e
022c 00ec | | Load_Encached Diana_Tree_Cache
022d 4402 |D | Exit_Subprogram With_Result,0x2
022e e402 | | Load 0x2,0x2
022f e218 | | Load 0x1,0x18
0230 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0231 a403 | | Store_Unchecked 0x2,0x3
0232 e402 | | Load 0x2,0x2
0233 e218 | | Load 0x1,0x18
0234 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0235 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0236 00da | | Load_Top At_Offset_2
0237 e403 | | Load 0x2,0x3
0238 497d |I} | Short_Literal 0x17d
0239 00eb | | Load_Encached Diana_Cache
023a 0096 | | Execute Package,Field_Execute_Dynamic
023b c406 | | Store 0x2,0x6
023c 00d8 | | Load_Top At_Offset_0
023d 4402 |D | Exit_Subprogram With_Result,0x2
023e 0000 0000 | | .XXX[0x2]
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 e20f | | Load 0x1,0xf
0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0247 4402 |D | Exit_Subprogram With_Result,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 e20f | | Load 0x1,0xf
024e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024f c5fc | | Store 0x2,-0x4
0250 4504 |E | Exit_Subprogram 0x4
0251 0000 0000 | | .BLANK 0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0288 | | .CONST 0x0288 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 000b | | .CONST 0x000b ; Number of locals
025b INIT_0258:
025b e002 | | Load 0x0,0x2
025c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025d e014 | | Load 0x0,0x14
025e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
025f 02c7 | | Declare_Variable Any
0260 00d8 | | Load_Top At_Offset_0
0261 1c00 | | Execute_Immediate Run_Utility,0x0
0262 00ec | | Load_Encached Diana_Tree_Cache
0263 02c7 | | Declare_Variable Any
0264 00d8 | | Load_Top At_Offset_0
0265 1c00 | | Execute_Immediate Run_Utility,0x0
0266 e002 | | Load 0x0,0x2
0267 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0268 02ff | | Declare_Variable Variant_Record
0269 00d8 | | Load_Top At_Offset_0
026a 1c00 | | Execute_Immediate Run_Utility,0x0
026b e002 | | Load 0x0,0x2
026c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026d 02c7 | | Declare_Variable Any
026e 00d8 | | Load_Top At_Offset_0
026f 1c00 | | Execute_Immediate Run_Utility,0x0
0270 e002 | | Load 0x0,0x2
0271 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0272 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0273 02c7 | | Declare_Variable Any
0274 00d8 | | Load_Top At_Offset_0
0275 1c00 | | Execute_Immediate Run_Utility,0x0
0276 e002 | | Load 0x0,0x2
0277 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0278 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0279 02c7 | | Declare_Variable Any
027a 00d8 | | Load_Top At_Offset_0
027b 1c00 | | Execute_Immediate Run_Utility,0x0
027c e002 | | Load 0x0,0x2
027d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027e e002 | | Load 0x0,0x2
027f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0280 02ff | | Declare_Variable Variant_Record
0281 00d8 | | Load_Top At_Offset_0
0282 1c00 | | Execute_Immediate Run_Utility,0x0
0283 e002 | | Load 0x0,0x2
0284 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0285 02ff | | Declare_Variable Variant_Record
0286 00d8 | | Load_Top At_Offset_0
0287 1c00 | | Execute_Immediate Run_Utility,0x0
0288 BODY_0258:
0288 e7ff | | Load 0x3,-0x1
0289 0145 | E | Execute Heap_Access,Diana_Tree_Kind
028a 0fa8 | | Execute_Immediate Equal,0xa8
028b 6805 |h | Jump_Zero 0x291
028c e7ff | | Load 0x3,-0x1
028d e002 | | Load 0x0,0x2
028e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
028f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0290 680d |h | Jump_Zero 0x29e
0291 e010 | | Load 0x0,0x10
0292 180e | | Execute Package,Field_Execute,Field_Number 0xe
0293 4801 |H | Short_Literal 0x1
0294 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "Skipping source state unit "
0296 e7fc | | Load 0x3,-0x4
0297 e002 | | Load 0x0,0x2
0298 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0299 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
029a 01cc | | Execute Vector,Catenate
029b e011 | | Load 0x0,0x11
029c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029d 4506 |E | Exit_Subprogram 0x6
029e e7fe | | Load 0x3,-0x2
029f 0f06 | | Execute_Immediate Equal,0x6
02a0 6866 |hf | Jump_Zero 0x307
02a1 e002 | | Load 0x0,0x2
02a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a3 00da | | Load_Top At_Offset_2
02a4 e7ff | | Load 0x3,-0x1
02a5 e002 | | Load 0x0,0x2
02a6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02a8 00d1 | | Pop_Control Pop_Count_1
02a9 005b | [ | Store_Top Discrete,At_Offset_3
02aa 00d9 | | Load_Top At_Offset_1
02ab e002 | | Load 0x0,0x2
02ac 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02ae 7058 |pX | Jump_Nonzero 0x307
02af e010 | | Load 0x0,0x10
02b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b1 4801 |H | Short_Literal 0x1
02b2 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "Getting other part for "
02b4 e7fc | | Load 0x3,-0x4
02b5 e002 | | Load 0x0,0x2
02b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b7 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02b8 01cc | | Execute Vector,Catenate
02b9 e011 | | Load 0x0,0x11
02ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bb e002 | | Load 0x0,0x2
02bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02bd 00d9 | | Load_Top At_Offset_1
02be 6099 |` | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000}
02bf e7fb | | Load 0x3,-0x5
02c0 e60a | | Load 0x3,0xa
02c1 e002 | | Load 0x0,0x2
02c2 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c4 00d1 | | Pop_Control Pop_Count_1
02c5 005b | [ | Store_Top Discrete,At_Offset_3
02c6 e002 | | Load 0x0,0x2
02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c8 e608 | | Load 0x3,0x8
02c9 0120 | | Execute Any,Is_Value
02ca 6804 |h | Jump_Zero 0x2cf
02cb e002 | | Load 0x0,0x2
02cc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02cd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02ce 7801 |x | Jump 0x2d0
02cf e608 | | Load 0x3,0x8
02d0 e607 | | Load 0x3,0x7
02d1 0120 | | Execute Any,Is_Value
02d2 6804 |h | Jump_Zero 0x2d7
02d3 e002 | | Load 0x0,0x2
02d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02d6 7801 |x | Jump 0x2d8
02d7 e607 | | Load 0x3,0x7
02d8 00db | | Load_Top At_Offset_3
02d9 607e |`~ | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000}
02da 4801 |H | Short_Literal 0x1
02db 4800 |H | Short_Literal 0x0
02dc e7fb | | Load 0x3,-0x5
02dd 4801 |H | Short_Literal 0x1
02de e002 | | Load 0x0,0x2
02df 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02e0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02e1 00d1 | | Pop_Control Pop_Count_1
02e2 c607 | | Store 0x3,0x7
02e3 c608 | | Store 0x3,0x8
02e4 005b | [ | Store_Top Discrete,At_Offset_3
02e5 00da | | Load_Top At_Offset_2
02e6 680a |h | Jump_Zero 0x2f1
02e7 4800 |H | Short_Literal 0x0
02e8 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "Couldn't open ada unit for spec of "
02ea e7fc | | Load 0x3,-0x4
02eb e002 | | Load 0x0,0x2
02ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ed 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02ee 01cc | | Execute Vector,Catenate
02ef 821e | | Call 0x1,0x1e
02f0 7816 |x | Jump 0x307
02f1 e7ff | | Load 0x3,-0x1
02f2 e607 | | Load 0x3,0x7
02f3 012f | / | Execute Any,Equal
02f4 7012 |p | Jump_Nonzero 0x307
02f5 e010 | | Load 0x0,0x10
02f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f7 4801 |H | Short_Literal 0x1
02f8 e7fc | | Load 0x3,-0x4
02f9 e002 | | Load 0x0,0x2
02fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02fc 0092 03f7 | | Action Push_String_Extended,0x3f7 ; " is a body: check its spec"
02fe 01cc | | Execute Vector,Catenate
02ff e011 | | Load 0x0,0x11
0300 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0301 e7fb | | Load 0x3,-0x5
0302 e7fc | | Load 0x3,-0x4
0303 e7fd | | Load 0x3,-0x3
0304 e7fe | | Load 0x3,-0x2
0305 e607 | | Load 0x3,0x7
0306 8406 | | Call 0x2,0x6
0307 e7ff | | Load 0x3,-0x1
0308 4976 |Iv | Short_Literal 0x176
0309 00eb | | Load_Encached Diana_Cache
030a 0098 | | Execute Package,Field_Read_Dynamic
030b 180f | | Execute Package,Field_Execute,Field_Number 0xf
030c c604 | | Store 0x3,0x4
030d e015 | | Load 0x0,0x15
030e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030f e016 | | Load 0x0,0x16
0310 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0311 e7fb | | Load 0x3,-0x5
0312 e604 | | Load 0x3,0x4
0313 e7fe | | Load 0x3,-0x2
0314 e014 | | Load 0x0,0x14
0315 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0316 c603 | | Store 0x3,0x3
0317 00cf | | Action Mark_Auxiliary
0318 7837 |x7 | Jump 0x350
0319 e603 | | Load 0x3,0x3
031a e014 | | Load 0x0,0x14
031b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
031c e605 | | Load 0x3,0x5
031d 016d | m | Execute Variant_Record,Structure_Write
031e e002 | | Load 0x0,0x2
031f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0320 e606 | | Load 0x3,0x6
0321 0120 | | Execute Any,Is_Value
0322 6803 |h | Jump_Zero 0x326
0323 e002 | | Load 0x0,0x2
0324 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0325 7801 |x | Jump 0x327
0326 e606 | | Load 0x3,0x6
0327 6030 |`0 | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000}
0328 e7fb | | Load 0x3,-0x5
0329 e605 | | Load 0x3,0x5
032a e002 | | Load 0x0,0x2
032b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
032c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
032d c606 | | Store 0x3,0x6
032e c602 | | Store 0x3,0x2
032f e602 | | Load 0x3,0x2
0330 701a |p | Jump_Nonzero 0x34b
0331 e605 | | Load 0x3,0x5
0332 e002 | | Load 0x0,0x2
0333 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0334 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0335 6815 |h | Jump_Zero 0x34b
0336 e7fc | | Load 0x3,-0x4
0337 e606 | | Load 0x3,0x6
0338 85fd | | Call 0x2,-0x3
0339 7011 |p | Jump_Nonzero 0x34b
033a e7fb | | Load 0x3,-0x5
033b e7fd | | Load 0x3,-0x3
033c e606 | | Load 0x3,0x6
033d 4ffd |O | Short_Literal 0x7fd
033e 4802 |H | Short_Literal 0x2
033f 0099 | | Action Reference_Dynamic
0340 4ffe |O | Short_Literal 0x7fe
0341 4802 |H | Short_Literal 0x2
0342 0099 | | Action Reference_Dynamic
0343 4fff |O | Short_Literal 0x7ff
0344 4802 |H | Short_Literal 0x2
0345 0099 | | Action Reference_Dynamic
0346 8216 | | Call 0x1,0x16
0347 e7fb | | Load 0x3,-0x5
0348 e606 | | Load 0x3,0x6
0349 e7fc | | Load 0x3,-0x4
034a 85fe | | Call 0x2,-0x2
034b e603 | | Load 0x3,0x3
034c e014 | | Load 0x0,0x14
034d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
034e c603 | | Store 0x3,0x3
034f 00c9 | | Action Pop_Auxiliary_Loop
0350 e603 | | Load 0x3,0x3
0351 e014 | | Load 0x0,0x14
0352 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0353 6fc5 |o | Jump_Zero 0x319
0354 4506 |E | Exit_Subprogram 0x6
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
035c 0000 0000 | | .BLANK 0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0385 | | .CONST 0x0385 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0008 | | .CONST 0x0008 ; Number of locals
0363 INIT_0360:
0363 e008 | | Load 0x0,0x8
0364 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0365 02ff | | Declare_Variable Variant_Record
0366 e7fc | | Load 0x3,-0x4
0367 e219 | | Load 0x1,0x19
0368 e21a | | Load 0x1,0x1a
0369 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
036a 800a | | Call 0x0,0xa
036b 00d9 | | Load_Top At_Offset_1
036c 016d | m | Execute Variant_Record,Structure_Write
036d e002 | | Load 0x0,0x2
036e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036f 02c7 | | Declare_Variable Any
0370 00d8 | | Load_Top At_Offset_0
0371 1c00 | | Execute_Immediate Run_Utility,0x0
0372 e002 | | Load 0x0,0x2
0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0374 e002 | | Load 0x0,0x2
0375 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0376 02ff | | Declare_Variable Variant_Record
0377 00d8 | | Load_Top At_Offset_0
0378 1c00 | | Execute_Immediate Run_Utility,0x0
0379 e014 | | Load 0x0,0x14
037a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
037b 02c7 | | Declare_Variable Any
037c 00d8 | | Load_Top At_Offset_0
037d 1c00 | | Execute_Immediate Run_Utility,0x0
037e 00ec | | Load_Encached Diana_Tree_Cache
037f 02c7 | | Declare_Variable Any
0380 00d8 | | Load_Top At_Offset_0
0381 1c00 | | Execute_Immediate Run_Utility,0x0
0382 e014 | | Load 0x0,0x14
0383 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
0384 0337 | 7 | Declare_Variable Array
0385 BODY_0360:
0385 00cf | | Action Mark_Auxiliary
0386 00d9 | | Load_Top At_Offset_1
0387 01d9 | | Execute Vector,Reverse_Bounds
0388 0007 | | Action Break_Optional
0389 00d8 | | Load_Top At_Offset_0
038a e7fe | | Load 0x3,-0x2
038b 01d7 | | Execute Vector,Field_Read
038c 00d9 | | Load_Top At_Offset_1
038d e608 | | Load 0x3,0x8
038e 01d6 | | Execute Vector,Field_Write
038f 00c8 | | Action Pop_Auxiliary_Range
0390 3ff8 |? | Loop_Increasing 0x389
0391 00ce | | Action Pop_Auxiliary
0392 e015 | | Load 0x0,0x15
0393 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0394 e016 | | Load 0x0,0x16
0395 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0396 e7fb | | Load 0x3,-0x5
0397 00da | | Load_Top At_Offset_2
0398 e7fb | | Load 0x3,-0x5
0399 e602 | | Load 0x3,0x2
039a 8220 | | Call 0x1,0x20
039b e014 | | Load 0x0,0x14
039c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
039d c606 | | Store 0x3,0x6
039e 00cf | | Action Mark_Auxiliary
039f 7838 |x8 | Jump 0x3d8
03a0 00db | | Load_Top At_Offset_3
03a1 e014 | | Load 0x0,0x14
03a2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03a3 e605 | | Load 0x3,0x5
03a4 016d | m | Execute Variant_Record,Structure_Write
03a5 e002 | | Load 0x0,0x2
03a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a7 e603 | | Load 0x3,0x3
03a8 0120 | | Execute Any,Is_Value
03a9 6803 |h | Jump_Zero 0x3ad
03aa e002 | | Load 0x0,0x2
03ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ac 7801 |x | Jump 0x3ae
03ad e603 | | Load 0x3,0x3
03ae 67a9 |g | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000}
03af e7fb | | Load 0x3,-0x5
03b0 e605 | | Load 0x3,0x5
03b1 e002 | | Load 0x0,0x2
03b2 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b4 c603 | | Store 0x3,0x3
03b5 c604 | | Store 0x3,0x4
03b6 e604 | | Load 0x3,0x4
03b7 701b |p | Jump_Nonzero 0x3d3
03b8 e605 | | Load 0x3,0x5
03b9 e002 | | Load 0x0,0x2
03ba 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03bc 6816 |h | Jump_Zero 0x3d3
03bd e7fd | | Load 0x3,-0x3
03be e603 | | Load 0x3,0x3
03bf 85fd | | Call 0x2,-0x3
03c0 7012 |p | Jump_Nonzero 0x3d3
03c1 e7fb | | Load 0x3,-0x5
03c2 e7fe | | Load 0x3,-0x2
03c3 e603 | | Load 0x3,0x3
03c4 4ffd |O | Short_Literal 0x7fd
03c5 4802 |H | Short_Literal 0x2
03c6 0099 | | Action Reference_Dynamic
03c7 4ffe |O | Short_Literal 0x7fe
03c8 4802 |H | Short_Literal 0x2
03c9 0099 | | Action Reference_Dynamic
03ca 4fff |O | Short_Literal 0x7ff
03cb 4802 |H | Short_Literal 0x2
03cc 0099 | | Action Reference_Dynamic
03cd 8216 | | Call 0x1,0x16
03ce e7fb | | Load 0x3,-0x5
03cf e603 | | Load 0x3,0x3
03d0 e002 | | Load 0x0,0x2
03d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d2 85fe | | Call 0x2,-0x2
03d3 00db | | Load_Top At_Offset_3
03d4 e014 | | Load 0x0,0x14
03d5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03d6 c606 | | Store 0x3,0x6
03d7 00c9 | | Action Pop_Auxiliary_Loop
03d8 00db | | Load_Top At_Offset_3
03d9 e014 | | Load 0x0,0x14
03da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03db 6fc4 |o | Jump_Zero 0x3a0
03dc 4506 |E | Exit_Subprogram 0x6
03dd 0000 0000 | | .XXX[0x3]
03df 0000 | |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 03ed | | .CONST 0x03ed ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 e5fd | | Load 0x2,-0x3
03e4 e002 | | Load 0x0,0x2
03e5 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03e6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03e7 e002 | | Load 0x0,0x2
03e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03e9 6802 |h | Jump_Zero 0x3ec
03ea 00cc | | Action Pop_Block
03eb 4506 |E | Exit_Subprogram 0x6
03ec 4501 |E | Exit_Subprogram 0x1
03ed TRAP_03e0:
03ed 0007 | | Action Break_Optional
03ee 00cc | | Action Pop_Block
03ef 4506 |E | Exit_Subprogram 0x6
03f0 ; --------------------------------------------------------------------------------------
03f0 ; STRING TABLE
03f0 ; --------------------------------------------------------------------------------------
03f0 0012 | | .STRTAB 0x0012->0x03f9 ; "Couldn't open ada unit "
03f1 0027 | ' | .STRTAB 0x0027->0x0404 ; " "
03f2 0026 | & | .STRTAB 0x0026->0x0405 ; " returned traversing "
03f3 0039 | 9 | .STRTAB 0x0039->0x040f ; "?.code_database"
03f4 0046 | F | .STRTAB 0x0046->0x0417 ; "Skipping source state unit "
03f5 005f | _ | .STRTAB 0x005f->0x0424 ; "Getting other part for "
03f6 0074 | t | .STRTAB 0x0074->0x0430 ; "Couldn't open ada unit for spec of "
03f7 0095 | | .STRTAB 0x0095->0x0441 ; " is a body: check its spec"
03f8 00ad | | .STREND 0x00ad->0x044e
03f9 436f 756c |Coul| .STRTAB_STRINGS
044f 0000 | | .XXX[0x1]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 000d | | .DEBUG4 0x0004,0x000d,0x7959,0x0000,0x0001,0x0000
0456 e222 0326 | " &| .XXX[0xa7]
0458 e222 0322 | " "|
045a e222 3000 | "0 |
045c 0337 60a2 | 7` |
045e 4801 4800 |H H |
0460 00d9 e229 | )|
0462 01d6 3ffb | ? |
0464 e222 3000 | "0 |
0466 0119 00d9 | |
0468 3800 4800 |8 H |
046a 00d9 3801 | 8 |
046c e002 1816 | |
046e e222 3002 | "0 |
0470 0119 00d9 | |
0472 3802 e002 |8 |
0474 1816 e222 | "|
0476 3004 0119 |0 |
0478 00d9 3804 | 8 |
047a e002 1816 | |
047c e222 3003 | "0 |
047e 0119 00d9 | |
0480 3803 e002 |8 |
0482 1816 e222 | "|
0484 3005 0119 |0 |
0486 00d9 3805 | 8 |
0488 4800 00d9 |H |
048a 3806 4800 |8 H |
048c 00d9 3807 | 8 |
048e e003 1b0e | |
0490 e211 0007 | |
0492 e004 e005 | |
0494 e222 e002 | " |
0496 1b2d 0387 | - |
0498 00d8 020f | |
049a e006 e007 | |
049c e222 e211 | " |
049e e002 1b2e | .|
04a0 0387 00d8 | |
04a2 020f 029d | |
04a4 03cb 029d | |
04a6 03db 029d | |
04a8 03f3 029d | |
04aa 0403 029d | |
04ac 0423 029d | # |
04ae 0443 029d | C |
04b0 04db 1d13 | |
04b2 00c7 1d14 | |
04b4 00c7 029d | |
04b6 0513 1d15 | |
04b8 00c7 1d16 | |
04ba 00c7 029d | |
04bc 0523 029d | # |
04be 0543 1d17 | C |
04c0 00c7 1d18 | |
04c2 00c7 1d1a | |
04c4 00c7 1d1b | |
04c6 00c7 1d1c | |
04c8 00c7 1d1d | |
04ca 00c7 1d1e | |
04cc 00c7 1d1f | |
04ce 00c7 1d20 | |
04d0 00c7 1d21 | !|
04d2 00c7 1d19 | |
04d4 00c7 00bc | |
04d6 00bb 0000 | |
04d8 00db 0004 | |
04da 0001 4607 | F |
04dc 4302 7806 |C x |
04de 7809 780d |x x |
04e0 7810 7811 |x x |
04e2 7812 7815 |x x |
04e4 00da 0091 | |
04e6 0596 4201 | B |
04e8 00db 00db | |
04ea 00e0 181b | |
04ec 4202 00da |B |
04ee 00e0 181c | |
04f0 4201 00db |B |
04f2 4202 00db |B |
04f4 4202 e212 |B |
04f6 00dc 0267 | g|
04f8 4202 e212 |B |
04fa 00dc 0268 | h|
04fc 4202 |B |
04fd 0000 0000 | | .BLANK 0000[0x6]
0503 0400 | | .XXX[0x1]
0504 0000 0000 | | .BLANK 0000[0x4]
0508 0117 01a1 | | .XXX[0xa3]
050a 0005 00da | |
050c e008 180e | |
050e e009 1b19 | |
0510 e002 1b10 | |
0512 e00a 1b14 | |
0514 02ff 00d8 | |
0516 1c00 4801 | H |
0518 a5fc e009 | |
051a 1b19 e223 | #|
051c 0120 6803 | h |
051e e001 1b0d | |
0520 7801 e223 |x #|
0522 e001 180f | |
0524 c223 005b | # [|
0526 e223 e001 | # |
0528 1836 7004 | 6p |
052a 0092 0599 | |
052c 822d 4504 | -E |
052e e001 1b0e | |
0530 e402 e223 | #|
0532 e001 1813 | |
0534 4801 e210 |H |
0536 8231 e5fe | 1 |
0538 e223 e001 | # |
053a 181a 4802 | H |
053c e210 8231 | 1|
053e e5fd e223 | #|
0540 e001 181b | |
0542 4801 e210 |H |
0544 8231 4803 | 1H |
0546 e223 e001 | # |
0548 181e 4801 | H |
054a e210 8231 | 1|
054c e5ff e224 | $|
054e 03b6 a225 | %|
0550 e5fe e224 | $|
0552 03b6 a226 | &|
0554 e5fd e224 | $|
0556 03b6 a227 | '|
0558 e223 e001 | # |
055a 1824 a229 | $ )|
055c e229 0229 | ) )|
055e 00d8 3c00 | < |
0560 0092 059a | |
0562 e5ff 01cc | |
0564 0092 059b | |
0566 01cc e5fe | |
0568 01cc 4802 | H |
056a 8232 00d9 | 2 |
056c 3800 00d1 |8 |
056e e228 e002 | ( |
0570 1817 e229 | )|
0572 0227 3c00 | '< |
0574 e22b 1812 | + |
0576 e002 1817 | |
0578 e229 0227 | ) '|
057a 3c00 e22c |< ,|
057c 1811 a22a | *|
057e 4801 e22a |H *|
0580 0217 3806 | 8 |
0582 4800 e22a |H *|
0584 0217 3807 | 8 |
0586 e229 0227 | ) '|
0588 3c00 e002 |< |
058a 182a e22a | * *|
058c 0217 3802 | 8 |
058e e22a 0217 | * |
0590 3c02 e22a |< *|
0592 0217 3804 | 8 |
0594 e22a 0217 | * |
0596 3c02 e22a |< *|
0598 0217 3803 | 8 |
059a e22a 0217 | * |
059c 3c02 e229 |< )|
059e 0227 3801 | '8 |
05a0 4504 00d8 |E |
05a2 0107 4940 | I@|
05a4 494f 0262 |IO b|
05a6 6803 4800 |h H |
05a8 a5fc 4504 | E |
05aa 0100 | |
05ab 0000 0000 | | .BLANK 0000[0x5]
05b0 01b5 01ca | | .XXX[0x1c]
05b2 0002 e002 | |
05b4 1b10 e223 | #|
05b6 e001 1824 | $|
05b8 0229 e002 | ) |
05ba 1b10 00d9 | |
05bc 3c00 e002 |< |
05be 1824 00da | $ |
05c0 3800 005a |8 Z|
05c2 00d1 e223 | #|
05c4 e001 1814 | |
05c6 e223 e001 | # |
05c8 1810 4501 | E |
05ca 0007 4501 | E |
05cc 0000 0000 | | .BLANK 0000[0x4]
05d0 01d3 01eb | | .XXX[0x30]
05d2 0001 4801 | H |
05d4 a5fd 4805 | H |
05d6 8233 00db | 3 |
05d8 e223 e001 | # |
05da 1822 8234 | " 4|
05dc 4800 e5fe |H |
05de e5ff e223 | #|
05e0 e001 1827 | '|
05e2 4806 e210 |H |
05e4 8231 0092 | 1 |
05e6 059c e5fe | |
05e8 01cc 820f | |
05ea 4503 00d8 |E |
05ec 0107 4940 | I@|
05ee 494f 0262 |IO b|
05f0 6803 4800 |h H |
05f2 a5fd 4503 | E |
05f4 0100 0000 | |
05f6 0000 0000 | |
05f8 01fb 020f | |
05fa 0001 4801 | H |
05fc a5fd 4805 | H |
05fe 8233 8234 | 3 4|