|
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: 15360 (0x3c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 1ca8 | | .CONST 0x1ca8 ; 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 8011 | | .CONST 0x8011 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01c9 | | .CONST 0x01c9 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00ad | | .CONST 0x00ad ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c e001 | | Load 0x0,0x1 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 00e9 | | Load_Encached String_Cache 000f 029f 1a4b | K| Declare_Subprogram INIT_1a48,For_Call 0011 4800 |H | Short_Literal 0x0 0012 4801 |H | Short_Literal 0x1 0013 4801 |H | Short_Literal 0x1 0014 4800 |H | Short_Literal 0x0 0015 4801 |H | Short_Literal 0x1 0016 4801 |H | Short_Literal 0x1 0017 031e | | Declare_Type Variant_Record,Defined,Visible 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 00c4 | | Action Make_Default 0063 00c4 | | Action Make_Default 0064 00c4 | | Action Make_Default 0065 00c4 | | Action Make_Default 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 00c4 | | Action Make_Default 0069 00c4 | | Action Make_Default 006a 00c4 | | Action Make_Default 006b 00c4 | | Action Make_Default 006c 00c4 | | Action Make_Default 006d 00c4 | | Action Make_Default 006e 00c4 | | Action Make_Default 006f 00c4 | | Action Make_Default 0070 00c4 | | Action Make_Default 0071 00c4 | | Action Make_Default 0072 00c4 | | Action Make_Default 0073 00c4 | | Action Make_Default 0074 00c4 | | Action Make_Default 0075 00c4 | | Action Make_Default 0076 00c4 | | Action Make_Default 0077 00c4 | | Action Make_Default 0078 00c4 | | Action Make_Default 0079 00c4 | | Action Make_Default 007a 00c4 | | Action Make_Default 007b 00c4 | | Action Make_Default 007c 00c4 | | Action Make_Default 007d 00c4 | | Action Make_Default 007e 00c4 | | Action Make_Default 007f 00c4 | | Action Make_Default 0080 00c4 | | Action Make_Default 0081 00c4 | | Action Make_Default 0082 00c4 | | Action Make_Default 0083 00c4 | | Action Make_Default 0084 00c4 | | Action Make_Default 0085 00c4 | | Action Make_Default 0086 00c4 | | Action Make_Default 0087 00c4 | | Action Make_Default 0088 00c4 | | Action Make_Default 0089 00c4 | | Action Make_Default 008a 00c4 | | Action Make_Default 008b 00c4 | | Action Make_Default 008c 00c4 | | Action Make_Default 008d 00c4 | | Action Make_Default 008e 00c4 | | Action Make_Default 008f 00c4 | | Action Make_Default 0090 00c4 | | Action Make_Default 0091 00c4 | | Action Make_Default 0092 00c4 | | Action Make_Default 0093 00c4 | | Action Make_Default 0094 00c4 | | Action Make_Default 0095 00c4 | | Action Make_Default 0096 00c4 | | Action Make_Default 0097 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0099 c27e | ~ | Store 0x1,0x7e 009a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 009c c27f | | Store 0x1,0x7f 009d 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 009f c280 | | Store 0x1,0x80 00a0 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 00a2 c281 | | Store 0x1,0x81 00a3 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 00a5 c227 | ' | Store 0x1,0x27 00a6 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 00a8 c228 | ( | Store 0x1,0x28 00a9 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 00ab c229 | ) | Store 0x1,0x29 00ac 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 00ae c22a | * | Store 0x1,0x2a 00af 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated 00b1 c22b | + | Store 0x1,0x2b 00b2 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 00b4 c22c | , | Store 0x1,0x2c 00b5 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated 00b7 c278 | x | Store 0x1,0x78 00b8 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated 00ba c277 | w | Store 0x1,0x77 00bb 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 00bd c288 | | Store 0x1,0x88 00be 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated 00c0 c289 | | Store 0x1,0x89 00c1 029a 0983 | | Declare_Subprogram INIT_0980,For_Outer_Call,Visible,Unelaborated 00c3 c28a | | Store 0x1,0x8a 00c4 029a 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call,Visible,Unelaborated 00c6 c28b | | Store 0x1,0x8b 00c7 029a 0ab3 | | Declare_Subprogram INIT_0ab0,For_Outer_Call,Visible,Unelaborated 00c9 c231 | 1 | Store 0x1,0x31 00ca 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated 00cc c232 | 2 | Store 0x1,0x32 00cd 029a 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call,Visible,Unelaborated 00cf c286 | | Store 0x1,0x86 00d0 029a 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call,Visible,Unelaborated 00d2 c279 | y | Store 0x1,0x79 00d3 029a 0cb3 | | Declare_Subprogram INIT_0cb0,For_Outer_Call,Visible,Unelaborated 00d5 c265 | e | Store 0x1,0x65 00d6 029a 0d03 | | Declare_Subprogram INIT_0d00,For_Outer_Call,Visible,Unelaborated 00d8 c25a | Z | Store 0x1,0x5a 00d9 029a 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call,Visible,Unelaborated 00db c245 | E | Store 0x1,0x45 00dc 029a 0e23 | #| Declare_Subprogram INIT_0e20,For_Outer_Call,Visible,Unelaborated 00de c266 | f | Store 0x1,0x66 00df 029a 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call,Visible,Unelaborated 00e1 c267 | g | Store 0x1,0x67 00e2 029a 0e83 | | Declare_Subprogram INIT_0e80,For_Outer_Call,Visible,Unelaborated 00e4 c26a | j | Store 0x1,0x6a 00e5 029a 0e9b | | Declare_Subprogram INIT_0e98,For_Outer_Call,Visible,Unelaborated 00e7 c25d | ] | Store 0x1,0x5d 00e8 029a 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call,Visible,Unelaborated 00ea c25e | ^ | Store 0x1,0x5e 00eb 029a 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Visible,Unelaborated 00ed c25f | _ | Store 0x1,0x5f 00ee 029a 0f33 | 3| Declare_Subprogram INIT_0f30,For_Outer_Call,Visible,Unelaborated 00f0 c270 | p | Store 0x1,0x70 00f1 029a 0f53 | S| Declare_Subprogram INIT_0f50,For_Outer_Call,Visible,Unelaborated 00f3 c271 | q | Store 0x1,0x71 00f4 029a 0f7b | {| Declare_Subprogram INIT_0f78,For_Outer_Call,Visible,Unelaborated 00f6 c273 | s | Store 0x1,0x73 00f7 029a 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call,Visible,Unelaborated 00f9 c260 | ` | Store 0x1,0x60 00fa 029a 0fcb | | Declare_Subprogram INIT_0fc8,For_Outer_Call,Visible,Unelaborated 00fc c261 | a | Store 0x1,0x61 00fd e001 | | Load 0x0,0x1 00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ff 4801 |H | Short_Literal 0x1 0100 4880 |H | Short_Literal 0x80 0101 00e9 | | Load_Encached String_Cache 0102 035c | \ | Declare_Type Array,Constrained,Visible 0103 00e3 | | Load_Encached Natural_Cache 0104 4801 |H | Short_Literal 0x1 0105 4880 |H | Short_Literal 0x80 0106 00e9 | | Load_Encached String_Cache 0107 035c | \ | Declare_Type Array,Constrained,Visible 0108 00e3 | | Load_Encached Natural_Cache 0109 4801 |H | Short_Literal 0x1 010a 4880 |H | Short_Literal 0x80 010b 00e9 | | Load_Encached String_Cache 010c 035c | \ | Declare_Type Array,Constrained,Visible 010d 00e3 | | Load_Encached Natural_Cache 010e 4801 |H | Short_Literal 0x1 010f 4880 |H | Short_Literal 0x80 0110 00e9 | | Load_Encached String_Cache 0111 035c | \ | Declare_Type Array,Constrained,Visible 0112 00e3 | | Load_Encached Natural_Cache 0113 029f 1a73 | s| Declare_Subprogram INIT_1a70,For_Call 0115 4809 |H | Short_Literal 0x9 0116 032e | . | Declare_Type Record,Defined,Visible 0117 c26f | o | Store 0x1,0x6f 0118 029a 0ffb | | Declare_Subprogram INIT_0ff8,For_Outer_Call,Visible,Unelaborated 011a c250 | P | Store 0x1,0x50 011b 029a 1013 | | Declare_Subprogram INIT_1010,For_Outer_Call,Visible,Unelaborated 011d c27d | } | Store 0x1,0x7d 011e 029a 1063 | c| Declare_Subprogram INIT_1060,For_Outer_Call,Visible,Unelaborated 0120 c26d | m | Store 0x1,0x6d 0121 029a 10c3 | | Declare_Subprogram INIT_10c0,For_Outer_Call,Visible,Unelaborated 0123 c26e | n | Store 0x1,0x6e 0124 029a 1123 | #| Declare_Subprogram INIT_1120,For_Outer_Call,Visible,Unelaborated 0126 c28c | | Store 0x1,0x8c 0127 029a 11eb | | Declare_Subprogram INIT_11e8,For_Outer_Call,Visible,Unelaborated 0129 c283 | | Store 0x1,0x83 012a 029a 128b | | Declare_Subprogram INIT_1288,For_Outer_Call,Visible,Unelaborated 012c c284 | | Store 0x1,0x84 012d 029a 12bb | | Declare_Subprogram INIT_12b8,For_Outer_Call,Visible,Unelaborated 012f c287 | | Store 0x1,0x87 0130 00bf | | Action Accept_Activation 0131 00e1 | | Load_Encached Boolean_Cache 0132 02a0 | | Declare_Subprogram Null_Subprogram 0133 4801 |H | Short_Literal 0x1 0134 032d | - | Declare_Type Record,Defined 0135 0092 1ac9 | | Action Push_String_Extended,0x1ac9 ; "secondary_" 0137 0092 1aca | | Action Push_String_Extended,0x1aca ; "<secondary_[@,~state]>" 0139 029d 12db | | Declare_Subprogram INIT_12d8,For_Outer_Call 013b 029d 12eb | | Declare_Subprogram INIT_12e8,For_Outer_Call 013d 029d 12fb | | Declare_Subprogram INIT_12f8,For_Outer_Call 013f 029d 1333 | 3| Declare_Subprogram INIT_1330,For_Outer_Call 0141 029d 1343 | C| Declare_Subprogram INIT_1340,For_Outer_Call 0143 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call 0145 029d 1373 | s| Declare_Subprogram INIT_1370,For_Outer_Call 0147 029d 138b | | Declare_Subprogram INIT_1388,For_Outer_Call 0149 029d 13bb | | Declare_Subprogram INIT_13b8,For_Outer_Call 014b 029d 1403 | | Declare_Subprogram INIT_1400,For_Outer_Call 014d 029d 143b | ;| Declare_Subprogram INIT_1438,For_Outer_Call 014f 029d 144b | K| Declare_Subprogram INIT_1448,For_Outer_Call 0151 029d 1473 | s| Declare_Subprogram INIT_1470,For_Outer_Call 0153 029d 147b | {| Declare_Subprogram INIT_1478,For_Outer_Call 0155 029d 148b | | Declare_Subprogram INIT_1488,For_Outer_Call 0157 029d 149b | | Declare_Subprogram INIT_1498,For_Outer_Call 0159 029d 14a3 | | Declare_Subprogram INIT_14a0,For_Outer_Call 015b 029d 14ab | | Declare_Subprogram INIT_14a8,For_Outer_Call 015d 029d 14e3 | | Declare_Subprogram INIT_14e0,For_Outer_Call 015f 029d 14f3 | | Declare_Subprogram INIT_14f0,For_Outer_Call 0161 029d 1543 | C| Declare_Subprogram INIT_1540,For_Outer_Call 0163 029d 1593 | | Declare_Subprogram INIT_1590,For_Outer_Call 0165 029d 15d3 | | Declare_Subprogram INIT_15d0,For_Outer_Call 0167 029d 160b | | Declare_Subprogram INIT_1608,For_Outer_Call 0169 029d 163b | ;| Declare_Subprogram INIT_1638,For_Outer_Call 016b 029d 1673 | s| Declare_Subprogram INIT_1670,For_Outer_Call 016d 029d 16f3 | | Declare_Subprogram INIT_16f0,For_Outer_Call 016f 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 0170 00c7 | | Action Elaborate_Subprogram 0171 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 0172 00c7 | | Action Elaborate_Subprogram 0173 1d80 | | Execute_Immediate Reference_Lex_1,0x80 0174 00c7 | | Action Elaborate_Subprogram 0175 1d81 | | Execute_Immediate Reference_Lex_1,0x81 0176 00c7 | | Action Elaborate_Subprogram 0177 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0178 00c7 | | Action Elaborate_Subprogram 0179 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 017a 00c7 | | Action Elaborate_Subprogram 017b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 017c 00c7 | | Action Elaborate_Subprogram 017d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 017e 00c7 | | Action Elaborate_Subprogram 017f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0180 00c7 | | Action Elaborate_Subprogram 0181 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0182 00c7 | | Action Elaborate_Subprogram 0183 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 0184 00c7 | | Action Elaborate_Subprogram 0185 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 0186 00c7 | | Action Elaborate_Subprogram 0187 029d 175b | [| Declare_Subprogram INIT_1758,For_Outer_Call 0189 029d 1783 | | Declare_Subprogram INIT_1780,For_Outer_Call 018b 1d88 | | Execute_Immediate Reference_Lex_1,0x88 018c 00c7 | | Action Elaborate_Subprogram 018d 1d89 | | Execute_Immediate Reference_Lex_1,0x89 018e 00c7 | | Action Elaborate_Subprogram 018f 1d8a | | Execute_Immediate Reference_Lex_1,0x8a 0190 00c7 | | Action Elaborate_Subprogram 0191 1d8b | | Execute_Immediate Reference_Lex_1,0x8b 0192 00c7 | | Action Elaborate_Subprogram 0193 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0194 00c7 | | Action Elaborate_Subprogram 0195 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0196 00c7 | | Action Elaborate_Subprogram 0197 1d86 | | Execute_Immediate Reference_Lex_1,0x86 0198 00c7 | | Action Elaborate_Subprogram 0199 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 019a 00c7 | | Action Elaborate_Subprogram 019b 1d65 | e | Execute_Immediate Reference_Lex_1,0x65 019c 00c7 | | Action Elaborate_Subprogram 019d 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 019e 00c7 | | Action Elaborate_Subprogram 019f 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 01a0 00c7 | | Action Elaborate_Subprogram 01a1 029d 179b | | Declare_Subprogram INIT_1798,For_Outer_Call 01a3 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 01a4 00c7 | | Action Elaborate_Subprogram 01a5 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 01a6 00c7 | | Action Elaborate_Subprogram 01a7 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 01a8 00c7 | | Action Elaborate_Subprogram 01a9 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 01aa 00c7 | | Action Elaborate_Subprogram 01ab 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 01ac 00c7 | | Action Elaborate_Subprogram 01ad 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 01ae 00c7 | | Action Elaborate_Subprogram 01af 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 01b0 00c7 | | Action Elaborate_Subprogram 01b1 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 01b2 00c7 | | Action Elaborate_Subprogram 01b3 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 01b4 00c7 | | Action Elaborate_Subprogram 01b5 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 01b6 00c7 | | Action Elaborate_Subprogram 01b7 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 01b8 00c7 | | Action Elaborate_Subprogram 01b9 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01ba 00c7 | | Action Elaborate_Subprogram 01bb 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 01bc 00c7 | | Action Elaborate_Subprogram 01bd 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01be 00c7 | | Action Elaborate_Subprogram 01bf 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 01c0 00c7 | | Action Elaborate_Subprogram 01c1 1d8c | | Execute_Immediate Reference_Lex_1,0x8c 01c2 00c7 | | Action Elaborate_Subprogram 01c3 1d83 | | Execute_Immediate Reference_Lex_1,0x83 01c4 00c7 | | Action Elaborate_Subprogram 01c5 1d84 | | Execute_Immediate Reference_Lex_1,0x84 01c6 00c7 | | Action Elaborate_Subprogram 01c7 1d87 | | Execute_Immediate Reference_Lex_1,0x87 01c8 00c7 | | Action Elaborate_Subprogram 01c9 BODY_0008: 01c9 00bc | | Action Signal_Activated 01ca 00bb | | Action Signal_Completion 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01e3 | | .CONST 0x01e3 ; Address of begin 01d1 021f | | .CONST 0x021f ; Address of exception handler 01d2 0004 | | .CONST 0x0004 ; Number of locals 01d3 INIT_01d0: 01d3 e002 | | Load 0x0,0x2 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 e001 | | Load 0x0,0x1 01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01d8 e003 | | Load 0x0,0x3 01d9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 01da 0322 | " | Declare_Variable Record 01db e5fd | | Load 0x2,-0x3 01dc e5fe | | Load 0x2,-0x2 01dd e004 | | Load 0x0,0x4 01de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01df e003 | | Load 0x0,0x3 01e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01e1 00d9 | | Load_Top At_Offset_1 01e2 017d | } | Execute Record,Structure_Write 01e3 BODY_01d0: 01e3 4800 |H | Short_Literal 0x0 01e4 a5fc | | Store_Unchecked 0x2,-0x4 01e5 e5fd | | Load 0x2,-0x3 01e6 0092 1acb | | Action Push_String_Extended,0x1acb ; "Rcf_Unit.Display_Unit_Options" 01e8 e005 | | Load 0x0,0x5 01e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ea e001 | | Load 0x0,0x1 01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ec e002 | | Load 0x0,0x2 01ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ee e5fd | | Load 0x2,-0x3 01ef 4800 |H | Short_Literal 0x0 01f0 4801 |H | Short_Literal 0x1 01f1 4800 |H | Short_Literal 0x0 01f2 e404 | | Load 0x2,0x4 01f3 e5ff | | Load 0x2,-0x1 01f4 e002 | | Load 0x0,0x2 01f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01f6 c402 | | Store 0x2,0x2 01f7 005a | Z | Store_Top Discrete,At_Offset_2 01f8 4800 |H | Short_Literal 0x0 01f9 00da | | Load_Top At_Offset_2 01fa e001 | | Load 0x0,0x1 01fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01fc 7003 |p | Jump_Nonzero 0x200 01fd 00d9 | | Load_Top At_Offset_1 01fe a5fc | | Store_Unchecked 0x2,-0x4 01ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0200 00da | | Load_Top At_Offset_2 0201 e002 | | Load 0x0,0x2 0202 180f | | Execute Package,Field_Execute,Field_Number 0xf 0203 680d |h | Jump_Zero 0x211 0204 e5fd | | Load 0x2,-0x3 0205 e006 | | Load 0x0,0x6 0206 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0207 6044 |`D | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147} 0208 e001 | | Load 0x0,0x1 0209 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 020a e006 | | Load 0x0,0x6 020b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 020c 603f |`? | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147} 020d e001 | | Load 0x0,0x1 020e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 020f a5fc | | Store_Unchecked 0x2,-0x4 0210 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0211 00da | | Load_Top At_Offset_2 0212 e5fd | | Load 0x2,-0x3 0213 e5fe | | Load 0x2,-0x2 0214 e007 | | Load 0x0,0x7 0215 180d | | Execute Package,Field_Execute,Field_Number 0xd 0216 e001 | | Load 0x0,0x1 0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0218 00db | | Load_Top At_Offset_3 0219 e5fd | | Load 0x2,-0x3 021a e002 | | Load 0x0,0x2 021b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 021c c402 | | Store 0x2,0x2 021d c5fc | | Store 0x2,-0x4 021e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 021f TRAP_01d0: 021f e001 | | Load 0x0,0x1 0220 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0221 010f | | Execute Exception,Equal 0222 6810 |h | Jump_Zero 0x233 0223 e001 | | Load 0x0,0x1 0224 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0225 a5fc | | Store_Unchecked 0x2,-0x4 0226 00db | | Load_Top At_Offset_3 0227 e002 | | Load 0x0,0x2 0228 180f | | Execute Package,Field_Execute,Field_Number 0xf 0229 7008 |p | Jump_Nonzero 0x232 022a e001 | | Load 0x0,0x1 022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022c e402 | | Load 0x2,0x2 022d e5fd | | Load 0x2,-0x3 022e e002 | | Load 0x0,0x2 022f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0230 c402 | | Store 0x2,0x2 0231 005b | [ | Store_Top Discrete,At_Offset_3 0232 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0233 e5fd | | Load 0x2,-0x3 0234 0092 1acb | | Action Push_String_Extended,0x1acb ; "Rcf_Unit.Display_Unit_Options" 0236 e005 | | Load 0x0,0x5 0237 180f | | Execute Package,Field_Execute,Field_Number 0xf 0238 0092 1acb | | Action Push_String_Extended,0x1acb ; "Rcf_Unit.Display_Unit_Options" 023a e005 | | Load 0x0,0x5 023b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023c a5fc | | Store_Unchecked 0x2,-0x4 023d 00db | | Load_Top At_Offset_3 023e e002 | | Load 0x0,0x2 023f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0240 7008 |p | Jump_Nonzero 0x249 0241 e001 | | Load 0x0,0x1 0242 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0243 e402 | | Load 0x2,0x2 0244 e5fd | | Load 0x2,-0x3 0245 e002 | | Load 0x0,0x2 0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0247 c402 | | Store 0x2,0x2 0248 005b | [ | Store_Top Discrete,At_Offset_3 0249 4504 |E | Exit_Suprogram New_Top_Offset 0x4 024a 0000 0000 | | .XXX[0x2] 024c 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0263 | c | .CONST 0x0263 ; Address of begin 0251 02a1 | | .CONST 0x02a1 ; Address of exception handler 0252 0004 | | .CONST 0x0004 ; Number of locals 0253 INIT_0250: 0253 e002 | | Load 0x0,0x2 0254 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0255 e001 | | Load 0x0,0x1 0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0257 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0258 e003 | | Load 0x0,0x3 0259 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 025a 0322 | " | Declare_Variable Record 025b e5fb | | Load 0x2,-0x5 025c e5fe | | Load 0x2,-0x2 025d e004 | | Load 0x0,0x4 025e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 025f e003 | | Load 0x0,0x3 0260 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0261 00d9 | | Load_Top At_Offset_1 0262 017d | } | Execute Record,Structure_Write 0263 BODY_0250: 0263 e5fb | | Load 0x2,-0x5 0264 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 0266 e005 | | Load 0x0,0x5 0267 180e | | Execute Package,Field_Execute,Field_Number 0xe 0268 4800 |H | Short_Literal 0x0 0269 a5fa | | Store_Unchecked 0x2,-0x6 026a e001 | | Load 0x0,0x1 026b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026c e002 | | Load 0x0,0x2 026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026e e5fb | | Load 0x2,-0x5 026f 4800 |H | Short_Literal 0x0 0270 4801 |H | Short_Literal 0x1 0271 4801 |H | Short_Literal 0x1 0272 e404 | | Load 0x2,0x4 0273 e5ff | | Load 0x2,-0x1 0274 e002 | | Load 0x0,0x2 0275 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0276 c402 | | Store 0x2,0x2 0277 005a | Z | Store_Top Discrete,At_Offset_2 0278 4800 |H | Short_Literal 0x0 0279 00da | | Load_Top At_Offset_2 027a e001 | | Load 0x0,0x1 027b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 027c 7003 |p | Jump_Nonzero 0x280 027d 00d9 | | Load_Top At_Offset_1 027e a5fa | | Store_Unchecked 0x2,-0x6 027f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0280 00da | | Load_Top At_Offset_2 0281 e002 | | Load 0x0,0x2 0282 180f | | Execute Package,Field_Execute,Field_Number 0xf 0283 680d |h | Jump_Zero 0x291 0284 e5fb | | Load 0x2,-0x5 0285 e006 | | Load 0x0,0x6 0286 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0287 67c4 |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147} 0288 e001 | | Load 0x0,0x1 0289 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 028a e006 | | Load 0x0,0x6 028b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 028c 67bf |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147} 028d e001 | | Load 0x0,0x1 028e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 028f a5fa | | Store_Unchecked 0x2,-0x6 0290 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0291 00da | | Load_Top At_Offset_2 0292 e5fb | | Load 0x2,-0x5 0293 e5fc | | Load 0x2,-0x4 0294 e5fd | | Load 0x2,-0x3 0295 e5fe | | Load 0x2,-0x2 0296 e007 | | Load 0x0,0x7 0297 180e | | Execute Package,Field_Execute,Field_Number 0xe 0298 e001 | | Load 0x0,0x1 0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029a 00db | | Load_Top At_Offset_3 029b e5fb | | Load 0x2,-0x5 029c e002 | | Load 0x0,0x2 029d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 029e c402 | | Store 0x2,0x2 029f c5fa | | Store 0x2,-0x6 02a0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02a1 TRAP_0250: 02a1 e001 | | Load 0x0,0x1 02a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a3 010f | | Execute Exception,Equal 02a4 6810 |h | Jump_Zero 0x2b5 02a5 e001 | | Load 0x0,0x1 02a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02a7 a5fa | | Store_Unchecked 0x2,-0x6 02a8 00db | | Load_Top At_Offset_3 02a9 e002 | | Load 0x0,0x2 02aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ab 7008 |p | Jump_Nonzero 0x2b4 02ac e001 | | Load 0x0,0x1 02ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ae e402 | | Load 0x2,0x2 02af e5fb | | Load 0x2,-0x5 02b0 e002 | | Load 0x0,0x2 02b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02b2 c402 | | Store 0x2,0x2 02b3 005b | [ | Store_Top Discrete,At_Offset_3 02b4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02b5 e5fb | | Load 0x2,-0x5 02b6 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 02b8 e005 | | Load 0x0,0x5 02b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ba 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 02bc e005 | | Load 0x0,0x5 02bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02be a5fa | | Store_Unchecked 0x2,-0x6 02bf 00db | | Load_Top At_Offset_3 02c0 e002 | | Load 0x0,0x2 02c1 180f | | Execute Package,Field_Execute,Field_Number 0xf 02c2 7008 |p | Jump_Nonzero 0x2cb 02c3 e001 | | Load 0x0,0x1 02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c5 e402 | | Load 0x2,0x2 02c6 e5fb | | Load 0x2,-0x5 02c7 e002 | | Load 0x0,0x2 02c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02c9 c402 | | Store 0x2,0x2 02ca 005b | [ | Store_Top Discrete,At_Offset_3 02cb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02e3 | | .CONST 0x02e3 ; Address of begin 02d1 0321 | ! | .CONST 0x0321 ; Address of exception handler 02d2 0004 | | .CONST 0x0004 ; Number of locals 02d3 INIT_02d0: 02d3 e002 | | Load 0x0,0x2 02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d5 e001 | | Load 0x0,0x1 02d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02d8 e003 | | Load 0x0,0x3 02d9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02da 0322 | " | Declare_Variable Record 02db e5fb | | Load 0x2,-0x5 02dc e5fe | | Load 0x2,-0x2 02dd e004 | | Load 0x0,0x4 02de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02df e003 | | Load 0x0,0x3 02e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02e1 00d9 | | Load_Top At_Offset_1 02e2 017d | } | Execute Record,Structure_Write 02e3 BODY_02d0: 02e3 e5fb | | Load 0x2,-0x5 02e4 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 02e6 e005 | | Load 0x0,0x5 02e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 02e8 4800 |H | Short_Literal 0x0 02e9 a5fa | | Store_Unchecked 0x2,-0x6 02ea e001 | | Load 0x0,0x1 02eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ec e002 | | Load 0x0,0x2 02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ee e5fb | | Load 0x2,-0x5 02ef 4800 |H | Short_Literal 0x0 02f0 4801 |H | Short_Literal 0x1 02f1 4801 |H | Short_Literal 0x1 02f2 e404 | | Load 0x2,0x4 02f3 e5ff | | Load 0x2,-0x1 02f4 e002 | | Load 0x0,0x2 02f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02f6 c402 | | Store 0x2,0x2 02f7 005a | Z | Store_Top Discrete,At_Offset_2 02f8 4800 |H | Short_Literal 0x0 02f9 00da | | Load_Top At_Offset_2 02fa e001 | | Load 0x0,0x1 02fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 02fc 7003 |p | Jump_Nonzero 0x300 02fd 00d9 | | Load_Top At_Offset_1 02fe a5fa | | Store_Unchecked 0x2,-0x6 02ff 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0300 00da | | Load_Top At_Offset_2 0301 e002 | | Load 0x0,0x2 0302 180f | | Execute Package,Field_Execute,Field_Number 0xf 0303 680d |h | Jump_Zero 0x311 0304 e5fb | | Load 0x2,-0x5 0305 e006 | | Load 0x0,0x6 0306 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0307 6044 |`D | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147} 0308 e001 | | Load 0x0,0x1 0309 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 030a e006 | | Load 0x0,0x6 030b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 030c 603f |`? | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147} 030d e001 | | Load 0x0,0x1 030e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030f a5fa | | Store_Unchecked 0x2,-0x6 0310 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0311 00da | | Load_Top At_Offset_2 0312 e5fb | | Load 0x2,-0x5 0313 e5fc | | Load 0x2,-0x4 0314 e5fd | | Load 0x2,-0x3 0315 e5fe | | Load 0x2,-0x2 0316 e007 | | Load 0x0,0x7 0317 180f | | Execute Package,Field_Execute,Field_Number 0xf 0318 e001 | | Load 0x0,0x1 0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031a 00db | | Load_Top At_Offset_3 031b e5fb | | Load 0x2,-0x5 031c e002 | | Load 0x0,0x2 031d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 031e c402 | | Store 0x2,0x2 031f c5fa | | Store 0x2,-0x6 0320 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0321 TRAP_02d0: 0321 e001 | | Load 0x0,0x1 0322 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0323 010f | | Execute Exception,Equal 0324 6810 |h | Jump_Zero 0x335 0325 e001 | | Load 0x0,0x1 0326 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0327 a5fa | | Store_Unchecked 0x2,-0x6 0328 00db | | Load_Top At_Offset_3 0329 e002 | | Load 0x0,0x2 032a 180f | | Execute Package,Field_Execute,Field_Number 0xf 032b 7008 |p | Jump_Nonzero 0x334 032c e001 | | Load 0x0,0x1 032d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032e e402 | | Load 0x2,0x2 032f e5fb | | Load 0x2,-0x5 0330 e002 | | Load 0x0,0x2 0331 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0332 c402 | | Store 0x2,0x2 0333 005b | [ | Store_Top Discrete,At_Offset_3 0334 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0335 e5fb | | Load 0x2,-0x5 0336 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 0338 e005 | | Load 0x0,0x5 0339 180f | | Execute Package,Field_Execute,Field_Number 0xf 033a 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 033c e005 | | Load 0x0,0x5 033d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 033e a5fa | | Store_Unchecked 0x2,-0x6 033f 00db | | Load_Top At_Offset_3 0340 e002 | | Load 0x0,0x2 0341 180f | | Execute Package,Field_Execute,Field_Number 0xf 0342 7008 |p | Jump_Nonzero 0x34b 0343 e001 | | Load 0x0,0x1 0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0345 e402 | | Load 0x2,0x2 0346 e5fb | | Load 0x2,-0x5 0347 e002 | | Load 0x0,0x2 0348 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0349 c402 | | Store 0x2,0x2 034a 005b | [ | Store_Top Discrete,At_Offset_3 034b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 034c 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0363 | c | .CONST 0x0363 ; Address of begin 0351 03a0 | | .CONST 0x03a0 ; Address of exception handler 0352 0004 | | .CONST 0x0004 ; Number of locals 0353 INIT_0350: 0353 e002 | | Load 0x0,0x2 0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0355 e001 | | Load 0x0,0x1 0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0357 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0358 e003 | | Load 0x0,0x3 0359 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 035a 0322 | " | Declare_Variable Record 035b e5fc | | Load 0x2,-0x4 035c e5fe | | Load 0x2,-0x2 035d e004 | | Load 0x0,0x4 035e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 035f e003 | | Load 0x0,0x3 0360 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0361 00d9 | | Load_Top At_Offset_1 0362 017d | } | Execute Record,Structure_Write 0363 BODY_0350: 0363 e5fc | | Load 0x2,-0x4 0364 0092 1acd | | Action Push_String_Extended,0x1acd ; "Rcf_Unit.Remove_Unit_Options" 0366 e005 | | Load 0x0,0x5 0367 180e | | Execute Package,Field_Execute,Field_Number 0xe 0368 4800 |H | Short_Literal 0x0 0369 a5fb | | Store_Unchecked 0x2,-0x5 036a e001 | | Load 0x0,0x1 036b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036c e002 | | Load 0x0,0x2 036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036e e5fc | | Load 0x2,-0x4 036f 4800 |H | Short_Literal 0x0 0370 4801 |H | Short_Literal 0x1 0371 4801 |H | Short_Literal 0x1 0372 e404 | | Load 0x2,0x4 0373 e5ff | | Load 0x2,-0x1 0374 e002 | | Load 0x0,0x2 0375 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0376 c402 | | Store 0x2,0x2 0377 005a | Z | Store_Top Discrete,At_Offset_2 0378 4800 |H | Short_Literal 0x0 0379 00da | | Load_Top At_Offset_2 037a e001 | | Load 0x0,0x1 037b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 037c 7003 |p | Jump_Nonzero 0x380 037d 00d9 | | Load_Top At_Offset_1 037e a5fb | | Store_Unchecked 0x2,-0x5 037f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0380 00da | | Load_Top At_Offset_2 0381 e002 | | Load 0x0,0x2 0382 180f | | Execute Package,Field_Execute,Field_Number 0xf 0383 680d |h | Jump_Zero 0x391 0384 e5fc | | Load 0x2,-0x4 0385 e006 | | Load 0x0,0x6 0386 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0387 67c4 |g | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147} 0388 e001 | | Load 0x0,0x1 0389 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 038a e006 | | Load 0x0,0x6 038b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 038c 67bf |g | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147} 038d e001 | | Load 0x0,0x1 038e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 038f a5fb | | Store_Unchecked 0x2,-0x5 0390 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0391 00da | | Load_Top At_Offset_2 0392 e5fc | | Load 0x2,-0x4 0393 e5fd | | Load 0x2,-0x3 0394 e5fe | | Load 0x2,-0x2 0395 e007 | | Load 0x0,0x7 0396 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0397 e001 | | Load 0x0,0x1 0398 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0399 00db | | Load_Top At_Offset_3 039a e5fc | | Load 0x2,-0x4 039b e002 | | Load 0x0,0x2 039c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 039d c402 | | Store 0x2,0x2 039e c5fb | | Store 0x2,-0x5 039f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03a0 TRAP_0350: 03a0 e001 | | Load 0x0,0x1 03a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03a2 010f | | Execute Exception,Equal 03a3 6810 |h | Jump_Zero 0x3b4 03a4 e001 | | Load 0x0,0x1 03a5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03a6 a5fb | | Store_Unchecked 0x2,-0x5 03a7 00db | | Load_Top At_Offset_3 03a8 e002 | | Load 0x0,0x2 03a9 180f | | Execute Package,Field_Execute,Field_Number 0xf 03aa 7008 |p | Jump_Nonzero 0x3b3 03ab e001 | | Load 0x0,0x1 03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ad e402 | | Load 0x2,0x2 03ae e5fc | | Load 0x2,-0x4 03af e002 | | Load 0x0,0x2 03b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03b1 c402 | | Store 0x2,0x2 03b2 005b | [ | Store_Top Discrete,At_Offset_3 03b3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03b4 e5fc | | Load 0x2,-0x4 03b5 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 03b7 e005 | | Load 0x0,0x5 03b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 03b9 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options" 03bb e005 | | Load 0x0,0x5 03bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03bd a5fb | | Store_Unchecked 0x2,-0x5 03be 00db | | Load_Top At_Offset_3 03bf e002 | | Load 0x0,0x2 03c0 180f | | Execute Package,Field_Execute,Field_Number 0xf 03c1 7008 |p | Jump_Nonzero 0x3ca 03c2 e001 | | Load 0x0,0x1 03c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c4 e402 | | Load 0x2,0x2 03c5 e5fc | | Load 0x2,-0x4 03c6 e002 | | Load 0x0,0x2 03c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03c8 c402 | | Store 0x2,0x2 03c9 005b | [ | Store_Top Discrete,At_Offset_3 03ca 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03cb 0000 0000 | | .BLANK 0000[0x5] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03e5 | | .CONST 0x03e5 ; Address of begin 03d1 0417 | | .CONST 0x0417 ; Address of exception handler 03d2 0006 | | .CONST 0x0006 ; Number of locals 03d3 INIT_03d0: 03d3 e002 | | Load 0x0,0x2 03d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d5 e001 | | Load 0x0,0x1 03d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03d8 4800 |H | Short_Literal 0x0 03d9 e20d | | Load 0x1,0xd 03da 1c08 | | Execute_Immediate Run_Utility,0x8 03db e003 | | Load 0x0,0x3 03dc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 03dd 0322 | " | Declare_Variable Record 03de e5fd | | Load 0x2,-0x3 03df e003 | | Load 0x0,0x3 03e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03e1 00d9 | | Load_Top At_Offset_1 03e2 017d | } | Execute Record,Structure_Write 03e3 029f 17f3 | | Declare_Subprogram INIT_17f0,For_Call 03e5 BODY_03d0: 03e5 e5fc | | Load 0x2,-0x4 03e6 0092 1ace | | Action Push_String_Extended,0x1ace ; "Rcf_Unit.Remote_Unit_Name" 03e8 e005 | | Load 0x0,0x5 03e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ea e001 | | Load 0x0,0x1 03eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ec e002 | | Load 0x0,0x2 03ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ee e5fc | | Load 0x2,-0x4 03ef 4801 |H | Short_Literal 0x1 03f0 4801 |H | Short_Literal 0x1 03f1 4800 |H | Short_Literal 0x0 03f2 e405 | | Load 0x2,0x5 03f3 e5ff | | Load 0x2,-0x1 03f4 e002 | | Load 0x0,0x2 03f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03f6 c402 | | Store 0x2,0x2 03f7 c403 | | Store 0x2,0x3 03f8 4800 |H | Short_Literal 0x0 03f9 e403 | | Load 0x2,0x3 03fa e001 | | Load 0x0,0x1 03fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 03fc 7005 |p | Jump_Nonzero 0x402 03fd 00db | | Load_Top At_Offset_3 03fe 00db | | Load_Top At_Offset_3 03ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0400 00da | | Load_Top At_Offset_2 0401 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0402 e402 | | Load 0x2,0x2 0403 e002 | | Load 0x0,0x2 0404 180f | | Execute Package,Field_Execute,Field_Number 0xf 0405 680f |h | Jump_Zero 0x415 0406 e5fc | | Load 0x2,-0x4 0407 e006 | | Load 0x0,0x6 0408 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0409 603e |`> | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147} 040a e001 | | Load 0x0,0x1 040b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 040c e006 | | Load 0x0,0x6 040d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 040e 6039 |`9 | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147} 040f e001 | | Load 0x0,0x1 0410 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0411 00db | | Load_Top At_Offset_3 0412 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0413 00da | | Load_Top At_Offset_2 0414 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0415 8406 | | Call 0x2,0x6 0416 0831 | 1 | Execute_Immediate Raise,0x31 0417 TRAP_03d0: 0417 e001 | | Load 0x0,0x1 0418 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0419 010f | | Execute Exception,Equal 041a 6812 |h | Jump_Zero 0x42d 041b e001 | | Load 0x0,0x1 041c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 041d e404 | | Load 0x2,0x4 041e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 041f e402 | | Load 0x2,0x2 0420 e002 | | Load 0x0,0x2 0421 180f | | Execute Package,Field_Execute,Field_Number 0xf 0422 7008 |p | Jump_Nonzero 0x42b 0423 e001 | | Load 0x0,0x1 0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0425 e402 | | Load 0x2,0x2 0426 e5fc | | Load 0x2,-0x4 0427 e002 | | Load 0x0,0x2 0428 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0429 c402 | | Store 0x2,0x2 042a c403 | | Store 0x2,0x3 042b 00db | | Load_Top At_Offset_3 042c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 042d e5fc | | Load 0x2,-0x4 042e 0092 1ace | | Action Push_String_Extended,0x1ace ; "Rcf_Unit.Remote_Unit_Name" 0430 e005 | | Load 0x0,0x5 0431 180f | | Execute Package,Field_Execute,Field_Number 0xf 0432 0092 1ace | | Action Push_String_Extended,0x1ace ; "Rcf_Unit.Remote_Unit_Name" 0434 e005 | | Load 0x0,0x5 0435 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0436 e404 | | Load 0x2,0x4 0437 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0438 e402 | | Load 0x2,0x2 0439 e002 | | Load 0x0,0x2 043a 180f | | Execute Package,Field_Execute,Field_Number 0xf 043b 7008 |p | Jump_Nonzero 0x444 043c e001 | | Load 0x0,0x1 043d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043e e402 | | Load 0x2,0x2 043f e5fc | | Load 0x2,-0x4 0440 e002 | | Load 0x0,0x2 0441 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0442 c402 | | Store 0x2,0x2 0443 c403 | | Store 0x2,0x3 0444 00db | | Load_Top At_Offset_3 0445 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0446 0000 0000 | | .XXX[0x2] 0448 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 044c 0000 0000 | | .BLANK 0000[0x4] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0464 | d | .CONST 0x0464 ; Address of begin 0451 0496 | | .CONST 0x0496 ; Address of exception handler 0452 0006 | | .CONST 0x0006 ; Number of locals 0453 INIT_0450: 0453 e002 | | Load 0x0,0x2 0454 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0455 e001 | | Load 0x0,0x1 0456 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0457 4800 |H | Short_Literal 0x0 0458 e20d | | Load 0x1,0xd 0459 1c08 | | Execute_Immediate Run_Utility,0x8 045a e003 | | Load 0x0,0x3 045b 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 045c 0322 | " | Declare_Variable Record 045d e5fe | | Load 0x2,-0x2 045e e003 | | Load 0x0,0x3 045f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0460 00d9 | | Load_Top At_Offset_1 0461 017d | } | Execute Record,Structure_Write 0462 029f 1823 | #| Declare_Subprogram INIT_1820,For_Call 0464 BODY_0450: 0464 e5fc | | Load 0x2,-0x4 0465 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name" 0467 e005 | | Load 0x0,0x5 0468 180e | | Execute Package,Field_Execute,Field_Number 0xe 0469 e001 | | Load 0x0,0x1 046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046b e002 | | Load 0x0,0x2 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d e5fc | | Load 0x2,-0x4 046e 4801 |H | Short_Literal 0x1 046f 4801 |H | Short_Literal 0x1 0470 4800 |H | Short_Literal 0x0 0471 e405 | | Load 0x2,0x5 0472 e5ff | | Load 0x2,-0x1 0473 e002 | | Load 0x0,0x2 0474 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0475 c402 | | Store 0x2,0x2 0476 c403 | | Store 0x2,0x3 0477 4800 |H | Short_Literal 0x0 0478 e403 | | Load 0x2,0x3 0479 e001 | | Load 0x0,0x1 047a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 047b 7005 |p | Jump_Nonzero 0x481 047c 00db | | Load_Top At_Offset_3 047d 00db | | Load_Top At_Offset_3 047e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 047f 00da | | Load_Top At_Offset_2 0480 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0481 e402 | | Load 0x2,0x2 0482 e002 | | Load 0x0,0x2 0483 180f | | Execute Package,Field_Execute,Field_Number 0xf 0484 680f |h | Jump_Zero 0x494 0485 e5fc | | Load 0x2,-0x4 0486 e006 | | Load 0x0,0x6 0487 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0488 67bf |g | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147} 0489 e001 | | Load 0x0,0x1 048a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 048b e006 | | Load 0x0,0x6 048c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 048d 67ba |g | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147} 048e e001 | | Load 0x0,0x1 048f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0490 00db | | Load_Top At_Offset_3 0491 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0492 00da | | Load_Top At_Offset_2 0493 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0494 8406 | | Call 0x2,0x6 0495 0831 | 1 | Execute_Immediate Raise,0x31 0496 TRAP_0450: 0496 e001 | | Load 0x0,0x1 0497 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0498 010f | | Execute Exception,Equal 0499 6812 |h | Jump_Zero 0x4ac 049a e001 | | Load 0x0,0x1 049b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 049c e404 | | Load 0x2,0x4 049d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 049e e402 | | Load 0x2,0x2 049f e002 | | Load 0x0,0x2 04a0 180f | | Execute Package,Field_Execute,Field_Number 0xf 04a1 7008 |p | Jump_Nonzero 0x4aa 04a2 e001 | | Load 0x0,0x1 04a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a4 e402 | | Load 0x2,0x2 04a5 e5fc | | Load 0x2,-0x4 04a6 e002 | | Load 0x0,0x2 04a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04a8 c402 | | Store 0x2,0x2 04a9 c403 | | Store 0x2,0x3 04aa 00db | | Load_Top At_Offset_3 04ab 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04ac e5fc | | Load 0x2,-0x4 04ad 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name" 04af e005 | | Load 0x0,0x5 04b0 180f | | Execute Package,Field_Execute,Field_Number 0xf 04b1 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name" 04b3 e005 | | Load 0x0,0x5 04b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04b5 e404 | | Load 0x2,0x4 04b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04b7 e402 | | Load 0x2,0x2 04b8 e002 | | Load 0x0,0x2 04b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ba 7008 |p | Jump_Nonzero 0x4c3 04bb e001 | | Load 0x0,0x1 04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04bd e402 | | Load 0x2,0x2 04be e5fc | | Load 0x2,-0x4 04bf e002 | | Load 0x0,0x2 04c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04c1 c402 | | Store 0x2,0x2 04c2 c403 | | Store 0x2,0x3 04c3 00db | | Load_Top At_Offset_3 04c4 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04c5 0000 0000 | | .XXX[0x3] 04c7 0000 | | 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04e5 | | .CONST 0x04e5 ; Address of begin 04c9 04ed | | .CONST 0x04ed ; Address of exception handler 04ca 0006 | | .CONST 0x0006 ; Number of locals 04cb INIT_04c8: 04cb e003 | | Load 0x0,0x3 04cc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 04cd 0322 | " | Declare_Variable Record 04ce e5fe | | Load 0x2,-0x2 04cf e003 | | Load 0x0,0x3 04d0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04d1 00d9 | | Load_Top At_Offset_1 04d2 017d | } | Execute Record,Structure_Write 04d3 e5fc | | Load 0x2,-0x4 04d4 e5fe | | Load 0x2,-0x2 04d5 e5ff | | Load 0x2,-0x1 04d6 e008 | | Load 0x0,0x8 04d7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04d8 00d8 | | Load_Top At_Offset_0 04d9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04da e5fd | | Load 0x2,-0x3 04db 00db | | Load_Top At_Offset_3 04dc e003 | | Load 0x0,0x3 04dd 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 04de 4800 |H | Short_Literal 0x0 04df e20d | | Load 0x1,0xd 04e0 1c08 | | Execute_Immediate Run_Utility,0x8 04e1 00d9 | | Load_Top At_Offset_1 04e2 01db | | Execute Vector,Length 04e3 e20d | | Load 0x1,0xd 04e4 1c08 | | Execute_Immediate Run_Utility,0x8 04e5 BODY_04c8: 04e5 00da | | Load_Top At_Offset_2 04e6 00d9 | | Load_Top At_Offset_1 04e7 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 04e8 4800 |H | Short_Literal 0x0 04e9 00d9 | | Load_Top At_Offset_1 04ea 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04eb 00d8 | | Load_Top At_Offset_0 04ec 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04ed TRAP_04c8: 04ed e001 | | Load 0x0,0x1 04ee 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04ef 010f | | Execute Exception,Equal 04f0 6806 |h | Jump_Zero 0x4f7 04f1 e001 | | Load 0x0,0x1 04f2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04f3 00db | | Load_Top At_Offset_3 04f4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04f5 00da | | Load_Top At_Offset_2 04f6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04f7 e5fc | | Load 0x2,-0x4 04f8 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name" 04fa e005 | | Load 0x0,0x5 04fb 180f | | Execute Package,Field_Execute,Field_Number 0xf 04fc 0092 1ad0 | | Action Push_String_Extended,0x1ad0 ; "Full_Remote_Unit_Name" 04fe e005 | | Load 0x0,0x5 04ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0500 00db | | Load_Top At_Offset_3 0501 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0502 00da | | Load_Top At_Offset_2 0503 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0504 0000 0000 | | .BLANK 0000[0x4] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0518 | | .CONST 0x0518 ; Address of begin 0509 056b | k | .CONST 0x056b ; Address of exception handler 050a 0004 | | .CONST 0x0004 ; Number of locals 050b INIT_0508: 050b e002 | | Load 0x0,0x2 050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050d e001 | | Load 0x0,0x1 050e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0510 e003 | | Load 0x0,0x3 0511 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0512 0322 | " | Declare_Variable Record 0513 e5fc | | Load 0x2,-0x4 0514 e003 | | Load 0x0,0x3 0515 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0516 00d9 | | Load_Top At_Offset_1 0517 017d | } | Execute Record,Structure_Write 0518 BODY_0508: 0518 e5fb | | Load 0x2,-0x5 0519 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Rcf_Unit.Set_Remote_Unit_Name" 051b e005 | | Load 0x0,0x5 051c 180e | | Execute Package,Field_Execute,Field_Number 0xe 051d 4800 |H | Short_Literal 0x0 051e a5fa | | Store_Unchecked 0x2,-0x6 051f e001 | | Load 0x0,0x1 0520 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0521 e002 | | Load 0x0,0x2 0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0523 e5fb | | Load 0x2,-0x5 0524 4800 |H | Short_Literal 0x0 0525 4801 |H | Short_Literal 0x1 0526 4801 |H | Short_Literal 0x1 0527 e404 | | Load 0x2,0x4 0528 e5ff | | Load 0x2,-0x1 0529 e002 | | Load 0x0,0x2 052a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 052b c402 | | Store 0x2,0x2 052c 005a | Z | Store_Top Discrete,At_Offset_2 052d 4800 |H | Short_Literal 0x0 052e 00da | | Load_Top At_Offset_2 052f e001 | | Load 0x0,0x1 0530 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0531 7003 |p | Jump_Nonzero 0x535 0532 00d9 | | Load_Top At_Offset_1 0533 a5fa | | Store_Unchecked 0x2,-0x6 0534 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0535 00da | | Load_Top At_Offset_2 0536 e002 | | Load 0x0,0x2 0537 180f | | Execute Package,Field_Execute,Field_Number 0xf 0538 680d |h | Jump_Zero 0x546 0539 e5fb | | Load 0x2,-0x5 053a e006 | | Load 0x0,0x6 053b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 053c 605b |`[ | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147} 053d e001 | | Load 0x0,0x1 053e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 053f e006 | | Load 0x0,0x6 0540 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0541 6056 |`V | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147} 0542 e001 | | Load 0x0,0x1 0543 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0544 a5fa | | Store_Unchecked 0x2,-0x6 0545 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0546 e001 | | Load 0x0,0x1 0547 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0548 00db | | Load_Top At_Offset_3 0549 e5fb | | Load 0x2,-0x5 054a 00db | | Load_Top At_Offset_3 054b e5fd | | Load 0x2,-0x3 054c e5fe | | Load 0x2,-0x2 054d e009 | | Load 0x0,0x9 054e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 054f 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0550 c402 | | Store 0x2,0x2 0551 005a | Z | Store_Top Discrete,At_Offset_2 0552 4800 |H | Short_Literal 0x0 0553 00da | | Load_Top At_Offset_2 0554 e001 | | Load 0x0,0x1 0555 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0556 700b |p | Jump_Nonzero 0x562 0557 00d9 | | Load_Top At_Offset_1 0558 a5fa | | Store_Unchecked 0x2,-0x6 0559 e001 | | Load 0x0,0x1 055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055b 00db | | Load_Top At_Offset_3 055c e5fb | | Load 0x2,-0x5 055d e002 | | Load 0x0,0x2 055e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 055f c402 | | Store 0x2,0x2 0560 005a | Z | Store_Top Discrete,At_Offset_2 0561 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0562 e001 | | Load 0x0,0x1 0563 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0564 00db | | Load_Top At_Offset_3 0565 e5fb | | Load 0x2,-0x5 0566 e002 | | Load 0x0,0x2 0567 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0568 c402 | | Store 0x2,0x2 0569 c5fa | | Store 0x2,-0x6 056a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 056b TRAP_0508: 056b e001 | | Load 0x0,0x1 056c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 056d 010f | | Execute Exception,Equal 056e 6810 |h | Jump_Zero 0x57f 056f e001 | | Load 0x0,0x1 0570 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0571 a5fa | | Store_Unchecked 0x2,-0x6 0572 00db | | Load_Top At_Offset_3 0573 e002 | | Load 0x0,0x2 0574 180f | | Execute Package,Field_Execute,Field_Number 0xf 0575 7008 |p | Jump_Nonzero 0x57e 0576 e001 | | Load 0x0,0x1 0577 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0578 e402 | | Load 0x2,0x2 0579 e5fb | | Load 0x2,-0x5 057a e002 | | Load 0x0,0x2 057b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 057c c402 | | Store 0x2,0x2 057d 005b | [ | Store_Top Discrete,At_Offset_3 057e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 057f e5fb | | Load 0x2,-0x5 0580 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Rcf_Unit.Set_Remote_Unit_Name" 0582 e005 | | Load 0x0,0x5 0583 180f | | Execute Package,Field_Execute,Field_Number 0xf 0584 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Rcf_Unit.Set_Remote_Unit_Name" 0586 e005 | | Load 0x0,0x5 0587 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0588 a5fa | | Store_Unchecked 0x2,-0x6 0589 00db | | Load_Top At_Offset_3 058a e002 | | Load 0x0,0x2 058b 180f | | Execute Package,Field_Execute,Field_Number 0xf 058c 7008 |p | Jump_Nonzero 0x595 058d e001 | | Load 0x0,0x1 058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058f e402 | | Load 0x2,0x2 0590 e5fb | | Load 0x2,-0x5 0591 e002 | | Load 0x0,0x2 0592 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0593 c402 | | Store 0x2,0x2 0594 005b | [ | Store_Top Discrete,At_Offset_3 0595 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0596 0000 0000 | | .XXX[0x2] 0598 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 059c 0000 0000 | | .BLANK 0000[0x4] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05b2 | | .CONST 0x05b2 ; Address of begin 05a1 05e6 | | .CONST 0x05e6 ; Address of exception handler 05a2 0005 | | .CONST 0x0005 ; Number of locals 05a3 INIT_05a0: 05a3 e002 | | Load 0x0,0x2 05a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a5 e001 | | Load 0x0,0x1 05a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05a8 e003 | | Load 0x0,0x3 05a9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 05aa 0322 | " | Declare_Variable Record 05ab e5fd | | Load 0x2,-0x3 05ac e003 | | Load 0x0,0x3 05ad 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 05ae 00d9 | | Load_Top At_Offset_1 05af 017d | } | Execute Record,Structure_Write 05b0 029f 1843 | C| Declare_Subprogram INIT_1840,For_Call 05b2 BODY_05a0: 05b2 4800 |H | Short_Literal 0x0 05b3 a5fa | | Store_Unchecked 0x2,-0x6 05b4 e009 | | Load 0x0,0x9 05b5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 05b6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 05b7 c5fb | | Store 0x2,-0x5 05b8 e5fc | | Load 0x2,-0x4 05b9 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Rcf_Unit.Local_Update_Time" 05bb e005 | | Load 0x0,0x5 05bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 05bd e001 | | Load 0x0,0x1 05be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05bf e002 | | Load 0x0,0x2 05c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c1 e5fc | | Load 0x2,-0x4 05c2 4801 |H | Short_Literal 0x1 05c3 4801 |H | Short_Literal 0x1 05c4 4800 |H | Short_Literal 0x0 05c5 e404 | | Load 0x2,0x4 05c6 e5ff | | Load 0x2,-0x1 05c7 e002 | | Load 0x0,0x2 05c8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05c9 c402 | | Store 0x2,0x2 05ca 005b | [ | Store_Top Discrete,At_Offset_3 05cb 4800 |H | Short_Literal 0x0 05cc 00db | | Load_Top At_Offset_3 05cd e001 | | Load 0x0,0x1 05ce 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05cf 7003 |p | Jump_Nonzero 0x5d3 05d0 00da | | Load_Top At_Offset_2 05d1 a5fa | | Store_Unchecked 0x2,-0x6 05d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05d3 00db | | Load_Top At_Offset_3 05d4 e002 | | Load 0x0,0x2 05d5 180f | | Execute Package,Field_Execute,Field_Number 0xf 05d6 680d |h | Jump_Zero 0x5e4 05d7 e5fc | | Load 0x2,-0x4 05d8 e006 | | Load 0x0,0x6 05d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05da 67bd |g | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147} 05db e001 | | Load 0x0,0x1 05dc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05dd e006 | | Load 0x0,0x6 05de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05df 67b8 |g | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147} 05e0 e001 | | Load 0x0,0x1 05e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05e2 a5fa | | Store_Unchecked 0x2,-0x6 05e3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05e4 8405 | | Call 0x2,0x5 05e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05e6 TRAP_05a0: 05e6 e001 | | Load 0x0,0x1 05e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05e8 010f | | Execute Exception,Equal 05e9 6810 |h | Jump_Zero 0x5fa 05ea e001 | | Load 0x0,0x1 05eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05ec a5fa | | Store_Unchecked 0x2,-0x6 05ed e402 | | Load 0x2,0x2 05ee e002 | | Load 0x0,0x2 05ef 180f | | Execute Package,Field_Execute,Field_Number 0xf 05f0 7008 |p | Jump_Nonzero 0x5f9 05f1 e001 | | Load 0x0,0x1 05f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05f3 e402 | | Load 0x2,0x2 05f4 e5fc | | Load 0x2,-0x4 05f5 e002 | | Load 0x0,0x2 05f6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05f7 c402 | | Store 0x2,0x2 05f8 c403 | | Store 0x2,0x3 05f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05fa e5fc | | Load 0x2,-0x4 05fb 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Rcf_Unit.Local_Update_Time" 05fd e005 | | Load 0x0,0x5 05fe 180f | | Execute Package,Field_Execute,Field_Number 0xf 05ff 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Rcf_Unit.Local_Update_Time" 0601 e005 | | Load 0x0,0x5 0602 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0603 a5fa | | Store_Unchecked 0x2,-0x6 0604 e402 | | Load 0x2,0x2 0605 e002 | | Load 0x0,0x2 0606 180f | | Execute Package,Field_Execute,Field_Number 0xf 0607 7008 |p | Jump_Nonzero 0x610 0608 e001 | | Load 0x0,0x1 0609 1b0d | | Execute Package,Field_Read,Field_Number 0xd 060a e402 | | Load 0x2,0x2 060b e5fc | | Load 0x2,-0x4 060c e002 | | Load 0x0,0x2 060d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 060e c402 | | Store 0x2,0x2 060f c403 | | Store 0x2,0x3 0610 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0611 0000 0000 | | .BLANK 0000[0x7] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0628 | ( | .CONST 0x0628 ; Address of begin 0619 0684 | | .CONST 0x0684 ; Address of exception handler 061a 0004 | | .CONST 0x0004 ; Number of locals 061b INIT_0618: 061b e002 | | Load 0x0,0x2 061c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 061d e001 | | Load 0x0,0x1 061e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 061f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0620 e003 | | Load 0x0,0x3 0621 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0622 0322 | " | Declare_Variable Record 0623 e5fc | | Load 0x2,-0x4 0624 e003 | | Load 0x0,0x3 0625 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0626 00d9 | | Load_Top At_Offset_1 0627 017d | } | Execute Record,Structure_Write 0628 BODY_0618: 0628 e5fb | | Load 0x2,-0x5 0629 0092 1ad3 | | Action Push_String_Extended,0x1ad3 ; "Rcf_Unit.Set_Local_Update_Time: Time = " 062b 4800 |H | Short_Literal 0x0 062c 4800 |H | Short_Literal 0x0 062d 4800 |H | Short_Literal 0x0 062e e5fd | | Load 0x2,-0x3 062f e00a | | Load 0x0,0xa 0630 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0631 e00a | | Load 0x0,0xa 0632 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0633 01cc | | Execute Vector,Catenate 0634 e005 | | Load 0x0,0x5 0635 180e | | Execute Package,Field_Execute,Field_Number 0xe 0636 4800 |H | Short_Literal 0x0 0637 a5fa | | Store_Unchecked 0x2,-0x6 0638 e001 | | Load 0x0,0x1 0639 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063a e002 | | Load 0x0,0x2 063b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063c e5fb | | Load 0x2,-0x5 063d 4800 |H | Short_Literal 0x0 063e 4801 |H | Short_Literal 0x1 063f 4801 |H | Short_Literal 0x1 0640 e404 | | Load 0x2,0x4 0641 e5ff | | Load 0x2,-0x1 0642 e002 | | Load 0x0,0x2 0643 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0644 c402 | | Store 0x2,0x2 0645 005a | Z | Store_Top Discrete,At_Offset_2 0646 4800 |H | Short_Literal 0x0 0647 00da | | Load_Top At_Offset_2 0648 e001 | | Load 0x0,0x1 0649 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 064a 7003 |p | Jump_Nonzero 0x64e 064b 00d9 | | Load_Top At_Offset_1 064c a5fa | | Store_Unchecked 0x2,-0x6 064d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 064e 00da | | Load_Top At_Offset_2 064f e002 | | Load 0x0,0x2 0650 180f | | Execute Package,Field_Execute,Field_Number 0xf 0651 680d |h | Jump_Zero 0x65f 0652 e5fb | | Load 0x2,-0x5 0653 e006 | | Load 0x0,0x6 0654 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0655 605a |`Z | Indirect_Literal Discrete,0x6b0,{0x00000000, 0x00008147} 0656 e001 | | Load 0x0,0x1 0657 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0658 e006 | | Load 0x0,0x6 0659 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 065a 6055 |`U | Indirect_Literal Discrete,0x6b0,{0x00000000, 0x00008147} 065b e001 | | Load 0x0,0x1 065c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 065d a5fa | | Store_Unchecked 0x2,-0x6 065e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 065f e001 | | Load 0x0,0x1 0660 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0661 00db | | Load_Top At_Offset_3 0662 e5fb | | Load 0x2,-0x5 0663 00db | | Load_Top At_Offset_3 0664 e5fd | | Load 0x2,-0x3 0665 e5fe | | Load 0x2,-0x2 0666 e009 | | Load 0x0,0x9 0667 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0668 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0669 c402 | | Store 0x2,0x2 066a 005a | Z | Store_Top Discrete,At_Offset_2 066b 4800 |H | Short_Literal 0x0 066c 00da | | Load_Top At_Offset_2 066d e001 | | Load 0x0,0x1 066e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 066f 700b |p | Jump_Nonzero 0x67b 0670 00d9 | | Load_Top At_Offset_1 0671 a5fa | | Store_Unchecked 0x2,-0x6 0672 e001 | | Load 0x0,0x1 0673 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0674 00db | | Load_Top At_Offset_3 0675 e5fb | | Load 0x2,-0x5 0676 e002 | | Load 0x0,0x2 0677 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0678 c402 | | Store 0x2,0x2 0679 005a | Z | Store_Top Discrete,At_Offset_2 067a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 067b e001 | | Load 0x0,0x1 067c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067d 00db | | Load_Top At_Offset_3 067e e5fb | | Load 0x2,-0x5 067f e002 | | Load 0x0,0x2 0680 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0681 c402 | | Store 0x2,0x2 0682 c5fa | | Store 0x2,-0x6 0683 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0684 TRAP_0618: 0684 e001 | | Load 0x0,0x1 0685 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0686 010f | | Execute Exception,Equal 0687 6810 |h | Jump_Zero 0x698 0688 e001 | | Load 0x0,0x1 0689 181b | | Execute Package,Field_Execute,Field_Number 0x1b 068a a5fa | | Store_Unchecked 0x2,-0x6 068b 00db | | Load_Top At_Offset_3 068c e002 | | Load 0x0,0x2 068d 180f | | Execute Package,Field_Execute,Field_Number 0xf 068e 7008 |p | Jump_Nonzero 0x697 068f e001 | | Load 0x0,0x1 0690 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0691 e402 | | Load 0x2,0x2 0692 e5fb | | Load 0x2,-0x5 0693 e002 | | Load 0x0,0x2 0694 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0695 c402 | | Store 0x2,0x2 0696 005b | [ | Store_Top Discrete,At_Offset_3 0697 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0698 e5fb | | Load 0x2,-0x5 0699 0092 1ad4 | | Action Push_String_Extended,0x1ad4 ; "Rcf_Unit.Set_Local_Update_Time" 069b e005 | | Load 0x0,0x5 069c 180f | | Execute Package,Field_Execute,Field_Number 0xf 069d 0092 1ad4 | | Action Push_String_Extended,0x1ad4 ; "Rcf_Unit.Set_Local_Update_Time" 069f e005 | | Load 0x0,0x5 06a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06a1 a5fa | | Store_Unchecked 0x2,-0x6 06a2 00db | | Load_Top At_Offset_3 06a3 e002 | | Load 0x0,0x2 06a4 180f | | Execute Package,Field_Execute,Field_Number 0xf 06a5 7008 |p | Jump_Nonzero 0x6ae 06a6 e001 | | Load 0x0,0x1 06a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06a8 e402 | | Load 0x2,0x2 06a9 e5fb | | Load 0x2,-0x5 06aa e002 | | Load 0x0,0x2 06ab 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06ac c402 | | Store 0x2,0x2 06ad 005b | [ | Store_Top Discrete,At_Offset_3 06ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06af 0000 | | .XXX[0x1] 06b0 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 06b4 0000 0000 | | .BLANK 0000[0x4] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06c2 | | .CONST 0x06c2 ; Address of begin 06b9 06d2 | | .CONST 0x06d2 ; Address of exception handler 06ba 0003 | | .CONST 0x0003 ; Number of locals 06bb INIT_06b8: 06bb 00da | | Load_Top At_Offset_2 06bc e004 | | Load 0x0,0x4 06bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06be e26f | o | Load 0x1,0x6f 06bf 0322 | " | Declare_Variable Record 06c0 00d8 | | Load_Top At_Offset_0 06c1 1c00 | | Execute_Immediate Run_Utility,0x0 06c2 BODY_06b8: 06c2 4800 |H | Short_Literal 0x0 06c3 a5fc | | Store_Unchecked 0x2,-0x4 06c4 00d8 | | Load_Top At_Offset_0 06c5 e5fe | | Load 0x2,-0x2 06c6 00db | | Load_Top At_Offset_3 06c7 82a6 | | Call 0x1,0xa6 06c8 00d1 | | Pop_Control Pop_Count_1 06c9 4801 |H | Short_Literal 0x1 06ca 00d9 | | Load_Top At_Offset_1 06cb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 06cc 00da | | Load_Top At_Offset_2 06cd 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 06ce 01cf | | Execute Vector,Slice_Read 06cf 829e | | Call 0x1,0x9e 06d0 c5fd | | Store 0x2,-0x3 06d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06d2 TRAP_06b8: 06d2 0007 | | Action Break_Optional 06d3 6004 |` | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x0000813b} 06d4 a5fc | | Store_Unchecked 0x2,-0x4 06d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06d6 0000 0000 | | .XXX[0x2] 06d8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 06dc 0000 0000 | | .BLANK 0000[0x4] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06ec | | .CONST 0x06ec ; Address of begin 06e1 0716 | | .CONST 0x0716 ; Address of exception handler 06e2 0004 | | .CONST 0x0004 ; Number of locals 06e3 INIT_06e0: 06e3 00da | | Load_Top At_Offset_2 06e4 e004 | | Load 0x0,0x4 06e5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06e6 e26f | o | Load 0x1,0x6f 06e7 0322 | " | Declare_Variable Record 06e8 00d8 | | Load_Top At_Offset_0 06e9 1c00 | | Execute_Immediate Run_Utility,0x0 06ea e5fe | | Load 0x2,-0x2 06eb 829d | | Call 0x1,0x9d 06ec BODY_06e0: 06ec 4800 |H | Short_Literal 0x0 06ed a5fc | | Store_Unchecked 0x2,-0x4 06ee 00d9 | | Load_Top At_Offset_1 06ef e5fd | | Load 0x2,-0x3 06f0 e402 | | Load 0x2,0x2 06f1 82a6 | | Call 0x1,0xa6 06f2 00d1 | | Pop_Control Pop_Count_1 06f3 00d8 | | Load_Top At_Offset_0 06f4 4801 |H | Short_Literal 0x1 06f5 00da | | Load_Top At_Offset_2 06f6 01db | | Execute Vector,Length 06f7 00d8 | | Load_Top At_Offset_0 06f8 00e2 | | Load_Encached Integer_Cache 06f9 0260 | ` | Execute Discrete,In_Type 06fa 7001 |p | Jump_Nonzero 0x6fc 06fb 0801 | | Execute_Immediate Raise,0x1 06fc e403 | | Load 0x2,0x3 06fd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 06fe 01ce | | Execute Vector,Slice_Write 06ff 00d8 | | Load_Top At_Offset_0 0700 01db | | Execute Vector,Length 0701 00da | | Load_Top At_Offset_2 0702 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0703 e001 | | Load 0x0,0x1 0704 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0705 e5fd | | Load 0x2,-0x3 0706 e5ff | | Load 0x2,-0x1 0707 8261 | a | Call 0x1,0x61 0708 c5fc | | Store 0x2,-0x4 0709 e5fd | | Load 0x2,-0x3 070a 00da | | Load_Top At_Offset_2 070b e402 | | Load 0x2,0x2 070c 82a8 | | Call 0x1,0xa8 070d e001 | | Load 0x0,0x1 070e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 070f e5fd | | Load 0x2,-0x3 0710 e5ff | | Load 0x2,-0x1 0711 8260 | ` | Call 0x1,0x60 0712 c5fc | | Store 0x2,-0x4 0713 4800 |H | Short_Literal 0x0 0714 a5fc | | Store_Unchecked 0x2,-0x4 0715 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0716 TRAP_06e0: 0716 e00b | | Load 0x0,0xb 0717 010f | | Execute Exception,Equal 0718 6817 |h | Jump_Zero 0x730 0719 e5fd | | Load 0x2,-0x3 071a 4801 |H | Short_Literal 0x1 071b 4801 |H | Short_Literal 0x1 071c e006 | | Load 0x0,0x6 071d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 071e 035b | [ | Declare_Type Array,Constrained 071f 0337 | 7 | Declare_Variable Array 0720 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128" 0722 e006 | | Load 0x0,0x6 0723 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0724 e006 | | Load 0x0,0x6 0725 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0726 0119 | | Execute Any,Check_In_Formal_Type 0727 4801 |H | Short_Literal 0x1 0728 00da | | Load_Top At_Offset_2 0729 01d6 | | Execute Vector,Field_Write 072a 6009 |` | Indirect_Literal Discrete,0x734,{0x00000000, 0x0000819e} 072b e001 | | Load 0x0,0x1 072c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 072d 6006 |` | Indirect_Literal Discrete,0x734,{0x00000000, 0x0000819e} 072e a5fc | | Store_Unchecked 0x2,-0x4 072f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0730 67a7 |g | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x0000813b} 0731 a5fc | | Store_Unchecked 0x2,-0x4 0732 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0733 0000 | | .XXX[0x1] 0734 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 0769 | i | .CONST 0x0769 ; Address of begin 0739 08a1 | | .CONST 0x08a1 ; Address of exception handler 073a 000a | | .CONST 0x000a ; Number of locals 073b INIT_0738: 073b e003 | | Load 0x0,0x3 073c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 073d 0322 | " | Declare_Variable Record 073e e5fd | | Load 0x2,-0x3 073f e003 | | Load 0x0,0x3 0740 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0741 00d9 | | Load_Top At_Offset_1 0742 017d | } | Execute Record,Structure_Write 0743 e5fe | | Load 0x2,-0x2 0744 82ac | | Call 0x1,0xac 0745 0092 1ad6 | | Action Push_String_Extended,0x1ad6 ; "Rcf_Temp_" 0747 4800 |H | Short_Literal 0x0 0748 4803 |H | Short_Literal 0x3 0749 4804 |H | Short_Literal 0x4 074a e00a | | Load 0x0,0xa 074b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 074c e00a | | Load 0x0,0xa 074d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 074e 01cc | | Execute Vector,Catenate 074f e5fe | | Load 0x2,-0x2 0750 82ab | | Call 0x1,0xab 0751 e5fa | | Load 0x2,-0x6 0752 e5fc | | Load 0x2,-0x4 0753 e5fd | | Load 0x2,-0x3 0754 e5ff | | Load 0x2,-0x1 0755 8229 | ) | Call 0x1,0x29 0756 e002 | | Load 0x0,0x2 0757 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0758 e001 | | Load 0x0,0x1 0759 1b0d | | Execute Package,Field_Read,Field_Number 0xd 075a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 075b e00c | | Load 0x0,0xc 075c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 075d 02c7 | | Declare_Variable Any 075e e00c | | Load 0x0,0xc 075f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0760 a408 | | Store_Unchecked 0x2,0x8 0761 e00d | | Load 0x0,0xd 0762 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0763 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0764 e00e | | Load 0x0,0xe 0765 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0766 02c7 | | Declare_Variable Any 0767 00d8 | | Load_Top At_Offset_0 0768 1c00 | | Execute_Immediate Run_Utility,0x0 0769 BODY_0738: 0769 e00c | | Load 0x0,0xc 076a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 076b c5f9 | | Store 0x2,-0x7 076c 4800 |H | Short_Literal 0x0 076d a5f8 | | Store_Unchecked 0x2,-0x8 076e e5fa | | Load 0x2,-0x6 076f e5ff | | Load 0x2,-0x1 0770 e004 | | Load 0x0,0x4 0771 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0772 6815 |h | Jump_Zero 0x788 0773 e5fa | | Load 0x2,-0x6 0774 4801 |H | Short_Literal 0x1 0775 4801 |H | Short_Literal 0x1 0776 e006 | | Load 0x0,0x6 0777 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0778 035b | [ | Declare_Type Array,Constrained 0779 0337 | 7 | Declare_Variable Array 077a 0092 1ad7 | | Action Push_String_Extended,0x1ad7 ; "Upload_Ada_Unit" 077c e006 | | Load 0x0,0x6 077d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 077e e006 | | Load 0x0,0x6 077f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0780 0119 | | Execute Any,Check_In_Formal_Type 0781 4801 |H | Short_Literal 0x1 0782 00da | | Load_Top At_Offset_2 0783 01d6 | | Execute Vector,Field_Write 0784 6153 |aS | Indirect_Literal Discrete,0x8d8,{0x00000000, 0x0000818f} 0785 e001 | | Load 0x0,0x1 0786 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0787 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0788 e001 | | Load 0x0,0x1 0789 1b0d | | Execute Package,Field_Read,Field_Number 0xd 078a e5fa | | Load 0x2,-0x6 078b e5ff | | Load 0x2,-0x1 078c e004 | | Load 0x0,0x4 078d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 078e 4800 |H | Short_Literal 0x0 078f e5fb | | Load 0x2,-0x5 0790 e405 | | Load 0x2,0x5 0791 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0792 e404 | | Load 0x2,0x4 0793 e00f | | Load 0x0,0xf 0794 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0795 c407 | | Store 0x2,0x7 0796 4800 |H | Short_Literal 0x0 0797 e407 | | Load 0x2,0x7 0798 e001 | | Load 0x0,0x1 0799 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 079a 7007 |p | Jump_Nonzero 0x7a2 079b e5fa | | Load 0x2,-0x6 079c e407 | | Load 0x2,0x7 079d e001 | | Load 0x0,0x1 079e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 079f 00db | | Load_Top At_Offset_3 07a0 a5f8 | | Store_Unchecked 0x2,-0x8 07a1 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07a2 e5fa | | Load 0x2,-0x6 07a3 6130 |a0 | Indirect_Literal Discrete,0x8d4,{0x00000000, 0x00008191} 07a4 e001 | | Load 0x0,0x1 07a5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 07a6 e00d | | Load 0x0,0xd 07a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07a8 00db | | Load_Top At_Offset_3 07a9 0120 | | Execute Any,Is_Value 07aa 6803 |h | Jump_Zero 0x7ae 07ab e00c | | Load 0x0,0xc 07ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ad 7801 |x | Jump 0x7af 07ae 00db | | Load_Top At_Offset_3 07af e010 | | Load 0x0,0x10 07b0 180e | | Execute Package,Field_Execute,Field_Number 0xe 07b1 e010 | | Load 0x0,0x10 07b2 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 07b3 e010 | | Load 0x0,0x10 07b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 07b5 e010 | | Load 0x0,0x10 07b6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 07b7 e010 | | Load 0x0,0x10 07b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 07b9 e010 | | Load 0x0,0x10 07ba 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 07bb e010 | | Load 0x0,0x10 07bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 07bd e010 | | Load 0x0,0x10 07be 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 07bf e010 | | Load 0x0,0x10 07c0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 07c1 0337 | 7 | Declare_Variable Array 07c2 4801 |H | Short_Literal 0x1 07c3 4805 |H | Short_Literal 0x5 07c4 00da | | Load_Top At_Offset_2 07c5 01d6 | | Execute Vector,Field_Write 07c6 4801 |H | Short_Literal 0x1 07c7 4807 |H | Short_Literal 0x7 07c8 00da | | Load_Top At_Offset_2 07c9 01d6 | | Execute Vector,Field_Write 07ca 4801 |H | Short_Literal 0x1 07cb 4808 |H | Short_Literal 0x8 07cc 00da | | Load_Top At_Offset_2 07cd 01d6 | | Execute Vector,Field_Write 07ce 4804 |H | Short_Literal 0x4 07cf 4800 |H | Short_Literal 0x0 07d0 4800 |H | Short_Literal 0x0 07d1 00d9 | | Load_Top At_Offset_1 07d2 e411 | | Load 0x2,0x11 07d3 01d6 | | Execute Vector,Field_Write 07d4 3ffb |? | Loop_Increasing 0x7d0 07d5 4800 |H | Short_Literal 0x0 07d6 4806 |H | Short_Literal 0x6 07d7 00da | | Load_Top At_Offset_2 07d8 01d6 | | Execute Vector,Field_Write 07d9 480b |H | Short_Literal 0xb 07da 4809 |H | Short_Literal 0x9 07db 4800 |H | Short_Literal 0x0 07dc 00d9 | | Load_Top At_Offset_1 07dd e411 | | Load 0x2,0x11 07de 01d6 | | Execute Vector,Field_Write 07df 3ffb |? | Loop_Increasing 0x7db 07e0 e010 | | Load 0x0,0x10 07e1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 07e2 01c3 | | Execute Vector,Check_In_Type 07e3 4802 |H | Short_Literal 0x2 07e4 e010 | | Load 0x0,0x10 07e5 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 07e6 e011 | | Load 0x0,0x11 07e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07e8 00ea | | Load_Encached Null_String_Cache 07e9 4800 |H | Short_Literal 0x0 07ea 4801 |H | Short_Literal 0x1 07eb 4804 |H | Short_Literal 0x4 07ec e403 | | Load 0x2,0x3 07ed e404 | | Load 0x2,0x4 07ee e00d | | Load 0x0,0xd 07ef 180e | | Execute Package,Field_Execute,Field_Number 0xe 07f0 c408 | | Store 0x2,0x8 07f1 005a | Z | Store_Top Discrete,At_Offset_2 07f2 00d9 | | Load_Top At_Offset_1 07f3 6827 |h' | Jump_Zero 0x81b 07f4 e5fa | | Load 0x2,-0x6 07f5 4801 |H | Short_Literal 0x1 07f6 4802 |H | Short_Literal 0x2 07f7 e006 | | Load 0x0,0x6 07f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07f9 035b | [ | Declare_Type Array,Constrained 07fa 0337 | 7 | Declare_Variable Array 07fb e404 | | Load 0x2,0x4 07fc e006 | | Load 0x0,0x6 07fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07fe e006 | | Load 0x0,0x6 07ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0800 0119 | | Execute Any,Check_In_Formal_Type 0801 4801 |H | Short_Literal 0x1 0802 00da | | Load_Top At_Offset_2 0803 01d6 | | Execute Vector,Field_Write 0804 00db | | Load_Top At_Offset_3 0805 e00d | | Load 0x0,0xd 0806 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0807 011c | | Execute Any,Convert_Unchecked 0808 1c01 | | Execute_Immediate Run_Utility,0x1 0809 e006 | | Load 0x0,0x6 080a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 080b e006 | | Load 0x0,0x6 080c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 080d 0119 | | Execute Any,Check_In_Formal_Type 080e 4802 |H | Short_Literal 0x2 080f 00da | | Load_Top At_Offset_2 0810 01d6 | | Execute Vector,Field_Write 0811 60be |` | Indirect_Literal Discrete,0x8d0,{0x00000000, 0x0000815d} 0812 e001 | | Load 0x0,0x1 0813 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0814 e006 | | Load 0x0,0x6 0815 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0816 60b9 |` | Indirect_Literal Discrete,0x8d0,{0x00000000, 0x0000815d} 0817 e001 | | Load 0x0,0x1 0818 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0819 a5f8 | | Store_Unchecked 0x2,-0x8 081a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 081b 00da | | Load_Top At_Offset_2 081c c5f9 | | Store 0x2,-0x7 081d 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>" 081f 0092 1ad9 | | Action Push_String_Extended,0x1ad9 ; "<DIRECTORIES>" 0821 e404 | | Load 0x2,0x4 0822 e012 | | Load 0x0,0x12 0823 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0824 e5fa | | Load 0x2,-0x6 0825 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit" 0827 e005 | | Load 0x0,0x5 0828 180e | | Execute Package,Field_Execute,Field_Number 0xe 0829 e001 | | Load 0x0,0x1 082a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082b e002 | | Load 0x0,0x2 082c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082d e5fa | | Load 0x2,-0x6 082e 4801 |H | Short_Literal 0x1 082f 4801 |H | Short_Literal 0x1 0830 4801 |H | Short_Literal 0x1 0831 e402 | | Load 0x2,0x2 0832 e5ff | | Load 0x2,-0x1 0833 e002 | | Load 0x0,0x2 0834 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0835 c406 | | Store 0x2,0x6 0836 c407 | | Store 0x2,0x7 0837 4800 |H | Short_Literal 0x0 0838 e407 | | Load 0x2,0x7 0839 e001 | | Load 0x0,0x1 083a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 083b 7003 |p | Jump_Nonzero 0x83f 083c 00db | | Load_Top At_Offset_3 083d a5f8 | | Store_Unchecked 0x2,-0x8 083e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 083f e406 | | Load 0x2,0x6 0840 e002 | | Load 0x0,0x2 0841 180f | | Execute Package,Field_Execute,Field_Number 0xf 0842 680d |h | Jump_Zero 0x850 0843 e5fa | | Load 0x2,-0x6 0844 e006 | | Load 0x0,0x6 0845 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0846 6085 |` | Indirect_Literal Discrete,0x8cc,{0x00000000, 0x00008147} 0847 e001 | | Load 0x0,0x1 0848 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0849 e006 | | Load 0x0,0x6 084a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 084b 6080 |` | Indirect_Literal Discrete,0x8cc,{0x00000000, 0x00008147} 084c e001 | | Load 0x0,0x1 084d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 084e a5f8 | | Store_Unchecked 0x2,-0x8 084f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0850 00d8 | | Load_Top At_Offset_0 0851 0120 | | Execute Any,Is_Value 0852 6803 |h | Jump_Zero 0x856 0853 e00e | | Load 0x0,0xe 0854 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0855 7801 |x | Jump 0x857 0856 00d8 | | Load_Top At_Offset_0 0857 e001 | | Load 0x0,0x1 0858 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0859 e5fa | | Load 0x2,-0x6 085a e5ff | | Load 0x2,-0x1 085b e004 | | Load 0x0,0x4 085c 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 085d e5fb | | Load 0x2,-0x5 085e e405 | | Load 0x2,0x5 085f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0860 e00f | | Load 0x0,0xf 0861 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0862 c407 | | Store 0x2,0x7 0863 c40a | | Store 0x2,0xa 0864 4800 |H | Short_Literal 0x0 0865 e407 | | Load 0x2,0x7 0866 e001 | | Load 0x0,0x1 0867 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0868 7005 |p | Jump_Nonzero 0x86e 0869 e5fa | | Load 0x2,-0x6 086a e407 | | Load 0x2,0x7 086b e001 | | Load 0x0,0x1 086c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 086d 7828 |x( | Jump 0x896 086e e5fa | | Load 0x2,-0x6 086f 0092 1adb | | Action Push_String_Extended,0x1adb ; "Setting local download time (from remote time) to " 0871 4800 |H | Short_Literal 0x0 0872 4800 |H | Short_Literal 0x0 0873 4800 |H | Short_Literal 0x0 0874 e40a | | Load 0x2,0xa 0875 e00a | | Load 0x0,0xa 0876 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0877 e00a | | Load 0x0,0xa 0878 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0879 01cc | | Execute Vector,Catenate 087a e005 | | Load 0x0,0x5 087b 180e | | Execute Package,Field_Execute,Field_Number 0xe 087c e001 | | Load 0x0,0x1 087d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 087e e406 | | Load 0x2,0x6 087f e5fa | | Load 0x2,-0x6 0880 e402 | | Load 0x2,0x2 0881 e40a | | Load 0x2,0xa 0882 e408 | | Load 0x2,0x8 0883 e009 | | Load 0x0,0x9 0884 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0885 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0886 c406 | | Store 0x2,0x6 0887 c407 | | Store 0x2,0x7 0888 4800 |H | Short_Literal 0x0 0889 e407 | | Load 0x2,0x7 088a e001 | | Load 0x0,0x1 088b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 088c 6809 |h | Jump_Zero 0x896 088d e001 | | Load 0x0,0x1 088e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 088f e406 | | Load 0x2,0x6 0890 e5fa | | Load 0x2,-0x6 0891 e002 | | Load 0x0,0x2 0892 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0893 c406 | | Store 0x2,0x6 0894 c5f8 | | Store 0x2,-0x8 0895 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0896 00db | | Load_Top At_Offset_3 0897 a5f8 | | Store_Unchecked 0x2,-0x8 0898 e001 | | Load 0x0,0x1 0899 1b0d | | Execute Package,Field_Read,Field_Number 0xd 089a e406 | | Load 0x2,0x6 089b e5fa | | Load 0x2,-0x6 089c e002 | | Load 0x0,0x2 089d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 089e c406 | | Store 0x2,0x6 089f c407 | | Store 0x2,0x7 08a0 4507 |E | Exit_Suprogram New_Top_Offset 0x7 08a1 TRAP_0738: 08a1 e001 | | Load 0x0,0x1 08a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 08a3 010f | | Execute Exception,Equal 08a4 6810 |h | Jump_Zero 0x8b5 08a5 e001 | | Load 0x0,0x1 08a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 08a7 a5f8 | | Store_Unchecked 0x2,-0x8 08a8 e406 | | Load 0x2,0x6 08a9 e002 | | Load 0x0,0x2 08aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 08ab 7008 |p | Jump_Nonzero 0x8b4 08ac e001 | | Load 0x0,0x1 08ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08ae e406 | | Load 0x2,0x6 08af e5fa | | Load 0x2,-0x6 08b0 e002 | | Load 0x0,0x2 08b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08b2 c406 | | Store 0x2,0x6 08b3 c407 | | Store 0x2,0x7 08b4 4507 |E | Exit_Suprogram New_Top_Offset 0x7 08b5 e5fa | | Load 0x2,-0x6 08b6 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit" 08b8 e005 | | Load 0x0,0x5 08b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 08ba 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit" 08bc e005 | | Load 0x0,0x5 08bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08be a5f8 | | Store_Unchecked 0x2,-0x8 08bf e406 | | Load 0x2,0x6 08c0 e002 | | Load 0x0,0x2 08c1 180f | | Execute Package,Field_Execute,Field_Number 0xf 08c2 7008 |p | Jump_Nonzero 0x8cb 08c3 e001 | | Load 0x0,0x1 08c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08c5 e406 | | Load 0x2,0x6 08c6 e5fa | | Load 0x2,-0x6 08c7 e002 | | Load 0x0,0x2 08c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08c9 c406 | | Store 0x2,0x6 08ca c407 | | Store 0x2,0x7 08cb 4507 |E | Exit_Suprogram New_Top_Offset 0x7 08cc 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 08d0 0000 0000 | | .LITERAL {0x00000000, 0x0000815d} 08d4 0000 0000 | | .LITERAL {0x00000000, 0x00008191} 08d8 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 08dc 0000 0000 | | .BLANK 0000[0x4] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e8 | | .CONST 0x08e8 ; Address of begin 08e1 0956 | V | .CONST 0x0956 ; Address of exception handler 08e2 0003 | | .CONST 0x0003 ; Number of locals 08e3 INIT_08e0: 08e3 e001 | | Load 0x0,0x1 08e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 08e6 e00f | | Load 0x0,0xf 08e7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 08e8 BODY_08e0: 08e8 e00c | | Load 0x0,0xc 08e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08ea c5fa | | Store 0x2,-0x6 08eb 4800 |H | Short_Literal 0x0 08ec a5f9 | | Store_Unchecked 0x2,-0x7 08ed e5fb | | Load 0x2,-0x5 08ee e5ff | | Load 0x2,-0x1 08ef e004 | | Load 0x0,0x4 08f0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 08f1 6817 |h | Jump_Zero 0x909 08f2 e5fb | | Load 0x2,-0x5 08f3 4801 |H | Short_Literal 0x1 08f4 4801 |H | Short_Literal 0x1 08f5 e006 | | Load 0x0,0x6 08f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08f7 035b | [ | Declare_Type Array,Constrained 08f8 0337 | 7 | Declare_Variable Array 08f9 0092 1ad7 | | Action Push_String_Extended,0x1ad7 ; "Upload_Ada_Unit" 08fb e006 | | Load 0x0,0x6 08fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08fd e006 | | Load 0x0,0x6 08fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08ff 0119 | | Execute Any,Check_In_Formal_Type 0900 4801 |H | Short_Literal 0x1 0901 00da | | Load_Top At_Offset_2 0902 01d6 | | Execute Vector,Field_Write 0903 67d4 |g | Indirect_Literal Discrete,0x8d8,{0x00000000, 0x0000818f} 0904 e001 | | Load 0x0,0x1 0905 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0906 4800 |H | Short_Literal 0x0 0907 a5f9 | | Store_Unchecked 0x2,-0x7 0908 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0909 e001 | | Load 0x0,0x1 090a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 090b e00f | | Load 0x0,0xf 090c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 090d e5fb | | Load 0x2,-0x5 090e e5ff | | Load 0x2,-0x1 090f e004 | | Load 0x0,0x4 0910 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0911 e013 | | Load 0x0,0x13 0912 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0913 e013 | | Load 0x0,0x13 0914 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0915 e013 | | Load 0x0,0x13 0916 180d | | Execute Package,Field_Execute,Field_Number 0xd 0917 e5fd | | Load 0x2,-0x3 0918 e003 | | Load 0x0,0x3 0919 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 091a e00f | | Load 0x0,0xf 091b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 091c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 091d 005a | Z | Store_Top Discrete,At_Offset_2 091e 4800 |H | Short_Literal 0x0 091f 00da | | Load_Top At_Offset_2 0920 e001 | | Load 0x0,0x1 0921 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0922 7007 |p | Jump_Nonzero 0x92a 0923 e5fb | | Load 0x2,-0x5 0924 00da | | Load_Top At_Offset_2 0925 e001 | | Load 0x0,0x1 0926 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0927 00d9 | | Load_Top At_Offset_1 0928 a5f9 | | Store_Unchecked 0x2,-0x7 0929 4506 |E | Exit_Suprogram New_Top_Offset 0x6 092a e001 | | Load 0x0,0x1 092b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 092c e5fa | | Load 0x2,-0x6 092d 0120 | | Execute Any,Is_Value 092e 6803 |h | Jump_Zero 0x932 092f e00c | | Load 0x0,0xc 0930 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0931 7801 |x | Jump 0x933 0932 e5fa | | Load 0x2,-0x6 0933 e5fb | | Load 0x2,-0x5 0934 00db | | Load_Top At_Offset_3 0935 e5fc | | Load 0x2,-0x4 0936 e5fd | | Load 0x2,-0x3 0937 e5fe | | Load 0x2,-0x2 0938 e5ff | | Load 0x2,-0x1 0939 8288 | | Call 0x1,0x88 093a c5fa | | Store 0x2,-0x6 093b 005a | Z | Store_Top Discrete,At_Offset_2 093c 4800 |H | Short_Literal 0x0 093d 00da | | Load_Top At_Offset_2 093e e001 | | Load 0x0,0x1 093f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0940 700a |p | Jump_Nonzero 0x94b 0941 00d9 | | Load_Top At_Offset_1 0942 a5f9 | | Store_Unchecked 0x2,-0x7 0943 e001 | | Load 0x0,0x1 0944 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0945 4800 |H | Short_Literal 0x0 0946 00da | | Load_Top At_Offset_2 0947 e00f | | Load 0x0,0xf 0948 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0949 005a | Z | Store_Top Discrete,At_Offset_2 094a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 094b e001 | | Load 0x0,0x1 094c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 094d e5fb | | Load 0x2,-0x5 094e e5ff | | Load 0x2,-0x1 094f e004 | | Load 0x0,0x4 0950 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0951 00da | | Load_Top At_Offset_2 0952 e00f | | Load 0x0,0xf 0953 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0954 c5f9 | | Store 0x2,-0x7 0955 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0956 TRAP_08e0: 0956 e001 | | Load 0x0,0x1 0957 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0958 010f | | Execute Exception,Equal 0959 680e |h | Jump_Zero 0x968 095a e001 | | Load 0x0,0x1 095b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 095c a5f9 | | Store_Unchecked 0x2,-0x7 095d e001 | | Load 0x0,0x1 095e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 095f e5fb | | Load 0x2,-0x5 0960 e5ff | | Load 0x2,-0x1 0961 e004 | | Load 0x0,0x4 0962 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0963 00db | | Load_Top At_Offset_3 0964 e00f | | Load 0x0,0xf 0965 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0966 005b | [ | Store_Top Discrete,At_Offset_3 0967 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0968 e5fb | | Load 0x2,-0x5 0969 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit" 096b e005 | | Load 0x0,0x5 096c 180f | | Execute Package,Field_Execute,Field_Number 0xf 096d 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit" 096f e005 | | Load 0x0,0x5 0970 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0971 a5f9 | | Store_Unchecked 0x2,-0x7 0972 e001 | | Load 0x0,0x1 0973 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0974 e5fb | | Load 0x2,-0x5 0975 e5ff | | Load 0x2,-0x1 0976 e004 | | Load 0x0,0x4 0977 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0978 00db | | Load_Top At_Offset_3 0979 e00f | | Load 0x0,0xf 097a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 097b 005b | [ | Store_Top Discrete,At_Offset_3 097c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 097d 0000 0000 | | .XXX[0x3] 097f 0000 | | 0980 ; -------------------------------------------------------------------------------------- 0980 ; SUBPROGRAM 0980 ; -------------------------------------------------------------------------------------- 0980 0995 | | .CONST 0x0995 ; Address of begin 0981 09fd | | .CONST 0x09fd ; Address of exception handler 0982 0006 | | .CONST 0x0006 ; Number of locals 0983 INIT_0980: 0983 00db | | Load_Top At_Offset_3 0984 82ac | | Call 0x1,0xac 0985 e5fb | | Load 0x2,-0x5 0986 e5fe | | Load 0x2,-0x2 0987 82ab | | Call 0x1,0xab 0988 e5f8 | | Load 0x2,-0x8 0989 e5fc | | Load 0x2,-0x4 098a e5fd | | Load 0x2,-0x3 098b e5ff | | Load 0x2,-0x1 098c 8229 | ) | Call 0x1,0x29 098d e001 | | Load 0x0,0x1 098e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 098f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0990 e00c | | Load 0x0,0xc 0991 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0992 02c7 | | Declare_Variable Any 0993 00d8 | | Load_Top At_Offset_0 0994 1c00 | | Execute_Immediate Run_Utility,0x0 0995 BODY_0980: 0995 4800 |H | Short_Literal 0x0 0996 a5f7 | | Store_Unchecked 0x2,-0x9 0997 e5f8 | | Load 0x2,-0x8 0998 4800 |H | Short_Literal 0x0 0999 e403 | | Load 0x2,0x3 099a e004 | | Load 0x0,0x4 099b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 099c c406 | | Store 0x2,0x6 099d 00d8 | | Load_Top At_Offset_0 099e e00c | | Load 0x0,0xc 099f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09a0 7028 |p( | Jump_Nonzero 0x9c9 09a1 e5f9 | | Load 0x2,-0x7 09a2 7026 |p& | Jump_Nonzero 0x9c9 09a3 e5f8 | | Load 0x2,-0x8 09a4 4801 |H | Short_Literal 0x1 09a5 4801 |H | Short_Literal 0x1 09a6 e006 | | Load 0x0,0x6 09a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09a8 035b | [ | Declare_Type Array,Constrained 09a9 0337 | 7 | Declare_Variable Array 09aa 0092 1adc | | Action Push_String_Extended,0x1adc ; "Can't upload from remote unit \x22" 09ac e5fc | | Load 0x2,-0x4 09ad 01cc | | Execute Vector,Catenate 09ae 0092 1add | | Action Push_String_Extended,0x1add ; "\x22 into existing text file \x22" 09b0 01cc | | Execute Vector,Catenate 09b1 e5fb | | Load 0x2,-0x5 09b2 01cc | | Execute Vector,Catenate 09b3 0092 1ade | | Action Push_String_Extended,0x1ade ; "\x22." 09b5 01cc | | Execute Vector,Catenate 09b6 e006 | | Load 0x0,0x6 09b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09b8 e006 | | Load 0x0,0x6 09b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09ba 0119 | | Execute Any,Check_In_Formal_Type 09bb 4801 |H | Short_Literal 0x1 09bc 00da | | Load_Top At_Offset_2 09bd 01d6 | | Execute Vector,Field_Write 09be 4807 |H | Short_Literal 0x7 09bf 6054 |`T | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00008128} 09c0 e001 | | Load 0x0,0x1 09c1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 09c2 e006 | | Load 0x0,0x6 09c3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 09c4 604f |`O | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00008128} 09c5 e001 | | Load 0x0,0x1 09c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09c7 a5f7 | | Store_Unchecked 0x2,-0x9 09c8 4509 |E | Exit_Suprogram New_Top_Offset 0x9 09c9 e5f8 | | Load 0x2,-0x8 09ca e5ff | | Load 0x2,-0x1 09cb e004 | | Load 0x0,0x4 09cc 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 09cd 6815 |h | Jump_Zero 0x9e3 09ce e5f8 | | Load 0x2,-0x8 09cf 4801 |H | Short_Literal 0x1 09d0 4801 |H | Short_Literal 0x1 09d1 e006 | | Load 0x0,0x6 09d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d3 035b | [ | Declare_Type Array,Constrained 09d4 0337 | 7 | Declare_Variable Array 09d5 0092 1adf | | Action Push_String_Extended,0x1adf ; "Upload_Text_File" 09d7 e006 | | Load 0x0,0x6 09d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09d9 e006 | | Load 0x0,0x6 09da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09db 0119 | | Execute Any,Check_In_Formal_Type 09dc 4801 |H | Short_Literal 0x1 09dd 00da | | Load_Top At_Offset_2 09de 01d6 | | Execute Vector,Field_Write 09df 6030 |`0 | Indirect_Literal Discrete,0xa10,{0x00000000, 0x0000818f} 09e0 e001 | | Load 0x0,0x1 09e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09e2 4509 |E | Exit_Suprogram New_Top_Offset 0x9 09e3 e001 | | Load 0x0,0x1 09e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e5 e5f8 | | Load 0x2,-0x8 09e6 e5ff | | Load 0x2,-0x1 09e7 e004 | | Load 0x0,0x4 09e8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 09e9 4800 |H | Short_Literal 0x0 09ea e5fa | | Load 0x2,-0x6 09eb e404 | | Load 0x2,0x4 09ec 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09ed e403 | | Load 0x2,0x3 09ee e00f | | Load 0x0,0xf 09ef 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 09f0 005a | Z | Store_Top Discrete,At_Offset_2 09f1 4800 |H | Short_Literal 0x0 09f2 00da | | Load_Top At_Offset_2 09f3 e001 | | Load 0x0,0x1 09f4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 09f5 7006 |p | Jump_Nonzero 0x9fc 09f6 e5f8 | | Load 0x2,-0x8 09f7 00da | | Load_Top At_Offset_2 09f8 e001 | | Load 0x0,0x1 09f9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 09fa 00d9 | | Load_Top At_Offset_1 09fb a5f7 | | Store_Unchecked 0x2,-0x9 09fc 4509 |E | Exit_Suprogram New_Top_Offset 0x9 09fd TRAP_0980: 09fd e001 | | Load 0x0,0x1 09fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09ff 010f | | Execute Exception,Equal 0a00 6804 |h | Jump_Zero 0xa05 0a01 e001 | | Load 0x0,0x1 0a02 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0a03 a5f7 | | Store_Unchecked 0x2,-0x9 0a04 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0a05 e5f8 | | Load 0x2,-0x8 0a06 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File" 0a08 e005 | | Load 0x0,0x5 0a09 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a0a 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File" 0a0c e005 | | Load 0x0,0x5 0a0d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a0e a5f7 | | Store_Unchecked 0x2,-0x9 0a0f 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0a10 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 0a14 0000 0000 | | .LITERAL {0x00000000, 0x00008128} 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a20 | | .CONST 0x0a20 ; Address of begin 0a19 0a88 | | .CONST 0x0a88 ; Address of exception handler 0a1a 0003 | | .CONST 0x0003 ; Number of locals 0a1b INIT_0a18: 0a1b e001 | | Load 0x0,0x1 0a1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a1d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a1e e00f | | Load 0x0,0xf 0a1f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0a20 BODY_0a18: 0a20 4800 |H | Short_Literal 0x0 0a21 a5f8 | | Store_Unchecked 0x2,-0x8 0a22 e5f9 | | Load 0x2,-0x7 0a23 e5ff | | Load 0x2,-0x1 0a24 e004 | | Load 0x0,0x4 0a25 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0a26 6817 |h | Jump_Zero 0xa3e 0a27 e5f9 | | Load 0x2,-0x7 0a28 4801 |H | Short_Literal 0x1 0a29 4801 |H | Short_Literal 0x1 0a2a e006 | | Load 0x0,0x6 0a2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a2c 035b | [ | Declare_Type Array,Constrained 0a2d 0337 | 7 | Declare_Variable Array 0a2e 0092 1adf | | Action Push_String_Extended,0x1adf ; "Upload_Text_File" 0a30 e006 | | Load 0x0,0x6 0a31 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a32 e006 | | Load 0x0,0x6 0a33 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a34 0119 | | Execute Any,Check_In_Formal_Type 0a35 4801 |H | Short_Literal 0x1 0a36 00da | | Load_Top At_Offset_2 0a37 01d6 | | Execute Vector,Field_Write 0a38 67d7 |g | Indirect_Literal Discrete,0xa10,{0x00000000, 0x0000818f} 0a39 e001 | | Load 0x0,0x1 0a3a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a3b 4800 |H | Short_Literal 0x0 0a3c a5f8 | | Store_Unchecked 0x2,-0x8 0a3d 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a3e e001 | | Load 0x0,0x1 0a3f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a40 e00f | | Load 0x0,0xf 0a41 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0a42 e5f9 | | Load 0x2,-0x7 0a43 e5ff | | Load 0x2,-0x1 0a44 e004 | | Load 0x0,0x4 0a45 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0a46 e013 | | Load 0x0,0x13 0a47 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a48 e013 | | Load 0x0,0x13 0a49 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a4a e013 | | Load 0x0,0x13 0a4b 180d | | Execute Package,Field_Execute,Field_Number 0xd 0a4c e5fd | | Load 0x2,-0x3 0a4d e003 | | Load 0x0,0x3 0a4e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0a4f e00f | | Load 0x0,0xf 0a50 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0a51 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a52 005a | Z | Store_Top Discrete,At_Offset_2 0a53 4800 |H | Short_Literal 0x0 0a54 00da | | Load_Top At_Offset_2 0a55 e001 | | Load 0x0,0x1 0a56 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a57 7007 |p | Jump_Nonzero 0xa5f 0a58 e5f9 | | Load 0x2,-0x7 0a59 00da | | Load_Top At_Offset_2 0a5a e001 | | Load 0x0,0x1 0a5b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0a5c 00d9 | | Load_Top At_Offset_1 0a5d a5f8 | | Store_Unchecked 0x2,-0x8 0a5e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a5f e001 | | Load 0x0,0x1 0a60 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a61 e5f9 | | Load 0x2,-0x7 0a62 e5fa | | Load 0x2,-0x6 0a63 00db | | Load_Top At_Offset_3 0a64 e5fb | | Load 0x2,-0x5 0a65 e5fc | | Load 0x2,-0x4 0a66 e5fd | | Load 0x2,-0x3 0a67 e5fe | | Load 0x2,-0x2 0a68 e5ff | | Load 0x2,-0x1 0a69 828a | | Call 0x1,0x8a 0a6a 005a | Z | Store_Top Discrete,At_Offset_2 0a6b 4800 |H | Short_Literal 0x0 0a6c 00da | | Load_Top At_Offset_2 0a6d e001 | | Load 0x0,0x1 0a6e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a6f 700d |p | Jump_Nonzero 0xa7d 0a70 00d9 | | Load_Top At_Offset_1 0a71 a5f8 | | Store_Unchecked 0x2,-0x8 0a72 e001 | | Load 0x0,0x1 0a73 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a74 e5f9 | | Load 0x2,-0x7 0a75 e5ff | | Load 0x2,-0x1 0a76 e004 | | Load 0x0,0x4 0a77 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0a78 00da | | Load_Top At_Offset_2 0a79 e00f | | Load 0x0,0xf 0a7a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a7b 005a | Z | Store_Top Discrete,At_Offset_2 0a7c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a7d e001 | | Load 0x0,0x1 0a7e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a7f e5f9 | | Load 0x2,-0x7 0a80 e5ff | | Load 0x2,-0x1 0a81 e004 | | Load 0x0,0x4 0a82 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0a83 00da | | Load_Top At_Offset_2 0a84 e00f | | Load 0x0,0xf 0a85 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a86 c5f8 | | Store 0x2,-0x8 0a87 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a88 TRAP_0a18: 0a88 e001 | | Load 0x0,0x1 0a89 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a8a 010f | | Execute Exception,Equal 0a8b 680b |h | Jump_Zero 0xa97 0a8c e001 | | Load 0x0,0x1 0a8d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0a8e a5f8 | | Store_Unchecked 0x2,-0x8 0a8f e001 | | Load 0x0,0x1 0a90 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a91 4800 |H | Short_Literal 0x0 0a92 00db | | Load_Top At_Offset_3 0a93 e00f | | Load 0x0,0xf 0a94 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a95 005b | [ | Store_Top Discrete,At_Offset_3 0a96 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a97 e5f9 | | Load 0x2,-0x7 0a98 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File" 0a9a e005 | | Load 0x0,0x5 0a9b 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a9c 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File" 0a9e e005 | | Load 0x0,0x5 0a9f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0aa0 a5f8 | | Store_Unchecked 0x2,-0x8 0aa1 e001 | | Load 0x0,0x1 0aa2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0aa3 4800 |H | Short_Literal 0x0 0aa4 00db | | Load_Top At_Offset_3 0aa5 e00f | | Load 0x0,0xf 0aa6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0aa7 005b | [ | Store_Top Discrete,At_Offset_3 0aa8 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0aa9 0000 0000 | | .BLANK 0000[0x7] 0ab0 ; -------------------------------------------------------------------------------------- 0ab0 ; SUBPROGRAM 0ab0 ; -------------------------------------------------------------------------------------- 0ab0 0ac0 | | .CONST 0x0ac0 ; Address of begin 0ab1 0b03 | | .CONST 0x0b03 ; Address of exception handler 0ab2 0004 | | .CONST 0x0004 ; Number of locals 0ab3 INIT_0ab0: 0ab3 e00e | | Load 0x0,0xe 0ab4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ab5 02c7 | | Declare_Variable Any 0ab6 00d8 | | Load_Top At_Offset_0 0ab7 1c00 | | Execute_Immediate Run_Utility,0x0 0ab8 e5fb | | Load 0x2,-0x5 0ab9 e5fe | | Load 0x2,-0x2 0aba e5fd | | Load 0x2,-0x3 0abb e5ff | | Load 0x2,-0x1 0abc 8228 | ( | Call 0x1,0x28 0abd e001 | | Load 0x0,0x1 0abe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0abf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ac0 BODY_0ab0: 0ac0 e5fb | | Load 0x2,-0x5 0ac1 e5ff | | Load 0x2,-0x1 0ac2 e004 | | Load 0x0,0x4 0ac3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0ac4 6817 |h | Jump_Zero 0xadc 0ac5 e5fb | | Load 0x2,-0x5 0ac6 4801 |H | Short_Literal 0x1 0ac7 4801 |H | Short_Literal 0x1 0ac8 e006 | | Load 0x0,0x6 0ac9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0aca 035b | [ | Declare_Type Array,Constrained 0acb 0337 | 7 | Declare_Variable Array 0acc 0092 1ae1 | | Action Push_String_Extended,0x1ae1 ; "Update_Consistency" 0ace e006 | | Load 0x0,0x6 0acf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ad0 e006 | | Load 0x0,0x6 0ad1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ad2 0119 | | Execute Any,Check_In_Formal_Type 0ad3 4801 |H | Short_Literal 0x1 0ad4 00da | | Load_Top At_Offset_2 0ad5 01d6 | | Execute Vector,Field_Write 0ad6 6041 |`A | Indirect_Literal Discrete,0xb18,{0x00000000, 0x0000818f} 0ad7 e001 | | Load 0x0,0x1 0ad8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ad9 4800 |H | Short_Literal 0x0 0ada a5fa | | Store_Unchecked 0x2,-0x6 0adb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0adc 00da | | Load_Top At_Offset_2 0add 0120 | | Execute Any,Is_Value 0ade 6803 |h | Jump_Zero 0xae2 0adf e00e | | Load 0x0,0xe 0ae0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ae1 7801 |x | Jump 0xae3 0ae2 00da | | Load_Top At_Offset_2 0ae3 e001 | | Load 0x0,0x1 0ae4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ae5 4800 |H | Short_Literal 0x0 0ae6 e5fc | | Load 0x2,-0x4 0ae7 e403 | | Load 0x2,0x3 0ae8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ae9 e00f | | Load 0x0,0xf 0aea 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0aeb 005a | Z | Store_Top Discrete,At_Offset_2 0aec c402 | | Store 0x2,0x2 0aed 4800 |H | Short_Literal 0x0 0aee 00d9 | | Load_Top At_Offset_1 0aef e001 | | Load 0x0,0x1 0af0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0af1 7005 |p | Jump_Nonzero 0xaf7 0af2 e5fb | | Load 0x2,-0x5 0af3 00d9 | | Load_Top At_Offset_1 0af4 e001 | | Load 0x0,0x1 0af5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0af6 7809 |x | Jump 0xb00 0af7 e001 | | Load 0x0,0x1 0af8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0af9 e5fb | | Load 0x2,-0x5 0afa e5fd | | Load 0x2,-0x3 0afb e402 | | Load 0x2,0x2 0afc e5fe | | Load 0x2,-0x2 0afd e5ff | | Load 0x2,-0x1 0afe 822c | , | Call 0x1,0x2c 0aff 0059 | Y | Store_Top Discrete,At_Offset_1 0b00 00d8 | | Load_Top At_Offset_0 0b01 a5fa | | Store_Unchecked 0x2,-0x6 0b02 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0b03 TRAP_0ab0: 0b03 e001 | | Load 0x0,0x1 0b04 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b05 010f | | Execute Exception,Equal 0b06 6804 |h | Jump_Zero 0xb0b 0b07 e001 | | Load 0x0,0x1 0b08 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0b09 a5fa | | Store_Unchecked 0x2,-0x6 0b0a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0b0b e5fb | | Load 0x2,-0x5 0b0c 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency" 0b0e e005 | | Load 0x0,0x5 0b0f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b10 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency" 0b12 e005 | | Load 0x0,0x5 0b13 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b14 a5fa | | Store_Unchecked 0x2,-0x6 0b15 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0b16 0000 0000 | | .XXX[0x2] 0b18 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 0b1c 0000 0000 | | .BLANK 0000[0x4] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b28 | ( | .CONST 0x0b28 ; Address of begin 0b21 0b84 | | .CONST 0x0b84 ; Address of exception handler 0b22 0003 | | .CONST 0x0003 ; Number of locals 0b23 INIT_0b20: 0b23 e001 | | Load 0x0,0x1 0b24 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b25 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b26 e00f | | Load 0x0,0xf 0b27 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0b28 BODY_0b20: 0b28 4800 |H | Short_Literal 0x0 0b29 a5fb | | Store_Unchecked 0x2,-0x5 0b2a e5fc | | Load 0x2,-0x4 0b2b e5ff | | Load 0x2,-0x1 0b2c e004 | | Load 0x0,0x4 0b2d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0b2e 6817 |h | Jump_Zero 0xb46 0b2f e5fc | | Load 0x2,-0x4 0b30 4801 |H | Short_Literal 0x1 0b31 4801 |H | Short_Literal 0x1 0b32 e006 | | Load 0x0,0x6 0b33 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b34 035b | [ | Declare_Type Array,Constrained 0b35 0337 | 7 | Declare_Variable Array 0b36 0092 1ae1 | | Action Push_String_Extended,0x1ae1 ; "Update_Consistency" 0b38 e006 | | Load 0x0,0x6 0b39 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b3a e006 | | Load 0x0,0x6 0b3b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b3c 0119 | | Execute Any,Check_In_Formal_Type 0b3d 4801 |H | Short_Literal 0x1 0b3e 00da | | Load_Top At_Offset_2 0b3f 01d6 | | Execute Vector,Field_Write 0b40 67d7 |g | Indirect_Literal Discrete,0xb18,{0x00000000, 0x0000818f} 0b41 e001 | | Load 0x0,0x1 0b42 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b43 4800 |H | Short_Literal 0x0 0b44 a5fb | | Store_Unchecked 0x2,-0x5 0b45 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b46 e001 | | Load 0x0,0x1 0b47 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b48 e00f | | Load 0x0,0xf 0b49 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0b4a 4800 |H | Short_Literal 0x0 0b4b e013 | | Load 0x0,0x13 0b4c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b4d e013 | | Load 0x0,0x13 0b4e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b4f e013 | | Load 0x0,0x13 0b50 180d | | Execute Package,Field_Execute,Field_Number 0xd 0b51 e5fd | | Load 0x2,-0x3 0b52 e003 | | Load 0x0,0x3 0b53 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0b54 e00f | | Load 0x0,0xf 0b55 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0b56 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0b57 005a | Z | Store_Top Discrete,At_Offset_2 0b58 4800 |H | Short_Literal 0x0 0b59 00da | | Load_Top At_Offset_2 0b5a e001 | | Load 0x0,0x1 0b5b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0b5c 7007 |p | Jump_Nonzero 0xb64 0b5d e5fc | | Load 0x2,-0x4 0b5e 00da | | Load_Top At_Offset_2 0b5f e001 | | Load 0x0,0x1 0b60 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0b61 00d9 | | Load_Top At_Offset_1 0b62 a5fb | | Store_Unchecked 0x2,-0x5 0b63 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b64 e001 | | Load 0x0,0x1 0b65 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b66 e5fc | | Load 0x2,-0x4 0b67 00da | | Load_Top At_Offset_2 0b68 e5fd | | Load 0x2,-0x3 0b69 e5fe | | Load 0x2,-0x2 0b6a e5ff | | Load 0x2,-0x1 0b6b 8231 | 1 | Call 0x1,0x31 0b6c 005a | Z | Store_Top Discrete,At_Offset_2 0b6d 4800 |H | Short_Literal 0x0 0b6e 00da | | Load_Top At_Offset_2 0b6f e001 | | Load 0x0,0x1 0b70 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0b71 700a |p | Jump_Nonzero 0xb7c 0b72 00d9 | | Load_Top At_Offset_1 0b73 a5fb | | Store_Unchecked 0x2,-0x5 0b74 e001 | | Load 0x0,0x1 0b75 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b76 4800 |H | Short_Literal 0x0 0b77 00da | | Load_Top At_Offset_2 0b78 e00f | | Load 0x0,0xf 0b79 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b7a 005a | Z | Store_Top Discrete,At_Offset_2 0b7b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b7c e001 | | Load 0x0,0x1 0b7d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b7e 4800 |H | Short_Literal 0x0 0b7f 00da | | Load_Top At_Offset_2 0b80 e00f | | Load 0x0,0xf 0b81 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b82 c5fb | | Store 0x2,-0x5 0b83 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b84 TRAP_0b20: 0b84 e001 | | Load 0x0,0x1 0b85 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b86 010f | | Execute Exception,Equal 0b87 680b |h | Jump_Zero 0xb93 0b88 e001 | | Load 0x0,0x1 0b89 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0b8a a5fb | | Store_Unchecked 0x2,-0x5 0b8b e001 | | Load 0x0,0x1 0b8c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b8d 4800 |H | Short_Literal 0x0 0b8e 00db | | Load_Top At_Offset_3 0b8f e00f | | Load 0x0,0xf 0b90 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b91 005b | [ | Store_Top Discrete,At_Offset_3 0b92 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b93 e5fc | | Load 0x2,-0x4 0b94 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency" 0b96 e005 | | Load 0x0,0x5 0b97 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b98 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency" 0b9a e005 | | Load 0x0,0x5 0b9b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b9c a5fb | | Store_Unchecked 0x2,-0x5 0b9d e001 | | Load 0x0,0x1 0b9e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b9f 4800 |H | Short_Literal 0x0 0ba0 00db | | Load_Top At_Offset_3 0ba1 e00f | | Load 0x0,0xf 0ba2 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0ba3 005b | [ | Store_Top Discrete,At_Offset_3 0ba4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ba5 0000 0000 | | .XXX[0x3] 0ba7 0000 | | 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 ; SUBPROGRAM 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 0bc9 | | .CONST 0x0bc9 ; Address of begin 0ba9 0c45 | E | .CONST 0x0c45 ; Address of exception handler 0baa 0008 | | .CONST 0x0008 ; Number of locals 0bab INIT_0ba8: 0bab e00c | | Load 0x0,0xc 0bac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bad 02c7 | | Declare_Variable Any 0bae 00d8 | | Load_Top At_Offset_0 0baf 1c00 | | Execute_Immediate Run_Utility,0x0 0bb0 e014 | | Load 0x0,0x14 0bb1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bb2 02c7 | | Declare_Variable Any 0bb3 00d8 | | Load_Top At_Offset_0 0bb4 1c00 | | Execute_Immediate Run_Utility,0x0 0bb5 e001 | | Load 0x0,0x1 0bb6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bb7 00e1 | | Load_Encached Boolean_Cache 0bb8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0bb9 e00c | | Load 0x0,0xc 0bba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bbb 02c7 | | Declare_Variable Any 0bbc 00d8 | | Load_Top At_Offset_0 0bbd 1c00 | | Execute_Immediate Run_Utility,0x0 0bbe 00e1 | | Load_Encached Boolean_Cache 0bbf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0bc0 e5ff | | Load 0x2,-0x1 0bc1 e004 | | Load 0x0,0x4 0bc2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0bc3 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "." 0bc5 01cc | | Execute Vector,Catenate 0bc6 e5fe | | Load 0x2,-0x2 0bc7 01cc | | Execute Vector,Catenate 0bc8 0007 | | Action Break_Optional 0bc9 BODY_0ba8: 0bc9 4800 |H | Short_Literal 0x0 0bca a5fc | | Store_Unchecked 0x2,-0x4 0bcb e5fe | | Load 0x2,-0x2 0bcc 01db | | Execute Vector,Length 0bcd 0f00 | | Execute_Immediate Equal,0x0 0bce e5fe | | Load 0x2,-0x2 0bcf 0092 1ae4 | | Action Push_String_Extended,0x1ae4 ; "state" 0bd1 01df | | Execute Vector,Equal 0bd2 0278 | x | Execute Discrete,Or 0bd3 6803 |h | Jump_Zero 0xbd7 0bd4 e001 | | Load 0x0,0x1 0bd5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0bd6 0257 | W | Execute Discrete,Raise 0bd7 00e1 | | Load_Encached Boolean_Cache 0bd8 e403 | | Load 0x2,0x3 0bd9 e5fd | | Load 0x2,-0x3 0bda 00db | | Load_Top At_Offset_3 0bdb 82a1 | | Call 0x1,0xa1 0bdc c403 | | Store 0x2,0x3 0bdd c405 | | Store 0x2,0x5 0bde 00db | | Load_Top At_Offset_3 0bdf 700c |p | Jump_Nonzero 0xbec 0be0 e403 | | Load 0x2,0x3 0be1 00ea | | Load_Encached Null_String_Cache 0be2 00da | | Load_Top At_Offset_2 0be3 4801 |H | Short_Literal 0x1 0be4 e014 | | Load 0x0,0x14 0be5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0be6 c403 | | Store 0x2,0x3 0be7 e403 | | Load 0x2,0x3 0be8 e014 | | Load 0x0,0x14 0be9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0bea c403 | | Store 0x2,0x3 0beb 7804 |x | Jump 0xbf0 0bec e403 | | Load 0x2,0x3 0bed e014 | | Load 0x0,0x14 0bee 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0bef c403 | | Store 0x2,0x3 0bf0 e5fd | | Load 0x2,-0x3 0bf1 00d9 | | Load_Top At_Offset_1 0bf2 8298 | | Call 0x1,0x98 0bf3 c402 | | Store 0x2,0x2 0bf4 e402 | | Load 0x2,0x2 0bf5 e004 | | Load 0x0,0x4 0bf6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0bf7 6816 |h | Jump_Zero 0xc0e 0bf8 e5fd | | Load 0x2,-0x3 0bf9 4801 |H | Short_Literal 0x1 0bfa 4801 |H | Short_Literal 0x1 0bfb e006 | | Load 0x0,0x6 0bfc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bfd 035b | [ | Declare_Type Array,Constrained 0bfe 0337 | 7 | Declare_Variable Array 0bff 00da | | Load_Top At_Offset_2 0c00 e006 | | Load 0x0,0x6 0c01 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c02 e006 | | Load 0x0,0x6 0c03 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c04 0119 | | Execute Any,Check_In_Formal_Type 0c05 4801 |H | Short_Literal 0x1 0c06 00da | | Load_Top At_Offset_2 0c07 01d6 | | Execute Vector,Field_Write 0c08 605f |`_ | Indirect_Literal Discrete,0xc68,{0x00000000, 0x000081ac} 0c09 e001 | | Load 0x0,0x1 0c0a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c0b e001 | | Load 0x0,0x1 0c0c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0c0d 0257 | W | Execute Discrete,Raise 0c0e 00db | | Load_Top At_Offset_3 0c0f 682e |h. | Jump_Zero 0xc3e 0c10 00e1 | | Load_Encached Boolean_Cache 0c11 00db | | Load_Top At_Offset_3 0c12 0120 | | Execute Any,Is_Value 0c13 6803 |h | Jump_Zero 0xc17 0c14 e00c | | Load 0x0,0xc 0c15 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c16 7801 |x | Jump 0xc18 0c17 00db | | Load_Top At_Offset_3 0c18 e5fd | | Load 0x2,-0x3 0c19 e402 | | Load 0x2,0x2 0c1a 8287 | | Call 0x1,0x87 0c1b c406 | | Store 0x2,0x6 0c1c 005a | Z | Store_Top Discrete,At_Offset_2 0c1d 00d9 | | Load_Top At_Offset_1 0c1e 681f |h | Jump_Zero 0xc3e 0c1f e5fd | | Load 0x2,-0x3 0c20 4801 |H | Short_Literal 0x1 0c21 4802 |H | Short_Literal 0x2 0c22 e006 | | Load 0x0,0x6 0c23 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c24 035b | [ | Declare_Type Array,Constrained 0c25 0337 | 7 | Declare_Variable Array 0c26 e402 | | Load 0x2,0x2 0c27 e004 | | Load 0x0,0x4 0c28 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0c29 e006 | | Load 0x0,0x6 0c2a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c2b 0119 | | Execute Any,Check_In_Formal_Type 0c2c 4801 |H | Short_Literal 0x1 0c2d 00da | | Load_Top At_Offset_2 0c2e 01d6 | | Execute Vector,Field_Write 0c2f e406 | | Load 0x2,0x6 0c30 e004 | | Load 0x0,0x4 0c31 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0c32 e006 | | Load 0x0,0x6 0c33 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c34 0119 | | Execute Any,Check_In_Formal_Type 0c35 4802 |H | Short_Literal 0x2 0c36 00da | | Load_Top At_Offset_2 0c37 01d6 | | Execute Vector,Field_Write 0c38 602b |`+ | Indirect_Literal Discrete,0xc64,{0x00000000, 0x000081cb} 0c39 e001 | | Load 0x0,0x1 0c3a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c3b e001 | | Load 0x0,0x1 0c3c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0c3d 0257 | W | Execute Discrete,Raise 0c3e e001 | | Load 0x0,0x1 0c3f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c40 e5fd | | Load 0x2,-0x3 0c41 e402 | | Load 0x2,0x2 0c42 8260 | ` | Call 0x1,0x60 0c43 c404 | | Store 0x2,0x4 0c44 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c45 TRAP_0ba8: 0c45 0007 | | Action Break_Optional 0c46 e5fd | | Load 0x2,-0x3 0c47 4801 |H | Short_Literal 0x1 0c48 4801 |H | Short_Literal 0x1 0c49 e006 | | Load 0x0,0x6 0c4a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c4b 035b | [ | Declare_Type Array,Constrained 0c4c 0337 | 7 | Declare_Variable Array 0c4d 00db | | Load_Top At_Offset_3 0c4e e006 | | Load 0x0,0x6 0c4f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c50 e006 | | Load 0x0,0x6 0c51 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c52 0119 | | Execute Any,Check_In_Formal_Type 0c53 4801 |H | Short_Literal 0x1 0c54 00da | | Load_Top At_Offset_2 0c55 01d6 | | Execute Vector,Field_Write 0c56 6009 |` | Indirect_Literal Discrete,0xc60,{0x00000000, 0x000081a1} 0c57 e001 | | Load 0x0,0x1 0c58 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c59 e006 | | Load 0x0,0x6 0c5a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c5b 6004 |` | Indirect_Literal Discrete,0xc60,{0x00000000, 0x000081a1} 0c5c e001 | | Load 0x0,0x1 0c5d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c5e a5fc | | Store_Unchecked 0x2,-0x4 0c5f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c60 0000 0000 | | .LITERAL {0x00000000, 0x000081a1} 0c64 0000 0000 | | .LITERAL {0x00000000, 0x000081cb} 0c68 0000 0000 | | .LITERAL {0x00000000, 0x000081ac} 0c6c 0000 0000 | | .BLANK 0000[0x4] 0c70 ; -------------------------------------------------------------------------------------- 0c70 ; SUBPROGRAM 0c70 ; -------------------------------------------------------------------------------------- 0c70 0c7a | z | .CONST 0x0c7a ; Address of begin 0c71 0c90 | | .CONST 0x0c90 ; Address of exception handler 0c72 0005 | | .CONST 0x0005 ; Number of locals 0c73 INIT_0c70: 0c73 e00c | | Load 0x0,0xc 0c74 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c75 e28d | | Load 0x1,0x8d 0c76 0322 | " | Declare_Variable Record 0c77 00e2 | | Load_Encached Integer_Cache 0c78 e5ff | | Load 0x2,-0x1 0c79 8294 | | Call 0x1,0x94 0c7a BODY_0c70: 0c7a 4800 |H | Short_Literal 0x0 0c7b a5f9 | | Store_Unchecked 0x2,-0x7 0c7c 00da | | Load_Top At_Offset_2 0c7d e5fa | | Load 0x2,-0x6 0c7e 00da | | Load_Top At_Offset_2 0c7f 82a5 | | Call 0x1,0xa5 0c80 00d1 | | Pop_Control Pop_Count_1 0c81 00da | | Load_Top At_Offset_2 0c82 e5fb | | Load 0x2,-0x5 0c83 82a0 | | Call 0x1,0xa0 0c84 00d1 | | Pop_Control Pop_Count_1 0c85 e5fa | | Load 0x2,-0x6 0c86 00db | | Load_Top At_Offset_3 0c87 00da | | Load_Top At_Offset_2 0c88 82a3 | | Call 0x1,0xa3 0c89 e5fa | | Load 0x2,-0x6 0c8a e5fc | | Load 0x2,-0x4 0c8b e5fd | | Load 0x2,-0x3 0c8c e5fe | | Load 0x2,-0x2 0c8d e5ff | | Load 0x2,-0x1 0c8e 82aa | | Call 0x1,0xaa 0c8f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0c90 TRAP_0c70: 0c90 0007 | | Action Break_Optional 0c91 e5fa | | Load 0x2,-0x6 0c92 4801 |H | Short_Literal 0x1 0c93 4801 |H | Short_Literal 0x1 0c94 e006 | | Load 0x0,0x6 0c95 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c96 035b | [ | Declare_Type Array,Constrained 0c97 0337 | 7 | Declare_Variable Array 0c98 e5ff | | Load 0x2,-0x1 0c99 e006 | | Load 0x0,0x6 0c9a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0c9b e006 | | Load 0x0,0x6 0c9c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c9d 0119 | | Execute Any,Check_In_Formal_Type 0c9e 4801 |H | Short_Literal 0x1 0c9f 00da | | Load_Top At_Offset_2 0ca0 01d6 | | Execute Vector,Field_Write 0ca1 600a |` | Indirect_Literal Discrete,0xcac,{0x00000000, 0x000081a2} 0ca2 e001 | | Load 0x0,0x1 0ca3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ca4 e006 | | Load 0x0,0x6 0ca5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ca6 6005 |` | Indirect_Literal Discrete,0xcac,{0x00000000, 0x000081a2} 0ca7 e001 | | Load 0x0,0x1 0ca8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ca9 a5f9 | | Store_Unchecked 0x2,-0x7 0caa 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0cab 0000 | | .XXX[0x1] 0cac 0000 0000 | | .LITERAL {0x00000000, 0x000081a2} 0cb0 ; -------------------------------------------------------------------------------------- 0cb0 ; SUBPROGRAM 0cb0 ; -------------------------------------------------------------------------------------- 0cb0 0cbf | | .CONST 0x0cbf ; Address of begin 0cb1 0cdf | | .CONST 0x0cdf ; Address of exception handler 0cb2 0006 | | .CONST 0x0006 ; Number of locals 0cb3 INIT_0cb0: 0cb3 00e1 | | Load_Encached Boolean_Cache 0cb4 e00c | | Load 0x0,0xc 0cb5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cb6 02c7 | | Declare_Variable Any 0cb7 00d8 | | Load_Top At_Offset_0 0cb8 1c00 | | Execute_Immediate Run_Utility,0x0 0cb9 00e2 | | Load_Encached Integer_Cache 0cba e5ff | | Load 0x2,-0x1 0cbb e004 | | Load 0x0,0x4 0cbc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0cbd 029f 1863 | c| Declare_Subprogram INIT_1860,For_Call 0cbf BODY_0cb0: 0cbf 4800 |H | Short_Literal 0x0 0cc0 a5fd | | Store_Unchecked 0x2,-0x3 0cc1 e001 | | Load 0x0,0x1 0cc2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cc3 00e2 | | Load_Encached Integer_Cache 0cc4 e403 | | Load 0x2,0x3 0cc5 0120 | | Execute Any,Is_Value 0cc6 6803 |h | Jump_Zero 0xcca 0cc7 e00c | | Load 0x0,0xc 0cc8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cc9 7801 |x | Jump 0xccb 0cca e403 | | Load 0x2,0x3 0ccb e5fe | | Load 0x2,-0x2 0ccc e5ff | | Load 0x2,-0x1 0ccd 8267 | g | Call 0x1,0x67 0cce c403 | | Store 0x2,0x3 0ccf c404 | | Store 0x2,0x4 0cd0 c5fd | | Store 0x2,-0x3 0cd1 e001 | | Load 0x0,0x1 0cd2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cd3 e5fe | | Load 0x2,-0x2 0cd4 e5ff | | Load 0x2,-0x1 0cd5 8261 | a | Call 0x1,0x61 0cd6 c5fd | | Store 0x2,-0x3 0cd7 e5fe | | Load 0x2,-0x2 0cd8 00da | | Load_Top At_Offset_2 0cd9 8292 | | Call 0x1,0x92 0cda 00da | | Load_Top At_Offset_2 0cdb 0f01 | | Execute_Immediate Equal,0x1 0cdc 6801 |h | Jump_Zero 0xcde 0cdd 8406 | | Call 0x2,0x6 0cde 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0cdf TRAP_0cb0: 0cdf 0007 | | Action Break_Optional 0ce0 e5fe | | Load 0x2,-0x2 0ce1 4801 |H | Short_Literal 0x1 0ce2 4801 |H | Short_Literal 0x1 0ce3 e006 | | Load 0x0,0x6 0ce4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ce5 035b | [ | Declare_Type Array,Constrained 0ce6 0337 | 7 | Declare_Variable Array 0ce7 e405 | | Load 0x2,0x5 0ce8 e006 | | Load 0x0,0x6 0ce9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0cea e006 | | Load 0x0,0x6 0ceb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0cec 0119 | | Execute Any,Check_In_Formal_Type 0ced 4801 |H | Short_Literal 0x1 0cee 00da | | Load_Top At_Offset_2 0cef 01d6 | | Execute Vector,Field_Write 0cf0 600b |` | Indirect_Literal Discrete,0xcfc,{0x00000000, 0x000081a3} 0cf1 e001 | | Load 0x0,0x1 0cf2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0cf3 e006 | | Load 0x0,0x6 0cf4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0cf5 6006 |` | Indirect_Literal Discrete,0xcfc,{0x00000000, 0x000081a3} 0cf6 e001 | | Load 0x0,0x1 0cf7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0cf8 a5fd | | Store_Unchecked 0x2,-0x3 0cf9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0cfa 0000 0000 | | .XXX[0x2] 0cfc 0000 0000 | | .LITERAL {0x00000000, 0x000081a3} 0d00 ; -------------------------------------------------------------------------------------- 0d00 ; SUBPROGRAM 0d00 ; -------------------------------------------------------------------------------------- 0d00 0d17 | | .CONST 0x0d17 ; Address of begin 0d01 0dd7 | | .CONST 0x0dd7 ; Address of exception handler 0d02 0006 | | .CONST 0x0006 ; Number of locals 0d03 INIT_0d00: 0d03 e00c | | Load 0x0,0xc 0d04 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d05 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0d06 02c7 | | Declare_Variable Any 0d07 00d8 | | Load_Top At_Offset_0 0d08 1c00 | | Execute_Immediate Run_Utility,0x0 0d09 e26f | o | Load 0x1,0x6f 0d0a 0322 | " | Declare_Variable Record 0d0b 00d8 | | Load_Top At_Offset_0 0d0c 1c00 | | Execute_Immediate Run_Utility,0x0 0d0d e00c | | Load 0x0,0xc 0d0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d0f 02c7 | | Declare_Variable Any 0d10 00d8 | | Load_Top At_Offset_0 0d11 1c00 | | Execute_Immediate Run_Utility,0x0 0d12 e001 | | Load 0x0,0x1 0d13 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d14 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d15 00e1 | | Load_Encached Boolean_Cache 0d16 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d17 BODY_0d00: 0d17 4800 |H | Short_Literal 0x0 0d18 a5fd | | Store_Unchecked 0x2,-0x3 0d19 e001 | | Load 0x0,0x1 0d1a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d1b e402 | | Load 0x2,0x2 0d1c 0120 | | Execute Any,Is_Value 0d1d 6804 |h | Jump_Zero 0xd22 0d1e e00c | | Load 0x0,0xc 0d1f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d20 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0d21 7801 |x | Jump 0xd23 0d22 e402 | | Load 0x2,0x2 0d23 e5fe | | Load 0x2,-0x2 0d24 e5ff | | Load 0x2,-0x1 0d25 825f | _ | Call 0x1,0x5f 0d26 c402 | | Store 0x2,0x2 0d27 005a | Z | Store_Top Discrete,At_Offset_2 0d28 4800 |H | Short_Literal 0x0 0d29 00da | | Load_Top At_Offset_2 0d2a e001 | | Load 0x0,0x1 0d2b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0d2c 7003 |p | Jump_Nonzero 0xd30 0d2d e001 | | Load 0x0,0x1 0d2e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0d2f 0257 | W | Execute Discrete,Raise 0d30 e402 | | Load 0x2,0x2 0d31 e00c | | Load 0x0,0xc 0d32 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d33 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0d34 6814 |h | Jump_Zero 0xd49 0d35 e5fe | | Load 0x2,-0x2 0d36 4801 |H | Short_Literal 0x1 0d37 4801 |H | Short_Literal 0x1 0d38 e006 | | Load 0x0,0x6 0d39 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d3a 035b | [ | Declare_Type Array,Constrained 0d3b 0337 | 7 | Declare_Variable Array 0d3c e5ff | | Load 0x2,-0x1 0d3d e004 | | Load 0x0,0x4 0d3e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d3f e006 | | Load 0x0,0x6 0d40 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d41 0119 | | Execute Any,Check_In_Formal_Type 0d42 4801 |H | Short_Literal 0x1 0d43 00da | | Load_Top At_Offset_2 0d44 01d6 | | Execute Vector,Field_Write 0d45 60a2 |` | Indirect_Literal Discrete,0xde8,{0x00000000, 0x000081a8} 0d46 e001 | | Load 0x0,0x1 0d47 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d48 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d49 e5fe | | Load 0x2,-0x2 0d4a 4801 |H | Short_Literal 0x1 0d4b 4801 |H | Short_Literal 0x1 0d4c e006 | | Load 0x0,0x6 0d4d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d4e 035b | [ | Declare_Type Array,Constrained 0d4f 0337 | 7 | Declare_Variable Array 0d50 e5ff | | Load 0x2,-0x1 0d51 e004 | | Load 0x0,0x4 0d52 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d53 e006 | | Load 0x0,0x6 0d54 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d55 0119 | | Execute Any,Check_In_Formal_Type 0d56 4801 |H | Short_Literal 0x1 0d57 00da | | Load_Top At_Offset_2 0d58 01d6 | | Execute Vector,Field_Write 0d59 608a |` | Indirect_Literal Discrete,0xde4,{0x00000000, 0x000081a9} 0d5a e001 | | Load 0x0,0x1 0d5b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d5c e5fe | | Load 0x2,-0x2 0d5d e5ff | | Load 0x2,-0x1 0d5e 8273 | s | Call 0x1,0x73 0d5f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0d60 e5fe | | Load 0x2,-0x2 0d61 4801 |H | Short_Literal 0x1 0d62 4802 |H | Short_Literal 0x2 0d63 e006 | | Load 0x0,0x6 0d64 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d65 035b | [ | Declare_Type Array,Constrained 0d66 0337 | 7 | Declare_Variable Array 0d67 e5ff | | Load 0x2,-0x1 0d68 e004 | | Load 0x0,0x4 0d69 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d6a e006 | | Load 0x0,0x6 0d6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d6c 0119 | | Execute Any,Check_In_Formal_Type 0d6d 4801 |H | Short_Literal 0x1 0d6e 00da | | Load_Top At_Offset_2 0d6f 01d6 | | Execute Vector,Field_Write 0d70 00da | | Load_Top At_Offset_2 0d71 00e1 | | Load_Encached Boolean_Cache 0d72 011c | | Execute Any,Convert_Unchecked 0d73 1c01 | | Execute_Immediate Run_Utility,0x1 0d74 e006 | | Load 0x0,0x6 0d75 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d76 e006 | | Load 0x0,0x6 0d77 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d78 0119 | | Execute Any,Check_In_Formal_Type 0d79 4802 |H | Short_Literal 0x2 0d7a 00da | | Load_Top At_Offset_2 0d7b 01d6 | | Execute Vector,Field_Write 0d7c 6063 |`c | Indirect_Literal Discrete,0xde0,{0x00000000, 0x000081ab} 0d7d e001 | | Load 0x0,0x1 0d7e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d7f 00cf | | Action Mark_Auxiliary 0d80 7850 |xP | Jump 0xdd1 0d81 e5fe | | Load 0x2,-0x2 0d82 4801 |H | Short_Literal 0x1 0d83 e402 | | Load 0x2,0x2 0d84 e004 | | Load 0x0,0x4 0d85 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0d86 c404 | | Store 0x2,0x4 0d87 e403 | | Load 0x2,0x3 0d88 e5fe | | Load 0x2,-0x2 0d89 e404 | | Load 0x2,0x4 0d8a e004 | | Load 0x0,0x4 0d8b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d8c 82a6 | | Call 0x1,0xa6 0d8d 00d1 | | Pop_Control Pop_Count_1 0d8e e5fe | | Load 0x2,-0x2 0d8f 4801 |H | Short_Literal 0x1 0d90 4804 |H | Short_Literal 0x4 0d91 e006 | | Load 0x0,0x6 0d92 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d93 035b | [ | Declare_Type Array,Constrained 0d94 0337 | 7 | Declare_Variable Array 0d95 e404 | | Load 0x2,0x4 0d96 e004 | | Load 0x0,0x4 0d97 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d98 e006 | | Load 0x0,0x6 0d99 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d9a 0119 | | Execute Any,Check_In_Formal_Type 0d9b 4801 |H | Short_Literal 0x1 0d9c 00da | | Load_Top At_Offset_2 0d9d 01d6 | | Execute Vector,Field_Write 0d9e 4801 |H | Short_Literal 0x1 0d9f e403 | | Load 0x2,0x3 0da0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0da1 e403 | | Load 0x2,0x3 0da2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0da3 01cf | | Execute Vector,Slice_Read 0da4 e006 | | Load 0x0,0x6 0da5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0da6 e006 | | Load 0x0,0x6 0da7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0da8 0119 | | Execute Any,Check_In_Formal_Type 0da9 4802 |H | Short_Literal 0x2 0daa 00da | | Load_Top At_Offset_2 0dab 01d6 | | Execute Vector,Field_Write 0dac 4801 |H | Short_Literal 0x1 0dad e403 | | Load 0x2,0x3 0dae 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0daf e403 | | Load 0x2,0x3 0db0 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0db1 01cf | | Execute Vector,Slice_Read 0db2 e006 | | Load 0x0,0x6 0db3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0db4 e006 | | Load 0x0,0x6 0db5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0db6 0119 | | Execute Any,Check_In_Formal_Type 0db7 4803 |H | Short_Literal 0x3 0db8 00da | | Load_Top At_Offset_2 0db9 01d6 | | Execute Vector,Field_Write 0dba 4801 |H | Short_Literal 0x1 0dbb e403 | | Load 0x2,0x3 0dbc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0dbd e403 | | Load 0x2,0x3 0dbe 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0dbf 01cf | | Execute Vector,Slice_Read 0dc0 e006 | | Load 0x0,0x6 0dc1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc2 e006 | | Load 0x0,0x6 0dc3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dc4 0119 | | Execute Any,Check_In_Formal_Type 0dc5 4804 |H | Short_Literal 0x4 0dc6 00da | | Load_Top At_Offset_2 0dc7 01d6 | | Execute Vector,Field_Write 0dc8 6013 |` | Indirect_Literal Discrete,0xddc,{0x00000000, 0x000081aa} 0dc9 e001 | | Load 0x0,0x1 0dca 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0dcb e402 | | Load 0x2,0x2 0dcc e00c | | Load 0x0,0xc 0dcd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0dce 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0dcf c402 | | Store 0x2,0x2 0dd0 00c9 | | Action Pop_Auxiliary_Loop 0dd1 e402 | | Load 0x2,0x2 0dd2 e00c | | Load 0x0,0xc 0dd3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0dd4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0dd5 6fab |o | Jump_Zero 0xd81 0dd6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0dd7 TRAP_0d00: 0dd7 0007 | | Action Break_Optional 0dd8 00da | | Load_Top At_Offset_2 0dd9 a5fd | | Store_Unchecked 0x2,-0x3 0dda 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ddb 0000 | | .XXX[0x1] 0ddc 0000 0000 | | .LITERAL {0x00000000, 0x000081aa} 0de0 0000 0000 | | .LITERAL {0x00000000, 0x000081ab} 0de4 0000 0000 | | .LITERAL {0x00000000, 0x000081a9} 0de8 0000 0000 | | .LITERAL {0x00000000, 0x000081a8} 0dec 0000 0000 | | .BLANK 0000[0x4] 0df0 ; -------------------------------------------------------------------------------------- 0df0 ; SUBPROGRAM 0df0 ; -------------------------------------------------------------------------------------- 0df0 0df9 | | .CONST 0x0df9 ; Address of begin 0df1 0e11 | | .CONST 0x0e11 ; Address of exception handler 0df2 0002 | | .CONST 0x0002 ; Number of locals 0df3 INIT_0df0: 0df3 e00c | | Load 0x0,0xc 0df4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0df5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0df6 02c7 | | Declare_Variable Any 0df7 00d8 | | Load_Top At_Offset_0 0df8 1c00 | | Execute_Immediate Run_Utility,0x0 0df9 BODY_0df0: 0df9 4800 |H | Short_Literal 0x0 0dfa a5fc | | Store_Unchecked 0x2,-0x4 0dfb 4800 |H | Short_Literal 0x0 0dfc a5fd | | Store_Unchecked 0x2,-0x3 0dfd 00db | | Load_Top At_Offset_3 0dfe e004 | | Load 0x0,0x4 0dff 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0e00 e28f | | Load 0x1,0x8f 0e01 01cc | | Execute Vector,Catenate 0e02 8299 | | Call 0x1,0x99 0e03 c402 | | Store 0x2,0x2 0e04 00d8 | | Load_Top At_Offset_0 0e05 e00c | | Load 0x0,0xc 0e06 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e07 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0e08 7007 |p | Jump_Nonzero 0xe10 0e09 00d8 | | Load_Top At_Offset_0 0e0a e00c | | Load 0x0,0xc 0e0b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e0c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e0d 7002 |p | Jump_Nonzero 0xe10 0e0e 4801 |H | Short_Literal 0x1 0e0f a5fd | | Store_Unchecked 0x2,-0x3 0e10 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e11 TRAP_0df0: 0e11 0007 | | Action Break_Optional 0e12 e006 | | Load 0x0,0x6 0e13 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e14 6007 |` | Indirect_Literal Discrete,0xe1c,{0x00000000, 0x0000813b} 0e15 e001 | | Load 0x0,0x1 0e16 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e17 a5fc | | Store_Unchecked 0x2,-0x4 0e18 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e19 0000 0000 | | .XXX[0x3] 0e1b 0000 | | 0e1c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0e20 ; -------------------------------------------------------------------------------------- 0e20 ; SUBPROGRAM 0e20 ; -------------------------------------------------------------------------------------- 0e20 0e23 | # | .CONST 0x0e23 ; Address of begin 0e21 0e37 | 7 | .CONST 0x0e37 ; Address of exception handler 0e22 0001 | | .CONST 0x0001 ; Number of locals 0e23 BODY_0e20: 0e23 INIT_0e20: 0e23 4800 |H | Short_Literal 0x0 0e24 a5fa | | Store_Unchecked 0x2,-0x6 0e25 00e2 | | Load_Encached Integer_Cache 0e26 00e1 | | Load_Encached Boolean_Cache 0e27 e5fd | | Load 0x2,-0x3 0e28 0120 | | Execute Any,Is_Value 0e29 6803 |h | Jump_Zero 0xe2d 0e2a e00c | | Load 0x0,0xc 0e2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e2c 7801 |x | Jump 0xe2e 0e2d e5fd | | Load 0x2,-0x3 0e2e e5fe | | Load 0x2,-0x2 0e2f e5ff | | Load 0x2,-0x1 0e30 e004 | | Load 0x0,0x4 0e31 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0e32 82ad | | Call 0x1,0xad 0e33 c5fd | | Store 0x2,-0x3 0e34 c5fc | | Store 0x2,-0x4 0e35 c5fb | | Store 0x2,-0x5 0e36 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e37 TRAP_0e20: 0e37 0007 | | Action Break_Optional 0e38 e006 | | Load 0x0,0x6 0e39 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e3a 67e1 |g | Indirect_Literal Discrete,0xe1c,{0x00000000, 0x0000813b} 0e3b e001 | | Load 0x0,0x1 0e3c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e3d a5fa | | Store_Unchecked 0x2,-0x6 0e3e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e3f 0000 | | .XXX[0x1] 0e40 ; -------------------------------------------------------------------------------------- 0e40 ; SUBPROGRAM 0e40 ; -------------------------------------------------------------------------------------- 0e40 0e44 | D | .CONST 0x0e44 ; Address of begin 0e41 0e74 | t | .CONST 0x0e74 ; Address of exception handler 0e42 0002 | | .CONST 0x0002 ; Number of locals 0e43 INIT_0e40: 0e43 00e1 | | Load_Encached Boolean_Cache 0e44 BODY_0e40: 0e44 4800 |H | Short_Literal 0x0 0e45 a5fb | | Store_Unchecked 0x2,-0x5 0e46 e001 | | Load 0x0,0x1 0e47 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e48 00e2 | | Load_Encached Integer_Cache 0e49 00e1 | | Load_Encached Boolean_Cache 0e4a e5fd | | Load 0x2,-0x3 0e4b 0120 | | Execute Any,Is_Value 0e4c 6803 |h | Jump_Zero 0xe50 0e4d e00c | | Load 0x0,0xc 0e4e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e4f 7801 |x | Jump 0xe51 0e50 e5fd | | Load 0x2,-0x3 0e51 e5fe | | Load 0x2,-0x2 0e52 e5ff | | Load 0x2,-0x1 0e53 8266 | f | Call 0x1,0x66 0e54 c5fd | | Store 0x2,-0x3 0e55 005b | [ | Store_Top Discrete,At_Offset_3 0e56 c5fc | | Store 0x2,-0x4 0e57 c5fb | | Store 0x2,-0x5 0e58 00d8 | | Load_Top At_Offset_0 0e59 7019 |p | Jump_Nonzero 0xe73 0e5a e5fe | | Load 0x2,-0x2 0e5b 4801 |H | Short_Literal 0x1 0e5c 4801 |H | Short_Literal 0x1 0e5d e006 | | Load 0x0,0x6 0e5e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e5f 035b | [ | Declare_Type Array,Constrained 0e60 0337 | 7 | Declare_Variable Array 0e61 e5ff | | Load 0x2,-0x1 0e62 e004 | | Load 0x0,0x4 0e63 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0e64 e006 | | Load 0x0,0x6 0e65 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e66 0119 | | Execute Any,Check_In_Formal_Type 0e67 4801 |H | Short_Literal 0x1 0e68 00da | | Load_Top At_Offset_2 0e69 01d6 | | Execute Vector,Field_Write 0e6a 600d |` | Indirect_Literal Discrete,0xe78,{0x00000000, 0x000081a4} 0e6b e001 | | Load 0x0,0x1 0e6c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e6d e006 | | Load 0x0,0x6 0e6e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e6f 6008 |` | Indirect_Literal Discrete,0xe78,{0x00000000, 0x000081a4} 0e70 e001 | | Load 0x0,0x1 0e71 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e72 a5fb | | Store_Unchecked 0x2,-0x5 0e73 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e74 TRAP_0e40: 0e74 0007 | | Action Break_Optional 0e75 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e76 0000 0000 | | .XXX[0x2] 0e78 0000 0000 | | .LITERAL {0x00000000, 0x000081a4} 0e7c 0000 0000 | | .BLANK 0000[0x4] 0e80 ; -------------------------------------------------------------------------------------- 0e80 ; SUBPROGRAM 0e80 ; -------------------------------------------------------------------------------------- 0e80 0e8c | | .CONST 0x0e8c ; Address of begin 0e81 0e95 | | .CONST 0x0e95 ; Address of exception handler 0e82 0003 | | .CONST 0x0003 ; Number of locals 0e83 INIT_0e80: 0e83 00db | | Load_Top At_Offset_3 0e84 00db | | Load_Top At_Offset_3 0e85 8296 | | Call 0x1,0x96 0e86 e00c | | Load 0x0,0xc 0e87 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e88 02c7 | | Declare_Variable Any 0e89 00d9 | | Load_Top At_Offset_1 0e8a 8297 | | Call 0x1,0x97 0e8b a403 | | Store_Unchecked 0x2,0x3 0e8c BODY_0e80: 0e8c 00d8 | | Load_Top At_Offset_0 0e8d e00c | | Load 0x0,0xc 0e8e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e8f 012e | . | Execute Any,Not_Equal 0e90 6802 |h | Jump_Zero 0xe93 0e91 4801 |H | Short_Literal 0x1 0e92 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e93 4800 |H | Short_Literal 0x0 0e94 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e95 TRAP_0e80: 0e95 0007 | | Action Break_Optional 0e96 4800 |H | Short_Literal 0x0 0e97 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e98 ; -------------------------------------------------------------------------------------- 0e98 ; SUBPROGRAM 0e98 ; -------------------------------------------------------------------------------------- 0e98 0eac | | .CONST 0x0eac ; Address of begin 0e99 0ed6 | | .CONST 0x0ed6 ; Address of exception handler 0e9a 0005 | | .CONST 0x0005 ; Number of locals 0e9b INIT_0e98: 0e9b 00da | | Load_Top At_Offset_2 0e9c e004 | | Load 0x0,0x4 0e9d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0e9e e26f | o | Load 0x1,0x6f 0e9f 0322 | " | Declare_Variable Record 0ea0 00d8 | | Load_Top At_Offset_0 0ea1 1c00 | | Execute_Immediate Run_Utility,0x0 0ea2 e00c | | Load 0x0,0xc 0ea3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ea4 02c7 | | Declare_Variable Any 0ea5 00d8 | | Load_Top At_Offset_0 0ea6 1c00 | | Execute_Immediate Run_Utility,0x0 0ea7 e00c | | Load 0x0,0xc 0ea8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ea9 02c7 | | Declare_Variable Any 0eaa 00d8 | | Load_Top At_Offset_0 0eab 1c00 | | Execute_Immediate Run_Utility,0x0 0eac BODY_0e98: 0eac 4800 |H | Short_Literal 0x0 0ead a5fc | | Store_Unchecked 0x2,-0x4 0eae e5fe | | Load 0x2,-0x2 0eaf 4801 |H | Short_Literal 0x1 0eb0 e5ff | | Load 0x2,-0x1 0eb1 e004 | | Load 0x0,0x4 0eb2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0eb3 c405 | | Store 0x2,0x5 0eb4 00da | | Load_Top At_Offset_2 0eb5 e5fe | | Load 0x2,-0x2 0eb6 e402 | | Load 0x2,0x2 0eb7 82a6 | | Call 0x1,0xa6 0eb8 00d1 | | Pop_Control Pop_Count_1 0eb9 e5fe | | Load 0x2,-0x2 0eba 4801 |H | Short_Literal 0x1 0ebb e5ff | | Load 0x2,-0x1 0ebc e004 | | Load 0x0,0x4 0ebd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0ebe e004 | | Load 0x0,0x4 0ebf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ec0 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "." 0ec2 01cc | | Execute Vector,Catenate 0ec3 4801 |H | Short_Literal 0x1 0ec4 e403 | | Load 0x2,0x3 0ec5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ec6 e403 | | Load 0x2,0x3 0ec7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0ec8 01cf | | Execute Vector,Slice_Read 0ec9 01cc | | Execute Vector,Catenate 0eca 8297 | | Call 0x1,0x97 0ecb c404 | | Store 0x2,0x4 0ecc 00d9 | | Load_Top At_Offset_1 0ecd e00c | | Load 0x0,0xc 0ece 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ecf 6803 |h | Jump_Zero 0xed3 0ed0 e001 | | Load 0x0,0x1 0ed1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0ed2 0257 | W | Execute Discrete,Raise 0ed3 00d9 | | Load_Top At_Offset_1 0ed4 c5fd | | Store 0x2,-0x3 0ed5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ed6 TRAP_0e98: 0ed6 0007 | | Action Break_Optional 0ed7 e5fe | | Load 0x2,-0x2 0ed8 4801 |H | Short_Literal 0x1 0ed9 4801 |H | Short_Literal 0x1 0eda e006 | | Load 0x0,0x6 0edb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0edc 035b | [ | Declare_Type Array,Constrained 0edd 0337 | 7 | Declare_Variable Array 0ede 4801 |H | Short_Literal 0x1 0edf e403 | | Load 0x2,0x3 0ee0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ee1 e403 | | Load 0x2,0x3 0ee2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0ee3 01cf | | Execute Vector,Slice_Read 0ee4 e006 | | Load 0x0,0x6 0ee5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ee6 e006 | | Load 0x0,0x6 0ee7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ee8 0119 | | Execute Any,Check_In_Formal_Type 0ee9 4801 |H | Short_Literal 0x1 0eea 00da | | Load_Top At_Offset_2 0eeb 01d6 | | Execute Vector,Field_Write 0eec 600b |` | Indirect_Literal Discrete,0xef8,{0x00000000, 0x000081a7} 0eed e001 | | Load 0x0,0x1 0eee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0eef e006 | | Load 0x0,0x6 0ef0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ef1 6006 |` | Indirect_Literal Discrete,0xef8,{0x00000000, 0x000081a7} 0ef2 e001 | | Load 0x0,0x1 0ef3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ef4 a5fc | | Store_Unchecked 0x2,-0x4 0ef5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ef6 0000 0000 | | .XXX[0x2] 0ef8 0000 0000 | | .LITERAL {0x00000000, 0x000081a7} 0efc 0000 0000 | | .BLANK 0000[0x4] 0f00 ; -------------------------------------------------------------------------------------- 0f00 ; SUBPROGRAM 0f00 ; -------------------------------------------------------------------------------------- 0f00 0f04 | | .CONST 0x0f04 ; Address of begin 0f01 0004 | | .CONST 0x0004 ; Address of exception handler 0f02 0002 | | .CONST 0x0002 ; Number of locals 0f03 INIT_0f00: 0f03 00e2 | | Load_Encached Integer_Cache 0f04 BODY_0f00: 0f04 4800 |H | Short_Literal 0x0 0f05 a5fc | | Store_Unchecked 0x2,-0x4 0f06 e001 | | Load 0x0,0x1 0f07 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f08 00e2 | | Load_Encached Integer_Cache 0f09 e5fd | | Load 0x2,-0x3 0f0a 0120 | | Execute Any,Is_Value 0f0b 6803 |h | Jump_Zero 0xf0f 0f0c e00c | | Load 0x0,0xc 0f0d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f0e 7801 |x | Jump 0xf10 0f0f e5fd | | Load 0x2,-0x3 0f10 e5fe | | Load 0x2,-0x2 0f11 e5ff | | Load 0x2,-0x1 0f12 8267 | g | Call 0x1,0x67 0f13 c5fd | | Store 0x2,-0x3 0f14 005a | Z | Store_Top Discrete,At_Offset_2 0f15 c5fc | | Store 0x2,-0x4 0f16 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f17 0000 | | .XXX[0x1] 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f1e | | .CONST 0x0f1e ; Address of begin 0f19 0f26 | & | .CONST 0x0f26 ; Address of exception handler 0f1a 0002 | | .CONST 0x0002 ; Number of locals 0f1b INIT_0f18: 0f1b 00da | | Load_Top At_Offset_2 0f1c e004 | | Load 0x0,0x4 0f1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f1e BODY_0f18: 0f1e 4800 |H | Short_Literal 0x0 0f1f a5fc | | Store_Unchecked 0x2,-0x4 0f20 00d8 | | Load_Top At_Offset_0 0f21 e28f | | Load 0x1,0x8f 0f22 01cc | | Execute Vector,Catenate 0f23 8299 | | Call 0x1,0x99 0f24 c5fd | | Store 0x2,-0x3 0f25 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f26 TRAP_0f18: 0f26 0007 | | Action Break_Optional 0f27 6004 |` | Indirect_Literal Discrete,0xf2c,{0x00000000, 0x0000813b} 0f28 a5fc | | Store_Unchecked 0x2,-0x4 0f29 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f2a 0000 0000 | | .XXX[0x2] 0f2c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0f30 ; -------------------------------------------------------------------------------------- 0f30 ; SUBPROGRAM 0f30 ; -------------------------------------------------------------------------------------- 0f30 0f3f | ? | .CONST 0x0f3f ; Address of begin 0f31 0f46 | F | .CONST 0x0f46 ; Address of exception handler 0f32 0005 | | .CONST 0x0005 ; Number of locals 0f33 INIT_0f30: 0f33 00da | | Load_Top At_Offset_2 0f34 e004 | | Load 0x0,0x4 0f35 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f36 e26f | o | Load 0x1,0x6f 0f37 0322 | " | Declare_Variable Record 0f38 00d8 | | Load_Top At_Offset_0 0f39 1c00 | | Execute_Immediate Run_Utility,0x0 0f3a 4801 |H | Short_Literal 0x1 0f3b e20d | | Load 0x1,0xd 0f3c 1c08 | | Execute_Immediate Run_Utility,0x8 0f3d 029f 1873 | s| Declare_Subprogram INIT_1870,For_Call 0f3f BODY_0f30: 0f3f 00da | | Load_Top At_Offset_2 0f40 e5fe | | Load 0x2,-0x2 0f41 e402 | | Load 0x2,0x2 0f42 82a6 | | Call 0x1,0xa6 0f43 00d1 | | Pop_Control Pop_Count_1 0f44 8405 | | Call 0x2,0x5 0f45 0831 | 1 | Execute_Immediate Raise,0x31 0f46 TRAP_0f30: 0f46 0007 | | Action Break_Optional 0f47 e006 | | Load 0x0,0x6 0f48 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0f49 67e2 |g | Indirect_Literal Discrete,0xf2c,{0x00000000, 0x0000813b} 0f4a e001 | | Load 0x0,0x1 0f4b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f4c 00db | | Load_Top At_Offset_3 0f4d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0f4e 0831 | 1 | Execute_Immediate Raise,0x31 0f4f 0000 | | .XXX[0x1] 0f50 ; -------------------------------------------------------------------------------------- 0f50 ; SUBPROGRAM 0f50 ; -------------------------------------------------------------------------------------- 0f50 0f5f | _ | .CONST 0x0f5f ; Address of begin 0f51 0f66 | f | .CONST 0x0f66 ; Address of exception handler 0f52 0005 | | .CONST 0x0005 ; Number of locals 0f53 INIT_0f50: 0f53 00da | | Load_Top At_Offset_2 0f54 e004 | | Load 0x0,0x4 0f55 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f56 e26f | o | Load 0x1,0x6f 0f57 0322 | " | Declare_Variable Record 0f58 00d8 | | Load_Top At_Offset_0 0f59 1c00 | | Execute_Immediate Run_Utility,0x0 0f5a 4801 |H | Short_Literal 0x1 0f5b e20d | | Load 0x1,0xd 0f5c 1c08 | | Execute_Immediate Run_Utility,0x8 0f5d 029f 188b | | Declare_Subprogram INIT_1888,For_Call 0f5f BODY_0f50: 0f5f 00da | | Load_Top At_Offset_2 0f60 e5fe | | Load 0x2,-0x2 0f61 e402 | | Load 0x2,0x2 0f62 82a6 | | Call 0x1,0xa6 0f63 00d1 | | Pop_Control Pop_Count_1 0f64 8405 | | Call 0x2,0x5 0f65 0831 | 1 | Execute_Immediate Raise,0x31 0f66 TRAP_0f50: 0f66 0007 | | Action Break_Optional 0f67 e006 | | Load 0x0,0x6 0f68 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0f69 6006 |` | Indirect_Literal Discrete,0xf70,{0x00000000, 0x0000813b} 0f6a e001 | | Load 0x0,0x1 0f6b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f6c 00db | | Load_Top At_Offset_3 0f6d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0f6e 00da | | Load_Top At_Offset_2 0f6f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f70 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0f74 0000 0000 | | .BLANK 0000[0x4] 0f78 ; -------------------------------------------------------------------------------------- 0f78 ; SUBPROGRAM 0f78 ; -------------------------------------------------------------------------------------- 0f78 0f80 | | .CONST 0x0f80 ; Address of begin 0f79 0f88 | | .CONST 0x0f88 ; Address of exception handler 0f7a 0004 | | .CONST 0x0004 ; Number of locals 0f7b INIT_0f78: 0f7b e28d | | Load 0x1,0x8d 0f7c 0322 | " | Declare_Variable Record 0f7d 00e2 | | Load_Encached Integer_Cache 0f7e e5ff | | Load 0x2,-0x1 0f7f 8294 | | Call 0x1,0x94 0f80 BODY_0f78: 0f80 00da | | Load_Top At_Offset_2 0f81 e5fe | | Load 0x2,-0x2 0f82 00da | | Load_Top At_Offset_2 0f83 82a5 | | Call 0x1,0xa5 0f84 00d1 | | Pop_Control Pop_Count_1 0f85 00da | | Load_Top At_Offset_2 0f86 829f | | Call 0x1,0x9f 0f87 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f88 TRAP_0f78: 0f88 0007 | | Action Break_Optional 0f89 4800 |H | Short_Literal 0x0 0f8a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f8b 0000 0000 | | .BLANK 0000[0x5] 0f90 ; -------------------------------------------------------------------------------------- 0f90 ; SUBPROGRAM 0f90 ; -------------------------------------------------------------------------------------- 0f90 0f95 | | .CONST 0x0f95 ; Address of begin 0f91 0004 | | .CONST 0x0004 ; Address of exception handler 0f92 0002 | | .CONST 0x0002 ; Number of locals 0f93 INIT_0f90: 0f93 e00c | | Load 0x0,0xc 0f94 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f95 BODY_0f90: 0f95 4800 |H | Short_Literal 0x0 0f96 a5fd | | Store_Unchecked 0x2,-0x3 0f97 e00c | | Load 0x0,0xc 0f98 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f99 602a |`* | Indirect_Literal Discrete,0xfc4,{0x00000000, 0x00004000} 0f9a e011 | | Load 0x0,0x11 0f9b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f9c e5ff | | Load 0x2,-0x1 0f9d e00c | | Load 0x0,0xc 0f9e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0f9f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0fa0 0059 | Y | Store_Top Discrete,At_Offset_1 0fa1 00d8 | | Load_Top At_Offset_0 0fa2 7001 |p | Jump_Nonzero 0xfa4 0fa3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fa4 e5fe | | Load 0x2,-0x2 0fa5 4801 |H | Short_Literal 0x1 0fa6 4801 |H | Short_Literal 0x1 0fa7 e006 | | Load 0x0,0x6 0fa8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fa9 035b | [ | Declare_Type Array,Constrained 0faa 0337 | 7 | Declare_Variable Array 0fab e5ff | | Load 0x2,-0x1 0fac e004 | | Load 0x0,0x4 0fad 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0fae e006 | | Load 0x0,0x6 0faf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fb0 0119 | | Execute Any,Check_In_Formal_Type 0fb1 4801 |H | Short_Literal 0x1 0fb2 00da | | Load_Top At_Offset_2 0fb3 01d6 | | Execute Vector,Field_Write 0fb4 600b |` | Indirect_Literal Discrete,0xfc0,{0x00000000, 0x000081a5} 0fb5 e001 | | Load 0x0,0x1 0fb6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0fb7 e006 | | Load 0x0,0x6 0fb8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0fb9 6006 |` | Indirect_Literal Discrete,0xfc0,{0x00000000, 0x000081a5} 0fba e001 | | Load 0x0,0x1 0fbb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fbc a5fd | | Store_Unchecked 0x2,-0x3 0fbd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fbe 0000 0000 | | .XXX[0x2] 0fc0 0000 0000 | | .LITERAL {0x00000000, 0x000081a5} 0fc4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 ; SUBPROGRAM 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 0fcd | | .CONST 0x0fcd ; Address of begin 0fc9 0004 | | .CONST 0x0004 ; Address of exception handler 0fca 0002 | | .CONST 0x0002 ; Number of locals 0fcb INIT_0fc8: 0fcb e00c | | Load 0x0,0xc 0fcc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fcd BODY_0fc8: 0fcd 4800 |H | Short_Literal 0x0 0fce a5fd | | Store_Unchecked 0x2,-0x3 0fcf e00c | | Load 0x0,0xc 0fd0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fd1 67f2 |g | Indirect_Literal Discrete,0xfc4,{0x00000000, 0x00004000} 0fd2 e011 | | Load 0x0,0x11 0fd3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fd4 e5ff | | Load 0x2,-0x1 0fd5 e00c | | Load 0x0,0xc 0fd6 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0fd7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0fd8 0059 | Y | Store_Top Discrete,At_Offset_1 0fd9 00d8 | | Load_Top At_Offset_0 0fda 6815 |h | Jump_Zero 0xff0 0fdb e5fe | | Load 0x2,-0x2 0fdc 4801 |H | Short_Literal 0x1 0fdd 4801 |H | Short_Literal 0x1 0fde e006 | | Load 0x0,0x6 0fdf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fe0 035b | [ | Declare_Type Array,Constrained 0fe1 0337 | 7 | Declare_Variable Array 0fe2 e5ff | | Load 0x2,-0x1 0fe3 e004 | | Load 0x0,0x4 0fe4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0fe5 e006 | | Load 0x0,0x6 0fe6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fe7 0119 | | Execute Any,Check_In_Formal_Type 0fe8 4801 |H | Short_Literal 0x1 0fe9 00da | | Load_Top At_Offset_2 0fea 01d6 | | Execute Vector,Field_Write 0feb 6008 |` | Indirect_Literal Discrete,0xff4,{0x00000000, 0x000081a6} 0fec e001 | | Load 0x0,0x1 0fed 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0fee 6005 |` | Indirect_Literal Discrete,0xff4,{0x00000000, 0x000081a6} 0fef a5fd | | Store_Unchecked 0x2,-0x3 0ff0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ff1 0000 0000 | | .XXX[0x3] 0ff3 0000 | | 0ff4 0000 0000 | | .LITERAL {0x00000000, 0x000081a6} 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 ; SUBPROGRAM 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 1002 | | .CONST 0x1002 ; Address of begin 0ff9 1009 | | .CONST 0x1009 ; Address of exception handler 0ffa 0003 | | .CONST 0x0003 ; Number of locals 0ffb INIT_0ff8: 0ffb 00da | | Load_Top At_Offset_2 0ffc e004 | | Load 0x0,0x4 0ffd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ffe e26f | o | Load 0x1,0x6f 0fff 0322 | " | Declare_Variable Record 1000 00d8 | | Load_Top At_Offset_0 1001 1c00 | | Execute_Immediate Run_Utility,0x0 1002 BODY_0ff8: 1002 00d8 | | Load_Top At_Offset_0 1003 e5fe | | Load 0x2,-0x2 1004 00db | | Load_Top At_Offset_3 1005 82a6 | | Call 0x1,0xa6 1006 00d1 | | Pop_Control Pop_Count_1 1007 00d8 | | Load_Top At_Offset_0 1008 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1009 TRAP_0ff8: 1009 0007 | | Action Break_Optional 100a 00d9 | | Load_Top At_Offset_1 100b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 100c 0000 0000 | | .BLANK 0000[0x4] 1010 ; -------------------------------------------------------------------------------------- 1010 ; SUBPROGRAM 1010 ; -------------------------------------------------------------------------------------- 1010 101b | | .CONST 0x101b ; Address of begin 1011 1053 | S | .CONST 0x1053 ; Address of exception handler 1012 0005 | | .CONST 0x0005 ; Number of locals 1013 INIT_1010: 1013 e28d | | Load 0x1,0x8d 1014 0322 | " | Declare_Variable Record 1015 00e1 | | Load_Encached Boolean_Cache 1016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1017 e001 | | Load 0x0,0x1 1018 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1019 e5ff | | Load 0x2,-0x1 101a 8294 | | Call 0x1,0x94 101b BODY_1010: 101b 4800 |H | Short_Literal 0x0 101c a5fc | | Store_Unchecked 0x2,-0x4 101d e001 | | Load 0x0,0x1 101e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 101f 00e1 | | Load_Encached Boolean_Cache 1020 e5fd | | Load 0x2,-0x3 1021 e5ff | | Load 0x2,-0x1 1022 8245 | E | Call 0x1,0x45 1023 c403 | | Store 0x2,0x3 1024 005a | Z | Store_Top Discrete,At_Offset_2 1025 4800 |H | Short_Literal 0x0 1026 00da | | Load_Top At_Offset_2 1027 e001 | | Load 0x0,0x1 1028 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 1029 7003 |p | Jump_Nonzero 0x102d 102a e001 | | Load 0x0,0x1 102b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 102c 0257 | W | Execute Discrete,Raise 102d 00da | | Load_Top At_Offset_2 102e 7016 |p | Jump_Nonzero 0x1045 102f e5fd | | Load 0x2,-0x3 1030 4801 |H | Short_Literal 0x1 1031 4801 |H | Short_Literal 0x1 1032 e006 | | Load 0x0,0x6 1033 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1034 035b | [ | Declare_Type Array,Constrained 1035 0337 | 7 | Declare_Variable Array 1036 e5ff | | Load 0x2,-0x1 1037 e004 | | Load 0x0,0x4 1038 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1039 e006 | | Load 0x0,0x6 103a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 103b 0119 | | Execute Any,Check_In_Formal_Type 103c 4801 |H | Short_Literal 0x1 103d 00da | | Load_Top At_Offset_2 103e 01d6 | | Execute Vector,Field_Write 103f 601c |` | Indirect_Literal Discrete,0x105c,{0x00000000, 0x000081a8} 1040 e001 | | Load 0x0,0x1 1041 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1042 6019 |` | Indirect_Literal Discrete,0x105c,{0x00000000, 0x000081a8} 1043 a5fc | | Store_Unchecked 0x2,-0x4 1044 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1045 00db | | Load_Top At_Offset_3 1046 e5fd | | Load 0x2,-0x3 1047 00da | | Load_Top At_Offset_2 1048 82a5 | | Call 0x1,0xa5 1049 00d1 | | Pop_Control Pop_Count_1 104a 00db | | Load_Top At_Offset_3 104b e5fe | | Load 0x2,-0x2 104c 82a0 | | Call 0x1,0xa0 104d 00d1 | | Pop_Control Pop_Count_1 104e e5fd | | Load 0x2,-0x3 104f e402 | | Load 0x2,0x2 1050 00da | | Load_Top At_Offset_2 1051 82a3 | | Call 0x1,0xa3 1052 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1053 TRAP_1010: 1053 0007 | | Action Break_Optional 1054 6003 |` | Indirect_Literal Discrete,0x1058,{0x00000000, 0x0000813b} 1055 a5fc | | Store_Unchecked 0x2,-0x4 1056 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1057 0000 | | .XXX[0x1] 1058 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 105c 0000 0000 | | .LITERAL {0x00000000, 0x000081a8} 1060 ; -------------------------------------------------------------------------------------- 1060 ; SUBPROGRAM 1060 ; -------------------------------------------------------------------------------------- 1060 106a | j | .CONST 0x106a ; Address of begin 1061 1098 | | .CONST 0x1098 ; Address of exception handler 1062 0003 | | .CONST 0x0003 ; Number of locals 1063 INIT_1060: 1063 00da | | Load_Top At_Offset_2 1064 e004 | | Load 0x0,0x4 1065 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1066 e26f | o | Load 0x1,0x6f 1067 0322 | " | Declare_Variable Record 1068 00d8 | | Load_Top At_Offset_0 1069 1c00 | | Execute_Immediate Run_Utility,0x0 106a BODY_1060: 106a 4800 |H | Short_Literal 0x0 106b a5fc | | Store_Unchecked 0x2,-0x4 106c 00d8 | | Load_Top At_Offset_0 106d e5fd | | Load 0x2,-0x3 106e 00db | | Load_Top At_Offset_3 106f 82a6 | | Call 0x1,0xa6 1070 00d1 | | Pop_Control Pop_Count_1 1071 e5fe | | Load 0x2,-0x2 1072 01db | | Execute Vector,Length 1073 0c81 | | Execute_Immediate Greater_Equal,-0x7f 1074 6802 |h | Jump_Zero 0x1077 1075 e015 | | Load 0x0,0x15 1076 0257 | W | Execute Discrete,Raise 1077 e5fe | | Load 0x2,-0x2 1078 4801 |H | Short_Literal 0x1 1079 e5fe | | Load 0x2,-0x2 107a 01db | | Execute Vector,Length 107b 00d8 | | Load_Top At_Offset_0 107c 00e2 | | Load_Encached Integer_Cache 107d 0260 | ` | Execute Discrete,In_Type 107e 7001 |p | Jump_Nonzero 0x1080 107f 0801 | | Execute_Immediate Raise,0x1 1080 00db | | Load_Top At_Offset_3 1081 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1082 01ce | | Execute Vector,Slice_Write 1083 e5fe | | Load 0x2,-0x2 1084 01db | | Execute Vector,Length 1085 00d9 | | Load_Top At_Offset_1 1086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1087 e001 | | Load 0x0,0x1 1088 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1089 e5fd | | Load 0x2,-0x3 108a e5ff | | Load 0x2,-0x1 108b 8261 | a | Call 0x1,0x61 108c c5fc | | Store 0x2,-0x4 108d e5fd | | Load 0x2,-0x3 108e 00d9 | | Load_Top At_Offset_1 108f 00db | | Load_Top At_Offset_3 1090 82a8 | | Call 0x1,0xa8 1091 e001 | | Load 0x0,0x1 1092 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1093 e5fd | | Load 0x2,-0x3 1094 e5ff | | Load 0x2,-0x1 1095 8260 | ` | Call 0x1,0x60 1096 c5fc | | Store 0x2,-0x4 1097 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1098 TRAP_1060: 1098 e015 | | Load 0x0,0x15 1099 010f | | Execute Exception,Equal 109a 6817 |h | Jump_Zero 0x10b2 109b e5fd | | Load 0x2,-0x3 109c 4801 |H | Short_Literal 0x1 109d 4801 |H | Short_Literal 0x1 109e e006 | | Load 0x0,0x6 109f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10a0 035b | [ | Declare_Type Array,Constrained 10a1 0337 | 7 | Declare_Variable Array 10a2 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128" 10a4 e006 | | Load 0x0,0x6 10a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10a6 e006 | | Load 0x0,0x6 10a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10a8 0119 | | Execute Any,Check_In_Formal_Type 10a9 4801 |H | Short_Literal 0x1 10aa 00da | | Load_Top At_Offset_2 10ab 01d6 | | Execute Vector,Field_Write 10ac 600b |` | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e} 10ad e001 | | Load 0x0,0x1 10ae 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 10af 6008 |` | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e} 10b0 a5fc | | Store_Unchecked 0x2,-0x4 10b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10b2 67a5 |g | Indirect_Literal Discrete,0x1058,{0x00000000, 0x0000813b} 10b3 a5fc | | Store_Unchecked 0x2,-0x4 10b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10b5 0000 0000 | | .XXX[0x3] 10b7 0000 | | 10b8 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 10bc 0000 0000 | | .BLANK 0000[0x4] 10c0 ; -------------------------------------------------------------------------------------- 10c0 ; SUBPROGRAM 10c0 ; -------------------------------------------------------------------------------------- 10c0 10ca | | .CONST 0x10ca ; Address of begin 10c1 10f8 | | .CONST 0x10f8 ; Address of exception handler 10c2 0003 | | .CONST 0x0003 ; Number of locals 10c3 INIT_10c0: 10c3 00da | | Load_Top At_Offset_2 10c4 e004 | | Load 0x0,0x4 10c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 10c6 e26f | o | Load 0x1,0x6f 10c7 0322 | " | Declare_Variable Record 10c8 00d8 | | Load_Top At_Offset_0 10c9 1c00 | | Execute_Immediate Run_Utility,0x0 10ca BODY_10c0: 10ca 4800 |H | Short_Literal 0x0 10cb a5fc | | Store_Unchecked 0x2,-0x4 10cc 00d8 | | Load_Top At_Offset_0 10cd e5fd | | Load 0x2,-0x3 10ce 00db | | Load_Top At_Offset_3 10cf 82a6 | | Call 0x1,0xa6 10d0 00d1 | | Pop_Control Pop_Count_1 10d1 e5fe | | Load 0x2,-0x2 10d2 01db | | Execute Vector,Length 10d3 0c81 | | Execute_Immediate Greater_Equal,-0x7f 10d4 6802 |h | Jump_Zero 0x10d7 10d5 e016 | | Load 0x0,0x16 10d6 0257 | W | Execute Discrete,Raise 10d7 e5fe | | Load 0x2,-0x2 10d8 4801 |H | Short_Literal 0x1 10d9 e5fe | | Load 0x2,-0x2 10da 01db | | Execute Vector,Length 10db 00d8 | | Load_Top At_Offset_0 10dc 00e2 | | Load_Encached Integer_Cache 10dd 0260 | ` | Execute Discrete,In_Type 10de 7001 |p | Jump_Nonzero 0x10e0 10df 0801 | | Execute_Immediate Raise,0x1 10e0 00db | | Load_Top At_Offset_3 10e1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 10e2 01ce | | Execute Vector,Slice_Write 10e3 e5fe | | Load 0x2,-0x2 10e4 01db | | Execute Vector,Length 10e5 00d9 | | Load_Top At_Offset_1 10e6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 10e7 e001 | | Load 0x0,0x1 10e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10e9 e5fd | | Load 0x2,-0x3 10ea e5ff | | Load 0x2,-0x1 10eb 8261 | a | Call 0x1,0x61 10ec c5fc | | Store 0x2,-0x4 10ed e5fd | | Load 0x2,-0x3 10ee 00d9 | | Load_Top At_Offset_1 10ef 00db | | Load_Top At_Offset_3 10f0 82a8 | | Call 0x1,0xa8 10f1 e001 | | Load 0x0,0x1 10f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10f3 e5fd | | Load 0x2,-0x3 10f4 e5ff | | Load 0x2,-0x1 10f5 8260 | ` | Call 0x1,0x60 10f6 c5fc | | Store 0x2,-0x4 10f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10f8 TRAP_10c0: 10f8 e016 | | Load 0x0,0x16 10f9 010f | | Execute Exception,Equal 10fa 6817 |h | Jump_Zero 0x1112 10fb e5fd | | Load 0x2,-0x3 10fc 4801 |H | Short_Literal 0x1 10fd 4801 |H | Short_Literal 0x1 10fe e006 | | Load 0x0,0x6 10ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1100 035b | [ | Declare_Type Array,Constrained 1101 0337 | 7 | Declare_Variable Array 1102 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128" 1104 e006 | | Load 0x0,0x6 1105 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1106 e006 | | Load 0x0,0x6 1107 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1108 0119 | | Execute Any,Check_In_Formal_Type 1109 4801 |H | Short_Literal 0x1 110a 00da | | Load_Top At_Offset_2 110b 01d6 | | Execute Vector,Field_Write 110c 67ab |g | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e} 110d e001 | | Load 0x0,0x1 110e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 110f 67a8 |g | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e} 1110 a5fc | | Store_Unchecked 0x2,-0x4 1111 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1112 6005 |` | Indirect_Literal Discrete,0x1118,{0x00000000, 0x0000813b} 1113 a5fc | | Store_Unchecked 0x2,-0x4 1114 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1115 0000 0000 | | .XXX[0x3] 1117 0000 | | 1118 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 111c 0000 0000 | | .BLANK 0000[0x4] 1120 ; -------------------------------------------------------------------------------------- 1120 ; SUBPROGRAM 1120 ; -------------------------------------------------------------------------------------- 1120 1135 | 5 | .CONST 0x1135 ; Address of begin 1121 11c5 | | .CONST 0x11c5 ; Address of exception handler 1122 0006 | | .CONST 0x0006 ; Number of locals 1123 INIT_1120: 1123 e00c | | Load 0x0,0xc 1124 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1125 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1126 e00c | | Load 0x0,0xc 1127 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1128 e00c | | Load 0x0,0xc 1129 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 112a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 112b 02c7 | | Declare_Variable Any 112c 00d8 | | Load_Top At_Offset_0 112d 1c00 | | Execute_Immediate Run_Utility,0x0 112e e00c | | Load 0x0,0xc 112f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1130 02c7 | | Declare_Variable Any 1131 00d8 | | Load_Top At_Offset_0 1132 1c00 | | Execute_Immediate Run_Utility,0x0 1133 029f 18a3 | | Declare_Subprogram INIT_18a0,For_Call 1135 BODY_1120: 1135 4800 |H | Short_Literal 0x0 1136 a5fc | | Store_Unchecked 0x2,-0x4 1137 e00c | | Load 0x0,0xc 1138 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1139 1b0f | | Execute Package,Field_Read,Field_Number 0xf 113a 00db | | Load_Top At_Offset_3 113b 60a8 |` | Indirect_Literal Discrete,0x11e4,{0x00000000, 0x00004000} 113c e011 | | Load 0x0,0x11 113d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 113e e017 | | Load 0x0,0x17 113f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1140 e018 | | Load 0x0,0x18 1141 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1142 4801 |H | Short_Literal 0x1 1143 4800 |H | Short_Literal 0x0 1144 e017 | | Load 0x0,0x17 1145 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1146 e00c | | Load 0x0,0xc 1147 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1148 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1149 e5ff | | Load 0x2,-0x1 114a 0092 1ae5 | | Action Push_String_Extended,0x1ae5 ; ".??'c(library)" 114c 01cc | | Execute Vector,Catenate 114d e00c | | Load 0x0,0xc 114e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 114f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1150 c404 | | Store 0x2,0x4 1151 c402 | | Store 0x2,0x2 1152 e402 | | Load 0x2,0x2 1153 6819 |h | Jump_Zero 0x116d 1154 e5fe | | Load 0x2,-0x2 1155 4801 |H | Short_Literal 0x1 1156 4801 |H | Short_Literal 0x1 1157 e006 | | Load 0x0,0x6 1158 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1159 035b | [ | Declare_Type Array,Constrained 115a 0337 | 7 | Declare_Variable Array 115b e5ff | | Load 0x2,-0x1 115c 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "??'c(library)" 115e 01cc | | Execute Vector,Catenate 115f e006 | | Load 0x0,0x6 1160 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1161 e006 | | Load 0x0,0x6 1162 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1163 0119 | | Execute Any,Check_In_Formal_Type 1164 4801 |H | Short_Literal 0x1 1165 00da | | Load_Top At_Offset_2 1166 01d6 | | Execute Vector,Field_Write 1167 6078 |`x | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 1168 e001 | | Load 0x0,0x1 1169 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 116a 6075 |`u | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 116b a5fc | | Store_Unchecked 0x2,-0x4 116c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 116d 00da | | Load_Top At_Offset_2 116e e00c | | Load 0x0,0xc 116f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1170 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1171 6819 |h | Jump_Zero 0x118b 1172 e5fe | | Load 0x2,-0x2 1173 4801 |H | Short_Literal 0x1 1174 4801 |H | Short_Literal 0x1 1175 e006 | | Load 0x0,0x6 1176 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1177 035b | [ | Declare_Type Array,Constrained 1178 0337 | 7 | Declare_Variable Array 1179 e5ff | | Load 0x2,-0x1 117a 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "??'c(library)" 117c 01cc | | Execute Vector,Catenate 117d e006 | | Load 0x0,0x6 117e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 117f e006 | | Load 0x0,0x6 1180 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1181 0119 | | Execute Any,Check_In_Formal_Type 1182 4801 |H | Short_Literal 0x1 1183 00da | | Load_Top At_Offset_2 1184 01d6 | | Execute Vector,Field_Write 1185 605a |`Z | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 1186 e001 | | Load 0x0,0x1 1187 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1188 6057 |`W | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 1189 a5fc | | Store_Unchecked 0x2,-0x4 118a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 118b 00cf | | Action Mark_Auxiliary 118c 7832 |x2 | Jump 0x11bf 118d e00c | | Load 0x0,0xc 118e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 118f 00db | | Load_Top At_Offset_3 1190 0120 | | Execute Any,Is_Value 1191 6803 |h | Jump_Zero 0x1195 1192 e00c | | Load 0x0,0xc 1193 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1194 7801 |x | Jump 0x1196 1195 00db | | Load_Top At_Offset_3 1196 e404 | | Load 0x2,0x4 1197 e00c | | Load 0x0,0xc 1198 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1199 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 119a c405 | | Store 0x2,0x5 119b c403 | | Store 0x2,0x3 119c e403 | | Load 0x2,0x3 119d 6819 |h | Jump_Zero 0x11b7 119e e5fe | | Load 0x2,-0x2 119f 4801 |H | Short_Literal 0x1 11a0 4801 |H | Short_Literal 0x1 11a1 e006 | | Load 0x0,0x6 11a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11a3 035b | [ | Declare_Type Array,Constrained 11a4 0337 | 7 | Declare_Variable Array 11a5 e5ff | | Load 0x2,-0x1 11a6 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "??'c(library)" 11a8 01cc | | Execute Vector,Catenate 11a9 e006 | | Load 0x0,0x6 11aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11ab e006 | | Load 0x0,0x6 11ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11ad 0119 | | Execute Any,Check_In_Formal_Type 11ae 4801 |H | Short_Literal 0x1 11af 00da | | Load_Top At_Offset_2 11b0 01d6 | | Execute Vector,Field_Write 11b1 602e |`. | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 11b2 e001 | | Load 0x0,0x1 11b3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11b4 602b |`+ | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 11b5 a5fc | | Store_Unchecked 0x2,-0x4 11b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 11b7 00da | | Load_Top At_Offset_2 11b8 8406 | | Call 0x2,0x6 11b9 00db | | Load_Top At_Offset_3 11ba e00c | | Load 0x0,0xc 11bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 11bd c404 | | Store 0x2,0x4 11be 00c9 | | Action Pop_Auxiliary_Loop 11bf 00db | | Load_Top At_Offset_3 11c0 e00c | | Load 0x0,0xc 11c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11c2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 11c3 6fc9 |o | Jump_Zero 0x118d 11c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 11c5 TRAP_1120: 11c5 0007 | | Action Break_Optional 11c6 e5fe | | Load 0x2,-0x2 11c7 4801 |H | Short_Literal 0x1 11c8 4801 |H | Short_Literal 0x1 11c9 e006 | | Load 0x0,0x6 11ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11cb 035b | [ | Declare_Type Array,Constrained 11cc 0337 | 7 | Declare_Variable Array 11cd e5ff | | Load 0x2,-0x1 11ce e006 | | Load 0x0,0x6 11cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11d0 e006 | | Load 0x0,0x6 11d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11d2 0119 | | Execute Any,Check_In_Formal_Type 11d3 4801 |H | Short_Literal 0x1 11d4 00da | | Load_Top At_Offset_2 11d5 01d6 | | Execute Vector,Field_Write 11d6 6005 |` | Indirect_Literal Discrete,0x11dc,{0x00000000, 0x000081b6} 11d7 e001 | | Load 0x0,0x1 11d8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11d9 6002 |` | Indirect_Literal Discrete,0x11dc,{0x00000000, 0x000081b6} 11da a5fc | | Store_Unchecked 0x2,-0x4 11db 4504 |E | Exit_Suprogram New_Top_Offset 0x4 11dc 0000 0000 | | .LITERAL {0x00000000, 0x000081b6} 11e0 0000 0000 | | .LITERAL {0x00000000, 0x00008197} 11e4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 11e8 ; -------------------------------------------------------------------------------------- 11e8 ; SUBPROGRAM 11e8 ; -------------------------------------------------------------------------------------- 11e8 1203 | | .CONST 0x1203 ; Address of begin 11e9 1266 | f | .CONST 0x1266 ; Address of exception handler 11ea 0009 | | .CONST 0x0009 ; Number of locals 11eb INIT_11e8: 11eb e00c | | Load 0x0,0xc 11ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11ee e00c | | Load 0x0,0xc 11ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11f0 0092 1ae7 | | Action Push_String_Extended,0x1ae7 ; "_secondary_" 11f2 e00c | | Load 0x0,0xc 11f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11f4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 11f5 02c7 | | Declare_Variable Any 11f6 00d8 | | Load_Top At_Offset_0 11f7 1c00 | | Execute_Immediate Run_Utility,0x0 11f8 e00c | | Load 0x0,0xc 11f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11fa 02c7 | | Declare_Variable Any 11fb 00d8 | | Load_Top At_Offset_0 11fc 1c00 | | Execute_Immediate Run_Utility,0x0 11fd 029f 18eb | | Declare_Subprogram INIT_18e8,For_Call 11ff 029f 191b | | Declare_Subprogram INIT_1918,For_Call 1201 029f 1943 | C| Declare_Subprogram INIT_1940,For_Call 1203 BODY_11e8: 1203 4800 |H | Short_Literal 0x0 1204 a5fd | | Store_Unchecked 0x2,-0x3 1205 e00c | | Load 0x0,0xc 1206 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1207 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1208 e405 | | Load 0x2,0x5 1209 67da |g | Indirect_Literal Discrete,0x11e4,{0x00000000, 0x00004000} 120a e011 | | Load 0x0,0x11 120b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 120c e017 | | Load 0x0,0x17 120d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 120e e018 | | Load 0x0,0x18 120f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1210 4801 |H | Short_Literal 0x1 1211 4800 |H | Short_Literal 0x0 1212 e017 | | Load 0x0,0x17 1213 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1214 e00c | | Load 0x0,0xc 1215 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1216 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1217 e5ff | | Load 0x2,-0x1 1218 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 121a 01cc | | Execute Vector,Catenate 121b e00c | | Load 0x0,0xc 121c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 121d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 121e c405 | | Store 0x2,0x5 121f c402 | | Store 0x2,0x2 1220 e402 | | Load 0x2,0x2 1221 6803 |h | Jump_Zero 0x1225 1222 4800 |H | Short_Literal 0x0 1223 a5fd | | Store_Unchecked 0x2,-0x3 1224 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1225 e405 | | Load 0x2,0x5 1226 e00c | | Load 0x0,0xc 1227 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1228 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1229 6802 |h | Jump_Zero 0x122c 122a 4800 |H | Short_Literal 0x0 122b a5fd | | Store_Unchecked 0x2,-0x3 122c 00cf | | Action Mark_Auxiliary 122d 7832 |x2 | Jump 0x1260 122e e00c | | Load 0x0,0xc 122f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1230 e406 | | Load 0x2,0x6 1231 0120 | | Execute Any,Is_Value 1232 6803 |h | Jump_Zero 0x1236 1233 e00c | | Load 0x0,0xc 1234 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1235 7801 |x | Jump 0x1237 1236 e406 | | Load 0x2,0x6 1237 e405 | | Load 0x2,0x5 1238 e00c | | Load 0x0,0xc 1239 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 123a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 123b c406 | | Store 0x2,0x6 123c c403 | | Store 0x2,0x3 123d e403 | | Load 0x2,0x3 123e 6819 |h | Jump_Zero 0x1258 123f 67a0 |g | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 1240 a5fd | | Store_Unchecked 0x2,-0x3 1241 e5fe | | Load 0x2,-0x2 1242 4801 |H | Short_Literal 0x1 1243 4801 |H | Short_Literal 0x1 1244 e006 | | Load 0x0,0x6 1245 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1246 035b | [ | Declare_Type Array,Constrained 1247 0337 | 7 | Declare_Variable Array 1248 e5ff | | Load 0x2,-0x1 1249 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 124b 01cc | | Execute Vector,Catenate 124c e006 | | Load 0x0,0x6 124d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 124e e006 | | Load 0x0,0x6 124f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1250 0119 | | Execute Any,Check_In_Formal_Type 1251 4801 |H | Short_Literal 0x1 1252 00da | | Load_Top At_Offset_2 1253 01d6 | | Execute Vector,Field_Write 1254 678b |g | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197} 1255 e001 | | Load 0x0,0x1 1256 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1257 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1258 e406 | | Load 0x2,0x6 1259 8409 | | Call 0x2,0x9 125a e405 | | Load 0x2,0x5 125b e00c | | Load 0x0,0xc 125c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 125d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 125e c405 | | Store 0x2,0x5 125f 00c9 | | Action Pop_Auxiliary_Loop 1260 e405 | | Load 0x2,0x5 1261 e00c | | Load 0x0,0xc 1262 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1263 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1264 6fc9 |o | Jump_Zero 0x122e 1265 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1266 TRAP_11e8: 1266 0007 | | Action Break_Optional 1267 e5fe | | Load 0x2,-0x2 1268 4801 |H | Short_Literal 0x1 1269 4801 |H | Short_Literal 0x1 126a e006 | | Load 0x0,0x6 126b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 126c 035b | [ | Declare_Type Array,Constrained 126d 0337 | 7 | Declare_Variable Array 126e e5ff | | Load 0x2,-0x1 126f e006 | | Load 0x0,0x6 1270 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1271 e006 | | Load 0x0,0x6 1272 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1273 0119 | | Execute Any,Check_In_Formal_Type 1274 4801 |H | Short_Literal 0x1 1275 00da | | Load_Top At_Offset_2 1276 01d6 | | Execute Vector,Field_Write 1277 6008 |` | Indirect_Literal Discrete,0x1280,{0x00000000, 0x000081b7} 1278 e001 | | Load 0x0,0x1 1279 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 127a 6005 |` | Indirect_Literal Discrete,0x1280,{0x00000000, 0x000081b7} 127b a5fd | | Store_Unchecked 0x2,-0x3 127c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 127d 0000 0000 | | .XXX[0x3] 127f 0000 | | 1280 0000 0000 | | .LITERAL {0x00000000, 0x000081b7} 1284 0000 0000 | | .BLANK 0000[0x4] 1288 ; -------------------------------------------------------------------------------------- 1288 ; SUBPROGRAM 1288 ; -------------------------------------------------------------------------------------- 1288 128b | | .CONST 0x128b ; Address of begin 1289 1298 | | .CONST 0x1298 ; Address of exception handler 128a 0001 | | .CONST 0x0001 ; Number of locals 128b BODY_1288: 128b INIT_1288: 128b 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>" 128d 0092 1ad9 | | Action Push_String_Extended,0x1ad9 ; "<DIRECTORIES>" 128f e5ff | | Load 0x2,-0x1 1290 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 1292 01cc | | Execute Vector,Catenate 1293 e012 | | Load 0x0,0x12 1294 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1295 4800 |H | Short_Literal 0x0 1296 a5fd | | Store_Unchecked 0x2,-0x3 1297 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1298 TRAP_1288: 1298 0007 | | Action Break_Optional 1299 e5fe | | Load 0x2,-0x2 129a 4801 |H | Short_Literal 0x1 129b 4801 |H | Short_Literal 0x1 129c e006 | | Load 0x0,0x6 129d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 129e 035b | [ | Declare_Type Array,Constrained 129f 0337 | 7 | Declare_Variable Array 12a0 e5ff | | Load 0x2,-0x1 12a1 e006 | | Load 0x0,0x6 12a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12a3 e006 | | Load 0x0,0x6 12a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12a5 0119 | | Execute Any,Check_In_Formal_Type 12a6 4801 |H | Short_Literal 0x1 12a7 00da | | Load_Top At_Offset_2 12a8 01d6 | | Execute Vector,Field_Write 12a9 6006 |` | Indirect_Literal Discrete,0x12b0,{0x00000000, 0x000081b5} 12aa e001 | | Load 0x0,0x1 12ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 12ac 6003 |` | Indirect_Literal Discrete,0x12b0,{0x00000000, 0x000081b5} 12ad a5fd | | Store_Unchecked 0x2,-0x3 12ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 12af 0000 | | .XXX[0x1] 12b0 0000 0000 | | .LITERAL {0x00000000, 0x000081b5} 12b4 0000 0000 | | .BLANK 0000[0x4] 12b8 ; -------------------------------------------------------------------------------------- 12b8 ; SUBPROGRAM 12b8 ; -------------------------------------------------------------------------------------- 12b8 12cd | | .CONST 0x12cd ; Address of begin 12b9 0004 | | .CONST 0x0004 ; Address of exception handler 12ba 0007 | | .CONST 0x0007 ; Number of locals 12bb INIT_12b8: 12bb e00c | | Load 0x0,0xc 12bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12bd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 12be 02c7 | | Declare_Variable Any 12bf 00d8 | | Load_Top At_Offset_0 12c0 1c00 | | Execute_Immediate Run_Utility,0x0 12c1 e00c | | Load 0x0,0xc 12c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12c3 02c7 | | Declare_Variable Any 12c4 00d8 | | Load_Top At_Offset_0 12c5 1c00 | | Execute_Immediate Run_Utility,0x0 12c6 e001 | | Load 0x0,0x1 12c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12c8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 12c9 00e2 | | Load_Encached Integer_Cache 12ca 00e1 | | Load_Encached Boolean_Cache 12cb 029f 199b | | Declare_Subprogram INIT_1998,For_Call 12cd BODY_12b8: 12cd e5ff | | Load 0x2,-0x1 12ce e004 | | Load 0x0,0x4 12cf 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 12d0 7001 |p | Jump_Nonzero 0x12d2 12d1 8407 | | Call 0x2,0x7 12d2 4800 |H | Short_Literal 0x0 12d3 a5fc | | Store_Unchecked 0x2,-0x4 12d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 12d5 0000 0000 | | .XXX[0x3] 12d7 0000 | | 12d8 ; -------------------------------------------------------------------------------------- 12d8 ; SUBPROGRAM 12d8 ; -------------------------------------------------------------------------------------- 12d8 12db | | .CONST 0x12db ; Address of begin 12d9 12e0 | | .CONST 0x12e0 ; Address of exception handler 12da 0001 | | .CONST 0x0001 ; Number of locals 12db BODY_12d8: 12db INIT_12d8: 12db 00da | | Load_Top At_Offset_2 12dc e019 | | Load 0x0,0x19 12dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 12de c5ff | | Store 0x2,-0x1 12df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12e0 TRAP_12d8: 12e0 0007 | | Action Break_Optional 12e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12e2 0000 0000 | | .BLANK 0000[0x6] 12e8 ; -------------------------------------------------------------------------------------- 12e8 ; SUBPROGRAM 12e8 ; -------------------------------------------------------------------------------------- 12e8 12eb | | .CONST 0x12eb ; Address of begin 12e9 12f0 | | .CONST 0x12f0 ; Address of exception handler 12ea 0001 | | .CONST 0x0001 ; Number of locals 12eb BODY_12e8: 12eb INIT_12e8: 12eb 00da | | Load_Top At_Offset_2 12ec e014 | | Load 0x0,0x14 12ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b 12ee c5ff | | Store 0x2,-0x1 12ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12f0 TRAP_12e8: 12f0 0007 | | Action Break_Optional 12f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12f2 0000 0000 | | .BLANK 0000[0x6] 12f8 ; -------------------------------------------------------------------------------------- 12f8 ; SUBPROGRAM 12f8 ; -------------------------------------------------------------------------------------- 12f8 1300 | | .CONST 0x1300 ; Address of begin 12f9 1310 | | .CONST 0x1310 ; Address of exception handler 12fa 0002 | | .CONST 0x0002 ; Number of locals 12fb INIT_12f8: 12fb e019 | | Load 0x0,0x19 12fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12fd 02c7 | | Declare_Variable Any 12fe 00d8 | | Load_Top At_Offset_0 12ff 1c00 | | Execute_Immediate Run_Utility,0x0 1300 BODY_12f8: 1300 00d8 | | Load_Top At_Offset_0 1301 e011 | | Load 0x0,0x11 1302 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1303 e00c | | Load 0x0,0xc 1304 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1305 00ea | | Load_Encached Null_String_Cache 1306 e5ff | | Load 0x2,-0x1 1307 4801 |H | Short_Literal 0x1 1308 e019 | | Load 0x0,0x19 1309 1814 | | Execute Package,Field_Execute,Field_Number 0x14 130a c402 | | Store 0x2,0x2 130b 00d8 | | Load_Top At_Offset_0 130c e019 | | Load 0x0,0x19 130d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 130e c402 | | Store 0x2,0x2 130f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1310 TRAP_12f8: 1310 0007 | | Action Break_Optional 1311 00d9 | | Load_Top At_Offset_1 1312 8290 | | Call 0x1,0x90 1313 c402 | | Store 0x2,0x2 1314 e5fe | | Load 0x2,-0x2 1315 4801 |H | Short_Literal 0x1 1316 4801 |H | Short_Literal 0x1 1317 e006 | | Load 0x0,0x6 1318 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1319 035b | [ | Declare_Type Array,Constrained 131a 0337 | 7 | Declare_Variable Array 131b e5ff | | Load 0x2,-0x1 131c e006 | | Load 0x0,0x6 131d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 131e e006 | | Load 0x0,0x6 131f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1320 0119 | | Execute Any,Check_In_Formal_Type 1321 4801 |H | Short_Literal 0x1 1322 00da | | Load_Top At_Offset_2 1323 01d6 | | Execute Vector,Field_Write 1324 6007 |` | Indirect_Literal Discrete,0x132c,{0x00000000, 0x00008196} 1325 e001 | | Load 0x0,0x1 1326 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1327 e001 | | Load 0x0,0x1 1328 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1329 0257 | W | Execute Discrete,Raise 132a 0000 0000 | | .XXX[0x2] 132c 0000 0000 | | .LITERAL {0x00000000, 0x00008196} 1330 ; -------------------------------------------------------------------------------------- 1330 ; SUBPROGRAM 1330 ; -------------------------------------------------------------------------------------- 1330 1333 | 3 | .CONST 0x1333 ; Address of begin 1331 0004 | | .CONST 0x0004 ; Address of exception handler 1332 0001 | | .CONST 0x0001 ; Number of locals 1333 BODY_1330: 1333 INIT_1330: 1333 4800 |H | Short_Literal 0x0 1334 4801 |H | Short_Literal 0x1 1335 4801 |H | Short_Literal 0x1 1336 6005 |` | Indirect_Literal Discrete,0x133c,{0x00000000, 0x0000076d} 1337 e00e | | Load 0x0,0xe 1338 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1339 00ca | | Action Exit_Nullary_Function 133a 0000 0000 | | .XXX[0x2] 133c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 1340 ; -------------------------------------------------------------------------------------- 1340 ; SUBPROGRAM 1340 ; -------------------------------------------------------------------------------------- 1340 1346 | F | .CONST 0x1346 ; Address of begin 1341 0004 | | .CONST 0x0004 ; Address of exception handler 1342 0002 | | .CONST 0x0002 ; Number of locals 1343 INIT_1340: 1343 00da | | Load_Top At_Offset_2 1344 e004 | | Load 0x0,0x4 1345 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1346 BODY_1340: 1346 00d8 | | Load_Top At_Offset_0 1347 0092 1ae9 | | Action Push_String_Extended,0x1ae9 ; ".<" 1349 01cc | | Execute Vector,Catenate 134a e28e | | Load 0x1,0x8e 134b 01cc | | Execute Vector,Catenate 134c 0092 1aea | | Action Push_String_Extended,0x1aea ; "state>" 134e 01cc | | Execute Vector,Catenate 134f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1353 | S | .CONST 0x1353 ; Address of begin 1351 0004 | | .CONST 0x0004 ; Address of exception handler 1352 0001 | | .CONST 0x0001 ; Number of locals 1353 BODY_1350: 1353 INIT_1350: 1353 00da | | Load_Top At_Offset_2 1354 01db | | Execute Vector,Length 1355 0c02 | | Execute_Immediate Greater_Equal,0x2 1356 6810 |h | Jump_Zero 0x1367 1357 4801 |H | Short_Literal 0x1 1358 00db | | Load_Top At_Offset_3 1359 01d7 | | Execute Vector,Field_Read 135a 0f20 | | Execute_Immediate Equal,0x20 135b 680b |h | Jump_Zero 0x1367 135c 4802 |H | Short_Literal 0x2 135d 00db | | Load_Top At_Offset_3 135e 01db | | Execute Vector,Length 135f 00d8 | | Load_Top At_Offset_0 1360 00e2 | | Load_Encached Integer_Cache 1361 0260 | ` | Execute Discrete,In_Type 1362 7001 |p | Jump_Nonzero 0x1364 1363 0801 | | Execute_Immediate Raise,0x1 1364 e5ff | | Load 0x2,-0x1 1365 01cf | | Execute Vector,Slice_Read 1366 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1367 00da | | Load_Top At_Offset_2 1368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1369 0000 0000 | | .BLANK 0000[0x7] 1370 ; -------------------------------------------------------------------------------------- 1370 ; SUBPROGRAM 1370 ; -------------------------------------------------------------------------------------- 1370 1376 | v | .CONST 0x1376 ; Address of begin 1371 0004 | | .CONST 0x0004 ; Address of exception handler 1372 0002 | | .CONST 0x0002 ; Number of locals 1373 INIT_1370: 1373 00da | | Load_Top At_Offset_2 1374 e004 | | Load 0x0,0x4 1375 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1376 BODY_1370: 1376 00d8 | | Load_Top At_Offset_0 1377 0092 1ae9 | | Action Push_String_Extended,0x1ae9 ; ".<" 1379 01cc | | Execute Vector,Catenate 137a e28e | | Load 0x1,0x8e 137b 01cc | | Execute Vector,Catenate 137c e5fe | | Load 0x2,-0x2 137d 01cc | | Execute Vector,Catenate 137e 0092 1aeb | | Action Push_String_Extended,0x1aeb ; ">" 1380 01cc | | Execute Vector,Catenate 1381 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1382 0000 0000 | | .BLANK 0000[0x6] 1388 ; -------------------------------------------------------------------------------------- 1388 ; SUBPROGRAM 1388 ; -------------------------------------------------------------------------------------- 1388 1393 | | .CONST 0x1393 ; Address of begin 1389 0004 | | .CONST 0x0004 ; Address of exception handler 138a 0003 | | .CONST 0x0003 ; Number of locals 138b INIT_1388: 138b e00c | | Load 0x0,0xc 138c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 138d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 138e e00c | | Load 0x0,0xc 138f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1390 02c7 | | Declare_Variable Any 1391 00d8 | | Load_Top At_Offset_0 1392 1c00 | | Execute_Immediate Run_Utility,0x0 1393 BODY_1388: 1393 e00c | | Load 0x0,0xc 1394 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1395 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1396 00d9 | | Load_Top At_Offset_1 1397 0120 | | Execute Any,Is_Value 1398 6803 |h | Jump_Zero 0x139c 1399 e00c | | Load 0x0,0xc 139a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 139b 7801 |x | Jump 0x139d 139c 00d9 | | Load_Top At_Offset_1 139d 6016 |` | Indirect_Literal Discrete,0x13b4,{0x00000000, 0x00004000} 139e e011 | | Load 0x0,0x11 139f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13a0 e017 | | Load 0x0,0x17 13a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 13a2 e00c | | Load 0x0,0xc 13a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13a4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 13a5 e5ff | | Load 0x2,-0x1 13a6 e00c | | Load 0x0,0xc 13a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13a8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 13a9 c403 | | Store 0x2,0x3 13aa 005a | Z | Store_Top Discrete,At_Offset_2 13ab 00d9 | | Load_Top At_Offset_1 13ac 6803 |h | Jump_Zero 0x13b0 13ad e00c | | Load 0x0,0xc 13ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13b0 00d8 | | Load_Top At_Offset_0 13b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13b2 0000 0000 | | .XXX[0x2] 13b4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 13b8 ; -------------------------------------------------------------------------------------- 13b8 ; SUBPROGRAM 13b8 ; -------------------------------------------------------------------------------------- 13b8 13c3 | | .CONST 0x13c3 ; Address of begin 13b9 0004 | | .CONST 0x0004 ; Address of exception handler 13ba 0003 | | .CONST 0x0003 ; Number of locals 13bb INIT_13b8: 13bb e00c | | Load 0x0,0xc 13bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13be e00c | | Load 0x0,0xc 13bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13c0 02c7 | | Declare_Variable Any 13c1 00d8 | | Load_Top At_Offset_0 13c2 1c00 | | Execute_Immediate Run_Utility,0x0 13c3 BODY_13b8: 13c3 e00c | | Load 0x0,0xc 13c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13c6 00d9 | | Load_Top At_Offset_1 13c7 0120 | | Execute Any,Is_Value 13c8 6803 |h | Jump_Zero 0x13cc 13c9 e00c | | Load 0x0,0xc 13ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13cb 7801 |x | Jump 0x13cd 13cc 00d9 | | Load_Top At_Offset_1 13cd 67e6 |g | Indirect_Literal Discrete,0x13b4,{0x00000000, 0x00004000} 13ce e011 | | Load 0x0,0x11 13cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13d0 e017 | | Load 0x0,0x17 13d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 13d2 e00c | | Load 0x0,0xc 13d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 13d5 e5ff | | Load 0x2,-0x1 13d6 e00c | | Load 0x0,0xc 13d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13d8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 13d9 c403 | | Store 0x2,0x3 13da 005a | Z | Store_Top Discrete,At_Offset_2 13db 00d9 | | Load_Top At_Offset_1 13dc 6816 |h | Jump_Zero 0x13f3 13dd e5fe | | Load 0x2,-0x2 13de 4801 |H | Short_Literal 0x1 13df 4801 |H | Short_Literal 0x1 13e0 e006 | | Load 0x0,0x6 13e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13e2 035b | [ | Declare_Type Array,Constrained 13e3 0337 | 7 | Declare_Variable Array 13e4 e5ff | | Load 0x2,-0x1 13e5 e006 | | Load 0x0,0x6 13e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13e7 e006 | | Load 0x0,0x6 13e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13e9 0119 | | Execute Any,Check_In_Formal_Type 13ea 4801 |H | Short_Literal 0x1 13eb 00da | | Load_Top At_Offset_2 13ec 01d6 | | Execute Vector,Field_Write 13ed 600a |` | Indirect_Literal Discrete,0x13f8,{0x00000000, 0x00008197} 13ee e001 | | Load 0x0,0x1 13ef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 13f0 e001 | | Load 0x0,0x1 13f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 13f2 0257 | W | Execute Discrete,Raise 13f3 00d8 | | Load_Top At_Offset_0 13f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 13f5 0000 0000 | | .XXX[0x3] 13f7 0000 | | 13f8 0000 0000 | | .LITERAL {0x00000000, 0x00008197} 13fc 0000 0000 | | .BLANK 0000[0x4] 1400 ; -------------------------------------------------------------------------------------- 1400 ; SUBPROGRAM 1400 ; -------------------------------------------------------------------------------------- 1400 140c | | .CONST 0x140c ; Address of begin 1401 0004 | | .CONST 0x0004 ; Address of exception handler 1402 0003 | | .CONST 0x0003 ; Number of locals 1403 INIT_1400: 1403 e00c | | Load 0x0,0xc 1404 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1405 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1406 02c7 | | Declare_Variable Any 1407 00d8 | | Load_Top At_Offset_0 1408 1c00 | | Execute_Immediate Run_Utility,0x0 1409 e00c | | Load 0x0,0xc 140a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 140b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 140c BODY_1400: 140c e00c | | Load 0x0,0xc 140d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 140e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 140f 00da | | Load_Top At_Offset_2 1410 601f |` | Indirect_Literal Discrete,0x1430,{0x00000000, 0x00004000} 1411 e011 | | Load 0x0,0x11 1412 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1413 e017 | | Load 0x0,0x17 1414 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1415 e018 | | Load 0x0,0x18 1416 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1417 4801 |H | Short_Literal 0x1 1418 4800 |H | Short_Literal 0x0 1419 e017 | | Load 0x0,0x17 141a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 141b e00c | | Load 0x0,0xc 141c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 141d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 141e e5ff | | Load 0x2,-0x1 141f e00c | | Load 0x0,0xc 1420 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1421 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1422 c402 | | Store 0x2,0x2 1423 0059 | Y | Store_Top Discrete,At_Offset_1 1424 00d8 | | Load_Top At_Offset_0 1425 0e00 | | Execute_Immediate Not_Equal,0x0 1426 00d9 | | Load_Top At_Offset_1 1427 0e03 | | Execute_Immediate Not_Equal,0x3 1428 0279 | y | Execute Discrete,And 1429 6804 |h | Jump_Zero 0x142e 142a e00c | | Load 0x0,0xc 142b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 142c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 142d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 142e 00d9 | | Load_Top At_Offset_1 142f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1430 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1434 0000 0000 | | .BLANK 0000[0x4] 1438 ; -------------------------------------------------------------------------------------- 1438 ; SUBPROGRAM 1438 ; -------------------------------------------------------------------------------------- 1438 143b | ; | .CONST 0x143b ; Address of begin 1439 0004 | | .CONST 0x0004 ; Address of exception handler 143a 0001 | | .CONST 0x0001 ; Number of locals 143b BODY_1438: 143b INIT_1438: 143b 4801 |H | Short_Literal 0x1 143c 0092 1aec | | Action Push_String_Extended,0x1aec ; "<DEFAULT>" 143e e5ff | | Load 0x2,-0x1 143f e01a | | Load 0x0,0x1a 1440 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1441 6802 |h | Jump_Zero 0x1444 1442 00db | | Load_Top At_Offset_3 1443 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1444 00da | | Load_Top At_Offset_2 1445 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1446 0000 0000 | | .XXX[0x2] 1448 ; -------------------------------------------------------------------------------------- 1448 ; SUBPROGRAM 1448 ; -------------------------------------------------------------------------------------- 1448 1452 | R | .CONST 0x1452 ; Address of begin 1449 0004 | | .CONST 0x0004 ; Address of exception handler 144a 0003 | | .CONST 0x0003 ; Number of locals 144b INIT_1448: 144b e00c | | Load 0x0,0xc 144c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 144d 02c7 | | Declare_Variable Any 144e 00d8 | | Load_Top At_Offset_0 144f 1c00 | | Execute_Immediate Run_Utility,0x0 1450 e00c | | Load 0x0,0xc 1451 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1452 BODY_1448: 1452 e00c | | Load 0x0,0xc 1453 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1454 00da | | Load_Top At_Offset_2 1455 0120 | | Execute Any,Is_Value 1456 6803 |h | Jump_Zero 0x145a 1457 e00c | | Load 0x0,0xc 1458 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1459 7801 |x | Jump 0x145b 145a 00da | | Load_Top At_Offset_2 145b e5ff | | Load 0x2,-0x1 145c e00c | | Load 0x0,0xc 145d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 145e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 145f c402 | | Store 0x2,0x2 1460 0059 | Y | Store_Top Discrete,At_Offset_1 1461 00d8 | | Load_Top At_Offset_0 1462 7004 |p | Jump_Nonzero 0x1467 1463 00d9 | | Load_Top At_Offset_1 1464 e004 | | Load 0x0,0x4 1465 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1466 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1467 00ea | | Load_Encached Null_String_Cache 1468 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1469 0000 0000 | | .BLANK 0000[0x7] 1470 ; -------------------------------------------------------------------------------------- 1470 ; SUBPROGRAM 1470 ; -------------------------------------------------------------------------------------- 1470 1473 | s | .CONST 0x1473 ; Address of begin 1471 0004 | | .CONST 0x0004 ; Address of exception handler 1472 0001 | | .CONST 0x0001 ; Number of locals 1473 BODY_1470: 1473 INIT_1470: 1473 00da | | Load_Top At_Offset_2 1474 e00c | | Load 0x0,0xc 1475 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1476 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 1477 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1478 ; -------------------------------------------------------------------------------------- 1478 ; SUBPROGRAM 1478 ; -------------------------------------------------------------------------------------- 1478 147b | { | .CONST 0x147b ; Address of begin 1479 0004 | | .CONST 0x0004 ; Address of exception handler 147a 0001 | | .CONST 0x0001 ; Number of locals 147b BODY_1478: 147b INIT_1478: 147b 4800 |H | Short_Literal 0x0 147c 4800 |H | Short_Literal 0x0 147d 4800 |H | Short_Literal 0x0 147e e5ff | | Load 0x2,-0x1 147f e00a | | Load 0x0,0xa 1480 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1481 e00a | | Load 0x0,0xa 1482 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1483 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1484 0000 0000 | | .BLANK 0000[0x4] 1488 ; -------------------------------------------------------------------------------------- 1488 ; SUBPROGRAM 1488 ; -------------------------------------------------------------------------------------- 1488 148b | | .CONST 0x148b ; Address of begin 1489 0004 | | .CONST 0x0004 ; Address of exception handler 148a 0001 | | .CONST 0x0001 ; Number of locals 148b BODY_1488: 148b INIT_1488: 148b 00da | | Load_Top At_Offset_2 148c e00a | | Load 0x0,0xa 148d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 148e e00a | | Load 0x0,0xa 148f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1490 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1491 0000 0000 | | .BLANK 0000[0x7] 1498 ; -------------------------------------------------------------------------------------- 1498 ; SUBPROGRAM 1498 ; -------------------------------------------------------------------------------------- 1498 149b | | .CONST 0x149b ; Address of begin 1499 0004 | | .CONST 0x0004 ; Address of exception handler 149a 0001 | | .CONST 0x0001 ; Number of locals 149b BODY_1498: 149b INIT_1498: 149b 00da | | Load_Top At_Offset_2 149c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 149d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 149e 0000 0000 | | .XXX[0x2] 14a0 ; -------------------------------------------------------------------------------------- 14a0 ; SUBPROGRAM 14a0 ; -------------------------------------------------------------------------------------- 14a0 14a3 | | .CONST 0x14a3 ; Address of begin 14a1 0004 | | .CONST 0x0004 ; Address of exception handler 14a2 0001 | | .CONST 0x0001 ; Number of locals 14a3 BODY_14a0: 14a3 INIT_14a0: 14a3 00da | | Load_Top At_Offset_2 14a4 e5fe | | Load 0x2,-0x2 14a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 14a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 14a7 0000 | | .XXX[0x1] 14a8 ; -------------------------------------------------------------------------------------- 14a8 ; SUBPROGRAM 14a8 ; -------------------------------------------------------------------------------------- 14a8 14ab | | .CONST 0x14ab ; Address of begin 14a9 14b5 | | .CONST 0x14b5 ; Address of exception handler 14aa 0001 | | .CONST 0x0001 ; Number of locals 14ab BODY_14a8: 14ab INIT_14a8: 14ab e5fd | | Load 0x2,-0x3 14ac 00ea | | Load_Encached Null_String_Cache 14ad e5ff | | Load 0x2,-0x1 14ae 4800 |H | Short_Literal 0x0 14af e014 | | Load 0x0,0x14 14b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 14b1 c5fd | | Store 0x2,-0x3 14b2 4801 |H | Short_Literal 0x1 14b3 a5fc | | Store_Unchecked 0x2,-0x4 14b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 14b5 TRAP_14a8: 14b5 00d8 | | Load_Top At_Offset_0 14b6 0107 | | Execute Exception,Get_Name 14b7 4920 |I | Short_Literal 0x120 14b8 492f |I/ | Short_Literal 0x12f 14b9 0262 | b | Execute Discrete,In_Range 14ba 6803 |h | Jump_Zero 0x14be 14bb 4800 |H | Short_Literal 0x0 14bc a5fc | | Store_Unchecked 0x2,-0x4 14bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 14be e5fd | | Load 0x2,-0x3 14bf 8291 | | Call 0x1,0x91 14c0 c5fd | | Store 0x2,-0x3 14c1 e5fe | | Load 0x2,-0x2 14c2 4801 |H | Short_Literal 0x1 14c3 4801 |H | Short_Literal 0x1 14c4 e006 | | Load 0x0,0x6 14c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14c6 035b | [ | Declare_Type Array,Constrained 14c7 0337 | 7 | Declare_Variable Array 14c8 e5ff | | Load 0x2,-0x1 14c9 e006 | | Load 0x0,0x6 14ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 14cb e006 | | Load 0x0,0x6 14cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14cd 0119 | | Execute Any,Check_In_Formal_Type 14ce 4801 |H | Short_Literal 0x1 14cf 00da | | Load_Top At_Offset_2 14d0 01d6 | | Execute Vector,Field_Write 14d1 6006 |` | Indirect_Literal Discrete,0x14d8,{0x00000000, 0x00008198} 14d2 e001 | | Load 0x0,0x1 14d3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 14d4 e001 | | Load 0x0,0x1 14d5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 14d6 0257 | W | Execute Discrete,Raise 14d7 0000 | | .XXX[0x1] 14d8 0000 0000 | | .LITERAL {0x00000000, 0x00008198} 14dc 0000 0000 | | .BLANK 0000[0x4] 14e0 ; -------------------------------------------------------------------------------------- 14e0 ; SUBPROGRAM 14e0 ; -------------------------------------------------------------------------------------- 14e0 14e3 | | .CONST 0x14e3 ; Address of begin 14e1 0004 | | .CONST 0x0004 ; Address of exception handler 14e2 0001 | | .CONST 0x0001 ; Number of locals 14e3 BODY_14e0: 14e3 INIT_14e0: 14e3 00db | | Load_Top At_Offset_3 14e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 14e5 00e1 | | Load_Encached Boolean_Cache 14e6 011c | | Execute Any,Convert_Unchecked 14e7 1c01 | | Execute_Immediate Run_Utility,0x1 14e8 00db | | Load_Top At_Offset_3 14e9 e014 | | Load 0x0,0x14 14ea 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 14eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 14ec 0000 0000 | | .BLANK 0000[0x4] 14f0 ; -------------------------------------------------------------------------------------- 14f0 ; SUBPROGRAM 14f0 ; -------------------------------------------------------------------------------------- 14f0 1501 | | .CONST 0x1501 ; Address of begin 14f1 151c | | .CONST 0x151c ; Address of exception handler 14f2 0004 | | .CONST 0x0004 ; Number of locals 14f3 INIT_14f0: 14f3 e014 | | Load 0x0,0x14 14f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14f5 02c7 | | Declare_Variable Any 14f6 00d8 | | Load_Top At_Offset_0 14f7 1c00 | | Execute_Immediate Run_Utility,0x0 14f8 e00c | | Load 0x0,0xc 14f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14fa 02c7 | | Declare_Variable Any 14fb e5fd | | Load 0x2,-0x3 14fc e5ff | | Load 0x2,-0x1 14fd 8298 | | Call 0x1,0x98 14fe a403 | | Store_Unchecked 0x2,0x3 14ff e001 | | Load 0x0,0x1 1500 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1501 BODY_14f0: 1501 e001 | | Load 0x0,0x1 1502 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1503 e5fd | | Load 0x2,-0x3 1504 00db | | Load_Top At_Offset_3 1505 8261 | a | Call 0x1,0x61 1506 0059 | Y | Store_Top Discrete,At_Offset_1 1507 00da | | Load_Top At_Offset_2 1508 00ea | | Load_Encached Null_String_Cache 1509 e5ff | | Load 0x2,-0x1 150a 4801 |H | Short_Literal 0x1 150b e014 | | Load 0x0,0x14 150c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 150d c402 | | Store 0x2,0x2 150e e5fe | | Load 0x2,-0x2 150f 00db | | Load_Top At_Offset_3 1510 82a2 | | Call 0x1,0xa2 1511 00da | | Load_Top At_Offset_2 1512 e014 | | Load 0x0,0x14 1513 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1514 c402 | | Store 0x2,0x2 1515 e001 | | Load 0x0,0x1 1516 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1517 e5fd | | Load 0x2,-0x3 1518 00db | | Load_Top At_Offset_3 1519 8260 | ` | Call 0x1,0x60 151a 0059 | Y | Store_Top Discrete,At_Offset_1 151b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 151c TRAP_14f0: 151c 0007 | | Action Break_Optional 151d 00db | | Load_Top At_Offset_3 151e 8291 | | Call 0x1,0x91 151f c402 | | Store 0x2,0x2 1520 e5fd | | Load 0x2,-0x3 1521 4801 |H | Short_Literal 0x1 1522 4801 |H | Short_Literal 0x1 1523 e006 | | Load 0x0,0x6 1524 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1525 035b | [ | Declare_Type Array,Constrained 1526 0337 | 7 | Declare_Variable Array 1527 e5ff | | Load 0x2,-0x1 1528 e006 | | Load 0x0,0x6 1529 1810 | | Execute Package,Field_Execute,Field_Number 0x10 152a e006 | | Load 0x0,0x6 152b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 152c 0119 | | Execute Any,Check_In_Formal_Type 152d 4801 |H | Short_Literal 0x1 152e 00da | | Load_Top At_Offset_2 152f 01d6 | | Execute Vector,Field_Write 1530 6007 |` | Indirect_Literal Discrete,0x1538,{0x00000000, 0x00008199} 1531 e001 | | Load 0x0,0x1 1532 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1533 e001 | | Load 0x0,0x1 1534 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1535 0257 | W | Execute Discrete,Raise 1536 0000 0000 | | .XXX[0x2] 1538 0000 0000 | | .LITERAL {0x00000000, 0x00008199} 153c 0000 0000 | | .BLANK 0000[0x4] 1540 ; -------------------------------------------------------------------------------------- 1540 ; SUBPROGRAM 1540 ; -------------------------------------------------------------------------------------- 1540 1551 | Q | .CONST 0x1551 ; Address of begin 1541 1570 | p | .CONST 0x1570 ; Address of exception handler 1542 0005 | | .CONST 0x0005 ; Number of locals 1543 INIT_1540: 1543 e014 | | Load 0x0,0x14 1544 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1545 02c7 | | Declare_Variable Any 1546 00d8 | | Load_Top At_Offset_0 1547 1c00 | | Execute_Immediate Run_Utility,0x0 1548 e28d | | Load 0x1,0x8d 1549 0322 | " | Declare_Variable Record 154a e00c | | Load 0x0,0xc 154b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 154c 02c7 | | Declare_Variable Any 154d 00d8 | | Load_Top At_Offset_0 154e 1c00 | | Execute_Immediate Run_Utility,0x0 154f e001 | | Load 0x0,0x1 1550 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1551 BODY_1540: 1551 00db | | Load_Top At_Offset_3 1552 00ea | | Load_Encached Null_String_Cache 1553 e5ff | | Load 0x2,-0x1 1554 4801 |H | Short_Literal 0x1 1555 e014 | | Load 0x0,0x14 1556 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1557 c402 | | Store 0x2,0x2 1558 4800 |H | Short_Literal 0x0 1559 00db | | Load_Top At_Offset_3 155a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 155b 00da | | Load_Top At_Offset_2 155c e402 | | Load 0x2,0x2 155d 82a2 | | Call 0x1,0xa2 155e 00db | | Load_Top At_Offset_3 155f e014 | | Load 0x0,0x14 1560 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1561 c402 | | Store 0x2,0x2 1562 e5fe | | Load 0x2,-0x2 1563 e5ff | | Load 0x2,-0x1 1564 8298 | | Call 0x1,0x98 1565 c404 | | Store 0x2,0x4 1566 e001 | | Load 0x0,0x1 1567 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1568 e5fe | | Load 0x2,-0x2 1569 00db | | Load_Top At_Offset_3 156a 8260 | ` | Call 0x1,0x60 156b 0059 | Y | Store_Top Discrete,At_Offset_1 156c 00da | | Load_Top At_Offset_2 156d e5fd | | Load 0x2,-0x3 156e 017d | } | Execute Record,Structure_Write 156f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1570 TRAP_1540: 1570 0007 | | Action Break_Optional 1571 e5fe | | Load 0x2,-0x2 1572 4801 |H | Short_Literal 0x1 1573 4801 |H | Short_Literal 0x1 1574 e006 | | Load 0x0,0x6 1575 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1576 035b | [ | Declare_Type Array,Constrained 1577 0337 | 7 | Declare_Variable Array 1578 e5ff | | Load 0x2,-0x1 1579 e006 | | Load 0x0,0x6 157a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 157b e006 | | Load 0x0,0x6 157c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 157d 0119 | | Execute Any,Check_In_Formal_Type 157e 4801 |H | Short_Literal 0x1 157f 00da | | Load_Top At_Offset_2 1580 01d6 | | Execute Vector,Field_Write 1581 6006 |` | Indirect_Literal Discrete,0x1588,{0x00000000, 0x0000819a} 1582 e001 | | Load 0x0,0x1 1583 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1584 e001 | | Load 0x0,0x1 1585 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1586 0257 | W | Execute Discrete,Raise 1587 0000 | | .XXX[0x1] 1588 0000 0000 | | .LITERAL {0x00000000, 0x0000819a} 158c 0000 0000 | | .BLANK 0000[0x4] 1590 ; -------------------------------------------------------------------------------------- 1590 ; SUBPROGRAM 1590 ; -------------------------------------------------------------------------------------- 1590 1599 | | .CONST 0x1599 ; Address of begin 1591 15b4 | | .CONST 0x15b4 ; Address of exception handler 1592 0003 | | .CONST 0x0003 ; Number of locals 1593 INIT_1590: 1593 e014 | | Load 0x0,0x14 1594 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1595 02c7 | | Declare_Variable Any 1596 00d8 | | Load_Top At_Offset_0 1597 1c00 | | Execute_Immediate Run_Utility,0x0 1598 00e1 | | Load_Encached Boolean_Cache 1599 BODY_1590: 1599 00e1 | | Load_Encached Boolean_Cache 159a 00da | | Load_Top At_Offset_2 159b e5fe | | Load 0x2,-0x2 159c e5ff | | Load 0x2,-0x1 159d 82a1 | | Call 0x1,0xa1 159e c402 | | Store 0x2,0x2 159f 0059 | Y | Store_Top Discrete,At_Offset_1 15a0 00d8 | | Load_Top At_Offset_0 15a1 7006 |p | Jump_Nonzero 0x15a8 15a2 e5fd | | Load 0x2,-0x3 15a3 e5fe | | Load 0x2,-0x2 15a4 e5ff | | Load 0x2,-0x1 15a5 82a4 | | Call 0x1,0xa4 15a6 00d1 | | Pop_Control Pop_Count_1 15a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15a8 00d9 | | Load_Top At_Offset_1 15a9 e014 | | Load 0x0,0x14 15aa 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 15ab 00e1 | | Load_Encached Boolean_Cache 15ac 1c02 | | Execute_Immediate Run_Utility,0x2 15ad e5fd | | Load 0x2,-0x3 15ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 15af 00d9 | | Load_Top At_Offset_1 15b0 e014 | | Load 0x0,0x14 15b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 15b2 c402 | | Store 0x2,0x2 15b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15b4 TRAP_1590: 15b4 0007 | | Action Break_Optional 15b5 e5fe | | Load 0x2,-0x2 15b6 4801 |H | Short_Literal 0x1 15b7 4801 |H | Short_Literal 0x1 15b8 e006 | | Load 0x0,0x6 15b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 15ba 035b | [ | Declare_Type Array,Constrained 15bb 0337 | 7 | Declare_Variable Array 15bc e5ff | | Load 0x2,-0x1 15bd e006 | | Load 0x0,0x6 15be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 15bf e006 | | Load 0x0,0x6 15c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 15c1 0119 | | Execute Any,Check_In_Formal_Type 15c2 4801 |H | Short_Literal 0x1 15c3 00da | | Load_Top At_Offset_2 15c4 01d6 | | Execute Vector,Field_Write 15c5 6006 |` | Indirect_Literal Discrete,0x15cc,{0x00000000, 0x0000819b} 15c6 e001 | | Load 0x0,0x1 15c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 15c8 e001 | | Load 0x0,0x1 15c9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 15ca 0257 | W | Execute Discrete,Raise 15cb 0000 | | .XXX[0x1] 15cc 0000 0000 | | .LITERAL {0x00000000, 0x0000819b} 15d0 ; -------------------------------------------------------------------------------------- 15d0 ; SUBPROGRAM 15d0 ; -------------------------------------------------------------------------------------- 15d0 15da | | .CONST 0x15da ; Address of begin 15d1 15e7 | | .CONST 0x15e7 ; Address of exception handler 15d2 0003 | | .CONST 0x0003 ; Number of locals 15d3 INIT_15d0: 15d3 e014 | | Load 0x0,0x14 15d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 15d5 02c7 | | Declare_Variable Any 15d6 00d8 | | Load_Top At_Offset_0 15d7 1c00 | | Execute_Immediate Run_Utility,0x0 15d8 029f 19db | | Declare_Subprogram INIT_19d8,For_Call 15da BODY_15d0: 15da 00d9 | | Load_Top At_Offset_1 15db 00ea | | Load_Encached Null_String_Cache 15dc e5ff | | Load 0x2,-0x1 15dd 4800 |H | Short_Literal 0x0 15de e014 | | Load 0x0,0x14 15df 1815 | | Execute Package,Field_Execute,Field_Number 0x15 15e0 c402 | | Store 0x2,0x2 15e1 8403 | | Call 0x2,0x3 15e2 00d9 | | Load_Top At_Offset_1 15e3 e014 | | Load 0x0,0x14 15e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 15e5 c402 | | Store 0x2,0x2 15e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15e7 TRAP_15d0: 15e7 0007 | | Action Break_Optional 15e8 00da | | Load_Top At_Offset_2 15e9 8291 | | Call 0x1,0x91 15ea c402 | | Store 0x2,0x2 15eb e5fe | | Load 0x2,-0x2 15ec 4801 |H | Short_Literal 0x1 15ed 4801 |H | Short_Literal 0x1 15ee e006 | | Load 0x0,0x6 15ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 15f0 035b | [ | Declare_Type Array,Constrained 15f1 0337 | 7 | Declare_Variable Array 15f2 e5ff | | Load 0x2,-0x1 15f3 e006 | | Load 0x0,0x6 15f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 15f5 e006 | | Load 0x0,0x6 15f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 15f7 0119 | | Execute Any,Check_In_Formal_Type 15f8 4801 |H | Short_Literal 0x1 15f9 00da | | Load_Top At_Offset_2 15fa 01d6 | | Execute Vector,Field_Write 15fb 6008 |` | Indirect_Literal Discrete,0x1604,{0x00000000, 0x0000819c} 15fc e001 | | Load 0x0,0x1 15fd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 15fe e001 | | Load 0x0,0x1 15ff 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1600 0257 | W | Execute Discrete,Raise 1601 0000 0000 | | .XXX[0x3] 1603 0000 | | 1604 0000 0000 | | .LITERAL {0x00000000, 0x0000819c} 1608 ; -------------------------------------------------------------------------------------- 1608 ; SUBPROGRAM 1608 ; -------------------------------------------------------------------------------------- 1608 160b | | .CONST 0x160b ; Address of begin 1609 1630 | 0 | .CONST 0x1630 ; Address of exception handler 160a 0001 | | .CONST 0x0001 ; Number of locals 160b BODY_1608: 160b INIT_1608: 160b 4801 |H | Short_Literal 0x1 160c e5fe | | Load 0x2,-0x2 160d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 160e e5fe | | Load 0x2,-0x2 160f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 1610 01cf | | Execute Vector,Slice_Read 1611 00db | | Load_Top At_Offset_3 1612 e014 | | Load 0x0,0x14 1613 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1614 4801 |H | Short_Literal 0x1 1615 e5fe | | Load 0x2,-0x2 1616 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1617 e5fe | | Load 0x2,-0x2 1618 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 1619 01cf | | Execute Vector,Slice_Read 161a 00db | | Load_Top At_Offset_3 161b e014 | | Load 0x0,0x14 161c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 161d 4801 |H | Short_Literal 0x1 161e e5fe | | Load 0x2,-0x2 161f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1620 e5fe | | Load 0x2,-0x2 1621 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 1622 01cf | | Execute Vector,Slice_Read 1623 00db | | Load_Top At_Offset_3 1624 e014 | | Load 0x0,0x14 1625 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1626 4801 |H | Short_Literal 0x1 1627 e5fe | | Load 0x2,-0x2 1628 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 1629 e5fe | | Load 0x2,-0x2 162a 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 162b 01cf | | Execute Vector,Slice_Read 162c 00db | | Load_Top At_Offset_3 162d e014 | | Load 0x0,0x14 162e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 162f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1630 TRAP_1608: 1630 0007 | | Action Break_Optional 1631 e001 | | Load 0x0,0x1 1632 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1633 0257 | W | Execute Discrete,Raise 1634 0000 0000 | | .BLANK 0000[0x4] 1638 ; -------------------------------------------------------------------------------------- 1638 ; SUBPROGRAM 1638 ; -------------------------------------------------------------------------------------- 1638 1640 | @ | .CONST 0x1640 ; Address of begin 1639 1650 | P | .CONST 0x1650 ; Address of exception handler 163a 0002 | | .CONST 0x0002 ; Number of locals 163b INIT_1638: 163b e014 | | Load 0x0,0x14 163c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 163d 02c7 | | Declare_Variable Any 163e 00d8 | | Load_Top At_Offset_0 163f 1c00 | | Execute_Immediate Run_Utility,0x0 1640 BODY_1638: 1640 00d8 | | Load_Top At_Offset_0 1641 00ea | | Load_Encached Null_String_Cache 1642 e5ff | | Load 0x2,-0x1 1643 4801 |H | Short_Literal 0x1 1644 e014 | | Load 0x0,0x14 1645 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1646 c402 | | Store 0x2,0x2 1647 e5fd | | Load 0x2,-0x3 1648 e5fe | | Load 0x2,-0x2 1649 00da | | Load_Top At_Offset_2 164a 82a7 | | Call 0x1,0xa7 164b 00d8 | | Load_Top At_Offset_0 164c e014 | | Load 0x0,0x14 164d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 164e c402 | | Store 0x2,0x2 164f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1650 TRAP_1638: 1650 0007 | | Action Break_Optional 1651 00d9 | | Load_Top At_Offset_1 1652 8291 | | Call 0x1,0x91 1653 c402 | | Store 0x2,0x2 1654 e5fd | | Load 0x2,-0x3 1655 4801 |H | Short_Literal 0x1 1656 4801 |H | Short_Literal 0x1 1657 e006 | | Load 0x0,0x6 1658 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1659 035b | [ | Declare_Type Array,Constrained 165a 0337 | 7 | Declare_Variable Array 165b e5ff | | Load 0x2,-0x1 165c e006 | | Load 0x0,0x6 165d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 165e e006 | | Load 0x0,0x6 165f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1660 0119 | | Execute Any,Check_In_Formal_Type 1661 4801 |H | Short_Literal 0x1 1662 00da | | Load_Top At_Offset_2 1663 01d6 | | Execute Vector,Field_Write 1664 6007 |` | Indirect_Literal Discrete,0x166c,{0x00000000, 0x0000819d} 1665 e001 | | Load 0x0,0x1 1666 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1667 e001 | | Load 0x0,0x1 1668 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1669 0257 | W | Execute Discrete,Raise 166a 0000 0000 | | .XXX[0x2] 166c 0000 0000 | | .LITERAL {0x00000000, 0x0000819d} 1670 ; -------------------------------------------------------------------------------------- 1670 ; SUBPROGRAM 1670 ; -------------------------------------------------------------------------------------- 1670 1675 | u | .CONST 0x1675 ; Address of begin 1671 16c4 | | .CONST 0x16c4 ; Address of exception handler 1672 0002 | | .CONST 0x0002 ; Number of locals 1673 INIT_1670: 1673 e5fc | | Load 0x2,-0x4 1674 829d | | Call 0x1,0x9d 1675 BODY_1670: 1675 00db | | Load_Top At_Offset_3 1676 01db | | Execute Vector,Length 1677 0c81 | | Execute_Immediate Greater_Equal,-0x7f 1678 e5fe | | Load 0x2,-0x2 1679 01db | | Execute Vector,Length 167a 0c81 | | Execute_Immediate Greater_Equal,-0x7f 167b 0278 | x | Execute Discrete,Or 167c e5fd | | Load 0x2,-0x3 167d 01db | | Execute Vector,Length 167e 0c81 | | Execute_Immediate Greater_Equal,-0x7f 167f 0278 | x | Execute Discrete,Or 1680 6802 |h | Jump_Zero 0x1683 1681 e01b | | Load 0x0,0x1b 1682 0257 | W | Execute Discrete,Raise 1683 00db | | Load_Top At_Offset_3 1684 4801 |H | Short_Literal 0x1 1685 e5ff | | Load 0x2,-0x1 1686 01db | | Execute Vector,Length 1687 00d8 | | Load_Top At_Offset_0 1688 00e2 | | Load_Encached Integer_Cache 1689 0260 | ` | Execute Discrete,In_Type 168a 7001 |p | Jump_Nonzero 0x168c 168b 0801 | | Execute_Immediate Raise,0x1 168c e5fa | | Load 0x2,-0x6 168d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 168e 01ce | | Execute Vector,Slice_Write 168f 00db | | Load_Top At_Offset_3 1690 01db | | Execute Vector,Length 1691 e5fa | | Load 0x2,-0x6 1692 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1693 e5fe | | Load 0x2,-0x2 1694 4801 |H | Short_Literal 0x1 1695 e5fe | | Load 0x2,-0x2 1696 01db | | Execute Vector,Length 1697 00d8 | | Load_Top At_Offset_0 1698 00e2 | | Load_Encached Integer_Cache 1699 0260 | ` | Execute Discrete,In_Type 169a 7001 |p | Jump_Nonzero 0x169c 169b 0801 | | Execute_Immediate Raise,0x1 169c e5fa | | Load 0x2,-0x6 169d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 169e 01ce | | Execute Vector,Slice_Write 169f e5fe | | Load 0x2,-0x2 16a0 01db | | Execute Vector,Length 16a1 e5fa | | Load 0x2,-0x6 16a2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 16a3 e5fd | | Load 0x2,-0x3 16a4 4801 |H | Short_Literal 0x1 16a5 e5fd | | Load 0x2,-0x3 16a6 01db | | Execute Vector,Length 16a7 00d8 | | Load_Top At_Offset_0 16a8 00e2 | | Load_Encached Integer_Cache 16a9 0260 | ` | Execute Discrete,In_Type 16aa 7001 |p | Jump_Nonzero 0x16ac 16ab 0801 | | Execute_Immediate Raise,0x1 16ac e5fa | | Load 0x2,-0x6 16ad 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 16ae 01ce | | Execute Vector,Slice_Write 16af e5fd | | Load 0x2,-0x3 16b0 01db | | Execute Vector,Length 16b1 e5fa | | Load 0x2,-0x6 16b2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 16b3 00d8 | | Load_Top At_Offset_0 16b4 4801 |H | Short_Literal 0x1 16b5 00da | | Load_Top At_Offset_2 16b6 01db | | Execute Vector,Length 16b7 00d8 | | Load_Top At_Offset_0 16b8 00e2 | | Load_Encached Integer_Cache 16b9 0260 | ` | Execute Discrete,In_Type 16ba 7001 |p | Jump_Nonzero 0x16bc 16bb 0801 | | Execute_Immediate Raise,0x1 16bc e5fa | | Load 0x2,-0x6 16bd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 16be 01ce | | Execute Vector,Slice_Write 16bf 00d8 | | Load_Top At_Offset_0 16c0 01db | | Execute Vector,Length 16c1 e5fa | | Load 0x2,-0x6 16c2 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 16c3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 16c4 TRAP_1670: 16c4 e01b | | Load 0x0,0x1b 16c5 010f | | Execute Exception,Equal 16c6 6817 |h | Jump_Zero 0x16de 16c7 e5fb | | Load 0x2,-0x5 16c8 4801 |H | Short_Literal 0x1 16c9 4801 |H | Short_Literal 0x1 16ca e006 | | Load 0x0,0x6 16cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 16cc 035b | [ | Declare_Type Array,Constrained 16cd 0337 | 7 | Declare_Variable Array 16ce 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128" 16d0 e006 | | Load 0x0,0x6 16d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 16d2 e006 | | Load 0x0,0x6 16d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 16d4 0119 | | Execute Any,Check_In_Formal_Type 16d5 4801 |H | Short_Literal 0x1 16d6 00da | | Load_Top At_Offset_2 16d7 01d6 | | Execute Vector,Field_Write 16d8 6013 |` | Indirect_Literal Discrete,0x16ec,{0x00000000, 0x0000819e} 16d9 e001 | | Load 0x0,0x1 16da 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 16db e001 | | Load 0x0,0x1 16dc 1b17 | | Execute Package,Field_Read,Field_Number 0x17 16dd 0257 | W | Execute Discrete,Raise 16de e5fb | | Load 0x2,-0x5 16df e006 | | Load 0x0,0x6 16e0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 16e1 6006 |` | Indirect_Literal Discrete,0x16e8,{0x00000000, 0x0000819f} 16e2 e001 | | Load 0x0,0x1 16e3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 16e4 e001 | | Load 0x0,0x1 16e5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 16e6 0257 | W | Execute Discrete,Raise 16e7 0000 | | .XXX[0x1] 16e8 0000 0000 | | .LITERAL {0x00000000, 0x0000819f} 16ec 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 16f0 ; -------------------------------------------------------------------------------------- 16f0 ; SUBPROGRAM 16f0 ; -------------------------------------------------------------------------------------- 16f0 1708 | | .CONST 0x1708 ; Address of begin 16f1 1737 | 7 | .CONST 0x1737 ; Address of exception handler 16f2 0007 | | .CONST 0x0007 ; Number of locals 16f3 INIT_16f0: 16f3 e014 | | Load 0x0,0x14 16f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 16f5 02c7 | | Declare_Variable Any 16f6 00d8 | | Load_Top At_Offset_0 16f7 1c00 | | Execute_Immediate Run_Utility,0x0 16f8 e26f | o | Load 0x1,0x6f 16f9 0322 | " | Declare_Variable Record 16fa 00d8 | | Load_Top At_Offset_0 16fb 1c00 | | Execute_Immediate Run_Utility,0x0 16fc 00e1 | | Load_Encached Boolean_Cache 16fd e001 | | Load 0x0,0x1 16fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 16ff e5fd | | Load 0x2,-0x3 1700 e5ff | | Load 0x2,-0x1 1701 8296 | | Call 0x1,0x96 1702 e00c | | Load 0x0,0xc 1703 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1704 02c7 | | Declare_Variable Any 1705 00d9 | | Load_Top At_Offset_1 1706 8297 | | Call 0x1,0x97 1707 a407 | | Store_Unchecked 0x2,0x7 1708 BODY_16f0: 1708 00d8 | | Load_Top At_Offset_0 1709 e00c | | Load 0x0,0xc 170a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 170b 012e | . | Execute Any,Not_Equal 170c 6806 |h | Jump_Zero 0x1713 170d e001 | | Load 0x0,0x1 170e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 170f e5fb | | Load 0x2,-0x5 1710 00da | | Load_Top At_Offset_2 1711 8261 | a | Call 0x1,0x61 1712 005b | [ | Store_Top Discrete,At_Offset_3 1713 e402 | | Load 0x2,0x2 1714 00ea | | Load_Encached Null_String_Cache 1715 00db | | Load_Top At_Offset_3 1716 4801 |H | Short_Literal 0x1 1717 e014 | | Load 0x0,0x14 1718 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1719 c402 | | Store 0x2,0x2 171a e403 | | Load 0x2,0x3 171b e5fb | | Load 0x2,-0x5 171c 8293 | | Call 0x1,0x93 171d e5fd | | Load 0x2,-0x3 171e e5fc | | Load 0x2,-0x4 171f 829a | | Call 0x1,0x9a 1720 e5fd | | Load 0x2,-0x3 1721 e5fe | | Load 0x2,-0x2 1722 82a9 | | Call 0x1,0xa9 1723 00d1 | | Pop_Control Pop_Count_1 1724 e5fb | | Load 0x2,-0x5 1725 e403 | | Load 0x2,0x3 1726 e402 | | Load 0x2,0x2 1727 82a7 | | Call 0x1,0xa7 1728 e402 | | Load 0x2,0x2 1729 e014 | | Load 0x0,0x14 172a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 172b c402 | | Store 0x2,0x2 172c e5fb | | Load 0x2,-0x5 172d 00da | | Load_Top At_Offset_2 172e 8298 | | Call 0x1,0x98 172f c407 | | Store 0x2,0x7 1730 e001 | | Load 0x0,0x1 1731 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1732 e5fb | | Load 0x2,-0x5 1733 00da | | Load_Top At_Offset_2 1734 8260 | ` | Call 0x1,0x60 1735 005b | [ | Store_Top Discrete,At_Offset_3 1736 4506 |E | Exit_Suprogram New_Top_Offset 0x6 1737 TRAP_16f0: 1737 0007 | | Action Break_Optional 1738 e5fb | | Load 0x2,-0x5 1739 4801 |H | Short_Literal 0x1 173a 4801 |H | Short_Literal 0x1 173b e006 | | Load 0x0,0x6 173c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 173d 035b | [ | Declare_Type Array,Constrained 173e 0337 | 7 | Declare_Variable Array 173f e406 | | Load 0x2,0x6 1740 e006 | | Load 0x0,0x6 1741 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1742 e006 | | Load 0x0,0x6 1743 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1744 0119 | | Execute Any,Check_In_Formal_Type 1745 4801 |H | Short_Literal 0x1 1746 00da | | Load_Top At_Offset_2 1747 01d6 | | Execute Vector,Field_Write 1748 6007 |` | Indirect_Literal Discrete,0x1750,{0x00000000, 0x000081a0} 1749 e001 | | Load 0x0,0x1 174a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 174b e001 | | Load 0x0,0x1 174c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 174d 0257 | W | Execute Discrete,Raise 174e 0000 0000 | | .XXX[0x2] 1750 0000 0000 | | .LITERAL {0x00000000, 0x000081a0} 1754 0000 0000 | | .BLANK 0000[0x4] 1758 ; -------------------------------------------------------------------------------------- 1758 ; SUBPROGRAM 1758 ; -------------------------------------------------------------------------------------- 1758 175b | [ | .CONST 0x175b ; Address of begin 1759 0004 | | .CONST 0x0004 ; Address of exception handler 175a 0001 | | .CONST 0x0001 ; Number of locals 175b BODY_1758: 175b INIT_1758: 175b 4800 |H | Short_Literal 0x0 175c e5fe | | Load 0x2,-0x2 175d 4821 |H! | Short_Literal 0x21 175e e01a | | Load 0x0,0x1a 175f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1760 6802 |h | Jump_Zero 0x1763 1761 00db | | Load_Top At_Offset_3 1762 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1763 00da | | Load_Top At_Offset_2 1764 e004 | | Load 0x0,0x4 1765 180e | | Execute Package,Field_Execute,Field_Number 0xe 1766 6809 |h | Jump_Zero 0x1770 1767 00da | | Load_Top At_Offset_2 1768 e004 | | Load 0x0,0x4 1769 1817 | | Execute Package,Field_Execute,Field_Number 0x17 176a 0092 1aed | | Action Push_String_Extended,0x1aed ; ".Units." 176c 01cc | | Execute Vector,Catenate 176d e5fe | | Load 0x2,-0x2 176e 01cc | | Execute Vector,Catenate 176f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1770 00da | | Load_Top At_Offset_2 1771 e004 | | Load 0x0,0x4 1772 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1773 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "." 1775 01cc | | Execute Vector,Catenate 1776 e5fe | | Load 0x2,-0x2 1777 01cc | | Execute Vector,Catenate 1778 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1779 0000 0000 | | .BLANK 0000[0x7] 1780 ; -------------------------------------------------------------------------------------- 1780 ; SUBPROGRAM 1780 ; -------------------------------------------------------------------------------------- 1780 1783 | | .CONST 0x1783 ; Address of begin 1781 0004 | | .CONST 0x0004 ; Address of exception handler 1782 0001 | | .CONST 0x0001 ; Number of locals 1783 BODY_1780: 1783 INIT_1780: 1783 00da | | Load_Top At_Offset_2 1784 e004 | | Load 0x0,0x4 1785 180e | | Execute Package,Field_Execute,Field_Number 0xe 1786 6807 |h | Jump_Zero 0x178e 1787 00da | | Load_Top At_Offset_2 1788 e004 | | Load 0x0,0x4 1789 1817 | | Execute Package,Field_Execute,Field_Number 0x17 178a 0092 1aee | | Action Push_String_Extended,0x1aee ; ".units" 178c 01cc | | Execute Vector,Catenate 178d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 178e 00da | | Load_Top At_Offset_2 178f e004 | | Load 0x0,0x4 1790 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1791 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1792 0000 0000 | | .BLANK 0000[0x6] 1798 ; -------------------------------------------------------------------------------------- 1798 ; SUBPROGRAM 1798 ; -------------------------------------------------------------------------------------- 1798 17b5 | | .CONST 0x17b5 ; Address of begin 1799 0004 | | .CONST 0x0004 ; Address of exception handler 179a 0009 | | .CONST 0x0009 ; Number of locals 179b INIT_1798: 179b e00c | | Load 0x0,0xc 179c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 179d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 179e 02c7 | | Declare_Variable Any 179f 00d8 | | Load_Top At_Offset_0 17a0 1c00 | | Execute_Immediate Run_Utility,0x0 17a1 e00c | | Load 0x0,0xc 17a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 17a3 02c7 | | Declare_Variable Any 17a4 00d8 | | Load_Top At_Offset_0 17a5 1c00 | | Execute_Immediate Run_Utility,0x0 17a6 00e2 | | Load_Encached Integer_Cache 17a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 17a8 00e1 | | Load_Encached Boolean_Cache 17a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 17aa e00c | | Load 0x0,0xc 17ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 17ac e5ff | | Load 0x2,-0x1 17ad 829c | | Call 0x1,0x9c 17ae e00c | | Load 0x0,0xc 17af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 17b0 02c7 | | Declare_Variable Any 17b1 00d8 | | Load_Top At_Offset_0 17b2 1c00 | | Execute_Immediate Run_Utility,0x0 17b3 029f 1a2b | +| Declare_Subprogram INIT_1a28,For_Call 17b5 BODY_1798: 17b5 4800 |H | Short_Literal 0x0 17b6 a5fc | | Store_Unchecked 0x2,-0x4 17b7 4800 |H | Short_Literal 0x0 17b8 a5fb | | Store_Unchecked 0x2,-0x5 17b9 e00c | | Load 0x0,0xc 17ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 17bb c5fd | | Store 0x2,-0x3 17bc 00da | | Load_Top At_Offset_2 17bd 8297 | | Call 0x1,0x97 17be c408 | | Store 0x2,0x8 17bf 00d9 | | Load_Top At_Offset_1 17c0 e00c | | Load 0x0,0xc 17c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 17c2 7004 |p | Jump_Nonzero 0x17c7 17c3 00d9 | | Load_Top At_Offset_1 17c4 e004 | | Load 0x0,0x4 17c5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 17c6 7001 |p | Jump_Nonzero 0x17c8 17c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 17c8 00da | | Load_Top At_Offset_2 17c9 e28f | | Load 0x1,0x8f 17ca 01cc | | Execute Vector,Catenate 17cb 8299 | | Call 0x1,0x99 17cc c402 | | Store 0x2,0x2 17cd e402 | | Load 0x2,0x2 17ce e00c | | Load 0x0,0xc 17cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 17d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 17d1 6801 |h | Jump_Zero 0x17d3 17d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 17d3 00cf | | Action Mark_Auxiliary 17d4 780c |x | Jump 0x17e1 17d5 e404 | | Load 0x2,0x4 17d6 0a01 | | Execute_Immediate Plus,0x1 17d7 c404 | | Store 0x2,0x4 17d8 e405 | | Load 0x2,0x5 17d9 7001 |p | Jump_Nonzero 0x17db 17da 8409 | | Call 0x2,0x9 17db e402 | | Load 0x2,0x2 17dc e00c | | Load 0x0,0xc 17dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 17de 181d | | Execute Package,Field_Execute,Field_Number 0x1d 17df c402 | | Store 0x2,0x2 17e0 00c9 | | Action Pop_Auxiliary_Loop 17e1 e402 | | Load 0x2,0x2 17e2 e00c | | Load 0x0,0xc 17e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 17e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 17e5 6fef |o | Jump_Zero 0x17d5 17e6 00ce | | Action Pop_Auxiliary 17e7 e405 | | Load 0x2,0x5 17e8 a5fc | | Store_Unchecked 0x2,-0x4 17e9 e404 | | Load 0x2,0x4 17ea a5fb | | Store_Unchecked 0x2,-0x5 17eb 00d9 | | Load_Top At_Offset_1 17ec c5fd | | Store 0x2,-0x3 17ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 17ee 0000 0000 | | .XXX[0x2] 17f0 ; -------------------------------------------------------------------------------------- 17f0 ; SUBPROGRAM 17f0 ; -------------------------------------------------------------------------------------- 17f0 17fe | | .CONST 0x17fe ; Address of begin 17f1 0004 | | .CONST 0x0004 ; Address of exception handler 17f2 0003 | | .CONST 0x0003 ; Number of locals 17f3 INIT_17f0: 17f3 e5fc | | Load 0x2,-0x4 17f4 e405 | | Load 0x2,0x5 17f5 e5fe | | Load 0x2,-0x2 17f6 e402 | | Load 0x2,0x2 17f7 e009 | | Load 0x0,0x9 17f8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 17f9 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 17fa 00d8 | | Load_Top At_Offset_0 17fb 01db | | Execute Vector,Length 17fc e20d | | Load 0x1,0xd 17fd 1c08 | | Execute_Immediate Run_Utility,0x8 17fe BODY_17f0: 17fe e001 | | Load 0x0,0x1 17ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1800 e402 | | Load 0x2,0x2 1801 e5fc | | Load 0x2,-0x4 1802 e002 | | Load 0x0,0x2 1803 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1804 c402 | | Store 0x2,0x2 1805 c403 | | Store 0x2,0x3 1806 00d9 | | Load_Top At_Offset_1 1807 0092 1aef | | Action Push_String_Extended,0x1aef ; "<error>" 1809 01df | | Execute Vector,Equal 180a 6808 |h | Jump_Zero 0x1813 180b e006 | | Load 0x0,0x6 180c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 180d 600e |` | Indirect_Literal Discrete,0x181c,{0x00000000, 0x00008128} 180e e001 | | Load 0x0,0x1 180f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1810 00d9 | | Load_Top At_Offset_1 1811 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1812 7803 |x | Jump 0x1816 1813 4800 |H | Short_Literal 0x0 1814 00d9 | | Load_Top At_Offset_1 1815 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1816 00d9 | | Load_Top At_Offset_1 1817 00d9 | | Load_Top At_Offset_1 1818 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1819 00d8 | | Load_Top At_Offset_0 181a 00cb | | Action Pop_Block_With_Result 181b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 181c 0000 0000 | | .LITERAL {0x00000000, 0x00008128} 1820 ; -------------------------------------------------------------------------------------- 1820 ; SUBPROGRAM 1820 ; -------------------------------------------------------------------------------------- 1820 182e | . | .CONST 0x182e ; Address of begin 1821 0004 | | .CONST 0x0004 ; Address of exception handler 1822 0002 | | .CONST 0x0002 ; Number of locals 1823 INIT_1820: 1823 e5fc | | Load 0x2,-0x4 1824 00d8 | | Load_Top At_Offset_0 1825 e405 | | Load 0x2,0x5 1826 e5fd | | Load 0x2,-0x3 1827 e402 | | Load 0x2,0x2 1828 e009 | | Load 0x0,0x9 1829 1b18 | | Execute Package,Field_Read,Field_Number 0x18 182a 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 182b e5fe | | Load 0x2,-0x2 182c e5ff | | Load 0x2,-0x1 182d 8229 | ) | Call 0x1,0x29 182e BODY_1820: 182e e001 | | Load 0x0,0x1 182f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1830 e402 | | Load 0x2,0x2 1831 e5fc | | Load 0x2,-0x4 1832 e002 | | Load 0x0,0x2 1833 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1834 c402 | | Store 0x2,0x2 1835 c403 | | Store 0x2,0x3 1836 00d8 | | Load_Top At_Offset_0 1837 00cb | | Action Pop_Block_With_Result 1838 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1839 0000 0000 | | .BLANK 0000[0x7] 1840 ; -------------------------------------------------------------------------------------- 1840 ; SUBPROGRAM 1840 ; -------------------------------------------------------------------------------------- 1840 184e | N | .CONST 0x184e ; Address of begin 1841 0004 | | .CONST 0x0004 ; Address of exception handler 1842 0002 | | .CONST 0x0002 ; Number of locals 1843 INIT_1840: 1843 e00e | | Load 0x0,0xe 1844 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1845 02c7 | | Declare_Variable Any 1846 e5fc | | Load 0x2,-0x4 1847 e404 | | Load 0x2,0x4 1848 e5fe | | Load 0x2,-0x2 1849 e402 | | Load 0x2,0x2 184a e009 | | Load 0x0,0x9 184b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 184c 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 184d a602 | | Store_Unchecked 0x3,0x2 184e BODY_1840: 184e e001 | | Load 0x0,0x1 184f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1850 e402 | | Load 0x2,0x2 1851 e5fc | | Load 0x2,-0x4 1852 e002 | | Load 0x0,0x2 1853 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1854 c402 | | Store 0x2,0x2 1855 c403 | | Store 0x2,0x3 1856 00d8 | | Load_Top At_Offset_0 1857 c5fb | | Store 0x2,-0x5 1858 4800 |H | Short_Literal 0x0 1859 a5fa | | Store_Unchecked 0x2,-0x6 185a 00cc | | Action Pop_Block 185b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 185c 0000 0000 | | .BLANK 0000[0x4] 1860 ; -------------------------------------------------------------------------------------- 1860 ; SUBPROGRAM 1860 ; -------------------------------------------------------------------------------------- 1860 1865 | e | .CONST 0x1865 ; Address of begin 1861 0004 | | .CONST 0x0004 ; Address of exception handler 1862 0002 | | .CONST 0x0002 ; Number of locals 1863 INIT_1860: 1863 e403 | | Load 0x2,0x3 1864 8294 | | Call 0x1,0x94 1865 BODY_1860: 1865 e001 | | Load 0x0,0x1 1866 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1867 e5fe | | Load 0x2,-0x2 1868 00da | | Load_Top At_Offset_2 1869 8297 | | Call 0x1,0x97 186a 8261 | a | Call 0x1,0x61 186b c5fd | | Store 0x2,-0x3 186c e5fe | | Load 0x2,-0x2 186d 00d9 | | Load_Top At_Offset_1 186e 8292 | | Call 0x1,0x92 186f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1870 ; -------------------------------------------------------------------------------------- 1870 ; SUBPROGRAM 1870 ; -------------------------------------------------------------------------------------- 1870 1877 | w | .CONST 0x1877 ; Address of begin 1871 0004 | | .CONST 0x0004 ; Address of exception handler 1872 0002 | | .CONST 0x0002 ; Number of locals 1873 INIT_1870: 1873 e403 | | Load 0x2,0x3 1874 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1875 e20d | | Load 0x1,0xd 1876 1c08 | | Execute_Immediate Run_Utility,0x8 1877 BODY_1870: 1877 4801 |H | Short_Literal 0x1 1878 e403 | | Load 0x2,0x3 1879 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 187a e403 | | Load 0x2,0x3 187b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 187c 01cf | | Execute Vector,Slice_Read 187d 00d9 | | Load_Top At_Offset_1 187e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 187f 4800 |H | Short_Literal 0x0 1880 00d9 | | Load_Top At_Offset_1 1881 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1882 00d8 | | Load_Top At_Offset_0 1883 00cb | | Action Pop_Block_With_Result 1884 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1885 0000 0000 | | .XXX[0x3] 1887 0000 | | 1888 ; -------------------------------------------------------------------------------------- 1888 ; SUBPROGRAM 1888 ; -------------------------------------------------------------------------------------- 1888 188f | | .CONST 0x188f ; Address of begin 1889 0004 | | .CONST 0x0004 ; Address of exception handler 188a 0002 | | .CONST 0x0002 ; Number of locals 188b INIT_1888: 188b e403 | | Load 0x2,0x3 188c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 188d e20d | | Load 0x1,0xd 188e 1c08 | | Execute_Immediate Run_Utility,0x8 188f BODY_1888: 188f 4801 |H | Short_Literal 0x1 1890 e403 | | Load 0x2,0x3 1891 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1892 e403 | | Load 0x2,0x3 1893 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 1894 01cf | | Execute Vector,Slice_Read 1895 00d9 | | Load_Top At_Offset_1 1896 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1897 4800 |H | Short_Literal 0x0 1898 00d9 | | Load_Top At_Offset_1 1899 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 189a 00d8 | | Load_Top At_Offset_0 189b 00cb | | Action Pop_Block_With_Result 189c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 189d 0000 0000 | | .XXX[0x3] 189f 0000 | | 18a0 ; -------------------------------------------------------------------------------------- 18a0 ; SUBPROGRAM 18a0 ; -------------------------------------------------------------------------------------- 18a0 18b1 | | .CONST 0x18b1 ; Address of begin 18a1 0004 | | .CONST 0x0004 ; Address of exception handler 18a2 0004 | | .CONST 0x0004 ; Number of locals 18a3 INIT_18a0: 18a3 00da | | Load_Top At_Offset_2 18a4 e00c | | Load 0x0,0xc 18a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 18a6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 18a7 00d8 | | Load_Top At_Offset_0 18a8 0092 1af0 | | Action Push_String_Extended,0x1af0 ; ".@_secondary_@_spec" 18aa 01cc | | Execute Vector,Catenate 18ab 0007 | | Action Break_Optional 18ac 00d9 | | Load_Top At_Offset_1 18ad 0092 1af1 | | Action Push_String_Extended,0x1af1 ; ".@_secondary_@_body" 18af 01cc | | Execute Vector,Catenate 18b0 0007 | | Action Break_Optional 18b1 BODY_18a0: 18b1 00ea | | Load_Encached Null_String_Cache 18b2 4801 |H | Short_Literal 0x1 18b3 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>" 18b5 4801 |H | Short_Literal 0x1 18b6 e603 | | Load 0x3,0x3 18b7 e602 | | Load 0x3,0x2 18b8 0092 1af2 | | Action Push_String_Extended,0x1af2 ; ".@'spec.<secondary_@>" 18ba 01cc | | Execute Vector,Catenate 18bb e012 | | Load 0x0,0x12 18bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 18bd 00ea | | Load_Encached Null_String_Cache 18be 4801 |H | Short_Literal 0x1 18bf 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>" 18c1 4801 |H | Short_Literal 0x1 18c2 e604 | | Load 0x3,0x4 18c3 e602 | | Load 0x3,0x2 18c4 0092 1af3 | | Action Push_String_Extended,0x1af3 ; ".@'body.<secondary_@>" 18c6 01cc | | Execute Vector,Catenate 18c7 e012 | | Load 0x0,0x12 18c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 18c9 e5fd | | Load 0x2,-0x3 18ca 6818 |h | Jump_Zero 0x18e3 18cb 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>" 18cd 0092 1aec | | Action Push_String_Extended,0x1aec ; "<DEFAULT>" 18cf 00ea | | Load_Encached Null_String_Cache 18d0 4801 |H | Short_Literal 0x1 18d1 0092 1af4 | | Action Push_String_Extended,0x1af4 ; "<NONE>" 18d3 0092 1af5 | | Action Push_String_Extended,0x1af5 ; "<AUTO_GENERATE>" 18d5 0092 1af6 | | Action Push_String_Extended,0x1af6 ; "[" 18d7 e603 | | Load 0x3,0x3 18d8 01cc | | Execute Vector,Catenate 18d9 0092 1af7 | | Action Push_String_Extended,0x1af7 ; "," 18db 01cc | | Execute Vector,Catenate 18dc e604 | | Load 0x3,0x4 18dd 01cc | | Execute Vector,Catenate 18de 0092 1af8 | | Action Push_String_Extended,0x1af8 ; "]" 18e0 01cc | | Execute Vector,Catenate 18e1 e01c | | Load 0x0,0x1c 18e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 18e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 18e4 0000 0000 | | .BLANK 0000[0x4] 18e8 ; -------------------------------------------------------------------------------------- 18e8 ; SUBPROGRAM 18e8 ; -------------------------------------------------------------------------------------- 18e8 18ed | | .CONST 0x18ed ; Address of begin 18e9 0004 | | .CONST 0x0004 ; Address of exception handler 18ea 0003 | | .CONST 0x0003 ; Number of locals 18eb INIT_18e8: 18eb 00e2 | | Load_Encached Integer_Cache 18ec 00e2 | | Load_Encached Integer_Cache 18ed BODY_18e8: 18ed 4801 |H | Short_Literal 0x1 18ee e7ff | | Load 0x3,-0x1 18ef e404 | | Load 0x2,0x4 18f0 e01a | | Load 0x0,0x1a 18f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 18f2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 18f3 4801 |H | Short_Literal 0x1 18f4 e7ff | | Load 0x3,-0x1 18f5 0092 1af9 | | Action Push_String_Extended,0x1af9 ; "_" 18f7 e01a | | Load 0x0,0x1a 18f8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 18f9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 18fa e7ff | | Load 0x3,-0x1 18fb 01dd | | Execute Vector,First 18fc 00da | | Load_Top At_Offset_2 18fd 0aff | | Execute_Immediate Plus,-0x1 18fe 00d8 | | Load_Top At_Offset_0 18ff 00e2 | | Load_Encached Integer_Cache 1900 0260 | ` | Execute Discrete,In_Type 1901 7001 |p | Jump_Nonzero 0x1903 1902 0801 | | Execute_Immediate Raise,0x1 1903 e7ff | | Load 0x3,-0x1 1904 01cf | | Execute Vector,Slice_Read 1905 0092 1afa | | Action Push_String_Extended,0x1afa ; "'" 1907 01cc | | Execute Vector,Catenate 1908 00d9 | | Load_Top At_Offset_1 1909 0a01 | | Execute_Immediate Plus,0x1 190a 00d8 | | Load_Top At_Offset_0 190b 00e2 | | Load_Encached Integer_Cache 190c 0260 | ` | Execute Discrete,In_Type 190d 7001 |p | Jump_Nonzero 0x190f 190e 0801 | | Execute_Immediate Raise,0x1 190f e7ff | | Load 0x3,-0x1 1910 01dc | | Execute Vector,Last 1911 e7ff | | Load 0x3,-0x1 1912 01cf | | Execute Vector,Slice_Read 1913 01cc | | Execute Vector,Catenate 1914 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1915 0000 0000 | | .XXX[0x3] 1917 0000 | | 1918 ; -------------------------------------------------------------------------------------- 1918 ; SUBPROGRAM 1918 ; -------------------------------------------------------------------------------------- 1918 191d | | .CONST 0x191d ; Address of begin 1919 0004 | | .CONST 0x0004 ; Address of exception handler 191a 0003 | | .CONST 0x0003 ; Number of locals 191b INIT_1918: 191b 00e2 | | Load_Encached Integer_Cache 191c 00e2 | | Load_Encached Integer_Cache 191d BODY_1918: 191d 4801 |H | Short_Literal 0x1 191e e7ff | | Load 0x3,-0x1 191f e404 | | Load 0x2,0x4 1920 e01a | | Load 0x0,0x1a 1921 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1922 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 1923 4801 |H | Short_Literal 0x1 1924 e7ff | | Load 0x3,-0x1 1925 0092 1af9 | | Action Push_String_Extended,0x1af9 ; "_" 1927 e01a | | Load 0x0,0x1a 1928 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1929 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 192a 00d9 | | Load_Top At_Offset_1 192b 0a0b | | Execute_Immediate Plus,0xb 192c 00d8 | | Load_Top At_Offset_0 192d 00e2 | | Load_Encached Integer_Cache 192e 0260 | ` | Execute Discrete,In_Type 192f 7001 |p | Jump_Nonzero 0x1931 1930 0801 | | Execute_Immediate Raise,0x1 1931 00d9 | | Load_Top At_Offset_1 1932 0aff | | Execute_Immediate Plus,-0x1 1933 00d8 | | Load_Top At_Offset_0 1934 00e2 | | Load_Encached Integer_Cache 1935 0260 | ` | Execute Discrete,In_Type 1936 7001 |p | Jump_Nonzero 0x1938 1937 0801 | | Execute_Immediate Raise,0x1 1938 e7ff | | Load 0x3,-0x1 1939 01cf | | Execute Vector,Slice_Read 193a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 193b 0000 0000 | | .BLANK 0000[0x5] 1940 ; -------------------------------------------------------------------------------------- 1940 ; SUBPROGRAM 1940 ; -------------------------------------------------------------------------------------- 1940 196a | j | .CONST 0x196a ; Address of begin 1941 198f | | .CONST 0x198f ; Address of exception handler 1942 0007 | | .CONST 0x0007 ; Number of locals 1943 INIT_1940: 1943 00da | | Load_Top At_Offset_2 1944 e00c | | Load 0x0,0xc 1945 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1946 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1947 00d8 | | Load_Top At_Offset_0 1948 e00c | | Load 0x0,0xc 1949 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 194a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 194b 00d9 | | Load_Top At_Offset_1 194c e00c | | Load 0x0,0xc 194d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 194e 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 194f 00d9 | | Load_Top At_Offset_1 1950 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "." 1952 01cc | | Execute Vector,Catenate 1953 00d9 | | Load_Top At_Offset_1 1954 8407 | | Call 0x2,0x7 1955 01cc | | Execute Vector,Catenate 1956 0092 1afb | | Action Push_String_Extended,0x1afb ; ".<secondary_" 1958 01cc | | Execute Vector,Catenate 1959 00d9 | | Load_Top At_Offset_1 195a 8408 | | Call 0x2,0x8 195b 01cc | | Execute Vector,Catenate 195c 0092 1aeb | | Action Push_String_Extended,0x1aeb ; ">" 195e 01cc | | Execute Vector,Catenate 195f 0007 | | Action Break_Optional 1960 e014 | | Load 0x0,0x14 1961 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1962 02c7 | | Declare_Variable Any 1963 00d8 | | Load_Top At_Offset_0 1964 1c00 | | Execute_Immediate Run_Utility,0x0 1965 e014 | | Load 0x0,0x14 1966 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1967 02c7 | | Declare_Variable Any 1968 00d8 | | Load_Top At_Offset_0 1969 1c00 | | Execute_Immediate Run_Utility,0x0 196a BODY_1940: 196a 00d9 | | Load_Top At_Offset_1 196b 00ea | | Load_Encached Null_String_Cache 196c e605 | | Load 0x3,0x5 196d 4801 |H | Short_Literal 0x1 196e e014 | | Load 0x0,0x14 196f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1970 c606 | | Store 0x3,0x6 1971 00d8 | | Load_Top At_Offset_0 1972 00ea | | Load_Encached Null_String_Cache 1973 e602 | | Load 0x3,0x2 1974 4800 |H | Short_Literal 0x0 1975 e014 | | Load 0x0,0x14 1976 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1977 c607 | | Store 0x3,0x7 1978 00cf | | Action Mark_Auxiliary 1979 7807 |x | Jump 0x1981 197a 00d9 | | Load_Top At_Offset_1 197b e014 | | Load 0x0,0x14 197c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 197d 00db | | Load_Top At_Offset_3 197e e014 | | Load 0x0,0x14 197f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1980 00c9 | | Action Pop_Auxiliary_Loop 1981 00d9 | | Load_Top At_Offset_1 1982 e014 | | Load 0x0,0x14 1983 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 1984 6ff5 |o | Jump_Zero 0x197a 1985 00ce | | Action Pop_Auxiliary 1986 00d9 | | Load_Top At_Offset_1 1987 e014 | | Load 0x0,0x14 1988 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1989 c606 | | Store 0x3,0x6 198a 00d8 | | Load_Top At_Offset_0 198b e014 | | Load 0x0,0x14 198c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 198d c607 | | Store 0x3,0x7 198e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 198f TRAP_1940: 198f 0007 | | Action Break_Optional 1990 00da | | Load_Top At_Offset_2 1991 8291 | | Call 0x1,0x91 1992 c606 | | Store 0x3,0x6 1993 00d9 | | Load_Top At_Offset_1 1994 8291 | | Call 0x1,0x91 1995 c607 | | Store 0x3,0x7 1996 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1997 0000 | | .XXX[0x1] 1998 ; -------------------------------------------------------------------------------------- 1998 ; SUBPROGRAM 1998 ; -------------------------------------------------------------------------------------- 1998 19ad | | .CONST 0x19ad ; Address of begin 1999 0004 | | .CONST 0x0004 ; Address of exception handler 199a 0002 | | .CONST 0x0002 ; Number of locals 199b INIT_1998: 199b e5fe | | Load 0x2,-0x2 199c 4801 |H | Short_Literal 0x1 199d e5ff | | Load 0x2,-0x1 199e e004 | | Load 0x0,0x4 199f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 19a0 e004 | | Load 0x0,0x4 19a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 19a2 0092 1afc | | Action Push_String_Extended,0x1afc ; ".@'c(ada).<secondary_" 19a4 01cc | | Execute Vector,Catenate 19a5 e5ff | | Load 0x2,-0x1 19a6 e004 | | Load 0x0,0x4 19a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 19a8 01cc | | Execute Vector,Catenate 19a9 0092 1aeb | | Action Push_String_Extended,0x1aeb ; ">" 19ab 01cc | | Execute Vector,Catenate 19ac 0007 | | Action Break_Optional 19ad BODY_1998: 19ad 00d8 | | Load_Top At_Offset_0 19ae 8299 | | Call 0x1,0x99 19af c402 | | Store 0x2,0x2 19b0 e402 | | Load 0x2,0x2 19b1 e00c | | Load 0x0,0xc 19b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 19b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 19b4 7021 |p! | Jump_Nonzero 0x19d6 19b5 e402 | | Load 0x2,0x2 19b6 e00c | | Load 0x0,0xc 19b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 19b8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 19b9 701c |p | Jump_Nonzero 0x19d6 19ba e5fe | | Load 0x2,-0x2 19bb 4801 |H | Short_Literal 0x1 19bc e402 | | Load 0x2,0x2 19bd e004 | | Load 0x0,0x4 19be 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 19bf c403 | | Store 0x2,0x3 19c0 e001 | | Load 0x0,0x1 19c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 19c2 00e2 | | Load_Encached Integer_Cache 19c3 00e1 | | Load_Encached Boolean_Cache 19c4 e5fd | | Load 0x2,-0x3 19c5 0120 | | Execute Any,Is_Value 19c6 6803 |h | Jump_Zero 0x19ca 19c7 e00c | | Load 0x0,0xc 19c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 19c9 7801 |x | Jump 0x19cb 19ca e5fd | | Load 0x2,-0x3 19cb e5fe | | Load 0x2,-0x2 19cc e403 | | Load 0x2,0x3 19cd 8266 | f | Call 0x1,0x66 19ce c5fd | | Store 0x2,-0x3 19cf c406 | | Store 0x2,0x6 19d0 c405 | | Store 0x2,0x5 19d1 c404 | | Store 0x2,0x4 19d2 e406 | | Load 0x2,0x6 19d3 a5fc | | Store_Unchecked 0x2,-0x4 19d4 00cc | | Action Pop_Block 19d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 19d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19d7 0000 | | .XXX[0x1] 19d8 ; -------------------------------------------------------------------------------------- 19d8 ; SUBPROGRAM 19d8 ; -------------------------------------------------------------------------------------- 19d8 19e7 | | .CONST 0x19e7 ; Address of begin 19d9 0004 | | .CONST 0x0004 ; Address of exception handler 19da 0005 | | .CONST 0x0005 ; Number of locals 19db INIT_19d8: 19db e402 | | Load 0x2,0x2 19dc e014 | | Load 0x0,0x14 19dd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 19de e402 | | Load 0x2,0x2 19df e014 | | Load 0x0,0x14 19e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 19e1 e402 | | Load 0x2,0x2 19e2 e014 | | Load 0x0,0x14 19e3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 19e4 e402 | | Load 0x2,0x2 19e5 e014 | | Load 0x0,0x14 19e6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 19e7 BODY_19d8: 19e7 00db | | Load_Top At_Offset_3 19e8 4801 |H | Short_Literal 0x1 19e9 e602 | | Load 0x3,0x2 19ea 01db | | Execute Vector,Length 19eb 00d8 | | Load_Top At_Offset_0 19ec 00e2 | | Load_Encached Integer_Cache 19ed 0260 | ` | Execute Discrete,In_Type 19ee 7001 |p | Jump_Nonzero 0x19f0 19ef 0801 | | Execute_Immediate Raise,0x1 19f0 e5fd | | Load 0x2,-0x3 19f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 19f2 01ce | | Execute Vector,Slice_Write 19f3 00db | | Load_Top At_Offset_3 19f4 01db | | Execute Vector,Length 19f5 e5fd | | Load 0x2,-0x3 19f6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 19f7 00da | | Load_Top At_Offset_2 19f8 4801 |H | Short_Literal 0x1 19f9 e603 | | Load 0x3,0x3 19fa 01db | | Execute Vector,Length 19fb 00d8 | | Load_Top At_Offset_0 19fc 00e2 | | Load_Encached Integer_Cache 19fd 0260 | ` | Execute Discrete,In_Type 19fe 7001 |p | Jump_Nonzero 0x1a00 19ff 0801 | | Execute_Immediate Raise,0x1 1a00 e5fd | | Load 0x2,-0x3 1a01 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1a02 01ce | | Execute Vector,Slice_Write 1a03 00da | | Load_Top At_Offset_2 1a04 01db | | Execute Vector,Length 1a05 e5fd | | Load 0x2,-0x3 1a06 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1a07 00d9 | | Load_Top At_Offset_1 1a08 4801 |H | Short_Literal 0x1 1a09 00db | | Load_Top At_Offset_3 1a0a 01db | | Execute Vector,Length 1a0b 00d8 | | Load_Top At_Offset_0 1a0c 00e2 | | Load_Encached Integer_Cache 1a0d 0260 | ` | Execute Discrete,In_Type 1a0e 7001 |p | Jump_Nonzero 0x1a10 1a0f 0801 | | Execute_Immediate Raise,0x1 1a10 e5fd | | Load 0x2,-0x3 1a11 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1a12 01ce | | Execute Vector,Slice_Write 1a13 00d9 | | Load_Top At_Offset_1 1a14 01db | | Execute Vector,Length 1a15 e5fd | | Load 0x2,-0x3 1a16 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1a17 00d8 | | Load_Top At_Offset_0 1a18 4801 |H | Short_Literal 0x1 1a19 00da | | Load_Top At_Offset_2 1a1a 01db | | Execute Vector,Length 1a1b 00d8 | | Load_Top At_Offset_0 1a1c 00e2 | | Load_Encached Integer_Cache 1a1d 0260 | ` | Execute Discrete,In_Type 1a1e 7001 |p | Jump_Nonzero 0x1a20 1a1f 0801 | | Execute_Immediate Raise,0x1 1a20 e5fd | | Load 0x2,-0x3 1a21 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1a22 01ce | | Execute Vector,Slice_Write 1a23 00d8 | | Load_Top At_Offset_0 1a24 01db | | Execute Vector,Length 1a25 e5fd | | Load 0x2,-0x3 1a26 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 1a27 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a28 ; -------------------------------------------------------------------------------------- 1a28 ; SUBPROGRAM 1a28 ; -------------------------------------------------------------------------------------- 1a28 1a2d | - | .CONST 0x1a2d ; Address of begin 1a29 0004 | | .CONST 0x0004 ; Address of exception handler 1a2a 0002 | | .CONST 0x0002 ; Number of locals 1a2b INIT_1a28: 1a2b e402 | | Load 0x2,0x2 1a2c 829b | | Call 0x1,0x9b 1a2d BODY_1a28: 1a2d 4801 |H | Short_Literal 0x1 1a2e e5ff | | Load 0x2,-0x1 1a2f 00da | | Load_Top At_Offset_2 1a30 e01a | | Load 0x0,0x1a 1a31 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1a32 6811 |h | Jump_Zero 0x1a44 1a33 4801 |H | Short_Literal 0x1 1a34 a405 | | Store_Unchecked 0x2,0x5 1a35 e00c | | Load 0x0,0xc 1a36 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1a37 e403 | | Load 0x2,0x3 1a38 0120 | | Execute Any,Is_Value 1a39 6803 |h | Jump_Zero 0x1a3d 1a3a e00c | | Load 0x0,0xc 1a3b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1a3c 7801 |x | Jump 0x1a3e 1a3d e403 | | Load 0x2,0x3 1a3e e402 | | Load 0x2,0x2 1a3f e00c | | Load 0x0,0xc 1a40 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1a41 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1a42 c403 | | Store 0x2,0x3 1a43 c406 | | Store 0x2,0x6 1a44 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a45 0000 0000 | | .XXX[0x3] 1a47 0000 | | 1a48 ; -------------------------------------------------------------------------------------- 1a48 ; SUBPROGRAM 1a48 ; -------------------------------------------------------------------------------------- 1a48 1a4b | K | .CONST 0x1a4b ; Address of begin 1a49 0004 | | .CONST 0x0004 ; Address of exception handler 1a4a 0001 | | .CONST 0x0001 ; Number of locals 1a4b BODY_1a48: 1a4b INIT_1a48: 1a4b 4608 |F | Jump_Case 0x9 1a4c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1a4d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 1a4e 7819 |x | Jump 0x1a68 ; case 0x2 1a4f 7818 |x | Jump 0x1a68 ; case 0x3 1a50 7817 |x | Jump 0x1a68 ; case 0x4 1a51 7816 |x | Jump 0x1a68 ; case 0x5 1a52 7815 |x | Jump 0x1a68 ; case 0x6 1a53 7801 |x | Jump 0x1a55 ; case 0x7 1a54 7809 |x | Jump 0x1a5e ; case 0x8 1a55 00db | | Load_Top At_Offset_3 1a56 4801 |H | Short_Literal 0x1 1a57 e5fe | | Load 0x2,-0x2 1a58 00e9 | | Load_Encached String_Cache 1a59 035b | [ | Declare_Type Array,Constrained 1a5a 4801 |H | Short_Literal 0x1 1a5b e5ff | | Load 0x2,-0x1 1a5c 031b | | Declare_Type Variant_Record,Constrained 1a5d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1a5e 00db | | Load_Top At_Offset_3 1a5f 00db | | Load_Top At_Offset_3 1a60 02fc | | Declare_Variable Variant_Record,With_Constraint 1a61 4801 |H | Short_Literal 0x1 1a62 e5fe | | Load 0x2,-0x2 1a63 00e9 | | Load_Encached String_Cache 1a64 0334 | 4 | Declare_Variable Array,With_Constraint 1a65 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 1a66 016a | j | QQ_execute Variant_Record,XXX 1a67 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1a68 0869 | i | Execute_Immediate Raise,0x69 1a69 0000 0000 | | .BLANK 0000[0x7] 1a70 ; -------------------------------------------------------------------------------------- 1a70 ; SUBPROGRAM 1a70 ; -------------------------------------------------------------------------------------- 1a70 1a73 | s | .CONST 0x1a73 ; Address of begin 1a71 0004 | | .CONST 0x0004 ; Address of exception handler 1a72 0001 | | .CONST 0x0001 ; Number of locals 1a73 BODY_1a70: 1a73 INIT_1a70: 1a73 4608 |F | Jump_Case 0x9 1a74 7808 |x | Jump 0x1a7d ; case 0x0 1a75 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 1a76 7851 |xQ | Jump 0x1ac8 ; case 0x2 1a77 7850 |xP | Jump 0x1ac8 ; case 0x3 1a78 784f |xO | Jump 0x1ac8 ; case 0x4 1a79 784e |xN | Jump 0x1ac8 ; case 0x5 1a7a 784d |xM | Jump 0x1ac8 ; case 0x6 1a7b 784c |xL | Jump 0x1ac8 ; case 0x7 1a7c 784b |xK | Jump 0x1ac8 ; case 0x8 1a7d e26f | o | Load 0x1,0x6f 1a7e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 1a7f 0337 | 7 | Declare_Variable Array 1a80 4880 |H | Short_Literal 0x80 1a81 4801 |H | Short_Literal 0x1 1a82 4820 |H | Short_Literal 0x20 1a83 00d9 | | Load_Top At_Offset_1 1a84 e402 | | Load 0x2,0x2 1a85 01d6 | | Execute Vector,Field_Write 1a86 3ffb |? | Loop_Increasing 0x1a82 1a87 00db | | Load_Top At_Offset_3 1a88 00d9 | | Load_Top At_Offset_1 1a89 00d9 | | Load_Top At_Offset_1 1a8a 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 1a8b 0119 | | Execute Any,Check_In_Formal_Type 1a8c 00d1 | | Pop_Control Pop_Count_1 1a8d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1a8e 4800 |H | Short_Literal 0x0 1a8f 00db | | Load_Top At_Offset_3 1a90 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1a91 e26f | o | Load 0x1,0x6f 1a92 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 1a93 0337 | 7 | Declare_Variable Array 1a94 4880 |H | Short_Literal 0x80 1a95 4801 |H | Short_Literal 0x1 1a96 4820 |H | Short_Literal 0x20 1a97 00d9 | | Load_Top At_Offset_1 1a98 e402 | | Load 0x2,0x2 1a99 01d6 | | Execute Vector,Field_Write 1a9a 3ffb |? | Loop_Increasing 0x1a96 1a9b 00db | | Load_Top At_Offset_3 1a9c 00d9 | | Load_Top At_Offset_1 1a9d 00d9 | | Load_Top At_Offset_1 1a9e 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 1a9f 0119 | | Execute Any,Check_In_Formal_Type 1aa0 00d1 | | Pop_Control Pop_Count_1 1aa1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 1aa2 e26f | o | Load 0x1,0x6f 1aa3 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 1aa4 0337 | 7 | Declare_Variable Array 1aa5 4880 |H | Short_Literal 0x80 1aa6 4801 |H | Short_Literal 0x1 1aa7 4820 |H | Short_Literal 0x20 1aa8 00d9 | | Load_Top At_Offset_1 1aa9 e402 | | Load 0x2,0x2 1aaa 01d6 | | Execute Vector,Field_Write 1aab 3ffb |? | Loop_Increasing 0x1aa7 1aac 00db | | Load_Top At_Offset_3 1aad 00d9 | | Load_Top At_Offset_1 1aae 00d9 | | Load_Top At_Offset_1 1aaf 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 1ab0 0119 | | Execute Any,Check_In_Formal_Type 1ab1 00d1 | | Pop_Control Pop_Count_1 1ab2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1ab3 4800 |H | Short_Literal 0x0 1ab4 00db | | Load_Top At_Offset_3 1ab5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1ab6 e26f | o | Load 0x1,0x6f 1ab7 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 1ab8 0337 | 7 | Declare_Variable Array 1ab9 4880 |H | Short_Literal 0x80 1aba 4801 |H | Short_Literal 0x1 1abb 4820 |H | Short_Literal 0x20 1abc 00d9 | | Load_Top At_Offset_1 1abd e402 | | Load 0x2,0x2 1abe 01d6 | | Execute Vector,Field_Write 1abf 3ffb |? | Loop_Increasing 0x1abb 1ac0 00db | | Load_Top At_Offset_3 1ac1 00d9 | | Load_Top At_Offset_1 1ac2 00d9 | | Load_Top At_Offset_1 1ac3 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 1ac4 0119 | | Execute Any,Check_In_Formal_Type 1ac5 00d1 | | Pop_Control Pop_Count_1 1ac6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1ac7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1ac8 0869 | i | Execute_Immediate Raise,0x69 1ac9 ; -------------------------------------------------------------------------------------- 1ac9 ; STRING TABLE 1ac9 ; -------------------------------------------------------------------------------------- 1ac9 006a | j | .STRTAB 0x006a->0x1afe ; "secondary_" 1aca 0072 | r | .STRTAB 0x0072->0x1b03 ; "<secondary_[@,~state]>" 1acb 0086 | | .STRTAB 0x0086->0x1b0e ; "Rcf_Unit.Display_Unit_Options" 1acc 00a1 | | .STRTAB 0x00a1->0x1b1c ; "Rcf_Unit.Set_Unit_Options" 1acd 00b8 | | .STRTAB 0x00b8->0x1b29 ; "Rcf_Unit.Remove_Unit_Options" 1ace 00d2 | | .STRTAB 0x00d2->0x1b37 ; "Rcf_Unit.Remote_Unit_Name" 1acf 00e9 | | .STRTAB 0x00e9->0x1b43 ; "Rcf_Unit.Full_Remote_Unit_Name" 1ad0 0105 | | .STRTAB 0x0105->0x1b52 ; "Full_Remote_Unit_Name" 1ad1 0118 | | .STRTAB 0x0118->0x1b5d ; "Rcf_Unit.Set_Remote_Unit_Name" 1ad2 0133 | 3 | .STRTAB 0x0133->0x1b6b ; "Rcf_Unit.Local_Update_Time" 1ad3 014b | K | .STRTAB 0x014b->0x1b78 ; "Rcf_Unit.Set_Local_Update_Time: Time = " 1ad4 0170 | p | .STRTAB 0x0170->0x1b8c ; "Rcf_Unit.Set_Local_Update_Time" 1ad5 018c | | .STRTAB 0x018c->0x1b9b ; " 128" 1ad6 018e | | .STRTAB 0x018e->0x1b9d ; "Rcf_Temp_" 1ad7 0195 | | .STRTAB 0x0195->0x1ba1 ; "Upload_Ada_Unit" 1ad8 01a2 | | .STRTAB 0x01a2->0x1ba9 ; "<QUIET>" 1ad9 01a7 | | .STRTAB 0x01a7->0x1bac ; "<DIRECTORIES>" 1ada 01b2 | | .STRTAB 0x01b2->0x1bb3 ; "Rcf_Unit.Upload_Ada_Unit" 1adb 01c8 | | .STRTAB 0x01c8->0x1bbf ; "Setting local download time (from remote time) to " 1adc 01f8 | | .STRTAB 0x01f8->0x1bd8 ; "Can't upload from remote unit \x22" 1add 0215 | | .STRTAB 0x0215->0x1be7 ; "\x22 into existing text file \x22" 1ade 022e | . | .STRTAB 0x022e->0x1bf5 ; "\x22." 1adf 022e | . | .STRTAB 0x022e->0x1bf6 ; "Upload_Text_File" 1ae0 023c | < | .STRTAB 0x023c->0x1bfe ; "Rcf_Unit.Upload_Text_File" 1ae1 0253 | S | .STRTAB 0x0253->0x1c0a ; "Update_Consistency" 1ae2 0263 | c | .STRTAB 0x0263->0x1c13 ; "Rcf_Unit.Update_Consistency" 1ae3 027c | | | .STRTAB 0x027c->0x1c21 ; "." 1ae4 027b | { | .STRTAB 0x027b->0x1c21 ; "state" 1ae5 027e | ~ | .STRTAB 0x027e->0x1c24 ; ".??'c(library)" 1ae6 028a | | .STRTAB 0x028a->0x1c2b ; "??'c(library)" 1ae7 0295 | | .STRTAB 0x0295->0x1c31 ; "_secondary_" 1ae8 029e | | .STRTAB 0x029e->0x1c37 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 1ae9 02c6 | | .STRTAB 0x02c6->0x1c4c ; ".<" 1aea 02c6 | | .STRTAB 0x02c6->0x1c4d ; "state>" 1aeb 02ca | | .STRTAB 0x02ca->0x1c50 ; ">" 1aec 02c9 | | .STRTAB 0x02c9->0x1c50 ; "<DEFAULT>" 1aed 02d0 | | .STRTAB 0x02d0->0x1c55 ; ".Units." 1aee 02d5 | | .STRTAB 0x02d5->0x1c58 ; ".units" 1aef 02d9 | | .STRTAB 0x02d9->0x1c5b ; "<error>" 1af0 02de | | .STRTAB 0x02de->0x1c5f ; ".@_secondary_@_spec" 1af1 02ef | | .STRTAB 0x02ef->0x1c68 ; ".@_secondary_@_body" 1af2 0300 | | .STRTAB 0x0300->0x1c72 ; ".@'spec.<secondary_@>" 1af3 0313 | | .STRTAB 0x0313->0x1c7c ; ".@'body.<secondary_@>" 1af4 0326 | & | .STRTAB 0x0326->0x1c87 ; "<NONE>" 1af5 032a | * | .STRTAB 0x032a->0x1c8a ; "<AUTO_GENERATE>" 1af6 0337 | 7 | .STRTAB 0x0337->0x1c91 ; "[" 1af7 0336 | 6 | .STRTAB 0x0336->0x1c92 ; "," 1af8 0335 | 5 | .STRTAB 0x0335->0x1c92 ; "]" 1af9 0334 | 4 | .STRTAB 0x0334->0x1c93 ; "_" 1afa 0333 | 3 | .STRTAB 0x0333->0x1c93 ; "'" 1afb 0332 | 2 | .STRTAB 0x0332->0x1c94 ; ".<secondary_" 1afc 033c | < | .STRTAB 0x033c->0x1c9a ; ".@'c(ada).<secondary_" 1afd 034f | O | .STREND 0x034f->0x1ca4 1afe 7365 636f |seco| .STRTAB_STRINGS 1ca5 0000 0000 | | .XXX[0x3] 1ca7 0000 | | 1ca8 ; -------------------------------------------------------------------------------------- 1ca8 ; Debug Table 1ca8 ; -------------------------------------------------------------------------------------- 1ca8 0004 000d | | .DEBUG4 0x0004,0x000d,0x6e16,0x0000,0x0001,0x0000 1cae 0000 0000 | | .BLANK 0000[0x152]