|
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: 6144 (0x1800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 0848 | H | .CONST 0x0848 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00be | | .CONST 0x00be ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0038 | 8 | .CONST 0x0038 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 4803 |H | Short_Literal 0x3
0012 4800 |H | Short_Literal 0x0
0013 4801 |H | Short_Literal 0x1
0014 4807 |H | Short_Literal 0x7
0015 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0016 029f 06eb | | Declare_Subprogram INIT_06e8,For_Call
0018 00d9 | | Load_Top At_Offset_1
0019 012a | * | Execute Any,Change_Utility
001a 0007 | | Action Break_Optional
001b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001d 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
001f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0021 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0023 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0025 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0027 4800 |H | Short_Literal 0x0
0028 4804 |H | Short_Literal 0x4
0029 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
002b 03fe | | Declare_Type Discrete,Defined,Visible
002c 00d8 | | Load_Top At_Offset_0
002d 4803 |H | Short_Literal 0x3
002e 4800 |H | Short_Literal 0x0
002f 4801 |H | Short_Literal 0x1
0030 4805 |H | Short_Literal 0x5
0031 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0032 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
0034 00d9 | | Load_Top At_Offset_1
0035 012a | * | Execute Any,Change_Utility
0036 0007 | | Action Break_Optional
0037 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0039 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
003b 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
003d 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0044 c21c | | Store 0x1,0x1c
0045 e001 | | Load 0x0,0x1
0046 0129 | ) | Execute Any,Make_Visible
0047 c21b | | Store 0x1,0x1b
0048 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
004a c21d | | Store 0x1,0x1d
004b e002 | | Load 0x0,0x2
004c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
004d 4801 |H | Short_Literal 0x1
004e 00e3 | | Load_Encached Natural_Cache
004f 4802 |H | Short_Literal 0x2
0050 00e5 | | Load_Encached Long_Integer_Cache
0051 00e5 | | Load_Encached Long_Integer_Cache
0052 4802 |H | Short_Literal 0x2
0053 00e6 | | Load_Encached Float_Cache
0054 00e6 | | Load_Encached Float_Cache
0055 029f 06eb | | Declare_Subprogram INIT_06e8,For_Call
0057 4805 |H | Short_Literal 0x5
0058 4801 |H | Short_Literal 0x1
0059 e20e | | Load 0x1,0xe
005a 0307 | | Complete_Type Variant_Record,By_Defining
005b e002 | | Load 0x0,0x2
005c 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
005d 4801 |H | Short_Literal 0x1
005e 00e3 | | Load_Encached Natural_Cache
005f 4801 |H | Short_Literal 0x1
0060 00e5 | | Load_Encached Long_Integer_Cache
0061 4801 |H | Short_Literal 0x1
0062 00e6 | | Load_Encached Float_Cache
0063 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
0065 4803 |H | Short_Literal 0x3
0066 4801 |H | Short_Literal 0x1
0067 e216 | | Load 0x1,0x16
0068 0307 | | Complete_Type Variant_Record,By_Defining
0069 00bf | | Action Accept_Activation
006a e003 | | Load 0x0,0x3
006b e004 | | Load 0x0,0x4
006c 00e6 | | Load_Encached Float_Cache
006d e005 | | Load 0x0,0x5
006e 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
006f 0387 | | Declare_Variable Package
0070 00d8 | | Load_Top At_Offset_0
0071 020f | | Execute Module,Activate
0072 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call
0074 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
0076 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
0078 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
007a 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
007c e006 | | Load 0x0,0x6
007d 190e | | Execute Package,Field_Reference,Field_Number 0xe
007e 00c6 | | Action Check_Subprogram_Elaborated
007f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0080 e007 | | Load 0x0,0x7
0081 e008 | | Load 0x0,0x8
0082 4800 |H | Short_Literal 0x0
0083 0007 | | Action Break_Optional
0084 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
0086 e006 | | Load 0x0,0x6
0087 190f | | Execute Package,Field_Reference,Field_Number 0xf
0088 00c6 | | Action Check_Subprogram_Elaborated
0089 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
008a e009 | | Load 0x0,0x9
008b e00a | | Load 0x0,0xa
008c 4800 |H | Short_Literal 0x0
008d 0007 | | Action Break_Optional
008e 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
0090 e006 | | Load 0x0,0x6
0091 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0092 00c6 | | Action Check_Subprogram_Elaborated
0093 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0094 e00b | | Load 0x0,0xb
0095 e00c | | Load 0x0,0xc
0096 4800 |H | Short_Literal 0x0
0097 0007 | | Action Break_Optional
0098 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
009a 029d 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call
009c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009d 00c7 | | Action Elaborate_Subprogram
009e 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call
00a0 029d 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call
00a2 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
00a4 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a5 00c7 | | Action Elaborate_Subprogram
00a6 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
00a8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a9 00c7 | | Action Elaborate_Subprogram
00aa 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
00ac 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bd 00c7 | | Action Elaborate_Subprogram
00be BODY_0008:
00be 00bc | | Action Signal_Activated
00bf 00bb | | Action Signal_Completion
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4607 |F | Jump_Case 0x8
00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00c5 7806 |x | Jump 0xcc ; case 0x1
00c6 7809 |x | Jump 0xd0 ; case 0x2
00c7 780d |x | Jump 0xd5 ; case 0x3
00c8 7810 |x | Jump 0xd9 ; case 0x4
00c9 7811 |x | Jump 0xdb ; case 0x5
00ca 7812 |x | Jump 0xdd ; case 0x6
00cb 7815 |x | Jump 0xe1 ; case 0x7
00cc 00da | | Load_Top At_Offset_2
00cd 0091 0787 | | Action Push_String_Extended_Indexed,0x787 ; "A_STRING_OBJECT"
00cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d0 00db | | Load_Top At_Offset_3
00d1 00db | | Load_Top At_Offset_3
00d2 00e0 | | Load_Encached Standard_Cache
00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d5 00da | | Load_Top At_Offset_2
00d6 00e0 | | Load_Encached Standard_Cache
00d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db | | Load_Top At_Offset_3
00da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00db 00db | | Load_Top At_Offset_3
00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00dd e20d | | Load 0x1,0xd
00de 00dc | | Load_Top At_Offset_4
00df 0267 | g | Execute Discrete,Predecessor
00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e1 e20d | | Load 0x1,0xd
00e2 00dc | | Load_Top At_Offset_4
00e3 0268 | h | Execute Discrete,Successor
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ff | | .CONST 0x00ff ; Address of begin
00e9 01db | | .CONST 0x01db ; Address of exception handler
00ea 0009 | | .CONST 0x0009 ; Number of locals
00eb INIT_00e8:
00eb e002 | | Load 0x0,0x2
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 02c7 | | Declare_Variable Any
00ee 00d8 | | Load_Top At_Offset_0
00ef 1c00 | | Execute_Immediate Run_Utility,0x0
00f0 e002 | | Load 0x0,0x2
00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f2 02c7 | | Declare_Variable Any
00f3 00d8 | | Load_Top At_Offset_0
00f4 1c00 | | Execute_Immediate Run_Utility,0x0
00f5 00e1 | | Load_Encached Boolean_Cache
00f6 00e5 | | Load_Encached Long_Integer_Cache
00f7 03e9 | | Declare_Variable Discrete,Duplicate
00f8 00e6 | | Load_Encached Float_Cache
00f9 03d8 | | Declare_Variable Float,Duplicate
00fa e00d | | Load 0x0,0xd
00fb 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
00fc 02c7 | | Declare_Variable Any
00fd 00d8 | | Load_Top At_Offset_0
00fe 1c00 | | Execute_Immediate Run_Utility,0x0
00ff BODY_00e8:
00ff e5ff | | Load 0x2,-0x1
0100 e00e | | Load 0x0,0xe
0101 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0102 7004 |p | Jump_Nonzero 0x107
0103 e5ff | | Load 0x2,-0x1
0104 e00e | | Load 0x0,0xe
0105 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0106 680c |h | Jump_Zero 0x113
0107 e5ff | | Load 0x2,-0x1
0108 e00e | | Load 0x0,0xe
0109 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
010a c402 | | Store 0x2,0x2
010b 4801 |H | Short_Literal 0x1
010c e402 | | Load 0x2,0x2
010d e002 | | Load 0x0,0x2
010e 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
010f e00e | | Load 0x0,0xe
0110 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0111 c403 | | Store 0x2,0x3
0112 7808 |x | Jump 0x11b
0113 e5ff | | Load 0x2,-0x1
0114 e00e | | Load 0x0,0xe
0115 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0116 c402 | | Store 0x2,0x2
0117 e402 | | Load 0x2,0x2
0118 e00d | | Load 0x0,0xd
0119 181e | | Execute Package,Field_Execute,Field_Number 0x1e
011a c403 | | Store 0x2,0x3
011b 00cf | | Action Mark_Auxiliary
011c e403 | | Load 0x2,0x3
011d e00d | | Load 0x0,0xd
011e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
011f 460c |F | Jump_Case 0xd
0120 780f |x | Jump 0x130 ; case 0x0
0121 780b |x | Jump 0x12d ; case 0x1
0122 7868 |xh | Jump 0x18b ; case 0x2
0123 7887 |x | Jump 0x1ab ; case 0x3
0124 7808 |x | Jump 0x12d ; case 0x4
0125 78a5 |x | Jump 0x1cb ; case 0x5
0126 7806 |x | Jump 0x12d ; case 0x6
0127 7805 |x | Jump 0x12d ; case 0x7
0128 78a5 |x | Jump 0x1ce ; case 0x8
0129 7803 |x | Jump 0x12d ; case 0x9
012a 78aa |x | Jump 0x1d5 ; case 0xa
012b 78a9 |x | Jump 0x1d5 ; case 0xb
012c 7800 |x | Jump 0x12d ; case 0xc
012d e5ff | | Load 0x2,-0x1
012e 821f | | Call 0x1,0x1f
012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0130 e403 | | Load 0x2,0x3
0131 e00d | | Load 0x0,0xd
0132 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0133 c409 | | Store 0x2,0x9
0134 00d9 | | Load_Top At_Offset_1
0135 e00d | | Load 0x0,0xd
0136 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0137 4606 |F | Jump_Case 0x7
0138 782c |x, | Jump 0x165 ; case 0x0
0139 782f |x/ | Jump 0x169 ; case 0x1
013a 7807 |x | Jump 0x142 ; case 0x2
013b 7826 |x& | Jump 0x162 ; case 0x3
013c 784a |xJ | Jump 0x187 ; case 0x4
013d 7801 |x | Jump 0x13f ; case 0x5
013e 7800 |x | Jump 0x13f ; case 0x6
013f e5ff | | Load 0x2,-0x1
0140 821f | | Call 0x1,0x1f
0141 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0142 00e1 | | Load_Encached Boolean_Cache
0143 e407 | | Load 0x2,0x7
0144 e408 | | Load 0x2,0x8
0145 e403 | | Load 0x2,0x3
0146 e00d | | Load 0x0,0xd
0147 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0148 e00f | | Load 0x0,0xf
0149 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014a c408 | | Store 0x2,0x8
014b c407 | | Store 0x2,0x7
014c c404 | | Store 0x2,0x4
014d e404 | | Load 0x2,0x4
014e 6810 |h | Jump_Zero 0x15f
014f 4802 |H | Short_Literal 0x2
0150 e20e | | Load 0x1,0xe
0151 1c08 | | Execute_Immediate Run_Utility,0x8
0152 e5ff | | Load 0x2,-0x1
0153 e20e | | Load 0x1,0xe
0154 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0155 0119 | | Execute Any,Check_In_Formal_Type
0156 00d9 | | Load_Top At_Offset_1
0157 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0158 00db | | Load_Top At_Offset_3
0159 00d9 | | Load_Top At_Offset_1
015a 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
015b e407 | | Load 0x2,0x7
015c 00d9 | | Load_Top At_Offset_1
015d 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015f e5ff | | Load 0x2,-0x1
0160 821f | | Call 0x1,0x1f
0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0162 e5ff | | Load 0x2,-0x1
0163 821f | | Call 0x1,0x1f
0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0165 e5ff | | Load 0x2,-0x1
0166 00da | | Load_Top At_Offset_2
0167 8232 | 2 | Call 0x1,0x32
0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0169 00e1 | | Load_Encached Boolean_Cache
016a e405 | | Load 0x2,0x5
016b e406 | | Load 0x2,0x6
016c e403 | | Load 0x2,0x3
016d e00f | | Load 0x0,0xf
016e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
016f c406 | | Store 0x2,0x6
0170 c405 | | Store 0x2,0x5
0171 c404 | | Store 0x2,0x4
0172 e404 | | Load 0x2,0x4
0173 6810 |h | Jump_Zero 0x184
0174 4801 |H | Short_Literal 0x1
0175 e20e | | Load 0x1,0xe
0176 1c08 | | Execute_Immediate Run_Utility,0x8
0177 e5ff | | Load 0x2,-0x1
0178 e20e | | Load 0x1,0xe
0179 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
017a 0119 | | Execute Any,Check_In_Formal_Type
017b 00d9 | | Load_Top At_Offset_1
017c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
017d e406 | | Load 0x2,0x6
017e 00d9 | | Load_Top At_Offset_1
017f 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0180 e405 | | Load 0x2,0x5
0181 00d9 | | Load_Top At_Offset_1
0182 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0183 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0184 e5ff | | Load 0x2,-0x1
0185 821f | | Call 0x1,0x1f
0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0187 e5ff | | Load 0x2,-0x1
0188 00da | | Load_Top At_Offset_2
0189 8233 | 3 | Call 0x1,0x33
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 00e1 | | Load_Encached Boolean_Cache
018c e405 | | Load 0x2,0x5
018d e406 | | Load 0x2,0x6
018e e403 | | Load 0x2,0x3
018f e00d | | Load 0x0,0xd
0190 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0191 e00f | | Load 0x0,0xf
0192 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0193 c406 | | Store 0x2,0x6
0194 c405 | | Store 0x2,0x5
0195 c404 | | Store 0x2,0x4
0196 e404 | | Load 0x2,0x4
0197 6810 |h | Jump_Zero 0x1a8
0198 4801 |H | Short_Literal 0x1
0199 e20e | | Load 0x1,0xe
019a 1c08 | | Execute_Immediate Run_Utility,0x8
019b e5ff | | Load 0x2,-0x1
019c e20e | | Load 0x1,0xe
019d 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
019e 0119 | | Execute Any,Check_In_Formal_Type
019f 00d9 | | Load_Top At_Offset_1
01a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a1 e406 | | Load 0x2,0x6
01a2 00d9 | | Load_Top At_Offset_1
01a3 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01a4 e405 | | Load 0x2,0x5
01a5 00d9 | | Load_Top At_Offset_1
01a6 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a8 e5ff | | Load 0x2,-0x1
01a9 821f | | Call 0x1,0x1f
01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ab 00e1 | | Load_Encached Boolean_Cache
01ac e407 | | Load 0x2,0x7
01ad e408 | | Load 0x2,0x8
01ae e403 | | Load 0x2,0x3
01af e00d | | Load 0x0,0xd
01b0 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
01b1 e00f | | Load 0x0,0xf
01b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01b3 c408 | | Store 0x2,0x8
01b4 c407 | | Store 0x2,0x7
01b5 c404 | | Store 0x2,0x4
01b6 e404 | | Load 0x2,0x4
01b7 6810 |h | Jump_Zero 0x1c8
01b8 4802 |H | Short_Literal 0x2
01b9 e20e | | Load 0x1,0xe
01ba 1c08 | | Execute_Immediate Run_Utility,0x8
01bb e5ff | | Load 0x2,-0x1
01bc e20e | | Load 0x1,0xe
01bd 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
01be 0119 | | Execute Any,Check_In_Formal_Type
01bf 00d9 | | Load_Top At_Offset_1
01c0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c1 00db | | Load_Top At_Offset_3
01c2 00d9 | | Load_Top At_Offset_1
01c3 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01c4 e407 | | Load 0x2,0x7
01c5 00d9 | | Load_Top At_Offset_1
01c6 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c8 e5ff | | Load 0x2,-0x1
01c9 821f | | Call 0x1,0x1f
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb e403 | | Load 0x2,0x3
01cc 8222 | " | Call 0x1,0x22
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce e403 | | Load 0x2,0x3
01cf e00d | | Load 0x0,0xd
01d0 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
01d1 e00d | | Load 0x0,0xd
01d2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01d3 c403 | | Store 0x2,0x3
01d4 7804 |x | Jump 0x1d9
01d5 e403 | | Load 0x2,0x3
01d6 e00e | | Load 0x0,0xe
01d7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01d8 c403 | | Store 0x2,0x3
01d9 00c9 | | Action Pop_Auxiliary_Loop
01da 7f41 | A | Jump 0x11c
01db TRAP_00e8:
01db 0007 | | Action Break_Optional
01dc e5ff | | Load 0x2,-0x1
01dd 821f | | Call 0x1,0x1f
01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01df 0000 | | .XXX[0x1]
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 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e5 4604 |F | Jump_Case 0x5
01e6 7806 |x | Jump 0x1ed ; case 0x0
01e7 7805 |x | Jump 0x1ed ; case 0x1
01e8 7802 |x | Jump 0x1eb ; case 0x2
01e9 7803 |x | Jump 0x1ed ; case 0x3
01ea 7800 |x | Jump 0x1eb ; case 0x4
01eb e21b | | Load 0x1,0x1b
01ec 0257 | W | Execute Discrete,Raise
01ed 00da | | Load_Top At_Offset_2
01ee 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f5 4604 |F | Jump_Case 0x5
01f6 7806 |x | Jump 0x1fd ; case 0x0
01f7 7805 |x | Jump 0x1fd ; case 0x1
01f8 7802 |x | Jump 0x1fb ; case 0x2
01f9 7803 |x | Jump 0x1fd ; case 0x3
01fa 7800 |x | Jump 0x1fb ; case 0x4
01fb e21b | | Load 0x1,0x1b
01fc 0257 | W | Execute Discrete,Raise
01fd 00da | | Load_Top At_Offset_2
01fe 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2
0204 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0205 0f02 | | Execute_Immediate Equal,0x2
0206 7002 |p | Jump_Nonzero 0x209
0207 e21b | | Load 0x1,0x1b
0208 0257 | W | Execute Discrete,Raise
0209 00da | | Load_Top At_Offset_2
020a 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0215 0f02 | | Execute_Immediate Equal,0x2
0216 7002 |p | Jump_Nonzero 0x219
0217 e21b | | Load 0x1,0x1b
0218 0257 | W | Execute Discrete,Raise
0219 00da | | Load_Top At_Offset_2
021a 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0225 4604 |F | Jump_Case 0x5
0226 7806 |x | Jump 0x22d ; case 0x0
0227 7803 |x | Jump 0x22b ; case 0x1
0228 7802 |x | Jump 0x22b ; case 0x2
0229 7803 |x | Jump 0x22d ; case 0x3
022a 7800 |x | Jump 0x22b ; case 0x4
022b e21b | | Load 0x1,0x1b
022c 0257 | W | Execute Discrete,Raise
022d 00da | | Load_Top At_Offset_2
022e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 4607 |F | Jump_Case 0x8
0234 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0235 7806 |x | Jump 0x23c ; case 0x1
0236 7809 |x | Jump 0x240 ; case 0x2
0237 780d |x | Jump 0x245 ; case 0x3
0238 7810 |x | Jump 0x249 ; case 0x4
0239 7811 |x | Jump 0x24b ; case 0x5
023a 7812 |x | Jump 0x24d ; case 0x6
023b 7815 |x | Jump 0x251 ; case 0x7
023c 00da | | Load_Top At_Offset_2
023d 0091 078c | | Action Push_String_Extended_Indexed,0x78c ; "AN_ARRAY_AGGREGATE"
023f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0240 00db | | Load_Top At_Offset_3
0241 00db | | Load_Top At_Offset_3
0242 00e0 | | Load_Encached Standard_Cache
0243 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0244 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0245 00da | | Load_Top At_Offset_2
0246 00e0 | | Load_Encached Standard_Cache
0247 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0248 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0249 00db | | Load_Top At_Offset_3
024a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024b 00db | | Load_Top At_Offset_3
024c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024d e215 | | Load 0x1,0x15
024e 00dc | | Load_Top At_Offset_4
024f 0267 | g | Execute Discrete,Predecessor
0250 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0251 e215 | | Load 0x1,0x15
0252 00dc | | Load_Top At_Offset_4
0253 0268 | h | Execute Discrete,Successor
0254 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0267 | g | .CONST 0x0267 ; Address of begin
0259 02a8 | | .CONST 0x02a8 ; Address of exception handler
025a 0007 | | .CONST 0x0007 ; Number of locals
025b INIT_0258:
025b e00d | | Load 0x0,0xd
025c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 00e5 | | Load_Encached Long_Integer_Cache
0261 00e6 | | Load_Encached Float_Cache
0262 00e1 | | Load_Encached Boolean_Cache
0263 029f 060b | | Declare_Subprogram INIT_0608,For_Call
0265 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call
0267 BODY_0258:
0267 e5ff | | Load 0x2,-0x1
0268 e010 | | Load 0x0,0x10
0269 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026a 4612 |F | Jump_Case 0x13
026b 7812 |x | Jump 0x27e ; case 0x0
026c 7811 |x | Jump 0x27e ; case 0x1
026d 7810 |x | Jump 0x27e ; case 0x2
026e 780f |x | Jump 0x27e ; case 0x3
026f 780e |x | Jump 0x27e ; case 0x4
0270 780d |x | Jump 0x27e ; case 0x5
0271 780c |x | Jump 0x27e ; case 0x6
0272 7811 |x | Jump 0x284 ; case 0x7
0273 781f |x | Jump 0x293 ; case 0x8
0274 7809 |x | Jump 0x27e ; case 0x9
0275 7808 |x | Jump 0x27e ; case 0xa
0276 782b |x+ | Jump 0x2a2 ; case 0xb
0277 782c |x, | Jump 0x2a4 ; case 0xc
0278 7805 |x | Jump 0x27e ; case 0xd
0279 7804 |x | Jump 0x27e ; case 0xe
027a 7803 |x | Jump 0x27e ; case 0xf
027b 7802 |x | Jump 0x27e ; case 0x10
027c 7801 |x | Jump 0x27e ; case 0x11
027d 7800 |x | Jump 0x27e ; case 0x12
027e e5ff | | Load 0x2,-0x1
027f e010 | | Load 0x0,0x10
0280 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0281 c402 | | Store 0x2,0x2
0282 8407 | | Call 0x2,0x7
0283 7823 |x# | Jump 0x2a7
0284 4803 |H | Short_Literal 0x3
0285 e216 | | Load 0x1,0x16
0286 1c08 | | Execute_Immediate Run_Utility,0x8
0287 e5ff | | Load 0x2,-0x1
0288 e216 | | Load 0x1,0x16
0289 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
028a 0119 | | Execute Any,Check_In_Formal_Type
028b 00d9 | | Load_Top At_Offset_1
028c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
028d e5ff | | Load 0x2,-0x1
028e e010 | | Load 0x0,0x10
028f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0290 00d9 | | Load_Top At_Offset_1
0291 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0292 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0293 4802 |H | Short_Literal 0x2
0294 e216 | | Load 0x1,0x16
0295 1c08 | | Execute_Immediate Run_Utility,0x8
0296 e5ff | | Load 0x2,-0x1
0297 e216 | | Load 0x1,0x16
0298 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0299 0119 | | Execute Any,Check_In_Formal_Type
029a 00d9 | | Load_Top At_Offset_1
029b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
029c e5ff | | Load 0x2,-0x1
029d e010 | | Load 0x0,0x10
029e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
029f 00d9 | | Load_Top At_Offset_1
02a0 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a2 8406 | | Call 0x2,0x6
02a3 7803 |x | Jump 0x2a7
02a4 e5ff | | Load 0x2,-0x1
02a5 8236 | 6 | Call 0x1,0x36
02a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a7 0831 | 1 | Execute_Immediate Raise,0x31
02a8 TRAP_0258:
02a8 0007 | | Action Break_Optional
02a9 e5ff | | Load 0x2,-0x1
02aa 8234 | 4 | Call 0x1,0x34
02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02b5 4800 |H | Short_Literal 0x0
02b6 4801 |H | Short_Literal 0x1
02b7 0262 | b | Execute Discrete,In_Range
02b8 7002 |p | Jump_Nonzero 0x2bb
02b9 e21b | | Load 0x1,0x1b
02ba 0257 | W | Execute Discrete,Raise
02bb 00da | | Load_Top At_Offset_2
02bc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02c5 0f03 | | Execute_Immediate Equal,0x3
02c6 7002 |p | Jump_Nonzero 0x2c9
02c7 e21b | | Load 0x1,0x1b
02c8 0257 | W | Execute Discrete,Raise
02c9 00da | | Load_Top At_Offset_2
02ca 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02d5 0f02 | | Execute_Immediate Equal,0x2
02d6 7002 |p | Jump_Nonzero 0x2d9
02d7 e21b | | Load 0x1,0x1b
02d8 0257 | W | Execute Discrete,Raise
02d9 00da | | Load_Top At_Offset_2
02da 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00db | | Load_Top At_Offset_3
02e4 00db | | Load_Top At_Offset_3
02e5 8237 | 7 | Call 0x1,0x37
02e6 6830 |h0 | Jump_Zero 0x317
02e7 00da | | Load_Top At_Offset_2
02e8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02e9 4604 |F | Jump_Case 0x5
02ea 7806 |x | Jump 0x2f1 ; case 0x0
02eb 7805 |x | Jump 0x2f1 ; case 0x1
02ec 781a |x | Jump 0x307 ; case 0x2
02ed 7809 |x | Jump 0x2f7 ; case 0x3
02ee 7800 |x | Jump 0x2ef ; case 0x4
02ef 4801 |H | Short_Literal 0x1
02f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f1 00da | | Load_Top At_Offset_2
02f2 8218 | | Call 0x1,0x18
02f3 e5fe | | Load 0x2,-0x2
02f4 8214 | | Call 0x1,0x14
02f5 027f | | Execute Discrete,Equal
02f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f7 00da | | Load_Top At_Offset_2
02f8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02f9 e5fe | | Load 0x2,-0x2
02fa 8210 | | Call 0x1,0x10
02fb 027c | | | Execute Discrete,Less
02fc 7006 |p | Jump_Nonzero 0x303
02fd 00da | | Load_Top At_Offset_2
02fe 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02ff e5fe | | Load 0x2,-0x2
0300 8211 | | Call 0x1,0x11
0301 027d | } | Execute Discrete,Greater
0302 6802 |h | Jump_Zero 0x305
0303 4800 |H | Short_Literal 0x0
0304 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0305 4801 |H | Short_Literal 0x1
0306 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0307 00da | | Load_Top At_Offset_2
0308 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0309 e5fe | | Load 0x2,-0x2
030a 8212 | | Call 0x1,0x12
030b 0244 | D | Execute Float,Less
030c 7006 |p | Jump_Nonzero 0x313
030d 00da | | Load_Top At_Offset_2
030e 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
030f e5fe | | Load 0x2,-0x2
0310 8213 | | Call 0x1,0x13
0311 0245 | E | Execute Float,Greater
0312 6802 |h | Jump_Zero 0x315
0313 4800 |H | Short_Literal 0x0
0314 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0315 4801 |H | Short_Literal 0x1
0316 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0317 e21b | | Load 0x1,0x1b
0318 0257 | W | Execute Discrete,Raise
0319 0000 0000 | | .BLANK 0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00db | | Load_Top At_Offset_3
0324 00db | | Load_Top At_Offset_3
0325 8237 | 7 | Call 0x1,0x37
0326 687d |h} | Jump_Zero 0x3a4
0327 00da | | Load_Top At_Offset_2
0328 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0329 4604 |F | Jump_Case 0x5
032a 7806 |x | Jump 0x331 ; case 0x0
032b 7805 |x | Jump 0x331 ; case 0x1
032c 784c |xL | Jump 0x379 ; case 0x2
032d 781c |x | Jump 0x34a ; case 0x3
032e 7800 |x | Jump 0x32f ; case 0x4
032f 00ea | | Load_Encached Null_String_Cache
0330 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0331 00da | | Load_Top At_Offset_2
0332 8218 | | Call 0x1,0x18
0333 e5fe | | Load 0x2,-0x2
0334 8214 | | Call 0x1,0x14
0335 027e | ~ | Execute Discrete,Not_Equal
0336 6810 |h | Jump_Zero 0x347
0337 0092 0791 | | Action Push_String_Extended,0x791 ; "The size of the value "
0339 00db | | Load_Top At_Offset_3
033a 8218 | | Call 0x1,0x18
033b 00e0 | | Load_Encached Standard_Cache
033c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
033d 01cc | | Execute Vector,Catenate
033e 0092 0792 | | Action Push_String_Extended,0x792 ; " does not match the object's length "
0340 01cc | | Execute Vector,Catenate
0341 e5fe | | Load 0x2,-0x2
0342 8214 | | Call 0x1,0x14
0343 00e0 | | Load_Encached Standard_Cache
0344 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0345 01cc | | Execute Vector,Catenate
0346 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0347 0092 0793 | | Action Push_String_Extended,0x793 ; "NO PROBLEM"
0349 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034a 00da | | Load_Top At_Offset_2
034b 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
034c e5fe | | Load 0x2,-0x2
034d 8211 | | Call 0x1,0x11
034e 027d | } | Execute Discrete,Greater
034f 6810 |h | Jump_Zero 0x360
0350 0092 0794 | | Action Push_String_Extended,0x794 ; "The value "
0352 00db | | Load_Top At_Offset_3
0353 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0354 00e0 | | Load_Encached Standard_Cache
0355 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0356 01cc | | Execute Vector,Catenate
0357 0092 0795 | | Action Push_String_Extended,0x795 ; " exceeds the upper bound "
0359 01cc | | Execute Vector,Catenate
035a e5fe | | Load 0x2,-0x2
035b 8211 | | Call 0x1,0x11
035c 00e0 | | Load_Encached Standard_Cache
035d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
035e 01cc | | Execute Vector,Catenate
035f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0360 00da | | Load_Top At_Offset_2
0361 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0362 e5fe | | Load 0x2,-0x2
0363 8210 | | Call 0x1,0x10
0364 027c | | | Execute Discrete,Less
0365 6810 |h | Jump_Zero 0x376
0366 0092 0794 | | Action Push_String_Extended,0x794 ; "The value "
0368 00db | | Load_Top At_Offset_3
0369 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
036a 00e0 | | Load_Encached Standard_Cache
036b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
036c 01cc | | Execute Vector,Catenate
036d 0092 0796 | | Action Push_String_Extended,0x796 ; " is less than the lower bound "
036f 01cc | | Execute Vector,Catenate
0370 e5fe | | Load 0x2,-0x2
0371 8210 | | Call 0x1,0x10
0372 00e0 | | Load_Encached Standard_Cache
0373 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0374 01cc | | Execute Vector,Catenate
0375 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0376 0092 0793 | | Action Push_String_Extended,0x793 ; "NO PROBLEM"
0378 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0379 00da | | Load_Top At_Offset_2
037a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
037b e5fe | | Load 0x2,-0x2
037c 8212 | | Call 0x1,0x12
037d 0244 | D | Execute Float,Less
037e 680e |h | Jump_Zero 0x38d
037f 0092 0794 | | Action Push_String_Extended,0x794 ; "The value "
0381 00db | | Load_Top At_Offset_3
0382 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0383 8238 | 8 | Call 0x1,0x38
0384 01cc | | Execute Vector,Catenate
0385 0092 0796 | | Action Push_String_Extended,0x796 ; " is less than the lower bound "
0387 01cc | | Execute Vector,Catenate
0388 e5fe | | Load 0x2,-0x2
0389 8212 | | Call 0x1,0x12
038a 8238 | 8 | Call 0x1,0x38
038b 01cc | | Execute Vector,Catenate
038c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038d 00da | | Load_Top At_Offset_2
038e 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
038f e5fe | | Load 0x2,-0x2
0390 8213 | | Call 0x1,0x13
0391 0245 | E | Execute Float,Greater
0392 680e |h | Jump_Zero 0x3a1
0393 0092 0794 | | Action Push_String_Extended,0x794 ; "The value "
0395 00db | | Load_Top At_Offset_3
0396 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0397 8238 | 8 | Call 0x1,0x38
0398 01cc | | Execute Vector,Catenate
0399 0092 0795 | | Action Push_String_Extended,0x795 ; " exceeds the upper bound "
039b 01cc | | Execute Vector,Catenate
039c e5fe | | Load 0x2,-0x2
039d 8213 | | Call 0x1,0x13
039e 8238 | 8 | Call 0x1,0x38
039f 01cc | | Execute Vector,Catenate
03a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a1 0092 0793 | | Action Push_String_Extended,0x793 ; "NO PROBLEM"
03a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a4 0092 0797 | | Action Push_String_Extended,0x797 ; "BAD MATCH"
03a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a7 0000 | | .XXX[0x1]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b0 | | .CONST 0x03b0 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0002 | | .CONST 0x0002 ; Number of locals
03ab INIT_03a8:
03ab 4804 |H | Short_Literal 0x4
03ac e20e | | Load 0x1,0xe
03ad 1c08 | | Execute_Immediate Run_Utility,0x8
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 BODY_03a8:
03b0 00db | | Load_Top At_Offset_3
03b1 00d9 | | Load_Top At_Offset_1
03b2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03b3 00d8 | | Load_Top At_Offset_0
03b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b5 0000 0000 | | .XXX[0x3]
03b7 0000 | |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c2 | | .CONST 0x03c2 ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e002 | | Load 0x0,0x2
03bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bd 02c7 | | Declare_Variable Any
03be 00db | | Load_Top At_Offset_3
03bf e00d | | Load 0x0,0xd
03c0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03c1 a402 | | Store_Unchecked 0x2,0x2
03c2 BODY_03b8:
03c2 4801 |H | Short_Literal 0x1
03c3 0092 0798 | | Action Push_String_Extended,0x798 ; "CHARACTER"
03c5 00da | | Load_Top At_Offset_2
03c6 e002 | | Load 0x0,0x2
03c7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03c8 e011 | | Load 0x0,0x11
03c9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03ca 700b |p | Jump_Nonzero 0x3d6
03cb 4801 |H | Short_Literal 0x1
03cc 0092 0798 | | Action Push_String_Extended,0x798 ; "CHARACTER"
03ce 00da | | Load_Top At_Offset_2
03cf e002 | | Load 0x0,0x2
03d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d1 e00e | | Load 0x0,0xe
03d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03d3 e011 | | Load 0x0,0x11
03d4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d6 4801 |H | Short_Literal 0x1
03d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e2 | | .CONST 0x03e2 ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db e00d | | Load 0x0,0xd
03dc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
03dd 02c7 | | Declare_Variable Any
03de 00db | | Load_Top At_Offset_3
03df e00d | | Load 0x0,0xd
03e0 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
03e1 a402 | | Store_Unchecked 0x2,0x2
03e2 BODY_03d8:
03e2 00d8 | | Load_Top At_Offset_0
03e3 8220 | | Call 0x1,0x20
03e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e5 0000 0000 | | .XXX[0x3]
03e7 0000 | |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f5 | | .CONST 0x03f5 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0004 | | .CONST 0x0004 ; Number of locals
03eb INIT_03e8:
03eb e002 | | Load 0x0,0x2
03ec 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ed 02c7 | | Declare_Variable Any
03ee 00db | | Load_Top At_Offset_3
03ef e00d | | Load 0x0,0xd
03f0 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03f1 a402 | | Store_Unchecked 0x2,0x2
03f2 e012 | | Load 0x0,0x12
03f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f4 00e1 | | Load_Encached Boolean_Cache
03f5 BODY_03e8:
03f5 00d8 | | Load_Top At_Offset_0
03f6 e012 | | Load 0x0,0x12
03f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f8 e402 | | Load 0x2,0x2
03f9 e012 | | Load 0x0,0x12
03fa 180f | | Execute Package,Field_Execute,Field_Number 0xf
03fb 005b | [ | Store_Top Discrete,At_Offset_3
03fc 0059 | Y | Store_Top Discrete,At_Offset_1
03fd 00d8 | | Load_Top At_Offset_0
03fe 6827 |h' | Jump_Zero 0x426
03ff e5ff | | Load 0x2,-0x1
0400 8221 | ! | Call 0x1,0x21
0401 6812 |h | Jump_Zero 0x414
0402 4800 |H | Short_Literal 0x0
0403 e20e | | Load 0x1,0xe
0404 1c08 | | Execute_Immediate Run_Utility,0x8
0405 e5ff | | Load 0x2,-0x1
0406 e20e | | Load 0x1,0xe
0407 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0408 0119 | | Execute Any,Check_In_Formal_Type
0409 00d9 | | Load_Top At_Offset_1
040a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
040b 00da | | Load_Top At_Offset_2
040c 00d8 | | Load_Top At_Offset_0
040d 00e3 | | Load_Encached Natural_Cache
040e 0260 | ` | Execute Discrete,In_Type
040f 7001 |p | Jump_Nonzero 0x411
0410 0801 | | Execute_Immediate Raise,0x1
0411 00d9 | | Load_Top At_Offset_1
0412 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0413 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0414 4803 |H | Short_Literal 0x3
0415 e20e | | Load 0x1,0xe
0416 1c08 | | Execute_Immediate Run_Utility,0x8
0417 e5ff | | Load 0x2,-0x1
0418 e20e | | Load 0x1,0xe
0419 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
041a 0119 | | Execute Any,Check_In_Formal_Type
041b 00d9 | | Load_Top At_Offset_1
041c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
041d 00da | | Load_Top At_Offset_2
041e 00d8 | | Load_Top At_Offset_0
041f 00e3 | | Load_Encached Natural_Cache
0420 0260 | ` | Execute Discrete,In_Type
0421 7001 |p | Jump_Nonzero 0x423
0422 0801 | | Execute_Immediate Raise,0x1
0423 00d9 | | Load_Top At_Offset_1
0424 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0426 e5ff | | Load 0x2,-0x1
0427 821f | | Call 0x1,0x1f
0428 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 4800 |H | Short_Literal 0x0
0434 a5fe | | Store_Unchecked 0x2,-0x2
0435 4800 |H | Short_Literal 0x0
0436 a5fd | | Store_Unchecked 0x2,-0x3
0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 5804 |X | Indirect_Literal Float,0x440,0.0
043c a5fe | | Store_Unchecked 0x2,-0x2
043d 4800 |H | Short_Literal 0x0
043e a5fd | | Store_Unchecked 0x2,-0x3
043f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0440 0000 0000 | | .DBL 0.0
0442 0000 0000 | |
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00db | | Load_Top At_Offset_3
044c 00d8 | | Load_Top At_Offset_0
044d 01dd | | Execute Vector,First
044e 00e2 | | Load_Encached Integer_Cache
044f 00d9 | | Load_Top At_Offset_1
0450 0267 | g | Execute Discrete,Predecessor
0451 00e9 | | Load_Encached String_Cache
0452 035b | [ | Declare_Type Array,Constrained
0453 0337 | 7 | Declare_Variable Array
0454 00cd | | Action Spare6_Action
0455 e5fe | | Load 0x2,-0x2
0456 01d4 | | Execute Vector,Structure_Write
0457 4801 |H | Short_Literal 0x1
0458 a5fd | | Store_Unchecked 0x2,-0x3
0459 4800 |H | Short_Literal 0x0
045a a5fc | | Store_Unchecked 0x2,-0x4
045b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0478 | x | .CONST 0x0478 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0009 | | .CONST 0x0009 ; Number of locals
0463 INIT_0460:
0463 e002 | | Load 0x0,0x2
0464 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0465 02c7 | | Declare_Variable Any
0466 00d8 | | Load_Top At_Offset_0
0467 1c00 | | Execute_Immediate Run_Utility,0x0
0468 e002 | | Load 0x0,0x2
0469 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046a 02c7 | | Declare_Variable Any
046b 00d8 | | Load_Top At_Offset_0
046c 1c00 | | Execute_Immediate Run_Utility,0x0
046d 00e5 | | Load_Encached Long_Integer_Cache
046e 03e9 | | Declare_Variable Discrete,Duplicate
046f 00e6 | | Load_Encached Float_Cache
0470 03d8 | | Declare_Variable Float,Duplicate
0471 e00d | | Load 0x0,0xd
0472 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0473 02c7 | | Declare_Variable Any
0474 00d8 | | Load_Top At_Offset_0
0475 1c00 | | Execute_Immediate Run_Utility,0x0
0476 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call
0478 BODY_0460:
0478 e403 | | Load 0x2,0x3
0479 0120 | | Execute Any,Is_Value
047a 6803 |h | Jump_Zero 0x47e
047b e00d | | Load 0x0,0xd
047c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047d 7801 |x | Jump 0x47f
047e e403 | | Load 0x2,0x3
047f e402 | | Load 0x2,0x2
0480 0120 | | Execute Any,Is_Value
0481 6803 |h | Jump_Zero 0x485
0482 e00d | | Load 0x0,0xd
0483 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0484 7801 |x | Jump 0x486
0485 e402 | | Load 0x2,0x2
0486 e5ff | | Load 0x2,-0x1
0487 e00d | | Load 0x0,0xd
0488 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0489 c402 | | Store 0x2,0x2
048a c403 | | Store 0x2,0x3
048b e402 | | Load 0x2,0x2
048c e010 | | Load 0x0,0x10
048d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
048e c408 | | Store 0x2,0x8
048f 4801 |H | Short_Literal 0x1
0490 0092 0799 | | Action Push_String_Extended,0x799 ; "[universal_integer]"
0492 00db | | Load_Top At_Offset_3
0493 e002 | | Load 0x0,0x2
0494 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0495 e011 | | Load 0x0,0x11
0496 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0497 681c |h | Jump_Zero 0x4b4
0498 e402 | | Load 0x2,0x2
0499 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
049a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
049b e006 | | Load 0x0,0x6
049c 180e | | Execute Package,Field_Execute,Field_Number 0xe
049d a404 | | Store_Unchecked 0x2,0x4
049e e403 | | Load 0x2,0x3
049f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
04a0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
04a1 e006 | | Load 0x0,0x6
04a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a3 a405 | | Store_Unchecked 0x2,0x5
04a4 4801 |H | Short_Literal 0x1
04a5 e20e | | Load 0x1,0xe
04a6 1c08 | | Execute_Immediate Run_Utility,0x8
04a7 e5fe | | Load 0x2,-0x2
04a8 e20e | | Load 0x1,0xe
04a9 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
04aa 0119 | | Execute Any,Check_In_Formal_Type
04ab 00d9 | | Load_Top At_Offset_1
04ac 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04ad e404 | | Load 0x2,0x4
04ae 00d9 | | Load_Top At_Offset_1
04af 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04b0 e405 | | Load 0x2,0x5
04b1 00d9 | | Load_Top At_Offset_1
04b2 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
04b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04b4 4801 |H | Short_Literal 0x1
04b5 0092 079a | | Action Push_String_Extended,0x79a ; "[universal_real]"
04b7 00db | | Load_Top At_Offset_3
04b8 e002 | | Load 0x0,0x2
04b9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
04ba e011 | | Load 0x0,0x11
04bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04bc 681c |h | Jump_Zero 0x4d9
04bd e402 | | Load 0x2,0x2
04be 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
04bf 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
04c0 e006 | | Load 0x0,0x6
04c1 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c2 a406 | | Store_Unchecked 0x2,0x6
04c3 e403 | | Load 0x2,0x3
04c4 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
04c5 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
04c6 e006 | | Load 0x0,0x6
04c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c8 0043 | C | Store_Top_Uncheched Float,At_Offset_3
04c9 4802 |H | Short_Literal 0x2
04ca e20e | | Load 0x1,0xe
04cb 1c08 | | Execute_Immediate Run_Utility,0x8
04cc e5fe | | Load 0x2,-0x2
04cd e20e | | Load 0x1,0xe
04ce 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
04cf 0119 | | Execute Any,Check_In_Formal_Type
04d0 00d9 | | Load_Top At_Offset_1
04d1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04d2 e406 | | Load 0x2,0x6
04d3 00d9 | | Load_Top At_Offset_1
04d4 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
04d5 00db | | Load_Top At_Offset_3
04d6 00d9 | | Load_Top At_Offset_1
04d7 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
04d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04d9 8409 | | Call 0x2,0x9
04da 0831 | 1 | Execute_Immediate Raise,0x31
04db 0000 0000 | | .BLANK 0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04ff | | .CONST 0x04ff ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 000a | | .CONST 0x000a ; Number of locals
04e3 INIT_04e0:
04e3 e002 | | Load 0x0,0x2
04e4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04e5 02c7 | | Declare_Variable Any
04e6 00db | | Load_Top At_Offset_3
04e7 e00d | | Load 0x0,0xd
04e8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
04e9 a402 | | Store_Unchecked 0x2,0x2
04ea e002 | | Load 0x0,0x2
04eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ec 02c7 | | Declare_Variable Any
04ed 00d8 | | Load_Top At_Offset_0
04ee 1c00 | | Execute_Immediate Run_Utility,0x0
04ef 00e5 | | Load_Encached Long_Integer_Cache
04f0 00e5 | | Load_Encached Long_Integer_Cache
04f1 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
04f2 00e1 | | Load_Encached Boolean_Cache
04f3 00e5 | | Load_Encached Long_Integer_Cache
04f4 03e9 | | Declare_Variable Discrete,Duplicate
04f5 e010 | | Load 0x0,0x10
04f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f7 02c7 | | Declare_Variable Any
04f8 00d8 | | Load_Top At_Offset_0
04f9 1c00 | | Execute_Immediate Run_Utility,0x0
04fa e010 | | Load 0x0,0x10
04fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04fc 02c7 | | Declare_Variable Any
04fd 00d8 | | Load_Top At_Offset_0
04fe 1c00 | | Execute_Immediate Run_Utility,0x0
04ff BODY_04e0:
04ff 00cf | | Action Mark_Auxiliary
0500 7831 |x1 | Jump 0x532
0501 e402 | | Load 0x2,0x2
0502 e002 | | Load 0x0,0x2
0503 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0504 c403 | | Store 0x2,0x3
0505 00d9 | | Load_Top At_Offset_1
0506 0120 | | Execute Any,Is_Value
0507 6803 |h | Jump_Zero 0x50b
0508 e010 | | Load 0x0,0x10
0509 1b0e | | Execute Package,Field_Read,Field_Number 0xe
050a 7801 |x | Jump 0x50c
050b 00d9 | | Load_Top At_Offset_1
050c 00db | | Load_Top At_Offset_3
050d 0120 | | Execute Any,Is_Value
050e 6803 |h | Jump_Zero 0x512
050f e010 | | Load 0x0,0x10
0510 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0511 7801 |x | Jump 0x513
0512 00db | | Load_Top At_Offset_3
0513 00e1 | | Load_Encached Boolean_Cache
0514 e408 | | Load 0x2,0x8
0515 e407 | | Load 0x2,0x7
0516 e403 | | Load 0x2,0x3
0517 e00f | | Load 0x0,0xf
0518 180d | | Execute Package,Field_Execute,Field_Number 0xd
0519 c407 | | Store 0x2,0x7
051a c408 | | Store 0x2,0x8
051b c406 | | Store 0x2,0x6
051c c409 | | Store 0x2,0x9
051d c40a | | Store 0x2,0xa
051e e406 | | Load 0x2,0x6
051f 680a |h | Jump_Zero 0x52a
0520 00db | | Load_Top At_Offset_3
0521 e407 | | Load 0x2,0x7
0522 0272 | r | Execute Discrete,Minus
0523 0a01 | | Execute_Immediate Plus,0x1
0524 a404 | | Store_Unchecked 0x2,0x4
0525 e405 | | Load 0x2,0x5
0526 e404 | | Load 0x2,0x4
0527 0271 | q | Execute Discrete,Times
0528 a405 | | Store_Unchecked 0x2,0x5
0529 7803 |x | Jump 0x52d
052a e5fe | | Load 0x2,-0x2
052b 821f | | Call 0x1,0x1f
052c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
052d e402 | | Load 0x2,0x2
052e e002 | | Load 0x0,0x2
052f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0530 c402 | | Store 0x2,0x2
0531 00c9 | | Action Pop_Auxiliary_Loop
0532 e402 | | Load 0x2,0x2
0533 e002 | | Load 0x0,0x2
0534 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0535 6fcb |o | Jump_Zero 0x501
0536 00ce | | Action Pop_Auxiliary
0537 4800 |H | Short_Literal 0x0
0538 e20e | | Load 0x1,0xe
0539 1c08 | | Execute_Immediate Run_Utility,0x8
053a e5fe | | Load 0x2,-0x2
053b e20e | | Load 0x1,0xe
053c 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
053d 0119 | | Execute Any,Check_In_Formal_Type
053e 00d9 | | Load_Top At_Offset_1
053f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0540 e405 | | Load 0x2,0x5
0541 00d8 | | Load_Top At_Offset_0
0542 00e3 | | Load_Encached Natural_Cache
0543 0260 | ` | Execute Discrete,In_Type
0544 7001 |p | Jump_Nonzero 0x546
0545 0801 | | Execute_Immediate Raise,0x1
0546 00d9 | | Load_Top At_Offset_1
0547 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0549 0000 0000 | | .BLANK 0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0558 | X | .CONST 0x0558 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0002 | | .CONST 0x0002 ; Number of locals
0553 INIT_0550:
0553 4804 |H | Short_Literal 0x4
0554 e216 | | Load 0x1,0x16
0555 1c08 | | Execute_Immediate Run_Utility,0x8
0556 00d8 | | Load_Top At_Offset_0
0557 1c00 | | Execute_Immediate Run_Utility,0x0
0558 BODY_0550:
0558 00db | | Load_Top At_Offset_3
0559 00d9 | | Load_Top At_Offset_1
055a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
055b 00d8 | | Load_Top At_Offset_0
055c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
055d 0000 0000 | | .XXX[0x3]
055f 0000 | |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 00cf | | Action Mark_Auxiliary
0564 7814 |x | Jump 0x579
0565 00db | | Load_Top At_Offset_3
0566 e002 | | Load 0x0,0x2
0567 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0568 e00d | | Load 0x0,0xd
0569 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
056a 4604 |F | Jump_Case 0x5
056b 7808 |x | Jump 0x574 ; case 0x0
056c 7803 |x | Jump 0x570 ; case 0x1
056d 7804 |x | Jump 0x572 ; case 0x2
056e 7805 |x | Jump 0x574 ; case 0x3
056f 7804 |x | Jump 0x574 ; case 0x4
0570 e013 | | Load 0x0,0x13
0571 0257 | W | Execute Discrete,Raise
0572 e013 | | Load 0x0,0x13
0573 0257 | W | Execute Discrete,Raise
0574 00db | | Load_Top At_Offset_3
0575 e002 | | Load 0x0,0x2
0576 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0577 c5ff | | Store 0x2,-0x1
0578 00c9 | | Action Pop_Auxiliary_Loop
0579 00db | | Load_Top At_Offset_3
057a e002 | | Load 0x0,0x2
057b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
057c 6fe8 |o | Jump_Zero 0x565
057d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
057e 0000 0000 | | .XXX[0x2]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0592 | | .CONST 0x0592 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0004 | | .CONST 0x0004 ; Number of locals
0583 INIT_0580:
0583 e002 | | Load 0x0,0x2
0584 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0585 02c7 | | Declare_Variable Any
0586 4800 |H | Short_Literal 0x0
0587 e5ff | | Load 0x2,-0x1
0588 e010 | | Load 0x0,0x10
0589 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
058a a402 | | Store_Unchecked 0x2,0x2
058b 00e3 | | Load_Encached Natural_Cache
058c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
058d e002 | | Load 0x0,0x2
058e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
058f 02c7 | | Declare_Variable Any
0590 00d8 | | Load_Top At_Offset_0
0591 1c00 | | Execute_Immediate Run_Utility,0x0
0592 BODY_0580:
0592 00cf | | Action Mark_Auxiliary
0593 7811 |x | Jump 0x5a5
0594 00db | | Load_Top At_Offset_3
0595 e002 | | Load 0x0,0x2
0596 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0597 e010 | | Load 0x0,0x10
0598 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0599 c404 | | Store 0x2,0x4
059a 00d9 | | Load_Top At_Offset_1
059b 8235 | 5 | Call 0x1,0x35
059c c404 | | Store 0x2,0x4
059d 00da | | Load_Top At_Offset_2
059e 0a01 | | Execute_Immediate Plus,0x1
059f 005b | [ | Store_Top Discrete,At_Offset_3
05a0 00db | | Load_Top At_Offset_3
05a1 e002 | | Load 0x0,0x2
05a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05a3 c402 | | Store 0x2,0x2
05a4 00c9 | | Action Pop_Auxiliary_Loop
05a5 00db | | Load_Top At_Offset_3
05a6 e002 | | Load 0x0,0x2
05a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05a8 6feb |o | Jump_Zero 0x594
05a9 00ce | | Action Pop_Auxiliary
05aa 4800 |H | Short_Literal 0x0
05ab e216 | | Load 0x1,0x16
05ac 1c08 | | Execute_Immediate Run_Utility,0x8
05ad e5ff | | Load 0x2,-0x1
05ae e216 | | Load 0x1,0x16
05af 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
05b0 0119 | | Execute Any,Check_In_Formal_Type
05b1 00d9 | | Load_Top At_Offset_1
05b2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05b3 00da | | Load_Top At_Offset_2
05b4 00d9 | | Load_Top At_Offset_1
05b5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
05b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b7 0000 | | .XXX[0x1]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05bd 4604 |F | Jump_Case 0x5
05be 7813 |x | Jump 0x5d2 ; case 0x0
05bf 780b |x | Jump 0x5cb ; case 0x1
05c0 7821 |x! | Jump 0x5e2 ; case 0x2
05c1 7818 |x | Jump 0x5da ; case 0x3
05c2 7800 |x | Jump 0x5c3 ; case 0x4
05c3 00db | | Load_Top At_Offset_3
05c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05c5 0f04 | | Execute_Immediate Equal,0x4
05c6 7002 |p | Jump_Nonzero 0x5c9
05c7 4800 |H | Short_Literal 0x0
05c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c9 4801 |H | Short_Literal 0x1
05ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05cb 00db | | Load_Top At_Offset_3
05cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05cd 6802 |h | Jump_Zero 0x5d0
05ce 4800 |H | Short_Literal 0x0
05cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d0 4801 |H | Short_Literal 0x1
05d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d2 00db | | Load_Top At_Offset_3
05d3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05d4 0f03 | | Execute_Immediate Equal,0x3
05d5 7002 |p | Jump_Nonzero 0x5d8
05d6 4800 |H | Short_Literal 0x0
05d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d8 4801 |H | Short_Literal 0x1
05d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05da 00db | | Load_Top At_Offset_3
05db 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05dc 0f01 | | Execute_Immediate Equal,0x1
05dd 7002 |p | Jump_Nonzero 0x5e0
05de 4800 |H | Short_Literal 0x0
05df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e0 4801 |H | Short_Literal 0x1
05e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e2 00db | | Load_Top At_Offset_3
05e3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05e4 0f02 | | Execute_Immediate Equal,0x2
05e5 7002 |p | Jump_Nonzero 0x5e8
05e6 4800 |H | Short_Literal 0x0
05e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e8 4801 |H | Short_Literal 0x1
05e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ea 0000 0000 | | .BLANK 0000[0x6]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f8 | | .CONST 0x05f8 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 4801 |H | Short_Literal 0x1
05f4 4864 |Hd | Short_Literal 0x64
05f5 00e9 | | Load_Encached String_Cache
05f6 035b | [ | Declare_Type Array,Constrained
05f7 0337 | 7 | Declare_Variable Array
05f8 BODY_05f0:
05f8 00d8 | | Load_Top At_Offset_0
05f9 e21e | | Load 0x1,0x1e
05fa 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05fb e21e | | Load 0x1,0x1e
05fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05fd e5ff | | Load 0x2,-0x1
05fe e21e | | Load 0x1,0x1e
05ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0600 00d1 | | Pop_Control Pop_Count_1
0601 4820 |H | Short_Literal 0x20
0602 00d9 | | Load_Top At_Offset_1
0603 e011 | | Load 0x0,0x11
0604 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0605 00e9 | | Load_Encached String_Cache
0606 01c6 | | Execute Vector,Convert_To_Formal
0607 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060e | | .CONST 0x060e ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0002 | | .CONST 0x0002 ; Number of locals
060b INIT_0608:
060b e5ff | | Load 0x2,-0x1
060c e010 | | Load 0x0,0x10
060d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
060e BODY_0608:
060e 4801 |H | Short_Literal 0x1
060f e216 | | Load 0x1,0x16
0610 1c08 | | Execute_Immediate Run_Utility,0x8
0611 e5ff | | Load 0x2,-0x1
0612 e216 | | Load 0x1,0x16
0613 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0614 0119 | | Execute Any,Check_In_Formal_Type
0615 00d9 | | Load_Top At_Offset_1
0616 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0617 00d9 | | Load_Top At_Offset_1
0618 01db | | Execute Vector,Length
0619 00d9 | | Load_Top At_Offset_1
061a 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
061b 00cb | | Action Pop_Block_With_Result
061c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061d 0000 0000 | | .XXX[0x3]
061f 0000 | |
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0625 | % | .CONST 0x0625 ; Address of begin
0621 0662 | b | .CONST 0x0662 ; Address of exception handler
0622 0002 | | .CONST 0x0002 ; Number of locals
0623 INIT_0620:
0623 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call
0625 BODY_0620:
0625 e402 | | Load 0x2,0x2
0626 e00d | | Load 0x0,0xd
0627 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0628 e00d | | Load 0x0,0xd
0629 1819 | | Execute Package,Field_Execute,Field_Number 0x19
062a 460c |F | Jump_Case 0xd
062b 780c |x | Jump 0x638 ; case 0x0
062c 780b |x | Jump 0x638 ; case 0x1
062d 780e |x | Jump 0x63c ; case 0x2
062e 781f |x | Jump 0x64e ; case 0x3
062f 7808 |x | Jump 0x638 ; case 0x4
0630 782f |x/ | Jump 0x660 ; case 0x5
0631 7806 |x | Jump 0x638 ; case 0x6
0632 7805 |x | Jump 0x638 ; case 0x7
0633 7804 |x | Jump 0x638 ; case 0x8
0634 7803 |x | Jump 0x638 ; case 0x9
0635 7802 |x | Jump 0x638 ; case 0xa
0636 7801 |x | Jump 0x638 ; case 0xb
0637 7800 |x | Jump 0x638 ; case 0xc
0638 e5ff | | Load 0x2,-0x1
0639 8234 | 4 | Call 0x1,0x34
063a 00cb | | Action Pop_Block_With_Result
063b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
063c 4803 |H | Short_Literal 0x3
063d e216 | | Load 0x1,0x16
063e 1c08 | | Execute_Immediate Run_Utility,0x8
063f e5ff | | Load 0x2,-0x1
0640 e216 | | Load 0x1,0x16
0641 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0642 0119 | | Execute Any,Check_In_Formal_Type
0643 00d9 | | Load_Top At_Offset_1
0644 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0645 e5ff | | Load 0x2,-0x1
0646 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0647 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0648 e006 | | Load 0x0,0x6
0649 180e | | Execute Package,Field_Execute,Field_Number 0xe
064a 00d9 | | Load_Top At_Offset_1
064b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
064c 00cb | | Action Pop_Block_With_Result
064d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
064e 4802 |H | Short_Literal 0x2
064f e216 | | Load 0x1,0x16
0650 1c08 | | Execute_Immediate Run_Utility,0x8
0651 e5ff | | Load 0x2,-0x1
0652 e216 | | Load 0x1,0x16
0653 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0654 0119 | | Execute Any,Check_In_Formal_Type
0655 00d9 | | Load_Top At_Offset_1
0656 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0657 e5ff | | Load 0x2,-0x1
0658 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0659 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
065a e006 | | Load 0x0,0x6
065b 180f | | Execute Package,Field_Execute,Field_Number 0xf
065c 00d9 | | Load_Top At_Offset_1
065d 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
065e 00cb | | Action Pop_Block_With_Result
065f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0660 8602 | | Call 0x3,0x2
0661 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0662 TRAP_0620:
0662 e006 | | Load 0x0,0x6
0663 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0664 010f | | Execute Exception,Equal
0665 6804 |h | Jump_Zero 0x66a
0666 e5ff | | Load 0x2,-0x1
0667 8234 | 4 | Call 0x1,0x34
0668 00cb | | Action Pop_Block_With_Result
0669 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
066a 0100 | | Execute Exception,Raise
066b 0000 0000 | | .BLANK 0000[0x5]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 06c4 | | .CONST 0x06c4 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 e408 | | Load 0x2,0x8
0674 e00d | | Load 0x0,0xd
0675 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0676 e00d | | Load 0x0,0xd
0677 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0678 460c |F | Jump_Case 0xd
0679 780c |x | Jump 0x686 ; case 0x0
067a 780b |x | Jump 0x686 ; case 0x1
067b 780e |x | Jump 0x68a ; case 0x2
067c 782a |x* | Jump 0x6a7 ; case 0x3
067d 7808 |x | Jump 0x686 ; case 0x4
067e 7807 |x | Jump 0x686 ; case 0x5
067f 7806 |x | Jump 0x686 ; case 0x6
0680 7805 |x | Jump 0x686 ; case 0x7
0681 7804 |x | Jump 0x686 ; case 0x8
0682 7803 |x | Jump 0x686 ; case 0x9
0683 7802 |x | Jump 0x686 ; case 0xa
0684 7801 |x | Jump 0x686 ; case 0xb
0685 7800 |x | Jump 0x686 ; case 0xc
0686 e5fe | | Load 0x2,-0x2
0687 821f | | Call 0x1,0x1f
0688 00cb | | Action Pop_Block_With_Result
0689 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
068a e402 | | Load 0x2,0x2
068b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
068c 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
068d e006 | | Load 0x0,0x6
068e 180e | | Execute Package,Field_Execute,Field_Number 0xe
068f a404 | | Store_Unchecked 0x2,0x4
0690 e403 | | Load 0x2,0x3
0691 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0692 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0693 e006 | | Load 0x0,0x6
0694 180e | | Execute Package,Field_Execute,Field_Number 0xe
0695 a405 | | Store_Unchecked 0x2,0x5
0696 4801 |H | Short_Literal 0x1
0697 e20e | | Load 0x1,0xe
0698 1c08 | | Execute_Immediate Run_Utility,0x8
0699 e5fe | | Load 0x2,-0x2
069a e20e | | Load 0x1,0xe
069b 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
069c 0119 | | Execute Any,Check_In_Formal_Type
069d 00d9 | | Load_Top At_Offset_1
069e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
069f e404 | | Load 0x2,0x4
06a0 00d9 | | Load_Top At_Offset_1
06a1 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
06a2 e405 | | Load 0x2,0x5
06a3 00d9 | | Load_Top At_Offset_1
06a4 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
06a5 00cb | | Action Pop_Block_With_Result
06a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a7 e402 | | Load 0x2,0x2
06a8 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
06a9 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
06aa e006 | | Load 0x0,0x6
06ab 180f | | Execute Package,Field_Execute,Field_Number 0xf
06ac a406 | | Store_Unchecked 0x2,0x6
06ad e403 | | Load 0x2,0x3
06ae 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
06af 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
06b0 e006 | | Load 0x0,0x6
06b1 180f | | Execute Package,Field_Execute,Field_Number 0xf
06b2 a407 | | Store_Unchecked 0x2,0x7
06b3 4802 |H | Short_Literal 0x2
06b4 e20e | | Load 0x1,0xe
06b5 1c08 | | Execute_Immediate Run_Utility,0x8
06b6 e5fe | | Load 0x2,-0x2
06b7 e20e | | Load 0x1,0xe
06b8 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
06b9 0119 | | Execute Any,Check_In_Formal_Type
06ba 00d9 | | Load_Top At_Offset_1
06bb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06bc e406 | | Load 0x2,0x6
06bd 00d9 | | Load_Top At_Offset_1
06be 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
06bf e407 | | Load 0x2,0x7
06c0 00d9 | | Load_Top At_Offset_1
06c1 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
06c2 00cb | | Action Pop_Block_With_Result
06c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06c4 TRAP_0670:
06c4 e006 | | Load 0x0,0x6
06c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06c6 010f | | Execute Exception,Equal
06c7 6804 |h | Jump_Zero 0x6cc
06c8 e5fe | | Load 0x2,-0x2
06c9 821f | | Call 0x1,0x1f
06ca 00cb | | Action Pop_Block_With_Result
06cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06cc 0100 | | Execute Exception,Raise
06cd 0000 0000 | | .XXX[0x3]
06cf 0000 | |
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d8 | | .CONST 0x06d8 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0002 | | .CONST 0x0002 ; Number of locals
06d3 INIT_06d0:
06d3 e5ff | | Load 0x2,-0x1
06d4 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
06d5 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
06d6 e006 | | Load 0x0,0x6
06d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06d8 BODY_06d0:
06d8 4801 |H | Short_Literal 0x1
06d9 e216 | | Load 0x1,0x16
06da 1c08 | | Execute_Immediate Run_Utility,0x8
06db e5ff | | Load 0x2,-0x1
06dc e216 | | Load 0x1,0x16
06dd 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
06de 0119 | | Execute Any,Check_In_Formal_Type
06df 00d9 | | Load_Top At_Offset_1
06e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06e1 00d9 | | Load_Top At_Offset_1
06e2 01db | | Execute Vector,Length
06e3 00d9 | | Load_Top At_Offset_1
06e4 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
06e5 00cb | | Action Pop_Block_With_Result
06e6 00cb | | Action Pop_Block_With_Result
06e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb BODY_06e8:
06eb INIT_06e8:
06eb INIT_06e8:
06eb 4608 |F | Jump_Case 0x9
06ec 7808 |x | Jump 0x6f5 ; case 0x0
06ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
06ee 7847 |xG | Jump 0x736 ; case 0x2
06ef 7846 |xF | Jump 0x736 ; case 0x3
06f0 7845 |xE | Jump 0x736 ; case 0x4
06f1 7844 |xD | Jump 0x736 ; case 0x5
06f2 781b |x | Jump 0x70e ; case 0x6
06f3 7829 |x) | Jump 0x71d ; case 0x7
06f4 783a |x: | Jump 0x72f ; case 0x8
06f5 00da | | Load_Top At_Offset_2
06f6 016c | l | Execute Variant_Record,Is_Constrained
06f7 7009 |p | Jump_Nonzero 0x701
06f8 00cf | | Action Mark_Auxiliary
06f9 4800 |H | Short_Literal 0x0
06fa e5ff | | Load 0x2,-0x1
06fb 1c08 | | Execute_Immediate Run_Utility,0x8
06fc 00d8 | | Load_Top At_Offset_0
06fd 1c00 | | Execute_Immediate Run_Utility,0x0
06fe c5ff | | Store 0x2,-0x1
06ff 00ce | | Action Pop_Auxiliary
0700 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0701 00da | | Load_Top At_Offset_2
0702 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0703 00da | | Load_Top At_Offset_2
0704 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0705 1c00 | | Execute_Immediate Run_Utility,0x0
0706 00da | | Load_Top At_Offset_2
0707 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0708 4604 |F | Jump_Case 0x5
0709 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
070a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
070b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
070c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
070d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
070e 00db | | Load_Top At_Offset_3
070f 4604 |F | Jump_Case 0x5
0710 7806 |x | Jump 0x717 ; case 0x0
0711 7807 |x | Jump 0x719 ; case 0x1
0712 7808 |x | Jump 0x71b ; case 0x2
0713 7803 |x | Jump 0x717 ; case 0x3
0714 7800 |x | Jump 0x715 ; case 0x4
0715 48ff |H | Short_Literal 0xff
0716 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0717 4801 |H | Short_Literal 0x1
0718 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0719 4802 |H | Short_Literal 0x2
071a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
071b 4803 |H | Short_Literal 0x3
071c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
071d 00db | | Load_Top At_Offset_3
071e e5fe | | Load 0x2,-0x2
071f 4604 |F | Jump_Case 0x5
0720 7806 |x | Jump 0x727 ; case 0x0
0721 7807 |x | Jump 0x729 ; case 0x1
0722 7808 |x | Jump 0x72b ; case 0x2
0723 7803 |x | Jump 0x727 ; case 0x3
0724 7800 |x | Jump 0x725 ; case 0x4
0725 48ff |H | Short_Literal 0xff
0726 7805 |x | Jump 0x72c
0727 4801 |H | Short_Literal 0x1
0728 7803 |x | Jump 0x72c
0729 4802 |H | Short_Literal 0x2
072a 7801 |x | Jump 0x72c
072b 4803 |H | Short_Literal 0x3
072c e5ff | | Load 0x2,-0x1
072d 031b | | Declare_Type Variant_Record,Constrained
072e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
072f 00db | | Load_Top At_Offset_3
0730 e5fe | | Load 0x2,-0x2
0731 e5ff | | Load 0x2,-0x1
0732 1c06 | | Execute_Immediate Run_Utility,0x6
0733 e5ff | | Load 0x2,-0x1
0734 02fc | | Declare_Variable Variant_Record,With_Constraint
0735 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0736 0869 | i | Execute_Immediate Raise,0x69
0737 0000 | | .XXX[0x1]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b BODY_0738:
073b INIT_0738:
073b INIT_0738:
073b 4608 |F | Jump_Case 0x9
073c 7808 |x | Jump 0x745 ; case 0x0
073d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
073e 7847 |xG | Jump 0x786 ; case 0x2
073f 7846 |xF | Jump 0x786 ; case 0x3
0740 7845 |xE | Jump 0x786 ; case 0x4
0741 7844 |xD | Jump 0x786 ; case 0x5
0742 781b |x | Jump 0x75e ; case 0x6
0743 7829 |x) | Jump 0x76d ; case 0x7
0744 783a |x: | Jump 0x77f ; case 0x8
0745 00da | | Load_Top At_Offset_2
0746 016c | l | Execute Variant_Record,Is_Constrained
0747 7009 |p | Jump_Nonzero 0x751
0748 00cf | | Action Mark_Auxiliary
0749 4801 |H | Short_Literal 0x1
074a e5ff | | Load 0x2,-0x1
074b 1c08 | | Execute_Immediate Run_Utility,0x8
074c 00d8 | | Load_Top At_Offset_0
074d 1c00 | | Execute_Immediate Run_Utility,0x0
074e c5ff | | Store 0x2,-0x1
074f 00ce | | Action Pop_Auxiliary
0750 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0751 00da | | Load_Top At_Offset_2
0752 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0753 00da | | Load_Top At_Offset_2
0754 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0755 1c00 | | Execute_Immediate Run_Utility,0x0
0756 00da | | Load_Top At_Offset_2
0757 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0758 4604 |F | Jump_Case 0x5
0759 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
075a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
075b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
075c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
075d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
075e 00db | | Load_Top At_Offset_3
075f 4604 |F | Jump_Case 0x5
0760 7806 |x | Jump 0x767 ; case 0x0
0761 7805 |x | Jump 0x767 ; case 0x1
0762 7808 |x | Jump 0x76b ; case 0x2
0763 7805 |x | Jump 0x769 ; case 0x3
0764 7800 |x | Jump 0x765 ; case 0x4
0765 48ff |H | Short_Literal 0xff
0766 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0767 4801 |H | Short_Literal 0x1
0768 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0769 4802 |H | Short_Literal 0x2
076a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
076b 4803 |H | Short_Literal 0x3
076c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
076d 00db | | Load_Top At_Offset_3
076e e5fe | | Load 0x2,-0x2
076f 4604 |F | Jump_Case 0x5
0770 7806 |x | Jump 0x777 ; case 0x0
0771 7805 |x | Jump 0x777 ; case 0x1
0772 7808 |x | Jump 0x77b ; case 0x2
0773 7805 |x | Jump 0x779 ; case 0x3
0774 7800 |x | Jump 0x775 ; case 0x4
0775 48ff |H | Short_Literal 0xff
0776 7805 |x | Jump 0x77c
0777 4801 |H | Short_Literal 0x1
0778 7803 |x | Jump 0x77c
0779 4802 |H | Short_Literal 0x2
077a 7801 |x | Jump 0x77c
077b 4803 |H | Short_Literal 0x3
077c e5ff | | Load 0x2,-0x1
077d 031b | | Declare_Type Variant_Record,Constrained
077e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
077f 00db | | Load_Top At_Offset_3
0780 e5fe | | Load 0x2,-0x2
0781 e5ff | | Load 0x2,-0x1
0782 1c06 | | Execute_Immediate Run_Utility,0x6
0783 e5ff | | Load 0x2,-0x1
0784 02fc | | Declare_Variable Variant_Record,With_Constraint
0785 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0786 0869 | i | Execute_Immediate Raise,0x69
0787 ; --------------------------------------------------------------------------------------
0787 ; STRING TABLE
0787 ; --------------------------------------------------------------------------------------
0787 002a | * | .STRTAB 0x002a->0x079c ; "A_STRING_OBJECT"
0788 0037 | 7 | .STRTAB 0x0037->0x07a3 ; "AN_INTEGER_OBJECT"
0789 0046 | F | .STRTAB 0x0046->0x07ac ; "A_FLOAT_OBJECT"
078a 0052 | R | .STRTAB 0x0052->0x07b3 ; "AN_ARRAY_OBJECT"
078b 005f | _ | .STRTAB 0x005f->0x07ba ; "OTHER_OBJECT"
078c 0069 | i | .STRTAB 0x0069->0x07c0 ; "AN_ARRAY_AGGREGATE"
078d 0079 | y | .STRTAB 0x0079->0x07c9 ; "A_STRING_VALUE"
078e 0085 | | .STRTAB 0x0085->0x07d0 ; "A_FLOAT_VALUE"
078f 0090 | | .STRTAB 0x0090->0x07d7 ; "AN_INTEGER_VALUE"
0790 009e | | .STRTAB 0x009e->0x07df ; "OTHER_VALUE"
0791 00a7 | | .STRTAB 0x00a7->0x07e4 ; "The size of the value "
0792 00bb | | .STRTAB 0x00bb->0x07ef ; " does not match the object's length "
0793 00dd | | .STRTAB 0x00dd->0x0801 ; "NO PROBLEM"
0794 00e5 | | .STRTAB 0x00e5->0x0806 ; "The value "
0795 00ed | | .STRTAB 0x00ed->0x080b ; " exceeds the upper bound "
0796 0104 | | .STRTAB 0x0104->0x0818 ; " is less than the lower bound "
0797 0120 | | .STRTAB 0x0120->0x0827 ; "BAD MATCH"
0798 0127 | ' | .STRTAB 0x0127->0x082b ; "CHARACTER"
0799 012e | . | .STRTAB 0x012e->0x0830 ; "[universal_integer]"
079a 013f | ? | .STRTAB 0x013f->0x0839 ; "[universal_real]"
079b 014d | M | .STREND 0x014d->0x0841
079c 415f 5354 |A_ST| .STRTAB_STRINGS
0842 0000 0000 | | .BLANK 0000[0x6]
0848 ; --------------------------------------------------------------------------------------
0848 ; Debug Table
0848 ; --------------------------------------------------------------------------------------
0848 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2e9c,0x0000,0x0001,0x0024
084e 000b 08de | | .DBG4T 0x000b,0x08de,0x8000,0x0000
0852 006a 08f3 | j | .DBG4T 0x006a,0x08f3,0x8000,0x8000
0856 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000
085a 00eb 0931 | 1| .DBG4T 0x00eb,0x0931,0x0002,0x4000
085e 01e3 097b | {| .DBG4T 0x01e3,0x097b,0x0002,0x4000
0862 01f3 0983 | | .DBG4T 0x01f3,0x0983,0x0002,0x4000
0866 0203 098b | | .DBG4T 0x0203,0x098b,0x0002,0x4000
086a 0213 0993 | | .DBG4T 0x0213,0x0993,0x0002,0x4000
086e 0223 099b | # | .DBG4T 0x0223,0x099b,0x0002,0x4000
0872 0233 0000 | 3 | .DBG4T 0x0233,0x0000,0x0005,0x0000
0876 025b 09a3 | [ | .DBG4T 0x025b,0x09a3,0x0002,0x4000
087a 02b3 09b9 | | .DBG4T 0x02b3,0x09b9,0x0002,0x4000
087e 02c3 09c1 | | .DBG4T 0x02c3,0x09c1,0x0002,0x4000
0882 02d3 09c9 | | .DBG4T 0x02d3,0x09c9,0x0002,0x4000
0886 02e3 09d1 | | .DBG4T 0x02e3,0x09d1,0x0002,0x4000
088a 0323 09e9 | # | .DBG4T 0x0323,0x09e9,0x0002,0x4000
088e 03ab 0a0d | | .DBG4T 0x03ab,0x0a0d,0x0002,0x0000
0892 03bb 0a12 | | .DBG4T 0x03bb,0x0a12,0x0002,0x0000
0896 03db 0a16 | | .DBG4T 0x03db,0x0a16,0x0002,0x0000
089a 03eb 0a1a | | .DBG4T 0x03eb,0x0a1a,0x0002,0x0000
089e 0433 0a25 | 3 %| .DBG4T 0x0433,0x0a25,0x0001,0x0000
08a2 043b 0a29 | ; )| .DBG4T 0x043b,0x0a29,0x0001,0x0000
08a6 044b 0a2d | K -| .DBG4T 0x044b,0x0a2d,0x0001,0x0000
08aa 0463 0a32 | c 2| .DBG4T 0x0463,0x0a32,0x0002,0x0000
08ae 04e3 0a43 | C| .DBG4T 0x04e3,0x0a43,0x0002,0x4000
08b2 0553 0a5e | S ^| .DBG4T 0x0553,0x0a5e,0x0002,0x0000
08b6 0563 0a63 | c c| .DBG4T 0x0563,0x0a63,0x0001,0x4000
08ba 0583 0a6f | o| .DBG4T 0x0583,0x0a6f,0x0002,0x4000
08be 05bb 0a80 | | .DBG4T 0x05bb,0x0a80,0x0002,0x4000
08c2 05f3 0aa2 | | .DBG4T 0x05f3,0x0aa2,0x0002,0x0000
08c6 060b 0aa7 | | .DBG4T 0x060b,0x0aa7,0x0004,0x0000
08ca 0623 0aab | # | .DBG4T 0x0623,0x0aab,0x0004,0x4000
08ce 0673 0ab9 | s | .DBG4T 0x0673,0x0ab9,0x0004,0x4000
08d2 06d3 0acd | | .DBG4T 0x06d3,0x0acd,0x0004,0x0000
08d6 06eb 0000 | | .DBG4T 0x06eb,0x0000,0x0005,0x0000
08da 073b 0000 | ; | .DBG4T 0x073b,0x0000,0x0005,0x0000
08de ; --------------------------------------------------------------------------------------
08de ; Debug chain
08de ; --------------------------------------------------------------------------------------
08de 0013 0000 | | .DBGLEN 0x0013,0x0000
08e0 000b 0010 | | .DBGLNO 0x000b,0x0010,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x002c,0x0037,0x0039,0x003b,0x003d,0x0042,0x0045,0x0048,0x004b,0x005b
08f3 ; --------------------------------------------------------------------------------------
08f3 ; Debug chain
08f3 ; --------------------------------------------------------------------------------------
08f3 001e 0000 | | .DBGLEN 0x001e,0x0000
08f5 006a 0072 | j r| .DBGLNO 0x006a,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x0084,0x0086,0x008e,0x0090,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc
0913 0003 0005 | | .XXX[0x1e]
0915 0006 0007 | |
0917 0008 0009 | |
0919 000a 000b | |
091b 000c 000d | |
091d 000e 000f | |
091f 0010 0011 | |
0921 0012 0013 | |
0923 0014 0015 | |
0925 0016 0017 | |
0927 0018 0019 | |
0929 001a 001b | |
092b 001c 001d | |
092d 001e 001f | |
092f 0020 0021 | !|
0931 ; --------------------------------------------------------------------------------------
0931 ; Debug chain
0931 ; --------------------------------------------------------------------------------------
0931 0006 0021 | !| .DBGLEN 0x0006,0x0021
0933 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f5,0x00f6,0x00f8,0x00fa,0x00ff,0x0107,0x010b,0x0113,0x0117,0x011c,0x012d,0x0130,0x0134,0x013f,0x0142,0x014d,0x014f,0x015f,0x0162,0x0165,0x0169,0x0172,0x0174,0x0184,0x0187,0x018b,0x0196,0x0198,0x01a8,0x01ab,0x01b6,0x01b8,0x01c8,0x01cb,0x01ce,0x01d5,0x01dc
095a 0001 0002 | | .XXX[0x21]
095c 0003 0004 | |
095e 0005 0007 | |
0960 0021 0008 | ! |
0962 0009 0015 | |
0964 000a 000b | |
0966 000c 000d | |
0968 000e 000f | |
096a 0010 0011 | |
096c 0012 0013 | |
096e 0014 0016 | |
0970 0017 0018 | |
0972 0019 001a | |
0974 001b 001c | |
0976 001d 001e | |
0978 001f 0020 | |
097a 0022 | " |
097b ; --------------------------------------------------------------------------------------
097b ; Debug chain
097b ; --------------------------------------------------------------------------------------
097b 0000 0003 | | .DBGLEN 0x0000,0x0003
097d 01e3 01eb | | .DBGLNO 0x01e3,0x01eb,0x01ed
0980 0001 0003 | | .XXX[0x3]
0982 0002 | |
0983 ; --------------------------------------------------------------------------------------
0983 ; Debug chain
0983 ; --------------------------------------------------------------------------------------
0983 0000 0003 | | .DBGLEN 0x0000,0x0003
0985 01f3 01fb | | .DBGLNO 0x01f3,0x01fb,0x01fd
0988 0001 0003 | | .XXX[0x3]
098a 0002 | |
098b ; --------------------------------------------------------------------------------------
098b ; Debug chain
098b ; --------------------------------------------------------------------------------------
098b 0000 0003 | | .DBGLEN 0x0000,0x0003
098d 0203 0207 | | .DBGLNO 0x0203,0x0207,0x0209
0990 0001 0003 | | .XXX[0x3]
0992 0002 | |
0993 ; --------------------------------------------------------------------------------------
0993 ; Debug chain
0993 ; --------------------------------------------------------------------------------------
0993 0000 0003 | | .DBGLEN 0x0000,0x0003
0995 0213 0217 | | .DBGLNO 0x0213,0x0217,0x0219
0998 0001 0003 | | .XXX[0x3]
099a 0002 | |
099b ; --------------------------------------------------------------------------------------
099b ; Debug chain
099b ; --------------------------------------------------------------------------------------
099b 0000 0003 | | .DBGLEN 0x0000,0x0003
099d 0223 022b | # +| .DBGLNO 0x0223,0x022b,0x022d
09a0 0001 0003 | | .XXX[0x3]
09a2 0002 | |
09a3 ; --------------------------------------------------------------------------------------
09a3 ; Debug chain
09a3 ; --------------------------------------------------------------------------------------
09a3 0004 0008 | | .DBGLEN 0x0004,0x0008
09a5 025b 0260 | [ `| .DBGLNO 0x025b,0x0260,0x0261,0x0262,0x0267,0x027e,0x0282,0x0284,0x0293,0x02a2,0x02a4,0x02a9
09b1 0001 0006 | | .XXX[0x8]
09b3 0007 0002 | |
09b5 0003 0004 | |
09b7 0005 0008 | |
09b9 ; --------------------------------------------------------------------------------------
09b9 ; Debug chain
09b9 ; --------------------------------------------------------------------------------------
09b9 0000 0003 | | .DBGLEN 0x0000,0x0003
09bb 02b3 02b9 | | .DBGLNO 0x02b3,0x02b9,0x02bb
09be 0001 0003 | | .XXX[0x3]
09c0 0002 | |
09c1 ; --------------------------------------------------------------------------------------
09c1 ; Debug chain
09c1 ; --------------------------------------------------------------------------------------
09c1 0000 0003 | | .DBGLEN 0x0000,0x0003
09c3 02c3 02c7 | | .DBGLNO 0x02c3,0x02c7,0x02c9
09c6 0001 0003 | | .XXX[0x3]
09c8 0002 | |
09c9 ; --------------------------------------------------------------------------------------
09c9 ; Debug chain
09c9 ; --------------------------------------------------------------------------------------
09c9 0000 0003 | | .DBGLEN 0x0000,0x0003
09cb 02d3 02d7 | | .DBGLNO 0x02d3,0x02d7,0x02d9
09ce 0001 0003 | | .XXX[0x3]
09d0 0002 | |
09d1 ; --------------------------------------------------------------------------------------
09d1 ; Debug chain
09d1 ; --------------------------------------------------------------------------------------
09d1 0000 000b | | .DBGLEN 0x0000,0x000b
09d3 02e3 02e7 | | .DBGLNO 0x02e3,0x02e7,0x02ef,0x02f1,0x02f7,0x0303,0x0305,0x0307,0x0313,0x0315,0x0317
09de 0001 0002 | | .XXX[0xb]
09e0 000a 0003 | |
09e2 0004 0005 | |
09e4 0006 0007 | |
09e6 0008 0009 | |
09e8 000b | |
09e9 ; --------------------------------------------------------------------------------------
09e9 ; Debug chain
09e9 ; --------------------------------------------------------------------------------------
09e9 0000 0011 | | .DBGLEN 0x0000,0x0011
09eb 0323 0327 | # '| .DBGLNO 0x0323,0x0327,0x032f,0x0331,0x0337,0x0347,0x034a,0x0350,0x0360,0x0366,0x0376,0x0379,0x037f,0x038d,0x0393,0x03a1,0x03a4
09fc 0001 0002 | | .XXX[0x11]
09fe 0010 0003 | |
0a00 0004 0005 | |
0a02 0006 0007 | |
0a04 0008 0009 | |
0a06 000a 000b | |
0a08 000c 000d | |
0a0a 000e 000f | |
0a0c 0011 | |
0a0d ; --------------------------------------------------------------------------------------
0a0d ; Debug chain
0a0d ; --------------------------------------------------------------------------------------
0a0d 0001 0002 | | .DBGLEN 0x0001,0x0002
0a0f 03ab 03b0 | | .DBGLNO 0x03ab,0x03b0,0x03b3
0a12 ; --------------------------------------------------------------------------------------
0a12 ; Debug chain
0a12 ; --------------------------------------------------------------------------------------
0a12 0001 0001 | | .DBGLEN 0x0001,0x0001
0a14 03bb 03c2 | | .DBGLNO 0x03bb,0x03c2
0a16 ; --------------------------------------------------------------------------------------
0a16 ; Debug chain
0a16 ; --------------------------------------------------------------------------------------
0a16 0001 0001 | | .DBGLEN 0x0001,0x0001
0a18 03db 03e2 | | .DBGLNO 0x03db,0x03e2
0a1a ; --------------------------------------------------------------------------------------
0a1a ; Debug chain
0a1a ; --------------------------------------------------------------------------------------
0a1a 0003 0006 | | .DBGLEN 0x0003,0x0006
0a1c 03eb 03f2 | | .DBGLNO 0x03eb,0x03f2,0x03f4,0x03f5,0x03fd,0x03ff,0x0402,0x0414,0x0426
0a25 ; --------------------------------------------------------------------------------------
0a25 ; Debug chain
0a25 ; --------------------------------------------------------------------------------------
0a25 0000 0002 | | .DBGLEN 0x0000,0x0002
0a27 0433 0435 | 3 5| .DBGLNO 0x0433,0x0435
0a29 ; --------------------------------------------------------------------------------------
0a29 ; Debug chain
0a29 ; --------------------------------------------------------------------------------------
0a29 0000 0002 | | .DBGLEN 0x0000,0x0002
0a2b 043b 043d | ; =| .DBGLNO 0x043b,0x043d
0a2d ; --------------------------------------------------------------------------------------
0a2d ; Debug chain
0a2d ; --------------------------------------------------------------------------------------
0a2d 0000 0003 | | .DBGLEN 0x0000,0x0003
0a2f 044b 0457 | K W| .DBGLNO 0x044b,0x0457,0x0459
0a32 ; --------------------------------------------------------------------------------------
0a32 ; Debug chain
0a32 ; --------------------------------------------------------------------------------------
0a32 0004 000b | | .DBGLEN 0x0004,0x000b
0a34 0463 046d | c m| .DBGLNO 0x0463,0x046d,0x046f,0x0471,0x0478,0x048b,0x048f,0x0498,0x049e,0x04a4,0x04b4,0x04bd,0x04c3,0x04c9,0x04d9
0a43 ; --------------------------------------------------------------------------------------
0a43 ; Debug chain
0a43 ; --------------------------------------------------------------------------------------
0a43 0007 0009 | | .DBGLEN 0x0007,0x0009
0a45 04e3 04ea | | .DBGLNO 0x04e3,0x04ea,0x04ef,0x04f0,0x04f2,0x04f3,0x04f5,0x0501,0x0505,0x051e,0x0520,0x0525,0x052a,0x052d,0x0532,0x0537
0a55 0002 0003 | | .XXX[0x9]
0a57 0004 0005 | |
0a59 0006 0007 | |
0a5b 0008 0001 | |
0a5d 0009 | |
0a5e ; --------------------------------------------------------------------------------------
0a5e ; Debug chain
0a5e ; --------------------------------------------------------------------------------------
0a5e 0001 0002 | | .DBGLEN 0x0001,0x0002
0a60 0553 0558 | S X| .DBGLNO 0x0553,0x0558,0x055b
0a63 ; --------------------------------------------------------------------------------------
0a63 ; Debug chain
0a63 ; --------------------------------------------------------------------------------------
0a63 0000 0005 | | .DBGLEN 0x0000,0x0005
0a65 0565 0570 | e p| .DBGLNO 0x0565,0x0570,0x0572,0x0574,0x0579
0a6a 0002 0004 | | .XXX[0x5]
0a6c 0003 0006 | |
0a6e 0001 | |
0a6f ; --------------------------------------------------------------------------------------
0a6f ; Debug chain
0a6f ; --------------------------------------------------------------------------------------
0a6f 0003 0006 | | .DBGLEN 0x0003,0x0006
0a71 0583 058b | | .DBGLNO 0x0583,0x058b,0x058d,0x0594,0x059a,0x059d,0x05a0,0x05a5,0x05aa
0a7a 0002 0003 | | .XXX[0x6]
0a7c 0004 0005 | |
0a7e 0001 0006 | |
0a80 ; --------------------------------------------------------------------------------------
0a80 ; Debug chain
0a80 ; --------------------------------------------------------------------------------------
0a80 0000 0010 | | .DBGLEN 0x0000,0x0010
0a82 05bb 05c3 | | .DBGLNO 0x05bb,0x05c3,0x05c7,0x05c9,0x05cb,0x05ce,0x05d0,0x05d2,0x05d6,0x05d8,0x05da,0x05de,0x05e0,0x05e2,0x05e6,0x05e8
0a92 0001 000e | | .XXX[0x10]
0a94 0010 000f | |
0a96 0002 0004 | |
0a98 0003 0005 | |
0a9a 0007 0006 | |
0a9c 0008 000a | |
0a9e 0009 000b | |
0aa0 000d 000c | |
0aa2 ; --------------------------------------------------------------------------------------
0aa2 ; Debug chain
0aa2 ; --------------------------------------------------------------------------------------
0aa2 0001 0002 | | .DBGLEN 0x0001,0x0002
0aa4 05f3 05f8 | | .DBGLNO 0x05f3,0x05f8,0x0601
0aa7 ; --------------------------------------------------------------------------------------
0aa7 ; Debug chain
0aa7 ; --------------------------------------------------------------------------------------
0aa7 0001 0001 | | .DBGLEN 0x0001,0x0001
0aa9 060b 060e | | .DBGLNO 0x060b,0x060e
0aab ; --------------------------------------------------------------------------------------
0aab ; Debug chain
0aab ; --------------------------------------------------------------------------------------
0aab 0000 0006 | | .DBGLEN 0x0000,0x0006
0aad 0625 0638 | % 8| .DBGLNO 0x0625,0x0638,0x063c,0x064e,0x0660,0x0666
0ab3 0001 0005 | | .XXX[0x6]
0ab5 0002 0003 | |
0ab7 0004 0006 | |
0ab9 ; --------------------------------------------------------------------------------------
0ab9 ; Debug chain
0ab9 ; --------------------------------------------------------------------------------------
0ab9 0000 0009 | | .DBGLEN 0x0000,0x0009
0abb 0673 0686 | s | .DBGLNO 0x0673,0x0686,0x068a,0x0690,0x0696,0x06a7,0x06ad,0x06b3,0x06c8
0ac4 0001 0008 | | .XXX[0x9]
0ac6 0002 0003 | |
0ac8 0004 0005 | |
0aca 0006 0007 | |
0acc 0009 | |
0acd ; --------------------------------------------------------------------------------------
0acd ; Debug chain
0acd ; --------------------------------------------------------------------------------------
0acd 0001 0001 | | .DBGLEN 0x0001,0x0001
0acf 06d3 06d8 | | .DBGLNO 0x06d3,0x06d8
0ad1 0000 0000 | | .BLANK 0000[0x12f]