|
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_5e40f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 07b8 | | .CONST 0x07b8 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00d1 | | .CONST 0x00d1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0034 | 4 | .CONST 0x0034 ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 4800 |H | Short_Literal 0x0 000e 4801 |H | Short_Literal 0x1 000f 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0011 03fe | | Declare_Type Discrete,Defined,Visible 0012 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0014 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0016 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0018 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001a 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 001c 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 001e 4800 |H | Short_Literal 0x0 001f 0093 0373 | s| push_full_address INIT_0370 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 038f | | Declare_Type Package,Defined,Visible 0023 0386 | | Declare_Variable Package,Visible 0024 4802 |H | Short_Literal 0x2 0025 032b | + | Declare_Type Record,Incomplete,Visible 0026 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0028 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 002a 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 002c 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 002e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0030 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0032 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0034 4807 |H | Short_Literal 0x7 0035 032a | * | Declare_Type Record,Incomplete 0036 00d8 | | Load_Top At_Offset_0 0037 02a0 | | Declare_Subprogram Null_Subprogram 0038 e217 | | Load 0x1,0x17 0039 03c7 | | Complete_Type Access,By_Defining 003a e217 | | Load 0x1,0x17 003b e001 | | Load 0x0,0x1 003c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 003d 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 003f e220 | | Load 0x1,0x20 0040 0326 | & | Complete_Type Record,By_Defining 0041 00bf | | Action Accept_Activation 0042 e20f | | Load 0x1,0xf 0043 e002 | | Load 0x0,0x2 0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0045 e218 | | Load 0x1,0x18 0046 00e5 | | Load_Encached Long_Integer_Cache 0047 00e2 | | Load_Encached Integer_Cache 0048 00e2 | | Load_Encached Integer_Cache 0049 00e1 | | Load_Encached Boolean_Cache 004a 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 004c e228 | ( | Load 0x1,0x28 004d 0326 | & | Complete_Type Record,By_Defining 004e 00e3 | | Load_Encached Natural_Cache 004f 4800 |H | Short_Literal 0x0 0050 4801 |H | Short_Literal 0x1 0051 4801 |H | Short_Literal 0x1 0052 4803 |H | Short_Literal 0x3 0053 0318 | | Declare_Type Variant_Record,Incomplete 0054 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 0056 00d9 | | Load_Top At_Offset_1 0057 012a | * | Execute Any,Change_Utility 0058 0007 | | Action Break_Optional 0059 00d8 | | Load_Top At_Offset_0 005a 02a0 | | Declare_Subprogram Null_Subprogram 005b 03ad | | Declare_Type Heap_Access,Defined 005c 00e5 | | Load_Encached Long_Integer_Cache 005d 00e9 | | Load_Encached String_Cache 005e 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 0060 4800 |H | Short_Literal 0x0 0061 4801 |H | Short_Literal 0x1 0062 4801 |H | Short_Literal 0x1 0063 e229 | ) | Load 0x1,0x29 0064 0307 | | Complete_Type Variant_Record,By_Defining 0065 e003 | | Load 0x0,0x3 0066 e004 | | Load 0x0,0x4 0067 00db | | Load_Top At_Offset_3 0068 e001 | | Load 0x0,0x1 0069 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 006a 0387 | | Declare_Variable Package 006b 00d8 | | Load_Top At_Offset_0 006c 020f | | Execute Module,Activate 006d e005 | | Load 0x0,0x5 006e e006 | | Load 0x0,0x6 006f e229 | ) | Load 0x1,0x29 0070 e22a | * | Load 0x1,0x2a 0071 e001 | | Load 0x0,0x1 0072 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0073 0387 | | Declare_Variable Package 0074 00d8 | | Load_Top At_Offset_0 0075 020f | | Execute Module,Activate 0076 e218 | | Load 0x1,0x18 0077 0266 | f | Execute Discrete,Bounds 0078 e001 | | Load 0x0,0x1 0079 1b14 | | Execute Package,Field_Read,Field_Number 0x14 007a 02a0 | | Declare_Subprogram Null_Subprogram 007b 4801 |H | Short_Literal 0x1 007c 035d | ] | Declare_Type Array,Defined 007d 00d8 | | Load_Top At_Offset_0 007e 0337 | 7 | Declare_Variable Array 007f 00d8 | | Load_Top At_Offset_0 0080 0335 | 5 | Declare_Variable Array,Duplicate 0081 00cd | | Action Spare6_Action 0082 4800 |H | Short_Literal 0x0 0083 4800 |H | Short_Literal 0x0 0084 00da | | Load_Top At_Offset_2 0085 01d6 | | Execute Vector,Field_Write 0086 4802 |H | Short_Literal 0x2 0087 4801 |H | Short_Literal 0x1 0088 00da | | Load_Top At_Offset_2 0089 01d6 | | Execute Vector,Field_Write 008a 00d9 | | Load_Top At_Offset_1 008b 01d4 | | Execute Vector,Structure_Write 008c 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 008e 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0090 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 0092 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0094 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0099 00c7 | | Action Elaborate_Subprogram 009a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 009b 00c7 | | Action Elaborate_Subprogram 009c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009f 00c7 | | Action Elaborate_Subprogram 00a0 e007 | | Load 0x0,0x7 00a1 e008 | | Load 0x0,0x8 00a2 00e5 | | Load_Encached Long_Integer_Cache 00a3 e001 | | Load 0x0,0x1 00a4 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 00a5 0387 | | Declare_Variable Package 00a6 00d8 | | Load_Top At_Offset_0 00a7 020f | | Execute Module,Activate 00a8 e009 | | Load 0x0,0x9 00a9 e00a | | Load 0x0,0xa 00aa 00e9 | | Load_Encached String_Cache 00ab e001 | | Load 0x0,0x1 00ac 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 00ad 0387 | | Declare_Variable Package 00ae 00d8 | | Load_Top At_Offset_0 00af 020f | | Execute Module,Activate 00b0 00b6 | | Action Make_Scope 00b1 e22a | * | Load 0x1,0x2a 00b2 e001 | | Load 0x0,0x1 00b3 e00b | | Load 0x0,0xb 00b4 e00c | | Load 0x0,0xc 00b5 e00d | | Load 0x0,0xd 00b6 e00e | | Load 0x0,0xe 00b7 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00b8 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00b9 e00f | | Load 0x0,0xf 00ba 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00bb e22c | , | Load 0x1,0x2c 00bc e22b | + | Load 0x1,0x2b 00bd e229 | ) | Load 0x1,0x29 00be 480e |H | Short_Literal 0xe 00bf e21f | | Load 0x1,0x1f 00c0 020e | | Execute Module,Augment_Imports 00c1 e21f | | Load 0x1,0x1f 00c2 020f | | Execute Module,Activate 00c3 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00d0 00c7 | | Action Elaborate_Subprogram 00d1 BODY_0008: 00d1 00bc | | Action Signal_Activated 00d2 00bb | | Action Signal_Completion 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4607 |F | Jump_Case 0x8 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7806 |x | Jump 0xe4 ; case 0x1 00de 7809 |x | Jump 0xe8 ; case 0x2 00df 780d |x | Jump 0xed ; case 0x3 00e0 7810 |x | Jump 0xf1 ; case 0x4 00e1 7811 |x | Jump 0xf3 ; case 0x5 00e2 7812 |x | Jump 0xf5 ; case 0x6 00e3 7815 |x | Jump 0xf9 ; case 0x7 00e4 00da | | Load_Top At_Offset_2 00e5 0091 07a6 | | Action Push_String_Extended_Indexed,0x7a6 ; "IN_FILE" 00e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e8 00db | | Load_Top At_Offset_3 00e9 00db | | Load_Top At_Offset_3 00ea 00e0 | | Load_Encached Standard_Cache 00eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed 00da | | Load_Top At_Offset_2 00ee 00e0 | | Load_Encached Standard_Cache 00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f3 00db | | Load_Top At_Offset_3 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 e218 | | Load 0x1,0x18 00f6 00dc | | Load_Top At_Offset_4 00f7 0267 | g | Execute Discrete,Predecessor 00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f9 e218 | | Load 0x1,0x18 00fa 00dc | | Load_Top At_Offset_4 00fb 0268 | h | Execute Discrete,Successor 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e5fc | | Load 0x2,-0x4 0104 7006 |p | Jump_Nonzero 0x10b 0105 e217 | | Load 0x1,0x17 0106 03bc | | Declare_Variable Access,By_Allocation 0107 00d8 | | Load_Top At_Offset_0 0108 0227 | ' | Execute Access,All_Reference 0109 1c00 | | Execute_Immediate Run_Utility,0x0 010a a5fc | | Store_Unchecked 0x2,-0x4 010b e5fc | | Load 0x2,-0x4 010c 8232 | 2 | Call 0x1,0x32 010d 6803 |h | Jump_Zero 0x111 010e e5fc | | Load 0x2,-0x4 010f 821a | | Call 0x1,0x1a 0110 c5fc | | Store 0x2,-0x4 0111 e5fc | | Load 0x2,-0x4 0112 0229 | ) | Execute Access,All_Read 0113 e5fc | | Load 0x2,-0x4 0114 0229 | ) | Execute Access,All_Read 0115 e002 | | Load 0x0,0x2 0116 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0117 00d9 | | Load_Top At_Offset_1 0118 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0119 0120 | | Execute Any,Is_Value 011a 6802 |h | Jump_Zero 0x11d 011b e20f | | Load 0x1,0xf 011c 7804 |x | Jump 0x121 011d 00d9 | | Load_Top At_Offset_1 011e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011f e20f | | Load 0x1,0xf 0120 0119 | | Execute Any,Check_In_Formal_Type 0121 e010 | | Load 0x0,0x10 0122 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0123 e5fe | | Load 0x2,-0x2 0124 e5ff | | Load 0x2,-0x1 0125 e22e | . | Load 0x1,0x2e 0126 01d7 | | Execute Vector,Field_Read 0127 8211 | | Call 0x1,0x11 0128 00da | | Load_Top At_Offset_2 0129 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012a 00da | | Load_Top At_Offset_2 012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012c 00d2 | | Pop_Control Pop_Count_2 012d 00da | | Load_Top At_Offset_2 012e e5fc | | Load 0x2,-0x4 012f 0227 | ' | Execute Access,All_Reference 0130 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0131 e5fd | | Load 0x2,-0x3 0132 e5fc | | Load 0x2,-0x4 0133 0227 | ' | Execute Access,All_Reference 0134 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0135 4800 |H | Short_Literal 0x0 0136 e5fc | | Load 0x2,-0x4 0137 0227 | ' | Execute Access,All_Reference 0138 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0139 4800 |H | Short_Literal 0x0 013a e5fc | | Load 0x2,-0x4 013b 0227 | ' | Execute Access,All_Reference 013c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 013d 4801 |H | Short_Literal 0x1 013e e5fc | | Load 0x2,-0x4 013f 0227 | ' | Execute Access,All_Reference 0140 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0141 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c 8232 | 2 | Call 0x1,0x32 014d 6814 |h | Jump_Zero 0x162 014e 00da | | Load_Top At_Offset_2 014f 0229 | ) | Execute Access,All_Read 0150 00d8 | | Load_Top At_Offset_0 0151 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0152 00d8 | | Load_Top At_Offset_0 0153 0120 | | Execute Any,Is_Value 0154 6803 |h | Jump_Zero 0x158 0155 e20f | | Load 0x1,0xf 0156 011e | | Execute Any,Convert 0157 7802 |x | Jump 0x15a 0158 e20f | | Load 0x1,0xf 0159 0119 | | Execute Any,Check_In_Formal_Type 015a 8212 | | Call 0x1,0x12 015b 00d9 | | Load_Top At_Offset_1 015c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 015d 00d1 | | Pop_Control Pop_Count_1 015e 4800 |H | Short_Literal 0x0 015f 00db | | Load_Top At_Offset_3 0160 0227 | ' | Execute Access,All_Reference 0161 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0162 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0163 0000 0000 | | .BLANK 0000[0x5] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 8232 | 2 | Call 0x1,0x32 016d 7002 |p | Jump_Nonzero 0x170 016e 4900 |I | Short_Literal 0x100 016f 0257 | W | Execute Discrete,Raise 0170 00da | | Load_Top At_Offset_2 0171 0227 | ' | Execute Access,All_Reference 0172 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0173 e20f | | Load 0x1,0xf 0174 0119 | | Execute Any,Check_In_Formal_Type 0175 8210 | | Call 0x1,0x10 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017c | | | .CONST 0x017c ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 00e2 | | Load_Encached Integer_Cache 017c BODY_0178: 017c 00cf | | Action Mark_Auxiliary 017d e5ff | | Load 0x2,-0x1 017e 01da | | Execute Vector,Bounds 017f 0264 | d | Execute Discrete,Below_Bound 0180 7030 |p0 | Jump_Nonzero 0x1b1 0181 00d8 | | Load_Top At_Offset_0 0182 e5ff | | Load 0x2,-0x1 0183 01d7 | | Execute Vector,Field_Read 0184 4830 |H0 | Short_Literal 0x30 0185 4839 |H9 | Short_Literal 0x39 0186 0261 | a | Execute Discrete,Not_In_Range 0187 6827 |h' | Jump_Zero 0x1af 0188 00d8 | | Load_Top At_Offset_0 0189 e5ff | | Load 0x2,-0x1 018a 01dc | | Execute Vector,Last 018b 027f | | Execute Discrete,Equal 018c 6802 |h | Jump_Zero 0x18f 018d 00d2 | | Pop_Control Pop_Count_2 018e 7822 |x" | Jump 0x1b1 018f e5ff | | Load 0x2,-0x1 0190 01dd | | Execute Vector,First 0191 00d9 | | Load_Top At_Offset_1 0192 e5ff | | Load 0x2,-0x1 0193 01cf | | Execute Vector,Slice_Read 0194 4830 |H0 | Short_Literal 0x30 0195 4803 |H | Short_Literal 0x3 0196 480a |H | Short_Literal 0xa 0197 e405 | | Load 0x2,0x5 0198 0a01 | | Execute_Immediate Plus,0x1 0199 00d8 | | Load_Top At_Offset_0 019a 00e2 | | Load_Encached Integer_Cache 019b 0260 | ` | Execute Discrete,In_Type 019c 7001 |p | Jump_Nonzero 0x19e 019d 0801 | | Execute_Immediate Raise,0x1 019e e5ff | | Load 0x2,-0x1 019f 01dc | | Execute Vector,Last 01a0 e5ff | | Load 0x2,-0x1 01a1 01cf | | Execute Vector,Slice_Read 01a2 00e2 | | Load_Encached Integer_Cache 01a3 00e0 | | Load_Encached Standard_Cache 01a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01a5 0a01 | | Execute_Immediate Plus,0x1 01a6 00d8 | | Load_Top At_Offset_0 01a7 00e2 | | Load_Encached Integer_Cache 01a8 0260 | ` | Execute Discrete,In_Type 01a9 7001 |p | Jump_Nonzero 0x1ab 01aa 0801 | | Execute_Immediate Raise,0x1 01ab e00f | | Load 0x0,0xf 01ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ad 01cc | | Execute Vector,Catenate 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01af 00c8 | | Action Pop_Auxiliary_Range 01b0 37d0 |7 | Loop_Decreasing 0x181 01b1 00ce | | Action Pop_Auxiliary 01b2 00db | | Load_Top At_Offset_3 01b3 0092 07a8 | | Action Push_String_Extended,0x7a8 ; "_000" 01b5 01cc | | Execute Vector,Catenate 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 8232 | 2 | Call 0x1,0x32 01bd 7002 |p | Jump_Nonzero 0x1c0 01be 4900 |I | Short_Literal 0x100 01bf 0257 | W | Execute Discrete,Raise 01c0 00da | | Load_Top At_Offset_2 01c1 0227 | ' | Execute Access,All_Reference 01c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c3 e20f | | Load 0x1,0xf 01c4 0119 | | Execute Any,Check_In_Formal_Type 01c5 8213 | | Call 0x1,0x13 01c6 00db | | Load_Top At_Offset_3 01c7 0227 | ' | Execute Access,All_Reference 01c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c9 e20f | | Load 0x1,0xf 01ca 0119 | | Execute Any,Check_In_Formal_Type 01cb 8214 | | Call 0x1,0x14 01cc 8231 | 1 | Call 0x1,0x31 01cd 00db | | Load_Top At_Offset_3 01ce 0227 | ' | Execute Access,All_Reference 01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01d0 027d | } | Execute Discrete,Greater 01d1 6808 |h | Jump_Zero 0x1da 01d2 00da | | Load_Top At_Offset_2 01d3 0227 | ' | Execute Access,All_Reference 01d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d5 e20f | | Load 0x1,0xf 01d6 0119 | | Execute Any,Check_In_Formal_Type 01d7 8210 | | Call 0x1,0x10 01d8 821c | | Call 0x1,0x1c 01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01da 00da | | Load_Top At_Offset_2 01db 0227 | ' | Execute Access,All_Reference 01dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01dd e20f | | Load 0x1,0xf 01de 0119 | | Execute Any,Check_In_Formal_Type 01df 8210 | | Call 0x1,0x10 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 e215 | | Load 0x1,0x15 01ee e00f | | Load 0x0,0xf 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 e20f | | Load 0x1,0xf 0212 0119 | | Execute Any,Check_In_Formal_Type 0213 8213 | | Call 0x1,0x13 0214 00db | | Load_Top At_Offset_3 0215 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0217 0000 | | .XXX[0x1] 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 e22a | * | Load 0x1,0x2a 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 e22c | , | Load 0x1,0x2c 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 e22a | * | Load 0x1,0x2a 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 e22c | , | Load 0x1,0x2c 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 e22a | * | Load 0x1,0x2a 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 e22c | , | Load 0x1,0x2c 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 e22b | + | Load 0x1,0x2b 0263 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0264 8230 | 0 | Call 0x1,0x30 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 e20f | | Load 0x1,0xf 0270 0119 | | Execute Any,Check_In_Formal_Type 0271 8213 | | Call 0x1,0x13 0272 00db | | Load_Top At_Offset_3 0273 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0274 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 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 e22b | + | Load 0x1,0x2b 0286 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0287 e001 | | Load 0x0,0x1 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 e22c | , | Load 0x1,0x2c 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 601b |` | Indirect_Literal Discrete,0x2c4,{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 e20f | | Load 0x1,0xf 02bc 0119 | | Execute Any,Check_In_Formal_Type 02bd 8210 | | Call 0x1,0x10 02be e011 | | Load 0x0,0x11 02bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c1 0000 0000 | | .XXX[0x3] 02c3 0000 | | 02c4 0000 0000 | | .LITERAL {0x00000000, 0x00001fff} 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 e20f | | Load 0x1,0xf 02d0 0119 | | Execute Any,Check_In_Formal_Type 02d1 8214 | | Call 0x1,0x14 02d2 00db | | Load_Top At_Offset_3 02d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d4 e001 | | Load 0x0,0x1 02d5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d7 0000 | | .XXX[0x1] 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 4608 |F | Jump_Case 0x9 02dc 7808 |x | Jump 0x2e5 ; case 0x0 02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02de 780d |x | Jump 0x2ec ; case 0x2 02df 780c |x | Jump 0x2ec ; case 0x3 02e0 780b |x | Jump 0x2ec ; case 0x4 02e1 780a |x | Jump 0x2ec ; case 0x5 02e2 7809 |x | Jump 0x2ec ; case 0x6 02e3 7808 |x | Jump 0x2ec ; case 0x7 02e4 7807 |x | Jump 0x2ec ; case 0x8 02e5 00da | | Load_Top At_Offset_2 02e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e7 0125 | % | Execute Any,Set_Constraint 02e8 00da | | Load_Top At_Offset_2 02e9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ea 1c00 | | Execute_Immediate Run_Utility,0x0 02eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ec 0869 | i | Execute_Immediate Raise,0x69 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 INIT_02f0: 02f3 4608 |F | Jump_Case 0x9 02f4 7808 |x | Jump 0x2fd ; case 0x0 02f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02f6 781d |x | Jump 0x314 ; case 0x2 02f7 781c |x | Jump 0x314 ; case 0x3 02f8 781b |x | Jump 0x314 ; case 0x4 02f9 781a |x | Jump 0x314 ; case 0x5 02fa 7819 |x | Jump 0x314 ; case 0x6 02fb 7805 |x | Jump 0x301 ; case 0x7 02fc 780d |x | Jump 0x30a ; case 0x8 02fd 4800 |H | Short_Literal 0x0 02fe 00db | | Load_Top At_Offset_3 02ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0300 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0301 00db | | Load_Top At_Offset_3 0302 4801 |H | Short_Literal 0x1 0303 e5fe | | Load 0x2,-0x2 0304 00e9 | | Load_Encached String_Cache 0305 035b | [ | Declare_Type Array,Constrained 0306 4801 |H | Short_Literal 0x1 0307 e5ff | | Load 0x2,-0x1 0308 031b | | Declare_Type Variant_Record,Constrained 0309 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 030a 00db | | Load_Top At_Offset_3 030b 00db | | Load_Top At_Offset_3 030c 02fc | | Declare_Variable Variant_Record,With_Constraint 030d 4801 |H | Short_Literal 0x1 030e e5fe | | Load 0x2,-0x2 030f 00e9 | | Load_Encached String_Cache 0310 0334 | 4 | Declare_Variable Array,With_Constraint 0311 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0312 016a | j | QQ_execute Variant_Record,XXX 0313 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0314 0869 | i | Execute_Immediate Raise,0x69 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c e001 | | Load 0x0,0x1 031d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 031e e5fe | | Load 0x2,-0x2 031f 0272 | r | Execute Discrete,Minus 0320 e001 | | Load 0x0,0x1 0321 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0322 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e001 | | Load 0x0,0x1 032d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 032e e5fe | | Load 0x2,-0x2 032f 0273 | s | Execute Discrete,Plus 0330 e001 | | Load 0x0,0x1 0331 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0332 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0333 0000 0000 | | .BLANK 0000[0x5] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c e001 | | Load 0x0,0x1 033d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 033e e5fe | | Load 0x2,-0x2 033f e001 | | Load 0x0,0x1 0340 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0341 0272 | r | Execute Discrete,Minus 0342 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0343 0000 0000 | | .BLANK 0000[0x5] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00da | | Load_Top At_Offset_2 034c 6804 |h | Jump_Zero 0x351 034d 00da | | Load_Top At_Offset_2 034e 0227 | ' | Execute Access,All_Reference 034f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0351 4800 |H | Short_Literal 0x0 0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0353 0000 0000 | | .BLANK 0000[0x5] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 4608 |F | Jump_Case 0x9 035c 7808 |x | Jump 0x365 ; case 0x0 035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 035e 780d |x | Jump 0x36c ; case 0x2 035f 780c |x | Jump 0x36c ; case 0x3 0360 780b |x | Jump 0x36c ; case 0x4 0361 780a |x | Jump 0x36c ; case 0x5 0362 7809 |x | Jump 0x36c ; case 0x6 0363 7808 |x | Jump 0x36c ; case 0x7 0364 7807 |x | Jump 0x36c ; case 0x8 0365 00da | | Load_Top At_Offset_2 0366 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0367 0125 | % | Execute Any,Set_Constraint 0368 00da | | Load_Top At_Offset_2 0369 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 036a 1c00 | | Execute_Immediate Run_Utility,0x0 036b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 036c 0869 | i | Execute_Immediate Raise,0x69 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 03d7 | | .CONST 0x03d7 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 001d | | .CONST 0x001d ; Number of locals 0373 INIT_0370: 0373 4818 |H | Short_Literal 0x18 0374 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0375 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0377 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0379 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 037b 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 037d 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 037f 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0381 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 0383 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 0385 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated 0387 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 0389 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 038b 4803 |H | Short_Literal 0x3 038c 0093 0743 | C| push_full_address INIT_0740 038e 02a0 | | Declare_Subprogram Null_Subprogram 038f 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0390 4804 |H | Short_Literal 0x4 0391 0093 06fb | | push_full_address INIT_06f8 0393 02a0 | | Declare_Subprogram Null_Subprogram 0394 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0395 4806 |H | Short_Literal 0x6 0396 032a | * | Declare_Type Record,Incomplete 0397 00d8 | | Load_Top At_Offset_0 0398 02a0 | | Declare_Subprogram Null_Subprogram 0399 e20d | | Load 0x1,0xd 039a 03c7 | | Complete_Type Access,By_Defining 039b 00bf | | Action Accept_Activation 039c e001 | | Load 0x0,0x1 039d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 039e e002 | | Load 0x0,0x2 039f e003 | | Load 0x0,0x3 03a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03a1 e003 | | Load 0x0,0x3 03a2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03a3 e003 | | Load 0x0,0x3 03a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03a5 e001 | | Load 0x0,0x1 03a6 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03a7 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call 03a9 e21b | | Load 0x1,0x1b 03aa 0326 | & | Complete_Type Record,By_Defining 03ab 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 03ad 1d0f | | Execute_Immediate Reference_Lex_1,0xf 03ae 00c7 | | Action Elaborate_Subprogram 03af 1d10 | | Execute_Immediate Reference_Lex_1,0x10 03b0 00c7 | | Action Elaborate_Subprogram 03b1 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call 03b3 1d0e | | Execute_Immediate Reference_Lex_1,0xe 03b4 00c7 | | Action Elaborate_Subprogram 03b5 1d11 | | Execute_Immediate Reference_Lex_1,0x11 03b6 00c7 | | Action Elaborate_Subprogram 03b7 1d12 | | Execute_Immediate Reference_Lex_1,0x12 03b8 00c7 | | Action Elaborate_Subprogram 03b9 1d13 | | Execute_Immediate Reference_Lex_1,0x13 03ba 00c7 | | Action Elaborate_Subprogram 03bb 1d14 | | Execute_Immediate Reference_Lex_1,0x14 03bc 00c7 | | Action Elaborate_Subprogram 03bd 1d15 | | Execute_Immediate Reference_Lex_1,0x15 03be 00c7 | | Action Elaborate_Subprogram 03bf 1d16 | | Execute_Immediate Reference_Lex_1,0x16 03c0 00c7 | | Action Elaborate_Subprogram 03c1 1d17 | | Execute_Immediate Reference_Lex_1,0x17 03c2 00c7 | | Action Elaborate_Subprogram 03c3 1d18 | | Execute_Immediate Reference_Lex_1,0x18 03c4 00c7 | | Action Elaborate_Subprogram 03c5 e004 | | Load 0x0,0x4 03c6 e005 | | Load 0x0,0x5 03c7 e003 | | Load 0x0,0x3 03c8 4803 |H | Short_Literal 0x3 03c9 e219 | | Load 0x1,0x19 03ca 020e | | Execute Module,Augment_Imports 03cb e219 | | Load 0x1,0x19 03cc 020d | | Execute Module,Elaborate 03cd 0007 | | Action Break_Optional 03ce e006 | | Load 0x0,0x6 03cf e007 | | Load 0x0,0x7 03d0 e003 | | Load 0x0,0x3 03d1 a008 | | Store_Unchecked 0x0,0x8 03d2 4804 |H | Short_Literal 0x4 03d3 e21a | | Load 0x1,0x1a 03d4 020e | | Execute Module,Augment_Imports 03d5 00db | | Load_Top At_Offset_3 03d6 020d | | Execute Module,Elaborate 03d7 BODY_0370: 03d7 00bc | | Action Signal_Activated 03d8 00bb | | Action Signal_Completion 03d9 0000 0000 | | .BLANK 0000[0x7] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03ec | | .CONST 0x03ec ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0005 | | .CONST 0x0005 ; Number of locals 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 e001 | | Load 0x0,0x1 03e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03e6 e001 | | Load 0x0,0x1 03e7 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03e8 029f 0693 | | Declare_Subprogram INIT_0690,For_Call 03ea 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call 03ec BODY_03e0: 03ec 00db | | Load_Top At_Offset_3 03ed 01db | | Execute Vector,Length 03ee 6825 |h% | Jump_Zero 0x414 03ef e5fe | | Load 0x2,-0x2 03f0 8009 | | Call 0x0,0x9 03f1 6817 |h | Jump_Zero 0x409 03f2 00db | | Load_Top At_Offset_3 03f3 e00a | | Load 0x0,0xa 03f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03f5 e5fe | | Load 0x2,-0x2 03f6 0227 | ' | Execute Access,All_Reference 03f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03f8 e001 | | Load 0x0,0x1 03f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03fa 0119 | | Execute Any,Check_In_Formal_Type 03fb e001 | | Load 0x0,0x1 03fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03fd 01de | | Execute Vector,Not_Equal 03fe 6812 |h | Jump_Zero 0x411 03ff e5fe | | Load 0x2,-0x2 0400 00d8 | | Load_Top At_Offset_0 0401 0227 | ' | Execute Access,All_Reference 0402 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0403 e402 | | Load 0x2,0x2 0404 4800 |H | Short_Literal 0x0 0405 e001 | | Load 0x0,0x1 0406 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0407 c5fe | | Store 0x2,-0x2 0408 7808 |x | Jump 0x411 0409 e5fe | | Load 0x2,-0x2 040a e001 | | Load 0x0,0x1 040b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 040c e402 | | Load 0x2,0x2 040d 4800 |H | Short_Literal 0x0 040e e001 | | Load 0x0,0x1 040f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0410 c5fe | | Store 0x2,-0x2 0411 4800 |H | Short_Literal 0x0 0412 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0413 7804 |x | Jump 0x418 0414 e5fe | | Load 0x2,-0x2 0415 0227 | ' | Execute Access,All_Reference 0416 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0417 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0418 e5fd | | Load 0x2,-0x3 0419 7006 |p | Jump_Nonzero 0x420 041a e20d | | Load 0x1,0xd 041b 03bc | | Declare_Variable Access,By_Allocation 041c 00d8 | | Load_Top At_Offset_0 041d 0227 | ' | Execute Access,All_Reference 041e 1c00 | | Execute_Immediate Run_Utility,0x0 041f a5fd | | Store_Unchecked 0x2,-0x3 0420 e5fe | | Load 0x2,-0x2 0421 e5fd | | Load 0x2,-0x3 0422 0227 | ' | Execute Access,All_Reference 0423 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0424 00da | | Load_Top At_Offset_2 0425 e5fd | | Load 0x2,-0x3 0426 0227 | ' | Execute Access,All_Reference 0427 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0428 00da | | Load_Top At_Offset_2 0429 700f |p | Jump_Nonzero 0x439 042a e5fd | | Load 0x2,-0x3 042b e5ff | | Load 0x2,-0x1 042c 8210 | | Call 0x1,0x10 042d e00a | | Load 0x0,0xa 042e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 042f 821d | | Call 0x1,0x1d 0430 c5fd | | Store 0x2,-0x3 0431 e5fe | | Load 0x2,-0x2 0432 0227 | ' | Execute Access,All_Reference 0433 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0434 0a01 | | Execute_Immediate Plus,0x1 0435 e5fe | | Load 0x2,-0x2 0436 0227 | ' | Execute Access,All_Reference 0437 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0438 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0439 e5fe | | Load 0x2,-0x2 043a 0227 | ' | Execute Access,All_Reference 043b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 043c 0c01 | | Execute_Immediate Greater_Equal,0x1 043d 6802 |h | Jump_Zero 0x440 043e 4930 |I0 | Short_Literal 0x130 043f 0257 | W | Execute Discrete,Raise 0440 00cf | | Action Mark_Auxiliary 0441 7802 |x | Jump 0x444 0442 8404 | | Call 0x2,0x4 0443 00c9 | | Action Pop_Auxiliary_Loop 0444 e5fe | | Load 0x2,-0x2 0445 0227 | ' | Execute Access,All_Reference 0446 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0447 e001 | | Load 0x0,0x1 0448 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0449 0119 | | Execute Any,Check_In_Formal_Type 044a e001 | | Load 0x0,0x1 044b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 044c e5fe | | Load 0x2,-0x2 044d 0227 | ' | Execute Access,All_Reference 044e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044f e001 | | Load 0x0,0x1 0450 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0451 0119 | | Execute Any,Check_In_Formal_Type 0452 e001 | | Load 0x0,0x1 0453 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0454 8008 | | Call 0x0,0x8 0455 e5fe | | Load 0x2,-0x2 0456 0227 | ' | Execute Access,All_Reference 0457 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0458 027b | { | Execute Discrete,Greater_Equal 0459 77e8 |w | Jump_Nonzero 0x442 045a 00ce | | Action Pop_Auxiliary 045b 8405 | | Call 0x2,0x5 045c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 045d 0000 0000 | | .XXX[0x3] 045f 0000 | | 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 00da | | Load_Top At_Offset_2 0464 0227 | ' | Execute Access,All_Reference 0465 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0466 0227 | ' | Execute Access,All_Reference 0467 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0468 e001 | | Load 0x0,0x1 0469 1b0f | | Execute Package,Field_Read,Field_Number 0xf 046a 0119 | | Execute Any,Check_In_Formal_Type 046b e001 | | Load 0x0,0x1 046c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 046d 00db | | Load_Top At_Offset_3 046e 821c | | Call 0x1,0x1c 046f 01cc | | Execute Vector,Catenate 0470 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0471 0000 0000 | | .BLANK 0000[0x7] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 0483 | | .CONST 0x0483 ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0002 | | .CONST 0x0002 ; Number of locals 047b INIT_0478: 047b 4801 |H | Short_Literal 0x1 047c 00db | | Load_Top At_Offset_3 047d e001 | | Load 0x0,0x1 047e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 047f e00a | | Load 0x0,0xa 0480 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0481 00e2 | | Load_Encached Integer_Cache 0482 03f1 | | Declare_Variable Discrete,With_Value 0483 BODY_0478: 0483 00d8 | | Load_Top At_Offset_0 0484 7002 |p | Jump_Nonzero 0x487 0485 00ea | | Load_Encached Null_String_Cache 0486 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0487 00d8 | | Load_Top At_Offset_0 0488 e5ff | | Load 0x2,-0x1 0489 01dc | | Execute Vector,Last 048a e5ff | | Load 0x2,-0x1 048b 01cf | | Execute Vector,Slice_Read 048c 0335 | 5 | Declare_Variable Array,Duplicate 048d 00cd | | Action Spare6_Action 048e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 048f 0000 | | .XXX[0x1] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 0227 | ' | Execute Access,All_Reference 0495 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0496 0f01 | | Execute_Immediate Equal,0x1 0497 681f |h | Jump_Zero 0x4b7 0498 00da | | Load_Top At_Offset_2 0499 0227 | ' | Execute Access,All_Reference 049a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 049b 00db | | Load_Top At_Offset_3 049c 0227 | ' | Execute Access,All_Reference 049d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049e 0227 | ' | Execute Access,All_Reference 049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a0 e001 | | Load 0x0,0x1 04a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a2 0119 | | Execute Any,Check_In_Formal_Type 04a3 e001 | | Load 0x0,0x1 04a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04a5 8008 | | Call 0x0,0x8 04a6 00db | | Load_Top At_Offset_3 04a7 0227 | ' | Execute Access,All_Reference 04a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04a9 0217 | | Execute Heap_Access,All_Reference 04aa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04ab 00da | | Load_Top At_Offset_2 04ac 0227 | ' | Execute Access,All_Reference 04ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ae 0227 | ' | Execute Access,All_Reference 04af 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04b0 0aff | | Execute_Immediate Plus,-0x1 04b1 00db | | Load_Top At_Offset_3 04b2 0227 | ' | Execute Access,All_Reference 04b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04b4 0227 | ' | Execute Access,All_Reference 04b5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04b7 00da | | Load_Top At_Offset_2 04b8 0227 | ' | Execute Access,All_Reference 04b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ba 0227 | ' | Execute Access,All_Reference 04bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04bc 0aff | | Execute_Immediate Plus,-0x1 04bd 00db | | Load_Top At_Offset_3 04be 0227 | ' | Execute Access,All_Reference 04bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c0 0227 | ' | Execute Access,All_Reference 04c1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c3 0000 0000 | | .BLANK 0000[0x5] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc e5fe | | Load 0x2,-0x2 04cd 0227 | ' | Execute Access,All_Reference 04ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04cf 800b | | Call 0x0,0xb 04d0 e5fe | | Load 0x2,-0x2 04d1 0227 | ' | Execute Access,All_Reference 04d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 00da | | Load_Top At_Offset_2 04dc 0227 | ' | Execute Access,All_Reference 04dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04de 00db | | Load_Top At_Offset_3 04df 0227 | ' | Execute Access,All_Reference 04e0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04e1 8008 | | Call 0x0,0x8 04e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e3 0000 0000 | | .BLANK 0000[0x5] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 00da | | Load_Top At_Offset_2 04ec 0227 | ' | Execute Access,All_Reference 04ed 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04ee 7009 |p | Jump_Nonzero 0x4f8 04ef 00da | | Load_Top At_Offset_2 04f0 0227 | ' | Execute Access,All_Reference 04f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04f2 00db | | Load_Top At_Offset_3 04f3 0227 | ' | Execute Access,All_Reference 04f4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04f5 e003 | | Load 0x0,0x3 04f6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f8 00da | | Load_Top At_Offset_2 04f9 0227 | ' | Execute Access,All_Reference 04fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04fb 0227 | ' | Execute Access,All_Reference 04fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04fd e001 | | Load 0x0,0x1 04fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04ff 0119 | | Execute Any,Check_In_Formal_Type 0500 e001 | | Load 0x0,0x1 0501 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0502 00db | | Load_Top At_Offset_3 0503 0227 | ' | Execute Access,All_Reference 0504 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0505 e003 | | Load 0x0,0x3 0506 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0507 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0515 | | .CONST 0x0515 ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0002 | | .CONST 0x0002 ; Number of locals 050b INIT_0508: 050b 00da | | Load_Top At_Offset_2 050c 0227 | ' | Execute Access,All_Reference 050d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 050e 00db | | Load_Top At_Offset_3 050f 0227 | ' | Execute Access,All_Reference 0510 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0511 8008 | | Call 0x0,0x8 0512 09fd | | Execute_Immediate Binary_Scale,-0x3 0513 00e5 | | Load_Encached Long_Integer_Cache 0514 03f1 | | Declare_Variable Discrete,With_Value 0515 BODY_0508: 0515 00d8 | | Load_Top At_Offset_0 0516 0d01 | | Execute_Immediate Less,0x1 0517 6803 |h | Jump_Zero 0x51b 0518 4800 |H | Short_Literal 0x0 0519 a5fd | | Store_Unchecked 0x2,-0x3 051a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051b 00d8 | | Load_Top At_Offset_0 051c e5fe | | Load 0x2,-0x2 051d 01db | | Execute Vector,Length 051e 027c | | | Execute Discrete,Less 051f 682c |h, | Jump_Zero 0x54c 0520 e5fe | | Load 0x2,-0x2 0521 00d8 | | Load_Top At_Offset_0 0522 01dd | | Execute Vector,First 0523 e5fe | | Load 0x2,-0x2 0524 01dd | | Execute Vector,First 0525 00db | | Load_Top At_Offset_3 0526 00d8 | | Load_Top At_Offset_0 0527 00e3 | | Load_Encached Natural_Cache 0528 0260 | ` | Execute Discrete,In_Type 0529 7001 |p | Jump_Nonzero 0x52b 052a 0801 | | Execute_Immediate Raise,0x1 052b 0273 | s | Execute Discrete,Plus 052c 0aff | | Execute_Immediate Plus,-0x1 052d 00d8 | | Load_Top At_Offset_0 052e 00e2 | | Load_Encached Integer_Cache 052f 0260 | ` | Execute Discrete,In_Type 0530 7001 |p | Jump_Nonzero 0x532 0531 0801 | | Execute_Immediate Raise,0x1 0532 00da | | Load_Top At_Offset_2 0533 035b | [ | Declare_Type Array,Constrained 0534 00d0 | | Action Swap_Control 0535 01cd | | Execute Vector,Slice_Reference 0536 e5ff | | Load 0x2,-0x1 0537 0229 | ) | Execute Access,All_Read 0538 00e3 | | Load_Encached Natural_Cache 0539 00da | | Load_Top At_Offset_2 053a 00da | | Load_Top At_Offset_2 053b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 053c e5ff | | Load 0x2,-0x1 053d 0227 | ' | Execute Access,All_Reference 053e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 053f 0227 | ' | Execute Access,All_Reference 0540 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0541 0227 | ' | Execute Access,All_Reference 0542 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0543 e003 | | Load 0x0,0x3 0544 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0545 180f | | Execute Package,Field_Execute,Field_Number 0xf 0546 00db | | Load_Top At_Offset_3 0547 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0548 00d1 | | Pop_Control Pop_Count_1 0549 c5fd | | Store 0x2,-0x3 054a 00d2 | | Pop_Control Pop_Count_2 054b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054c 00db | | Load_Top At_Offset_3 054d 0229 | ) | Execute Access,All_Read 054e 00e3 | | Load_Encached Natural_Cache 054f e5fe | | Load 0x2,-0x2 0550 00da | | Load_Top At_Offset_2 0551 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0552 e5ff | | Load 0x2,-0x1 0553 0227 | ' | Execute Access,All_Reference 0554 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0555 0227 | ' | Execute Access,All_Reference 0556 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0557 0227 | ' | Execute Access,All_Reference 0558 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0559 e003 | | Load 0x0,0x3 055a 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 055b 180f | | Execute Package,Field_Execute,Field_Number 0xf 055c 00db | | Load_Top At_Offset_3 055d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 055e 00d1 | | Pop_Control Pop_Count_1 055f c5fd | | Store 0x2,-0x3 0560 00d1 | | Pop_Control Pop_Count_1 0561 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0562 0000 0000 | | .BLANK 0000[0x6] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 00db | | Load_Top At_Offset_3 056c 0229 | ) | Execute Access,All_Read 056d 00d8 | | Load_Top At_Offset_0 056e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 056f e5ff | | Load 0x2,-0x1 0570 e5fe | | Load 0x2,-0x2 0571 0227 | ' | Execute Access,All_Reference 0572 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0573 0227 | ' | Execute Access,All_Reference 0574 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0575 0227 | ' | Execute Access,All_Reference 0576 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0577 e003 | | Load 0x0,0x3 0578 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0579 1813 | | Execute Package,Field_Execute,Field_Number 0x13 057a 00d9 | | Load_Top At_Offset_1 057b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 057c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 057d 0000 0000 | | .XXX[0x3] 057f 0000 | | 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 058d | | .CONST 0x058d ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 00da | | Load_Top At_Offset_2 0584 0227 | ' | Execute Access,All_Reference 0585 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0586 00db | | Load_Top At_Offset_3 0587 0227 | ' | Execute Access,All_Reference 0588 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0589 8008 | | Call 0x0,0x8 058a 09fd | | Execute_Immediate Binary_Scale,-0x3 058b 00e5 | | Load_Encached Long_Integer_Cache 058c 03f1 | | Declare_Variable Discrete,With_Value 058d BODY_0580: 058d 00d8 | | Load_Top At_Offset_0 058e 0d01 | | Execute_Immediate Less,0x1 058f 6803 |h | Jump_Zero 0x593 0590 4800 |H | Short_Literal 0x0 0591 a5fd | | Store_Unchecked 0x2,-0x3 0592 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0593 00d8 | | Load_Top At_Offset_0 0594 e5fe | | Load 0x2,-0x2 0595 01db | | Execute Vector,Length 0596 027c | | | Execute Discrete,Less 0597 682c |h, | Jump_Zero 0x5c4 0598 e5fe | | Load 0x2,-0x2 0599 00d8 | | Load_Top At_Offset_0 059a 01dd | | Execute Vector,First 059b e5fe | | Load 0x2,-0x2 059c 01dd | | Execute Vector,First 059d 00db | | Load_Top At_Offset_3 059e 00d8 | | Load_Top At_Offset_0 059f 00e3 | | Load_Encached Natural_Cache 05a0 0260 | ` | Execute Discrete,In_Type 05a1 7001 |p | Jump_Nonzero 0x5a3 05a2 0801 | | Execute_Immediate Raise,0x1 05a3 0273 | s | Execute Discrete,Plus 05a4 0aff | | Execute_Immediate Plus,-0x1 05a5 00d8 | | Load_Top At_Offset_0 05a6 00e2 | | Load_Encached Integer_Cache 05a7 0260 | ` | Execute Discrete,In_Type 05a8 7001 |p | Jump_Nonzero 0x5aa 05a9 0801 | | Execute_Immediate Raise,0x1 05aa 00da | | Load_Top At_Offset_2 05ab 035b | [ | Declare_Type Array,Constrained 05ac 00d0 | | Action Swap_Control 05ad 01cd | | Execute Vector,Slice_Reference 05ae e5ff | | Load 0x2,-0x1 05af 0229 | ) | Execute Access,All_Read 05b0 00e3 | | Load_Encached Natural_Cache 05b1 00da | | Load_Top At_Offset_2 05b2 00da | | Load_Top At_Offset_2 05b3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05b4 e5ff | | Load 0x2,-0x1 05b5 0227 | ' | Execute Access,All_Reference 05b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05b7 0227 | ' | Execute Access,All_Reference 05b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05b9 0227 | ' | Execute Access,All_Reference 05ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05bb e003 | | Load 0x0,0x3 05bc 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 05bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05be 00db | | Load_Top At_Offset_3 05bf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05c0 00d1 | | Pop_Control Pop_Count_1 05c1 c5fd | | Store 0x2,-0x3 05c2 00d2 | | Pop_Control Pop_Count_2 05c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c4 00db | | Load_Top At_Offset_3 05c5 0229 | ) | Execute Access,All_Read 05c6 00e3 | | Load_Encached Natural_Cache 05c7 e5fe | | Load 0x2,-0x2 05c8 00da | | Load_Top At_Offset_2 05c9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05ca e5ff | | Load 0x2,-0x1 05cb 0227 | ' | Execute Access,All_Reference 05cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05cd 0227 | ' | Execute Access,All_Reference 05ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05cf 0227 | ' | Execute Access,All_Reference 05d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d1 e003 | | Load 0x0,0x3 05d2 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 05d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05d4 00db | | Load_Top At_Offset_3 05d5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05d6 00d1 | | Pop_Control Pop_Count_1 05d7 c5fd | | Store 0x2,-0x3 05d8 00d1 | | Pop_Control Pop_Count_1 05d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05da 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 05e4 0229 | ) | Execute Access,All_Read 05e5 00d8 | | Load_Top At_Offset_0 05e6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05e7 e5ff | | Load 0x2,-0x1 05e8 e5fe | | Load 0x2,-0x2 05e9 0227 | ' | Execute Access,All_Reference 05ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05eb 0227 | ' | Execute Access,All_Reference 05ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05ed 0227 | ' | Execute Access,All_Reference 05ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ef e003 | | Load 0x0,0x3 05f0 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 05f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05f2 00d9 | | Load_Top At_Offset_1 05f3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05f5 0000 0000 | | .XXX[0x3] 05f7 0000 | | 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 4608 |F | Jump_Case 0x9 05fc 7808 |x | Jump 0x605 ; case 0x0 05fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05fe 7819 |x | Jump 0x618 ; case 0x2 05ff 7818 |x | Jump 0x618 ; case 0x3 0600 7817 |x | Jump 0x618 ; case 0x4 0601 7816 |x | Jump 0x618 ; case 0x5 0602 7815 |x | Jump 0x618 ; case 0x6 0603 7814 |x | Jump 0x618 ; case 0x7 0604 7813 |x | Jump 0x618 ; case 0x8 0605 00da | | Load_Top At_Offset_2 0606 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0607 0125 | % | Execute Any,Set_Constraint 0608 00da | | Load_Top At_Offset_2 0609 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 060a 1c00 | | Execute_Immediate Run_Utility,0x0 060b 00da | | Load_Top At_Offset_2 060c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 060d 0125 | % | Execute Any,Set_Constraint 060e 00da | | Load_Top At_Offset_2 060f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0610 1c00 | | Execute_Immediate Run_Utility,0x0 0611 00da | | Load_Top At_Offset_2 0612 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0613 0125 | % | Execute Any,Set_Constraint 0614 00da | | Load_Top At_Offset_2 0615 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0616 1c00 | | Execute_Immediate Run_Utility,0x0 0617 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0618 0869 | i | Execute_Immediate Raise,0x69 0619 0000 0000 | | .BLANK 0000[0x7] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0623 | # | .CONST 0x0623 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0001 | | .CONST 0x0001 ; Number of locals 0623 BODY_0620: 0623 INIT_0620: 0623 00da | | Load_Top At_Offset_2 0624 0227 | ' | Execute Access,All_Reference 0625 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0626 0217 | | Execute Heap_Access,All_Reference 0627 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0628 0335 | 5 | Declare_Variable Array,Duplicate 0629 00cd | | Action Spare6_Action 062a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062b 0000 0000 | | .BLANK 0000[0x5] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 064a | J | .CONST 0x064a ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0004 | | .CONST 0x0004 ; Number of locals 0633 INIT_0630: 0633 00db | | Load_Top At_Offset_3 0634 0227 | ' | Execute Access,All_Reference 0635 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0636 0227 | ' | Execute Access,All_Reference 0637 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0638 0227 | ' | Execute Access,All_Reference 0639 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 063a 0007 | | Action Break_Optional 063b e003 | | Load 0x0,0x3 063c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 063d 02c7 | | Declare_Variable Any 063e e5fe | | Load 0x2,-0x2 063f 0227 | ' | Execute Access,All_Reference 0640 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0641 0227 | ' | Execute Access,All_Reference 0642 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0643 e001 | | Load 0x0,0x1 0644 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0645 0119 | | Execute Any,Check_In_Formal_Type 0646 e001 | | Load 0x0,0x1 0647 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0648 a403 | | Store_Unchecked 0x2,0x3 0649 e002 | | Load 0x0,0x2 064a BODY_0630: 064a 00be | | Action Activate_Tasks 064b 00cf | | Action Mark_Auxiliary 064c 782c |x, | Jump 0x679 064d 00da | | Load_Top At_Offset_2 064e e402 | | Load 0x2,0x2 064f e00c | | Load 0x0,0xc 0650 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0651 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0652 00da | | Load_Top At_Offset_2 0653 e402 | | Load 0x2,0x2 0654 e00d | | Load 0x0,0xd 0655 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0656 c403 | | Store 0x2,0x3 0657 00d9 | | Load_Top At_Offset_1 0658 0217 | | Execute Heap_Access,All_Reference 0659 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 065a e5ff | | Load 0x2,-0x1 065b 01df | | Execute Vector,Equal 065c 6815 |h | Jump_Zero 0x672 065d 00d9 | | Load_Top At_Offset_1 065e e5fe | | Load 0x2,-0x2 065f 0227 | ' | Execute Access,All_Reference 0660 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0661 00da | | Load_Top At_Offset_2 0662 e5fe | | Load 0x2,-0x2 0663 0227 | ' | Execute Access,All_Reference 0664 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0665 00da | | Load_Top At_Offset_2 0666 e5fe | | Load 0x2,-0x2 0667 0227 | ' | Execute Access,All_Reference 0668 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0669 00d9 | | Load_Top At_Offset_1 066a 0217 | | Execute Heap_Access,All_Reference 066b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 066c 00db | | Load_Top At_Offset_3 066d 800b | | Call 0x0,0xb 066e e5fe | | Load 0x2,-0x2 066f 0227 | ' | Execute Access,All_Reference 0670 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0671 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0672 00d9 | | Load_Top At_Offset_1 0673 0217 | | Execute Heap_Access,All_Reference 0674 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0675 00db | | Load_Top At_Offset_3 0676 800b | | Call 0x0,0xb 0677 c403 | | Store 0x2,0x3 0678 00c9 | | Action Pop_Auxiliary_Loop 0679 e5fe | | Load 0x2,-0x2 067a 0227 | ' | Execute Access,All_Reference 067b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 067c 0227 | ' | Execute Access,All_Reference 067d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 067e e001 | | Load 0x0,0x1 067f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0680 0119 | | Execute Any,Check_In_Formal_Type 0681 e001 | | Load 0x0,0x1 0682 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0683 00db | | Load_Top At_Offset_3 0684 e003 | | Load 0x0,0x3 0685 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0686 77c6 |w | Jump_Nonzero 0x64d 0687 00ce | | Action Pop_Auxiliary 0688 4920 |I | Short_Literal 0x120 0689 0257 | W | Execute Discrete,Raise 068a 0000 0000 | | .BLANK 0000[0x6] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 069d | | .CONST 0x069d ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0002 | | .CONST 0x0002 ; Number of locals 0693 INIT_0690: 0693 e5fe | | Load 0x2,-0x2 0694 0227 | ' | Execute Access,All_Reference 0695 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0696 e001 | | Load 0x0,0x1 0697 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0698 0119 | | Execute Any,Check_In_Formal_Type 0699 e001 | | Load 0x0,0x1 069a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 069b e001 | | Load 0x0,0x1 069c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 069d BODY_0690: 069d e5fe | | Load 0x2,-0x2 069e 00d8 | | Load_Top At_Offset_0 069f 0227 | ' | Execute Access,All_Reference 06a0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 06a1 00da | | Load_Top At_Offset_2 06a2 4801 |H | Short_Literal 0x1 06a3 e001 | | Load 0x0,0x1 06a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06a5 c5fe | | Store 0x2,-0x2 06a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06a7 0000 | | .XXX[0x1] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06c7 | | .CONST 0x06c7 ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0005 | | .CONST 0x0005 ; Number of locals 06ab INIT_06a8: 06ab e5ff | | Load 0x2,-0x1 06ac 8210 | | Call 0x1,0x10 06ad e00a | | Load 0x0,0xa 06ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06af e5fe | | Load 0x2,-0x2 06b0 0227 | ' | Execute Access,All_Reference 06b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06b2 0227 | ' | Execute Access,All_Reference 06b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06b4 0007 | | Action Break_Optional 06b5 00d9 | | Load_Top At_Offset_1 06b6 01db | | Execute Vector,Length 06b7 e00e | | Load 0x0,0xe 06b8 1c08 | | Execute_Immediate Run_Utility,0x8 06b9 00d8 | | Load_Top At_Offset_0 06ba 1c00 | | Execute_Immediate Run_Utility,0x0 06bb e003 | | Load 0x0,0x3 06bc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06bd 02c7 | | Declare_Variable Any 06be e5fe | | Load 0x2,-0x2 06bf 0227 | ' | Execute Access,All_Reference 06c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06c1 e001 | | Load 0x0,0x1 06c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06c3 0119 | | Execute Any,Check_In_Formal_Type 06c4 e001 | | Load 0x0,0x1 06c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06c6 a605 | | Store_Unchecked 0x3,0x5 06c7 BODY_06a8: 06c7 00be | | Action Activate_Tasks 06c8 00d9 | | Load_Top At_Offset_1 06c9 00d9 | | Load_Top At_Offset_1 06ca e603 | | Load 0x3,0x3 06cb e00d | | Load 0x0,0xd 06cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06cd 00d8 | | Load_Top At_Offset_0 06ce 00db | | Load_Top At_Offset_3 06cf e00c | | Load 0x0,0xc 06d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06d1 e5fd | | Load 0x2,-0x3 06d2 0227 | ' | Execute Access,All_Reference 06d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06d4 00db | | Load_Top At_Offset_3 06d5 e5fd | | Load 0x2,-0x3 06d6 0227 | ' | Execute Access,All_Reference 06d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06d8 0217 | | Execute Heap_Access,All_Reference 06d9 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 06da 00d8 | | Load_Top At_Offset_0 06db 00db | | Load_Top At_Offset_3 06dc e00d | | Load 0x0,0xd 06dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06de e5fd | | Load 0x2,-0x3 06df 0227 | ' | Execute Access,All_Reference 06e0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06e1 e5fd | | Load 0x2,-0x3 06e2 0227 | ' | Execute Access,All_Reference 06e3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06e4 e5fd | | Load 0x2,-0x3 06e5 0227 | ' | Execute Access,All_Reference 06e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06e7 e5fd | | Load 0x2,-0x3 06e8 0227 | ' | Execute Access,All_Reference 06e9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06ea e5fd | | Load 0x2,-0x3 06eb 0227 | ' | Execute Access,All_Reference 06ec 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06ed e5fe | | Load 0x2,-0x2 06ee 0227 | ' | Execute Access,All_Reference 06ef 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 06f0 0a01 | | Execute_Immediate Plus,0x1 06f1 e5fe | | Load 0x2,-0x2 06f2 0227 | ' | Execute Access,All_Reference 06f3 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06f5 0000 0000 | | .XXX[0x3] 06f7 0000 | | 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 070d | | .CONST 0x070d ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0013 | | .CONST 0x0013 ; Number of locals 06fb INIT_06f8: 06fb 029a 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call,Visible,Unelaborated 06fd 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated 06ff 00bf | | Action Accept_Activation 0700 e001 | | Load 0x0,0x1 0701 e002 | | Load 0x0,0x2 0702 e20f | | Load 0x1,0xf 0703 e210 | | Load 0x1,0x10 0704 e003 | | Load 0x0,0x3 0705 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0706 0387 | | Declare_Variable Package 0707 00d8 | | Load_Top At_Offset_0 0708 020f | | Execute Module,Activate 0709 1d11 | | Execute_Immediate Reference_Lex_1,0x11 070a 00c7 | | Action Elaborate_Subprogram 070b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 070c 00c7 | | Action Elaborate_Subprogram 070d BODY_06f8: 070d 00bc | | Action Signal_Activated 070e 00bb | | Action Signal_Completion 070f 0000 | | .XXX[0x1] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 071a | | .CONST 0x071a ; Address of begin 0711 0004 | | .CONST 0x0004 ; Address of exception handler 0712 0002 | | .CONST 0x0002 ; Number of locals 0713 INIT_0710: 0713 00da | | Load_Top At_Offset_2 0714 0227 | ' | Execute Access,All_Reference 0715 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0716 0227 | ' | Execute Access,All_Reference 0717 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0718 0227 | ' | Execute Access,All_Reference 0719 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 071a BODY_0710: 071a 00be | | Action Activate_Tasks 071b 00db | | Load_Top At_Offset_3 071c 0227 | ' | Execute Access,All_Reference 071d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 071e 00d9 | | Load_Top At_Offset_1 071f e213 | | Load 0x1,0x13 0720 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0721 e210 | | Load 0x1,0x10 0722 0213 | | Execute Heap_Access,Check_In_Type 0723 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0724 0000 0000 | | .BLANK 0000[0x4] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 0732 | 2 | .CONST 0x0732 ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0002 | | .CONST 0x0002 ; Number of locals 072b INIT_0728: 072b 00da | | Load_Top At_Offset_2 072c 0227 | ' | Execute Access,All_Reference 072d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 072e 0227 | ' | Execute Access,All_Reference 072f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0730 0227 | ' | Execute Access,All_Reference 0731 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0732 BODY_0728: 0732 00be | | Action Activate_Tasks 0733 00db | | Load_Top At_Offset_3 0734 0227 | ' | Execute Access,All_Reference 0735 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0736 e5fe | | Load 0x2,-0x2 0737 e210 | | Load 0x1,0x10 0738 0213 | | Execute Heap_Access,Check_In_Type 0739 00da | | Load_Top At_Offset_2 073a e213 | | Load 0x1,0x13 073b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 073c 8004 | | Call 0x0,0x4 073d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 073e 0000 0000 | | .XXX[0x2] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0754 | T | .CONST 0x0754 ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0012 | | .CONST 0x0012 ; Number of locals 0743 INIT_0740: 0743 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated 0745 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated 0747 00bf | | Action Accept_Activation 0748 e001 | | Load 0x0,0x1 0749 e002 | | Load 0x0,0x2 074a e20f | | Load 0x1,0xf 074b e003 | | Load 0x0,0x3 074c 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 074d 0387 | | Declare_Variable Package 074e 00d8 | | Load_Top At_Offset_0 074f 020f | | Execute Module,Activate 0750 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0751 00c7 | | Action Elaborate_Subprogram 0752 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0753 00c7 | | Action Elaborate_Subprogram 0754 BODY_0740: 0754 00bc | | Action Signal_Activated 0755 00bb | | Action Signal_Completion 0756 0000 0000 | | .XXX[0x2] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 076a | j | .CONST 0x076a ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0003 | | .CONST 0x0003 ; Number of locals 075b INIT_0758: 075b 00da | | Load_Top At_Offset_2 075c 0227 | ' | Execute Access,All_Reference 075d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 075e 0227 | ' | Execute Access,All_Reference 075f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0760 0227 | ' | Execute Access,All_Reference 0761 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0762 0007 | | Action Break_Optional 0763 e003 | | Load 0x0,0x3 0764 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0765 02c7 | | Declare_Variable Any 0766 e5ff | | Load 0x2,-0x1 0767 0227 | ' | Execute Access,All_Reference 0768 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0769 a403 | | Store_Unchecked 0x2,0x3 076a BODY_0758: 076a 00be | | Action Activate_Tasks 076b 00d8 | | Load_Top At_Offset_0 076c 00da | | Load_Top At_Offset_2 076d e212 | | Load 0x1,0x12 076e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 076f e5ff | | Load 0x2,-0x1 0770 0227 | ' | Execute Access,All_Reference 0771 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0772 e5ff | | Load 0x2,-0x1 0773 0227 | ' | Execute Access,All_Reference 0774 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0775 e5ff | | Load 0x2,-0x1 0776 0227 | ' | Execute Access,All_Reference 0777 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0778 e003 | | Load 0x0,0x3 0779 181c | | Execute Package,Field_Execute,Field_Number 0x1c 077a 6806 |h | Jump_Zero 0x781 077b 00d8 | | Load_Top At_Offset_0 077c e5ff | | Load 0x2,-0x1 077d 0227 | ' | Execute Access,All_Reference 077e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 077f 4950 |IP | Short_Literal 0x150 0780 0257 | W | Execute Discrete,Raise 0781 00d8 | | Load_Top At_Offset_0 0782 00da | | Load_Top At_Offset_2 0783 e212 | | Load 0x1,0x12 0784 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0785 e20f | | Load 0x1,0xf 0786 0119 | | Execute Any,Check_In_Formal_Type 0787 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 0792 | | .CONST 0x0792 ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0002 | | .CONST 0x0002 ; Number of locals 078b INIT_0788: 078b 00db | | Load_Top At_Offset_3 078c 0227 | ' | Execute Access,All_Reference 078d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 078e 0227 | ' | Execute Access,All_Reference 078f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0790 0227 | ' | Execute Access,All_Reference 0791 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0792 BODY_0788: 0792 00be | | Action Activate_Tasks 0793 00db | | Load_Top At_Offset_3 0794 e20f | | Load 0x1,0xf 0795 0119 | | Execute Any,Check_In_Formal_Type 0796 e5fe | | Load 0x2,-0x2 0797 0227 | ' | Execute Access,All_Reference 0798 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0799 00da | | Load_Top At_Offset_2 079a e212 | | Load 0x1,0x12 079b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 079c e5fe | | Load 0x2,-0x2 079d 0227 | ' | Execute Access,All_Reference 079e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 079f 00d9 | | Load_Top At_Offset_1 07a0 e212 | | Load 0x1,0x12 07a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07a2 e5fe | | Load 0x2,-0x2 07a3 0227 | ' | Execute Access,All_Reference 07a4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 07a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a6 ; -------------------------------------------------------------------------------------- 07a6 ; STRING TABLE 07a6 ; -------------------------------------------------------------------------------------- 07a6 0008 | | .STRTAB 0x0008->0x07aa ; "IN_FILE" 07a7 000d | | .STRTAB 0x000d->0x07ad ; "OUT_FILE" 07a8 0013 | | .STRTAB 0x0013->0x07b1 ; "_000" 07a9 0015 | | .STREND 0x0015->0x07b3 07aa 494e 5f46 |IN_F| .STRTAB_STRINGS 07b4 0000 0000 | | .BLANK 0000[0x4] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; Debug Table 07b8 ; -------------------------------------------------------------------------------------- 07b8 0004 000d | | .DEBUG4 0x0004,0x000d,0x9715,0x0000,0x0001,0x0000 07be 0000 0000 | | .BLANK 0000[0x42]