|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0524d2
└─⟦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 0418 | | .CONST 0x0418 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00f7 | | .CONST 0x00f7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002c | , | .CONST 0x002c ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 00c4 | | Action Make_Default
000e 00e4 | | Load_Encached Positive_Cache
000f 0266 | f | Execute Discrete,Bounds
0010 00db | | Load_Top At_Offset_3
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 4801 |H | Short_Literal 0x1
0013 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0014 4801 |H | Short_Literal 0x1
0015 4814 |H | Short_Literal 0x14
0016 00e4 | | Load_Encached Positive_Cache
0017 03f9 | | Declare_Type Discrete,Constrained,Visible
0018 00d8 | | Load_Top At_Offset_0
0019 0266 | f | Execute Discrete,Bounds
001a 00e2 | | Load_Encached Integer_Cache
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4801 |H | Short_Literal 0x1
001d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001e 00d9 | | Load_Top At_Offset_1
001f 0266 | f | Execute Discrete,Bounds
0020 e002 | | Load 0x0,0x2
0021 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0023 4801 |H | Short_Literal 0x1
0024 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0025 4800 |H | Short_Literal 0x0
0026 4801 |H | Short_Literal 0x1
0027 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0029 03fe | | Declare_Type Discrete,Defined,Visible
002a 00e3 | | Load_Encached Natural_Cache
002b 00d9 | | Load_Top At_Offset_1
002c 00db | | Load_Top At_Offset_3
002d 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
002f 4800 |H | Short_Literal 0x0
0030 4801 |H | Short_Literal 0x1
0031 4801 |H | Short_Literal 0x1
0032 4800 |H | Short_Literal 0x0
0033 4801 |H | Short_Literal 0x1
0034 4801 |H | Short_Literal 0x1
0035 031e | | Declare_Type Variant_Record,Defined,Visible
0036 4800 |H | Short_Literal 0x0
0037 00d9 | | Load_Top At_Offset_1
0038 1c08 | | Execute_Immediate Run_Utility,0x8
0039 4800 |H | Short_Literal 0x0
003a 00d9 | | Load_Top At_Offset_1
003b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
003c 00d8 | | Load_Top At_Offset_0
003d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
003e 0335 | 5 | Declare_Variable Array,Duplicate
003f 00cd | | Action Spare6_Action
0040 00d9 | | Load_Top At_Offset_1
0041 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0042 01d9 | | Execute Vector,Reverse_Bounds
0043 0263 | c | Execute Discrete,Above_Bound
0044 7005 |p | Jump_Nonzero 0x4a
0045 8003 | | Call 0x0,0x3
0046 00d9 | | Load_Top At_Offset_1
0047 e216 | | Load 0x1,0x16
0048 01d6 | | Execute Vector,Field_Write
0049 3ffb |? | Loop_Increasing 0x45
004a 00d9 | | Load_Top At_Offset_1
004b 00d8 | | Load_Top At_Offset_0
004c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
004d 00da | | Load_Top At_Offset_2
004e 01da | | Execute Vector,Bounds
004f 00da | | Load_Top At_Offset_2
0050 01da | | Execute Vector,Bounds
0051 00da | | Load_Top At_Offset_2
0052 027f | | Execute Discrete,Equal
0053 7001 |p | Jump_Nonzero 0x55
0054 08e0 | | Execute_Immediate Raise,0xe0
0055 00cd | | Action Spare6_Action
0056 027f | | Execute Discrete,Equal
0057 7001 |p | Jump_Nonzero 0x59
0058 08e0 | | Execute_Immediate Raise,0xe0
0059 00d2 | | Pop_Control Pop_Count_2
005a 00d9 | | Load_Top At_Offset_1
005b 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
005c 0129 | ) | Execute Any,Make_Visible
005d 00e4 | | Load_Encached Positive_Cache
005e 0266 | f | Execute Discrete,Bounds
005f 00db | | Load_Top At_Offset_3
0060 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0062 4801 |H | Short_Literal 0x1
0063 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0064 4801 |H | Short_Literal 0x1
0065 4800 |H | Short_Literal 0x0
0066 00da | | Load_Top At_Offset_2
0067 035b | [ | Declare_Type Array,Constrained
0068 0337 | 7 | Declare_Variable Array
0069 0129 | ) | Execute Any,Make_Visible
006a 0093 0000 | | push_full_address 0x0
006c 60ab |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00010000}
006d 0273 | s | Execute Discrete,Plus
006e 0129 | ) | Execute Any,Make_Visible
006f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0071 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0073 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0075 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0077 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0079 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
007b 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
007d 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
007f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0081 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0083 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0085 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0087 4800 |H | Short_Literal 0x0
0088 0129 | ) | Execute Any,Make_Visible
0089 c20e | | Store 0x1,0xe
008a 00bf | | Action Accept_Activation
008b e20d | | Load 0x1,0xd
008c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008d 4800 |H | Short_Literal 0x0
008e 4814 |H | Short_Literal 0x14
008f 00e3 | | Load_Encached Natural_Cache
0090 03f8 | | Declare_Type Discrete,Constrained
0091 00d8 | | Load_Top At_Offset_0
0092 00e1 | | Load_Encached Boolean_Cache
0093 e211 | | Load 0x1,0x11
0094 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
0096 4800 |H | Short_Literal 0x0
0097 4801 |H | Short_Literal 0x1
0098 4801 |H | Short_Literal 0x1
0099 4800 |H | Short_Literal 0x0
009a 4801 |H | Short_Literal 0x1
009b 4801 |H | Short_Literal 0x1
009c 031d | | Declare_Type Variant_Record,Defined
009d 4800 |H | Short_Literal 0x0
009e 00d9 | | Load_Top At_Offset_1
009f 1c08 | | Execute_Immediate Run_Utility,0x8
00a0 4800 |H | Short_Literal 0x0
00a1 00d9 | | Load_Top At_Offset_1
00a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a3 00d8 | | Load_Top At_Offset_0
00a4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00a5 0335 | 5 | Declare_Variable Array,Duplicate
00a6 00cd | | Action Spare6_Action
00a7 00d9 | | Load_Top At_Offset_1
00a8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00a9 01d9 | | Execute Vector,Reverse_Bounds
00aa 0263 | c | Execute Discrete,Above_Bound
00ab 7005 |p | Jump_Nonzero 0xb1
00ac 4800 |H | Short_Literal 0x0
00ad 00d9 | | Load_Top At_Offset_1
00ae e229 | ) | Load 0x1,0x29
00af 01d6 | | Execute Vector,Field_Write
00b0 3ffb |? | Loop_Increasing 0xac
00b1 00d9 | | Load_Top At_Offset_1
00b2 00d8 | | Load_Top At_Offset_0
00b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b4 00da | | Load_Top At_Offset_2
00b5 01da | | Execute Vector,Bounds
00b6 00da | | Load_Top At_Offset_2
00b7 01da | | Execute Vector,Bounds
00b8 00da | | Load_Top At_Offset_2
00b9 027f | | Execute Discrete,Equal
00ba 7001 |p | Jump_Nonzero 0xbc
00bb 08e0 | | Execute_Immediate Raise,0xe0
00bc 00cd | | Action Spare6_Action
00bd 027f | | Execute Discrete,Equal
00be 7001 |p | Jump_Nonzero 0xc0
00bf 08e0 | | Execute_Immediate Raise,0xe0
00c0 00d2 | | Pop_Control Pop_Count_2
00c1 00d9 | | Load_Top At_Offset_1
00c2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00c3 e20d | | Load 0x1,0xd
00c4 0266 | f | Execute Discrete,Bounds
00c5 00db | | Load_Top At_Offset_3
00c6 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
00c8 4801 |H | Short_Literal 0x1
00c9 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00ca 4801 |H | Short_Literal 0x1
00cb 48c8 |H | Short_Literal 0xc8
00cc 00da | | Load_Top At_Offset_2
00cd 035b | [ | Declare_Type Array,Constrained
00ce 0337 | 7 | Declare_Variable Array
00cf 00d8 | | Load_Top At_Offset_0
00d0 0335 | 5 | Declare_Variable Array,Duplicate
00d1 00cd | | Action Spare6_Action
00d2 48c8 |H | Short_Literal 0xc8
00d3 4801 |H | Short_Literal 0x1
00d4 e228 | ( | Load 0x1,0x28
00d5 00d9 | | Load_Top At_Offset_1
00d6 e22b | + | Load 0x1,0x2b
00d7 01d6 | | Execute Vector,Field_Write
00d8 3ffb |? | Loop_Increasing 0xd4
00d9 00d9 | | Load_Top At_Offset_1
00da 01d4 | | Execute Vector,Structure_Write
00db 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
00dd 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00de 00c7 | | Action Elaborate_Subprogram
00df 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
00e1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00f6 00c7 | | Action Elaborate_Subprogram
00f7 BODY_0008:
00f7 00bc | | Action Signal_Activated
00f8 00bb | | Action Signal_Completion
00f9 0000 0000 | | .BLANK 0000[0x7]
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 00d1 | | Pop_Control Pop_Count_1
0104 00da | | Load_Top At_Offset_2
0105 01d8 | | Execute Vector,Element_Type
0106 02ff | | Declare_Variable Variant_Record
0107 00d8 | | Load_Top At_Offset_0
0108 1c00 | | Execute_Immediate Run_Utility,0x0
0109 00db | | Load_Top At_Offset_3
010a 01dc | | Execute Vector,Last
010b e5ff | | Load 0x2,-0x1
010c 01dd | | Execute Vector,First
010d 0263 | c | Execute Discrete,Above_Bound
010e 7006 |p | Jump_Nonzero 0x115
010f 00da | | Load_Top At_Offset_2
0110 00d9 | | Load_Top At_Offset_1
0111 e5ff | | Load 0x2,-0x1
0112 01d6 | | Execute Vector,Field_Write
0113 0a01 | | Execute_Immediate Plus,0x1
0114 7ff8 | | Jump 0x10d
0115 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0116 0000 0000 | | .XXX[0x2]
0118 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7807 |x | Jump 0x12d ; case 0x1
0126 780a |x | Jump 0x131 ; case 0x2
0127 780e |x | Jump 0x136 ; case 0x3
0128 7811 |x | Jump 0x13a ; case 0x4
0129 7812 |x | Jump 0x13c ; case 0x5
012a 7813 |x | Jump 0x13e ; case 0x6
012b 7816 |x | Jump 0x142 ; case 0x7
012c 4302 |C | .XXX[0x1]
012d 00da | | Load_Top At_Offset_2
012e 0091 03f8 | | Action Push_String_Extended_Indexed,0x3f8 ; "FIND"
0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0131 00db | | Load_Top At_Offset_3
0132 00db | | Load_Top At_Offset_3
0133 00e0 | | Load_Encached Standard_Cache
0134 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0136 00da | | Load_Top At_Offset_2
0137 00e0 | | Load_Encached Standard_Cache
0138 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0139 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
013a 00db | | Load_Top At_Offset_3
013b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013c 00db | | Load_Top At_Offset_3
013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013e e213 | | Load 0x1,0x13
013f 00dc | | Load_Top At_Offset_4
0140 0267 | g | Execute Discrete,Predecessor
0141 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0142 e213 | | Load 0x1,0x13
0143 00dc | | Load_Top At_Offset_4
0144 0268 | h | Execute Discrete,Successor
0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00d1 | | Pop_Control Pop_Count_1
014c 00da | | Load_Top At_Offset_2
014d 01d8 | | Execute Vector,Element_Type
014e 02ff | | Declare_Variable Variant_Record
014f 00d8 | | Load_Top At_Offset_0
0150 1c00 | | Execute_Immediate Run_Utility,0x0
0151 00db | | Load_Top At_Offset_3
0152 01dc | | Execute Vector,Last
0153 e5ff | | Load 0x2,-0x1
0154 01dd | | Execute Vector,First
0155 0263 | c | Execute Discrete,Above_Bound
0156 7006 |p | Jump_Nonzero 0x15d
0157 00da | | Load_Top At_Offset_2
0158 00d9 | | Load_Top At_Offset_1
0159 e5ff | | Load 0x2,-0x1
015a 01d6 | | Execute Vector,Field_Write
015b 0a01 | | Execute_Immediate Plus,0x1
015c 7ff8 | | Jump 0x155
015d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
0164 e22a | * | Load 0x1,0x2a
0165 01d5 | | Execute Vector,Field_Reference
0166 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0167 0335 | 5 | Declare_Variable Array,Duplicate
0168 00cd | | Action Spare6_Action
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3
0174 00db | | Load_Top At_Offset_3
0175 e22a | * | Load 0x1,0x2a
0176 01d5 | | Execute Vector,Field_Reference
0177 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0178 01d7 | | Execute Vector,Field_Read
0179 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4801 |H | Short_Literal 0x1
0184 4800 |H | Short_Literal 0x0
0185 e20f | | Load 0x1,0xf
0186 035b | [ | Declare_Type Array,Constrained
0187 0337 | 7 | Declare_Variable Array
0188 e20f | | Load 0x1,0xf
0189 01c6 | | Execute Vector,Convert_To_Formal
018a 00ca | | Action Exit_Nullary_Function
018b 0000 0000 | | .BLANK 0000[0x5]
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 00cf | | Action Mark_Auxiliary
0194 e225 | % | Load 0x1,0x25
0195 4801 |H | Short_Literal 0x1
0196 0263 | c | Execute Discrete,Above_Bound
0197 7010 |p | Jump_Nonzero 0x1a8
0198 00d8 | | Load_Top At_Offset_0
0199 e22a | * | Load 0x1,0x2a
019a 01d5 | | Execute Vector,Field_Reference
019b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
019c 6809 |h | Jump_Zero 0x1a6
019d e5ff | | Load 0x2,-0x1
019e 00d9 | | Load_Top At_Offset_1
019f e22a | * | Load 0x1,0x2a
01a0 01d5 | | Execute Vector,Field_Reference
01a1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01a2 822c | , | Call 0x1,0x2c
01a3 6802 |h | Jump_Zero 0x1a6
01a4 00d8 | | Load_Top At_Offset_0
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 00c8 | | Action Pop_Auxiliary_Range
01a7 3ff0 |? | Loop_Increasing 0x198
01a8 00ce | | Action Pop_Auxiliary
01a9 4800 |H | Short_Literal 0x0
01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
01b5 BODY_01b0:
01b5 4801 |H | Short_Literal 0x1
01b6 8402 | | Call 0x2,0x2
01b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c2 | | .CONST 0x01c2 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 01da | | Execute Vector,Bounds
01bd e20f | | Load 0x1,0xf
01be 035b | [ | Declare_Type Array,Constrained
01bf 0337 | 7 | Declare_Variable Array
01c0 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
01c2 BODY_01b8:
01c2 e5ff | | Load 0x2,-0x1
01c3 01db | | Execute Vector,Length
01c4 680d |h | Jump_Zero 0x1d2
01c5 e5ff | | Load 0x2,-0x1
01c6 01dd | | Execute Vector,First
01c7 00d8 | | Load_Top At_Offset_0
01c8 00e4 | | Load_Encached Positive_Cache
01c9 0260 | ` | Execute Discrete,In_Type
01ca 7001 |p | Jump_Nonzero 0x1cc
01cb 0801 | | Execute_Immediate Raise,0x1
01cc 8403 | | Call 0x2,0x3
01cd 6804 |h | Jump_Zero 0x1d2
01ce 00d9 | | Load_Top At_Offset_1
01cf e20f | | Load 0x1,0xf
01d0 01c6 | | Execute Vector,Convert_To_Formal
01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d2 821b | | Call 0x1,0x1b
01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00cf | | Action Mark_Auxiliary
01dc e22a | * | Load 0x1,0x2a
01dd 01d9 | | Execute Vector,Reverse_Bounds
01de 0007 | | Action Break_Optional
01df 00d8 | | Load_Top At_Offset_0
01e0 e22a | * | Load 0x1,0x2a
01e1 01d5 | | Execute Vector,Field_Reference
01e2 e228 | ( | Load 0x1,0x28
01e3 016f | o | Execute Variant_Record,Equal
01e4 680c |h | Jump_Zero 0x1f1
01e5 e5ff | | Load 0x2,-0x1
01e6 822b | + | Call 0x1,0x2b
01e7 00d9 | | Load_Top At_Offset_1
01e8 e22a | * | Load 0x1,0x2a
01e9 01d6 | | Execute Vector,Field_Write
01ea 00d8 | | Load_Top At_Offset_0
01eb e225 | % | Load 0x1,0x25
01ec 027d | } | Execute Discrete,Greater
01ed 6802 |h | Jump_Zero 0x1f0
01ee 00d8 | | Load_Top At_Offset_0
01ef a225 | % | Store_Unchecked 0x1,0x25
01f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f1 00c8 | | Action Pop_Auxiliary_Range
01f2 3fec |? | Loop_Increasing 0x1df
01f3 00ce | | Action Pop_Auxiliary
01f4 e218 | | Load 0x1,0x18
01f5 0257 | W | Execute Discrete,Raise
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e228 | ( | Load 0x1,0x28
01fc 00db | | Load_Top At_Offset_3
01fd e22a | * | Load 0x1,0x2a
01fe 01d6 | | Execute Vector,Field_Write
01ff e225 | % | Load 0x1,0x25
0200 00db | | Load_Top At_Offset_3
0201 027f | | Execute Discrete,Equal
0202 6815 |h | Jump_Zero 0x218
0203 e225 | % | Load 0x1,0x25
0204 0aff | | Execute_Immediate Plus,-0x1
0205 c225 | % | Store 0x1,0x25
0206 00cf | | Action Mark_Auxiliary
0207 4801 |H | Short_Literal 0x1
0208 e225 | % | Load 0x1,0x25
0209 0264 | d | Execute Discrete,Below_Bound
020a 700c |p | Jump_Nonzero 0x217
020b 00d8 | | Load_Top At_Offset_0
020c e22a | * | Load 0x1,0x2a
020d 01d5 | | Execute Vector,Field_Reference
020e e228 | ( | Load 0x1,0x28
020f 016e | n | Execute Variant_Record,Not_Equal
0210 6802 |h | Jump_Zero 0x213
0211 00d2 | | Pop_Control Pop_Count_2
0212 7804 |x | Jump 0x217
0213 00d8 | | Load_Top At_Offset_0
0214 a225 | % | Store_Unchecked 0x1,0x25
0215 00c8 | | Action Pop_Auxiliary_Range
0216 37f4 |7 | Loop_Decreasing 0x20b
0217 00ce | | Action Pop_Auxiliary
0218 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0219 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
0224 822b | + | Call 0x1,0x2b
0225 00db | | Load_Top At_Offset_3
0226 e22a | * | Load 0x1,0x2a
0227 01d6 | | Execute Vector,Field_Write
0228 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e5fd | | Load 0x2,-0x3
0234 e5fe | | Load 0x2,-0x2
0235 e5ff | | Load 0x2,-0x1
0236 e22a | * | Load 0x1,0x2a
0237 01d5 | | Execute Vector,Field_Reference
0238 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0239 01d6 | | Execute Vector,Field_Write
023a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0249 | I | .CONST 0x0249 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 00e1 | | Load_Encached Boolean_Cache
0244 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0245 00db | | Load_Top At_Offset_3
0246 e22a | * | Load 0x1,0x2a
0247 01d5 | | Execute Vector,Field_Reference
0248 0007 | | Action Break_Optional
0249 BODY_0240:
0249 00d8 | | Load_Top At_Offset_0
024a e228 | ( | Load 0x1,0x28
024b 016e | n | Execute Variant_Record,Not_Equal
024c 6835 |h5 | Jump_Zero 0x282
024d 0092 03fa | | Action Push_String_Extended,0x3fa ; "Class => "
024f 4801 |H | Short_Literal 0x1
0250 00da | | Load_Top At_Offset_2
0251 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0252 01d7 | | Execute Vector,Field_Read
0253 8004 | | Call 0x0,0x4
0254 01cc | | Execute Vector,Catenate
0255 0092 03fb | | Action Push_String_Extended,0x3fb ; ", "
0257 01cc | | Execute Vector,Catenate
0258 e005 | | Load 0x0,0x5
0259 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
025a 00cf | | Action Mark_Auxiliary
025b 00d9 | | Load_Top At_Offset_1
025c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
025d 01dc | | Execute Vector,Last
025e 4802 |H | Short_Literal 0x2
025f 0263 | c | Execute Discrete,Above_Bound
0260 701d |p | Jump_Nonzero 0x27e
0261 e402 | | Load 0x2,0x2
0262 7005 |p | Jump_Nonzero 0x268
0263 0092 03fb | | Action Push_String_Extended,0x3fb ; ", "
0265 e005 | | Load 0x0,0x5
0266 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0267 7802 |x | Jump 0x26a
0268 4800 |H | Short_Literal 0x0
0269 a402 | | Store_Unchecked 0x2,0x2
026a 0092 03fc | | Action Push_String_Extended,0x3fc ; "Attribute"
026c 00d9 | | Load_Top At_Offset_1
026d 00e0 | | Load_Encached Standard_Cache
026e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026f 01cc | | Execute Vector,Catenate
0270 0092 03fd | | Action Push_String_Extended,0x3fd ; " => "
0272 01cc | | Execute Vector,Catenate
0273 00d9 | | Load_Top At_Offset_1
0274 e403 | | Load 0x2,0x3
0275 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0276 01d7 | | Execute Vector,Field_Read
0277 00e0 | | Load_Encached Standard_Cache
0278 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0279 01cc | | Execute Vector,Catenate
027a e005 | | Load 0x0,0x5
027b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
027c 00c8 | | Action Pop_Auxiliary_Range
027d 3fe3 |? | Loop_Increasing 0x261
027e 00ce | | Action Pop_Auxiliary
027f 4801 |H | Short_Literal 0x1
0280 e005 | | Load 0x0,0x5
0281 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0282 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 01db | | Execute Vector,Length
028d 680c |h | Jump_Zero 0x29a
028e 00cf | | Action Mark_Auxiliary
028f 00db | | Load_Top At_Offset_3
0290 01d9 | | Execute Vector,Reverse_Bounds
0291 0263 | c | Execute Discrete,Above_Bound
0292 7006 |p | Jump_Nonzero 0x299
0293 00d8 | | Load_Top At_Offset_0
0294 e5ff | | Load 0x2,-0x1
0295 01d7 | | Execute Vector,Field_Read
0296 8223 | # | Call 0x1,0x23
0297 00c8 | | Action Pop_Auxiliary_Range
0298 3ffa |? | Loop_Increasing 0x293
0299 00ce | | Action Pop_Auxiliary
029a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4609 |F | Jump_Case 0xa
02a4 7809 |x | Jump 0x2ae ; case 0x0
02a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02a6 7817 |x | Jump 0x2be ; case 0x2
02a7 781a |x | Jump 0x2c2 ; case 0x3
02a8 7836 |x6 | Jump 0x2df ; case 0x4
02a9 7835 |x5 | Jump 0x2df ; case 0x5
02aa 7834 |x4 | Jump 0x2df ; case 0x6
02ab 781c |x | Jump 0x2c8 ; case 0x7
02ac 7824 |x$ | Jump 0x2d1 ; case 0x8
02ad 782d |x- | Jump 0x2db ; case 0x9
02ae 00da | | Load_Top At_Offset_2
02af 016c | l | Execute Variant_Record,Is_Constrained
02b0 7009 |p | Jump_Nonzero 0x2ba
02b1 00cf | | Action Mark_Auxiliary
02b2 4800 |H | Short_Literal 0x0
02b3 e5ff | | Load 0x2,-0x1
02b4 1c08 | | Execute_Immediate Run_Utility,0x8
02b5 00d8 | | Load_Top At_Offset_0
02b6 1c00 | | Execute_Immediate Run_Utility,0x0
02b7 c5ff | | Store 0x2,-0x1
02b8 00ce | | Action Pop_Auxiliary
02b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02ba 4800 |H | Short_Literal 0x0
02bb 00db | | Load_Top At_Offset_3
02bc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02be 4801 |H | Short_Literal 0x1
02bf 4803 |H | Short_Literal 0x3
02c0 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
02c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02c2 e5fd | | Load 0x2,-0x3
02c3 00db | | Load_Top At_Offset_3
02c4 1c07 | | Execute_Immediate Run_Utility,0x7
02c5 e5fe | | Load 0x2,-0x2
02c6 0306 | | Complete_Type Variant_Record,By_Renaming
02c7 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
02c8 00db | | Load_Top At_Offset_3
02c9 4801 |H | Short_Literal 0x1
02ca e5fe | | Load 0x2,-0x2
02cb e211 | | Load 0x1,0x11
02cc 035b | [ | Declare_Type Array,Constrained
02cd 4801 |H | Short_Literal 0x1
02ce e5ff | | Load 0x2,-0x1
02cf 031b | | Declare_Type Variant_Record,Constrained
02d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02d1 00db | | Load_Top At_Offset_3
02d2 00db | | Load_Top At_Offset_3
02d3 02fc | | Declare_Variable Variant_Record,With_Constraint
02d4 4801 |H | Short_Literal 0x1
02d5 e5fe | | Load 0x2,-0x2
02d6 e211 | | Load 0x1,0x11
02d7 0334 | 4 | Declare_Variable Array,With_Constraint
02d8 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
02d9 016a | j | QQ_execute Variant_Record,XXX
02da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02db 4800 |H | Short_Literal 0x0
02dc 00db | | Load_Top At_Offset_3
02dd 1c07 | | Execute_Immediate Run_Utility,0x7
02de 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02df 0869 | i | Execute_Immediate Raise,0x69
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 00d1 | | Pop_Control Pop_Count_1
02e4 00da | | Load_Top At_Offset_2
02e5 01d8 | | Execute Vector,Element_Type
02e6 02ff | | Declare_Variable Variant_Record
02e7 00d8 | | Load_Top At_Offset_0
02e8 1c00 | | Execute_Immediate Run_Utility,0x0
02e9 00db | | Load_Top At_Offset_3
02ea 01dc | | Execute Vector,Last
02eb e5ff | | Load 0x2,-0x1
02ec 01dd | | Execute Vector,First
02ed 0263 | c | Execute Discrete,Above_Bound
02ee 7006 |p | Jump_Nonzero 0x2f5
02ef 00da | | Load_Top At_Offset_2
02f0 00d9 | | Load_Top At_Offset_1
02f1 e5ff | | Load 0x2,-0x1
02f2 01d6 | | Execute Vector,Field_Write
02f3 0a01 | | Execute_Immediate Plus,0x1
02f4 7ff8 | | Jump 0x2ed
02f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 01db | | Execute Vector,Length
02fd e227 | ' | Load 0x1,0x27
02fe 1c08 | | Execute_Immediate Run_Utility,0x8
02ff 4801 |H | Short_Literal 0x1
0300 00d9 | | Load_Top At_Offset_1
0301 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0302 00db | | Load_Top At_Offset_3
0303 00d9 | | Load_Top At_Offset_1
0304 00d8 | | Load_Top At_Offset_0
0305 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0306 00da | | Load_Top At_Offset_2
0307 01da | | Execute Vector,Bounds
0308 00da | | Load_Top At_Offset_2
0309 01da | | Execute Vector,Bounds
030a 00da | | Load_Top At_Offset_2
030b 027f | | Execute Discrete,Equal
030c 7001 |p | Jump_Nonzero 0x30e
030d 08e0 | | Execute_Immediate Raise,0xe0
030e 00cd | | Action Spare6_Action
030f 027f | | Execute Discrete,Equal
0310 7001 |p | Jump_Nonzero 0x312
0311 08e0 | | Execute_Immediate Raise,0xe0
0312 00d2 | | Pop_Control Pop_Count_2
0313 00d9 | | Load_Top At_Offset_1
0314 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0315 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0316 0000 0000 | | .XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00cf | | Action Mark_Auxiliary
031c 00db | | Load_Top At_Offset_3
031d 01d9 | | Execute Vector,Reverse_Bounds
031e 0263 | c | Execute Discrete,Above_Bound
031f 700c |p | Jump_Nonzero 0x32c
0320 00d8 | | Load_Top At_Offset_0
0321 e5fe | | Load 0x2,-0x2
0322 01d5 | | Execute Vector,Field_Reference
0323 00d9 | | Load_Top At_Offset_1
0324 e5ff | | Load 0x2,-0x1
0325 01d7 | | Execute Vector,Field_Read
0326 8006 | | Call 0x0,0x6
0327 7002 |p | Jump_Nonzero 0x32a
0328 4800 |H | Short_Literal 0x0
0329 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032a 00c8 | | Action Pop_Auxiliary_Range
032b 3ff4 |? | Loop_Increasing 0x320
032c 00ce | | Action Pop_Auxiliary
032d 4801 |H | Short_Literal 0x1
032e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032f 0000 | | .XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00cf | | Action Mark_Auxiliary
0334 e225 | % | Load 0x1,0x25
0335 e7ff | | Load 0x3,-0x1
0336 0263 | c | Execute Discrete,Above_Bound
0337 7019 |p | Jump_Nonzero 0x351
0338 00d8 | | Load_Top At_Offset_0
0339 e22a | * | Load 0x1,0x2a
033a 01d5 | | Execute Vector,Field_Reference
033b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
033c 6812 |h | Jump_Zero 0x34f
033d e5ff | | Load 0x2,-0x1
033e 00d9 | | Load_Top At_Offset_1
033f e22a | * | Load 0x1,0x2a
0340 01d5 | | Execute Vector,Field_Reference
0341 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0342 822c | , | Call 0x1,0x2c
0343 680b |h | Jump_Zero 0x34f
0344 00d8 | | Load_Top At_Offset_0
0345 00d9 | | Load_Top At_Offset_1
0346 0a01 | | Execute_Immediate Plus,0x1
0347 00d8 | | Load_Top At_Offset_0
0348 e20d | | Load 0x1,0xd
0349 0260 | ` | Execute Discrete,In_Type
034a 7001 |p | Jump_Nonzero 0x34c
034b 0801 | | Execute_Immediate Raise,0x1
034c 8402 | | Call 0x2,0x2
034d 01ca | | Execute Vector,Prepend
034e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034f 00c8 | | Action Pop_Auxiliary_Range
0350 3fe7 |? | Loop_Increasing 0x338
0351 00ce | | Action Pop_Auxiliary
0352 821b | | Call 0x1,0x1b
0353 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c e5ff | | Load 0x2,-0x1
035d 01dc | | Execute Vector,Last
035e 027d | } | Execute Discrete,Greater
035f 6802 |h | Jump_Zero 0x362
0360 4801 |H | Short_Literal 0x1
0361 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0362 00da | | Load_Top At_Offset_2
0363 e5ff | | Load 0x2,-0x1
0364 01d5 | | Execute Vector,Field_Reference
0365 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0366 6828 |h( | Jump_Zero 0x38f
0367 00cf | | Action Mark_Auxiliary
0368 e225 | % | Load 0x1,0x25
0369 4801 |H | Short_Literal 0x1
036a 0263 | c | Execute Discrete,Above_Bound
036b 7013 |p | Jump_Nonzero 0x37f
036c 00d8 | | Load_Top At_Offset_0
036d e22a | * | Load 0x1,0x2a
036e 01d5 | | Execute Vector,Field_Reference
036f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0370 680c |h | Jump_Zero 0x37d
0371 e7ff | | Load 0x3,-0x1
0372 e5ff | | Load 0x2,-0x1
0373 01d5 | | Execute Vector,Field_Reference
0374 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0375 00d9 | | Load_Top At_Offset_1
0376 e22a | * | Load 0x1,0x2a
0377 01d5 | | Execute Vector,Field_Reference
0378 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0379 822c | , | Call 0x1,0x2c
037a 6802 |h | Jump_Zero 0x37d
037b 4800 |H | Short_Literal 0x0
037c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037d 00c8 | | Action Pop_Auxiliary_Range
037e 3fed |? | Loop_Increasing 0x36c
037f 00ce | | Action Pop_Auxiliary
0380 00da | | Load_Top At_Offset_2
0381 0a01 | | Execute_Immediate Plus,0x1
0382 00d8 | | Load_Top At_Offset_0
0383 00e4 | | Load_Encached Positive_Cache
0384 0260 | ` | Execute Discrete,In_Type
0385 7001 |p | Jump_Nonzero 0x387
0386 0801 | | Execute_Immediate Raise,0x1
0387 8403 | | Call 0x2,0x3
0388 682c |h, | Jump_Zero 0x3b5
0389 4800 |H | Short_Literal 0x0
038a 00db | | Load_Top At_Offset_3
038b e402 | | Load 0x2,0x2
038c 01d6 | | Execute Vector,Field_Write
038d 4801 |H | Short_Literal 0x1
038e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038f 00cf | | Action Mark_Auxiliary
0390 e225 | % | Load 0x1,0x25
0391 4801 |H | Short_Literal 0x1
0392 0263 | c | Execute Discrete,Above_Bound
0393 7020 |p | Jump_Nonzero 0x3b4
0394 00d8 | | Load_Top At_Offset_0
0395 e22a | * | Load 0x1,0x2a
0396 01d5 | | Execute Vector,Field_Reference
0397 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0398 6819 |h | Jump_Zero 0x3b2
0399 e7ff | | Load 0x3,-0x1
039a e5ff | | Load 0x2,-0x1
039b 01d5 | | Execute Vector,Field_Reference
039c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
039d 00d9 | | Load_Top At_Offset_1
039e e22a | * | Load 0x1,0x2a
039f 01d5 | | Execute Vector,Field_Reference
03a0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03a1 822c | , | Call 0x1,0x2c
03a2 680f |h | Jump_Zero 0x3b2
03a3 e7ff | | Load 0x3,-0x1
03a4 0a01 | | Execute_Immediate Plus,0x1
03a5 00d8 | | Load_Top At_Offset_0
03a6 00e4 | | Load_Encached Positive_Cache
03a7 0260 | ` | Execute Discrete,In_Type
03a8 7001 |p | Jump_Nonzero 0x3aa
03a9 0801 | | Execute_Immediate Raise,0x1
03aa 8403 | | Call 0x2,0x3
03ab 6806 |h | Jump_Zero 0x3b2
03ac 00d8 | | Load_Top At_Offset_0
03ad e7ff | | Load 0x3,-0x1
03ae e402 | | Load 0x2,0x2
03af 01d6 | | Execute Vector,Field_Write
03b0 4801 |H | Short_Literal 0x1
03b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b2 00c8 | | Action Pop_Auxiliary_Range
03b3 3fe0 |? | Loop_Increasing 0x394
03b4 00ce | | Action Pop_Auxiliary
03b5 4800 |H | Short_Literal 0x0
03b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b7 0000 | | .XXX[0x1]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 4609 |F | Jump_Case 0xa
03bc 7809 |x | Jump 0x3c6 ; case 0x0
03bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03be 7817 |x | Jump 0x3d6 ; case 0x2
03bf 781a |x | Jump 0x3da ; case 0x3
03c0 7836 |x6 | Jump 0x3f7 ; case 0x4
03c1 7835 |x5 | Jump 0x3f7 ; case 0x5
03c2 7834 |x4 | Jump 0x3f7 ; case 0x6
03c3 781c |x | Jump 0x3e0 ; case 0x7
03c4 7824 |x$ | Jump 0x3e9 ; case 0x8
03c5 782d |x- | Jump 0x3f3 ; case 0x9
03c6 00da | | Load_Top At_Offset_2
03c7 016c | l | Execute Variant_Record,Is_Constrained
03c8 7009 |p | Jump_Nonzero 0x3d2
03c9 00cf | | Action Mark_Auxiliary
03ca 4800 |H | Short_Literal 0x0
03cb e5ff | | Load 0x2,-0x1
03cc 1c08 | | Execute_Immediate Run_Utility,0x8
03cd 00d8 | | Load_Top At_Offset_0
03ce 1c00 | | Execute_Immediate Run_Utility,0x0
03cf c5ff | | Store 0x2,-0x1
03d0 00ce | | Action Pop_Auxiliary
03d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d2 00da | | Load_Top At_Offset_2
03d3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03d4 1c00 | | Execute_Immediate Run_Utility,0x0
03d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d6 4801 |H | Short_Literal 0x1
03d7 4803 |H | Short_Literal 0x3
03d8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
03d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03da e5fd | | Load 0x2,-0x3
03db 00db | | Load_Top At_Offset_3
03dc 1c07 | | Execute_Immediate Run_Utility,0x7
03dd e5fe | | Load 0x2,-0x2
03de 0306 | | Complete_Type Variant_Record,By_Renaming
03df 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
03e0 00db | | Load_Top At_Offset_3
03e1 4801 |H | Short_Literal 0x1
03e2 e5fe | | Load 0x2,-0x2
03e3 e212 | | Load 0x1,0x12
03e4 035b | [ | Declare_Type Array,Constrained
03e5 4801 |H | Short_Literal 0x1
03e6 e5ff | | Load 0x2,-0x1
03e7 031b | | Declare_Type Variant_Record,Constrained
03e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e9 00db | | Load_Top At_Offset_3
03ea 00db | | Load_Top At_Offset_3
03eb 02fc | | Declare_Variable Variant_Record,With_Constraint
03ec 4801 |H | Short_Literal 0x1
03ed e5fe | | Load 0x2,-0x2
03ee e212 | | Load 0x1,0x12
03ef 0334 | 4 | Declare_Variable Array,With_Constraint
03f0 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
03f1 016a | j | QQ_execute Variant_Record,XXX
03f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03f3 4800 |H | Short_Literal 0x0
03f4 00db | | Load_Top At_Offset_3
03f5 1c07 | | Execute_Immediate Run_Utility,0x7
03f6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03f7 0869 | i | Execute_Immediate Raise,0x69
03f8 ; --------------------------------------------------------------------------------------
03f8 ; STRING TABLE
03f8 ; --------------------------------------------------------------------------------------
03f8 000e | | .STRTAB 0x000e->0x03ff ; "FIND"
03f9 0010 | | .STRTAB 0x0010->0x0401 ; "CHECK_NO"
03fa 0016 | | .STRTAB 0x0016->0x0405 ; "Class => "
03fb 001d | | .STRTAB 0x001d->0x0409 ; ", "
03fc 001d | | .STRTAB 0x001d->0x040a ; "Attribute"
03fd 0024 | $ | .STRTAB 0x0024->0x040f ; " => "
03fe 0026 | & | .STREND 0x0026->0x0411
03ff 4649 4e44 |FIND| .STRTAB_STRINGS
0411 0000 0000 | | .BLANK 0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug Table
0418 ; --------------------------------------------------------------------------------------
0418 0004 0004 | | .DEBUG4 0x0004,0x0004,0x55ff,0x0000,0x0001,0x0018
041e 000b 047e | ~| .DBG4T 0x000b,0x047e,0x8000,0x8000
0422 008b 04b2 | | .DBG4T 0x008b,0x04b2,0x8000,0x8000
0426 0103 0000 | | .DBG4T 0x0103,0x0000,0x0005,0x0000
042a 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000
042e 014b 0000 | K | .DBG4T 0x014b,0x0000,0x0005,0x0000
0432 0163 04dc | c | .DBG4T 0x0163,0x04dc,0x0002,0x0000
0436 0173 04df | s | .DBG4T 0x0173,0x04df,0x0002,0x0000
043a 0183 04e2 | | .DBG4T 0x0183,0x04e2,0x0002,0x0000
043e 0193 04e5 | | .DBG4T 0x0193,0x04e5,0x0002,0x0000
0442 01b3 04ec | | .DBG4T 0x01b3,0x04ec,0x0002,0x8000
0446 01bb 04f1 | | .DBG4T 0x01bb,0x04f1,0x0002,0x8000
044a 01db 04fa | | .DBG4T 0x01db,0x04fa,0x0001,0x0000
044e 01fb 0503 | | .DBG4T 0x01fb,0x0503,0x0001,0x0000
0452 0223 050b | # | .DBG4T 0x0223,0x050b,0x0001,0x0000
0456 0233 050e | 3 | .DBG4T 0x0233,0x050e,0x0001,0x0000
045a 0243 0511 | C | .DBG4T 0x0243,0x0511,0x0001,0x0000
045e 028b 051d | | .DBG4T 0x028b,0x051d,0x0001,0x0000
0462 02a3 0000 | | .DBG4T 0x02a3,0x0000,0x0005,0x0000
0466 02e3 0000 | | .DBG4T 0x02e3,0x0000,0x0005,0x0000
046a 02fb 0522 | "| .DBG4T 0x02fb,0x0522,0x0002,0x0000
046e 031b 0525 | %| .DBG4T 0x031b,0x0525,0x0002,0x0000
0472 0333 052b | 3 +| .DBG4T 0x0333,0x052b,0x0002,0x0000
0476 035b 0531 | [ 1| .DBG4T 0x035b,0x0531,0x0002,0x4000
047a 03bb 0000 | | .DBG4T 0x03bb,0x0000,0x0005,0x0000
047e ; --------------------------------------------------------------------------------------
047e ; Debug chain
047e ; --------------------------------------------------------------------------------------
047e 0019 0000 | | .DBGLEN 0x0019,0x0000
0480 000b 000d | | .DBGLNO 0x000b,0x000d,0x000e,0x0014,0x0018,0x001e,0x0025,0x002a,0x0036,0x005d,0x0064,0x006a,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087
0499 0002 0003 | | .XXX[0x19]
049b 0004 0005 | |
049d 0006 0007 | |
049f 0008 0009 | |
04a1 000a 000b | |
04a3 000c 000d | |
04a5 000e 000f | |
04a7 0010 0011 | |
04a9 0012 0013 | |
04ab 0014 0015 | |
04ad 0016 0017 | |
04af 0018 0019 | |
04b1 001b | |
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug chain
04b2 ; --------------------------------------------------------------------------------------
04b2 0014 0000 | | .DBGLEN 0x0014,0x0000
04b4 008b 008d | | .DBGLNO 0x008b,0x008d,0x0091,0x009d,0x00c3,0x00ca,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5
04c8 0002 0003 | | .XXX[0x14]
04ca 0004 0005 | |
04cc 0006 0007 | |
04ce 0008 0009 | |
04d0 000a 000b | |
04d2 000c 000d | |
04d4 000e 000f | |
04d6 0010 0011 | |
04d8 0012 0013 | |
04da 0014 0015 | |
04dc ; --------------------------------------------------------------------------------------
04dc ; Debug chain
04dc ; --------------------------------------------------------------------------------------
04dc 0000 0001 | | .DBGLEN 0x0000,0x0001
04de 0163 | c | .DBGLNO 0x0163
04df ; --------------------------------------------------------------------------------------
04df ; Debug chain
04df ; --------------------------------------------------------------------------------------
04df 0000 0001 | | .DBGLEN 0x0000,0x0001
04e1 0173 | s | .DBGLNO 0x0173
04e2 ; --------------------------------------------------------------------------------------
04e2 ; Debug chain
04e2 ; --------------------------------------------------------------------------------------
04e2 0000 0001 | | .DBGLEN 0x0000,0x0001
04e4 0183 | | .DBGLNO 0x0183
04e5 ; --------------------------------------------------------------------------------------
04e5 ; Debug chain
04e5 ; --------------------------------------------------------------------------------------
04e5 0001 0004 | | .DBGLEN 0x0001,0x0004
04e7 0193 0194 | | .DBGLNO 0x0193,0x0194,0x0198,0x01a4,0x01a9
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug chain
04ec ; --------------------------------------------------------------------------------------
04ec 0001 0001 | | .DBGLEN 0x0001,0x0001
04ee 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5
04f0 0002 | | .XXX[0x1]
04f1 ; --------------------------------------------------------------------------------------
04f1 ; Debug chain
04f1 ; --------------------------------------------------------------------------------------
04f1 0002 0003 | | .DBGLEN 0x0002,0x0003
04f3 01bb 01c0 | | .DBGLNO 0x01bb,0x01c0,0x01c2,0x01ce,0x01d2
04f8 0001 0003 | | .XXX[0x2]
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug chain
04fa ; --------------------------------------------------------------------------------------
04fa 0000 0007 | | .DBGLEN 0x0000,0x0007
04fc 01dc 01df | | .DBGLNO 0x01dc,0x01df,0x01e5,0x01ea,0x01ee,0x01f0,0x01f4
0503 ; --------------------------------------------------------------------------------------
0503 ; Debug chain
0503 ; --------------------------------------------------------------------------------------
0503 0000 0006 | | .DBGLEN 0x0000,0x0006
0505 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0203,0x0207,0x020b,0x0213
050b ; --------------------------------------------------------------------------------------
050b ; Debug chain
050b ; --------------------------------------------------------------------------------------
050b 0000 0001 | | .DBGLEN 0x0000,0x0001
050d 0223 | # | .DBGLNO 0x0223
050e ; --------------------------------------------------------------------------------------
050e ; Debug chain
050e ; --------------------------------------------------------------------------------------
050e 0000 0001 | | .DBGLEN 0x0000,0x0001
0510 0233 | 3 | .DBGLNO 0x0233
0511 ; --------------------------------------------------------------------------------------
0511 ; Debug chain
0511 ; --------------------------------------------------------------------------------------
0511 0002 0008 | | .DBGLEN 0x0002,0x0008
0513 0243 0245 | C E| .DBGLNO 0x0243,0x0245,0x0249,0x024d,0x025b,0x0261,0x0263,0x0268,0x026a,0x027f
051d ; --------------------------------------------------------------------------------------
051d ; Debug chain
051d ; --------------------------------------------------------------------------------------
051d 0000 0003 | | .DBGLEN 0x0000,0x0003
051f 028b 028f | | .DBGLNO 0x028b,0x028f,0x0293
0522 ; --------------------------------------------------------------------------------------
0522 ; Debug chain
0522 ; --------------------------------------------------------------------------------------
0522 0000 0001 | | .DBGLEN 0x0000,0x0001
0524 02fb | | .DBGLNO 0x02fb
0525 ; --------------------------------------------------------------------------------------
0525 ; Debug chain
0525 ; --------------------------------------------------------------------------------------
0525 0000 0004 | | .DBGLEN 0x0000,0x0004
0527 031c 0320 | | .DBGLNO 0x031c,0x0320,0x0328,0x032d
052b ; --------------------------------------------------------------------------------------
052b ; Debug chain
052b ; --------------------------------------------------------------------------------------
052b 0000 0004 | | .DBGLEN 0x0000,0x0004
052d 0334 0338 | 4 8| .DBGLNO 0x0334,0x0338,0x0344,0x0352
0531 ; --------------------------------------------------------------------------------------
0531 ; Debug chain
0531 ; --------------------------------------------------------------------------------------
0531 0000 000f | | .DBGLEN 0x0000,0x000f
0533 035b 0360 | [ `| .DBGLNO 0x035b,0x0360,0x0362,0x0368,0x036c,0x037b,0x0380,0x0389,0x038d,0x0390,0x0394,0x03a3,0x03ac,0x03b0,0x03b5
0542 0001 0002 | | .XXX[0xf]
0544 0003 0009 | |
0546 000a 000b | |
0548 000c 000d | |
054a 000e 0004 | |
054c 0005 0006 | |
054e 0007 0008 | |
0550 000f | |
0551 0000 0000 | | .BLANK 0000[0xaf]