|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0090
0011 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0013 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
0015 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0017 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0019 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
001b 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
001d 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
001f 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0021 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0023 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0025 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0027 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0029 029a 01d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d0
002b 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
002d 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
002f 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238
0031 029a 026b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0268
0033 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
0035 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0037 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0039 029a 02c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c0
003b 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
003d 029a 02eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e8
003f 029a 02fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02f8
0041 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
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 For_Call,INIT_0338
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,Fixed,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,Fixed,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_Subprogram 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,Fixed,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_Subprogram 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,Fixed,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_Subprogram 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,Fixed,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,Fixed,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_Subprogram 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,Fixed,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_Result,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,Fixed,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_Result,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,Fixed,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_Result,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_Subprogram 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_Subprogram 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,Fixed,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_Subprogram 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,Fixed,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_Subprogram 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_Subprogram 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,Fixed,Indirect,Field_Number 0x3
01c9 01cf | | Execute Vector,Slice_Read
01ca e5ff | | Load 0x2,-0x1
01cb 821d | | Call 0x1,0x1d
01cc 4503 |E | Exit_Subprogram 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 For_Call,INIT_0318
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_Subprogram 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_Subprogram 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_Subprogram 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,Fixed,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,Fixed,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,Fixed,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_Subprogram 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_Subprogram 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,Fixed,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,Fixed,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_Subprogram 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,Fixed,Indirect,Field_Number 0x3
0275 01d6 | | Execute Vector,Field_Write
0276 4503 |E | Exit_Subprogram 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_Subprogram 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,Fixed,Indirect,Field_Number 0x3
02ad 01ce | | Execute Vector,Slice_Write
02ae 4503 |E | Exit_Subprogram 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_Subprogram 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,Fixed,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_Subprogram 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_Result,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,Fixed,Indirect,Field_Number 0x3
02f4 01d7 | | Execute Vector,Field_Read
02f5 4402 |D | Exit_Subprogram With_Result,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,Fixed,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_Result,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_Result,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,Fixed,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,Fixed,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_Subprogram 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 0x9
033c 7809 |x | Jump 0x346 ; case 0x0
033d 4302 |C | Exit_Subprogram From_Utility,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,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,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,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,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,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 | Execute Variant_Record,Indirects_Appended
0372 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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]