|
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_664cf7
└─⟦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 06b8 | | .CONST 0x06b8 ; 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 011b | | .CONST 0x011b ; 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 0123 | #| Declare_Subprogram INIT_0120,For_Call
0014 4801 |H | Short_Literal 0x1
0015 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0016 029a 014b | K| Declare_Subprogram INIT_0148,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 015b | [| Declare_Subprogram INIT_0158,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 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0031 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0033 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0035 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0037 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0039 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
003b 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
003d 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
003f 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0041 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0043 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0045 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0047 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0049 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
004b 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
004d 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
004f 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0051 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0053 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0055 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0057 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0059 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
005b 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
005d 0093 0000 | | push_full_address 0x0
005f 60e0 |` | Indirect_Literal Discrete,0x140,{0x80000000, 0x00020000}
0060 0273 | s | Execute Discrete,Plus
0061 e007 | | Load 0x0,0x7
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 60d8 |` | Indirect_Literal Discrete,0x13c,{0x00000000, 0x0000ffff}
0064 0279 | y | Execute Discrete,And
0065 0273 | s | Execute Discrete,Plus
0066 0129 | ) | Execute Any,Make_Visible
0067 0007 | | Action Break_Optional
0068 00e3 | | Load_Encached Natural_Cache
0069 4800 |H | Short_Literal 0x0
006a 4801 |H | Short_Literal 0x1
006b 4801 |H | Short_Literal 0x1
006c 4805 |H | Short_Literal 0x5
006d 0319 | | Declare_Type Variant_Record,Incomplete,Visible
006e 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
0070 00d9 | | Load_Top At_Offset_1
0071 012a | * | Execute Any,Change_Utility
0072 0007 | | Action Break_Optional
0073 00d8 | | Load_Top At_Offset_0
0074 02a0 | | Declare_Subprogram Null_Subprogram
0075 4818 |H | Short_Literal 0x18
0076 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0077 00d8 | | Load_Top At_Offset_0
0078 0129 | ) | Execute Any,Make_Visible
0079 c20d | | Store 0x1,0xd
007a 00bf | | Action Accept_Activation
007b e210 | | Load 0x1,0x10
007c e008 | | Load 0x0,0x8
007d 4801 |H | Short_Literal 0x1
007e e212 | | Load 0x1,0x12
007f 01dc | | Execute Vector,Last
0080 e210 | | Load 0x1,0x10
0081 0269 | i | Execute Discrete,Last
0082 026c | l | Execute Discrete,Minimum
0083 e212 | | Load 0x1,0x12
0084 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
0085 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0087 4800 |H | Short_Literal 0x0
0088 4801 |H | Short_Literal 0x1
0089 4801 |H | Short_Literal 0x1
008a 4800 |H | Short_Literal 0x0
008b 4801 |H | Short_Literal 0x1
008c 4801 |H | Short_Literal 0x1
008d 031d | | Declare_Type Variant_Record,Defined
008e 4800 |H | Short_Literal 0x0
008f 00d9 | | Load_Top At_Offset_1
0090 1c08 | | Execute_Immediate Run_Utility,0x8
0091 00d8 | | Load_Top At_Offset_0
0092 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0093 0335 | 5 | Declare_Variable Array,Duplicate
0094 00cd | | Action Spare6_Action
0095 00d9 | | Load_Top At_Offset_1
0096 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0097 01d9 | | Execute Vector,Reverse_Bounds
0098 0263 | c | Execute Discrete,Above_Bound
0099 7005 |p | Jump_Nonzero 0x9f
009a e009 | | Load 0x0,0x9
009b 00d9 | | Load_Top At_Offset_1
009c e230 | 0 | Load 0x1,0x30
009d 01d6 | | Execute Vector,Field_Write
009e 3ffb |? | Loop_Increasing 0x9a
009f 00d9 | | Load_Top At_Offset_1
00a0 00d8 | | Load_Top At_Offset_0
00a1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00a2 00da | | Load_Top At_Offset_2
00a3 01da | | Execute Vector,Bounds
00a4 00da | | Load_Top At_Offset_2
00a5 01da | | Execute Vector,Bounds
00a6 00da | | Load_Top At_Offset_2
00a7 027f | | Execute Discrete,Equal
00a8 7001 |p | Jump_Nonzero 0xaa
00a9 08e0 | | Execute_Immediate Raise,0xe0
00aa 00cd | | Action Spare6_Action
00ab 027f | | Execute Discrete,Equal
00ac 7001 |p | Jump_Nonzero 0xae
00ad 08e0 | | Execute_Immediate Raise,0xe0
00ae 00d2 | | Pop_Control Pop_Count_2
00af 00d9 | | Load_Top At_Offset_1
00b0 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00b1 e00a | | Load 0x0,0xa
00b2 00d9 | | Load_Top At_Offset_1
00b3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00b4 00e3 | | Load_Encached Natural_Cache
00b5 0266 | f | Execute Discrete,Bounds
00b6 00db | | Load_Top At_Offset_3
00b7 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
00b9 4801 |H | Short_Literal 0x1
00ba 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00bb e210 | | Load 0x1,0x10
00bc 4801 |H | Short_Literal 0x1
00bd e213 | | Load 0x1,0x13
00be 01dc | | Execute Vector,Last
00bf e210 | | Load 0x1,0x10
00c0 0269 | i | Execute Discrete,Last
00c1 026c | l | Execute Discrete,Minimum
00c2 e213 | | Load 0x1,0x13
00c3 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
00c4 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
00c6 4800 |H | Short_Literal 0x0
00c7 4801 |H | Short_Literal 0x1
00c8 4800 |H | Short_Literal 0x0
00c9 4800 |H | Short_Literal 0x0
00ca 4801 |H | Short_Literal 0x1
00cb 4801 |H | Short_Literal 0x1
00cc 031d | | Declare_Type Variant_Record,Defined
00cd e00b | | Load 0x0,0xb
00ce 00e3 | | Load_Encached Natural_Cache
00cf 00da | | Load_Top At_Offset_2
00d0 4801 |H | Short_Literal 0x1
00d1 6066 |`f | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff}
00d2 e230 | 0 | Load 0x1,0x30
00d3 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
00d4 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
00d6 4800 |H | Short_Literal 0x0
00d7 4801 |H | Short_Literal 0x1
00d8 4803 |H | Short_Literal 0x3
00d9 e22c | , | Load 0x1,0x2c
00da 0307 | | Complete_Type Variant_Record,By_Defining
00db e22d | - | Load 0x1,0x2d
00dc 03c4 | | Complete_Type Access,By_Component_Completion
00dd 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
00df 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
00e1 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ee 00c7 | | Action Elaborate_Subprogram
00ef 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
00f1 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00f8 00c7 | | Action Elaborate_Subprogram
00f9 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call
00fb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0100 00c7 | | Action Elaborate_Subprogram
0101 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0102 00c7 | | Action Elaborate_Subprogram
0103 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0104 00c7 | | Action Elaborate_Subprogram
0105 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0106 00c7 | | Action Elaborate_Subprogram
0107 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0108 00c7 | | Action Elaborate_Subprogram
0109 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
010a 00c7 | | Action Elaborate_Subprogram
010b 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
010c 00c7 | | Action Elaborate_Subprogram
010d 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
010f 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
0111 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
0113 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0114 00c7 | | Action Elaborate_Subprogram
0115 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0116 00c7 | | Action Elaborate_Subprogram
0117 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0118 00c7 | | Action Elaborate_Subprogram
0119 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
011a 00c7 | | Action Elaborate_Subprogram
011b BODY_0008:
011b 00bc | | Action Signal_Activated
011c 00bb | | Action Signal_Completion
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 00d1 | | Pop_Control Pop_Count_1
0124 00da | | Load_Top At_Offset_2
0125 01d8 | | Execute Vector,Element_Type
0126 0322 | " | Declare_Variable Record
0127 00d8 | | Load_Top At_Offset_0
0128 1c00 | | Execute_Immediate Run_Utility,0x0
0129 00db | | Load_Top At_Offset_3
012a 01dc | | Execute Vector,Last
012b e5ff | | Load 0x2,-0x1
012c 01dd | | Execute Vector,First
012d 0263 | c | Execute Discrete,Above_Bound
012e 7006 |p | Jump_Nonzero 0x135
012f 00da | | Load_Top At_Offset_2
0130 00d9 | | Load_Top At_Offset_1
0131 e5ff | | Load 0x2,-0x1
0132 01d6 | | Execute Vector,Field_Write
0133 0a01 | | Execute_Immediate Plus,0x1
0134 7ff8 | | Jump 0x12d
0135 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0136 0000 0000 | | .XXX[0x2]
0138 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
013c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0140 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0144 0000 0000 | | .BLANK 0000[0x4]
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 4801 |H | Short_Literal 0x1
014c 4800 |H | Short_Literal 0x0
014d e20e | | Load 0x1,0xe
014e 035b | [ | Declare_Type Array,Constrained
014f 0337 | 7 | Declare_Variable Array
0150 e20e | | Load 0x1,0xe
0151 01c6 | | Execute Vector,Convert_To_Formal
0152 00ca | | Action Exit_Nullary_Function
0153 0000 0000 | | .BLANK 0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00d1 | | Pop_Control Pop_Count_1
015c 00da | | Load_Top At_Offset_2
015d 01d8 | | Execute Vector,Element_Type
015e 02ff | | Declare_Variable Variant_Record
015f 00d8 | | Load_Top At_Offset_0
0160 1c00 | | Execute_Immediate Run_Utility,0x0
0161 00db | | Load_Top At_Offset_3
0162 01dc | | Execute Vector,Last
0163 e5ff | | Load 0x2,-0x1
0164 01dd | | Execute Vector,First
0165 0263 | c | Execute Discrete,Above_Bound
0166 7006 |p | Jump_Nonzero 0x16d
0167 00da | | Load_Top At_Offset_2
0168 00d9 | | Load_Top At_Offset_1
0169 e5ff | | Load 0x2,-0x1
016a 01d6 | | Execute Vector,Field_Write
016b 0a01 | | Execute_Immediate Plus,0x1
016c 7ff8 | | Jump 0x165
016d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0179 | y | .CONST 0x0179 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 8216 | | Call 0x1,0x16
0175 8220 | | Call 0x1,0x20
0176 e5fe | | Load 0x2,-0x2
0177 8216 | | Call 0x1,0x16
0178 8220 | | Call 0x1,0x20
0179 BODY_0170:
0179 00d9 | | Load_Top At_Offset_1
017a 01db | | Execute Vector,Length
017b 00d9 | | Load_Top At_Offset_1
017c 01db | | Execute Vector,Length
017d 027f | | Execute Discrete,Equal
017e 6823 |h# | Jump_Zero 0x1a2
017f 00cf | | Action Mark_Auxiliary
0180 00da | | Load_Top At_Offset_2
0181 01d9 | | Execute Vector,Reverse_Bounds
0182 0263 | c | Execute Discrete,Above_Bound
0183 701b |p | Jump_Nonzero 0x19f
0184 00d8 | | Load_Top At_Offset_0
0185 e402 | | Load 0x2,0x2
0186 01d5 | | Execute Vector,Field_Reference
0187 800c | | Call 0x0,0xc
0188 680a |h | Jump_Zero 0x193
0189 00d8 | | Load_Top At_Offset_0
018a e403 | | Load 0x2,0x3
018b 01d5 | | Execute Vector,Field_Reference
018c 00d9 | | Load_Top At_Offset_1
018d e402 | | Load 0x2,0x2
018e 01d5 | | Execute Vector,Field_Reference
018f 8214 | | Call 0x1,0x14
0190 700c |p | Jump_Nonzero 0x19d
0191 4800 |H | Short_Literal 0x0
0192 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0193 00d8 | | Load_Top At_Offset_0
0194 e402 | | Load 0x2,0x2
0195 01d5 | | Execute Vector,Field_Reference
0196 00d9 | | Load_Top At_Offset_1
0197 e403 | | Load 0x2,0x3
0198 01d5 | | Execute Vector,Field_Reference
0199 016f | o | Execute Variant_Record,Equal
019a 7002 |p | Jump_Nonzero 0x19d
019b 4800 |H | Short_Literal 0x0
019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019d 00c8 | | Action Pop_Auxiliary_Range
019e 3fe5 |? | Loop_Increasing 0x184
019f 00ce | | Action Pop_Auxiliary
01a0 4801 |H | Short_Literal 0x1
01a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a2 4800 |H | Short_Literal 0x0
01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac e5fe | | Load 0x2,-0x2
01ad 8232 | 2 | Call 0x1,0x32
01ae 800d | | Call 0x0,0xd
01af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 800e | | Call 0x0,0xe
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 800f | | Call 0x0,0xf
01bd 8233 | 3 | Call 0x1,0x33
01be 00d8 | | Load_Top At_Offset_0
01bf e00b | | Load 0x0,0xb
01c0 0260 | ` | Execute Discrete,In_Type
01c1 7001 |p | Jump_Nonzero 0x1c3
01c2 0801 | | Execute_Immediate Raise,0x1
01c3 8010 | | Call 0x0,0x10
01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 8011 | | Call 0x0,0x11
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 800f | | Call 0x0,0xf
01d5 8233 | 3 | Call 0x1,0x33
01d6 00d8 | | Load_Top At_Offset_0
01d7 e00b | | Load 0x0,0xb
01d8 0260 | ` | Execute Discrete,In_Type
01d9 7001 |p | Jump_Nonzero 0x1db
01da 0801 | | Execute_Immediate Raise,0x1
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e22d | - | Load 0x1,0x2d
01e5 022e | . | Execute Access,Not_Equal
01e6 6809 |h | Jump_Zero 0x1f0
01e7 00da | | Load_Top At_Offset_2
01e8 0227 | ' | Execute Access,All_Reference
01e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ea 00d8 | | Load_Top At_Offset_0
01eb e00b | | Load 0x0,0xb
01ec 0260 | ` | Execute Discrete,In_Type
01ed 7001 |p | Jump_Nonzero 0x1ef
01ee 0801 | | Execute_Immediate Raise,0x1
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 e012 | | Load 0x0,0x12
01f1 00d8 | | Load_Top At_Offset_0
01f2 e00b | | Load 0x0,0xb
01f3 0260 | ` | Execute Discrete,In_Type
01f4 7001 |p | Jump_Nonzero 0x1f6
01f5 0801 | | Execute_Immediate Raise,0x1
01f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
01fc 0227 | ' | Execute Access,All_Reference
01fd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ff 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3
0204 e22c | , | Load 0x1,0x2c
0205 1c08 | | Execute_Immediate Run_Utility,0x8
0206 00db | | Load_Top At_Offset_3
0207 00d9 | | Load_Top At_Offset_1
0208 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0209 4800 |H | Short_Literal 0x0
020a 00d9 | | Load_Top At_Offset_1
020b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
020c 00d8 | | Load_Top At_Offset_0
020d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
020e 0335 | 5 | Declare_Variable Array,Duplicate
020f 00cd | | Action Spare6_Action
0210 00d9 | | Load_Top At_Offset_1
0211 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0212 01d9 | | Execute Vector,Reverse_Bounds
0213 0263 | c | Execute Discrete,Above_Bound
0214 7005 |p | Jump_Nonzero 0x21a
0215 e22f | / | Load 0x1,0x2f
0216 00d9 | | Load_Top At_Offset_1
0217 e403 | | Load 0x2,0x3
0218 01d6 | | Execute Vector,Field_Write
0219 3ffb |? | Loop_Increasing 0x215
021a 00d9 | | Load_Top At_Offset_1
021b 00d8 | | Load_Top At_Offset_0
021c 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
021d 00da | | Load_Top At_Offset_2
021e 01da | | Execute Vector,Bounds
021f 00da | | Load_Top At_Offset_2
0220 01da | | Execute Vector,Bounds
0221 00da | | Load_Top At_Offset_2
0222 027f | | Execute Discrete,Equal
0223 7001 |p | Jump_Nonzero 0x225
0224 08e0 | | Execute_Immediate Raise,0xe0
0225 00cd | | Action Spare6_Action
0226 027f | | Execute Discrete,Equal
0227 7001 |p | Jump_Nonzero 0x229
0228 08e0 | | Execute_Immediate Raise,0xe0
0229 00d2 | | Pop_Control Pop_Count_2
022a 00d9 | | Load_Top At_Offset_1
022b 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
022c e5fd | | Load 0x2,-0x3
022d 01db | | Execute Vector,Length
022e e231 | 1 | Load 0x1,0x31
022f 1c08 | | Execute_Immediate Run_Utility,0x8
0230 e5fd | | Load 0x2,-0x3
0231 00d9 | | Load_Top At_Offset_1
0232 00d8 | | Load_Top At_Offset_0
0233 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0234 00da | | Load_Top At_Offset_2
0235 01da | | Execute Vector,Bounds
0236 00da | | Load_Top At_Offset_2
0237 01da | | Execute Vector,Bounds
0238 00da | | Load_Top At_Offset_2
0239 027f | | Execute Discrete,Equal
023a 7001 |p | Jump_Nonzero 0x23c
023b 08e0 | | Execute_Immediate Raise,0xe0
023c 00cd | | Action Spare6_Action
023d 027f | | Execute Discrete,Equal
023e 7001 |p | Jump_Nonzero 0x240
023f 08e0 | | Execute_Immediate Raise,0xe0
0240 00d2 | | Pop_Control Pop_Count_2
0241 00d9 | | Load_Top At_Offset_1
0242 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0243 00d9 | | Load_Top At_Offset_1
0244 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0245 e22d | - | Load 0x1,0x2d
0246 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0247 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4800 |H | Short_Literal 0x0
024c 00db | | Load_Top At_Offset_3
024d 0227 | ' | Execute Access,All_Reference
024e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
024f 00da | | Load_Top At_Offset_2
0250 0229 | ) | Execute Access,All_Read
0251 00d8 | | Load_Top At_Offset_0
0252 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0253 00d8 | | Load_Top At_Offset_0
0254 0335 | 5 | Declare_Variable Array,Duplicate
0255 00cd | | Action Spare6_Action
0256 00d9 | | Load_Top At_Offset_1
0257 01d9 | | Execute Vector,Reverse_Bounds
0258 0263 | c | Execute Discrete,Above_Bound
0259 7005 |p | Jump_Nonzero 0x25f
025a e22f | / | Load 0x1,0x2f
025b 00d9 | | Load_Top At_Offset_1
025c e404 | | Load 0x2,0x4
025d 01d6 | | Execute Vector,Field_Write
025e 3ffb |? | Loop_Increasing 0x25a
025f 00cd | | Action Spare6_Action
0260 00d9 | | Load_Top At_Offset_1
0261 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0262 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026d | m | .CONST 0x026d ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b e006 | | Load 0x0,0x6
026c 0007 | | Action Break_Optional
026d BODY_0268:
026d e5fe | | Load 0x2,-0x2
026e e5ff | | Load 0x2,-0x1
026f 0227 | ' | Execute Access,All_Reference
0270 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0271 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0272 01d7 | | Execute Vector,Field_Read
0273 0039 | 9 | Store_Top Access,At_Offset_1
0274 00d8 | | Load_Top At_Offset_0
0275 8013 | | Call 0x0,0x13
0276 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f | | .CONST 0x027f ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b e5fd | | Load 0x2,-0x3
027c 0227 | ' | Execute Access,All_Reference
027d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
027e 0007 | | Action Break_Optional
027f BODY_0278:
027f 00db | | Load_Top At_Offset_3
0280 00d9 | | Load_Top At_Offset_1
0281 01d5 | | Execute Vector,Field_Reference
0282 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0283 6807 |h | Jump_Zero 0x28b
0284 e5fe | | Load 0x2,-0x2
0285 e5ff | | Load 0x2,-0x1
0286 00da | | Load_Top At_Offset_2
0287 01d5 | | Execute Vector,Field_Reference
0288 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0289 8235 | 5 | Call 0x1,0x35
028a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
028b 4800 |H | Short_Literal 0x0
028c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029b | | .CONST 0x029b ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0003 | | .CONST 0x0003 ; Number of locals
0293 INIT_0290:
0293 e22d | - | Load 0x1,0x2d
0294 00db | | Load_Top At_Offset_3
0295 8217 | | Call 0x1,0x17
0296 0039 | 9 | Store_Top Access,At_Offset_1
0297 00db | | Load_Top At_Offset_3
0298 8218 | | Call 0x1,0x18
0299 00e3 | | Load_Encached Natural_Cache
029a 03f1 | | Declare_Variable Discrete,With_Value
029b BODY_0290:
029b 00d8 | | Load_Top At_Offset_0
029c 00da | | Load_Top At_Offset_2
029d 0227 | ' | Execute Access,All_Reference
029e 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
029f 01d5 | | Execute Vector,Field_Reference
02a0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a1 0335 | 5 | Declare_Variable Array,Duplicate
02a2 00cd | | Action Spare6_Action
02a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b3 | | .CONST 0x02b3 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab e22d | - | Load 0x1,0x2d
02ac 00db | | Load_Top At_Offset_3
02ad 8217 | | Call 0x1,0x17
02ae 0039 | 9 | Store_Top Access,At_Offset_1
02af 00db | | Load_Top At_Offset_3
02b0 8218 | | Call 0x1,0x18
02b1 00e3 | | Load_Encached Natural_Cache
02b2 03f1 | | Declare_Variable Discrete,With_Value
02b3 BODY_02a8:
02b3 e5fe | | Load 0x2,-0x2
02b4 00d9 | | Load_Top At_Offset_1
02b5 00db | | Load_Top At_Offset_3
02b6 0227 | ' | Execute Access,All_Reference
02b7 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02b8 01d5 | | Execute Vector,Field_Reference
02b9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ba 01d5 | | Execute Vector,Field_Reference
02bb 02fd | | Declare_Variable Variant_Record,Duplicate
02bc 00cd | | Action Spare6_Action
02bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02cb | | .CONST 0x02cb ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0003 | | .CONST 0x0003 ; Number of locals
02c3 INIT_02c0:
02c3 e22d | - | Load 0x1,0x2d
02c4 00db | | Load_Top At_Offset_3
02c5 8217 | | Call 0x1,0x17
02c6 0039 | 9 | Store_Top Access,At_Offset_1
02c7 00db | | Load_Top At_Offset_3
02c8 8218 | | Call 0x1,0x18
02c9 00e3 | | Load_Encached Natural_Cache
02ca 03f1 | | Declare_Variable Discrete,With_Value
02cb BODY_02c0:
02cb e5ff | | Load 0x2,-0x1
02cc e014 | | Load 0x0,0x14
02cd 017f | | Execute Record,Equal
02ce 6802 |h | Jump_Zero 0x2d1
02cf e00a | | Load 0x0,0xa
02d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d1 00d8 | | Load_Top At_Offset_0
02d2 00da | | Load_Top At_Offset_2
02d3 0227 | ' | Execute Access,All_Reference
02d4 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02d5 01d5 | | Execute Vector,Field_Reference
02d6 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
02d7 02fd | | Declare_Variable Variant_Record,Duplicate
02d8 00cd | | Action Spare6_Action
02d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02fa | | .CONST 0x02fa ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0007 | | .CONST 0x0007 ; Number of locals
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 0227 | ' | Execute Access,All_Reference
02e5 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02e6 0007 | | Action Break_Optional
02e7 00db | | Load_Top At_Offset_3
02e8 0227 | ' | Execute Access,All_Reference
02e9 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02ea 0007 | | Action Break_Optional
02eb e5ff | | Load 0x2,-0x1
02ec 821a | | Call 0x1,0x1a
02ed e00b | | Load 0x0,0xb
02ee 1c04 | | Execute_Immediate Run_Utility,0x4
02ef 00e3 | | Load_Encached Natural_Cache
02f0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02f1 00e3 | | Load_Encached Natural_Cache
02f2 e003 | | Load 0x0,0x3
02f3 0322 | " | Declare_Variable Record
02f4 00d8 | | Load_Top At_Offset_0
02f5 1c00 | | Execute_Immediate Run_Utility,0x0
02f6 e008 | | Load 0x0,0x8
02f7 02ff | | Declare_Variable Variant_Record
02f8 00d8 | | Load_Top At_Offset_0
02f9 1c00 | | Execute_Immediate Run_Utility,0x0
02fa BODY_02e0:
02fa 00d8 | | Load_Top At_Offset_0
02fb 8015 | | Call 0x0,0x15
02fc 00d1 | | Pop_Control Pop_Count_1
02fd 00cf | | Action Mark_Auxiliary
02fe e402 | | Load 0x2,0x2
02ff 01d9 | | Execute Vector,Reverse_Bounds
0300 0263 | c | Execute Discrete,Above_Bound
0301 7037 |p7 | Jump_Nonzero 0x339
0302 00d8 | | Load_Top At_Offset_0
0303 e402 | | Load 0x2,0x2
0304 01d5 | | Execute Vector,Field_Reference
0305 e22f | / | Load 0x1,0x2f
0306 016f | o | Execute Variant_Record,Equal
0307 682f |h/ | Jump_Zero 0x337
0308 e5fe | | Load 0x2,-0x2
0309 01db | | Execute Vector,Length
030a e22e | . | Load 0x1,0x2e
030b 1c08 | | Execute_Immediate Run_Utility,0x8
030c e5fe | | Load 0x2,-0x2
030d 00d9 | | Load_Top At_Offset_1
030e 00d8 | | Load_Top At_Offset_0
030f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0310 00da | | Load_Top At_Offset_2
0311 01da | | Execute Vector,Bounds
0312 00da | | Load_Top At_Offset_2
0313 01da | | Execute Vector,Bounds
0314 00da | | Load_Top At_Offset_2
0315 027f | | Execute Discrete,Equal
0316 7001 |p | Jump_Nonzero 0x318
0317 08e0 | | Execute_Immediate Raise,0xe0
0318 00cd | | Action Spare6_Action
0319 027f | | Execute Discrete,Equal
031a 7001 |p | Jump_Nonzero 0x31c
031b 08e0 | | Execute_Immediate Raise,0xe0
031c 00d2 | | Pop_Control Pop_Count_2
031d 00d9 | | Load_Top At_Offset_1
031e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
031f e407 | | Load 0x2,0x7
0320 00d9 | | Load_Top At_Offset_1
0321 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0322 00d9 | | Load_Top At_Offset_1
0323 e402 | | Load 0x2,0x2
0324 01d6 | | Execute Vector,Field_Write
0325 00d8 | | Load_Top At_Offset_0
0326 a405 | | Store_Unchecked 0x2,0x5
0327 00d8 | | Load_Top At_Offset_0
0328 e403 | | Load 0x2,0x3
0329 027d | } | Execute Discrete,Greater
032a 6802 |h | Jump_Zero 0x32d
032b 00d8 | | Load_Top At_Offset_0
032c a403 | | Store_Unchecked 0x2,0x3
032d e405 | | Load 0x2,0x5
032e e404 | | Load 0x2,0x4
032f 800d | | Call 0x0,0xd
0330 e406 | | Load 0x2,0x6
0331 017d | } | Execute Record,Structure_Write
0332 e406 | | Load 0x2,0x6
0333 8016 | | Call 0x0,0x16
0334 e5fd | | Load 0x2,-0x3
0335 016d | m | Execute Variant_Record,Structure_Write
0336 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0337 00c8 | | Action Pop_Auxiliary_Range
0338 3fc9 |? | Loop_Increasing 0x302
0339 00ce | | Action Pop_Auxiliary
033a e22b | + | Load 0x1,0x2b
033b 0257 | W | Execute Discrete,Raise
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0353 | S | .CONST 0x0353 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0005 | | .CONST 0x0005 ; Number of locals
0343 INIT_0340:
0343 e22d | - | Load 0x1,0x2d
0344 00db | | Load_Top At_Offset_3
0345 8217 | | Call 0x1,0x17
0346 0039 | 9 | Store_Top Access,At_Offset_1
0347 00db | | Load_Top At_Offset_3
0348 8218 | | Call 0x1,0x18
0349 00e3 | | Load_Encached Natural_Cache
034a 03f1 | | Declare_Variable Discrete,With_Value
034b 00d9 | | Load_Top At_Offset_1
034c 0227 | ' | Execute Access,All_Reference
034d 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
034e 0007 | | Action Break_Optional
034f 00da | | Load_Top At_Offset_2
0350 0227 | ' | Execute Access,All_Reference
0351 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0352 0007 | | Action Break_Optional
0353 BODY_0340:
0353 e22f | / | Load 0x1,0x2f
0354 00db | | Load_Top At_Offset_3
0355 00db | | Load_Top At_Offset_3
0356 01d6 | | Execute Vector,Field_Write
0357 00d8 | | Load_Top At_Offset_0
0358 00db | | Load_Top At_Offset_3
0359 027f | | Execute Discrete,Equal
035a 6815 |h | Jump_Zero 0x370
035b 00d8 | | Load_Top At_Offset_0
035c 0aff | | Execute_Immediate Plus,-0x1
035d c405 | | Store 0x2,0x5
035e 00cf | | Action Mark_Auxiliary
035f 4801 |H | Short_Literal 0x1
0360 00da | | Load_Top At_Offset_2
0361 0264 | d | Execute Discrete,Below_Bound
0362 700c |p | Jump_Nonzero 0x36f
0363 00d8 | | Load_Top At_Offset_0
0364 e404 | | Load 0x2,0x4
0365 01d5 | | Execute Vector,Field_Reference
0366 e22f | / | Load 0x1,0x2f
0367 016e | n | Execute Variant_Record,Not_Equal
0368 6802 |h | Jump_Zero 0x36b
0369 00d2 | | Pop_Control Pop_Count_2
036a 7804 |x | Jump 0x36f
036b 00d8 | | Load_Top At_Offset_0
036c a405 | | Store_Unchecked 0x2,0x5
036d 00c8 | | Action Pop_Auxiliary_Range
036e 37f4 |7 | Loop_Decreasing 0x363
036f 00ce | | Action Pop_Auxiliary
0370 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0371 0000 0000 | | .BLANK 0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0387 | | .CONST 0x0387 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0004 | | .CONST 0x0004 ; Number of locals
037b INIT_0378:
037b e22d | - | Load 0x1,0x2d
037c 00db | | Load_Top At_Offset_3
037d 8217 | | Call 0x1,0x17
037e 0039 | 9 | Store_Top Access,At_Offset_1
037f 00db | | Load_Top At_Offset_3
0380 8218 | | Call 0x1,0x18
0381 00e3 | | Load_Encached Natural_Cache
0382 03f1 | | Declare_Variable Discrete,With_Value
0383 e008 | | Load 0x0,0x8
0384 02ff | | Declare_Variable Variant_Record
0385 00d8 | | Load_Top At_Offset_0
0386 1c00 | | Execute_Immediate Run_Utility,0x0
0387 BODY_0378:
0387 00d8 | | Load_Top At_Offset_0
0388 8015 | | Call 0x0,0x15
0389 00d1 | | Pop_Control Pop_Count_1
038a e5fe | | Load 0x2,-0x2
038b 01db | | Execute Vector,Length
038c e22e | . | Load 0x1,0x2e
038d 1c08 | | Execute_Immediate Run_Utility,0x8
038e e5fe | | Load 0x2,-0x2
038f 00d9 | | Load_Top At_Offset_1
0390 00d8 | | Load_Top At_Offset_0
0391 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0392 00da | | Load_Top At_Offset_2
0393 01da | | Execute Vector,Bounds
0394 00da | | Load_Top At_Offset_2
0395 01da | | Execute Vector,Bounds
0396 00da | | Load_Top At_Offset_2
0397 027f | | Execute Discrete,Equal
0398 7001 |p | Jump_Nonzero 0x39a
0399 08e0 | | Execute_Immediate Raise,0xe0
039a 00cd | | Action Spare6_Action
039b 027f | | Execute Discrete,Equal
039c 7001 |p | Jump_Nonzero 0x39e
039d 08e0 | | Execute_Immediate Raise,0xe0
039e 00d2 | | Pop_Control Pop_Count_2
039f 00d9 | | Load_Top At_Offset_1
03a0 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
03a1 00d9 | | Load_Top At_Offset_1
03a2 00d9 | | Load_Top At_Offset_1
03a3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03a4 00da | | Load_Top At_Offset_2
03a5 e402 | | Load 0x2,0x2
03a6 0227 | ' | Execute Access,All_Reference
03a7 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03a8 01d6 | | Execute Vector,Field_Write
03a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03aa 0000 0000 | | .BLANK 0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03bf | | .CONST 0x03bf ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0004 | | .CONST 0x0004 ; Number of locals
03b3 INIT_03b0:
03b3 e22d | - | Load 0x1,0x2d
03b4 00db | | Load_Top At_Offset_3
03b5 8217 | | Call 0x1,0x17
03b6 0039 | 9 | Store_Top Access,At_Offset_1
03b7 00db | | Load_Top At_Offset_3
03b8 8218 | | Call 0x1,0x18
03b9 00e3 | | Load_Encached Natural_Cache
03ba 03f1 | | Declare_Variable Discrete,With_Value
03bb e008 | | Load 0x0,0x8
03bc 02ff | | Declare_Variable Variant_Record
03bd 00d8 | | Load_Top At_Offset_0
03be 1c00 | | Execute_Immediate Run_Utility,0x0
03bf BODY_03b0:
03bf 00d8 | | Load_Top At_Offset_0
03c0 8015 | | Call 0x0,0x15
03c1 00d1 | | Pop_Control Pop_Count_1
03c2 e5fd | | Load 0x2,-0x3
03c3 e5fe | | Load 0x2,-0x2
03c4 00db | | Load_Top At_Offset_3
03c5 e402 | | Load 0x2,0x2
03c6 0227 | ' | Execute Access,All_Reference
03c7 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03c8 01d5 | | Execute Vector,Field_Reference
03c9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03ca 01d6 | | Execute Vector,Field_Write
03cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e1 | | .CONST 0x03e1 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0004 | | .CONST 0x0004 ; Number of locals
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 8218 | | Call 0x1,0x18
03d5 00e3 | | Load_Encached Natural_Cache
03d6 03f1 | | Declare_Variable Discrete,With_Value
03d7 e22d | - | Load 0x1,0x2d
03d8 e5ff | | Load 0x2,-0x1
03d9 8217 | | Call 0x1,0x17
03da 0039 | 9 | Store_Top Access,At_Offset_1
03db e008 | | Load 0x0,0x8
03dc 02ff | | Declare_Variable Variant_Record
03dd e5ff | | Load 0x2,-0x1
03de 8222 | " | Call 0x1,0x22
03df 00d9 | | Load_Top At_Offset_1
03e0 016d | m | Execute Variant_Record,Structure_Write
03e1 BODY_03d0:
03e1 00d9 | | Load_Top At_Offset_1
03e2 00db | | Load_Top At_Offset_3
03e3 8234 | 4 | Call 0x1,0x34
03e4 6829 |h) | Jump_Zero 0x40e
03e5 e5fe | | Load 0x2,-0x2
03e6 00da | | Load_Top At_Offset_2
03e7 0227 | ' | Execute Access,All_Reference
03e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03e9 e00b | | Load 0x0,0xb
03ea 1c04 | | Execute_Immediate Run_Utility,0x4
03eb e00b | | Load 0x0,0xb
03ec 0122 | " | Execute Any,Make_Root_Type
03ed 011c | | Execute Any,Convert_Unchecked
03ee 1c01 | | Execute_Immediate Run_Utility,0x1
03ef 0092 067e | ~| Action Push_String_Extended,0x67e ; "'("
03f1 01cc | | Execute Vector,Catenate
03f2 8017 | | Call 0x0,0x17
03f3 e5fe | | Load 0x2,-0x2
03f4 8018 | | Call 0x0,0x18
03f5 e5fe | | Load 0x2,-0x2
03f6 00da | | Load_Top At_Offset_2
03f7 0227 | ' | Execute Access,All_Reference
03f8 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
03f9 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
03fa e402 | | Load 0x2,0x2
03fb e403 | | Load 0x2,0x3
03fc 0227 | ' | Execute Access,All_Reference
03fd 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03fe 01d5 | | Execute Vector,Field_Reference
03ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0400 8237 | 7 | Call 0x1,0x37
0401 4801 |H | Short_Literal 0x1
0402 e5fe | | Load 0x2,-0x2
0403 8019 | | Call 0x0,0x19
0404 e5fe | | Load 0x2,-0x2
0405 00d9 | | Load_Top At_Offset_1
0406 801a | | Call 0x0,0x1a
0407 e5fe | | Load 0x2,-0x2
0408 801b | | Call 0x0,0x1b
0409 e5fe | | Load 0x2,-0x2
040a 0092 067f | | Action Push_String_Extended,0x67f ; ")"
040c 8017 | | Call 0x0,0x17
040d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040e e5fe | | Load 0x2,-0x2
040f 0092 0680 | | Action Push_String_Extended,0x680 ; "null_object"
0411 8017 | | Call 0x0,0x17
0412 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0413 0000 0000 | | .BLANK 0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00db | | Load_Top At_Offset_3
041c 0092 0681 | | Action Push_String_Extended,0x681 ; "Collection'("
041e 8017 | | Call 0x0,0x17
041f 00db | | Load_Top At_Offset_3
0420 8018 | | Call 0x0,0x18
0421 00da | | Load_Top At_Offset_2
0422 01db | | Execute Vector,Length
0423 680d |h | Jump_Zero 0x431
0424 00cf | | Action Mark_Auxiliary
0425 00db | | Load_Top At_Offset_3
0426 01d9 | | Execute Vector,Reverse_Bounds
0427 0263 | c | Execute Discrete,Above_Bound
0428 7007 |p | Jump_Nonzero 0x430
0429 e5fe | | Load 0x2,-0x2
042a 00d9 | | Load_Top At_Offset_1
042b e5ff | | Load 0x2,-0x1
042c 01d5 | | Execute Vector,Field_Reference
042d 8227 | ' | Call 0x1,0x27
042e 00c8 | | Action Pop_Auxiliary_Range
042f 3ff9 |? | Loop_Increasing 0x429
0430 00ce | | Action Pop_Auxiliary
0431 00db | | Load_Top At_Offset_3
0432 801b | | Call 0x0,0x1b
0433 4801 |H | Short_Literal 0x1
0434 e5fe | | Load 0x2,-0x2
0435 8019 | | Call 0x0,0x19
0436 00db | | Load_Top At_Offset_3
0437 0092 067f | | Action Push_String_Extended,0x67f ; ")"
0439 8017 | | Call 0x0,0x17
043a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
043b 0000 0000 | | .BLANK 0000[0x5]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0453 | S | .CONST 0x0453 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0004 | | .CONST 0x0004 ; Number of locals
0443 INIT_0440:
0443 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0444 00c6 | | Action Check_Subprogram_Elaborated
0445 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0446 0093 0000 | | push_full_address 0x0
0448 601b |` | Indirect_Literal Discrete,0x464,{0x80000000, 0x00010000}
0449 0273 | s | Execute Discrete,Plus
044a e007 | | Load 0x0,0x7
044b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
044c 6013 |` | Indirect_Literal Discrete,0x460,{0x00000000, 0x0000ffff}
044d 0279 | y | Execute Discrete,And
044e 0273 | s | Execute Discrete,Plus
044f e01c | | Load 0x0,0x1c
0450 0273 | s | Execute Discrete,Plus
0451 4804 |H | Short_Literal 0x4
0452 0007 | | Action Break_Optional
0453 BODY_0440:
0453 e5fe | | Load 0x2,-0x2
0454 e5ff | | Load 0x2,-0x1
0455 4802 |H | Short_Literal 0x2
0456 4802 |H | Short_Literal 0x2
0457 0099 | | Action Reference_Dynamic
0458 4803 |H | Short_Literal 0x3
0459 4802 |H | Short_Literal 0x2
045a 0099 | | Action Reference_Dynamic
045b 822a | * | Call 0x1,0x2a
045c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
045d 0000 0000 | | .XXX[0x3]
045f 0000 | |
0460 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0464 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b e5fd | | Load 0x2,-0x3
046c e22d | - | Load 0x1,0x2d
046d 022e | . | Execute Access,Not_Equal
046e 6845 |hE | Jump_Zero 0x4b4
046f e5fc | | Load 0x2,-0x4
0470 0092 0682 | | Action Push_String_Extended,0x682 ; "Class'("
0472 8017 | | Call 0x0,0x17
0473 e5fc | | Load 0x2,-0x4
0474 8018 | | Call 0x0,0x18
0475 e5fc | | Load 0x2,-0x4
0476 0092 0683 | | Action Push_String_Extended,0x683 ; "Kind => "
0478 e5fd | | Load 0x2,-0x3
0479 0227 | ' | Execute Access,All_Reference
047a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
047b e00b | | Load 0x0,0xb
047c 1c04 | | Execute_Immediate Run_Utility,0x4
047d e00b | | Load 0x0,0xb
047e 0122 | " | Execute Any,Make_Root_Type
047f 011c | | Execute Any,Convert_Unchecked
0480 1c01 | | Execute_Immediate Run_Utility,0x1
0481 01cc | | Execute Vector,Catenate
0482 8017 | | Call 0x0,0x17
0483 e5fc | | Load 0x2,-0x4
0484 0092 0684 | | Action Push_String_Extended,0x684 ; "Size => "
0486 e5fd | | Load 0x2,-0x3
0487 0227 | ' | Execute Access,All_Reference
0488 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0489 00e0 | | Load_Encached Standard_Cache
048a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
048b 01cc | | Execute Vector,Catenate
048c 8017 | | Call 0x0,0x17
048d e5fc | | Load 0x2,-0x4
048e 0092 0685 | | Action Push_String_Extended,0x685 ; "Instances => Collection'("
0490 8017 | | Call 0x0,0x17
0491 e5fc | | Load 0x2,-0x4
0492 8018 | | Call 0x0,0x18
0493 00cf | | Action Mark_Auxiliary
0494 e5fd | | Load 0x2,-0x3
0495 821b | | Call 0x1,0x1b
0496 4801 |H | Short_Literal 0x1
0497 0263 | c | Execute Discrete,Above_Bound
0498 700e |p | Jump_Nonzero 0x4a7
0499 e5fc | | Load 0x2,-0x4
049a 00d9 | | Load_Top At_Offset_1
049b 801d | | Call 0x0,0x1d
049c e5fc | | Load 0x2,-0x4
049d 0092 0686 | | Action Push_String_Extended,0x686 ; " => "
049f 801e | | Call 0x0,0x1e
04a0 e5fc | | Load 0x2,-0x4
04a1 e5fd | | Load 0x2,-0x3
04a2 00da | | Load_Top At_Offset_2
04a3 8215 | | Call 0x1,0x15
04a4 85fe | | Call 0x2,-0x2
04a5 00c8 | | Action Pop_Auxiliary_Range
04a6 3ff2 |? | Loop_Increasing 0x499
04a7 00ce | | Action Pop_Auxiliary
04a8 e5fc | | Load 0x2,-0x4
04a9 801b | | Call 0x0,0x1b
04aa e5fc | | Load 0x2,-0x4
04ab 0092 067f | | Action Push_String_Extended,0x67f ; ")"
04ad 8017 | | Call 0x0,0x17
04ae e5fc | | Load 0x2,-0x4
04af 801b | | Call 0x0,0x1b
04b0 e5fc | | Load 0x2,-0x4
04b1 0092 067f | | Action Push_String_Extended,0x67f ; ")"
04b3 8017 | | Call 0x0,0x17
04b4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04b5 0000 0000 | | .XXX[0x3]
04b7 0000 | |
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb BODY_04b8:
04bb INIT_04b8:
04bb INIT_04b8:
04bb 4609 |F | Jump_Case 0xa
04bc 7809 |x | Jump 0x4c6 ; case 0x0
04bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04be 782d |x- | Jump 0x4ec ; case 0x2
04bf 7830 |x0 | Jump 0x4f0 ; case 0x3
04c0 7835 |x5 | Jump 0x4f6 ; case 0x4
04c1 783c |x< | Jump 0x4fe ; case 0x5
04c2 7858 |xX | Jump 0x51b ; case 0x6
04c3 7844 |xD | Jump 0x508 ; case 0x7
04c4 784c |xL | Jump 0x511 ; case 0x8
04c5 7855 |xU | Jump 0x51b ; case 0x9
04c6 4800 |H | Short_Literal 0x0
04c7 00db | | Load_Top At_Offset_3
04c8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
04c9 00da | | Load_Top At_Offset_2
04ca 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
04cb 0335 | 5 | Declare_Variable Array,Duplicate
04cc 00cd | | Action Spare6_Action
04cd 00db | | Load_Top At_Offset_3
04ce 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
04cf 01d9 | | Execute Vector,Reverse_Bounds
04d0 0263 | c | Execute Discrete,Above_Bound
04d1 7005 |p | Jump_Nonzero 0x4d7
04d2 e22f | / | Load 0x1,0x2f
04d3 00d9 | | Load_Top At_Offset_1
04d4 e402 | | Load 0x2,0x2
04d5 01d6 | | Execute Vector,Field_Write
04d6 3ffb |? | Loop_Increasing 0x4d2
04d7 00db | | Load_Top At_Offset_3
04d8 00d8 | | Load_Top At_Offset_0
04d9 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
04da 00da | | Load_Top At_Offset_2
04db 01da | | Execute Vector,Bounds
04dc 00da | | Load_Top At_Offset_2
04dd 01da | | Execute Vector,Bounds
04de 00da | | Load_Top At_Offset_2
04df 027f | | Execute Discrete,Equal
04e0 7001 |p | Jump_Nonzero 0x4e2
04e1 08e0 | | Execute_Immediate Raise,0xe0
04e2 00cd | | Action Spare6_Action
04e3 027f | | Execute Discrete,Equal
04e4 7001 |p | Jump_Nonzero 0x4e6
04e5 08e0 | | Execute_Immediate Raise,0xe0
04e6 00d1 | | Pop_Control Pop_Count_1
04e7 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
04e8 00da | | Load_Top At_Offset_2
04e9 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
04ea 1c00 | | Execute_Immediate Run_Utility,0x0
04eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04ec 4801 |H | Short_Literal 0x1
04ed 4805 |H | Short_Literal 0x5
04ee 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
04ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04f0 e5fd | | Load 0x2,-0x3
04f1 00db | | Load_Top At_Offset_3
04f2 1c07 | | Execute_Immediate Run_Utility,0x7
04f3 e5fe | | Load 0x2,-0x2
04f4 0306 | | Complete_Type Variant_Record,By_Renaming
04f5 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
04f6 4801 |H | Short_Literal 0x1
04f7 4805 |H | Short_Literal 0x5
04f8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
04f9 e5fe | | Load 0x2,-0x2
04fa e5ff | | Load 0x2,-0x1
04fb 00da | | Load_Top At_Offset_2
04fc 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
04fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fe 4801 |H | Short_Literal 0x1
04ff 4801 |H | Short_Literal 0x1
0500 e5ff | | Load 0x2,-0x1
0501 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0502 e230 | 0 | Load 0x1,0x30
0503 035b | [ | Declare_Type Array,Constrained
0504 4801 |H | Short_Literal 0x1
0505 e5ff | | Load 0x2,-0x1
0506 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0507 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0508 00db | | Load_Top At_Offset_3
0509 4801 |H | Short_Literal 0x1
050a e5fe | | Load 0x2,-0x2
050b e230 | 0 | Load 0x1,0x30
050c 035b | [ | Declare_Type Array,Constrained
050d 4801 |H | Short_Literal 0x1
050e e5ff | | Load 0x2,-0x1
050f 031b | | Declare_Type Variant_Record,Constrained
0510 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0511 00db | | Load_Top At_Offset_3
0512 00db | | Load_Top At_Offset_3
0513 02fc | | Declare_Variable Variant_Record,With_Constraint
0514 4801 |H | Short_Literal 0x1
0515 e5fe | | Load 0x2,-0x2
0516 e230 | 0 | Load 0x1,0x30
0517 0334 | 4 | Declare_Variable Array,With_Constraint
0518 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
0519 016a | j | QQ_execute Variant_Record,XXX
051a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
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 4609 |F | Jump_Case 0xa
0524 7809 |x | Jump 0x52e ; case 0x0
0525 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0526 781a |x | Jump 0x541 ; case 0x2
0527 781d |x | Jump 0x545 ; case 0x3
0528 7839 |x9 | Jump 0x562 ; case 0x4
0529 7838 |x8 | Jump 0x562 ; case 0x5
052a 7837 |x7 | Jump 0x562 ; case 0x6
052b 781f |x | Jump 0x54b ; case 0x7
052c 7827 |x' | Jump 0x554 ; case 0x8
052d 7830 |x0 | Jump 0x55e ; case 0x9
052e 00da | | Load_Top At_Offset_2
052f 016c | l | Execute Variant_Record,Is_Constrained
0530 7009 |p | Jump_Nonzero 0x53a
0531 00cf | | Action Mark_Auxiliary
0532 4800 |H | Short_Literal 0x0
0533 e5ff | | Load 0x2,-0x1
0534 1c08 | | Execute_Immediate Run_Utility,0x8
0535 00d8 | | Load_Top At_Offset_0
0536 1c00 | | Execute_Immediate Run_Utility,0x0
0537 c5ff | | Store 0x2,-0x1
0538 00ce | | Action Pop_Auxiliary
0539 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
053a 00da | | Load_Top At_Offset_2
053b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
053c 1c00 | | Execute_Immediate Run_Utility,0x0
053d 00da | | Load_Top At_Offset_2
053e 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
053f 1c00 | | Execute_Immediate Run_Utility,0x0
0540 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0541 4801 |H | Short_Literal 0x1
0542 4803 |H | Short_Literal 0x3
0543 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0544 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0545 e5fd | | Load 0x2,-0x3
0546 00db | | Load_Top At_Offset_3
0547 1c07 | | Execute_Immediate Run_Utility,0x7
0548 e5fe | | Load 0x2,-0x2
0549 0306 | | Complete_Type Variant_Record,By_Renaming
054a 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
054b 00db | | Load_Top At_Offset_3
054c 4801 |H | Short_Literal 0x1
054d e5fe | | Load 0x2,-0x2
054e e212 | | Load 0x1,0x12
054f 035b | [ | Declare_Type Array,Constrained
0550 4801 |H | Short_Literal 0x1
0551 e5ff | | Load 0x2,-0x1
0552 031b | | Declare_Type Variant_Record,Constrained
0553 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0554 00db | | Load_Top At_Offset_3
0555 00db | | Load_Top At_Offset_3
0556 02fc | | Declare_Variable Variant_Record,With_Constraint
0557 4801 |H | Short_Literal 0x1
0558 e5fe | | Load 0x2,-0x2
0559 e212 | | Load 0x1,0x12
055a 0334 | 4 | Declare_Variable Array,With_Constraint
055b 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
055c 016a | j | QQ_execute Variant_Record,XXX
055d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
055e 4800 |H | Short_Literal 0x0
055f 00db | | Load_Top At_Offset_3
0560 1c07 | | Execute_Immediate Run_Utility,0x7
0561 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0562 0869 | i | Execute_Immediate Raise,0x69
0563 0000 0000 | | .BLANK 0000[0x5]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 00d1 | | Pop_Control Pop_Count_1
056c 00da | | Load_Top At_Offset_2
056d 01d8 | | Execute Vector,Element_Type
056e 02ff | | Declare_Variable Variant_Record
056f 00d8 | | Load_Top At_Offset_0
0570 1c00 | | Execute_Immediate Run_Utility,0x0
0571 00db | | Load_Top At_Offset_3
0572 01dc | | Execute Vector,Last
0573 e5ff | | Load 0x2,-0x1
0574 01dd | | Execute Vector,First
0575 0263 | c | Execute Discrete,Above_Bound
0576 7006 |p | Jump_Nonzero 0x57d
0577 00da | | Load_Top At_Offset_2
0578 00d9 | | Load_Top At_Offset_1
0579 e5ff | | Load 0x2,-0x1
057a 01d6 | | Execute Vector,Field_Write
057b 0a01 | | Execute_Immediate Plus,0x1
057c 7ff8 | | Jump 0x575
057d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
057e 0000 0000 | | .XXX[0x2]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 4609 |F | Jump_Case 0xa
0584 7809 |x | Jump 0x58e ; case 0x0
0585 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0586 7813 |x | Jump 0x59a ; case 0x2
0587 7816 |x | Jump 0x59e ; case 0x3
0588 7832 |x2 | Jump 0x5bb ; case 0x4
0589 7831 |x1 | Jump 0x5bb ; case 0x5
058a 7830 |x0 | Jump 0x5bb ; case 0x6
058b 7818 |x | Jump 0x5a4 ; case 0x7
058c 7820 |x | Jump 0x5ad ; case 0x8
058d 7829 |x) | Jump 0x5b7 ; case 0x9
058e 00da | | Load_Top At_Offset_2
058f 016c | l | Execute Variant_Record,Is_Constrained
0590 7008 |p | Jump_Nonzero 0x599
0591 00cf | | Action Mark_Auxiliary
0592 4800 |H | Short_Literal 0x0
0593 e5ff | | Load 0x2,-0x1
0594 1c08 | | Execute_Immediate Run_Utility,0x8
0595 00d8 | | Load_Top At_Offset_0
0596 1c00 | | Execute_Immediate Run_Utility,0x0
0597 c5ff | | Store 0x2,-0x1
0598 00ce | | Action Pop_Auxiliary
0599 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
059a 4801 |H | Short_Literal 0x1
059b 4802 |H | Short_Literal 0x2
059c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
059d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
059e e5fd | | Load 0x2,-0x3
059f 00db | | Load_Top At_Offset_3
05a0 1c07 | | Execute_Immediate Run_Utility,0x7
05a1 e5fe | | Load 0x2,-0x2
05a2 0306 | | Complete_Type Variant_Record,By_Renaming
05a3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
05a4 00db | | Load_Top At_Offset_3
05a5 4801 |H | Short_Literal 0x1
05a6 e5fe | | Load 0x2,-0x2
05a7 e213 | | Load 0x1,0x13
05a8 035b | [ | Declare_Type Array,Constrained
05a9 4801 |H | Short_Literal 0x1
05aa e5ff | | Load 0x2,-0x1
05ab 031b | | Declare_Type Variant_Record,Constrained
05ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05ad 00db | | Load_Top At_Offset_3
05ae 00db | | Load_Top At_Offset_3
05af 02fc | | Declare_Variable Variant_Record,With_Constraint
05b0 4801 |H | Short_Literal 0x1
05b1 e5fe | | Load 0x2,-0x2
05b2 e213 | | Load 0x1,0x13
05b3 0334 | 4 | Declare_Variable Array,With_Constraint
05b4 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
05b5 016a | j | QQ_execute Variant_Record,XXX
05b6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05b7 4800 |H | Short_Literal 0x0
05b8 00db | | Load_Top At_Offset_3
05b9 1c07 | | Execute_Immediate Run_Utility,0x7
05ba 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
05bb 0869 | i | Execute_Immediate Raise,0x69
05bc 0000 0000 | | .BLANK 0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 821a | | Call 0x1,0x1a
05c5 e00b | | Load 0x0,0xb
05c6 1c04 | | Execute_Immediate Run_Utility,0x4
05c7 00d8 | | Load_Top At_Offset_0
05c8 00e3 | | Load_Encached Natural_Cache
05c9 0260 | ` | Execute Discrete,In_Type
05ca 7001 |p | Jump_Nonzero 0x5cc
05cb 0801 | | Execute_Immediate Raise,0x1
05cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05cd 0000 0000 | | .XXX[0x3]
05cf 0000 | |
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00da | | Load_Top At_Offset_2
05d4 e00b | | Load 0x0,0xb
05d5 1c05 | | Execute_Immediate Run_Utility,0x5
05d6 00d8 | | Load_Top At_Offset_0
05d7 e00b | | Load 0x0,0xb
05d8 0122 | " | Execute Any,Make_Root_Type
05d9 0260 | ` | Execute Discrete,In_Type
05da 7001 |p | Jump_Nonzero 0x5dc
05db 0801 | | Execute_Immediate Raise,0x1
05dc 00d8 | | Load_Top At_Offset_0
05dd e00b | | Load 0x0,0xb
05de 0260 | ` | Execute Discrete,In_Type
05df 7001 |p | Jump_Nonzero 0x5e1
05e0 0801 | | Execute_Immediate Raise,0x1
05e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00db | | Load_Top At_Offset_3
05ec e22d | - | Load 0x1,0x2d
05ed 022e | . | Execute Access,Not_Equal
05ee 680a |h | Jump_Zero 0x5f9
05ef 00da | | Load_Top At_Offset_2
05f0 6806 |h | Jump_Zero 0x5f7
05f1 00da | | Load_Top At_Offset_2
05f2 e5fe | | Load 0x2,-0x2
05f3 0227 | ' | Execute Access,All_Reference
05f4 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05f5 027a | z | Execute Discrete,Less_Equal
05f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f7 4800 |H | Short_Literal 0x0
05f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f9 4800 |H | Short_Literal 0x0
05fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05fb 0000 0000 | | .BLANK 0000[0x5]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 00cf | | Action Mark_Auxiliary
0604 00db | | Load_Top At_Offset_3
0605 01d9 | | Execute Vector,Reverse_Bounds
0606 0263 | c | Execute Discrete,Above_Bound
0607 700c |p | Jump_Nonzero 0x614
0608 00d8 | | Load_Top At_Offset_0
0609 e5fe | | Load 0x2,-0x2
060a 01d7 | | Execute Vector,Field_Read
060b 00d9 | | Load_Top At_Offset_1
060c e5ff | | Load 0x2,-0x1
060d 01d5 | | Execute Vector,Field_Reference
060e 801f | | Call 0x0,0x1f
060f 7002 |p | Jump_Nonzero 0x612
0610 4800 |H | Short_Literal 0x0
0611 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0612 00c8 | | Action Pop_Auxiliary_Range
0613 3ff4 |? | Loop_Increasing 0x608
0614 00ce | | Action Pop_Auxiliary
0615 4801 |H | Short_Literal 0x1
0616 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0617 0000 | | .XXX[0x1]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061f | | .CONST 0x061f ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0002 | | .CONST 0x0002 ; Number of locals
061b INIT_0618:
061b e003 | | Load 0x0,0x3
061c 0322 | " | Declare_Variable Record
061d 00d8 | | Load_Top At_Offset_0
061e 1c00 | | Execute_Immediate Run_Utility,0x0
061f BODY_0618:
061f 00db | | Load_Top At_Offset_3
0620 800c | | Call 0x0,0xc
0621 6808 |h | Jump_Zero 0x62a
0622 00db | | Load_Top At_Offset_3
0623 8216 | | Call 0x1,0x16
0624 00d9 | | Load_Top At_Offset_1
0625 017d | } | Execute Record,Structure_Write
0626 e5fe | | Load 0x2,-0x2
0627 00d9 | | Load_Top At_Offset_1
0628 8227 | ' | Call 0x1,0x27
0629 4503 |E | Exit_Suprogram New_Top_Offset 0x3
062a e5fe | | Load 0x2,-0x2
062b e5ff | | Load 0x2,-0x1
062c 8020 | | Call 0x0,0x20
062d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
062e 0000 0000 | | .XXX[0x2]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0635 | 5 | .CONST 0x0635 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 00e1 | | Load_Encached Boolean_Cache
0634 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0635 BODY_0630:
0635 00cf | | Action Mark_Auxiliary
0636 e5ff | | Load 0x2,-0x1
0637 01d9 | | Execute Vector,Reverse_Bounds
0638 0263 | c | Execute Discrete,Above_Bound
0639 7019 |p | Jump_Nonzero 0x653
063a 00db | | Load_Top At_Offset_3
063b 6803 |h | Jump_Zero 0x63f
063c 4800 |H | Short_Literal 0x0
063d a402 | | Store_Unchecked 0x2,0x2
063e 7804 |x | Jump 0x643
063f e5fd | | Load 0x2,-0x3
0640 0092 0687 | | Action Push_String_Extended,0x687 ; ","
0642 8017 | | Call 0x0,0x17
0643 e5fd | | Load 0x2,-0x3
0644 00d9 | | Load_Top At_Offset_1
0645 e5fe | | Load 0x2,-0x2
0646 01d7 | | Execute Vector,Field_Read
0647 8013 | | Call 0x0,0x13
0648 0092 0686 | | Action Push_String_Extended,0x686 ; " => "
064a 01cc | | Execute Vector,Catenate
064b 801e | | Call 0x0,0x1e
064c e5fd | | Load 0x2,-0x3
064d 00d9 | | Load_Top At_Offset_1
064e e5ff | | Load 0x2,-0x1
064f 01d5 | | Execute Vector,Field_Reference
0650 8236 | 6 | Call 0x1,0x36
0651 00c8 | | Action Pop_Auxiliary_Range
0652 3fe7 |? | Loop_Increasing 0x63a
0653 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0654 0000 0000 | | .BLANK 0000[0x4]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00db | | Load_Top At_Offset_3
065c e22f | / | Load 0x1,0x2f
065d 016e | n | Execute Variant_Record,Not_Equal
065e 681e |h | Jump_Zero 0x67d
065f e5fd | | Load 0x2,-0x3
0660 00db | | Load_Top At_Offset_3
0661 0227 | ' | Execute Access,All_Reference
0662 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0663 e00b | | Load 0x0,0xb
0664 1c04 | | Execute_Immediate Run_Utility,0x4
0665 e00b | | Load 0x0,0xb
0666 0122 | " | Execute Any,Make_Root_Type
0667 011c | | Execute Any,Convert_Unchecked
0668 1c01 | | Execute_Immediate Run_Utility,0x1
0669 0092 067e | ~| Action Push_String_Extended,0x67e ; "'("
066b 01cc | | Execute Vector,Catenate
066c 8017 | | Call 0x0,0x17
066d e5fd | | Load 0x2,-0x3
066e 8018 | | Call 0x0,0x18
066f e5fd | | Load 0x2,-0x3
0670 00db | | Load_Top At_Offset_3
0671 0227 | ' | Execute Access,All_Reference
0672 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0673 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0674 e5fe | | Load 0x2,-0x2
0675 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0676 8237 | 7 | Call 0x1,0x37
0677 e5fd | | Load 0x2,-0x3
0678 801b | | Call 0x0,0x1b
0679 e5fd | | Load 0x2,-0x3
067a 0092 067f | | Action Push_String_Extended,0x67f ; ")"
067c 8017 | | Call 0x0,0x17
067d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
067e ; --------------------------------------------------------------------------------------
067e ; STRING TABLE
067e ; --------------------------------------------------------------------------------------
067e 0016 | | .STRTAB 0x0016->0x0689 ; "'("
067f 0016 | | .STRTAB 0x0016->0x068a ; ")"
0680 0015 | | .STRTAB 0x0015->0x068a ; "null_object"
0681 001e | | .STRTAB 0x001e->0x0690 ; "Collection'("
0682 0028 | ( | .STRTAB 0x0028->0x0696 ; "Class'("
0683 002d | - | .STRTAB 0x002d->0x0699 ; "Kind => "
0684 0038 | 8 | .STRTAB 0x0038->0x06a0 ; "Size => "
0685 0043 | C | .STRTAB 0x0043->0x06a6 ; "Instances => Collection'("
0686 005a | Z | .STRTAB 0x005a->0x06b3 ; " => "
0687 005c | \ | .STRTAB 0x005c->0x06b5 ; ","
0688 005b | [ | .STREND 0x005b->0x06b5
0689 2728 296e |'()n| .STRTAB_STRINGS
06b6 0000 0000 | | .XXX[0x2]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; Debug Table
06b8 ; --------------------------------------------------------------------------------------
06b8 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad81,0x0000,0x0001,0x0027
06be 000b 075a | Z| .DBG4T 0x000b,0x075a,0x0000,0x0000
06c2 007b 0784 | { | .DBG4T 0x007b,0x0784,0x0000,0x0000
06c6 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000
06ca 014b 07aa | K | .DBG4T 0x014b,0x07aa,0x0002,0x0000
06ce 015b 0000 | [ | .DBG4T 0x015b,0x0000,0x0005,0x0000
06d2 0173 07ad | s | .DBG4T 0x0173,0x07ad,0x0002,0x0000
06d6 01ab 07ba | | .DBG4T 0x01ab,0x07ba,0x0002,0x0000
06da 01b3 07bd | | .DBG4T 0x01b3,0x07bd,0x0002,0x0000
06de 01bb 07c0 | | .DBG4T 0x01bb,0x07c0,0x0002,0x0000
06e2 01cb 07c3 | | .DBG4T 0x01cb,0x07c3,0x0002,0x0000
06e6 01d3 07c6 | | .DBG4T 0x01d3,0x07c6,0x0002,0x0000
06ea 01e3 07c9 | | .DBG4T 0x01e3,0x07c9,0x0002,0x0000
06ee 01fb 07ce | | .DBG4T 0x01fb,0x07ce,0x0002,0x0000
06f2 0203 07d1 | | .DBG4T 0x0203,0x07d1,0x0002,0x0000
06f6 024b 07d4 | K | .DBG4T 0x024b,0x07d4,0x0001,0x0000
06fa 026b 07d8 | k | .DBG4T 0x026b,0x07d8,0x0002,0x0000
06fe 027b 07dd | { | .DBG4T 0x027b,0x07dd,0x0002,0x0000
0702 0293 07e1 | | .DBG4T 0x0293,0x07e1,0x0002,0x0000
0706 02ab 07e6 | | .DBG4T 0x02ab,0x07e6,0x0002,0x0000
070a 02c3 07eb | | .DBG4T 0x02c3,0x07eb,0x0002,0x0000
070e 02e3 07f2 | | .DBG4T 0x02e3,0x07f2,0x0001,0x0000
0712 0343 0805 | C | .DBG4T 0x0343,0x0805,0x0001,0x0000
0716 037b 0811 | { | .DBG4T 0x037b,0x0811,0x0001,0x0000
071a 03b3 0818 | | .DBG4T 0x03b3,0x0818,0x0001,0x0000
071e 03d3 081f | | .DBG4T 0x03d3,0x081f,0x0001,0x0000
0722 041b 082d | -| .DBG4T 0x041b,0x082d,0x0001,0x0000
0726 0443 0837 | C 7| .DBG4T 0x0443,0x0837,0x0001,0x0000
072a 046b 083b | k ;| .DBG4T 0x046b,0x083b,0x2801,0x0002
072e 04bb 0000 | | .DBG4T 0x04bb,0x0000,0x0005,0x0000
0732 0523 0000 | # | .DBG4T 0x0523,0x0000,0x0005,0x0000
0736 056b 0000 | k | .DBG4T 0x056b,0x0000,0x0005,0x0000
073a 0583 0000 | | .DBG4T 0x0583,0x0000,0x0005,0x0000
073e 05c3 084c | L| .DBG4T 0x05c3,0x084c,0x0002,0x0000
0742 05d3 084f | O| .DBG4T 0x05d3,0x084f,0x0002,0x0000
0746 05eb 0852 | R| .DBG4T 0x05eb,0x0852,0x0002,0x0000
074a 0603 0855 | U| .DBG4T 0x0603,0x0855,0x0002,0x0000
074e 061b 085b | [| .DBG4T 0x061b,0x085b,0x0001,0x0000
0752 0633 0862 | 3 b| .DBG4T 0x0633,0x0862,0x0001,0x0000
0756 065b 086b | [ k| .DBG4T 0x065b,0x086b,0x0001,0x0000
075a ; --------------------------------------------------------------------------------------
075a ; Debug chain
075a ; --------------------------------------------------------------------------------------
075a 0028 0000 | ( | .DBGLEN 0x0028,0x0000
075c 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,0x0059,0x005b,0x005d,0x0067,0x0068,0x0073,0x0077
0784 ; --------------------------------------------------------------------------------------
0784 ; Debug chain
0784 ; --------------------------------------------------------------------------------------
0784 0024 0000 | $ | .DBGLEN 0x0024,0x0000
0786 007b 008e | { | .DBGLNO 0x007b,0x008e,0x00b4,0x00bb,0x00cd,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,0x0111,0x0113,0x0115,0x0117,0x0119
07aa ; --------------------------------------------------------------------------------------
07aa ; Debug chain
07aa ; --------------------------------------------------------------------------------------
07aa 0000 0001 | | .DBGLEN 0x0000,0x0001
07ac 014b | K | .DBGLNO 0x014b
07ad ; --------------------------------------------------------------------------------------
07ad ; Debug chain
07ad ; --------------------------------------------------------------------------------------
07ad 0002 0009 | | .DBGLEN 0x0002,0x0009
07af 0173 0176 | s v| .DBGLNO 0x0173,0x0176,0x0179,0x0180,0x0184,0x0189,0x0191,0x0193,0x019b,0x01a0,0x01a2
07ba ; --------------------------------------------------------------------------------------
07ba ; Debug chain
07ba ; --------------------------------------------------------------------------------------
07ba 0000 0001 | | .DBGLEN 0x0000,0x0001
07bc 01ab | | .DBGLNO 0x01ab
07bd ; --------------------------------------------------------------------------------------
07bd ; Debug chain
07bd ; --------------------------------------------------------------------------------------
07bd 0000 0001 | | .DBGLEN 0x0000,0x0001
07bf 01b3 | | .DBGLNO 0x01b3
07c0 ; --------------------------------------------------------------------------------------
07c0 ; Debug chain
07c0 ; --------------------------------------------------------------------------------------
07c0 0000 0001 | | .DBGLEN 0x0000,0x0001
07c2 01bb | | .DBGLNO 0x01bb
07c3 ; --------------------------------------------------------------------------------------
07c3 ; Debug chain
07c3 ; --------------------------------------------------------------------------------------
07c3 0000 0001 | | .DBGLEN 0x0000,0x0001
07c5 01cb | | .DBGLNO 0x01cb
07c6 ; --------------------------------------------------------------------------------------
07c6 ; Debug chain
07c6 ; --------------------------------------------------------------------------------------
07c6 0000 0001 | | .DBGLEN 0x0000,0x0001
07c8 01d3 | | .DBGLNO 0x01d3
07c9 ; --------------------------------------------------------------------------------------
07c9 ; Debug chain
07c9 ; --------------------------------------------------------------------------------------
07c9 0000 0003 | | .DBGLEN 0x0000,0x0003
07cb 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01f0
07ce ; --------------------------------------------------------------------------------------
07ce ; Debug chain
07ce ; --------------------------------------------------------------------------------------
07ce 0000 0001 | | .DBGLEN 0x0000,0x0001
07d0 01fb | | .DBGLNO 0x01fb
07d1 ; --------------------------------------------------------------------------------------
07d1 ; Debug chain
07d1 ; --------------------------------------------------------------------------------------
07d1 0000 0001 | | .DBGLEN 0x0000,0x0001
07d3 0203 | | .DBGLNO 0x0203
07d4 ; --------------------------------------------------------------------------------------
07d4 ; Debug chain
07d4 ; --------------------------------------------------------------------------------------
07d4 0000 0002 | | .DBGLEN 0x0000,0x0002
07d6 024b 024f | K O| .DBGLNO 0x024b,0x024f
07d8 ; --------------------------------------------------------------------------------------
07d8 ; Debug chain
07d8 ; --------------------------------------------------------------------------------------
07d8 0001 0002 | | .DBGLEN 0x0001,0x0002
07da 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0274
07dd ; --------------------------------------------------------------------------------------
07dd ; Debug chain
07dd ; --------------------------------------------------------------------------------------
07dd 0001 0001 | | .DBGLEN 0x0001,0x0001
07df 027b 027f | { | .DBGLNO 0x027b,0x027f
07e1 ; --------------------------------------------------------------------------------------
07e1 ; Debug chain
07e1 ; --------------------------------------------------------------------------------------
07e1 0002 0001 | | .DBGLEN 0x0002,0x0001
07e3 0293 0297 | | .DBGLNO 0x0293,0x0297,0x029b
07e6 ; --------------------------------------------------------------------------------------
07e6 ; Debug chain
07e6 ; --------------------------------------------------------------------------------------
07e6 0002 0001 | | .DBGLEN 0x0002,0x0001
07e8 02ab 02af | | .DBGLNO 0x02ab,0x02af,0x02b3
07eb ; --------------------------------------------------------------------------------------
07eb ; Debug chain
07eb ; --------------------------------------------------------------------------------------
07eb 0002 0003 | | .DBGLEN 0x0002,0x0003
07ed 02c3 02c7 | | .DBGLNO 0x02c3,0x02c7,0x02cb,0x02cf,0x02d1
07f2 ; --------------------------------------------------------------------------------------
07f2 ; Debug chain
07f2 ; --------------------------------------------------------------------------------------
07f2 0006 000b | | .DBGLEN 0x0006,0x000b
07f4 02e3 02e7 | | .DBGLNO 0x02e3,0x02e7,0x02eb,0x02f1,0x02f2,0x02f6,0x02fa,0x02fe,0x0302,0x0308,0x0325,0x0327,0x032b,0x032d,0x0332,0x0336,0x033a
0805 ; --------------------------------------------------------------------------------------
0805 ; Debug chain
0805 ; --------------------------------------------------------------------------------------
0805 0004 0006 | | .DBGLEN 0x0004,0x0006
0807 0343 0347 | C G| .DBGLNO 0x0343,0x0347,0x034b,0x034f,0x0353,0x0357,0x035b,0x035f,0x0363,0x036b
0811 ; --------------------------------------------------------------------------------------
0811 ; Debug chain
0811 ; --------------------------------------------------------------------------------------
0811 0003 0002 | | .DBGLEN 0x0003,0x0002
0813 037b 037f | { | .DBGLNO 0x037b,0x037f,0x0383,0x0387,0x038a
0818 ; --------------------------------------------------------------------------------------
0818 ; Debug chain
0818 ; --------------------------------------------------------------------------------------
0818 0003 0002 | | .DBGLEN 0x0003,0x0002
081a 03b3 03b7 | | .DBGLNO 0x03b3,0x03b7,0x03bb,0x03bf,0x03c2
081f ; --------------------------------------------------------------------------------------
081f ; Debug chain
081f ; --------------------------------------------------------------------------------------
081f 0003 0009 | | .DBGLEN 0x0003,0x0009
0821 03d3 03d7 | | .DBGLNO 0x03d3,0x03d7,0x03db,0x03e1,0x03e5,0x03f3,0x03f5,0x0401,0x0404,0x0407,0x0409,0x040e
082d ; --------------------------------------------------------------------------------------
082d ; Debug chain
082d ; --------------------------------------------------------------------------------------
082d 0000 0008 | | .DBGLEN 0x0000,0x0008
082f 041b 041f | | .DBGLNO 0x041b,0x041f,0x0421,0x0425,0x0429,0x0431,0x0433,0x0436
0837 ; --------------------------------------------------------------------------------------
0837 ; Debug chain
0837 ; --------------------------------------------------------------------------------------
0837 0001 0001 | | .DBGLEN 0x0001,0x0001
0839 0443 0453 | C S| .DBGLNO 0x0443,0x0453
083b ; --------------------------------------------------------------------------------------
083b ; Debug chain
083b ; --------------------------------------------------------------------------------------
083b 0000 000f | | .DBGLEN 0x0000,0x000f
083d 046b 046f | k o| .DBGLNO 0x046b,0x046f,0x0473,0x0475,0x0483,0x048d,0x0491,0x0494,0x0499,0x049c,0x04a0,0x04a8,0x04aa,0x04ae,0x04b0
084c ; --------------------------------------------------------------------------------------
084c ; Debug chain
084c ; --------------------------------------------------------------------------------------
084c 0000 0001 | | .DBGLEN 0x0000,0x0001
084e 05c3 | | .DBGLNO 0x05c3
084f ; --------------------------------------------------------------------------------------
084f ; Debug chain
084f ; --------------------------------------------------------------------------------------
084f 0000 0001 | | .DBGLEN 0x0000,0x0001
0851 05d3 | | .DBGLNO 0x05d3
0852 ; --------------------------------------------------------------------------------------
0852 ; Debug chain
0852 ; --------------------------------------------------------------------------------------
0852 0000 0001 | | .DBGLEN 0x0000,0x0001
0854 05eb | | .DBGLNO 0x05eb
0855 ; --------------------------------------------------------------------------------------
0855 ; Debug chain
0855 ; --------------------------------------------------------------------------------------
0855 0000 0004 | | .DBGLEN 0x0000,0x0004
0857 0604 0608 | | .DBGLNO 0x0604,0x0608,0x0610,0x0615
085b ; --------------------------------------------------------------------------------------
085b ; Debug chain
085b ; --------------------------------------------------------------------------------------
085b 0001 0004 | | .DBGLEN 0x0001,0x0004
085d 061b 061f | | .DBGLNO 0x061b,0x061f,0x0622,0x0626,0x062a
0862 ; --------------------------------------------------------------------------------------
0862 ; Debug chain
0862 ; --------------------------------------------------------------------------------------
0862 0001 0006 | | .DBGLEN 0x0001,0x0006
0864 0633 0636 | 3 6| .DBGLNO 0x0633,0x0636,0x063a,0x063c,0x063f,0x0643,0x064c
086b ; --------------------------------------------------------------------------------------
086b ; Debug chain
086b ; --------------------------------------------------------------------------------------
086b 0000 0006 | | .DBGLEN 0x0000,0x0006
086d 065b 065f | [ _| .DBGLNO 0x065b,0x065f,0x066d,0x066f,0x0677,0x0679
0873 0000 0000 | | .BLANK 0000[0x18d]