|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5a98bb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0368 | h | .CONST 0x0368 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 009e | | .CONST 0x009e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c e20f | | Load 0x1,0xf 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0013 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0015 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0017 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0019 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 001b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 001d 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 001f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0021 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0023 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0025 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0027 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0029 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d e213 | | Load 0x1,0x13 002e 0266 | f | Execute Discrete,Bounds 002f e20e | | Load 0x1,0xe 0030 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 0032 4801 |H | Short_Literal 0x1 0033 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0034 4801 |H | Short_Literal 0x1 0035 4800 |H | Short_Literal 0x0 0036 00da | | Load_Top At_Offset_2 0037 035b | [ | Declare_Type Array,Constrained 0038 0336 | 6 | Declare_Variable Array,Visible 0039 00d8 | | Load_Top At_Offset_0 003a 0335 | 5 | Declare_Variable Array,Duplicate 003b 00cd | | Action Spare6_Action 003c 00d9 | | Load_Top At_Offset_1 003d 01d4 | | Execute Vector,Structure_Write 003e e213 | | Load 0x1,0x13 003f 4801 |H | Short_Literal 0x1 0040 00db | | Load_Top At_Offset_3 0041 01dc | | Execute Vector,Last 0042 e213 | | Load 0x1,0x13 0043 0269 | i | Execute Discrete,Last 0044 026c | l | Execute Discrete,Minimum 0045 e224 | $ | Load 0x1,0x24 0046 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0047 029f 030b | | Declare_Subprogram INIT_0308,For_Call 0049 4800 |H | Short_Literal 0x0 004a 4801 |H | Short_Literal 0x1 004b 4800 |H | Short_Literal 0x0 004c 4800 |H | Short_Literal 0x0 004d 4801 |H | Short_Literal 0x1 004e 4801 |H | Short_Literal 0x1 004f 031e | | Declare_Type Variant_Record,Defined,Visible 0050 00d8 | | Load_Top At_Offset_0 0051 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 0053 4801 |H | Short_Literal 0x1 0054 032e | . | Declare_Type Record,Defined,Visible 0055 00d8 | | Load_Top At_Offset_0 0056 e213 | | Load 0x1,0x13 0057 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0059 4802 |H | Short_Literal 0x2 005a 032e | . | Declare_Type Record,Defined,Visible 005b 00d9 | | Load_Top At_Offset_1 005c 0322 | " | Declare_Variable Record 005d 4800 |H | Short_Literal 0x0 005e e226 | & | Load 0x1,0x26 005f 1c08 | | Execute_Immediate Run_Utility,0x8 0060 e225 | % | Load 0x1,0x25 0061 00d9 | | Load_Top At_Offset_1 0062 00d8 | | Load_Top At_Offset_0 0063 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0064 00da | | Load_Top At_Offset_2 0065 01da | | Execute Vector,Bounds 0066 00da | | Load_Top At_Offset_2 0067 01da | | Execute Vector,Bounds 0068 00da | | Load_Top At_Offset_2 0069 027f | | Execute Discrete,Equal 006a 7001 |p | Jump_Nonzero 0x6c 006b 08e0 | | Execute_Immediate Raise,0xe0 006c 00cd | | Action Spare6_Action 006d 027f | | Execute Discrete,Equal 006e 7001 |p | Jump_Nonzero 0x70 006f 08e0 | | Execute_Immediate Raise,0xe0 0070 00d2 | | Pop_Control Pop_Count_2 0071 00d9 | | Load_Top At_Offset_1 0072 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0073 00d9 | | Load_Top At_Offset_1 0074 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0075 0129 | ) | Execute Any,Make_Visible 0076 c223 | # | Store 0x1,0x23 0077 00d8 | | Load_Top At_Offset_0 0078 0322 | " | Declare_Variable Record 0079 e223 | # | Load 0x1,0x23 007a 00d9 | | Load_Top At_Offset_1 007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007c 4800 |H | Short_Literal 0x0 007d 00d9 | | Load_Top At_Offset_1 007e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007f 0129 | ) | Execute Any,Make_Visible 0080 c222 | " | Store 0x1,0x22 0081 00bf | | Action Accept_Activation 0082 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0083 00c7 | | Action Elaborate_Subprogram 0084 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0085 00c7 | | Action Elaborate_Subprogram 0086 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0087 00c7 | | Action Elaborate_Subprogram 0088 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0089 00c7 | | Action Elaborate_Subprogram 008a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008b 00c7 | | Action Elaborate_Subprogram 008c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 008d 00c7 | | Action Elaborate_Subprogram 008e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 008f 00c7 | | Action Elaborate_Subprogram 0090 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0091 00c7 | | Action Elaborate_Subprogram 0092 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0093 00c7 | | Action Elaborate_Subprogram 0094 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0099 00c7 | | Action Elaborate_Subprogram 009a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009b 00c7 | | Action Elaborate_Subprogram 009c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 009d 00c7 | | Action Elaborate_Subprogram 009e BODY_0008: 009e 00bc | | Action Signal_Activated 009f 00bb | | Action Signal_Completion 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00b5 | | .CONST 0x00b5 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e213 | | Load 0x1,0x13 00a4 0701 | | Execute_Immediate Set_Value,0x1 00a5 4801 |H | Short_Literal 0x1 00a6 e5fe | | Load 0x2,-0x2 00a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00a8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00a9 01dc | | Execute Vector,Last 00aa 0a01 | | Execute_Immediate Plus,0x1 00ab 00d8 | | Load_Top At_Offset_0 00ac 00e2 | | Load_Encached Integer_Cache 00ad 0260 | ` | Execute Discrete,In_Type 00ae 7001 |p | Jump_Nonzero 0xb0 00af 0801 | | Execute_Immediate Raise,0x1 00b0 e224 | $ | Load 0x1,0x24 00b1 035b | [ | Declare_Type Array,Constrained 00b2 0337 | 7 | Declare_Variable Array 00b3 00d8 | | Load_Top At_Offset_0 00b4 1c00 | | Execute_Immediate Run_Utility,0x0 00b5 BODY_00a0: 00b5 e5fe | | Load 0x2,-0x2 00b6 8219 | | Call 0x1,0x19 00b7 6803 |h | Jump_Zero 0xbb 00b8 4800 |H | Short_Literal 0x0 00b9 a5fd | | Store_Unchecked 0x2,-0x3 00ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bb e5fe | | Load 0x2,-0x2 00bc 821a | | Call 0x1,0x1a 00bd 682a |h* | Jump_Zero 0xe8 00be 4801 |H | Short_Literal 0x1 00bf a5fd | | Store_Unchecked 0x2,-0x3 00c0 4801 |H | Short_Literal 0x1 00c1 e226 | & | Load 0x1,0x26 00c2 1c08 | | Execute_Immediate Run_Utility,0x8 00c3 00d8 | | Load_Top At_Offset_0 00c4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00c5 0335 | 5 | Declare_Variable Array,Duplicate 00c6 00cd | | Action Spare6_Action 00c7 00d9 | | Load_Top At_Offset_1 00c8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00c9 01d9 | | Execute Vector,Reverse_Bounds 00ca 0263 | c | Execute Discrete,Above_Bound 00cb 7007 |p | Jump_Nonzero 0xd3 00cc e5ff | | Load 0x2,-0x1 00cd e20e | | Load 0x1,0xe 00ce 0119 | | Execute Any,Check_In_Formal_Type 00cf 00d9 | | Load_Top At_Offset_1 00d0 e405 | | Load 0x2,0x5 00d1 01d6 | | Execute Vector,Field_Write 00d2 3ff9 |? | Loop_Increasing 0xcc 00d3 00d9 | | Load_Top At_Offset_1 00d4 00d8 | | Load_Top At_Offset_0 00d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00d6 00da | | Load_Top At_Offset_2 00d7 01da | | Execute Vector,Bounds 00d8 00da | | Load_Top At_Offset_2 00d9 01da | | Execute Vector,Bounds 00da 00da | | Load_Top At_Offset_2 00db 027f | | Execute Discrete,Equal 00dc 7001 |p | Jump_Nonzero 0xde 00dd 08e0 | | Execute_Immediate Raise,0xe0 00de 00cd | | Action Spare6_Action 00df 027f | | Execute Discrete,Equal 00e0 7001 |p | Jump_Nonzero 0xe2 00e1 08e0 | | Execute_Immediate Raise,0xe0 00e2 00d2 | | Pop_Control Pop_Count_2 00e3 00d9 | | Load_Top At_Offset_1 00e4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 00e5 e5fe | | Load 0x2,-0x2 00e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e8 00cf | | Action Mark_Auxiliary 00e9 7804 |x | Jump 0xee 00ea 00da | | Load_Top At_Offset_2 00eb 0a01 | | Execute_Immediate Plus,0x1 00ec 005b | [ | Store_Top Discrete,At_Offset_3 00ed 00c9 | | Action Pop_Auxiliary_Loop 00ee 00da | | Load_Top At_Offset_2 00ef e5fe | | Load 0x2,-0x2 00f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00f2 01da | | Execute Vector,Bounds 00f3 0262 | b | Execute Discrete,In_Range 00f4 680a |h | Jump_Zero 0xff 00f5 00da | | Load_Top At_Offset_2 00f6 e5fe | | Load 0x2,-0x2 00f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00f9 01d7 | | Execute Vector,Field_Read 00fa 8212 | | Call 0x1,0x12 00fb e5ff | | Load 0x2,-0x1 00fc 8212 | | Call 0x1,0x12 00fd 01c1 | | Execute Vector,Less 00fe 77eb |w | Jump_Nonzero 0xea 00ff 00ce | | Action Pop_Auxiliary 0100 00d9 | | Load_Top At_Offset_1 0101 e5fe | | Load 0x2,-0x2 0102 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0103 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0104 01da | | Execute Vector,Bounds 0105 0261 | a | Execute Discrete,Not_In_Range 0106 6825 |h% | Jump_Zero 0x12c 0107 4801 |H | Short_Literal 0x1 0108 a5fd | | Store_Unchecked 0x2,-0x3 0109 e5ff | | Load 0x2,-0x1 010a e5fe | | Load 0x2,-0x2 010b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 010c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 010d 01cb | | Execute Vector,Append 010e 00d9 | | Load_Top At_Offset_1 010f 01d4 | | Execute Vector,Structure_Write 0110 e5fe | | Load 0x2,-0x2 0111 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0112 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0113 0a01 | | Execute_Immediate Plus,0x1 0114 e226 | & | Load 0x1,0x26 0115 1c08 | | Execute_Immediate Run_Utility,0x8 0116 00d9 | | Load_Top At_Offset_1 0117 00d9 | | Load_Top At_Offset_1 0118 00d8 | | Load_Top At_Offset_0 0119 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 011a 00da | | Load_Top At_Offset_2 011b 01da | | Execute Vector,Bounds 011c 00da | | Load_Top At_Offset_2 011d 01da | | Execute Vector,Bounds 011e 00da | | Load_Top At_Offset_2 011f 027f | | Execute Discrete,Equal 0120 7001 |p | Jump_Nonzero 0x122 0121 08e0 | | Execute_Immediate Raise,0xe0 0122 00cd | | Action Spare6_Action 0123 027f | | Execute Discrete,Equal 0124 7001 |p | Jump_Nonzero 0x126 0125 08e0 | | Execute_Immediate Raise,0xe0 0126 00d2 | | Pop_Control Pop_Count_2 0127 00d9 | | Load_Top At_Offset_1 0128 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0129 e5fe | | Load 0x2,-0x2 012a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012c 00d9 | | Load_Top At_Offset_1 012d e5fe | | Load 0x2,-0x2 012e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0130 01d7 | | Execute Vector,Field_Read 0131 8212 | | Call 0x1,0x12 0132 e5ff | | Load 0x2,-0x1 0133 8212 | | Call 0x1,0x12 0134 01de | | Execute Vector,Not_Equal 0135 6833 |h3 | Jump_Zero 0x169 0136 4801 |H | Short_Literal 0x1 0137 a5fd | | Store_Unchecked 0x2,-0x3 0138 e5ff | | Load 0x2,-0x1 0139 4801 |H | Short_Literal 0x1 013a 00db | | Load_Top At_Offset_3 013b 0aff | | Execute_Immediate Plus,-0x1 013c e5fe | | Load 0x2,-0x2 013d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 013e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 013f 01cf | | Execute Vector,Slice_Read 0140 01cb | | Execute Vector,Append 0141 00da | | Load_Top At_Offset_2 0142 e5fe | | Load 0x2,-0x2 0143 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0144 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0145 01dc | | Execute Vector,Last 0146 e5fe | | Load 0x2,-0x2 0147 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0148 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0149 01cf | | Execute Vector,Slice_Read 014a 01cc | | Execute Vector,Catenate 014b 00d9 | | Load_Top At_Offset_1 014c 01d4 | | Execute Vector,Structure_Write 014d e5fe | | Load 0x2,-0x2 014e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0150 0a01 | | Execute_Immediate Plus,0x1 0151 e226 | & | Load 0x1,0x26 0152 1c08 | | Execute_Immediate Run_Utility,0x8 0153 00d9 | | Load_Top At_Offset_1 0154 00d9 | | Load_Top At_Offset_1 0155 00d8 | | Load_Top At_Offset_0 0156 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0157 00da | | Load_Top At_Offset_2 0158 01da | | Execute Vector,Bounds 0159 00da | | Load_Top At_Offset_2 015a 01da | | Execute Vector,Bounds 015b 00da | | Load_Top At_Offset_2 015c 027f | | Execute Discrete,Equal 015d 7001 |p | Jump_Nonzero 0x15f 015e 08e0 | | Execute_Immediate Raise,0xe0 015f 00cd | | Action Spare6_Action 0160 027f | | Execute Discrete,Equal 0161 7001 |p | Jump_Nonzero 0x163 0162 08e0 | | Execute_Immediate Raise,0xe0 0163 00d2 | | Pop_Control Pop_Count_2 0164 00d9 | | Load_Top At_Offset_1 0165 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0166 e5fe | | Load 0x2,-0x2 0167 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 4800 |H | Short_Literal 0x0 016a a5fd | | Store_Unchecked 0x2,-0x3 016b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016c 0000 0000 | | .BLANK 0000[0x4] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017a | z | .CONST 0x017a ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 8212 | | Call 0x1,0x12 0175 e5fe | | Load 0x2,-0x2 0176 821b | | Call 0x1,0x1b 0177 e213 | | Load 0x1,0x13 0178 03f1 | | Declare_Variable Discrete,With_Value 0179 00e1 | | Load_Encached Boolean_Cache 017a BODY_0170: 017a 00d9 | | Load_Top At_Offset_1 017b 7009 |p | Jump_Nonzero 0x185 017c 00e1 | | Load_Encached Boolean_Cache 017d e5fe | | Load 0x2,-0x2 017e e5ff | | Load 0x2,-0x1 017f e20e | | Load 0x1,0xe 0180 0119 | | Execute Any,Check_In_Formal_Type 0181 8214 | | Call 0x1,0x14 0182 00d1 | | Pop_Control Pop_Count_1 0183 0059 | Y | Store_Top Discrete,At_Offset_1 0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0185 e5ff | | Load 0x2,-0x1 0186 00da | | Load_Top At_Offset_2 0187 e5fe | | Load 0x2,-0x2 0188 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0189 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 018a 01d6 | | Execute Vector,Field_Write 018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0198 | | .CONST 0x0198 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0005 | | .CONST 0x0005 ; Number of locals 0193 INIT_0190: 0193 e213 | | Load 0x1,0x13 0194 03e9 | | Declare_Variable Discrete,Duplicate 0195 03e9 | | Declare_Variable Discrete,Duplicate 0196 00e1 | | Load_Encached Boolean_Cache 0197 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0198 BODY_0190: 0198 e5ff | | Load 0x2,-0x1 0199 821a | | Call 0x1,0x1a 019a 6805 |h | Jump_Zero 0x1a0 019b 4800 |H | Short_Literal 0x0 019c a5fc | | Store_Unchecked 0x2,-0x4 019d e210 | | Load 0x1,0x10 019e c5fd | | Store 0x2,-0x3 019f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a0 4801 |H | Short_Literal 0x1 01a1 c402 | | Store 0x2,0x2 01a2 e5ff | | Load 0x2,-0x1 01a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01a5 01dc | | Execute Vector,Last 01a6 005a | Z | Store_Top Discrete,At_Offset_2 01a7 00cf | | Action Mark_Auxiliary 01a8 7822 |x" | Jump 0x1cb 01a9 e402 | | Load 0x2,0x2 01aa 00db | | Load_Top At_Offset_3 01ab 0273 | s | Execute Discrete,Plus 01ac 09ff | | Execute_Immediate Binary_Scale,-0x1 01ad c403 | | Store 0x2,0x3 01ae 00db | | Load_Top At_Offset_3 01af e5ff | | Load 0x2,-0x1 01b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01b2 01d7 | | Execute Vector,Field_Read 01b3 8212 | | Call 0x1,0x12 01b4 e5fe | | Load 0x2,-0x2 01b5 01c1 | | Execute Vector,Less 01b6 6804 |h | Jump_Zero 0x1bb 01b7 00db | | Load_Top At_Offset_3 01b8 0a01 | | Execute_Immediate Plus,0x1 01b9 c402 | | Store 0x2,0x2 01ba 780f |x | Jump 0x1ca 01bb e5fe | | Load 0x2,-0x2 01bc e403 | | Load 0x2,0x3 01bd e5ff | | Load 0x2,-0x1 01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01c0 01d7 | | Execute Vector,Field_Read 01c1 8212 | | Call 0x1,0x12 01c2 01c1 | | Execute Vector,Less 01c3 6804 |h | Jump_Zero 0x1c8 01c4 00db | | Load_Top At_Offset_3 01c5 0aff | | Execute_Immediate Plus,-0x1 01c6 005b | [ | Store_Top Discrete,At_Offset_3 01c7 7802 |x | Jump 0x1ca 01c8 4801 |H | Short_Literal 0x1 01c9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ca 00c9 | | Action Pop_Auxiliary_Loop 01cb e402 | | Load 0x2,0x2 01cc 00db | | Load_Top At_Offset_3 01cd 027a | z | Execute Discrete,Less_Equal 01ce 00da | | Load_Top At_Offset_2 01cf 0f00 | | Execute_Immediate Equal,0x0 01d0 0279 | y | Execute Discrete,And 01d1 77d7 |w | Jump_Nonzero 0x1a9 01d2 00ce | | Action Pop_Auxiliary 01d3 00d8 | | Load_Top At_Offset_0 01d4 6809 |h | Jump_Zero 0x1de 01d5 4801 |H | Short_Literal 0x1 01d6 a5fc | | Store_Unchecked 0x2,-0x4 01d7 00da | | Load_Top At_Offset_2 01d8 e5ff | | Load 0x2,-0x1 01d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01da 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01db 01d7 | | Execute Vector,Field_Read 01dc c5fd | | Store 0x2,-0x3 01dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01de 4800 |H | Short_Literal 0x0 01df a5fc | | Store_Unchecked 0x2,-0x4 01e0 e210 | | Load 0x1,0x10 01e1 c5fd | | Store 0x2,-0x3 01e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00db | | Load_Top At_Offset_3 01ec 00db | | Load_Top At_Offset_3 01ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ee 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01ef 01da | | Execute Vector,Bounds 01f0 0261 | a | Execute Discrete,Not_In_Range 01f1 6805 |h | Jump_Zero 0x1f7 01f2 4800 |H | Short_Literal 0x0 01f3 a5fc | | Store_Unchecked 0x2,-0x4 01f4 e210 | | Load 0x1,0x10 01f5 c5fd | | Store 0x2,-0x3 01f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f7 4801 |H | Short_Literal 0x1 01f8 a5fc | | Store_Unchecked 0x2,-0x4 01f9 00db | | Load_Top At_Offset_3 01fa 00db | | Load_Top At_Offset_3 01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01fc 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01fd 01d7 | | Execute Vector,Field_Read 01fe c5fd | | Store 0x2,-0x3 01ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0207 | | .CONST 0x0207 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 e228 | ( | Load 0x1,0x28 0204 0322 | " | Declare_Variable Record 0205 00d8 | | Load_Top At_Offset_0 0206 1c00 | | Execute_Immediate Run_Utility,0x0 0207 BODY_0200: 0207 00d8 | | Load_Top At_Offset_0 0208 e5ff | | Load 0x2,-0x1 0209 821e | | Call 0x1,0x1e 020a 00d1 | | Pop_Control Pop_Count_1 020b 00cf | | Action Mark_Auxiliary 020c 7807 |x | Jump 0x214 020d 00d9 | | Load_Top At_Offset_1 020e 8220 | | Call 0x1,0x20 020f 8211 | | Call 0x1,0x11 0210 00d9 | | Load_Top At_Offset_1 0211 8221 | ! | Call 0x1,0x21 0212 00d1 | | Pop_Control Pop_Count_1 0213 00c9 | | Action Pop_Auxiliary_Loop 0214 00d9 | | Load_Top At_Offset_1 0215 821f | | Call 0x1,0x1f 0216 6ff6 |o | Jump_Zero 0x20d 0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 021e e20f | | Load 0x1,0xf 021f 0aff | | Execute_Immediate Plus,-0x1 0220 027f | | Execute Discrete,Equal 0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 022d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 022e 0f00 | | Execute_Immediate Equal,0x0 022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023a | : | .CONST 0x023a ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0006 | | .CONST 0x0006 ; Number of locals 0233 INIT_0230: 0233 e213 | | Load 0x1,0x13 0234 03e9 | | Declare_Variable Discrete,Duplicate 0235 03e9 | | Declare_Variable Discrete,Duplicate 0236 00e1 | | Load_Encached Boolean_Cache 0237 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0238 e213 | | Load 0x1,0x13 0239 0700 | | Execute_Immediate Set_Value,0x0 023a BODY_0230: 023a e5ff | | Load 0x2,-0x1 023b 821a | | Call 0x1,0x1a 023c 7037 |p7 | Jump_Nonzero 0x274 023d 4801 |H | Short_Literal 0x1 023e c402 | | Store 0x2,0x2 023f e5ff | | Load 0x2,-0x1 0240 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0241 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0242 01dc | | Execute Vector,Last 0243 005b | [ | Store_Top Discrete,At_Offset_3 0244 00cf | | Action Mark_Auxiliary 0245 7822 |x" | Jump 0x268 0246 e402 | | Load 0x2,0x2 0247 e404 | | Load 0x2,0x4 0248 0273 | s | Execute Discrete,Plus 0249 09ff | | Execute_Immediate Binary_Scale,-0x1 024a c403 | | Store 0x2,0x3 024b e403 | | Load 0x2,0x3 024c e5ff | | Load 0x2,-0x1 024d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 024e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 024f 01d7 | | Execute Vector,Field_Read 0250 8212 | | Call 0x1,0x12 0251 e5fe | | Load 0x2,-0x2 0252 01c1 | | Execute Vector,Less 0253 6804 |h | Jump_Zero 0x258 0254 e403 | | Load 0x2,0x3 0255 0a01 | | Execute_Immediate Plus,0x1 0256 c402 | | Store 0x2,0x2 0257 780f |x | Jump 0x267 0258 e5fe | | Load 0x2,-0x2 0259 e403 | | Load 0x2,0x3 025a e5ff | | Load 0x2,-0x1 025b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 025c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 025d 01d7 | | Execute Vector,Field_Read 025e 8212 | | Call 0x1,0x12 025f 01c1 | | Execute Vector,Less 0260 6804 |h | Jump_Zero 0x265 0261 e403 | | Load 0x2,0x3 0262 0aff | | Execute_Immediate Plus,-0x1 0263 c404 | | Store 0x2,0x4 0264 7802 |x | Jump 0x267 0265 4801 |H | Short_Literal 0x1 0266 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0267 00c9 | | Action Pop_Auxiliary_Loop 0268 e402 | | Load 0x2,0x2 0269 e404 | | Load 0x2,0x4 026a 027a | z | Execute Discrete,Less_Equal 026b 00db | | Load_Top At_Offset_3 026c 0f00 | | Execute_Immediate Equal,0x0 026d 0279 | y | Execute Discrete,And 026e 77d7 |w | Jump_Nonzero 0x246 026f 00ce | | Action Pop_Auxiliary 0270 00d9 | | Load_Top At_Offset_1 0271 6802 |h | Jump_Zero 0x274 0272 00db | | Load_Top At_Offset_3 0273 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0274 00d8 | | Load_Top At_Offset_0 0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00db | | Load_Top At_Offset_3 027c 00db | | Load_Top At_Offset_3 027d 821b | | Call 0x1,0x1b 027e 0e00 | | Execute_Immediate Not_Equal,0x0 027f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0285 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0287 0000 | | .XXX[0x1] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 821a | | Call 0x1,0x1a 028d 6807 |h | Jump_Zero 0x295 028e e223 | # | Load 0x1,0x23 028f e5fe | | Load 0x2,-0x2 0290 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0291 4800 |H | Short_Literal 0x0 0292 e5fe | | Load 0x2,-0x2 0293 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0294 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0295 00da | | Load_Top At_Offset_2 0296 e5fe | | Load 0x2,-0x2 0297 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0298 4801 |H | Short_Literal 0x1 0299 e5fe | | Load 0x2,-0x2 029a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 02a4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a5 821a | | Call 0x1,0x1a 02a6 6802 |h | Jump_Zero 0x2a9 02a7 4801 |H | Short_Literal 0x1 02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a9 00da | | Load_Top At_Offset_2 02aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ab 00db | | Load_Top At_Offset_3 02ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ad 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ae 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02af 0a01 | | Execute_Immediate Plus,0x1 02b0 027f | | Execute Discrete,Equal 02b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b2 0000 0000 | | .BLANK 0000[0x6] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02bd 0c01 | | Execute_Immediate Greater_Equal,0x1 02be 00db | | Load_Top At_Offset_3 02bf 821f | | Call 0x1,0x1f 02c0 0f00 | | Execute_Immediate Equal,0x0 02c1 0279 | y | Execute Discrete,And 02c2 680f |h | Jump_Zero 0x2d2 02c3 00da | | Load_Top At_Offset_2 02c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c5 00db | | Load_Top At_Offset_3 02c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02c8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02c9 01d7 | | Execute Vector,Field_Read 02ca 00d8 | | Load_Top At_Offset_0 02cb 0120 | | Execute Any,Is_Value 02cc 7002 |p | Jump_Nonzero 0x2cf 02cd 00d8 | | Load_Top At_Offset_0 02ce 011e | | Execute Any,Convert 02cf e20e | | Load 0x1,0xe 02d0 0119 | | Execute Any,Check_In_Formal_Type 02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d2 e210 | | Load 0x1,0x10 02d3 00d8 | | Load_Top At_Offset_0 02d4 0120 | | Execute Any,Is_Value 02d5 7002 |p | Jump_Nonzero 0x2d8 02d6 00d8 | | Load_Top At_Offset_0 02d7 011e | | Execute Any,Convert 02d8 e20e | | Load 0x1,0xe 02d9 0119 | | Execute Any,Check_In_Formal_Type 02da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02db 0000 0000 | | .BLANK 0000[0x5] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 821f | | Call 0x1,0x1f 02e5 7005 |p | Jump_Nonzero 0x2eb 02e6 00da | | Load_Top At_Offset_2 02e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02e8 0a01 | | Execute_Immediate Plus,0x1 02e9 00db | | Load_Top At_Offset_3 02ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 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 INIT_02f0: 02f3 00d1 | | Pop_Control Pop_Count_1 02f4 00da | | Load_Top At_Offset_2 02f5 01dc | | Execute Vector,Last 02f6 00db | | Load_Top At_Offset_3 02f7 01dd | | Execute Vector,First 02f8 0263 | c | Execute Discrete,Above_Bound 02f9 700a |p | Jump_Nonzero 0x304 02fa 00d8 | | Load_Top At_Offset_0 02fb e5ff | | Load 0x2,-0x1 02fc 01d5 | | Execute Vector,Field_Reference 02fd 0125 | % | Execute Any,Set_Constraint 02fe 00d8 | | Load_Top At_Offset_0 02ff e5ff | | Load 0x2,-0x1 0300 01d5 | | Execute Vector,Field_Reference 0301 1c00 | | Execute_Immediate Run_Utility,0x0 0302 0a01 | | Execute_Immediate Plus,0x1 0303 7ff4 | | Jump 0x2f8 0304 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4609 |F | Jump_Case 0xa 030c 7809 |x | Jump 0x316 ; case 0x0 030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 030e 7817 |x | Jump 0x326 ; case 0x2 030f 781a |x | Jump 0x32a ; case 0x3 0310 7836 |x6 | Jump 0x347 ; case 0x4 0311 7835 |x5 | Jump 0x347 ; case 0x5 0312 7834 |x4 | Jump 0x347 ; case 0x6 0313 781c |x | Jump 0x330 ; case 0x7 0314 7824 |x$ | Jump 0x339 ; case 0x8 0315 782d |x- | Jump 0x343 ; case 0x9 0316 00da | | Load_Top At_Offset_2 0317 016c | l | Execute Variant_Record,Is_Constrained 0318 7009 |p | Jump_Nonzero 0x322 0319 00cf | | Action Mark_Auxiliary 031a 4800 |H | Short_Literal 0x0 031b e5ff | | Load 0x2,-0x1 031c 1c08 | | Execute_Immediate Run_Utility,0x8 031d 00d8 | | Load_Top At_Offset_0 031e 1c00 | | Execute_Immediate Run_Utility,0x0 031f c5ff | | Store 0x2,-0x1 0320 00ce | | Action Pop_Auxiliary 0321 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0322 00da | | Load_Top At_Offset_2 0323 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0324 1c00 | | Execute_Immediate Run_Utility,0x0 0325 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0326 4801 |H | Short_Literal 0x1 0327 4802 |H | Short_Literal 0x2 0328 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0329 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 032a e5fd | | Load 0x2,-0x3 032b 00db | | Load_Top At_Offset_3 032c 1c07 | | Execute_Immediate Run_Utility,0x7 032d e5fe | | Load 0x2,-0x2 032e 0306 | | Complete_Type Variant_Record,By_Renaming 032f 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0330 00db | | Load_Top At_Offset_3 0331 4801 |H | Short_Literal 0x1 0332 e5fe | | Load 0x2,-0x2 0333 e224 | $ | Load 0x1,0x24 0334 035b | [ | Declare_Type Array,Constrained 0335 4801 |H | Short_Literal 0x1 0336 e5ff | | Load 0x2,-0x1 0337 031b | | Declare_Type Variant_Record,Constrained 0338 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0339 00db | | Load_Top At_Offset_3 033a 00db | | Load_Top At_Offset_3 033b 02fc | | Declare_Variable Variant_Record,With_Constraint 033c 4801 |H | Short_Literal 0x1 033d e5fe | | Load 0x2,-0x2 033e e224 | $ | Load 0x1,0x24 033f 0334 | 4 | Declare_Variable Array,With_Constraint 0340 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 0341 016a | j | QQ_execute Variant_Record,XXX 0342 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0343 4800 |H | Short_Literal 0x0 0344 00db | | Load_Top At_Offset_3 0345 1c07 | | Execute_Immediate Run_Utility,0x7 0346 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0347 0869 | i | Execute_Immediate Raise,0x69 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 4601 |F | Jump_Case 0x2 034c 7801 |x | Jump 0x34e ; case 0x0 034d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 034e 00da | | Load_Top At_Offset_2 034f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0350 1c00 | | Execute_Immediate Run_Utility,0x0 0351 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0352 0000 0000 | | .BLANK 0000[0x6] 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 4601 |F | Jump_Case 0x2 035c 7801 |x | Jump 0x35e ; case 0x0 035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 035e e223 | # | Load 0x1,0x23 035f 00db | | Load_Top At_Offset_3 0360 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0361 4800 |H | Short_Literal 0x0 0362 00db | | Load_Top At_Offset_3 0363 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0364 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0365 0000 0000 | | .XXX[0x3] 0367 0000 | | 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug Table 0368 ; -------------------------------------------------------------------------------------- 0368 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd767,0x0000,0x0001,0x0014 036e 000b 03be | | .DBG4T 0x000b,0x03be,0xc000,0x8000 0372 0082 03f0 | | .DBG4T 0x0082,0x03f0,0xc000,0x0000 0376 00a3 0400 | | .DBG4T 0x00a3,0x0400,0x1001,0x4000 037a 0173 0424 | s $| .DBG4T 0x0173,0x0424,0x1001,0x0000 037e 0193 042b | +| .DBG4T 0x0193,0x042b,0x1001,0x4000 0382 01eb 0451 | Q| .DBG4T 0x01eb,0x0451,0x1001,0x0000 0386 0203 0458 | X| .DBG4T 0x0203,0x0458,0x1001,0x4000 038a 021b 0463 | c| .DBG4T 0x021b,0x0463,0x1002,0x0000 038e 022b 0466 | + f| .DBG4T 0x022b,0x0466,0x1002,0x0000 0392 0233 0469 | 3 i| .DBG4T 0x0233,0x0469,0x1002,0x4000 0396 027b 0488 | { | .DBG4T 0x027b,0x0488,0x1002,0x0000 039a 0283 048b | | .DBG4T 0x0283,0x048b,0x1002,0x0000 039e 028b 048e | | .DBG4T 0x028b,0x048e,0x1001,0x0000 03a2 02a3 0495 | | .DBG4T 0x02a3,0x0495,0x1002,0x0000 03a6 02bb 049a | | .DBG4T 0x02bb,0x049a,0x1002,0x0000 03aa 02e3 049f | | .DBG4T 0x02e3,0x049f,0x1001,0x0000 03ae 02f3 0000 | | .DBG4T 0x02f3,0x0000,0x1005,0x0000 03b2 030b 0000 | | .DBG4T 0x030b,0x0000,0x1005,0x0000 03b6 034b 0000 | K | .DBG4T 0x034b,0x0000,0x1005,0x0000 03ba 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000 03be ; -------------------------------------------------------------------------------------- 03be ; Debug chain 03be ; -------------------------------------------------------------------------------------- 03be 0018 0000 | | .DBGLEN 0x0018,0x0000 03c0 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002c,0x002d,0x0034,0x003e,0x0050,0x0055,0x005b,0x0077 03d8 0002 0003 | | .XXX[0x18] 03da 0004 0005 | | 03dc 0006 0007 | | 03de 0008 0009 | | 03e0 000a 000b | | 03e2 000c 000e | | 03e4 000f 0010 | | 03e6 0011 0012 | | 03e8 0013 0014 | | 03ea 0015 0016 | | 03ec 0017 0018 | | 03ee 0019 001a | | 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; Debug chain 03f0 ; -------------------------------------------------------------------------------------- 03f0 000e 0000 | | .DBGLEN 0x000e,0x0000 03f2 0082 0084 | | .DBGLNO 0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c 0400 ; -------------------------------------------------------------------------------------- 0400 ; Debug chain 0400 ; -------------------------------------------------------------------------------------- 0400 0002 0010 | | .DBGLEN 0x0002,0x0010 0402 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00b5,0x00b8,0x00bb,0x00be,0x00c0,0x00ea,0x00ee,0x0100,0x0107,0x0109,0x0110,0x012c,0x0136,0x0138,0x014d,0x0169 0414 0001 0002 | | .XXX[0x10] 0416 0003 0004 | | 0418 0005 0007 | | 041a 0006 0008 | | 041c 0009 000a | | 041e 000b 000c | | 0420 000d 000e | | 0422 000f 0010 | | 0424 ; -------------------------------------------------------------------------------------- 0424 ; Debug chain 0424 ; -------------------------------------------------------------------------------------- 0424 0002 0003 | | .DBGLEN 0x0002,0x0003 0426 0173 0179 | s y| .DBGLNO 0x0173,0x0179,0x017a,0x017c,0x0185 042b ; -------------------------------------------------------------------------------------- 042b ; Debug chain 042b ; -------------------------------------------------------------------------------------- 042b 0002 0011 | | .DBGLEN 0x0002,0x0011 042d 0193 0196 | | .DBGLNO 0x0193,0x0196,0x0198,0x019b,0x019d,0x01a0,0x01a2,0x01a9,0x01ae,0x01b7,0x01bb,0x01c4,0x01c8,0x01cb,0x01d3,0x01d5,0x01d7,0x01de,0x01e0 0440 0001 0002 | | .XXX[0x11] 0442 0003 0004 | | 0444 0005 0007 | | 0446 0008 0009 | | 0448 000a 000b | | 044a 000c 0006 | | 044c 000d 000e | | 044e 000f 0010 | | 0450 0011 | | 0451 ; -------------------------------------------------------------------------------------- 0451 ; Debug chain 0451 ; -------------------------------------------------------------------------------------- 0451 0000 0005 | | .DBGLEN 0x0000,0x0005 0453 01eb 01f2 | | .DBGLNO 0x01eb,0x01f2,0x01f4,0x01f7,0x01f9 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug chain 0458 ; -------------------------------------------------------------------------------------- 0458 0001 0004 | | .DBGLEN 0x0001,0x0004 045a 0203 0207 | | .DBGLNO 0x0203,0x0207,0x020d,0x0210,0x0214 045f 0001 0003 | | .XXX[0x4] 0461 0004 0002 | | 0463 ; -------------------------------------------------------------------------------------- 0463 ; Debug chain 0463 ; -------------------------------------------------------------------------------------- 0463 0000 0001 | | .DBGLEN 0x0000,0x0001 0465 021b | | .DBGLNO 0x021b 0466 ; -------------------------------------------------------------------------------------- 0466 ; Debug chain 0466 ; -------------------------------------------------------------------------------------- 0466 0000 0001 | | .DBGLEN 0x0000,0x0001 0468 022b | + | .DBGLNO 0x022b 0469 ; -------------------------------------------------------------------------------------- 0469 ; Debug chain 0469 ; -------------------------------------------------------------------------------------- 0469 0003 000d | | .DBGLEN 0x0003,0x000d 046b 0233 0236 | 3 6| .DBGLNO 0x0233,0x0236,0x0238,0x023a,0x023d,0x023f,0x0246,0x024b,0x0254,0x0258,0x0261,0x0265,0x0268,0x0270,0x0272,0x0274 047b 0001 0002 | | .XXX[0xd] 047d 0003 0005 | | 047f 0006 0007 | | 0481 0008 0009 | | 0483 000a 0004 | | 0485 000b 000c | | 0487 000d | | 0488 ; -------------------------------------------------------------------------------------- 0488 ; Debug chain 0488 ; -------------------------------------------------------------------------------------- 0488 0000 0001 | | .DBGLEN 0x0000,0x0001 048a 027b | { | .DBGLNO 0x027b 048b ; -------------------------------------------------------------------------------------- 048b ; Debug chain 048b ; -------------------------------------------------------------------------------------- 048b 0000 0001 | | .DBGLEN 0x0000,0x0001 048d 0283 | | .DBGLNO 0x0283 048e ; -------------------------------------------------------------------------------------- 048e ; Debug chain 048e ; -------------------------------------------------------------------------------------- 048e 0000 0005 | | .DBGLEN 0x0000,0x0005 0490 028b 028e | | .DBGLNO 0x028b,0x028e,0x0291,0x0295,0x0298 0495 ; -------------------------------------------------------------------------------------- 0495 ; Debug chain 0495 ; -------------------------------------------------------------------------------------- 0495 0000 0003 | | .DBGLEN 0x0000,0x0003 0497 02a3 02a7 | | .DBGLNO 0x02a3,0x02a7,0x02a9 049a ; -------------------------------------------------------------------------------------- 049a ; Debug chain 049a ; -------------------------------------------------------------------------------------- 049a 0000 0003 | | .DBGLEN 0x0000,0x0003 049c 02bb 02c3 | | .DBGLNO 0x02bb,0x02c3,0x02d2 049f ; -------------------------------------------------------------------------------------- 049f ; Debug chain 049f ; -------------------------------------------------------------------------------------- 049f 0000 0002 | | .DBGLEN 0x0000,0x0002 04a1 02e3 02e6 | | .DBGLNO 0x02e3,0x02e6 04a3 0000 0000 | | .BLANK 0000[0x15d]