|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 14336 (0x3800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1ba8 | | .CONST 0x1ba8 ; 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 01c4 | | .CONST 0x01c4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00aa | | .CONST 0x00aa ; 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 195b | [| Declare_Subprogram INIT_1958,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 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0098 c27e | ~ | Store 0x1,0x7e 0099 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 009b c27f | | Store 0x1,0x7f 009c 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 009e c280 | | Store 0x1,0x80 009f 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 00a1 c281 | | Store 0x1,0x81 00a2 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 00a4 c227 | ' | Store 0x1,0x27 00a5 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 00a7 c228 | ( | Store 0x1,0x28 00a8 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 00aa c229 | ) | Store 0x1,0x29 00ab 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 00ad c22a | * | Store 0x1,0x2a 00ae 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 00b0 c22b | + | Store 0x1,0x2b 00b1 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 00b3 c22c | , | Store 0x1,0x2c 00b4 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated 00b6 c278 | x | Store 0x1,0x78 00b7 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated 00b9 c277 | w | Store 0x1,0x77 00ba 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated 00bc c288 | | Store 0x1,0x88 00bd 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated 00bf c289 | | Store 0x1,0x89 00c0 029a 0933 | 3| Declare_Subprogram INIT_0930,For_Outer_Call,Visible,Unelaborated 00c2 c28a | | Store 0x1,0x8a 00c3 029a 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call,Visible,Unelaborated 00c5 c28b | | Store 0x1,0x8b 00c6 029a 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call,Visible,Unelaborated 00c8 c231 | 1 | Store 0x1,0x31 00c9 029a 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call,Visible,Unelaborated 00cb c232 | 2 | Store 0x1,0x32 00cc 029a 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call,Visible,Unelaborated 00ce c286 | | Store 0x1,0x86 00cf 029a 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call,Visible,Unelaborated 00d1 c279 | y | Store 0x1,0x79 00d2 029a 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call,Visible,Unelaborated 00d4 c265 | e | Store 0x1,0x65 00d5 029a 0c93 | | Declare_Subprogram INIT_0c90,For_Outer_Call,Visible,Unelaborated 00d7 c25a | Z | Store 0x1,0x5a 00d8 029a 0d7b | {| Declare_Subprogram INIT_0d78,For_Outer_Call,Visible,Unelaborated 00da c245 | E | Store 0x1,0x45 00db 029a 0dab | | Declare_Subprogram INIT_0da8,For_Outer_Call,Visible,Unelaborated 00dd c266 | f | Store 0x1,0x66 00de 029a 0dcb | | Declare_Subprogram INIT_0dc8,For_Outer_Call,Visible,Unelaborated 00e0 c267 | g | Store 0x1,0x67 00e1 029a 0e0b | | Declare_Subprogram INIT_0e08,For_Outer_Call,Visible,Unelaborated 00e3 c26a | j | Store 0x1,0x6a 00e4 029a 0e23 | #| Declare_Subprogram INIT_0e20,For_Outer_Call,Visible,Unelaborated 00e6 c25d | ] | Store 0x1,0x5d 00e7 029a 0e8b | | Declare_Subprogram INIT_0e88,For_Outer_Call,Visible,Unelaborated 00e9 c25e | ^ | Store 0x1,0x5e 00ea 029a 0ea3 | | Declare_Subprogram INIT_0ea0,For_Outer_Call,Visible,Unelaborated 00ec c25f | _ | Store 0x1,0x5f 00ed 029a 0ebb | | Declare_Subprogram INIT_0eb8,For_Outer_Call,Visible,Unelaborated 00ef c270 | p | Store 0x1,0x70 00f0 029a 0edb | | Declare_Subprogram INIT_0ed8,For_Outer_Call,Visible,Unelaborated 00f2 c271 | q | Store 0x1,0x71 00f3 029a 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call,Visible,Unelaborated 00f5 c273 | s | Store 0x1,0x73 00f6 029a 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Visible,Unelaborated 00f8 c260 | ` | Store 0x1,0x60 00f9 029a 0f53 | S| Declare_Subprogram INIT_0f50,For_Outer_Call,Visible,Unelaborated 00fb c261 | a | Store 0x1,0x61 00fc e001 | | Load 0x0,0x1 00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fe 4801 |H | Short_Literal 0x1 00ff 4880 |H | Short_Literal 0x80 0100 00e9 | | Load_Encached String_Cache 0101 035c | \ | Declare_Type Array,Constrained,Visible 0102 00e3 | | Load_Encached Natural_Cache 0103 4801 |H | Short_Literal 0x1 0104 4880 |H | Short_Literal 0x80 0105 00e9 | | Load_Encached String_Cache 0106 035c | \ | Declare_Type Array,Constrained,Visible 0107 00e3 | | Load_Encached Natural_Cache 0108 4801 |H | Short_Literal 0x1 0109 4880 |H | Short_Literal 0x80 010a 00e9 | | Load_Encached String_Cache 010b 035c | \ | Declare_Type Array,Constrained,Visible 010c 00e3 | | Load_Encached Natural_Cache 010d 4801 |H | Short_Literal 0x1 010e 4880 |H | Short_Literal 0x80 010f 00e9 | | Load_Encached String_Cache 0110 035c | \ | Declare_Type Array,Constrained,Visible 0111 00e3 | | Load_Encached Natural_Cache 0112 029f 1983 | | Declare_Subprogram INIT_1980,For_Call 0114 4809 |H | Short_Literal 0x9 0115 032e | . | Declare_Type Record,Defined,Visible 0116 c26f | o | Store 0x1,0x6f 0117 029a 0f83 | | Declare_Subprogram INIT_0f80,For_Outer_Call,Visible,Unelaborated 0119 c250 | P | Store 0x1,0x50 011a 029a 0f9b | | Declare_Subprogram INIT_0f98,For_Outer_Call,Visible,Unelaborated 011c c27d | } | Store 0x1,0x7d 011d 029a 0feb | | Declare_Subprogram INIT_0fe8,For_Outer_Call,Visible,Unelaborated 011f c26d | m | Store 0x1,0x6d 0120 029a 1043 | C| Declare_Subprogram INIT_1040,For_Outer_Call,Visible,Unelaborated 0122 c26e | n | Store 0x1,0x6e 0123 029a 109b | | Declare_Subprogram INIT_1098,For_Outer_Call,Visible,Unelaborated 0125 c282 | | Store 0x1,0x82 0126 029a 1163 | c| Declare_Subprogram INIT_1160,For_Outer_Call,Visible,Unelaborated 0128 c283 | | Store 0x1,0x83 0129 029a 11fb | | Declare_Subprogram INIT_11f8,For_Outer_Call,Visible,Unelaborated 012b c284 | | Store 0x1,0x84 012c 029a 122b | +| Declare_Subprogram INIT_1228,For_Outer_Call,Visible,Unelaborated 012e c287 | | Store 0x1,0x87 012f 00bf | | Action Accept_Activation 0130 00e1 | | Load_Encached Boolean_Cache 0131 02a0 | | Declare_Subprogram Null_Subprogram 0132 4801 |H | Short_Literal 0x1 0133 032d | - | Declare_Type Record,Defined 0134 0092 19d9 | | Action Push_String_Extended,0x19d9 ; "secondary_" 0136 0092 19da | | Action Push_String_Extended,0x19da ; "<secondary_[@,~state]>" 0138 029d 124b | K| Declare_Subprogram INIT_1248,For_Outer_Call 013a 029d 1283 | | Declare_Subprogram INIT_1280,For_Outer_Call 013c 029d 1293 | | Declare_Subprogram INIT_1290,For_Outer_Call 013e 029d 12a3 | | Declare_Subprogram INIT_12a0,For_Outer_Call 0140 029d 12c3 | | Declare_Subprogram INIT_12c0,For_Outer_Call 0142 029d 12db | | Declare_Subprogram INIT_12d8,For_Outer_Call 0144 029d 130b | | Declare_Subprogram INIT_1308,For_Outer_Call 0146 029d 134b | K| Declare_Subprogram INIT_1348,For_Outer_Call 0148 029d 1383 | | Declare_Subprogram INIT_1380,For_Outer_Call 014a 029d 1393 | | Declare_Subprogram INIT_1390,For_Outer_Call 014c 029d 13bb | | Declare_Subprogram INIT_13b8,For_Outer_Call 014e 029d 13c3 | | Declare_Subprogram INIT_13c0,For_Outer_Call 0150 029d 13d3 | | Declare_Subprogram INIT_13d0,For_Outer_Call 0152 029d 13e3 | | Declare_Subprogram INIT_13e0,For_Outer_Call 0154 029d 13eb | | Declare_Subprogram INIT_13e8,For_Outer_Call 0156 029d 13f3 | | Declare_Subprogram INIT_13f0,For_Outer_Call 0158 029d 1423 | #| Declare_Subprogram INIT_1420,For_Outer_Call 015a 029d 1433 | 3| Declare_Subprogram INIT_1430,For_Outer_Call 015c 029d 147b | {| Declare_Subprogram INIT_1478,For_Outer_Call 015e 029d 14cb | | Declare_Subprogram INIT_14c8,For_Outer_Call 0160 029d 150b | | Declare_Subprogram INIT_1508,For_Outer_Call 0162 029d 1543 | C| Declare_Subprogram INIT_1540,For_Outer_Call 0164 029d 1573 | s| Declare_Subprogram INIT_1570,For_Outer_Call 0166 029d 15ab | | Declare_Subprogram INIT_15a8,For_Outer_Call 0168 029d 162b | +| Declare_Subprogram INIT_1628,For_Outer_Call 016a 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 016b 00c7 | | Action Elaborate_Subprogram 016c 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 016d 00c7 | | Action Elaborate_Subprogram 016e 1d80 | | Execute_Immediate Reference_Lex_1,0x80 016f 00c7 | | Action Elaborate_Subprogram 0170 1d81 | | Execute_Immediate Reference_Lex_1,0x81 0171 00c7 | | Action Elaborate_Subprogram 0172 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0173 00c7 | | Action Elaborate_Subprogram 0174 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0175 00c7 | | Action Elaborate_Subprogram 0176 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0177 00c7 | | Action Elaborate_Subprogram 0178 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0179 00c7 | | Action Elaborate_Subprogram 017a 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 017b 00c7 | | Action Elaborate_Subprogram 017c 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 017d 00c7 | | Action Elaborate_Subprogram 017e 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 017f 00c7 | | Action Elaborate_Subprogram 0180 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 0181 00c7 | | Action Elaborate_Subprogram 0182 029d 1693 | | Declare_Subprogram INIT_1690,For_Outer_Call 0184 029d 16bb | | Declare_Subprogram INIT_16b8,For_Outer_Call 0186 1d88 | | Execute_Immediate Reference_Lex_1,0x88 0187 00c7 | | Action Elaborate_Subprogram 0188 1d89 | | Execute_Immediate Reference_Lex_1,0x89 0189 00c7 | | Action Elaborate_Subprogram 018a 1d8a | | Execute_Immediate Reference_Lex_1,0x8a 018b 00c7 | | Action Elaborate_Subprogram 018c 1d8b | | Execute_Immediate Reference_Lex_1,0x8b 018d 00c7 | | Action Elaborate_Subprogram 018e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 018f 00c7 | | Action Elaborate_Subprogram 0190 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0191 00c7 | | Action Elaborate_Subprogram 0192 1d86 | | Execute_Immediate Reference_Lex_1,0x86 0193 00c7 | | Action Elaborate_Subprogram 0194 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 0195 00c7 | | Action Elaborate_Subprogram 0196 1d65 | e | Execute_Immediate Reference_Lex_1,0x65 0197 00c7 | | Action Elaborate_Subprogram 0198 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 0199 00c7 | | Action Elaborate_Subprogram 019a 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 019b 00c7 | | Action Elaborate_Subprogram 019c 029d 16d3 | | Declare_Subprogram INIT_16d0,For_Outer_Call 019e 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 019f 00c7 | | Action Elaborate_Subprogram 01a0 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 01a1 00c7 | | Action Elaborate_Subprogram 01a2 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 01a3 00c7 | | Action Elaborate_Subprogram 01a4 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 01a5 00c7 | | Action Elaborate_Subprogram 01a6 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 01a7 00c7 | | Action Elaborate_Subprogram 01a8 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 01a9 00c7 | | Action Elaborate_Subprogram 01aa 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 01ab 00c7 | | Action Elaborate_Subprogram 01ac 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 01ad 00c7 | | Action Elaborate_Subprogram 01ae 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 01af 00c7 | | Action Elaborate_Subprogram 01b0 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 01b1 00c7 | | Action Elaborate_Subprogram 01b2 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 01b3 00c7 | | Action Elaborate_Subprogram 01b4 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01b5 00c7 | | Action Elaborate_Subprogram 01b6 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 01b7 00c7 | | Action Elaborate_Subprogram 01b8 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01b9 00c7 | | Action Elaborate_Subprogram 01ba 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 01bb 00c7 | | Action Elaborate_Subprogram 01bc 1d82 | | Execute_Immediate Reference_Lex_1,0x82 01bd 00c7 | | Action Elaborate_Subprogram 01be 1d83 | | Execute_Immediate Reference_Lex_1,0x83 01bf 00c7 | | Action Elaborate_Subprogram 01c0 1d84 | | Execute_Immediate Reference_Lex_1,0x84 01c1 00c7 | | Action Elaborate_Subprogram 01c2 1d87 | | Execute_Immediate Reference_Lex_1,0x87 01c3 00c7 | | Action Elaborate_Subprogram 01c4 BODY_0008: 01c4 00bc | | Action Signal_Activated 01c5 00bb | | Action Signal_Completion 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01db | | .CONST 0x01db ; Address of begin 01c9 0212 | | .CONST 0x0212 ; Address of exception handler 01ca 0004 | | .CONST 0x0004 ; Number of locals 01cb INIT_01c8: 01cb e002 | | Load 0x0,0x2 01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cd e001 | | Load 0x0,0x1 01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01d0 e003 | | Load 0x0,0x3 01d1 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 01d2 0322 | " | Declare_Variable Record 01d3 e5fd | | Load 0x2,-0x3 01d4 e5fe | | Load 0x2,-0x2 01d5 e004 | | Load 0x0,0x4 01d6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d7 e003 | | Load 0x0,0x3 01d8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01d9 00d9 | | Load_Top At_Offset_1 01da 017d | } | Execute Record,Structure_Write 01db BODY_01c8: 01db e5fd | | Load 0x2,-0x3 01dc 0092 19db | | Action Push_String_Extended,0x19db ; "Rcf_Unit.Display_Unit_Options" 01de e005 | | Load 0x0,0x5 01df 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e0 e001 | | Load 0x0,0x1 01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e2 e002 | | Load 0x0,0x2 01e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e4 e5fd | | Load 0x2,-0x3 01e5 4800 |H | Short_Literal 0x0 01e6 4801 |H | Short_Literal 0x1 01e7 4800 |H | Short_Literal 0x0 01e8 e404 | | Load 0x2,0x4 01e9 e5ff | | Load 0x2,-0x1 01ea e002 | | Load 0x0,0x2 01eb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01ec c402 | | Store 0x2,0x2 01ed 005a | Z | Store_Top Discrete,At_Offset_2 01ee 00d9 | | Load_Top At_Offset_1 01ef 6803 |h | Jump_Zero 0x1f3 01f0 00d9 | | Load_Top At_Offset_1 01f1 a5fc | | Store_Unchecked 0x2,-0x4 01f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f3 00da | | Load_Top At_Offset_2 01f4 e002 | | Load 0x0,0x2 01f5 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f6 680d |h | Jump_Zero 0x204 01f7 e5fd | | Load 0x2,-0x3 01f8 e006 | | Load 0x0,0x6 01f9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01fa 6045 |`E | Indirect_Literal Discrete,0x240,{0x00000000, 0x00008147} 01fb e001 | | Load 0x0,0x1 01fc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01fd e006 | | Load 0x0,0x6 01fe 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01ff 6040 |`@ | Indirect_Literal Discrete,0x240,{0x00000000, 0x00008147} 0200 e001 | | Load 0x0,0x1 0201 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0202 a5fc | | Store_Unchecked 0x2,-0x4 0203 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0204 00da | | Load_Top At_Offset_2 0205 e5fd | | Load 0x2,-0x3 0206 e5fe | | Load 0x2,-0x2 0207 e007 | | Load 0x0,0x7 0208 180d | | Execute Package,Field_Execute,Field_Number 0xd 0209 e001 | | Load 0x0,0x1 020a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020b 00db | | Load_Top At_Offset_3 020c e5fd | | Load 0x2,-0x3 020d e002 | | Load 0x0,0x2 020e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 020f c402 | | Store 0x2,0x2 0210 c5fc | | Store 0x2,-0x4 0211 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0212 TRAP_01c8: 0212 e001 | | Load 0x0,0x1 0213 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0214 010f | | Execute Exception,Equal 0215 6810 |h | Jump_Zero 0x226 0216 e001 | | Load 0x0,0x1 0217 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0218 a5fc | | Store_Unchecked 0x2,-0x4 0219 00db | | Load_Top At_Offset_3 021a e002 | | Load 0x0,0x2 021b 180f | | Execute Package,Field_Execute,Field_Number 0xf 021c 7008 |p | Jump_Nonzero 0x225 021d e001 | | Load 0x0,0x1 021e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021f e402 | | Load 0x2,0x2 0220 e5fd | | Load 0x2,-0x3 0221 e002 | | Load 0x0,0x2 0222 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0223 c402 | | Store 0x2,0x2 0224 005b | [ | Store_Top Discrete,At_Offset_3 0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0226 e5fd | | Load 0x2,-0x3 0227 0092 19db | | Action Push_String_Extended,0x19db ; "Rcf_Unit.Display_Unit_Options" 0229 e005 | | Load 0x0,0x5 022a 180f | | Execute Package,Field_Execute,Field_Number 0xf 022b 0092 19db | | Action Push_String_Extended,0x19db ; "Rcf_Unit.Display_Unit_Options" 022d e005 | | Load 0x0,0x5 022e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022f a5fc | | Store_Unchecked 0x2,-0x4 0230 00db | | Load_Top At_Offset_3 0231 e002 | | Load 0x0,0x2 0232 180f | | Execute Package,Field_Execute,Field_Number 0xf 0233 7008 |p | Jump_Nonzero 0x23c 0234 e001 | | Load 0x0,0x1 0235 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0236 e402 | | Load 0x2,0x2 0237 e5fd | | Load 0x2,-0x3 0238 e002 | | Load 0x0,0x2 0239 1817 | | Execute Package,Field_Execute,Field_Number 0x17 023a c402 | | Store 0x2,0x2 023b 005b | [ | Store_Top Discrete,At_Offset_3 023c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 025b | [ | .CONST 0x025b ; Address of begin 0249 0294 | | .CONST 0x0294 ; Address of exception handler 024a 0004 | | .CONST 0x0004 ; Number of locals 024b INIT_0248: 024b e002 | | Load 0x0,0x2 024c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024d e001 | | Load 0x0,0x1 024e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0250 e003 | | Load 0x0,0x3 0251 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0252 0322 | " | Declare_Variable Record 0253 e5fb | | Load 0x2,-0x5 0254 e5fe | | Load 0x2,-0x2 0255 e004 | | Load 0x0,0x4 0256 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0257 e003 | | Load 0x0,0x3 0258 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0259 00d9 | | Load_Top At_Offset_1 025a 017d | } | Execute Record,Structure_Write 025b BODY_0248: 025b e5fb | | Load 0x2,-0x5 025c 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 025e e005 | | Load 0x0,0x5 025f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0260 e001 | | Load 0x0,0x1 0261 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0262 e002 | | Load 0x0,0x2 0263 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0264 e5fb | | Load 0x2,-0x5 0265 4800 |H | Short_Literal 0x0 0266 4801 |H | Short_Literal 0x1 0267 4801 |H | Short_Literal 0x1 0268 e404 | | Load 0x2,0x4 0269 e5ff | | Load 0x2,-0x1 026a e002 | | Load 0x0,0x2 026b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 026c c402 | | Store 0x2,0x2 026d 005a | Z | Store_Top Discrete,At_Offset_2 026e 00d9 | | Load_Top At_Offset_1 026f 6803 |h | Jump_Zero 0x273 0270 00d9 | | Load_Top At_Offset_1 0271 a5fa | | Store_Unchecked 0x2,-0x6 0272 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0273 00da | | Load_Top At_Offset_2 0274 e002 | | Load 0x0,0x2 0275 180f | | Execute Package,Field_Execute,Field_Number 0xf 0276 680d |h | Jump_Zero 0x284 0277 e5fb | | Load 0x2,-0x5 0278 e006 | | Load 0x0,0x6 0279 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 027a 67c5 |g | Indirect_Literal Discrete,0x240,{0x00000000, 0x00008147} 027b e001 | | Load 0x0,0x1 027c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 027d e006 | | Load 0x0,0x6 027e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 027f 67c0 |g | Indirect_Literal Discrete,0x240,{0x00000000, 0x00008147} 0280 e001 | | Load 0x0,0x1 0281 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0282 a5fa | | Store_Unchecked 0x2,-0x6 0283 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0284 00da | | Load_Top At_Offset_2 0285 e5fb | | Load 0x2,-0x5 0286 e5fc | | Load 0x2,-0x4 0287 e5fd | | Load 0x2,-0x3 0288 e5fe | | Load 0x2,-0x2 0289 e007 | | Load 0x0,0x7 028a 180e | | Execute Package,Field_Execute,Field_Number 0xe 028b e001 | | Load 0x0,0x1 028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028d 00db | | Load_Top At_Offset_3 028e e5fb | | Load 0x2,-0x5 028f e002 | | Load 0x0,0x2 0290 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0291 c402 | | Store 0x2,0x2 0292 c5fa | | Store 0x2,-0x6 0293 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0294 TRAP_0248: 0294 e001 | | Load 0x0,0x1 0295 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0296 010f | | Execute Exception,Equal 0297 6810 |h | Jump_Zero 0x2a8 0298 e001 | | Load 0x0,0x1 0299 181b | | Execute Package,Field_Execute,Field_Number 0x1b 029a a5fa | | Store_Unchecked 0x2,-0x6 029b 00db | | Load_Top At_Offset_3 029c e002 | | Load 0x0,0x2 029d 180f | | Execute Package,Field_Execute,Field_Number 0xf 029e 7008 |p | Jump_Nonzero 0x2a7 029f e001 | | Load 0x0,0x1 02a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a1 e402 | | Load 0x2,0x2 02a2 e5fb | | Load 0x2,-0x5 02a3 e002 | | Load 0x0,0x2 02a4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a5 c402 | | Store 0x2,0x2 02a6 005b | [ | Store_Top Discrete,At_Offset_3 02a7 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02a8 e5fb | | Load 0x2,-0x5 02a9 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 02ab e005 | | Load 0x0,0x5 02ac 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ad 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 02af e005 | | Load 0x0,0x5 02b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02b1 a5fa | | Store_Unchecked 0x2,-0x6 02b2 00db | | Load_Top At_Offset_3 02b3 e002 | | Load 0x0,0x2 02b4 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b5 7008 |p | Jump_Nonzero 0x2be 02b6 e001 | | Load 0x0,0x1 02b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b8 e402 | | Load 0x2,0x2 02b9 e5fb | | Load 0x2,-0x5 02ba e002 | | Load 0x0,0x2 02bb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02bc c402 | | Store 0x2,0x2 02bd 005b | [ | Store_Top Discrete,At_Offset_3 02be 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02d3 | | .CONST 0x02d3 ; Address of begin 02c1 030c | | .CONST 0x030c ; Address of exception handler 02c2 0004 | | .CONST 0x0004 ; Number of locals 02c3 INIT_02c0: 02c3 e002 | | Load 0x0,0x2 02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c5 e001 | | Load 0x0,0x1 02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c8 e003 | | Load 0x0,0x3 02c9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02ca 0322 | " | Declare_Variable Record 02cb e5fb | | Load 0x2,-0x5 02cc e5fe | | Load 0x2,-0x2 02cd e004 | | Load 0x0,0x4 02ce 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02cf e003 | | Load 0x0,0x3 02d0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02d1 00d9 | | Load_Top At_Offset_1 02d2 017d | } | Execute Record,Structure_Write 02d3 BODY_02c0: 02d3 e5fb | | Load 0x2,-0x5 02d4 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 02d6 e005 | | Load 0x0,0x5 02d7 180e | | Execute Package,Field_Execute,Field_Number 0xe 02d8 e001 | | Load 0x0,0x1 02d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02da e002 | | Load 0x0,0x2 02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dc e5fb | | Load 0x2,-0x5 02dd 4800 |H | Short_Literal 0x0 02de 4801 |H | Short_Literal 0x1 02df 4801 |H | Short_Literal 0x1 02e0 e404 | | Load 0x2,0x4 02e1 e5ff | | Load 0x2,-0x1 02e2 e002 | | Load 0x0,0x2 02e3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02e4 c402 | | Store 0x2,0x2 02e5 005a | Z | Store_Top Discrete,At_Offset_2 02e6 00d9 | | Load_Top At_Offset_1 02e7 6803 |h | Jump_Zero 0x2eb 02e8 00d9 | | Load_Top At_Offset_1 02e9 a5fa | | Store_Unchecked 0x2,-0x6 02ea 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02eb 00da | | Load_Top At_Offset_2 02ec e002 | | Load 0x0,0x2 02ed 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ee 680d |h | Jump_Zero 0x2fc 02ef e5fb | | Load 0x2,-0x5 02f0 e006 | | Load 0x0,0x6 02f1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02f2 6045 |`E | Indirect_Literal Discrete,0x338,{0x00000000, 0x00008147} 02f3 e001 | | Load 0x0,0x1 02f4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02f5 e006 | | Load 0x0,0x6 02f6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02f7 6040 |`@ | Indirect_Literal Discrete,0x338,{0x00000000, 0x00008147} 02f8 e001 | | Load 0x0,0x1 02f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fa a5fa | | Store_Unchecked 0x2,-0x6 02fb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02fc 00da | | Load_Top At_Offset_2 02fd e5fb | | Load 0x2,-0x5 02fe e5fc | | Load 0x2,-0x4 02ff e5fd | | Load 0x2,-0x3 0300 e5fe | | Load 0x2,-0x2 0301 e007 | | Load 0x0,0x7 0302 180f | | Execute Package,Field_Execute,Field_Number 0xf 0303 e001 | | Load 0x0,0x1 0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0305 00db | | Load_Top At_Offset_3 0306 e5fb | | Load 0x2,-0x5 0307 e002 | | Load 0x0,0x2 0308 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0309 c402 | | Store 0x2,0x2 030a c5fa | | Store 0x2,-0x6 030b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 030c TRAP_02c0: 030c e001 | | Load 0x0,0x1 030d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 030e 010f | | Execute Exception,Equal 030f 6810 |h | Jump_Zero 0x320 0310 e001 | | Load 0x0,0x1 0311 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0312 a5fa | | Store_Unchecked 0x2,-0x6 0313 00db | | Load_Top At_Offset_3 0314 e002 | | Load 0x0,0x2 0315 180f | | Execute Package,Field_Execute,Field_Number 0xf 0316 7008 |p | Jump_Nonzero 0x31f 0317 e001 | | Load 0x0,0x1 0318 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0319 e402 | | Load 0x2,0x2 031a e5fb | | Load 0x2,-0x5 031b e002 | | Load 0x0,0x2 031c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 031d c402 | | Store 0x2,0x2 031e 005b | [ | Store_Top Discrete,At_Offset_3 031f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0320 e5fb | | Load 0x2,-0x5 0321 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 0323 e005 | | Load 0x0,0x5 0324 180f | | Execute Package,Field_Execute,Field_Number 0xf 0325 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 0327 e005 | | Load 0x0,0x5 0328 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0329 a5fa | | Store_Unchecked 0x2,-0x6 032a 00db | | Load_Top At_Offset_3 032b e002 | | Load 0x0,0x2 032c 180f | | Execute Package,Field_Execute,Field_Number 0xf 032d 7008 |p | Jump_Nonzero 0x336 032e e001 | | Load 0x0,0x1 032f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0330 e402 | | Load 0x2,0x2 0331 e5fb | | Load 0x2,-0x5 0332 e002 | | Load 0x0,0x2 0333 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0334 c402 | | Store 0x2,0x2 0335 005b | [ | Store_Top Discrete,At_Offset_3 0336 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0337 0000 | | .XXX[0x1] 0338 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 033c 0000 0000 | | .BLANK 0000[0x4] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0353 | S | .CONST 0x0353 ; Address of begin 0341 038b | | .CONST 0x038b ; Address of exception handler 0342 0004 | | .CONST 0x0004 ; Number of locals 0343 INIT_0340: 0343 e002 | | Load 0x0,0x2 0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0345 e001 | | Load 0x0,0x1 0346 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0347 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0348 e003 | | Load 0x0,0x3 0349 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 034a 0322 | " | Declare_Variable Record 034b e5fc | | Load 0x2,-0x4 034c e5fe | | Load 0x2,-0x2 034d e004 | | Load 0x0,0x4 034e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 034f e003 | | Load 0x0,0x3 0350 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0351 00d9 | | Load_Top At_Offset_1 0352 017d | } | Execute Record,Structure_Write 0353 BODY_0340: 0353 e5fc | | Load 0x2,-0x4 0354 0092 19dd | | Action Push_String_Extended,0x19dd ; "Rcf_Unit.Remove_Unit_Options" 0356 e005 | | Load 0x0,0x5 0357 180e | | Execute Package,Field_Execute,Field_Number 0xe 0358 e001 | | Load 0x0,0x1 0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035a e002 | | Load 0x0,0x2 035b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035c e5fc | | Load 0x2,-0x4 035d 4800 |H | Short_Literal 0x0 035e 4801 |H | Short_Literal 0x1 035f 4801 |H | Short_Literal 0x1 0360 e404 | | Load 0x2,0x4 0361 e5ff | | Load 0x2,-0x1 0362 e002 | | Load 0x0,0x2 0363 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0364 c402 | | Store 0x2,0x2 0365 005a | Z | Store_Top Discrete,At_Offset_2 0366 00d9 | | Load_Top At_Offset_1 0367 6803 |h | Jump_Zero 0x36b 0368 00d9 | | Load_Top At_Offset_1 0369 a5fb | | Store_Unchecked 0x2,-0x5 036a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 036b 00da | | Load_Top At_Offset_2 036c e002 | | Load 0x0,0x2 036d 180f | | Execute Package,Field_Execute,Field_Number 0xf 036e 680d |h | Jump_Zero 0x37c 036f e5fc | | Load 0x2,-0x4 0370 e006 | | Load 0x0,0x6 0371 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0372 67c5 |g | Indirect_Literal Discrete,0x338,{0x00000000, 0x00008147} 0373 e001 | | Load 0x0,0x1 0374 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0375 e006 | | Load 0x0,0x6 0376 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0377 67c0 |g | Indirect_Literal Discrete,0x338,{0x00000000, 0x00008147} 0378 e001 | | Load 0x0,0x1 0379 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037a a5fb | | Store_Unchecked 0x2,-0x5 037b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 037c 00da | | Load_Top At_Offset_2 037d e5fc | | Load 0x2,-0x4 037e e5fd | | Load 0x2,-0x3 037f e5fe | | Load 0x2,-0x2 0380 e007 | | Load 0x0,0x7 0381 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0382 e001 | | Load 0x0,0x1 0383 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0384 00db | | Load_Top At_Offset_3 0385 e5fc | | Load 0x2,-0x4 0386 e002 | | Load 0x0,0x2 0387 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0388 c402 | | Store 0x2,0x2 0389 c5fb | | Store 0x2,-0x5 038a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 038b TRAP_0340: 038b e001 | | Load 0x0,0x1 038c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 038d 010f | | Execute Exception,Equal 038e 6810 |h | Jump_Zero 0x39f 038f e001 | | Load 0x0,0x1 0390 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0391 a5fb | | Store_Unchecked 0x2,-0x5 0392 00db | | Load_Top At_Offset_3 0393 e002 | | Load 0x0,0x2 0394 180f | | Execute Package,Field_Execute,Field_Number 0xf 0395 7008 |p | Jump_Nonzero 0x39e 0396 e001 | | Load 0x0,0x1 0397 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0398 e402 | | Load 0x2,0x2 0399 e5fc | | Load 0x2,-0x4 039a e002 | | Load 0x0,0x2 039b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 039c c402 | | Store 0x2,0x2 039d 005b | [ | Store_Top Discrete,At_Offset_3 039e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 039f e5fc | | Load 0x2,-0x4 03a0 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 03a2 e005 | | Load 0x0,0x5 03a3 180f | | Execute Package,Field_Execute,Field_Number 0xf 03a4 0092 19dc | | Action Push_String_Extended,0x19dc ; "Rcf_Unit.Set_Unit_Options" 03a6 e005 | | Load 0x0,0x5 03a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03a8 a5fb | | Store_Unchecked 0x2,-0x5 03a9 00db | | Load_Top At_Offset_3 03aa e002 | | Load 0x0,0x2 03ab 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ac 7008 |p | Jump_Nonzero 0x3b5 03ad e001 | | Load 0x0,0x1 03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03af e402 | | Load 0x2,0x2 03b0 e5fc | | Load 0x2,-0x4 03b1 e002 | | Load 0x0,0x2 03b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03b3 c402 | | Store 0x2,0x2 03b4 005b | [ | Store_Top Discrete,At_Offset_3 03b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03b6 0000 0000 | | .XXX[0x2] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03cd | | .CONST 0x03cd ; Address of begin 03b9 03fc | | .CONST 0x03fc ; Address of exception handler 03ba 0006 | | .CONST 0x0006 ; Number of locals 03bb INIT_03b8: 03bb e002 | | Load 0x0,0x2 03bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bd e001 | | Load 0x0,0x1 03be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03c0 4800 |H | Short_Literal 0x0 03c1 e20d | | Load 0x1,0xd 03c2 1c08 | | Execute_Immediate Run_Utility,0x8 03c3 e003 | | Load 0x0,0x3 03c4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 03c5 0322 | " | Declare_Variable Record 03c6 e5fd | | Load 0x2,-0x3 03c7 e003 | | Load 0x0,0x3 03c8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03c9 00d9 | | Load_Top At_Offset_1 03ca 017d | } | Execute Record,Structure_Write 03cb 029f 172b | +| Declare_Subprogram INIT_1728,For_Call 03cd BODY_03b8: 03cd e5fc | | Load 0x2,-0x4 03ce 0092 19de | | Action Push_String_Extended,0x19de ; "Rcf_Unit.Remote_Unit_Name" 03d0 e005 | | Load 0x0,0x5 03d1 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d2 e001 | | Load 0x0,0x1 03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d4 e002 | | Load 0x0,0x2 03d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d6 e5fc | | Load 0x2,-0x4 03d7 4801 |H | Short_Literal 0x1 03d8 4801 |H | Short_Literal 0x1 03d9 4800 |H | Short_Literal 0x0 03da e405 | | Load 0x2,0x5 03db e5ff | | Load 0x2,-0x1 03dc e002 | | Load 0x0,0x2 03dd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03de c402 | | Store 0x2,0x2 03df c403 | | Store 0x2,0x3 03e0 00db | | Load_Top At_Offset_3 03e1 6805 |h | Jump_Zero 0x3e7 03e2 00db | | Load_Top At_Offset_3 03e3 00db | | Load_Top At_Offset_3 03e4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 03e5 00da | | Load_Top At_Offset_2 03e6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 03e7 e402 | | Load 0x2,0x2 03e8 e002 | | Load 0x0,0x2 03e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ea 680f |h | Jump_Zero 0x3fa 03eb e5fc | | Load 0x2,-0x4 03ec e006 | | Load 0x0,0x6 03ed 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03ee 603d |`= | Indirect_Literal Discrete,0x42c,{0x00000000, 0x00008147} 03ef e001 | | Load 0x0,0x1 03f0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03f1 e006 | | Load 0x0,0x6 03f2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03f3 6038 |`8 | Indirect_Literal Discrete,0x42c,{0x00000000, 0x00008147} 03f4 e001 | | Load 0x0,0x1 03f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f6 00db | | Load_Top At_Offset_3 03f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 03f8 00da | | Load_Top At_Offset_2 03f9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 03fa 8406 | | Call 0x2,0x6 03fb 0831 | 1 | Execute_Immediate Raise,0x31 03fc TRAP_03b8: 03fc e001 | | Load 0x0,0x1 03fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03fe 010f | | Execute Exception,Equal 03ff 6812 |h | Jump_Zero 0x412 0400 e001 | | Load 0x0,0x1 0401 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0402 e404 | | Load 0x2,0x4 0403 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0404 e402 | | Load 0x2,0x2 0405 e002 | | Load 0x0,0x2 0406 180f | | Execute Package,Field_Execute,Field_Number 0xf 0407 7008 |p | Jump_Nonzero 0x410 0408 e001 | | Load 0x0,0x1 0409 1b0d | | Execute Package,Field_Read,Field_Number 0xd 040a e402 | | Load 0x2,0x2 040b e5fc | | Load 0x2,-0x4 040c e002 | | Load 0x0,0x2 040d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 040e c402 | | Store 0x2,0x2 040f c403 | | Store 0x2,0x3 0410 00db | | Load_Top At_Offset_3 0411 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0412 e5fc | | Load 0x2,-0x4 0413 0092 19de | | Action Push_String_Extended,0x19de ; "Rcf_Unit.Remote_Unit_Name" 0415 e005 | | Load 0x0,0x5 0416 180f | | Execute Package,Field_Execute,Field_Number 0xf 0417 0092 19de | | Action Push_String_Extended,0x19de ; "Rcf_Unit.Remote_Unit_Name" 0419 e005 | | Load 0x0,0x5 041a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 041b e404 | | Load 0x2,0x4 041c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 041d e402 | | Load 0x2,0x2 041e e002 | | Load 0x0,0x2 041f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0420 7008 |p | Jump_Nonzero 0x429 0421 e001 | | Load 0x0,0x1 0422 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0423 e402 | | Load 0x2,0x2 0424 e5fc | | Load 0x2,-0x4 0425 e002 | | Load 0x0,0x2 0426 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0427 c402 | | Store 0x2,0x2 0428 c403 | | Store 0x2,0x3 0429 00db | | Load_Top At_Offset_3 042a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 042b 0000 | | .XXX[0x1] 042c 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0444 | D | .CONST 0x0444 ; Address of begin 0431 0473 | s | .CONST 0x0473 ; Address of exception handler 0432 0006 | | .CONST 0x0006 ; Number of locals 0433 INIT_0430: 0433 e002 | | Load 0x0,0x2 0434 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0435 e001 | | Load 0x0,0x1 0436 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0437 4800 |H | Short_Literal 0x0 0438 e20d | | Load 0x1,0xd 0439 1c08 | | Execute_Immediate Run_Utility,0x8 043a e003 | | Load 0x0,0x3 043b 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 043c 0322 | " | Declare_Variable Record 043d e5fe | | Load 0x2,-0x2 043e e003 | | Load 0x0,0x3 043f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0440 00d9 | | Load_Top At_Offset_1 0441 017d | } | Execute Record,Structure_Write 0442 029f 175b | [| Declare_Subprogram INIT_1758,For_Call 0444 BODY_0430: 0444 e5fc | | Load 0x2,-0x4 0445 0092 19df | | Action Push_String_Extended,0x19df ; "Rcf_Unit.Full_Remote_Unit_Name" 0447 e005 | | Load 0x0,0x5 0448 180e | | Execute Package,Field_Execute,Field_Number 0xe 0449 e001 | | Load 0x0,0x1 044a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044b e002 | | Load 0x0,0x2 044c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044d e5fc | | Load 0x2,-0x4 044e 4801 |H | Short_Literal 0x1 044f 4801 |H | Short_Literal 0x1 0450 4800 |H | Short_Literal 0x0 0451 e405 | | Load 0x2,0x5 0452 e5ff | | Load 0x2,-0x1 0453 e002 | | Load 0x0,0x2 0454 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0455 c402 | | Store 0x2,0x2 0456 c403 | | Store 0x2,0x3 0457 00db | | Load_Top At_Offset_3 0458 6805 |h | Jump_Zero 0x45e 0459 00db | | Load_Top At_Offset_3 045a 00db | | Load_Top At_Offset_3 045b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 045c 00da | | Load_Top At_Offset_2 045d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 045e e402 | | Load 0x2,0x2 045f e002 | | Load 0x0,0x2 0460 180f | | Execute Package,Field_Execute,Field_Number 0xf 0461 680f |h | Jump_Zero 0x471 0462 e5fc | | Load 0x2,-0x4 0463 e006 | | Load 0x0,0x6 0464 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0465 67c6 |g | Indirect_Literal Discrete,0x42c,{0x00000000, 0x00008147} 0466 e001 | | Load 0x0,0x1 0467 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0468 e006 | | Load 0x0,0x6 0469 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 046a 67c1 |g | Indirect_Literal Discrete,0x42c,{0x00000000, 0x00008147} 046b e001 | | Load 0x0,0x1 046c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 046d 00db | | Load_Top At_Offset_3 046e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 046f 00da | | Load_Top At_Offset_2 0470 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0471 8406 | | Call 0x2,0x6 0472 0831 | 1 | Execute_Immediate Raise,0x31 0473 TRAP_0430: 0473 e001 | | Load 0x0,0x1 0474 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0475 010f | | Execute Exception,Equal 0476 6812 |h | Jump_Zero 0x489 0477 e001 | | Load 0x0,0x1 0478 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0479 e404 | | Load 0x2,0x4 047a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 047b e402 | | Load 0x2,0x2 047c e002 | | Load 0x0,0x2 047d 180f | | Execute Package,Field_Execute,Field_Number 0xf 047e 7008 |p | Jump_Nonzero 0x487 047f e001 | | Load 0x0,0x1 0480 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0481 e402 | | Load 0x2,0x2 0482 e5fc | | Load 0x2,-0x4 0483 e002 | | Load 0x0,0x2 0484 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0485 c402 | | Store 0x2,0x2 0486 c403 | | Store 0x2,0x3 0487 00db | | Load_Top At_Offset_3 0488 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0489 e5fc | | Load 0x2,-0x4 048a 0092 19df | | Action Push_String_Extended,0x19df ; "Rcf_Unit.Full_Remote_Unit_Name" 048c e005 | | Load 0x0,0x5 048d 180f | | Execute Package,Field_Execute,Field_Number 0xf 048e 0092 19df | | Action Push_String_Extended,0x19df ; "Rcf_Unit.Full_Remote_Unit_Name" 0490 e005 | | Load 0x0,0x5 0491 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0492 e404 | | Load 0x2,0x4 0493 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0494 e402 | | Load 0x2,0x2 0495 e002 | | Load 0x0,0x2 0496 180f | | Execute Package,Field_Execute,Field_Number 0xf 0497 7008 |p | Jump_Nonzero 0x4a0 0498 e001 | | Load 0x0,0x1 0499 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049a e402 | | Load 0x2,0x2 049b e5fc | | Load 0x2,-0x4 049c e002 | | Load 0x0,0x2 049d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 049e c402 | | Store 0x2,0x2 049f c403 | | Store 0x2,0x3 04a0 00db | | Load_Top At_Offset_3 04a1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04a2 0000 0000 | | .BLANK 0000[0x6] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04c5 | | .CONST 0x04c5 ; Address of begin 04a9 04cd | | .CONST 0x04cd ; Address of exception handler 04aa 0006 | | .CONST 0x0006 ; Number of locals 04ab INIT_04a8: 04ab e003 | | Load 0x0,0x3 04ac 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 04ad 0322 | " | Declare_Variable Record 04ae e5fe | | Load 0x2,-0x2 04af e003 | | Load 0x0,0x3 04b0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04b1 00d9 | | Load_Top At_Offset_1 04b2 017d | } | Execute Record,Structure_Write 04b3 e5fc | | Load 0x2,-0x4 04b4 e5fe | | Load 0x2,-0x2 04b5 e5ff | | Load 0x2,-0x1 04b6 e008 | | Load 0x0,0x8 04b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04b8 00d8 | | Load_Top At_Offset_0 04b9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04ba e5fd | | Load 0x2,-0x3 04bb 00db | | Load_Top At_Offset_3 04bc e003 | | Load 0x0,0x3 04bd 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 04be 4800 |H | Short_Literal 0x0 04bf e20d | | Load 0x1,0xd 04c0 1c08 | | Execute_Immediate Run_Utility,0x8 04c1 00d9 | | Load_Top At_Offset_1 04c2 01db | | Execute Vector,Length 04c3 e20d | | Load 0x1,0xd 04c4 1c08 | | Execute_Immediate Run_Utility,0x8 04c5 BODY_04a8: 04c5 00da | | Load_Top At_Offset_2 04c6 00d9 | | Load_Top At_Offset_1 04c7 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 04c8 4800 |H | Short_Literal 0x0 04c9 00d9 | | Load_Top At_Offset_1 04ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04cb 00d8 | | Load_Top At_Offset_0 04cc 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04cd TRAP_04a8: 04cd e001 | | Load 0x0,0x1 04ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04cf 010f | | Execute Exception,Equal 04d0 6806 |h | Jump_Zero 0x4d7 04d1 e001 | | Load 0x0,0x1 04d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04d3 00db | | Load_Top At_Offset_3 04d4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04d5 00da | | Load_Top At_Offset_2 04d6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04d7 e5fc | | Load 0x2,-0x4 04d8 0092 19df | | Action Push_String_Extended,0x19df ; "Rcf_Unit.Full_Remote_Unit_Name" 04da e005 | | Load 0x0,0x5 04db 180f | | Execute Package,Field_Execute,Field_Number 0xf 04dc 0092 19e0 | | Action Push_String_Extended,0x19e0 ; "Full_Remote_Unit_Name" 04de e005 | | Load 0x0,0x5 04df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e0 00db | | Load_Top At_Offset_3 04e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04e2 00da | | Load_Top At_Offset_2 04e3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04e4 0000 0000 | | .BLANK 0000[0x4] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f8 | | .CONST 0x04f8 ; Address of begin 04e9 0543 | C | .CONST 0x0543 ; Address of exception handler 04ea 0004 | | .CONST 0x0004 ; Number of locals 04eb INIT_04e8: 04eb e002 | | Load 0x0,0x2 04ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ed e001 | | Load 0x0,0x1 04ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04f0 e003 | | Load 0x0,0x3 04f1 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 04f2 0322 | " | Declare_Variable Record 04f3 e5fc | | Load 0x2,-0x4 04f4 e003 | | Load 0x0,0x3 04f5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04f6 00d9 | | Load_Top At_Offset_1 04f7 017d | } | Execute Record,Structure_Write 04f8 BODY_04e8: 04f8 e5fb | | Load 0x2,-0x5 04f9 0092 19e1 | | Action Push_String_Extended,0x19e1 ; "Rcf_Unit.Set_Remote_Unit_Name" 04fb e005 | | Load 0x0,0x5 04fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 04fd e001 | | Load 0x0,0x1 04fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ff e002 | | Load 0x0,0x2 0500 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0501 e5fb | | Load 0x2,-0x5 0502 4800 |H | Short_Literal 0x0 0503 4801 |H | Short_Literal 0x1 0504 4801 |H | Short_Literal 0x1 0505 e404 | | Load 0x2,0x4 0506 e5ff | | Load 0x2,-0x1 0507 e002 | | Load 0x0,0x2 0508 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0509 c402 | | Store 0x2,0x2 050a 005a | Z | Store_Top Discrete,At_Offset_2 050b 00d9 | | Load_Top At_Offset_1 050c 6803 |h | Jump_Zero 0x510 050d 00d9 | | Load_Top At_Offset_1 050e a5fa | | Store_Unchecked 0x2,-0x6 050f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0510 00da | | Load_Top At_Offset_2 0511 e002 | | Load 0x0,0x2 0512 180f | | Execute Package,Field_Execute,Field_Number 0xf 0513 680d |h | Jump_Zero 0x521 0514 e5fb | | Load 0x2,-0x5 0515 e006 | | Load 0x0,0x6 0516 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0517 6058 |`X | Indirect_Literal Discrete,0x570,{0x00000000, 0x00008147} 0518 e001 | | Load 0x0,0x1 0519 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 051a e006 | | Load 0x0,0x6 051b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 051c 6053 |`S | Indirect_Literal Discrete,0x570,{0x00000000, 0x00008147} 051d e001 | | Load 0x0,0x1 051e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 051f a5fa | | Store_Unchecked 0x2,-0x6 0520 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0521 e001 | | Load 0x0,0x1 0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0523 00db | | Load_Top At_Offset_3 0524 e5fb | | Load 0x2,-0x5 0525 00db | | Load_Top At_Offset_3 0526 e5fd | | Load 0x2,-0x3 0527 e5fe | | Load 0x2,-0x2 0528 e009 | | Load 0x0,0x9 0529 1b18 | | Execute Package,Field_Read,Field_Number 0x18 052a 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 052b c402 | | Store 0x2,0x2 052c 005a | Z | Store_Top Discrete,At_Offset_2 052d 00d9 | | Load_Top At_Offset_1 052e 680b |h | Jump_Zero 0x53a 052f 00d9 | | Load_Top At_Offset_1 0530 a5fa | | Store_Unchecked 0x2,-0x6 0531 e001 | | Load 0x0,0x1 0532 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0533 00db | | Load_Top At_Offset_3 0534 e5fb | | Load 0x2,-0x5 0535 e002 | | Load 0x0,0x2 0536 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0537 c402 | | Store 0x2,0x2 0538 005a | Z | Store_Top Discrete,At_Offset_2 0539 4506 |E | Exit_Suprogram New_Top_Offset 0x6 053a e001 | | Load 0x0,0x1 053b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 053c 00db | | Load_Top At_Offset_3 053d e5fb | | Load 0x2,-0x5 053e e002 | | Load 0x0,0x2 053f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0540 c402 | | Store 0x2,0x2 0541 c5fa | | Store 0x2,-0x6 0542 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0543 TRAP_04e8: 0543 e001 | | Load 0x0,0x1 0544 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0545 010f | | Execute Exception,Equal 0546 6810 |h | Jump_Zero 0x557 0547 e001 | | Load 0x0,0x1 0548 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0549 a5fa | | Store_Unchecked 0x2,-0x6 054a 00db | | Load_Top At_Offset_3 054b e002 | | Load 0x0,0x2 054c 180f | | Execute Package,Field_Execute,Field_Number 0xf 054d 7008 |p | Jump_Nonzero 0x556 054e e001 | | Load 0x0,0x1 054f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0550 e402 | | Load 0x2,0x2 0551 e5fb | | Load 0x2,-0x5 0552 e002 | | Load 0x0,0x2 0553 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0554 c402 | | Store 0x2,0x2 0555 005b | [ | Store_Top Discrete,At_Offset_3 0556 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0557 e5fb | | Load 0x2,-0x5 0558 0092 19e1 | | Action Push_String_Extended,0x19e1 ; "Rcf_Unit.Set_Remote_Unit_Name" 055a e005 | | Load 0x0,0x5 055b 180f | | Execute Package,Field_Execute,Field_Number 0xf 055c 0092 19e1 | | Action Push_String_Extended,0x19e1 ; "Rcf_Unit.Set_Remote_Unit_Name" 055e e005 | | Load 0x0,0x5 055f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0560 a5fa | | Store_Unchecked 0x2,-0x6 0561 00db | | Load_Top At_Offset_3 0562 e002 | | Load 0x0,0x2 0563 180f | | Execute Package,Field_Execute,Field_Number 0xf 0564 7008 |p | Jump_Nonzero 0x56d 0565 e001 | | Load 0x0,0x1 0566 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0567 e402 | | Load 0x2,0x2 0568 e5fb | | Load 0x2,-0x5 0569 e002 | | Load 0x0,0x2 056a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 056b c402 | | Store 0x2,0x2 056c 005b | [ | Store_Top Discrete,At_Offset_3 056d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 056e 0000 0000 | | .XXX[0x2] 0570 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 0574 0000 0000 | | .BLANK 0000[0x4] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 058a | | .CONST 0x058a ; Address of begin 0579 05b9 | | .CONST 0x05b9 ; Address of exception handler 057a 0005 | | .CONST 0x0005 ; Number of locals 057b INIT_0578: 057b e002 | | Load 0x0,0x2 057c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057d e001 | | Load 0x0,0x1 057e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0580 e003 | | Load 0x0,0x3 0581 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0582 0322 | " | Declare_Variable Record 0583 e5fd | | Load 0x2,-0x3 0584 e003 | | Load 0x0,0x3 0585 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0586 00d9 | | Load_Top At_Offset_1 0587 017d | } | Execute Record,Structure_Write 0588 029f 177b | {| Declare_Subprogram INIT_1778,For_Call 058a BODY_0578: 058a e009 | | Load 0x0,0x9 058b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 058c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 058d c5fb | | Store 0x2,-0x5 058e e5fc | | Load 0x2,-0x4 058f 0092 19e2 | | Action Push_String_Extended,0x19e2 ; "Rcf_Unit.Local_Update_Time" 0591 e005 | | Load 0x0,0x5 0592 180e | | Execute Package,Field_Execute,Field_Number 0xe 0593 e001 | | Load 0x0,0x1 0594 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0595 e002 | | Load 0x0,0x2 0596 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0597 e5fc | | Load 0x2,-0x4 0598 4801 |H | Short_Literal 0x1 0599 4801 |H | Short_Literal 0x1 059a 4800 |H | Short_Literal 0x0 059b e404 | | Load 0x2,0x4 059c e5ff | | Load 0x2,-0x1 059d e002 | | Load 0x0,0x2 059e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 059f c402 | | Store 0x2,0x2 05a0 005b | [ | Store_Top Discrete,At_Offset_3 05a1 00da | | Load_Top At_Offset_2 05a2 6803 |h | Jump_Zero 0x5a6 05a3 00da | | Load_Top At_Offset_2 05a4 a5fa | | Store_Unchecked 0x2,-0x6 05a5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05a6 00db | | Load_Top At_Offset_3 05a7 e002 | | Load 0x0,0x2 05a8 180f | | Execute Package,Field_Execute,Field_Number 0xf 05a9 680d |h | Jump_Zero 0x5b7 05aa e5fc | | Load 0x2,-0x4 05ab e006 | | Load 0x0,0x6 05ac 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05ad 67c2 |g | Indirect_Literal Discrete,0x570,{0x00000000, 0x00008147} 05ae e001 | | Load 0x0,0x1 05af 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05b0 e006 | | Load 0x0,0x6 05b1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05b2 67bd |g | Indirect_Literal Discrete,0x570,{0x00000000, 0x00008147} 05b3 e001 | | Load 0x0,0x1 05b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05b5 a5fa | | Store_Unchecked 0x2,-0x6 05b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05b7 8405 | | Call 0x2,0x5 05b8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05b9 TRAP_0578: 05b9 e001 | | Load 0x0,0x1 05ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05bb 010f | | Execute Exception,Equal 05bc 6810 |h | Jump_Zero 0x5cd 05bd e001 | | Load 0x0,0x1 05be 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05bf a5fa | | Store_Unchecked 0x2,-0x6 05c0 e402 | | Load 0x2,0x2 05c1 e002 | | Load 0x0,0x2 05c2 180f | | Execute Package,Field_Execute,Field_Number 0xf 05c3 7008 |p | Jump_Nonzero 0x5cc 05c4 e001 | | Load 0x0,0x1 05c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c6 e402 | | Load 0x2,0x2 05c7 e5fc | | Load 0x2,-0x4 05c8 e002 | | Load 0x0,0x2 05c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05ca c402 | | Store 0x2,0x2 05cb c403 | | Store 0x2,0x3 05cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05cd e5fc | | Load 0x2,-0x4 05ce 0092 19e2 | | Action Push_String_Extended,0x19e2 ; "Rcf_Unit.Local_Update_Time" 05d0 e005 | | Load 0x0,0x5 05d1 180f | | Execute Package,Field_Execute,Field_Number 0xf 05d2 0092 19e2 | | Action Push_String_Extended,0x19e2 ; "Rcf_Unit.Local_Update_Time" 05d4 e005 | | Load 0x0,0x5 05d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05d6 a5fa | | Store_Unchecked 0x2,-0x6 05d7 e402 | | Load 0x2,0x2 05d8 e002 | | Load 0x0,0x2 05d9 180f | | Execute Package,Field_Execute,Field_Number 0xf 05da 7008 |p | Jump_Nonzero 0x5e3 05db e001 | | Load 0x0,0x1 05dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05dd e402 | | Load 0x2,0x2 05de e5fc | | Load 0x2,-0x4 05df e002 | | Load 0x0,0x2 05e0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05e1 c402 | | Store 0x2,0x2 05e2 c403 | | Store 0x2,0x3 05e3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05e4 0000 0000 | | .BLANK 0000[0x4] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f8 | | .CONST 0x05f8 ; Address of begin 05e9 064c | L | .CONST 0x064c ; Address of exception handler 05ea 0004 | | .CONST 0x0004 ; Number of locals 05eb INIT_05e8: 05eb e002 | | Load 0x0,0x2 05ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ed e001 | | Load 0x0,0x1 05ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05f0 e003 | | Load 0x0,0x3 05f1 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 05f2 0322 | " | Declare_Variable Record 05f3 e5fc | | Load 0x2,-0x4 05f4 e003 | | Load 0x0,0x3 05f5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 05f6 00d9 | | Load_Top At_Offset_1 05f7 017d | } | Execute Record,Structure_Write 05f8 BODY_05e8: 05f8 e5fb | | Load 0x2,-0x5 05f9 0092 19e3 | | Action Push_String_Extended,0x19e3 ; "Rcf_Unit.Set_Local_Update_Time: Time = " 05fb 4800 |H | Short_Literal 0x0 05fc 4800 |H | Short_Literal 0x0 05fd 4800 |H | Short_Literal 0x0 05fe e5fd | | Load 0x2,-0x3 05ff e00a | | Load 0x0,0xa 0600 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0601 e00a | | Load 0x0,0xa 0602 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0603 01cc | | Execute Vector,Catenate 0604 e005 | | Load 0x0,0x5 0605 180e | | Execute Package,Field_Execute,Field_Number 0xe 0606 e001 | | Load 0x0,0x1 0607 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0608 e002 | | Load 0x0,0x2 0609 1b0d | | Execute Package,Field_Read,Field_Number 0xd 060a e5fb | | Load 0x2,-0x5 060b 4800 |H | Short_Literal 0x0 060c 4801 |H | Short_Literal 0x1 060d 4801 |H | Short_Literal 0x1 060e e404 | | Load 0x2,0x4 060f e5ff | | Load 0x2,-0x1 0610 e002 | | Load 0x0,0x2 0611 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0612 c402 | | Store 0x2,0x2 0613 005a | Z | Store_Top Discrete,At_Offset_2 0614 00d9 | | Load_Top At_Offset_1 0615 6803 |h | Jump_Zero 0x619 0616 00d9 | | Load_Top At_Offset_1 0617 a5fa | | Store_Unchecked 0x2,-0x6 0618 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0619 00da | | Load_Top At_Offset_2 061a e002 | | Load 0x0,0x2 061b 180f | | Execute Package,Field_Execute,Field_Number 0xf 061c 680d |h | Jump_Zero 0x62a 061d e5fb | | Load 0x2,-0x5 061e e006 | | Load 0x0,0x6 061f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0620 6057 |`W | Indirect_Literal Discrete,0x678,{0x00000000, 0x00008147} 0621 e001 | | Load 0x0,0x1 0622 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0623 e006 | | Load 0x0,0x6 0624 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0625 6052 |`R | Indirect_Literal Discrete,0x678,{0x00000000, 0x00008147} 0626 e001 | | Load 0x0,0x1 0627 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0628 a5fa | | Store_Unchecked 0x2,-0x6 0629 4506 |E | Exit_Suprogram New_Top_Offset 0x6 062a e001 | | Load 0x0,0x1 062b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 062c 00db | | Load_Top At_Offset_3 062d e5fb | | Load 0x2,-0x5 062e 00db | | Load_Top At_Offset_3 062f e5fd | | Load 0x2,-0x3 0630 e5fe | | Load 0x2,-0x2 0631 e009 | | Load 0x0,0x9 0632 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0633 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0634 c402 | | Store 0x2,0x2 0635 005a | Z | Store_Top Discrete,At_Offset_2 0636 00d9 | | Load_Top At_Offset_1 0637 680b |h | Jump_Zero 0x643 0638 00d9 | | Load_Top At_Offset_1 0639 a5fa | | Store_Unchecked 0x2,-0x6 063a e001 | | Load 0x0,0x1 063b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063c 00db | | Load_Top At_Offset_3 063d e5fb | | Load 0x2,-0x5 063e e002 | | Load 0x0,0x2 063f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0640 c402 | | Store 0x2,0x2 0641 005a | Z | Store_Top Discrete,At_Offset_2 0642 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0643 e001 | | Load 0x0,0x1 0644 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0645 00db | | Load_Top At_Offset_3 0646 e5fb | | Load 0x2,-0x5 0647 e002 | | Load 0x0,0x2 0648 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0649 c402 | | Store 0x2,0x2 064a c5fa | | Store 0x2,-0x6 064b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 064c TRAP_05e8: 064c e001 | | Load 0x0,0x1 064d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 064e 010f | | Execute Exception,Equal 064f 6810 |h | Jump_Zero 0x660 0650 e001 | | Load 0x0,0x1 0651 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0652 a5fa | | Store_Unchecked 0x2,-0x6 0653 00db | | Load_Top At_Offset_3 0654 e002 | | Load 0x0,0x2 0655 180f | | Execute Package,Field_Execute,Field_Number 0xf 0656 7008 |p | Jump_Nonzero 0x65f 0657 e001 | | Load 0x0,0x1 0658 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0659 e402 | | Load 0x2,0x2 065a e5fb | | Load 0x2,-0x5 065b e002 | | Load 0x0,0x2 065c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 065d c402 | | Store 0x2,0x2 065e 005b | [ | Store_Top Discrete,At_Offset_3 065f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0660 e5fb | | Load 0x2,-0x5 0661 0092 19e4 | | Action Push_String_Extended,0x19e4 ; "Rcf_Unit.Set_Local_Update_Time" 0663 e005 | | Load 0x0,0x5 0664 180f | | Execute Package,Field_Execute,Field_Number 0xf 0665 0092 19e4 | | Action Push_String_Extended,0x19e4 ; "Rcf_Unit.Set_Local_Update_Time" 0667 e005 | | Load 0x0,0x5 0668 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0669 a5fa | | Store_Unchecked 0x2,-0x6 066a 00db | | Load_Top At_Offset_3 066b e002 | | Load 0x0,0x2 066c 180f | | Execute Package,Field_Execute,Field_Number 0xf 066d 7008 |p | Jump_Nonzero 0x676 066e e001 | | Load 0x0,0x1 066f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0670 e402 | | Load 0x2,0x2 0671 e5fb | | Load 0x2,-0x5 0672 e002 | | Load 0x0,0x2 0673 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0674 c402 | | Store 0x2,0x2 0675 005b | [ | Store_Top Discrete,At_Offset_3 0676 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0677 0000 | | .XXX[0x1] 0678 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 067c 0000 0000 | | .BLANK 0000[0x4] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 068a | | .CONST 0x068a ; Address of begin 0681 069a | | .CONST 0x069a ; Address of exception handler 0682 0003 | | .CONST 0x0003 ; Number of locals 0683 INIT_0680: 0683 00da | | Load_Top At_Offset_2 0684 e004 | | Load 0x0,0x4 0685 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0686 e26f | o | Load 0x1,0x6f 0687 0322 | " | Declare_Variable Record 0688 00d8 | | Load_Top At_Offset_0 0689 1c00 | | Execute_Immediate Run_Utility,0x0 068a BODY_0680: 068a 4800 |H | Short_Literal 0x0 068b a5fc | | Store_Unchecked 0x2,-0x4 068c 00d8 | | Load_Top At_Offset_0 068d e5fe | | Load 0x2,-0x2 068e 00db | | Load_Top At_Offset_3 068f 82a3 | | Call 0x1,0xa3 0690 00d1 | | Pop_Control Pop_Count_1 0691 4801 |H | Short_Literal 0x1 0692 00d9 | | Load_Top At_Offset_1 0693 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0694 00da | | Load_Top At_Offset_2 0695 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0696 01cf | | Execute Vector,Slice_Read 0697 829b | | Call 0x1,0x9b 0698 c5fd | | Store 0x2,-0x3 0699 4503 |E | Exit_Suprogram New_Top_Offset 0x3 069a TRAP_0680: 069a 0007 | | Action Break_Optional 069b 6004 |` | Indirect_Literal Discrete,0x6a0,{0x00000000, 0x0000813b} 069c a5fc | | Store_Unchecked 0x2,-0x4 069d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 069e 0000 0000 | | .XXX[0x2] 06a0 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 06a4 0000 0000 | | .BLANK 0000[0x4] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06b4 | | .CONST 0x06b4 ; Address of begin 06a9 06de | | .CONST 0x06de ; Address of exception handler 06aa 0004 | | .CONST 0x0004 ; Number of locals 06ab INIT_06a8: 06ab 00da | | Load_Top At_Offset_2 06ac e004 | | Load 0x0,0x4 06ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06ae e26f | o | Load 0x1,0x6f 06af 0322 | " | Declare_Variable Record 06b0 00d8 | | Load_Top At_Offset_0 06b1 1c00 | | Execute_Immediate Run_Utility,0x0 06b2 e5fe | | Load 0x2,-0x2 06b3 829a | | Call 0x1,0x9a 06b4 BODY_06a8: 06b4 4800 |H | Short_Literal 0x0 06b5 a5fc | | Store_Unchecked 0x2,-0x4 06b6 00d9 | | Load_Top At_Offset_1 06b7 e5fd | | Load 0x2,-0x3 06b8 e402 | | Load 0x2,0x2 06b9 82a3 | | Call 0x1,0xa3 06ba 00d1 | | Pop_Control Pop_Count_1 06bb 00d8 | | Load_Top At_Offset_0 06bc 4801 |H | Short_Literal 0x1 06bd 00da | | Load_Top At_Offset_2 06be 01db | | Execute Vector,Length 06bf 00d8 | | Load_Top At_Offset_0 06c0 00e2 | | Load_Encached Integer_Cache 06c1 0260 | ` | Execute Discrete,In_Type 06c2 7001 |p | Jump_Nonzero 0x6c4 06c3 0801 | | Execute_Immediate Raise,0x1 06c4 e403 | | Load 0x2,0x3 06c5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 06c6 01ce | | Execute Vector,Slice_Write 06c7 00d8 | | Load_Top At_Offset_0 06c8 01db | | Execute Vector,Length 06c9 00da | | Load_Top At_Offset_2 06ca 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 06cb e001 | | Load 0x0,0x1 06cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06cd e5fd | | Load 0x2,-0x3 06ce e5ff | | Load 0x2,-0x1 06cf 8261 | a | Call 0x1,0x61 06d0 c5fc | | Store 0x2,-0x4 06d1 e5fd | | Load 0x2,-0x3 06d2 00da | | Load_Top At_Offset_2 06d3 e402 | | Load 0x2,0x2 06d4 82a5 | | Call 0x1,0xa5 06d5 e001 | | Load 0x0,0x1 06d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d7 e5fd | | Load 0x2,-0x3 06d8 e5ff | | Load 0x2,-0x1 06d9 8260 | ` | Call 0x1,0x60 06da c5fc | | Store 0x2,-0x4 06db 4800 |H | Short_Literal 0x0 06dc a5fc | | Store_Unchecked 0x2,-0x4 06dd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06de TRAP_06a8: 06de e00b | | Load 0x0,0xb 06df 010f | | Execute Exception,Equal 06e0 6816 |h | Jump_Zero 0x6f7 06e1 e5fd | | Load 0x2,-0x3 06e2 4801 |H | Short_Literal 0x1 06e3 4801 |H | Short_Literal 0x1 06e4 e006 | | Load 0x0,0x6 06e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06e6 0334 | 4 | Declare_Variable Array,With_Constraint 06e7 0092 19e5 | | Action Push_String_Extended,0x19e5 ; " 128" 06e9 e006 | | Load 0x0,0x6 06ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06eb e006 | | Load 0x0,0x6 06ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06ed 0119 | | Execute Any,Check_In_Formal_Type 06ee 4801 |H | Short_Literal 0x1 06ef 00da | | Load_Top At_Offset_2 06f0 01d6 | | Execute Vector,Field_Write 06f1 600a |` | Indirect_Literal Discrete,0x6fc,{0x00000000, 0x0000819e} 06f2 e001 | | Load 0x0,0x1 06f3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06f4 6007 |` | Indirect_Literal Discrete,0x6fc,{0x00000000, 0x0000819e} 06f5 a5fc | | Store_Unchecked 0x2,-0x4 06f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06f7 67a8 |g | Indirect_Literal Discrete,0x6a0,{0x00000000, 0x0000813b} 06f8 a5fc | | Store_Unchecked 0x2,-0x4 06f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06fa 0000 0000 | | .XXX[0x2] 06fc 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0731 | 1 | .CONST 0x0731 ; Address of begin 0701 085b | [ | .CONST 0x085b ; Address of exception handler 0702 000a | | .CONST 0x000a ; Number of locals 0703 INIT_0700: 0703 e003 | | Load 0x0,0x3 0704 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0705 0322 | " | Declare_Variable Record 0706 e5fd | | Load 0x2,-0x3 0707 e003 | | Load 0x0,0x3 0708 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0709 00d9 | | Load_Top At_Offset_1 070a 017d | } | Execute Record,Structure_Write 070b e5fe | | Load 0x2,-0x2 070c 82a9 | | Call 0x1,0xa9 070d 0092 19e6 | | Action Push_String_Extended,0x19e6 ; "Rcf_Temp_" 070f 4800 |H | Short_Literal 0x0 0710 4803 |H | Short_Literal 0x3 0711 4804 |H | Short_Literal 0x4 0712 e00a | | Load 0x0,0xa 0713 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0714 e00a | | Load 0x0,0xa 0715 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0716 01cc | | Execute Vector,Catenate 0717 e5fe | | Load 0x2,-0x2 0718 82a8 | | Call 0x1,0xa8 0719 e5fa | | Load 0x2,-0x6 071a e5fc | | Load 0x2,-0x4 071b e5fd | | Load 0x2,-0x3 071c e5ff | | Load 0x2,-0x1 071d 8229 | ) | Call 0x1,0x29 071e e002 | | Load 0x0,0x2 071f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0720 e001 | | Load 0x0,0x1 0721 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0722 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0723 e00c | | Load 0x0,0xc 0724 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0725 02c7 | | Declare_Variable Any 0726 e00c | | Load 0x0,0xc 0727 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0728 a408 | | Store_Unchecked 0x2,0x8 0729 e00d | | Load 0x0,0xd 072a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 072c e00e | | Load 0x0,0xe 072d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072e 02c7 | | Declare_Variable Any 072f 00d8 | | Load_Top At_Offset_0 0730 1c00 | | Execute_Immediate Run_Utility,0x0 0731 BODY_0700: 0731 e00c | | Load 0x0,0xc 0732 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0733 c5f9 | | Store 0x2,-0x7 0734 4800 |H | Short_Literal 0x0 0735 a5f8 | | Store_Unchecked 0x2,-0x8 0736 e5fa | | Load 0x2,-0x6 0737 e5ff | | Load 0x2,-0x1 0738 e004 | | Load 0x0,0x4 0739 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 073a 6814 |h | Jump_Zero 0x74f 073b e5fa | | Load 0x2,-0x6 073c 4801 |H | Short_Literal 0x1 073d 4801 |H | Short_Literal 0x1 073e e006 | | Load 0x0,0x6 073f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0740 0334 | 4 | Declare_Variable Array,With_Constraint 0741 0092 19e7 | | Action Push_String_Extended,0x19e7 ; "Upload_Ada_Unit" 0743 e006 | | Load 0x0,0x6 0744 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0745 e006 | | Load 0x0,0x6 0746 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0747 0119 | | Execute Any,Check_In_Formal_Type 0748 4801 |H | Short_Literal 0x1 0749 00da | | Load_Top At_Offset_2 074a 01d6 | | Execute Vector,Field_Write 074b 6148 |aH | Indirect_Literal Discrete,0x894,{0x00000000, 0x0000818f} 074c e001 | | Load 0x0,0x1 074d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 074e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 074f e001 | | Load 0x0,0x1 0750 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0751 e5fa | | Load 0x2,-0x6 0752 e5ff | | Load 0x2,-0x1 0753 e004 | | Load 0x0,0x4 0754 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0755 4800 |H | Short_Literal 0x0 0756 e5fb | | Load 0x2,-0x5 0757 e405 | | Load 0x2,0x5 0758 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0759 e404 | | Load 0x2,0x4 075a e00f | | Load 0x0,0xf 075b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 075c c407 | | Store 0x2,0x7 075d 00db | | Load_Top At_Offset_3 075e 6807 |h | Jump_Zero 0x766 075f e5fa | | Load 0x2,-0x6 0760 e407 | | Load 0x2,0x7 0761 e001 | | Load 0x0,0x1 0762 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0763 00db | | Load_Top At_Offset_3 0764 a5f8 | | Store_Unchecked 0x2,-0x8 0765 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0766 e5fa | | Load 0x2,-0x6 0767 6128 |a( | Indirect_Literal Discrete,0x890,{0x00000000, 0x00008191} 0768 e001 | | Load 0x0,0x1 0769 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 076a e00d | | Load 0x0,0xd 076b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 076c 00db | | Load_Top At_Offset_3 076d 0120 | | Execute Any,Is_Value 076e 6803 |h | Jump_Zero 0x772 076f e00c | | Load 0x0,0xc 0770 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0771 7801 |x | Jump 0x773 0772 00db | | Load_Top At_Offset_3 0773 e010 | | Load 0x0,0x10 0774 180e | | Execute Package,Field_Execute,Field_Number 0xe 0775 e010 | | Load 0x0,0x10 0776 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0777 e010 | | Load 0x0,0x10 0778 180e | | Execute Package,Field_Execute,Field_Number 0xe 0779 e010 | | Load 0x0,0x10 077a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 077b e010 | | Load 0x0,0x10 077c 180e | | Execute Package,Field_Execute,Field_Number 0xe 077d e010 | | Load 0x0,0x10 077e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 077f e010 | | Load 0x0,0x10 0780 180e | | Execute Package,Field_Execute,Field_Number 0xe 0781 e010 | | Load 0x0,0x10 0782 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0783 e010 | | Load 0x0,0x10 0784 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0785 0337 | 7 | Declare_Variable Array 0786 4801 |H | Short_Literal 0x1 0787 4805 |H | Short_Literal 0x5 0788 00da | | Load_Top At_Offset_2 0789 01d6 | | Execute Vector,Field_Write 078a 4801 |H | Short_Literal 0x1 078b 4807 |H | Short_Literal 0x7 078c 00da | | Load_Top At_Offset_2 078d 01d6 | | Execute Vector,Field_Write 078e 4801 |H | Short_Literal 0x1 078f 4808 |H | Short_Literal 0x8 0790 00da | | Load_Top At_Offset_2 0791 01d6 | | Execute Vector,Field_Write 0792 4804 |H | Short_Literal 0x4 0793 4800 |H | Short_Literal 0x0 0794 4800 |H | Short_Literal 0x0 0795 00d9 | | Load_Top At_Offset_1 0796 e411 | | Load 0x2,0x11 0797 01d6 | | Execute Vector,Field_Write 0798 3ffb |? | Loop_Increasing 0x794 0799 4800 |H | Short_Literal 0x0 079a 4806 |H | Short_Literal 0x6 079b 00da | | Load_Top At_Offset_2 079c 01d6 | | Execute Vector,Field_Write 079d 480b |H | Short_Literal 0xb 079e 4809 |H | Short_Literal 0x9 079f 4800 |H | Short_Literal 0x0 07a0 00d9 | | Load_Top At_Offset_1 07a1 e411 | | Load 0x2,0x11 07a2 01d6 | | Execute Vector,Field_Write 07a3 3ffb |? | Loop_Increasing 0x79f 07a4 e010 | | Load 0x0,0x10 07a5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 07a6 01c3 | | Execute Vector,Check_In_Type 07a7 4802 |H | Short_Literal 0x2 07a8 e010 | | Load 0x0,0x10 07a9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 07aa e011 | | Load 0x0,0x11 07ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07ac 00ea | | Load_Encached Null_String_Cache 07ad 4800 |H | Short_Literal 0x0 07ae 4801 |H | Short_Literal 0x1 07af 4804 |H | Short_Literal 0x4 07b0 e403 | | Load 0x2,0x3 07b1 e404 | | Load 0x2,0x4 07b2 e00d | | Load 0x0,0xd 07b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 07b4 c408 | | Store 0x2,0x8 07b5 005a | Z | Store_Top Discrete,At_Offset_2 07b6 00d9 | | Load_Top At_Offset_1 07b7 6826 |h& | Jump_Zero 0x7de 07b8 e5fa | | Load 0x2,-0x6 07b9 4801 |H | Short_Literal 0x1 07ba 4802 |H | Short_Literal 0x2 07bb e006 | | Load 0x0,0x6 07bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07bd 0334 | 4 | Declare_Variable Array,With_Constraint 07be e404 | | Load 0x2,0x4 07bf e006 | | Load 0x0,0x6 07c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07c1 e006 | | Load 0x0,0x6 07c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07c3 0119 | | Execute Any,Check_In_Formal_Type 07c4 4801 |H | Short_Literal 0x1 07c5 00da | | Load_Top At_Offset_2 07c6 01d6 | | Execute Vector,Field_Write 07c7 00db | | Load_Top At_Offset_3 07c8 e00d | | Load 0x0,0xd 07c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ca 011c | | Execute Any,Convert_Unchecked 07cb 1c01 | | Execute_Immediate Run_Utility,0x1 07cc e006 | | Load 0x0,0x6 07cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07ce e006 | | Load 0x0,0x6 07cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07d0 0119 | | Execute Any,Check_In_Formal_Type 07d1 4802 |H | Short_Literal 0x2 07d2 00da | | Load_Top At_Offset_2 07d3 01d6 | | Execute Vector,Field_Write 07d4 60b7 |` | Indirect_Literal Discrete,0x88c,{0x00000000, 0x0000815d} 07d5 e001 | | Load 0x0,0x1 07d6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07d7 e006 | | Load 0x0,0x6 07d8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 07d9 60b2 |` | Indirect_Literal Discrete,0x88c,{0x00000000, 0x0000815d} 07da e001 | | Load 0x0,0x1 07db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07dc a5f8 | | Store_Unchecked 0x2,-0x8 07dd 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07de 00da | | Load_Top At_Offset_2 07df c5f9 | | Store 0x2,-0x7 07e0 0092 19e8 | | Action Push_String_Extended,0x19e8 ; "<QUIET>" 07e2 0092 19e9 | | Action Push_String_Extended,0x19e9 ; "<DIRECTORIES>" 07e4 e404 | | Load 0x2,0x4 07e5 e012 | | Load 0x0,0x12 07e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 07e7 e5fa | | Load 0x2,-0x6 07e8 0092 19ea | | Action Push_String_Extended,0x19ea ; "Rcf_Unit.Upload_Ada_Unit" 07ea e005 | | Load 0x0,0x5 07eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 07ec e001 | | Load 0x0,0x1 07ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ee e002 | | Load 0x0,0x2 07ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07f0 e5fa | | Load 0x2,-0x6 07f1 4801 |H | Short_Literal 0x1 07f2 4801 |H | Short_Literal 0x1 07f3 4801 |H | Short_Literal 0x1 07f4 e402 | | Load 0x2,0x2 07f5 e5ff | | Load 0x2,-0x1 07f6 e002 | | Load 0x0,0x2 07f7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07f8 c406 | | Store 0x2,0x6 07f9 c407 | | Store 0x2,0x7 07fa 00db | | Load_Top At_Offset_3 07fb 6803 |h | Jump_Zero 0x7ff 07fc 00db | | Load_Top At_Offset_3 07fd a5f8 | | Store_Unchecked 0x2,-0x8 07fe 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07ff e406 | | Load 0x2,0x6 0800 e002 | | Load 0x0,0x2 0801 180f | | Execute Package,Field_Execute,Field_Number 0xf 0802 680d |h | Jump_Zero 0x810 0803 e5fa | | Load 0x2,-0x6 0804 e006 | | Load 0x0,0x6 0805 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0806 6081 |` | Indirect_Literal Discrete,0x888,{0x00000000, 0x00008147} 0807 e001 | | Load 0x0,0x1 0808 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0809 e006 | | Load 0x0,0x6 080a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 080b 607c |`| | Indirect_Literal Discrete,0x888,{0x00000000, 0x00008147} 080c e001 | | Load 0x0,0x1 080d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 080e a5f8 | | Store_Unchecked 0x2,-0x8 080f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0810 00d8 | | Load_Top At_Offset_0 0811 0120 | | Execute Any,Is_Value 0812 6803 |h | Jump_Zero 0x816 0813 e00e | | Load 0x0,0xe 0814 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0815 7801 |x | Jump 0x817 0816 00d8 | | Load_Top At_Offset_0 0817 e001 | | Load 0x0,0x1 0818 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0819 e5fa | | Load 0x2,-0x6 081a e5ff | | Load 0x2,-0x1 081b e004 | | Load 0x0,0x4 081c 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 081d e5fb | | Load 0x2,-0x5 081e e405 | | Load 0x2,0x5 081f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0820 e00f | | Load 0x0,0xf 0821 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0822 c407 | | Store 0x2,0x7 0823 c40a | | Store 0x2,0xa 0824 00db | | Load_Top At_Offset_3 0825 6805 |h | Jump_Zero 0x82b 0826 e5fa | | Load 0x2,-0x6 0827 e407 | | Load 0x2,0x7 0828 e001 | | Load 0x0,0x1 0829 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 082a 7825 |x% | Jump 0x850 082b e5fa | | Load 0x2,-0x6 082c 0092 19eb | | Action Push_String_Extended,0x19eb ; "Setting local download time (from remote time) to " 082e 4800 |H | Short_Literal 0x0 082f 4800 |H | Short_Literal 0x0 0830 4800 |H | Short_Literal 0x0 0831 e40a | | Load 0x2,0xa 0832 e00a | | Load 0x0,0xa 0833 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0834 e00a | | Load 0x0,0xa 0835 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0836 01cc | | Execute Vector,Catenate 0837 e005 | | Load 0x0,0x5 0838 180e | | Execute Package,Field_Execute,Field_Number 0xe 0839 e001 | | Load 0x0,0x1 083a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 083b e406 | | Load 0x2,0x6 083c e5fa | | Load 0x2,-0x6 083d e402 | | Load 0x2,0x2 083e e40a | | Load 0x2,0xa 083f e408 | | Load 0x2,0x8 0840 e009 | | Load 0x0,0x9 0841 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0842 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0843 c406 | | Store 0x2,0x6 0844 c407 | | Store 0x2,0x7 0845 00db | | Load_Top At_Offset_3 0846 7009 |p | Jump_Nonzero 0x850 0847 e001 | | Load 0x0,0x1 0848 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0849 e406 | | Load 0x2,0x6 084a e5fa | | Load 0x2,-0x6 084b e002 | | Load 0x0,0x2 084c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 084d c406 | | Store 0x2,0x6 084e c5f8 | | Store 0x2,-0x8 084f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0850 00db | | Load_Top At_Offset_3 0851 a5f8 | | Store_Unchecked 0x2,-0x8 0852 e001 | | Load 0x0,0x1 0853 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0854 e406 | | Load 0x2,0x6 0855 e5fa | | Load 0x2,-0x6 0856 e002 | | Load 0x0,0x2 0857 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0858 c406 | | Store 0x2,0x6 0859 c407 | | Store 0x2,0x7 085a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 085b TRAP_0700: 085b e001 | | Load 0x0,0x1 085c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 085d 010f | | Execute Exception,Equal 085e 6810 |h | Jump_Zero 0x86f 085f e001 | | Load 0x0,0x1 0860 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0861 a5f8 | | Store_Unchecked 0x2,-0x8 0862 e406 | | Load 0x2,0x6 0863 e002 | | Load 0x0,0x2 0864 180f | | Execute Package,Field_Execute,Field_Number 0xf 0865 7008 |p | Jump_Nonzero 0x86e 0866 e001 | | Load 0x0,0x1 0867 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0868 e406 | | Load 0x2,0x6 0869 e5fa | | Load 0x2,-0x6 086a e002 | | Load 0x0,0x2 086b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 086c c406 | | Store 0x2,0x6 086d c407 | | Store 0x2,0x7 086e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 086f e5fa | | Load 0x2,-0x6 0870 0092 19ea | | Action Push_String_Extended,0x19ea ; "Rcf_Unit.Upload_Ada_Unit" 0872 e005 | | Load 0x0,0x5 0873 180f | | Execute Package,Field_Execute,Field_Number 0xf 0874 0092 19ea | | Action Push_String_Extended,0x19ea ; "Rcf_Unit.Upload_Ada_Unit" 0876 e005 | | Load 0x0,0x5 0877 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0878 a5f8 | | Store_Unchecked 0x2,-0x8 0879 e406 | | Load 0x2,0x6 087a e002 | | Load 0x0,0x2 087b 180f | | Execute Package,Field_Execute,Field_Number 0xf 087c 7008 |p | Jump_Nonzero 0x885 087d e001 | | Load 0x0,0x1 087e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 087f e406 | | Load 0x2,0x6 0880 e5fa | | Load 0x2,-0x6 0881 e002 | | Load 0x0,0x2 0882 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0883 c406 | | Store 0x2,0x6 0884 c407 | | Store 0x2,0x7 0885 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0886 0000 0000 | | .XXX[0x2] 0888 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 088c 0000 0000 | | .LITERAL {0x00000000, 0x0000815d} 0890 0000 0000 | | .LITERAL {0x00000000, 0x00008191} 0894 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 08a0 | | .CONST 0x08a0 ; Address of begin 0899 0905 | | .CONST 0x0905 ; Address of exception handler 089a 0003 | | .CONST 0x0003 ; Number of locals 089b INIT_0898: 089b e001 | | Load 0x0,0x1 089c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 089d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 089e e00f | | Load 0x0,0xf 089f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 08a0 BODY_0898: 08a0 e00c | | Load 0x0,0xc 08a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08a2 c5fa | | Store 0x2,-0x6 08a3 e5fb | | Load 0x2,-0x5 08a4 e5ff | | Load 0x2,-0x1 08a5 e004 | | Load 0x0,0x4 08a6 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 08a7 6816 |h | Jump_Zero 0x8be 08a8 e5fb | | Load 0x2,-0x5 08a9 4801 |H | Short_Literal 0x1 08aa 4801 |H | Short_Literal 0x1 08ab e006 | | Load 0x0,0x6 08ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08ad 0334 | 4 | Declare_Variable Array,With_Constraint 08ae 0092 19e7 | | Action Push_String_Extended,0x19e7 ; "Upload_Ada_Unit" 08b0 e006 | | Load 0x0,0x6 08b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08b2 e006 | | Load 0x0,0x6 08b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08b4 0119 | | Execute Any,Check_In_Formal_Type 08b5 4801 |H | Short_Literal 0x1 08b6 00da | | Load_Top At_Offset_2 08b7 01d6 | | Execute Vector,Field_Write 08b8 67db |g | Indirect_Literal Discrete,0x894,{0x00000000, 0x0000818f} 08b9 e001 | | Load 0x0,0x1 08ba 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 08bb 4800 |H | Short_Literal 0x0 08bc a5f9 | | Store_Unchecked 0x2,-0x7 08bd 4506 |E | Exit_Suprogram New_Top_Offset 0x6 08be e001 | | Load 0x0,0x1 08bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08c0 e00f | | Load 0x0,0xf 08c1 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 08c2 e5fb | | Load 0x2,-0x5 08c3 e5ff | | Load 0x2,-0x1 08c4 e004 | | Load 0x0,0x4 08c5 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 08c6 e013 | | Load 0x0,0x13 08c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08c8 e013 | | Load 0x0,0x13 08c9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08ca e013 | | Load 0x0,0x13 08cb 180d | | Execute Package,Field_Execute,Field_Number 0xd 08cc e5fd | | Load 0x2,-0x3 08cd e003 | | Load 0x0,0x3 08ce 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 08cf e00f | | Load 0x0,0xf 08d0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 08d1 0032 | 2 | Store_Top Heap_Access,At_Offset_2 08d2 005a | Z | Store_Top Discrete,At_Offset_2 08d3 00d9 | | Load_Top At_Offset_1 08d4 6807 |h | Jump_Zero 0x8dc 08d5 e5fb | | Load 0x2,-0x5 08d6 00da | | Load_Top At_Offset_2 08d7 e001 | | Load 0x0,0x1 08d8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 08d9 00d9 | | Load_Top At_Offset_1 08da a5f9 | | Store_Unchecked 0x2,-0x7 08db 4506 |E | Exit_Suprogram New_Top_Offset 0x6 08dc e001 | | Load 0x0,0x1 08dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08de e5fa | | Load 0x2,-0x6 08df 0120 | | Execute Any,Is_Value 08e0 6803 |h | Jump_Zero 0x8e4 08e1 e00c | | Load 0x0,0xc 08e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08e3 7801 |x | Jump 0x8e5 08e4 e5fa | | Load 0x2,-0x6 08e5 e5fb | | Load 0x2,-0x5 08e6 00db | | Load_Top At_Offset_3 08e7 e5fc | | Load 0x2,-0x4 08e8 e5fd | | Load 0x2,-0x3 08e9 e5fe | | Load 0x2,-0x2 08ea e5ff | | Load 0x2,-0x1 08eb 8288 | | Call 0x1,0x88 08ec c5fa | | Store 0x2,-0x6 08ed 005a | Z | Store_Top Discrete,At_Offset_2 08ee 00d9 | | Load_Top At_Offset_1 08ef 680a |h | Jump_Zero 0x8fa 08f0 00d9 | | Load_Top At_Offset_1 08f1 a5f9 | | Store_Unchecked 0x2,-0x7 08f2 e001 | | Load 0x0,0x1 08f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08f4 4800 |H | Short_Literal 0x0 08f5 00da | | Load_Top At_Offset_2 08f6 e00f | | Load 0x0,0xf 08f7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 08f8 005a | Z | Store_Top Discrete,At_Offset_2 08f9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 08fa e001 | | Load 0x0,0x1 08fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08fc e5fb | | Load 0x2,-0x5 08fd e5ff | | Load 0x2,-0x1 08fe e004 | | Load 0x0,0x4 08ff 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0900 00da | | Load_Top At_Offset_2 0901 e00f | | Load 0x0,0xf 0902 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0903 c5f9 | | Store 0x2,-0x7 0904 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0905 TRAP_0898: 0905 e001 | | Load 0x0,0x1 0906 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0907 010f | | Execute Exception,Equal 0908 680e |h | Jump_Zero 0x917 0909 e001 | | Load 0x0,0x1 090a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 090b a5f9 | | Store_Unchecked 0x2,-0x7 090c e001 | | Load 0x0,0x1 090d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 090e e5fb | | Load 0x2,-0x5 090f e5ff | | Load 0x2,-0x1 0910 e004 | | Load 0x0,0x4 0911 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0912 00db | | Load_Top At_Offset_3 0913 e00f | | Load 0x0,0xf 0914 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0915 005b | [ | Store_Top Discrete,At_Offset_3 0916 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0917 e5fb | | Load 0x2,-0x5 0918 0092 19ea | | Action Push_String_Extended,0x19ea ; "Rcf_Unit.Upload_Ada_Unit" 091a e005 | | Load 0x0,0x5 091b 180f | | Execute Package,Field_Execute,Field_Number 0xf 091c 0092 19ea | | Action Push_String_Extended,0x19ea ; "Rcf_Unit.Upload_Ada_Unit" 091e e005 | | Load 0x0,0x5 091f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0920 a5f9 | | Store_Unchecked 0x2,-0x7 0921 e001 | | Load 0x0,0x1 0922 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0923 e5fb | | Load 0x2,-0x5 0924 e5ff | | Load 0x2,-0x1 0925 e004 | | Load 0x0,0x4 0926 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0927 00db | | Load_Top At_Offset_3 0928 e00f | | Load 0x0,0xf 0929 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 092a 005b | [ | Store_Top Discrete,At_Offset_3 092b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 092c 0000 0000 | | .BLANK 0000[0x4] 0930 ; -------------------------------------------------------------------------------------- 0930 ; SUBPROGRAM 0930 ; -------------------------------------------------------------------------------------- 0930 0945 | E | .CONST 0x0945 ; Address of begin 0931 09a8 | | .CONST 0x09a8 ; Address of exception handler 0932 0006 | | .CONST 0x0006 ; Number of locals 0933 INIT_0930: 0933 00db | | Load_Top At_Offset_3 0934 82a9 | | Call 0x1,0xa9 0935 e5fb | | Load 0x2,-0x5 0936 e5fe | | Load 0x2,-0x2 0937 82a8 | | Call 0x1,0xa8 0938 e5f8 | | Load 0x2,-0x8 0939 e5fc | | Load 0x2,-0x4 093a e5fd | | Load 0x2,-0x3 093b e5ff | | Load 0x2,-0x1 093c 8229 | ) | Call 0x1,0x29 093d e001 | | Load 0x0,0x1 093e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 093f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0940 e00c | | Load 0x0,0xc 0941 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0942 02c7 | | Declare_Variable Any 0943 00d8 | | Load_Top At_Offset_0 0944 1c00 | | Execute_Immediate Run_Utility,0x0 0945 BODY_0930: 0945 4800 |H | Short_Literal 0x0 0946 a5f7 | | Store_Unchecked 0x2,-0x9 0947 e5f8 | | Load 0x2,-0x8 0948 4800 |H | Short_Literal 0x0 0949 e403 | | Load 0x2,0x3 094a e004 | | Load 0x0,0x4 094b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 094c c406 | | Store 0x2,0x6 094d 00d8 | | Load_Top At_Offset_0 094e e00c | | Load 0x0,0xc 094f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0950 7027 |p' | Jump_Nonzero 0x978 0951 e5f9 | | Load 0x2,-0x7 0952 7025 |p% | Jump_Nonzero 0x978 0953 e5f8 | | Load 0x2,-0x8 0954 4801 |H | Short_Literal 0x1 0955 4801 |H | Short_Literal 0x1 0956 e006 | | Load 0x0,0x6 0957 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0958 0334 | 4 | Declare_Variable Array,With_Constraint 0959 0092 19ec | | Action Push_String_Extended,0x19ec ; "Can't upload from remote unit \x22" 095b e5fc | | Load 0x2,-0x4 095c 01cc | | Execute Vector,Catenate 095d 0092 19ed | | Action Push_String_Extended,0x19ed ; "\x22 into existing text file \x22" 095f 01cc | | Execute Vector,Catenate 0960 e5fb | | Load 0x2,-0x5 0961 01cc | | Execute Vector,Catenate 0962 0092 19ee | | Action Push_String_Extended,0x19ee ; "\x22." 0964 01cc | | Execute Vector,Catenate 0965 e006 | | Load 0x0,0x6 0966 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0967 e006 | | Load 0x0,0x6 0968 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0969 0119 | | Execute Any,Check_In_Formal_Type 096a 4801 |H | Short_Literal 0x1 096b 00da | | Load_Top At_Offset_2 096c 01d6 | | Execute Vector,Field_Write 096d 4807 |H | Short_Literal 0x7 096e 6051 |`Q | Indirect_Literal Discrete,0x9c0,{0x00000000, 0x00008128} 096f e001 | | Load 0x0,0x1 0970 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0971 e006 | | Load 0x0,0x6 0972 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0973 604c |`L | Indirect_Literal Discrete,0x9c0,{0x00000000, 0x00008128} 0974 e001 | | Load 0x0,0x1 0975 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0976 a5f7 | | Store_Unchecked 0x2,-0x9 0977 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0978 e5f8 | | Load 0x2,-0x8 0979 e5ff | | Load 0x2,-0x1 097a e004 | | Load 0x0,0x4 097b 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 097c 6814 |h | Jump_Zero 0x991 097d e5f8 | | Load 0x2,-0x8 097e 4801 |H | Short_Literal 0x1 097f 4801 |H | Short_Literal 0x1 0980 e006 | | Load 0x0,0x6 0981 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0982 0334 | 4 | Declare_Variable Array,With_Constraint 0983 0092 19ef | | Action Push_String_Extended,0x19ef ; "Upload_Text_File" 0985 e006 | | Load 0x0,0x6 0986 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0987 e006 | | Load 0x0,0x6 0988 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0989 0119 | | Execute Any,Check_In_Formal_Type 098a 4801 |H | Short_Literal 0x1 098b 00da | | Load_Top At_Offset_2 098c 01d6 | | Execute Vector,Field_Write 098d 602e |`. | Indirect_Literal Discrete,0x9bc,{0x00000000, 0x0000818f} 098e e001 | | Load 0x0,0x1 098f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0990 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0991 e001 | | Load 0x0,0x1 0992 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0993 e5f8 | | Load 0x2,-0x8 0994 e5ff | | Load 0x2,-0x1 0995 e004 | | Load 0x0,0x4 0996 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0997 4800 |H | Short_Literal 0x0 0998 e5fa | | Load 0x2,-0x6 0999 e404 | | Load 0x2,0x4 099a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 099b e403 | | Load 0x2,0x3 099c e00f | | Load 0x0,0xf 099d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 099e 005a | Z | Store_Top Discrete,At_Offset_2 099f 00d9 | | Load_Top At_Offset_1 09a0 6806 |h | Jump_Zero 0x9a7 09a1 e5f8 | | Load 0x2,-0x8 09a2 00da | | Load_Top At_Offset_2 09a3 e001 | | Load 0x0,0x1 09a4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 09a5 00d9 | | Load_Top At_Offset_1 09a6 a5f7 | | Store_Unchecked 0x2,-0x9 09a7 4509 |E | Exit_Suprogram New_Top_Offset 0x9 09a8 TRAP_0930: 09a8 e001 | | Load 0x0,0x1 09a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09aa 010f | | Execute Exception,Equal 09ab 6804 |h | Jump_Zero 0x9b0 09ac e001 | | Load 0x0,0x1 09ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b 09ae a5f7 | | Store_Unchecked 0x2,-0x9 09af 4509 |E | Exit_Suprogram New_Top_Offset 0x9 09b0 e5f8 | | Load 0x2,-0x8 09b1 0092 19f0 | | Action Push_String_Extended,0x19f0 ; "Rcf_Unit.Upload_Text_File" 09b3 e005 | | Load 0x0,0x5 09b4 180f | | Execute Package,Field_Execute,Field_Number 0xf 09b5 0092 19f0 | | Action Push_String_Extended,0x19f0 ; "Rcf_Unit.Upload_Text_File" 09b7 e005 | | Load 0x0,0x5 09b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09b9 a5f7 | | Store_Unchecked 0x2,-0x9 09ba 4509 |E | Exit_Suprogram New_Top_Offset 0x9 09bb 0000 | | .XXX[0x1] 09bc 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 09c0 0000 0000 | | .LITERAL {0x00000000, 0x00008128} 09c4 0000 0000 | | .BLANK 0000[0x4] 09c8 ; -------------------------------------------------------------------------------------- 09c8 ; SUBPROGRAM 09c8 ; -------------------------------------------------------------------------------------- 09c8 09d0 | | .CONST 0x09d0 ; Address of begin 09c9 0a2f | / | .CONST 0x0a2f ; Address of exception handler 09ca 0003 | | .CONST 0x0003 ; Number of locals 09cb INIT_09c8: 09cb e001 | | Load 0x0,0x1 09cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09cd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 09ce e00f | | Load 0x0,0xf 09cf 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 09d0 BODY_09c8: 09d0 e5f9 | | Load 0x2,-0x7 09d1 e5ff | | Load 0x2,-0x1 09d2 e004 | | Load 0x0,0x4 09d3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 09d4 6816 |h | Jump_Zero 0x9eb 09d5 e5f9 | | Load 0x2,-0x7 09d6 4801 |H | Short_Literal 0x1 09d7 4801 |H | Short_Literal 0x1 09d8 e006 | | Load 0x0,0x6 09d9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09da 0334 | 4 | Declare_Variable Array,With_Constraint 09db 0092 19ef | | Action Push_String_Extended,0x19ef ; "Upload_Text_File" 09dd e006 | | Load 0x0,0x6 09de 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09df e006 | | Load 0x0,0x6 09e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09e1 0119 | | Execute Any,Check_In_Formal_Type 09e2 4801 |H | Short_Literal 0x1 09e3 00da | | Load_Top At_Offset_2 09e4 01d6 | | Execute Vector,Field_Write 09e5 67d6 |g | Indirect_Literal Discrete,0x9bc,{0x00000000, 0x0000818f} 09e6 e001 | | Load 0x0,0x1 09e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09e8 4800 |H | Short_Literal 0x0 09e9 a5f8 | | Store_Unchecked 0x2,-0x8 09ea 4508 |E | Exit_Suprogram New_Top_Offset 0x8 09eb e001 | | Load 0x0,0x1 09ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09ed e00f | | Load 0x0,0xf 09ee 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 09ef e5f9 | | Load 0x2,-0x7 09f0 e5ff | | Load 0x2,-0x1 09f1 e004 | | Load 0x0,0x4 09f2 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 09f3 e013 | | Load 0x0,0x13 09f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09f5 e013 | | Load 0x0,0x13 09f6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09f7 e013 | | Load 0x0,0x13 09f8 180d | | Execute Package,Field_Execute,Field_Number 0xd 09f9 e5fd | | Load 0x2,-0x3 09fa e003 | | Load 0x0,0x3 09fb 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 09fc e00f | | Load 0x0,0xf 09fd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 09fe 0032 | 2 | Store_Top Heap_Access,At_Offset_2 09ff 005a | Z | Store_Top Discrete,At_Offset_2 0a00 00d9 | | Load_Top At_Offset_1 0a01 6807 |h | Jump_Zero 0xa09 0a02 e5f9 | | Load 0x2,-0x7 0a03 00da | | Load_Top At_Offset_2 0a04 e001 | | Load 0x0,0x1 0a05 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0a06 00d9 | | Load_Top At_Offset_1 0a07 a5f8 | | Store_Unchecked 0x2,-0x8 0a08 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a09 e001 | | Load 0x0,0x1 0a0a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a0b e5f9 | | Load 0x2,-0x7 0a0c e5fa | | Load 0x2,-0x6 0a0d 00db | | Load_Top At_Offset_3 0a0e e5fb | | Load 0x2,-0x5 0a0f e5fc | | Load 0x2,-0x4 0a10 e5fd | | Load 0x2,-0x3 0a11 e5fe | | Load 0x2,-0x2 0a12 e5ff | | Load 0x2,-0x1 0a13 828a | | Call 0x1,0x8a 0a14 005a | Z | Store_Top Discrete,At_Offset_2 0a15 00d9 | | Load_Top At_Offset_1 0a16 680d |h | Jump_Zero 0xa24 0a17 00d9 | | Load_Top At_Offset_1 0a18 a5f8 | | Store_Unchecked 0x2,-0x8 0a19 e001 | | Load 0x0,0x1 0a1a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a1b e5f9 | | Load 0x2,-0x7 0a1c e5ff | | Load 0x2,-0x1 0a1d e004 | | Load 0x0,0x4 0a1e 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0a1f 00da | | Load_Top At_Offset_2 0a20 e00f | | Load 0x0,0xf 0a21 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a22 005a | Z | Store_Top Discrete,At_Offset_2 0a23 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a24 e001 | | Load 0x0,0x1 0a25 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a26 e5f9 | | Load 0x2,-0x7 0a27 e5ff | | Load 0x2,-0x1 0a28 e004 | | Load 0x0,0x4 0a29 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0a2a 00da | | Load_Top At_Offset_2 0a2b e00f | | Load 0x0,0xf 0a2c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a2d c5f8 | | Store 0x2,-0x8 0a2e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a2f TRAP_09c8: 0a2f e001 | | Load 0x0,0x1 0a30 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a31 010f | | Execute Exception,Equal 0a32 680b |h | Jump_Zero 0xa3e 0a33 e001 | | Load 0x0,0x1 0a34 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0a35 a5f8 | | Store_Unchecked 0x2,-0x8 0a36 e001 | | Load 0x0,0x1 0a37 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a38 4800 |H | Short_Literal 0x0 0a39 00db | | Load_Top At_Offset_3 0a3a e00f | | Load 0x0,0xf 0a3b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a3c 005b | [ | Store_Top Discrete,At_Offset_3 0a3d 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a3e e5f9 | | Load 0x2,-0x7 0a3f 0092 19f0 | | Action Push_String_Extended,0x19f0 ; "Rcf_Unit.Upload_Text_File" 0a41 e005 | | Load 0x0,0x5 0a42 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a43 0092 19f0 | | Action Push_String_Extended,0x19f0 ; "Rcf_Unit.Upload_Text_File" 0a45 e005 | | Load 0x0,0x5 0a46 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a47 a5f8 | | Store_Unchecked 0x2,-0x8 0a48 e001 | | Load 0x0,0x1 0a49 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a4a 4800 |H | Short_Literal 0x0 0a4b 00db | | Load_Top At_Offset_3 0a4c e00f | | Load 0x0,0xf 0a4d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0a4e 005b | [ | Store_Top Discrete,At_Offset_3 0a4f 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0a50 ; -------------------------------------------------------------------------------------- 0a50 ; SUBPROGRAM 0a50 ; -------------------------------------------------------------------------------------- 0a50 0a60 | ` | .CONST 0x0a60 ; Address of begin 0a51 0a9f | | .CONST 0x0a9f ; Address of exception handler 0a52 0004 | | .CONST 0x0004 ; Number of locals 0a53 INIT_0a50: 0a53 e00e | | Load 0x0,0xe 0a54 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a55 02c7 | | Declare_Variable Any 0a56 00d8 | | Load_Top At_Offset_0 0a57 1c00 | | Execute_Immediate Run_Utility,0x0 0a58 e5fb | | Load 0x2,-0x5 0a59 e5fe | | Load 0x2,-0x2 0a5a e5fd | | Load 0x2,-0x3 0a5b e5ff | | Load 0x2,-0x1 0a5c 8228 | ( | Call 0x1,0x28 0a5d e001 | | Load 0x0,0x1 0a5e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a5f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a60 BODY_0a50: 0a60 e5fb | | Load 0x2,-0x5 0a61 e5ff | | Load 0x2,-0x1 0a62 e004 | | Load 0x0,0x4 0a63 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0a64 6816 |h | Jump_Zero 0xa7b 0a65 e5fb | | Load 0x2,-0x5 0a66 4801 |H | Short_Literal 0x1 0a67 4801 |H | Short_Literal 0x1 0a68 e006 | | Load 0x0,0x6 0a69 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a6a 0334 | 4 | Declare_Variable Array,With_Constraint 0a6b 0092 19f1 | | Action Push_String_Extended,0x19f1 ; "Update_Consistency" 0a6d e006 | | Load 0x0,0x6 0a6e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a6f e006 | | Load 0x0,0x6 0a70 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a71 0119 | | Execute Any,Check_In_Formal_Type 0a72 4801 |H | Short_Literal 0x1 0a73 00da | | Load_Top At_Offset_2 0a74 01d6 | | Execute Vector,Field_Write 0a75 603e |`> | Indirect_Literal Discrete,0xab4,{0x00000000, 0x0000818f} 0a76 e001 | | Load 0x0,0x1 0a77 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a78 4800 |H | Short_Literal 0x0 0a79 a5fa | | Store_Unchecked 0x2,-0x6 0a7a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a7b 00da | | Load_Top At_Offset_2 0a7c 0120 | | Execute Any,Is_Value 0a7d 6803 |h | Jump_Zero 0xa81 0a7e e00e | | Load 0x0,0xe 0a7f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a80 7801 |x | Jump 0xa82 0a81 00da | | Load_Top At_Offset_2 0a82 e001 | | Load 0x0,0x1 0a83 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a84 4800 |H | Short_Literal 0x0 0a85 e5fc | | Load 0x2,-0x4 0a86 e403 | | Load 0x2,0x3 0a87 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a88 e00f | | Load 0x0,0xf 0a89 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a8a 005a | Z | Store_Top Discrete,At_Offset_2 0a8b c402 | | Store 0x2,0x2 0a8c 00d8 | | Load_Top At_Offset_0 0a8d 6805 |h | Jump_Zero 0xa93 0a8e e5fb | | Load 0x2,-0x5 0a8f 00d9 | | Load_Top At_Offset_1 0a90 e001 | | Load 0x0,0x1 0a91 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0a92 7809 |x | Jump 0xa9c 0a93 e001 | | Load 0x0,0x1 0a94 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a95 e5fb | | Load 0x2,-0x5 0a96 e5fd | | Load 0x2,-0x3 0a97 e402 | | Load 0x2,0x2 0a98 e5fe | | Load 0x2,-0x2 0a99 e5ff | | Load 0x2,-0x1 0a9a 822c | , | Call 0x1,0x2c 0a9b 0059 | Y | Store_Top Discrete,At_Offset_1 0a9c 00d8 | | Load_Top At_Offset_0 0a9d a5fa | | Store_Unchecked 0x2,-0x6 0a9e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a9f TRAP_0a50: 0a9f e001 | | Load 0x0,0x1 0aa0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0aa1 010f | | Execute Exception,Equal 0aa2 6804 |h | Jump_Zero 0xaa7 0aa3 e001 | | Load 0x0,0x1 0aa4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0aa5 a5fa | | Store_Unchecked 0x2,-0x6 0aa6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0aa7 e5fb | | Load 0x2,-0x5 0aa8 0092 19f2 | | Action Push_String_Extended,0x19f2 ; "Rcf_Unit.Update_Consistency" 0aaa e005 | | Load 0x0,0x5 0aab 180f | | Execute Package,Field_Execute,Field_Number 0xf 0aac 0092 19f2 | | Action Push_String_Extended,0x19f2 ; "Rcf_Unit.Update_Consistency" 0aae e005 | | Load 0x0,0x5 0aaf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ab0 a5fa | | Store_Unchecked 0x2,-0x6 0ab1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0ab2 0000 0000 | | .XXX[0x2] 0ab4 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0ac0 | | .CONST 0x0ac0 ; Address of begin 0ab9 0b13 | | .CONST 0x0b13 ; Address of exception handler 0aba 0003 | | .CONST 0x0003 ; Number of locals 0abb INIT_0ab8: 0abb e001 | | Load 0x0,0x1 0abc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0abd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0abe e00f | | Load 0x0,0xf 0abf 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0ac0 BODY_0ab8: 0ac0 e5fc | | Load 0x2,-0x4 0ac1 e5ff | | Load 0x2,-0x1 0ac2 e004 | | Load 0x0,0x4 0ac3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0ac4 6816 |h | Jump_Zero 0xadb 0ac5 e5fc | | Load 0x2,-0x4 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 0334 | 4 | Declare_Variable Array,With_Constraint 0acb 0092 19f1 | | Action Push_String_Extended,0x19f1 ; "Update_Consistency" 0acd e006 | | Load 0x0,0x6 0ace 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0acf e006 | | Load 0x0,0x6 0ad0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ad1 0119 | | Execute Any,Check_In_Formal_Type 0ad2 4801 |H | Short_Literal 0x1 0ad3 00da | | Load_Top At_Offset_2 0ad4 01d6 | | Execute Vector,Field_Write 0ad5 67de |g | Indirect_Literal Discrete,0xab4,{0x00000000, 0x0000818f} 0ad6 e001 | | Load 0x0,0x1 0ad7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ad8 4800 |H | Short_Literal 0x0 0ad9 a5fb | | Store_Unchecked 0x2,-0x5 0ada 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0adb e001 | | Load 0x0,0x1 0adc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0add e00f | | Load 0x0,0xf 0ade 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0adf 4800 |H | Short_Literal 0x0 0ae0 e013 | | Load 0x0,0x13 0ae1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ae2 e013 | | Load 0x0,0x13 0ae3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0ae4 e013 | | Load 0x0,0x13 0ae5 180d | | Execute Package,Field_Execute,Field_Number 0xd 0ae6 e5fd | | Load 0x2,-0x3 0ae7 e003 | | Load 0x0,0x3 0ae8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0ae9 e00f | | Load 0x0,0xf 0aea 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0aeb 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0aec 005a | Z | Store_Top Discrete,At_Offset_2 0aed 00d9 | | Load_Top At_Offset_1 0aee 6807 |h | Jump_Zero 0xaf6 0aef e5fc | | Load 0x2,-0x4 0af0 00da | | Load_Top At_Offset_2 0af1 e001 | | Load 0x0,0x1 0af2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0af3 00d9 | | Load_Top At_Offset_1 0af4 a5fb | | Store_Unchecked 0x2,-0x5 0af5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0af6 e001 | | Load 0x0,0x1 0af7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0af8 e5fc | | Load 0x2,-0x4 0af9 00da | | Load_Top At_Offset_2 0afa e5fd | | Load 0x2,-0x3 0afb e5fe | | Load 0x2,-0x2 0afc e5ff | | Load 0x2,-0x1 0afd 8231 | 1 | Call 0x1,0x31 0afe 005a | Z | Store_Top Discrete,At_Offset_2 0aff 00d9 | | Load_Top At_Offset_1 0b00 680a |h | Jump_Zero 0xb0b 0b01 00d9 | | Load_Top At_Offset_1 0b02 a5fb | | Store_Unchecked 0x2,-0x5 0b03 e001 | | Load 0x0,0x1 0b04 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b05 4800 |H | Short_Literal 0x0 0b06 00da | | Load_Top At_Offset_2 0b07 e00f | | Load 0x0,0xf 0b08 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b09 005a | Z | Store_Top Discrete,At_Offset_2 0b0a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b0b e001 | | Load 0x0,0x1 0b0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b0d 4800 |H | Short_Literal 0x0 0b0e 00da | | Load_Top At_Offset_2 0b0f e00f | | Load 0x0,0xf 0b10 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b11 c5fb | | Store 0x2,-0x5 0b12 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b13 TRAP_0ab8: 0b13 e001 | | Load 0x0,0x1 0b14 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b15 010f | | Execute Exception,Equal 0b16 680b |h | Jump_Zero 0xb22 0b17 e001 | | Load 0x0,0x1 0b18 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0b19 a5fb | | Store_Unchecked 0x2,-0x5 0b1a e001 | | Load 0x0,0x1 0b1b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b1c 4800 |H | Short_Literal 0x0 0b1d 00db | | Load_Top At_Offset_3 0b1e e00f | | Load 0x0,0xf 0b1f 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b20 005b | [ | Store_Top Discrete,At_Offset_3 0b21 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b22 e5fc | | Load 0x2,-0x4 0b23 0092 19f2 | | Action Push_String_Extended,0x19f2 ; "Rcf_Unit.Update_Consistency" 0b25 e005 | | Load 0x0,0x5 0b26 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b27 0092 19f2 | | Action Push_String_Extended,0x19f2 ; "Rcf_Unit.Update_Consistency" 0b29 e005 | | Load 0x0,0x5 0b2a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b2b a5fb | | Store_Unchecked 0x2,-0x5 0b2c e001 | | Load 0x0,0x1 0b2d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b2e 4800 |H | Short_Literal 0x0 0b2f 00db | | Load_Top At_Offset_3 0b30 e00f | | Load 0x0,0xf 0b31 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0b32 005b | [ | Store_Top Discrete,At_Offset_3 0b33 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b34 0000 0000 | | .BLANK 0000[0x4] 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b59 | Y | .CONST 0x0b59 ; Address of begin 0b39 0bd3 | | .CONST 0x0bd3 ; Address of exception handler 0b3a 0008 | | .CONST 0x0008 ; Number of locals 0b3b INIT_0b38: 0b3b e00c | | Load 0x0,0xc 0b3c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b3d 02c7 | | Declare_Variable Any 0b3e 00d8 | | Load_Top At_Offset_0 0b3f 1c00 | | Execute_Immediate Run_Utility,0x0 0b40 e014 | | Load 0x0,0x14 0b41 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b42 02c7 | | Declare_Variable Any 0b43 00d8 | | Load_Top At_Offset_0 0b44 1c00 | | Execute_Immediate Run_Utility,0x0 0b45 e001 | | Load 0x0,0x1 0b46 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b47 00e1 | | Load_Encached Boolean_Cache 0b48 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b49 e00c | | Load 0x0,0xc 0b4a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b4b 02c7 | | Declare_Variable Any 0b4c 00d8 | | Load_Top At_Offset_0 0b4d 1c00 | | Execute_Immediate Run_Utility,0x0 0b4e 00e1 | | Load_Encached Boolean_Cache 0b4f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b50 e5ff | | Load 0x2,-0x1 0b51 e004 | | Load 0x0,0x4 0b52 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b53 0092 19f3 | | Action Push_String_Extended,0x19f3 ; "." 0b55 01cc | | Execute Vector,Catenate 0b56 e5fe | | Load 0x2,-0x2 0b57 01cc | | Execute Vector,Catenate 0b58 0007 | | Action Break_Optional 0b59 BODY_0b38: 0b59 4800 |H | Short_Literal 0x0 0b5a a5fc | | Store_Unchecked 0x2,-0x4 0b5b e5fe | | Load 0x2,-0x2 0b5c 01db | | Execute Vector,Length 0b5d 0f00 | | Execute_Immediate Equal,0x0 0b5e e5fe | | Load 0x2,-0x2 0b5f 0092 19f4 | | Action Push_String_Extended,0x19f4 ; "state" 0b61 01df | | Execute Vector,Equal 0b62 0278 | x | Execute Discrete,Or 0b63 6803 |h | Jump_Zero 0xb67 0b64 e001 | | Load 0x0,0x1 0b65 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b66 0257 | W | Execute Discrete,Raise 0b67 00e1 | | Load_Encached Boolean_Cache 0b68 e403 | | Load 0x2,0x3 0b69 e5fd | | Load 0x2,-0x3 0b6a 00db | | Load_Top At_Offset_3 0b6b 829e | | Call 0x1,0x9e 0b6c c403 | | Store 0x2,0x3 0b6d c405 | | Store 0x2,0x5 0b6e 00db | | Load_Top At_Offset_3 0b6f 700c |p | Jump_Nonzero 0xb7c 0b70 e403 | | Load 0x2,0x3 0b71 00ea | | Load_Encached Null_String_Cache 0b72 00da | | Load_Top At_Offset_2 0b73 4801 |H | Short_Literal 0x1 0b74 e014 | | Load 0x0,0x14 0b75 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b76 c403 | | Store 0x2,0x3 0b77 e403 | | Load 0x2,0x3 0b78 e014 | | Load 0x0,0x14 0b79 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0b7a c403 | | Store 0x2,0x3 0b7b 7804 |x | Jump 0xb80 0b7c e403 | | Load 0x2,0x3 0b7d e014 | | Load 0x0,0x14 0b7e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0b7f c403 | | Store 0x2,0x3 0b80 e5fd | | Load 0x2,-0x3 0b81 00d9 | | Load_Top At_Offset_1 0b82 8295 | | Call 0x1,0x95 0b83 c402 | | Store 0x2,0x2 0b84 e402 | | Load 0x2,0x2 0b85 e004 | | Load 0x0,0x4 0b86 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0b87 6815 |h | Jump_Zero 0xb9d 0b88 e5fd | | Load 0x2,-0x3 0b89 4801 |H | Short_Literal 0x1 0b8a 4801 |H | Short_Literal 0x1 0b8b e006 | | Load 0x0,0x6 0b8c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b8d 0334 | 4 | Declare_Variable Array,With_Constraint 0b8e 00da | | Load_Top At_Offset_2 0b8f e006 | | Load 0x0,0x6 0b90 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b91 e006 | | Load 0x0,0x6 0b92 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b93 0119 | | Execute Any,Check_In_Formal_Type 0b94 4801 |H | Short_Literal 0x1 0b95 00da | | Load_Top At_Offset_2 0b96 01d6 | | Execute Vector,Field_Write 0b97 6060 |`` | Indirect_Literal Discrete,0xbf8,{0x00000000, 0x000081ac} 0b98 e001 | | Load 0x0,0x1 0b99 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b9a e001 | | Load 0x0,0x1 0b9b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b9c 0257 | W | Execute Discrete,Raise 0b9d 00db | | Load_Top At_Offset_3 0b9e 682d |h- | Jump_Zero 0xbcc 0b9f 00e1 | | Load_Encached Boolean_Cache 0ba0 00db | | Load_Top At_Offset_3 0ba1 0120 | | Execute Any,Is_Value 0ba2 6803 |h | Jump_Zero 0xba6 0ba3 e00c | | Load 0x0,0xc 0ba4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ba5 7801 |x | Jump 0xba7 0ba6 00db | | Load_Top At_Offset_3 0ba7 e5fd | | Load 0x2,-0x3 0ba8 e402 | | Load 0x2,0x2 0ba9 8287 | | Call 0x1,0x87 0baa c406 | | Store 0x2,0x6 0bab 005a | Z | Store_Top Discrete,At_Offset_2 0bac 00d9 | | Load_Top At_Offset_1 0bad 681e |h | Jump_Zero 0xbcc 0bae e5fd | | Load 0x2,-0x3 0baf 4801 |H | Short_Literal 0x1 0bb0 4802 |H | Short_Literal 0x2 0bb1 e006 | | Load 0x0,0x6 0bb2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bb3 0334 | 4 | Declare_Variable Array,With_Constraint 0bb4 e402 | | Load 0x2,0x2 0bb5 e004 | | Load 0x0,0x4 0bb6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0bb7 e006 | | Load 0x0,0x6 0bb8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bb9 0119 | | Execute Any,Check_In_Formal_Type 0bba 4801 |H | Short_Literal 0x1 0bbb 00da | | Load_Top At_Offset_2 0bbc 01d6 | | Execute Vector,Field_Write 0bbd e406 | | Load 0x2,0x6 0bbe e004 | | Load 0x0,0x4 0bbf 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0bc0 e006 | | Load 0x0,0x6 0bc1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bc2 0119 | | Execute Any,Check_In_Formal_Type 0bc3 4802 |H | Short_Literal 0x2 0bc4 00da | | Load_Top At_Offset_2 0bc5 01d6 | | Execute Vector,Field_Write 0bc6 602d |`- | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x000081cb} 0bc7 e001 | | Load 0x0,0x1 0bc8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0bc9 e001 | | Load 0x0,0x1 0bca 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0bcb 0257 | W | Execute Discrete,Raise 0bcc e001 | | Load 0x0,0x1 0bcd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bce e5fd | | Load 0x2,-0x3 0bcf e402 | | Load 0x2,0x2 0bd0 8260 | ` | Call 0x1,0x60 0bd1 c404 | | Store 0x2,0x4 0bd2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bd3 TRAP_0b38: 0bd3 0007 | | Action Break_Optional 0bd4 e5fd | | Load 0x2,-0x3 0bd5 4801 |H | Short_Literal 0x1 0bd6 4801 |H | Short_Literal 0x1 0bd7 e006 | | Load 0x0,0x6 0bd8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bd9 0334 | 4 | Declare_Variable Array,With_Constraint 0bda 00db | | Load_Top At_Offset_3 0bdb e006 | | Load 0x0,0x6 0bdc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bdd e006 | | Load 0x0,0x6 0bde 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bdf 0119 | | Execute Any,Check_In_Formal_Type 0be0 4801 |H | Short_Literal 0x1 0be1 00da | | Load_Top At_Offset_2 0be2 01d6 | | Execute Vector,Field_Write 0be3 600c |` | Indirect_Literal Discrete,0xbf0,{0x00000000, 0x000081a1} 0be4 e001 | | Load 0x0,0x1 0be5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0be6 e006 | | Load 0x0,0x6 0be7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0be8 6007 |` | Indirect_Literal Discrete,0xbf0,{0x00000000, 0x000081a1} 0be9 e001 | | Load 0x0,0x1 0bea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0beb a5fc | | Store_Unchecked 0x2,-0x4 0bec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bed 0000 0000 | | .XXX[0x3] 0bef 0000 | | 0bf0 0000 0000 | | .LITERAL {0x00000000, 0x000081a1} 0bf4 0000 0000 | | .LITERAL {0x00000000, 0x000081cb} 0bf8 0000 0000 | | .LITERAL {0x00000000, 0x000081ac} 0bfc 0000 0000 | | .BLANK 0000[0x4] 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c0a | | .CONST 0x0c0a ; Address of begin 0c01 0c20 | | .CONST 0x0c20 ; Address of exception handler 0c02 0005 | | .CONST 0x0005 ; Number of locals 0c03 INIT_0c00: 0c03 e00c | | Load 0x0,0xc 0c04 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c05 e28c | | Load 0x1,0x8c 0c06 0322 | " | Declare_Variable Record 0c07 00e2 | | Load_Encached Integer_Cache 0c08 e5ff | | Load 0x2,-0x1 0c09 8291 | | Call 0x1,0x91 0c0a BODY_0c00: 0c0a 4800 |H | Short_Literal 0x0 0c0b a5f9 | | Store_Unchecked 0x2,-0x7 0c0c 00da | | Load_Top At_Offset_2 0c0d e5fa | | Load 0x2,-0x6 0c0e 00da | | Load_Top At_Offset_2 0c0f 82a2 | | Call 0x1,0xa2 0c10 00d1 | | Pop_Control Pop_Count_1 0c11 00da | | Load_Top At_Offset_2 0c12 e5fb | | Load 0x2,-0x5 0c13 829d | | Call 0x1,0x9d 0c14 00d1 | | Pop_Control Pop_Count_1 0c15 e5fa | | Load 0x2,-0x6 0c16 00db | | Load_Top At_Offset_3 0c17 00da | | Load_Top At_Offset_2 0c18 82a0 | | Call 0x1,0xa0 0c19 e5fa | | Load 0x2,-0x6 0c1a e5fc | | Load 0x2,-0x4 0c1b e5fd | | Load 0x2,-0x3 0c1c e5fe | | Load 0x2,-0x2 0c1d e5ff | | Load 0x2,-0x1 0c1e 82a7 | | Call 0x1,0xa7 0c1f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0c20 TRAP_0c00: 0c20 0007 | | Action Break_Optional 0c21 e5fa | | Load 0x2,-0x6 0c22 4801 |H | Short_Literal 0x1 0c23 4801 |H | Short_Literal 0x1 0c24 e006 | | Load 0x0,0x6 0c25 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c26 0334 | 4 | Declare_Variable Array,With_Constraint 0c27 e5ff | | Load 0x2,-0x1 0c28 e006 | | Load 0x0,0x6 0c29 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0c2a e006 | | Load 0x0,0x6 0c2b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c2c 0119 | | Execute Any,Check_In_Formal_Type 0c2d 4801 |H | Short_Literal 0x1 0c2e 00da | | Load_Top At_Offset_2 0c2f 01d6 | | Execute Vector,Field_Write 0c30 600b |` | Indirect_Literal Discrete,0xc3c,{0x00000000, 0x000081a2} 0c31 e001 | | Load 0x0,0x1 0c32 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c33 e006 | | Load 0x0,0x6 0c34 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c35 6006 |` | Indirect_Literal Discrete,0xc3c,{0x00000000, 0x000081a2} 0c36 e001 | | Load 0x0,0x1 0c37 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c38 a5f9 | | Store_Unchecked 0x2,-0x7 0c39 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0c3a 0000 0000 | | .XXX[0x2] 0c3c 0000 0000 | | .LITERAL {0x00000000, 0x000081a2} 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c4f | O | .CONST 0x0c4f ; Address of begin 0c41 0c6f | o | .CONST 0x0c6f ; Address of exception handler 0c42 0006 | | .CONST 0x0006 ; Number of locals 0c43 INIT_0c40: 0c43 00e1 | | Load_Encached Boolean_Cache 0c44 e00c | | Load 0x0,0xc 0c45 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c46 02c7 | | Declare_Variable Any 0c47 00d8 | | Load_Top At_Offset_0 0c48 1c00 | | Execute_Immediate Run_Utility,0x0 0c49 00e2 | | Load_Encached Integer_Cache 0c4a e5ff | | Load 0x2,-0x1 0c4b e004 | | Load 0x0,0x4 0c4c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0c4d 029f 179b | | Declare_Subprogram INIT_1798,For_Call 0c4f BODY_0c40: 0c4f 4800 |H | Short_Literal 0x0 0c50 a5fd | | Store_Unchecked 0x2,-0x3 0c51 e001 | | Load 0x0,0x1 0c52 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c53 00e2 | | Load_Encached Integer_Cache 0c54 e403 | | Load 0x2,0x3 0c55 0120 | | Execute Any,Is_Value 0c56 6803 |h | Jump_Zero 0xc5a 0c57 e00c | | Load 0x0,0xc 0c58 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c59 7801 |x | Jump 0xc5b 0c5a e403 | | Load 0x2,0x3 0c5b e5fe | | Load 0x2,-0x2 0c5c e5ff | | Load 0x2,-0x1 0c5d 8267 | g | Call 0x1,0x67 0c5e c403 | | Store 0x2,0x3 0c5f c404 | | Store 0x2,0x4 0c60 c5fd | | Store 0x2,-0x3 0c61 e001 | | Load 0x0,0x1 0c62 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c63 e5fe | | Load 0x2,-0x2 0c64 e5ff | | Load 0x2,-0x1 0c65 8261 | a | Call 0x1,0x61 0c66 c5fd | | Store 0x2,-0x3 0c67 e5fe | | Load 0x2,-0x2 0c68 00da | | Load_Top At_Offset_2 0c69 828f | | Call 0x1,0x8f 0c6a 00da | | Load_Top At_Offset_2 0c6b 0f01 | | Execute_Immediate Equal,0x1 0c6c 6801 |h | Jump_Zero 0xc6e 0c6d 8406 | | Call 0x2,0x6 0c6e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c6f TRAP_0c40: 0c6f 0007 | | Action Break_Optional 0c70 e5fe | | Load 0x2,-0x2 0c71 4801 |H | Short_Literal 0x1 0c72 4801 |H | Short_Literal 0x1 0c73 e006 | | Load 0x0,0x6 0c74 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c75 0334 | 4 | Declare_Variable Array,With_Constraint 0c76 e405 | | Load 0x2,0x5 0c77 e006 | | Load 0x0,0x6 0c78 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c79 e006 | | Load 0x0,0x6 0c7a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c7b 0119 | | Execute Any,Check_In_Formal_Type 0c7c 4801 |H | Short_Literal 0x1 0c7d 00da | | Load_Top At_Offset_2 0c7e 01d6 | | Execute Vector,Field_Write 0c7f 600c |` | Indirect_Literal Discrete,0xc8c,{0x00000000, 0x000081a3} 0c80 e001 | | Load 0x0,0x1 0c81 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c82 e006 | | Load 0x0,0x6 0c83 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c84 6007 |` | Indirect_Literal Discrete,0xc8c,{0x00000000, 0x000081a3} 0c85 e001 | | Load 0x0,0x1 0c86 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c87 a5fd | | Store_Unchecked 0x2,-0x3 0c88 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c89 0000 0000 | | .XXX[0x3] 0c8b 0000 | | 0c8c 0000 0000 | | .LITERAL {0x00000000, 0x000081a3} 0c90 ; -------------------------------------------------------------------------------------- 0c90 ; SUBPROGRAM 0c90 ; -------------------------------------------------------------------------------------- 0c90 0ca7 | | .CONST 0x0ca7 ; Address of begin 0c91 0d60 | ` | .CONST 0x0d60 ; Address of exception handler 0c92 0006 | | .CONST 0x0006 ; Number of locals 0c93 INIT_0c90: 0c93 e00c | | Load 0x0,0xc 0c94 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c95 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0c96 02c7 | | Declare_Variable Any 0c97 00d8 | | Load_Top At_Offset_0 0c98 1c00 | | Execute_Immediate Run_Utility,0x0 0c99 e26f | o | Load 0x1,0x6f 0c9a 0322 | " | Declare_Variable Record 0c9b 00d8 | | Load_Top At_Offset_0 0c9c 1c00 | | Execute_Immediate Run_Utility,0x0 0c9d e00c | | Load 0x0,0xc 0c9e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c9f 02c7 | | Declare_Variable Any 0ca0 00d8 | | Load_Top At_Offset_0 0ca1 1c00 | | Execute_Immediate Run_Utility,0x0 0ca2 e001 | | Load 0x0,0x1 0ca3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ca4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ca5 00e1 | | Load_Encached Boolean_Cache 0ca6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ca7 BODY_0c90: 0ca7 e001 | | Load 0x0,0x1 0ca8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ca9 e402 | | Load 0x2,0x2 0caa 0120 | | Execute Any,Is_Value 0cab 6804 |h | Jump_Zero 0xcb0 0cac e00c | | Load 0x0,0xc 0cad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0cae 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0caf 7801 |x | Jump 0xcb1 0cb0 e402 | | Load 0x2,0x2 0cb1 e5fe | | Load 0x2,-0x2 0cb2 e5ff | | Load 0x2,-0x1 0cb3 825f | _ | Call 0x1,0x5f 0cb4 c402 | | Store 0x2,0x2 0cb5 005a | Z | Store_Top Discrete,At_Offset_2 0cb6 00d9 | | Load_Top At_Offset_1 0cb7 6803 |h | Jump_Zero 0xcbb 0cb8 e001 | | Load 0x0,0x1 0cb9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0cba 0257 | W | Execute Discrete,Raise 0cbb e402 | | Load 0x2,0x2 0cbc e00c | | Load 0x0,0xc 0cbd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0cbe 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0cbf 6815 |h | Jump_Zero 0xcd5 0cc0 e5fe | | Load 0x2,-0x2 0cc1 4801 |H | Short_Literal 0x1 0cc2 4801 |H | Short_Literal 0x1 0cc3 e006 | | Load 0x0,0x6 0cc4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cc5 0334 | 4 | Declare_Variable Array,With_Constraint 0cc6 e5ff | | Load 0x2,-0x1 0cc7 e004 | | Load 0x0,0x4 0cc8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0cc9 e006 | | Load 0x0,0x6 0cca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ccb 0119 | | Execute Any,Check_In_Formal_Type 0ccc 4801 |H | Short_Literal 0x1 0ccd 00da | | Load_Top At_Offset_2 0cce 01d6 | | Execute Vector,Field_Write 0ccf 60a0 |` | Indirect_Literal Discrete,0xd70,{0x00000000, 0x000081a8} 0cd0 e001 | | Load 0x0,0x1 0cd1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0cd2 4800 |H | Short_Literal 0x0 0cd3 a5fd | | Store_Unchecked 0x2,-0x3 0cd4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0cd5 e5fe | | Load 0x2,-0x2 0cd6 4801 |H | Short_Literal 0x1 0cd7 4801 |H | Short_Literal 0x1 0cd8 e006 | | Load 0x0,0x6 0cd9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cda 0334 | 4 | Declare_Variable Array,With_Constraint 0cdb e5ff | | Load 0x2,-0x1 0cdc e004 | | Load 0x0,0x4 0cdd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0cde e006 | | Load 0x0,0x6 0cdf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ce0 0119 | | Execute Any,Check_In_Formal_Type 0ce1 4801 |H | Short_Literal 0x1 0ce2 00da | | Load_Top At_Offset_2 0ce3 01d6 | | Execute Vector,Field_Write 0ce4 6087 |` | Indirect_Literal Discrete,0xd6c,{0x00000000, 0x000081a9} 0ce5 e001 | | Load 0x0,0x1 0ce6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ce7 e5fe | | Load 0x2,-0x2 0ce8 e5ff | | Load 0x2,-0x1 0ce9 8273 | s | Call 0x1,0x73 0cea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0ceb e5fe | | Load 0x2,-0x2 0cec 4801 |H | Short_Literal 0x1 0ced 4802 |H | Short_Literal 0x2 0cee e006 | | Load 0x0,0x6 0cef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cf0 0334 | 4 | Declare_Variable Array,With_Constraint 0cf1 e5ff | | Load 0x2,-0x1 0cf2 e004 | | Load 0x0,0x4 0cf3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0cf4 e006 | | Load 0x0,0x6 0cf5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0cf6 0119 | | Execute Any,Check_In_Formal_Type 0cf7 4801 |H | Short_Literal 0x1 0cf8 00da | | Load_Top At_Offset_2 0cf9 01d6 | | Execute Vector,Field_Write 0cfa 00da | | Load_Top At_Offset_2 0cfb 00e1 | | Load_Encached Boolean_Cache 0cfc 011c | | Execute Any,Convert_Unchecked 0cfd 1c01 | | Execute_Immediate Run_Utility,0x1 0cfe e006 | | Load 0x0,0x6 0cff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d00 e006 | | Load 0x0,0x6 0d01 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d02 0119 | | Execute Any,Check_In_Formal_Type 0d03 4802 |H | Short_Literal 0x2 0d04 00da | | Load_Top At_Offset_2 0d05 01d6 | | Execute Vector,Field_Write 0d06 6061 |`a | Indirect_Literal Discrete,0xd68,{0x00000000, 0x000081ab} 0d07 e001 | | Load 0x0,0x1 0d08 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d09 00cf | | Action Mark_Auxiliary 0d0a 784f |xO | Jump 0xd5a 0d0b e5fe | | Load 0x2,-0x2 0d0c 4801 |H | Short_Literal 0x1 0d0d e402 | | Load 0x2,0x2 0d0e e004 | | Load 0x0,0x4 0d0f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0d10 c404 | | Store 0x2,0x4 0d11 e403 | | Load 0x2,0x3 0d12 e5fe | | Load 0x2,-0x2 0d13 e404 | | Load 0x2,0x4 0d14 e004 | | Load 0x0,0x4 0d15 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d16 82a3 | | Call 0x1,0xa3 0d17 00d1 | | Pop_Control Pop_Count_1 0d18 e5fe | | Load 0x2,-0x2 0d19 4801 |H | Short_Literal 0x1 0d1a 4804 |H | Short_Literal 0x4 0d1b e006 | | Load 0x0,0x6 0d1c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d1d 0334 | 4 | Declare_Variable Array,With_Constraint 0d1e e404 | | Load 0x2,0x4 0d1f e004 | | Load 0x0,0x4 0d20 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d21 e006 | | Load 0x0,0x6 0d22 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d23 0119 | | Execute Any,Check_In_Formal_Type 0d24 4801 |H | Short_Literal 0x1 0d25 00da | | Load_Top At_Offset_2 0d26 01d6 | | Execute Vector,Field_Write 0d27 4801 |H | Short_Literal 0x1 0d28 e403 | | Load 0x2,0x3 0d29 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0d2a e403 | | Load 0x2,0x3 0d2b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0d2c 01cf | | Execute Vector,Slice_Read 0d2d e006 | | Load 0x0,0x6 0d2e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d2f e006 | | Load 0x0,0x6 0d30 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d31 0119 | | Execute Any,Check_In_Formal_Type 0d32 4802 |H | Short_Literal 0x2 0d33 00da | | Load_Top At_Offset_2 0d34 01d6 | | Execute Vector,Field_Write 0d35 4801 |H | Short_Literal 0x1 0d36 e403 | | Load 0x2,0x3 0d37 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0d38 e403 | | Load 0x2,0x3 0d39 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0d3a 01cf | | Execute Vector,Slice_Read 0d3b e006 | | Load 0x0,0x6 0d3c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d3d e006 | | Load 0x0,0x6 0d3e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d3f 0119 | | Execute Any,Check_In_Formal_Type 0d40 4803 |H | Short_Literal 0x3 0d41 00da | | Load_Top At_Offset_2 0d42 01d6 | | Execute Vector,Field_Write 0d43 4801 |H | Short_Literal 0x1 0d44 e403 | | Load 0x2,0x3 0d45 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0d46 e403 | | Load 0x2,0x3 0d47 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0d48 01cf | | Execute Vector,Slice_Read 0d49 e006 | | Load 0x0,0x6 0d4a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d4b e006 | | Load 0x0,0x6 0d4c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d4d 0119 | | Execute Any,Check_In_Formal_Type 0d4e 4804 |H | Short_Literal 0x4 0d4f 00da | | Load_Top At_Offset_2 0d50 01d6 | | Execute Vector,Field_Write 0d51 6012 |` | Indirect_Literal Discrete,0xd64,{0x00000000, 0x000081aa} 0d52 e001 | | Load 0x0,0x1 0d53 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d54 e402 | | Load 0x2,0x2 0d55 e00c | | Load 0x0,0xc 0d56 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d57 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d58 c402 | | Store 0x2,0x2 0d59 00c9 | | Action Pop_Auxiliary_Loop 0d5a e402 | | Load 0x2,0x2 0d5b e00c | | Load 0x0,0xc 0d5c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d5d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0d5e 6fac |o | Jump_Zero 0xd0b 0d5f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d60 TRAP_0c90: 0d60 0007 | | Action Break_Optional 0d61 00da | | Load_Top At_Offset_2 0d62 a5fd | | Store_Unchecked 0x2,-0x3 0d63 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d64 0000 0000 | | .LITERAL {0x00000000, 0x000081aa} 0d68 0000 0000 | | .LITERAL {0x00000000, 0x000081ab} 0d6c 0000 0000 | | .LITERAL {0x00000000, 0x000081a9} 0d70 0000 0000 | | .LITERAL {0x00000000, 0x000081a8} 0d74 0000 0000 | | .BLANK 0000[0x4] 0d78 ; -------------------------------------------------------------------------------------- 0d78 ; SUBPROGRAM 0d78 ; -------------------------------------------------------------------------------------- 0d78 0d81 | | .CONST 0x0d81 ; Address of begin 0d79 0d99 | | .CONST 0x0d99 ; Address of exception handler 0d7a 0002 | | .CONST 0x0002 ; Number of locals 0d7b INIT_0d78: 0d7b e00c | | Load 0x0,0xc 0d7c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d7d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0d7e 02c7 | | Declare_Variable Any 0d7f 00d8 | | Load_Top At_Offset_0 0d80 1c00 | | Execute_Immediate Run_Utility,0x0 0d81 BODY_0d78: 0d81 4800 |H | Short_Literal 0x0 0d82 a5fc | | Store_Unchecked 0x2,-0x4 0d83 4800 |H | Short_Literal 0x0 0d84 a5fd | | Store_Unchecked 0x2,-0x3 0d85 00db | | Load_Top At_Offset_3 0d86 e004 | | Load 0x0,0x4 0d87 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d88 e28e | | Load 0x1,0x8e 0d89 01cc | | Execute Vector,Catenate 0d8a 8296 | | Call 0x1,0x96 0d8b c402 | | Store 0x2,0x2 0d8c 00d8 | | Load_Top At_Offset_0 0d8d e00c | | Load 0x0,0xc 0d8e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d8f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0d90 7007 |p | Jump_Nonzero 0xd98 0d91 00d8 | | Load_Top At_Offset_0 0d92 e00c | | Load 0x0,0xc 0d93 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d94 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0d95 7002 |p | Jump_Nonzero 0xd98 0d96 4801 |H | Short_Literal 0x1 0d97 a5fd | | Store_Unchecked 0x2,-0x3 0d98 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d99 TRAP_0d78: 0d99 0007 | | Action Break_Optional 0d9a e006 | | Load 0x0,0x6 0d9b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d9c 6007 |` | Indirect_Literal Discrete,0xda4,{0x00000000, 0x0000813b} 0d9d e001 | | Load 0x0,0x1 0d9e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d9f a5fc | | Store_Unchecked 0x2,-0x4 0da0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0da1 0000 0000 | | .XXX[0x3] 0da3 0000 | | 0da4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0da8 ; -------------------------------------------------------------------------------------- 0da8 ; SUBPROGRAM 0da8 ; -------------------------------------------------------------------------------------- 0da8 0dab | | .CONST 0x0dab ; Address of begin 0da9 0dbf | | .CONST 0x0dbf ; Address of exception handler 0daa 0001 | | .CONST 0x0001 ; Number of locals 0dab BODY_0da8: 0dab INIT_0da8: 0dab 4800 |H | Short_Literal 0x0 0dac a5fa | | Store_Unchecked 0x2,-0x6 0dad 00e2 | | Load_Encached Integer_Cache 0dae 00e1 | | Load_Encached Boolean_Cache 0daf e5fd | | Load 0x2,-0x3 0db0 0120 | | Execute Any,Is_Value 0db1 6803 |h | Jump_Zero 0xdb5 0db2 e00c | | Load 0x0,0xc 0db3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0db4 7801 |x | Jump 0xdb6 0db5 e5fd | | Load 0x2,-0x3 0db6 e5fe | | Load 0x2,-0x2 0db7 e5ff | | Load 0x2,-0x1 0db8 e004 | | Load 0x0,0x4 0db9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0dba 82aa | | Call 0x1,0xaa 0dbb c5fd | | Store 0x2,-0x3 0dbc c5fc | | Store 0x2,-0x4 0dbd c5fb | | Store 0x2,-0x5 0dbe 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0dbf TRAP_0da8: 0dbf 0007 | | Action Break_Optional 0dc0 e006 | | Load 0x0,0x6 0dc1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0dc2 67e1 |g | Indirect_Literal Discrete,0xda4,{0x00000000, 0x0000813b} 0dc3 e001 | | Load 0x0,0x1 0dc4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0dc5 a5fa | | Store_Unchecked 0x2,-0x6 0dc6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0dc7 0000 | | .XXX[0x1] 0dc8 ; -------------------------------------------------------------------------------------- 0dc8 ; SUBPROGRAM 0dc8 ; -------------------------------------------------------------------------------------- 0dc8 0dcc | | .CONST 0x0dcc ; Address of begin 0dc9 0dfb | | .CONST 0x0dfb ; Address of exception handler 0dca 0002 | | .CONST 0x0002 ; Number of locals 0dcb INIT_0dc8: 0dcb 00e1 | | Load_Encached Boolean_Cache 0dcc BODY_0dc8: 0dcc 4800 |H | Short_Literal 0x0 0dcd a5fb | | Store_Unchecked 0x2,-0x5 0dce e001 | | Load 0x0,0x1 0dcf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dd0 00e2 | | Load_Encached Integer_Cache 0dd1 00e1 | | Load_Encached Boolean_Cache 0dd2 e5fd | | Load 0x2,-0x3 0dd3 0120 | | Execute Any,Is_Value 0dd4 6803 |h | Jump_Zero 0xdd8 0dd5 e00c | | Load 0x0,0xc 0dd6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dd7 7801 |x | Jump 0xdd9 0dd8 e5fd | | Load 0x2,-0x3 0dd9 e5fe | | Load 0x2,-0x2 0dda e5ff | | Load 0x2,-0x1 0ddb 8266 | f | Call 0x1,0x66 0ddc c5fd | | Store 0x2,-0x3 0ddd 005b | [ | Store_Top Discrete,At_Offset_3 0dde c5fc | | Store 0x2,-0x4 0ddf c5fb | | Store 0x2,-0x5 0de0 00d8 | | Load_Top At_Offset_0 0de1 7018 |p | Jump_Nonzero 0xdfa 0de2 e5fe | | Load 0x2,-0x2 0de3 4801 |H | Short_Literal 0x1 0de4 4801 |H | Short_Literal 0x1 0de5 e006 | | Load 0x0,0x6 0de6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0de7 0334 | 4 | Declare_Variable Array,With_Constraint 0de8 e5ff | | Load 0x2,-0x1 0de9 e004 | | Load 0x0,0x4 0dea 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0deb e006 | | Load 0x0,0x6 0dec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ded 0119 | | Execute Any,Check_In_Formal_Type 0dee 4801 |H | Short_Literal 0x1 0def 00da | | Load_Top At_Offset_2 0df0 01d6 | | Execute Vector,Field_Write 0df1 600e |` | Indirect_Literal Discrete,0xe00,{0x00000000, 0x000081a4} 0df2 e001 | | Load 0x0,0x1 0df3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0df4 e006 | | Load 0x0,0x6 0df5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0df6 6009 |` | Indirect_Literal Discrete,0xe00,{0x00000000, 0x000081a4} 0df7 e001 | | Load 0x0,0x1 0df8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0df9 a5fb | | Store_Unchecked 0x2,-0x5 0dfa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0dfb TRAP_0dc8: 0dfb 0007 | | Action Break_Optional 0dfc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0dfd 0000 0000 | | .XXX[0x3] 0dff 0000 | | 0e00 0000 0000 | | .LITERAL {0x00000000, 0x000081a4} 0e04 0000 0000 | | .BLANK 0000[0x4] 0e08 ; -------------------------------------------------------------------------------------- 0e08 ; SUBPROGRAM 0e08 ; -------------------------------------------------------------------------------------- 0e08 0e14 | | .CONST 0x0e14 ; Address of begin 0e09 0e1d | | .CONST 0x0e1d ; Address of exception handler 0e0a 0003 | | .CONST 0x0003 ; Number of locals 0e0b INIT_0e08: 0e0b 00db | | Load_Top At_Offset_3 0e0c 00db | | Load_Top At_Offset_3 0e0d 8293 | | Call 0x1,0x93 0e0e e00c | | Load 0x0,0xc 0e0f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e10 02c7 | | Declare_Variable Any 0e11 00d9 | | Load_Top At_Offset_1 0e12 8294 | | Call 0x1,0x94 0e13 a403 | | Store_Unchecked 0x2,0x3 0e14 BODY_0e08: 0e14 00d8 | | Load_Top At_Offset_0 0e15 e00c | | Load 0x0,0xc 0e16 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e17 012e | . | Execute Any,Not_Equal 0e18 6802 |h | Jump_Zero 0xe1b 0e19 4801 |H | Short_Literal 0x1 0e1a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e1b 4800 |H | Short_Literal 0x0 0e1c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e1d TRAP_0e08: 0e1d 0007 | | Action Break_Optional 0e1e 4800 |H | Short_Literal 0x0 0e1f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0e20 ; -------------------------------------------------------------------------------------- 0e20 ; SUBPROGRAM 0e20 ; -------------------------------------------------------------------------------------- 0e20 0e34 | 4 | .CONST 0x0e34 ; Address of begin 0e21 0e5e | ^ | .CONST 0x0e5e ; Address of exception handler 0e22 0005 | | .CONST 0x0005 ; Number of locals 0e23 INIT_0e20: 0e23 00da | | Load_Top At_Offset_2 0e24 e004 | | Load 0x0,0x4 0e25 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0e26 e26f | o | Load 0x1,0x6f 0e27 0322 | " | Declare_Variable Record 0e28 00d8 | | Load_Top At_Offset_0 0e29 1c00 | | Execute_Immediate Run_Utility,0x0 0e2a e00c | | Load 0x0,0xc 0e2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e2c 02c7 | | Declare_Variable Any 0e2d 00d8 | | Load_Top At_Offset_0 0e2e 1c00 | | Execute_Immediate Run_Utility,0x0 0e2f e00c | | Load 0x0,0xc 0e30 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e31 02c7 | | Declare_Variable Any 0e32 00d8 | | Load_Top At_Offset_0 0e33 1c00 | | Execute_Immediate Run_Utility,0x0 0e34 BODY_0e20: 0e34 4800 |H | Short_Literal 0x0 0e35 a5fc | | Store_Unchecked 0x2,-0x4 0e36 e5fe | | Load 0x2,-0x2 0e37 4801 |H | Short_Literal 0x1 0e38 e5ff | | Load 0x2,-0x1 0e39 e004 | | Load 0x0,0x4 0e3a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0e3b c405 | | Store 0x2,0x5 0e3c 00da | | Load_Top At_Offset_2 0e3d e5fe | | Load 0x2,-0x2 0e3e e402 | | Load 0x2,0x2 0e3f 82a3 | | Call 0x1,0xa3 0e40 00d1 | | Pop_Control Pop_Count_1 0e41 e5fe | | Load 0x2,-0x2 0e42 4801 |H | Short_Literal 0x1 0e43 e5ff | | Load 0x2,-0x1 0e44 e004 | | Load 0x0,0x4 0e45 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e46 e004 | | Load 0x0,0x4 0e47 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0e48 0092 19f3 | | Action Push_String_Extended,0x19f3 ; "." 0e4a 01cc | | Execute Vector,Catenate 0e4b 4801 |H | Short_Literal 0x1 0e4c e403 | | Load 0x2,0x3 0e4d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0e4e e403 | | Load 0x2,0x3 0e4f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0e50 01cf | | Execute Vector,Slice_Read 0e51 01cc | | Execute Vector,Catenate 0e52 8294 | | Call 0x1,0x94 0e53 c404 | | Store 0x2,0x4 0e54 00d9 | | Load_Top At_Offset_1 0e55 e00c | | Load 0x0,0xc 0e56 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e57 6803 |h | Jump_Zero 0xe5b 0e58 e001 | | Load 0x0,0x1 0e59 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e5a 0257 | W | Execute Discrete,Raise 0e5b 00d9 | | Load_Top At_Offset_1 0e5c c5fd | | Store 0x2,-0x3 0e5d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e5e TRAP_0e20: 0e5e 0007 | | Action Break_Optional 0e5f e5fe | | Load 0x2,-0x2 0e60 4801 |H | Short_Literal 0x1 0e61 4801 |H | Short_Literal 0x1 0e62 e006 | | Load 0x0,0x6 0e63 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e64 0334 | 4 | Declare_Variable Array,With_Constraint 0e65 4801 |H | Short_Literal 0x1 0e66 e403 | | Load 0x2,0x3 0e67 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0e68 e403 | | Load 0x2,0x3 0e69 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0e6a 01cf | | Execute Vector,Slice_Read 0e6b e006 | | Load 0x0,0x6 0e6c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e6d e006 | | Load 0x0,0x6 0e6e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e6f 0119 | | Execute Any,Check_In_Formal_Type 0e70 4801 |H | Short_Literal 0x1 0e71 00da | | Load_Top At_Offset_2 0e72 01d6 | | Execute Vector,Field_Write 0e73 600c |` | Indirect_Literal Discrete,0xe80,{0x00000000, 0x000081a7} 0e74 e001 | | Load 0x0,0x1 0e75 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e76 e006 | | Load 0x0,0x6 0e77 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e78 6007 |` | Indirect_Literal Discrete,0xe80,{0x00000000, 0x000081a7} 0e79 e001 | | Load 0x0,0x1 0e7a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e7b a5fc | | Store_Unchecked 0x2,-0x4 0e7c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e7d 0000 0000 | | .XXX[0x3] 0e7f 0000 | | 0e80 0000 0000 | | .LITERAL {0x00000000, 0x000081a7} 0e84 0000 0000 | | .BLANK 0000[0x4] 0e88 ; -------------------------------------------------------------------------------------- 0e88 ; SUBPROGRAM 0e88 ; -------------------------------------------------------------------------------------- 0e88 0e8c | | .CONST 0x0e8c ; Address of begin 0e89 0004 | | .CONST 0x0004 ; Address of exception handler 0e8a 0002 | | .CONST 0x0002 ; Number of locals 0e8b INIT_0e88: 0e8b 00e2 | | Load_Encached Integer_Cache 0e8c BODY_0e88: 0e8c 4800 |H | Short_Literal 0x0 0e8d a5fc | | Store_Unchecked 0x2,-0x4 0e8e e001 | | Load 0x0,0x1 0e8f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e90 00e2 | | Load_Encached Integer_Cache 0e91 e5fd | | Load 0x2,-0x3 0e92 0120 | | Execute Any,Is_Value 0e93 6803 |h | Jump_Zero 0xe97 0e94 e00c | | Load 0x0,0xc 0e95 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e96 7801 |x | Jump 0xe98 0e97 e5fd | | Load 0x2,-0x3 0e98 e5fe | | Load 0x2,-0x2 0e99 e5ff | | Load 0x2,-0x1 0e9a 8267 | g | Call 0x1,0x67 0e9b c5fd | | Store 0x2,-0x3 0e9c 005a | Z | Store_Top Discrete,At_Offset_2 0e9d c5fc | | Store 0x2,-0x4 0e9e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e9f 0000 | | .XXX[0x1] 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 ; SUBPROGRAM 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 0ea6 | | .CONST 0x0ea6 ; Address of begin 0ea1 0eae | | .CONST 0x0eae ; Address of exception handler 0ea2 0002 | | .CONST 0x0002 ; Number of locals 0ea3 INIT_0ea0: 0ea3 00da | | Load_Top At_Offset_2 0ea4 e004 | | Load 0x0,0x4 0ea5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ea6 BODY_0ea0: 0ea6 4800 |H | Short_Literal 0x0 0ea7 a5fc | | Store_Unchecked 0x2,-0x4 0ea8 00d8 | | Load_Top At_Offset_0 0ea9 e28e | | Load 0x1,0x8e 0eaa 01cc | | Execute Vector,Catenate 0eab 8296 | | Call 0x1,0x96 0eac c5fd | | Store 0x2,-0x3 0ead 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0eae TRAP_0ea0: 0eae 0007 | | Action Break_Optional 0eaf 6004 |` | Indirect_Literal Discrete,0xeb4,{0x00000000, 0x0000813b} 0eb0 a5fc | | Store_Unchecked 0x2,-0x4 0eb1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0eb2 0000 0000 | | .XXX[0x2] 0eb4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 ; SUBPROGRAM 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 0ec7 | | .CONST 0x0ec7 ; Address of begin 0eb9 0ece | | .CONST 0x0ece ; Address of exception handler 0eba 0005 | | .CONST 0x0005 ; Number of locals 0ebb INIT_0eb8: 0ebb 00da | | Load_Top At_Offset_2 0ebc e004 | | Load 0x0,0x4 0ebd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ebe e26f | o | Load 0x1,0x6f 0ebf 0322 | " | Declare_Variable Record 0ec0 00d8 | | Load_Top At_Offset_0 0ec1 1c00 | | Execute_Immediate Run_Utility,0x0 0ec2 4801 |H | Short_Literal 0x1 0ec3 e20d | | Load 0x1,0xd 0ec4 1c08 | | Execute_Immediate Run_Utility,0x8 0ec5 029f 17ab | | Declare_Subprogram INIT_17a8,For_Call 0ec7 BODY_0eb8: 0ec7 00da | | Load_Top At_Offset_2 0ec8 e5fe | | Load 0x2,-0x2 0ec9 e402 | | Load 0x2,0x2 0eca 82a3 | | Call 0x1,0xa3 0ecb 00d1 | | Pop_Control Pop_Count_1 0ecc 8405 | | Call 0x2,0x5 0ecd 0831 | 1 | Execute_Immediate Raise,0x31 0ece TRAP_0eb8: 0ece 0007 | | Action Break_Optional 0ecf e006 | | Load 0x0,0x6 0ed0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ed1 67e2 |g | Indirect_Literal Discrete,0xeb4,{0x00000000, 0x0000813b} 0ed2 e001 | | Load 0x0,0x1 0ed3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ed4 00db | | Load_Top At_Offset_3 0ed5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0ed6 0831 | 1 | Execute_Immediate Raise,0x31 0ed7 0000 | | .XXX[0x1] 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 ; SUBPROGRAM 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 0ee7 | | .CONST 0x0ee7 ; Address of begin 0ed9 0eee | | .CONST 0x0eee ; Address of exception handler 0eda 0005 | | .CONST 0x0005 ; Number of locals 0edb INIT_0ed8: 0edb 00da | | Load_Top At_Offset_2 0edc e004 | | Load 0x0,0x4 0edd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ede e26f | o | Load 0x1,0x6f 0edf 0322 | " | Declare_Variable Record 0ee0 00d8 | | Load_Top At_Offset_0 0ee1 1c00 | | Execute_Immediate Run_Utility,0x0 0ee2 4801 |H | Short_Literal 0x1 0ee3 e20d | | Load 0x1,0xd 0ee4 1c08 | | Execute_Immediate Run_Utility,0x8 0ee5 029f 17c3 | | Declare_Subprogram INIT_17c0,For_Call 0ee7 BODY_0ed8: 0ee7 00da | | Load_Top At_Offset_2 0ee8 e5fe | | Load 0x2,-0x2 0ee9 e402 | | Load 0x2,0x2 0eea 82a3 | | Call 0x1,0xa3 0eeb 00d1 | | Pop_Control Pop_Count_1 0eec 8405 | | Call 0x2,0x5 0eed 0831 | 1 | Execute_Immediate Raise,0x31 0eee TRAP_0ed8: 0eee 0007 | | Action Break_Optional 0eef e006 | | Load 0x0,0x6 0ef0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ef1 6006 |` | Indirect_Literal Discrete,0xef8,{0x00000000, 0x0000813b} 0ef2 e001 | | Load 0x0,0x1 0ef3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ef4 00db | | Load_Top At_Offset_3 0ef5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0ef6 00da | | Load_Top At_Offset_2 0ef7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ef8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0efc 0000 0000 | | .BLANK 0000[0x4] 0f00 ; -------------------------------------------------------------------------------------- 0f00 ; SUBPROGRAM 0f00 ; -------------------------------------------------------------------------------------- 0f00 0f08 | | .CONST 0x0f08 ; Address of begin 0f01 0f10 | | .CONST 0x0f10 ; Address of exception handler 0f02 0004 | | .CONST 0x0004 ; Number of locals 0f03 INIT_0f00: 0f03 e28c | | Load 0x1,0x8c 0f04 0322 | " | Declare_Variable Record 0f05 00e2 | | Load_Encached Integer_Cache 0f06 e5ff | | Load 0x2,-0x1 0f07 8291 | | Call 0x1,0x91 0f08 BODY_0f00: 0f08 00da | | Load_Top At_Offset_2 0f09 e5fe | | Load 0x2,-0x2 0f0a 00da | | Load_Top At_Offset_2 0f0b 82a2 | | Call 0x1,0xa2 0f0c 00d1 | | Pop_Control Pop_Count_1 0f0d 00da | | Load_Top At_Offset_2 0f0e 829c | | Call 0x1,0x9c 0f0f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f10 TRAP_0f00: 0f10 0007 | | Action Break_Optional 0f11 4800 |H | Short_Literal 0x0 0f12 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f13 0000 0000 | | .BLANK 0000[0x5] 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f1d | | .CONST 0x0f1d ; Address of begin 0f19 0004 | | .CONST 0x0004 ; Address of exception handler 0f1a 0002 | | .CONST 0x0002 ; Number of locals 0f1b INIT_0f18: 0f1b e00c | | Load 0x0,0xc 0f1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f1d BODY_0f18: 0f1d 4800 |H | Short_Literal 0x0 0f1e a5fd | | Store_Unchecked 0x2,-0x3 0f1f e00c | | Load 0x0,0xc 0f20 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f21 602a |`* | Indirect_Literal Discrete,0xf4c,{0x00000000, 0x00004000} 0f22 e011 | | Load 0x0,0x11 0f23 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f24 e5ff | | Load 0x2,-0x1 0f25 e00c | | Load 0x0,0xc 0f26 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0f27 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0f28 0059 | Y | Store_Top Discrete,At_Offset_1 0f29 00d8 | | Load_Top At_Offset_0 0f2a 7001 |p | Jump_Nonzero 0xf2c 0f2b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f2c e5fe | | Load 0x2,-0x2 0f2d 4801 |H | Short_Literal 0x1 0f2e 4801 |H | Short_Literal 0x1 0f2f e006 | | Load 0x0,0x6 0f30 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f31 0334 | 4 | Declare_Variable Array,With_Constraint 0f32 e5ff | | Load 0x2,-0x1 0f33 e004 | | Load 0x0,0x4 0f34 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0f35 e006 | | Load 0x0,0x6 0f36 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f37 0119 | | Execute Any,Check_In_Formal_Type 0f38 4801 |H | Short_Literal 0x1 0f39 00da | | Load_Top At_Offset_2 0f3a 01d6 | | Execute Vector,Field_Write 0f3b 600c |` | Indirect_Literal Discrete,0xf48,{0x00000000, 0x000081a5} 0f3c e001 | | Load 0x0,0x1 0f3d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f3e e006 | | Load 0x0,0x6 0f3f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0f40 6007 |` | Indirect_Literal Discrete,0xf48,{0x00000000, 0x000081a5} 0f41 e001 | | Load 0x0,0x1 0f42 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f43 a5fd | | Store_Unchecked 0x2,-0x3 0f44 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f45 0000 0000 | | .XXX[0x3] 0f47 0000 | | 0f48 0000 0000 | | .LITERAL {0x00000000, 0x000081a5} 0f4c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0f50 ; -------------------------------------------------------------------------------------- 0f50 ; SUBPROGRAM 0f50 ; -------------------------------------------------------------------------------------- 0f50 0f55 | U | .CONST 0x0f55 ; Address of begin 0f51 0004 | | .CONST 0x0004 ; Address of exception handler 0f52 0002 | | .CONST 0x0002 ; Number of locals 0f53 INIT_0f50: 0f53 e00c | | Load 0x0,0xc 0f54 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f55 BODY_0f50: 0f55 4800 |H | Short_Literal 0x0 0f56 a5fd | | Store_Unchecked 0x2,-0x3 0f57 e00c | | Load 0x0,0xc 0f58 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f59 67f2 |g | Indirect_Literal Discrete,0xf4c,{0x00000000, 0x00004000} 0f5a e011 | | Load 0x0,0x11 0f5b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f5c e5ff | | Load 0x2,-0x1 0f5d e00c | | Load 0x0,0xc 0f5e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0f5f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0f60 0059 | Y | Store_Top Discrete,At_Offset_1 0f61 00d8 | | Load_Top At_Offset_0 0f62 6814 |h | Jump_Zero 0xf77 0f63 e5fe | | Load 0x2,-0x2 0f64 4801 |H | Short_Literal 0x1 0f65 4801 |H | Short_Literal 0x1 0f66 e006 | | Load 0x0,0x6 0f67 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f68 0334 | 4 | Declare_Variable Array,With_Constraint 0f69 e5ff | | Load 0x2,-0x1 0f6a e004 | | Load 0x0,0x4 0f6b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0f6c e006 | | Load 0x0,0x6 0f6d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f6e 0119 | | Execute Any,Check_In_Formal_Type 0f6f 4801 |H | Short_Literal 0x1 0f70 00da | | Load_Top At_Offset_2 0f71 01d6 | | Execute Vector,Field_Write 0f72 6005 |` | Indirect_Literal Discrete,0xf78,{0x00000000, 0x000081a6} 0f73 e001 | | Load 0x0,0x1 0f74 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f75 6002 |` | Indirect_Literal Discrete,0xf78,{0x00000000, 0x000081a6} 0f76 a5fd | | Store_Unchecked 0x2,-0x3 0f77 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f78 0000 0000 | | .LITERAL {0x00000000, 0x000081a6} 0f7c 0000 0000 | | .BLANK 0000[0x4] 0f80 ; -------------------------------------------------------------------------------------- 0f80 ; SUBPROGRAM 0f80 ; -------------------------------------------------------------------------------------- 0f80 0f8a | | .CONST 0x0f8a ; Address of begin 0f81 0f91 | | .CONST 0x0f91 ; Address of exception handler 0f82 0003 | | .CONST 0x0003 ; Number of locals 0f83 INIT_0f80: 0f83 00da | | Load_Top At_Offset_2 0f84 e004 | | Load 0x0,0x4 0f85 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f86 e26f | o | Load 0x1,0x6f 0f87 0322 | " | Declare_Variable Record 0f88 00d8 | | Load_Top At_Offset_0 0f89 1c00 | | Execute_Immediate Run_Utility,0x0 0f8a BODY_0f80: 0f8a 00d8 | | Load_Top At_Offset_0 0f8b e5fe | | Load 0x2,-0x2 0f8c 00db | | Load_Top At_Offset_3 0f8d 82a3 | | Call 0x1,0xa3 0f8e 00d1 | | Pop_Control Pop_Count_1 0f8f 00d8 | | Load_Top At_Offset_0 0f90 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f91 TRAP_0f80: 0f91 0007 | | Action Break_Optional 0f92 00d9 | | Load_Top At_Offset_1 0f93 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f94 0000 0000 | | .BLANK 0000[0x4] 0f98 ; -------------------------------------------------------------------------------------- 0f98 ; SUBPROGRAM 0f98 ; -------------------------------------------------------------------------------------- 0f98 0fa3 | | .CONST 0x0fa3 ; Address of begin 0f99 0fd7 | | .CONST 0x0fd7 ; Address of exception handler 0f9a 0005 | | .CONST 0x0005 ; Number of locals 0f9b INIT_0f98: 0f9b e28c | | Load 0x1,0x8c 0f9c 0322 | " | Declare_Variable Record 0f9d 00e1 | | Load_Encached Boolean_Cache 0f9e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f9f e001 | | Load 0x0,0x1 0fa0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fa1 e5ff | | Load 0x2,-0x1 0fa2 8291 | | Call 0x1,0x91 0fa3 BODY_0f98: 0fa3 4800 |H | Short_Literal 0x0 0fa4 a5fc | | Store_Unchecked 0x2,-0x4 0fa5 e001 | | Load 0x0,0x1 0fa6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fa7 00e1 | | Load_Encached Boolean_Cache 0fa8 e5fd | | Load 0x2,-0x3 0fa9 e5ff | | Load 0x2,-0x1 0faa 8245 | E | Call 0x1,0x45 0fab c403 | | Store 0x2,0x3 0fac 005a | Z | Store_Top Discrete,At_Offset_2 0fad 00d9 | | Load_Top At_Offset_1 0fae 6803 |h | Jump_Zero 0xfb2 0faf e001 | | Load 0x0,0x1 0fb0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0fb1 0257 | W | Execute Discrete,Raise 0fb2 00da | | Load_Top At_Offset_2 0fb3 7015 |p | Jump_Nonzero 0xfc9 0fb4 e5fd | | Load 0x2,-0x3 0fb5 4801 |H | Short_Literal 0x1 0fb6 4801 |H | Short_Literal 0x1 0fb7 e006 | | Load 0x0,0x6 0fb8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fb9 0334 | 4 | Declare_Variable Array,With_Constraint 0fba e5ff | | Load 0x2,-0x1 0fbb e004 | | Load 0x0,0x4 0fbc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0fbd e006 | | Load 0x0,0x6 0fbe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fbf 0119 | | Execute Any,Check_In_Formal_Type 0fc0 4801 |H | Short_Literal 0x1 0fc1 00da | | Load_Top At_Offset_2 0fc2 01d6 | | Execute Vector,Field_Write 0fc3 601c |` | Indirect_Literal Discrete,0xfe0,{0x00000000, 0x000081a8} 0fc4 e001 | | Load 0x0,0x1 0fc5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0fc6 6019 |` | Indirect_Literal Discrete,0xfe0,{0x00000000, 0x000081a8} 0fc7 a5fc | | Store_Unchecked 0x2,-0x4 0fc8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fc9 00db | | Load_Top At_Offset_3 0fca e5fd | | Load 0x2,-0x3 0fcb 00da | | Load_Top At_Offset_2 0fcc 82a2 | | Call 0x1,0xa2 0fcd 00d1 | | Pop_Control Pop_Count_1 0fce 00db | | Load_Top At_Offset_3 0fcf e5fe | | Load 0x2,-0x2 0fd0 829d | | Call 0x1,0x9d 0fd1 00d1 | | Pop_Control Pop_Count_1 0fd2 e5fd | | Load 0x2,-0x3 0fd3 e402 | | Load 0x2,0x2 0fd4 00da | | Load_Top At_Offset_2 0fd5 82a0 | | Call 0x1,0xa0 0fd6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fd7 TRAP_0f98: 0fd7 0007 | | Action Break_Optional 0fd8 6003 |` | Indirect_Literal Discrete,0xfdc,{0x00000000, 0x0000813b} 0fd9 a5fc | | Store_Unchecked 0x2,-0x4 0fda 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fdb 0000 | | .XXX[0x1] 0fdc 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0fe0 0000 0000 | | .LITERAL {0x00000000, 0x000081a8} 0fe4 0000 0000 | | .BLANK 0000[0x4] 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 ; SUBPROGRAM 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 0ff2 | | .CONST 0x0ff2 ; Address of begin 0fe9 1020 | | .CONST 0x1020 ; Address of exception handler 0fea 0003 | | .CONST 0x0003 ; Number of locals 0feb INIT_0fe8: 0feb 00da | | Load_Top At_Offset_2 0fec e004 | | Load 0x0,0x4 0fed 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0fee e26f | o | Load 0x1,0x6f 0fef 0322 | " | Declare_Variable Record 0ff0 00d8 | | Load_Top At_Offset_0 0ff1 1c00 | | Execute_Immediate Run_Utility,0x0 0ff2 BODY_0fe8: 0ff2 4800 |H | Short_Literal 0x0 0ff3 a5fc | | Store_Unchecked 0x2,-0x4 0ff4 00d8 | | Load_Top At_Offset_0 0ff5 e5fd | | Load 0x2,-0x3 0ff6 00db | | Load_Top At_Offset_3 0ff7 82a3 | | Call 0x1,0xa3 0ff8 00d1 | | Pop_Control Pop_Count_1 0ff9 e5fe | | Load 0x2,-0x2 0ffa 01db | | Execute Vector,Length 0ffb 0c81 | | Execute_Immediate Greater_Equal,-0x7f 0ffc 6802 |h | Jump_Zero 0xfff 0ffd e015 | | Load 0x0,0x15 0ffe 0257 | W | Execute Discrete,Raise 0fff e5fe | | Load 0x2,-0x2 1000 4801 |H | Short_Literal 0x1 1001 e5fe | | Load 0x2,-0x2 1002 01db | | Execute Vector,Length 1003 00d8 | | Load_Top At_Offset_0 1004 00e2 | | Load_Encached Integer_Cache 1005 0260 | ` | Execute Discrete,In_Type 1006 7001 |p | Jump_Nonzero 0x1008 1007 0801 | | Execute_Immediate Raise,0x1 1008 00db | | Load_Top At_Offset_3 1009 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 100a 01ce | | Execute Vector,Slice_Write 100b e5fe | | Load 0x2,-0x2 100c 01db | | Execute Vector,Length 100d 00d9 | | Load_Top At_Offset_1 100e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 100f e001 | | Load 0x0,0x1 1010 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1011 e5fd | | Load 0x2,-0x3 1012 e5ff | | Load 0x2,-0x1 1013 8261 | a | Call 0x1,0x61 1014 c5fc | | Store 0x2,-0x4 1015 e5fd | | Load 0x2,-0x3 1016 00d9 | | Load_Top At_Offset_1 1017 00db | | Load_Top At_Offset_3 1018 82a5 | | Call 0x1,0xa5 1019 e001 | | Load 0x0,0x1 101a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 101b e5fd | | Load 0x2,-0x3 101c e5ff | | Load 0x2,-0x1 101d 8260 | ` | Call 0x1,0x60 101e c5fc | | Store 0x2,-0x4 101f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1020 TRAP_0fe8: 1020 e015 | | Load 0x0,0x15 1021 010f | | Execute Exception,Equal 1022 6816 |h | Jump_Zero 0x1039 1023 e5fd | | Load 0x2,-0x3 1024 4801 |H | Short_Literal 0x1 1025 4801 |H | Short_Literal 0x1 1026 e006 | | Load 0x0,0x6 1027 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1028 0334 | 4 | Declare_Variable Array,With_Constraint 1029 0092 19e5 | | Action Push_String_Extended,0x19e5 ; " 128" 102b e006 | | Load 0x0,0x6 102c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 102d e006 | | Load 0x0,0x6 102e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 102f 0119 | | Execute Any,Check_In_Formal_Type 1030 4801 |H | Short_Literal 0x1 1031 00da | | Load_Top At_Offset_2 1032 01d6 | | Execute Vector,Field_Write 1033 6008 |` | Indirect_Literal Discrete,0x103c,{0x00000000, 0x0000819e} 1034 e001 | | Load 0x0,0x1 1035 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1036 6005 |` | Indirect_Literal Discrete,0x103c,{0x00000000, 0x0000819e} 1037 a5fc | | Store_Unchecked 0x2,-0x4 1038 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1039 67a2 |g | Indirect_Literal Discrete,0xfdc,{0x00000000, 0x0000813b} 103a a5fc | | Store_Unchecked 0x2,-0x4 103b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 103c 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 1040 ; -------------------------------------------------------------------------------------- 1040 ; SUBPROGRAM 1040 ; -------------------------------------------------------------------------------------- 1040 104a | J | .CONST 0x104a ; Address of begin 1041 1078 | x | .CONST 0x1078 ; Address of exception handler 1042 0003 | | .CONST 0x0003 ; Number of locals 1043 INIT_1040: 1043 00da | | Load_Top At_Offset_2 1044 e004 | | Load 0x0,0x4 1045 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1046 e26f | o | Load 0x1,0x6f 1047 0322 | " | Declare_Variable Record 1048 00d8 | | Load_Top At_Offset_0 1049 1c00 | | Execute_Immediate Run_Utility,0x0 104a BODY_1040: 104a 4800 |H | Short_Literal 0x0 104b a5fc | | Store_Unchecked 0x2,-0x4 104c 00d8 | | Load_Top At_Offset_0 104d e5fd | | Load 0x2,-0x3 104e 00db | | Load_Top At_Offset_3 104f 82a3 | | Call 0x1,0xa3 1050 00d1 | | Pop_Control Pop_Count_1 1051 e5fe | | Load 0x2,-0x2 1052 01db | | Execute Vector,Length 1053 0c81 | | Execute_Immediate Greater_Equal,-0x7f 1054 6802 |h | Jump_Zero 0x1057 1055 e016 | | Load 0x0,0x16 1056 0257 | W | Execute Discrete,Raise 1057 e5fe | | Load 0x2,-0x2 1058 4801 |H | Short_Literal 0x1 1059 e5fe | | Load 0x2,-0x2 105a 01db | | Execute Vector,Length 105b 00d8 | | Load_Top At_Offset_0 105c 00e2 | | Load_Encached Integer_Cache 105d 0260 | ` | Execute Discrete,In_Type 105e 7001 |p | Jump_Nonzero 0x1060 105f 0801 | | Execute_Immediate Raise,0x1 1060 00db | | Load_Top At_Offset_3 1061 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1062 01ce | | Execute Vector,Slice_Write 1063 e5fe | | Load 0x2,-0x2 1064 01db | | Execute Vector,Length 1065 00d9 | | Load_Top At_Offset_1 1066 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1067 e001 | | Load 0x0,0x1 1068 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1069 e5fd | | Load 0x2,-0x3 106a e5ff | | Load 0x2,-0x1 106b 8261 | a | Call 0x1,0x61 106c c5fc | | Store 0x2,-0x4 106d e5fd | | Load 0x2,-0x3 106e 00d9 | | Load_Top At_Offset_1 106f 00db | | Load_Top At_Offset_3 1070 82a5 | | Call 0x1,0xa5 1071 e001 | | Load 0x0,0x1 1072 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1073 e5fd | | Load 0x2,-0x3 1074 e5ff | | Load 0x2,-0x1 1075 8260 | ` | Call 0x1,0x60 1076 c5fc | | Store 0x2,-0x4 1077 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1078 TRAP_1040: 1078 e016 | | Load 0x0,0x16 1079 010f | | Execute Exception,Equal 107a 6816 |h | Jump_Zero 0x1091 107b e5fd | | Load 0x2,-0x3 107c 4801 |H | Short_Literal 0x1 107d 4801 |H | Short_Literal 0x1 107e e006 | | Load 0x0,0x6 107f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1080 0334 | 4 | Declare_Variable Array,With_Constraint 1081 0092 19e5 | | Action Push_String_Extended,0x19e5 ; " 128" 1083 e006 | | Load 0x0,0x6 1084 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1085 e006 | | Load 0x0,0x6 1086 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1087 0119 | | Execute Any,Check_In_Formal_Type 1088 4801 |H | Short_Literal 0x1 1089 00da | | Load_Top At_Offset_2 108a 01d6 | | Execute Vector,Field_Write 108b 67b0 |g | Indirect_Literal Discrete,0x103c,{0x00000000, 0x0000819e} 108c e001 | | Load 0x0,0x1 108d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 108e 67ad |g | Indirect_Literal Discrete,0x103c,{0x00000000, 0x0000819e} 108f a5fc | | Store_Unchecked 0x2,-0x4 1090 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1091 6002 |` | Indirect_Literal Discrete,0x1094,{0x00000000, 0x0000813b} 1092 a5fc | | Store_Unchecked 0x2,-0x4 1093 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1094 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 1098 ; -------------------------------------------------------------------------------------- 1098 ; SUBPROGRAM 1098 ; -------------------------------------------------------------------------------------- 1098 10ad | | .CONST 0x10ad ; Address of begin 1099 113a | : | .CONST 0x113a ; Address of exception handler 109a 0006 | | .CONST 0x0006 ; Number of locals 109b INIT_1098: 109b e00c | | Load 0x0,0xc 109c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 109d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 109e e00c | | Load 0x0,0xc 109f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10a0 e00c | | Load 0x0,0xc 10a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10a2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 10a3 02c7 | | Declare_Variable Any 10a4 00d8 | | Load_Top At_Offset_0 10a5 1c00 | | Execute_Immediate Run_Utility,0x0 10a6 e00c | | Load 0x0,0xc 10a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10a8 02c7 | | Declare_Variable Any 10a9 00d8 | | Load_Top At_Offset_0 10aa 1c00 | | Execute_Immediate Run_Utility,0x0 10ab 029f 17db | | Declare_Subprogram INIT_17d8,For_Call 10ad BODY_1098: 10ad 4800 |H | Short_Literal 0x0 10ae a5fd | | Store_Unchecked 0x2,-0x3 10af e00c | | Load 0x0,0xc 10b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10b2 00db | | Load_Top At_Offset_3 10b3 60a4 |` | Indirect_Literal Discrete,0x1158,{0x00000000, 0x00004000} 10b4 e011 | | Load 0x0,0x11 10b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10b6 e017 | | Load 0x0,0x17 10b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 10b8 e018 | | Load 0x0,0x18 10b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 10ba 4801 |H | Short_Literal 0x1 10bb 4800 |H | Short_Literal 0x0 10bc e017 | | Load 0x0,0x17 10bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 10be e00c | | Load 0x0,0xc 10bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 10c1 e5ff | | Load 0x2,-0x1 10c2 0092 19f5 | | Action Push_String_Extended,0x19f5 ; ".??'c(library)" 10c4 01cc | | Execute Vector,Catenate 10c5 e00c | | Load 0x0,0xc 10c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 10c8 c404 | | Store 0x2,0x4 10c9 c402 | | Store 0x2,0x2 10ca e402 | | Load 0x2,0x2 10cb 6818 |h | Jump_Zero 0x10e4 10cc e5fe | | Load 0x2,-0x2 10cd 4801 |H | Short_Literal 0x1 10ce 4801 |H | Short_Literal 0x1 10cf e006 | | Load 0x0,0x6 10d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10d1 0334 | 4 | Declare_Variable Array,With_Constraint 10d2 e5ff | | Load 0x2,-0x1 10d3 0092 19f6 | | Action Push_String_Extended,0x19f6 ; "??'c(library)" 10d5 01cc | | Execute Vector,Catenate 10d6 e006 | | Load 0x0,0x6 10d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10d8 e006 | | Load 0x0,0x6 10d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10da 0119 | | Execute Any,Check_In_Formal_Type 10db 4801 |H | Short_Literal 0x1 10dc 00da | | Load_Top At_Offset_2 10dd 01d6 | | Execute Vector,Field_Write 10de 6075 |`u | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 10df e001 | | Load 0x0,0x1 10e0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 10e1 6072 |`r | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 10e2 a5fd | | Store_Unchecked 0x2,-0x3 10e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 10e4 00da | | Load_Top At_Offset_2 10e5 e00c | | Load 0x0,0xc 10e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10e7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 10e8 6818 |h | Jump_Zero 0x1101 10e9 e5fe | | Load 0x2,-0x2 10ea 4801 |H | Short_Literal 0x1 10eb 4801 |H | Short_Literal 0x1 10ec e006 | | Load 0x0,0x6 10ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10ee 0334 | 4 | Declare_Variable Array,With_Constraint 10ef e5ff | | Load 0x2,-0x1 10f0 0092 19f6 | | Action Push_String_Extended,0x19f6 ; "??'c(library)" 10f2 01cc | | Execute Vector,Catenate 10f3 e006 | | Load 0x0,0x6 10f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10f5 e006 | | Load 0x0,0x6 10f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10f7 0119 | | Execute Any,Check_In_Formal_Type 10f8 4801 |H | Short_Literal 0x1 10f9 00da | | Load_Top At_Offset_2 10fa 01d6 | | Execute Vector,Field_Write 10fb 6058 |`X | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 10fc e001 | | Load 0x0,0x1 10fd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 10fe 6055 |`U | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 10ff a5fd | | Store_Unchecked 0x2,-0x3 1100 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1101 00cf | | Action Mark_Auxiliary 1102 7831 |x1 | Jump 0x1134 1103 e00c | | Load 0x0,0xc 1104 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1105 00db | | Load_Top At_Offset_3 1106 0120 | | Execute Any,Is_Value 1107 6803 |h | Jump_Zero 0x110b 1108 e00c | | Load 0x0,0xc 1109 1b0f | | Execute Package,Field_Read,Field_Number 0xf 110a 7801 |x | Jump 0x110c 110b 00db | | Load_Top At_Offset_3 110c e404 | | Load 0x2,0x4 110d e00c | | Load 0x0,0xc 110e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 110f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1110 c405 | | Store 0x2,0x5 1111 c403 | | Store 0x2,0x3 1112 e403 | | Load 0x2,0x3 1113 6818 |h | Jump_Zero 0x112c 1114 e5fe | | Load 0x2,-0x2 1115 4801 |H | Short_Literal 0x1 1116 4801 |H | Short_Literal 0x1 1117 e006 | | Load 0x0,0x6 1118 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1119 0334 | 4 | Declare_Variable Array,With_Constraint 111a e5ff | | Load 0x2,-0x1 111b 0092 19f6 | | Action Push_String_Extended,0x19f6 ; "??'c(library)" 111d 01cc | | Execute Vector,Catenate 111e e006 | | Load 0x0,0x6 111f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1120 e006 | | Load 0x0,0x6 1121 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1122 0119 | | Execute Any,Check_In_Formal_Type 1123 4801 |H | Short_Literal 0x1 1124 00da | | Load_Top At_Offset_2 1125 01d6 | | Execute Vector,Field_Write 1126 602d |`- | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 1127 e001 | | Load 0x0,0x1 1128 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1129 602a |`* | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 112a a5fd | | Store_Unchecked 0x2,-0x3 112b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 112c 00da | | Load_Top At_Offset_2 112d 8406 | | Call 0x2,0x6 112e 00db | | Load_Top At_Offset_3 112f e00c | | Load 0x0,0xc 1130 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1131 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1132 c404 | | Store 0x2,0x4 1133 00c9 | | Action Pop_Auxiliary_Loop 1134 00db | | Load_Top At_Offset_3 1135 e00c | | Load 0x0,0xc 1136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1137 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1138 6fca |o | Jump_Zero 0x1103 1139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 113a TRAP_1098: 113a 0007 | | Action Break_Optional 113b e5fe | | Load 0x2,-0x2 113c 4801 |H | Short_Literal 0x1 113d 4801 |H | Short_Literal 0x1 113e e006 | | Load 0x0,0x6 113f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1140 0334 | 4 | Declare_Variable Array,With_Constraint 1141 e5ff | | Load 0x2,-0x1 1142 e006 | | Load 0x0,0x6 1143 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1144 e006 | | Load 0x0,0x6 1145 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1146 0119 | | Execute Any,Check_In_Formal_Type 1147 4801 |H | Short_Literal 0x1 1148 00da | | Load_Top At_Offset_2 1149 01d6 | | Execute Vector,Field_Write 114a 6005 |` | Indirect_Literal Discrete,0x1150,{0x00000000, 0x000081b6} 114b e001 | | Load 0x0,0x1 114c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 114d 6002 |` | Indirect_Literal Discrete,0x1150,{0x00000000, 0x000081b6} 114e a5fd | | Store_Unchecked 0x2,-0x3 114f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1150 0000 0000 | | .LITERAL {0x00000000, 0x000081b6} 1154 0000 0000 | | .LITERAL {0x00000000, 0x00008197} 1158 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 115c 0000 0000 | | .BLANK 0000[0x4] 1160 ; -------------------------------------------------------------------------------------- 1160 ; SUBPROGRAM 1160 ; -------------------------------------------------------------------------------------- 1160 117b | { | .CONST 0x117b ; Address of begin 1161 11dd | | .CONST 0x11dd ; Address of exception handler 1162 0009 | | .CONST 0x0009 ; Number of locals 1163 INIT_1160: 1163 e00c | | Load 0x0,0xc 1164 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1165 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1166 e00c | | Load 0x0,0xc 1167 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1168 0092 19f7 | | Action Push_String_Extended,0x19f7 ; "_secondary_" 116a e00c | | Load 0x0,0xc 116b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 116c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 116d 02c7 | | Declare_Variable Any 116e 00d8 | | Load_Top At_Offset_0 116f 1c00 | | Execute_Immediate Run_Utility,0x0 1170 e00c | | Load 0x0,0xc 1171 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1172 02c7 | | Declare_Variable Any 1173 00d8 | | Load_Top At_Offset_0 1174 1c00 | | Execute_Immediate Run_Utility,0x0 1175 029f 1803 | | Declare_Subprogram INIT_1800,For_Call 1177 029f 1833 | 3| Declare_Subprogram INIT_1830,For_Call 1179 029f 185b | [| Declare_Subprogram INIT_1858,For_Call 117b BODY_1160: 117b 4800 |H | Short_Literal 0x0 117c a5fd | | Store_Unchecked 0x2,-0x3 117d e00c | | Load 0x0,0xc 117e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 117f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1180 e405 | | Load 0x2,0x5 1181 67d6 |g | Indirect_Literal Discrete,0x1158,{0x00000000, 0x00004000} 1182 e011 | | Load 0x0,0x11 1183 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1184 e017 | | Load 0x0,0x17 1185 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1186 e018 | | Load 0x0,0x18 1187 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1188 4801 |H | Short_Literal 0x1 1189 4800 |H | Short_Literal 0x0 118a e017 | | Load 0x0,0x17 118b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 118c e00c | | Load 0x0,0xc 118d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 118e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 118f e5ff | | Load 0x2,-0x1 1190 0092 19f8 | | Action Push_String_Extended,0x19f8 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 1192 01cc | | Execute Vector,Catenate 1193 e00c | | Load 0x0,0xc 1194 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1195 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1196 c405 | | Store 0x2,0x5 1197 c402 | | Store 0x2,0x2 1198 e402 | | Load 0x2,0x2 1199 6803 |h | Jump_Zero 0x119d 119a 4800 |H | Short_Literal 0x0 119b a5fd | | Store_Unchecked 0x2,-0x3 119c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 119d e405 | | Load 0x2,0x5 119e e00c | | Load 0x0,0xc 119f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11a0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 11a1 6802 |h | Jump_Zero 0x11a4 11a2 4800 |H | Short_Literal 0x0 11a3 a5fd | | Store_Unchecked 0x2,-0x3 11a4 00cf | | Action Mark_Auxiliary 11a5 7831 |x1 | Jump 0x11d7 11a6 e00c | | Load 0x0,0xc 11a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11a8 e406 | | Load 0x2,0x6 11a9 0120 | | Execute Any,Is_Value 11aa 6803 |h | Jump_Zero 0x11ae 11ab e00c | | Load 0x0,0xc 11ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11ad 7801 |x | Jump 0x11af 11ae e406 | | Load 0x2,0x6 11af e405 | | Load 0x2,0x5 11b0 e00c | | Load 0x0,0xc 11b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11b2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 11b3 c406 | | Store 0x2,0x6 11b4 c403 | | Store 0x2,0x3 11b5 e403 | | Load 0x2,0x3 11b6 6818 |h | Jump_Zero 0x11cf 11b7 679c |g | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 11b8 a5fd | | Store_Unchecked 0x2,-0x3 11b9 e5fe | | Load 0x2,-0x2 11ba 4801 |H | Short_Literal 0x1 11bb 4801 |H | Short_Literal 0x1 11bc e006 | | Load 0x0,0x6 11bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11be 0334 | 4 | Declare_Variable Array,With_Constraint 11bf e5ff | | Load 0x2,-0x1 11c0 0092 19f8 | | Action Push_String_Extended,0x19f8 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 11c2 01cc | | Execute Vector,Catenate 11c3 e006 | | Load 0x0,0x6 11c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11c5 e006 | | Load 0x0,0x6 11c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11c7 0119 | | Execute Any,Check_In_Formal_Type 11c8 4801 |H | Short_Literal 0x1 11c9 00da | | Load_Top At_Offset_2 11ca 01d6 | | Execute Vector,Field_Write 11cb 6788 |g | Indirect_Literal Discrete,0x1154,{0x00000000, 0x00008197} 11cc e001 | | Load 0x0,0x1 11cd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11cf e406 | | Load 0x2,0x6 11d0 8409 | | Call 0x2,0x9 11d1 e405 | | Load 0x2,0x5 11d2 e00c | | Load 0x0,0xc 11d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11d4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 11d5 c405 | | Store 0x2,0x5 11d6 00c9 | | Action Pop_Auxiliary_Loop 11d7 e405 | | Load 0x2,0x5 11d8 e00c | | Load 0x0,0xc 11d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11da 181e | | Execute Package,Field_Execute,Field_Number 0x1e 11db 6fca |o | Jump_Zero 0x11a6 11dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11dd TRAP_1160: 11dd 0007 | | Action Break_Optional 11de e5fe | | Load 0x2,-0x2 11df 4801 |H | Short_Literal 0x1 11e0 4801 |H | Short_Literal 0x1 11e1 e006 | | Load 0x0,0x6 11e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11e3 0334 | 4 | Declare_Variable Array,With_Constraint 11e4 e5ff | | Load 0x2,-0x1 11e5 e006 | | Load 0x0,0x6 11e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11e7 e006 | | Load 0x0,0x6 11e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11e9 0119 | | Execute Any,Check_In_Formal_Type 11ea 4801 |H | Short_Literal 0x1 11eb 00da | | Load_Top At_Offset_2 11ec 01d6 | | Execute Vector,Field_Write 11ed 6006 |` | Indirect_Literal Discrete,0x11f4,{0x00000000, 0x000081b7} 11ee e001 | | Load 0x0,0x1 11ef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11f0 6003 |` | Indirect_Literal Discrete,0x11f4,{0x00000000, 0x000081b7} 11f1 a5fd | | Store_Unchecked 0x2,-0x3 11f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11f3 0000 | | .XXX[0x1] 11f4 0000 0000 | | .LITERAL {0x00000000, 0x000081b7} 11f8 ; -------------------------------------------------------------------------------------- 11f8 ; SUBPROGRAM 11f8 ; -------------------------------------------------------------------------------------- 11f8 11fb | | .CONST 0x11fb ; Address of begin 11f9 1208 | | .CONST 0x1208 ; Address of exception handler 11fa 0001 | | .CONST 0x0001 ; Number of locals 11fb BODY_11f8: 11fb INIT_11f8: 11fb 0092 19e8 | | Action Push_String_Extended,0x19e8 ; "<QUIET>" 11fd 0092 19e9 | | Action Push_String_Extended,0x19e9 ; "<DIRECTORIES>" 11ff e5ff | | Load 0x2,-0x1 1200 0092 19f8 | | Action Push_String_Extended,0x19f8 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 1202 01cc | | Execute Vector,Catenate 1203 e012 | | Load 0x0,0x12 1204 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1205 4800 |H | Short_Literal 0x0 1206 a5fd | | Store_Unchecked 0x2,-0x3 1207 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1208 TRAP_11f8: 1208 0007 | | Action Break_Optional 1209 e5fe | | Load 0x2,-0x2 120a 4801 |H | Short_Literal 0x1 120b 4801 |H | Short_Literal 0x1 120c e006 | | Load 0x0,0x6 120d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 120e 0334 | 4 | Declare_Variable Array,With_Constraint 120f e5ff | | Load 0x2,-0x1 1210 e006 | | Load 0x0,0x6 1211 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1212 e006 | | Load 0x0,0x6 1213 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1214 0119 | | Execute Any,Check_In_Formal_Type 1215 4801 |H | Short_Literal 0x1 1216 00da | | Load_Top At_Offset_2 1217 01d6 | | Execute Vector,Field_Write 1218 6007 |` | Indirect_Literal Discrete,0x1220,{0x00000000, 0x000081b5} 1219 e001 | | Load 0x0,0x1 121a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 121b 6004 |` | Indirect_Literal Discrete,0x1220,{0x00000000, 0x000081b5} 121c a5fd | | Store_Unchecked 0x2,-0x3 121d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 121e 0000 0000 | | .XXX[0x2] 1220 0000 0000 | | .LITERAL {0x00000000, 0x000081b5} 1224 0000 0000 | | .BLANK 0000[0x4] 1228 ; -------------------------------------------------------------------------------------- 1228 ; SUBPROGRAM 1228 ; -------------------------------------------------------------------------------------- 1228 123d | = | .CONST 0x123d ; Address of begin 1229 0004 | | .CONST 0x0004 ; Address of exception handler 122a 0007 | | .CONST 0x0007 ; Number of locals 122b INIT_1228: 122b e00c | | Load 0x0,0xc 122c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 122d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 122e 02c7 | | Declare_Variable Any 122f 00d8 | | Load_Top At_Offset_0 1230 1c00 | | Execute_Immediate Run_Utility,0x0 1231 e00c | | Load 0x0,0xc 1232 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1233 02c7 | | Declare_Variable Any 1234 00d8 | | Load_Top At_Offset_0 1235 1c00 | | Execute_Immediate Run_Utility,0x0 1236 e001 | | Load 0x0,0x1 1237 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1238 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1239 00e2 | | Load_Encached Integer_Cache 123a 00e1 | | Load_Encached Boolean_Cache 123b 029f 18ab | | Declare_Subprogram INIT_18a8,For_Call 123d BODY_1228: 123d e5ff | | Load 0x2,-0x1 123e e004 | | Load 0x0,0x4 123f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1240 7001 |p | Jump_Nonzero 0x1242 1241 8407 | | Call 0x2,0x7 1242 4800 |H | Short_Literal 0x0 1243 a5fc | | Store_Unchecked 0x2,-0x4 1244 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1245 0000 0000 | | .XXX[0x3] 1247 0000 | | 1248 ; -------------------------------------------------------------------------------------- 1248 ; SUBPROGRAM 1248 ; -------------------------------------------------------------------------------------- 1248 1250 | P | .CONST 0x1250 ; Address of begin 1249 1260 | ` | .CONST 0x1260 ; Address of exception handler 124a 0002 | | .CONST 0x0002 ; Number of locals 124b INIT_1248: 124b e019 | | Load 0x0,0x19 124c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 124d 02c7 | | Declare_Variable Any 124e 00d8 | | Load_Top At_Offset_0 124f 1c00 | | Execute_Immediate Run_Utility,0x0 1250 BODY_1248: 1250 00d8 | | Load_Top At_Offset_0 1251 e011 | | Load 0x0,0x11 1252 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1253 e00c | | Load 0x0,0xc 1254 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1255 00ea | | Load_Encached Null_String_Cache 1256 e5ff | | Load 0x2,-0x1 1257 4801 |H | Short_Literal 0x1 1258 e019 | | Load 0x0,0x19 1259 1814 | | Execute Package,Field_Execute,Field_Number 0x14 125a c402 | | Store 0x2,0x2 125b 00d8 | | Load_Top At_Offset_0 125c e019 | | Load 0x0,0x19 125d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 125e c402 | | Store 0x2,0x2 125f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1260 TRAP_1248: 1260 0007 | | Action Break_Optional 1261 e5fe | | Load 0x2,-0x2 1262 4801 |H | Short_Literal 0x1 1263 4801 |H | Short_Literal 0x1 1264 e006 | | Load 0x0,0x6 1265 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1266 0334 | 4 | Declare_Variable Array,With_Constraint 1267 e5ff | | Load 0x2,-0x1 1268 e006 | | Load 0x0,0x6 1269 1810 | | Execute Package,Field_Execute,Field_Number 0x10 126a e006 | | Load 0x0,0x6 126b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 126c 0119 | | Execute Any,Check_In_Formal_Type 126d 4801 |H | Short_Literal 0x1 126e 00da | | Load_Top At_Offset_2 126f 01d6 | | Execute Vector,Field_Write 1270 6007 |` | Indirect_Literal Discrete,0x1278,{0x00000000, 0x00008196} 1271 e001 | | Load 0x0,0x1 1272 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1273 e001 | | Load 0x0,0x1 1274 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1275 0257 | W | Execute Discrete,Raise 1276 0000 0000 | | .XXX[0x2] 1278 0000 0000 | | .LITERAL {0x00000000, 0x00008196} 127c 0000 0000 | | .BLANK 0000[0x4] 1280 ; -------------------------------------------------------------------------------------- 1280 ; SUBPROGRAM 1280 ; -------------------------------------------------------------------------------------- 1280 1283 | | .CONST 0x1283 ; Address of begin 1281 0004 | | .CONST 0x0004 ; Address of exception handler 1282 0001 | | .CONST 0x0001 ; Number of locals 1283 BODY_1280: 1283 INIT_1280: 1283 4800 |H | Short_Literal 0x0 1284 4801 |H | Short_Literal 0x1 1285 4801 |H | Short_Literal 0x1 1286 6005 |` | Indirect_Literal Discrete,0x128c,{0x00000000, 0x0000076d} 1287 e00e | | Load 0x0,0xe 1288 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1289 00ca | | Action Exit_Nullary_Function 128a 0000 0000 | | .XXX[0x2] 128c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 1290 ; -------------------------------------------------------------------------------------- 1290 ; SUBPROGRAM 1290 ; -------------------------------------------------------------------------------------- 1290 1296 | | .CONST 0x1296 ; Address of begin 1291 0004 | | .CONST 0x0004 ; Address of exception handler 1292 0002 | | .CONST 0x0002 ; Number of locals 1293 INIT_1290: 1293 00da | | Load_Top At_Offset_2 1294 e004 | | Load 0x0,0x4 1295 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1296 BODY_1290: 1296 00d8 | | Load_Top At_Offset_0 1297 0092 19f9 | | Action Push_String_Extended,0x19f9 ; ".<" 1299 01cc | | Execute Vector,Catenate 129a e28d | | Load 0x1,0x8d 129b 01cc | | Execute Vector,Catenate 129c 0092 19fa | | Action Push_String_Extended,0x19fa ; "state>" 129e 01cc | | Execute Vector,Catenate 129f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12a0 ; -------------------------------------------------------------------------------------- 12a0 ; SUBPROGRAM 12a0 ; -------------------------------------------------------------------------------------- 12a0 12a3 | | .CONST 0x12a3 ; Address of begin 12a1 0004 | | .CONST 0x0004 ; Address of exception handler 12a2 0001 | | .CONST 0x0001 ; Number of locals 12a3 BODY_12a0: 12a3 INIT_12a0: 12a3 00da | | Load_Top At_Offset_2 12a4 01db | | Execute Vector,Length 12a5 0c02 | | Execute_Immediate Greater_Equal,0x2 12a6 6810 |h | Jump_Zero 0x12b7 12a7 4801 |H | Short_Literal 0x1 12a8 00db | | Load_Top At_Offset_3 12a9 01d7 | | Execute Vector,Field_Read 12aa 0f20 | | Execute_Immediate Equal,0x20 12ab 680b |h | Jump_Zero 0x12b7 12ac 4802 |H | Short_Literal 0x2 12ad 00db | | Load_Top At_Offset_3 12ae 01db | | Execute Vector,Length 12af 00d8 | | Load_Top At_Offset_0 12b0 00e2 | | Load_Encached Integer_Cache 12b1 0260 | ` | Execute Discrete,In_Type 12b2 7001 |p | Jump_Nonzero 0x12b4 12b3 0801 | | Execute_Immediate Raise,0x1 12b4 e5ff | | Load 0x2,-0x1 12b5 01cf | | Execute Vector,Slice_Read 12b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12b7 00da | | Load_Top At_Offset_2 12b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12b9 0000 0000 | | .BLANK 0000[0x7] 12c0 ; -------------------------------------------------------------------------------------- 12c0 ; SUBPROGRAM 12c0 ; -------------------------------------------------------------------------------------- 12c0 12c6 | | .CONST 0x12c6 ; Address of begin 12c1 0004 | | .CONST 0x0004 ; Address of exception handler 12c2 0002 | | .CONST 0x0002 ; Number of locals 12c3 INIT_12c0: 12c3 00da | | Load_Top At_Offset_2 12c4 e004 | | Load 0x0,0x4 12c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 12c6 BODY_12c0: 12c6 00d8 | | Load_Top At_Offset_0 12c7 0092 19f9 | | Action Push_String_Extended,0x19f9 ; ".<" 12c9 01cc | | Execute Vector,Catenate 12ca e28d | | Load 0x1,0x8d 12cb 01cc | | Execute Vector,Catenate 12cc e5fe | | Load 0x2,-0x2 12cd 01cc | | Execute Vector,Catenate 12ce 0092 19fb | | Action Push_String_Extended,0x19fb ; ">" 12d0 01cc | | Execute Vector,Catenate 12d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 12d2 0000 0000 | | .BLANK 0000[0x6] 12d8 ; -------------------------------------------------------------------------------------- 12d8 ; SUBPROGRAM 12d8 ; -------------------------------------------------------------------------------------- 12d8 12e3 | | .CONST 0x12e3 ; Address of begin 12d9 0004 | | .CONST 0x0004 ; Address of exception handler 12da 0003 | | .CONST 0x0003 ; Number of locals 12db INIT_12d8: 12db e00c | | Load 0x0,0xc 12dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12de e00c | | Load 0x0,0xc 12df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12e0 02c7 | | Declare_Variable Any 12e1 00d8 | | Load_Top At_Offset_0 12e2 1c00 | | Execute_Immediate Run_Utility,0x0 12e3 BODY_12d8: 12e3 e00c | | Load 0x0,0xc 12e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12e6 00d9 | | Load_Top At_Offset_1 12e7 0120 | | Execute Any,Is_Value 12e8 6803 |h | Jump_Zero 0x12ec 12e9 e00c | | Load 0x0,0xc 12ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12eb 7801 |x | Jump 0x12ed 12ec 00d9 | | Load_Top At_Offset_1 12ed 6016 |` | Indirect_Literal Discrete,0x1304,{0x00000000, 0x00004000} 12ee e011 | | Load 0x0,0x11 12ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12f0 e017 | | Load 0x0,0x17 12f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12f2 e00c | | Load 0x0,0xc 12f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 12f5 e5ff | | Load 0x2,-0x1 12f6 e00c | | Load 0x0,0xc 12f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12f8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 12f9 c403 | | Store 0x2,0x3 12fa 005a | Z | Store_Top Discrete,At_Offset_2 12fb 00d9 | | Load_Top At_Offset_1 12fc 6803 |h | Jump_Zero 0x1300 12fd e00c | | Load 0x0,0xc 12fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1300 00d8 | | Load_Top At_Offset_0 1301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1302 0000 0000 | | .XXX[0x2] 1304 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1308 ; -------------------------------------------------------------------------------------- 1308 ; SUBPROGRAM 1308 ; -------------------------------------------------------------------------------------- 1308 1313 | | .CONST 0x1313 ; Address of begin 1309 0004 | | .CONST 0x0004 ; Address of exception handler 130a 0003 | | .CONST 0x0003 ; Number of locals 130b INIT_1308: 130b e00c | | Load 0x0,0xc 130c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 130d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 130e e00c | | Load 0x0,0xc 130f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1310 02c7 | | Declare_Variable Any 1311 00d8 | | Load_Top At_Offset_0 1312 1c00 | | Execute_Immediate Run_Utility,0x0 1313 BODY_1308: 1313 e00c | | Load 0x0,0xc 1314 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1315 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1316 00d9 | | Load_Top At_Offset_1 1317 0120 | | Execute Any,Is_Value 1318 6803 |h | Jump_Zero 0x131c 1319 e00c | | Load 0x0,0xc 131a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 131b 7801 |x | Jump 0x131d 131c 00d9 | | Load_Top At_Offset_1 131d 67e6 |g | Indirect_Literal Discrete,0x1304,{0x00000000, 0x00004000} 131e e011 | | Load 0x0,0x11 131f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1320 e017 | | Load 0x0,0x17 1321 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1322 e00c | | Load 0x0,0xc 1323 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1324 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1325 e5ff | | Load 0x2,-0x1 1326 e00c | | Load 0x0,0xc 1327 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1328 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1329 c403 | | Store 0x2,0x3 132a 005a | Z | Store_Top Discrete,At_Offset_2 132b 00d9 | | Load_Top At_Offset_1 132c 6815 |h | Jump_Zero 0x1342 132d e5fe | | Load 0x2,-0x2 132e 4801 |H | Short_Literal 0x1 132f 4801 |H | Short_Literal 0x1 1330 e006 | | Load 0x0,0x6 1331 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1332 0334 | 4 | Declare_Variable Array,With_Constraint 1333 e5ff | | Load 0x2,-0x1 1334 e006 | | Load 0x0,0x6 1335 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1336 e006 | | Load 0x0,0x6 1337 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1338 0119 | | Execute Any,Check_In_Formal_Type 1339 4801 |H | Short_Literal 0x1 133a 00da | | Load_Top At_Offset_2 133b 01d6 | | Execute Vector,Field_Write 133c 6007 |` | Indirect_Literal Discrete,0x1344,{0x00000000, 0x00008197} 133d e001 | | Load 0x0,0x1 133e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 133f e001 | | Load 0x0,0x1 1340 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1341 0257 | W | Execute Discrete,Raise 1342 00d8 | | Load_Top At_Offset_0 1343 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1344 0000 0000 | | .LITERAL {0x00000000, 0x00008197} 1348 ; -------------------------------------------------------------------------------------- 1348 ; SUBPROGRAM 1348 ; -------------------------------------------------------------------------------------- 1348 1354 | T | .CONST 0x1354 ; Address of begin 1349 0004 | | .CONST 0x0004 ; Address of exception handler 134a 0003 | | .CONST 0x0003 ; Number of locals 134b INIT_1348: 134b e00c | | Load 0x0,0xc 134c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 134d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 134e 02c7 | | Declare_Variable Any 134f 00d8 | | Load_Top At_Offset_0 1350 1c00 | | Execute_Immediate Run_Utility,0x0 1351 e00c | | Load 0x0,0xc 1352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1353 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1354 BODY_1348: 1354 e00c | | Load 0x0,0xc 1355 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1356 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1357 00da | | Load_Top At_Offset_2 1358 601f |` | Indirect_Literal Discrete,0x1378,{0x00000000, 0x00004000} 1359 e011 | | Load 0x0,0x11 135a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 135b e017 | | Load 0x0,0x17 135c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 135d e018 | | Load 0x0,0x18 135e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 135f 4801 |H | Short_Literal 0x1 1360 4800 |H | Short_Literal 0x0 1361 e017 | | Load 0x0,0x17 1362 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1363 e00c | | Load 0x0,0xc 1364 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1365 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1366 e5ff | | Load 0x2,-0x1 1367 e00c | | Load 0x0,0xc 1368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1369 181b | | Execute Package,Field_Execute,Field_Number 0x1b 136a c402 | | Store 0x2,0x2 136b 0059 | Y | Store_Top Discrete,At_Offset_1 136c 00d8 | | Load_Top At_Offset_0 136d 0e00 | | Execute_Immediate Not_Equal,0x0 136e 00d9 | | Load_Top At_Offset_1 136f 0e03 | | Execute_Immediate Not_Equal,0x3 1370 0279 | y | Execute Discrete,And 1371 6804 |h | Jump_Zero 0x1376 1372 e00c | | Load 0x0,0xc 1373 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1374 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1375 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1376 00d9 | | Load_Top At_Offset_1 1377 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1378 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 137c 0000 0000 | | .BLANK 0000[0x4] 1380 ; -------------------------------------------------------------------------------------- 1380 ; SUBPROGRAM 1380 ; -------------------------------------------------------------------------------------- 1380 1383 | | .CONST 0x1383 ; Address of begin 1381 0004 | | .CONST 0x0004 ; Address of exception handler 1382 0001 | | .CONST 0x0001 ; Number of locals 1383 BODY_1380: 1383 INIT_1380: 1383 4801 |H | Short_Literal 0x1 1384 0092 19fc | | Action Push_String_Extended,0x19fc ; "<DEFAULT>" 1386 e5ff | | Load 0x2,-0x1 1387 e01a | | Load 0x0,0x1a 1388 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1389 6802 |h | Jump_Zero 0x138c 138a 00db | | Load_Top At_Offset_3 138b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 138c 00da | | Load_Top At_Offset_2 138d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 138e 0000 0000 | | .XXX[0x2] 1390 ; -------------------------------------------------------------------------------------- 1390 ; SUBPROGRAM 1390 ; -------------------------------------------------------------------------------------- 1390 139a | | .CONST 0x139a ; Address of begin 1391 0004 | | .CONST 0x0004 ; Address of exception handler 1392 0003 | | .CONST 0x0003 ; Number of locals 1393 INIT_1390: 1393 e00c | | Load 0x0,0xc 1394 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1395 02c7 | | Declare_Variable Any 1396 00d8 | | Load_Top At_Offset_0 1397 1c00 | | Execute_Immediate Run_Utility,0x0 1398 e00c | | Load 0x0,0xc 1399 1b0d | | Execute Package,Field_Read,Field_Number 0xd 139a BODY_1390: 139a e00c | | Load 0x0,0xc 139b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 139c 00da | | Load_Top At_Offset_2 139d 0120 | | Execute Any,Is_Value 139e 6803 |h | Jump_Zero 0x13a2 139f e00c | | Load 0x0,0xc 13a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13a1 7801 |x | Jump 0x13a3 13a2 00da | | Load_Top At_Offset_2 13a3 e5ff | | Load 0x2,-0x1 13a4 e00c | | Load 0x0,0xc 13a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 13a7 c402 | | Store 0x2,0x2 13a8 0059 | Y | Store_Top Discrete,At_Offset_1 13a9 00d8 | | Load_Top At_Offset_0 13aa 7004 |p | Jump_Nonzero 0x13af 13ab 00d9 | | Load_Top At_Offset_1 13ac e004 | | Load 0x0,0x4 13ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17 13ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13af 00ea | | Load_Encached Null_String_Cache 13b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13b1 0000 0000 | | .BLANK 0000[0x7] 13b8 ; -------------------------------------------------------------------------------------- 13b8 ; SUBPROGRAM 13b8 ; -------------------------------------------------------------------------------------- 13b8 13bb | | .CONST 0x13bb ; Address of begin 13b9 0004 | | .CONST 0x0004 ; Address of exception handler 13ba 0001 | | .CONST 0x0001 ; Number of locals 13bb BODY_13b8: 13bb INIT_13b8: 13bb 00da | | Load_Top At_Offset_2 13bc e00c | | Load 0x0,0xc 13bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13be 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 13bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13c0 ; -------------------------------------------------------------------------------------- 13c0 ; SUBPROGRAM 13c0 ; -------------------------------------------------------------------------------------- 13c0 13c3 | | .CONST 0x13c3 ; Address of begin 13c1 0004 | | .CONST 0x0004 ; Address of exception handler 13c2 0001 | | .CONST 0x0001 ; Number of locals 13c3 BODY_13c0: 13c3 INIT_13c0: 13c3 4800 |H | Short_Literal 0x0 13c4 4800 |H | Short_Literal 0x0 13c5 4800 |H | Short_Literal 0x0 13c6 e5ff | | Load 0x2,-0x1 13c7 e00a | | Load 0x0,0xa 13c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 13c9 e00a | | Load 0x0,0xa 13ca 181f | | Execute Package,Field_Execute,Field_Number 0x1f 13cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13cc 0000 0000 | | .BLANK 0000[0x4] 13d0 ; -------------------------------------------------------------------------------------- 13d0 ; SUBPROGRAM 13d0 ; -------------------------------------------------------------------------------------- 13d0 13d3 | | .CONST 0x13d3 ; Address of begin 13d1 0004 | | .CONST 0x0004 ; Address of exception handler 13d2 0001 | | .CONST 0x0001 ; Number of locals 13d3 BODY_13d0: 13d3 INIT_13d0: 13d3 00da | | Load_Top At_Offset_2 13d4 e00a | | Load 0x0,0xa 13d5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 13d6 e00a | | Load 0x0,0xa 13d7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 13d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13d9 0000 0000 | | .BLANK 0000[0x7] 13e0 ; -------------------------------------------------------------------------------------- 13e0 ; SUBPROGRAM 13e0 ; -------------------------------------------------------------------------------------- 13e0 13e3 | | .CONST 0x13e3 ; Address of begin 13e1 0004 | | .CONST 0x0004 ; Address of exception handler 13e2 0001 | | .CONST 0x0001 ; Number of locals 13e3 BODY_13e0: 13e3 INIT_13e0: 13e3 00da | | Load_Top At_Offset_2 13e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 13e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13e6 0000 0000 | | .XXX[0x2] 13e8 ; -------------------------------------------------------------------------------------- 13e8 ; SUBPROGRAM 13e8 ; -------------------------------------------------------------------------------------- 13e8 13eb | | .CONST 0x13eb ; Address of begin 13e9 0004 | | .CONST 0x0004 ; Address of exception handler 13ea 0001 | | .CONST 0x0001 ; Number of locals 13eb BODY_13e8: 13eb INIT_13e8: 13eb 00da | | Load_Top At_Offset_2 13ec e5fe | | Load 0x2,-0x2 13ed 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 13ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 13ef 0000 | | .XXX[0x1] 13f0 ; -------------------------------------------------------------------------------------- 13f0 ; SUBPROGRAM 13f0 ; -------------------------------------------------------------------------------------- 13f0 13f3 | | .CONST 0x13f3 ; Address of begin 13f1 13fd | | .CONST 0x13fd ; Address of exception handler 13f2 0001 | | .CONST 0x0001 ; Number of locals 13f3 BODY_13f0: 13f3 INIT_13f0: 13f3 e5fd | | Load 0x2,-0x3 13f4 00ea | | Load_Encached Null_String_Cache 13f5 e5ff | | Load 0x2,-0x1 13f6 4800 |H | Short_Literal 0x0 13f7 e014 | | Load 0x0,0x14 13f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 13f9 c5fd | | Store 0x2,-0x3 13fa 4801 |H | Short_Literal 0x1 13fb a5fc | | Store_Unchecked 0x2,-0x4 13fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 13fd TRAP_13f0: 13fd 00d8 | | Load_Top At_Offset_0 13fe 0107 | | Execute Exception,Get_Name 13ff 4920 |I | Short_Literal 0x120 1400 492f |I/ | Short_Literal 0x12f 1401 0262 | b | Execute Discrete,In_Range 1402 6803 |h | Jump_Zero 0x1406 1403 4800 |H | Short_Literal 0x0 1404 a5fc | | Store_Unchecked 0x2,-0x4 1405 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1406 e5fe | | Load 0x2,-0x2 1407 4801 |H | Short_Literal 0x1 1408 4801 |H | Short_Literal 0x1 1409 e006 | | Load 0x0,0x6 140a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 140b 0334 | 4 | Declare_Variable Array,With_Constraint 140c e5ff | | Load 0x2,-0x1 140d e006 | | Load 0x0,0x6 140e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 140f e006 | | Load 0x0,0x6 1410 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1411 0119 | | Execute Any,Check_In_Formal_Type 1412 4801 |H | Short_Literal 0x1 1413 00da | | Load_Top At_Offset_2 1414 01d6 | | Execute Vector,Field_Write 1415 6006 |` | Indirect_Literal Discrete,0x141c,{0x00000000, 0x00008198} 1416 e001 | | Load 0x0,0x1 1417 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1418 e001 | | Load 0x0,0x1 1419 1b17 | | Execute Package,Field_Read,Field_Number 0x17 141a 0257 | W | Execute Discrete,Raise 141b 0000 | | .XXX[0x1] 141c 0000 0000 | | .LITERAL {0x00000000, 0x00008198} 1420 ; -------------------------------------------------------------------------------------- 1420 ; SUBPROGRAM 1420 ; -------------------------------------------------------------------------------------- 1420 1423 | # | .CONST 0x1423 ; Address of begin 1421 0004 | | .CONST 0x0004 ; Address of exception handler 1422 0001 | | .CONST 0x0001 ; Number of locals 1423 BODY_1420: 1423 INIT_1420: 1423 00db | | Load_Top At_Offset_3 1424 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1425 00e1 | | Load_Encached Boolean_Cache 1426 011c | | Execute Any,Convert_Unchecked 1427 1c01 | | Execute_Immediate Run_Utility,0x1 1428 00db | | Load_Top At_Offset_3 1429 e014 | | Load 0x0,0x14 142a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 142b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 142c 0000 0000 | | .BLANK 0000[0x4] 1430 ; -------------------------------------------------------------------------------------- 1430 ; SUBPROGRAM 1430 ; -------------------------------------------------------------------------------------- 1430 1441 | A | .CONST 0x1441 ; Address of begin 1431 145c | \ | .CONST 0x145c ; Address of exception handler 1432 0004 | | .CONST 0x0004 ; Number of locals 1433 INIT_1430: 1433 e014 | | Load 0x0,0x14 1434 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1435 02c7 | | Declare_Variable Any 1436 00d8 | | Load_Top At_Offset_0 1437 1c00 | | Execute_Immediate Run_Utility,0x0 1438 e00c | | Load 0x0,0xc 1439 1b0f | | Execute Package,Field_Read,Field_Number 0xf 143a 02c7 | | Declare_Variable Any 143b e5fd | | Load 0x2,-0x3 143c e5ff | | Load 0x2,-0x1 143d 8295 | | Call 0x1,0x95 143e a403 | | Store_Unchecked 0x2,0x3 143f e001 | | Load 0x0,0x1 1440 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1441 BODY_1430: 1441 e001 | | Load 0x0,0x1 1442 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1443 e5fd | | Load 0x2,-0x3 1444 00db | | Load_Top At_Offset_3 1445 8261 | a | Call 0x1,0x61 1446 0059 | Y | Store_Top Discrete,At_Offset_1 1447 00da | | Load_Top At_Offset_2 1448 00ea | | Load_Encached Null_String_Cache 1449 e5ff | | Load 0x2,-0x1 144a 4801 |H | Short_Literal 0x1 144b e014 | | Load 0x0,0x14 144c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 144d c402 | | Store 0x2,0x2 144e e5fe | | Load 0x2,-0x2 144f 00db | | Load_Top At_Offset_3 1450 829f | | Call 0x1,0x9f 1451 00da | | Load_Top At_Offset_2 1452 e014 | | Load 0x0,0x14 1453 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1454 c402 | | Store 0x2,0x2 1455 e001 | | Load 0x0,0x1 1456 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1457 e5fd | | Load 0x2,-0x3 1458 00db | | Load_Top At_Offset_3 1459 8260 | ` | Call 0x1,0x60 145a 0059 | Y | Store_Top Discrete,At_Offset_1 145b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 145c TRAP_1430: 145c 0007 | | Action Break_Optional 145d e5fd | | Load 0x2,-0x3 145e 4801 |H | Short_Literal 0x1 145f 4801 |H | Short_Literal 0x1 1460 e006 | | Load 0x0,0x6 1461 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1462 0334 | 4 | Declare_Variable Array,With_Constraint 1463 e5ff | | Load 0x2,-0x1 1464 e006 | | Load 0x0,0x6 1465 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1466 e006 | | Load 0x0,0x6 1467 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1468 0119 | | Execute Any,Check_In_Formal_Type 1469 4801 |H | Short_Literal 0x1 146a 00da | | Load_Top At_Offset_2 146b 01d6 | | Execute Vector,Field_Write 146c 6007 |` | Indirect_Literal Discrete,0x1474,{0x00000000, 0x00008199} 146d e001 | | Load 0x0,0x1 146e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 146f e001 | | Load 0x0,0x1 1470 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1471 0257 | W | Execute Discrete,Raise 1472 0000 0000 | | .XXX[0x2] 1474 0000 0000 | | .LITERAL {0x00000000, 0x00008199} 1478 ; -------------------------------------------------------------------------------------- 1478 ; SUBPROGRAM 1478 ; -------------------------------------------------------------------------------------- 1478 1489 | | .CONST 0x1489 ; Address of begin 1479 14a8 | | .CONST 0x14a8 ; Address of exception handler 147a 0005 | | .CONST 0x0005 ; Number of locals 147b INIT_1478: 147b e014 | | Load 0x0,0x14 147c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 147d 02c7 | | Declare_Variable Any 147e 00d8 | | Load_Top At_Offset_0 147f 1c00 | | Execute_Immediate Run_Utility,0x0 1480 e28c | | Load 0x1,0x8c 1481 0322 | " | Declare_Variable Record 1482 e00c | | Load 0x0,0xc 1483 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1484 02c7 | | Declare_Variable Any 1485 00d8 | | Load_Top At_Offset_0 1486 1c00 | | Execute_Immediate Run_Utility,0x0 1487 e001 | | Load 0x0,0x1 1488 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1489 BODY_1478: 1489 00db | | Load_Top At_Offset_3 148a 00ea | | Load_Encached Null_String_Cache 148b e5ff | | Load 0x2,-0x1 148c 4801 |H | Short_Literal 0x1 148d e014 | | Load 0x0,0x14 148e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 148f c402 | | Store 0x2,0x2 1490 4800 |H | Short_Literal 0x0 1491 00db | | Load_Top At_Offset_3 1492 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1493 00da | | Load_Top At_Offset_2 1494 e402 | | Load 0x2,0x2 1495 829f | | Call 0x1,0x9f 1496 00db | | Load_Top At_Offset_3 1497 e014 | | Load 0x0,0x14 1498 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1499 c402 | | Store 0x2,0x2 149a e5fe | | Load 0x2,-0x2 149b e5ff | | Load 0x2,-0x1 149c 8295 | | Call 0x1,0x95 149d c404 | | Store 0x2,0x4 149e e001 | | Load 0x0,0x1 149f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14a0 e5fe | | Load 0x2,-0x2 14a1 00db | | Load_Top At_Offset_3 14a2 8260 | ` | Call 0x1,0x60 14a3 0059 | Y | Store_Top Discrete,At_Offset_1 14a4 00da | | Load_Top At_Offset_2 14a5 e5fd | | Load 0x2,-0x3 14a6 017d | } | Execute Record,Structure_Write 14a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 14a8 TRAP_1478: 14a8 0007 | | Action Break_Optional 14a9 e5fe | | Load 0x2,-0x2 14aa 4801 |H | Short_Literal 0x1 14ab 4801 |H | Short_Literal 0x1 14ac e006 | | Load 0x0,0x6 14ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14ae 0334 | 4 | Declare_Variable Array,With_Constraint 14af e5ff | | Load 0x2,-0x1 14b0 e006 | | Load 0x0,0x6 14b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 14b2 e006 | | Load 0x0,0x6 14b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14b4 0119 | | Execute Any,Check_In_Formal_Type 14b5 4801 |H | Short_Literal 0x1 14b6 00da | | Load_Top At_Offset_2 14b7 01d6 | | Execute Vector,Field_Write 14b8 6007 |` | Indirect_Literal Discrete,0x14c0,{0x00000000, 0x0000819a} 14b9 e001 | | Load 0x0,0x1 14ba 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 14bb e001 | | Load 0x0,0x1 14bc 1b17 | | Execute Package,Field_Read,Field_Number 0x17 14bd 0257 | W | Execute Discrete,Raise 14be 0000 0000 | | .XXX[0x2] 14c0 0000 0000 | | .LITERAL {0x00000000, 0x0000819a} 14c4 0000 0000 | | .BLANK 0000[0x4] 14c8 ; -------------------------------------------------------------------------------------- 14c8 ; SUBPROGRAM 14c8 ; -------------------------------------------------------------------------------------- 14c8 14d1 | | .CONST 0x14d1 ; Address of begin 14c9 14ec | | .CONST 0x14ec ; Address of exception handler 14ca 0003 | | .CONST 0x0003 ; Number of locals 14cb INIT_14c8: 14cb e014 | | Load 0x0,0x14 14cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14cd 02c7 | | Declare_Variable Any 14ce 00d8 | | Load_Top At_Offset_0 14cf 1c00 | | Execute_Immediate Run_Utility,0x0 14d0 00e1 | | Load_Encached Boolean_Cache 14d1 BODY_14c8: 14d1 00e1 | | Load_Encached Boolean_Cache 14d2 00da | | Load_Top At_Offset_2 14d3 e5fe | | Load 0x2,-0x2 14d4 e5ff | | Load 0x2,-0x1 14d5 829e | | Call 0x1,0x9e 14d6 c402 | | Store 0x2,0x2 14d7 0059 | Y | Store_Top Discrete,At_Offset_1 14d8 00d8 | | Load_Top At_Offset_0 14d9 7006 |p | Jump_Nonzero 0x14e0 14da e5fd | | Load 0x2,-0x3 14db e5fe | | Load 0x2,-0x2 14dc e5ff | | Load 0x2,-0x1 14dd 82a1 | | Call 0x1,0xa1 14de 00d1 | | Pop_Control Pop_Count_1 14df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 14e0 00d9 | | Load_Top At_Offset_1 14e1 e014 | | Load 0x0,0x14 14e2 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 14e3 00e1 | | Load_Encached Boolean_Cache 14e4 1c02 | | Execute_Immediate Run_Utility,0x2 14e5 e5fd | | Load 0x2,-0x3 14e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 14e7 00d9 | | Load_Top At_Offset_1 14e8 e014 | | Load 0x0,0x14 14e9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 14ea c402 | | Store 0x2,0x2 14eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 14ec TRAP_14c8: 14ec 0007 | | Action Break_Optional 14ed e5fe | | Load 0x2,-0x2 14ee 4801 |H | Short_Literal 0x1 14ef 4801 |H | Short_Literal 0x1 14f0 e006 | | Load 0x0,0x6 14f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14f2 0334 | 4 | Declare_Variable Array,With_Constraint 14f3 e5ff | | Load 0x2,-0x1 14f4 e006 | | Load 0x0,0x6 14f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 14f6 e006 | | Load 0x0,0x6 14f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14f8 0119 | | Execute Any,Check_In_Formal_Type 14f9 4801 |H | Short_Literal 0x1 14fa 00da | | Load_Top At_Offset_2 14fb 01d6 | | Execute Vector,Field_Write 14fc 6007 |` | Indirect_Literal Discrete,0x1504,{0x00000000, 0x0000819b} 14fd e001 | | Load 0x0,0x1 14fe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 14ff e001 | | Load 0x0,0x1 1500 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1501 0257 | W | Execute Discrete,Raise 1502 0000 0000 | | .XXX[0x2] 1504 0000 0000 | | .LITERAL {0x00000000, 0x0000819b} 1508 ; -------------------------------------------------------------------------------------- 1508 ; SUBPROGRAM 1508 ; -------------------------------------------------------------------------------------- 1508 1512 | | .CONST 0x1512 ; Address of begin 1509 151f | | .CONST 0x151f ; Address of exception handler 150a 0003 | | .CONST 0x0003 ; Number of locals 150b INIT_1508: 150b e014 | | Load 0x0,0x14 150c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 150d 02c7 | | Declare_Variable Any 150e 00d8 | | Load_Top At_Offset_0 150f 1c00 | | Execute_Immediate Run_Utility,0x0 1510 029f 18eb | | Declare_Subprogram INIT_18e8,For_Call 1512 BODY_1508: 1512 00d9 | | Load_Top At_Offset_1 1513 00ea | | Load_Encached Null_String_Cache 1514 e5ff | | Load 0x2,-0x1 1515 4800 |H | Short_Literal 0x0 1516 e014 | | Load 0x0,0x14 1517 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1518 c402 | | Store 0x2,0x2 1519 8403 | | Call 0x2,0x3 151a 00d9 | | Load_Top At_Offset_1 151b e014 | | Load 0x0,0x14 151c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 151d c402 | | Store 0x2,0x2 151e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 151f TRAP_1508: 151f 0007 | | Action Break_Optional 1520 e5fe | | Load 0x2,-0x2 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 0334 | 4 | Declare_Variable Array,With_Constraint 1526 e5ff | | Load 0x2,-0x1 1527 e006 | | Load 0x0,0x6 1528 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1529 e006 | | Load 0x0,0x6 152a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 152b 0119 | | Execute Any,Check_In_Formal_Type 152c 4801 |H | Short_Literal 0x1 152d 00da | | Load_Top At_Offset_2 152e 01d6 | | Execute Vector,Field_Write 152f 6008 |` | Indirect_Literal Discrete,0x1538,{0x00000000, 0x0000819c} 1530 e001 | | Load 0x0,0x1 1531 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1532 e001 | | Load 0x0,0x1 1533 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1534 0257 | W | Execute Discrete,Raise 1535 0000 0000 | | .XXX[0x3] 1537 0000 | | 1538 0000 0000 | | .LITERAL {0x00000000, 0x0000819c} 153c 0000 0000 | | .BLANK 0000[0x4] 1540 ; -------------------------------------------------------------------------------------- 1540 ; SUBPROGRAM 1540 ; -------------------------------------------------------------------------------------- 1540 1543 | C | .CONST 0x1543 ; Address of begin 1541 1568 | h | .CONST 0x1568 ; Address of exception handler 1542 0001 | | .CONST 0x0001 ; Number of locals 1543 BODY_1540: 1543 INIT_1540: 1543 4801 |H | Short_Literal 0x1 1544 e5fe | | Load 0x2,-0x2 1545 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1546 e5fe | | Load 0x2,-0x2 1547 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 1548 01cf | | Execute Vector,Slice_Read 1549 00db | | Load_Top At_Offset_3 154a e014 | | Load 0x0,0x14 154b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 154c 4801 |H | Short_Literal 0x1 154d e5fe | | Load 0x2,-0x2 154e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 154f e5fe | | Load 0x2,-0x2 1550 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 1551 01cf | | Execute Vector,Slice_Read 1552 00db | | Load_Top At_Offset_3 1553 e014 | | Load 0x0,0x14 1554 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1555 4801 |H | Short_Literal 0x1 1556 e5fe | | Load 0x2,-0x2 1557 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1558 e5fe | | Load 0x2,-0x2 1559 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 155a 01cf | | Execute Vector,Slice_Read 155b 00db | | Load_Top At_Offset_3 155c e014 | | Load 0x0,0x14 155d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 155e 4801 |H | Short_Literal 0x1 155f e5fe | | Load 0x2,-0x2 1560 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 1561 e5fe | | Load 0x2,-0x2 1562 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 1563 01cf | | Execute Vector,Slice_Read 1564 00db | | Load_Top At_Offset_3 1565 e014 | | Load 0x0,0x14 1566 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1567 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1568 TRAP_1540: 1568 0007 | | Action Break_Optional 1569 e001 | | Load 0x0,0x1 156a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 156b 0257 | W | Execute Discrete,Raise 156c 0000 0000 | | .BLANK 0000[0x4] 1570 ; -------------------------------------------------------------------------------------- 1570 ; SUBPROGRAM 1570 ; -------------------------------------------------------------------------------------- 1570 1578 | x | .CONST 0x1578 ; Address of begin 1571 1588 | | .CONST 0x1588 ; Address of exception handler 1572 0002 | | .CONST 0x0002 ; Number of locals 1573 INIT_1570: 1573 e014 | | Load 0x0,0x14 1574 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1575 02c7 | | Declare_Variable Any 1576 00d8 | | Load_Top At_Offset_0 1577 1c00 | | Execute_Immediate Run_Utility,0x0 1578 BODY_1570: 1578 00d8 | | Load_Top At_Offset_0 1579 00ea | | Load_Encached Null_String_Cache 157a e5ff | | Load 0x2,-0x1 157b 4801 |H | Short_Literal 0x1 157c e014 | | Load 0x0,0x14 157d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 157e c402 | | Store 0x2,0x2 157f e5fd | | Load 0x2,-0x3 1580 e5fe | | Load 0x2,-0x2 1581 00da | | Load_Top At_Offset_2 1582 82a4 | | Call 0x1,0xa4 1583 00d8 | | Load_Top At_Offset_0 1584 e014 | | Load 0x0,0x14 1585 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1586 c402 | | Store 0x2,0x2 1587 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1588 TRAP_1570: 1588 0007 | | Action Break_Optional 1589 e5fd | | Load 0x2,-0x3 158a 4801 |H | Short_Literal 0x1 158b 4801 |H | Short_Literal 0x1 158c e006 | | Load 0x0,0x6 158d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 158e 0334 | 4 | Declare_Variable Array,With_Constraint 158f e5ff | | Load 0x2,-0x1 1590 e006 | | Load 0x0,0x6 1591 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1592 e006 | | Load 0x0,0x6 1593 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1594 0119 | | Execute Any,Check_In_Formal_Type 1595 4801 |H | Short_Literal 0x1 1596 00da | | Load_Top At_Offset_2 1597 01d6 | | Execute Vector,Field_Write 1598 6007 |` | Indirect_Literal Discrete,0x15a0,{0x00000000, 0x0000819d} 1599 e001 | | Load 0x0,0x1 159a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 159b e001 | | Load 0x0,0x1 159c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 159d 0257 | W | Execute Discrete,Raise 159e 0000 0000 | | .XXX[0x2] 15a0 0000 0000 | | .LITERAL {0x00000000, 0x0000819d} 15a4 0000 0000 | | .BLANK 0000[0x4] 15a8 ; -------------------------------------------------------------------------------------- 15a8 ; SUBPROGRAM 15a8 ; -------------------------------------------------------------------------------------- 15a8 15ad | | .CONST 0x15ad ; Address of begin 15a9 15fc | | .CONST 0x15fc ; Address of exception handler 15aa 0002 | | .CONST 0x0002 ; Number of locals 15ab INIT_15a8: 15ab e5fc | | Load 0x2,-0x4 15ac 829a | | Call 0x1,0x9a 15ad BODY_15a8: 15ad 00db | | Load_Top At_Offset_3 15ae 01db | | Execute Vector,Length 15af 0c81 | | Execute_Immediate Greater_Equal,-0x7f 15b0 e5fe | | Load 0x2,-0x2 15b1 01db | | Execute Vector,Length 15b2 0c81 | | Execute_Immediate Greater_Equal,-0x7f 15b3 0278 | x | Execute Discrete,Or 15b4 e5fd | | Load 0x2,-0x3 15b5 01db | | Execute Vector,Length 15b6 0c81 | | Execute_Immediate Greater_Equal,-0x7f 15b7 0278 | x | Execute Discrete,Or 15b8 6802 |h | Jump_Zero 0x15bb 15b9 e01b | | Load 0x0,0x1b 15ba 0257 | W | Execute Discrete,Raise 15bb 00db | | Load_Top At_Offset_3 15bc 4801 |H | Short_Literal 0x1 15bd e5ff | | Load 0x2,-0x1 15be 01db | | Execute Vector,Length 15bf 00d8 | | Load_Top At_Offset_0 15c0 00e2 | | Load_Encached Integer_Cache 15c1 0260 | ` | Execute Discrete,In_Type 15c2 7001 |p | Jump_Nonzero 0x15c4 15c3 0801 | | Execute_Immediate Raise,0x1 15c4 e5fa | | Load 0x2,-0x6 15c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 15c6 01ce | | Execute Vector,Slice_Write 15c7 00db | | Load_Top At_Offset_3 15c8 01db | | Execute Vector,Length 15c9 e5fa | | Load 0x2,-0x6 15ca 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 15cb e5fe | | Load 0x2,-0x2 15cc 4801 |H | Short_Literal 0x1 15cd e5fe | | Load 0x2,-0x2 15ce 01db | | Execute Vector,Length 15cf 00d8 | | Load_Top At_Offset_0 15d0 00e2 | | Load_Encached Integer_Cache 15d1 0260 | ` | Execute Discrete,In_Type 15d2 7001 |p | Jump_Nonzero 0x15d4 15d3 0801 | | Execute_Immediate Raise,0x1 15d4 e5fa | | Load 0x2,-0x6 15d5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 15d6 01ce | | Execute Vector,Slice_Write 15d7 e5fe | | Load 0x2,-0x2 15d8 01db | | Execute Vector,Length 15d9 e5fa | | Load 0x2,-0x6 15da 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 15db e5fd | | Load 0x2,-0x3 15dc 4801 |H | Short_Literal 0x1 15dd e5fd | | Load 0x2,-0x3 15de 01db | | Execute Vector,Length 15df 00d8 | | Load_Top At_Offset_0 15e0 00e2 | | Load_Encached Integer_Cache 15e1 0260 | ` | Execute Discrete,In_Type 15e2 7001 |p | Jump_Nonzero 0x15e4 15e3 0801 | | Execute_Immediate Raise,0x1 15e4 e5fa | | Load 0x2,-0x6 15e5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 15e6 01ce | | Execute Vector,Slice_Write 15e7 e5fd | | Load 0x2,-0x3 15e8 01db | | Execute Vector,Length 15e9 e5fa | | Load 0x2,-0x6 15ea 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 15eb 00d8 | | Load_Top At_Offset_0 15ec 4801 |H | Short_Literal 0x1 15ed 00da | | Load_Top At_Offset_2 15ee 01db | | Execute Vector,Length 15ef 00d8 | | Load_Top At_Offset_0 15f0 00e2 | | Load_Encached Integer_Cache 15f1 0260 | ` | Execute Discrete,In_Type 15f2 7001 |p | Jump_Nonzero 0x15f4 15f3 0801 | | Execute_Immediate Raise,0x1 15f4 e5fa | | Load 0x2,-0x6 15f5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 15f6 01ce | | Execute Vector,Slice_Write 15f7 00d8 | | Load_Top At_Offset_0 15f8 01db | | Execute Vector,Length 15f9 e5fa | | Load 0x2,-0x6 15fa 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 15fb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 15fc TRAP_15a8: 15fc e01b | | Load 0x0,0x1b 15fd 010f | | Execute Exception,Equal 15fe 6816 |h | Jump_Zero 0x1615 15ff e5fb | | Load 0x2,-0x5 1600 4801 |H | Short_Literal 0x1 1601 4801 |H | Short_Literal 0x1 1602 e006 | | Load 0x0,0x6 1603 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1604 0334 | 4 | Declare_Variable Array,With_Constraint 1605 0092 19e5 | | Action Push_String_Extended,0x19e5 ; " 128" 1607 e006 | | Load 0x0,0x6 1608 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1609 e006 | | Load 0x0,0x6 160a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 160b 0119 | | Execute Any,Check_In_Formal_Type 160c 4801 |H | Short_Literal 0x1 160d 00da | | Load_Top At_Offset_2 160e 01d6 | | Execute Vector,Field_Write 160f 6014 |` | Indirect_Literal Discrete,0x1624,{0x00000000, 0x0000819e} 1610 e001 | | Load 0x0,0x1 1611 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1612 e001 | | Load 0x0,0x1 1613 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1614 0257 | W | Execute Discrete,Raise 1615 e5fb | | Load 0x2,-0x5 1616 e006 | | Load 0x0,0x6 1617 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1618 6007 |` | Indirect_Literal Discrete,0x1620,{0x00000000, 0x0000819f} 1619 e001 | | Load 0x0,0x1 161a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 161b e001 | | Load 0x0,0x1 161c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 161d 0257 | W | Execute Discrete,Raise 161e 0000 0000 | | .XXX[0x2] 1620 0000 0000 | | .LITERAL {0x00000000, 0x0000819f} 1624 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 1628 ; -------------------------------------------------------------------------------------- 1628 ; SUBPROGRAM 1628 ; -------------------------------------------------------------------------------------- 1628 1640 | @ | .CONST 0x1640 ; Address of begin 1629 166f | o | .CONST 0x166f ; Address of exception handler 162a 0007 | | .CONST 0x0007 ; Number of locals 162b INIT_1628: 162b e014 | | Load 0x0,0x14 162c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 162d 02c7 | | Declare_Variable Any 162e 00d8 | | Load_Top At_Offset_0 162f 1c00 | | Execute_Immediate Run_Utility,0x0 1630 e26f | o | Load 0x1,0x6f 1631 0322 | " | Declare_Variable Record 1632 00d8 | | Load_Top At_Offset_0 1633 1c00 | | Execute_Immediate Run_Utility,0x0 1634 00e1 | | Load_Encached Boolean_Cache 1635 e001 | | Load 0x0,0x1 1636 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1637 e5fd | | Load 0x2,-0x3 1638 e5ff | | Load 0x2,-0x1 1639 8293 | | Call 0x1,0x93 163a e00c | | Load 0x0,0xc 163b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 163c 02c7 | | Declare_Variable Any 163d 00d9 | | Load_Top At_Offset_1 163e 8294 | | Call 0x1,0x94 163f a407 | | Store_Unchecked 0x2,0x7 1640 BODY_1628: 1640 00d8 | | Load_Top At_Offset_0 1641 e00c | | Load 0x0,0xc 1642 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1643 012e | . | Execute Any,Not_Equal 1644 6806 |h | Jump_Zero 0x164b 1645 e001 | | Load 0x0,0x1 1646 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1647 e5fb | | Load 0x2,-0x5 1648 00da | | Load_Top At_Offset_2 1649 8261 | a | Call 0x1,0x61 164a 005b | [ | Store_Top Discrete,At_Offset_3 164b e402 | | Load 0x2,0x2 164c 00ea | | Load_Encached Null_String_Cache 164d 00db | | Load_Top At_Offset_3 164e 4801 |H | Short_Literal 0x1 164f e014 | | Load 0x0,0x14 1650 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1651 c402 | | Store 0x2,0x2 1652 e403 | | Load 0x2,0x3 1653 e5fb | | Load 0x2,-0x5 1654 8290 | | Call 0x1,0x90 1655 e5fd | | Load 0x2,-0x3 1656 e5fc | | Load 0x2,-0x4 1657 8297 | | Call 0x1,0x97 1658 e5fd | | Load 0x2,-0x3 1659 e5fe | | Load 0x2,-0x2 165a 82a6 | | Call 0x1,0xa6 165b 00d1 | | Pop_Control Pop_Count_1 165c e5fb | | Load 0x2,-0x5 165d e403 | | Load 0x2,0x3 165e e402 | | Load 0x2,0x2 165f 82a4 | | Call 0x1,0xa4 1660 e402 | | Load 0x2,0x2 1661 e014 | | Load 0x0,0x14 1662 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1663 c402 | | Store 0x2,0x2 1664 e5fb | | Load 0x2,-0x5 1665 00da | | Load_Top At_Offset_2 1666 8295 | | Call 0x1,0x95 1667 c407 | | Store 0x2,0x7 1668 e001 | | Load 0x0,0x1 1669 1b0d | | Execute Package,Field_Read,Field_Number 0xd 166a e5fb | | Load 0x2,-0x5 166b 00da | | Load_Top At_Offset_2 166c 8260 | ` | Call 0x1,0x60 166d 005b | [ | Store_Top Discrete,At_Offset_3 166e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 166f TRAP_1628: 166f 0007 | | Action Break_Optional 1670 e5fb | | Load 0x2,-0x5 1671 4801 |H | Short_Literal 0x1 1672 4801 |H | Short_Literal 0x1 1673 e006 | | Load 0x0,0x6 1674 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1675 0334 | 4 | Declare_Variable Array,With_Constraint 1676 e406 | | Load 0x2,0x6 1677 e006 | | Load 0x0,0x6 1678 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1679 e006 | | Load 0x0,0x6 167a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 167b 0119 | | Execute Any,Check_In_Formal_Type 167c 4801 |H | Short_Literal 0x1 167d 00da | | Load_Top At_Offset_2 167e 01d6 | | Execute Vector,Field_Write 167f 6008 |` | Indirect_Literal Discrete,0x1688,{0x00000000, 0x000081a0} 1680 e001 | | Load 0x0,0x1 1681 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1682 e001 | | Load 0x0,0x1 1683 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1684 0257 | W | Execute Discrete,Raise 1685 0000 0000 | | .XXX[0x3] 1687 0000 | | 1688 0000 0000 | | .LITERAL {0x00000000, 0x000081a0} 168c 0000 0000 | | .BLANK 0000[0x4] 1690 ; -------------------------------------------------------------------------------------- 1690 ; SUBPROGRAM 1690 ; -------------------------------------------------------------------------------------- 1690 1693 | | .CONST 0x1693 ; Address of begin 1691 0004 | | .CONST 0x0004 ; Address of exception handler 1692 0001 | | .CONST 0x0001 ; Number of locals 1693 BODY_1690: 1693 INIT_1690: 1693 4800 |H | Short_Literal 0x0 1694 e5fe | | Load 0x2,-0x2 1695 4821 |H! | Short_Literal 0x21 1696 e01a | | Load 0x0,0x1a 1697 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1698 6802 |h | Jump_Zero 0x169b 1699 00db | | Load_Top At_Offset_3 169a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 169b 00da | | Load_Top At_Offset_2 169c e004 | | Load 0x0,0x4 169d 180e | | Execute Package,Field_Execute,Field_Number 0xe 169e 6809 |h | Jump_Zero 0x16a8 169f 00da | | Load_Top At_Offset_2 16a0 e004 | | Load 0x0,0x4 16a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 16a2 0092 19fd | | Action Push_String_Extended,0x19fd ; ".Units." 16a4 01cc | | Execute Vector,Catenate 16a5 e5fe | | Load 0x2,-0x2 16a6 01cc | | Execute Vector,Catenate 16a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 16a8 00da | | Load_Top At_Offset_2 16a9 e004 | | Load 0x0,0x4 16aa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 16ab 0092 19f3 | | Action Push_String_Extended,0x19f3 ; "." 16ad 01cc | | Execute Vector,Catenate 16ae e5fe | | Load 0x2,-0x2 16af 01cc | | Execute Vector,Catenate 16b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 16b1 0000 0000 | | .BLANK 0000[0x7] 16b8 ; -------------------------------------------------------------------------------------- 16b8 ; SUBPROGRAM 16b8 ; -------------------------------------------------------------------------------------- 16b8 16bb | | .CONST 0x16bb ; Address of begin 16b9 0004 | | .CONST 0x0004 ; Address of exception handler 16ba 0001 | | .CONST 0x0001 ; Number of locals 16bb BODY_16b8: 16bb INIT_16b8: 16bb 00da | | Load_Top At_Offset_2 16bc e004 | | Load 0x0,0x4 16bd 180e | | Execute Package,Field_Execute,Field_Number 0xe 16be 6807 |h | Jump_Zero 0x16c6 16bf 00da | | Load_Top At_Offset_2 16c0 e004 | | Load 0x0,0x4 16c1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 16c2 0092 19fe | | Action Push_String_Extended,0x19fe ; ".units" 16c4 01cc | | Execute Vector,Catenate 16c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 16c6 00da | | Load_Top At_Offset_2 16c7 e004 | | Load 0x0,0x4 16c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 16c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 16ca 0000 0000 | | .BLANK 0000[0x6] 16d0 ; -------------------------------------------------------------------------------------- 16d0 ; SUBPROGRAM 16d0 ; -------------------------------------------------------------------------------------- 16d0 16ed | | .CONST 0x16ed ; Address of begin 16d1 0004 | | .CONST 0x0004 ; Address of exception handler 16d2 0009 | | .CONST 0x0009 ; Number of locals 16d3 INIT_16d0: 16d3 e00c | | Load 0x0,0xc 16d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 16d5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 16d6 02c7 | | Declare_Variable Any 16d7 00d8 | | Load_Top At_Offset_0 16d8 1c00 | | Execute_Immediate Run_Utility,0x0 16d9 e00c | | Load 0x0,0xc 16da 1b0f | | Execute Package,Field_Read,Field_Number 0xf 16db 02c7 | | Declare_Variable Any 16dc 00d8 | | Load_Top At_Offset_0 16dd 1c00 | | Execute_Immediate Run_Utility,0x0 16de 00e2 | | Load_Encached Integer_Cache 16df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 16e0 00e1 | | Load_Encached Boolean_Cache 16e1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 16e2 e00c | | Load 0x0,0xc 16e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 16e4 e5ff | | Load 0x2,-0x1 16e5 8299 | | Call 0x1,0x99 16e6 e00c | | Load 0x0,0xc 16e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 16e8 02c7 | | Declare_Variable Any 16e9 00d8 | | Load_Top At_Offset_0 16ea 1c00 | | Execute_Immediate Run_Utility,0x0 16eb 029f 193b | ;| Declare_Subprogram INIT_1938,For_Call 16ed BODY_16d0: 16ed 4800 |H | Short_Literal 0x0 16ee a5fc | | Store_Unchecked 0x2,-0x4 16ef 4800 |H | Short_Literal 0x0 16f0 a5fb | | Store_Unchecked 0x2,-0x5 16f1 e00c | | Load 0x0,0xc 16f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 16f3 c5fd | | Store 0x2,-0x3 16f4 00da | | Load_Top At_Offset_2 16f5 8294 | | Call 0x1,0x94 16f6 c408 | | Store 0x2,0x8 16f7 00d9 | | Load_Top At_Offset_1 16f8 e00c | | Load 0x0,0xc 16f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 16fa 7004 |p | Jump_Nonzero 0x16ff 16fb 00d9 | | Load_Top At_Offset_1 16fc e004 | | Load 0x0,0x4 16fd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 16fe 7001 |p | Jump_Nonzero 0x1700 16ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1700 00da | | Load_Top At_Offset_2 1701 e28e | | Load 0x1,0x8e 1702 01cc | | Execute Vector,Catenate 1703 8296 | | Call 0x1,0x96 1704 c402 | | Store 0x2,0x2 1705 e402 | | Load 0x2,0x2 1706 e00c | | Load 0x0,0xc 1707 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1708 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1709 6801 |h | Jump_Zero 0x170b 170a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 170b 00cf | | Action Mark_Auxiliary 170c 780c |x | Jump 0x1719 170d e404 | | Load 0x2,0x4 170e 0a01 | | Execute_Immediate Plus,0x1 170f c404 | | Store 0x2,0x4 1710 e405 | | Load 0x2,0x5 1711 7001 |p | Jump_Nonzero 0x1713 1712 8409 | | Call 0x2,0x9 1713 e402 | | Load 0x2,0x2 1714 e00c | | Load 0x0,0xc 1715 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1716 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1717 c402 | | Store 0x2,0x2 1718 00c9 | | Action Pop_Auxiliary_Loop 1719 e402 | | Load 0x2,0x2 171a e00c | | Load 0x0,0xc 171b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 171c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 171d 6fef |o | Jump_Zero 0x170d 171e 00ce | | Action Pop_Auxiliary 171f e405 | | Load 0x2,0x5 1720 a5fc | | Store_Unchecked 0x2,-0x4 1721 e404 | | Load 0x2,0x4 1722 a5fb | | Store_Unchecked 0x2,-0x5 1723 00d9 | | Load_Top At_Offset_1 1724 c5fd | | Store 0x2,-0x3 1725 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1726 0000 0000 | | .XXX[0x2] 1728 ; -------------------------------------------------------------------------------------- 1728 ; SUBPROGRAM 1728 ; -------------------------------------------------------------------------------------- 1728 1736 | 6 | .CONST 0x1736 ; Address of begin 1729 0004 | | .CONST 0x0004 ; Address of exception handler 172a 0003 | | .CONST 0x0003 ; Number of locals 172b INIT_1728: 172b e5fc | | Load 0x2,-0x4 172c e405 | | Load 0x2,0x5 172d e5fe | | Load 0x2,-0x2 172e e402 | | Load 0x2,0x2 172f e009 | | Load 0x0,0x9 1730 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1731 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 1732 00d8 | | Load_Top At_Offset_0 1733 01db | | Execute Vector,Length 1734 e20d | | Load 0x1,0xd 1735 1c08 | | Execute_Immediate Run_Utility,0x8 1736 BODY_1728: 1736 e001 | | Load 0x0,0x1 1737 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1738 e402 | | Load 0x2,0x2 1739 e5fc | | Load 0x2,-0x4 173a e002 | | Load 0x0,0x2 173b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 173c c402 | | Store 0x2,0x2 173d c403 | | Store 0x2,0x3 173e 00d9 | | Load_Top At_Offset_1 173f 0092 19ff | | Action Push_String_Extended,0x19ff ; "<error>" 1741 01df | | Execute Vector,Equal 1742 6808 |h | Jump_Zero 0x174b 1743 e006 | | Load 0x0,0x6 1744 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1745 600e |` | Indirect_Literal Discrete,0x1754,{0x00000000, 0x00008128} 1746 e001 | | Load 0x0,0x1 1747 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1748 00d9 | | Load_Top At_Offset_1 1749 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 174a 7803 |x | Jump 0x174e 174b 4800 |H | Short_Literal 0x0 174c 00d9 | | Load_Top At_Offset_1 174d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 174e 00d9 | | Load_Top At_Offset_1 174f 00d9 | | Load_Top At_Offset_1 1750 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1751 00d8 | | Load_Top At_Offset_0 1752 00cb | | Action Pop_Block_With_Result 1753 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1754 0000 0000 | | .LITERAL {0x00000000, 0x00008128} 1758 ; -------------------------------------------------------------------------------------- 1758 ; SUBPROGRAM 1758 ; -------------------------------------------------------------------------------------- 1758 1766 | f | .CONST 0x1766 ; Address of begin 1759 0004 | | .CONST 0x0004 ; Address of exception handler 175a 0002 | | .CONST 0x0002 ; Number of locals 175b INIT_1758: 175b e5fc | | Load 0x2,-0x4 175c 00d8 | | Load_Top At_Offset_0 175d e405 | | Load 0x2,0x5 175e e5fd | | Load 0x2,-0x3 175f e402 | | Load 0x2,0x2 1760 e009 | | Load 0x0,0x9 1761 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1762 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 1763 e5fe | | Load 0x2,-0x2 1764 e5ff | | Load 0x2,-0x1 1765 8229 | ) | Call 0x1,0x29 1766 BODY_1758: 1766 e001 | | Load 0x0,0x1 1767 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1768 e402 | | Load 0x2,0x2 1769 e5fc | | Load 0x2,-0x4 176a e002 | | Load 0x0,0x2 176b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 176c c402 | | Store 0x2,0x2 176d c403 | | Store 0x2,0x3 176e 00d8 | | Load_Top At_Offset_0 176f 00cb | | Action Pop_Block_With_Result 1770 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1771 0000 0000 | | .BLANK 0000[0x7] 1778 ; -------------------------------------------------------------------------------------- 1778 ; SUBPROGRAM 1778 ; -------------------------------------------------------------------------------------- 1778 1786 | | .CONST 0x1786 ; Address of begin 1779 0004 | | .CONST 0x0004 ; Address of exception handler 177a 0002 | | .CONST 0x0002 ; Number of locals 177b INIT_1778: 177b e00e | | Load 0x0,0xe 177c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 177d 02c7 | | Declare_Variable Any 177e e5fc | | Load 0x2,-0x4 177f e404 | | Load 0x2,0x4 1780 e5fe | | Load 0x2,-0x2 1781 e402 | | Load 0x2,0x2 1782 e009 | | Load 0x0,0x9 1783 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1784 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 1785 a602 | | Store_Unchecked 0x3,0x2 1786 BODY_1778: 1786 e001 | | Load 0x0,0x1 1787 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1788 e402 | | Load 0x2,0x2 1789 e5fc | | Load 0x2,-0x4 178a e002 | | Load 0x0,0x2 178b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 178c c402 | | Store 0x2,0x2 178d c403 | | Store 0x2,0x3 178e 00d8 | | Load_Top At_Offset_0 178f c5fb | | Store 0x2,-0x5 1790 4800 |H | Short_Literal 0x0 1791 a5fa | | Store_Unchecked 0x2,-0x6 1792 00cc | | Action Pop_Block 1793 4505 |E | Exit_Suprogram New_Top_Offset 0x5 1794 0000 0000 | | .BLANK 0000[0x4] 1798 ; -------------------------------------------------------------------------------------- 1798 ; SUBPROGRAM 1798 ; -------------------------------------------------------------------------------------- 1798 179d | | .CONST 0x179d ; Address of begin 1799 0004 | | .CONST 0x0004 ; Address of exception handler 179a 0002 | | .CONST 0x0002 ; Number of locals 179b INIT_1798: 179b e403 | | Load 0x2,0x3 179c 8291 | | Call 0x1,0x91 179d BODY_1798: 179d e001 | | Load 0x0,0x1 179e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 179f e5fe | | Load 0x2,-0x2 17a0 00da | | Load_Top At_Offset_2 17a1 8294 | | Call 0x1,0x94 17a2 8261 | a | Call 0x1,0x61 17a3 c5fd | | Store 0x2,-0x3 17a4 e5fe | | Load 0x2,-0x2 17a5 00d9 | | Load_Top At_Offset_1 17a6 828f | | Call 0x1,0x8f 17a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 17a8 ; -------------------------------------------------------------------------------------- 17a8 ; SUBPROGRAM 17a8 ; -------------------------------------------------------------------------------------- 17a8 17af | | .CONST 0x17af ; Address of begin 17a9 0004 | | .CONST 0x0004 ; Address of exception handler 17aa 0002 | | .CONST 0x0002 ; Number of locals 17ab INIT_17a8: 17ab e403 | | Load 0x2,0x3 17ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 17ad e20d | | Load 0x1,0xd 17ae 1c08 | | Execute_Immediate Run_Utility,0x8 17af BODY_17a8: 17af 4801 |H | Short_Literal 0x1 17b0 e403 | | Load 0x2,0x3 17b1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 17b2 e403 | | Load 0x2,0x3 17b3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 17b4 01cf | | Execute Vector,Slice_Read 17b5 00d9 | | Load_Top At_Offset_1 17b6 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 17b7 4800 |H | Short_Literal 0x0 17b8 00d9 | | Load_Top At_Offset_1 17b9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 17ba 00d8 | | Load_Top At_Offset_0 17bb 00cb | | Action Pop_Block_With_Result 17bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 17bd 0000 0000 | | .XXX[0x3] 17bf 0000 | | 17c0 ; -------------------------------------------------------------------------------------- 17c0 ; SUBPROGRAM 17c0 ; -------------------------------------------------------------------------------------- 17c0 17c7 | | .CONST 0x17c7 ; Address of begin 17c1 0004 | | .CONST 0x0004 ; Address of exception handler 17c2 0002 | | .CONST 0x0002 ; Number of locals 17c3 INIT_17c0: 17c3 e403 | | Load 0x2,0x3 17c4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 17c5 e20d | | Load 0x1,0xd 17c6 1c08 | | Execute_Immediate Run_Utility,0x8 17c7 BODY_17c0: 17c7 4801 |H | Short_Literal 0x1 17c8 e403 | | Load 0x2,0x3 17c9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 17ca e403 | | Load 0x2,0x3 17cb 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 17cc 01cf | | Execute Vector,Slice_Read 17cd 00d9 | | Load_Top At_Offset_1 17ce 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 17cf 4800 |H | Short_Literal 0x0 17d0 00d9 | | Load_Top At_Offset_1 17d1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 17d2 00d8 | | Load_Top At_Offset_0 17d3 00cb | | Action Pop_Block_With_Result 17d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 17d5 0000 0000 | | .XXX[0x3] 17d7 0000 | | 17d8 ; -------------------------------------------------------------------------------------- 17d8 ; SUBPROGRAM 17d8 ; -------------------------------------------------------------------------------------- 17d8 17df | | .CONST 0x17df ; Address of begin 17d9 0004 | | .CONST 0x0004 ; Address of exception handler 17da 0002 | | .CONST 0x0002 ; Number of locals 17db INIT_17d8: 17db 00da | | Load_Top At_Offset_2 17dc e00c | | Load 0x0,0xc 17dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 17de 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 17df BODY_17d8: 17df 00ea | | Load_Encached Null_String_Cache 17e0 4801 |H | Short_Literal 0x1 17e1 0092 19e8 | | Action Push_String_Extended,0x19e8 ; "<QUIET>" 17e3 4801 |H | Short_Literal 0x1 17e4 e602 | | Load 0x3,0x2 17e5 0092 1a00 | | Action Push_String_Extended,0x1a00 ; ".@_secondary_@_spec" 17e7 01cc | | Execute Vector,Catenate 17e8 e602 | | Load 0x3,0x2 17e9 0092 1a01 | | Action Push_String_Extended,0x1a01 ; ".@'spec.<secondary_@>" 17eb 01cc | | Execute Vector,Catenate 17ec e012 | | Load 0x0,0x12 17ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 17ee 00ea | | Load_Encached Null_String_Cache 17ef 4801 |H | Short_Literal 0x1 17f0 0092 19e8 | | Action Push_String_Extended,0x19e8 ; "<QUIET>" 17f2 4801 |H | Short_Literal 0x1 17f3 e602 | | Load 0x3,0x2 17f4 0092 1a02 | | Action Push_String_Extended,0x1a02 ; ".@_secondary_@_body" 17f6 01cc | | Execute Vector,Catenate 17f7 e602 | | Load 0x3,0x2 17f8 0092 1a03 | | Action Push_String_Extended,0x1a03 ; ".@'body.<secondary_@>" 17fa 01cc | | Execute Vector,Catenate 17fb e012 | | Load 0x0,0x12 17fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 17fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 17fe 0000 0000 | | .XXX[0x2] 1800 ; -------------------------------------------------------------------------------------- 1800 ; SUBPROGRAM 1800 ; -------------------------------------------------------------------------------------- 1800 1805 | | .CONST 0x1805 ; Address of begin 1801 0004 | | .CONST 0x0004 ; Address of exception handler 1802 0003 | | .CONST 0x0003 ; Number of locals 1803 INIT_1800: 1803 00e2 | | Load_Encached Integer_Cache 1804 00e2 | | Load_Encached Integer_Cache 1805 BODY_1800: 1805 4801 |H | Short_Literal 0x1 1806 e7ff | | Load 0x3,-0x1 1807 e404 | | Load 0x2,0x4 1808 e01a | | Load 0x0,0x1a 1809 181d | | Execute Package,Field_Execute,Field_Number 0x1d 180a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 180b 4801 |H | Short_Literal 0x1 180c e7ff | | Load 0x3,-0x1 180d 0092 1a04 | | Action Push_String_Extended,0x1a04 ; "_" 180f e01a | | Load 0x0,0x1a 1810 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1811 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1812 e7ff | | Load 0x3,-0x1 1813 01dd | | Execute Vector,First 1814 00da | | Load_Top At_Offset_2 1815 0aff | | Execute_Immediate Plus,-0x1 1816 00d8 | | Load_Top At_Offset_0 1817 00e2 | | Load_Encached Integer_Cache 1818 0260 | ` | Execute Discrete,In_Type 1819 7001 |p | Jump_Nonzero 0x181b 181a 0801 | | Execute_Immediate Raise,0x1 181b e7ff | | Load 0x3,-0x1 181c 01cf | | Execute Vector,Slice_Read 181d 0092 1a05 | | Action Push_String_Extended,0x1a05 ; "'" 181f 01cc | | Execute Vector,Catenate 1820 00d9 | | Load_Top At_Offset_1 1821 0a01 | | Execute_Immediate Plus,0x1 1822 00d8 | | Load_Top At_Offset_0 1823 00e2 | | Load_Encached Integer_Cache 1824 0260 | ` | Execute Discrete,In_Type 1825 7001 |p | Jump_Nonzero 0x1827 1826 0801 | | Execute_Immediate Raise,0x1 1827 e7ff | | Load 0x3,-0x1 1828 01dc | | Execute Vector,Last 1829 e7ff | | Load 0x3,-0x1 182a 01cf | | Execute Vector,Slice_Read 182b 01cc | | Execute Vector,Catenate 182c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 182d 0000 0000 | | .XXX[0x3] 182f 0000 | | 1830 ; -------------------------------------------------------------------------------------- 1830 ; SUBPROGRAM 1830 ; -------------------------------------------------------------------------------------- 1830 1835 | 5 | .CONST 0x1835 ; Address of begin 1831 0004 | | .CONST 0x0004 ; Address of exception handler 1832 0003 | | .CONST 0x0003 ; Number of locals 1833 INIT_1830: 1833 00e2 | | Load_Encached Integer_Cache 1834 00e2 | | Load_Encached Integer_Cache 1835 BODY_1830: 1835 4801 |H | Short_Literal 0x1 1836 e7ff | | Load 0x3,-0x1 1837 e404 | | Load 0x2,0x4 1838 e01a | | Load 0x0,0x1a 1839 181d | | Execute Package,Field_Execute,Field_Number 0x1d 183a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 183b 4801 |H | Short_Literal 0x1 183c e7ff | | Load 0x3,-0x1 183d 0092 1a04 | | Action Push_String_Extended,0x1a04 ; "_" 183f e01a | | Load 0x0,0x1a 1840 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1841 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1842 00d9 | | Load_Top At_Offset_1 1843 0a0b | | Execute_Immediate Plus,0xb 1844 00d8 | | Load_Top At_Offset_0 1845 00e2 | | Load_Encached Integer_Cache 1846 0260 | ` | Execute Discrete,In_Type 1847 7001 |p | Jump_Nonzero 0x1849 1848 0801 | | Execute_Immediate Raise,0x1 1849 00d9 | | Load_Top At_Offset_1 184a 0aff | | Execute_Immediate Plus,-0x1 184b 00d8 | | Load_Top At_Offset_0 184c 00e2 | | Load_Encached Integer_Cache 184d 0260 | ` | Execute Discrete,In_Type 184e 7001 |p | Jump_Nonzero 0x1850 184f 0801 | | Execute_Immediate Raise,0x1 1850 e7ff | | Load 0x3,-0x1 1851 01cf | | Execute Vector,Slice_Read 1852 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1853 0000 0000 | | .BLANK 0000[0x5] 1858 ; -------------------------------------------------------------------------------------- 1858 ; SUBPROGRAM 1858 ; -------------------------------------------------------------------------------------- 1858 1882 | | .CONST 0x1882 ; Address of begin 1859 0004 | | .CONST 0x0004 ; Address of exception handler 185a 0007 | | .CONST 0x0007 ; Number of locals 185b INIT_1858: 185b 00da | | Load_Top At_Offset_2 185c e00c | | Load 0x0,0xc 185d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 185e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 185f 00d8 | | Load_Top At_Offset_0 1860 e00c | | Load 0x0,0xc 1861 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1862 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 1863 00d9 | | Load_Top At_Offset_1 1864 e00c | | Load 0x0,0xc 1865 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1866 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 1867 00d9 | | Load_Top At_Offset_1 1868 0092 19f3 | | Action Push_String_Extended,0x19f3 ; "." 186a 01cc | | Execute Vector,Catenate 186b 00d9 | | Load_Top At_Offset_1 186c 8407 | | Call 0x2,0x7 186d 01cc | | Execute Vector,Catenate 186e 0092 1a06 | | Action Push_String_Extended,0x1a06 ; ".<secondary_" 1870 01cc | | Execute Vector,Catenate 1871 00d9 | | Load_Top At_Offset_1 1872 8408 | | Call 0x2,0x8 1873 01cc | | Execute Vector,Catenate 1874 0092 19fb | | Action Push_String_Extended,0x19fb ; ">" 1876 01cc | | Execute Vector,Catenate 1877 0007 | | Action Break_Optional 1878 e014 | | Load 0x0,0x14 1879 1b0d | | Execute Package,Field_Read,Field_Number 0xd 187a 02c7 | | Declare_Variable Any 187b 00d8 | | Load_Top At_Offset_0 187c 1c00 | | Execute_Immediate Run_Utility,0x0 187d e014 | | Load 0x0,0x14 187e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 187f 02c7 | | Declare_Variable Any 1880 00d8 | | Load_Top At_Offset_0 1881 1c00 | | Execute_Immediate Run_Utility,0x0 1882 BODY_1858: 1882 00d9 | | Load_Top At_Offset_1 1883 00ea | | Load_Encached Null_String_Cache 1884 e605 | | Load 0x3,0x5 1885 4801 |H | Short_Literal 0x1 1886 e014 | | Load 0x0,0x14 1887 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1888 c606 | | Store 0x3,0x6 1889 00d8 | | Load_Top At_Offset_0 188a 00ea | | Load_Encached Null_String_Cache 188b e602 | | Load 0x3,0x2 188c 4800 |H | Short_Literal 0x0 188d e014 | | Load 0x0,0x14 188e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 188f c607 | | Store 0x3,0x7 1890 00cf | | Action Mark_Auxiliary 1891 7807 |x | Jump 0x1899 1892 00d9 | | Load_Top At_Offset_1 1893 e014 | | Load 0x0,0x14 1894 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 1895 00db | | Load_Top At_Offset_3 1896 e014 | | Load 0x0,0x14 1897 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1898 00c9 | | Action Pop_Auxiliary_Loop 1899 00d9 | | Load_Top At_Offset_1 189a e014 | | Load 0x0,0x14 189b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 189c 6ff5 |o | Jump_Zero 0x1892 189d 00ce | | Action Pop_Auxiliary 189e 00d9 | | Load_Top At_Offset_1 189f e014 | | Load 0x0,0x14 18a0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 18a1 c606 | | Store 0x3,0x6 18a2 00d8 | | Load_Top At_Offset_0 18a3 e014 | | Load 0x0,0x14 18a4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 18a5 c607 | | Store 0x3,0x7 18a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 18a7 0000 | | .XXX[0x1] 18a8 ; -------------------------------------------------------------------------------------- 18a8 ; SUBPROGRAM 18a8 ; -------------------------------------------------------------------------------------- 18a8 18bd | | .CONST 0x18bd ; Address of begin 18a9 0004 | | .CONST 0x0004 ; Address of exception handler 18aa 0002 | | .CONST 0x0002 ; Number of locals 18ab INIT_18a8: 18ab e5fe | | Load 0x2,-0x2 18ac 4801 |H | Short_Literal 0x1 18ad e5ff | | Load 0x2,-0x1 18ae e004 | | Load 0x0,0x4 18af 181e | | Execute Package,Field_Execute,Field_Number 0x1e 18b0 e004 | | Load 0x0,0x4 18b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 18b2 0092 1a07 | | Action Push_String_Extended,0x1a07 ; ".@'c(ada).<secondary_" 18b4 01cc | | Execute Vector,Catenate 18b5 e5ff | | Load 0x2,-0x1 18b6 e004 | | Load 0x0,0x4 18b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 18b8 01cc | | Execute Vector,Catenate 18b9 0092 19fb | | Action Push_String_Extended,0x19fb ; ">" 18bb 01cc | | Execute Vector,Catenate 18bc 0007 | | Action Break_Optional 18bd BODY_18a8: 18bd 00d8 | | Load_Top At_Offset_0 18be 8296 | | Call 0x1,0x96 18bf c402 | | Store 0x2,0x2 18c0 e402 | | Load 0x2,0x2 18c1 e00c | | Load 0x0,0xc 18c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 18c3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 18c4 7021 |p! | Jump_Nonzero 0x18e6 18c5 e402 | | Load 0x2,0x2 18c6 e00c | | Load 0x0,0xc 18c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 18c8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 18c9 701c |p | Jump_Nonzero 0x18e6 18ca e5fe | | Load 0x2,-0x2 18cb 4801 |H | Short_Literal 0x1 18cc e402 | | Load 0x2,0x2 18cd e004 | | Load 0x0,0x4 18ce 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 18cf c403 | | Store 0x2,0x3 18d0 e001 | | Load 0x0,0x1 18d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 18d2 00e2 | | Load_Encached Integer_Cache 18d3 00e1 | | Load_Encached Boolean_Cache 18d4 e5fd | | Load 0x2,-0x3 18d5 0120 | | Execute Any,Is_Value 18d6 6803 |h | Jump_Zero 0x18da 18d7 e00c | | Load 0x0,0xc 18d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 18d9 7801 |x | Jump 0x18db 18da e5fd | | Load 0x2,-0x3 18db e5fe | | Load 0x2,-0x2 18dc e403 | | Load 0x2,0x3 18dd 8266 | f | Call 0x1,0x66 18de c5fd | | Store 0x2,-0x3 18df c406 | | Store 0x2,0x6 18e0 c405 | | Store 0x2,0x5 18e1 c404 | | Store 0x2,0x4 18e2 e406 | | Load 0x2,0x6 18e3 a5fc | | Store_Unchecked 0x2,-0x4 18e4 00cc | | Action Pop_Block 18e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 18e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 18e7 0000 | | .XXX[0x1] 18e8 ; -------------------------------------------------------------------------------------- 18e8 ; SUBPROGRAM 18e8 ; -------------------------------------------------------------------------------------- 18e8 18f7 | | .CONST 0x18f7 ; Address of begin 18e9 0004 | | .CONST 0x0004 ; Address of exception handler 18ea 0005 | | .CONST 0x0005 ; Number of locals 18eb INIT_18e8: 18eb e402 | | Load 0x2,0x2 18ec e014 | | Load 0x0,0x14 18ed 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 18ee e402 | | Load 0x2,0x2 18ef e014 | | Load 0x0,0x14 18f0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 18f1 e402 | | Load 0x2,0x2 18f2 e014 | | Load 0x0,0x14 18f3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 18f4 e402 | | Load 0x2,0x2 18f5 e014 | | Load 0x0,0x14 18f6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 18f7 BODY_18e8: 18f7 00db | | Load_Top At_Offset_3 18f8 4801 |H | Short_Literal 0x1 18f9 e602 | | Load 0x3,0x2 18fa 01db | | Execute Vector,Length 18fb 00d8 | | Load_Top At_Offset_0 18fc 00e2 | | Load_Encached Integer_Cache 18fd 0260 | ` | Execute Discrete,In_Type 18fe 7001 |p | Jump_Nonzero 0x1900 18ff 0801 | | Execute_Immediate Raise,0x1 1900 e5fd | | Load 0x2,-0x3 1901 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1902 01ce | | Execute Vector,Slice_Write 1903 00db | | Load_Top At_Offset_3 1904 01db | | Execute Vector,Length 1905 e5fd | | Load 0x2,-0x3 1906 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1907 00da | | Load_Top At_Offset_2 1908 4801 |H | Short_Literal 0x1 1909 e603 | | Load 0x3,0x3 190a 01db | | Execute Vector,Length 190b 00d8 | | Load_Top At_Offset_0 190c 00e2 | | Load_Encached Integer_Cache 190d 0260 | ` | Execute Discrete,In_Type 190e 7001 |p | Jump_Nonzero 0x1910 190f 0801 | | Execute_Immediate Raise,0x1 1910 e5fd | | Load 0x2,-0x3 1911 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1912 01ce | | Execute Vector,Slice_Write 1913 00da | | Load_Top At_Offset_2 1914 01db | | Execute Vector,Length 1915 e5fd | | Load 0x2,-0x3 1916 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1917 00d9 | | Load_Top At_Offset_1 1918 4801 |H | Short_Literal 0x1 1919 00db | | Load_Top At_Offset_3 191a 01db | | Execute Vector,Length 191b 00d8 | | Load_Top At_Offset_0 191c 00e2 | | Load_Encached Integer_Cache 191d 0260 | ` | Execute Discrete,In_Type 191e 7001 |p | Jump_Nonzero 0x1920 191f 0801 | | Execute_Immediate Raise,0x1 1920 e5fd | | Load 0x2,-0x3 1921 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1922 01ce | | Execute Vector,Slice_Write 1923 00d9 | | Load_Top At_Offset_1 1924 01db | | Execute Vector,Length 1925 e5fd | | Load 0x2,-0x3 1926 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1927 00d8 | | Load_Top At_Offset_0 1928 4801 |H | Short_Literal 0x1 1929 00da | | Load_Top At_Offset_2 192a 01db | | Execute Vector,Length 192b 00d8 | | Load_Top At_Offset_0 192c 00e2 | | Load_Encached Integer_Cache 192d 0260 | ` | Execute Discrete,In_Type 192e 7001 |p | Jump_Nonzero 0x1930 192f 0801 | | Execute_Immediate Raise,0x1 1930 e5fd | | Load 0x2,-0x3 1931 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1932 01ce | | Execute Vector,Slice_Write 1933 00d8 | | Load_Top At_Offset_0 1934 01db | | Execute Vector,Length 1935 e5fd | | Load 0x2,-0x3 1936 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 1937 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1938 ; -------------------------------------------------------------------------------------- 1938 ; SUBPROGRAM 1938 ; -------------------------------------------------------------------------------------- 1938 193d | = | .CONST 0x193d ; Address of begin 1939 0004 | | .CONST 0x0004 ; Address of exception handler 193a 0002 | | .CONST 0x0002 ; Number of locals 193b INIT_1938: 193b e402 | | Load 0x2,0x2 193c 8298 | | Call 0x1,0x98 193d BODY_1938: 193d 4801 |H | Short_Literal 0x1 193e e5ff | | Load 0x2,-0x1 193f 00da | | Load_Top At_Offset_2 1940 e01a | | Load 0x0,0x1a 1941 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1942 6811 |h | Jump_Zero 0x1954 1943 4801 |H | Short_Literal 0x1 1944 a405 | | Store_Unchecked 0x2,0x5 1945 e00c | | Load 0x0,0xc 1946 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1947 e403 | | Load 0x2,0x3 1948 0120 | | Execute Any,Is_Value 1949 6803 |h | Jump_Zero 0x194d 194a e00c | | Load 0x0,0xc 194b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 194c 7801 |x | Jump 0x194e 194d e403 | | Load 0x2,0x3 194e e402 | | Load 0x2,0x2 194f e00c | | Load 0x0,0xc 1950 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1951 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1952 c403 | | Store 0x2,0x3 1953 c406 | | Store 0x2,0x6 1954 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1955 0000 0000 | | .XXX[0x3] 1957 0000 | | 1958 ; -------------------------------------------------------------------------------------- 1958 ; SUBPROGRAM 1958 ; -------------------------------------------------------------------------------------- 1958 195b | [ | .CONST 0x195b ; Address of begin 1959 0004 | | .CONST 0x0004 ; Address of exception handler 195a 0001 | | .CONST 0x0001 ; Number of locals 195b BODY_1958: 195b INIT_1958: 195b 4608 |F | Jump_Case 0x9 195c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 195d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 195e 7819 |x | Jump 0x1978 ; case 0x2 195f 7818 |x | Jump 0x1978 ; case 0x3 1960 7817 |x | Jump 0x1978 ; case 0x4 1961 7816 |x | Jump 0x1978 ; case 0x5 1962 7815 |x | Jump 0x1978 ; case 0x6 1963 7801 |x | Jump 0x1965 ; case 0x7 1964 7809 |x | Jump 0x196e ; case 0x8 1965 00db | | Load_Top At_Offset_3 1966 4801 |H | Short_Literal 0x1 1967 e5fe | | Load 0x2,-0x2 1968 00e9 | | Load_Encached String_Cache 1969 035b | [ | Declare_Type Array,Constrained 196a 4801 |H | Short_Literal 0x1 196b e5ff | | Load 0x2,-0x1 196c 031b | | Declare_Type Variant_Record,Constrained 196d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 196e 00db | | Load_Top At_Offset_3 196f 00db | | Load_Top At_Offset_3 1970 02fc | | Declare_Variable Variant_Record,With_Constraint 1971 4801 |H | Short_Literal 0x1 1972 e5fe | | Load 0x2,-0x2 1973 00e9 | | Load_Encached String_Cache 1974 0334 | 4 | Declare_Variable Array,With_Constraint 1975 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 1976 016a | j | QQ_execute Variant_Record,XXX 1977 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1978 0869 | i | Execute_Immediate Raise,0x69 1979 0000 0000 | | .BLANK 0000[0x7] 1980 ; -------------------------------------------------------------------------------------- 1980 ; SUBPROGRAM 1980 ; -------------------------------------------------------------------------------------- 1980 1983 | | .CONST 0x1983 ; Address of begin 1981 0004 | | .CONST 0x0004 ; Address of exception handler 1982 0001 | | .CONST 0x0001 ; Number of locals 1983 BODY_1980: 1983 INIT_1980: 1983 4608 |F | Jump_Case 0x9 1984 7808 |x | Jump 0x198d ; case 0x0 1985 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 1986 7851 |xQ | Jump 0x19d8 ; case 0x2 1987 7850 |xP | Jump 0x19d8 ; case 0x3 1988 784f |xO | Jump 0x19d8 ; case 0x4 1989 784e |xN | Jump 0x19d8 ; case 0x5 198a 784d |xM | Jump 0x19d8 ; case 0x6 198b 784c |xL | Jump 0x19d8 ; case 0x7 198c 784b |xK | Jump 0x19d8 ; case 0x8 198d e26f | o | Load 0x1,0x6f 198e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 198f 0337 | 7 | Declare_Variable Array 1990 4880 |H | Short_Literal 0x80 1991 4801 |H | Short_Literal 0x1 1992 4820 |H | Short_Literal 0x20 1993 00d9 | | Load_Top At_Offset_1 1994 e402 | | Load 0x2,0x2 1995 01d6 | | Execute Vector,Field_Write 1996 3ffb |? | Loop_Increasing 0x1992 1997 00db | | Load_Top At_Offset_3 1998 00d9 | | Load_Top At_Offset_1 1999 00d9 | | Load_Top At_Offset_1 199a 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 199b 0119 | | Execute Any,Check_In_Formal_Type 199c 00d1 | | Pop_Control Pop_Count_1 199d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 199e 4800 |H | Short_Literal 0x0 199f 00db | | Load_Top At_Offset_3 19a0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 19a1 e26f | o | Load 0x1,0x6f 19a2 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 19a3 0337 | 7 | Declare_Variable Array 19a4 4880 |H | Short_Literal 0x80 19a5 4801 |H | Short_Literal 0x1 19a6 4820 |H | Short_Literal 0x20 19a7 00d9 | | Load_Top At_Offset_1 19a8 e402 | | Load 0x2,0x2 19a9 01d6 | | Execute Vector,Field_Write 19aa 3ffb |? | Loop_Increasing 0x19a6 19ab 00db | | Load_Top At_Offset_3 19ac 00d9 | | Load_Top At_Offset_1 19ad 00d9 | | Load_Top At_Offset_1 19ae 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 19af 0119 | | Execute Any,Check_In_Formal_Type 19b0 00d1 | | Pop_Control Pop_Count_1 19b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 19b2 e26f | o | Load 0x1,0x6f 19b3 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 19b4 0337 | 7 | Declare_Variable Array 19b5 4880 |H | Short_Literal 0x80 19b6 4801 |H | Short_Literal 0x1 19b7 4820 |H | Short_Literal 0x20 19b8 00d9 | | Load_Top At_Offset_1 19b9 e402 | | Load 0x2,0x2 19ba 01d6 | | Execute Vector,Field_Write 19bb 3ffb |? | Loop_Increasing 0x19b7 19bc 00db | | Load_Top At_Offset_3 19bd 00d9 | | Load_Top At_Offset_1 19be 00d9 | | Load_Top At_Offset_1 19bf 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 19c0 0119 | | Execute Any,Check_In_Formal_Type 19c1 00d1 | | Pop_Control Pop_Count_1 19c2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 19c3 4800 |H | Short_Literal 0x0 19c4 00db | | Load_Top At_Offset_3 19c5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 19c6 e26f | o | Load 0x1,0x6f 19c7 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 19c8 0337 | 7 | Declare_Variable Array 19c9 4880 |H | Short_Literal 0x80 19ca 4801 |H | Short_Literal 0x1 19cb 4820 |H | Short_Literal 0x20 19cc 00d9 | | Load_Top At_Offset_1 19cd e402 | | Load 0x2,0x2 19ce 01d6 | | Execute Vector,Field_Write 19cf 3ffb |? | Loop_Increasing 0x19cb 19d0 00db | | Load_Top At_Offset_3 19d1 00d9 | | Load_Top At_Offset_1 19d2 00d9 | | Load_Top At_Offset_1 19d3 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 19d4 0119 | | Execute Any,Check_In_Formal_Type 19d5 00d1 | | Pop_Control Pop_Count_1 19d6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 19d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 19d8 0869 | i | Execute_Immediate Raise,0x69 19d9 ; -------------------------------------------------------------------------------------- 19d9 ; STRING TABLE 19d9 ; -------------------------------------------------------------------------------------- 19d9 0060 | ` | .STRTAB 0x0060->0x1a09 ; "secondary_" 19da 0068 | h | .STRTAB 0x0068->0x1a0e ; "<secondary_[@,~state]>" 19db 007c | | | .STRTAB 0x007c->0x1a19 ; "Rcf_Unit.Display_Unit_Options" 19dc 0097 | | .STRTAB 0x0097->0x1a27 ; "Rcf_Unit.Set_Unit_Options" 19dd 00ae | | .STRTAB 0x00ae->0x1a34 ; "Rcf_Unit.Remove_Unit_Options" 19de 00c8 | | .STRTAB 0x00c8->0x1a42 ; "Rcf_Unit.Remote_Unit_Name" 19df 00df | | .STRTAB 0x00df->0x1a4e ; "Rcf_Unit.Full_Remote_Unit_Name" 19e0 00fb | | .STRTAB 0x00fb->0x1a5d ; "Full_Remote_Unit_Name" 19e1 010e | | .STRTAB 0x010e->0x1a68 ; "Rcf_Unit.Set_Remote_Unit_Name" 19e2 0129 | ) | .STRTAB 0x0129->0x1a76 ; "Rcf_Unit.Local_Update_Time" 19e3 0141 | A | .STRTAB 0x0141->0x1a83 ; "Rcf_Unit.Set_Local_Update_Time: Time = " 19e4 0166 | f | .STRTAB 0x0166->0x1a97 ; "Rcf_Unit.Set_Local_Update_Time" 19e5 0182 | | .STRTAB 0x0182->0x1aa6 ; " 128" 19e6 0184 | | .STRTAB 0x0184->0x1aa8 ; "Rcf_Temp_" 19e7 018b | | .STRTAB 0x018b->0x1aac ; "Upload_Ada_Unit" 19e8 0198 | | .STRTAB 0x0198->0x1ab4 ; "<QUIET>" 19e9 019d | | .STRTAB 0x019d->0x1ab7 ; "<DIRECTORIES>" 19ea 01a8 | | .STRTAB 0x01a8->0x1abe ; "Rcf_Unit.Upload_Ada_Unit" 19eb 01be | | .STRTAB 0x01be->0x1aca ; "Setting local download time (from remote time) to " 19ec 01ee | | .STRTAB 0x01ee->0x1ae3 ; "Can't upload from remote unit \x22" 19ed 020b | | .STRTAB 0x020b->0x1af2 ; "\x22 into existing text file \x22" 19ee 0224 | $ | .STRTAB 0x0224->0x1b00 ; "\x22." 19ef 0224 | $ | .STRTAB 0x0224->0x1b01 ; "Upload_Text_File" 19f0 0232 | 2 | .STRTAB 0x0232->0x1b09 ; "Rcf_Unit.Upload_Text_File" 19f1 0249 | I | .STRTAB 0x0249->0x1b15 ; "Update_Consistency" 19f2 0259 | Y | .STRTAB 0x0259->0x1b1e ; "Rcf_Unit.Update_Consistency" 19f3 0272 | r | .STRTAB 0x0272->0x1b2c ; "." 19f4 0271 | q | .STRTAB 0x0271->0x1b2c ; "state" 19f5 0274 | t | .STRTAB 0x0274->0x1b2f ; ".??'c(library)" 19f6 0280 | | .STRTAB 0x0280->0x1b36 ; "??'c(library)" 19f7 028b | | .STRTAB 0x028b->0x1b3c ; "_secondary_" 19f8 0294 | | .STRTAB 0x0294->0x1b42 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 19f9 02bc | | .STRTAB 0x02bc->0x1b57 ; ".<" 19fa 02bc | | .STRTAB 0x02bc->0x1b58 ; "state>" 19fb 02c0 | | .STRTAB 0x02c0->0x1b5b ; ">" 19fc 02bf | | .STRTAB 0x02bf->0x1b5b ; "<DEFAULT>" 19fd 02c6 | | .STRTAB 0x02c6->0x1b60 ; ".Units." 19fe 02cb | | .STRTAB 0x02cb->0x1b63 ; ".units" 19ff 02cf | | .STRTAB 0x02cf->0x1b66 ; "<error>" 1a00 02d4 | | .STRTAB 0x02d4->0x1b6a ; ".@_secondary_@_spec" 1a01 02e5 | | .STRTAB 0x02e5->0x1b73 ; ".@'spec.<secondary_@>" 1a02 02f8 | | .STRTAB 0x02f8->0x1b7e ; ".@_secondary_@_body" 1a03 0309 | | .STRTAB 0x0309->0x1b87 ; ".@'body.<secondary_@>" 1a04 031c | | .STRTAB 0x031c->0x1b92 ; "_" 1a05 031b | | .STRTAB 0x031b->0x1b92 ; "'" 1a06 031a | | .STRTAB 0x031a->0x1b93 ; ".<secondary_" 1a07 0324 | $ | .STRTAB 0x0324->0x1b99 ; ".@'c(ada).<secondary_" 1a08 0337 | 7 | .STREND 0x0337->0x1ba3 1a09 7365 636f |seco| .STRTAB_STRINGS 1ba4 0000 0000 | | .BLANK 0000[0x4] 1ba8 ; -------------------------------------------------------------------------------------- 1ba8 ; Debug Table 1ba8 ; -------------------------------------------------------------------------------------- 1ba8 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dec,0x0000,0x0001,0x0000 1bae 0000 0000 | | .BLANK 0000[0x52]