|
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_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0468 | h | .CONST 0x0468 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0083 | | .CONST 0x0083 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 0093 0000 | | PushFullAddress InMicrocode
000d 60aa |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 e002 | | Load 0x0,0x2
0011 e003 | | Load 0x0,0x3
0012 e004 | | Load 0x0,0x4
0013 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0014 e004 | | Load 0x0,0x4
0015 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0016 487f |H | Short_Literal 0x7f
0017 e005 | | Load 0x0,0x5
0018 0386 | | Declare_Variable Package,Visible
0019 00d8 | | Load_Top At_Offset_0
001a 020f | | Execute Module,Activate
001b 4800 |H | Short_Literal 0x0
001c 4806 |H | Short_Literal 0x6
001d 00e1 | | Load_Encached Boolean_Cache
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 4801 |H | Short_Literal 0x1
0020 035e | ^ | Declare_Type Array,Defined,Visible
0021 00d8 | | Load_Top At_Offset_0
0022 0336 | 6 | Declare_Variable Array,Visible
0023 00d8 | | Load_Top At_Offset_0
0024 0335 | 5 | Declare_Variable Array,Duplicate
0025 00cd | | Action Spare6_Action
0026 4806 |H | Short_Literal 0x6
0027 4800 |H | Short_Literal 0x0
0028 4801 |H | Short_Literal 0x1
0029 00d9 | | Load_Top At_Offset_1
002a e211 | | Load 0x1,0x11
002b 01d6 | | Execute Vector,Field_Write
002c 3ffb |? | Loop_Increasing 0x28
002d 00d9 | | Load_Top At_Offset_1
002e 01d4 | | Execute Vector,Structure_Write
002f 00d9 | | Load_Top At_Offset_1
0030 0337 | 7 | Declare_Variable Array
0031 4801 |H | Short_Literal 0x1
0032 4806 |H | Short_Literal 0x6
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 4805 |H | Short_Literal 0x5
0036 4800 |H | Short_Literal 0x0
0037 4800 |H | Short_Literal 0x0
0038 00d9 | | Load_Top At_Offset_1
0039 e211 | | Load 0x1,0x11
003a 01d6 | | Execute Vector,Field_Write
003b 3ffb |? | Loop_Increasing 0x37
003c 00da | | Load_Top At_Offset_2
003d 01c3 | | Execute Vector,Check_In_Type
003e 0129 | ) | Execute Any,Make_Visible
003f 00da | | Load_Top At_Offset_2
0040 0337 | 7 | Declare_Variable Array
0041 4801 |H | Short_Literal 0x1
0042 4801 |H | Short_Literal 0x1
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4801 |H | Short_Literal 0x1
0046 4802 |H | Short_Literal 0x2
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 4801 |H | Short_Literal 0x1
004a 4803 |H | Short_Literal 0x3
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d 4800 |H | Short_Literal 0x0
004e 4800 |H | Short_Literal 0x0
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 4806 |H | Short_Literal 0x6
0052 4804 |H | Short_Literal 0x4
0053 4800 |H | Short_Literal 0x0
0054 00d9 | | Load_Top At_Offset_1
0055 e212 | | Load 0x1,0x12
0056 01d6 | | Execute Vector,Field_Write
0057 3ffb |? | Loop_Increasing 0x53
0058 00db | | Load_Top At_Offset_3
0059 01c3 | | Execute Vector,Check_In_Type
005a 0129 | ) | Execute Any,Make_Visible
005b 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
005d 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
005f 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
0061 00bf | | Action Accept_Activation
0062 e006 | | Load 0x0,0x6
0063 e007 | | Load 0x0,0x7
0064 e008 | | Load 0x0,0x8
0065 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0066 e008 | | Load 0x0,0x8
0067 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0068 e009 | | Load 0x0,0x9
0069 1b18 | | Execute Package,Field_Read,Field_Number 0x18
006a 0387 | | Declare_Variable Package
006b 00d8 | | Load_Top At_Offset_0
006c 020f | | Execute Module,Activate
006d a00a | | Reference 0x0,0xa
006e 00c6 | | Action Check_Subprogram_Elaborated
006f e004 | | Load 0x0,0x4
0070 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0071 e008 | | Load 0x0,0x8
0072 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0073 e00b | | Load 0x0,0xb
0074 e00c | | Load 0x0,0xc
0075 4800 |H | Short_Literal 0x0
0076 0007 | | Action Break_Optional
0077 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
0079 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007a 00c7 | | Action Elaborate_Subprogram
007b 029d 01d3 | | Declare_Subprogram For_Outer_Call,INIT_01d0
007d 029d 0213 | | Declare_Subprogram For_Outer_Call,INIT_0210
007f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0080 00c7 | | Action Elaborate_Subprogram
0081 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0082 00c7 | | Action Elaborate_Subprogram
0083 BODY_0008:
0083 00bc | | Action Signal_Activated
0084 00bb | | Action Signal_Completion
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00a5 | | .CONST 0x00a5 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0009 | | .CONST 0x0009 ; Number of locals
008b INIT_0088:
008b 029f 0243 | C| Declare_Subprogram For_Call,INIT_0240
008d 029f 024b | K| Declare_Subprogram For_Call,INIT_0248
008f 029f 025b | [| Declare_Subprogram For_Call,INIT_0258
0091 029f 026b | k| Declare_Subprogram For_Call,INIT_0268
0093 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0094 00c6 | | Action Check_Subprogram_Elaborated
0095 4804 |H | Short_Literal 0x4
0096 4802 |H | Short_Literal 0x2
0097 0099 | | Action Reference_Dynamic
0098 4805 |H | Short_Literal 0x5
0099 4802 |H | Short_Literal 0x2
009a 0099 | | Action Reference_Dynamic
009b 0093 0000 | | PushFullAddress InMicrocode
009d 6016 |` | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00020000}
009e 0273 | s | Execute Discrete,Plus
009f e00d | | Load 0x0,0xd
00a0 0273 | s | Execute Discrete,Plus
00a1 e00e | | Load 0x0,0xe
00a2 0273 | s | Execute Discrete,Plus
00a3 4809 |H | Short_Literal 0x9
00a4 0007 | | Action Break_Optional
00a5 BODY_0088:
00a5 e5fd | | Load 0x2,-0x3
00a6 e5fe | | Load 0x2,-0x2
00a7 e5ff | | Load 0x2,-0x1
00a8 4806 |H | Short_Literal 0x6
00a9 4802 |H | Short_Literal 0x2
00aa 0099 | | Action Reference_Dynamic
00ab 4807 |H | Short_Literal 0x7
00ac 4802 |H | Short_Literal 0x2
00ad 0099 | | Action Reference_Dynamic
00ae 4808 |H | Short_Literal 0x8
00af 4802 |H | Short_Literal 0x2
00b0 0099 | | Action Reference_Dynamic
00b1 8214 | | Call 0x1,0x14
00b2 4504 |E | Exit_Subprogram 0x4
00b3 0000 | | .XXX[0x1]
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d5 | | .CONST 0x00d5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0007 | | .CONST 0x0007 ; Number of locals
00c3 INIT_00c0:
00c3 00ec | | Load_Encached Diana_Tree_Cache
00c4 e004 | | Load 0x0,0x4
00c5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00c6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00c7 02c7 | | Declare_Variable Any
00c8 00d8 | | Load_Top At_Offset_0
00c9 1c00 | | Execute_Immediate Run_Utility,0x0
00ca e004 | | Load 0x0,0x4
00cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cc e004 | | Load 0x0,0x4
00cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ce 02ff | | Declare_Variable Variant_Record
00cf 00d8 | | Load_Top At_Offset_0
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 029f 0283 | | Declare_Subprogram For_Call,INIT_0280
00d3 029f 037b | {| Declare_Subprogram For_Call,INIT_0378
00d5 BODY_00c0:
00d5 e5fc | | Load 0x2,-0x4
00d6 e004 | | Load 0x0,0x4
00d7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00d8 e00f | | Load 0x0,0xf
00d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00da 027f | | Execute Discrete,Equal
00db 7007 |p | Jump_Nonzero 0xe3
00dc e5fc | | Load 0x2,-0x4
00dd e004 | | Load 0x0,0x4
00de 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00df e00f | | Load 0x0,0xf
00e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e1 027f | | Execute Discrete,Equal
00e2 681a |h | Jump_Zero 0xfd
00e3 e5fc | | Load 0x2,-0x4
00e4 821d | | Call 0x1,0x1d
00e5 00db | | Load_Top At_Offset_3
00e6 016d | m | Execute Variant_Record,Structure_Write
00e7 00da | | Load_Top At_Offset_2
00e8 e004 | | Load 0x0,0x4
00e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ea 7011 |p | Jump_Nonzero 0xfc
00eb 00cf | | Action Mark_Auxiliary
00ec 4806 |H | Short_Literal 0x6
00ed 4800 |H | Short_Literal 0x0
00ee 0007 | | Action Break_Optional
00ef 00d8 | | Load_Top At_Offset_0
00f0 e5fb | | Load 0x2,-0x5
00f1 01d7 | | Execute Vector,Field_Read
00f2 6806 |h | Jump_Zero 0xf9
00f3 e5fa | | Load 0x2,-0x6
00f4 e405 | | Load 0x2,0x5
00f5 e5fc | | Load 0x2,-0x4
00f6 e5fb | | Load 0x2,-0x5
00f7 e40a | | Load 0x2,0xa
00f8 8407 | | Call 0x2,0x7
00f9 00c8 | | Action Pop_Auxiliary_Range
00fa 3ff4 |? | Loop_Increasing 0xef
00fb 00ce | | Action Pop_Auxiliary
00fc 4507 |E | Exit_Subprogram 0x7
00fd e5fc | | Load 0x2,-0x4
00fe e004 | | Load 0x0,0x4
00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0100 7008 |p | Jump_Nonzero 0x109
0101 e004 | | Load 0x0,0x4
0102 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0103 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0104 e5fc | | Load 0x2,-0x4
0105 e004 | | Load 0x0,0x4
0106 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0107 012e | . | Execute Any,Not_Equal
0108 6801 |h | Jump_Zero 0x10a
0109 4507 |E | Exit_Subprogram 0x7
010a e004 | | Load 0x0,0x4
010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010c e403 | | Load 0x2,0x3
010d 0120 | | Execute Any,Is_Value
010e 6804 |h | Jump_Zero 0x113
010f e004 | | Load 0x0,0x4
0110 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0111 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0112 7801 |x | Jump 0x114
0113 e403 | | Load 0x2,0x3
0114 e004 | | Load 0x0,0x4
0115 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0116 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0117 6030 |`0 | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000}
0118 4801 |H | Short_Literal 0x1
0119 4800 |H | Short_Literal 0x0
011a 4800 |H | Short_Literal 0x0
011b e5fa | | Load 0x2,-0x6
011c 4801 |H | Short_Literal 0x1
011d e5fc | | Load 0x2,-0x4
011e e004 | | Load 0x0,0x4
011f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0121 e004 | | Load 0x0,0x4
0122 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0123 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0124 c402 | | Store 0x2,0x2
0125 c403 | | Store 0x2,0x3
0126 c404 | | Store 0x2,0x4
0127 00db | | Load_Top At_Offset_3
0128 680a |h | Jump_Zero 0x133
0129 4800 |H | Short_Literal 0x0
012a 0092 0408 | | Action Push_String_Extended,0x408 ; "Couldn't open ada unit "
012c e5fc | | Load 0x2,-0x4
012d e004 | | Load 0x0,0x4
012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0130 01cc | | Execute Vector,Catenate
0131 821c | | Call 0x1,0x1c
0132 4507 |E | Exit_Subprogram 0x7
0133 00cf | | Action Mark_Auxiliary
0134 4806 |H | Short_Literal 0x6
0135 4800 |H | Short_Literal 0x0
0136 0007 | | Action Break_Optional
0137 00d8 | | Load_Top At_Offset_0
0138 e5fb | | Load 0x2,-0x5
0139 01d7 | | Execute Vector,Field_Read
013a 6806 |h | Jump_Zero 0x141
013b e5fa | | Load 0x2,-0x6
013c e5fc | | Load 0x2,-0x4
013d e5fb | | Load 0x2,-0x5
013e 00db | | Load_Top At_Offset_3
013f e402 | | Load 0x2,0x2
0140 8406 | | Call 0x2,0x6
0141 00c8 | | Action Pop_Auxiliary_Range
0142 3ff4 |? | Loop_Increasing 0x137
0143 00ce | | Action Pop_Auxiliary
0144 4507 |E | Exit_Subprogram 0x7
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0162 | b | .CONST 0x0162 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0005 | | .CONST 0x0005 ; Number of locals
0153 INIT_0150:
0153 e004 | | Load 0x0,0x4
0154 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0155 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0156 02c7 | | Declare_Variable Any
0157 00d8 | | Load_Top At_Offset_0
0158 1c00 | | Execute_Immediate Run_Utility,0x0
0159 e004 | | Load 0x0,0x4
015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015b e004 | | Load 0x0,0x4
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 029f 03fb | | Declare_Subprogram For_Call,INIT_03f8
0162 BODY_0150:
0162 8405 | | Call 0x2,0x5
0163 e5fc | | Load 0x2,-0x4
0164 e5fd | | Load 0x2,-0x3
0165 85fe | | Call 0x2,-0x2
0166 e004 | | Load 0x0,0x4
0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0168 e402 | | Load 0x2,0x2
0169 0120 | | Execute Any,Is_Value
016a 6804 |h | Jump_Zero 0x16f
016b e004 | | Load 0x0,0x4
016c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
016d 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
016e 7801 |x | Jump 0x170
016f e402 | | Load 0x2,0x2
0170 67d7 |g | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000}
0171 e5fc | | Load 0x2,-0x4
0172 e5fd | | Load 0x2,-0x3
0173 e004 | | Load 0x0,0x4
0174 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0175 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0176 e004 | | Load 0x0,0x4
0177 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0178 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0179 c402 | | Store 0x2,0x2
017a 005b | [ | Store_Top Discrete,At_Offset_3
017b 00da | | Load_Top At_Offset_2
017c 6818 |h | Jump_Zero 0x195
017d 00da | | Load_Top At_Offset_2
017e 0e08 | | Execute_Immediate Not_Equal,0x8
017f 6814 |h | Jump_Zero 0x194
0180 4800 |H | Short_Literal 0x0
0181 e5fb | | Load 0x2,-0x5
0182 0092 0409 | | Action Push_String_Extended,0x409 ; " "
0184 01cc | | Execute Vector,Catenate
0185 e403 | | Load 0x2,0x3
0186 e004 | | Load 0x0,0x4
0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0188 011c | | Execute Any,Convert_Unchecked
0189 1c01 | | Execute_Immediate Run_Utility,0x1
018a 01cc | | Execute Vector,Catenate
018b 0092 040a | | Action Push_String_Extended,0x40a ; " returned traversing "
018d 01cc | | Execute Vector,Catenate
018e e5fd | | Load 0x2,-0x3
018f e004 | | Load 0x0,0x4
0190 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0191 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0192 01cc | | Execute Vector,Catenate
0193 821c | | Call 0x1,0x1c
0194 4506 |E | Exit_Subprogram 0x6
0195 00cf | | Action Mark_Auxiliary
0196 781e |x | Jump 0x1b5
0197 e402 | | Load 0x2,0x2
0198 e004 | | Load 0x0,0x4
0199 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
019a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
019b c404 | | Store 0x2,0x4
019c 00da | | Load_Top At_Offset_2
019d e004 | | Load 0x0,0x4
019e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a0 680b |h | Jump_Zero 0x1ac
01a1 e5fb | | Load 0x2,-0x5
01a2 e5fc | | Load 0x2,-0x4
01a3 e404 | | Load 0x2,0x4
01a4 4ffe |O | Short_Literal 0x7fe
01a5 4802 |H | Short_Literal 0x2
01a6 0099 | | Action Reference_Dynamic
01a7 4fff |O | Short_Literal 0x7ff
01a8 4802 |H | Short_Literal 0x2
01a9 0099 | | Action Reference_Dynamic
01aa 8215 | | Call 0x1,0x15
01ab 7803 |x | Jump 0x1af
01ac e5fc | | Load 0x2,-0x4
01ad 00db | | Load_Top At_Offset_3
01ae 85fe | | Call 0x2,-0x2
01af e402 | | Load 0x2,0x2
01b0 e004 | | Load 0x0,0x4
01b1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01b2 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
01b3 c402 | | Store 0x2,0x2
01b4 00c9 | | Action Pop_Auxiliary_Loop
01b5 e402 | | Load 0x2,0x2
01b6 e004 | | Load 0x0,0x4
01b7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01b8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01b9 6fdd |o | Jump_Zero 0x197
01ba 00ce | | Action Pop_Auxiliary
01bb 4506 |E | Exit_Subprogram 0x6
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e010 | | Load 0x0,0x10
01c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c5 4807 |H | Short_Literal 0x7
01c6 e5ff | | Load 0x2,-0x1
01c7 e011 | | Load 0x0,0x11
01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c9 00db | | Load_Top At_Offset_3
01ca 6802 |h | Jump_Zero 0x1cd
01cb e20d | | Load 0x1,0xd
01cc 0257 | W | Execute Discrete,Raise
01cd 4503 |E | Exit_Subprogram 0x3
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e0 | | .CONST 0x01e0 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0005 | | .CONST 0x0005 ; Number of locals
01d3 INIT_01d0:
01d3 e004 | | Load 0x0,0x4
01d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01d5 02ff | | Declare_Variable Variant_Record
01d6 00d8 | | Load_Top At_Offset_0
01d7 1c00 | | Execute_Immediate Run_Utility,0x0
01d8 e004 | | Load 0x0,0x4
01d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01db e004 | | Load 0x0,0x4
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd e004 | | Load 0x0,0x4
01de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01df 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01e0 BODY_01d0:
01e0 e004 | | Load 0x0,0x4
01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e2 e004 | | Load 0x0,0x4
01e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01e5 6022 |`" | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000}
01e6 e012 | | Load 0x0,0x12
01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e8 4800 |H | Short_Literal 0x0
01e9 e5ff | | Load 0x2,-0x1
01ea e004 | | Load 0x0,0x4
01eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01ee 005a | Z | Store_Top Discrete,At_Offset_2
01ef e004 | | Load 0x0,0x4
01f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f2 e402 | | Load 0x2,0x2
01f3 6014 |` | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000}
01f4 e012 | | Load 0x0,0x12
01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f6 4800 |H | Short_Literal 0x0
01f7 e405 | | Load 0x2,0x5
01f8 0092 040b | | Action Push_String_Extended,0x40b ; "?.code_database"
01fa e004 | | Load 0x0,0x4
01fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01fc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01fd 00d1 | | Pop_Control Pop_Count_1
01fe 005b | [ | Store_Top Discrete,At_Offset_3
01ff 00d9 | | Load_Top At_Offset_1
0200 7002 |p | Jump_Nonzero 0x203
0201 00da | | Load_Top At_Offset_2
0202 6803 |h | Jump_Zero 0x206
0203 e004 | | Load 0x0,0x4
0204 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0205 4401 |D | Exit_Subprogram With_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 021c | | .CONST 0x021c ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0006 | | .CONST 0x0006 ; Number of locals
0213 INIT_0210:
0213 e008 | | Load 0x0,0x8
0214 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0215 e013 | | Load 0x0,0x13
0216 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0217 e009 | | Load 0x0,0x9
0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0219 e008 | | Load 0x0,0x8
021a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
021b 00ec | | Load_Encached Diana_Tree_Cache
021c BODY_0210:
021c e008 | | Load 0x0,0x8
021d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
021e e008 | | Load 0x0,0x8
021f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0220 4801 |H | Short_Literal 0x1
0221 e5fe | | Load 0x2,-0x2
0222 e5ff | | Load 0x2,-0x1
0223 e008 | | Load 0x0,0x8
0224 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0225 c402 | | Store 0x2,0x2
0226 005a | Z | Store_Top Discrete,At_Offset_2
0227 00d9 | | Load_Top At_Offset_1
0228 6802 |h | Jump_Zero 0x22b
0229 00ec | | Load_Encached Diana_Tree_Cache
022a 4402 |D | Exit_Subprogram With_Result,0x2
022b e402 | | Load 0x2,0x2
022c e216 | | Load 0x1,0x16
022d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
022e a403 | | Store_Unchecked 0x2,0x3
022f e402 | | Load 0x2,0x2
0230 e216 | | Load 0x1,0x16
0231 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0232 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0233 00da | | Load_Top At_Offset_2
0234 e403 | | Load 0x2,0x3
0235 497d |I} | Short_Literal 0x17d
0236 00eb | | Load_Encached Diana_Cache
0237 0096 | | Execute Package,Field_Execute_Dynamic
0238 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0239 00d8 | | Load_Top At_Offset_0
023a 4402 |D | Exit_Subprogram With_Result,0x2
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00db | | Load_Top At_Offset_3
0244 e5fc | | Load 0x2,-0x4
0245 e20e | | Load 0x1,0xe
0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0247 4402 |D | Exit_Subprogram With_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 e20e | | Load 0x1,0xe
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 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00db | | Load_Top At_Offset_3
025c e004 | | Load 0x0,0x4
025d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025e 0119 | | Execute Any,Check_In_Formal_Type
025f 00db | | Load_Top At_Offset_3
0260 e004 | | Load 0x0,0x4
0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0262 0119 | | Execute Any,Check_In_Formal_Type
0263 8402 | | Call 0x2,0x2
0264 4402 |D | Exit_Subprogram With_Result,0x2
0265 0000 0000 | | .XXX[0x3]
0267 0000 | |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e7fd | | Load 0x3,-0x3
026c e014 | | Load 0x0,0x14
026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026e 0119 | | Execute Any,Check_In_Formal_Type
026f e7fe | | Load 0x3,-0x2
0270 e004 | | Load 0x0,0x4
0271 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0272 0119 | | Execute Any,Check_In_Formal_Type
0273 e7ff | | Load 0x3,-0x1
0274 e004 | | Load 0x0,0x4
0275 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0276 0119 | | Execute Any,Check_In_Formal_Type
0277 8403 | | Call 0x2,0x3
0278 4504 |E | Exit_Subprogram 0x4
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 02aa | | .CONST 0x02aa ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 000b | | .CONST 0x000b ; Number of locals
0283 INIT_0280:
0283 e004 | | Load 0x0,0x4
0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0285 e015 | | Load 0x0,0x15
0286 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0287 02c7 | | Declare_Variable Any
0288 00d8 | | Load_Top At_Offset_0
0289 1c00 | | Execute_Immediate Run_Utility,0x0
028a 00ec | | Load_Encached Diana_Tree_Cache
028b e004 | | Load 0x0,0x4
028c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
028d 02ff | | Declare_Variable Variant_Record
028e 00d8 | | Load_Top At_Offset_0
028f 1c00 | | Execute_Immediate Run_Utility,0x0
0290 e004 | | Load 0x0,0x4
0291 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0292 02c7 | | Declare_Variable Any
0293 00d8 | | Load_Top At_Offset_0
0294 1c00 | | Execute_Immediate Run_Utility,0x0
0295 e004 | | Load 0x0,0x4
0296 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0297 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0298 e004 | | Load 0x0,0x4
0299 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
029a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
029b 02c7 | | Declare_Variable Any
029c 00d8 | | Load_Top At_Offset_0
029d 1c00 | | Execute_Immediate Run_Utility,0x0
029e e004 | | Load 0x0,0x4
029f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a0 e004 | | Load 0x0,0x4
02a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02a2 02ff | | Declare_Variable Variant_Record
02a3 00d8 | | Load_Top At_Offset_0
02a4 1c00 | | Execute_Immediate Run_Utility,0x0
02a5 e004 | | Load 0x0,0x4
02a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02a7 02ff | | Declare_Variable Variant_Record
02a8 00d8 | | Load_Top At_Offset_0
02a9 1c00 | | Execute_Immediate Run_Utility,0x0
02aa BODY_0280:
02aa e7ff | | Load 0x3,-0x1
02ab 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02ac 0fa8 | | Execute_Immediate Equal,0xa8
02ad 6805 |h | Jump_Zero 0x2b3
02ae e7ff | | Load 0x3,-0x1
02af e004 | | Load 0x0,0x4
02b0 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
02b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b2 680d |h | Jump_Zero 0x2c0
02b3 e010 | | Load 0x0,0x10
02b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b5 4801 |H | Short_Literal 0x1
02b6 0092 040c | | Action Push_String_Extended,0x40c ; "Skipping source state unit "
02b8 e7fc | | Load 0x3,-0x4
02b9 e004 | | Load 0x0,0x4
02ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02bb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02bc 01cc | | Execute Vector,Catenate
02bd e011 | | Load 0x0,0x11
02be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bf 4506 |E | Exit_Subprogram 0x6
02c0 e7fe | | Load 0x3,-0x2
02c1 0f06 | | Execute_Immediate Equal,0x6
02c2 6861 |ha | Jump_Zero 0x324
02c3 e004 | | Load 0x0,0x4
02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c5 00da | | Load_Top At_Offset_2
02c6 e7ff | | Load 0x3,-0x1
02c7 e004 | | Load 0x0,0x4
02c8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ca 00d1 | | Pop_Control Pop_Count_1
02cb 005b | [ | Store_Top Discrete,At_Offset_3
02cc 00d9 | | Load_Top At_Offset_1
02cd e004 | | Load 0x0,0x4
02ce 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d0 7053 |pS | Jump_Nonzero 0x324
02d1 e010 | | Load 0x0,0x10
02d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d3 4801 |H | Short_Literal 0x1
02d4 0092 040d | | Action Push_String_Extended,0x40d ; "Getting other part for "
02d6 e7fc | | Load 0x3,-0x4
02d7 e004 | | Load 0x0,0x4
02d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02da 01cc | | Execute Vector,Catenate
02db e011 | | Load 0x0,0x11
02dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02dd e004 | | Load 0x0,0x4
02de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02df 00d9 | | Load_Top At_Offset_1
02e0 6093 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
02e1 e7fb | | Load 0x3,-0x5
02e2 e60a | | Load 0x3,0xa
02e3 e004 | | Load 0x0,0x4
02e4 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e6 00d1 | | Pop_Control Pop_Count_1
02e7 005b | [ | Store_Top Discrete,At_Offset_3
02e8 e004 | | Load 0x0,0x4
02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ea e608 | | Load 0x3,0x8
02eb 0120 | | Execute Any,Is_Value
02ec 6804 |h | Jump_Zero 0x2f1
02ed e004 | | Load 0x0,0x4
02ee 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02ef 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02f0 7801 |x | Jump 0x2f2
02f1 e608 | | Load 0x3,0x8
02f2 e004 | | Load 0x0,0x4
02f3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02f5 00db | | Load_Top At_Offset_3
02f6 607d |`} | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
02f7 4801 |H | Short_Literal 0x1
02f8 4800 |H | Short_Literal 0x0
02f9 e7fb | | Load 0x3,-0x5
02fa 4801 |H | Short_Literal 0x1
02fb e004 | | Load 0x0,0x4
02fc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02fd 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02fe 00d1 | | Pop_Control Pop_Count_1
02ff c607 | | Store 0x3,0x7
0300 c608 | | Store 0x3,0x8
0301 005b | [ | Store_Top Discrete,At_Offset_3
0302 00da | | Load_Top At_Offset_2
0303 680a |h | Jump_Zero 0x30e
0304 4800 |H | Short_Literal 0x0
0305 0092 040e | | Action Push_String_Extended,0x40e ; "Couldn't open ada unit for spec of "
0307 e7fc | | Load 0x3,-0x4
0308 e004 | | Load 0x0,0x4
0309 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
030a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
030b 01cc | | Execute Vector,Catenate
030c 821c | | Call 0x1,0x1c
030d 7816 |x | Jump 0x324
030e e7ff | | Load 0x3,-0x1
030f e607 | | Load 0x3,0x7
0310 021f | | Execute Heap_Access,Equal
0311 7012 |p | Jump_Nonzero 0x324
0312 e010 | | Load 0x0,0x10
0313 180e | | Execute Package,Field_Execute,Field_Number 0xe
0314 4801 |H | Short_Literal 0x1
0315 e7fc | | Load 0x3,-0x4
0316 e004 | | Load 0x0,0x4
0317 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0318 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0319 0092 040f | | Action Push_String_Extended,0x40f ; " is a body: check its spec"
031b 01cc | | Execute Vector,Catenate
031c e011 | | Load 0x0,0x11
031d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031e e7fb | | Load 0x3,-0x5
031f e7fc | | Load 0x3,-0x4
0320 e7fd | | Load 0x3,-0x3
0321 e7fe | | Load 0x3,-0x2
0322 e607 | | Load 0x3,0x7
0323 8406 | | Call 0x2,0x6
0324 e7ff | | Load 0x3,-0x1
0325 4976 |Iv | Short_Literal 0x176
0326 00eb | | Load_Encached Diana_Cache
0327 0098 | | Execute Package,Field_Read_Dynamic
0328 180f | | Execute Package,Field_Execute,Field_Number 0xf
0329 a604 | | Store_Unchecked 0x3,0x4
032a e016 | | Load 0x0,0x16
032b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032c e017 | | Load 0x0,0x17
032d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032e e7fb | | Load 0x3,-0x5
032f e604 | | Load 0x3,0x4
0330 e7fe | | Load 0x3,-0x2
0331 e015 | | Load 0x0,0x15
0332 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0333 c603 | | Store 0x3,0x3
0334 00cf | | Action Mark_Auxiliary
0335 7837 |x7 | Jump 0x36d
0336 e603 | | Load 0x3,0x3
0337 e015 | | Load 0x0,0x15
0338 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0339 e605 | | Load 0x3,0x5
033a 016d | m | Execute Variant_Record,Structure_Write
033b e004 | | Load 0x0,0x4
033c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033d e606 | | Load 0x3,0x6
033e 0120 | | Execute Any,Is_Value
033f 6803 |h | Jump_Zero 0x343
0340 e004 | | Load 0x0,0x4
0341 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0342 7801 |x | Jump 0x344
0343 e606 | | Load 0x3,0x6
0344 602f |`/ | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0345 e7fb | | Load 0x3,-0x5
0346 e605 | | Load 0x3,0x5
0347 e004 | | Load 0x0,0x4
0348 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0349 181b | | Execute Package,Field_Execute,Field_Number 0x1b
034a c606 | | Store 0x3,0x6
034b c602 | | Store 0x3,0x2
034c e602 | | Load 0x3,0x2
034d 701a |p | Jump_Nonzero 0x368
034e e605 | | Load 0x3,0x5
034f e004 | | Load 0x0,0x4
0350 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0351 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0352 6815 |h | Jump_Zero 0x368
0353 e7fc | | Load 0x3,-0x4
0354 e606 | | Load 0x3,0x6
0355 85fd | | Call 0x2,-0x3
0356 7011 |p | Jump_Nonzero 0x368
0357 e7fb | | Load 0x3,-0x5
0358 e7fd | | Load 0x3,-0x3
0359 e606 | | Load 0x3,0x6
035a 4ffd |O | Short_Literal 0x7fd
035b 4802 |H | Short_Literal 0x2
035c 0099 | | Action Reference_Dynamic
035d 4ffe |O | Short_Literal 0x7fe
035e 4802 |H | Short_Literal 0x2
035f 0099 | | Action Reference_Dynamic
0360 4fff |O | Short_Literal 0x7ff
0361 4802 |H | Short_Literal 0x2
0362 0099 | | Action Reference_Dynamic
0363 8214 | | Call 0x1,0x14
0364 e7fb | | Load 0x3,-0x5
0365 e606 | | Load 0x3,0x6
0366 e7fc | | Load 0x3,-0x4
0367 85fe | | Call 0x2,-0x2
0368 e603 | | Load 0x3,0x3
0369 e015 | | Load 0x0,0x15
036a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
036b c603 | | Store 0x3,0x3
036c 00c9 | | Action Pop_Auxiliary_Loop
036d e603 | | Load 0x3,0x3
036e e015 | | Load 0x0,0x15
036f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0370 6fc5 |o | Jump_Zero 0x336
0371 4506 |E | Exit_Subprogram 0x6
0372 0000 0000 | | .XXX[0x2]
0374 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 039a | | .CONST 0x039a ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0008 | | .CONST 0x0008 ; Number of locals
037b INIT_0378:
037b e008 | | Load 0x0,0x8
037c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
037d 02ff | | Declare_Variable Variant_Record
037e e7fc | | Load 0x3,-0x4
037f e217 | | Load 0x1,0x17
0380 e218 | | Load 0x1,0x18
0381 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0382 800a | | Call 0x0,0xa
0383 00d9 | | Load_Top At_Offset_1
0384 016d | m | Execute Variant_Record,Structure_Write
0385 e004 | | Load 0x0,0x4
0386 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0387 02c7 | | Declare_Variable Any
0388 00d8 | | Load_Top At_Offset_0
0389 1c00 | | Execute_Immediate Run_Utility,0x0
038a e004 | | Load 0x0,0x4
038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038c e004 | | Load 0x0,0x4
038d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
038e 02ff | | Declare_Variable Variant_Record
038f 00d8 | | Load_Top At_Offset_0
0390 1c00 | | Execute_Immediate Run_Utility,0x0
0391 e015 | | Load 0x0,0x15
0392 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0393 02c7 | | Declare_Variable Any
0394 00d8 | | Load_Top At_Offset_0
0395 1c00 | | Execute_Immediate Run_Utility,0x0
0396 00ec | | Load_Encached Diana_Tree_Cache
0397 e015 | | Load 0x0,0x15
0398 1b61 | a | Execute Package,Field_Read,Field_Number 0x61
0399 0337 | 7 | Declare_Variable Array
039a BODY_0378:
039a 00cf | | Action Mark_Auxiliary
039b 00d9 | | Load_Top At_Offset_1
039c 01d9 | | Execute Vector,Reverse_Bounds
039d 0007 | | Action Break_Optional
039e 00d8 | | Load_Top At_Offset_0
039f e7fe | | Load 0x3,-0x2
03a0 01d7 | | Execute Vector,Field_Read
03a1 00d9 | | Load_Top At_Offset_1
03a2 e608 | | Load 0x3,0x8
03a3 01d6 | | Execute Vector,Field_Write
03a4 00c8 | | Action Pop_Auxiliary_Range
03a5 3ff8 |? | Loop_Increasing 0x39e
03a6 00ce | | Action Pop_Auxiliary
03a7 e016 | | Load 0x0,0x16
03a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a9 e017 | | Load 0x0,0x17
03aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ab e7fb | | Load 0x3,-0x5
03ac 00da | | Load_Top At_Offset_2
03ad e7fb | | Load 0x3,-0x5
03ae e602 | | Load 0x3,0x2
03af 821e | | Call 0x1,0x1e
03b0 e015 | | Load 0x0,0x15
03b1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03b2 c606 | | Store 0x3,0x6
03b3 00cf | | Action Mark_Auxiliary
03b4 7838 |x8 | Jump 0x3ed
03b5 00db | | Load_Top At_Offset_3
03b6 e015 | | Load 0x0,0x15
03b7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03b8 e605 | | Load 0x3,0x5
03b9 016d | m | Execute Variant_Record,Structure_Write
03ba e004 | | Load 0x0,0x4
03bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bc e603 | | Load 0x3,0x3
03bd 0120 | | Execute Any,Is_Value
03be 6803 |h | Jump_Zero 0x3c2
03bf e004 | | Load 0x0,0x4
03c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c1 7801 |x | Jump 0x3c3
03c2 e603 | | Load 0x3,0x3
03c3 67b0 |g | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
03c4 e7fb | | Load 0x3,-0x5
03c5 e605 | | Load 0x3,0x5
03c6 e004 | | Load 0x0,0x4
03c7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c9 c603 | | Store 0x3,0x3
03ca c604 | | Store 0x3,0x4
03cb e604 | | Load 0x3,0x4
03cc 701b |p | Jump_Nonzero 0x3e8
03cd e605 | | Load 0x3,0x5
03ce e004 | | Load 0x0,0x4
03cf 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03d1 6816 |h | Jump_Zero 0x3e8
03d2 e7fd | | Load 0x3,-0x3
03d3 e603 | | Load 0x3,0x3
03d4 85fd | | Call 0x2,-0x3
03d5 7012 |p | Jump_Nonzero 0x3e8
03d6 e7fb | | Load 0x3,-0x5
03d7 e7fe | | Load 0x3,-0x2
03d8 e603 | | Load 0x3,0x3
03d9 4ffd |O | Short_Literal 0x7fd
03da 4802 |H | Short_Literal 0x2
03db 0099 | | Action Reference_Dynamic
03dc 4ffe |O | Short_Literal 0x7fe
03dd 4802 |H | Short_Literal 0x2
03de 0099 | | Action Reference_Dynamic
03df 4fff |O | Short_Literal 0x7ff
03e0 4802 |H | Short_Literal 0x2
03e1 0099 | | Action Reference_Dynamic
03e2 8214 | | Call 0x1,0x14
03e3 e7fb | | Load 0x3,-0x5
03e4 e603 | | Load 0x3,0x3
03e5 e004 | | Load 0x0,0x4
03e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e7 85fe | | Call 0x2,-0x2
03e8 00db | | Load_Top At_Offset_3
03e9 e015 | | Load 0x0,0x15
03ea 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03eb c606 | | Store 0x3,0x6
03ec 00c9 | | Action Pop_Auxiliary_Loop
03ed 00db | | Load_Top At_Offset_3
03ee e015 | | Load 0x0,0x15
03ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03f0 6fc4 |o | Jump_Zero 0x3b5
03f1 4506 |E | Exit_Subprogram 0x6
03f2 0000 0000 | | .BLANK 0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0405 | | .CONST 0x0405 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb e5fd | | Load 0x2,-0x3
03fc e004 | | Load 0x0,0x4
03fd 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ff e004 | | Load 0x0,0x4
0400 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0401 6802 |h | Jump_Zero 0x404
0402 00cc | | Action Pop_Block
0403 4506 |E | Exit_Subprogram 0x6
0404 4501 |E | Exit_Subprogram 0x1
0405 TRAP_03f8:
0405 0007 | | Action Break_Optional
0406 00cc | | Action Pop_Block
0407 4506 |E | Exit_Subprogram 0x6
0408 ; --------------------------------------------------------------------------------------
0408 ; STRING TABLE
0408 ; --------------------------------------------------------------------------------------
0408 0012 | | .STRTAB 0x0012->0x0411 ; "Couldn't open ada unit "
0409 0027 | ' | .STRTAB 0x0027->0x041c ; " "
040a 0026 | & | .STRTAB 0x0026->0x041d ; " returned traversing "
040b 0039 | 9 | .STRTAB 0x0039->0x0427 ; "?.code_database"
040c 0046 | F | .STRTAB 0x0046->0x042f ; "Skipping source state unit "
040d 005f | _ | .STRTAB 0x005f->0x043c ; "Getting other part for "
040e 0074 | t | .STRTAB 0x0074->0x0448 ; "Couldn't open ada unit for spec of "
040f 0095 | | .STRTAB 0x0095->0x0459 ; " is a body: check its spec"
0410 00ad | | .STREND 0x00ad->0x0466
0411 436f 756c |Coul| .STRTAB_STRINGS
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug Table
0468 ; --------------------------------------------------------------------------------------
0468 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b69,0x0000,0x0001,0x0000
046e c97d 0905 | } | .XXX[0x192]
0470 391c b951 |9 Q|
0472 3d3d 314c |==1L|
0474 b939 1551 | 9 Q|
0476 5d3d 492d |]=I-|
0478 2539 1cb9 |%9 |
047a 510d 417d |Q A}|
047c 2541 7d11 |%A} |
047e 5535 409d |U5@ |
0480 4d41 150c |MA |
0482 2941 3d31 |)A=1|
0484 6535 3d49 |e5=I|
0486 4121 250d |A!% |
0488 7d4d 1545 |}M E|
048a 5515 3951 |U 9Q|
048c 2505 317d |% 1}|
048e 253c 2885 |%<( |
0490 10c9 7d09 | } |
0492 0539 1cb9 | 9 |
0494 253c b941 |%< A|
0496 3d31 6535 |=1e5|
0498 3d49 4121 |=IA!|
049a 250d 7d4d |% }M|
049c 1545 5515 | EU |
049e 3951 2505 |9Q% |
04a0 317d 253c |1}%<|
04a2 9d4d 4115 | MA |
04a4 0c29 1125 | ) %|
04a6 4915 0d51 |I Q|
04a8 3d49 657d |=Ie}|
04aa 513d 3d31 |Q==1|
04ac 4c28 8510 |L( |
04ae c97d 0905 | } |
04b0 391c b951 |9 Q|
04b2 3d3d 314c |==1L|
04b4 b911 2549 | %I|
04b6 150d 513d | Q=|
04b8 4965 7d51 |Ie}Q|
04ba 3d3d 314c |==1L|
04bc 9d4d 4115 | MA |
04be 0c29 5149 | )QI|
04c0 0539 4d41 | 9MA|
04c2 3d49 517d |=IQ}|
04c4 493d 5551 |I=UQ|
04c6 1428 8510 | ( |
04c8 c97d 0905 | } |
04ca 391c b90d |9 |
04cc 3d35 3505 |=55 |
04ce 3911 4cb9 |9 L |
04d0 5149 0539 |QI 9|
04d2 4d41 3d49 |MA=I|
04d4 517d 493d |Q}I=|
04d6 5551 149d |UQ |
04d8 4d41 150c |MA |
04da 2951 4905 |)QI |
04dc 394d 413d |9MA=|
04de 4951 7d11 |IQ} |
04e0 1519 4c28 | L(|
04e2 8510 c97d | }|
04e4 0905 391c | 9 |
04e6 b951 3d3d | Q==|
04e8 314c b939 |1L 9|
04ea 1551 5d3d | Q]=|
04ec 492d 2539 |I-%9|
04ee 1cb9 5149 | QI|
04f0 0539 4d41 | 9MA|
04f2 3d49 517d |=IQ}|
04f4 1115 194c | L|
04f6 9d4d 4115 | MA |
04f8 0c29 5125 | )Q%|
04fa 3515 7d55 |5 }U|
04fc 5125 3125 |Q%1%|
04fe 5125 154c |Q% L|
0500 2885 10c9 |( |
0502 7d09 0539 |} 9|
0504 1cb9 513d | Q=|
0506 3d31 4cb9 |=1L |
0508 5125 3515 |Q%5 |
050a 7d55 5125 |}UQ%|
050c 3125 5125 |1%Q%|
050e 154c 9d4d | L M|
0510 4115 0c29 |A )|
0512 4d25 3541 |M%5A|
0514 3115 7d4d |1 }M|
0516 5105 5155 |Q QU|
0518 4c28 8510 |L( |
051a c97d 0905 | } |
051c 391c b951 |9 Q|
051e 3d3d 314c |==1L|
0520 b94d 2535 | M%5|
0522 4131 157d |A1 }|
0524 4d51 0551 |MQ Q|
0526 554c 9d4d |UL M|
0528 4115 0c29 |A )|
052a 293d 0828 |)= (|
052c 8510 c97d | }|
052e 0905 391c | 9 |
0530 b90d 3d35 | =5|
0532 3505 3911 |5 9 |
0534 4cb9 293d |L )=|
0536 089d 4d41 | MA|
0538 150c 290d | ) |
053a 3d11 157d |= }|
053c 4d15 1d35 |M 5|
053e 1539 517d | 9Q}|
0540 3d09 2915 |= ) |
0542 0d51 7d15 | Q} |
0544 1125 513d | %Q=|
0546 4828 8510 |H( |
0548 c97d 0905 | } |
054a 391c b951 |9 Q|
054c 3d3d 314c |==1L|
054e b90d 3d11 | = |
0550 157d 4d15 | }M |
0552 1d35 1539 | 5 9|
0554 517d 3d09 |Q}= |
0556 2915 0d51 |) Q|
0558 7d15 1125 |} %|
055a 513d 489d |Q=H |
055c 4d41 150c |MA |
055e 2905 1105 |) |
0560 7d3d 0929 |}= )|
0562 150d 517d | Q}|
0564 1511 2551 | %Q|
0566 3d48 2885 |=H( |
0568 10c9 7d09 | } |
056a 0539 1cb9 | 9 |
056c 513d 3d31 |Q==1|
056e 4cb9 0511 |L |
0570 057d 3d09 | }= |
0572 2915 0d51 |) Q|
0574 7d15 1125 |} %|
0576 513d 489d |Q=H |
0578 4d41 150c |MA |
057a 2941 493d |)AI=|
057c 1d49 0534 | I 4|
057e 2885 10c9 |( |
0580 7d09 0539 |} 9|
0582 1cb9 0d3d | =|
0584 3535 0539 |55 9|
0586 114c b941 | L A|
0588 493d 1d49 |I= I|
058a 0534 9d4d | 4 M|
058c 4115 0c29 |A )|
058e 3d41 1549 |=A I|
0590 0551 3d48 | Q=H|
0592 2885 10c9 |( |
0594 7d09 0539 |} 9|
0596 1cb9 0d3d | =|
0598 3535 0539 |55 9|
059a 114c b93d | L =|
059c 4115 4905 |A I |
059e 513d 489d |Q=H |
05a0 4d41 150c |MA |
05a2 2905 0d0d |) |
05a4 154d 4d7d | MM}|
05a6 3125 4d50 |1%MP|
05a8 2885 10c9 |( |
05aa 7d09 0539 |} 9|
05ac 1cb9 0d3d | =|
05ae 3535 0539 |55 9|
05b0 114c b905 | L |
05b2 0d0d 154d | M|
05b4 4d7d 3125 |M}1%|
05b6 4d50 9d4d |MP M|
05b8 4115 0c29 |A )|
05ba 413d 3165 |A=1e|
05bc 353d 4941 |5=IA|
05be 2125 0d7d |!% }|
05c0 253c 2885 |%<( |
05c2 10c9 7d09 | } |
05c4 0539 1cb9 | 9 |
05c6 253c b941 |%< A|
05c8 3d31 6535 |=1e5|
05ca 3d49 4121 |=IA!|
05cc 250d 7d25 |% }%|
05ce 3c9d 4d41 |< MA|
05d0 150c 2919 | ) |
05d2 5141 7d4d |QA}M|
05d4 1549 5915 | IY |
05d6 4828 8510 |H( |
05d8 c97d 0905 | } |
05da 391c b951 |9 Q|
05dc 3d3d 314c |==1L|
05de b939 1551 | 9 Q|
05e0 5d3d 492d |]=I-|
05e2 2539 1cb9 |%9 |
05e4 1951 417d | QA}|
05e6 4d15 4959 |M IY|
05e8 1548 9d4d | H M|
05ea 4115 0c29 |A )|
05ec 0511 0428 | (|
05ee 8510 c97d | }|
05f0 0905 391c | 9 |
05f2 b90d 3d35 | =5|
05f4 3505 3911 |5 9 |
05f6 4cb9 0511 |L |
05f8 049d 4d41 | MA|
05fa 150c 2905 | ) |
05fc 0d0d 154d | M|
05fe 4d7d 3125 |M}1%|