|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 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 008a | | .CONST 0x008a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00d8 | | Load_Top At_Offset_0 000e 4800 |H | Short_Literal 0x0 000f 4801 |H | Short_Literal 0x1 0010 4801 |H | Short_Literal 0x1 0011 4803 |H | Short_Literal 0x3 0012 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0013 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0015 00d9 | | Load_Top At_Offset_1 0016 012a | * | Execute Any,Change_Utility 0017 0007 | | Action Break_Optional 0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001c 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001e 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0020 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0022 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0024 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0026 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0028 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 002a 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 002c 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 002e 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0030 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0032 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0034 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0036 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0038 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 003a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 003c 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 003e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0040 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0042 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0044 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0046 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0048 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 004a 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 004c e20d | | Load 0x1,0xd 004d 00e9 | | Load_Encached String_Cache 004e 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0050 4800 |H | Short_Literal 0x0 0051 4801 |H | Short_Literal 0x1 0052 4801 |H | Short_Literal 0x1 0053 e20e | | Load 0x1,0xe 0054 0307 | | Complete_Type Variant_Record,By_Defining 0055 00bf | | Action Accept_Activation 0056 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0057 00c7 | | Action Elaborate_Subprogram 0058 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0059 00c7 | | Action Elaborate_Subprogram 005a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005b 00c7 | | Action Elaborate_Subprogram 005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005d 00c7 | | Action Elaborate_Subprogram 005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005f 00c7 | | Action Elaborate_Subprogram 0060 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0061 00c7 | | Action Elaborate_Subprogram 0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0063 00c7 | | Action Elaborate_Subprogram 0064 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0065 00c7 | | Action Elaborate_Subprogram 0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0067 00c7 | | Action Elaborate_Subprogram 0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0069 00c7 | | Action Elaborate_Subprogram 006a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 006b 00c7 | | Action Elaborate_Subprogram 006c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0071 00c7 | | Action Elaborate_Subprogram 0072 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0075 00c7 | | Action Elaborate_Subprogram 0076 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0077 00c7 | | Action Elaborate_Subprogram 0078 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0079 00c7 | | Action Elaborate_Subprogram 007a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 007b 00c7 | | Action Elaborate_Subprogram 007c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007d 00c7 | | Action Elaborate_Subprogram 007e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 007f 00c7 | | Action Elaborate_Subprogram 0080 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0081 00c7 | | Action Elaborate_Subprogram 0082 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0083 00c7 | | Action Elaborate_Subprogram 0084 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0085 00c7 | | Action Elaborate_Subprogram 0086 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0087 00c7 | | Action Elaborate_Subprogram 0088 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 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 | | .BLANK 0000[0x4] 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 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 01db | | Execute Vector,Length 00fd e20e | | Load 0x1,0xe 00fe 1c08 | | Execute_Immediate Run_Utility,0x8 00ff 00db | | Load_Top At_Offset_3 0100 01db | | Execute Vector,Length 0101 00d9 | | Load_Top At_Offset_1 0102 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0103 00db | | Load_Top At_Offset_3 0104 00d9 | | Load_Top At_Offset_1 0105 00d8 | | Load_Top At_Offset_0 0106 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0107 00da | | Load_Top At_Offset_2 0108 01da | | Execute Vector,Bounds 0109 00da | | Load_Top At_Offset_2 010a 01da | | Execute Vector,Bounds 010b 00da | | Load_Top At_Offset_2 010c 027f | | Execute Discrete,Equal 010d 7001 |p | Jump_Nonzero 0x10f 010e 08e0 | | Execute_Immediate Raise,0xe0 010f 00cd | | Action Spare6_Action 0110 027f | | Execute Discrete,Equal 0111 7001 |p | Jump_Nonzero 0x113 0112 08e0 | | Execute_Immediate Raise,0xe0 0113 00d2 | | Pop_Control Pop_Count_2 0114 00d9 | | Load_Top At_Offset_1 0115 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0120 | | .CONST 0x0120 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 4801 |H | Short_Literal 0x1 011c e5fe | | Load 0x2,-0x2 011d 00e9 | | Load_Encached String_Cache 011e 035b | [ | Declare_Type Array,Constrained 011f 0337 | 7 | Declare_Variable Array 0120 BODY_0118: 0120 00db | | Load_Top At_Offset_3 0121 4801 |H | Short_Literal 0x1 0122 e5ff | | Load 0x2,-0x1 0123 01db | | Execute Vector,Length 0124 00d8 | | Load_Top At_Offset_0 0125 00e2 | | Load_Encached Integer_Cache 0126 0260 | ` | Execute Discrete,In_Type 0127 7001 |p | Jump_Nonzero 0x129 0128 0801 | | Execute_Immediate Raise,0x1 0129 00db | | Load_Top At_Offset_3 012a 01ce | | Execute Vector,Slice_Write 012b e5fe | | Load 0x2,-0x2 012c e20e | | Load 0x1,0xe 012d 1c08 | | Execute_Immediate Run_Utility,0x8 012e e5ff | | Load 0x2,-0x1 012f 01db | | Execute Vector,Length 0130 00d9 | | Load_Top At_Offset_1 0131 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0132 00d9 | | Load_Top At_Offset_1 0133 00d9 | | Load_Top At_Offset_1 0134 00d8 | | Load_Top At_Offset_0 0135 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0136 00da | | Load_Top At_Offset_2 0137 01da | | Execute Vector,Bounds 0138 00da | | Load_Top At_Offset_2 0139 01da | | Execute Vector,Bounds 013a 00da | | Load_Top At_Offset_2 013b 027f | | Execute Discrete,Equal 013c 7001 |p | Jump_Nonzero 0x13e 013d 08e0 | | Execute_Immediate Raise,0xe0 013e 00cd | | Action Spare6_Action 013f 027f | | Execute Discrete,Equal 0140 7001 |p | Jump_Nonzero 0x142 0141 08e0 | | Execute_Immediate Raise,0xe0 0142 00d2 | | Pop_Control Pop_Count_2 0143 00d9 | | Load_Top At_Offset_1 0144 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0145 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4800 |H | Short_Literal 0x0 014c 00db | | Load_Top At_Offset_3 014d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00db | | Load_Top At_Offset_3 0154 00db | | Load_Top At_Offset_3 0155 8213 | | Call 0x1,0x13 0156 8218 | | Call 0x1,0x18 0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0162 | b | .CONST 0x0162 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 015d 00db | | Load_Top At_Offset_3 015e 01db | | Execute Vector,Length 015f 0273 | s | Execute Discrete,Plus 0160 00e3 | | Load_Encached Natural_Cache 0161 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0162 BODY_0158: 0162 00db | | Load_Top At_Offset_3 0163 e5fe | | Load 0x2,-0x2 0164 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0165 0a01 | | Execute_Immediate Plus,0x1 0166 00d8 | | Load_Top At_Offset_0 0167 00e2 | | Load_Encached Integer_Cache 0168 0260 | ` | Execute Discrete,In_Type 0169 7001 |p | Jump_Nonzero 0x16b 016a 0801 | | Execute_Immediate Raise,0x1 016b 00da | | Load_Top At_Offset_2 016c e5fe | | Load 0x2,-0x2 016d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 016e 01ce | | Execute Vector,Slice_Write 016f 00d8 | | Load_Top At_Offset_0 0170 e5fe | | Load 0x2,-0x2 0171 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0173 0000 0000 | | .BLANK 0000[0x5] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0180 | | .CONST 0x0180 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 00db | | Load_Top At_Offset_3 017c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 017d 0a01 | | Execute_Immediate Plus,0x1 017e 00e3 | | Load_Encached Natural_Cache 017f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0180 BODY_0178: 0180 00db | | Load_Top At_Offset_3 0181 00d9 | | Load_Top At_Offset_1 0182 e5fe | | Load 0x2,-0x2 0183 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0184 01d6 | | Execute Vector,Field_Write 0185 00d8 | | Load_Top At_Offset_0 0186 e5fe | | Load 0x2,-0x2 0187 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01a9 | | .CONST 0x01a9 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 4801 |H | Short_Literal 0x1 0194 e5fe | | Load 0x2,-0x2 0195 00e9 | | Load_Encached String_Cache 0196 035b | [ | Declare_Type Array,Constrained 0197 0337 | 7 | Declare_Variable Array 0198 4801 |H | Short_Literal 0x1 0199 e5fe | | Load 0x2,-0x2 019a 00e9 | | Load_Encached String_Cache 019b 035b | [ | Declare_Type Array,Constrained 019c 0337 | 7 | Declare_Variable Array 019d 00d8 | | Load_Top At_Offset_0 019e 01dc | | Execute Vector,Last 019f 4801 |H | Short_Literal 0x1 01a0 0263 | c | Execute Discrete,Above_Bound 01a1 7005 |p | Jump_Nonzero 0x1a7 01a2 e5ff | | Load 0x2,-0x1 01a3 00d9 | | Load_Top At_Offset_1 01a4 e403 | | Load 0x2,0x3 01a5 01d6 | | Execute Vector,Field_Write 01a6 3ffb |? | Loop_Increasing 0x1a2 01a7 00d9 | | Load_Top At_Offset_1 01a8 01d4 | | Execute Vector,Structure_Write 01a9 BODY_0190: 01a9 e5fd | | Load 0x2,-0x3 01aa 00d9 | | Load_Top At_Offset_1 01ab 8218 | | Call 0x1,0x18 01ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e5fd | | Load 0x2,-0x3 01b4 4801 |H | Short_Literal 0x1 01b5 e5fe | | Load 0x2,-0x2 01b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01b7 e5fe | | Load 0x2,-0x2 01b8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01b9 01cf | | Execute Vector,Slice_Read 01ba e5ff | | Load 0x2,-0x1 01bb 821c | | Call 0x1,0x1c 01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 029f 030b | | Declare_Subprogram INIT_0308,For_Call 01c5 BODY_01c0: 01c5 00db | | Load_Top At_Offset_3 01c6 e5fd | | Load 0x2,-0x3 01c7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01c8 0a01 | | Execute_Immediate Plus,0x1 01c9 027f | | Execute Discrete,Equal 01ca 6805 |h | Jump_Zero 0x1d0 01cb e5fd | | Load 0x2,-0x3 01cc e5fe | | Load 0x2,-0x2 01cd 8218 | | Call 0x1,0x18 01ce 00d1 | | Pop_Control Pop_Count_1 01cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d0 00db | | Load_Top At_Offset_3 01d1 e5fd | | Load 0x2,-0x3 01d2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01d3 027a | z | Execute Discrete,Less_Equal 01d4 6802 |h | Jump_Zero 0x1d7 01d5 8402 | | Call 0x2,0x2 01d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d7 08e0 | | Execute_Immediate Raise,0xe0 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e0 | | .CONST 0x01e0 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e5fd | | Load 0x2,-0x3 01dc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01dd 0a01 | | Execute_Immediate Plus,0x1 01de 00e3 | | Load_Encached Natural_Cache 01df 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01e0 BODY_01d8: 01e0 00db | | Load_Top At_Offset_3 01e1 00d9 | | Load_Top At_Offset_1 01e2 027f | | Execute Discrete,Equal 01e3 6805 |h | Jump_Zero 0x1e9 01e4 e5fd | | Load 0x2,-0x3 01e5 e5fe | | Load 0x2,-0x2 01e6 8219 | | Call 0x1,0x19 01e7 00d1 | | Pop_Control Pop_Count_1 01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e9 00db | | Load_Top At_Offset_3 01ea 00d9 | | Load_Top At_Offset_1 01eb 027d | } | Execute Discrete,Greater 01ec 6801 |h | Jump_Zero 0x1ee 01ed 08e0 | | Execute_Immediate Raise,0xe0 01ee 00db | | Load_Top At_Offset_3 01ef e5fd | | Load 0x2,-0x3 01f0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01f1 e5fd | | Load 0x2,-0x3 01f2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01f3 01cf | | Execute Vector,Slice_Read 01f4 e5ff | | Load 0x2,-0x1 01f5 0a01 | | Execute_Immediate Plus,0x1 01f6 00d8 | | Load_Top At_Offset_0 01f7 00e2 | | Load_Encached Integer_Cache 01f8 0260 | ` | Execute Discrete,In_Type 01f9 7001 |p | Jump_Nonzero 0x1fb 01fa 0801 | | Execute_Immediate Raise,0x1 01fb 00da | | Load_Top At_Offset_2 01fc e5fd | | Load 0x2,-0x3 01fd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01fe 01ce | | Execute Vector,Slice_Write 01ff e5fe | | Load 0x2,-0x2 0200 e5ff | | Load 0x2,-0x1 0201 e5fd | | Load 0x2,-0x3 0202 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0203 01d6 | | Execute Vector,Field_Write 0204 00d8 | | Load_Top At_Offset_0 0205 e5fd | | Load 0x2,-0x3 0206 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0207 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0221 | ! | .CONST 0x0221 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b 4801 |H | Short_Literal 0x1 020c e5fd | | Load 0x2,-0x3 020d 00e9 | | Load_Encached String_Cache 020e 035b | [ | Declare_Type Array,Constrained 020f 0337 | 7 | Declare_Variable Array 0210 4801 |H | Short_Literal 0x1 0211 e5fd | | Load 0x2,-0x3 0212 00e9 | | Load_Encached String_Cache 0213 035b | [ | Declare_Type Array,Constrained 0214 0337 | 7 | Declare_Variable Array 0215 00d8 | | Load_Top At_Offset_0 0216 01dc | | Execute Vector,Last 0217 4801 |H | Short_Literal 0x1 0218 0263 | c | Execute Discrete,Above_Bound 0219 7005 |p | Jump_Nonzero 0x21f 021a e5fe | | Load 0x2,-0x2 021b 00d9 | | Load_Top At_Offset_1 021c e403 | | Load 0x2,0x3 021d 01d6 | | Execute Vector,Field_Write 021e 3ffb |? | Loop_Increasing 0x21a 021f 00d9 | | Load_Top At_Offset_1 0220 01d4 | | Execute Vector,Structure_Write 0221 BODY_0208: 0221 e5fc | | Load 0x2,-0x4 0222 00d9 | | Load_Top At_Offset_1 0223 e5ff | | Load 0x2,-0x1 0224 821c | | Call 0x1,0x1c 0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0231 | 1 | .CONST 0x0231 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b e5fd | | Load 0x2,-0x3 022c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 022d e5fe | | Load 0x2,-0x2 022e 0272 | r | Execute Discrete,Minus 022f 00e3 | | Load_Encached Natural_Cache 0230 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0231 BODY_0228: 0231 00db | | Load_Top At_Offset_3 0232 0aff | | Execute_Immediate Plus,-0x1 0233 00d9 | | Load_Top At_Offset_1 0234 027d | } | Execute Discrete,Greater 0235 6801 |h | Jump_Zero 0x237 0236 08e0 | | Execute_Immediate Raise,0xe0 0237 00db | | Load_Top At_Offset_3 0238 00d9 | | Load_Top At_Offset_1 0239 027a | z | Execute Discrete,Less_Equal 023a 6812 |h | Jump_Zero 0x24d 023b 00db | | Load_Top At_Offset_3 023c e5fe | | Load 0x2,-0x2 023d 0273 | s | Execute Discrete,Plus 023e 00d8 | | Load_Top At_Offset_0 023f 00e2 | | Load_Encached Integer_Cache 0240 0260 | ` | Execute Discrete,In_Type 0241 7001 |p | Jump_Nonzero 0x243 0242 0801 | | Execute_Immediate Raise,0x1 0243 e5fd | | Load 0x2,-0x3 0244 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0245 e5fd | | Load 0x2,-0x3 0246 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0247 01cf | | Execute Vector,Slice_Read 0248 e5ff | | Load 0x2,-0x1 0249 00da | | Load_Top At_Offset_2 024a e5fd | | Load 0x2,-0x3 024b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 024c 01ce | | Execute Vector,Slice_Write 024d 00d8 | | Load_Top At_Offset_0 024e e5fd | | Load 0x2,-0x3 024f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0250 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c e5fd | | Load 0x2,-0x3 025d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 025e 027d | } | Execute Discrete,Greater 025f 6801 |h | Jump_Zero 0x261 0260 08e0 | | Execute_Immediate Raise,0xe0 0261 00db | | Load_Top At_Offset_3 0262 00db | | Load_Top At_Offset_3 0263 e5fd | | Load 0x2,-0x3 0264 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0265 01d6 | | Execute Vector,Field_Write 0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0281 | | .CONST 0x0281 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b 4801 |H | Short_Literal 0x1 026c e5fd | | Load 0x2,-0x3 026d 00e9 | | Load_Encached String_Cache 026e 035b | [ | Declare_Type Array,Constrained 026f 0337 | 7 | Declare_Variable Array 0270 4801 |H | Short_Literal 0x1 0271 e5fd | | Load 0x2,-0x3 0272 00e9 | | Load_Encached String_Cache 0273 035b | [ | Declare_Type Array,Constrained 0274 0337 | 7 | Declare_Variable Array 0275 00d8 | | Load_Top At_Offset_0 0276 01dc | | Execute Vector,Last 0277 4801 |H | Short_Literal 0x1 0278 0263 | c | Execute Discrete,Above_Bound 0279 7005 |p | Jump_Nonzero 0x27f 027a e5fe | | Load 0x2,-0x2 027b 00d9 | | Load_Top At_Offset_1 027c e403 | | Load 0x2,0x3 027d 01d6 | | Execute Vector,Field_Write 027e 3ffb |? | Loop_Increasing 0x27a 027f 00d9 | | Load_Top At_Offset_1 0280 01d4 | | Execute Vector,Structure_Write 0281 BODY_0268: 0281 e5fc | | Load 0x2,-0x4 0282 00d9 | | Load_Top At_Offset_1 0283 e5ff | | Load 0x2,-0x1 0284 8222 | " | Call 0x1,0x22 0285 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0292 | | .CONST 0x0292 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c e5fe | | Load 0x2,-0x2 028d 01db | | Execute Vector,Length 028e 0273 | s | Execute Discrete,Plus 028f 0aff | | Execute_Immediate Plus,-0x1 0290 00e4 | | Load_Encached Positive_Cache 0291 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0292 BODY_0288: 0292 00d8 | | Load_Top At_Offset_0 0293 e5fd | | Load 0x2,-0x3 0294 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0295 027d | } | Execute Discrete,Greater 0296 6801 |h | Jump_Zero 0x298 0297 08e0 | | Execute_Immediate Raise,0xe0 0298 e5fe | | Load 0x2,-0x2 0299 e5ff | | Load 0x2,-0x1 029a 00da | | Load_Top At_Offset_2 029b e5fd | | Load 0x2,-0x3 029c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 029d 01ce | | Execute Vector,Slice_Write 029e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 029f 0000 | | .XXX[0x1] 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 e5fd | | Load 0x2,-0x3 02a4 e5fe | | Load 0x2,-0x2 02a5 8213 | | Call 0x1,0x13 02a6 e5ff | | Load 0x2,-0x1 02a7 8222 | " | Call 0x1,0x22 02a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b7 | | .CONST 0x02b7 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e5fd | | Load 0x2,-0x3 02b4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02b5 00e3 | | Load_Encached Natural_Cache 02b6 03f1 | | Declare_Variable Discrete,With_Value 02b7 BODY_02b0: 02b7 00cf | | Action Mark_Auxiliary 02b8 e5ff | | Load 0x2,-0x1 02b9 00da | | Load_Top At_Offset_2 02ba 0a01 | | Execute_Immediate Plus,0x1 02bb 00d8 | | Load_Top At_Offset_0 02bc 00e2 | | Load_Encached Integer_Cache 02bd 0260 | ` | Execute Discrete,In_Type 02be 7001 |p | Jump_Nonzero 0x2c0 02bf 0801 | | Execute_Immediate Raise,0x1 02c0 0263 | c | Execute Discrete,Above_Bound 02c1 7007 |p | Jump_Nonzero 0x2c9 02c2 e5fe | | Load 0x2,-0x2 02c3 00d9 | | Load_Top At_Offset_1 02c4 e5fd | | Load 0x2,-0x3 02c5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02c6 01d6 | | Execute Vector,Field_Write 02c7 00c8 | | Action Pop_Auxiliary_Range 02c8 3ff9 |? | Loop_Increasing 0x2c2 02c9 00ce | | Action Pop_Auxiliary 02ca 00db | | Load_Top At_Offset_3 02cb e5fd | | Load 0x2,-0x3 02cc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d6 0000 0000 | | .XXX[0x2] 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 00db | | Load_Top At_Offset_3 02dc 00db | | Load_Top At_Offset_3 02dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02de 027d | } | Execute Discrete,Greater 02df 6801 |h | Jump_Zero 0x2e1 02e0 08e0 | | Execute_Immediate Raise,0xe0 02e1 00db | | Load_Top At_Offset_3 02e2 00db | | Load_Top At_Offset_3 02e3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02e4 01d7 | | Execute Vector,Field_Read 02e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 e5fd | | Load 0x2,-0x3 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 e5fd | | Load 0x2,-0x3 02f3 e5ff | | Load 0x2,-0x1 02f4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02f5 01cf | | Execute Vector,Slice_Read 02f6 0335 | 5 | Declare_Variable Array,Duplicate 02f7 00cd | | Action Spare6_Action 02f8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02f9 0000 0000 | | .BLANK 0000[0x7] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0306 0000 0000 | | .XXX[0x2] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0312 | | .CONST 0x0312 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b e5fd | | Load 0x2,-0x3 030c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 030d e5fe | | Load 0x2,-0x2 030e 01db | | Execute Vector,Length 030f 0273 | s | Execute Discrete,Plus 0310 00e3 | | Load_Encached Natural_Cache 0311 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0312 BODY_0308: 0312 e5fe | | Load 0x2,-0x2 0313 e5ff | | Load 0x2,-0x1 0314 e5fd | | Load 0x2,-0x3 0315 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0316 e5fd | | Load 0x2,-0x3 0317 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0318 01cf | | Execute Vector,Slice_Read 0319 01cc | | Execute Vector,Catenate 031a e5ff | | Load 0x2,-0x1 031b 00da | | Load_Top At_Offset_2 031c e5fd | | Load 0x2,-0x3 031d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 031e 01ce | | Execute Vector,Slice_Write 031f 00d8 | | Load_Top At_Offset_0 0320 e5fd | | Load 0x2,-0x3 0321 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0322 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b BODY_0328: 032b INIT_0328: 032b INIT_0328: 032b 4608 |F | Jump_Case 0x9 032c 7808 |x | Jump 0x335 ; case 0x0 032d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 032e 781d |x | Jump 0x34c ; case 0x2 032f 781c |x | Jump 0x34c ; case 0x3 0330 781b |x | Jump 0x34c ; case 0x4 0331 781a |x | Jump 0x34c ; case 0x5 0332 7819 |x | Jump 0x34c ; case 0x6 0333 7805 |x | Jump 0x339 ; case 0x7 0334 780d |x | Jump 0x342 ; case 0x8 0335 4800 |H | Short_Literal 0x0 0336 00db | | Load_Top At_Offset_3 0337 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0338 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0339 00db | | Load_Top At_Offset_3 033a 4801 |H | Short_Literal 0x1 033b e5fe | | Load 0x2,-0x2 033c 00e9 | | Load_Encached String_Cache 033d 035b | [ | Declare_Type Array,Constrained 033e 4801 |H | Short_Literal 0x1 033f e5ff | | Load 0x2,-0x1 0340 031b | | Declare_Type Variant_Record,Constrained 0341 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0342 00db | | Load_Top At_Offset_3 0343 00db | | Load_Top At_Offset_3 0344 02fc | | Declare_Variable Variant_Record,With_Constraint 0345 4801 |H | Short_Literal 0x1 0346 e5fe | | Load 0x2,-0x2 0347 00e9 | | Load_Encached String_Cache 0348 0334 | 4 | Declare_Variable Array,With_Constraint 0349 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 034a 016a | j | QQ_execute Variant_Record,XXX 034b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 034c 0869 | i | Execute_Immediate Raise,0x69 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; Debug Table 0350 ; -------------------------------------------------------------------------------------- 0350 0004 0002 | | .DEBUG4 0x0004,0x0002,0x18a2,0x0000,0x0001,0x001e 0356 000b 03ce | | .DBG4T 0x000b,0x03ce,0x8000,0x8000 035a 0056 040a | V | .DBG4T 0x0056,0x040a,0x8000,0x0000 035e 0093 0426 | &| .DBG4T 0x0093,0x0426,0x0001,0x0000 0362 00ab 042a | *| .DBG4T 0x00ab,0x042a,0x0001,0x0000 0366 00c3 042e | .| .DBG4T 0x00c3,0x042e,0x0001,0x0000 036a 00d3 0432 | 2| .DBG4T 0x00d3,0x0432,0x0001,0x0000 036e 00eb 0437 | 7| .DBG4T 0x00eb,0x0437,0x0002,0x0000 0372 00fb 043a | :| .DBG4T 0x00fb,0x043a,0x0002,0x0000 0376 011b 043d | =| .DBG4T 0x011b,0x043d,0x0002,0x0000 037a 014b 0442 | K B| .DBG4T 0x014b,0x0442,0x0001,0x0000 037e 0153 0445 | S E| .DBG4T 0x0153,0x0445,0x0001,0x0000 0382 015b 0448 | [ H| .DBG4T 0x015b,0x0448,0x0001,0x0000 0386 017b 044d | { M| .DBG4T 0x017b,0x044d,0x0001,0x0000 038a 0193 0452 | R| .DBG4T 0x0193,0x0452,0x0001,0x0000 038e 01b3 0456 | V| .DBG4T 0x01b3,0x0456,0x0001,0x0000 0392 01c3 0459 | Y| .DBG4T 0x01c3,0x0459,0x0001,0x0000 0396 01db 0460 | `| .DBG4T 0x01db,0x0460,0x0001,0x0000 039a 020b 046a | j| .DBG4T 0x020b,0x046a,0x0001,0x0000 039e 022b 046e | + n| .DBG4T 0x022b,0x046e,0x0001,0x0000 03a2 025b 0476 | [ v| .DBG4T 0x025b,0x0476,0x0001,0x0000 03a6 026b 047b | k {| .DBG4T 0x026b,0x047b,0x0001,0x0000 03aa 028b 047f | | .DBG4T 0x028b,0x047f,0x0001,0x0000 03ae 02a3 0485 | | .DBG4T 0x02a3,0x0485,0x0001,0x0000 03b2 02b3 0488 | | .DBG4T 0x02b3,0x0488,0x0001,0x0000 03b6 02d3 048e | | .DBG4T 0x02d3,0x048e,0x0002,0x0000 03ba 02db 0491 | | .DBG4T 0x02db,0x0491,0x0002,0x0000 03be 02eb 0496 | | .DBG4T 0x02eb,0x0496,0x0002,0x0000 03c2 0303 049b | | .DBG4T 0x0303,0x049b,0x0002,0x0000 03c6 030b 049e | | .DBG4T 0x030b,0x049e,0x0004,0x0000 03ca 032b 0000 | + | .DBG4T 0x032b,0x0000,0x0005,0x0000 03ce ; -------------------------------------------------------------------------------------- 03ce ; Debug chain 03ce ; -------------------------------------------------------------------------------------- 03ce 001d 0000 | | .DBGLEN 0x001d,0x0000 03d0 000b 000d | | .DBGLNO 0x000b,0x000d,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c 03ed 0001 0002 | | .XXX[0x1d] 03ef 0003 0004 | | 03f1 0005 0006 | | 03f3 0007 0008 | | 03f5 0009 000b | | 03f7 000c 000d | | 03f9 000e 000f | | 03fb 0010 0011 | | 03fd 0012 0013 | | 03ff 0014 0015 | | 0401 0016 0017 | | 0403 0018 0019 | | 0405 001a 001b | | 0407 001c 001d | | 0409 0021 | ! | 040a ; -------------------------------------------------------------------------------------- 040a ; Debug chain 040a ; -------------------------------------------------------------------------------------- 040a 001a 0000 | | .DBGLEN 0x001a,0x0000 040c 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 0426 ; -------------------------------------------------------------------------------------- 0426 ; Debug chain 0426 ; -------------------------------------------------------------------------------------- 0426 0000 0002 | | .DBGLEN 0x0000,0x0002 0428 0093 009f | | .DBGLNO 0x0093,0x009f 042a ; -------------------------------------------------------------------------------------- 042a ; Debug chain 042a ; -------------------------------------------------------------------------------------- 042a 0000 0002 | | .DBGLEN 0x0000,0x0002 042c 00ab 00b7 | | .DBGLNO 0x00ab,0x00b7 042e ; -------------------------------------------------------------------------------------- 042e ; Debug chain 042e ; -------------------------------------------------------------------------------------- 042e 0000 0002 | | .DBGLEN 0x0000,0x0002 0430 00c3 00c8 | | .DBGLNO 0x00c3,0x00c8 0432 ; -------------------------------------------------------------------------------------- 0432 ; Debug chain 0432 ; -------------------------------------------------------------------------------------- 0432 0000 0003 | | .DBGLEN 0x0000,0x0003 0434 00d3 00df | | .DBGLNO 0x00d3,0x00df,0x00e3 0437 ; -------------------------------------------------------------------------------------- 0437 ; Debug chain 0437 ; -------------------------------------------------------------------------------------- 0437 0000 0001 | | .DBGLEN 0x0000,0x0001 0439 00eb | | .DBGLNO 0x00eb 043a ; -------------------------------------------------------------------------------------- 043a ; Debug chain 043a ; -------------------------------------------------------------------------------------- 043a 0000 0001 | | .DBGLEN 0x0000,0x0001 043c 00fb | | .DBGLNO 0x00fb 043d ; -------------------------------------------------------------------------------------- 043d ; Debug chain 043d ; -------------------------------------------------------------------------------------- 043d 0001 0002 | | .DBGLEN 0x0001,0x0002 043f 011b 0120 | | .DBGLNO 0x011b,0x0120,0x012b 0442 ; -------------------------------------------------------------------------------------- 0442 ; Debug chain 0442 ; -------------------------------------------------------------------------------------- 0442 0000 0001 | | .DBGLEN 0x0000,0x0001 0444 014b | K | .DBGLNO 0x014b 0445 ; -------------------------------------------------------------------------------------- 0445 ; Debug chain 0445 ; -------------------------------------------------------------------------------------- 0445 0000 0001 | | .DBGLEN 0x0000,0x0001 0447 0153 | S | .DBGLNO 0x0153 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug chain 0448 ; -------------------------------------------------------------------------------------- 0448 0001 0002 | | .DBGLEN 0x0001,0x0002 044a 015b 0162 | [ b| .DBGLNO 0x015b,0x0162,0x016f 044d ; -------------------------------------------------------------------------------------- 044d ; Debug chain 044d ; -------------------------------------------------------------------------------------- 044d 0001 0002 | | .DBGLEN 0x0001,0x0002 044f 017b 0180 | { | .DBGLNO 0x017b,0x0180,0x0185 0452 ; -------------------------------------------------------------------------------------- 0452 ; Debug chain 0452 ; -------------------------------------------------------------------------------------- 0452 0001 0001 | | .DBGLEN 0x0001,0x0001 0454 0193 01a9 | | .DBGLNO 0x0193,0x01a9 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug chain 0456 ; -------------------------------------------------------------------------------------- 0456 0000 0001 | | .DBGLEN 0x0000,0x0001 0458 01b3 | | .DBGLNO 0x01b3 0459 ; -------------------------------------------------------------------------------------- 0459 ; Debug chain 0459 ; -------------------------------------------------------------------------------------- 0459 0000 0005 | | .DBGLEN 0x0000,0x0005 045b 01c5 01cb | | .DBGLNO 0x01c5,0x01cb,0x01d0,0x01d5,0x01d7 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug chain 0460 ; -------------------------------------------------------------------------------------- 0460 0001 0007 | | .DBGLEN 0x0001,0x0007 0462 01db 01e0 | | .DBGLNO 0x01db,0x01e0,0x01e4,0x01e9,0x01ed,0x01ee,0x01ff,0x0204 046a ; -------------------------------------------------------------------------------------- 046a ; Debug chain 046a ; -------------------------------------------------------------------------------------- 046a 0001 0001 | | .DBGLEN 0x0001,0x0001 046c 020b 0221 | !| .DBGLNO 0x020b,0x0221 046e ; -------------------------------------------------------------------------------------- 046e ; Debug chain 046e ; -------------------------------------------------------------------------------------- 046e 0001 0005 | | .DBGLEN 0x0001,0x0005 0470 022b 0231 | + 1| .DBGLNO 0x022b,0x0231,0x0236,0x0237,0x023b,0x024d 0476 ; -------------------------------------------------------------------------------------- 0476 ; Debug chain 0476 ; -------------------------------------------------------------------------------------- 0476 0000 0003 | | .DBGLEN 0x0000,0x0003 0478 025b 0260 | [ `| .DBGLNO 0x025b,0x0260,0x0261 047b ; -------------------------------------------------------------------------------------- 047b ; Debug chain 047b ; -------------------------------------------------------------------------------------- 047b 0001 0001 | | .DBGLEN 0x0001,0x0001 047d 026b 0281 | k | .DBGLNO 0x026b,0x0281 047f ; -------------------------------------------------------------------------------------- 047f ; Debug chain 047f ; -------------------------------------------------------------------------------------- 047f 0001 0003 | | .DBGLEN 0x0001,0x0003 0481 028b 0292 | | .DBGLNO 0x028b,0x0292,0x0297,0x0298 0485 ; -------------------------------------------------------------------------------------- 0485 ; Debug chain 0485 ; -------------------------------------------------------------------------------------- 0485 0000 0001 | | .DBGLEN 0x0000,0x0001 0487 02a3 | | .DBGLNO 0x02a3 0488 ; -------------------------------------------------------------------------------------- 0488 ; Debug chain 0488 ; -------------------------------------------------------------------------------------- 0488 0001 0003 | | .DBGLEN 0x0001,0x0003 048a 02b3 02b8 | | .DBGLNO 0x02b3,0x02b8,0x02c2,0x02ca 048e ; -------------------------------------------------------------------------------------- 048e ; Debug chain 048e ; -------------------------------------------------------------------------------------- 048e 0000 0001 | | .DBGLEN 0x0000,0x0001 0490 02d3 | | .DBGLNO 0x02d3 0491 ; -------------------------------------------------------------------------------------- 0491 ; Debug chain 0491 ; -------------------------------------------------------------------------------------- 0491 0000 0003 | | .DBGLEN 0x0000,0x0003 0493 02db 02e0 | | .DBGLNO 0x02db,0x02e0,0x02e1 0496 ; -------------------------------------------------------------------------------------- 0496 ; Debug chain 0496 ; -------------------------------------------------------------------------------------- 0496 0000 0003 | | .DBGLEN 0x0000,0x0003 0498 02eb 02f0 | | .DBGLNO 0x02eb,0x02f0,0x02f1 049b ; -------------------------------------------------------------------------------------- 049b ; Debug chain 049b ; -------------------------------------------------------------------------------------- 049b 0000 0001 | | .DBGLEN 0x0000,0x0001 049d 0303 | | .DBGLNO 0x0303 049e ; -------------------------------------------------------------------------------------- 049e ; Debug chain 049e ; -------------------------------------------------------------------------------------- 049e 0001 0002 | | .DBGLEN 0x0001,0x0002 04a0 030b 0312 | | .DBGLNO 0x030b,0x0312,0x031f 04a3 0000 0000 | | .BLANK 0000[0x15d]