|
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_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 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,0x9699,0x0000,0x0001,0x0000
0456 80c8 d480 | | .XXX[0x1aa]
0458 c8d4 80c8 | |
045a d080 c028 | (|
045c f0dd 18c5 | |
045e 18e0 c080 | |
0460 dd18 cd18 | |
0462 e0c0 80dd | |
0464 18c5 18e0 | |
0466 c080 c114 | |
0468 c514 c0c0 | |
046a 80c1 14c5 | |
046c 0cc0 c080 | |
046e c0dc cd0c | |
0470 c0c0 80c0 | |
0472 dccc e0c0 | |
0474 c080 c0cd | |
0476 08e0 c0c0 | |
0478 80c0 cd18 | |
047a c0c0 c028 | (|
047c 80c0 c518 | |
047e c0c0 c080 | |
0480 c0c5 14c0 | |
0482 c0c0 80c0 | |
0484 c114 c0c0 | |
0486 c080 c0c5 | |
0488 14c0 c0c0 | |
048a 80c0 c518 | |
048c c0c0 c080 | |
048e c0cd 18c0 | |
0490 c0c0 80c0 | |
0492 cd08 e0c0 | |
0494 c080 c0dd | |
0496 08e0 c0c0 | |
0498 80c0 dcc5 | |
049a 0cc0 c028 | (|
049c 80c0 dcc5 | |
049e 0cc0 c080 | |
04a0 c114 c114 | |
04a2 c0c0 80c1 | |
04a4 14c1 14c0 | |
04a6 c080 c50c | |
04a8 c0dc c0c0 | |
04aa 80dd 18c5 | |
04ac 190c c081 | |
04ae 1918 c519 | |
04b0 14c0 80dd | |
04b2 18c5 190c | |
04b4 c0f8 2941 | )A|
04b6 6131 0c81 |a1 |
04b8 4940 28d0 |I@( |
04ba e4d8 80d0 | |
04bc d0c4 8161 | a|
04be 6481 18d0 |d |
04c0 e0a1 6141 | aA|
04c2 3d39 1539 |=9 9|
04c4 517d 5165 |Q}Qe|
04c6 4114 a54c |A L|
04c8 80c4 e481 | |
04ca e0a1 a5cc | |
04cc a54c 80c8 | L |
04ce c881 e0a1 | |
04d0 c8a5 4c29 | L)|
04d2 6140 80bd |a@ |
04d4 18d0 e080 | |
04d6 e4dc 80c8 | |
04d8 c880 c880 | |
04da c080 c8c4 | |
04dc 80c4 e080 | |
04de c4e0 80c8 | |
04e0 d080 c028 | (|
04e2 f0c5 1914 | |
04e4 c0c0 c080 | |
04e6 dd19 18e0 | |
04e8 c0c0 80dd | |
04ea 1919 0cc0 | |
04ec c080 dce0 | |
04ee cd0c c0c0 | |
04f0 80cc c0c5 | |
04f2 14c0 c080 | |
04f4 c0c0 c114 | |
04f6 c0c0 80c0 | |
04f8 c0c1 14c0 | |
04fa c080 c0cd | |
04fc 1914 c0c0 | |
04fe 80c5 1919 | |
0500 14c0 c028 | (|
0502 80dd 14c1 | |
0504 14c0 c081 | |
0506 18c0 c114 | |
0508 c0c0 8114 | |
050a c0c1 14c0 | |
050c c081 14c0 | |
050e c114 c0c0 | |
0510 8118 c0c5 | |
0512 14c0 c081 | |
0514 18e0 cd14 | |
0516 c0c0 80dd | |
0518 1919 1914 | |
051a c080 cd19 | |
051c 14dd 14c0 | |
051e 80c1 18e0 | |
0520 cd14 c0f8 | |
0522 2941 6131 |)Aa1|
0524 0c81 4940 | I@|
0526 28e0 d8dc |( |
0528 80d0 d0c4 | |
052a 8161 6481 | ad |
052c 18d0 e0a1 | |
052e 85b9 9d94 | |
0530 a54c 80d0 | L |
0532 c881 e0a0 | |
0534 f0f8 eca5 | |
0536 4c80 d4c0 |L |
0538 81e4 80cc | |
053a c0c0 8160 | `|
053c a1c1 858c | |
053e a54c 2961 | L)a|
0540 4080 bd18 |@ |
0542 d0e0 80c4 | |
0544 c0dc 80c8 | |
0546 c880 c080 | |
0548 c080 c8c0 | |
054a 80c8 d480 | |
054c c8d4 80c8 | |
054e d080 c028 | (|
0550 f0dd 14c0 | |
0552 c0c0 c081 | |
0554 1914 c0c0 | |
0556 c0c0 80dd | |
0558 14c0 c0c0 | |
055a c080 c114 | |
055c c0c0 c0c0 | |
055e 80c1 14c0 | |
0560 c0c0 c080 | |
0562 c114 c0c0 | |
0564 c0c0 80c1 | |
0566 14c0 c0c0 | |
0568 c080 c114 | |
056a dd19 14c0 | |
056c 80c1 14dd | |
056e 1914 c028 | (|
0570 80c1 14dd | |
0572 1914 c080 | |
0574 c114 c118 | |
0576 c0c0 80c1 | |
0578 14c5 14c0 | |
057a c080 c114 | |
057c cd0c c0c0 | |
057e 80c1 14dc | |
0580 e0c0 c080 | |
0582 c115 18c0 | |
0584 c0c0 80c1 | |
0586 1918 c0c0 | |
0588 c080 c119 | |
058a 18e0 c0c0 | |
058c 80c1 1909 | |
058e 0cc0 c028 | (|
0590 80c1 18c5 | |
0592 14c0 c080 | |
0594 c114 c114 | |
0596 c0c0 80c1 | |
0598 14c0 dcc0 | |
059a c080 c114 | |
059c c0dc e0c0 | |
059e 80dd 18e0 | |
05a0 dd18 c081 | |
05a2 1919 0d19 | |
05a4 18c0 80dd | |
05a6 18e0 dd18 | |
05a8 c0f8 2941 | )A|
05aa 6131 0c81 |a1 |
05ac 4940 28cc |I@( |
05ae d8d4 80d0 | |
05b0 e4c4 8161 | a|
05b2 6481 18d0 |d |
05b4 e0a1 ad85 | |
05b6 9d94 a54c | L|
05b8 80c8 c481 | |
05ba e0a1 1d15 | |
05bc 3915 4925 |9 I%|
05be 0d7d 4149 | }AI|
05c0 2535 2551 |%5%Q|
05c2 2559 157d |%Y }|
05c4 1955 390d | U9 |
05c6 5125 3d39 |Q%=9|
05c8 4ca5 4c80 |L L |
05ca c4dc 81e0 | |
05cc a1a5 cca5 | |
05ce 4c29 6140 |L)a@|
05d0 80bd 18d0 | |
05d2 e080 c4c0 | |
05d4 c880 c8c8 | |
05d6 80c4 80c0 | |
05d8 80c4 e080 | |
05da c8d4 80c8 | |
05dc d480 c8d0 | |
05de 80c0 28f0 | ( |
05e0 c0c0 c518 | |
05e2 c0c0 80c0 | |
05e4 c0dd 18e0 | |
05e6 c080 c0c1 | |
05e8 1918 e0c0 | |
05ea 80c0 c514 | |
05ec dce0 c080 | |
05ee c0c5 0ccc | |
05f0 c0c0 80c0 | |
05f2 c50c c0c0 | |
05f4 c080 c0c5 | |
05f6 0cc0 c0c0 | |
05f8 80dd 1919 | |
05fa 18c0 c081 | |
05fc 1919 1918 | |
05fe c0c0 2881 | ( |