|
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: 7168 (0x1c00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0b90 | | .CONST 0x0b90 ; 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 0006 | | .CONST 0x0006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0092 | | .CONST 0x0092 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
000f 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0011 4800 |H | Short_Literal 0x0
0012 4804 |H | Short_Literal 0x4
0013 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
0018 4850 |HP | Short_Literal 0x50
0019 e001 | | Load 0x0,0x1
001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001b 1c07 | | Execute_Immediate Run_Utility,0x7
001c 00e5 | | Load_Encached Long_Integer_Cache
001d 4800 |H | Short_Literal 0x0
001e 4864 |Hd | Short_Literal 0x64
001f 00e5 | | Load_Encached Long_Integer_Cache
0020 03f8 | | Declare_Type Discrete,Constrained
0021 4800 |H | Short_Literal 0x0
0022 4864 |Hd | Short_Literal 0x64
0023 00db | | Load_Top At_Offset_3
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4801 |H | Short_Literal 0x1
0026 035d | ] | Declare_Type Array,Defined
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b e002 | | Load 0x0,0x2
002c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
002d e003 | | Load 0x0,0x3
002e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
002f e003 | | Load 0x0,0x3
0030 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0031 e213 | | Load 0x1,0x13
0032 4802 |H | Short_Literal 0x2
0033 00e5 | | Load_Encached Long_Integer_Cache
0034 00e5 | | Load_Encached Long_Integer_Cache
0035 4802 |H | Short_Literal 0x2
0036 00e6 | | Load_Encached Float_Cache
0037 00e6 | | Load_Encached Float_Cache
0038 4802 |H | Short_Literal 0x2
0039 00e5 | | Load_Encached Long_Integer_Cache
003a 00e5 | | Load_Encached Long_Integer_Cache
003b 4801 |H | Short_Literal 0x1
003c 00e2 | | Load_Encached Integer_Cache
003d 4801 |H | Short_Literal 0x1
003e 00e2 | | Load_Encached Integer_Cache
003f 4802 |H | Short_Literal 0x2
0040 e214 | | Load 0x1,0x14
0041 e215 | | Load 0x1,0x15
0042 4802 |H | Short_Literal 0x2
0043 e213 | | Load 0x1,0x13
0044 00d8 | | Load_Top At_Offset_0
0045 4801 |H | Short_Literal 0x1
0046 e213 | | Load 0x1,0x13
0047 4801 |H | Short_Literal 0x1
0048 e213 | | Load 0x1,0x13
0049 4801 |H | Short_Literal 0x1
004a e213 | | Load 0x1,0x13
004b 4801 |H | Short_Literal 0x1
004c e213 | | Load 0x1,0x13
004d 029f 0933 | 3| Declare_Subprogram For_Call,INIT_0930
004f 4810 |H | Short_Literal 0x10
0050 4803 |H | Short_Literal 0x3
0051 480b |H | Short_Literal 0xb
0052 4800 |H | Short_Literal 0x0
0053 4801 |H | Short_Literal 0x1
0054 031d | | Declare_Type Variant_Record,Defined
0055 c219 | | Store 0x1,0x19
0056 029b 01c3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_01c0
0058 c217 | | Store 0x1,0x17
0059 e004 | | Load 0x0,0x4
005a e005 | | Load 0x0,0x5
005b 6048 |`H | Indirect_Literal Discrete,0xa4,{0x00000000, 0x00001f40}
005c e213 | | Load 0x1,0x13
005d e219 | | Load 0x1,0x19
005e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005f e006 | | Load 0x0,0x6
0060 0387 | | Declare_Variable Package
0061 00d8 | | Load_Top At_Offset_0
0062 020f | | Execute Module,Activate
0063 c218 | | Store 0x1,0x18
0064 00d9 | | Load_Top At_Offset_1
0065 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0066 02a0 | | Declare_Subprogram Null_Subprogram
0067 e20d | | Load 0x1,0xd
0068 0326 | & | Complete_Type Record,By_Defining
0069 00bf | | Action Accept_Activation
006a e007 | | Load 0x0,0x7
006b e008 | | Load 0x0,0x8
006c 00e6 | | Load_Encached Float_Cache
006d e009 | | Load 0x0,0x9
006e 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
006f 0387 | | Declare_Variable Package
0070 00d8 | | Load_Top At_Offset_0
0071 020f | | Execute Module,Activate
0072 0092 09d6 | | Action Push_String_Extended,0x9d6 ; "Name of the Unit containing the type declaration"
0074 0092 09d7 | | Action Push_String_Extended,0x9d7 ; "Name of the type declaration"
0076 0092 09d8 | | Action Push_String_Extended,0x9d8 ; "Kind of the type declaration"
0078 0092 09d9 | | Action Push_String_Extended,0x9d9 ; "Number of components in the Record"
007a 029d 01d3 | | Declare_Subprogram For_Outer_Call,INIT_01d0
007c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007d 00c7 | | Action Elaborate_Subprogram
007e 029d 01e3 | | Declare_Subprogram For_Outer_Call,INIT_01e0
0080 029d 01fb | | Declare_Subprogram For_Outer_Call,INIT_01f8
0082 029d 0233 | 3| Declare_Subprogram For_Outer_Call,INIT_0230
0084 029d 026b | k| Declare_Subprogram For_Outer_Call,INIT_0268
0086 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0087 00c7 | | Action Elaborate_Subprogram
0088 029d 0333 | 3| Declare_Subprogram For_Outer_Call,INIT_0330
008a 029d 0353 | S| Declare_Subprogram For_Outer_Call,INIT_0350
008c 029d 03e3 | | Declare_Subprogram For_Outer_Call,INIT_03e0
008e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
008f 00c7 | | Action Elaborate_Subprogram
0090 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0091 00c7 | | Action Elaborate_Subprogram
0092 BODY_0008:
0092 00bc | | Action Signal_Activated
0093 00bb | | Action Signal_Completion
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e218 | | Load 0x1,0x18
009c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009d e218 | | Load 0x1,0x18
009e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009f 00db | | Load_Top At_Offset_3
00a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a1 4501 |E | Exit_Subprogram 0x1
00a2 0000 0000 | | .XXX[0x2]
00a4 0000 0000 | | .LITERAL {0x00000000, 0x00001f40}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b7 | | .CONST 0x00b7 ; Address of begin
00a9 00bf | | .CONST 0x00bf ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e003 | | Load 0x0,0x3
00ad 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
00ae 180f | | Execute Package,Field_Execute,Field_Number 0xf
00af 00eb | | Load_Encached Diana_Cache
00b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b1 e213 | | Load 0x1,0x13
00b2 03f1 | | Declare_Variable Discrete,With_Value
00b3 e219 | | Load 0x1,0x19
00b4 02ff | | Declare_Variable Variant_Record
00b5 00d8 | | Load_Top At_Offset_0
00b6 1c00 | | Execute_Immediate Run_Utility,0x0
00b7 BODY_00a8:
00b7 00d9 | | Load_Top At_Offset_1
00b8 e5fe | | Load 0x2,-0x2
00b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ba e218 | | Load 0x1,0x18
00bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00bc 00d9 | | Load_Top At_Offset_1
00bd 016d | m | Execute Variant_Record,Structure_Write
00be 4502 |E | Exit_Subprogram 0x2
00bf TRAP_00a8:
00bf e218 | | Load 0x1,0x18
00c0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00c1 010f | | Execute Exception,Equal
00c2 6805 |h | Jump_Zero 0xc8
00c3 e5fe | | Load 0x2,-0x2
00c4 00db | | Load_Top At_Offset_3
00c5 e5ff | | Load 0x2,-0x1
00c6 8223 | # | Call 0x1,0x23
00c7 4502 |E | Exit_Subprogram 0x2
00c8 0100 | | Execute Exception,Raise
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x7
00d4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00d5 7806 |x | Jump 0xdc ; case 0x1
00d6 7809 |x | Jump 0xe0 ; case 0x2
00d7 780d |x | Jump 0xe5 ; case 0x3
00d8 7810 |x | Jump 0xe9 ; case 0x4
00d9 7811 |x | Jump 0xeb ; case 0x5
00da 7812 |x | Jump 0xed ; case 0x6
00db 7815 |x | Jump 0xf1 ; case 0x7
00dc 00da | | Load_Top At_Offset_2
00dd 0091 09d1 | | Action Push_String_Extended_Indexed,0x9d1 ; "RECORD_SORT"
00df 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00e0 00db | | Load_Top At_Offset_3
00e1 00db | | Load_Top At_Offset_3
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e5 00da | | Load_Top At_Offset_2
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ed e210 | | Load 0x1,0x10
00ee 00dc | | Load_Top At_Offset_4
00ef 0267 | g | Execute Discrete,Predecessor
00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f1 e210 | | Load 0x1,0x10
00f2 00dc | | Load_Top At_Offset_4
00f3 0268 | h | Execute Discrete,Successor
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 016c | l | .CONST 0x016c ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 000a | | .CONST 0x000a ; Number of locals
00fb INIT_00f8:
00fb e00a | | Load 0x0,0xa
00fc e00b | | Load 0x0,0xb
00fd 4805 |H | Short_Literal 0x5
00fe 0092 09da | | Action Push_String_Extended,0x9da ; " "
0100 e00c | | Load 0x0,0xc
0101 0387 | | Declare_Variable Package
0102 00d8 | | Load_Top At_Offset_0
0103 020f | | Execute Module,Activate
0104 4801 |H | Short_Literal 0x1
0105 4804 |H | Short_Literal 0x4
0106 00da | | Load_Top At_Offset_2
0107 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0108 035b | [ | Declare_Type Array,Constrained
0109 0337 | 7 | Declare_Variable Array
010a 00d8 | | Load_Top At_Offset_0
010b 0335 | 5 | Declare_Variable Array,Duplicate
010c 00cd | | Action Spare6_Action
010d 4801 |H | Short_Literal 0x1
010e 4801 |H | Short_Literal 0x1
010f 00da | | Load_Top At_Offset_2
0110 01d6 | | Execute Vector,Field_Write
0111 4802 |H | Short_Literal 0x2
0112 4802 |H | Short_Literal 0x2
0113 00da | | Load_Top At_Offset_2
0114 01d6 | | Execute Vector,Field_Write
0115 4803 |H | Short_Literal 0x3
0116 4803 |H | Short_Literal 0x3
0117 00da | | Load_Top At_Offset_2
0118 01d6 | | Execute Vector,Field_Write
0119 4804 |H | Short_Literal 0x4
011a 4804 |H | Short_Literal 0x4
011b 00da | | Load_Top At_Offset_2
011c 01d6 | | Execute Vector,Field_Write
011d 00d9 | | Load_Top At_Offset_1
011e 01d4 | | Execute Vector,Structure_Write
011f 4801 |H | Short_Literal 0x1
0120 4803 |H | Short_Literal 0x3
0121 00db | | Load_Top At_Offset_3
0122 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0123 035b | [ | Declare_Type Array,Constrained
0124 0337 | 7 | Declare_Variable Array
0125 00d8 | | Load_Top At_Offset_0
0126 0335 | 5 | Declare_Variable Array,Duplicate
0127 00cd | | Action Spare6_Action
0128 4802 |H | Short_Literal 0x2
0129 4801 |H | Short_Literal 0x1
012a 00da | | Load_Top At_Offset_2
012b 01d6 | | Execute Vector,Field_Write
012c 4801 |H | Short_Literal 0x1
012d 4802 |H | Short_Literal 0x2
012e 00da | | Load_Top At_Offset_2
012f 01d6 | | Execute Vector,Field_Write
0130 4805 |H | Short_Literal 0x5
0131 4803 |H | Short_Literal 0x3
0132 00da | | Load_Top At_Offset_2
0133 01d6 | | Execute Vector,Field_Write
0134 00d9 | | Load_Top At_Offset_1
0135 01d4 | | Execute Vector,Structure_Write
0136 4801 |H | Short_Literal 0x1
0137 4803 |H | Short_Literal 0x3
0138 e402 | | Load 0x2,0x2
0139 1b18 | | Execute Package,Field_Read,Field_Number 0x18
013a 035b | [ | Declare_Type Array,Constrained
013b 0337 | 7 | Declare_Variable Array
013c 00d8 | | Load_Top At_Offset_0
013d 0335 | 5 | Declare_Variable Array,Duplicate
013e 00cd | | Action Spare6_Action
013f 4803 |H | Short_Literal 0x3
0140 4801 |H | Short_Literal 0x1
0141 00da | | Load_Top At_Offset_2
0142 01d6 | | Execute Vector,Field_Write
0143 4804 |H | Short_Literal 0x4
0144 4802 |H | Short_Literal 0x2
0145 00da | | Load_Top At_Offset_2
0146 01d6 | | Execute Vector,Field_Write
0147 4805 |H | Short_Literal 0x5
0148 4803 |H | Short_Literal 0x3
0149 00da | | Load_Top At_Offset_2
014a 01d6 | | Execute Vector,Field_Write
014b 00d9 | | Load_Top At_Offset_1
014c 01d4 | | Execute Vector,Structure_Write
014d 4801 |H | Short_Literal 0x1
014e 4802 |H | Short_Literal 0x2
014f e402 | | Load 0x2,0x2
0150 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0151 035b | [ | Declare_Type Array,Constrained
0152 0337 | 7 | Declare_Variable Array
0153 00d8 | | Load_Top At_Offset_0
0154 0335 | 5 | Declare_Variable Array,Duplicate
0155 00cd | | Action Spare6_Action
0156 4803 |H | Short_Literal 0x3
0157 4801 |H | Short_Literal 0x1
0158 00da | | Load_Top At_Offset_2
0159 01d6 | | Execute Vector,Field_Write
015a 4804 |H | Short_Literal 0x4
015b 4802 |H | Short_Literal 0x2
015c 00da | | Load_Top At_Offset_2
015d 01d6 | | Execute Vector,Field_Write
015e 00d9 | | Load_Top At_Offset_1
015f 01d4 | | Execute Vector,Structure_Write
0160 e00d | | Load 0x0,0xd
0161 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0162 02c7 | | Declare_Variable Any
0163 00d8 | | Load_Top At_Offset_0
0164 1c00 | | Execute_Immediate Run_Utility,0x0
0165 e218 | | Load 0x1,0x18
0166 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0167 0322 | " | Declare_Variable Record
0168 029f 041b | | Declare_Subprogram For_Call,INIT_0418
016a 029f 070b | | Declare_Subprogram For_Call,INIT_0708
016c BODY_00f8:
016c 4800 |H | Short_Literal 0x0
016d 4800 |H | Short_Literal 0x0
016e 0092 09db | | Action Push_String_Extended,0x9db ; "PARENT UNIT"
0170 e402 | | Load 0x2,0x2
0171 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0172 4800 |H | Short_Literal 0x0
0173 4800 |H | Short_Literal 0x0
0174 0092 09dc | | Action Push_String_Extended,0x9dc ; "Type"
0176 e402 | | Load 0x2,0x2
0177 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0178 4800 |H | Short_Literal 0x0
0179 4800 |H | Short_Literal 0x0
017a 0092 09dd | | Action Push_String_Extended,0x9dd ; "Kind"
017c e402 | | Load 0x2,0x2
017d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
017e 4800 |H | Short_Literal 0x0
017f 4800 |H | Short_Literal 0x0
0180 0092 09de | | Action Push_String_Extended,0x9de ; "Data 1"
0182 e402 | | Load 0x2,0x2
0183 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0184 4800 |H | Short_Literal 0x0
0185 4800 |H | Short_Literal 0x0
0186 0092 09df | | Action Push_String_Extended,0x9df ; "Data 2"
0188 e402 | | Load 0x2,0x2
0189 1812 | | Execute Package,Field_Execute,Field_Number 0x12
018a 00da | | Load_Top At_Offset_2
018b e5ff | | Load 0x2,-0x1
018c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018d e218 | | Load 0x1,0x18
018e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
018f 00d1 | | Pop_Control Pop_Count_1
0190 00cf | | Action Mark_Auxiliary
0191 7802 |x | Jump 0x194
0192 840a | | Call 0x2,0xa
0193 00c9 | | Action Pop_Auxiliary_Loop
0194 00db | | Load_Top At_Offset_3
0195 e218 | | Load 0x1,0x18
0196 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0197 6ffa |o | Jump_Zero 0x192
0198 00ce | | Action Pop_Auxiliary
0199 e5fe | | Load 0x2,-0x2
019a 4604 |F | Jump_Case 0x4
019b 780c |x | Jump 0x1a8 ; case 0x0
019c 780f |x | Jump 0x1ac ; case 0x1
019d 7806 |x | Jump 0x1a4 ; case 0x2
019e 7811 |x | Jump 0x1b0 ; case 0x3
019f 7800 |x | Jump 0x1a0 ; case 0x4
01a0 4804 |H | Short_Literal 0x4
01a1 e402 | | Load 0x2,0x2
01a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a3 780f |x | Jump 0x1b3
01a4 e403 | | Load 0x2,0x3
01a5 e402 | | Load 0x2,0x2
01a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01a7 780b |x | Jump 0x1b3
01a8 e404 | | Load 0x2,0x4
01a9 e402 | | Load 0x2,0x2
01aa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ab 7807 |x | Jump 0x1b3
01ac 4803 |H | Short_Literal 0x3
01ad e402 | | Load 0x2,0x2
01ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01af 7803 |x | Jump 0x1b3
01b0 e405 | | Load 0x2,0x5
01b1 e402 | | Load 0x2,0x2
01b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b3 e5fd | | Load 0x2,-0x3
01b4 0092 09e0 | | Action Push_String_Extended,0x9e0 ; "TYPE ANALYSIS"
01b6 e402 | | Load 0x2,0x2
01b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01b8 c5fd | | Store 0x2,-0x3
01b9 4503 |E | Exit_Subprogram 0x3
01ba 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
01c4 6007 |` | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x7fffffff}
01c5 026e | n | Execute Discrete,Modulo
01c6 00d8 | | Load_Top At_Offset_0
01c7 00e2 | | Load_Encached Integer_Cache
01c8 0260 | ` | Execute Discrete,In_Type
01c9 7001 |p | Jump_Nonzero 0x1cb
01ca 0801 | | Execute_Immediate Raise,0x1
01cb 4401 |D | Exit_Subprogram With_Result,0x1
01cc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d5 e00e | | Load 0x0,0xe
01d6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01d7 0092 09e1 | | Action Push_String_Extended,0x9e1 ; "."
01d9 01cc | | Execute Vector,Catenate
01da 00db | | Load_Top At_Offset_3
01db 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01dc e00e | | Load 0x0,0xe
01dd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01de 01cc | | Execute Vector,Catenate
01df 4401 |D | Exit_Subprogram With_Result,0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8 | | .CONST 0x01e8 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 480f |H | Short_Literal 0xf
01e4 e219 | | Load 0x1,0x19
01e5 1c08 | | Execute_Immediate Run_Utility,0x8
01e6 00d8 | | Load_Top At_Offset_0
01e7 1c00 | | Execute_Immediate Run_Utility,0x0
01e8 BODY_01e0:
01e8 00db | | Load_Top At_Offset_3
01e9 00d9 | | Load_Top At_Offset_1
01ea 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01eb e5fe | | Load 0x2,-0x2
01ec 00d9 | | Load_Top At_Offset_1
01ed 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01ee e003 | | Load 0x0,0x3
01ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f0 00d9 | | Load_Top At_Offset_1
01f1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f2 00d8 | | Load_Top At_Offset_0
01f3 4402 |D | Exit_Subprogram With_Result,0x2
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0200 | | .CONST 0x0200 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e003 | | Load 0x0,0x3
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 02c7 | | Declare_Variable Any
01fe 00db | | Load_Top At_Offset_3
01ff a402 | | Store_Unchecked 0x2,0x2
0200 BODY_01f8:
0200 00d8 | | Load_Top At_Offset_0
0201 e00f | | Load 0x0,0xf
0202 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0203 6804 |h | Jump_Zero 0x208
0204 00d8 | | Load_Top At_Offset_0
0205 e00f | | Load 0x0,0xf
0206 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0207 4401 |D | Exit_Subprogram With_Result,0x1
0208 00d8 | | Load_Top At_Offset_0
0209 e00f | | Load 0x0,0xf
020a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
020b 6802 |h | Jump_Zero 0x20e
020c 601f |` | Indirect_Literal Discrete,0x22c,{0x7fffffff, 0xffffffff}
020d 4401 |D | Exit_Subprogram With_Result,0x1
020e 4801 |H | Short_Literal 0x1
020f 00d9 | | Load_Top At_Offset_1
0210 e003 | | Load 0x0,0x3
0211 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0212 e00e | | Load 0x0,0xe
0213 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0214 c402 | | Store 0x2,0x2
0215 00d8 | | Load_Top At_Offset_0
0216 e00e | | Load 0x0,0xe
0217 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0218 4800 |H | Short_Literal 0x0
0219 4801 |H | Short_Literal 0x1
021a 0262 | b | Execute Discrete,In_Range
021b 7002 |p | Jump_Nonzero 0x21e
021c 600f |` | Indirect_Literal Discrete,0x22c,{0x7fffffff, 0xffffffff}
021d 4401 |D | Exit_Subprogram With_Result,0x1
021e 00d8 | | Load_Top At_Offset_0
021f e00e | | Load 0x0,0xe
0220 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0221 6805 |h | Jump_Zero 0x227
0222 00d8 | | Load_Top At_Offset_0
0223 e00e | | Load 0x0,0xe
0224 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0225 8221 | ! | Call 0x1,0x21
0226 4401 |D | Exit_Subprogram With_Result,0x1
0227 6004 |` | Indirect_Literal Discrete,0x22c,{0x7fffffff, 0xffffffff}
0228 4401 |D | Exit_Subprogram With_Result,0x1
0229 0000 0000 | | .XXX[0x3]
022b 0000 | |
022c 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238 | 8 | .CONST 0x0238 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e003 | | Load 0x0,0x3
0234 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0235 02c7 | | Declare_Variable Any
0236 00db | | Load_Top At_Offset_3
0237 a402 | | Store_Unchecked 0x2,0x2
0238 BODY_0230:
0238 00d8 | | Load_Top At_Offset_0
0239 e00f | | Load 0x0,0xf
023a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
023b 6804 |h | Jump_Zero 0x240
023c 00d8 | | Load_Top At_Offset_0
023d e00f | | Load 0x0,0xf
023e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
023f 4401 |D | Exit_Subprogram With_Result,0x1
0240 00d8 | | Load_Top At_Offset_0
0241 e00f | | Load 0x0,0xf
0242 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0243 6802 |h | Jump_Zero 0x246
0244 581f |X | Indirect_Literal Float,0x264,1.7976931348623157e+308
0245 4401 |D | Exit_Subprogram With_Result,0x1
0246 4801 |H | Short_Literal 0x1
0247 00d9 | | Load_Top At_Offset_1
0248 e003 | | Load 0x0,0x3
0249 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
024a e00e | | Load 0x0,0xe
024b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
024c c402 | | Store 0x2,0x2
024d 00d8 | | Load_Top At_Offset_0
024e e00e | | Load 0x0,0xe
024f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0250 4800 |H | Short_Literal 0x0
0251 4801 |H | Short_Literal 0x1
0252 0262 | b | Execute Discrete,In_Range
0253 7002 |p | Jump_Nonzero 0x256
0254 580f |X | Indirect_Literal Float,0x264,1.7976931348623157e+308
0255 4401 |D | Exit_Subprogram With_Result,0x1
0256 00d8 | | Load_Top At_Offset_0
0257 e00e | | Load 0x0,0xe
0258 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0259 6805 |h | Jump_Zero 0x25f
025a 00d8 | | Load_Top At_Offset_0
025b e00e | | Load 0x0,0xe
025c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
025d 8222 | " | Call 0x1,0x22
025e 4401 |D | Exit_Subprogram With_Result,0x1
025f 5804 |X | Indirect_Literal Float,0x264,1.7976931348623157e+308
0260 4401 |D | Exit_Subprogram With_Result,0x1
0261 0000 0000 | | .XXX[0x3]
0263 0000 | |
0264 7fef ffff | | .DBL 1.7976931348623157e+308
0266 ffff ffff | |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0286 | | .CONST 0x0286 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0008 | | .CONST 0x0008 ; Number of locals
026b INIT_0268:
026b e010 | | Load 0x0,0x10
026c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
026d 02c7 | | Declare_Variable Any
026e 00db | | Load_Top At_Offset_3
026f e00e | | Load 0x0,0xe
0270 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0271 a402 | | Store_Unchecked 0x2,0x2
0272 00d8 | | Load_Top At_Offset_0
0273 e002 | | Load 0x0,0x2
0274 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0275 e219 | | Load 0x1,0x19
0276 1c08 | | Execute_Immediate Run_Utility,0x8
0277 00d8 | | Load_Top At_Offset_0
0278 1c00 | | Execute_Immediate Run_Utility,0x0
0279 e003 | | Load 0x0,0x3
027a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
027b 02c7 | | Declare_Variable Any
027c 00d8 | | Load_Top At_Offset_0
027d 1c00 | | Execute_Immediate Run_Utility,0x0
027e 029f 072b | +| Declare_Subprogram For_Call,INIT_0728
0280 029f 0793 | | Declare_Subprogram For_Call,INIT_0790
0282 029f 07cb | | Declare_Subprogram For_Call,INIT_07c8
0284 029f 081b | | Declare_Subprogram For_Call,INIT_0818
0286 BODY_0268:
0286 e5fe | | Load 0x2,-0x2
0287 e403 | | Load 0x2,0x3
0288 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0289 e5ff | | Load 0x2,-0x1
028a e403 | | Load 0x2,0x3
028b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
028c e5ff | | Load 0x2,-0x1
028d e011 | | Load 0x0,0x11
028e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028f e011 | | Load 0x0,0x11
0290 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0291 e403 | | Load 0x2,0x3
0292 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0293 e403 | | Load 0x2,0x3
0294 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0295 460f |F | Jump_Case 0xf
0296 788c |x | Jump 0x323 ; case 0x0
0297 7855 |xU | Jump 0x2ed ; case 0x1
0298 780d |x | Jump 0x2a6 ; case 0x2
0299 780e |x | Jump 0x2a8 ; case 0x3
029a 7889 |x | Jump 0x324 ; case 0x4
029b 7888 |x | Jump 0x324 ; case 0x5
029c 7821 |x! | Jump 0x2be ; case 0x6
029d 7824 |x$ | Jump 0x2c2 ; case 0x7
029e 785e |x^ | Jump 0x2fd ; case 0x8
029f 784f |xO | Jump 0x2ef ; case 0x9
02a0 7855 |xU | Jump 0x2f6 ; case 0xa
02a1 7882 |x | Jump 0x324 ; case 0xb
02a2 7876 |xv | Jump 0x319 ; case 0xc
02a3 7875 |xu | Jump 0x319 ; case 0xd
02a4 7879 |xy | Jump 0x31e ; case 0xe
02a5 787e |x~ | Jump 0x324 ; case 0xf
02a6 8408 | | Call 0x2,0x8
02a7 787c |x| | Jump 0x324
02a8 e402 | | Load 0x2,0x2
02a9 e010 | | Load 0x0,0x10
02aa 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
02ab c404 | | Store 0x2,0x4
02ac 00cf | | Action Mark_Auxiliary
02ad 780a |x | Jump 0x2b8
02ae e403 | | Load 0x2,0x3
02af 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
02b0 0a01 | | Execute_Immediate Plus,0x1
02b1 e403 | | Load 0x2,0x3
02b2 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
02b3 e404 | | Load 0x2,0x4
02b4 e003 | | Load 0x0,0x3
02b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02b6 c404 | | Store 0x2,0x4
02b7 00c9 | | Action Pop_Auxiliary_Loop
02b8 e404 | | Load 0x2,0x4
02b9 e003 | | Load 0x0,0x3
02ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02bb 6ff2 |o | Jump_Zero 0x2ae
02bc 00ce | | Action Pop_Auxiliary
02bd 7866 |xf | Jump 0x324
02be 4800 |H | Short_Literal 0x0
02bf e403 | | Load 0x2,0x3
02c0 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
02c1 7862 |xb | Jump 0x324
02c2 e402 | | Load 0x2,0x2
02c3 e010 | | Load 0x0,0x10
02c4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02c5 c404 | | Store 0x2,0x4
02c6 00cf | | Action Mark_Auxiliary
02c7 781f |x | Jump 0x2e7
02c8 e404 | | Load 0x2,0x4
02c9 e003 | | Load 0x0,0x3
02ca 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02cb e010 | | Load 0x0,0x10
02cc 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
02cd 4603 |F | Jump_Case 0x3
02ce 7813 |x | Jump 0x2e2 ; case 0x0
02cf 7802 |x | Jump 0x2d2 ; case 0x1
02d0 7811 |x | Jump 0x2e2 ; case 0x2
02d1 7800 |x | Jump 0x2d2 ; case 0x3
02d2 e404 | | Load 0x2,0x4
02d3 e003 | | Load 0x0,0x3
02d4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02d5 e00e | | Load 0x0,0xe
02d6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
02d7 8405 | | Call 0x2,0x5
02d8 e403 | | Load 0x2,0x3
02d9 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
02da e403 | | Load 0x2,0x3
02db 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
02dc 01d6 | | Execute Vector,Field_Write
02dd e403 | | Load 0x2,0x3
02de 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
02df 0a01 | | Execute_Immediate Plus,0x1
02e0 e403 | | Load 0x2,0x3
02e1 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
02e2 e404 | | Load 0x2,0x4
02e3 e003 | | Load 0x0,0x3
02e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e5 c404 | | Store 0x2,0x4
02e6 00c9 | | Action Pop_Auxiliary_Loop
02e7 e404 | | Load 0x2,0x4
02e8 e003 | | Load 0x0,0x3
02e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ea 6fdd |o | Jump_Zero 0x2c8
02eb 00ce | | Action Pop_Auxiliary
02ec 7837 |x7 | Jump 0x324
02ed 8407 | | Call 0x2,0x7
02ee 7835 |x5 | Jump 0x324
02ef e402 | | Load 0x2,0x2
02f0 e010 | | Load 0x0,0x10
02f1 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
02f2 8405 | | Call 0x2,0x5
02f3 e403 | | Load 0x2,0x3
02f4 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
02f5 782e |x. | Jump 0x324
02f6 e402 | | Load 0x2,0x2
02f7 e010 | | Load 0x0,0x10
02f8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
02f9 8405 | | Call 0x2,0x5
02fa e403 | | Load 0x2,0x3
02fb 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
02fc 7827 |x' | Jump 0x324
02fd e402 | | Load 0x2,0x2
02fe e010 | | Load 0x0,0x10
02ff 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0300 8405 | | Call 0x2,0x5
0301 e403 | | Load 0x2,0x3
0302 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
0303 e402 | | Load 0x2,0x2
0304 e010 | | Load 0x0,0x10
0305 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0306 6809 |h | Jump_Zero 0x310
0307 e402 | | Load 0x2,0x2
0308 e010 | | Load 0x0,0x10
0309 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
030a e003 | | Load 0x0,0x3
030b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
030c 8405 | | Call 0x2,0x5
030d e403 | | Load 0x2,0x3
030e 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
030f 7814 |x | Jump 0x324
0310 e402 | | Load 0x2,0x2
0311 e010 | | Load 0x0,0x10
0312 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0313 e003 | | Load 0x0,0x3
0314 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0315 8405 | | Call 0x2,0x5
0316 e403 | | Load 0x2,0x3
0317 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
0318 780b |x | Jump 0x324
0319 e402 | | Load 0x2,0x2
031a 8405 | | Call 0x2,0x5
031b e403 | | Load 0x2,0x3
031c 2a14 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x14
031d 7806 |x | Jump 0x324
031e e402 | | Load 0x2,0x2
031f 8405 | | Call 0x2,0x5
0320 e403 | | Load 0x2,0x3
0321 2a13 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x13
0322 7801 |x | Jump 0x324
0323 8406 | | Call 0x2,0x6
0324 e5fd | | Load 0x2,-0x3
0325 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0326 4800 |H | Short_Literal 0x0
0327 e403 | | Load 0x2,0x3
0328 e5fe | | Load 0x2,-0x2
0329 e218 | | Load 0x1,0x18
032a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
032b e5fd | | Load 0x2,-0x3
032c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
032d 4503 |E | Exit_Subprogram 0x3
032e 0000 0000 | | .XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0337 | 7 | .CONST 0x0337 ; Address of begin
0331 0341 | A | .CONST 0x0341 ; Address of exception handler
0332 0002 | | .CONST 0x0002 ; Number of locals
0333 INIT_0330:
0333 e219 | | Load 0x1,0x19
0334 02ff | | Declare_Variable Variant_Record
0335 00d8 | | Load_Top At_Offset_0
0336 1c00 | | Execute_Immediate Run_Utility,0x0
0337 BODY_0330:
0337 00db | | Load_Top At_Offset_3
0338 e5fe | | Load 0x2,-0x2
0339 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
033a e218 | | Load 0x1,0x18
033b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
033c 00d9 | | Load_Top At_Offset_1
033d 016d | m | Execute Variant_Record,Structure_Write
033e 00d8 | | Load_Top At_Offset_0
033f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0340 4402 |D | Exit_Subprogram With_Result,0x2
0341 TRAP_0330:
0341 e218 | | Load 0x1,0x18
0342 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0343 010f | | Execute Exception,Equal
0344 6803 |h | Jump_Zero 0x348
0345 e003 | | Load 0x0,0x3
0346 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0347 4402 |D | Exit_Subprogram With_Result,0x2
0348 0100 | | Execute Exception,Raise
0349 0000 0000 | | .BLANK 0000[0x7]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0360 | ` | .CONST 0x0360 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0003 | | .CONST 0x0003 ; Number of locals
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 e00e | | Load 0x0,0xe
0355 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0356 e002 | | Load 0x0,0x2
0357 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0358 e002 | | Load 0x0,0x2
0359 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
035a 03f1 | | Declare_Variable Discrete,With_Value
035b e003 | | Load 0x0,0x3
035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035d 02c7 | | Declare_Variable Any
035e 00d8 | | Load_Top At_Offset_0
035f 1c00 | | Execute_Immediate Run_Utility,0x0
0360 BODY_0350:
0360 00d9 | | Load_Top At_Offset_1
0361 480c |H | Short_Literal 0xc
0362 480d |H | Short_Literal 0xd
0363 0262 | b | Execute Discrete,In_Range
0364 7019 |p | Jump_Nonzero 0x37e
0365 e5ff | | Load 0x2,-0x1
0366 e00e | | Load 0x0,0xe
0367 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0368 680c |h | Jump_Zero 0x375
0369 4801 |H | Short_Literal 0x1
036a e5ff | | Load 0x2,-0x1
036b e003 | | Load 0x0,0x3
036c 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
036d c403 | | Store 0x2,0x3
036e 00d8 | | Load_Top At_Offset_0
036f e010 | | Load 0x0,0x10
0370 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0371 e002 | | Load 0x0,0x2
0372 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0373 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0374 7826 |x& | Jump 0x39b
0375 e5ff | | Load 0x2,-0x1
0376 e00e | | Load 0x0,0xe
0377 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0378 e010 | | Load 0x0,0x10
0379 181d | | Execute Package,Field_Execute,Field_Number 0x1d
037a e002 | | Load 0x0,0x2
037b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
037c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
037d 781d |x | Jump 0x39b
037e 4801 |H | Short_Literal 0x1
037f e5ff | | Load 0x2,-0x1
0380 e003 | | Load 0x0,0x3
0381 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0382 e00e | | Load 0x0,0xe
0383 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0384 c403 | | Store 0x2,0x3
0385 00d8 | | Load_Top At_Offset_0
0386 e003 | | Load 0x0,0x3
0387 180f | | Execute Package,Field_Execute,Field_Number 0xf
0388 680a |h | Jump_Zero 0x393
0389 e5ff | | Load 0x2,-0x1
038a e00e | | Load 0x0,0xe
038b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
038c 6803 |h | Jump_Zero 0x390
038d 0092 09e2 | | Action Push_String_Extended,0x9e2 ; "GENERIC FORMAL"
038f 4401 |D | Exit_Subprogram With_Result,0x1
0390 0092 09e3 | | Action Push_String_Extended,0x9e3 ; "NO COMPLETION"
0392 4401 |D | Exit_Subprogram With_Result,0x1
0393 00d8 | | Load_Top At_Offset_0
0394 e00e | | Load 0x0,0xe
0395 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0396 e010 | | Load 0x0,0x10
0397 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0398 e002 | | Load 0x0,0x2
0399 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
039a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
039b 00d9 | | Load_Top At_Offset_1
039c 460f |F | Jump_Case 0xf
039d 7811 |x | Jump 0x3af ; case 0x0
039e 7813 |x | Jump 0x3b2 ; case 0x1
039f 7815 |x | Jump 0x3b5 ; case 0x2
03a0 7817 |x | Jump 0x3b8 ; case 0x3
03a1 7819 |x | Jump 0x3bb ; case 0x4
03a2 781b |x | Jump 0x3be ; case 0x5
03a3 781d |x | Jump 0x3c1 ; case 0x6
03a4 781f |x | Jump 0x3c4 ; case 0x7
03a5 7821 |x! | Jump 0x3c7 ; case 0x8
03a6 7823 |x# | Jump 0x3ca ; case 0x9
03a7 7825 |x% | Jump 0x3cd ; case 0xa
03a8 7827 |x' | Jump 0x3d0 ; case 0xb
03a9 7829 |x) | Jump 0x3d3 ; case 0xc
03aa 782b |x+ | Jump 0x3d6 ; case 0xd
03ab 782d |x- | Jump 0x3d9 ; case 0xe
03ac 7800 |x | Jump 0x3ad ; case 0xf
03ad 00ea | | Load_Encached Null_String_Cache
03ae 4401 |D | Exit_Subprogram With_Result,0x1
03af 0092 09e4 | | Action Push_String_Extended,0x9e4 ; "INTEGER"
03b1 4401 |D | Exit_Subprogram With_Result,0x1
03b2 0092 09e5 | | Action Push_String_Extended,0x9e5 ; "FLOAT"
03b4 4401 |D | Exit_Subprogram With_Result,0x1
03b5 0092 09e6 | | Action Push_String_Extended,0x9e6 ; "FIXED"
03b7 4401 |D | Exit_Subprogram With_Result,0x1
03b8 0092 09e7 | | Action Push_String_Extended,0x9e7 ; "ENUM"
03ba 4401 |D | Exit_Subprogram With_Result,0x1
03bb 0092 09e8 | | Action Push_String_Extended,0x9e8 ; "BOOLEAN"
03bd 4401 |D | Exit_Subprogram With_Result,0x1
03be 0092 09e9 | | Action Push_String_Extended,0x9e9 ; "CHARACTER"
03c0 4401 |D | Exit_Subprogram With_Result,0x1
03c1 0092 09ea | | Action Push_String_Extended,0x9ea ; "STRING"
03c3 4401 |D | Exit_Subprogram With_Result,0x1
03c4 0092 09eb | | Action Push_String_Extended,0x9eb ; "RECORD"
03c6 4401 |D | Exit_Subprogram With_Result,0x1
03c7 0092 09ec | | Action Push_String_Extended,0x9ec ; "ARRAY"
03c9 4401 |D | Exit_Subprogram With_Result,0x1
03ca 0092 09ed | | Action Push_String_Extended,0x9ed ; "ACCESS"
03cc 4401 |D | Exit_Subprogram With_Result,0x1
03cd 0092 09ee | | Action Push_String_Extended,0x9ee ; "DERIVED"
03cf 4401 |D | Exit_Subprogram With_Result,0x1
03d0 0092 09ef | | Action Push_String_Extended,0x9ef ; "TASK"
03d2 4401 |D | Exit_Subprogram With_Result,0x1
03d3 0092 09f0 | | Action Push_String_Extended,0x9f0 ; "PRIVATE"
03d5 4401 |D | Exit_Subprogram With_Result,0x1
03d6 0092 09f1 | | Action Push_String_Extended,0x9f1 ; "L_PRIVATE"
03d8 4401 |D | Exit_Subprogram With_Result,0x1
03d9 0092 09f2 | | Action Push_String_Extended,0x9f2 ; "SUBTYPE"
03db 4401 |D | Exit_Subprogram With_Result,0x1
03dc 0000 0000 | | .BLANK 0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00db | | Load_Top At_Offset_3
03e4 4604 |F | Jump_Case 0x4
03e5 7821 |x! | Jump 0x407 ; case 0x0
03e6 7819 |x | Jump 0x400 ; case 0x1
03e7 7818 |x | Jump 0x400 ; case 0x2
03e8 7825 |x% | Jump 0x40e ; case 0x3
03e9 7800 |x | Jump 0x3ea ; case 0x4
03ea 00da | | Load_Top At_Offset_2
03eb 460f |F | Jump_Case 0xf
03ec 780f |x | Jump 0x3fc ; case 0x0
03ed 780e |x | Jump 0x3fc ; case 0x1
03ee 780d |x | Jump 0x3fc ; case 0x2
03ef 780c |x | Jump 0x3fc ; case 0x3
03f0 780b |x | Jump 0x3fc ; case 0x4
03f1 780a |x | Jump 0x3fc ; case 0x5
03f2 7809 |x | Jump 0x3fc ; case 0x6
03f3 7808 |x | Jump 0x3fc ; case 0x7
03f4 7807 |x | Jump 0x3fc ; case 0x8
03f5 7806 |x | Jump 0x3fc ; case 0x9
03f6 7807 |x | Jump 0x3fe ; case 0xa
03f7 7804 |x | Jump 0x3fc ; case 0xb
03f8 7803 |x | Jump 0x3fc ; case 0xc
03f9 7802 |x | Jump 0x3fc ; case 0xd
03fa 7803 |x | Jump 0x3fe ; case 0xe
03fb 7800 |x | Jump 0x3fc ; case 0xf
03fc 4800 |H | Short_Literal 0x0
03fd 4402 |D | Exit_Subprogram With_Result,0x2
03fe 4801 |H | Short_Literal 0x1
03ff 4402 |D | Exit_Subprogram With_Result,0x2
0400 00da | | Load_Top At_Offset_2
0401 0f0f | | Execute_Immediate Equal,0xf
0402 7002 |p | Jump_Nonzero 0x405
0403 4801 |H | Short_Literal 0x1
0404 4402 |D | Exit_Subprogram With_Result,0x2
0405 4800 |H | Short_Literal 0x0
0406 4402 |D | Exit_Subprogram With_Result,0x2
0407 00da | | Load_Top At_Offset_2
0408 0f07 | | Execute_Immediate Equal,0x7
0409 7002 |p | Jump_Nonzero 0x40c
040a 4800 |H | Short_Literal 0x0
040b 4402 |D | Exit_Subprogram With_Result,0x2
040c 4801 |H | Short_Literal 0x1
040d 4402 |D | Exit_Subprogram With_Result,0x2
040e 00da | | Load_Top At_Offset_2
040f 4800 |H | Short_Literal 0x0
0410 4805 |H | Short_Literal 0x5
0411 0262 | b | Execute Discrete,In_Range
0412 7002 |p | Jump_Nonzero 0x415
0413 4800 |H | Short_Literal 0x0
0414 4402 |D | Exit_Subprogram With_Result,0x2
0415 4801 |H | Short_Literal 0x1
0416 4402 |D | Exit_Subprogram With_Result,0x2
0417 0000 | | .XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 042d | - | .CONST 0x042d ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0006 | | .CONST 0x0006 ; Number of locals
041b INIT_0418:
041b 4801 |H | Short_Literal 0x1
041c 4864 |Hd | Short_Literal 0x64
041d 00e9 | | Load_Encached String_Cache
041e 035b | [ | Declare_Type Array,Constrained
041f 0337 | 7 | Declare_Variable Array
0420 e003 | | Load 0x0,0x3
0421 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0422 02c7 | | Declare_Variable Any
0423 00d8 | | Load_Top At_Offset_0
0424 1c00 | | Execute_Immediate Run_Utility,0x0
0425 e003 | | Load 0x0,0x3
0426 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0427 02c7 | | Declare_Variable Any
0428 00d8 | | Load_Top At_Offset_0
0429 1c00 | | Execute_Immediate Run_Utility,0x0
042a e214 | | Load 0x1,0x14
042b 029f 0833 | 3| Declare_Subprogram For_Call,INIT_0830
042d BODY_0418:
042d e5ff | | Load 0x2,-0x1
042e e7ff | | Load 0x3,-0x1
042f 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0430 8224 | $ | Call 0x1,0x24
0431 c603 | | Store 0x3,0x3
0432 8606 | | Call 0x3,0x6
0433 e7ff | | Load 0x3,-0x1
0434 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0435 460f |F | Jump_Case 0xf
0436 7a98 |z | Jump 0x6cf ; case 0x0
0437 7870 |xp | Jump 0x4a8 ; case 0x1
0438 780d |x | Jump 0x446 ; case 0x2
0439 783f |x? | Jump 0x479 ; case 0x3
043a 790c |y | Jump 0x547 ; case 0x4
043b 78b1 |x | Jump 0x4ed ; case 0x5
043c 78db |x | Jump 0x518 ; case 0x6
043d 4502 |E | Exit_Subprogram 0x2 ; case 0x7
043e 7933 |y3 | Jump 0x572 ; case 0x8
043f 796b |yk | Jump 0x5ab ; case 0x9
0440 799e |y | Jump 0x5df ; case 0xa
0441 79d1 |y | Jump 0x613 ; case 0xb
0442 79fb |y | Jump 0x63e ; case 0xc
0443 7a28 |z( | Jump 0x66c ; case 0xd
0444 7a55 |zU | Jump 0x69a ; case 0xe
0445 4502 |E | Exit_Subprogram 0x2 ; case 0xf
0446 e21d | | Load 0x1,0x1d
0447 e012 | | Load 0x0,0x12
0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0449 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
044a e012 | | Load 0x0,0x12
044b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
044c 180e | | Execute Package,Field_Execute,Field_Number 0xe
044d e003 | | Load 0x0,0x3
044e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
044f e603 | | Load 0x3,0x3
0450 0092 09e6 | | Action Push_String_Extended,0x9e6 ; "FIXED"
0452 e402 | | Load 0x2,0x2
0453 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0454 0092 09f3 | | Action Push_String_Extended,0x9f3 ; "Lower Bound"
0456 e012 | | Load 0x0,0x12
0457 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0458 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0459 e012 | | Load 0x0,0x12
045a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045b 180e | | Execute Package,Field_Execute,Field_Number 0xe
045c e003 | | Load 0x0,0x3
045d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
045e e003 | | Load 0x0,0x3
045f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0460 e7ff | | Load 0x3,-0x1
0461 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0462 00e0 | | Load_Encached Standard_Cache
0463 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0464 e402 | | Load 0x2,0x2
0465 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0466 0092 09f4 | | Action Push_String_Extended,0x9f4 ; "Upper Bound"
0468 e012 | | Load 0x0,0x12
0469 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
046b e012 | | Load 0x0,0x12
046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046d 180e | | Execute Package,Field_Execute,Field_Number 0xe
046e e003 | | Load 0x0,0x3
046f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0470 e003 | | Load 0x0,0x3
0471 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0472 e7ff | | Load 0x3,-0x1
0473 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0474 00e0 | | Load_Encached Standard_Cache
0475 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0476 e402 | | Load 0x2,0x2
0477 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0478 4502 |E | Exit_Subprogram 0x2
0479 e21d | | Load 0x1,0x1d
047a e012 | | Load 0x0,0x12
047b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
047d e012 | | Load 0x0,0x12
047e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0480 e003 | | Load 0x0,0x3
0481 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0482 e603 | | Load 0x3,0x3
0483 0092 09e7 | | Action Push_String_Extended,0x9e7 ; "ENUM"
0485 e402 | | Load 0x2,0x2
0486 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0487 0092 09f5 | | Action Push_String_Extended,0x9f5 ; "Number of enumeration literals"
0489 e012 | | Load 0x0,0x12
048a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
048c e012 | | Load 0x0,0x12
048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048e 180e | | Execute Package,Field_Execute,Field_Number 0xe
048f e003 | | Load 0x0,0x3
0490 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0491 e003 | | Load 0x0,0x3
0492 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0493 e7ff | | Load 0x3,-0x1
0494 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0495 00e0 | | Load_Encached Standard_Cache
0496 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0497 e402 | | Load 0x2,0x2
0498 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0499 00ea | | Load_Encached Null_String_Cache
049a e012 | | Load 0x0,0x12
049b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
049d e012 | | Load 0x0,0x12
049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049f 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a0 e003 | | Load 0x0,0x3
04a1 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04a2 e003 | | Load 0x0,0x3
04a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a4 00ea | | Load_Encached Null_String_Cache
04a5 e402 | | Load 0x2,0x2
04a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04a7 4502 |E | Exit_Subprogram 0x2
04a8 e21d | | Load 0x1,0x1d
04a9 e012 | | Load 0x0,0x12
04aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ab 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04ac e012 | | Load 0x0,0x12
04ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
04af e003 | | Load 0x0,0x3
04b0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04b1 e603 | | Load 0x3,0x3
04b2 0092 09e5 | | Action Push_String_Extended,0x9e5 ; "FLOAT"
04b4 e402 | | Load 0x2,0x2
04b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b6 e602 | | Load 0x3,0x2
04b7 e21a | | Load 0x1,0x1a
04b8 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04b9 4806 |H | Short_Literal 0x6
04ba e7ff | | Load 0x3,-0x1
04bb 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
04bc e21a | | Load 0x1,0x1a
04bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04be 00d1 | | Pop_Control Pop_Count_1
04bf 0092 09f3 | | Action Push_String_Extended,0x9f3 ; "Lower Bound"
04c1 e012 | | Load 0x0,0x12
04c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04c4 e012 | | Load 0x0,0x12
04c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04c7 e003 | | Load 0x0,0x3
04c8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04c9 e003 | | Load 0x0,0x3
04ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04cb 4820 |H | Short_Literal 0x20
04cc e602 | | Load 0x3,0x2
04cd e013 | | Load 0x0,0x13
04ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04cf e402 | | Load 0x2,0x2
04d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04d1 e602 | | Load 0x3,0x2
04d2 e21a | | Load 0x1,0x1a
04d3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04d4 4806 |H | Short_Literal 0x6
04d5 e7ff | | Load 0x3,-0x1
04d6 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
04d7 e21a | | Load 0x1,0x1a
04d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04d9 00d1 | | Pop_Control Pop_Count_1
04da 0092 09f4 | | Action Push_String_Extended,0x9f4 ; "Upper Bound"
04dc e012 | | Load 0x0,0x12
04dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04df e012 | | Load 0x0,0x12
04e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e2 e003 | | Load 0x0,0x3
04e3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04e4 e003 | | Load 0x0,0x3
04e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e6 4820 |H | Short_Literal 0x20
04e7 e602 | | Load 0x3,0x2
04e8 e013 | | Load 0x0,0x13
04e9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04ea e402 | | Load 0x2,0x2
04eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ec 4502 |E | Exit_Subprogram 0x2
04ed e21d | | Load 0x1,0x1d
04ee e012 | | Load 0x0,0x12
04ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04f1 e012 | | Load 0x0,0x12
04f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f4 e003 | | Load 0x0,0x3
04f5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04f6 e603 | | Load 0x3,0x3
04f7 0092 09e9 | | Action Push_String_Extended,0x9e9 ; "CHARACTER"
04f9 e402 | | Load 0x2,0x2
04fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fb 00ea | | Load_Encached Null_String_Cache
04fc e012 | | Load 0x0,0x12
04fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04fe 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04ff e012 | | Load 0x0,0x12
0500 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0501 180e | | Execute Package,Field_Execute,Field_Number 0xe
0502 e003 | | Load 0x0,0x3
0503 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0504 e003 | | Load 0x0,0x3
0505 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0506 00ea | | Load_Encached Null_String_Cache
0507 e402 | | Load 0x2,0x2
0508 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0509 00ea | | Load_Encached Null_String_Cache
050a e012 | | Load 0x0,0x12
050b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
050d e012 | | Load 0x0,0x12
050e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0510 e003 | | Load 0x0,0x3
0511 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0512 e003 | | Load 0x0,0x3
0513 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0514 00ea | | Load_Encached Null_String_Cache
0515 e402 | | Load 0x2,0x2
0516 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0517 4502 |E | Exit_Subprogram 0x2
0518 e21d | | Load 0x1,0x1d
0519 e012 | | Load 0x0,0x12
051a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
051c e012 | | Load 0x0,0x12
051d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051e 180e | | Execute Package,Field_Execute,Field_Number 0xe
051f e003 | | Load 0x0,0x3
0520 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0521 e603 | | Load 0x3,0x3
0522 0092 09ea | | Action Push_String_Extended,0x9ea ; "STRING"
0524 e402 | | Load 0x2,0x2
0525 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0526 0092 09f6 | | Action Push_String_Extended,0x9f6 ; "Number of characters in the string"
0528 e012 | | Load 0x0,0x12
0529 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
052b e012 | | Load 0x0,0x12
052c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052d 180e | | Execute Package,Field_Execute,Field_Number 0xe
052e e003 | | Load 0x0,0x3
052f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0530 e003 | | Load 0x0,0x3
0531 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0532 e7ff | | Load 0x3,-0x1
0533 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0534 00e0 | | Load_Encached Standard_Cache
0535 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0536 e402 | | Load 0x2,0x2
0537 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0538 00ea | | Load_Encached Null_String_Cache
0539 e012 | | Load 0x0,0x12
053a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
053c e012 | | Load 0x0,0x12
053d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053e 180e | | Execute Package,Field_Execute,Field_Number 0xe
053f e003 | | Load 0x0,0x3
0540 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0541 e003 | | Load 0x0,0x3
0542 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0543 00ea | | Load_Encached Null_String_Cache
0544 e402 | | Load 0x2,0x2
0545 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0546 4502 |E | Exit_Subprogram 0x2
0547 e21d | | Load 0x1,0x1d
0548 e012 | | Load 0x0,0x12
0549 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
054b e012 | | Load 0x0,0x12
054c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054d 180e | | Execute Package,Field_Execute,Field_Number 0xe
054e e003 | | Load 0x0,0x3
054f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0550 e603 | | Load 0x3,0x3
0551 0092 09e8 | | Action Push_String_Extended,0x9e8 ; "BOOLEAN"
0553 e402 | | Load 0x2,0x2
0554 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0555 00ea | | Load_Encached Null_String_Cache
0556 e012 | | Load 0x0,0x12
0557 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0558 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0559 e012 | | Load 0x0,0x12
055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055b 180e | | Execute Package,Field_Execute,Field_Number 0xe
055c e003 | | Load 0x0,0x3
055d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
055e e003 | | Load 0x0,0x3
055f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0560 00ea | | Load_Encached Null_String_Cache
0561 e402 | | Load 0x2,0x2
0562 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0563 00ea | | Load_Encached Null_String_Cache
0564 e012 | | Load 0x0,0x12
0565 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0566 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0567 e012 | | Load 0x0,0x12
0568 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0569 180e | | Execute Package,Field_Execute,Field_Number 0xe
056a e003 | | Load 0x0,0x3
056b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
056c e003 | | Load 0x0,0x3
056d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056e 00ea | | Load_Encached Null_String_Cache
056f e402 | | Load 0x2,0x2
0570 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0571 4502 |E | Exit_Subprogram 0x2
0572 e21d | | Load 0x1,0x1d
0573 e012 | | Load 0x0,0x12
0574 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0575 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0576 e012 | | Load 0x0,0x12
0577 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0578 180e | | Execute Package,Field_Execute,Field_Number 0xe
0579 e003 | | Load 0x0,0x3
057a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
057b e603 | | Load 0x3,0x3
057c 0092 09ec | | Action Push_String_Extended,0x9ec ; "ARRAY"
057e e402 | | Load 0x2,0x2
057f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0580 e5ff | | Load 0x2,-0x1
0581 e7ff | | Load 0x3,-0x1
0582 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0583 8224 | $ | Call 0x1,0x24
0584 c603 | | Store 0x3,0x3
0585 0092 09f7 | | Action Push_String_Extended,0x9f7 ; "Index type of the array"
0587 e012 | | Load 0x0,0x12
0588 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0589 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
058a e012 | | Load 0x0,0x12
058b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058c 180e | | Execute Package,Field_Execute,Field_Number 0xe
058d e003 | | Load 0x0,0x3
058e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
058f e603 | | Load 0x3,0x3
0590 00d8 | | Load_Top At_Offset_0
0591 e003 | | Load 0x0,0x3
0592 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0593 e402 | | Load 0x2,0x2
0594 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0595 e5ff | | Load 0x2,-0x1
0596 e7ff | | Load 0x3,-0x1
0597 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0598 8224 | $ | Call 0x1,0x24
0599 c603 | | Store 0x3,0x3
059a 0092 09f8 | | Action Push_String_Extended,0x9f8 ; "Component type of the array"
059c e012 | | Load 0x0,0x12
059d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
059f e012 | | Load 0x0,0x12
05a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
05a2 e003 | | Load 0x0,0x3
05a3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05a4 e603 | | Load 0x3,0x3
05a5 00d8 | | Load_Top At_Offset_0
05a6 e00e | | Load 0x0,0xe
05a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05a8 e402 | | Load 0x2,0x2
05a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05aa 4502 |E | Exit_Subprogram 0x2
05ab e21d | | Load 0x1,0x1d
05ac e012 | | Load 0x0,0x12
05ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ae 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05af e012 | | Load 0x0,0x12
05b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b1 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b2 e003 | | Load 0x0,0x3
05b3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05b4 e603 | | Load 0x3,0x3
05b5 0092 09ed | | Action Push_String_Extended,0x9ed ; "ACCESS"
05b7 e402 | | Load 0x2,0x2
05b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b9 e5ff | | Load 0x2,-0x1
05ba e7ff | | Load 0x3,-0x1
05bb 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
05bc 8224 | $ | Call 0x1,0x24
05bd c603 | | Store 0x3,0x3
05be 0092 09f9 | | Action Push_String_Extended,0x9f9 ; "Name of the type being accessed"
05c0 e012 | | Load 0x0,0x12
05c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05c3 e012 | | Load 0x0,0x12
05c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c5 180e | | Execute Package,Field_Execute,Field_Number 0xe
05c6 e003 | | Load 0x0,0x3
05c7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05c8 e603 | | Load 0x3,0x3
05c9 00d8 | | Load_Top At_Offset_0
05ca e00e | | Load 0x0,0xe
05cb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05cc e402 | | Load 0x2,0x2
05cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ce 0092 09fa | | Action Push_String_Extended,0x9fa ; "Kind of the type being accessed"
05d0 e012 | | Load 0x0,0x12
05d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05d3 e012 | | Load 0x0,0x12
05d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
05d6 e003 | | Load 0x0,0x3
05d7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05d8 e003 | | Load 0x0,0x3
05d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05da e603 | | Load 0x3,0x3
05db 8225 | % | Call 0x1,0x25
05dc e402 | | Load 0x2,0x2
05dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05de 4502 |E | Exit_Subprogram 0x2
05df e21d | | Load 0x1,0x1d
05e0 e012 | | Load 0x0,0x12
05e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05e3 e012 | | Load 0x0,0x12
05e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
05e6 e003 | | Load 0x0,0x3
05e7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05e8 e603 | | Load 0x3,0x3
05e9 0092 09ee | | Action Push_String_Extended,0x9ee ; "DERIVED"
05eb e402 | | Load 0x2,0x2
05ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ed e5ff | | Load 0x2,-0x1
05ee e7ff | | Load 0x3,-0x1
05ef 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
05f0 8224 | $ | Call 0x1,0x24
05f1 c603 | | Store 0x3,0x3
05f2 0092 09fb | | Action Push_String_Extended,0x9fb ; "Name of the type derived"
05f4 e012 | | Load 0x0,0x12
05f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05f7 e012 | | Load 0x0,0x12
05f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
05fa e003 | | Load 0x0,0x3
05fb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05fc e603 | | Load 0x3,0x3
05fd 00d8 | | Load_Top At_Offset_0
05fe e00e | | Load 0x0,0xe
05ff 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0600 e402 | | Load 0x2,0x2
0601 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0602 e21d | | Load 0x1,0x1d
0603 e012 | | Load 0x0,0x12
0604 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0605 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0606 e012 | | Load 0x0,0x12
0607 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0608 180e | | Execute Package,Field_Execute,Field_Number 0xe
0609 e003 | | Load 0x0,0x3
060a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
060b e003 | | Load 0x0,0x3
060c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
060d e7ff | | Load 0x3,-0x1
060e 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
060f 8225 | % | Call 0x1,0x25
0610 e402 | | Load 0x2,0x2
0611 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0612 4502 |E | Exit_Subprogram 0x2
0613 e21d | | Load 0x1,0x1d
0614 e012 | | Load 0x0,0x12
0615 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0616 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0617 e012 | | Load 0x0,0x12
0618 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0619 180e | | Execute Package,Field_Execute,Field_Number 0xe
061a e003 | | Load 0x0,0x3
061b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
061c e603 | | Load 0x3,0x3
061d 0092 09ef | | Action Push_String_Extended,0x9ef ; "TASK"
061f e402 | | Load 0x2,0x2
0620 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0621 00ea | | Load_Encached Null_String_Cache
0622 e012 | | Load 0x0,0x12
0623 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0624 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0625 e012 | | Load 0x0,0x12
0626 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0627 180e | | Execute Package,Field_Execute,Field_Number 0xe
0628 e003 | | Load 0x0,0x3
0629 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
062a e003 | | Load 0x0,0x3
062b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
062c 00ea | | Load_Encached Null_String_Cache
062d e402 | | Load 0x2,0x2
062e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
062f 00ea | | Load_Encached Null_String_Cache
0630 e012 | | Load 0x0,0x12
0631 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0632 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0633 e012 | | Load 0x0,0x12
0634 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0635 180e | | Execute Package,Field_Execute,Field_Number 0xe
0636 e003 | | Load 0x0,0x3
0637 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0638 e003 | | Load 0x0,0x3
0639 1b0e | | Execute Package,Field_Read,Field_Number 0xe
063a 00ea | | Load_Encached Null_String_Cache
063b e402 | | Load 0x2,0x2
063c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
063d 4502 |E | Exit_Subprogram 0x2
063e e21d | | Load 0x1,0x1d
063f e012 | | Load 0x0,0x12
0640 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0641 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0642 e012 | | Load 0x0,0x12
0643 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0644 180e | | Execute Package,Field_Execute,Field_Number 0xe
0645 e003 | | Load 0x0,0x3
0646 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0647 e603 | | Load 0x3,0x3
0648 0092 09f0 | | Action Push_String_Extended,0x9f0 ; "PRIVATE"
064a e402 | | Load 0x2,0x2
064b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
064c 00ea | | Load_Encached Null_String_Cache
064d e012 | | Load 0x0,0x12
064e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0650 e012 | | Load 0x0,0x12
0651 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0652 180e | | Execute Package,Field_Execute,Field_Number 0xe
0653 e003 | | Load 0x0,0x3
0654 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0655 e003 | | Load 0x0,0x3
0656 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0657 00ea | | Load_Encached Null_String_Cache
0658 e402 | | Load 0x2,0x2
0659 1813 | | Execute Package,Field_Execute,Field_Number 0x13
065a 0092 09fc | | Action Push_String_Extended,0x9fc ; "Kind of the completion of the private type"
065c e012 | | Load 0x0,0x12
065d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
065f e012 | | Load 0x0,0x12
0660 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0661 180e | | Execute Package,Field_Execute,Field_Number 0xe
0662 e003 | | Load 0x0,0x3
0663 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0664 e003 | | Load 0x0,0x3
0665 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0666 e7ff | | Load 0x3,-0x1
0667 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0668 8225 | % | Call 0x1,0x25
0669 e402 | | Load 0x2,0x2
066a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
066b 4502 |E | Exit_Subprogram 0x2
066c e21d | | Load 0x1,0x1d
066d e012 | | Load 0x0,0x12
066e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
066f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0670 e012 | | Load 0x0,0x12
0671 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0672 180e | | Execute Package,Field_Execute,Field_Number 0xe
0673 e003 | | Load 0x0,0x3
0674 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0675 e603 | | Load 0x3,0x3
0676 0092 09f1 | | Action Push_String_Extended,0x9f1 ; "L_PRIVATE"
0678 e402 | | Load 0x2,0x2
0679 1813 | | Execute Package,Field_Execute,Field_Number 0x13
067a 00ea | | Load_Encached Null_String_Cache
067b e012 | | Load 0x0,0x12
067c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
067e e012 | | Load 0x0,0x12
067f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0680 180e | | Execute Package,Field_Execute,Field_Number 0xe
0681 e003 | | Load 0x0,0x3
0682 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0683 e003 | | Load 0x0,0x3
0684 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0685 00ea | | Load_Encached Null_String_Cache
0686 e402 | | Load 0x2,0x2
0687 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0688 0092 09fd | | Action Push_String_Extended,0x9fd ; "Kind of the completion of the limited private type"
068a e012 | | Load 0x0,0x12
068b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
068d e012 | | Load 0x0,0x12
068e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0690 e003 | | Load 0x0,0x3
0691 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0692 e003 | | Load 0x0,0x3
0693 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0694 e7ff | | Load 0x3,-0x1
0695 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0696 8225 | % | Call 0x1,0x25
0697 e402 | | Load 0x2,0x2
0698 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0699 4502 |E | Exit_Subprogram 0x2
069a e21d | | Load 0x1,0x1d
069b e012 | | Load 0x0,0x12
069c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
069d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
069e e012 | | Load 0x0,0x12
069f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
06a1 e003 | | Load 0x0,0x3
06a2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06a3 e603 | | Load 0x3,0x3
06a4 0092 09f2 | | Action Push_String_Extended,0x9f2 ; "SUBTYPE"
06a6 e402 | | Load 0x2,0x2
06a7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06a8 e5ff | | Load 0x2,-0x1
06a9 e7ff | | Load 0x3,-0x1
06aa 2e13 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
06ab 8224 | $ | Call 0x1,0x24
06ac c603 | | Store 0x3,0x3
06ad 0092 09fe | | Action Push_String_Extended,0x9fe ; "Type being subtyped"
06af e012 | | Load 0x0,0x12
06b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06b2 e012 | | Load 0x0,0x12
06b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b5 e003 | | Load 0x0,0x3
06b6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06b7 e603 | | Load 0x3,0x3
06b8 00d8 | | Load_Top At_Offset_0
06b9 e00e | | Load 0x0,0xe
06ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
06bb e402 | | Load 0x2,0x2
06bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06bd 0092 09ff | | Action Push_String_Extended,0x9ff ; "Kind of the type being subtyped"
06bf e012 | | Load 0x0,0x12
06c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06c2 e012 | | Load 0x0,0x12
06c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06c5 e003 | | Load 0x0,0x3
06c6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06c7 e003 | | Load 0x0,0x3
06c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c9 e7ff | | Load 0x3,-0x1
06ca 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06cb 8225 | % | Call 0x1,0x25
06cc e402 | | Load 0x2,0x2
06cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ce 4502 |E | Exit_Subprogram 0x2
06cf e21d | | Load 0x1,0x1d
06d0 e012 | | Load 0x0,0x12
06d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06d2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06d3 e012 | | Load 0x0,0x12
06d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
06d6 e003 | | Load 0x0,0x3
06d7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06d8 e603 | | Load 0x3,0x3
06d9 0092 09e4 | | Action Push_String_Extended,0x9e4 ; "INTEGER"
06db e402 | | Load 0x2,0x2
06dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06dd 0092 09f3 | | Action Push_String_Extended,0x9f3 ; "Lower Bound"
06df e012 | | Load 0x0,0x12
06e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06e2 e012 | | Load 0x0,0x12
06e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06e5 e003 | | Load 0x0,0x3
06e6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06e7 e003 | | Load 0x0,0x3
06e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e9 e7ff | | Load 0x3,-0x1
06ea 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
06eb 00e0 | | Load_Encached Standard_Cache
06ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06ed e402 | | Load 0x2,0x2
06ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ef 0092 09f4 | | Action Push_String_Extended,0x9f4 ; "Upper Bound"
06f1 e012 | | Load 0x0,0x12
06f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06f3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06f4 e012 | | Load 0x0,0x12
06f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
06f7 e003 | | Load 0x0,0x3
06f8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06f9 e003 | | Load 0x0,0x3
06fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06fb e7ff | | Load 0x3,-0x1
06fc 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
06fd 00e0 | | Load_Encached Standard_Cache
06fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06ff e402 | | Load 0x2,0x2
0700 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0701 4502 |E | Exit_Subprogram 0x2
0702 0000 0000 | | .BLANK 0000[0x6]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0716 | | .CONST 0x0716 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0002 | | .CONST 0x0002 ; Number of locals
070b INIT_0708:
070b e219 | | Load 0x1,0x19
070c 02ff | | Declare_Variable Variant_Record
070d e408 | | Load 0x2,0x8
070e e218 | | Load 0x1,0x18
070f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0710 e5ff | | Load 0x2,-0x1
0711 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0712 e218 | | Load 0x1,0x18
0713 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0714 00d9 | | Load_Top At_Offset_1
0715 016d | m | Execute Variant_Record,Structure_Write
0716 BODY_0708:
0716 e5fe | | Load 0x2,-0x2
0717 00d9 | | Load_Top At_Offset_1
0718 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0719 8226 | & | Call 0x1,0x26
071a 6802 |h | Jump_Zero 0x71d
071b 00d8 | | Load_Top At_Offset_0
071c 8409 | | Call 0x2,0x9
071d e408 | | Load 0x2,0x8
071e e218 | | Load 0x1,0x18
071f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0720 4501 |E | Exit_Subprogram 0x1
0721 0000 0000 | | .BLANK 0000[0x7]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 0737 | 7 | .CONST 0x0737 ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0004 | | .CONST 0x0004 ; Number of locals
072b INIT_0728:
072b e003 | | Load 0x0,0x3
072c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
072d 02c7 | | Declare_Variable Any
072e 00db | | Load_Top At_Offset_3
072f a602 | | Store_Unchecked 0x3,0x2
0730 e003 | | Load 0x0,0x3
0731 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0732 02c7 | | Declare_Variable Any
0733 00d8 | | Load_Top At_Offset_0
0734 1c00 | | Execute_Immediate Run_Utility,0x0
0735 e213 | | Load 0x1,0x13
0736 0007 | | Action Break_Optional
0737 BODY_0728:
0737 e7ff | | Load 0x3,-0x1
0738 e010 | | Load 0x0,0x10
0739 1819 | | Execute Package,Field_Execute,Field_Number 0x19
073a 460c |F | Jump_Case 0xc
073b 781f |x | Jump 0x75b ; case 0x0
073c 781e |x | Jump 0x75b ; case 0x1
073d 781d |x | Jump 0x75b ; case 0x2
073e 781c |x | Jump 0x75b ; case 0x3
073f 781b |x | Jump 0x75b ; case 0x4
0740 781a |x | Jump 0x75b ; case 0x5
0741 7819 |x | Jump 0x75b ; case 0x6
0742 7818 |x | Jump 0x75b ; case 0x7
0743 7817 |x | Jump 0x75b ; case 0x8
0744 7816 |x | Jump 0x75b ; case 0x9
0745 7828 |x( | Jump 0x76e ; case 0xa
0746 7827 |x' | Jump 0x76e ; case 0xb
0747 7800 |x | Jump 0x748 ; case 0xc
0748 00da | | Load_Top At_Offset_2
0749 e003 | | Load 0x0,0x3
074a 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
074b 180f | | Execute Package,Field_Execute,Field_Number 0xf
074c 00eb | | Load_Encached Diana_Cache
074d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
074e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
074f e5fd | | Load 0x2,-0x3
0750 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0751 4800 |H | Short_Literal 0x0
0752 e602 | | Load 0x3,0x2
0753 00db | | Load_Top At_Offset_3
0754 8220 | | Call 0x1,0x20
0755 00db | | Load_Top At_Offset_3
0756 e218 | | Load 0x1,0x18
0757 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0758 e5fd | | Load 0x2,-0x3
0759 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
075a 782d |x- | Jump 0x788
075b 4801 |H | Short_Literal 0x1
075c e7ff | | Load 0x3,-0x1
075d e003 | | Load 0x0,0x3
075e 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
075f e00e | | Load 0x0,0xe
0760 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0761 c602 | | Store 0x3,0x2
0762 00da | | Load_Top At_Offset_2
0763 e003 | | Load 0x0,0x3
0764 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0765 180f | | Execute Package,Field_Execute,Field_Number 0xf
0766 00eb | | Load_Encached Diana_Cache
0767 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0768 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0769 e5fd | | Load 0x2,-0x3
076a 00db | | Load_Top At_Offset_3
076b 820f | | Call 0x1,0xf
076c 00d1 | | Pop_Control Pop_Count_1
076d 781a |x | Jump 0x788
076e 4801 |H | Short_Literal 0x1
076f e7ff | | Load 0x3,-0x1
0770 e00e | | Load 0x0,0xe
0771 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0772 e003 | | Load 0x0,0x3
0773 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0774 c603 | | Store 0x3,0x3
0775 00d9 | | Load_Top At_Offset_1
0776 e003 | | Load 0x0,0x3
0777 180f | | Execute Package,Field_Execute,Field_Number 0xf
0778 700f |p | Jump_Nonzero 0x788
0779 00d9 | | Load_Top At_Offset_1
077a e00e | | Load 0x0,0xe
077b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
077c c602 | | Store 0x3,0x2
077d 00da | | Load_Top At_Offset_2
077e e003 | | Load 0x0,0x3
077f 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0780 180f | | Execute Package,Field_Execute,Field_Number 0xf
0781 00eb | | Load_Encached Diana_Cache
0782 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0783 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0784 e5fd | | Load 0x2,-0x3
0785 00db | | Load_Top At_Offset_3
0786 820f | | Call 0x1,0xf
0787 00d1 | | Pop_Control Pop_Count_1
0788 00d8 | | Load_Top At_Offset_0
0789 4401 |D | Exit_Subprogram With_Result,0x1
078a 0000 0000 | | .BLANK 0000[0x6]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 079d | | .CONST 0x079d ; Address of begin
0791 07bb | | .CONST 0x07bb ; Address of exception handler
0792 0003 | | .CONST 0x0003 ; Number of locals
0793 INIT_0790:
0793 e010 | | Load 0x0,0x10
0794 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0795 02c7 | | Declare_Variable Any
0796 00d8 | | Load_Top At_Offset_0
0797 1c00 | | Execute_Immediate Run_Utility,0x0
0798 e010 | | Load 0x0,0x10
0799 1b0f | | Execute Package,Field_Read,Field_Number 0xf
079a 02c7 | | Declare_Variable Any
079b 00d8 | | Load_Top At_Offset_0
079c 1c00 | | Execute_Immediate Run_Utility,0x0
079d BODY_0790:
079d 00d9 | | Load_Top At_Offset_1
079e 0120 | | Execute Any,Is_Value
079f 6803 |h | Jump_Zero 0x7a3
07a0 e010 | | Load 0x0,0x10
07a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07a2 7801 |x | Jump 0x7a4
07a3 00d9 | | Load_Top At_Offset_1
07a4 00d9 | | Load_Top At_Offset_1
07a5 0120 | | Execute Any,Is_Value
07a6 6803 |h | Jump_Zero 0x7aa
07a7 e010 | | Load 0x0,0x10
07a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07a9 7801 |x | Jump 0x7ab
07aa 00d9 | | Load_Top At_Offset_1
07ab e402 | | Load 0x2,0x2
07ac e010 | | Load 0x0,0x10
07ad 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
07ae e010 | | Load 0x0,0x10
07af 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
07b0 c603 | | Store 0x3,0x3
07b1 c602 | | Store 0x3,0x2
07b2 00d8 | | Load_Top At_Offset_0
07b3 8221 | ! | Call 0x1,0x21
07b4 e403 | | Load 0x2,0x3
07b5 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
07b6 00d9 | | Load_Top At_Offset_1
07b7 8221 | ! | Call 0x1,0x21
07b8 e403 | | Load 0x2,0x3
07b9 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
07ba 4501 |E | Exit_Subprogram 0x1
07bb TRAP_0790:
07bb 0007 | | Action Break_Optional
07bc 4800 |H | Short_Literal 0x0
07bd e403 | | Load 0x2,0x3
07be 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
07bf 4800 |H | Short_Literal 0x0
07c0 e403 | | Load 0x2,0x3
07c1 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
07c2 4501 |E | Exit_Subprogram 0x1
07c3 0000 0000 | | .BLANK 0000[0x5]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07dc | | .CONST 0x07dc ; Address of begin
07c9 0803 | | .CONST 0x0803 ; Address of exception handler
07ca 0004 | | .CONST 0x0004 ; Number of locals
07cb INIT_07c8:
07cb e010 | | Load 0x0,0x10
07cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07cd 02c7 | | Declare_Variable Any
07ce 00d8 | | Load_Top At_Offset_0
07cf 1c00 | | Execute_Immediate Run_Utility,0x0
07d0 e010 | | Load 0x0,0x10
07d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07d2 02c7 | | Declare_Variable Any
07d3 00d8 | | Load_Top At_Offset_0
07d4 1c00 | | Execute_Immediate Run_Utility,0x0
07d5 e003 | | Load 0x0,0x3
07d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d7 02c7 | | Declare_Variable Any
07d8 e402 | | Load 0x2,0x2
07d9 e010 | | Load 0x0,0x10
07da 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
07db a604 | | Store_Unchecked 0x3,0x4
07dc BODY_07c8:
07dc 00d8 | | Load_Top At_Offset_0
07dd e003 | | Load 0x0,0x3
07de 180f | | Execute Package,Field_Execute,Field_Number 0xf
07df 6807 |h | Jump_Zero 0x7e7
07e0 582f |X/ | Indirect_Literal Float,0x810,-1.7976931348623157e+308
07e1 e403 | | Load 0x2,0x3
07e2 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
07e3 5828 |X( | Indirect_Literal Float,0x80c,1.7976931348623157e+308
07e4 e403 | | Load 0x2,0x3
07e5 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
07e6 4501 |E | Exit_Subprogram 0x1
07e7 00da | | Load_Top At_Offset_2
07e8 0120 | | Execute Any,Is_Value
07e9 6803 |h | Jump_Zero 0x7ed
07ea e010 | | Load 0x0,0x10
07eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07ec 7801 |x | Jump 0x7ee
07ed 00da | | Load_Top At_Offset_2
07ee 00da | | Load_Top At_Offset_2
07ef 0120 | | Execute Any,Is_Value
07f0 6803 |h | Jump_Zero 0x7f4
07f1 e010 | | Load 0x0,0x10
07f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07f3 7801 |x | Jump 0x7f5
07f4 00da | | Load_Top At_Offset_2
07f5 00da | | Load_Top At_Offset_2
07f6 e010 | | Load 0x0,0x10
07f7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
07f8 c603 | | Store 0x3,0x3
07f9 c602 | | Store 0x3,0x2
07fa 00d9 | | Load_Top At_Offset_1
07fb 8222 | " | Call 0x1,0x22
07fc e403 | | Load 0x2,0x3
07fd 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
07fe 00da | | Load_Top At_Offset_2
07ff 8222 | " | Call 0x1,0x22
0800 e403 | | Load 0x2,0x3
0801 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0802 4501 |E | Exit_Subprogram 0x1
0803 TRAP_07c8:
0803 0007 | | Action Break_Optional
0804 5807 |X | Indirect_Literal Float,0x80c,1.7976931348623157e+308
0805 e403 | | Load 0x2,0x3
0806 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0807 5804 |X | Indirect_Literal Float,0x80c,1.7976931348623157e+308
0808 e403 | | Load 0x2,0x3
0809 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
080a 4501 |E | Exit_Subprogram 0x1
080b 0000 | | .XXX[0x1]
080c 7fef ffff | | .DBL 1.7976931348623157e+308
080e ffff ffff | |
0810 ffef ffff | | .DBL -1.7976931348623157e+308
0812 ffff ffff | |
0814 0000 0000 | | .BLANK 0000[0x4]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081c | | .CONST 0x081c ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0002 | | .CONST 0x0002 ; Number of locals
081b INIT_0818:
081b 00e1 | | Load_Encached Boolean_Cache
081c BODY_0818:
081c 00e1 | | Load_Encached Boolean_Cache
081d e403 | | Load 0x2,0x3
081e 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
081f e403 | | Load 0x2,0x3
0820 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0821 e402 | | Load 0x2,0x2
0822 e010 | | Load 0x0,0x10
0823 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0824 e402 | | Load 0x2,0x2
0825 e014 | | Load 0x0,0x14
0826 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0827 e403 | | Load 0x2,0x3
0828 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0829 e403 | | Load 0x2,0x3
082a 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
082b 0059 | Y | Store_Top Discrete,At_Offset_1
082c 4501 |E | Exit_Subprogram 0x1
082d 0000 0000 | | .XXX[0x3]
082f 0000 | |
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 083a | : | .CONST 0x083a ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0003 | | .CONST 0x0003 ; Number of locals
0833 INIT_0830:
0833 e7ff | | Load 0x3,-0x1
0834 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0835 e00e | | Load 0x0,0xe
0836 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0837 e603 | | Load 0x3,0x3
0838 e00e | | Load 0x0,0xe
0839 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
083a BODY_0830:
083a e7ff | | Load 0x3,-0x1
083b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
083c 460f |F | Jump_Case 0xf
083d 78d5 |x | Jump 0x913 ; case 0x0
083e 78d4 |x | Jump 0x913 ; case 0x1
083f 78d3 |x | Jump 0x913 ; case 0x2
0840 78d2 |x | Jump 0x913 ; case 0x3
0841 78d1 |x | Jump 0x913 ; case 0x4
0842 78d0 |x | Jump 0x913 ; case 0x5
0843 78cf |x | Jump 0x913 ; case 0x6
0844 7808 |x | Jump 0x84d ; case 0x7
0845 78cd |x | Jump 0x913 ; case 0x8
0846 78cc |x | Jump 0x913 ; case 0x9
0847 78cb |x | Jump 0x913 ; case 0xa
0848 78ca |x | Jump 0x913 ; case 0xb
0849 78c9 |x | Jump 0x913 ; case 0xc
084a 78c8 |x | Jump 0x913 ; case 0xd
084b 78c7 |x | Jump 0x913 ; case 0xe
084c 4501 |E | Exit_Subprogram 0x1 ; case 0xf
084d e7ff | | Load 0x3,-0x1
084e 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
084f 0aff | | Execute_Immediate Plus,-0x1
0850 c605 | | Store 0x3,0x5
0851 e21b | | Load 0x1,0x1b
0852 e012 | | Load 0x0,0x12
0853 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0854 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0855 e012 | | Load 0x0,0x12
0856 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0857 180e | | Execute Package,Field_Execute,Field_Number 0xe
0858 e003 | | Load 0x0,0x3
0859 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
085a e7ff | | Load 0x3,-0x1
085b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
085c e802 | | Load 0x4,0x2
085d e402 | | Load 0x2,0x2
085e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
085f e21c | | Load 0x1,0x1c
0860 e012 | | Load 0x0,0x12
0861 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0862 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0863 e012 | | Load 0x0,0x12
0864 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0865 180e | | Execute Package,Field_Execute,Field_Number 0xe
0866 e003 | | Load 0x0,0x3
0867 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0868 e603 | | Load 0x3,0x3
0869 e803 | | Load 0x4,0x3
086a e402 | | Load 0x2,0x2
086b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
086c e21d | | Load 0x1,0x1d
086d e012 | | Load 0x0,0x12
086e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
086f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0870 e012 | | Load 0x0,0x12
0871 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0872 180e | | Execute Package,Field_Execute,Field_Number 0xe
0873 e003 | | Load 0x0,0x3
0874 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0875 e603 | | Load 0x3,0x3
0876 0092 09eb | | Action Push_String_Extended,0x9eb ; "RECORD"
0878 e402 | | Load 0x2,0x2
0879 1813 | | Execute Package,Field_Execute,Field_Number 0x13
087a e21e | | Load 0x1,0x1e
087b e012 | | Load 0x0,0x12
087c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
087e e012 | | Load 0x0,0x12
087f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0880 180e | | Execute Package,Field_Execute,Field_Number 0xe
0881 e003 | | Load 0x0,0x3
0882 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0883 e003 | | Load 0x0,0x3
0884 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0885 4820 |H | Short_Literal 0x20
0886 e605 | | Load 0x3,0x5
0887 00e0 | | Load_Encached Standard_Cache
0888 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0889 e013 | | Load 0x0,0x13
088a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
088b e402 | | Load 0x2,0x2
088c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
088d 0092 0a00 | | Action Push_String_Extended,0xa00 ; "Starting component"
088f e012 | | Load 0x0,0x12
0890 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0891 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0892 e012 | | Load 0x0,0x12
0893 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0894 180e | | Execute Package,Field_Execute,Field_Number 0xe
0895 e003 | | Load 0x0,0x3
0896 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0897 e003 | | Load 0x0,0x3
0898 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0899 0092 0a01 | | Action Push_String_Extended,0xa01 ; "+"
089b e402 | | Load 0x2,0x2
089c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
089d e5fe | | Load 0x2,-0x2
089e 4801 |H | Short_Literal 0x1
089f 4804 |H | Short_Literal 0x4
08a0 0262 | b | Execute Discrete,In_Range
08a1 7070 |pp | Jump_Nonzero 0x912
08a2 7800 |x | Jump 0x8a3
08a3 00cf | | Action Mark_Auxiliary
08a4 4801 |H | Short_Literal 0x1
08a5 e605 | | Load 0x3,0x5
08a6 0264 | d | Execute Discrete,Below_Bound
08a7 7069 |pi | Jump_Nonzero 0x911
08a8 e21b | | Load 0x1,0x1b
08a9 e012 | | Load 0x0,0x12
08aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ab 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
08ac e012 | | Load 0x0,0x12
08ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
08af e003 | | Load 0x0,0x3
08b0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
08b1 e7ff | | Load 0x3,-0x1
08b2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08b3 e802 | | Load 0x4,0x2
08b4 e402 | | Load 0x2,0x2
08b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08b6 e21c | | Load 0x1,0x1c
08b7 e012 | | Load 0x0,0x12
08b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
08ba e012 | | Load 0x0,0x12
08bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
08bd e003 | | Load 0x0,0x3
08be 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
08bf e603 | | Load 0x3,0x3
08c0 e803 | | Load 0x4,0x3
08c1 e402 | | Load 0x2,0x2
08c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08c3 e21d | | Load 0x1,0x1d
08c4 e012 | | Load 0x0,0x12
08c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
08c7 e012 | | Load 0x0,0x12
08c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
08ca e003 | | Load 0x0,0x3
08cb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
08cc e603 | | Load 0x3,0x3
08cd 0092 0a02 | | Action Push_String_Extended,0xa02 ; "COMPONENT"
08cf e402 | | Load 0x2,0x2
08d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08d1 e5ff | | Load 0x2,-0x1
08d2 00d9 | | Load_Top At_Offset_1
08d3 e7ff | | Load 0x3,-0x1
08d4 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
08d5 01d7 | | Execute Vector,Field_Read
08d6 8224 | $ | Call 0x1,0x24
08d7 c604 | | Store 0x3,0x4
08d8 0092 0a03 | | Action Push_String_Extended,0xa03 ; "Component name"
08da e012 | | Load 0x0,0x12
08db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08dc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
08dd e012 | | Load 0x0,0x12
08de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08df 180e | | Execute Package,Field_Execute,Field_Number 0xe
08e0 e003 | | Load 0x0,0x3
08e1 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
08e2 e604 | | Load 0x3,0x4
08e3 00d8 | | Load_Top At_Offset_0
08e4 e00e | | Load 0x0,0xe
08e5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
08e6 e402 | | Load 0x2,0x2
08e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08e8 00d8 | | Load_Top At_Offset_0
08e9 0f01 | | Execute_Immediate Equal,0x1
08ea 6814 |h | Jump_Zero 0x8ff
08eb e21e | | Load 0x1,0x1e
08ec e012 | | Load 0x0,0x12
08ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ee 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
08ef e012 | | Load 0x0,0x12
08f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
08f2 e003 | | Load 0x0,0x3
08f3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
08f4 e003 | | Load 0x0,0x3
08f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08f6 4820 |H | Short_Literal 0x20
08f7 e605 | | Load 0x3,0x5
08f8 00e0 | | Load_Encached Standard_Cache
08f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08fa e013 | | Load 0x0,0x13
08fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08fc e402 | | Load 0x2,0x2
08fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08fe 7810 |x | Jump 0x90f
08ff 0092 0a04 | | Action Push_String_Extended,0xa04 ; "Intermediate Component"
0901 e012 | | Load 0x0,0x12
0902 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0903 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0904 e012 | | Load 0x0,0x12
0905 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0906 180e | | Execute Package,Field_Execute,Field_Number 0xe
0907 e003 | | Load 0x0,0x3
0908 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0909 e003 | | Load 0x0,0x3
090a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
090b 0092 09e1 | | Action Push_String_Extended,0x9e1 ; "."
090d e402 | | Load 0x2,0x2
090e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
090f 00c8 | | Action Pop_Auxiliary_Range
0910 3797 |7 | Loop_Decreasing 0x8a8
0911 00ce | | Action Pop_Auxiliary
0912 4501 |E | Exit_Subprogram 0x1
0913 e21b | | Load 0x1,0x1b
0914 e012 | | Load 0x0,0x12
0915 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0916 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0917 e012 | | Load 0x0,0x12
0918 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0919 180e | | Execute Package,Field_Execute,Field_Number 0xe
091a e003 | | Load 0x0,0x3
091b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
091c e7ff | | Load 0x3,-0x1
091d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
091e e802 | | Load 0x4,0x2
091f e402 | | Load 0x2,0x2
0920 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0921 e21c | | Load 0x1,0x1c
0922 e012 | | Load 0x0,0x12
0923 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0924 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0925 e012 | | Load 0x0,0x12
0926 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0927 180e | | Execute Package,Field_Execute,Field_Number 0xe
0928 e003 | | Load 0x0,0x3
0929 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
092a e603 | | Load 0x3,0x3
092b e803 | | Load 0x4,0x3
092c e402 | | Load 0x2,0x2
092d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
092e 4501 |E | Exit_Subprogram 0x1
092f 0000 | | .XXX[0x1]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933 | 3 | .CONST 0x0933 ; Address of begin
0931 0004 | | .CONST 0x0004 ; Address of exception handler
0932 0001 | | .CONST 0x0001 ; Number of locals
0933 BODY_0930:
0933 INIT_0930:
0933 4608 |F | Jump_Case 0x8
0934 7808 |x | Jump 0x93d ; case 0x0
0935 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0936 7899 |x | Jump 0x9d0 ; case 0x2
0937 7898 |x | Jump 0x9d0 ; case 0x3
0938 7897 |x | Jump 0x9d0 ; case 0x4
0939 7896 |x | Jump 0x9d0 ; case 0x5
093a 7833 |x3 | Jump 0x96e ; case 0x6
093b 785c |x\ | Jump 0x998 ; case 0x7
093c 788c |x | Jump 0x9c9 ; case 0x8
093d 00da | | Load_Top At_Offset_2
093e 016c | l | Execute Variant_Record,Is_Constrained
093f 7009 |p | Jump_Nonzero 0x949
0940 00cf | | Action Mark_Auxiliary
0941 4800 |H | Short_Literal 0x0
0942 e5ff | | Load 0x2,-0x1
0943 1c08 | | Execute_Immediate Run_Utility,0x8
0944 00d8 | | Load_Top At_Offset_0
0945 1c00 | | Execute_Immediate Run_Utility,0x0
0946 c5ff | | Store 0x2,-0x1
0947 00ce | | Action Pop_Auxiliary
0948 4302 |C | Exit_Subprogram From_Utility,0x2
0949 00da | | Load_Top At_Offset_2
094a 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
094b 00da | | Load_Top At_Offset_2
094c 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
094d 1c00 | | Execute_Immediate Run_Utility,0x0
094e 00da | | Load_Top At_Offset_2
094f 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0950 00da | | Load_Top At_Offset_2
0951 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0952 1c00 | | Execute_Immediate Run_Utility,0x0
0953 00da | | Load_Top At_Offset_2
0954 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0955 460f |F | Jump_Case 0xf
0956 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0957 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0958 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0959 780c |x | Jump 0x966 ; case 0x3
095a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
095b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
095c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
095d 780c |x | Jump 0x96a ; case 0x7
095e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
095f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x9
0960 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xa
0961 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xb
0962 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xc
0963 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xd
0964 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xe
0965 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xf
0966 4800 |H | Short_Literal 0x0
0967 00db | | Load_Top At_Offset_3
0968 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0969 4302 |C | Exit_Subprogram From_Utility,0x2
096a 4801 |H | Short_Literal 0x1
096b 00db | | Load_Top At_Offset_3
096c 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
096d 4302 |C | Exit_Subprogram From_Utility,0x2
096e 00db | | Load_Top At_Offset_3
096f 460f |F | Jump_Case 0xf
0970 7811 |x | Jump 0x982 ; case 0x0
0971 7812 |x | Jump 0x984 ; case 0x1
0972 7813 |x | Jump 0x986 ; case 0x2
0973 7814 |x | Jump 0x988 ; case 0x3
0974 780b |x | Jump 0x980 ; case 0x4
0975 780a |x | Jump 0x980 ; case 0x5
0976 7813 |x | Jump 0x98a ; case 0x6
0977 7814 |x | Jump 0x98c ; case 0x7
0978 7815 |x | Jump 0x98e ; case 0x8
0979 7816 |x | Jump 0x990 ; case 0x9
097a 7817 |x | Jump 0x992 ; case 0xa
097b 7804 |x | Jump 0x980 ; case 0xb
097c 7819 |x | Jump 0x996 ; case 0xc
097d 7818 |x | Jump 0x996 ; case 0xd
097e 7815 |x | Jump 0x994 ; case 0xe
097f 7800 |x | Jump 0x980 ; case 0xf
0980 48ff |H | Short_Literal 0xff
0981 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0982 4801 |H | Short_Literal 0x1
0983 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0984 4802 |H | Short_Literal 0x2
0985 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0986 4803 |H | Short_Literal 0x3
0987 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0988 4804 |H | Short_Literal 0x4
0989 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
098a 4805 |H | Short_Literal 0x5
098b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
098c 4806 |H | Short_Literal 0x6
098d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
098e 4807 |H | Short_Literal 0x7
098f 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0990 4808 |H | Short_Literal 0x8
0991 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0992 4809 |H | Short_Literal 0x9
0993 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0994 480a |H | Short_Literal 0xa
0995 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0996 480b |H | Short_Literal 0xb
0997 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0998 00db | | Load_Top At_Offset_3
0999 e5fe | | Load 0x2,-0x2
099a 460f |F | Jump_Case 0xf
099b 7811 |x | Jump 0x9ad ; case 0x0
099c 7812 |x | Jump 0x9af ; case 0x1
099d 7813 |x | Jump 0x9b1 ; case 0x2
099e 7814 |x | Jump 0x9b3 ; case 0x3
099f 7815 |x | Jump 0x9b5 ; case 0x4
09a0 7814 |x | Jump 0x9b5 ; case 0x5
09a1 7815 |x | Jump 0x9b7 ; case 0x6
09a2 7816 |x | Jump 0x9b9 ; case 0x7
09a3 7817 |x | Jump 0x9bb ; case 0x8
09a4 7818 |x | Jump 0x9bd ; case 0x9
09a5 7819 |x | Jump 0x9bf ; case 0xa
09a6 781c |x | Jump 0x9c3 ; case 0xb
09a7 781d |x | Jump 0x9c5 ; case 0xc
09a8 781c |x | Jump 0x9c5 ; case 0xd
09a9 7817 |x | Jump 0x9c1 ; case 0xe
09aa 7800 |x | Jump 0x9ab ; case 0xf
09ab 48ff |H | Short_Literal 0xff
09ac 7819 |x | Jump 0x9c6
09ad 4801 |H | Short_Literal 0x1
09ae 7817 |x | Jump 0x9c6
09af 4802 |H | Short_Literal 0x2
09b0 7815 |x | Jump 0x9c6
09b1 4803 |H | Short_Literal 0x3
09b2 7813 |x | Jump 0x9c6
09b3 4804 |H | Short_Literal 0x4
09b4 7811 |x | Jump 0x9c6
09b5 48ff |H | Short_Literal 0xff
09b6 780f |x | Jump 0x9c6
09b7 4805 |H | Short_Literal 0x5
09b8 780d |x | Jump 0x9c6
09b9 4806 |H | Short_Literal 0x6
09ba 780b |x | Jump 0x9c6
09bb 4807 |H | Short_Literal 0x7
09bc 7809 |x | Jump 0x9c6
09bd 4808 |H | Short_Literal 0x8
09be 7807 |x | Jump 0x9c6
09bf 4809 |H | Short_Literal 0x9
09c0 7805 |x | Jump 0x9c6
09c1 480a |H | Short_Literal 0xa
09c2 7803 |x | Jump 0x9c6
09c3 48ff |H | Short_Literal 0xff
09c4 7801 |x | Jump 0x9c6
09c5 480b |H | Short_Literal 0xb
09c6 e5ff | | Load 0x2,-0x1
09c7 031b | | Declare_Type Variant_Record,Constrained
09c8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
09c9 00db | | Load_Top At_Offset_3
09ca e5fe | | Load 0x2,-0x2
09cb e5ff | | Load 0x2,-0x1
09cc 1c06 | | Execute_Immediate Run_Utility,0x6
09cd e5ff | | Load 0x2,-0x1
09ce 02fc | | Declare_Variable Variant_Record,With_Constraint
09cf 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
09d0 0869 | i | Execute_Immediate Raise,0x69
09d1 ; --------------------------------------------------------------------------------------
09d1 ; STRING TABLE
09d1 ; --------------------------------------------------------------------------------------
09d1 006a | j | .STRTAB 0x006a->0x0a06 ; "RECORD_SORT"
09d2 0073 | s | .STRTAB 0x0073->0x0a0b ; "KIND_SORT"
09d3 007a | z | .STRTAB 0x007a->0x0a10 ; "NAME_SORT"
09d4 0081 | | .STRTAB 0x0081->0x0a14 ; "SCALAR_SORT"
09d5 008a | | .STRTAB 0x008a->0x0a1a ; "SUBTYPE_SORT"
09d6 0094 | | .STRTAB 0x0094->0x0a20 ; "Name of the Unit containing the type declaration"
09d7 00c2 | | .STRTAB 0x00c2->0x0a38 ; "Name of the type declaration"
09d8 00dc | | .STRTAB 0x00dc->0x0a46 ; "Kind of the type declaration"
09d9 00f6 | | .STRTAB 0x00f6->0x0a54 ; "Number of components in the Record"
09da 0116 | | .STRTAB 0x0116->0x0a65 ; " "
09db 0115 | | .STRTAB 0x0115->0x0a65 ; "PARENT UNIT"
09dc 011e | | .STRTAB 0x011e->0x0a6b ; "Type"
09dd 0120 | | .STRTAB 0x0120->0x0a6d ; "Kind"
09de 0122 | " | .STRTAB 0x0122->0x0a6f ; "Data 1"
09df 0126 | & | .STRTAB 0x0126->0x0a72 ; "Data 2"
09e0 012a | * | .STRTAB 0x012a->0x0a75 ; "TYPE ANALYSIS"
09e1 0135 | 5 | .STRTAB 0x0135->0x0a7b ; "."
; "."
09e2 0134 | 4 | .STRTAB 0x0134->0x0a7c ; "GENERIC FORMAL"
09e3 0140 | @ | .STRTAB 0x0140->0x0a83 ; "NO COMPLETION"
09e4 014b | K | .STRTAB 0x014b->0x0a89 ; "INTEGER"
; "INTEGER"
09e5 0150 | P | .STRTAB 0x0150->0x0a8d ; "FLOAT"
; "FLOAT"
09e6 0153 | S | .STRTAB 0x0153->0x0a8f ; "FIXED"
; "FIXED"
09e7 0156 | V | .STRTAB 0x0156->0x0a92 ; "ENUM"
; "ENUM"
09e8 0158 | X | .STRTAB 0x0158->0x0a94 ; "BOOLEAN"
; "BOOLEAN"
09e9 015d | ] | .STRTAB 0x015d->0x0a97 ; "CHARACTER"
; "CHARACTER"
09ea 0164 | d | .STRTAB 0x0164->0x0a9c ; "STRING"
; "STRING"
09eb 0168 | h | .STRTAB 0x0168->0x0a9f ; "RECORD"
; "RECORD"
09ec 016c | l | .STRTAB 0x016c->0x0aa2 ; "ARRAY"
; "ARRAY"
09ed 016f | o | .STRTAB 0x016f->0x0aa4 ; "ACCESS"
; "ACCESS"
09ee 0173 | s | .STRTAB 0x0173->0x0aa7 ; "DERIVED"
; "DERIVED"
09ef 0178 | x | .STRTAB 0x0178->0x0aab ; "TASK"
; "TASK"
09f0 017a | z | .STRTAB 0x017a->0x0aad ; "PRIVATE"
; "PRIVATE"
09f1 017f | | .STRTAB 0x017f->0x0ab0 ; "L_PRIVATE"
; "L_PRIVATE"
09f2 0186 | | .STRTAB 0x0186->0x0ab5 ; "SUBTYPE"
; "SUBTYPE"
09f3 018b | | .STRTAB 0x018b->0x0ab8 ; "Lower Bound"
; "Lower Bound"
; "Lower Bound"
09f4 0194 | | .STRTAB 0x0194->0x0abe ; "Upper Bound"
; "Upper Bound"
; "Upper Bound"
09f5 019d | | .STRTAB 0x019d->0x0ac3 ; "Number of enumeration literals"
09f6 01b9 | | .STRTAB 0x01b9->0x0ad2 ; "Number of characters in the string"
09f7 01d9 | | .STRTAB 0x01d9->0x0ae3 ; "Index type of the array"
09f8 01ee | | .STRTAB 0x01ee->0x0aef ; "Component type of the array"
09f9 0207 | | .STRTAB 0x0207->0x0afc ; "Name of the type being accessed"
09fa 0224 | $ | .STRTAB 0x0224->0x0b0c ; "Kind of the type being accessed"
09fb 0241 | A | .STRTAB 0x0241->0x0b1b ; "Name of the type derived"
09fc 0257 | W | .STRTAB 0x0257->0x0b27 ; "Kind of the completion of the private type"
09fd 027f | | .STRTAB 0x027f->0x0b3c ; "Kind of the completion of the limited private type"
09fe 02af | | .STRTAB 0x02af->0x0b55 ; "Type being subtyped"
09ff 02c0 | | .STRTAB 0x02c0->0x0b5f ; "Kind of the type being subtyped"
0a00 02dd | | .STRTAB 0x02dd->0x0b6e ; "Starting component"
0a01 02ed | | .STRTAB 0x02ed->0x0b77 ; "+"
0a02 02ec | | .STRTAB 0x02ec->0x0b78 ; "COMPONENT"
0a03 02f3 | | .STRTAB 0x02f3->0x0b7c ; "Component name"
0a04 02ff | | .STRTAB 0x02ff->0x0b83 ; "Intermediate Component"
0a05 0313 | | .STREND 0x0313->0x0b8e
0a06 5245 434f |RECO| .STRTAB_STRINGS
0b8f 0000 | | .XXX[0x1]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; Debug Table
0b90 ; --------------------------------------------------------------------------------------
0b90 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f96,0x0000,0x0001,0x0017
0b96 000b 0bf2 | | .DBG4T 0x000b,0x0bf2,0x8000,0x0000
0b9a 006a 0c01 | j | .DBG4T 0x006a,0x0c01,0x8000,0x8000
0b9e 009b 0c25 | %| .DBG4T 0x009b,0x0c25,0x0001,0x0000
0ba2 00ab 0c28 | (| .DBG4T 0x00ab,0x0c28,0x0001,0x0000
0ba6 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000
0baa 00fb 0c2e | .| .DBG4T 0x00fb,0x0c2e,0x0001,0x4000
0bae 01c3 0c56 | V| .DBG4T 0x01c3,0x0c56,0x0002,0x0000
0bb2 01d3 0c59 | Y| .DBG4T 0x01d3,0x0c59,0x0002,0x0000
0bb6 01e3 0c5c | \| .DBG4T 0x01e3,0x0c5c,0x0002,0x0000
0bba 01fb 0c63 | c| .DBG4T 0x01fb,0x0c63,0x0002,0x4000
0bbe 0233 0c7a | 3 z| .DBG4T 0x0233,0x0c7a,0x0002,0x4000
0bc2 026b 0c91 | k | .DBG4T 0x026b,0x0c91,0x0001,0x4000
0bc6 0333 0ccd | 3 | .DBG4T 0x0333,0x0ccd,0x0002,0x0000
0bca 0353 0cd3 | S | .DBG4T 0x0353,0x0cd3,0x0002,0x4000
0bce 03e3 0d0f | | .DBG4T 0x03e3,0x0d0f,0x0002,0x4000
0bd2 041b 0d2b | +| .DBG4T 0x041b,0x0d2b,0x0001,0x4000
0bd6 070b 0d99 | | .DBG4T 0x070b,0x0d99,0x0004,0x0000
0bda 072b 0d9f | + | .DBG4T 0x072b,0x0d9f,0x0002,0x4000
0bde 0793 0dbc | | .DBG4T 0x0793,0x0dbc,0x0004,0x0000
0be2 07cb 0dc4 | | .DBG4T 0x07cb,0x0dc4,0x0004,0x0000
0be6 081b 0dd0 | | .DBG4T 0x081b,0x0dd0,0x0004,0x0000
0bea 0833 0dd4 | 3 | .DBG4T 0x0833,0x0dd4,0x0004,0x4000
0bee 0933 0000 | 3 | .DBG4T 0x0933,0x0000,0x0005,0x0000
0bf2 ; --------------------------------------------------------------------------------------
0bf2 ; Debug chain
0bf2 ; --------------------------------------------------------------------------------------
0bf2 000d 0000 | | .DBGLEN 0x000d,0x0000
0bf4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0016,0x0018,0x001c,0x001d,0x0021,0x002b,0x0056,0x0059,0x0064
0c01 ; --------------------------------------------------------------------------------------
0c01 ; Debug chain
0c01 ; --------------------------------------------------------------------------------------
0c01 0011 0000 | | .DBGLEN 0x0011,0x0000
0c03 006a 0072 | j r| .DBGLNO 0x006a,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090
0c14 0003 0004 | | .XXX[0x11]
0c16 0005 0006 | |
0c18 0007 0008 | |
0c1a 0009 000a | |
0c1c 000b 000c | |
0c1e 000d 000e | |
0c20 000f 0010 | |
0c22 0011 0012 | |
0c24 0013 | |
0c25 ; --------------------------------------------------------------------------------------
0c25 ; Debug chain
0c25 ; --------------------------------------------------------------------------------------
0c25 0000 0001 | | .DBGLEN 0x0000,0x0001
0c27 009b | | .DBGLNO 0x009b
0c28 ; --------------------------------------------------------------------------------------
0c28 ; Debug chain
0c28 ; --------------------------------------------------------------------------------------
0c28 0002 0002 | | .DBGLEN 0x0002,0x0002
0c2a 00ab 00b3 | | .DBGLNO 0x00ab,0x00b3,0x00b7,0x00c3
0c2e ; --------------------------------------------------------------------------------------
0c2e ; Debug chain
0c2e ; --------------------------------------------------------------------------------------
0c2e 0008 000f | | .DBGLEN 0x0008,0x000f
0c30 00fb 0104 | | .DBGLNO 0x00fb,0x0104,0x011f,0x0136,0x014d,0x0160,0x0165,0x0168,0x016c,0x0172,0x0178,0x017e,0x0184,0x018a,0x0192,0x0194,0x0199,0x01a0,0x01a4,0x01a8,0x01ac,0x01b0,0x01b3
0c47 0001 0002 | | .XXX[0xf]
0c49 0003 0004 | |
0c4b 0005 0006 | |
0c4d 0008 0007 | |
0c4f 0009 000e | |
0c51 000a 000b | |
0c53 000c 000d | |
0c55 000f | |
0c56 ; --------------------------------------------------------------------------------------
0c56 ; Debug chain
0c56 ; --------------------------------------------------------------------------------------
0c56 0000 0001 | | .DBGLEN 0x0000,0x0001
0c58 01c3 | | .DBGLNO 0x01c3
0c59 ; --------------------------------------------------------------------------------------
0c59 ; Debug chain
0c59 ; --------------------------------------------------------------------------------------
0c59 0000 0001 | | .DBGLEN 0x0000,0x0001
0c5b 01d3 | | .DBGLNO 0x01d3
0c5c ; --------------------------------------------------------------------------------------
0c5c ; Debug chain
0c5c ; --------------------------------------------------------------------------------------
0c5c 0001 0004 | | .DBGLEN 0x0001,0x0004
0c5e 01e3 01e8 | | .DBGLNO 0x01e3,0x01e8,0x01eb,0x01ee,0x01f2
0c63 ; --------------------------------------------------------------------------------------
0c63 ; Debug chain
0c63 ; --------------------------------------------------------------------------------------
0c63 0001 000a | | .DBGLEN 0x0001,0x000a
0c65 01fb 0200 | | .DBGLNO 0x01fb,0x0200,0x0204,0x0208,0x020c,0x020e,0x0215,0x021c,0x021e,0x0222,0x0227
0c70 0001 0002 | | .XXX[0xa]
0c72 0003 000a | |
0c74 0004 0005 | |
0c76 0009 0006 | |
0c78 0007 0008 | |
0c7a ; --------------------------------------------------------------------------------------
0c7a ; Debug chain
0c7a ; --------------------------------------------------------------------------------------
0c7a 0001 000a | | .DBGLEN 0x0001,0x000a
0c7c 0233 0238 | 3 8| .DBGLNO 0x0233,0x0238,0x023c,0x0240,0x0244,0x0246,0x024d,0x0254,0x0256,0x025a,0x025f
0c87 0001 0002 | | .XXX[0xa]
0c89 0003 000a | |
0c8b 0004 0005 | |
0c8d 0009 0006 | |
0c8f 0007 0008 | |
0c91 ; --------------------------------------------------------------------------------------
0c91 ; Debug chain
0c91 ; --------------------------------------------------------------------------------------
0c91 0004 001b | | .DBGLEN 0x0004,0x001b
0c93 026b 0272 | k r| .DBGLNO 0x026b,0x0272,0x0279,0x027e,0x0286,0x0289,0x028c,0x0293,0x02a6,0x02a8,0x02ae,0x02b3,0x02b8,0x02be,0x02c2,0x02c8,0x02d2,0x02dd,0x02e2,0x02e7,0x02ed,0x02ef,0x02f6,0x02fd,0x0303,0x0307,0x0310,0x0319,0x031e,0x0323,0x0324
0cb2 0001 0002 | | .XXX[0x1b]
0cb4 0003 0004 | |
0cb6 0007 0008 | |
0cb8 000a 000b | |
0cba 0009 000d | |
0cbc 000e 0010 | |
0cbe 0013 0014 | |
0cc0 0015 000f | |
0cc2 0006 001a | |
0cc4 001b 0016 | |
0cc6 0017 0018 | |
0cc8 0019 001d | |
0cca 001e 0005 | |
0ccc 0020 | |
0ccd ; --------------------------------------------------------------------------------------
0ccd ; Debug chain
0ccd ; --------------------------------------------------------------------------------------
0ccd 0001 0003 | | .DBGLEN 0x0001,0x0003
0ccf 0333 0337 | 3 7| .DBGLNO 0x0333,0x0337,0x033e,0x0345
0cd3 ; --------------------------------------------------------------------------------------
0cd3 ; Debug chain
0cd3 ; --------------------------------------------------------------------------------------
0cd3 0002 001c | | .DBGLEN 0x0002,0x001c
0cd5 0353 035b | S [| .DBGLNO 0x0353,0x035b,0x0360,0x0365,0x0369,0x036e,0x0375,0x037e,0x0385,0x0389,0x038d,0x0390,0x0393,0x039b,0x03ad,0x03af,0x03b2,0x03b5,0x03b8,0x03bb,0x03be,0x03c1,0x03c4,0x03c7,0x03ca,0x03cd,0x03d0,0x03d3,0x03d6,0x03d9
0cf3 0001 0008 | | .XXX[0x1c]
0cf5 0009 000a | |
0cf7 000b 0002 | |
0cf9 0003 0004 | |
0cfb 0005 0006 | |
0cfd 0007 000c | |
0cff 001c 000d | |
0d01 000e 000f | |
0d03 0010 0011 | |
0d05 0012 0013 | |
0d07 0014 0015 | |
0d09 0016 0017 | |
0d0b 0018 0019 | |
0d0d 001a 001b | |
0d0f ; --------------------------------------------------------------------------------------
0d0f ; Debug chain
0d0f ; --------------------------------------------------------------------------------------
0d0f 0000 000d | | .DBGLEN 0x0000,0x000d
0d11 03e3 03ea | | .DBGLNO 0x03e3,0x03ea,0x03fc,0x03fe,0x0400,0x0403,0x0405,0x0407,0x040a,0x040c,0x040e,0x0413,0x0415
0d1e 0001 000b | | .XXX[0xd]
0d20 000d 000c | |
0d22 0002 0004 | |
0d24 0003 0005 | |
0d26 0007 0006 | |
0d28 0008 000a | |
0d2a 0009 | |
0d2b ; --------------------------------------------------------------------------------------
0d2b ; Debug chain
0d2b ; --------------------------------------------------------------------------------------
0d2b 0004 0034 | 4| .DBGLEN 0x0004,0x0034
0d2d 041b 0420 | | .DBGLNO 0x041b,0x0420,0x0425,0x042a,0x042d,0x0432,0x0433,0x0446,0x0454,0x0466,0x0479,0x0487,0x0499,0x04a8,0x04b6,0x04bf,0x04d1,0x04da,0x04ed,0x04fb,0x0509,0x0518,0x0526,0x0538,0x0547,0x0555,0x0563,0x0572,0x0580,0x0585,0x0595,0x059a,0x05ab,0x05b9,0x05be,0x05ce,0x05df,0x05ed,0x05f2,0x0602,0x0613,0x0621,0x062f,0x063e,0x064c,0x065a,0x066c,0x067a,0x0688,0x069a,0x06a8,0x06ad,0x06bd,0x06cf,0x06dd,0x06ef
0d65 0001 0002 | | .XXX[0x34]
0d67 0003 000c | |
0d69 000d 000e | |
0d6b 000f 0010 | |
0d6d 0011 0007 | |
0d6f 0008 0009 | |
0d71 000a 000b | |
0d73 0015 0016 | |
0d75 0017 0018 | |
0d77 0019 001a | |
0d79 0012 0013 | |
0d7b 0014 001c | |
0d7d 001d 001e | |
0d7f 001f 0020 | |
0d81 0021 0022 | ! "|
0d83 0023 0024 | # $|
0d85 0025 0026 | % &|
0d87 0027 0028 | ' (|
0d89 0029 002a | ) *|
0d8b 002b 002c | + ,|
0d8d 002d 002e | - .|
0d8f 002f 0030 | / 0|
0d91 0031 0032 | 1 2|
0d93 0033 0034 | 3 4|
0d95 0035 0004 | 5 |
0d97 0005 0006 | |
0d99 ; --------------------------------------------------------------------------------------
0d99 ; Debug chain
0d99 ; --------------------------------------------------------------------------------------
0d99 0001 0003 | | .DBGLEN 0x0001,0x0003
0d9b 070b 0716 | | .DBGLNO 0x070b,0x0716,0x071b,0x071d
0d9f ; --------------------------------------------------------------------------------------
0d9f ; Debug chain
0d9f ; --------------------------------------------------------------------------------------
0d9f 0003 000c | | .DBGLEN 0x0003,0x000c
0da1 072b 0730 | + 0| .DBGLNO 0x072b,0x0730,0x0735,0x0737,0x0748,0x074f,0x075b,0x0762,0x0769,0x076e,0x0775,0x0779,0x077d,0x0784,0x0788
0db0 0001 000a | | .XXX[0xc]
0db2 000b 0002 | |
0db4 0003 0004 | |
0db6 0005 0006 | |
0db8 0007 0008 | |
0dba 0009 000c | |
0dbc ; --------------------------------------------------------------------------------------
0dbc ; Debug chain
0dbc ; --------------------------------------------------------------------------------------
0dbc 0001 0005 | | .DBGLEN 0x0001,0x0005
0dbe 0793 079d | | .DBGLNO 0x0793,0x079d,0x07b2,0x07b6,0x07bc,0x07bf
0dc4 ; --------------------------------------------------------------------------------------
0dc4 ; Debug chain
0dc4 ; --------------------------------------------------------------------------------------
0dc4 0002 0008 | | .DBGLEN 0x0002,0x0008
0dc6 07cb 07d5 | | .DBGLNO 0x07cb,0x07d5,0x07dc,0x07e0,0x07e3,0x07e7,0x07fa,0x07fe,0x0804,0x0807
0dd0 ; --------------------------------------------------------------------------------------
0dd0 ; Debug chain
0dd0 ; --------------------------------------------------------------------------------------
0dd0 0001 0001 | | .DBGLEN 0x0001,0x0001
0dd2 081b 081c | | .DBGLNO 0x081b,0x081c
0dd4 ; --------------------------------------------------------------------------------------
0dd4 ; Debug chain
0dd4 ; --------------------------------------------------------------------------------------
0dd4 0002 0013 | | .DBGLEN 0x0002,0x0013
0dd6 0833 0837 | 3 7| .DBGLNO 0x0833,0x0837,0x083a,0x084d,0x0851,0x085f,0x086c,0x087a,0x088d,0x089d,0x08a4,0x08a8,0x08b6,0x08c3,0x08d1,0x08d8,0x08e8,0x08eb,0x08ff,0x0913,0x0921
0deb 0001 0003 | | .XXX[0x15]
0ded 0004 0005 | |
0def 0006 0007 | |
0df1 0008 0009 | |
0df3 000a 000b | |
0df5 000c 000d | |
0df7 000e 000f | |
0df9 0010 0011 | |
0dfb 0012 0014 | |
0dfd 0015 0000 | |
0dff 0000 | |