|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0790 | | .CONST 0x0790 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00d8 | | .CONST 0x00d8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0033 | 3 | .CONST 0x0033 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4801 |H | Short_Literal 0x1 000d 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0012 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0014 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0016 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0018 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 001a 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 001c 4800 |H | Short_Literal 0x0 001d 0093 0383 | | push_full_address INIT_0380 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 038f | | Declare_Type Package,Defined,Visible 0021 0386 | | Declare_Variable Package,Visible 0022 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0024 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0026 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0028 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 002a 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 002c 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 002e 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0030 4818 |H | Short_Literal 0x18 0031 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0032 00d8 | | Load_Top At_Offset_0 0033 e002 | | Load 0x0,0x2 0034 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0035 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 0037 4802 |H | Short_Literal 0x2 0038 032e | . | Declare_Type Record,Defined,Visible 0039 00bf | | Action Accept_Activation 003a e20e | | Load 0x1,0xe 003b e003 | | Load 0x0,0x3 003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003d e216 | | Load 0x1,0x16 003e 00e5 | | Load_Encached Long_Integer_Cache 003f 00e2 | | Load_Encached Integer_Cache 0040 00e2 | | Load_Encached Integer_Cache 0041 00e1 | | Load_Encached Boolean_Cache 0042 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 0044 4807 |H | Short_Literal 0x7 0045 032d | - | Declare_Type Record,Defined 0046 00d8 | | Load_Top At_Offset_0 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 e225 | % | Load 0x1,0x25 0049 03c7 | | Complete_Type Access,By_Defining 004a 00e3 | | Load_Encached Natural_Cache 004b 4800 |H | Short_Literal 0x0 004c 4801 |H | Short_Literal 0x1 004d 4801 |H | Short_Literal 0x1 004e 4803 |H | Short_Literal 0x3 004f 0318 | | Declare_Type Variant_Record,Incomplete 0050 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 0052 00d9 | | Load_Top At_Offset_1 0053 012a | * | Execute Any,Change_Utility 0054 0007 | | Action Break_Optional 0055 00d8 | | Load_Top At_Offset_0 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 03ad | | Declare_Type Heap_Access,Defined 0058 00e5 | | Load_Encached Long_Integer_Cache 0059 00e9 | | Load_Encached String_Cache 005a 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 005c 4800 |H | Short_Literal 0x0 005d 4801 |H | Short_Literal 0x1 005e 4801 |H | Short_Literal 0x1 005f e228 | ( | Load 0x1,0x28 0060 0307 | | Complete_Type Variant_Record,By_Defining 0061 00d8 | | Load_Top At_Offset_0 0062 03a0 | | Complete_Type Heap_Access,By_Component_Completion 0063 e004 | | Load 0x0,0x4 0064 e005 | | Load 0x0,0x5 0065 00db | | Load_Top At_Offset_3 0066 e002 | | Load 0x0,0x2 0067 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0068 0387 | | Declare_Variable Package 0069 00d8 | | Load_Top At_Offset_0 006a 020f | | Execute Module,Activate 006b e006 | | Load 0x0,0x6 006c e007 | | Load 0x0,0x7 006d e228 | ( | Load 0x1,0x28 006e e229 | ) | Load 0x1,0x29 006f e002 | | Load 0x0,0x2 0070 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0071 0387 | | Declare_Variable Package 0072 00d8 | | Load_Top At_Offset_0 0073 020f | | Execute Module,Activate 0074 e216 | | Load 0x1,0x16 0075 0266 | f | Execute Discrete,Bounds 0076 e002 | | Load 0x0,0x2 0077 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0078 02a0 | | Declare_Subprogram Null_Subprogram 0079 4801 |H | Short_Literal 0x1 007a 035d | ] | Declare_Type Array,Defined 007b 00d8 | | Load_Top At_Offset_0 007c 0337 | 7 | Declare_Variable Array 007d 00d8 | | Load_Top At_Offset_0 007e 0335 | 5 | Declare_Variable Array,Duplicate 007f 00cd | | Action Spare6_Action 0080 4800 |H | Short_Literal 0x0 0081 4800 |H | Short_Literal 0x0 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 4802 |H | Short_Literal 0x2 0085 4801 |H | Short_Literal 0x1 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 00d9 | | Load_Top At_Offset_1 0089 01d4 | | Execute Vector,Structure_Write 008a 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 008c 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 008e 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 0090 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0093 00c7 | | Action Elaborate_Subprogram 0094 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0097 00c7 | | Action Elaborate_Subprogram 0098 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0099 00c7 | | Action Elaborate_Subprogram 009a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 009b 00c7 | | Action Elaborate_Subprogram 009c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 009d 00c7 | | Action Elaborate_Subprogram 009e e008 | | Load 0x0,0x8 009f e009 | | Load 0x0,0x9 00a0 00e5 | | Load_Encached Long_Integer_Cache 00a1 e002 | | Load 0x0,0x2 00a2 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 00a3 0387 | | Declare_Variable Package 00a4 00d8 | | Load_Top At_Offset_0 00a5 020f | | Execute Module,Activate 00a6 e00a | | Load 0x0,0xa 00a7 e00b | | Load 0x0,0xb 00a8 00e9 | | Load_Encached String_Cache 00a9 e002 | | Load 0x0,0x2 00aa 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 00ab 0387 | | Declare_Variable Package 00ac 00d8 | | Load_Top At_Offset_0 00ad 020f | | Execute Module,Activate 00ae e225 | % | Load 0x1,0x25 00af e229 | ) | Load 0x1,0x29 00b0 e002 | | Load 0x0,0x2 00b1 e216 | | Load 0x1,0x16 00b2 e00c | | Load 0x0,0xc 00b3 e00d | | Load 0x0,0xd 00b4 e00e | | Load 0x0,0xe 00b5 e00f | | Load 0x0,0xf 00b6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00b7 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00b8 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00b9 e010 | | Load 0x0,0x10 00ba 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00bb 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00bc e215 | | Load 0x1,0x15 00bd 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00be 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00bf e214 | | Load 0x1,0x14 00c0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00c1 e22b | + | Load 0x1,0x2b 00c2 e22a | * | Load 0x1,0x2a 00c3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c4 e228 | ( | Load 0x1,0x28 00c5 4817 |H | Short_Literal 0x17 00c6 e21d | | Load 0x1,0x1d 00c7 020e | | Execute Module,Augment_Imports 00c8 e21d | | Load 0x1,0x1d 00c9 020f | | Execute Module,Activate 00ca 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00d7 00c7 | | Action Elaborate_Subprogram 00d8 BODY_0008: 00d8 00bc | | Action Signal_Activated 00d9 00bb | | Action Signal_Completion 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4607 |F | Jump_Case 0x8 00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00e5 7807 |x | Jump 0xed ; case 0x1 00e6 780a |x | Jump 0xf1 ; case 0x2 00e7 780e |x | Jump 0xf6 ; case 0x3 00e8 7811 |x | Jump 0xfa ; case 0x4 00e9 7812 |x | Jump 0xfc ; case 0x5 00ea 7813 |x | Jump 0xfe ; case 0x6 00eb 7816 |x | Jump 0x102 ; case 0x7 00ec 4302 |C | .XXX[0x1] 00ed 00da | | Load_Top At_Offset_2 00ee 0091 077e | ~| Action Push_String_Extended_Indexed,0x77e ; "IN_FILE" 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 00db | | Load_Top At_Offset_3 00f3 00e0 | | Load_Encached Standard_Cache 00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 00da | | Load_Top At_Offset_2 00f7 00e0 | | Load_Encached Standard_Cache 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00fa 00db | | Load_Top At_Offset_3 00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fc 00db | | Load_Top At_Offset_3 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe e216 | | Load 0x1,0x16 00ff 00dc | | Load_Top At_Offset_4 0100 0267 | g | Execute Discrete,Predecessor 0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0102 e216 | | Load 0x1,0x16 0103 00dc | | Load_Top At_Offset_4 0104 0268 | h | Execute Discrete,Successor 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e5fc | | Load 0x2,-0x4 010c 7006 |p | Jump_Nonzero 0x113 010d e225 | % | Load 0x1,0x25 010e 03bc | | Declare_Variable Access,By_Allocation 010f 00d8 | | Load_Top At_Offset_0 0110 0227 | ' | Execute Access,All_Reference 0111 1c00 | | Execute_Immediate Run_Utility,0x0 0112 a5fc | | Store_Unchecked 0x2,-0x4 0113 e5fc | | Load 0x2,-0x4 0114 8231 | 1 | Call 0x1,0x31 0115 6803 |h | Jump_Zero 0x119 0116 e5fc | | Load 0x2,-0x4 0117 8218 | | Call 0x1,0x18 0118 c5fc | | Store 0x2,-0x4 0119 e5fc | | Load 0x2,-0x4 011a 0229 | ) | Execute Access,All_Read 011b e5fc | | Load 0x2,-0x4 011c 0229 | ) | Execute Access,All_Read 011d e003 | | Load 0x0,0x3 011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011f 0122 | " | Execute Any,Make_Root_Type 0120 00d9 | | Load_Top At_Offset_1 0121 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0122 0120 | | Execute Any,Is_Value 0123 6803 |h | Jump_Zero 0x127 0124 e20e | | Load 0x1,0xe 0125 0122 | " | Execute Any,Make_Root_Type 0126 7802 |x | Jump 0x129 0127 00d9 | | Load_Top At_Offset_1 0128 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0129 e011 | | Load 0x0,0x11 012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012b e5fe | | Load 0x2,-0x2 012c e5ff | | Load 0x2,-0x1 012d e22d | - | Load 0x1,0x2d 012e 01d7 | | Execute Vector,Field_Read 012f 8210 | | Call 0x1,0x10 0130 00da | | Load_Top At_Offset_2 0131 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0132 00da | | Load_Top At_Offset_2 0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0134 00d2 | | Pop_Control Pop_Count_2 0135 00da | | Load_Top At_Offset_2 0136 e5fc | | Load 0x2,-0x4 0137 0227 | ' | Execute Access,All_Reference 0138 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0139 e5fd | | Load 0x2,-0x3 013a e5fc | | Load 0x2,-0x4 013b 0227 | ' | Execute Access,All_Reference 013c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 013d 4800 |H | Short_Literal 0x0 013e e5fc | | Load 0x2,-0x4 013f 0227 | ' | Execute Access,All_Reference 0140 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0141 4800 |H | Short_Literal 0x0 0142 e5fc | | Load 0x2,-0x4 0143 0227 | ' | Execute Access,All_Reference 0144 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0145 4801 |H | Short_Literal 0x1 0146 e5fc | | Load 0x2,-0x4 0147 0227 | ' | Execute Access,All_Reference 0148 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0149 4504 |E | Exit_Suprogram New_Top_Offset 0x4 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 8231 | 1 | Call 0x1,0x31 0155 6812 |h | Jump_Zero 0x168 0156 00da | | Load_Top At_Offset_2 0157 0229 | ) | Execute Access,All_Read 0158 00d8 | | Load_Top At_Offset_0 0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015a 00d8 | | Load_Top At_Offset_0 015b 0120 | | Execute Any,Is_Value 015c 6803 |h | Jump_Zero 0x160 015d e20e | | Load 0x1,0xe 015e 0122 | " | Execute Any,Make_Root_Type 015f 011e | | Execute Any,Convert 0160 8211 | | Call 0x1,0x11 0161 00d9 | | Load_Top At_Offset_1 0162 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0163 00d1 | | Pop_Control Pop_Count_1 0164 4800 |H | Short_Literal 0x0 0165 00db | | Load_Top At_Offset_3 0166 0227 | ' | Execute Access,All_Reference 0167 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0168 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 8231 | 1 | Call 0x1,0x31 0175 7002 |p | Jump_Nonzero 0x178 0176 4900 |I | Short_Literal 0x100 0177 0257 | W | Execute Discrete,Raise 0178 00da | | Load_Top At_Offset_2 0179 0227 | ' | Execute Access,All_Reference 017a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017b 820f | | Call 0x1,0xf 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0184 | | .CONST 0x0184 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 00e2 | | Load_Encached Integer_Cache 0184 BODY_0180: 0184 00cf | | Action Mark_Auxiliary 0185 e5ff | | Load 0x2,-0x1 0186 01da | | Execute Vector,Bounds 0187 0264 | d | Execute Discrete,Below_Bound 0188 7030 |p0 | Jump_Nonzero 0x1b9 0189 00d8 | | Load_Top At_Offset_0 018a e5ff | | Load 0x2,-0x1 018b 01d7 | | Execute Vector,Field_Read 018c 4830 |H0 | Short_Literal 0x30 018d 4839 |H9 | Short_Literal 0x39 018e 0261 | a | Execute Discrete,Not_In_Range 018f 6827 |h' | Jump_Zero 0x1b7 0190 00d8 | | Load_Top At_Offset_0 0191 e5ff | | Load 0x2,-0x1 0192 01dc | | Execute Vector,Last 0193 027f | | Execute Discrete,Equal 0194 6802 |h | Jump_Zero 0x197 0195 00d2 | | Pop_Control Pop_Count_2 0196 7822 |x" | Jump 0x1b9 0197 e5ff | | Load 0x2,-0x1 0198 01dd | | Execute Vector,First 0199 00d9 | | Load_Top At_Offset_1 019a e5ff | | Load 0x2,-0x1 019b 01cf | | Execute Vector,Slice_Read 019c 4830 |H0 | Short_Literal 0x30 019d 4803 |H | Short_Literal 0x3 019e 480a |H | Short_Literal 0xa 019f e405 | | Load 0x2,0x5 01a0 0a01 | | Execute_Immediate Plus,0x1 01a1 00d8 | | Load_Top At_Offset_0 01a2 00e2 | | Load_Encached Integer_Cache 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 0801 | | Execute_Immediate Raise,0x1 01a6 e5ff | | Load 0x2,-0x1 01a7 01dc | | Execute Vector,Last 01a8 e5ff | | Load 0x2,-0x1 01a9 01cf | | Execute Vector,Slice_Read 01aa 00e2 | | Load_Encached Integer_Cache 01ab 00e0 | | Load_Encached Standard_Cache 01ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ad 0a01 | | Execute_Immediate Plus,0x1 01ae 00d8 | | Load_Top At_Offset_0 01af 00e2 | | Load_Encached Integer_Cache 01b0 0260 | ` | Execute Discrete,In_Type 01b1 7001 |p | Jump_Nonzero 0x1b3 01b2 0801 | | Execute_Immediate Raise,0x1 01b3 e010 | | Load 0x0,0x10 01b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b5 01cc | | Execute Vector,Catenate 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 00c8 | | Action Pop_Auxiliary_Range 01b8 37d0 |7 | Loop_Decreasing 0x189 01b9 00ce | | Action Pop_Auxiliary 01ba 00db | | Load_Top At_Offset_3 01bb 0092 0780 | | Action Push_String_Extended,0x780 ; "_000" 01bd 01cc | | Execute Vector,Catenate 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 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 8231 | 1 | Call 0x1,0x31 01c5 7002 |p | Jump_Nonzero 0x1c8 01c6 4900 |I | Short_Literal 0x100 01c7 0257 | W | Execute Discrete,Raise 01c8 00da | | Load_Top At_Offset_2 01c9 0227 | ' | Execute Access,All_Reference 01ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cb 8212 | | Call 0x1,0x12 01cc 00db | | Load_Top At_Offset_3 01cd 0227 | ' | Execute Access,All_Reference 01ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cf 8213 | | Call 0x1,0x13 01d0 8230 | 0 | Call 0x1,0x30 01d1 00db | | Load_Top At_Offset_3 01d2 0227 | ' | Execute Access,All_Reference 01d3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01d4 027d | } | Execute Discrete,Greater 01d5 6806 |h | Jump_Zero 0x1dc 01d6 00da | | Load_Top At_Offset_2 01d7 0227 | ' | Execute Access,All_Reference 01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d9 820f | | Call 0x1,0xf 01da 821a | | Call 0x1,0x1a 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc 00da | | Load_Top At_Offset_2 01dd 0227 | ' | Execute Access,All_Reference 01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01df 820f | | Call 0x1,0xf 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f0 | | .CONST 0x01f0 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb 4801 |H | Short_Literal 0x1 01ec 00db | | Load_Top At_Offset_3 01ed e214 | | Load 0x1,0x14 01ee e010 | | Load 0x0,0x10 01ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01f0 BODY_01e8: 01f0 00d8 | | Load_Top At_Offset_0 01f1 7004 |p | Jump_Nonzero 0x1f6 01f2 00db | | Load_Top At_Offset_3 01f3 0335 | 5 | Declare_Variable Array,Duplicate 01f4 00cd | | Action Spare6_Action 01f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f6 00db | | Load_Top At_Offset_3 01f7 01dd | | Execute Vector,First 01f8 00d9 | | Load_Top At_Offset_1 01f9 0aff | | Execute_Immediate Plus,-0x1 01fa 00d8 | | Load_Top At_Offset_0 01fb 00e2 | | Load_Encached Integer_Cache 01fc 0260 | ` | Execute Discrete,In_Type 01fd 7001 |p | Jump_Nonzero 0x1ff 01fe 0801 | | Execute_Immediate Raise,0x1 01ff e5ff | | Load 0x2,-0x1 0200 01cf | | Execute Vector,Slice_Read 0201 0335 | 5 | Declare_Variable Array,Duplicate 0202 00cd | | Action Spare6_Action 0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 020c 00db | | Load_Top At_Offset_3 020d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020e 00db | | Load_Top At_Offset_3 020f 0227 | ' | Execute Access,All_Reference 0210 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0211 8212 | | Call 0x1,0x12 0212 00db | | Load_Top At_Offset_3 0213 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0214 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0227 | ' | .CONST 0x0227 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b e229 | ) | Load 0x1,0x29 021c 00db | | Load_Top At_Offset_3 021d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021e e5ff | | Load 0x2,-0x1 021f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0220 0227 | ' | Execute Access,All_Reference 0221 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0222 0227 | ' | Execute Access,All_Reference 0223 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0224 e22b | + | Load 0x1,0x2b 0225 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0226 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0227 BODY_0218: 0227 00d8 | | Load_Top At_Offset_0 0228 0217 | | Execute Heap_Access,All_Reference 0229 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 022a 0335 | 5 | Declare_Variable Array,Duplicate 022b 00cd | | Action Spare6_Action 022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023f | ? | .CONST 0x023f ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 e229 | ) | Load 0x1,0x29 0234 00db | | Load_Top At_Offset_3 0235 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0236 e5ff | | Load 0x2,-0x1 0237 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0238 0227 | ' | Execute Access,All_Reference 0239 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023a 0227 | ' | Execute Access,All_Reference 023b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023c e22b | + | Load 0x1,0x2b 023d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 023e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 023f BODY_0230: 023f 00d8 | | Load_Top At_Offset_0 0240 0217 | | Execute Heap_Access,All_Reference 0241 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0243 0000 0000 | | .BLANK 0000[0x5] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0257 | W | .CONST 0x0257 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e229 | ) | Load 0x1,0x29 024c 00db | | Load_Top At_Offset_3 024d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 024e e5ff | | Load 0x2,-0x1 024f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0250 0227 | ' | Execute Access,All_Reference 0251 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0252 0227 | ' | Execute Access,All_Reference 0253 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0254 e22b | + | Load 0x1,0x2b 0255 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0256 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0257 BODY_0248: 0257 00d8 | | Load_Top At_Offset_0 0258 0217 | | Execute Heap_Access,All_Reference 0259 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 025a e5ff | | Load 0x2,-0x1 025b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 025c e5ff | | Load 0x2,-0x1 025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025e 0227 | ' | Execute Access,All_Reference 025f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0260 0227 | ' | Execute Access,All_Reference 0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0262 e22a | * | Load 0x1,0x2a 0263 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0264 822f | / | Call 0x1,0x2f 0265 e5ff | | Load 0x2,-0x1 0266 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0267 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 026d 0227 | ' | Execute Access,All_Reference 026e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 026f 8212 | | Call 0x1,0x12 0270 00db | | Load_Top At_Offset_3 0271 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0272 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0273 0000 0000 | | .BLANK 0000[0x5] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0294 | | .CONST 0x0294 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0004 | | .CONST 0x0004 ; Number of locals 027b INIT_0278: 027b 00db | | Load_Top At_Offset_3 027c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027d 0227 | ' | Execute Access,All_Reference 027e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 027f 0227 | ' | Execute Access,All_Reference 0280 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0281 0007 | | Action Break_Optional 0282 e5fe | | Load 0x2,-0x2 0283 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0284 00d9 | | Load_Top At_Offset_1 0285 e22a | * | Load 0x1,0x2a 0286 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0287 e002 | | Load 0x0,0x2 0288 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0289 00e5 | | Load_Encached Long_Integer_Cache 028a 03f1 | | Declare_Variable Discrete,With_Value 028b e5fe | | Load 0x2,-0x2 028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028d 00da | | Load_Top At_Offset_2 028e e22b | + | Load 0x1,0x2b 028f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0290 0217 | | Execute Heap_Access,All_Reference 0291 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0292 00e5 | | Load_Encached Long_Integer_Cache 0293 03f1 | | Declare_Variable Discrete,With_Value 0294 BODY_0278: 0294 00be | | Action Activate_Tasks 0295 00d8 | | Load_Top At_Offset_0 0296 e5ff | | Load 0x2,-0x1 0297 027d | } | Execute Discrete,Greater 0298 6802 |h | Jump_Zero 0x29b 0299 e5ff | | Load 0x2,-0x1 029a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 029b 00d8 | | Load_Top At_Offset_0 029c 09f9 | | Execute_Immediate Binary_Scale,-0x7 029d 00d8 | | Load_Top At_Offset_0 029e 00e3 | | Load_Encached Natural_Cache 029f 0260 | ` | Execute Discrete,In_Type 02a0 7001 |p | Jump_Nonzero 0x2a2 02a1 0801 | | Execute_Immediate Raise,0x1 02a2 00d8 | | Load_Top At_Offset_0 02a3 00e4 | | Load_Encached Positive_Cache 02a4 0260 | ` | Execute Discrete,In_Type 02a5 7001 |p | Jump_Nonzero 0x2a7 02a6 0801 | | Execute_Immediate Raise,0x1 02a7 00da | | Load_Top At_Offset_2 02a8 6017 |` | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00001fff} 02a9 0279 | y | Execute Discrete,And 02aa 09f9 | | Execute_Immediate Binary_Scale,-0x7 02ab 00d8 | | Load_Top At_Offset_0 02ac 00e3 | | Load_Encached Natural_Cache 02ad 0260 | ` | Execute Discrete,In_Type 02ae 7001 |p | Jump_Nonzero 0x2b0 02af 0801 | | Execute_Immediate Raise,0x1 02b0 00db | | Load_Top At_Offset_3 02b1 09f3 | | Execute_Immediate Binary_Scale,-0xd 02b2 00d8 | | Load_Top At_Offset_0 02b3 00e3 | | Load_Encached Natural_Cache 02b4 0260 | ` | Execute Discrete,In_Type 02b5 7001 |p | Jump_Nonzero 0x2b7 02b6 0801 | | Execute_Immediate Raise,0x1 02b7 e5fe | | Load 0x2,-0x2 02b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b9 0227 | ' | Execute Access,All_Reference 02ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02bb 820f | | Call 0x1,0xf 02bc e012 | | Load 0x0,0x12 02bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bf 0000 | | .XXX[0x1] 02c0 0000 0000 | | .LITERAL {0x00000000, 0x00001fff} 02c4 0000 0000 | | .BLANK 0000[0x4] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cd 0227 | ' | Execute Access,All_Reference 02ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cf 8213 | | Call 0x1,0x13 02d0 00db | | Load_Top At_Offset_3 02d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d2 e002 | | Load 0x0,0x2 02d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d5 0000 0000 | | .XXX[0x3] 02d7 0000 | | 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4601 |F | Jump_Case 0x2 02dc 7801 |x | Jump 0x2de ; case 0x0 02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02de 00da | | Load_Top At_Offset_2 02df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e0 0125 | % | Execute Any,Set_Constraint 02e1 00da | | Load_Top At_Offset_2 02e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e3 1c00 | | Execute_Immediate Run_Utility,0x0 02e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb BODY_02e8: 02eb INIT_02e8: 02eb INIT_02e8: 02eb 4609 |F | Jump_Case 0xa 02ec 7809 |x | Jump 0x2f6 ; case 0x0 02ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02ee 780b |x | Jump 0x2fa ; case 0x2 02ef 780e |x | Jump 0x2fe ; case 0x3 02f0 7813 |x | Jump 0x304 ; case 0x4 02f1 781a |x | Jump 0x30c ; case 0x5 02f2 7836 |x6 | Jump 0x329 ; case 0x6 02f3 7822 |x" | Jump 0x316 ; case 0x7 02f4 782a |x* | Jump 0x31f ; case 0x8 02f5 7833 |x3 | Jump 0x329 ; case 0x9 02f6 4800 |H | Short_Literal 0x0 02f7 00db | | Load_Top At_Offset_3 02f8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02fa 4801 |H | Short_Literal 0x1 02fb 4803 |H | Short_Literal 0x3 02fc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 02fd 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02fe e5fd | | Load 0x2,-0x3 02ff 00db | | Load_Top At_Offset_3 0300 1c07 | | Execute_Immediate Run_Utility,0x7 0301 e5fe | | Load 0x2,-0x2 0302 0306 | | Complete_Type Variant_Record,By_Renaming 0303 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0304 4801 |H | Short_Literal 0x1 0305 4803 |H | Short_Literal 0x3 0306 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0307 e5fe | | Load 0x2,-0x2 0308 e5ff | | Load 0x2,-0x1 0309 00da | | Load_Top At_Offset_2 030a 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 030b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 030c 4801 |H | Short_Literal 0x1 030d 4801 |H | Short_Literal 0x1 030e e5ff | | Load 0x2,-0x1 030f 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 0310 00e9 | | Load_Encached String_Cache 0311 035b | [ | Declare_Type Array,Constrained 0312 4801 |H | Short_Literal 0x1 0313 e5ff | | Load 0x2,-0x1 0314 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0315 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0316 00db | | Load_Top At_Offset_3 0317 4801 |H | Short_Literal 0x1 0318 e5fe | | Load 0x2,-0x2 0319 00e9 | | Load_Encached String_Cache 031a 035b | [ | Declare_Type Array,Constrained 031b 4801 |H | Short_Literal 0x1 031c e5ff | | Load 0x2,-0x1 031d 031b | | Declare_Type Variant_Record,Constrained 031e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 031f 00db | | Load_Top At_Offset_3 0320 00db | | Load_Top At_Offset_3 0321 02fc | | Declare_Variable Variant_Record,With_Constraint 0322 4801 |H | Short_Literal 0x1 0323 e5fe | | Load 0x2,-0x2 0324 00e9 | | Load_Encached String_Cache 0325 0334 | 4 | Declare_Variable Array,With_Constraint 0326 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0327 016a | j | QQ_execute Variant_Record,XXX 0328 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0329 0869 | i | Execute_Immediate Raise,0x69 032a 0000 0000 | | .BLANK 0000[0x6] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 e002 | | Load 0x0,0x2 0335 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0336 e5fe | | Load 0x2,-0x2 0337 0272 | r | Execute Discrete,Minus 0338 e002 | | Load 0x0,0x2 0339 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 033a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 033b 0000 0000 | | .BLANK 0000[0x5] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 e002 | | Load 0x0,0x2 0345 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0346 e5fe | | Load 0x2,-0x2 0347 0273 | s | Execute Discrete,Plus 0348 e002 | | Load 0x0,0x2 0349 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 034a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034b 0000 0000 | | .BLANK 0000[0x5] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 e002 | | Load 0x0,0x2 0355 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0356 e5fe | | Load 0x2,-0x2 0357 e002 | | Load 0x0,0x2 0358 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0359 0272 | r | Execute Discrete,Minus 035a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 035b 0000 0000 | | .BLANK 0000[0x5] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 6804 |h | Jump_Zero 0x369 0365 00da | | Load_Top At_Offset_2 0366 0227 | ' | Execute Access,All_Reference 0367 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0369 4800 |H | Short_Literal 0x0 036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 4601 |F | Jump_Case 0x2 0374 7801 |x | Jump 0x376 ; case 0x0 0375 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0376 00da | | Load_Top At_Offset_2 0377 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0378 0125 | % | Execute Any,Set_Constraint 0379 00da | | Load_Top At_Offset_2 037a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 037b 1c00 | | Execute_Immediate Run_Utility,0x0 037c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 037d 0000 0000 | | .XXX[0x3] 037f 0000 | | 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 03e3 | | .CONST 0x03e3 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 001d | | .CONST 0x001d ; Number of locals 0383 INIT_0380: 0383 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0385 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 0387 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 0389 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 038b 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 038d 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 038f 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0391 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0393 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 0395 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated 0397 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 0399 4802 |H | Short_Literal 0x2 039a 0093 071b | | push_full_address INIT_0718 039c 02a0 | | Declare_Subprogram Null_Subprogram 039d 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 039e 4803 |H | Short_Literal 0x3 039f 0093 06d3 | | push_full_address INIT_06d0 03a1 02a0 | | Declare_Subprogram Null_Subprogram 03a2 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 03a3 4818 |H | Short_Literal 0x18 03a4 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 03a5 00bf | | Action Accept_Activation 03a6 e001 | | Load 0x0,0x1 03a7 e002 | | Load 0x0,0x2 03a8 e003 | | Load 0x0,0x3 03a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03aa e003 | | Load 0x0,0x3 03ab 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03ac e003 | | Load 0x0,0x3 03ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03ae e004 | | Load 0x0,0x4 03af 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call 03b1 4806 |H | Short_Literal 0x6 03b2 032d | - | Declare_Type Record,Defined 03b3 00d8 | | Load_Top At_Offset_0 03b4 02a0 | | Declare_Subprogram Null_Subprogram 03b5 00db | | Load_Top At_Offset_3 03b6 03c7 | | Complete_Type Access,By_Defining 03b7 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call 03b9 1d0e | | Execute_Immediate Reference_Lex_1,0xe 03ba 00c7 | | Action Elaborate_Subprogram 03bb 1d0f | | Execute_Immediate Reference_Lex_1,0xf 03bc 00c7 | | Action Elaborate_Subprogram 03bd 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call 03bf 1d0d | | Execute_Immediate Reference_Lex_1,0xd 03c0 00c7 | | Action Elaborate_Subprogram 03c1 1d10 | | Execute_Immediate Reference_Lex_1,0x10 03c2 00c7 | | Action Elaborate_Subprogram 03c3 1d11 | | Execute_Immediate Reference_Lex_1,0x11 03c4 00c7 | | Action Elaborate_Subprogram 03c5 1d12 | | Execute_Immediate Reference_Lex_1,0x12 03c6 00c7 | | Action Elaborate_Subprogram 03c7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 03c8 00c7 | | Action Elaborate_Subprogram 03c9 1d14 | | Execute_Immediate Reference_Lex_1,0x14 03ca 00c7 | | Action Elaborate_Subprogram 03cb 1d15 | | Execute_Immediate Reference_Lex_1,0x15 03cc 00c7 | | Action Elaborate_Subprogram 03cd 1d16 | | Execute_Immediate Reference_Lex_1,0x16 03ce 00c7 | | Action Elaborate_Subprogram 03cf 1d17 | | Execute_Immediate Reference_Lex_1,0x17 03d0 00c7 | | Action Elaborate_Subprogram 03d1 e005 | | Load 0x0,0x5 03d2 e006 | | Load 0x0,0x6 03d3 e003 | | Load 0x0,0x3 03d4 4803 |H | Short_Literal 0x3 03d5 e218 | | Load 0x1,0x18 03d6 020e | | Execute Module,Augment_Imports 03d7 e218 | | Load 0x1,0x18 03d8 020d | | Execute Module,Elaborate 03d9 0007 | | Action Break_Optional 03da e007 | | Load 0x0,0x7 03db e008 | | Load 0x0,0x8 03dc e003 | | Load 0x0,0x3 03dd a009 | | Store_Unchecked 0x0,0x9 03de 4804 |H | Short_Literal 0x4 03df e219 | | Load 0x1,0x19 03e0 020e | | Execute Module,Augment_Imports 03e1 e219 | | Load 0x1,0x19 03e2 020d | | Execute Module,Elaborate 03e3 BODY_0380: 03e3 00bc | | Action Signal_Activated 03e4 00bb | | Action Signal_Completion 03e5 0000 0000 | | .XXX[0x3] 03e7 0000 | | 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f2 | | .CONST 0x03f2 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0005 | | .CONST 0x0005 ; Number of locals 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec 800a | | Call 0x0,0xa 03ed e004 | | Load 0x0,0x4 03ee 029f 066b | k| Declare_Subprogram INIT_0668,For_Call 03f0 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 03f2 BODY_03e8: 03f2 00db | | Load_Top At_Offset_3 03f3 01db | | Execute Vector,Length 03f4 681e |h | Jump_Zero 0x413 03f5 e5fe | | Load 0x2,-0x2 03f6 800b | | Call 0x0,0xb 03f7 6812 |h | Jump_Zero 0x40a 03f8 00db | | Load_Top At_Offset_3 03f9 e00c | | Load 0x0,0xc 03fa 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03fb e5fe | | Load 0x2,-0x2 03fc 0227 | ' | Execute Access,All_Reference 03fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03fe 800d | | Call 0x0,0xd 03ff 01de | | Execute Vector,Not_Equal 0400 680f |h | Jump_Zero 0x410 0401 e5fe | | Load 0x2,-0x2 0402 00d8 | | Load_Top At_Offset_0 0403 0227 | ' | Execute Access,All_Reference 0404 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0405 e402 | | Load 0x2,0x2 0406 4800 |H | Short_Literal 0x0 0407 800e | | Call 0x0,0xe 0408 c5fe | | Store 0x2,-0x2 0409 7806 |x | Jump 0x410 040a e5fe | | Load 0x2,-0x2 040b e00f | | Load 0x0,0xf 040c e402 | | Load 0x2,0x2 040d 4800 |H | Short_Literal 0x0 040e 800e | | Call 0x0,0xe 040f c5fe | | Store 0x2,-0x2 0410 4800 |H | Short_Literal 0x0 0411 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0412 7804 |x | Jump 0x417 0413 e5fe | | Load 0x2,-0x2 0414 0227 | ' | Execute Access,All_Reference 0415 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0416 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0417 e5fd | | Load 0x2,-0x3 0418 7006 |p | Jump_Nonzero 0x41f 0419 e21a | | Load 0x1,0x1a 041a 03bc | | Declare_Variable Access,By_Allocation 041b 00d8 | | Load_Top At_Offset_0 041c 0227 | ' | Execute Access,All_Reference 041d 1c00 | | Execute_Immediate Run_Utility,0x0 041e a5fd | | Store_Unchecked 0x2,-0x3 041f e5fe | | Load 0x2,-0x2 0420 e5fd | | Load 0x2,-0x3 0421 0227 | ' | Execute Access,All_Reference 0422 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0423 00da | | Load_Top At_Offset_2 0424 e5fd | | Load 0x2,-0x3 0425 0227 | ' | Execute Access,All_Reference 0426 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0427 00da | | Load_Top At_Offset_2 0428 700f |p | Jump_Nonzero 0x438 0429 e5fd | | Load 0x2,-0x3 042a e5ff | | Load 0x2,-0x1 042b 820f | | Call 0x1,0xf 042c e00c | | Load 0x0,0xc 042d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 042e 821d | | Call 0x1,0x1d 042f c5fd | | Store 0x2,-0x3 0430 e5fe | | Load 0x2,-0x2 0431 0227 | ' | Execute Access,All_Reference 0432 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0433 0a01 | | Execute_Immediate Plus,0x1 0434 e5fe | | Load 0x2,-0x2 0435 0227 | ' | Execute Access,All_Reference 0436 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0438 e5fe | | Load 0x2,-0x2 0439 0227 | ' | Execute Access,All_Reference 043a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 043b 0c01 | | Execute_Immediate Greater_Equal,0x1 043c 6802 |h | Jump_Zero 0x43f 043d 4930 |I0 | Short_Literal 0x130 043e 0257 | W | Execute Discrete,Raise 043f 00cf | | Action Mark_Auxiliary 0440 7802 |x | Jump 0x443 0441 8404 | | Call 0x2,0x4 0442 00c9 | | Action Pop_Auxiliary_Loop 0443 e5fe | | Load 0x2,-0x2 0444 0227 | ' | Execute Access,All_Reference 0445 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0446 8010 | | Call 0x0,0x10 0447 e5fe | | Load 0x2,-0x2 0448 0227 | ' | Execute Access,All_Reference 0449 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044a 8011 | | Call 0x0,0x11 044b 8009 | | Call 0x0,0x9 044c e5fe | | Load 0x2,-0x2 044d 0227 | ' | Execute Access,All_Reference 044e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 044f 027b | { | Execute Discrete,Greater_Equal 0450 77f0 |w | Jump_Nonzero 0x441 0451 00ce | | Action Pop_Auxiliary 0452 8405 | | Call 0x2,0x5 0453 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c 0227 | ' | Execute Access,All_Reference 045d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 045e 0227 | ' | Execute Access,All_Reference 045f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0460 800d | | Call 0x0,0xd 0461 00db | | Load_Top At_Offset_3 0462 821c | | Call 0x1,0x1c 0463 01cc | | Execute Vector,Catenate 0464 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0465 0000 0000 | | .XXX[0x3] 0467 0000 | | 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0472 | r | .CONST 0x0472 ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b 4801 |H | Short_Literal 0x1 046c 00db | | Load_Top At_Offset_3 046d e012 | | Load 0x0,0x12 046e e00c | | Load 0x0,0xc 046f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0470 00e2 | | Load_Encached Integer_Cache 0471 03f1 | | Declare_Variable Discrete,With_Value 0472 BODY_0468: 0472 00d8 | | Load_Top At_Offset_0 0473 7002 |p | Jump_Nonzero 0x476 0474 00ea | | Load_Encached Null_String_Cache 0475 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0476 00d8 | | Load_Top At_Offset_0 0477 e5ff | | Load 0x2,-0x1 0478 01dc | | Execute Vector,Last 0479 e5ff | | Load 0x2,-0x1 047a 01cf | | Execute Vector,Slice_Read 047b 0335 | 5 | Declare_Variable Array,Duplicate 047c 00cd | | Action Spare6_Action 047d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047e 0000 0000 | | .XXX[0x2] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00da | | Load_Top At_Offset_2 0484 0227 | ' | Execute Access,All_Reference 0485 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0486 0f01 | | Execute_Immediate Equal,0x1 0487 681b |h | Jump_Zero 0x4a3 0488 00da | | Load_Top At_Offset_2 0489 0227 | ' | Execute Access,All_Reference 048a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 048b 00db | | Load_Top At_Offset_3 048c 0227 | ' | Execute Access,All_Reference 048d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 048e 0227 | ' | Execute Access,All_Reference 048f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0490 8011 | | Call 0x0,0x11 0491 8009 | | Call 0x0,0x9 0492 00db | | Load_Top At_Offset_3 0493 0227 | ' | Execute Access,All_Reference 0494 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0495 0217 | | Execute Heap_Access,All_Reference 0496 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0497 00da | | Load_Top At_Offset_2 0498 0227 | ' | Execute Access,All_Reference 0499 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049a 0227 | ' | Execute Access,All_Reference 049b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 049c 0aff | | Execute_Immediate Plus,-0x1 049d 00db | | Load_Top At_Offset_3 049e 0227 | ' | Execute Access,All_Reference 049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a0 0227 | ' | Execute Access,All_Reference 04a1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a3 00da | | Load_Top At_Offset_2 04a4 0227 | ' | Execute Access,All_Reference 04a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a6 0227 | ' | Execute Access,All_Reference 04a7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04a8 0aff | | Execute_Immediate Plus,-0x1 04a9 00db | | Load_Top At_Offset_3 04aa 0227 | ' | Execute Access,All_Reference 04ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ac 0227 | ' | Execute Access,All_Reference 04ad 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04af 0000 | | .XXX[0x1] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 00da | | Load_Top At_Offset_2 04b4 e5fe | | Load 0x2,-0x2 04b5 0227 | ' | Execute Access,All_Reference 04b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04b7 8013 | | Call 0x0,0x13 04b8 e5fe | | Load 0x2,-0x2 04b9 0227 | ' | Execute Access,All_Reference 04ba 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00da | | Load_Top At_Offset_2 04c4 0227 | ' | Execute Access,All_Reference 04c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04c6 00db | | Load_Top At_Offset_3 04c7 0227 | ' | Execute Access,All_Reference 04c8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04c9 8009 | | Call 0x0,0x9 04ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cb 0000 0000 | | .BLANK 0000[0x5] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 00da | | Load_Top At_Offset_2 04d4 0227 | ' | Execute Access,All_Reference 04d5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04d6 7009 |p | Jump_Nonzero 0x4e0 04d7 00da | | Load_Top At_Offset_2 04d8 0227 | ' | Execute Access,All_Reference 04d9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04da 00db | | Load_Top At_Offset_3 04db 0227 | ' | Execute Access,All_Reference 04dc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04dd e003 | | Load 0x0,0x3 04de 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e0 00da | | Load_Top At_Offset_2 04e1 0227 | ' | Execute Access,All_Reference 04e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e3 0227 | ' | Execute Access,All_Reference 04e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e5 8011 | | Call 0x0,0x11 04e6 00db | | Load_Top At_Offset_3 04e7 0227 | ' | Execute Access,All_Reference 04e8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04e9 e003 | | Load 0x0,0x3 04ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04fd | | .CONST 0x04fd ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 0227 | ' | Execute Access,All_Reference 04f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04f6 00db | | Load_Top At_Offset_3 04f7 0227 | ' | Execute Access,All_Reference 04f8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04f9 8009 | | Call 0x0,0x9 04fa 09fd | | Execute_Immediate Binary_Scale,-0x3 04fb 00e5 | | Load_Encached Long_Integer_Cache 04fc 03f1 | | Declare_Variable Discrete,With_Value 04fd BODY_04f0: 04fd 00d8 | | Load_Top At_Offset_0 04fe 0d01 | | Execute_Immediate Less,0x1 04ff 6803 |h | Jump_Zero 0x503 0500 4800 |H | Short_Literal 0x0 0501 a5fd | | Store_Unchecked 0x2,-0x3 0502 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0503 00d8 | | Load_Top At_Offset_0 0504 e5fe | | Load 0x2,-0x2 0505 01db | | Execute Vector,Length 0506 027c | | | Execute Discrete,Less 0507 682c |h, | Jump_Zero 0x534 0508 e5fe | | Load 0x2,-0x2 0509 00d8 | | Load_Top At_Offset_0 050a 01dd | | Execute Vector,First 050b e5fe | | Load 0x2,-0x2 050c 01dd | | Execute Vector,First 050d 00db | | Load_Top At_Offset_3 050e 00d8 | | Load_Top At_Offset_0 050f 00e3 | | Load_Encached Natural_Cache 0510 0260 | ` | Execute Discrete,In_Type 0511 7001 |p | Jump_Nonzero 0x513 0512 0801 | | Execute_Immediate Raise,0x1 0513 0273 | s | Execute Discrete,Plus 0514 0aff | | Execute_Immediate Plus,-0x1 0515 00d8 | | Load_Top At_Offset_0 0516 00e2 | | Load_Encached Integer_Cache 0517 0260 | ` | Execute Discrete,In_Type 0518 7001 |p | Jump_Nonzero 0x51a 0519 0801 | | Execute_Immediate Raise,0x1 051a 00da | | Load_Top At_Offset_2 051b 035b | [ | Declare_Type Array,Constrained 051c 00d0 | | Action Swap_Control 051d 01cd | | Execute Vector,Slice_Reference 051e e5ff | | Load 0x2,-0x1 051f 0229 | ) | Execute Access,All_Read 0520 00e3 | | Load_Encached Natural_Cache 0521 00da | | Load_Top At_Offset_2 0522 00da | | Load_Top At_Offset_2 0523 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0524 e5ff | | Load 0x2,-0x1 0525 0227 | ' | Execute Access,All_Reference 0526 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0527 0227 | ' | Execute Access,All_Reference 0528 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0529 0227 | ' | Execute Access,All_Reference 052a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 052b e003 | | Load 0x0,0x3 052c 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 052d 180f | | Execute Package,Field_Execute,Field_Number 0xf 052e 00db | | Load_Top At_Offset_3 052f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0530 00d1 | | Pop_Control Pop_Count_1 0531 c5fd | | Store 0x2,-0x3 0532 00d2 | | Pop_Control Pop_Count_2 0533 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0534 00db | | Load_Top At_Offset_3 0535 0229 | ) | Execute Access,All_Read 0536 00e3 | | Load_Encached Natural_Cache 0537 e5fe | | Load 0x2,-0x2 0538 00da | | Load_Top At_Offset_2 0539 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 053a e5ff | | Load 0x2,-0x1 053b 0227 | ' | Execute Access,All_Reference 053c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 053d 0227 | ' | Execute Access,All_Reference 053e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 053f 0227 | ' | Execute Access,All_Reference 0540 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0541 e003 | | Load 0x0,0x3 0542 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0543 180f | | Execute Package,Field_Execute,Field_Number 0xf 0544 00db | | Load_Top At_Offset_3 0545 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0546 00d1 | | Pop_Control Pop_Count_1 0547 c5fd | | Store 0x2,-0x3 0548 00d1 | | Pop_Control Pop_Count_1 0549 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054a 0000 0000 | | .BLANK 0000[0x6] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 00db | | Load_Top At_Offset_3 0554 0229 | ) | Execute Access,All_Read 0555 00d8 | | Load_Top At_Offset_0 0556 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0557 e5ff | | Load 0x2,-0x1 0558 e5fe | | Load 0x2,-0x2 0559 0227 | ' | Execute Access,All_Reference 055a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055b 0227 | ' | Execute Access,All_Reference 055c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 055d 0227 | ' | Execute Access,All_Reference 055e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055f e003 | | Load 0x0,0x3 0560 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0561 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0562 00d9 | | Load_Top At_Offset_1 0563 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0564 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0575 | u | .CONST 0x0575 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0002 | | .CONST 0x0002 ; Number of locals 056b INIT_0568: 056b 00da | | Load_Top At_Offset_2 056c 0227 | ' | Execute Access,All_Reference 056d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 056e 00db | | Load_Top At_Offset_3 056f 0227 | ' | Execute Access,All_Reference 0570 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0571 8009 | | Call 0x0,0x9 0572 09fd | | Execute_Immediate Binary_Scale,-0x3 0573 00e5 | | Load_Encached Long_Integer_Cache 0574 03f1 | | Declare_Variable Discrete,With_Value 0575 BODY_0568: 0575 00d8 | | Load_Top At_Offset_0 0576 0d01 | | Execute_Immediate Less,0x1 0577 6803 |h | Jump_Zero 0x57b 0578 4800 |H | Short_Literal 0x0 0579 a5fd | | Store_Unchecked 0x2,-0x3 057a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057b 00d8 | | Load_Top At_Offset_0 057c e5fe | | Load 0x2,-0x2 057d 01db | | Execute Vector,Length 057e 027c | | | Execute Discrete,Less 057f 682c |h, | Jump_Zero 0x5ac 0580 e5fe | | Load 0x2,-0x2 0581 00d8 | | Load_Top At_Offset_0 0582 01dd | | Execute Vector,First 0583 e5fe | | Load 0x2,-0x2 0584 01dd | | Execute Vector,First 0585 00db | | Load_Top At_Offset_3 0586 00d8 | | Load_Top At_Offset_0 0587 00e3 | | Load_Encached Natural_Cache 0588 0260 | ` | Execute Discrete,In_Type 0589 7001 |p | Jump_Nonzero 0x58b 058a 0801 | | Execute_Immediate Raise,0x1 058b 0273 | s | Execute Discrete,Plus 058c 0aff | | Execute_Immediate Plus,-0x1 058d 00d8 | | Load_Top At_Offset_0 058e 00e2 | | Load_Encached Integer_Cache 058f 0260 | ` | Execute Discrete,In_Type 0590 7001 |p | Jump_Nonzero 0x592 0591 0801 | | Execute_Immediate Raise,0x1 0592 00da | | Load_Top At_Offset_2 0593 035b | [ | Declare_Type Array,Constrained 0594 00d0 | | Action Swap_Control 0595 01cd | | Execute Vector,Slice_Reference 0596 e5ff | | Load 0x2,-0x1 0597 0229 | ) | Execute Access,All_Read 0598 00e3 | | Load_Encached Natural_Cache 0599 00da | | Load_Top At_Offset_2 059a 00da | | Load_Top At_Offset_2 059b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 059c e5ff | | Load 0x2,-0x1 059d 0227 | ' | Execute Access,All_Reference 059e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 059f 0227 | ' | Execute Access,All_Reference 05a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05a1 0227 | ' | Execute Access,All_Reference 05a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05a3 e003 | | Load 0x0,0x3 05a4 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 05a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05a6 00db | | Load_Top At_Offset_3 05a7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05a8 00d1 | | Pop_Control Pop_Count_1 05a9 c5fd | | Store 0x2,-0x3 05aa 00d2 | | Pop_Control Pop_Count_2 05ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05ac 00db | | Load_Top At_Offset_3 05ad 0229 | ) | Execute Access,All_Read 05ae 00e3 | | Load_Encached Natural_Cache 05af e5fe | | Load 0x2,-0x2 05b0 00da | | Load_Top At_Offset_2 05b1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05b2 e5ff | | Load 0x2,-0x1 05b3 0227 | ' | Execute Access,All_Reference 05b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05b5 0227 | ' | Execute Access,All_Reference 05b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05b7 0227 | ' | Execute Access,All_Reference 05b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05b9 e003 | | Load 0x0,0x3 05ba 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 05bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05bc 00db | | Load_Top At_Offset_3 05bd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05be 00d1 | | Pop_Control Pop_Count_1 05bf c5fd | | Store 0x2,-0x3 05c0 00d1 | | Pop_Control Pop_Count_1 05c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c2 0000 0000 | | .BLANK 0000[0x6] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb 00db | | Load_Top At_Offset_3 05cc 0229 | ) | Execute Access,All_Read 05cd 00d8 | | Load_Top At_Offset_0 05ce 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05cf e5ff | | Load 0x2,-0x1 05d0 e5fe | | Load 0x2,-0x2 05d1 0227 | ' | Execute Access,All_Reference 05d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d3 0227 | ' | Execute Access,All_Reference 05d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05d5 0227 | ' | Execute Access,All_Reference 05d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d7 e003 | | Load 0x0,0x3 05d8 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 05d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05da 00d9 | | Load_Top At_Offset_1 05db 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05dd 0000 0000 | | .XXX[0x3] 05df 0000 | | 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 4601 |F | Jump_Case 0x2 05e4 7801 |x | Jump 0x5e6 ; case 0x0 05e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05e6 00da | | Load_Top At_Offset_2 05e7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 05e8 0125 | % | Execute Any,Set_Constraint 05e9 00da | | Load_Top At_Offset_2 05ea 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 05eb 1c00 | | Execute_Immediate Run_Utility,0x0 05ec 00da | | Load_Top At_Offset_2 05ed 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 05ee 0125 | % | Execute Any,Set_Constraint 05ef 00da | | Load_Top At_Offset_2 05f0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 05f1 1c00 | | Execute_Immediate Run_Utility,0x0 05f2 00da | | Load_Top At_Offset_2 05f3 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05f4 0125 | % | Execute Any,Set_Constraint 05f5 00da | | Load_Top At_Offset_2 05f6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05f7 1c00 | | Execute_Immediate Run_Utility,0x0 05f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05f9 0000 0000 | | .BLANK 0000[0x7] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 00da | | Load_Top At_Offset_2 0604 0227 | ' | Execute Access,All_Reference 0605 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0606 0217 | | Execute Heap_Access,All_Reference 0607 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0608 0335 | 5 | Declare_Variable Array,Duplicate 0609 00cd | | Action Spare6_Action 060a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 060b 0000 0000 | | .BLANK 0000[0x5] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0626 | & | .CONST 0x0626 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0004 | | .CONST 0x0004 ; Number of locals 0613 INIT_0610: 0613 00db | | Load_Top At_Offset_3 0614 0227 | ' | Execute Access,All_Reference 0615 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0616 0227 | ' | Execute Access,All_Reference 0617 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0618 0227 | ' | Execute Access,All_Reference 0619 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 061a 0007 | | Action Break_Optional 061b e003 | | Load 0x0,0x3 061c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 061d 02c7 | | Declare_Variable Any 061e e5fe | | Load 0x2,-0x2 061f 0227 | ' | Execute Access,All_Reference 0620 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0621 0227 | ' | Execute Access,All_Reference 0622 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0623 8010 | | Call 0x0,0x10 0624 a403 | | Store_Unchecked 0x2,0x3 0625 e002 | | Load 0x0,0x2 0626 BODY_0610: 0626 00be | | Action Activate_Tasks 0627 00cf | | Action Mark_Auxiliary 0628 782c |x, | Jump 0x655 0629 00da | | Load_Top At_Offset_2 062a e402 | | Load 0x2,0x2 062b e014 | | Load 0x0,0x14 062c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 062d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 062e 00da | | Load_Top At_Offset_2 062f e402 | | Load 0x2,0x2 0630 e015 | | Load 0x0,0x15 0631 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0632 c403 | | Store 0x2,0x3 0633 00d9 | | Load_Top At_Offset_1 0634 0217 | | Execute Heap_Access,All_Reference 0635 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0636 e5ff | | Load 0x2,-0x1 0637 01df | | Execute Vector,Equal 0638 6815 |h | Jump_Zero 0x64e 0639 00d9 | | Load_Top At_Offset_1 063a e5fe | | Load 0x2,-0x2 063b 0227 | ' | Execute Access,All_Reference 063c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 063d 00da | | Load_Top At_Offset_2 063e e5fe | | Load 0x2,-0x2 063f 0227 | ' | Execute Access,All_Reference 0640 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0641 00da | | Load_Top At_Offset_2 0642 e5fe | | Load 0x2,-0x2 0643 0227 | ' | Execute Access,All_Reference 0644 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0645 00d9 | | Load_Top At_Offset_1 0646 0217 | | Execute Heap_Access,All_Reference 0647 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0648 00db | | Load_Top At_Offset_3 0649 8013 | | Call 0x0,0x13 064a e5fe | | Load 0x2,-0x2 064b 0227 | ' | Execute Access,All_Reference 064c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 064d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 064e 00d9 | | Load_Top At_Offset_1 064f 0217 | | Execute Heap_Access,All_Reference 0650 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0651 00db | | Load_Top At_Offset_3 0652 8013 | | Call 0x0,0x13 0653 c403 | | Store 0x2,0x3 0654 00c9 | | Action Pop_Auxiliary_Loop 0655 e5fe | | Load 0x2,-0x2 0656 0227 | ' | Execute Access,All_Reference 0657 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0658 0227 | ' | Execute Access,All_Reference 0659 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 065a 8011 | | Call 0x0,0x11 065b 00db | | Load_Top At_Offset_3 065c e003 | | Load 0x0,0x3 065d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 065e 77ca |w | Jump_Nonzero 0x629 065f 00ce | | Action Pop_Auxiliary 0660 4920 |I | Short_Literal 0x120 0661 0257 | W | Execute Discrete,Raise 0662 0000 0000 | | .BLANK 0000[0x6] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 0670 | p | .CONST 0x0670 ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0002 | | .CONST 0x0002 ; Number of locals 066b INIT_0668: 066b e5fe | | Load 0x2,-0x2 066c 0227 | ' | Execute Access,All_Reference 066d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 066e 800d | | Call 0x0,0xd 066f 8016 | | Call 0x0,0x16 0670 BODY_0668: 0670 e5fe | | Load 0x2,-0x2 0671 00d8 | | Load_Top At_Offset_0 0672 0227 | ' | Execute Access,All_Reference 0673 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0674 00da | | Load_Top At_Offset_2 0675 4801 |H | Short_Literal 0x1 0676 800e | | Call 0x0,0xe 0677 c5fe | | Store 0x2,-0x2 0678 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0679 0000 0000 | | .BLANK 0000[0x7] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 069b | | .CONST 0x069b ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0005 | | .CONST 0x0005 ; Number of locals 0683 INIT_0680: 0683 e5ff | | Load 0x2,-0x1 0684 820f | | Call 0x1,0xf 0685 e00c | | Load 0x0,0xc 0686 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0687 e5fe | | Load 0x2,-0x2 0688 0227 | ' | Execute Access,All_Reference 0689 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 068a 0227 | ' | Execute Access,All_Reference 068b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 068c 0007 | | Action Break_Optional 068d 00d9 | | Load_Top At_Offset_1 068e 01db | | Execute Vector,Length 068f e017 | | Load 0x0,0x17 0690 1c08 | | Execute_Immediate Run_Utility,0x8 0691 00d8 | | Load_Top At_Offset_0 0692 1c00 | | Execute_Immediate Run_Utility,0x0 0693 e003 | | Load 0x0,0x3 0694 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0695 02c7 | | Declare_Variable Any 0696 e5fe | | Load 0x2,-0x2 0697 0227 | ' | Execute Access,All_Reference 0698 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0699 8011 | | Call 0x0,0x11 069a a605 | | Store_Unchecked 0x3,0x5 069b BODY_0680: 069b 00be | | Action Activate_Tasks 069c 00d9 | | Load_Top At_Offset_1 069d 00d9 | | Load_Top At_Offset_1 069e e603 | | Load 0x3,0x3 069f e015 | | Load 0x0,0x15 06a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06a1 00d8 | | Load_Top At_Offset_0 06a2 00db | | Load_Top At_Offset_3 06a3 e014 | | Load 0x0,0x14 06a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06a5 e5fd | | Load 0x2,-0x3 06a6 0227 | ' | Execute Access,All_Reference 06a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06a8 00db | | Load_Top At_Offset_3 06a9 e5fd | | Load 0x2,-0x3 06aa 0227 | ' | Execute Access,All_Reference 06ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06ac 0217 | | Execute Heap_Access,All_Reference 06ad 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 06ae 00d8 | | Load_Top At_Offset_0 06af 00db | | Load_Top At_Offset_3 06b0 e015 | | Load 0x0,0x15 06b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06b2 e5fd | | Load 0x2,-0x3 06b3 0227 | ' | Execute Access,All_Reference 06b4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06b5 e5fd | | Load 0x2,-0x3 06b6 0227 | ' | Execute Access,All_Reference 06b7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06b8 e5fd | | Load 0x2,-0x3 06b9 0227 | ' | Execute Access,All_Reference 06ba 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06bb e5fd | | Load 0x2,-0x3 06bc 0227 | ' | Execute Access,All_Reference 06bd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06be e5fd | | Load 0x2,-0x3 06bf 0227 | ' | Execute Access,All_Reference 06c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06c1 e5fe | | Load 0x2,-0x2 06c2 0227 | ' | Execute Access,All_Reference 06c3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 06c4 0a01 | | Execute_Immediate Plus,0x1 06c5 e5fe | | Load 0x2,-0x2 06c6 0227 | ' | Execute Access,All_Reference 06c7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06c9 0000 0000 | | .BLANK 0000[0x7] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06e5 | | .CONST 0x06e5 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0012 | | .CONST 0x0012 ; Number of locals 06d3 INIT_06d0: 06d3 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated 06d5 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated 06d7 00bf | | Action Accept_Activation 06d8 e001 | | Load 0x0,0x1 06d9 e002 | | Load 0x0,0x2 06da e20e | | Load 0x1,0xe 06db e20f | | Load 0x1,0xf 06dc e003 | | Load 0x0,0x3 06dd 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 06de 0387 | | Declare_Variable Package 06df 00d8 | | Load_Top At_Offset_0 06e0 020f | | Execute Module,Activate 06e1 1d10 | | Execute_Immediate Reference_Lex_1,0x10 06e2 00c7 | | Action Elaborate_Subprogram 06e3 1d11 | | Execute_Immediate Reference_Lex_1,0x11 06e4 00c7 | | Action Elaborate_Subprogram 06e5 BODY_06d0: 06e5 00bc | | Action Signal_Activated 06e6 00bb | | Action Signal_Completion 06e7 0000 | | .XXX[0x1] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06f2 | | .CONST 0x06f2 ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0002 | | .CONST 0x0002 ; Number of locals 06eb INIT_06e8: 06eb 00da | | Load_Top At_Offset_2 06ec 0227 | ' | Execute Access,All_Reference 06ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06ee 0227 | ' | Execute Access,All_Reference 06ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06f0 0227 | ' | Execute Access,All_Reference 06f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06f2 BODY_06e8: 06f2 00be | | Action Activate_Tasks 06f3 00db | | Load_Top At_Offset_3 06f4 0227 | ' | Execute Access,All_Reference 06f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06f6 00d9 | | Load_Top At_Offset_1 06f7 e212 | | Load 0x1,0x12 06f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06f9 e20f | | Load 0x1,0xf 06fa 0213 | | Execute Heap_Access,Check_In_Type 06fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06fc 0000 0000 | | .BLANK 0000[0x4] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 070a | | .CONST 0x070a ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0002 | | .CONST 0x0002 ; Number of locals 0703 INIT_0700: 0703 00da | | Load_Top At_Offset_2 0704 0227 | ' | Execute Access,All_Reference 0705 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0706 0227 | ' | Execute Access,All_Reference 0707 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0708 0227 | ' | Execute Access,All_Reference 0709 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 070a BODY_0700: 070a 00be | | Action Activate_Tasks 070b 00db | | Load_Top At_Offset_3 070c 0227 | ' | Execute Access,All_Reference 070d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 070e e5fe | | Load 0x2,-0x2 070f e20f | | Load 0x1,0xf 0710 0213 | | Execute Heap_Access,Check_In_Type 0711 00da | | Load_Top At_Offset_2 0712 e212 | | Load 0x1,0x12 0713 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0714 8004 | | Call 0x0,0x4 0715 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0716 0000 0000 | | .XXX[0x2] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 072c | , | .CONST 0x072c ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0011 | | .CONST 0x0011 ; Number of locals 071b INIT_0718: 071b 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated 071d 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated 071f 00bf | | Action Accept_Activation 0720 e001 | | Load 0x0,0x1 0721 e002 | | Load 0x0,0x2 0722 e20e | | Load 0x1,0xe 0723 e003 | | Load 0x0,0x3 0724 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0725 0387 | | Declare_Variable Package 0726 00d8 | | Load_Top At_Offset_0 0727 020f | | Execute Module,Activate 0728 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0729 00c7 | | Action Elaborate_Subprogram 072a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 072b 00c7 | | Action Elaborate_Subprogram 072c BODY_0718: 072c 00bc | | Action Signal_Activated 072d 00bb | | Action Signal_Completion 072e 0000 0000 | | .XXX[0x2] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0742 | B | .CONST 0x0742 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0003 | | .CONST 0x0003 ; Number of locals 0733 INIT_0730: 0733 00da | | Load_Top At_Offset_2 0734 0227 | ' | Execute Access,All_Reference 0735 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0736 0227 | ' | Execute Access,All_Reference 0737 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0738 0227 | ' | Execute Access,All_Reference 0739 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 073a 0007 | | Action Break_Optional 073b e003 | | Load 0x0,0x3 073c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 073d 02c7 | | Declare_Variable Any 073e e5ff | | Load 0x2,-0x1 073f 0227 | ' | Execute Access,All_Reference 0740 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0741 a403 | | Store_Unchecked 0x2,0x3 0742 BODY_0730: 0742 00be | | Action Activate_Tasks 0743 00d8 | | Load_Top At_Offset_0 0744 00da | | Load_Top At_Offset_2 0745 e211 | | Load 0x1,0x11 0746 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0747 e5ff | | Load 0x2,-0x1 0748 0227 | ' | Execute Access,All_Reference 0749 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 074a e5ff | | Load 0x2,-0x1 074b 0227 | ' | Execute Access,All_Reference 074c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 074d e5ff | | Load 0x2,-0x1 074e 0227 | ' | Execute Access,All_Reference 074f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0750 e003 | | Load 0x0,0x3 0751 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0752 6806 |h | Jump_Zero 0x759 0753 00d8 | | Load_Top At_Offset_0 0754 e5ff | | Load 0x2,-0x1 0755 0227 | ' | Execute Access,All_Reference 0756 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0757 4950 |IP | Short_Literal 0x150 0758 0257 | W | Execute Discrete,Raise 0759 00d8 | | Load_Top At_Offset_0 075a 00da | | Load_Top At_Offset_2 075b e211 | | Load 0x1,0x11 075c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 075d e20e | | Load 0x1,0xe 075e 0119 | | Execute Any,Check_In_Formal_Type 075f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 076a | j | .CONST 0x076a ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0002 | | .CONST 0x0002 ; Number of locals 0763 INIT_0760: 0763 00db | | Load_Top At_Offset_3 0764 0227 | ' | Execute Access,All_Reference 0765 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0766 0227 | ' | Execute Access,All_Reference 0767 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0768 0227 | ' | Execute Access,All_Reference 0769 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 076a BODY_0760: 076a 00be | | Action Activate_Tasks 076b 00db | | Load_Top At_Offset_3 076c e20e | | Load 0x1,0xe 076d 0119 | | Execute Any,Check_In_Formal_Type 076e e5fe | | Load 0x2,-0x2 076f 0227 | ' | Execute Access,All_Reference 0770 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0771 00da | | Load_Top At_Offset_2 0772 e211 | | Load 0x1,0x11 0773 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0774 e5fe | | Load 0x2,-0x2 0775 0227 | ' | Execute Access,All_Reference 0776 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0777 00d9 | | Load_Top At_Offset_1 0778 e211 | | Load 0x1,0x11 0779 1810 | | Execute Package,Field_Execute,Field_Number 0x10 077a e5fe | | Load 0x2,-0x2 077b 0227 | ' | Execute Access,All_Reference 077c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 077d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 077e ; -------------------------------------------------------------------------------------- 077e ; STRING TABLE 077e ; -------------------------------------------------------------------------------------- 077e 0008 | | .STRTAB 0x0008->0x0782 ; "IN_FILE" 077f 000d | | .STRTAB 0x000d->0x0785 ; "OUT_FILE" 0780 0013 | | .STRTAB 0x0013->0x0789 ; "_000" 0781 0015 | | .STREND 0x0015->0x078b 0782 494e 5f46 |IN_F| .STRTAB_STRINGS 078c 0000 0000 | | .BLANK 0000[0x4] 0790 ; -------------------------------------------------------------------------------------- 0790 ; Debug Table 0790 ; -------------------------------------------------------------------------------------- 0790 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b8f,0x0000,0x0001,0x0000 0796 4510 0800 |E | .XXX[0x4c] 0798 1f97 fb97 | | 079a fe08 4809 | H | 079c d510 0800 | | 079e 0000 0000 | | 07a0 0006 9400 | | 07a2 1000 0c03 | | 07a4 b003 8f97 | | 07a6 fe08 6403 | d | 07a8 8c03 b003 | | 07aa ac60 4980 | `I | 07ac 2397 fe08 |# | 07ae 6000 cc01 |` | 07b0 6403 6110 |d a | 07b2 0400 0000 | | 07b4 0000 0000 | | 07b6 01ff ffff | | 07b8 fc07 0000 | | 07ba 1000 1403 | | 07bc b00e 7403 | t | 07be b80a 7c0c | | | 07c0 af97 fc03 | | 07c2 ac63 b290 | c | 07c4 0803 6c03 | l | 07c6 ac60 503e | `P>| 07c8 5da0 5803 |] X | 07ca 6c03 ac63 |l c| 07cc b000 cc03 | | 07ce 6803 ac60 |h `| 07d0 502d 81c0 |P- | 07d2 103e 79c0 | >y | 07d4 0d20 0110 | | 07d6 0403 4403 | D | 07d8 6c03 ac62 |l b| 07da 2000 cb97 | | 07dc fe10 1408 | | 07de 7d10 0520 |} | 07e0 0110 0400 | | 07e2 0000 0000 | | .BLANK 0000[0x6] 07e8 0007 ac00 | | .XXX[0x18] 07ea 1000 0403 | | 07ec 6803 ac60 |h `| 07ee 5003 6035 |P `5| 07f0 49c0 2c03 |I , | 07f2 6031 4dc0 |`1M | 07f4 1403 4403 | D | 07f6 6a08 583c |j X<| 07f8 0110 043d | =| 07fa 7dc0 29e0 |} ) | 07fc 2c3d 01c0 |,= | 07fe 05e0 2003 | |