|
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: 5120 (0x1400)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0900ea
└─⟦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 06f0 | | .CONST 0x06f0 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0111 | | .CONST 0x0111 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0038 | 8 | .CONST 0x0038 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 00c4 | | Action Make_Default
000d 0007 | | Action Break_Optional
000e 0007 | | Action Break_Optional
000f 00e4 | | Load_Encached Positive_Cache
0010 0266 | f | Execute Discrete,Bounds
0011 e003 | | Load 0x0,0x3
0012 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0014 4801 |H | Short_Literal 0x1
0015 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0016 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0018 0007 | | Action Break_Optional
0019 4800 |H | Short_Literal 0x0
001a e004 | | Load 0x0,0x4
001b 00e3 | | Load_Encached Natural_Cache
001c 03f9 | | Declare_Type Discrete,Constrained,Visible
001d 4801 |H | Short_Literal 0x1
001e e004 | | Load 0x0,0x4
001f 00da | | Load_Top At_Offset_2
0020 03f9 | | Declare_Type Discrete,Constrained,Visible
0021 00d8 | | Load_Top At_Offset_0
0022 0266 | f | Execute Discrete,Bounds
0023 e005 | | Load 0x0,0x5
0024 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
0026 4801 |H | Short_Literal 0x1
0027 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0028 00d9 | | Load_Top At_Offset_1
0029 0266 | f | Execute Discrete,Bounds
002a e006 | | Load 0x0,0x6
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002e 0007 | | Action Break_Optional
002f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0031 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0033 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0035 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0037 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0039 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
003b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
003d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
003f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0041 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0043 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0045 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0047 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0049 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
004b 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
004d 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
004f 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0051 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0053 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0055 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0057 0093 0000 | | push_full_address 0x0
0059 60de |` | Indirect_Literal Discrete,0x138,{0x80000000, 0x00010000}
005a 0273 | s | Execute Discrete,Plus
005b e007 | | Load 0x0,0x7
005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005d 60d6 |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x0000ffff}
005e 0279 | y | Execute Discrete,And
005f 0273 | s | Execute Discrete,Plus
0060 0129 | ) | Execute Any,Make_Visible
0061 0007 | | Action Break_Optional
0062 00e3 | | Load_Encached Natural_Cache
0063 4800 |H | Short_Literal 0x0
0064 4801 |H | Short_Literal 0x1
0065 4801 |H | Short_Literal 0x1
0066 4805 |H | Short_Literal 0x5
0067 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0068 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
006a 00d9 | | Load_Top At_Offset_1
006b 012a | * | Execute Any,Change_Utility
006c 0007 | | Action Break_Optional
006d 00d8 | | Load_Top At_Offset_0
006e 02a0 | | Declare_Subprogram Null_Subprogram
006f 4818 |H | Short_Literal 0x18
0070 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0071 00d8 | | Load_Top At_Offset_0
0072 0129 | ) | Execute Any,Make_Visible
0073 c20d | | Store 0x1,0xd
0074 00bf | | Action Accept_Activation
0075 e210 | | Load 0x1,0x10
0076 4801 |H | Short_Literal 0x1
0077 e212 | | Load 0x1,0x12
0078 01dc | | Execute Vector,Last
0079 e210 | | Load 0x1,0x10
007a 0269 | i | Execute Discrete,Last
007b 026c | l | Execute Discrete,Minimum
007c e212 | | Load 0x1,0x12
007d 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
007e 029f 048b | | Declare_Subprogram INIT_0488,For_Call
0080 4800 |H | Short_Literal 0x0
0081 4801 |H | Short_Literal 0x1
0082 4800 |H | Short_Literal 0x0
0083 4800 |H | Short_Literal 0x0
0084 4801 |H | Short_Literal 0x1
0085 4801 |H | Short_Literal 0x1
0086 031d | | Declare_Type Variant_Record,Defined
0087 4800 |H | Short_Literal 0x0
0088 00d9 | | Load_Top At_Offset_1
0089 1c08 | | Execute_Immediate Run_Utility,0x8
008a 00d8 | | Load_Top At_Offset_0
008b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
008c 0335 | 5 | Declare_Variable Array,Duplicate
008d 00cd | | Action Spare6_Action
008e 00d9 | | Load_Top At_Offset_1
008f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0090 01d9 | | Execute Vector,Reverse_Bounds
0091 0263 | c | Execute Discrete,Above_Bound
0092 7005 |p | Jump_Nonzero 0x98
0093 e008 | | Load 0x0,0x8
0094 00d9 | | Load_Top At_Offset_1
0095 e22d | - | Load 0x1,0x2d
0096 01d6 | | Execute Vector,Field_Write
0097 3ffb |? | Loop_Increasing 0x93
0098 00d9 | | Load_Top At_Offset_1
0099 00d8 | | Load_Top At_Offset_0
009a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
009b 00da | | Load_Top At_Offset_2
009c 01da | | Execute Vector,Bounds
009d 00da | | Load_Top At_Offset_2
009e 01da | | Execute Vector,Bounds
009f 00da | | Load_Top At_Offset_2
00a0 027f | | Execute Discrete,Equal
00a1 7001 |p | Jump_Nonzero 0xa3
00a2 08e0 | | Execute_Immediate Raise,0xe0
00a3 00cd | | Action Spare6_Action
00a4 027f | | Execute Discrete,Equal
00a5 7001 |p | Jump_Nonzero 0xa7
00a6 08e0 | | Execute_Immediate Raise,0xe0
00a7 00d2 | | Pop_Control Pop_Count_2
00a8 00d9 | | Load_Top At_Offset_1
00a9 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00aa 00e3 | | Load_Encached Natural_Cache
00ab 0266 | f | Execute Discrete,Bounds
00ac 00db | | Load_Top At_Offset_3
00ad 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
00af 4801 |H | Short_Literal 0x1
00b0 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00b1 e210 | | Load 0x1,0x10
00b2 4801 |H | Short_Literal 0x1
00b3 e213 | | Load 0x1,0x13
00b4 01dc | | Execute Vector,Last
00b5 e210 | | Load 0x1,0x10
00b6 0269 | i | Execute Discrete,Last
00b7 026c | l | Execute Discrete,Minimum
00b8 e213 | | Load 0x1,0x13
00b9 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
00ba 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
00bc 4800 |H | Short_Literal 0x0
00bd 4801 |H | Short_Literal 0x1
00be 4800 |H | Short_Literal 0x0
00bf 4800 |H | Short_Literal 0x0
00c0 4801 |H | Short_Literal 0x1
00c1 4801 |H | Short_Literal 0x1
00c2 031d | | Declare_Type Variant_Record,Defined
00c3 e009 | | Load 0x0,0x9
00c4 00e3 | | Load_Encached Natural_Cache
00c5 00da | | Load_Top At_Offset_2
00c6 4801 |H | Short_Literal 0x1
00c7 6068 |`h | Indirect_Literal Discrete,0x130,{0x00000000, 0x7fffffff}
00c8 e22d | - | Load 0x1,0x2d
00c9 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
00ca 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
00cc 4800 |H | Short_Literal 0x0
00cd 4801 |H | Short_Literal 0x1
00ce 4803 |H | Short_Literal 0x3
00cf e229 | ) | Load 0x1,0x29
00d0 0307 | | Complete_Type Variant_Record,By_Defining
00d1 e22a | * | Load 0x1,0x2a
00d2 03c4 | | Complete_Type Access,By_Component_Completion
00d3 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call
00d5 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
00d7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00da 00c7 | | Action Elaborate_Subprogram
00db 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00dc 00c7 | | Action Elaborate_Subprogram
00dd 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
00df 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00e4 00c7 | | Action Elaborate_Subprogram
00e5 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call
00e7 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ec 00c7 | | Action Elaborate_Subprogram
00ed 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
00ef 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
00f1 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call
00f3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0100 00c7 | | Action Elaborate_Subprogram
0101 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0102 00c7 | | Action Elaborate_Subprogram
0103 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0105 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
0107 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
0109 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
010a 00c7 | | Action Elaborate_Subprogram
010b 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
010c 00c7 | | Action Elaborate_Subprogram
010d 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
010e 00c7 | | Action Elaborate_Subprogram
010f 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0110 00c7 | | Action Elaborate_Subprogram
0111 BODY_0008:
0111 00bc | | Action Signal_Activated
0112 00bb | | Action Signal_Completion
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00d1 | | Pop_Control Pop_Count_1
011c 00da | | Load_Top At_Offset_2
011d 01d8 | | Execute Vector,Element_Type
011e 0322 | " | Declare_Variable Record
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 00db | | Load_Top At_Offset_3
0122 01dc | | Execute Vector,Last
0123 e5ff | | Load 0x2,-0x1
0124 01dd | | Execute Vector,First
0125 0263 | c | Execute Discrete,Above_Bound
0126 7006 |p | Jump_Nonzero 0x12d
0127 00da | | Load_Top At_Offset_2
0128 00d9 | | Load_Top At_Offset_1
0129 e5ff | | Load 0x2,-0x1
012a 01d6 | | Execute Vector,Field_Write
012b 0a01 | | Execute_Immediate Plus,0x1
012c 7ff8 | | Jump 0x125
012d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
012e 0000 0000 | | .XXX[0x2]
0130 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0134 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0138 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4801 |H | Short_Literal 0x1
0144 4800 |H | Short_Literal 0x0
0145 e20e | | Load 0x1,0xe
0146 035b | [ | Declare_Type Array,Constrained
0147 0337 | 7 | Declare_Variable Array
0148 e20e | | Load 0x1,0xe
0149 01c6 | | Execute Vector,Convert_To_Formal
014a 00ca | | Action Exit_Nullary_Function
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00d1 | | Pop_Control Pop_Count_1
0154 00da | | Load_Top At_Offset_2
0155 01d8 | | Execute Vector,Element_Type
0156 02ff | | Declare_Variable Variant_Record
0157 00d8 | | Load_Top At_Offset_0
0158 1c00 | | Execute_Immediate Run_Utility,0x0
0159 00db | | Load_Top At_Offset_3
015a 01dc | | Execute Vector,Last
015b e5ff | | Load 0x2,-0x1
015c 01dd | | Execute Vector,First
015d 0263 | c | Execute Discrete,Above_Bound
015e 7006 |p | Jump_Nonzero 0x165
015f 00da | | Load_Top At_Offset_2
0160 00d9 | | Load_Top At_Offset_1
0161 e5ff | | Load 0x2,-0x1
0162 01d6 | | Execute Vector,Field_Write
0163 0a01 | | Execute_Immediate Plus,0x1
0164 7ff8 | | Jump 0x15d
0165 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c e5fe | | Load 0x2,-0x2
016d 822f | / | Call 0x1,0x2f
016e 800a | | Call 0x0,0xa
016f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
0174 800b | | Call 0x0,0xb
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 800c | | Call 0x0,0xc
017d 8230 | 0 | Call 0x1,0x30
017e 00d8 | | Load_Top At_Offset_0
017f e009 | | Load 0x0,0x9
0180 0260 | ` | Execute Discrete,In_Type
0181 7001 |p | Jump_Nonzero 0x183
0182 0801 | | Execute_Immediate Raise,0x1
0183 800d | | Call 0x0,0xd
0184 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 800c | | Call 0x0,0xc
018d 8230 | 0 | Call 0x1,0x30
018e 00d8 | | Load_Top At_Offset_0
018f e009 | | Load 0x0,0x9
0190 0260 | ` | Execute Discrete,In_Type
0191 7001 |p | Jump_Nonzero 0x193
0192 0801 | | Execute_Immediate Raise,0x1
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e22a | * | Load 0x1,0x2a
019d 022e | . | Execute Access,Not_Equal
019e 6809 |h | Jump_Zero 0x1a8
019f 00da | | Load_Top At_Offset_2
01a0 0227 | ' | Execute Access,All_Reference
01a1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01a2 00d8 | | Load_Top At_Offset_0
01a3 e009 | | Load 0x0,0x9
01a4 0260 | ` | Execute Discrete,In_Type
01a5 7001 |p | Jump_Nonzero 0x1a7
01a6 0801 | | Execute_Immediate Raise,0x1
01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a8 e00e | | Load 0x0,0xe
01a9 00d8 | | Load_Top At_Offset_0
01aa e009 | | Load 0x0,0x9
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 0227 | ' | Execute Access,All_Reference
01b5 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00db | | Load_Top At_Offset_3
01bc e229 | ) | Load 0x1,0x29
01bd 1c08 | | Execute_Immediate Run_Utility,0x8
01be 00db | | Load_Top At_Offset_3
01bf 00d9 | | Load_Top At_Offset_1
01c0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c1 4800 |H | Short_Literal 0x0
01c2 00d9 | | Load_Top At_Offset_1
01c3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01c4 00d8 | | Load_Top At_Offset_0
01c5 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01c6 0335 | 5 | Declare_Variable Array,Duplicate
01c7 00cd | | Action Spare6_Action
01c8 00d9 | | Load_Top At_Offset_1
01c9 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01ca 01d9 | | Execute Vector,Reverse_Bounds
01cb 0263 | c | Execute Discrete,Above_Bound
01cc 7005 |p | Jump_Nonzero 0x1d2
01cd e22c | , | Load 0x1,0x2c
01ce 00d9 | | Load_Top At_Offset_1
01cf e403 | | Load 0x2,0x3
01d0 01d6 | | Execute Vector,Field_Write
01d1 3ffb |? | Loop_Increasing 0x1cd
01d2 00d9 | | Load_Top At_Offset_1
01d3 00d8 | | Load_Top At_Offset_0
01d4 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01d5 00da | | Load_Top At_Offset_2
01d6 01da | | Execute Vector,Bounds
01d7 00da | | Load_Top At_Offset_2
01d8 01da | | Execute Vector,Bounds
01d9 00da | | Load_Top At_Offset_2
01da 027f | | Execute Discrete,Equal
01db 7001 |p | Jump_Nonzero 0x1dd
01dc 08e0 | | Execute_Immediate Raise,0xe0
01dd 00cd | | Action Spare6_Action
01de 027f | | Execute Discrete,Equal
01df 7001 |p | Jump_Nonzero 0x1e1
01e0 08e0 | | Execute_Immediate Raise,0xe0
01e1 00d2 | | Pop_Control Pop_Count_2
01e2 00d9 | | Load_Top At_Offset_1
01e3 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
01e4 e5fd | | Load 0x2,-0x3
01e5 01db | | Execute Vector,Length
01e6 e22e | . | Load 0x1,0x2e
01e7 1c08 | | Execute_Immediate Run_Utility,0x8
01e8 e5fd | | Load 0x2,-0x3
01e9 00d9 | | Load_Top At_Offset_1
01ea 00d8 | | Load_Top At_Offset_0
01eb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01ec 00da | | Load_Top At_Offset_2
01ed 01da | | Execute Vector,Bounds
01ee 00da | | Load_Top At_Offset_2
01ef 01da | | Execute Vector,Bounds
01f0 00da | | Load_Top At_Offset_2
01f1 027f | | Execute Discrete,Equal
01f2 7001 |p | Jump_Nonzero 0x1f4
01f3 08e0 | | Execute_Immediate Raise,0xe0
01f4 00cd | | Action Spare6_Action
01f5 027f | | Execute Discrete,Equal
01f6 7001 |p | Jump_Nonzero 0x1f8
01f7 08e0 | | Execute_Immediate Raise,0xe0
01f8 00d2 | | Pop_Control Pop_Count_2
01f9 00d9 | | Load_Top At_Offset_1
01fa 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01fb 00d9 | | Load_Top At_Offset_1
01fc 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01fd e22a | * | Load 0x1,0x2a
01fe 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 4800 |H | Short_Literal 0x0
0204 00db | | Load_Top At_Offset_3
0205 0227 | ' | Execute Access,All_Reference
0206 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0207 00da | | Load_Top At_Offset_2
0208 0229 | ) | Execute Access,All_Read
0209 00d8 | | Load_Top At_Offset_0
020a 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
020b 00d8 | | Load_Top At_Offset_0
020c 0335 | 5 | Declare_Variable Array,Duplicate
020d 00cd | | Action Spare6_Action
020e 00d9 | | Load_Top At_Offset_1
020f 01d9 | | Execute Vector,Reverse_Bounds
0210 0263 | c | Execute Discrete,Above_Bound
0211 7005 |p | Jump_Nonzero 0x217
0212 e22c | , | Load 0x1,0x2c
0213 00d9 | | Load_Top At_Offset_1
0214 e404 | | Load 0x2,0x4
0215 01d6 | | Execute Vector,Field_Write
0216 3ffb |? | Loop_Increasing 0x212
0217 00cd | | Action Spare6_Action
0218 00d9 | | Load_Top At_Offset_1
0219 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
021a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e006 | | Load 0x0,0x6
0224 0007 | | Action Break_Optional
0225 BODY_0220:
0225 e5fe | | Load 0x2,-0x2
0226 e5ff | | Load 0x2,-0x1
0227 0227 | ' | Execute Access,All_Reference
0228 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0229 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
022a 01d7 | | Execute Vector,Field_Read
022b 0039 | 9 | Store_Top Access,At_Offset_1
022c 00d8 | | Load_Top At_Offset_0
022d 800f | | Call 0x0,0xf
022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0237 | 7 | .CONST 0x0237 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e5fd | | Load 0x2,-0x3
0234 0227 | ' | Execute Access,All_Reference
0235 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0236 0007 | | Action Break_Optional
0237 BODY_0230:
0237 00db | | Load_Top At_Offset_3
0238 00d9 | | Load_Top At_Offset_1
0239 01d5 | | Execute Vector,Field_Reference
023a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
023b 6807 |h | Jump_Zero 0x243
023c e5fe | | Load 0x2,-0x2
023d e5ff | | Load 0x2,-0x1
023e 00da | | Load_Top At_Offset_2
023f 01d5 | | Execute Vector,Field_Reference
0240 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0241 8235 | 5 | Call 0x1,0x35
0242 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0243 4800 |H | Short_Literal 0x0
0244 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0253 | S | .CONST 0x0253 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e22a | * | Load 0x1,0x2a
024c 00db | | Load_Top At_Offset_3
024d 8216 | | Call 0x1,0x16
024e 0039 | 9 | Store_Top Access,At_Offset_1
024f 00db | | Load_Top At_Offset_3
0250 8231 | 1 | Call 0x1,0x31
0251 00e3 | | Load_Encached Natural_Cache
0252 03f1 | | Declare_Variable Discrete,With_Value
0253 BODY_0248:
0253 00d8 | | Load_Top At_Offset_0
0254 00da | | Load_Top At_Offset_2
0255 0227 | ' | Execute Access,All_Reference
0256 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0257 01d5 | | Execute Vector,Field_Reference
0258 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0259 0335 | 5 | Declare_Variable Array,Duplicate
025a 00cd | | Action Spare6_Action
025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026b | k | .CONST 0x026b ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 e22a | * | Load 0x1,0x2a
0264 00db | | Load_Top At_Offset_3
0265 8216 | | Call 0x1,0x16
0266 0039 | 9 | Store_Top Access,At_Offset_1
0267 00db | | Load_Top At_Offset_3
0268 8231 | 1 | Call 0x1,0x31
0269 00e3 | | Load_Encached Natural_Cache
026a 03f1 | | Declare_Variable Discrete,With_Value
026b BODY_0260:
026b e5fe | | Load 0x2,-0x2
026c 00d9 | | Load_Top At_Offset_1
026d 00db | | Load_Top At_Offset_3
026e 0227 | ' | Execute Access,All_Reference
026f 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0270 01d5 | | Execute Vector,Field_Reference
0271 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0272 01d5 | | Execute Vector,Field_Reference
0273 02fd | | Declare_Variable Variant_Record,Duplicate
0274 00cd | | Action Spare6_Action
0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028e | | .CONST 0x028e ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0006 | | .CONST 0x0006 ; Number of locals
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 0227 | ' | Execute Access,All_Reference
027d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
027e 0007 | | Action Break_Optional
027f 00db | | Load_Top At_Offset_3
0280 0227 | ' | Execute Access,All_Reference
0281 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0282 0007 | | Action Break_Optional
0283 e5ff | | Load 0x2,-0x1
0284 8218 | | Call 0x1,0x18
0285 e009 | | Load 0x0,0x9
0286 1c04 | | Execute_Immediate Run_Utility,0x4
0287 00e3 | | Load_Encached Natural_Cache
0288 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0289 00e3 | | Load_Encached Natural_Cache
028a e003 | | Load 0x0,0x3
028b 0322 | " | Declare_Variable Record
028c 00d8 | | Load_Top At_Offset_0
028d 1c00 | | Execute_Immediate Run_Utility,0x0
028e BODY_0278:
028e 00cf | | Action Mark_Auxiliary
028f e402 | | Load 0x2,0x2
0290 01d9 | | Execute Vector,Reverse_Bounds
0291 0263 | c | Execute Discrete,Above_Bound
0292 7034 |p4 | Jump_Nonzero 0x2c7
0293 00d8 | | Load_Top At_Offset_0
0294 e402 | | Load 0x2,0x2
0295 01d5 | | Execute Vector,Field_Reference
0296 e22c | , | Load 0x1,0x2c
0297 016f | o | Execute Variant_Record,Equal
0298 682c |h, | Jump_Zero 0x2c5
0299 e5fe | | Load 0x2,-0x2
029a 01db | | Execute Vector,Length
029b e22b | + | Load 0x1,0x2b
029c 1c08 | | Execute_Immediate Run_Utility,0x8
029d e5fe | | Load 0x2,-0x2
029e 00d9 | | Load_Top At_Offset_1
029f 00d8 | | Load_Top At_Offset_0
02a0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02a1 00da | | Load_Top At_Offset_2
02a2 01da | | Execute Vector,Bounds
02a3 00da | | Load_Top At_Offset_2
02a4 01da | | Execute Vector,Bounds
02a5 00da | | Load_Top At_Offset_2
02a6 027f | | Execute Discrete,Equal
02a7 7001 |p | Jump_Nonzero 0x2a9
02a8 08e0 | | Execute_Immediate Raise,0xe0
02a9 00cd | | Action Spare6_Action
02aa 027f | | Execute Discrete,Equal
02ab 7001 |p | Jump_Nonzero 0x2ad
02ac 08e0 | | Execute_Immediate Raise,0xe0
02ad 00d2 | | Pop_Control Pop_Count_2
02ae 00d9 | | Load_Top At_Offset_1
02af 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
02b0 00d9 | | Load_Top At_Offset_1
02b1 e402 | | Load 0x2,0x2
02b2 01d6 | | Execute Vector,Field_Write
02b3 00d8 | | Load_Top At_Offset_0
02b4 a405 | | Store_Unchecked 0x2,0x5
02b5 00d8 | | Load_Top At_Offset_0
02b6 e403 | | Load 0x2,0x3
02b7 027d | } | Execute Discrete,Greater
02b8 6802 |h | Jump_Zero 0x2bb
02b9 00d8 | | Load_Top At_Offset_0
02ba a403 | | Store_Unchecked 0x2,0x3
02bb e405 | | Load 0x2,0x5
02bc e404 | | Load 0x2,0x4
02bd 800a | | Call 0x0,0xa
02be e406 | | Load 0x2,0x6
02bf 017d | } | Execute Record,Structure_Write
02c0 00db | | Load_Top At_Offset_3
02c1 8010 | | Call 0x0,0x10
02c2 e5fd | | Load 0x2,-0x3
02c3 016d | m | Execute Variant_Record,Structure_Write
02c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c5 00c8 | | Action Pop_Auxiliary_Range
02c6 3fcc |? | Loop_Increasing 0x293
02c7 00ce | | Action Pop_Auxiliary
02c8 e228 | ( | Load 0x1,0x28
02c9 0257 | W | Execute Discrete,Raise
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e3 | | .CONST 0x02e3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0005 | | .CONST 0x0005 ; Number of locals
02d3 INIT_02d0:
02d3 e22a | * | Load 0x1,0x2a
02d4 00db | | Load_Top At_Offset_3
02d5 8216 | | Call 0x1,0x16
02d6 0039 | 9 | Store_Top Access,At_Offset_1
02d7 00db | | Load_Top At_Offset_3
02d8 8231 | 1 | Call 0x1,0x31
02d9 00e3 | | Load_Encached Natural_Cache
02da 03f1 | | Declare_Variable Discrete,With_Value
02db 00d9 | | Load_Top At_Offset_1
02dc 0227 | ' | Execute Access,All_Reference
02dd 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02de 0007 | | Action Break_Optional
02df 00da | | Load_Top At_Offset_2
02e0 0227 | ' | Execute Access,All_Reference
02e1 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02e2 0007 | | Action Break_Optional
02e3 BODY_02d0:
02e3 e22c | , | Load 0x1,0x2c
02e4 00db | | Load_Top At_Offset_3
02e5 00db | | Load_Top At_Offset_3
02e6 01d6 | | Execute Vector,Field_Write
02e7 00d8 | | Load_Top At_Offset_0
02e8 00db | | Load_Top At_Offset_3
02e9 027f | | Execute Discrete,Equal
02ea 6815 |h | Jump_Zero 0x300
02eb 00d8 | | Load_Top At_Offset_0
02ec 0aff | | Execute_Immediate Plus,-0x1
02ed c405 | | Store 0x2,0x5
02ee 00cf | | Action Mark_Auxiliary
02ef 4801 |H | Short_Literal 0x1
02f0 00da | | Load_Top At_Offset_2
02f1 0264 | d | Execute Discrete,Below_Bound
02f2 700c |p | Jump_Nonzero 0x2ff
02f3 00d8 | | Load_Top At_Offset_0
02f4 e404 | | Load 0x2,0x4
02f5 01d5 | | Execute Vector,Field_Reference
02f6 e22c | , | Load 0x1,0x2c
02f7 016e | n | Execute Variant_Record,Not_Equal
02f8 6802 |h | Jump_Zero 0x2fb
02f9 00d2 | | Pop_Control Pop_Count_2
02fa 7804 |x | Jump 0x2ff
02fb 00d8 | | Load_Top At_Offset_0
02fc a405 | | Store_Unchecked 0x2,0x5
02fd 00c8 | | Action Pop_Auxiliary_Range
02fe 37f4 |7 | Loop_Decreasing 0x2f3
02ff 00ce | | Action Pop_Auxiliary
0300 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0313 | | .CONST 0x0313 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b e22a | * | Load 0x1,0x2a
030c 00db | | Load_Top At_Offset_3
030d 8216 | | Call 0x1,0x16
030e 0039 | 9 | Store_Top Access,At_Offset_1
030f 00db | | Load_Top At_Offset_3
0310 8231 | 1 | Call 0x1,0x31
0311 00e3 | | Load_Encached Natural_Cache
0312 03f1 | | Declare_Variable Discrete,With_Value
0313 BODY_0308:
0313 e5fe | | Load 0x2,-0x2
0314 01db | | Execute Vector,Length
0315 e22b | + | Load 0x1,0x2b
0316 1c08 | | Execute_Immediate Run_Utility,0x8
0317 e5fe | | Load 0x2,-0x2
0318 00d9 | | Load_Top At_Offset_1
0319 00d8 | | Load_Top At_Offset_0
031a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
031b 00da | | Load_Top At_Offset_2
031c 01da | | Execute Vector,Bounds
031d 00da | | Load_Top At_Offset_2
031e 01da | | Execute Vector,Bounds
031f 00da | | Load_Top At_Offset_2
0320 027f | | Execute Discrete,Equal
0321 7001 |p | Jump_Nonzero 0x323
0322 08e0 | | Execute_Immediate Raise,0xe0
0323 00cd | | Action Spare6_Action
0324 027f | | Execute Discrete,Equal
0325 7001 |p | Jump_Nonzero 0x327
0326 08e0 | | Execute_Immediate Raise,0xe0
0327 00d2 | | Pop_Control Pop_Count_2
0328 00d9 | | Load_Top At_Offset_1
0329 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
032a 00d9 | | Load_Top At_Offset_1
032b 00db | | Load_Top At_Offset_3
032c 0227 | ' | Execute Access,All_Reference
032d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
032e 01d6 | | Execute Vector,Field_Write
032f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 033b | ; | .CONST 0x033b ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 e22a | * | Load 0x1,0x2a
0334 00db | | Load_Top At_Offset_3
0335 8216 | | Call 0x1,0x16
0336 0039 | 9 | Store_Top Access,At_Offset_1
0337 00db | | Load_Top At_Offset_3
0338 8231 | 1 | Call 0x1,0x31
0339 00e3 | | Load_Encached Natural_Cache
033a 03f1 | | Declare_Variable Discrete,With_Value
033b BODY_0330:
033b e5fd | | Load 0x2,-0x3
033c e5fe | | Load 0x2,-0x2
033d 00da | | Load_Top At_Offset_2
033e e402 | | Load 0x2,0x2
033f 0227 | ' | Execute Access,All_Reference
0340 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0341 01d5 | | Execute Vector,Field_Reference
0342 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0343 01d6 | | Execute Vector,Field_Write
0344 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0353 | S | .CONST 0x0353 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0003 | | .CONST 0x0003 ; Number of locals
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 8231 | 1 | Call 0x1,0x31
034d 00e3 | | Load_Encached Natural_Cache
034e 03f1 | | Declare_Variable Discrete,With_Value
034f e22a | * | Load 0x1,0x2a
0350 e5ff | | Load 0x2,-0x1
0351 8216 | | Call 0x1,0x16
0352 0039 | 9 | Store_Top Access,At_Offset_1
0353 BODY_0348:
0353 00d8 | | Load_Top At_Offset_0
0354 00da | | Load_Top At_Offset_2
0355 8232 | 2 | Call 0x1,0x32
0356 6823 |h# | Jump_Zero 0x37a
0357 e5fe | | Load 0x2,-0x2
0358 00d9 | | Load_Top At_Offset_1
0359 0227 | ' | Execute Access,All_Reference
035a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
035b e009 | | Load 0x0,0x9
035c 1c04 | | Execute_Immediate Run_Utility,0x4
035d e009 | | Load 0x0,0x9
035e 0122 | " | Execute Any,Make_Root_Type
035f 011c | | Execute Any,Convert_Unchecked
0360 1c01 | | Execute_Immediate Run_Utility,0x1
0361 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "'("
0363 01cc | | Execute Vector,Catenate
0364 8011 | | Call 0x0,0x11
0365 e5fe | | Load 0x2,-0x2
0366 8012 | | Call 0x0,0x12
0367 e5fe | | Load 0x2,-0x2
0368 00d9 | | Load_Top At_Offset_1
0369 0227 | ' | Execute Access,All_Reference
036a 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
036b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
036c 00db | | Load_Top At_Offset_3
036d 00db | | Load_Top At_Offset_3
036e 0227 | ' | Execute Access,All_Reference
036f 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0370 01d5 | | Execute Vector,Field_Reference
0371 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0372 8237 | 7 | Call 0x1,0x37
0373 e5fe | | Load 0x2,-0x2
0374 8013 | | Call 0x0,0x13
0375 e5fe | | Load 0x2,-0x2
0376 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")"
0378 8011 | | Call 0x0,0x11
0379 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037a e5fe | | Load 0x2,-0x2
037b 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "null_object"
037d 8011 | | Call 0x0,0x11
037e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00db | | Load_Top At_Offset_3
0384 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Collection'("
0386 8011 | | Call 0x0,0x11
0387 00db | | Load_Top At_Offset_3
0388 8012 | | Call 0x0,0x12
0389 00da | | Load_Top At_Offset_2
038a 01db | | Execute Vector,Length
038b 680d |h | Jump_Zero 0x399
038c 00cf | | Action Mark_Auxiliary
038d 00db | | Load_Top At_Offset_3
038e 01d9 | | Execute Vector,Reverse_Bounds
038f 0263 | c | Execute Discrete,Above_Bound
0390 7007 |p | Jump_Nonzero 0x398
0391 e5fe | | Load 0x2,-0x2
0392 00d9 | | Load_Top At_Offset_1
0393 e5ff | | Load 0x2,-0x1
0394 01d5 | | Execute Vector,Field_Reference
0395 8224 | $ | Call 0x1,0x24
0396 00c8 | | Action Pop_Auxiliary_Range
0397 3ff9 |? | Loop_Increasing 0x391
0398 00ce | | Action Pop_Auxiliary
0399 00db | | Load_Top At_Offset_3
039a 8013 | | Call 0x0,0x13
039b 4801 |H | Short_Literal 0x1
039c e5fe | | Load 0x2,-0x2
039d 8014 | | Call 0x0,0x14
039e 00db | | Load_Top At_Offset_3
039f 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")"
03a1 8011 | | Call 0x0,0x11
03a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a3 0000 0000 | | .BLANK 0000[0x5]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03bb | | .CONST 0x03bb ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0004 | | .CONST 0x0004 ; Number of locals
03ab INIT_03a8:
03ab 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
03ac 00c6 | | Action Check_Subprogram_Elaborated
03ad 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
03ae 0093 0000 | | push_full_address 0x0
03b0 601b |` | Indirect_Literal Discrete,0x3cc,{0x80000000, 0x00010000}
03b1 0273 | s | Execute Discrete,Plus
03b2 e007 | | Load 0x0,0x7
03b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b4 6013 |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x0000ffff}
03b5 0279 | y | Execute Discrete,And
03b6 0273 | s | Execute Discrete,Plus
03b7 e015 | | Load 0x0,0x15
03b8 0273 | s | Execute Discrete,Plus
03b9 4804 |H | Short_Literal 0x4
03ba 0007 | | Action Break_Optional
03bb BODY_03a8:
03bb e5fe | | Load 0x2,-0x2
03bc e5ff | | Load 0x2,-0x1
03bd 4802 |H | Short_Literal 0x2
03be 4802 |H | Short_Literal 0x2
03bf 0099 | | Action Reference_Dynamic
03c0 4803 |H | Short_Literal 0x3
03c1 4802 |H | Short_Literal 0x2
03c2 0099 | | Action Reference_Dynamic
03c3 8227 | ' | Call 0x1,0x27
03c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
03c8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
03cc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 e5fd | | Load 0x2,-0x3
03d4 e22a | * | Load 0x1,0x2a
03d5 022e | . | Execute Access,Not_Equal
03d6 6845 |hE | Jump_Zero 0x41c
03d7 e5fc | | Load 0x2,-0x4
03d8 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Class'("
03da 8011 | | Call 0x0,0x11
03db e5fc | | Load 0x2,-0x4
03dc 8012 | | Call 0x0,0x12
03dd e5fc | | Load 0x2,-0x4
03de 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "Kind => "
03e0 e5fd | | Load 0x2,-0x3
03e1 0227 | ' | Execute Access,All_Reference
03e2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03e3 e009 | | Load 0x0,0x9
03e4 1c04 | | Execute_Immediate Run_Utility,0x4
03e5 e009 | | Load 0x0,0x9
03e6 0122 | " | Execute Any,Make_Root_Type
03e7 011c | | Execute Any,Convert_Unchecked
03e8 1c01 | | Execute_Immediate Run_Utility,0x1
03e9 01cc | | Execute Vector,Catenate
03ea 8011 | | Call 0x0,0x11
03eb e5fc | | Load 0x2,-0x4
03ec 0092 06b8 | | Action Push_String_Extended,0x6b8 ; "Size => "
03ee e5fd | | Load 0x2,-0x3
03ef 0227 | ' | Execute Access,All_Reference
03f0 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03f1 00e0 | | Load_Encached Standard_Cache
03f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03f3 01cc | | Execute Vector,Catenate
03f4 8011 | | Call 0x0,0x11
03f5 e5fc | | Load 0x2,-0x4
03f6 0092 06b9 | | Action Push_String_Extended,0x6b9 ; "Instances => Collection'("
03f8 8011 | | Call 0x0,0x11
03f9 e5fc | | Load 0x2,-0x4
03fa 8012 | | Call 0x0,0x12
03fb 00cf | | Action Mark_Auxiliary
03fc e5fd | | Load 0x2,-0x3
03fd 8219 | | Call 0x1,0x19
03fe 4801 |H | Short_Literal 0x1
03ff 0263 | c | Execute Discrete,Above_Bound
0400 700e |p | Jump_Nonzero 0x40f
0401 e5fc | | Load 0x2,-0x4
0402 00d9 | | Load_Top At_Offset_1
0403 8016 | | Call 0x0,0x16
0404 e5fc | | Load 0x2,-0x4
0405 0092 06ba | | Action Push_String_Extended,0x6ba ; " => "
0407 8017 | | Call 0x0,0x17
0408 e5fc | | Load 0x2,-0x4
0409 e5fd | | Load 0x2,-0x3
040a 00da | | Load_Top At_Offset_2
040b 8214 | | Call 0x1,0x14
040c 85fe | | Call 0x2,-0x2
040d 00c8 | | Action Pop_Auxiliary_Range
040e 3ff2 |? | Loop_Increasing 0x401
040f 00ce | | Action Pop_Auxiliary
0410 e5fc | | Load 0x2,-0x4
0411 8013 | | Call 0x0,0x13
0412 e5fc | | Load 0x2,-0x4
0413 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")"
0415 8011 | | Call 0x0,0x11
0416 e5fc | | Load 0x2,-0x4
0417 8013 | | Call 0x0,0x13
0418 e5fc | | Load 0x2,-0x4
0419 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")"
041b 8011 | | Call 0x0,0x11
041c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
041d 0000 0000 | | .XXX[0x3]
041f 0000 | |
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 BODY_0420:
0423 INIT_0420:
0423 INIT_0420:
0423 4609 |F | Jump_Case 0xa
0424 7809 |x | Jump 0x42e ; case 0x0
0425 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0426 782d |x- | Jump 0x454 ; case 0x2
0427 7830 |x0 | Jump 0x458 ; case 0x3
0428 7835 |x5 | Jump 0x45e ; case 0x4
0429 783c |x< | Jump 0x466 ; case 0x5
042a 7858 |xX | Jump 0x483 ; case 0x6
042b 7844 |xD | Jump 0x470 ; case 0x7
042c 784c |xL | Jump 0x479 ; case 0x8
042d 7855 |xU | Jump 0x483 ; case 0x9
042e 4800 |H | Short_Literal 0x0
042f 00db | | Load_Top At_Offset_3
0430 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0431 00da | | Load_Top At_Offset_2
0432 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0433 0335 | 5 | Declare_Variable Array,Duplicate
0434 00cd | | Action Spare6_Action
0435 00db | | Load_Top At_Offset_3
0436 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0437 01d9 | | Execute Vector,Reverse_Bounds
0438 0263 | c | Execute Discrete,Above_Bound
0439 7005 |p | Jump_Nonzero 0x43f
043a e22c | , | Load 0x1,0x2c
043b 00d9 | | Load_Top At_Offset_1
043c e402 | | Load 0x2,0x2
043d 01d6 | | Execute Vector,Field_Write
043e 3ffb |? | Loop_Increasing 0x43a
043f 00db | | Load_Top At_Offset_3
0440 00d8 | | Load_Top At_Offset_0
0441 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0442 00da | | Load_Top At_Offset_2
0443 01da | | Execute Vector,Bounds
0444 00da | | Load_Top At_Offset_2
0445 01da | | Execute Vector,Bounds
0446 00da | | Load_Top At_Offset_2
0447 027f | | Execute Discrete,Equal
0448 7001 |p | Jump_Nonzero 0x44a
0449 08e0 | | Execute_Immediate Raise,0xe0
044a 00cd | | Action Spare6_Action
044b 027f | | Execute Discrete,Equal
044c 7001 |p | Jump_Nonzero 0x44e
044d 08e0 | | Execute_Immediate Raise,0xe0
044e 00d1 | | Pop_Control Pop_Count_1
044f 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0450 00da | | Load_Top At_Offset_2
0451 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0452 1c00 | | Execute_Immediate Run_Utility,0x0
0453 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0454 4801 |H | Short_Literal 0x1
0455 4805 |H | Short_Literal 0x5
0456 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0457 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0458 e5fd | | Load 0x2,-0x3
0459 00db | | Load_Top At_Offset_3
045a 1c07 | | Execute_Immediate Run_Utility,0x7
045b e5fe | | Load 0x2,-0x2
045c 0306 | | Complete_Type Variant_Record,By_Renaming
045d 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
045e 4801 |H | Short_Literal 0x1
045f 4805 |H | Short_Literal 0x5
0460 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0461 e5fe | | Load 0x2,-0x2
0462 e5ff | | Load 0x2,-0x1
0463 00da | | Load_Top At_Offset_2
0464 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0465 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0466 4801 |H | Short_Literal 0x1
0467 4801 |H | Short_Literal 0x1
0468 e5ff | | Load 0x2,-0x1
0469 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
046a e22d | - | Load 0x1,0x2d
046b 035b | [ | Declare_Type Array,Constrained
046c 4801 |H | Short_Literal 0x1
046d e5ff | | Load 0x2,-0x1
046e 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
046f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0470 00db | | Load_Top At_Offset_3
0471 4801 |H | Short_Literal 0x1
0472 e5fe | | Load 0x2,-0x2
0473 e22d | - | Load 0x1,0x2d
0474 035b | [ | Declare_Type Array,Constrained
0475 4801 |H | Short_Literal 0x1
0476 e5ff | | Load 0x2,-0x1
0477 031b | | Declare_Type Variant_Record,Constrained
0478 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0479 00db | | Load_Top At_Offset_3
047a 00db | | Load_Top At_Offset_3
047b 02fc | | Declare_Variable Variant_Record,With_Constraint
047c 4801 |H | Short_Literal 0x1
047d e5fe | | Load 0x2,-0x2
047e e22d | - | Load 0x1,0x2d
047f 0334 | 4 | Declare_Variable Array,With_Constraint
0480 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
0481 016a | j | QQ_execute Variant_Record,XXX
0482 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0483 0869 | i | Execute_Immediate Raise,0x69
0484 0000 0000 | | .BLANK 0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 4609 |F | Jump_Case 0xa
048c 7809 |x | Jump 0x496 ; case 0x0
048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
048e 7817 |x | Jump 0x4a6 ; case 0x2
048f 781a |x | Jump 0x4aa ; case 0x3
0490 7836 |x6 | Jump 0x4c7 ; case 0x4
0491 7835 |x5 | Jump 0x4c7 ; case 0x5
0492 7834 |x4 | Jump 0x4c7 ; case 0x6
0493 781c |x | Jump 0x4b0 ; case 0x7
0494 7824 |x$ | Jump 0x4b9 ; case 0x8
0495 782d |x- | Jump 0x4c3 ; case 0x9
0496 00da | | Load_Top At_Offset_2
0497 016c | l | Execute Variant_Record,Is_Constrained
0498 7009 |p | Jump_Nonzero 0x4a2
0499 00cf | | Action Mark_Auxiliary
049a 4800 |H | Short_Literal 0x0
049b e5ff | | Load 0x2,-0x1
049c 1c08 | | Execute_Immediate Run_Utility,0x8
049d 00d8 | | Load_Top At_Offset_0
049e 1c00 | | Execute_Immediate Run_Utility,0x0
049f c5ff | | Store 0x2,-0x1
04a0 00ce | | Action Pop_Auxiliary
04a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04a2 00da | | Load_Top At_Offset_2
04a3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04a4 1c00 | | Execute_Immediate Run_Utility,0x0
04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04a6 4801 |H | Short_Literal 0x1
04a7 4802 |H | Short_Literal 0x2
04a8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
04a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04aa e5fd | | Load 0x2,-0x3
04ab 00db | | Load_Top At_Offset_3
04ac 1c07 | | Execute_Immediate Run_Utility,0x7
04ad e5fe | | Load 0x2,-0x2
04ae 0306 | | Complete_Type Variant_Record,By_Renaming
04af 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
04b0 00db | | Load_Top At_Offset_3
04b1 4801 |H | Short_Literal 0x1
04b2 e5fe | | Load 0x2,-0x2
04b3 e212 | | Load 0x1,0x12
04b4 035b | [ | Declare_Type Array,Constrained
04b5 4801 |H | Short_Literal 0x1
04b6 e5ff | | Load 0x2,-0x1
04b7 031b | | Declare_Type Variant_Record,Constrained
04b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b9 00db | | Load_Top At_Offset_3
04ba 00db | | Load_Top At_Offset_3
04bb 02fc | | Declare_Variable Variant_Record,With_Constraint
04bc 4801 |H | Short_Literal 0x1
04bd e5fe | | Load 0x2,-0x2
04be e212 | | Load 0x1,0x12
04bf 0334 | 4 | Declare_Variable Array,With_Constraint
04c0 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
04c1 016a | j | QQ_execute Variant_Record,XXX
04c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04c3 4800 |H | Short_Literal 0x0
04c4 00db | | Load_Top At_Offset_3
04c5 1c07 | | Execute_Immediate Run_Utility,0x7
04c6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04c7 0869 | i | Execute_Immediate Raise,0x69
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00d1 | | Pop_Control Pop_Count_1
04cc 00da | | Load_Top At_Offset_2
04cd 01d8 | | Execute Vector,Element_Type
04ce 02ff | | Declare_Variable Variant_Record
04cf 00d8 | | Load_Top At_Offset_0
04d0 1c00 | | Execute_Immediate Run_Utility,0x0
04d1 00db | | Load_Top At_Offset_3
04d2 01dc | | Execute Vector,Last
04d3 e5ff | | Load 0x2,-0x1
04d4 01dd | | Execute Vector,First
04d5 0263 | c | Execute Discrete,Above_Bound
04d6 7006 |p | Jump_Nonzero 0x4dd
04d7 00da | | Load_Top At_Offset_2
04d8 00d9 | | Load_Top At_Offset_1
04d9 e5ff | | Load 0x2,-0x1
04da 01d6 | | Execute Vector,Field_Write
04db 0a01 | | Execute_Immediate Plus,0x1
04dc 7ff8 | | Jump 0x4d5
04dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04de 0000 0000 | | .XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 4609 |F | Jump_Case 0xa
04e4 7809 |x | Jump 0x4ee ; case 0x0
04e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04e6 7813 |x | Jump 0x4fa ; case 0x2
04e7 7816 |x | Jump 0x4fe ; case 0x3
04e8 7832 |x2 | Jump 0x51b ; case 0x4
04e9 7831 |x1 | Jump 0x51b ; case 0x5
04ea 7830 |x0 | Jump 0x51b ; case 0x6
04eb 7818 |x | Jump 0x504 ; case 0x7
04ec 7820 |x | Jump 0x50d ; case 0x8
04ed 7829 |x) | Jump 0x517 ; case 0x9
04ee 00da | | Load_Top At_Offset_2
04ef 016c | l | Execute Variant_Record,Is_Constrained
04f0 7008 |p | Jump_Nonzero 0x4f9
04f1 00cf | | Action Mark_Auxiliary
04f2 4800 |H | Short_Literal 0x0
04f3 e5ff | | Load 0x2,-0x1
04f4 1c08 | | Execute_Immediate Run_Utility,0x8
04f5 00d8 | | Load_Top At_Offset_0
04f6 1c00 | | Execute_Immediate Run_Utility,0x0
04f7 c5ff | | Store 0x2,-0x1
04f8 00ce | | Action Pop_Auxiliary
04f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04fa 4801 |H | Short_Literal 0x1
04fb 4802 |H | Short_Literal 0x2
04fc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
04fd 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04fe e5fd | | Load 0x2,-0x3
04ff 00db | | Load_Top At_Offset_3
0500 1c07 | | Execute_Immediate Run_Utility,0x7
0501 e5fe | | Load 0x2,-0x2
0502 0306 | | Complete_Type Variant_Record,By_Renaming
0503 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0504 00db | | Load_Top At_Offset_3
0505 4801 |H | Short_Literal 0x1
0506 e5fe | | Load 0x2,-0x2
0507 e213 | | Load 0x1,0x13
0508 035b | [ | Declare_Type Array,Constrained
0509 4801 |H | Short_Literal 0x1
050a e5ff | | Load 0x2,-0x1
050b 031b | | Declare_Type Variant_Record,Constrained
050c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050d 00db | | Load_Top At_Offset_3
050e 00db | | Load_Top At_Offset_3
050f 02fc | | Declare_Variable Variant_Record,With_Constraint
0510 4801 |H | Short_Literal 0x1
0511 e5fe | | Load 0x2,-0x2
0512 e213 | | Load 0x1,0x13
0513 0334 | 4 | Declare_Variable Array,With_Constraint
0514 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0515 016a | j | QQ_execute Variant_Record,XXX
0516 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0517 4800 |H | Short_Literal 0x0
0518 00db | | Load_Top At_Offset_3
0519 1c07 | | Execute_Immediate Run_Utility,0x7
051a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
051b 0869 | i | Execute_Immediate Raise,0x69
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 00da | | Load_Top At_Offset_2
0524 8218 | | Call 0x1,0x18
0525 e009 | | Load 0x0,0x9
0526 1c04 | | Execute_Immediate Run_Utility,0x4
0527 00d8 | | Load_Top At_Offset_0
0528 00e3 | | Load_Encached Natural_Cache
0529 0260 | ` | Execute Discrete,In_Type
052a 7001 |p | Jump_Nonzero 0x52c
052b 0801 | | Execute_Immediate Raise,0x1
052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 e009 | | Load 0x0,0x9
0535 1c05 | | Execute_Immediate Run_Utility,0x5
0536 00d8 | | Load_Top At_Offset_0
0537 e009 | | Load 0x0,0x9
0538 0122 | " | Execute Any,Make_Root_Type
0539 0260 | ` | Execute Discrete,In_Type
053a 7001 |p | Jump_Nonzero 0x53c
053b 0801 | | Execute_Immediate Raise,0x1
053c 00d8 | | Load_Top At_Offset_0
053d e009 | | Load 0x0,0x9
053e 0260 | ` | Execute Discrete,In_Type
053f 7001 |p | Jump_Nonzero 0x541
0540 0801 | | Execute_Immediate Raise,0x1
0541 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0542 0000 0000 | | .BLANK 0000[0x6]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b 00da | | Load_Top At_Offset_2
054c 8018 | | Call 0x0,0x18
054d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054e 0000 0000 | | .XXX[0x2]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 00db | | Load_Top At_Offset_3
0554 e22a | * | Load 0x1,0x2a
0555 022e | . | Execute Access,Not_Equal
0556 680a |h | Jump_Zero 0x561
0557 00da | | Load_Top At_Offset_2
0558 6806 |h | Jump_Zero 0x55f
0559 00da | | Load_Top At_Offset_2
055a e5fe | | Load 0x2,-0x2
055b 0227 | ' | Execute Access,All_Reference
055c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
055d 027a | z | Execute Discrete,Less_Equal
055e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
055f 4800 |H | Short_Literal 0x0
0560 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0561 4800 |H | Short_Literal 0x0
0562 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0563 0000 0000 | | .BLANK 0000[0x5]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0571 | q | .CONST 0x0571 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0003 | | .CONST 0x0003 ; Number of locals
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c 8215 | | Call 0x1,0x15
056d 821e | | Call 0x1,0x1e
056e e5fe | | Load 0x2,-0x2
056f 8215 | | Call 0x1,0x15
0570 821e | | Call 0x1,0x1e
0571 BODY_0568:
0571 00d9 | | Load_Top At_Offset_1
0572 01db | | Execute Vector,Length
0573 00d9 | | Load_Top At_Offset_1
0574 01db | | Execute Vector,Length
0575 027f | | Execute Discrete,Equal
0576 6823 |h# | Jump_Zero 0x59a
0577 00cf | | Action Mark_Auxiliary
0578 00da | | Load_Top At_Offset_2
0579 01d9 | | Execute Vector,Reverse_Bounds
057a 0263 | c | Execute Discrete,Above_Bound
057b 701b |p | Jump_Nonzero 0x597
057c 00d8 | | Load_Top At_Offset_0
057d e402 | | Load 0x2,0x2
057e 01d5 | | Execute Vector,Field_Reference
057f 8019 | | Call 0x0,0x19
0580 680a |h | Jump_Zero 0x58b
0581 00d8 | | Load_Top At_Offset_0
0582 e403 | | Load 0x2,0x3
0583 01d5 | | Execute Vector,Field_Reference
0584 00d9 | | Load_Top At_Offset_1
0585 e402 | | Load 0x2,0x2
0586 01d5 | | Execute Vector,Field_Reference
0587 8233 | 3 | Call 0x1,0x33
0588 700c |p | Jump_Nonzero 0x595
0589 4800 |H | Short_Literal 0x0
058a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
058b 00d8 | | Load_Top At_Offset_0
058c e402 | | Load 0x2,0x2
058d 01d5 | | Execute Vector,Field_Reference
058e 00d9 | | Load_Top At_Offset_1
058f e403 | | Load 0x2,0x3
0590 01d5 | | Execute Vector,Field_Reference
0591 016f | o | Execute Variant_Record,Equal
0592 7002 |p | Jump_Nonzero 0x595
0593 4800 |H | Short_Literal 0x0
0594 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0595 00c8 | | Action Pop_Auxiliary_Range
0596 3fe5 |? | Loop_Increasing 0x57c
0597 00ce | | Action Pop_Auxiliary
0598 4801 |H | Short_Literal 0x1
0599 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
059a 4800 |H | Short_Literal 0x0
059b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
059c 0000 0000 | | .BLANK 0000[0x4]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05b1 | | .CONST 0x05b1 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0005 | | .CONST 0x0005 ; Number of locals
05a3 INIT_05a0:
05a3 e003 | | Load 0x0,0x3
05a4 0322 | " | Declare_Variable Record
05a5 00db | | Load_Top At_Offset_3
05a6 8215 | | Call 0x1,0x15
05a7 00d9 | | Load_Top At_Offset_1
05a8 017d | } | Execute Record,Structure_Write
05a9 e22a | * | Load 0x1,0x2a
05aa 00d9 | | Load_Top At_Offset_1
05ab 8216 | | Call 0x1,0x16
05ac 0039 | 9 | Store_Top Access,At_Offset_1
05ad 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call
05af 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
05b1 BODY_05a0:
05b1 e5fe | | Load 0x2,-0x2
05b2 801a | | Call 0x0,0x1a
05b3 6802 |h | Jump_Zero 0x5b6
05b4 8404 | | Call 0x2,0x4
05b5 7826 |x& | Jump 0x5dc
05b6 e5fe | | Load 0x2,-0x2
05b7 801b | | Call 0x0,0x1b
05b8 6802 |h | Jump_Zero 0x5bb
05b9 8405 | | Call 0x2,0x5
05ba 7821 |x! | Jump 0x5dc
05bb e5fe | | Load 0x2,-0x2
05bc 801c | | Call 0x0,0x1c
05bd 6806 |h | Jump_Zero 0x5c4
05be e5fe | | Load 0x2,-0x2
05bf 801d | | Call 0x0,0x1d
05c0 801e | | Call 0x0,0x1e
05c1 e5ff | | Load 0x2,-0x1
05c2 8233 | 3 | Call 0x1,0x33
05c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c4 e5fe | | Load 0x2,-0x2
05c5 801f | | Call 0x0,0x1f
05c6 6807 |h | Jump_Zero 0x5ce
05c7 e5fe | | Load 0x2,-0x2
05c8 801d | | Call 0x0,0x1d
05c9 801e | | Call 0x0,0x1e
05ca e5ff | | Load 0x2,-0x1
05cb 8233 | 3 | Call 0x1,0x33
05cc 0f00 | | Execute_Immediate Equal,0x0
05cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ce e5fe | | Load 0x2,-0x2
05cf 8020 | | Call 0x0,0x20
05d0 6804 |h | Jump_Zero 0x5d5
05d1 e5fe | | Load 0x2,-0x2
05d2 e5ff | | Load 0x2,-0x1
05d3 8021 | ! | Call 0x0,0x21
05d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d5 e5fe | | Load 0x2,-0x2
05d6 8022 | " | Call 0x0,0x22
05d7 6804 |h | Jump_Zero 0x5dc
05d8 e5fe | | Load 0x2,-0x2
05d9 e5ff | | Load 0x2,-0x1
05da 8021 | ! | Call 0x0,0x21
05db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05dc 0831 | 1 | Execute_Immediate Raise,0x31
05dd 0000 0000 | | .XXX[0x3]
05df 0000 | |
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 00cf | | Action Mark_Auxiliary
05e4 00db | | Load_Top At_Offset_3
05e5 01d9 | | Execute Vector,Reverse_Bounds
05e6 0263 | c | Execute Discrete,Above_Bound
05e7 701d |p | Jump_Nonzero 0x605
05e8 00d8 | | Load_Top At_Offset_0
05e9 e5ff | | Load 0x2,-0x1
05ea 01d5 | | Execute Vector,Field_Reference
05eb 8019 | | Call 0x0,0x19
05ec 680c |h | Jump_Zero 0x5f9
05ed 00d8 | | Load_Top At_Offset_0
05ee e5fe | | Load 0x2,-0x2
05ef 01d7 | | Execute Vector,Field_Read
05f0 e023 | # | Load 0x0,0x23
05f1 0119 | | Execute Any,Check_In_Formal_Type
05f2 00d9 | | Load_Top At_Offset_1
05f3 e5ff | | Load 0x2,-0x1
05f4 01d5 | | Execute Vector,Field_Reference
05f5 8234 | 4 | Call 0x1,0x34
05f6 700c |p | Jump_Nonzero 0x603
05f7 4800 |H | Short_Literal 0x0
05f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f9 00d8 | | Load_Top At_Offset_0
05fa e5fe | | Load 0x2,-0x2
05fb 01d7 | | Execute Vector,Field_Read
05fc 00d9 | | Load_Top At_Offset_1
05fd e5ff | | Load 0x2,-0x1
05fe 01d5 | | Execute Vector,Field_Reference
05ff 8021 | ! | Call 0x0,0x21
0600 7002 |p | Jump_Nonzero 0x603
0601 4800 |H | Short_Literal 0x0
0602 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0603 00c8 | | Action Pop_Auxiliary_Range
0604 3fe3 |? | Loop_Increasing 0x5e8
0605 00ce | | Action Pop_Auxiliary
0606 4801 |H | Short_Literal 0x1
0607 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060f | | .CONST 0x060f ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0002 | | .CONST 0x0002 ; Number of locals
060b INIT_0608:
060b e003 | | Load 0x0,0x3
060c 0322 | " | Declare_Variable Record
060d 00d8 | | Load_Top At_Offset_0
060e 1c00 | | Execute_Immediate Run_Utility,0x0
060f BODY_0608:
060f 00db | | Load_Top At_Offset_3
0610 8019 | | Call 0x0,0x19
0611 6808 |h | Jump_Zero 0x61a
0612 00db | | Load_Top At_Offset_3
0613 8215 | | Call 0x1,0x15
0614 00d9 | | Load_Top At_Offset_1
0615 017d | } | Execute Record,Structure_Write
0616 e5fe | | Load 0x2,-0x2
0617 00d9 | | Load_Top At_Offset_1
0618 8224 | $ | Call 0x1,0x24
0619 4503 |E | Exit_Suprogram New_Top_Offset 0x3
061a e5fe | | Load 0x2,-0x2
061b e5ff | | Load 0x2,-0x1
061c 8024 | $ | Call 0x0,0x24
061d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
061e 0000 0000 | | .XXX[0x2]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0625 | % | .CONST 0x0625 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0002 | | .CONST 0x0002 ; Number of locals
0623 INIT_0620:
0623 00e1 | | Load_Encached Boolean_Cache
0624 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0625 BODY_0620:
0625 00cf | | Action Mark_Auxiliary
0626 e5ff | | Load 0x2,-0x1
0627 01d9 | | Execute Vector,Reverse_Bounds
0628 0263 | c | Execute Discrete,Above_Bound
0629 7019 |p | Jump_Nonzero 0x643
062a 00db | | Load_Top At_Offset_3
062b 6803 |h | Jump_Zero 0x62f
062c 4800 |H | Short_Literal 0x0
062d a402 | | Store_Unchecked 0x2,0x2
062e 7804 |x | Jump 0x633
062f e5fd | | Load 0x2,-0x3
0630 0092 06bb | | Action Push_String_Extended,0x6bb ; ","
0632 8011 | | Call 0x0,0x11
0633 e5fd | | Load 0x2,-0x3
0634 00d9 | | Load_Top At_Offset_1
0635 e5fe | | Load 0x2,-0x2
0636 01d7 | | Execute Vector,Field_Read
0637 800f | | Call 0x0,0xf
0638 0092 06ba | | Action Push_String_Extended,0x6ba ; " => "
063a 01cc | | Execute Vector,Catenate
063b 8017 | | Call 0x0,0x17
063c e5fd | | Load 0x2,-0x3
063d 00d9 | | Load_Top At_Offset_1
063e e5ff | | Load 0x2,-0x1
063f 01d5 | | Execute Vector,Field_Reference
0640 8236 | 6 | Call 0x1,0x36
0641 00c8 | | Action Pop_Auxiliary_Range
0642 3fe7 |? | Loop_Increasing 0x62a
0643 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0644 0000 0000 | | .BLANK 0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 00db | | Load_Top At_Offset_3
064c e22c | , | Load 0x1,0x2c
064d 016e | n | Execute Variant_Record,Not_Equal
064e 681e |h | Jump_Zero 0x66d
064f e5fd | | Load 0x2,-0x3
0650 00db | | Load_Top At_Offset_3
0651 0227 | ' | Execute Access,All_Reference
0652 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0653 e009 | | Load 0x0,0x9
0654 1c04 | | Execute_Immediate Run_Utility,0x4
0655 e009 | | Load 0x0,0x9
0656 0122 | " | Execute Any,Make_Root_Type
0657 011c | | Execute Any,Convert_Unchecked
0658 1c01 | | Execute_Immediate Run_Utility,0x1
0659 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "'("
065b 01cc | | Execute Vector,Catenate
065c 8011 | | Call 0x0,0x11
065d e5fd | | Load 0x2,-0x3
065e 8012 | | Call 0x0,0x12
065f e5fd | | Load 0x2,-0x3
0660 00db | | Load_Top At_Offset_3
0661 0227 | ' | Execute Access,All_Reference
0662 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0663 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0664 e5fe | | Load 0x2,-0x2
0665 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0666 8237 | 7 | Call 0x1,0x37
0667 e5fd | | Load 0x2,-0x3
0668 8013 | | Call 0x0,0x13
0669 e5fd | | Load 0x2,-0x3
066a 0092 06b3 | | Action Push_String_Extended,0x6b3 ; ")"
066c 8011 | | Call 0x0,0x11
066d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
066e 0000 0000 | | .XXX[0x2]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0675 | u | .CONST 0x0675 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0002 | | .CONST 0x0002 ; Number of locals
0673 INIT_0670:
0673 e5fe | | Load 0x2,-0x2
0674 8025 | % | Call 0x0,0x25
0675 BODY_0670:
0675 e403 | | Load 0x2,0x3
0676 00d9 | | Load_Top At_Offset_1
0677 e402 | | Load 0x2,0x2
0678 8231 | 1 | Call 0x1,0x31
0679 821d | | Call 0x1,0x1d
067a 00cb | | Action Pop_Block_With_Result
067b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
067c 0000 0000 | | .BLANK 0000[0x4]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 068b | | .CONST 0x068b ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0003 | | .CONST 0x0003 ; Number of locals
0683 INIT_0680:
0683 e023 | # | Load 0x0,0x23
0684 02c7 | | Declare_Variable Any
0685 00d8 | | Load_Top At_Offset_0
0686 1c00 | | Execute_Immediate Run_Utility,0x0
0687 e023 | # | Load 0x0,0x23
0688 02c7 | | Declare_Variable Any
0689 00d8 | | Load_Top At_Offset_0
068a 1c00 | | Execute_Immediate Run_Utility,0x0
068b BODY_0680:
068b 00d8 | | Load_Top At_Offset_0
068c 0120 | | Execute Any,Is_Value
068d 6803 |h | Jump_Zero 0x691
068e e023 | # | Load 0x0,0x23
068f 0122 | " | Execute Any,Make_Root_Type
0690 7801 |x | Jump 0x692
0691 00d8 | | Load_Top At_Offset_0
0692 00da | | Load_Top At_Offset_2
0693 0120 | | Execute Any,Is_Value
0694 6803 |h | Jump_Zero 0x698
0695 e023 | # | Load 0x0,0x23
0696 0122 | " | Execute Any,Make_Root_Type
0697 7801 |x | Jump 0x699
0698 00da | | Load_Top At_Offset_2
0699 e5fe | | Load 0x2,-0x2
069a 8026 | & | Call 0x0,0x26
069b c602 | | Store 0x3,0x2
069c c603 | | Store 0x3,0x3
069d 00d9 | | Load_Top At_Offset_1
069e e023 | # | Load 0x0,0x23
069f 0119 | | Execute Any,Check_In_Formal_Type
06a0 e5ff | | Load 0x2,-0x1
06a1 8234 | 4 | Call 0x1,0x34
06a2 7003 |p | Jump_Nonzero 0x6a6
06a3 4800 |H | Short_Literal 0x0
06a4 00cb | | Action Pop_Block_With_Result
06a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a6 00d8 | | Load_Top At_Offset_0
06a7 e023 | # | Load 0x0,0x23
06a8 0119 | | Execute Any,Check_In_Formal_Type
06a9 e5ff | | Load 0x2,-0x1
06aa 8234 | 4 | Call 0x1,0x34
06ab 7003 |p | Jump_Nonzero 0x6af
06ac 4800 |H | Short_Literal 0x0
06ad 00cb | | Action Pop_Block_With_Result
06ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06af 4801 |H | Short_Literal 0x1
06b0 00cb | | Action Pop_Block_With_Result
06b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06b2 ; --------------------------------------------------------------------------------------
06b2 ; STRING TABLE
06b2 ; --------------------------------------------------------------------------------------
06b2 0016 | | .STRTAB 0x0016->0x06bd ; "'("
06b3 0016 | | .STRTAB 0x0016->0x06be ; ")"
06b4 0015 | | .STRTAB 0x0015->0x06be ; "null_object"
06b5 001e | | .STRTAB 0x001e->0x06c4 ; "Collection'("
06b6 0028 | ( | .STRTAB 0x0028->0x06ca ; "Class'("
06b7 002d | - | .STRTAB 0x002d->0x06cd ; "Kind => "
06b8 0038 | 8 | .STRTAB 0x0038->0x06d4 ; "Size => "
06b9 0043 | C | .STRTAB 0x0043->0x06da ; "Instances => Collection'("
06ba 005a | Z | .STRTAB 0x005a->0x06e7 ; " => "
06bb 005c | \ | .STRTAB 0x005c->0x06e9 ; ","
06bc 005b | [ | .STREND 0x005b->0x06e9
06bd 2728 296e |'()n| .STRTAB_STRINGS
06ea 0000 0000 | | .BLANK 0000[0x6]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; Debug Table
06f0 ; --------------------------------------------------------------------------------------
06f0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x8806,0x0000,0x0001,0x0029
06f6 000b 079a | | .DBG4T 0x000b,0x079a,0x0000,0x0000
06fa 0075 07c1 | u | .DBG4T 0x0075,0x07c1,0x0000,0x0000
06fe 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000
0702 0143 07e7 | C | .DBG4T 0x0143,0x07e7,0x0002,0x0000
0706 0153 0000 | S | .DBG4T 0x0153,0x0000,0x0005,0x0000
070a 016b 07ea | k | .DBG4T 0x016b,0x07ea,0x0002,0x0000
070e 0173 07ed | s | .DBG4T 0x0173,0x07ed,0x0002,0x0000
0712 017b 07f0 | { | .DBG4T 0x017b,0x07f0,0x0002,0x0000
0716 018b 07f3 | | .DBG4T 0x018b,0x07f3,0x0002,0x0000
071a 019b 07f6 | | .DBG4T 0x019b,0x07f6,0x0002,0x0000
071e 01b3 07fb | | .DBG4T 0x01b3,0x07fb,0x0002,0x0000
0722 01bb 07fe | | .DBG4T 0x01bb,0x07fe,0x0002,0x0000
0726 0203 0801 | | .DBG4T 0x0203,0x0801,0x0001,0x0000
072a 0223 0805 | # | .DBG4T 0x0223,0x0805,0x0002,0x0000
072e 0233 080a | 3 | .DBG4T 0x0233,0x080a,0x0002,0x0000
0732 024b 080e | K | .DBG4T 0x024b,0x080e,0x0002,0x0000
0736 0263 0813 | c | .DBG4T 0x0263,0x0813,0x0002,0x0000
073a 027b 0818 | { | .DBG4T 0x027b,0x0818,0x0001,0x0000
073e 02d3 0829 | )| .DBG4T 0x02d3,0x0829,0x0001,0x0000
0742 030b 0835 | 5| .DBG4T 0x030b,0x0835,0x0001,0x0000
0746 0333 083a | 3 :| .DBG4T 0x0333,0x083a,0x0001,0x0000
074a 034b 083f | K ?| .DBG4T 0x034b,0x083f,0x0001,0x0000
074e 0383 084a | J| .DBG4T 0x0383,0x084a,0x0001,0x0000
0752 03ab 0854 | T| .DBG4T 0x03ab,0x0854,0x0001,0x0000
0756 03d3 0858 | X| .DBG4T 0x03d3,0x0858,0x2801,0x0002
075a 0423 0000 | # | .DBG4T 0x0423,0x0000,0x0005,0x0000
075e 048b 0000 | | .DBG4T 0x048b,0x0000,0x0005,0x0000
0762 04cb 0000 | | .DBG4T 0x04cb,0x0000,0x0005,0x0000
0766 04e3 0000 | | .DBG4T 0x04e3,0x0000,0x0005,0x0000
076a 0523 0869 | # i| .DBG4T 0x0523,0x0869,0x0002,0x0000
076e 0533 086c | 3 l| .DBG4T 0x0533,0x086c,0x0002,0x0000
0772 054b 086f | K o| .DBG4T 0x054b,0x086f,0x0002,0x0000
0776 0553 0872 | S r| .DBG4T 0x0553,0x0872,0x0002,0x0000
077a 056b 0875 | k u| .DBG4T 0x056b,0x0875,0x0002,0x0000
077e 05a3 0882 | | .DBG4T 0x05a3,0x0882,0x0002,0x0000
0782 05e3 0892 | | .DBG4T 0x05e3,0x0892,0x0002,0x0000
0786 060b 089b | | .DBG4T 0x060b,0x089b,0x0001,0x0000
078a 0623 08a2 | # | .DBG4T 0x0623,0x08a2,0x0001,0x0000
078e 064b 08ab | K | .DBG4T 0x064b,0x08ab,0x0001,0x0000
0792 0673 08b3 | s | .DBG4T 0x0673,0x08b3,0x0004,0x0000
0796 0683 08b7 | | .DBG4T 0x0683,0x08b7,0x0004,0x0000
079a ; --------------------------------------------------------------------------------------
079a ; Debug chain
079a ; --------------------------------------------------------------------------------------
079a 0025 0000 | % | .DBGLEN 0x0025,0x0000
079c 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000e,0x000f,0x0016,0x0018,0x0019,0x001d,0x0021,0x0028,0x002e,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0061,0x0062,0x006d,0x0071
07c1 ; --------------------------------------------------------------------------------------
07c1 ; Debug chain
07c1 ; --------------------------------------------------------------------------------------
07c1 0024 0000 | $ | .DBGLEN 0x0024,0x0000
07c3 0075 0087 | u | .DBGLNO 0x0075,0x0087,0x00aa,0x00b1,0x00c3,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f
07e7 ; --------------------------------------------------------------------------------------
07e7 ; Debug chain
07e7 ; --------------------------------------------------------------------------------------
07e7 0000 0001 | | .DBGLEN 0x0000,0x0001
07e9 0143 | C | .DBGLNO 0x0143
07ea ; --------------------------------------------------------------------------------------
07ea ; Debug chain
07ea ; --------------------------------------------------------------------------------------
07ea 0000 0001 | | .DBGLEN 0x0000,0x0001
07ec 016b | k | .DBGLNO 0x016b
07ed ; --------------------------------------------------------------------------------------
07ed ; Debug chain
07ed ; --------------------------------------------------------------------------------------
07ed 0000 0001 | | .DBGLEN 0x0000,0x0001
07ef 0173 | s | .DBGLNO 0x0173
07f0 ; --------------------------------------------------------------------------------------
07f0 ; Debug chain
07f0 ; --------------------------------------------------------------------------------------
07f0 0000 0001 | | .DBGLEN 0x0000,0x0001
07f2 017b | { | .DBGLNO 0x017b
07f3 ; --------------------------------------------------------------------------------------
07f3 ; Debug chain
07f3 ; --------------------------------------------------------------------------------------
07f3 0000 0001 | | .DBGLEN 0x0000,0x0001
07f5 018b | | .DBGLNO 0x018b
07f6 ; --------------------------------------------------------------------------------------
07f6 ; Debug chain
07f6 ; --------------------------------------------------------------------------------------
07f6 0000 0003 | | .DBGLEN 0x0000,0x0003
07f8 019b 019f | | .DBGLNO 0x019b,0x019f,0x01a8
07fb ; --------------------------------------------------------------------------------------
07fb ; Debug chain
07fb ; --------------------------------------------------------------------------------------
07fb 0000 0001 | | .DBGLEN 0x0000,0x0001
07fd 01b3 | | .DBGLNO 0x01b3
07fe ; --------------------------------------------------------------------------------------
07fe ; Debug chain
07fe ; --------------------------------------------------------------------------------------
07fe 0000 0001 | | .DBGLEN 0x0000,0x0001
0800 01bb | | .DBGLNO 0x01bb
0801 ; --------------------------------------------------------------------------------------
0801 ; Debug chain
0801 ; --------------------------------------------------------------------------------------
0801 0000 0002 | | .DBGLEN 0x0000,0x0002
0803 0203 0207 | | .DBGLNO 0x0203,0x0207
0805 ; --------------------------------------------------------------------------------------
0805 ; Debug chain
0805 ; --------------------------------------------------------------------------------------
0805 0001 0002 | | .DBGLEN 0x0001,0x0002
0807 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x022c
080a ; --------------------------------------------------------------------------------------
080a ; Debug chain
080a ; --------------------------------------------------------------------------------------
080a 0001 0001 | | .DBGLEN 0x0001,0x0001
080c 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237
080e ; --------------------------------------------------------------------------------------
080e ; Debug chain
080e ; --------------------------------------------------------------------------------------
080e 0002 0001 | | .DBGLEN 0x0002,0x0001
0810 024b 024f | K O| .DBGLNO 0x024b,0x024f,0x0253
0813 ; --------------------------------------------------------------------------------------
0813 ; Debug chain
0813 ; --------------------------------------------------------------------------------------
0813 0002 0001 | | .DBGLEN 0x0002,0x0001
0815 0263 0267 | c g| .DBGLNO 0x0263,0x0267,0x026b
0818 ; --------------------------------------------------------------------------------------
0818 ; Debug chain
0818 ; --------------------------------------------------------------------------------------
0818 0005 000a | | .DBGLEN 0x0005,0x000a
081a 027b 027f | { | .DBGLNO 0x027b,0x027f,0x0283,0x0289,0x028a,0x028f,0x0293,0x0299,0x02b3,0x02b5,0x02b9,0x02bb,0x02c0,0x02c4,0x02c8
0829 ; --------------------------------------------------------------------------------------
0829 ; Debug chain
0829 ; --------------------------------------------------------------------------------------
0829 0004 0006 | | .DBGLEN 0x0004,0x0006
082b 02d3 02d7 | | .DBGLNO 0x02d3,0x02d7,0x02db,0x02df,0x02e3,0x02e7,0x02eb,0x02ef,0x02f3,0x02fb
0835 ; --------------------------------------------------------------------------------------
0835 ; Debug chain
0835 ; --------------------------------------------------------------------------------------
0835 0002 0001 | | .DBGLEN 0x0002,0x0001
0837 030b 030f | | .DBGLNO 0x030b,0x030f,0x0313
083a ; --------------------------------------------------------------------------------------
083a ; Debug chain
083a ; --------------------------------------------------------------------------------------
083a 0002 0001 | | .DBGLEN 0x0002,0x0001
083c 0333 0337 | 3 7| .DBGLNO 0x0333,0x0337,0x033b
083f ; --------------------------------------------------------------------------------------
083f ; Debug chain
083f ; --------------------------------------------------------------------------------------
083f 0002 0007 | | .DBGLEN 0x0002,0x0007
0841 034b 034f | K O| .DBGLNO 0x034b,0x034f,0x0353,0x0357,0x0365,0x0367,0x0373,0x0375,0x037a
084a ; --------------------------------------------------------------------------------------
084a ; Debug chain
084a ; --------------------------------------------------------------------------------------
084a 0000 0008 | | .DBGLEN 0x0000,0x0008
084c 0383 0387 | | .DBGLNO 0x0383,0x0387,0x0389,0x038d,0x0391,0x0399,0x039b,0x039e
0854 ; --------------------------------------------------------------------------------------
0854 ; Debug chain
0854 ; --------------------------------------------------------------------------------------
0854 0001 0001 | | .DBGLEN 0x0001,0x0001
0856 03ab 03bb | | .DBGLNO 0x03ab,0x03bb
0858 ; --------------------------------------------------------------------------------------
0858 ; Debug chain
0858 ; --------------------------------------------------------------------------------------
0858 0000 000f | | .DBGLEN 0x0000,0x000f
085a 03d3 03d7 | | .DBGLNO 0x03d3,0x03d7,0x03db,0x03dd,0x03eb,0x03f5,0x03f9,0x03fc,0x0401,0x0404,0x0408,0x0410,0x0412,0x0416,0x0418
0869 ; --------------------------------------------------------------------------------------
0869 ; Debug chain
0869 ; --------------------------------------------------------------------------------------
0869 0000 0001 | | .DBGLEN 0x0000,0x0001
086b 0523 | # | .DBGLNO 0x0523
086c ; --------------------------------------------------------------------------------------
086c ; Debug chain
086c ; --------------------------------------------------------------------------------------
086c 0000 0001 | | .DBGLEN 0x0000,0x0001
086e 0533 | 3 | .DBGLNO 0x0533
086f ; --------------------------------------------------------------------------------------
086f ; Debug chain
086f ; --------------------------------------------------------------------------------------
086f 0000 0001 | | .DBGLEN 0x0000,0x0001
0871 054b | K | .DBGLNO 0x054b
0872 ; --------------------------------------------------------------------------------------
0872 ; Debug chain
0872 ; --------------------------------------------------------------------------------------
0872 0000 0001 | | .DBGLEN 0x0000,0x0001
0874 0553 | S | .DBGLNO 0x0553
0875 ; --------------------------------------------------------------------------------------
0875 ; Debug chain
0875 ; --------------------------------------------------------------------------------------
0875 0002 0009 | | .DBGLEN 0x0002,0x0009
0877 056b 056e | k n| .DBGLNO 0x056b,0x056e,0x0571,0x0578,0x057c,0x0581,0x0589,0x058b,0x0593,0x0598,0x059a
0882 ; --------------------------------------------------------------------------------------
0882 ; Debug chain
0882 ; --------------------------------------------------------------------------------------
0882 0002 000c | | .DBGLEN 0x0002,0x000c
0884 05a3 05a9 | | .DBGLNO 0x05a3,0x05a9,0x05b1,0x05b4,0x05b6,0x05b9,0x05bb,0x05be,0x05c4,0x05c7,0x05ce,0x05d1,0x05d5,0x05d8
0892 ; --------------------------------------------------------------------------------------
0892 ; Debug chain
0892 ; --------------------------------------------------------------------------------------
0892 0000 0007 | | .DBGLEN 0x0000,0x0007
0894 05e4 05e8 | | .DBGLNO 0x05e4,0x05e8,0x05ed,0x05f7,0x05f9,0x0601,0x0606
089b ; --------------------------------------------------------------------------------------
089b ; Debug chain
089b ; --------------------------------------------------------------------------------------
089b 0001 0004 | | .DBGLEN 0x0001,0x0004
089d 060b 060f | | .DBGLNO 0x060b,0x060f,0x0612,0x0616,0x061a
08a2 ; --------------------------------------------------------------------------------------
08a2 ; Debug chain
08a2 ; --------------------------------------------------------------------------------------
08a2 0001 0006 | | .DBGLEN 0x0001,0x0006
08a4 0623 0626 | # &| .DBGLNO 0x0623,0x0626,0x062a,0x062c,0x062f,0x0633,0x063c
08ab ; --------------------------------------------------------------------------------------
08ab ; Debug chain
08ab ; --------------------------------------------------------------------------------------
08ab 0000 0006 | | .DBGLEN 0x0000,0x0006
08ad 064b 064f | K O| .DBGLNO 0x064b,0x064f,0x065d,0x065f,0x0667,0x0669
08b3 ; --------------------------------------------------------------------------------------
08b3 ; Debug chain
08b3 ; --------------------------------------------------------------------------------------
08b3 0001 0001 | | .DBGLEN 0x0001,0x0001
08b5 0673 0675 | s u| .DBGLNO 0x0673,0x0675
08b7 ; --------------------------------------------------------------------------------------
08b7 ; Debug chain
08b7 ; --------------------------------------------------------------------------------------
08b7 0001 0006 | | .DBGLEN 0x0001,0x0006
08b9 0683 068b | | .DBGLNO 0x0683,0x068b,0x069d,0x06a3,0x06a6,0x06ac,0x06af
08c0 0000 0000 | | .BLANK 0000[0x140]