|
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_5e40f2
└─⟦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 INIT_0088,For_Outer_Call,Visible,Unelaborated
005f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0061 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
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 | | Store_Unchecked 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 INIT_01b8,For_Outer_Call
007b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007c 00c7 | | Action Elaborate_Subprogram
007d 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
007f 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
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 INIT_0240,For_Call
008d 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
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_Suprogram New_Top_Offset 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 INIT_0258,For_Call
00c6 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_03e0,For_Call
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_Suprogram New_Top_Offset 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 -0x2
019c 4802 |H | Short_Literal 0x2
019d 0099 | | Action Reference_Dynamic
019e 4fff |O | Short_Literal -0x1
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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_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 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_Value,New_Top_Offset 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_Uncheched 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,Entry
023b c406 | | Store 0x2,0x6
023c 00d8 | | Load_Top At_Offset_0
023d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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_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 e20f | | Load 0x1,0xf
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 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,-0x58
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_Suprogram New_Top_Offset 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 -0x3
033e 4802 |H | Short_Literal 0x2
033f 0099 | | Action Reference_Dynamic
0340 4ffe |O | Short_Literal -0x2
0341 4802 |H | Short_Literal 0x2
0342 0099 | | Action Reference_Dynamic
0343 4fff |O | Short_Literal -0x1
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_Suprogram New_Top_Offset 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 -0x3
03c5 4802 |H | Short_Literal 0x2
03c6 0099 | | Action Reference_Dynamic
03c7 4ffe |O | Short_Literal -0x2
03c8 4802 |H | Short_Literal 0x2
03c9 0099 | | Action Reference_Dynamic
03ca 4fff |O | Short_Literal -0x1
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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x6
03ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ed TRAP_03e0:
03ed 0007 | | Action Break_Optional
03ee 00cc | | Action Pop_Block
03ef 4506 |E | Exit_Suprogram New_Top_Offset 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,0x9699,0x0000,0x0001,0x0000
0456 8917 9008 | | .XXX[0x35]
0458 f028 0e70 | ( p|
045a 00c5 e010 | |
045c 0364 085c | d \|
045e f002 901c | |
0460 0360 085f | ` _|
0462 9008 d01f | |
0464 9008 d020 | |
0466 0365 c00c | e |
0468 036e 9029 | n )|
046a e010 036c | l|
046c 0364 085c | d \|
046e e000 036e | n|
0470 902f 8914 | / |
0472 036c e003 | l |
0474 97f0 036c | l|
0476 e007 9018 | |
0478 036c e008 | l |
047a 034d 3fda | M? |
047c 97e8 0349 | I|
047e 1415 2210 | " |
0480 043d a00d | = |
0482 3fe2 97e9 |? |
0484 1417 803c | <|
0486 604a 0a51 |`J Q|
0488 3ffe 97e9 |? |
048a 1414 | |
048b 0000 0000 | | .BLANK 0000[0x5]
0490 3fa4 4104 |? A | .XXX[0x170]
0492 0010 036c | l|
0494 d01f 8917 | |
0496 8914 0368 | h|
0498 00c4 033c | <|
049a 0365 a070 | e p|
049c 0364 085c | d \|
049e f007 97fc | |
04a0 09fd a038 | 8|
04a2 0369 c014 | i |
04a4 0364 085c | d \|
04a6 f002 9009 | |
04a8 e03c 0364 | < d|
04aa 085c f000 | \ |
04ac 036c 085c | l \|
04ae e001 e020 | |
04b0 0364 00cc | d |
04b2 0364 085c | d \|
04b4 f000 00c8 | |
04b6 0325 ff88 | % |
04b8 0338 0369 | 8 i|
04ba a0cf 97f8 | |
04bc d00b 97f8 | |
04be d00c 0360 | `|
04c0 0368 09fd | h |
04c2 a009 2005 | |
04c4 e088 0360 | `|
04c6 0368 09f1 | h |
04c8 a054 0367 | T g|
04ca 97f8 f01c | |
04cc 085c f008 | \ |
04ce 09cc 0923 | #|
04d0 97f8 f010 | |
04d2 09e9 a009 | |
04d4 2005 e047 | G|
04d6 97f8 f01c | |
04d8 085c f008 | \ |
04da 2804 0364 |( d|
04dc 09f1 e024 | $|
04de 0367 97f8 | g |
04e0 f01c 085c | \|
04e2 f008 09cc | |
04e4 0920 0364 | d|
04e6 09f1 a015 | |
04e8 209f 9008 | |
04ea 085c f006 | \ |
04ec 09e0 0349 | I|
04ee 2002 97f5 | |
04f0 1408 001f | |
04f2 803c 604a | <`J|
04f4 0a51 3ffe | Q? |
04f6 97f5 1408 | |
04f8 4148 480c |AHH |
04fa 0013 97f4 | |
04fc f008 085c | \|
04fe 0360 d008 | ` |
0500 0364 d00c | d |
0502 0360 0368 | ` h|
0504 09fd a210 | |
0506 0368 f004 | h |
0508 036c f000 | l |
050a 09f9 a154 | T|
050c 0368 d018 | h |
050e 0361 c009 | a |
0510 2005 e068 | h|
0512 0360 085c | ` \|
0514 f007 97f8 | |
0516 09fd a04f | O|
0518 8914 0364 | d|
051a 00c4 0364 | d|
051c 085c f002 | \ |
051e 9017 9008 | |
0520 d024 0360 | $ `|
0522 0368 085c | h \|
0524 e000 0366 | f|
0526 901c 0344 | D|
0528 0345 2005 | E |
052a e005 2000 | |
052c 0340 0345 | @ E|
052e a01d 3fe6 | ? |
0530 97ec 0368 | h|
0532 f000 036c | l|
0534 e005 140f | |
0536 97fd 2000 | |
0538 09fd a00d | |
053a 3fee 97ed |? |
053c 140c 0368 | h|
053e d027 8914 | ' |
0540 0364 00c4 | d |
0542 0361 c01b | a |
0544 8917 9008 | |
0546 f028 0e70 | ( p|
0548 00c5 e010 | |
054a 0364 085c | d \|
054c f002 9017 | |
054e 9008 f018 | |
0550 085c d000 | \ |
0552 0360 0368 | ` h|
0554 085c e000 | \ |
0556 0366 901f | f |
0558 97f8 0368 | h|
055a 085c e004 | \ |
055c 0345 3fda | E? |
055e 97ec 0349 | I|
0560 140f 97fd | |
0562 2000 09fd | |
0564 a00d 3ff2 | ? |
0566 97ed 140c | |
0568 0368 d027 | h '|
056a 8914 0364 | d|
056c 00c4 0361 | a|
056e c01b 8917 | |
0570 9008 f028 | (|
0572 0e70 00c5 | p |
0574 e010 0364 | d|
0576 085c f002 | \ |
0578 9017 9008 | |
057a d018 0360 | `|
057c 0368 085c | h \|
057e e000 0366 | f|
0580 901f 97f8 | |
0582 0368 085c | h \|
0584 e004 0345 | E|
0586 3fda 97ec |? |
0588 0349 140c | I |
058a 0368 d018 | h |
058c 0361 c009 | a |
058e 2005 e068 | h|
0590 0360 085c | ` \|
0592 f007 97f8 | |
0594 09fd a04f | O|
0596 8914 0364 | d|
0598 00c4 0364 | d|
059a 085c f002 | \ |
059c 9017 9008 | |
059e d024 0360 | $ `|
05a0 0368 085c | h \|
05a2 e000 0366 | f|
05a4 901c 0344 | D|
05a6 0345 2005 | E |
05a8 e005 2000 | |
05aa 0340 0345 | @ E|
05ac a36c 0360 | l `|
05ae 036c d02c | l ,|
05b0 0754 04b7 | T |
05b2 894c 7553 | LuS|
05b4 8020 6140 | a@|
05b6 0360 d008 | ` |
05b8 0364 d00c | d |
05ba 0368 f001 | h |
05bc 180d e1f9 | |
05be e009 e0d5 | |
05c0 e13c 0367 | < g|
05c2 9008 f004 | |
05c4 2804 09fd |( |
05c6 a009 2001 | |
05c8 e01d 3fe6 | ? |
05ca 97ec 0364 | d|
05cc 2bff 9008 |+ |
05ce e005 2005 | |
05d0 c1b4 0363 | c|
05d2 97f0 076c | l|
05d4 09f5 a00d | |
05d6 3ffa 97ed |? |
05d8 e195 2004 | |
05da 0367 9014 | g |
05dc d010 073f | ?|
05de 97f0 0777 | w|
05e0 97f0 0774 | t|
05e2 036c 09cc | l |
05e4 2bfc 0923 |+ #|
05e6 97f0 0738 | 8|
05e8 0362 97ec | b |
05ea 036c 0364 | l d|
05ec 09cf 8948 | H|
05ee 09cc 0922 | "|
05f0 9010 0367 | g|
05f2 9008 e005 | |
05f4 e124 0367 | $ g|
05f6 9008 f004 | |
05f8 2804 09fd |( |
05fa a009 2001 | |
05fc e01d 3fe6 | ? |
05fe 97ec 0364 | d|