|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0c28 | ( | .CONST 0x0c28 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 019a | | .CONST 0x019a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005a | Z | .CONST 0x005a ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 481a |H | Short_Literal 0x1a
000d 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0011 00e4 | | Load_Encached Positive_Cache
0012 0266 | f | Execute Discrete,Bounds
0013 00da | | Load_Top At_Offset_2
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 4801 |H | Short_Literal 0x1
0016 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0017 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0019 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
001b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
001f 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0021 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0023 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0025 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0027 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0029 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
002b 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
002d 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
002f 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0031 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0033 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0035 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0037 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0039 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
003b 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
003d 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
003f 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0041 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0043 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0045 4816 |H | Short_Literal 0x16
0046 481a |H | Short_Literal 0x1a
0047 e20d | | Load 0x1,0xd
0048 03f9 | | Declare_Type Discrete,Constrained,Visible
0049 4807 |H | Short_Literal 0x7
004a 0093 0a63 | c| push_full_address INIT_0a60
004c 02a0 | | Declare_Subprogram Null_Subprogram
004d 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
004e 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0050 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0052 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0054 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0056 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0058 4802 |H | Short_Literal 0x2
0059 032b | + | Declare_Type Record,Incomplete,Visible
005a 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
005c 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
005e 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
0060 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
0062 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
0064 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
0066 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
0068 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
006a 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated
006c 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
006e 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0070 480f |H | Short_Literal 0xf
0071 4815 |H | Short_Literal 0x15
0072 e20d | | Load 0x1,0xd
0073 03f9 | | Declare_Type Discrete,Constrained,Visible
0074 480c |H | Short_Literal 0xc
0075 480e |H | Short_Literal 0xe
0076 e20d | | Load 0x1,0xd
0077 03f9 | | Declare_Type Discrete,Constrained,Visible
0078 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
007a 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
007c 029a 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call,Visible,Unelaborated
007e 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated
0080 4800 |H | Short_Literal 0x0
0081 48ff |H | Short_Literal 0xff
0082 00e2 | | Load_Encached Integer_Cache
0083 03f8 | | Declare_Type Discrete,Constrained
0084 00d8 | | Load_Top At_Offset_0
0085 e001 | | Load 0x0,0x1
0086 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 e22e | . | Load 0x1,0x2e
0089 0326 | & | Complete_Type Record,By_Defining
008a e20d | | Load 0x1,0xd
008b 4810 |H | Short_Literal 0x10
008c 4800 |H | Short_Literal 0x0
008d 4801 |H | Short_Literal 0x1
008e 4814 |H | Short_Literal 0x14
008f 0318 | | Declare_Type Variant_Record,Incomplete
0090 029f 0713 | | Declare_Subprogram INIT_0710,For_Call
0092 00d9 | | Load_Top At_Offset_1
0093 012a | * | Execute Any,Change_Utility
0094 0007 | | Action Break_Optional
0095 00d8 | | Load_Top At_Offset_0
0096 02a0 | | Declare_Subprogram Null_Subprogram
0097 e20e | | Load 0x1,0xe
0098 03a3 | | Complete_Type Heap_Access,By_Defining
0099 00bf | | Action Accept_Activation
009a 4801 |H | Short_Literal 0x1
009b e002 | | Load 0x0,0x2
009c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 4801 |H | Short_Literal 0x1
009f 00e2 | | Load_Encached Integer_Cache
00a0 4801 |H | Short_Literal 0x1
00a1 00e6 | | Load_Encached Float_Cache
00a2 4801 |H | Short_Literal 0x1
00a3 00e7 | | Load_Encached Duration_Cache
00a4 4801 |H | Short_Literal 0x1
00a5 e003 | | Load 0x0,0x3
00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a7 4801 |H | Short_Literal 0x1
00a8 e004 | | Load 0x0,0x4
00a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00aa 4801 |H | Short_Literal 0x1
00ab e004 | | Load 0x0,0x4
00ac 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ad 4801 |H | Short_Literal 0x1
00ae e004 | | Load 0x0,0x4
00af 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00b0 4801 |H | Short_Literal 0x1
00b1 e004 | | Load 0x0,0x4
00b2 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00b3 4801 |H | Short_Literal 0x1
00b4 e004 | | Load 0x0,0x4
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 4802 |H | Short_Literal 0x2
00b7 e004 | | Load 0x0,0x4
00b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ba e002 | | Load 0x0,0x2
00bb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 4801 |H | Short_Literal 0x1
00be e005 | | Load 0x0,0x5
00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c0 4801 |H | Short_Literal 0x1
00c1 e005 | | Load 0x0,0x5
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 4801 |H | Short_Literal 0x1
00c4 e006 | | Load 0x0,0x6
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 4802 |H | Short_Literal 0x2
00c7 e001 | | Load 0x0,0x1
00c8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00c9 e001 | | Load 0x0,0x1
00ca 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cb 4802 |H | Short_Literal 0x2
00cc 00e5 | | Load_Encached Long_Integer_Cache
00cd e001 | | Load 0x0,0x1
00ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cf 029f 0713 | | Declare_Subprogram INIT_0710,For_Call
00d1 4813 |H | Short_Literal 0x13
00d2 4800 |H | Short_Literal 0x0
00d3 e241 | A | Load 0x1,0x41
00d4 0307 | | Complete_Type Variant_Record,By_Defining
00d5 e20f | | Load 0x1,0xf
00d6 02a0 | | Declare_Subprogram Null_Subprogram
00d7 03ad | | Declare_Type Heap_Access,Defined
00d8 4801 |H | Short_Literal 0x1
00d9 4800 |H | Short_Literal 0x0
00da e20f | | Load 0x1,0xf
00db 0334 | 4 | Declare_Variable Array,With_Constraint
00dc 4800 |H | Short_Literal 0x0
00dd 0093 0b0b | | push_full_address INIT_0b08
00df 02a0 | | Declare_Subprogram Null_Subprogram
00e0 038e | | Declare_Type Package,Defined
00e1 0387 | | Declare_Variable Package
00e2 4816 |H | Short_Literal 0x16
00e3 481a |H | Short_Literal 0x1a
00e4 00da | | Load_Top At_Offset_2
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 02a0 | | Declare_Subprogram Null_Subprogram
00e7 4801 |H | Short_Literal 0x1
00e8 035d | ] | Declare_Type Array,Defined
00e9 00d8 | | Load_Top At_Offset_0
00ea 0337 | 7 | Declare_Variable Array
00eb 4816 |H | Short_Literal 0x16
00ec 481a |H | Short_Literal 0x1a
00ed 00e1 | | Load_Encached Boolean_Cache
00ee 02a0 | | Declare_Subprogram Null_Subprogram
00ef 4801 |H | Short_Literal 0x1
00f0 035d | ] | Declare_Type Array,Defined
00f1 00d8 | | Load_Top At_Offset_0
00f2 0337 | 7 | Declare_Variable Array
00f3 00d8 | | Load_Top At_Offset_0
00f4 0335 | 5 | Declare_Variable Array,Duplicate
00f5 00cd | | Action Spare6_Action
00f6 481a |H | Short_Literal 0x1a
00f7 4816 |H | Short_Literal 0x16
00f8 4800 |H | Short_Literal 0x0
00f9 00d9 | | Load_Top At_Offset_1
00fa e249 | I | Load 0x1,0x49
00fb 01d6 | | Execute Vector,Field_Write
00fc 3ffb |? | Loop_Increasing 0xf8
00fd 00d9 | | Load_Top At_Offset_1
00fe 01d4 | | Execute Vector,Structure_Write
00ff 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0100 00c7 | | Action Elaborate_Subprogram
0101 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0102 00c7 | | Action Elaborate_Subprogram
0103 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0104 00c7 | | Action Elaborate_Subprogram
0105 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0106 00c7 | | Action Elaborate_Subprogram
0107 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0108 00c7 | | Action Elaborate_Subprogram
0109 1d11 | | Execute_Immediate Reference_Lex_1,0x11
010a 00c7 | | Action Elaborate_Subprogram
010b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
010c 00c7 | | Action Elaborate_Subprogram
010d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
010e 00c7 | | Action Elaborate_Subprogram
010f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0110 00c7 | | Action Elaborate_Subprogram
0111 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0112 00c7 | | Action Elaborate_Subprogram
0113 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0114 00c7 | | Action Elaborate_Subprogram
0115 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0116 00c7 | | Action Elaborate_Subprogram
0117 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0118 00c7 | | Action Elaborate_Subprogram
0119 1d19 | | Execute_Immediate Reference_Lex_1,0x19
011a 00c7 | | Action Elaborate_Subprogram
011b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
011c 00c7 | | Action Elaborate_Subprogram
011d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
011e 00c7 | | Action Elaborate_Subprogram
011f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0120 00c7 | | Action Elaborate_Subprogram
0121 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0122 00c7 | | Action Elaborate_Subprogram
0123 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0124 00c7 | | Action Elaborate_Subprogram
0125 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0126 00c7 | | Action Elaborate_Subprogram
0127 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0128 00c7 | | Action Elaborate_Subprogram
0129 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
012a 00c7 | | Action Elaborate_Subprogram
012b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
012c 00c7 | | Action Elaborate_Subprogram
012d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
012e 00c7 | | Action Elaborate_Subprogram
012f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0130 00c7 | | Action Elaborate_Subprogram
0131 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0132 00c7 | | Action Elaborate_Subprogram
0133 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0134 00c7 | | Action Elaborate_Subprogram
0135 e007 | | Load 0x0,0x7
0136 e008 | | Load 0x0,0x8
0137 e009 | | Load 0x0,0x9
0138 e00a | | Load 0x0,0xa
0139 e00b | | Load 0x0,0xb
013a e00c | | Load 0x0,0xc
013b e00d | | Load 0x0,0xd
013c e244 | D | Load 0x1,0x44
013d e248 | H | Load 0x1,0x48
013e e246 | F | Load 0x1,0x46
013f e00e | | Load 0x0,0xe
0140 e241 | A | Load 0x1,0x41
0141 00b6 | | Action Make_Scope
0142 480d |H | Short_Literal 0xd
0143 e228 | ( | Load 0x1,0x28
0144 020e | | Execute Module,Augment_Imports
0145 e228 | ( | Load 0x1,0x28
0146 020d | | Execute Module,Elaborate
0147 0007 | | Action Break_Optional
0148 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0149 00c7 | | Action Elaborate_Subprogram
014a 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call
014c 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call
014e 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
014f 00c7 | | Action Elaborate_Subprogram
0150 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0151 00c7 | | Action Elaborate_Subprogram
0152 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0153 00c7 | | Action Elaborate_Subprogram
0154 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0155 00c7 | | Action Elaborate_Subprogram
0156 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0157 00c7 | | Action Elaborate_Subprogram
0158 e00f | | Load 0x0,0xf
0159 e010 | | Load 0x0,0x10
015a e241 | A | Load 0x1,0x41
015b e20e | | Load 0x1,0xe
015c e009 | | Load 0x0,0x9
015d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
015e 0387 | | Declare_Variable Package
015f 00d8 | | Load_Top At_Offset_0
0160 020f | | Execute Module,Activate
0161 e009 | | Load 0x0,0x9
0162 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0163 00c6 | | Action Check_Subprogram_Elaborated
0164 e241 | A | Load 0x1,0x41
0165 e20e | | Load 0x1,0xe
0166 e011 | | Load 0x0,0x11
0167 e012 | | Load 0x0,0x12
0168 4800 |H | Short_Literal 0x0
0169 0007 | | Action Break_Optional
016a e013 | | Load 0x0,0x13
016b e014 | | Load 0x0,0x14
016c e20f | | Load 0x1,0xf
016d e242 | B | Load 0x1,0x42
016e e009 | | Load 0x0,0x9
016f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0170 0387 | | Declare_Variable Package
0171 00d8 | | Load_Top At_Offset_0
0172 020f | | Execute Module,Activate
0173 e009 | | Load 0x0,0x9
0174 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0175 00c6 | | Action Check_Subprogram_Elaborated
0176 e20f | | Load 0x1,0xf
0177 e242 | B | Load 0x1,0x42
0178 e015 | | Load 0x0,0x15
0179 e016 | | Load 0x0,0x16
017a 4800 |H | Short_Literal 0x0
017b 0007 | | Action Break_Optional
017c 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
017d 00c7 | | Action Elaborate_Subprogram
017e 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call
0180 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0181 00c7 | | Action Elaborate_Subprogram
0182 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0183 00c7 | | Action Elaborate_Subprogram
0184 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0185 00c7 | | Action Elaborate_Subprogram
0186 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0187 00c7 | | Action Elaborate_Subprogram
0188 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0189 00c7 | | Action Elaborate_Subprogram
018a 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
018b 00c7 | | Action Elaborate_Subprogram
018c 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call
018e 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call
0190 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0191 00c7 | | Action Elaborate_Subprogram
0192 029d 09f3 | | Declare_Subprogram INIT_09f0,For_Outer_Call
0194 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0195 00c7 | | Action Elaborate_Subprogram
0196 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0197 00c7 | | Action Elaborate_Subprogram
0198 e244 | D | Load 0x1,0x44
0199 020f | | Execute Module,Activate
019a BODY_0008:
019a 00bc | | Action Signal_Activated
019b 00bb | | Action Signal_Completion
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4607 |F | Jump_Case 0x8
01a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01a5 7806 |x | Jump 0x1ac ; case 0x1
01a6 7809 |x | Jump 0x1b0 ; case 0x2
01a7 780d |x | Jump 0x1b5 ; case 0x3
01a8 7810 |x | Jump 0x1b9 ; case 0x4
01a9 7811 |x | Jump 0x1bb ; case 0x5
01aa 7812 |x | Jump 0x1bd ; case 0x6
01ab 7815 |x | Jump 0x1c1 ; case 0x7
01ac 00da | | Load_Top At_Offset_2
01ad 0091 0b26 | &| Action Push_String_Extended_Indexed,0xb26 ; "NIL_PARAMETER"
01af 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b0 00db | | Load_Top At_Offset_3
01b1 00db | | Load_Top At_Offset_3
01b2 00e0 | | Load_Encached Standard_Cache
01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 00da | | Load_Top At_Offset_2
01b6 00e0 | | Load_Encached Standard_Cache
01b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bb 00db | | Load_Top At_Offset_3
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd e20d | | Load 0x1,0xd
01be 00dc | | Load_Top At_Offset_4
01bf 0267 | g | Execute Discrete,Predecessor
01c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c1 e20d | | Load 0x1,0xd
01c2 00dc | | Load_Top At_Offset_4
01c3 0268 | h | Execute Discrete,Successor
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4801 |H | Short_Literal 0x1
01cc e241 | A | Load 0x1,0x41
01cd 1c08 | | Execute_Immediate Run_Utility,0x8
01ce 00db | | Load_Top At_Offset_3
01cf e002 | | Load 0x0,0x2
01d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 e00e | | Load 0x0,0xe
01d3 180d | | Execute Package,Field_Execute,Field_Number 0xd
01d4 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01d5 00d9 | | Load_Top At_Offset_1
01d6 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01d7 e20e | | Load 0x1,0xe
01d8 e00e | | Load 0x0,0xe
01d9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01da 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 0217 | | Execute Heap_Access,All_Reference
01e5 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01e6 0217 | | Execute Heap_Access,All_Reference
01e7 0335 | 5 | Declare_Variable Array,Duplicate
01e8 00cd | | Action Spare6_Action
01e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ea 0000 0000 | | .BLANK 0000[0x6]
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 4802 |H | Short_Literal 0x2
01f4 e241 | A | Load 0x1,0x41
01f5 1c08 | | Execute_Immediate Run_Utility,0x8
01f6 00db | | Load_Top At_Offset_3
01f7 00d9 | | Load_Top At_Offset_1
01f8 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01f9 e20e | | Load 0x1,0xe
01fa e00e | | Load 0x0,0xe
01fb 180d | | Execute Package,Field_Execute,Field_Number 0xd
01fc 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fe 0000 0000 | | .XXX[0x2]
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 0217 | | Execute Heap_Access,All_Reference
0205 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4803 |H | Short_Literal 0x3
020c e241 | A | Load 0x1,0x41
020d 1c08 | | Execute_Immediate Run_Utility,0x8
020e 00db | | Load_Top At_Offset_3
020f 00d9 | | Load_Top At_Offset_1
0210 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0211 e20e | | Load 0x1,0xe
0212 e00e | | Load 0x0,0xe
0213 180d | | Execute Package,Field_Execute,Field_Number 0xd
0214 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 0217 | | Execute Heap_Access,All_Reference
021d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021f 0000 | | .XXX[0x1]
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 4804 |H | Short_Literal 0x4
0224 e241 | A | Load 0x1,0x41
0225 1c08 | | Execute_Immediate Run_Utility,0x8
0226 00db | | Load_Top At_Offset_3
0227 00d9 | | Load_Top At_Offset_1
0228 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0229 e20e | | Load 0x1,0xe
022a e00e | | Load 0x0,0xe
022b 180d | | Execute Package,Field_Execute,Field_Number 0xd
022c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
0234 0217 | | Execute Heap_Access,All_Reference
0235 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0236 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 4805 |H | Short_Literal 0x5
023c e241 | A | Load 0x1,0x41
023d 1c08 | | Execute_Immediate Run_Utility,0x8
023e 00db | | Load_Top At_Offset_3
023f e241 | A | Load 0x1,0x41
0240 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6
0241 0119 | | Execute Any,Check_In_Formal_Type
0242 00d9 | | Load_Top At_Offset_1
0243 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0244 e20e | | Load 0x1,0xe
0245 e00e | | Load 0x0,0xe
0246 180d | | Execute Package,Field_Execute,Field_Number 0xd
0247 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0248 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0249 0000 0000 | | .BLANK 0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 0217 | | Execute Heap_Access,All_Reference
0255 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0256 00d8 | | Load_Top At_Offset_0
0257 0120 | | Execute Any,Is_Value
0258 7002 |p | Jump_Nonzero 0x25b
0259 00d8 | | Load_Top At_Offset_0
025a 011e | | Execute Any,Convert
025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4806 |H | Short_Literal 0x6
0264 e241 | A | Load 0x1,0x41
0265 1c08 | | Execute_Immediate Run_Utility,0x8
0266 00db | | Load_Top At_Offset_3
0267 e241 | A | Load 0x1,0x41
0268 2307 |# | Execute Variant_Record,Field_Type,Field_Number 0x7
0269 0119 | | Execute Any,Check_In_Formal_Type
026a 00d9 | | Load_Top At_Offset_1
026b 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
026c e20e | | Load 0x1,0xe
026d e00e | | Load 0x0,0xe
026e 180d | | Execute Package,Field_Execute,Field_Number 0xd
026f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 0217 | | Execute Heap_Access,All_Reference
027d 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
027e 00d8 | | Load_Top At_Offset_0
027f 0120 | | Execute Any,Is_Value
0280 7002 |p | Jump_Nonzero 0x283
0281 00d8 | | Load_Top At_Offset_0
0282 011e | | Execute Any,Convert
0283 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4807 |H | Short_Literal 0x7
028c e241 | A | Load 0x1,0x41
028d 1c08 | | Execute_Immediate Run_Utility,0x8
028e 00db | | Load_Top At_Offset_3
028f 00d9 | | Load_Top At_Offset_1
0290 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0291 e20e | | Load 0x1,0xe
0292 e00e | | Load 0x0,0xe
0293 180d | | Execute Package,Field_Execute,Field_Number 0xd
0294 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0295 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 0217 | | Execute Heap_Access,All_Reference
029d 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
029e 02fd | | Declare_Variable Variant_Record,Duplicate
029f 00cd | | Action Spare6_Action
02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4808 |H | Short_Literal 0x8
02ac e241 | A | Load 0x1,0x41
02ad 1c08 | | Execute_Immediate Run_Utility,0x8
02ae 00db | | Load_Top At_Offset_3
02af e241 | A | Load 0x1,0x41
02b0 2309 |# | Execute Variant_Record,Field_Type,Field_Number 0x9
02b1 0119 | | Execute Any,Check_In_Formal_Type
02b2 00d9 | | Load_Top At_Offset_1
02b3 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
02b4 e20e | | Load 0x1,0xe
02b5 e00e | | Load 0x0,0xe
02b6 180d | | Execute Package,Field_Execute,Field_Number 0xd
02b7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b9 0000 0000 | | .BLANK 0000[0x7]
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 0217 | | Execute Heap_Access,All_Reference
02c5 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
02c6 00d8 | | Load_Top At_Offset_0
02c7 0120 | | Execute Any,Is_Value
02c8 7002 |p | Jump_Nonzero 0x2cb
02c9 00d8 | | Load_Top At_Offset_0
02ca 011e | | Execute Any,Convert
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 4809 |H | Short_Literal 0x9
02d4 e241 | A | Load 0x1,0x41
02d5 1c08 | | Execute_Immediate Run_Utility,0x8
02d6 00db | | Load_Top At_Offset_3
02d7 00d9 | | Load_Top At_Offset_1
02d8 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
02d9 e20e | | Load 0x1,0xe
02da e00e | | Load 0x0,0xe
02db 180d | | Execute Package,Field_Execute,Field_Number 0xd
02dc 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02de 0000 0000 | | .XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 0217 | | Execute Heap_Access,All_Reference
02e5 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 480a |H | Short_Literal 0xa
02ec e241 | A | Load 0x1,0x41
02ed 1c08 | | Execute_Immediate Run_Utility,0x8
02ee 00db | | Load_Top At_Offset_3
02ef 00d9 | | Load_Top At_Offset_1
02f0 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
02f1 e20e | | Load 0x1,0xe
02f2 e00e | | Load 0x0,0xe
02f3 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f4 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 0217 | | Execute Heap_Access,All_Reference
02fd 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
02fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 480b |H | Short_Literal 0xb
0304 e241 | A | Load 0x1,0x41
0305 1c08 | | Execute_Immediate Run_Utility,0x8
0306 00db | | Load_Top At_Offset_3
0307 00d9 | | Load_Top At_Offset_1
0308 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0309 e002 | | Load 0x0,0x2
030a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
030b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030c 00d9 | | Load_Top At_Offset_1
030d 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
030e e20e | | Load 0x1,0xe
030f e00e | | Load 0x0,0xe
0310 180d | | Execute Package,Field_Execute,Field_Number 0xd
0311 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0312 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 0217 | | Execute Heap_Access,All_Reference
031d 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 0000 | | .XXX[0x1]
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 480b |H | Short_Literal 0xb
0324 e241 | A | Load 0x1,0x41
0325 1c08 | | Execute_Immediate Run_Utility,0x8
0326 00db | | Load_Top At_Offset_3
0327 00d9 | | Load_Top At_Offset_1
0328 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0329 e5fe | | Load 0x2,-0x2
032a e002 | | Load 0x0,0x2
032b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032d e00e | | Load 0x0,0xe
032e 180d | | Execute Package,Field_Execute,Field_Number 0xd
032f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0330 00d9 | | Load_Top At_Offset_1
0331 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0332 e20e | | Load 0x1,0xe
0333 e00e | | Load 0x0,0xe
0334 180d | | Execute Package,Field_Execute,Field_Number 0xd
0335 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0336 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e20e | | Load 0x1,0xe
033c 00ca | | Action Exit_Nullary_Function
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 6805 |h | Jump_Zero 0x34a
0345 00da | | Load_Top At_Offset_2
0346 0217 | | Execute Heap_Access,All_Reference
0347 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0348 0f00 | | Execute_Immediate Equal,0x0
0349 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034a 4801 |H | Short_Literal 0x1
034b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e243 | C | Load 0x1,0x43
0354 00ca | | Action Exit_Nullary_Function
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 035f | _ | .CONST 0x035f ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 0217 | | Execute Heap_Access,All_Reference
035d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
035e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035f TRAP_0358:
035f 010e | | Execute Exception,Is_Constraint_Error
0360 6802 |h | Jump_Zero 0x363
0361 4800 |H | Short_Literal 0x0
0362 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0363 0100 | | Execute Exception,Raise
0364 0000 0000 | | .BLANK 0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 7003 |p | Jump_Nonzero 0x370
036d 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "<>"
036f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0370 00da | | Load_Top At_Offset_2
0371 0217 | | Execute Heap_Access,All_Reference
0372 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0373 461a |F | Jump_Case 0x1b
0374 782b |x+ | Jump 0x3a0 ; case 0x0
0375 782d |x- | Jump 0x3a3 ; case 0x1
0376 7833 |x3 | Jump 0x3aa ; case 0x2
0377 7838 |x8 | Jump 0x3b0 ; case 0x3
0378 783d |x= | Jump 0x3b6 ; case 0x4
0379 7842 |xB | Jump 0x3bc ; case 0x5
037a 7847 |xG | Jump 0x3c2 ; case 0x6
037b 784c |xL | Jump 0x3c8 ; case 0x7
037c 7851 |xQ | Jump 0x3ce ; case 0x8
037d 7856 |xV | Jump 0x3d4 ; case 0x9
037e 785b |x[ | Jump 0x3da ; case 0xa
037f 7862 |xb | Jump 0x3e2 ; case 0xb
0380 7887 |x | Jump 0x408 ; case 0xc
0381 788c |x | Jump 0x40e ; case 0xd
0382 7891 |x | Jump 0x414 ; case 0xe
0383 7896 |x | Jump 0x41a ; case 0xf
0384 789d |x | Jump 0x422 ; case 0x10
0385 78a4 |x | Jump 0x42a ; case 0x11
0386 78ab |x | Jump 0x432 ; case 0x12
0387 78b2 |x | Jump 0x43a ; case 0x13
0388 78b7 |x | Jump 0x440 ; case 0x14
0389 78bc |x | Jump 0x446 ; case 0x15
038a 7804 |x | Jump 0x38f ; case 0x16
038b 7803 |x | Jump 0x38f ; case 0x17
038c 7802 |x | Jump 0x38f ; case 0x18
038d 7801 |x | Jump 0x38f ; case 0x19
038e 7800 |x | Jump 0x38f ; case 0x1a
038f 00da | | Load_Top At_Offset_2
0390 00db | | Load_Top At_Offset_3
0391 0217 | | Execute Heap_Access,All_Reference
0392 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0393 e246 | F | Load 0x1,0x46
0394 01d7 | | Execute Vector,Field_Read
0395 e017 | | Load 0x0,0x17
0396 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0397 00d8 | | Load_Top At_Offset_0
0398 e017 | | Load 0x0,0x17
0399 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
039a 7003 |p | Jump_Nonzero 0x39e
039b e001 | | Load 0x0,0x1
039c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
039d 0257 | W | Execute Discrete,Raise
039e 180f | | Execute Package,Field_Execute,Field_Number 0xf
039f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a0 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "<>"
03a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a3 00da | | Load_Top At_Offset_2
03a4 0217 | | Execute Heap_Access,All_Reference
03a5 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03a6 0217 | | Execute Heap_Access,All_Reference
03a7 0335 | 5 | Declare_Variable Array,Duplicate
03a8 00cd | | Action Spare6_Action
03a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03aa 00da | | Load_Top At_Offset_2
03ab 0217 | | Execute Heap_Access,All_Reference
03ac 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03ad e018 | | Load 0x0,0x18
03ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
03af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b0 00da | | Load_Top At_Offset_2
03b1 0217 | | Execute Heap_Access,All_Reference
03b2 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03b3 e018 | | Load 0x0,0x18
03b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b6 00da | | Load_Top At_Offset_2
03b7 0217 | | Execute Heap_Access,All_Reference
03b8 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03b9 e018 | | Load 0x0,0x18
03ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bc 00da | | Load_Top At_Offset_2
03bd 0217 | | Execute Heap_Access,All_Reference
03be 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03bf e018 | | Load 0x0,0x18
03c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c2 00da | | Load_Top At_Offset_2
03c3 0217 | | Execute Heap_Access,All_Reference
03c4 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03c5 e018 | | Load 0x0,0x18
03c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c8 00da | | Load_Top At_Offset_2
03c9 0217 | | Execute Heap_Access,All_Reference
03ca 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
03cb e018 | | Load 0x0,0x18
03cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ce 00da | | Load_Top At_Offset_2
03cf 0217 | | Execute Heap_Access,All_Reference
03d0 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
03d1 e018 | | Load 0x0,0x18
03d2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d4 00da | | Load_Top At_Offset_2
03d5 0217 | | Execute Heap_Access,All_Reference
03d6 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
03d7 e018 | | Load 0x0,0x18
03d8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03da 00da | | Load_Top At_Offset_2
03db 0217 | | Execute Heap_Access,All_Reference
03dc 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
03dd e004 | | Load 0x0,0x4
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 011c | | Execute Any,Convert_Unchecked
03e0 1c01 | | Execute_Immediate Run_Utility,0x1
03e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e2 00da | | Load_Top At_Offset_2
03e3 0217 | | Execute Heap_Access,All_Reference
03e4 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
03e5 7009 |p | Jump_Nonzero 0x3ef
03e6 00da | | Load_Top At_Offset_2
03e7 0217 | | Execute Heap_Access,All_Reference
03e8 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
03e9 e004 | | Load 0x0,0x4
03ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ec 011c | | Execute Any,Convert_Unchecked
03ed 1c01 | | Execute_Immediate Run_Utility,0x1
03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ef 605c |`\ | Indirect_Literal Discrete,0x44c,{0x00000000, 0x00004000}
03f0 e019 | | Load 0x0,0x19
03f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f2 e01a | | Load 0x0,0x1a
03f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f4 e01b | | Load 0x0,0x1b
03f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f6 4801 |H | Short_Literal 0x1
03f7 4800 |H | Short_Literal 0x0
03f8 e01a | | Load 0x0,0x1a
03f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fa e004 | | Load 0x0,0x4
03fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03fd e5ff | | Load 0x2,-0x1
03fe 0217 | | Execute Heap_Access,All_Reference
03ff 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0400 0217 | | Execute Heap_Access,All_Reference
0401 e5ff | | Load 0x2,-0x1
0402 0217 | | Execute Heap_Access,All_Reference
0403 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0404 e004 | | Load 0x0,0x4
0405 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0406 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0407 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0408 00da | | Load_Top At_Offset_2
0409 0217 | | Execute Heap_Access,All_Reference
040a 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
040b e005 | | Load 0x0,0x5
040c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
040d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040e 00da | | Load_Top At_Offset_2
040f 0217 | | Execute Heap_Access,All_Reference
0410 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0411 e005 | | Load 0x0,0x5
0412 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0413 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0414 00da | | Load_Top At_Offset_2
0415 0217 | | Execute Heap_Access,All_Reference
0416 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0417 e006 | | Load 0x0,0x6
0418 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0419 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041a 00da | | Load_Top At_Offset_2
041b e002 | | Load 0x0,0x2
041c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
041d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
041e e002 | | Load 0x0,0x2
041f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0420 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0421 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0422 00da | | Load_Top At_Offset_2
0423 e002 | | Load 0x0,0x2
0424 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0425 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0426 e002 | | Load 0x0,0x2
0427 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0428 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0429 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042a 00da | | Load_Top At_Offset_2
042b e002 | | Load 0x0,0x2
042c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
042d 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
042e e002 | | Load 0x0,0x2
042f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0430 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0431 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0432 00da | | Load_Top At_Offset_2
0433 e002 | | Load 0x0,0x2
0434 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0435 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0436 e002 | | Load 0x0,0x2
0437 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0438 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0439 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043a 00da | | Load_Top At_Offset_2
043b e01c | | Load 0x0,0x1c
043c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
043d e01c | | Load 0x0,0x1c
043e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
043f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0440 00da | | Load_Top At_Offset_2
0441 e01d | | Load 0x0,0x1d
0442 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0443 e01d | | Load 0x0,0x1d
0444 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0445 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0446 00da | | Load_Top At_Offset_2
0447 e01d | | Load 0x0,0x1d
0448 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0449 e01d | | Load 0x0,0x1d
044a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
044b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 e22e | . | Load 0x1,0x2e
0454 0322 | " | Declare_Variable Record
0455 4800 |H | Short_Literal 0x0
0456 00d9 | | Load_Top At_Offset_1
0457 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0458 4800 |H | Short_Literal 0x0
0459 00d9 | | Load_Top At_Offset_1
045a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
045b 00ca | | Action Exit_Nullary_Function
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 048b | | .CONST 0x048b ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0465 7004 |p | Jump_Nonzero 0x46a
0466 00da | | Load_Top At_Offset_2
0467 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0468 0f00 | | Execute_Immediate Equal,0x0
0469 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046a 00da | | Load_Top At_Offset_2
046b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
046c 0f01 | | Execute_Immediate Equal,0x1
046d 680e |h | Jump_Zero 0x47c
046e 00da | | Load_Top At_Offset_2
046f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0470 e00e | | Load 0x0,0xe
0471 180d | | Execute Package,Field_Execute,Field_Number 0xd
0472 e24c | L | Load 0x1,0x4c
0473 e24d | M | Load 0x1,0x4d
0474 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0475 e009 | | Load 0x0,0x9
0476 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0477 0217 | | Execute Heap_Access,All_Reference
0478 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0479 e20d | | Load 0x1,0xd
047a 0260 | ` | Execute Discrete,In_Type
047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047c 00da | | Load_Top At_Offset_2
047d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047e e00e | | Load 0x0,0xe
047f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0480 e252 | R | Load 0x1,0x52
0481 e253 | S | Load 0x1,0x53
0482 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
0483 e009 | | Load 0x0,0x9
0484 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0485 0217 | | Execute Heap_Access,All_Reference
0486 01db | | Execute Vector,Length
0487 00db | | Load_Top At_Offset_3
0488 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0489 027f | | Execute Discrete,Equal
048a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048b TRAP_0460:
048b 0007 | | Action Break_Optional
048c 4800 |H | Short_Literal 0x0
048d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00da | | Load_Top At_Offset_2
0494 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0495 7002 |p | Jump_Nonzero 0x498
0496 822b | + | Call 0x1,0x2b
0497 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0498 00da | | Load_Top At_Offset_2
0499 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049a 0f01 | | Execute_Immediate Equal,0x1
049b 6811 |h | Jump_Zero 0x4ad
049c 4801 |H | Short_Literal 0x1
049d 4801 |H | Short_Literal 0x1
049e e20f | | Load 0x1,0xf
049f 0334 | 4 | Declare_Variable Array,With_Constraint
04a0 00db | | Load_Top At_Offset_3
04a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a2 e00e | | Load 0x0,0xe
04a3 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a4 e24c | L | Load 0x1,0x4c
04a5 e24d | M | Load 0x1,0x4d
04a6 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
04a7 e009 | | Load 0x0,0x9
04a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04a9 4801 |H | Short_Literal 0x1
04aa 00da | | Load_Top At_Offset_2
04ab 01d6 | | Execute Vector,Field_Write
04ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ad 00da | | Load_Top At_Offset_2
04ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04af e00e | | Load 0x0,0xe
04b0 180d | | Execute Package,Field_Execute,Field_Number 0xd
04b1 e252 | R | Load 0x1,0x52
04b2 e253 | S | Load 0x1,0x53
04b3 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
04b4 e009 | | Load 0x0,0x9
04b5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04b6 8257 | W | Call 0x1,0x57
04b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c1 | | .CONST 0x04c1 ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0004 | | .CONST 0x0004 ; Number of locals
04bb INIT_04b8:
04bb e22e | . | Load 0x1,0x2e
04bc 0322 | " | Declare_Variable Record
04bd 00e2 | | Load_Encached Integer_Cache
04be 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04bf e242 | B | Load 0x1,0x42
04c0 0007 | | Action Break_Optional
04c1 BODY_04b8:
04c1 e5ff | | Load 0x2,-0x1
04c2 01db | | Execute Vector,Length
04c3 00db | | Load_Top At_Offset_3
04c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04c5 00da | | Load_Top At_Offset_2
04c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c7 0f01 | | Execute_Immediate Equal,0x1
04c8 6809 |h | Jump_Zero 0x4d2
04c9 e5ff | | Load 0x2,-0x1
04ca 01dd | | Execute Vector,First
04cb e5ff | | Load 0x2,-0x1
04cc 01d7 | | Execute Vector,Field_Read
04cd e24b | K | Load 0x1,0x4b
04ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04cf 00db | | Load_Top At_Offset_3
04d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d1 7827 |x' | Jump 0x4f9
04d2 00da | | Load_Top At_Offset_2
04d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04d4 0c02 | | Execute_Immediate Greater_Equal,0x2
04d5 6820 |h | Jump_Zero 0x4f6
04d6 4801 |H | Short_Literal 0x1
04d7 00db | | Load_Top At_Offset_3
04d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04d9 e242 | B | Load 0x1,0x42
04da e00e | | Load 0x0,0xe
04db 180d | | Execute Package,Field_Execute,Field_Number 0xd
04dc 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
04dd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04de 00cf | | Action Mark_Auxiliary
04df e5ff | | Load 0x2,-0x1
04e0 01d9 | | Execute Vector,Reverse_Bounds
04e1 0263 | c | Execute Discrete,Above_Bound
04e2 700c |p | Jump_Nonzero 0x4ef
04e3 e403 | | Load 0x2,0x3
04e4 0a01 | | Execute_Immediate Plus,0x1
04e5 c403 | | Store 0x2,0x3
04e6 00d8 | | Load_Top At_Offset_0
04e7 e5ff | | Load 0x2,-0x1
04e8 01d7 | | Execute Vector,Field_Read
04e9 e403 | | Load 0x2,0x3
04ea e404 | | Load 0x2,0x4
04eb 0217 | | Execute Heap_Access,All_Reference
04ec 01d6 | | Execute Vector,Field_Write
04ed 00c8 | | Action Pop_Auxiliary_Range
04ee 3ff4 |? | Loop_Increasing 0x4e3
04ef 00ce | | Action Pop_Auxiliary
04f0 00d8 | | Load_Top At_Offset_0
04f1 e251 | Q | Load 0x1,0x51
04f2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04f3 00db | | Load_Top At_Offset_3
04f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04f5 7803 |x | Jump 0x4f9
04f6 4800 |H | Short_Literal 0x0
04f7 00db | | Load_Top At_Offset_3
04f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04f9 00da | | Load_Top At_Offset_2
04fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04fb 0000 0000 | | .BLANK 0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 e22e | . | Load 0x1,0x2e
0504 0322 | " | Declare_Variable Record
0505 4801 |H | Short_Literal 0x1
0506 00d9 | | Load_Top At_Offset_1
0507 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0508 00db | | Load_Top At_Offset_3
0509 e24b | K | Load 0x1,0x4b
050a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
050b 00d9 | | Load_Top At_Offset_1
050c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
050d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050e 0000 0000 | | .XXX[0x2]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 051d | | .CONST 0x051d ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0006 | | .CONST 0x0006 ; Number of locals
0513 INIT_0510:
0513 e22e | . | Load 0x1,0x2e
0514 0322 | " | Declare_Variable Record
0515 00e2 | | Load_Encached Integer_Cache
0516 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0517 e242 | B | Load 0x1,0x42
0518 0007 | | Action Break_Optional
0519 e20e | | Load 0x1,0xe
051a 0007 | | Action Break_Optional
051b 00e1 | | Load_Encached Boolean_Cache
051c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
051d BODY_0510:
051d 4800 |H | Short_Literal 0x0
051e a5fc | | Store_Unchecked 0x2,-0x4
051f e5ff | | Load 0x2,-0x1
0520 01db | | Execute Vector,Length
0521 e402 | | Load 0x2,0x2
0522 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0523 e402 | | Load 0x2,0x2
0524 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0525 0f01 | | Execute_Immediate Equal,0x1
0526 6810 |h | Jump_Zero 0x537
0527 00d8 | | Load_Top At_Offset_0
0528 e20e | | Load 0x1,0xe
0529 e5fe | | Load 0x2,-0x2
052a e5ff | | Load 0x2,-0x1
052b 01dd | | Execute Vector,First
052c e5ff | | Load 0x2,-0x1
052d 01d7 | | Execute Vector,Field_Read
052e 8259 | Y | Call 0x1,0x59
052f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0530 0059 | Y | Store_Top Discrete,At_Offset_1
0531 00d9 | | Load_Top At_Offset_1
0532 e24b | K | Load 0x1,0x4b
0533 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0534 e402 | | Load 0x2,0x2
0535 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0536 7832 |x2 | Jump 0x569
0537 e402 | | Load 0x2,0x2
0538 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0539 0c02 | | Execute_Immediate Greater_Equal,0x2
053a 682e |h. | Jump_Zero 0x569
053b 4801 |H | Short_Literal 0x1
053c e402 | | Load 0x2,0x2
053d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
053e e242 | B | Load 0x1,0x42
053f e5fe | | Load 0x2,-0x2
0540 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0541 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0542 00cf | | Action Mark_Auxiliary
0543 e5ff | | Load 0x2,-0x1
0544 01d9 | | Execute Vector,Reverse_Bounds
0545 0263 | c | Execute Discrete,Above_Bound
0546 701c |p | Jump_Nonzero 0x563
0547 e403 | | Load 0x2,0x3
0548 0a01 | | Execute_Immediate Plus,0x1
0549 c403 | | Store 0x2,0x3
054a e404 | | Load 0x2,0x4
054b 0219 | | Execute Heap_Access,All_Read
054c e403 | | Load 0x2,0x3
054d e406 | | Load 0x2,0x6
054e e20e | | Load 0x1,0xe
054f 00da | | Load_Top At_Offset_2
0550 e40a | | Load 0x2,0xa
0551 01d7 | | Execute Vector,Field_Read
0552 00d1 | | Pop_Control Pop_Count_1
0553 e5fe | | Load 0x2,-0x2
0554 e409 | | Load 0x2,0x9
0555 e5ff | | Load 0x2,-0x1
0556 01d7 | | Execute Vector,Field_Read
0557 8259 | Y | Call 0x1,0x59
0558 00da | | Load_Top At_Offset_2
0559 e40a | | Load 0x2,0xa
055a 01d6 | | Execute Vector,Field_Write
055b c406 | | Store 0x2,0x6
055c 00d2 | | Pop_Control Pop_Count_2
055d 00db | | Load_Top At_Offset_3
055e 7002 |p | Jump_Nonzero 0x561
055f 00d2 | | Pop_Control Pop_Count_2
0560 7802 |x | Jump 0x563
0561 00c8 | | Action Pop_Auxiliary_Range
0562 3fe4 |? | Loop_Increasing 0x547
0563 00ce | | Action Pop_Auxiliary
0564 00da | | Load_Top At_Offset_2
0565 e251 | Q | Load 0x1,0x51
0566 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0567 e402 | | Load 0x2,0x2
0568 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0569 e402 | | Load 0x2,0x2
056a e5fd | | Load 0x2,-0x3
056b 017d | } | Execute Record,Structure_Write
056c 00d8 | | Load_Top At_Offset_0
056d a5fc | | Store_Unchecked 0x2,-0x4
056e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
056f 0000 | | .XXX[0x1]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 057d | } | .CONST 0x057d ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0004 | | .CONST 0x0004 ; Number of locals
0573 INIT_0570:
0573 4801 |H | Short_Literal 0x1
0574 00db | | Load_Top At_Offset_3
0575 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0576 e20f | | Load 0x1,0xf
0577 035b | [ | Declare_Type Array,Constrained
0578 0337 | 7 | Declare_Variable Array
0579 e242 | B | Load 0x1,0x42
057a 0007 | | Action Break_Optional
057b e20e | | Load 0x1,0xe
057c 0007 | | Action Break_Optional
057d BODY_0570:
057d e5ff | | Load 0x2,-0x1
057e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
057f 0f01 | | Execute_Immediate Equal,0x1
0580 6815 |h | Jump_Zero 0x596
0581 e5ff | | Load 0x2,-0x1
0582 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0583 e5fe | | Load 0x2,-0x2
0584 e24c | L | Load 0x1,0x4c
0585 e24d | M | Load 0x1,0x4d
0586 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0587 e009 | | Load 0x0,0x9
0588 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0589 0031 | 1 | Store_Top Heap_Access,At_Offset_1
058a e20e | | Load 0x1,0xe
058b 4801 |H | Short_Literal 0x1
058c e402 | | Load 0x2,0x2
058d 01d7 | | Execute Vector,Field_Read
058e 00d1 | | Pop_Control Pop_Count_1
058f e5fe | | Load 0x2,-0x2
0590 00da | | Load_Top At_Offset_2
0591 825a | Z | Call 0x1,0x5a
0592 4801 |H | Short_Literal 0x1
0593 e402 | | Load 0x2,0x2
0594 01d6 | | Execute Vector,Field_Write
0595 7828 |x( | Jump 0x5be
0596 e5ff | | Load 0x2,-0x1
0597 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0598 0c02 | | Execute_Immediate Greater_Equal,0x2
0599 6824 |h$ | Jump_Zero 0x5be
059a e5ff | | Load 0x2,-0x1
059b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
059c e5fe | | Load 0x2,-0x2
059d e252 | R | Load 0x1,0x52
059e e253 | S | Load 0x1,0x53
059f 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
05a0 e009 | | Load 0x0,0x9
05a1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05a2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05a3 00cf | | Action Mark_Auxiliary
05a4 00db | | Load_Top At_Offset_3
05a5 01d9 | | Execute Vector,Reverse_Bounds
05a6 0263 | c | Execute Discrete,Above_Bound
05a7 7015 |p | Jump_Nonzero 0x5bd
05a8 00d8 | | Load_Top At_Offset_0
05a9 e403 | | Load 0x2,0x3
05aa 0217 | | Execute Heap_Access,All_Reference
05ab 01d7 | | Execute Vector,Field_Read
05ac a404 | | Store_Unchecked 0x2,0x4
05ad e402 | | Load 0x2,0x2
05ae 00d9 | | Load_Top At_Offset_1
05af e20e | | Load 0x1,0xe
05b0 00d9 | | Load_Top At_Offset_1
05b1 00db | | Load_Top At_Offset_3
05b2 01d7 | | Execute Vector,Field_Read
05b3 00d1 | | Pop_Control Pop_Count_1
05b4 e5fe | | Load 0x2,-0x2
05b5 e404 | | Load 0x2,0x4
05b6 825a | Z | Call 0x1,0x5a
05b7 00d9 | | Load_Top At_Offset_1
05b8 00db | | Load_Top At_Offset_3
05b9 01d6 | | Execute Vector,Field_Write
05ba 00d2 | | Pop_Control Pop_Count_2
05bb 00c8 | | Action Pop_Auxiliary_Range
05bc 3feb |? | Loop_Increasing 0x5a8
05bd 00ce | | Action Pop_Auxiliary
05be 00da | | Load_Top At_Offset_2
05bf e20f | | Load 0x1,0xf
05c0 01c6 | | Execute Vector,Convert_To_Formal
05c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00db | | Load_Top At_Offset_3
05d4 00db | | Load_Top At_Offset_3
05d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d6 027d | } | Execute Discrete,Greater
05d7 6802 |h | Jump_Zero 0x5da
05d8 8229 | ) | Call 0x1,0x29
05d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05da 00da | | Load_Top At_Offset_2
05db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05dc 0f01 | | Execute_Immediate Equal,0x1
05dd 680a |h | Jump_Zero 0x5e8
05de 00da | | Load_Top At_Offset_2
05df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05e0 e00e | | Load 0x0,0xe
05e1 180d | | Execute Package,Field_Execute,Field_Number 0xd
05e2 e24c | L | Load 0x1,0x4c
05e3 e24d | M | Load 0x1,0x4d
05e4 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
05e5 e009 | | Load 0x0,0x9
05e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e8 00db | | Load_Top At_Offset_3
05e9 00db | | Load_Top At_Offset_3
05ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05eb e00e | | Load 0x0,0xe
05ec 180d | | Execute Package,Field_Execute,Field_Number 0xd
05ed e252 | R | Load 0x1,0x52
05ee e253 | S | Load 0x1,0x53
05ef 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
05f0 e009 | | Load 0x0,0x9
05f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05f2 0217 | | Execute Heap_Access,All_Reference
05f3 01d7 | | Execute Vector,Field_Read
05f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f5 0000 0000 | | .XXX[0x3]
05f7 0000 | |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00db | | Load_Top At_Offset_3
05fc 00db | | Load_Top At_Offset_3
05fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fe 027d | } | Execute Discrete,Greater
05ff 6802 |h | Jump_Zero 0x602
0600 4800 |H | Short_Literal 0x0
0601 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0602 00da | | Load_Top At_Offset_2
0603 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0604 0f01 | | Execute_Immediate Equal,0x1
0605 680c |h | Jump_Zero 0x612
0606 00da | | Load_Top At_Offset_2
0607 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0608 e00e | | Load 0x0,0xe
0609 180d | | Execute Package,Field_Execute,Field_Number 0xd
060a e24c | L | Load 0x1,0x4c
060b e24d | M | Load 0x1,0x4d
060c 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
060d e009 | | Load 0x0,0x9
060e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
060f 0217 | | Execute Heap_Access,All_Reference
0610 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0611 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0612 00db | | Load_Top At_Offset_3
0613 00db | | Load_Top At_Offset_3
0614 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0615 e00e | | Load 0x0,0xe
0616 180d | | Execute Package,Field_Execute,Field_Number 0xd
0617 e252 | R | Load 0x1,0x52
0618 e253 | S | Load 0x1,0x53
0619 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
061a e009 | | Load 0x0,0x9
061b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
061c 0217 | | Execute Heap_Access,All_Reference
061d 01d7 | | Execute Vector,Field_Read
061e 0217 | | Execute Heap_Access,All_Reference
061f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0620 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0621 0000 0000 | | .BLANK 0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062d | - | .CONST 0x062d ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0002 | | .CONST 0x0002 ; Number of locals
062b INIT_0628:
062b 029f 0a3b | ;| Declare_Subprogram INIT_0a38,For_Call
062d BODY_0628:
062d 00db | | Load_Top At_Offset_3
062e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
062f 0c01 | | Execute_Immediate Greater_Equal,0x1
0630 680e |h | Jump_Zero 0x63f
0631 e5fd | | Load 0x2,-0x3
0632 e5ff | | Load 0x2,-0x1
0633 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0634 027b | { | Execute Discrete,Greater_Equal
0635 6805 |h | Jump_Zero 0x63b
0636 00db | | Load_Top At_Offset_3
0637 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0638 4801 |H | Short_Literal 0x1
0639 8402 | | Call 0x2,0x2
063a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
063b e5fd | | Load 0x2,-0x3
063c 4801 |H | Short_Literal 0x1
063d 8402 | | Call 0x2,0x2
063e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
063f 00ea | | Load_Encached Null_String_Cache
0640 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0641 0000 0000 | | .BLANK 0000[0x7]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064d | M | .CONST 0x064d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b e20e | | Load 0x1,0xe
064c 0007 | | Action Break_Optional
064d BODY_0648:
064d e5fc | | Load 0x2,-0x4
064e 00d8 | | Load_Top At_Offset_0
064f e241 | A | Load 0x1,0x41
0650 1c06 | | Execute_Immediate Run_Utility,0x6
0651 e20e | | Load 0x1,0xe
0652 e00e | | Load 0x0,0xe
0653 180d | | Execute Package,Field_Execute,Field_Number 0xd
0654 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0655 00d8 | | Load_Top At_Offset_0
0656 0217 | | Execute Heap_Access,All_Reference
0657 1c00 | | Execute_Immediate Run_Utility,0x0
0658 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0659 e5fa | | Load 0x2,-0x6
065a e5fb | | Load 0x2,-0x5
065b 0119 | | Execute Any,Check_In_Formal_Type
065c 85fe | | Call 0x2,-0x2
065d 00d9 | | Load_Top At_Offset_1
065e 0217 | | Execute Heap_Access,All_Reference
065f 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
0660 e5fa | | Load 0x2,-0x6
0661 e5fb | | Load 0x2,-0x5
0662 0119 | | Execute Any,Check_In_Formal_Type
0663 85fd | | Call 0x2,-0x3
0664 00d9 | | Load_Top At_Offset_1
0665 0217 | | Execute Heap_Access,All_Reference
0666 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
0667 00d8 | | Load_Top At_Offset_0
0668 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0669 0000 0000 | | .BLANK 0000[0x7]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 e5fc | | Load 0x2,-0x4
0674 e5fa | | Load 0x2,-0x6
0675 0217 | | Execute Heap_Access,All_Reference
0676 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0677 027f | | Execute Discrete,Equal
0678 680a |h | Jump_Zero 0x683
0679 e5fa | | Load 0x2,-0x6
067a 0217 | | Execute Heap_Access,All_Reference
067b 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
067c e5fa | | Load 0x2,-0x6
067d 0217 | | Execute Heap_Access,All_Reference
067e 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
067f 85fd | | Call 0x2,-0x3
0680 e5fb | | Load 0x2,-0x5
0681 0119 | | Execute Any,Check_In_Formal_Type
0682 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0683 00db | | Load_Top At_Offset_3
0684 00d8 | | Load_Top At_Offset_0
0685 0120 | | Execute Any,Is_Value
0686 7002 |p | Jump_Nonzero 0x689
0687 00d8 | | Load_Top At_Offset_0
0688 011e | | Execute Any,Convert
0689 e5fb | | Load 0x2,-0x5
068a 0119 | | Execute Any,Check_In_Formal_Type
068b 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
068c 0000 0000 | | .BLANK 0000[0x4]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0695 | | .CONST 0x0695 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0002 | | .CONST 0x0002 ; Number of locals
0693 INIT_0690:
0693 e20e | | Load 0x1,0xe
0694 0007 | | Action Break_Optional
0695 BODY_0690:
0695 e5fe | | Load 0x2,-0x2
0696 00d8 | | Load_Top At_Offset_0
0697 e241 | A | Load 0x1,0x41
0698 1c06 | | Execute_Immediate Run_Utility,0x6
0699 e20e | | Load 0x1,0xe
069a e00e | | Load 0x0,0xe
069b 180d | | Execute Package,Field_Execute,Field_Number 0xd
069c 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
069d 00d8 | | Load_Top At_Offset_0
069e 0217 | | Execute Heap_Access,All_Reference
069f 1c00 | | Execute_Immediate Run_Utility,0x0
06a0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06a1 e5fe | | Load 0x2,-0x2
06a2 0af4 | | Execute_Immediate Plus,-0xc
06a3 4602 |F | Jump_Case 0x3
06a4 7807 |x | Jump 0x6ac ; case 0x0
06a5 7810 |x | Jump 0x6b6 ; case 0x1
06a6 7800 |x | Jump 0x6a7 ; case 0x2
06a7 e5fc | | Load 0x2,-0x4
06a8 00d9 | | Load_Top At_Offset_1
06a9 0217 | | Execute Heap_Access,All_Reference
06aa 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
06ab 7813 |x | Jump 0x6bf
06ac e5fc | | Load 0x2,-0x4
06ad 00d8 | | Load_Top At_Offset_0
06ae 00e2 | | Load_Encached Integer_Cache
06af 0260 | ` | Execute Discrete,In_Type
06b0 7001 |p | Jump_Nonzero 0x6b2
06b1 0801 | | Execute_Immediate Raise,0x1
06b2 00d9 | | Load_Top At_Offset_1
06b3 0217 | | Execute Heap_Access,All_Reference
06b4 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
06b5 7809 |x | Jump 0x6bf
06b6 e5fc | | Load 0x2,-0x4
06b7 00d8 | | Load_Top At_Offset_0
06b8 00e2 | | Load_Encached Integer_Cache
06b9 0260 | ` | Execute Discrete,In_Type
06ba 7001 |p | Jump_Nonzero 0x6bc
06bb 0801 | | Execute_Immediate Raise,0x1
06bc 00d9 | | Load_Top At_Offset_1
06bd 0217 | | Execute Heap_Access,All_Reference
06be 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
06bf 00d8 | | Load_Top At_Offset_0
06c0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06c1 0000 0000 | | .BLANK 0000[0x7]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0705 | | .CONST 0x0705 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb e5fb | | Load 0x2,-0x5
06cc 0217 | | Execute Heap_Access,All_Reference
06cd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06ce 00d8 | | Load_Top At_Offset_0
06cf e23b | ; | Load 0x1,0x3b
06d0 0260 | ` | Execute Discrete,In_Type
06d1 7001 |p | Jump_Nonzero 0x6d3
06d2 0801 | | Execute_Immediate Raise,0x1
06d3 0af4 | | Execute_Immediate Plus,-0xc
06d4 4602 |F | Jump_Case 0x3
06d5 7811 |x | Jump 0x6e7 ; case 0x0
06d6 781f |x | Jump 0x6f6 ; case 0x1
06d7 7800 |x | Jump 0x6d8 ; case 0x2
06d8 e5fb | | Load 0x2,-0x5
06d9 0217 | | Execute Heap_Access,All_Reference
06da 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
06db 00d8 | | Load_Top At_Offset_0
06dc e5fc | | Load 0x2,-0x4
06dd 0122 | " | Execute Any,Make_Root_Type
06de 0260 | ` | Execute Discrete,In_Type
06df 7001 |p | Jump_Nonzero 0x6e1
06e0 0801 | | Execute_Immediate Raise,0x1
06e1 00d8 | | Load_Top At_Offset_0
06e2 e5fc | | Load 0x2,-0x4
06e3 0260 | ` | Execute Discrete,In_Type
06e4 7001 |p | Jump_Nonzero 0x6e6
06e5 0801 | | Execute_Immediate Raise,0x1
06e6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06e7 e5fb | | Load 0x2,-0x5
06e8 0217 | | Execute Heap_Access,All_Reference
06e9 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
06ea 00d8 | | Load_Top At_Offset_0
06eb e5fc | | Load 0x2,-0x4
06ec 0122 | " | Execute Any,Make_Root_Type
06ed 0260 | ` | Execute Discrete,In_Type
06ee 7001 |p | Jump_Nonzero 0x6f0
06ef 0801 | | Execute_Immediate Raise,0x1
06f0 00d8 | | Load_Top At_Offset_0
06f1 e5fc | | Load 0x2,-0x4
06f2 0260 | ` | Execute Discrete,In_Type
06f3 7001 |p | Jump_Nonzero 0x6f5
06f4 0801 | | Execute_Immediate Raise,0x1
06f5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
06f6 e5fb | | Load 0x2,-0x5
06f7 0217 | | Execute Heap_Access,All_Reference
06f8 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
06f9 00d8 | | Load_Top At_Offset_0
06fa e5fc | | Load 0x2,-0x4
06fb 0122 | " | Execute Any,Make_Root_Type
06fc 0260 | ` | Execute Discrete,In_Type
06fd 7001 |p | Jump_Nonzero 0x6ff
06fe 0801 | | Execute_Immediate Raise,0x1
06ff 00d8 | | Load_Top At_Offset_0
0700 e5fc | | Load 0x2,-0x4
0701 0260 | ` | Execute Discrete,In_Type
0702 7001 |p | Jump_Nonzero 0x704
0703 0801 | | Execute_Immediate Raise,0x1
0704 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0705 TRAP_06c8:
0705 010e | | Execute Exception,Is_Constraint_Error
0706 6807 |h | Jump_Zero 0x70e
0707 e5fe | | Load 0x2,-0x2
0708 00d8 | | Load_Top At_Offset_0
0709 e5fc | | Load 0x2,-0x4
070a 0260 | ` | Execute Discrete,In_Type
070b 7001 |p | Jump_Nonzero 0x70d
070c 0801 | | Execute_Immediate Raise,0x1
070d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
070e 0100 | | Execute Exception,Raise
070f 0000 | | .XXX[0x1]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 BODY_0710:
0713 INIT_0710:
0713 INIT_0710:
0713 4608 |F | Jump_Case 0x9
0714 7808 |x | Jump 0x71d ; case 0x0
0715 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0716 78c4 |x | Jump 0x7db ; case 0x2
0717 78c3 |x | Jump 0x7db ; case 0x3
0718 78c2 |x | Jump 0x7db ; case 0x4
0719 78c1 |x | Jump 0x7db ; case 0x5
071a 7838 |x8 | Jump 0x753 ; case 0x6
071b 7876 |xv | Jump 0x792 ; case 0x7
071c 78b7 |x | Jump 0x7d4 ; case 0x8
071d 00da | | Load_Top At_Offset_2
071e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
071f 461a |F | Jump_Case 0x1b
0720 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0721 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0722 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0723 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0724 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0725 7815 |x | Jump 0x73b ; case 0x5
0726 781a |x | Jump 0x741 ; case 0x6
0727 781f |x | Jump 0x747 ; case 0x7
0728 7824 |x$ | Jump 0x74d ; case 0x8
0729 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9
072a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa
072b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb
072c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc
072d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xd
072e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe
072f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf
0730 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x10
0731 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x11
0732 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x12
0733 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x13
0734 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x14
0735 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x15
0736 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x16
0737 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x17
0738 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x18
0739 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x19
073a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1a
073b 00da | | Load_Top At_Offset_2
073c 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6
073d 00da | | Load_Top At_Offset_2
073e 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
073f 1c00 | | Execute_Immediate Run_Utility,0x0
0740 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0741 00da | | Load_Top At_Offset_2
0742 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7
0743 00da | | Load_Top At_Offset_2
0744 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0745 1c00 | | Execute_Immediate Run_Utility,0x0
0746 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0747 00da | | Load_Top At_Offset_2
0748 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8
0749 00da | | Load_Top At_Offset_2
074a 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
074b 1c00 | | Execute_Immediate Run_Utility,0x0
074c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
074d 00da | | Load_Top At_Offset_2
074e 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9
074f 00da | | Load_Top At_Offset_2
0750 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
0751 1c00 | | Execute_Immediate Run_Utility,0x0
0752 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0753 00db | | Load_Top At_Offset_3
0754 461a |F | Jump_Case 0x1b
0755 783a |x: | Jump 0x790 ; case 0x0
0756 781b |x | Jump 0x772 ; case 0x1
0757 781c |x | Jump 0x774 ; case 0x2
0758 781d |x | Jump 0x776 ; case 0x3
0759 781e |x | Jump 0x778 ; case 0x4
075a 781f |x | Jump 0x77a ; case 0x5
075b 7820 |x | Jump 0x77c ; case 0x6
075c 7821 |x! | Jump 0x77e ; case 0x7
075d 7822 |x" | Jump 0x780 ; case 0x8
075e 7823 |x# | Jump 0x782 ; case 0x9
075f 7824 |x$ | Jump 0x784 ; case 0xa
0760 7825 |x% | Jump 0x786 ; case 0xb
0761 7826 |x& | Jump 0x788 ; case 0xc
0762 7827 |x' | Jump 0x78a ; case 0xd
0763 7828 |x( | Jump 0x78c ; case 0xe
0764 7829 |x) | Jump 0x78e ; case 0xf
0765 7828 |x( | Jump 0x78e ; case 0x10
0766 7827 |x' | Jump 0x78e ; case 0x11
0767 7826 |x& | Jump 0x78e ; case 0x12
0768 7825 |x% | Jump 0x78e ; case 0x13
0769 7824 |x$ | Jump 0x78e ; case 0x14
076a 7823 |x# | Jump 0x78e ; case 0x15
076b 7804 |x | Jump 0x770 ; case 0x16
076c 7803 |x | Jump 0x770 ; case 0x17
076d 7802 |x | Jump 0x770 ; case 0x18
076e 7801 |x | Jump 0x770 ; case 0x19
076f 7800 |x | Jump 0x770 ; case 0x1a
0770 4810 |H | Short_Literal 0x10
0771 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0772 4801 |H | Short_Literal 0x1
0773 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0774 4802 |H | Short_Literal 0x2
0775 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0776 4803 |H | Short_Literal 0x3
0777 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0778 4804 |H | Short_Literal 0x4
0779 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
077a 4805 |H | Short_Literal 0x5
077b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
077c 4806 |H | Short_Literal 0x6
077d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
077e 4807 |H | Short_Literal 0x7
077f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0780 4808 |H | Short_Literal 0x8
0781 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0782 4809 |H | Short_Literal 0x9
0783 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0784 480a |H | Short_Literal 0xa
0785 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0786 480b |H | Short_Literal 0xb
0787 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0788 480c |H | Short_Literal 0xc
0789 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
078a 480d |H | Short_Literal 0xd
078b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
078c 480e |H | Short_Literal 0xe
078d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
078e 480f |H | Short_Literal 0xf
078f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0790 48ff |H | Short_Literal 0xff
0791 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0792 00db | | Load_Top At_Offset_3
0793 e5fe | | Load 0x2,-0x2
0794 461a |F | Jump_Case 0x1b
0795 781c |x | Jump 0x7b2 ; case 0x0
0796 781d |x | Jump 0x7b4 ; case 0x1
0797 781e |x | Jump 0x7b6 ; case 0x2
0798 781f |x | Jump 0x7b8 ; case 0x3
0799 7820 |x | Jump 0x7ba ; case 0x4
079a 7821 |x! | Jump 0x7bc ; case 0x5
079b 7822 |x" | Jump 0x7be ; case 0x6
079c 7823 |x# | Jump 0x7c0 ; case 0x7
079d 7824 |x$ | Jump 0x7c2 ; case 0x8
079e 7825 |x% | Jump 0x7c4 ; case 0x9
079f 7826 |x& | Jump 0x7c6 ; case 0xa
07a0 7827 |x' | Jump 0x7c8 ; case 0xb
07a1 7828 |x( | Jump 0x7ca ; case 0xc
07a2 7829 |x) | Jump 0x7cc ; case 0xd
07a3 782a |x* | Jump 0x7ce ; case 0xe
07a4 782b |x+ | Jump 0x7d0 ; case 0xf
07a5 782a |x* | Jump 0x7d0 ; case 0x10
07a6 7829 |x) | Jump 0x7d0 ; case 0x11
07a7 7828 |x( | Jump 0x7d0 ; case 0x12
07a8 7827 |x' | Jump 0x7d0 ; case 0x13
07a9 7826 |x& | Jump 0x7d0 ; case 0x14
07aa 7825 |x% | Jump 0x7d0 ; case 0x15
07ab 7804 |x | Jump 0x7b0 ; case 0x16
07ac 7803 |x | Jump 0x7b0 ; case 0x17
07ad 7802 |x | Jump 0x7b0 ; case 0x18
07ae 7801 |x | Jump 0x7b0 ; case 0x19
07af 7800 |x | Jump 0x7b0 ; case 0x1a
07b0 4810 |H | Short_Literal 0x10
07b1 781f |x | Jump 0x7d1
07b2 48ff |H | Short_Literal 0xff
07b3 781d |x | Jump 0x7d1
07b4 4801 |H | Short_Literal 0x1
07b5 781b |x | Jump 0x7d1
07b6 4802 |H | Short_Literal 0x2
07b7 7819 |x | Jump 0x7d1
07b8 4803 |H | Short_Literal 0x3
07b9 7817 |x | Jump 0x7d1
07ba 4804 |H | Short_Literal 0x4
07bb 7815 |x | Jump 0x7d1
07bc 4805 |H | Short_Literal 0x5
07bd 7813 |x | Jump 0x7d1
07be 4806 |H | Short_Literal 0x6
07bf 7811 |x | Jump 0x7d1
07c0 4807 |H | Short_Literal 0x7
07c1 780f |x | Jump 0x7d1
07c2 4808 |H | Short_Literal 0x8
07c3 780d |x | Jump 0x7d1
07c4 4809 |H | Short_Literal 0x9
07c5 780b |x | Jump 0x7d1
07c6 480a |H | Short_Literal 0xa
07c7 7809 |x | Jump 0x7d1
07c8 480b |H | Short_Literal 0xb
07c9 7807 |x | Jump 0x7d1
07ca 480c |H | Short_Literal 0xc
07cb 7805 |x | Jump 0x7d1
07cc 480d |H | Short_Literal 0xd
07cd 7803 |x | Jump 0x7d1
07ce 480e |H | Short_Literal 0xe
07cf 7801 |x | Jump 0x7d1
07d0 480f |H | Short_Literal 0xf
07d1 e5ff | | Load 0x2,-0x1
07d2 031b | | Declare_Type Variant_Record,Constrained
07d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d4 00db | | Load_Top At_Offset_3
07d5 e5fe | | Load 0x2,-0x2
07d6 e5ff | | Load 0x2,-0x1
07d7 1c06 | | Execute_Immediate Run_Utility,0x6
07d8 e5ff | | Load 0x2,-0x1
07d9 02fc | | Declare_Variable Variant_Record,With_Constraint
07da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07db 0869 | i | Execute_Immediate Raise,0x69
07dc 0000 0000 | | .BLANK 0000[0x4]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 00da | | Load_Top At_Offset_2
07e4 7003 |p | Jump_Nonzero 0x7e8
07e5 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "<>"
07e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07e8 00da | | Load_Top At_Offset_2
07e9 0217 | | Execute Heap_Access,All_Reference
07ea 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07eb 461a |F | Jump_Case 0x1b
07ec 782b |x+ | Jump 0x818 ; case 0x0
07ed 782d |x- | Jump 0x81b ; case 0x1
07ee 7833 |x3 | Jump 0x822 ; case 0x2
07ef 7838 |x8 | Jump 0x828 ; case 0x3
07f0 783d |x= | Jump 0x82e ; case 0x4
07f1 7842 |xB | Jump 0x834 ; case 0x5
07f2 7847 |xG | Jump 0x83a ; case 0x6
07f3 784c |xL | Jump 0x840 ; case 0x7
07f4 7851 |xQ | Jump 0x846 ; case 0x8
07f5 7856 |xV | Jump 0x84c ; case 0x9
07f6 785b |x[ | Jump 0x852 ; case 0xa
07f7 7862 |xb | Jump 0x85a ; case 0xb
07f8 7887 |x | Jump 0x880 ; case 0xc
07f9 788c |x | Jump 0x886 ; case 0xd
07fa 7891 |x | Jump 0x88c ; case 0xe
07fb 7896 |x | Jump 0x892 ; case 0xf
07fc 789d |x | Jump 0x89a ; case 0x10
07fd 78a4 |x | Jump 0x8a2 ; case 0x11
07fe 78ab |x | Jump 0x8aa ; case 0x12
07ff 78b2 |x | Jump 0x8b2 ; case 0x13
0800 78b7 |x | Jump 0x8b8 ; case 0x14
0801 78bc |x | Jump 0x8be ; case 0x15
0802 7804 |x | Jump 0x807 ; case 0x16
0803 7803 |x | Jump 0x807 ; case 0x17
0804 7802 |x | Jump 0x807 ; case 0x18
0805 7801 |x | Jump 0x807 ; case 0x19
0806 7800 |x | Jump 0x807 ; case 0x1a
0807 00da | | Load_Top At_Offset_2
0808 00db | | Load_Top At_Offset_3
0809 0217 | | Execute Heap_Access,All_Reference
080a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
080b e246 | F | Load 0x1,0x46
080c 01d7 | | Execute Vector,Field_Read
080d e017 | | Load 0x0,0x17
080e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
080f 00d8 | | Load_Top At_Offset_0
0810 e017 | | Load 0x0,0x17
0811 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0812 7003 |p | Jump_Nonzero 0x816
0813 e001 | | Load 0x0,0x1
0814 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0815 0257 | W | Execute Discrete,Raise
0816 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0817 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0818 0092 0b41 | A| Action Push_String_Extended,0xb41 ; "<>"
081a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
081b 00da | | Load_Top At_Offset_2
081c 0217 | | Execute Heap_Access,All_Reference
081d 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
081e 0217 | | Execute Heap_Access,All_Reference
081f 0335 | 5 | Declare_Variable Array,Duplicate
0820 00cd | | Action Spare6_Action
0821 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0822 00da | | Load_Top At_Offset_2
0823 0217 | | Execute Heap_Access,All_Reference
0824 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0825 e018 | | Load 0x0,0x18
0826 180e | | Execute Package,Field_Execute,Field_Number 0xe
0827 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0828 00da | | Load_Top At_Offset_2
0829 0217 | | Execute Heap_Access,All_Reference
082a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
082b e018 | | Load 0x0,0x18
082c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
082d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
082e 00da | | Load_Top At_Offset_2
082f 0217 | | Execute Heap_Access,All_Reference
0830 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0831 e018 | | Load 0x0,0x18
0832 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0833 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0834 00da | | Load_Top At_Offset_2
0835 0217 | | Execute Heap_Access,All_Reference
0836 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0837 e018 | | Load 0x0,0x18
0838 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0839 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
083a 00da | | Load_Top At_Offset_2
083b 0217 | | Execute Heap_Access,All_Reference
083c 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
083d e018 | | Load 0x0,0x18
083e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
083f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0840 00da | | Load_Top At_Offset_2
0841 0217 | | Execute Heap_Access,All_Reference
0842 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
0843 e018 | | Load 0x0,0x18
0844 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0845 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0846 00da | | Load_Top At_Offset_2
0847 0217 | | Execute Heap_Access,All_Reference
0848 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0849 e018 | | Load 0x0,0x18
084a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
084b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
084c 00da | | Load_Top At_Offset_2
084d 0217 | | Execute Heap_Access,All_Reference
084e 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
084f e018 | | Load 0x0,0x18
0850 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0851 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0852 00da | | Load_Top At_Offset_2
0853 0217 | | Execute Heap_Access,All_Reference
0854 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0855 e004 | | Load 0x0,0x4
0856 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0857 011c | | Execute Any,Convert_Unchecked
0858 1c01 | | Execute_Immediate Run_Utility,0x1
0859 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
085a 00da | | Load_Top At_Offset_2
085b 0217 | | Execute Heap_Access,All_Reference
085c 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
085d 7009 |p | Jump_Nonzero 0x867
085e 00da | | Load_Top At_Offset_2
085f 0217 | | Execute Heap_Access,All_Reference
0860 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0861 e004 | | Load 0x0,0x4
0862 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0863 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0864 011c | | Execute Any,Convert_Unchecked
0865 1c01 | | Execute_Immediate Run_Utility,0x1
0866 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0867 605c |`\ | Indirect_Literal Discrete,0x8c4,{0x00000000, 0x00004000}
0868 e019 | | Load 0x0,0x19
0869 1b0e | | Execute Package,Field_Read,Field_Number 0xe
086a e01a | | Load 0x0,0x1a
086b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
086c e01b | | Load 0x0,0x1b
086d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
086e 4801 |H | Short_Literal 0x1
086f 4800 |H | Short_Literal 0x0
0870 e01a | | Load 0x0,0x1a
0871 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0872 e004 | | Load 0x0,0x4
0873 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0874 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0875 e5ff | | Load 0x2,-0x1
0876 0217 | | Execute Heap_Access,All_Reference
0877 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0878 0217 | | Execute Heap_Access,All_Reference
0879 e5ff | | Load 0x2,-0x1
087a 0217 | | Execute Heap_Access,All_Reference
087b 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
087c e004 | | Load 0x0,0x4
087d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
087e 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
087f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0880 00da | | Load_Top At_Offset_2
0881 0217 | | Execute Heap_Access,All_Reference
0882 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0883 e005 | | Load 0x0,0x5
0884 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0885 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0886 00da | | Load_Top At_Offset_2
0887 0217 | | Execute Heap_Access,All_Reference
0888 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0889 e005 | | Load 0x0,0x5
088a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
088b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
088c 00da | | Load_Top At_Offset_2
088d 0217 | | Execute Heap_Access,All_Reference
088e 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
088f e006 | | Load 0x0,0x6
0890 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0891 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0892 00da | | Load_Top At_Offset_2
0893 e002 | | Load 0x0,0x2
0894 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0895 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0896 e002 | | Load 0x0,0x2
0897 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0898 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0899 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089a 00da | | Load_Top At_Offset_2
089b e002 | | Load 0x0,0x2
089c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
089d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
089e e002 | | Load 0x0,0x2
089f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
08a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
08a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a2 00da | | Load_Top At_Offset_2
08a3 e002 | | Load 0x0,0x2
08a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08a5 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
08a6 e002 | | Load 0x0,0x2
08a7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08a8 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
08a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08aa 00da | | Load_Top At_Offset_2
08ab e002 | | Load 0x0,0x2
08ac 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08ad 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
08ae e002 | | Load 0x0,0x2
08af 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08b0 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
08b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08b2 00da | | Load_Top At_Offset_2
08b3 e01c | | Load 0x0,0x1c
08b4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
08b5 e01c | | Load 0x0,0x1c
08b6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
08b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08b8 00da | | Load_Top At_Offset_2
08b9 e01d | | Load 0x0,0x1d
08ba 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
08bb e01d | | Load 0x0,0x1d
08bc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08be 00da | | Load_Top At_Offset_2
08bf e01d | | Load 0x0,0x1d
08c0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08c1 e01d | | Load 0x0,0x1d
08c2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
08c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb | | .CONST 0x08cb ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0001 | | .CONST 0x0001 ; Number of locals
08cb BODY_08c8:
08cb INIT_08c8:
08cb 00da | | Load_Top At_Offset_2
08cc 461a |F | Jump_Case 0x1b
08cd 7862 |xb | Jump 0x930 ; case 0x0
08ce 7829 |x) | Jump 0x8f8 ; case 0x1
08cf 782b |x+ | Jump 0x8fb ; case 0x2
08d0 782f |x/ | Jump 0x900 ; case 0x3
08d1 7833 |x3 | Jump 0x905 ; case 0x4
08d2 7837 |x7 | Jump 0x90a ; case 0x5
08d3 783b |x; | Jump 0x90f ; case 0x6
08d4 783f |x? | Jump 0x914 ; case 0x7
08d5 7843 |xC | Jump 0x919 ; case 0x8
08d6 7847 |xG | Jump 0x91e ; case 0x9
08d7 784b |xK | Jump 0x923 ; case 0xa
08d8 7850 |xP | Jump 0x929 ; case 0xb
08d9 7858 |xX | Jump 0x932 ; case 0xc
08da 7857 |xW | Jump 0x932 ; case 0xd
08db 7856 |xV | Jump 0x932 ; case 0xe
08dc 7855 |xU | Jump 0x932 ; case 0xf
08dd 7854 |xT | Jump 0x932 ; case 0x10
08de 7853 |xS | Jump 0x932 ; case 0x11
08df 7852 |xR | Jump 0x932 ; case 0x12
08e0 7851 |xQ | Jump 0x932 ; case 0x13
08e1 7850 |xP | Jump 0x932 ; case 0x14
08e2 784f |xO | Jump 0x932 ; case 0x15
08e3 7804 |x | Jump 0x8e8 ; case 0x16
08e4 7803 |x | Jump 0x8e8 ; case 0x17
08e5 7802 |x | Jump 0x8e8 ; case 0x18
08e6 7801 |x | Jump 0x8e8 ; case 0x19
08e7 7800 |x | Jump 0x8e8 ; case 0x1a
08e8 e5fd | | Load 0x2,-0x3
08e9 e5fe | | Load 0x2,-0x2
08ea e5ff | | Load 0x2,-0x1
08eb e246 | F | Load 0x1,0x46
08ec 01d7 | | Execute Vector,Field_Read
08ed e017 | | Load 0x0,0x17
08ee 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08ef 00d8 | | Load_Top At_Offset_0
08f0 e017 | | Load 0x0,0x17
08f1 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08f2 7003 |p | Jump_Nonzero 0x8f6
08f3 e001 | | Load 0x0,0x1
08f4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
08f5 0257 | W | Execute Discrete,Raise
08f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08f7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08f8 00db | | Load_Top At_Offset_3
08f9 8210 | | Call 0x1,0x10
08fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08fb 00db | | Load_Top At_Offset_3
08fc e018 | | Load 0x0,0x18
08fd 180f | | Execute Package,Field_Execute,Field_Number 0xf
08fe 8212 | | Call 0x1,0x12
08ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0900 00db | | Load_Top At_Offset_3
0901 e018 | | Load 0x0,0x18
0902 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0903 8214 | | Call 0x1,0x14
0904 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0905 00db | | Load_Top At_Offset_3
0906 e018 | | Load 0x0,0x18
0907 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0908 8216 | | Call 0x1,0x16
0909 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
090a 00db | | Load_Top At_Offset_3
090b e018 | | Load 0x0,0x18
090c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
090d 8218 | | Call 0x1,0x18
090e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
090f 00db | | Load_Top At_Offset_3
0910 e018 | | Load 0x0,0x18
0911 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0912 821a | | Call 0x1,0x1a
0913 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0914 00db | | Load_Top At_Offset_3
0915 e018 | | Load 0x0,0x18
0916 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0917 821c | | Call 0x1,0x1c
0918 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0919 00db | | Load_Top At_Offset_3
091a e018 | | Load 0x0,0x18
091b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
091c 821e | | Call 0x1,0x1e
091d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
091e 00db | | Load_Top At_Offset_3
091f e018 | | Load 0x0,0x18
0920 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0921 8220 | | Call 0x1,0x20
0922 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0923 00db | | Load_Top At_Offset_3
0924 e004 | | Load 0x0,0x4
0925 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0926 1c02 | | Execute_Immediate Run_Utility,0x2
0927 8222 | " | Call 0x1,0x22
0928 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0929 00db | | Load_Top At_Offset_3
092a e004 | | Load 0x0,0x4
092b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
092c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
092d 1c02 | | Execute_Immediate Run_Utility,0x2
092e 8224 | $ | Call 0x1,0x24
092f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0930 e20e | | Load 0x1,0xe
0931 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0932 0831 | 1 | Execute_Immediate Raise,0x31
0933 0000 0000 | | .BLANK 0000[0x5]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0941 | A | .CONST 0x0941 ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0002 | | .CONST 0x0002 ; Number of locals
093b INIT_0938:
093b 00da | | Load_Top At_Offset_2
093c 0217 | | Execute Heap_Access,All_Reference
093d 01da | | Execute Vector,Bounds
093e e20f | | Load 0x1,0xf
093f 035b | [ | Declare_Type Array,Constrained
0940 0337 | 7 | Declare_Variable Array
0941 BODY_0938:
0941 00cf | | Action Mark_Auxiliary
0942 00d9 | | Load_Top At_Offset_1
0943 01d9 | | Execute Vector,Reverse_Bounds
0944 0263 | c | Execute Discrete,Above_Bound
0945 7009 |p | Jump_Nonzero 0x94f
0946 00d8 | | Load_Top At_Offset_0
0947 e5ff | | Load 0x2,-0x1
0948 0217 | | Execute Heap_Access,All_Reference
0949 01d7 | | Execute Vector,Field_Read
094a 00d9 | | Load_Top At_Offset_1
094b e402 | | Load 0x2,0x2
094c 01d6 | | Execute Vector,Field_Write
094d 00c8 | | Action Pop_Auxiliary_Range
094e 3ff7 |? | Loop_Increasing 0x946
094f 00ce | | Action Pop_Auxiliary
0950 00d8 | | Load_Top At_Offset_0
0951 e20f | | Load 0x1,0xf
0952 01c6 | | Execute Vector,Convert_To_Formal
0953 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0954 0000 0000 | | .BLANK 0000[0x4]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 098d | | .CONST 0x098d ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 000c | | .CONST 0x000c ; Number of locals
095b INIT_0958:
095b 4801 |H | Short_Literal 0x1
095c 00db | | Load_Top At_Offset_3
095d 0217 | | Execute Heap_Access,All_Reference
095e 2e13 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
095f 00e1 | | Load_Encached Boolean_Cache
0960 02a0 | | Declare_Subprogram Null_Subprogram
0961 4801 |H | Short_Literal 0x1
0962 035d | ] | Declare_Type Array,Defined
0963 00d8 | | Load_Top At_Offset_0
0964 02a0 | | Declare_Subprogram Null_Subprogram
0965 03ad | | Declare_Type Heap_Access,Defined
0966 e009 | | Load 0x0,0x9
0967 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0968 00c6 | | Action Check_Subprogram_Elaborated
0969 00d9 | | Load_Top At_Offset_1
096a 00d9 | | Load_Top At_Offset_1
096b e01e | | Load 0x0,0x1e
096c e01f | | Load 0x0,0x1f
096d 4808 |H | Short_Literal 0x8
096e 0007 | | Action Break_Optional
096f e020 | | Load 0x0,0x20
0970 e021 | ! | Load 0x0,0x21
0971 e402 | | Load 0x2,0x2
0972 e403 | | Load 0x2,0x3
0973 e009 | | Load 0x0,0x9
0974 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0975 0387 | | Declare_Variable Package
0976 00d8 | | Load_Top At_Offset_0
0977 020f | | Execute Module,Activate
0978 e5ff | | Load 0x2,-0x1
0979 e24b | K | Load 0x1,0x4b
097a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
097b e5ff | | Load 0x2,-0x1
097c 0217 | | Execute Heap_Access,All_Reference
097d 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
097e 00d9 | | Load_Top At_Offset_1
097f e404 | | Load 0x2,0x4
0980 e405 | | Load 0x2,0x5
0981 4806 |H | Short_Literal 0x6
0982 4802 |H | Short_Literal 0x2
0983 0099 | | Action Reference_Dynamic
0984 e009 | | Load 0x0,0x9
0985 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0986 00d8 | | Load_Top At_Offset_0
0987 0217 | | Execute Heap_Access,All_Reference
0988 e403 | | Load 0x2,0x3
0989 e5fe | | Load 0x2,-0x2
098a e24b | K | Load 0x1,0x4b
098b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
098c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
098d BODY_0958:
098d 00d8 | | Load_Top At_Offset_0
098e e409 | | Load 0x2,0x9
098f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0990 e5fe | | Load 0x2,-0x2
0991 0217 | | Execute Heap_Access,All_Reference
0992 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
0993 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0994 0000 0000 | | .BLANK 0000[0x4]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 09a0 | | .CONST 0x09a0 ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0002 | | .CONST 0x0002 ; Number of locals
099b INIT_0998:
099b 00da | | Load_Top At_Offset_2
099c 0217 | | Execute Heap_Access,All_Reference
099d e20e | | Load 0x1,0xe
099e e5fe | | Load 0x2,-0x2
099f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09a0 BODY_0998:
09a0 00db | | Load_Top At_Offset_3
09a1 0217 | | Execute Heap_Access,All_Reference
09a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09a3 461a |F | Jump_Case 0x1b
09a4 7841 |xA | Jump 0x9e6 ; case 0x0
09a5 7834 |x4 | Jump 0x9da ; case 0x1
09a6 783f |x? | Jump 0x9e6 ; case 0x2
09a7 783e |x> | Jump 0x9e6 ; case 0x3
09a8 783d |x= | Jump 0x9e6 ; case 0x4
09a9 783c |x< | Jump 0x9e6 ; case 0x5
09aa 783b |x; | Jump 0x9e6 ; case 0x6
09ab 783a |x: | Jump 0x9e6 ; case 0x7
09ac 7839 |x9 | Jump 0x9e6 ; case 0x8
09ad 7838 |x8 | Jump 0x9e6 ; case 0x9
09ae 7837 |x7 | Jump 0x9e6 ; case 0xa
09af 7813 |x | Jump 0x9c3 ; case 0xb
09b0 7835 |x5 | Jump 0x9e6 ; case 0xc
09b1 7834 |x4 | Jump 0x9e6 ; case 0xd
09b2 781d |x | Jump 0x9d0 ; case 0xe
09b3 781f |x | Jump 0x9d3 ; case 0xf
09b4 781e |x | Jump 0x9d3 ; case 0x10
09b5 781d |x | Jump 0x9d3 ; case 0x11
09b6 781c |x | Jump 0x9d3 ; case 0x12
09b7 781b |x | Jump 0x9d3 ; case 0x13
09b8 781a |x | Jump 0x9d3 ; case 0x14
09b9 7819 |x | Jump 0x9d3 ; case 0x15
09ba 7804 |x | Jump 0x9bf ; case 0x16
09bb 7803 |x | Jump 0x9bf ; case 0x17
09bc 7802 |x | Jump 0x9bf ; case 0x18
09bd 7801 |x | Jump 0x9bf ; case 0x19
09be 7800 |x | Jump 0x9bf ; case 0x1a
09bf 00d8 | | Load_Top At_Offset_0
09c0 e5ff | | Load 0x2,-0x1
09c1 8258 | X | Call 0x1,0x58
09c2 7823 |x# | Jump 0x9e6
09c3 00db | | Load_Top At_Offset_3
09c4 0217 | | Execute Heap_Access,All_Reference
09c5 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
09c6 0217 | | Execute Heap_Access,All_Reference
09c7 e002 | | Load 0x0,0x2
09c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09ca e5fe | | Load 0x2,-0x2
09cb 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09cc 00d9 | | Load_Top At_Offset_1
09cd 0217 | | Execute Heap_Access,All_Reference
09ce 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
09cf 7816 |x | Jump 0x9e6
09d0 4800 |H | Short_Literal 0x0
09d1 a5fc | | Store_Unchecked 0x2,-0x4
09d2 7813 |x | Jump 0x9e6
09d3 00db | | Load_Top At_Offset_3
09d4 0217 | | Execute Heap_Access,All_Reference
09d5 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
09d6 e5fe | | Load 0x2,-0x2
09d7 021f | | Execute Heap_Access,Equal
09d8 a5fc | | Store_Unchecked 0x2,-0x4
09d9 780c |x | Jump 0x9e6
09da 00db | | Load_Top At_Offset_3
09db 0217 | | Execute Heap_Access,All_Reference
09dc 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
09dd 0217 | | Execute Heap_Access,All_Reference
09de e002 | | Load 0x0,0x2
09df 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09e1 e5fe | | Load 0x2,-0x2
09e2 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09e3 00d9 | | Load_Top At_Offset_1
09e4 0217 | | Execute Heap_Access,All_Reference
09e5 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
09e6 00d8 | | Load_Top At_Offset_0
09e7 a5fd | | Store_Unchecked 0x2,-0x3
09e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09e9 0000 0000 | | .BLANK 0000[0x7]
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f9 | | .CONST 0x09f9 ; Address of begin
09f1 0004 | | .CONST 0x0004 ; Address of exception handler
09f2 0002 | | .CONST 0x0002 ; Number of locals
09f3 INIT_09f0:
09f3 00da | | Load_Top At_Offset_2
09f4 0217 | | Execute Heap_Access,All_Reference
09f5 e20e | | Load 0x1,0xe
09f6 e00e | | Load 0x0,0xe
09f7 180d | | Execute Package,Field_Execute,Field_Number 0xd
09f8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09f9 BODY_09f0:
09f9 00db | | Load_Top At_Offset_3
09fa 0217 | | Execute Heap_Access,All_Reference
09fb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09fc 461a |F | Jump_Case 0x1b
09fd 7830 |x0 | Jump 0xa2e ; case 0x0
09fe 7829 |x) | Jump 0xa28 ; case 0x1
09ff 782e |x. | Jump 0xa2e ; case 0x2
0a00 782d |x- | Jump 0xa2e ; case 0x3
0a01 782c |x, | Jump 0xa2e ; case 0x4
0a02 782b |x+ | Jump 0xa2e ; case 0x5
0a03 782a |x* | Jump 0xa2e ; case 0x6
0a04 7829 |x) | Jump 0xa2e ; case 0x7
0a05 7828 |x( | Jump 0xa2e ; case 0x8
0a06 7827 |x' | Jump 0xa2e ; case 0x9
0a07 7826 |x& | Jump 0xa2e ; case 0xa
0a08 7813 |x | Jump 0xa1c ; case 0xb
0a09 7824 |x$ | Jump 0xa2e ; case 0xc
0a0a 7823 |x# | Jump 0xa2e ; case 0xd
0a0b 7822 |x" | Jump 0xa2e ; case 0xe
0a0c 7816 |x | Jump 0xa23 ; case 0xf
0a0d 7815 |x | Jump 0xa23 ; case 0x10
0a0e 7814 |x | Jump 0xa23 ; case 0x11
0a0f 7813 |x | Jump 0xa23 ; case 0x12
0a10 7812 |x | Jump 0xa23 ; case 0x13
0a11 7811 |x | Jump 0xa23 ; case 0x14
0a12 7810 |x | Jump 0xa23 ; case 0x15
0a13 7804 |x | Jump 0xa18 ; case 0x16
0a14 7803 |x | Jump 0xa18 ; case 0x17
0a15 7802 |x | Jump 0xa18 ; case 0x18
0a16 7801 |x | Jump 0xa18 ; case 0x19
0a17 7800 |x | Jump 0xa18 ; case 0x1a
0a18 00d8 | | Load_Top At_Offset_0
0a19 e5ff | | Load 0x2,-0x1
0a1a 8258 | X | Call 0x1,0x58
0a1b 7812 |x | Jump 0xa2e
0a1c 00db | | Load_Top At_Offset_3
0a1d 0217 | | Execute Heap_Access,All_Reference
0a1e 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a1f 00d9 | | Load_Top At_Offset_1
0a20 0217 | | Execute Heap_Access,All_Reference
0a21 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0a22 780b |x | Jump 0xa2e
0a23 e5fe | | Load 0x2,-0x2
0a24 00d9 | | Load_Top At_Offset_1
0a25 0217 | | Execute Heap_Access,All_Reference
0a26 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
0a27 7806 |x | Jump 0xa2e
0a28 00db | | Load_Top At_Offset_3
0a29 0217 | | Execute Heap_Access,All_Reference
0a2a 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a2b 00d9 | | Load_Top At_Offset_1
0a2c 0217 | | Execute Heap_Access,All_Reference
0a2d 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0a2e 00d8 | | Load_Top At_Offset_0
0a2f a5fd | | Store_Unchecked 0x2,-0x3
0a30 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a31 0000 0000 | | .BLANK 0000[0x7]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a3b | ; | .CONST 0x0a3b ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0001 | | .CONST 0x0001 ; Number of locals
0a3b BODY_0a38:
0a3b INIT_0a38:
0a3b 00da | | Load_Top At_Offset_2
0a3c e7fe | | Load 0x3,-0x2
0a3d 027f | | Execute Discrete,Equal
0a3e 680a |h | Jump_Zero 0xa49
0a3f 00da | | Load_Top At_Offset_2
0a40 00d8 | | Load_Top At_Offset_0
0a41 00e4 | | Load_Encached Positive_Cache
0a42 0260 | ` | Execute Discrete,In_Type
0a43 7001 |p | Jump_Nonzero 0xa45
0a44 0801 | | Execute_Immediate Raise,0x1
0a45 e5ff | | Load 0x2,-0x1
0a46 8237 | 7 | Call 0x1,0x37
0a47 822d | - | Call 0x1,0x2d
0a48 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a49 00da | | Load_Top At_Offset_2
0a4a 00d8 | | Load_Top At_Offset_0
0a4b 00e4 | | Load_Encached Positive_Cache
0a4c 0260 | ` | Execute Discrete,In_Type
0a4d 7001 |p | Jump_Nonzero 0xa4f
0a4e 0801 | | Execute_Immediate Raise,0x1
0a4f e5ff | | Load 0x2,-0x1
0a50 8237 | 7 | Call 0x1,0x37
0a51 822d | - | Call 0x1,0x2d
0a52 e5fe | | Load 0x2,-0x2
0a53 01cc | | Execute Vector,Catenate
0a54 e7fe | | Load 0x3,-0x2
0a55 e7ff | | Load 0x3,-0x1
0a56 0a01 | | Execute_Immediate Plus,0x1
0a57 00d8 | | Load_Top At_Offset_0
0a58 00e2 | | Load_Encached Integer_Cache
0a59 0260 | ` | Execute Discrete,In_Type
0a5a 7001 |p | Jump_Nonzero 0xa5c
0a5b 0801 | | Execute_Immediate Raise,0x1
0a5c 8402 | | Call 0x2,0x2
0a5d 01cc | | Execute Vector,Catenate
0a5e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a5f 0000 | | .XXX[0x1]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a91 | | .CONST 0x0a91 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0020 | | .CONST 0x0020 ; Number of locals
0a63 INIT_0a60:
0a63 e20f | | Load 0x1,0xf
0a64 02a0 | | Declare_Subprogram Null_Subprogram
0a65 03ae | | Declare_Type Heap_Access,Defined,Visible
0a66 029a 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call,Visible,Unelaborated
0a68 029a 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call,Visible,Unelaborated
0a6a 00bf | | Action Accept_Activation
0a6b e001 | | Load 0x0,0x1
0a6c e002 | | Load 0x0,0x2
0a6d e20f | | Load 0x1,0xf
0a6e e214 | | Load 0x1,0x14
0a6f e003 | | Load 0x0,0x3
0a70 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0a71 0387 | | Declare_Variable Package
0a72 00d8 | | Load_Top At_Offset_0
0a73 020f | | Execute Module,Activate
0a74 e003 | | Load 0x0,0x3
0a75 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0a76 00c6 | | Action Check_Subprogram_Elaborated
0a77 e20f | | Load 0x1,0xf
0a78 e214 | | Load 0x1,0x14
0a79 e004 | | Load 0x0,0x4
0a7a e005 | | Load 0x0,0x5
0a7b 4800 |H | Short_Literal 0x0
0a7c 0007 | | Action Break_Optional
0a7d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0a7e 00c7 | | Action Elaborate_Subprogram
0a7f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0a80 00c7 | | Action Elaborate_Subprogram
0a81 029d 0adb | | Declare_Subprogram INIT_0ad8,For_Outer_Call
0a83 029d 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call
0a85 029d 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call
0a87 e006 | | Load 0x0,0x6
0a88 e007 | | Load 0x0,0x7
0a89 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0a8a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0a8b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0a8c e008 | | Load 0x0,0x8
0a8d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a8e 0387 | | Declare_Variable Package
0a8f 00d8 | | Load_Top At_Offset_0
0a90 020f | | Execute Module,Activate
0a91 BODY_0a60:
0a91 e213 | | Load 0x1,0x13
0a92 e009 | | Load 0x0,0x9
0a93 01d7 | | Execute Vector,Field_Read
0a94 6801 |h | Jump_Zero 0xa96
0a95 7809 |x | Jump 0xa9f
0a96 4801 |H | Short_Literal 0x1
0a97 e213 | | Load 0x1,0x13
0a98 e009 | | Load 0x0,0x9
0a99 01d6 | | Execute Vector,Field_Write
0a9a 00d8 | | Load_Top At_Offset_0
0a9b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a9c e213 | | Load 0x1,0x13
0a9d e00a | | Load 0x0,0xa
0a9e 01d6 | | Execute Vector,Field_Write
0a9f 00bc | | Action Signal_Activated
0aa0 00bb | | Action Signal_Completion
0aa1 0000 0000 | | .BLANK 0000[0x7]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0abe | | .CONST 0x0abe ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0003 | | .CONST 0x0003 ; Number of locals
0aab INIT_0aa8:
0aab 00da | | Load_Top At_Offset_2
0aac e20f | | Load 0x1,0xf
0aad 0119 | | Execute Any,Check_In_Formal_Type
0aae e214 | | Load 0x1,0x14
0aaf e00b | | Load 0x0,0xb
0ab0 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ab1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0ab2 e213 | | Load 0x1,0x13
0ab3 00d8 | | Load_Top At_Offset_0
0ab4 e00c | | Load 0x0,0xc
0ab5 1c06 | | Execute_Immediate Run_Utility,0x6
0ab6 e00d | | Load 0x0,0xd
0ab7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ab8 e00b | | Load 0x0,0xb
0ab9 180d | | Execute Package,Field_Execute,Field_Number 0xd
0aba 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0abb 00d8 | | Load_Top At_Offset_0
0abc 0217 | | Execute Heap_Access,All_Reference
0abd 1c00 | | Execute_Immediate Run_Utility,0x0
0abe BODY_0aa8:
0abe 00d9 | | Load_Top At_Offset_1
0abf e217 | | Load 0x1,0x17
0ac0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ac1 00d9 | | Load_Top At_Offset_1
0ac2 0217 | | Execute Heap_Access,All_Reference
0ac3 2a14 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x14
0ac4 00d8 | | Load_Top At_Offset_0
0ac5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ac6 0000 0000 | | .XXX[0x2]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acb | | .CONST 0x0acb ; Address of begin
0ac9 0004 | | .CONST 0x0004 ; Address of exception handler
0aca 0001 | | .CONST 0x0001 ; Number of locals
0acb BODY_0ac8:
0acb INIT_0ac8:
0acb 00da | | Load_Top At_Offset_2
0acc 0217 | | Execute Heap_Access,All_Reference
0acd 2e14 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x14
0ace e00b | | Load 0x0,0xb
0acf 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ad0 e218 | | Load 0x1,0x18
0ad1 e219 | | Load 0x1,0x19
0ad2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0ad3 e003 | | Load 0x0,0x3
0ad4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ad5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ad6 0000 0000 | | .XXX[0x2]
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0adb | | .CONST 0x0adb ; Address of begin
0ad9 0004 | | .CONST 0x0004 ; Address of exception handler
0ada 0001 | | .CONST 0x0001 ; Number of locals
0adb BODY_0ad8:
0adb INIT_0ad8:
0adb 00da | | Load_Top At_Offset_2
0adc 8216 | | Call 0x1,0x16
0add 0219 | | Execute Heap_Access,All_Read
0ade e20f | | Load 0x1,0xf
0adf 0119 | | Execute Any,Check_In_Formal_Type
0ae0 8212 | | Call 0x1,0x12
0ae1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ae2 0000 0000 | | .BLANK 0000[0x6]
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0aeb | | .CONST 0x0aeb ; Address of begin
0ae9 0004 | | .CONST 0x0004 ; Address of exception handler
0aea 0001 | | .CONST 0x0001 ; Number of locals
0aeb BODY_0ae8:
0aeb INIT_0ae8:
0aeb 00da | | Load_Top At_Offset_2
0aec 8216 | | Call 0x1,0x16
0aed 0219 | | Execute Heap_Access,All_Read
0aee e20f | | Load 0x1,0xf
0aef 0119 | | Execute Any,Check_In_Formal_Type
0af0 8210 | | Call 0x1,0x10
0af1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0af2 0000 0000 | | .BLANK 0000[0x6]
0af8 ; --------------------------------------------------------------------------------------
0af8 ; SUBPROGRAM
0af8 ; --------------------------------------------------------------------------------------
0af8 0afb | | .CONST 0x0afb ; Address of begin
0af9 0004 | | .CONST 0x0004 ; Address of exception handler
0afa 0001 | | .CONST 0x0001 ; Number of locals
0afb BODY_0af8:
0afb INIT_0af8:
0afb 00db | | Load_Top At_Offset_3
0afc 00db | | Load_Top At_Offset_3
0afd 8211 | | Call 0x1,0x11
0afe e20f | | Load 0x1,0xf
0aff 0119 | | Execute Any,Check_In_Formal_Type
0b00 8215 | | Call 0x1,0x15
0b01 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b02 0000 0000 | | .BLANK 0000[0x6]
0b08 ; --------------------------------------------------------------------------------------
0b08 ; SUBPROGRAM
0b08 ; --------------------------------------------------------------------------------------
0b08 0b13 | | .CONST 0x0b13 ; Address of begin
0b09 0004 | | .CONST 0x0004 ; Address of exception handler
0b0a 000e | | .CONST 0x000e ; Number of locals
0b0b INIT_0b08:
0b0b 00e5 | | Load_Encached Long_Integer_Cache
0b0c 0129 | ) | Execute Any,Make_Visible
0b0d 4805 |H | Short_Literal 0x5
0b0e 0093 0b1b | | push_full_address INIT_0b18
0b10 02a0 | | Declare_Subprogram Null_Subprogram
0b11 038f | | Declare_Type Package,Defined,Visible
0b12 00bf | | Action Accept_Activation
0b13 BODY_0b08:
0b13 00bc | | Action Signal_Activated
0b14 00bb | | Action Signal_Completion
0b15 0000 0000 | | .XXX[0x3]
0b17 0000 | |
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1e | | .CONST 0x0b1e ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0012 | | .CONST 0x0012 ; Number of locals
0b1b INIT_0b18:
0b1b 029c 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible
0b1d 00bf | | Action Accept_Activation
0b1e BODY_0b18:
0b1e 00bc | | Action Signal_Activated
0b1f 00bb | | Action Signal_Completion
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b23 | # | .CONST 0x0b23 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0001 | | .CONST 0x0001 ; Number of locals
0b23 BODY_0b20:
0b23 INIT_0b20:
0b23 00b6 | | Action Make_Scope
0b24 020a | | Execute Module,Get_Name
0b25 00ca | | Action Exit_Nullary_Function
0b26 ; --------------------------------------------------------------------------------------
0b26 ; STRING TABLE
0b26 ; --------------------------------------------------------------------------------------
0b26 003a | : | .STRTAB 0x003a->0x0b43 ; "NIL_PARAMETER"
0b27 0045 | E | .STRTAB 0x0045->0x0b49 ; "STRING_PARAMETER"
0b28 0053 | S | .STRTAB 0x0053->0x0b51 ; "INTEGER_PARAMETER"
0b29 0062 | b | .STRTAB 0x0062->0x0b5a ; "FLOAT_PARAMETER"
0b2a 006f | o | .STRTAB 0x006f->0x0b61 ; "DURATION_PARAMETER"
0b2b 007f | | .STRTAB 0x007f->0x0b6a ; "TIME_PARAMETER"
0b2c 008b | | .STRTAB 0x008b->0x0b71 ; "OBJECT_PARAMETER"
0b2d 0099 | | .STRTAB 0x0099->0x0b79 ; "VERSION_PARAMETER"
0b2e 00a8 | | .STRTAB 0x00a8->0x0b82 ; "CLASS_PARAMETER"
0b2f 00b5 | | .STRTAB 0x00b5->0x0b89 ; "SUBCLASS_PARAMETER"
0b30 00c5 | | .STRTAB 0x00c5->0x0b92 ; "ERROR_STATUS_PARAMETER"
0b31 00d9 | | .STRTAB 0x00d9->0x0b9d ; "NAME_STATUS_PARAMETER"
0b32 00ec | | .STRTAB 0x00ec->0x0ba8 ; "COMPILER_PARAMETER"
0b33 00fc | | .STRTAB 0x00fc->0x0bb1 ; "MACHINE_PARAMETER"
0b34 010b | | .STRTAB 0x010b->0x0bb9 ; "CONDITION_PARAMETER"
0b35 011c | | .STRTAB 0x011c->0x0bc3 ; "DATA_PARAMETER"
0b36 0128 | ( | .STRTAB 0x0128->0x0bca ; "LINK_PARAMETER"
0b37 0134 | 4 | .STRTAB 0x0134->0x0bd1 ; "STATE_PARAMETER"
0b38 0141 | A | .STRTAB 0x0141->0x0bd8 ; "IMPORT_PARAMETER"
0b39 014f | O | .STRTAB 0x014f->0x0be0 ; "HANDLE_PARAMETER"
0b3a 015d | ] | .STRTAB 0x015d->0x0be8 ; "STEP_PARAMETER"
0b3b 0169 | i | .STRTAB 0x0169->0x0bef ; "SCRIPT_PARAMETER"
0b3c 0177 | w | .STRTAB 0x0177->0x0bf7 ; "CUSTOM_PARAMETER_1"
0b3d 0187 | | .STRTAB 0x0187->0x0c00 ; "CUSTOM_PARAMETER_2"
0b3e 0197 | | .STRTAB 0x0197->0x0c09 ; "CUSTOM_PARAMETER_3"
0b3f 01a7 | | .STRTAB 0x01a7->0x0c12 ; "CUSTOM_PARAMETER_4"
0b40 01b7 | | .STRTAB 0x01b7->0x0c1b ; "CUSTOM_PARAMETER_5"
0b41 01c7 | | .STRTAB 0x01c7->0x0c24 ; "<>"
0b42 01c7 | | .STREND 0x01c7->0x0c25
0b43 4e49 4c5f |NIL_| .STRTAB_STRINGS
0c26 0000 0000 | | .XXX[0x2]
0c28 ; --------------------------------------------------------------------------------------
0c28 ; Debug Table
0c28 ; --------------------------------------------------------------------------------------
0c28 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb18,0x0000,0x0001,0x0000
0c2e 0000 0000 | | .XXX[0xe]
0c30 000b 8004 | |
0c32 0000 0111 | |
0c34 0000 0000 | |
0c36 0141 00f4 | A |
0c38 0141 00f4 | A |
0c3a 0000 0319 | |
0c3c 0000 0000 | | .BLANK 0000[0x4]
0c40 0d3f 3004 | ?0 | .XXX[0x5]
0c42 0000 1fc1 | |
0c44 ffff | |
0c45 0000 0000 | | .BLANK 0000[0x6]
0c4b 1fbf 0000 | | .XXX[0x11]
0c4d 0000 0000 | |
0c4f 1fff 0015 | |
0c51 d24f fd51 | O Q|
0c53 80c9 0000 | |
0c55 0000 80de | |
0c57 000e 0000 | |
0c59 0000 0000 | |
0c5b 0076 | v |
0c5c 0000 0000 | | .BLANK 0000[0x7]
0c63 0009 | | .XXX[0x1]
0c64 0000 0000 | | .BLANK 0000[0x6]
0c6a 8000 0000 | | .XXX[0x9]
0c6c 0000 0000 | |
0c6e 0012 5f04 | _ |
0c70 0000 0000 | |
0c72 8000 | |
0c73 0000 0000 | | .BLANK 0000[0x4]
0c77 0106 0001 | | .XXX[0xd]
0c79 0404 8800 | |
0c7b 0400 8000 | |
0c7d 0000 0000 | |
0c7f 0000 0140 | @|
0c81 e0f4 8000 | |
0c83 0744 | D |
0c84 0000 0000 | | .BLANK 0000[0x4]
0c88 0141 00f4 | A | .XXX[0xb]
0c8a 8000 0002 | |
0c8c 0141 00f4 | A |
0c8e 0000 1440 | @|
0c90 0000 0000 | |
0c92 8000 | |
0c93 0000 0000 | | .BLANK 0000[0x4]
0c97 0037 0000 | 7 | .XXX[0x4]
0c99 0000 8000 | |
0c9b 0000 0000 | | .BLANK 0000[0x4]
0c9f 0006 0000 | | .XXX[0x4]
0ca1 0000 8000 | |
0ca3 0000 0000 | | .BLANK 0000[0x4]
0ca7 0071 0141 | q A| .XXX[0xd]
0ca9 04f4 8000 | |
0cab 0144 0000 | D |
0cad 0000 0000 | |
0caf 0005 0141 | A|
0cb1 04f4 8800 | |
0cb3 04b8 | |
0cb4 0000 0000 | | .BLANK 0000[0x4]
0cb8 0141 04f4 | A | .XXX[0xc]
0cba 8800 0600 | |
0cbc 8000 0000 | |
0cbe 0000 0000 | |
0cc0 0141 04f4 | A |
0cc2 8000 07ec | |
0cc4 0000 0000 | | .BLANK 0000[0x4]
0cc8 0141 04f4 | A | .XXX[0x4]
0cca 8800 09b8 | |
0ccc 0000 0000 | | .BLANK 0000[0x4]
0cd0 0141 04f4 | A | .XXX[0x14]
0cd2 8000 0b44 | D|
0cd4 0000 0000 | |
0cd6 0000 0002 | |
0cd8 0141 04f4 | A |
0cda 8000 0b44 | D|
0cdc 0141 04f4 | A |
0cde 0000 0001 | |
0ce0 0141 04f4 | A |
0ce2 8000 0d44 | D|
0ce4 0000 0000 | | .BLANK 0000[0x4]
0ce8 0141 04f4 | A | .XXX[0x4]
0cea 8800 1038 | 8|
0cec 0000 0000 | | .BLANK 0000[0x4]
0cf0 0141 04f4 | A | .XXX[0x70]
0cf2 0000 0036 | 6|
0cf4 000d 0c08 | |
0cf6 0000 0bb2 | |
0cf8 0141 04f4 | A |
0cfa 0000 0036 | 6|
0cfc 000d 0c08 | |
0cfe 0000 0f32 | 2|
0d00 0141 04f4 | A |
0d02 0000 0036 | 6|
0d04 000d 0c08 | |
0d06 0000 16b2 | |
0d08 0141 04f4 | A |
0d0a 0000 0036 | 6|
0d0c 000d 0c08 | |
0d0e 0000 1cb2 | |
0d10 0141 04f4 | A |
0d12 0000 0036 | 6|
0d14 000d 0c08 | |
0d16 0000 2032 | 2|
0d18 0141 04f4 | A |
0d1a 0000 0036 | 6|
0d1c 000d 0c08 | |
0d1e 0000 25b2 | % |
0d20 0141 04f4 | A |
0d22 0000 0036 | 6|
0d24 000d 0c08 | |
0d26 0000 27b2 | ' |
0d28 0141 04f4 | A |
0d2a 0800 1180 | |
0d2c 8000 0000 | |
0d2e 0000 0000 | |
0d30 0141 04f4 | A |
0d32 0000 0016 | |
0d34 000d 0c08 | |
0d36 0000 2c32 | ,2|
0d38 0141 04f4 | A |
0d3a 0000 0016 | |
0d3c 000d 0c08 | |
0d3e 0000 2db2 | - |
0d40 0141 04f4 | A |
0d42 0000 0016 | |
0d44 000d 0c08 | |
0d46 0000 3032 | 02|
0d48 0141 04f4 | A |
0d4a 0000 0016 | |
0d4c 000d 0c08 | |
0d4e 0000 3232 | 22|
0d50 0141 04f4 | A |
0d52 0000 0016 | |
0d54 000d 0c08 | |
0d56 0000 34b2 | 4 |
0d58 0141 04f4 | A |
0d5a 0000 0016 | |
0d5c 000d 0c08 | |
0d5e 0000 3632 | 62|
0d60 0000 0000 | | .BLANK 0000[0xa0]