|
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_0e3cfe
└─⟦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 0350 | P | .CONST 0x0350 ; 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 009a | | .CONST 0x009a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; 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 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0013 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0015 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0017 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0019 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 001b 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 001d 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 001f 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0021 029a 0273 | s| Declare_Subprogram INIT_0270,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 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b e213 | | Load 0x1,0x13 002c 0266 | f | Execute Discrete,Bounds 002d e20e | | Load 0x1,0xe 002e 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 0030 4801 |H | Short_Literal 0x1 0031 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0032 4801 |H | Short_Literal 0x1 0033 4800 |H | Short_Literal 0x0 0034 00da | | Load_Top At_Offset_2 0035 035b | [ | Declare_Type Array,Constrained 0036 0336 | 6 | Declare_Variable Array,Visible 0037 00d8 | | Load_Top At_Offset_0 0038 0335 | 5 | Declare_Variable Array,Duplicate 0039 00cd | | Action Spare6_Action 003a 00d9 | | Load_Top At_Offset_1 003b 01d4 | | Execute Vector,Structure_Write 003c e213 | | Load 0x1,0x13 003d 4801 |H | Short_Literal 0x1 003e 00db | | Load_Top At_Offset_3 003f 01dc | | Execute Vector,Last 0040 e213 | | Load 0x1,0x13 0041 0269 | i | Execute Discrete,Last 0042 026c | l | Execute Discrete,Minimum 0043 e223 | # | Load 0x1,0x23 0044 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0045 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 0047 4800 |H | Short_Literal 0x0 0048 4801 |H | Short_Literal 0x1 0049 4800 |H | Short_Literal 0x0 004a 4800 |H | Short_Literal 0x0 004b 4801 |H | Short_Literal 0x1 004c 4801 |H | Short_Literal 0x1 004d 031e | | Declare_Type Variant_Record,Defined,Visible 004e 00d8 | | Load_Top At_Offset_0 004f 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call 0051 4801 |H | Short_Literal 0x1 0052 032e | . | Declare_Type Record,Defined,Visible 0053 00d8 | | Load_Top At_Offset_0 0054 e213 | | Load 0x1,0x13 0055 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 0057 4802 |H | Short_Literal 0x2 0058 032e | . | Declare_Type Record,Defined,Visible 0059 00d9 | | Load_Top At_Offset_1 005a 0322 | " | Declare_Variable Record 005b 4800 |H | Short_Literal 0x0 005c e225 | % | Load 0x1,0x25 005d 1c08 | | Execute_Immediate Run_Utility,0x8 005e e224 | $ | Load 0x1,0x24 005f 00d9 | | Load_Top At_Offset_1 0060 00d8 | | Load_Top At_Offset_0 0061 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0062 00da | | Load_Top At_Offset_2 0063 01da | | Execute Vector,Bounds 0064 00da | | Load_Top At_Offset_2 0065 01da | | Execute Vector,Bounds 0066 00da | | Load_Top At_Offset_2 0067 027f | | Execute Discrete,Equal 0068 7001 |p | Jump_Nonzero 0x6a 0069 08e0 | | Execute_Immediate Raise,0xe0 006a 00cd | | Action Spare6_Action 006b 027f | | Execute Discrete,Equal 006c 7001 |p | Jump_Nonzero 0x6e 006d 08e0 | | Execute_Immediate Raise,0xe0 006e 00d2 | | Pop_Control Pop_Count_2 006f 00d9 | | Load_Top At_Offset_1 0070 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0071 00d9 | | Load_Top At_Offset_1 0072 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0073 0129 | ) | Execute Any,Make_Visible 0074 c222 | " | Store 0x1,0x22 0075 00d8 | | Load_Top At_Offset_0 0076 0322 | " | Declare_Variable Record 0077 e222 | " | Load 0x1,0x22 0078 00d9 | | Load_Top At_Offset_1 0079 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007a 4800 |H | Short_Literal 0x0 007b 00d9 | | Load_Top At_Offset_1 007c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007d 0129 | ) | Execute Any,Make_Visible 007e c221 | ! | Store 0x1,0x21 007f 00bf | | Action Accept_Activation 0080 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0081 00c7 | | Action Elaborate_Subprogram 0082 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0083 00c7 | | Action Elaborate_Subprogram 0084 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0085 00c7 | | Action Elaborate_Subprogram 0086 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0087 00c7 | | Action Elaborate_Subprogram 0088 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0089 00c7 | | Action Elaborate_Subprogram 008a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 008b 00c7 | | Action Elaborate_Subprogram 008c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 008d 00c7 | | Action Elaborate_Subprogram 008e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 008f 00c7 | | Action Elaborate_Subprogram 0090 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0091 00c7 | | Action Elaborate_Subprogram 0092 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0093 00c7 | | Action Elaborate_Subprogram 0094 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0097 00c7 | | Action Elaborate_Subprogram 0098 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0099 00c7 | | Action Elaborate_Subprogram 009a BODY_0008: 009a 00bc | | Action Signal_Activated 009b 00bb | | Action Signal_Completion 009c 0000 0000 | | .BLANK 0000[0x4] 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 e223 | # | Load 0x1,0x23 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 682a |h* | Jump_Zero 0xe2 00b8 4801 |H | Short_Literal 0x1 00b9 a5fd | | Store_Unchecked 0x2,-0x3 00ba 4801 |H | Short_Literal 0x1 00bb e225 | % | Load 0x1,0x25 00bc 1c08 | | Execute_Immediate Run_Utility,0x8 00bd 00d8 | | Load_Top At_Offset_0 00be 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00bf 0335 | 5 | Declare_Variable Array,Duplicate 00c0 00cd | | Action Spare6_Action 00c1 00d9 | | Load_Top At_Offset_1 00c2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00c3 01d9 | | Execute Vector,Reverse_Bounds 00c4 0263 | c | Execute Discrete,Above_Bound 00c5 7007 |p | Jump_Nonzero 0xcd 00c6 e5ff | | Load 0x2,-0x1 00c7 e20e | | Load 0x1,0xe 00c8 0119 | | Execute Any,Check_In_Formal_Type 00c9 00d9 | | Load_Top At_Offset_1 00ca e405 | | Load 0x2,0x5 00cb 01d6 | | Execute Vector,Field_Write 00cc 3ff9 |? | Loop_Increasing 0xc6 00cd 00d9 | | Load_Top At_Offset_1 00ce 00d8 | | Load_Top At_Offset_0 00cf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00d0 00da | | Load_Top At_Offset_2 00d1 01da | | Execute Vector,Bounds 00d2 00da | | Load_Top At_Offset_2 00d3 01da | | Execute Vector,Bounds 00d4 00da | | Load_Top At_Offset_2 00d5 027f | | Execute Discrete,Equal 00d6 7001 |p | Jump_Nonzero 0xd8 00d7 08e0 | | Execute_Immediate Raise,0xe0 00d8 00cd | | Action Spare6_Action 00d9 027f | | Execute Discrete,Equal 00da 7001 |p | Jump_Nonzero 0xdc 00db 08e0 | | Execute_Immediate Raise,0xe0 00dc 00d2 | | Pop_Control Pop_Count_2 00dd 00d9 | | Load_Top At_Offset_1 00de 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 00df e5fe | | Load 0x2,-0x2 00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e2 00cf | | Action Mark_Auxiliary 00e3 7804 |x | Jump 0xe8 00e4 00da | | Load_Top At_Offset_2 00e5 0a01 | | Execute_Immediate Plus,0x1 00e6 005b | [ | Store_Top Discrete,At_Offset_3 00e7 00c9 | | Action Pop_Auxiliary_Loop 00e8 00da | | Load_Top At_Offset_2 00e9 e5fe | | Load 0x2,-0x2 00ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00eb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00ec 01da | | Execute Vector,Bounds 00ed 0262 | b | Execute Discrete,In_Range 00ee 680a |h | Jump_Zero 0xf9 00ef 00da | | Load_Top At_Offset_2 00f0 e5fe | | Load 0x2,-0x2 00f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00f3 01d7 | | Execute Vector,Field_Read 00f4 8212 | | Call 0x1,0x12 00f5 e5ff | | Load 0x2,-0x1 00f6 8212 | | Call 0x1,0x12 00f7 01c1 | | Execute Vector,Less 00f8 77eb |w | Jump_Nonzero 0xe4 00f9 00ce | | Action Pop_Auxiliary 00fa 00d9 | | Load_Top At_Offset_1 00fb e5fe | | Load 0x2,-0x2 00fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00fd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00fe 01da | | Execute Vector,Bounds 00ff 0261 | a | Execute Discrete,Not_In_Range 0100 6825 |h% | Jump_Zero 0x126 0101 4801 |H | Short_Literal 0x1 0102 a5fd | | Store_Unchecked 0x2,-0x3 0103 e5ff | | Load 0x2,-0x1 0104 e5fe | | Load 0x2,-0x2 0105 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0106 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0107 01cb | | Execute Vector,Append 0108 00d9 | | Load_Top At_Offset_1 0109 01d4 | | Execute Vector,Structure_Write 010a e5fe | | Load 0x2,-0x2 010b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 010c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 010d 0a01 | | Execute_Immediate Plus,0x1 010e e225 | % | Load 0x1,0x25 010f 1c08 | | Execute_Immediate Run_Utility,0x8 0110 00d9 | | Load_Top At_Offset_1 0111 00d9 | | Load_Top At_Offset_1 0112 00d8 | | Load_Top At_Offset_0 0113 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0114 00da | | Load_Top At_Offset_2 0115 01da | | Execute Vector,Bounds 0116 00da | | Load_Top At_Offset_2 0117 01da | | Execute Vector,Bounds 0118 00da | | Load_Top At_Offset_2 0119 027f | | Execute Discrete,Equal 011a 7001 |p | Jump_Nonzero 0x11c 011b 08e0 | | Execute_Immediate Raise,0xe0 011c 00cd | | Action Spare6_Action 011d 027f | | Execute Discrete,Equal 011e 7001 |p | Jump_Nonzero 0x120 011f 08e0 | | Execute_Immediate Raise,0xe0 0120 00d2 | | Pop_Control Pop_Count_2 0121 00d9 | | Load_Top At_Offset_1 0122 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0123 e5fe | | Load 0x2,-0x2 0124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0125 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0126 00d9 | | Load_Top At_Offset_1 0127 e5fe | | Load 0x2,-0x2 0128 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0129 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 012a 01d7 | | Execute Vector,Field_Read 012b 8212 | | Call 0x1,0x12 012c e5ff | | Load 0x2,-0x1 012d 8212 | | Call 0x1,0x12 012e 01de | | Execute Vector,Not_Equal 012f 6833 |h3 | Jump_Zero 0x163 0130 4801 |H | Short_Literal 0x1 0131 a5fd | | Store_Unchecked 0x2,-0x3 0132 e5ff | | Load 0x2,-0x1 0133 4801 |H | Short_Literal 0x1 0134 00db | | Load_Top At_Offset_3 0135 0aff | | Execute_Immediate Plus,-0x1 0136 e5fe | | Load 0x2,-0x2 0137 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0138 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0139 01cf | | Execute Vector,Slice_Read 013a 01cb | | Execute Vector,Append 013b 00da | | Load_Top At_Offset_2 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 01dc | | Execute Vector,Last 0140 e5fe | | Load 0x2,-0x2 0141 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0142 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0143 01cf | | Execute Vector,Slice_Read 0144 01cc | | Execute Vector,Catenate 0145 00d9 | | Load_Top At_Offset_1 0146 01d4 | | Execute Vector,Structure_Write 0147 e5fe | | Load 0x2,-0x2 0148 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0149 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 014a 0a01 | | Execute_Immediate Plus,0x1 014b e225 | % | Load 0x1,0x25 014c 1c08 | | Execute_Immediate Run_Utility,0x8 014d 00d9 | | Load_Top At_Offset_1 014e 00d9 | | Load_Top At_Offset_1 014f 00d8 | | Load_Top At_Offset_0 0150 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0151 00da | | Load_Top At_Offset_2 0152 01da | | Execute Vector,Bounds 0153 00da | | Load_Top At_Offset_2 0154 01da | | Execute Vector,Bounds 0155 00da | | Load_Top At_Offset_2 0156 027f | | Execute Discrete,Equal 0157 7001 |p | Jump_Nonzero 0x159 0158 08e0 | | Execute_Immediate Raise,0xe0 0159 00cd | | Action Spare6_Action 015a 027f | | Execute Discrete,Equal 015b 7001 |p | Jump_Nonzero 0x15d 015c 08e0 | | Execute_Immediate Raise,0xe0 015d 00d2 | | Pop_Control Pop_Count_2 015e 00d9 | | Load_Top At_Offset_1 015f 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0160 e5fe | | Load 0x2,-0x2 0161 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0162 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0163 4800 |H | Short_Literal 0x0 0164 a5fd | | Store_Unchecked 0x2,-0x3 0165 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0172 | r | .CONST 0x0172 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 8212 | | Call 0x1,0x12 016d e5fe | | Load 0x2,-0x2 016e 821a | | Call 0x1,0x1a 016f e213 | | Load 0x1,0x13 0170 03f1 | | Declare_Variable Discrete,With_Value 0171 00e1 | | Load_Encached Boolean_Cache 0172 BODY_0168: 0172 00d9 | | Load_Top At_Offset_1 0173 7009 |p | Jump_Nonzero 0x17d 0174 00e1 | | Load_Encached Boolean_Cache 0175 e5fe | | Load 0x2,-0x2 0176 e5ff | | Load 0x2,-0x1 0177 e20e | | Load 0x1,0xe 0178 0119 | | Execute Any,Check_In_Formal_Type 0179 8214 | | Call 0x1,0x14 017a 00d1 | | Pop_Control Pop_Count_1 017b 0059 | Y | Store_Top Discrete,At_Offset_1 017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017d e5ff | | Load 0x2,-0x1 017e 00da | | Load_Top At_Offset_2 017f e5fe | | Load 0x2,-0x2 0180 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0181 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0182 01d6 | | Execute Vector,Field_Write 0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0190 | | .CONST 0x0190 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0005 | | .CONST 0x0005 ; Number of locals 018b INIT_0188: 018b e213 | | Load 0x1,0x13 018c 03e9 | | Declare_Variable Discrete,Duplicate 018d 03e9 | | Declare_Variable Discrete,Duplicate 018e 00e1 | | Load_Encached Boolean_Cache 018f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0190 BODY_0188: 0190 e5ff | | Load 0x2,-0x1 0191 8219 | | Call 0x1,0x19 0192 6805 |h | Jump_Zero 0x198 0193 4800 |H | Short_Literal 0x0 0194 a5fc | | Store_Unchecked 0x2,-0x4 0195 e210 | | Load 0x1,0x10 0196 c5fd | | Store 0x2,-0x3 0197 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0198 4801 |H | Short_Literal 0x1 0199 c402 | | Store 0x2,0x2 019a e5ff | | Load 0x2,-0x1 019b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 019c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 019d 01dc | | Execute Vector,Last 019e 005a | Z | Store_Top Discrete,At_Offset_2 019f 00cf | | Action Mark_Auxiliary 01a0 7822 |x" | Jump 0x1c3 01a1 e402 | | Load 0x2,0x2 01a2 00db | | Load_Top At_Offset_3 01a3 0273 | s | Execute Discrete,Plus 01a4 09ff | | Execute_Immediate Binary_Scale,-0x1 01a5 c403 | | Store 0x2,0x3 01a6 00db | | Load_Top At_Offset_3 01a7 e5ff | | Load 0x2,-0x1 01a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a9 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01aa 01d7 | | Execute Vector,Field_Read 01ab 8212 | | Call 0x1,0x12 01ac e5fe | | Load 0x2,-0x2 01ad 01c1 | | Execute Vector,Less 01ae 6804 |h | Jump_Zero 0x1b3 01af 00db | | Load_Top At_Offset_3 01b0 0a01 | | Execute_Immediate Plus,0x1 01b1 c402 | | Store 0x2,0x2 01b2 780f |x | Jump 0x1c2 01b3 e5fe | | Load 0x2,-0x2 01b4 e403 | | Load 0x2,0x3 01b5 e5ff | | Load 0x2,-0x1 01b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01b8 01d7 | | Execute Vector,Field_Read 01b9 8212 | | Call 0x1,0x12 01ba 01c1 | | Execute Vector,Less 01bb 6804 |h | Jump_Zero 0x1c0 01bc 00db | | Load_Top At_Offset_3 01bd 0aff | | Execute_Immediate Plus,-0x1 01be 005b | [ | Store_Top Discrete,At_Offset_3 01bf 7802 |x | Jump 0x1c2 01c0 4801 |H | Short_Literal 0x1 01c1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01c2 00c9 | | Action Pop_Auxiliary_Loop 01c3 e402 | | Load 0x2,0x2 01c4 00db | | Load_Top At_Offset_3 01c5 027a | z | Execute Discrete,Less_Equal 01c6 00da | | Load_Top At_Offset_2 01c7 0f00 | | Execute_Immediate Equal,0x0 01c8 0279 | y | Execute Discrete,And 01c9 77d7 |w | Jump_Nonzero 0x1a1 01ca 00ce | | Action Pop_Auxiliary 01cb 00d8 | | Load_Top At_Offset_0 01cc 6809 |h | Jump_Zero 0x1d6 01cd 4801 |H | Short_Literal 0x1 01ce a5fc | | Store_Unchecked 0x2,-0x4 01cf 00da | | Load_Top At_Offset_2 01d0 e5ff | | Load 0x2,-0x1 01d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01d3 01d7 | | Execute Vector,Field_Read 01d4 c5fd | | Store 0x2,-0x3 01d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d6 4800 |H | Short_Literal 0x0 01d7 a5fc | | Store_Unchecked 0x2,-0x4 01d8 e210 | | Load 0x1,0x10 01d9 c5fd | | Store 0x2,-0x3 01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 00db | | Load_Top At_Offset_3 01e5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e6 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01e7 01da | | Execute Vector,Bounds 01e8 0261 | a | Execute Discrete,Not_In_Range 01e9 6805 |h | Jump_Zero 0x1ef 01ea 4800 |H | Short_Literal 0x0 01eb a5fc | | Store_Unchecked 0x2,-0x4 01ec e210 | | Load 0x1,0x10 01ed c5fd | | Store 0x2,-0x3 01ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ef 4801 |H | Short_Literal 0x1 01f0 a5fc | | Store_Unchecked 0x2,-0x4 01f1 00db | | Load_Top At_Offset_3 01f2 00db | | Load_Top At_Offset_3 01f3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 01f5 01d7 | | Execute Vector,Field_Read 01f6 c5fd | | Store 0x2,-0x3 01f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e227 | ' | Load 0x1,0x27 01fc 0322 | " | Declare_Variable Record 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff BODY_01f8: 01ff 00d8 | | Load_Top At_Offset_0 0200 e5ff | | Load 0x2,-0x1 0201 821d | | Call 0x1,0x1d 0202 00d1 | | Pop_Control Pop_Count_1 0203 00cf | | Action Mark_Auxiliary 0204 7807 |x | Jump 0x20c 0205 00d9 | | Load_Top At_Offset_1 0206 821f | | Call 0x1,0x1f 0207 8211 | | Call 0x1,0x11 0208 00d9 | | Load_Top At_Offset_1 0209 8220 | | Call 0x1,0x20 020a 00d1 | | Pop_Control Pop_Count_1 020b 00c9 | | Action Pop_Auxiliary_Loop 020c 00d9 | | Load_Top At_Offset_1 020d 821e | | Call 0x1,0x1e 020e 6ff6 |o | Jump_Zero 0x205 020f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0215 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0216 0f00 | | Execute_Immediate Equal,0x0 0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0222 | " | .CONST 0x0222 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0006 | | .CONST 0x0006 ; Number of locals 021b INIT_0218: 021b e213 | | Load 0x1,0x13 021c 03e9 | | Declare_Variable Discrete,Duplicate 021d 03e9 | | Declare_Variable Discrete,Duplicate 021e 00e1 | | Load_Encached Boolean_Cache 021f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0220 e213 | | Load 0x1,0x13 0221 0700 | | Execute_Immediate Set_Value,0x0 0222 BODY_0218: 0222 e5ff | | Load 0x2,-0x1 0223 8219 | | Call 0x1,0x19 0224 7037 |p7 | Jump_Nonzero 0x25c 0225 4801 |H | Short_Literal 0x1 0226 c402 | | Store 0x2,0x2 0227 e5ff | | Load 0x2,-0x1 0228 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0229 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 022a 01dc | | Execute Vector,Last 022b 005b | [ | Store_Top Discrete,At_Offset_3 022c 00cf | | Action Mark_Auxiliary 022d 7822 |x" | Jump 0x250 022e e402 | | Load 0x2,0x2 022f e404 | | Load 0x2,0x4 0230 0273 | s | Execute Discrete,Plus 0231 09ff | | Execute_Immediate Binary_Scale,-0x1 0232 c403 | | Store 0x2,0x3 0233 e403 | | Load 0x2,0x3 0234 e5ff | | Load 0x2,-0x1 0235 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0236 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0237 01d7 | | Execute Vector,Field_Read 0238 8212 | | Call 0x1,0x12 0239 e5fe | | Load 0x2,-0x2 023a 01c1 | | Execute Vector,Less 023b 6804 |h | Jump_Zero 0x240 023c e403 | | Load 0x2,0x3 023d 0a01 | | Execute_Immediate Plus,0x1 023e c402 | | Store 0x2,0x2 023f 780f |x | Jump 0x24f 0240 e5fe | | Load 0x2,-0x2 0241 e403 | | Load 0x2,0x3 0242 e5ff | | Load 0x2,-0x1 0243 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0244 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0245 01d7 | | Execute Vector,Field_Read 0246 8212 | | Call 0x1,0x12 0247 01c1 | | Execute Vector,Less 0248 6804 |h | Jump_Zero 0x24d 0249 e403 | | Load 0x2,0x3 024a 0aff | | Execute_Immediate Plus,-0x1 024b c404 | | Store 0x2,0x4 024c 7802 |x | Jump 0x24f 024d 4801 |H | Short_Literal 0x1 024e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 024f 00c9 | | Action Pop_Auxiliary_Loop 0250 e402 | | Load 0x2,0x2 0251 e404 | | Load 0x2,0x4 0252 027a | z | Execute Discrete,Less_Equal 0253 00db | | Load_Top At_Offset_3 0254 0f00 | | Execute_Immediate Equal,0x0 0255 0279 | y | Execute Discrete,And 0256 77d7 |w | Jump_Nonzero 0x22e 0257 00ce | | Action Pop_Auxiliary 0258 00d9 | | Load_Top At_Offset_1 0259 6802 |h | Jump_Zero 0x25c 025a 00db | | Load_Top At_Offset_3 025b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 025c 00d8 | | Load_Top At_Offset_0 025d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00db | | Load_Top At_Offset_3 0264 00db | | Load_Top At_Offset_3 0265 821a | | Call 0x1,0x1a 0266 0e00 | | Execute_Immediate Not_Equal,0x0 0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 026d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 8219 | | Call 0x1,0x19 0275 6807 |h | Jump_Zero 0x27d 0276 e222 | " | Load 0x1,0x22 0277 e5fe | | Load 0x2,-0x2 0278 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0279 4800 |H | Short_Literal 0x0 027a e5fe | | Load 0x2,-0x2 027b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 027c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027d 00da | | Load_Top At_Offset_2 027e e5fe | | Load 0x2,-0x2 027f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0280 4801 |H | Short_Literal 0x1 0281 e5fe | | Load 0x2,-0x2 0282 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0284 0000 0000 | | .BLANK 0000[0x4] 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 028d 8219 | | Call 0x1,0x19 028e 6802 |h | Jump_Zero 0x291 028f 4801 |H | Short_Literal 0x1 0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0291 00da | | Load_Top At_Offset_2 0292 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0293 00db | | Load_Top At_Offset_3 0294 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0295 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0296 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0297 0a01 | | Execute_Immediate Plus,0x1 0298 027f | | Execute Discrete,Equal 0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029a 0000 0000 | | .BLANK 0000[0x6] 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a5 0c01 | | Execute_Immediate Greater_Equal,0x1 02a6 00db | | Load_Top At_Offset_3 02a7 821e | | Call 0x1,0x1e 02a8 0f00 | | Execute_Immediate Equal,0x0 02a9 0279 | y | Execute Discrete,And 02aa 680f |h | Jump_Zero 0x2ba 02ab 00da | | Load_Top At_Offset_2 02ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ad 00db | | Load_Top At_Offset_3 02ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02b1 01d7 | | Execute Vector,Field_Read 02b2 00d8 | | Load_Top At_Offset_0 02b3 0120 | | Execute Any,Is_Value 02b4 7002 |p | Jump_Nonzero 0x2b7 02b5 00d8 | | Load_Top At_Offset_0 02b6 011e | | Execute Any,Convert 02b7 e20e | | Load 0x1,0xe 02b8 0119 | | Execute Any,Check_In_Formal_Type 02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ba e210 | | Load 0x1,0x10 02bb 00d8 | | Load_Top At_Offset_0 02bc 0120 | | Execute Any,Is_Value 02bd 7002 |p | Jump_Nonzero 0x2c0 02be 00d8 | | Load_Top At_Offset_0 02bf 011e | | Execute Any,Convert 02c0 e20e | | Load 0x1,0xe 02c1 0119 | | Execute Any,Check_In_Formal_Type 02c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c3 0000 0000 | | .BLANK 0000[0x5] 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 821e | | Call 0x1,0x1e 02cd 7005 |p | Jump_Nonzero 0x2d3 02ce 00da | | Load_Top At_Offset_2 02cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d0 0a01 | | Execute_Immediate Plus,0x1 02d1 00db | | Load_Top At_Offset_3 02d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d4 0000 0000 | | .BLANK 0000[0x4] 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 00d1 | | Pop_Control Pop_Count_1 02dc 00da | | Load_Top At_Offset_2 02dd 01dc | | Execute Vector,Last 02de 00db | | Load_Top At_Offset_3 02df 01dd | | Execute Vector,First 02e0 0263 | c | Execute Discrete,Above_Bound 02e1 700a |p | Jump_Nonzero 0x2ec 02e2 00d8 | | Load_Top At_Offset_0 02e3 e5ff | | Load 0x2,-0x1 02e4 01d5 | | Execute Vector,Field_Reference 02e5 0125 | % | Execute Any,Set_Constraint 02e6 00d8 | | Load_Top At_Offset_0 02e7 e5ff | | Load 0x2,-0x1 02e8 01d5 | | Execute Vector,Field_Reference 02e9 1c00 | | Execute_Immediate Run_Utility,0x0 02ea 0a01 | | Execute_Immediate Plus,0x1 02eb 7ff4 | | Jump 0x2e0 02ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 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 4609 |F | Jump_Case 0xa 02f4 7809 |x | Jump 0x2fe ; case 0x0 02f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02f6 7817 |x | Jump 0x30e ; case 0x2 02f7 781a |x | Jump 0x312 ; case 0x3 02f8 7836 |x6 | Jump 0x32f ; case 0x4 02f9 7835 |x5 | Jump 0x32f ; case 0x5 02fa 7834 |x4 | Jump 0x32f ; case 0x6 02fb 781c |x | Jump 0x318 ; case 0x7 02fc 7824 |x$ | Jump 0x321 ; case 0x8 02fd 782d |x- | Jump 0x32b ; case 0x9 02fe 00da | | Load_Top At_Offset_2 02ff 016c | l | Execute Variant_Record,Is_Constrained 0300 7009 |p | Jump_Nonzero 0x30a 0301 00cf | | Action Mark_Auxiliary 0302 4800 |H | Short_Literal 0x0 0303 e5ff | | Load 0x2,-0x1 0304 1c08 | | Execute_Immediate Run_Utility,0x8 0305 00d8 | | Load_Top At_Offset_0 0306 1c00 | | Execute_Immediate Run_Utility,0x0 0307 c5ff | | Store 0x2,-0x1 0308 00ce | | Action Pop_Auxiliary 0309 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 030a 00da | | Load_Top At_Offset_2 030b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 030c 1c00 | | Execute_Immediate Run_Utility,0x0 030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 030e 4801 |H | Short_Literal 0x1 030f 4802 |H | Short_Literal 0x2 0310 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0311 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0312 e5fd | | Load 0x2,-0x3 0313 00db | | Load_Top At_Offset_3 0314 1c07 | | Execute_Immediate Run_Utility,0x7 0315 e5fe | | Load 0x2,-0x2 0316 0306 | | Complete_Type Variant_Record,By_Renaming 0317 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0318 00db | | Load_Top At_Offset_3 0319 4801 |H | Short_Literal 0x1 031a e5fe | | Load 0x2,-0x2 031b e223 | # | Load 0x1,0x23 031c 035b | [ | Declare_Type Array,Constrained 031d 4801 |H | Short_Literal 0x1 031e e5ff | | Load 0x2,-0x1 031f 031b | | Declare_Type Variant_Record,Constrained 0320 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0321 00db | | Load_Top At_Offset_3 0322 00db | | Load_Top At_Offset_3 0323 02fc | | Declare_Variable Variant_Record,With_Constraint 0324 4801 |H | Short_Literal 0x1 0325 e5fe | | Load 0x2,-0x2 0326 e223 | # | Load 0x1,0x23 0327 0334 | 4 | Declare_Variable Array,With_Constraint 0328 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 0329 016a | j | QQ_execute Variant_Record,XXX 032a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 032b 4800 |H | Short_Literal 0x0 032c 00db | | Load_Top At_Offset_3 032d 1c07 | | Execute_Immediate Run_Utility,0x7 032e 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 032f 0869 | i | Execute_Immediate Raise,0x69 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 4601 |F | Jump_Case 0x2 0334 7801 |x | Jump 0x336 ; case 0x0 0335 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0336 00da | | Load_Top At_Offset_2 0337 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0338 1c00 | | Execute_Immediate Run_Utility,0x0 0339 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 4601 |F | Jump_Case 0x2 0344 7801 |x | Jump 0x346 ; case 0x0 0345 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0346 e222 | " | Load 0x1,0x22 0347 00db | | Load_Top At_Offset_3 0348 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0349 4800 |H | Short_Literal 0x0 034a 00db | | Load_Top At_Offset_3 034b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 034c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; Debug Table 0350 ; -------------------------------------------------------------------------------------- 0350 0004 0008 | | .DEBUG4 0x0004,0x0008,0x4e89,0x0000,0x0001,0x0013 0356 000b 03a2 | | .DBG4T 0x000b,0x03a2,0xc000,0x8000 035a 0080 03d2 | | .DBG4T 0x0080,0x03d2,0xc000,0x0000 035e 00a3 03e1 | | .DBG4T 0x00a3,0x03e1,0x1001,0x4000 0362 016b 0401 | k | .DBG4T 0x016b,0x0401,0x1001,0x0000 0366 018b 0408 | | .DBG4T 0x018b,0x0408,0x1001,0x4000 036a 01e3 042e | .| .DBG4T 0x01e3,0x042e,0x1001,0x0000 036e 01fb 0435 | 5| .DBG4T 0x01fb,0x0435,0x1001,0x4000 0372 0213 0440 | @| .DBG4T 0x0213,0x0440,0x1002,0x0000 0376 021b 0443 | C| .DBG4T 0x021b,0x0443,0x1002,0x4000 037a 0263 0462 | c b| .DBG4T 0x0263,0x0462,0x1002,0x0000 037e 026b 0465 | k e| .DBG4T 0x026b,0x0465,0x1002,0x0000 0382 0273 0468 | s h| .DBG4T 0x0273,0x0468,0x1001,0x0000 0386 028b 046f | o| .DBG4T 0x028b,0x046f,0x1002,0x0000 038a 02a3 0474 | t| .DBG4T 0x02a3,0x0474,0x1002,0x0000 038e 02cb 0479 | y| .DBG4T 0x02cb,0x0479,0x1001,0x0000 0392 02db 0000 | | .DBG4T 0x02db,0x0000,0x1005,0x0000 0396 02f3 0000 | | .DBG4T 0x02f3,0x0000,0x1005,0x0000 039a 0333 0000 | 3 | .DBG4T 0x0333,0x0000,0x1005,0x0000 039e 0343 0000 | C | .DBG4T 0x0343,0x0000,0x1005,0x0000 03a2 ; -------------------------------------------------------------------------------------- 03a2 ; Debug chain 03a2 ; -------------------------------------------------------------------------------------- 03a2 0017 0000 | | .DBGLEN 0x0017,0x0000 03a4 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002a,0x002b,0x0032,0x003c,0x004e,0x0053,0x0059,0x0075 03bb 0002 0003 | | .XXX[0x17] 03bd 0004 0005 | | 03bf 0006 0007 | | 03c1 0008 0009 | | 03c3 000a 000b | | 03c5 000d 000e | | 03c7 000f 0010 | | 03c9 0011 0012 | | 03cb 0013 0014 | | 03cd 0015 0016 | | 03cf 0017 0018 | | 03d1 0019 | | 03d2 ; -------------------------------------------------------------------------------------- 03d2 ; Debug chain 03d2 ; -------------------------------------------------------------------------------------- 03d2 000d 0000 | | .DBGLEN 0x000d,0x0000 03d4 0080 0082 | | .DBGLNO 0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098 03e1 ; -------------------------------------------------------------------------------------- 03e1 ; Debug chain 03e1 ; -------------------------------------------------------------------------------------- 03e1 0002 000e | | .DBGLEN 0x0002,0x000e 03e3 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00b5,0x00b8,0x00ba,0x00e4,0x00e8,0x00fa,0x0101,0x0103,0x010a,0x0126,0x0130,0x0132,0x0147,0x0163 03f3 0001 0002 | | .XXX[0xe] 03f5 0003 0005 | | 03f7 0004 0006 | | 03f9 0007 0008 | | 03fb 0009 000a | | 03fd 000b 000c | | 03ff 000d 000e | | 0401 ; -------------------------------------------------------------------------------------- 0401 ; Debug chain 0401 ; -------------------------------------------------------------------------------------- 0401 0002 0003 | | .DBGLEN 0x0002,0x0003 0403 016b 0171 | k q| .DBGLNO 0x016b,0x0171,0x0172,0x0174,0x017d 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug chain 0408 ; -------------------------------------------------------------------------------------- 0408 0002 0011 | | .DBGLEN 0x0002,0x0011 040a 018b 018e | | .DBGLNO 0x018b,0x018e,0x0190,0x0193,0x0195,0x0198,0x019a,0x01a1,0x01a6,0x01af,0x01b3,0x01bc,0x01c0,0x01c3,0x01cb,0x01cd,0x01cf,0x01d6,0x01d8 041d 0001 0002 | | .XXX[0x11] 041f 0003 0004 | | 0421 0005 0007 | | 0423 0008 0009 | | 0425 000a 000b | | 0427 000c 0006 | | 0429 000d 000e | | 042b 000f 0010 | | 042d 0011 | | 042e ; -------------------------------------------------------------------------------------- 042e ; Debug chain 042e ; -------------------------------------------------------------------------------------- 042e 0000 0005 | | .DBGLEN 0x0000,0x0005 0430 01e3 01ea | | .DBGLNO 0x01e3,0x01ea,0x01ec,0x01ef,0x01f1 0435 ; -------------------------------------------------------------------------------------- 0435 ; Debug chain 0435 ; -------------------------------------------------------------------------------------- 0435 0001 0004 | | .DBGLEN 0x0001,0x0004 0437 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0205,0x0208,0x020c 043c 0001 0003 | | .XXX[0x4] 043e 0004 0002 | | 0440 ; -------------------------------------------------------------------------------------- 0440 ; Debug chain 0440 ; -------------------------------------------------------------------------------------- 0440 0000 0001 | | .DBGLEN 0x0000,0x0001 0442 0213 | | .DBGLNO 0x0213 0443 ; -------------------------------------------------------------------------------------- 0443 ; Debug chain 0443 ; -------------------------------------------------------------------------------------- 0443 0003 000d | | .DBGLEN 0x0003,0x000d 0445 021b 021e | | .DBGLNO 0x021b,0x021e,0x0220,0x0222,0x0225,0x0227,0x022e,0x0233,0x023c,0x0240,0x0249,0x024d,0x0250,0x0258,0x025a,0x025c 0455 0001 0002 | | .XXX[0xd] 0457 0003 0005 | | 0459 0006 0007 | | 045b 0008 0009 | | 045d 000a 0004 | | 045f 000b 000c | | 0461 000d | | 0462 ; -------------------------------------------------------------------------------------- 0462 ; Debug chain 0462 ; -------------------------------------------------------------------------------------- 0462 0000 0001 | | .DBGLEN 0x0000,0x0001 0464 0263 | c | .DBGLNO 0x0263 0465 ; -------------------------------------------------------------------------------------- 0465 ; Debug chain 0465 ; -------------------------------------------------------------------------------------- 0465 0000 0001 | | .DBGLEN 0x0000,0x0001 0467 026b | k | .DBGLNO 0x026b 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug chain 0468 ; -------------------------------------------------------------------------------------- 0468 0000 0005 | | .DBGLEN 0x0000,0x0005 046a 0273 0276 | s v| .DBGLNO 0x0273,0x0276,0x0279,0x027d,0x0280 046f ; -------------------------------------------------------------------------------------- 046f ; Debug chain 046f ; -------------------------------------------------------------------------------------- 046f 0000 0003 | | .DBGLEN 0x0000,0x0003 0471 028b 028f | | .DBGLNO 0x028b,0x028f,0x0291 0474 ; -------------------------------------------------------------------------------------- 0474 ; Debug chain 0474 ; -------------------------------------------------------------------------------------- 0474 0000 0003 | | .DBGLEN 0x0000,0x0003 0476 02a3 02ab | | .DBGLNO 0x02a3,0x02ab,0x02ba 0479 ; -------------------------------------------------------------------------------------- 0479 ; Debug chain 0479 ; -------------------------------------------------------------------------------------- 0479 0000 0002 | | .DBGLEN 0x0000,0x0002 047b 02cb 02ce | | .DBGLNO 0x02cb,0x02ce 047d 0000 0000 | | .BLANK 0000[0x183]