|
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: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_b5ccd9
└─⟦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 0568 | h | .CONST 0x0568 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009b | | .CONST 0x009b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0
0010 4819 |H | Short_Literal 0x19
0011 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0016 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0018 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001a 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
001c 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001e 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0020 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0022 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0024 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0026 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0028 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
002a 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
002c 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
002e 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0030 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0032 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0034 4800 |H | Short_Literal 0x0
0035 480d |H | Short_Literal 0xd
0036 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
0038 03fe | | Declare_Type Discrete,Defined,Visible
0039 4800 |H | Short_Literal 0x0
003a 4805 |H | Short_Literal 0x5
003b 00da | | Load_Top At_Offset_2
003c 03f9 | | Declare_Type Discrete,Constrained,Visible
003d 4806 |H | Short_Literal 0x6
003e 480b |H | Short_Literal 0xb
003f 00db | | Load_Top At_Offset_3
0040 03f9 | | Declare_Type Discrete,Constrained,Visible
0041 480c |H | Short_Literal 0xc
0042 480d |H | Short_Literal 0xd
0043 e21f | | Load 0x1,0x1f
0044 03f9 | | Declare_Type Discrete,Constrained,Visible
0045 00db | | Load_Top At_Offset_3
0046 00e2 | | Load_Encached Integer_Cache
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4802 |H | Short_Literal 0x2
0049 032e | . | Declare_Type Record,Defined,Visible
004a 00e4 | | Load_Encached Positive_Cache
004b 0266 | f | Execute Discrete,Bounds
004c 00da | | Load_Top At_Offset_2
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e 4801 |H | Short_Literal 0x1
004f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0050 e20d | | Load 0x1,0xd
0051 4801 |H | Short_Literal 0x1
0052 4805 |H | Short_Literal 0x5
0053 00db | | Load_Top At_Offset_3
0054 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0055 029f 0483 | | Declare_Subprogram INIT_0480,For_Call
0057 4800 |H | Short_Literal 0x0
0058 4801 |H | Short_Literal 0x1
0059 4800 |H | Short_Literal 0x0
005a 4800 |H | Short_Literal 0x0
005b 4801 |H | Short_Literal 0x1
005c 4801 |H | Short_Literal 0x1
005d 031e | | Declare_Type Variant_Record,Defined,Visible
005e 00bf | | Action Accept_Activation
005f e20e | | Load 0x1,0xe
0060 0266 | f | Execute Discrete,Bounds
0061 00e2 | | Load_Encached Integer_Cache
0062 02a0 | | Declare_Subprogram Null_Subprogram
0063 4801 |H | Short_Literal 0x1
0064 035d | ] | Declare_Type Array,Defined
0065 00d8 | | Load_Top At_Offset_0
0066 0337 | 7 | Declare_Variable Array
0067 00d8 | | Load_Top At_Offset_0
0068 0335 | 5 | Declare_Variable Array,Duplicate
0069 00cd | | Action Spare6_Action
006a 4819 |H | Short_Literal 0x19
006b 4800 |H | Short_Literal 0x0
006c 4800 |H | Short_Literal 0x0
006d 00d9 | | Load_Top At_Offset_1
006e e228 | ( | Load 0x1,0x28
006f 01d6 | | Execute Vector,Field_Write
0070 3ffb |? | Loop_Increasing 0x6c
0071 00d9 | | Load_Top At_Offset_1
0072 01d4 | | Execute Vector,Structure_Write
0073 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0074 00c7 | | Action Elaborate_Subprogram
0075 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0076 00c7 | | Action Elaborate_Subprogram
0077 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0078 00c7 | | Action Elaborate_Subprogram
0079 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007a 00c7 | | Action Elaborate_Subprogram
007b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
007c 00c7 | | Action Elaborate_Subprogram
007d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007e 00c7 | | Action Elaborate_Subprogram
007f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0080 00c7 | | Action Elaborate_Subprogram
0081 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0082 00c7 | | Action Elaborate_Subprogram
0083 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0084 00c7 | | Action Elaborate_Subprogram
0085 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0086 00c7 | | Action Elaborate_Subprogram
0087 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0088 00c7 | | Action Elaborate_Subprogram
0089 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008a 00c7 | | Action Elaborate_Subprogram
008b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008c 00c7 | | Action Elaborate_Subprogram
008d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0090 00c7 | | Action Elaborate_Subprogram
0091 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call
0093 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
0095 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
0097 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
0099 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009a 00c7 | | Action Elaborate_Subprogram
009b BODY_0008:
009b 00bc | | Action Signal_Activated
009c 00bb | | Action Signal_Completion
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4607 |F | Jump_Case 0x8
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7807 |x | Jump 0xad ; case 0x1
00a6 780a |x | Jump 0xb1 ; case 0x2
00a7 780e |x | Jump 0xb6 ; case 0x3
00a8 7811 |x | Jump 0xba ; case 0x4
00a9 7812 |x | Jump 0xbc ; case 0x5
00aa 7813 |x | Jump 0xbe ; case 0x6
00ab 7816 |x | Jump 0xc2 ; case 0x7
00ac 4302 |C | .XXX[0x1]
00ad 00da | | Load_Top At_Offset_2
00ae 0091 04bc | | Action Push_String_Extended_Indexed,0x4bc ; "A"
00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db | | Load_Top At_Offset_3
00b2 00db | | Load_Top At_Offset_3
00b3 00e0 | | Load_Encached Standard_Cache
00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b6 00da | | Load_Top At_Offset_2
00b7 00e0 | | Load_Encached Standard_Cache
00b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ba 00db | | Load_Top At_Offset_3
00bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bc 00db | | Load_Top At_Offset_3
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00be e20e | | Load 0x1,0xe
00bf 00dc | | Load_Top At_Offset_4
00c0 0267 | g | Execute Discrete,Predecessor
00c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c2 e20e | | Load 0x1,0xe
00c3 00dc | | Load_Top At_Offset_4
00c4 0268 | h | Execute Discrete,Successor
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4801 |H | Short_Literal 0x1
00cc e225 | % | Load 0x1,0x25
00cd 1c08 | | Execute_Immediate Run_Utility,0x8
00ce 00d8 | | Load_Top At_Offset_0
00cf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d0 0335 | 5 | Declare_Variable Array,Duplicate
00d1 00cd | | Action Spare6_Action
00d2 00d9 | | Load_Top At_Offset_1
00d3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d4 01d9 | | Execute Vector,Reverse_Bounds
00d5 0263 | c | Execute Discrete,Above_Bound
00d6 700c |p | Jump_Nonzero 0xe3
00d7 e223 | # | Load 0x1,0x23
00d8 0322 | " | Declare_Variable Record
00d9 4800 |H | Short_Literal 0x0
00da 00d9 | | Load_Top At_Offset_1
00db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00dc e5ff | | Load 0x2,-0x1
00dd 00d9 | | Load_Top At_Offset_1
00de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00df 00d9 | | Load_Top At_Offset_1
00e0 e403 | | Load 0x2,0x3
00e1 01d6 | | Execute Vector,Field_Write
00e2 3ff4 |? | Loop_Increasing 0xd7
00e3 00d9 | | Load_Top At_Offset_1
00e4 00d8 | | Load_Top At_Offset_0
00e5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e6 00da | | Load_Top At_Offset_2
00e7 01da | | Execute Vector,Bounds
00e8 00da | | Load_Top At_Offset_2
00e9 01da | | Execute Vector,Bounds
00ea 00da | | Load_Top At_Offset_2
00eb 027f | | Execute Discrete,Equal
00ec 7001 |p | Jump_Nonzero 0xee
00ed 08e0 | | Execute_Immediate Raise,0xe0
00ee 00cd | | Action Spare6_Action
00ef 027f | | Execute Discrete,Equal
00f0 7001 |p | Jump_Nonzero 0xf2
00f1 08e0 | | Execute_Immediate Raise,0xe0
00f2 00d2 | | Pop_Control Pop_Count_2
00f3 00d9 | | Load_Top At_Offset_1
00f4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
00fc e225 | % | Load 0x1,0x25
00fd 1c08 | | Execute_Immediate Run_Utility,0x8
00fe 00d8 | | Load_Top At_Offset_0
00ff 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0100 0335 | 5 | Declare_Variable Array,Duplicate
0101 00cd | | Action Spare6_Action
0102 00d9 | | Load_Top At_Offset_1
0103 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0104 01d9 | | Execute Vector,Reverse_Bounds
0105 0263 | c | Execute Discrete,Above_Bound
0106 700c |p | Jump_Nonzero 0x113
0107 e223 | # | Load 0x1,0x23
0108 0322 | " | Declare_Variable Record
0109 4801 |H | Short_Literal 0x1
010a 00d9 | | Load_Top At_Offset_1
010b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010c e5ff | | Load 0x2,-0x1
010d 00d9 | | Load_Top At_Offset_1
010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
010f 00d9 | | Load_Top At_Offset_1
0110 e403 | | Load 0x2,0x3
0111 01d6 | | Execute Vector,Field_Write
0112 3ff4 |? | Loop_Increasing 0x107
0113 00d9 | | Load_Top At_Offset_1
0114 00d8 | | Load_Top At_Offset_0
0115 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0116 00da | | Load_Top At_Offset_2
0117 01da | | Execute Vector,Bounds
0118 00da | | Load_Top At_Offset_2
0119 01da | | Execute Vector,Bounds
011a 00da | | Load_Top At_Offset_2
011b 027f | | Execute Discrete,Equal
011c 7001 |p | Jump_Nonzero 0x11e
011d 08e0 | | Execute_Immediate Raise,0xe0
011e 00cd | | Action Spare6_Action
011f 027f | | Execute Discrete,Equal
0120 7001 |p | Jump_Nonzero 0x122
0121 08e0 | | Execute_Immediate Raise,0xe0
0122 00d2 | | Pop_Control Pop_Count_2
0123 00d9 | | Load_Top At_Offset_1
0124 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4801 |H | Short_Literal 0x1
012c e225 | % | Load 0x1,0x25
012d 1c08 | | Execute_Immediate Run_Utility,0x8
012e 00d8 | | Load_Top At_Offset_0
012f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0130 0335 | 5 | Declare_Variable Array,Duplicate
0131 00cd | | Action Spare6_Action
0132 00d9 | | Load_Top At_Offset_1
0133 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0134 01d9 | | Execute Vector,Reverse_Bounds
0135 0263 | c | Execute Discrete,Above_Bound
0136 700c |p | Jump_Nonzero 0x143
0137 e223 | # | Load 0x1,0x23
0138 0322 | " | Declare_Variable Record
0139 4802 |H | Short_Literal 0x2
013a 00d9 | | Load_Top At_Offset_1
013b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013c e5ff | | Load 0x2,-0x1
013d 00d9 | | Load_Top At_Offset_1
013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013f 00d9 | | Load_Top At_Offset_1
0140 e403 | | Load 0x2,0x3
0141 01d6 | | Execute Vector,Field_Write
0142 3ff4 |? | Loop_Increasing 0x137
0143 00d9 | | Load_Top At_Offset_1
0144 00d8 | | Load_Top At_Offset_0
0145 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
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 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4801 |H | Short_Literal 0x1
015c e225 | % | Load 0x1,0x25
015d 1c08 | | Execute_Immediate Run_Utility,0x8
015e 00d8 | | Load_Top At_Offset_0
015f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0160 0335 | 5 | Declare_Variable Array,Duplicate
0161 00cd | | Action Spare6_Action
0162 00d9 | | Load_Top At_Offset_1
0163 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0164 01d9 | | Execute Vector,Reverse_Bounds
0165 0263 | c | Execute Discrete,Above_Bound
0166 700c |p | Jump_Nonzero 0x173
0167 e223 | # | Load 0x1,0x23
0168 0322 | " | Declare_Variable Record
0169 4803 |H | Short_Literal 0x3
016a 00d9 | | Load_Top At_Offset_1
016b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016c e5ff | | Load 0x2,-0x1
016d 00d9 | | Load_Top At_Offset_1
016e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016f 00d9 | | Load_Top At_Offset_1
0170 e403 | | Load 0x2,0x3
0171 01d6 | | Execute Vector,Field_Write
0172 3ff4 |? | Loop_Increasing 0x167
0173 00d9 | | Load_Top At_Offset_1
0174 00d8 | | Load_Top At_Offset_0
0175 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0176 00da | | Load_Top At_Offset_2
0177 01da | | Execute Vector,Bounds
0178 00da | | Load_Top At_Offset_2
0179 01da | | Execute Vector,Bounds
017a 00da | | Load_Top At_Offset_2
017b 027f | | Execute Discrete,Equal
017c 7001 |p | Jump_Nonzero 0x17e
017d 08e0 | | Execute_Immediate Raise,0xe0
017e 00cd | | Action Spare6_Action
017f 027f | | Execute Discrete,Equal
0180 7001 |p | Jump_Nonzero 0x182
0181 08e0 | | Execute_Immediate Raise,0xe0
0182 00d2 | | Pop_Control Pop_Count_2
0183 00d9 | | Load_Top At_Offset_1
0184 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4801 |H | Short_Literal 0x1
018c e225 | % | Load 0x1,0x25
018d 1c08 | | Execute_Immediate Run_Utility,0x8
018e 00d8 | | Load_Top At_Offset_0
018f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0190 0335 | 5 | Declare_Variable Array,Duplicate
0191 00cd | | Action Spare6_Action
0192 00d9 | | Load_Top At_Offset_1
0193 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0194 01d9 | | Execute Vector,Reverse_Bounds
0195 0263 | c | Execute Discrete,Above_Bound
0196 700c |p | Jump_Nonzero 0x1a3
0197 e223 | # | Load 0x1,0x23
0198 0322 | " | Declare_Variable Record
0199 4804 |H | Short_Literal 0x4
019a 00d9 | | Load_Top At_Offset_1
019b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019c e5ff | | Load 0x2,-0x1
019d 00d9 | | Load_Top At_Offset_1
019e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019f 00d9 | | Load_Top At_Offset_1
01a0 e403 | | Load 0x2,0x3
01a1 01d6 | | Execute Vector,Field_Write
01a2 3ff4 |? | Loop_Increasing 0x197
01a3 00d9 | | Load_Top At_Offset_1
01a4 00d8 | | Load_Top At_Offset_0
01a5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01a6 00da | | Load_Top At_Offset_2
01a7 01da | | Execute Vector,Bounds
01a8 00da | | Load_Top At_Offset_2
01a9 01da | | Execute Vector,Bounds
01aa 00da | | Load_Top At_Offset_2
01ab 027f | | Execute Discrete,Equal
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 08e0 | | Execute_Immediate Raise,0xe0
01ae 00cd | | Action Spare6_Action
01af 027f | | Execute Discrete,Equal
01b0 7001 |p | Jump_Nonzero 0x1b2
01b1 08e0 | | Execute_Immediate Raise,0xe0
01b2 00d2 | | Pop_Control Pop_Count_2
01b3 00d9 | | Load_Top At_Offset_1
01b4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4801 |H | Short_Literal 0x1
01bc e225 | % | Load 0x1,0x25
01bd 1c08 | | Execute_Immediate Run_Utility,0x8
01be 00d8 | | Load_Top At_Offset_0
01bf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01c0 0335 | 5 | Declare_Variable Array,Duplicate
01c1 00cd | | Action Spare6_Action
01c2 00d9 | | Load_Top At_Offset_1
01c3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01c4 01d9 | | Execute Vector,Reverse_Bounds
01c5 0263 | c | Execute Discrete,Above_Bound
01c6 700c |p | Jump_Nonzero 0x1d3
01c7 e223 | # | Load 0x1,0x23
01c8 0322 | " | Declare_Variable Record
01c9 4805 |H | Short_Literal 0x5
01ca 00d9 | | Load_Top At_Offset_1
01cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cc e5ff | | Load 0x2,-0x1
01cd 00d9 | | Load_Top At_Offset_1
01ce 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01cf 00d9 | | Load_Top At_Offset_1
01d0 e403 | | Load 0x2,0x3
01d1 01d6 | | Execute Vector,Field_Write
01d2 3ff4 |? | Loop_Increasing 0x1c7
01d3 00d9 | | Load_Top At_Offset_1
01d4 00d8 | | Load_Top At_Offset_0
01d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01d6 00da | | Load_Top At_Offset_2
01d7 01da | | Execute Vector,Bounds
01d8 00da | | Load_Top At_Offset_2
01d9 01da | | Execute Vector,Bounds
01da 00da | | Load_Top At_Offset_2
01db 027f | | Execute Discrete,Equal
01dc 7001 |p | Jump_Nonzero 0x1de
01dd 08e0 | | Execute_Immediate Raise,0xe0
01de 00cd | | Action Spare6_Action
01df 027f | | Execute Discrete,Equal
01e0 7001 |p | Jump_Nonzero 0x1e2
01e1 08e0 | | Execute_Immediate Raise,0xe0
01e2 00d2 | | Pop_Control Pop_Count_2
01e3 00d9 | | Load_Top At_Offset_1
01e4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4801 |H | Short_Literal 0x1
01ec e225 | % | Load 0x1,0x25
01ed 1c08 | | Execute_Immediate Run_Utility,0x8
01ee 00d8 | | Load_Top At_Offset_0
01ef 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01f0 0335 | 5 | Declare_Variable Array,Duplicate
01f1 00cd | | Action Spare6_Action
01f2 00d9 | | Load_Top At_Offset_1
01f3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01f4 01d9 | | Execute Vector,Reverse_Bounds
01f5 0263 | c | Execute Discrete,Above_Bound
01f6 700c |p | Jump_Nonzero 0x203
01f7 e223 | # | Load 0x1,0x23
01f8 0322 | " | Declare_Variable Record
01f9 4806 |H | Short_Literal 0x6
01fa 00d9 | | Load_Top At_Offset_1
01fb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01fc e5ff | | Load 0x2,-0x1
01fd 00d9 | | Load_Top At_Offset_1
01fe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ff 00d9 | | Load_Top At_Offset_1
0200 e403 | | Load 0x2,0x3
0201 01d6 | | Execute Vector,Field_Write
0202 3ff4 |? | Loop_Increasing 0x1f7
0203 00d9 | | Load_Top At_Offset_1
0204 00d8 | | Load_Top At_Offset_0
0205 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0206 00da | | Load_Top At_Offset_2
0207 01da | | Execute Vector,Bounds
0208 00da | | Load_Top At_Offset_2
0209 01da | | Execute Vector,Bounds
020a 00da | | Load_Top At_Offset_2
020b 027f | | Execute Discrete,Equal
020c 7001 |p | Jump_Nonzero 0x20e
020d 08e0 | | Execute_Immediate Raise,0xe0
020e 00cd | | Action Spare6_Action
020f 027f | | Execute Discrete,Equal
0210 7001 |p | Jump_Nonzero 0x212
0211 08e0 | | Execute_Immediate Raise,0xe0
0212 00d2 | | Pop_Control Pop_Count_2
0213 00d9 | | Load_Top At_Offset_1
0214 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4801 |H | Short_Literal 0x1
021c e225 | % | Load 0x1,0x25
021d 1c08 | | Execute_Immediate Run_Utility,0x8
021e 00d8 | | Load_Top At_Offset_0
021f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0220 0335 | 5 | Declare_Variable Array,Duplicate
0221 00cd | | Action Spare6_Action
0222 00d9 | | Load_Top At_Offset_1
0223 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0224 01d9 | | Execute Vector,Reverse_Bounds
0225 0263 | c | Execute Discrete,Above_Bound
0226 700c |p | Jump_Nonzero 0x233
0227 e223 | # | Load 0x1,0x23
0228 0322 | " | Declare_Variable Record
0229 4807 |H | Short_Literal 0x7
022a 00d9 | | Load_Top At_Offset_1
022b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
022c e5ff | | Load 0x2,-0x1
022d 00d9 | | Load_Top At_Offset_1
022e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022f 00d9 | | Load_Top At_Offset_1
0230 e403 | | Load 0x2,0x3
0231 01d6 | | Execute Vector,Field_Write
0232 3ff4 |? | Loop_Increasing 0x227
0233 00d9 | | Load_Top At_Offset_1
0234 00d8 | | Load_Top At_Offset_0
0235 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0236 00da | | Load_Top At_Offset_2
0237 01da | | Execute Vector,Bounds
0238 00da | | Load_Top At_Offset_2
0239 01da | | Execute Vector,Bounds
023a 00da | | Load_Top At_Offset_2
023b 027f | | Execute Discrete,Equal
023c 7001 |p | Jump_Nonzero 0x23e
023d 08e0 | | Execute_Immediate Raise,0xe0
023e 00cd | | Action Spare6_Action
023f 027f | | Execute Discrete,Equal
0240 7001 |p | Jump_Nonzero 0x242
0241 08e0 | | Execute_Immediate Raise,0xe0
0242 00d2 | | Pop_Control Pop_Count_2
0243 00d9 | | Load_Top At_Offset_1
0244 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0245 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4801 |H | Short_Literal 0x1
024c e225 | % | Load 0x1,0x25
024d 1c08 | | Execute_Immediate Run_Utility,0x8
024e 00d8 | | Load_Top At_Offset_0
024f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0250 0335 | 5 | Declare_Variable Array,Duplicate
0251 00cd | | Action Spare6_Action
0252 00d9 | | Load_Top At_Offset_1
0253 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0254 01d9 | | Execute Vector,Reverse_Bounds
0255 0263 | c | Execute Discrete,Above_Bound
0256 700c |p | Jump_Nonzero 0x263
0257 e223 | # | Load 0x1,0x23
0258 0322 | " | Declare_Variable Record
0259 4808 |H | Short_Literal 0x8
025a 00d9 | | Load_Top At_Offset_1
025b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
025c e5ff | | Load 0x2,-0x1
025d 00d9 | | Load_Top At_Offset_1
025e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025f 00d9 | | Load_Top At_Offset_1
0260 e403 | | Load 0x2,0x3
0261 01d6 | | Execute Vector,Field_Write
0262 3ff4 |? | Loop_Increasing 0x257
0263 00d9 | | Load_Top At_Offset_1
0264 00d8 | | Load_Top At_Offset_0
0265 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0266 00da | | Load_Top At_Offset_2
0267 01da | | Execute Vector,Bounds
0268 00da | | Load_Top At_Offset_2
0269 01da | | Execute Vector,Bounds
026a 00da | | Load_Top At_Offset_2
026b 027f | | Execute Discrete,Equal
026c 7001 |p | Jump_Nonzero 0x26e
026d 08e0 | | Execute_Immediate Raise,0xe0
026e 00cd | | Action Spare6_Action
026f 027f | | Execute Discrete,Equal
0270 7001 |p | Jump_Nonzero 0x272
0271 08e0 | | Execute_Immediate Raise,0xe0
0272 00d2 | | Pop_Control Pop_Count_2
0273 00d9 | | Load_Top At_Offset_1
0274 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4801 |H | Short_Literal 0x1
027c e225 | % | Load 0x1,0x25
027d 1c08 | | Execute_Immediate Run_Utility,0x8
027e 00d8 | | Load_Top At_Offset_0
027f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0280 0335 | 5 | Declare_Variable Array,Duplicate
0281 00cd | | Action Spare6_Action
0282 00d9 | | Load_Top At_Offset_1
0283 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0284 01d9 | | Execute Vector,Reverse_Bounds
0285 0263 | c | Execute Discrete,Above_Bound
0286 700c |p | Jump_Nonzero 0x293
0287 e223 | # | Load 0x1,0x23
0288 0322 | " | Declare_Variable Record
0289 4809 |H | Short_Literal 0x9
028a 00d9 | | Load_Top At_Offset_1
028b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
028c e5ff | | Load 0x2,-0x1
028d 00d9 | | Load_Top At_Offset_1
028e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
028f 00d9 | | Load_Top At_Offset_1
0290 e403 | | Load 0x2,0x3
0291 01d6 | | Execute Vector,Field_Write
0292 3ff4 |? | Loop_Increasing 0x287
0293 00d9 | | Load_Top At_Offset_1
0294 00d8 | | Load_Top At_Offset_0
0295 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0296 00da | | Load_Top At_Offset_2
0297 01da | | Execute Vector,Bounds
0298 00da | | Load_Top At_Offset_2
0299 01da | | Execute Vector,Bounds
029a 00da | | Load_Top At_Offset_2
029b 027f | | Execute Discrete,Equal
029c 7001 |p | Jump_Nonzero 0x29e
029d 08e0 | | Execute_Immediate Raise,0xe0
029e 00cd | | Action Spare6_Action
029f 027f | | Execute Discrete,Equal
02a0 7001 |p | Jump_Nonzero 0x2a2
02a1 08e0 | | Execute_Immediate Raise,0xe0
02a2 00d2 | | Pop_Control Pop_Count_2
02a3 00d9 | | Load_Top At_Offset_1
02a4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4801 |H | Short_Literal 0x1
02ac e225 | % | Load 0x1,0x25
02ad 1c08 | | Execute_Immediate Run_Utility,0x8
02ae 00d8 | | Load_Top At_Offset_0
02af 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02b0 0335 | 5 | Declare_Variable Array,Duplicate
02b1 00cd | | Action Spare6_Action
02b2 00d9 | | Load_Top At_Offset_1
02b3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02b4 01d9 | | Execute Vector,Reverse_Bounds
02b5 0263 | c | Execute Discrete,Above_Bound
02b6 700c |p | Jump_Nonzero 0x2c3
02b7 e223 | # | Load 0x1,0x23
02b8 0322 | " | Declare_Variable Record
02b9 480a |H | Short_Literal 0xa
02ba 00d9 | | Load_Top At_Offset_1
02bb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02bc e5ff | | Load 0x2,-0x1
02bd 00d9 | | Load_Top At_Offset_1
02be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02bf 00d9 | | Load_Top At_Offset_1
02c0 e403 | | Load 0x2,0x3
02c1 01d6 | | Execute Vector,Field_Write
02c2 3ff4 |? | Loop_Increasing 0x2b7
02c3 00d9 | | Load_Top At_Offset_1
02c4 00d8 | | Load_Top At_Offset_0
02c5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02c6 00da | | Load_Top At_Offset_2
02c7 01da | | Execute Vector,Bounds
02c8 00da | | Load_Top At_Offset_2
02c9 01da | | Execute Vector,Bounds
02ca 00da | | Load_Top At_Offset_2
02cb 027f | | Execute Discrete,Equal
02cc 7001 |p | Jump_Nonzero 0x2ce
02cd 08e0 | | Execute_Immediate Raise,0xe0
02ce 00cd | | Action Spare6_Action
02cf 027f | | Execute Discrete,Equal
02d0 7001 |p | Jump_Nonzero 0x2d2
02d1 08e0 | | Execute_Immediate Raise,0xe0
02d2 00d2 | | Pop_Control Pop_Count_2
02d3 00d9 | | Load_Top At_Offset_1
02d4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,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 4801 |H | Short_Literal 0x1
02dc e225 | % | Load 0x1,0x25
02dd 1c08 | | Execute_Immediate Run_Utility,0x8
02de 00d8 | | Load_Top At_Offset_0
02df 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02e0 0335 | 5 | Declare_Variable Array,Duplicate
02e1 00cd | | Action Spare6_Action
02e2 00d9 | | Load_Top At_Offset_1
02e3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02e4 01d9 | | Execute Vector,Reverse_Bounds
02e5 0263 | c | Execute Discrete,Above_Bound
02e6 700c |p | Jump_Nonzero 0x2f3
02e7 e223 | # | Load 0x1,0x23
02e8 0322 | " | Declare_Variable Record
02e9 480b |H | Short_Literal 0xb
02ea 00d9 | | Load_Top At_Offset_1
02eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02ec e5ff | | Load 0x2,-0x1
02ed 00d9 | | Load_Top At_Offset_1
02ee 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ef 00d9 | | Load_Top At_Offset_1
02f0 e403 | | Load 0x2,0x3
02f1 01d6 | | Execute Vector,Field_Write
02f2 3ff4 |? | Loop_Increasing 0x2e7
02f3 00d9 | | Load_Top At_Offset_1
02f4 00d8 | | Load_Top At_Offset_0
02f5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02f6 00da | | Load_Top At_Offset_2
02f7 01da | | Execute Vector,Bounds
02f8 00da | | Load_Top At_Offset_2
02f9 01da | | Execute Vector,Bounds
02fa 00da | | Load_Top At_Offset_2
02fb 027f | | Execute Discrete,Equal
02fc 7001 |p | Jump_Nonzero 0x2fe
02fd 08e0 | | Execute_Immediate Raise,0xe0
02fe 00cd | | Action Spare6_Action
02ff 027f | | Execute Discrete,Equal
0300 7001 |p | Jump_Nonzero 0x302
0301 08e0 | | Execute_Immediate Raise,0xe0
0302 00d2 | | Pop_Control Pop_Count_2
0303 00d9 | | Load_Top At_Offset_1
0304 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4800 |H | Short_Literal 0x0
030c e225 | % | Load 0x1,0x25
030d 1c08 | | Execute_Immediate Run_Utility,0x8
030e 00d8 | | Load_Top At_Offset_0
030f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0310 0335 | 5 | Declare_Variable Array,Duplicate
0311 00cd | | Action Spare6_Action
0312 00d9 | | Load_Top At_Offset_1
0313 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0314 01d9 | | Execute Vector,Reverse_Bounds
0315 0263 | c | Execute Discrete,Above_Bound
0316 700c |p | Jump_Nonzero 0x323
0317 e223 | # | Load 0x1,0x23
0318 0322 | " | Declare_Variable Record
0319 480c |H | Short_Literal 0xc
031a 00d9 | | Load_Top At_Offset_1
031b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
031c 4800 |H | Short_Literal 0x0
031d 00d9 | | Load_Top At_Offset_1
031e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
031f 00d9 | | Load_Top At_Offset_1
0320 e403 | | Load 0x2,0x3
0321 01d6 | | Execute Vector,Field_Write
0322 3ff4 |? | Loop_Increasing 0x317
0323 00d9 | | Load_Top At_Offset_1
0324 00d8 | | Load_Top At_Offset_0
0325 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0326 00da | | Load_Top At_Offset_2
0327 01da | | Execute Vector,Bounds
0328 00da | | Load_Top At_Offset_2
0329 01da | | Execute Vector,Bounds
032a 00da | | Load_Top At_Offset_2
032b 027f | | Execute Discrete,Equal
032c 7001 |p | Jump_Nonzero 0x32e
032d 08e0 | | Execute_Immediate Raise,0xe0
032e 00cd | | Action Spare6_Action
032f 027f | | Execute Discrete,Equal
0330 7001 |p | Jump_Nonzero 0x332
0331 08e0 | | Execute_Immediate Raise,0xe0
0332 00d2 | | Pop_Control Pop_Count_2
0333 00d9 | | Load_Top At_Offset_1
0334 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0335 00ca | | Action Exit_Nullary_Function
0336 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
033c e225 | % | Load 0x1,0x25
033d 1c08 | | Execute_Immediate Run_Utility,0x8
033e 00d8 | | Load_Top At_Offset_0
033f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0340 0335 | 5 | Declare_Variable Array,Duplicate
0341 00cd | | Action Spare6_Action
0342 00d9 | | Load_Top At_Offset_1
0343 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0344 01d9 | | Execute Vector,Reverse_Bounds
0345 0263 | c | Execute Discrete,Above_Bound
0346 700c |p | Jump_Nonzero 0x353
0347 e223 | # | Load 0x1,0x23
0348 0322 | " | Declare_Variable Record
0349 480d |H | Short_Literal 0xd
034a 00d9 | | Load_Top At_Offset_1
034b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
034c e5ff | | Load 0x2,-0x1
034d 00d9 | | Load_Top At_Offset_1
034e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
034f 00d9 | | Load_Top At_Offset_1
0350 e403 | | Load 0x2,0x3
0351 01d6 | | Execute Vector,Field_Write
0352 3ff4 |? | Loop_Increasing 0x347
0353 00d9 | | Load_Top At_Offset_1
0354 00d8 | | Load_Top At_Offset_0
0355 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0356 00da | | Load_Top At_Offset_2
0357 01da | | Execute Vector,Bounds
0358 00da | | Load_Top At_Offset_2
0359 01da | | Execute Vector,Bounds
035a 00da | | Load_Top At_Offset_2
035b 027f | | Execute Discrete,Equal
035c 7001 |p | Jump_Nonzero 0x35e
035d 08e0 | | Execute_Immediate Raise,0xe0
035e 00cd | | Action Spare6_Action
035f 027f | | Execute Discrete,Equal
0360 7001 |p | Jump_Nonzero 0x362
0361 08e0 | | Execute_Immediate Raise,0xe0
0362 00d2 | | Pop_Control Pop_Count_2
0363 00d9 | | Load_Top At_Offset_1
0364 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
036d e5fe | | Load 0x2,-0x2
036e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
036f 0273 | s | Execute Discrete,Plus
0370 e225 | % | Load 0x1,0x25
0371 1c08 | | Execute_Immediate Run_Utility,0x8
0372 00db | | Load_Top At_Offset_3
0373 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0374 e5fe | | Load 0x2,-0x2
0375 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0376 01cc | | Execute Vector,Catenate
0377 00d9 | | Load_Top At_Offset_1
0378 00d8 | | Load_Top At_Offset_0
0379 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
037a 00da | | Load_Top At_Offset_2
037b 01da | | Execute Vector,Bounds
037c 00da | | Load_Top At_Offset_2
037d 01da | | Execute Vector,Bounds
037e 00da | | Load_Top At_Offset_2
037f 027f | | Execute Discrete,Equal
0380 7001 |p | Jump_Nonzero 0x382
0381 08e0 | | Execute_Immediate Raise,0xe0
0382 00cd | | Action Spare6_Action
0383 027f | | Execute Discrete,Equal
0384 7001 |p | Jump_Nonzero 0x386
0385 08e0 | | Execute_Immediate Raise,0xe0
0386 00d2 | | Pop_Control Pop_Count_2
0387 00d9 | | Load_Top At_Offset_1
0388 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0389 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00cf | | Action Mark_Auxiliary
0394 e5fe | | Load 0x2,-0x2
0395 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0396 01d9 | | Execute Vector,Reverse_Bounds
0397 0263 | c | Execute Discrete,Above_Bound
0398 700b |p | Jump_Nonzero 0x3a4
0399 00d8 | | Load_Top At_Offset_0
039a e5fe | | Load 0x2,-0x2
039b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
039c 01d5 | | Execute Vector,Field_Reference
039d e5ff | | Load 0x2,-0x1
039e 822b | + | Call 0x1,0x2b
039f 7002 |p | Jump_Nonzero 0x3a2
03a0 4800 |H | Short_Literal 0x0
03a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a2 00c8 | | Action Pop_Auxiliary_Range
03a3 3ff5 |? | Loop_Increasing 0x399
03a4 00ce | | Action Pop_Auxiliary
03a5 4801 |H | Short_Literal 0x1
03a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a7 0000 | | .XXX[0x1]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 4607 |F | Jump_Case 0x8
03ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03ad 7807 |x | Jump 0x3b5 ; case 0x1
03ae 780a |x | Jump 0x3b9 ; case 0x2
03af 780e |x | Jump 0x3be ; case 0x3
03b0 7811 |x | Jump 0x3c2 ; case 0x4
03b1 7812 |x | Jump 0x3c4 ; case 0x5
03b2 7813 |x | Jump 0x3c6 ; case 0x6
03b3 7816 |x | Jump 0x3ca ; case 0x7
03b4 4302 |C | .XXX[0x1]
03b5 00da | | Load_Top At_Offset_2
03b6 0091 04d6 | | Action Push_String_Extended_Indexed,0x4d6 ; "IS_EQUAL"
03b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03b9 00db | | Load_Top At_Offset_3
03ba 00db | | Load_Top At_Offset_3
03bb 00e0 | | Load_Encached Standard_Cache
03bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03be 00da | | Load_Top At_Offset_2
03bf 00e0 | | Load_Encached Standard_Cache
03c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03c2 00db | | Load_Top At_Offset_3
03c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03c4 00db | | Load_Top At_Offset_3
03c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03c6 e21f | | Load 0x1,0x1f
03c7 00dc | | Load_Top At_Offset_4
03c8 0267 | g | Execute Discrete,Predecessor
03c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ca e21f | | Load 0x1,0x1f
03cb 00dc | | Load_Top At_Offset_4
03cc 0268 | h | Execute Discrete,Successor
03cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ce 0000 0000 | | .XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d9 | | .CONST 0x03d9 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0003 | | .CONST 0x0003 ; Number of locals
03d3 INIT_03d0:
03d3 00db | | Load_Top At_Offset_3
03d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d5 0007 | | Action Break_Optional
03d6 e5fe | | Load 0x2,-0x2
03d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d8 0007 | | Action Break_Optional
03d9 BODY_03d0:
03d9 00d9 | | Load_Top At_Offset_1
03da 00d8 | | Load_Top At_Offset_0
03db e220 | | Load 0x1,0x20
03dc 0260 | ` | Execute Discrete,In_Type
03dd 7001 |p | Jump_Nonzero 0x3df
03de 0801 | | Execute_Immediate Raise,0x1
03df 4605 |F | Jump_Case 0x6
03e0 7809 |x | Jump 0x3ea ; case 0x0
03e1 780c |x | Jump 0x3ee ; case 0x1
03e2 780f |x | Jump 0x3f2 ; case 0x2
03e3 7812 |x | Jump 0x3f6 ; case 0x3
03e4 7815 |x | Jump 0x3fa ; case 0x4
03e5 7800 |x | Jump 0x3e6 ; case 0x5
03e6 e5ff | | Load 0x2,-0x1
03e7 00d9 | | Load_Top At_Offset_1
03e8 027e | ~ | Execute Discrete,Not_Equal
03e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ea e5ff | | Load 0x2,-0x1
03eb 00d9 | | Load_Top At_Offset_1
03ec 027f | | Execute Discrete,Equal
03ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ee e5ff | | Load 0x2,-0x1
03ef 00d9 | | Load_Top At_Offset_1
03f0 027c | | | Execute Discrete,Less
03f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f2 e5ff | | Load 0x2,-0x1
03f3 00d9 | | Load_Top At_Offset_1
03f4 027a | z | Execute Discrete,Less_Equal
03f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f6 e5ff | | Load 0x2,-0x1
03f7 00d9 | | Load_Top At_Offset_1
03f8 027d | } | Execute Discrete,Greater
03f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03fa e5ff | | Load 0x2,-0x1
03fb 00d9 | | Load_Top At_Offset_1
03fc 027b | { | Execute Discrete,Greater_Equal
03fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03fe 0000 0000 | | .XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0411 | | .CONST 0x0411 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0004 | | .CONST 0x0004 ; Number of locals
0403 INIT_0400:
0403 00db | | Load_Top At_Offset_3
0404 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0405 0007 | | Action Break_Optional
0406 e5fe | | Load 0x2,-0x2
0407 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0408 00d8 | | Load_Top At_Offset_0
0409 e20e | | Load 0x1,0xe
040a 0260 | ` | Execute Discrete,In_Type
040b 7001 |p | Jump_Nonzero 0x40d
040c 0801 | | Execute_Immediate Raise,0x1
040d 00d8 | | Load_Top At_Offset_0
040e e227 | ' | Load 0x1,0x27
040f 01d5 | | Execute Vector,Field_Reference
0410 0007 | | Action Break_Optional
0411 BODY_0400:
0411 00da | | Load_Top At_Offset_2
0412 00d8 | | Load_Top At_Offset_0
0413 e221 | ! | Load 0x1,0x21
0414 0260 | ` | Execute Discrete,In_Type
0415 7001 |p | Jump_Nonzero 0x417
0416 0801 | | Execute_Immediate Raise,0x1
0417 0afa | | Execute_Immediate Plus,-0x6
0418 4605 |F | Jump_Case 0x6
0419 7809 |x | Jump 0x423 ; case 0x0
041a 780c |x | Jump 0x427 ; case 0x1
041b 780f |x | Jump 0x42b ; case 0x2
041c 7812 |x | Jump 0x42f ; case 0x3
041d 7815 |x | Jump 0x433 ; case 0x4
041e 7800 |x | Jump 0x41f ; case 0x5
041f e5ff | | Load 0x2,-0x1
0420 00d9 | | Load_Top At_Offset_1
0421 027e | ~ | Execute Discrete,Not_Equal
0422 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0423 e5ff | | Load 0x2,-0x1
0424 00d9 | | Load_Top At_Offset_1
0425 027f | | Execute Discrete,Equal
0426 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0427 e5ff | | Load 0x2,-0x1
0428 00d9 | | Load_Top At_Offset_1
0429 027c | | | Execute Discrete,Less
042a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
042b e5ff | | Load 0x2,-0x1
042c 00d9 | | Load_Top At_Offset_1
042d 027a | z | Execute Discrete,Less_Equal
042e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
042f e5ff | | Load 0x2,-0x1
0430 00d9 | | Load_Top At_Offset_1
0431 027d | } | Execute Discrete,Greater
0432 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0433 e5ff | | Load 0x2,-0x1
0434 00d9 | | Load_Top At_Offset_1
0435 027b | { | Execute Discrete,Greater_Equal
0436 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0437 0000 | | .XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0441 | A | .CONST 0x0441 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0003 | | .CONST 0x0003 ; Number of locals
043b INIT_0438:
043b 00db | | Load_Top At_Offset_3
043c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
043d 0007 | | Action Break_Optional
043e e5fe | | Load 0x2,-0x2
043f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0440 0007 | | Action Break_Optional
0441 BODY_0438:
0441 00d9 | | Load_Top At_Offset_1
0442 00d8 | | Load_Top At_Offset_0
0443 e222 | " | Load 0x1,0x22
0444 0260 | ` | Execute Discrete,In_Type
0445 7001 |p | Jump_Nonzero 0x447
0446 0801 | | Execute_Immediate Raise,0x1
0447 0f0c | | Execute_Immediate Equal,0xc
0448 700b |p | Jump_Nonzero 0x454
0449 e5ff | | Load 0x2,-0x1
044a 00d9 | | Load_Top At_Offset_1
044b 00d8 | | Load_Top At_Offset_0
044c e20e | | Load 0x1,0xe
044d 0260 | ` | Execute Discrete,In_Type
044e 7001 |p | Jump_Nonzero 0x450
044f 0801 | | Execute_Immediate Raise,0x1
0450 e227 | ' | Load 0x1,0x27
0451 01d6 | | Execute Vector,Field_Write
0452 4801 |H | Short_Literal 0x1
0453 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0454 4801 |H | Short_Literal 0x1
0455 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0456 0000 0000 | | .XXX[0x2]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045e | ^ | .CONST 0x045e ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b 00db | | Load_Top At_Offset_3
045c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
045d 0007 | | Action Break_Optional
045e BODY_0458:
045e 00d8 | | Load_Top At_Offset_0
045f 460d |F | Jump_Case 0xe
0460 7811 |x | Jump 0x472 ; case 0x0
0461 7810 |x | Jump 0x472 ; case 0x1
0462 780f |x | Jump 0x472 ; case 0x2
0463 780e |x | Jump 0x472 ; case 0x3
0464 780d |x | Jump 0x472 ; case 0x4
0465 780c |x | Jump 0x472 ; case 0x5
0466 780f |x | Jump 0x476 ; case 0x6
0467 780e |x | Jump 0x476 ; case 0x7
0468 780d |x | Jump 0x476 ; case 0x8
0469 780c |x | Jump 0x476 ; case 0x9
046a 780b |x | Jump 0x476 ; case 0xa
046b 780a |x | Jump 0x476 ; case 0xb
046c 7801 |x | Jump 0x46e ; case 0xc
046d 7800 |x | Jump 0x46e ; case 0xd
046e e5fe | | Load 0x2,-0x2
046f e5ff | | Load 0x2,-0x1
0470 822a | * | Call 0x1,0x2a
0471 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0472 e5fe | | Load 0x2,-0x2
0473 e5ff | | Load 0x2,-0x1
0474 8228 | ( | Call 0x1,0x28
0475 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0476 e5fe | | Load 0x2,-0x2
0477 e5ff | | Load 0x2,-0x1
0478 8229 | ) | Call 0x1,0x29
0479 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047a 0000 0000 | | .BLANK 0000[0x6]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 4609 |F | Jump_Case 0xa
0484 7809 |x | Jump 0x48e ; case 0x0
0485 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0486 7813 |x | Jump 0x49a ; case 0x2
0487 7816 |x | Jump 0x49e ; case 0x3
0488 7832 |x2 | Jump 0x4bb ; case 0x4
0489 7831 |x1 | Jump 0x4bb ; case 0x5
048a 7830 |x0 | Jump 0x4bb ; case 0x6
048b 7818 |x | Jump 0x4a4 ; case 0x7
048c 7820 |x | Jump 0x4ad ; case 0x8
048d 7829 |x) | Jump 0x4b7 ; case 0x9
048e 00da | | Load_Top At_Offset_2
048f 016c | l | Execute Variant_Record,Is_Constrained
0490 7008 |p | Jump_Nonzero 0x499
0491 00cf | | Action Mark_Auxiliary
0492 4800 |H | Short_Literal 0x0
0493 e5ff | | Load 0x2,-0x1
0494 1c08 | | Execute_Immediate Run_Utility,0x8
0495 00d8 | | Load_Top At_Offset_0
0496 1c00 | | Execute_Immediate Run_Utility,0x0
0497 c5ff | | Store 0x2,-0x1
0498 00ce | | Action Pop_Auxiliary
0499 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
049a 4801 |H | Short_Literal 0x1
049b 4802 |H | Short_Literal 0x2
049c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
049d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
049e e5fd | | Load 0x2,-0x3
049f 00db | | Load_Top At_Offset_3
04a0 1c07 | | Execute_Immediate Run_Utility,0x7
04a1 e5fe | | Load 0x2,-0x2
04a2 0306 | | Complete_Type Variant_Record,By_Renaming
04a3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
04a4 00db | | Load_Top At_Offset_3
04a5 4801 |H | Short_Literal 0x1
04a6 e5fe | | Load 0x2,-0x2
04a7 e224 | $ | Load 0x1,0x24
04a8 035b | [ | Declare_Type Array,Constrained
04a9 4801 |H | Short_Literal 0x1
04aa e5ff | | Load 0x2,-0x1
04ab 031b | | Declare_Type Variant_Record,Constrained
04ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ad 00db | | Load_Top At_Offset_3
04ae 00db | | Load_Top At_Offset_3
04af 02fc | | Declare_Variable Variant_Record,With_Constraint
04b0 4801 |H | Short_Literal 0x1
04b1 e5fe | | Load 0x2,-0x2
04b2 e224 | $ | Load 0x1,0x24
04b3 0334 | 4 | Declare_Variable Array,With_Constraint
04b4 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
04b5 016a | j | QQ_execute Variant_Record,XXX
04b6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b7 4800 |H | Short_Literal 0x0
04b8 00db | | Load_Top At_Offset_3
04b9 1c07 | | Execute_Immediate Run_Utility,0x7
04ba 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04bb 0869 | i | Execute_Immediate Raise,0x69
04bc ; --------------------------------------------------------------------------------------
04bc ; STRING TABLE
04bc ; --------------------------------------------------------------------------------------
04bc 0052 | R | .STRTAB 0x0052->0x04e5 ; "A"
04bd 0051 | Q | .STRTAB 0x0051->0x04e5 ; "B"
04be 0050 | P | .STRTAB 0x0050->0x04e6 ; "C"
04bf 004f | O | .STRTAB 0x004f->0x04e6 ; "D"
04c0 004e | N | .STRTAB 0x004e->0x04e7 ; "E"
04c1 004d | M | .STRTAB 0x004d->0x04e7 ; "F"
04c2 004c | L | .STRTAB 0x004c->0x04e8 ; "G"
04c3 004b | K | .STRTAB 0x004b->0x04e8 ; "H"
04c4 004a | J | .STRTAB 0x004a->0x04e9 ; "I"
04c5 0049 | I | .STRTAB 0x0049->0x04e9 ; "J"
04c6 0048 | H | .STRTAB 0x0048->0x04ea ; "K"
04c7 0047 | G | .STRTAB 0x0047->0x04ea ; "L"
04c8 0046 | F | .STRTAB 0x0046->0x04eb ; "M"
04c9 0045 | E | .STRTAB 0x0045->0x04eb ; "N"
04ca 0044 | D | .STRTAB 0x0044->0x04ec ; "O"
04cb 0043 | C | .STRTAB 0x0043->0x04ec ; "P"
04cc 0042 | B | .STRTAB 0x0042->0x04ed ; "Q"
04cd 0041 | A | .STRTAB 0x0041->0x04ed ; "R"
04ce 0040 | @ | .STRTAB 0x0040->0x04ee ; "S"
04cf 003f | ? | .STRTAB 0x003f->0x04ee ; "T"
04d0 003e | > | .STRTAB 0x003e->0x04ef ; "U"
04d1 003d | = | .STRTAB 0x003d->0x04ef ; "V"
04d2 003c | < | .STRTAB 0x003c->0x04f0 ; "W"
04d3 003b | ; | .STRTAB 0x003b->0x04f0 ; "X"
04d4 003a | : | .STRTAB 0x003a->0x04f1 ; "Y"
04d5 0039 | 9 | .STRTAB 0x0039->0x04f1 ; "Z"
04d6 0038 | 8 | .STRTAB 0x0038->0x04f2 ; "IS_EQUAL"
04d7 003e | > | .STRTAB 0x003e->0x04f6 ; "IS_LESS"
04d8 0043 | C | .STRTAB 0x0043->0x04f9 ; "IS_LESS_OR_EQUAL"
04d9 0051 | Q | .STRTAB 0x0051->0x0501 ; "IS_GREATER"
04da 0059 | Y | .STRTAB 0x0059->0x0506 ; "IS_GREATER_OR_EQUAL"
04db 006a | j | .STRTAB 0x006a->0x0510 ; "IS_DIFFERENT"
04dc 0074 | t | .STRTAB 0x0074->0x0516 ; "IS_EQUAL_TO_ALIAS"
04dd 0083 | | .STRTAB 0x0083->0x051e ; "IS_LESS_THAN_ALIAS"
04de 0093 | | .STRTAB 0x0093->0x0527 ; "IS_LESS_OR_EQUAL_THAN_ALIAS"
04df 00ac | | .STRTAB 0x00ac->0x0535 ; "IS_GREATER_THAN_ALIAS"
04e0 00bf | | .STRTAB 0x00bf->0x053f ; "IS_GREATER_OR_EQUAL_THAN_ALIAS"
04e1 00db | | .STRTAB 0x00db->0x054e ; "IS_DIFFERENT_THAN_ALIAS"
04e2 00f0 | | .STRTAB 0x00f0->0x055a ; "IS_ANY"
04e3 00f4 | | .STRTAB 0x00f4->0x055d ; "SAY_IT_IS"
04e4 00fb | | .STREND 0x00fb->0x0561
04e5 4142 4344 |ABCD| .STRTAB_STRINGS
0562 0000 0000 | | .BLANK 0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug Table
0568 ; --------------------------------------------------------------------------------------
0568 0004 0004 | | .DEBUG4 0x0004,0x0004,0x6527,0x0000,0x0001,0x0019
056e 000b 05d2 | | .DBG4T 0x000b,0x05d2,0x8000,0x8000
0572 005f 0606 | _ | .DBG4T 0x005f,0x0606,0x8000,0x0000
0576 00a3 0000 | | .DBG4T 0x00a3,0x0000,0x0005,0x0000
057a 00cb 061e | | .DBG4T 0x00cb,0x061e,0x0002,0x0000
057e 00fb 0621 | !| .DBG4T 0x00fb,0x0621,0x0002,0x0000
0582 012b 0624 | + $| .DBG4T 0x012b,0x0624,0x0002,0x0000
0586 015b 0627 | [ '| .DBG4T 0x015b,0x0627,0x0002,0x0000
058a 018b 062a | *| .DBG4T 0x018b,0x062a,0x0002,0x0000
058e 01bb 062d | -| .DBG4T 0x01bb,0x062d,0x0002,0x0000
0592 01eb 0630 | 0| .DBG4T 0x01eb,0x0630,0x0002,0x0000
0596 021b 0633 | 3| .DBG4T 0x021b,0x0633,0x0002,0x0000
059a 024b 0636 | K 6| .DBG4T 0x024b,0x0636,0x0002,0x0000
059e 027b 0639 | { 9| .DBG4T 0x027b,0x0639,0x0002,0x0000
05a2 02ab 063c | <| .DBG4T 0x02ab,0x063c,0x0002,0x0000
05a6 02db 063f | ?| .DBG4T 0x02db,0x063f,0x0002,0x0000
05aa 030b 0642 | B| .DBG4T 0x030b,0x0642,0x0002,0x0000
05ae 033b 0645 | ; E| .DBG4T 0x033b,0x0645,0x0002,0x0000
05b2 036b 0648 | k H| .DBG4T 0x036b,0x0648,0x0002,0x0000
05b6 0393 064b | K| .DBG4T 0x0393,0x064b,0x0002,0x0000
05ba 03ab 0000 | | .DBG4T 0x03ab,0x0000,0x0005,0x0000
05be 03d3 0651 | Q| .DBG4T 0x03d3,0x0651,0x0002,0x4000
05c2 0403 0663 | c| .DBG4T 0x0403,0x0663,0x0002,0x4000
05c6 043b 0676 | ; v| .DBG4T 0x043b,0x0676,0x0002,0x4000
05ca 045b 0682 | [ | .DBG4T 0x045b,0x0682,0x0002,0x4000
05ce 0483 0000 | | .DBG4T 0x0483,0x0000,0x0005,0x0000
05d2 ; --------------------------------------------------------------------------------------
05d2 ; Debug chain
05d2 ; --------------------------------------------------------------------------------------
05d2 0019 0000 | | .DBGLEN 0x0019,0x0000
05d4 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0039,0x003d,0x0041,0x0045,0x004a,0x0050
05ed 0002 0004 | | .XXX[0x19]
05ef 0005 0006 | |
05f1 0007 0008 | |
05f3 0009 000a | |
05f5 000b 000c | |
05f7 000d 000e | |
05f9 000f 0010 | |
05fb 0011 0012 | |
05fd 0013 0014 | |
05ff 0015 0016 | |
0601 0017 0018 | |
0603 0019 001a | |
0605 001b | |
0606 ; --------------------------------------------------------------------------------------
0606 ; Debug chain
0606 ; --------------------------------------------------------------------------------------
0606 0016 0000 | | .DBGLEN 0x0016,0x0000
0608 005f 0065 | _ e| .DBGLNO 0x005f,0x0065,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099
061e ; --------------------------------------------------------------------------------------
061e ; Debug chain
061e ; --------------------------------------------------------------------------------------
061e 0000 0001 | | .DBGLEN 0x0000,0x0001
0620 00cb | | .DBGLNO 0x00cb
0621 ; --------------------------------------------------------------------------------------
0621 ; Debug chain
0621 ; --------------------------------------------------------------------------------------
0621 0000 0001 | | .DBGLEN 0x0000,0x0001
0623 00fb | | .DBGLNO 0x00fb
0624 ; --------------------------------------------------------------------------------------
0624 ; Debug chain
0624 ; --------------------------------------------------------------------------------------
0624 0000 0001 | | .DBGLEN 0x0000,0x0001
0626 012b | + | .DBGLNO 0x012b
0627 ; --------------------------------------------------------------------------------------
0627 ; Debug chain
0627 ; --------------------------------------------------------------------------------------
0627 0000 0001 | | .DBGLEN 0x0000,0x0001
0629 015b | [ | .DBGLNO 0x015b
062a ; --------------------------------------------------------------------------------------
062a ; Debug chain
062a ; --------------------------------------------------------------------------------------
062a 0000 0001 | | .DBGLEN 0x0000,0x0001
062c 018b | | .DBGLNO 0x018b
062d ; --------------------------------------------------------------------------------------
062d ; Debug chain
062d ; --------------------------------------------------------------------------------------
062d 0000 0001 | | .DBGLEN 0x0000,0x0001
062f 01bb | | .DBGLNO 0x01bb
0630 ; --------------------------------------------------------------------------------------
0630 ; Debug chain
0630 ; --------------------------------------------------------------------------------------
0630 0000 0001 | | .DBGLEN 0x0000,0x0001
0632 01eb | | .DBGLNO 0x01eb
0633 ; --------------------------------------------------------------------------------------
0633 ; Debug chain
0633 ; --------------------------------------------------------------------------------------
0633 0000 0001 | | .DBGLEN 0x0000,0x0001
0635 021b | | .DBGLNO 0x021b
0636 ; --------------------------------------------------------------------------------------
0636 ; Debug chain
0636 ; --------------------------------------------------------------------------------------
0636 0000 0001 | | .DBGLEN 0x0000,0x0001
0638 024b | K | .DBGLNO 0x024b
0639 ; --------------------------------------------------------------------------------------
0639 ; Debug chain
0639 ; --------------------------------------------------------------------------------------
0639 0000 0001 | | .DBGLEN 0x0000,0x0001
063b 027b | { | .DBGLNO 0x027b
063c ; --------------------------------------------------------------------------------------
063c ; Debug chain
063c ; --------------------------------------------------------------------------------------
063c 0000 0001 | | .DBGLEN 0x0000,0x0001
063e 02ab | | .DBGLNO 0x02ab
063f ; --------------------------------------------------------------------------------------
063f ; Debug chain
063f ; --------------------------------------------------------------------------------------
063f 0000 0001 | | .DBGLEN 0x0000,0x0001
0641 02db | | .DBGLNO 0x02db
0642 ; --------------------------------------------------------------------------------------
0642 ; Debug chain
0642 ; --------------------------------------------------------------------------------------
0642 0000 0001 | | .DBGLEN 0x0000,0x0001
0644 030b | | .DBGLNO 0x030b
0645 ; --------------------------------------------------------------------------------------
0645 ; Debug chain
0645 ; --------------------------------------------------------------------------------------
0645 0000 0001 | | .DBGLEN 0x0000,0x0001
0647 033b | ; | .DBGLNO 0x033b
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0000 0001 | | .DBGLEN 0x0000,0x0001
064a 036b | k | .DBGLNO 0x036b
064b ; --------------------------------------------------------------------------------------
064b ; Debug chain
064b ; --------------------------------------------------------------------------------------
064b 0000 0004 | | .DBGLEN 0x0000,0x0004
064d 0394 0399 | | .DBGLNO 0x0394,0x0399,0x03a0,0x03a5
0651 ; --------------------------------------------------------------------------------------
0651 ; Debug chain
0651 ; --------------------------------------------------------------------------------------
0651 0002 0007 | | .DBGLEN 0x0002,0x0007
0653 03d3 03d6 | | .DBGLNO 0x03d3,0x03d6,0x03d9,0x03e6,0x03ea,0x03ee,0x03f2,0x03f6,0x03fa
065c 0001 0007 | | .XXX[0x7]
065e 0002 0003 | |
0660 0004 0005 | |
0662 0006 | |
0663 ; --------------------------------------------------------------------------------------
0663 ; Debug chain
0663 ; --------------------------------------------------------------------------------------
0663 0003 0007 | | .DBGLEN 0x0003,0x0007
0665 0403 0406 | | .DBGLNO 0x0403,0x0406,0x040d,0x0411,0x041f,0x0423,0x0427,0x042b,0x042f,0x0433
066f 0001 0007 | | .XXX[0x7]
0671 0002 0003 | |
0673 0004 0005 | |
0675 0006 | |
0676 ; --------------------------------------------------------------------------------------
0676 ; Debug chain
0676 ; --------------------------------------------------------------------------------------
0676 0002 0004 | | .DBGLEN 0x0002,0x0004
0678 043b 043e | ; >| .DBGLNO 0x043b,0x043e,0x0441,0x0449,0x0452,0x0454
067e 0001 0003 | | .XXX[0x4]
0680 0004 0002 | |
0682 ; --------------------------------------------------------------------------------------
0682 ; Debug chain
0682 ; --------------------------------------------------------------------------------------
0682 0001 0004 | | .DBGLEN 0x0001,0x0004
0684 045b 045e | [ ^| .DBGLNO 0x045b,0x045e,0x046e,0x0472,0x0476
0689 0001 0004 | | .XXX[0x4]
068b 0002 0003 | |
068d 0000 0000 | | .BLANK 0000[0x173]