|
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: 13312 (0x3400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 18e8 | | .CONST 0x18e8 ; 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 800f | | .CONST 0x800f ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01cb | | .CONST 0x01cb ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00af | | .CONST 0x00af ; 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 1693 | | Declare_Subprogram INIT_1690,For_Call 0011 4800 |H | Short_Literal 0x0 0012 4801 |H | Short_Literal 0x1 0013 4801 |H | Short_Literal 0x1 0014 4800 |H | Short_Literal 0x0 0015 4801 |H | Short_Literal 0x1 0016 4801 |H | Short_Literal 0x1 0017 031e | | Declare_Type Variant_Record,Defined,Visible 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 00c4 | | Action Make_Default 0063 00c4 | | Action Make_Default 0064 00c4 | | Action Make_Default 0065 00c4 | | Action Make_Default 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 00c4 | | Action Make_Default 0069 00c4 | | Action Make_Default 006a 00c4 | | Action Make_Default 006b 00c4 | | Action Make_Default 006c 00c4 | | Action Make_Default 006d 00c4 | | Action Make_Default 006e 00c4 | | Action Make_Default 006f 00c4 | | Action Make_Default 0070 00c4 | | Action Make_Default 0071 00c4 | | Action Make_Default 0072 00c4 | | Action Make_Default 0073 00c4 | | Action Make_Default 0074 00c4 | | Action Make_Default 0075 00c4 | | Action Make_Default 0076 00c4 | | Action Make_Default 0077 00c4 | | Action Make_Default 0078 00c4 | | Action Make_Default 0079 00c4 | | Action Make_Default 007a 00c4 | | Action Make_Default 007b 00c4 | | Action Make_Default 007c 00c4 | | Action Make_Default 007d 00c4 | | Action Make_Default 007e 00c4 | | Action Make_Default 007f 00c4 | | Action Make_Default 0080 00c4 | | Action Make_Default 0081 00c4 | | Action Make_Default 0082 00c4 | | Action Make_Default 0083 00c4 | | Action Make_Default 0084 00c4 | | Action Make_Default 0085 00c4 | | Action Make_Default 0086 00c4 | | Action Make_Default 0087 00c4 | | Action Make_Default 0088 00c4 | | Action Make_Default 0089 00c4 | | Action Make_Default 008a 00c4 | | Action Make_Default 008b 00c4 | | Action Make_Default 008c 00c4 | | Action Make_Default 008d 00c4 | | Action Make_Default 008e 00c4 | | Action Make_Default 008f 00c4 | | Action Make_Default 0090 00c4 | | Action Make_Default 0091 00c4 | | Action Make_Default 0092 00c4 | | Action Make_Default 0093 00c4 | | Action Make_Default 0094 00c4 | | Action Make_Default 0095 00c4 | | Action Make_Default 0096 00c4 | | Action Make_Default 0097 00c4 | | Action Make_Default 0098 00c4 | | Action Make_Default 0099 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 009b c27e | ~ | Store 0x1,0x7e 009c 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 009e c27f | | Store 0x1,0x7f 009f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 00a1 c280 | | Store 0x1,0x80 00a2 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 00a4 c281 | | Store 0x1,0x81 00a5 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 00a7 c227 | ' | Store 0x1,0x27 00a8 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 00aa c228 | ( | Store 0x1,0x28 00ab 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 00ad c229 | ) | Store 0x1,0x29 00ae 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 00b0 c22a | * | Store 0x1,0x2a 00b1 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 00b3 c22b | + | Store 0x1,0x2b 00b4 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 00b6 c22c | , | Store 0x1,0x2c 00b7 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 00b9 c278 | x | Store 0x1,0x78 00ba 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 00bc c277 | w | Store 0x1,0x77 00bd 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 00bf c28d | | Store 0x1,0x8d 00c0 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 00c2 c28e | | Store 0x1,0x8e 00c3 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 00c5 c288 | | Store 0x1,0x88 00c6 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated 00c8 c289 | | Store 0x1,0x89 00c9 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated 00cb c28a | | Store 0x1,0x8a 00cc 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated 00ce c28b | | Store 0x1,0x8b 00cf 029a 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Visible,Unelaborated 00d1 c231 | 1 | Store 0x1,0x31 00d2 029a 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Visible,Unelaborated 00d4 c232 | 2 | Store 0x1,0x32 00d5 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated 00d7 c286 | | Store 0x1,0x86 00d8 029a 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call,Visible,Unelaborated 00da c279 | y | Store 0x1,0x79 00db 029a 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call,Visible,Unelaborated 00dd c265 | e | Store 0x1,0x65 00de 029a 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call,Visible,Unelaborated 00e0 c25a | Z | Store 0x1,0x5a 00e1 029a 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call,Visible,Unelaborated 00e3 c245 | E | Store 0x1,0x45 00e4 029a 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call,Visible,Unelaborated 00e6 c266 | f | Store 0x1,0x66 00e7 029a 0b0b | | Declare_Subprogram INIT_0b08,For_Outer_Call,Visible,Unelaborated 00e9 c267 | g | Store 0x1,0x67 00ea 029a 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call,Visible,Unelaborated 00ec c26a | j | Store 0x1,0x6a 00ed 029a 0b63 | c| Declare_Subprogram INIT_0b60,For_Outer_Call,Visible,Unelaborated 00ef c25d | ] | Store 0x1,0x5d 00f0 029a 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call,Visible,Unelaborated 00f2 c25e | ^ | Store 0x1,0x5e 00f3 029a 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call,Visible,Unelaborated 00f5 c25f | _ | Store 0x1,0x5f 00f6 029a 0bfb | | Declare_Subprogram INIT_0bf8,For_Outer_Call,Visible,Unelaborated 00f8 c270 | p | Store 0x1,0x70 00f9 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated 00fb c271 | q | Store 0x1,0x71 00fc 029a 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call,Visible,Unelaborated 00fe c273 | s | Store 0x1,0x73 00ff e001 | | Load 0x0,0x1 0100 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0101 4801 |H | Short_Literal 0x1 0102 4880 |H | Short_Literal 0x80 0103 00e9 | | Load_Encached String_Cache 0104 035c | \ | Declare_Type Array,Constrained,Visible 0105 00e3 | | Load_Encached Natural_Cache 0106 4801 |H | Short_Literal 0x1 0107 4880 |H | Short_Literal 0x80 0108 00e9 | | Load_Encached String_Cache 0109 035c | \ | Declare_Type Array,Constrained,Visible 010a 00e3 | | Load_Encached Natural_Cache 010b 4801 |H | Short_Literal 0x1 010c 4880 |H | Short_Literal 0x80 010d 00e9 | | Load_Encached String_Cache 010e 035c | \ | Declare_Type Array,Constrained,Visible 010f 00e3 | | Load_Encached Natural_Cache 0110 4801 |H | Short_Literal 0x1 0111 4880 |H | Short_Literal 0x80 0112 00e9 | | Load_Encached String_Cache 0113 035c | \ | Declare_Type Array,Constrained,Visible 0114 00e3 | | Load_Encached Natural_Cache 0115 029f 16bb | | Declare_Subprogram INIT_16b8,For_Call 0117 4809 |H | Short_Literal 0x9 0118 032e | . | Declare_Type Record,Defined,Visible 0119 c26f | o | Store 0x1,0x6f 011a 029a 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call,Visible,Unelaborated 011c c250 | P | Store 0x1,0x50 011d 029a 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call,Visible,Unelaborated 011f c27d | } | Store 0x1,0x7d 0120 029a 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call,Visible,Unelaborated 0122 c26d | m | Store 0x1,0x6d 0123 029a 0d23 | #| Declare_Subprogram INIT_0d20,For_Outer_Call,Visible,Unelaborated 0125 c26e | n | Store 0x1,0x6e 0126 029a 0d83 | | Declare_Subprogram INIT_0d80,For_Outer_Call,Visible,Unelaborated 0128 c28c | | Store 0x1,0x8c 0129 029a 0e4b | K| Declare_Subprogram INIT_0e48,For_Outer_Call,Visible,Unelaborated 012b c283 | | Store 0x1,0x83 012c 029a 0eeb | | Declare_Subprogram INIT_0ee8,For_Outer_Call,Visible,Unelaborated 012e c284 | | Store 0x1,0x84 012f 029a 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Visible,Unelaborated 0131 c287 | | Store 0x1,0x87 0132 00bf | | Action Accept_Activation 0133 00e1 | | Load_Encached Boolean_Cache 0134 02a0 | | Declare_Subprogram Null_Subprogram 0135 4801 |H | Short_Literal 0x1 0136 032d | - | Declare_Type Record,Defined 0137 0092 1711 | | Action Push_String_Extended,0x1711 ; "secondary_" 0139 0092 1712 | | Action Push_String_Extended,0x1712 ; "<secondary_[@,~state]>" 013b 029d 0f3b | ;| Declare_Subprogram INIT_0f38,For_Outer_Call 013d 029d 0f4b | K| Declare_Subprogram INIT_0f48,For_Outer_Call 013f 029d 0f5b | [| Declare_Subprogram INIT_0f58,For_Outer_Call 0141 029d 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call 0143 029d 0fa3 | | Declare_Subprogram INIT_0fa0,For_Outer_Call 0145 029d 0fb3 | | Declare_Subprogram INIT_0fb0,For_Outer_Call 0147 029d 0fd3 | | Declare_Subprogram INIT_0fd0,For_Outer_Call 0149 029d 0feb | | Declare_Subprogram INIT_0fe8,For_Outer_Call 014b 029d 101b | | Declare_Subprogram INIT_1018,For_Outer_Call 014d 029d 1063 | c| Declare_Subprogram INIT_1060,For_Outer_Call 014f 029d 109b | | Declare_Subprogram INIT_1098,For_Outer_Call 0151 029d 10ab | | Declare_Subprogram INIT_10a8,For_Outer_Call 0153 029d 10d3 | | Declare_Subprogram INIT_10d0,For_Outer_Call 0155 029d 10db | | Declare_Subprogram INIT_10d8,For_Outer_Call 0157 029d 10eb | | Declare_Subprogram INIT_10e8,For_Outer_Call 0159 029d 10fb | | Declare_Subprogram INIT_10f8,For_Outer_Call 015b 029d 1103 | | Declare_Subprogram INIT_1100,For_Outer_Call 015d 029d 110b | | Declare_Subprogram INIT_1108,For_Outer_Call 015f 029d 1143 | C| Declare_Subprogram INIT_1140,For_Outer_Call 0161 029d 1153 | S| Declare_Subprogram INIT_1150,For_Outer_Call 0163 029d 11a3 | | Declare_Subprogram INIT_11a0,For_Outer_Call 0165 029d 11f3 | | Declare_Subprogram INIT_11f0,For_Outer_Call 0167 029d 1233 | 3| Declare_Subprogram INIT_1230,For_Outer_Call 0169 029d 126b | k| Declare_Subprogram INIT_1268,For_Outer_Call 016b 029d 129b | | Declare_Subprogram INIT_1298,For_Outer_Call 016d 029d 12d3 | | Declare_Subprogram INIT_12d0,For_Outer_Call 016f 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call 0171 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 0172 00c7 | | Action Elaborate_Subprogram 0173 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 0174 00c7 | | Action Elaborate_Subprogram 0175 1d80 | | Execute_Immediate Reference_Lex_1,0x80 0176 00c7 | | Action Elaborate_Subprogram 0177 1d81 | | Execute_Immediate Reference_Lex_1,0x81 0178 00c7 | | Action Elaborate_Subprogram 0179 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 017a 00c7 | | Action Elaborate_Subprogram 017b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 017c 00c7 | | Action Elaborate_Subprogram 017d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 017e 00c7 | | Action Elaborate_Subprogram 017f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0180 00c7 | | Action Elaborate_Subprogram 0181 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0182 00c7 | | Action Elaborate_Subprogram 0183 1d8e | | Execute_Immediate Reference_Lex_1,0x8e 0184 00c7 | | Action Elaborate_Subprogram 0185 1d8d | | Execute_Immediate Reference_Lex_1,0x8d 0186 00c7 | | Action Elaborate_Subprogram 0187 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0188 00c7 | | Action Elaborate_Subprogram 0189 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 018a 00c7 | | Action Elaborate_Subprogram 018b 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 018c 00c7 | | Action Elaborate_Subprogram 018d 029d 13bb | | Declare_Subprogram INIT_13b8,For_Outer_Call 018f 029d 13e3 | | Declare_Subprogram INIT_13e0,For_Outer_Call 0191 1d88 | | Execute_Immediate Reference_Lex_1,0x88 0192 00c7 | | Action Elaborate_Subprogram 0193 1d89 | | Execute_Immediate Reference_Lex_1,0x89 0194 00c7 | | Action Elaborate_Subprogram 0195 1d8a | | Execute_Immediate Reference_Lex_1,0x8a 0196 00c7 | | Action Elaborate_Subprogram 0197 1d8b | | Execute_Immediate Reference_Lex_1,0x8b 0198 00c7 | | Action Elaborate_Subprogram 0199 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 019a 00c7 | | Action Elaborate_Subprogram 019b 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 019c 00c7 | | Action Elaborate_Subprogram 019d 1d86 | | Execute_Immediate Reference_Lex_1,0x86 019e 00c7 | | Action Elaborate_Subprogram 019f 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 01a0 00c7 | | Action Elaborate_Subprogram 01a1 1d65 | e | Execute_Immediate Reference_Lex_1,0x65 01a2 00c7 | | Action Elaborate_Subprogram 01a3 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 01a4 00c7 | | Action Elaborate_Subprogram 01a5 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 01a6 00c7 | | Action Elaborate_Subprogram 01a7 029d 13fb | | Declare_Subprogram INIT_13f8,For_Outer_Call 01a9 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 01aa 00c7 | | Action Elaborate_Subprogram 01ab 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 01ac 00c7 | | Action Elaborate_Subprogram 01ad 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 01ae 00c7 | | Action Elaborate_Subprogram 01af 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 01b0 00c7 | | Action Elaborate_Subprogram 01b1 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 01b2 00c7 | | Action Elaborate_Subprogram 01b3 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 01b4 00c7 | | Action Elaborate_Subprogram 01b5 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 01b6 00c7 | | Action Elaborate_Subprogram 01b7 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 01b8 00c7 | | Action Elaborate_Subprogram 01b9 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 01ba 00c7 | | Action Elaborate_Subprogram 01bb 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01bc 00c7 | | Action Elaborate_Subprogram 01bd 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 01be 00c7 | | Action Elaborate_Subprogram 01bf 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01c0 00c7 | | Action Elaborate_Subprogram 01c1 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 01c2 00c7 | | Action Elaborate_Subprogram 01c3 1d8c | | Execute_Immediate Reference_Lex_1,0x8c 01c4 00c7 | | Action Elaborate_Subprogram 01c5 1d83 | | Execute_Immediate Reference_Lex_1,0x83 01c6 00c7 | | Action Elaborate_Subprogram 01c7 1d84 | | Execute_Immediate Reference_Lex_1,0x84 01c8 00c7 | | Action Elaborate_Subprogram 01c9 1d87 | | Execute_Immediate Reference_Lex_1,0x87 01ca 00c7 | | Action Elaborate_Subprogram 01cb BODY_0008: 01cb 00bc | | Action Signal_Activated 01cc 00bb | | Action Signal_Completion 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 01df | | .CONST 0x01df ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 01d4 a5fc | | Store_Unchecked 0x2,-0x4 01d5 e5fd | | Load 0x2,-0x3 01d6 0092 1713 | | Action Push_String_Extended,0x1713 ; "Rcf_Unit.Display_Unit_Options" 01d8 e002 | | Load 0x0,0x2 01d9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01da e5fd | | Load 0x2,-0x3 01db e5fe | | Load 0x2,-0x2 01dc e003 | | Load 0x0,0x3 01dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01de 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01df TRAP_01d0: 01df e001 | | Load 0x0,0x1 01e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01e1 010f | | Execute Exception,Equal 01e2 6804 |h | Jump_Zero 0x1e7 01e3 e001 | | Load 0x0,0x1 01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e5 a5fc | | Store_Unchecked 0x2,-0x4 01e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01e7 e5fd | | Load 0x2,-0x3 01e8 0092 1713 | | Action Push_String_Extended,0x1713 ; "Rcf_Unit.Display_Unit_Options" 01ea e002 | | Load 0x0,0x2 01eb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ec 0092 1713 | | Action Push_String_Extended,0x1713 ; "Rcf_Unit.Display_Unit_Options" 01ee e002 | | Load 0x0,0x2 01ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f0 a5fc | | Store_Unchecked 0x2,-0x4 01f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0209 | | .CONST 0x0209 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e5fb | | Load 0x2,-0x5 01fc 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 01fe e002 | | Load 0x0,0x2 01ff 180e | | Execute Package,Field_Execute,Field_Number 0xe 0200 4800 |H | Short_Literal 0x0 0201 a5fa | | Store_Unchecked 0x2,-0x6 0202 e5fb | | Load 0x2,-0x5 0203 e5fc | | Load 0x2,-0x4 0204 e5fd | | Load 0x2,-0x3 0205 e5fe | | Load 0x2,-0x2 0206 e003 | | Load 0x0,0x3 0207 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0208 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0209 TRAP_01f8: 0209 e001 | | Load 0x0,0x1 020a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 020b 010f | | Execute Exception,Equal 020c 6804 |h | Jump_Zero 0x211 020d e001 | | Load 0x0,0x1 020e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020f a5fa | | Store_Unchecked 0x2,-0x6 0210 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0211 e5fb | | Load 0x2,-0x5 0212 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 0214 e002 | | Load 0x0,0x2 0215 180f | | Execute Package,Field_Execute,Field_Number 0xf 0216 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 0218 e002 | | Load 0x0,0x2 0219 1810 | | Execute Package,Field_Execute,Field_Number 0x10 021a a5fa | | Store_Unchecked 0x2,-0x6 021b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0231 | 1 | .CONST 0x0231 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5fb | | Load 0x2,-0x5 0224 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 0226 e002 | | Load 0x0,0x2 0227 180e | | Execute Package,Field_Execute,Field_Number 0xe 0228 4800 |H | Short_Literal 0x0 0229 a5fa | | Store_Unchecked 0x2,-0x6 022a e5fb | | Load 0x2,-0x5 022b e5fc | | Load 0x2,-0x4 022c e5fd | | Load 0x2,-0x3 022d e5fe | | Load 0x2,-0x2 022e e003 | | Load 0x0,0x3 022f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0230 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0231 TRAP_0220: 0231 e001 | | Load 0x0,0x1 0232 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0233 010f | | Execute Exception,Equal 0234 6804 |h | Jump_Zero 0x239 0235 e001 | | Load 0x0,0x1 0236 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0237 a5fa | | Store_Unchecked 0x2,-0x6 0238 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0239 e5fb | | Load 0x2,-0x5 023a 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 023c e002 | | Load 0x0,0x2 023d 180f | | Execute Package,Field_Execute,Field_Number 0xf 023e 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 0240 e002 | | Load 0x0,0x2 0241 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0242 a5fa | | Store_Unchecked 0x2,-0x6 0243 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0258 | X | .CONST 0x0258 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e5fc | | Load 0x2,-0x4 024c 0092 1715 | | Action Push_String_Extended,0x1715 ; "Rcf_Unit.Remove_Unit_Options" 024e e002 | | Load 0x0,0x2 024f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0250 4800 |H | Short_Literal 0x0 0251 a5fb | | Store_Unchecked 0x2,-0x5 0252 e5fc | | Load 0x2,-0x4 0253 e5fd | | Load 0x2,-0x3 0254 e5fe | | Load 0x2,-0x2 0255 e003 | | Load 0x0,0x3 0256 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0257 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0258 TRAP_0248: 0258 e001 | | Load 0x0,0x1 0259 1b17 | | Execute Package,Field_Read,Field_Number 0x17 025a 010f | | Execute Exception,Equal 025b 6804 |h | Jump_Zero 0x260 025c e001 | | Load 0x0,0x1 025d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 025e a5fb | | Store_Unchecked 0x2,-0x5 025f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0260 e5fc | | Load 0x2,-0x4 0261 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 0263 e002 | | Load 0x0,0x2 0264 180f | | Execute Package,Field_Execute,Field_Number 0xf 0265 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options" 0267 e002 | | Load 0x0,0x2 0268 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0269 a5fb | | Store_Unchecked 0x2,-0x5 026a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0280 | | .CONST 0x0280 ; Address of begin 0271 0287 | | .CONST 0x0287 ; Address of exception handler 0272 0004 | | .CONST 0x0004 ; Number of locals 0273 INIT_0270: 0273 4800 |H | Short_Literal 0x0 0274 e20d | | Load 0x1,0xd 0275 1c08 | | Execute_Immediate Run_Utility,0x8 0276 e004 | | Load 0x0,0x4 0277 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0278 0322 | " | Declare_Variable Record 0279 e5fd | | Load 0x2,-0x3 027a e004 | | Load 0x0,0x4 027b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 027c 00d9 | | Load_Top At_Offset_1 027d 017d | } | Execute Record,Structure_Write 027e 029f 1453 | S| Declare_Subprogram INIT_1450,For_Call 0280 BODY_0270: 0280 e5fc | | Load 0x2,-0x4 0281 0092 1716 | | Action Push_String_Extended,0x1716 ; "Rcf_Unit.Remote_Unit_Name" 0283 e002 | | Load 0x0,0x2 0284 180e | | Execute Package,Field_Execute,Field_Number 0xe 0285 8404 | | Call 0x2,0x4 0286 0831 | 1 | Execute_Immediate Raise,0x31 0287 TRAP_0270: 0287 e001 | | Load 0x0,0x1 0288 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0289 010f | | Execute Exception,Equal 028a 6806 |h | Jump_Zero 0x291 028b e001 | | Load 0x0,0x1 028c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028d e402 | | Load 0x2,0x2 028e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 028f 00db | | Load_Top At_Offset_3 0290 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0291 e5fc | | Load 0x2,-0x4 0292 0092 1716 | | Action Push_String_Extended,0x1716 ; "Rcf_Unit.Remote_Unit_Name" 0294 e002 | | Load 0x0,0x2 0295 180f | | Execute Package,Field_Execute,Field_Number 0xf 0296 0092 1716 | | Action Push_String_Extended,0x1716 ; "Rcf_Unit.Remote_Unit_Name" 0298 e002 | | Load 0x0,0x2 0299 1810 | | Execute Package,Field_Execute,Field_Number 0x10 029a e402 | | Load 0x2,0x2 029b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 029c 00db | | Load_Top At_Offset_3 029d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02b0 | | .CONST 0x02b0 ; Address of begin 02a1 02b7 | | .CONST 0x02b7 ; Address of exception handler 02a2 0004 | | .CONST 0x0004 ; Number of locals 02a3 INIT_02a0: 02a3 4800 |H | Short_Literal 0x0 02a4 e20d | | Load 0x1,0xd 02a5 1c08 | | Execute_Immediate Run_Utility,0x8 02a6 e004 | | Load 0x0,0x4 02a7 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02a8 0322 | " | Declare_Variable Record 02a9 e5fe | | Load 0x2,-0x2 02aa e004 | | Load 0x0,0x4 02ab 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02ac 00d9 | | Load_Top At_Offset_1 02ad 017d | } | Execute Record,Structure_Write 02ae 029f 147b | {| Declare_Subprogram INIT_1478,For_Call 02b0 BODY_02a0: 02b0 e5fc | | Load 0x2,-0x4 02b1 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name" 02b3 e002 | | Load 0x0,0x2 02b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b5 8404 | | Call 0x2,0x4 02b6 0831 | 1 | Execute_Immediate Raise,0x31 02b7 TRAP_02a0: 02b7 e001 | | Load 0x0,0x1 02b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02b9 010f | | Execute Exception,Equal 02ba 6806 |h | Jump_Zero 0x2c1 02bb e001 | | Load 0x0,0x1 02bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02bd e402 | | Load 0x2,0x2 02be 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02bf 00db | | Load_Top At_Offset_3 02c0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02c1 e5fc | | Load 0x2,-0x4 02c2 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name" 02c4 e002 | | Load 0x0,0x2 02c5 180f | | Execute Package,Field_Execute,Field_Number 0xf 02c6 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name" 02c8 e002 | | Load 0x0,0x2 02c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ca e402 | | Load 0x2,0x2 02cb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02cc 00db | | Load_Top At_Offset_3 02cd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02e8 | | .CONST 0x02e8 ; Address of begin 02d1 02ea | | .CONST 0x02ea ; Address of exception handler 02d2 0006 | | .CONST 0x0006 ; Number of locals 02d3 INIT_02d0: 02d3 e004 | | Load 0x0,0x4 02d4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02d5 0322 | " | Declare_Variable Record 02d6 e5fe | | Load 0x2,-0x2 02d7 e004 | | Load 0x0,0x4 02d8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02d9 00d9 | | Load_Top At_Offset_1 02da 017d | } | Execute Record,Structure_Write 02db e5fc | | Load 0x2,-0x4 02dc e5fe | | Load 0x2,-0x2 02dd e5ff | | Load 0x2,-0x1 02de e005 | | Load 0x0,0x5 02df 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02e0 00d9 | | Load_Top At_Offset_1 02e1 e004 | | Load 0x0,0x4 02e2 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 02e3 4800 |H | Short_Literal 0x0 02e4 e20d | | Load 0x1,0xd 02e5 1c08 | | Execute_Immediate Run_Utility,0x8 02e6 029f 148b | | Declare_Subprogram INIT_1488,For_Call 02e8 BODY_02d0: 02e8 8406 | | Call 0x2,0x6 02e9 0831 | 1 | Execute_Immediate Raise,0x31 02ea TRAP_02d0: 02ea e001 | | Load 0x0,0x1 02eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02ec 010f | | Execute Exception,Equal 02ed 6806 |h | Jump_Zero 0x2f4 02ee e001 | | Load 0x0,0x1 02ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02f0 00db | | Load_Top At_Offset_3 02f1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02f2 00da | | Load_Top At_Offset_2 02f3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02f4 e5fc | | Load 0x2,-0x4 02f5 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name" 02f7 e002 | | Load 0x0,0x2 02f8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02f9 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name" 02fb e002 | | Load 0x0,0x2 02fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02fd 00db | | Load_Top At_Offset_3 02fe 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02ff 00da | | Load_Top At_Offset_2 0300 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0316 | | .CONST 0x0316 ; Address of begin 0309 032f | / | .CONST 0x032f ; Address of exception handler 030a 0003 | | .CONST 0x0003 ; Number of locals 030b INIT_0308: 030b e001 | | Load 0x0,0x1 030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 030e e004 | | Load 0x0,0x4 030f 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0310 0322 | " | Declare_Variable Record 0311 e5fc | | Load 0x2,-0x4 0312 e004 | | Load 0x0,0x4 0313 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0314 00d9 | | Load_Top At_Offset_1 0315 017d | } | Execute Record,Structure_Write 0316 BODY_0308: 0316 e5fb | | Load 0x2,-0x5 0317 0092 1718 | | Action Push_String_Extended,0x1718 ; "Rcf_Unit.Set_Remote_Unit_Name" 0319 e002 | | Load 0x0,0x2 031a 180e | | Execute Package,Field_Execute,Field_Number 0xe 031b 4800 |H | Short_Literal 0x0 031c a5fa | | Store_Unchecked 0x2,-0x6 031d e001 | | Load 0x0,0x1 031e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031f e5fb | | Load 0x2,-0x5 0320 00da | | Load_Top At_Offset_2 0321 e5fd | | Load 0x2,-0x3 0322 e5fe | | Load 0x2,-0x2 0323 e006 | | Load 0x0,0x6 0324 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0325 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0326 005a | Z | Store_Top Discrete,At_Offset_2 0327 4800 |H | Short_Literal 0x0 0328 00da | | Load_Top At_Offset_2 0329 e001 | | Load 0x0,0x1 032a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 032b 7002 |p | Jump_Nonzero 0x32e 032c 00d9 | | Load_Top At_Offset_1 032d a5fa | | Store_Unchecked 0x2,-0x6 032e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 032f TRAP_0308: 032f e001 | | Load 0x0,0x1 0330 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0331 010f | | Execute Exception,Equal 0332 6804 |h | Jump_Zero 0x337 0333 e001 | | Load 0x0,0x1 0334 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0335 a5fa | | Store_Unchecked 0x2,-0x6 0336 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0337 e5fb | | Load 0x2,-0x5 0338 0092 1718 | | Action Push_String_Extended,0x1718 ; "Rcf_Unit.Set_Remote_Unit_Name" 033a e002 | | Load 0x0,0x2 033b 180f | | Execute Package,Field_Execute,Field_Number 0xf 033c 0092 1718 | | Action Push_String_Extended,0x1718 ; "Rcf_Unit.Set_Remote_Unit_Name" 033e e002 | | Load 0x0,0x2 033f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0340 a5fa | | Store_Unchecked 0x2,-0x6 0341 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0358 | X | .CONST 0x0358 ; Address of begin 0349 037d | } | .CONST 0x037d ; Address of exception handler 034a 0003 | | .CONST 0x0003 ; Number of locals 034b INIT_0348: 034b e004 | | Load 0x0,0x4 034c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 034d 0322 | " | Declare_Variable Record 034e e5fd | | Load 0x2,-0x3 034f e004 | | Load 0x0,0x4 0350 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0351 00d9 | | Load_Top At_Offset_1 0352 017d | } | Execute Record,Structure_Write 0353 e007 | | Load 0x0,0x7 0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0355 02c7 | | Declare_Variable Any 0356 00d8 | | Load_Top At_Offset_0 0357 1c00 | | Execute_Immediate Run_Utility,0x0 0358 BODY_0348: 0358 4800 |H | Short_Literal 0x0 0359 a5fa | | Store_Unchecked 0x2,-0x6 035a e006 | | Load 0x0,0x6 035b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 035d c5fb | | Store 0x2,-0x5 035e e5fc | | Load 0x2,-0x4 035f 0092 1719 | | Action Push_String_Extended,0x1719 ; "Rcf_Unit.Local_Update_Time" 0361 e002 | | Load 0x0,0x2 0362 180e | | Execute Package,Field_Execute,Field_Number 0xe 0363 e001 | | Load 0x0,0x1 0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0365 00d9 | | Load_Top At_Offset_1 0366 0120 | | Execute Any,Is_Value 0367 6803 |h | Jump_Zero 0x36b 0368 e007 | | Load 0x0,0x7 0369 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036a 7801 |x | Jump 0x36c 036b 00d9 | | Load_Top At_Offset_1 036c e5fb | | Load 0x2,-0x5 036d 0120 | | Execute Any,Is_Value 036e 6803 |h | Jump_Zero 0x372 036f e007 | | Load 0x0,0x7 0370 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0371 7801 |x | Jump 0x373 0372 e5fb | | Load 0x2,-0x5 0373 e5fc | | Load 0x2,-0x4 0374 e402 | | Load 0x2,0x2 0375 e5fe | | Load 0x2,-0x2 0376 e006 | | Load 0x0,0x6 0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0378 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0379 c5fb | | Store 0x2,-0x5 037a c403 | | Store 0x2,0x3 037b c5fa | | Store 0x2,-0x6 037c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 037d TRAP_0348: 037d e001 | | Load 0x0,0x1 037e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 037f 010f | | Execute Exception,Equal 0380 6804 |h | Jump_Zero 0x385 0381 e001 | | Load 0x0,0x1 0382 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0383 a5fa | | Store_Unchecked 0x2,-0x6 0384 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0385 e5fc | | Load 0x2,-0x4 0386 0092 1719 | | Action Push_String_Extended,0x1719 ; "Rcf_Unit.Local_Update_Time" 0388 e002 | | Load 0x0,0x2 0389 180f | | Execute Package,Field_Execute,Field_Number 0xf 038a 0092 1719 | | Action Push_String_Extended,0x1719 ; "Rcf_Unit.Local_Update_Time" 038c e002 | | Load 0x0,0x2 038d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 038e a5fa | | Store_Unchecked 0x2,-0x6 038f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 039e | | .CONST 0x039e ; Address of begin 0391 03c2 | | .CONST 0x03c2 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 e001 | | Load 0x0,0x1 0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0395 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0396 e004 | | Load 0x0,0x4 0397 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0398 0322 | " | Declare_Variable Record 0399 e5fc | | Load 0x2,-0x4 039a e004 | | Load 0x0,0x4 039b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 039c 00d9 | | Load_Top At_Offset_1 039d 017d | } | Execute Record,Structure_Write 039e BODY_0390: 039e e5fb | | Load 0x2,-0x5 039f 0092 171a | | Action Push_String_Extended,0x171a ; "Rcf_Unit.Set_Local_Update_Time: Time = " 03a1 4800 |H | Short_Literal 0x0 03a2 4800 |H | Short_Literal 0x0 03a3 4800 |H | Short_Literal 0x0 03a4 e5fd | | Load 0x2,-0x3 03a5 e008 | | Load 0x0,0x8 03a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03a7 e008 | | Load 0x0,0x8 03a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03a9 01cc | | Execute Vector,Catenate 03aa e002 | | Load 0x0,0x2 03ab 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ac 4800 |H | Short_Literal 0x0 03ad a5fa | | Store_Unchecked 0x2,-0x6 03ae e001 | | Load 0x0,0x1 03af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b0 e5fb | | Load 0x2,-0x5 03b1 00da | | Load_Top At_Offset_2 03b2 e5fe | | Load 0x2,-0x2 03b3 828d | | Call 0x1,0x8d 03b4 e5fd | | Load 0x2,-0x3 03b5 e5fe | | Load 0x2,-0x2 03b6 e006 | | Load 0x0,0x6 03b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03b9 005a | Z | Store_Top Discrete,At_Offset_2 03ba 4800 |H | Short_Literal 0x0 03bb 00da | | Load_Top At_Offset_2 03bc e001 | | Load 0x0,0x1 03bd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 03be 7002 |p | Jump_Nonzero 0x3c1 03bf 00d9 | | Load_Top At_Offset_1 03c0 a5fa | | Store_Unchecked 0x2,-0x6 03c1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03c2 TRAP_0390: 03c2 e001 | | Load 0x0,0x1 03c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03c4 010f | | Execute Exception,Equal 03c5 6804 |h | Jump_Zero 0x3ca 03c6 e001 | | Load 0x0,0x1 03c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03c8 a5fa | | Store_Unchecked 0x2,-0x6 03c9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03ca e5fb | | Load 0x2,-0x5 03cb 0092 171b | | Action Push_String_Extended,0x171b ; "Rcf_Unit.Set_Local_Update_Time" 03cd e002 | | Load 0x0,0x2 03ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 03cf 0092 171b | | Action Push_String_Extended,0x171b ; "Rcf_Unit.Set_Local_Update_Time" 03d1 e002 | | Load 0x0,0x2 03d2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d3 a5fa | | Store_Unchecked 0x2,-0x6 03d4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03d5 0000 0000 | | .XXX[0x3] 03d7 0000 | | 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03e2 | | .CONST 0x03e2 ; Address of begin 03d9 03f2 | | .CONST 0x03f2 ; Address of exception handler 03da 0003 | | .CONST 0x0003 ; Number of locals 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc e009 | | Load 0x0,0x9 03dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03de e26f | o | Load 0x1,0x6f 03df 0322 | " | Declare_Variable Record 03e0 00d8 | | Load_Top At_Offset_0 03e1 1c00 | | Execute_Immediate Run_Utility,0x0 03e2 BODY_03d8: 03e2 4800 |H | Short_Literal 0x0 03e3 a5fc | | Store_Unchecked 0x2,-0x4 03e4 00d8 | | Load_Top At_Offset_0 03e5 e5fe | | Load 0x2,-0x2 03e6 00db | | Load_Top At_Offset_3 03e7 82a8 | | Call 0x1,0xa8 03e8 00d1 | | Pop_Control Pop_Count_1 03e9 4801 |H | Short_Literal 0x1 03ea 00d9 | | Load_Top At_Offset_1 03eb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03ec 00da | | Load_Top At_Offset_2 03ed 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 03ee 01cf | | Execute Vector,Slice_Read 03ef 82a0 | | Call 0x1,0xa0 03f0 c5fd | | Store 0x2,-0x3 03f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03f2 TRAP_03d8: 03f2 0007 | | Action Break_Optional 03f3 6004 |` | Indirect_Literal Discrete,0x3f8,{0x00000000, 0x0000813b} 03f4 a5fc | | Store_Unchecked 0x2,-0x4 03f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03f6 0000 0000 | | .XXX[0x2] 03f8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 03fc 0000 0000 | | .BLANK 0000[0x4] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 040c | | .CONST 0x040c ; Address of begin 0401 0438 | 8 | .CONST 0x0438 ; Address of exception handler 0402 0004 | | .CONST 0x0004 ; Number of locals 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 e009 | | Load 0x0,0x9 0405 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0406 e26f | o | Load 0x1,0x6f 0407 0322 | " | Declare_Variable Record 0408 00d8 | | Load_Top At_Offset_0 0409 1c00 | | Execute_Immediate Run_Utility,0x0 040a e5fe | | Load 0x2,-0x2 040b 829f | | Call 0x1,0x9f 040c BODY_0400: 040c 4800 |H | Short_Literal 0x0 040d a5fc | | Store_Unchecked 0x2,-0x4 040e 00d9 | | Load_Top At_Offset_1 040f e5fd | | Load 0x2,-0x3 0410 e402 | | Load 0x2,0x2 0411 82a8 | | Call 0x1,0xa8 0412 00d1 | | Pop_Control Pop_Count_1 0413 00d8 | | Load_Top At_Offset_0 0414 4801 |H | Short_Literal 0x1 0415 00da | | Load_Top At_Offset_2 0416 01db | | Execute Vector,Length 0417 00d8 | | Load_Top At_Offset_0 0418 00e2 | | Load_Encached Integer_Cache 0419 0260 | ` | Execute Discrete,In_Type 041a 7001 |p | Jump_Nonzero 0x41c 041b 0801 | | Execute_Immediate Raise,0x1 041c e403 | | Load 0x2,0x3 041d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 041e 01ce | | Execute Vector,Slice_Write 041f 00d8 | | Load_Top At_Offset_0 0420 01db | | Execute Vector,Length 0421 00da | | Load_Top At_Offset_2 0422 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0423 e001 | | Load 0x0,0x1 0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0425 e5fd | | Load 0x2,-0x3 0426 e5ff | | Load 0x2,-0x1 0427 e009 | | Load 0x0,0x9 0428 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0429 c5fc | | Store 0x2,-0x4 042a e5fd | | Load 0x2,-0x3 042b 00da | | Load_Top At_Offset_2 042c e402 | | Load 0x2,0x2 042d 82aa | | Call 0x1,0xaa 042e e001 | | Load 0x0,0x1 042f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0430 e5fd | | Load 0x2,-0x3 0431 e5ff | | Load 0x2,-0x1 0432 e009 | | Load 0x0,0x9 0433 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0434 c5fc | | Store 0x2,-0x4 0435 4800 |H | Short_Literal 0x0 0436 a5fc | | Store_Unchecked 0x2,-0x4 0437 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0438 TRAP_0400: 0438 e00a | | Load 0x0,0xa 0439 010f | | Execute Exception,Equal 043a 6817 |h | Jump_Zero 0x452 043b e5fd | | Load 0x2,-0x3 043c 4801 |H | Short_Literal 0x1 043d 4801 |H | Short_Literal 0x1 043e e00b | | Load 0x0,0xb 043f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0440 035b | [ | Declare_Type Array,Constrained 0441 0337 | 7 | Declare_Variable Array 0442 0092 171c | | Action Push_String_Extended,0x171c ; " 128" 0444 e00b | | Load 0x0,0xb 0445 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0446 e00b | | Load 0x0,0xb 0447 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0448 0119 | | Execute Any,Check_In_Formal_Type 0449 4801 |H | Short_Literal 0x1 044a 00da | | Load_Top At_Offset_2 044b 01d6 | | Execute Vector,Field_Write 044c 600b |` | Indirect_Literal Discrete,0x458,{0x00000000, 0x0000819e} 044d e001 | | Load 0x0,0x1 044e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 044f 6008 |` | Indirect_Literal Discrete,0x458,{0x00000000, 0x0000819e} 0450 a5fc | | Store_Unchecked 0x2,-0x4 0451 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0452 67a5 |g | Indirect_Literal Discrete,0x3f8,{0x00000000, 0x0000813b} 0453 a5fc | | Store_Unchecked 0x2,-0x4 0454 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0455 0000 0000 | | .XXX[0x3] 0457 0000 | | 0458 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 045c 0000 0000 | | .BLANK 0000[0x4] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046b | k | .CONST 0x046b ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 e00c | | Load 0x0,0xc 0464 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0465 e00d | | Load 0x0,0xd 0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0467 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0468 02c7 | | Declare_Variable Any 0469 00d8 | | Load_Top At_Offset_0 046a 1c00 | | Execute_Immediate Run_Utility,0x0 046b BODY_0460: 046b 4801 |H | Short_Literal 0x1 046c e00d | | Load 0x0,0xd 046d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 046e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 046f e5ff | | Load 0x2,-0x1 0470 e00c | | Load 0x0,0xc 0471 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0472 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0473 e00d | | Load 0x0,0xd 0474 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0475 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0476 c403 | | Store 0x2,0x3 0477 00d8 | | Load_Top At_Offset_0 0478 e00d | | Load 0x0,0xd 0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 047b 6805 |h | Jump_Zero 0x481 047c 00d8 | | Load_Top At_Offset_0 047d e00d | | Load 0x0,0xd 047e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 047f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0480 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0481 e007 | | Load 0x0,0x7 0482 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0483 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 049d | | .CONST 0x049d ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0005 | | .CONST 0x0005 ; Number of locals 048b INIT_0488: 048b e007 | | Load 0x0,0x7 048c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048d 02c7 | | Declare_Variable Any 048e 00d8 | | Load_Top At_Offset_0 048f 1c00 | | Execute_Immediate Run_Utility,0x0 0490 e007 | | Load 0x0,0x7 0491 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0492 02c7 | | Declare_Variable Any 0493 00d8 | | Load_Top At_Offset_0 0494 1c00 | | Execute_Immediate Run_Utility,0x0 0495 e001 | | Load 0x0,0x1 0496 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0497 e00e | | Load 0x0,0xe 0498 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0499 02c7 | | Declare_Variable Any 049a e00e | | Load 0x0,0xe 049b 180e | | Execute Package,Field_Execute,Field_Number 0xe 049c a405 | | Store_Unchecked 0x2,0x5 049d BODY_0488: 049d e001 | | Load 0x0,0x1 049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049f 00db | | Load_Top At_Offset_3 04a0 0120 | | Execute Any,Is_Value 04a1 6803 |h | Jump_Zero 0x4a5 04a2 e007 | | Load 0x0,0x7 04a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a4 7801 |x | Jump 0x4a6 04a5 00db | | Load_Top At_Offset_3 04a6 e402 | | Load 0x2,0x2 04a7 0120 | | Execute Any,Is_Value 04a8 6803 |h | Jump_Zero 0x4ac 04a9 e007 | | Load 0x0,0x7 04aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ab 7801 |x | Jump 0x4ad 04ac e402 | | Load 0x2,0x2 04ad 00db | | Load_Top At_Offset_3 04ae e5fe | | Load 0x2,-0x2 04af e004 | | Load 0x0,0x4 04b0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04b1 e5ff | | Load 0x2,-0x1 04b2 e006 | | Load 0x0,0x6 04b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04b5 c402 | | Store 0x2,0x2 04b6 c403 | | Store 0x2,0x3 04b7 005a | Z | Store_Top Discrete,At_Offset_2 04b8 00da | | Load_Top At_Offset_2 04b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ba 0000 0000 | | .BLANK 0000[0x6] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04ef | | .CONST 0x04ef ; Address of begin 04c1 05f0 | | .CONST 0x05f0 ; Address of exception handler 04c2 0009 | | .CONST 0x0009 ; Number of locals 04c3 INIT_04c0: 04c3 e004 | | Load 0x0,0x4 04c4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 04c5 0322 | " | Declare_Variable Record 04c6 e5fd | | Load 0x2,-0x3 04c7 e004 | | Load 0x0,0x4 04c8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04c9 00d9 | | Load_Top At_Offset_1 04ca 017d | } | Execute Record,Structure_Write 04cb e5fe | | Load 0x2,-0x2 04cc 82ae | | Call 0x1,0xae 04cd 0092 171d | | Action Push_String_Extended,0x171d ; "Rci_Temp_" 04cf 4800 |H | Short_Literal 0x0 04d0 4803 |H | Short_Literal 0x3 04d1 4804 |H | Short_Literal 0x4 04d2 e008 | | Load 0x0,0x8 04d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04d4 e008 | | Load 0x0,0x8 04d5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04d6 01cc | | Execute Vector,Catenate 04d7 e5fe | | Load 0x2,-0x2 04d8 82ad | | Call 0x1,0xad 04d9 e5fa | | Load 0x2,-0x6 04da e5fc | | Load 0x2,-0x4 04db e5fd | | Load 0x2,-0x3 04dc e5ff | | Load 0x2,-0x1 04dd 8229 | ) | Call 0x1,0x29 04de e001 | | Load 0x0,0x1 04df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04e1 e00c | | Load 0x0,0xc 04e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04e3 02c7 | | Declare_Variable Any 04e4 e00c | | Load 0x0,0xc 04e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e6 a407 | | Store_Unchecked 0x2,0x7 04e7 e00f | | Load 0x0,0xf 04e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ea e007 | | Load 0x0,0x7 04eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ec 02c7 | | Declare_Variable Any 04ed 00d8 | | Load_Top At_Offset_0 04ee 1c00 | | Execute_Immediate Run_Utility,0x0 04ef BODY_04c0: 04ef e00c | | Load 0x0,0xc 04f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04f1 c5f9 | | Store 0x2,-0x7 04f2 4800 |H | Short_Literal 0x0 04f3 a5f8 | | Store_Unchecked 0x2,-0x8 04f4 e5fa | | Load 0x2,-0x6 04f5 e5ff | | Load 0x2,-0x1 04f6 e009 | | Load 0x0,0x9 04f7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 04f8 6815 |h | Jump_Zero 0x50e 04f9 e5fa | | Load 0x2,-0x6 04fa 4801 |H | Short_Literal 0x1 04fb 4801 |H | Short_Literal 0x1 04fc e00b | | Load 0x0,0xb 04fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04fe 035b | [ | Declare_Type Array,Constrained 04ff 0337 | 7 | Declare_Variable Array 0500 0092 171e | | Action Push_String_Extended,0x171e ; "Upload_Ada_Unit" 0502 e00b | | Load 0x0,0xb 0503 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0504 e00b | | Load 0x0,0xb 0505 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0506 0119 | | Execute Any,Check_In_Formal_Type 0507 4801 |H | Short_Literal 0x1 0508 00da | | Load_Top At_Offset_2 0509 01d6 | | Execute Vector,Field_Write 050a 6101 |a | Indirect_Literal Discrete,0x60c,{0x00000000, 0x0000818f} 050b e001 | | Load 0x0,0x1 050c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 050d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 050e e001 | | Load 0x0,0x1 050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0510 e5fa | | Load 0x2,-0x6 0511 e5ff | | Load 0x2,-0x1 0512 e009 | | Load 0x0,0x9 0513 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0514 4800 |H | Short_Literal 0x0 0515 e5fb | | Load 0x2,-0x5 0516 e405 | | Load 0x2,0x5 0517 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0518 e404 | | Load 0x2,0x4 0519 e010 | | Load 0x0,0x10 051a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 051b c406 | | Store 0x2,0x6 051c 4800 |H | Short_Literal 0x0 051d e406 | | Load 0x2,0x6 051e e001 | | Load 0x0,0x1 051f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0520 7007 |p | Jump_Nonzero 0x528 0521 e5fa | | Load 0x2,-0x6 0522 e406 | | Load 0x2,0x6 0523 e001 | | Load 0x0,0x1 0524 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0525 00db | | Load_Top At_Offset_3 0526 a5f8 | | Store_Unchecked 0x2,-0x8 0527 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0528 e5fa | | Load 0x2,-0x6 0529 60de |` | Indirect_Literal Discrete,0x608,{0x00000000, 0x00008191} 052a e001 | | Load 0x0,0x1 052b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 052c e00f | | Load 0x0,0xf 052d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052e 00db | | Load_Top At_Offset_3 052f 0120 | | Execute Any,Is_Value 0530 6803 |h | Jump_Zero 0x534 0531 e00c | | Load 0x0,0xc 0532 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0533 7801 |x | Jump 0x535 0534 00db | | Load_Top At_Offset_3 0535 e00e | | Load 0x0,0xe 0536 180e | | Execute Package,Field_Execute,Field_Number 0xe 0537 e00e | | Load 0x0,0xe 0538 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0539 e00e | | Load 0x0,0xe 053a 180e | | Execute Package,Field_Execute,Field_Number 0xe 053b e00e | | Load 0x0,0xe 053c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 053d e00e | | Load 0x0,0xe 053e 180e | | Execute Package,Field_Execute,Field_Number 0xe 053f e00e | | Load 0x0,0xe 0540 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0541 e00e | | Load 0x0,0xe 0542 180e | | Execute Package,Field_Execute,Field_Number 0xe 0543 e00e | | Load 0x0,0xe 0544 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0545 e00e | | Load 0x0,0xe 0546 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0547 0337 | 7 | Declare_Variable Array 0548 4801 |H | Short_Literal 0x1 0549 4805 |H | Short_Literal 0x5 054a 00da | | Load_Top At_Offset_2 054b 01d6 | | Execute Vector,Field_Write 054c 4801 |H | Short_Literal 0x1 054d 4807 |H | Short_Literal 0x7 054e 00da | | Load_Top At_Offset_2 054f 01d6 | | Execute Vector,Field_Write 0550 4801 |H | Short_Literal 0x1 0551 4808 |H | Short_Literal 0x8 0552 00da | | Load_Top At_Offset_2 0553 01d6 | | Execute Vector,Field_Write 0554 4804 |H | Short_Literal 0x4 0555 4800 |H | Short_Literal 0x0 0556 4800 |H | Short_Literal 0x0 0557 00d9 | | Load_Top At_Offset_1 0558 e410 | | Load 0x2,0x10 0559 01d6 | | Execute Vector,Field_Write 055a 3ffb |? | Loop_Increasing 0x556 055b 4800 |H | Short_Literal 0x0 055c 4806 |H | Short_Literal 0x6 055d 00da | | Load_Top At_Offset_2 055e 01d6 | | Execute Vector,Field_Write 055f 480b |H | Short_Literal 0xb 0560 4809 |H | Short_Literal 0x9 0561 4800 |H | Short_Literal 0x0 0562 00d9 | | Load_Top At_Offset_1 0563 e410 | | Load 0x2,0x10 0564 01d6 | | Execute Vector,Field_Write 0565 3ffb |? | Loop_Increasing 0x561 0566 e00e | | Load 0x0,0xe 0567 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0568 01c3 | | Execute Vector,Check_In_Type 0569 4802 |H | Short_Literal 0x2 056a e00e | | Load 0x0,0xe 056b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 056c e011 | | Load 0x0,0x11 056d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 056e 00ea | | Load_Encached Null_String_Cache 056f 4800 |H | Short_Literal 0x0 0570 4801 |H | Short_Literal 0x1 0571 4804 |H | Short_Literal 0x4 0572 e403 | | Load 0x2,0x3 0573 e404 | | Load 0x2,0x4 0574 e00f | | Load 0x0,0xf 0575 180e | | Execute Package,Field_Execute,Field_Number 0xe 0576 c407 | | Store 0x2,0x7 0577 005a | Z | Store_Top Discrete,At_Offset_2 0578 00d9 | | Load_Top At_Offset_1 0579 6827 |h' | Jump_Zero 0x5a1 057a e5fa | | Load 0x2,-0x6 057b 4801 |H | Short_Literal 0x1 057c 4802 |H | Short_Literal 0x2 057d e00b | | Load 0x0,0xb 057e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 057f 035b | [ | Declare_Type Array,Constrained 0580 0337 | 7 | Declare_Variable Array 0581 e404 | | Load 0x2,0x4 0582 e00b | | Load 0x0,0xb 0583 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0584 e00b | | Load 0x0,0xb 0585 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0586 0119 | | Execute Any,Check_In_Formal_Type 0587 4801 |H | Short_Literal 0x1 0588 00da | | Load_Top At_Offset_2 0589 01d6 | | Execute Vector,Field_Write 058a 00db | | Load_Top At_Offset_3 058b e00f | | Load 0x0,0xf 058c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058d 011c | | Execute Any,Convert_Unchecked 058e 1c01 | | Execute_Immediate Run_Utility,0x1 058f e00b | | Load 0x0,0xb 0590 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0591 e00b | | Load 0x0,0xb 0592 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0593 0119 | | Execute Any,Check_In_Formal_Type 0594 4802 |H | Short_Literal 0x2 0595 00da | | Load_Top At_Offset_2 0596 01d6 | | Execute Vector,Field_Write 0597 606c |`l | Indirect_Literal Discrete,0x604,{0x00000000, 0x0000815d} 0598 e001 | | Load 0x0,0x1 0599 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 059a e00b | | Load 0x0,0xb 059b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 059c 6067 |`g | Indirect_Literal Discrete,0x604,{0x00000000, 0x0000815d} 059d e001 | | Load 0x0,0x1 059e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 059f a5f8 | | Store_Unchecked 0x2,-0x8 05a0 4507 |E | Exit_Suprogram New_Top_Offset 0x7 05a1 00da | | Load_Top At_Offset_2 05a2 c5f9 | | Store 0x2,-0x7 05a3 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>" 05a5 0092 1720 | | Action Push_String_Extended,0x1720 ; "<DIRECTORIES>" 05a7 e404 | | Load 0x2,0x4 05a8 e012 | | Load 0x0,0x12 05a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05aa e5fa | | Load 0x2,-0x6 05ab 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit" 05ad e002 | | Load 0x0,0x2 05ae 180e | | Execute Package,Field_Execute,Field_Number 0xe 05af 00d8 | | Load_Top At_Offset_0 05b0 0120 | | Execute Any,Is_Value 05b1 6803 |h | Jump_Zero 0x5b5 05b2 e007 | | Load 0x0,0x7 05b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b4 7801 |x | Jump 0x5b6 05b5 00d8 | | Load_Top At_Offset_0 05b6 e001 | | Load 0x0,0x1 05b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b8 e5fa | | Load 0x2,-0x6 05b9 e5ff | | Load 0x2,-0x1 05ba e009 | | Load 0x0,0x9 05bb 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 05bc e5fb | | Load 0x2,-0x5 05bd e405 | | Load 0x2,0x5 05be 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05bf e010 | | Load 0x0,0x10 05c0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05c1 c406 | | Store 0x2,0x6 05c2 c409 | | Store 0x2,0x9 05c3 4800 |H | Short_Literal 0x0 05c4 e406 | | Load 0x2,0x6 05c5 e001 | | Load 0x0,0x1 05c6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05c7 7005 |p | Jump_Nonzero 0x5cd 05c8 e5fa | | Load 0x2,-0x6 05c9 e406 | | Load 0x2,0x6 05ca e001 | | Load 0x0,0x1 05cb 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 05cc 7820 |x | Jump 0x5ed 05cd e5fa | | Load 0x2,-0x6 05ce 0092 1722 | "| Action Push_String_Extended,0x1722 ; "Setting local download time (from remote time) to " 05d0 4800 |H | Short_Literal 0x0 05d1 4800 |H | Short_Literal 0x0 05d2 4800 |H | Short_Literal 0x0 05d3 e409 | | Load 0x2,0x9 05d4 e008 | | Load 0x0,0x8 05d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d6 e008 | | Load 0x0,0x8 05d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05d8 01cc | | Execute Vector,Catenate 05d9 e002 | | Load 0x0,0x2 05da 180e | | Execute Package,Field_Execute,Field_Number 0xe 05db e001 | | Load 0x0,0x1 05dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05dd e5fa | | Load 0x2,-0x6 05de e402 | | Load 0x2,0x2 05df e407 | | Load 0x2,0x7 05e0 828d | | Call 0x1,0x8d 05e1 e409 | | Load 0x2,0x9 05e2 e407 | | Load 0x2,0x7 05e3 e006 | | Load 0x0,0x6 05e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05e6 c406 | | Store 0x2,0x6 05e7 4800 |H | Short_Literal 0x0 05e8 e406 | | Load 0x2,0x6 05e9 e001 | | Load 0x0,0x1 05ea 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05eb 6801 |h | Jump_Zero 0x5ed 05ec 4507 |E | Exit_Suprogram New_Top_Offset 0x7 05ed 00db | | Load_Top At_Offset_3 05ee a5f8 | | Store_Unchecked 0x2,-0x8 05ef 4507 |E | Exit_Suprogram New_Top_Offset 0x7 05f0 TRAP_04c0: 05f0 e001 | | Load 0x0,0x1 05f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05f2 010f | | Execute Exception,Equal 05f3 6804 |h | Jump_Zero 0x5f8 05f4 e001 | | Load 0x0,0x1 05f5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05f6 a5f8 | | Store_Unchecked 0x2,-0x8 05f7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 05f8 e5fa | | Load 0x2,-0x6 05f9 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit" 05fb e002 | | Load 0x0,0x2 05fc 180f | | Execute Package,Field_Execute,Field_Number 0xf 05fd 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit" 05ff e002 | | Load 0x0,0x2 0600 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0601 a5f8 | | Store_Unchecked 0x2,-0x8 0602 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0603 0000 | | .XXX[0x1] 0604 0000 0000 | | .LITERAL {0x00000000, 0x0000815d} 0608 0000 0000 | | .LITERAL {0x00000000, 0x00008191} 060c 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0618 | | .CONST 0x0618 ; Address of begin 0611 0675 | u | .CONST 0x0675 ; Address of exception handler 0612 0003 | | .CONST 0x0003 ; Number of locals 0613 INIT_0610: 0613 e001 | | Load 0x0,0x1 0614 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0615 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0616 e010 | | Load 0x0,0x10 0617 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0618 BODY_0610: 0618 e00c | | Load 0x0,0xc 0619 1810 | | Execute Package,Field_Execute,Field_Number 0x10 061a c5fa | | Store 0x2,-0x6 061b 4800 |H | Short_Literal 0x0 061c a5f9 | | Store_Unchecked 0x2,-0x7 061d e5fb | | Load 0x2,-0x5 061e e5ff | | Load 0x2,-0x1 061f e009 | | Load 0x0,0x9 0620 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0621 6817 |h | Jump_Zero 0x639 0622 e5fb | | Load 0x2,-0x5 0623 4801 |H | Short_Literal 0x1 0624 4801 |H | Short_Literal 0x1 0625 e00b | | Load 0x0,0xb 0626 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0627 035b | [ | Declare_Type Array,Constrained 0628 0337 | 7 | Declare_Variable Array 0629 0092 171e | | Action Push_String_Extended,0x171e ; "Upload_Ada_Unit" 062b e00b | | Load 0x0,0xb 062c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 062d e00b | | Load 0x0,0xb 062e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 062f 0119 | | Execute Any,Check_In_Formal_Type 0630 4801 |H | Short_Literal 0x1 0631 00da | | Load_Top At_Offset_2 0632 01d6 | | Execute Vector,Field_Write 0633 67d8 |g | Indirect_Literal Discrete,0x60c,{0x00000000, 0x0000818f} 0634 e001 | | Load 0x0,0x1 0635 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0636 4800 |H | Short_Literal 0x0 0637 a5f9 | | Store_Unchecked 0x2,-0x7 0638 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0639 e001 | | Load 0x0,0x1 063a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063b e010 | | Load 0x0,0x10 063c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 063d e5fb | | Load 0x2,-0x5 063e e5ff | | Load 0x2,-0x1 063f e009 | | Load 0x0,0x9 0640 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0641 e013 | | Load 0x0,0x13 0642 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0643 e013 | | Load 0x0,0x13 0644 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0645 e013 | | Load 0x0,0x13 0646 180d | | Execute Package,Field_Execute,Field_Number 0xd 0647 e5fd | | Load 0x2,-0x3 0648 e004 | | Load 0x0,0x4 0649 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 064a e010 | | Load 0x0,0x10 064b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 064c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 064d 005a | Z | Store_Top Discrete,At_Offset_2 064e 4800 |H | Short_Literal 0x0 064f 00da | | Load_Top At_Offset_2 0650 e001 | | Load 0x0,0x1 0651 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0652 7007 |p | Jump_Nonzero 0x65a 0653 e5fb | | Load 0x2,-0x5 0654 00da | | Load_Top At_Offset_2 0655 e001 | | Load 0x0,0x1 0656 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0657 00d9 | | Load_Top At_Offset_1 0658 a5f9 | | Store_Unchecked 0x2,-0x7 0659 4506 |E | Exit_Suprogram New_Top_Offset 0x6 065a e001 | | Load 0x0,0x1 065b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 065c e5fa | | Load 0x2,-0x6 065d 0120 | | Execute Any,Is_Value 065e 6803 |h | Jump_Zero 0x662 065f e00c | | Load 0x0,0xc 0660 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0661 7801 |x | Jump 0x663 0662 e5fa | | Load 0x2,-0x6 0663 e5fb | | Load 0x2,-0x5 0664 00db | | Load_Top At_Offset_3 0665 e5fc | | Load 0x2,-0x4 0666 e5fd | | Load 0x2,-0x3 0667 e5fe | | Load 0x2,-0x2 0668 e5ff | | Load 0x2,-0x1 0669 8288 | | Call 0x1,0x88 066a c5fa | | Store 0x2,-0x6 066b 005a | Z | Store_Top Discrete,At_Offset_2 066c 4800 |H | Short_Literal 0x0 066d 00da | | Load_Top At_Offset_2 066e e001 | | Load 0x0,0x1 066f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0670 7003 |p | Jump_Nonzero 0x674 0671 00d9 | | Load_Top At_Offset_1 0672 a5f9 | | Store_Unchecked 0x2,-0x7 0673 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0674 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0675 TRAP_0610: 0675 e001 | | Load 0x0,0x1 0676 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0677 010f | | Execute Exception,Equal 0678 6804 |h | Jump_Zero 0x67d 0679 e001 | | Load 0x0,0x1 067a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 067b a5f9 | | Store_Unchecked 0x2,-0x7 067c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 067d e5fb | | Load 0x2,-0x5 067e 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit" 0680 e002 | | Load 0x0,0x2 0681 180f | | Execute Package,Field_Execute,Field_Number 0xf 0682 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit" 0684 e002 | | Load 0x0,0x2 0685 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0686 a5f9 | | Store_Unchecked 0x2,-0x7 0687 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 069b | | .CONST 0x069b ; Address of begin 0689 0703 | | .CONST 0x0703 ; Address of exception handler 068a 0005 | | .CONST 0x0005 ; Number of locals 068b INIT_0688: 068b e5fb | | Load 0x2,-0x5 068c e5fe | | Load 0x2,-0x2 068d 82ad | | Call 0x1,0xad 068e e5f8 | | Load 0x2,-0x8 068f e5fc | | Load 0x2,-0x4 0690 e5fd | | Load 0x2,-0x3 0691 e5ff | | Load 0x2,-0x1 0692 8229 | ) | Call 0x1,0x29 0693 e001 | | Load 0x0,0x1 0694 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0695 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0696 e00c | | Load 0x0,0xc 0697 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0698 02c7 | | Declare_Variable Any 0699 00d8 | | Load_Top At_Offset_0 069a 1c00 | | Execute_Immediate Run_Utility,0x0 069b BODY_0688: 069b 4800 |H | Short_Literal 0x0 069c a5f7 | | Store_Unchecked 0x2,-0x9 069d e5f8 | | Load 0x2,-0x8 069e 4800 |H | Short_Literal 0x0 069f e402 | | Load 0x2,0x2 06a0 e009 | | Load 0x0,0x9 06a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 06a2 c405 | | Store 0x2,0x5 06a3 00d8 | | Load_Top At_Offset_0 06a4 e00c | | Load 0x0,0xc 06a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06a6 7028 |p( | Jump_Nonzero 0x6cf 06a7 e5f9 | | Load 0x2,-0x7 06a8 7026 |p& | Jump_Nonzero 0x6cf 06a9 e5f8 | | Load 0x2,-0x8 06aa 4801 |H | Short_Literal 0x1 06ab 4801 |H | Short_Literal 0x1 06ac e00b | | Load 0x0,0xb 06ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06ae 035b | [ | Declare_Type Array,Constrained 06af 0337 | 7 | Declare_Variable Array 06b0 0092 1723 | #| Action Push_String_Extended,0x1723 ; "Can't upload from remote unit \x22" 06b2 e5fc | | Load 0x2,-0x4 06b3 01cc | | Execute Vector,Catenate 06b4 0092 1724 | $| Action Push_String_Extended,0x1724 ; "\x22 into existing text file \x22" 06b6 01cc | | Execute Vector,Catenate 06b7 e5fb | | Load 0x2,-0x5 06b8 01cc | | Execute Vector,Catenate 06b9 0092 1725 | %| Action Push_String_Extended,0x1725 ; "\x22." 06bb 01cc | | Execute Vector,Catenate 06bc e00b | | Load 0x0,0xb 06bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06be e00b | | Load 0x0,0xb 06bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06c0 0119 | | Execute Any,Check_In_Formal_Type 06c1 4801 |H | Short_Literal 0x1 06c2 00da | | Load_Top At_Offset_2 06c3 01d6 | | Execute Vector,Field_Write 06c4 4807 |H | Short_Literal 0x7 06c5 6056 |`V | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00008128} 06c6 e001 | | Load 0x0,0x1 06c7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06c8 e00b | | Load 0x0,0xb 06c9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06ca 6051 |`Q | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00008128} 06cb e001 | | Load 0x0,0x1 06cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06cd a5f7 | | Store_Unchecked 0x2,-0x9 06ce 4509 |E | Exit_Suprogram New_Top_Offset 0x9 06cf e5f8 | | Load 0x2,-0x8 06d0 e5ff | | Load 0x2,-0x1 06d1 e009 | | Load 0x0,0x9 06d2 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 06d3 6815 |h | Jump_Zero 0x6e9 06d4 e5f8 | | Load 0x2,-0x8 06d5 4801 |H | Short_Literal 0x1 06d6 4801 |H | Short_Literal 0x1 06d7 e00b | | Load 0x0,0xb 06d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06d9 035b | [ | Declare_Type Array,Constrained 06da 0337 | 7 | Declare_Variable Array 06db 0092 1726 | &| Action Push_String_Extended,0x1726 ; "Upload_Text_File" 06dd e00b | | Load 0x0,0xb 06de 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06df e00b | | Load 0x0,0xb 06e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06e1 0119 | | Execute Any,Check_In_Formal_Type 06e2 4801 |H | Short_Literal 0x1 06e3 00da | | Load_Top At_Offset_2 06e4 01d6 | | Execute Vector,Field_Write 06e5 6032 |`2 | Indirect_Literal Discrete,0x718,{0x00000000, 0x0000818f} 06e6 e001 | | Load 0x0,0x1 06e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06e8 4509 |E | Exit_Suprogram New_Top_Offset 0x9 06e9 e001 | | Load 0x0,0x1 06ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06eb e5f8 | | Load 0x2,-0x8 06ec e5ff | | Load 0x2,-0x1 06ed e009 | | Load 0x0,0x9 06ee 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 06ef 4800 |H | Short_Literal 0x0 06f0 e5fa | | Load 0x2,-0x6 06f1 e403 | | Load 0x2,0x3 06f2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06f3 e402 | | Load 0x2,0x2 06f4 e010 | | Load 0x0,0x10 06f5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 06f6 005a | Z | Store_Top Discrete,At_Offset_2 06f7 4800 |H | Short_Literal 0x0 06f8 00da | | Load_Top At_Offset_2 06f9 e001 | | Load 0x0,0x1 06fa 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 06fb 7006 |p | Jump_Nonzero 0x702 06fc e5f8 | | Load 0x2,-0x8 06fd 00da | | Load_Top At_Offset_2 06fe e001 | | Load 0x0,0x1 06ff 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0700 00d9 | | Load_Top At_Offset_1 0701 a5f7 | | Store_Unchecked 0x2,-0x9 0702 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0703 TRAP_0688: 0703 e001 | | Load 0x0,0x1 0704 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0705 010f | | Execute Exception,Equal 0706 6804 |h | Jump_Zero 0x70b 0707 e001 | | Load 0x0,0x1 0708 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0709 a5f7 | | Store_Unchecked 0x2,-0x9 070a 4509 |E | Exit_Suprogram New_Top_Offset 0x9 070b e5f8 | | Load 0x2,-0x8 070c 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File" 070e e002 | | Load 0x0,0x2 070f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0710 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File" 0712 e002 | | Load 0x0,0x2 0713 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0714 a5f7 | | Store_Unchecked 0x2,-0x9 0715 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0716 0000 0000 | | .XXX[0x2] 0718 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 071c 0000 0000 | | .LITERAL {0x00000000, 0x00008128} 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0728 | ( | .CONST 0x0728 ; Address of begin 0721 077c | | | .CONST 0x077c ; Address of exception handler 0722 0003 | | .CONST 0x0003 ; Number of locals 0723 INIT_0720: 0723 e001 | | Load 0x0,0x1 0724 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0725 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0726 e010 | | Load 0x0,0x10 0727 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0728 BODY_0720: 0728 4800 |H | Short_Literal 0x0 0729 a5f8 | | Store_Unchecked 0x2,-0x8 072a e5f9 | | Load 0x2,-0x7 072b e5ff | | Load 0x2,-0x1 072c e009 | | Load 0x0,0x9 072d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 072e 6817 |h | Jump_Zero 0x746 072f e5f9 | | Load 0x2,-0x7 0730 4801 |H | Short_Literal 0x1 0731 4801 |H | Short_Literal 0x1 0732 e00b | | Load 0x0,0xb 0733 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0734 035b | [ | Declare_Type Array,Constrained 0735 0337 | 7 | Declare_Variable Array 0736 0092 1726 | &| Action Push_String_Extended,0x1726 ; "Upload_Text_File" 0738 e00b | | Load 0x0,0xb 0739 1810 | | Execute Package,Field_Execute,Field_Number 0x10 073a e00b | | Load 0x0,0xb 073b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 073c 0119 | | Execute Any,Check_In_Formal_Type 073d 4801 |H | Short_Literal 0x1 073e 00da | | Load_Top At_Offset_2 073f 01d6 | | Execute Vector,Field_Write 0740 67d7 |g | Indirect_Literal Discrete,0x718,{0x00000000, 0x0000818f} 0741 e001 | | Load 0x0,0x1 0742 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0743 4800 |H | Short_Literal 0x0 0744 a5f8 | | Store_Unchecked 0x2,-0x8 0745 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0746 e001 | | Load 0x0,0x1 0747 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0748 e010 | | Load 0x0,0x10 0749 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 074a e5f9 | | Load 0x2,-0x7 074b e5ff | | Load 0x2,-0x1 074c e009 | | Load 0x0,0x9 074d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 074e e013 | | Load 0x0,0x13 074f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0750 e013 | | Load 0x0,0x13 0751 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0752 e013 | | Load 0x0,0x13 0753 180d | | Execute Package,Field_Execute,Field_Number 0xd 0754 e5fd | | Load 0x2,-0x3 0755 e004 | | Load 0x0,0x4 0756 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0757 e010 | | Load 0x0,0x10 0758 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0759 0032 | 2 | Store_Top Heap_Access,At_Offset_2 075a 005a | Z | Store_Top Discrete,At_Offset_2 075b 4800 |H | Short_Literal 0x0 075c 00da | | Load_Top At_Offset_2 075d e001 | | Load 0x0,0x1 075e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 075f 7007 |p | Jump_Nonzero 0x767 0760 e5f9 | | Load 0x2,-0x7 0761 00da | | Load_Top At_Offset_2 0762 e001 | | Load 0x0,0x1 0763 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0764 00d9 | | Load_Top At_Offset_1 0765 a5f8 | | Store_Unchecked 0x2,-0x8 0766 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0767 e001 | | Load 0x0,0x1 0768 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0769 e5f9 | | Load 0x2,-0x7 076a e5fa | | Load 0x2,-0x6 076b 00db | | Load_Top At_Offset_3 076c e5fb | | Load 0x2,-0x5 076d e5fc | | Load 0x2,-0x4 076e e5fd | | Load 0x2,-0x3 076f e5fe | | Load 0x2,-0x2 0770 e5ff | | Load 0x2,-0x1 0771 828a | | Call 0x1,0x8a 0772 005a | Z | Store_Top Discrete,At_Offset_2 0773 4800 |H | Short_Literal 0x0 0774 00da | | Load_Top At_Offset_2 0775 e001 | | Load 0x0,0x1 0776 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0777 7003 |p | Jump_Nonzero 0x77b 0778 00d9 | | Load_Top At_Offset_1 0779 a5f8 | | Store_Unchecked 0x2,-0x8 077a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 077b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 077c TRAP_0720: 077c e001 | | Load 0x0,0x1 077d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 077e 010f | | Execute Exception,Equal 077f 6804 |h | Jump_Zero 0x784 0780 e001 | | Load 0x0,0x1 0781 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0782 a5f8 | | Store_Unchecked 0x2,-0x8 0783 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0784 e5f9 | | Load 0x2,-0x7 0785 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File" 0787 e002 | | Load 0x0,0x2 0788 180f | | Execute Package,Field_Execute,Field_Number 0xf 0789 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File" 078b e002 | | Load 0x0,0x2 078c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 078d a5f8 | | Store_Unchecked 0x2,-0x8 078e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 078f 0000 | | .XXX[0x1] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 07a0 | | .CONST 0x07a0 ; Address of begin 0791 07e3 | | .CONST 0x07e3 ; Address of exception handler 0792 0004 | | .CONST 0x0004 ; Number of locals 0793 INIT_0790: 0793 e007 | | Load 0x0,0x7 0794 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0795 02c7 | | Declare_Variable Any 0796 00d8 | | Load_Top At_Offset_0 0797 1c00 | | Execute_Immediate Run_Utility,0x0 0798 e5fb | | Load 0x2,-0x5 0799 e5fe | | Load 0x2,-0x2 079a e5fd | | Load 0x2,-0x3 079b e5ff | | Load 0x2,-0x1 079c 8228 | ( | Call 0x1,0x28 079d e001 | | Load 0x0,0x1 079e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 079f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07a0 BODY_0790: 07a0 e5fb | | Load 0x2,-0x5 07a1 e5ff | | Load 0x2,-0x1 07a2 e009 | | Load 0x0,0x9 07a3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 07a4 6817 |h | Jump_Zero 0x7bc 07a5 e5fb | | Load 0x2,-0x5 07a6 4801 |H | Short_Literal 0x1 07a7 4801 |H | Short_Literal 0x1 07a8 e00b | | Load 0x0,0xb 07a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07aa 035b | [ | Declare_Type Array,Constrained 07ab 0337 | 7 | Declare_Variable Array 07ac 0092 1728 | (| Action Push_String_Extended,0x1728 ; "Update_Consistency" 07ae e00b | | Load 0x0,0xb 07af 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07b0 e00b | | Load 0x0,0xb 07b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07b2 0119 | | Execute Any,Check_In_Formal_Type 07b3 4801 |H | Short_Literal 0x1 07b4 00da | | Load_Top At_Offset_2 07b5 01d6 | | Execute Vector,Field_Write 07b6 6041 |`A | Indirect_Literal Discrete,0x7f8,{0x00000000, 0x0000818f} 07b7 e001 | | Load 0x0,0x1 07b8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07b9 4800 |H | Short_Literal 0x0 07ba a5fa | | Store_Unchecked 0x2,-0x6 07bb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07bc 00da | | Load_Top At_Offset_2 07bd 0120 | | Execute Any,Is_Value 07be 6803 |h | Jump_Zero 0x7c2 07bf e007 | | Load 0x0,0x7 07c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c1 7801 |x | Jump 0x7c3 07c2 00da | | Load_Top At_Offset_2 07c3 e001 | | Load 0x0,0x1 07c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c5 4800 |H | Short_Literal 0x0 07c6 e5fc | | Load 0x2,-0x4 07c7 e403 | | Load 0x2,0x3 07c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07c9 e010 | | Load 0x0,0x10 07ca 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07cb 005a | Z | Store_Top Discrete,At_Offset_2 07cc c402 | | Store 0x2,0x2 07cd 4800 |H | Short_Literal 0x0 07ce 00d9 | | Load_Top At_Offset_1 07cf e001 | | Load 0x0,0x1 07d0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 07d1 7005 |p | Jump_Nonzero 0x7d7 07d2 e5fb | | Load 0x2,-0x5 07d3 00d9 | | Load_Top At_Offset_1 07d4 e001 | | Load 0x0,0x1 07d5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 07d6 7809 |x | Jump 0x7e0 07d7 e001 | | Load 0x0,0x1 07d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07d9 e5fb | | Load 0x2,-0x5 07da e5fd | | Load 0x2,-0x3 07db e402 | | Load 0x2,0x2 07dc e5fe | | Load 0x2,-0x2 07dd e5ff | | Load 0x2,-0x1 07de 822c | , | Call 0x1,0x2c 07df 0059 | Y | Store_Top Discrete,At_Offset_1 07e0 00d8 | | Load_Top At_Offset_0 07e1 a5fa | | Store_Unchecked 0x2,-0x6 07e2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07e3 TRAP_0790: 07e3 e001 | | Load 0x0,0x1 07e4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 07e5 010f | | Execute Exception,Equal 07e6 6804 |h | Jump_Zero 0x7eb 07e7 e001 | | Load 0x0,0x1 07e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 07e9 a5fa | | Store_Unchecked 0x2,-0x6 07ea 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07eb e5fb | | Load 0x2,-0x5 07ec 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency" 07ee e002 | | Load 0x0,0x2 07ef 180f | | Execute Package,Field_Execute,Field_Number 0xf 07f0 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency" 07f2 e002 | | Load 0x0,0x2 07f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07f4 a5fa | | Store_Unchecked 0x2,-0x6 07f5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07f6 0000 0000 | | .XXX[0x2] 07f8 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 07fc 0000 0000 | | .BLANK 0000[0x4] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0808 | | .CONST 0x0808 ; Address of begin 0801 0856 | V | .CONST 0x0856 ; Address of exception handler 0802 0003 | | .CONST 0x0003 ; Number of locals 0803 INIT_0800: 0803 e001 | | Load 0x0,0x1 0804 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0805 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0806 e010 | | Load 0x0,0x10 0807 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0808 BODY_0800: 0808 4800 |H | Short_Literal 0x0 0809 a5fb | | Store_Unchecked 0x2,-0x5 080a e5fc | | Load 0x2,-0x4 080b e5ff | | Load 0x2,-0x1 080c e009 | | Load 0x0,0x9 080d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 080e 6817 |h | Jump_Zero 0x826 080f e5fc | | Load 0x2,-0x4 0810 4801 |H | Short_Literal 0x1 0811 4801 |H | Short_Literal 0x1 0812 e00b | | Load 0x0,0xb 0813 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0814 035b | [ | Declare_Type Array,Constrained 0815 0337 | 7 | Declare_Variable Array 0816 0092 1728 | (| Action Push_String_Extended,0x1728 ; "Update_Consistency" 0818 e00b | | Load 0x0,0xb 0819 1810 | | Execute Package,Field_Execute,Field_Number 0x10 081a e00b | | Load 0x0,0xb 081b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 081c 0119 | | Execute Any,Check_In_Formal_Type 081d 4801 |H | Short_Literal 0x1 081e 00da | | Load_Top At_Offset_2 081f 01d6 | | Execute Vector,Field_Write 0820 67d7 |g | Indirect_Literal Discrete,0x7f8,{0x00000000, 0x0000818f} 0821 e001 | | Load 0x0,0x1 0822 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0823 4800 |H | Short_Literal 0x0 0824 a5fb | | Store_Unchecked 0x2,-0x5 0825 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0826 e001 | | Load 0x0,0x1 0827 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0828 e010 | | Load 0x0,0x10 0829 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 082a 4800 |H | Short_Literal 0x0 082b e013 | | Load 0x0,0x13 082c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 082d e013 | | Load 0x0,0x13 082e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 082f e013 | | Load 0x0,0x13 0830 180d | | Execute Package,Field_Execute,Field_Number 0xd 0831 e5fd | | Load 0x2,-0x3 0832 e004 | | Load 0x0,0x4 0833 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0834 e010 | | Load 0x0,0x10 0835 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0836 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0837 005a | Z | Store_Top Discrete,At_Offset_2 0838 4800 |H | Short_Literal 0x0 0839 00da | | Load_Top At_Offset_2 083a e001 | | Load 0x0,0x1 083b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 083c 7007 |p | Jump_Nonzero 0x844 083d e5fc | | Load 0x2,-0x4 083e 00da | | Load_Top At_Offset_2 083f e001 | | Load 0x0,0x1 0840 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0841 00d9 | | Load_Top At_Offset_1 0842 a5fb | | Store_Unchecked 0x2,-0x5 0843 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0844 e001 | | Load 0x0,0x1 0845 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0846 e5fc | | Load 0x2,-0x4 0847 00da | | Load_Top At_Offset_2 0848 e5fd | | Load 0x2,-0x3 0849 e5fe | | Load 0x2,-0x2 084a e5ff | | Load 0x2,-0x1 084b 8231 | 1 | Call 0x1,0x31 084c 005a | Z | Store_Top Discrete,At_Offset_2 084d 4800 |H | Short_Literal 0x0 084e 00da | | Load_Top At_Offset_2 084f e001 | | Load 0x0,0x1 0850 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0851 7003 |p | Jump_Nonzero 0x855 0852 00d9 | | Load_Top At_Offset_1 0853 a5fb | | Store_Unchecked 0x2,-0x5 0854 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0855 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0856 TRAP_0800: 0856 e001 | | Load 0x0,0x1 0857 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0858 010f | | Execute Exception,Equal 0859 6804 |h | Jump_Zero 0x85e 085a e001 | | Load 0x0,0x1 085b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 085c a5fb | | Store_Unchecked 0x2,-0x5 085d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 085e e5fc | | Load 0x2,-0x4 085f 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency" 0861 e002 | | Load 0x0,0x2 0862 180f | | Execute Package,Field_Execute,Field_Number 0xf 0863 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency" 0865 e002 | | Load 0x0,0x2 0866 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0867 a5fb | | Store_Unchecked 0x2,-0x5 0868 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0869 0000 0000 | | .BLANK 0000[0x7] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0891 | | .CONST 0x0891 ; Address of begin 0871 090e | | .CONST 0x090e ; Address of exception handler 0872 0008 | | .CONST 0x0008 ; Number of locals 0873 INIT_0870: 0873 e00c | | Load 0x0,0xc 0874 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0875 02c7 | | Declare_Variable Any 0876 00d8 | | Load_Top At_Offset_0 0877 1c00 | | Execute_Immediate Run_Utility,0x0 0878 e014 | | Load 0x0,0x14 0879 1b0d | | Execute Package,Field_Read,Field_Number 0xd 087a 02c7 | | Declare_Variable Any 087b 00d8 | | Load_Top At_Offset_0 087c 1c00 | | Execute_Immediate Run_Utility,0x0 087d e001 | | Load 0x0,0x1 087e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 087f 00e1 | | Load_Encached Boolean_Cache 0880 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0881 e00c | | Load 0x0,0xc 0882 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0883 02c7 | | Declare_Variable Any 0884 00d8 | | Load_Top At_Offset_0 0885 1c00 | | Execute_Immediate Run_Utility,0x0 0886 00e1 | | Load_Encached Boolean_Cache 0887 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0888 e5ff | | Load 0x2,-0x1 0889 e009 | | Load 0x0,0x9 088a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 088b 0092 172a | *| Action Push_String_Extended,0x172a ; "." 088d 01cc | | Execute Vector,Catenate 088e e5fe | | Load 0x2,-0x2 088f 01cc | | Execute Vector,Catenate 0890 0007 | | Action Break_Optional 0891 BODY_0870: 0891 4800 |H | Short_Literal 0x0 0892 a5fc | | Store_Unchecked 0x2,-0x4 0893 e5fe | | Load 0x2,-0x2 0894 01db | | Execute Vector,Length 0895 0f00 | | Execute_Immediate Equal,0x0 0896 e5fe | | Load 0x2,-0x2 0897 0092 172b | +| Action Push_String_Extended,0x172b ; "state" 0899 01df | | Execute Vector,Equal 089a 0278 | x | Execute Discrete,Or 089b 6803 |h | Jump_Zero 0x89f 089c e001 | | Load 0x0,0x1 089d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 089e 0257 | W | Execute Discrete,Raise 089f 00e1 | | Load_Encached Boolean_Cache 08a0 e403 | | Load 0x2,0x3 08a1 e5fd | | Load 0x2,-0x3 08a2 00db | | Load_Top At_Offset_3 08a3 82a3 | | Call 0x1,0xa3 08a4 c403 | | Store 0x2,0x3 08a5 c405 | | Store 0x2,0x5 08a6 00db | | Load_Top At_Offset_3 08a7 700c |p | Jump_Nonzero 0x8b4 08a8 e403 | | Load 0x2,0x3 08a9 00ea | | Load_Encached Null_String_Cache 08aa 00da | | Load_Top At_Offset_2 08ab 4801 |H | Short_Literal 0x1 08ac e014 | | Load 0x0,0x14 08ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08ae c403 | | Store 0x2,0x3 08af e403 | | Load 0x2,0x3 08b0 e014 | | Load 0x0,0x14 08b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 08b2 c403 | | Store 0x2,0x3 08b3 7804 |x | Jump 0x8b8 08b4 e403 | | Load 0x2,0x3 08b5 e014 | | Load 0x0,0x14 08b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 08b7 c403 | | Store 0x2,0x3 08b8 e5fd | | Load 0x2,-0x3 08b9 00d9 | | Load_Top At_Offset_1 08ba 829a | | Call 0x1,0x9a 08bb c402 | | Store 0x2,0x2 08bc e402 | | Load 0x2,0x2 08bd e009 | | Load 0x0,0x9 08be 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 08bf 6816 |h | Jump_Zero 0x8d6 08c0 e5fd | | Load 0x2,-0x3 08c1 4801 |H | Short_Literal 0x1 08c2 4801 |H | Short_Literal 0x1 08c3 e00b | | Load 0x0,0xb 08c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08c5 035b | [ | Declare_Type Array,Constrained 08c6 0337 | 7 | Declare_Variable Array 08c7 00da | | Load_Top At_Offset_2 08c8 e00b | | Load 0x0,0xb 08c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08ca e00b | | Load 0x0,0xb 08cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08cc 0119 | | Execute Any,Check_In_Formal_Type 08cd 4801 |H | Short_Literal 0x1 08ce 00da | | Load_Top At_Offset_2 08cf 01d6 | | Execute Vector,Field_Write 08d0 6063 |`c | Indirect_Literal Discrete,0x934,{0x00000000, 0x000081ac} 08d1 e001 | | Load 0x0,0x1 08d2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 08d3 e001 | | Load 0x0,0x1 08d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 08d5 0257 | W | Execute Discrete,Raise 08d6 00db | | Load_Top At_Offset_3 08d7 682e |h. | Jump_Zero 0x906 08d8 00e1 | | Load_Encached Boolean_Cache 08d9 00db | | Load_Top At_Offset_3 08da 0120 | | Execute Any,Is_Value 08db 6803 |h | Jump_Zero 0x8df 08dc e00c | | Load 0x0,0xc 08dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08de 7801 |x | Jump 0x8e0 08df 00db | | Load_Top At_Offset_3 08e0 e5fd | | Load 0x2,-0x3 08e1 e402 | | Load 0x2,0x2 08e2 8287 | | Call 0x1,0x87 08e3 c406 | | Store 0x2,0x6 08e4 005a | Z | Store_Top Discrete,At_Offset_2 08e5 00d9 | | Load_Top At_Offset_1 08e6 681f |h | Jump_Zero 0x906 08e7 e5fd | | Load 0x2,-0x3 08e8 4801 |H | Short_Literal 0x1 08e9 4802 |H | Short_Literal 0x2 08ea e00b | | Load 0x0,0xb 08eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08ec 035b | [ | Declare_Type Array,Constrained 08ed 0337 | 7 | Declare_Variable Array 08ee e402 | | Load 0x2,0x2 08ef e009 | | Load 0x0,0x9 08f0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08f1 e00b | | Load 0x0,0xb 08f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08f3 0119 | | Execute Any,Check_In_Formal_Type 08f4 4801 |H | Short_Literal 0x1 08f5 00da | | Load_Top At_Offset_2 08f6 01d6 | | Execute Vector,Field_Write 08f7 e406 | | Load 0x2,0x6 08f8 e009 | | Load 0x0,0x9 08f9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08fa e00b | | Load 0x0,0xb 08fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08fc 0119 | | Execute Any,Check_In_Formal_Type 08fd 4802 |H | Short_Literal 0x2 08fe 00da | | Load_Top At_Offset_2 08ff 01d6 | | Execute Vector,Field_Write 0900 602f |`/ | Indirect_Literal Discrete,0x930,{0x00000000, 0x000081cb} 0901 e001 | | Load 0x0,0x1 0902 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0903 e001 | | Load 0x0,0x1 0904 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0905 0257 | W | Execute Discrete,Raise 0906 e001 | | Load 0x0,0x1 0907 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0908 e5fd | | Load 0x2,-0x3 0909 e402 | | Load 0x2,0x2 090a e009 | | Load 0x0,0x9 090b 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 090c c404 | | Store 0x2,0x4 090d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 090e TRAP_0870: 090e 0007 | | Action Break_Optional 090f e5fd | | Load 0x2,-0x3 0910 4801 |H | Short_Literal 0x1 0911 4801 |H | Short_Literal 0x1 0912 e00b | | Load 0x0,0xb 0913 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0914 035b | [ | Declare_Type Array,Constrained 0915 0337 | 7 | Declare_Variable Array 0916 00db | | Load_Top At_Offset_3 0917 e00b | | Load 0x0,0xb 0918 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0919 e00b | | Load 0x0,0xb 091a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 091b 0119 | | Execute Any,Check_In_Formal_Type 091c 4801 |H | Short_Literal 0x1 091d 00da | | Load_Top At_Offset_2 091e 01d6 | | Execute Vector,Field_Write 091f 600c |` | Indirect_Literal Discrete,0x92c,{0x00000000, 0x000081a1} 0920 e001 | | Load 0x0,0x1 0921 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0922 e00b | | Load 0x0,0xb 0923 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0924 6007 |` | Indirect_Literal Discrete,0x92c,{0x00000000, 0x000081a1} 0925 e001 | | Load 0x0,0x1 0926 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0927 a5fc | | Store_Unchecked 0x2,-0x4 0928 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0929 0000 0000 | | .XXX[0x3] 092b 0000 | | 092c 0000 0000 | | .LITERAL {0x00000000, 0x000081a1} 0930 0000 0000 | | .LITERAL {0x00000000, 0x000081cb} 0934 0000 0000 | | .LITERAL {0x00000000, 0x000081ac} 0938 ; -------------------------------------------------------------------------------------- 0938 ; SUBPROGRAM 0938 ; -------------------------------------------------------------------------------------- 0938 093f | ? | .CONST 0x093f ; Address of begin 0939 0955 | U | .CONST 0x0955 ; Address of exception handler 093a 0003 | | .CONST 0x0003 ; Number of locals 093b INIT_0938: 093b e28f | | Load 0x1,0x8f 093c 0322 | " | Declare_Variable Record 093d 00db | | Load_Top At_Offset_3 093e 8296 | | Call 0x1,0x96 093f BODY_0938: 093f 4800 |H | Short_Literal 0x0 0940 a5f9 | | Store_Unchecked 0x2,-0x7 0941 00d9 | | Load_Top At_Offset_1 0942 e5fa | | Load 0x2,-0x6 0943 00da | | Load_Top At_Offset_2 0944 82a7 | | Call 0x1,0xa7 0945 00d1 | | Pop_Control Pop_Count_1 0946 00d9 | | Load_Top At_Offset_1 0947 e5fb | | Load 0x2,-0x5 0948 82a2 | | Call 0x1,0xa2 0949 00d1 | | Pop_Control Pop_Count_1 094a e5fa | | Load 0x2,-0x6 094b 00da | | Load_Top At_Offset_2 094c 00da | | Load_Top At_Offset_2 094d 82a5 | | Call 0x1,0xa5 094e e5fa | | Load 0x2,-0x6 094f e5fc | | Load 0x2,-0x4 0950 e5fd | | Load 0x2,-0x3 0951 e5fe | | Load 0x2,-0x2 0952 e5ff | | Load 0x2,-0x1 0953 82ac | | Call 0x1,0xac 0954 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0955 TRAP_0938: 0955 0007 | | Action Break_Optional 0956 e5fa | | Load 0x2,-0x6 0957 4801 |H | Short_Literal 0x1 0958 4801 |H | Short_Literal 0x1 0959 e00b | | Load 0x0,0xb 095a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 095b 035b | [ | Declare_Type Array,Constrained 095c 0337 | 7 | Declare_Variable Array 095d e5ff | | Load 0x2,-0x1 095e e00b | | Load 0x0,0xb 095f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0960 e00b | | Load 0x0,0xb 0961 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0962 0119 | | Execute Any,Check_In_Formal_Type 0963 4801 |H | Short_Literal 0x1 0964 00da | | Load_Top At_Offset_2 0965 01d6 | | Execute Vector,Field_Write 0966 6009 |` | Indirect_Literal Discrete,0x970,{0x00000000, 0x000081a2} 0967 e001 | | Load 0x0,0x1 0968 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0969 e00b | | Load 0x0,0xb 096a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 096b 6004 |` | Indirect_Literal Discrete,0x970,{0x00000000, 0x000081a2} 096c e001 | | Load 0x0,0x1 096d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 096e a5f9 | | Store_Unchecked 0x2,-0x7 096f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0970 0000 0000 | | .LITERAL {0x00000000, 0x000081a2} 0974 0000 0000 | | .BLANK 0000[0x4] 0978 ; -------------------------------------------------------------------------------------- 0978 ; SUBPROGRAM 0978 ; -------------------------------------------------------------------------------------- 0978 0986 | | .CONST 0x0986 ; Address of begin 0979 09a7 | | .CONST 0x09a7 ; Address of exception handler 097a 0005 | | .CONST 0x0005 ; Number of locals 097b INIT_0978: 097b e00c | | Load 0x0,0xc 097c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 097d 02c7 | | Declare_Variable Any 097e 00d8 | | Load_Top At_Offset_0 097f 1c00 | | Execute_Immediate Run_Utility,0x0 0980 00e2 | | Load_Encached Integer_Cache 0981 e5ff | | Load 0x2,-0x1 0982 e009 | | Load 0x0,0x9 0983 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0984 029f 14a3 | | Declare_Subprogram INIT_14a0,For_Call 0986 BODY_0978: 0986 4800 |H | Short_Literal 0x0 0987 a5fd | | Store_Unchecked 0x2,-0x3 0988 e001 | | Load 0x0,0x1 0989 1b0d | | Execute Package,Field_Read,Field_Number 0xd 098a 00e2 | | Load_Encached Integer_Cache 098b e402 | | Load 0x2,0x2 098c 0120 | | Execute Any,Is_Value 098d 6803 |h | Jump_Zero 0x991 098e e00c | | Load 0x0,0xc 098f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0990 7801 |x | Jump 0x992 0991 e402 | | Load 0x2,0x2 0992 e5fe | | Load 0x2,-0x2 0993 e5ff | | Load 0x2,-0x1 0994 8267 | g | Call 0x1,0x67 0995 c402 | | Store 0x2,0x2 0996 c403 | | Store 0x2,0x3 0997 c5fd | | Store 0x2,-0x3 0998 e001 | | Load 0x0,0x1 0999 1b0d | | Execute Package,Field_Read,Field_Number 0xd 099a e5fe | | Load 0x2,-0x2 099b e5ff | | Load 0x2,-0x1 099c e009 | | Load 0x0,0x9 099d 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 099e c5fd | | Store 0x2,-0x3 099f e5fe | | Load 0x2,-0x2 09a0 00da | | Load_Top At_Offset_2 09a1 8294 | | Call 0x1,0x94 09a2 00da | | Load_Top At_Offset_2 09a3 0f01 | | Execute_Immediate Equal,0x1 09a4 6801 |h | Jump_Zero 0x9a6 09a5 8405 | | Call 0x2,0x5 09a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09a7 TRAP_0978: 09a7 0007 | | Action Break_Optional 09a8 e5fe | | Load 0x2,-0x2 09a9 4801 |H | Short_Literal 0x1 09aa 4801 |H | Short_Literal 0x1 09ab e00b | | Load 0x0,0xb 09ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09ad 035b | [ | Declare_Type Array,Constrained 09ae 0337 | 7 | Declare_Variable Array 09af e404 | | Load 0x2,0x4 09b0 e00b | | Load 0x0,0xb 09b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09b2 e00b | | Load 0x0,0xb 09b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09b4 0119 | | Execute Any,Check_In_Formal_Type 09b5 4801 |H | Short_Literal 0x1 09b6 00da | | Load_Top At_Offset_2 09b7 01d6 | | Execute Vector,Field_Write 09b8 600b |` | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x000081a3} 09b9 e001 | | Load 0x0,0x1 09ba 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09bb e00b | | Load 0x0,0xb 09bc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 09bd 6006 |` | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x000081a3} 09be e001 | | Load 0x0,0x1 09bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09c0 a5fd | | Store_Unchecked 0x2,-0x3 09c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09c2 0000 0000 | | .XXX[0x2] 09c4 0000 0000 | | .LITERAL {0x00000000, 0x000081a3} 09c8 ; -------------------------------------------------------------------------------------- 09c8 ; SUBPROGRAM 09c8 ; -------------------------------------------------------------------------------------- 09c8 09df | | .CONST 0x09df ; Address of begin 09c9 0a9f | | .CONST 0x0a9f ; Address of exception handler 09ca 0006 | | .CONST 0x0006 ; Number of locals 09cb INIT_09c8: 09cb e00c | | Load 0x0,0xc 09cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 09ce 02c7 | | Declare_Variable Any 09cf 00d8 | | Load_Top At_Offset_0 09d0 1c00 | | Execute_Immediate Run_Utility,0x0 09d1 e26f | o | Load 0x1,0x6f 09d2 0322 | " | Declare_Variable Record 09d3 00d8 | | Load_Top At_Offset_0 09d4 1c00 | | Execute_Immediate Run_Utility,0x0 09d5 e00c | | Load 0x0,0xc 09d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d7 02c7 | | Declare_Variable Any 09d8 00d8 | | Load_Top At_Offset_0 09d9 1c00 | | Execute_Immediate Run_Utility,0x0 09da e001 | | Load 0x0,0x1 09db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 09dd 00e1 | | Load_Encached Boolean_Cache 09de 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 09df BODY_09c8: 09df 4800 |H | Short_Literal 0x0 09e0 a5fd | | Store_Unchecked 0x2,-0x3 09e1 e001 | | Load 0x0,0x1 09e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e3 e402 | | Load 0x2,0x2 09e4 0120 | | Execute Any,Is_Value 09e5 6804 |h | Jump_Zero 0x9ea 09e6 e00c | | Load 0x0,0xc 09e7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09e8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 09e9 7801 |x | Jump 0x9eb 09ea e402 | | Load 0x2,0x2 09eb e5fe | | Load 0x2,-0x2 09ec e5ff | | Load 0x2,-0x1 09ed 825f | _ | Call 0x1,0x5f 09ee c402 | | Store 0x2,0x2 09ef 005a | Z | Store_Top Discrete,At_Offset_2 09f0 4800 |H | Short_Literal 0x0 09f1 00da | | Load_Top At_Offset_2 09f2 e001 | | Load 0x0,0x1 09f3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 09f4 7003 |p | Jump_Nonzero 0x9f8 09f5 e001 | | Load 0x0,0x1 09f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09f7 0257 | W | Execute Discrete,Raise 09f8 e402 | | Load 0x2,0x2 09f9 e00c | | Load 0x0,0xc 09fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09fc 6814 |h | Jump_Zero 0xa11 09fd e5fe | | Load 0x2,-0x2 09fe 4801 |H | Short_Literal 0x1 09ff 4801 |H | Short_Literal 0x1 0a00 e00b | | Load 0x0,0xb 0a01 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a02 035b | [ | Declare_Type Array,Constrained 0a03 0337 | 7 | Declare_Variable Array 0a04 e5ff | | Load 0x2,-0x1 0a05 e009 | | Load 0x0,0x9 0a06 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a07 e00b | | Load 0x0,0xb 0a08 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a09 0119 | | Execute Any,Check_In_Formal_Type 0a0a 4801 |H | Short_Literal 0x1 0a0b 00da | | Load_Top At_Offset_2 0a0c 01d6 | | Execute Vector,Field_Write 0a0d 60a2 |` | Indirect_Literal Discrete,0xab0,{0x00000000, 0x000081a8} 0a0e e001 | | Load 0x0,0x1 0a0f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a10 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a11 e5fe | | Load 0x2,-0x2 0a12 4801 |H | Short_Literal 0x1 0a13 4801 |H | Short_Literal 0x1 0a14 e00b | | Load 0x0,0xb 0a15 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a16 035b | [ | Declare_Type Array,Constrained 0a17 0337 | 7 | Declare_Variable Array 0a18 e5ff | | Load 0x2,-0x1 0a19 e009 | | Load 0x0,0x9 0a1a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a1b e00b | | Load 0x0,0xb 0a1c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a1d 0119 | | Execute Any,Check_In_Formal_Type 0a1e 4801 |H | Short_Literal 0x1 0a1f 00da | | Load_Top At_Offset_2 0a20 01d6 | | Execute Vector,Field_Write 0a21 608a |` | Indirect_Literal Discrete,0xaac,{0x00000000, 0x000081a9} 0a22 e001 | | Load 0x0,0x1 0a23 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a24 e5fe | | Load 0x2,-0x2 0a25 e5ff | | Load 0x2,-0x1 0a26 8273 | s | Call 0x1,0x73 0a27 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0a28 e5fe | | Load 0x2,-0x2 0a29 4801 |H | Short_Literal 0x1 0a2a 4802 |H | Short_Literal 0x2 0a2b e00b | | Load 0x0,0xb 0a2c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a2d 035b | [ | Declare_Type Array,Constrained 0a2e 0337 | 7 | Declare_Variable Array 0a2f e5ff | | Load 0x2,-0x1 0a30 e009 | | Load 0x0,0x9 0a31 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a32 e00b | | Load 0x0,0xb 0a33 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a34 0119 | | Execute Any,Check_In_Formal_Type 0a35 4801 |H | Short_Literal 0x1 0a36 00da | | Load_Top At_Offset_2 0a37 01d6 | | Execute Vector,Field_Write 0a38 00da | | Load_Top At_Offset_2 0a39 00e1 | | Load_Encached Boolean_Cache 0a3a 011c | | Execute Any,Convert_Unchecked 0a3b 1c01 | | Execute_Immediate Run_Utility,0x1 0a3c e00b | | Load 0x0,0xb 0a3d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a3e e00b | | Load 0x0,0xb 0a3f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a40 0119 | | Execute Any,Check_In_Formal_Type 0a41 4802 |H | Short_Literal 0x2 0a42 00da | | Load_Top At_Offset_2 0a43 01d6 | | Execute Vector,Field_Write 0a44 6063 |`c | Indirect_Literal Discrete,0xaa8,{0x00000000, 0x000081ab} 0a45 e001 | | Load 0x0,0x1 0a46 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a47 00cf | | Action Mark_Auxiliary 0a48 7850 |xP | Jump 0xa99 0a49 e5fe | | Load 0x2,-0x2 0a4a 4801 |H | Short_Literal 0x1 0a4b e402 | | Load 0x2,0x2 0a4c e009 | | Load 0x0,0x9 0a4d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0a4e c404 | | Store 0x2,0x4 0a4f e403 | | Load 0x2,0x3 0a50 e5fe | | Load 0x2,-0x2 0a51 e404 | | Load 0x2,0x4 0a52 e009 | | Load 0x0,0x9 0a53 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a54 82a8 | | Call 0x1,0xa8 0a55 00d1 | | Pop_Control Pop_Count_1 0a56 e5fe | | Load 0x2,-0x2 0a57 4801 |H | Short_Literal 0x1 0a58 4804 |H | Short_Literal 0x4 0a59 e00b | | Load 0x0,0xb 0a5a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a5b 035b | [ | Declare_Type Array,Constrained 0a5c 0337 | 7 | Declare_Variable Array 0a5d e404 | | Load 0x2,0x4 0a5e e009 | | Load 0x0,0x9 0a5f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a60 e00b | | Load 0x0,0xb 0a61 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a62 0119 | | Execute Any,Check_In_Formal_Type 0a63 4801 |H | Short_Literal 0x1 0a64 00da | | Load_Top At_Offset_2 0a65 01d6 | | Execute Vector,Field_Write 0a66 4801 |H | Short_Literal 0x1 0a67 e403 | | Load 0x2,0x3 0a68 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a69 e403 | | Load 0x2,0x3 0a6a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0a6b 01cf | | Execute Vector,Slice_Read 0a6c e00b | | Load 0x0,0xb 0a6d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a6e e00b | | Load 0x0,0xb 0a6f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a70 0119 | | Execute Any,Check_In_Formal_Type 0a71 4802 |H | Short_Literal 0x2 0a72 00da | | Load_Top At_Offset_2 0a73 01d6 | | Execute Vector,Field_Write 0a74 4801 |H | Short_Literal 0x1 0a75 e403 | | Load 0x2,0x3 0a76 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0a77 e403 | | Load 0x2,0x3 0a78 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0a79 01cf | | Execute Vector,Slice_Read 0a7a e00b | | Load 0x0,0xb 0a7b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a7c e00b | | Load 0x0,0xb 0a7d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a7e 0119 | | Execute Any,Check_In_Formal_Type 0a7f 4803 |H | Short_Literal 0x3 0a80 00da | | Load_Top At_Offset_2 0a81 01d6 | | Execute Vector,Field_Write 0a82 4801 |H | Short_Literal 0x1 0a83 e403 | | Load 0x2,0x3 0a84 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a85 e403 | | Load 0x2,0x3 0a86 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0a87 01cf | | Execute Vector,Slice_Read 0a88 e00b | | Load 0x0,0xb 0a89 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a8a e00b | | Load 0x0,0xb 0a8b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a8c 0119 | | Execute Any,Check_In_Formal_Type 0a8d 4804 |H | Short_Literal 0x4 0a8e 00da | | Load_Top At_Offset_2 0a8f 01d6 | | Execute Vector,Field_Write 0a90 6013 |` | Indirect_Literal Discrete,0xaa4,{0x00000000, 0x000081aa} 0a91 e001 | | Load 0x0,0x1 0a92 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a93 e402 | | Load 0x2,0x2 0a94 e00c | | Load 0x0,0xc 0a95 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a96 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0a97 c402 | | Store 0x2,0x2 0a98 00c9 | | Action Pop_Auxiliary_Loop 0a99 e402 | | Load 0x2,0x2 0a9a e00c | | Load 0x0,0xc 0a9b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a9c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a9d 6fab |o | Jump_Zero 0xa49 0a9e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a9f TRAP_09c8: 0a9f 0007 | | Action Break_Optional 0aa0 00da | | Load_Top At_Offset_2 0aa1 a5fd | | Store_Unchecked 0x2,-0x3 0aa2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0aa3 0000 | | .XXX[0x1] 0aa4 0000 0000 | | .LITERAL {0x00000000, 0x000081aa} 0aa8 0000 0000 | | .LITERAL {0x00000000, 0x000081ab} 0aac 0000 0000 | | .LITERAL {0x00000000, 0x000081a9} 0ab0 0000 0000 | | .LITERAL {0x00000000, 0x000081a8} 0ab4 0000 0000 | | .BLANK 0000[0x4] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0ac1 | | .CONST 0x0ac1 ; Address of begin 0ab9 0ad9 | | .CONST 0x0ad9 ; Address of exception handler 0aba 0002 | | .CONST 0x0002 ; Number of locals 0abb INIT_0ab8: 0abb e00c | | Load 0x0,0xc 0abc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0abd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0abe 02c7 | | Declare_Variable Any 0abf 00d8 | | Load_Top At_Offset_0 0ac0 1c00 | | Execute_Immediate Run_Utility,0x0 0ac1 BODY_0ab8: 0ac1 4800 |H | Short_Literal 0x0 0ac2 a5fc | | Store_Unchecked 0x2,-0x4 0ac3 4800 |H | Short_Literal 0x0 0ac4 a5fd | | Store_Unchecked 0x2,-0x3 0ac5 00db | | Load_Top At_Offset_3 0ac6 e009 | | Load 0x0,0x9 0ac7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ac8 e291 | | Load 0x1,0x91 0ac9 01cc | | Execute Vector,Catenate 0aca 829b | | Call 0x1,0x9b 0acb c402 | | Store 0x2,0x2 0acc 00d8 | | Load_Top At_Offset_0 0acd e00c | | Load 0x0,0xc 0ace 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0acf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ad0 7007 |p | Jump_Nonzero 0xad8 0ad1 00d8 | | Load_Top At_Offset_0 0ad2 e00c | | Load 0x0,0xc 0ad3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ad4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0ad5 7002 |p | Jump_Nonzero 0xad8 0ad6 4801 |H | Short_Literal 0x1 0ad7 a5fd | | Store_Unchecked 0x2,-0x3 0ad8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ad9 TRAP_0ab8: 0ad9 0007 | | Action Break_Optional 0ada e00b | | Load 0x0,0xb 0adb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0adc 6007 |` | Indirect_Literal Discrete,0xae4,{0x00000000, 0x0000813b} 0add e001 | | Load 0x0,0x1 0ade 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0adf a5fc | | Store_Unchecked 0x2,-0x4 0ae0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ae1 0000 0000 | | .XXX[0x3] 0ae3 0000 | | 0ae4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; SUBPROGRAM 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0aeb | | .CONST 0x0aeb ; Address of begin 0ae9 0aff | | .CONST 0x0aff ; Address of exception handler 0aea 0001 | | .CONST 0x0001 ; Number of locals 0aeb BODY_0ae8: 0aeb INIT_0ae8: 0aeb 4800 |H | Short_Literal 0x0 0aec a5fa | | Store_Unchecked 0x2,-0x6 0aed 00e2 | | Load_Encached Integer_Cache 0aee 00e1 | | Load_Encached Boolean_Cache 0aef e5fd | | Load 0x2,-0x3 0af0 0120 | | Execute Any,Is_Value 0af1 6803 |h | Jump_Zero 0xaf5 0af2 e00c | | Load 0x0,0xc 0af3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0af4 7801 |x | Jump 0xaf6 0af5 e5fd | | Load 0x2,-0x3 0af6 e5fe | | Load 0x2,-0x2 0af7 e5ff | | Load 0x2,-0x1 0af8 e009 | | Load 0x0,0x9 0af9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0afa 82af | | Call 0x1,0xaf 0afb c5fd | | Store 0x2,-0x3 0afc c5fc | | Store 0x2,-0x4 0afd c5fb | | Store 0x2,-0x5 0afe 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0aff TRAP_0ae8: 0aff 0007 | | Action Break_Optional 0b00 e00b | | Load 0x0,0xb 0b01 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b02 67e1 |g | Indirect_Literal Discrete,0xae4,{0x00000000, 0x0000813b} 0b03 e001 | | Load 0x0,0x1 0b04 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b05 a5fa | | Store_Unchecked 0x2,-0x6 0b06 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b07 0000 | | .XXX[0x1] 0b08 ; -------------------------------------------------------------------------------------- 0b08 ; SUBPROGRAM 0b08 ; -------------------------------------------------------------------------------------- 0b08 0b0c | | .CONST 0x0b0c ; Address of begin 0b09 0b3c | < | .CONST 0x0b3c ; Address of exception handler 0b0a 0002 | | .CONST 0x0002 ; Number of locals 0b0b INIT_0b08: 0b0b 00e1 | | Load_Encached Boolean_Cache 0b0c BODY_0b08: 0b0c 4800 |H | Short_Literal 0x0 0b0d a5fb | | Store_Unchecked 0x2,-0x5 0b0e e001 | | Load 0x0,0x1 0b0f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b10 00e2 | | Load_Encached Integer_Cache 0b11 00e1 | | Load_Encached Boolean_Cache 0b12 e5fd | | Load 0x2,-0x3 0b13 0120 | | Execute Any,Is_Value 0b14 6803 |h | Jump_Zero 0xb18 0b15 e00c | | Load 0x0,0xc 0b16 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b17 7801 |x | Jump 0xb19 0b18 e5fd | | Load 0x2,-0x3 0b19 e5fe | | Load 0x2,-0x2 0b1a e5ff | | Load 0x2,-0x1 0b1b 8266 | f | Call 0x1,0x66 0b1c c5fd | | Store 0x2,-0x3 0b1d 005b | [ | Store_Top Discrete,At_Offset_3 0b1e c5fc | | Store 0x2,-0x4 0b1f c5fb | | Store 0x2,-0x5 0b20 00d8 | | Load_Top At_Offset_0 0b21 7019 |p | Jump_Nonzero 0xb3b 0b22 e5fe | | Load 0x2,-0x2 0b23 4801 |H | Short_Literal 0x1 0b24 4801 |H | Short_Literal 0x1 0b25 e00b | | Load 0x0,0xb 0b26 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b27 035b | [ | Declare_Type Array,Constrained 0b28 0337 | 7 | Declare_Variable Array 0b29 e5ff | | Load 0x2,-0x1 0b2a e009 | | Load 0x0,0x9 0b2b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0b2c e00b | | Load 0x0,0xb 0b2d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b2e 0119 | | Execute Any,Check_In_Formal_Type 0b2f 4801 |H | Short_Literal 0x1 0b30 00da | | Load_Top At_Offset_2 0b31 01d6 | | Execute Vector,Field_Write 0b32 600d |` | Indirect_Literal Discrete,0xb40,{0x00000000, 0x000081a4} 0b33 e001 | | Load 0x0,0x1 0b34 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b35 e00b | | Load 0x0,0xb 0b36 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b37 6008 |` | Indirect_Literal Discrete,0xb40,{0x00000000, 0x000081a4} 0b38 e001 | | Load 0x0,0x1 0b39 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b3a a5fb | | Store_Unchecked 0x2,-0x5 0b3b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b3c TRAP_0b08: 0b3c 0007 | | Action Break_Optional 0b3d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b3e 0000 0000 | | .XXX[0x2] 0b40 0000 0000 | | .LITERAL {0x00000000, 0x000081a4} 0b44 0000 0000 | | .BLANK 0000[0x4] 0b48 ; -------------------------------------------------------------------------------------- 0b48 ; SUBPROGRAM 0b48 ; -------------------------------------------------------------------------------------- 0b48 0b54 | T | .CONST 0x0b54 ; Address of begin 0b49 0b5d | ] | .CONST 0x0b5d ; Address of exception handler 0b4a 0003 | | .CONST 0x0003 ; Number of locals 0b4b INIT_0b48: 0b4b 00db | | Load_Top At_Offset_3 0b4c 00db | | Load_Top At_Offset_3 0b4d 8298 | | Call 0x1,0x98 0b4e e00c | | Load 0x0,0xc 0b4f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b50 02c7 | | Declare_Variable Any 0b51 00d9 | | Load_Top At_Offset_1 0b52 8299 | | Call 0x1,0x99 0b53 a403 | | Store_Unchecked 0x2,0x3 0b54 BODY_0b48: 0b54 00d8 | | Load_Top At_Offset_0 0b55 e00c | | Load 0x0,0xc 0b56 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b57 012e | . | Execute Any,Not_Equal 0b58 6802 |h | Jump_Zero 0xb5b 0b59 4801 |H | Short_Literal 0x1 0b5a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b5b 4800 |H | Short_Literal 0x0 0b5c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b5d TRAP_0b48: 0b5d 0007 | | Action Break_Optional 0b5e 4800 |H | Short_Literal 0x0 0b5f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b60 ; -------------------------------------------------------------------------------------- 0b60 ; SUBPROGRAM 0b60 ; -------------------------------------------------------------------------------------- 0b60 0b74 | t | .CONST 0x0b74 ; Address of begin 0b61 0b9e | | .CONST 0x0b9e ; Address of exception handler 0b62 0005 | | .CONST 0x0005 ; Number of locals 0b63 INIT_0b60: 0b63 00da | | Load_Top At_Offset_2 0b64 e009 | | Load 0x0,0x9 0b65 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b66 e26f | o | Load 0x1,0x6f 0b67 0322 | " | Declare_Variable Record 0b68 00d8 | | Load_Top At_Offset_0 0b69 1c00 | | Execute_Immediate Run_Utility,0x0 0b6a e00c | | Load 0x0,0xc 0b6b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b6c 02c7 | | Declare_Variable Any 0b6d 00d8 | | Load_Top At_Offset_0 0b6e 1c00 | | Execute_Immediate Run_Utility,0x0 0b6f e00c | | Load 0x0,0xc 0b70 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b71 02c7 | | Declare_Variable Any 0b72 00d8 | | Load_Top At_Offset_0 0b73 1c00 | | Execute_Immediate Run_Utility,0x0 0b74 BODY_0b60: 0b74 4800 |H | Short_Literal 0x0 0b75 a5fc | | Store_Unchecked 0x2,-0x4 0b76 e5fe | | Load 0x2,-0x2 0b77 4801 |H | Short_Literal 0x1 0b78 e5ff | | Load 0x2,-0x1 0b79 e009 | | Load 0x0,0x9 0b7a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b7b c405 | | Store 0x2,0x5 0b7c 00da | | Load_Top At_Offset_2 0b7d e5fe | | Load 0x2,-0x2 0b7e e402 | | Load 0x2,0x2 0b7f 82a8 | | Call 0x1,0xa8 0b80 00d1 | | Pop_Control Pop_Count_1 0b81 e5fe | | Load 0x2,-0x2 0b82 4801 |H | Short_Literal 0x1 0b83 e5ff | | Load 0x2,-0x1 0b84 e009 | | Load 0x0,0x9 0b85 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0b86 e009 | | Load 0x0,0x9 0b87 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b88 0092 172a | *| Action Push_String_Extended,0x172a ; "." 0b8a 01cc | | Execute Vector,Catenate 0b8b 4801 |H | Short_Literal 0x1 0b8c e403 | | Load 0x2,0x3 0b8d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0b8e e403 | | Load 0x2,0x3 0b8f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0b90 01cf | | Execute Vector,Slice_Read 0b91 01cc | | Execute Vector,Catenate 0b92 8299 | | Call 0x1,0x99 0b93 c404 | | Store 0x2,0x4 0b94 00d9 | | Load_Top At_Offset_1 0b95 e00c | | Load 0x0,0xc 0b96 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b97 6803 |h | Jump_Zero 0xb9b 0b98 e001 | | Load 0x0,0x1 0b99 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b9a 0257 | W | Execute Discrete,Raise 0b9b 00d9 | | Load_Top At_Offset_1 0b9c c5fd | | Store 0x2,-0x3 0b9d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b9e TRAP_0b60: 0b9e 0007 | | Action Break_Optional 0b9f e5fe | | Load 0x2,-0x2 0ba0 4801 |H | Short_Literal 0x1 0ba1 4801 |H | Short_Literal 0x1 0ba2 e00b | | Load 0x0,0xb 0ba3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ba4 035b | [ | Declare_Type Array,Constrained 0ba5 0337 | 7 | Declare_Variable Array 0ba6 4801 |H | Short_Literal 0x1 0ba7 e403 | | Load 0x2,0x3 0ba8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ba9 e403 | | Load 0x2,0x3 0baa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0bab 01cf | | Execute Vector,Slice_Read 0bac e00b | | Load 0x0,0xb 0bad 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bae e00b | | Load 0x0,0xb 0baf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bb0 0119 | | Execute Any,Check_In_Formal_Type 0bb1 4801 |H | Short_Literal 0x1 0bb2 00da | | Load_Top At_Offset_2 0bb3 01d6 | | Execute Vector,Field_Write 0bb4 600b |` | Indirect_Literal Discrete,0xbc0,{0x00000000, 0x000081a7} 0bb5 e001 | | Load 0x0,0x1 0bb6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0bb7 e00b | | Load 0x0,0xb 0bb8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0bb9 6006 |` | Indirect_Literal Discrete,0xbc0,{0x00000000, 0x000081a7} 0bba e001 | | Load 0x0,0x1 0bbb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0bbc a5fc | | Store_Unchecked 0x2,-0x4 0bbd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bbe 0000 0000 | | .XXX[0x2] 0bc0 0000 0000 | | .LITERAL {0x00000000, 0x000081a7} 0bc4 0000 0000 | | .BLANK 0000[0x4] 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bcc | | .CONST 0x0bcc ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0002 | | .CONST 0x0002 ; Number of locals 0bcb INIT_0bc8: 0bcb 00e2 | | Load_Encached Integer_Cache 0bcc BODY_0bc8: 0bcc 4800 |H | Short_Literal 0x0 0bcd a5fc | | Store_Unchecked 0x2,-0x4 0bce e001 | | Load 0x0,0x1 0bcf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bd0 00e2 | | Load_Encached Integer_Cache 0bd1 e5fd | | Load 0x2,-0x3 0bd2 0120 | | Execute Any,Is_Value 0bd3 6803 |h | Jump_Zero 0xbd7 0bd4 e00c | | Load 0x0,0xc 0bd5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bd6 7801 |x | Jump 0xbd8 0bd7 e5fd | | Load 0x2,-0x3 0bd8 e5fe | | Load 0x2,-0x2 0bd9 e5ff | | Load 0x2,-0x1 0bda 8267 | g | Call 0x1,0x67 0bdb c5fd | | Store 0x2,-0x3 0bdc 005a | Z | Store_Top Discrete,At_Offset_2 0bdd c5fc | | Store 0x2,-0x4 0bde 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bdf 0000 | | .XXX[0x1] 0be0 ; -------------------------------------------------------------------------------------- 0be0 ; SUBPROGRAM 0be0 ; -------------------------------------------------------------------------------------- 0be0 0be6 | | .CONST 0x0be6 ; Address of begin 0be1 0bee | | .CONST 0x0bee ; Address of exception handler 0be2 0002 | | .CONST 0x0002 ; Number of locals 0be3 INIT_0be0: 0be3 00da | | Load_Top At_Offset_2 0be4 e009 | | Load 0x0,0x9 0be5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0be6 BODY_0be0: 0be6 4800 |H | Short_Literal 0x0 0be7 a5fc | | Store_Unchecked 0x2,-0x4 0be8 00d8 | | Load_Top At_Offset_0 0be9 e291 | | Load 0x1,0x91 0bea 01cc | | Execute Vector,Catenate 0beb 829b | | Call 0x1,0x9b 0bec c5fd | | Store 0x2,-0x3 0bed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bee TRAP_0be0: 0bee 0007 | | Action Break_Optional 0bef 6004 |` | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x0000813b} 0bf0 a5fc | | Store_Unchecked 0x2,-0x4 0bf1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bf2 0000 0000 | | .XXX[0x2] 0bf4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 ; SUBPROGRAM 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 0c07 | | .CONST 0x0c07 ; Address of begin 0bf9 0c0e | | .CONST 0x0c0e ; Address of exception handler 0bfa 0005 | | .CONST 0x0005 ; Number of locals 0bfb INIT_0bf8: 0bfb 00da | | Load_Top At_Offset_2 0bfc e009 | | Load 0x0,0x9 0bfd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0bfe e26f | o | Load 0x1,0x6f 0bff 0322 | " | Declare_Variable Record 0c00 00d8 | | Load_Top At_Offset_0 0c01 1c00 | | Execute_Immediate Run_Utility,0x0 0c02 4801 |H | Short_Literal 0x1 0c03 e20d | | Load 0x1,0xd 0c04 1c08 | | Execute_Immediate Run_Utility,0x8 0c05 029f 14bb | | Declare_Subprogram INIT_14b8,For_Call 0c07 BODY_0bf8: 0c07 00da | | Load_Top At_Offset_2 0c08 e5fe | | Load 0x2,-0x2 0c09 e402 | | Load 0x2,0x2 0c0a 82a8 | | Call 0x1,0xa8 0c0b 00d1 | | Pop_Control Pop_Count_1 0c0c 8405 | | Call 0x2,0x5 0c0d 0831 | 1 | Execute_Immediate Raise,0x31 0c0e TRAP_0bf8: 0c0e 0007 | | Action Break_Optional 0c0f e00b | | Load 0x0,0xb 0c10 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c11 67e2 |g | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x0000813b} 0c12 e001 | | Load 0x0,0x1 0c13 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c14 00db | | Load_Top At_Offset_3 0c15 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0c16 0831 | 1 | Execute_Immediate Raise,0x31 0c17 0000 | | .XXX[0x1] 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c27 | ' | .CONST 0x0c27 ; Address of begin 0c19 0c2e | . | .CONST 0x0c2e ; Address of exception handler 0c1a 0005 | | .CONST 0x0005 ; Number of locals 0c1b INIT_0c18: 0c1b 00da | | Load_Top At_Offset_2 0c1c e009 | | Load 0x0,0x9 0c1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0c1e e26f | o | Load 0x1,0x6f 0c1f 0322 | " | Declare_Variable Record 0c20 00d8 | | Load_Top At_Offset_0 0c21 1c00 | | Execute_Immediate Run_Utility,0x0 0c22 4801 |H | Short_Literal 0x1 0c23 e20d | | Load 0x1,0xd 0c24 1c08 | | Execute_Immediate Run_Utility,0x8 0c25 029f 14d3 | | Declare_Subprogram INIT_14d0,For_Call 0c27 BODY_0c18: 0c27 00da | | Load_Top At_Offset_2 0c28 e5fe | | Load 0x2,-0x2 0c29 e402 | | Load 0x2,0x2 0c2a 82a8 | | Call 0x1,0xa8 0c2b 00d1 | | Pop_Control Pop_Count_1 0c2c 8405 | | Call 0x2,0x5 0c2d 0831 | 1 | Execute_Immediate Raise,0x31 0c2e TRAP_0c18: 0c2e 0007 | | Action Break_Optional 0c2f e00b | | Load 0x0,0xb 0c30 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0c31 6006 |` | Indirect_Literal Discrete,0xc38,{0x00000000, 0x0000813b} 0c32 e001 | | Load 0x0,0x1 0c33 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c34 00db | | Load_Top At_Offset_3 0c35 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0c36 00da | | Load_Top At_Offset_2 0c37 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c38 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0c3c 0000 0000 | | .BLANK 0000[0x4] 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c47 | G | .CONST 0x0c47 ; Address of begin 0c41 0c4f | O | .CONST 0x0c4f ; Address of exception handler 0c42 0003 | | .CONST 0x0003 ; Number of locals 0c43 INIT_0c40: 0c43 e28f | | Load 0x1,0x8f 0c44 0322 | " | Declare_Variable Record 0c45 00db | | Load_Top At_Offset_3 0c46 8296 | | Call 0x1,0x96 0c47 BODY_0c40: 0c47 00d9 | | Load_Top At_Offset_1 0c48 e5fe | | Load 0x2,-0x2 0c49 00da | | Load_Top At_Offset_2 0c4a 82a7 | | Call 0x1,0xa7 0c4b 00d1 | | Pop_Control Pop_Count_1 0c4c 00d9 | | Load_Top At_Offset_1 0c4d 82a1 | | Call 0x1,0xa1 0c4e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c4f TRAP_0c40: 0c4f 0007 | | Action Break_Optional 0c50 4800 |H | Short_Literal 0x0 0c51 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c52 0000 0000 | | .BLANK 0000[0x6] 0c58 ; -------------------------------------------------------------------------------------- 0c58 ; SUBPROGRAM 0c58 ; -------------------------------------------------------------------------------------- 0c58 0c62 | b | .CONST 0x0c62 ; Address of begin 0c59 0c69 | i | .CONST 0x0c69 ; Address of exception handler 0c5a 0003 | | .CONST 0x0003 ; Number of locals 0c5b INIT_0c58: 0c5b 00da | | Load_Top At_Offset_2 0c5c e009 | | Load 0x0,0x9 0c5d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0c5e e26f | o | Load 0x1,0x6f 0c5f 0322 | " | Declare_Variable Record 0c60 00d8 | | Load_Top At_Offset_0 0c61 1c00 | | Execute_Immediate Run_Utility,0x0 0c62 BODY_0c58: 0c62 00d8 | | Load_Top At_Offset_0 0c63 e5fe | | Load 0x2,-0x2 0c64 00db | | Load_Top At_Offset_3 0c65 82a8 | | Call 0x1,0xa8 0c66 00d1 | | Pop_Control Pop_Count_1 0c67 00d8 | | Load_Top At_Offset_0 0c68 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c69 TRAP_0c58: 0c69 0007 | | Action Break_Optional 0c6a 00d9 | | Load_Top At_Offset_1 0c6b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c6c 0000 0000 | | .BLANK 0000[0x4] 0c70 ; -------------------------------------------------------------------------------------- 0c70 ; SUBPROGRAM 0c70 ; -------------------------------------------------------------------------------------- 0c70 0c7b | { | .CONST 0x0c7b ; Address of begin 0c71 0cb3 | | .CONST 0x0cb3 ; Address of exception handler 0c72 0005 | | .CONST 0x0005 ; Number of locals 0c73 INIT_0c70: 0c73 e28f | | Load 0x1,0x8f 0c74 0322 | " | Declare_Variable Record 0c75 00e1 | | Load_Encached Boolean_Cache 0c76 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0c77 e001 | | Load 0x0,0x1 0c78 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c79 e5ff | | Load 0x2,-0x1 0c7a 8296 | | Call 0x1,0x96 0c7b BODY_0c70: 0c7b 4800 |H | Short_Literal 0x0 0c7c a5fc | | Store_Unchecked 0x2,-0x4 0c7d e001 | | Load 0x0,0x1 0c7e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c7f 00e1 | | Load_Encached Boolean_Cache 0c80 e5fd | | Load 0x2,-0x3 0c81 e5ff | | Load 0x2,-0x1 0c82 8245 | E | Call 0x1,0x45 0c83 c403 | | Store 0x2,0x3 0c84 005a | Z | Store_Top Discrete,At_Offset_2 0c85 4800 |H | Short_Literal 0x0 0c86 00da | | Load_Top At_Offset_2 0c87 e001 | | Load 0x0,0x1 0c88 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0c89 7003 |p | Jump_Nonzero 0xc8d 0c8a e001 | | Load 0x0,0x1 0c8b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0c8c 0257 | W | Execute Discrete,Raise 0c8d 00da | | Load_Top At_Offset_2 0c8e 7016 |p | Jump_Nonzero 0xca5 0c8f e5fd | | Load 0x2,-0x3 0c90 4801 |H | Short_Literal 0x1 0c91 4801 |H | Short_Literal 0x1 0c92 e00b | | Load 0x0,0xb 0c93 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c94 035b | [ | Declare_Type Array,Constrained 0c95 0337 | 7 | Declare_Variable Array 0c96 e5ff | | Load 0x2,-0x1 0c97 e009 | | Load 0x0,0x9 0c98 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0c99 e00b | | Load 0x0,0xb 0c9a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c9b 0119 | | Execute Any,Check_In_Formal_Type 0c9c 4801 |H | Short_Literal 0x1 0c9d 00da | | Load_Top At_Offset_2 0c9e 01d6 | | Execute Vector,Field_Write 0c9f 601c |` | Indirect_Literal Discrete,0xcbc,{0x00000000, 0x000081a8} 0ca0 e001 | | Load 0x0,0x1 0ca1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ca2 6019 |` | Indirect_Literal Discrete,0xcbc,{0x00000000, 0x000081a8} 0ca3 a5fc | | Store_Unchecked 0x2,-0x4 0ca4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ca5 00db | | Load_Top At_Offset_3 0ca6 e5fd | | Load 0x2,-0x3 0ca7 00da | | Load_Top At_Offset_2 0ca8 82a7 | | Call 0x1,0xa7 0ca9 00d1 | | Pop_Control Pop_Count_1 0caa 00db | | Load_Top At_Offset_3 0cab e5fe | | Load 0x2,-0x2 0cac 82a2 | | Call 0x1,0xa2 0cad 00d1 | | Pop_Control Pop_Count_1 0cae e5fd | | Load 0x2,-0x3 0caf e402 | | Load 0x2,0x2 0cb0 00da | | Load_Top At_Offset_2 0cb1 82a5 | | Call 0x1,0xa5 0cb2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cb3 TRAP_0c70: 0cb3 0007 | | Action Break_Optional 0cb4 6003 |` | Indirect_Literal Discrete,0xcb8,{0x00000000, 0x0000813b} 0cb5 a5fc | | Store_Unchecked 0x2,-0x4 0cb6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cb7 0000 | | .XXX[0x1] 0cb8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0cbc 0000 0000 | | .LITERAL {0x00000000, 0x000081a8} 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 ; SUBPROGRAM 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 0cca | | .CONST 0x0cca ; Address of begin 0cc1 0cfa | | .CONST 0x0cfa ; Address of exception handler 0cc2 0003 | | .CONST 0x0003 ; Number of locals 0cc3 INIT_0cc0: 0cc3 00da | | Load_Top At_Offset_2 0cc4 e009 | | Load 0x0,0x9 0cc5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0cc6 e26f | o | Load 0x1,0x6f 0cc7 0322 | " | Declare_Variable Record 0cc8 00d8 | | Load_Top At_Offset_0 0cc9 1c00 | | Execute_Immediate Run_Utility,0x0 0cca BODY_0cc0: 0cca 4800 |H | Short_Literal 0x0 0ccb a5fc | | Store_Unchecked 0x2,-0x4 0ccc 00d8 | | Load_Top At_Offset_0 0ccd e5fd | | Load 0x2,-0x3 0cce 00db | | Load_Top At_Offset_3 0ccf 82a8 | | Call 0x1,0xa8 0cd0 00d1 | | Pop_Control Pop_Count_1 0cd1 e5fe | | Load 0x2,-0x2 0cd2 01db | | Execute Vector,Length 0cd3 0c81 | | Execute_Immediate Greater_Equal,-0x7f 0cd4 6802 |h | Jump_Zero 0xcd7 0cd5 e015 | | Load 0x0,0x15 0cd6 0257 | W | Execute Discrete,Raise 0cd7 e5fe | | Load 0x2,-0x2 0cd8 4801 |H | Short_Literal 0x1 0cd9 e5fe | | Load 0x2,-0x2 0cda 01db | | Execute Vector,Length 0cdb 00d8 | | Load_Top At_Offset_0 0cdc 00e2 | | Load_Encached Integer_Cache 0cdd 0260 | ` | Execute Discrete,In_Type 0cde 7001 |p | Jump_Nonzero 0xce0 0cdf 0801 | | Execute_Immediate Raise,0x1 0ce0 00db | | Load_Top At_Offset_3 0ce1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ce2 01ce | | Execute Vector,Slice_Write 0ce3 e5fe | | Load 0x2,-0x2 0ce4 01db | | Execute Vector,Length 0ce5 00d9 | | Load_Top At_Offset_1 0ce6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0ce7 e001 | | Load 0x0,0x1 0ce8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ce9 e5fd | | Load 0x2,-0x3 0cea e5ff | | Load 0x2,-0x1 0ceb e009 | | Load 0x0,0x9 0cec 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0ced c5fc | | Store 0x2,-0x4 0cee e5fd | | Load 0x2,-0x3 0cef 00d9 | | Load_Top At_Offset_1 0cf0 00db | | Load_Top At_Offset_3 0cf1 82aa | | Call 0x1,0xaa 0cf2 e001 | | Load 0x0,0x1 0cf3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cf4 e5fd | | Load 0x2,-0x3 0cf5 e5ff | | Load 0x2,-0x1 0cf6 e009 | | Load 0x0,0x9 0cf7 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0cf8 c5fc | | Store 0x2,-0x4 0cf9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cfa TRAP_0cc0: 0cfa e015 | | Load 0x0,0x15 0cfb 010f | | Execute Exception,Equal 0cfc 6817 |h | Jump_Zero 0xd14 0cfd e5fd | | Load 0x2,-0x3 0cfe 4801 |H | Short_Literal 0x1 0cff 4801 |H | Short_Literal 0x1 0d00 e00b | | Load 0x0,0xb 0d01 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d02 035b | [ | Declare_Type Array,Constrained 0d03 0337 | 7 | Declare_Variable Array 0d04 0092 171c | | Action Push_String_Extended,0x171c ; " 128" 0d06 e00b | | Load 0x0,0xb 0d07 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d08 e00b | | Load 0x0,0xb 0d09 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d0a 0119 | | Execute Any,Check_In_Formal_Type 0d0b 4801 |H | Short_Literal 0x1 0d0c 00da | | Load_Top At_Offset_2 0d0d 01d6 | | Execute Vector,Field_Write 0d0e 6009 |` | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e} 0d0f e001 | | Load 0x0,0x1 0d10 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d11 6006 |` | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e} 0d12 a5fc | | Store_Unchecked 0x2,-0x4 0d13 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d14 67a3 |g | Indirect_Literal Discrete,0xcb8,{0x00000000, 0x0000813b} 0d15 a5fc | | Store_Unchecked 0x2,-0x4 0d16 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d17 0000 | | .XXX[0x1] 0d18 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 0d1c 0000 0000 | | .BLANK 0000[0x4] 0d20 ; -------------------------------------------------------------------------------------- 0d20 ; SUBPROGRAM 0d20 ; -------------------------------------------------------------------------------------- 0d20 0d2a | * | .CONST 0x0d2a ; Address of begin 0d21 0d5a | Z | .CONST 0x0d5a ; Address of exception handler 0d22 0003 | | .CONST 0x0003 ; Number of locals 0d23 INIT_0d20: 0d23 00da | | Load_Top At_Offset_2 0d24 e009 | | Load 0x0,0x9 0d25 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d26 e26f | o | Load 0x1,0x6f 0d27 0322 | " | Declare_Variable Record 0d28 00d8 | | Load_Top At_Offset_0 0d29 1c00 | | Execute_Immediate Run_Utility,0x0 0d2a BODY_0d20: 0d2a 4800 |H | Short_Literal 0x0 0d2b a5fc | | Store_Unchecked 0x2,-0x4 0d2c 00d8 | | Load_Top At_Offset_0 0d2d e5fd | | Load 0x2,-0x3 0d2e 00db | | Load_Top At_Offset_3 0d2f 82a8 | | Call 0x1,0xa8 0d30 00d1 | | Pop_Control Pop_Count_1 0d31 e5fe | | Load 0x2,-0x2 0d32 01db | | Execute Vector,Length 0d33 0c81 | | Execute_Immediate Greater_Equal,-0x7f 0d34 6802 |h | Jump_Zero 0xd37 0d35 e016 | | Load 0x0,0x16 0d36 0257 | W | Execute Discrete,Raise 0d37 e5fe | | Load 0x2,-0x2 0d38 4801 |H | Short_Literal 0x1 0d39 e5fe | | Load 0x2,-0x2 0d3a 01db | | Execute Vector,Length 0d3b 00d8 | | Load_Top At_Offset_0 0d3c 00e2 | | Load_Encached Integer_Cache 0d3d 0260 | ` | Execute Discrete,In_Type 0d3e 7001 |p | Jump_Nonzero 0xd40 0d3f 0801 | | Execute_Immediate Raise,0x1 0d40 00db | | Load_Top At_Offset_3 0d41 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0d42 01ce | | Execute Vector,Slice_Write 0d43 e5fe | | Load 0x2,-0x2 0d44 01db | | Execute Vector,Length 0d45 00d9 | | Load_Top At_Offset_1 0d46 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0d47 e001 | | Load 0x0,0x1 0d48 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d49 e5fd | | Load 0x2,-0x3 0d4a e5ff | | Load 0x2,-0x1 0d4b e009 | | Load 0x0,0x9 0d4c 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0d4d c5fc | | Store 0x2,-0x4 0d4e e5fd | | Load 0x2,-0x3 0d4f 00d9 | | Load_Top At_Offset_1 0d50 00db | | Load_Top At_Offset_3 0d51 82aa | | Call 0x1,0xaa 0d52 e001 | | Load 0x0,0x1 0d53 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d54 e5fd | | Load 0x2,-0x3 0d55 e5ff | | Load 0x2,-0x1 0d56 e009 | | Load 0x0,0x9 0d57 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0d58 c5fc | | Store 0x2,-0x4 0d59 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d5a TRAP_0d20: 0d5a e016 | | Load 0x0,0x16 0d5b 010f | | Execute Exception,Equal 0d5c 6817 |h | Jump_Zero 0xd74 0d5d e5fd | | Load 0x2,-0x3 0d5e 4801 |H | Short_Literal 0x1 0d5f 4801 |H | Short_Literal 0x1 0d60 e00b | | Load 0x0,0xb 0d61 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d62 035b | [ | Declare_Type Array,Constrained 0d63 0337 | 7 | Declare_Variable Array 0d64 0092 171c | | Action Push_String_Extended,0x171c ; " 128" 0d66 e00b | | Load 0x0,0xb 0d67 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d68 e00b | | Load 0x0,0xb 0d69 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d6a 0119 | | Execute Any,Check_In_Formal_Type 0d6b 4801 |H | Short_Literal 0x1 0d6c 00da | | Load_Top At_Offset_2 0d6d 01d6 | | Execute Vector,Field_Write 0d6e 67a9 |g | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e} 0d6f e001 | | Load 0x0,0x1 0d70 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d71 67a6 |g | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e} 0d72 a5fc | | Store_Unchecked 0x2,-0x4 0d73 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d74 6003 |` | Indirect_Literal Discrete,0xd78,{0x00000000, 0x0000813b} 0d75 a5fc | | Store_Unchecked 0x2,-0x4 0d76 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d77 0000 | | .XXX[0x1] 0d78 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0d7c 0000 0000 | | .BLANK 0000[0x4] 0d80 ; -------------------------------------------------------------------------------------- 0d80 ; SUBPROGRAM 0d80 ; -------------------------------------------------------------------------------------- 0d80 0d95 | | .CONST 0x0d95 ; Address of begin 0d81 0e25 | % | .CONST 0x0e25 ; Address of exception handler 0d82 0006 | | .CONST 0x0006 ; Number of locals 0d83 INIT_0d80: 0d83 e00c | | Load 0x0,0xc 0d84 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d85 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d86 e00c | | Load 0x0,0xc 0d87 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d88 e00c | | Load 0x0,0xc 0d89 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d8a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0d8b 02c7 | | Declare_Variable Any 0d8c 00d8 | | Load_Top At_Offset_0 0d8d 1c00 | | Execute_Immediate Run_Utility,0x0 0d8e e00c | | Load 0x0,0xc 0d8f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d90 02c7 | | Declare_Variable Any 0d91 00d8 | | Load_Top At_Offset_0 0d92 1c00 | | Execute_Immediate Run_Utility,0x0 0d93 029f 14eb | | Declare_Subprogram INIT_14e8,For_Call 0d95 BODY_0d80: 0d95 4800 |H | Short_Literal 0x0 0d96 a5fc | | Store_Unchecked 0x2,-0x4 0d97 e00c | | Load 0x0,0xc 0d98 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d99 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d9a 00db | | Load_Top At_Offset_3 0d9b 60a8 |` | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00004000} 0d9c e011 | | Load 0x0,0x11 0d9d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d9e e017 | | Load 0x0,0x17 0d9f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0da0 e018 | | Load 0x0,0x18 0da1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0da2 4801 |H | Short_Literal 0x1 0da3 4800 |H | Short_Literal 0x0 0da4 e017 | | Load 0x0,0x17 0da5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0da6 e00c | | Load 0x0,0xc 0da7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0da8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0da9 e5ff | | Load 0x2,-0x1 0daa 0092 172c | ,| Action Push_String_Extended,0x172c ; ".??'c(library)" 0dac 01cc | | Execute Vector,Catenate 0dad e00c | | Load 0x0,0xc 0dae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0daf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0db0 c404 | | Store 0x2,0x4 0db1 c402 | | Store 0x2,0x2 0db2 e402 | | Load 0x2,0x2 0db3 6819 |h | Jump_Zero 0xdcd 0db4 e5fe | | Load 0x2,-0x2 0db5 4801 |H | Short_Literal 0x1 0db6 4801 |H | Short_Literal 0x1 0db7 e00b | | Load 0x0,0xb 0db8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0db9 035b | [ | Declare_Type Array,Constrained 0dba 0337 | 7 | Declare_Variable Array 0dbb e5ff | | Load 0x2,-0x1 0dbc 0092 172d | -| Action Push_String_Extended,0x172d ; "??'c(library)" 0dbe 01cc | | Execute Vector,Catenate 0dbf e00b | | Load 0x0,0xb 0dc0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc1 e00b | | Load 0x0,0xb 0dc2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dc3 0119 | | Execute Any,Check_In_Formal_Type 0dc4 4801 |H | Short_Literal 0x1 0dc5 00da | | Load_Top At_Offset_2 0dc6 01d6 | | Execute Vector,Field_Write 0dc7 6078 |`x | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0dc8 e001 | | Load 0x0,0x1 0dc9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0dca 6075 |`u | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0dcb a5fc | | Store_Unchecked 0x2,-0x4 0dcc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0dcd 00da | | Load_Top At_Offset_2 0dce e00c | | Load 0x0,0xc 0dcf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0dd0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0dd1 6819 |h | Jump_Zero 0xdeb 0dd2 e5fe | | Load 0x2,-0x2 0dd3 4801 |H | Short_Literal 0x1 0dd4 4801 |H | Short_Literal 0x1 0dd5 e00b | | Load 0x0,0xb 0dd6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dd7 035b | [ | Declare_Type Array,Constrained 0dd8 0337 | 7 | Declare_Variable Array 0dd9 e5ff | | Load 0x2,-0x1 0dda 0092 172d | -| Action Push_String_Extended,0x172d ; "??'c(library)" 0ddc 01cc | | Execute Vector,Catenate 0ddd e00b | | Load 0x0,0xb 0dde 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ddf e00b | | Load 0x0,0xb 0de0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0de1 0119 | | Execute Any,Check_In_Formal_Type 0de2 4801 |H | Short_Literal 0x1 0de3 00da | | Load_Top At_Offset_2 0de4 01d6 | | Execute Vector,Field_Write 0de5 605a |`Z | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0de6 e001 | | Load 0x0,0x1 0de7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0de8 6057 |`W | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0de9 a5fc | | Store_Unchecked 0x2,-0x4 0dea 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0deb 00cf | | Action Mark_Auxiliary 0dec 7832 |x2 | Jump 0xe1f 0ded e00c | | Load 0x0,0xc 0dee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0def 00db | | Load_Top At_Offset_3 0df0 0120 | | Execute Any,Is_Value 0df1 6803 |h | Jump_Zero 0xdf5 0df2 e00c | | Load 0x0,0xc 0df3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0df4 7801 |x | Jump 0xdf6 0df5 00db | | Load_Top At_Offset_3 0df6 e404 | | Load 0x2,0x4 0df7 e00c | | Load 0x0,0xc 0df8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0df9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0dfa c405 | | Store 0x2,0x5 0dfb c403 | | Store 0x2,0x3 0dfc e403 | | Load 0x2,0x3 0dfd 6819 |h | Jump_Zero 0xe17 0dfe e5fe | | Load 0x2,-0x2 0dff 4801 |H | Short_Literal 0x1 0e00 4801 |H | Short_Literal 0x1 0e01 e00b | | Load 0x0,0xb 0e02 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e03 035b | [ | Declare_Type Array,Constrained 0e04 0337 | 7 | Declare_Variable Array 0e05 e5ff | | Load 0x2,-0x1 0e06 0092 172d | -| Action Push_String_Extended,0x172d ; "??'c(library)" 0e08 01cc | | Execute Vector,Catenate 0e09 e00b | | Load 0x0,0xb 0e0a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e0b e00b | | Load 0x0,0xb 0e0c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e0d 0119 | | Execute Any,Check_In_Formal_Type 0e0e 4801 |H | Short_Literal 0x1 0e0f 00da | | Load_Top At_Offset_2 0e10 01d6 | | Execute Vector,Field_Write 0e11 602e |`. | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0e12 e001 | | Load 0x0,0x1 0e13 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e14 602b |`+ | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0e15 a5fc | | Store_Unchecked 0x2,-0x4 0e16 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0e17 00da | | Load_Top At_Offset_2 0e18 8406 | | Call 0x2,0x6 0e19 00db | | Load_Top At_Offset_3 0e1a e00c | | Load 0x0,0xc 0e1b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e1c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e1d c404 | | Store 0x2,0x4 0e1e 00c9 | | Action Pop_Auxiliary_Loop 0e1f 00db | | Load_Top At_Offset_3 0e20 e00c | | Load 0x0,0xc 0e21 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e22 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e23 6fc9 |o | Jump_Zero 0xded 0e24 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0e25 TRAP_0d80: 0e25 0007 | | Action Break_Optional 0e26 e5fe | | Load 0x2,-0x2 0e27 4801 |H | Short_Literal 0x1 0e28 4801 |H | Short_Literal 0x1 0e29 e00b | | Load 0x0,0xb 0e2a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e2b 035b | [ | Declare_Type Array,Constrained 0e2c 0337 | 7 | Declare_Variable Array 0e2d e5ff | | Load 0x2,-0x1 0e2e e00b | | Load 0x0,0xb 0e2f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e30 e00b | | Load 0x0,0xb 0e31 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e32 0119 | | Execute Any,Check_In_Formal_Type 0e33 4801 |H | Short_Literal 0x1 0e34 00da | | Load_Top At_Offset_2 0e35 01d6 | | Execute Vector,Field_Write 0e36 6005 |` | Indirect_Literal Discrete,0xe3c,{0x00000000, 0x000081b6} 0e37 e001 | | Load 0x0,0x1 0e38 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e39 6002 |` | Indirect_Literal Discrete,0xe3c,{0x00000000, 0x000081b6} 0e3a a5fc | | Store_Unchecked 0x2,-0x4 0e3b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0e3c 0000 0000 | | .LITERAL {0x00000000, 0x000081b6} 0e40 0000 0000 | | .LITERAL {0x00000000, 0x00008197} 0e44 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0e48 ; -------------------------------------------------------------------------------------- 0e48 ; SUBPROGRAM 0e48 ; -------------------------------------------------------------------------------------- 0e48 0e63 | c | .CONST 0x0e63 ; Address of begin 0e49 0ec6 | | .CONST 0x0ec6 ; Address of exception handler 0e4a 0009 | | .CONST 0x0009 ; Number of locals 0e4b INIT_0e48: 0e4b e00c | | Load 0x0,0xc 0e4c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e4d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e4e e00c | | Load 0x0,0xc 0e4f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e50 0092 172e | .| Action Push_String_Extended,0x172e ; "_secondary_" 0e52 e00c | | Load 0x0,0xc 0e53 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e54 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0e55 02c7 | | Declare_Variable Any 0e56 00d8 | | Load_Top At_Offset_0 0e57 1c00 | | Execute_Immediate Run_Utility,0x0 0e58 e00c | | Load 0x0,0xc 0e59 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e5a 02c7 | | Declare_Variable Any 0e5b 00d8 | | Load_Top At_Offset_0 0e5c 1c00 | | Execute_Immediate Run_Utility,0x0 0e5d 029f 1533 | 3| Declare_Subprogram INIT_1530,For_Call 0e5f 029f 1563 | c| Declare_Subprogram INIT_1560,For_Call 0e61 029f 158b | | Declare_Subprogram INIT_1588,For_Call 0e63 BODY_0e48: 0e63 4800 |H | Short_Literal 0x0 0e64 a5fd | | Store_Unchecked 0x2,-0x3 0e65 e00c | | Load 0x0,0xc 0e66 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e67 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e68 e405 | | Load 0x2,0x5 0e69 67da |g | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00004000} 0e6a e011 | | Load 0x0,0x11 0e6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e6c e017 | | Load 0x0,0x17 0e6d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e6e e018 | | Load 0x0,0x18 0e6f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e70 4801 |H | Short_Literal 0x1 0e71 4800 |H | Short_Literal 0x0 0e72 e017 | | Load 0x0,0x17 0e73 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e74 e00c | | Load 0x0,0xc 0e75 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e76 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0e77 e5ff | | Load 0x2,-0x1 0e78 0092 172f | /| Action Push_String_Extended,0x172f ; ".??[@_secondary_@_spec,@_secondary_@_body]" 0e7a 01cc | | Execute Vector,Catenate 0e7b e00c | | Load 0x0,0xc 0e7c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e7d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0e7e c405 | | Store 0x2,0x5 0e7f c402 | | Store 0x2,0x2 0e80 e402 | | Load 0x2,0x2 0e81 6803 |h | Jump_Zero 0xe85 0e82 4800 |H | Short_Literal 0x0 0e83 a5fd | | Store_Unchecked 0x2,-0x3 0e84 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e85 e405 | | Load 0x2,0x5 0e86 e00c | | Load 0x0,0xc 0e87 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e88 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0e89 6802 |h | Jump_Zero 0xe8c 0e8a 4800 |H | Short_Literal 0x0 0e8b a5fd | | Store_Unchecked 0x2,-0x3 0e8c 00cf | | Action Mark_Auxiliary 0e8d 7832 |x2 | Jump 0xec0 0e8e e00c | | Load 0x0,0xc 0e8f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e90 e406 | | Load 0x2,0x6 0e91 0120 | | Execute Any,Is_Value 0e92 6803 |h | Jump_Zero 0xe96 0e93 e00c | | Load 0x0,0xc 0e94 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e95 7801 |x | Jump 0xe97 0e96 e406 | | Load 0x2,0x6 0e97 e405 | | Load 0x2,0x5 0e98 e00c | | Load 0x0,0xc 0e99 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e9a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0e9b c406 | | Store 0x2,0x6 0e9c c403 | | Store 0x2,0x3 0e9d e403 | | Load 0x2,0x3 0e9e 6819 |h | Jump_Zero 0xeb8 0e9f 67a0 |g | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0ea0 a5fd | | Store_Unchecked 0x2,-0x3 0ea1 e5fe | | Load 0x2,-0x2 0ea2 4801 |H | Short_Literal 0x1 0ea3 4801 |H | Short_Literal 0x1 0ea4 e00b | | Load 0x0,0xb 0ea5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ea6 035b | [ | Declare_Type Array,Constrained 0ea7 0337 | 7 | Declare_Variable Array 0ea8 e5ff | | Load 0x2,-0x1 0ea9 0092 172f | /| Action Push_String_Extended,0x172f ; ".??[@_secondary_@_spec,@_secondary_@_body]" 0eab 01cc | | Execute Vector,Catenate 0eac e00b | | Load 0x0,0xb 0ead 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0eae e00b | | Load 0x0,0xb 0eaf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eb0 0119 | | Execute Any,Check_In_Formal_Type 0eb1 4801 |H | Short_Literal 0x1 0eb2 00da | | Load_Top At_Offset_2 0eb3 01d6 | | Execute Vector,Field_Write 0eb4 678b |g | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197} 0eb5 e001 | | Load 0x0,0x1 0eb6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0eb7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0eb8 e406 | | Load 0x2,0x6 0eb9 8409 | | Call 0x2,0x9 0eba e405 | | Load 0x2,0x5 0ebb e00c | | Load 0x0,0xc 0ebc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ebd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0ebe c405 | | Store 0x2,0x5 0ebf 00c9 | | Action Pop_Auxiliary_Loop 0ec0 e405 | | Load 0x2,0x5 0ec1 e00c | | Load 0x0,0xc 0ec2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ec3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0ec4 6fc9 |o | Jump_Zero 0xe8e 0ec5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ec6 TRAP_0e48: 0ec6 0007 | | Action Break_Optional 0ec7 e5fe | | Load 0x2,-0x2 0ec8 4801 |H | Short_Literal 0x1 0ec9 4801 |H | Short_Literal 0x1 0eca e00b | | Load 0x0,0xb 0ecb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ecc 035b | [ | Declare_Type Array,Constrained 0ecd 0337 | 7 | Declare_Variable Array 0ece e5ff | | Load 0x2,-0x1 0ecf e00b | | Load 0x0,0xb 0ed0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ed1 e00b | | Load 0x0,0xb 0ed2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ed3 0119 | | Execute Any,Check_In_Formal_Type 0ed4 4801 |H | Short_Literal 0x1 0ed5 00da | | Load_Top At_Offset_2 0ed6 01d6 | | Execute Vector,Field_Write 0ed7 6008 |` | Indirect_Literal Discrete,0xee0,{0x00000000, 0x000081b7} 0ed8 e001 | | Load 0x0,0x1 0ed9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0eda 6005 |` | Indirect_Literal Discrete,0xee0,{0x00000000, 0x000081b7} 0edb a5fd | | Store_Unchecked 0x2,-0x3 0edc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0edd 0000 0000 | | .XXX[0x3] 0edf 0000 | | 0ee0 0000 0000 | | .LITERAL {0x00000000, 0x000081b7} 0ee4 0000 0000 | | .BLANK 0000[0x4] 0ee8 ; -------------------------------------------------------------------------------------- 0ee8 ; SUBPROGRAM 0ee8 ; -------------------------------------------------------------------------------------- 0ee8 0eeb | | .CONST 0x0eeb ; Address of begin 0ee9 0ef8 | | .CONST 0x0ef8 ; Address of exception handler 0eea 0001 | | .CONST 0x0001 ; Number of locals 0eeb BODY_0ee8: 0eeb INIT_0ee8: 0eeb 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>" 0eed 0092 1720 | | Action Push_String_Extended,0x1720 ; "<DIRECTORIES>" 0eef e5ff | | Load 0x2,-0x1 0ef0 0092 172f | /| Action Push_String_Extended,0x172f ; ".??[@_secondary_@_spec,@_secondary_@_body]" 0ef2 01cc | | Execute Vector,Catenate 0ef3 e012 | | Load 0x0,0x12 0ef4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ef5 4800 |H | Short_Literal 0x0 0ef6 a5fd | | Store_Unchecked 0x2,-0x3 0ef7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ef8 TRAP_0ee8: 0ef8 0007 | | Action Break_Optional 0ef9 e5fe | | Load 0x2,-0x2 0efa 4801 |H | Short_Literal 0x1 0efb 4801 |H | Short_Literal 0x1 0efc e00b | | Load 0x0,0xb 0efd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0efe 035b | [ | Declare_Type Array,Constrained 0eff 0337 | 7 | Declare_Variable Array 0f00 e5ff | | Load 0x2,-0x1 0f01 e00b | | Load 0x0,0xb 0f02 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f03 e00b | | Load 0x0,0xb 0f04 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f05 0119 | | Execute Any,Check_In_Formal_Type 0f06 4801 |H | Short_Literal 0x1 0f07 00da | | Load_Top At_Offset_2 0f08 01d6 | | Execute Vector,Field_Write 0f09 6006 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x000081b5} 0f0a e001 | | Load 0x0,0x1 0f0b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f0c 6003 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x000081b5} 0f0d a5fd | | Store_Unchecked 0x2,-0x3 0f0e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f0f 0000 | | .XXX[0x1] 0f10 0000 0000 | | .LITERAL {0x00000000, 0x000081b5} 0f14 0000 0000 | | .BLANK 0000[0x4] 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f2d | - | .CONST 0x0f2d ; Address of begin 0f19 0004 | | .CONST 0x0004 ; Address of exception handler 0f1a 0007 | | .CONST 0x0007 ; Number of locals 0f1b INIT_0f18: 0f1b e00c | | Load 0x0,0xc 0f1c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0f1d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0f1e 02c7 | | Declare_Variable Any 0f1f 00d8 | | Load_Top At_Offset_0 0f20 1c00 | | Execute_Immediate Run_Utility,0x0 0f21 e00c | | Load 0x0,0xc 0f22 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f23 02c7 | | Declare_Variable Any 0f24 00d8 | | Load_Top At_Offset_0 0f25 1c00 | | Execute_Immediate Run_Utility,0x0 0f26 e001 | | Load 0x0,0x1 0f27 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f28 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f29 00e2 | | Load_Encached Integer_Cache 0f2a 00e1 | | Load_Encached Boolean_Cache 0f2b 029f 15e3 | | Declare_Subprogram INIT_15e0,For_Call 0f2d BODY_0f18: 0f2d e5ff | | Load 0x2,-0x1 0f2e e009 | | Load 0x0,0x9 0f2f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0f30 7001 |p | Jump_Nonzero 0xf32 0f31 8407 | | Call 0x2,0x7 0f32 4800 |H | Short_Literal 0x0 0f33 a5fc | | Store_Unchecked 0x2,-0x4 0f34 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f35 0000 0000 | | .XXX[0x3] 0f37 0000 | | 0f38 ; -------------------------------------------------------------------------------------- 0f38 ; SUBPROGRAM 0f38 ; -------------------------------------------------------------------------------------- 0f38 0f3b | ; | .CONST 0x0f3b ; Address of begin 0f39 0f40 | @ | .CONST 0x0f40 ; Address of exception handler 0f3a 0001 | | .CONST 0x0001 ; Number of locals 0f3b BODY_0f38: 0f3b INIT_0f38: 0f3b 00da | | Load_Top At_Offset_2 0f3c e019 | | Load 0x0,0x19 0f3d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f3e c5ff | | Store 0x2,-0x1 0f3f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f40 TRAP_0f38: 0f40 0007 | | Action Break_Optional 0f41 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f42 0000 0000 | | .BLANK 0000[0x6] 0f48 ; -------------------------------------------------------------------------------------- 0f48 ; SUBPROGRAM 0f48 ; -------------------------------------------------------------------------------------- 0f48 0f4b | K | .CONST 0x0f4b ; Address of begin 0f49 0f50 | P | .CONST 0x0f50 ; Address of exception handler 0f4a 0001 | | .CONST 0x0001 ; Number of locals 0f4b BODY_0f48: 0f4b INIT_0f48: 0f4b 00da | | Load_Top At_Offset_2 0f4c e014 | | Load 0x0,0x14 0f4d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0f4e c5ff | | Store 0x2,-0x1 0f4f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f50 TRAP_0f48: 0f50 0007 | | Action Break_Optional 0f51 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f52 0000 0000 | | .BLANK 0000[0x6] 0f58 ; -------------------------------------------------------------------------------------- 0f58 ; SUBPROGRAM 0f58 ; -------------------------------------------------------------------------------------- 0f58 0f60 | ` | .CONST 0x0f60 ; Address of begin 0f59 0f70 | p | .CONST 0x0f70 ; Address of exception handler 0f5a 0002 | | .CONST 0x0002 ; Number of locals 0f5b INIT_0f58: 0f5b e019 | | Load 0x0,0x19 0f5c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f5d 02c7 | | Declare_Variable Any 0f5e 00d8 | | Load_Top At_Offset_0 0f5f 1c00 | | Execute_Immediate Run_Utility,0x0 0f60 BODY_0f58: 0f60 00d8 | | Load_Top At_Offset_0 0f61 e011 | | Load 0x0,0x11 0f62 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f63 e00c | | Load 0x0,0xc 0f64 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0f65 00ea | | Load_Encached Null_String_Cache 0f66 e5ff | | Load 0x2,-0x1 0f67 4801 |H | Short_Literal 0x1 0f68 e019 | | Load 0x0,0x19 0f69 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0f6a c402 | | Store 0x2,0x2 0f6b 00d8 | | Load_Top At_Offset_0 0f6c e019 | | Load 0x0,0x19 0f6d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0f6e c402 | | Store 0x2,0x2 0f6f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f70 TRAP_0f58: 0f70 0007 | | Action Break_Optional 0f71 00d9 | | Load_Top At_Offset_1 0f72 8292 | | Call 0x1,0x92 0f73 c402 | | Store 0x2,0x2 0f74 e5fe | | Load 0x2,-0x2 0f75 4801 |H | Short_Literal 0x1 0f76 4801 |H | Short_Literal 0x1 0f77 e00b | | Load 0x0,0xb 0f78 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f79 035b | [ | Declare_Type Array,Constrained 0f7a 0337 | 7 | Declare_Variable Array 0f7b e5ff | | Load 0x2,-0x1 0f7c e00b | | Load 0x0,0xb 0f7d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f7e e00b | | Load 0x0,0xb 0f7f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f80 0119 | | Execute Any,Check_In_Formal_Type 0f81 4801 |H | Short_Literal 0x1 0f82 00da | | Load_Top At_Offset_2 0f83 01d6 | | Execute Vector,Field_Write 0f84 6007 |` | Indirect_Literal Discrete,0xf8c,{0x00000000, 0x00008196} 0f85 e001 | | Load 0x0,0x1 0f86 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f87 e001 | | Load 0x0,0x1 0f88 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f89 0257 | W | Execute Discrete,Raise 0f8a 0000 0000 | | .XXX[0x2] 0f8c 0000 0000 | | .LITERAL {0x00000000, 0x00008196} 0f90 ; -------------------------------------------------------------------------------------- 0f90 ; SUBPROGRAM 0f90 ; -------------------------------------------------------------------------------------- 0f90 0f93 | | .CONST 0x0f93 ; Address of begin 0f91 0004 | | .CONST 0x0004 ; Address of exception handler 0f92 0001 | | .CONST 0x0001 ; Number of locals 0f93 BODY_0f90: 0f93 INIT_0f90: 0f93 4800 |H | Short_Literal 0x0 0f94 4801 |H | Short_Literal 0x1 0f95 4801 |H | Short_Literal 0x1 0f96 6005 |` | Indirect_Literal Discrete,0xf9c,{0x00000000, 0x0000076d} 0f97 e007 | | Load 0x0,0x7 0f98 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f99 00ca | | Action Exit_Nullary_Function 0f9a 0000 0000 | | .XXX[0x2] 0f9c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 ; SUBPROGRAM 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 0fa6 | | .CONST 0x0fa6 ; Address of begin 0fa1 0004 | | .CONST 0x0004 ; Address of exception handler 0fa2 0002 | | .CONST 0x0002 ; Number of locals 0fa3 INIT_0fa0: 0fa3 00da | | Load_Top At_Offset_2 0fa4 e009 | | Load 0x0,0x9 0fa5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0fa6 BODY_0fa0: 0fa6 00d8 | | Load_Top At_Offset_0 0fa7 0092 1730 | 0| Action Push_String_Extended,0x1730 ; ".<" 0fa9 01cc | | Execute Vector,Catenate 0faa e290 | | Load 0x1,0x90 0fab 01cc | | Execute Vector,Catenate 0fac 0092 1731 | 1| Action Push_String_Extended,0x1731 ; "state>" 0fae 01cc | | Execute Vector,Catenate 0faf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 ; SUBPROGRAM 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 0fb3 | | .CONST 0x0fb3 ; Address of begin 0fb1 0004 | | .CONST 0x0004 ; Address of exception handler 0fb2 0001 | | .CONST 0x0001 ; Number of locals 0fb3 BODY_0fb0: 0fb3 INIT_0fb0: 0fb3 00da | | Load_Top At_Offset_2 0fb4 01db | | Execute Vector,Length 0fb5 0c02 | | Execute_Immediate Greater_Equal,0x2 0fb6 6810 |h | Jump_Zero 0xfc7 0fb7 4801 |H | Short_Literal 0x1 0fb8 00db | | Load_Top At_Offset_3 0fb9 01d7 | | Execute Vector,Field_Read 0fba 0f20 | | Execute_Immediate Equal,0x20 0fbb 680b |h | Jump_Zero 0xfc7 0fbc 4802 |H | Short_Literal 0x2 0fbd 00db | | Load_Top At_Offset_3 0fbe 01db | | Execute Vector,Length 0fbf 00d8 | | Load_Top At_Offset_0 0fc0 00e2 | | Load_Encached Integer_Cache 0fc1 0260 | ` | Execute Discrete,In_Type 0fc2 7001 |p | Jump_Nonzero 0xfc4 0fc3 0801 | | Execute_Immediate Raise,0x1 0fc4 e5ff | | Load 0x2,-0x1 0fc5 01cf | | Execute Vector,Slice_Read 0fc6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fc7 00da | | Load_Top At_Offset_2 0fc8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fc9 0000 0000 | | .BLANK 0000[0x7] 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 ; SUBPROGRAM 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 0fd6 | | .CONST 0x0fd6 ; Address of begin 0fd1 0004 | | .CONST 0x0004 ; Address of exception handler 0fd2 0002 | | .CONST 0x0002 ; Number of locals 0fd3 INIT_0fd0: 0fd3 00da | | Load_Top At_Offset_2 0fd4 e009 | | Load 0x0,0x9 0fd5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0fd6 BODY_0fd0: 0fd6 00d8 | | Load_Top At_Offset_0 0fd7 0092 1730 | 0| Action Push_String_Extended,0x1730 ; ".<" 0fd9 01cc | | Execute Vector,Catenate 0fda e290 | | Load 0x1,0x90 0fdb 01cc | | Execute Vector,Catenate 0fdc e5fe | | Load 0x2,-0x2 0fdd 01cc | | Execute Vector,Catenate 0fde 0092 1732 | 2| Action Push_String_Extended,0x1732 ; ">" 0fe0 01cc | | Execute Vector,Catenate 0fe1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0fe2 0000 0000 | | .BLANK 0000[0x6] 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 ; SUBPROGRAM 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 0ff3 | | .CONST 0x0ff3 ; Address of begin 0fe9 0004 | | .CONST 0x0004 ; Address of exception handler 0fea 0003 | | .CONST 0x0003 ; Number of locals 0feb INIT_0fe8: 0feb e00c | | Load 0x0,0xc 0fec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0fed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fee e00c | | Load 0x0,0xc 0fef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ff0 02c7 | | Declare_Variable Any 0ff1 00d8 | | Load_Top At_Offset_0 0ff2 1c00 | | Execute_Immediate Run_Utility,0x0 0ff3 BODY_0fe8: 0ff3 e00c | | Load 0x0,0xc 0ff4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ff5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ff6 00d9 | | Load_Top At_Offset_1 0ff7 0120 | | Execute Any,Is_Value 0ff8 6803 |h | Jump_Zero 0xffc 0ff9 e00c | | Load 0x0,0xc 0ffa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ffb 7801 |x | Jump 0xffd 0ffc 00d9 | | Load_Top At_Offset_1 0ffd 6016 |` | Indirect_Literal Discrete,0x1014,{0x00000000, 0x00004000} 0ffe e011 | | Load 0x0,0x11 0fff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1000 e017 | | Load 0x0,0x17 1001 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1002 e00c | | Load 0x0,0xc 1003 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1004 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1005 e5ff | | Load 0x2,-0x1 1006 e00c | | Load 0x0,0xc 1007 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1008 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1009 c403 | | Store 0x2,0x3 100a 005a | Z | Store_Top Discrete,At_Offset_2 100b 00d9 | | Load_Top At_Offset_1 100c 6803 |h | Jump_Zero 0x1010 100d e00c | | Load 0x0,0xc 100e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 100f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1010 00d8 | | Load_Top At_Offset_0 1011 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1012 0000 0000 | | .XXX[0x2] 1014 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1018 ; -------------------------------------------------------------------------------------- 1018 ; SUBPROGRAM 1018 ; -------------------------------------------------------------------------------------- 1018 1023 | # | .CONST 0x1023 ; Address of begin 1019 0004 | | .CONST 0x0004 ; Address of exception handler 101a 0003 | | .CONST 0x0003 ; Number of locals 101b INIT_1018: 101b e00c | | Load 0x0,0xc 101c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 101d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 101e e00c | | Load 0x0,0xc 101f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1020 02c7 | | Declare_Variable Any 1021 00d8 | | Load_Top At_Offset_0 1022 1c00 | | Execute_Immediate Run_Utility,0x0 1023 BODY_1018: 1023 e00c | | Load 0x0,0xc 1024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1025 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1026 00d9 | | Load_Top At_Offset_1 1027 0120 | | Execute Any,Is_Value 1028 6803 |h | Jump_Zero 0x102c 1029 e00c | | Load 0x0,0xc 102a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 102b 7801 |x | Jump 0x102d 102c 00d9 | | Load_Top At_Offset_1 102d 67e6 |g | Indirect_Literal Discrete,0x1014,{0x00000000, 0x00004000} 102e e011 | | Load 0x0,0x11 102f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1030 e017 | | Load 0x0,0x17 1031 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1032 e00c | | Load 0x0,0xc 1033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1034 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1035 e5ff | | Load 0x2,-0x1 1036 e00c | | Load 0x0,0xc 1037 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1038 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1039 c403 | | Store 0x2,0x3 103a 005a | Z | Store_Top Discrete,At_Offset_2 103b 00d9 | | Load_Top At_Offset_1 103c 6816 |h | Jump_Zero 0x1053 103d e5fe | | Load 0x2,-0x2 103e 4801 |H | Short_Literal 0x1 103f 4801 |H | Short_Literal 0x1 1040 e00b | | Load 0x0,0xb 1041 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1042 035b | [ | Declare_Type Array,Constrained 1043 0337 | 7 | Declare_Variable Array 1044 e5ff | | Load 0x2,-0x1 1045 e00b | | Load 0x0,0xb 1046 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1047 e00b | | Load 0x0,0xb 1048 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1049 0119 | | Execute Any,Check_In_Formal_Type 104a 4801 |H | Short_Literal 0x1 104b 00da | | Load_Top At_Offset_2 104c 01d6 | | Execute Vector,Field_Write 104d 600a |` | Indirect_Literal Discrete,0x1058,{0x00000000, 0x00008197} 104e e001 | | Load 0x0,0x1 104f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1050 e001 | | Load 0x0,0x1 1051 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1052 0257 | W | Execute Discrete,Raise 1053 00d8 | | Load_Top At_Offset_0 1054 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1055 0000 0000 | | .XXX[0x3] 1057 0000 | | 1058 0000 0000 | | .LITERAL {0x00000000, 0x00008197} 105c 0000 0000 | | .BLANK 0000[0x4] 1060 ; -------------------------------------------------------------------------------------- 1060 ; SUBPROGRAM 1060 ; -------------------------------------------------------------------------------------- 1060 106c | l | .CONST 0x106c ; Address of begin 1061 0004 | | .CONST 0x0004 ; Address of exception handler 1062 0003 | | .CONST 0x0003 ; Number of locals 1063 INIT_1060: 1063 e00c | | Load 0x0,0xc 1064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1065 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1066 02c7 | | Declare_Variable Any 1067 00d8 | | Load_Top At_Offset_0 1068 1c00 | | Execute_Immediate Run_Utility,0x0 1069 e00c | | Load 0x0,0xc 106a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 106b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 106c BODY_1060: 106c e00c | | Load 0x0,0xc 106d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 106e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 106f 00da | | Load_Top At_Offset_2 1070 601f |` | Indirect_Literal Discrete,0x1090,{0x00000000, 0x00004000} 1071 e011 | | Load 0x0,0x11 1072 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1073 e017 | | Load 0x0,0x17 1074 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1075 e018 | | Load 0x0,0x18 1076 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1077 4801 |H | Short_Literal 0x1 1078 4800 |H | Short_Literal 0x0 1079 e017 | | Load 0x0,0x17 107a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 107b e00c | | Load 0x0,0xc 107c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 107d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 107e e5ff | | Load 0x2,-0x1 107f e00c | | Load 0x0,0xc 1080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1081 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1082 c402 | | Store 0x2,0x2 1083 0059 | Y | Store_Top Discrete,At_Offset_1 1084 00d8 | | Load_Top At_Offset_0 1085 0e00 | | Execute_Immediate Not_Equal,0x0 1086 00d9 | | Load_Top At_Offset_1 1087 0e03 | | Execute_Immediate Not_Equal,0x3 1088 0279 | y | Execute Discrete,And 1089 6804 |h | Jump_Zero 0x108e 108a e00c | | Load 0x0,0xc 108b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 108c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 108d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 108e 00d9 | | Load_Top At_Offset_1 108f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1090 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1094 0000 0000 | | .BLANK 0000[0x4] 1098 ; -------------------------------------------------------------------------------------- 1098 ; SUBPROGRAM 1098 ; -------------------------------------------------------------------------------------- 1098 109b | | .CONST 0x109b ; Address of begin 1099 0004 | | .CONST 0x0004 ; Address of exception handler 109a 0001 | | .CONST 0x0001 ; Number of locals 109b BODY_1098: 109b INIT_1098: 109b 4801 |H | Short_Literal 0x1 109c 0092 1733 | 3| Action Push_String_Extended,0x1733 ; "<DEFAULT>" 109e e5ff | | Load 0x2,-0x1 109f e01a | | Load 0x0,0x1a 10a0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 10a1 6802 |h | Jump_Zero 0x10a4 10a2 00db | | Load_Top At_Offset_3 10a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 10a4 00da | | Load_Top At_Offset_2 10a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 10a6 0000 0000 | | .XXX[0x2] 10a8 ; -------------------------------------------------------------------------------------- 10a8 ; SUBPROGRAM 10a8 ; -------------------------------------------------------------------------------------- 10a8 10b2 | | .CONST 0x10b2 ; Address of begin 10a9 0004 | | .CONST 0x0004 ; Address of exception handler 10aa 0003 | | .CONST 0x0003 ; Number of locals 10ab INIT_10a8: 10ab e00c | | Load 0x0,0xc 10ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10ad 02c7 | | Declare_Variable Any 10ae 00d8 | | Load_Top At_Offset_0 10af 1c00 | | Execute_Immediate Run_Utility,0x0 10b0 e00c | | Load 0x0,0xc 10b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10b2 BODY_10a8: 10b2 e00c | | Load 0x0,0xc 10b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10b4 00da | | Load_Top At_Offset_2 10b5 0120 | | Execute Any,Is_Value 10b6 6803 |h | Jump_Zero 0x10ba 10b7 e00c | | Load 0x0,0xc 10b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10b9 7801 |x | Jump 0x10bb 10ba 00da | | Load_Top At_Offset_2 10bb e5ff | | Load 0x2,-0x1 10bc e00c | | Load 0x0,0xc 10bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 10bf c402 | | Store 0x2,0x2 10c0 0059 | Y | Store_Top Discrete,At_Offset_1 10c1 00d8 | | Load_Top At_Offset_0 10c2 7004 |p | Jump_Nonzero 0x10c7 10c3 00d9 | | Load_Top At_Offset_1 10c4 e009 | | Load 0x0,0x9 10c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 10c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10c7 00ea | | Load_Encached Null_String_Cache 10c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10c9 0000 0000 | | .BLANK 0000[0x7] 10d0 ; -------------------------------------------------------------------------------------- 10d0 ; SUBPROGRAM 10d0 ; -------------------------------------------------------------------------------------- 10d0 10d3 | | .CONST 0x10d3 ; Address of begin 10d1 0004 | | .CONST 0x0004 ; Address of exception handler 10d2 0001 | | .CONST 0x0001 ; Number of locals 10d3 BODY_10d0: 10d3 INIT_10d0: 10d3 00da | | Load_Top At_Offset_2 10d4 e00c | | Load 0x0,0xc 10d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10d6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 10d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10d8 ; -------------------------------------------------------------------------------------- 10d8 ; SUBPROGRAM 10d8 ; -------------------------------------------------------------------------------------- 10d8 10db | | .CONST 0x10db ; Address of begin 10d9 0004 | | .CONST 0x0004 ; Address of exception handler 10da 0001 | | .CONST 0x0001 ; Number of locals 10db BODY_10d8: 10db INIT_10d8: 10db 4800 |H | Short_Literal 0x0 10dc 4800 |H | Short_Literal 0x0 10dd 4800 |H | Short_Literal 0x0 10de e5ff | | Load 0x2,-0x1 10df e008 | | Load 0x0,0x8 10e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 10e1 e008 | | Load 0x0,0x8 10e2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 10e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10e4 0000 0000 | | .BLANK 0000[0x4] 10e8 ; -------------------------------------------------------------------------------------- 10e8 ; SUBPROGRAM 10e8 ; -------------------------------------------------------------------------------------- 10e8 10eb | | .CONST 0x10eb ; Address of begin 10e9 0004 | | .CONST 0x0004 ; Address of exception handler 10ea 0001 | | .CONST 0x0001 ; Number of locals 10eb BODY_10e8: 10eb INIT_10e8: 10eb 00da | | Load_Top At_Offset_2 10ec e008 | | Load 0x0,0x8 10ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20 10ee e008 | | Load 0x0,0x8 10ef 1817 | | Execute Package,Field_Execute,Field_Number 0x17 10f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10f1 0000 0000 | | .BLANK 0000[0x7] 10f8 ; -------------------------------------------------------------------------------------- 10f8 ; SUBPROGRAM 10f8 ; -------------------------------------------------------------------------------------- 10f8 10fb | | .CONST 0x10fb ; Address of begin 10f9 0004 | | .CONST 0x0004 ; Address of exception handler 10fa 0001 | | .CONST 0x0001 ; Number of locals 10fb BODY_10f8: 10fb INIT_10f8: 10fb 00da | | Load_Top At_Offset_2 10fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 10fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10fe 0000 0000 | | .XXX[0x2] 1100 ; -------------------------------------------------------------------------------------- 1100 ; SUBPROGRAM 1100 ; -------------------------------------------------------------------------------------- 1100 1103 | | .CONST 0x1103 ; Address of begin 1101 0004 | | .CONST 0x0004 ; Address of exception handler 1102 0001 | | .CONST 0x0001 ; Number of locals 1103 BODY_1100: 1103 INIT_1100: 1103 00da | | Load_Top At_Offset_2 1104 e5fe | | Load 0x2,-0x2 1105 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1106 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1107 0000 | | .XXX[0x1] 1108 ; -------------------------------------------------------------------------------------- 1108 ; SUBPROGRAM 1108 ; -------------------------------------------------------------------------------------- 1108 110b | | .CONST 0x110b ; Address of begin 1109 1115 | | .CONST 0x1115 ; Address of exception handler 110a 0001 | | .CONST 0x0001 ; Number of locals 110b BODY_1108: 110b INIT_1108: 110b e5fd | | Load 0x2,-0x3 110c 00ea | | Load_Encached Null_String_Cache 110d e5ff | | Load 0x2,-0x1 110e 4800 |H | Short_Literal 0x0 110f e014 | | Load 0x0,0x14 1110 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1111 c5fd | | Store 0x2,-0x3 1112 4801 |H | Short_Literal 0x1 1113 a5fc | | Store_Unchecked 0x2,-0x4 1114 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1115 TRAP_1108: 1115 00d8 | | Load_Top At_Offset_0 1116 0107 | | Execute Exception,Get_Name 1117 4920 |I | Short_Literal 0x120 1118 492f |I/ | Short_Literal 0x12f 1119 0262 | b | Execute Discrete,In_Range 111a 6803 |h | Jump_Zero 0x111e 111b 4800 |H | Short_Literal 0x0 111c a5fc | | Store_Unchecked 0x2,-0x4 111d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 111e e5fd | | Load 0x2,-0x3 111f 8293 | | Call 0x1,0x93 1120 c5fd | | Store 0x2,-0x3 1121 e5fe | | Load 0x2,-0x2 1122 4801 |H | Short_Literal 0x1 1123 4801 |H | Short_Literal 0x1 1124 e00b | | Load 0x0,0xb 1125 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1126 035b | [ | Declare_Type Array,Constrained 1127 0337 | 7 | Declare_Variable Array 1128 e5ff | | Load 0x2,-0x1 1129 e00b | | Load 0x0,0xb 112a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 112b e00b | | Load 0x0,0xb 112c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 112d 0119 | | Execute Any,Check_In_Formal_Type 112e 4801 |H | Short_Literal 0x1 112f 00da | | Load_Top At_Offset_2 1130 01d6 | | Execute Vector,Field_Write 1131 6006 |` | Indirect_Literal Discrete,0x1138,{0x00000000, 0x00008198} 1132 e001 | | Load 0x0,0x1 1133 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1134 e001 | | Load 0x0,0x1 1135 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1136 0257 | W | Execute Discrete,Raise 1137 0000 | | .XXX[0x1] 1138 0000 0000 | | .LITERAL {0x00000000, 0x00008198} 113c 0000 0000 | | .BLANK 0000[0x4] 1140 ; -------------------------------------------------------------------------------------- 1140 ; SUBPROGRAM 1140 ; -------------------------------------------------------------------------------------- 1140 1143 | C | .CONST 0x1143 ; Address of begin 1141 0004 | | .CONST 0x0004 ; Address of exception handler 1142 0001 | | .CONST 0x0001 ; Number of locals 1143 BODY_1140: 1143 INIT_1140: 1143 00db | | Load_Top At_Offset_3 1144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1145 00e1 | | Load_Encached Boolean_Cache 1146 011c | | Execute Any,Convert_Unchecked 1147 1c01 | | Execute_Immediate Run_Utility,0x1 1148 00db | | Load_Top At_Offset_3 1149 e014 | | Load 0x0,0x14 114a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 114b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 114c 0000 0000 | | .BLANK 0000[0x4] 1150 ; -------------------------------------------------------------------------------------- 1150 ; SUBPROGRAM 1150 ; -------------------------------------------------------------------------------------- 1150 1161 | a | .CONST 0x1161 ; Address of begin 1151 117e | ~ | .CONST 0x117e ; Address of exception handler 1152 0004 | | .CONST 0x0004 ; Number of locals 1153 INIT_1150: 1153 e014 | | Load 0x0,0x14 1154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1155 02c7 | | Declare_Variable Any 1156 00d8 | | Load_Top At_Offset_0 1157 1c00 | | Execute_Immediate Run_Utility,0x0 1158 e00c | | Load 0x0,0xc 1159 1b0f | | Execute Package,Field_Read,Field_Number 0xf 115a 02c7 | | Declare_Variable Any 115b e5fd | | Load 0x2,-0x3 115c e5ff | | Load 0x2,-0x1 115d 829a | | Call 0x1,0x9a 115e a403 | | Store_Unchecked 0x2,0x3 115f e001 | | Load 0x0,0x1 1160 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1161 BODY_1150: 1161 e001 | | Load 0x0,0x1 1162 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1163 e5fd | | Load 0x2,-0x3 1164 00db | | Load_Top At_Offset_3 1165 e009 | | Load 0x0,0x9 1166 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 1167 0059 | Y | Store_Top Discrete,At_Offset_1 1168 00da | | Load_Top At_Offset_2 1169 00ea | | Load_Encached Null_String_Cache 116a e5ff | | Load 0x2,-0x1 116b 4801 |H | Short_Literal 0x1 116c e014 | | Load 0x0,0x14 116d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 116e c402 | | Store 0x2,0x2 116f e5fe | | Load 0x2,-0x2 1170 00db | | Load_Top At_Offset_3 1171 82a4 | | Call 0x1,0xa4 1172 00da | | Load_Top At_Offset_2 1173 e014 | | Load 0x0,0x14 1174 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1175 c402 | | Store 0x2,0x2 1176 e001 | | Load 0x0,0x1 1177 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1178 e5fd | | Load 0x2,-0x3 1179 00db | | Load_Top At_Offset_3 117a e009 | | Load 0x0,0x9 117b 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 117c 0059 | Y | Store_Top Discrete,At_Offset_1 117d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 117e TRAP_1150: 117e 0007 | | Action Break_Optional 117f 00db | | Load_Top At_Offset_3 1180 8293 | | Call 0x1,0x93 1181 c402 | | Store 0x2,0x2 1182 e5fd | | Load 0x2,-0x3 1183 4801 |H | Short_Literal 0x1 1184 4801 |H | Short_Literal 0x1 1185 e00b | | Load 0x0,0xb 1186 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1187 035b | [ | Declare_Type Array,Constrained 1188 0337 | 7 | Declare_Variable Array 1189 e5ff | | Load 0x2,-0x1 118a e00b | | Load 0x0,0xb 118b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 118c e00b | | Load 0x0,0xb 118d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 118e 0119 | | Execute Any,Check_In_Formal_Type 118f 4801 |H | Short_Literal 0x1 1190 00da | | Load_Top At_Offset_2 1191 01d6 | | Execute Vector,Field_Write 1192 6005 |` | Indirect_Literal Discrete,0x1198,{0x00000000, 0x00008199} 1193 e001 | | Load 0x0,0x1 1194 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1195 e001 | | Load 0x0,0x1 1196 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1197 0257 | W | Execute Discrete,Raise 1198 0000 0000 | | .LITERAL {0x00000000, 0x00008199} 119c 0000 0000 | | .BLANK 0000[0x4] 11a0 ; -------------------------------------------------------------------------------------- 11a0 ; SUBPROGRAM 11a0 ; -------------------------------------------------------------------------------------- 11a0 11b1 | | .CONST 0x11b1 ; Address of begin 11a1 11d1 | | .CONST 0x11d1 ; Address of exception handler 11a2 0005 | | .CONST 0x0005 ; Number of locals 11a3 INIT_11a0: 11a3 e014 | | Load 0x0,0x14 11a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11a5 02c7 | | Declare_Variable Any 11a6 00d8 | | Load_Top At_Offset_0 11a7 1c00 | | Execute_Immediate Run_Utility,0x0 11a8 e28f | | Load 0x1,0x8f 11a9 0322 | " | Declare_Variable Record 11aa e00c | | Load 0x0,0xc 11ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11ac 02c7 | | Declare_Variable Any 11ad 00d8 | | Load_Top At_Offset_0 11ae 1c00 | | Execute_Immediate Run_Utility,0x0 11af e001 | | Load 0x0,0x1 11b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11b1 BODY_11a0: 11b1 00db | | Load_Top At_Offset_3 11b2 00ea | | Load_Encached Null_String_Cache 11b3 e5ff | | Load 0x2,-0x1 11b4 4801 |H | Short_Literal 0x1 11b5 e014 | | Load 0x0,0x14 11b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 11b7 c402 | | Store 0x2,0x2 11b8 4800 |H | Short_Literal 0x0 11b9 00db | | Load_Top At_Offset_3 11ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 11bb 00da | | Load_Top At_Offset_2 11bc e402 | | Load 0x2,0x2 11bd 82a4 | | Call 0x1,0xa4 11be 00db | | Load_Top At_Offset_3 11bf e014 | | Load 0x0,0x14 11c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 11c1 c402 | | Store 0x2,0x2 11c2 e5fe | | Load 0x2,-0x2 11c3 e5ff | | Load 0x2,-0x1 11c4 829a | | Call 0x1,0x9a 11c5 c404 | | Store 0x2,0x4 11c6 e001 | | Load 0x0,0x1 11c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11c8 e5fe | | Load 0x2,-0x2 11c9 00db | | Load_Top At_Offset_3 11ca e009 | | Load 0x0,0x9 11cb 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 11cc 0059 | Y | Store_Top Discrete,At_Offset_1 11cd 00da | | Load_Top At_Offset_2 11ce e5fd | | Load 0x2,-0x3 11cf 017d | } | Execute Record,Structure_Write 11d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11d1 TRAP_11a0: 11d1 0007 | | Action Break_Optional 11d2 e5fe | | Load 0x2,-0x2 11d3 4801 |H | Short_Literal 0x1 11d4 4801 |H | Short_Literal 0x1 11d5 e00b | | Load 0x0,0xb 11d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11d7 035b | [ | Declare_Type Array,Constrained 11d8 0337 | 7 | Declare_Variable Array 11d9 e5ff | | Load 0x2,-0x1 11da e00b | | Load 0x0,0xb 11db 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11dc e00b | | Load 0x0,0xb 11dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 11de 0119 | | Execute Any,Check_In_Formal_Type 11df 4801 |H | Short_Literal 0x1 11e0 00da | | Load_Top At_Offset_2 11e1 01d6 | | Execute Vector,Field_Write 11e2 6005 |` | Indirect_Literal Discrete,0x11e8,{0x00000000, 0x0000819a} 11e3 e001 | | Load 0x0,0x1 11e4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11e5 e001 | | Load 0x0,0x1 11e6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 11e7 0257 | W | Execute Discrete,Raise 11e8 0000 0000 | | .LITERAL {0x00000000, 0x0000819a} 11ec 0000 0000 | | .BLANK 0000[0x4] 11f0 ; -------------------------------------------------------------------------------------- 11f0 ; SUBPROGRAM 11f0 ; -------------------------------------------------------------------------------------- 11f0 11f9 | | .CONST 0x11f9 ; Address of begin 11f1 1214 | | .CONST 0x1214 ; Address of exception handler 11f2 0003 | | .CONST 0x0003 ; Number of locals 11f3 INIT_11f0: 11f3 e014 | | Load 0x0,0x14 11f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11f5 02c7 | | Declare_Variable Any 11f6 00d8 | | Load_Top At_Offset_0 11f7 1c00 | | Execute_Immediate Run_Utility,0x0 11f8 00e1 | | Load_Encached Boolean_Cache 11f9 BODY_11f0: 11f9 00e1 | | Load_Encached Boolean_Cache 11fa 00da | | Load_Top At_Offset_2 11fb e5fe | | Load 0x2,-0x2 11fc e5ff | | Load 0x2,-0x1 11fd 82a3 | | Call 0x1,0xa3 11fe c402 | | Store 0x2,0x2 11ff 0059 | Y | Store_Top Discrete,At_Offset_1 1200 00d8 | | Load_Top At_Offset_0 1201 7006 |p | Jump_Nonzero 0x1208 1202 e5fd | | Load 0x2,-0x3 1203 e5fe | | Load 0x2,-0x2 1204 e5ff | | Load 0x2,-0x1 1205 82a6 | | Call 0x1,0xa6 1206 00d1 | | Pop_Control Pop_Count_1 1207 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1208 00d9 | | Load_Top At_Offset_1 1209 e014 | | Load 0x0,0x14 120a 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 120b 00e1 | | Load_Encached Boolean_Cache 120c 1c02 | | Execute_Immediate Run_Utility,0x2 120d e5fd | | Load 0x2,-0x3 120e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 120f 00d9 | | Load_Top At_Offset_1 1210 e014 | | Load 0x0,0x14 1211 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1212 c402 | | Store 0x2,0x2 1213 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1214 TRAP_11f0: 1214 0007 | | Action Break_Optional 1215 e5fe | | Load 0x2,-0x2 1216 4801 |H | Short_Literal 0x1 1217 4801 |H | Short_Literal 0x1 1218 e00b | | Load 0x0,0xb 1219 1b0f | | Execute Package,Field_Read,Field_Number 0xf 121a 035b | [ | Declare_Type Array,Constrained 121b 0337 | 7 | Declare_Variable Array 121c e5ff | | Load 0x2,-0x1 121d e00b | | Load 0x0,0xb 121e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 121f e00b | | Load 0x0,0xb 1220 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1221 0119 | | Execute Any,Check_In_Formal_Type 1222 4801 |H | Short_Literal 0x1 1223 00da | | Load_Top At_Offset_2 1224 01d6 | | Execute Vector,Field_Write 1225 6006 |` | Indirect_Literal Discrete,0x122c,{0x00000000, 0x0000819b} 1226 e001 | | Load 0x0,0x1 1227 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1228 e001 | | Load 0x0,0x1 1229 1b17 | | Execute Package,Field_Read,Field_Number 0x17 122a 0257 | W | Execute Discrete,Raise 122b 0000 | | .XXX[0x1] 122c 0000 0000 | | .LITERAL {0x00000000, 0x0000819b} 1230 ; -------------------------------------------------------------------------------------- 1230 ; SUBPROGRAM 1230 ; -------------------------------------------------------------------------------------- 1230 123a | : | .CONST 0x123a ; Address of begin 1231 1247 | G | .CONST 0x1247 ; Address of exception handler 1232 0003 | | .CONST 0x0003 ; Number of locals 1233 INIT_1230: 1233 e014 | | Load 0x0,0x14 1234 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1235 02c7 | | Declare_Variable Any 1236 00d8 | | Load_Top At_Offset_0 1237 1c00 | | Execute_Immediate Run_Utility,0x0 1238 029f 1623 | #| Declare_Subprogram INIT_1620,For_Call 123a BODY_1230: 123a 00d9 | | Load_Top At_Offset_1 123b 00ea | | Load_Encached Null_String_Cache 123c e5ff | | Load 0x2,-0x1 123d 4800 |H | Short_Literal 0x0 123e e014 | | Load 0x0,0x14 123f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1240 c402 | | Store 0x2,0x2 1241 8403 | | Call 0x2,0x3 1242 00d9 | | Load_Top At_Offset_1 1243 e014 | | Load 0x0,0x14 1244 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1245 c402 | | Store 0x2,0x2 1246 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1247 TRAP_1230: 1247 0007 | | Action Break_Optional 1248 00da | | Load_Top At_Offset_2 1249 8293 | | Call 0x1,0x93 124a c402 | | Store 0x2,0x2 124b e5fe | | Load 0x2,-0x2 124c 4801 |H | Short_Literal 0x1 124d 4801 |H | Short_Literal 0x1 124e e00b | | Load 0x0,0xb 124f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1250 035b | [ | Declare_Type Array,Constrained 1251 0337 | 7 | Declare_Variable Array 1252 e5ff | | Load 0x2,-0x1 1253 e00b | | Load 0x0,0xb 1254 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1255 e00b | | Load 0x0,0xb 1256 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1257 0119 | | Execute Any,Check_In_Formal_Type 1258 4801 |H | Short_Literal 0x1 1259 00da | | Load_Top At_Offset_2 125a 01d6 | | Execute Vector,Field_Write 125b 6008 |` | Indirect_Literal Discrete,0x1264,{0x00000000, 0x0000819c} 125c e001 | | Load 0x0,0x1 125d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 125e e001 | | Load 0x0,0x1 125f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1260 0257 | W | Execute Discrete,Raise 1261 0000 0000 | | .XXX[0x3] 1263 0000 | | 1264 0000 0000 | | .LITERAL {0x00000000, 0x0000819c} 1268 ; -------------------------------------------------------------------------------------- 1268 ; SUBPROGRAM 1268 ; -------------------------------------------------------------------------------------- 1268 126b | k | .CONST 0x126b ; Address of begin 1269 1290 | | .CONST 0x1290 ; Address of exception handler 126a 0001 | | .CONST 0x0001 ; Number of locals 126b BODY_1268: 126b INIT_1268: 126b 4801 |H | Short_Literal 0x1 126c e5fe | | Load 0x2,-0x2 126d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 126e e5fe | | Load 0x2,-0x2 126f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 1270 01cf | | Execute Vector,Slice_Read 1271 00db | | Load_Top At_Offset_3 1272 e014 | | Load 0x0,0x14 1273 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1274 4801 |H | Short_Literal 0x1 1275 e5fe | | Load 0x2,-0x2 1276 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1277 e5fe | | Load 0x2,-0x2 1278 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 1279 01cf | | Execute Vector,Slice_Read 127a 00db | | Load_Top At_Offset_3 127b e014 | | Load 0x0,0x14 127c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 127d 4801 |H | Short_Literal 0x1 127e e5fe | | Load 0x2,-0x2 127f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1280 e5fe | | Load 0x2,-0x2 1281 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 1282 01cf | | Execute Vector,Slice_Read 1283 00db | | Load_Top At_Offset_3 1284 e014 | | Load 0x0,0x14 1285 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 1286 4801 |H | Short_Literal 0x1 1287 e5fe | | Load 0x2,-0x2 1288 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 1289 e5fe | | Load 0x2,-0x2 128a 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 128b 01cf | | Execute Vector,Slice_Read 128c 00db | | Load_Top At_Offset_3 128d e014 | | Load 0x0,0x14 128e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 128f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1290 TRAP_1268: 1290 0007 | | Action Break_Optional 1291 e001 | | Load 0x0,0x1 1292 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1293 0257 | W | Execute Discrete,Raise 1294 0000 0000 | | .BLANK 0000[0x4] 1298 ; -------------------------------------------------------------------------------------- 1298 ; SUBPROGRAM 1298 ; -------------------------------------------------------------------------------------- 1298 12a0 | | .CONST 0x12a0 ; Address of begin 1299 12b0 | | .CONST 0x12b0 ; Address of exception handler 129a 0002 | | .CONST 0x0002 ; Number of locals 129b INIT_1298: 129b e014 | | Load 0x0,0x14 129c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 129d 02c7 | | Declare_Variable Any 129e 00d8 | | Load_Top At_Offset_0 129f 1c00 | | Execute_Immediate Run_Utility,0x0 12a0 BODY_1298: 12a0 00d8 | | Load_Top At_Offset_0 12a1 00ea | | Load_Encached Null_String_Cache 12a2 e5ff | | Load 0x2,-0x1 12a3 4801 |H | Short_Literal 0x1 12a4 e014 | | Load 0x0,0x14 12a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 12a6 c402 | | Store 0x2,0x2 12a7 e5fd | | Load 0x2,-0x3 12a8 e5fe | | Load 0x2,-0x2 12a9 00da | | Load_Top At_Offset_2 12aa 82a9 | | Call 0x1,0xa9 12ab 00d8 | | Load_Top At_Offset_0 12ac e014 | | Load 0x0,0x14 12ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b 12ae c402 | | Store 0x2,0x2 12af 4504 |E | Exit_Suprogram New_Top_Offset 0x4 12b0 TRAP_1298: 12b0 0007 | | Action Break_Optional 12b1 00d9 | | Load_Top At_Offset_1 12b2 8293 | | Call 0x1,0x93 12b3 c402 | | Store 0x2,0x2 12b4 e5fd | | Load 0x2,-0x3 12b5 4801 |H | Short_Literal 0x1 12b6 4801 |H | Short_Literal 0x1 12b7 e00b | | Load 0x0,0xb 12b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12b9 035b | [ | Declare_Type Array,Constrained 12ba 0337 | 7 | Declare_Variable Array 12bb e5ff | | Load 0x2,-0x1 12bc e00b | | Load 0x0,0xb 12bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12be e00b | | Load 0x0,0xb 12bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12c0 0119 | | Execute Any,Check_In_Formal_Type 12c1 4801 |H | Short_Literal 0x1 12c2 00da | | Load_Top At_Offset_2 12c3 01d6 | | Execute Vector,Field_Write 12c4 6007 |` | Indirect_Literal Discrete,0x12cc,{0x00000000, 0x0000819d} 12c5 e001 | | Load 0x0,0x1 12c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 12c7 e001 | | Load 0x0,0x1 12c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 12c9 0257 | W | Execute Discrete,Raise 12ca 0000 0000 | | .XXX[0x2] 12cc 0000 0000 | | .LITERAL {0x00000000, 0x0000819d} 12d0 ; -------------------------------------------------------------------------------------- 12d0 ; SUBPROGRAM 12d0 ; -------------------------------------------------------------------------------------- 12d0 12d5 | | .CONST 0x12d5 ; Address of begin 12d1 1324 | $ | .CONST 0x1324 ; Address of exception handler 12d2 0002 | | .CONST 0x0002 ; Number of locals 12d3 INIT_12d0: 12d3 e5fc | | Load 0x2,-0x4 12d4 829f | | Call 0x1,0x9f 12d5 BODY_12d0: 12d5 00db | | Load_Top At_Offset_3 12d6 01db | | Execute Vector,Length 12d7 0c81 | | Execute_Immediate Greater_Equal,-0x7f 12d8 e5fe | | Load 0x2,-0x2 12d9 01db | | Execute Vector,Length 12da 0c81 | | Execute_Immediate Greater_Equal,-0x7f 12db 0278 | x | Execute Discrete,Or 12dc e5fd | | Load 0x2,-0x3 12dd 01db | | Execute Vector,Length 12de 0c81 | | Execute_Immediate Greater_Equal,-0x7f 12df 0278 | x | Execute Discrete,Or 12e0 6802 |h | Jump_Zero 0x12e3 12e1 e01b | | Load 0x0,0x1b 12e2 0257 | W | Execute Discrete,Raise 12e3 00db | | Load_Top At_Offset_3 12e4 4801 |H | Short_Literal 0x1 12e5 e5ff | | Load 0x2,-0x1 12e6 01db | | Execute Vector,Length 12e7 00d8 | | Load_Top At_Offset_0 12e8 00e2 | | Load_Encached Integer_Cache 12e9 0260 | ` | Execute Discrete,In_Type 12ea 7001 |p | Jump_Nonzero 0x12ec 12eb 0801 | | Execute_Immediate Raise,0x1 12ec e5fa | | Load 0x2,-0x6 12ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 12ee 01ce | | Execute Vector,Slice_Write 12ef 00db | | Load_Top At_Offset_3 12f0 01db | | Execute Vector,Length 12f1 e5fa | | Load 0x2,-0x6 12f2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 12f3 e5fe | | Load 0x2,-0x2 12f4 4801 |H | Short_Literal 0x1 12f5 e5fe | | Load 0x2,-0x2 12f6 01db | | Execute Vector,Length 12f7 00d8 | | Load_Top At_Offset_0 12f8 00e2 | | Load_Encached Integer_Cache 12f9 0260 | ` | Execute Discrete,In_Type 12fa 7001 |p | Jump_Nonzero 0x12fc 12fb 0801 | | Execute_Immediate Raise,0x1 12fc e5fa | | Load 0x2,-0x6 12fd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 12fe 01ce | | Execute Vector,Slice_Write 12ff e5fe | | Load 0x2,-0x2 1300 01db | | Execute Vector,Length 1301 e5fa | | Load 0x2,-0x6 1302 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1303 e5fd | | Load 0x2,-0x3 1304 4801 |H | Short_Literal 0x1 1305 e5fd | | Load 0x2,-0x3 1306 01db | | Execute Vector,Length 1307 00d8 | | Load_Top At_Offset_0 1308 00e2 | | Load_Encached Integer_Cache 1309 0260 | ` | Execute Discrete,In_Type 130a 7001 |p | Jump_Nonzero 0x130c 130b 0801 | | Execute_Immediate Raise,0x1 130c e5fa | | Load 0x2,-0x6 130d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 130e 01ce | | Execute Vector,Slice_Write 130f e5fd | | Load 0x2,-0x3 1310 01db | | Execute Vector,Length 1311 e5fa | | Load 0x2,-0x6 1312 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1313 00d8 | | Load_Top At_Offset_0 1314 4801 |H | Short_Literal 0x1 1315 00da | | Load_Top At_Offset_2 1316 01db | | Execute Vector,Length 1317 00d8 | | Load_Top At_Offset_0 1318 00e2 | | Load_Encached Integer_Cache 1319 0260 | ` | Execute Discrete,In_Type 131a 7001 |p | Jump_Nonzero 0x131c 131b 0801 | | Execute_Immediate Raise,0x1 131c e5fa | | Load 0x2,-0x6 131d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 131e 01ce | | Execute Vector,Slice_Write 131f 00d8 | | Load_Top At_Offset_0 1320 01db | | Execute Vector,Length 1321 e5fa | | Load 0x2,-0x6 1322 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 1323 4506 |E | Exit_Suprogram New_Top_Offset 0x6 1324 TRAP_12d0: 1324 e01b | | Load 0x0,0x1b 1325 010f | | Execute Exception,Equal 1326 6817 |h | Jump_Zero 0x133e 1327 e5fb | | Load 0x2,-0x5 1328 4801 |H | Short_Literal 0x1 1329 4801 |H | Short_Literal 0x1 132a e00b | | Load 0x0,0xb 132b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 132c 035b | [ | Declare_Type Array,Constrained 132d 0337 | 7 | Declare_Variable Array 132e 0092 171c | | Action Push_String_Extended,0x171c ; " 128" 1330 e00b | | Load 0x0,0xb 1331 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1332 e00b | | Load 0x0,0xb 1333 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1334 0119 | | Execute Any,Check_In_Formal_Type 1335 4801 |H | Short_Literal 0x1 1336 00da | | Load_Top At_Offset_2 1337 01d6 | | Execute Vector,Field_Write 1338 6013 |` | Indirect_Literal Discrete,0x134c,{0x00000000, 0x0000819e} 1339 e001 | | Load 0x0,0x1 133a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 133b e001 | | Load 0x0,0x1 133c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 133d 0257 | W | Execute Discrete,Raise 133e e5fb | | Load 0x2,-0x5 133f e00b | | Load 0x0,0xb 1340 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1341 6006 |` | Indirect_Literal Discrete,0x1348,{0x00000000, 0x0000819f} 1342 e001 | | Load 0x0,0x1 1343 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1344 e001 | | Load 0x0,0x1 1345 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1346 0257 | W | Execute Discrete,Raise 1347 0000 | | .XXX[0x1] 1348 0000 0000 | | .LITERAL {0x00000000, 0x0000819f} 134c 0000 0000 | | .LITERAL {0x00000000, 0x0000819e} 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1367 | g | .CONST 0x1367 ; Address of begin 1351 1398 | | .CONST 0x1398 ; Address of exception handler 1352 0006 | | .CONST 0x0006 ; Number of locals 1353 INIT_1350: 1353 e014 | | Load 0x0,0x14 1354 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1355 02c7 | | Declare_Variable Any 1356 00d8 | | Load_Top At_Offset_0 1357 1c00 | | Execute_Immediate Run_Utility,0x0 1358 e26f | o | Load 0x1,0x6f 1359 0322 | " | Declare_Variable Record 135a 00d8 | | Load_Top At_Offset_0 135b 1c00 | | Execute_Immediate Run_Utility,0x0 135c e001 | | Load 0x0,0x1 135d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 135e e5fd | | Load 0x2,-0x3 135f e5ff | | Load 0x2,-0x1 1360 8298 | | Call 0x1,0x98 1361 e00c | | Load 0x0,0xc 1362 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1363 02c7 | | Declare_Variable Any 1364 00d9 | | Load_Top At_Offset_1 1365 8299 | | Call 0x1,0x99 1366 a406 | | Store_Unchecked 0x2,0x6 1367 BODY_1350: 1367 00d8 | | Load_Top At_Offset_0 1368 e00c | | Load 0x0,0xc 1369 1810 | | Execute Package,Field_Execute,Field_Number 0x10 136a 012e | . | Execute Any,Not_Equal 136b 6807 |h | Jump_Zero 0x1373 136c e001 | | Load 0x0,0x1 136d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 136e e5fb | | Load 0x2,-0x5 136f 00da | | Load_Top At_Offset_2 1370 e009 | | Load 0x0,0x9 1371 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 1372 005b | [ | Store_Top Discrete,At_Offset_3 1373 e402 | | Load 0x2,0x2 1374 00ea | | Load_Encached Null_String_Cache 1375 00db | | Load_Top At_Offset_3 1376 4801 |H | Short_Literal 0x1 1377 e014 | | Load 0x0,0x14 1378 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1379 c402 | | Store 0x2,0x2 137a 00db | | Load_Top At_Offset_3 137b e5fb | | Load 0x2,-0x5 137c 8295 | | Call 0x1,0x95 137d e5fd | | Load 0x2,-0x3 137e e5fc | | Load 0x2,-0x4 137f 829c | | Call 0x1,0x9c 1380 e5fd | | Load 0x2,-0x3 1381 e5fe | | Load 0x2,-0x2 1382 82ab | | Call 0x1,0xab 1383 00d1 | | Pop_Control Pop_Count_1 1384 e5fb | | Load 0x2,-0x5 1385 e403 | | Load 0x2,0x3 1386 e402 | | Load 0x2,0x2 1387 82a9 | | Call 0x1,0xa9 1388 e402 | | Load 0x2,0x2 1389 e014 | | Load 0x0,0x14 138a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 138b c402 | | Store 0x2,0x2 138c e5fb | | Load 0x2,-0x5 138d 00da | | Load_Top At_Offset_2 138e 829a | | Call 0x1,0x9a 138f c406 | | Store 0x2,0x6 1390 e001 | | Load 0x0,0x1 1391 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1392 e5fb | | Load 0x2,-0x5 1393 00da | | Load_Top At_Offset_2 1394 e009 | | Load 0x0,0x9 1395 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 1396 005b | [ | Store_Top Discrete,At_Offset_3 1397 4506 |E | Exit_Suprogram New_Top_Offset 0x6 1398 TRAP_1350: 1398 0007 | | Action Break_Optional 1399 e5fb | | Load 0x2,-0x5 139a 4801 |H | Short_Literal 0x1 139b 4801 |H | Short_Literal 0x1 139c e00b | | Load 0x0,0xb 139d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 139e 035b | [ | Declare_Type Array,Constrained 139f 0337 | 7 | Declare_Variable Array 13a0 e405 | | Load 0x2,0x5 13a1 e00b | | Load 0x0,0xb 13a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13a3 e00b | | Load 0x0,0xb 13a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13a5 0119 | | Execute Any,Check_In_Formal_Type 13a6 4801 |H | Short_Literal 0x1 13a7 00da | | Load_Top At_Offset_2 13a8 01d6 | | Execute Vector,Field_Write 13a9 6006 |` | Indirect_Literal Discrete,0x13b0,{0x00000000, 0x000081a0} 13aa e001 | | Load 0x0,0x1 13ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 13ac e001 | | Load 0x0,0x1 13ad 1b17 | | Execute Package,Field_Read,Field_Number 0x17 13ae 0257 | W | Execute Discrete,Raise 13af 0000 | | .XXX[0x1] 13b0 0000 0000 | | .LITERAL {0x00000000, 0x000081a0} 13b4 0000 0000 | | .BLANK 0000[0x4] 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 4800 |H | Short_Literal 0x0 13bc e5fe | | Load 0x2,-0x2 13bd 4821 |H! | Short_Literal 0x21 13be e01a | | Load 0x0,0x1a 13bf 181e | | Execute Package,Field_Execute,Field_Number 0x1e 13c0 6802 |h | Jump_Zero 0x13c3 13c1 00db | | Load_Top At_Offset_3 13c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 13c3 00da | | Load_Top At_Offset_2 13c4 e009 | | Load 0x0,0x9 13c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 13c6 6809 |h | Jump_Zero 0x13d0 13c7 00da | | Load_Top At_Offset_2 13c8 e009 | | Load 0x0,0x9 13c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 13ca 0092 1734 | 4| Action Push_String_Extended,0x1734 ; ".Units." 13cc 01cc | | Execute Vector,Catenate 13cd e5fe | | Load 0x2,-0x2 13ce 01cc | | Execute Vector,Catenate 13cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 13d0 00da | | Load_Top At_Offset_2 13d1 e009 | | Load 0x0,0x9 13d2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 13d3 0092 172a | *| Action Push_String_Extended,0x172a ; "." 13d5 01cc | | Execute Vector,Catenate 13d6 e5fe | | Load 0x2,-0x2 13d7 01cc | | Execute Vector,Catenate 13d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 e009 | | Load 0x0,0x9 13e5 180e | | Execute Package,Field_Execute,Field_Number 0xe 13e6 6807 |h | Jump_Zero 0x13ee 13e7 00da | | Load_Top At_Offset_2 13e8 e009 | | Load 0x0,0x9 13e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 13ea 0092 1735 | 5| Action Push_String_Extended,0x1735 ; ".units" 13ec 01cc | | Execute Vector,Catenate 13ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13ee 00da | | Load_Top At_Offset_2 13ef e009 | | Load 0x0,0x9 13f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 13f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13f2 0000 0000 | | .BLANK 0000[0x6] 13f8 ; -------------------------------------------------------------------------------------- 13f8 ; SUBPROGRAM 13f8 ; -------------------------------------------------------------------------------------- 13f8 1415 | | .CONST 0x1415 ; Address of begin 13f9 0004 | | .CONST 0x0004 ; Address of exception handler 13fa 0009 | | .CONST 0x0009 ; Number of locals 13fb INIT_13f8: 13fb e00c | | Load 0x0,0xc 13fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13fd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 13fe 02c7 | | Declare_Variable Any 13ff 00d8 | | Load_Top At_Offset_0 1400 1c00 | | Execute_Immediate Run_Utility,0x0 1401 e00c | | Load 0x0,0xc 1402 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1403 02c7 | | Declare_Variable Any 1404 00d8 | | Load_Top At_Offset_0 1405 1c00 | | Execute_Immediate Run_Utility,0x0 1406 00e2 | | Load_Encached Integer_Cache 1407 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1408 00e1 | | Load_Encached Boolean_Cache 1409 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 140a e00c | | Load 0x0,0xc 140b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 140c e5ff | | Load 0x2,-0x1 140d 829e | | Call 0x1,0x9e 140e e00c | | Load 0x0,0xc 140f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1410 02c7 | | Declare_Variable Any 1411 00d8 | | Load_Top At_Offset_0 1412 1c00 | | Execute_Immediate Run_Utility,0x0 1413 029f 1673 | s| Declare_Subprogram INIT_1670,For_Call 1415 BODY_13f8: 1415 4800 |H | Short_Literal 0x0 1416 a5fc | | Store_Unchecked 0x2,-0x4 1417 4800 |H | Short_Literal 0x0 1418 a5fb | | Store_Unchecked 0x2,-0x5 1419 e00c | | Load 0x0,0xc 141a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 141b c5fd | | Store 0x2,-0x3 141c 00da | | Load_Top At_Offset_2 141d 8299 | | Call 0x1,0x99 141e c408 | | Store 0x2,0x8 141f 00d9 | | Load_Top At_Offset_1 1420 e00c | | Load 0x0,0xc 1421 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1422 7004 |p | Jump_Nonzero 0x1427 1423 00d9 | | Load_Top At_Offset_1 1424 e009 | | Load 0x0,0x9 1425 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1426 7001 |p | Jump_Nonzero 0x1428 1427 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1428 00da | | Load_Top At_Offset_2 1429 e291 | | Load 0x1,0x91 142a 01cc | | Execute Vector,Catenate 142b 829b | | Call 0x1,0x9b 142c c402 | | Store 0x2,0x2 142d e402 | | Load 0x2,0x2 142e e00c | | Load 0x0,0xc 142f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1430 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1431 6801 |h | Jump_Zero 0x1433 1432 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1433 00cf | | Action Mark_Auxiliary 1434 780c |x | Jump 0x1441 1435 e404 | | Load 0x2,0x4 1436 0a01 | | Execute_Immediate Plus,0x1 1437 c404 | | Store 0x2,0x4 1438 e405 | | Load 0x2,0x5 1439 7001 |p | Jump_Nonzero 0x143b 143a 8409 | | Call 0x2,0x9 143b e402 | | Load 0x2,0x2 143c e00c | | Load 0x0,0xc 143d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 143e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 143f c402 | | Store 0x2,0x2 1440 00c9 | | Action Pop_Auxiliary_Loop 1441 e402 | | Load 0x2,0x2 1442 e00c | | Load 0x0,0xc 1443 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1444 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1445 6fef |o | Jump_Zero 0x1435 1446 00ce | | Action Pop_Auxiliary 1447 e405 | | Load 0x2,0x5 1448 a5fc | | Store_Unchecked 0x2,-0x4 1449 e404 | | Load 0x2,0x4 144a a5fb | | Store_Unchecked 0x2,-0x5 144b 00d9 | | Load_Top At_Offset_1 144c c5fd | | Store 0x2,-0x3 144d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 144e 0000 0000 | | .XXX[0x2] 1450 ; -------------------------------------------------------------------------------------- 1450 ; SUBPROGRAM 1450 ; -------------------------------------------------------------------------------------- 1450 145d | ] | .CONST 0x145d ; Address of begin 1451 0004 | | .CONST 0x0004 ; Address of exception handler 1452 0003 | | .CONST 0x0003 ; Number of locals 1453 INIT_1450: 1453 e5fc | | Load 0x2,-0x4 1454 e403 | | Load 0x2,0x3 1455 e5fe | | Load 0x2,-0x2 1456 e006 | | Load 0x0,0x6 1457 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1458 180f | | Execute Package,Field_Execute,Field_Number 0xf 1459 00d8 | | Load_Top At_Offset_0 145a 01db | | Execute Vector,Length 145b e20d | | Load 0x1,0xd 145c 1c08 | | Execute_Immediate Run_Utility,0x8 145d BODY_1450: 145d 00d9 | | Load_Top At_Offset_1 145e 0092 1736 | 6| Action Push_String_Extended,0x1736 ; "<error>" 1460 01df | | Execute Vector,Equal 1461 6808 |h | Jump_Zero 0x146a 1462 e00b | | Load 0x0,0xb 1463 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1464 600f |` | Indirect_Literal Discrete,0x1474,{0x00000000, 0x00008128} 1465 e001 | | Load 0x0,0x1 1466 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1467 00d9 | | Load_Top At_Offset_1 1468 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1469 7803 |x | Jump 0x146d 146a 4800 |H | Short_Literal 0x0 146b 00d9 | | Load_Top At_Offset_1 146c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 146d 00d9 | | Load_Top At_Offset_1 146e 00d9 | | Load_Top At_Offset_1 146f 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1470 00d8 | | Load_Top At_Offset_0 1471 00cb | | Action Pop_Block_With_Result 1472 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1473 0000 | | .XXX[0x1] 1474 0000 0000 | | .LITERAL {0x00000000, 0x00008128} 1478 ; -------------------------------------------------------------------------------------- 1478 ; SUBPROGRAM 1478 ; -------------------------------------------------------------------------------------- 1478 1485 | | .CONST 0x1485 ; Address of begin 1479 0004 | | .CONST 0x0004 ; Address of exception handler 147a 0002 | | .CONST 0x0002 ; Number of locals 147b INIT_1478: 147b e5fc | | Load 0x2,-0x4 147c 00d8 | | Load_Top At_Offset_0 147d e403 | | Load 0x2,0x3 147e e5fd | | Load 0x2,-0x3 147f e006 | | Load 0x0,0x6 1480 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1481 180f | | Execute Package,Field_Execute,Field_Number 0xf 1482 e5fe | | Load 0x2,-0x2 1483 e5ff | | Load 0x2,-0x1 1484 8229 | ) | Call 0x1,0x29 1485 BODY_1478: 1485 00d8 | | Load_Top At_Offset_0 1486 00cb | | Action Pop_Block_With_Result 1487 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 1488 ; -------------------------------------------------------------------------------------- 1488 ; SUBPROGRAM 1488 ; -------------------------------------------------------------------------------------- 1488 1495 | | .CONST 0x1495 ; Address of begin 1489 0004 | | .CONST 0x0004 ; Address of exception handler 148a 0003 | | .CONST 0x0003 ; Number of locals 148b INIT_1488: 148b e403 | | Load 0x2,0x3 148c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 148d e5fd | | Load 0x2,-0x3 148e e402 | | Load 0x2,0x2 148f e004 | | Load 0x0,0x4 1490 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 1491 00d8 | | Load_Top At_Offset_0 1492 01db | | Execute Vector,Length 1493 e20d | | Load 0x1,0xd 1494 1c08 | | Execute_Immediate Run_Utility,0x8 1495 BODY_1488: 1495 00d9 | | Load_Top At_Offset_1 1496 00d9 | | Load_Top At_Offset_1 1497 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1498 4800 |H | Short_Literal 0x0 1499 00d9 | | Load_Top At_Offset_1 149a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 149b 00d8 | | Load_Top At_Offset_0 149c 00cb | | Action Pop_Block_With_Result 149d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 149e 0000 0000 | | .XXX[0x2] 14a0 ; -------------------------------------------------------------------------------------- 14a0 ; SUBPROGRAM 14a0 ; -------------------------------------------------------------------------------------- 14a0 14a5 | | .CONST 0x14a5 ; Address of begin 14a1 0004 | | .CONST 0x0004 ; Address of exception handler 14a2 0002 | | .CONST 0x0002 ; Number of locals 14a3 INIT_14a0: 14a3 e402 | | Load 0x2,0x2 14a4 8296 | | Call 0x1,0x96 14a5 BODY_14a0: 14a5 e001 | | Load 0x0,0x1 14a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14a7 e5fe | | Load 0x2,-0x2 14a8 00da | | Load_Top At_Offset_2 14a9 8299 | | Call 0x1,0x99 14aa e009 | | Load 0x0,0x9 14ab 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 14ac c5fd | | Store 0x2,-0x3 14ad e5fe | | Load 0x2,-0x2 14ae 00d9 | | Load_Top At_Offset_1 14af 8294 | | Call 0x1,0x94 14b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14b1 0000 0000 | | .BLANK 0000[0x7] 14b8 ; -------------------------------------------------------------------------------------- 14b8 ; SUBPROGRAM 14b8 ; -------------------------------------------------------------------------------------- 14b8 14bf | | .CONST 0x14bf ; Address of begin 14b9 0004 | | .CONST 0x0004 ; Address of exception handler 14ba 0002 | | .CONST 0x0002 ; Number of locals 14bb INIT_14b8: 14bb e403 | | Load 0x2,0x3 14bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 14bd e20d | | Load 0x1,0xd 14be 1c08 | | Execute_Immediate Run_Utility,0x8 14bf BODY_14b8: 14bf 4801 |H | Short_Literal 0x1 14c0 e403 | | Load 0x2,0x3 14c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 14c2 e403 | | Load 0x2,0x3 14c3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 14c4 01cf | | Execute Vector,Slice_Read 14c5 00d9 | | Load_Top At_Offset_1 14c6 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 14c7 4800 |H | Short_Literal 0x0 14c8 00d9 | | Load_Top At_Offset_1 14c9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 14ca 00d8 | | Load_Top At_Offset_0 14cb 00cb | | Action Pop_Block_With_Result 14cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 14cd 0000 0000 | | .XXX[0x3] 14cf 0000 | | 14d0 ; -------------------------------------------------------------------------------------- 14d0 ; SUBPROGRAM 14d0 ; -------------------------------------------------------------------------------------- 14d0 14d7 | | .CONST 0x14d7 ; Address of begin 14d1 0004 | | .CONST 0x0004 ; Address of exception handler 14d2 0002 | | .CONST 0x0002 ; Number of locals 14d3 INIT_14d0: 14d3 e403 | | Load 0x2,0x3 14d4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 14d5 e20d | | Load 0x1,0xd 14d6 1c08 | | Execute_Immediate Run_Utility,0x8 14d7 BODY_14d0: 14d7 4801 |H | Short_Literal 0x1 14d8 e403 | | Load 0x2,0x3 14d9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 14da e403 | | Load 0x2,0x3 14db 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 14dc 01cf | | Execute Vector,Slice_Read 14dd 00d9 | | Load_Top At_Offset_1 14de 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 14df 4800 |H | Short_Literal 0x0 14e0 00d9 | | Load_Top At_Offset_1 14e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 14e2 00d8 | | Load_Top At_Offset_0 14e3 00cb | | Action Pop_Block_With_Result 14e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 14e5 0000 0000 | | .XXX[0x3] 14e7 0000 | | 14e8 ; -------------------------------------------------------------------------------------- 14e8 ; SUBPROGRAM 14e8 ; -------------------------------------------------------------------------------------- 14e8 14f9 | | .CONST 0x14f9 ; Address of begin 14e9 0004 | | .CONST 0x0004 ; Address of exception handler 14ea 0004 | | .CONST 0x0004 ; Number of locals 14eb INIT_14e8: 14eb 00da | | Load_Top At_Offset_2 14ec e00c | | Load 0x0,0xc 14ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 14ee 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 14ef 00d8 | | Load_Top At_Offset_0 14f0 0092 1737 | 7| Action Push_String_Extended,0x1737 ; ".@_secondary_@_spec" 14f2 01cc | | Execute Vector,Catenate 14f3 0007 | | Action Break_Optional 14f4 00d9 | | Load_Top At_Offset_1 14f5 0092 1738 | 8| Action Push_String_Extended,0x1738 ; ".@_secondary_@_body" 14f7 01cc | | Execute Vector,Catenate 14f8 0007 | | Action Break_Optional 14f9 BODY_14e8: 14f9 00ea | | Load_Encached Null_String_Cache 14fa 4801 |H | Short_Literal 0x1 14fb 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>" 14fd 4801 |H | Short_Literal 0x1 14fe e603 | | Load 0x3,0x3 14ff e602 | | Load 0x3,0x2 1500 0092 1739 | 9| Action Push_String_Extended,0x1739 ; ".@'spec.<secondary_@>" 1502 01cc | | Execute Vector,Catenate 1503 e012 | | Load 0x0,0x12 1504 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1505 00ea | | Load_Encached Null_String_Cache 1506 4801 |H | Short_Literal 0x1 1507 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>" 1509 4801 |H | Short_Literal 0x1 150a e604 | | Load 0x3,0x4 150b e602 | | Load 0x3,0x2 150c 0092 173a | :| Action Push_String_Extended,0x173a ; ".@'body.<secondary_@>" 150e 01cc | | Execute Vector,Catenate 150f e012 | | Load 0x0,0x12 1510 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1511 e5fd | | Load 0x2,-0x3 1512 6818 |h | Jump_Zero 0x152b 1513 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>" 1515 0092 1733 | 3| Action Push_String_Extended,0x1733 ; "<DEFAULT>" 1517 00ea | | Load_Encached Null_String_Cache 1518 4801 |H | Short_Literal 0x1 1519 0092 173b | ;| Action Push_String_Extended,0x173b ; "<NONE>" 151b 0092 173c | <| Action Push_String_Extended,0x173c ; "<AUTO_GENERATE>" 151d 0092 173d | =| Action Push_String_Extended,0x173d ; "[" 151f e603 | | Load 0x3,0x3 1520 01cc | | Execute Vector,Catenate 1521 0092 173e | >| Action Push_String_Extended,0x173e ; "," 1523 01cc | | Execute Vector,Catenate 1524 e604 | | Load 0x3,0x4 1525 01cc | | Execute Vector,Catenate 1526 0092 173f | ?| Action Push_String_Extended,0x173f ; "]" 1528 01cc | | Execute Vector,Catenate 1529 e01c | | Load 0x0,0x1c 152a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 152b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 152c 0000 0000 | | .BLANK 0000[0x4] 1530 ; -------------------------------------------------------------------------------------- 1530 ; SUBPROGRAM 1530 ; -------------------------------------------------------------------------------------- 1530 1535 | 5 | .CONST 0x1535 ; Address of begin 1531 0004 | | .CONST 0x0004 ; Address of exception handler 1532 0003 | | .CONST 0x0003 ; Number of locals 1533 INIT_1530: 1533 00e2 | | Load_Encached Integer_Cache 1534 00e2 | | Load_Encached Integer_Cache 1535 BODY_1530: 1535 4801 |H | Short_Literal 0x1 1536 e7ff | | Load 0x3,-0x1 1537 e404 | | Load 0x2,0x4 1538 e01a | | Load 0x0,0x1a 1539 181d | | Execute Package,Field_Execute,Field_Number 0x1d 153a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 153b 4801 |H | Short_Literal 0x1 153c e7ff | | Load 0x3,-0x1 153d 0092 1740 | @| Action Push_String_Extended,0x1740 ; "_" 153f e01a | | Load 0x0,0x1a 1540 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1541 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1542 e7ff | | Load 0x3,-0x1 1543 01dd | | Execute Vector,First 1544 00da | | Load_Top At_Offset_2 1545 0aff | | Execute_Immediate Plus,-0x1 1546 00d8 | | Load_Top At_Offset_0 1547 00e2 | | Load_Encached Integer_Cache 1548 0260 | ` | Execute Discrete,In_Type 1549 7001 |p | Jump_Nonzero 0x154b 154a 0801 | | Execute_Immediate Raise,0x1 154b e7ff | | Load 0x3,-0x1 154c 01cf | | Execute Vector,Slice_Read 154d 0092 1741 | A| Action Push_String_Extended,0x1741 ; "'" 154f 01cc | | Execute Vector,Catenate 1550 00d9 | | Load_Top At_Offset_1 1551 0a01 | | Execute_Immediate Plus,0x1 1552 00d8 | | Load_Top At_Offset_0 1553 00e2 | | Load_Encached Integer_Cache 1554 0260 | ` | Execute Discrete,In_Type 1555 7001 |p | Jump_Nonzero 0x1557 1556 0801 | | Execute_Immediate Raise,0x1 1557 e7ff | | Load 0x3,-0x1 1558 01dc | | Execute Vector,Last 1559 e7ff | | Load 0x3,-0x1 155a 01cf | | Execute Vector,Slice_Read 155b 01cc | | Execute Vector,Catenate 155c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 155d 0000 0000 | | .XXX[0x3] 155f 0000 | | 1560 ; -------------------------------------------------------------------------------------- 1560 ; SUBPROGRAM 1560 ; -------------------------------------------------------------------------------------- 1560 1565 | e | .CONST 0x1565 ; Address of begin 1561 0004 | | .CONST 0x0004 ; Address of exception handler 1562 0003 | | .CONST 0x0003 ; Number of locals 1563 INIT_1560: 1563 00e2 | | Load_Encached Integer_Cache 1564 00e2 | | Load_Encached Integer_Cache 1565 BODY_1560: 1565 4801 |H | Short_Literal 0x1 1566 e7ff | | Load 0x3,-0x1 1567 e404 | | Load 0x2,0x4 1568 e01a | | Load 0x0,0x1a 1569 181d | | Execute Package,Field_Execute,Field_Number 0x1d 156a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 156b 4801 |H | Short_Literal 0x1 156c e7ff | | Load 0x3,-0x1 156d 0092 1740 | @| Action Push_String_Extended,0x1740 ; "_" 156f e01a | | Load 0x0,0x1a 1570 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1571 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1572 00d9 | | Load_Top At_Offset_1 1573 0a0b | | Execute_Immediate Plus,0xb 1574 00d8 | | Load_Top At_Offset_0 1575 00e2 | | Load_Encached Integer_Cache 1576 0260 | ` | Execute Discrete,In_Type 1577 7001 |p | Jump_Nonzero 0x1579 1578 0801 | | Execute_Immediate Raise,0x1 1579 00d9 | | Load_Top At_Offset_1 157a 0aff | | Execute_Immediate Plus,-0x1 157b 00d8 | | Load_Top At_Offset_0 157c 00e2 | | Load_Encached Integer_Cache 157d 0260 | ` | Execute Discrete,In_Type 157e 7001 |p | Jump_Nonzero 0x1580 157f 0801 | | Execute_Immediate Raise,0x1 1580 e7ff | | Load 0x3,-0x1 1581 01cf | | Execute Vector,Slice_Read 1582 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1583 0000 0000 | | .BLANK 0000[0x5] 1588 ; -------------------------------------------------------------------------------------- 1588 ; SUBPROGRAM 1588 ; -------------------------------------------------------------------------------------- 1588 15b2 | | .CONST 0x15b2 ; Address of begin 1589 15d7 | | .CONST 0x15d7 ; Address of exception handler 158a 0007 | | .CONST 0x0007 ; Number of locals 158b INIT_1588: 158b 00da | | Load_Top At_Offset_2 158c e00c | | Load 0x0,0xc 158d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 158e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 158f 00d8 | | Load_Top At_Offset_0 1590 e00c | | Load 0x0,0xc 1591 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1592 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 1593 00d9 | | Load_Top At_Offset_1 1594 e00c | | Load 0x0,0xc 1595 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1596 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 1597 00d9 | | Load_Top At_Offset_1 1598 0092 172a | *| Action Push_String_Extended,0x172a ; "." 159a 01cc | | Execute Vector,Catenate 159b 00d9 | | Load_Top At_Offset_1 159c 8407 | | Call 0x2,0x7 159d 01cc | | Execute Vector,Catenate 159e 0092 1742 | B| Action Push_String_Extended,0x1742 ; ".<secondary_" 15a0 01cc | | Execute Vector,Catenate 15a1 00d9 | | Load_Top At_Offset_1 15a2 8408 | | Call 0x2,0x8 15a3 01cc | | Execute Vector,Catenate 15a4 0092 1732 | 2| Action Push_String_Extended,0x1732 ; ">" 15a6 01cc | | Execute Vector,Catenate 15a7 0007 | | Action Break_Optional 15a8 e014 | | Load 0x0,0x14 15a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 15aa 02c7 | | Declare_Variable Any 15ab 00d8 | | Load_Top At_Offset_0 15ac 1c00 | | Execute_Immediate Run_Utility,0x0 15ad e014 | | Load 0x0,0x14 15ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 15af 02c7 | | Declare_Variable Any 15b0 00d8 | | Load_Top At_Offset_0 15b1 1c00 | | Execute_Immediate Run_Utility,0x0 15b2 BODY_1588: 15b2 00d9 | | Load_Top At_Offset_1 15b3 00ea | | Load_Encached Null_String_Cache 15b4 e605 | | Load 0x3,0x5 15b5 4801 |H | Short_Literal 0x1 15b6 e014 | | Load 0x0,0x14 15b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 15b8 c606 | | Store 0x3,0x6 15b9 00d8 | | Load_Top At_Offset_0 15ba 00ea | | Load_Encached Null_String_Cache 15bb e602 | | Load 0x3,0x2 15bc 4800 |H | Short_Literal 0x0 15bd e014 | | Load 0x0,0x14 15be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 15bf c607 | | Store 0x3,0x7 15c0 00cf | | Action Mark_Auxiliary 15c1 7807 |x | Jump 0x15c9 15c2 00d9 | | Load_Top At_Offset_1 15c3 e014 | | Load 0x0,0x14 15c4 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 15c5 00db | | Load_Top At_Offset_3 15c6 e014 | | Load 0x0,0x14 15c7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 15c8 00c9 | | Action Pop_Auxiliary_Loop 15c9 00d9 | | Load_Top At_Offset_1 15ca e014 | | Load 0x0,0x14 15cb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 15cc 6ff5 |o | Jump_Zero 0x15c2 15cd 00ce | | Action Pop_Auxiliary 15ce 00d9 | | Load_Top At_Offset_1 15cf e014 | | Load 0x0,0x14 15d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 15d1 c606 | | Store 0x3,0x6 15d2 00d8 | | Load_Top At_Offset_0 15d3 e014 | | Load 0x0,0x14 15d4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 15d5 c607 | | Store 0x3,0x7 15d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 15d7 TRAP_1588: 15d7 0007 | | Action Break_Optional 15d8 00da | | Load_Top At_Offset_2 15d9 8293 | | Call 0x1,0x93 15da c606 | | Store 0x3,0x6 15db 00d9 | | Load_Top At_Offset_1 15dc 8293 | | Call 0x1,0x93 15dd c607 | | Store 0x3,0x7 15de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 15df 0000 | | .XXX[0x1] 15e0 ; -------------------------------------------------------------------------------------- 15e0 ; SUBPROGRAM 15e0 ; -------------------------------------------------------------------------------------- 15e0 15f5 | | .CONST 0x15f5 ; Address of begin 15e1 0004 | | .CONST 0x0004 ; Address of exception handler 15e2 0002 | | .CONST 0x0002 ; Number of locals 15e3 INIT_15e0: 15e3 e5fe | | Load 0x2,-0x2 15e4 4801 |H | Short_Literal 0x1 15e5 e5ff | | Load 0x2,-0x1 15e6 e009 | | Load 0x0,0x9 15e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 15e8 e009 | | Load 0x0,0x9 15e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 15ea 0092 1743 | C| Action Push_String_Extended,0x1743 ; ".@'c(ada).<secondary_" 15ec 01cc | | Execute Vector,Catenate 15ed e5ff | | Load 0x2,-0x1 15ee e009 | | Load 0x0,0x9 15ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18 15f0 01cc | | Execute Vector,Catenate 15f1 0092 1732 | 2| Action Push_String_Extended,0x1732 ; ">" 15f3 01cc | | Execute Vector,Catenate 15f4 0007 | | Action Break_Optional 15f5 BODY_15e0: 15f5 00d8 | | Load_Top At_Offset_0 15f6 829b | | Call 0x1,0x9b 15f7 c402 | | Store 0x2,0x2 15f8 e402 | | Load 0x2,0x2 15f9 e00c | | Load 0x0,0xc 15fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 15fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 15fc 7021 |p! | Jump_Nonzero 0x161e 15fd e402 | | Load 0x2,0x2 15fe e00c | | Load 0x0,0xc 15ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1600 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1601 701c |p | Jump_Nonzero 0x161e 1602 e5fe | | Load 0x2,-0x2 1603 4801 |H | Short_Literal 0x1 1604 e402 | | Load 0x2,0x2 1605 e009 | | Load 0x0,0x9 1606 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 1607 c403 | | Store 0x2,0x3 1608 e001 | | Load 0x0,0x1 1609 1b0d | | Execute Package,Field_Read,Field_Number 0xd 160a 00e2 | | Load_Encached Integer_Cache 160b 00e1 | | Load_Encached Boolean_Cache 160c e5fd | | Load 0x2,-0x3 160d 0120 | | Execute Any,Is_Value 160e 6803 |h | Jump_Zero 0x1612 160f e00c | | Load 0x0,0xc 1610 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1611 7801 |x | Jump 0x1613 1612 e5fd | | Load 0x2,-0x3 1613 e5fe | | Load 0x2,-0x2 1614 e403 | | Load 0x2,0x3 1615 8266 | f | Call 0x1,0x66 1616 c5fd | | Store 0x2,-0x3 1617 c406 | | Store 0x2,0x6 1618 c405 | | Store 0x2,0x5 1619 c404 | | Store 0x2,0x4 161a e406 | | Load 0x2,0x6 161b a5fc | | Store_Unchecked 0x2,-0x4 161c 00cc | | Action Pop_Block 161d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 161e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 161f 0000 | | .XXX[0x1] 1620 ; -------------------------------------------------------------------------------------- 1620 ; SUBPROGRAM 1620 ; -------------------------------------------------------------------------------------- 1620 162f | / | .CONST 0x162f ; Address of begin 1621 0004 | | .CONST 0x0004 ; Address of exception handler 1622 0005 | | .CONST 0x0005 ; Number of locals 1623 INIT_1620: 1623 e402 | | Load 0x2,0x2 1624 e014 | | Load 0x0,0x14 1625 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 1626 e402 | | Load 0x2,0x2 1627 e014 | | Load 0x0,0x14 1628 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 1629 e402 | | Load 0x2,0x2 162a e014 | | Load 0x0,0x14 162b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 162c e402 | | Load 0x2,0x2 162d e014 | | Load 0x0,0x14 162e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 162f BODY_1620: 162f 00db | | Load_Top At_Offset_3 1630 4801 |H | Short_Literal 0x1 1631 e602 | | Load 0x3,0x2 1632 01db | | Execute Vector,Length 1633 00d8 | | Load_Top At_Offset_0 1634 00e2 | | Load_Encached Integer_Cache 1635 0260 | ` | Execute Discrete,In_Type 1636 7001 |p | Jump_Nonzero 0x1638 1637 0801 | | Execute_Immediate Raise,0x1 1638 e5fd | | Load 0x2,-0x3 1639 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 163a 01ce | | Execute Vector,Slice_Write 163b 00db | | Load_Top At_Offset_3 163c 01db | | Execute Vector,Length 163d e5fd | | Load 0x2,-0x3 163e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 163f 00da | | Load_Top At_Offset_2 1640 4801 |H | Short_Literal 0x1 1641 e603 | | Load 0x3,0x3 1642 01db | | Execute Vector,Length 1643 00d8 | | Load_Top At_Offset_0 1644 00e2 | | Load_Encached Integer_Cache 1645 0260 | ` | Execute Discrete,In_Type 1646 7001 |p | Jump_Nonzero 0x1648 1647 0801 | | Execute_Immediate Raise,0x1 1648 e5fd | | Load 0x2,-0x3 1649 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 164a 01ce | | Execute Vector,Slice_Write 164b 00da | | Load_Top At_Offset_2 164c 01db | | Execute Vector,Length 164d e5fd | | Load 0x2,-0x3 164e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 164f 00d9 | | Load_Top At_Offset_1 1650 4801 |H | Short_Literal 0x1 1651 00db | | Load_Top At_Offset_3 1652 01db | | Execute Vector,Length 1653 00d8 | | Load_Top At_Offset_0 1654 00e2 | | Load_Encached Integer_Cache 1655 0260 | ` | Execute Discrete,In_Type 1656 7001 |p | Jump_Nonzero 0x1658 1657 0801 | | Execute_Immediate Raise,0x1 1658 e5fd | | Load 0x2,-0x3 1659 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 165a 01ce | | Execute Vector,Slice_Write 165b 00d9 | | Load_Top At_Offset_1 165c 01db | | Execute Vector,Length 165d e5fd | | Load 0x2,-0x3 165e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 165f 00d8 | | Load_Top At_Offset_0 1660 4801 |H | Short_Literal 0x1 1661 00da | | Load_Top At_Offset_2 1662 01db | | Execute Vector,Length 1663 00d8 | | Load_Top At_Offset_0 1664 00e2 | | Load_Encached Integer_Cache 1665 0260 | ` | Execute Discrete,In_Type 1666 7001 |p | Jump_Nonzero 0x1668 1667 0801 | | Execute_Immediate Raise,0x1 1668 e5fd | | Load 0x2,-0x3 1669 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 166a 01ce | | Execute Vector,Slice_Write 166b 00d8 | | Load_Top At_Offset_0 166c 01db | | Execute Vector,Length 166d e5fd | | Load 0x2,-0x3 166e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 166f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1670 ; -------------------------------------------------------------------------------------- 1670 ; SUBPROGRAM 1670 ; -------------------------------------------------------------------------------------- 1670 1675 | u | .CONST 0x1675 ; Address of begin 1671 0004 | | .CONST 0x0004 ; Address of exception handler 1672 0002 | | .CONST 0x0002 ; Number of locals 1673 INIT_1670: 1673 e402 | | Load 0x2,0x2 1674 829d | | Call 0x1,0x9d 1675 BODY_1670: 1675 4801 |H | Short_Literal 0x1 1676 e5ff | | Load 0x2,-0x1 1677 00da | | Load_Top At_Offset_2 1678 e01a | | Load 0x0,0x1a 1679 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 167a 6811 |h | Jump_Zero 0x168c 167b 4801 |H | Short_Literal 0x1 167c a405 | | Store_Unchecked 0x2,0x5 167d e00c | | Load 0x0,0xc 167e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 167f e403 | | Load 0x2,0x3 1680 0120 | | Execute Any,Is_Value 1681 6803 |h | Jump_Zero 0x1685 1682 e00c | | Load 0x0,0xc 1683 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1684 7801 |x | Jump 0x1686 1685 e403 | | Load 0x2,0x3 1686 e402 | | Load 0x2,0x2 1687 e00c | | Load 0x0,0xc 1688 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1689 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 168a c403 | | Store 0x2,0x3 168b c406 | | Store 0x2,0x6 168c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 168d 0000 0000 | | .XXX[0x3] 168f 0000 | | 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 4608 |F | Jump_Case 0x9 1694 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1695 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 1696 7819 |x | Jump 0x16b0 ; case 0x2 1697 7818 |x | Jump 0x16b0 ; case 0x3 1698 7817 |x | Jump 0x16b0 ; case 0x4 1699 7816 |x | Jump 0x16b0 ; case 0x5 169a 7815 |x | Jump 0x16b0 ; case 0x6 169b 7801 |x | Jump 0x169d ; case 0x7 169c 7809 |x | Jump 0x16a6 ; case 0x8 169d 00db | | Load_Top At_Offset_3 169e 4801 |H | Short_Literal 0x1 169f e5fe | | Load 0x2,-0x2 16a0 00e9 | | Load_Encached String_Cache 16a1 035b | [ | Declare_Type Array,Constrained 16a2 4801 |H | Short_Literal 0x1 16a3 e5ff | | Load 0x2,-0x1 16a4 031b | | Declare_Type Variant_Record,Constrained 16a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16a6 00db | | Load_Top At_Offset_3 16a7 00db | | Load_Top At_Offset_3 16a8 02fc | | Declare_Variable Variant_Record,With_Constraint 16a9 4801 |H | Short_Literal 0x1 16aa e5fe | | Load 0x2,-0x2 16ab 00e9 | | Load_Encached String_Cache 16ac 0334 | 4 | Declare_Variable Array,With_Constraint 16ad 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 16ae 016a | j | QQ_execute Variant_Record,XXX 16af 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16b0 0869 | i | Execute_Immediate Raise,0x69 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 4608 |F | Jump_Case 0x9 16bc 7808 |x | Jump 0x16c5 ; case 0x0 16bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 16be 7851 |xQ | Jump 0x1710 ; case 0x2 16bf 7850 |xP | Jump 0x1710 ; case 0x3 16c0 784f |xO | Jump 0x1710 ; case 0x4 16c1 784e |xN | Jump 0x1710 ; case 0x5 16c2 784d |xM | Jump 0x1710 ; case 0x6 16c3 784c |xL | Jump 0x1710 ; case 0x7 16c4 784b |xK | Jump 0x1710 ; case 0x8 16c5 e26f | o | Load 0x1,0x6f 16c6 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 16c7 0337 | 7 | Declare_Variable Array 16c8 4880 |H | Short_Literal 0x80 16c9 4801 |H | Short_Literal 0x1 16ca 4820 |H | Short_Literal 0x20 16cb 00d9 | | Load_Top At_Offset_1 16cc e402 | | Load 0x2,0x2 16cd 01d6 | | Execute Vector,Field_Write 16ce 3ffb |? | Loop_Increasing 0x16ca 16cf 00db | | Load_Top At_Offset_3 16d0 00d9 | | Load_Top At_Offset_1 16d1 00d9 | | Load_Top At_Offset_1 16d2 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 16d3 0119 | | Execute Any,Check_In_Formal_Type 16d4 00d1 | | Pop_Control Pop_Count_1 16d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 16d6 4800 |H | Short_Literal 0x0 16d7 00db | | Load_Top At_Offset_3 16d8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 16d9 e26f | o | Load 0x1,0x6f 16da 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 16db 0337 | 7 | Declare_Variable Array 16dc 4880 |H | Short_Literal 0x80 16dd 4801 |H | Short_Literal 0x1 16de 4820 |H | Short_Literal 0x20 16df 00d9 | | Load_Top At_Offset_1 16e0 e402 | | Load 0x2,0x2 16e1 01d6 | | Execute Vector,Field_Write 16e2 3ffb |? | Loop_Increasing 0x16de 16e3 00db | | Load_Top At_Offset_3 16e4 00d9 | | Load_Top At_Offset_1 16e5 00d9 | | Load_Top At_Offset_1 16e6 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 16e7 0119 | | Execute Any,Check_In_Formal_Type 16e8 00d1 | | Pop_Control Pop_Count_1 16e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 16ea e26f | o | Load 0x1,0x6f 16eb 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 16ec 0337 | 7 | Declare_Variable Array 16ed 4880 |H | Short_Literal 0x80 16ee 4801 |H | Short_Literal 0x1 16ef 4820 |H | Short_Literal 0x20 16f0 00d9 | | Load_Top At_Offset_1 16f1 e402 | | Load 0x2,0x2 16f2 01d6 | | Execute Vector,Field_Write 16f3 3ffb |? | Loop_Increasing 0x16ef 16f4 00db | | Load_Top At_Offset_3 16f5 00d9 | | Load_Top At_Offset_1 16f6 00d9 | | Load_Top At_Offset_1 16f7 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 16f8 0119 | | Execute Any,Check_In_Formal_Type 16f9 00d1 | | Pop_Control Pop_Count_1 16fa 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 16fb 4800 |H | Short_Literal 0x0 16fc 00db | | Load_Top At_Offset_3 16fd 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 16fe e26f | o | Load 0x1,0x6f 16ff 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 1700 0337 | 7 | Declare_Variable Array 1701 4880 |H | Short_Literal 0x80 1702 4801 |H | Short_Literal 0x1 1703 4820 |H | Short_Literal 0x20 1704 00d9 | | Load_Top At_Offset_1 1705 e402 | | Load 0x2,0x2 1706 01d6 | | Execute Vector,Field_Write 1707 3ffb |? | Loop_Increasing 0x1703 1708 00db | | Load_Top At_Offset_3 1709 00d9 | | Load_Top At_Offset_1 170a 00d9 | | Load_Top At_Offset_1 170b 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 170c 0119 | | Execute Any,Check_In_Formal_Type 170d 00d1 | | Pop_Control Pop_Count_1 170e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 170f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1710 0869 | i | Execute_Immediate Raise,0x69 1711 ; -------------------------------------------------------------------------------------- 1711 ; STRING TABLE 1711 ; -------------------------------------------------------------------------------------- 1711 0068 | h | .STRTAB 0x0068->0x1745 ; "secondary_" 1712 0070 | p | .STRTAB 0x0070->0x174a ; "<secondary_[@,~state]>" 1713 0084 | | .STRTAB 0x0084->0x1755 ; "Rcf_Unit.Display_Unit_Options" 1714 009f | | .STRTAB 0x009f->0x1763 ; "Rcf_Unit.Set_Unit_Options" 1715 00b6 | | .STRTAB 0x00b6->0x1770 ; "Rcf_Unit.Remove_Unit_Options" 1716 00d0 | | .STRTAB 0x00d0->0x177e ; "Rcf_Unit.Remote_Unit_Name" 1717 00e7 | | .STRTAB 0x00e7->0x178a ; "Rcf_Unit.Full_Remote_Unit_Name" 1718 0103 | | .STRTAB 0x0103->0x1799 ; "Rcf_Unit.Set_Remote_Unit_Name" 1719 011e | | .STRTAB 0x011e->0x17a8 ; "Rcf_Unit.Local_Update_Time" 171a 0136 | 6 | .STRTAB 0x0136->0x17b5 ; "Rcf_Unit.Set_Local_Update_Time: Time = " 171b 015b | [ | .STRTAB 0x015b->0x17c8 ; "Rcf_Unit.Set_Local_Update_Time" 171c 0177 | w | .STRTAB 0x0177->0x17d7 ; " 128" 171d 0179 | y | .STRTAB 0x0179->0x17d9 ; "Rci_Temp_" 171e 0180 | | .STRTAB 0x0180->0x17de ; "Upload_Ada_Unit" 171f 018d | | .STRTAB 0x018d->0x17e5 ; "<QUIET>" 1720 0192 | | .STRTAB 0x0192->0x17e9 ; "<DIRECTORIES>" 1721 019d | | .STRTAB 0x019d->0x17ef ; "Rcf_Unit.Upload_Ada_Unit" 1722 01b3 | | .STRTAB 0x01b3->0x17fb ; "Setting local download time (from remote time) to " 1723 01e3 | | .STRTAB 0x01e3->0x1814 ; "Can't upload from remote unit \x22" 1724 0200 | | .STRTAB 0x0200->0x1824 ; "\x22 into existing text file \x22" 1725 0219 | | .STRTAB 0x0219->0x1831 ; "\x22." 1726 0219 | | .STRTAB 0x0219->0x1832 ; "Upload_Text_File" 1727 0227 | ' | .STRTAB 0x0227->0x183a ; "Rcf_Unit.Upload_Text_File" 1728 023e | > | .STRTAB 0x023e->0x1847 ; "Update_Consistency" 1729 024e | N | .STRTAB 0x024e->0x1850 ; "Rcf_Unit.Update_Consistency" 172a 0267 | g | .STRTAB 0x0267->0x185d ; "." 172b 0266 | f | .STRTAB 0x0266->0x185e ; "state" 172c 0269 | i | .STRTAB 0x0269->0x1860 ; ".??'c(library)" 172d 0275 | u | .STRTAB 0x0275->0x1867 ; "??'c(library)" 172e 0280 | | .STRTAB 0x0280->0x186e ; "_secondary_" 172f 0289 | | .STRTAB 0x0289->0x1873 ; ".??[@_secondary_@_spec,@_secondary_@_body]" 1730 02b1 | | .STRTAB 0x02b1->0x1888 ; ".<" 1731 02b1 | | .STRTAB 0x02b1->0x1889 ; "state>" 1732 02b5 | | .STRTAB 0x02b5->0x188c ; ">" 1733 02b4 | | .STRTAB 0x02b4->0x188d ; "<DEFAULT>" 1734 02bb | | .STRTAB 0x02bb->0x1891 ; ".Units." 1735 02c0 | | .STRTAB 0x02c0->0x1895 ; ".units" 1736 02c4 | | .STRTAB 0x02c4->0x1898 ; "<error>" 1737 02c9 | | .STRTAB 0x02c9->0x189b ; ".@_secondary_@_spec" 1738 02da | | .STRTAB 0x02da->0x18a5 ; ".@_secondary_@_body" 1739 02eb | | .STRTAB 0x02eb->0x18ae ; ".@'spec.<secondary_@>" 173a 02fe | | .STRTAB 0x02fe->0x18b9 ; ".@'body.<secondary_@>" 173b 0311 | | .STRTAB 0x0311->0x18c3 ; "<NONE>" 173c 0315 | | .STRTAB 0x0315->0x18c6 ; "<AUTO_GENERATE>" 173d 0322 | " | .STRTAB 0x0322->0x18ce ; "[" 173e 0321 | ! | .STRTAB 0x0321->0x18ce ; "," 173f 0320 | | .STRTAB 0x0320->0x18cf ; "]" 1740 031f | | .STRTAB 0x031f->0x18cf ; "_" 1741 031e | | .STRTAB 0x031e->0x18d0 ; "'" 1742 031d | | .STRTAB 0x031d->0x18d0 ; ".<secondary_" 1743 0327 | ' | .STRTAB 0x0327->0x18d6 ; ".@'c(ada).<secondary_" 1744 033a | : | .STREND 0x033a->0x18e1 1745 7365 636f |seco| .STRTAB_STRINGS 18e1 0000 0000 | | .BLANK 0000[0x7] 18e8 ; -------------------------------------------------------------------------------------- 18e8 ; Debug Table 18e8 ; -------------------------------------------------------------------------------------- 18e8 0004 000f | | .DEBUG4 0x0004,0x000f,0x349b,0x0000,0x0001,0x0000 18ee 0c80 0502 | | .XXX[0x5] 18f0 c001 a004 | | 18f2 002c | , | 18f3 0000 0000 | | .BLANK 0000[0xa] 18fd 0800 0578 | x| .XXX[0xc] 18ff a800 8000 | | 1901 00e8 b200 | | 1903 00e8 b200 | | 1905 0000 0000 | | 1907 00af 1580 | | 1909 0000 0000 | | .BLANK 0000[0x10] 1919 01e4 9200 | | .XXX[0x8] 191b 0000 0000 | | 191d 0000 007f | | 191f ffff ff80 | | 1921 0000 0000 | | .BLANK 0000[0xc] 192d 0051 b880 | Q | .XXX[0x6] 192f 0000 0000 | | 1931 0000 1100 | | 1933 0000 0000 | | .BLANK 0000[0x6] 1939 0027 1a20 | ' | .XXX[0x2] 193b 0000 0000 | | .BLANK 0000[0x5] 1940 0030 0036 | 0 6| .XXX[0x4c] 1942 6260 0000 |b` | 1944 0025 f715 | % | 1946 2140 0000 |!@ | 1948 1008 00d9 | | 194a cc08 0000 | | 194c 0000 0000 | | 194e 0001 7dc5 | } | 1950 4850 0000 |HP | 1952 0400 0001 | | 1954 0000 0000 | | 1956 0000 0001 | | 1958 8000 8000 | | 195a 0012 2fb8 | / | 195c a90a 0000 | | 195e 4020 32c0 |@ 2 | 1960 0000 0000 | | 1962 0000 0004 | | 1964 b000 0000 | | 1966 0024 0000 | $ | 1968 00c4 0000 | | 196a 003c 0000 | < | 196c 0198 0000 | | 196e 0130 0000 | 0 | 1970 0000 c400 | | 1972 0000 0000 | | 1974 bee2 a428 | (| 1976 0000 7274 | rt| 1978 0000 0000 | | 197a 0004 c31c | | 197c 0004 e549 | I| 197e c76f 31fc | o1 | 1980 350f b9d8 |5 | 1982 0003 e278 | x| 1984 0000 0800 | | 1986 0001 0000 | | 1988 0004 e54a | J| 198a 0001 efbc | | 198c 0000 0000 | | .BLANK 0000[0x4] 1990 3e27 8000 |>' | .XXX[0x15] 1992 3e54 8000 |>T | 1994 3e54 8000 |>T | 1996 1efb c000 | | 1998 0000 00cf | | 199a c400 04b5 | | 199c dc00 03e2 | | 199e 7800 03e2 |x | 19a0 79a4 0000 |y | 19a2 0000 3fff | ? | 19a4 ffc0 | | 19a5 0000 0000 | | .BLANK 0000[0xa] 19af f6d2 6000 | ` | .XXX[0x6] 19b1 f71b 6020 | ` | 19b3 012c 1000 | , | 19b5 0000 0000 | | .BLANK 0000[0xc] 19c1 0f71 b600 | q | .XXX[0x5] 19c3 0f78 8eff | x | 19c5 2c00 |, | 19c6 0000 0000 | | .BLANK 0000[0xd] 19d3 00f7 6460 | d`| .XXX[0x6] 19d5 00f7 ad60 | `| 19d7 2001 d400 | | 19d9 0000 0000 | | .BLANK 0000[0xc] 19e5 000f 788e | x | .XXX[0x7] 19e7 000f 7d1e | } | 19e9 0200 12c4 | | 19eb 4000 |@ | 19ec 0000 0000 | | .BLANK 0000[0xc] 19f8 f7ad 6000 | ` | .XXX[0x8] 19fa f7f6 6020 | ` | 19fc 010b 7f9a | | 19fe ac00 0000 | |