|
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_4ca4d6
└─⟦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 0378 | x | .CONST 0x0378 ; 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 008a | | .CONST 0x008a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002a | * | .CONST 0x002a ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 00d9 | | Load_Top At_Offset_1 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0013 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0015 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0017 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0019 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 001b 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001d 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 001f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0021 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0023 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0025 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0027 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0029 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 002b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 002d 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 002f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0031 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0033 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0035 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0037 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0039 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 003b 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 003d 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 003f 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0041 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0043 e20f | | Load 0x1,0xf 0044 00d8 | | Load_Top At_Offset_0 0045 4801 |H | Short_Literal 0x1 0046 605d |`] | Indirect_Literal Discrete,0xa4,{0x00000000, 0x7fffffff} 0047 e20f | | Load 0x1,0xf 0048 0269 | i | Execute Discrete,Last 0049 026c | l | Execute Discrete,Minimum 004a 00e9 | | Load_Encached String_Cache 004b 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 004c 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 004e 4800 |H | Short_Literal 0x0 004f 4801 |H | Short_Literal 0x1 0050 4801 |H | Short_Literal 0x1 0051 4800 |H | Short_Literal 0x0 0052 4801 |H | Short_Literal 0x1 0053 4801 |H | Short_Literal 0x1 0054 031e | | Declare_Type Variant_Record,Defined,Visible 0055 00bf | | Action Accept_Activation 0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0057 00c7 | | Action Elaborate_Subprogram 0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0059 00c7 | | Action Elaborate_Subprogram 005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005b 00c7 | | Action Elaborate_Subprogram 005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005d 00c7 | | Action Elaborate_Subprogram 005e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005f 00c7 | | Action Elaborate_Subprogram 0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0061 00c7 | | Action Elaborate_Subprogram 0062 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0063 00c7 | | Action Elaborate_Subprogram 0064 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0065 00c7 | | Action Elaborate_Subprogram 0066 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0067 00c7 | | Action Elaborate_Subprogram 0068 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0069 00c7 | | Action Elaborate_Subprogram 006a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 006b 00c7 | | Action Elaborate_Subprogram 006c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0071 00c7 | | Action Elaborate_Subprogram 0072 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0075 00c7 | | Action Elaborate_Subprogram 0076 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0077 00c7 | | Action Elaborate_Subprogram 0078 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0079 00c7 | | Action Elaborate_Subprogram 007a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 007b 00c7 | | Action Elaborate_Subprogram 007c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 007d 00c7 | | Action Elaborate_Subprogram 007e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 007f 00c7 | | Action Elaborate_Subprogram 0080 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0081 00c7 | | Action Elaborate_Subprogram 0082 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0083 00c7 | | Action Elaborate_Subprogram 0084 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0085 00c7 | | Action Elaborate_Subprogram 0086 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0087 00c7 | | Action Elaborate_Subprogram 0088 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0089 00c7 | | Action Elaborate_Subprogram 008a BODY_0008: 008a 00bc | | Action Signal_Activated 008b 00bb | | Action Signal_Completion 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 0094 00db | | Load_Top At_Offset_3 0095 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0096 e5ff | | Load 0x2,-0x1 0097 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0098 01cf | | Execute Vector,Slice_Read 0099 4801 |H | Short_Literal 0x1 009a e5ff | | Load 0x2,-0x1 009b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 009c e5fe | | Load 0x2,-0x2 009d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 009e 01ce | | Execute Vector,Slice_Write 009f 00da | | Load_Top At_Offset_2 00a0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00a1 e5fe | | Load 0x2,-0x2 00a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 4801 |H | Short_Literal 0x1 00ad e5ff | | Load 0x2,-0x1 00ae 01db | | Execute Vector,Length 00af 00d8 | | Load_Top At_Offset_0 00b0 00e2 | | Load_Encached Integer_Cache 00b1 0260 | ` | Execute Discrete,In_Type 00b2 7001 |p | Jump_Nonzero 0xb4 00b3 0801 | | Execute_Immediate Raise,0x1 00b4 e5fe | | Load 0x2,-0x2 00b5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00b6 01ce | | Execute Vector,Slice_Write 00b7 00da | | Load_Top At_Offset_2 00b8 01db | | Execute Vector,Length 00b9 e5fe | | Load 0x2,-0x2 00ba 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 4801 |H | Short_Literal 0x1 00c5 e5fe | | Load 0x2,-0x2 00c6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00c7 01d6 | | Execute Vector,Field_Write 00c8 4801 |H | Short_Literal 0x1 00c9 e5fe | | Load 0x2,-0x2 00ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4801 |H | Short_Literal 0x1 00d4 e5fe | | Load 0x2,-0x2 00d5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d6 e5fe | | Load 0x2,-0x2 00d7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00d8 01cf | | Execute Vector,Slice_Read 00d9 4801 |H | Short_Literal 0x1 00da e5fe | | Load 0x2,-0x2 00db 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00dc e5ff | | Load 0x2,-0x1 00dd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00de 01ce | | Execute Vector,Slice_Write 00df 00db | | Load_Top At_Offset_3 00e0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00e1 00db | | Load_Top At_Offset_3 00e2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00e3 4800 |H | Short_Literal 0x0 00e4 e5fe | | Load 0x2,-0x2 00e5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4801 |H | Short_Literal 0x1 00ec 00db | | Load_Top At_Offset_3 00ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ee e5ff | | Load 0x2,-0x1 00ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00f0 01cf | | Execute Vector,Slice_Read 00f1 0335 | 5 | Declare_Variable Array,Duplicate 00f2 00cd | | Action Spare6_Action 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0109 | | .CONST 0x0109 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb 4801 |H | Short_Literal 0x1 00fc 00db | | Load_Top At_Offset_3 00fd 01db | | Execute Vector,Length 00fe 00d8 | | Load_Top At_Offset_0 00ff 00e2 | | Load_Encached Integer_Cache 0100 0260 | ` | Execute Discrete,In_Type 0101 7001 |p | Jump_Nonzero 0x103 0102 0801 | | Execute_Immediate Raise,0x1 0103 00e9 | | Load_Encached String_Cache 0104 035b | [ | Declare_Type Array,Constrained 0105 0337 | 7 | Declare_Variable Array 0106 00db | | Load_Top At_Offset_3 0107 00d9 | | Load_Top At_Offset_1 0108 01d4 | | Execute Vector,Structure_Write 0109 BODY_00f8: 0109 00db | | Load_Top At_Offset_3 010a 01db | | Execute Vector,Length 010b e22a | * | Load 0x1,0x2a 010c 1c08 | | Execute_Immediate Run_Utility,0x8 010d e5ff | | Load 0x2,-0x1 010e 01db | | Execute Vector,Length 010f 00d9 | | Load_Top At_Offset_1 0110 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0111 00d9 | | Load_Top At_Offset_1 0112 00d9 | | Load_Top At_Offset_1 0113 00d8 | | Load_Top At_Offset_0 0114 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0115 00da | | Load_Top At_Offset_2 0116 01da | | Execute Vector,Bounds 0117 00da | | Load_Top At_Offset_2 0118 01da | | Execute Vector,Bounds 0119 00da | | Load_Top At_Offset_2 011a 027f | | Execute Discrete,Equal 011b 7001 |p | Jump_Nonzero 0x11d 011c 08e0 | | Execute_Immediate Raise,0xe0 011d 00cd | | Action Spare6_Action 011e 027f | | Execute Discrete,Equal 011f 7001 |p | Jump_Nonzero 0x121 0120 08e0 | | Execute_Immediate Raise,0xe0 0121 00d2 | | Pop_Control Pop_Count_2 0122 00d9 | | Load_Top At_Offset_1 0123 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0124 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0130 | 0 | .CONST 0x0130 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b 4801 |H | Short_Literal 0x1 012c e5fe | | Load 0x2,-0x2 012d 00e9 | | Load_Encached String_Cache 012e 035b | [ | Declare_Type Array,Constrained 012f 0337 | 7 | Declare_Variable Array 0130 BODY_0128: 0130 00db | | Load_Top At_Offset_3 0131 4801 |H | Short_Literal 0x1 0132 e5ff | | Load 0x2,-0x1 0133 01db | | Execute Vector,Length 0134 00d8 | | Load_Top At_Offset_0 0135 00e2 | | Load_Encached Integer_Cache 0136 0260 | ` | Execute Discrete,In_Type 0137 7001 |p | Jump_Nonzero 0x139 0138 0801 | | Execute_Immediate Raise,0x1 0139 00db | | Load_Top At_Offset_3 013a 01ce | | Execute Vector,Slice_Write 013b e5fe | | Load 0x2,-0x2 013c e22a | * | Load 0x1,0x2a 013d 1c08 | | Execute_Immediate Run_Utility,0x8 013e e5ff | | Load 0x2,-0x1 013f 01db | | Execute Vector,Length 0140 00d9 | | Load_Top At_Offset_1 0141 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0142 00d9 | | Load_Top At_Offset_1 0143 00d9 | | Load_Top At_Offset_1 0144 00d8 | | Load_Top At_Offset_0 0145 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0146 00da | | Load_Top At_Offset_2 0147 01da | | Execute Vector,Bounds 0148 00da | | Load_Top At_Offset_2 0149 01da | | Execute Vector,Bounds 014a 00da | | Load_Top At_Offset_2 014b 027f | | Execute Discrete,Equal 014c 7001 |p | Jump_Nonzero 0x14e 014d 08e0 | | Execute_Immediate Raise,0xe0 014e 00cd | | Action Spare6_Action 014f 027f | | Execute Discrete,Equal 0150 7001 |p | Jump_Nonzero 0x152 0151 08e0 | | Execute_Immediate Raise,0xe0 0152 00d2 | | Pop_Control Pop_Count_2 0153 00d9 | | Load_Top At_Offset_1 0154 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0155 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4800 |H | Short_Literal 0x0 015c 00db | | Load_Top At_Offset_3 015d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00db | | Load_Top At_Offset_3 0164 00db | | Load_Top At_Offset_3 0165 8214 | | Call 0x1,0x14 0166 8219 | | Call 0x1,0x19 0167 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0172 | r | .CONST 0x0172 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 00db | | Load_Top At_Offset_3 016c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 016d 00db | | Load_Top At_Offset_3 016e 01db | | Execute Vector,Length 016f 0273 | s | Execute Discrete,Plus 0170 00e3 | | Load_Encached Natural_Cache 0171 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0172 BODY_0168: 0172 00db | | Load_Top At_Offset_3 0173 e5fe | | Load 0x2,-0x2 0174 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0175 0a01 | | Execute_Immediate Plus,0x1 0176 00d8 | | Load_Top At_Offset_0 0177 00e2 | | Load_Encached Integer_Cache 0178 0260 | ` | Execute Discrete,In_Type 0179 7001 |p | Jump_Nonzero 0x17b 017a 0801 | | Execute_Immediate Raise,0x1 017b 00da | | Load_Top At_Offset_2 017c e5fe | | Load 0x2,-0x2 017d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 017e 01ce | | Execute Vector,Slice_Write 017f 00d8 | | Load_Top At_Offset_0 0180 e5fe | | Load 0x2,-0x2 0181 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0182 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0190 | | .CONST 0x0190 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 00db | | Load_Top At_Offset_3 018c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 018d 0a01 | | Execute_Immediate Plus,0x1 018e 00e3 | | Load_Encached Natural_Cache 018f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0190 BODY_0188: 0190 00db | | Load_Top At_Offset_3 0191 00d9 | | Load_Top At_Offset_1 0192 e5fe | | Load 0x2,-0x2 0193 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0194 01d6 | | Execute Vector,Field_Write 0195 00d8 | | Load_Top At_Offset_0 0196 e5fe | | Load 0x2,-0x2 0197 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01b9 | | .CONST 0x01b9 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 4801 |H | Short_Literal 0x1 01a4 e5fe | | Load 0x2,-0x2 01a5 00e9 | | Load_Encached String_Cache 01a6 035b | [ | Declare_Type Array,Constrained 01a7 0337 | 7 | Declare_Variable Array 01a8 4801 |H | Short_Literal 0x1 01a9 e5fe | | Load 0x2,-0x2 01aa 00e9 | | Load_Encached String_Cache 01ab 035b | [ | Declare_Type Array,Constrained 01ac 0337 | 7 | Declare_Variable Array 01ad 00d8 | | Load_Top At_Offset_0 01ae 01dc | | Execute Vector,Last 01af 4801 |H | Short_Literal 0x1 01b0 0263 | c | Execute Discrete,Above_Bound 01b1 7005 |p | Jump_Nonzero 0x1b7 01b2 e5ff | | Load 0x2,-0x1 01b3 00d9 | | Load_Top At_Offset_1 01b4 e403 | | Load 0x2,0x3 01b5 01d6 | | Execute Vector,Field_Write 01b6 3ffb |? | Loop_Increasing 0x1b2 01b7 00d9 | | Load_Top At_Offset_1 01b8 01d4 | | Execute Vector,Structure_Write 01b9 BODY_01a0: 01b9 e5fd | | Load 0x2,-0x3 01ba 00d9 | | Load_Top At_Offset_1 01bb 8219 | | Call 0x1,0x19 01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e5fd | | Load 0x2,-0x3 01c4 4801 |H | Short_Literal 0x1 01c5 e5fe | | Load 0x2,-0x2 01c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01c7 e5fe | | Load 0x2,-0x2 01c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01c9 01cf | | Execute Vector,Slice_Read 01ca e5ff | | Load 0x2,-0x1 01cb 821d | | Call 0x1,0x1d 01cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d5 | | .CONST 0x01d5 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 029f 031b | | Declare_Subprogram INIT_0318,For_Call 01d5 BODY_01d0: 01d5 00db | | Load_Top At_Offset_3 01d6 e5fd | | Load 0x2,-0x3 01d7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01d8 0a01 | | Execute_Immediate Plus,0x1 01d9 027f | | Execute Discrete,Equal 01da 6805 |h | Jump_Zero 0x1e0 01db e5fd | | Load 0x2,-0x3 01dc e5fe | | Load 0x2,-0x2 01dd 8219 | | Call 0x1,0x19 01de 00d1 | | Pop_Control Pop_Count_1 01df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e0 00db | | Load_Top At_Offset_3 01e1 e5fd | | Load 0x2,-0x3 01e2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01e3 027a | z | Execute Discrete,Less_Equal 01e4 6802 |h | Jump_Zero 0x1e7 01e5 8402 | | Call 0x2,0x2 01e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e7 08e0 | | Execute_Immediate Raise,0xe0 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f0 | | .CONST 0x01f0 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e5fd | | Load 0x2,-0x3 01ec 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01ed 0a01 | | Execute_Immediate Plus,0x1 01ee 00e3 | | Load_Encached Natural_Cache 01ef 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01f0 BODY_01e8: 01f0 00db | | Load_Top At_Offset_3 01f1 00d9 | | Load_Top At_Offset_1 01f2 027f | | Execute Discrete,Equal 01f3 6805 |h | Jump_Zero 0x1f9 01f4 e5fd | | Load 0x2,-0x3 01f5 e5fe | | Load 0x2,-0x2 01f6 821a | | Call 0x1,0x1a 01f7 00d1 | | Pop_Control Pop_Count_1 01f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f9 00db | | Load_Top At_Offset_3 01fa 00d9 | | Load_Top At_Offset_1 01fb 027d | } | Execute Discrete,Greater 01fc 6801 |h | Jump_Zero 0x1fe 01fd 08e0 | | Execute_Immediate Raise,0xe0 01fe 00db | | Load_Top At_Offset_3 01ff e5fd | | Load 0x2,-0x3 0200 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0201 e5fd | | Load 0x2,-0x3 0202 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0203 01cf | | Execute Vector,Slice_Read 0204 e5ff | | Load 0x2,-0x1 0205 0a01 | | Execute_Immediate Plus,0x1 0206 00d8 | | Load_Top At_Offset_0 0207 00e2 | | Load_Encached Integer_Cache 0208 0260 | ` | Execute Discrete,In_Type 0209 7001 |p | Jump_Nonzero 0x20b 020a 0801 | | Execute_Immediate Raise,0x1 020b 00da | | Load_Top At_Offset_2 020c e5fd | | Load 0x2,-0x3 020d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 020e 01ce | | Execute Vector,Slice_Write 020f e5fe | | Load 0x2,-0x2 0210 e5ff | | Load 0x2,-0x1 0211 e5fd | | Load 0x2,-0x3 0212 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0213 01d6 | | Execute Vector,Field_Write 0214 00d8 | | Load_Top At_Offset_0 0215 e5fd | | Load 0x2,-0x3 0216 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0231 | 1 | .CONST 0x0231 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b 4801 |H | Short_Literal 0x1 021c e5fd | | Load 0x2,-0x3 021d 00e9 | | Load_Encached String_Cache 021e 035b | [ | Declare_Type Array,Constrained 021f 0337 | 7 | Declare_Variable Array 0220 4801 |H | Short_Literal 0x1 0221 e5fd | | Load 0x2,-0x3 0222 00e9 | | Load_Encached String_Cache 0223 035b | [ | Declare_Type Array,Constrained 0224 0337 | 7 | Declare_Variable Array 0225 00d8 | | Load_Top At_Offset_0 0226 01dc | | Execute Vector,Last 0227 4801 |H | Short_Literal 0x1 0228 0263 | c | Execute Discrete,Above_Bound 0229 7005 |p | Jump_Nonzero 0x22f 022a e5fe | | Load 0x2,-0x2 022b 00d9 | | Load_Top At_Offset_1 022c e403 | | Load 0x2,0x3 022d 01d6 | | Execute Vector,Field_Write 022e 3ffb |? | Loop_Increasing 0x22a 022f 00d9 | | Load_Top At_Offset_1 0230 01d4 | | Execute Vector,Structure_Write 0231 BODY_0218: 0231 e5fc | | Load 0x2,-0x4 0232 00d9 | | Load_Top At_Offset_1 0233 e5ff | | Load 0x2,-0x1 0234 821d | | Call 0x1,0x1d 0235 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0241 | A | .CONST 0x0241 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e5fd | | Load 0x2,-0x3 023c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 023d e5fe | | Load 0x2,-0x2 023e 0272 | r | Execute Discrete,Minus 023f 00e3 | | Load_Encached Natural_Cache 0240 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0241 BODY_0238: 0241 00db | | Load_Top At_Offset_3 0242 0aff | | Execute_Immediate Plus,-0x1 0243 00d9 | | Load_Top At_Offset_1 0244 027d | } | Execute Discrete,Greater 0245 6801 |h | Jump_Zero 0x247 0246 08e0 | | Execute_Immediate Raise,0xe0 0247 00db | | Load_Top At_Offset_3 0248 00d9 | | Load_Top At_Offset_1 0249 027a | z | Execute Discrete,Less_Equal 024a 6812 |h | Jump_Zero 0x25d 024b 00db | | Load_Top At_Offset_3 024c e5fe | | Load 0x2,-0x2 024d 0273 | s | Execute Discrete,Plus 024e 00d8 | | Load_Top At_Offset_0 024f 00e2 | | Load_Encached Integer_Cache 0250 0260 | ` | Execute Discrete,In_Type 0251 7001 |p | Jump_Nonzero 0x253 0252 0801 | | Execute_Immediate Raise,0x1 0253 e5fd | | Load 0x2,-0x3 0254 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0255 e5fd | | Load 0x2,-0x3 0256 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0257 01cf | | Execute Vector,Slice_Read 0258 e5ff | | Load 0x2,-0x1 0259 00da | | Load_Top At_Offset_2 025a e5fd | | Load 0x2,-0x3 025b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 025c 01ce | | Execute Vector,Slice_Write 025d 00d8 | | Load_Top At_Offset_0 025e e5fd | | Load 0x2,-0x3 025f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0261 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 026d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 026e 027d | } | Execute Discrete,Greater 026f 6801 |h | Jump_Zero 0x271 0270 08e0 | | Execute_Immediate Raise,0xe0 0271 00db | | Load_Top At_Offset_3 0272 00db | | Load_Top At_Offset_3 0273 e5fd | | Load 0x2,-0x3 0274 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0275 01d6 | | Execute Vector,Field_Write 0276 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0291 | | .CONST 0x0291 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b 4801 |H | Short_Literal 0x1 027c e5fd | | Load 0x2,-0x3 027d 00e9 | | Load_Encached String_Cache 027e 035b | [ | Declare_Type Array,Constrained 027f 0337 | 7 | Declare_Variable Array 0280 4801 |H | Short_Literal 0x1 0281 e5fd | | Load 0x2,-0x3 0282 00e9 | | Load_Encached String_Cache 0283 035b | [ | Declare_Type Array,Constrained 0284 0337 | 7 | Declare_Variable Array 0285 00d8 | | Load_Top At_Offset_0 0286 01dc | | Execute Vector,Last 0287 4801 |H | Short_Literal 0x1 0288 0263 | c | Execute Discrete,Above_Bound 0289 7005 |p | Jump_Nonzero 0x28f 028a e5fe | | Load 0x2,-0x2 028b 00d9 | | Load_Top At_Offset_1 028c e403 | | Load 0x2,0x3 028d 01d6 | | Execute Vector,Field_Write 028e 3ffb |? | Loop_Increasing 0x28a 028f 00d9 | | Load_Top At_Offset_1 0290 01d4 | | Execute Vector,Structure_Write 0291 BODY_0278: 0291 e5fc | | Load 0x2,-0x4 0292 00d9 | | Load_Top At_Offset_1 0293 e5ff | | Load 0x2,-0x1 0294 8223 | # | Call 0x1,0x23 0295 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a2 | | .CONST 0x02a2 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c e5fe | | Load 0x2,-0x2 029d 01db | | Execute Vector,Length 029e 0273 | s | Execute Discrete,Plus 029f 0aff | | Execute_Immediate Plus,-0x1 02a0 00e4 | | Load_Encached Positive_Cache 02a1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02a2 BODY_0298: 02a2 00d8 | | Load_Top At_Offset_0 02a3 e5fd | | Load 0x2,-0x3 02a4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02a5 027d | } | Execute Discrete,Greater 02a6 6801 |h | Jump_Zero 0x2a8 02a7 08e0 | | Execute_Immediate Raise,0xe0 02a8 e5fe | | Load 0x2,-0x2 02a9 e5ff | | Load 0x2,-0x1 02aa 00da | | Load_Top At_Offset_2 02ab e5fd | | Load 0x2,-0x3 02ac 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02ad 01ce | | Execute Vector,Slice_Write 02ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5fd | | Load 0x2,-0x3 02b4 e5fe | | Load 0x2,-0x2 02b5 8214 | | Call 0x1,0x14 02b6 e5ff | | Load 0x2,-0x1 02b7 8223 | # | Call 0x1,0x23 02b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b9 0000 0000 | | .BLANK 0000[0x7] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c7 | | .CONST 0x02c7 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0002 | | .CONST 0x0002 ; Number of locals 02c3 INIT_02c0: 02c3 e5fd | | Load 0x2,-0x3 02c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02c5 00e3 | | Load_Encached Natural_Cache 02c6 03f1 | | Declare_Variable Discrete,With_Value 02c7 BODY_02c0: 02c7 00cf | | Action Mark_Auxiliary 02c8 e5ff | | Load 0x2,-0x1 02c9 00da | | Load_Top At_Offset_2 02ca 0a01 | | Execute_Immediate Plus,0x1 02cb 00d8 | | Load_Top At_Offset_0 02cc 00e2 | | Load_Encached Integer_Cache 02cd 0260 | ` | Execute Discrete,In_Type 02ce 7001 |p | Jump_Nonzero 0x2d0 02cf 0801 | | Execute_Immediate Raise,0x1 02d0 0263 | c | Execute Discrete,Above_Bound 02d1 7007 |p | Jump_Nonzero 0x2d9 02d2 e5fe | | Load 0x2,-0x2 02d3 00d9 | | Load_Top At_Offset_1 02d4 e5fd | | Load 0x2,-0x3 02d5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02d6 01d6 | | Execute Vector,Field_Write 02d7 00c8 | | Action Pop_Auxiliary_Range 02d8 3ff9 |? | Loop_Increasing 0x2d2 02d9 00ce | | Action Pop_Auxiliary 02da 00db | | Load_Top At_Offset_3 02db e5fd | | Load 0x2,-0x3 02dc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02de 0000 0000 | | .XXX[0x2] 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 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00db | | Load_Top At_Offset_3 02ec 00db | | Load_Top At_Offset_3 02ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02ee 027d | } | Execute Discrete,Greater 02ef 6801 |h | Jump_Zero 0x2f1 02f0 08e0 | | Execute_Immediate Raise,0xe0 02f1 00db | | Load_Top At_Offset_3 02f2 00db | | Load_Top At_Offset_3 02f3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02f4 01d7 | | Execute Vector,Field_Read 02f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e5fd | | Load 0x2,-0x3 02fc 00db | | Load_Top At_Offset_3 02fd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02fe 027d | } | Execute Discrete,Greater 02ff 6801 |h | Jump_Zero 0x301 0300 08e0 | | Execute_Immediate Raise,0xe0 0301 00db | | Load_Top At_Offset_3 0302 e5fd | | Load 0x2,-0x3 0303 e5ff | | Load 0x2,-0x1 0304 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0305 01cf | | Execute Vector,Slice_Read 0306 0335 | 5 | Declare_Variable Array,Duplicate 0307 00cd | | Action Spare6_Action 0308 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0309 0000 0000 | | .BLANK 0000[0x7] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0315 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0316 0000 0000 | | .XXX[0x2] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0322 | " | .CONST 0x0322 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b e5fd | | Load 0x2,-0x3 031c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 031d e5fe | | Load 0x2,-0x2 031e 01db | | Execute Vector,Length 031f 0273 | s | Execute Discrete,Plus 0320 00e3 | | Load_Encached Natural_Cache 0321 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0322 BODY_0318: 0322 e5fe | | Load 0x2,-0x2 0323 e5ff | | Load 0x2,-0x1 0324 e5fd | | Load 0x2,-0x3 0325 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0326 e5fd | | Load 0x2,-0x3 0327 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0328 01cf | | Execute Vector,Slice_Read 0329 01cc | | Execute Vector,Catenate 032a e5ff | | Load 0x2,-0x1 032b 00da | | Load_Top At_Offset_2 032c e5fd | | Load 0x2,-0x3 032d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 032e 01ce | | Execute Vector,Slice_Write 032f 00d8 | | Load_Top At_Offset_0 0330 e5fd | | Load 0x2,-0x3 0331 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0332 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0333 0000 0000 | | .BLANK 0000[0x5] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 4609 |F | Jump_Case 0xa 033c 7809 |x | Jump 0x346 ; case 0x0 033d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 033e 7817 |x | Jump 0x356 ; case 0x2 033f 781a |x | Jump 0x35a ; case 0x3 0340 7836 |x6 | Jump 0x377 ; case 0x4 0341 7835 |x5 | Jump 0x377 ; case 0x5 0342 7834 |x4 | Jump 0x377 ; case 0x6 0343 781c |x | Jump 0x360 ; case 0x7 0344 7824 |x$ | Jump 0x369 ; case 0x8 0345 782d |x- | Jump 0x373 ; case 0x9 0346 00da | | Load_Top At_Offset_2 0347 016c | l | Execute Variant_Record,Is_Constrained 0348 7009 |p | Jump_Nonzero 0x352 0349 00cf | | Action Mark_Auxiliary 034a 4800 |H | Short_Literal 0x0 034b e5ff | | Load 0x2,-0x1 034c 1c08 | | Execute_Immediate Run_Utility,0x8 034d 00d8 | | Load_Top At_Offset_0 034e 1c00 | | Execute_Immediate Run_Utility,0x0 034f c5ff | | Store 0x2,-0x1 0350 00ce | | Action Pop_Auxiliary 0351 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0352 4800 |H | Short_Literal 0x0 0353 00db | | Load_Top At_Offset_3 0354 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0355 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0356 4801 |H | Short_Literal 0x1 0357 4803 |H | Short_Literal 0x3 0358 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0359 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 035a e5fd | | Load 0x2,-0x3 035b 00db | | Load_Top At_Offset_3 035c 1c07 | | Execute_Immediate Run_Utility,0x7 035d e5fe | | Load 0x2,-0x2 035e 0306 | | Complete_Type Variant_Record,By_Renaming 035f 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0360 00db | | Load_Top At_Offset_3 0361 4801 |H | Short_Literal 0x1 0362 e5fe | | Load 0x2,-0x2 0363 00e9 | | Load_Encached String_Cache 0364 035b | [ | Declare_Type Array,Constrained 0365 4801 |H | Short_Literal 0x1 0366 e5ff | | Load 0x2,-0x1 0367 031b | | Declare_Type Variant_Record,Constrained 0368 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0369 00db | | Load_Top At_Offset_3 036a 00db | | Load_Top At_Offset_3 036b 02fc | | Declare_Variable Variant_Record,With_Constraint 036c 4801 |H | Short_Literal 0x1 036d e5fe | | Load 0x2,-0x2 036e 00e9 | | Load_Encached String_Cache 036f 0334 | 4 | Declare_Variable Array,With_Constraint 0370 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0371 016a | j | QQ_execute Variant_Record,XXX 0372 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0373 4800 |H | Short_Literal 0x0 0374 00db | | Load_Top At_Offset_3 0375 1c07 | | Execute_Immediate Run_Utility,0x7 0376 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0377 0869 | i | Execute_Immediate Raise,0x69 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug Table 0378 ; -------------------------------------------------------------------------------------- 0378 0004 0004 | | .DEBUG4 0x0004,0x0004,0x67a6,0x0000,0x0001,0x001e 037e 000b 03f6 | | .DBG4T 0x000b,0x03f6,0xc000,0x8000 0382 0056 0430 | V 0| .DBG4T 0x0056,0x0430,0xc000,0x0000 0386 0093 044c | L| .DBG4T 0x0093,0x044c,0x1001,0x0000 038a 00ab 0450 | P| .DBG4T 0x00ab,0x0450,0x1001,0x0000 038e 00c3 0454 | T| .DBG4T 0x00c3,0x0454,0x1001,0x0000 0392 00d3 0458 | X| .DBG4T 0x00d3,0x0458,0x1001,0x0000 0396 00eb 045d | ]| .DBG4T 0x00eb,0x045d,0x1002,0x0000 039a 00fb 0460 | `| .DBG4T 0x00fb,0x0460,0x1002,0x0000 039e 012b 0464 | + d| .DBG4T 0x012b,0x0464,0x1002,0x0000 03a2 015b 0469 | [ i| .DBG4T 0x015b,0x0469,0x1001,0x0000 03a6 0163 046c | c l| .DBG4T 0x0163,0x046c,0x1001,0x0000 03aa 016b 046f | k o| .DBG4T 0x016b,0x046f,0x1001,0x0000 03ae 018b 0474 | t| .DBG4T 0x018b,0x0474,0x1001,0x0000 03b2 01a3 0479 | y| .DBG4T 0x01a3,0x0479,0x1001,0x0000 03b6 01c3 047d | }| .DBG4T 0x01c3,0x047d,0x1001,0x0000 03ba 01d3 0480 | | .DBG4T 0x01d3,0x0480,0x1001,0x0000 03be 01eb 0487 | | .DBG4T 0x01eb,0x0487,0x1001,0x0000 03c2 021b 0491 | | .DBG4T 0x021b,0x0491,0x1001,0x0000 03c6 023b 0495 | ; | .DBG4T 0x023b,0x0495,0x1001,0x0000 03ca 026b 049d | k | .DBG4T 0x026b,0x049d,0x1001,0x0000 03ce 027b 04a2 | { | .DBG4T 0x027b,0x04a2,0x1001,0x0000 03d2 029b 04a6 | | .DBG4T 0x029b,0x04a6,0x1001,0x0000 03d6 02b3 04ac | | .DBG4T 0x02b3,0x04ac,0x1001,0x0000 03da 02c3 04af | | .DBG4T 0x02c3,0x04af,0x1001,0x0000 03de 02e3 04b5 | | .DBG4T 0x02e3,0x04b5,0x1002,0x0000 03e2 02eb 04b8 | | .DBG4T 0x02eb,0x04b8,0x1002,0x0000 03e6 02fb 04bd | | .DBG4T 0x02fb,0x04bd,0x1002,0x0000 03ea 0313 04c2 | | .DBG4T 0x0313,0x04c2,0x1002,0x0000 03ee 031b 04c5 | | .DBG4T 0x031b,0x04c5,0x1004,0x0000 03f2 033b 0000 | ; | .DBG4T 0x033b,0x0000,0x1005,0x0000 03f6 ; -------------------------------------------------------------------------------------- 03f6 ; Debug chain 03f6 ; -------------------------------------------------------------------------------------- 03f6 001c 0000 | | .DBGLEN 0x001c,0x0000 03f8 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043 0414 0001 0003 | | .XXX[0x1c] 0416 0004 0005 | | 0418 0006 0007 | | 041a 0008 0009 | | 041c 000b 000c | | 041e 000d 000e | | 0420 000f 0010 | | 0422 0011 0012 | | 0424 0013 0014 | | 0426 0015 0016 | | 0428 0017 0018 | | 042a 0019 001a | | 042c 001b 001c | | 042e 001d 0021 | !| 0430 ; -------------------------------------------------------------------------------------- 0430 ; Debug chain 0430 ; -------------------------------------------------------------------------------------- 0430 001a 0000 | | .DBGLEN 0x001a,0x0000 0432 0056 0058 | V X| .DBGLNO 0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088 044c ; -------------------------------------------------------------------------------------- 044c ; Debug chain 044c ; -------------------------------------------------------------------------------------- 044c 0000 0002 | | .DBGLEN 0x0000,0x0002 044e 0093 009f | | .DBGLNO 0x0093,0x009f 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug chain 0450 ; -------------------------------------------------------------------------------------- 0450 0000 0002 | | .DBGLEN 0x0000,0x0002 0452 00ab 00b7 | | .DBGLNO 0x00ab,0x00b7 0454 ; -------------------------------------------------------------------------------------- 0454 ; Debug chain 0454 ; -------------------------------------------------------------------------------------- 0454 0000 0002 | | .DBGLEN 0x0000,0x0002 0456 00c3 00c8 | | .DBGLNO 0x00c3,0x00c8 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug chain 0458 ; -------------------------------------------------------------------------------------- 0458 0000 0003 | | .DBGLEN 0x0000,0x0003 045a 00d3 00df | | .DBGLNO 0x00d3,0x00df,0x00e3 045d ; -------------------------------------------------------------------------------------- 045d ; Debug chain 045d ; -------------------------------------------------------------------------------------- 045d 0000 0001 | | .DBGLEN 0x0000,0x0001 045f 00eb | | .DBGLNO 0x00eb 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug chain 0460 ; -------------------------------------------------------------------------------------- 0460 0001 0001 | | .DBGLEN 0x0001,0x0001 0462 00fb 0109 | | .DBGLNO 0x00fb,0x0109 0464 ; -------------------------------------------------------------------------------------- 0464 ; Debug chain 0464 ; -------------------------------------------------------------------------------------- 0464 0001 0002 | | .DBGLEN 0x0001,0x0002 0466 012b 0130 | + 0| .DBGLNO 0x012b,0x0130,0x013b 0469 ; -------------------------------------------------------------------------------------- 0469 ; Debug chain 0469 ; -------------------------------------------------------------------------------------- 0469 0000 0001 | | .DBGLEN 0x0000,0x0001 046b 015b | [ | .DBGLNO 0x015b 046c ; -------------------------------------------------------------------------------------- 046c ; Debug chain 046c ; -------------------------------------------------------------------------------------- 046c 0000 0001 | | .DBGLEN 0x0000,0x0001 046e 0163 | c | .DBGLNO 0x0163 046f ; -------------------------------------------------------------------------------------- 046f ; Debug chain 046f ; -------------------------------------------------------------------------------------- 046f 0001 0002 | | .DBGLEN 0x0001,0x0002 0471 016b 0172 | k r| .DBGLNO 0x016b,0x0172,0x017f 0474 ; -------------------------------------------------------------------------------------- 0474 ; Debug chain 0474 ; -------------------------------------------------------------------------------------- 0474 0001 0002 | | .DBGLEN 0x0001,0x0002 0476 018b 0190 | | .DBGLNO 0x018b,0x0190,0x0195 0479 ; -------------------------------------------------------------------------------------- 0479 ; Debug chain 0479 ; -------------------------------------------------------------------------------------- 0479 0001 0001 | | .DBGLEN 0x0001,0x0001 047b 01a3 01b9 | | .DBGLNO 0x01a3,0x01b9 047d ; -------------------------------------------------------------------------------------- 047d ; Debug chain 047d ; -------------------------------------------------------------------------------------- 047d 0000 0001 | | .DBGLEN 0x0000,0x0001 047f 01c3 | | .DBGLNO 0x01c3 0480 ; -------------------------------------------------------------------------------------- 0480 ; Debug chain 0480 ; -------------------------------------------------------------------------------------- 0480 0000 0005 | | .DBGLEN 0x0000,0x0005 0482 01d5 01db | | .DBGLNO 0x01d5,0x01db,0x01e0,0x01e5,0x01e7 0487 ; -------------------------------------------------------------------------------------- 0487 ; Debug chain 0487 ; -------------------------------------------------------------------------------------- 0487 0001 0007 | | .DBGLEN 0x0001,0x0007 0489 01eb 01f0 | | .DBGLNO 0x01eb,0x01f0,0x01f4,0x01f9,0x01fd,0x01fe,0x020f,0x0214 0491 ; -------------------------------------------------------------------------------------- 0491 ; Debug chain 0491 ; -------------------------------------------------------------------------------------- 0491 0001 0001 | | .DBGLEN 0x0001,0x0001 0493 021b 0231 | 1| .DBGLNO 0x021b,0x0231 0495 ; -------------------------------------------------------------------------------------- 0495 ; Debug chain 0495 ; -------------------------------------------------------------------------------------- 0495 0001 0005 | | .DBGLEN 0x0001,0x0005 0497 023b 0241 | ; A| .DBGLNO 0x023b,0x0241,0x0246,0x0247,0x024b,0x025d 049d ; -------------------------------------------------------------------------------------- 049d ; Debug chain 049d ; -------------------------------------------------------------------------------------- 049d 0000 0003 | | .DBGLEN 0x0000,0x0003 049f 026b 0270 | k p| .DBGLNO 0x026b,0x0270,0x0271 04a2 ; -------------------------------------------------------------------------------------- 04a2 ; Debug chain 04a2 ; -------------------------------------------------------------------------------------- 04a2 0001 0001 | | .DBGLEN 0x0001,0x0001 04a4 027b 0291 | { | .DBGLNO 0x027b,0x0291 04a6 ; -------------------------------------------------------------------------------------- 04a6 ; Debug chain 04a6 ; -------------------------------------------------------------------------------------- 04a6 0001 0003 | | .DBGLEN 0x0001,0x0003 04a8 029b 02a2 | | .DBGLNO 0x029b,0x02a2,0x02a7,0x02a8 04ac ; -------------------------------------------------------------------------------------- 04ac ; Debug chain 04ac ; -------------------------------------------------------------------------------------- 04ac 0000 0001 | | .DBGLEN 0x0000,0x0001 04ae 02b3 | | .DBGLNO 0x02b3 04af ; -------------------------------------------------------------------------------------- 04af ; Debug chain 04af ; -------------------------------------------------------------------------------------- 04af 0001 0003 | | .DBGLEN 0x0001,0x0003 04b1 02c3 02c8 | | .DBGLNO 0x02c3,0x02c8,0x02d2,0x02da 04b5 ; -------------------------------------------------------------------------------------- 04b5 ; Debug chain 04b5 ; -------------------------------------------------------------------------------------- 04b5 0000 0001 | | .DBGLEN 0x0000,0x0001 04b7 02e3 | | .DBGLNO 0x02e3 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; Debug chain 04b8 ; -------------------------------------------------------------------------------------- 04b8 0000 0003 | | .DBGLEN 0x0000,0x0003 04ba 02eb 02f0 | | .DBGLNO 0x02eb,0x02f0,0x02f1 04bd ; -------------------------------------------------------------------------------------- 04bd ; Debug chain 04bd ; -------------------------------------------------------------------------------------- 04bd 0000 0003 | | .DBGLEN 0x0000,0x0003 04bf 02fb 0300 | | .DBGLNO 0x02fb,0x0300,0x0301 04c2 ; -------------------------------------------------------------------------------------- 04c2 ; Debug chain 04c2 ; -------------------------------------------------------------------------------------- 04c2 0000 0001 | | .DBGLEN 0x0000,0x0001 04c4 0313 | | .DBGLNO 0x0313 04c5 ; -------------------------------------------------------------------------------------- 04c5 ; Debug chain 04c5 ; -------------------------------------------------------------------------------------- 04c5 0001 0002 | | .DBGLEN 0x0001,0x0002 04c7 031b 0322 | "| .DBGLNO 0x031b,0x0322,0x032f 04ca 0000 0000 | | .BLANK 0000[0x136]