|
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: 11264 (0x2c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 1470 | p | .CONST 0x1470 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0382 | | .CONST 0x0382 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00b5 | | .CONST 0x00b5 ; Number of locals 000b INIT_0008: 000b 00e5 | | Load_Encached Long_Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00e6 | | Load_Encached Float_Cache 000e 0129 | ) | Execute Any,Make_Visible 000f 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0011 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0013 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0015 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0017 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0019 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 001b 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 001d 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 001f 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0021 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0023 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 0025 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 0027 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0029 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 002b 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated 002d 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 002f 6358 |cX | Indirect_Literal Discrete,0x388,{0xffffffff, 0x80000001} 0030 6353 |cS | Indirect_Literal Discrete,0x384,{0x00000000, 0x7fffffff} 0031 00e5 | | Load_Encached Long_Integer_Cache 0032 03f9 | | Declare_Type Discrete,Constrained,Visible 0033 00e4 | | Load_Encached Positive_Cache 0034 0266 | f | Execute Discrete,Bounds 0035 00da | | Load_Top At_Offset_2 0036 02a0 | | Declare_Subprogram Null_Subprogram 0037 4801 |H | Short_Literal 0x1 0038 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0039 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 003b 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 003d 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 003f 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 0041 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 0043 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0045 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 0047 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 0049 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated 004b 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 004d 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 004f 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 0051 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0053 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated 0055 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated 0057 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 0059 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 005b 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 005d 00e3 | | Load_Encached Natural_Cache 005e 00d8 | | Load_Top At_Offset_0 005f e220 | | Load 0x1,0x20 0060 00d8 | | Load_Top At_Offset_0 0061 029f 13db | | Declare_Subprogram INIT_13d8,For_Call 0063 4800 |H | Short_Literal 0x0 0064 4802 |H | Short_Literal 0x2 0065 4800 |H | Short_Literal 0x0 0066 4800 |H | Short_Literal 0x0 0067 4802 |H | Short_Literal 0x2 0068 4802 |H | Short_Literal 0x2 0069 031e | | Declare_Type Variant_Record,Defined,Visible 006a 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 006c 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 006e 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated 0070 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated 0072 4fff |O | Short_Literal -0x1 0073 4801 |H | Short_Literal 0x1 0074 00e5 | | Load_Encached Long_Integer_Cache 0075 03f9 | | Declare_Type Discrete,Constrained,Visible 0076 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated 0078 029a 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call,Visible,Unelaborated 007a 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated 007c 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated 007e 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated 0080 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated 0082 00e4 | | Load_Encached Positive_Cache 0083 00d8 | | Load_Top At_Offset_0 0084 4800 |H | Short_Literal 0x0 0085 4802 |H | Short_Literal 0x2 0086 4802 |H | Short_Literal 0x2 0087 4804 |H | Short_Literal 0x4 0088 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0089 029f 13ab | | Declare_Subprogram INIT_13a8,For_Call 008b 00d9 | | Load_Top At_Offset_1 008c 012a | * | Execute Any,Change_Utility 008d 0007 | | Action Break_Optional 008e 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated 0090 029a 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call,Visible,Unelaborated 0092 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated 0094 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated 0096 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated 0098 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 009a 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated 009c 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated 009e 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated 00a0 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated 00a2 029a 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Visible,Unelaborated 00a4 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated 00a6 029a 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call,Visible,Unelaborated 00a8 029a 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Visible,Unelaborated 00aa 029a 080b | | Declare_Subprogram INIT_0808,For_Outer_Call,Visible,Unelaborated 00ac 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated 00ae 029a 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Visible,Unelaborated 00b0 029a 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call,Visible,Unelaborated 00b2 029a 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call,Visible,Unelaborated 00b4 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated 00b6 029a 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call,Visible,Unelaborated 00b8 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated 00ba 029a 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call,Visible,Unelaborated 00bc 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated 00be 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated 00c0 029a 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Visible,Unelaborated 00c2 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated 00c4 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated 00c6 029a 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call,Visible,Unelaborated 00c8 029a 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call,Visible,Unelaborated 00ca 00e4 | | Load_Encached Positive_Cache 00cb 0266 | f | Execute Discrete,Bounds 00cc 00e1 | | Load_Encached Boolean_Cache 00cd 02a0 | | Declare_Subprogram Null_Subprogram 00ce 4801 |H | Short_Literal 0x1 00cf 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00d0 00d8 | | Load_Top At_Offset_0 00d1 0129 | ) | Execute Any,Make_Visible 00d2 00d9 | | Load_Top At_Offset_1 00d3 0129 | ) | Execute Any,Make_Visible 00d4 00e4 | | Load_Encached Positive_Cache 00d5 00d8 | | Load_Top At_Offset_0 00d6 00d8 | | Load_Top At_Offset_0 00d7 e238 | 8 | Load 0x1,0x38 00d8 00e2 | | Load_Encached Integer_Cache 00d9 e260 | ` | Load 0x1,0x60 00da e23f | ? | Load 0x1,0x3f 00db 029f 141b | | Declare_Subprogram INIT_1418,For_Call 00dd 4800 |H | Short_Literal 0x0 00de 4802 |H | Short_Literal 0x2 00df 4802 |H | Short_Literal 0x2 00e0 4800 |H | Short_Literal 0x0 00e1 4802 |H | Short_Literal 0x2 00e2 4803 |H | Short_Literal 0x3 00e3 0316 | | Declare_Type Variant_Record,Defined_Incomplete,Visible 00e4 029a 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call,Visible,Unelaborated 00e6 029a 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call,Visible,Unelaborated 00e8 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated 00ea 029a 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call,Visible,Unelaborated 00ec 029a 090b | | Declare_Subprogram INIT_0908,For_Outer_Call,Visible,Unelaborated 00ee 4800 |H | Short_Literal 0x0 00ef e001 | | Load 0x0,0x1 00f0 02a0 | | Declare_Subprogram Null_Subprogram 00f1 038f | | Declare_Type Package,Defined,Visible 00f2 0386 | | Declare_Variable Package,Visible 00f3 00d8 | | Load_Top At_Offset_0 00f4 1916 | | Execute Package,Field_Reference,Field_Number 0x16 00f5 0129 | ) | Execute Any,Make_Visible 00f6 00d9 | | Load_Top At_Offset_1 00f7 1915 | | Execute Package,Field_Reference,Field_Number 0x15 00f8 0129 | ) | Execute Any,Make_Visible 00f9 00da | | Load_Top At_Offset_2 00fa 1918 | | Execute Package,Field_Reference,Field_Number 0x18 00fb 0129 | ) | Execute Any,Make_Visible 00fc 00db | | Load_Top At_Offset_3 00fd 190e | | Execute Package,Field_Reference,Field_Number 0xe 00fe 0129 | ) | Execute Any,Make_Visible 00ff e267 | g | Load 0x1,0x67 0100 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0101 0129 | ) | Execute Any,Make_Visible 0102 e267 | g | Load 0x1,0x67 0103 190d | | Execute Package,Field_Reference,Field_Number 0xd 0104 0129 | ) | Execute Any,Make_Visible 0105 e267 | g | Load 0x1,0x67 0106 190f | | Execute Package,Field_Reference,Field_Number 0xf 0107 0129 | ) | Execute Any,Make_Visible 0108 e267 | g | Load 0x1,0x67 0109 1917 | | Execute Package,Field_Reference,Field_Number 0x17 010a 0129 | ) | Execute Any,Make_Visible 010b 029c 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call,Visible 010d e267 | g | Load 0x1,0x67 010e 1919 | | Execute Package,Field_Reference,Field_Number 0x19 010f 0129 | ) | Execute Any,Make_Visible 0110 e267 | g | Load 0x1,0x67 0111 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0112 0129 | ) | Execute Any,Make_Visible 0113 e267 | g | Load 0x1,0x67 0114 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0115 0129 | ) | Execute Any,Make_Visible 0116 e267 | g | Load 0x1,0x67 0117 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0118 0129 | ) | Execute Any,Make_Visible 0119 e267 | g | Load 0x1,0x67 011a 1912 | | Execute Package,Field_Reference,Field_Number 0x12 011b 0129 | ) | Execute Any,Make_Visible 011c e267 | g | Load 0x1,0x67 011d 191d | | Execute Package,Field_Reference,Field_Number 0x1d 011e 0129 | ) | Execute Any,Make_Visible 011f e267 | g | Load 0x1,0x67 0120 191e | | Execute Package,Field_Reference,Field_Number 0x1e 0121 0129 | ) | Execute Any,Make_Visible 0122 e267 | g | Load 0x1,0x67 0123 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0124 0129 | ) | Execute Any,Make_Visible 0125 e267 | g | Load 0x1,0x67 0126 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0127 0129 | ) | Execute Any,Make_Visible 0128 e267 | g | Load 0x1,0x67 0129 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 012a 0129 | ) | Execute Any,Make_Visible 012b e267 | g | Load 0x1,0x67 012c 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 012d 0129 | ) | Execute Any,Make_Visible 012e e267 | g | Load 0x1,0x67 012f 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 0130 0129 | ) | Execute Any,Make_Visible 0131 e267 | g | Load 0x1,0x67 0132 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 0133 0129 | ) | Execute Any,Make_Visible 0134 e267 | g | Load 0x1,0x67 0135 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 0136 0129 | ) | Execute Any,Make_Visible 0137 e267 | g | Load 0x1,0x67 0138 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 0139 0129 | ) | Execute Any,Make_Visible 013a e267 | g | Load 0x1,0x67 013b 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 013c 0129 | ) | Execute Any,Make_Visible 013d e267 | g | Load 0x1,0x67 013e 1929 | ) | Execute Package,Field_Reference,Field_Number 0x29 013f 0129 | ) | Execute Any,Make_Visible 0140 e267 | g | Load 0x1,0x67 0141 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 0142 0129 | ) | Execute Any,Make_Visible 0143 e267 | g | Load 0x1,0x67 0144 192c | , | Execute Package,Field_Reference,Field_Number 0x2c 0145 0129 | ) | Execute Any,Make_Visible 0146 e267 | g | Load 0x1,0x67 0147 192e | . | Execute Package,Field_Reference,Field_Number 0x2e 0148 0129 | ) | Execute Any,Make_Visible 0149 e267 | g | Load 0x1,0x67 014a 192a | * | Execute Package,Field_Reference,Field_Number 0x2a 014b 0129 | ) | Execute Any,Make_Visible 014c e267 | g | Load 0x1,0x67 014d 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 014e 0129 | ) | Execute Any,Make_Visible 014f e267 | g | Load 0x1,0x67 0150 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30 0151 0129 | ) | Execute Any,Make_Visible 0152 e267 | g | Load 0x1,0x67 0153 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 0154 0129 | ) | Execute Any,Make_Visible 0155 e267 | g | Load 0x1,0x67 0156 193a | : | Execute Package,Field_Reference,Field_Number 0x3a 0157 0129 | ) | Execute Any,Make_Visible 0158 e267 | g | Load 0x1,0x67 0159 193b | ; | Execute Package,Field_Reference,Field_Number 0x3b 015a 0129 | ) | Execute Any,Make_Visible 015b e267 | g | Load 0x1,0x67 015c 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 015d 0129 | ) | Execute Any,Make_Visible 015e e267 | g | Load 0x1,0x67 015f 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33 0160 0129 | ) | Execute Any,Make_Visible 0161 e267 | g | Load 0x1,0x67 0162 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0163 0129 | ) | Execute Any,Make_Visible 0164 e267 | g | Load 0x1,0x67 0165 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36 0166 0129 | ) | Execute Any,Make_Visible 0167 e267 | g | Load 0x1,0x67 0168 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38 0169 0129 | ) | Execute Any,Make_Visible 016a e267 | g | Load 0x1,0x67 016b 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 016c 0129 | ) | Execute Any,Make_Visible 016d e267 | g | Load 0x1,0x67 016e 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 016f 0129 | ) | Execute Any,Make_Visible 0170 e267 | g | Load 0x1,0x67 0171 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 0172 0129 | ) | Execute Any,Make_Visible 0173 e220 | | Load 0x1,0x20 0174 00d8 | | Load_Top At_Offset_0 0175 029f 13ab | | Declare_Subprogram INIT_13a8,For_Call 0177 4800 |H | Short_Literal 0x0 0178 4802 |H | Short_Literal 0x2 0179 4800 |H | Short_Literal 0x0 017a e23f | ? | Load 0x1,0x3f 017b 0307 | | Complete_Type Variant_Record,By_Defining 017c e261 | a | Load 0x1,0x61 017d 0303 | | Complete_Type Variant_Record,By_Component_Completion 017e 00bf | | Action Accept_Activation 017f 4800 |H | Short_Literal 0x0 0180 4802 |H | Short_Literal 0x2 0181 029f 092b | +| Declare_Subprogram INIT_0928,For_Call 0183 03fd | | Declare_Type Discrete,Defined 0184 4801 |H | Short_Literal 0x1 0185 4800 |H | Short_Literal 0x0 0186 e220 | | Load 0x1,0x20 0187 035b | [ | Declare_Type Array,Constrained 0188 0337 | 7 | Declare_Variable Array 0189 00d8 | | Load_Top At_Offset_0 018a 0335 | 5 | Declare_Variable Array,Duplicate 018b 00cd | | Action Spare6_Action 018c 00d9 | | Load_Top At_Offset_1 018d 01d4 | | Execute Vector,Structure_Write 018e 4801 |H | Short_Literal 0x1 018f 4801 |H | Short_Literal 0x1 0190 e220 | | Load 0x1,0x20 0191 035b | [ | Declare_Type Array,Constrained 0192 0337 | 7 | Declare_Variable Array 0193 4800 |H | Short_Literal 0x0 0194 4801 |H | Short_Literal 0x1 0195 00da | | Load_Top At_Offset_2 0196 01d6 | | Execute Vector,Field_Write 0197 4801 |H | Short_Literal 0x1 0198 4801 |H | Short_Literal 0x1 0199 e220 | | Load 0x1,0x20 019a 035b | [ | Declare_Type Array,Constrained 019b 0337 | 7 | Declare_Variable Array 019c 4801 |H | Short_Literal 0x1 019d 4801 |H | Short_Literal 0x1 019e 00da | | Load_Top At_Offset_2 019f 01d6 | | Execute Vector,Field_Write 01a0 4801 |H | Short_Literal 0x1 01a1 4801 |H | Short_Literal 0x1 01a2 e220 | | Load 0x1,0x20 01a3 035b | [ | Declare_Type Array,Constrained 01a4 0337 | 7 | Declare_Variable Array 01a5 4802 |H | Short_Literal 0x2 01a6 4801 |H | Short_Literal 0x1 01a7 00da | | Load_Top At_Offset_2 01a8 01d6 | | Execute Vector,Field_Write 01a9 4801 |H | Short_Literal 0x1 01aa 4801 |H | Short_Literal 0x1 01ab e220 | | Load 0x1,0x20 01ac 035b | [ | Declare_Type Array,Constrained 01ad 0337 | 7 | Declare_Variable Array 01ae 480a |H | Short_Literal 0xa 01af 4801 |H | Short_Literal 0x1 01b0 00da | | Load_Top At_Offset_2 01b1 01d6 | | Execute Vector,Field_Write 01b2 4801 |H | Short_Literal 0x1 01b3 4801 |H | Short_Literal 0x1 01b4 e23f | ? | Load 0x1,0x3f 01b5 1c08 | | Execute_Immediate Run_Utility,0x8 01b6 e295 | | Load 0x1,0x95 01b7 00d9 | | Load_Top At_Offset_1 01b8 00d8 | | Load_Top At_Offset_0 01b9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01ba 00da | | Load_Top At_Offset_2 01bb 01da | | Execute Vector,Bounds 01bc 00da | | Load_Top At_Offset_2 01bd 01da | | Execute Vector,Bounds 01be 00da | | Load_Top At_Offset_2 01bf 027f | | Execute Discrete,Equal 01c0 7001 |p | Jump_Nonzero 0x1c2 01c1 08e0 | | Execute_Immediate Raise,0xe0 01c2 00cd | | Action Spare6_Action 01c3 027f | | Execute Discrete,Equal 01c4 7001 |p | Jump_Nonzero 0x1c6 01c5 08e0 | | Execute_Immediate Raise,0xe0 01c6 00d2 | | Pop_Control Pop_Count_2 01c7 00d9 | | Load_Top At_Offset_1 01c8 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 01c9 00db | | Load_Top At_Offset_3 01ca 00d9 | | Load_Top At_Offset_1 01cb 00d8 | | Load_Top At_Offset_0 01cc 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01cd 00da | | Load_Top At_Offset_2 01ce 01da | | Execute Vector,Bounds 01cf 00da | | Load_Top At_Offset_2 01d0 01da | | Execute Vector,Bounds 01d1 00da | | Load_Top At_Offset_2 01d2 027f | | Execute Discrete,Equal 01d3 7001 |p | Jump_Nonzero 0x1d5 01d4 08e0 | | Execute_Immediate Raise,0xe0 01d5 00cd | | Action Spare6_Action 01d6 027f | | Execute Discrete,Equal 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 08e0 | | Execute_Immediate Raise,0xe0 01d9 00d2 | | Pop_Control Pop_Count_2 01da 00d9 | | Load_Top At_Offset_1 01db 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 01dc 4801 |H | Short_Literal 0x1 01dd 4801 |H | Short_Literal 0x1 01de e23f | ? | Load 0x1,0x3f 01df 1c08 | | Execute_Immediate Run_Utility,0x8 01e0 e296 | | Load 0x1,0x96 01e1 00d9 | | Load_Top At_Offset_1 01e2 00d8 | | Load_Top At_Offset_0 01e3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01e4 00da | | Load_Top At_Offset_2 01e5 01da | | Execute Vector,Bounds 01e6 00da | | Load_Top At_Offset_2 01e7 01da | | Execute Vector,Bounds 01e8 00da | | Load_Top At_Offset_2 01e9 027f | | Execute Discrete,Equal 01ea 7001 |p | Jump_Nonzero 0x1ec 01eb 08e0 | | Execute_Immediate Raise,0xe0 01ec 00cd | | Action Spare6_Action 01ed 027f | | Execute Discrete,Equal 01ee 7001 |p | Jump_Nonzero 0x1f0 01ef 08e0 | | Execute_Immediate Raise,0xe0 01f0 00d2 | | Pop_Control Pop_Count_2 01f1 00d9 | | Load_Top At_Offset_1 01f2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 01f3 00db | | Load_Top At_Offset_3 01f4 00d9 | | Load_Top At_Offset_1 01f5 00d8 | | Load_Top At_Offset_0 01f6 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01f7 00da | | Load_Top At_Offset_2 01f8 01da | | Execute Vector,Bounds 01f9 00da | | Load_Top At_Offset_2 01fa 01da | | Execute Vector,Bounds 01fb 00da | | Load_Top At_Offset_2 01fc 027f | | Execute Discrete,Equal 01fd 7001 |p | Jump_Nonzero 0x1ff 01fe 08e0 | | Execute_Immediate Raise,0xe0 01ff 00cd | | Action Spare6_Action 0200 027f | | Execute Discrete,Equal 0201 7001 |p | Jump_Nonzero 0x203 0202 08e0 | | Execute_Immediate Raise,0xe0 0203 00d2 | | Pop_Control Pop_Count_2 0204 00d9 | | Load_Top At_Offset_1 0205 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0206 4801 |H | Short_Literal 0x1 0207 4801 |H | Short_Literal 0x1 0208 e23f | ? | Load 0x1,0x3f 0209 1c08 | | Execute_Immediate Run_Utility,0x8 020a e296 | | Load 0x1,0x96 020b 00d9 | | Load_Top At_Offset_1 020c 00d8 | | Load_Top At_Offset_0 020d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 020e 00da | | Load_Top At_Offset_2 020f 01da | | Execute Vector,Bounds 0210 00da | | Load_Top At_Offset_2 0211 01da | | Execute Vector,Bounds 0212 00da | | Load_Top At_Offset_2 0213 027f | | Execute Discrete,Equal 0214 7001 |p | Jump_Nonzero 0x216 0215 08e0 | | Execute_Immediate Raise,0xe0 0216 00cd | | Action Spare6_Action 0217 027f | | Execute Discrete,Equal 0218 7001 |p | Jump_Nonzero 0x21a 0219 08e0 | | Execute_Immediate Raise,0xe0 021a 00d2 | | Pop_Control Pop_Count_2 021b 00d9 | | Load_Top At_Offset_1 021c 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 021d e296 | | Load 0x1,0x96 021e 00d9 | | Load_Top At_Offset_1 021f 00d8 | | Load_Top At_Offset_0 0220 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0221 00da | | Load_Top At_Offset_2 0222 01da | | Execute Vector,Bounds 0223 00da | | Load_Top At_Offset_2 0224 01da | | Execute Vector,Bounds 0225 00da | | Load_Top At_Offset_2 0226 027f | | Execute Discrete,Equal 0227 7001 |p | Jump_Nonzero 0x229 0228 08e0 | | Execute_Immediate Raise,0xe0 0229 00cd | | Action Spare6_Action 022a 027f | | Execute Discrete,Equal 022b 7001 |p | Jump_Nonzero 0x22d 022c 08e0 | | Execute_Immediate Raise,0xe0 022d 00d2 | | Pop_Control Pop_Count_2 022e 00d9 | | Load_Top At_Offset_1 022f 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0230 4801 |H | Short_Literal 0x1 0231 4801 |H | Short_Literal 0x1 0232 e23f | ? | Load 0x1,0x3f 0233 1c08 | | Execute_Immediate Run_Utility,0x8 0234 e297 | | Load 0x1,0x97 0235 00d9 | | Load_Top At_Offset_1 0236 00d8 | | Load_Top At_Offset_0 0237 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0238 00da | | Load_Top At_Offset_2 0239 01da | | Execute Vector,Bounds 023a 00da | | Load_Top At_Offset_2 023b 01da | | Execute Vector,Bounds 023c 00da | | Load_Top At_Offset_2 023d 027f | | Execute Discrete,Equal 023e 7001 |p | Jump_Nonzero 0x240 023f 08e0 | | Execute_Immediate Raise,0xe0 0240 00cd | | Action Spare6_Action 0241 027f | | Execute Discrete,Equal 0242 7001 |p | Jump_Nonzero 0x244 0243 08e0 | | Execute_Immediate Raise,0xe0 0244 00d2 | | Pop_Control Pop_Count_2 0245 00d9 | | Load_Top At_Offset_1 0246 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0247 e296 | | Load 0x1,0x96 0248 00d9 | | Load_Top At_Offset_1 0249 00d8 | | Load_Top At_Offset_0 024a 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 024b 00da | | Load_Top At_Offset_2 024c 01da | | Execute Vector,Bounds 024d 00da | | Load_Top At_Offset_2 024e 01da | | Execute Vector,Bounds 024f 00da | | Load_Top At_Offset_2 0250 027f | | Execute Discrete,Equal 0251 7001 |p | Jump_Nonzero 0x253 0252 08e0 | | Execute_Immediate Raise,0xe0 0253 00cd | | Action Spare6_Action 0254 027f | | Execute Discrete,Equal 0255 7001 |p | Jump_Nonzero 0x257 0256 08e0 | | Execute_Immediate Raise,0xe0 0257 00d2 | | Pop_Control Pop_Count_2 0258 00d9 | | Load_Top At_Offset_1 0259 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 025a 4801 |H | Short_Literal 0x1 025b 4801 |H | Short_Literal 0x1 025c e23f | ? | Load 0x1,0x3f 025d 1c08 | | Execute_Immediate Run_Utility,0x8 025e e298 | | Load 0x1,0x98 025f 00d9 | | Load_Top At_Offset_1 0260 00d8 | | Load_Top At_Offset_0 0261 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0262 00da | | Load_Top At_Offset_2 0263 01da | | Execute Vector,Bounds 0264 00da | | Load_Top At_Offset_2 0265 01da | | Execute Vector,Bounds 0266 00da | | Load_Top At_Offset_2 0267 027f | | Execute Discrete,Equal 0268 7001 |p | Jump_Nonzero 0x26a 0269 08e0 | | Execute_Immediate Raise,0xe0 026a 00cd | | Action Spare6_Action 026b 027f | | Execute Discrete,Equal 026c 7001 |p | Jump_Nonzero 0x26e 026d 08e0 | | Execute_Immediate Raise,0xe0 026e 00d2 | | Pop_Control Pop_Count_2 026f 00d9 | | Load_Top At_Offset_1 0270 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0271 e296 | | Load 0x1,0x96 0272 00d9 | | Load_Top At_Offset_1 0273 00d8 | | Load_Top At_Offset_0 0274 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0275 00da | | Load_Top At_Offset_2 0276 01da | | Execute Vector,Bounds 0277 00da | | Load_Top At_Offset_2 0278 01da | | Execute Vector,Bounds 0279 00da | | Load_Top At_Offset_2 027a 027f | | Execute Discrete,Equal 027b 7001 |p | Jump_Nonzero 0x27d 027c 08e0 | | Execute_Immediate Raise,0xe0 027d 00cd | | Action Spare6_Action 027e 027f | | Execute Discrete,Equal 027f 7001 |p | Jump_Nonzero 0x281 0280 08e0 | | Execute_Immediate Raise,0xe0 0281 00d2 | | Pop_Control Pop_Count_2 0282 00d9 | | Load_Top At_Offset_1 0283 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0284 e267 | g | Load 0x1,0x67 0285 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0286 0007 | | Action Break_Optional 0287 e267 | g | Load 0x1,0x67 0288 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 0289 0007 | | Action Break_Optional 028a 029d 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call 028c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 028d 00c7 | | Action Elaborate_Subprogram 028e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 028f 00c7 | | Action Elaborate_Subprogram 0290 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0291 00c7 | | Action Elaborate_Subprogram 0292 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0293 00c7 | | Action Elaborate_Subprogram 0294 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0295 00c7 | | Action Elaborate_Subprogram 0296 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0297 00c7 | | Action Elaborate_Subprogram 0298 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0299 00c7 | | Action Elaborate_Subprogram 029a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 029b 00c7 | | Action Elaborate_Subprogram 029c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 029d 00c7 | | Action Elaborate_Subprogram 029e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 029f 00c7 | | Action Elaborate_Subprogram 02a0 1d10 | | Execute_Immediate Reference_Lex_1,0x10 02a1 00c7 | | Action Elaborate_Subprogram 02a2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 02a3 00c7 | | Action Elaborate_Subprogram 02a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 02a5 00c7 | | Action Elaborate_Subprogram 02a6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 02a7 00c7 | | Action Elaborate_Subprogram 02a8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 02a9 00c7 | | Action Elaborate_Subprogram 02aa 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 02ab 00c7 | | Action Elaborate_Subprogram 02ac 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 02ad 00c7 | | Action Elaborate_Subprogram 02ae 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 02af 00c7 | | Action Elaborate_Subprogram 02b0 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 02b1 00c7 | | Action Elaborate_Subprogram 02b2 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 02b3 00c7 | | Action Elaborate_Subprogram 02b4 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 02b5 00c7 | | Action Elaborate_Subprogram 02b6 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 02b7 00c7 | | Action Elaborate_Subprogram 02b8 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 02b9 00c7 | | Action Elaborate_Subprogram 02ba 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 02bb 00c7 | | Action Elaborate_Subprogram 02bc 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 02bd 00c7 | | Action Elaborate_Subprogram 02be 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 02bf 00c7 | | Action Elaborate_Subprogram 02c0 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 02c1 00c7 | | Action Elaborate_Subprogram 02c2 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 02c3 00c7 | | Action Elaborate_Subprogram 02c4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 02c5 00c7 | | Action Elaborate_Subprogram 02c6 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 02c8 029d 098b | | Declare_Subprogram INIT_0988,For_Outer_Call 02ca 029d 09bb | | Declare_Subprogram INIT_09b8,For_Outer_Call 02cc 029d 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call 02ce 029d 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call 02d0 029d 0a4b | K| Declare_Subprogram INIT_0a48,For_Outer_Call 02d2 029d 0a9b | | Declare_Subprogram INIT_0a98,For_Outer_Call 02d4 029d 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call 02d6 029d 0bb3 | | Declare_Subprogram INIT_0bb0,For_Outer_Call 02d8 029d 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call 02da 029d 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call 02dc 029d 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call 02de 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 02df 00c7 | | Action Elaborate_Subprogram 02e0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 02e1 00c7 | | Action Elaborate_Subprogram 02e2 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 02e3 00c7 | | Action Elaborate_Subprogram 02e4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 02e5 00c7 | | Action Elaborate_Subprogram 02e6 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 02e7 00c7 | | Action Elaborate_Subprogram 02e8 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 02e9 00c7 | | Action Elaborate_Subprogram 02ea 029d 0ccb | | Declare_Subprogram INIT_0cc8,For_Outer_Call 02ec 029d 0d1b | | Declare_Subprogram INIT_0d18,For_Outer_Call 02ee 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 02ef 00c7 | | Action Elaborate_Subprogram 02f0 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 02f1 00c7 | | Action Elaborate_Subprogram 02f2 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 02f3 00c7 | | Action Elaborate_Subprogram 02f4 029d 0d8b | | Declare_Subprogram INIT_0d88,For_Outer_Call 02f6 029d 0da3 | | Declare_Subprogram INIT_0da0,For_Outer_Call 02f8 029d 0dd3 | | Declare_Subprogram INIT_0dd0,For_Outer_Call 02fa 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 02fb 00c7 | | Action Elaborate_Subprogram 02fc 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 02fd 00c7 | | Action Elaborate_Subprogram 02fe 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 02ff 00c7 | | Action Elaborate_Subprogram 0300 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0301 00c7 | | Action Elaborate_Subprogram 0302 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0303 00c7 | | Action Elaborate_Subprogram 0304 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call 0306 029d 0e2b | +| Declare_Subprogram INIT_0e28,For_Outer_Call 0308 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0309 00c7 | | Action Elaborate_Subprogram 030a 029d 0e5b | [| Declare_Subprogram INIT_0e58,For_Outer_Call 030c 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 030d 00c7 | | Action Elaborate_Subprogram 030e 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 030f 00c7 | | Action Elaborate_Subprogram 0310 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0311 00c7 | | Action Elaborate_Subprogram 0312 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0313 00c7 | | Action Elaborate_Subprogram 0314 029d 0e73 | s| Declare_Subprogram INIT_0e70,For_Outer_Call 0316 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0317 00c7 | | Action Elaborate_Subprogram 0318 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 0319 00c7 | | Action Elaborate_Subprogram 031a 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 031b 00c7 | | Action Elaborate_Subprogram 031c 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 031d 00c7 | | Action Elaborate_Subprogram 031e 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 031f 00c7 | | Action Elaborate_Subprogram 0320 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 0321 00c7 | | Action Elaborate_Subprogram 0322 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0323 00c7 | | Action Elaborate_Subprogram 0324 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0325 00c7 | | Action Elaborate_Subprogram 0326 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0327 00c7 | | Action Elaborate_Subprogram 0328 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 0329 00c7 | | Action Elaborate_Subprogram 032a 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 032b 00c7 | | Action Elaborate_Subprogram 032c 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 032d 00c7 | | Action Elaborate_Subprogram 032e 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 032f 00c7 | | Action Elaborate_Subprogram 0330 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 0331 00c7 | | Action Elaborate_Subprogram 0332 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0333 00c7 | | Action Elaborate_Subprogram 0334 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 0335 00c7 | | Action Elaborate_Subprogram 0336 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0337 00c7 | | Action Elaborate_Subprogram 0338 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0339 00c7 | | Action Elaborate_Subprogram 033a 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 033b 00c7 | | Action Elaborate_Subprogram 033c 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 033d 00c7 | | Action Elaborate_Subprogram 033e 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 033f 00c7 | | Action Elaborate_Subprogram 0340 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0341 00c7 | | Action Elaborate_Subprogram 0342 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0343 00c7 | | Action Elaborate_Subprogram 0344 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0345 00c7 | | Action Elaborate_Subprogram 0346 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0347 00c7 | | Action Elaborate_Subprogram 0348 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0349 00c7 | | Action Elaborate_Subprogram 034a 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 034b 00c7 | | Action Elaborate_Subprogram 034c 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 034d 00c7 | | Action Elaborate_Subprogram 034e 1d65 | e | Execute_Immediate Reference_Lex_1,0x65 034f 00c7 | | Action Elaborate_Subprogram 0350 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 0351 00c7 | | Action Elaborate_Subprogram 0352 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0353 00c7 | | Action Elaborate_Subprogram 0354 00b6 | | Action Make_Scope 0355 e002 | | Load 0x0,0x2 0356 e003 | | Load 0x0,0x3 0357 e004 | | Load 0x0,0x4 0358 e005 | | Load 0x0,0x5 0359 e006 | | Load 0x0,0x6 035a e007 | | Load 0x0,0x7 035b e008 | | Load 0x0,0x8 035c e009 | | Load 0x0,0x9 035d e00a | | Load 0x0,0xa 035e e00b | | Load 0x0,0xb 035f e00c | | Load 0x0,0xc 0360 e00d | | Load 0x0,0xd 0361 e00e | | Load 0x0,0xe 0362 e00f | | Load 0x0,0xf 0363 1da4 | | Execute_Immediate Reference_Lex_1,0xa4 0364 1d9e | | Execute_Immediate Reference_Lex_1,0x9e 0365 e298 | | Load 0x1,0x98 0366 1da1 | | Execute_Immediate Reference_Lex_1,0xa1 0367 e010 | | Load 0x0,0x10 0368 a011 | | Store_Unchecked 0x0,0x11 0369 e012 | | Load 0x0,0x12 036a e013 | | Load 0x0,0x13 036b e014 | | Load 0x0,0x14 036c e015 | | Load 0x0,0x15 036d e296 | | Load 0x1,0x96 036e e295 | | Load 0x1,0x95 036f e29a | | Load 0x1,0x9a 0370 e29c | | Load 0x1,0x9c 0371 e299 | | Load 0x1,0x99 0372 1db5 | | Execute_Immediate Reference_Lex_1,0xb5 0373 e29d | | Load 0x1,0x9d 0374 e016 | | Load 0x0,0x16 0375 e29b | | Load 0x1,0x9b 0376 1db2 | | Execute_Immediate Reference_Lex_1,0xb2 0377 1db3 | | Execute_Immediate Reference_Lex_1,0xb3 0378 1da9 | | Execute_Immediate Reference_Lex_1,0xa9 0379 e294 | | Load 0x1,0x94 037a 1dac | | Execute_Immediate Reference_Lex_1,0xac 037b 1da3 | | Execute_Immediate Reference_Lex_1,0xa3 037c e297 | | Load 0x1,0x97 037d 4829 |H) | Short_Literal 0x29 037e e267 | g | Load 0x1,0x67 037f 020e | | Execute Module,Augment_Imports 0380 e267 | g | Load 0x1,0x67 0381 020f | | Execute Module,Activate 0382 BODY_0008: 0382 00bc | | Action Signal_Activated 0383 00bb | | Action Signal_Completion 0384 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0388 ffff ffff | | .LITERAL {0xffffffff, 0x80000001} 038c 0000 0000 | | .BLANK 0000[0x4] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 0237 | 7 | Execute Float,Convert_From_Discrete 0395 e5fe | | Load 0x2,-0x2 0396 023b | ; | Execute Float,Times 0397 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00da | | Load_Top At_Offset_2 039c e5fe | | Load 0x2,-0x2 039d 0237 | 7 | Execute Float,Convert_From_Discrete 039e 023b | ; | Execute Float,Times 039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 e5fe | | Load 0x2,-0x2 03a5 0237 | 7 | Execute Float,Convert_From_Discrete 03a6 023a | : | Execute Float,Divide 03a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00da | | Load_Top At_Offset_2 03ac e5fe | | Load 0x2,-0x2 03ad 027b | { | Execute Discrete,Greater_Equal 03ae 6804 |h | Jump_Zero 0x3b3 03af 00da | | Load_Top At_Offset_2 03b0 e5fd | | Load 0x2,-0x3 03b1 027a | z | Execute Discrete,Less_Equal 03b2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03b3 4800 |H | Short_Literal 0x0 03b4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03b5 0000 0000 | | .XXX[0x3] 03b7 0000 | | 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 00da | | Load_Top At_Offset_2 03bc e5fe | | Load 0x2,-0x2 03bd 0243 | C | Execute Float,Greater_Equal 03be 6804 |h | Jump_Zero 0x3c3 03bf 00da | | Load_Top At_Offset_2 03c0 e5fd | | Load 0x2,-0x3 03c1 0242 | B | Execute Float,Less_Equal 03c2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03c3 4800 |H | Short_Literal 0x0 03c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03c5 0000 0000 | | .XXX[0x3] 03c7 0000 | | 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 4800 |H | Short_Literal 0x0 03cc 00ca | | Action Exit_Nullary_Function 03cd 0000 0000 | | .XXX[0x3] 03cf 0000 | | 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 4801 |H | Short_Literal 0x1 03d4 00ca | | Action Exit_Nullary_Function 03d5 0000 0000 | | .XXX[0x3] 03d7 0000 | | 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 5804 |X | Indirect_Literal Float,0x3e0,0.0 03dc 00ca | | Action Exit_Nullary_Function 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 0000 0000 | | .DBL 0.0 03e2 0000 0000 | | 03e4 0000 0000 | | .BLANK 0000[0x4] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 5804 |X | Indirect_Literal Float,0x3f0,1.0 03ec 00ca | | Action Exit_Nullary_Function 03ed 0000 0000 | | .XXX[0x3] 03ef 0000 | | 03f0 3ff0 0000 |? | .DBL 1.0 03f2 0000 0000 | | 03f4 0000 0000 | | .BLANK 0000[0x4] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 6004 |` | Indirect_Literal Discrete,0x400,{0x7fffffff, 0xffffffff} 03fc 00ca | | Action Exit_Nullary_Function 03fd 0000 0000 | | .XXX[0x3] 03ff 0000 | | 0400 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 0404 0000 0000 | | .BLANK 0000[0x4] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 6004 |` | Indirect_Literal Discrete,0x410,{0x80000000, 0x00000000} 040c 00ca | | Action Exit_Nullary_Function 040d 0000 0000 | | .XXX[0x3] 040f 0000 | | 0410 8000 0000 | | .LITERAL {0x80000000, 0x00000000} 0414 0000 0000 | | .BLANK 0000[0x4] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 5804 |X | Indirect_Literal Float,0x420,-1.7976931348623157e+308 041c 00ca | | Action Exit_Nullary_Function 041d 0000 0000 | | .XXX[0x3] 041f 0000 | | 0420 ffef ffff | | .DBL -1.7976931348623157e+308 0422 ffff ffff | | 0424 0000 0000 | | .BLANK 0000[0x4] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 5804 |X | Indirect_Literal Float,0x430,1.7976931348623157e+308 042c 00ca | | Action Exit_Nullary_Function 042d 0000 0000 | | .XXX[0x3] 042f 0000 | | 0430 7fef ffff | | .DBL 1.7976931348623157e+308 0432 ffff ffff | | 0434 0000 0000 | | .BLANK 0000[0x4] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b e20d | | Load 0x1,0xd 043c 012c | , | Execute Any,Size 043d 00d8 | | Load_Top At_Offset_0 043e 00e2 | | Load_Encached Integer_Cache 043f 0260 | ` | Execute Discrete,In_Type 0440 7001 |p | Jump_Nonzero 0x442 0441 0801 | | Execute_Immediate Raise,0x1 0442 00ca | | Action Exit_Nullary_Function 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b e20e | | Load 0x1,0xe 044c 012c | , | Execute Any,Size 044d 00d8 | | Load_Top At_Offset_0 044e 00e2 | | Load_Encached Integer_Cache 044f 0260 | ` | Execute Discrete,In_Type 0450 7001 |p | Jump_Nonzero 0x452 0451 0801 | | Execute_Immediate Raise,0x1 0452 00ca | | Action Exit_Nullary_Function 0453 0000 0000 | | .BLANK 0000[0x5] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 4835 |H5 | Short_Literal 0x35 045c 00ca | | Action Exit_Nullary_Function 045d 0000 0000 | | .XXX[0x3] 045f 0000 | | 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 00db | | Load_Top At_Offset_3 0464 00db | | Load_Top At_Offset_3 0465 823a | : | Call 0x1,0x3a 0466 4fff |O | Short_Literal -0x1 0467 027f | | Execute Discrete,Equal 0468 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0469 0000 0000 | | .BLANK 0000[0x7] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00db | | Load_Top At_Offset_3 0474 00db | | Load_Top At_Offset_3 0475 823a | : | Call 0x1,0x3a 0476 0e01 | | Execute_Immediate Not_Equal,0x1 0477 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b 00db | | Load_Top At_Offset_3 047c 00db | | Load_Top At_Offset_3 047d 823a | : | Call 0x1,0x3a 047e 0f01 | | Execute_Immediate Equal,0x1 047f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00db | | Load_Top At_Offset_3 0484 00db | | Load_Top At_Offset_3 0485 823a | : | Call 0x1,0x3a 0486 4fff |O | Short_Literal -0x1 0487 027e | ~ | Execute Discrete,Not_Equal 0488 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0489 0000 0000 | | .BLANK 0000[0x7] 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 0335 | 5 | Declare_Variable Array,Duplicate 0495 00cd | | Action Spare6_Action 0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0497 0000 | | .XXX[0x1] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 4801 |H | Short_Literal 0x1 049c 00db | | Load_Top At_Offset_3 049d 01d7 | | Execute Vector,Field_Read 049e 0275 | u | Execute Discrete,Unary_Minus 049f 4802 |H | Short_Literal 0x2 04a0 e5ff | | Load 0x2,-0x1 04a1 01dc | | Execute Vector,Last 04a2 e5ff | | Load 0x2,-0x1 04a3 01cf | | Execute Vector,Slice_Read 04a4 01ca | | Execute Vector,Prepend 04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a6 0000 0000 | | .XXX[0x2] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04b9 | | .CONST 0x04b9 ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0002 | | .CONST 0x0002 ; Number of locals 04ab INIT_04a8: 04ab 4801 |H | Short_Literal 0x1 04ac 00db | | Load_Top At_Offset_3 04ad 01db | | Execute Vector,Length 04ae 00d8 | | Load_Top At_Offset_0 04af 00e2 | | Load_Encached Integer_Cache 04b0 0260 | ` | Execute Discrete,In_Type 04b1 7001 |p | Jump_Nonzero 0x4b3 04b2 0801 | | Execute_Immediate Raise,0x1 04b3 e220 | | Load 0x1,0x20 04b4 035b | [ | Declare_Type Array,Constrained 04b5 0337 | 7 | Declare_Variable Array 04b6 00db | | Load_Top At_Offset_3 04b7 00d9 | | Load_Top At_Offset_1 04b8 01d4 | | Execute Vector,Structure_Write 04b9 BODY_04a8: 04b9 4801 |H | Short_Literal 0x1 04ba 00d9 | | Load_Top At_Offset_1 04bb 01d7 | | Execute Vector,Field_Read 04bc 0274 | t | Execute Discrete,Absolute_Value 04bd 4801 |H | Short_Literal 0x1 04be 00da | | Load_Top At_Offset_2 04bf 01d6 | | Execute Vector,Field_Write 04c0 00d8 | | Load_Top At_Offset_0 04c1 e220 | | Load 0x1,0x20 04c2 01c6 | | Execute Vector,Convert_To_Formal 04c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c4 0000 0000 | | .BLANK 0000[0x4] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04d4 | | .CONST 0x04d4 ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0009 | | .CONST 0x0009 ; Number of locals 04cb INIT_04c8: 04cb 00e2 | | Load_Encached Integer_Cache 04cc 00e5 | | Load_Encached Long_Integer_Cache 04cd 03e9 | | Declare_Variable Discrete,Duplicate 04ce 00e2 | | Load_Encached Integer_Cache 04cf 03e9 | | Declare_Variable Discrete,Duplicate 04d0 00e1 | | Load_Encached Boolean_Cache 04d1 03e9 | | Declare_Variable Discrete,Duplicate 04d2 029f 0ea3 | | Declare_Subprogram INIT_0ea0,For_Call 04d4 BODY_04c8: 04d4 e5ff | | Load 0x2,-0x1 04d5 01db | | Execute Vector,Length 04d6 c405 | | Store 0x2,0x5 04d7 e5fe | | Load 0x2,-0x2 04d8 01db | | Execute Vector,Length 04d9 c406 | | Store 0x2,0x6 04da e405 | | Load 0x2,0x5 04db 0f01 | | Execute_Immediate Equal,0x1 04dc 680c |h | Jump_Zero 0x4e9 04dd 00db | | Load_Top At_Offset_3 04de 0f01 | | Execute_Immediate Equal,0x1 04df 6809 |h | Jump_Zero 0x4e9 04e0 4801 |H | Short_Literal 0x1 04e1 e5ff | | Load 0x2,-0x1 04e2 01d7 | | Execute Vector,Field_Read 04e3 4801 |H | Short_Literal 0x1 04e4 e5fe | | Load 0x2,-0x2 04e5 01d7 | | Execute Vector,Field_Read 04e6 0273 | s | Execute Discrete,Plus 04e7 82a0 | | Call 0x1,0xa0 04e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e9 e405 | | Load 0x2,0x5 04ea 0f01 | | Execute_Immediate Equal,0x1 04eb 6808 |h | Jump_Zero 0x4f4 04ec 4801 |H | Short_Literal 0x1 04ed e5ff | | Load 0x2,-0x1 04ee 01d7 | | Execute Vector,Field_Read 04ef 7004 |p | Jump_Nonzero 0x4f4 04f0 e5fe | | Load 0x2,-0x2 04f1 0335 | 5 | Declare_Variable Array,Duplicate 04f2 00cd | | Action Spare6_Action 04f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04f4 00db | | Load_Top At_Offset_3 04f5 0f01 | | Execute_Immediate Equal,0x1 04f6 6808 |h | Jump_Zero 0x4ff 04f7 4801 |H | Short_Literal 0x1 04f8 e5fe | | Load 0x2,-0x2 04f9 01d7 | | Execute Vector,Field_Read 04fa 7004 |p | Jump_Nonzero 0x4ff 04fb e5ff | | Load 0x2,-0x1 04fc 0335 | 5 | Declare_Variable Array,Duplicate 04fd 00cd | | Action Spare6_Action 04fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ff e405 | | Load 0x2,0x5 0500 e406 | | Load 0x2,0x6 0501 027c | | | Execute Discrete,Less 0502 6804 |h | Jump_Zero 0x507 0503 00db | | Load_Top At_Offset_3 0504 0a01 | | Execute_Immediate Plus,0x1 0505 c402 | | Store 0x2,0x2 0506 7803 |x | Jump 0x50a 0507 e405 | | Load 0x2,0x5 0508 0a01 | | Execute_Immediate Plus,0x1 0509 c402 | | Store 0x2,0x2 050a 8409 | | Call 0x2,0x9 050b 0831 | 1 | Execute_Immediate Raise,0x31 050c 0000 0000 | | .BLANK 0000[0x4] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 00db | | Load_Top At_Offset_3 0514 8226 | & | Call 0x1,0x26 0515 00db | | Load_Top At_Offset_3 0516 8228 | ( | Call 0x1,0x28 0517 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 052a | * | .CONST 0x052a ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0003 | | .CONST 0x0003 ; Number of locals 051b INIT_0518: 051b 4801 |H | Short_Literal 0x1 051c 00db | | Load_Top At_Offset_3 051d 01db | | Execute Vector,Length 051e e5fe | | Load 0x2,-0x2 051f 01db | | Execute Vector,Length 0520 0273 | s | Execute Discrete,Plus 0521 00d8 | | Load_Top At_Offset_0 0522 00e2 | | Load_Encached Integer_Cache 0523 0260 | ` | Execute Discrete,In_Type 0524 7001 |p | Jump_Nonzero 0x526 0525 0801 | | Execute_Immediate Raise,0x1 0526 e220 | | Load 0x1,0x20 0527 035b | [ | Declare_Type Array,Constrained 0528 0337 | 7 | Declare_Variable Array 0529 00e2 | | Load_Encached Integer_Cache 052a BODY_0518: 052a 00d9 | | Load_Top At_Offset_1 052b e5fe | | Load 0x2,-0x2 052c e5ff | | Load 0x2,-0x1 052d 82ae | | Call 0x1,0xae 052e 00d1 | | Pop_Control Pop_Count_1 052f 00e2 | | Load_Encached Integer_Cache 0530 00da | | Load_Top At_Offset_2 0531 4800 |H | Short_Literal 0x0 0532 82a3 | | Call 0x1,0xa3 0533 00d1 | | Pop_Control Pop_Count_1 0534 0059 | Y | Store_Top Discrete,At_Offset_1 0535 4801 |H | Short_Literal 0x1 0536 00d9 | | Load_Top At_Offset_1 0537 00db | | Load_Top At_Offset_3 0538 01cf | | Execute Vector,Slice_Read 0539 e220 | | Load 0x1,0x20 053a 01c6 | | Execute Vector,Convert_To_Formal 053b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 053c 0000 0000 | | .BLANK 0000[0x4] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 4800 |H | Short_Literal 0x0 0544 e5fe | | Load 0x2,-0x2 0545 e5ff | | Load 0x2,-0x1 0546 82a8 | | Call 0x1,0xa8 0547 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0549 0000 0000 | | .BLANK 0000[0x7] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0556 | V | .CONST 0x0556 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0002 | | .CONST 0x0002 ; Number of locals 0553 INIT_0550: 0553 00db | | Load_Top At_Offset_3 0554 00db | | Load_Top At_Offset_3 0555 822d | - | Call 0x1,0x2d 0556 BODY_0550: 0556 4801 |H | Short_Literal 0x1 0557 e5ff | | Load 0x2,-0x1 0558 01d7 | | Execute Vector,Field_Read 0559 0d00 | | Execute_Immediate Less,0x0 055a 4801 |H | Short_Literal 0x1 055b e5fe | | Load 0x2,-0x2 055c 01d7 | | Execute Vector,Field_Read 055d 0d00 | | Execute_Immediate Less,0x0 055e 027f | | Execute Discrete,Equal 055f 7004 |p | Jump_Nonzero 0x564 0560 4801 |H | Short_Literal 0x1 0561 00d9 | | Load_Top At_Offset_1 0562 01d7 | | Execute Vector,Field_Read 0563 7002 |p | Jump_Nonzero 0x566 0564 00d8 | | Load_Top At_Offset_0 0565 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0566 00d8 | | Load_Top At_Offset_0 0567 e5fe | | Load 0x2,-0x2 0568 8228 | ( | Call 0x1,0x28 0569 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 056a 0000 0000 | | .BLANK 0000[0x6] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 00da | | Load_Top At_Offset_2 0574 01db | | Execute Vector,Length 0575 0f01 | | Execute_Immediate Equal,0x1 0576 680d |h | Jump_Zero 0x584 0577 00db | | Load_Top At_Offset_3 0578 01db | | Execute Vector,Length 0579 0f01 | | Execute_Immediate Equal,0x1 057a 6809 |h | Jump_Zero 0x584 057b 4801 |H | Short_Literal 0x1 057c 00db | | Load_Top At_Offset_3 057d 01d7 | | Execute Vector,Field_Read 057e 4801 |H | Short_Literal 0x1 057f e5fe | | Load 0x2,-0x2 0580 01d7 | | Execute Vector,Field_Read 0581 026f | o | Execute Discrete,Remainder 0582 82a0 | | Call 0x1,0xa0 0583 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0584 4801 |H | Short_Literal 0x1 0585 e5fe | | Load 0x2,-0x2 0586 e5ff | | Load 0x2,-0x1 0587 82a8 | | Call 0x1,0xa8 0588 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0589 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 058a 0000 0000 | | .BLANK 0000[0x6] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 05a3 | | .CONST 0x05a3 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0003 | | .CONST 0x0003 ; Number of locals 0593 INIT_0590: 0593 4801 |H | Short_Literal 0x1 0594 00db | | Load_Top At_Offset_3 0595 01db | | Execute Vector,Length 0596 e5fe | | Load 0x2,-0x2 0597 0274 | t | Execute Discrete,Absolute_Value 0598 82af | | Call 0x1,0xaf 0599 0271 | q | Execute Discrete,Times 059a 00d8 | | Load_Top At_Offset_0 059b 00e2 | | Load_Encached Integer_Cache 059c 0260 | ` | Execute Discrete,In_Type 059d 7001 |p | Jump_Nonzero 0x59f 059e 0801 | | Execute_Immediate Raise,0x1 059f e220 | | Load 0x1,0x20 05a0 035b | [ | Declare_Type Array,Constrained 05a1 0337 | 7 | Declare_Variable Array 05a2 00e2 | | Load_Encached Integer_Cache 05a3 BODY_0590: 05a3 00d9 | | Load_Top At_Offset_1 05a4 e5fe | | Load 0x2,-0x2 05a5 e5ff | | Load 0x2,-0x1 05a6 82b1 | | Call 0x1,0xb1 05a7 00d1 | | Pop_Control Pop_Count_1 05a8 00e2 | | Load_Encached Integer_Cache 05a9 00da | | Load_Top At_Offset_2 05aa 4800 |H | Short_Literal 0x0 05ab 82a3 | | Call 0x1,0xa3 05ac 00d1 | | Pop_Control Pop_Count_1 05ad 0059 | Y | Store_Top Discrete,At_Offset_1 05ae 4801 |H | Short_Literal 0x1 05af 00d9 | | Load_Top At_Offset_1 05b0 00db | | Load_Top At_Offset_3 05b1 01cf | | Execute Vector,Slice_Read 05b2 e220 | | Load 0x1,0x20 05b3 01c6 | | Execute Vector,Convert_To_Formal 05b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05b5 0000 0000 | | .XXX[0x3] 05b7 0000 | | 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 00db | | Load_Top At_Offset_3 05bc 00db | | Load_Top At_Offset_3 05bd 8224 | $ | Call 0x1,0x24 05be 6804 |h | Jump_Zero 0x5c3 05bf e5fd | | Load 0x2,-0x3 05c0 00db | | Load_Top At_Offset_3 05c1 8222 | " | Call 0x1,0x22 05c2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 05c3 4800 |H | Short_Literal 0x0 05c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 05c5 0000 0000 | | .XXX[0x3] 05c7 0000 | | 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 00db | | Load_Top At_Offset_3 05cc 00db | | Load_Top At_Offset_3 05cd 829e | | Call 0x1,0x9e 05ce 822a | * | Call 0x1,0x2a 05cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 829e | | Call 0x1,0x9e 05d5 00db | | Load_Top At_Offset_3 05d6 822a | * | Call 0x1,0x2a 05d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00db | | Load_Top At_Offset_3 05dc 829e | | Call 0x1,0x9e 05dd 00db | | Load_Top At_Offset_3 05de 822b | + | Call 0x1,0x2b 05df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 4802 |H | Short_Literal 0x2 05e4 e5fe | | Load 0x2,-0x2 05e5 e5ff | | Load 0x2,-0x1 05e6 82a8 | | Call 0x1,0xa8 05e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05fe | | .CONST 0x05fe ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0002 | | .CONST 0x0002 ; Number of locals 05eb INIT_05e8: 05eb 4801 |H | Short_Literal 0x1 05ec e5fe | | Load 0x2,-0x2 05ed 01db | | Execute Vector,Length 05ee 00d8 | | Load_Top At_Offset_0 05ef 00e2 | | Load_Encached Integer_Cache 05f0 0260 | ` | Execute Discrete,In_Type 05f1 7001 |p | Jump_Nonzero 0x5f3 05f2 0801 | | Execute_Immediate Raise,0x1 05f3 e5ff | | Load 0x2,-0x1 05f4 01db | | Execute Vector,Length 05f5 00d8 | | Load_Top At_Offset_0 05f6 00e2 | | Load_Encached Integer_Cache 05f7 0260 | ` | Execute Discrete,In_Type 05f8 7001 |p | Jump_Nonzero 0x5fa 05f9 0801 | | Execute_Immediate Raise,0x1 05fa 82b2 | | Call 0x1,0xb2 05fb e220 | | Load 0x1,0x20 05fc 035b | [ | Declare_Type Array,Constrained 05fd 0337 | 7 | Declare_Variable Array 05fe BODY_05e8: 05fe 00d8 | | Load_Top At_Offset_0 05ff e5fe | | Load 0x2,-0x2 0600 e5ff | | Load 0x2,-0x1 0601 82b3 | | Call 0x1,0xb3 0602 00d1 | | Pop_Control Pop_Count_1 0603 4800 |H | Short_Literal 0x0 0604 00d9 | | Load_Top At_Offset_1 0605 82a4 | | Call 0x1,0xa4 0606 e220 | | Load 0x1,0x20 0607 01c6 | | Execute Vector,Convert_To_Formal 0608 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0609 0000 0000 | | .BLANK 0000[0x7] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0622 | " | .CONST 0x0622 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0004 | | .CONST 0x0004 ; Number of locals 0613 INIT_0610: 0613 481f |H | Short_Literal 0x1f 0614 00db | | Load_Top At_Offset_3 0615 01db | | Execute Vector,Length 0616 0271 | q | Execute Discrete,Times 0617 00e5 | | Load_Encached Long_Integer_Cache 0618 03f1 | | Declare_Variable Discrete,With_Value 0619 4801 |H | Short_Literal 0x1 061a e5ff | | Load 0x2,-0x1 061b 01d7 | | Execute Vector,Field_Read 061c 0274 | t | Execute Discrete,Absolute_Value 061d 00e5 | | Load_Encached Long_Integer_Cache 061e 03f1 | | Declare_Variable Discrete,With_Value 061f 6034 |`4 | Indirect_Literal Discrete,0x654,{0x00000000, 0x80000000} 0620 00e5 | | Load_Encached Long_Integer_Cache 0621 03f1 | | Declare_Variable Discrete,With_Value 0622 BODY_0610: 0622 00d9 | | Load_Top At_Offset_1 0623 7001 |p | Jump_Nonzero 0x625 0624 08e0 | | Execute_Immediate Raise,0xe0 0625 00cf | | Action Mark_Auxiliary 0626 7807 |x | Jump 0x62e 0627 00d9 | | Load_Top At_Offset_1 0628 09ff | | Execute_Immediate Binary_Scale,-0x1 0629 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 062a 00db | | Load_Top At_Offset_3 062b 0aff | | Execute_Immediate Plus,-0x1 062c a402 | | Store_Unchecked 0x2,0x2 062d 00c9 | | Action Pop_Auxiliary_Loop 062e 00d9 | | Load_Top At_Offset_1 062f 00db | | Load_Top At_Offset_3 0630 027d | } | Execute Discrete,Greater 0631 77f5 |w | Jump_Nonzero 0x627 0632 00ce | | Action Pop_Auxiliary 0633 00d8 | | Load_Top At_Offset_0 0634 00da | | Load_Top At_Offset_2 0635 027c | | | Execute Discrete,Less 0636 6803 |h | Jump_Zero 0x63a 0637 00da | | Load_Top At_Offset_2 0638 0a01 | | Execute_Immediate Plus,0x1 0639 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 063a 00cf | | Action Mark_Auxiliary 063b e5ff | | Load 0x2,-0x1 063c 01dc | | Execute Vector,Last 063d e5ff | | Load 0x2,-0x1 063e 01dd | | Execute Vector,First 063f 0a01 | | Execute_Immediate Plus,0x1 0640 00d8 | | Load_Top At_Offset_0 0641 00e2 | | Load_Encached Integer_Cache 0642 0260 | ` | Execute Discrete,In_Type 0643 7001 |p | Jump_Nonzero 0x645 0644 0801 | | Execute_Immediate Raise,0x1 0645 0263 | c | Execute Discrete,Above_Bound 0646 7009 |p | Jump_Nonzero 0x650 0647 00d8 | | Load_Top At_Offset_0 0648 e5ff | | Load 0x2,-0x1 0649 01d7 | | Execute Vector,Field_Read 064a 6803 |h | Jump_Zero 0x64e 064b e402 | | Load 0x2,0x2 064c 0a01 | | Execute_Immediate Plus,0x1 064d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064e 00c8 | | Action Pop_Auxiliary_Range 064f 3ff7 |? | Loop_Increasing 0x647 0650 00ce | | Action Pop_Auxiliary 0651 00da | | Load_Top At_Offset_2 0652 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0653 0000 | | .XXX[0x1] 0654 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 0668 | h | .CONST 0x0668 ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0004 | | .CONST 0x0004 ; Number of locals 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 8227 | ' | Call 0x1,0x27 065d 00d8 | | Load_Top At_Offset_0 065e 8236 | 6 | Call 0x1,0x36 065f 0237 | 7 | Execute Float,Convert_From_Discrete 0660 5823 |X# | Indirect_Literal Float,0x684,0.30102999566 0661 023b | ; | Execute Float,Times 0662 0235 | 5 | Execute Float,Round_To_Discrete 0663 00e5 | | Load_Encached Long_Integer_Cache 0664 025e | ^ | Execute Discrete,Convert 0665 00e5 | | Load_Encached Long_Integer_Cache 0666 03f1 | | Declare_Variable Discrete,With_Value 0667 e238 | 8 | Load 0x1,0x38 0668 BODY_0658: 0668 00cf | | Action Mark_Auxiliary 0669 00db | | Load_Top At_Offset_3 066a 00db | | Load_Top At_Offset_3 066b 00d8 | | Load_Top At_Offset_0 066c 00e2 | | Load_Encached Integer_Cache 066d 0260 | ` | Execute Discrete,In_Type 066e 7001 |p | Jump_Nonzero 0x670 066f 0801 | | Execute_Immediate Raise,0x1 0670 e298 | | Load 0x1,0x98 0671 822e | . | Call 0x1,0x2e 0672 823a | : | Call 0x1,0x3a 0673 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0674 00d9 | | Load_Top At_Offset_1 0675 0d01 | | Execute_Immediate Less,0x1 0676 7005 |p | Jump_Nonzero 0x67c 0677 00da | | Load_Top At_Offset_2 0678 0aff | | Execute_Immediate Plus,-0x1 0679 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 067a 00c9 | | Action Pop_Auxiliary_Loop 067b 7fed | | Jump 0x669 067c 00ce | | Action Pop_Auxiliary 067d 00d9 | | Load_Top At_Offset_1 067e 00d9 | | Load_Top At_Offset_1 067f 0273 | s | Execute Discrete,Plus 0680 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0681 0000 0000 | | .XXX[0x3] 0683 0000 | | 0684 3fd3 4413 |? D | .DBL 0.30102999566 0686 509e 61d8 |P a | 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068b | | .CONST 0x068b ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0001 | | .CONST 0x0001 ; Number of locals 068b BODY_0688: 068b INIT_0688: 068b 4801 |H | Short_Literal 0x1 068c 00db | | Load_Top At_Offset_3 068d 01d7 | | Execute Vector,Field_Read 068e 82b4 | | Call 0x1,0xb4 068f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 0693 | | .CONST 0x0693 ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0001 | | .CONST 0x0001 ; Number of locals 0693 BODY_0690: 0693 INIT_0690: 0693 00da | | Load_Top At_Offset_2 0694 01db | | Execute Vector,Length 0695 e5fe | | Load 0x2,-0x2 0696 01db | | Execute Vector,Length 0697 027f | | Execute Discrete,Equal 0698 6831 |h1 | Jump_Zero 0x6ca 0699 00cf | | Action Mark_Auxiliary 069a 00db | | Load_Top At_Offset_3 069b 01d9 | | Execute Vector,Reverse_Bounds 069c 0263 | c | Execute Discrete,Above_Bound 069d 7029 |p) | Jump_Nonzero 0x6c7 069e 00d8 | | Load_Top At_Offset_0 069f e5ff | | Load 0x2,-0x1 06a0 01d7 | | Execute Vector,Field_Read 06a1 00d9 | | Load_Top At_Offset_1 06a2 e5fe | | Load 0x2,-0x2 06a3 01d7 | | Execute Vector,Field_Read 06a4 027e | ~ | Execute Discrete,Not_Equal 06a5 681f |h | Jump_Zero 0x6c5 06a6 00d8 | | Load_Top At_Offset_0 06a7 0f01 | | Execute_Immediate Equal,0x1 06a8 6809 |h | Jump_Zero 0x6b2 06a9 4801 |H | Short_Literal 0x1 06aa e5ff | | Load 0x2,-0x1 06ab 01d7 | | Execute Vector,Field_Read 06ac 4801 |H | Short_Literal 0x1 06ad e5fe | | Load 0x2,-0x2 06ae 01d7 | | Execute Vector,Field_Read 06af 0272 | r | Execute Discrete,Minus 06b0 82b4 | | Call 0x1,0xb4 06b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06b2 4801 |H | Short_Literal 0x1 06b3 e5ff | | Load 0x2,-0x1 06b4 01d7 | | Execute Vector,Field_Read 06b5 82b4 | | Call 0x1,0xb4 06b6 00d9 | | Load_Top At_Offset_1 06b7 e5ff | | Load 0x2,-0x1 06b8 01d7 | | Execute Vector,Field_Read 06b9 0271 | q | Execute Discrete,Times 06ba 4801 |H | Short_Literal 0x1 06bb e5fe | | Load 0x2,-0x2 06bc 01d7 | | Execute Vector,Field_Read 06bd 82b4 | | Call 0x1,0xb4 06be 00da | | Load_Top At_Offset_2 06bf e5fe | | Load 0x2,-0x2 06c0 01d7 | | Execute Vector,Field_Read 06c1 0271 | q | Execute Discrete,Times 06c2 0272 | r | Execute Discrete,Minus 06c3 82b4 | | Call 0x1,0xb4 06c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06c5 00c8 | | Action Pop_Auxiliary_Range 06c6 3fd7 |? | Loop_Increasing 0x69e 06c7 00ce | | Action Pop_Auxiliary 06c8 4800 |H | Short_Literal 0x0 06c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06ca 4801 |H | Short_Literal 0x1 06cb 00db | | Load_Top At_Offset_3 06cc 01d7 | | Execute Vector,Field_Read 06cd 82b4 | | Call 0x1,0xb4 06ce 00db | | Load_Top At_Offset_3 06cf 01db | | Execute Vector,Length 06d0 0271 | q | Execute Discrete,Times 06d1 4801 |H | Short_Literal 0x1 06d2 e5fe | | Load 0x2,-0x2 06d3 01d7 | | Execute Vector,Field_Read 06d4 82b4 | | Call 0x1,0xb4 06d5 e5fe | | Load 0x2,-0x2 06d6 01db | | Execute Vector,Length 06d7 0271 | q | Execute Discrete,Times 06d8 0272 | r | Execute Discrete,Minus 06d9 82b4 | | Call 0x1,0xb4 06da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06db 0000 0000 | | .BLANK 0000[0x5] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e3 | | .CONST 0x06e3 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0001 | | .CONST 0x0001 ; Number of locals 06e3 BODY_06e0: 06e3 INIT_06e0: 06e3 e295 | | Load 0x1,0x95 06e4 00ca | | Action Exit_Nullary_Function 06e5 0000 0000 | | .XXX[0x3] 06e7 0000 | | 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06eb | | .CONST 0x06eb ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0001 | | .CONST 0x0001 ; Number of locals 06eb BODY_06e8: 06eb INIT_06e8: 06eb e296 | | Load 0x1,0x96 06ec 00ca | | Action Exit_Nullary_Function 06ed 0000 0000 | | .XXX[0x3] 06ef 0000 | | 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 e297 | | Load 0x1,0x97 06f4 00ca | | Action Exit_Nullary_Function 06f5 0000 0000 | | .XXX[0x3] 06f7 0000 | | 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb e298 | | Load 0x1,0x98 06fc 00ca | | Action Exit_Nullary_Function 06fd 0000 0000 | | .XXX[0x3] 06ff 0000 | | 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 00db | | Load_Top At_Offset_3 0704 00db | | Load_Top At_Offset_3 0705 8254 | T | Call 0x1,0x54 0706 4fff |O | Short_Literal -0x1 0707 027f | | Execute Discrete,Equal 0708 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0709 0000 0000 | | .BLANK 0000[0x7] 0710 ; -------------------------------------------------------------------------------------- 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 INIT_0710: 0713 00db | | Load_Top At_Offset_3 0714 00db | | Load_Top At_Offset_3 0715 8254 | T | Call 0x1,0x54 0716 0e01 | | Execute_Immediate Not_Equal,0x1 0717 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071b | | .CONST 0x071b ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0001 | | .CONST 0x0001 ; Number of locals 071b BODY_0718: 071b INIT_0718: 071b 00db | | Load_Top At_Offset_3 071c 00db | | Load_Top At_Offset_3 071d 8254 | T | Call 0x1,0x54 071e 0f01 | | Execute_Immediate Equal,0x1 071f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0723 | # | .CONST 0x0723 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0001 | | .CONST 0x0001 ; Number of locals 0723 BODY_0720: 0723 INIT_0720: 0723 00db | | Load_Top At_Offset_3 0724 00db | | Load_Top At_Offset_3 0725 8254 | T | Call 0x1,0x54 0726 4fff |O | Short_Literal -0x1 0727 027e | ~ | Execute Discrete,Not_Equal 0728 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0729 0000 0000 | | .BLANK 0000[0x7] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 00da | | Load_Top At_Offset_2 0734 02fd | | Declare_Variable Variant_Record,Duplicate 0735 00cd | | Action Spare6_Action 0736 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0737 0000 | | .XXX[0x1] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073b | ; | .CONST 0x073b ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0001 | | .CONST 0x0001 ; Number of locals 073b BODY_0738: 073b INIT_0738: 073b 00da | | Load_Top At_Offset_2 073c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 073d 00db | | Load_Top At_Offset_3 073e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 073f 8226 | & | Call 0x1,0x26 0740 82b5 | | Call 0x1,0xb5 0741 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0742 0000 0000 | | .BLANK 0000[0x6] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b 00da | | Load_Top At_Offset_2 074c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 074d 00db | | Load_Top At_Offset_3 074e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 074f 8227 | ' | Call 0x1,0x27 0750 82b5 | | Call 0x1,0xb5 0751 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0752 0000 0000 | | .BLANK 0000[0x6] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b 00db | | Load_Top At_Offset_3 075c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 075d 00db | | Load_Top At_Offset_3 075e 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 075f 822a | * | Call 0x1,0x2a 0760 00db | | Load_Top At_Offset_3 0761 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0762 e5fe | | Load 0x2,-0x2 0763 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0764 822a | * | Call 0x1,0x2a 0765 e5fe | | Load 0x2,-0x2 0766 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0767 e5ff | | Load 0x2,-0x1 0768 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0769 822a | * | Call 0x1,0x2a 076a 8228 | ( | Call 0x1,0x28 076b 829f | | Call 0x1,0x9f 076c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 076d 0000 0000 | | .XXX[0x3] 076f 0000 | | 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0773 | s | .CONST 0x0773 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0001 | | .CONST 0x0001 ; Number of locals 0773 BODY_0770: 0773 INIT_0770: 0773 00db | | Load_Top At_Offset_3 0774 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0775 00db | | Load_Top At_Offset_3 0776 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0777 822a | * | Call 0x1,0x2a 0778 00db | | Load_Top At_Offset_3 0779 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 077a e5fe | | Load 0x2,-0x2 077b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 077c 822a | * | Call 0x1,0x2a 077d e5fe | | Load 0x2,-0x2 077e 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 077f e5ff | | Load 0x2,-0x1 0780 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0781 822a | * | Call 0x1,0x2a 0782 8229 | ) | Call 0x1,0x29 0783 829f | | Call 0x1,0x9f 0784 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0785 0000 0000 | | .XXX[0x3] 0787 0000 | | 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 00db | | Load_Top At_Offset_3 078c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 078d 00db | | Load_Top At_Offset_3 078e 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 078f 822a | * | Call 0x1,0x2a 0790 e5fe | | Load 0x2,-0x2 0791 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0792 e5ff | | Load 0x2,-0x1 0793 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0794 822a | * | Call 0x1,0x2a 0795 829f | | Call 0x1,0x9f 0796 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0797 0000 | | .XXX[0x1] 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b 00db | | Load_Top At_Offset_3 079c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 079d 00db | | Load_Top At_Offset_3 079e 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 079f 822a | * | Call 0x1,0x2a 07a0 e5fe | | Load 0x2,-0x2 07a1 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07a2 e5ff | | Load 0x2,-0x1 07a3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07a4 822a | * | Call 0x1,0x2a 07a5 829f | | Call 0x1,0x9f 07a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07a7 0000 | | .XXX[0x1] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab 00db | | Load_Top At_Offset_3 07ac 7002 |p | Jump_Nonzero 0x7af 07ad e29b | | Load 0x1,0x9b 07ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07af 00db | | Load_Top At_Offset_3 07b0 0c01 | | Execute_Immediate Greater_Equal,0x1 07b1 6811 |h | Jump_Zero 0x7c3 07b2 00db | | Load_Top At_Offset_3 07b3 0f01 | | Execute_Immediate Equal,0x1 07b4 6804 |h | Jump_Zero 0x7b9 07b5 00da | | Load_Top At_Offset_2 07b6 02fd | | Declare_Variable Variant_Record,Duplicate 07b7 00cd | | Action Spare6_Action 07b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07b9 00db | | Load_Top At_Offset_3 07ba 00db | | Load_Top At_Offset_3 07bb 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07bc 822e | . | Call 0x1,0x2e 07bd e5fe | | Load 0x2,-0x2 07be e5ff | | Load 0x2,-0x1 07bf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07c0 822e | . | Call 0x1,0x2e 07c1 829f | | Call 0x1,0x9f 07c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07c3 00db | | Load_Top At_Offset_3 07c4 4fff |O | Short_Literal -0x1 07c5 027f | | Execute Discrete,Equal 07c6 6814 |h | Jump_Zero 0x7db 07c7 4801 |H | Short_Literal 0x1 07c8 00db | | Load_Top At_Offset_3 07c9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07ca 01d7 | | Execute Vector,Field_Read 07cb 0c01 | | Execute_Immediate Greater_Equal,0x1 07cc 6806 |h | Jump_Zero 0x7d3 07cd 00da | | Load_Top At_Offset_2 07ce 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07cf 00db | | Load_Top At_Offset_3 07d0 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07d1 82b5 | | Call 0x1,0xb5 07d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07d3 00da | | Load_Top At_Offset_2 07d4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07d5 8226 | & | Call 0x1,0x26 07d6 00db | | Load_Top At_Offset_3 07d7 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07d8 8226 | & | Call 0x1,0x26 07d9 82b5 | | Call 0x1,0xb5 07da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07db 00db | | Load_Top At_Offset_3 07dc 0275 | u | Execute Discrete,Unary_Minus 07dd 00db | | Load_Top At_Offset_3 07de 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07df 822e | . | Call 0x1,0x2e 07e0 e5fe | | Load 0x2,-0x2 07e1 0275 | u | Execute Discrete,Unary_Minus 07e2 e5ff | | Load 0x2,-0x1 07e3 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07e4 822e | . | Call 0x1,0x2e 07e5 829f | | Call 0x1,0x9f 07e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07e7 0000 | | .XXX[0x1] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07eb | | .CONST 0x07eb ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0001 | | .CONST 0x0001 ; Number of locals 07eb BODY_07e8: 07eb INIT_07e8: 07eb 00db | | Load_Top At_Offset_3 07ec 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07ed 00db | | Load_Top At_Offset_3 07ee e5fe | | Load 0x2,-0x2 07ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07f0 822a | * | Call 0x1,0x2a 07f1 829f | | Call 0x1,0x9f 07f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07f3 0000 0000 | | .BLANK 0000[0x5] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07fb | | .CONST 0x07fb ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0001 | | .CONST 0x0001 ; Number of locals 07fb BODY_07f8: 07fb INIT_07f8: 07fb 00da | | Load_Top At_Offset_2 07fc 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 07fd e5fe | | Load 0x2,-0x2 07fe e5ff | | Load 0x2,-0x1 07ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0800 822a | * | Call 0x1,0x2a 0801 829f | | Call 0x1,0x9f 0802 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0803 0000 0000 | | .BLANK 0000[0x5] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 080b | | .CONST 0x080b ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0001 | | .CONST 0x0001 ; Number of locals 080b BODY_0808: 080b INIT_0808: 080b 00db | | Load_Top At_Offset_3 080c 00db | | Load_Top At_Offset_3 080d 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 080e 822a | * | Call 0x1,0x2a 080f 00db | | Load_Top At_Offset_3 0810 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0811 829f | | Call 0x1,0x9f 0812 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0813 0000 0000 | | .BLANK 0000[0x5] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 081b | | .CONST 0x081b ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0001 | | .CONST 0x0001 ; Number of locals 081b BODY_0818: 081b INIT_0818: 081b 00db | | Load_Top At_Offset_3 081c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 081d e5fe | | Load 0x2,-0x2 081e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 081f e5ff | | Load 0x2,-0x1 0820 8230 | 0 | Call 0x1,0x30 0821 829f | | Call 0x1,0x9f 0822 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0823 0000 0000 | | .BLANK 0000[0x5] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b 00da | | Load_Top At_Offset_2 082c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 082d e5fe | | Load 0x2,-0x2 082e e5ff | | Load 0x2,-0x1 082f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0830 8231 | 1 | Call 0x1,0x31 0831 829f | | Call 0x1,0x9f 0832 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0833 0000 0000 | | .BLANK 0000[0x5] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 00da | | Load_Top At_Offset_2 083c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 083d e5fe | | Load 0x2,-0x2 083e 8230 | 0 | Call 0x1,0x30 083f 00db | | Load_Top At_Offset_3 0840 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0841 829f | | Call 0x1,0x9f 0842 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0843 0000 0000 | | .BLANK 0000[0x5] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084b | K | .CONST 0x084b ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0001 | | .CONST 0x0001 ; Number of locals 084b BODY_0848: 084b INIT_0848: 084b 00db | | Load_Top At_Offset_3 084c 00db | | Load_Top At_Offset_3 084d 8243 | C | Call 0x1,0x43 084e 6804 |h | Jump_Zero 0x853 084f e5fd | | Load 0x2,-0x3 0850 00db | | Load_Top At_Offset_3 0851 8241 | A | Call 0x1,0x41 0852 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0853 4800 |H | Short_Literal 0x0 0854 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0855 0000 0000 | | .XXX[0x3] 0857 0000 | | 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085b | [ | .CONST 0x085b ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0001 | | .CONST 0x0001 ; Number of locals 085b BODY_0858: 085b INIT_0858: 085b 00da | | Load_Top At_Offset_2 085c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 085d 8239 | 9 | Call 0x1,0x39 085e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085f 0000 | | .XXX[0x1] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 00da | | Load_Top At_Offset_2 0864 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0865 e5fe | | Load 0x2,-0x2 0866 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0867 822a | * | Call 0x1,0x2a 0868 e5fe | | Load 0x2,-0x2 0869 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 086a e5ff | | Load 0x2,-0x1 086b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 086c 822a | * | Call 0x1,0x2a 086d 823a | : | Call 0x1,0x3a 086e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 086f 0000 | | .XXX[0x1] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 00da | | Load_Top At_Offset_2 0874 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0875 0335 | 5 | Declare_Variable Array,Duplicate 0876 00cd | | Action Spare6_Action 0877 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 087b | { | .CONST 0x087b ; Address of begin 0879 0004 | | .CONST 0x0004 ; Address of exception handler 087a 0001 | | .CONST 0x0001 ; Number of locals 087b BODY_0878: 087b INIT_0878: 087b 00da | | Load_Top At_Offset_2 087c 8255 | U | Call 0x1,0x55 087d e267 | g | Load 0x1,0x67 087e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 087f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 00da | | Load_Top At_Offset_2 0884 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0885 0335 | 5 | Declare_Variable Array,Duplicate 0886 00cd | | Action Spare6_Action 0887 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b 00da | | Load_Top At_Offset_2 088c 8257 | W | Call 0x1,0x57 088d e267 | g | Load 0x1,0x67 088e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 088f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 0893 | | .CONST 0x0893 ; Address of begin 0891 0004 | | .CONST 0x0004 ; Address of exception handler 0892 0001 | | .CONST 0x0001 ; Number of locals 0893 BODY_0890: 0893 INIT_0890: 0893 e299 | | Load 0x1,0x99 0894 00ca | | Action Exit_Nullary_Function 0895 0000 0000 | | .XXX[0x3] 0897 0000 | | 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b e29a | | Load 0x1,0x9a 089c 00ca | | Action Exit_Nullary_Function 089d 0000 0000 | | .XXX[0x3] 089f 0000 | | 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 e29b | | Load 0x1,0x9b 08a4 00ca | | Action Exit_Nullary_Function 08a5 0000 0000 | | .XXX[0x3] 08a7 0000 | | 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ab | | .CONST 0x08ab ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0001 | | .CONST 0x0001 ; Number of locals 08ab BODY_08a8: 08ab INIT_08a8: 08ab e29c | | Load 0x1,0x9c 08ac 00ca | | Action Exit_Nullary_Function 08ad 0000 0000 | | .XXX[0x3] 08af 0000 | | 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b3 | | .CONST 0x08b3 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0001 | | .CONST 0x0001 ; Number of locals 08b3 BODY_08b0: 08b3 INIT_08b0: 08b3 e29d | | Load 0x1,0x9d 08b4 00ca | | Action Exit_Nullary_Function 08b5 0000 0000 | | .XXX[0x3] 08b7 0000 | | 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; SUBPROGRAM 08b8 ; -------------------------------------------------------------------------------------- 08b8 08bb | | .CONST 0x08bb ; Address of begin 08b9 0004 | | .CONST 0x0004 ; Address of exception handler 08ba 0001 | | .CONST 0x0001 ; Number of locals 08bb BODY_08b8: 08bb INIT_08b8: 08bb 4801 |H | Short_Literal 0x1 08bc 00db | | Load_Top At_Offset_3 08bd 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 08be 01d7 | | Execute Vector,Field_Read 08bf 0f01 | | Execute_Immediate Equal,0x1 08c0 6805 |h | Jump_Zero 0x8c6 08c1 00da | | Load_Top At_Offset_2 08c2 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 08c3 01db | | Execute Vector,Length 08c4 0f01 | | Execute_Immediate Equal,0x1 08c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c6 4800 |H | Short_Literal 0x0 08c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 4801 |H | Short_Literal 0x1 08cc 00db | | Load_Top At_Offset_3 08cd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08ce 01d7 | | Execute Vector,Field_Read 08cf 0274 | t | Execute Discrete,Absolute_Value 08d0 0f01 | | Execute_Immediate Equal,0x1 08d1 6805 |h | Jump_Zero 0x8d7 08d2 00da | | Load_Top At_Offset_2 08d3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08d4 01db | | Execute Vector,Length 08d5 0f01 | | Execute_Immediate Equal,0x1 08d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d7 4800 |H | Short_Literal 0x0 08d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d9 0000 0000 | | .BLANK 0000[0x7] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e3 | | .CONST 0x08e3 ; Address of begin 08e1 0004 | | .CONST 0x0004 ; Address of exception handler 08e2 0001 | | .CONST 0x0001 ; Number of locals 08e3 BODY_08e0: 08e3 INIT_08e0: 08e3 e296 | | Load 0x1,0x96 08e4 00db | | Load_Top At_Offset_3 08e5 8265 | e | Call 0x1,0x65 08e6 82b5 | | Call 0x1,0xb5 08e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08eb | | .CONST 0x08eb ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0001 | | .CONST 0x0001 ; Number of locals 08eb BODY_08e8: 08eb INIT_08e8: 08eb 00da | | Load_Top At_Offset_2 08ec 8262 | b | Call 0x1,0x62 08ed 6805 |h | Jump_Zero 0x8f3 08ee 00da | | Load_Top At_Offset_2 08ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08f0 0335 | 5 | Declare_Variable Array,Duplicate 08f1 00cd | | Action Spare6_Action 08f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08f3 00da | | Load_Top At_Offset_2 08f4 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 08f5 00db | | Load_Top At_Offset_3 08f6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08f7 8227 | ' | Call 0x1,0x27 08f8 8221 | ! | Call 0x1,0x21 08f9 6802 |h | Jump_Zero 0x8fc 08fa e295 | | Load 0x1,0x95 08fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08fc 00da | | Load_Top At_Offset_2 08fd 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 08fe 00db | | Load_Top At_Offset_3 08ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0900 822b | + | Call 0x1,0x2b 0901 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0902 0000 0000 | | .BLANK 0000[0x6] 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 090b | | .CONST 0x090b ; Address of begin 0909 0004 | | .CONST 0x0004 ; Address of exception handler 090a 0001 | | .CONST 0x0001 ; Number of locals 090b BODY_0908: 090b INIT_0908: 090b 00da | | Load_Top At_Offset_2 090c 8262 | b | Call 0x1,0x62 090d 6802 |h | Jump_Zero 0x910 090e e299 | | Load 0x1,0x99 090f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0910 00da | | Load_Top At_Offset_2 0911 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0912 00db | | Load_Top At_Offset_3 0913 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0914 e5ff | | Load 0x2,-0x1 0915 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0916 822d | - | Call 0x1,0x2d 0917 829f | | Call 0x1,0x9f 0918 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0919 0000 0000 | | .BLANK 0000[0x7] 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0923 | # | .CONST 0x0923 ; Address of begin 0921 0004 | | .CONST 0x0004 ; Address of exception handler 0922 0001 | | .CONST 0x0001 ; Number of locals 0923 BODY_0920: 0923 INIT_0920: 0923 00da | | Load_Top At_Offset_2 0924 00e0 | | Load_Encached Standard_Cache 0925 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0926 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0927 0000 | | .XXX[0x1] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 092b | + | .CONST 0x092b ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0001 | | .CONST 0x0001 ; Number of locals 092b BODY_0928: 092b INIT_0928: 092b 4607 |F | Jump_Case 0x8 092c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 092d 7806 |x | Jump 0x934 ; case 0x1 092e 7809 |x | Jump 0x938 ; case 0x2 092f 780d |x | Jump 0x93d ; case 0x3 0930 7810 |x | Jump 0x941 ; case 0x4 0931 7811 |x | Jump 0x943 ; case 0x5 0932 7812 |x | Jump 0x945 ; case 0x6 0933 7815 |x | Jump 0x949 ; case 0x7 0934 00da | | Load_Top At_Offset_2 0935 0091 145d | ]| Action Push_String_Extended_Indexed,0x145d ; "QUOTIENT" 0937 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0938 00db | | Load_Top At_Offset_3 0939 00db | | Load_Top At_Offset_3 093a 00e0 | | Load_Encached Standard_Cache 093b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 093c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 093d 00da | | Load_Top At_Offset_2 093e 00e0 | | Load_Encached Standard_Cache 093f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0940 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0941 00db | | Load_Top At_Offset_3 0942 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0943 00db | | Load_Top At_Offset_3 0944 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0945 e293 | | Load 0x1,0x93 0946 00dc | | Load_Top At_Offset_4 0947 0267 | g | Execute Discrete,Predecessor 0948 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0949 e293 | | Load 0x1,0x93 094a 00dc | | Load_Top At_Offset_4 094b 0268 | h | Execute Discrete,Successor 094c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 094d 0000 0000 | | .XXX[0x3] 094f 0000 | | 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0953 | S | .CONST 0x0953 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0001 | | .CONST 0x0001 ; Number of locals 0953 BODY_0950: 0953 INIT_0950: 0953 00da | | Load_Top At_Offset_2 0954 e267 | g | Load 0x1,0x67 0955 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0956 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0957 0000 | | .XXX[0x1] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 0962 | b | .CONST 0x0962 ; Address of begin 0959 0004 | | .CONST 0x0004 ; Address of exception handler 095a 0002 | | .CONST 0x0002 ; Number of locals 095b INIT_0958: 095b 00db | | Load_Top At_Offset_3 095c 01dc | | Execute Vector,Last 095d 00db | | Load_Top At_Offset_3 095e 01db | | Execute Vector,Length 095f 0272 | r | Execute Discrete,Minus 0960 00e2 | | Load_Encached Integer_Cache 0961 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0962 BODY_0958: 0962 e5fe | | Load 0x2,-0x2 0963 01db | | Execute Vector,Length 0964 0c01 | | Execute_Immediate Greater_Equal,0x1 0965 6820 |h | Jump_Zero 0x986 0966 00db | | Load_Top At_Offset_3 0967 00d9 | | Load_Top At_Offset_1 0968 0a01 | | Execute_Immediate Plus,0x1 0969 00d8 | | Load_Top At_Offset_0 096a 00e2 | | Load_Encached Integer_Cache 096b 0260 | ` | Execute Discrete,In_Type 096c 7001 |p | Jump_Nonzero 0x96e 096d 0801 | | Execute_Immediate Raise,0x1 096e e5fe | | Load 0x2,-0x2 096f 01dc | | Execute Vector,Last 0970 e5fe | | Load 0x2,-0x2 0971 01ce | | Execute Vector,Slice_Write 0972 e5fe | | Load 0x2,-0x2 0973 01dd | | Execute Vector,First 0974 00d9 | | Load_Top At_Offset_1 0975 e220 | | Load 0x1,0x20 0976 035b | [ | Declare_Type Array,Constrained 0977 0337 | 7 | Declare_Variable Array 0978 00d8 | | Load_Top At_Offset_0 0979 01d9 | | Execute Vector,Reverse_Bounds 097a 0263 | c | Execute Discrete,Above_Bound 097b 7005 |p | Jump_Nonzero 0x981 097c 4800 |H | Short_Literal 0x0 097d 00d9 | | Load_Top At_Offset_1 097e e403 | | Load 0x2,0x3 097f 01d6 | | Execute Vector,Field_Write 0980 3ffb |? | Loop_Increasing 0x97c 0981 e5fe | | Load 0x2,-0x2 0982 01dd | | Execute Vector,First 0983 00da | | Load_Top At_Offset_2 0984 e5fe | | Load 0x2,-0x2 0985 01ce | | Execute Vector,Slice_Write 0986 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0987 0000 | | .XXX[0x1] 0988 ; -------------------------------------------------------------------------------------- 0988 ; SUBPROGRAM 0988 ; -------------------------------------------------------------------------------------- 0988 098b | | .CONST 0x098b ; Address of begin 0989 0004 | | .CONST 0x0004 ; Address of exception handler 098a 0001 | | .CONST 0x0001 ; Number of locals 098b BODY_0988: 098b INIT_0988: 098b 00db | | Load_Top At_Offset_3 098c 01db | | Execute Vector,Length 098d 0c01 | | Execute_Immediate Greater_Equal,0x1 098e 6828 |h( | Jump_Zero 0x9b7 098f 00da | | Load_Top At_Offset_2 0990 e5fe | | Load 0x2,-0x2 0991 01dc | | Execute Vector,Last 0992 e5fe | | Load 0x2,-0x2 0993 01d6 | | Execute Vector,Field_Write 0994 00db | | Load_Top At_Offset_3 0995 e5fe | | Load 0x2,-0x2 0996 01dd | | Execute Vector,First 0997 e5fe | | Load 0x2,-0x2 0998 01dc | | Execute Vector,Last 0999 0aff | | Execute_Immediate Plus,-0x1 099a 00d8 | | Load_Top At_Offset_0 099b 00e2 | | Load_Encached Integer_Cache 099c 0260 | ` | Execute Discrete,In_Type 099d 7001 |p | Jump_Nonzero 0x99f 099e 0801 | | Execute_Immediate Raise,0x1 099f 00d9 | | Load_Top At_Offset_1 09a0 00d9 | | Load_Top At_Offset_1 09a1 e402 | | Load 0x2,0x2 09a2 035b | [ | Declare_Type Array,Constrained 09a3 00db | | Load_Top At_Offset_3 09a4 01cd | | Execute Vector,Slice_Reference 09a5 00d8 | | Load_Top At_Offset_0 09a6 0335 | 5 | Declare_Variable Array,Duplicate 09a7 00cd | | Action Spare6_Action 09a8 00d9 | | Load_Top At_Offset_1 09a9 01d9 | | Execute Vector,Reverse_Bounds 09aa 0263 | c | Execute Discrete,Above_Bound 09ab 7005 |p | Jump_Nonzero 0x9b1 09ac 4800 |H | Short_Literal 0x0 09ad 00d9 | | Load_Top At_Offset_1 09ae e406 | | Load 0x2,0x6 09af 01d6 | | Execute Vector,Field_Write 09b0 3ffb |? | Loop_Increasing 0x9ac 09b1 00cd | | Action Spare6_Action 09b2 00da | | Load_Top At_Offset_2 09b3 00da | | Load_Top At_Offset_2 09b4 e402 | | Load 0x2,0x2 09b5 01ce | | Execute Vector,Slice_Write 09b6 00d3 | | Pop_Control Pop_Count_3 09b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09bb | | .CONST 0x09bb ; Address of begin 09b9 0004 | | .CONST 0x0004 ; Address of exception handler 09ba 0001 | | .CONST 0x0001 ; Number of locals 09bb BODY_09b8: 09bb INIT_09b8: 09bb 4801 |H | Short_Literal 0x1 09bc e5fe | | Load 0x2,-0x2 09bd 01d7 | | Execute Vector,Field_Read 09be 702a |p* | Jump_Nonzero 0x9e9 09bf 4801 |H | Short_Literal 0x1 09c0 a5fd | | Store_Unchecked 0x2,-0x3 09c1 00cf | | Action Mark_Auxiliary 09c2 e5fe | | Load 0x2,-0x2 09c3 01dc | | Execute Vector,Last 09c4 4802 |H | Short_Literal 0x2 09c5 0263 | c | Execute Discrete,Above_Bound 09c6 7020 |p | Jump_Nonzero 0x9e7 09c7 00d8 | | Load_Top At_Offset_0 09c8 e5fe | | Load 0x2,-0x2 09c9 01d7 | | Execute Vector,Field_Read 09ca 681a |h | Jump_Zero 0x9e5 09cb 00d8 | | Load_Top At_Offset_0 09cc e5fe | | Load 0x2,-0x2 09cd 01dc | | Execute Vector,Last 09ce e5fe | | Load 0x2,-0x2 09cf 01cf | | Execute Vector,Slice_Read 09d0 4801 |H | Short_Literal 0x1 09d1 e5fe | | Load 0x2,-0x2 09d2 01dc | | Execute Vector,Last 09d3 00db | | Load_Top At_Offset_3 09d4 0272 | r | Execute Discrete,Minus 09d5 0a01 | | Execute_Immediate Plus,0x1 09d6 00d8 | | Load_Top At_Offset_0 09d7 00e2 | | Load_Encached Integer_Cache 09d8 0260 | ` | Execute Discrete,In_Type 09d9 7001 |p | Jump_Nonzero 0x9db 09da 0801 | | Execute_Immediate Raise,0x1 09db e5fe | | Load 0x2,-0x2 09dc 01ce | | Execute Vector,Slice_Write 09dd e5fe | | Load 0x2,-0x2 09de 01dc | | Execute Vector,Last 09df 00d9 | | Load_Top At_Offset_1 09e0 0272 | r | Execute Discrete,Minus 09e1 0a01 | | Execute_Immediate Plus,0x1 09e2 c5fd | | Store 0x2,-0x3 09e3 00d2 | | Pop_Control Pop_Count_2 09e4 7802 |x | Jump 0x9e7 09e5 00c8 | | Action Pop_Auxiliary_Range 09e6 3fe0 |? | Loop_Increasing 0x9c7 09e7 00ce | | Action Pop_Auxiliary 09e8 7803 |x | Jump 0x9ec 09e9 00db | | Load_Top At_Offset_3 09ea 01dc | | Execute Vector,Last 09eb a5fd | | Store_Unchecked 0x2,-0x3 09ec 00da | | Load_Top At_Offset_2 09ed 6807 |h | Jump_Zero 0x9f5 09ee 4801 |H | Short_Literal 0x1 09ef e5fe | | Load 0x2,-0x2 09f0 01d7 | | Execute Vector,Field_Read 09f1 0275 | u | Execute Discrete,Unary_Minus 09f2 4801 |H | Short_Literal 0x1 09f3 e5fe | | Load 0x2,-0x2 09f4 01d6 | | Execute Vector,Field_Write 09f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09f6 0000 0000 | | .XXX[0x2] 09f8 ; -------------------------------------------------------------------------------------- 09f8 ; SUBPROGRAM 09f8 ; -------------------------------------------------------------------------------------- 09f8 09fd | | .CONST 0x09fd ; Address of begin 09f9 0004 | | .CONST 0x0004 ; Address of exception handler 09fa 0002 | | .CONST 0x0002 ; Number of locals 09fb INIT_09f8: 09fb 029f 0f8b | | Declare_Subprogram INIT_0f88,For_Call 09fd BODY_09f8: 09fd 00cf | | Action Mark_Auxiliary 09fe e5ff | | Load 0x2,-0x1 09ff 01d9 | | Execute Vector,Reverse_Bounds 0a00 0263 | c | Execute Discrete,Above_Bound 0a01 700e |p | Jump_Nonzero 0xa10 0a02 00d8 | | Load_Top At_Offset_0 0a03 e5ff | | Load 0x2,-0x1 0a04 01d7 | | Execute Vector,Field_Read 0a05 6808 |h | Jump_Zero 0xa0e 0a06 00d8 | | Load_Top At_Offset_0 0a07 0f01 | | Execute_Immediate Equal,0x1 0a08 6804 |h | Jump_Zero 0xa0d 0a09 e5fe | | Load 0x2,-0x2 0a0a 7002 |p | Jump_Nonzero 0xa0d 0a0b e5ff | | Load 0x2,-0x1 0a0c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a0d 8402 | | Call 0x2,0x2 0a0e 00c8 | | Action Pop_Auxiliary_Range 0a0f 3ff2 |? | Loop_Increasing 0xa02 0a10 00ce | | Action Pop_Auxiliary 0a11 e295 | | Load 0x1,0x95 0a12 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a13 0000 0000 | | .BLANK 0000[0x5] 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a1b | | .CONST 0x0a1b ; Address of begin 0a19 0004 | | .CONST 0x0004 ; Address of exception handler 0a1a 0001 | | .CONST 0x0001 ; Number of locals 0a1b BODY_0a18: 0a1b INIT_0a18: 0a1b 00da | | Load_Top At_Offset_2 0a1c 01db | | Execute Vector,Length 0a1d e5fe | | Load 0x2,-0x2 0a1e 01db | | Execute Vector,Length 0a1f e233 | 3 | Load 0x1,0x33 0a20 1c08 | | Execute_Immediate Run_Utility,0x8 0a21 00db | | Load_Top At_Offset_3 0a22 00d9 | | Load_Top At_Offset_1 0a23 00d8 | | Load_Top At_Offset_0 0a24 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a25 00da | | Load_Top At_Offset_2 0a26 01da | | Execute Vector,Bounds 0a27 00da | | Load_Top At_Offset_2 0a28 01da | | Execute Vector,Bounds 0a29 00da | | Load_Top At_Offset_2 0a2a 027f | | Execute Discrete,Equal 0a2b 7001 |p | Jump_Nonzero 0xa2d 0a2c 08e0 | | Execute_Immediate Raise,0xe0 0a2d 00cd | | Action Spare6_Action 0a2e 027f | | Execute Discrete,Equal 0a2f 7001 |p | Jump_Nonzero 0xa31 0a30 08e0 | | Execute_Immediate Raise,0xe0 0a31 00d2 | | Pop_Control Pop_Count_2 0a32 00d9 | | Load_Top At_Offset_1 0a33 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0a34 e5fe | | Load 0x2,-0x2 0a35 00d9 | | Load_Top At_Offset_1 0a36 00d8 | | Load_Top At_Offset_0 0a37 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0a38 00da | | Load_Top At_Offset_2 0a39 01da | | Execute Vector,Bounds 0a3a 00da | | Load_Top At_Offset_2 0a3b 01da | | Execute Vector,Bounds 0a3c 00da | | Load_Top At_Offset_2 0a3d 027f | | Execute Discrete,Equal 0a3e 7001 |p | Jump_Nonzero 0xa40 0a3f 08e0 | | Execute_Immediate Raise,0xe0 0a40 00cd | | Action Spare6_Action 0a41 027f | | Execute Discrete,Equal 0a42 7001 |p | Jump_Nonzero 0xa44 0a43 08e0 | | Execute_Immediate Raise,0xe0 0a44 00d2 | | Pop_Control Pop_Count_2 0a45 00d9 | | Load_Top At_Offset_1 0a46 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0a47 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a48 ; -------------------------------------------------------------------------------------- 0a48 ; SUBPROGRAM 0a48 ; -------------------------------------------------------------------------------------- 0a48 0a5c | \ | .CONST 0x0a5c ; Address of begin 0a49 0004 | | .CONST 0x0004 ; Address of exception handler 0a4a 0004 | | .CONST 0x0004 ; Number of locals 0a4b INIT_0a48: 0a4b 4801 |H | Short_Literal 0x1 0a4c 00db | | Load_Top At_Offset_3 0a4d 01db | | Execute Vector,Length 0a4e 00d8 | | Load_Top At_Offset_0 0a4f 00e2 | | Load_Encached Integer_Cache 0a50 0260 | ` | Execute Discrete,In_Type 0a51 7001 |p | Jump_Nonzero 0xa53 0a52 0801 | | Execute_Immediate Raise,0x1 0a53 e220 | | Load 0x1,0x20 0a54 035b | [ | Declare_Type Array,Constrained 0a55 0337 | 7 | Declare_Variable Array 0a56 00db | | Load_Top At_Offset_3 0a57 00d9 | | Load_Top At_Offset_1 0a58 01d4 | | Execute Vector,Structure_Write 0a59 e21f | | Load 0x1,0x1f 0a5a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a5b 00e5 | | Load_Encached Long_Integer_Cache 0a5c BODY_0a48: 0a5c 4801 |H | Short_Literal 0x1 0a5d 00db | | Load_Top At_Offset_3 0a5e 01d7 | | Execute Vector,Field_Read 0a5f 0274 | t | Execute Discrete,Absolute_Value 0a60 4801 |H | Short_Literal 0x1 0a61 e402 | | Load 0x2,0x2 0a62 01d6 | | Execute Vector,Field_Write 0a63 00da | | Load_Top At_Offset_2 0a64 01db | | Execute Vector,Length 0a65 0c02 | | Execute_Immediate Greater_Equal,0x2 0a66 6807 |h | Jump_Zero 0xa6e 0a67 4802 |H | Short_Literal 0x2 0a68 00db | | Load_Top At_Offset_3 0a69 01d7 | | Execute Vector,Field_Read 0a6a 0274 | t | Execute Discrete,Absolute_Value 0a6b 4802 |H | Short_Literal 0x2 0a6c e402 | | Load 0x2,0x2 0a6d 01d6 | | Execute Vector,Field_Write 0a6e e5fe | | Load 0x2,-0x2 0a6f 0e01 | | Execute_Immediate Not_Equal,0x1 0a70 6819 |h | Jump_Zero 0xa8a 0a71 00cf | | Action Mark_Auxiliary 0a72 00db | | Load_Top At_Offset_3 0a73 01da | | Execute Vector,Bounds 0a74 0264 | d | Execute Discrete,Below_Bound 0a75 7013 |p | Jump_Nonzero 0xa89 0a76 00d8 | | Load_Top At_Offset_0 0a77 e402 | | Load 0x2,0x2 0a78 01d7 | | Execute Vector,Field_Read 0a79 e5fe | | Load 0x2,-0x2 0a7a 0271 | q | Execute Discrete,Times 0a7b e403 | | Load 0x2,0x3 0a7c 0273 | s | Execute Discrete,Plus 0a7d a404 | | Store_Unchecked 0x2,0x4 0a7e 00db | | Load_Top At_Offset_3 0a7f 6010 |` | Indirect_Literal Discrete,0xa90,{0x00000000, 0x80000000} 0a80 026f | o | Execute Discrete,Remainder 0a81 00d9 | | Load_Top At_Offset_1 0a82 e402 | | Load 0x2,0x2 0a83 01d6 | | Execute Vector,Field_Write 0a84 00db | | Load_Top At_Offset_3 0a85 09e1 | | Execute_Immediate Binary_Scale,-0x1f 0a86 c403 | | Store 0x2,0x3 0a87 00c8 | | Action Pop_Auxiliary_Range 0a88 37ed |7 | Loop_Decreasing 0xa76 0a89 00ce | | Action Pop_Auxiliary 0a8a 00da | | Load_Top At_Offset_2 0a8b e220 | | Load 0x1,0x20 0a8c 01c6 | | Execute Vector,Convert_To_Formal 0a8d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a8e 0000 0000 | | .XXX[0x2] 0a90 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 0a94 0000 0000 | | .BLANK 0000[0x4] 0a98 ; -------------------------------------------------------------------------------------- 0a98 ; SUBPROGRAM 0a98 ; -------------------------------------------------------------------------------------- 0a98 0aa2 | | .CONST 0x0aa2 ; Address of begin 0a99 0004 | | .CONST 0x0004 ; Address of exception handler 0a9a 0004 | | .CONST 0x0004 ; Number of locals 0a9b INIT_0a98: 0a9b e21f | | Load 0x1,0x1f 0a9c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a9d e5fe | | Load 0x2,-0x2 0a9e 0274 | t | Execute Discrete,Absolute_Value 0a9f e21f | | Load 0x1,0x1f 0aa0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0aa1 00e5 | | Load_Encached Long_Integer_Cache 0aa2 BODY_0a98: 0aa2 4801 |H | Short_Literal 0x1 0aa3 e5ff | | Load 0x2,-0x1 0aa4 01d7 | | Execute Vector,Field_Read 0aa5 0274 | t | Execute Discrete,Absolute_Value 0aa6 4801 |H | Short_Literal 0x1 0aa7 e5ff | | Load 0x2,-0x1 0aa8 01d6 | | Execute Vector,Field_Write 0aa9 00d9 | | Load_Top At_Offset_1 0aaa 0e01 | | Execute_Immediate Not_Equal,0x1 0aab 6819 |h | Jump_Zero 0xac5 0aac 00cf | | Action Mark_Auxiliary 0aad e5ff | | Load 0x2,-0x1 0aae 01d9 | | Execute Vector,Reverse_Bounds 0aaf 0263 | c | Execute Discrete,Above_Bound 0ab0 7013 |p | Jump_Nonzero 0xac4 0ab1 e402 | | Load 0x2,0x2 0ab2 091f | | Execute_Immediate Binary_Scale,0x1f 0ab3 00d9 | | Load_Top At_Offset_1 0ab4 e5ff | | Load 0x2,-0x1 0ab5 01d7 | | Execute Vector,Field_Read 0ab6 0273 | s | Execute Discrete,Plus 0ab7 a404 | | Store_Unchecked 0x2,0x4 0ab8 00db | | Load_Top At_Offset_3 0ab9 e403 | | Load 0x2,0x3 0aba 0270 | p | Execute Discrete,Divide 0abb 00d9 | | Load_Top At_Offset_1 0abc e5ff | | Load 0x2,-0x1 0abd 01d6 | | Execute Vector,Field_Write 0abe 00db | | Load_Top At_Offset_3 0abf e403 | | Load 0x2,0x3 0ac0 026f | o | Execute Discrete,Remainder 0ac1 c402 | | Store 0x2,0x2 0ac2 00c8 | | Action Pop_Auxiliary_Range 0ac3 3fed |? | Loop_Increasing 0xab1 0ac4 00ce | | Action Pop_Auxiliary 0ac5 00da | | Load_Top At_Offset_2 0ac6 a5fe | | Store_Unchecked 0x2,-0x2 0ac7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0ae5 | | .CONST 0x0ae5 ; Address of begin 0ac9 0004 | | .CONST 0x0004 ; Address of exception handler 0aca 0007 | | .CONST 0x0007 ; Number of locals 0acb INIT_0ac8: 0acb 00da | | Load_Top At_Offset_2 0acc 01db | | Execute Vector,Length 0acd 00e2 | | Load_Encached Integer_Cache 0ace 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0acf e5fe | | Load 0x2,-0x2 0ad0 01db | | Execute Vector,Length 0ad1 00e2 | | Load_Encached Integer_Cache 0ad2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0ad3 4801 |H | Short_Literal 0x1 0ad4 e5ff | | Load 0x2,-0x1 0ad5 01d7 | | Execute Vector,Field_Read 0ad6 0d00 | | Execute_Immediate Less,0x0 0ad7 00e1 | | Load_Encached Boolean_Cache 0ad8 03f1 | | Declare_Variable Discrete,With_Value 0ad9 00d8 | | Load_Top At_Offset_0 0ada 4801 |H | Short_Literal 0x1 0adb e5fe | | Load 0x2,-0x2 0adc 01d7 | | Execute Vector,Field_Read 0add 0d00 | | Execute_Immediate Less,0x0 0ade 0277 | w | Execute Discrete,Xor 0adf 00e1 | | Load_Encached Boolean_Cache 0ae0 03f1 | | Declare_Variable Discrete,With_Value 0ae1 029f 0fb3 | | Declare_Subprogram INIT_0fb0,For_Call 0ae3 029f 102b | +| Declare_Subprogram INIT_1028,For_Call 0ae5 BODY_0ac8: 0ae5 e402 | | Load 0x2,0x2 0ae6 0f01 | | Execute_Immediate Equal,0x1 0ae7 68c1 |h | Jump_Zero 0xba9 0ae8 e403 | | Load 0x2,0x3 0ae9 0f01 | | Execute_Immediate Equal,0x1 0aea 68be |h | Jump_Zero 0xba9 0aeb e5fd | | Load 0x2,-0x3 0aec 4602 |F | Jump_Case 0x3 0aed 7849 |xI | Jump 0xb37 ; case 0x0 0aee 7881 |x | Jump 0xb70 ; case 0x1 0aef 7800 |x | Jump 0xaf0 ; case 0x2 0af0 4801 |H | Short_Literal 0x1 0af1 4801 |H | Short_Literal 0x1 0af2 e233 | 3 | Load 0x1,0x33 0af3 1c08 | | Execute_Immediate Run_Utility,0x8 0af4 4801 |H | Short_Literal 0x1 0af5 4801 |H | Short_Literal 0x1 0af6 e220 | | Load 0x1,0x20 0af7 035b | [ | Declare_Type Array,Constrained 0af8 0337 | 7 | Declare_Variable Array 0af9 4801 |H | Short_Literal 0x1 0afa e5ff | | Load 0x2,-0x1 0afb 01d7 | | Execute Vector,Field_Read 0afc 4801 |H | Short_Literal 0x1 0afd e5fe | | Load 0x2,-0x2 0afe 01d7 | | Execute Vector,Field_Read 0aff 0270 | p | Execute Discrete,Divide 0b00 4801 |H | Short_Literal 0x1 0b01 00da | | Load_Top At_Offset_2 0b02 01d6 | | Execute Vector,Field_Write 0b03 00d9 | | Load_Top At_Offset_1 0b04 00d8 | | Load_Top At_Offset_0 0b05 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b06 00da | | Load_Top At_Offset_2 0b07 01da | | Execute Vector,Bounds 0b08 00da | | Load_Top At_Offset_2 0b09 01da | | Execute Vector,Bounds 0b0a 00da | | Load_Top At_Offset_2 0b0b 027f | | Execute Discrete,Equal 0b0c 7001 |p | Jump_Nonzero 0xb0e 0b0d 08e0 | | Execute_Immediate Raise,0xe0 0b0e 00cd | | Action Spare6_Action 0b0f 027f | | Execute Discrete,Equal 0b10 7001 |p | Jump_Nonzero 0xb12 0b11 08e0 | | Execute_Immediate Raise,0xe0 0b12 00d2 | | Pop_Control Pop_Count_2 0b13 00d9 | | Load_Top At_Offset_1 0b14 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0b15 4801 |H | Short_Literal 0x1 0b16 4801 |H | Short_Literal 0x1 0b17 e220 | | Load 0x1,0x20 0b18 035b | [ | Declare_Type Array,Constrained 0b19 0337 | 7 | Declare_Variable Array 0b1a 4801 |H | Short_Literal 0x1 0b1b e5ff | | Load 0x2,-0x1 0b1c 01d7 | | Execute Vector,Field_Read 0b1d 4801 |H | Short_Literal 0x1 0b1e e5fe | | Load 0x2,-0x2 0b1f 01d7 | | Execute Vector,Field_Read 0b20 026e | n | Execute Discrete,Modulo 0b21 4801 |H | Short_Literal 0x1 0b22 00da | | Load_Top At_Offset_2 0b23 01d6 | | Execute Vector,Field_Write 0b24 00d9 | | Load_Top At_Offset_1 0b25 00d8 | | Load_Top At_Offset_0 0b26 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0b27 00da | | Load_Top At_Offset_2 0b28 01da | | Execute Vector,Bounds 0b29 00da | | Load_Top At_Offset_2 0b2a 01da | | Execute Vector,Bounds 0b2b 00da | | Load_Top At_Offset_2 0b2c 027f | | Execute Discrete,Equal 0b2d 7001 |p | Jump_Nonzero 0xb2f 0b2e 08e0 | | Execute_Immediate Raise,0xe0 0b2f 00cd | | Action Spare6_Action 0b30 027f | | Execute Discrete,Equal 0b31 7001 |p | Jump_Nonzero 0xb33 0b32 08e0 | | Execute_Immediate Raise,0xe0 0b33 00d2 | | Pop_Control Pop_Count_2 0b34 00d9 | | Load_Top At_Offset_1 0b35 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0b36 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b37 4801 |H | Short_Literal 0x1 0b38 4800 |H | Short_Literal 0x0 0b39 e233 | 3 | Load 0x1,0x33 0b3a 1c08 | | Execute_Immediate Run_Utility,0x8 0b3b 4801 |H | Short_Literal 0x1 0b3c 4801 |H | Short_Literal 0x1 0b3d e220 | | Load 0x1,0x20 0b3e 035b | [ | Declare_Type Array,Constrained 0b3f 0337 | 7 | Declare_Variable Array 0b40 4801 |H | Short_Literal 0x1 0b41 e5ff | | Load 0x2,-0x1 0b42 01d7 | | Execute Vector,Field_Read 0b43 4801 |H | Short_Literal 0x1 0b44 e5fe | | Load 0x2,-0x2 0b45 01d7 | | Execute Vector,Field_Read 0b46 0270 | p | Execute Discrete,Divide 0b47 4801 |H | Short_Literal 0x1 0b48 00da | | Load_Top At_Offset_2 0b49 01d6 | | Execute Vector,Field_Write 0b4a 00d9 | | Load_Top At_Offset_1 0b4b 00d8 | | Load_Top At_Offset_0 0b4c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b4d 00da | | Load_Top At_Offset_2 0b4e 01da | | Execute Vector,Bounds 0b4f 00da | | Load_Top At_Offset_2 0b50 01da | | Execute Vector,Bounds 0b51 00da | | Load_Top At_Offset_2 0b52 027f | | Execute Discrete,Equal 0b53 7001 |p | Jump_Nonzero 0xb55 0b54 08e0 | | Execute_Immediate Raise,0xe0 0b55 00cd | | Action Spare6_Action 0b56 027f | | Execute Discrete,Equal 0b57 7001 |p | Jump_Nonzero 0xb59 0b58 08e0 | | Execute_Immediate Raise,0xe0 0b59 00d2 | | Pop_Control Pop_Count_2 0b5a 00d9 | | Load_Top At_Offset_1 0b5b 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0b5c e294 | | Load 0x1,0x94 0b5d 00d9 | | Load_Top At_Offset_1 0b5e 00d8 | | Load_Top At_Offset_0 0b5f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0b60 00da | | Load_Top At_Offset_2 0b61 01da | | Execute Vector,Bounds 0b62 00da | | Load_Top At_Offset_2 0b63 01da | | Execute Vector,Bounds 0b64 00da | | Load_Top At_Offset_2 0b65 027f | | Execute Discrete,Equal 0b66 7001 |p | Jump_Nonzero 0xb68 0b67 08e0 | | Execute_Immediate Raise,0xe0 0b68 00cd | | Action Spare6_Action 0b69 027f | | Execute Discrete,Equal 0b6a 7001 |p | Jump_Nonzero 0xb6c 0b6b 08e0 | | Execute_Immediate Raise,0xe0 0b6c 00d2 | | Pop_Control Pop_Count_2 0b6d 00d9 | | Load_Top At_Offset_1 0b6e 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0b6f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b70 4800 |H | Short_Literal 0x0 0b71 4801 |H | Short_Literal 0x1 0b72 e233 | 3 | Load 0x1,0x33 0b73 1c08 | | Execute_Immediate Run_Utility,0x8 0b74 e294 | | Load 0x1,0x94 0b75 00d9 | | Load_Top At_Offset_1 0b76 00d8 | | Load_Top At_Offset_0 0b77 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b78 00da | | Load_Top At_Offset_2 0b79 01da | | Execute Vector,Bounds 0b7a 00da | | Load_Top At_Offset_2 0b7b 01da | | Execute Vector,Bounds 0b7c 00da | | Load_Top At_Offset_2 0b7d 027f | | Execute Discrete,Equal 0b7e 7001 |p | Jump_Nonzero 0xb80 0b7f 08e0 | | Execute_Immediate Raise,0xe0 0b80 00cd | | Action Spare6_Action 0b81 027f | | Execute Discrete,Equal 0b82 7001 |p | Jump_Nonzero 0xb84 0b83 08e0 | | Execute_Immediate Raise,0xe0 0b84 00d2 | | Pop_Control Pop_Count_2 0b85 00d9 | | Load_Top At_Offset_1 0b86 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0b87 4801 |H | Short_Literal 0x1 0b88 4801 |H | Short_Literal 0x1 0b89 e220 | | Load 0x1,0x20 0b8a 035b | [ | Declare_Type Array,Constrained 0b8b 0337 | 7 | Declare_Variable Array 0b8c 4801 |H | Short_Literal 0x1 0b8d e5ff | | Load 0x2,-0x1 0b8e 01d7 | | Execute Vector,Field_Read 0b8f 4801 |H | Short_Literal 0x1 0b90 e5fe | | Load 0x2,-0x2 0b91 01d7 | | Execute Vector,Field_Read 0b92 026f | o | Execute Discrete,Remainder 0b93 4801 |H | Short_Literal 0x1 0b94 00da | | Load_Top At_Offset_2 0b95 01d6 | | Execute Vector,Field_Write 0b96 00d9 | | Load_Top At_Offset_1 0b97 00d8 | | Load_Top At_Offset_0 0b98 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0b99 00da | | Load_Top At_Offset_2 0b9a 01da | | Execute Vector,Bounds 0b9b 00da | | Load_Top At_Offset_2 0b9c 01da | | Execute Vector,Bounds 0b9d 00da | | Load_Top At_Offset_2 0b9e 027f | | Execute Discrete,Equal 0b9f 7001 |p | Jump_Nonzero 0xba1 0ba0 08e0 | | Execute_Immediate Raise,0xe0 0ba1 00cd | | Action Spare6_Action 0ba2 027f | | Execute Discrete,Equal 0ba3 7001 |p | Jump_Nonzero 0xba5 0ba4 08e0 | | Execute_Immediate Raise,0xe0 0ba5 00d2 | | Pop_Control Pop_Count_2 0ba6 00d9 | | Load_Top At_Offset_1 0ba7 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0ba8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ba9 e403 | | Load 0x2,0x3 0baa 0f01 | | Execute_Immediate Equal,0x1 0bab 6801 |h | Jump_Zero 0xbad 0bac 8406 | | Call 0x2,0x6 0bad 8407 | | Call 0x2,0x7 0bae 0831 | 1 | Execute_Immediate Raise,0x31 0baf 0000 | | .XXX[0x1] 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 ; SUBPROGRAM 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 0bb3 | | .CONST 0x0bb3 ; Address of begin 0bb1 0004 | | .CONST 0x0004 ; Address of exception handler 0bb2 0001 | | .CONST 0x0001 ; Number of locals 0bb3 BODY_0bb0: 0bb3 INIT_0bb0: 0bb3 00cf | | Action Mark_Auxiliary 0bb4 00db | | Load_Top At_Offset_3 0bb5 01d9 | | Execute Vector,Reverse_Bounds 0bb6 0263 | c | Execute Discrete,Above_Bound 0bb7 7008 |p | Jump_Nonzero 0xbc0 0bb8 00d8 | | Load_Top At_Offset_0 0bb9 e5ff | | Load 0x2,-0x1 0bba 01d7 | | Execute Vector,Field_Read 0bbb 6802 |h | Jump_Zero 0xbbe 0bbc 00d8 | | Load_Top At_Offset_0 0bbd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bbe 00c8 | | Action Pop_Auxiliary_Range 0bbf 3ff8 |? | Loop_Increasing 0xbb8 0bc0 00ce | | Action Pop_Auxiliary 0bc1 00da | | Load_Top At_Offset_2 0bc2 01dc | | Execute Vector,Last 0bc3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bc4 0000 0000 | | .BLANK 0000[0x4] 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bce | | .CONST 0x0bce ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0003 | | .CONST 0x0003 ; Number of locals 0bcb INIT_0bc8: 0bcb e21f | | Load 0x1,0x1f 0bcc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0bcd 00e5 | | Load_Encached Long_Integer_Cache 0bce BODY_0bc8: 0bce 00cf | | Action Mark_Auxiliary 0bcf e5fe | | Load 0x2,-0x2 0bd0 01da | | Execute Vector,Bounds 0bd1 0264 | d | Execute Discrete,Below_Bound 0bd2 7013 |p | Jump_Nonzero 0xbe6 0bd3 00d8 | | Load_Top At_Offset_0 0bd4 e5fe | | Load 0x2,-0x2 0bd5 01d7 | | Execute Vector,Field_Read 0bd6 e5ff | | Load 0x2,-0x1 0bd7 0271 | q | Execute Discrete,Times 0bd8 e402 | | Load 0x2,0x2 0bd9 0273 | s | Execute Discrete,Plus 0bda a403 | | Store_Unchecked 0x2,0x3 0bdb 00db | | Load_Top At_Offset_3 0bdc 600b |` | Indirect_Literal Discrete,0xbe8,{0x00000000, 0x80000000} 0bdd 026f | o | Execute Discrete,Remainder 0bde 00d9 | | Load_Top At_Offset_1 0bdf e5fe | | Load 0x2,-0x2 0be0 01d6 | | Execute Vector,Field_Write 0be1 00db | | Load_Top At_Offset_3 0be2 09e1 | | Execute_Immediate Binary_Scale,-0x1f 0be3 c402 | | Store 0x2,0x2 0be4 00c8 | | Action Pop_Auxiliary_Range 0be5 37ed |7 | Loop_Decreasing 0xbd3 0be6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0be7 0000 | | .XXX[0x1] 0be8 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 0bec 0000 0000 | | .BLANK 0000[0x4] 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 ; SUBPROGRAM 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 0c09 | | .CONST 0x0c09 ; Address of begin 0bf1 0004 | | .CONST 0x0004 ; Address of exception handler 0bf2 0006 | | .CONST 0x0006 ; Number of locals 0bf3 INIT_0bf0: 0bf3 e21f | | Load 0x1,0x1f 0bf4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0bf5 e5fe | | Load 0x2,-0x2 0bf6 0274 | t | Execute Discrete,Absolute_Value 0bf7 e21f | | Load 0x1,0x1f 0bf8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0bf9 00e5 | | Load_Encached Long_Integer_Cache 0bfa 4801 |H | Short_Literal 0x1 0bfb e5ff | | Load 0x2,-0x1 0bfc 01db | | Execute Vector,Length 0bfd 00d8 | | Load_Top At_Offset_0 0bfe 00e2 | | Load_Encached Integer_Cache 0bff 0260 | ` | Execute Discrete,In_Type 0c00 7001 |p | Jump_Nonzero 0xc02 0c01 0801 | | Execute_Immediate Raise,0x1 0c02 e220 | | Load 0x1,0x20 0c03 035b | [ | Declare_Type Array,Constrained 0c04 0337 | 7 | Declare_Variable Array 0c05 e5ff | | Load 0x2,-0x1 0c06 00d9 | | Load_Top At_Offset_1 0c07 01d4 | | Execute Vector,Structure_Write 0c08 00e2 | | Load_Encached Integer_Cache 0c09 BODY_0bf0: 0c09 4801 |H | Short_Literal 0x1 0c0a 00da | | Load_Top At_Offset_2 0c0b 01d7 | | Execute Vector,Field_Read 0c0c 0274 | t | Execute Discrete,Absolute_Value 0c0d 4801 |H | Short_Literal 0x1 0c0e 00db | | Load_Top At_Offset_3 0c0f 01d6 | | Execute Vector,Field_Write 0c10 00cf | | Action Mark_Auxiliary 0c11 00da | | Load_Top At_Offset_2 0c12 01d9 | | Execute Vector,Reverse_Bounds 0c13 0263 | c | Execute Discrete,Above_Bound 0c14 7013 |p | Jump_Nonzero 0xc28 0c15 e402 | | Load 0x2,0x2 0c16 091f | | Execute_Immediate Binary_Scale,0x1f 0c17 00d9 | | Load_Top At_Offset_1 0c18 e405 | | Load 0x2,0x5 0c19 01d7 | | Execute Vector,Field_Read 0c1a 0273 | s | Execute Discrete,Plus 0c1b a404 | | Store_Unchecked 0x2,0x4 0c1c e404 | | Load 0x2,0x4 0c1d e403 | | Load 0x2,0x3 0c1e 0270 | p | Execute Discrete,Divide 0c1f 00d9 | | Load_Top At_Offset_1 0c20 e405 | | Load 0x2,0x5 0c21 01d6 | | Execute Vector,Field_Write 0c22 e404 | | Load 0x2,0x4 0c23 e403 | | Load 0x2,0x3 0c24 026f | o | Execute Discrete,Remainder 0c25 c402 | | Store 0x2,0x2 0c26 00c8 | | Action Pop_Auxiliary_Range 0c27 3fed |? | Loop_Increasing 0xc15 0c28 00ce | | Action Pop_Auxiliary 0c29 e5ff | | Load 0x2,-0x1 0c2a 01dd | | Execute Vector,First 0c2b e5ff | | Load 0x2,-0x1 0c2c 01d7 | | Execute Vector,Field_Read 0c2d 0d00 | | Execute_Immediate Less,0x0 0c2e e5fe | | Load 0x2,-0x2 0c2f 0d00 | | Execute_Immediate Less,0x0 0c30 0277 | w | Execute Discrete,Xor 0c31 680a |h | Jump_Zero 0xc3c 0c32 00d9 | | Load_Top At_Offset_1 0c33 82a9 | | Call 0x1,0xa9 0c34 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0c35 00d8 | | Load_Top At_Offset_0 0c36 00da | | Load_Top At_Offset_2 0c37 01d7 | | Execute Vector,Field_Read 0c38 0275 | u | Execute Discrete,Unary_Minus 0c39 00d9 | | Load_Top At_Offset_1 0c3a 00db | | Load_Top At_Offset_3 0c3b 01d6 | | Execute Vector,Field_Write 0c3c e5ff | | Load 0x2,-0x1 0c3d 01dd | | Execute Vector,First 0c3e e5ff | | Load 0x2,-0x1 0c3f 01d7 | | Execute Vector,Field_Read 0c40 0d00 | | Execute_Immediate Less,0x0 0c41 6803 |h | Jump_Zero 0xc45 0c42 e402 | | Load 0x2,0x2 0c43 0275 | u | Execute Discrete,Unary_Minus 0c44 c402 | | Store 0x2,0x2 0c45 e5fd | | Load 0x2,-0x3 0c46 00da | | Load_Top At_Offset_2 0c47 82a1 | | Call 0x1,0xa1 0c48 00d1 | | Pop_Control Pop_Count_1 0c49 e5fc | | Load 0x2,-0x4 0c4a e402 | | Load 0x2,0x2 0c4b 82a2 | | Call 0x1,0xa2 0c4c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c4d 0000 0000 | | .XXX[0x3] 0c4f 0000 | | 0c50 ; -------------------------------------------------------------------------------------- 0c50 ; SUBPROGRAM 0c50 ; -------------------------------------------------------------------------------------- 0c50 0c7a | z | .CONST 0x0c7a ; Address of begin 0c51 0004 | | .CONST 0x0004 ; Address of exception handler 0c52 0009 | | .CONST 0x0009 ; Number of locals 0c53 INIT_0c50: 0c53 00da | | Load_Top At_Offset_2 0c54 82a9 | | Call 0x1,0xa9 0c55 00e2 | | Load_Encached Integer_Cache 0c56 03f1 | | Declare_Variable Discrete,With_Value 0c57 e5fe | | Load 0x2,-0x2 0c58 82a9 | | Call 0x1,0xa9 0c59 00e2 | | Load_Encached Integer_Cache 0c5a 03f1 | | Declare_Variable Discrete,With_Value 0c5b e5ff | | Load 0x2,-0x1 0c5c 01dc | | Execute Vector,Last 0c5d 00da | | Load_Top At_Offset_2 0c5e 0272 | r | Execute Discrete,Minus 0c5f 0a01 | | Execute_Immediate Plus,0x1 0c60 00e2 | | Load_Encached Integer_Cache 0c61 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0c62 e5fe | | Load 0x2,-0x2 0c63 01dc | | Execute Vector,Last 0c64 00da | | Load_Top At_Offset_2 0c65 0272 | r | Execute Discrete,Minus 0c66 0a01 | | Execute_Immediate Plus,0x1 0c67 00e2 | | Load_Encached Integer_Cache 0c68 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0c69 00db | | Load_Top At_Offset_3 0c6a e5ff | | Load 0x2,-0x1 0c6b 01d7 | | Execute Vector,Field_Read 0c6c 0d00 | | Execute_Immediate Less,0x0 0c6d 00e1 | | Load_Encached Boolean_Cache 0c6e 03f1 | | Declare_Variable Discrete,With_Value 0c6f 00d8 | | Load_Top At_Offset_0 0c70 e403 | | Load 0x2,0x3 0c71 e5fe | | Load 0x2,-0x2 0c72 01d7 | | Execute Vector,Field_Read 0c73 0d00 | | Execute_Immediate Less,0x0 0c74 0277 | w | Execute Discrete,Xor 0c75 00e1 | | Load_Encached Boolean_Cache 0c76 03f1 | | Declare_Variable Discrete,With_Value 0c77 00e5 | | Load_Encached Long_Integer_Cache 0c78 029f 1163 | c| Declare_Subprogram INIT_1160,For_Call 0c7a BODY_0c50: 0c7a e404 | | Load 0x2,0x4 0c7b 0f01 | | Execute_Immediate Equal,0x1 0c7c 6827 |h' | Jump_Zero 0xca4 0c7d e405 | | Load 0x2,0x5 0c7e 0f01 | | Execute_Immediate Equal,0x1 0c7f 6824 |h$ | Jump_Zero 0xca4 0c80 e5fd | | Load 0x2,-0x3 0c81 e402 | | Load 0x2,0x2 0c82 e5ff | | Load 0x2,-0x1 0c83 01d7 | | Execute Vector,Field_Read 0c84 e403 | | Load 0x2,0x3 0c85 e5fe | | Load 0x2,-0x2 0c86 01d7 | | Execute Vector,Field_Read 0c87 0270 | p | Execute Discrete,Divide 0c88 00d8 | | Load_Top At_Offset_0 0c89 e21f | | Load 0x1,0x1f 0c8a 0260 | ` | Execute Discrete,In_Type 0c8b 7001 |p | Jump_Nonzero 0xc8d 0c8c 0801 | | Execute_Immediate Raise,0x1 0c8d 82a2 | | Call 0x1,0xa2 0c8e 00d1 | | Pop_Control Pop_Count_1 0c8f e402 | | Load 0x2,0x2 0c90 e5ff | | Load 0x2,-0x1 0c91 01d7 | | Execute Vector,Field_Read 0c92 e403 | | Load 0x2,0x3 0c93 e5fe | | Load 0x2,-0x2 0c94 01d7 | | Execute Vector,Field_Read 0c95 026f | o | Execute Discrete,Remainder 0c96 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0c97 e5fc | | Load 0x2,-0x4 0c98 00da | | Load_Top At_Offset_2 0c99 00d8 | | Load_Top At_Offset_0 0c9a e21f | | Load 0x1,0x1f 0c9b 0260 | ` | Execute Discrete,In_Type 0c9c 7001 |p | Jump_Nonzero 0xc9e 0c9d 0801 | | Execute_Immediate Raise,0x1 0c9e 82a2 | | Call 0x1,0xa2 0c9f 00d1 | | Pop_Control Pop_Count_1 0ca0 00d9 | | Load_Top At_Offset_1 0ca1 0f00 | | Execute_Immediate Equal,0x0 0ca2 a5fb | | Store_Unchecked 0x2,-0x5 0ca3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ca4 e405 | | Load 0x2,0x5 0ca5 0f01 | | Execute_Immediate Equal,0x1 0ca6 6819 |h | Jump_Zero 0xcc0 0ca7 e5fc | | Load 0x2,-0x4 0ca8 e5fd | | Load 0x2,-0x3 0ca9 e403 | | Load 0x2,0x3 0caa e5fe | | Load 0x2,-0x2 0cab 01d7 | | Execute Vector,Field_Read 0cac e402 | | Load 0x2,0x2 0cad e5ff | | Load 0x2,-0x1 0cae 01dc | | Execute Vector,Last 0caf e5ff | | Load 0x2,-0x1 0cb0 01cf | | Execute Vector,Slice_Read 0cb1 82ab | | Call 0x1,0xab 0cb2 00d2 | | Pop_Control Pop_Count_2 0cb3 e5fc | | Load 0x2,-0x4 0cb4 01db | | Execute Vector,Length 0cb5 0c01 | | Execute_Immediate Greater_Equal,0x1 0cb6 6806 |h | Jump_Zero 0xcbd 0cb7 e5fc | | Load 0x2,-0x4 0cb8 01dc | | Execute Vector,Last 0cb9 e5fc | | Load 0x2,-0x4 0cba 01d7 | | Execute Vector,Field_Read 0cbb 0f00 | | Execute_Immediate Equal,0x0 0cbc 7801 |x | Jump 0xcbe 0cbd 4800 |H | Short_Literal 0x0 0cbe a5fb | | Store_Unchecked 0x2,-0x5 0cbf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0cc0 8409 | | Call 0x2,0x9 0cc1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0cc2 0000 0000 | | .BLANK 0000[0x6] 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 ; SUBPROGRAM 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 0cde | | .CONST 0x0cde ; Address of begin 0cc9 0004 | | .CONST 0x0004 ; Address of exception handler 0cca 0005 | | .CONST 0x0005 ; Number of locals 0ccb INIT_0cc8: 0ccb 00da | | Load_Top At_Offset_2 0ccc 82a9 | | Call 0x1,0xa9 0ccd 00e2 | | Load_Encached Integer_Cache 0cce 03f1 | | Declare_Variable Discrete,With_Value 0ccf 00d8 | | Load_Top At_Offset_0 0cd0 e5ff | | Load 0x2,-0x1 0cd1 01dc | | Execute Vector,Last 0cd2 0a01 | | Execute_Immediate Plus,0x1 0cd3 00d8 | | Load_Top At_Offset_0 0cd4 00e2 | | Load_Encached Integer_Cache 0cd5 0260 | ` | Execute Discrete,In_Type 0cd6 7001 |p | Jump_Nonzero 0xcd8 0cd7 0801 | | Execute_Immediate Raise,0x1 0cd8 e220 | | Load 0x1,0x20 0cd9 035b | [ | Declare_Type Array,Constrained 0cda 0337 | 7 | Declare_Variable Array 0cdb e21f | | Load 0x1,0x1f 0cdc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0cdd 00e5 | | Load_Encached Long_Integer_Cache 0cde BODY_0cc8: 0cde 00cf | | Action Mark_Auxiliary 0cdf e402 | | Load 0x2,0x2 0ce0 e5ff | | Load 0x2,-0x1 0ce1 01dc | | Execute Vector,Last 0ce2 0264 | d | Execute Discrete,Below_Bound 0ce3 7015 |p | Jump_Nonzero 0xcf9 0ce4 00d8 | | Load_Top At_Offset_0 0ce5 e5ff | | Load 0x2,-0x1 0ce6 01d7 | | Execute Vector,Field_Read 0ce7 e5fe | | Load 0x2,-0x2 0ce8 0271 | q | Execute Discrete,Times 0ce9 0274 | t | Execute Discrete,Absolute_Value 0cea e404 | | Load 0x2,0x4 0ceb 0273 | s | Execute Discrete,Plus 0cec a405 | | Store_Unchecked 0x2,0x5 0ced 00db | | Load_Top At_Offset_3 0cee 6025 |`% | Indirect_Literal Discrete,0xd14,{0x00000000, 0x80000000} 0cef 026f | o | Execute Discrete,Remainder 0cf0 00d9 | | Load_Top At_Offset_1 0cf1 0a01 | | Execute_Immediate Plus,0x1 0cf2 e403 | | Load 0x2,0x3 0cf3 01d6 | | Execute Vector,Field_Write 0cf4 00db | | Load_Top At_Offset_3 0cf5 09e1 | | Execute_Immediate Binary_Scale,-0x1f 0cf6 c404 | | Store 0x2,0x4 0cf7 00c8 | | Action Pop_Auxiliary_Range 0cf8 37eb |7 | Loop_Decreasing 0xce4 0cf9 00ce | | Action Pop_Auxiliary 0cfa 00d9 | | Load_Top At_Offset_1 0cfb e402 | | Load 0x2,0x2 0cfc e403 | | Load 0x2,0x3 0cfd 01d6 | | Execute Vector,Field_Write 0cfe 00db | | Load_Top At_Offset_3 0cff e5ff | | Load 0x2,-0x1 0d00 01d7 | | Execute Vector,Field_Read 0d01 0d00 | | Execute_Immediate Less,0x0 0d02 e5fe | | Load 0x2,-0x2 0d03 0d00 | | Execute_Immediate Less,0x0 0d04 0277 | w | Execute Discrete,Xor 0d05 680a |h | Jump_Zero 0xd10 0d06 00da | | Load_Top At_Offset_2 0d07 82a9 | | Call 0x1,0xa9 0d08 a402 | | Store_Unchecked 0x2,0x2 0d09 00db | | Load_Top At_Offset_3 0d0a 00db | | Load_Top At_Offset_3 0d0b 01d7 | | Execute Vector,Field_Read 0d0c 0275 | u | Execute Discrete,Unary_Minus 0d0d e402 | | Load 0x2,0x2 0d0e e403 | | Load 0x2,0x3 0d0f 01d6 | | Execute Vector,Field_Write 0d10 e5fd | | Load 0x2,-0x3 0d11 00db | | Load_Top At_Offset_3 0d12 82a1 | | Call 0x1,0xa1 0d13 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d14 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 0d18 ; -------------------------------------------------------------------------------------- 0d18 ; SUBPROGRAM 0d18 ; -------------------------------------------------------------------------------------- 0d18 0d33 | 3 | .CONST 0x0d33 ; Address of begin 0d19 0004 | | .CONST 0x0004 ; Address of exception handler 0d1a 0006 | | .CONST 0x0006 ; Number of locals 0d1b INIT_0d18: 0d1b 00da | | Load_Top At_Offset_2 0d1c 82a9 | | Call 0x1,0xa9 0d1d 00e2 | | Load_Encached Integer_Cache 0d1e 03f1 | | Declare_Variable Discrete,With_Value 0d1f e5fe | | Load 0x2,-0x2 0d20 82a9 | | Call 0x1,0xa9 0d21 00e2 | | Load_Encached Integer_Cache 0d22 03f1 | | Declare_Variable Discrete,With_Value 0d23 e5ff | | Load 0x2,-0x1 0d24 01dc | | Execute Vector,Last 0d25 00da | | Load_Top At_Offset_2 0d26 0272 | r | Execute Discrete,Minus 0d27 0a01 | | Execute_Immediate Plus,0x1 0d28 00e2 | | Load_Encached Integer_Cache 0d29 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d2a e5fe | | Load 0x2,-0x2 0d2b 01dc | | Execute Vector,Last 0d2c 00da | | Load_Top At_Offset_2 0d2d 0272 | r | Execute Discrete,Minus 0d2e 0a01 | | Execute_Immediate Plus,0x1 0d2f 00e2 | | Load_Encached Integer_Cache 0d30 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d31 029f 12db | | Declare_Subprogram INIT_12d8,For_Call 0d33 BODY_0d18: 0d33 00da | | Load_Top At_Offset_2 0d34 0f01 | | Execute_Immediate Equal,0x1 0d35 682e |h. | Jump_Zero 0xd64 0d36 e402 | | Load 0x2,0x2 0d37 e5ff | | Load 0x2,-0x1 0d38 01d7 | | Execute Vector,Field_Read 0d39 7005 |p | Jump_Nonzero 0xd3f 0d3a e5fd | | Load 0x2,-0x3 0d3b 4800 |H | Short_Literal 0x0 0d3c 82a2 | | Call 0x1,0xa2 0d3d 00d1 | | Pop_Control Pop_Count_1 0d3e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d3f e402 | | Load 0x2,0x2 0d40 e5ff | | Load 0x2,-0x1 0d41 01d7 | | Execute Vector,Field_Read 0d42 0f01 | | Execute_Immediate Equal,0x1 0d43 6805 |h | Jump_Zero 0xd49 0d44 e5fd | | Load 0x2,-0x3 0d45 e5fe | | Load 0x2,-0x2 0d46 82a1 | | Call 0x1,0xa1 0d47 00d1 | | Pop_Control Pop_Count_1 0d48 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d49 00d9 | | Load_Top At_Offset_1 0d4a 0f01 | | Execute_Immediate Equal,0x1 0d4b 680c |h | Jump_Zero 0xd58 0d4c e5fd | | Load 0x2,-0x3 0d4d e402 | | Load 0x2,0x2 0d4e e5ff | | Load 0x2,-0x1 0d4f 01d7 | | Execute Vector,Field_Read 0d50 e403 | | Load 0x2,0x3 0d51 e5fe | | Load 0x2,-0x2 0d52 01d7 | | Execute Vector,Field_Read 0d53 0271 | q | Execute Discrete,Times 0d54 82a0 | | Call 0x1,0xa0 0d55 82a1 | | Call 0x1,0xa1 0d56 00d1 | | Pop_Control Pop_Count_1 0d57 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d58 e5fd | | Load 0x2,-0x3 0d59 e402 | | Load 0x2,0x2 0d5a e5ff | | Load 0x2,-0x1 0d5b 01d7 | | Execute Vector,Field_Read 0d5c e403 | | Load 0x2,0x3 0d5d e5fe | | Load 0x2,-0x2 0d5e 01dc | | Execute Vector,Last 0d5f e5fe | | Load 0x2,-0x2 0d60 01cf | | Execute Vector,Slice_Read 0d61 82ad | | Call 0x1,0xad 0d62 00d1 | | Pop_Control Pop_Count_1 0d63 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d64 00d9 | | Load_Top At_Offset_1 0d65 0f01 | | Execute_Immediate Equal,0x1 0d66 681f |h | Jump_Zero 0xd86 0d67 00db | | Load_Top At_Offset_3 0d68 e5fe | | Load 0x2,-0x2 0d69 01d7 | | Execute Vector,Field_Read 0d6a 7005 |p | Jump_Nonzero 0xd70 0d6b e5fd | | Load 0x2,-0x3 0d6c 4800 |H | Short_Literal 0x0 0d6d 82a2 | | Call 0x1,0xa2 0d6e 00d1 | | Pop_Control Pop_Count_1 0d6f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d70 00db | | Load_Top At_Offset_3 0d71 e5fe | | Load 0x2,-0x2 0d72 01d7 | | Execute Vector,Field_Read 0d73 0f01 | | Execute_Immediate Equal,0x1 0d74 6805 |h | Jump_Zero 0xd7a 0d75 e5fd | | Load 0x2,-0x3 0d76 e5ff | | Load 0x2,-0x1 0d77 82a1 | | Call 0x1,0xa1 0d78 00d1 | | Pop_Control Pop_Count_1 0d79 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d7a e5fd | | Load 0x2,-0x3 0d7b e403 | | Load 0x2,0x3 0d7c e5fe | | Load 0x2,-0x2 0d7d 01d7 | | Execute Vector,Field_Read 0d7e e402 | | Load 0x2,0x2 0d7f e5ff | | Load 0x2,-0x1 0d80 01dc | | Execute Vector,Last 0d81 e5ff | | Load 0x2,-0x1 0d82 01cf | | Execute Vector,Slice_Read 0d83 82ad | | Call 0x1,0xad 0d84 00d1 | | Pop_Control Pop_Count_1 0d85 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d86 8406 | | Call 0x2,0x6 0d87 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d88 ; -------------------------------------------------------------------------------------- 0d88 ; SUBPROGRAM 0d88 ; -------------------------------------------------------------------------------------- 0d88 0d8d | | .CONST 0x0d8d ; Address of begin 0d89 0004 | | .CONST 0x0004 ; Address of exception handler 0d8a 0002 | | .CONST 0x0002 ; Number of locals 0d8b INIT_0d88: 0d8b 00e2 | | Load_Encached Integer_Cache 0d8c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0d8d BODY_0d88: 0d8d 00cf | | Action Mark_Auxiliary 0d8e 7805 |x | Jump 0xd94 0d8f 00d9 | | Load_Top At_Offset_1 0d90 00da | | Load_Top At_Offset_2 0d91 0273 | s | Execute Discrete,Plus 0d92 005a | Z | Store_Top Discrete,At_Offset_2 0d93 00c9 | | Action Pop_Auxiliary_Loop 0d94 00d9 | | Load_Top At_Offset_1 0d95 e5ff | | Load 0x2,-0x1 0d96 027c | | | Execute Discrete,Less 0d97 77f7 |w | Jump_Nonzero 0xd8f 0d98 00ce | | Action Pop_Auxiliary 0d99 00d8 | | Load_Top At_Offset_0 0d9a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d9b 0000 0000 | | .BLANK 0000[0x5] 0da0 ; -------------------------------------------------------------------------------------- 0da0 ; SUBPROGRAM 0da0 ; -------------------------------------------------------------------------------------- 0da0 0dbe | | .CONST 0x0dbe ; Address of begin 0da1 0004 | | .CONST 0x0004 ; Address of exception handler 0da2 0002 | | .CONST 0x0002 ; Number of locals 0da3 INIT_0da0: 0da3 4801 |H | Short_Literal 0x1 0da4 00db | | Load_Top At_Offset_3 0da5 0a1f | | Execute_Immediate Plus,0x1f 0da6 481f |H | Short_Literal 0x1f 0da7 0270 | p | Execute Discrete,Divide 0da8 00d8 | | Load_Top At_Offset_0 0da9 00e2 | | Load_Encached Integer_Cache 0daa 0260 | ` | Execute Discrete,In_Type 0dab 7001 |p | Jump_Nonzero 0xdad 0dac 0801 | | Execute_Immediate Raise,0x1 0dad e220 | | Load 0x1,0x20 0dae 035b | [ | Declare_Type Array,Constrained 0daf 0337 | 7 | Declare_Variable Array 0db0 00d8 | | Load_Top At_Offset_0 0db1 0335 | 5 | Declare_Variable Array,Duplicate 0db2 00cd | | Action Spare6_Action 0db3 00d9 | | Load_Top At_Offset_1 0db4 01d9 | | Execute Vector,Reverse_Bounds 0db5 0263 | c | Execute Discrete,Above_Bound 0db6 7005 |p | Jump_Nonzero 0xdbc 0db7 4800 |H | Short_Literal 0x0 0db8 00d9 | | Load_Top At_Offset_1 0db9 e403 | | Load 0x2,0x3 0dba 01d6 | | Execute Vector,Field_Write 0dbb 3ffb |? | Loop_Increasing 0xdb7 0dbc 00d9 | | Load_Top At_Offset_1 0dbd 01d4 | | Execute Vector,Structure_Write 0dbe BODY_0da0: 0dbe 4802 |H | Short_Literal 0x2 0dbf e5ff | | Load 0x2,-0x1 0dc0 481f |H | Short_Literal 0x1f 0dc1 026e | n | Execute Discrete,Modulo 0dc2 026d | m | Execute Discrete,Exponentiate 0dc3 4801 |H | Short_Literal 0x1 0dc4 00da | | Load_Top At_Offset_2 0dc5 01d6 | | Execute Vector,Field_Write 0dc6 00d8 | | Load_Top At_Offset_0 0dc7 e220 | | Load 0x1,0x20 0dc8 01c6 | | Execute Vector,Convert_To_Formal 0dc9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dca 0000 0000 | | .BLANK 0000[0x6] 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 ; SUBPROGRAM 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 0de0 | | .CONST 0x0de0 ; Address of begin 0dd1 0004 | | .CONST 0x0004 ; Address of exception handler 0dd2 0004 | | .CONST 0x0004 ; Number of locals 0dd3 INIT_0dd0: 0dd3 00da | | Load_Top At_Offset_2 0dd4 82a9 | | Call 0x1,0xa9 0dd5 00e2 | | Load_Encached Integer_Cache 0dd6 03f1 | | Declare_Variable Discrete,With_Value 0dd7 00db | | Load_Top At_Offset_3 0dd8 01db | | Execute Vector,Length 0dd9 00d9 | | Load_Top At_Offset_1 0dda 0272 | r | Execute Discrete,Minus 0ddb 0a01 | | Execute_Immediate Plus,0x1 0ddc 00e2 | | Load_Encached Integer_Cache 0ddd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0dde 029f 1353 | S| Declare_Subprogram INIT_1350,For_Call 0de0 BODY_0dd0: 0de0 e5fe | | Load 0x2,-0x2 0de1 0d00 | | Execute_Immediate Less,0x0 0de2 6801 |h | Jump_Zero 0xde4 0de3 08e0 | | Execute_Immediate Raise,0xe0 0de4 e5fe | | Load 0x2,-0x2 0de5 7005 |p | Jump_Nonzero 0xdeb 0de6 e5fd | | Load 0x2,-0x3 0de7 4801 |H | Short_Literal 0x1 0de8 82a2 | | Call 0x1,0xa2 0de9 00d1 | | Pop_Control Pop_Count_1 0dea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0deb e5fe | | Load 0x2,-0x2 0dec 6027 |`' | Indirect_Literal Discrete,0xe14,{0x00000000, 0x000014a0} 0ded 027d | } | Execute Discrete,Greater 0dee 6801 |h | Jump_Zero 0xdf0 0def 08e1 | | Execute_Immediate Raise,0xe1 0df0 00d9 | | Load_Top At_Offset_1 0df1 0f01 | | Execute_Immediate Equal,0x1 0df2 6810 |h | Jump_Zero 0xe03 0df3 00da | | Load_Top At_Offset_2 0df4 e5ff | | Load 0x2,-0x1 0df5 01d7 | | Execute Vector,Field_Read 0df6 0f01 | | Execute_Immediate Equal,0x1 0df7 7004 |p | Jump_Nonzero 0xdfc 0df8 00da | | Load_Top At_Offset_2 0df9 e5ff | | Load 0x2,-0x1 0dfa 01d7 | | Execute Vector,Field_Read 0dfb 7007 |p | Jump_Nonzero 0xe03 0dfc e5fd | | Load 0x2,-0x3 0dfd 00db | | Load_Top At_Offset_3 0dfe e5ff | | Load 0x2,-0x1 0dff 01d7 | | Execute Vector,Field_Read 0e00 82a2 | | Call 0x1,0xa2 0e01 00d1 | | Pop_Control Pop_Count_1 0e02 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e03 00d9 | | Load_Top At_Offset_1 0e04 0f01 | | Execute_Immediate Equal,0x1 0e05 680b |h | Jump_Zero 0xe11 0e06 00da | | Load_Top At_Offset_2 0e07 e5ff | | Load 0x2,-0x1 0e08 01d7 | | Execute Vector,Field_Read 0e09 0f02 | | Execute_Immediate Equal,0x2 0e0a 6806 |h | Jump_Zero 0xe11 0e0b e5fd | | Load 0x2,-0x3 0e0c e5fe | | Load 0x2,-0x2 0e0d 82b0 | | Call 0x1,0xb0 0e0e 82a1 | | Call 0x1,0xa1 0e0f 00d1 | | Pop_Control Pop_Count_1 0e10 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e11 8404 | | Call 0x2,0x4 0e12 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e13 0000 | | .XXX[0x1] 0e14 0000 0000 | | .LITERAL {0x00000000, 0x000014a0} 0e18 ; -------------------------------------------------------------------------------------- 0e18 ; SUBPROGRAM 0e18 ; -------------------------------------------------------------------------------------- 0e18 0e1b | | .CONST 0x0e1b ; Address of begin 0e19 0004 | | .CONST 0x0004 ; Address of exception handler 0e1a 0001 | | .CONST 0x0001 ; Number of locals 0e1b BODY_0e18: 0e1b INIT_0e18: 0e1b 00da | | Load_Top At_Offset_2 0e1c e5fe | | Load 0x2,-0x2 0e1d 027d | } | Execute Discrete,Greater 0e1e 6802 |h | Jump_Zero 0xe21 0e1f 00da | | Load_Top At_Offset_2 0e20 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e21 00db | | Load_Top At_Offset_3 0e22 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e23 0000 0000 | | .BLANK 0000[0x5] 0e28 ; -------------------------------------------------------------------------------------- 0e28 ; SUBPROGRAM 0e28 ; -------------------------------------------------------------------------------------- 0e28 0e36 | 6 | .CONST 0x0e36 ; Address of begin 0e29 0004 | | .CONST 0x0004 ; Address of exception handler 0e2a 0004 | | .CONST 0x0004 ; Number of locals 0e2b INIT_0e28: 0e2b e5fd | | Load 0x2,-0x3 0e2c 01da | | Execute Vector,Bounds 0e2d e220 | | Load 0x1,0x20 0e2e 035b | [ | Declare_Type Array,Constrained 0e2f 0337 | 7 | Declare_Variable Array 0e30 e5fd | | Load 0x2,-0x3 0e31 01da | | Execute Vector,Bounds 0e32 e220 | | Load 0x1,0x20 0e33 035b | [ | Declare_Type Array,Constrained 0e34 0337 | 7 | Declare_Variable Array 0e35 00e1 | | Load_Encached Boolean_Cache 0e36 BODY_0e28: 0e36 00d9 | | Load_Top At_Offset_1 0e37 e5ff | | Load 0x2,-0x1 0e38 8227 | ' | Call 0x1,0x27 0e39 82a1 | | Call 0x1,0xa1 0e3a 00d1 | | Pop_Control Pop_Count_1 0e3b e5fd | | Load 0x2,-0x3 0e3c e5fe | | Load 0x2,-0x2 0e3d 8227 | ' | Call 0x1,0x27 0e3e 82a1 | | Call 0x1,0xa1 0e3f 00d1 | | Pop_Control Pop_Count_1 0e40 00cf | | Action Mark_Auxiliary 0e41 00e1 | | Load_Encached Boolean_Cache 0e42 e402 | | Load 0x2,0x2 0e43 e294 | | Load 0x1,0x94 0e44 e5fd | | Load 0x2,-0x3 0e45 e403 | | Load 0x2,0x3 0e46 82ac | | Call 0x1,0xac 0e47 00d2 | | Pop_Control Pop_Count_2 0e48 005a | Z | Store_Top Discrete,At_Offset_2 0e49 00d9 | | Load_Top At_Offset_1 0e4a 7008 |p | Jump_Nonzero 0xe53 0e4b e5fd | | Load 0x2,-0x3 0e4c 00db | | Load_Top At_Offset_3 0e4d 01d4 | | Execute Vector,Structure_Write 0e4e 00db | | Load_Top At_Offset_3 0e4f e5fd | | Load 0x2,-0x3 0e50 01d4 | | Execute Vector,Structure_Write 0e51 00c9 | | Action Pop_Auxiliary_Loop 0e52 7fee | | Jump 0xe41 0e53 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e54 0000 0000 | | .BLANK 0000[0x4] 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; SUBPROGRAM 0e58 ; -------------------------------------------------------------------------------------- 0e58 0e5b | [ | .CONST 0x0e5b ; Address of begin 0e59 0004 | | .CONST 0x0004 ; Address of exception handler 0e5a 0001 | | .CONST 0x0001 ; Number of locals 0e5b BODY_0e58: 0e5b INIT_0e58: 0e5b 00da | | Load_Top At_Offset_2 0e5c 00d8 | | Load_Top At_Offset_0 0e5d 600e |` | Indirect_Literal Discrete,0xe6c,{0x80000000, 0x00000000} 0e5e 4fff |O | Short_Literal -0x1 0e5f 0262 | b | Execute Discrete,In_Range 0e60 7003 |p | Jump_Nonzero 0xe64 0e61 6805 |h | Jump_Zero 0xe67 0e62 4801 |H | Short_Literal 0x1 0e63 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e64 00d1 | | Pop_Control Pop_Count_1 0e65 4fff |O | Short_Literal -0x1 0e66 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e67 4800 |H | Short_Literal 0x0 0e68 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e69 0000 0000 | | .XXX[0x3] 0e6b 0000 | | 0e6c 8000 0000 | | .LITERAL {0x80000000, 0x00000000} 0e70 ; -------------------------------------------------------------------------------------- 0e70 ; SUBPROGRAM 0e70 ; -------------------------------------------------------------------------------------- 0e70 0e73 | s | .CONST 0x0e73 ; Address of begin 0e71 0004 | | .CONST 0x0004 ; Address of exception handler 0e72 0001 | | .CONST 0x0001 ; Number of locals 0e73 BODY_0e70: 0e73 INIT_0e70: 0e73 00da | | Load_Top At_Offset_2 0e74 01db | | Execute Vector,Length 0e75 e5fe | | Load 0x2,-0x2 0e76 01db | | Execute Vector,Length 0e77 e23f | ? | Load 0x1,0x3f 0e78 1c08 | | Execute_Immediate Run_Utility,0x8 0e79 00db | | Load_Top At_Offset_3 0e7a 00d9 | | Load_Top At_Offset_1 0e7b 00d8 | | Load_Top At_Offset_0 0e7c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e7d 00da | | Load_Top At_Offset_2 0e7e 01da | | Execute Vector,Bounds 0e7f 00da | | Load_Top At_Offset_2 0e80 01da | | Execute Vector,Bounds 0e81 00da | | Load_Top At_Offset_2 0e82 027f | | Execute Discrete,Equal 0e83 7001 |p | Jump_Nonzero 0xe85 0e84 08e0 | | Execute_Immediate Raise,0xe0 0e85 00cd | | Action Spare6_Action 0e86 027f | | Execute Discrete,Equal 0e87 7001 |p | Jump_Nonzero 0xe89 0e88 08e0 | | Execute_Immediate Raise,0xe0 0e89 00d2 | | Pop_Control Pop_Count_2 0e8a 00d9 | | Load_Top At_Offset_1 0e8b 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0e8c e5fe | | Load 0x2,-0x2 0e8d 00d9 | | Load_Top At_Offset_1 0e8e 00d8 | | Load_Top At_Offset_0 0e8f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0e90 00da | | Load_Top At_Offset_2 0e91 01da | | Execute Vector,Bounds 0e92 00da | | Load_Top At_Offset_2 0e93 01da | | Execute Vector,Bounds 0e94 00da | | Load_Top At_Offset_2 0e95 027f | | Execute Discrete,Equal 0e96 7001 |p | Jump_Nonzero 0xe98 0e97 08e0 | | Execute_Immediate Raise,0xe0 0e98 00cd | | Action Spare6_Action 0e99 027f | | Execute Discrete,Equal 0e9a 7001 |p | Jump_Nonzero 0xe9c 0e9b 08e0 | | Execute_Immediate Raise,0xe0 0e9c 00d2 | | Pop_Control Pop_Count_2 0e9d 00d9 | | Load_Top At_Offset_1 0e9e 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0e9f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 ; SUBPROGRAM 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 0ead | | .CONST 0x0ead ; Address of begin 0ea1 0004 | | .CONST 0x0004 ; Address of exception handler 0ea2 0003 | | .CONST 0x0003 ; Number of locals 0ea3 INIT_0ea0: 0ea3 4801 |H | Short_Literal 0x1 0ea4 e402 | | Load 0x2,0x2 0ea5 e220 | | Load 0x1,0x20 0ea6 035b | [ | Declare_Type Array,Constrained 0ea7 0337 | 7 | Declare_Variable Array 0ea8 4801 |H | Short_Literal 0x1 0ea9 e402 | | Load 0x2,0x2 0eaa e220 | | Load 0x1,0x20 0eab 035b | [ | Declare_Type Array,Constrained 0eac 0337 | 7 | Declare_Variable Array 0ead BODY_0ea0: 0ead 4801 |H | Short_Literal 0x1 0eae e5ff | | Load 0x2,-0x1 0eaf 01d7 | | Execute Vector,Field_Read 0eb0 0d00 | | Execute_Immediate Less,0x0 0eb1 a407 | | Store_Unchecked 0x2,0x7 0eb2 4801 |H | Short_Literal 0x1 0eb3 e5fe | | Load 0x2,-0x2 0eb4 01d7 | | Execute Vector,Field_Read 0eb5 0d00 | | Execute_Immediate Less,0x0 0eb6 a408 | | Store_Unchecked 0x2,0x8 0eb7 4801 |H | Short_Literal 0x1 0eb8 e5ff | | Load 0x2,-0x1 0eb9 01d7 | | Execute Vector,Field_Read 0eba 0274 | t | Execute Discrete,Absolute_Value 0ebb 4801 |H | Short_Literal 0x1 0ebc e402 | | Load 0x2,0x2 0ebd e405 | | Load 0x2,0x5 0ebe 0272 | r | Execute Discrete,Minus 0ebf e220 | | Load 0x1,0x20 0ec0 035b | [ | Declare_Type Array,Constrained 0ec1 0337 | 7 | Declare_Variable Array 0ec2 00d8 | | Load_Top At_Offset_0 0ec3 01dc | | Execute Vector,Last 0ec4 4801 |H | Short_Literal 0x1 0ec5 0263 | c | Execute Discrete,Above_Bound 0ec6 7005 |p | Jump_Nonzero 0xecc 0ec7 4800 |H | Short_Literal 0x0 0ec8 00d9 | | Load_Top At_Offset_1 0ec9 e605 | | Load 0x3,0x5 0eca 01d6 | | Execute Vector,Field_Write 0ecb 3ffb |? | Loop_Increasing 0xec7 0ecc 01cb | | Execute Vector,Append 0ecd 4802 |H | Short_Literal 0x2 0ece e405 | | Load 0x2,0x5 0ecf e5ff | | Load 0x2,-0x1 0ed0 01cf | | Execute Vector,Slice_Read 0ed1 01cc | | Execute Vector,Catenate 0ed2 00da | | Load_Top At_Offset_2 0ed3 01d4 | | Execute Vector,Structure_Write 0ed4 4801 |H | Short_Literal 0x1 0ed5 e5fe | | Load 0x2,-0x2 0ed6 01d7 | | Execute Vector,Field_Read 0ed7 0274 | t | Execute Discrete,Absolute_Value 0ed8 4801 |H | Short_Literal 0x1 0ed9 e402 | | Load 0x2,0x2 0eda e406 | | Load 0x2,0x6 0edb 0272 | r | Execute Discrete,Minus 0edc e220 | | Load 0x1,0x20 0edd 035b | [ | Declare_Type Array,Constrained 0ede 0337 | 7 | Declare_Variable Array 0edf 00d8 | | Load_Top At_Offset_0 0ee0 01dc | | Execute Vector,Last 0ee1 4801 |H | Short_Literal 0x1 0ee2 0263 | c | Execute Discrete,Above_Bound 0ee3 7005 |p | Jump_Nonzero 0xee9 0ee4 4800 |H | Short_Literal 0x0 0ee5 00d9 | | Load_Top At_Offset_1 0ee6 e605 | | Load 0x3,0x5 0ee7 01d6 | | Execute Vector,Field_Write 0ee8 3ffb |? | Loop_Increasing 0xee4 0ee9 01cb | | Execute Vector,Append 0eea 4802 |H | Short_Literal 0x2 0eeb e406 | | Load 0x2,0x6 0eec e5fe | | Load 0x2,-0x2 0eed 01cf | | Execute Vector,Slice_Read 0eee 01cc | | Execute Vector,Catenate 0eef 00d9 | | Load_Top At_Offset_1 0ef0 01d4 | | Execute Vector,Structure_Write 0ef1 e407 | | Load 0x2,0x7 0ef2 e408 | | Load 0x2,0x8 0ef3 027f | | Execute Discrete,Equal 0ef4 682c |h, | Jump_Zero 0xf21 0ef5 4800 |H | Short_Literal 0x0 0ef6 a403 | | Store_Unchecked 0x2,0x3 0ef7 00cf | | Action Mark_Auxiliary 0ef8 4801 |H | Short_Literal 0x1 0ef9 e402 | | Load 0x2,0x2 0efa 0264 | d | Execute Discrete,Below_Bound 0efb 701d |p | Jump_Nonzero 0xf19 0efc 00d8 | | Load_Top At_Offset_0 0efd e602 | | Load 0x3,0x2 0efe 01d7 | | Execute Vector,Field_Read 0eff 00d9 | | Load_Top At_Offset_1 0f00 e603 | | Load 0x3,0x3 0f01 01d7 | | Execute Vector,Field_Read 0f02 0273 | s | Execute Discrete,Plus 0f03 e403 | | Load 0x2,0x3 0f04 0273 | s | Execute Discrete,Plus 0f05 a404 | | Store_Unchecked 0x2,0x4 0f06 e404 | | Load 0x2,0x4 0f07 6078 |`x | Indirect_Literal Discrete,0xf80,{0x00000000, 0x80000000} 0f08 027b | { | Execute Discrete,Greater_Equal 0f09 6807 |h | Jump_Zero 0xf11 0f0a e404 | | Load 0x2,0x4 0f0b 6070 |`p | Indirect_Literal Discrete,0xf7c,{0xffffffff, 0x80000000} 0f0c 0273 | s | Execute Discrete,Plus 0f0d a404 | | Store_Unchecked 0x2,0x4 0f0e 4801 |H | Short_Literal 0x1 0f0f a403 | | Store_Unchecked 0x2,0x3 0f10 7802 |x | Jump 0xf13 0f11 4800 |H | Short_Literal 0x0 0f12 a403 | | Store_Unchecked 0x2,0x3 0f13 e404 | | Load 0x2,0x4 0f14 00d9 | | Load_Top At_Offset_1 0f15 e602 | | Load 0x3,0x2 0f16 01d6 | | Execute Vector,Field_Write 0f17 00c8 | | Action Pop_Auxiliary_Range 0f18 37e3 |7 | Loop_Decreasing 0xefc 0f19 00ce | | Action Pop_Auxiliary 0f1a e407 | | Load 0x2,0x7 0f1b 00da | | Load_Top At_Offset_2 0f1c 82a4 | | Call 0x1,0xa4 0f1d e220 | | Load 0x1,0x20 0f1e 01c6 | | Execute Vector,Convert_To_Formal 0f1f 00cb | | Action Pop_Block_With_Result 0f20 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f21 4800 |H | Short_Literal 0x0 0f22 a403 | | Store_Unchecked 0x2,0x3 0f23 00cf | | Action Mark_Auxiliary 0f24 4801 |H | Short_Literal 0x1 0f25 e402 | | Load 0x2,0x2 0f26 0264 | d | Execute Discrete,Below_Bound 0f27 701c |p | Jump_Nonzero 0xf44 0f28 00d8 | | Load_Top At_Offset_0 0f29 e602 | | Load 0x3,0x2 0f2a 01d7 | | Execute Vector,Field_Read 0f2b 00d9 | | Load_Top At_Offset_1 0f2c e603 | | Load 0x3,0x3 0f2d 01d7 | | Execute Vector,Field_Read 0f2e 0272 | r | Execute Discrete,Minus 0f2f e403 | | Load 0x2,0x3 0f30 0273 | s | Execute Discrete,Plus 0f31 a404 | | Store_Unchecked 0x2,0x4 0f32 e404 | | Load 0x2,0x4 0f33 0d00 | | Execute_Immediate Less,0x0 0f34 6807 |h | Jump_Zero 0xf3c 0f35 e404 | | Load 0x2,0x4 0f36 6049 |`I | Indirect_Literal Discrete,0xf80,{0x00000000, 0x80000000} 0f37 0273 | s | Execute Discrete,Plus 0f38 a404 | | Store_Unchecked 0x2,0x4 0f39 4fff |O | Short_Literal -0x1 0f3a a403 | | Store_Unchecked 0x2,0x3 0f3b 7802 |x | Jump 0xf3e 0f3c 4800 |H | Short_Literal 0x0 0f3d a403 | | Store_Unchecked 0x2,0x3 0f3e e404 | | Load 0x2,0x4 0f3f 00d9 | | Load_Top At_Offset_1 0f40 e602 | | Load 0x3,0x2 0f41 01d6 | | Execute Vector,Field_Write 0f42 00c8 | | Action Pop_Auxiliary_Range 0f43 37e4 |7 | Loop_Decreasing 0xf28 0f44 00ce | | Action Pop_Auxiliary 0f45 e403 | | Load 0x2,0x3 0f46 7007 |p | Jump_Nonzero 0xf4e 0f47 e407 | | Load 0x2,0x7 0f48 00da | | Load_Top At_Offset_2 0f49 82a4 | | Call 0x1,0xa4 0f4a e220 | | Load 0x1,0x20 0f4b 01c6 | | Execute Vector,Convert_To_Formal 0f4c 00cb | | Action Pop_Block_With_Result 0f4d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f4e 4801 |H | Short_Literal 0x1 0f4f a403 | | Store_Unchecked 0x2,0x3 0f50 00cf | | Action Mark_Auxiliary 0f51 4801 |H | Short_Literal 0x1 0f52 e402 | | Load 0x2,0x2 0f53 0264 | d | Execute Discrete,Below_Bound 0f54 7019 |p | Jump_Nonzero 0xf6e 0f55 6022 |`" | Indirect_Literal Discrete,0xf78,{0x00000000, 0x7fffffff} 0f56 00d9 | | Load_Top At_Offset_1 0f57 e602 | | Load 0x3,0x2 0f58 01d7 | | Execute Vector,Field_Read 0f59 0272 | r | Execute Discrete,Minus 0f5a e403 | | Load 0x2,0x3 0f5b 0273 | s | Execute Discrete,Plus 0f5c a404 | | Store_Unchecked 0x2,0x4 0f5d e404 | | Load 0x2,0x4 0f5e 6021 |`! | Indirect_Literal Discrete,0xf80,{0x00000000, 0x80000000} 0f5f 027f | | Execute Discrete,Equal 0f60 6805 |h | Jump_Zero 0xf66 0f61 4800 |H | Short_Literal 0x0 0f62 a404 | | Store_Unchecked 0x2,0x4 0f63 4801 |H | Short_Literal 0x1 0f64 a403 | | Store_Unchecked 0x2,0x3 0f65 7802 |x | Jump 0xf68 0f66 4800 |H | Short_Literal 0x0 0f67 a403 | | Store_Unchecked 0x2,0x3 0f68 e404 | | Load 0x2,0x4 0f69 00d9 | | Load_Top At_Offset_1 0f6a e602 | | Load 0x3,0x2 0f6b 01d6 | | Execute Vector,Field_Write 0f6c 00c8 | | Action Pop_Auxiliary_Range 0f6d 37e7 |7 | Loop_Decreasing 0xf55 0f6e 00ce | | Action Pop_Auxiliary 0f6f e408 | | Load 0x2,0x8 0f70 00da | | Load_Top At_Offset_2 0f71 82a4 | | Call 0x1,0xa4 0f72 e220 | | Load 0x1,0x20 0f73 01c6 | | Execute Vector,Convert_To_Formal 0f74 00cb | | Action Pop_Block_With_Result 0f75 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f76 0000 0000 | | .XXX[0x2] 0f78 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0f7c ffff ffff | | .LITERAL {0xffffffff, 0x80000000} 0f80 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 0f84 0000 0000 | | .BLANK 0000[0x4] 0f88 ; -------------------------------------------------------------------------------------- 0f88 ; SUBPROGRAM 0f88 ; -------------------------------------------------------------------------------------- 0f88 0fa0 | | .CONST 0x0fa0 ; Address of begin 0f89 0004 | | .CONST 0x0004 ; Address of exception handler 0f8a 0002 | | .CONST 0x0002 ; Number of locals 0f8b INIT_0f88: 0f8b 4801 |H | Short_Literal 0x1 0f8c e5ff | | Load 0x2,-0x1 0f8d 01dc | | Execute Vector,Last 0f8e e405 | | Load 0x2,0x5 0f8f 0272 | r | Execute Discrete,Minus 0f90 0a01 | | Execute_Immediate Plus,0x1 0f91 00d8 | | Load_Top At_Offset_0 0f92 00e2 | | Load_Encached Integer_Cache 0f93 0260 | ` | Execute Discrete,In_Type 0f94 7001 |p | Jump_Nonzero 0xf96 0f95 0801 | | Execute_Immediate Raise,0x1 0f96 e220 | | Load 0x1,0x20 0f97 035b | [ | Declare_Type Array,Constrained 0f98 0337 | 7 | Declare_Variable Array 0f99 e405 | | Load 0x2,0x5 0f9a e5ff | | Load 0x2,-0x1 0f9b 01dc | | Execute Vector,Last 0f9c e5ff | | Load 0x2,-0x1 0f9d 01cf | | Execute Vector,Slice_Read 0f9e 00d9 | | Load_Top At_Offset_1 0f9f 01d4 | | Execute Vector,Structure_Write 0fa0 BODY_0f88: 0fa0 e5fe | | Load 0x2,-0x2 0fa1 6807 |h | Jump_Zero 0xfa9 0fa2 4801 |H | Short_Literal 0x1 0fa3 00d9 | | Load_Top At_Offset_1 0fa4 01d7 | | Execute Vector,Field_Read 0fa5 0275 | u | Execute Discrete,Unary_Minus 0fa6 4801 |H | Short_Literal 0x1 0fa7 00da | | Load_Top At_Offset_2 0fa8 01d6 | | Execute Vector,Field_Write 0fa9 00d8 | | Load_Top At_Offset_0 0faa e220 | | Load 0x1,0x20 0fab 01c6 | | Execute Vector,Convert_To_Formal 0fac 00cb | | Action Pop_Block_With_Result 0fad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0fae 0000 0000 | | .XXX[0x2] 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 ; SUBPROGRAM 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 0fc7 | | .CONST 0x0fc7 ; Address of begin 0fb1 0004 | | .CONST 0x0004 ; Address of exception handler 0fb2 0004 | | .CONST 0x0004 ; Number of locals 0fb3 INIT_0fb0: 0fb3 e5ff | | Load 0x2,-0x1 0fb4 01da | | Execute Vector,Bounds 0fb5 e220 | | Load 0x1,0x20 0fb6 035b | [ | Declare_Type Array,Constrained 0fb7 0337 | 7 | Declare_Variable Array 0fb8 e5ff | | Load 0x2,-0x1 0fb9 00d9 | | Load_Top At_Offset_1 0fba 01d4 | | Execute Vector,Structure_Write 0fbb 4801 |H | Short_Literal 0x1 0fbc e5fe | | Load 0x2,-0x2 0fbd 01d7 | | Execute Vector,Field_Read 0fbe 0274 | t | Execute Discrete,Absolute_Value 0fbf e21f | | Load 0x1,0x1f 0fc0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0fc1 4801 |H | Short_Literal 0x1 0fc2 e404 | | Load 0x2,0x4 0fc3 0901 | | Execute_Immediate Binary_Scale,0x1 0fc4 0272 | r | Execute Discrete,Minus 0fc5 e21f | | Load 0x1,0x1f 0fc6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0fc7 BODY_0fb0: 0fc7 00d9 | | Load_Top At_Offset_1 0fc8 00db | | Load_Top At_Offset_3 0fc9 82a7 | | Call 0x1,0xa7 0fca 00d1 | | Pop_Control Pop_Count_1 0fcb 005a | Z | Store_Top Discrete,At_Offset_2 0fcc e5fd | | Load 0x2,-0x3 0fcd 4602 |F | Jump_Case 0x3 0fce 7815 |x | Jump 0xfe4 ; case 0x0 0fcf 781d |x | Jump 0xfed ; case 0x1 0fd0 7800 |x | Jump 0xfd1 ; case 0x2 0fd1 4801 |H | Short_Literal 0x1 0fd2 4801 |H | Short_Literal 0x1 0fd3 e220 | | Load 0x1,0x20 0fd4 035b | [ | Declare_Type Array,Constrained 0fd5 0337 | 7 | Declare_Variable Array 0fd6 00d9 | | Load_Top At_Offset_1 0fd7 00db | | Load_Top At_Offset_3 0fd8 0271 | q | Execute Discrete,Times 0fd9 4801 |H | Short_Literal 0x1 0fda 00da | | Load_Top At_Offset_2 0fdb 01d6 | | Execute Vector,Field_Write 0fdc e405 | | Load 0x2,0x5 0fdd e602 | | Load 0x3,0x2 0fde 82a4 | | Call 0x1,0xa4 0fdf 82a5 | | Call 0x1,0xa5 0fe0 e233 | 3 | Load 0x1,0x33 0fe1 0165 | e | Execute Variant_Record,Convert 0fe2 00cb | | Action Pop_Block_With_Result 0fe3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0fe4 e294 | | Load 0x1,0x94 0fe5 e405 | | Load 0x2,0x5 0fe6 e602 | | Load 0x3,0x2 0fe7 82a4 | | Call 0x1,0xa4 0fe8 82a5 | | Call 0x1,0xa5 0fe9 e233 | 3 | Load 0x1,0x33 0fea 0165 | e | Execute Variant_Record,Convert 0feb 00cb | | Action Pop_Block_With_Result 0fec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0fed 4800 |H | Short_Literal 0x0 0fee 4801 |H | Short_Literal 0x1 0fef e233 | 3 | Load 0x1,0x33 0ff0 1c08 | | Execute_Immediate Run_Utility,0x8 0ff1 e294 | | Load 0x1,0x94 0ff2 00d9 | | Load_Top At_Offset_1 0ff3 00d8 | | Load_Top At_Offset_0 0ff4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ff5 00da | | Load_Top At_Offset_2 0ff6 01da | | Execute Vector,Bounds 0ff7 00da | | Load_Top At_Offset_2 0ff8 01da | | Execute Vector,Bounds 0ff9 00da | | Load_Top At_Offset_2 0ffa 027f | | Execute Discrete,Equal 0ffb 7001 |p | Jump_Nonzero 0xffd 0ffc 08e0 | | Execute_Immediate Raise,0xe0 0ffd 00cd | | Action Spare6_Action 0ffe 027f | | Execute Discrete,Equal 0fff 7001 |p | Jump_Nonzero 0x1001 1000 08e0 | | Execute_Immediate Raise,0xe0 1001 00d2 | | Pop_Control Pop_Count_2 1002 00d9 | | Load_Top At_Offset_1 1003 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1004 4801 |H | Short_Literal 0x1 1005 4801 |H | Short_Literal 0x1 1006 e220 | | Load 0x1,0x20 1007 035b | [ | Declare_Type Array,Constrained 1008 0337 | 7 | Declare_Variable Array 1009 00da | | Load_Top At_Offset_2 100a e603 | | Load 0x3,0x3 100b 0271 | q | Execute Discrete,Times 100c 4801 |H | Short_Literal 0x1 100d 00da | | Load_Top At_Offset_2 100e 01d6 | | Execute Vector,Field_Write 100f 00d9 | | Load_Top At_Offset_1 1010 00d8 | | Load_Top At_Offset_0 1011 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 1012 00da | | Load_Top At_Offset_2 1013 01da | | Execute Vector,Bounds 1014 00da | | Load_Top At_Offset_2 1015 01da | | Execute Vector,Bounds 1016 00da | | Load_Top At_Offset_2 1017 027f | | Execute Discrete,Equal 1018 7001 |p | Jump_Nonzero 0x101a 1019 08e0 | | Execute_Immediate Raise,0xe0 101a 00cd | | Action Spare6_Action 101b 027f | | Execute Discrete,Equal 101c 7001 |p | Jump_Nonzero 0x101e 101d 08e0 | | Execute_Immediate Raise,0xe0 101e 00d2 | | Pop_Control Pop_Count_2 101f 00d9 | | Load_Top At_Offset_1 1020 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 1021 00cb | | Action Pop_Block_With_Result 1022 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1023 0000 0000 | | .BLANK 0000[0x5] 1028 ; -------------------------------------------------------------------------------------- 1028 ; SUBPROGRAM 1028 ; -------------------------------------------------------------------------------------- 1028 1075 | u | .CONST 0x1075 ; Address of begin 1029 0004 | | .CONST 0x0004 ; Address of exception handler 102a 000b | | .CONST 0x000b ; Number of locals 102b INIT_1028: 102b 612c |a, | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 102c 4801 |H | Short_Literal 0x1 102d e5fe | | Load 0x2,-0x2 102e 01d7 | | Execute Vector,Field_Read 102f 0274 | t | Execute Discrete,Absolute_Value 1030 0a01 | | Execute_Immediate Plus,0x1 1031 0270 | p | Execute Discrete,Divide 1032 00e5 | | Load_Encached Long_Integer_Cache 1033 03f1 | | Declare_Variable Discrete,With_Value 1034 4801 |H | Short_Literal 0x1 1035 e402 | | Load 0x2,0x2 1036 0a01 | | Execute_Immediate Plus,0x1 1037 00d8 | | Load_Top At_Offset_0 1038 00e2 | | Load_Encached Integer_Cache 1039 0260 | ` | Execute Discrete,In_Type 103a 7001 |p | Jump_Nonzero 0x103c 103b 0801 | | Execute_Immediate Raise,0x1 103c e220 | | Load 0x1,0x20 103d 035b | [ | Declare_Type Array,Constrained 103e 0337 | 7 | Declare_Variable Array 103f 00d9 | | Load_Top At_Offset_1 1040 00d8 | | Load_Top At_Offset_0 1041 e21f | | Load 0x1,0x1f 1042 0260 | ` | Execute Discrete,In_Type 1043 7001 |p | Jump_Nonzero 0x1045 1044 0801 | | Execute_Immediate Raise,0x1 1045 4800 |H | Short_Literal 0x0 1046 e5ff | | Load 0x2,-0x1 1047 01ca | | Execute Vector,Prepend 1048 82a6 | | Call 0x1,0xa6 1049 00d9 | | Load_Top At_Offset_1 104a 01d4 | | Execute Vector,Structure_Write 104b 4801 |H | Short_Literal 0x1 104c e403 | | Load 0x2,0x3 104d e220 | | Load 0x1,0x20 104e 035b | [ | Declare_Type Array,Constrained 104f 0337 | 7 | Declare_Variable Array 1050 00da | | Load_Top At_Offset_2 1051 00d8 | | Load_Top At_Offset_0 1052 e21f | | Load 0x1,0x1f 1053 0260 | ` | Execute Discrete,In_Type 1054 7001 |p | Jump_Nonzero 0x1056 1055 0801 | | Execute_Immediate Raise,0x1 1056 e5fe | | Load 0x2,-0x2 1057 82a6 | | Call 0x1,0xa6 1058 00d9 | | Load_Top At_Offset_1 1059 01d4 | | Execute Vector,Structure_Write 105a 4801 |H | Short_Literal 0x1 105b 00d9 | | Load_Top At_Offset_1 105c 01d7 | | Execute Vector,Field_Read 105d 00e5 | | Load_Encached Long_Integer_Cache 105e 03f1 | | Declare_Variable Discrete,With_Value 105f 4802 |H | Short_Literal 0x2 1060 00da | | Load_Top At_Offset_2 1061 01d7 | | Execute Vector,Field_Read 1062 00e5 | | Load_Encached Long_Integer_Cache 1063 03f1 | | Declare_Variable Discrete,With_Value 1064 4801 |H | Short_Literal 0x1 1065 e402 | | Load 0x2,0x2 1066 e403 | | Load 0x2,0x3 1067 0272 | r | Execute Discrete,Minus 1068 0a01 | | Execute_Immediate Plus,0x1 1069 00d8 | | Load_Top At_Offset_0 106a 00e2 | | Load_Encached Integer_Cache 106b 0260 | ` | Execute Discrete,In_Type 106c 7001 |p | Jump_Nonzero 0x106e 106d 0801 | | Execute_Immediate Raise,0x1 106e e220 | | Load 0x1,0x20 106f 035b | [ | Declare_Type Array,Constrained 1070 0337 | 7 | Declare_Variable Array 1071 00e5 | | Load_Encached Long_Integer_Cache 1072 00e5 | | Load_Encached Long_Integer_Cache 1073 03e9 | | Declare_Variable Discrete,Duplicate 1074 00e5 | | Load_Encached Long_Integer_Cache 1075 BODY_1028: 1075 00cf | | Action Mark_Auxiliary 1076 e607 | | Load 0x3,0x7 1077 01d9 | | Execute Vector,Reverse_Bounds 1078 0263 | c | Execute Discrete,Above_Bound 1079 70a4 |p | Jump_Nonzero 0x111e 107a 00d8 | | Load_Top At_Offset_0 107b e603 | | Load 0x3,0x3 107c 01d7 | | Execute Vector,Field_Read 107d 091f | | Execute_Immediate Binary_Scale,0x1f 107e 00d9 | | Load_Top At_Offset_1 107f 0a01 | | Execute_Immediate Plus,0x1 1080 e603 | | Load 0x3,0x3 1081 01d7 | | Execute Vector,Field_Read 1082 0273 | s | Execute Discrete,Plus 1083 a60a | | Store_Unchecked 0x3,0xa 1084 00d8 | | Load_Top At_Offset_0 1085 e603 | | Load 0x3,0x3 1086 01d7 | | Execute Vector,Field_Read 1087 e605 | | Load 0x3,0x5 1088 027e | ~ | Execute Discrete,Not_Equal 1089 6805 |h | Jump_Zero 0x108f 108a e60a | | Load 0x3,0xa 108b e605 | | Load 0x3,0x5 108c 0270 | p | Execute Discrete,Divide 108d a60b | | Store_Unchecked 0x3,0xb 108e 7802 |x | Jump 0x1091 108f 60c4 |` | Indirect_Literal Discrete,0x1154,{0x00000000, 0x7fffffff} 1090 a60b | | Store_Unchecked 0x3,0xb 1091 00cf | | Action Mark_Auxiliary 1092 7804 |x | Jump 0x1097 1093 e60b | | Load 0x3,0xb 1094 0aff | | Execute_Immediate Plus,-0x1 1095 a60b | | Store_Unchecked 0x3,0xb 1096 00c9 | | Action Pop_Auxiliary_Loop 1097 e606 | | Load 0x3,0x6 1098 e60b | | Load 0x3,0xb 1099 0271 | q | Execute Discrete,Times 109a e60a | | Load 0x3,0xa 109b e60b | | Load 0x3,0xb 109c e605 | | Load 0x3,0x5 109d 0271 | q | Execute Discrete,Times 109e 0272 | r | Execute Discrete,Minus 109f 091f | | Execute_Immediate Binary_Scale,0x1f 10a0 00db | | Load_Top At_Offset_3 10a1 0a02 | | Execute_Immediate Plus,0x2 10a2 e603 | | Load 0x3,0x3 10a3 01d7 | | Execute Vector,Field_Read 10a4 0273 | s | Execute Discrete,Plus 10a5 027d | } | Execute Discrete,Greater 10a6 77ec |w | Jump_Nonzero 0x1093 10a7 00ce | | Action Pop_Auxiliary 10a8 4800 |H | Short_Literal 0x0 10a9 a609 | | Store_Unchecked 0x3,0x9 10aa 00cf | | Action Mark_Auxiliary 10ab e604 | | Load 0x3,0x4 10ac 01da | | Execute Vector,Bounds 10ad 0264 | d | Execute Discrete,Below_Bound 10ae 7027 |p' | Jump_Nonzero 0x10d6 10af 00db | | Load_Top At_Offset_3 10b0 00d9 | | Load_Top At_Offset_1 10b1 0273 | s | Execute Discrete,Plus 10b2 e603 | | Load 0x3,0x3 10b3 01d7 | | Execute Vector,Field_Read 10b4 e60b | | Load 0x3,0xb 10b5 00da | | Load_Top At_Offset_2 10b6 e604 | | Load 0x3,0x4 10b7 01d7 | | Execute Vector,Field_Read 10b8 0271 | q | Execute Discrete,Times 10b9 0272 | r | Execute Discrete,Minus 10ba e609 | | Load 0x3,0x9 10bb 0273 | s | Execute Discrete,Plus 10bc a60a | | Store_Unchecked 0x3,0xa 10bd e60a | | Load 0x3,0xa 10be 6099 |` | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 10bf 026f | o | Execute Discrete,Remainder 10c0 a608 | | Store_Unchecked 0x3,0x8 10c1 e60a | | Load 0x3,0xa 10c2 09e1 | | Execute_Immediate Binary_Scale,-0x1f 10c3 a609 | | Store_Unchecked 0x3,0x9 10c4 e608 | | Load 0x3,0x8 10c5 0d00 | | Execute_Immediate Less,0x0 10c6 6807 |h | Jump_Zero 0x10ce 10c7 e608 | | Load 0x3,0x8 10c8 608f |` | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 10c9 0273 | s | Execute Discrete,Plus 10ca a608 | | Store_Unchecked 0x3,0x8 10cb e609 | | Load 0x3,0x9 10cc 0aff | | Execute_Immediate Plus,-0x1 10cd a609 | | Store_Unchecked 0x3,0x9 10ce e608 | | Load 0x3,0x8 10cf e60e | | Load 0x3,0xe 10d0 00da | | Load_Top At_Offset_2 10d1 0273 | s | Execute Discrete,Plus 10d2 e603 | | Load 0x3,0x3 10d3 01d6 | | Execute Vector,Field_Write 10d4 00c8 | | Action Pop_Auxiliary_Range 10d5 37d9 |7 | Loop_Decreasing 0x10af 10d6 00ce | | Action Pop_Auxiliary 10d7 00d8 | | Load_Top At_Offset_0 10d8 e603 | | Load 0x3,0x3 10d9 01d7 | | Execute Vector,Field_Read 10da e609 | | Load 0x3,0x9 10db 0273 | s | Execute Discrete,Plus 10dc 00d9 | | Load_Top At_Offset_1 10dd e603 | | Load 0x3,0x3 10de 01d6 | | Execute Vector,Field_Write 10df 00d8 | | Load_Top At_Offset_0 10e0 e603 | | Load 0x3,0x3 10e1 01d7 | | Execute Vector,Field_Read 10e2 0d00 | | Execute_Immediate Less,0x0 10e3 6834 |h4 | Jump_Zero 0x1118 10e4 00db | | Load_Top At_Offset_3 10e5 0aff | | Execute_Immediate Plus,-0x1 10e6 a60b | | Store_Unchecked 0x3,0xb 10e7 4800 |H | Short_Literal 0x0 10e8 a609 | | Store_Unchecked 0x3,0x9 10e9 00cf | | Action Mark_Auxiliary 10ea e604 | | Load 0x3,0x4 10eb 01da | | Execute Vector,Bounds 10ec 0264 | d | Execute Discrete,Below_Bound 10ed 7021 |p! | Jump_Nonzero 0x110f 10ee 00db | | Load_Top At_Offset_3 10ef 00d9 | | Load_Top At_Offset_1 10f0 0273 | s | Execute Discrete,Plus 10f1 e603 | | Load 0x3,0x3 10f2 01d7 | | Execute Vector,Field_Read 10f3 00d9 | | Load_Top At_Offset_1 10f4 e604 | | Load 0x3,0x4 10f5 01d7 | | Execute Vector,Field_Read 10f6 0273 | s | Execute Discrete,Plus 10f7 e609 | | Load 0x3,0x9 10f8 0273 | s | Execute Discrete,Plus 10f9 a60a | | Store_Unchecked 0x3,0xa 10fa e60a | | Load 0x3,0xa 10fb 605c |`\ | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 10fc 027b | { | Execute Discrete,Greater_Equal 10fd 6807 |h | Jump_Zero 0x1105 10fe e60a | | Load 0x3,0xa 10ff 6050 |`P | Indirect_Literal Discrete,0x1150,{0xffffffff, 0x80000000} 1100 0273 | s | Execute Discrete,Plus 1101 a60a | | Store_Unchecked 0x3,0xa 1102 4801 |H | Short_Literal 0x1 1103 a609 | | Store_Unchecked 0x3,0x9 1104 7802 |x | Jump 0x1107 1105 4800 |H | Short_Literal 0x0 1106 a609 | | Store_Unchecked 0x3,0x9 1107 e60a | | Load 0x3,0xa 1108 e60e | | Load 0x3,0xe 1109 00da | | Load_Top At_Offset_2 110a 0273 | s | Execute Discrete,Plus 110b e603 | | Load 0x3,0x3 110c 01d6 | | Execute Vector,Field_Write 110d 00c8 | | Action Pop_Auxiliary_Range 110e 37df |7 | Loop_Decreasing 0x10ee 110f 00ce | | Action Pop_Auxiliary 1110 00d8 | | Load_Top At_Offset_0 1111 e603 | | Load 0x3,0x3 1112 01d7 | | Execute Vector,Field_Read 1113 e609 | | Load 0x3,0x9 1114 0273 | s | Execute Discrete,Plus 1115 00d9 | | Load_Top At_Offset_1 1116 e603 | | Load 0x3,0x3 1117 01d6 | | Execute Vector,Field_Write 1118 00db | | Load_Top At_Offset_3 1119 00d9 | | Load_Top At_Offset_1 111a e607 | | Load 0x3,0x7 111b 01d6 | | Execute Vector,Field_Write 111c 00c8 | | Action Pop_Auxiliary_Range 111d 3f5c |?\ | Loop_Increasing 0x107a 111e 00ce | | Action Pop_Auxiliary 111f e602 | | Load 0x3,0x2 1120 0c02 | | Execute_Immediate Greater_Equal,0x2 1121 6809 |h | Jump_Zero 0x112b 1122 e5fd | | Load 0x2,-0x3 1123 6807 |h | Jump_Zero 0x112b 1124 e602 | | Load 0x3,0x2 1125 e21f | | Load 0x1,0x1f 1126 025e | ^ | Execute Discrete,Convert 1127 e603 | | Load 0x3,0x3 1128 82a7 | | Call 0x1,0xa7 1129 00d1 | | Pop_Control Pop_Count_1 112a c602 | | Store 0x3,0x2 112b e5fd | | Load 0x2,-0x3 112c 4602 |F | Jump_Case 0x3 112d 780d |x | Jump 0x113b ; case 0x0 112e 7815 |x | Jump 0x1144 ; case 0x1 112f 7800 |x | Jump 0x1130 ; case 0x2 1130 e404 | | Load 0x2,0x4 1131 e603 | | Load 0x3,0x3 1132 82a4 | | Call 0x1,0xa4 1133 e405 | | Load 0x2,0x5 1134 e607 | | Load 0x3,0x7 1135 82a4 | | Call 0x1,0xa4 1136 82a5 | | Call 0x1,0xa5 1137 e233 | 3 | Load 0x1,0x33 1138 0165 | e | Execute Variant_Record,Convert 1139 00cb | | Action Pop_Block_With_Result 113a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 113b e294 | | Load 0x1,0x94 113c e405 | | Load 0x2,0x5 113d e607 | | Load 0x3,0x7 113e 82a4 | | Call 0x1,0xa4 113f 82a5 | | Call 0x1,0xa5 1140 e233 | 3 | Load 0x1,0x33 1141 0165 | e | Execute Variant_Record,Convert 1142 00cb | | Action Pop_Block_With_Result 1143 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1144 e404 | | Load 0x2,0x4 1145 e603 | | Load 0x3,0x3 1146 82a4 | | Call 0x1,0xa4 1147 e294 | | Load 0x1,0x94 1148 82a5 | | Call 0x1,0xa5 1149 e233 | 3 | Load 0x1,0x33 114a 0165 | e | Execute Variant_Record,Convert 114b 00cb | | Action Pop_Block_With_Result 114c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 114d 0000 0000 | | .XXX[0x3] 114f 0000 | | 1150 ffff ffff | | .LITERAL {0xffffffff, 0x80000000} 1154 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 1158 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 115c 0000 0000 | | .BLANK 0000[0x4] 1160 ; -------------------------------------------------------------------------------------- 1160 ; SUBPROGRAM 1160 ; -------------------------------------------------------------------------------------- 1160 118f | | .CONST 0x118f ; Address of begin 1161 0004 | | .CONST 0x0004 ; Address of exception handler 1162 000b | | .CONST 0x000b ; Number of locals 1163 INIT_1160: 1163 67f4 |g | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 1164 e403 | | Load 0x2,0x3 1165 e5fe | | Load 0x2,-0x2 1166 01d7 | | Execute Vector,Field_Read 1167 0274 | t | Execute Discrete,Absolute_Value 1168 0a01 | | Execute_Immediate Plus,0x1 1169 0270 | p | Execute Discrete,Divide 116a 00e5 | | Load_Encached Long_Integer_Cache 116b 03f1 | | Declare_Variable Discrete,With_Value 116c 4801 |H | Short_Literal 0x1 116d e404 | | Load 0x2,0x4 116e 0a01 | | Execute_Immediate Plus,0x1 116f 00d8 | | Load_Top At_Offset_0 1170 00e2 | | Load_Encached Integer_Cache 1171 0260 | ` | Execute Discrete,In_Type 1172 7001 |p | Jump_Nonzero 0x1174 1173 0801 | | Execute_Immediate Raise,0x1 1174 e220 | | Load 0x1,0x20 1175 035b | [ | Declare_Type Array,Constrained 1176 0337 | 7 | Declare_Variable Array 1177 4801 |H | Short_Literal 0x1 1178 e405 | | Load 0x2,0x5 1179 e220 | | Load 0x1,0x20 117a 035b | [ | Declare_Type Array,Constrained 117b 0337 | 7 | Declare_Variable Array 117c 00e5 | | Load_Encached Long_Integer_Cache 117d 00e5 | | Load_Encached Long_Integer_Cache 117e 4801 |H | Short_Literal 0x1 117f e404 | | Load 0x2,0x4 1180 e405 | | Load 0x2,0x5 1181 0272 | r | Execute Discrete,Minus 1182 0a01 | | Execute_Immediate Plus,0x1 1183 00d8 | | Load_Top At_Offset_0 1184 00e2 | | Load_Encached Integer_Cache 1185 0260 | ` | Execute Discrete,In_Type 1186 7001 |p | Jump_Nonzero 0x1188 1187 0801 | | Execute_Immediate Raise,0x1 1188 e220 | | Load 0x1,0x20 1189 035b | [ | Declare_Type Array,Constrained 118a 0337 | 7 | Declare_Variable Array 118b 00e5 | | Load_Encached Long_Integer_Cache 118c 00e5 | | Load_Encached Long_Integer_Cache 118d 03e9 | | Declare_Variable Discrete,Duplicate 118e 00e5 | | Load_Encached Long_Integer_Cache 118f BODY_1160: 118f e603 | | Load 0x3,0x3 1190 e402 | | Load 0x2,0x2 1191 e5ff | | Load 0x2,-0x1 1192 01dc | | Execute Vector,Last 1193 e5ff | | Load 0x2,-0x1 1194 01cf | | Execute Vector,Slice_Read 1195 82a1 | | Call 0x1,0xa1 1196 00d1 | | Pop_Control Pop_Count_1 1197 e604 | | Load 0x3,0x4 1198 e403 | | Load 0x2,0x3 1199 e5fe | | Load 0x2,-0x2 119a 01dc | | Execute Vector,Last 119b e5fe | | Load 0x2,-0x2 119c 01cf | | Execute Vector,Slice_Read 119d 82a1 | | Call 0x1,0xa1 119e 00d1 | | Pop_Control Pop_Count_1 119f 4802 |H | Short_Literal 0x2 11a0 e603 | | Load 0x3,0x3 11a1 01d7 | | Execute Vector,Field_Read 11a2 0274 | t | Execute Discrete,Absolute_Value 11a3 4802 |H | Short_Literal 0x2 11a4 e603 | | Load 0x3,0x3 11a5 01d6 | | Execute Vector,Field_Write 11a6 4801 |H | Short_Literal 0x1 11a7 e604 | | Load 0x3,0x4 11a8 01d7 | | Execute Vector,Field_Read 11a9 0274 | t | Execute Discrete,Absolute_Value 11aa 4801 |H | Short_Literal 0x1 11ab e604 | | Load 0x3,0x4 11ac 01d6 | | Execute Vector,Field_Write 11ad e602 | | Load 0x3,0x2 11ae 0c02 | | Execute_Immediate Greater_Equal,0x2 11af 6812 |h | Jump_Zero 0x11c2 11b0 e603 | | Load 0x3,0x3 11b1 e602 | | Load 0x3,0x2 11b2 00d8 | | Load_Top At_Offset_0 11b3 e21f | | Load 0x1,0x1f 11b4 0260 | ` | Execute Discrete,In_Type 11b5 7001 |p | Jump_Nonzero 0x11b7 11b6 0801 | | Execute_Immediate Raise,0x1 11b7 82aa | | Call 0x1,0xaa 11b8 00d1 | | Pop_Control Pop_Count_1 11b9 e604 | | Load 0x3,0x4 11ba e602 | | Load 0x3,0x2 11bb 00d8 | | Load_Top At_Offset_0 11bc e21f | | Load 0x1,0x1f 11bd 0260 | ` | Execute Discrete,In_Type 11be 7001 |p | Jump_Nonzero 0x11c0 11bf 0801 | | Execute_Immediate Raise,0x1 11c0 82aa | | Call 0x1,0xaa 11c1 00d1 | | Pop_Control Pop_Count_1 11c2 4801 |H | Short_Literal 0x1 11c3 e604 | | Load 0x3,0x4 11c4 01d7 | | Execute Vector,Field_Read 11c5 a605 | | Store_Unchecked 0x3,0x5 11c6 4802 |H | Short_Literal 0x2 11c7 e604 | | Load 0x3,0x4 11c8 01d7 | | Execute Vector,Field_Read 11c9 a606 | | Store_Unchecked 0x3,0x6 11ca 00cf | | Action Mark_Auxiliary 11cb e607 | | Load 0x3,0x7 11cc 01d9 | | Execute Vector,Reverse_Bounds 11cd 0263 | c | Execute Discrete,Above_Bound 11ce 70a4 |p | Jump_Nonzero 0x1273 11cf 00d8 | | Load_Top At_Offset_0 11d0 e603 | | Load 0x3,0x3 11d1 01d7 | | Execute Vector,Field_Read 11d2 091f | | Execute_Immediate Binary_Scale,0x1f 11d3 00d9 | | Load_Top At_Offset_1 11d4 0a01 | | Execute_Immediate Plus,0x1 11d5 e603 | | Load 0x3,0x3 11d6 01d7 | | Execute Vector,Field_Read 11d7 0273 | s | Execute Discrete,Plus 11d8 a60a | | Store_Unchecked 0x3,0xa 11d9 00d8 | | Load_Top At_Offset_0 11da e603 | | Load 0x3,0x3 11db 01d7 | | Execute Vector,Field_Read 11dc e605 | | Load 0x3,0x5 11dd 027e | ~ | Execute Discrete,Not_Equal 11de 6805 |h | Jump_Zero 0x11e4 11df e60a | | Load 0x3,0xa 11e0 e605 | | Load 0x3,0x5 11e1 0270 | p | Execute Discrete,Divide 11e2 a60b | | Store_Unchecked 0x3,0xb 11e3 7802 |x | Jump 0x11e6 11e4 676f |go | Indirect_Literal Discrete,0x1154,{0x00000000, 0x7fffffff} 11e5 a60b | | Store_Unchecked 0x3,0xb 11e6 00cf | | Action Mark_Auxiliary 11e7 7804 |x | Jump 0x11ec 11e8 e60b | | Load 0x3,0xb 11e9 0aff | | Execute_Immediate Plus,-0x1 11ea a60b | | Store_Unchecked 0x3,0xb 11eb 00c9 | | Action Pop_Auxiliary_Loop 11ec e606 | | Load 0x3,0x6 11ed e60b | | Load 0x3,0xb 11ee 0271 | q | Execute Discrete,Times 11ef e60a | | Load 0x3,0xa 11f0 e60b | | Load 0x3,0xb 11f1 e605 | | Load 0x3,0x5 11f2 0271 | q | Execute Discrete,Times 11f3 0272 | r | Execute Discrete,Minus 11f4 091f | | Execute_Immediate Binary_Scale,0x1f 11f5 00db | | Load_Top At_Offset_3 11f6 0a02 | | Execute_Immediate Plus,0x2 11f7 e603 | | Load 0x3,0x3 11f8 01d7 | | Execute Vector,Field_Read 11f9 0273 | s | Execute Discrete,Plus 11fa 027d | } | Execute Discrete,Greater 11fb 77ec |w | Jump_Nonzero 0x11e8 11fc 00ce | | Action Pop_Auxiliary 11fd 4800 |H | Short_Literal 0x0 11fe a609 | | Store_Unchecked 0x3,0x9 11ff 00cf | | Action Mark_Auxiliary 1200 e604 | | Load 0x3,0x4 1201 01da | | Execute Vector,Bounds 1202 0264 | d | Execute Discrete,Below_Bound 1203 7027 |p' | Jump_Nonzero 0x122b 1204 00db | | Load_Top At_Offset_3 1205 00d9 | | Load_Top At_Offset_1 1206 0273 | s | Execute Discrete,Plus 1207 e603 | | Load 0x3,0x3 1208 01d7 | | Execute Vector,Field_Read 1209 e60b | | Load 0x3,0xb 120a 00da | | Load_Top At_Offset_2 120b e604 | | Load 0x3,0x4 120c 01d7 | | Execute Vector,Field_Read 120d 0271 | q | Execute Discrete,Times 120e 0272 | r | Execute Discrete,Minus 120f e609 | | Load 0x3,0x9 1210 0273 | s | Execute Discrete,Plus 1211 a60a | | Store_Unchecked 0x3,0xa 1212 e60a | | Load 0x3,0xa 1213 6744 |gD | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 1214 026f | o | Execute Discrete,Remainder 1215 a608 | | Store_Unchecked 0x3,0x8 1216 e60a | | Load 0x3,0xa 1217 09e1 | | Execute_Immediate Binary_Scale,-0x1f 1218 a609 | | Store_Unchecked 0x3,0x9 1219 e608 | | Load 0x3,0x8 121a 0d00 | | Execute_Immediate Less,0x0 121b 6807 |h | Jump_Zero 0x1223 121c e608 | | Load 0x3,0x8 121d 673a |g: | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 121e 0273 | s | Execute Discrete,Plus 121f a608 | | Store_Unchecked 0x3,0x8 1220 e609 | | Load 0x3,0x9 1221 0aff | | Execute_Immediate Plus,-0x1 1222 a609 | | Store_Unchecked 0x3,0x9 1223 e608 | | Load 0x3,0x8 1224 e60e | | Load 0x3,0xe 1225 00da | | Load_Top At_Offset_2 1226 0273 | s | Execute Discrete,Plus 1227 e603 | | Load 0x3,0x3 1228 01d6 | | Execute Vector,Field_Write 1229 00c8 | | Action Pop_Auxiliary_Range 122a 37d9 |7 | Loop_Decreasing 0x1204 122b 00ce | | Action Pop_Auxiliary 122c 00d8 | | Load_Top At_Offset_0 122d e603 | | Load 0x3,0x3 122e 01d7 | | Execute Vector,Field_Read 122f e609 | | Load 0x3,0x9 1230 0273 | s | Execute Discrete,Plus 1231 00d9 | | Load_Top At_Offset_1 1232 e603 | | Load 0x3,0x3 1233 01d6 | | Execute Vector,Field_Write 1234 00d8 | | Load_Top At_Offset_0 1235 e603 | | Load 0x3,0x3 1236 01d7 | | Execute Vector,Field_Read 1237 0d00 | | Execute_Immediate Less,0x0 1238 6834 |h4 | Jump_Zero 0x126d 1239 00db | | Load_Top At_Offset_3 123a 0aff | | Execute_Immediate Plus,-0x1 123b a60b | | Store_Unchecked 0x3,0xb 123c 4800 |H | Short_Literal 0x0 123d a609 | | Store_Unchecked 0x3,0x9 123e 00cf | | Action Mark_Auxiliary 123f e604 | | Load 0x3,0x4 1240 01da | | Execute Vector,Bounds 1241 0264 | d | Execute Discrete,Below_Bound 1242 7021 |p! | Jump_Nonzero 0x1264 1243 00db | | Load_Top At_Offset_3 1244 00d9 | | Load_Top At_Offset_1 1245 0273 | s | Execute Discrete,Plus 1246 e603 | | Load 0x3,0x3 1247 01d7 | | Execute Vector,Field_Read 1248 00d9 | | Load_Top At_Offset_1 1249 e604 | | Load 0x3,0x4 124a 01d7 | | Execute Vector,Field_Read 124b 0273 | s | Execute Discrete,Plus 124c e609 | | Load 0x3,0x9 124d 0273 | s | Execute Discrete,Plus 124e a60a | | Store_Unchecked 0x3,0xa 124f e60a | | Load 0x3,0xa 1250 6707 |g | Indirect_Literal Discrete,0x1158,{0x00000000, 0x80000000} 1251 027b | { | Execute Discrete,Greater_Equal 1252 6807 |h | Jump_Zero 0x125a 1253 e60a | | Load 0x3,0xa 1254 66fb |f | Indirect_Literal Discrete,0x1150,{0xffffffff, 0x80000000} 1255 0273 | s | Execute Discrete,Plus 1256 a60a | | Store_Unchecked 0x3,0xa 1257 4801 |H | Short_Literal 0x1 1258 a609 | | Store_Unchecked 0x3,0x9 1259 7802 |x | Jump 0x125c 125a 4800 |H | Short_Literal 0x0 125b a609 | | Store_Unchecked 0x3,0x9 125c e60a | | Load 0x3,0xa 125d e60e | | Load 0x3,0xe 125e 00da | | Load_Top At_Offset_2 125f 0273 | s | Execute Discrete,Plus 1260 e603 | | Load 0x3,0x3 1261 01d6 | | Execute Vector,Field_Write 1262 00c8 | | Action Pop_Auxiliary_Range 1263 37df |7 | Loop_Decreasing 0x1243 1264 00ce | | Action Pop_Auxiliary 1265 00d8 | | Load_Top At_Offset_0 1266 e603 | | Load 0x3,0x3 1267 01d7 | | Execute Vector,Field_Read 1268 e609 | | Load 0x3,0x9 1269 0273 | s | Execute Discrete,Plus 126a 00d9 | | Load_Top At_Offset_1 126b e603 | | Load 0x3,0x3 126c 01d6 | | Execute Vector,Field_Write 126d 00db | | Load_Top At_Offset_3 126e 00d9 | | Load_Top At_Offset_1 126f e607 | | Load 0x3,0x7 1270 01d6 | | Execute Vector,Field_Write 1271 00c8 | | Action Pop_Auxiliary_Range 1272 3f5c |?\ | Loop_Increasing 0x11cf 1273 00ce | | Action Pop_Auxiliary 1274 e407 | | Load 0x2,0x7 1275 680a |h | Jump_Zero 0x1280 1276 e607 | | Load 0x3,0x7 1277 82a9 | | Call 0x1,0xa9 1278 a402 | | Store_Unchecked 0x2,0x2 1279 e402 | | Load 0x2,0x2 127a e607 | | Load 0x3,0x7 127b 01d7 | | Execute Vector,Field_Read 127c 0275 | u | Execute Discrete,Unary_Minus 127d e402 | | Load 0x2,0x2 127e e607 | | Load 0x3,0x7 127f 01d6 | | Execute Vector,Field_Write 1280 e5fd | | Load 0x2,-0x3 1281 e607 | | Load 0x3,0x7 1282 82a1 | | Call 0x1,0xa1 1283 00d1 | | Pop_Control Pop_Count_1 1284 4800 |H | Short_Literal 0x0 1285 a5fb | | Store_Unchecked 0x2,-0x5 1286 e5fc | | Load 0x2,-0x4 1287 01db | | Execute Vector,Length 1288 0c01 | | Execute_Immediate Greater_Equal,0x1 1289 684d |hM | Jump_Zero 0x12d7 128a e603 | | Load 0x3,0x3 128b 82a9 | | Call 0x1,0xa9 128c a402 | | Store_Unchecked 0x2,0x2 128d e603 | | Load 0x3,0x3 128e 01dc | | Execute Vector,Last 128f e603 | | Load 0x3,0x3 1290 01d7 | | Execute Vector,Field_Read 1291 700c |p | Jump_Nonzero 0x129e 1292 e402 | | Load 0x2,0x2 1293 e603 | | Load 0x3,0x3 1294 01dc | | Execute Vector,Last 1295 027f | | Execute Discrete,Equal 1296 6807 |h | Jump_Zero 0x129e 1297 4801 |H | Short_Literal 0x1 1298 a5fb | | Store_Unchecked 0x2,-0x5 1299 e5fc | | Load 0x2,-0x4 129a 4800 |H | Short_Literal 0x0 129b 82a2 | | Call 0x1,0xa2 129c 00d1 | | Pop_Control Pop_Count_1 129d 7831 |x1 | Jump 0x12cf 129e 4800 |H | Short_Literal 0x0 129f a5fb | | Store_Unchecked 0x2,-0x5 12a0 e602 | | Load 0x3,0x2 12a1 0c02 | | Execute_Immediate Greater_Equal,0x2 12a2 6823 |h# | Jump_Zero 0x12c6 12a3 4800 |H | Short_Literal 0x0 12a4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 12a5 00cf | | Action Mark_Auxiliary 12a6 e603 | | Load 0x3,0x3 12a7 01dc | | Execute Vector,Last 12a8 e402 | | Load 0x2,0x2 12a9 0263 | c | Execute Discrete,Above_Bound 12aa 7013 |p | Jump_Nonzero 0x12be 12ab e609 | | Load 0x3,0x9 12ac 091f | | Execute_Immediate Binary_Scale,0x1f 12ad 00d9 | | Load_Top At_Offset_1 12ae e603 | | Load 0x3,0x3 12af 01d7 | | Execute Vector,Field_Read 12b0 0273 | s | Execute Discrete,Plus 12b1 a60a | | Store_Unchecked 0x3,0xa 12b2 e60a | | Load 0x3,0xa 12b3 e602 | | Load 0x3,0x2 12b4 0270 | p | Execute Discrete,Divide 12b5 00d9 | | Load_Top At_Offset_1 12b6 e603 | | Load 0x3,0x3 12b7 01d6 | | Execute Vector,Field_Write 12b8 e60a | | Load 0x3,0xa 12b9 e602 | | Load 0x3,0x2 12ba 026f | o | Execute Discrete,Remainder 12bb a609 | | Store_Unchecked 0x3,0x9 12bc 00c8 | | Action Pop_Auxiliary_Range 12bd 3fed |? | Loop_Increasing 0x12ab 12be 00ce | | Action Pop_Auxiliary 12bf e402 | | Load 0x2,0x2 12c0 e603 | | Load 0x3,0x3 12c1 01dc | | Execute Vector,Last 12c2 e603 | | Load 0x3,0x3 12c3 01cf | | Execute Vector,Slice_Read 12c4 82a9 | | Call 0x1,0xa9 12c5 a402 | | Store_Unchecked 0x2,0x2 12c6 e406 | | Load 0x2,0x6 12c7 6807 |h | Jump_Zero 0x12cf 12c8 e402 | | Load 0x2,0x2 12c9 e603 | | Load 0x3,0x3 12ca 01d7 | | Execute Vector,Field_Read 12cb 0275 | u | Execute Discrete,Unary_Minus 12cc e402 | | Load 0x2,0x2 12cd e603 | | Load 0x3,0x3 12ce 01d6 | | Execute Vector,Field_Write 12cf e5fc | | Load 0x2,-0x4 12d0 4802 |H | Short_Literal 0x2 12d1 e603 | | Load 0x3,0x3 12d2 01dc | | Execute Vector,Last 12d3 e603 | | Load 0x3,0x3 12d4 01cf | | Execute Vector,Slice_Read 12d5 82a1 | | Call 0x1,0xa1 12d6 00d1 | | Pop_Control Pop_Count_1 12d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12d8 ; -------------------------------------------------------------------------------------- 12d8 ; SUBPROGRAM 12d8 ; -------------------------------------------------------------------------------------- 12d8 12f7 | | .CONST 0x12f7 ; Address of begin 12d9 0004 | | .CONST 0x0004 ; Address of exception handler 12da 0004 | | .CONST 0x0004 ; Number of locals 12db INIT_12d8: 12db 4801 |H | Short_Literal 0x1 12dc e404 | | Load 0x2,0x4 12dd e405 | | Load 0x2,0x5 12de 0273 | s | Execute Discrete,Plus 12df 00d8 | | Load_Top At_Offset_0 12e0 00e2 | | Load_Encached Integer_Cache 12e1 0260 | ` | Execute Discrete,In_Type 12e2 7001 |p | Jump_Nonzero 0x12e4 12e3 0801 | | Execute_Immediate Raise,0x1 12e4 e220 | | Load 0x1,0x20 12e5 035b | [ | Declare_Type Array,Constrained 12e6 0337 | 7 | Declare_Variable Array 12e7 00d8 | | Load_Top At_Offset_0 12e8 0335 | 5 | Declare_Variable Array,Duplicate 12e9 00cd | | Action Spare6_Action 12ea 00d9 | | Load_Top At_Offset_1 12eb 01d9 | | Execute Vector,Reverse_Bounds 12ec 0263 | c | Execute Discrete,Above_Bound 12ed 7005 |p | Jump_Nonzero 0x12f3 12ee 4800 |H | Short_Literal 0x0 12ef 00d9 | | Load_Top At_Offset_1 12f0 e603 | | Load 0x3,0x3 12f1 01d6 | | Execute Vector,Field_Write 12f2 3ffb |? | Loop_Increasing 0x12ee 12f3 00d9 | | Load_Top At_Offset_1 12f4 01d4 | | Execute Vector,Structure_Write 12f5 00e5 | | Load_Encached Long_Integer_Cache 12f6 03e9 | | Declare_Variable Discrete,Duplicate 12f7 BODY_12d8: 12f7 00cf | | Action Mark_Auxiliary 12f8 4801 |H | Short_Literal 0x1 12f9 e405 | | Load 0x2,0x5 12fa 0264 | d | Execute Discrete,Below_Bound 12fb 7032 |p2 | Jump_Nonzero 0x132e 12fc 4800 |H | Short_Literal 0x0 12fd a603 | | Store_Unchecked 0x3,0x3 12fe 00cf | | Action Mark_Auxiliary 12ff 4801 |H | Short_Literal 0x1 1300 e404 | | Load 0x2,0x4 1301 0264 | d | Execute Discrete,Below_Bound 1302 7024 |p$ | Jump_Nonzero 0x1327 1303 e402 | | Load 0x2,0x2 1304 00d9 | | Load_Top At_Offset_1 1305 0273 | s | Execute Discrete,Plus 1306 0aff | | Execute_Immediate Plus,-0x1 1307 e5ff | | Load 0x2,-0x1 1308 01d7 | | Execute Vector,Field_Read 1309 e403 | | Load 0x2,0x3 130a e607 | | Load 0x3,0x7 130b 0273 | s | Execute Discrete,Plus 130c 0aff | | Execute_Immediate Plus,-0x1 130d e5fe | | Load 0x2,-0x2 130e 01d7 | | Execute Vector,Field_Read 130f 0271 | q | Execute Discrete,Times 1310 0274 | t | Execute Discrete,Absolute_Value 1311 00d9 | | Load_Top At_Offset_1 1312 e607 | | Load 0x3,0x7 1313 0273 | s | Execute Discrete,Plus 1314 e602 | | Load 0x3,0x2 1315 01d7 | | Execute Vector,Field_Read 1316 0273 | s | Execute Discrete,Plus 1317 e603 | | Load 0x3,0x3 1318 0273 | s | Execute Discrete,Plus 1319 a604 | | Store_Unchecked 0x3,0x4 131a e604 | | Load 0x3,0x4 131b 602c |`, | Indirect_Literal Discrete,0x1348,{0x00000000, 0x80000000} 131c 026f | o | Execute Discrete,Remainder 131d 00d9 | | Load_Top At_Offset_1 131e e607 | | Load 0x3,0x7 131f 0273 | s | Execute Discrete,Plus 1320 e602 | | Load 0x3,0x2 1321 01d6 | | Execute Vector,Field_Write 1322 e604 | | Load 0x3,0x4 1323 09e1 | | Execute_Immediate Binary_Scale,-0x1f 1324 a603 | | Store_Unchecked 0x3,0x3 1325 00c8 | | Action Pop_Auxiliary_Range 1326 37dc |7 | Loop_Decreasing 0x1303 1327 00ce | | Action Pop_Auxiliary 1328 e603 | | Load 0x3,0x3 1329 00d9 | | Load_Top At_Offset_1 132a e602 | | Load 0x3,0x2 132b 01d6 | | Execute Vector,Field_Write 132c 00c8 | | Action Pop_Auxiliary_Range 132d 37ce |7 | Loop_Decreasing 0x12fc 132e 00ce | | Action Pop_Auxiliary 132f e402 | | Load 0x2,0x2 1330 e5ff | | Load 0x2,-0x1 1331 01d7 | | Execute Vector,Field_Read 1332 0d00 | | Execute_Immediate Less,0x0 1333 e403 | | Load 0x2,0x3 1334 e5fe | | Load 0x2,-0x2 1335 01d7 | | Execute Vector,Field_Read 1336 0d00 | | Execute_Immediate Less,0x0 1337 0277 | w | Execute Discrete,Xor 1338 680a |h | Jump_Zero 0x1343 1339 00da | | Load_Top At_Offset_2 133a 82a9 | | Call 0x1,0xa9 133b a402 | | Store_Unchecked 0x2,0x2 133c e402 | | Load 0x2,0x2 133d 00db | | Load_Top At_Offset_3 133e 01d7 | | Execute Vector,Field_Read 133f 0275 | u | Execute Discrete,Unary_Minus 1340 e402 | | Load 0x2,0x2 1341 e602 | | Load 0x3,0x2 1342 01d6 | | Execute Vector,Field_Write 1343 e5fd | | Load 0x2,-0x3 1344 00db | | Load_Top At_Offset_3 1345 82a1 | | Call 0x1,0xa1 1346 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1347 0000 | | .XXX[0x1] 1348 0000 0000 | | .LITERAL {0x00000000, 0x80000000} 134c 0000 0000 | | .BLANK 0000[0x4] 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1366 | f | .CONST 0x1366 ; Address of begin 1351 0004 | | .CONST 0x0004 ; Address of exception handler 1352 0005 | | .CONST 0x0005 ; Number of locals 1353 INIT_1350: 1353 e403 | | Load 0x2,0x3 1354 e5fe | | Load 0x2,-0x2 1355 82af | | Call 0x1,0xaf 1356 0271 | q | Execute Discrete,Times 1357 00e2 | | Load_Encached Integer_Cache 1358 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1359 4801 |H | Short_Literal 0x1 135a 00d9 | | Load_Top At_Offset_1 135b e220 | | Load 0x1,0x20 135c 035b | [ | Declare_Type Array,Constrained 135d 0337 | 7 | Declare_Variable Array 135e 4801 |H | Short_Literal 0x1 135f 00da | | Load_Top At_Offset_2 1360 e220 | | Load 0x1,0x20 1361 035b | [ | Declare_Type Array,Constrained 1362 0337 | 7 | Declare_Variable Array 1363 e5fe | | Load 0x2,-0x2 1364 00e2 | | Load_Encached Integer_Cache 1365 03f1 | | Declare_Variable Discrete,With_Value 1366 BODY_1350: 1366 00d9 | | Load_Top At_Offset_1 1367 e402 | | Load 0x2,0x2 1368 e5ff | | Load 0x2,-0x1 1369 01dc | | Execute Vector,Last 136a e5ff | | Load 0x2,-0x1 136b 01cf | | Execute Vector,Slice_Read 136c 8227 | ' | Call 0x1,0x27 136d 82a1 | | Call 0x1,0xa1 136e 00d1 | | Pop_Control Pop_Count_1 136f 00da | | Load_Top At_Offset_2 1370 4801 |H | Short_Literal 0x1 1371 82a2 | | Call 0x1,0xa2 1372 00d1 | | Pop_Control Pop_Count_1 1373 00cf | | Action Mark_Auxiliary 1374 00d9 | | Load_Top At_Offset_1 1375 4802 |H | Short_Literal 0x2 1376 026f | o | Execute Discrete,Remainder 1377 0f01 | | Execute_Immediate Equal,0x1 1378 6805 |h | Jump_Zero 0x137e 1379 00db | | Load_Top At_Offset_3 137a 00db | | Load_Top At_Offset_3 137b e603 | | Load 0x3,0x3 137c 82ae | | Call 0x1,0xae 137d 00d1 | | Pop_Control Pop_Count_1 137e 00d9 | | Load_Top At_Offset_1 137f 09ff | | Execute_Immediate Binary_Scale,-0x1 1380 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 1381 00d9 | | Load_Top At_Offset_1 1382 6807 |h | Jump_Zero 0x138a 1383 00da | | Load_Top At_Offset_2 1384 00db | | Load_Top At_Offset_3 1385 e604 | | Load 0x3,0x4 1386 82ae | | Call 0x1,0xae 1387 00d1 | | Pop_Control Pop_Count_1 1388 00c9 | | Action Pop_Auxiliary_Loop 1389 7fea | | Jump 0x1374 138a 00ce | | Action Pop_Auxiliary 138b e402 | | Load 0x2,0x2 138c e5ff | | Load 0x2,-0x1 138d 01d7 | | Execute Vector,Field_Read 138e 0d00 | | Execute_Immediate Less,0x0 138f 680f |h | Jump_Zero 0x139f 1390 e5fe | | Load 0x2,-0x2 1391 4802 |H | Short_Literal 0x2 1392 026f | o | Execute Discrete,Remainder 1393 0f01 | | Execute_Immediate Equal,0x1 1394 680a |h | Jump_Zero 0x139f 1395 00da | | Load_Top At_Offset_2 1396 82a9 | | Call 0x1,0xa9 1397 a402 | | Store_Unchecked 0x2,0x2 1398 e402 | | Load 0x2,0x2 1399 00db | | Load_Top At_Offset_3 139a 01d7 | | Execute Vector,Field_Read 139b 0275 | u | Execute Discrete,Unary_Minus 139c e402 | | Load 0x2,0x2 139d e603 | | Load 0x3,0x3 139e 01d6 | | Execute Vector,Field_Write 139f e5fd | | Load 0x2,-0x3 13a0 00db | | Load_Top At_Offset_3 13a1 82a1 | | Call 0x1,0xa1 13a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13a3 0000 0000 | | .BLANK 0000[0x5] 13a8 ; -------------------------------------------------------------------------------------- 13a8 ; SUBPROGRAM 13a8 ; SUBPROGRAM 13a8 ; -------------------------------------------------------------------------------------- 13a8 13ab | | .CONST 0x13ab ; Address of begin 13a9 0004 | | .CONST 0x0004 ; Address of exception handler 13aa 0001 | | .CONST 0x0001 ; Number of locals 13ab BODY_13a8: 13ab BODY_13a8: 13ab INIT_13a8: 13ab INIT_13a8: 13ab 4608 |F | Jump_Case 0x9 13ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 13ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 13ae 7824 |x$ | Jump 0x13d3 ; case 0x2 13af 7823 |x# | Jump 0x13d3 ; case 0x3 13b0 7822 |x" | Jump 0x13d3 ; case 0x4 13b1 7821 |x! | Jump 0x13d3 ; case 0x5 13b2 7820 |x | Jump 0x13d3 ; case 0x6 13b3 7801 |x | Jump 0x13b5 ; case 0x7 13b4 780e |x | Jump 0x13c3 ; case 0x8 13b5 e5fd | | Load 0x2,-0x3 13b6 e5fe | | Load 0x2,-0x2 13b7 4801 |H | Short_Literal 0x1 13b8 e5fd | | Load 0x2,-0x3 13b9 e220 | | Load 0x1,0x20 13ba 035b | [ | Declare_Type Array,Constrained 13bb 4801 |H | Short_Literal 0x1 13bc e5fe | | Load 0x2,-0x2 13bd e220 | | Load 0x1,0x20 13be 035b | [ | Declare_Type Array,Constrained 13bf 4802 |H | Short_Literal 0x2 13c0 e5ff | | Load 0x2,-0x1 13c1 031b | | Declare_Type Variant_Record,Constrained 13c2 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 13c3 e5fd | | Load 0x2,-0x3 13c4 e5fe | | Load 0x2,-0x2 13c5 e5ff | | Load 0x2,-0x1 13c6 02fc | | Declare_Variable Variant_Record,With_Constraint 13c7 4801 |H | Short_Literal 0x1 13c8 e5fd | | Load 0x2,-0x3 13c9 e220 | | Load 0x1,0x20 13ca 0334 | 4 | Declare_Variable Array,With_Constraint 13cb 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 13cc 4801 |H | Short_Literal 0x1 13cd e5fe | | Load 0x2,-0x2 13ce e220 | | Load 0x1,0x20 13cf 0334 | 4 | Declare_Variable Array,With_Constraint 13d0 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4 13d1 016a | j | QQ_execute Variant_Record,XXX 13d2 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 13d3 0869 | i | Execute_Immediate Raise,0x69 13d4 0000 0000 | | .BLANK 0000[0x4] 13d8 ; -------------------------------------------------------------------------------------- 13d8 ; SUBPROGRAM 13d8 ; -------------------------------------------------------------------------------------- 13d8 13db | | .CONST 0x13db ; Address of begin 13d9 0004 | | .CONST 0x0004 ; Address of exception handler 13da 0001 | | .CONST 0x0001 ; Number of locals 13db BODY_13d8: 13db INIT_13d8: 13db 4608 |F | Jump_Case 0x9 13dc 7808 |x | Jump 0x13e5 ; case 0x0 13dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 13de 7831 |x1 | Jump 0x1410 ; case 0x2 13df 7830 |x0 | Jump 0x1410 ; case 0x3 13e0 782f |x/ | Jump 0x1410 ; case 0x4 13e1 782e |x. | Jump 0x1410 ; case 0x5 13e2 782d |x- | Jump 0x1410 ; case 0x6 13e3 780e |x | Jump 0x13f2 ; case 0x7 13e4 781b |x | Jump 0x1400 ; case 0x8 13e5 00da | | Load_Top At_Offset_2 13e6 016c | l | Execute Variant_Record,Is_Constrained 13e7 7009 |p | Jump_Nonzero 0x13f1 13e8 00cf | | Action Mark_Auxiliary 13e9 4801 |H | Short_Literal 0x1 13ea 4801 |H | Short_Literal 0x1 13eb e5ff | | Load 0x2,-0x1 13ec 1c08 | | Execute_Immediate Run_Utility,0x8 13ed 00d8 | | Load_Top At_Offset_0 13ee 1c00 | | Execute_Immediate Run_Utility,0x0 13ef c5ff | | Store 0x2,-0x1 13f0 00ce | | Action Pop_Auxiliary 13f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 13f2 e5fd | | Load 0x2,-0x3 13f3 e5fe | | Load 0x2,-0x2 13f4 4801 |H | Short_Literal 0x1 13f5 e5fd | | Load 0x2,-0x3 13f6 e220 | | Load 0x1,0x20 13f7 035b | [ | Declare_Type Array,Constrained 13f8 4801 |H | Short_Literal 0x1 13f9 e5fe | | Load 0x2,-0x2 13fa e220 | | Load 0x1,0x20 13fb 035b | [ | Declare_Type Array,Constrained 13fc 4802 |H | Short_Literal 0x2 13fd e5ff | | Load 0x2,-0x1 13fe 031b | | Declare_Type Variant_Record,Constrained 13ff 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 1400 e5fd | | Load 0x2,-0x3 1401 e5fe | | Load 0x2,-0x2 1402 e5ff | | Load 0x2,-0x1 1403 02fc | | Declare_Variable Variant_Record,With_Constraint 1404 4801 |H | Short_Literal 0x1 1405 e5fd | | Load 0x2,-0x3 1406 e220 | | Load 0x1,0x20 1407 0334 | 4 | Declare_Variable Array,With_Constraint 1408 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 1409 4801 |H | Short_Literal 0x1 140a e5fe | | Load 0x2,-0x2 140b e220 | | Load 0x1,0x20 140c 0334 | 4 | Declare_Variable Array,With_Constraint 140d 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4 140e 016a | j | QQ_execute Variant_Record,XXX 140f 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 1410 0869 | i | Execute_Immediate Raise,0x69 1411 0000 0000 | | .BLANK 0000[0x7] 1418 ; -------------------------------------------------------------------------------------- 1418 ; SUBPROGRAM 1418 ; -------------------------------------------------------------------------------------- 1418 141b | | .CONST 0x141b ; Address of begin 1419 0004 | | .CONST 0x0004 ; Address of exception handler 141a 0001 | | .CONST 0x0001 ; Number of locals 141b BODY_1418: 141b INIT_1418: 141b 4608 |F | Jump_Case 0x9 141c 7808 |x | Jump 0x1425 ; case 0x0 141d 781b |x | Jump 0x1439 ; case 0x1 141e 783d |x= | Jump 0x145c ; case 0x2 141f 783c |x< | Jump 0x145c ; case 0x3 1420 783b |x; | Jump 0x145c ; case 0x4 1421 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 1422 7839 |x9 | Jump 0x145c ; case 0x6 1423 7818 |x | Jump 0x143c ; case 0x7 1424 7826 |x& | Jump 0x144b ; case 0x8 1425 00da | | Load_Top At_Offset_2 1426 016c | l | Execute Variant_Record,Is_Constrained 1427 700b |p | Jump_Nonzero 0x1433 1428 00cf | | Action Mark_Auxiliary 1429 4801 |H | Short_Literal 0x1 142a 4801 |H | Short_Literal 0x1 142b 4801 |H | Short_Literal 0x1 142c e5ff | | Load 0x2,-0x1 142d 1c08 | | Execute_Immediate Run_Utility,0x8 142e 00d8 | | Load_Top At_Offset_0 142f 1c00 | | Execute_Immediate Run_Utility,0x0 1430 c5ff | | Store 0x2,-0x1 1431 00ce | | Action Pop_Auxiliary 1432 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1433 00da | | Load_Top At_Offset_2 1434 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 1435 00da | | Load_Top At_Offset_2 1436 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 1437 1c00 | | Execute_Immediate Run_Utility,0x0 1438 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1439 00da | | Load_Top At_Offset_2 143a 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 143b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 143c e5fc | | Load 0x2,-0x4 143d e5fd | | Load 0x2,-0x3 143e e5fe | | Load 0x2,-0x2 143f 4801 |H | Short_Literal 0x1 1440 e5fc | | Load 0x2,-0x4 1441 e260 | ` | Load 0x1,0x60 1442 035b | [ | Declare_Type Array,Constrained 1443 e5fd | | Load 0x2,-0x3 1444 e5fe | | Load 0x2,-0x2 1445 e23f | ? | Load 0x1,0x3f 1446 1c07 | | Execute_Immediate Run_Utility,0x7 1447 4802 |H | Short_Literal 0x2 1448 e5ff | | Load 0x2,-0x1 1449 031b | | Declare_Type Variant_Record,Constrained 144a 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 144b e5fc | | Load 0x2,-0x4 144c e5fd | | Load 0x2,-0x3 144d e5fe | | Load 0x2,-0x2 144e e5ff | | Load 0x2,-0x1 144f 02fc | | Declare_Variable Variant_Record,With_Constraint 1450 4801 |H | Short_Literal 0x1 1451 e5fc | | Load 0x2,-0x4 1452 e260 | ` | Load 0x1,0x60 1453 0334 | 4 | Declare_Variable Array,With_Constraint 1454 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6 1455 e5fd | | Load 0x2,-0x3 1456 e5fe | | Load 0x2,-0x2 1457 e23f | ? | Load 0x1,0x3f 1458 1c08 | | Execute_Immediate Run_Utility,0x8 1459 2d07 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7 145a 016a | j | QQ_execute Variant_Record,XXX 145b 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 145c 0869 | i | Execute_Immediate Raise,0x69 145d ; -------------------------------------------------------------------------------------- 145d ; STRING TABLE 145d ; -------------------------------------------------------------------------------------- 145d 0008 | | .STRTAB 0x0008->0x1461 ; "QUOTIENT" 145e 000e | | .STRTAB 0x000e->0x1465 ; "REMAINDER" 145f 0015 | | .STRTAB 0x0015->0x1469 ; "BOTH" 1460 0017 | | .STREND 0x0017->0x146b 1461 5155 4f54 |QUOT| .STRTAB_STRINGS 146c 0000 0000 | | .BLANK 0000[0x4] 1470 ; -------------------------------------------------------------------------------------- 1470 ; Debug Table 1470 ; -------------------------------------------------------------------------------------- 1470 0004 000d | | .DEBUG4 0x0004,0x000d,0x7a72,0x0000,0x0001,0x0000 1476 0000 0000 | | .BLANK 0000[0xa] 1480 3649 6885 |6Ih | .XXX[0x1e] 1482 8008 3980 | 9 | 1484 0050 47b4 | PG | 1486 3a00 8008 |: | 1488 0005 9800 | | 148a 0004 12c6 | | 148c 0000 1000 | | 148e 0000 d801 | | 1490 4000 0028 |@ (| 1492 8000 0010 | | 1494 0000 0088 | | 1496 0000 0000 | | 1498 4000 0002 |@ | 149a 9000 0081 | | 149c b7d0 4000 | @ | 149e 0000 0000 | | .BLANK 0000[0x1b] 14b9 0dec 3090 | 0 | .XXX[0x1e] 14bb b001 0740 | @| 14bd 000a 08f6 | | 14bf 8740 1001 | @ | 14c1 0000 b300 | | 14c3 0000 825b | [| 14c5 0000 0200 | | 14c7 0000 0300 | | 14c9 2800 0000 |( | 14cb 0800 0002 | | 14cd 0000 0011 | | 14cf 0000 0000 | | 14d1 0800 0000 | | 14d3 5200 0010 |R | 14d5 36fb c000 |6 | 14d7 0000 0000 | | .BLANK 0000[0x1b] 14f2 01bd c610 | | .XXX[0x2] 14f4 0000 0000 | | .BLANK 0000[0xd] 1501 0020 0500 | | .XXX[0xc] 1503 0000 0000 | | 1505 0000 4000 | @ | 1507 0002 2000 | | 1509 0000 0100 | | 150b 0000 0a00 | | 150d 0000 0000 | | .BLANK 0000[0x2d] 153a 0004 00a0 | | .XXX[0xc] 153c 0000 0000 | | 153e 0000 0800 | | 1540 0000 4400 | D | 1542 0000 0020 | | 1544 0000 0140 | @| 1546 0000 0000 | | .BLANK 0000[0x2e] 1574 8014 0000 | | .XXX[0xb] 1576 0000 0000 | | 1578 0100 0000 | | 157a 0880 0000 | | 157c 0004 0000 | | 157e 0028 | ( | 157f 0000 0000 | | .BLANK 0000[0x2e] 15ad 1002 8000 | | .XXX[0xb] 15af 0000 0000 | | 15b1 0020 0000 | | 15b3 0110 0000 | | 15b5 0000 8000 | | 15b7 0005 | | 15b8 0000 0000 | | .BLANK 0000[0x48]