|
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: 14336 (0x3800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1bf8 | | .CONST 0x1bf8 ; 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 8012 | | .CONST 0x8012 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0368 | h | .CONST 0x0368 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0167 | g | .CONST 0x0167 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0012 c211 | | Store 0x1,0x11 0013 00bf | | Action Accept_Activation 0014 4800 |H | Short_Literal 0x0 0015 0093 1a83 | | push_full_address INIT_1a80 0017 02a0 | | Declare_Subprogram Null_Subprogram 0018 038e | | Declare_Type Package,Defined 0019 e001 | | Load 0x0,0x1 001a 4801 |H | Short_Literal 0x1 001b e212 | | Load 0x1,0x12 001c 020e | | Execute Module,Augment_Imports 001d 0387 | | Declare_Variable Package 001e 00d8 | | Load_Top At_Offset_0 001f 020f | | Execute Module,Activate 0020 4800 |H | Short_Literal 0x0 0021 487f |H | Short_Literal 0x7f 0022 00e1 | | Load_Encached Boolean_Cache 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 035d | ] | Declare_Type Array,Defined 0026 4800 |H | Short_Literal 0x0 0027 6348 |cH | Indirect_Literal Discrete,0x370,{0x00000000, 0x000fffff} 0028 00e5 | | Load_Encached Long_Integer_Cache 0029 03f8 | | Declare_Type Discrete,Constrained 002a e212 | | Load 0x1,0x12 002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002c 00e3 | | Load_Encached Natural_Cache 002d 06ff | | Execute_Immediate Set_Value_Unchecked,0xff 002e 00d8 | | Load_Top At_Offset_0 002f 09ff | | Execute_Immediate Binary_Scale,-0x1 0030 0275 | u | Execute Discrete,Unary_Minus 0031 0a03 | | Execute_Immediate Plus,0x3 0032 00e5 | | Load_Encached Long_Integer_Cache 0033 03f1 | | Declare_Variable Discrete,With_Value 0034 00d8 | | Load_Top At_Offset_0 0035 633a |c: | Indirect_Literal Discrete,0x370,{0x00000000, 0x000fffff} 0036 00e5 | | Load_Encached Long_Integer_Cache 0037 03f8 | | Declare_Type Discrete,Constrained 0038 e215 | | Load 0x1,0x15 0039 0007 | | Action Break_Optional 003a 00e5 | | Load_Encached Long_Integer_Cache 003b 0266 | f | Execute Discrete,Bounds 003c 00e1 | | Load_Encached Boolean_Cache 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 4801 |H | Short_Literal 0x1 003f 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0040 4800 |H | Short_Literal 0x0 0041 4fff |O | Short_Literal -0x1 0042 e21a | | Load 0x1,0x1a 0043 0334 | 4 | Declare_Variable Array,With_Constraint 0044 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 0046 a002 | | Store_Unchecked 0x0,0x2 0047 00c6 | | Action Check_Subprogram_Elaborated 0048 e214 | | Load 0x1,0x14 0049 e001 | | Load 0x0,0x1 004a 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 004b e003 | | Load 0x0,0x3 004c e004 | | Load 0x0,0x4 004d 4800 |H | Short_Literal 0x0 004e 0007 | | Action Break_Optional 004f a002 | | Store_Unchecked 0x0,0x2 0050 00c6 | | Action Check_Subprogram_Elaborated 0051 e001 | | Load 0x0,0x1 0052 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0053 e214 | | Load 0x1,0x14 0054 e005 | | Load 0x0,0x5 0055 e006 | | Load 0x0,0x6 0056 4800 |H | Short_Literal 0x0 0057 0007 | | Action Break_Optional 0058 e001 | | Load 0x0,0x1 0059 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 005a 012c | , | Execute Any,Size 005b e214 | | Load 0x1,0x14 005c 012c | , | Execute Any,Size 005d 027f | | Execute Discrete,Equal 005e 7001 |p | Jump_Nonzero 0x60 005f 0887 | | Execute_Immediate Raise,0x87 0060 e001 | | Load 0x0,0x1 0061 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0062 012c | , | Execute Any,Size 0063 00e3 | | Load_Encached Natural_Cache 0064 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0065 a002 | | Store_Unchecked 0x0,0x2 0066 00c6 | | Action Check_Subprogram_Elaborated 0067 e215 | | Load 0x1,0x15 0068 e001 | | Load 0x0,0x1 0069 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 006a e007 | | Load 0x0,0x7 006b e008 | | Load 0x0,0x8 006c 4800 |H | Short_Literal 0x0 006d 0007 | | Action Break_Optional 006e a002 | | Store_Unchecked 0x0,0x2 006f 00c6 | | Action Check_Subprogram_Elaborated 0070 e001 | | Load 0x0,0x1 0071 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0072 e215 | | Load 0x1,0x15 0073 e009 | | Load 0x0,0x9 0074 e00a | | Load 0x0,0xa 0075 4800 |H | Short_Literal 0x0 0076 0007 | | Action Break_Optional 0077 e227 | ' | Load 0x1,0x27 0078 e215 | | Load 0x1,0x15 0079 012c | , | Execute Any,Size 007a 027f | | Execute Discrete,Equal 007b 7001 |p | Jump_Nonzero 0x7d 007c 0887 | | Execute_Immediate Raise,0x87 007d 4801 |H | Short_Literal 0x1 007e e227 | ' | Load 0x1,0x27 007f e21a | | Load 0x1,0x1a 0080 035b | [ | Declare_Type Array,Constrained 0081 a002 | | Store_Unchecked 0x0,0x2 0082 00c6 | | Action Check_Subprogram_Elaborated 0083 00d8 | | Load_Top At_Offset_0 0084 e001 | | Load 0x0,0x1 0085 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0086 e00b | | Load 0x0,0xb 0087 e00c | | Load 0x0,0xc 0088 4800 |H | Short_Literal 0x0 0089 0007 | | Action Break_Optional 008a 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 008c 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 008e e001 | | Load 0x0,0x1 008f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0090 012c | , | Execute Any,Size 0091 00e3 | | Load_Encached Natural_Cache 0092 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0093 4801 |H | Short_Literal 0x1 0094 e23a | : | Load 0x1,0x3a 0095 e21a | | Load 0x1,0x1a 0096 035b | [ | Declare_Type Array,Constrained 0097 a002 | | Store_Unchecked 0x0,0x2 0098 00c6 | | Action Check_Subprogram_Elaborated 0099 00d8 | | Load_Top At_Offset_0 009a e001 | | Load 0x0,0x1 009b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 009c e00d | | Load 0x0,0xd 009d e00e | | Load 0x0,0xe 009e 4800 |H | Short_Literal 0x0 009f 0007 | | Action Break_Optional 00a0 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 00a2 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call 00a4 a002 | | Store_Unchecked 0x0,0x2 00a5 00c6 | | Action Check_Subprogram_Elaborated 00a6 e001 | | Load 0x0,0x1 00a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a8 e001 | | Load 0x0,0x1 00a9 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 00aa e00f | | Load 0x0,0xf 00ab e010 | | Load 0x0,0x10 00ac 4800 |H | Short_Literal 0x0 00ad 0007 | | Action Break_Optional 00ae e001 | | Load 0x0,0x1 00af 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 00b0 012c | , | Execute Any,Size 00b1 e001 | | Load 0x0,0x1 00b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b3 012c | , | Execute Any,Size 00b4 027f | | Execute Discrete,Equal 00b5 7001 |p | Jump_Nonzero 0xb7 00b6 0887 | | Execute_Immediate Raise,0x87 00b7 a002 | | Store_Unchecked 0x0,0x2 00b8 00c6 | | Action Check_Subprogram_Elaborated 00b9 00e5 | | Load_Encached Long_Integer_Cache 00ba e001 | | Load 0x0,0x1 00bb 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 00bc e011 | | Load 0x0,0x11 00bd e012 | | Load 0x0,0x12 00be 4800 |H | Short_Literal 0x0 00bf 0007 | | Action Break_Optional 00c0 00e5 | | Load_Encached Long_Integer_Cache 00c1 012c | , | Execute Any,Size 00c2 e23a | : | Load 0x1,0x3a 00c3 027f | | Execute Discrete,Equal 00c4 7001 |p | Jump_Nonzero 0xc6 00c5 0887 | | Execute_Immediate Raise,0x87 00c6 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 00c8 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 00ca a002 | | Store_Unchecked 0x0,0x2 00cb 00c6 | | Action Check_Subprogram_Elaborated 00cc e213 | | Load 0x1,0x13 00cd e001 | | Load 0x0,0x1 00ce 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 00cf e013 | | Load 0x0,0x13 00d0 e014 | | Load 0x0,0x14 00d1 4800 |H | Short_Literal 0x0 00d2 0007 | | Action Break_Optional 00d3 a002 | | Store_Unchecked 0x0,0x2 00d4 00c6 | | Action Check_Subprogram_Elaborated 00d5 e213 | | Load 0x1,0x13 00d6 e001 | | Load 0x0,0x1 00d7 1b98 | | Execute Package,Field_Read,Field_Number 0x98 00d8 e015 | | Load 0x0,0x15 00d9 e016 | | Load 0x0,0x16 00da 4800 |H | Short_Literal 0x0 00db 0007 | | Action Break_Optional 00dc a002 | | Store_Unchecked 0x0,0x2 00dd 00c6 | | Action Check_Subprogram_Elaborated 00de e213 | | Load 0x1,0x13 00df e001 | | Load 0x0,0x1 00e0 1b95 | | Execute Package,Field_Read,Field_Number 0x95 00e1 e017 | | Load 0x0,0x17 00e2 e018 | | Load 0x0,0x18 00e3 4800 |H | Short_Literal 0x0 00e4 0007 | | Action Break_Optional 00e5 a002 | | Store_Unchecked 0x0,0x2 00e6 00c6 | | Action Check_Subprogram_Elaborated 00e7 e213 | | Load 0x1,0x13 00e8 e001 | | Load 0x0,0x1 00e9 1b97 | | Execute Package,Field_Read,Field_Number 0x97 00ea e019 | | Load 0x0,0x19 00eb e01a | | Load 0x0,0x1a 00ec 4800 |H | Short_Literal 0x0 00ed 0007 | | Action Break_Optional 00ee e01b | | Load 0x0,0x1b 00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f0 1911 | | Execute Package,Field_Reference,Field_Number 0x11 00f1 00c6 | | Action Check_Subprogram_Elaborated 00f2 e213 | | Load 0x1,0x13 00f3 e01c | | Load 0x0,0x1c 00f4 e01d | | Load 0x0,0x1d 00f5 4800 |H | Short_Literal 0x0 00f6 0007 | | Action Break_Optional 00f7 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 00f9 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 00fb 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 00fd 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 00ff 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call 0101 029b 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Unelaborated 0103 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 0104 00c7 | | Action Elaborate_Subprogram 0105 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 0106 00c6 | | Action Check_Subprogram_Elaborated 0107 e001 | | Load 0x0,0x1 0108 1b92 | | Execute Package,Field_Read,Field_Number 0x92 0109 e01e | | Load 0x0,0x1e 010a e01f | | Load 0x0,0x1f 010b 4800 |H | Short_Literal 0x0 010c 0007 | | Action Break_Optional 010d 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 010e 00c6 | | Action Check_Subprogram_Elaborated 010f e001 | | Load 0x0,0x1 0110 1b99 | | Execute Package,Field_Read,Field_Number 0x99 0111 e020 | | Load 0x0,0x20 0112 e021 | ! | Load 0x0,0x21 0113 4800 |H | Short_Literal 0x0 0114 0007 | | Action Break_Optional 0115 4801 |H | Short_Literal 0x1 0116 4840 |H@ | Short_Literal 0x40 0117 e21a | | Load 0x1,0x1a 0118 035b | [ | Declare_Type Array,Constrained 0119 a002 | | Store_Unchecked 0x0,0x2 011a 00c6 | | Action Check_Subprogram_Elaborated 011b 00d8 | | Load_Top At_Offset_0 011c e001 | | Load 0x0,0x1 011d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011e e022 | " | Load 0x0,0x22 011f e023 | # | Load 0x0,0x23 0120 4800 |H | Short_Literal 0x0 0121 0007 | | Action Break_Optional 0122 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 0124 4801 |H | Short_Literal 0x1 0125 4808 |H | Short_Literal 0x8 0126 e21a | | Load 0x1,0x1a 0127 035b | [ | Declare_Type Array,Constrained 0128 a002 | | Store_Unchecked 0x0,0x2 0129 00c6 | | Action Check_Subprogram_Elaborated 012a 00d8 | | Load_Top At_Offset_0 012b 00e8 | | Load_Encached Character_Cache 012c e024 | $ | Load 0x0,0x24 012d e025 | % | Load 0x0,0x25 012e 4800 |H | Short_Literal 0x0 012f 0007 | | Action Break_Optional 0130 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 0132 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call 0134 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call 0136 029d 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call 0138 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call 013a 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 013c 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call 013e 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 0140 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 0142 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call 0144 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call 0146 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 0148 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 014a 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call 014c 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 014e 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call 0150 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 0152 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call 0154 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call 0156 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call 0158 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call 015a 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call 015c 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call 015e 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call 0160 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call 0162 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 0164 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call 0166 029b 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call,Unelaborated 0168 1d9d | | Execute_Immediate Reference_Lex_1,0x9d 0169 00c7 | | Action Elaborate_Subprogram 016a 1d9d | | Execute_Immediate Reference_Lex_1,0x9d 016b 00c6 | | Action Check_Subprogram_Elaborated 016c e001 | | Load 0x0,0x1 016d 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 016e e026 | & | Load 0x0,0x26 016f e027 | ' | Load 0x0,0x27 0170 4800 |H | Short_Literal 0x0 0171 0007 | | Action Break_Optional 0172 1d9d | | Execute_Immediate Reference_Lex_1,0x9d 0173 00c6 | | Action Check_Subprogram_Elaborated 0174 e001 | | Load 0x0,0x1 0175 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0176 e028 | ( | Load 0x0,0x28 0177 e029 | ) | Load 0x0,0x29 0178 4800 |H | Short_Literal 0x0 0179 0007 | | Action Break_Optional 017a e001 | | Load 0x0,0x1 017b 1ba2 | | Execute Package,Field_Read,Field_Number 0xa2 017c 012c | , | Execute Any,Size 017d 00e5 | | Load_Encached Long_Integer_Cache 017e 03f1 | | Declare_Variable Discrete,With_Value 017f 4801 |H | Short_Literal 0x1 0180 e2a6 | | Load 0x1,0xa6 0181 e21a | | Load 0x1,0x1a 0182 035b | [ | Declare_Type Array,Constrained 0183 a002 | | Store_Unchecked 0x0,0x2 0184 00c6 | | Action Check_Subprogram_Elaborated 0185 00d8 | | Load_Top At_Offset_0 0186 e001 | | Load 0x0,0x1 0187 1ba2 | | Execute Package,Field_Read,Field_Number 0xa2 0188 e02a | * | Load 0x0,0x2a 0189 e02b | + | Load 0x0,0x2b 018a 4800 |H | Short_Literal 0x0 018b 0007 | | Action Break_Optional 018c 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call 018e 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call 0190 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call 0192 e001 | | Load 0x0,0x1 0193 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3 0194 012c | , | Execute Any,Size 0195 00e5 | | Load_Encached Long_Integer_Cache 0196 03f1 | | Declare_Variable Discrete,With_Value 0197 4801 |H | Short_Literal 0x1 0198 e2b0 | | Load 0x1,0xb0 0199 e21a | | Load 0x1,0x1a 019a 035b | [ | Declare_Type Array,Constrained 019b a002 | | Store_Unchecked 0x0,0x2 019c 00c6 | | Action Check_Subprogram_Elaborated 019d 00d8 | | Load_Top At_Offset_0 019e e001 | | Load 0x0,0x1 019f 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3 01a0 e02c | , | Load 0x0,0x2c 01a1 e02d | - | Load 0x0,0x2d 01a2 4800 |H | Short_Literal 0x0 01a3 0007 | | Action Break_Optional 01a4 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call 01a6 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call 01a8 029d 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call 01aa 4801 |H | Short_Literal 0x1 01ab 61c0 |a | Indirect_Literal Discrete,0x36c,{0x00000000, 0x00002000} 01ac e21a | | Load 0x1,0x1a 01ad 035b | [ | Declare_Type Array,Constrained 01ae 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call 01b0 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call 01b2 029d 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call 01b4 e001 | | Load 0x0,0x1 01b5 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0 01b6 012c | , | Execute Any,Size 01b7 00e3 | | Load_Encached Natural_Cache 01b8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01b9 4801 |H | Short_Literal 0x1 01ba e2be | | Load 0x1,0xbe 01bb e21a | | Load 0x1,0x1a 01bc 035b | [ | Declare_Type Array,Constrained 01bd a002 | | Store_Unchecked 0x0,0x2 01be 00c6 | | Action Check_Subprogram_Elaborated 01bf 00d8 | | Load_Top At_Offset_0 01c0 e001 | | Load 0x0,0x1 01c1 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0 01c2 e02e | . | Load 0x0,0x2e 01c3 e02f | / | Load 0x0,0x2f 01c4 4800 |H | Short_Literal 0x0 01c5 0007 | | Action Break_Optional 01c6 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call 01c8 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call 01ca 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call 01cc a002 | | Store_Unchecked 0x0,0x2 01cd 00c6 | | Action Check_Subprogram_Elaborated 01ce 00e5 | | Load_Encached Long_Integer_Cache 01cf 00e6 | | Load_Encached Float_Cache 01d0 e030 | 0 | Load 0x0,0x30 01d1 e031 | 1 | Load 0x0,0x31 01d2 4800 |H | Short_Literal 0x0 01d3 0007 | | Action Break_Optional 01d4 a002 | | Store_Unchecked 0x0,0x2 01d5 00c6 | | Action Check_Subprogram_Elaborated 01d6 00e5 | | Load_Encached Long_Integer_Cache 01d7 e001 | | Load 0x0,0x1 01d8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 01d9 e032 | 2 | Load 0x0,0x32 01da e033 | 3 | Load 0x0,0x33 01db 4800 |H | Short_Literal 0x0 01dc 0007 | | Action Break_Optional 01dd 00e5 | | Load_Encached Long_Integer_Cache 01de 012c | , | Execute Any,Size 01df e001 | | Load 0x0,0x1 01e0 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 01e1 012c | , | Execute Any,Size 01e2 027f | | Execute Discrete,Equal 01e3 7001 |p | Jump_Nonzero 0x1e5 01e4 0887 | | Execute_Immediate Raise,0x87 01e5 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call 01e7 029b 09ab | | Declare_Subprogram INIT_09a8,For_Outer_Call,Unelaborated 01e9 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3 01ea 00c7 | | Action Elaborate_Subprogram 01eb 029b 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call,Unelaborated 01ed 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 01ee 00c7 | | Action Elaborate_Subprogram 01ef 029d 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call 01f1 4800 |H | Short_Literal 0x0 01f2 4809 |H | Short_Literal 0x9 01f3 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call 01f5 03fd | | Declare_Type Discrete,Defined 01f6 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3 01f7 00c6 | | Action Check_Subprogram_Elaborated 01f8 00e2 | | Load_Encached Integer_Cache 01f9 e034 | 4 | Load 0x0,0x34 01fa e035 | 5 | Load 0x0,0x35 01fb 4800 |H | Short_Literal 0x0 01fc 0007 | | Action Break_Optional 01fd 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 01fe 00c6 | | Action Check_Subprogram_Elaborated 01ff 00e2 | | Load_Encached Integer_Cache 0200 e036 | 6 | Load 0x0,0x36 0201 e037 | 7 | Load 0x0,0x37 0202 4800 |H | Short_Literal 0x0 0203 0007 | | Action Break_Optional 0204 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 0205 00c6 | | Action Check_Subprogram_Elaborated 0206 00e5 | | Load_Encached Long_Integer_Cache 0207 e038 | 8 | Load 0x0,0x38 0208 e039 | 9 | Load 0x0,0x39 0209 4800 |H | Short_Literal 0x0 020a 0007 | | Action Break_Optional 020b 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 020c 00c6 | | Action Check_Subprogram_Elaborated 020d 00e1 | | Load_Encached Boolean_Cache 020e e03a | : | Load 0x0,0x3a 020f e03b | ; | Load 0x0,0x3b 0210 4800 |H | Short_Literal 0x0 0211 0007 | | Action Break_Optional 0212 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 0213 00c6 | | Action Check_Subprogram_Elaborated 0214 00e8 | | Load_Encached Character_Cache 0215 e03c | < | Load 0x0,0x3c 0216 e03d | = | Load 0x0,0x3d 0217 4800 |H | Short_Literal 0x0 0218 0007 | | Action Break_Optional 0219 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 021a 00c6 | | Action Check_Subprogram_Elaborated 021b 00e6 | | Load_Encached Float_Cache 021c e03e | > | Load 0x0,0x3e 021d e03f | ? | Load 0x0,0x3f 021e 4800 |H | Short_Literal 0x0 021f 0007 | | Action Break_Optional 0220 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 0221 00c6 | | Action Check_Subprogram_Elaborated 0222 00e7 | | Load_Encached Duration_Cache 0223 e040 | @ | Load 0x0,0x40 0224 e041 | A | Load 0x0,0x41 0225 4800 |H | Short_Literal 0x0 0226 0007 | | Action Break_Optional 0227 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 0228 00c6 | | Action Check_Subprogram_Elaborated 0229 00e4 | | Load_Encached Positive_Cache 022a e042 | B | Load 0x0,0x42 022b e043 | C | Load 0x0,0x43 022c 4800 |H | Short_Literal 0x0 022d 0007 | | Action Break_Optional 022e 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 022f 00c6 | | Action Check_Subprogram_Elaborated 0230 00e3 | | Load_Encached Natural_Cache 0231 e044 | D | Load 0x0,0x44 0232 e045 | E | Load 0x0,0x45 0233 4800 |H | Short_Literal 0x0 0234 0007 | | Action Break_Optional 0235 00e1 | | Load_Encached Boolean_Cache 0236 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0237 e001 | | Load 0x0,0x1 0238 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 0239 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 023a e001 | | Load 0x0,0x1 023b 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 023c 0322 | " | Declare_Variable Record 023d 4800 |H | Short_Literal 0x0 023e e2fd | | Load 0x1,0xfd 023f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0240 4800 |H | Short_Literal 0x0 0241 e2fd | | Load 0x1,0xfd 0242 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0243 e001 | | Load 0x0,0x1 0244 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0245 0322 | " | Declare_Variable Record 0246 e2fd | | Load 0x1,0xfd 0247 e2fe | | Load 0x1,0xfe 0248 017d | } | Execute Record,Structure_Write 0249 e001 | | Load 0x0,0x1 024a 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 024b 0322 | " | Declare_Variable Record 024c e2fd | | Load 0x1,0xfd 024d e2ff | | Load 0x1,0xff 024e 017d | } | Execute Record,Structure_Write 024f e001 | | Load 0x0,0x1 0250 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0251 0322 | " | Declare_Variable Record 0252 e2fd | | Load 0x1,0xfd 0253 e300 | | Load 0x1,0x100 0254 017d | } | Execute Record,Structure_Write 0255 e001 | | Load 0x0,0x1 0256 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0257 0322 | " | Declare_Variable Record 0258 e2fd | | Load 0x1,0xfd 0259 e301 | | Load 0x1,0x101 025a 017d | } | Execute Record,Structure_Write 025b e001 | | Load 0x0,0x1 025c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 025d 0322 | " | Declare_Variable Record 025e e2fd | | Load 0x1,0xfd 025f e302 | | Load 0x1,0x102 0260 017d | } | Execute Record,Structure_Write 0261 e001 | | Load 0x0,0x1 0262 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0263 0322 | " | Declare_Variable Record 0264 e2fd | | Load 0x1,0xfd 0265 e303 | | Load 0x1,0x103 0266 017d | } | Execute Record,Structure_Write 0267 e001 | | Load 0x0,0x1 0268 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0269 0322 | " | Declare_Variable Record 026a e2fd | | Load 0x1,0xfd 026b e304 | | Load 0x1,0x104 026c 017d | } | Execute Record,Structure_Write 026d e001 | | Load 0x0,0x1 026e 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 026f 0322 | " | Declare_Variable Record 0270 e2fd | | Load 0x1,0xfd 0271 e305 | | Load 0x1,0x105 0272 017d | } | Execute Record,Structure_Write 0273 e001 | | Load 0x0,0x1 0274 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0275 0322 | " | Declare_Variable Record 0276 e2fd | | Load 0x1,0xfd 0277 e306 | | Load 0x1,0x106 0278 017d | } | Execute Record,Structure_Write 0279 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call 027b 029d 0a6b | k| Declare_Subprogram INIT_0a68,For_Outer_Call 027d 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call 027f 029d 0ab3 | | Declare_Subprogram INIT_0ab0,For_Outer_Call 0281 029d 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call 0283 029d 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call 0285 029d 0b13 | | Declare_Subprogram INIT_0b10,For_Outer_Call 0287 029d 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call 0289 029d 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call 028b 0092 1acc | | Action Push_String_Extended,0x1acc ; " => " 028d 0092 1acd | | Action Push_String_Extended,0x1acd ; "..." 028f e310 | | Load 0x1,0x110 0290 e311 | | Load 0x1,0x111 0291 01cc | | Execute Vector,Catenate 0292 0092 1ace | | Action Push_String_Extended,0x1ace ; ", " 0294 01cc | | Execute Vector,Catenate 0295 0007 | | Action Break_Optional 0296 e311 | | Load 0x1,0x111 0297 e312 | | Load 0x1,0x112 0298 01cc | | Execute Vector,Catenate 0299 0007 | | Action Break_Optional 029a 0092 1acf | | Action Push_String_Extended,0x1acf ; "Value\x00not\x00readable" 029c 0092 1ad0 | | Action Push_String_Extended,0x1ad0 ; "Field\x00not\x00initialized" 029e 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Element\x00not\x00initialized" 02a0 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Null\x00string" 02a2 0092 1ad3 | | Action Push_String_Extended,0x1ad3 ; "Null\x00vector" 02a4 0092 1ad4 | | Action Push_String_Extended,0x1ad4 ; "Field\x00value\x00not\x00readable" 02a6 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; "Exception\x00raised\x00reading\x00field\x00value" 02a8 0092 1ad6 | | Action Push_String_Extended,0x1ad6 ; "Element\x00value\x00not\x00readable" 02aa 0092 1ad7 | | Action Push_String_Extended,0x1ad7 ; "Exception\x00raised\x00readingelement\x00value" 02ac 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "Uninitialized\x00boolean\x00value" 02ae 0092 1ad9 | | Action Push_String_Extended,0x1ad9 ; "Uninitialized\x00character\x00value" 02b0 0092 1ada | | Action Push_String_Extended,0x1ada ; "Object\x00too\x00big" 02b2 0092 1adb | | Action Push_String_Extended,0x1adb ; "Multi-dimensional\x00array" 02b4 029d 0b5b | [| Declare_Subprogram INIT_0b58,For_Outer_Call 02b6 029d 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call 02b8 029d 0b83 | | Declare_Subprogram INIT_0b80,For_Outer_Call 02ba 029d 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call 02bc 029d 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call 02be 029d 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call 02c0 029d 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call 02c2 029d 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call 02c4 029d 0c63 | c| Declare_Subprogram INIT_0c60,For_Outer_Call 02c6 029d 0c8b | | Declare_Subprogram INIT_0c88,For_Outer_Call 02c8 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call 02ca 029d 0ccb | | Declare_Subprogram INIT_0cc8,For_Outer_Call 02cc 029d 0cf3 | | Declare_Subprogram INIT_0cf0,For_Outer_Call 02ce 029d 0d43 | C| Declare_Subprogram INIT_0d40,For_Outer_Call 02d0 029d 0d9b | | Declare_Subprogram INIT_0d98,For_Outer_Call 02d2 029d 0dd3 | | Declare_Subprogram INIT_0dd0,For_Outer_Call 02d4 029d 0ddb | | Declare_Subprogram INIT_0dd8,For_Outer_Call 02d6 029d 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call 02d8 029d 0e03 | | Declare_Subprogram INIT_0e00,For_Outer_Call 02da 029d 0e73 | s| Declare_Subprogram INIT_0e70,For_Outer_Call 02dc 029d 0e93 | | Declare_Subprogram INIT_0e90,For_Outer_Call 02de 029d 0ea3 | | Declare_Subprogram INIT_0ea0,For_Outer_Call 02e0 029d 0eb3 | | Declare_Subprogram INIT_0eb0,For_Outer_Call 02e2 029d 0ec3 | | Declare_Subprogram INIT_0ec0,For_Outer_Call 02e4 029d 0edb | | Declare_Subprogram INIT_0ed8,For_Outer_Call 02e6 029d 0ef3 | | Declare_Subprogram INIT_0ef0,For_Outer_Call 02e8 0092 1adc | | Action Push_String_Extended,0x1adc ; "Inner_" 02ea 029d 0f0b | | Declare_Subprogram INIT_0f08,For_Outer_Call 02ec 029b 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Unelaborated 02ee 029b 0fd3 | | Declare_Subprogram INIT_0fd0,For_Outer_Call,Unelaborated 02f0 029b 0ffb | | Declare_Subprogram INIT_0ff8,For_Outer_Call,Unelaborated 02f2 029b 1023 | #| Declare_Subprogram INIT_1020,For_Outer_Call,Unelaborated 02f4 029b 10ab | | Declare_Subprogram INIT_10a8,For_Outer_Call,Unelaborated 02f6 029b 10fb | | Declare_Subprogram INIT_10f8,For_Outer_Call,Unelaborated 02f8 029b 1143 | C| Declare_Subprogram INIT_1140,For_Outer_Call,Unelaborated 02fa 029b 1183 | | Declare_Subprogram INIT_1180,For_Outer_Call,Unelaborated 02fc 029d 11bb | | Declare_Subprogram INIT_11b8,For_Outer_Call 02fe 029d 11e3 | | Declare_Subprogram INIT_11e0,For_Outer_Call 0300 029d 120b | | Declare_Subprogram INIT_1208,For_Outer_Call 0302 029d 1263 | c| Declare_Subprogram INIT_1260,For_Outer_Call 0304 029d 12eb | | Declare_Subprogram INIT_12e8,For_Outer_Call 0306 029d 130b | | Declare_Subprogram INIT_1308,For_Outer_Call 0308 029d 132b | +| Declare_Subprogram INIT_1328,For_Outer_Call 030a 4944 |ID | Short_Literal 0x144 030b 4801 |H | Short_Literal 0x1 030c 0099 | | Action Reference_Dynamic 030d 00c7 | | Action Elaborate_Subprogram 030e 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call 0310 029b 138b | | Declare_Subprogram INIT_1388,For_Outer_Call,Unelaborated 0312 029d 13cb | | Declare_Subprogram INIT_13c8,For_Outer_Call 0314 029d 13f3 | | Declare_Subprogram INIT_13f0,For_Outer_Call 0316 029d 145b | [| Declare_Subprogram INIT_1458,For_Outer_Call 0318 494d |IM | Short_Literal 0x14d 0319 4801 |H | Short_Literal 0x1 031a 0099 | | Action Reference_Dynamic 031b 00c7 | | Action Elaborate_Subprogram 031c 4943 |IC | Short_Literal 0x143 031d 4801 |H | Short_Literal 0x1 031e 0099 | | Action Reference_Dynamic 031f 00c7 | | Action Elaborate_Subprogram 0320 029d 14ab | | Declare_Subprogram INIT_14a8,For_Outer_Call 0322 029d 14bb | | Declare_Subprogram INIT_14b8,For_Outer_Call 0324 029d 14d3 | | Declare_Subprogram INIT_14d0,For_Outer_Call 0326 029d 14f3 | | Declare_Subprogram INIT_14f0,For_Outer_Call 0328 029d 1513 | | Declare_Subprogram INIT_1510,For_Outer_Call 032a 029d 1573 | s| Declare_Subprogram INIT_1570,For_Outer_Call 032c 029d 158b | | Declare_Subprogram INIT_1588,For_Outer_Call 032e 029d 15a3 | | Declare_Subprogram INIT_15a0,For_Outer_Call 0330 029d 15e3 | | Declare_Subprogram INIT_15e0,For_Outer_Call 0332 029d 15fb | | Declare_Subprogram INIT_15f8,For_Outer_Call 0334 029d 161b | | Declare_Subprogram INIT_1618,For_Outer_Call 0336 029d 1643 | C| Declare_Subprogram INIT_1640,For_Outer_Call 0338 029d 16bb | | Declare_Subprogram INIT_16b8,For_Outer_Call 033a 029d 16eb | | Declare_Subprogram INIT_16e8,For_Outer_Call 033c 029d 172b | +| Declare_Subprogram INIT_1728,For_Outer_Call 033e 4942 |IB | Short_Literal 0x142 033f 4801 |H | Short_Literal 0x1 0340 0099 | | Action Reference_Dynamic 0341 00c7 | | Action Elaborate_Subprogram 0342 4941 |IA | Short_Literal 0x141 0343 4801 |H | Short_Literal 0x1 0344 0099 | | Action Reference_Dynamic 0345 00c7 | | Action Elaborate_Subprogram 0346 029d 1753 | S| Declare_Subprogram INIT_1750,For_Outer_Call 0348 029d 1773 | s| Declare_Subprogram INIT_1770,For_Outer_Call 034a 4940 |I@ | Short_Literal 0x140 034b 4801 |H | Short_Literal 0x1 034c 0099 | | Action Reference_Dynamic 034d 00c7 | | Action Elaborate_Subprogram 034e 029d 179b | | Declare_Subprogram INIT_1798,For_Outer_Call 0350 029d 17db | | Declare_Subprogram INIT_17d8,For_Outer_Call 0352 493e |I> | Short_Literal 0x13e 0353 4801 |H | Short_Literal 0x1 0354 0099 | | Action Reference_Dynamic 0355 00c7 | | Action Elaborate_Subprogram 0356 493f |I? | Short_Literal 0x13f 0357 4801 |H | Short_Literal 0x1 0358 0099 | | Action Reference_Dynamic 0359 00c7 | | Action Elaborate_Subprogram 035a 029d 1863 | c| Declare_Subprogram INIT_1860,For_Outer_Call 035c 029d 187b | {| Declare_Subprogram INIT_1878,For_Outer_Call 035e 493d |I= | Short_Literal 0x13d 035f 4801 |H | Short_Literal 0x1 0360 0099 | | Action Reference_Dynamic 0361 00c7 | | Action Elaborate_Subprogram 0362 029d 18ab | | Declare_Subprogram INIT_18a8,For_Outer_Call 0364 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0365 00c7 | | Action Elaborate_Subprogram 0366 029d 18e3 | | Declare_Subprogram INIT_18e0,For_Outer_Call 0368 BODY_0008: 0368 8367 | g | Call 0x1,0x167 0369 00bc | | Action Signal_Activated 036a 00bb | | Action Signal_Completion 036b 0000 | | .XXX[0x1] 036c 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 0370 0000 0000 | | .LITERAL {0x00000000, 0x000fffff} 0374 0000 0000 | | .BLANK 0000[0x4] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0384 | | .CONST 0x0384 ; Address of begin 0379 03a1 | | .CONST 0x03a1 ; Address of exception handler 037a 0003 | | .CONST 0x0003 ; Number of locals 037b INIT_0378: 037b e5ff | | Load 0x2,-0x1 037c e046 | F | Load 0x0,0x46 037d 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 037e e5fe | | Load 0x2,-0x2 037f 8332 | 2 | Call 0x1,0x132 0380 e5f9 | | Load 0x2,-0x7 0381 8322 | " | Call 0x1,0x122 0382 01cc | | Execute Vector,Catenate 0383 0007 | | Action Break_Optional 0384 BODY_0378: 0384 e402 | | Load 0x2,0x2 0385 830f | | Call 0x1,0x10f 0386 6815 |h | Jump_Zero 0x39c 0387 00d8 | | Load_Top At_Offset_0 0388 e402 | | Load 0x2,0x2 0389 e046 | F | Load 0x0,0x46 038a 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 038b 025e | ^ | Execute Discrete,Convert 038c 1c01 | | Execute_Immediate Run_Utility,0x1 038d 01cc | | Execute Vector,Catenate 038e 0092 1add | | Action Push_String_Extended,0x1add ; " = " 0390 01cc | | Execute Vector,Catenate 0391 e5f9 | | Load 0x2,-0x7 0392 e402 | | Load 0x2,0x2 0393 e5fa | | Load 0x2,-0x6 0394 e5fb | | Load 0x2,-0x5 0395 e5fc | | Load 0x2,-0x4 0396 e5fd | | Load 0x2,-0x3 0397 e5ff | | Load 0x2,-0x1 0398 8366 | f | Call 0x1,0x166 0399 8334 | 4 | Call 0x1,0x134 039a 01cc | | Execute Vector,Catenate 039b 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 039c e5f9 | | Load 0x2,-0x7 039d e5fe | | Load 0x2,-0x2 039e e5ff | | Load 0x2,-0x1 039f 8335 | 5 | Call 0x1,0x135 03a0 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 03a1 TRAP_0378: 03a1 4884 |H | Short_Literal 0x84 03a2 010f | | Execute Exception,Equal 03a3 6805 |h | Jump_Zero 0x3a9 03a4 e403 | | Load 0x2,0x3 03a5 0092 1ade | | Action Push_String_Extended,0x1ade ; "Value not readable" 03a7 01cc | | Execute Vector,Catenate 03a8 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 03a9 e403 | | Load 0x2,0x3 03aa 0092 1adf | | Action Push_String_Extended,0x1adf ; "Exception raised: " 03ac 01cc | | Execute Vector,Catenate 03ad e047 | G | Load 0x0,0x47 03ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 03af 01cc | | Execute Vector,Catenate 03b0 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 03b1 0000 0000 | | .BLANK 0000[0x7] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03c4 | | .CONST 0x03c4 ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0002 | | .CONST 0x0002 ; Number of locals 03bb INIT_03b8: 03bb 4800 |H | Short_Literal 0x0 03bc e5ff | | Load 0x2,-0x1 03bd 01db | | Execute Vector,Length 03be 0aff | | Execute_Immediate Plus,-0x1 03bf e21a | | Load 0x1,0x1a 03c0 0334 | 4 | Declare_Variable Array,With_Constraint 03c1 e5ff | | Load 0x2,-0x1 03c2 e402 | | Load 0x2,0x2 03c3 01d4 | | Execute Vector,Structure_Write 03c4 BODY_03b8: 03c4 00d8 | | Load_Top At_Offset_0 03c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d1 | | .CONST 0x03d1 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb e232 | 2 | Load 0x1,0x32 03cc 0337 | 7 | Declare_Variable Array 03cd e5ff | | Load 0x2,-0x1 03ce 01db | | Execute Vector,Length 03cf 00e3 | | Load_Encached Natural_Cache 03d0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03d1 BODY_03c8: 03d1 00d8 | | Load_Top At_Offset_0 03d2 e227 | ' | Load 0x1,0x27 03d3 027f | | Execute Discrete,Equal 03d4 6804 |h | Jump_Zero 0x3d9 03d5 e5ff | | Load 0x2,-0x1 03d6 e402 | | Load 0x2,0x2 03d7 01d4 | | Execute Vector,Structure_Write 03d8 7822 |x" | Jump 0x3fb 03d9 00d8 | | Load_Top At_Offset_0 03da e227 | ' | Load 0x1,0x27 03db 027c | | | Execute Discrete,Less 03dc 7001 |p | Jump_Nonzero 0x3de 03dd 0887 | | Execute_Immediate Raise,0x87 03de e402 | | Load 0x2,0x2 03df 00d8 | | Load_Top At_Offset_0 03e0 0335 | 5 | Declare_Variable Array,Duplicate 03e1 00cd | | Action Spare6_Action 03e2 e404 | | Load 0x2,0x4 03e3 01d9 | | Execute Vector,Reverse_Bounds 03e4 0263 | c | Execute Discrete,Above_Bound 03e5 7005 |p | Jump_Nonzero 0x3eb 03e6 4800 |H | Short_Literal 0x0 03e7 e407 | | Load 0x2,0x7 03e8 e405 | | Load 0x2,0x5 03e9 01d6 | | Execute Vector,Field_Write 03ea 3ffb |? | Loop_Increasing 0x3e6 03eb 00cd | | Action Spare6_Action 03ec e402 | | Load 0x2,0x2 03ed 01d4 | | Execute Vector,Structure_Write 03ee e5ff | | Load 0x2,-0x1 03ef e227 | ' | Load 0x1,0x27 03f0 e403 | | Load 0x2,0x3 03f1 0272 | r | Execute Discrete,Minus 03f2 0a01 | | Execute_Immediate Plus,0x1 03f3 00d8 | | Load_Top At_Offset_0 03f4 00e5 | | Load_Encached Long_Integer_Cache 03f5 0260 | ` | Execute Discrete,In_Type 03f6 7001 |p | Jump_Nonzero 0x3f8 03f7 08e0 | | Execute_Immediate Raise,0xe0 03f8 e227 | ' | Load 0x1,0x27 03f9 e402 | | Load 0x2,0x2 03fa 01ce | | Execute Vector,Slice_Write 03fb e402 | | Load 0x2,0x2 03fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03fd 0000 0000 | | .XXX[0x3] 03ff 0000 | | 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 e5ff | | Load 0x2,-0x1 0404 01db | | Execute Vector,Length 0405 e227 | ' | Load 0x1,0x27 0406 027a | z | Execute Discrete,Less_Equal 0407 7001 |p | Jump_Nonzero 0x409 0408 0887 | | Execute_Immediate Raise,0x87 0409 e5ff | | Load 0x2,-0x1 040a 8238 | 8 | Call 0x1,0x38 040b e233 | 3 | Load 0x1,0x33 040c e234 | 4 | Load 0x1,0x34 040d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 040e 8002 | | Call 0x0,0x2 040f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0418 | | .CONST 0x0418 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0002 | | .CONST 0x0002 ; Number of locals 0413 INIT_0410: 0413 e23b | ; | Load 0x1,0x3b 0414 0337 | 7 | Declare_Variable Array 0415 e5ff | | Load 0x2,-0x1 0416 e402 | | Load 0x2,0x2 0417 01d4 | | Execute Vector,Structure_Write 0418 BODY_0410: 0418 00d8 | | Load_Top At_Offset_0 0419 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 041a 0000 0000 | | .BLANK 0000[0x6] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 e5ff | | Load 0x2,-0x1 0424 01db | | Execute Vector,Length 0425 e23a | : | Load 0x1,0x3a 0426 027f | | Execute Discrete,Equal 0427 7001 |p | Jump_Nonzero 0x429 0428 0887 | | Execute_Immediate Raise,0x87 0429 e5ff | | Load 0x2,-0x1 042a 8241 | A | Call 0x1,0x41 042b e23c | < | Load 0x1,0x3c 042c e23d | = | Load 0x1,0x3d 042d 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 042e 8002 | | Call 0x0,0x2 042f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e5ff | | Load 0x2,-0x1 0434 e222 | " | Load 0x1,0x22 0435 e223 | # | Load 0x1,0x23 0436 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0437 8002 | | Call 0x0,0x2 0438 00d8 | | Load_Top At_Offset_0 0439 e218 | | Load 0x1,0x18 043a 0260 | ` | Execute Discrete,In_Type 043b 7001 |p | Jump_Nonzero 0x43d 043c 08e0 | | Execute_Immediate Raise,0xe0 043d e5fe | | Load 0x2,-0x2 043e 0273 | s | Execute Discrete,Plus 043f e214 | | Load 0x1,0x14 0440 025b | [ | Execute Discrete,Check_In_Type 0441 e21d | | Load 0x1,0x1d 0442 e21e | | Load 0x1,0x1e 0443 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0444 8002 | | Call 0x0,0x2 0445 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0446 0000 0000 | | .XXX[0x2] 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 e5ff | | Load 0x2,-0x1 044c e22d | - | Load 0x1,0x2d 044d e22e | . | Load 0x1,0x2e 044e 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 044f 8002 | | Call 0x0,0x2 0450 e5fe | | Load 0x2,-0x2 0451 0273 | s | Execute Discrete,Plus 0452 e001 | | Load 0x0,0x1 0453 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 0454 025b | [ | Execute Discrete,Check_In_Type 0455 e228 | ( | Load 0x1,0x28 0456 e229 | ) | Load 0x1,0x29 0457 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0458 8002 | | Call 0x0,0x2 0459 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045a 0000 0000 | | .BLANK 0000[0x6] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0480 | | .CONST 0x0480 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0005 | | .CONST 0x0005 ; Number of locals 0463 INIT_0460: 0463 e5ff | | Load 0x2,-0x1 0464 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0465 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0466 e001 | | Load 0x0,0x1 0467 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 0468 03f1 | | Declare_Variable Discrete,With_Value 0469 e001 | | Load 0x0,0x1 046a 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 046b 0322 | " | Declare_Variable Record 046c e5fe | | Load 0x2,-0x2 046d e5ff | | Load 0x2,-0x1 046e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 046f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0470 824d | M | Call 0x1,0x4d 0471 e403 | | Load 0x2,0x3 0472 017d | } | Execute Record,Structure_Write 0473 00d8 | | Load_Top At_Offset_0 0474 e222 | " | Load 0x1,0x22 0475 e223 | # | Load 0x1,0x23 0476 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0477 8002 | | Call 0x0,0x2 0478 e402 | | Load 0x2,0x2 0479 e046 | F | Load 0x0,0x46 047a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 047b e048 | H | Load 0x0,0x48 047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047d 03f1 | | Declare_Variable Discrete,With_Value 047e 029f 1923 | #| Declare_Subprogram INIT_1920,For_Call 0480 BODY_0460: 0480 00cf | | Action Mark_Auxiliary 0481 4803 |H | Short_Literal 0x3 0482 4801 |H | Short_Literal 0x1 0483 0007 | | Action Break_Optional 0484 8405 | | Call 0x2,0x5 0485 00c8 | | Action Pop_Auxiliary_Range 0486 3ffd |? | Loop_Increasing 0x484 0487 00ce | | Action Pop_Auxiliary 0488 4884 |H | Short_Literal 0x84 0489 0257 | W | Execute Discrete,Raise 048a 0000 0000 | | .BLANK 0000[0x6] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0496 | | .CONST 0x0496 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0002 | | .CONST 0x0002 ; Number of locals 0493 INIT_0490: 0493 e001 | | Load 0x0,0x1 0494 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 0495 0322 | " | Declare_Variable Record 0496 BODY_0490: 0496 4fff |O | Short_Literal -0x1 0497 e218 | | Load 0x1,0x18 0498 025b | [ | Execute Discrete,Check_In_Type 0499 e5ff | | Load 0x2,-0x1 049a 8267 | g | Call 0x1,0x67 049b e24f | O | Load 0x1,0x4f 049c e250 | P | Load 0x1,0x50 049d 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 049e 8002 | | Call 0x0,0x2 049f e402 | | Load 0x2,0x2 04a0 017d | } | Execute Record,Structure_Write 04a1 00d8 | | Load_Top At_Offset_0 04a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04a3 6801 |h | Jump_Zero 0x4a5 04a4 0887 | | Execute_Immediate Raise,0x87 04a5 00d8 | | Load_Top At_Offset_0 04a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a7 0000 | | .XXX[0x1] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab e5fe | | Load 0x2,-0x2 04ac 00d8 | | Load_Top At_Offset_0 04ad e218 | | Load 0x1,0x18 04ae 0260 | ` | Execute Discrete,In_Type 04af 7001 |p | Jump_Nonzero 0x4b1 04b0 08e0 | | Execute_Immediate Raise,0xe0 04b1 e5ff | | Load 0x2,-0x1 04b2 8267 | g | Call 0x1,0x67 04b3 e254 | T | Load 0x1,0x54 04b4 e255 | U | Load 0x1,0x55 04b5 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 04b6 8002 | | Call 0x0,0x2 04b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb e5fe | | Load 0x2,-0x2 04bc 0901 | | Execute_Immediate Binary_Scale,0x1 04bd 0a01 | | Execute_Immediate Plus,0x1 04be 00d8 | | Load_Top At_Offset_0 04bf e218 | | Load 0x1,0x18 04c0 0260 | ` | Execute Discrete,In_Type 04c1 7001 |p | Jump_Nonzero 0x4c3 04c2 08e0 | | Execute_Immediate Raise,0xe0 04c3 e5ff | | Load 0x2,-0x1 04c4 8267 | g | Call 0x1,0x67 04c5 e259 | Y | Load 0x1,0x59 04c6 e25a | Z | Load 0x1,0x5a 04c7 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 04c8 8002 | | Call 0x0,0x2 04c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ca 0000 0000 | | .BLANK 0000[0x6] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 e5fe | | Load 0x2,-0x2 04d4 0901 | | Execute_Immediate Binary_Scale,0x1 04d5 00d8 | | Load_Top At_Offset_0 04d6 e218 | | Load 0x1,0x18 04d7 0260 | ` | Execute Discrete,In_Type 04d8 7001 |p | Jump_Nonzero 0x4da 04d9 08e0 | | Execute_Immediate Raise,0xe0 04da e5ff | | Load 0x2,-0x1 04db 8267 | g | Call 0x1,0x67 04dc e25e | ^ | Load 0x1,0x5e 04dd e25f | _ | Load 0x1,0x5f 04de 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 04df 8002 | | Call 0x0,0x2 04e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e1 0000 0000 | | .BLANK 0000[0x7] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f3 | | .CONST 0x04f3 ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0006 | | .CONST 0x0006 ; Number of locals 04eb INIT_04e8: 04eb a002 | | Store_Unchecked 0x0,0x2 04ec 00c6 | | Action Check_Subprogram_Elaborated 04ed e213 | | Load 0x1,0x13 04ee e5fe | | Load 0x2,-0x2 04ef e049 | I | Load 0x0,0x49 04f0 e04a | J | Load 0x0,0x4a 04f1 4806 |H | Short_Literal 0x6 04f2 0007 | | Action Break_Optional 04f3 BODY_04e8: 04f3 e5fc | | Load 0x2,-0x4 04f4 e5fd | | Load 0x2,-0x3 04f5 8267 | g | Call 0x1,0x67 04f6 e402 | | Load 0x2,0x2 04f7 e403 | | Load 0x2,0x3 04f8 4804 |H | Short_Literal 0x4 04f9 4802 |H | Short_Literal 0x2 04fa 0099 | | Action Reference_Dynamic 04fb 8002 | | Call 0x0,0x2 04fc e5fe | | Load 0x2,-0x2 04fd 011d | | Execute Any,Convert_To_Formal 04fe 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04ff 0000 | | .XXX[0x1] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 051b | | .CONST 0x051b ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0004 | | .CONST 0x0004 ; Number of locals 0503 INIT_0500: 0503 e275 | u | Load 0x1,0x75 0504 0337 | 7 | Declare_Variable Array 0505 00d8 | | Load_Top At_Offset_0 0506 0335 | 5 | Declare_Variable Array,Duplicate 0507 00cd | | Action Spare6_Action 0508 4840 |H@ | Short_Literal 0x40 0509 4801 |H | Short_Literal 0x1 050a 4800 |H | Short_Literal 0x0 050b e405 | | Load 0x2,0x5 050c e403 | | Load 0x2,0x3 050d 01d6 | | Execute Vector,Field_Write 050e 3ffb |? | Loop_Increasing 0x50a 050f e402 | | Load 0x2,0x2 0510 01d4 | | Execute Vector,Structure_Write 0511 e5ff | | Load 0x2,-0x1 0512 01db | | Execute Vector,Length 0513 00e5 | | Load_Encached Long_Integer_Cache 0514 03f1 | | Declare_Variable Discrete,With_Value 0515 00d8 | | Load_Top At_Offset_0 0516 0d41 | A | Execute_Immediate Less,0x41 0517 7001 |p | Jump_Nonzero 0x519 0518 0887 | | Execute_Immediate Raise,0x87 0519 e001 | | Load 0x0,0x1 051a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 051b BODY_0500: 051b e403 | | Load 0x2,0x3 051c 7002 |p | Jump_Nonzero 0x51f 051d 4800 |H | Short_Literal 0x0 051e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 051f e5ff | | Load 0x2,-0x1 0520 4840 |H@ | Short_Literal 0x40 0521 e403 | | Load 0x2,0x3 0522 0272 | r | Execute Discrete,Minus 0523 0a01 | | Execute_Immediate Plus,0x1 0524 4840 |H@ | Short_Literal 0x40 0525 e402 | | Load 0x2,0x2 0526 01ce | | Execute Vector,Slice_Write 0527 e402 | | Load 0x2,0x2 0528 e276 | v | Load 0x1,0x76 0529 e277 | w | Load 0x1,0x77 052a 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 052b 8002 | | Call 0x0,0x2 052c a404 | | Store_Unchecked 0x2,0x4 052d 00d8 | | Load_Top At_Offset_0 052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052f 0000 | | .XXX[0x1] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0538 | 8 | .CONST 0x0538 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0002 | | .CONST 0x0002 ; Number of locals 0533 INIT_0530: 0533 e27c | | | Load 0x1,0x7c 0534 0337 | 7 | Declare_Variable Array 0535 e5ff | | Load 0x2,-0x1 0536 e402 | | Load 0x2,0x2 0537 01d4 | | Execute Vector,Structure_Write 0538 BODY_0530: 0538 00d8 | | Load_Top At_Offset_0 0539 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053a 0000 0000 | | .BLANK 0000[0x6] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 054f | O | .CONST 0x054f ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 e5ff | | Load 0x2,-0x1 0544 01db | | Execute Vector,Length 0545 0f08 | | Execute_Immediate Equal,0x8 0546 7001 |p | Jump_Nonzero 0x548 0547 0887 | | Execute_Immediate Raise,0x87 0548 e5ff | | Load 0x2,-0x1 0549 8282 | | Call 0x1,0x82 054a e27d | } | Load 0x1,0x7d 054b e27e | ~ | Load 0x1,0x7e 054c 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 054d 8002 | | Call 0x0,0x2 054e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 054f TRAP_0540: 054f 010d | | Execute Exception,Is_Numeric_Error 0550 6802 |h | Jump_Zero 0x553 0551 4800 |H | Short_Literal 0x0 0552 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0553 0100 | | Execute Exception,Raise 0554 0000 0000 | | .BLANK 0000[0x4] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b e5ff | | Load 0x2,-0x1 055c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055d 7009 |p | Jump_Nonzero 0x567 055e e5ff | | Load 0x2,-0x1 055f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0560 7004 |p | Jump_Nonzero 0x565 0561 e5ff | | Load 0x2,-0x1 0562 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0563 0f00 | | Execute_Immediate Equal,0x0 0564 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0565 4800 |H | Short_Literal 0x0 0566 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0567 4800 |H | Short_Literal 0x0 0568 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0569 0000 0000 | | .BLANK 0000[0x7] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 057f | | .CONST 0x057f ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0003 | | .CONST 0x0003 ; Number of locals 0573 INIT_0570: 0573 e5ff | | Load 0x2,-0x1 0574 e212 | | Load 0x1,0x12 0575 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0576 e212 | | Load 0x1,0x12 0577 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0578 03f1 | | Declare_Variable Discrete,With_Value 0579 e5ff | | Load 0x2,-0x1 057a e212 | | Load 0x1,0x12 057b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 057c e212 | | Load 0x1,0x12 057d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 057e 03f1 | | Declare_Variable Discrete,With_Value 057f BODY_0570: 057f 00d8 | | Load_Top At_Offset_0 0580 e5fe | | Load 0x2,-0x2 0581 00d8 | | Load_Top At_Offset_0 0582 e001 | | Load 0x0,0x1 0583 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 0584 0260 | ` | Execute Discrete,In_Type 0585 7001 |p | Jump_Nonzero 0x587 0586 08e0 | | Execute_Immediate Raise,0xe0 0587 0273 | s | Execute Discrete,Plus 0588 e001 | | Load 0x0,0x1 0589 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 058a 025b | [ | Execute Discrete,Check_In_Type 058b e402 | | Load 0x2,0x2 058c e212 | | Load 0x1,0x12 058d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 058e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 058f 0000 | | .XXX[0x1] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 059f | | .CONST 0x059f ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0003 | | .CONST 0x0003 ; Number of locals 0593 INIT_0590: 0593 e5ff | | Load 0x2,-0x1 0594 e212 | | Load 0x1,0x12 0595 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0596 e212 | | Load 0x1,0x12 0597 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0598 03f1 | | Declare_Variable Discrete,With_Value 0599 e5ff | | Load 0x2,-0x1 059a e212 | | Load 0x1,0x12 059b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 059c e212 | | Load 0x1,0x12 059d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 059e 03f1 | | Declare_Variable Discrete,With_Value 059f BODY_0590: 059f 00d8 | | Load_Top At_Offset_0 05a0 600b |` | Indirect_Literal Discrete,0x5ac,{0x00000000, 0x00002000} 05a1 0273 | s | Execute Discrete,Plus 05a2 e001 | | Load 0x0,0x1 05a3 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 05a4 025b | [ | Execute Discrete,Check_In_Type 05a5 e402 | | Load 0x2,0x2 05a6 e212 | | Load 0x1,0x12 05a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a9 0000 0000 | | .XXX[0x3] 05ab 0000 | | 05ac 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 e5fe | | Load 0x2,-0x2 05b4 e22d | - | Load 0x1,0x2d 05b5 e22e | . | Load 0x1,0x2e 05b6 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 05b7 8002 | | Call 0x0,0x2 05b8 e5ff | | Load 0x2,-0x1 05b9 e212 | | Load 0x1,0x12 05ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05bc 0000 0000 | | .BLANK 0000[0x4] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05cc | | .CONST 0x05cc ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0002 | | .CONST 0x0002 ; Number of locals 05c3 INIT_05c0: 05c3 e001 | | Load 0x0,0x1 05c4 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 05c5 0322 | " | Declare_Variable Record 05c6 e5fe | | Load 0x2,-0x2 05c7 e5ff | | Load 0x2,-0x1 05c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05c9 824e | N | Call 0x1,0x4e 05ca e402 | | Load 0x2,0x2 05cb 017d | } | Execute Record,Structure_Write 05cc BODY_05c0: 05cc 00d8 | | Load_Top At_Offset_0 05cd e5ff | | Load 0x2,-0x1 05ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05cf 8287 | | Call 0x1,0x87 05d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d1 0000 0000 | | .BLANK 0000[0x7] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e2 | | .CONST 0x05e2 ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0002 | | .CONST 0x0002 ; Number of locals 05db INIT_05d8: 05db e5fe | | Load 0x2,-0x2 05dc e22d | - | Load 0x1,0x2d 05dd e22e | . | Load 0x1,0x2e 05de 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 05df 8002 | | Call 0x0,0x2 05e0 e215 | | Load 0x1,0x15 05e1 03f1 | | Declare_Variable Discrete,With_Value 05e2 BODY_05d8: 05e2 00d8 | | Load_Top At_Offset_0 05e3 7002 |p | Jump_Nonzero 0x5e6 05e4 4800 |H | Short_Literal 0x0 05e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e6 00d8 | | Load_Top At_Offset_0 05e7 e5ff | | Load 0x2,-0x1 05e8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05e9 8288 | | Call 0x1,0x88 05ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05eb 0000 0000 | | .BLANK 0000[0x5] 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 4800 |H | Short_Literal 0x0 05f4 e5ff | | Load 0x2,-0x1 05f5 8288 | | Call 0x1,0x88 05f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f7 0000 | | .XXX[0x1] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb e5ff | | Load 0x2,-0x1 05fc 0b38 | 8 | Execute_Immediate Case_Compare,0x38 05fd 7003 |p | Jump_Nonzero 0x601 05fe 0f10 | | Execute_Immediate Equal,0x10 05ff 7009 |p | Jump_Nonzero 0x609 0600 0887 | | Execute_Immediate Raise,0x87 0601 00d1 | | Pop_Control Pop_Count_1 0602 e5fd | | Load 0x2,-0x3 0603 e248 | H | Load 0x1,0x48 0604 e249 | I | Load 0x1,0x49 0605 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0606 8002 | | Call 0x0,0x2 0607 828a | | Call 0x1,0x8a 0608 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0609 e5fd | | Load 0x2,-0x3 060a 00d8 | | Load_Top At_Offset_0 060b e001 | | Load 0x0,0x1 060c 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 060d 0260 | ` | Execute Discrete,In_Type 060e 7001 |p | Jump_Nonzero 0x610 060f 08e0 | | Execute_Immediate Raise,0xe0 0610 e5fe | | Load 0x2,-0x2 0611 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0612 8288 | | Call 0x1,0x88 0613 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0614 0000 0000 | | .BLANK 0000[0x4] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b e5ff | | Load 0x2,-0x1 061c 8284 | | Call 0x1,0x84 061d 6802 |h | Jump_Zero 0x620 061e 4800 |H | Short_Literal 0x0 061f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0620 e5ff | | Load 0x2,-0x1 0621 e5fe | | Load 0x2,-0x2 0622 e046 | F | Load 0x0,0x46 0623 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0624 8287 | | Call 0x1,0x87 0625 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0626 0000 0000 | | .XXX[0x2] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 0631 | 1 | .CONST 0x0631 ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0003 | | .CONST 0x0003 ; Number of locals 062b INIT_0628: 062b e001 | | Load 0x0,0x1 062c 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 062d 0322 | " | Declare_Variable Record 062e e001 | | Load 0x0,0x1 062f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0630 0322 | " | Declare_Variable Record 0631 BODY_0628: 0631 e5ff | | Load 0x2,-0x1 0632 01db | | Execute Vector,Length 0633 e23a | : | Load 0x1,0x3a 0634 027f | | Execute Discrete,Equal 0635 680f |h | Jump_Zero 0x645 0636 e5ff | | Load 0x2,-0x1 0637 8242 | B | Call 0x1,0x42 0638 e403 | | Load 0x2,0x3 0639 017d | } | Execute Record,Structure_Write 063a 00d8 | | Load_Top At_Offset_0 063b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 063c 7005 |p | Jump_Nonzero 0x642 063d e5fe | | Load 0x2,-0x2 063e e403 | | Load 0x2,0x3 063f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0640 828c | | Call 0x1,0x8c 0641 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0642 00d8 | | Load_Top At_Offset_0 0643 828a | | Call 0x1,0x8a 0644 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0645 e5ff | | Load 0x2,-0x1 0646 8239 | 9 | Call 0x1,0x39 0647 e402 | | Load 0x2,0x2 0648 017d | } | Execute Record,Structure_Write 0649 e5fe | | Load 0x2,-0x2 064a e402 | | Load 0x2,0x2 064b 828c | | Call 0x1,0x8c 064c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 064d 0000 0000 | | .XXX[0x3] 064f 0000 | | 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0655 | U | .CONST 0x0655 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0002 | | .CONST 0x0002 ; Number of locals 0653 INIT_0650: 0653 e001 | | Load 0x0,0x1 0654 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0655 BODY_0650: 0655 e5ff | | Load 0x2,-0x1 0656 0b38 | 8 | Execute_Immediate Case_Compare,0x38 0657 7003 |p | Jump_Nonzero 0x65b 0658 0f10 | | Execute_Immediate Equal,0x10 0659 7006 |p | Jump_Nonzero 0x660 065a 0887 | | Execute_Immediate Raise,0x87 065b 00d1 | | Pop_Control Pop_Count_1 065c e5fc | | Load 0x2,-0x4 065d e5fd | | Load 0x2,-0x3 065e 828d | | Call 0x1,0x8d 065f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0660 e5fd | | Load 0x2,-0x3 0661 827b | { | Call 0x1,0x7b 0662 a402 | | Store_Unchecked 0x2,0x2 0663 00d8 | | Load_Top At_Offset_0 0664 7002 |p | Jump_Nonzero 0x667 0665 4800 |H | Short_Literal 0x0 0666 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0667 00d8 | | Load_Top At_Offset_0 0668 00d8 | | Load_Top At_Offset_0 0669 e001 | | Load 0x0,0x1 066a 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 066b 0260 | ` | Execute Discrete,In_Type 066c 7001 |p | Jump_Nonzero 0x66e 066d 08e0 | | Execute_Immediate Raise,0xe0 066e e5fe | | Load 0x2,-0x2 066f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0670 8288 | | Call 0x1,0x88 0671 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0672 0000 0000 | | .BLANK 0000[0x6] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b e5fe | | Load 0x2,-0x2 067c 0aff | | Execute_Immediate Plus,-0x1 067d e5ff | | Load 0x2,-0x1 067e 0273 | s | Execute Discrete,Plus 067f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 e5fe | | Load 0x2,-0x2 0684 6805 |h | Jump_Zero 0x68a 0685 e5ff | | Load 0x2,-0x1 0686 0d4f | O | Execute_Immediate Less,0x4f 0687 6802 |h | Jump_Zero 0x68a 0688 484f |HO | Short_Literal 0x4f 0689 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 068a e5ff | | Load 0x2,-0x1 068b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 068c 0000 0000 | | .BLANK 0000[0x4] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 0693 | | .CONST 0x0693 ; Address of begin 0691 0697 | | .CONST 0x0697 ; Address of exception handler 0692 0001 | | .CONST 0x0001 ; Number of locals 0693 BODY_0690: 0693 INIT_0690: 0693 e5ff | | Load 0x2,-0x1 0694 e5fe | | Load 0x2,-0x2 0695 0273 | s | Execute Discrete,Plus 0696 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0697 TRAP_0690: 0697 010d | | Execute Exception,Is_Numeric_Error 0698 6802 |h | Jump_Zero 0x69b 0699 6002 |` | Indirect_Literal Discrete,0x69c,{0x7fffffff, 0xffffffff} 069a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069b 0100 | | Execute Exception,Raise 069c 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06af | | .CONST 0x06af ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0003 | | .CONST 0x0003 ; Number of locals 06a3 INIT_06a0: 06a3 e5fd | | Load 0x2,-0x3 06a4 00e3 | | Load_Encached Natural_Cache 06a5 025b | [ | Execute Discrete,Check_In_Type 06a6 e5ff | | Load 0x2,-0x1 06a7 8291 | | Call 0x1,0x91 06a8 00e5 | | Load_Encached Long_Integer_Cache 06a9 03f1 | | Declare_Variable Discrete,With_Value 06aa e5fb | | Load 0x2,-0x5 06ab e5fc | | Load 0x2,-0x4 06ac 8290 | | Call 0x1,0x90 06ad 00e3 | | Load_Encached Natural_Cache 06ae 03f1 | | Declare_Variable Discrete,With_Value 06af BODY_06a0: 06af e402 | | Load 0x2,0x2 06b0 a5fa | | Store_Unchecked 0x2,-0x6 06b1 00d8 | | Load_Top At_Offset_0 06b2 0aff | | Execute_Immediate Plus,-0x1 06b3 00e3 | | Load_Encached Natural_Cache 06b4 025b | [ | Execute Discrete,Check_In_Type 06b5 e402 | | Load 0x2,0x2 06b6 8291 | | Call 0x1,0x91 06b7 a5f9 | | Store_Unchecked 0x2,-0x7 06b8 e5f9 | | Load 0x2,-0x7 06b9 e5fe | | Load 0x2,-0x2 06ba 027d | } | Execute Discrete,Greater 06bb 6802 |h | Jump_Zero 0x6be 06bc e5fe | | Load 0x2,-0x2 06bd a5f9 | | Store_Unchecked 0x2,-0x7 06be 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06bf 0000 | | .XXX[0x1] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 e5ff | | Load 0x2,-0x1 06c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06c5 700b |p | Jump_Nonzero 0x6d1 06c6 e5ff | | Load 0x2,-0x1 06c7 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06c9 7005 |p | Jump_Nonzero 0x6cf 06ca e5ff | | Load 0x2,-0x1 06cb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06cd 0f00 | | Execute_Immediate Equal,0x0 06ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06cf 4800 |H | Short_Literal 0x0 06d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d1 4800 |H | Short_Literal 0x0 06d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d3 0000 0000 | | .BLANK 0000[0x5] 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06db | | .CONST 0x06db ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0001 | | .CONST 0x0001 ; Number of locals 06db BODY_06d8: 06db INIT_06d8: 06db e5ff | | Load 0x2,-0x1 06dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06dd 7004 |p | Jump_Nonzero 0x6e2 06de e5ff | | Load 0x2,-0x1 06df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06e0 8293 | | Call 0x1,0x93 06e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e2 4800 |H | Short_Literal 0x0 06e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e4 0000 0000 | | .BLANK 0000[0x4] 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 e5ff | | Load 0x2,-0x1 06ec 0b10 | | Execute_Immediate Case_Compare,0x10 06ed 7004 |p | Jump_Nonzero 0x6f2 06ee 0f38 | 8 | Execute_Immediate Equal,0x38 06ef 7003 |p | Jump_Nonzero 0x6f3 06f0 4800 |H | Short_Literal 0x0 06f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06f2 00d1 | | Pop_Control Pop_Count_1 06f3 4801 |H | Short_Literal 0x1 06f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e5ff | | Load 0x2,-0x1 06fc 0b44 | D | Execute_Immediate Case_Compare,0x44 06fd 7004 |p | Jump_Nonzero 0x702 06fe 0f4c | L | Execute_Immediate Equal,0x4c 06ff 7003 |p | Jump_Nonzero 0x703 0700 4800 |H | Short_Literal 0x0 0701 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0702 00d1 | | Pop_Control Pop_Count_1 0703 4801 |H | Short_Literal 0x1 0704 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0705 0000 0000 | | .XXX[0x3] 0707 0000 | | 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 0716 | | .CONST 0x0716 ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0004 | | .CONST 0x0004 ; Number of locals 070b INIT_0708: 070b e5ff | | Load 0x2,-0x1 070c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 070d e046 | F | Load 0x0,0x46 070e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 070f 03f1 | | Declare_Variable Discrete,With_Value 0710 e001 | | Load 0x0,0x1 0711 1b92 | | Execute Package,Field_Read,Field_Number 0x92 0712 0322 | " | Declare_Variable Record 0713 e001 | | Load 0x0,0x1 0714 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 0715 0322 | " | Declare_Variable Record 0716 BODY_0708: 0716 e402 | | Load 0x2,0x2 0717 8295 | | Call 0x1,0x95 0718 6816 |h | Jump_Zero 0x72f 0719 4800 |H | Short_Literal 0x0 071a e218 | | Load 0x1,0x18 071b 025b | [ | Execute Discrete,Check_In_Type 071c e5ff | | Load 0x2,-0x1 071d e26d | m | Load 0x1,0x6d 071e 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 071f 826c | l | Call 0x1,0x6c 0720 e403 | | Load 0x2,0x3 0721 017d | } | Execute Record,Structure_Write 0722 e403 | | Load 0x2,0x3 0723 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0724 e404 | | Load 0x2,0x4 0725 017d | } | Execute Record,Structure_Write 0726 00d8 | | Load_Top At_Offset_0 0727 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0728 8296 | | Call 0x1,0x96 0729 7003 |p | Jump_Nonzero 0x72d 072a 00d8 | | Load_Top At_Offset_0 072b 8297 | | Call 0x1,0x97 072c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 072d 4801 |H | Short_Literal 0x1 072e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 072f 4800 |H | Short_Literal 0x0 0730 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0731 0000 0000 | | .BLANK 0000[0x7] 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 e5ff | | Load 0x2,-0x1 073c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 073d 0f4c | L | Execute_Immediate Equal,0x4c 073e 6809 |h | Jump_Zero 0x748 073f 4800 |H | Short_Literal 0x0 0740 e218 | | Load 0x1,0x18 0741 025b | [ | Execute Discrete,Check_In_Type 0742 e5ff | | Load 0x2,-0x1 0743 e271 | q | Load 0x1,0x71 0744 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 0745 826c | l | Call 0x1,0x6c 0746 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0747 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0748 4800 |H | Short_Literal 0x0 0749 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 074a 0000 0000 | | .BLANK 0000[0x6] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0753 | S | .CONST 0x0753 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0001 | | .CONST 0x0001 ; Number of locals 0753 BODY_0750: 0753 INIT_0750: 0753 e5ff | | Load 0x2,-0x1 0754 0b74 | t | Execute_Immediate Case_Compare,0x74 0755 7004 |p | Jump_Nonzero 0x75a 0756 0f7c | | | Execute_Immediate Equal,0x7c 0757 7003 |p | Jump_Nonzero 0x75b 0758 4800 |H | Short_Literal 0x0 0759 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 075a 00d1 | | Pop_Control Pop_Count_1 075b 4801 |H | Short_Literal 0x1 075c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 075d 0000 0000 | | .XXX[0x3] 075f 0000 | | 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 e5ff | | Load 0x2,-0x1 0764 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0765 00d8 | | Load_Top At_Offset_0 0766 0d6c | l | Execute_Immediate Less,0x6c 0767 7018 |p | Jump_Nonzero 0x780 0768 0a94 | | Execute_Immediate Plus,-0x6c 0769 4613 |F | Jump_Case 0x14 076a 7817 |x | Jump 0x782 ; case 0x0 076b 7812 |x | Jump 0x77e ; case 0x1 076c 7811 |x | Jump 0x77e ; case 0x2 076d 7810 |x | Jump 0x77e ; case 0x3 076e 780f |x | Jump 0x77e ; case 0x4 076f 780e |x | Jump 0x77e ; case 0x5 0770 780d |x | Jump 0x77e ; case 0x6 0771 780c |x | Jump 0x77e ; case 0x7 0772 780f |x | Jump 0x782 ; case 0x8 0773 780a |x | Jump 0x77e ; case 0x9 0774 7809 |x | Jump 0x77e ; case 0xa 0775 7808 |x | Jump 0x77e ; case 0xb 0776 7807 |x | Jump 0x77e ; case 0xc 0777 7806 |x | Jump 0x77e ; case 0xd 0778 7805 |x | Jump 0x77e ; case 0xe 0779 7804 |x | Jump 0x77e ; case 0xf 077a 7807 |x | Jump 0x782 ; case 0x10 077b 7802 |x | Jump 0x77e ; case 0x11 077c 7801 |x | Jump 0x77e ; case 0x12 077d 7800 |x | Jump 0x77e ; case 0x13 077e 4800 |H | Short_Literal 0x0 077f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0780 00d1 | | Pop_Control Pop_Count_1 0781 7ffc | | Jump 0x77e 0782 e5ff | | Load 0x2,-0x1 0783 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0784 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0785 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0786 0000 0000 | | .XXX[0x2] 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 e5ff | | Load 0x2,-0x1 078c e5fe | | Load 0x2,-0x2 078d 0273 | s | Execute Discrete,Plus 078e 0aff | | Execute_Immediate Plus,-0x1 078f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 079a | | .CONST 0x079a ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0002 | | .CONST 0x0002 ; Number of locals 0793 INIT_0790: 0793 e001 | | Load 0x0,0x1 0794 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 0795 0322 | " | Declare_Variable Record 0796 e5ff | | Load 0x2,-0x1 0797 8268 | h | Call 0x1,0x68 0798 e402 | | Load 0x2,0x2 0799 017d | } | Execute Record,Structure_Write 079a BODY_0790: 079a 00d8 | | Load_Top At_Offset_0 079b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 079c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 079d 0000 0000 | | .XXX[0x3] 079f 0000 | | 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07de | | .CONST 0x07de ; Address of begin 07a1 0004 | | .CONST 0x0004 ; Address of exception handler 07a2 0011 | | .CONST 0x0011 ; Number of locals 07a3 INIT_07a0: 07a3 e5fe | | Load 0x2,-0x2 07a4 012c | , | Execute Any,Size 07a5 00e5 | | Load_Encached Long_Integer_Cache 07a6 03f1 | | Declare_Variable Discrete,With_Value 07a7 4801 |H | Short_Literal 0x1 07a8 e402 | | Load 0x2,0x2 07a9 e21a | | Load 0x1,0x1a 07aa 035b | [ | Declare_Type Array,Constrained 07ab a002 | | Store_Unchecked 0x0,0x2 07ac 00c6 | | Action Check_Subprogram_Elaborated 07ad 00d8 | | Load_Top At_Offset_0 07ae e5fe | | Load 0x2,-0x2 07af e04b | K | Load 0x0,0x4b 07b0 e04c | L | Load 0x0,0x4c 07b1 4808 |H | Short_Literal 0x8 07b2 0007 | | Action Break_Optional 07b3 e403 | | Load 0x2,0x3 07b4 0337 | 7 | Declare_Variable Array 07b5 00d8 | | Load_Top At_Offset_0 07b6 0335 | 5 | Declare_Variable Array,Duplicate 07b7 00cd | | Action Spare6_Action 07b8 e409 | | Load 0x2,0x9 07b9 01d9 | | Execute Vector,Reverse_Bounds 07ba 0263 | c | Execute Discrete,Above_Bound 07bb 7005 |p | Jump_Nonzero 0x7c1 07bc 4800 |H | Short_Literal 0x0 07bd e40c | | Load 0x2,0xc 07be e40a | | Load 0x2,0xa 07bf 01d6 | | Execute Vector,Field_Write 07c0 3ffb |? | Loop_Increasing 0x7bc 07c1 e409 | | Load 0x2,0x9 07c2 01d4 | | Execute Vector,Structure_Write 07c3 00d8 | | Load_Top At_Offset_0 07c4 012c | , | Execute Any,Size 07c5 00e5 | | Load_Encached Long_Integer_Cache 07c6 03f1 | | Declare_Variable Discrete,With_Value 07c7 e5fc | | Load 0x2,-0x4 07c8 829c | | Call 0x1,0x9c 07c9 00e5 | | Load_Encached Long_Integer_Cache 07ca 03f1 | | Declare_Variable Discrete,With_Value 07cb 00d8 | | Load_Top At_Offset_0 07cc 601b |` | Indirect_Literal Discrete,0x7e8,{0x00000000, 0x00002000} 07cd 027a | z | Execute Discrete,Less_Equal 07ce 7001 |p | Jump_Nonzero 0x7d0 07cf 0887 | | Execute_Immediate Raise,0x87 07d0 4801 |H | Short_Literal 0x1 07d1 e40b | | Load 0x2,0xb 07d2 e21a | | Load 0x1,0x1a 07d3 035b | [ | Declare_Type Array,Constrained 07d4 e01b | | Load 0x0,0x1b 07d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07d6 1911 | | Execute Package,Field_Reference,Field_Number 0x11 07d7 00c6 | | Action Check_Subprogram_Elaborated 07d8 00d8 | | Load_Top At_Offset_0 07d9 e04d | M | Load 0x0,0x4d 07da e04e | N | Load 0x0,0x4e 07db 4810 |H | Short_Literal 0x10 07dc 029f 193b | ;| Declare_Subprogram INIT_1938,For_Call 07de BODY_07a0: 07de 00cf | | Action Mark_Auxiliary 07df 4803 |H | Short_Literal 0x3 07e0 4801 |H | Short_Literal 0x1 07e1 0007 | | Action Break_Optional 07e2 8411 | | Call 0x2,0x11 07e3 00c8 | | Action Pop_Auxiliary_Range 07e4 3ffd |? | Loop_Increasing 0x7e2 07e5 00ce | | Action Pop_Auxiliary 07e6 4884 |H | Short_Literal 0x84 07e7 0257 | W | Execute Discrete,Raise 07e8 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 07ec 0000 0000 | | .BLANK 0000[0x4] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 0806 | | .CONST 0x0806 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0003 | | .CONST 0x0003 ; Number of locals 07f3 INIT_07f0: 07f3 e2a7 | | Load 0x1,0xa7 07f4 0337 | 7 | Declare_Variable Array 07f5 4800 |H | Short_Literal 0x0 07f6 e2a6 | | Load 0x1,0xa6 07f7 0aff | | Execute_Immediate Plus,-0x1 07f8 e5ff | | Load 0x2,-0x1 07f9 01cf | | Execute Vector,Slice_Read 07fa e402 | | Load 0x2,0x2 07fb 01d4 | | Execute Vector,Structure_Write 07fc e001 | | Load 0x0,0x1 07fd 1ba2 | | Execute Package,Field_Read,Field_Number 0xa2 07fe 0322 | " | Declare_Variable Record 07ff e402 | | Load 0x2,0x2 0800 e2a8 | | Load 0x1,0xa8 0801 e2a9 | | Load 0x1,0xa9 0802 1daa | | Execute_Immediate Reference_Lex_1,0xaa 0803 8002 | | Call 0x0,0x2 0804 e403 | | Load 0x2,0x3 0805 017d | } | Execute Record,Structure_Write 0806 BODY_07f0: 0806 00d8 | | Load_Top At_Offset_0 0807 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0808 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0809 0000 0000 | | .BLANK 0000[0x7] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0820 | | .CONST 0x0820 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0007 | | .CONST 0x0007 ; Number of locals 0813 INIT_0810: 0813 e01b | | Load 0x0,0x1b 0814 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0815 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0816 00c6 | | Action Check_Subprogram_Elaborated 0817 e2a7 | | Load 0x1,0xa7 0818 e04f | O | Load 0x0,0x4f 0819 e050 | P | Load 0x0,0x50 081a 4805 |H | Short_Literal 0x5 081b 0007 | | Action Break_Optional 081c e2a7 | | Load 0x1,0xa7 081d 0337 | 7 | Declare_Variable Array 081e 029f 1963 | c| Declare_Subprogram INIT_1960,For_Call 0820 BODY_0810: 0820 00cf | | Action Mark_Auxiliary 0821 4803 |H | Short_Literal 0x3 0822 4801 |H | Short_Literal 0x1 0823 0007 | | Action Break_Optional 0824 8407 | | Call 0x2,0x7 0825 00c8 | | Action Pop_Auxiliary_Range 0826 3ffd |? | Loop_Increasing 0x824 0827 00ce | | Action Pop_Auxiliary 0828 4884 |H | Short_Literal 0x84 0829 0257 | W | Execute Discrete,Raise 082a 0000 0000 | | .BLANK 0000[0x6] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0833 | 3 | .CONST 0x0833 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0001 | | .CONST 0x0001 ; Number of locals 0833 BODY_0830: 0833 INIT_0830: 0833 e5ff | | Load 0x2,-0x1 0834 82ae | | Call 0x1,0xae 0835 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0836 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0837 0000 | | .XXX[0x1] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 0853 | S | .CONST 0x0853 ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0004 | | .CONST 0x0004 ; Number of locals 083b INIT_0838: 083b e5fe | | Load 0x2,-0x2 083c 00e5 | | Load_Encached Long_Integer_Cache 083d 03f1 | | Declare_Variable Discrete,With_Value 083e e2b1 | | Load 0x1,0xb1 083f 0337 | 7 | Declare_Variable Array 0840 e402 | | Load 0x2,0x2 0841 e402 | | Load 0x2,0x2 0842 e2b0 | | Load 0x1,0xb0 0843 0273 | s | Execute Discrete,Plus 0844 0aff | | Execute_Immediate Plus,-0x1 0845 e5ff | | Load 0x2,-0x1 0846 01cf | | Execute Vector,Slice_Read 0847 e403 | | Load 0x2,0x3 0848 01d4 | | Execute Vector,Structure_Write 0849 e001 | | Load 0x0,0x1 084a 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3 084b 0322 | " | Declare_Variable Record 084c e403 | | Load 0x2,0x3 084d e2b2 | | Load 0x1,0xb2 084e e2b3 | | Load 0x1,0xb3 084f 1db4 | | Execute_Immediate Reference_Lex_1,0xb4 0850 8002 | | Call 0x0,0x2 0851 e404 | | Load 0x2,0x4 0852 017d | } | Execute Record,Structure_Write 0853 BODY_0838: 0853 00d8 | | Load_Top At_Offset_0 0854 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0855 0000 0000 | | .XXX[0x3] 0857 0000 | | 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 0868 | h | .CONST 0x0868 ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0007 | | .CONST 0x0007 ; Number of locals 085b INIT_0858: 085b e01b | | Load 0x0,0x1b 085c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 085d 1911 | | Execute Package,Field_Reference,Field_Number 0x11 085e 00c6 | | Action Check_Subprogram_Elaborated 085f e2b1 | | Load 0x1,0xb1 0860 e051 | Q | Load 0x0,0x51 0861 e052 | R | Load 0x0,0x52 0862 4805 |H | Short_Literal 0x5 0863 0007 | | Action Break_Optional 0864 e2b1 | | Load 0x1,0xb1 0865 0337 | 7 | Declare_Variable Array 0866 029f 1983 | | Declare_Subprogram INIT_1980,For_Call 0868 BODY_0858: 0868 00cf | | Action Mark_Auxiliary 0869 4803 |H | Short_Literal 0x3 086a 4801 |H | Short_Literal 0x1 086b 0007 | | Action Break_Optional 086c 8407 | | Call 0x2,0x7 086d 00c8 | | Action Pop_Auxiliary_Range 086e 3ffd |? | Loop_Increasing 0x86c 086f 00ce | | Action Pop_Auxiliary 0870 4884 |H | Short_Literal 0x84 0871 0257 | W | Execute Discrete,Raise 0872 0000 0000 | | .BLANK 0000[0x6] 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 0884 | | .CONST 0x0884 ; Address of begin 0879 0004 | | .CONST 0x0004 ; Address of exception handler 087a 0003 | | .CONST 0x0003 ; Number of locals 087b INIT_0878: 087b e5ff | | Load 0x2,-0x1 087c 01dc | | Execute Vector,Last 087d 00e5 | | Load_Encached Long_Integer_Cache 087e 03f1 | | Declare_Variable Discrete,With_Value 087f e5fe | | Load 0x2,-0x2 0880 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0881 e001 | | Load 0x0,0x1 0882 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0883 03f1 | | Declare_Variable Discrete,With_Value 0884 BODY_0878: 0884 00d8 | | Load_Top At_Offset_0 0885 e2b0 | | Load 0x1,0xb0 0886 0273 | s | Execute Discrete,Plus 0887 0aff | | Execute_Immediate Plus,-0x1 0888 e402 | | Load 0x2,0x2 0889 027a | z | Execute Discrete,Less_Equal 088a 6804 |h | Jump_Zero 0x88f 088b 00d8 | | Load_Top At_Offset_0 088c e5ff | | Load 0x2,-0x1 088d 82b7 | | Call 0x1,0xb7 088e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 088f 00d8 | | Load_Top At_Offset_0 0890 e5fd | | Load 0x2,-0x3 0891 8285 | | Call 0x1,0x85 0892 82b8 | | Call 0x1,0xb8 0893 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0894 0000 0000 | | .BLANK 0000[0x4] 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 08a9 | | .CONST 0x08a9 ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0007 | | .CONST 0x0007 ; Number of locals 089b INIT_0898: 089b 4801 |H | Short_Literal 0x1 089c 6017 |` | Indirect_Literal Discrete,0x8b4,{0x00000000, 0x00002000} 089d e21a | | Load 0x1,0x1a 089e 035b | [ | Declare_Type Array,Constrained 089f e01b | | Load 0x0,0x1b 08a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08a1 1911 | | Execute Package,Field_Reference,Field_Number 0x11 08a2 00c6 | | Action Check_Subprogram_Elaborated 08a3 00d8 | | Load_Top At_Offset_0 08a4 e053 | S | Load 0x0,0x53 08a5 e054 | T | Load 0x0,0x54 08a6 4806 |H | Short_Literal 0x6 08a7 029f 19a3 | | Declare_Subprogram INIT_19a0,For_Call 08a9 BODY_0898: 08a9 00cf | | Action Mark_Auxiliary 08aa 4803 |H | Short_Literal 0x3 08ab 4801 |H | Short_Literal 0x1 08ac 0007 | | Action Break_Optional 08ad 8407 | | Call 0x2,0x7 08ae 00c8 | | Action Pop_Auxiliary_Range 08af 3ffd |? | Loop_Increasing 0x8ad 08b0 00ce | | Action Pop_Auxiliary 08b1 4884 |H | Short_Literal 0x84 08b2 0257 | W | Execute Discrete,Raise 08b3 0000 | | .XXX[0x1] 08b4 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; SUBPROGRAM 08b8 ; -------------------------------------------------------------------------------------- 08b8 08cf | | .CONST 0x08cf ; Address of begin 08b9 0004 | | .CONST 0x0004 ; Address of exception handler 08ba 0007 | | .CONST 0x0007 ; Number of locals 08bb INIT_08b8: 08bb e5fe | | Load 0x2,-0x2 08bc 67f7 |g | Indirect_Literal Discrete,0x8b4,{0x00000000, 0x00002000} 08bd 027a | z | Execute Discrete,Less_Equal 08be 7001 |p | Jump_Nonzero 0x8c0 08bf 0887 | | Execute_Immediate Raise,0x87 08c0 4800 |H | Short_Literal 0x0 08c1 e5fe | | Load 0x2,-0x2 08c2 0aff | | Execute_Immediate Plus,-0x1 08c3 e21a | | Load 0x1,0x1a 08c4 035b | [ | Declare_Type Array,Constrained 08c5 e01b | | Load 0x0,0x1b 08c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08c7 1911 | | Execute Package,Field_Reference,Field_Number 0x11 08c8 00c6 | | Action Check_Subprogram_Elaborated 08c9 00d8 | | Load_Top At_Offset_0 08ca e055 | U | Load 0x0,0x55 08cb e056 | V | Load 0x0,0x56 08cc 4806 |H | Short_Literal 0x6 08cd 029f 19bb | | Declare_Subprogram INIT_19b8,For_Call 08cf BODY_08b8: 08cf 00cf | | Action Mark_Auxiliary 08d0 4803 |H | Short_Literal 0x3 08d1 4801 |H | Short_Literal 0x1 08d2 0007 | | Action Break_Optional 08d3 8407 | | Call 0x2,0x7 08d4 00c8 | | Action Pop_Auxiliary_Range 08d5 3ffd |? | Loop_Increasing 0x8d3 08d6 00ce | | Action Pop_Auxiliary 08d7 4884 |H | Short_Literal 0x84 08d8 0257 | W | Execute Discrete,Raise 08d9 0000 0000 | | .BLANK 0000[0x7] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 0905 | | .CONST 0x0905 ; Address of begin 08e1 0004 | | .CONST 0x0004 ; Address of exception handler 08e2 0008 | | .CONST 0x0008 ; Number of locals 08e3 INIT_08e0: 08e3 4800 |H | Short_Literal 0x0 08e4 e5fe | | Load 0x2,-0x2 08e5 0aff | | Execute_Immediate Plus,-0x1 08e6 e21a | | Load 0x1,0x1a 08e7 0334 | 4 | Declare_Variable Array,With_Constraint 08e8 e5fe | | Load 0x2,-0x2 08e9 09f3 | | Execute_Immediate Binary_Scale,-0xd 08ea 00d8 | | Load_Top At_Offset_0 08eb 00e3 | | Load_Encached Natural_Cache 08ec 0260 | ` | Execute Discrete,In_Type 08ed 7001 |p | Jump_Nonzero 0x8ef 08ee 08e0 | | Execute_Immediate Raise,0xe0 08ef 00e3 | | Load_Encached Natural_Cache 08f0 03f1 | | Declare_Variable Discrete,With_Value 08f1 e5fe | | Load 0x2,-0x2 08f2 6029 |`) | Indirect_Literal Discrete,0x91c,{0x00000000, 0x00001fff} 08f3 0279 | y | Execute Discrete,And 08f4 00d8 | | Load_Top At_Offset_0 08f5 00e3 | | Load_Encached Natural_Cache 08f6 0260 | ` | Execute Discrete,In_Type 08f7 7001 |p | Jump_Nonzero 0x8f9 08f8 08e0 | | Execute_Immediate Raise,0xe0 08f9 00e3 | | Load_Encached Natural_Cache 08fa 03f1 | | Declare_Variable Discrete,With_Value 08fb e5ff | | Load 0x2,-0x1 08fc e048 | H | Load 0x0,0x48 08fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08fe 03f1 | | Declare_Variable Discrete,With_Value 08ff 00e5 | | Load_Encached Long_Integer_Cache 0900 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0901 029f 19d3 | | Declare_Subprogram INIT_19d0,For_Call 0903 029f 19f3 | | Declare_Subprogram INIT_19f0,For_Call 0905 BODY_08e0: 0905 00cf | | Action Mark_Auxiliary 0906 e403 | | Load 0x2,0x3 0907 4801 |H | Short_Literal 0x1 0908 0263 | c | Execute Discrete,Above_Bound 0909 700a |p | Jump_Nonzero 0x914 090a 8407 | | Call 0x2,0x7 090b e406 | | Load 0x2,0x6 090c 600b |` | Indirect_Literal Discrete,0x918,{0x00000000, 0x00002000} 090d 0273 | s | Execute Discrete,Plus 090e a406 | | Store_Unchecked 0x2,0x6 090f e405 | | Load 0x2,0x5 0910 8286 | | Call 0x1,0x86 0911 a405 | | Store_Unchecked 0x2,0x5 0912 00c8 | | Action Pop_Auxiliary_Range 0913 3ff6 |? | Loop_Increasing 0x90a 0914 00ce | | Action Pop_Auxiliary 0915 8408 | | Call 0x2,0x8 0916 e402 | | Load 0x2,0x2 0917 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0918 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 091c 0000 0000 | | .LITERAL {0x00000000, 0x00001fff} 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0930 | 0 | .CONST 0x0930 ; Address of begin 0921 0004 | | .CONST 0x0004 ; Address of exception handler 0922 0007 | | .CONST 0x0007 ; Number of locals 0923 INIT_0920: 0923 e01b | | Load 0x0,0x1b 0924 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0925 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0926 00c6 | | Action Check_Subprogram_Elaborated 0927 e2bf | | Load 0x1,0xbf 0928 e057 | W | Load 0x0,0x57 0929 e058 | X | Load 0x0,0x58 092a 4805 |H | Short_Literal 0x5 092b 0007 | | Action Break_Optional 092c e2bf | | Load 0x1,0xbf 092d 0337 | 7 | Declare_Variable Array 092e 029f 1a0b | | Declare_Subprogram INIT_1a08,For_Call 0930 BODY_0920: 0930 00cf | | Action Mark_Auxiliary 0931 4803 |H | Short_Literal 0x3 0932 4801 |H | Short_Literal 0x1 0933 0007 | | Action Break_Optional 0934 8407 | | Call 0x2,0x7 0935 00c8 | | Action Pop_Auxiliary_Range 0936 3ffd |? | Loop_Increasing 0x934 0937 00ce | | Action Pop_Auxiliary 0938 4884 |H | Short_Literal 0x84 0939 0257 | W | Execute Discrete,Raise 093a 0000 0000 | | .BLANK 0000[0x6] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 095a | Z | .CONST 0x095a ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0003 | | .CONST 0x0003 ; Number of locals 0943 INIT_0940: 0943 e2bf | | Load 0x1,0xbf 0944 0337 | 7 | Declare_Variable Array 0945 e5ff | | Load 0x2,-0x1 0946 01dd | | Execute Vector,First 0947 e5ff | | Load 0x2,-0x1 0948 01dd | | Execute Vector,First 0949 e2be | | Load 0x1,0xbe 094a 0273 | s | Execute Discrete,Plus 094b 0aff | | Execute_Immediate Plus,-0x1 094c e5ff | | Load 0x2,-0x1 094d 01cf | | Execute Vector,Slice_Read 094e e402 | | Load 0x2,0x2 094f 01d4 | | Execute Vector,Structure_Write 0950 e001 | | Load 0x0,0x1 0951 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0 0952 0322 | " | Declare_Variable Record 0953 e402 | | Load 0x2,0x2 0954 e2c0 | | Load 0x1,0xc0 0955 e2c1 | | Load 0x1,0xc1 0956 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2 0957 8002 | | Call 0x0,0x2 0958 e403 | | Load 0x2,0x3 0959 017d | } | Execute Record,Structure_Write 095a BODY_0940: 095a 00d8 | | Load_Top At_Offset_0 095b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 095c 0000 0000 | | .BLANK 0000[0x4] 0960 ; -------------------------------------------------------------------------------------- 0960 ; SUBPROGRAM 0960 ; -------------------------------------------------------------------------------------- 0960 0987 | | .CONST 0x0987 ; Address of begin 0961 0004 | | .CONST 0x0004 ; Address of exception handler 0962 0009 | | .CONST 0x0009 ; Number of locals 0963 INIT_0960: 0963 e275 | u | Load 0x1,0x75 0964 0337 | 7 | Declare_Variable Array 0965 00d8 | | Load_Top At_Offset_0 0966 0335 | 5 | Declare_Variable Array,Duplicate 0967 00cd | | Action Spare6_Action 0968 4840 |H@ | Short_Literal 0x40 0969 4801 |H | Short_Literal 0x1 096a 4800 |H | Short_Literal 0x0 096b e405 | | Load 0x2,0x5 096c e403 | | Load 0x2,0x3 096d 01d6 | | Execute Vector,Field_Write 096e 3ffb |? | Loop_Increasing 0x96a 096f e402 | | Load 0x2,0x2 0970 01d4 | | Execute Vector,Structure_Write 0971 e5fe | | Load 0x2,-0x2 0972 829c | | Call 0x1,0x9c 0973 00e5 | | Load_Encached Long_Integer_Cache 0974 03f1 | | Declare_Variable Discrete,With_Value 0975 00d8 | | Load_Top At_Offset_0 0976 0d41 | A | Execute_Immediate Less,0x41 0977 7001 |p | Jump_Nonzero 0x979 0978 0887 | | Execute_Immediate Raise,0x87 0979 4801 |H | Short_Literal 0x1 097a e403 | | Load 0x2,0x3 097b e21a | | Load 0x1,0x1a 097c 035b | [ | Declare_Type Array,Constrained 097d e01b | | Load 0x0,0x1b 097e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 097f 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0980 00c6 | | Action Check_Subprogram_Elaborated 0981 00d8 | | Load_Top At_Offset_0 0982 e059 | Y | Load 0x0,0x59 0983 e05a | Z | Load 0x0,0x5a 0984 4808 |H | Short_Literal 0x8 0985 029f 1a2b | +| Declare_Subprogram INIT_1a28,For_Call 0987 BODY_0960: 0987 00cf | | Action Mark_Auxiliary 0988 4803 |H | Short_Literal 0x3 0989 4801 |H | Short_Literal 0x1 098a 0007 | | Action Break_Optional 098b 8409 | | Call 0x2,0x9 098c 00c8 | | Action Pop_Auxiliary_Range 098d 3ffd |? | Loop_Increasing 0x98b 098e 00ce | | Action Pop_Auxiliary 098f 4884 |H | Short_Literal 0x84 0990 0257 | W | Execute Discrete,Raise 0991 0000 0000 | | .BLANK 0000[0x7] 0998 ; -------------------------------------------------------------------------------------- 0998 ; SUBPROGRAM 0998 ; -------------------------------------------------------------------------------------- 0998 099b | | .CONST 0x099b ; Address of begin 0999 0004 | | .CONST 0x0004 ; Address of exception handler 099a 0001 | | .CONST 0x0001 ; Number of locals 099b BODY_0998: 099b INIT_0998: 099b e5ff | | Load 0x2,-0x1 099c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 099d e2cd | | Load 0x1,0xcd 099e e2ce | | Load 0x1,0xce 099f 1dcf | | Execute_Immediate Reference_Lex_1,0xcf 09a0 8002 | | Call 0x0,0x2 09a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a2 0000 0000 | | .BLANK 0000[0x6] 09a8 ; -------------------------------------------------------------------------------------- 09a8 ; SUBPROGRAM 09a8 ; -------------------------------------------------------------------------------------- 09a8 09ca | | .CONST 0x09ca ; Address of begin 09a9 0004 | | .CONST 0x0004 ; Address of exception handler 09aa 0006 | | .CONST 0x0006 ; Number of locals 09ab INIT_09a8: 09ab e5fe | | Load 0x2,-0x2 09ac 02c7 | | Declare_Variable Any 09ad 00d8 | | Load_Top At_Offset_0 09ae 1c00 | | Execute_Immediate Run_Utility,0x0 09af 4802 |H | Short_Literal 0x2 09b0 4802 |H | Short_Literal 0x2 09b1 0099 | | Action Reference_Dynamic 09b2 012d | - | Execute Any,Address 09b3 e046 | F | Load 0x0,0x46 09b4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 09b5 e046 | F | Load 0x0,0x46 09b6 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 09b7 e046 | F | Load 0x0,0x46 09b8 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 09b9 e046 | F | Load 0x0,0x46 09ba 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 09bb e046 | F | Load 0x0,0x46 09bc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 09bd 011e | | Execute Any,Convert 09be e046 | F | Load 0x0,0x46 09bf 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 09c0 0322 | " | Declare_Variable Record 09c1 e403 | | Load 0x2,0x3 09c2 e404 | | Load 0x2,0x4 09c3 e046 | F | Load 0x0,0x46 09c4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 09c5 e405 | | Load 0x2,0x5 09c6 017d | } | Execute Record,Structure_Write 09c7 e001 | | Load 0x0,0x1 09c8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 09c9 0322 | " | Declare_Variable Record 09ca BODY_09a8: 09ca e405 | | Load 0x2,0x5 09cb 82d2 | | Call 0x1,0xd2 09cc e406 | | Load 0x2,0x6 09cd 017d | } | Execute Record,Structure_Write 09ce 00d8 | | Load_Top At_Offset_0 09cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 09d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 09d2 0000 0000 | | .BLANK 0000[0x6] 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09fa | | .CONST 0x09fa ; Address of begin 09d9 0004 | | .CONST 0x0004 ; Address of exception handler 09da 0006 | | .CONST 0x0006 ; Number of locals 09db INIT_09d8: 09db e5fe | | Load 0x2,-0x2 09dc 02c7 | | Declare_Variable Any 09dd 00d8 | | Load_Top At_Offset_0 09de 1c00 | | Execute_Immediate Run_Utility,0x0 09df 4802 |H | Short_Literal 0x2 09e0 4802 |H | Short_Literal 0x2 09e1 0099 | | Action Reference_Dynamic 09e2 012d | - | Execute Any,Address 09e3 e046 | F | Load 0x0,0x46 09e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 09e5 e046 | F | Load 0x0,0x46 09e6 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 09e7 e046 | F | Load 0x0,0x46 09e8 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 09e9 e046 | F | Load 0x0,0x46 09ea 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 09eb e046 | F | Load 0x0,0x46 09ec 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 09ed 011e | | Execute Any,Convert 09ee e046 | F | Load 0x0,0x46 09ef 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 09f0 0322 | " | Declare_Variable Record 09f1 e403 | | Load 0x2,0x3 09f2 e404 | | Load 0x2,0x4 09f3 e046 | F | Load 0x0,0x46 09f4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 09f5 e405 | | Load 0x2,0x5 09f6 017d | } | Execute Record,Structure_Write 09f7 e001 | | Load 0x0,0x1 09f8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 09f9 0322 | " | Declare_Variable Record 09fa BODY_09d8: 09fa e405 | | Load 0x2,0x5 09fb 82d2 | | Call 0x1,0xd2 09fc e406 | | Load 0x2,0x6 09fd 017d | } | Execute Record,Structure_Write 09fe 00d8 | | Load_Top At_Offset_0 09ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a00 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0a01 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a02 0000 0000 | | .BLANK 0000[0x6] 0a08 ; -------------------------------------------------------------------------------------- 0a08 ; SUBPROGRAM 0a08 ; -------------------------------------------------------------------------------------- 0a08 0a3a | : | .CONST 0x0a3a ; Address of begin 0a09 0004 | | .CONST 0x0004 ; Address of exception handler 0a0a 0008 | | .CONST 0x0008 ; Number of locals 0a0b INIT_0a08: 0a0b 00e2 | | Load_Encached Integer_Cache 0a0c 4801 |H | Short_Literal 0x1 0a0d 4801 |H | Short_Literal 0x1 0a0e 00e9 | | Load_Encached String_Cache 0a0f 0334 | 4 | Declare_Variable Array,With_Constraint 0a10 4802 |H | Short_Literal 0x2 0a11 4802 |H | Short_Literal 0x2 0a12 0099 | | Action Reference_Dynamic 0a13 012d | - | Execute Any,Address 0a14 e046 | F | Load 0x0,0x46 0a15 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0a16 0a01 | | Execute_Immediate Plus,0x1 0a17 e046 | F | Load 0x0,0x46 0a18 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0a19 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0a1a e046 | F | Load 0x0,0x46 0a1b 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0a1c e046 | F | Load 0x0,0x46 0a1d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a1e e046 | F | Load 0x0,0x46 0a1f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0a20 e046 | F | Load 0x0,0x46 0a21 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0a22 011e | | Execute Any,Convert 0a23 e046 | F | Load 0x0,0x46 0a24 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0a25 0322 | " | Declare_Variable Record 0a26 e404 | | Load 0x2,0x4 0a27 e405 | | Load 0x2,0x5 0a28 e046 | F | Load 0x0,0x46 0a29 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0a2a e406 | | Load 0x2,0x6 0a2b 017d | } | Execute Record,Structure_Write 0a2c e001 | | Load 0x0,0x1 0a2d 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 0a2e 0322 | " | Declare_Variable Record 0a2f e406 | | Load 0x2,0x6 0a30 82d2 | | Call 0x1,0xd2 0a31 e407 | | Load 0x2,0x7 0a32 017d | } | Execute Record,Structure_Write 0a33 e001 | | Load 0x0,0x1 0a34 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 0a35 0322 | " | Declare_Variable Record 0a36 e407 | | Load 0x2,0x7 0a37 8268 | h | Call 0x1,0x68 0a38 e408 | | Load 0x2,0x8 0a39 017d | } | Execute Record,Structure_Write 0a3a BODY_0a08: 0a3a 00d8 | | Load_Top At_Offset_0 0a3b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0a3c 00ca | | Action Exit_Nullary_Function 0a3d 0000 0000 | | .XXX[0x3] 0a3f 0000 | | 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; SUBPROGRAM 0a40 ; -------------------------------------------------------------------------------------- 0a40 0a43 | C | .CONST 0x0a43 ; Address of begin 0a41 0004 | | .CONST 0x0004 ; Address of exception handler 0a42 0001 | | .CONST 0x0001 ; Number of locals 0a43 BODY_0a40: 0a43 INIT_0a40: 0a43 4603 |F | Jump_Case 0x4 0a44 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0a45 7802 |x | Jump 0xa48 ; case 0x1 0a46 7805 |x | Jump 0xa4c ; case 0x2 0a47 7809 |x | Jump 0xa51 ; case 0x3 0a48 e5ff | | Load 0x2,-0x1 0a49 0091 1ac2 | | Action Push_String_Extended_Indexed,0x1ac2 ; "INTEGER_TYPE" 0a4b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0a4c e5fe | | Load 0x2,-0x2 0a4d e5ff | | Load 0x2,-0x1 0a4e 00e0 | | Load_Encached Standard_Cache 0a4f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0a50 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0a51 e5ff | | Load 0x2,-0x1 0a52 00e0 | | Load_Encached Standard_Cache 0a53 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a54 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0a55 0000 0000 | | .XXX[0x3] 0a57 0000 | | 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; SUBPROGRAM 0a58 ; -------------------------------------------------------------------------------------- 0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin 0a59 0004 | | .CONST 0x0004 ; Address of exception handler 0a5a 0001 | | .CONST 0x0001 ; Number of locals 0a5b BODY_0a58: 0a5b INIT_0a58: 0a5b e2fb | | Load 0x1,0xfb 0a5c 6804 |h | Jump_Zero 0xa61 0a5d e5ff | | Load 0x2,-0x1 0a5e e2fc | | Load 0x1,0xfc 0a5f 027f | | Execute Discrete,Equal 0a60 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a61 4800 |H | Short_Literal 0x0 0a62 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a63 0000 0000 | | .BLANK 0000[0x5] 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; SUBPROGRAM 0a68 ; -------------------------------------------------------------------------------------- 0a68 0a6b | k | .CONST 0x0a6b ; Address of begin 0a69 0004 | | .CONST 0x0004 ; Address of exception handler 0a6a 0001 | | .CONST 0x0001 ; Number of locals 0a6b BODY_0a68: 0a6b INIT_0a68: 0a6b e5ff | | Load 0x2,-0x1 0a6c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a6d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a6e 8307 | | Call 0x1,0x107 0a6f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a70 ; -------------------------------------------------------------------------------------- 0a70 ; SUBPROGRAM 0a70 ; -------------------------------------------------------------------------------------- 0a70 0a73 | s | .CONST 0x0a73 ; Address of begin 0a71 0004 | | .CONST 0x0004 ; Address of exception handler 0a72 0001 | | .CONST 0x0001 ; Number of locals 0a73 BODY_0a70: 0a73 INIT_0a70: 0a73 e2fb | | Load 0x1,0xfb 0a74 7002 |p | Jump_Nonzero 0xa77 0a75 4809 |H | Short_Literal 0x9 0a76 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a77 e5ff | | Load 0x2,-0x1 0a78 e2fe | | Load 0x1,0xfe 0a79 017f | | Execute Record,Equal 0a7a 6802 |h | Jump_Zero 0xa7d 0a7b 4800 |H | Short_Literal 0x0 0a7c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a7d e5ff | | Load 0x2,-0x1 0a7e e2ff | | Load 0x1,0xff 0a7f 017f | | Execute Record,Equal 0a80 6802 |h | Jump_Zero 0xa83 0a81 4801 |H | Short_Literal 0x1 0a82 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a83 e5ff | | Load 0x2,-0x1 0a84 e301 | | Load 0x1,0x101 0a85 017f | | Execute Record,Equal 0a86 6802 |h | Jump_Zero 0xa89 0a87 4804 |H | Short_Literal 0x4 0a88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a89 e5ff | | Load 0x2,-0x1 0a8a e300 | | Load 0x1,0x100 0a8b 017f | | Execute Record,Equal 0a8c 6802 |h | Jump_Zero 0xa8f 0a8d 4805 |H | Short_Literal 0x5 0a8e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a8f e5ff | | Load 0x2,-0x1 0a90 e302 | | Load 0x1,0x102 0a91 017f | | Execute Record,Equal 0a92 6802 |h | Jump_Zero 0xa95 0a93 4806 |H | Short_Literal 0x6 0a94 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a95 e5ff | | Load 0x2,-0x1 0a96 e303 | | Load 0x1,0x103 0a97 017f | | Execute Record,Equal 0a98 6802 |h | Jump_Zero 0xa9b 0a99 4807 |H | Short_Literal 0x7 0a9a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a9b e5ff | | Load 0x2,-0x1 0a9c e305 | | Load 0x1,0x105 0a9d 017f | | Execute Record,Equal 0a9e 6802 |h | Jump_Zero 0xaa1 0a9f 4802 |H | Short_Literal 0x2 0aa0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aa1 e5ff | | Load 0x2,-0x1 0aa2 e304 | | Load 0x1,0x104 0aa3 017f | | Execute Record,Equal 0aa4 6802 |h | Jump_Zero 0xaa7 0aa5 4803 |H | Short_Literal 0x3 0aa6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aa7 e5ff | | Load 0x2,-0x1 0aa8 e306 | | Load 0x1,0x106 0aa9 017f | | Execute Record,Equal 0aaa 6802 |h | Jump_Zero 0xaad 0aab 4808 |H | Short_Literal 0x8 0aac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aad 4809 |H | Short_Literal 0x9 0aae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aaf 0000 | | .XXX[0x1] 0ab0 ; -------------------------------------------------------------------------------------- 0ab0 ; SUBPROGRAM 0ab0 ; -------------------------------------------------------------------------------------- 0ab0 0ab3 | | .CONST 0x0ab3 ; Address of begin 0ab1 0004 | | .CONST 0x0004 ; Address of exception handler 0ab2 0001 | | .CONST 0x0001 ; Number of locals 0ab3 BODY_0ab0: 0ab3 INIT_0ab0: 0ab3 e5ff | | Load 0x2,-0x1 0ab4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0ab5 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0ab6 8309 | | Call 0x1,0x109 0ab7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0abb | | .CONST 0x0abb ; Address of begin 0ab9 0004 | | .CONST 0x0004 ; Address of exception handler 0aba 0001 | | .CONST 0x0001 ; Number of locals 0abb BODY_0ab8: 0abb INIT_0ab8: 0abb e5ff | | Load 0x2,-0x1 0abc 8308 | | Call 0x1,0x108 0abd 6804 |h | Jump_Zero 0xac2 0abe e5ff | | Load 0x2,-0x1 0abf 830a | | Call 0x1,0x10a 0ac0 0f04 | | Execute_Immediate Equal,0x4 0ac1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ac2 4800 |H | Short_Literal 0x0 0ac3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ac4 0000 0000 | | .BLANK 0000[0x4] 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0acb | | .CONST 0x0acb ; Address of begin 0ac9 0004 | | .CONST 0x0004 ; Address of exception handler 0aca 0001 | | .CONST 0x0001 ; Number of locals 0acb BODY_0ac8: 0acb INIT_0ac8: 0acb e5ff | | Load 0x2,-0x1 0acc 00d8 | | Load_Top At_Offset_0 0acd 0d39 | 9 | Execute_Immediate Less,0x39 0ace 7019 |p | Jump_Nonzero 0xae8 0acf 00d8 | | Load_Top At_Offset_0 0ad0 0c44 | D | Execute_Immediate Greater_Equal,0x44 0ad1 7003 |p | Jump_Nonzero 0xad5 0ad2 00d1 | | Pop_Control Pop_Count_1 0ad3 4800 |H | Short_Literal 0x0 0ad4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ad5 00d8 | | Load_Top At_Offset_0 0ad6 0d6c | l | Execute_Immediate Less,0x6c 0ad7 700b |p | Jump_Nonzero 0xae3 0ad8 00d8 | | Load_Top At_Offset_0 0ad9 0c6d | m | Execute_Immediate Greater_Equal,0x6d 0ada 7003 |p | Jump_Nonzero 0xade 0adb 00d1 | | Pop_Control Pop_Count_1 0adc 4800 |H | Short_Literal 0x0 0add 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ade 0b74 | t | Execute_Immediate Case_Compare,0x74 0adf 77fb |w | Jump_Nonzero 0xadb 0ae0 0f7c | | | Execute_Immediate Equal,0x7c 0ae1 77fa |w | Jump_Nonzero 0xadc 0ae2 7ff0 | | Jump 0xad3 0ae3 0b44 | D | Execute_Immediate Case_Compare,0x44 0ae4 77f6 |w | Jump_Nonzero 0xadb 0ae5 0f4c | L | Execute_Immediate Equal,0x4c 0ae6 77f5 |w | Jump_Nonzero 0xadc 0ae7 7feb | | Jump 0xad3 0ae8 00d8 | | Load_Top At_Offset_0 0ae9 0c19 | | Execute_Immediate Greater_Equal,0x19 0aea 701c |p | Jump_Nonzero 0xb07 0aeb 4618 |F | Jump_Case 0x19 0aec 7818 |x | Jump 0xb05 ; case 0x0 0aed 7fe5 | | Jump 0xad3 ; case 0x1 0aee 7fe4 | | Jump 0xad3 ; case 0x2 0aef 7fe3 | | Jump 0xad3 ; case 0x3 0af0 7fe2 | | Jump 0xad3 ; case 0x4 0af1 7fe1 | | Jump 0xad3 ; case 0x5 0af2 7fe0 | | Jump 0xad3 ; case 0x6 0af3 7fdf | | Jump 0xad3 ; case 0x7 0af4 7fe7 | | Jump 0xadc ; case 0x8 0af5 7fdd | | Jump 0xad3 ; case 0x9 0af6 7fdc | | Jump 0xad3 ; case 0xa 0af7 7fdb | | Jump 0xad3 ; case 0xb 0af8 7fda | | Jump 0xad3 ; case 0xc 0af9 7fd9 | | Jump 0xad3 ; case 0xd 0afa 7fd8 | | Jump 0xad3 ; case 0xe 0afb 7fd7 | | Jump 0xad3 ; case 0xf 0afc 7808 |x | Jump 0xb05 ; case 0x10 0afd 7fd5 | | Jump 0xad3 ; case 0x11 0afe 7fd4 | | Jump 0xad3 ; case 0x12 0aff 7fd3 | | Jump 0xad3 ; case 0x13 0b00 7fd2 | | Jump 0xad3 ; case 0x14 0b01 7fd1 | | Jump 0xad3 ; case 0x15 0b02 7fd0 | | Jump 0xad3 ; case 0x16 0b03 7fcf | | Jump 0xad3 ; case 0x17 0b04 7800 |x | Jump 0xb05 ; case 0x18 0b05 4801 |H | Short_Literal 0x1 0b06 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b07 0f38 | 8 | Execute_Immediate Equal,0x38 0b08 77fc |w | Jump_Nonzero 0xb05 0b09 7fc9 | | Jump 0xad3 0b0a 0000 0000 | | .BLANK 0000[0x6] 0b10 ; -------------------------------------------------------------------------------------- 0b10 ; SUBPROGRAM 0b10 ; -------------------------------------------------------------------------------------- 0b10 0b13 | | .CONST 0x0b13 ; Address of begin 0b11 0004 | | .CONST 0x0004 ; Address of exception handler 0b12 0001 | | .CONST 0x0001 ; Number of locals 0b13 BODY_0b10: 0b13 INIT_0b10: 0b13 e5ff | | Load 0x2,-0x1 0b14 830c | | Call 0x1,0x10c 0b15 7003 |p | Jump_Nonzero 0xb19 0b16 e5ff | | Load 0x2,-0x1 0b17 0f08 | | Execute_Immediate Equal,0x8 0b18 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b19 4801 |H | Short_Literal 0x1 0b1a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b1b 0000 0000 | | .BLANK 0000[0x5] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b23 | # | .CONST 0x0b23 ; Address of begin 0b21 0004 | | .CONST 0x0004 ; Address of exception handler 0b22 0001 | | .CONST 0x0001 ; Number of locals 0b23 BODY_0b20: 0b23 INIT_0b20: 0b23 e5ff | | Load 0x2,-0x1 0b24 00d8 | | Load_Top At_Offset_0 0b25 0d6c | l | Execute_Immediate Less,0x6c 0b26 7018 |p | Jump_Nonzero 0xb3f 0b27 0a94 | | Execute_Immediate Plus,-0x6c 0b28 4613 |F | Jump_Case 0x14 0b29 7817 |x | Jump 0xb41 ; case 0x0 0b2a 7812 |x | Jump 0xb3d ; case 0x1 0b2b 7811 |x | Jump 0xb3d ; case 0x2 0b2c 7810 |x | Jump 0xb3d ; case 0x3 0b2d 780f |x | Jump 0xb3d ; case 0x4 0b2e 780e |x | Jump 0xb3d ; case 0x5 0b2f 780d |x | Jump 0xb3d ; case 0x6 0b30 780c |x | Jump 0xb3d ; case 0x7 0b31 780f |x | Jump 0xb41 ; case 0x8 0b32 780a |x | Jump 0xb3d ; case 0x9 0b33 7809 |x | Jump 0xb3d ; case 0xa 0b34 7808 |x | Jump 0xb3d ; case 0xb 0b35 7807 |x | Jump 0xb3d ; case 0xc 0b36 7806 |x | Jump 0xb3d ; case 0xd 0b37 7805 |x | Jump 0xb3d ; case 0xe 0b38 7804 |x | Jump 0xb3d ; case 0xf 0b39 7807 |x | Jump 0xb41 ; case 0x10 0b3a 7802 |x | Jump 0xb3d ; case 0x11 0b3b 7801 |x | Jump 0xb3d ; case 0x12 0b3c 7800 |x | Jump 0xb3d ; case 0x13 0b3d 4800 |H | Short_Literal 0x0 0b3e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b3f 00d1 | | Pop_Control Pop_Count_1 0b40 7ffc | | Jump 0xb3d 0b41 4801 |H | Short_Literal 0x1 0b42 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b43 0000 0000 | | .BLANK 0000[0x5] 0b48 ; -------------------------------------------------------------------------------------- 0b48 ; SUBPROGRAM 0b48 ; -------------------------------------------------------------------------------------- 0b48 0b4b | K | .CONST 0x0b4b ; Address of begin 0b49 0004 | | .CONST 0x0004 ; Address of exception handler 0b4a 0001 | | .CONST 0x0001 ; Number of locals 0b4b BODY_0b48: 0b4b INIT_0b48: 0b4b e5ff | | Load 0x2,-0x1 0b4c 830d | | Call 0x1,0x10d 0b4d 7008 |p | Jump_Nonzero 0xb56 0b4e e5ff | | Load 0x2,-0x1 0b4f 8296 | | Call 0x1,0x96 0b50 7003 |p | Jump_Nonzero 0xb54 0b51 e5ff | | Load 0x2,-0x1 0b52 830e | | Call 0x1,0x10e 0b53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b54 4801 |H | Short_Literal 0x1 0b55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b56 4801 |H | Short_Literal 0x1 0b57 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b58 ; -------------------------------------------------------------------------------------- 0b58 ; SUBPROGRAM 0b58 ; -------------------------------------------------------------------------------------- 0b58 0b5b | [ | .CONST 0x0b5b ; Address of begin 0b59 0004 | | .CONST 0x0004 ; Address of exception handler 0b5a 0001 | | .CONST 0x0001 ; Number of locals 0b5b BODY_0b58: 0b5b INIT_0b58: 0b5b e5fe | | Load 0x2,-0x2 0b5c 6802 |h | Jump_Zero 0xb5f 0b5d e5ff | | Load 0x2,-0x1 0b5e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b5f e5fd | | Load 0x2,-0x3 0b60 01db | | Execute Vector,Length 0b61 7002 |p | Jump_Nonzero 0xb64 0b62 00ea | | Load_Encached Null_String_Cache 0b63 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b64 e5fd | | Load 0x2,-0x3 0b65 e5ff | | Load 0x2,-0x1 0b66 01cc | | Execute Vector,Catenate 0b67 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b68 ; -------------------------------------------------------------------------------------- 0b68 ; SUBPROGRAM 0b68 ; -------------------------------------------------------------------------------------- 0b68 0b7d | } | .CONST 0x0b7d ; Address of begin 0b69 0004 | | .CONST 0x0004 ; Address of exception handler 0b6a 0002 | | .CONST 0x0002 ; Number of locals 0b6b INIT_0b68: 0b6b 4801 |H | Short_Literal 0x1 0b6c e5ff | | Load 0x2,-0x1 0b6d 00e9 | | Load_Encached String_Cache 0b6e 0334 | 4 | Declare_Variable Array,With_Constraint 0b6f 00d8 | | Load_Top At_Offset_0 0b70 0335 | 5 | Declare_Variable Array,Duplicate 0b71 00cd | | Action Spare6_Action 0b72 e402 | | Load 0x2,0x2 0b73 01d9 | | Execute Vector,Reverse_Bounds 0b74 0263 | c | Execute Discrete,Above_Bound 0b75 7005 |p | Jump_Nonzero 0xb7b 0b76 4820 |H | Short_Literal 0x20 0b77 e405 | | Load 0x2,0x5 0b78 e403 | | Load 0x2,0x3 0b79 01d6 | | Execute Vector,Field_Write 0b7a 3ffb |? | Loop_Increasing 0xb76 0b7b e402 | | Load 0x2,0x2 0b7c 01d4 | | Execute Vector,Structure_Write 0b7d BODY_0b68: 0b7d 00d8 | | Load_Top At_Offset_0 0b7e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b7f 0000 | | .XXX[0x1] 0b80 ; -------------------------------------------------------------------------------------- 0b80 ; SUBPROGRAM 0b80 ; -------------------------------------------------------------------------------------- 0b80 0b83 | | .CONST 0x0b83 ; Address of begin 0b81 0004 | | .CONST 0x0004 ; Address of exception handler 0b82 0001 | | .CONST 0x0001 ; Number of locals 0b83 BODY_0b80: 0b83 INIT_0b80: 0b83 4803 |H | Short_Literal 0x3 0b84 e5ff | | Load 0x2,-0x1 0b85 0271 | q | Execute Discrete,Times 0b86 492c |I, | Short_Literal 0x12c 0b87 0273 | s | Execute Discrete,Plus 0b88 00e3 | | Load_Encached Natural_Cache 0b89 025b | [ | Execute Discrete,Check_In_Type 0b8a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b8b 0000 0000 | | .BLANK 0000[0x5] 0b90 ; -------------------------------------------------------------------------------------- 0b90 ; SUBPROGRAM 0b90 ; -------------------------------------------------------------------------------------- 0b90 0b93 | | .CONST 0x0b93 ; Address of begin 0b91 0004 | | .CONST 0x0004 ; Address of exception handler 0b92 0001 | | .CONST 0x0001 ; Number of locals 0b93 BODY_0b90: 0b93 INIT_0b90: 0b93 e5fd | | Load 0x2,-0x3 0b94 e5fd | | Load 0x2,-0x3 0b95 4820 |H | Short_Literal 0x20 0b96 4800 |H | Short_Literal 0x0 0b97 480a |H | Short_Literal 0xa 0b98 e5ff | | Load 0x2,-0x1 0b99 e05b | [ | Load 0x0,0x5b 0b9a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b9b 01cb | | Execute Vector,Append 0b9c 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; ".." 0b9e 01cc | | Execute Vector,Catenate 0b9f 01cb | | Execute Vector,Append 0ba0 4820 |H | Short_Literal 0x20 0ba1 4800 |H | Short_Literal 0x0 0ba2 480a |H | Short_Literal 0xa 0ba3 e5fe | | Load 0x2,-0x2 0ba4 e05b | [ | Load 0x0,0x5b 0ba5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ba6 01cc | | Execute Vector,Catenate 0ba7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 ; SUBPROGRAM 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 0bab | | .CONST 0x0bab ; Address of begin 0ba9 0004 | | .CONST 0x0004 ; Address of exception handler 0baa 0001 | | .CONST 0x0001 ; Number of locals 0bab BODY_0ba8: 0bab INIT_0ba8: 0bab e5fe | | Load 0x2,-0x2 0bac 0c02 | | Execute_Immediate Greater_Equal,0x2 0bad 681c |h | Jump_Zero 0xbca 0bae e5fe | | Load 0x2,-0x2 0baf e5ff | | Load 0x2,-0x1 0bb0 e05c | \ | Load 0x0,0x5c 0bb1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0bb2 027c | | | Execute Discrete,Less 0bb3 6814 |h | Jump_Zero 0xbc8 0bb4 e5fe | | Load 0x2,-0x2 0bb5 0aff | | Execute_Immediate Plus,-0x1 0bb6 00e4 | | Load_Encached Positive_Cache 0bb7 025b | [ | Execute Discrete,Check_In_Type 0bb8 e5ff | | Load 0x2,-0x1 0bb9 e05c | \ | Load 0x0,0x5c 0bba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0bbb 0f27 | ' | Execute_Immediate Equal,0x27 0bbc 6809 |h | Jump_Zero 0xbc6 0bbd e5fe | | Load 0x2,-0x2 0bbe 0a01 | | Execute_Immediate Plus,0x1 0bbf 00e4 | | Load_Encached Positive_Cache 0bc0 025b | [ | Execute Discrete,Check_In_Type 0bc1 e5ff | | Load 0x2,-0x1 0bc2 e05c | \ | Load 0x0,0x5c 0bc3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0bc4 0f27 | ' | Execute_Immediate Equal,0x27 0bc5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bc6 4800 |H | Short_Literal 0x0 0bc7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bc8 4800 |H | Short_Literal 0x0 0bc9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bca 4800 |H | Short_Literal 0x0 0bcb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bcc 0000 0000 | | .BLANK 0000[0x4] 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 ; SUBPROGRAM 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 0bd3 | | .CONST 0x0bd3 ; Address of begin 0bd1 0004 | | .CONST 0x0004 ; Address of exception handler 0bd2 0001 | | .CONST 0x0001 ; Number of locals 0bd3 BODY_0bd0: 0bd3 INIT_0bd0: 0bd3 e5fe | | Load 0x2,-0x2 0bd4 e5ff | | Load 0x2,-0x1 0bd5 01dd | | Execute Vector,First 0bd6 027d | } | Execute Discrete,Greater 0bd7 6815 |h | Jump_Zero 0xbed 0bd8 e5fe | | Load 0x2,-0x2 0bd9 e5ff | | Load 0x2,-0x1 0bda 01dc | | Execute Vector,Last 0bdb 027c | | | Execute Discrete,Less 0bdc 680e |h | Jump_Zero 0xbeb 0bdd e5fe | | Load 0x2,-0x2 0bde 0aff | | Execute_Immediate Plus,-0x1 0bdf e5ff | | Load 0x2,-0x1 0be0 01d7 | | Execute Vector,Field_Read 0be1 0f27 | ' | Execute_Immediate Equal,0x27 0be2 6806 |h | Jump_Zero 0xbe9 0be3 e5fe | | Load 0x2,-0x2 0be4 0a01 | | Execute_Immediate Plus,0x1 0be5 e5ff | | Load 0x2,-0x1 0be6 01d7 | | Execute Vector,Field_Read 0be7 0f27 | ' | Execute_Immediate Equal,0x27 0be8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0be9 4800 |H | Short_Literal 0x0 0bea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0beb 4800 |H | Short_Literal 0x0 0bec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bed 4800 |H | Short_Literal 0x0 0bee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bef 0000 | | .XXX[0x1] 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 ; SUBPROGRAM 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 0bfb | | .CONST 0x0bfb ; Address of begin 0bf1 0004 | | .CONST 0x0004 ; Address of exception handler 0bf2 0003 | | .CONST 0x0003 ; Number of locals 0bf3 INIT_0bf0: 0bf3 e5ff | | Load 0x2,-0x1 0bf4 01db | | Execute Vector,Length 0bf5 00e3 | | Load_Encached Natural_Cache 0bf6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0bf7 e5ff | | Load 0x2,-0x1 0bf8 01dc | | Execute Vector,Last 0bf9 00e3 | | Load_Encached Natural_Cache 0bfa 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0bfb BODY_0bf0: 0bfb e402 | | Load 0x2,0x2 0bfc 0c03 | | Execute_Immediate Greater_Equal,0x3 0bfd 6813 |h | Jump_Zero 0xc11 0bfe 00d8 | | Load_Top At_Offset_0 0bff 0afe | | Execute_Immediate Plus,-0x2 0c00 e403 | | Load 0x2,0x3 0c01 e5ff | | Load 0x2,-0x1 0c02 01cf | | Execute Vector,Slice_Read 0c03 0092 1ae1 | | Action Push_String_Extended,0x1ae1 ; ", )" 0c05 01df | | Execute Vector,Equal 0c06 680a |h | Jump_Zero 0xc11 0c07 e5ff | | Load 0x2,-0x1 0c08 01dd | | Execute Vector,First 0c09 e403 | | Load 0x2,0x3 0c0a 0afd | | Execute_Immediate Plus,-0x3 0c0b e5ff | | Load 0x2,-0x1 0c0c 01cf | | Execute Vector,Slice_Read 0c0d 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 0c0f 01cc | | Execute Vector,Catenate 0c10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c11 e5ff | | Load 0x2,-0x1 0c12 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c13 0000 0000 | | .BLANK 0000[0x5] 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c24 | $ | .CONST 0x0c24 ; Address of begin 0c19 0004 | | .CONST 0x0004 ; Address of exception handler 0c1a 0003 | | .CONST 0x0003 ; Number of locals 0c1b INIT_0c18: 0c1b e5fe | | Load 0x2,-0x2 0c1c e05c | \ | Load 0x0,0x5c 0c1d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0c1e 00e3 | | Load_Encached Natural_Cache 0c1f 03f1 | | Declare_Variable Discrete,With_Value 0c20 e5ff | | Load 0x2,-0x1 0c21 01db | | Execute Vector,Length 0c22 00e3 | | Load_Encached Natural_Cache 0c23 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0c24 BODY_0c18: 0c24 e402 | | Load 0x2,0x2 0c25 0c01 | | Execute_Immediate Greater_Equal,0x1 0c26 6812 |h | Jump_Zero 0xc39 0c27 e402 | | Load 0x2,0x2 0c28 00e4 | | Load_Encached Positive_Cache 0c29 025b | [ | Execute Discrete,Check_In_Type 0c2a e5fe | | Load 0x2,-0x2 0c2b e05c | \ | Load 0x0,0x5c 0c2c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0c2d 0f0a | | Execute_Immediate Equal,0xa 0c2e 680a |h | Jump_Zero 0xc39 0c2f e5fe | | Load 0x2,-0x2 0c30 4820 |H | Short_Literal 0x20 0c31 e402 | | Load 0x2,0x2 0c32 0aff | | Execute_Immediate Plus,-0x1 0c33 00e3 | | Load_Encached Natural_Cache 0c34 025b | [ | Execute Discrete,Check_In_Type 0c35 e05c | \ | Load 0x0,0x5c 0c36 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0c37 00d1 | | Pop_Control Pop_Count_1 0c38 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c39 00d8 | | Load_Top At_Offset_0 0c3a 0c01 | | Execute_Immediate Greater_Equal,0x1 0c3b 681d |h | Jump_Zero 0xc59 0c3c e402 | | Load 0x2,0x2 0c3d e403 | | Load 0x2,0x3 0c3e 027d | } | Execute Discrete,Greater 0c3f 6819 |h | Jump_Zero 0xc59 0c40 e402 | | Load 0x2,0x2 0c41 e402 | | Load 0x2,0x2 0c42 e403 | | Load 0x2,0x3 0c43 0272 | r | Execute Discrete,Minus 0c44 00e4 | | Load_Encached Positive_Cache 0c45 025b | [ | Execute Discrete,Check_In_Type 0c46 e5fe | | Load 0x2,-0x2 0c47 e05c | \ | Load 0x0,0x5c 0c48 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0c49 480a |H | Short_Literal 0xa 0c4a e5ff | | Load 0x2,-0x1 0c4b 01ca | | Execute Vector,Prepend 0c4c 01df | | Execute Vector,Equal 0c4d 680b |h | Jump_Zero 0xc59 0c4e e5fe | | Load 0x2,-0x2 0c4f 4820 |H | Short_Literal 0x20 0c50 e402 | | Load 0x2,0x2 0c51 e403 | | Load 0x2,0x3 0c52 0a01 | | Execute_Immediate Plus,0x1 0c53 0272 | r | Execute Discrete,Minus 0c54 00e3 | | Load_Encached Natural_Cache 0c55 025b | [ | Execute Discrete,Check_In_Type 0c56 e05c | \ | Load 0x0,0x5c 0c57 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0c58 00d1 | | Pop_Control Pop_Count_1 0c59 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c5a 0000 0000 | | .BLANK 0000[0x6] 0c60 ; -------------------------------------------------------------------------------------- 0c60 ; SUBPROGRAM 0c60 ; -------------------------------------------------------------------------------------- 0c60 0c64 | d | .CONST 0x0c64 ; Address of begin 0c61 0004 | | .CONST 0x0004 ; Address of exception handler 0c62 0002 | | .CONST 0x0002 ; Number of locals 0c63 INIT_0c60: 0c63 00e1 | | Load_Encached Boolean_Cache 0c64 BODY_0c60: 0c64 e5ff | | Load 0x2,-0x1 0c65 01db | | Execute Vector,Length 0c66 e5fe | | Load 0x2,-0x2 0c67 01db | | Execute Vector,Length 0c68 0273 | s | Execute Discrete,Plus 0c69 0a01 | | Execute_Immediate Plus,0x1 0c6a 0c50 | P | Execute_Immediate Greater_Equal,0x50 0c6b 6803 |h | Jump_Zero 0xc6f 0c6c 4801 |H | Short_Literal 0x1 0c6d a402 | | Store_Unchecked 0x2,0x2 0c6e 780c |x | Jump 0xc7b 0c6f 4800 |H | Short_Literal 0x0 0c70 e5fe | | Load 0x2,-0x2 0c71 480a |H | Short_Literal 0xa 0c72 e05b | [ | Load 0x0,0x5b 0c73 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0c74 0c01 | | Execute_Immediate Greater_Equal,0x1 0c75 6803 |h | Jump_Zero 0xc79 0c76 4801 |H | Short_Literal 0x1 0c77 a402 | | Store_Unchecked 0x2,0x2 0c78 7802 |x | Jump 0xc7b 0c79 4800 |H | Short_Literal 0x0 0c7a a402 | | Store_Unchecked 0x2,0x2 0c7b e5ff | | Load 0x2,-0x1 0c7c 00ea | | Load_Encached Null_String_Cache 0c7d e402 | | Load 0x2,0x2 0c7e 480a |H | Short_Literal 0xa 0c7f e5fd | | Load 0x2,-0x3 0c80 8322 | " | Call 0x1,0x122 0c81 01ca | | Execute Vector,Prepend 0c82 8321 | ! | Call 0x1,0x121 0c83 01cc | | Execute Vector,Catenate 0c84 e5fe | | Load 0x2,-0x2 0c85 01cc | | Execute Vector,Catenate 0c86 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0c87 0000 | | .XXX[0x1] 0c88 ; -------------------------------------------------------------------------------------- 0c88 ; SUBPROGRAM 0c88 ; -------------------------------------------------------------------------------------- 0c88 0c8b | | .CONST 0x0c8b ; Address of begin 0c89 0004 | | .CONST 0x0004 ; Address of exception handler 0c8a 0001 | | .CONST 0x0001 ; Number of locals 0c8b BODY_0c88: 0c8b INIT_0c88: 0c8b e5fd | | Load 0x2,-0x3 0c8c 6811 |h | Jump_Zero 0xc9e 0c8d e5fe | | Load 0x2,-0x2 0c8e e5ff | | Load 0x2,-0x1 0c8f e05c | \ | Load 0x0,0x5c 0c90 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0c91 027c | | | Execute Discrete,Less 0c92 6809 |h | Jump_Zero 0xc9c 0c93 e5fe | | Load 0x2,-0x2 0c94 0a01 | | Execute_Immediate Plus,0x1 0c95 00e4 | | Load_Encached Positive_Cache 0c96 025b | [ | Execute Discrete,Check_In_Type 0c97 e5ff | | Load 0x2,-0x1 0c98 e05c | \ | Load 0x0,0x5c 0c99 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0c9a 0f22 | " | Execute_Immediate Equal,0x22 0c9b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0c9c 4800 |H | Short_Literal 0x0 0c9d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0c9e 4800 |H | Short_Literal 0x0 0c9f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 ; SUBPROGRAM 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 0ca3 | | .CONST 0x0ca3 ; Address of begin 0ca1 0004 | | .CONST 0x0004 ; Address of exception handler 0ca2 0001 | | .CONST 0x0001 ; Number of locals 0ca3 BODY_0ca0: 0ca3 INIT_0ca0: 0ca3 e5fe | | Load 0x2,-0x2 0ca4 00e4 | | Load_Encached Positive_Cache 0ca5 025b | [ | Execute Discrete,Check_In_Type 0ca6 e5ff | | Load 0x2,-0x1 0ca7 e05c | \ | Load 0x0,0x5c 0ca8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0ca9 0f22 | " | Execute_Immediate Equal,0x22 0caa 7001 |p | Jump_Nonzero 0xcac 0cab 0887 | | Execute_Immediate Raise,0x87 0cac e5fd | | Load 0x2,-0x3 0cad e5fe | | Load 0x2,-0x2 0cae e5ff | | Load 0x2,-0x1 0caf 832a | * | Call 0x1,0x12a 0cb0 6804 |h | Jump_Zero 0xcb5 0cb1 e5fe | | Load 0x2,-0x2 0cb2 0a01 | | Execute_Immediate Plus,0x1 0cb3 c5fe | | Store 0x2,-0x2 0cb4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cb5 e5fd | | Load 0x2,-0x3 0cb6 6803 |h | Jump_Zero 0xcba 0cb7 4800 |H | Short_Literal 0x0 0cb8 a5fd | | Store_Unchecked 0x2,-0x3 0cb9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cba e5fe | | Load 0x2,-0x2 0cbb e5ff | | Load 0x2,-0x1 0cbc 8325 | % | Call 0x1,0x125 0cbd 6802 |h | Jump_Zero 0xcc0 0cbe 0008 | | Action Idle 0cbf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cc0 4801 |H | Short_Literal 0x1 0cc1 a5fd | | Store_Unchecked 0x2,-0x3 0cc2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cc3 0000 0000 | | .BLANK 0000[0x5] 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 ; SUBPROGRAM 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 0ccb | | .CONST 0x0ccb ; Address of begin 0cc9 0004 | | .CONST 0x0004 ; Address of exception handler 0cca 0001 | | .CONST 0x0001 ; Number of locals 0ccb BODY_0cc8: 0ccb INIT_0cc8: 0ccb e5fe | | Load 0x2,-0x2 0ccc e5ff | | Load 0x2,-0x1 0ccd 01d7 | | Execute Vector,Field_Read 0cce 0f22 | " | Execute_Immediate Equal,0x22 0ccf 7001 |p | Jump_Nonzero 0xcd1 0cd0 0887 | | Execute_Immediate Raise,0x87 0cd1 e5fe | | Load 0x2,-0x2 0cd2 e5ff | | Load 0x2,-0x1 0cd3 8326 | & | Call 0x1,0x126 0cd4 6802 |h | Jump_Zero 0xcd7 0cd5 0008 | | Action Idle 0cd6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cd7 e5fd | | Load 0x2,-0x3 0cd8 6812 |h | Jump_Zero 0xceb 0cd9 e5fe | | Load 0x2,-0x2 0cda e5ff | | Load 0x2,-0x1 0cdb 01dc | | Execute Vector,Last 0cdc 027c | | | Execute Discrete,Less 0cdd 680a |h | Jump_Zero 0xce8 0cde e5fe | | Load 0x2,-0x2 0cdf 0a01 | | Execute_Immediate Plus,0x1 0ce0 e5ff | | Load 0x2,-0x1 0ce1 01d7 | | Execute Vector,Field_Read 0ce2 0f22 | " | Execute_Immediate Equal,0x22 0ce3 6804 |h | Jump_Zero 0xce8 0ce4 e5fe | | Load 0x2,-0x2 0ce5 0a01 | | Execute_Immediate Plus,0x1 0ce6 c5fe | | Store 0x2,-0x2 0ce7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ce8 4800 |H | Short_Literal 0x0 0ce9 a5fd | | Store_Unchecked 0x2,-0x3 0cea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ceb 4801 |H | Short_Literal 0x1 0cec a5fd | | Store_Unchecked 0x2,-0x3 0ced 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cee 0000 0000 | | .XXX[0x2] 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 ; SUBPROGRAM 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 0cfd | | .CONST 0x0cfd ; Address of begin 0cf1 0004 | | .CONST 0x0004 ; Address of exception handler 0cf2 0005 | | .CONST 0x0005 ; Number of locals 0cf3 INIT_0cf0: 0cf3 00e1 | | Load_Encached Boolean_Cache 0cf4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0cf5 e5fb | | Load 0x2,-0x5 0cf6 e05c | \ | Load 0x0,0x5c 0cf7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0cf8 00e3 | | Load_Encached Natural_Cache 0cf9 03f1 | | Declare_Variable Discrete,With_Value 0cfa 00e8 | | Load_Encached Character_Cache 0cfb 00e3 | | Load_Encached Natural_Cache 0cfc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0cfd BODY_0cf0: 0cfd 00cf | | Action Mark_Auxiliary 0cfe 7836 |x6 | Jump 0xd35 0cff e405 | | Load 0x2,0x5 0d00 00e4 | | Load_Encached Positive_Cache 0d01 025b | [ | Execute Discrete,Check_In_Type 0d02 e5fb | | Load 0x2,-0x5 0d03 e05c | \ | Load 0x0,0x5c 0d04 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0d05 a404 | | Store_Unchecked 0x2,0x4 0d06 e404 | | Load 0x2,0x4 0d07 0f22 | " | Execute_Immediate Equal,0x22 0d08 6807 |h | Jump_Zero 0xd10 0d09 e402 | | Load 0x2,0x2 0d0a e405 | | Load 0x2,0x5 0d0b e5fb | | Load 0x2,-0x5 0d0c 832b | + | Call 0x1,0x12b 0d0d c405 | | Store 0x2,0x5 0d0e c402 | | Store 0x2,0x2 0d0f 7821 |x! | Jump 0xd31 0d10 e402 | | Load 0x2,0x2 0d11 701f |p | Jump_Nonzero 0xd31 0d12 e405 | | Load 0x2,0x5 0d13 e5fb | | Load 0x2,-0x5 0d14 8325 | % | Call 0x1,0x125 0d15 701b |p | Jump_Nonzero 0xd31 0d16 e404 | | Load 0x2,0x4 0d17 e5ff | | Load 0x2,-0x1 0d18 027f | | Execute Discrete,Equal 0d19 680a |h | Jump_Zero 0xd24 0d1a e5fb | | Load 0x2,-0x5 0d1b 4801 |H | Short_Literal 0x1 0d1c e5fe | | Load 0x2,-0x2 0d1d e405 | | Load 0x2,0x5 0d1e 00e4 | | Load_Encached Positive_Cache 0d1f 025b | [ | Execute Discrete,Check_In_Type 0d20 e05c | \ | Load 0x0,0x5c 0d21 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d22 00d1 | | Pop_Control Pop_Count_1 0d23 780d |x | Jump 0xd31 0d24 e404 | | Load 0x2,0x4 0d25 e5fd | | Load 0x2,-0x3 0d26 027f | | Execute Discrete,Equal 0d27 6809 |h | Jump_Zero 0xd31 0d28 e5fb | | Load 0x2,-0x5 0d29 4801 |H | Short_Literal 0x1 0d2a e5fc | | Load 0x2,-0x4 0d2b e405 | | Load 0x2,0x5 0d2c 00e4 | | Load_Encached Positive_Cache 0d2d 025b | [ | Execute Discrete,Check_In_Type 0d2e e05c | \ | Load 0x0,0x5c 0d2f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d30 00d1 | | Pop_Control Pop_Count_1 0d31 e405 | | Load 0x2,0x5 0d32 0a01 | | Execute_Immediate Plus,0x1 0d33 c405 | | Store 0x2,0x5 0d34 00c9 | | Action Pop_Auxiliary_Loop 0d35 e405 | | Load 0x2,0x5 0d36 e403 | | Load 0x2,0x3 0d37 027a | z | Execute Discrete,Less_Equal 0d38 77c6 |w | Jump_Nonzero 0xcff 0d39 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d3a 0000 0000 | | .BLANK 0000[0x6] 0d40 ; -------------------------------------------------------------------------------------- 0d40 ; SUBPROGRAM 0d40 ; -------------------------------------------------------------------------------------- 0d40 0d51 | Q | .CONST 0x0d51 ; Address of begin 0d41 0004 | | .CONST 0x0004 ; Address of exception handler 0d42 0005 | | .CONST 0x0005 ; Number of locals 0d43 INIT_0d40: 0d43 e5fe | | Load 0x2,-0x2 0d44 01db | | Execute Vector,Length 0d45 00e3 | | Load_Encached Natural_Cache 0d46 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d47 e5ff | | Load 0x2,-0x1 0d48 01dd | | Execute Vector,First 0d49 00e3 | | Load_Encached Natural_Cache 0d4a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d4b e5ff | | Load 0x2,-0x1 0d4c 01dc | | Execute Vector,Last 0d4d 00e3 | | Load_Encached Natural_Cache 0d4e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d4f 00e1 | | Load_Encached Boolean_Cache 0d50 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d51 BODY_0d40: 0d51 00cf | | Action Mark_Auxiliary 0d52 783b |x; | Jump 0xd8e 0d53 e403 | | Load 0x2,0x3 0d54 e5ff | | Load 0x2,-0x1 0d55 01d7 | | Execute Vector,Field_Read 0d56 0f22 | " | Execute_Immediate Equal,0x22 0d57 680a |h | Jump_Zero 0xd62 0d58 e405 | | Load 0x2,0x5 0d59 e403 | | Load 0x2,0x3 0d5a e5ff | | Load 0x2,-0x1 0d5b 832c | , | Call 0x1,0x12c 0d5c c403 | | Store 0x2,0x3 0d5d c405 | | Store 0x2,0x5 0d5e e403 | | Load 0x2,0x3 0d5f 0a01 | | Execute_Immediate Plus,0x1 0d60 c403 | | Store 0x2,0x3 0d61 782b |x+ | Jump 0xd8d 0d62 e405 | | Load 0x2,0x5 0d63 7026 |p& | Jump_Nonzero 0xd8a 0d64 e403 | | Load 0x2,0x3 0d65 e402 | | Load 0x2,0x2 0d66 0273 | s | Execute Discrete,Plus 0d67 0aff | | Execute_Immediate Plus,-0x1 0d68 e404 | | Load 0x2,0x4 0d69 027a | z | Execute Discrete,Less_Equal 0d6a 681f |h | Jump_Zero 0xd8a 0d6b e403 | | Load 0x2,0x3 0d6c e403 | | Load 0x2,0x3 0d6d e402 | | Load 0x2,0x2 0d6e 0273 | s | Execute Discrete,Plus 0d6f 0aff | | Execute_Immediate Plus,-0x1 0d70 0248 | H | Execute Discrete,Check_In_Integer 0d71 e5ff | | Load 0x2,-0x1 0d72 01cf | | Execute Vector,Slice_Read 0d73 e5fe | | Load 0x2,-0x2 0d74 01df | | Execute Vector,Equal 0d75 6814 |h | Jump_Zero 0xd8a 0d76 e5ff | | Load 0x2,-0x1 0d77 01dd | | Execute Vector,First 0d78 e403 | | Load 0x2,0x3 0d79 0aff | | Execute_Immediate Plus,-0x1 0d7a e5ff | | Load 0x2,-0x1 0d7b 01cf | | Execute Vector,Slice_Read 0d7c e5fd | | Load 0x2,-0x3 0d7d 01cc | | Execute Vector,Catenate 0d7e e5fd | | Load 0x2,-0x3 0d7f e5fe | | Load 0x2,-0x2 0d80 e403 | | Load 0x2,0x3 0d81 e402 | | Load 0x2,0x2 0d82 0273 | s | Execute Discrete,Plus 0d83 0248 | H | Execute Discrete,Check_In_Integer 0d84 e404 | | Load 0x2,0x4 0d85 e5ff | | Load 0x2,-0x1 0d86 01cf | | Execute Vector,Slice_Read 0d87 832e | . | Call 0x1,0x12e 0d88 01cc | | Execute Vector,Catenate 0d89 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0d8a e403 | | Load 0x2,0x3 0d8b 0a01 | | Execute_Immediate Plus,0x1 0d8c c403 | | Store 0x2,0x3 0d8d 00c9 | | Action Pop_Auxiliary_Loop 0d8e e403 | | Load 0x2,0x3 0d8f e404 | | Load 0x2,0x4 0d90 027a | z | Execute Discrete,Less_Equal 0d91 77c1 |w | Jump_Nonzero 0xd53 0d92 00ce | | Action Pop_Auxiliary 0d93 e5ff | | Load 0x2,-0x1 0d94 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0d95 0000 0000 | | .XXX[0x3] 0d97 0000 | | 0d98 ; -------------------------------------------------------------------------------------- 0d98 ; SUBPROGRAM 0d98 ; -------------------------------------------------------------------------------------- 0d98 0da5 | | .CONST 0x0da5 ; Address of begin 0d99 0004 | | .CONST 0x0004 ; Address of exception handler 0d9a 0004 | | .CONST 0x0004 ; Number of locals 0d9b INIT_0d98: 0d9b e5fe | | Load 0x2,-0x2 0d9c 01dd | | Execute Vector,First 0d9d 00e3 | | Load_Encached Natural_Cache 0d9e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0d9f e5fe | | Load 0x2,-0x2 0da0 01dc | | Execute Vector,Last 0da1 00e3 | | Load_Encached Natural_Cache 0da2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0da3 00e1 | | Load_Encached Boolean_Cache 0da4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0da5 BODY_0d98: 0da5 00cf | | Action Mark_Auxiliary 0da6 781e |x | Jump 0xdc5 0da7 e402 | | Load 0x2,0x2 0da8 e5fe | | Load 0x2,-0x2 0da9 01d7 | | Execute Vector,Field_Read 0daa 0f22 | " | Execute_Immediate Equal,0x22 0dab 6807 |h | Jump_Zero 0xdb3 0dac e404 | | Load 0x2,0x4 0dad e402 | | Load 0x2,0x2 0dae e5fe | | Load 0x2,-0x2 0daf 832c | , | Call 0x1,0x12c 0db0 c402 | | Store 0x2,0x2 0db1 c404 | | Store 0x2,0x4 0db2 780e |x | Jump 0xdc1 0db3 e404 | | Load 0x2,0x4 0db4 700c |p | Jump_Nonzero 0xdc1 0db5 e402 | | Load 0x2,0x2 0db6 e5fe | | Load 0x2,-0x2 0db7 01d7 | | Execute Vector,Field_Read 0db8 e5ff | | Load 0x2,-0x1 0db9 027f | | Execute Discrete,Equal 0dba 6806 |h | Jump_Zero 0xdc1 0dbb e402 | | Load 0x2,0x2 0dbc e5fe | | Load 0x2,-0x2 0dbd 8326 | & | Call 0x1,0x126 0dbe 7002 |p | Jump_Nonzero 0xdc1 0dbf e402 | | Load 0x2,0x2 0dc0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0dc1 e402 | | Load 0x2,0x2 0dc2 0a01 | | Execute_Immediate Plus,0x1 0dc3 c402 | | Store 0x2,0x2 0dc4 00c9 | | Action Pop_Auxiliary_Loop 0dc5 e402 | | Load 0x2,0x2 0dc6 e403 | | Load 0x2,0x3 0dc7 027a | z | Execute Discrete,Less_Equal 0dc8 77de |w | Jump_Nonzero 0xda7 0dc9 00ce | | Action Pop_Auxiliary 0dca 4800 |H | Short_Literal 0x0 0dcb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0dcc 0000 0000 | | .BLANK 0000[0x4] 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 ; SUBPROGRAM 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 0dd3 | | .CONST 0x0dd3 ; Address of begin 0dd1 0004 | | .CONST 0x0004 ; Address of exception handler 0dd2 0001 | | .CONST 0x0001 ; Number of locals 0dd3 BODY_0dd0: 0dd3 INIT_0dd0: 0dd3 e5ff | | Load 0x2,-0x1 0dd4 4828 |H( | Short_Literal 0x28 0dd5 832f | / | Call 0x1,0x12f 0dd6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dd7 0000 | | .XXX[0x1] 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 ; SUBPROGRAM 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 0ddb | | .CONST 0x0ddb ; Address of begin 0dd9 0004 | | .CONST 0x0004 ; Address of exception handler 0dda 0001 | | .CONST 0x0001 ; Number of locals 0ddb BODY_0dd8: 0ddb INIT_0dd8: 0ddb e5ff | | Load 0x2,-0x1 0ddc 01db | | Execute Vector,Length 0ddd 0c01 | | Execute_Immediate Greater_Equal,0x1 0dde 680d |h | Jump_Zero 0xdec 0ddf e5fe | | Load 0x2,-0x2 0de0 e05c | \ | Load 0x0,0x5c 0de1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0de2 480a |H | Short_Literal 0xa 0de3 832f | / | Call 0x1,0x12f 0de4 0c01 | | Execute_Immediate Greater_Equal,0x1 0de5 6806 |h | Jump_Zero 0xdec 0de6 e5fe | | Load 0x2,-0x2 0de7 e5ff | | Load 0x2,-0x1 0de8 4801 |H | Short_Literal 0x1 0de9 e05c | \ | Load 0x0,0x5c 0dea 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0deb 00d1 | | Pop_Control Pop_Count_1 0dec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ded 0000 0000 | | .XXX[0x3] 0def 0000 | | 0df0 ; -------------------------------------------------------------------------------------- 0df0 ; SUBPROGRAM 0df0 ; -------------------------------------------------------------------------------------- 0df0 0df3 | | .CONST 0x0df3 ; Address of begin 0df1 0004 | | .CONST 0x0004 ; Address of exception handler 0df2 0001 | | .CONST 0x0001 ; Number of locals 0df3 BODY_0df0: 0df3 INIT_0df0: 0df3 4820 |H | Short_Literal 0x20 0df4 4803 |H | Short_Literal 0x3 0df5 4810 |H | Short_Literal 0x10 0df6 e5ff | | Load 0x2,-0x1 0df7 e05b | [ | Load 0x0,0x5b 0df8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0df9 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": " 0dfb 01cc | | Execute Vector,Catenate 0dfc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dfd 0000 0000 | | .XXX[0x3] 0dff 0000 | | 0e00 ; -------------------------------------------------------------------------------------- 0e00 ; SUBPROGRAM 0e00 ; -------------------------------------------------------------------------------------- 0e00 0e2f | / | .CONST 0x0e2f ; Address of begin 0e01 0004 | | .CONST 0x0004 ; Address of exception handler 0e02 000e | | .CONST 0x000e ; Number of locals 0e03 INIT_0e00: 0e03 e5fe | | Load 0x2,-0x2 0e04 0a05 | | Execute_Immediate Plus,0x5 0e05 00e3 | | Load_Encached Natural_Cache 0e06 025b | [ | Execute Discrete,Check_In_Type 0e07 8322 | " | Call 0x1,0x122 0e08 00d8 | | Load_Top At_Offset_0 0e09 01db | | Execute Vector,Length 0e0a 00e3 | | Load_Encached Natural_Cache 0e0b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0e0c e5ff | | Load 0x2,-0x1 0e0d 01db | | Execute Vector,Length 0e0e 00e3 | | Load_Encached Natural_Cache 0e0f 025b | [ | Execute Discrete,Check_In_Type 0e10 8323 | # | Call 0x1,0x123 0e11 00e3 | | Load_Encached Natural_Cache 0e12 03f1 | | Declare_Variable Discrete,With_Value 0e13 00d8 | | Load_Top At_Offset_0 0e14 e05c | \ | Load 0x0,0x5c 0e15 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e16 1c08 | | Execute_Immediate Run_Utility,0x8 0e17 00d8 | | Load_Top At_Offset_0 0e18 1c00 | | Execute_Immediate Run_Utility,0x0 0e19 029f 1a53 | S| Declare_Subprogram INIT_1a50,For_Call 0e1b e05d | ] | Load 0x0,0x5d 0e1c 190d | | Execute Package,Field_Reference,Field_Number 0xd 0e1d 00c6 | | Action Check_Subprogram_Elaborated 0e1e 4806 |H | Short_Literal 0x6 0e1f 4802 |H | Short_Literal 0x2 0e20 0099 | | Action Reference_Dynamic 0e21 e05e | ^ | Load 0x0,0x5e 0e22 e05f | _ | Load 0x0,0x5f 0e23 480a |H | Short_Literal 0xa 0e24 0007 | | Action Break_Optional 0e25 e05d | ] | Load 0x0,0x5d 0e26 190f | | Execute Package,Field_Reference,Field_Number 0xf 0e27 00c6 | | Action Check_Subprogram_Elaborated 0e28 4806 |H | Short_Literal 0x6 0e29 4802 |H | Short_Literal 0x2 0e2a 0099 | | Action Reference_Dynamic 0e2b e060 | ` | Load 0x0,0x60 0e2c e061 | a | Load 0x0,0x61 0e2d 480e |H | Short_Literal 0xe 0e2e 0007 | | Action Break_Optional 0e2f BODY_0e00: 0e2f e405 | | Load 0x2,0x5 0e30 4820 |H | Short_Literal 0x20 0e31 4800 |H | Short_Literal 0x0 0e32 e05c | \ | Load 0x0,0x5c 0e33 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e34 00d1 | | Pop_Control Pop_Count_1 0e35 e5fd | | Load 0x2,-0x3 0e36 680f |h | Jump_Zero 0xe46 0e37 4800 |H | Short_Literal 0x0 0e38 484f |HO | Short_Literal 0x4f 0e39 e403 | | Load 0x2,0x3 0e3a 6031 |`1 | Indirect_Literal Discrete,0xe6c,{0x00000000, 0x7fffffff} 0e3b 4800 |H | Short_Literal 0x0 0e3c e5ff | | Load 0x2,-0x1 0e3d 480b |H | Short_Literal 0xb 0e3e 4802 |H | Short_Literal 0x2 0e3f 0099 | | Action Reference_Dynamic 0e40 480c |H | Short_Literal 0xc 0e41 4802 |H | Short_Literal 0x2 0e42 0099 | | Action Reference_Dynamic 0e43 e05d | ] | Load 0x0,0x5d 0e44 180f | | Execute Package,Field_Execute,Field_Number 0xf 0e45 7816 |x | Jump 0xe5c 0e46 484f |HO | Short_Literal 0x4f 0e47 e403 | | Load 0x2,0x3 0e48 0272 | r | Execute Discrete,Minus 0e49 00e4 | | Load_Encached Positive_Cache 0e4a 025b | [ | Execute Discrete,Check_In_Type 0e4b e402 | | Load 0x2,0x2 0e4c e5ff | | Load 0x2,-0x1 0e4d 4807 |H | Short_Literal 0x7 0e4e 4802 |H | Short_Literal 0x2 0e4f 0099 | | Action Reference_Dynamic 0e50 4808 |H | Short_Literal 0x8 0e51 4802 |H | Short_Literal 0x2 0e52 0099 | | Action Reference_Dynamic 0e53 e05d | ] | Load 0x0,0x5d 0e54 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e55 e405 | | Load 0x2,0x5 0e56 482c |H, | Short_Literal 0x2c 0e57 4809 |H | Short_Literal 0x9 0e58 4820 |H | Short_Literal 0x20 0e59 4800 |H | Short_Literal 0x0 0e5a 832d | - | Call 0x1,0x12d 0e5b 00d1 | | Pop_Control Pop_Count_1 0e5c e405 | | Load 0x2,0x5 0e5d e402 | | Load 0x2,0x2 0e5e 8328 | ( | Call 0x1,0x128 0e5f 00d1 | | Pop_Control Pop_Count_1 0e60 e5fd | | Load 0x2,-0x3 0e61 6804 |h | Jump_Zero 0xe66 0e62 e405 | | Load 0x2,0x5 0e63 e402 | | Load 0x2,0x2 0e64 8331 | 1 | Call 0x1,0x131 0e65 00d1 | | Pop_Control Pop_Count_1 0e66 e405 | | Load 0x2,0x5 0e67 e05c | \ | Load 0x0,0x5c 0e68 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e69 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e6a 0000 0000 | | .XXX[0x2] 0e6c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0e70 ; -------------------------------------------------------------------------------------- 0e70 ; SUBPROGRAM 0e70 ; -------------------------------------------------------------------------------------- 0e70 0e74 | t | .CONST 0x0e74 ; Address of begin 0e71 0004 | | .CONST 0x0004 ; Address of exception handler 0e72 0002 | | .CONST 0x0002 ; Number of locals 0e73 INIT_0e70: 0e73 00e3 | | Load_Encached Natural_Cache 0e74 BODY_0e70: 0e74 e5ff | | Load 0x2,-0x1 0e75 8330 | 0 | Call 0x1,0x130 0e76 a402 | | Store_Unchecked 0x2,0x2 0e77 00d8 | | Load_Top At_Offset_0 0e78 0c01 | | Execute_Immediate Greater_Equal,0x1 0e79 6811 |h | Jump_Zero 0xe8b 0e7a e5fe | | Load 0x2,-0x2 0e7b 4801 |H | Short_Literal 0x1 0e7c e5fe | | Load 0x2,-0x2 0e7d e402 | | Load 0x2,0x2 0e7e e5ff | | Load 0x2,-0x1 0e7f 01dc | | Execute Vector,Last 0e80 e5ff | | Load 0x2,-0x1 0e81 01cf | | Execute Vector,Slice_Read 0e82 8333 | 3 | Call 0x1,0x133 0e83 e5ff | | Load 0x2,-0x1 0e84 01dd | | Execute Vector,First 0e85 e402 | | Load 0x2,0x2 0e86 0aff | | Execute_Immediate Plus,-0x1 0e87 e5ff | | Load 0x2,-0x1 0e88 01cf | | Execute Vector,Slice_Read 0e89 8329 | ) | Call 0x1,0x129 0e8a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e8b 4800 |H | Short_Literal 0x0 0e8c e5fe | | Load 0x2,-0x2 0e8d e5ff | | Load 0x2,-0x1 0e8e 8333 | 3 | Call 0x1,0x133 0e8f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e90 ; -------------------------------------------------------------------------------------- 0e90 ; SUBPROGRAM 0e90 ; -------------------------------------------------------------------------------------- 0e90 0e93 | | .CONST 0x0e93 ; Address of begin 0e91 0004 | | .CONST 0x0004 ; Address of exception handler 0e92 0001 | | .CONST 0x0001 ; Number of locals 0e93 BODY_0e90: 0e93 INIT_0e90: 0e93 e5fe | | Load 0x2,-0x2 0e94 8332 | 2 | Call 0x1,0x132 0e95 e5fd | | Load 0x2,-0x3 0e96 8322 | " | Call 0x1,0x122 0e97 01cc | | Execute Vector,Catenate 0e98 4800 |H | Short_Literal 0x0 0e99 e5fe | | Load 0x2,-0x2 0e9a e5ff | | Load 0x2,-0x1 0e9b e062 | b | Load 0x0,0x62 0e9c 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e9d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e9e 0000 0000 | | .XXX[0x2] 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 ; SUBPROGRAM 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 0ea3 | | .CONST 0x0ea3 ; Address of begin 0ea1 0004 | | .CONST 0x0004 ; Address of exception handler 0ea2 0001 | | .CONST 0x0001 ; Number of locals 0ea3 BODY_0ea0: 0ea3 INIT_0ea0: 0ea3 e5ff | | Load 0x2,-0x1 0ea4 6802 |h | Jump_Zero 0xea7 0ea5 4800 |H | Short_Literal 0x0 0ea6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ea7 4820 |H | Short_Literal 0x20 0ea8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ea9 0000 0000 | | .BLANK 0000[0x7] 0eb0 ; -------------------------------------------------------------------------------------- 0eb0 ; SUBPROGRAM 0eb0 ; -------------------------------------------------------------------------------------- 0eb0 0eb3 | | .CONST 0x0eb3 ; Address of begin 0eb1 0004 | | .CONST 0x0004 ; Address of exception handler 0eb2 0001 | | .CONST 0x0001 ; Number of locals 0eb3 BODY_0eb0: 0eb3 INIT_0eb0: 0eb3 4820 |H | Short_Literal 0x20 0eb4 4800 |H | Short_Literal 0x0 0eb5 4810 |H | Short_Literal 0x10 0eb6 e5ff | | Load 0x2,-0x1 0eb7 e05b | [ | Load 0x0,0x5b 0eb8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0eb9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0eba 0000 0000 | | .BLANK 0000[0x6] 0ec0 ; -------------------------------------------------------------------------------------- 0ec0 ; SUBPROGRAM 0ec0 ; -------------------------------------------------------------------------------------- 0ec0 0ec5 | | .CONST 0x0ec5 ; Address of begin 0ec1 0004 | | .CONST 0x0004 ; Address of exception handler 0ec2 0002 | | .CONST 0x0002 ; Number of locals 0ec3 INIT_0ec0: 0ec3 e5fe | | Load 0x2,-0x2 0ec4 8336 | 6 | Call 0x1,0x136 0ec5 BODY_0ec0: 0ec5 00d8 | | Load_Top At_Offset_0 0ec6 0092 1ae4 | | Action Push_String_Extended,0x1ae4 ; "#" 0ec8 e5ff | | Load 0x2,-0x1 0ec9 e048 | H | Load 0x0,0x48 0eca 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0ecb 8337 | 7 | Call 0x1,0x137 0ecc 01cc | | Execute Vector,Catenate 0ecd 01cb | | Execute Vector,Append 0ece 0092 1ae4 | | Action Push_String_Extended,0x1ae4 ; "#" 0ed0 01cc | | Execute Vector,Catenate 0ed1 e5ff | | Load 0x2,-0x1 0ed2 e048 | H | Load 0x0,0x48 0ed3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ed4 8337 | 7 | Call 0x1,0x137 0ed5 01cc | | Execute Vector,Catenate 0ed6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ed7 0000 | | .XXX[0x1] 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 ; SUBPROGRAM 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 0edd | | .CONST 0x0edd ; Address of begin 0ed9 0004 | | .CONST 0x0004 ; Address of exception handler 0eda 0002 | | .CONST 0x0002 ; Number of locals 0edb INIT_0ed8: 0edb e5ff | | Load 0x2,-0x1 0edc 8336 | 6 | Call 0x1,0x136 0edd BODY_0ed8: 0edd e5fe | | Load 0x2,-0x2 0ede 680d |h | Jump_Zero 0xeec 0edf 00d8 | | Load_Top At_Offset_0 0ee0 0092 1ae5 | | Action Push_String_Extended,0x1ae5 ; "->" 0ee2 01ca | | Execute Vector,Prepend 0ee3 00ea | | Load_Encached Null_String_Cache 0ee4 e5ff | | Load 0x2,-0x1 0ee5 0f00 | | Execute_Immediate Equal,0x0 0ee6 e402 | | Load 0x2,0x2 0ee7 00ea | | Load_Encached Null_String_Cache 0ee8 01ca | | Execute Vector,Prepend 0ee9 8321 | ! | Call 0x1,0x121 0eea 01cc | | Execute Vector,Catenate 0eeb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0eec e310 | | Load 0x1,0x110 0eed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0eee 0000 0000 | | .XXX[0x2] 0ef0 ; -------------------------------------------------------------------------------------- 0ef0 ; SUBPROGRAM 0ef0 ; -------------------------------------------------------------------------------------- 0ef0 0ef5 | | .CONST 0x0ef5 ; Address of begin 0ef1 0004 | | .CONST 0x0004 ; Address of exception handler 0ef2 0002 | | .CONST 0x0002 ; Number of locals 0ef3 INIT_0ef0: 0ef3 e5fe | | Load 0x2,-0x2 0ef4 8336 | 6 | Call 0x1,0x136 0ef5 BODY_0ef0: 0ef5 483e |H> | Short_Literal 0x3e 0ef6 483c |H< | Short_Literal 0x3c 0ef7 00ea | | Load_Encached Null_String_Cache 0ef8 e5fe | | Load 0x2,-0x2 0ef9 e402 | | Load 0x2,0x2 0efa 00ea | | Load_Encached Null_String_Cache 0efb 01ca | | Execute Vector,Prepend 0efc 8321 | ! | Call 0x1,0x121 0efd 01cb | | Execute Vector,Append 0efe e5fe | | Load 0x2,-0x2 0eff e5ff | | Load 0x2,-0x1 0f00 8338 | 8 | Call 0x1,0x138 0f01 01cc | | Execute Vector,Catenate 0f02 01cb | | Execute Vector,Append 0f03 e5fd | | Load 0x2,-0x3 0f04 e5fe | | Load 0x2,-0x2 0f05 8339 | 9 | Call 0x1,0x139 0f06 01cc | | Execute Vector,Catenate 0f07 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0f08 ; -------------------------------------------------------------------------------------- 0f08 ; SUBPROGRAM 0f08 ; -------------------------------------------------------------------------------------- 0f08 0f0b | | .CONST 0x0f0b ; Address of begin 0f09 0004 | | .CONST 0x0004 ; Address of exception handler 0f0a 0001 | | .CONST 0x0001 ; Number of locals 0f0b BODY_0f08: 0f0b INIT_0f08: 0f0b e5ff | | Load 0x2,-0x1 0f0c 0d01 | | Execute_Immediate Less,0x1 0f0d 6802 |h | Jump_Zero 0xf10 0f0e 00ea | | Load_Encached Null_String_Cache 0f0f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f10 e33b | ; | Load 0x1,0x13b 0f11 e5ff | | Load 0x2,-0x1 0f12 0aff | | Execute_Immediate Plus,-0x1 0f13 0248 | H | Execute Discrete,Check_In_Integer 0f14 833c | < | Call 0x1,0x13c 0f15 01cc | | Execute Vector,Catenate 0f16 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f17 0000 | | .XXX[0x1] 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f23 | # | .CONST 0x0f23 ; Address of begin 0f19 0004 | | .CONST 0x0004 ; Address of exception handler 0f1a 0005 | | .CONST 0x0005 ; Number of locals 0f1b INIT_0f18: 0f1b e001 | | Load 0x0,0x1 0f1c 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 0f1d 0322 | " | Declare_Variable Record 0f1e 00e6 | | Load_Encached Float_Cache 0f1f e001 | | Load 0x0,0x1 0f20 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 0f21 029f 1a6b | k| Declare_Subprogram INIT_1a68,For_Call 0f23 BODY_0f18: 0f23 e5fe | | Load 0x2,-0x2 0f24 8294 | | Call 0x1,0x94 0f25 6807 |h | Jump_Zero 0xf2d 0f26 4820 |H | Short_Literal 0x20 0f27 4800 |H | Short_Literal 0x0 0f28 480a |H | Short_Literal 0xa 0f29 e5ff | | Load 0x2,-0x1 0f2a e05b | [ | Load 0x0,0x5b 0f2b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f2c 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0f2d e5fe | | Load 0x2,-0x2 0f2e 8268 | h | Call 0x1,0x68 0f2f e402 | | Load 0x2,0x2 0f30 017d | } | Execute Record,Structure_Write 0f31 e402 | | Load 0x2,0x2 0f32 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0f33 8307 | | Call 0x1,0x107 0f34 6829 |h) | Jump_Zero 0xf5e 0f35 e402 | | Load 0x2,0x2 0f36 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0f37 8309 | | Call 0x1,0x109 0f38 4609 |F | Jump_Case 0xa 0f39 7809 |x | Jump 0xf43 ; case 0x0 0f3a 7808 |x | Jump 0xf43 ; case 0x1 0f3b 7807 |x | Jump 0xf43 ; case 0x2 0f3c 7806 |x | Jump 0xf43 ; case 0x3 0f3d 781b |x | Jump 0xf59 ; case 0x4 0f3e 781d |x | Jump 0xf5c ; case 0x5 0f3f 780b |x | Jump 0xf4b ; case 0x6 0f40 7802 |x | Jump 0xf43 ; case 0x7 0f41 7808 |x | Jump 0xf4a ; case 0x8 0f42 7800 |x | Jump 0xf43 ; case 0x9 0f43 4820 |H | Short_Literal 0x20 0f44 4800 |H | Short_Literal 0x0 0f45 480a |H | Short_Literal 0xa 0f46 e5ff | | Load 0x2,-0x1 0f47 e05b | [ | Load 0x0,0x5b 0f48 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f49 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0f4a 0887 | | Execute_Immediate Raise,0x87 0f4b e5ff | | Load 0x2,-0x1 0f4c e2c8 | | Load 0x1,0xc8 0f4d e2c9 | | Load 0x1,0xc9 0f4e 1dca | | Execute_Immediate Reference_Lex_1,0xca 0f4f 8002 | | Call 0x0,0x2 0f50 a403 | | Store_Unchecked 0x2,0x3 0f51 4805 |H | Short_Literal 0x5 0f52 e063 | c | Load 0x0,0x63 0f53 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f54 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0f55 e403 | | Load 0x2,0x3 0f56 e063 | c | Load 0x0,0x63 0f57 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f58 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0f59 e5ff | | Load 0x2,-0x1 0f5a 8365 | e | Call 0x1,0x165 0f5b 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0f5c 8405 | | Call 0x2,0x5 0f5d 786e |xn | Jump 0xfcc 0f5e e5fe | | Load 0x2,-0x2 0f5f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0f60 00d8 | | Load_Top At_Offset_0 0f61 0d39 | 9 | Execute_Immediate Less,0x39 0f62 7017 |p | Jump_Nonzero 0xf7a 0f63 00d8 | | Load_Top At_Offset_0 0f64 0c44 | D | Execute_Immediate Greater_Equal,0x44 0f65 7002 |p | Jump_Nonzero 0xf68 0f66 00d1 | | Pop_Control Pop_Count_1 0f67 0887 | | Execute_Immediate Raise,0x87 0f68 00d8 | | Load_Top At_Offset_0 0f69 0d6c | l | Execute_Immediate Less,0x6c 0f6a 700a |p | Jump_Nonzero 0xf75 0f6b 00d8 | | Load_Top At_Offset_0 0f6c 0c6d | m | Execute_Immediate Greater_Equal,0x6d 0f6d 7002 |p | Jump_Nonzero 0xf70 0f6e 00d1 | | Pop_Control Pop_Count_1 0f6f 0887 | | Execute_Immediate Raise,0x87 0f70 0b74 | t | Execute_Immediate Case_Compare,0x74 0f71 77fc |w | Jump_Nonzero 0xf6e 0f72 0f7c | | | Execute_Immediate Equal,0x7c 0f73 77fb |w | Jump_Nonzero 0xf6f 0f74 7ff2 | | Jump 0xf67 0f75 0b44 | D | Execute_Immediate Case_Compare,0x44 0f76 77f7 |w | Jump_Nonzero 0xf6e 0f77 0f4c | L | Execute_Immediate Equal,0x4c 0f78 77f6 |w | Jump_Nonzero 0xf6f 0f79 7fed | | Jump 0xf67 0f7a 00d8 | | Load_Top At_Offset_0 0f7b 0c19 | | Execute_Immediate Greater_Equal,0x19 0f7c 702d |p- | Jump_Nonzero 0xfaa 0f7d 4618 |F | Jump_Case 0x19 0f7e 782e |x. | Jump 0xfad ; case 0x0 0f7f 7fe7 | | Jump 0xf67 ; case 0x1 0f80 7fe6 | | Jump 0xf67 ; case 0x2 0f81 7fe5 | | Jump 0xf67 ; case 0x3 0f82 7fe4 | | Jump 0xf67 ; case 0x4 0f83 7fe3 | | Jump 0xf67 ; case 0x5 0f84 7fe2 | | Jump 0xf67 ; case 0x6 0f85 7fe1 | | Jump 0xf67 ; case 0x7 0f86 782d |x- | Jump 0xfb4 ; case 0x8 0f87 7fdf | | Jump 0xf67 ; case 0x9 0f88 7fde | | Jump 0xf67 ; case 0xa 0f89 7fdd | | Jump 0xf67 ; case 0xb 0f8a 7fdc | | Jump 0xf67 ; case 0xc 0f8b 7fdb | | Jump 0xf67 ; case 0xd 0f8c 7fda | | Jump 0xf67 ; case 0xe 0f8d 7fd9 | | Jump 0xf67 ; case 0xf 0f8e 7833 |x3 | Jump 0xfc2 ; case 0x10 0f8f 7fd7 | | Jump 0xf67 ; case 0x11 0f90 7fd6 | | Jump 0xf67 ; case 0x12 0f91 7fd5 | | Jump 0xf67 ; case 0x13 0f92 7fd4 | | Jump 0xf67 ; case 0x14 0f93 7fd3 | | Jump 0xf67 ; case 0x15 0f94 7fd2 | | Jump 0xf67 ; case 0x16 0f95 7fd1 | | Jump 0xf67 ; case 0x17 0f96 7800 |x | Jump 0xf97 ; case 0x18 0f97 e5ff | | Load 0x2,-0x1 0f98 e243 | C | Load 0x1,0x43 0f99 e244 | D | Load 0x1,0x44 0f9a 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0f9b 8002 | | Call 0x0,0x2 0f9c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0f9d a404 | | Store_Unchecked 0x2,0x4 0f9e 4820 |H | Short_Literal 0x20 0f9f 4800 |H | Short_Literal 0x0 0fa0 4810 |H | Short_Literal 0x10 0fa1 e404 | | Load 0x2,0x4 0fa2 00d8 | | Load_Top At_Offset_0 0fa3 00e2 | | Load_Encached Integer_Cache 0fa4 0260 | ` | Execute Discrete,In_Type 0fa5 7001 |p | Jump_Nonzero 0xfa7 0fa6 08e0 | | Execute_Immediate Raise,0xe0 0fa7 e05b | [ | Load 0x0,0x5b 0fa8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0fa9 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0faa 0f38 | 8 | Execute_Immediate Equal,0x38 0fab 7016 |p | Jump_Nonzero 0xfc2 0fac 7fba | | Jump 0xf67 0fad 4820 |H | Short_Literal 0x20 0fae 4800 |H | Short_Literal 0x0 0faf 480a |H | Short_Literal 0xa 0fb0 e5ff | | Load 0x2,-0x1 0fb1 e05b | [ | Load 0x0,0x5b 0fb2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0fb3 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0fb4 e5ff | | Load 0x2,-0x1 0fb5 e2c8 | | Load 0x1,0xc8 0fb6 e2c9 | | Load 0x1,0xc9 0fb7 1dca | | Execute_Immediate Reference_Lex_1,0xca 0fb8 8002 | | Call 0x0,0x2 0fb9 a403 | | Store_Unchecked 0x2,0x3 0fba 4805 |H | Short_Literal 0x5 0fbb e063 | c | Load 0x0,0x63 0fbc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fbd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0fbe e403 | | Load 0x2,0x3 0fbf e063 | c | Load 0x0,0x63 0fc0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0fc1 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0fc2 4800 |H | Short_Literal 0x0 0fc3 e5f9 | | Load 0x2,-0x7 0fc4 e5fa | | Load 0x2,-0x6 0fc5 e5fb | | Load 0x2,-0x5 0fc6 e5fc | | Load 0x2,-0x4 0fc7 e5fd | | Load 0x2,-0x3 0fc8 e5fe | | Load 0x2,-0x2 0fc9 e5ff | | Load 0x2,-0x1 0fca 833e | > | Call 0x1,0x13e 0fcb 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0fcc 0831 | 1 | Execute_Immediate Raise,0x31 0fcd 0000 0000 | | .XXX[0x3] 0fcf 0000 | | 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 ; SUBPROGRAM 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 0fe1 | | .CONST 0x0fe1 ; Address of begin 0fd1 0004 | | .CONST 0x0004 ; Address of exception handler 0fd2 0003 | | .CONST 0x0003 ; Number of locals 0fd3 INIT_0fd0: 0fd3 e001 | | Load 0x0,0x1 0fd4 1b92 | | Execute Package,Field_Read,Field_Number 0x92 0fd5 0322 | " | Declare_Variable Record 0fd6 4800 |H | Short_Literal 0x0 0fd7 e218 | | Load 0x1,0x18 0fd8 025b | [ | Execute Discrete,Check_In_Type 0fd9 e5fe | | Load 0x2,-0x2 0fda e26d | m | Load 0x1,0x6d 0fdb 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0fdc 826c | l | Call 0x1,0x6c 0fdd e402 | | Load 0x2,0x2 0fde 017d | } | Execute Record,Structure_Write 0fdf e048 | H | Load 0x0,0x48 0fe0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fe1 BODY_0fd0: 0fe1 e5ff | | Load 0x2,-0x1 0fe2 7003 |p | Jump_Nonzero 0xfe6 0fe3 4800 |H | Short_Literal 0x0 0fe4 a403 | | Store_Unchecked 0x2,0x3 0fe5 7806 |x | Jump 0xfec 0fe6 e5ff | | Load 0x2,-0x1 0fe7 e402 | | Load 0x2,0x2 0fe8 e5fe | | Load 0x2,-0x2 0fe9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0fea 828b | | Call 0x1,0x8b 0feb a403 | | Store_Unchecked 0x2,0x3 0fec e5f8 | | Load 0x2,-0x8 0fed e5f9 | | Load 0x2,-0x7 0fee e5fa | | Load 0x2,-0x6 0fef e5fb | | Load 0x2,-0x5 0ff0 e5fc | | Load 0x2,-0x4 0ff1 e5fd | | Load 0x2,-0x3 0ff2 e402 | | Load 0x2,0x2 0ff3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0ff4 e403 | | Load 0x2,0x3 0ff5 8363 | c | Call 0x1,0x163 0ff6 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0ff7 0000 | | .XXX[0x1] 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 ; SUBPROGRAM 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 1010 | | .CONST 0x1010 ; Address of begin 0ff9 0004 | | .CONST 0x0004 ; Address of exception handler 0ffa 0003 | | .CONST 0x0003 ; Number of locals 0ffb INIT_0ff8: 0ffb e001 | | Load 0x0,0x1 0ffc 1b92 | | Execute Package,Field_Read,Field_Number 0x92 0ffd 0322 | " | Declare_Variable Record 0ffe 4800 |H | Short_Literal 0x0 0fff e218 | | Load 0x1,0x18 1000 025b | [ | Execute Discrete,Check_In_Type 1001 e5fd | | Load 0x2,-0x3 1002 e26d | m | Load 0x1,0x6d 1003 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 1004 826c | l | Call 0x1,0x6c 1005 e402 | | Load 0x2,0x2 1006 017d | } | Execute Record,Structure_Write 1007 e5fe | | Load 0x2,-0x2 1008 e5ff | | Load 0x2,-0x1 1009 e402 | | Load 0x2,0x2 100a e5fd | | Load 0x2,-0x3 100b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 100c 828e | | Call 0x1,0x8e 100d e048 | H | Load 0x0,0x48 100e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 100f 03f1 | | Declare_Variable Discrete,With_Value 1010 BODY_0ff8: 1010 e5f7 | | Load 0x2,-0x9 1011 e5f8 | | Load 0x2,-0x8 1012 e5f9 | | Load 0x2,-0x7 1013 e5fa | | Load 0x2,-0x6 1014 e5fb | | Load 0x2,-0x5 1015 e5fc | | Load 0x2,-0x4 1016 e402 | | Load 0x2,0x2 1017 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1018 e403 | | Load 0x2,0x3 1019 8363 | c | Call 0x1,0x163 101a 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 101b 0000 0000 | | .BLANK 0000[0x5] 1020 ; -------------------------------------------------------------------------------------- 1020 ; SUBPROGRAM 1020 ; -------------------------------------------------------------------------------------- 1020 1038 | 8 | .CONST 0x1038 ; Address of begin 1021 0004 | | .CONST 0x0004 ; Address of exception handler 1022 000c | | .CONST 0x000c ; Number of locals 1023 INIT_1020: 1023 e2be | | Load 0x1,0xbe 1024 00e5 | | Load_Encached Long_Integer_Cache 1025 03f1 | | Declare_Variable Discrete,With_Value 1026 e5ff | | Load 0x2,-0x1 1027 01dc | | Execute Vector,Last 1028 00e5 | | Load_Encached Long_Integer_Cache 1029 03f1 | | Declare_Variable Discrete,With_Value 102a e001 | | Load 0x0,0x1 102b 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3 102c 0322 | " | Declare_Variable Record 102d e001 | | Load 0x0,0x1 102e 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0 102f 0322 | " | Declare_Variable Record 1030 00e5 | | Load_Encached Long_Integer_Cache 1031 03e9 | | Declare_Variable Discrete,Duplicate 1032 03e9 | | Declare_Variable Discrete,Duplicate 1033 e048 | H | Load 0x0,0x48 1034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1035 00e5 | | Load_Encached Long_Integer_Cache 1036 03e9 | | Declare_Variable Discrete,Duplicate 1037 03e9 | | Declare_Variable Discrete,Duplicate 1038 BODY_1020: 1038 e5fc | | Load 0x2,-0x4 1039 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 103a 0f6c | l | Execute_Immediate Equal,0x6c 103b 7001 |p | Jump_Nonzero 0x103d 103c 0887 | | Execute_Immediate Raise,0x87 103d e5ff | | Load 0x2,-0x1 103e 01dd | | Execute Vector,First 103f 6801 |h | Jump_Zero 0x1041 1040 0887 | | Execute_Immediate Raise,0x87 1041 e5fd | | Load 0x2,-0x3 1042 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1043 680d |h | Jump_Zero 0x1051 1044 e5fe | | Load 0x2,-0x2 1045 e5fd | | Load 0x2,-0x3 1046 e5ff | | Load 0x2,-0x1 1047 82b9 | | Call 0x1,0xb9 1048 e404 | | Load 0x2,0x4 1049 017d | } | Execute Record,Structure_Write 104a e404 | | Load 0x2,0x4 104b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 104c e5fd | | Load 0x2,-0x3 104d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 104e 0273 | s | Execute Discrete,Plus 104f a406 | | Store_Unchecked 0x2,0x6 1050 7803 |x | Jump 0x1054 1051 e5fd | | Load 0x2,-0x3 1052 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1053 a406 | | Store_Unchecked 0x2,0x6 1054 e406 | | Load 0x2,0x6 1055 e402 | | Load 0x2,0x2 1056 0273 | s | Execute Discrete,Plus 1057 0aff | | Execute_Immediate Plus,-0x1 1058 e403 | | Load 0x2,0x3 1059 027a | z | Execute Discrete,Less_Equal 105a 6808 |h | Jump_Zero 0x1063 105b e406 | | Load 0x2,0x6 105c e403 | | Load 0x2,0x3 105d e5ff | | Load 0x2,-0x1 105e 01cf | | Execute Vector,Slice_Read 105f 82c6 | | Call 0x1,0xc6 1060 e405 | | Load 0x2,0x5 1061 017d | } | Execute Record,Structure_Write 1062 7806 |x | Jump 0x1069 1063 e406 | | Load 0x2,0x6 1064 e5fe | | Load 0x2,-0x2 1065 8285 | | Call 0x1,0x85 1066 82c5 | | Call 0x1,0xc5 1067 e405 | | Load 0x2,0x5 1068 017d | } | Execute Record,Structure_Write 1069 00e5 | | Load_Encached Long_Integer_Cache 106a 00e5 | | Load_Encached Long_Integer_Cache 106b 00e5 | | Load_Encached Long_Integer_Cache 106c e405 | | Load 0x2,0x5 106d e5fc | | Load 0x2,-0x4 106e 8360 | ` | Call 0x1,0x160 106f c40a | | Store 0x2,0xa 1070 c40b | | Store 0x2,0xb 1071 c40c | | Store 0x2,0xc 1072 00d8 | | Load_Top At_Offset_0 1073 e5fb | | Load 0x2,-0x5 1074 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 1075 027a | z | Execute Discrete,Less_Equal 1076 7001 |p | Jump_Nonzero 0x1078 1077 0887 | | Execute_Immediate Raise,0x87 1078 e406 | | Load 0x2,0x6 1079 e402 | | Load 0x2,0x2 107a 0273 | s | Execute Discrete,Plus 107b a407 | | Store_Unchecked 0x2,0x7 107c e407 | | Load 0x2,0x7 107d e40c | | Load 0x2,0xc 107e 0273 | s | Execute Discrete,Plus 107f 0aff | | Execute_Immediate Plus,-0x1 1080 a408 | | Store_Unchecked 0x2,0x8 1081 e407 | | Load 0x2,0x7 1082 e5fe | | Load 0x2,-0x2 1083 8285 | | Call 0x1,0x85 1084 a409 | | Store_Unchecked 0x2,0x9 1085 e408 | | Load 0x2,0x8 1086 e403 | | Load 0x2,0x3 1087 027a | z | Execute Discrete,Less_Equal 1088 6810 |h | Jump_Zero 0x1099 1089 e5f6 | | Load 0x2,-0xa 108a e5f7 | | Load 0x2,-0x9 108b e5f8 | | Load 0x2,-0x8 108c e5f9 | | Load 0x2,-0x7 108d e5fa | | Load 0x2,-0x6 108e e40b | | Load 0x2,0xb 108f e40a | | Load 0x2,0xa 1090 e5fc | | Load 0x2,-0x4 1091 e409 | | Load 0x2,0x9 1092 e407 | | Load 0x2,0x7 1093 e408 | | Load 0x2,0x8 1094 e5ff | | Load 0x2,-0x1 1095 01cf | | Execute Vector,Slice_Read 1096 821c | | Call 0x1,0x1c 1097 835e | ^ | Call 0x1,0x15e 1098 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 1099 e5f6 | | Load 0x2,-0xa 109a e5f7 | | Load 0x2,-0x9 109b e5f8 | | Load 0x2,-0x8 109c e5f9 | | Load 0x2,-0x7 109d e5fa | | Load 0x2,-0x6 109e e40b | | Load 0x2,0xb 109f e40a | | Load 0x2,0xa 10a0 e5fc | | Load 0x2,-0x4 10a1 e409 | | Load 0x2,0x9 10a2 e21b | | Load 0x1,0x1b 10a3 835e | ^ | Call 0x1,0x15e 10a4 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 10a5 0000 0000 | | .XXX[0x3] 10a7 0000 | | 10a8 ; -------------------------------------------------------------------------------------- 10a8 ; SUBPROGRAM 10a8 ; -------------------------------------------------------------------------------------- 10a8 10ab | | .CONST 0x10ab ; Address of begin 10a9 0004 | | .CONST 0x0004 ; Address of exception handler 10aa 0001 | | .CONST 0x0001 ; Number of locals 10ab BODY_10a8: 10ab INIT_10a8: 10ab e5fe | | Load 0x2,-0x2 10ac 829a | | Call 0x1,0x9a 10ad 6801 |h | Jump_Zero 0x10af 10ae 0887 | | Execute_Immediate Raise,0x87 10af e5fe | | Load 0x2,-0x2 10b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 10b1 00d8 | | Load_Top At_Offset_0 10b2 0d6c | l | Execute_Immediate Less,0x6c 10b3 7013 |p | Jump_Nonzero 0x10c7 10b4 00d8 | | Load_Top At_Offset_0 10b5 0c6d | m | Execute_Immediate Greater_Equal,0x6d 10b6 700b |p | Jump_Nonzero 0x10c2 10b7 00d1 | | Pop_Control Pop_Count_1 10b8 e5f8 | | Load 0x2,-0x8 10b9 e5f9 | | Load 0x2,-0x7 10ba e5fa | | Load 0x2,-0x6 10bb e5fb | | Load 0x2,-0x5 10bc e5fc | | Load 0x2,-0x4 10bd e5fe | | Load 0x2,-0x2 10be e5ff | | Load 0x2,-0x1 10bf e21b | | Load 0x1,0x1b 10c0 835f | _ | Call 0x1,0x15f 10c1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 10c2 0b74 | t | Execute_Immediate Case_Compare,0x74 10c3 7024 |p$ | Jump_Nonzero 0x10e8 10c4 0f7c | | | Execute_Immediate Equal,0x7c 10c5 7023 |p# | Jump_Nonzero 0x10e9 10c6 7824 |x$ | Jump 0x10eb 10c7 0b44 | D | Execute_Immediate Case_Compare,0x44 10c8 7003 |p | Jump_Nonzero 0x10cc 10c9 0f4c | L | Execute_Immediate Equal,0x4c 10ca 7010 |p | Jump_Nonzero 0x10db 10cb 781f |x | Jump 0x10eb 10cc 00d1 | | Pop_Control Pop_Count_1 10cd e5f8 | | Load 0x2,-0x8 10ce e5f9 | | Load 0x2,-0x7 10cf e5fa | | Load 0x2,-0x6 10d0 e5fb | | Load 0x2,-0x5 10d1 e5fc | | Load 0x2,-0x4 10d2 e5fd | | Load 0x2,-0x3 10d3 e5fe | | Load 0x2,-0x2 10d4 e5ff | | Load 0x2,-0x1 10d5 e5fd | | Load 0x2,-0x3 10d6 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 10d7 e5ff | | Load 0x2,-0x1 10d8 82bd | | Call 0x1,0xbd 10d9 8344 | D | Call 0x1,0x144 10da 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 10db e5f8 | | Load 0x2,-0x8 10dc e5f9 | | Load 0x2,-0x7 10dd e5fa | | Load 0x2,-0x6 10de e5fb | | Load 0x2,-0x5 10df e5fc | | Load 0x2,-0x4 10e0 e5fe | | Load 0x2,-0x2 10e1 e5ff | | Load 0x2,-0x1 10e2 e5fd | | Load 0x2,-0x3 10e3 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 10e4 e5ff | | Load 0x2,-0x1 10e5 82bd | | Call 0x1,0xbd 10e6 8343 | C | Call 0x1,0x143 10e7 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 10e8 00d1 | | Pop_Control Pop_Count_1 10e9 e320 | | Load 0x1,0x120 10ea 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 10eb e5fe | | Load 0x2,-0x2 10ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 10ed e046 | F | Load 0x0,0x46 10ee 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 10ef 025e | ^ | Execute Discrete,Convert 10f0 1c01 | | Execute_Immediate Run_Utility,0x1 10f1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 10f2 0000 0000 | | .BLANK 0000[0x6] 10f8 ; -------------------------------------------------------------------------------------- 10f8 ; SUBPROGRAM 10f8 ; -------------------------------------------------------------------------------------- 10f8 10fb | | .CONST 0x10fb ; Address of begin 10f9 0004 | | .CONST 0x0004 ; Address of exception handler 10fa 0001 | | .CONST 0x0001 ; Number of locals 10fb BODY_10f8: 10fb INIT_10f8: 10fb e5fd | | Load 0x2,-0x3 10fc 829a | | Call 0x1,0x9a 10fd 6801 |h | Jump_Zero 0x10ff 10fe 0887 | | Execute_Immediate Raise,0x87 10ff e5fd | | Load 0x2,-0x3 1100 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1101 00d8 | | Load_Top At_Offset_0 1102 0d6c | l | Execute_Immediate Less,0x6c 1103 7013 |p | Jump_Nonzero 0x1117 1104 00d8 | | Load_Top At_Offset_0 1105 0c6d | m | Execute_Immediate Greater_Equal,0x6d 1106 700b |p | Jump_Nonzero 0x1112 1107 00d1 | | Pop_Control Pop_Count_1 1108 e5f7 | | Load 0x2,-0x9 1109 e5f8 | | Load 0x2,-0x8 110a e5f9 | | Load 0x2,-0x7 110b e5fa | | Load 0x2,-0x6 110c e5fb | | Load 0x2,-0x5 110d e5fd | | Load 0x2,-0x3 110e e5fe | | Load 0x2,-0x2 110f e5ff | | Load 0x2,-0x1 1110 835f | _ | Call 0x1,0x15f 1111 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1112 0b74 | t | Execute_Immediate Case_Compare,0x74 1113 701e |p | Jump_Nonzero 0x1132 1114 0f7c | | | Execute_Immediate Equal,0x7c 1115 701d |p | Jump_Nonzero 0x1133 1116 781e |x | Jump 0x1135 1117 0b44 | D | Execute_Immediate Case_Compare,0x44 1118 7003 |p | Jump_Nonzero 0x111c 1119 0f4c | L | Execute_Immediate Equal,0x4c 111a 700d |p | Jump_Nonzero 0x1128 111b 7819 |x | Jump 0x1135 111c 00d1 | | Pop_Control Pop_Count_1 111d e5f7 | | Load 0x2,-0x9 111e e5f8 | | Load 0x2,-0x8 111f e5f9 | | Load 0x2,-0x7 1120 e5fa | | Load 0x2,-0x6 1121 e5fb | | Load 0x2,-0x5 1122 e5fc | | Load 0x2,-0x4 1123 e5fd | | Load 0x2,-0x3 1124 e5fe | | Load 0x2,-0x2 1125 e5ff | | Load 0x2,-0x1 1126 8344 | D | Call 0x1,0x144 1127 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1128 e5f7 | | Load 0x2,-0x9 1129 e5f8 | | Load 0x2,-0x8 112a e5f9 | | Load 0x2,-0x7 112b e5fa | | Load 0x2,-0x6 112c e5fb | | Load 0x2,-0x5 112d e5fd | | Load 0x2,-0x3 112e e5fe | | Load 0x2,-0x2 112f e5ff | | Load 0x2,-0x1 1130 8343 | C | Call 0x1,0x143 1131 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1132 00d1 | | Pop_Control Pop_Count_1 1133 e320 | | Load 0x1,0x120 1134 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1135 e5fd | | Load 0x2,-0x3 1136 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1137 e046 | F | Load 0x0,0x46 1138 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 1139 025e | ^ | Execute Discrete,Convert 113a 1c01 | | Execute_Immediate Run_Utility,0x1 113b 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 113c 0000 0000 | | .BLANK 0000[0x4] 1140 ; -------------------------------------------------------------------------------------- 1140 ; SUBPROGRAM 1140 ; -------------------------------------------------------------------------------------- 1140 114f | O | .CONST 0x114f ; Address of begin 1141 0004 | | .CONST 0x0004 ; Address of exception handler 1142 0002 | | .CONST 0x0002 ; Number of locals 1143 INIT_1140: 1143 e001 | | Load 0x0,0x1 1144 1b99 | | Execute Package,Field_Read,Field_Number 0x99 1145 0322 | " | Declare_Variable Record 1146 4800 |H | Short_Literal 0x0 1147 e218 | | Load 0x1,0x18 1148 025b | [ | Execute Discrete,Check_In_Type 1149 e5fd | | Load 0x2,-0x3 114a e271 | q | Load 0x1,0x71 114b 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 114c 826c | l | Call 0x1,0x6c 114d e402 | | Load 0x2,0x2 114e 017d | } | Execute Record,Structure_Write 114f BODY_1140: 114f e5fb | | Load 0x2,-0x5 1150 0d01 | | Execute_Immediate Less,0x1 1151 6802 |h | Jump_Zero 0x1154 1152 e311 | | Load 0x1,0x111 1153 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1154 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "(" 1156 e5f8 | | Load 0x2,-0x8 1157 e5f9 | | Load 0x2,-0x7 1158 e5fa | | Load 0x2,-0x6 1159 e5fb | | Load 0x2,-0x5 115a 0aff | | Execute_Immediate Plus,-0x1 115b 00e3 | | Load_Encached Natural_Cache 115c 025b | [ | Execute Discrete,Check_In_Type 115d e5fc | | Load 0x2,-0x4 115e 4801 |H | Short_Literal 0x1 115f e402 | | Load 0x2,0x2 1160 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 1161 e5fd | | Load 0x2,-0x3 1162 e5fe | | Load 0x2,-0x2 1163 e5ff | | Load 0x2,-0x1 1164 834b | K | Call 0x1,0x14b 1165 01cc | | Execute Vector,Catenate 1166 e5f8 | | Load 0x2,-0x8 1167 e5f9 | | Load 0x2,-0x7 1168 e5fa | | Load 0x2,-0x6 1169 e5fb | | Load 0x2,-0x5 116a 0aff | | Execute_Immediate Plus,-0x1 116b 00e3 | | Load_Encached Natural_Cache 116c 025b | [ | Execute Discrete,Check_In_Type 116d e5fc | | Load 0x2,-0x4 116e e402 | | Load 0x2,0x2 116f e5fd | | Load 0x2,-0x3 1170 e5fd | | Load 0x2,-0x3 1171 e5fe | | Load 0x2,-0x2 1172 e5ff | | Load 0x2,-0x1 1173 834d | M | Call 0x1,0x14d 1174 01cc | | Execute Vector,Catenate 1175 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 1177 01cc | | Execute Vector,Catenate 1178 8327 | ' | Call 0x1,0x127 1179 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 117a 0000 0000 | | .BLANK 0000[0x6] 1180 ; -------------------------------------------------------------------------------------- 1180 ; SUBPROGRAM 1180 ; -------------------------------------------------------------------------------------- 1180 1188 | | .CONST 0x1188 ; Address of begin 1181 0004 | | .CONST 0x0004 ; Address of exception handler 1182 0002 | | .CONST 0x0002 ; Number of locals 1183 INIT_1180: 1183 e5fc | | Load 0x2,-0x4 1184 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 1185 e001 | | Load 0x0,0x1 1186 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1187 03f1 | | Declare_Variable Discrete,With_Value 1188 BODY_1180: 1188 e5ff | | Load 0x2,-0x1 1189 01db | | Execute Vector,Length 118a e5fc | | Load 0x2,-0x4 118b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 118c 027a | z | Execute Discrete,Less_Equal 118d 7001 |p | Jump_Nonzero 0x118f 118e 0887 | | Execute_Immediate Raise,0x87 118f e5fa | | Load 0x2,-0x6 1190 0d01 | | Execute_Immediate Less,0x1 1191 6802 |h | Jump_Zero 0x1194 1192 e311 | | Load 0x1,0x111 1193 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1194 00d8 | | Load_Top At_Offset_0 1195 7003 |p | Jump_Nonzero 0x1199 1196 0092 1ae7 | | Action Push_String_Extended,0x1ae7 ; "()" 1198 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1199 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "(" 119b e5f7 | | Load 0x2,-0x9 119c e5f8 | | Load 0x2,-0x8 119d e5f9 | | Load 0x2,-0x7 119e e5fa | | Load 0x2,-0x6 119f 0aff | | Execute_Immediate Plus,-0x1 11a0 00e3 | | Load_Encached Natural_Cache 11a1 025b | [ | Execute Discrete,Check_In_Type 11a2 e5fb | | Load 0x2,-0x5 11a3 4800 |H | Short_Literal 0x0 11a4 e402 | | Load 0x2,0x2 11a5 0aff | | Execute_Immediate Plus,-0x1 11a6 e001 | | Load 0x0,0x1 11a7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 11a8 025b | [ | Execute Discrete,Check_In_Type 11a9 e5fd | | Load 0x2,-0x3 11aa e5fe | | Load 0x2,-0x2 11ab e5ff | | Load 0x2,-0x1 11ac 834b | K | Call 0x1,0x14b 11ad 01cc | | Execute Vector,Catenate 11ae 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 11b0 01cc | | Execute Vector,Catenate 11b1 8327 | ' | Call 0x1,0x127 11b2 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 11b3 0000 0000 | | .BLANK 0000[0x5] 11b8 ; -------------------------------------------------------------------------------------- 11b8 ; SUBPROGRAM 11b8 ; -------------------------------------------------------------------------------------- 11b8 11c2 | | .CONST 0x11c2 ; Address of begin 11b9 0004 | | .CONST 0x0004 ; Address of exception handler 11ba 0002 | | .CONST 0x0002 ; Number of locals 11bb INIT_11b8: 11bb e001 | | Load 0x0,0x1 11bc 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 11bd 0322 | " | Declare_Variable Record 11be e5fd | | Load 0x2,-0x3 11bf 8268 | h | Call 0x1,0x68 11c0 e402 | | Load 0x2,0x2 11c1 017d | } | Execute Record,Structure_Write 11c2 BODY_11b8: 11c2 e5fd | | Load 0x2,-0x3 11c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 11c4 0b44 | D | Execute_Immediate Case_Compare,0x44 11c5 7003 |p | Jump_Nonzero 0x11c9 11c6 0f4c | L | Execute_Immediate Equal,0x4c 11c7 700d |p | Jump_Nonzero 0x11d5 11c8 0887 | | Execute_Immediate Raise,0x87 11c9 00d1 | | Pop_Control Pop_Count_1 11ca e5f8 | | Load 0x2,-0x8 11cb e5f9 | | Load 0x2,-0x7 11cc e5fa | | Load 0x2,-0x6 11cd e5fb | | Load 0x2,-0x5 11ce e5fc | | Load 0x2,-0x4 11cf e402 | | Load 0x2,0x2 11d0 e5fd | | Load 0x2,-0x3 11d1 e5fe | | Load 0x2,-0x2 11d2 e5ff | | Load 0x2,-0x1 11d3 8344 | D | Call 0x1,0x144 11d4 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 11d5 e5f8 | | Load 0x2,-0x8 11d6 e5f9 | | Load 0x2,-0x7 11d7 e5fa | | Load 0x2,-0x6 11d8 e5fb | | Load 0x2,-0x5 11d9 e5fc | | Load 0x2,-0x4 11da e5fd | | Load 0x2,-0x3 11db e5fe | | Load 0x2,-0x2 11dc e5ff | | Load 0x2,-0x1 11dd 8343 | C | Call 0x1,0x143 11de 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 11df 0000 | | .XXX[0x1] 11e0 ; -------------------------------------------------------------------------------------- 11e0 ; SUBPROGRAM 11e0 ; -------------------------------------------------------------------------------------- 11e0 11e8 | | .CONST 0x11e8 ; Address of begin 11e1 0004 | | .CONST 0x0004 ; Address of exception handler 11e2 0002 | | .CONST 0x0002 ; Number of locals 11e3 INIT_11e0: 11e3 e5fd | | Load 0x2,-0x3 11e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 11e5 e046 | F | Load 0x0,0x46 11e6 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 11e7 03f1 | | Declare_Variable Discrete,With_Value 11e8 BODY_11e0: 11e8 e5fc | | Load 0x2,-0x4 11e9 6804 |h | Jump_Zero 0x11ee 11ea e310 | | Load 0x1,0x110 11eb e315 | | Load 0x1,0x115 11ec 01cc | | Execute Vector,Catenate 11ed 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 11ee 00d8 | | Load_Top At_Offset_0 11ef 8295 | | Call 0x1,0x95 11f0 680b |h | Jump_Zero 0x11fc 11f1 4801 |H | Short_Literal 0x1 11f2 e5f7 | | Load 0x2,-0x9 11f3 e5f8 | | Load 0x2,-0x8 11f4 e5f9 | | Load 0x2,-0x7 11f5 e5fa | | Load 0x2,-0x6 11f6 e5fb | | Load 0x2,-0x5 11f7 e5fd | | Load 0x2,-0x3 11f8 e5fe | | Load 0x2,-0x2 11f9 e5ff | | Load 0x2,-0x1 11fa 833f | ? | Call 0x1,0x13f 11fb 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 11fc e310 | | Load 0x1,0x110 11fd e5f7 | | Load 0x2,-0x9 11fe e5f8 | | Load 0x2,-0x8 11ff e5f9 | | Load 0x2,-0x7 1200 e5fa | | Load 0x2,-0x6 1201 e5fb | | Load 0x2,-0x5 1202 e5fd | | Load 0x2,-0x3 1203 e5ff | | Load 0x2,-0x1 1204 827b | { | Call 0x1,0x7b 1205 833d | = | Call 0x1,0x13d 1206 01cc | | Execute Vector,Catenate 1207 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1208 ; -------------------------------------------------------------------------------------- 1208 ; SUBPROGRAM 1208 ; -------------------------------------------------------------------------------------- 1208 1219 | | .CONST 0x1219 ; Address of begin 1209 124e | N | .CONST 0x124e ; Address of exception handler 120a 0003 | | .CONST 0x0003 ; Number of locals 120b INIT_1208: 120b e001 | | Load 0x0,0x1 120c 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 120d 0322 | " | Declare_Variable Record 120e e5fd | | Load 0x2,-0x3 120f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1210 e402 | | Load 0x2,0x2 1211 017d | } | Execute Record,Structure_Write 1212 e5ff | | Load 0x2,-0x1 1213 01db | | Execute Vector,Length 1214 e5fd | | Load 0x2,-0x3 1215 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1216 027c | | | Execute Discrete,Less 1217 00e1 | | Load_Encached Boolean_Cache 1218 03f1 | | Declare_Variable Discrete,With_Value 1219 BODY_1208: 1219 e402 | | Load 0x2,0x2 121a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 121b 830d | | Call 0x1,0x10d 121c 680b |h | Jump_Zero 0x1228 121d e5f8 | | Load 0x2,-0x8 121e e5f9 | | Load 0x2,-0x7 121f e5fa | | Load 0x2,-0x6 1220 e5fb | | Load 0x2,-0x5 1221 e5fc | | Load 0x2,-0x4 1222 e403 | | Load 0x2,0x3 1223 e402 | | Load 0x2,0x2 1224 e5fe | | Load 0x2,-0x2 1225 e5ff | | Load 0x2,-0x1 1226 8346 | F | Declare_Type Array,Constrained_Incomplete,Bounds_With_Object 1227 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1228 e402 | | Load 0x2,0x2 1229 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 122a 8296 | | Call 0x1,0x96 122b 6812 |h | Jump_Zero 0x123e 122c e310 | | Load 0x1,0x110 122d e5f8 | | Load 0x2,-0x8 122e e5f9 | | Load 0x2,-0x7 122f e5fa | | Load 0x2,-0x6 1230 e5fb | | Load 0x2,-0x5 1231 e5fc | | Load 0x2,-0x4 1232 0a01 | | Execute_Immediate Plus,0x1 1233 0248 | H | Execute Discrete,Check_In_Integer 1234 e402 | | Load 0x2,0x2 1235 e5fd | | Load 0x2,-0x3 1236 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1237 e5fe | | Load 0x2,-0x2 1238 8285 | | Call 0x1,0x85 1239 e5ff | | Load 0x2,-0x1 123a 821c | | Call 0x1,0x1c 123b 8345 | E | Call 0x1,0x145 123c 01cc | | Execute Vector,Catenate 123d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 123e e310 | | Load 0x1,0x110 123f e5f8 | | Load 0x2,-0x8 1240 e5f9 | | Load 0x2,-0x7 1241 e5fa | | Load 0x2,-0x6 1242 e5fb | | Load 0x2,-0x5 1243 e5fc | | Load 0x2,-0x4 1244 0a01 | | Execute_Immediate Plus,0x1 1245 0248 | H | Execute Discrete,Check_In_Integer 1246 e402 | | Load 0x2,0x2 1247 8268 | h | Call 0x1,0x68 1248 e402 | | Load 0x2,0x2 1249 e5fe | | Load 0x2,-0x2 124a e5ff | | Load 0x2,-0x1 124b 8342 | B | Call 0x1,0x142 124c 01cc | | Execute Vector,Catenate 124d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 124e TRAP_1208: 124e 4884 |H | Short_Literal 0x84 124f 010f | | Execute Exception,Equal 1250 6804 |h | Jump_Zero 0x1255 1251 e310 | | Load 0x1,0x110 1252 e319 | | Load 0x1,0x119 1253 01cc | | Execute Vector,Catenate 1254 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1255 e310 | | Load 0x1,0x110 1256 e31a | | Load 0x1,0x11a 1257 01cc | | Execute Vector,Catenate 1258 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": " 125a 01cc | | Execute Vector,Catenate 125b e047 | G | Load 0x0,0x47 125c 180d | | Execute Package,Field_Execute,Field_Number 0xd 125d 01cc | | Execute Vector,Catenate 125e 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 125f 0000 | | .XXX[0x1] 1260 ; -------------------------------------------------------------------------------------- 1260 ; SUBPROGRAM 1260 ; -------------------------------------------------------------------------------------- 1260 1279 | y | .CONST 0x1279 ; Address of begin 1261 12d1 | | .CONST 0x12d1 ; Address of exception handler 1262 0007 | | .CONST 0x0007 ; Number of locals 1263 INIT_1260: 1263 e001 | | Load 0x0,0x1 1264 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1265 0322 | " | Declare_Variable Record 1266 e5fd | | Load 0x2,-0x3 1267 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1268 e402 | | Load 0x2,0x2 1269 017d | } | Execute Record,Structure_Write 126a e001 | | Load 0x0,0x1 126b 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 126c 0322 | " | Declare_Variable Record 126d e402 | | Load 0x2,0x2 126e 8268 | h | Call 0x1,0x68 126f e403 | | Load 0x2,0x3 1270 017d | } | Execute Record,Structure_Write 1271 e001 | | Load 0x0,0x1 1272 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 1273 e001 | | Load 0x0,0x1 1274 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3 1275 0322 | " | Declare_Variable Record 1276 e001 | | Load 0x0,0x1 1277 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 1278 00e5 | | Load_Encached Long_Integer_Cache 1279 BODY_1260: 1279 e402 | | Load 0x2,0x2 127a 829a | | Call 0x1,0x9a 127b 6811 |h | Jump_Zero 0x128d 127c e310 | | Load 0x1,0x110 127d e5f8 | | Load 0x2,-0x8 127e e5f9 | | Load 0x2,-0x7 127f e5fa | | Load 0x2,-0x6 1280 e5fb | | Load 0x2,-0x5 1281 e5fc | | Load 0x2,-0x4 1282 0a01 | | Execute_Immediate Plus,0x1 1283 0248 | H | Execute Discrete,Check_In_Integer 1284 e402 | | Load 0x2,0x2 1285 8268 | h | Call 0x1,0x68 1286 e402 | | Load 0x2,0x2 1287 e5fd | | Load 0x2,-0x3 1288 e5fe | | Load 0x2,-0x2 1289 e5ff | | Load 0x2,-0x1 128a 8340 | @ | Call 0x1,0x140 128b 01cc | | Execute Vector,Catenate 128c 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 128d e5fd | | Load 0x2,-0x3 128e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 128f 6810 |h | Jump_Zero 0x12a0 1290 e5fe | | Load 0x2,-0x2 1291 e5fd | | Load 0x2,-0x3 1292 e5ff | | Load 0x2,-0x1 1293 82b9 | | Call 0x1,0xb9 1294 e405 | | Load 0x2,0x5 1295 017d | } | Execute Record,Structure_Write 1296 e5fd | | Load 0x2,-0x3 1297 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1298 e405 | | Load 0x2,0x5 1299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 129a 0273 | s | Execute Discrete,Plus 129b c406 | | Store 0x2,0x6 129c e405 | | Load 0x2,0x5 129d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 129e a404 | | Store_Unchecked 0x2,0x4 129f 7806 |x | Jump 0x12a6 12a0 e403 | | Load 0x2,0x3 12a1 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 12a2 a404 | | Store_Unchecked 0x2,0x4 12a3 e5fd | | Load 0x2,-0x3 12a4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 12a5 a406 | | Store_Unchecked 0x2,0x6 12a6 e404 | | Load 0x2,0x4 12a7 e406 | | Load 0x2,0x6 12a8 829b | | Call 0x1,0x9b 12a9 a407 | | Store_Unchecked 0x2,0x7 12aa 00d8 | | Load_Top At_Offset_0 12ab e5ff | | Load 0x2,-0x1 12ac 01dc | | Execute Vector,Last 12ad 027a | z | Execute Discrete,Less_Equal 12ae 680d |h | Jump_Zero 0x12bc 12af e5f8 | | Load 0x2,-0x8 12b0 e5f9 | | Load 0x2,-0x7 12b1 e5fa | | Load 0x2,-0x6 12b2 e5fb | | Load 0x2,-0x5 12b3 e5fc | | Load 0x2,-0x4 12b4 e5fd | | Load 0x2,-0x3 12b5 e5fe | | Load 0x2,-0x2 12b6 e406 | | Load 0x2,0x6 12b7 e407 | | Load 0x2,0x7 12b8 e5ff | | Load 0x2,-0x1 12b9 01cf | | Execute Vector,Slice_Read 12ba 8347 | G | Call 0x1,0x147 12bb 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 12bc e5ff | | Load 0x2,-0x1 12bd 01db | | Execute Vector,Length 12be 700e |p | Jump_Nonzero 0x12cd 12bf e5f8 | | Load 0x2,-0x8 12c0 e5f9 | | Load 0x2,-0x7 12c1 e5fa | | Load 0x2,-0x6 12c2 e5fb | | Load 0x2,-0x5 12c3 e5fc | | Load 0x2,-0x4 12c4 e5fd | | Load 0x2,-0x3 12c5 e5fe | | Load 0x2,-0x2 12c6 e404 | | Load 0x2,0x4 12c7 e406 | | Load 0x2,0x6 12c8 e5fe | | Load 0x2,-0x2 12c9 8285 | | Call 0x1,0x85 12ca 82bd | | Call 0x1,0xbd 12cb 8347 | G | Call 0x1,0x147 12cc 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 12cd e310 | | Load 0x1,0x110 12ce e315 | | Load 0x1,0x115 12cf 01cc | | Execute Vector,Catenate 12d0 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 12d1 TRAP_1260: 12d1 4884 |H | Short_Literal 0x84 12d2 010f | | Execute Exception,Equal 12d3 6804 |h | Jump_Zero 0x12d8 12d4 e310 | | Load 0x1,0x110 12d5 e319 | | Load 0x1,0x119 12d6 01cc | | Execute Vector,Catenate 12d7 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 12d8 e310 | | Load 0x1,0x110 12d9 e31a | | Load 0x1,0x11a 12da 01cc | | Execute Vector,Catenate 12db 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": " 12dd 01cc | | Execute Vector,Catenate 12de e047 | G | Load 0x0,0x47 12df 180d | | Execute Package,Field_Execute,Field_Number 0xd 12e0 01cc | | Execute Vector,Catenate 12e1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 12e2 0000 0000 | | .BLANK 0000[0x6] 12e8 ; -------------------------------------------------------------------------------------- 12e8 ; SUBPROGRAM 12e8 ; -------------------------------------------------------------------------------------- 12e8 12eb | | .CONST 0x12eb ; Address of begin 12e9 0004 | | .CONST 0x0004 ; Address of exception handler 12ea 0001 | | .CONST 0x0001 ; Number of locals 12eb BODY_12e8: 12eb INIT_12e8: 12eb e5fc | | Load 0x2,-0x4 12ec 833c | < | Call 0x1,0x13c 12ed 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; "F" 12ef 01cc | | Execute Vector,Catenate 12f0 4820 |H | Short_Literal 0x20 12f1 4800 |H | Short_Literal 0x0 12f2 480a |H | Short_Literal 0xa 12f3 e5fd | | Load 0x2,-0x3 12f4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 12f5 e05b | [ | Load 0x0,0x5b 12f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 12f7 01cc | | Execute Vector,Catenate 12f8 e5f8 | | Load 0x2,-0x8 12f9 e5f9 | | Load 0x2,-0x7 12fa e5fa | | Load 0x2,-0x6 12fb e5fb | | Load 0x2,-0x5 12fc e5fc | | Load 0x2,-0x4 12fd e5fd | | Load 0x2,-0x3 12fe e5fe | | Load 0x2,-0x2 12ff e5ff | | Load 0x2,-0x1 1300 8348 | H | Call 0x1,0x148 1301 01cc | | Execute Vector,Catenate 1302 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1303 0000 0000 | | .BLANK 0000[0x5] 1308 ; -------------------------------------------------------------------------------------- 1308 ; SUBPROGRAM 1308 ; -------------------------------------------------------------------------------------- 1308 1313 | | .CONST 0x1313 ; Address of begin 1309 0004 | | .CONST 0x0004 ; Address of exception handler 130a 0002 | | .CONST 0x0002 ; Number of locals 130b INIT_1308: 130b e001 | | Load 0x0,0x1 130c 1b98 | | Execute Package,Field_Read,Field_Number 0x98 130d 0322 | " | Declare_Variable Record 130e e5fc | | Load 0x2,-0x4 130f e5fd | | Load 0x2,-0x3 1310 8269 | i | Call 0x1,0x69 1311 e402 | | Load 0x2,0x2 1312 017d | } | Execute Record,Structure_Write 1313 BODY_1308: 1313 e5fc | | Load 0x2,-0x4 1314 e402 | | Load 0x2,0x2 1315 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1316 027f | | Execute Discrete,Equal 1317 7001 |p | Jump_Nonzero 0x1319 1318 0887 | | Execute_Immediate Raise,0x87 1319 e5f7 | | Load 0x2,-0x9 131a e5f8 | | Load 0x2,-0x8 131b e5f9 | | Load 0x2,-0x7 131c e5fa | | Load 0x2,-0x6 131d e5fb | | Load 0x2,-0x5 131e e402 | | Load 0x2,0x2 131f e5fe | | Load 0x2,-0x2 1320 e5ff | | Load 0x2,-0x1 1321 8349 | I | Call 0x1,0x149 1322 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1323 0000 0000 | | .BLANK 0000[0x5] 1328 ; -------------------------------------------------------------------------------------- 1328 ; SUBPROGRAM 1328 ; -------------------------------------------------------------------------------------- 1328 132b | + | .CONST 0x132b ; Address of begin 1329 0004 | | .CONST 0x0004 ; Address of exception handler 132a 0001 | | .CONST 0x0001 ; Number of locals 132b BODY_1328: 132b INIT_1328: 132b e5fb | | Load 0x2,-0x5 132c e5fc | | Load 0x2,-0x4 132d 027d | } | Execute Discrete,Greater 132e 6802 |h | Jump_Zero 0x1331 132f 00ea | | Load_Encached Null_String_Cache 1330 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 1331 e5f6 | | Load 0x2,-0xa 1332 e5f7 | | Load 0x2,-0x9 1333 e5f8 | | Load 0x2,-0x8 1334 e5f9 | | Load 0x2,-0x7 1335 e5fa | | Load 0x2,-0x6 1336 e5fb | | Load 0x2,-0x5 1337 e5fd | | Load 0x2,-0x3 1338 e5fe | | Load 0x2,-0x2 1339 e5ff | | Load 0x2,-0x1 133a 834a | J | Call 0x1,0x14a 133b 0092 1ace | | Action Push_String_Extended,0x1ace ; ", " 133d 01cc | | Execute Vector,Catenate 133e e5f6 | | Load 0x2,-0xa 133f e5f7 | | Load 0x2,-0x9 1340 e5f8 | | Load 0x2,-0x8 1341 e5f9 | | Load 0x2,-0x7 1342 e5fa | | Load 0x2,-0x6 1343 e5fb | | Load 0x2,-0x5 1344 0a01 | | Execute_Immediate Plus,0x1 1345 e001 | | Load 0x0,0x1 1346 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1347 025b | [ | Execute Discrete,Check_In_Type 1348 e5fc | | Load 0x2,-0x4 1349 e5fd | | Load 0x2,-0x3 134a e5fe | | Load 0x2,-0x2 134b e5ff | | Load 0x2,-0x1 134c 834b | K | Call 0x1,0x14b 134d 01cc | | Execute Vector,Catenate 134e 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 134f 0000 | | .XXX[0x1] 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1363 | c | .CONST 0x1363 ; Address of begin 1351 0004 | | .CONST 0x0004 ; Address of exception handler 1352 0005 | | .CONST 0x0005 ; Number of locals 1353 INIT_1350: 1353 e5fe | | Load 0x2,-0x2 1354 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 1355 0a01 | | Execute_Immediate Plus,0x1 1356 e001 | | Load 0x0,0x1 1357 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1358 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1359 e5fe | | Load 0x2,-0x2 135a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 135b e001 | | Load 0x0,0x1 135c 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 135d 03f1 | | Declare_Variable Discrete,With_Value 135e e001 | | Load 0x0,0x1 135f 1b98 | | Execute Package,Field_Read,Field_Number 0x98 1360 0322 | " | Declare_Variable Record 1361 e001 | | Load 0x0,0x1 1362 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1363 BODY_1350: 1363 00cf | | Action Mark_Auxiliary 1364 e403 | | Load 0x2,0x3 1365 4801 |H | Short_Literal 0x1 1366 0263 | c | Execute Discrete,Above_Bound 1367 701a |p | Jump_Nonzero 0x1382 1368 00d8 | | Load_Top At_Offset_0 1369 e5fd | | Load 0x2,-0x3 136a 027f | | Execute Discrete,Equal 136b 6802 |h | Jump_Zero 0x136e 136c e402 | | Load 0x2,0x2 136d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 136e e402 | | Load 0x2,0x2 136f e5ff | | Load 0x2,-0x1 1370 8269 | i | Call 0x1,0x69 1371 e404 | | Load 0x2,0x4 1372 017d | } | Execute Record,Structure_Write 1373 e404 | | Load 0x2,0x4 1374 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1375 e408 | | Load 0x2,0x8 1376 027f | | Execute Discrete,Equal 1377 7001 |p | Jump_Nonzero 0x1379 1378 0887 | | Execute_Immediate Raise,0x87 1379 e404 | | Load 0x2,0x4 137a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 137b a405 | | Store_Unchecked 0x2,0x5 137c e402 | | Load 0x2,0x2 137d e405 | | Load 0x2,0x5 137e 0273 | s | Execute Discrete,Plus 137f c402 | | Store 0x2,0x2 1380 00c8 | | Action Pop_Auxiliary_Range 1381 3fe6 |? | Loop_Increasing 0x1368 1382 00ce | | Action Pop_Auxiliary 1383 4800 |H | Short_Literal 0x0 1384 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1385 0000 0000 | | .XXX[0x3] 1387 0000 | | 1388 ; -------------------------------------------------------------------------------------- 1388 ; SUBPROGRAM 1388 ; -------------------------------------------------------------------------------------- 1388 1392 | | .CONST 0x1392 ; Address of begin 1389 0004 | | .CONST 0x0004 ; Address of exception handler 138a 0004 | | .CONST 0x0004 ; Number of locals 138b INIT_1388: 138b e001 | | Load 0x0,0x1 138c 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 138d e001 | | Load 0x0,0x1 138e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 138f e001 | | Load 0x0,0x1 1390 1b98 | | Execute Package,Field_Read,Field_Number 0x98 1391 0322 | " | Declare_Variable Record 1392 BODY_1388: 1392 e5ff | | Load 0x2,-0x1 1393 01db | | Execute Vector,Length 1394 e2a6 | | Load 0x1,0xa6 1395 027a | z | Execute Discrete,Less_Equal 1396 6804 |h | Jump_Zero 0x139b 1397 e5fe | | Load 0x2,-0x2 1398 82af | | Call 0x1,0xaf 1399 a402 | | Store_Unchecked 0x2,0x2 139a 7803 |x | Jump 0x139e 139b e5ff | | Load 0x2,-0x1 139c 82ad | | Call 0x1,0xad 139d a402 | | Store_Unchecked 0x2,0x2 139e e5fb | | Load 0x2,-0x5 139f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 13a0 6803 |h | Jump_Zero 0x13a4 13a1 e402 | | Load 0x2,0x2 13a2 0fff | | Execute_Immediate Equal,-0x1 13a3 6802 |h | Jump_Zero 0x13a6 13a4 00ea | | Load_Encached Null_String_Cache 13a5 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 13a6 e5fb | | Load 0x2,-0x5 13a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 13a8 6804 |h | Jump_Zero 0x13ad 13a9 e5fb | | Load 0x2,-0x5 13aa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 13ab a403 | | Store_Unchecked 0x2,0x3 13ac 7805 |x | Jump 0x13b2 13ad e402 | | Load 0x2,0x2 13ae e5fb | | Load 0x2,-0x5 13af e5fc | | Load 0x2,-0x4 13b0 834c | L | Call 0x1,0x14c 13b1 a403 | | Store_Unchecked 0x2,0x3 13b2 e403 | | Load 0x2,0x3 13b3 7002 |p | Jump_Nonzero 0x13b6 13b4 00ea | | Load_Encached Null_String_Cache 13b5 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 13b6 e403 | | Load 0x2,0x3 13b7 e5fc | | Load 0x2,-0x4 13b8 8269 | i | Call 0x1,0x69 13b9 e404 | | Load 0x2,0x4 13ba 017d | } | Execute Record,Structure_Write 13bb e5f6 | | Load 0x2,-0xa 13bc e5f7 | | Load 0x2,-0x9 13bd e5f8 | | Load 0x2,-0x8 13be e5f9 | | Load 0x2,-0x7 13bf e5fa | | Load 0x2,-0x6 13c0 e404 | | Load 0x2,0x4 13c1 e403 | | Load 0x2,0x3 13c2 e5fc | | Load 0x2,-0x4 13c3 e5fd | | Load 0x2,-0x3 13c4 e5fe | | Load 0x2,-0x2 13c5 e5ff | | Load 0x2,-0x1 13c6 8350 | P | Call 0x1,0x150 13c7 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 13c8 ; -------------------------------------------------------------------------------------- 13c8 ; SUBPROGRAM 13c8 ; -------------------------------------------------------------------------------------- 13c8 13cb | | .CONST 0x13cb ; Address of begin 13c9 0004 | | .CONST 0x0004 ; Address of exception handler 13ca 0001 | | .CONST 0x0001 ; Number of locals 13cb BODY_13c8: 13cb INIT_13c8: 13cb e5ff | | Load 0x2,-0x1 13cc e5f5 | | Load 0x2,-0xb 13cd e5f6 | | Load 0x2,-0xa 13ce e5f7 | | Load 0x2,-0x9 13cf e5f8 | | Load 0x2,-0x8 13d0 e5f9 | | Load 0x2,-0x7 13d1 0a01 | | Execute_Immediate Plus,0x1 13d2 0248 | H | Execute Discrete,Check_In_Integer 13d3 4801 |H | Short_Literal 0x1 13d4 e5fa | | Load 0x2,-0x6 13d5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 13d6 e5fb | | Load 0x2,-0x5 13d7 e5fd | | Load 0x2,-0x3 13d8 e5fe | | Load 0x2,-0x2 13d9 834b | K | Call 0x1,0x14b 13da 01cc | | Execute Vector,Catenate 13db e5f5 | | Load 0x2,-0xb 13dc e5f6 | | Load 0x2,-0xa 13dd e5f7 | | Load 0x2,-0x9 13de e5f8 | | Load 0x2,-0x8 13df e5f9 | | Load 0x2,-0x7 13e0 0a01 | | Execute_Immediate Plus,0x1 13e1 0248 | H | Execute Discrete,Check_In_Integer 13e2 e5fa | | Load 0x2,-0x6 13e3 e5fb | | Load 0x2,-0x5 13e4 e5fc | | Load 0x2,-0x4 13e5 e5fd | | Load 0x2,-0x3 13e6 e5fe | | Load 0x2,-0x2 13e7 834d | M | Call 0x1,0x14d 13e8 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 13ea 01cc | | Execute Vector,Catenate 13eb 8327 | ' | Call 0x1,0x127 13ec 01cc | | Execute Vector,Catenate 13ed 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 13ee 0000 0000 | | .XXX[0x2] 13f0 ; -------------------------------------------------------------------------------------- 13f0 ; SUBPROGRAM 13f0 ; -------------------------------------------------------------------------------------- 13f0 141d | | .CONST 0x141d ; Address of begin 13f1 0004 | | .CONST 0x0004 ; Address of exception handler 13f2 0007 | | .CONST 0x0007 ; Number of locals 13f3 INIT_13f0: 13f3 e001 | | Load 0x0,0x1 13f4 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 13f5 0322 | " | Declare_Variable Record 13f6 e5fc | | Load 0x2,-0x4 13f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 13f8 e402 | | Load 0x2,0x2 13f9 017d | } | Execute Record,Structure_Write 13fa e001 | | Load 0x0,0x1 13fb 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3 13fc 0322 | " | Declare_Variable Record 13fd e5fc | | Load 0x2,-0x4 13fe 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 13ff e5ff | | Load 0x2,-0x1 1400 82b7 | | Call 0x1,0xb7 1401 e403 | | Load 0x2,0x3 1402 017d | } | Execute Record,Structure_Write 1403 00d8 | | Load_Top At_Offset_0 1404 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1405 e5fc | | Load 0x2,-0x4 1406 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1407 0273 | s | Execute Discrete,Plus 1408 00e5 | | Load_Encached Long_Integer_Cache 1409 03f1 | | Declare_Variable Discrete,With_Value 140a 00d8 | | Load_Top At_Offset_0 140b e403 | | Load 0x2,0x3 140c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 140d 0273 | s | Execute Discrete,Plus 140e 0aff | | Execute_Immediate Plus,-0x1 140f 00e5 | | Load_Encached Long_Integer_Cache 1410 03f1 | | Declare_Variable Discrete,With_Value 1411 e404 | | Load 0x2,0x4 1412 e5fe | | Load 0x2,-0x2 1413 8285 | | Call 0x1,0x85 1414 e048 | H | Load 0x0,0x48 1415 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1416 03f1 | | Declare_Variable Discrete,With_Value 1417 e5fa | | Load 0x2,-0x6 1418 833c | < | Call 0x1,0x13c 1419 0092 1ae9 | | Action Push_String_Extended,0x1ae9 ; "Anon_Inner_Rec => (" 141b 01cc | | Execute Vector,Catenate 141c 0007 | | Action Break_Optional 141d BODY_13f0: 141d e402 | | Load 0x2,0x2 141e 8298 | | Call 0x1,0x98 141f 680d |h | Jump_Zero 0x142d 1420 e5f6 | | Load 0x2,-0xa 1421 e5f7 | | Load 0x2,-0x9 1422 e5f8 | | Load 0x2,-0x8 1423 e5f9 | | Load 0x2,-0x7 1424 e5fa | | Load 0x2,-0x6 1425 e5fb | | Load 0x2,-0x5 1426 e402 | | Load 0x2,0x2 1427 e5fd | | Load 0x2,-0x3 1428 e406 | | Load 0x2,0x6 1429 e21b | | Load 0x1,0x1b 142a e407 | | Load 0x2,0x7 142b 834e | N | Call 0x1,0x14e 142c 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 142d e405 | | Load 0x2,0x5 142e e5ff | | Load 0x2,-0x1 142f 01dc | | Execute Vector,Last 1430 027a | z | Execute Discrete,Less_Equal 1431 6811 |h | Jump_Zero 0x1443 1432 e5f6 | | Load 0x2,-0xa 1433 e5f7 | | Load 0x2,-0x9 1434 e5f8 | | Load 0x2,-0x8 1435 e5f9 | | Load 0x2,-0x7 1436 e5fa | | Load 0x2,-0x6 1437 e5fb | | Load 0x2,-0x5 1438 e402 | | Load 0x2,0x2 1439 e5fd | | Load 0x2,-0x3 143a e406 | | Load 0x2,0x6 143b e404 | | Load 0x2,0x4 143c e405 | | Load 0x2,0x5 143d e5ff | | Load 0x2,-0x1 143e 01cf | | Execute Vector,Slice_Read 143f 821c | | Call 0x1,0x1c 1440 e407 | | Load 0x2,0x7 1441 834e | N | Call 0x1,0x14e 1442 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 1443 e5f6 | | Load 0x2,-0xa 1444 e5f7 | | Load 0x2,-0x9 1445 e5f8 | | Load 0x2,-0x8 1446 e5f9 | | Load 0x2,-0x7 1447 e5fa | | Load 0x2,-0x6 1448 e5fb | | Load 0x2,-0x5 1449 e402 | | Load 0x2,0x2 144a e5fd | | Load 0x2,-0x3 144b e406 | | Load 0x2,0x6 144c e403 | | Load 0x2,0x3 144d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 144e e406 | | Load 0x2,0x6 144f 82bd | | Call 0x1,0xbd 1450 e407 | | Load 0x2,0x7 1451 834e | N | Call 0x1,0x14e 1452 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 1453 0000 0000 | | .BLANK 0000[0x5] 1458 ; -------------------------------------------------------------------------------------- 1458 ; SUBPROGRAM 1458 ; -------------------------------------------------------------------------------------- 1458 1465 | e | .CONST 0x1465 ; Address of begin 1459 0004 | | .CONST 0x0004 ; Address of exception handler 145a 0004 | | .CONST 0x0004 ; Number of locals 145b INIT_1458: 145b e5fa | | Load 0x2,-0x6 145c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 145d e001 | | Load 0x0,0x1 145e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 145f 03f1 | | Declare_Variable Discrete,With_Value 1460 e001 | | Load 0x0,0x1 1461 1b99 | | Execute Package,Field_Read,Field_Number 0x99 1462 0322 | " | Declare_Variable Record 1463 00e1 | | Load_Encached Boolean_Cache 1464 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1465 BODY_1458: 1465 e5fa | | Load 0x2,-0x6 1466 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1467 6813 |h | Jump_Zero 0x147b 1468 e5fa | | Load 0x2,-0x6 1469 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 146a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 146b 0f4c | L | Execute_Immediate Equal,0x4c 146c 680e |h | Jump_Zero 0x147b 146d 4800 |H | Short_Literal 0x0 146e e218 | | Load 0x1,0x18 146f 025b | [ | Execute Discrete,Check_In_Type 1470 e5fa | | Load 0x2,-0x6 1471 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1472 e271 | q | Load 0x1,0x71 1473 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 1474 826c | l | Call 0x1,0x6c 1475 e403 | | Load 0x2,0x3 1476 017d | } | Execute Record,Structure_Write 1477 e403 | | Load 0x2,0x3 1478 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 1479 0f00 | | Execute_Immediate Equal,0x0 147a a404 | | Store_Unchecked 0x2,0x4 147b 00d8 | | Load_Top At_Offset_0 147c 6810 |h | Jump_Zero 0x148d 147d e402 | | Load 0x2,0x2 147e 0f01 | | Execute_Immediate Equal,0x1 147f 7001 |p | Jump_Nonzero 0x1481 1480 0887 | | Execute_Immediate Raise,0x87 1481 e5f5 | | Load 0x2,-0xb 1482 e5f6 | | Load 0x2,-0xa 1483 e5f7 | | Load 0x2,-0x9 1484 e5f8 | | Load 0x2,-0x8 1485 e5f9 | | Load 0x2,-0x7 1486 e403 | | Load 0x2,0x3 1487 e5fa | | Load 0x2,-0x6 1488 e5fd | | Load 0x2,-0x3 1489 e5fe | | Load 0x2,-0x2 148a e5ff | | Load 0x2,-0x1 148b 834f | O | Call 0x1,0x14f 148c 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 148d e402 | | Load 0x2,0x2 148e 0c01 | | Execute_Immediate Greater_Equal,0x1 148f 7001 |p | Jump_Nonzero 0x1491 1490 0887 | | Execute_Immediate Raise,0x87 1491 e5f5 | | Load 0x2,-0xb 1492 e5f6 | | Load 0x2,-0xa 1493 e5f7 | | Load 0x2,-0x9 1494 e5f8 | | Load 0x2,-0x8 1495 e5f9 | | Load 0x2,-0x7 1496 e5fb | | Load 0x2,-0x5 1497 e5fb | | Load 0x2,-0x5 1498 e402 | | Load 0x2,0x2 1499 0273 | s | Execute Discrete,Plus 149a 0aff | | Execute_Immediate Plus,-0x1 149b e001 | | Load 0x0,0x1 149c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 149d 025b | [ | Execute Discrete,Check_In_Type 149e e5fc | | Load 0x2,-0x4 149f e5fe | | Load 0x2,-0x2 14a0 e5ff | | Load 0x2,-0x1 14a1 834b | K | Call 0x1,0x14b 14a2 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 14a3 0000 0000 | | .BLANK 0000[0x5] 14a8 ; -------------------------------------------------------------------------------------- 14a8 ; SUBPROGRAM 14a8 ; -------------------------------------------------------------------------------------- 14a8 14ab | | .CONST 0x14ab ; Address of begin 14a9 0004 | | .CONST 0x0004 ; Address of exception handler 14aa 0001 | | .CONST 0x0001 ; Number of locals 14ab BODY_14a8: 14ab INIT_14a8: 14ab 4820 |H | Short_Literal 0x20 14ac 4800 |H | Short_Literal 0x0 14ad 480a |H | Short_Literal 0xa 14ae e5ff | | Load 0x2,-0x1 14af e05b | [ | Load 0x0,0x5b 14b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 14b1 e312 | | Load 0x1,0x112 14b2 01cc | | Execute Vector,Catenate 14b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 14b4 0000 0000 | | .BLANK 0000[0x4] 14b8 ; -------------------------------------------------------------------------------------- 14b8 ; SUBPROGRAM 14b8 ; -------------------------------------------------------------------------------------- 14b8 14c0 | | .CONST 0x14c0 ; Address of begin 14b9 0004 | | .CONST 0x0004 ; Address of exception handler 14ba 0002 | | .CONST 0x0002 ; Number of locals 14bb INIT_14b8: 14bb e5fe | | Load 0x2,-0x2 14bc e5fd | | Load 0x2,-0x3 14bd 0272 | r | Execute Discrete,Minus 14be 00e5 | | Load_Encached Long_Integer_Cache 14bf 03f1 | | Declare_Variable Discrete,With_Value 14c0 BODY_14b8: 14c0 e5ff | | Load 0x2,-0x1 14c1 6809 |h | Jump_Zero 0x14cb 14c2 e5fd | | Load 0x2,-0x3 14c3 8351 | Q | Call 0x1,0x151 14c4 00ea | | Load_Encached Null_String_Cache 14c5 e402 | | Load 0x2,0x2 14c6 0c02 | | Execute_Immediate Greater_Equal,0x2 14c7 e313 | | Load 0x1,0x113 14c8 8321 | ! | Call 0x1,0x121 14c9 01cc | | Execute Vector,Catenate 14ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 14cb 00ea | | Load_Encached Null_String_Cache 14cc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 14cd 0000 0000 | | .XXX[0x3] 14cf 0000 | | 14d0 ; -------------------------------------------------------------------------------------- 14d0 ; SUBPROGRAM 14d0 ; -------------------------------------------------------------------------------------- 14d0 14d8 | | .CONST 0x14d8 ; Address of begin 14d1 0004 | | .CONST 0x0004 ; Address of exception handler 14d2 0002 | | .CONST 0x0002 ; Number of locals 14d3 INIT_14d0: 14d3 e5fd | | Load 0x2,-0x3 14d4 e5fe | | Load 0x2,-0x2 14d5 0272 | r | Execute Discrete,Minus 14d6 00e5 | | Load_Encached Long_Integer_Cache 14d7 03f1 | | Declare_Variable Discrete,With_Value 14d8 BODY_14d0: 14d8 e5ff | | Load 0x2,-0x1 14d9 6811 |h | Jump_Zero 0x14eb 14da 00d8 | | Load_Top At_Offset_0 14db 0c02 | | Execute_Immediate Greater_Equal,0x2 14dc 6808 |h | Jump_Zero 0x14e5 14dd 0092 1ace | | Action Push_String_Extended,0x1ace ; ", " 14df e313 | | Load 0x1,0x113 14e0 01cc | | Execute Vector,Catenate 14e1 e5fd | | Load 0x2,-0x3 14e2 8351 | Q | Call 0x1,0x151 14e3 01cc | | Execute Vector,Catenate 14e4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 14e5 0092 1ace | | Action Push_String_Extended,0x1ace ; ", " 14e7 e5fd | | Load 0x2,-0x3 14e8 8351 | Q | Call 0x1,0x151 14e9 01cc | | Execute Vector,Catenate 14ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 14eb 00ea | | Load_Encached Null_String_Cache 14ec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 14ed 0000 0000 | | .XXX[0x3] 14ef 0000 | | 14f0 ; -------------------------------------------------------------------------------------- 14f0 ; SUBPROGRAM 14f0 ; -------------------------------------------------------------------------------------- 14f0 14f9 | | .CONST 0x14f9 ; Address of begin 14f1 0004 | | .CONST 0x0004 ; Address of exception handler 14f2 0002 | | .CONST 0x0002 ; Number of locals 14f3 INIT_14f0: 14f3 e5fe | | Load 0x2,-0x2 14f4 e5ff | | Load 0x2,-0x1 14f5 0272 | r | Execute Discrete,Minus 14f6 0a01 | | Execute_Immediate Plus,0x1 14f7 00e5 | | Load_Encached Long_Integer_Cache 14f8 03f1 | | Declare_Variable Discrete,With_Value 14f9 BODY_14f0: 14f9 00d8 | | Load_Top At_Offset_0 14fa 0b01 | | Execute_Immediate Case_Compare,0x1 14fb 700a |p | Jump_Nonzero 0x1506 14fc 0f02 | | Execute_Immediate Equal,0x2 14fd 700c |p | Jump_Nonzero 0x150a 14fe e5ff | | Load 0x2,-0x1 14ff 8351 | Q | Call 0x1,0x151 1500 e313 | | Load 0x1,0x113 1501 01cc | | Execute Vector,Catenate 1502 e5fe | | Load 0x2,-0x2 1503 8351 | Q | Call 0x1,0x151 1504 01cc | | Execute Vector,Catenate 1505 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1506 00d1 | | Pop_Control Pop_Count_1 1507 e5ff | | Load 0x2,-0x1 1508 8351 | Q | Call 0x1,0x151 1509 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 150a e5ff | | Load 0x2,-0x1 150b 8351 | Q | Call 0x1,0x151 150c e5fe | | Load 0x2,-0x2 150d 8351 | Q | Call 0x1,0x151 150e 01cc | | Execute Vector,Catenate 150f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1510 ; -------------------------------------------------------------------------------------- 1510 ; SUBPROGRAM 1510 ; -------------------------------------------------------------------------------------- 1510 1521 | ! | .CONST 0x1521 ; Address of begin 1511 1558 | X | .CONST 0x1558 ; Address of exception handler 1512 0005 | | .CONST 0x0005 ; Number of locals 1513 INIT_1510: 1513 e5fd | | Load 0x2,-0x3 1514 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1515 e046 | F | Load 0x0,0x46 1516 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 1517 03f1 | | Declare_Variable Discrete,With_Value 1518 e001 | | Load 0x0,0x1 1519 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 151a e001 | | Load 0x0,0x1 151b 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 151c 0322 | " | Declare_Variable Record 151d e402 | | Load 0x2,0x2 151e 8295 | | Call 0x1,0x95 151f 00e1 | | Load_Encached Boolean_Cache 1520 03f1 | | Declare_Variable Discrete,With_Value 1521 BODY_1510: 1521 e5ff | | Load 0x2,-0x1 1522 01db | | Execute Vector,Length 1523 7004 |p | Jump_Nonzero 0x1528 1524 e310 | | Load 0x1,0x110 1525 e316 | | Load 0x1,0x116 1526 01cc | | Execute Vector,Catenate 1527 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1528 e402 | | Load 0x2,0x2 1529 830d | | Call 0x1,0x10d 152a 681b |h | Jump_Zero 0x1546 152b 00d8 | | Load_Top At_Offset_0 152c 680b |h | Jump_Zero 0x1538 152d 4801 |H | Short_Literal 0x1 152e e5f8 | | Load 0x2,-0x8 152f e5f9 | | Load 0x2,-0x7 1530 e5fa | | Load 0x2,-0x6 1531 e5fb | | Load 0x2,-0x5 1532 e5fc | | Load 0x2,-0x4 1533 e5fd | | Load 0x2,-0x3 1534 e5fe | | Load 0x2,-0x2 1535 e5ff | | Load 0x2,-0x1 1536 833f | ? | Call 0x1,0x13f 1537 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1538 e5ff | | Load 0x2,-0x1 1539 827b | { | Call 0x1,0x7b 153a a403 | | Store_Unchecked 0x2,0x3 153b e310 | | Load 0x1,0x110 153c e5f8 | | Load 0x2,-0x8 153d e5f9 | | Load 0x2,-0x7 153e e5fa | | Load 0x2,-0x6 153f e5fb | | Load 0x2,-0x5 1540 e5fc | | Load 0x2,-0x4 1541 e5fd | | Load 0x2,-0x3 1542 e403 | | Load 0x2,0x3 1543 833d | = | Call 0x1,0x13d 1544 01cc | | Execute Vector,Catenate 1545 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1546 e5fd | | Load 0x2,-0x3 1547 8268 | h | Call 0x1,0x68 1548 e404 | | Load 0x2,0x4 1549 017d | } | Execute Record,Structure_Write 154a e310 | | Load 0x1,0x110 154b e5f8 | | Load 0x2,-0x8 154c e5f9 | | Load 0x2,-0x7 154d e5fa | | Load 0x2,-0x6 154e e5fb | | Load 0x2,-0x5 154f e5fc | | Load 0x2,-0x4 1550 e404 | | Load 0x2,0x4 1551 e5fd | | Load 0x2,-0x3 1552 e5fe | | Load 0x2,-0x2 1553 e5ff | | Load 0x2,-0x1 1554 821c | | Call 0x1,0x1c 1555 8342 | B | Call 0x1,0x142 1556 01cc | | Execute Vector,Catenate 1557 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1558 TRAP_1510: 1558 4884 |H | Short_Literal 0x84 1559 010f | | Execute Exception,Equal 155a 6804 |h | Jump_Zero 0x155f 155b e310 | | Load 0x1,0x110 155c e31b | | Load 0x1,0x11b 155d 01cc | | Execute Vector,Catenate 155e 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 155f e310 | | Load 0x1,0x110 1560 e31c | | Load 0x1,0x11c 1561 01cc | | Execute Vector,Catenate 1562 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": " 1564 01cc | | Execute Vector,Catenate 1565 e047 | G | Load 0x0,0x47 1566 180d | | Execute Package,Field_Execute,Field_Number 0xd 1567 01cc | | Execute Vector,Catenate 1568 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1569 0000 0000 | | .BLANK 0000[0x7] 1570 ; -------------------------------------------------------------------------------------- 1570 ; SUBPROGRAM 1570 ; -------------------------------------------------------------------------------------- 1570 1573 | s | .CONST 0x1573 ; Address of begin 1571 0004 | | .CONST 0x0004 ; Address of exception handler 1572 0001 | | .CONST 0x0001 ; Number of locals 1573 BODY_1570: 1573 INIT_1570: 1573 4820 |H | Short_Literal 0x20 1574 4800 |H | Short_Literal 0x0 1575 480a |H | Short_Literal 0xa 1576 e5fc | | Load 0x2,-0x4 1577 e05b | [ | Load 0x0,0x5b 1578 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1579 e5f7 | | Load 0x2,-0x9 157a e5f8 | | Load 0x2,-0x8 157b e5f9 | | Load 0x2,-0x7 157c e5fa | | Load 0x2,-0x6 157d e5fb | | Load 0x2,-0x5 157e e5fd | | Load 0x2,-0x3 157f e5fe | | Load 0x2,-0x2 1580 e5ff | | Load 0x2,-0x1 1581 8355 | U | Call 0x1,0x155 1582 01cc | | Execute Vector,Catenate 1583 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 1584 0000 0000 | | .BLANK 0000[0x4] 1588 ; -------------------------------------------------------------------------------------- 1588 ; SUBPROGRAM 1588 ; -------------------------------------------------------------------------------------- 1588 1591 | | .CONST 0x1591 ; Address of begin 1589 0004 | | .CONST 0x0004 ; Address of exception handler 158a 0002 | | .CONST 0x0002 ; Number of locals 158b INIT_1588: 158b e5fe | | Load 0x2,-0x2 158c e5fd | | Load 0x2,-0x3 158d 0273 | s | Execute Discrete,Plus 158e 0aff | | Execute_Immediate Plus,-0x1 158f 00e5 | | Load_Encached Long_Integer_Cache 1590 03f1 | | Declare_Variable Discrete,With_Value 1591 BODY_1588: 1591 00d8 | | Load_Top At_Offset_0 1592 e5ff | | Load 0x2,-0x1 1593 01dc | | Execute Vector,Last 1594 027a | z | Execute Discrete,Less_Equal 1595 6805 |h | Jump_Zero 0x159b 1596 e5fe | | Load 0x2,-0x2 1597 e402 | | Load 0x2,0x2 1598 e5ff | | Load 0x2,-0x1 1599 01cf | | Execute Vector,Slice_Read 159a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 159b e21b | | Load 0x1,0x1b 159c 0335 | 5 | Declare_Variable Array,Duplicate 159d 00cd | | Action Spare6_Action 159e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 159f 0000 | | .XXX[0x1] 15a0 ; -------------------------------------------------------------------------------------- 15a0 ; SUBPROGRAM 15a0 ; -------------------------------------------------------------------------------------- 15a0 15a3 | | .CONST 0x15a3 ; Address of begin 15a1 0004 | | .CONST 0x0004 ; Address of exception handler 15a2 0001 | | .CONST 0x0001 ; Number of locals 15a3 BODY_15a0: 15a3 INIT_15a0: 15a3 e5fa | | Load 0x2,-0x6 15a4 e5f9 | | Load 0x2,-0x7 15a5 027b | { | Execute Discrete,Greater_Equal 15a6 6810 |h | Jump_Zero 0x15b7 15a7 e5f4 | | Load 0x2,-0xc 15a8 e5f5 | | Load 0x2,-0xb 15a9 e5f6 | | Load 0x2,-0xa 15aa e5f7 | | Load 0x2,-0x9 15ab e5f8 | | Load 0x2,-0x8 15ac e5fa | | Load 0x2,-0x6 15ad e5fc | | Load 0x2,-0x4 15ae e5fd | | Load 0x2,-0x3 15af e5fe | | Load 0x2,-0x2 15b0 8285 | | Call 0x1,0x85 15b1 e5fb | | Load 0x2,-0x5 15b2 e5fd | | Load 0x2,-0x3 15b3 e5ff | | Load 0x2,-0x1 15b4 8357 | W | Call 0x1,0x157 15b5 8356 | V | Call 0x1,0x156 15b6 440c |D | Exit_Subprogram With_Value,New_Top_Offset 0xc 15b7 e5f4 | | Load 0x2,-0xc 15b8 e5f5 | | Load 0x2,-0xb 15b9 e5f6 | | Load 0x2,-0xa 15ba e5f7 | | Load 0x2,-0x9 15bb e5f8 | | Load 0x2,-0x8 15bc e5fa | | Load 0x2,-0x6 15bd e5fc | | Load 0x2,-0x4 15be e5fd | | Load 0x2,-0x3 15bf e5fe | | Load 0x2,-0x2 15c0 8285 | | Call 0x1,0x85 15c1 e5fb | | Load 0x2,-0x5 15c2 e5fd | | Load 0x2,-0x3 15c3 e5ff | | Load 0x2,-0x1 15c4 8357 | W | Call 0x1,0x157 15c5 8356 | V | Call 0x1,0x156 15c6 0092 1ace | | Action Push_String_Extended,0x1ace ; ", " 15c8 01cc | | Execute Vector,Catenate 15c9 e5f4 | | Load 0x2,-0xc 15ca e5f5 | | Load 0x2,-0xb 15cb e5f6 | | Load 0x2,-0xa 15cc e5f7 | | Load 0x2,-0x9 15cd e5f8 | | Load 0x2,-0x8 15ce e5f9 | | Load 0x2,-0x7 15cf e5fa | | Load 0x2,-0x6 15d0 0a01 | | Execute_Immediate Plus,0x1 15d1 e5fb | | Load 0x2,-0x5 15d2 e5fc | | Load 0x2,-0x4 15d3 e5fd | | Load 0x2,-0x3 15d4 e5fb | | Load 0x2,-0x5 15d5 0273 | s | Execute Discrete,Plus 15d6 e5fe | | Load 0x2,-0x2 15d7 e5ff | | Load 0x2,-0x1 15d8 8358 | X | Call 0x1,0x158 15d9 01cc | | Execute Vector,Catenate 15da 440c |D | Exit_Subprogram With_Value,New_Top_Offset 0xc 15db 0000 0000 | | .BLANK 0000[0x5] 15e0 ; -------------------------------------------------------------------------------------- 15e0 ; SUBPROGRAM 15e0 ; -------------------------------------------------------------------------------------- 15e0 15e4 | | .CONST 0x15e4 ; Address of begin 15e1 0004 | | .CONST 0x0004 ; Address of exception handler 15e2 0002 | | .CONST 0x0002 ; Number of locals 15e3 INIT_15e0: 15e3 00e8 | | Load_Encached Character_Cache 15e4 BODY_15e0: 15e4 e5ff | | Load 0x2,-0x1 15e5 8283 | | Call 0x1,0x83 15e6 a402 | | Store_Unchecked 0x2,0x2 15e7 00d8 | | Load_Top At_Offset_0 15e8 0f22 | " | Execute_Immediate Equal,0x22 15e9 6803 |h | Jump_Zero 0x15ed 15ea 0092 1aea | | Action Push_String_Extended,0x1aea ; "\x22\x22" 15ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 15ed 00d8 | | Load_Top At_Offset_0 15ee 00ea | | Load_Encached Null_String_Cache 15ef 01ca | | Execute Vector,Prepend 15f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 15f1 0000 0000 | | .BLANK 0000[0x7] 15f8 ; -------------------------------------------------------------------------------------- 15f8 ; SUBPROGRAM 15f8 ; -------------------------------------------------------------------------------------- 15f8 15fb | | .CONST 0x15fb ; Address of begin 15f9 0004 | | .CONST 0x0004 ; Address of exception handler 15fa 0001 | | .CONST 0x0001 ; Number of locals 15fb BODY_15f8: 15fb INIT_15f8: 15fb e5ff | | Load 0x2,-0x1 15fc 01db | | Execute Vector,Length 15fd 0d08 | | Execute_Immediate Less,0x8 15fe 6802 |h | Jump_Zero 0x1601 15ff 00ea | | Load_Encached Null_String_Cache 1600 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1601 e5ff | | Load 0x2,-0x1 1602 01dd | | Execute Vector,First 1603 e5ff | | Load 0x2,-0x1 1604 01dd | | Execute Vector,First 1605 0a08 | | Execute_Immediate Plus,0x8 1606 0aff | | Execute_Immediate Plus,-0x1 1607 e5ff | | Load 0x2,-0x1 1608 01cf | | Execute Vector,Slice_Read 1609 8359 | Y | Call 0x1,0x159 160a e5ff | | Load 0x2,-0x1 160b 01dd | | Execute Vector,First 160c 0a08 | | Execute_Immediate Plus,0x8 160d e5ff | | Load 0x2,-0x1 160e 01dc | | Execute Vector,Last 160f e5ff | | Load 0x2,-0x1 1610 01cf | | Execute Vector,Slice_Read 1611 835a | Z | Call 0x1,0x15a 1612 01cc | | Execute Vector,Catenate 1613 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1614 0000 0000 | | .BLANK 0000[0x4] 1618 ; -------------------------------------------------------------------------------------- 1618 ; SUBPROGRAM 1618 ; -------------------------------------------------------------------------------------- 1618 161b | | .CONST 0x161b ; Address of begin 1619 0004 | | .CONST 0x0004 ; Address of exception handler 161a 0001 | | .CONST 0x0001 ; Number of locals 161b BODY_1618: 161b INIT_1618: 161b e5ff | | Load 0x2,-0x1 161c 01db | | Execute Vector,Length 161d 0c08 | | Execute_Immediate Greater_Equal,0x8 161e 6811 |h | Jump_Zero 0x1630 161f 4822 |H" | Short_Literal 0x22 1620 4822 |H" | Short_Literal 0x22 1621 00ea | | Load_Encached Null_String_Cache 1622 e5fe | | Load 0x2,-0x2 1623 e311 | | Load 0x1,0x111 1624 8321 | ! | Call 0x1,0x121 1625 01ca | | Execute Vector,Prepend 1626 e5ff | | Load 0x2,-0x1 1627 835a | Z | Call 0x1,0x15a 1628 01cc | | Execute Vector,Catenate 1629 00ea | | Load_Encached Null_String_Cache 162a e5fd | | Load 0x2,-0x3 162b e311 | | Load 0x1,0x111 162c 8321 | ! | Call 0x1,0x121 162d 01cc | | Execute Vector,Catenate 162e 01cb | | Execute Vector,Append 162f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1630 e5fe | | Load 0x2,-0x2 1631 e5fd | | Load 0x2,-0x3 1632 0278 | x | Execute Discrete,Or 1633 6806 |h | Jump_Zero 0x163a 1634 4822 |H" | Short_Literal 0x22 1635 4822 |H" | Short_Literal 0x22 1636 e311 | | Load 0x1,0x111 1637 01ca | | Execute Vector,Prepend 1638 01cb | | Execute Vector,Append 1639 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 163a e317 | | Load 0x1,0x117 163b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 163c 0000 0000 | | .BLANK 0000[0x4] 1640 ; -------------------------------------------------------------------------------------- 1640 ; SUBPROGRAM 1640 ; -------------------------------------------------------------------------------------- 1640 164b | K | .CONST 0x164b ; Address of begin 1641 0004 | | .CONST 0x0004 ; Address of exception handler 1642 0006 | | .CONST 0x0006 ; Number of locals 1643 INIT_1640: 1643 00e1 | | Load_Encached Boolean_Cache 1644 03e9 | | Declare_Variable Discrete,Duplicate 1645 00e5 | | Load_Encached Long_Integer_Cache 1646 03e9 | | Declare_Variable Discrete,Duplicate 1647 e5fd | | Load 0x2,-0x3 1648 830b | | Call 0x1,0x10b 1649 00e1 | | Load_Encached Boolean_Cache 164a 03f1 | | Declare_Variable Discrete,With_Value 164b BODY_1640: 164b 00e5 | | Load_Encached Long_Integer_Cache 164c 00e5 | | Load_Encached Long_Integer_Cache 164d e406 | | Load 0x2,0x6 164e e5f5 | | Load 0x2,-0xb 164f e5f6 | | Load 0x2,-0xa 1650 e5fa | | Load 0x2,-0x6 1651 e5fb | | Load 0x2,-0x5 1652 8292 | | Call 0x1,0x92 1653 c404 | | Store 0x2,0x4 1654 c405 | | Store 0x2,0x5 1655 e404 | | Load 0x2,0x4 1656 e5fb | | Load 0x2,-0x5 1657 027d | } | Execute Discrete,Greater 1658 a402 | | Store_Unchecked 0x2,0x2 1659 e405 | | Load 0x2,0x5 165a e5fa | | Load 0x2,-0x6 165b 027c | | | Execute Discrete,Less 165c 7004 |p | Jump_Nonzero 0x1661 165d e404 | | Load 0x2,0x4 165e e405 | | Load 0x2,0x5 165f 027d | } | Execute Discrete,Greater 1660 7801 |x | Jump 0x1662 1661 4801 |H | Short_Literal 0x1 1662 a403 | | Store_Unchecked 0x2,0x3 1663 00d8 | | Load_Top At_Offset_0 1664 6816 |h | Jump_Zero 0x167b 1665 e5fc | | Load 0x2,-0x4 1666 0f08 | | Execute_Immediate Equal,0x8 1667 7001 |p | Jump_Nonzero 0x1669 1668 0887 | | Execute_Immediate Raise,0x87 1669 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "(" 166b 4800 |H | Short_Literal 0x0 166c e5fa | | Load 0x2,-0x6 166d e5fb | | Load 0x2,-0x5 166e 8324 | $ | Call 0x1,0x124 166f 01cc | | Execute Vector,Catenate 1670 e310 | | Load 0x1,0x110 1671 01cc | | Execute Vector,Catenate 1672 e403 | | Load 0x2,0x3 1673 e402 | | Load 0x2,0x2 1674 e5ff | | Load 0x2,-0x1 1675 835b | [ | Call 0x1,0x15b 1676 01cc | | Execute Vector,Catenate 1677 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 1679 01cc | | Execute Vector,Catenate 167a 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 167b e5fb | | Load 0x2,-0x5 167c e5fa | | Load 0x2,-0x6 167d 027d | } | Execute Discrete,Greater 167e 6802 |h | Jump_Zero 0x1681 167f e318 | | Load 0x1,0x118 1680 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 1681 e404 | | Load 0x2,0x4 1682 e405 | | Load 0x2,0x5 1683 027d | } | Execute Discrete,Greater 1684 680b |h | Jump_Zero 0x1690 1685 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "(" 1687 e5fa | | Load 0x2,-0x6 1688 e5fb | | Load 0x2,-0x5 1689 8354 | T | Call 0x1,0x154 168a 01cc | | Execute Vector,Catenate 168b 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 168d 01cc | | Execute Vector,Catenate 168e 8327 | ' | Call 0x1,0x127 168f 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 1690 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "(" 1692 e5fb | | Load 0x2,-0x5 1693 e404 | | Load 0x2,0x4 1694 e402 | | Load 0x2,0x2 1695 8352 | R | Call 0x1,0x152 1696 01cc | | Execute Vector,Catenate 1697 e5f5 | | Load 0x2,-0xb 1698 e5f6 | | Load 0x2,-0xa 1699 e5f7 | | Load 0x2,-0x9 169a e5f8 | | Load 0x2,-0x8 169b 0aff | | Execute_Immediate Plus,-0x1 169c 00e3 | | Load_Encached Natural_Cache 169d 025b | [ | Execute Discrete,Check_In_Type 169e e5f9 | | Load 0x2,-0x7 169f e405 | | Load 0x2,0x5 16a0 e404 | | Load 0x2,0x4 16a1 e5fc | | Load 0x2,-0x4 16a2 e5fd | | Load 0x2,-0x3 16a3 e5ff | | Load 0x2,-0x1 16a4 01dd | | Execute Vector,First 16a5 e5fe | | Load 0x2,-0x2 16a6 e5ff | | Load 0x2,-0x1 16a7 8358 | X | Call 0x1,0x158 16a8 01cc | | Execute Vector,Catenate 16a9 e5fa | | Load 0x2,-0x6 16aa e405 | | Load 0x2,0x5 16ab e403 | | Load 0x2,0x3 16ac 8353 | S | Call 0x1,0x153 16ad 01cc | | Execute Vector,Catenate 16ae 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")" 16b0 01cc | | Execute Vector,Catenate 16b1 8327 | ' | Call 0x1,0x127 16b2 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 16b3 0000 0000 | | .BLANK 0000[0x5] 16b8 ; -------------------------------------------------------------------------------------- 16b8 ; SUBPROGRAM 16b8 ; -------------------------------------------------------------------------------------- 16b8 16c2 | | .CONST 0x16c2 ; Address of begin 16b9 0004 | | .CONST 0x0004 ; Address of exception handler 16ba 0004 | | .CONST 0x0004 ; Number of locals 16bb INIT_16b8: 16bb e5fc | | Load 0x2,-0x4 16bc e5fd | | Load 0x2,-0x3 16bd 0271 | q | Execute Discrete,Times 16be 00e5 | | Load_Encached Long_Integer_Cache 16bf 03f1 | | Declare_Variable Discrete,With_Value 16c0 00e5 | | Load_Encached Long_Integer_Cache 16c1 00e5 | | Load_Encached Long_Integer_Cache 16c2 BODY_16b8: 16c2 e5fb | | Load 0x2,-0x5 16c3 e5fa | | Load 0x2,-0x6 16c4 027d | } | Execute Discrete,Greater 16c5 6804 |h | Jump_Zero 0x16ca 16c6 e21b | | Load 0x1,0x1b 16c7 0335 | 5 | Declare_Variable Array,Duplicate 16c8 00cd | | Action Spare6_Action 16c9 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 16ca e5fa | | Load 0x2,-0x6 16cb e5fd | | Load 0x2,-0x3 16cc 0271 | q | Execute Discrete,Times 16cd 0aff | | Execute_Immediate Plus,-0x1 16ce a403 | | Store_Unchecked 0x2,0x3 16cf e403 | | Load 0x2,0x3 16d0 e402 | | Load 0x2,0x2 16d1 0272 | r | Execute Discrete,Minus 16d2 0a01 | | Execute_Immediate Plus,0x1 16d3 a404 | | Store_Unchecked 0x2,0x4 16d4 e5ff | | Load 0x2,-0x1 16d5 01db | | Execute Vector,Length 16d6 e403 | | Load 0x2,0x3 16d7 027b | { | Execute Discrete,Greater_Equal 16d8 6805 |h | Jump_Zero 0x16de 16d9 e402 | | Load 0x2,0x2 16da e403 | | Load 0x2,0x3 16db e5ff | | Load 0x2,-0x1 16dc 01cf | | Execute Vector,Slice_Read 16dd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 16de 00d8 | | Load_Top At_Offset_0 16df e402 | | Load 0x2,0x2 16e0 e5fe | | Load 0x2,-0x2 16e1 8285 | | Call 0x1,0x85 16e2 82bd | | Call 0x1,0xbd 16e3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 16e4 0000 0000 | | .BLANK 0000[0x4] 16e8 ; -------------------------------------------------------------------------------------- 16e8 ; SUBPROGRAM 16e8 ; -------------------------------------------------------------------------------------- 16e8 16f6 | | .CONST 0x16f6 ; Address of begin 16e9 0004 | | .CONST 0x0004 ; Address of exception handler 16ea 0007 | | .CONST 0x0007 ; Number of locals 16eb INIT_16e8: 16eb 00e3 | | Load_Encached Natural_Cache 16ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 16ed e001 | | Load 0x0,0x1 16ee 1b95 | | Execute Package,Field_Read,Field_Number 0x95 16ef 0322 | " | Declare_Variable Record 16f0 e001 | | Load 0x0,0x1 16f1 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 16f2 0322 | " | Declare_Variable Record 16f3 00e5 | | Load_Encached Long_Integer_Cache 16f4 00e5 | | Load_Encached Long_Integer_Cache 16f5 00e5 | | Load_Encached Long_Integer_Cache 16f6 BODY_16e8: 16f6 e5f9 | | Load 0x2,-0x7 16f7 0d01 | | Execute_Immediate Less,0x1 16f8 6802 |h | Jump_Zero 0x16fb 16f9 e311 | | Load 0x1,0x111 16fa 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 16fb e402 | | Load 0x2,0x2 16fc e5fd | | Load 0x2,-0x3 16fd 826a | j | Call 0x1,0x6a 16fe e403 | | Load 0x2,0x3 16ff 017d | } | Execute Record,Structure_Write 1700 e403 | | Load 0x2,0x3 1701 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1702 e404 | | Load 0x2,0x4 1703 017d | } | Execute Record,Structure_Write 1704 00e5 | | Load_Encached Long_Integer_Cache 1705 00e5 | | Load_Encached Long_Integer_Cache 1706 e404 | | Load 0x2,0x4 1707 830b | | Call 0x1,0x10b 1708 e5f6 | | Load 0x2,-0xa 1709 e5f7 | | Load 0x2,-0x9 170a e5fb | | Load 0x2,-0x5 170b e5fc | | Load 0x2,-0x4 170c 8292 | | Call 0x1,0x92 170d c406 | | Store 0x2,0x6 170e c407 | | Store 0x2,0x7 170f e403 | | Load 0x2,0x3 1710 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1711 a405 | | Store_Unchecked 0x2,0x5 1712 e5f6 | | Load 0x2,-0xa 1713 e5f7 | | Load 0x2,-0x9 1714 e5f8 | | Load 0x2,-0x8 1715 e5f9 | | Load 0x2,-0x7 1716 e5fa | | Load 0x2,-0x6 1717 e5fb | | Load 0x2,-0x5 1718 e5fc | | Load 0x2,-0x4 1719 e405 | | Load 0x2,0x5 171a e404 | | Load 0x2,0x4 171b e5fe | | Load 0x2,-0x2 171c e407 | | Load 0x2,0x7 171d e406 | | Load 0x2,0x6 171e e5f7 | | Load 0x2,-0x9 171f 00e3 | | Load_Encached Natural_Cache 1720 025b | [ | Execute Discrete,Check_In_Type 1721 e405 | | Load 0x2,0x5 1722 e5fe | | Load 0x2,-0x2 1723 e5ff | | Load 0x2,-0x1 1724 821c | | Call 0x1,0x1c 1725 835d | ] | Call 0x1,0x15d 1726 835c | \ | Call 0x1,0x15c 1727 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa 1728 ; -------------------------------------------------------------------------------------- 1728 ; SUBPROGRAM 1728 ; -------------------------------------------------------------------------------------- 1728 173d | = | .CONST 0x173d ; Address of begin 1729 0004 | | .CONST 0x0004 ; Address of exception handler 172a 0004 | | .CONST 0x0004 ; Number of locals 172b INIT_1728: 172b e001 | | Load 0x0,0x1 172c 1b97 | | Execute Package,Field_Read,Field_Number 0x97 172d 0322 | " | Declare_Variable Record 172e 4800 |H | Short_Literal 0x0 172f e5fd | | Load 0x2,-0x3 1730 826b | k | Call 0x1,0x6b 1731 e402 | | Load 0x2,0x2 1732 017d | } | Execute Record,Structure_Write 1733 00d8 | | Load_Top At_Offset_0 1734 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1735 00e5 | | Load_Encached Long_Integer_Cache 1736 03f1 | | Declare_Variable Discrete,With_Value 1737 e402 | | Load 0x2,0x2 1738 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1739 e403 | | Load 0x2,0x3 173a 828f | | Call 0x1,0x8f 173b 00e5 | | Load_Encached Long_Integer_Cache 173c 03f1 | | Declare_Variable Discrete,With_Value 173d BODY_1728: 173d e5f8 | | Load 0x2,-0x8 173e e5f9 | | Load 0x2,-0x7 173f e5fa | | Load 0x2,-0x6 1740 e5fb | | Load 0x2,-0x5 1741 e5fc | | Load 0x2,-0x4 1742 e404 | | Load 0x2,0x4 1743 e403 | | Load 0x2,0x3 1744 e5fd | | Load 0x2,-0x3 1745 e5fe | | Load 0x2,-0x2 1746 e5ff | | Load 0x2,-0x1 1747 835e | ^ | Call 0x1,0x15e 1748 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1749 0000 0000 | | .BLANK 0000[0x7] 1750 ; -------------------------------------------------------------------------------------- 1750 ; SUBPROGRAM 1750 ; -------------------------------------------------------------------------------------- 1750 175b | [ | .CONST 0x175b ; Address of begin 1751 0004 | | .CONST 0x0004 ; Address of exception handler 1752 0002 | | .CONST 0x0002 ; Number of locals 1753 INIT_1750: 1753 e001 | | Load 0x0,0x1 1754 1b95 | | Execute Package,Field_Read,Field_Number 0x95 1755 0322 | " | Declare_Variable Record 1756 4800 |H | Short_Literal 0x0 1757 e5ff | | Load 0x2,-0x1 1758 826a | j | Call 0x1,0x6a 1759 e402 | | Load 0x2,0x2 175a 017d | } | Execute Record,Structure_Write 175b BODY_1750: 175b e5fe | | Load 0x2,-0x2 175c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 175d a5fd | | Store_Unchecked 0x2,-0x3 175e e5fe | | Load 0x2,-0x2 175f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1760 e5fe | | Load 0x2,-0x2 1761 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1762 828f | | Call 0x1,0x8f 1763 a5fc | | Store_Unchecked 0x2,-0x4 1764 00d8 | | Load_Top At_Offset_0 1765 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1766 e5fc | | Load 0x2,-0x4 1767 e5fd | | Load 0x2,-0x3 1768 0272 | r | Execute Discrete,Minus 1769 0a01 | | Execute_Immediate Plus,0x1 176a 0271 | q | Execute Discrete,Times 176b a5fb | | Store_Unchecked 0x2,-0x5 176c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 176d 0000 0000 | | .XXX[0x3] 176f 0000 | | 1770 ; -------------------------------------------------------------------------------------- 1770 ; SUBPROGRAM 1770 ; -------------------------------------------------------------------------------------- 1770 1783 | | .CONST 0x1783 ; Address of begin 1771 0004 | | .CONST 0x0004 ; Address of exception handler 1772 0006 | | .CONST 0x0006 ; Number of locals 1773 INIT_1770: 1773 e001 | | Load 0x0,0x1 1774 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0 1775 0322 | " | Declare_Variable Record 1776 e5ff | | Load 0x2,-0x1 1777 82c5 | | Call 0x1,0xc5 1778 e402 | | Load 0x2,0x2 1779 017d | } | Execute Record,Structure_Write 177a 00e5 | | Load_Encached Long_Integer_Cache 177b 03e9 | | Declare_Variable Discrete,Duplicate 177c 00e5 | | Load_Encached Long_Integer_Cache 177d e2be | | Load 0x1,0xbe 177e e5ff | | Load 0x2,-0x1 177f 8285 | | Call 0x1,0x85 1780 e048 | H | Load 0x0,0x48 1781 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1782 03f1 | | Declare_Variable Discrete,With_Value 1783 BODY_1770: 1783 00e5 | | Load_Encached Long_Integer_Cache 1784 00e5 | | Load_Encached Long_Integer_Cache 1785 00e5 | | Load_Encached Long_Integer_Cache 1786 e402 | | Load 0x2,0x2 1787 e5fe | | Load 0x2,-0x2 1788 8360 | ` | Call 0x1,0x160 1789 c403 | | Store 0x2,0x3 178a c404 | | Store 0x2,0x4 178b c405 | | Store 0x2,0x5 178c e5f9 | | Load 0x2,-0x7 178d e5fa | | Load 0x2,-0x6 178e e5fb | | Load 0x2,-0x5 178f e5fc | | Load 0x2,-0x4 1790 e5fd | | Load 0x2,-0x3 1791 e404 | | Load 0x2,0x4 1792 e403 | | Load 0x2,0x3 1793 e5fe | | Load 0x2,-0x2 1794 e406 | | Load 0x2,0x6 1795 e21b | | Load 0x1,0x1b 1796 835e | ^ | Call 0x1,0x15e 1797 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 1798 ; -------------------------------------------------------------------------------------- 1798 ; SUBPROGRAM 1798 ; -------------------------------------------------------------------------------------- 1798 179e | | .CONST 0x179e ; Address of begin 1799 17d0 | | .CONST 0x17d0 ; Address of exception handler 179a 0002 | | .CONST 0x0002 ; Number of locals 179b INIT_1798: 179b e001 | | Load 0x0,0x1 179c 1b9c | | Execute Package,Field_Read,Field_Number 0x9c 179d 0322 | " | Declare_Variable Record 179e BODY_1798: 179e e5fe | | Load 0x2,-0x2 179f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 17a0 8299 | | Call 0x1,0x99 17a1 6802 |h | Jump_Zero 0x17a4 17a2 e320 | | Load 0x1,0x120 17a3 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 17a4 e5fe | | Load 0x2,-0x2 17a5 8268 | h | Call 0x1,0x68 17a6 e402 | | Load 0x2,0x2 17a7 017d | } | Execute Record,Structure_Write 17a8 e5fe | | Load 0x2,-0x2 17a9 829a | | Call 0x1,0x9a 17aa 680e |h | Jump_Zero 0x17b9 17ab e5fe | | Load 0x2,-0x2 17ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 17ad 0f6c | l | Execute_Immediate Equal,0x6c 17ae 7001 |p | Jump_Nonzero 0x17b0 17af 0887 | | Execute_Immediate Raise,0x87 17b0 e5f9 | | Load 0x2,-0x7 17b1 e5fa | | Load 0x2,-0x6 17b2 e5fb | | Load 0x2,-0x5 17b3 e5fc | | Load 0x2,-0x4 17b4 e5fd | | Load 0x2,-0x3 17b5 e5fe | | Load 0x2,-0x2 17b6 e5ff | | Load 0x2,-0x1 17b7 8361 | a | Call 0x1,0x161 17b8 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 17b9 e5fe | | Load 0x2,-0x2 17ba 8298 | | Call 0x1,0x98 17bb 680a |h | Jump_Zero 0x17c6 17bc e5f9 | | Load 0x2,-0x7 17bd e5fa | | Load 0x2,-0x6 17be e5fb | | Load 0x2,-0x5 17bf e5fc | | Load 0x2,-0x4 17c0 e5fd | | Load 0x2,-0x3 17c1 e5fe | | Load 0x2,-0x2 17c2 e5ff | | Load 0x2,-0x1 17c3 e21b | | Load 0x1,0x1b 17c4 8343 | C | Call 0x1,0x143 17c5 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 17c6 e5f9 | | Load 0x2,-0x7 17c7 e5fa | | Load 0x2,-0x6 17c8 e5fb | | Load 0x2,-0x5 17c9 e5fc | | Load 0x2,-0x4 17ca e5fd | | Load 0x2,-0x3 17cb e402 | | Load 0x2,0x2 17cc e5fe | | Load 0x2,-0x2 17cd e5ff | | Load 0x2,-0x1 17ce 8341 | A | Call 0x1,0x141 17cf 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 17d0 TRAP_1798: 17d0 010d | | Execute Exception,Is_Numeric_Error 17d1 6802 |h | Jump_Zero 0x17d4 17d2 e31f | | Load 0x1,0x11f 17d3 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 17d4 00d8 | | Load_Top At_Offset_0 17d5 0101 | | Execute Exception,Reraise 17d6 0000 0000 | | .XXX[0x2] 17d8 ; -------------------------------------------------------------------------------------- 17d8 ; SUBPROGRAM 17d8 ; -------------------------------------------------------------------------------------- 17d8 17eb | | .CONST 0x17eb ; Address of begin 17d9 0004 | | .CONST 0x0004 ; Address of exception handler 17da 0006 | | .CONST 0x0006 ; Number of locals 17db INIT_17d8: 17db e048 | H | Load 0x0,0x48 17dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 17dd e001 | | Load 0x0,0x1 17de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 17df e001 | | Load 0x0,0x1 17e0 1b92 | | Execute Package,Field_Read,Field_Number 0x92 17e1 0322 | " | Declare_Variable Record 17e2 4800 |H | Short_Literal 0x0 17e3 e5f8 | | Load 0x2,-0x8 17e4 e5ff | | Load 0x2,-0x1 17e5 833a | : | Call 0x1,0x13a 17e6 e5fe | | Load 0x2,-0x2 17e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 17e8 e046 | F | Load 0x0,0x46 17e9 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 17ea 03f1 | | Declare_Variable Discrete,With_Value 17eb BODY_17d8: 17eb e5ff | | Load 0x2,-0x1 17ec 4800 |H | Short_Literal 0x0 17ed 027f | | Execute Discrete,Equal 17ee 6805 |h | Jump_Zero 0x17f4 17ef e310 | | Load 0x1,0x110 17f0 0092 1aeb | | Action Push_String_Extended,0x1aeb ; "null" 17f2 01cc | | Execute Vector,Catenate 17f3 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 17f4 e5fb | | Load 0x2,-0x5 17f5 0d01 | | Execute_Immediate Less,0x1 17f6 6804 |h | Jump_Zero 0x17fb 17f7 e405 | | Load 0x2,0x5 17f8 e311 | | Load 0x1,0x111 17f9 01cc | | Execute Vector,Catenate 17fa 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 17fb 00d8 | | Load_Top At_Offset_0 17fc 8295 | | Call 0x1,0x95 17fd 6838 |h8 | Jump_Zero 0x1836 17fe 4800 |H | Short_Literal 0x0 17ff e218 | | Load 0x1,0x18 1800 025b | [ | Execute Discrete,Check_In_Type 1801 e5fe | | Load 0x2,-0x2 1802 e26d | m | Load 0x1,0x6d 1803 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 1804 826c | l | Call 0x1,0x6c 1805 e404 | | Load 0x2,0x4 1806 017d | } | Execute Record,Structure_Write 1807 00d8 | | Load_Top At_Offset_0 1808 0f10 | | Execute_Immediate Equal,0x10 1809 6809 |h | Jump_Zero 0x1813 180a e5fe | | Load 0x2,-0x2 180b e5ff | | Load 0x2,-0x1 180c e29e | | Load 0x1,0x9e 180d 1d9f | | Execute_Immediate Reference_Lex_1,0x9f 180e 829d | | Call 0x1,0x9d 180f e404 | | Load 0x2,0x4 1810 8289 | | Call 0x1,0x89 1811 a402 | | Store_Unchecked 0x2,0x2 1812 7807 |x | Jump 0x181a 1813 e5fe | | Load 0x2,-0x2 1814 e5ff | | Load 0x2,-0x1 1815 e2a2 | | Load 0x1,0xa2 1816 1da3 | | Execute_Immediate Reference_Lex_1,0xa3 1817 829d | | Call 0x1,0x9d 1818 828a | | Call 0x1,0x8a 1819 a402 | | Store_Unchecked 0x2,0x2 181a e402 | | Load 0x2,0x2 181b 4800 |H | Short_Literal 0x0 181c 027f | | Execute Discrete,Equal 181d 6805 |h | Jump_Zero 0x1823 181e e405 | | Load 0x2,0x5 181f 0092 1aeb | | Action Push_String_Extended,0x1aeb ; "null" 1821 01cc | | Execute Vector,Catenate 1822 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1823 4801 |H | Short_Literal 0x1 1824 e5f8 | | Load 0x2,-0x8 1825 e5ff | | Load 0x2,-0x1 1826 833a | : | Call 0x1,0x13a 1827 e5f8 | | Load 0x2,-0x8 1828 e5f9 | | Load 0x2,-0x7 1829 e5fa | | Load 0x2,-0x6 182a e5fb | | Load 0x2,-0x5 182b 0aff | | Execute_Immediate Plus,-0x1 182c 00e3 | | Load_Encached Natural_Cache 182d 025b | [ | Execute Discrete,Check_In_Type 182e e5fc | | Load 0x2,-0x4 182f e5fd | | Load 0x2,-0x3 1830 e404 | | Load 0x2,0x4 1831 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1832 e402 | | Load 0x2,0x2 1833 8363 | c | Call 0x1,0x163 1834 01cc | | Execute Vector,Catenate 1835 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1836 00d8 | | Load_Top At_Offset_0 1837 830d | | Call 0x1,0x10d 1838 6812 |h | Jump_Zero 0x184b 1839 e5fe | | Load 0x2,-0x2 183a e5ff | | Load 0x2,-0x1 183b 82c7 | | Call 0x1,0xc7 183c a403 | | Store_Unchecked 0x2,0x3 183d e405 | | Load 0x2,0x5 183e e5f9 | | Load 0x2,-0x7 183f e5fa | | Load 0x2,-0x6 1840 e5fb | | Load 0x2,-0x5 1841 0aff | | Execute_Immediate Plus,-0x1 1842 00e3 | | Load_Encached Natural_Cache 1843 025b | [ | Execute Discrete,Check_In_Type 1844 e5fc | | Load 0x2,-0x4 1845 e5fd | | Load 0x2,-0x3 1846 e5fe | | Load 0x2,-0x2 1847 e403 | | Load 0x2,0x3 1848 833d | = | Call 0x1,0x13d 1849 01cc | | Execute Vector,Catenate 184a 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 184b e405 | | Load 0x2,0x5 184c e5f9 | | Load 0x2,-0x7 184d e5fa | | Load 0x2,-0x6 184e e5fb | | Load 0x2,-0x5 184f 0aff | | Execute_Immediate Plus,-0x1 1850 00e3 | | Load_Encached Natural_Cache 1851 025b | [ | Execute Discrete,Check_In_Type 1852 e5fc | | Load 0x2,-0x4 1853 e5fd | | Load 0x2,-0x3 1854 e5fe | | Load 0x2,-0x2 1855 e5ff | | Load 0x2,-0x1 1856 8362 | b | Call 0x1,0x162 1857 01cc | | Execute Vector,Catenate 1858 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 1859 0000 0000 | | .BLANK 0000[0x7] 1860 ; -------------------------------------------------------------------------------------- 1860 ; SUBPROGRAM 1860 ; -------------------------------------------------------------------------------------- 1860 1863 | c | .CONST 0x1863 ; Address of begin 1861 0004 | | .CONST 0x0004 ; Address of exception handler 1862 0001 | | .CONST 0x0001 ; Number of locals 1863 BODY_1860: 1863 INIT_1860: 1863 e5ff | | Load 0x2,-0x1 1864 01db | | Execute Vector,Length 1865 0c01 | | Execute_Immediate Greater_Equal,0x1 1866 680b |h | Jump_Zero 0x1872 1867 e5ff | | Load 0x2,-0x1 1868 01dd | | Execute Vector,First 1869 e5ff | | Load 0x2,-0x1 186a 01d7 | | Execute Vector,Field_Read 186b 0e27 | ' | Execute_Immediate Not_Equal,0x27 186c 6805 |h | Jump_Zero 0x1872 186d 0092 1aec | | Action Push_String_Extended,0x1aec ; "ASCII." 186f e5ff | | Load 0x2,-0x1 1870 01cc | | Execute Vector,Catenate 1871 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1872 e5ff | | Load 0x2,-0x1 1873 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1874 0000 0000 | | .BLANK 0000[0x4] 1878 ; -------------------------------------------------------------------------------------- 1878 ; SUBPROGRAM 1878 ; -------------------------------------------------------------------------------------- 1878 187c | | | .CONST 0x187c ; Address of begin 1879 189c | | .CONST 0x189c ; Address of exception handler 187a 0002 | | .CONST 0x0002 ; Number of locals 187b INIT_1878: 187b 00e8 | | Load_Encached Character_Cache 187c BODY_1878: 187c e5ff | | Load 0x2,-0x1 187d 00d8 | | Load_Top At_Offset_0 187e 00e8 | | Load_Encached Character_Cache 187f 0260 | ` | Execute Discrete,In_Type 1880 7001 |p | Jump_Nonzero 0x1882 1881 08e0 | | Execute_Immediate Raise,0xe0 1882 a402 | | Store_Unchecked 0x2,0x2 1883 00d8 | | Load_Top At_Offset_0 1884 0b2c | , | Execute_Immediate Case_Compare,0x2c 1885 700d |p | Jump_Nonzero 0x1893 1886 0f29 | ) | Execute_Immediate Equal,0x29 1887 700c |p | Jump_Nonzero 0x1894 1888 e5ff | | Load 0x2,-0x1 1889 00d8 | | Load_Top At_Offset_0 188a 00e8 | | Load_Encached Character_Cache 188b 0260 | ` | Execute Discrete,In_Type 188c 7001 |p | Jump_Nonzero 0x188e 188d 08e0 | | Execute_Immediate Raise,0xe0 188e 00e8 | | Load_Encached Character_Cache 188f 025e | ^ | Execute Discrete,Convert 1890 1c01 | | Execute_Immediate Run_Utility,0x1 1891 8364 | d | Call 0x1,0x164 1892 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1893 00d1 | | Pop_Control Pop_Count_1 1894 00d8 | | Load_Top At_Offset_0 1895 0092 1aed | | Action Push_String_Extended,0x1aed ; "'\x1b" 1897 01cb | | Execute Vector,Append 1898 0092 1aee | | Action Push_String_Extended,0x1aee ; "'" 189a 01cc | | Execute Vector,Catenate 189b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 189c TRAP_1878: 189c 010e | | Execute Exception,Is_Constraint_Error 189d 6802 |h | Jump_Zero 0x18a0 189e e31e | | Load 0x1,0x11e 189f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 18a0 0100 | | Execute Exception,Raise 18a1 0000 0000 | | .BLANK 0000[0x7] 18a8 ; -------------------------------------------------------------------------------------- 18a8 ; SUBPROGRAM 18a8 ; -------------------------------------------------------------------------------------- 18a8 18bb | | .CONST 0x18bb ; Address of begin 18a9 0004 | | .CONST 0x0004 ; Address of exception handler 18aa 0005 | | .CONST 0x0005 ; Number of locals 18ab INIT_18a8: 18ab e5ff | | Load 0x2,-0x1 18ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 18ad 00e5 | | Load_Encached Long_Integer_Cache 18ae 03f1 | | Declare_Variable Discrete,With_Value 18af e001 | | Load 0x0,0x1 18b0 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 18b1 0322 | " | Declare_Variable Record 18b2 e5ff | | Load 0x2,-0x1 18b3 82d2 | | Call 0x1,0xd2 18b4 e403 | | Load 0x2,0x3 18b5 017d | } | Execute Record,Structure_Write 18b6 e048 | H | Load 0x0,0x48 18b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 18b8 e001 | | Load 0x0,0x1 18b9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 18ba 0322 | " | Declare_Variable Record 18bb BODY_18a8: 18bb e5fa | | Load 0x2,-0x6 18bc 830d | | Call 0x1,0x10d 18bd 6809 |h | Jump_Zero 0x18c7 18be e5fb | | Load 0x2,-0x5 18bf e5fc | | Load 0x2,-0x4 18c0 e5fd | | Load 0x2,-0x3 18c1 e5fe | | Load 0x2,-0x2 18c2 4800 |H | Short_Literal 0x0 18c3 e403 | | Load 0x2,0x3 18c4 e402 | | Load 0x2,0x2 18c5 833d | = | Call 0x1,0x13d 18c6 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 18c7 e5fa | | Load 0x2,-0x6 18c8 830f | | Call 0x1,0x10f 18c9 6814 |h | Jump_Zero 0x18de 18ca e402 | | Load 0x2,0x2 18cb e248 | H | Load 0x1,0x48 18cc e249 | I | Load 0x1,0x49 18cd 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 18ce 8002 | | Call 0x0,0x2 18cf e405 | | Load 0x2,0x5 18d0 017d | } | Execute Record,Structure_Write 18d1 4800 |H | Short_Literal 0x0 18d2 e405 | | Load 0x2,0x5 18d3 8288 | | Call 0x1,0x88 18d4 a404 | | Store_Unchecked 0x2,0x4 18d5 e5fb | | Load 0x2,-0x5 18d6 e5fc | | Load 0x2,-0x4 18d7 e5fd | | Load 0x2,-0x3 18d8 e5fe | | Load 0x2,-0x2 18d9 4800 |H | Short_Literal 0x0 18da e403 | | Load 0x2,0x3 18db e404 | | Load 0x2,0x4 18dc 8362 | b | Call 0x1,0x162 18dd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 18de 0831 | 1 | Execute_Immediate Raise,0x31 18df 0000 | | .XXX[0x1] 18e0 ; -------------------------------------------------------------------------------------- 18e0 ; SUBPROGRAM 18e0 ; -------------------------------------------------------------------------------------- 18e0 18e3 | | .CONST 0x18e3 ; Address of begin 18e1 1915 | | .CONST 0x1915 ; Address of exception handler 18e2 0001 | | .CONST 0x0001 ; Number of locals 18e3 BODY_18e0: 18e3 INIT_18e0: 18e3 e2d7 | | Load 0x1,0xd7 18e4 1dd8 | | Execute_Immediate Reference_Lex_1,0xd8 18e5 82d3 | | Call 0x1,0xd3 18e6 a2fc | | Store_Unchecked 0x1,0xfc 18e7 e2db | | Load 0x1,0xdb 18e8 1ddc | | Execute_Immediate Reference_Lex_1,0xdc 18e9 82d4 | | Call 0x1,0xd4 18ea e2fe | | Load 0x1,0xfe 18eb 017d | } | Execute Record,Structure_Write 18ec e2df | | Load 0x1,0xdf 18ed 1de0 | | Execute_Immediate Reference_Lex_1,0xe0 18ee 82d4 | | Call 0x1,0xd4 18ef e2ff | | Load 0x1,0xff 18f0 017d | } | Execute Record,Structure_Write 18f1 e2e3 | | Load 0x1,0xe3 18f2 1de4 | | Execute_Immediate Reference_Lex_1,0xe4 18f3 82d4 | | Call 0x1,0xd4 18f4 e300 | | Load 0x1,0x100 18f5 017d | } | Execute Record,Structure_Write 18f6 e2e7 | | Load 0x1,0xe7 18f7 1de8 | | Execute_Immediate Reference_Lex_1,0xe8 18f8 82d4 | | Call 0x1,0xd4 18f9 e301 | | Load 0x1,0x101 18fa 017d | } | Execute Record,Structure_Write 18fb e2eb | | Load 0x1,0xeb 18fc 1dec | | Execute_Immediate Reference_Lex_1,0xec 18fd 82d4 | | Call 0x1,0xd4 18fe e302 | | Load 0x1,0x102 18ff 017d | } | Execute Record,Structure_Write 1900 e2ef | | Load 0x1,0xef 1901 1df0 | | Execute_Immediate Reference_Lex_1,0xf0 1902 82d4 | | Call 0x1,0xd4 1903 e303 | | Load 0x1,0x103 1904 017d | } | Execute Record,Structure_Write 1905 e2f3 | | Load 0x1,0xf3 1906 1df4 | | Execute_Immediate Reference_Lex_1,0xf4 1907 82d4 | | Call 0x1,0xd4 1908 e304 | | Load 0x1,0x104 1909 017d | } | Execute Record,Structure_Write 190a e2f7 | | Load 0x1,0xf7 190b 1df8 | | Execute_Immediate Reference_Lex_1,0xf8 190c 82d4 | | Call 0x1,0xd4 190d e305 | | Load 0x1,0x105 190e 017d | } | Execute Record,Structure_Write 190f 82d5 | | Call 0x1,0xd5 1910 e306 | | Load 0x1,0x106 1911 017d | } | Execute Record,Structure_Write 1912 4801 |H | Short_Literal 0x1 1913 a2fb | | Store_Unchecked 0x1,0xfb 1914 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1915 TRAP_18e0: 1915 0007 | | Action Break_Optional 1916 4800 |H | Short_Literal 0x0 1917 a2fb | | Store_Unchecked 0x1,0xfb 1918 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1919 0000 0000 | | .BLANK 0000[0x7] 1920 ; -------------------------------------------------------------------------------------- 1920 ; SUBPROGRAM 1920 ; -------------------------------------------------------------------------------------- 1920 1923 | # | .CONST 0x1923 ; Address of begin 1921 192c | , | .CONST 0x192c ; Address of exception handler 1922 0001 | | .CONST 0x0001 ; Number of locals 1923 BODY_1920: 1923 INIT_1920: 1923 4802 |H | Short_Literal 0x2 1924 e404 | | Load 0x2,0x4 1925 e263 | c | Load 0x1,0x63 1926 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 1927 e01b | | Load 0x0,0x1b 1928 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1929 1811 | | Execute Package,Field_Execute,Field_Number 0x11 192a 00cb | | Action Pop_Block_With_Result 192b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 192c TRAP_1920: 192c 4884 |H | Short_Literal 0x84 192d 010f | | Execute Exception,Equal 192e 6802 |h | Jump_Zero 0x1931 192f 0008 | | Action Idle 1930 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1931 00d8 | | Load_Top At_Offset_0 1932 0101 | | Execute Exception,Reraise 1933 0000 0000 | | .BLANK 0000[0x5] 1938 ; -------------------------------------------------------------------------------------- 1938 ; SUBPROGRAM 1938 ; -------------------------------------------------------------------------------------- 1938 193b | ; | .CONST 0x193b ; Address of begin 1939 1956 | V | .CONST 0x1956 ; Address of exception handler 193a 0001 | | .CONST 0x0001 ; Number of locals 193b BODY_1938: 193b INIT_1938: 193b 4804 |H | Short_Literal 0x4 193c e5fd | | Load 0x2,-0x3 193d e40d | | Load 0x2,0xd 193e 480e |H | Short_Literal 0xe 193f 4802 |H | Short_Literal 0x2 1940 0099 | | Action Reference_Dynamic 1941 e01b | | Load 0x0,0x1b 1942 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1943 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1944 e40a | | Load 0x2,0xa 1945 e40b | | Load 0x2,0xb 1946 0272 | r | Execute Discrete,Minus 1947 0a01 | | Execute_Immediate Plus,0x1 1948 e40a | | Load 0x2,0xa 1949 e409 | | Load 0x2,0x9 194a 01ce | | Execute Vector,Slice_Write 194b e409 | | Load 0x2,0x9 194c e404 | | Load 0x2,0x4 194d e405 | | Load 0x2,0x5 194e 4806 |H | Short_Literal 0x6 194f 4802 |H | Short_Literal 0x2 1950 0099 | | Action Reference_Dynamic 1951 8002 | | Call 0x0,0x2 1952 e5fe | | Load 0x2,-0x2 1953 011d | | Execute Any,Convert_To_Formal 1954 00cb | | Action Pop_Block_With_Result 1955 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1956 TRAP_1938: 1956 4884 |H | Short_Literal 0x84 1957 010f | | Execute Exception,Equal 1958 6802 |h | Jump_Zero 0x195b 1959 0008 | | Action Idle 195a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 195b 00d8 | | Load_Top At_Offset_0 195c 0101 | | Execute Exception,Reraise 195d 0000 0000 | | .XXX[0x3] 195f 0000 | | 1960 ; -------------------------------------------------------------------------------------- 1960 ; SUBPROGRAM 1960 ; -------------------------------------------------------------------------------------- 1960 1963 | c | .CONST 0x1963 ; Address of begin 1961 1975 | u | .CONST 0x1975 ; Address of exception handler 1962 0001 | | .CONST 0x0001 ; Number of locals 1963 BODY_1960: 1963 INIT_1960: 1963 4804 |H | Short_Literal 0x4 1964 e5ff | | Load 0x2,-0x1 1965 e402 | | Load 0x2,0x2 1966 4803 |H | Short_Literal 0x3 1967 4802 |H | Short_Literal 0x2 1968 0099 | | Action Reference_Dynamic 1969 e01b | | Load 0x0,0x1b 196a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 196b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 196c e406 | | Load 0x2,0x6 196d 01d4 | | Execute Vector,Structure_Write 196e e406 | | Load 0x2,0x6 196f e2a8 | | Load 0x1,0xa8 1970 e2a9 | | Load 0x1,0xa9 1971 1daa | | Execute_Immediate Reference_Lex_1,0xaa 1972 8002 | | Call 0x0,0x2 1973 00cb | | Action Pop_Block_With_Result 1974 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1975 TRAP_1960: 1975 4884 |H | Short_Literal 0x84 1976 010f | | Execute Exception,Equal 1977 6802 |h | Jump_Zero 0x197a 1978 0008 | | Action Idle 1979 4501 |E | Exit_Suprogram New_Top_Offset 0x1 197a 00d8 | | Load_Top At_Offset_0 197b 0101 | | Execute Exception,Reraise 197c 0000 0000 | | .BLANK 0000[0x4] 1980 ; -------------------------------------------------------------------------------------- 1980 ; SUBPROGRAM 1980 ; -------------------------------------------------------------------------------------- 1980 1983 | | .CONST 0x1983 ; Address of begin 1981 1995 | | .CONST 0x1995 ; Address of exception handler 1982 0001 | | .CONST 0x0001 ; Number of locals 1983 BODY_1980: 1983 INIT_1980: 1983 4804 |H | Short_Literal 0x4 1984 e5ff | | Load 0x2,-0x1 1985 e402 | | Load 0x2,0x2 1986 4803 |H | Short_Literal 0x3 1987 4802 |H | Short_Literal 0x2 1988 0099 | | Action Reference_Dynamic 1989 e01b | | Load 0x0,0x1b 198a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 198b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 198c e406 | | Load 0x2,0x6 198d 01d4 | | Execute Vector,Structure_Write 198e e406 | | Load 0x2,0x6 198f e2b2 | | Load 0x1,0xb2 1990 e2b3 | | Load 0x1,0xb3 1991 1db4 | | Execute_Immediate Reference_Lex_1,0xb4 1992 8002 | | Call 0x0,0x2 1993 00cb | | Action Pop_Block_With_Result 1994 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1995 TRAP_1980: 1995 4884 |H | Short_Literal 0x84 1996 010f | | Execute Exception,Equal 1997 6802 |h | Jump_Zero 0x199a 1998 0008 | | Action Idle 1999 4501 |E | Exit_Suprogram New_Top_Offset 0x1 199a 00d8 | | Load_Top At_Offset_0 199b 0101 | | Execute Exception,Reraise 199c 0000 0000 | | .BLANK 0000[0x4] 19a0 ; -------------------------------------------------------------------------------------- 19a0 ; SUBPROGRAM 19a0 ; -------------------------------------------------------------------------------------- 19a0 19a3 | | .CONST 0x19a3 ; Address of begin 19a1 19b0 | | .CONST 0x19b0 ; Address of exception handler 19a2 0001 | | .CONST 0x0001 ; Number of locals 19a3 BODY_19a0: 19a3 INIT_19a0: 19a3 4804 |H | Short_Literal 0x4 19a4 e5ff | | Load 0x2,-0x1 19a5 e403 | | Load 0x2,0x3 19a6 4804 |H | Short_Literal 0x4 19a7 4802 |H | Short_Literal 0x2 19a8 0099 | | Action Reference_Dynamic 19a9 e01b | | Load 0x0,0x1b 19aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 19ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 19ac e2ba | | Load 0x1,0xba 19ad 01c6 | | Execute Vector,Convert_To_Formal 19ae 00cb | | Action Pop_Block_With_Result 19af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 19b0 TRAP_19a0: 19b0 4884 |H | Short_Literal 0x84 19b1 010f | | Execute Exception,Equal 19b2 6802 |h | Jump_Zero 0x19b5 19b3 0008 | | Action Idle 19b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19b5 00d8 | | Load_Top At_Offset_0 19b6 0101 | | Execute Exception,Reraise 19b7 0000 | | .XXX[0x1] 19b8 ; -------------------------------------------------------------------------------------- 19b8 ; SUBPROGRAM 19b8 ; -------------------------------------------------------------------------------------- 19b8 19bb | | .CONST 0x19bb ; Address of begin 19b9 19c8 | | .CONST 0x19c8 ; Address of exception handler 19ba 0001 | | .CONST 0x0001 ; Number of locals 19bb BODY_19b8: 19bb INIT_19b8: 19bb 4804 |H | Short_Literal 0x4 19bc e5ff | | Load 0x2,-0x1 19bd e403 | | Load 0x2,0x3 19be 4804 |H | Short_Literal 0x4 19bf 4802 |H | Short_Literal 0x2 19c0 0099 | | Action Reference_Dynamic 19c1 e01b | | Load 0x0,0x1b 19c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 19c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 19c4 e21a | | Load 0x1,0x1a 19c5 01c6 | | Execute Vector,Convert_To_Formal 19c6 00cb | | Action Pop_Block_With_Result 19c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 19c8 TRAP_19b8: 19c8 4884 |H | Short_Literal 0x84 19c9 010f | | Execute Exception,Equal 19ca 6802 |h | Jump_Zero 0x19cd 19cb 0008 | | Action Idle 19cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19cd 00d8 | | Load_Top At_Offset_0 19ce 0101 | | Execute Exception,Reraise 19cf 0000 | | .XXX[0x1] 19d0 ; -------------------------------------------------------------------------------------- 19d0 ; SUBPROGRAM 19d0 ; -------------------------------------------------------------------------------------- 19d0 19d3 | | .CONST 0x19d3 ; Address of begin 19d1 19dd | | .CONST 0x19dd ; Address of exception handler 19d2 0001 | | .CONST 0x0001 ; Number of locals 19d3 BODY_19d0: 19d3 INIT_19d0: 19d3 e405 | | Load 0x2,0x5 19d4 82bb | | Call 0x1,0xbb 19d5 e406 | | Load 0x2,0x6 19d6 e406 | | Load 0x2,0x6 19d7 6010 |` | Indirect_Literal Discrete,0x19e8,{0x00000000, 0x00002000} 19d8 0273 | s | Execute Discrete,Plus 19d9 0aff | | Execute_Immediate Plus,-0x1 19da e402 | | Load 0x2,0x2 19db 01ce | | Execute Vector,Slice_Write 19dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19dd TRAP_19d0: 19dd 4884 |H | Short_Literal 0x84 19de 010f | | Execute Exception,Equal 19df 6807 |h | Jump_Zero 0x19e7 19e0 4800 |H | Short_Literal 0x0 19e1 e406 | | Load 0x2,0x6 19e2 0aff | | Execute_Immediate Plus,-0x1 19e3 e402 | | Load 0x2,0x2 19e4 01cf | | Execute Vector,Slice_Read 19e5 00cb | | Action Pop_Block_With_Result 19e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 19e7 0100 | | Execute Exception,Raise 19e8 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 19ec 0000 0000 | | .BLANK 0000[0x4] 19f0 ; -------------------------------------------------------------------------------------- 19f0 ; SUBPROGRAM 19f0 ; -------------------------------------------------------------------------------------- 19f0 19f3 | | .CONST 0x19f3 ; Address of begin 19f1 19fc | | .CONST 0x19fc ; Address of exception handler 19f2 0001 | | .CONST 0x0001 ; Number of locals 19f3 BODY_19f0: 19f3 INIT_19f0: 19f3 e404 | | Load 0x2,0x4 19f4 e405 | | Load 0x2,0x5 19f5 82bc | | Call 0x1,0xbc 19f6 e406 | | Load 0x2,0x6 19f7 e402 | | Load 0x2,0x2 19f8 01dc | | Execute Vector,Last 19f9 e402 | | Load 0x2,0x2 19fa 01ce | | Execute Vector,Slice_Write 19fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19fc TRAP_19f0: 19fc 4884 |H | Short_Literal 0x84 19fd 010f | | Execute Exception,Equal 19fe 6807 |h | Jump_Zero 0x1a06 19ff 4800 |H | Short_Literal 0x0 1a00 e406 | | Load 0x2,0x6 1a01 0aff | | Execute_Immediate Plus,-0x1 1a02 e402 | | Load 0x2,0x2 1a03 01cf | | Execute Vector,Slice_Read 1a04 00cb | | Action Pop_Block_With_Result 1a05 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1a06 0100 | | Execute Exception,Raise 1a07 0000 | | .XXX[0x1] 1a08 ; -------------------------------------------------------------------------------------- 1a08 ; SUBPROGRAM 1a08 ; -------------------------------------------------------------------------------------- 1a08 1a0b | | .CONST 0x1a0b ; Address of begin 1a09 1a1d | | .CONST 0x1a1d ; Address of exception handler 1a0a 0001 | | .CONST 0x0001 ; Number of locals 1a0b BODY_1a08: 1a0b INIT_1a08: 1a0b 4804 |H | Short_Literal 0x4 1a0c e5ff | | Load 0x2,-0x1 1a0d e402 | | Load 0x2,0x2 1a0e 4803 |H | Short_Literal 0x3 1a0f 4802 |H | Short_Literal 0x2 1a10 0099 | | Action Reference_Dynamic 1a11 e01b | | Load 0x0,0x1b 1a12 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1a13 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a14 e406 | | Load 0x2,0x6 1a15 01d4 | | Execute Vector,Structure_Write 1a16 e406 | | Load 0x2,0x6 1a17 e2c0 | | Load 0x1,0xc0 1a18 e2c1 | | Load 0x1,0xc1 1a19 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2 1a1a 8002 | | Call 0x0,0x2 1a1b 00cb | | Action Pop_Block_With_Result 1a1c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1a1d TRAP_1a08: 1a1d 4884 |H | Short_Literal 0x84 1a1e 010f | | Execute Exception,Equal 1a1f 6802 |h | Jump_Zero 0x1a22 1a20 0008 | | Action Idle 1a21 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a22 00d8 | | Load_Top At_Offset_0 1a23 0101 | | Execute Exception,Reraise 1a24 0000 0000 | | .BLANK 0000[0x4] 1a28 ; -------------------------------------------------------------------------------------- 1a28 ; SUBPROGRAM 1a28 ; -------------------------------------------------------------------------------------- 1a28 1a2b | + | .CONST 0x1a2b ; Address of begin 1a29 1a42 | B | .CONST 0x1a42 ; Address of exception handler 1a2a 0001 | | .CONST 0x0001 ; Number of locals 1a2b BODY_1a28: 1a2b INIT_1a28: 1a2b 4804 |H | Short_Literal 0x4 1a2c e5ff | | Load 0x2,-0x1 1a2d e405 | | Load 0x2,0x5 1a2e 4806 |H | Short_Literal 0x6 1a2f 4802 |H | Short_Literal 0x2 1a30 0099 | | Action Reference_Dynamic 1a31 e01b | | Load 0x0,0x1b 1a32 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1a33 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a34 4840 |H@ | Short_Literal 0x40 1a35 e403 | | Load 0x2,0x3 1a36 0272 | r | Execute Discrete,Minus 1a37 0a01 | | Execute_Immediate Plus,0x1 1a38 4840 |H@ | Short_Literal 0x40 1a39 e402 | | Load 0x2,0x2 1a3a 01ce | | Execute Vector,Slice_Write 1a3b e402 | | Load 0x2,0x2 1a3c e276 | v | Load 0x1,0x76 1a3d e277 | w | Load 0x1,0x77 1a3e 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 1a3f 8002 | | Call 0x0,0x2 1a40 00cb | | Action Pop_Block_With_Result 1a41 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1a42 TRAP_1a28: 1a42 4884 |H | Short_Literal 0x84 1a43 010f | | Execute Exception,Equal 1a44 6802 |h | Jump_Zero 0x1a47 1a45 0008 | | Action Idle 1a46 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a47 00d8 | | Load_Top At_Offset_0 1a48 0101 | | Execute Exception,Reraise 1a49 0000 0000 | | .BLANK 0000[0x7] 1a50 ; -------------------------------------------------------------------------------------- 1a50 ; SUBPROGRAM 1a50 ; -------------------------------------------------------------------------------------- 1a50 1a53 | S | .CONST 0x1a53 ; Address of begin 1a51 1a5d | ] | .CONST 0x1a5d ; Address of exception handler 1a52 0001 | | .CONST 0x0001 ; Number of locals 1a53 BODY_1a50: 1a53 INIT_1a50: 1a53 e405 | | Load 0x2,0x5 1a54 480a |H | Short_Literal 0xa 1a55 e7ff | | Load 0x3,-0x1 1a56 01cb | | Execute Vector,Append 1a57 e402 | | Load 0x2,0x2 1a58 01cc | | Execute Vector,Catenate 1a59 e05c | \ | Load 0x0,0x5c 1a5a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1a5b 00d1 | | Pop_Control Pop_Count_1 1a5c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1a5d TRAP_1a50: 1a5d 010e | | Execute Exception,Is_Constraint_Error 1a5e 6802 |h | Jump_Zero 0x1a61 1a5f 0008 | | Action Idle 1a60 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1a61 0100 | | Execute Exception,Raise 1a62 0000 0000 | | .BLANK 0000[0x6] 1a68 ; -------------------------------------------------------------------------------------- 1a68 ; SUBPROGRAM 1a68 ; -------------------------------------------------------------------------------------- 1a68 1a6b | k | .CONST 0x1a6b ; Address of begin 1a69 1a76 | v | .CONST 0x1a76 ; Address of exception handler 1a6a 0001 | | .CONST 0x0001 ; Number of locals 1a6b BODY_1a68: 1a6b INIT_1a68: 1a6b e5ff | | Load 0x2,-0x1 1a6c 00d8 | | Load_Top At_Offset_0 1a6d 00e1 | | Load_Encached Boolean_Cache 1a6e 0260 | ` | Execute Discrete,In_Type 1a6f 7001 |p | Jump_Nonzero 0x1a71 1a70 08e0 | | Execute_Immediate Raise,0xe0 1a71 00e1 | | Load_Encached Boolean_Cache 1a72 025e | ^ | Execute Discrete,Convert 1a73 1c01 | | Execute_Immediate Run_Utility,0x1 1a74 00cb | | Action Pop_Block_With_Result 1a75 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 1a76 TRAP_1a68: 1a76 010e | | Execute Exception,Is_Constraint_Error 1a77 6803 |h | Jump_Zero 0x1a7b 1a78 e31d | | Load 0x1,0x11d 1a79 00cb | | Action Pop_Block_With_Result 1a7a 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 1a7b 0100 | | Execute Exception,Raise 1a7c 0000 0000 | | .BLANK 0000[0x4] 1a80 ; -------------------------------------------------------------------------------------- 1a80 ; SUBPROGRAM 1a80 ; -------------------------------------------------------------------------------------- 1a80 1a9c | | .CONST 0x1a9c ; Address of begin 1a81 0004 | | .CONST 0x0004 ; Address of exception handler 1a82 0013 | | .CONST 0x0013 ; Number of locals 1a83 INIT_1a80: 1a83 e001 | | Load 0x0,0x1 1a84 1bb0 | | Execute Package,Field_Read,Field_Number 0xb0 1a85 0129 | ) | Execute Any,Make_Visible 1a86 e001 | | Load 0x0,0x1 1a87 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 1a88 0129 | ) | Execute Any,Make_Visible 1a89 e001 | | Load 0x0,0x1 1a8a 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 1a8b 0129 | ) | Execute Any,Make_Visible 1a8c e001 | | Load 0x0,0x1 1a8d 1baf | | Execute Package,Field_Read,Field_Number 0xaf 1a8e 0129 | ) | Execute Any,Make_Visible 1a8f 029a 1aa3 | | Declare_Subprogram INIT_1aa0,For_Outer_Call,Visible,Unelaborated 1a91 029a 1ab3 | | Declare_Subprogram INIT_1ab0,For_Outer_Call,Visible,Unelaborated 1a93 029a 1abb | | Declare_Subprogram INIT_1ab8,For_Outer_Call,Visible,Unelaborated 1a95 00bf | | Action Accept_Activation 1a96 1d12 | | Execute_Immediate Reference_Lex_1,0x12 1a97 00c7 | | Action Elaborate_Subprogram 1a98 1d13 | | Execute_Immediate Reference_Lex_1,0x13 1a99 00c7 | | Action Elaborate_Subprogram 1a9a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 1a9b 00c7 | | Action Elaborate_Subprogram 1a9c BODY_1a80: 1a9c 00bc | | Action Signal_Activated 1a9d 00bb | | Action Signal_Completion 1a9e 0000 0000 | | .XXX[0x2] 1aa0 ; -------------------------------------------------------------------------------------- 1aa0 ; SUBPROGRAM 1aa0 ; -------------------------------------------------------------------------------------- 1aa0 1aa3 | | .CONST 0x1aa3 ; Address of begin 1aa1 0004 | | .CONST 0x0004 ; Address of exception handler 1aa2 0001 | | .CONST 0x0001 ; Number of locals 1aa3 BODY_1aa0: 1aa3 INIT_1aa0: 1aa3 00db | | Load_Top At_Offset_3 1aa4 00db | | Load_Top At_Offset_3 1aa5 4820 |H | Short_Literal 0x20 1aa6 0251 | Q | Execute Discrete,Logical_Shift 1aa7 0278 | x | Execute Discrete,Or 1aa8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1aa9 0831 | 1 | .XXX[0x1] 1aaa 0000 0000 | | .BLANK 0000[0x6] 1ab0 ; -------------------------------------------------------------------------------------- 1ab0 ; SUBPROGRAM 1ab0 ; -------------------------------------------------------------------------------------- 1ab0 1ab3 | | .CONST 0x1ab3 ; Address of begin 1ab1 0004 | | .CONST 0x0004 ; Address of exception handler 1ab2 0001 | | .CONST 0x0001 ; Number of locals 1ab3 BODY_1ab0: 1ab3 INIT_1ab0: 1ab3 00da | | Load_Top At_Offset_2 1ab4 4fe0 |O | Short_Literal -0x20 1ab5 0251 | Q | Execute Discrete,Logical_Shift 1ab6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1ab7 0831 | 1 | .XXX[0x1] 1ab8 ; -------------------------------------------------------------------------------------- 1ab8 ; SUBPROGRAM 1ab8 ; -------------------------------------------------------------------------------------- 1ab8 1abb | | .CONST 0x1abb ; Address of begin 1ab9 0004 | | .CONST 0x0004 ; Address of exception handler 1aba 0001 | | .CONST 0x0001 ; Number of locals 1abb BODY_1ab8: 1abb INIT_1ab8: 1abb 00da | | Load_Top At_Offset_2 1abc 4820 |H | Short_Literal 0x20 1abd 0251 | Q | Execute Discrete,Logical_Shift 1abe 4fe0 |O | Short_Literal -0x20 1abf 0251 | Q | Execute Discrete,Logical_Shift 1ac0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1ac1 0831 | 1 | .XXX[0x1] 1ac2 ; -------------------------------------------------------------------------------------- 1ac2 ; STRING TABLE 1ac2 ; -------------------------------------------------------------------------------------- 1ac2 005c | \ | .STRTAB 0x005c->0x1af0 ; "INTEGER_TYPE" 1ac3 0066 | f | .STRTAB 0x0066->0x1af6 ; "LONG_INTEGER_TYPE" 1ac4 0075 | u | .STRTAB 0x0075->0x1afe ; "NATURAL_TYPE" 1ac5 007f | | .STRTAB 0x007f->0x1b04 ; "POSITIVE_TYPE" 1ac6 008a | | .STRTAB 0x008a->0x1b0b ; "CHARACTER_TYPE" 1ac7 0096 | | .STRTAB 0x0096->0x1b12 ; "BOOLEAN_TYPE" 1ac8 00a0 | | .STRTAB 0x00a0->0x1b18 ; "FLOAT_TYPE" 1ac9 00a8 | | .STRTAB 0x00a8->0x1b1d ; "DURATION_TYPE" 1aca 00b3 | | .STRTAB 0x00b3->0x1b23 ; "STRING_TYPE" 1acb 00bc | | .STRTAB 0x00bc->0x1b29 ; "OTHER_TYPE" 1acc 00c4 | | .STRTAB 0x00c4->0x1b2e ; " => " 1acd 00c6 | | .STRTAB 0x00c6->0x1b30 ; "..." 1ace 00c7 | | .STRTAB 0x00c7->0x1b31 ; ", " 1acf 00c7 | | .STRTAB 0x00c7->0x1b32 ; "Value\x00not\x00readable" 1ad0 00d7 | | .STRTAB 0x00d7->0x1b3b ; "Field\x00not\x00initialized" 1ad1 00ea | | .STRTAB 0x00ea->0x1b46 ; "Element\x00not\x00initialized" 1ad2 00ff | | .STRTAB 0x00ff->0x1b51 ; "Null\x00string" 1ad3 0108 | | .STRTAB 0x0108->0x1b57 ; "Null\x00vector" 1ad4 0111 | | .STRTAB 0x0111->0x1b5c ; "Field\x00value\x00not\x00readable" 1ad5 0127 | ' | .STRTAB 0x0127->0x1b68 ; "Exception\x00raised\x00reading\x00field\x00value" 1ad6 0149 | I | .STRTAB 0x0149->0x1b7a ; "Element\x00value\x00not\x00readable" 1ad7 0161 | a | .STRTAB 0x0161->0x1b87 ; "Exception\x00raised\x00readingelement\x00value" 1ad8 0184 | | .STRTAB 0x0184->0x1b9a ; "Uninitialized\x00boolean\x00value" 1ad9 019d | | .STRTAB 0x019d->0x1ba7 ; "Uninitialized\x00character\x00value" 1ada 01b8 | | .STRTAB 0x01b8->0x1bb6 ; "Object\x00too\x00big" 1adb 01c4 | | .STRTAB 0x01c4->0x1bbd ; "Multi-dimensional\x00array" 1adc 01d9 | | .STRTAB 0x01d9->0x1bc8 ; "Inner_" 1add 01dd | | .STRTAB 0x01dd->0x1bcb ; " = " 1ade 01de | | .STRTAB 0x01de->0x1bcd ; "Value not readable" 1adf 01ee | | .STRTAB 0x01ee->0x1bd6 ; "Exception raised: " 1ae0 01fe | | .STRTAB 0x01fe->0x1bdf ; ".." 1ae1 01fe | | .STRTAB 0x01fe->0x1be0 ; ", )" 1ae2 01ff | | .STRTAB 0x01ff->0x1be1 ; ")" 1ae3 01fe | | .STRTAB 0x01fe->0x1be2 ; ": " 1ae4 01fe | | .STRTAB 0x01fe->0x1be3 ; "#" 1ae5 01fd | | .STRTAB 0x01fd->0x1be3 ; "->" 1ae6 01fd | | .STRTAB 0x01fd->0x1be4 ; "(" 1ae7 01fc | | .STRTAB 0x01fc->0x1be5 ; "()" 1ae8 01fc | | .STRTAB 0x01fc->0x1be6 ; "F" 1ae9 01fb | | .STRTAB 0x01fb->0x1be6 ; "Anon_Inner_Rec => (" 1aea 020c | | .STRTAB 0x020c->0x1bf0 ; "\x22\x22" 1aeb 020c | | .STRTAB 0x020c->0x1bf1 ; "null" 1aec 020e | | .STRTAB 0x020e->0x1bf3 ; "ASCII." 1aed 0212 | | .STRTAB 0x0212->0x1bf6 ; "'\x1b" 1aee 0212 | | .STRTAB 0x0212->0x1bf7 ; "'" 1aef 0211 | | .STREND 0x0211->0x1bf7 1af0 494e 5445 |INTE| .STRTAB_STRINGS 1bf8 ; -------------------------------------------------------------------------------------- 1bf8 ; Debug Table 1bf8 ; -------------------------------------------------------------------------------------- 1bf8 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb77,0x0000,0x0001,0x0000 1bfe 0000 0000 | | .XXX[0x2]