|
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: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_7694d6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05e8 | | .CONST 0x05e8 ; 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 00a1 | | .CONST 0x00a1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002e | . | .CONST 0x002e ; 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 00ab | | Declare_Subprogram For_Call,INIT_00a8
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0016 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0018 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
001a 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
001c 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
001e 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0020 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0022 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
0024 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250
0026 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
0028 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
002a 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
002c 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
002e 029a 0343 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0340
0030 029a 0373 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0370
0032 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
0034 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
0036 4800 |H | Short_Literal 0x0
0037 480d |H | Short_Literal 0xd
0038 029f 03e3 | | Declare_Subprogram For_Call,INIT_03e0
003a 03fe | | Declare_Type Discrete,Defined,Visible
003b 4800 |H | Short_Literal 0x0
003c 4805 |H | Short_Literal 0x5
003d 00da | | Load_Top At_Offset_2
003e 03f9 | | Declare_Type Discrete,Constrained,Visible
003f 4806 |H | Short_Literal 0x6
0040 480b |H | Short_Literal 0xb
0041 00db | | Load_Top At_Offset_3
0042 03f9 | | Declare_Type Discrete,Constrained,Visible
0043 480c |H | Short_Literal 0xc
0044 480d |H | Short_Literal 0xd
0045 e221 | ! | Load 0x1,0x21
0046 03f9 | | Declare_Type Discrete,Constrained,Visible
0047 00db | | Load_Top At_Offset_3
0048 00e2 | | Load_Encached Integer_Cache
0049 02a0 | | Declare_Subprogram Null_Subprogram
004a 4802 |H | Short_Literal 0x2
004b 032e | . | Declare_Type Record,Defined,Visible
004c 00e4 | | Load_Encached Positive_Cache
004d 0266 | f | Execute Discrete,Bounds
004e 00da | | Load_Top At_Offset_2
004f 02a0 | | Declare_Subprogram Null_Subprogram
0050 4801 |H | Short_Literal 0x1
0051 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0052 e20e | | Load 0x1,0xe
0053 4801 |H | Short_Literal 0x1
0054 4805 |H | Short_Literal 0x5
0055 00db | | Load_Top At_Offset_3
0056 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0057 029f 04fb | | Declare_Subprogram For_Call,INIT_04f8
0059 4800 |H | Short_Literal 0x0
005a 4801 |H | Short_Literal 0x1
005b 4800 |H | Short_Literal 0x0
005c 4800 |H | Short_Literal 0x0
005d 4801 |H | Short_Literal 0x1
005e 4801 |H | Short_Literal 0x1
005f 031e | | Declare_Type Variant_Record,Defined,Visible
0060 00bf | | Action Accept_Activation
0061 e20f | | Load 0x1,0xf
0062 0266 | f | Execute Discrete,Bounds
0063 00e2 | | Load_Encached Integer_Cache
0064 02a0 | | Declare_Subprogram Null_Subprogram
0065 4801 |H | Short_Literal 0x1
0066 035d | ] | Declare_Type Array,Defined
0067 00d8 | | Load_Top At_Offset_0
0068 0337 | 7 | Declare_Variable Array
0069 00d8 | | Load_Top At_Offset_0
006a 0335 | 5 | Declare_Variable Array,Duplicate
006b 00cd | | Action Spare6_Action
006c 4819 |H | Short_Literal 0x19
006d 4800 |H | Short_Literal 0x0
006e 4800 |H | Short_Literal 0x0
006f 00d9 | | Load_Top At_Offset_1
0070 e22a | * | Load 0x1,0x2a
0071 01d6 | | Execute Vector,Field_Write
0072 3ffb |? | Loop_Increasing 0x6e
0073 00d9 | | Load_Top At_Offset_1
0074 01d4 | | Execute Vector,Structure_Write
0075 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
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 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0090 00c7 | | Action Elaborate_Subprogram
0091 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0092 00c7 | | Action Elaborate_Subprogram
0093 029d 040b | | Declare_Subprogram For_Outer_Call,INIT_0408
0095 029d 043b | ;| Declare_Subprogram For_Outer_Call,INIT_0438
0097 029d 0473 | s| Declare_Subprogram For_Outer_Call,INIT_0470
0099 029d 0493 | | Declare_Subprogram For_Outer_Call,INIT_0490
009b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
009c 00c7 | | Action Elaborate_Subprogram
009d 029d 04bb | | Declare_Subprogram For_Outer_Call,INIT_04b8
009f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00a0 00c7 | | Action Elaborate_Subprogram
00a1 BODY_0008:
00a1 00bc | | Action Signal_Activated
00a2 00bb | | Action Signal_Completion
00a3 0000 0000 | | .BLANK 0000[0x5]
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 4607 |F | Jump_Case 0x7
00ac 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00ad 7807 |x | Jump 0xb5 ; case 0x1
00ae 780a |x | Jump 0xb9 ; case 0x2
00af 780e |x | Jump 0xbe ; case 0x3
00b0 7811 |x | Jump 0xc2 ; case 0x4
00b1 7812 |x | Jump 0xc4 ; case 0x5
00b2 7813 |x | Jump 0xc6 ; case 0x6
00b3 7816 |x | Jump 0xca ; case 0x7
00b4 4302 |C | .XXX[0x1]
00b5 00da | | Load_Top At_Offset_2
00b6 0091 0534 | 4| Action Push_String_Extended_Indexed,0x534 ; "A"
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b9 00db | | Load_Top At_Offset_3
00ba 00db | | Load_Top At_Offset_3
00bb 00e0 | | Load_Encached Standard_Cache
00bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00be 00da | | Load_Top At_Offset_2
00bf 00e0 | | Load_Encached Standard_Cache
00c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c1 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00c2 00db | | Load_Top At_Offset_3
00c3 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c4 00db | | Load_Top At_Offset_3
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c6 e20f | | Load 0x1,0xf
00c7 00dc | | Load_Top At_Offset_4
00c8 0267 | g | Execute Discrete,Predecessor
00c9 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ca e20f | | Load 0x1,0xf
00cb 00dc | | Load_Top At_Offset_4
00cc 0268 | h | Execute Discrete,Successor
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ce 0000 0000 | | .XXX[0x2]
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 e227 | ' | Load 0x1,0x27
00d5 1c08 | | Execute_Immediate Run_Utility,0x8
00d6 00d8 | | Load_Top At_Offset_0
00d7 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
00d8 0335 | 5 | Declare_Variable Array,Duplicate
00d9 00cd | | Action Spare6_Action
00da 00d9 | | Load_Top At_Offset_1
00db 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
00dc 01d9 | | Execute Vector,Reverse_Bounds
00dd 0263 | c | Execute Discrete,Above_Bound
00de 700c |p | Jump_Nonzero 0xeb
00df e225 | % | Load 0x1,0x25
00e0 0322 | " | Declare_Variable Record
00e1 4800 |H | Short_Literal 0x0
00e2 00d9 | | Load_Top At_Offset_1
00e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e4 e5ff | | Load 0x2,-0x1
00e5 00d9 | | Load_Top At_Offset_1
00e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e7 00d9 | | Load_Top At_Offset_1
00e8 e403 | | Load 0x2,0x3
00e9 01d6 | | Execute Vector,Field_Write
00ea 3ff4 |? | Loop_Increasing 0xdf
00eb 00d9 | | Load_Top At_Offset_1
00ec 00d8 | | Load_Top At_Offset_0
00ed 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
00ee 00da | | Load_Top At_Offset_2
00ef 01da | | Execute Vector,Bounds
00f0 00da | | Load_Top At_Offset_2
00f1 01da | | Execute Vector,Bounds
00f2 00da | | Load_Top At_Offset_2
00f3 027f | | Execute Discrete,Equal
00f4 7001 |p | Jump_Nonzero 0xf6
00f5 08e0 | | Execute_Immediate Raise,0xe0
00f6 00cd | | Action Spare6_Action
00f7 027f | | Execute Discrete,Equal
00f8 7001 |p | Jump_Nonzero 0xfa
00f9 08e0 | | Execute_Immediate Raise,0xe0
00fa 00d2 | | Pop_Control Pop_Count_2
00fb 00d9 | | Load_Top At_Offset_1
00fc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00fd 4401 |D | Exit_Subprogram With_Result,0x1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4801 |H | Short_Literal 0x1
0104 e227 | ' | Load 0x1,0x27
0105 1c08 | | Execute_Immediate Run_Utility,0x8
0106 00d8 | | Load_Top At_Offset_0
0107 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0108 0335 | 5 | Declare_Variable Array,Duplicate
0109 00cd | | Action Spare6_Action
010a 00d9 | | Load_Top At_Offset_1
010b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
010c 01d9 | | Execute Vector,Reverse_Bounds
010d 0263 | c | Execute Discrete,Above_Bound
010e 700c |p | Jump_Nonzero 0x11b
010f e225 | % | Load 0x1,0x25
0110 0322 | " | Declare_Variable Record
0111 4801 |H | Short_Literal 0x1
0112 00d9 | | Load_Top At_Offset_1
0113 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0114 e5ff | | Load 0x2,-0x1
0115 00d9 | | Load_Top At_Offset_1
0116 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0117 00d9 | | Load_Top At_Offset_1
0118 e403 | | Load 0x2,0x3
0119 01d6 | | Execute Vector,Field_Write
011a 3ff4 |? | Loop_Increasing 0x10f
011b 00d9 | | Load_Top At_Offset_1
011c 00d8 | | Load_Top At_Offset_0
011d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
011e 00da | | Load_Top At_Offset_2
011f 01da | | Execute Vector,Bounds
0120 00da | | Load_Top At_Offset_2
0121 01da | | Execute Vector,Bounds
0122 00da | | Load_Top At_Offset_2
0123 027f | | Execute Discrete,Equal
0124 7001 |p | Jump_Nonzero 0x126
0125 08e0 | | Execute_Immediate Raise,0xe0
0126 00cd | | Action Spare6_Action
0127 027f | | Execute Discrete,Equal
0128 7001 |p | Jump_Nonzero 0x12a
0129 08e0 | | Execute_Immediate Raise,0xe0
012a 00d2 | | Pop_Control Pop_Count_2
012b 00d9 | | Load_Top At_Offset_1
012c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
012d 4401 |D | Exit_Subprogram With_Result,0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4801 |H | Short_Literal 0x1
0134 e227 | ' | Load 0x1,0x27
0135 1c08 | | Execute_Immediate Run_Utility,0x8
0136 00d8 | | Load_Top At_Offset_0
0137 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0138 0335 | 5 | Declare_Variable Array,Duplicate
0139 00cd | | Action Spare6_Action
013a 00d9 | | Load_Top At_Offset_1
013b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
013c 01d9 | | Execute Vector,Reverse_Bounds
013d 0263 | c | Execute Discrete,Above_Bound
013e 700c |p | Jump_Nonzero 0x14b
013f e225 | % | Load 0x1,0x25
0140 0322 | " | Declare_Variable Record
0141 4802 |H | Short_Literal 0x2
0142 00d9 | | Load_Top At_Offset_1
0143 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0144 e5ff | | Load 0x2,-0x1
0145 00d9 | | Load_Top At_Offset_1
0146 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0147 00d9 | | Load_Top At_Offset_1
0148 e403 | | Load 0x2,0x3
0149 01d6 | | Execute Vector,Field_Write
014a 3ff4 |? | Loop_Increasing 0x13f
014b 00d9 | | Load_Top At_Offset_1
014c 00d8 | | Load_Top At_Offset_0
014d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
014e 00da | | Load_Top At_Offset_2
014f 01da | | Execute Vector,Bounds
0150 00da | | Load_Top At_Offset_2
0151 01da | | Execute Vector,Bounds
0152 00da | | Load_Top At_Offset_2
0153 027f | | Execute Discrete,Equal
0154 7001 |p | Jump_Nonzero 0x156
0155 08e0 | | Execute_Immediate Raise,0xe0
0156 00cd | | Action Spare6_Action
0157 027f | | Execute Discrete,Equal
0158 7001 |p | Jump_Nonzero 0x15a
0159 08e0 | | Execute_Immediate Raise,0xe0
015a 00d2 | | Pop_Control Pop_Count_2
015b 00d9 | | Load_Top At_Offset_1
015c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
015d 4401 |D | Exit_Subprogram With_Result,0x1
015e 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
0164 e227 | ' | Load 0x1,0x27
0165 1c08 | | Execute_Immediate Run_Utility,0x8
0166 00d8 | | Load_Top At_Offset_0
0167 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0168 0335 | 5 | Declare_Variable Array,Duplicate
0169 00cd | | Action Spare6_Action
016a 00d9 | | Load_Top At_Offset_1
016b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
016c 01d9 | | Execute Vector,Reverse_Bounds
016d 0263 | c | Execute Discrete,Above_Bound
016e 700c |p | Jump_Nonzero 0x17b
016f e225 | % | Load 0x1,0x25
0170 0322 | " | Declare_Variable Record
0171 4803 |H | Short_Literal 0x3
0172 00d9 | | Load_Top At_Offset_1
0173 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0174 e5ff | | Load 0x2,-0x1
0175 00d9 | | Load_Top At_Offset_1
0176 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0177 00d9 | | Load_Top At_Offset_1
0178 e403 | | Load 0x2,0x3
0179 01d6 | | Execute Vector,Field_Write
017a 3ff4 |? | Loop_Increasing 0x16f
017b 00d9 | | Load_Top At_Offset_1
017c 00d8 | | Load_Top At_Offset_0
017d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
017e 00da | | Load_Top At_Offset_2
017f 01da | | Execute Vector,Bounds
0180 00da | | Load_Top At_Offset_2
0181 01da | | Execute Vector,Bounds
0182 00da | | Load_Top At_Offset_2
0183 027f | | Execute Discrete,Equal
0184 7001 |p | Jump_Nonzero 0x186
0185 08e0 | | Execute_Immediate Raise,0xe0
0186 00cd | | Action Spare6_Action
0187 027f | | Execute Discrete,Equal
0188 7001 |p | Jump_Nonzero 0x18a
0189 08e0 | | Execute_Immediate Raise,0xe0
018a 00d2 | | Pop_Control Pop_Count_2
018b 00d9 | | Load_Top At_Offset_1
018c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
018d 4401 |D | Exit_Subprogram With_Result,0x1
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4801 |H | Short_Literal 0x1
0194 e227 | ' | Load 0x1,0x27
0195 1c08 | | Execute_Immediate Run_Utility,0x8
0196 00d8 | | Load_Top At_Offset_0
0197 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0198 0335 | 5 | Declare_Variable Array,Duplicate
0199 00cd | | Action Spare6_Action
019a 00d9 | | Load_Top At_Offset_1
019b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
019c 01d9 | | Execute Vector,Reverse_Bounds
019d 0263 | c | Execute Discrete,Above_Bound
019e 700c |p | Jump_Nonzero 0x1ab
019f e225 | % | Load 0x1,0x25
01a0 0322 | " | Declare_Variable Record
01a1 4804 |H | Short_Literal 0x4
01a2 00d9 | | Load_Top At_Offset_1
01a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a4 e5ff | | Load 0x2,-0x1
01a5 00d9 | | Load_Top At_Offset_1
01a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a7 00d9 | | Load_Top At_Offset_1
01a8 e403 | | Load 0x2,0x3
01a9 01d6 | | Execute Vector,Field_Write
01aa 3ff4 |? | Loop_Increasing 0x19f
01ab 00d9 | | Load_Top At_Offset_1
01ac 00d8 | | Load_Top At_Offset_0
01ad 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01ae 00da | | Load_Top At_Offset_2
01af 01da | | Execute Vector,Bounds
01b0 00da | | Load_Top At_Offset_2
01b1 01da | | Execute Vector,Bounds
01b2 00da | | Load_Top At_Offset_2
01b3 027f | | Execute Discrete,Equal
01b4 7001 |p | Jump_Nonzero 0x1b6
01b5 08e0 | | Execute_Immediate Raise,0xe0
01b6 00cd | | Action Spare6_Action
01b7 027f | | Execute Discrete,Equal
01b8 7001 |p | Jump_Nonzero 0x1ba
01b9 08e0 | | Execute_Immediate Raise,0xe0
01ba 00d2 | | Pop_Control Pop_Count_2
01bb 00d9 | | Load_Top At_Offset_1
01bc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01bd 4401 |D | Exit_Subprogram With_Result,0x1
01be 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
01c4 e227 | ' | Load 0x1,0x27
01c5 1c08 | | Execute_Immediate Run_Utility,0x8
01c6 00d8 | | Load_Top At_Offset_0
01c7 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01c8 0335 | 5 | Declare_Variable Array,Duplicate
01c9 00cd | | Action Spare6_Action
01ca 00d9 | | Load_Top At_Offset_1
01cb 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01cc 01d9 | | Execute Vector,Reverse_Bounds
01cd 0263 | c | Execute Discrete,Above_Bound
01ce 700c |p | Jump_Nonzero 0x1db
01cf e225 | % | Load 0x1,0x25
01d0 0322 | " | Declare_Variable Record
01d1 4805 |H | Short_Literal 0x5
01d2 00d9 | | Load_Top At_Offset_1
01d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d4 e5ff | | Load 0x2,-0x1
01d5 00d9 | | Load_Top At_Offset_1
01d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d7 00d9 | | Load_Top At_Offset_1
01d8 e403 | | Load 0x2,0x3
01d9 01d6 | | Execute Vector,Field_Write
01da 3ff4 |? | Loop_Increasing 0x1cf
01db 00d9 | | Load_Top At_Offset_1
01dc 00d8 | | Load_Top At_Offset_0
01dd 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01de 00da | | Load_Top At_Offset_2
01df 01da | | Execute Vector,Bounds
01e0 00da | | Load_Top At_Offset_2
01e1 01da | | Execute Vector,Bounds
01e2 00da | | Load_Top At_Offset_2
01e3 027f | | Execute Discrete,Equal
01e4 7001 |p | Jump_Nonzero 0x1e6
01e5 08e0 | | Execute_Immediate Raise,0xe0
01e6 00cd | | Action Spare6_Action
01e7 027f | | Execute Discrete,Equal
01e8 7001 |p | Jump_Nonzero 0x1ea
01e9 08e0 | | Execute_Immediate Raise,0xe0
01ea 00d2 | | Pop_Control Pop_Count_2
01eb 00d9 | | Load_Top At_Offset_1
01ec 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01ed 4401 |D | Exit_Subprogram With_Result,0x1
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1
01f4 e227 | ' | Load 0x1,0x27
01f5 1c08 | | Execute_Immediate Run_Utility,0x8
01f6 00d8 | | Load_Top At_Offset_0
01f7 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01f8 0335 | 5 | Declare_Variable Array,Duplicate
01f9 00cd | | Action Spare6_Action
01fa 00d9 | | Load_Top At_Offset_1
01fb 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
01fc 01d9 | | Execute Vector,Reverse_Bounds
01fd 0263 | c | Execute Discrete,Above_Bound
01fe 700c |p | Jump_Nonzero 0x20b
01ff e225 | % | Load 0x1,0x25
0200 0322 | " | Declare_Variable Record
0201 4806 |H | Short_Literal 0x6
0202 00d9 | | Load_Top At_Offset_1
0203 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0204 e5ff | | Load 0x2,-0x1
0205 00d9 | | Load_Top At_Offset_1
0206 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0207 00d9 | | Load_Top At_Offset_1
0208 e403 | | Load 0x2,0x3
0209 01d6 | | Execute Vector,Field_Write
020a 3ff4 |? | Loop_Increasing 0x1ff
020b 00d9 | | Load_Top At_Offset_1
020c 00d8 | | Load_Top At_Offset_0
020d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
020e 00da | | Load_Top At_Offset_2
020f 01da | | Execute Vector,Bounds
0210 00da | | Load_Top At_Offset_2
0211 01da | | Execute Vector,Bounds
0212 00da | | Load_Top At_Offset_2
0213 027f | | Execute Discrete,Equal
0214 7001 |p | Jump_Nonzero 0x216
0215 08e0 | | Execute_Immediate Raise,0xe0
0216 00cd | | Action Spare6_Action
0217 027f | | Execute Discrete,Equal
0218 7001 |p | Jump_Nonzero 0x21a
0219 08e0 | | Execute_Immediate Raise,0xe0
021a 00d2 | | Pop_Control Pop_Count_2
021b 00d9 | | Load_Top At_Offset_1
021c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
021d 4401 |D | Exit_Subprogram With_Result,0x1
021e 0000 0000 | | .XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4801 |H | Short_Literal 0x1
0224 e227 | ' | Load 0x1,0x27
0225 1c08 | | Execute_Immediate Run_Utility,0x8
0226 00d8 | | Load_Top At_Offset_0
0227 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0228 0335 | 5 | Declare_Variable Array,Duplicate
0229 00cd | | Action Spare6_Action
022a 00d9 | | Load_Top At_Offset_1
022b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
022c 01d9 | | Execute Vector,Reverse_Bounds
022d 0263 | c | Execute Discrete,Above_Bound
022e 700c |p | Jump_Nonzero 0x23b
022f e225 | % | Load 0x1,0x25
0230 0322 | " | Declare_Variable Record
0231 4807 |H | Short_Literal 0x7
0232 00d9 | | Load_Top At_Offset_1
0233 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0234 e5ff | | Load 0x2,-0x1
0235 00d9 | | Load_Top At_Offset_1
0236 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0237 00d9 | | Load_Top At_Offset_1
0238 e403 | | Load 0x2,0x3
0239 01d6 | | Execute Vector,Field_Write
023a 3ff4 |? | Loop_Increasing 0x22f
023b 00d9 | | Load_Top At_Offset_1
023c 00d8 | | Load_Top At_Offset_0
023d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
023e 00da | | Load_Top At_Offset_2
023f 01da | | Execute Vector,Bounds
0240 00da | | Load_Top At_Offset_2
0241 01da | | Execute Vector,Bounds
0242 00da | | Load_Top At_Offset_2
0243 027f | | Execute Discrete,Equal
0244 7001 |p | Jump_Nonzero 0x246
0245 08e0 | | Execute_Immediate Raise,0xe0
0246 00cd | | Action Spare6_Action
0247 027f | | Execute Discrete,Equal
0248 7001 |p | Jump_Nonzero 0x24a
0249 08e0 | | Execute_Immediate Raise,0xe0
024a 00d2 | | Pop_Control Pop_Count_2
024b 00d9 | | Load_Top At_Offset_1
024c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
024d 4401 |D | Exit_Subprogram With_Result,0x1
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 4801 |H | Short_Literal 0x1
0254 e227 | ' | Load 0x1,0x27
0255 1c08 | | Execute_Immediate Run_Utility,0x8
0256 00d8 | | Load_Top At_Offset_0
0257 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0258 0335 | 5 | Declare_Variable Array,Duplicate
0259 00cd | | Action Spare6_Action
025a 00d9 | | Load_Top At_Offset_1
025b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
025c 01d9 | | Execute Vector,Reverse_Bounds
025d 0263 | c | Execute Discrete,Above_Bound
025e 700c |p | Jump_Nonzero 0x26b
025f e225 | % | Load 0x1,0x25
0260 0322 | " | Declare_Variable Record
0261 4808 |H | Short_Literal 0x8
0262 00d9 | | Load_Top At_Offset_1
0263 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0264 e5ff | | Load 0x2,-0x1
0265 00d9 | | Load_Top At_Offset_1
0266 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0267 00d9 | | Load_Top At_Offset_1
0268 e403 | | Load 0x2,0x3
0269 01d6 | | Execute Vector,Field_Write
026a 3ff4 |? | Loop_Increasing 0x25f
026b 00d9 | | Load_Top At_Offset_1
026c 00d8 | | Load_Top At_Offset_0
026d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
026e 00da | | Load_Top At_Offset_2
026f 01da | | Execute Vector,Bounds
0270 00da | | Load_Top At_Offset_2
0271 01da | | Execute Vector,Bounds
0272 00da | | Load_Top At_Offset_2
0273 027f | | Execute Discrete,Equal
0274 7001 |p | Jump_Nonzero 0x276
0275 08e0 | | Execute_Immediate Raise,0xe0
0276 00cd | | Action Spare6_Action
0277 027f | | Execute Discrete,Equal
0278 7001 |p | Jump_Nonzero 0x27a
0279 08e0 | | Execute_Immediate Raise,0xe0
027a 00d2 | | Pop_Control Pop_Count_2
027b 00d9 | | Load_Top At_Offset_1
027c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
027d 4401 |D | Exit_Subprogram With_Result,0x1
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4801 |H | Short_Literal 0x1
0284 e227 | ' | Load 0x1,0x27
0285 1c08 | | Execute_Immediate Run_Utility,0x8
0286 00d8 | | Load_Top At_Offset_0
0287 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0288 0335 | 5 | Declare_Variable Array,Duplicate
0289 00cd | | Action Spare6_Action
028a 00d9 | | Load_Top At_Offset_1
028b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
028c 01d9 | | Execute Vector,Reverse_Bounds
028d 0263 | c | Execute Discrete,Above_Bound
028e 700c |p | Jump_Nonzero 0x29b
028f e225 | % | Load 0x1,0x25
0290 0322 | " | Declare_Variable Record
0291 4809 |H | Short_Literal 0x9
0292 00d9 | | Load_Top At_Offset_1
0293 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0294 e5ff | | Load 0x2,-0x1
0295 00d9 | | Load_Top At_Offset_1
0296 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0297 00d9 | | Load_Top At_Offset_1
0298 e403 | | Load 0x2,0x3
0299 01d6 | | Execute Vector,Field_Write
029a 3ff4 |? | Loop_Increasing 0x28f
029b 00d9 | | Load_Top At_Offset_1
029c 00d8 | | Load_Top At_Offset_0
029d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
029e 00da | | Load_Top At_Offset_2
029f 01da | | Execute Vector,Bounds
02a0 00da | | Load_Top At_Offset_2
02a1 01da | | Execute Vector,Bounds
02a2 00da | | Load_Top At_Offset_2
02a3 027f | | Execute Discrete,Equal
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 08e0 | | Execute_Immediate Raise,0xe0
02a6 00cd | | Action Spare6_Action
02a7 027f | | Execute Discrete,Equal
02a8 7001 |p | Jump_Nonzero 0x2aa
02a9 08e0 | | Execute_Immediate Raise,0xe0
02aa 00d2 | | Pop_Control Pop_Count_2
02ab 00d9 | | Load_Top At_Offset_1
02ac 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
02ad 4401 |D | Exit_Subprogram With_Result,0x1
02ae 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
02b4 e227 | ' | Load 0x1,0x27
02b5 1c08 | | Execute_Immediate Run_Utility,0x8
02b6 00d8 | | Load_Top At_Offset_0
02b7 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02b8 0335 | 5 | Declare_Variable Array,Duplicate
02b9 00cd | | Action Spare6_Action
02ba 00d9 | | Load_Top At_Offset_1
02bb 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02bc 01d9 | | Execute Vector,Reverse_Bounds
02bd 0263 | c | Execute Discrete,Above_Bound
02be 700c |p | Jump_Nonzero 0x2cb
02bf e225 | % | Load 0x1,0x25
02c0 0322 | " | Declare_Variable Record
02c1 480a |H | Short_Literal 0xa
02c2 00d9 | | Load_Top At_Offset_1
02c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02c4 e5ff | | Load 0x2,-0x1
02c5 00d9 | | Load_Top At_Offset_1
02c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c7 00d9 | | Load_Top At_Offset_1
02c8 e403 | | Load 0x2,0x3
02c9 01d6 | | Execute Vector,Field_Write
02ca 3ff4 |? | Loop_Increasing 0x2bf
02cb 00d9 | | Load_Top At_Offset_1
02cc 00d8 | | Load_Top At_Offset_0
02cd 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02ce 00da | | Load_Top At_Offset_2
02cf 01da | | Execute Vector,Bounds
02d0 00da | | Load_Top At_Offset_2
02d1 01da | | Execute Vector,Bounds
02d2 00da | | Load_Top At_Offset_2
02d3 027f | | Execute Discrete,Equal
02d4 7001 |p | Jump_Nonzero 0x2d6
02d5 08e0 | | Execute_Immediate Raise,0xe0
02d6 00cd | | Action Spare6_Action
02d7 027f | | Execute Discrete,Equal
02d8 7001 |p | Jump_Nonzero 0x2da
02d9 08e0 | | Execute_Immediate Raise,0xe0
02da 00d2 | | Pop_Control Pop_Count_2
02db 00d9 | | Load_Top At_Offset_1
02dc 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
02dd 4401 |D | Exit_Subprogram With_Result,0x1
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 4801 |H | Short_Literal 0x1
02e4 e227 | ' | Load 0x1,0x27
02e5 1c08 | | Execute_Immediate Run_Utility,0x8
02e6 00d8 | | Load_Top At_Offset_0
02e7 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02e8 0335 | 5 | Declare_Variable Array,Duplicate
02e9 00cd | | Action Spare6_Action
02ea 00d9 | | Load_Top At_Offset_1
02eb 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02ec 01d9 | | Execute Vector,Reverse_Bounds
02ed 0263 | c | Execute Discrete,Above_Bound
02ee 700c |p | Jump_Nonzero 0x2fb
02ef e225 | % | Load 0x1,0x25
02f0 0322 | " | Declare_Variable Record
02f1 480b |H | Short_Literal 0xb
02f2 00d9 | | Load_Top At_Offset_1
02f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f4 e5ff | | Load 0x2,-0x1
02f5 00d9 | | Load_Top At_Offset_1
02f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f7 00d9 | | Load_Top At_Offset_1
02f8 e403 | | Load 0x2,0x3
02f9 01d6 | | Execute Vector,Field_Write
02fa 3ff4 |? | Loop_Increasing 0x2ef
02fb 00d9 | | Load_Top At_Offset_1
02fc 00d8 | | Load_Top At_Offset_0
02fd 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
02fe 00da | | Load_Top At_Offset_2
02ff 01da | | Execute Vector,Bounds
0300 00da | | Load_Top At_Offset_2
0301 01da | | Execute Vector,Bounds
0302 00da | | Load_Top At_Offset_2
0303 027f | | Execute Discrete,Equal
0304 7001 |p | Jump_Nonzero 0x306
0305 08e0 | | Execute_Immediate Raise,0xe0
0306 00cd | | Action Spare6_Action
0307 027f | | Execute Discrete,Equal
0308 7001 |p | Jump_Nonzero 0x30a
0309 08e0 | | Execute_Immediate Raise,0xe0
030a 00d2 | | Pop_Control Pop_Count_2
030b 00d9 | | Load_Top At_Offset_1
030c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
030d 4401 |D | Exit_Subprogram With_Result,0x1
030e 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
0314 e227 | ' | Load 0x1,0x27
0315 1c08 | | Execute_Immediate Run_Utility,0x8
0316 00d8 | | Load_Top At_Offset_0
0317 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0318 0335 | 5 | Declare_Variable Array,Duplicate
0319 00cd | | Action Spare6_Action
031a 00d9 | | Load_Top At_Offset_1
031b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
031c 01d9 | | Execute Vector,Reverse_Bounds
031d 0263 | c | Execute Discrete,Above_Bound
031e 700c |p | Jump_Nonzero 0x32b
031f e225 | % | Load 0x1,0x25
0320 0322 | " | Declare_Variable Record
0321 480c |H | Short_Literal 0xc
0322 00d9 | | Load_Top At_Offset_1
0323 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0324 4800 |H | Short_Literal 0x0
0325 00d9 | | Load_Top At_Offset_1
0326 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0327 00d9 | | Load_Top At_Offset_1
0328 e403 | | Load 0x2,0x3
0329 01d6 | | Execute Vector,Field_Write
032a 3ff4 |? | Loop_Increasing 0x31f
032b 00d9 | | Load_Top At_Offset_1
032c 00d8 | | Load_Top At_Offset_0
032d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
032e 00da | | Load_Top At_Offset_2
032f 01da | | Execute Vector,Bounds
0330 00da | | Load_Top At_Offset_2
0331 01da | | Execute Vector,Bounds
0332 00da | | Load_Top At_Offset_2
0333 027f | | Execute Discrete,Equal
0334 7001 |p | Jump_Nonzero 0x336
0335 08e0 | | Execute_Immediate Raise,0xe0
0336 00cd | | Action Spare6_Action
0337 027f | | Execute Discrete,Equal
0338 7001 |p | Jump_Nonzero 0x33a
0339 08e0 | | Execute_Immediate Raise,0xe0
033a 00d2 | | Pop_Control Pop_Count_2
033b 00d9 | | Load_Top At_Offset_1
033c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
033d 00ca | | Action Exit_Nullary_Function
033e 0000 0000 | | .XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 4801 |H | Short_Literal 0x1
0344 e227 | ' | Load 0x1,0x27
0345 1c08 | | Execute_Immediate Run_Utility,0x8
0346 00d8 | | Load_Top At_Offset_0
0347 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0348 0335 | 5 | Declare_Variable Array,Duplicate
0349 00cd | | Action Spare6_Action
034a 00d9 | | Load_Top At_Offset_1
034b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
034c 01d9 | | Execute Vector,Reverse_Bounds
034d 0263 | c | Execute Discrete,Above_Bound
034e 700c |p | Jump_Nonzero 0x35b
034f e225 | % | Load 0x1,0x25
0350 0322 | " | Declare_Variable Record
0351 480d |H | Short_Literal 0xd
0352 00d9 | | Load_Top At_Offset_1
0353 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0354 e5ff | | Load 0x2,-0x1
0355 00d9 | | Load_Top At_Offset_1
0356 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0357 00d9 | | Load_Top At_Offset_1
0358 e403 | | Load 0x2,0x3
0359 01d6 | | Execute Vector,Field_Write
035a 3ff4 |? | Loop_Increasing 0x34f
035b 00d9 | | Load_Top At_Offset_1
035c 00d8 | | Load_Top At_Offset_0
035d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
035e 00da | | Load_Top At_Offset_2
035f 01da | | Execute Vector,Bounds
0360 00da | | Load_Top At_Offset_2
0361 01da | | Execute Vector,Bounds
0362 00da | | Load_Top At_Offset_2
0363 027f | | Execute Discrete,Equal
0364 7001 |p | Jump_Nonzero 0x366
0365 08e0 | | Execute_Immediate Raise,0xe0
0366 00cd | | Action Spare6_Action
0367 027f | | Execute Discrete,Equal
0368 7001 |p | Jump_Nonzero 0x36a
0369 08e0 | | Execute_Immediate Raise,0xe0
036a 00d2 | | Pop_Control Pop_Count_2
036b 00d9 | | Load_Top At_Offset_1
036c 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
036d 4401 |D | Exit_Subprogram With_Result,0x1
036e 0000 0000 | | .XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0375 e5fe | | Load 0x2,-0x2
0376 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0377 0273 | s | Execute Discrete,Plus
0378 e227 | ' | Load 0x1,0x27
0379 1c08 | | Execute_Immediate Run_Utility,0x8
037a 00db | | Load_Top At_Offset_3
037b 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
037c e5fe | | Load 0x2,-0x2
037d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
037e 01cc | | Execute Vector,Catenate
037f 00d9 | | Load_Top At_Offset_1
0380 00d8 | | Load_Top At_Offset_0
0381 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
0382 00da | | Load_Top At_Offset_2
0383 01da | | Execute Vector,Bounds
0384 00da | | Load_Top At_Offset_2
0385 01da | | Execute Vector,Bounds
0386 00da | | Load_Top At_Offset_2
0387 027f | | Execute Discrete,Equal
0388 7001 |p | Jump_Nonzero 0x38a
0389 08e0 | | Execute_Immediate Raise,0xe0
038a 00cd | | Action Spare6_Action
038b 027f | | Execute Discrete,Equal
038c 7001 |p | Jump_Nonzero 0x38e
038d 08e0 | | Execute_Immediate Raise,0xe0
038e 00d2 | | Pop_Control Pop_Count_2
038f 00d9 | | Load_Top At_Offset_1
0390 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0391 4402 |D | Exit_Subprogram With_Result,0x2
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00cf | | Action Mark_Auxiliary
039c e5fe | | Load 0x2,-0x2
039d 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
039e 01d9 | | Execute Vector,Reverse_Bounds
039f 0263 | c | Execute Discrete,Above_Bound
03a0 700b |p | Jump_Nonzero 0x3ac
03a1 00d8 | | Load_Top At_Offset_0
03a2 e5fe | | Load 0x2,-0x2
03a3 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
03a4 01d5 | | Execute Vector,Field_Reference
03a5 e5ff | | Load 0x2,-0x1
03a6 822d | - | Call 0x1,0x2d
03a7 7002 |p | Jump_Nonzero 0x3aa
03a8 4800 |H | Short_Literal 0x0
03a9 4402 |D | Exit_Subprogram With_Result,0x2
03aa 00c8 | | Action Pop_Auxiliary_Range
03ab 3ff5 |? | Loop_Increasing 0x3a1
03ac 00ce | | Action Pop_Auxiliary
03ad 4801 |H | Short_Literal 0x1
03ae 4402 |D | Exit_Subprogram With_Result,0x2
03af 0000 | | .XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b5 | | .CONST 0x03b5 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 00e1 | | Load_Encached Boolean_Cache
03b4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03b5 BODY_03b0:
03b5 00db | | Load_Top At_Offset_3
03b6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03b7 7005 |p | Jump_Nonzero 0x3bd
03b8 e5fe | | Load 0x2,-0x2
03b9 0092 055c | \| Action Push_String_Extended,0x55c ; "Any"
03bb 8002 | | Call 0x0,0x2
03bc 4503 |E | Exit_Subprogram 0x3
03bd 00cf | | Action Mark_Auxiliary
03be e5ff | | Load 0x2,-0x1
03bf 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
03c0 01d9 | | Execute Vector,Reverse_Bounds
03c1 0263 | c | Execute Discrete,Above_Bound
03c2 7014 |p | Jump_Nonzero 0x3d7
03c3 00db | | Load_Top At_Offset_3
03c4 7008 |p | Jump_Nonzero 0x3cd
03c5 4801 |H | Short_Literal 0x1
03c6 e5fe | | Load 0x2,-0x2
03c7 8003 | | Call 0x0,0x3
03c8 e5fe | | Load 0x2,-0x2
03c9 0092 055d | ]| Action Push_String_Extended,0x55d ; " & "
03cb 8002 | | Call 0x0,0x2
03cc 7802 |x | Jump 0x3cf
03cd 4800 |H | Short_Literal 0x0
03ce a402 | | Store_Unchecked 0x2,0x2
03cf e5fe | | Load 0x2,-0x2
03d0 00d9 | | Load_Top At_Offset_1
03d1 e5ff | | Load 0x2,-0x1
03d2 2502 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x2
03d3 01d5 | | Execute Vector,Field_Reference
03d4 822e | . | Call 0x1,0x2e
03d5 00c8 | | Action Pop_Auxiliary_Range
03d6 3fec |? | Loop_Increasing 0x3c3
03d7 00ce | | Action Pop_Auxiliary
03d8 4503 |E | Exit_Subprogram 0x3
03d9 0000 0000 | | .BLANK 0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 4607 |F | Jump_Case 0x7
03e4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
03e5 7807 |x | Jump 0x3ed ; case 0x1
03e6 780a |x | Jump 0x3f1 ; case 0x2
03e7 780e |x | Jump 0x3f6 ; case 0x3
03e8 7811 |x | Jump 0x3fa ; case 0x4
03e9 7812 |x | Jump 0x3fc ; case 0x5
03ea 7813 |x | Jump 0x3fe ; case 0x6
03eb 7816 |x | Jump 0x402 ; case 0x7
03ec 4302 |C | .XXX[0x1]
03ed 00da | | Load_Top At_Offset_2
03ee 0091 054e | N| Action Push_String_Extended_Indexed,0x54e ; "IS_EQUAL"
03f0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
03f1 00db | | Load_Top At_Offset_3
03f2 00db | | Load_Top At_Offset_3
03f3 00e0 | | Load_Encached Standard_Cache
03f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03f5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
03f6 00da | | Load_Top At_Offset_2
03f7 00e0 | | Load_Encached Standard_Cache
03f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03f9 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
03fa 00db | | Load_Top At_Offset_3
03fb 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
03fc 00db | | Load_Top At_Offset_3
03fd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
03fe e221 | ! | Load 0x1,0x21
03ff 00dc | | Load_Top At_Offset_4
0400 0267 | g | Execute Discrete,Predecessor
0401 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0402 e221 | ! | Load 0x1,0x21
0403 00dc | | Load_Top At_Offset_4
0404 0268 | h | Execute Discrete,Successor
0405 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0411 | | .CONST 0x0411 ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0003 | | .CONST 0x0003 ; Number of locals
040b INIT_0408:
040b 00db | | Load_Top At_Offset_3
040c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
040d 0007 | | Action Break_Optional
040e e5fe | | Load 0x2,-0x2
040f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0410 0007 | | Action Break_Optional
0411 BODY_0408:
0411 00d9 | | Load_Top At_Offset_1
0412 00d8 | | Load_Top At_Offset_0
0413 e222 | " | Load 0x1,0x22
0414 0260 | ` | Execute Discrete,In_Type
0415 7001 |p | Jump_Nonzero 0x417
0416 0801 | | Execute_Immediate Raise,0x1
0417 4605 |F | Jump_Case 0x5
0418 7809 |x | Jump 0x422 ; case 0x0
0419 780c |x | Jump 0x426 ; case 0x1
041a 780f |x | Jump 0x42a ; case 0x2
041b 7812 |x | Jump 0x42e ; case 0x3
041c 7815 |x | Jump 0x432 ; case 0x4
041d 7800 |x | Jump 0x41e ; case 0x5
041e e5ff | | Load 0x2,-0x1
041f 00d9 | | Load_Top At_Offset_1
0420 027e | ~ | Execute Discrete,Not_Equal
0421 4402 |D | Exit_Subprogram With_Result,0x2
0422 e5ff | | Load 0x2,-0x1
0423 00d9 | | Load_Top At_Offset_1
0424 027f | | Execute Discrete,Equal
0425 4402 |D | Exit_Subprogram With_Result,0x2
0426 e5ff | | Load 0x2,-0x1
0427 00d9 | | Load_Top At_Offset_1
0428 027c | | | Execute Discrete,Less
0429 4402 |D | Exit_Subprogram With_Result,0x2
042a e5ff | | Load 0x2,-0x1
042b 00d9 | | Load_Top At_Offset_1
042c 027a | z | Execute Discrete,Less_Equal
042d 4402 |D | Exit_Subprogram With_Result,0x2
042e e5ff | | Load 0x2,-0x1
042f 00d9 | | Load_Top At_Offset_1
0430 027d | } | Execute Discrete,Greater
0431 4402 |D | Exit_Subprogram With_Result,0x2
0432 e5ff | | Load 0x2,-0x1
0433 00d9 | | Load_Top At_Offset_1
0434 027b | { | Execute Discrete,Greater_Equal
0435 4402 |D | Exit_Subprogram With_Result,0x2
0436 0000 0000 | | .XXX[0x2]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0449 | I | .CONST 0x0449 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0004 | | .CONST 0x0004 ; 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 00d8 | | Load_Top At_Offset_0
0441 e20f | | Load 0x1,0xf
0442 0260 | ` | Execute Discrete,In_Type
0443 7001 |p | Jump_Nonzero 0x445
0444 0801 | | Execute_Immediate Raise,0x1
0445 00d8 | | Load_Top At_Offset_0
0446 e229 | ) | Load 0x1,0x29
0447 01d5 | | Execute Vector,Field_Reference
0448 0007 | | Action Break_Optional
0449 BODY_0438:
0449 00da | | Load_Top At_Offset_2
044a 00d8 | | Load_Top At_Offset_0
044b e223 | # | Load 0x1,0x23
044c 0260 | ` | Execute Discrete,In_Type
044d 7001 |p | Jump_Nonzero 0x44f
044e 0801 | | Execute_Immediate Raise,0x1
044f 0afa | | Execute_Immediate Plus,-0x6
0450 4605 |F | Jump_Case 0x5
0451 7809 |x | Jump 0x45b ; case 0x0
0452 780c |x | Jump 0x45f ; case 0x1
0453 780f |x | Jump 0x463 ; case 0x2
0454 7812 |x | Jump 0x467 ; case 0x3
0455 7815 |x | Jump 0x46b ; case 0x4
0456 7800 |x | Jump 0x457 ; case 0x5
0457 e5ff | | Load 0x2,-0x1
0458 00d9 | | Load_Top At_Offset_1
0459 027e | ~ | Execute Discrete,Not_Equal
045a 4402 |D | Exit_Subprogram With_Result,0x2
045b e5ff | | Load 0x2,-0x1
045c 00d9 | | Load_Top At_Offset_1
045d 027f | | Execute Discrete,Equal
045e 4402 |D | Exit_Subprogram With_Result,0x2
045f e5ff | | Load 0x2,-0x1
0460 00d9 | | Load_Top At_Offset_1
0461 027c | | | Execute Discrete,Less
0462 4402 |D | Exit_Subprogram With_Result,0x2
0463 e5ff | | Load 0x2,-0x1
0464 00d9 | | Load_Top At_Offset_1
0465 027a | z | Execute Discrete,Less_Equal
0466 4402 |D | Exit_Subprogram With_Result,0x2
0467 e5ff | | Load 0x2,-0x1
0468 00d9 | | Load_Top At_Offset_1
0469 027d | } | Execute Discrete,Greater
046a 4402 |D | Exit_Subprogram With_Result,0x2
046b e5ff | | Load 0x2,-0x1
046c 00d9 | | Load_Top At_Offset_1
046d 027b | { | Execute Discrete,Greater_Equal
046e 4402 |D | Exit_Subprogram With_Result,0x2
046f 0000 | | .XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0479 | y | .CONST 0x0479 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0003 | | .CONST 0x0003 ; Number of locals
0473 INIT_0470:
0473 00db | | Load_Top At_Offset_3
0474 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0475 0007 | | Action Break_Optional
0476 e5fe | | Load 0x2,-0x2
0477 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0478 0007 | | Action Break_Optional
0479 BODY_0470:
0479 00d9 | | Load_Top At_Offset_1
047a 00d8 | | Load_Top At_Offset_0
047b e224 | $ | Load 0x1,0x24
047c 0260 | ` | Execute Discrete,In_Type
047d 7001 |p | Jump_Nonzero 0x47f
047e 0801 | | Execute_Immediate Raise,0x1
047f 0f0c | | Execute_Immediate Equal,0xc
0480 700b |p | Jump_Nonzero 0x48c
0481 e5ff | | Load 0x2,-0x1
0482 00d9 | | Load_Top At_Offset_1
0483 00d8 | | Load_Top At_Offset_0
0484 e20f | | Load 0x1,0xf
0485 0260 | ` | Execute Discrete,In_Type
0486 7001 |p | Jump_Nonzero 0x488
0487 0801 | | Execute_Immediate Raise,0x1
0488 e229 | ) | Load 0x1,0x29
0489 01d6 | | Execute Vector,Field_Write
048a 4801 |H | Short_Literal 0x1
048b 4402 |D | Exit_Subprogram With_Result,0x2
048c 4801 |H | Short_Literal 0x1
048d 4402 |D | Exit_Subprogram With_Result,0x2
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0496 | | .CONST 0x0496 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0002 | | .CONST 0x0002 ; Number of locals
0493 INIT_0490:
0493 00db | | Load_Top At_Offset_3
0494 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0495 0007 | | Action Break_Optional
0496 BODY_0490:
0496 00d8 | | Load_Top At_Offset_0
0497 460d |F | Jump_Case 0xd
0498 7811 |x | Jump 0x4aa ; case 0x0
0499 7810 |x | Jump 0x4aa ; case 0x1
049a 780f |x | Jump 0x4aa ; case 0x2
049b 780e |x | Jump 0x4aa ; case 0x3
049c 780d |x | Jump 0x4aa ; case 0x4
049d 780c |x | Jump 0x4aa ; case 0x5
049e 780f |x | Jump 0x4ae ; case 0x6
049f 780e |x | Jump 0x4ae ; case 0x7
04a0 780d |x | Jump 0x4ae ; case 0x8
04a1 780c |x | Jump 0x4ae ; case 0x9
04a2 780b |x | Jump 0x4ae ; case 0xa
04a3 780a |x | Jump 0x4ae ; case 0xb
04a4 7801 |x | Jump 0x4a6 ; case 0xc
04a5 7800 |x | Jump 0x4a6 ; case 0xd
04a6 e5fe | | Load 0x2,-0x2
04a7 e5ff | | Load 0x2,-0x1
04a8 822c | , | Call 0x1,0x2c
04a9 4402 |D | Exit_Subprogram With_Result,0x2
04aa e5fe | | Load 0x2,-0x2
04ab e5ff | | Load 0x2,-0x1
04ac 822a | * | Call 0x1,0x2a
04ad 4402 |D | Exit_Subprogram With_Result,0x2
04ae e5fe | | Load 0x2,-0x2
04af e5ff | | Load 0x2,-0x1
04b0 822b | + | Call 0x1,0x2b
04b1 4402 |D | Exit_Subprogram With_Result,0x2
04b2 0000 0000 | | .BLANK 0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00db | | Load_Top At_Offset_3
04bc 00db | | Load_Top At_Offset_3
04bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04be e221 | ! | Load 0x1,0x21
04bf 011c | | Execute Any,Convert_Unchecked
04c0 1c01 | | Execute_Immediate Run_Utility,0x1
04c1 8002 | | Call 0x0,0x2
04c2 00da | | Load_Top At_Offset_2
04c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c4 460d |F | Jump_Case 0xd
04c5 7822 |x" | Jump 0x4e8 ; case 0x0
04c6 7821 |x! | Jump 0x4e8 ; case 0x1
04c7 7820 |x | Jump 0x4e8 ; case 0x2
04c8 781f |x | Jump 0x4e8 ; case 0x3
04c9 781e |x | Jump 0x4e8 ; case 0x4
04ca 781d |x | Jump 0x4e8 ; case 0x5
04cb 7807 |x | Jump 0x4d3 ; case 0x6
04cc 7806 |x | Jump 0x4d3 ; case 0x7
04cd 7805 |x | Jump 0x4d3 ; case 0x8
04ce 7804 |x | Jump 0x4d3 ; case 0x9
04cf 7803 |x | Jump 0x4d3 ; case 0xa
04d0 7802 |x | Jump 0x4d3 ; case 0xb
04d1 4503 |E | Exit_Subprogram 0x3 ; case 0xc
04d2 7800 |x | Jump 0x4d3 ; case 0xd
04d3 00db | | Load_Top At_Offset_3
04d4 0092 055e | ^| Action Push_String_Extended,0x55e ; " (Alias'"
04d6 8002 | | Call 0x0,0x2
04d7 00db | | Load_Top At_Offset_3
04d8 00db | | Load_Top At_Offset_3
04d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04da 00d8 | | Load_Top At_Offset_0
04db e20f | | Load 0x1,0xf
04dc 0260 | ` | Execute Discrete,In_Type
04dd 7001 |p | Jump_Nonzero 0x4df
04de 0801 | | Execute_Immediate Raise,0x1
04df e20f | | Load 0x1,0xf
04e0 011c | | Execute Any,Convert_Unchecked
04e1 1c01 | | Execute_Immediate Run_Utility,0x1
04e2 8002 | | Call 0x0,0x2
04e3 00db | | Load_Top At_Offset_3
04e4 0092 055f | _| Action Push_String_Extended,0x55f ; ")"
04e6 8002 | | Call 0x0,0x2
04e7 4503 |E | Exit_Subprogram 0x3
04e8 00db | | Load_Top At_Offset_3
04e9 0092 0560 | `| Action Push_String_Extended,0x560 ; " ("
04eb e5ff | | Load 0x2,-0x1
04ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04ed 00e0 | | Load_Encached Standard_Cache
04ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04ef 01cc | | Execute Vector,Catenate
04f0 0092 055f | _| Action Push_String_Extended,0x55f ; ")"
04f2 01cc | | Execute Vector,Catenate
04f3 8002 | | Call 0x0,0x2
04f4 4503 |E | Exit_Subprogram 0x3
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb 4609 |F | Jump_Case 0x9
04fc 7809 |x | Jump 0x506 ; case 0x0
04fd 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
04fe 7813 |x | Jump 0x512 ; case 0x2
04ff 7816 |x | Jump 0x516 ; case 0x3
0500 7832 |x2 | Jump 0x533 ; case 0x4
0501 7831 |x1 | Jump 0x533 ; case 0x5
0502 7830 |x0 | Jump 0x533 ; case 0x6
0503 7818 |x | Jump 0x51c ; case 0x7
0504 7820 |x | Jump 0x525 ; case 0x8
0505 7829 |x) | Jump 0x52f ; case 0x9
0506 00da | | Load_Top At_Offset_2
0507 016c | l | Execute Variant_Record,Is_Constrained
0508 7008 |p | Jump_Nonzero 0x511
0509 00cf | | Action Mark_Auxiliary
050a 4800 |H | Short_Literal 0x0
050b e5ff | | Load 0x2,-0x1
050c 1c08 | | Execute_Immediate Run_Utility,0x8
050d 00d8 | | Load_Top At_Offset_0
050e 1c00 | | Execute_Immediate Run_Utility,0x0
050f c5ff | | Store 0x2,-0x1
0510 00ce | | Action Pop_Auxiliary
0511 4302 |C | Exit_Subprogram From_Utility,0x2
0512 4801 |H | Short_Literal 0x1
0513 4802 |H | Short_Literal 0x2
0514 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0515 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0516 e5fd | | Load 0x2,-0x3
0517 00db | | Load_Top At_Offset_3
0518 1c07 | | Execute_Immediate Run_Utility,0x7
0519 e5fe | | Load 0x2,-0x2
051a 0306 | | Complete_Type Variant_Record,By_Renaming
051b 4304 |C | Exit_Subprogram From_Utility,0x4
051c 00db | | Load_Top At_Offset_3
051d 4801 |H | Short_Literal 0x1
051e e5fe | | Load 0x2,-0x2
051f e226 | & | Load 0x1,0x26
0520 035b | [ | Declare_Type Array,Constrained
0521 4801 |H | Short_Literal 0x1
0522 e5ff | | Load 0x2,-0x1
0523 031b | | Declare_Type Variant_Record,Constrained
0524 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0525 00db | | Load_Top At_Offset_3
0526 00db | | Load_Top At_Offset_3
0527 02fc | | Declare_Variable Variant_Record,With_Constraint
0528 4801 |H | Short_Literal 0x1
0529 e5fe | | Load 0x2,-0x2
052a e226 | & | Load 0x1,0x26
052b 0334 | 4 | Declare_Variable Array,With_Constraint
052c 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
052d 016a | j | Execute Variant_Record,Indirects_Appended
052e 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
052f 4800 |H | Short_Literal 0x0
0530 00db | | Load_Top At_Offset_3
0531 1c07 | | Execute_Immediate Run_Utility,0x7
0532 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0533 0869 | i | Execute_Immediate Raise,0x69
0534 ; --------------------------------------------------------------------------------------
0534 ; STRING TABLE
0534 ; --------------------------------------------------------------------------------------
0534 005c | \ | .STRTAB 0x005c->0x0562 ; "A"
0535 005b | [ | .STRTAB 0x005b->0x0562 ; "B"
0536 005a | Z | .STRTAB 0x005a->0x0563 ; "C"
0537 0059 | Y | .STRTAB 0x0059->0x0563 ; "D"
0538 0058 | X | .STRTAB 0x0058->0x0564 ; "E"
0539 0057 | W | .STRTAB 0x0057->0x0564 ; "F"
053a 0056 | V | .STRTAB 0x0056->0x0565 ; "G"
053b 0055 | U | .STRTAB 0x0055->0x0565 ; "H"
053c 0054 | T | .STRTAB 0x0054->0x0566 ; "I"
053d 0053 | S | .STRTAB 0x0053->0x0566 ; "J"
053e 0052 | R | .STRTAB 0x0052->0x0567 ; "K"
053f 0051 | Q | .STRTAB 0x0051->0x0567 ; "L"
0540 0050 | P | .STRTAB 0x0050->0x0568 ; "M"
0541 004f | O | .STRTAB 0x004f->0x0568 ; "N"
0542 004e | N | .STRTAB 0x004e->0x0569 ; "O"
0543 004d | M | .STRTAB 0x004d->0x0569 ; "P"
0544 004c | L | .STRTAB 0x004c->0x056a ; "Q"
0545 004b | K | .STRTAB 0x004b->0x056a ; "R"
0546 004a | J | .STRTAB 0x004a->0x056b ; "S"
0547 0049 | I | .STRTAB 0x0049->0x056b ; "T"
0548 0048 | H | .STRTAB 0x0048->0x056c ; "U"
0549 0047 | G | .STRTAB 0x0047->0x056c ; "V"
054a 0046 | F | .STRTAB 0x0046->0x056d ; "W"
054b 0045 | E | .STRTAB 0x0045->0x056d ; "X"
054c 0044 | D | .STRTAB 0x0044->0x056e ; "Y"
054d 0043 | C | .STRTAB 0x0043->0x056e ; "Z"
054e 0042 | B | .STRTAB 0x0042->0x056f ; "IS_EQUAL"
054f 0048 | H | .STRTAB 0x0048->0x0573 ; "IS_LESS"
0550 004d | M | .STRTAB 0x004d->0x0576 ; "IS_LESS_OR_EQUAL"
0551 005b | [ | .STRTAB 0x005b->0x057e ; "IS_GREATER"
0552 0063 | c | .STRTAB 0x0063->0x0583 ; "IS_GREATER_OR_EQUAL"
0553 0074 | t | .STRTAB 0x0074->0x058d ; "IS_DIFFERENT"
0554 007e | ~ | .STRTAB 0x007e->0x0593 ; "IS_EQUAL_TO_ALIAS"
0555 008d | | .STRTAB 0x008d->0x059b ; "IS_LESS_THAN_ALIAS"
0556 009d | | .STRTAB 0x009d->0x05a4 ; "IS_LESS_OR_EQUAL_THAN_ALIAS"
0557 00b6 | | .STRTAB 0x00b6->0x05b2 ; "IS_GREATER_THAN_ALIAS"
0558 00c9 | | .STRTAB 0x00c9->0x05bc ; "IS_GREATER_OR_EQUAL_THAN_ALIAS"
0559 00e5 | | .STRTAB 0x00e5->0x05cb ; "IS_DIFFERENT_THAN_ALIAS"
055a 00fa | | .STRTAB 0x00fa->0x05d7 ; "IS_ANY"
055b 00fe | | .STRTAB 0x00fe->0x05da ; "SAY_IT_IS"
055c 0105 | | .STRTAB 0x0105->0x05de ; "Any"
055d 0106 | | .STRTAB 0x0106->0x05e0 ; " & "
055e 0108 | | .STRTAB 0x0108->0x05e2 ; " (Alias'"
055f 010e | | .STRTAB 0x010e->0x05e6 ; ")"
; ")"
0560 010d | | .STRTAB 0x010d->0x05e6 ; " ("
0561 010d | | .STREND 0x010d->0x05e7
0562 4142 4344 |ABCD| .STRTAB_STRINGS
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x77cc,0x0000,0x0001,0x001b
05ee 000b 065a | Z| .DBG4T 0x000b,0x065a,0xc000,0x8000
05f2 0061 0690 | a | .DBG4T 0x0061,0x0690,0xc000,0x0000
05f6 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x1005,0x0000
05fa 00d3 06aa | | .DBG4T 0x00d3,0x06aa,0x1002,0x0000
05fe 0103 06ad | | .DBG4T 0x0103,0x06ad,0x1002,0x0000
0602 0133 06b0 | 3 | .DBG4T 0x0133,0x06b0,0x1002,0x0000
0606 0163 06b3 | c | .DBG4T 0x0163,0x06b3,0x1002,0x0000
060a 0193 06b6 | | .DBG4T 0x0193,0x06b6,0x1002,0x0000
060e 01c3 06b9 | | .DBG4T 0x01c3,0x06b9,0x1002,0x0000
0612 01f3 06bc | | .DBG4T 0x01f3,0x06bc,0x1002,0x0000
0616 0223 06bf | # | .DBG4T 0x0223,0x06bf,0x1002,0x0000
061a 0253 06c2 | S | .DBG4T 0x0253,0x06c2,0x1002,0x0000
061e 0283 06c5 | | .DBG4T 0x0283,0x06c5,0x1002,0x0000
0622 02b3 06c8 | | .DBG4T 0x02b3,0x06c8,0x1002,0x0000
0626 02e3 06cb | | .DBG4T 0x02e3,0x06cb,0x1002,0x0000
062a 0313 06ce | | .DBG4T 0x0313,0x06ce,0x1002,0x0000
062e 0343 06d1 | C | .DBG4T 0x0343,0x06d1,0x1002,0x0000
0632 0373 06d4 | s | .DBG4T 0x0373,0x06d4,0x1002,0x0000
0636 039b 06d7 | | .DBG4T 0x039b,0x06d7,0x1002,0x0000
063a 03b3 06dd | | .DBG4T 0x03b3,0x06dd,0x1001,0x0000
063e 03e3 0000 | | .DBG4T 0x03e3,0x0000,0x1005,0x0000
0642 040b 06e8 | | .DBG4T 0x040b,0x06e8,0x1002,0x4000
0646 043b 06fa | ; | .DBG4T 0x043b,0x06fa,0x1002,0x4000
064a 0473 070d | s | .DBG4T 0x0473,0x070d,0x1002,0x4000
064e 0493 0719 | | .DBG4T 0x0493,0x0719,0x1002,0x4000
0652 04bb 0724 | $| .DBG4T 0x04bb,0x0724,0x1001,0x4000
0656 04fb 0000 | | .DBG4T 0x04fb,0x0000,0x1005,0x0000
065a ; --------------------------------------------------------------------------------------
065a ; Debug chain
065a ; --------------------------------------------------------------------------------------
065a 001a 0000 | | .DBGLEN 0x001a,0x0000
065c 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x003b,0x003f,0x0043,0x0047,0x004c,0x0052
0676 0002 0004 | | .XXX[0x1a]
0678 0005 0006 | |
067a 0007 0008 | |
067c 0009 000a | |
067e 000b 000c | |
0680 000d 000e | |
0682 000f 0010 | |
0684 0011 0012 | |
0686 0013 0014 | |
0688 0015 0016 | |
068a 0017 0018 | |
068c 0019 001a | |
068e 001b 001c | |
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug chain
0690 ; --------------------------------------------------------------------------------------
0690 0018 0000 | | .DBGLEN 0x0018,0x0000
0692 0061 0067 | a g| .DBGLNO 0x0061,0x0067,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f
06aa ; --------------------------------------------------------------------------------------
06aa ; Debug chain
06aa ; --------------------------------------------------------------------------------------
06aa 0000 0001 | | .DBGLEN 0x0000,0x0001
06ac 00d3 | | .DBGLNO 0x00d3
06ad ; --------------------------------------------------------------------------------------
06ad ; Debug chain
06ad ; --------------------------------------------------------------------------------------
06ad 0000 0001 | | .DBGLEN 0x0000,0x0001
06af 0103 | | .DBGLNO 0x0103
06b0 ; --------------------------------------------------------------------------------------
06b0 ; Debug chain
06b0 ; --------------------------------------------------------------------------------------
06b0 0000 0001 | | .DBGLEN 0x0000,0x0001
06b2 0133 | 3 | .DBGLNO 0x0133
06b3 ; --------------------------------------------------------------------------------------
06b3 ; Debug chain
06b3 ; --------------------------------------------------------------------------------------
06b3 0000 0001 | | .DBGLEN 0x0000,0x0001
06b5 0163 | c | .DBGLNO 0x0163
06b6 ; --------------------------------------------------------------------------------------
06b6 ; Debug chain
06b6 ; --------------------------------------------------------------------------------------
06b6 0000 0001 | | .DBGLEN 0x0000,0x0001
06b8 0193 | | .DBGLNO 0x0193
06b9 ; --------------------------------------------------------------------------------------
06b9 ; Debug chain
06b9 ; --------------------------------------------------------------------------------------
06b9 0000 0001 | | .DBGLEN 0x0000,0x0001
06bb 01c3 | | .DBGLNO 0x01c3
06bc ; --------------------------------------------------------------------------------------
06bc ; Debug chain
06bc ; --------------------------------------------------------------------------------------
06bc 0000 0001 | | .DBGLEN 0x0000,0x0001
06be 01f3 | | .DBGLNO 0x01f3
06bf ; --------------------------------------------------------------------------------------
06bf ; Debug chain
06bf ; --------------------------------------------------------------------------------------
06bf 0000 0001 | | .DBGLEN 0x0000,0x0001
06c1 0223 | # | .DBGLNO 0x0223
06c2 ; --------------------------------------------------------------------------------------
06c2 ; Debug chain
06c2 ; --------------------------------------------------------------------------------------
06c2 0000 0001 | | .DBGLEN 0x0000,0x0001
06c4 0253 | S | .DBGLNO 0x0253
06c5 ; --------------------------------------------------------------------------------------
06c5 ; Debug chain
06c5 ; --------------------------------------------------------------------------------------
06c5 0000 0001 | | .DBGLEN 0x0000,0x0001
06c7 0283 | | .DBGLNO 0x0283
06c8 ; --------------------------------------------------------------------------------------
06c8 ; Debug chain
06c8 ; --------------------------------------------------------------------------------------
06c8 0000 0001 | | .DBGLEN 0x0000,0x0001
06ca 02b3 | | .DBGLNO 0x02b3
06cb ; --------------------------------------------------------------------------------------
06cb ; Debug chain
06cb ; --------------------------------------------------------------------------------------
06cb 0000 0001 | | .DBGLEN 0x0000,0x0001
06cd 02e3 | | .DBGLNO 0x02e3
06ce ; --------------------------------------------------------------------------------------
06ce ; Debug chain
06ce ; --------------------------------------------------------------------------------------
06ce 0000 0001 | | .DBGLEN 0x0000,0x0001
06d0 0313 | | .DBGLNO 0x0313
06d1 ; --------------------------------------------------------------------------------------
06d1 ; Debug chain
06d1 ; --------------------------------------------------------------------------------------
06d1 0000 0001 | | .DBGLEN 0x0000,0x0001
06d3 0343 | C | .DBGLNO 0x0343
06d4 ; --------------------------------------------------------------------------------------
06d4 ; Debug chain
06d4 ; --------------------------------------------------------------------------------------
06d4 0000 0001 | | .DBGLEN 0x0000,0x0001
06d6 0373 | s | .DBGLNO 0x0373
06d7 ; --------------------------------------------------------------------------------------
06d7 ; Debug chain
06d7 ; --------------------------------------------------------------------------------------
06d7 0000 0004 | | .DBGLEN 0x0000,0x0004
06d9 039c 03a1 | | .DBGLNO 0x039c,0x03a1,0x03a8,0x03ad
06dd ; --------------------------------------------------------------------------------------
06dd ; Debug chain
06dd ; --------------------------------------------------------------------------------------
06dd 0001 0008 | | .DBGLEN 0x0001,0x0008
06df 03b3 03b5 | | .DBGLNO 0x03b3,0x03b5,0x03b8,0x03be,0x03c3,0x03c5,0x03c8,0x03cd,0x03cf
06e8 ; --------------------------------------------------------------------------------------
06e8 ; Debug chain
06e8 ; --------------------------------------------------------------------------------------
06e8 0002 0007 | | .DBGLEN 0x0002,0x0007
06ea 040b 040e | | .DBGLNO 0x040b,0x040e,0x0411,0x041e,0x0422,0x0426,0x042a,0x042e,0x0432
06f3 0001 0007 | | .XXX[0x7]
06f5 0002 0003 | |
06f7 0004 0005 | |
06f9 0006 | |
06fa ; --------------------------------------------------------------------------------------
06fa ; Debug chain
06fa ; --------------------------------------------------------------------------------------
06fa 0003 0007 | | .DBGLEN 0x0003,0x0007
06fc 043b 043e | ; >| .DBGLNO 0x043b,0x043e,0x0445,0x0449,0x0457,0x045b,0x045f,0x0463,0x0467,0x046b
0706 0001 0007 | | .XXX[0x7]
0708 0002 0003 | |
070a 0004 0005 | |
070c 0006 | |
070d ; --------------------------------------------------------------------------------------
070d ; Debug chain
070d ; --------------------------------------------------------------------------------------
070d 0002 0004 | | .DBGLEN 0x0002,0x0004
070f 0473 0476 | s v| .DBGLNO 0x0473,0x0476,0x0479,0x0481,0x048a,0x048c
0715 0001 0003 | | .XXX[0x4]
0717 0004 0002 | |
0719 ; --------------------------------------------------------------------------------------
0719 ; Debug chain
0719 ; --------------------------------------------------------------------------------------
0719 0001 0004 | | .DBGLEN 0x0001,0x0004
071b 0493 0496 | | .DBGLNO 0x0493,0x0496,0x04a6,0x04aa,0x04ae
0720 0001 0004 | | .XXX[0x4]
0722 0002 0003 | |
0724 ; --------------------------------------------------------------------------------------
0724 ; Debug chain
0724 ; --------------------------------------------------------------------------------------
0724 0000 0006 | | .DBGLEN 0x0000,0x0006
0726 04bb 04c2 | | .DBGLNO 0x04bb,0x04c2,0x04d3,0x04d7,0x04e3,0x04e8
072c 0001 0002 | | .XXX[0x6]
072e 0004 0005 | |
0730 0006 0003 | |
0732 0000 0000 | | .BLANK 0000[0xce]