|
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: 71680 (0x11800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 8a10 | | .CONST 0x8a10 ; 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 804f | O | .CONST 0x804f ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0259 | Y | .CONST 0x0259 ; Address of begin 0009 025b | [ | .CONST 0x025b ; Address of exception handler 000a 006e | n | .CONST 0x006e ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4864 |Hd | Short_Literal 0x64 000d 00e2 | | Load_Encached Integer_Cache 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 4801 |H | Short_Literal 0x1 0010 035e | ^ | Declare_Type Array,Defined,Visible 0011 00d8 | | Load_Top At_Offset_0 0012 0336 | 6 | Declare_Variable Array,Visible 0013 e20d | | Load 0x1,0xd 0014 0337 | 7 | Declare_Variable Array 0015 4864 |Hd | Short_Literal 0x64 0016 4801 |H | Short_Literal 0x1 0017 4800 |H | Short_Literal 0x0 0018 e211 | | Load 0x1,0x11 0019 e20f | | Load 0x1,0xf 001a 01d6 | | Execute Vector,Field_Write 001b 3ffb |? | Loop_Increasing 0x17 001c e20e | | Load 0x1,0xe 001d 01d4 | | Execute Vector,Structure_Write 001e 4801 |H | Short_Literal 0x1 001f 4832 |H2 | Short_Literal 0x32 0020 00e9 | | Load_Encached String_Cache 0021 035c | \ | Declare_Type Array,Constrained,Visible 0022 00e2 | | Load_Encached Integer_Cache 0023 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0025 4802 |H | Short_Literal 0x2 0026 032e | . | Declare_Type Record,Defined,Visible 0027 0007 | | Action Break_Optional 0028 00e2 | | Load_Encached Integer_Cache 0029 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 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 4801 |H | Short_Literal 0x1 0089 4868 |Hh | Short_Literal 0x68 008a e20f | | Load 0x1,0xf 008b 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 008d 4801 |H | Short_Literal 0x1 008e 035e | ^ | Declare_Type Array,Defined,Visible 008f c269 | i | Store 0x1,0x69 0090 e269 | i | Load 0x1,0x69 0091 0336 | 6 | Declare_Variable Array,Visible 0092 00d8 | | Load_Top At_Offset_0 0093 1c00 | | Execute_Immediate Run_Utility,0x0 0094 c212 | | Store 0x1,0x12 0095 00e2 | | Load_Encached Integer_Cache 0096 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0097 c213 | | Store 0x1,0x13 0098 00e2 | | Load_Encached Integer_Cache 0099 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 009a c214 | | Store 0x1,0x14 009b 00e2 | | Load_Encached Integer_Cache 009c 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 009d c215 | | Store 0x1,0x15 009e 00e2 | | Load_Encached Integer_Cache 009f 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 00a0 c216 | | Store 0x1,0x16 00a1 00e2 | | Load_Encached Integer_Cache 00a2 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 00a3 c26a | j | Store 0x1,0x6a 00a4 00e2 | | Load_Encached Integer_Cache 00a5 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 00a6 c26b | k | Store 0x1,0x6b 00a7 00e2 | | Load_Encached Integer_Cache 00a8 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 00a9 c26c | l | Store 0x1,0x6c 00aa 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 00ac c25f | _ | Store 0x1,0x5f 00ad 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 00af c218 | | Store 0x1,0x18 00b0 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated 00b2 c219 | | Store 0x1,0x19 00b3 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated 00b5 c21a | | Store 0x1,0x1a 00b6 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 00b8 c21b | | Store 0x1,0x1b 00b9 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated 00bb c21c | | Store 0x1,0x1c 00bc 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated 00be c21d | | Store 0x1,0x1d 00bf 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated 00c1 c21e | | Store 0x1,0x1e 00c2 029a 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call,Visible,Unelaborated 00c4 c21f | | Store 0x1,0x1f 00c5 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated 00c7 c220 | | Store 0x1,0x20 00c8 029a 0cab | | Declare_Subprogram INIT_0ca8,For_Outer_Call,Visible,Unelaborated 00ca c26d | m | Store 0x1,0x6d 00cb 029a 0e33 | 3| Declare_Subprogram INIT_0e30,For_Outer_Call,Visible,Unelaborated 00cd c221 | ! | Store 0x1,0x21 00ce 029a 0e63 | c| Declare_Subprogram INIT_0e60,For_Outer_Call,Visible,Unelaborated 00d0 c222 | " | Store 0x1,0x22 00d1 029a 0e73 | s| Declare_Subprogram INIT_0e70,For_Outer_Call,Visible,Unelaborated 00d3 c261 | a | Store 0x1,0x61 00d4 029a 0e7b | {| Declare_Subprogram INIT_0e78,For_Outer_Call,Visible,Unelaborated 00d6 c262 | b | Store 0x1,0x62 00d7 029a 0e83 | | Declare_Subprogram INIT_0e80,For_Outer_Call,Visible,Unelaborated 00d9 c263 | c | Store 0x1,0x63 00da 029a 0f13 | | Declare_Subprogram INIT_0f10,For_Outer_Call,Visible,Unelaborated 00dc c223 | # | Store 0x1,0x23 00dd 029a 0f3b | ;| Declare_Subprogram INIT_0f38,For_Outer_Call,Visible,Unelaborated 00df c224 | $ | Store 0x1,0x24 00e0 029a 101b | | Declare_Subprogram INIT_1018,For_Outer_Call,Visible,Unelaborated 00e2 c225 | % | Store 0x1,0x25 00e3 029a 10e3 | | Declare_Subprogram INIT_10e0,For_Outer_Call,Visible,Unelaborated 00e5 c226 | & | Store 0x1,0x26 00e6 029a 11eb | | Declare_Subprogram INIT_11e8,For_Outer_Call,Visible,Unelaborated 00e8 c227 | ' | Store 0x1,0x27 00e9 029a 1203 | | Declare_Subprogram INIT_1200,For_Outer_Call,Visible,Unelaborated 00eb c228 | ( | Store 0x1,0x28 00ec 029a 1213 | | Declare_Subprogram INIT_1210,For_Outer_Call,Visible,Unelaborated 00ee c229 | ) | Store 0x1,0x29 00ef 0007 | | Action Break_Optional 00f0 029a 1223 | #| Declare_Subprogram INIT_1220,For_Outer_Call,Visible,Unelaborated 00f2 c22a | * | Store 0x1,0x2a 00f3 029a 122b | +| Declare_Subprogram INIT_1228,For_Outer_Call,Visible,Unelaborated 00f5 c22b | + | Store 0x1,0x2b 00f6 029a 1243 | C| Declare_Subprogram INIT_1240,For_Outer_Call,Visible,Unelaborated 00f8 c22c | , | Store 0x1,0x2c 00f9 029a 124b | K| Declare_Subprogram INIT_1248,For_Outer_Call,Visible,Unelaborated 00fb c22d | - | Store 0x1,0x2d 00fc 029a 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call,Visible,Unelaborated 00fe c22e | . | Store 0x1,0x2e 00ff 029a 140b | | Declare_Subprogram INIT_1408,For_Outer_Call,Visible,Unelaborated 0101 c22f | / | Store 0x1,0x2f 0102 0007 | | Action Break_Optional 0103 029a 144b | K| Declare_Subprogram INIT_1448,For_Outer_Call,Visible,Unelaborated 0105 c230 | 0 | Store 0x1,0x30 0106 029a 145b | [| Declare_Subprogram INIT_1458,For_Outer_Call,Visible,Unelaborated 0108 c231 | 1 | Store 0x1,0x31 0109 029a 1463 | c| Declare_Subprogram INIT_1460,For_Outer_Call,Visible,Unelaborated 010b c232 | 2 | Store 0x1,0x32 010c 029a 1473 | s| Declare_Subprogram INIT_1470,For_Outer_Call,Visible,Unelaborated 010e c233 | 3 | Store 0x1,0x33 010f 0007 | | Action Break_Optional 0110 029a 14ab | | Declare_Subprogram INIT_14a8,For_Outer_Call,Visible,Unelaborated 0112 c234 | 4 | Store 0x1,0x34 0113 029a 14b3 | | Declare_Subprogram INIT_14b0,For_Outer_Call,Visible,Unelaborated 0115 c235 | 5 | Store 0x1,0x35 0116 029a 156b | k| Declare_Subprogram INIT_1568,For_Outer_Call,Visible,Unelaborated 0118 c264 | d | Store 0x1,0x64 0119 029a 162b | +| Declare_Subprogram INIT_1628,For_Outer_Call,Visible,Unelaborated 011b c237 | 7 | Store 0x1,0x37 011c 029a 1633 | 3| Declare_Subprogram INIT_1630,For_Outer_Call,Visible,Unelaborated 011e c238 | 8 | Store 0x1,0x38 011f 029a 1753 | S| Declare_Subprogram INIT_1750,For_Outer_Call,Visible,Unelaborated 0121 c239 | 9 | Store 0x1,0x39 0122 029a 175b | [| Declare_Subprogram INIT_1758,For_Outer_Call,Visible,Unelaborated 0124 c23a | : | Store 0x1,0x3a 0125 029a 1873 | s| Declare_Subprogram INIT_1870,For_Outer_Call,Visible,Unelaborated 0127 c23b | ; | Store 0x1,0x3b 0128 029a 187b | {| Declare_Subprogram INIT_1878,For_Outer_Call,Visible,Unelaborated 012a c23c | < | Store 0x1,0x3c 012b 0007 | | Action Break_Optional 012c 029a 1923 | #| Declare_Subprogram INIT_1920,For_Outer_Call,Visible,Unelaborated 012e c23d | = | Store 0x1,0x3d 012f 029a 1a4b | K| Declare_Subprogram INIT_1a48,For_Outer_Call,Visible,Unelaborated 0131 c23e | > | Store 0x1,0x3e 0132 029a 1a5b | [| Declare_Subprogram INIT_1a58,For_Outer_Call,Visible,Unelaborated 0134 c23f | ? | Store 0x1,0x3f 0135 029a 1a6b | k| Declare_Subprogram INIT_1a68,For_Outer_Call,Visible,Unelaborated 0137 c240 | @ | Store 0x1,0x40 0138 0007 | | Action Break_Optional 0139 029a 1b6b | k| Declare_Subprogram INIT_1b68,For_Outer_Call,Visible,Unelaborated 013b c245 | E | Store 0x1,0x45 013c 029a 1b73 | s| Declare_Subprogram INIT_1b70,For_Outer_Call,Visible,Unelaborated 013e c246 | F | Store 0x1,0x46 013f 029a 1b83 | | Declare_Subprogram INIT_1b80,For_Outer_Call,Visible,Unelaborated 0141 c247 | G | Store 0x1,0x47 0142 029a 1b93 | | Declare_Subprogram INIT_1b90,For_Outer_Call,Visible,Unelaborated 0144 c248 | H | Store 0x1,0x48 0145 0007 | | Action Break_Optional 0146 029a 1c43 | C| Declare_Subprogram INIT_1c40,For_Outer_Call,Visible,Unelaborated 0148 c26e | n | Store 0x1,0x6e 0149 029a 1e73 | s| Declare_Subprogram INIT_1e70,For_Outer_Call,Visible,Unelaborated 014b c249 | I | Store 0x1,0x49 014c 029a 1e83 | | Declare_Subprogram INIT_1e80,For_Outer_Call,Visible,Unelaborated 014e c24a | J | Store 0x1,0x4a 014f 029a 228b | " | Declare_Subprogram INIT_2288,For_Outer_Call,Visible,Unelaborated 0151 c24b | K | Store 0x1,0x4b 0152 029a 229b | " | Declare_Subprogram INIT_2298,For_Outer_Call,Visible,Unelaborated 0154 c24c | L | Store 0x1,0x4c 0155 029a 22ab | " | Declare_Subprogram INIT_22a8,For_Outer_Call,Visible,Unelaborated 0157 c24d | M | Store 0x1,0x4d 0158 029a 22b3 | " | Declare_Subprogram INIT_22b0,For_Outer_Call,Visible,Unelaborated 015a c24e | N | Store 0x1,0x4e 015b 029a 22c3 | " | Declare_Subprogram INIT_22c0,For_Outer_Call,Visible,Unelaborated 015d c24f | O | Store 0x1,0x4f 015e 029a 22d3 | " | Declare_Subprogram INIT_22d0,For_Outer_Call,Visible,Unelaborated 0160 c250 | P | Store 0x1,0x50 0161 029a 22f3 | " | Declare_Subprogram INIT_22f0,For_Outer_Call,Visible,Unelaborated 0163 c251 | Q | Store 0x1,0x51 0164 0007 | | Action Break_Optional 0165 029a 22fb | " | Declare_Subprogram INIT_22f8,For_Outer_Call,Visible,Unelaborated 0167 c252 | R | Store 0x1,0x52 0168 029a 23bb | # | Declare_Subprogram INIT_23b8,For_Outer_Call,Visible,Unelaborated 016a c253 | S | Store 0x1,0x53 016b 029a 23cb | # | Declare_Subprogram INIT_23c8,For_Outer_Call,Visible,Unelaborated 016d c254 | T | Store 0x1,0x54 016e 0007 | | Action Break_Optional 016f 029a 23db | # | Declare_Subprogram INIT_23d8,For_Outer_Call,Visible,Unelaborated 0171 c255 | U | Store 0x1,0x55 0172 029a 23eb | # | Declare_Subprogram INIT_23e8,For_Outer_Call,Visible,Unelaborated 0174 c256 | V | Store 0x1,0x56 0175 029a 2443 | $C| Declare_Subprogram INIT_2440,For_Outer_Call,Visible,Unelaborated 0177 c257 | W | Store 0x1,0x57 0178 029a 244b | $K| Declare_Subprogram INIT_2448,For_Outer_Call,Visible,Unelaborated 017a c266 | f | Store 0x1,0x66 017b 029a 245b | $[| Declare_Subprogram INIT_2458,For_Outer_Call,Visible,Unelaborated 017d c267 | g | Store 0x1,0x67 017e 029a 246b | $k| Declare_Subprogram INIT_2468,For_Outer_Call,Visible,Unelaborated 0180 c268 | h | Store 0x1,0x68 0181 029a 24fb | $ | Declare_Subprogram INIT_24f8,For_Outer_Call,Visible,Unelaborated 0183 c25c | \ | Store 0x1,0x5c 0184 029a 250b | % | Declare_Subprogram INIT_2508,For_Outer_Call,Visible,Unelaborated 0186 c25d | ] | Store 0x1,0x5d 0187 029a 251b | % | Declare_Subprogram INIT_2518,For_Outer_Call,Visible,Unelaborated 0189 c25e | ^ | Store 0x1,0x5e 018a 00bf | | Action Accept_Activation 018b 0007 | | Action Break_Optional 018c 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 018d 00c7 | | Action Elaborate_Subprogram 018e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 018f 00c7 | | Action Elaborate_Subprogram 0190 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0191 00c7 | | Action Elaborate_Subprogram 0192 0007 | | Action Break_Optional 0193 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0194 00c7 | | Action Elaborate_Subprogram 0195 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0196 00c7 | | Action Elaborate_Subprogram 0197 0007 | | Action Break_Optional 0198 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0199 00c7 | | Action Elaborate_Subprogram 019a 0007 | | Action Break_Optional 019b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 019c 00c7 | | Action Elaborate_Subprogram 019d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 019e 00c7 | | Action Elaborate_Subprogram 019f 0007 | | Action Break_Optional 01a0 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 01a1 00c7 | | Action Elaborate_Subprogram 01a2 1d20 | | Execute_Immediate Reference_Lex_1,0x20 01a3 00c7 | | Action Elaborate_Subprogram 01a4 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01a5 00c7 | | Action Elaborate_Subprogram 01a6 0007 | | Action Break_Optional 01a7 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01a8 00c7 | | Action Elaborate_Subprogram 01a9 0007 | | Action Break_Optional 01aa 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 01ab 00c7 | | Action Elaborate_Subprogram 01ac 0007 | | Action Break_Optional 01ad 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 01ae 00c7 | | Action Elaborate_Subprogram 01af 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 01b0 00c7 | | Action Elaborate_Subprogram 01b1 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 01b2 00c7 | | Action Elaborate_Subprogram 01b3 0007 | | Action Break_Optional 01b4 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 01b5 00c7 | | Action Elaborate_Subprogram 01b6 0007 | | Action Break_Optional 01b7 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 01b8 00c7 | | Action Elaborate_Subprogram 01b9 0007 | | Action Break_Optional 01ba 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01bb 00c7 | | Action Elaborate_Subprogram 01bc 0007 | | Action Break_Optional 01bd 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 01be 00c7 | | Action Elaborate_Subprogram 01bf 0007 | | Action Break_Optional 01c0 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 01c1 00c7 | | Action Elaborate_Subprogram 01c2 0007 | | Action Break_Optional 01c3 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 01c4 00c7 | | Action Elaborate_Subprogram 01c5 0007 | | Action Break_Optional 01c6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 01c7 00c7 | | Action Elaborate_Subprogram 01c8 0007 | | Action Break_Optional 01c9 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01ca 00c7 | | Action Elaborate_Subprogram 01cb 0007 | | Action Break_Optional 01cc 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 01cd 00c7 | | Action Elaborate_Subprogram 01ce 0007 | | Action Break_Optional 01cf 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 01d0 00c7 | | Action Elaborate_Subprogram 01d1 0007 | | Action Break_Optional 01d2 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 01d3 00c7 | | Action Elaborate_Subprogram 01d4 0007 | | Action Break_Optional 01d5 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 01d6 00c7 | | Action Elaborate_Subprogram 01d7 0007 | | Action Break_Optional 01d8 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 01d9 00c7 | | Action Elaborate_Subprogram 01da 0007 | | Action Break_Optional 01db 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 01dc 00c7 | | Action Elaborate_Subprogram 01dd 0007 | | Action Break_Optional 01de 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 01df 00c7 | | Action Elaborate_Subprogram 01e0 0007 | | Action Break_Optional 01e1 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 01e2 00c7 | | Action Elaborate_Subprogram 01e3 0007 | | Action Break_Optional 01e4 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 01e5 00c7 | | Action Elaborate_Subprogram 01e6 0007 | | Action Break_Optional 01e7 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 01e8 00c7 | | Action Elaborate_Subprogram 01e9 0007 | | Action Break_Optional 01ea 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 01eb 00c7 | | Action Elaborate_Subprogram 01ec 0007 | | Action Break_Optional 01ed 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 01ee 00c7 | | Action Elaborate_Subprogram 01ef 0007 | | Action Break_Optional 01f0 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 01f1 00c7 | | Action Elaborate_Subprogram 01f2 0007 | | Action Break_Optional 01f3 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 01f4 00c7 | | Action Elaborate_Subprogram 01f5 0007 | | Action Break_Optional 01f6 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 01f7 00c7 | | Action Elaborate_Subprogram 01f8 0007 | | Action Break_Optional 01f9 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 01fa 00c7 | | Action Elaborate_Subprogram 01fb 0007 | | Action Break_Optional 01fc 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 01fd 00c7 | | Action Elaborate_Subprogram 01fe 0007 | | Action Break_Optional 01ff 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0200 00c7 | | Action Elaborate_Subprogram 0201 0007 | | Action Break_Optional 0202 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0203 00c7 | | Action Elaborate_Subprogram 0204 0007 | | Action Break_Optional 0205 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 0206 00c7 | | Action Elaborate_Subprogram 0207 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0208 00c7 | | Action Elaborate_Subprogram 0209 0007 | | Action Break_Optional 020a 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 020b 00c7 | | Action Elaborate_Subprogram 020c 0007 | | Action Break_Optional 020d 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 020e 00c7 | | Action Elaborate_Subprogram 020f 0007 | | Action Break_Optional 0210 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0211 00c7 | | Action Elaborate_Subprogram 0212 0007 | | Action Break_Optional 0213 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0214 00c7 | | Action Elaborate_Subprogram 0215 0007 | | Action Break_Optional 0216 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0217 00c7 | | Action Elaborate_Subprogram 0218 0007 | | Action Break_Optional 0219 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 021a 00c7 | | Action Elaborate_Subprogram 021b 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 021c 00c7 | | Action Elaborate_Subprogram 021d 0007 | | Action Break_Optional 021e 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 021f 00c7 | | Action Elaborate_Subprogram 0220 0007 | | Action Break_Optional 0221 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0222 00c7 | | Action Elaborate_Subprogram 0223 0007 | | Action Break_Optional 0224 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 0225 00c7 | | Action Elaborate_Subprogram 0226 0007 | | Action Break_Optional 0227 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 0228 00c7 | | Action Elaborate_Subprogram 0229 0007 | | Action Break_Optional 022a 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 022b 00c7 | | Action Elaborate_Subprogram 022c 0007 | | Action Break_Optional 022d 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 022e 00c7 | | Action Elaborate_Subprogram 022f 0007 | | Action Break_Optional 0230 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0231 00c7 | | Action Elaborate_Subprogram 0232 0007 | | Action Break_Optional 0233 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 0234 00c7 | | Action Elaborate_Subprogram 0235 0007 | | Action Break_Optional 0236 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0237 00c7 | | Action Elaborate_Subprogram 0238 0007 | | Action Break_Optional 0239 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 023a 00c7 | | Action Elaborate_Subprogram 023b 0007 | | Action Break_Optional 023c 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 023d 00c7 | | Action Elaborate_Subprogram 023e 0007 | | Action Break_Optional 023f 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0240 00c7 | | Action Elaborate_Subprogram 0241 0007 | | Action Break_Optional 0242 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 0243 00c7 | | Action Elaborate_Subprogram 0244 0007 | | Action Break_Optional 0245 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 0246 00c7 | | Action Elaborate_Subprogram 0247 0007 | | Action Break_Optional 0248 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0249 00c7 | | Action Elaborate_Subprogram 024a 0007 | | Action Break_Optional 024b 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 024c 00c7 | | Action Elaborate_Subprogram 024d 0007 | | Action Break_Optional 024e 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 024f 00c7 | | Action Elaborate_Subprogram 0250 0007 | | Action Break_Optional 0251 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0252 00c7 | | Action Elaborate_Subprogram 0253 0007 | | Action Break_Optional 0254 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 0255 00c7 | | Action Elaborate_Subprogram 0256 0007 | | Action Break_Optional 0257 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 0258 00c7 | | Action Elaborate_Subprogram 0259 BODY_0008: 0259 00bc | | Action Signal_Activated 025a 00bb | | Action Signal_Completion 025b TRAP_0008: 025b 010e | | Execute Exception,Is_Constraint_Error 025c 6808 |h | Jump_Zero 0x265 025d 4800 |H | Short_Literal 0x0 025e 4801 |H | Short_Literal 0x1 025f 0092 63e0 | c | Action Push_String_Extended,0x63e0 ; "Constraint error in co.proc." 0261 e001 | | Load 0x0,0x1 0262 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0263 00bc | | Action Signal_Activated 0264 00bb | | Action Signal_Completion 0265 010d | | Execute Exception,Is_Numeric_Error 0266 6808 |h | Jump_Zero 0x26f 0267 4800 |H | Short_Literal 0x0 0268 4801 |H | Short_Literal 0x1 0269 0092 63e1 | c | Action Push_String_Extended,0x63e1 ; "Numeric error in co.proc." 026b e001 | | Load 0x0,0x1 026c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 026d 00bc | | Action Signal_Activated 026e 00bb | | Action Signal_Completion 026f 010c | | Execute Exception,Is_Program_Error 0270 6808 |h | Jump_Zero 0x279 0271 4800 |H | Short_Literal 0x0 0272 4801 |H | Short_Literal 0x1 0273 0092 63e2 | c | Action Push_String_Extended,0x63e2 ; "Program error in co.proc." 0275 e001 | | Load 0x0,0x1 0276 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0277 00bc | | Action Signal_Activated 0278 00bb | | Action Signal_Completion 0279 010b | | Execute Exception,Is_Storage_Error 027a 6808 |h | Jump_Zero 0x283 027b 4800 |H | Short_Literal 0x0 027c 4801 |H | Short_Literal 0x1 027d 0092 63e3 | c | Action Push_String_Extended,0x63e3 ; "Storage error in co.proc." 027f e001 | | Load 0x0,0x1 0280 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0281 00bc | | Action Signal_Activated 0282 00bb | | Action Signal_Completion 0283 010a | | Execute Exception,Is_Tasking_Error 0284 6808 |h | Jump_Zero 0x28d 0285 4800 |H | Short_Literal 0x0 0286 4801 |H | Short_Literal 0x1 0287 0092 63e4 | c | Action Push_String_Extended,0x63e4 ; "Tasking error in co.proc." 0289 e001 | | Load 0x0,0x1 028a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 028b 00bc | | Action Signal_Activated 028c 00bb | | Action Signal_Completion 028d 4800 |H | Short_Literal 0x0 028e 4801 |H | Short_Literal 0x1 028f 0092 63e5 | c | Action Push_String_Extended,0x63e5 ; "Other Program error in co.proc. Exception in ap_common_procedures." 0291 e001 | | Load 0x0,0x1 0292 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0293 00bc | | Action Signal_Activated 0294 00bb | | Action Signal_Completion 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 4608 |F | Jump_Case 0x9 029c 7808 |x | Jump 0x2a5 ; case 0x0 029d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 029e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 029f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 02a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 02a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 02a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 02a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 02a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 02a5 4801 |H | Short_Literal 0x1 02a6 4832 |H2 | Short_Literal 0x32 02a7 00e9 | | Load_Encached String_Cache 02a8 0334 | 4 | Declare_Variable Array,With_Constraint 02a9 4832 |H2 | Short_Literal 0x32 02aa 4801 |H | Short_Literal 0x1 02ab 4820 |H | Short_Literal 0x20 02ac e404 | | Load 0x2,0x4 02ad e402 | | Load 0x2,0x2 02ae 01d6 | | Execute Vector,Field_Write 02af 3ffb |? | Loop_Increasing 0x2ab 02b0 e5ff | | Load 0x2,-0x1 02b1 00d9 | | Load_Top At_Offset_1 02b2 00d9 | | Load_Top At_Offset_1 02b3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 02b4 0119 | | Execute Any,Check_In_Formal_Type 02b5 00d1 | | Pop_Control Pop_Count_1 02b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02b7 4800 |H | Short_Literal 0x0 02b8 e5ff | | Load 0x2,-0x1 02b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02bb 0000 0000 | | .BLANK 0000[0x5] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00d1 | | Pop_Control Pop_Count_1 02c4 e5ff | | Load 0x2,-0x1 02c5 01dc | | Execute Vector,Last 02c6 e5ff | | Load 0x2,-0x1 02c7 01dd | | Execute Vector,First 02c8 0263 | c | Execute Discrete,Above_Bound 02c9 7006 |p | Jump_Nonzero 0x2d0 02ca 00d8 | | Load_Top At_Offset_0 02cb e5ff | | Load 0x2,-0x1 02cc 01d5 | | Execute Vector,Field_Reference 02cd 1c00 | | Execute_Immediate Run_Utility,0x0 02ce 0a01 | | Execute_Immediate Plus,0x1 02cf 7ff8 | | Jump 0x2c8 02d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02d1 0000 0000 | | .BLANK 0000[0x7] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 03b6 | | .CONST 0x03b6 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db e5ff | | Load 0x2,-0x1 02dc 01db | | Execute Vector,Length 02dd e002 | | Load 0x0,0x2 02de 1ab2 | | Execute Package,Field_Write,Field_Number 0xb2 02df e5ff | | Load 0x2,-0x1 02e0 4801 |H | Short_Literal 0x1 02e1 e002 | | Load 0x0,0x2 02e2 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 02e3 e002 | | Load 0x0,0x2 02e4 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 02e5 01ce | | Execute Vector,Slice_Write 02e6 e002 | | Load 0x0,0x2 02e7 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 02e8 e5fe | | Load 0x2,-0x2 02e9 01db | | Execute Vector,Length 02ea 0273 | s | Execute Discrete,Plus 02eb 0248 | H | Execute Discrete,Check_In_Integer 02ec e002 | | Load 0x0,0x2 02ed 1a0e | | Execute Package,Field_Write,Field_Number 0xe 02ee 4801 |H | Short_Literal 0x1 02ef e002 | | Load 0x0,0x2 02f0 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 02f1 e002 | | Load 0x0,0x2 02f2 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 02f3 01cf | | Execute Vector,Slice_Read 02f4 e5fe | | Load 0x2,-0x2 02f5 01cc | | Execute Vector,Catenate 02f6 4801 |H | Short_Literal 0x1 02f7 e002 | | Load 0x0,0x2 02f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f9 e002 | | Load 0x0,0x2 02fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fb 01ce | | Execute Vector,Slice_Write 02fc e002 | | Load 0x0,0x2 02fd 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 02fe e5fd | | Load 0x2,-0x3 02ff 01db | | Execute Vector,Length 0300 0273 | s | Execute Discrete,Plus 0301 0248 | H | Execute Discrete,Check_In_Integer 0302 e003 | | Load 0x0,0x3 0303 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0304 e003 | | Load 0x0,0x3 0305 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0306 01db | | Execute Vector,Length 0307 0273 | s | Execute Discrete,Plus 0308 0a01 | | Execute_Immediate Plus,0x1 0309 0248 | H | Execute Discrete,Check_In_Integer 030a e003 | | Load 0x0,0x3 030b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 030c e003 | | Load 0x0,0x3 030d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 030e 01db | | Execute Vector,Length 030f 0273 | s | Execute Discrete,Plus 0310 0a01 | | Execute_Immediate Plus,0x1 0311 0248 | H | Execute Discrete,Check_In_Integer 0312 e002 | | Load 0x0,0x2 0313 1a12 | | Execute Package,Field_Write,Field_Number 0x12 0314 4801 |H | Short_Literal 0x1 0315 e002 | | Load 0x0,0x2 0316 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 0317 e002 | | Load 0x0,0x2 0318 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 0319 01cf | | Execute Vector,Slice_Read 031a e5fd | | Load 0x2,-0x3 031b 01cc | | Execute Vector,Catenate 031c e003 | | Load 0x0,0x3 031d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 031e e003 | | Load 0x0,0x3 031f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0320 01cc | | Execute Vector,Catenate 0321 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 0323 01cc | | Execute Vector,Catenate 0324 e003 | | Load 0x0,0x3 0325 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0326 e003 | | Load 0x0,0x3 0327 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0328 01cc | | Execute Vector,Catenate 0329 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 032b 01cc | | Execute Vector,Catenate 032c 4801 |H | Short_Literal 0x1 032d e002 | | Load 0x0,0x2 032e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 032f e002 | | Load 0x0,0x2 0330 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0331 01ce | | Execute Vector,Slice_Write 0332 e002 | | Load 0x0,0x2 0333 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 0334 e5fc | | Load 0x2,-0x4 0335 01db | | Execute Vector,Length 0336 0273 | s | Execute Discrete,Plus 0337 0248 | H | Execute Discrete,Check_In_Integer 0338 e002 | | Load 0x0,0x2 0339 1a14 | | Execute Package,Field_Write,Field_Number 0x14 033a 4801 |H | Short_Literal 0x1 033b e002 | | Load 0x0,0x2 033c 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 033d e002 | | Load 0x0,0x2 033e 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 033f 01cf | | Execute Vector,Slice_Read 0340 e5fc | | Load 0x2,-0x4 0341 01cc | | Execute Vector,Catenate 0342 4801 |H | Short_Literal 0x1 0343 e002 | | Load 0x0,0x2 0344 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0345 e002 | | Load 0x0,0x2 0346 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0347 01ce | | Execute Vector,Slice_Write 0348 e002 | | Load 0x0,0x2 0349 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 034a e5fb | | Load 0x2,-0x5 034b 01db | | Execute Vector,Length 034c 0273 | s | Execute Discrete,Plus 034d 0248 | H | Execute Discrete,Check_In_Integer 034e e002 | | Load 0x0,0x2 034f 1a16 | | Execute Package,Field_Write,Field_Number 0x16 0350 4801 |H | Short_Literal 0x1 0351 e002 | | Load 0x0,0x2 0352 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 0353 e002 | | Load 0x0,0x2 0354 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 0355 01cf | | Execute Vector,Slice_Read 0356 e5fb | | Load 0x2,-0x5 0357 01cc | | Execute Vector,Catenate 0358 4801 |H | Short_Literal 0x1 0359 e002 | | Load 0x0,0x2 035a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 035b e002 | | Load 0x0,0x2 035c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 035d 01ce | | Execute Vector,Slice_Write 035e e002 | | Load 0x0,0x2 035f 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 0360 e5fa | | Load 0x2,-0x6 0361 01db | | Execute Vector,Length 0362 0273 | s | Execute Discrete,Plus 0363 0248 | H | Execute Discrete,Check_In_Integer 0364 e002 | | Load 0x0,0x2 0365 1a18 | | Execute Package,Field_Write,Field_Number 0x18 0366 4801 |H | Short_Literal 0x1 0367 e002 | | Load 0x0,0x2 0368 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 0369 e002 | | Load 0x0,0x2 036a 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 036b 01cf | | Execute Vector,Slice_Read 036c e5fa | | Load 0x2,-0x6 036d 01cc | | Execute Vector,Catenate 036e 4801 |H | Short_Literal 0x1 036f e002 | | Load 0x0,0x2 0370 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0371 e002 | | Load 0x0,0x2 0372 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0373 01ce | | Execute Vector,Slice_Write 0374 e002 | | Load 0x0,0x2 0375 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 0376 e5f9 | | Load 0x2,-0x7 0377 01db | | Execute Vector,Length 0378 0273 | s | Execute Discrete,Plus 0379 0248 | H | Execute Discrete,Check_In_Integer 037a e002 | | Load 0x0,0x2 037b 1a1a | | Execute Package,Field_Write,Field_Number 0x1a 037c 4801 |H | Short_Literal 0x1 037d e002 | | Load 0x0,0x2 037e 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 037f e002 | | Load 0x0,0x2 0380 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 0381 01cf | | Execute Vector,Slice_Read 0382 e5f9 | | Load 0x2,-0x7 0383 01cc | | Execute Vector,Catenate 0384 4801 |H | Short_Literal 0x1 0385 e002 | | Load 0x0,0x2 0386 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0387 e002 | | Load 0x0,0x2 0388 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0389 01ce | | Execute Vector,Slice_Write 038a e5f8 | | Load 0x2,-0x8 038b 01db | | Execute Vector,Length 038c e003 | | Load 0x0,0x3 038d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 038e e003 | | Load 0x0,0x3 038f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0390 01db | | Execute Vector,Length 0391 0273 | s | Execute Discrete,Plus 0392 0a01 | | Execute_Immediate Plus,0x1 0393 0248 | H | Execute Discrete,Check_In_Integer 0394 e003 | | Load 0x0,0x3 0395 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0396 e003 | | Load 0x0,0x3 0397 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0398 01db | | Execute Vector,Length 0399 0273 | s | Execute Discrete,Plus 039a 0a01 | | Execute_Immediate Plus,0x1 039b 0248 | H | Execute Discrete,Check_In_Integer 039c e002 | | Load 0x0,0x2 039d 1a10 | | Execute Package,Field_Write,Field_Number 0x10 039e e5f8 | | Load 0x2,-0x8 039f e003 | | Load 0x0,0x3 03a0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03a1 e003 | | Load 0x0,0x3 03a2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03a3 01cc | | Execute Vector,Catenate 03a4 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 03a6 01cc | | Execute Vector,Catenate 03a7 e003 | | Load 0x0,0x3 03a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03a9 e003 | | Load 0x0,0x3 03aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03ab 01cc | | Execute Vector,Catenate 03ac 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 03ae 01cc | | Execute Vector,Catenate 03af 4801 |H | Short_Literal 0x1 03b0 e002 | | Load 0x0,0x2 03b1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03b2 e002 | | Load 0x0,0x2 03b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b4 01ce | | Execute Vector,Slice_Write 03b5 4509 |E | Exit_Suprogram New_Top_Offset 0x9 03b6 TRAP_02d8: 03b6 0007 | | Action Break_Optional 03b7 4800 |H | Short_Literal 0x0 03b8 4801 |H | Short_Literal 0x1 03b9 0092 63e8 | c | Action Push_String_Extended,0x63e8 ; "Exception in ap_set_default_master_names" 03bb e001 | | Load 0x0,0x1 03bc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03bd 4509 |E | Exit_Suprogram New_Top_Offset 0x9 03be 0000 0000 | | .XXX[0x2] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 0447 | G | .CONST 0x0447 ; Address of begin 03c1 067c | | | .CONST 0x067c ; Address of exception handler 03c2 0013 | | .CONST 0x0013 ; Number of locals 03c3 INIT_03c0: 03c3 0092 63e9 | c | Action Push_String_Extended,0x63e9 ; "!machine.machine_name" 03c5 4801 |H | Short_Literal 0x1 03c6 48c8 |H | Short_Literal 0xc8 03c7 00e9 | | Load_Encached String_Cache 03c8 0334 | 4 | Declare_Variable Array,With_Constraint 03c9 4801 |H | Short_Literal 0x1 03ca 48c8 |H | Short_Literal 0xc8 03cb 00e9 | | Load_Encached String_Cache 03cc 0334 | 4 | Declare_Variable Array,With_Constraint 03cd 48c8 |H | Short_Literal 0xc8 03ce 4801 |H | Short_Literal 0x1 03cf 4820 |H | Short_Literal 0x20 03d0 e406 | | Load 0x2,0x6 03d1 e404 | | Load 0x2,0x4 03d2 01d6 | | Execute Vector,Field_Write 03d3 3ffb |? | Loop_Increasing 0x3cf 03d4 e403 | | Load 0x2,0x3 03d5 01d4 | | Execute Vector,Structure_Write 03d6 00e2 | | Load_Encached Integer_Cache 03d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03d8 e004 | | Load 0x0,0x4 03d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03da 02c7 | | Declare_Variable Any 03db 00d8 | | Load_Top At_Offset_0 03dc 1c00 | | Execute_Immediate Run_Utility,0x0 03dd e004 | | Load 0x0,0x4 03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03df 02c7 | | Declare_Variable Any 03e0 00d8 | | Load_Top At_Offset_0 03e1 1c00 | | Execute_Immediate Run_Utility,0x0 03e2 4801 |H | Short_Literal 0x1 03e3 4864 |Hd | Short_Literal 0x64 03e4 00e9 | | Load_Encached String_Cache 03e5 0334 | 4 | Declare_Variable Array,With_Constraint 03e6 4801 |H | Short_Literal 0x1 03e7 4864 |Hd | Short_Literal 0x64 03e8 00e9 | | Load_Encached String_Cache 03e9 0334 | 4 | Declare_Variable Array,With_Constraint 03ea 4864 |Hd | Short_Literal 0x64 03eb 4801 |H | Short_Literal 0x1 03ec 4820 |H | Short_Literal 0x20 03ed e40a | | Load 0x2,0xa 03ee e408 | | Load 0x2,0x8 03ef 01d6 | | Execute Vector,Field_Write 03f0 3ffb |? | Loop_Increasing 0x3ec 03f1 e407 | | Load 0x2,0x7 03f2 01d4 | | Execute Vector,Structure_Write 03f3 00e2 | | Load_Encached Integer_Cache 03f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03f5 4801 |H | Short_Literal 0x1 03f6 4864 |Hd | Short_Literal 0x64 03f7 00e9 | | Load_Encached String_Cache 03f8 0334 | 4 | Declare_Variable Array,With_Constraint 03f9 4801 |H | Short_Literal 0x1 03fa 4864 |Hd | Short_Literal 0x64 03fb 00e9 | | Load_Encached String_Cache 03fc 0334 | 4 | Declare_Variable Array,With_Constraint 03fd 4864 |Hd | Short_Literal 0x64 03fe 4801 |H | Short_Literal 0x1 03ff 4820 |H | Short_Literal 0x20 0400 e40c | | Load 0x2,0xc 0401 e40a | | Load 0x2,0xa 0402 01d6 | | Execute Vector,Field_Write 0403 3ffb |? | Loop_Increasing 0x3ff 0404 e409 | | Load 0x2,0x9 0405 01d4 | | Execute Vector,Structure_Write 0406 00e2 | | Load_Encached Integer_Cache 0407 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0408 4801 |H | Short_Literal 0x1 0409 4864 |Hd | Short_Literal 0x64 040a 00e9 | | Load_Encached String_Cache 040b 0334 | 4 | Declare_Variable Array,With_Constraint 040c 4801 |H | Short_Literal 0x1 040d 4864 |Hd | Short_Literal 0x64 040e 00e9 | | Load_Encached String_Cache 040f 0334 | 4 | Declare_Variable Array,With_Constraint 0410 4864 |Hd | Short_Literal 0x64 0411 4801 |H | Short_Literal 0x1 0412 4820 |H | Short_Literal 0x20 0413 e40e | | Load 0x2,0xe 0414 e40c | | Load 0x2,0xc 0415 01d6 | | Execute Vector,Field_Write 0416 3ffb |? | Loop_Increasing 0x412 0417 e40b | | Load 0x2,0xb 0418 01d4 | | Execute Vector,Structure_Write 0419 00e2 | | Load_Encached Integer_Cache 041a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 041b 4801 |H | Short_Literal 0x1 041c 4864 |Hd | Short_Literal 0x64 041d 00e9 | | Load_Encached String_Cache 041e 0334 | 4 | Declare_Variable Array,With_Constraint 041f 4801 |H | Short_Literal 0x1 0420 4864 |Hd | Short_Literal 0x64 0421 00e9 | | Load_Encached String_Cache 0422 0334 | 4 | Declare_Variable Array,With_Constraint 0423 4864 |Hd | Short_Literal 0x64 0424 4801 |H | Short_Literal 0x1 0425 4820 |H | Short_Literal 0x20 0426 e410 | | Load 0x2,0x10 0427 e40e | | Load 0x2,0xe 0428 01d6 | | Execute Vector,Field_Write 0429 3ffb |? | Loop_Increasing 0x425 042a e40d | | Load 0x2,0xd 042b 01d4 | | Execute Vector,Structure_Write 042c 00e2 | | Load_Encached Integer_Cache 042d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 042e 4801 |H | Short_Literal 0x1 042f 4864 |Hd | Short_Literal 0x64 0430 00e9 | | Load_Encached String_Cache 0431 0334 | 4 | Declare_Variable Array,With_Constraint 0432 4801 |H | Short_Literal 0x1 0433 4864 |Hd | Short_Literal 0x64 0434 00e9 | | Load_Encached String_Cache 0435 0334 | 4 | Declare_Variable Array,With_Constraint 0436 4864 |Hd | Short_Literal 0x64 0437 4801 |H | Short_Literal 0x1 0438 4820 |H | Short_Literal 0x20 0439 e412 | | Load 0x2,0x12 043a e410 | | Load 0x2,0x10 043b 01d6 | | Execute Vector,Field_Write 043c 3ffb |? | Loop_Increasing 0x438 043d e40f | | Load 0x2,0xf 043e 01d4 | | Execute Vector,Structure_Write 043f 00e2 | | Load_Encached Integer_Cache 0440 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0441 029f 276b | 'k| Declare_Subprogram INIT_2768,For_Call 0443 029f 279b | ' | Declare_Subprogram INIT_2798,For_Call 0445 029f 27d3 | ' | Declare_Subprogram INIT_27d0,For_Call 0447 BODY_03c0: 0447 00be | | Action Activate_Tasks 0448 0092 63ea | c | Action Push_String_Extended,0x63ea ; "000000" 044a 4801 |H | Short_Literal 0x1 044b 4806 |H | Short_Literal 0x6 044c e403 | | Load 0x2,0x3 044d 01ce | | Execute Vector,Slice_Write 044e 4806 |H | Short_Literal 0x6 044f a404 | | Store_Unchecked 0x2,0x4 0450 8411 | | Call 0x2,0x11 0451 e404 | | Load 0x2,0x4 0452 e002 | | Load 0x0,0x2 0453 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0454 e5fd | | Load 0x2,-0x3 0455 e002 | | Load 0x0,0x2 0456 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0457 01d5 | | Execute Vector,Field_Reference 0458 01d5 | | Execute Vector,Field_Reference 0459 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 045a 027d | } | Execute Discrete,Greater 045b 6809 |h | Jump_Zero 0x465 045c e002 | | Load 0x0,0x2 045d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 045e e5fd | | Load 0x2,-0x3 045f e002 | | Load 0x0,0x2 0460 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0461 01d5 | | Execute Vector,Field_Reference 0462 01d5 | | Execute Vector,Field_Reference 0463 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0464 a404 | | Store_Unchecked 0x2,0x4 0465 e5fd | | Load 0x2,-0x3 0466 0c01 | | Execute_Immediate Greater_Equal,0x1 0467 6830 |h0 | Jump_Zero 0x498 0468 e404 | | Load 0x2,0x4 0469 e002 | | Load 0x0,0x2 046a 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 046b e5fd | | Load 0x2,-0x3 046c e002 | | Load 0x0,0x2 046d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 046e 01d5 | | Execute Vector,Field_Reference 046f 01d5 | | Execute Vector,Field_Reference 0470 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0471 4801 |H | Short_Literal 0x1 0472 e404 | | Load 0x2,0x4 0473 e403 | | Load 0x2,0x3 0474 01cf | | Execute Vector,Slice_Read 0475 4801 |H | Short_Literal 0x1 0476 e404 | | Load 0x2,0x4 0477 e002 | | Load 0x0,0x2 0478 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0479 e5fd | | Load 0x2,-0x3 047a e002 | | Load 0x0,0x2 047b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 047c 01d7 | | Execute Vector,Field_Read 047d 01d7 | | Execute Vector,Field_Read 047e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 047f 01ce | | Execute Vector,Slice_Write 0480 e404 | | Load 0x2,0x4 0481 e002 | | Load 0x0,0x2 0482 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0483 e5fd | | Load 0x2,-0x3 0484 e002 | | Load 0x0,0x2 0485 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0486 01d5 | | Execute Vector,Field_Reference 0487 01d5 | | Execute Vector,Field_Reference 0488 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0489 4801 |H | Short_Literal 0x1 048a e404 | | Load 0x2,0x4 048b e403 | | Load 0x2,0x3 048c 01cf | | Execute Vector,Slice_Read 048d 4801 |H | Short_Literal 0x1 048e e404 | | Load 0x2,0x4 048f e002 | | Load 0x0,0x2 0490 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0491 e5fd | | Load 0x2,-0x3 0492 e002 | | Load 0x0,0x2 0493 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0494 01d7 | | Execute Vector,Field_Read 0495 01d7 | | Execute Vector,Field_Read 0496 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0497 01ce | | Execute Vector,Slice_Write 0498 e5fc | | Load 0x2,-0x4 0499 0c01 | | Execute_Immediate Greater_Equal,0x1 049a 6830 |h0 | Jump_Zero 0x4cb 049b e404 | | Load 0x2,0x4 049c e002 | | Load 0x0,0x2 049d 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 049e e5fc | | Load 0x2,-0x4 049f e002 | | Load 0x0,0x2 04a0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 04a1 01d5 | | Execute Vector,Field_Reference 04a2 01d5 | | Execute Vector,Field_Reference 04a3 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 04a4 4801 |H | Short_Literal 0x1 04a5 e404 | | Load 0x2,0x4 04a6 e403 | | Load 0x2,0x3 04a7 01cf | | Execute Vector,Slice_Read 04a8 4801 |H | Short_Literal 0x1 04a9 e404 | | Load 0x2,0x4 04aa e002 | | Load 0x0,0x2 04ab 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 04ac e5fc | | Load 0x2,-0x4 04ad e002 | | Load 0x0,0x2 04ae 1b90 | | Execute Package,Field_Read,Field_Number 0x90 04af 01d7 | | Execute Vector,Field_Read 04b0 01d7 | | Execute Vector,Field_Read 04b1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 04b2 01ce | | Execute Vector,Slice_Write 04b3 e404 | | Load 0x2,0x4 04b4 e002 | | Load 0x0,0x2 04b5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 04b6 e5fc | | Load 0x2,-0x4 04b7 e002 | | Load 0x0,0x2 04b8 1b90 | | Execute Package,Field_Read,Field_Number 0x90 04b9 01d5 | | Execute Vector,Field_Reference 04ba 01d5 | | Execute Vector,Field_Reference 04bb 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 04bc 4801 |H | Short_Literal 0x1 04bd e404 | | Load 0x2,0x4 04be e403 | | Load 0x2,0x3 04bf 01cf | | Execute Vector,Slice_Read 04c0 4801 |H | Short_Literal 0x1 04c1 e404 | | Load 0x2,0x4 04c2 e002 | | Load 0x0,0x2 04c3 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 04c4 e5fc | | Load 0x2,-0x4 04c5 e002 | | Load 0x0,0x2 04c6 1b90 | | Execute Package,Field_Read,Field_Number 0x90 04c7 01d7 | | Execute Vector,Field_Read 04c8 01d7 | | Execute Vector,Field_Read 04c9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 04ca 01ce | | Execute Vector,Slice_Write 04cb 4800 |H | Short_Literal 0x0 04cc a408 | | Store_Unchecked 0x2,0x8 04cd 4800 |H | Short_Literal 0x0 04ce a40a | | Store_Unchecked 0x2,0xa 04cf 4800 |H | Short_Literal 0x0 04d0 a40c | | Store_Unchecked 0x2,0xc 04d1 4800 |H | Short_Literal 0x0 04d2 a40e | | Store_Unchecked 0x2,0xe 04d3 8412 | | Call 0x2,0x12 04d4 8413 | | Call 0x2,0x13 04d5 e408 | | Load 0x2,0x8 04d6 7008 |p | Jump_Nonzero 0x4df 04d7 4806 |H | Short_Literal 0x6 04d8 a408 | | Store_Unchecked 0x2,0x8 04d9 0092 63ea | c | Action Push_String_Extended,0x63ea ; "000000" 04db 4801 |H | Short_Literal 0x1 04dc 4806 |H | Short_Literal 0x6 04dd e407 | | Load 0x2,0x7 04de 01ce | | Execute Vector,Slice_Write 04df e40a | | Load 0x2,0xa 04e0 7008 |p | Jump_Nonzero 0x4e9 04e1 480b |H | Short_Literal 0xb 04e2 a40a | | Store_Unchecked 0x2,0xa 04e3 0092 63eb | c | Action Push_String_Extended,0x63eb ; "New Company" 04e5 4801 |H | Short_Literal 0x1 04e6 480b |H | Short_Literal 0xb 04e7 e409 | | Load 0x2,0x9 04e8 01ce | | Execute Vector,Slice_Write 04e9 e40c | | Load 0x2,0xc 04ea 7008 |p | Jump_Nonzero 0x4f3 04eb 4803 |H | Short_Literal 0x3 04ec a40c | | Store_Unchecked 0x2,0xc 04ed 0092 63ec | c | Action Push_String_Extended,0x63ec ; "new" 04ef 4801 |H | Short_Literal 0x1 04f0 4803 |H | Short_Literal 0x3 04f1 e40b | | Load 0x2,0xb 04f2 01ce | | Execute Vector,Slice_Write 04f3 e40e | | Load 0x2,0xe 04f4 7008 |p | Jump_Nonzero 0x4fd 04f5 4808 |H | Short_Literal 0x8 04f6 a40e | | Store_Unchecked 0x2,0xe 04f7 0092 63ed | c | Action Push_String_Extended,0x63ed ; "new_site" 04f9 4801 |H | Short_Literal 0x1 04fa 4808 |H | Short_Literal 0x8 04fb e40d | | Load 0x2,0xd 04fc 01ce | | Execute Vector,Slice_Write 04fd e408 | | Load 0x2,0x8 04fe e002 | | Load 0x0,0x2 04ff 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0500 e5ff | | Load 0x2,-0x1 0501 e002 | | Load 0x0,0x2 0502 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0503 01d5 | | Execute Vector,Field_Reference 0504 01d5 | | Execute Vector,Field_Reference 0505 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0506 027d | } | Execute Discrete,Greater 0507 6809 |h | Jump_Zero 0x511 0508 e002 | | Load 0x0,0x2 0509 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 050a e5ff | | Load 0x2,-0x1 050b e002 | | Load 0x0,0x2 050c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 050d 01d5 | | Execute Vector,Field_Reference 050e 01d5 | | Execute Vector,Field_Reference 050f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0510 a408 | | Store_Unchecked 0x2,0x8 0511 e40a | | Load 0x2,0xa 0512 e002 | | Load 0x0,0x2 0513 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0514 e5fb | | Load 0x2,-0x5 0515 e002 | | Load 0x0,0x2 0516 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0517 01d5 | | Execute Vector,Field_Reference 0518 01d5 | | Execute Vector,Field_Reference 0519 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 051a 027d | } | Execute Discrete,Greater 051b 6809 |h | Jump_Zero 0x525 051c e002 | | Load 0x0,0x2 051d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 051e e5fb | | Load 0x2,-0x5 051f e002 | | Load 0x0,0x2 0520 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0521 01d5 | | Execute Vector,Field_Reference 0522 01d5 | | Execute Vector,Field_Reference 0523 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0524 a40a | | Store_Unchecked 0x2,0xa 0525 e40c | | Load 0x2,0xc 0526 e002 | | Load 0x0,0x2 0527 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0528 e5f9 | | Load 0x2,-0x7 0529 e002 | | Load 0x0,0x2 052a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 052b 01d5 | | Execute Vector,Field_Reference 052c 01d5 | | Execute Vector,Field_Reference 052d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 052e 027d | } | Execute Discrete,Greater 052f 6809 |h | Jump_Zero 0x539 0530 e002 | | Load 0x0,0x2 0531 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0532 e5f9 | | Load 0x2,-0x7 0533 e002 | | Load 0x0,0x2 0534 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0535 01d5 | | Execute Vector,Field_Reference 0536 01d5 | | Execute Vector,Field_Reference 0537 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0538 a40c | | Store_Unchecked 0x2,0xc 0539 e40e | | Load 0x2,0xe 053a e002 | | Load 0x0,0x2 053b 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 053c e5fa | | Load 0x2,-0x6 053d e002 | | Load 0x0,0x2 053e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 053f 01d5 | | Execute Vector,Field_Reference 0540 01d5 | | Execute Vector,Field_Reference 0541 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0542 027d | } | Execute Discrete,Greater 0543 6809 |h | Jump_Zero 0x54d 0544 e002 | | Load 0x0,0x2 0545 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0546 e5fa | | Load 0x2,-0x6 0547 e002 | | Load 0x0,0x2 0548 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0549 01d5 | | Execute Vector,Field_Reference 054a 01d5 | | Execute Vector,Field_Reference 054b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 054c a40c | | Store_Unchecked 0x2,0xc 054d e5ff | | Load 0x2,-0x1 054e 0c01 | | Execute_Immediate Greater_Equal,0x1 054f 6830 |h0 | Jump_Zero 0x580 0550 e408 | | Load 0x2,0x8 0551 e002 | | Load 0x0,0x2 0552 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0553 e5ff | | Load 0x2,-0x1 0554 e002 | | Load 0x0,0x2 0555 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0556 01d5 | | Execute Vector,Field_Reference 0557 01d5 | | Execute Vector,Field_Reference 0558 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0559 4801 |H | Short_Literal 0x1 055a e408 | | Load 0x2,0x8 055b e407 | | Load 0x2,0x7 055c 01cf | | Execute Vector,Slice_Read 055d 4801 |H | Short_Literal 0x1 055e e408 | | Load 0x2,0x8 055f e002 | | Load 0x0,0x2 0560 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0561 e5ff | | Load 0x2,-0x1 0562 e002 | | Load 0x0,0x2 0563 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0564 01d7 | | Execute Vector,Field_Read 0565 01d7 | | Execute Vector,Field_Read 0566 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0567 01ce | | Execute Vector,Slice_Write 0568 e408 | | Load 0x2,0x8 0569 e002 | | Load 0x0,0x2 056a 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 056b e5ff | | Load 0x2,-0x1 056c e002 | | Load 0x0,0x2 056d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 056e 01d5 | | Execute Vector,Field_Reference 056f 01d5 | | Execute Vector,Field_Reference 0570 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0571 4801 |H | Short_Literal 0x1 0572 e408 | | Load 0x2,0x8 0573 e407 | | Load 0x2,0x7 0574 01cf | | Execute Vector,Slice_Read 0575 4801 |H | Short_Literal 0x1 0576 e408 | | Load 0x2,0x8 0577 e002 | | Load 0x0,0x2 0578 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0579 e5ff | | Load 0x2,-0x1 057a e002 | | Load 0x0,0x2 057b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 057c 01d7 | | Execute Vector,Field_Read 057d 01d7 | | Execute Vector,Field_Read 057e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 057f 01ce | | Execute Vector,Slice_Write 0580 e5fe | | Load 0x2,-0x2 0581 0c01 | | Execute_Immediate Greater_Equal,0x1 0582 6830 |h0 | Jump_Zero 0x5b3 0583 e408 | | Load 0x2,0x8 0584 e002 | | Load 0x0,0x2 0585 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0586 e5fe | | Load 0x2,-0x2 0587 e002 | | Load 0x0,0x2 0588 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0589 01d5 | | Execute Vector,Field_Reference 058a 01d5 | | Execute Vector,Field_Reference 058b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 058c 4801 |H | Short_Literal 0x1 058d e408 | | Load 0x2,0x8 058e e407 | | Load 0x2,0x7 058f 01cf | | Execute Vector,Slice_Read 0590 4801 |H | Short_Literal 0x1 0591 e408 | | Load 0x2,0x8 0592 e002 | | Load 0x0,0x2 0593 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0594 e5fe | | Load 0x2,-0x2 0595 e002 | | Load 0x0,0x2 0596 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0597 01d7 | | Execute Vector,Field_Read 0598 01d7 | | Execute Vector,Field_Read 0599 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 059a 01ce | | Execute Vector,Slice_Write 059b e408 | | Load 0x2,0x8 059c e002 | | Load 0x0,0x2 059d 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 059e e5fe | | Load 0x2,-0x2 059f e002 | | Load 0x0,0x2 05a0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05a1 01d5 | | Execute Vector,Field_Reference 05a2 01d5 | | Execute Vector,Field_Reference 05a3 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05a4 4801 |H | Short_Literal 0x1 05a5 e408 | | Load 0x2,0x8 05a6 e407 | | Load 0x2,0x7 05a7 01cf | | Execute Vector,Slice_Read 05a8 4801 |H | Short_Literal 0x1 05a9 e408 | | Load 0x2,0x8 05aa e002 | | Load 0x0,0x2 05ab 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 05ac e5fe | | Load 0x2,-0x2 05ad e002 | | Load 0x0,0x2 05ae 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05af 01d7 | | Execute Vector,Field_Read 05b0 01d7 | | Execute Vector,Field_Read 05b1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05b2 01ce | | Execute Vector,Slice_Write 05b3 e5fb | | Load 0x2,-0x5 05b4 0c01 | | Execute_Immediate Greater_Equal,0x1 05b5 6830 |h0 | Jump_Zero 0x5e6 05b6 e40a | | Load 0x2,0xa 05b7 e002 | | Load 0x0,0x2 05b8 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 05b9 e5fb | | Load 0x2,-0x5 05ba e002 | | Load 0x0,0x2 05bb 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05bc 01d5 | | Execute Vector,Field_Reference 05bd 01d5 | | Execute Vector,Field_Reference 05be 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05bf 4801 |H | Short_Literal 0x1 05c0 e40a | | Load 0x2,0xa 05c1 e409 | | Load 0x2,0x9 05c2 01cf | | Execute Vector,Slice_Read 05c3 4801 |H | Short_Literal 0x1 05c4 e40a | | Load 0x2,0xa 05c5 e002 | | Load 0x0,0x2 05c6 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 05c7 e5fb | | Load 0x2,-0x5 05c8 e002 | | Load 0x0,0x2 05c9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05ca 01d7 | | Execute Vector,Field_Read 05cb 01d7 | | Execute Vector,Field_Read 05cc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05cd 01ce | | Execute Vector,Slice_Write 05ce e40a | | Load 0x2,0xa 05cf e002 | | Load 0x0,0x2 05d0 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 05d1 e5fb | | Load 0x2,-0x5 05d2 e002 | | Load 0x0,0x2 05d3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05d4 01d5 | | Execute Vector,Field_Reference 05d5 01d5 | | Execute Vector,Field_Reference 05d6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05d7 4801 |H | Short_Literal 0x1 05d8 e40a | | Load 0x2,0xa 05d9 e409 | | Load 0x2,0x9 05da 01cf | | Execute Vector,Slice_Read 05db 4801 |H | Short_Literal 0x1 05dc e40a | | Load 0x2,0xa 05dd e002 | | Load 0x0,0x2 05de 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 05df e5fb | | Load 0x2,-0x5 05e0 e002 | | Load 0x0,0x2 05e1 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05e2 01d7 | | Execute Vector,Field_Read 05e3 01d7 | | Execute Vector,Field_Read 05e4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05e5 01ce | | Execute Vector,Slice_Write 05e6 e5f9 | | Load 0x2,-0x7 05e7 0c01 | | Execute_Immediate Greater_Equal,0x1 05e8 6830 |h0 | Jump_Zero 0x619 05e9 e40c | | Load 0x2,0xc 05ea e002 | | Load 0x0,0x2 05eb 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 05ec e5f9 | | Load 0x2,-0x7 05ed e002 | | Load 0x0,0x2 05ee 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05ef 01d5 | | Execute Vector,Field_Reference 05f0 01d5 | | Execute Vector,Field_Reference 05f1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05f2 4801 |H | Short_Literal 0x1 05f3 e40c | | Load 0x2,0xc 05f4 e40b | | Load 0x2,0xb 05f5 01cf | | Execute Vector,Slice_Read 05f6 4801 |H | Short_Literal 0x1 05f7 e40c | | Load 0x2,0xc 05f8 e002 | | Load 0x0,0x2 05f9 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 05fa e5f9 | | Load 0x2,-0x7 05fb e002 | | Load 0x0,0x2 05fc 1b90 | | Execute Package,Field_Read,Field_Number 0x90 05fd 01d7 | | Execute Vector,Field_Read 05fe 01d7 | | Execute Vector,Field_Read 05ff 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0600 01ce | | Execute Vector,Slice_Write 0601 e40c | | Load 0x2,0xc 0602 e002 | | Load 0x0,0x2 0603 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0604 e5f9 | | Load 0x2,-0x7 0605 e002 | | Load 0x0,0x2 0606 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0607 01d5 | | Execute Vector,Field_Reference 0608 01d5 | | Execute Vector,Field_Reference 0609 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 060a 4801 |H | Short_Literal 0x1 060b e40c | | Load 0x2,0xc 060c e40b | | Load 0x2,0xb 060d 01cf | | Execute Vector,Slice_Read 060e 4801 |H | Short_Literal 0x1 060f e40c | | Load 0x2,0xc 0610 e002 | | Load 0x0,0x2 0611 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0612 e5f9 | | Load 0x2,-0x7 0613 e002 | | Load 0x0,0x2 0614 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0615 01d7 | | Execute Vector,Field_Read 0616 01d7 | | Execute Vector,Field_Read 0617 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0618 01ce | | Execute Vector,Slice_Write 0619 e5fa | | Load 0x2,-0x6 061a 0c01 | | Execute_Immediate Greater_Equal,0x1 061b 6830 |h0 | Jump_Zero 0x64c 061c e40e | | Load 0x2,0xe 061d e002 | | Load 0x0,0x2 061e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 061f e5fa | | Load 0x2,-0x6 0620 e002 | | Load 0x0,0x2 0621 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0622 01d5 | | Execute Vector,Field_Reference 0623 01d5 | | Execute Vector,Field_Reference 0624 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0625 4801 |H | Short_Literal 0x1 0626 e40e | | Load 0x2,0xe 0627 e40d | | Load 0x2,0xd 0628 01cf | | Execute Vector,Slice_Read 0629 4801 |H | Short_Literal 0x1 062a e40e | | Load 0x2,0xe 062b e002 | | Load 0x0,0x2 062c 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 062d e5fa | | Load 0x2,-0x6 062e e002 | | Load 0x0,0x2 062f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0630 01d7 | | Execute Vector,Field_Read 0631 01d7 | | Execute Vector,Field_Read 0632 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0633 01ce | | Execute Vector,Slice_Write 0634 e40e | | Load 0x2,0xe 0635 e002 | | Load 0x0,0x2 0636 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0637 e5fa | | Load 0x2,-0x6 0638 e002 | | Load 0x0,0x2 0639 1b90 | | Execute Package,Field_Read,Field_Number 0x90 063a 01d5 | | Execute Vector,Field_Reference 063b 01d5 | | Execute Vector,Field_Reference 063c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 063d 4801 |H | Short_Literal 0x1 063e e40e | | Load 0x2,0xe 063f e40d | | Load 0x2,0xd 0640 01cf | | Execute Vector,Slice_Read 0641 4801 |H | Short_Literal 0x1 0642 e40e | | Load 0x2,0xe 0643 e002 | | Load 0x0,0x2 0644 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0645 e5fa | | Load 0x2,-0x6 0646 e002 | | Load 0x0,0x2 0647 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0648 01d7 | | Execute Vector,Field_Read 0649 01d7 | | Execute Vector,Field_Read 064a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 064b 01ce | | Execute Vector,Slice_Write 064c e002 | | Load 0x0,0x2 064d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 064e 702c |p, | Jump_Nonzero 0x67b 064f 0092 63ee | c | Action Push_String_Extended,0x63ee ; "Company Name : " 0651 4801 |H | Short_Literal 0x1 0652 e40a | | Load 0x2,0xa 0653 e409 | | Load 0x2,0x9 0654 01cf | | Execute Vector,Slice_Read 0655 01cc | | Execute Vector,Catenate 0656 e001 | | Load 0x0,0x1 0657 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0658 e001 | | Load 0x0,0x1 0659 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 065a 0092 63ef | c | Action Push_String_Extended,0x63ef ; "System ID # : " 065c 4801 |H | Short_Literal 0x1 065d e408 | | Load 0x2,0x8 065e e407 | | Load 0x2,0x7 065f 01cf | | Execute Vector,Slice_Read 0660 01cc | | Execute Vector,Catenate 0661 e001 | | Load 0x0,0x1 0662 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0663 e001 | | Load 0x0,0x1 0664 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0665 0092 63f0 | c | Action Push_String_Extended,0x63f0 ; "Machine Name : " 0667 4801 |H | Short_Literal 0x1 0668 e404 | | Load 0x2,0x4 0669 e403 | | Load 0x2,0x3 066a 01cf | | Execute Vector,Slice_Read 066b 01cc | | Execute Vector,Catenate 066c e001 | | Load 0x0,0x1 066d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 066e e001 | | Load 0x0,0x1 066f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0670 0092 63f1 | c | Action Push_String_Extended,0x63f1 ; "Local Site : " 0672 4801 |H | Short_Literal 0x1 0673 e40e | | Load 0x2,0xe 0674 e40d | | Load 0x2,0xd 0675 01cf | | Execute Vector,Slice_Read 0676 01cc | | Execute Vector,Catenate 0677 e001 | | Load 0x0,0x1 0678 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0679 e001 | | Load 0x0,0x1 067a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 067b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 067c TRAP_03c0: 067c 0007 | | Action Break_Optional 067d 4800 |H | Short_Literal 0x0 067e 4801 |H | Short_Literal 0x1 067f 0092 63f2 | c | Action Push_String_Extended,0x63f2 ; "Exception in ap_init_sysid_company" 0681 e001 | | Load 0x0,0x1 0682 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0683 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0684 0000 0000 | | .BLANK 0000[0x4] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068f | | .CONST 0x068f ; Address of begin 0689 06e3 | | .CONST 0x06e3 ; Address of exception handler 068a 0003 | | .CONST 0x0003 ; Number of locals 068b INIT_0688: 068b 00e2 | | Load_Encached Integer_Cache 068c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 068d 00e2 | | Load_Encached Integer_Cache 068e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 068f BODY_0688: 068f 4800 |H | Short_Literal 0x0 0690 a5f8 | | Store_Unchecked 0x2,-0x8 0691 4800 |H | Short_Literal 0x0 0692 a5f9 | | Store_Unchecked 0x2,-0x7 0693 4800 |H | Short_Literal 0x0 0694 a5fb | | Store_Unchecked 0x2,-0x5 0695 4fff |O | Short_Literal -0x1 0696 a402 | | Store_Unchecked 0x2,0x2 0697 00cf | | Action Mark_Auxiliary 0698 e5fd | | Load 0x2,-0x3 0699 09ff | | Execute_Immediate Binary_Scale,-0x1 069a 4801 |H | Short_Literal 0x1 069b 0263 | c | Execute Discrete,Above_Bound 069c 7045 |pE | Jump_Nonzero 0x6e2 069d e402 | | Load 0x2,0x2 069e 0a02 | | Execute_Immediate Plus,0x2 069f 0248 | H | Execute Discrete,Check_In_Integer 06a0 a402 | | Store_Unchecked 0x2,0x2 06a1 00e1 | | Load_Encached Boolean_Cache 06a2 4801 |H | Short_Literal 0x1 06a3 4fff |O | Short_Literal -0x1 06a4 4801 |H | Short_Literal 0x1 06a5 e402 | | Load 0x2,0x2 06a6 e5fe | | Load 0x2,-0x2 06a7 01d5 | | Execute Vector,Field_Reference 06a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06a9 e402 | | Load 0x2,0x2 06aa e5fe | | Load 0x2,-0x2 06ab 01d5 | | Execute Vector,Field_Reference 06ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06ad 01cf | | Execute Vector,Slice_Read 06ae 4fff |O | Short_Literal -0x1 06af e5ff | | Load 0x2,-0x1 06b0 e001 | | Load 0x0,0x1 06b1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06b2 c5f8 | | Store 0x2,-0x8 06b3 e5f8 | | Load 0x2,-0x8 06b4 0f01 | | Execute_Immediate Equal,0x1 06b5 682a |h* | Jump_Zero 0x6e0 06b6 e402 | | Load 0x2,0x2 06b7 0a01 | | Execute_Immediate Plus,0x1 06b8 0248 | H | Execute Discrete,Check_In_Integer 06b9 e5fe | | Load 0x2,-0x2 06ba 01d5 | | Execute Vector,Field_Reference 06bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06bc a403 | | Store_Unchecked 0x2,0x3 06bd e403 | | Load 0x2,0x3 06be a5f9 | | Store_Unchecked 0x2,-0x7 06bf 4801 |H | Short_Literal 0x1 06c0 e403 | | Load 0x2,0x3 06c1 e402 | | Load 0x2,0x2 06c2 0a01 | | Execute_Immediate Plus,0x1 06c3 0248 | H | Execute Discrete,Check_In_Integer 06c4 e5fe | | Load 0x2,-0x2 06c5 01d5 | | Execute Vector,Field_Reference 06c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06c7 01cf | | Execute Vector,Slice_Read 06c8 4801 |H | Short_Literal 0x1 06c9 e403 | | Load 0x2,0x3 06ca e5fa | | Load 0x2,-0x6 06cb 01ce | | Execute Vector,Slice_Write 06cc e402 | | Load 0x2,0x2 06cd e5fe | | Load 0x2,-0x2 06ce 01d5 | | Execute Vector,Field_Reference 06cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06d0 a403 | | Store_Unchecked 0x2,0x3 06d1 e403 | | Load 0x2,0x3 06d2 a5fb | | Store_Unchecked 0x2,-0x5 06d3 4801 |H | Short_Literal 0x1 06d4 e403 | | Load 0x2,0x3 06d5 e402 | | Load 0x2,0x2 06d6 e5fe | | Load 0x2,-0x2 06d7 01d5 | | Execute Vector,Field_Reference 06d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06d9 01cf | | Execute Vector,Slice_Read 06da 4801 |H | Short_Literal 0x1 06db e403 | | Load 0x2,0x3 06dc e5fc | | Load 0x2,-0x4 06dd 01ce | | Execute Vector,Slice_Write 06de 00d2 | | Pop_Control Pop_Count_2 06df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06e0 00c8 | | Action Pop_Auxiliary_Range 06e1 3fbb |? | Loop_Increasing 0x69d 06e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06e3 TRAP_0688: 06e3 0007 | | Action Break_Optional 06e4 4800 |H | Short_Literal 0x0 06e5 4801 |H | Short_Literal 0x1 06e6 0092 63f3 | c | Action Push_String_Extended,0x63f3 ; "Exception in ap_find_alias_name" 06e8 e001 | | Load 0x0,0x1 06e9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 06ea 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06eb 0000 0000 | | .BLANK 0000[0x5] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 070c | | .CONST 0x070c ; Address of begin 06f1 072c | , | .CONST 0x072c ; Address of exception handler 06f2 0006 | | .CONST 0x0006 ; Number of locals 06f3 INIT_06f0: 06f3 4801 |H | Short_Literal 0x1 06f4 4832 |H2 | Short_Literal 0x32 06f5 00e9 | | Load_Encached String_Cache 06f6 0334 | 4 | Declare_Variable Array,With_Constraint 06f7 4801 |H | Short_Literal 0x1 06f8 4832 |H2 | Short_Literal 0x32 06f9 00e9 | | Load_Encached String_Cache 06fa 0334 | 4 | Declare_Variable Array,With_Constraint 06fb 4832 |H2 | Short_Literal 0x32 06fc 4801 |H | Short_Literal 0x1 06fd 4820 |H | Short_Literal 0x20 06fe e405 | | Load 0x2,0x5 06ff e403 | | Load 0x2,0x3 0700 01d6 | | Execute Vector,Field_Write 0701 3ffb |? | Loop_Increasing 0x6fd 0702 e402 | | Load 0x2,0x2 0703 01d4 | | Execute Vector,Structure_Write 0704 00e2 | | Load_Encached Integer_Cache 0705 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0706 029f 2863 | (c| Declare_Subprogram INIT_2860,For_Call 0708 029f 28db | ( | Declare_Subprogram INIT_28d8,For_Call 070a 029f 2943 | )C| Declare_Subprogram INIT_2940,For_Call 070c BODY_06f0: 070c 8404 | | Call 0x2,0x4 070d 8405 | | Call 0x2,0x5 070e e002 | | Load 0x0,0x2 070f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0710 700b |p | Jump_Nonzero 0x71c 0711 0092 63f4 | c | Action Push_String_Extended,0x63f4 ; "User Name : " 0713 4801 |H | Short_Literal 0x1 0714 e403 | | Load 0x2,0x3 0715 e402 | | Load 0x2,0x2 0716 01cf | | Execute Vector,Slice_Read 0717 01cc | | Execute Vector,Catenate 0718 e001 | | Load 0x0,0x1 0719 181d | | Execute Package,Field_Execute,Field_Number 0x1d 071a e001 | | Load 0x0,0x1 071b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 071c 8406 | | Call 0x2,0x6 071d e002 | | Load 0x0,0x2 071e 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 071f 700b |p | Jump_Nonzero 0x72b 0720 0092 63f5 | c | Action Push_String_Extended,0x63f5 ; "Configuration: " 0722 4801 |H | Short_Literal 0x1 0723 e403 | | Load 0x2,0x3 0724 e402 | | Load 0x2,0x2 0725 01cf | | Execute Vector,Slice_Read 0726 01cc | | Execute Vector,Catenate 0727 e001 | | Load 0x0,0x1 0728 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0729 e001 | | Load 0x0,0x1 072a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 072b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 072c TRAP_06f0: 072c 0007 | | Action Break_Optional 072d 4800 |H | Short_Literal 0x0 072e 4801 |H | Short_Literal 0x1 072f 0092 63f6 | c | Action Push_String_Extended,0x63f6 ; "Exception in ap_init_username_etc_defaults" 0731 e001 | | Load 0x0,0x1 0732 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0733 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0734 0000 0000 | | .BLANK 0000[0x4] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 073d | = | .CONST 0x073d ; Address of begin 0739 073f | ? | .CONST 0x073f ; Address of exception handler 073a 0002 | | .CONST 0x0002 ; Number of locals 073b INIT_0738: 073b 029f 29ab | ) | Declare_Subprogram INIT_29a8,For_Call 073d BODY_0738: 073d 8402 | | Call 0x2,0x2 073e 450a |E | Exit_Suprogram New_Top_Offset 0xa 073f TRAP_0738: 073f 0007 | | Action Break_Optional 0740 4800 |H | Short_Literal 0x0 0741 4801 |H | Short_Literal 0x1 0742 0092 63f7 | c | Action Push_String_Extended,0x63f7 ; "Exception in ap_put_flag_file" 0744 e001 | | Load 0x0,0x1 0745 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0746 450a |E | Exit_Suprogram New_Top_Offset 0xa 0747 0000 | | .XXX[0x1] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074d | M | .CONST 0x074d ; Address of begin 0749 074f | O | .CONST 0x074f ; Address of exception handler 074a 0002 | | .CONST 0x0002 ; Number of locals 074b INIT_0748: 074b 029f 2a7b | *{| Declare_Subprogram INIT_2a78,For_Call 074d BODY_0748: 074d 8402 | | Call 0x2,0x2 074e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 074f TRAP_0748: 074f 0007 | | Action Break_Optional 0750 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0751 0000 0000 | | .BLANK 0000[0x7] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075d | ] | .CONST 0x075d ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0002 | | .CONST 0x0002 ; Number of locals 075b INIT_0758: 075b 029f 2a93 | * | Declare_Subprogram INIT_2a90,For_Call 075d BODY_0758: 075d 8402 | | Call 0x2,0x2 075e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 075f 0000 | | .XXX[0x1] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0835 | 5 | .CONST 0x0835 ; Address of begin 0761 0b47 | G | .CONST 0x0b47 ; Address of exception handler 0762 002f | / | .CONST 0x002f ; Number of locals 0763 INIT_0760: 0763 00e1 | | Load_Encached Boolean_Cache 0764 00e1 | | Load_Encached Boolean_Cache 0765 00e1 | | Load_Encached Boolean_Cache 0766 00e2 | | Load_Encached Integer_Cache 0767 00e2 | | Load_Encached Integer_Cache 0768 029f 3043 | 0C| Declare_Subprogram INIT_3040,For_Call 076a 4805 |H | Short_Literal 0x5 076b 032d | - | Declare_Type Record,Defined 076c 00d8 | | Load_Top At_Offset_0 076d 0322 | " | Declare_Variable Record 076e 00d8 | | Load_Top At_Offset_0 076f 1c00 | | Execute_Immediate Run_Utility,0x0 0770 4801 |H | Short_Literal 0x1 0771 48c8 |H | Short_Literal 0xc8 0772 e402 | | Load 0x2,0x2 0773 029f 3063 | 0c| Declare_Subprogram INIT_3060,For_Call 0775 4801 |H | Short_Literal 0x1 0776 035d | ] | Declare_Type Array,Defined 0777 00e2 | | Load_Encached Integer_Cache 0778 06c8 | | Execute_Immediate Set_Value_Unchecked,0xc8 0779 e404 | | Load 0x2,0x4 077a 0337 | 7 | Declare_Variable Array 077b 00d8 | | Load_Top At_Offset_0 077c 1c00 | | Execute_Immediate Run_Utility,0x0 077d 00e2 | | Load_Encached Integer_Cache 077e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 077f 00e2 | | Load_Encached Integer_Cache 0780 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0781 00e2 | | Load_Encached Integer_Cache 0782 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0783 00e2 | | Load_Encached Integer_Cache 0784 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0785 00e1 | | Load_Encached Boolean_Cache 0786 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0787 00e2 | | Load_Encached Integer_Cache 0788 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0789 00e2 | | Load_Encached Integer_Cache 078a 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 078b 00e2 | | Load_Encached Integer_Cache 078c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 078d 00e1 | | Load_Encached Boolean_Cache 078e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 078f 00e2 | | Load_Encached Integer_Cache 0790 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0791 00e2 | | Load_Encached Integer_Cache 0792 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0793 4801 |H | Short_Literal 0x1 0794 480a |H | Short_Literal 0xa 0795 00e9 | | Load_Encached String_Cache 0796 0334 | 4 | Declare_Variable Array,With_Constraint 0797 4801 |H | Short_Literal 0x1 0798 480a |H | Short_Literal 0xa 0799 00e9 | | Load_Encached String_Cache 079a 0334 | 4 | Declare_Variable Array,With_Constraint 079b 480a |H | Short_Literal 0xa 079c 4801 |H | Short_Literal 0x1 079d 4820 |H | Short_Literal 0x20 079e e415 | | Load 0x2,0x15 079f e413 | | Load 0x2,0x13 07a0 01d6 | | Execute Vector,Field_Write 07a1 3ffb |? | Loop_Increasing 0x79d 07a2 e412 | | Load 0x2,0x12 07a3 01d4 | | Execute Vector,Structure_Write 07a4 4801 |H | Short_Literal 0x1 07a5 480d |H | Short_Literal 0xd 07a6 00e9 | | Load_Encached String_Cache 07a7 0334 | 4 | Declare_Variable Array,With_Constraint 07a8 53a7 |S | Indirect_Literal Any,0xb50,{0x53696d73, 0x5f73756d} 07a9 4801 |H | Short_Literal 0x1 07aa 483c |H< | Short_Literal 0x3c 07ab 00e9 | | Load_Encached String_Cache 07ac 0334 | 4 | Declare_Variable Array,With_Constraint 07ad 4801 |H | Short_Literal 0x1 07ae 483c |H< | Short_Literal 0x3c 07af 00e9 | | Load_Encached String_Cache 07b0 0334 | 4 | Declare_Variable Array,With_Constraint 07b1 483c |H< | Short_Literal 0x3c 07b2 4801 |H | Short_Literal 0x1 07b3 4820 |H | Short_Literal 0x20 07b4 e417 | | Load 0x2,0x17 07b5 e415 | | Load 0x2,0x15 07b6 01d6 | | Execute Vector,Field_Write 07b7 3ffb |? | Loop_Increasing 0x7b3 07b8 e414 | | Load 0x2,0x14 07b9 01d4 | | Execute Vector,Structure_Write 07ba 00e2 | | Load_Encached Integer_Cache 07bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07bc 4801 |H | Short_Literal 0x1 07bd 4804 |H | Short_Literal 0x4 07be 00e9 | | Load_Encached String_Cache 07bf 0334 | 4 | Declare_Variable Array,With_Constraint 07c0 5397 |S | Indirect_Literal Any,0xb58,{0x5f646f63, 0x20202020} 07c1 e004 | | Load 0x0,0x4 07c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c3 02c7 | | Declare_Variable Any 07c4 00d8 | | Load_Top At_Offset_0 07c5 1c00 | | Execute_Immediate Run_Utility,0x0 07c6 4801 |H | Short_Literal 0x1 07c7 483c |H< | Short_Literal 0x3c 07c8 00e9 | | Load_Encached String_Cache 07c9 0334 | 4 | Declare_Variable Array,With_Constraint 07ca 4801 |H | Short_Literal 0x1 07cb 483c |H< | Short_Literal 0x3c 07cc 00e9 | | Load_Encached String_Cache 07cd 0334 | 4 | Declare_Variable Array,With_Constraint 07ce 483c |H< | Short_Literal 0x3c 07cf 4801 |H | Short_Literal 0x1 07d0 4820 |H | Short_Literal 0x20 07d1 e41b | | Load 0x2,0x1b 07d2 e419 | | Load 0x2,0x19 07d3 01d6 | | Execute Vector,Field_Write 07d4 3ffb |? | Loop_Increasing 0x7d0 07d5 e418 | | Load 0x2,0x18 07d6 01d4 | | Execute Vector,Structure_Write 07d7 00e2 | | Load_Encached Integer_Cache 07d8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07d9 00e2 | | Load_Encached Integer_Cache 07da 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07db 00e2 | | Load_Encached Integer_Cache 07dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07dd 4801 |H | Short_Literal 0x1 07de 480a |H | Short_Literal 0xa 07df 00e9 | | Load_Encached String_Cache 07e0 0334 | 4 | Declare_Variable Array,With_Constraint 07e1 537a |Sz | Indirect_Literal Any,0xb5c,{0x20312e20, 0x496e6465} 07e2 4801 |H | Short_Literal 0x1 07e3 480a |H | Short_Literal 0xa 07e4 00e9 | | Load_Encached String_Cache 07e5 0334 | 4 | Declare_Variable Array,With_Constraint 07e6 4801 |H | Short_Literal 0x1 07e7 480a |H | Short_Literal 0xa 07e8 00e9 | | Load_Encached String_Cache 07e9 0334 | 4 | Declare_Variable Array,With_Constraint 07ea 480a |H | Short_Literal 0xa 07eb 4801 |H | Short_Literal 0x1 07ec 4820 |H | Short_Literal 0x20 07ed e420 | | Load 0x2,0x20 07ee e41e | | Load 0x2,0x1e 07ef 01d6 | | Execute Vector,Field_Write 07f0 3ffb |? | Loop_Increasing 0x7ec 07f1 e41d | | Load 0x2,0x1d 07f2 01d4 | | Execute Vector,Structure_Write 07f3 4801 |H | Short_Literal 0x1 07f4 4850 |HP | Short_Literal 0x50 07f5 00e9 | | Load_Encached String_Cache 07f6 0334 | 4 | Declare_Variable Array,With_Constraint 07f7 4801 |H | Short_Literal 0x1 07f8 4850 |HP | Short_Literal 0x50 07f9 00e9 | | Load_Encached String_Cache 07fa 0334 | 4 | Declare_Variable Array,With_Constraint 07fb 4850 |HP | Short_Literal 0x50 07fc 4801 |H | Short_Literal 0x1 07fd 4820 |H | Short_Literal 0x20 07fe e421 | ! | Load 0x2,0x21 07ff e41f | | Load 0x2,0x1f 0800 01d6 | | Execute Vector,Field_Write 0801 3ffb |? | Loop_Increasing 0x7fd 0802 e41e | | Load 0x2,0x1e 0803 01d4 | | Execute Vector,Structure_Write 0804 00e2 | | Load_Encached Integer_Cache 0805 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0806 00e2 | | Load_Encached Integer_Cache 0807 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0808 00e2 | | Load_Encached Integer_Cache 0809 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 080a 4801 |H | Short_Literal 0x1 080b 480a |H | Short_Literal 0xa 080c 00e9 | | Load_Encached String_Cache 080d 0334 | 4 | Declare_Variable Array,With_Constraint 080e 4801 |H | Short_Literal 0x1 080f 480a |H | Short_Literal 0xa 0810 00e9 | | Load_Encached String_Cache 0811 0334 | 4 | Declare_Variable Array,With_Constraint 0812 480a |H | Short_Literal 0xa 0813 4801 |H | Short_Literal 0x1 0814 4820 |H | Short_Literal 0x20 0815 e425 | % | Load 0x2,0x25 0816 e423 | # | Load 0x2,0x23 0817 01d6 | | Execute Vector,Field_Write 0818 3ffb |? | Loop_Increasing 0x814 0819 e422 | " | Load 0x2,0x22 081a 01d4 | | Execute Vector,Structure_Write 081b 00e2 | | Load_Encached Integer_Cache 081c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 081d 00e2 | | Load_Encached Integer_Cache 081e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 081f 00e2 | | Load_Encached Integer_Cache 0820 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0821 00e1 | | Load_Encached Boolean_Cache 0822 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0823 00e2 | | Load_Encached Integer_Cache 0824 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0825 00e1 | | Load_Encached Boolean_Cache 0826 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0827 00e2 | | Load_Encached Integer_Cache 0828 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0829 00e2 | | Load_Encached Integer_Cache 082a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 082b 00e2 | | Load_Encached Integer_Cache 082c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 082d 00e2 | | Load_Encached Integer_Cache 082e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 082f 00e2 | | Load_Encached Integer_Cache 0830 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0831 00e2 | | Load_Encached Integer_Cache 0832 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0833 00e2 | | Load_Encached Integer_Cache 0834 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0835 BODY_0760: 0835 00be | | Action Activate_Tasks 0836 4800 |H | Short_Literal 0x0 0837 4801 |H | Short_Literal 0x1 0838 0092 63f8 | c | Action Push_String_Extended,0x63f8 ; "Starting SIMS Automatic Report Generator ...." 083a e001 | | Load 0x0,0x1 083b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 083c e40d | | Load 0x2,0xd 083d 4801 |H | Short_Literal 0x1 083e 4802 |H | Short_Literal 0x2 083f 0092 63f9 | c | Action Push_String_Extended,0x63f9 ; "Enter desired database number to use for reporting: " 0841 e001 | | Load 0x0,0x1 0842 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0843 c40d | | Store 0x2,0xd 0844 e40d | | Load 0x2,0xd 0845 7007 |p | Jump_Nonzero 0x84d 0846 4800 |H | Short_Literal 0x0 0847 4803 |H | Short_Literal 0x3 0848 0092 63fa | c | Action Push_String_Extended,0x63fa ; "Auto Report Generator command bypassed, 0 not valid." 084a e001 | | Load 0x0,0x1 084b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 084c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 084d 4800 |H | Short_Literal 0x0 084e 4801 |H | Short_Literal 0x1 084f e002 | | Load 0x0,0x2 0850 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0851 e002 | | Load 0x0,0x2 0852 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0853 01cf | | Execute Vector,Slice_Read 0854 0092 63fb | c | Action Push_String_Extended,0x63fb ; "gen_params_master" 0856 01cc | | Execute Vector,Catenate 0857 e40d | | Load 0x2,0xd 0858 8267 | g | Call 0x1,0x67 0859 4800 |H | Short_Literal 0x0 085a 4803 |H | Short_Literal 0x3 085b 0092 63fc | c | Action Push_String_Extended,0x63fc ; "Enter a short file name to use for your report file: " 085d e001 | | Load 0x0,0x1 085e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 085f e415 | | Load 0x2,0x15 0860 e414 | | Load 0x2,0x14 0861 4801 |H | Short_Literal 0x1 0862 e001 | | Load 0x0,0x1 0863 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0864 00d1 | | Pop_Control Pop_Count_1 0865 c415 | | Store 0x2,0x15 0866 e415 | | Load 0x2,0x15 0867 0aff | | Execute_Immediate Plus,-0x1 0868 0248 | H | Execute Discrete,Check_In_Integer 0869 a415 | | Store_Unchecked 0x2,0x15 086a e40e | | Load 0x2,0xe 086b 4801 |H | Short_Literal 0x1 086c 4804 |H | Short_Literal 0x4 086d 0092 63fd | c | Action Push_String_Extended,0x63fd ; "How many extra spaces do you want between fields? (0-50max)?" 086f e001 | | Load 0x0,0x1 0870 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0871 c40e | | Store 0x2,0xe 0872 e40e | | Load 0x2,0xe 0873 0c33 | 3 | Execute_Immediate Greater_Equal,0x33 0874 6803 |h | Jump_Zero 0x878 0875 4832 |H2 | Short_Literal 0x32 0876 a40e | | Store_Unchecked 0x2,0xe 0877 7805 |x | Jump 0x87d 0878 e40e | | Load 0x2,0xe 0879 0d00 | | Execute_Immediate Less,0x0 087a 6802 |h | Jump_Zero 0x87d 087b 4800 |H | Short_Literal 0x0 087c a40e | | Store_Unchecked 0x2,0xe 087d e422 | " | Load 0x2,0x22 087e 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 0880 4804 |H | Short_Literal 0x4 0881 0092 63ff | c | Action Push_String_Extended,0x63ff ; "Do you want to automatically wrap long report lines at 80? " 0883 e001 | | Load 0x0,0x1 0884 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0885 00d1 | | Pop_Control Pop_Count_1 0886 4801 |H | Short_Literal 0x1 0887 4801 |H | Short_Literal 0x1 0888 e422 | " | Load 0x2,0x22 0889 01cf | | Execute Vector,Slice_Read 088a 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 088c 01df | | Execute Vector,Equal 088d 6803 |h | Jump_Zero 0x891 088e 4800 |H | Short_Literal 0x0 088f a40f | | Store_Unchecked 0x2,0xf 0890 7802 |x | Jump 0x893 0891 4801 |H | Short_Literal 0x1 0892 a40f | | Store_Unchecked 0x2,0xf 0893 e40d | | Load 0x2,0xd 0894 e002 | | Load 0x0,0x2 0895 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0896 01d5 | | Execute Vector,Field_Reference 0897 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0898 a410 | | Store_Unchecked 0x2,0x10 0899 e40d | | Load 0x2,0xd 089a e002 | | Load 0x0,0x2 089b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 089c 01d5 | | Execute Vector,Field_Reference 089d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 089e a411 | | Store_Unchecked 0x2,0x11 089f e002 | | Load 0x0,0x2 08a0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 08a1 0a0d | | Execute_Immediate Plus,0xd 08a2 0248 | H | Execute Discrete,Check_In_Integer 08a3 e415 | | Load 0x2,0x15 08a4 0273 | s | Execute Discrete,Plus 08a5 0a04 | | Execute_Immediate Plus,0x4 08a6 0248 | H | Execute Discrete,Check_In_Integer 08a7 a419 | | Store_Unchecked 0x2,0x19 08a8 4801 |H | Short_Literal 0x1 08a9 e002 | | Load 0x0,0x2 08aa 1b10 | | Execute Package,Field_Read,Field_Number 0x10 08ab e002 | | Load 0x0,0x2 08ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08ad 01cf | | Execute Vector,Slice_Read 08ae e413 | | Load 0x2,0x13 08af 01cc | | Execute Vector,Catenate 08b0 4801 |H | Short_Literal 0x1 08b1 e415 | | Load 0x2,0x15 08b2 e414 | | Load 0x2,0x14 08b3 01cf | | Execute Vector,Slice_Read 08b4 01cc | | Execute Vector,Catenate 08b5 e416 | | Load 0x2,0x16 08b6 01cc | | Execute Vector,Catenate 08b7 4801 |H | Short_Literal 0x1 08b8 e419 | | Load 0x2,0x19 08b9 e418 | | Load 0x2,0x18 08ba 01ce | | Execute Vector,Slice_Write 08bb e418 | | Load 0x2,0x18 08bc 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 08be 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 08c0 e419 | | Load 0x2,0x19 08c1 e001 | | Load 0x0,0x1 08c2 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 08c3 00d1 | | Pop_Control Pop_Count_1 08c4 0007 | | Action Break_Optional 08c5 4800 |H | Short_Literal 0x0 08c6 4801 |H | Short_Literal 0x1 08c7 0092 6402 | d | Action Push_String_Extended,0x6402 ; "Starting Summary Report Processing for:" 08c9 e001 | | Load 0x0,0x1 08ca 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 08cb 4800 |H | Short_Literal 0x0 08cc 4801 |H | Short_Literal 0x1 08cd 0092 6403 | d | Action Push_String_Extended,0x6403 ; "Summary Report File => " 08cf 4801 |H | Short_Literal 0x1 08d0 e419 | | Load 0x2,0x19 08d1 e418 | | Load 0x2,0x18 08d2 01cf | | Execute Vector,Slice_Read 08d3 01cc | | Execute Vector,Catenate 08d4 e001 | | Load 0x0,0x1 08d5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 08d6 e001 | | Load 0x0,0x1 08d7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 08d8 4800 |H | Short_Literal 0x0 08d9 4801 |H | Short_Literal 0x1 08da 4801 |H | Short_Literal 0x1 08db 4801 |H | Short_Literal 0x1 08dc e40d | | Load 0x2,0xd 08dd e411 | | Load 0x2,0x11 08de e410 | | Load 0x2,0x10 08df 8246 | F | Call 0x1,0x46 08e0 0007 | | Action Break_Optional 08e1 4850 |HP | Short_Literal 0x50 08e2 4801 |H | Short_Literal 0x1 08e3 e001 | | Load 0x0,0x1 08e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 08e5 0a03 | | Execute_Immediate Plus,0x3 08e6 0248 | H | Execute Discrete,Check_In_Integer 08e7 e001 | | Load 0x0,0x1 08e8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 08e9 e001 | | Load 0x0,0x1 08ea 181a | | Execute Package,Field_Execute,Field_Number 0x1a 08eb 4800 |H | Short_Literal 0x0 08ec 4801 |H | Short_Literal 0x1 08ed 0092 6404 | d | Action Push_String_Extended,0x6404 ; "Starting Report Field Selection. (Maximum of 300 Fields.)" 08ef e001 | | Load 0x0,0x1 08f0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 08f1 e417 | | Load 0x2,0x17 08f2 00ea | | Load_Encached Null_String_Cache 08f3 4801 |H | Short_Literal 0x1 08f4 e419 | | Load 0x2,0x19 08f5 e418 | | Load 0x2,0x18 08f6 01cf | | Execute Vector,Slice_Read 08f7 4801 |H | Short_Literal 0x1 08f8 e004 | | Load 0x0,0x4 08f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08fa c417 | | Store 0x2,0x17 08fb 4800 |H | Short_Literal 0x0 08fc e417 | | Load 0x2,0x17 08fd e004 | | Load 0x0,0x4 08fe 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 08ff 4800 |H | Short_Literal 0x0 0900 e417 | | Load 0x2,0x17 0901 e004 | | Load 0x0,0x4 0902 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0903 0092 6405 | d | Action Push_String_Extended,0x6405 ; " SIMS Application Report Generator:" 0905 e417 | | Load 0x2,0x17 0906 e004 | | Load 0x0,0x4 0907 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0908 0092 6406 | d | Action Push_String_Extended,0x6406 ; " ==================================" 090a e417 | | Load 0x2,0x17 090b e004 | | Load 0x0,0x4 090c 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 090d 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 090f e417 | | Load 0x2,0x17 0910 e004 | | Load 0x0,0x4 0911 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0912 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 0914 e417 | | Load 0x2,0x17 0915 e004 | | Load 0x0,0x4 0916 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0917 0092 6408 | d | Action Push_String_Extended,0x6408 ; " SIMS Database Title : " 0919 4801 |H | Short_Literal 0x1 091a e002 | | Load 0x0,0x2 091b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 091c e410 | | Load 0x2,0x10 091d e002 | | Load 0x0,0x2 091e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 091f 01d5 | | Execute Vector,Field_Reference 0920 01d5 | | Execute Vector,Field_Reference 0921 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0922 e002 | | Load 0x0,0x2 0923 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0924 e410 | | Load 0x2,0x10 0925 e002 | | Load 0x0,0x2 0926 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0927 01d5 | | Execute Vector,Field_Reference 0928 01d5 | | Execute Vector,Field_Reference 0929 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 092a 01cf | | Execute Vector,Slice_Read 092b 01cc | | Execute Vector,Catenate 092c e417 | | Load 0x2,0x17 092d e004 | | Load 0x0,0x4 092e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 092f 0092 6409 | d | Action Push_String_Extended,0x6409 ; " SIMS Database Number: " 0931 e40d | | Load 0x2,0xd 0932 00e0 | | Load_Encached Standard_Cache 0933 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0934 01cc | | Execute Vector,Catenate 0935 e417 | | Load 0x2,0x17 0936 e004 | | Load 0x0,0x4 0937 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0938 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 093a e417 | | Load 0x2,0x17 093b e004 | | Load 0x0,0x4 093c 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 093d 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 093f e417 | | Load 0x2,0x17 0940 e004 | | Load 0x0,0x4 0941 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0942 0007 | | Action Break_Optional 0943 4800 |H | Short_Literal 0x0 0944 a407 | | Store_Unchecked 0x2,0x7 0945 4802 |H | Short_Literal 0x2 0946 a409 | | Store_Unchecked 0x2,0x9 0947 00cf | | Action Mark_Auxiliary 0948 e405 | | Load 0x2,0x5 0949 4801 |H | Short_Literal 0x1 094a 0263 | c | Execute Discrete,Above_Bound 094b 7077 |pw | Jump_Nonzero 0x9c3 094c e40a | | Load 0x2,0xa 094d e409 | | Load 0x2,0x9 094e 4802 |H | Short_Literal 0x2 094f 0092 640a | d | Action Push_String_Extended,0x640a ; "Enter next field command number from above display: 0=exit " 0951 e001 | | Load 0x0,0x1 0952 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0953 c40a | | Store 0x2,0xa 0954 e40a | | Load 0x2,0xa 0955 700f |p | Jump_Nonzero 0x965 0956 4800 |H | Short_Literal 0x0 0957 4804 |H | Short_Literal 0x4 0958 0092 640b | d | Action Push_String_Extended,0x640b ; "Selection of report fields for your report is complete." 095a e001 | | Load 0x0,0x1 095b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 095c 4800 |H | Short_Literal 0x0 095d e407 | | Load 0x2,0x7 095e 0a01 | | Execute_Immediate Plus,0x1 095f 0248 | H | Execute Discrete,Check_In_Integer 0960 e406 | | Load 0x2,0x6 0961 01d5 | | Execute Vector,Field_Reference 0962 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0963 00d2 | | Pop_Control Pop_Count_2 0964 785e |x^ | Jump 0x9c3 0965 e422 | " | Load 0x2,0x22 0966 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 0968 4803 |H | Short_Literal 0x3 0969 0092 640c | d | Action Push_String_Extended,0x640c ; "Do you want a newline generated after this field?" 096b e001 | | Load 0x0,0x1 096c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 096d 00d1 | | Pop_Control Pop_Count_1 096e 4801 |H | Short_Literal 0x1 096f 4801 |H | Short_Literal 0x1 0970 e422 | " | Load 0x2,0x22 0971 01cf | | Execute Vector,Slice_Read 0972 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 0974 01df | | Execute Vector,Equal 0975 6803 |h | Jump_Zero 0x979 0976 4800 |H | Short_Literal 0x0 0977 a40b | | Store_Unchecked 0x2,0xb 0978 7802 |x | Jump 0x97b 0979 4801 |H | Short_Literal 0x1 097a a40b | | Store_Unchecked 0x2,0xb 097b 00cf | | Action Mark_Auxiliary 097c e411 | | Load 0x2,0x11 097d e410 | | Load 0x2,0x10 097e 0263 | c | Execute Discrete,Above_Bound 097f 7040 |p@ | Jump_Nonzero 0x9c0 0980 e40a | | Load 0x2,0xa 0981 e002 | | Load 0x0,0x2 0982 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0983 e435 | 5 | Load 0x2,0x35 0984 e002 | | Load 0x0,0x2 0985 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0986 01d5 | | Execute Vector,Field_Reference 0987 01d5 | | Execute Vector,Field_Reference 0988 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0989 027f | | Execute Discrete,Equal 098a 6827 |h' | Jump_Zero 0x9b2 098b e407 | | Load 0x2,0x7 098c 0a01 | | Execute_Immediate Plus,0x1 098d 0248 | H | Execute Discrete,Check_In_Integer 098e a407 | | Store_Unchecked 0x2,0x7 098f 00d8 | | Load_Top At_Offset_0 0990 a408 | | Store_Unchecked 0x2,0x8 0991 4801 |H | Short_Literal 0x1 0992 e407 | | Load 0x2,0x7 0993 e406 | | Load 0x2,0x6 0994 01d5 | | Execute Vector,Field_Reference 0995 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0996 4800 |H | Short_Literal 0x0 0997 e407 | | Load 0x2,0x7 0998 e406 | | Load 0x2,0x6 0999 01d5 | | Execute Vector,Field_Reference 099a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 099b e408 | | Load 0x2,0x8 099c e407 | | Load 0x2,0x7 099d e406 | | Load 0x2,0x6 099e 01d5 | | Execute Vector,Field_Reference 099f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09a0 e40a | | Load 0x2,0xa 09a1 e407 | | Load 0x2,0x7 09a2 e406 | | Load 0x2,0x6 09a3 01d5 | | Execute Vector,Field_Reference 09a4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09a5 e40b | | Load 0x2,0xb 09a6 e407 | | Load 0x2,0x7 09a7 e406 | | Load 0x2,0x6 09a8 01d5 | | Execute Vector,Field_Reference 09a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09aa e40a | | Load 0x2,0xa 09ab a409 | | Store_Unchecked 0x2,0x9 09ac e409 | | Load 0x2,0x9 09ad 0a01 | | Execute_Immediate Plus,0x1 09ae 0248 | H | Execute Discrete,Check_In_Integer 09af a409 | | Store_Unchecked 0x2,0x9 09b0 00d2 | | Pop_Control Pop_Count_2 09b1 780e |x | Jump 0x9c0 09b2 00d8 | | Load_Top At_Offset_0 09b3 e411 | | Load 0x2,0x11 09b4 027f | | Execute Discrete,Equal 09b5 6808 |h | Jump_Zero 0x9be 09b6 4800 |H | Short_Literal 0x0 09b7 4803 |H | Short_Literal 0x3 09b8 0092 640d | d | Action Push_String_Extended,0x640d ; "Last field command number invalid for selected record?" 09ba e001 | | Load 0x0,0x1 09bb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09bc 4800 |H | Short_Literal 0x0 09bd a409 | | Store_Unchecked 0x2,0x9 09be 00c8 | | Action Pop_Auxiliary_Range 09bf 3fc0 |? | Loop_Increasing 0x980 09c0 00ce | | Action Pop_Auxiliary 09c1 00c8 | | Action Pop_Auxiliary_Range 09c2 3f89 |? | Loop_Increasing 0x94c 09c3 00ce | | Action Pop_Auxiliary 09c4 0007 | | Action Break_Optional 09c5 4800 |H | Short_Literal 0x0 09c6 a40c | | Store_Unchecked 0x2,0xc 09c7 480a |H | Short_Literal 0xa 09c8 a41f | | Store_Unchecked 0x2,0x1f 09c9 4801 |H | Short_Literal 0x1 09ca e41f | | Load 0x2,0x1f 09cb e41c | | Load 0x2,0x1c 09cc 01cf | | Execute Vector,Slice_Read 09cd 4801 |H | Short_Literal 0x1 09ce e41f | | Load 0x2,0x1f 09cf e41e | | Load 0x2,0x1e 09d0 01ce | | Execute Vector,Slice_Write 09d1 e40c | | Load 0x2,0xc 09d2 e41f | | Load 0x2,0x1f 09d3 0273 | s | Execute Discrete,Plus 09d4 0248 | H | Execute Discrete,Check_In_Integer 09d5 a40c | | Store_Unchecked 0x2,0xc 09d6 e40f | | Load 0x2,0xf 09d7 0f01 | | Execute_Immediate Equal,0x1 09d8 e40c | | Load 0x2,0xc 09d9 0c51 | Q | Execute_Immediate Greater_Equal,0x51 09da 0279 | y | Execute Discrete,And 09db 6806 |h | Jump_Zero 0x9e2 09dc 4800 |H | Short_Literal 0x0 09dd a40c | | Store_Unchecked 0x2,0xc 09de 4801 |H | Short_Literal 0x1 09df e417 | | Load 0x2,0x17 09e0 e004 | | Load 0x0,0x4 09e1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 09e2 4801 |H | Short_Literal 0x1 09e3 e41f | | Load 0x2,0x1f 09e4 e41e | | Load 0x2,0x1e 09e5 01cf | | Execute Vector,Slice_Read 09e6 e417 | | Load 0x2,0x17 09e7 e004 | | Load 0x0,0x4 09e8 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 09e9 00cf | | Action Mark_Auxiliary 09ea e405 | | Load 0x2,0x5 09eb 4801 |H | Short_Literal 0x1 09ec 0263 | c | Execute Discrete,Above_Bound 09ed 704b |pK | Jump_Nonzero 0xa39 09ee 00d8 | | Load_Top At_Offset_0 09ef e406 | | Load 0x2,0x6 09f0 01d5 | | Execute Vector,Field_Reference 09f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09f2 7002 |p | Jump_Nonzero 0x9f5 09f3 00d2 | | Pop_Control Pop_Count_2 09f4 7844 |xD | Jump 0xa39 09f5 00d8 | | Load_Top At_Offset_0 09f6 e406 | | Load 0x2,0x6 09f7 01d5 | | Execute Vector,Field_Reference 09f8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09f9 a408 | | Store_Unchecked 0x2,0x8 09fa e002 | | Load 0x0,0x2 09fb 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 09fc e408 | | Load 0x2,0x8 09fd e002 | | Load 0x0,0x2 09fe 1b90 | | Execute Package,Field_Read,Field_Number 0x90 09ff 01d5 | | Execute Vector,Field_Reference 0a00 01d5 | | Execute Vector,Field_Reference 0a01 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a02 6834 |h4 | Jump_Zero 0xa37 0a03 e41f | | Load 0x2,0x1f 0a04 e41e | | Load 0x2,0x1e 0a05 e002 | | Load 0x0,0x2 0a06 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0a07 e408 | | Load 0x2,0x8 0a08 8256 | V | Call 0x1,0x56 0a09 00d1 | | Pop_Control Pop_Count_1 0a0a c41f | | Store 0x2,0x1f 0a0b e40c | | Load 0x2,0xc 0a0c e41f | | Load 0x2,0x1f 0a0d 0273 | s | Execute Discrete,Plus 0a0e e40e | | Load 0x2,0xe 0a0f 0273 | s | Execute Discrete,Plus 0a10 0248 | H | Execute Discrete,Check_In_Integer 0a11 a40c | | Store_Unchecked 0x2,0xc 0a12 e40f | | Load 0x2,0xf 0a13 0f01 | | Execute_Immediate Equal,0x1 0a14 e40c | | Load 0x2,0xc 0a15 0c51 | Q | Execute_Immediate Greater_Equal,0x51 0a16 0279 | y | Execute Discrete,And 0a17 6806 |h | Jump_Zero 0xa1e 0a18 4800 |H | Short_Literal 0x0 0a19 a40c | | Store_Unchecked 0x2,0xc 0a1a 4801 |H | Short_Literal 0x1 0a1b e417 | | Load 0x2,0x17 0a1c e004 | | Load 0x0,0x4 0a1d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a1e 4801 |H | Short_Literal 0x1 0a1f e40e | | Load 0x2,0xe 0a20 e002 | | Load 0x0,0x2 0a21 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0a22 01cf | | Execute Vector,Slice_Read 0a23 4801 |H | Short_Literal 0x1 0a24 e41f | | Load 0x2,0x1f 0a25 e41e | | Load 0x2,0x1e 0a26 01cf | | Execute Vector,Slice_Read 0a27 01cc | | Execute Vector,Catenate 0a28 e417 | | Load 0x2,0x17 0a29 e004 | | Load 0x0,0x4 0a2a 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0a2b 00d8 | | Load_Top At_Offset_0 0a2c e406 | | Load 0x2,0x6 0a2d 01d5 | | Execute Vector,Field_Reference 0a2e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a2f 0f01 | | Execute_Immediate Equal,0x1 0a30 6806 |h | Jump_Zero 0xa37 0a31 4800 |H | Short_Literal 0x0 0a32 a40c | | Store_Unchecked 0x2,0xc 0a33 4801 |H | Short_Literal 0x1 0a34 e417 | | Load 0x2,0x17 0a35 e004 | | Load 0x0,0x4 0a36 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a37 00c8 | | Action Pop_Auxiliary_Range 0a38 3fb5 |? | Loop_Increasing 0x9ee 0a39 00ce | | Action Pop_Auxiliary 0a3a 4801 |H | Short_Literal 0x1 0a3b e417 | | Load 0x2,0x17 0a3c e004 | | Load 0x0,0x4 0a3d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a3e 4801 |H | Short_Literal 0x1 0a3f e417 | | Load 0x2,0x17 0a40 e004 | | Load 0x0,0x4 0a41 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a42 4801 |H | Short_Literal 0x1 0a43 e417 | | Load 0x2,0x17 0a44 e004 | | Load 0x0,0x4 0a45 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a46 4800 |H | Short_Literal 0x0 0a47 a40c | | Store_Unchecked 0x2,0xc 0a48 0007 | | Action Break_Optional 0a49 e40d | | Load 0x2,0xd 0a4a 0f01 | | Execute_Immediate Equal,0x1 0a4b 6803 |h | Jump_Zero 0xa4f 0a4c e26a | j | Load 0x1,0x6a 0a4d a423 | # | Store_Unchecked 0x2,0x23 0a4e 780e |x | Jump 0xa5d 0a4f e40d | | Load 0x2,0xd 0a50 0f02 | | Execute_Immediate Equal,0x2 0a51 6803 |h | Jump_Zero 0xa55 0a52 e26b | k | Load 0x1,0x6b 0a53 a423 | # | Store_Unchecked 0x2,0x23 0a54 7808 |x | Jump 0xa5d 0a55 e40d | | Load 0x2,0xd 0a56 0f06 | | Execute_Immediate Equal,0x6 0a57 6803 |h | Jump_Zero 0xa5b 0a58 e26c | l | Load 0x1,0x6c 0a59 a423 | # | Store_Unchecked 0x2,0x23 0a5a 7802 |x | Jump 0xa5d 0a5b 4801 |H | Short_Literal 0x1 0a5c a423 | # | Store_Unchecked 0x2,0x23 0a5d 00e1 | | Load_Encached Boolean_Cache 0a5e 00e2 | | Load_Encached Integer_Cache 0a5f 00e2 | | Load_Encached Integer_Cache 0a60 e42f | / | Load 0x2,0x2f 0a61 e42e | . | Load 0x2,0x2e 0a62 e42d | - | Load 0x2,0x2d 0a63 e42c | , | Load 0x2,0x2c 0a64 e42b | + | Load 0x2,0x2b 0a65 e42a | * | Load 0x2,0x2a 0a66 e423 | # | Load 0x2,0x23 0a67 0092 640e | d | Action Push_String_Extended,0x640e ; "Summary Report Record Selection:" 0a69 e40d | | Load 0x2,0xd 0a6a e411 | | Load 0x2,0x11 0a6b e410 | | Load 0x2,0x10 0a6c 821f | | Call 0x1,0x1f 0a6d c424 | $ | Store 0x2,0x24 0a6e c425 | % | Store 0x2,0x25 0a6f c426 | & | Store 0x2,0x26 0a70 00cf | | Action Mark_Auxiliary 0a71 0007 | | Action Break_Optional 0a72 00e2 | | Load_Encached Integer_Cache 0a73 00e1 | | Load_Encached Boolean_Cache 0a74 00e2 | | Load_Encached Integer_Cache 0a75 e42f | / | Load 0x2,0x2f 0a76 e42e | . | Load 0x2,0x2e 0a77 e42d | - | Load 0x2,0x2d 0a78 e42c | , | Load 0x2,0x2c 0a79 e42b | + | Load 0x2,0x2b 0a7a e42a | * | Load 0x2,0x2a 0a7b 4801 |H | Short_Literal 0x1 0a7c e426 | & | Load 0x2,0x26 0a7d e40d | | Load 0x2,0xd 0a7e e411 | | Load 0x2,0x11 0a7f e410 | | Load 0x2,0x10 0a80 8220 | | Call 0x1,0x20 0a81 c427 | ' | Store 0x2,0x27 0a82 c428 | ( | Store 0x2,0x28 0a83 c429 | ) | Store 0x2,0x29 0a84 e428 | ( | Load 0x2,0x28 0a85 0f01 | | Execute_Immediate Equal,0x1 0a86 7087 |p | Jump_Nonzero 0xb0e 0a87 4800 |H | Short_Literal 0x0 0a88 a40c | | Store_Unchecked 0x2,0xc 0a89 4801 |H | Short_Literal 0x1 0a8a 480a |H | Short_Literal 0xa 0a8b e002 | | Load 0x0,0x2 0a8c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0a8d 01cf | | Execute Vector,Slice_Read 0a8e e41d | | Load 0x2,0x1d 0a8f 01d4 | | Execute Vector,Structure_Write 0a90 e41d | | Load 0x2,0x1d 0a91 e001 | | Load 0x0,0x1 0a92 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a93 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0a94 e40d | | Load 0x2,0xd 0a95 e002 | | Load 0x0,0x2 0a96 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0a97 01d5 | | Execute Vector,Field_Reference 0a98 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0a99 e001 | | Load 0x0,0x1 0a9a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a9b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a9c 00d1 | | Pop_Control Pop_Count_1 0a9d e40c | | Load 0x2,0xc 0a9e 0a01 | | Execute_Immediate Plus,0x1 0a9f 0a0a | | Execute_Immediate Plus,0xa 0aa0 0248 | H | Execute Discrete,Check_In_Integer 0aa1 a40c | | Store_Unchecked 0x2,0xc 0aa2 e40f | | Load 0x2,0xf 0aa3 0f01 | | Execute_Immediate Equal,0x1 0aa4 e40c | | Load 0x2,0xc 0aa5 0c51 | Q | Execute_Immediate Greater_Equal,0x51 0aa6 0279 | y | Execute Discrete,And 0aa7 6806 |h | Jump_Zero 0xaae 0aa8 4800 |H | Short_Literal 0x0 0aa9 a40c | | Store_Unchecked 0x2,0xc 0aaa 4801 |H | Short_Literal 0x1 0aab e417 | | Load 0x2,0x17 0aac e004 | | Load 0x0,0x4 0aad 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0aae 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 0ab0 e41d | | Load 0x2,0x1d 0ab1 01cc | | Execute Vector,Catenate 0ab2 e417 | | Load 0x2,0x17 0ab3 e004 | | Load 0x0,0x4 0ab4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0ab5 00cf | | Action Mark_Auxiliary 0ab6 e405 | | Load 0x2,0x5 0ab7 4801 |H | Short_Literal 0x1 0ab8 0263 | c | Execute Discrete,Above_Bound 0ab9 704b |pK | Jump_Nonzero 0xb05 0aba 00d8 | | Load_Top At_Offset_0 0abb e406 | | Load 0x2,0x6 0abc 01d5 | | Execute Vector,Field_Reference 0abd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0abe 7002 |p | Jump_Nonzero 0xac1 0abf 00d2 | | Pop_Control Pop_Count_2 0ac0 7844 |xD | Jump 0xb05 0ac1 00d8 | | Load_Top At_Offset_0 0ac2 e406 | | Load 0x2,0x6 0ac3 01d5 | | Execute Vector,Field_Reference 0ac4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0ac5 a408 | | Store_Unchecked 0x2,0x8 0ac6 e002 | | Load 0x0,0x2 0ac7 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0ac8 e408 | | Load 0x2,0x8 0ac9 e002 | | Load 0x0,0x2 0aca 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0acb 01d5 | | Execute Vector,Field_Reference 0acc 01d5 | | Execute Vector,Field_Reference 0acd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ace 6834 |h4 | Jump_Zero 0xb03 0acf e41f | | Load 0x2,0x1f 0ad0 e41e | | Load 0x2,0x1e 0ad1 e002 | | Load 0x0,0x2 0ad2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0ad3 e408 | | Load 0x2,0x8 0ad4 8256 | V | Call 0x1,0x56 0ad5 00d1 | | Pop_Control Pop_Count_1 0ad6 c41f | | Store 0x2,0x1f 0ad7 e40c | | Load 0x2,0xc 0ad8 e41f | | Load 0x2,0x1f 0ad9 0273 | s | Execute Discrete,Plus 0ada e40e | | Load 0x2,0xe 0adb 0273 | s | Execute Discrete,Plus 0adc 0248 | H | Execute Discrete,Check_In_Integer 0add a40c | | Store_Unchecked 0x2,0xc 0ade e40f | | Load 0x2,0xf 0adf 0f01 | | Execute_Immediate Equal,0x1 0ae0 e40c | | Load 0x2,0xc 0ae1 0c51 | Q | Execute_Immediate Greater_Equal,0x51 0ae2 0279 | y | Execute Discrete,And 0ae3 6806 |h | Jump_Zero 0xaea 0ae4 4800 |H | Short_Literal 0x0 0ae5 a40c | | Store_Unchecked 0x2,0xc 0ae6 4801 |H | Short_Literal 0x1 0ae7 e417 | | Load 0x2,0x17 0ae8 e004 | | Load 0x0,0x4 0ae9 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0aea 4801 |H | Short_Literal 0x1 0aeb e40e | | Load 0x2,0xe 0aec e002 | | Load 0x0,0x2 0aed 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0aee 01cf | | Execute Vector,Slice_Read 0aef 4801 |H | Short_Literal 0x1 0af0 e41f | | Load 0x2,0x1f 0af1 e41e | | Load 0x2,0x1e 0af2 01cf | | Execute Vector,Slice_Read 0af3 01cc | | Execute Vector,Catenate 0af4 e417 | | Load 0x2,0x17 0af5 e004 | | Load 0x0,0x4 0af6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0af7 00d8 | | Load_Top At_Offset_0 0af8 e406 | | Load 0x2,0x6 0af9 01d5 | | Execute Vector,Field_Reference 0afa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0afb 0f01 | | Execute_Immediate Equal,0x1 0afc 6806 |h | Jump_Zero 0xb03 0afd 4800 |H | Short_Literal 0x0 0afe a40c | | Store_Unchecked 0x2,0xc 0aff 4801 |H | Short_Literal 0x1 0b00 e417 | | Load 0x2,0x17 0b01 e004 | | Load 0x0,0x4 0b02 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0b03 00c8 | | Action Pop_Auxiliary_Range 0b04 3fb5 |? | Loop_Increasing 0xaba 0b05 00ce | | Action Pop_Auxiliary 0b06 4800 |H | Short_Literal 0x0 0b07 a40c | | Store_Unchecked 0x2,0xc 0b08 4801 |H | Short_Literal 0x1 0b09 e417 | | Load 0x2,0x17 0b0a e004 | | Load 0x0,0x4 0b0b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0b0c 00c9 | | Action Pop_Auxiliary_Loop 0b0d 7f64 | d | Jump 0xa72 0b0e 00ce | | Action Pop_Auxiliary 0b0f e417 | | Load 0x2,0x17 0b10 e004 | | Load 0x0,0x4 0b11 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0b12 c417 | | Store 0x2,0x17 0b13 e001 | | Load 0x0,0x1 0b14 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b15 0092 640f | d | Action Push_String_Extended,0x640f ; "Total Records Selected => " 0b17 e001 | | Load 0x0,0x1 0b18 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0b19 e429 | ) | Load 0x2,0x29 0b1a e001 | | Load 0x0,0x1 0b1b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0b1c e001 | | Load 0x0,0x1 0b1d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b1e e001 | | Load 0x0,0x1 0b1f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b20 4800 |H | Short_Literal 0x0 0b21 4803 |H | Short_Literal 0x3 0b22 0092 6410 | d | Action Push_String_Extended,0x6410 ; "Your report has been completed as a dated SIMS log file," 0b24 e001 | | Load 0x0,0x1 0b25 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b26 4800 |H | Short_Literal 0x0 0b27 4803 |H | Short_Literal 0x3 0b28 0092 6411 | d | Action Push_String_Extended,0x6411 ; "Log Report written to area => " 0b2a 4801 |H | Short_Literal 0x1 0b2b e002 | | Load 0x0,0x2 0b2c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b2d e002 | | Load 0x0,0x2 0b2e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b2f 01cf | | Execute Vector,Slice_Read 0b30 01cc | | Execute Vector,Catenate 0b31 e001 | | Load 0x0,0x1 0b32 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b33 4801 |H | Short_Literal 0x1 0b34 4804 |H | Short_Literal 0x4 0b35 0092 6412 | d | Action Push_String_Extended,0x6412 ; "Report File Generated => " 0b37 4801 |H | Short_Literal 0x1 0b38 e419 | | Load 0x2,0x19 0b39 e418 | | Load 0x2,0x18 0b3a 01cf | | Execute Vector,Slice_Read 0b3b 01cc | | Execute Vector,Catenate 0b3c e001 | | Load 0x0,0x1 0b3d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b3e 4800 |H | Short_Literal 0x0 0b3f 4803 |H | Short_Literal 0x3 0b40 0092 6413 | d | Action Push_String_Extended,0x6413 ; "SIMS Summary Report Generation completed." 0b42 e001 | | Load 0x0,0x1 0b43 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b44 e001 | | Load 0x0,0x1 0b45 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b46 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b47 TRAP_0760: 0b47 0007 | | Action Break_Optional 0b48 4800 |H | Short_Literal 0x0 0b49 4801 |H | Short_Literal 0x1 0b4a 0092 6414 | d | Action Push_String_Extended,0x6414 ; "Exception in ap_report_generator" 0b4c e001 | | Load 0x0,0x1 0b4d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b4e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b4f 0000 | | .XXX[0x1] 0b50 5369 6d73 |Sims| .LITERAL {0x53696d73, 0x5f73756d} 0b54 6d61 7279 |mary| .XXX[0x4] 0b56 5f20 2020 |_ | 0b58 5f64 6f63 |_doc| .LITERAL {0x5f646f63, 0x20202020} 0b5c 2031 2e20 | 1. | .LITERAL {0x20312e20, 0x496e6465} 0b60 783a 2020 |x: | .XXX[0x4] 0b62 2020 2020 | | 0b64 0000 0000 | | .BLANK 0000[0x4] 0b68 ; -------------------------------------------------------------------------------------- 0b68 ; SUBPROGRAM 0b68 ; -------------------------------------------------------------------------------------- 0b68 0b7b | { | .CONST 0x0b7b ; Address of begin 0b69 0c0c | | .CONST 0x0c0c ; Address of exception handler 0b6a 0006 | | .CONST 0x0006 ; Number of locals 0b6b INIT_0b68: 0b6b 4801 |H | Short_Literal 0x1 0b6c 4801 |H | Short_Literal 0x1 0b6d 00e9 | | Load_Encached String_Cache 0b6e 0334 | 4 | Declare_Variable Array,With_Constraint 0b6f 52e4 |R | Indirect_Literal Any,0xe54,{0x20202020, 0x20202020} 0b70 4801 |H | Short_Literal 0x1 0b71 4801 |H | Short_Literal 0x1 0b72 00e9 | | Load_Encached String_Cache 0b73 0334 | 4 | Declare_Variable Array,With_Constraint 0b74 52e3 |R | Indirect_Literal Any,0xe58,{0x20202020, 0x20202020} 0b75 00e2 | | Load_Encached Integer_Cache 0b76 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b77 00e2 | | Load_Encached Integer_Cache 0b78 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b79 00e2 | | Load_Encached Integer_Cache 0b7a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b7b BODY_0b68: 0b7b e001 | | Load 0x0,0x1 0b7c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b7d 4800 |H | Short_Literal 0x0 0b7e 4803 |H | Short_Literal 0x3 0b7f e5fc | | Load 0x2,-0x4 0b80 e001 | | Load 0x0,0x1 0b81 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b82 e402 | | Load 0x2,0x2 0b83 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 0b85 4803 |H | Short_Literal 0x3 0b86 0092 6415 | d | Action Push_String_Extended,0x6415 ; "Use the last search to select matching items? " 0b88 e001 | | Load 0x0,0x1 0b89 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0b8a 00d1 | | Pop_Control Pop_Count_1 0b8b 4801 |H | Short_Literal 0x1 0b8c 4801 |H | Short_Literal 0x1 0b8d e402 | | Load 0x2,0x2 0b8e 01cf | | Execute Vector,Slice_Read 0b8f 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 0b91 01df | | Execute Vector,Equal 0b92 6803 |h | Jump_Zero 0xb96 0b93 4801 |H | Short_Literal 0x1 0b94 a5f2 | | Store_Unchecked 0x2,-0xe 0b95 7802 |x | Jump 0xb98 0b96 4800 |H | Short_Literal 0x0 0b97 a5f2 | | Store_Unchecked 0x2,-0xe 0b98 e403 | | Load 0x2,0x3 0b99 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 0b9b 4804 |H | Short_Literal 0x4 0b9c 0092 6416 | d | Action Push_String_Extended,0x6416 ; "Do you want to select a new search pattern now?" 0b9e e001 | | Load 0x0,0x1 0b9f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0ba0 00d1 | | Pop_Control Pop_Count_1 0ba1 4801 |H | Short_Literal 0x1 0ba2 4801 |H | Short_Literal 0x1 0ba3 e403 | | Load 0x2,0x3 0ba4 01cf | | Execute Vector,Slice_Read 0ba5 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 0ba7 01df | | Execute Vector,Equal 0ba8 680f |h | Jump_Zero 0xbb8 0ba9 4801 |H | Short_Literal 0x1 0baa a5f2 | | Store_Unchecked 0x2,-0xe 0bab e5f5 | | Load 0x2,-0xb 0bac e5f6 | | Load 0x2,-0xa 0bad e5f7 | | Load 0x2,-0x9 0bae e5f8 | | Load 0x2,-0x8 0baf e5f9 | | Load 0x2,-0x7 0bb0 e5fa | | Load 0x2,-0x6 0bb1 4800 |H | Short_Literal 0x0 0bb2 e5fd | | Load 0x2,-0x3 0bb3 4801 |H | Short_Literal 0x1 0bb4 4801 |H | Short_Literal 0x1 0bb5 e5fe | | Load 0x2,-0x2 0bb6 e5ff | | Load 0x2,-0x1 0bb7 823b | ; | Call 0x1,0x3b 0bb8 e5fb | | Load 0x2,-0x5 0bb9 a404 | | Store_Unchecked 0x2,0x4 0bba e404 | | Load 0x2,0x4 0bbb e5fb | | Load 0x2,-0x5 0bbc 4801 |H | Short_Literal 0x1 0bbd 0092 6417 | d | Action Push_String_Extended,0x6417 ; "From what record index do you want to start processing? " 0bbf e001 | | Load 0x0,0x1 0bc0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0bc1 c404 | | Store 0x2,0x4 0bc2 e404 | | Load 0x2,0x4 0bc3 0274 | t | Execute Discrete,Absolute_Value 0bc4 a404 | | Store_Unchecked 0x2,0x4 0bc5 e5fd | | Load 0x2,-0x3 0bc6 e002 | | Load 0x0,0x2 0bc7 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0bc8 01d7 | | Execute Vector,Field_Read 0bc9 00d8 | | Load_Top At_Offset_0 0bca 4801 |H | Short_Literal 0x1 0bcb e5fd | | Load 0x2,-0x3 0bcc e002 | | Load 0x0,0x2 0bcd 189d | | Execute Package,Field_Execute,Field_Number 0x9d 0bce 00d2 | | Pop_Control Pop_Count_2 0bcf e5fd | | Load 0x2,-0x3 0bd0 e002 | | Load 0x0,0x2 0bd1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0bd2 01d5 | | Execute Vector,Field_Reference 0bd3 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0bd4 a406 | | Store_Unchecked 0x2,0x6 0bd5 00d8 | | Load_Top At_Offset_0 0bd6 a405 | | Store_Unchecked 0x2,0x5 0bd7 e405 | | Load 0x2,0x5 0bd8 e406 | | Load 0x2,0x6 0bd9 4802 |H | Short_Literal 0x2 0bda 0092 6418 | d | Action Push_String_Extended,0x6418 ; "What ending record index range desired? (default=>last) " 0bdc e001 | | Load 0x0,0x1 0bdd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0bde c405 | | Store 0x2,0x5 0bdf e405 | | Load 0x2,0x5 0be0 0274 | t | Execute Discrete,Absolute_Value 0be1 a405 | | Store_Unchecked 0x2,0x5 0be2 4801 |H | Short_Literal 0x1 0be3 4801 |H | Short_Literal 0x1 0be4 e402 | | Load 0x2,0x2 0be5 01cf | | Execute Vector,Slice_Read 0be6 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 0be8 01df | | Execute Vector,Equal 0be9 4801 |H | Short_Literal 0x1 0bea 4801 |H | Short_Literal 0x1 0beb e403 | | Load 0x2,0x3 0bec 01cf | | Execute Vector,Slice_Read 0bed 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 0bef 01df | | Execute Vector,Equal 0bf0 0278 | x | Execute Discrete,Or 0bf1 6807 |h | Jump_Zero 0xbf9 0bf2 e404 | | Load 0x2,0x4 0bf3 0c01 | | Execute_Immediate Greater_Equal,0x1 0bf4 6804 |h | Jump_Zero 0xbf9 0bf5 e404 | | Load 0x2,0x4 0bf6 0aff | | Execute_Immediate Plus,-0x1 0bf7 0248 | H | Execute Discrete,Check_In_Integer 0bf8 a404 | | Store_Unchecked 0x2,0x4 0bf9 e404 | | Load 0x2,0x4 0bfa e5fd | | Load 0x2,-0x3 0bfb e002 | | Load 0x0,0x2 0bfc 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0bfd 01d5 | | Execute Vector,Field_Reference 0bfe 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0bff e404 | | Load 0x2,0x4 0c00 a5f4 | | Store_Unchecked 0x2,-0xc 0c01 e405 | | Load 0x2,0x5 0c02 a5f3 | | Store_Unchecked 0x2,-0xd 0c03 e404 | | Load 0x2,0x4 0c04 a213 | | Store_Unchecked 0x1,0x13 0c05 e404 | | Load 0x2,0x4 0c06 a215 | | Store_Unchecked 0x1,0x15 0c07 e405 | | Load 0x2,0x5 0c08 a214 | | Store_Unchecked 0x1,0x14 0c09 4800 |H | Short_Literal 0x0 0c0a a216 | | Store_Unchecked 0x1,0x16 0c0b 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c0c TRAP_0b68: 0c0c 0007 | | Action Break_Optional 0c0d 4801 |H | Short_Literal 0x1 0c0e 4804 |H | Short_Literal 0x4 0c0f 0092 6419 | d | Action Push_String_Extended,0x6419 ; "Exception found in ap_util_setup_record_selection" 0c11 e001 | | Load 0x0,0x1 0c12 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0c13 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c14 0000 0000 | | .BLANK 0000[0x4] 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c1b | | .CONST 0x0c1b ; Address of begin 0c19 0c9e | | .CONST 0x0c9e ; Address of exception handler 0c1a 0001 | | .CONST 0x0001 ; Number of locals 0c1b BODY_0c18: 0c1b INIT_0c18: 0c1b e215 | | Load 0x1,0x15 0c1c e214 | | Load 0x1,0x14 0c1d 027d | } | Execute Discrete,Greater 0c1e 6807 |h | Jump_Zero 0xc26 0c1f 4801 |H | Short_Literal 0x1 0c20 a5f3 | | Store_Unchecked 0x2,-0xd 0c21 4800 |H | Short_Literal 0x0 0c22 a5f4 | | Store_Unchecked 0x2,-0xc 0c23 e216 | | Load 0x1,0x16 0c24 a5f2 | | Store_Unchecked 0x2,-0xe 0c25 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c26 e5fc | | Load 0x2,-0x4 0c27 7039 |p9 | Jump_Nonzero 0xc61 0c28 00cf | | Action Mark_Auxiliary 0c29 e214 | | Load 0x1,0x14 0c2a e215 | | Load 0x1,0x15 0c2b 0263 | c | Execute Discrete,Above_Bound 0c2c 702c |p, | Jump_Nonzero 0xc59 0c2d e5f5 | | Load 0x2,-0xb 0c2e e5f6 | | Load 0x2,-0xa 0c2f e5f7 | | Load 0x2,-0x9 0c30 e5f8 | | Load 0x2,-0x8 0c31 e5f9 | | Load 0x2,-0x7 0c32 e5fa | | Load 0x2,-0x6 0c33 4800 |H | Short_Literal 0x0 0c34 e5fb | | Load 0x2,-0x5 0c35 e404 | | Load 0x2,0x4 0c36 4801 |H | Short_Literal 0x1 0c37 e5fd | | Load 0x2,-0x3 0c38 e5fe | | Load 0x2,-0x2 0c39 e5ff | | Load 0x2,-0x1 0c3a 822d | - | Call 0x1,0x2d 0c3b e5fd | | Load 0x2,-0x3 0c3c e002 | | Load 0x0,0x2 0c3d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0c3e 01d5 | | Execute Vector,Field_Reference 0c3f 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 0c40 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 0c42 01df | | Execute Vector,Equal 0c43 6813 |h | Jump_Zero 0xc57 0c44 e5fd | | Load 0x2,-0x3 0c45 e002 | | Load 0x0,0x2 0c46 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0c47 01d5 | | Execute Vector,Field_Reference 0c48 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0c49 a5f4 | | Store_Unchecked 0x2,-0xc 0c4a 4800 |H | Short_Literal 0x0 0c4b a5f3 | | Store_Unchecked 0x2,-0xd 0c4c 00d8 | | Load_Top At_Offset_0 0c4d 0a01 | | Execute_Immediate Plus,0x1 0c4e 0248 | H | Execute Discrete,Check_In_Integer 0c4f a215 | | Store_Unchecked 0x1,0x15 0c50 e216 | | Load 0x1,0x16 0c51 0a01 | | Execute_Immediate Plus,0x1 0c52 0248 | H | Execute Discrete,Check_In_Integer 0c53 a216 | | Store_Unchecked 0x1,0x16 0c54 e216 | | Load 0x1,0x16 0c55 a5f2 | | Store_Unchecked 0x2,-0xe 0c56 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c57 00c8 | | Action Pop_Auxiliary_Range 0c58 3fd4 |? | Loop_Increasing 0xc2d 0c59 00ce | | Action Pop_Auxiliary 0c5a 4801 |H | Short_Literal 0x1 0c5b a5f3 | | Store_Unchecked 0x2,-0xd 0c5c 4800 |H | Short_Literal 0x0 0c5d a5f4 | | Store_Unchecked 0x2,-0xc 0c5e e216 | | Load 0x1,0x16 0c5f a5f2 | | Store_Unchecked 0x2,-0xe 0c60 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c61 e5f5 | | Load 0x2,-0xb 0c62 e5f6 | | Load 0x2,-0xa 0c63 e5f7 | | Load 0x2,-0x9 0c64 e5f8 | | Load 0x2,-0x8 0c65 e5f9 | | Load 0x2,-0x7 0c66 e5fa | | Load 0x2,-0x6 0c67 e5fb | | Load 0x2,-0x5 0c68 e5fd | | Load 0x2,-0x3 0c69 4800 |H | Short_Literal 0x0 0c6a 4800 |H | Short_Literal 0x0 0c6b e5fe | | Load 0x2,-0x2 0c6c e5ff | | Load 0x2,-0x1 0c6d 823b | ; | Call 0x1,0x3b 0c6e e5fd | | Load 0x2,-0x3 0c6f e002 | | Load 0x0,0x2 0c70 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0c71 01d5 | | Execute Vector,Field_Reference 0c72 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 0c73 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 0c75 01df | | Execute Vector,Equal 0c76 e214 | | Load 0x1,0x14 0c77 0a01 | | Execute_Immediate Plus,0x1 0c78 e5fd | | Load 0x2,-0x3 0c79 e002 | | Load 0x0,0x2 0c7a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0c7b 01d5 | | Execute Vector,Field_Reference 0c7c 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0c7d 027d | } | Execute Discrete,Greater 0c7e 0279 | y | Execute Discrete,And 0c7f 6817 |h | Jump_Zero 0xc97 0c80 e5fd | | Load 0x2,-0x3 0c81 e002 | | Load 0x0,0x2 0c82 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0c83 01d5 | | Execute Vector,Field_Reference 0c84 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0c85 a5f4 | | Store_Unchecked 0x2,-0xc 0c86 4800 |H | Short_Literal 0x0 0c87 a5f3 | | Store_Unchecked 0x2,-0xd 0c88 e5fd | | Load 0x2,-0x3 0c89 e002 | | Load 0x0,0x2 0c8a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0c8b 01d5 | | Execute Vector,Field_Reference 0c8c 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0c8d 0a01 | | Execute_Immediate Plus,0x1 0c8e 0248 | H | Execute Discrete,Check_In_Integer 0c8f a215 | | Store_Unchecked 0x1,0x15 0c90 e216 | | Load 0x1,0x16 0c91 0a01 | | Execute_Immediate Plus,0x1 0c92 0248 | H | Execute Discrete,Check_In_Integer 0c93 a216 | | Store_Unchecked 0x1,0x16 0c94 e216 | | Load 0x1,0x16 0c95 a5f2 | | Store_Unchecked 0x2,-0xe 0c96 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c97 4801 |H | Short_Literal 0x1 0c98 a5f3 | | Store_Unchecked 0x2,-0xd 0c99 4800 |H | Short_Literal 0x0 0c9a a5f4 | | Store_Unchecked 0x2,-0xc 0c9b e216 | | Load 0x1,0x16 0c9c a5f2 | | Store_Unchecked 0x2,-0xe 0c9d 450c |E | Exit_Suprogram New_Top_Offset 0xc 0c9e TRAP_0c18: 0c9e 0007 | | Action Break_Optional 0c9f 4801 |H | Short_Literal 0x1 0ca0 4804 |H | Short_Literal 0x4 0ca1 0092 641b | d | Action Push_String_Extended,0x641b ; "Exception found in ap_util_get_next_record_selection" 0ca3 e001 | | Load 0x0,0x1 0ca4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0ca5 450c |E | Exit_Suprogram New_Top_Offset 0xc 0ca6 0000 0000 | | .XXX[0x2] 0ca8 ; -------------------------------------------------------------------------------------- 0ca8 ; SUBPROGRAM 0ca8 ; -------------------------------------------------------------------------------------- 0ca8 0cb0 | | .CONST 0x0cb0 ; Address of begin 0ca9 0e23 | # | .CONST 0x0e23 ; Address of exception handler 0caa 0002 | | .CONST 0x0002 ; Number of locals 0cab INIT_0ca8: 0cab 4801 |H | Short_Literal 0x1 0cac 4802 |H | Short_Literal 0x2 0cad 00e9 | | Load_Encached String_Cache 0cae 0334 | 4 | Declare_Variable Array,With_Constraint 0caf 51ac |Q | Indirect_Literal Any,0xe5c,{0x20202020, 0x20202020} 0cb0 BODY_0ca8: 0cb0 e5ee | | Load 0x2,-0x12 0cb1 0f00 | | Execute_Immediate Equal,0x0 0cb2 e5ed | | Load 0x2,-0x13 0cb3 0f00 | | Execute_Immediate Equal,0x0 0cb4 0279 | y | Execute Discrete,And 0cb5 6801 |h | Jump_Zero 0xcb7 0cb6 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0cb7 e5fc | | Load 0x2,-0x4 0cb8 0f01 | | Execute_Immediate Equal,0x1 0cb9 6834 |h4 | Jump_Zero 0xcee 0cba 4800 |H | Short_Literal 0x0 0cbb 4802 |H | Short_Literal 0x2 0cbc e5f0 | | Load 0x2,-0x10 0cbd e001 | | Load 0x0,0x1 0cbe 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0cbf e5f6 | | Load 0x2,-0xa 0cc0 e5f7 | | Load 0x2,-0x9 0cc1 e5f8 | | Load 0x2,-0x8 0cc2 e5f9 | | Load 0x2,-0x7 0cc3 e5fa | | Load 0x2,-0x6 0cc4 e5fb | | Load 0x2,-0x5 0cc5 4801 |H | Short_Literal 0x1 0cc6 4800 |H | Short_Literal 0x0 0cc7 4801 |H | Short_Literal 0x1 0cc8 4800 |H | Short_Literal 0x0 0cc9 e5fd | | Load 0x2,-0x3 0cca e5fe | | Load 0x2,-0x2 0ccb e5ff | | Load 0x2,-0x1 0ccc 822d | - | Call 0x1,0x2d 0ccd e5fd | | Load 0x2,-0x3 0cce e002 | | Load 0x0,0x2 0ccf 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0cd0 01d5 | | Execute Vector,Field_Reference 0cd1 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 0cd2 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 0cd4 01de | | Execute Vector,Not_Equal 0cd5 6801 |h | Jump_Zero 0xcd7 0cd6 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0cd7 00d8 | | Load_Top At_Offset_0 0cd8 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 0cda 4804 |H | Short_Literal 0x4 0cdb e5ef | | Load 0x2,-0x11 0cdc e001 | | Load 0x0,0x1 0cdd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0cde 00d1 | | Pop_Control Pop_Count_1 0cdf 4801 |H | Short_Literal 0x1 0ce0 4801 |H | Short_Literal 0x1 0ce1 e402 | | Load 0x2,0x2 0ce2 01cf | | Execute Vector,Slice_Read 0ce3 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 0ce5 01df | | Execute Vector,Equal 0ce6 681c |h | Jump_Zero 0xd03 0ce7 4801 |H | Short_Literal 0x1 0ce8 4804 |H | Short_Literal 0x4 0ce9 0092 641c | d | Action Push_String_Extended,0x641c ; "Result => Report not sent." 0ceb e001 | | Load 0x0,0x1 0cec 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0ced 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0cee e5ec | | Load 0x2,-0x14 0cef 7013 |p | Jump_Nonzero 0xd03 0cf0 e5f6 | | Load 0x2,-0xa 0cf1 e5f7 | | Load 0x2,-0x9 0cf2 e5f8 | | Load 0x2,-0x8 0cf3 e5f9 | | Load 0x2,-0x7 0cf4 e5fa | | Load 0x2,-0x6 0cf5 e5fb | | Load 0x2,-0x5 0cf6 4801 |H | Short_Literal 0x1 0cf7 e002 | | Load 0x0,0x2 0cf8 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0cf9 e5fd | | Load 0x2,-0x3 0cfa e002 | | Load 0x0,0x2 0cfb 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0cfc 01d5 | | Execute Vector,Field_Reference 0cfd 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0cfe 4801 |H | Short_Literal 0x1 0cff e5fd | | Load 0x2,-0x3 0d00 e5fe | | Load 0x2,-0x2 0d01 e5ff | | Load 0x2,-0x1 0d02 822d | - | Call 0x1,0x2d 0d03 e5f5 | | Load 0x2,-0xb 0d04 0f01 | | Execute_Immediate Equal,0x1 0d05 e5f4 | | Load 0x2,-0xc 0d06 0c01 | | Execute_Immediate Greater_Equal,0x1 0d07 0279 | y | Execute Discrete,And 0d08 6841 |hA | Jump_Zero 0xd4a 0d09 4801 |H | Short_Literal 0x1 0d0a 4806 |H | Short_Literal 0x6 0d0b e002 | | Load 0x0,0x2 0d0c 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d0d e5f4 | | Load 0x2,-0xc 0d0e e002 | | Load 0x0,0x2 0d0f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d10 01d5 | | Execute Vector,Field_Reference 0d11 01d5 | | Execute Vector,Field_Reference 0d12 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0d13 01cf | | Execute Vector,Slice_Read 0d14 0092 63ea | c | Action Push_String_Extended,0x63ea ; "000000" 0d16 01df | | Execute Vector,Equal 0d17 4801 |H | Short_Literal 0x1 0d18 4808 |H | Short_Literal 0x8 0d19 e002 | | Load 0x0,0x2 0d1a 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d1b e5f2 | | Load 0x2,-0xe 0d1c e002 | | Load 0x0,0x2 0d1d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d1e 01d5 | | Execute Vector,Field_Reference 0d1f 01d5 | | Execute Vector,Field_Reference 0d20 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0d21 01cf | | Execute Vector,Slice_Read 0d22 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 0d24 01de | | Execute Vector,Not_Equal 0d25 0279 | y | Execute Discrete,And 0d26 6823 |h# | Jump_Zero 0xd4a 0d27 0092 641e | d | Action Push_String_Extended,0x641e ; "Error, Invalid System ID. The System ID field is not correct." 0d29 e001 | | Load 0x0,0x1 0d2a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d2b e001 | | Load 0x0,0x1 0d2c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d2d 0092 641f | d | Action Push_String_Extended,0x641f ; "Please notify Rational Customer Support to correct it." 0d2f e001 | | Load 0x0,0x1 0d30 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d31 e001 | | Load 0x0,0x1 0d32 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d33 0092 6420 | d | Action Push_String_Extended,0x6420 ; " [Report not sent, but can be resent after ID fixed. Index=]" 0d35 e001 | | Load 0x0,0x1 0d36 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d37 e5fd | | Load 0x2,-0x3 0d38 e002 | | Load 0x0,0x2 0d39 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0d3a 01d5 | | Execute Vector,Field_Reference 0d3b 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0d3c e001 | | Load 0x0,0x1 0d3d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0d3e 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 0d40 e001 | | Load 0x0,0x1 0d41 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d42 e002 | | Load 0x0,0x2 0d43 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0d44 7002 |p | Jump_Nonzero 0xd47 0d45 e001 | | Load 0x0,0x1 0d46 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d47 e001 | | Load 0x0,0x1 0d48 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d49 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0d4a e5f3 | | Load 0x2,-0xd 0d4b 0c01 | | Execute_Immediate Greater_Equal,0x1 0d4c 6818 |h | Jump_Zero 0xd65 0d4d e5ec | | Load 0x2,-0x14 0d4e 7016 |p | Jump_Nonzero 0xd65 0d4f 0092 6422 | d"| Action Push_String_Extended,0x6422 ; "sent" 0d51 4801 |H | Short_Literal 0x1 0d52 4804 |H | Short_Literal 0x4 0d53 e002 | | Load 0x0,0x2 0d54 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d55 e5f3 | | Load 0x2,-0xd 0d56 e002 | | Load 0x0,0x2 0d57 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d58 01d7 | | Execute Vector,Field_Read 0d59 01d7 | | Execute Vector,Field_Read 0d5a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0d5b 01ce | | Execute Vector,Slice_Write 0d5c 4804 |H | Short_Literal 0x4 0d5d e002 | | Load 0x0,0x2 0d5e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d5f e5f3 | | Load 0x2,-0xd 0d60 e002 | | Load 0x0,0x2 0d61 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d62 01d5 | | Execute Vector,Field_Reference 0d63 01d5 | | Execute Vector,Field_Reference 0d64 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0d65 4801 |H | Short_Literal 0x1 0d66 4808 |H | Short_Literal 0x8 0d67 e002 | | Load 0x0,0x2 0d68 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d69 e5f2 | | Load 0x2,-0xe 0d6a e002 | | Load 0x0,0x2 0d6b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d6c 01d5 | | Execute Vector,Field_Reference 0d6d 01d5 | | Execute Vector,Field_Reference 0d6e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0d6f 01cf | | Execute Vector,Slice_Read 0d70 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 0d72 01df | | Execute Vector,Equal 0d73 4801 |H | Short_Literal 0x1 0d74 4808 |H | Short_Literal 0x8 0d75 e002 | | Load 0x0,0x2 0d76 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d77 e5f2 | | Load 0x2,-0xe 0d78 e002 | | Load 0x0,0x2 0d79 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d7a 01d5 | | Execute Vector,Field_Reference 0d7b 01d5 | | Execute Vector,Field_Reference 0d7c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0d7d 01cf | | Execute Vector,Slice_Read 0d7e 0092 6423 | d#| Action Push_String_Extended,0x6423 ; "rational" 0d80 01df | | Execute Vector,Equal 0d81 0278 | x | Execute Discrete,Or 0d82 4801 |H | Short_Literal 0x1 0d83 4808 |H | Short_Literal 0x8 0d84 e002 | | Load 0x0,0x2 0d85 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d86 e5f1 | | Load 0x2,-0xf 0d87 e002 | | Load 0x0,0x2 0d88 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d89 01d5 | | Execute Vector,Field_Reference 0d8a 01d5 | | Execute Vector,Field_Reference 0d8b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0d8c 01cf | | Execute Vector,Slice_Read 0d8d 0092 6424 | d$| Action Push_String_Extended,0x6424 ; "Internal" 0d8f 01df | | Execute Vector,Equal 0d90 4801 |H | Short_Literal 0x1 0d91 4808 |H | Short_Literal 0x8 0d92 e002 | | Load 0x0,0x2 0d93 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0d94 e5f1 | | Load 0x2,-0xf 0d95 e002 | | Load 0x0,0x2 0d96 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0d97 01d5 | | Execute Vector,Field_Reference 0d98 01d5 | | Execute Vector,Field_Reference 0d99 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0d9a 01cf | | Execute Vector,Slice_Read 0d9b 0092 6425 | d%| Action Push_String_Extended,0x6425 ; "internal" 0d9d 01df | | Execute Vector,Equal 0d9e 0278 | x | Execute Discrete,Or 0d9f 0279 | y | Execute Discrete,And 0da0 680e |h | Jump_Zero 0xdaf 0da1 e5ed | | Load 0x2,-0x13 0da2 0f01 | | Execute_Immediate Equal,0x1 0da3 6844 |hD | Jump_Zero 0xde8 0da4 e5fd | | Load 0x2,-0x3 0da5 4801 |H | Short_Literal 0x1 0da6 e002 | | Load 0x0,0x2 0da7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0da8 e002 | | Load 0x0,0x2 0da9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0daa 01cf | | Execute Vector,Slice_Read 0dab e5fe | | Load 0x2,-0x2 0dac e5ff | | Load 0x2,-0x1 0dad 8223 | # | Call 0x1,0x23 0dae 7839 |x9 | Jump 0xde8 0daf 4801 |H | Short_Literal 0x1 0db0 4808 |H | Short_Literal 0x8 0db1 e002 | | Load 0x0,0x2 0db2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0db3 e5f2 | | Load 0x2,-0xe 0db4 e002 | | Load 0x0,0x2 0db5 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0db6 01d5 | | Execute Vector,Field_Reference 0db7 01d5 | | Execute Vector,Field_Reference 0db8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0db9 01cf | | Execute Vector,Slice_Read 0dba 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 0dbc 01df | | Execute Vector,Equal 0dbd 4801 |H | Short_Literal 0x1 0dbe 4808 |H | Short_Literal 0x8 0dbf e002 | | Load 0x0,0x2 0dc0 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0dc1 e5f2 | | Load 0x2,-0xe 0dc2 e002 | | Load 0x0,0x2 0dc3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0dc4 01d5 | | Execute Vector,Field_Reference 0dc5 01d5 | | Execute Vector,Field_Reference 0dc6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0dc7 01cf | | Execute Vector,Slice_Read 0dc8 0092 6423 | d#| Action Push_String_Extended,0x6423 ; "rational" 0dca 01df | | Execute Vector,Equal 0dcb 0278 | x | Execute Discrete,Or 0dcc 680e |h | Jump_Zero 0xddb 0dcd e5ee | | Load 0x2,-0x12 0dce 0f01 | | Execute_Immediate Equal,0x1 0dcf 6818 |h | Jump_Zero 0xde8 0dd0 e5fd | | Load 0x2,-0x3 0dd1 4801 |H | Short_Literal 0x1 0dd2 e002 | | Load 0x0,0x2 0dd3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0dd4 e002 | | Load 0x0,0x2 0dd5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0dd6 01cf | | Execute Vector,Slice_Read 0dd7 e5fe | | Load 0x2,-0x2 0dd8 e5ff | | Load 0x2,-0x1 0dd9 8221 | ! | Call 0x1,0x21 0dda 780d |x | Jump 0xde8 0ddb e5ee | | Load 0x2,-0x12 0ddc 0f01 | | Execute_Immediate Equal,0x1 0ddd 680a |h | Jump_Zero 0xde8 0dde e5fd | | Load 0x2,-0x3 0ddf 4801 |H | Short_Literal 0x1 0de0 e002 | | Load 0x0,0x2 0de1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0de2 e002 | | Load 0x0,0x2 0de3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0de4 01cf | | Execute Vector,Slice_Read 0de5 e5fe | | Load 0x2,-0x2 0de6 e5ff | | Load 0x2,-0x1 0de7 8221 | ! | Call 0x1,0x21 0de8 e5f3 | | Load 0x2,-0xd 0de9 0c01 | | Execute_Immediate Greater_Equal,0x1 0dea e5ec | | Load 0x2,-0x14 0deb 0f00 | | Execute_Immediate Equal,0x0 0dec 0279 | y | Execute Discrete,And 0ded 680c |h | Jump_Zero 0xdfa 0dee 4801 |H | Short_Literal 0x1 0def e5fd | | Load 0x2,-0x3 0df0 e002 | | Load 0x0,0x2 0df1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0df2 01d5 | | Execute Vector,Field_Reference 0df3 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0df4 4800 |H | Short_Literal 0x0 0df5 4801 |H | Short_Literal 0x1 0df6 e5fd | | Load 0x2,-0x3 0df7 e5fe | | Load 0x2,-0x2 0df8 e5ff | | Load 0x2,-0x1 0df9 8239 | 9 | Call 0x1,0x39 0dfa e5fd | | Load 0x2,-0x3 0dfb e002 | | Load 0x0,0x2 0dfc 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0dfd 01d5 | | Execute Vector,Field_Reference 0dfe 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 0dff 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 0e01 01df | | Execute Vector,Equal 0e02 6819 |h | Jump_Zero 0xe1c 0e03 e5ec | | Load 0x2,-0x14 0e04 7016 |p | Jump_Nonzero 0xe1b 0e05 0092 6426 | d&| Action Push_String_Extended,0x6426 ; "[Local report index updated and sent to transfer queue => " 0e07 e001 | | Load 0x0,0x1 0e08 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e09 e5fd | | Load 0x2,-0x3 0e0a e002 | | Load 0x0,0x2 0e0b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0e0c 01d5 | | Execute Vector,Field_Reference 0e0d 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0e0e e001 | | Load 0x0,0x1 0e0f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e10 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 0e12 e001 | | Load 0x0,0x1 0e13 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e14 e002 | | Load 0x0,0x2 0e15 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0e16 7002 |p | Jump_Nonzero 0xe19 0e17 e001 | | Load 0x0,0x1 0e18 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e19 e001 | | Load 0x0,0x1 0e1a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e1b 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0e1c 4800 |H | Short_Literal 0x0 0e1d 4801 |H | Short_Literal 0x1 0e1e 0092 6427 | d'| Action Push_String_Extended,0x6427 ; "Error. Could not update status of request to 'sent'." 0e20 e001 | | Load 0x0,0x1 0e21 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e22 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0e23 TRAP_0ca8: 0e23 0007 | | Action Break_Optional 0e24 4800 |H | Short_Literal 0x0 0e25 4801 |H | Short_Literal 0x1 0e26 0092 6428 | d(| Action Push_String_Extended,0x6428 ; "Error, Could not find and extract the report to net queue." 0e28 e001 | | Load 0x0,0x1 0e29 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e2a 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0e2b 0000 0000 | | .BLANK 0000[0x5] 0e30 ; -------------------------------------------------------------------------------------- 0e30 ; SUBPROGRAM 0e30 ; -------------------------------------------------------------------------------------- 0e30 0e35 | 5 | .CONST 0x0e35 ; Address of begin 0e31 0e37 | 7 | .CONST 0x0e37 ; Address of exception handler 0e32 0002 | | .CONST 0x0002 ; Number of locals 0e33 INIT_0e30: 0e33 029f 307b | 0{| Declare_Subprogram INIT_3078,For_Call 0e35 BODY_0e30: 0e35 8402 | | Call 0x2,0x2 0e36 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e37 TRAP_0e30: 0e37 0007 | | Action Break_Optional 0e38 4801 |H | Short_Literal 0x1 0e39 4804 |H | Short_Literal 0x4 0e3a 0092 6429 | d)| Action Push_String_Extended,0x6429 ; "[Exception occurred in ap_remote_extract_for_transfer.]" 0e3c e001 | | Load 0x0,0x1 0e3d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e3e 4800 |H | Short_Literal 0x0 0e3f 4803 |H | Short_Literal 0x3 0e40 0092 642a | d*| Action Push_String_Extended,0x642a ; "Unable to send this request to transfer area to send to Rational," 0e42 e001 | | Load 0x0,0x1 0e43 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e44 4801 |H | Short_Literal 0x1 0e45 4804 |H | Short_Literal 0x4 0e46 0092 642b | d+| Action Push_String_Extended,0x642b ; "Transfer path name attempting to write: " 0e48 e5fd | | Load 0x2,-0x3 0e49 01cc | | Execute Vector,Catenate 0e4a e001 | | Load 0x0,0x1 0e4b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e4c 4801 |H | Short_Literal 0x1 0e4d 4804 |H | Short_Literal 0x4 0e4e 0092 642c | d,| Action Push_String_Extended,0x642c ; "Error, Problem detected with transfer file output, use error. Possible directory error." 0e50 e001 | | Load 0x0,0x1 0e51 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e52 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e53 0000 | | .XXX[0x1] 0e54 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0e58 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0e5c 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0e60 ; -------------------------------------------------------------------------------------- 0e60 ; SUBPROGRAM 0e60 ; -------------------------------------------------------------------------------------- 0e60 0e65 | e | .CONST 0x0e65 ; Address of begin 0e61 0e67 | g | .CONST 0x0e67 ; Address of exception handler 0e62 0002 | | .CONST 0x0002 ; Number of locals 0e63 INIT_0e60: 0e63 029f 31eb | 1 | Declare_Subprogram INIT_31e8,For_Call 0e65 BODY_0e60: 0e65 8402 | | Call 0x2,0x2 0e66 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0e67 TRAP_0e60: 0e67 0007 | | Action Break_Optional 0e68 4801 |H | Short_Literal 0x1 0e69 4804 |H | Short_Literal 0x4 0e6a 0092 642d | d-| Action Push_String_Extended,0x642d ; "Exception in ap_extract_field." 0e6c e001 | | Load 0x0,0x1 0e6d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e6e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0e6f 0000 | | .XXX[0x1] 0e70 ; -------------------------------------------------------------------------------------- 0e70 ; SUBPROGRAM 0e70 ; -------------------------------------------------------------------------------------- 0e70 0e75 | u | .CONST 0x0e75 ; Address of begin 0e71 0004 | | .CONST 0x0004 ; Address of exception handler 0e72 0002 | | .CONST 0x0002 ; Number of locals 0e73 INIT_0e70: 0e73 029f 32b3 | 2 | Declare_Subprogram INIT_32b0,For_Call 0e75 BODY_0e70: 0e75 8402 | | Call 0x2,0x2 0e76 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e77 0000 | | .XXX[0x1] 0e78 ; -------------------------------------------------------------------------------------- 0e78 ; SUBPROGRAM 0e78 ; -------------------------------------------------------------------------------------- 0e78 0e7d | } | .CONST 0x0e7d ; Address of begin 0e79 0004 | | .CONST 0x0004 ; Address of exception handler 0e7a 0002 | | .CONST 0x0002 ; Number of locals 0e7b INIT_0e78: 0e7b 029f 3513 | 5 | Declare_Subprogram INIT_3510,For_Call 0e7d BODY_0e78: 0e7d 8402 | | Call 0x2,0x2 0e7e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e7f 0000 | | .XXX[0x1] 0e80 ; -------------------------------------------------------------------------------------- 0e80 ; SUBPROGRAM 0e80 ; -------------------------------------------------------------------------------------- 0e80 0eb5 | | .CONST 0x0eb5 ; Address of begin 0e81 0004 | | .CONST 0x0004 ; Address of exception handler 0e82 0008 | | .CONST 0x0008 ; Number of locals 0e83 INIT_0e80: 0e83 4801 |H | Short_Literal 0x1 0e84 4802 |H | Short_Literal 0x2 0e85 00e9 | | Load_Encached String_Cache 0e86 0334 | 4 | Declare_Variable Array,With_Constraint 0e87 531c |S | Indirect_Literal Any,0x11a4,{0x78782020, 0x20202020} 0e88 00e2 | | Load_Encached Integer_Cache 0e89 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e8a 4801 |H | Short_Literal 0x1 0e8b 49f4 |I | Short_Literal 0x1f4 0e8c 00e9 | | Load_Encached String_Cache 0e8d 0334 | 4 | Declare_Variable Array,With_Constraint 0e8e 4801 |H | Short_Literal 0x1 0e8f 49f4 |I | Short_Literal 0x1f4 0e90 00e9 | | Load_Encached String_Cache 0e91 0334 | 4 | Declare_Variable Array,With_Constraint 0e92 49f4 |I | Short_Literal 0x1f4 0e93 4801 |H | Short_Literal 0x1 0e94 4820 |H | Short_Literal 0x20 0e95 e407 | | Load 0x2,0x7 0e96 e405 | | Load 0x2,0x5 0e97 01d6 | | Execute Vector,Field_Write 0e98 3ffb |? | Loop_Increasing 0xe94 0e99 e404 | | Load 0x2,0x4 0e9a 01d4 | | Execute Vector,Structure_Write 0e9b 00e2 | | Load_Encached Integer_Cache 0e9c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e9d 4801 |H | Short_Literal 0x1 0e9e 48c8 |H | Short_Literal 0xc8 0e9f 00e9 | | Load_Encached String_Cache 0ea0 0334 | 4 | Declare_Variable Array,With_Constraint 0ea1 4801 |H | Short_Literal 0x1 0ea2 48c8 |H | Short_Literal 0xc8 0ea3 00e9 | | Load_Encached String_Cache 0ea4 0334 | 4 | Declare_Variable Array,With_Constraint 0ea5 48c8 |H | Short_Literal 0xc8 0ea6 4801 |H | Short_Literal 0x1 0ea7 4820 |H | Short_Literal 0x20 0ea8 e409 | | Load 0x2,0x9 0ea9 e407 | | Load 0x2,0x7 0eaa 01d6 | | Execute Vector,Field_Write 0eab 3ffb |? | Loop_Increasing 0xea7 0eac e406 | | Load 0x2,0x6 0ead 01d4 | | Execute Vector,Structure_Write 0eae e004 | | Load 0x0,0x4 0eaf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0eb0 02c7 | | Declare_Variable Any 0eb1 00d8 | | Load_Top At_Offset_0 0eb2 1c00 | | Execute_Immediate Run_Utility,0x0 0eb3 029f 3773 | 7s| Declare_Subprogram INIT_3770,For_Call 0eb5 BODY_0e80: 0eb5 00be | | Action Activate_Tasks 0eb6 e5fd | | Load 0x2,-0x3 0eb7 e002 | | Load 0x0,0x2 0eb8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0eb9 01d5 | | Execute Vector,Field_Reference 0eba 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0ebb 7001 |p | Jump_Nonzero 0xebd 0ebc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ebd e5fd | | Load 0x2,-0x3 0ebe e002 | | Load 0x0,0x2 0ebf 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0ec0 01d5 | | Execute Vector,Field_Reference 0ec1 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 0ec2 e402 | | Load 0x2,0x2 0ec3 01d4 | | Execute Vector,Structure_Write 0ec4 e002 | | Load 0x0,0x2 0ec5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0ec6 e5ff | | Load 0x2,-0x1 0ec7 0a01 | | Execute_Immediate Plus,0x1 0ec8 0248 | H | Execute Discrete,Check_In_Integer 0ec9 e002 | | Load 0x0,0x2 0eca 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0ecb 01d5 | | Execute Vector,Field_Reference 0ecc 01d5 | | Execute Vector,Field_Reference 0ecd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0ece a403 | | Store_Unchecked 0x2,0x3 0ecf 4801 |H | Short_Literal 0x1 0ed0 e403 | | Load 0x2,0x3 0ed1 e002 | | Load 0x0,0x2 0ed2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 0ed3 e5ff | | Load 0x2,-0x1 0ed4 0a01 | | Execute_Immediate Plus,0x1 0ed5 0248 | H | Execute Discrete,Check_In_Integer 0ed6 e002 | | Load 0x0,0x2 0ed7 1b90 | | Execute Package,Field_Read,Field_Number 0x90 0ed8 01d5 | | Execute Vector,Field_Reference 0ed9 01d5 | | Execute Vector,Field_Reference 0eda 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0edb 01cf | | Execute Vector,Slice_Read 0edc 4801 |H | Short_Literal 0x1 0edd e403 | | Load 0x2,0x3 0ede e404 | | Load 0x2,0x4 0edf 01ce | | Execute Vector,Slice_Write 0ee0 e404 | | Load 0x2,0x4 0ee1 4801 |H | Short_Literal 0x1 0ee2 e403 | | Load 0x2,0x3 0ee3 e409 | | Load 0x2,0x9 0ee4 035b | [ | Declare_Type Array,Constrained 0ee5 00d0 | | Action Swap_Control 0ee6 01cd | | Execute Vector,Slice_Reference 0ee7 00d8 | | Load_Top At_Offset_0 0ee8 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 0eea 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 0eec e403 | | Load 0x2,0x3 0eed e001 | | Load 0x0,0x1 0eee 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0eef 00d2 | | Pop_Control Pop_Count_2 0ef0 e002 | | Load 0x0,0x2 0ef1 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0ef2 0a02 | | Execute_Immediate Plus,0x2 0ef3 e403 | | Load 0x2,0x3 0ef4 0273 | s | Execute Discrete,Plus 0ef5 0248 | H | Execute Discrete,Check_In_Integer 0ef6 a405 | | Store_Unchecked 0x2,0x5 0ef7 4801 |H | Short_Literal 0x1 0ef8 e002 | | Load 0x0,0x2 0ef9 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0efa e002 | | Load 0x0,0x2 0efb 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0efc 01cf | | Execute Vector,Slice_Read 0efd e402 | | Load 0x2,0x2 0efe 01cc | | Execute Vector,Catenate 0eff 4801 |H | Short_Literal 0x1 0f00 e403 | | Load 0x2,0x3 0f01 e404 | | Load 0x2,0x4 0f02 01cf | | Execute Vector,Slice_Read 0f03 01cc | | Execute Vector,Catenate 0f04 4801 |H | Short_Literal 0x1 0f05 e405 | | Load 0x2,0x5 0f06 e406 | | Load 0x2,0x6 0f07 01ce | | Execute Vector,Slice_Write 0f08 8408 | | Call 0x2,0x8 0f09 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f0a 0000 0000 | | .BLANK 0000[0x6] 0f10 ; -------------------------------------------------------------------------------------- 0f10 ; SUBPROGRAM 0f10 ; -------------------------------------------------------------------------------------- 0f10 0f13 | | .CONST 0x0f13 ; Address of begin 0f11 0f2f | / | .CONST 0x0f2f ; Address of exception handler 0f12 0001 | | .CONST 0x0001 ; Number of locals 0f13 BODY_0f10: 0f13 INIT_0f10: 0f13 49d4 |I | Short_Literal 0x1d4 0f14 49d6 |I | Short_Literal 0x1d6 0f15 4800 |H | Short_Literal 0x0 0f16 4800 |H | Short_Literal 0x0 0f17 49d5 |I | Short_Literal 0x1d5 0f18 49d1 |I | Short_Literal 0x1d1 0f19 49d3 |I | Short_Literal 0x1d3 0f1a 49d0 |I | Short_Literal 0x1d0 0f1b 49cf |I | Short_Literal 0x1cf 0f1c 49ce |I | Short_Literal 0x1ce 0f1d 49cd |I | Short_Literal 0x1cd 0f1e 49cc |I | Short_Literal 0x1cc 0f1f 49cb |I | Short_Literal 0x1cb 0f20 49c9 |I | Short_Literal 0x1c9 0f21 49ca |I | Short_Literal 0x1ca 0f22 49d2 |I | Short_Literal 0x1d2 0f23 49c8 |I | Short_Literal 0x1c8 0f24 49c6 |I | Short_Literal 0x1c6 0f25 49c5 |I | Short_Literal 0x1c5 0f26 49c4 |I | Short_Literal 0x1c4 0f27 4800 |H | Short_Literal 0x0 0f28 4801 |H | Short_Literal 0x1 0f29 e5fc | | Load 0x2,-0x4 0f2a e5fd | | Load 0x2,-0x3 0f2b e5fe | | Load 0x2,-0x2 0f2c e5ff | | Load 0x2,-0x1 0f2d 8224 | $ | Call 0x1,0x24 0f2e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f2f TRAP_0f10: 0f2f 0007 | | Action Break_Optional 0f30 4801 |H | Short_Literal 0x1 0f31 4804 |H | Short_Literal 0x4 0f32 0092 642f | d/| Action Push_String_Extended,0x642f ; "[Exception in ap_remote_extract_for_internal_transfer,]" 0f34 e001 | | Load 0x0,0x1 0f35 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0f36 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f37 0000 | | .XXX[0x1] 0f38 ; -------------------------------------------------------------------------------------- 0f38 ; SUBPROGRAM 0f38 ; -------------------------------------------------------------------------------------- 0f38 0fee | | .CONST 0x0fee ; Address of begin 0f39 0ffc | | .CONST 0x0ffc ; Address of exception handler 0f3a 002c | , | .CONST 0x002c ; Number of locals 0f3b INIT_0f38: 0f3b e004 | | Load 0x0,0x4 0f3c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f3d 02c7 | | Declare_Variable Any 0f3e 00d8 | | Load_Top At_Offset_0 0f3f 1c00 | | Execute_Immediate Run_Utility,0x0 0f40 e004 | | Load 0x0,0x4 0f41 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f42 02c7 | | Declare_Variable Any 0f43 00d8 | | Load_Top At_Offset_0 0f44 1c00 | | Execute_Immediate Run_Utility,0x0 0f45 4801 |H | Short_Literal 0x1 0f46 480a |H | Short_Literal 0xa 0f47 00e9 | | Load_Encached String_Cache 0f48 0334 | 4 | Declare_Variable Array,With_Constraint 0f49 525e |R^ | Indirect_Literal Any,0x11a8,{0x48484d4d, 0x73735f43} 0f4a 4801 |H | Short_Literal 0x1 0f4b 4802 |H | Short_Literal 0x2 0f4c 00e9 | | Load_Encached String_Cache 0f4d 0334 | 4 | Declare_Variable Array,With_Constraint 0f4e 5261 |Ra | Indirect_Literal Any,0x11b0,{0x20202020, 0x20202020} 0f4f 4801 |H | Short_Literal 0x1 0f50 480a |H | Short_Literal 0xa 0f51 00e9 | | Load_Encached String_Cache 0f52 0334 | 4 | Declare_Variable Array,With_Constraint 0f53 4801 |H | Short_Literal 0x1 0f54 480a |H | Short_Literal 0xa 0f55 00e9 | | Load_Encached String_Cache 0f56 0334 | 4 | Declare_Variable Array,With_Constraint 0f57 480a |H | Short_Literal 0xa 0f58 4801 |H | Short_Literal 0x1 0f59 4820 |H | Short_Literal 0x20 0f5a e409 | | Load 0x2,0x9 0f5b e407 | | Load 0x2,0x7 0f5c 01d6 | | Execute Vector,Field_Write 0f5d 3ffb |? | Loop_Increasing 0xf59 0f5e e406 | | Load 0x2,0x6 0f5f 01d4 | | Execute Vector,Structure_Write 0f60 00e2 | | Load_Encached Integer_Cache 0f61 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f62 4801 |H | Short_Literal 0x1 0f63 4806 |H | Short_Literal 0x6 0f64 00e9 | | Load_Encached String_Cache 0f65 0334 | 4 | Declare_Variable Array,With_Constraint 0f66 524d |RM | Indirect_Literal Any,0x11b4,{0x31363332, 0x35352020} 0f67 4801 |H | Short_Literal 0x1 0f68 4806 |H | Short_Literal 0x6 0f69 00e9 | | Load_Encached String_Cache 0f6a 0334 | 4 | Declare_Variable Array,With_Constraint 0f6b 524c |RL | Indirect_Literal Any,0x11b8,{0x38383031, 0x30392020} 0f6c 00e2 | | Load_Encached Integer_Cache 0f6d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f6e 00e2 | | Load_Encached Integer_Cache 0f6f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f70 00e2 | | Load_Encached Integer_Cache 0f71 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f72 4801 |H | Short_Literal 0x1 0f73 4802 |H | Short_Literal 0x2 0f74 00e9 | | Load_Encached String_Cache 0f75 0334 | 4 | Declare_Variable Array,With_Constraint 0f76 5245 |RE | Indirect_Literal Any,0x11bc,{0x20202020, 0x20202020} 0f77 4801 |H | Short_Literal 0x1 0f78 4802 |H | Short_Literal 0x2 0f79 00e9 | | Load_Encached String_Cache 0f7a 0334 | 4 | Declare_Variable Array,With_Constraint 0f7b 5244 |RD | Indirect_Literal Any,0x11c0,{0x20202020, 0x20202020} 0f7c 4801 |H | Short_Literal 0x1 0f7d 4802 |H | Short_Literal 0x2 0f7e 00e9 | | Load_Encached String_Cache 0f7f 0334 | 4 | Declare_Variable Array,With_Constraint 0f80 5243 |RC | Indirect_Literal Any,0x11c4,{0x20202020, 0x20202020} 0f81 00e2 | | Load_Encached Integer_Cache 0f82 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f83 4801 |H | Short_Literal 0x1 0f84 4850 |HP | Short_Literal 0x50 0f85 00e9 | | Load_Encached String_Cache 0f86 0334 | 4 | Declare_Variable Array,With_Constraint 0f87 e002 | | Load 0x0,0x2 0f88 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0f89 e411 | | Load 0x2,0x11 0f8a 01d4 | | Execute Vector,Structure_Write 0f8b 4801 |H | Short_Literal 0x1 0f8c 48c8 |H | Short_Literal 0xc8 0f8d 00e9 | | Load_Encached String_Cache 0f8e 0334 | 4 | Declare_Variable Array,With_Constraint 0f8f 4801 |H | Short_Literal 0x1 0f90 48c8 |H | Short_Literal 0xc8 0f91 00e9 | | Load_Encached String_Cache 0f92 0334 | 4 | Declare_Variable Array,With_Constraint 0f93 48c8 |H | Short_Literal 0xc8 0f94 4801 |H | Short_Literal 0x1 0f95 4820 |H | Short_Literal 0x20 0f96 e415 | | Load 0x2,0x15 0f97 e413 | | Load 0x2,0x13 0f98 01d6 | | Execute Vector,Field_Write 0f99 3ffb |? | Loop_Increasing 0xf95 0f9a e412 | | Load 0x2,0x12 0f9b 01d4 | | Execute Vector,Structure_Write 0f9c 00e2 | | Load_Encached Integer_Cache 0f9d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f9e 00e2 | | Load_Encached Integer_Cache 0f9f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fa0 4801 |H | Short_Literal 0x1 0fa1 4850 |HP | Short_Literal 0x50 0fa2 00e9 | | Load_Encached String_Cache 0fa3 0334 | 4 | Declare_Variable Array,With_Constraint 0fa4 00e2 | | Load_Encached Integer_Cache 0fa5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fa6 4801 |H | Short_Literal 0x1 0fa7 4801 |H | Short_Literal 0x1 0fa8 00e9 | | Load_Encached String_Cache 0fa9 0334 | 4 | Declare_Variable Array,With_Constraint 0faa 521d |R | Indirect_Literal Any,0x11c8,{0x20202020, 0x20202020} 0fab e002 | | Load 0x0,0x2 0fac 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0fad 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0fae 00e2 | | Load_Encached Integer_Cache 0faf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fb0 4801 |H | Short_Literal 0x1 0fb1 4801 |H | Short_Literal 0x1 0fb2 00e9 | | Load_Encached String_Cache 0fb3 0334 | 4 | Declare_Variable Array,With_Constraint 0fb4 4801 |H | Short_Literal 0x1 0fb5 4801 |H | Short_Literal 0x1 0fb6 00e9 | | Load_Encached String_Cache 0fb7 0334 | 4 | Declare_Variable Array,With_Constraint 0fb8 4822 |H" | Short_Literal 0x22 0fb9 4801 |H | Short_Literal 0x1 0fba e41b | | Load 0x2,0x1b 0fbb 01d6 | | Execute Vector,Field_Write 0fbc e41a | | Load 0x2,0x1a 0fbd 01d4 | | Execute Vector,Structure_Write 0fbe 00e2 | | Load_Encached Integer_Cache 0fbf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fc0 00e1 | | Load_Encached Boolean_Cache 0fc1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fc2 4801 |H | Short_Literal 0x1 0fc3 4802 |H | Short_Literal 0x2 0fc4 00e9 | | Load_Encached String_Cache 0fc5 0334 | 4 | Declare_Variable Array,With_Constraint 0fc6 5205 |R | Indirect_Literal Any,0x11cc,{0x30312020, 0x20202020} 0fc7 4801 |H | Short_Literal 0x1 0fc8 4803 |H | Short_Literal 0x3 0fc9 00e9 | | Load_Encached String_Cache 0fca 0334 | 4 | Declare_Variable Array,With_Constraint 0fcb 5204 |R | Indirect_Literal Any,0x11d0,{0x4a616e20, 0x20202020} 0fcc 4801 |H | Short_Literal 0x1 0fcd 4809 |H | Short_Literal 0x9 0fce 00e9 | | Load_Encached String_Cache 0fcf 0334 | 4 | Declare_Variable Array,With_Constraint 0fd0 5203 |R | Indirect_Literal Any,0x11d4,{0x31352d4f, 0x63742d38} 0fd1 4801 |H | Short_Literal 0x1 0fd2 4808 |H | Short_Literal 0x8 0fd3 00e9 | | Load_Encached String_Cache 0fd4 0334 | 4 | Declare_Variable Array,With_Constraint 0fd5 5206 |R | Indirect_Literal Any,0x11dc,{0x31363a33, 0x313a3030} 0fd6 029f 37d3 | 7 | Declare_Subprogram INIT_37d0,For_Call 0fd8 029f 3823 | 8#| Declare_Subprogram INIT_3820,For_Call 0fda 029f 3923 | 9#| Declare_Subprogram INIT_3920,For_Call 0fdc 029f 39ab | 9 | Declare_Subprogram INIT_39a8,For_Call 0fde 029f 3a8b | : | Declare_Subprogram INIT_3a88,For_Call 0fe0 029f 3ad3 | : | Declare_Subprogram INIT_3ad0,For_Call 0fe2 029f 3b1b | ; | Declare_Subprogram INIT_3b18,For_Call 0fe4 029f 3d13 | = | Declare_Subprogram INIT_3d10,For_Call 0fe6 029f 3d3b | =;| Declare_Subprogram INIT_3d38,For_Call 0fe8 029f 3dd3 | = | Declare_Subprogram INIT_3dd0,For_Call 0fea 029f 3e0b | > | Declare_Subprogram INIT_3e08,For_Call 0fec 029f 3e53 | >S| Declare_Subprogram INIT_3e50,For_Call 0fee BODY_0f38: 0fee 00be | | Action Activate_Tasks 0fef 8421 | ! | Call 0x2,0x21 0ff0 8422 | " | Call 0x2,0x22 0ff1 8423 | # | Call 0x2,0x23 0ff2 8424 | $ | Call 0x2,0x24 0ff3 8425 | % | Call 0x2,0x25 0ff4 8426 | & | Call 0x2,0x26 0ff5 8427 | ' | Call 0x2,0x27 0ff6 8428 | ( | Call 0x2,0x28 0ff7 8429 | ) | Call 0x2,0x29 0ff8 842a | * | Call 0x2,0x2a 0ff9 842b | + | Call 0x2,0x2b 0ffa 842c | , | Call 0x2,0x2c 0ffb 451b |E | Exit_Suprogram New_Top_Offset 0x1b 0ffc TRAP_0f38: 0ffc 0007 | | Action Break_Optional 0ffd 4801 |H | Short_Literal 0x1 0ffe 4804 |H | Short_Literal 0x4 0fff 0092 6430 | d0| Action Push_String_Extended,0x6430 ; "[Exception handled in ap_internal_transfer_to_devel,]" 1001 e001 | | Load 0x0,0x1 1002 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1003 4801 |H | Short_Literal 0x1 1004 4804 |H | Short_Literal 0x4 1005 0092 6431 | d1| Action Push_String_Extended,0x6431 ; "Error: Could not extract internal report for transfer," 1007 e001 | | Load 0x0,0x1 1008 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1009 4801 |H | Short_Literal 0x1 100a 4804 |H | Short_Literal 0x4 100b 0092 642b | d+| Action Push_String_Extended,0x642b ; "Transfer path name attempting to write: " 100d e5fd | | Load 0x2,-0x3 100e 01cc | | Execute Vector,Catenate 100f 0092 6432 | d2| Action Push_String_Extended,0x6432 ; " Possible directory problem." 1011 01cc | | Execute Vector,Catenate 1012 e001 | | Load 0x0,0x1 1013 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1014 451b |E | Exit_Suprogram New_Top_Offset 0x1b 1015 0000 0000 | | .XXX[0x3] 1017 0000 | | 1018 ; -------------------------------------------------------------------------------------- 1018 ; SUBPROGRAM 1018 ; -------------------------------------------------------------------------------------- 1018 1031 | 1 | .CONST 0x1031 ; Address of begin 1019 10d6 | | .CONST 0x10d6 ; Address of exception handler 101a 0005 | | .CONST 0x0005 ; Number of locals 101b INIT_1018: 101b 00e2 | | Load_Encached Integer_Cache 101c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 101d 4801 |H | Short_Literal 0x1 101e 4850 |HP | Short_Literal 0x50 101f 00e9 | | Load_Encached String_Cache 1020 0334 | 4 | Declare_Variable Array,With_Constraint 1021 4801 |H | Short_Literal 0x1 1022 4801 |H | Short_Literal 0x1 1023 00e9 | | Load_Encached String_Cache 1024 0334 | 4 | Declare_Variable Array,With_Constraint 1025 4801 |H | Short_Literal 0x1 1026 4801 |H | Short_Literal 0x1 1027 00e9 | | Load_Encached String_Cache 1028 0334 | 4 | Declare_Variable Array,With_Constraint 1029 4822 |H" | Short_Literal 0x22 102a 4801 |H | Short_Literal 0x1 102b e405 | | Load 0x2,0x5 102c 01d6 | | Execute Vector,Field_Write 102d e404 | | Load 0x2,0x4 102e 01d4 | | Execute Vector,Structure_Write 102f 00e2 | | Load_Encached Integer_Cache 1030 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1031 BODY_1018: 1031 4800 |H | Short_Literal 0x0 1032 a402 | | Store_Unchecked 0x2,0x2 1033 4800 |H | Short_Literal 0x0 1034 a405 | | Store_Unchecked 0x2,0x5 1035 e5ff | | Load 0x2,-0x1 1036 0c01 | | Execute_Immediate Greater_Equal,0x1 1037 6812 |h | Jump_Zero 0x104a 1038 e002 | | Load 0x0,0x2 1039 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 103a e5ff | | Load 0x2,-0x1 103b e002 | | Load 0x0,0x2 103c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 103d 01d5 | | Execute Vector,Field_Reference 103e 01d5 | | Execute Vector,Field_Reference 103f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1040 a402 | | Store_Unchecked 0x2,0x2 1041 e002 | | Load 0x0,0x2 1042 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 1043 e5ff | | Load 0x2,-0x1 1044 e002 | | Load 0x0,0x2 1045 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1046 01d5 | | Execute Vector,Field_Reference 1047 01d5 | | Execute Vector,Field_Reference 1048 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1049 a405 | | Store_Unchecked 0x2,0x5 104a e5ff | | Load 0x2,-0x1 104b 0c01 | | Execute_Immediate Greater_Equal,0x1 104c 687c |h| | Jump_Zero 0x10c9 104d e402 | | Load 0x2,0x2 104e e403 | | Load 0x2,0x3 104f e002 | | Load 0x0,0x2 1050 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1051 e5ff | | Load 0x2,-0x1 1052 8255 | U | Call 0x1,0x55 1053 00d1 | | Pop_Control Pop_Count_1 1054 c402 | | Store 0x2,0x2 1055 e403 | | Load 0x2,0x3 1056 0092 6433 | d3| Action Push_String_Extended,0x6433 ; "'" 1058 e404 | | Load 0x2,0x4 1059 e402 | | Load 0x2,0x2 105a e001 | | Load 0x0,0x1 105b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 105c 00d1 | | Pop_Control Pop_Count_1 105d e5fb | | Load 0x2,-0x5 105e 0f01 | | Execute_Immediate Equal,0x1 105f e402 | | Load 0x2,0x2 1060 0c01 | | Execute_Immediate Greater_Equal,0x1 1061 e402 | | Load 0x2,0x2 1062 e405 | | Load 0x2,0x5 1063 027f | | Execute Discrete,Equal 1064 4801 |H | Short_Literal 0x1 1065 e405 | | Load 0x2,0x5 1066 e002 | | Load 0x0,0x2 1067 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1068 e5ff | | Load 0x2,-0x1 1069 e002 | | Load 0x0,0x2 106a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 106b 01d5 | | Execute Vector,Field_Reference 106c 01d5 | | Execute Vector,Field_Reference 106d 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 106e 01cf | | Execute Vector,Slice_Read 106f 4801 |H | Short_Literal 0x1 1070 e405 | | Load 0x2,0x5 1071 e002 | | Load 0x0,0x2 1072 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 1073 e5ff | | Load 0x2,-0x1 1074 e002 | | Load 0x0,0x2 1075 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1076 01d5 | | Execute Vector,Field_Reference 1077 01d5 | | Execute Vector,Field_Reference 1078 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1079 01cf | | Execute Vector,Slice_Read 107a 01df | | Execute Vector,Equal 107b 4801 |H | Short_Literal 0x1 107c 4805 |H | Short_Literal 0x5 107d e002 | | Load 0x0,0x2 107e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 107f e5ff | | Load 0x2,-0x1 1080 e002 | | Load 0x0,0x2 1081 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1082 01d5 | | Execute Vector,Field_Reference 1083 01d5 | | Execute Vector,Field_Reference 1084 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1085 01cf | | Execute Vector,Slice_Read 1086 0092 6434 | d4| Action Push_String_Extended,0x6434 ; "_____" 1088 01df | | Execute Vector,Equal 1089 0279 | y | Execute Discrete,And 108a 0279 | y | Execute Discrete,And 108b 0279 | y | Execute Discrete,And 108c 0279 | y | Execute Discrete,And 108d 6802 |h | Jump_Zero 0x1090 108e 4800 |H | Short_Literal 0x0 108f a402 | | Store_Unchecked 0x2,0x2 1090 e5fa | | Load 0x2,-0x6 1091 0f01 | | Execute_Immediate Equal,0x1 1092 681f |h | Jump_Zero 0x10b2 1093 e5fc | | Load 0x2,-0x4 1094 0f01 | | Execute_Immediate Equal,0x1 1095 680e |h | Jump_Zero 0x10a4 1096 e5fd | | Load 0x2,-0x3 1097 e404 | | Load 0x2,0x4 1098 01cc | | Execute Vector,Catenate 1099 4801 |H | Short_Literal 0x1 109a e402 | | Load 0x2,0x2 109b e403 | | Load 0x2,0x3 109c 01cf | | Execute Vector,Slice_Read 109d 01cc | | Execute Vector,Catenate 109e e404 | | Load 0x2,0x4 109f 01cc | | Execute Vector,Catenate 10a0 e5f9 | | Load 0x2,-0x7 10a1 e004 | | Load 0x0,0x4 10a2 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 10a3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10a4 e5fd | | Load 0x2,-0x3 10a5 e404 | | Load 0x2,0x4 10a6 01cc | | Execute Vector,Catenate 10a7 4801 |H | Short_Literal 0x1 10a8 e402 | | Load 0x2,0x2 10a9 e403 | | Load 0x2,0x3 10aa 01cf | | Execute Vector,Slice_Read 10ab 01cc | | Execute Vector,Catenate 10ac e404 | | Load 0x2,0x4 10ad 01cc | | Execute Vector,Catenate 10ae e5f9 | | Load 0x2,-0x7 10af e004 | | Load 0x0,0x4 10b0 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 10b1 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10b2 e5fc | | Load 0x2,-0x4 10b3 0f01 | | Execute_Immediate Equal,0x1 10b4 680a |h | Jump_Zero 0x10bf 10b5 e5fd | | Load 0x2,-0x3 10b6 4801 |H | Short_Literal 0x1 10b7 e402 | | Load 0x2,0x2 10b8 e403 | | Load 0x2,0x3 10b9 01cf | | Execute Vector,Slice_Read 10ba 01cc | | Execute Vector,Catenate 10bb e5f9 | | Load 0x2,-0x7 10bc e004 | | Load 0x0,0x4 10bd 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 10be 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10bf e5fd | | Load 0x2,-0x3 10c0 4801 |H | Short_Literal 0x1 10c1 e402 | | Load 0x2,0x2 10c2 e403 | | Load 0x2,0x3 10c3 01cf | | Execute Vector,Slice_Read 10c4 01cc | | Execute Vector,Catenate 10c5 e5f9 | | Load 0x2,-0x7 10c6 e004 | | Load 0x0,0x4 10c7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 10c8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10c9 e5fc | | Load 0x2,-0x4 10ca 0f01 | | Execute_Immediate Equal,0x1 10cb 6805 |h | Jump_Zero 0x10d1 10cc e5fd | | Load 0x2,-0x3 10cd e5f9 | | Load 0x2,-0x7 10ce e004 | | Load 0x0,0x4 10cf 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 10d0 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10d1 e5fd | | Load 0x2,-0x3 10d2 e5f9 | | Load 0x2,-0x7 10d3 e004 | | Load 0x0,0x4 10d4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 10d5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10d6 TRAP_1018: 10d6 0007 | | Action Break_Optional 10d7 4801 |H | Short_Literal 0x1 10d8 4804 |H | Short_Literal 0x4 10d9 0092 6435 | d5| Action Push_String_Extended,0x6435 ; "Exception in ap_internal_transfer_put." 10db e001 | | Load 0x0,0x1 10dc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 10dd 4507 |E | Exit_Suprogram New_Top_Offset 0x7 10de 0000 0000 | | .XXX[0x2] 10e0 ; -------------------------------------------------------------------------------------- 10e0 ; SUBPROGRAM 10e0 ; -------------------------------------------------------------------------------------- 10e0 1127 | ' | .CONST 0x1127 ; Address of begin 10e1 119b | | .CONST 0x119b ; Address of exception handler 10e2 0009 | | .CONST 0x0009 ; Number of locals 10e3 INIT_10e0: 10e3 4801 |H | Short_Literal 0x1 10e4 48c8 |H | Short_Literal 0xc8 10e5 00e9 | | Load_Encached String_Cache 10e6 0334 | 4 | Declare_Variable Array,With_Constraint 10e7 4801 |H | Short_Literal 0x1 10e8 48c8 |H | Short_Literal 0xc8 10e9 00e9 | | Load_Encached String_Cache 10ea 0334 | 4 | Declare_Variable Array,With_Constraint 10eb 48c8 |H | Short_Literal 0xc8 10ec 4801 |H | Short_Literal 0x1 10ed 4820 |H | Short_Literal 0x20 10ee e405 | | Load 0x2,0x5 10ef e403 | | Load 0x2,0x3 10f0 01d6 | | Execute Vector,Field_Write 10f1 3ffb |? | Loop_Increasing 0x10ed 10f2 e402 | | Load 0x2,0x2 10f3 01d4 | | Execute Vector,Structure_Write 10f4 00e2 | | Load_Encached Integer_Cache 10f5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 10f6 4801 |H | Short_Literal 0x1 10f7 4802 |H | Short_Literal 0x2 10f8 00e9 | | Load_Encached String_Cache 10f9 0334 | 4 | Declare_Variable Array,With_Constraint 10fa 50e5 |P | Indirect_Literal Any,0x11e0,{0x78782020, 0x20202020} 10fb e004 | | Load 0x0,0x4 10fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10fd 02c7 | | Declare_Variable Any 10fe 00d8 | | Load_Top At_Offset_0 10ff 1c00 | | Execute_Immediate Run_Utility,0x0 1100 4801 |H | Short_Literal 0x1 1101 4990 |I | Short_Literal 0x190 1102 00e9 | | Load_Encached String_Cache 1103 0334 | 4 | Declare_Variable Array,With_Constraint 1104 4801 |H | Short_Literal 0x1 1105 4990 |I | Short_Literal 0x190 1106 00e9 | | Load_Encached String_Cache 1107 0334 | 4 | Declare_Variable Array,With_Constraint 1108 4990 |I | Short_Literal 0x190 1109 4801 |H | Short_Literal 0x1 110a 4820 |H | Short_Literal 0x20 110b e409 | | Load 0x2,0x9 110c e407 | | Load 0x2,0x7 110d 01d6 | | Execute Vector,Field_Write 110e 3ffb |? | Loop_Increasing 0x110a 110f e406 | | Load 0x2,0x6 1110 01d4 | | Execute Vector,Structure_Write 1111 00e2 | | Load_Encached Integer_Cache 1112 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1113 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 1115 e003 | | Load 0x0,0x3 1116 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1117 e003 | | Load 0x0,0x3 1118 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1119 01cc | | Execute Vector,Catenate 111a 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 111c 01cc | | Execute Vector,Catenate 111d e003 | | Load 0x0,0x3 111e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 111f e003 | | Load 0x0,0x3 1120 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1121 01cc | | Execute Vector,Catenate 1122 0092 6437 | d7| Action Push_String_Extended,0x6437 ; "_sims_hold_" 1124 01cc | | Execute Vector,Catenate 1125 029f 3eeb | > | Declare_Subprogram INIT_3ee8,For_Call 1127 BODY_10e0: 1127 00be | | Action Activate_Tasks 1128 e5fd | | Load 0x2,-0x3 1129 e002 | | Load 0x0,0x2 112a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 112b 01d5 | | Execute Vector,Field_Reference 112c 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 112d 7001 |p | Jump_Nonzero 0x112f 112e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 112f e5fd | | Load 0x2,-0x3 1130 e002 | | Load 0x0,0x2 1131 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1132 01d5 | | Execute Vector,Field_Reference 1133 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 1134 e404 | | Load 0x2,0x4 1135 01d4 | | Execute Vector,Structure_Write 1136 e002 | | Load 0x0,0x2 1137 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1138 e5ff | | Load 0x2,-0x1 1139 0a01 | | Execute_Immediate Plus,0x1 113a 0248 | H | Execute Discrete,Check_In_Integer 113b e002 | | Load 0x0,0x2 113c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 113d 01d5 | | Execute Vector,Field_Reference 113e 01d5 | | Execute Vector,Field_Reference 113f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1140 a407 | | Store_Unchecked 0x2,0x7 1141 4801 |H | Short_Literal 0x1 1142 e407 | | Load 0x2,0x7 1143 e002 | | Load 0x0,0x2 1144 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1145 e5ff | | Load 0x2,-0x1 1146 0a01 | | Execute_Immediate Plus,0x1 1147 0248 | H | Execute Discrete,Check_In_Integer 1148 e002 | | Load 0x0,0x2 1149 1b90 | | Execute Package,Field_Read,Field_Number 0x90 114a 01d5 | | Execute Vector,Field_Reference 114b 01d5 | | Execute Vector,Field_Reference 114c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 114d 01cf | | Execute Vector,Slice_Read 114e 4801 |H | Short_Literal 0x1 114f e407 | | Load 0x2,0x7 1150 e406 | | Load 0x2,0x6 1151 01ce | | Execute Vector,Slice_Write 1152 e406 | | Load 0x2,0x6 1153 4801 |H | Short_Literal 0x1 1154 e407 | | Load 0x2,0x7 1155 e40a | | Load 0x2,0xa 1156 035b | [ | Declare_Type Array,Constrained 1157 00d0 | | Action Swap_Control 1158 01cd | | Execute Vector,Slice_Reference 1159 00d8 | | Load_Top At_Offset_0 115a 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 115c 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 115e e407 | | Load 0x2,0x7 115f e001 | | Load 0x0,0x1 1160 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 1161 00d2 | | Pop_Control Pop_Count_2 1162 e002 | | Load 0x0,0x2 1163 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1164 0a02 | | Execute_Immediate Plus,0x2 1165 e407 | | Load 0x2,0x7 1166 0273 | s | Execute Discrete,Plus 1167 0248 | H | Execute Discrete,Check_In_Integer 1168 a403 | | Store_Unchecked 0x2,0x3 1169 4801 |H | Short_Literal 0x1 116a e002 | | Load 0x0,0x2 116b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 116c e002 | | Load 0x0,0x2 116d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 116e 01cf | | Execute Vector,Slice_Read 116f e404 | | Load 0x2,0x4 1170 01cc | | Execute Vector,Catenate 1171 4801 |H | Short_Literal 0x1 1172 e407 | | Load 0x2,0x7 1173 e406 | | Load 0x2,0x6 1174 01cf | | Execute Vector,Slice_Read 1175 01cc | | Execute Vector,Catenate 1176 4801 |H | Short_Literal 0x1 1177 e403 | | Load 0x2,0x3 1178 e402 | | Load 0x2,0x2 1179 01ce | | Execute Vector,Slice_Write 117a e407 | | Load 0x2,0x7 117b 0f0a | | Execute_Immediate Equal,0xa 117c 681c |h | Jump_Zero 0x1199 117d 4801 |H | Short_Literal 0x1 117e 480a |H | Short_Literal 0xa 117f e406 | | Load 0x2,0x6 1180 01cf | | Execute Vector,Slice_Read 1181 0092 6438 | d8| Action Push_String_Extended,0x6438 ; "0000000000" 1183 01df | | Execute Vector,Equal 1184 6814 |h | Jump_Zero 0x1199 1185 e408 | | Load 0x2,0x8 1186 01db | | Execute Vector,Length 1187 0a02 | | Execute_Immediate Plus,0x2 1188 e407 | | Load 0x2,0x7 1189 0273 | s | Execute Discrete,Plus 118a 0248 | H | Execute Discrete,Check_In_Integer 118b a403 | | Store_Unchecked 0x2,0x3 118c e408 | | Load 0x2,0x8 118d 0092 6439 | d9| Action Push_String_Extended,0x6439 ; "XX" 118f 01cc | | Execute Vector,Catenate 1190 4801 |H | Short_Literal 0x1 1191 e407 | | Load 0x2,0x7 1192 e406 | | Load 0x2,0x6 1193 01cf | | Execute Vector,Slice_Read 1194 01cc | | Execute Vector,Catenate 1195 4801 |H | Short_Literal 0x1 1196 e403 | | Load 0x2,0x3 1197 e402 | | Load 0x2,0x2 1198 01ce | | Execute Vector,Slice_Write 1199 8409 | | Call 0x2,0x9 119a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 119b TRAP_10e0: 119b 0007 | | Action Break_Optional 119c 4801 |H | Short_Literal 0x1 119d 4804 |H | Short_Literal 0x4 119e 0092 643a | d:| Action Push_String_Extended,0x643a ; "Exception in ap_transfer_attached_detail." 11a0 e001 | | Load 0x0,0x1 11a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 11a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 11a3 0000 | | .XXX[0x1] 11a4 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 11a8 4848 4d4d |HHMM| .LITERAL {0x48484d4d, 0x73735f43} 11ac 5343 2020 |SC | .XXX[0x4] 11ae 2020 2020 | | 11b0 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 11b4 3136 3332 |1632| .LITERAL {0x31363332, 0x35352020} 11b8 3838 3031 |8801| .LITERAL {0x38383031, 0x30392020} 11bc 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 11c0 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 11c4 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 11c8 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 11cc 3031 2020 |01 | .LITERAL {0x30312020, 0x20202020} 11d0 4a61 6e20 |Jan | .LITERAL {0x4a616e20, 0x20202020} 11d4 3135 2d4f |15-O| .LITERAL {0x31352d4f, 0x63742d38} 11d8 3920 2020 |9 | .XXX[0x4] 11da 2020 2020 | | 11dc 3136 3a33 |16:3| .LITERAL {0x31363a33, 0x313a3030} 11e0 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 11e4 0000 0000 | | .BLANK 0000[0x4] 11e8 ; -------------------------------------------------------------------------------------- 11e8 ; SUBPROGRAM 11e8 ; -------------------------------------------------------------------------------------- 11e8 11ed | | .CONST 0x11ed ; Address of begin 11e9 11ef | | .CONST 0x11ef ; Address of exception handler 11ea 0002 | | .CONST 0x0002 ; Number of locals 11eb INIT_11e8: 11eb 029f 3f2b | ?+| Declare_Subprogram INIT_3f28,For_Call 11ed BODY_11e8: 11ed 8402 | | Call 0x2,0x2 11ee 4509 |E | Exit_Suprogram New_Top_Offset 0x9 11ef TRAP_11e8: 11ef 0007 | | Action Break_Optional 11f0 4801 |H | Short_Literal 0x1 11f1 4804 |H | Short_Literal 0x4 11f2 0092 643b | d;| Action Push_String_Extended,0x643b ; "Exception in ap_search_master, search error." 11f4 e001 | | Load 0x0,0x1 11f5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 11f6 4801 |H | Short_Literal 0x1 11f7 a5f6 | | Store_Unchecked 0x2,-0xa 11f8 0092 643c | d<| Action Push_String_Extended,0x643c ; "se er" 11fa e5f7 | | Load 0x2,-0x9 11fb 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 11fc 4509 |E | Exit_Suprogram New_Top_Offset 0x9 11fd 0000 0000 | | .XXX[0x3] 11ff 0000 | | 1200 ; -------------------------------------------------------------------------------------- 1200 ; SUBPROGRAM 1200 ; -------------------------------------------------------------------------------------- 1200 1205 | | .CONST 0x1205 ; Address of begin 1201 1207 | | .CONST 0x1207 ; Address of exception handler 1202 0002 | | .CONST 0x0002 ; Number of locals 1203 INIT_1200: 1203 029f 40a3 | @ | Declare_Subprogram INIT_40a0,For_Call 1205 BODY_1200: 1205 8402 | | Call 0x2,0x2 1206 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1207 TRAP_1200: 1207 0007 | | Action Break_Optional 1208 4800 |H | Short_Literal 0x0 1209 4801 |H | Short_Literal 0x1 120a 0092 643d | d=| Action Push_String_Extended,0x643d ; "Exception in ap_pack_record_for_file." 120c e001 | | Load 0x0,0x1 120d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 120e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 120f 0000 | | .XXX[0x1] 1210 ; -------------------------------------------------------------------------------------- 1210 ; SUBPROGRAM 1210 ; -------------------------------------------------------------------------------------- 1210 1215 | | .CONST 0x1215 ; Address of begin 1211 1217 | | .CONST 0x1217 ; Address of exception handler 1212 0002 | | .CONST 0x0002 ; Number of locals 1213 INIT_1210: 1213 029f 411b | A | Declare_Subprogram INIT_4118,For_Call 1215 BODY_1210: 1215 8402 | | Call 0x2,0x2 1216 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1217 TRAP_1210: 1217 0007 | | Action Break_Optional 1218 4800 |H | Short_Literal 0x0 1219 4801 |H | Short_Literal 0x1 121a 0092 643e | d>| Action Push_String_Extended,0x643e ; "Exception in ap_unpack_record_from_file." 121c e001 | | Load 0x0,0x1 121d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 121e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 121f 0000 | | .XXX[0x1] 1220 ; -------------------------------------------------------------------------------------- 1220 ; SUBPROGRAM 1220 ; -------------------------------------------------------------------------------------- 1220 1225 | % | .CONST 0x1225 ; Address of begin 1221 0004 | | .CONST 0x0004 ; Address of exception handler 1222 0002 | | .CONST 0x0002 ; Number of locals 1223 INIT_1220: 1223 029f 41ab | A | Declare_Subprogram INIT_41a8,For_Call 1225 BODY_1220: 1225 8402 | | Call 0x2,0x2 1226 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1227 0000 | | .XXX[0x1] 1228 ; -------------------------------------------------------------------------------------- 1228 ; SUBPROGRAM 1228 ; -------------------------------------------------------------------------------------- 1228 122d | - | .CONST 0x122d ; Address of begin 1229 122f | / | .CONST 0x122f ; Address of exception handler 122a 0002 | | .CONST 0x0002 ; Number of locals 122b INIT_1228: 122b 029f 41e3 | A | Declare_Subprogram INIT_41e0,For_Call 122d BODY_1228: 122d 8402 | | Call 0x2,0x2 122e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 122f TRAP_1228: 122f 0007 | | Action Break_Optional 1230 4800 |H | Short_Literal 0x0 1231 4803 |H | Short_Literal 0x3 1232 0092 643f | d?| Action Push_String_Extended,0x643f ; "Unable to initialize log file, pos. other log in use here." 1234 e001 | | Load 0x0,0x1 1235 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1236 4801 |H | Short_Literal 0x1 1237 4804 |H | Short_Literal 0x4 1238 0092 6440 | d@| Action Push_String_Extended,0x6440 ; "Another log may be in use, will not be able to print records." 123a e001 | | Load 0x0,0x1 123b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 123c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 123d 0000 0000 | | .XXX[0x3] 123f 0000 | | 1240 ; -------------------------------------------------------------------------------------- 1240 ; SUBPROGRAM 1240 ; -------------------------------------------------------------------------------------- 1240 1245 | E | .CONST 0x1245 ; Address of begin 1241 0004 | | .CONST 0x0004 ; Address of exception handler 1242 0002 | | .CONST 0x0002 ; Number of locals 1243 INIT_1240: 1243 029f 422b | B+| Declare_Subprogram INIT_4228,For_Call 1245 BODY_1240: 1245 8402 | | Call 0x2,0x2 1246 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1247 0000 | | .XXX[0x1] 1248 ; -------------------------------------------------------------------------------------- 1248 ; SUBPROGRAM 1248 ; -------------------------------------------------------------------------------------- 1248 126d | m | .CONST 0x126d ; Address of begin 1249 1342 | B | .CONST 0x1342 ; Address of exception handler 124a 0009 | | .CONST 0x0009 ; Number of locals 124b INIT_1248: 124b 00e2 | | Load_Encached Integer_Cache 124c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 124d 4801 |H | Short_Literal 0x1 124e 4850 |HP | Short_Literal 0x50 124f 00e9 | | Load_Encached String_Cache 1250 0334 | 4 | Declare_Variable Array,With_Constraint 1251 00e2 | | Load_Encached Integer_Cache 1252 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1253 00e2 | | Load_Encached Integer_Cache 1254 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1255 e002 | | Load 0x0,0x2 1256 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 1257 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 1258 00e1 | | Load_Encached Boolean_Cache 1259 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 125a 4801 |H | Short_Literal 0x1 125b 480a |H | Short_Literal 0xa 125c 00e9 | | Load_Encached String_Cache 125d 0334 | 4 | Declare_Variable Array,With_Constraint 125e 4801 |H | Short_Literal 0x1 125f 480a |H | Short_Literal 0xa 1260 00e9 | | Load_Encached String_Cache 1261 0334 | 4 | Declare_Variable Array,With_Constraint 1262 480a |H | Short_Literal 0xa 1263 4801 |H | Short_Literal 0x1 1264 4820 |H | Short_Literal 0x20 1265 e40b | | Load 0x2,0xb 1266 e409 | | Load 0x2,0x9 1267 01d6 | | Execute Vector,Field_Write 1268 3ffb |? | Loop_Increasing 0x1264 1269 e408 | | Load 0x2,0x8 126a 01d4 | | Execute Vector,Structure_Write 126b 029f 425b | B[| Declare_Subprogram INIT_4258,For_Call 126d BODY_1248: 126d 4800 |H | Short_Literal 0x0 126e e5fa | | Load 0x2,-0x6 126f e5fb | | Load 0x2,-0x5 1270 e5fc | | Load 0x2,-0x4 1271 e5fd | | Load 0x2,-0x3 1272 e5fe | | Load 0x2,-0x2 1273 e5ff | | Load 0x2,-0x1 1274 8234 | 4 | Call 0x1,0x34 1275 e5f7 | | Load 0x2,-0x9 1276 e5f8 | | Load 0x2,-0x8 1277 e5fd | | Load 0x2,-0x3 1278 8233 | 3 | Call 0x1,0x33 1279 7001 |p | Jump_Nonzero 0x127b 127a 450e |E | Exit_Suprogram New_Top_Offset 0xe 127b e407 | | Load 0x2,0x7 127c e406 | | Load 0x2,0x6 127d e5f3 | | Load 0x2,-0xd 127e e5f4 | | Load 0x2,-0xc 127f e5f5 | | Load 0x2,-0xb 1280 e5f6 | | Load 0x2,-0xa 1281 e5f7 | | Load 0x2,-0x9 1282 e5f8 | | Load 0x2,-0x8 1283 4801 |H | Short_Literal 0x1 1284 e5fe | | Load 0x2,-0x2 1285 e5fd | | Load 0x2,-0x3 1286 e5fe | | Load 0x2,-0x2 1287 e5ff | | Load 0x2,-0x1 1288 8230 | 0 | Call 0x1,0x30 1289 c406 | | Store 0x2,0x6 128a c407 | | Store 0x2,0x7 128b 0007 | | Action Break_Optional 128c e406 | | Load 0x2,0x6 128d 0f01 | | Execute_Immediate Equal,0x1 128e 6801 |h | Jump_Zero 0x1290 128f 450e |E | Exit_Suprogram New_Top_Offset 0xe 1290 4800 |H | Short_Literal 0x0 1291 e5fa | | Load 0x2,-0x6 1292 e5f8 | | Load 0x2,-0x8 1293 e002 | | Load 0x0,0x2 1294 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1295 01d5 | | Execute Vector,Field_Reference 1296 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1297 4801 |H | Short_Literal 0x1 1298 e5f8 | | Load 0x2,-0x8 1299 e5f4 | | Load 0x2,-0xc 129a e5f5 | | Load 0x2,-0xb 129b 8234 | 4 | Call 0x1,0x34 129c e5f8 | | Load 0x2,-0x8 129d e002 | | Load 0x0,0x2 129e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 129f 01d5 | | Execute Vector,Field_Reference 12a0 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 12a1 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 12a3 01de | | Execute Vector,Not_Equal 12a4 6801 |h | Jump_Zero 0x12a6 12a5 450e |E | Exit_Suprogram New_Top_Offset 0xe 12a6 e407 | | Load 0x2,0x7 12a7 6836 |h6 | Jump_Zero 0x12de 12a8 4800 |H | Short_Literal 0x0 12a9 4804 |H | Short_Literal 0x4 12aa 0092 6441 | dA| Action Push_String_Extended,0x6441 ; "* Fixing index links to avoid searching this next time." 12ac e001 | | Load 0x0,0x1 12ad 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 12ae e5f8 | | Load 0x2,-0x8 12af e002 | | Load 0x0,0x2 12b0 1b96 | | Execute Package,Field_Read,Field_Number 0x96 12b1 01d5 | | Execute Vector,Field_Reference 12b2 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 12b3 a402 | | Store_Unchecked 0x2,0x2 12b4 e403 | | Load 0x2,0x3 12b5 4801 |H | Short_Literal 0x1 12b6 480a |H | Short_Literal 0xa 12b7 e40a | | Load 0x2,0xa 12b8 035b | [ | Declare_Type Array,Constrained 12b9 00d0 | | Action Swap_Control 12ba 01cd | | Execute Vector,Slice_Reference 12bb e001 | | Load 0x0,0x1 12bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 12bd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 12be e402 | | Load 0x2,0x2 12bf e001 | | Load 0x0,0x1 12c0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 12c1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 12c2 00d1 | | Pop_Control Pop_Count_1 12c3 4be7 |K | Short_Literal 0x3e7 12c4 4802 |H | Short_Literal 0x2 12c5 4be7 |K | Short_Literal 0x3e7 12c6 4802 |H | Short_Literal 0x2 12c7 4802 |H | Short_Literal 0x2 12c8 4be7 |K | Short_Literal 0x3e7 12c9 4be7 |K | Short_Literal 0x3e7 12ca 4801 |H | Short_Literal 0x1 12cb 480a |H | Short_Literal 0xa 12cc e403 | | Load 0x2,0x3 12cd 01cf | | Execute Vector,Slice_Read 12ce e002 | | Load 0x0,0x2 12cf 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 12d0 e5fe | | Load 0x2,-0x2 12d1 8251 | Q | Call 0x1,0x51 12d2 4801 |H | Short_Literal 0x1 12d3 e5fd | | Load 0x2,-0x3 12d4 e002 | | Load 0x0,0x2 12d5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 12d6 01d5 | | Execute Vector,Field_Reference 12d7 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 12d8 4800 |H | Short_Literal 0x0 12d9 4801 |H | Short_Literal 0x1 12da e5fd | | Load 0x2,-0x3 12db e5fe | | Load 0x2,-0x2 12dc e5ff | | Load 0x2,-0x1 12dd 8239 | 9 | Call 0x1,0x39 12de 0007 | | Action Break_Optional 12df e5f9 | | Load 0x2,-0x7 12e0 0f01 | | Execute_Immediate Equal,0x1 12e1 6801 |h | Jump_Zero 0x12e3 12e2 450e |E | Exit_Suprogram New_Top_Offset 0xe 12e3 e404 | | Load 0x2,0x4 12e4 e403 | | Load 0x2,0x3 12e5 e002 | | Load 0x0,0x2 12e6 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 12e7 e5f4 | | Load 0x2,-0xc 12e8 8255 | U | Call 0x1,0x55 12e9 00d1 | | Pop_Control Pop_Count_1 12ea c404 | | Store 0x2,0x4 12eb e404 | | Load 0x2,0x4 12ec 0f00 | | Execute_Immediate Equal,0x0 12ed e404 | | Load 0x2,0x4 12ee 0d00 | | Execute_Immediate Less,0x0 12ef 0278 | x | Execute Discrete,Or 12f0 6801 |h | Jump_Zero 0x12f2 12f1 450e |E | Exit_Suprogram New_Top_Offset 0xe 12f2 e404 | | Load 0x2,0x4 12f3 0c01 | | Execute_Immediate Greater_Equal,0x1 12f4 6801 |h | Jump_Zero 0x12f6 12f5 8409 | | Call 0x2,0x9 12f6 e5fa | | Load 0x2,-0x6 12f7 7012 |p | Jump_Nonzero 0x130a 12f8 e408 | | Load 0x2,0x8 12f9 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 12fb 4804 |H | Short_Literal 0x4 12fc 0092 6442 | dB| Action Push_String_Extended,0x6442 ; "Do you want to see the 2nd detail page if present? " 12fe e001 | | Load 0x0,0x1 12ff 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1300 00d1 | | Pop_Control Pop_Count_1 1301 4801 |H | Short_Literal 0x1 1302 4801 |H | Short_Literal 0x1 1303 e408 | | Load 0x2,0x8 1304 01cf | | Execute Vector,Slice_Read 1305 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 1307 01df | | Execute Vector,Equal 1308 6801 |h | Jump_Zero 0x130a 1309 450e |E | Exit_Suprogram New_Top_Offset 0xe 130a e407 | | Load 0x2,0x7 130b e406 | | Load 0x2,0x6 130c e5f3 | | Load 0x2,-0xd 130d e5f4 | | Load 0x2,-0xc 130e e5f5 | | Load 0x2,-0xb 130f e5f6 | | Load 0x2,-0xa 1310 e5f7 | | Load 0x2,-0x9 1311 e5f8 | | Load 0x2,-0x8 1312 e5f8 | | Load 0x2,-0x8 1313 e002 | | Load 0x0,0x2 1314 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1315 01d5 | | Execute Vector,Field_Reference 1316 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1317 0a01 | | Execute_Immediate Plus,0x1 1318 0248 | H | Execute Discrete,Check_In_Integer 1319 e5f4 | | Load 0x2,-0xc 131a e5fd | | Load 0x2,-0x3 131b e5fe | | Load 0x2,-0x2 131c e5ff | | Load 0x2,-0x1 131d 8230 | 0 | Call 0x1,0x30 131e c406 | | Store 0x2,0x6 131f c407 | | Store 0x2,0x7 1320 4800 |H | Short_Literal 0x0 1321 e5fa | | Load 0x2,-0x6 1322 e5f8 | | Load 0x2,-0x8 1323 e002 | | Load 0x0,0x2 1324 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1325 01d5 | | Execute Vector,Field_Reference 1326 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1327 4801 |H | Short_Literal 0x1 1328 e5f8 | | Load 0x2,-0x8 1329 e5f4 | | Load 0x2,-0xc 132a e5f5 | | Load 0x2,-0xb 132b 8234 | 4 | Call 0x1,0x34 132c e5f8 | | Load 0x2,-0x8 132d e002 | | Load 0x0,0x2 132e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 132f 01d5 | | Execute Vector,Field_Reference 1330 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1331 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1333 01de | | Execute Vector,Not_Equal 1334 680c |h | Jump_Zero 0x1341 1335 4800 |H | Short_Literal 0x0 1336 4803 |H | Short_Literal 0x3 1337 0092 6443 | dC| Action Push_String_Extended,0x6443 ; "Find Error, a detail rec pointed to a non-existant 2nd detail," 1339 e001 | | Load 0x0,0x1 133a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 133b 4801 |H | Short_Literal 0x1 133c 4804 |H | Short_Literal 0x4 133d 0092 6444 | dD| Action Push_String_Extended,0x6444 ; "This is probably an internal program file logic error." 133f e001 | | Load 0x0,0x1 1340 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1341 450e |E | Exit_Suprogram New_Top_Offset 0xe 1342 TRAP_1248: 1342 0007 | | Action Break_Optional 1343 4801 |H | Short_Literal 0x1 1344 4804 |H | Short_Literal 0x4 1345 0092 6445 | dE| Action Push_String_Extended,0x6445 ; "Exception found in ap_sub_find_top_plus_detail" 1347 e001 | | Load 0x0,0x1 1348 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1349 450e |E | Exit_Suprogram New_Top_Offset 0xe 134a 0000 0000 | | .BLANK 0000[0x6] 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1368 | h | .CONST 0x1368 ; Address of begin 1351 13fd | | .CONST 0x13fd ; Address of exception handler 1352 0009 | | .CONST 0x0009 ; Number of locals 1353 INIT_1350: 1353 00e2 | | Load_Encached Integer_Cache 1354 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1355 4801 |H | Short_Literal 0x1 1356 4850 |HP | Short_Literal 0x50 1357 00e9 | | Load_Encached String_Cache 1358 0334 | 4 | Declare_Variable Array,With_Constraint 1359 00e2 | | Load_Encached Integer_Cache 135a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 135b 4801 |H | Short_Literal 0x1 135c 480a |H | Short_Literal 0xa 135d 00e9 | | Load_Encached String_Cache 135e 0334 | 4 | Declare_Variable Array,With_Constraint 135f 00e2 | | Load_Encached Integer_Cache 1360 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1361 e002 | | Load 0x0,0x2 1362 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 1363 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 1364 00e1 | | Load_Encached Boolean_Cache 1365 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1366 029f 427b | B{| Declare_Subprogram INIT_4278,For_Call 1368 BODY_1350: 1368 e5f4 | | Load 0x2,-0xc 1369 e5fb | | Load 0x2,-0x5 136a e5fc | | Load 0x2,-0x4 136b e5fd | | Load 0x2,-0x3 136c e5fe | | Load 0x2,-0x2 136d e5ff | | Load 0x2,-0x1 136e 8237 | 7 | Call 0x1,0x37 136f e5f9 | | Load 0x2,-0x7 1370 e5fa | | Load 0x2,-0x6 1371 e5fd | | Load 0x2,-0x3 1372 8233 | 3 | Call 0x1,0x33 1373 7001 |p | Jump_Nonzero 0x1375 1374 450d |E | Exit_Suprogram New_Top_Offset 0xd 1375 e408 | | Load 0x2,0x8 1376 e407 | | Load 0x2,0x7 1377 e5f5 | | Load 0x2,-0xb 1378 e5f6 | | Load 0x2,-0xa 1379 e5f7 | | Load 0x2,-0x9 137a e5f8 | | Load 0x2,-0x8 137b e5f9 | | Load 0x2,-0x7 137c e5fa | | Load 0x2,-0x6 137d 4801 |H | Short_Literal 0x1 137e e5fe | | Load 0x2,-0x2 137f e5fd | | Load 0x2,-0x3 1380 e5fe | | Load 0x2,-0x2 1381 e5ff | | Load 0x2,-0x1 1382 8230 | 0 | Call 0x1,0x30 1383 c407 | | Store 0x2,0x7 1384 c408 | | Store 0x2,0x8 1385 0007 | | Action Break_Optional 1386 e407 | | Load 0x2,0x7 1387 0f01 | | Execute_Immediate Equal,0x1 1388 6817 |h | Jump_Zero 0x13a0 1389 e5f5 | | Load 0x2,-0xb 138a e5f6 | | Load 0x2,-0xa 138b e5f7 | | Load 0x2,-0x9 138c e5f8 | | Load 0x2,-0x8 138d e5f9 | | Load 0x2,-0x7 138e e5fa | | Load 0x2,-0x6 138f 4801 |H | Short_Literal 0x1 1390 e5fd | | Load 0x2,-0x3 1391 e5fe | | Load 0x2,-0x2 1392 e5ff | | Load 0x2,-0x1 1393 8231 | 1 | Call 0x1,0x31 1394 e5f5 | | Load 0x2,-0xb 1395 e5f6 | | Load 0x2,-0xa 1396 e5f7 | | Load 0x2,-0x9 1397 e5f8 | | Load 0x2,-0x8 1398 e5f9 | | Load 0x2,-0x7 1399 e5fa | | Load 0x2,-0x6 139a 4801 |H | Short_Literal 0x1 139b e5fd | | Load 0x2,-0x3 139c e5fe | | Load 0x2,-0x2 139d e5ff | | Load 0x2,-0x1 139e 8232 | 2 | Call 0x1,0x32 139f 450d |E | Exit_Suprogram New_Top_Offset 0xd 13a0 e5f4 | | Load 0x2,-0xc 13a1 e5fa | | Load 0x2,-0x6 13a2 e002 | | Load 0x0,0x2 13a3 1b96 | | Execute Package,Field_Read,Field_Number 0x96 13a4 01d5 | | Execute Vector,Field_Reference 13a5 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 13a6 4801 |H | Short_Literal 0x1 13a7 e5fa | | Load 0x2,-0x6 13a8 e5f6 | | Load 0x2,-0xa 13a9 e5f7 | | Load 0x2,-0x9 13aa 8237 | 7 | Call 0x1,0x37 13ab e5fa | | Load 0x2,-0x6 13ac e002 | | Load 0x0,0x2 13ad 1b96 | | Execute Package,Field_Read,Field_Number 0x96 13ae 01d5 | | Execute Vector,Field_Reference 13af 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 13b0 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 13b2 01de | | Execute Vector,Not_Equal 13b3 6801 |h | Jump_Zero 0x13b5 13b4 450d |E | Exit_Suprogram New_Top_Offset 0xd 13b5 0007 | | Action Break_Optional 13b6 e404 | | Load 0x2,0x4 13b7 e403 | | Load 0x2,0x3 13b8 e002 | | Load 0x0,0x2 13b9 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 13ba e5f6 | | Load 0x2,-0xa 13bb 8255 | U | Call 0x1,0x55 13bc 00d1 | | Pop_Control Pop_Count_1 13bd c404 | | Store 0x2,0x4 13be e404 | | Load 0x2,0x4 13bf 0f00 | | Execute_Immediate Equal,0x0 13c0 e404 | | Load 0x2,0x4 13c1 0d00 | | Execute_Immediate Less,0x0 13c2 0278 | x | Execute Discrete,Or 13c3 6801 |h | Jump_Zero 0x13c5 13c4 450d |E | Exit_Suprogram New_Top_Offset 0xd 13c5 e404 | | Load 0x2,0x4 13c6 0c01 | | Execute_Immediate Greater_Equal,0x1 13c7 6801 |h | Jump_Zero 0x13c9 13c8 8409 | | Call 0x2,0x9 13c9 e405 | | Load 0x2,0x5 13ca 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 13cc 4804 |H | Short_Literal 0x4 13cd 0092 6446 | dF| Action Push_String_Extended,0x6446 ; "Do you want to modify the 2nd detail page if present? " 13cf e001 | | Load 0x0,0x1 13d0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 13d1 00d1 | | Pop_Control Pop_Count_1 13d2 4801 |H | Short_Literal 0x1 13d3 4801 |H | Short_Literal 0x1 13d4 e405 | | Load 0x2,0x5 13d5 01cf | | Execute Vector,Slice_Read 13d6 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 13d8 01df | | Execute Vector,Equal 13d9 6801 |h | Jump_Zero 0x13db 13da 450d |E | Exit_Suprogram New_Top_Offset 0xd 13db e408 | | Load 0x2,0x8 13dc e407 | | Load 0x2,0x7 13dd e5f5 | | Load 0x2,-0xb 13de e5f6 | | Load 0x2,-0xa 13df e5f7 | | Load 0x2,-0x9 13e0 e5f8 | | Load 0x2,-0x8 13e1 e5f9 | | Load 0x2,-0x7 13e2 e5fa | | Load 0x2,-0x6 13e3 e5fa | | Load 0x2,-0x6 13e4 e002 | | Load 0x0,0x2 13e5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 13e6 01d5 | | Execute Vector,Field_Reference 13e7 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 13e8 0a01 | | Execute_Immediate Plus,0x1 13e9 0248 | H | Execute Discrete,Check_In_Integer 13ea e5f6 | | Load 0x2,-0xa 13eb e5fd | | Load 0x2,-0x3 13ec e5fe | | Load 0x2,-0x2 13ed e5ff | | Load 0x2,-0x1 13ee 8230 | 0 | Call 0x1,0x30 13ef c407 | | Store 0x2,0x7 13f0 c408 | | Store 0x2,0x8 13f1 e5f4 | | Load 0x2,-0xc 13f2 e5fa | | Load 0x2,-0x6 13f3 e002 | | Load 0x0,0x2 13f4 1b96 | | Execute Package,Field_Read,Field_Number 0x96 13f5 01d5 | | Execute Vector,Field_Reference 13f6 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 13f7 4801 |H | Short_Literal 0x1 13f8 e5fa | | Load 0x2,-0x6 13f9 e5f6 | | Load 0x2,-0xa 13fa e5f7 | | Load 0x2,-0x9 13fb 8237 | 7 | Call 0x1,0x37 13fc 450d |E | Exit_Suprogram New_Top_Offset 0xd 13fd TRAP_1350: 13fd 0007 | | Action Break_Optional 13fe 4801 |H | Short_Literal 0x1 13ff 4804 |H | Short_Literal 0x4 1400 0092 6447 | dG| Action Push_String_Extended,0x6447 ; "Exception found in ap_sub_modify_existing_top" 1402 e001 | | Load 0x0,0x1 1403 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1404 450d |E | Exit_Suprogram New_Top_Offset 0xd 1405 0000 0000 | | .XXX[0x3] 1407 0000 | | 1408 ; -------------------------------------------------------------------------------------- 1408 ; SUBPROGRAM 1408 ; -------------------------------------------------------------------------------------- 1408 1414 | | .CONST 0x1414 ; Address of begin 1409 1439 | 9 | .CONST 0x1439 ; Address of exception handler 140a 0004 | | .CONST 0x0004 ; Number of locals 140b INIT_1408: 140b 4801 |H | Short_Literal 0x1 140c 4850 |HP | Short_Literal 0x50 140d 00e9 | | Load_Encached String_Cache 140e 0334 | 4 | Declare_Variable Array,With_Constraint 140f 00e2 | | Load_Encached Integer_Cache 1410 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1411 e002 | | Load 0x0,0x2 1412 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 1413 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 1414 BODY_1408: 1414 4801 |H | Short_Literal 0x1 1415 4800 |H | Short_Literal 0x0 1416 e5fc | | Load 0x2,-0x4 1417 4801 |H | Short_Literal 0x1 1418 e5fd | | Load 0x2,-0x3 1419 e5fe | | Load 0x2,-0x2 141a e5ff | | Load 0x2,-0x1 141b 8239 | 9 | Call 0x1,0x39 141c e5fa | | Load 0x2,-0x6 141d e5fb | | Load 0x2,-0x5 141e e5fd | | Load 0x2,-0x3 141f 8233 | 3 | Call 0x1,0x33 1420 7001 |p | Jump_Nonzero 0x1422 1421 450b |E | Exit_Suprogram New_Top_Offset 0xb 1422 e5f6 | | Load 0x2,-0xa 1423 e5f7 | | Load 0x2,-0x9 1424 e5f8 | | Load 0x2,-0x8 1425 e5f9 | | Load 0x2,-0x7 1426 e5fa | | Load 0x2,-0x6 1427 e5fb | | Load 0x2,-0x5 1428 e5fc | | Load 0x2,-0x4 1429 e5fd | | Load 0x2,-0x3 142a e5fe | | Load 0x2,-0x2 142b e5ff | | Load 0x2,-0x1 142c 8231 | 1 | Call 0x1,0x31 142d e5f6 | | Load 0x2,-0xa 142e e5f7 | | Load 0x2,-0x9 142f e5f8 | | Load 0x2,-0x8 1430 e5f9 | | Load 0x2,-0x7 1431 e5fa | | Load 0x2,-0x6 1432 e5fb | | Load 0x2,-0x5 1433 4801 |H | Short_Literal 0x1 1434 e5fd | | Load 0x2,-0x3 1435 e5fe | | Load 0x2,-0x2 1436 e5ff | | Load 0x2,-0x1 1437 8232 | 2 | Call 0x1,0x32 1438 450b |E | Exit_Suprogram New_Top_Offset 0xb 1439 TRAP_1408: 1439 0007 | | Action Break_Optional 143a 4801 |H | Short_Literal 0x1 143b 4804 |H | Short_Literal 0x4 143c 0092 6448 | dH| Action Push_String_Extended,0x6448 ; "Exception found in ap_sub_add_new_top_plus_detail" 143e e001 | | Load 0x0,0x1 143f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1440 450b |E | Exit_Suprogram New_Top_Offset 0xb 1441 0000 0000 | | .BLANK 0000[0x7] 1448 ; -------------------------------------------------------------------------------------- 1448 ; SUBPROGRAM 1448 ; -------------------------------------------------------------------------------------- 1448 144d | M | .CONST 0x144d ; Address of begin 1449 144f | O | .CONST 0x144f ; Address of exception handler 144a 0002 | | .CONST 0x0002 ; Number of locals 144b INIT_1448: 144b 029f 429b | B | Declare_Subprogram INIT_4298,For_Call 144d BODY_1448: 144d 8402 | | Call 0x2,0x2 144e 450c |E | Exit_Suprogram New_Top_Offset 0xc 144f TRAP_1448: 144f 0007 | | Action Break_Optional 1450 4801 |H | Short_Literal 0x1 1451 4804 |H | Short_Literal 0x4 1452 0092 6449 | dI| Action Push_String_Extended,0x6449 ; "Exception found in ap_sub_find_forward_linked_detail." 1454 e001 | | Load 0x0,0x1 1455 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1456 450c |E | Exit_Suprogram New_Top_Offset 0xc 1457 0000 | | .XXX[0x1] 1458 ; -------------------------------------------------------------------------------------- 1458 ; SUBPROGRAM 1458 ; -------------------------------------------------------------------------------------- 1458 145d | ] | .CONST 0x145d ; Address of begin 1459 0004 | | .CONST 0x0004 ; Address of exception handler 145a 0002 | | .CONST 0x0002 ; Number of locals 145b INIT_1458: 145b 029f 42bb | B | Declare_Subprogram INIT_42b8,For_Call 145d BODY_1458: 145d 8402 | | Call 0x2,0x2 145e 450b |E | Exit_Suprogram New_Top_Offset 0xb 145f 0000 | | .XXX[0x1] 1460 ; -------------------------------------------------------------------------------------- 1460 ; SUBPROGRAM 1460 ; -------------------------------------------------------------------------------------- 1460 1465 | e | .CONST 0x1465 ; Address of begin 1461 1467 | g | .CONST 0x1467 ; Address of exception handler 1462 0002 | | .CONST 0x0002 ; Number of locals 1463 INIT_1460: 1463 029f 43e3 | C | Declare_Subprogram INIT_43e0,For_Call 1465 BODY_1460: 1465 8402 | | Call 0x2,0x2 1466 450b |E | Exit_Suprogram New_Top_Offset 0xb 1467 TRAP_1460: 1467 0007 | | Action Break_Optional 1468 4801 |H | Short_Literal 0x1 1469 4804 |H | Short_Literal 0x4 146a 0092 644a | dJ| Action Push_String_Extended,0x644a ; "Exception found in ap_sub_add_second_detail_and_link." 146c e001 | | Load 0x0,0x1 146d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 146e 450b |E | Exit_Suprogram New_Top_Offset 0xb 146f 0000 | | .XXX[0x1] 1470 ; -------------------------------------------------------------------------------------- 1470 ; SUBPROGRAM 1470 ; -------------------------------------------------------------------------------------- 1470 1473 | s | .CONST 0x1473 ; Address of begin 1471 149f | | .CONST 0x149f ; Address of exception handler 1472 0001 | | .CONST 0x0001 ; Number of locals 1473 BODY_1470: 1473 INIT_1470: 1473 e5ff | | Load 0x2,-0x1 1474 e002 | | Load 0x0,0x2 1475 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1476 01d5 | | Execute Vector,Field_Reference 1477 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1478 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 147a 01de | | Execute Vector,Not_Equal 147b 6802 |h | Jump_Zero 0x147e 147c 4800 |H | Short_Literal 0x0 147d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 147e e5fe | | Load 0x2,-0x2 147f 0f00 | | Execute_Immediate Equal,0x0 1480 e5fd | | Load 0x2,-0x3 1481 0f00 | | Execute_Immediate Equal,0x0 1482 0278 | x | Execute Discrete,Or 1483 6802 |h | Jump_Zero 0x1486 1484 4800 |H | Short_Literal 0x0 1485 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1486 e5fe | | Load 0x2,-0x2 1487 0c01 | | Execute_Immediate Greater_Equal,0x1 1488 e5fd | | Load 0x2,-0x3 1489 0c01 | | Execute_Immediate Greater_Equal,0x1 148a 0279 | y | Execute Discrete,And 148b 6811 |h | Jump_Zero 0x149d 148c 4801 |H | Short_Literal 0x1 148d 4801 |H | Short_Literal 0x1 148e e002 | | Load 0x0,0x2 148f 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1490 e5fd | | Load 0x2,-0x3 1491 e002 | | Load 0x0,0x2 1492 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1493 01d5 | | Execute Vector,Field_Reference 1494 01d5 | | Execute Vector,Field_Reference 1495 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1496 01cf | | Execute Vector,Slice_Read 1497 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 1499 01de | | Execute Vector,Not_Equal 149a 6802 |h | Jump_Zero 0x149d 149b 4800 |H | Short_Literal 0x0 149c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 149d 4801 |H | Short_Literal 0x1 149e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 149f TRAP_1470: 149f 0007 | | Action Break_Optional 14a0 4801 |H | Short_Literal 0x1 14a1 4804 |H | Short_Literal 0x4 14a2 0092 644b | dK| Action Push_String_Extended,0x644b ; "Exception found in found_top_and_have_detail" 14a4 e001 | | Load 0x0,0x1 14a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 14a6 4831 |H1 | Short_Literal 0x31 14a7 0257 | W | Execute Discrete,Raise 14a8 ; -------------------------------------------------------------------------------------- 14a8 ; SUBPROGRAM 14a8 ; -------------------------------------------------------------------------------------- 14a8 14ad | | .CONST 0x14ad ; Address of begin 14a9 0004 | | .CONST 0x0004 ; Address of exception handler 14aa 0002 | | .CONST 0x0002 ; Number of locals 14ab INIT_14a8: 14ab 029f 4423 | D#| Declare_Subprogram INIT_4420,For_Call 14ad BODY_14a8: 14ad 8402 | | Call 0x2,0x2 14ae 4508 |E | Exit_Suprogram New_Top_Offset 0x8 14af 0000 | | .XXX[0x1] 14b0 ; -------------------------------------------------------------------------------------- 14b0 ; SUBPROGRAM 14b0 ; -------------------------------------------------------------------------------------- 14b0 14e5 | | .CONST 0x14e5 ; Address of begin 14b1 1560 | ` | .CONST 0x1560 ; Address of exception handler 14b2 0008 | | .CONST 0x0008 ; Number of locals 14b3 INIT_14b0: 14b3 4801 |H | Short_Literal 0x1 14b4 48c8 |H | Short_Literal 0xc8 14b5 00e9 | | Load_Encached String_Cache 14b6 0334 | 4 | Declare_Variable Array,With_Constraint 14b7 4801 |H | Short_Literal 0x1 14b8 48c8 |H | Short_Literal 0xc8 14b9 00e9 | | Load_Encached String_Cache 14ba 0334 | 4 | Declare_Variable Array,With_Constraint 14bb 48c8 |H | Short_Literal 0xc8 14bc 4801 |H | Short_Literal 0x1 14bd 4820 |H | Short_Literal 0x20 14be e405 | | Load 0x2,0x5 14bf e403 | | Load 0x2,0x3 14c0 01d6 | | Execute Vector,Field_Write 14c1 3ffb |? | Loop_Increasing 0x14bd 14c2 e402 | | Load 0x2,0x2 14c3 01d4 | | Execute Vector,Structure_Write 14c4 00e2 | | Load_Encached Integer_Cache 14c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 14c6 4801 |H | Short_Literal 0x1 14c7 4802 |H | Short_Literal 0x2 14c8 00e9 | | Load_Encached String_Cache 14c9 0334 | 4 | Declare_Variable Array,With_Constraint 14ca 5391 |S | Indirect_Literal Any,0x185c,{0x78782020, 0x20202020} 14cb e004 | | Load 0x0,0x4 14cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14cd 02c7 | | Declare_Variable Any 14ce 00d8 | | Load_Top At_Offset_0 14cf 1c00 | | Execute_Immediate Run_Utility,0x0 14d0 4801 |H | Short_Literal 0x1 14d1 48c8 |H | Short_Literal 0xc8 14d2 00e9 | | Load_Encached String_Cache 14d3 0334 | 4 | Declare_Variable Array,With_Constraint 14d4 4801 |H | Short_Literal 0x1 14d5 48c8 |H | Short_Literal 0xc8 14d6 00e9 | | Load_Encached String_Cache 14d7 0334 | 4 | Declare_Variable Array,With_Constraint 14d8 48c8 |H | Short_Literal 0xc8 14d9 4801 |H | Short_Literal 0x1 14da 4820 |H | Short_Literal 0x20 14db e409 | | Load 0x2,0x9 14dc e407 | | Load 0x2,0x7 14dd 01d6 | | Execute Vector,Field_Write 14de 3ffb |? | Loop_Increasing 0x14da 14df e406 | | Load 0x2,0x6 14e0 01d4 | | Execute Vector,Structure_Write 14e1 00e2 | | Load_Encached Integer_Cache 14e2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 14e3 029f 4503 | E | Declare_Subprogram INIT_4500,For_Call 14e5 BODY_14b0: 14e5 00be | | Action Activate_Tasks 14e6 e5fd | | Load 0x2,-0x3 14e7 e002 | | Load 0x0,0x2 14e8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 14e9 01d5 | | Execute Vector,Field_Reference 14ea 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 14eb 7001 |p | Jump_Nonzero 0x14ed 14ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 14ed e5fd | | Load 0x2,-0x3 14ee e002 | | Load 0x0,0x2 14ef 1b96 | | Execute Package,Field_Read,Field_Number 0x96 14f0 01d5 | | Execute Vector,Field_Reference 14f1 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 14f2 e404 | | Load 0x2,0x4 14f3 01d4 | | Execute Vector,Structure_Write 14f4 e002 | | Load 0x0,0x2 14f5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 14f6 e5ff | | Load 0x2,-0x1 14f7 0a01 | | Execute_Immediate Plus,0x1 14f8 0248 | H | Execute Discrete,Check_In_Integer 14f9 e002 | | Load 0x0,0x2 14fa 1b90 | | Execute Package,Field_Read,Field_Number 0x90 14fb 01d5 | | Execute Vector,Field_Reference 14fc 01d5 | | Execute Vector,Field_Reference 14fd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 14fe a407 | | Store_Unchecked 0x2,0x7 14ff 4801 |H | Short_Literal 0x1 1500 e407 | | Load 0x2,0x7 1501 e002 | | Load 0x0,0x2 1502 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1503 e5ff | | Load 0x2,-0x1 1504 0a01 | | Execute_Immediate Plus,0x1 1505 0248 | H | Execute Discrete,Check_In_Integer 1506 e002 | | Load 0x0,0x2 1507 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1508 01d5 | | Execute Vector,Field_Reference 1509 01d5 | | Execute Vector,Field_Reference 150a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 150b 01cf | | Execute Vector,Slice_Read 150c 4801 |H | Short_Literal 0x1 150d e407 | | Load 0x2,0x7 150e e406 | | Load 0x2,0x6 150f 01ce | | Execute Vector,Slice_Write 1510 e406 | | Load 0x2,0x6 1511 4801 |H | Short_Literal 0x1 1512 e407 | | Load 0x2,0x7 1513 e409 | | Load 0x2,0x9 1514 035b | [ | Declare_Type Array,Constrained 1515 00d0 | | Action Swap_Control 1516 01cd | | Execute Vector,Slice_Reference 1517 00d8 | | Load_Top At_Offset_0 1518 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 151a 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 151c e407 | | Load 0x2,0x7 151d e001 | | Load 0x0,0x1 151e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 151f 00d2 | | Pop_Control Pop_Count_2 1520 e002 | | Load 0x0,0x2 1521 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1522 0a02 | | Execute_Immediate Plus,0x2 1523 e407 | | Load 0x2,0x7 1524 0273 | s | Execute Discrete,Plus 1525 0248 | H | Execute Discrete,Check_In_Integer 1526 a403 | | Store_Unchecked 0x2,0x3 1527 4801 |H | Short_Literal 0x1 1528 e002 | | Load 0x0,0x2 1529 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 152a e002 | | Load 0x0,0x2 152b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 152c 01cf | | Execute Vector,Slice_Read 152d e404 | | Load 0x2,0x4 152e 01cc | | Execute Vector,Catenate 152f 4801 |H | Short_Literal 0x1 1530 e407 | | Load 0x2,0x7 1531 e406 | | Load 0x2,0x6 1532 01cf | | Execute Vector,Slice_Read 1533 01cc | | Execute Vector,Catenate 1534 4801 |H | Short_Literal 0x1 1535 e403 | | Load 0x2,0x3 1536 e402 | | Load 0x2,0x2 1537 01ce | | Execute Vector,Slice_Write 1538 8408 | | Call 0x2,0x8 1539 e001 | | Load 0x0,0x1 153a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 153b e002 | | Load 0x0,0x2 153c 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 153d 7010 |p | Jump_Nonzero 0x154e 153e 4800 |H | Short_Literal 0x0 153f 4801 |H | Short_Literal 0x1 1540 0092 644c | dL| Action Push_String_Extended,0x644c ; " [Detail Text for record: " 1542 e404 | | Load 0x2,0x4 1543 01cc | | Execute Vector,Catenate 1544 4801 |H | Short_Literal 0x1 1545 e407 | | Load 0x2,0x7 1546 e406 | | Load 0x2,0x6 1547 01cf | | Execute Vector,Slice_Read 1548 01cc | | Execute Vector,Catenate 1549 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 154b 01cc | | Execute Vector,Catenate 154c e001 | | Load 0x0,0x1 154d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 154e e001 | | Load 0x0,0x1 154f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1550 4800 |H | Short_Literal 0x0 1551 4800 |H | Short_Literal 0x0 1552 4800 |H | Short_Literal 0x0 1553 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 1555 e004 | | Load 0x0,0x4 1556 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 1557 e405 | | Load 0x2,0x5 1558 8264 | d | Call 0x1,0x64 1559 e001 | | Load 0x0,0x1 155a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 155b e405 | | Load 0x2,0x5 155c e004 | | Load 0x0,0x4 155d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 155e c405 | | Store 0x2,0x5 155f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1560 TRAP_14b0: 1560 0007 | | Action Break_Optional 1561 4801 |H | Short_Literal 0x1 1562 4804 |H | Short_Literal 0x4 1563 0092 644d | dM| Action Push_String_Extended,0x644d ; "Exception found in ap_sub_display_attached_text" 1565 e001 | | Load 0x0,0x1 1566 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1567 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1568 ; -------------------------------------------------------------------------------------- 1568 ; SUBPROGRAM 1568 ; -------------------------------------------------------------------------------------- 1568 15a0 | | .CONST 0x15a0 ; Address of begin 1569 161f | | .CONST 0x161f ; Address of exception handler 156a 000b | | .CONST 0x000b ; Number of locals 156b INIT_1568: 156b 4801 |H | Short_Literal 0x1 156c 49f4 |I | Short_Literal 0x1f4 156d 00e9 | | Load_Encached String_Cache 156e 0334 | 4 | Declare_Variable Array,With_Constraint 156f 4801 |H | Short_Literal 0x1 1570 49f4 |I | Short_Literal 0x1f4 1571 00e9 | | Load_Encached String_Cache 1572 0334 | 4 | Declare_Variable Array,With_Constraint 1573 49f4 |I | Short_Literal 0x1f4 1574 4801 |H | Short_Literal 0x1 1575 4820 |H | Short_Literal 0x20 1576 e405 | | Load 0x2,0x5 1577 e403 | | Load 0x2,0x3 1578 01d6 | | Execute Vector,Field_Write 1579 3ffb |? | Loop_Increasing 0x1575 157a e402 | | Load 0x2,0x2 157b 01d4 | | Execute Vector,Structure_Write 157c 00e2 | | Load_Encached Integer_Cache 157d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 157e 4801 |H | Short_Literal 0x1 157f 48c8 |H | Short_Literal 0xc8 1580 00e9 | | Load_Encached String_Cache 1581 0334 | 4 | Declare_Variable Array,With_Constraint 1582 00e2 | | Load_Encached Integer_Cache 1583 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1584 4801 |H | Short_Literal 0x1 1585 4801 |H | Short_Literal 0x1 1586 00e9 | | Load_Encached String_Cache 1587 0334 | 4 | Declare_Variable Array,With_Constraint 1588 4801 |H | Short_Literal 0x1 1589 4801 |H | Short_Literal 0x1 158a 00e9 | | Load_Encached String_Cache 158b 0334 | 4 | Declare_Variable Array,With_Constraint 158c 4822 |H" | Short_Literal 0x22 158d 4801 |H | Short_Literal 0x1 158e e407 | | Load 0x2,0x7 158f 01d6 | | Execute Vector,Field_Write 1590 e406 | | Load 0x2,0x6 1591 01d4 | | Execute Vector,Structure_Write 1592 62c5 |b | Indirect_Literal Discrete,0x1858,{0x00000000, 0x00000708} 1593 00e2 | | Load_Encached Integer_Cache 1594 03f1 | | Declare_Variable Discrete,With_Value 1595 00e2 | | Load_Encached Integer_Cache 1596 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1597 00e2 | | Load_Encached Integer_Cache 1598 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1599 e004 | | Load 0x0,0x4 159a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 159b 02c7 | | Declare_Variable Any 159c 00d8 | | Load_Top At_Offset_0 159d 1c00 | | Execute_Immediate Run_Utility,0x0 159e 029f 452b | E+| Declare_Subprogram INIT_4528,For_Call 15a0 BODY_1568: 15a0 00be | | Action Activate_Tasks 15a1 4800 |H | Short_Literal 0x0 15a2 a409 | | Store_Unchecked 0x2,0x9 15a3 4800 |H | Short_Literal 0x0 15a4 a408 | | Store_Unchecked 0x2,0x8 15a5 00cf | | Action Mark_Auxiliary 15a6 0007 | | Action Break_Optional 15a7 e5ff | | Load 0x2,-0x1 15a8 e004 | | Load 0x0,0x4 15a9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 15aa 7073 |ps | Jump_Nonzero 0x161e 15ab 00e3 | | Load_Encached Natural_Cache 15ac e402 | | Load 0x2,0x2 15ad e5ff | | Load 0x2,-0x1 15ae e004 | | Load 0x0,0x4 15af 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 15b0 00d1 | | Pop_Control Pop_Count_1 15b1 c403 | | Store 0x2,0x3 15b2 e403 | | Load 0x2,0x3 15b3 0c04 | | Execute_Immediate Greater_Equal,0x4 15b4 680a |h | Jump_Zero 0x15bf 15b5 e5fb | | Load 0x2,-0x5 15b6 6808 |h | Jump_Zero 0x15bf 15b7 4801 |H | Short_Literal 0x1 15b8 4804 |H | Short_Literal 0x4 15b9 e402 | | Load 0x2,0x2 15ba 01cf | | Execute Vector,Slice_Read 15bb 0092 644e | dN| Action Push_String_Extended,0x644e ; "=END" 15bd 01df | | Execute Vector,Equal 15be 705f |p_ | Jump_Nonzero 0x161e 15bf e403 | | Load 0x2,0x3 15c0 0c0c | | Execute_Immediate Greater_Equal,0xc 15c1 680a |h | Jump_Zero 0x15cc 15c2 4801 |H | Short_Literal 0x1 15c3 480c |H | Short_Literal 0xc 15c4 e402 | | Load 0x2,0x2 15c5 01cf | | Execute Vector,Slice_Read 15c6 0092 644f | dO| Action Push_String_Extended,0x644f ; "MORE_INFO =>" 15c8 01df | | Execute Vector,Equal 15c9 6802 |h | Jump_Zero 0x15cc 15ca 4800 |H | Short_Literal 0x0 15cb a403 | | Store_Unchecked 0x2,0x3 15cc e5fc | | Load 0x2,-0x4 15cd 0f01 | | Execute_Immediate Equal,0x1 15ce 680d |h | Jump_Zero 0x15dc 15cf e409 | | Load 0x2,0x9 15d0 e403 | | Load 0x2,0x3 15d1 0273 | s | Execute Discrete,Plus 15d2 e407 | | Load 0x2,0x7 15d3 027d | } | Execute Discrete,Greater 15d4 6807 |h | Jump_Zero 0x15dc 15d5 e408 | | Load 0x2,0x8 15d6 0a01 | | Execute_Immediate Plus,0x1 15d7 0248 | H | Execute Discrete,Check_In_Integer 15d8 a408 | | Store_Unchecked 0x2,0x8 15d9 4800 |H | Short_Literal 0x0 15da a409 | | Store_Unchecked 0x2,0x9 15db 840b | | Call 0x2,0xb 15dc e409 | | Load 0x2,0x9 15dd e403 | | Load 0x2,0x3 15de 0273 | s | Execute Discrete,Plus 15df 0248 | H | Execute Discrete,Check_In_Integer 15e0 a409 | | Store_Unchecked 0x2,0x9 15e1 e5fc | | Load 0x2,-0x4 15e2 0f01 | | Execute_Immediate Equal,0x1 15e3 6816 |h | Jump_Zero 0x15fa 15e4 e402 | | Load 0x2,0x2 15e5 0092 6433 | d3| Action Push_String_Extended,0x6433 ; "'" 15e7 e406 | | Load 0x2,0x6 15e8 e403 | | Load 0x2,0x3 15e9 e001 | | Load 0x0,0x1 15ea 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 15eb 00d1 | | Pop_Control Pop_Count_1 15ec e5fd | | Load 0x2,-0x3 15ed e406 | | Load 0x2,0x6 15ee 01cc | | Execute Vector,Catenate 15ef 4801 |H | Short_Literal 0x1 15f0 e403 | | Load 0x2,0x3 15f1 e402 | | Load 0x2,0x2 15f2 01cf | | Execute Vector,Slice_Read 15f3 01cc | | Execute Vector,Catenate 15f4 e406 | | Load 0x2,0x6 15f5 01cc | | Execute Vector,Catenate 15f6 e5fe | | Load 0x2,-0x2 15f7 e004 | | Load 0x0,0x4 15f8 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 15f9 7822 |x" | Jump 0x161c 15fa e5fa | | Load 0x2,-0x6 15fb 0f01 | | Execute_Immediate Equal,0x1 15fc 6816 |h | Jump_Zero 0x1613 15fd e5fd | | Load 0x2,-0x3 15fe 4802 |H | Short_Literal 0x2 15ff e403 | | Load 0x2,0x3 1600 e402 | | Load 0x2,0x2 1601 01cf | | Execute Vector,Slice_Read 1602 01cc | | Execute Vector,Catenate 1603 e5fe | | Load 0x2,-0x2 1604 e004 | | Load 0x0,0x4 1605 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 1606 e002 | | Load 0x0,0x2 1607 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 1608 7013 |p | Jump_Nonzero 0x161c 1609 0092 6450 | dP| Action Push_String_Extended,0x6450 ; "Reading: " 160b 4801 |H | Short_Literal 0x1 160c e403 | | Load 0x2,0x3 160d e402 | | Load 0x2,0x2 160e 01cf | | Execute Vector,Slice_Read 160f 01cc | | Execute Vector,Catenate 1610 e004 | | Load 0x0,0x4 1611 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 1612 7809 |x | Jump 0x161c 1613 e5fd | | Load 0x2,-0x3 1614 4801 |H | Short_Literal 0x1 1615 e403 | | Load 0x2,0x3 1616 e402 | | Load 0x2,0x2 1617 01cf | | Execute Vector,Slice_Read 1618 01cc | | Execute Vector,Catenate 1619 e5fe | | Load 0x2,-0x2 161a e004 | | Load 0x0,0x4 161b 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 161c 00c9 | | Action Pop_Auxiliary_Loop 161d 7f89 | | Jump 0x15a7 161e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 161f TRAP_1568: 161f 0007 | | Action Break_Optional 1620 4801 |H | Short_Literal 0x1 1621 4804 |H | Short_Literal 0x4 1622 0092 6451 | dQ| Action Push_String_Extended,0x6451 ; "Exception found in ap_sub_display_file_data" 1624 e001 | | Load 0x0,0x1 1625 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1626 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1627 0000 | | .XXX[0x1] 1628 ; -------------------------------------------------------------------------------------- 1628 ; SUBPROGRAM 1628 ; -------------------------------------------------------------------------------------- 1628 162d | - | .CONST 0x162d ; Address of begin 1629 0004 | | .CONST 0x0004 ; Address of exception handler 162a 0002 | | .CONST 0x0002 ; Number of locals 162b INIT_1628: 162b 029f 457b | E{| Declare_Subprogram INIT_4578,For_Call 162d BODY_1628: 162d 8402 | | Call 0x2,0x2 162e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 162f 0000 | | .XXX[0x1] 1630 ; -------------------------------------------------------------------------------------- 1630 ; SUBPROGRAM 1630 ; -------------------------------------------------------------------------------------- 1630 169f | | .CONST 0x169f ; Address of begin 1631 1732 | 2 | .CONST 0x1732 ; Address of exception handler 1632 0012 | | .CONST 0x0012 ; Number of locals 1633 INIT_1630: 1633 4801 |H | Short_Literal 0x1 1634 4864 |Hd | Short_Literal 0x64 1635 00e9 | | Load_Encached String_Cache 1636 0334 | 4 | Declare_Variable Array,With_Constraint 1637 4801 |H | Short_Literal 0x1 1638 4864 |Hd | Short_Literal 0x64 1639 00e9 | | Load_Encached String_Cache 163a 0334 | 4 | Declare_Variable Array,With_Constraint 163b 4864 |Hd | Short_Literal 0x64 163c 4801 |H | Short_Literal 0x1 163d 4820 |H | Short_Literal 0x20 163e e405 | | Load 0x2,0x5 163f e403 | | Load 0x2,0x3 1640 01d6 | | Execute Vector,Field_Write 1641 3ffb |? | Loop_Increasing 0x163d 1642 e402 | | Load 0x2,0x2 1643 01d4 | | Execute Vector,Structure_Write 1644 00e2 | | Load_Encached Integer_Cache 1645 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1646 4801 |H | Short_Literal 0x1 1647 4802 |H | Short_Literal 0x2 1648 00e9 | | Load_Encached String_Cache 1649 0334 | 4 | Declare_Variable Array,With_Constraint 164a 5215 |R | Indirect_Literal Any,0x1860,{0x78782020, 0x20202020} 164b e005 | | Load 0x0,0x5 164c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 164d 02c7 | | Declare_Variable Any 164e 00d8 | | Load_Top At_Offset_0 164f 1c00 | | Execute_Immediate Run_Utility,0x0 1650 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 1652 e003 | | Load 0x0,0x3 1653 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1654 e003 | | Load 0x0,0x3 1655 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1656 01cc | | Execute Vector,Catenate 1657 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 1659 01cc | | Execute Vector,Catenate 165a e003 | | Load 0x0,0x3 165b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 165c e003 | | Load 0x0,0x3 165d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 165e 01cc | | Execute Vector,Catenate 165f 0092 6437 | d7| Action Push_String_Extended,0x6437 ; "_sims_hold_" 1661 01cc | | Execute Vector,Catenate 1662 0007 | | Action Break_Optional 1663 e005 | | Load 0x0,0x5 1664 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1665 02c7 | | Declare_Variable Any 1666 00d8 | | Load_Top At_Offset_0 1667 1c00 | | Execute_Immediate Run_Utility,0x0 1668 4801 |H | Short_Literal 0x1 1669 48c8 |H | Short_Literal 0xc8 166a 00e9 | | Load_Encached String_Cache 166b 0334 | 4 | Declare_Variable Array,With_Constraint 166c 4801 |H | Short_Literal 0x1 166d 48c8 |H | Short_Literal 0xc8 166e 00e9 | | Load_Encached String_Cache 166f 0334 | 4 | Declare_Variable Array,With_Constraint 1670 48c8 |H | Short_Literal 0xc8 1671 4801 |H | Short_Literal 0x1 1672 4820 |H | Short_Literal 0x20 1673 e40b | | Load 0x2,0xb 1674 e409 | | Load 0x2,0x9 1675 01d6 | | Execute Vector,Field_Write 1676 3ffb |? | Loop_Increasing 0x1672 1677 e408 | | Load 0x2,0x8 1678 01d4 | | Execute Vector,Structure_Write 1679 00e2 | | Load_Encached Integer_Cache 167a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 167b e005 | | Load 0x0,0x5 167c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 167d 02c7 | | Declare_Variable Any 167e 00d8 | | Load_Top At_Offset_0 167f 1c00 | | Execute_Immediate Run_Utility,0x0 1680 4801 |H | Short_Literal 0x1 1681 48c8 |H | Short_Literal 0xc8 1682 00e9 | | Load_Encached String_Cache 1683 0334 | 4 | Declare_Variable Array,With_Constraint 1684 4801 |H | Short_Literal 0x1 1685 48c8 |H | Short_Literal 0xc8 1686 00e9 | | Load_Encached String_Cache 1687 0334 | 4 | Declare_Variable Array,With_Constraint 1688 48c8 |H | Short_Literal 0xc8 1689 4801 |H | Short_Literal 0x1 168a 4820 |H | Short_Literal 0x20 168b e40e | | Load 0x2,0xe 168c e40c | | Load 0x2,0xc 168d 01d6 | | Execute Vector,Field_Write 168e 3ffb |? | Loop_Increasing 0x168a 168f e40b | | Load 0x2,0xb 1690 01d4 | | Execute Vector,Structure_Write 1691 00e2 | | Load_Encached Integer_Cache 1692 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1693 00e2 | | Load_Encached Integer_Cache 1694 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1695 00e1 | | Load_Encached Boolean_Cache 1696 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1697 00e1 | | Load_Encached Boolean_Cache 1698 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1699 029f 4673 | Fs| Declare_Subprogram INIT_4670,For_Call 169b 029f 469b | F | Declare_Subprogram INIT_4698,For_Call 169d 029f 4753 | GS| Declare_Subprogram INIT_4750,For_Call 169f BODY_1630: 169f e5fd | | Load 0x2,-0x3 16a0 e002 | | Load 0x0,0x2 16a1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 16a2 01d5 | | Execute Vector,Field_Reference 16a3 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 16a4 7001 |p | Jump_Nonzero 0x16a6 16a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 16a6 e5fd | | Load 0x2,-0x3 16a7 e002 | | Load 0x0,0x2 16a8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 16a9 01d5 | | Execute Vector,Field_Reference 16aa 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 16ab e404 | | Load 0x2,0x4 16ac 01d4 | | Execute Vector,Structure_Write 16ad e002 | | Load 0x0,0x2 16ae 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 16af e5ff | | Load 0x2,-0x1 16b0 0a01 | | Execute_Immediate Plus,0x1 16b1 0248 | H | Execute Discrete,Check_In_Integer 16b2 e002 | | Load 0x0,0x2 16b3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 16b4 01d5 | | Execute Vector,Field_Reference 16b5 01d5 | | Execute Vector,Field_Reference 16b6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 16b7 a409 | | Store_Unchecked 0x2,0x9 16b8 4801 |H | Short_Literal 0x1 16b9 e409 | | Load 0x2,0x9 16ba e002 | | Load 0x0,0x2 16bb 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 16bc e5ff | | Load 0x2,-0x1 16bd 0a01 | | Execute_Immediate Plus,0x1 16be 0248 | H | Execute Discrete,Check_In_Integer 16bf e002 | | Load 0x0,0x2 16c0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 16c1 01d5 | | Execute Vector,Field_Reference 16c2 01d5 | | Execute Vector,Field_Reference 16c3 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 16c4 01cf | | Execute Vector,Slice_Read 16c5 4801 |H | Short_Literal 0x1 16c6 e409 | | Load 0x2,0x9 16c7 e408 | | Load 0x2,0x8 16c8 01ce | | Execute Vector,Slice_Write 16c9 e408 | | Load 0x2,0x8 16ca 4801 |H | Short_Literal 0x1 16cb e409 | | Load 0x2,0x9 16cc e413 | | Load 0x2,0x13 16cd 035b | [ | Declare_Type Array,Constrained 16ce 00d0 | | Action Swap_Control 16cf 01cd | | Execute Vector,Slice_Reference 16d0 00d8 | | Load_Top At_Offset_0 16d1 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 16d3 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 16d5 e409 | | Load 0x2,0x9 16d6 e001 | | Load 0x0,0x1 16d7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 16d8 00d2 | | Pop_Control Pop_Count_2 16d9 e002 | | Load 0x0,0x2 16da 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 16db 0a02 | | Execute_Immediate Plus,0x2 16dc e409 | | Load 0x2,0x9 16dd 0273 | s | Execute Discrete,Plus 16de 0248 | H | Execute Discrete,Check_In_Integer 16df a403 | | Store_Unchecked 0x2,0x3 16e0 4801 |H | Short_Literal 0x1 16e1 e002 | | Load 0x0,0x2 16e2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 16e3 e002 | | Load 0x0,0x2 16e4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 16e5 01cf | | Execute Vector,Slice_Read 16e6 e404 | | Load 0x2,0x4 16e7 01cc | | Execute Vector,Catenate 16e8 4801 |H | Short_Literal 0x1 16e9 e409 | | Load 0x2,0x9 16ea e408 | | Load 0x2,0x8 16eb 01cf | | Execute Vector,Slice_Read 16ec 01cc | | Execute Vector,Catenate 16ed 4801 |H | Short_Literal 0x1 16ee e403 | | Load 0x2,0x3 16ef e402 | | Load 0x2,0x2 16f0 01ce | | Execute Vector,Slice_Write 16f1 e409 | | Load 0x2,0x9 16f2 0f0a | | Execute_Immediate Equal,0xa 16f3 681c |h | Jump_Zero 0x1710 16f4 4801 |H | Short_Literal 0x1 16f5 480a |H | Short_Literal 0xa 16f6 e408 | | Load 0x2,0x8 16f7 01cf | | Execute Vector,Slice_Read 16f8 0092 6438 | d8| Action Push_String_Extended,0x6438 ; "0000000000" 16fa 01df | | Execute Vector,Equal 16fb 6814 |h | Jump_Zero 0x1710 16fc e406 | | Load 0x2,0x6 16fd 01db | | Execute Vector,Length 16fe 0a02 | | Execute_Immediate Plus,0x2 16ff e409 | | Load 0x2,0x9 1700 0273 | s | Execute Discrete,Plus 1701 0248 | H | Execute Discrete,Check_In_Integer 1702 a403 | | Store_Unchecked 0x2,0x3 1703 e406 | | Load 0x2,0x6 1704 0092 6439 | d9| Action Push_String_Extended,0x6439 ; "XX" 1706 01cc | | Execute Vector,Catenate 1707 4801 |H | Short_Literal 0x1 1708 e409 | | Load 0x2,0x9 1709 e408 | | Load 0x2,0x8 170a 01cf | | Execute Vector,Slice_Read 170b 01cc | | Execute Vector,Catenate 170c 4801 |H | Short_Literal 0x1 170d e403 | | Load 0x2,0x3 170e e402 | | Load 0x2,0x2 170f 01ce | | Execute Vector,Slice_Write 1710 8410 | | Call 0x2,0x10 1711 4800 |H | Short_Literal 0x0 1712 a40e | | Store_Unchecked 0x2,0xe 1713 8411 | | Call 0x2,0x11 1714 e40e | | Load 0x2,0xe 1715 0f01 | | Execute_Immediate Equal,0x1 1716 e002 | | Load 0x0,0x2 1717 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 1718 0f00 | | Execute_Immediate Equal,0x0 1719 0279 | y | Execute Discrete,And 171a 6801 |h | Jump_Zero 0x171c 171b 7813 |x | Jump 0x172f 171c 4800 |H | Short_Literal 0x0 171d 4801 |H | Short_Literal 0x1 171e 0092 6452 | dR| Action Push_String_Extended,0x6452 ; " [Please edit new detail window and then Object X commit it when done.]" 1720 e001 | | Load 0x0,0x1 1721 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1722 4800 |H | Short_Literal 0x0 1723 e006 | | Load 0x0,0x6 1724 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1725 612e |a. | Indirect_Literal Discrete,0x1854,{0x00000000, 0x00018000} 1726 00ba | | Action Initiate_Delay 1727 4800 |H | Short_Literal 0x0 1728 a40d | | Store_Unchecked 0x2,0xd 1729 00cf | | Action Mark_Auxiliary 172a 0007 | | Action Break_Optional 172b 8412 | | Call 0x2,0x12 172c 00c9 | | Action Pop_Auxiliary_Loop 172d 7ffd | | Jump 0x172b 172e 00ce | | Action Pop_Auxiliary 172f e001 | | Load 0x0,0x1 1730 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1731 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1732 TRAP_1630: 1732 0007 | | Action Break_Optional 1733 4800 |H | Short_Literal 0x0 1734 4804 |H | Short_Literal 0x4 1735 0092 6453 | dS| Action Push_String_Extended,0x6453 ; "Error, Problem in editing attached detail text for this report." 1737 e001 | | Load 0x0,0x1 1738 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1739 4801 |H | Short_Literal 0x1 173a 4804 |H | Short_Literal 0x4 173b 0092 6454 | dT| Action Push_String_Extended,0x6454 ; "Attempting to edit temporary file: " 173d 4801 |H | Short_Literal 0x1 173e e002 | | Load 0x0,0x2 173f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1740 e002 | | Load 0x0,0x2 1741 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1742 01cf | | Execute Vector,Slice_Read 1743 01cc | | Execute Vector,Catenate 1744 e404 | | Load 0x2,0x4 1745 01cc | | Execute Vector,Catenate 1746 4801 |H | Short_Literal 0x1 1747 e409 | | Load 0x2,0x9 1748 e408 | | Load 0x2,0x8 1749 01cf | | Execute Vector,Slice_Read 174a 01cc | | Execute Vector,Catenate 174b e001 | | Load 0x0,0x1 174c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 174d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 174e 0000 0000 | | .XXX[0x2] 1750 ; -------------------------------------------------------------------------------------- 1750 ; SUBPROGRAM 1750 ; -------------------------------------------------------------------------------------- 1750 1755 | U | .CONST 0x1755 ; Address of begin 1751 0004 | | .CONST 0x0004 ; Address of exception handler 1752 0002 | | .CONST 0x0002 ; Number of locals 1753 INIT_1750: 1753 029f 47b3 | G | Declare_Subprogram INIT_47b0,For_Call 1755 BODY_1750: 1755 8402 | | Call 0x2,0x2 1756 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1757 0000 | | .XXX[0x1] 1758 ; -------------------------------------------------------------------------------------- 1758 ; SUBPROGRAM 1758 ; -------------------------------------------------------------------------------------- 1758 17a5 | | .CONST 0x17a5 ; Address of begin 1759 184c | L | .CONST 0x184c ; Address of exception handler 175a 000b | | .CONST 0x000b ; Number of locals 175b INIT_1758: 175b 00e2 | | Load_Encached Integer_Cache 175c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 175d 4801 |H | Short_Literal 0x1 175e 480a |H | Short_Literal 0xa 175f 00e9 | | Load_Encached String_Cache 1760 0334 | 4 | Declare_Variable Array,With_Constraint 1761 4801 |H | Short_Literal 0x1 1762 480a |H | Short_Literal 0xa 1763 00e9 | | Load_Encached String_Cache 1764 0334 | 4 | Declare_Variable Array,With_Constraint 1765 480a |H | Short_Literal 0xa 1766 4801 |H | Short_Literal 0x1 1767 4820 |H | Short_Literal 0x20 1768 e406 | | Load 0x2,0x6 1769 e404 | | Load 0x2,0x4 176a 01d6 | | Execute Vector,Field_Write 176b 3ffb |? | Loop_Increasing 0x1767 176c e403 | | Load 0x2,0x3 176d 01d4 | | Execute Vector,Structure_Write 176e 4801 |H | Short_Literal 0x1 176f 4801 |H | Short_Literal 0x1 1770 00e9 | | Load_Encached String_Cache 1771 0334 | 4 | Declare_Variable Array,With_Constraint 1772 50f1 |P | Indirect_Literal Any,0x1864,{0x20202020, 0x20202020} 1773 4801 |H | Short_Literal 0x1 1774 4864 |Hd | Short_Literal 0x64 1775 00e9 | | Load_Encached String_Cache 1776 0334 | 4 | Declare_Variable Array,With_Constraint 1777 4801 |H | Short_Literal 0x1 1778 4864 |Hd | Short_Literal 0x64 1779 00e9 | | Load_Encached String_Cache 177a 0334 | 4 | Declare_Variable Array,With_Constraint 177b 4864 |Hd | Short_Literal 0x64 177c 4801 |H | Short_Literal 0x1 177d 4820 |H | Short_Literal 0x20 177e e408 | | Load 0x2,0x8 177f e406 | | Load 0x2,0x6 1780 01d6 | | Execute Vector,Field_Write 1781 3ffb |? | Loop_Increasing 0x177d 1782 e405 | | Load 0x2,0x5 1783 01d4 | | Execute Vector,Structure_Write 1784 00e2 | | Load_Encached Integer_Cache 1785 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1786 4801 |H | Short_Literal 0x1 1787 4802 |H | Short_Literal 0x2 1788 00e9 | | Load_Encached String_Cache 1789 0334 | 4 | Declare_Variable Array,With_Constraint 178a 50dd |P | Indirect_Literal Any,0x1868,{0x78782020, 0x20202020} 178b e004 | | Load 0x0,0x4 178c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 178d 02c7 | | Declare_Variable Any 178e 00d8 | | Load_Top At_Offset_0 178f 1c00 | | Execute_Immediate Run_Utility,0x0 1790 4801 |H | Short_Literal 0x1 1791 48c8 |H | Short_Literal 0xc8 1792 00e9 | | Load_Encached String_Cache 1793 0334 | 4 | Declare_Variable Array,With_Constraint 1794 4801 |H | Short_Literal 0x1 1795 48c8 |H | Short_Literal 0xc8 1796 00e9 | | Load_Encached String_Cache 1797 0334 | 4 | Declare_Variable Array,With_Constraint 1798 48c8 |H | Short_Literal 0xc8 1799 4801 |H | Short_Literal 0x1 179a 4820 |H | Short_Literal 0x20 179b e40c | | Load 0x2,0xc 179c e40a | | Load 0x2,0xa 179d 01d6 | | Execute Vector,Field_Write 179e 3ffb |? | Loop_Increasing 0x179a 179f e409 | | Load 0x2,0x9 17a0 01d4 | | Execute Vector,Structure_Write 17a1 00e2 | | Load_Encached Integer_Cache 17a2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 17a3 029f 49db | I | Declare_Subprogram INIT_49d8,For_Call 17a5 BODY_1758: 17a5 00be | | Action Activate_Tasks 17a6 4801 |H | Short_Literal 0x1 17a7 e5fa | | Load 0x2,-0x6 17a8 e5fb | | Load 0x2,-0x5 17a9 e5fc | | Load 0x2,-0x4 17aa e5fd | | Load 0x2,-0x3 17ab e5fe | | Load 0x2,-0x2 17ac e5ff | | Load 0x2,-0x1 17ad 8234 | 4 | Call 0x1,0x34 17ae e5fd | | Load 0x2,-0x3 17af e002 | | Load 0x0,0x2 17b0 1b96 | | Execute Package,Field_Read,Field_Number 0x96 17b1 01d5 | | Execute Vector,Field_Reference 17b2 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 17b3 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 17b5 01de | | Execute Vector,Not_Equal 17b6 6801 |h | Jump_Zero 0x17b8 17b7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 17b8 e5fc | | Load 0x2,-0x4 17b9 7018 |p | Jump_Nonzero 0x17d2 17ba e404 | | Load 0x2,0x4 17bb 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 17bd 4803 |H | Short_Literal 0x3 17be 0092 6455 | dU| Action Push_String_Extended,0x6455 ; "Is this the desired report to delete? y=yes, n=no " 17c0 e001 | | Load 0x0,0x1 17c1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 17c2 00d1 | | Pop_Control Pop_Count_1 17c3 4801 |H | Short_Literal 0x1 17c4 4801 |H | Short_Literal 0x1 17c5 e404 | | Load 0x2,0x4 17c6 01cf | | Execute Vector,Slice_Read 17c7 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 17c9 01df | | Execute Vector,Equal 17ca 6807 |h | Jump_Zero 0x17d2 17cb 4800 |H | Short_Literal 0x0 17cc 4804 |H | Short_Literal 0x4 17cd 0092 6456 | dV| Action Push_String_Extended,0x6456 ; "Result => Report not deleted. " 17cf e001 | | Load 0x0,0x1 17d0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 17d1 4507 |E | Exit_Suprogram New_Top_Offset 0x7 17d2 e5fd | | Load 0x2,-0x3 17d3 e002 | | Load 0x0,0x2 17d4 1b96 | | Execute Package,Field_Read,Field_Number 0x96 17d5 01d5 | | Execute Vector,Field_Reference 17d6 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 17d7 e407 | | Load 0x2,0x7 17d8 01d4 | | Execute Vector,Structure_Write 17d9 e002 | | Load 0x0,0x2 17da 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 17db e5ff | | Load 0x2,-0x1 17dc 0a01 | | Execute_Immediate Plus,0x1 17dd 0248 | H | Execute Discrete,Check_In_Integer 17de e002 | | Load 0x0,0x2 17df 1b90 | | Execute Package,Field_Read,Field_Number 0x90 17e0 01d5 | | Execute Vector,Field_Reference 17e1 01d5 | | Execute Vector,Field_Reference 17e2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 17e3 a40a | | Store_Unchecked 0x2,0xa 17e4 4801 |H | Short_Literal 0x1 17e5 e40a | | Load 0x2,0xa 17e6 e002 | | Load 0x0,0x2 17e7 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 17e8 e5ff | | Load 0x2,-0x1 17e9 0a01 | | Execute_Immediate Plus,0x1 17ea 0248 | H | Execute Discrete,Check_In_Integer 17eb e002 | | Load 0x0,0x2 17ec 1b90 | | Execute Package,Field_Read,Field_Number 0x90 17ed 01d5 | | Execute Vector,Field_Reference 17ee 01d5 | | Execute Vector,Field_Reference 17ef 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 17f0 01cf | | Execute Vector,Slice_Read 17f1 4801 |H | Short_Literal 0x1 17f2 e40a | | Load 0x2,0xa 17f3 e409 | | Load 0x2,0x9 17f4 01ce | | Execute Vector,Slice_Write 17f5 e409 | | Load 0x2,0x9 17f6 4801 |H | Short_Literal 0x1 17f7 e40a | | Load 0x2,0xa 17f8 e40c | | Load 0x2,0xc 17f9 035b | [ | Declare_Type Array,Constrained 17fa 00d0 | | Action Swap_Control 17fb 01cd | | Execute Vector,Slice_Reference 17fc 00d8 | | Load_Top At_Offset_0 17fd 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 17ff 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 1801 e40a | | Load 0x2,0xa 1802 e001 | | Load 0x0,0x1 1803 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 1804 00d2 | | Pop_Control Pop_Count_2 1805 e002 | | Load 0x0,0x2 1806 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1807 0a02 | | Execute_Immediate Plus,0x2 1808 e40a | | Load 0x2,0xa 1809 0273 | s | Execute Discrete,Plus 180a 0248 | H | Execute Discrete,Check_In_Integer 180b a406 | | Store_Unchecked 0x2,0x6 180c 4801 |H | Short_Literal 0x1 180d e002 | | Load 0x0,0x2 180e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 180f e002 | | Load 0x0,0x2 1810 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1811 01cf | | Execute Vector,Slice_Read 1812 e407 | | Load 0x2,0x7 1813 01cc | | Execute Vector,Catenate 1814 4801 |H | Short_Literal 0x1 1815 e40a | | Load 0x2,0xa 1816 e409 | | Load 0x2,0x9 1817 01cf | | Execute Vector,Slice_Read 1818 01cc | | Execute Vector,Catenate 1819 4801 |H | Short_Literal 0x1 181a e406 | | Load 0x2,0x6 181b e405 | | Load 0x2,0x5 181c 01ce | | Execute Vector,Slice_Write 181d e5fd | | Load 0x2,-0x3 181e e002 | | Load 0x0,0x2 181f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1820 01d7 | | Execute Vector,Field_Read 1821 00d8 | | Load_Top At_Offset_0 1822 e5fd | | Load 0x2,-0x3 1823 e002 | | Load 0x0,0x2 1824 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1825 01d5 | | Execute Vector,Field_Reference 1826 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1827 e5fd | | Load 0x2,-0x3 1828 e002 | | Load 0x0,0x2 1829 189b | | Execute Package,Field_Execute,Field_Number 0x9b 182a 00d2 | | Pop_Control Pop_Count_2 182b e5fa | | Load 0x2,-0x6 182c 701d |p | Jump_Nonzero 0x184a 182d e5fd | | Load 0x2,-0x3 182e e002 | | Load 0x0,0x2 182f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1830 01d5 | | Execute Vector,Field_Reference 1831 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1832 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1834 01df | | Execute Vector,Equal 1835 6807 |h | Jump_Zero 0x183d 1836 0092 6457 | dW| Action Push_String_Extended,0x6457 ; "Record deleted ok." 1838 e001 | | Load 0x0,0x1 1839 181d | | Execute Package,Field_Execute,Field_Number 0x1d 183a e001 | | Load 0x0,0x1 183b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 183c 780d |x | Jump 0x184a 183d 0092 6458 | dX| Action Push_String_Extended,0x6458 ; "Result => Error, report not deleted, index= " 183f e001 | | Load 0x0,0x1 1840 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1841 e5fd | | Load 0x2,-0x3 1842 e002 | | Load 0x0,0x2 1843 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1844 01d5 | | Execute Vector,Field_Reference 1845 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1846 e001 | | Load 0x0,0x1 1847 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1848 e001 | | Load 0x0,0x1 1849 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 184a 840b | | Call 0x2,0xb 184b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 184c TRAP_1758: 184c 0007 | | Action Break_Optional 184d 4801 |H | Short_Literal 0x1 184e 4804 |H | Short_Literal 0x4 184f 0092 6459 | dY| Action Push_String_Extended,0x6459 ; "Exception found in ap_sub_delete_item" 1851 e001 | | Load 0x0,0x1 1852 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1853 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1854 0000 0000 | | .LITERAL {0x00000000, 0x00018000} 1858 0000 0000 | | .LITERAL {0x00000000, 0x00000708} 185c 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 1860 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 1864 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 1868 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 186c 0000 0000 | | .BLANK 0000[0x4] 1870 ; -------------------------------------------------------------------------------------- 1870 ; SUBPROGRAM 1870 ; -------------------------------------------------------------------------------------- 1870 1875 | u | .CONST 0x1875 ; Address of begin 1871 0004 | | .CONST 0x0004 ; Address of exception handler 1872 0002 | | .CONST 0x0002 ; Number of locals 1873 INIT_1870: 1873 029f 4a03 | J | Declare_Subprogram INIT_4a00,For_Call 1875 BODY_1870: 1875 8402 | | Call 0x2,0x2 1876 450d |E | Exit_Suprogram New_Top_Offset 0xd 1877 0000 | | .XXX[0x1] 1878 ; -------------------------------------------------------------------------------------- 1878 ; SUBPROGRAM 1878 ; -------------------------------------------------------------------------------------- 1878 187b | { | .CONST 0x187b ; Address of begin 1879 1918 | | .CONST 0x1918 ; Address of exception handler 187a 0001 | | .CONST 0x0001 ; Number of locals 187b BODY_1878: 187b INIT_1878: 187b e5fc | | Load 0x2,-0x4 187c 0f01 | | Execute_Immediate Equal,0x1 187d 681f |h | Jump_Zero 0x189d 187e e5fb | | Load 0x2,-0x5 187f e002 | | Load 0x0,0x2 1880 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1881 01d5 | | Execute Vector,Field_Reference 1882 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 1883 e5fb | | Load 0x2,-0x5 1884 e002 | | Load 0x0,0x2 1885 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1886 01d5 | | Execute Vector,Field_Reference 1887 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 1888 e5fb | | Load 0x2,-0x5 1889 e002 | | Load 0x0,0x2 188a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 188b 01d5 | | Execute Vector,Field_Reference 188c 3417 |4 | Execute Record,Field_Reference,Field_Number 0x17 188d e5fb | | Load 0x2,-0x5 188e e002 | | Load 0x0,0x2 188f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1890 01d5 | | Execute Vector,Field_Reference 1891 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 1892 e5fb | | Load 0x2,-0x5 1893 e002 | | Load 0x0,0x2 1894 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1895 01d5 | | Execute Vector,Field_Reference 1896 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 1897 e5fb | | Load 0x2,-0x5 1898 e002 | | Load 0x0,0x2 1899 1b96 | | Execute Package,Field_Read,Field_Number 0x96 189a 01d5 | | Execute Vector,Field_Reference 189b 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 189c 7867 |xg | Jump 0x1904 189d e5fc | | Load 0x2,-0x4 189e 0f02 | | Execute_Immediate Equal,0x2 189f 681f |h | Jump_Zero 0x18bf 18a0 e5fb | | Load 0x2,-0x5 18a1 e002 | | Load 0x0,0x2 18a2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18a3 01d5 | | Execute Vector,Field_Reference 18a4 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 18a5 e5fb | | Load 0x2,-0x5 18a6 e002 | | Load 0x0,0x2 18a7 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18a8 01d5 | | Execute Vector,Field_Reference 18a9 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 18aa e5fb | | Load 0x2,-0x5 18ab e002 | | Load 0x0,0x2 18ac 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18ad 01d5 | | Execute Vector,Field_Reference 18ae 341a |4 | Execute Record,Field_Reference,Field_Number 0x1a 18af e5fb | | Load 0x2,-0x5 18b0 e002 | | Load 0x0,0x2 18b1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18b2 01d5 | | Execute Vector,Field_Reference 18b3 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 18b4 e5fb | | Load 0x2,-0x5 18b5 e002 | | Load 0x0,0x2 18b6 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18b7 01d5 | | Execute Vector,Field_Reference 18b8 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 18b9 e5fb | | Load 0x2,-0x5 18ba e002 | | Load 0x0,0x2 18bb 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18bc 01d5 | | Execute Vector,Field_Reference 18bd 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 18be 7845 |xE | Jump 0x1904 18bf e5fc | | Load 0x2,-0x4 18c0 0f03 | | Execute_Immediate Equal,0x3 18c1 681f |h | Jump_Zero 0x18e1 18c2 e5fb | | Load 0x2,-0x5 18c3 e002 | | Load 0x0,0x2 18c4 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18c5 01d5 | | Execute Vector,Field_Reference 18c6 3c1e |< | Execute Record,Field_Read,Field_Number 0x1e 18c7 e5fb | | Load 0x2,-0x5 18c8 e002 | | Load 0x0,0x2 18c9 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18ca 01d5 | | Execute Vector,Field_Reference 18cb 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 18cc e5fb | | Load 0x2,-0x5 18cd e002 | | Load 0x0,0x2 18ce 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18cf 01d5 | | Execute Vector,Field_Reference 18d0 341d |4 | Execute Record,Field_Reference,Field_Number 0x1d 18d1 e5fb | | Load 0x2,-0x5 18d2 e002 | | Load 0x0,0x2 18d3 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18d4 01d5 | | Execute Vector,Field_Reference 18d5 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 18d6 e5fb | | Load 0x2,-0x5 18d7 e002 | | Load 0x0,0x2 18d8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18d9 01d5 | | Execute Vector,Field_Reference 18da 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 18db e5fb | | Load 0x2,-0x5 18dc e002 | | Load 0x0,0x2 18dd 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18de 01d5 | | Execute Vector,Field_Reference 18df 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 18e0 7823 |x# | Jump 0x1904 18e1 e5fc | | Load 0x2,-0x4 18e2 0f04 | | Execute_Immediate Equal,0x4 18e3 681f |h | Jump_Zero 0x1903 18e4 e5fb | | Load 0x2,-0x5 18e5 e002 | | Load 0x0,0x2 18e6 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18e7 01d5 | | Execute Vector,Field_Reference 18e8 3c21 |<! | Execute Record,Field_Read,Field_Number 0x21 18e9 e5fb | | Load 0x2,-0x5 18ea e002 | | Load 0x0,0x2 18eb 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18ec 01d5 | | Execute Vector,Field_Reference 18ed 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 18ee e5fb | | Load 0x2,-0x5 18ef e002 | | Load 0x0,0x2 18f0 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18f1 01d5 | | Execute Vector,Field_Reference 18f2 3420 |4 | Execute Record,Field_Reference,Field_Number 0x20 18f3 e5fb | | Load 0x2,-0x5 18f4 e002 | | Load 0x0,0x2 18f5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18f6 01d5 | | Execute Vector,Field_Reference 18f7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 18f8 e5fb | | Load 0x2,-0x5 18f9 e002 | | Load 0x0,0x2 18fa 1b96 | | Execute Package,Field_Read,Field_Number 0x96 18fb 01d5 | | Execute Vector,Field_Reference 18fc 3c1f |< | Execute Record,Field_Read,Field_Number 0x1f 18fd e5fb | | Load 0x2,-0x5 18fe e002 | | Load 0x0,0x2 18ff 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1900 01d5 | | Execute Vector,Field_Reference 1901 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 1902 7801 |x | Jump 0x1904 1903 0007 | | Action Break_Optional 1904 4800 |H | Short_Literal 0x0 1905 e5fb | | Load 0x2,-0x5 1906 e002 | | Load 0x0,0x2 1907 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1908 01d5 | | Execute Vector,Field_Reference 1909 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 190a e5f4 | | Load 0x2,-0xc 190b e5f5 | | Load 0x2,-0xb 190c e5f6 | | Load 0x2,-0xa 190d e5f7 | | Load 0x2,-0x9 190e e5f8 | | Load 0x2,-0x8 190f e5f9 | | Load 0x2,-0x7 1910 e5fa | | Load 0x2,-0x6 1911 e5fb | | Load 0x2,-0x5 1912 4800 |H | Short_Literal 0x0 1913 4800 |H | Short_Literal 0x0 1914 e5fe | | Load 0x2,-0x2 1915 e5ff | | Load 0x2,-0x1 1916 823b | ; | Call 0x1,0x3b 1917 450d |E | Exit_Suprogram New_Top_Offset 0xd 1918 TRAP_1878: 1918 0007 | | Action Break_Optional 1919 4801 |H | Short_Literal 0x1 191a 4804 |H | Short_Literal 0x4 191b 0092 645a | dZ| Action Push_String_Extended,0x645a ; "Exception found in ap_sub_preset_search" 191d e001 | | Load 0x0,0x1 191e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 191f 450d |E | Exit_Suprogram New_Top_Offset 0xd 1920 ; -------------------------------------------------------------------------------------- 1920 ; SUBPROGRAM 1920 ; -------------------------------------------------------------------------------------- 1920 193d | = | .CONST 0x193d ; Address of begin 1921 1a34 | 4 | .CONST 0x1a34 ; Address of exception handler 1922 0005 | | .CONST 0x0005 ; Number of locals 1923 INIT_1920: 1923 00e2 | | Load_Encached Integer_Cache 1924 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1925 4801 |H | Short_Literal 0x1 1926 481e |H | Short_Literal 0x1e 1927 00e9 | | Load_Encached String_Cache 1928 0334 | 4 | Declare_Variable Array,With_Constraint 1929 4801 |H | Short_Literal 0x1 192a 481e |H | Short_Literal 0x1e 192b 00e9 | | Load_Encached String_Cache 192c 0334 | 4 | Declare_Variable Array,With_Constraint 192d 481e |H | Short_Literal 0x1e 192e 4801 |H | Short_Literal 0x1 192f 4820 |H | Short_Literal 0x20 1930 e406 | | Load 0x2,0x6 1931 e404 | | Load 0x2,0x4 1932 01d6 | | Execute Vector,Field_Write 1933 3ffb |? | Loop_Increasing 0x192f 1934 e403 | | Load 0x2,0x3 1935 01d4 | | Execute Vector,Structure_Write 1936 4801 |H | Short_Literal 0x1 1937 4807 |H | Short_Literal 0x7 1938 00e9 | | Load_Encached String_Cache 1939 0334 | 4 | Declare_Variable Array,With_Constraint 193a 5221 |R! | Indirect_Literal Any,0x1b5c,{0x64657374, 0x726f7920} 193b 029f 4b03 | K | Declare_Subprogram INIT_4b00,For_Call 193d BODY_1920: 193d 4850 |HP | Short_Literal 0x50 193e 4801 |H | Short_Literal 0x1 193f e001 | | Load 0x0,0x1 1940 1b11 | | Execute Package,Field_Read,Field_Number 0x11 1941 0a03 | | Execute_Immediate Plus,0x3 1942 0248 | H | Execute Discrete,Check_In_Integer 1943 e001 | | Load 0x0,0x1 1944 1b11 | | Execute Package,Field_Read,Field_Number 0x11 1945 0a02 | | Execute_Immediate Plus,0x2 1946 0248 | H | Execute Discrete,Check_In_Integer 1947 e001 | | Load 0x0,0x1 1948 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1949 4800 |H | Short_Literal 0x0 194a 4804 |H | Short_Literal 0x4 194b 0092 645b | d[| Action Push_String_Extended,0x645b ; "Initializing new SIMS databases, this will destroy all prior data." 194d e001 | | Load 0x0,0x1 194e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 194f 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1951 e5fd | | Load 0x2,-0x3 1952 e002 | | Load 0x0,0x2 1953 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1954 01d5 | | Execute Vector,Field_Reference 1955 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 1956 e5fd | | Load 0x2,-0x3 1957 e002 | | Load 0x0,0x2 1958 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1959 01d7 | | Execute Vector,Field_Read 195a 00d8 | | Load_Top At_Offset_0 195b 4801 |H | Short_Literal 0x1 195c e5fd | | Load 0x2,-0x3 195d e002 | | Load 0x0,0x2 195e 189d | | Execute Package,Field_Execute,Field_Number 0x9d 195f 00d2 | | Pop_Control Pop_Count_2 1960 e5fd | | Load 0x2,-0x3 1961 e002 | | Load 0x0,0x2 1962 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1963 01d5 | | Execute Vector,Field_Reference 1964 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 1965 a402 | | Store_Unchecked 0x2,0x2 1966 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1968 e5fd | | Load 0x2,-0x3 1969 e002 | | Load 0x0,0x2 196a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 196b 01d5 | | Execute Vector,Field_Reference 196c 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 196d 8405 | | Call 0x2,0x5 196e 4800 |H | Short_Literal 0x0 196f e5fd | | Load 0x2,-0x3 1970 e002 | | Load 0x0,0x2 1971 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1972 01d5 | | Execute Vector,Field_Reference 1973 380f |8 | Execute Record,Field_Write,Field_Number 0xf 1974 4800 |H | Short_Literal 0x0 1975 e5fd | | Load 0x2,-0x3 1976 e002 | | Load 0x0,0x2 1977 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1978 01d5 | | Execute Vector,Field_Reference 1979 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 197a 4800 |H | Short_Literal 0x0 197b e5fd | | Load 0x2,-0x3 197c e002 | | Load 0x0,0x2 197d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 197e 01d5 | | Execute Vector,Field_Reference 197f 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 1980 e5fd | | Load 0x2,-0x3 1981 e002 | | Load 0x0,0x2 1982 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1983 01d7 | | Execute Vector,Field_Read 1984 00d8 | | Load_Top At_Offset_0 1985 e5fd | | Load 0x2,-0x3 1986 e002 | | Load 0x0,0x2 1987 1897 | | Execute Package,Field_Execute,Field_Number 0x97 1988 00d2 | | Pop_Control Pop_Count_2 1989 e5fd | | Load 0x2,-0x3 198a e002 | | Load 0x0,0x2 198b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 198c 01d7 | | Execute Vector,Field_Read 198d 00d8 | | Load_Top At_Offset_0 198e e5fd | | Load 0x2,-0x3 198f e002 | | Load 0x0,0x2 1990 1899 | | Execute Package,Field_Execute,Field_Number 0x99 1991 00d2 | | Pop_Control Pop_Count_2 1992 0007 | | Action Break_Optional 1993 e5fd | | Load 0x2,-0x3 1994 e002 | | Load 0x0,0x2 1995 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1996 01d5 | | Execute Vector,Field_Reference 1997 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1998 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 199a 01df | | Execute Vector,Equal 199b 6807 |h | Jump_Zero 0x19a3 199c 4800 |H | Short_Literal 0x0 199d 4804 |H | Short_Literal 0x4 199e 0092 645c | d\| Action Push_String_Extended,0x645c ; "Result => New Master database generated." 19a0 e001 | | Load 0x0,0x1 19a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 19a2 7807 |x | Jump 0x19aa 19a3 4800 |H | Short_Literal 0x0 19a4 4804 |H | Short_Literal 0x4 19a5 0092 645d | d]| Action Push_String_Extended,0x645d ; "Result => File/directory Error- New Master not generated." 19a7 e001 | | Load 0x0,0x1 19a8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 19a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 19aa e001 | | Load 0x0,0x1 19ab 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 19ac 00cf | | Action Mark_Auxiliary 19ad 0007 | | Action Break_Optional 19ae e403 | | Load 0x2,0x3 19af 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 19b1 4803 |H | Short_Literal 0x3 19b2 0092 645e | d^| Action Push_String_Extended,0x645e ; "Delete all existing detail files as well? (Needed if initializing)" 19b4 e001 | | Load 0x0,0x1 19b5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 19b6 00d1 | | Pop_Control Pop_Count_1 19b7 4801 |H | Short_Literal 0x1 19b8 4801 |H | Short_Literal 0x1 19b9 e403 | | Load 0x2,0x3 19ba 01cf | | Execute Vector,Slice_Read 19bb 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 19bd 01df | | Execute Vector,Equal 19be 6801 |h | Jump_Zero 0x19c0 19bf 7819 |x | Jump 0x19d9 19c0 e001 | | Load 0x0,0x1 19c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 19c2 e007 | | Load 0x0,0x7 19c3 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 19c4 e008 | | Load 0x0,0x8 19c5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 19c6 6191 |a | Indirect_Literal Discrete,0x1b58,{0x00000000, 0x00002710} 19c7 4801 |H | Short_Literal 0x1 19c8 e002 | | Load 0x0,0x2 19c9 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 19ca e002 | | Load 0x0,0x2 19cb 1b19 | | Execute Package,Field_Read,Field_Number 0x19 19cc 01cf | | Execute Vector,Slice_Read 19cd e5fd | | Load 0x2,-0x3 19ce e002 | | Load 0x0,0x2 19cf 1b96 | | Execute Package,Field_Read,Field_Number 0x96 19d0 01d5 | | Execute Vector,Field_Reference 19d1 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 19d2 01cc | | Execute Vector,Catenate 19d3 0092 645f | d_| Action Push_String_Extended,0x645f ; "@" 19d5 01cc | | Execute Vector,Catenate 19d6 e008 | | Load 0x0,0x8 19d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 19d8 7800 |x | Jump 0x19d9 19d9 00ce | | Action Pop_Auxiliary 19da e001 | | Load 0x0,0x1 19db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 19dc e001 | | Load 0x0,0x1 19dd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 19de 0092 6460 | d`| Action Push_String_Extended,0x6460 ; "To begin the new database reports with last index used:" 19e0 e001 | | Load 0x0,0x1 19e1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 19e2 e001 | | Load 0x0,0x1 19e3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 19e4 e403 | | Load 0x2,0x3 19e5 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 19e7 4803 |H | Short_Literal 0x3 19e8 0092 6461 | da| Action Push_String_Extended,0x6461 ; "Preserve existing local report indexes last used? (Yes/No)" 19ea e001 | | Load 0x0,0x1 19eb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 19ec 00d1 | | Pop_Control Pop_Count_1 19ed 4801 |H | Short_Literal 0x1 19ee 4801 |H | Short_Literal 0x1 19ef e403 | | Load 0x2,0x3 19f0 01cf | | Execute Vector,Slice_Read 19f1 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 19f3 01df | | Execute Vector,Equal 19f4 6801 |h | Jump_Zero 0x19f6 19f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 19f6 e402 | | Load 0x2,0x2 19f7 e402 | | Load 0x2,0x2 19f8 4803 |H | Short_Literal 0x3 19f9 0092 6462 | db| Action Push_String_Extended,0x6462 ; "Do you want to alter the previous end index for this database: " 19fb e001 | | Load 0x0,0x1 19fc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 19fd c402 | | Store 0x2,0x2 19fe e402 | | Load 0x2,0x2 19ff 7007 |p | Jump_Nonzero 0x1a07 1a00 0092 6463 | dc| Action Push_String_Extended,0x6463 ; "Database initialized ok, last index was 0, no new index needed." 1a02 e001 | | Load 0x0,0x1 1a03 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1a04 e001 | | Load 0x0,0x1 1a05 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1a06 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1a07 e5fd | | Load 0x2,-0x3 1a08 e002 | | Load 0x0,0x2 1a09 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1a0a 01d7 | | Execute Vector,Field_Read 1a0b 00d8 | | Load_Top At_Offset_0 1a0c e402 | | Load 0x2,0x2 1a0d e5fd | | Load 0x2,-0x3 1a0e e002 | | Load 0x0,0x2 1a0f 189b | | Execute Package,Field_Execute,Field_Number 0x9b 1a10 00d2 | | Pop_Control Pop_Count_2 1a11 e5fd | | Load 0x2,-0x3 1a12 e002 | | Load 0x0,0x2 1a13 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1a14 01d5 | | Execute Vector,Field_Reference 1a15 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1a16 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1a18 01df | | Execute Vector,Equal 1a19 680a |h | Jump_Zero 0x1a24 1a1a 0092 6464 | dd| Action Push_String_Extended,0x6464 ; "Database initialized ok to preserve last used index => " 1a1c e001 | | Load 0x0,0x1 1a1d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1a1e e402 | | Load 0x2,0x2 1a1f e001 | | Load 0x0,0x1 1a20 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1a21 e001 | | Load 0x0,0x1 1a22 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1a23 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1a24 0092 6465 | de| Action Push_String_Extended,0x6465 ; "Error, Couldn't write deleted marker record flagging end of database." 1a26 e001 | | Load 0x0,0x1 1a27 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1a28 e001 | | Load 0x0,0x1 1a29 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1a2a 0092 6466 | df| Action Push_String_Extended,0x6466 ; "Error, Could not preset new database to last used index => " 1a2c e001 | | Load 0x0,0x1 1a2d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1a2e e402 | | Load 0x2,0x2 1a2f e001 | | Load 0x0,0x1 1a30 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1a31 e001 | | Load 0x0,0x1 1a32 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1a33 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1a34 TRAP_1920: 1a34 0007 | | Action Break_Optional 1a35 4801 |H | Short_Literal 0x1 1a36 4804 |H | Short_Literal 0x4 1a37 0092 6467 | dg| Action Push_String_Extended,0x6467 ; "Exception found in ap_sub_create_new_master" 1a39 e001 | | Load 0x0,0x1 1a3a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1a3b 4801 |H | Short_Literal 0x1 1a3c 4804 |H | Short_Literal 0x4 1a3d 0092 6468 | dh| Action Push_String_Extended,0x6468 ; "** Problem: Access control may be improperly setup for sims areas." 1a3f e001 | | Load 0x0,0x1 1a40 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1a41 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1a42 0000 0000 | | .BLANK 0000[0x6] 1a48 ; -------------------------------------------------------------------------------------- 1a48 ; SUBPROGRAM 1a48 ; -------------------------------------------------------------------------------------- 1a48 1a4d | M | .CONST 0x1a4d ; Address of begin 1a49 1a4f | O | .CONST 0x1a4f ; Address of exception handler 1a4a 0002 | | .CONST 0x0002 ; Number of locals 1a4b INIT_1a48: 1a4b 029f 4b3b | K;| Declare_Subprogram INIT_4b38,For_Call 1a4d BODY_1a48: 1a4d 8402 | | Call 0x2,0x2 1a4e 450c |E | Exit_Suprogram New_Top_Offset 0xc 1a4f TRAP_1a48: 1a4f 0007 | | Action Break_Optional 1a50 4801 |H | Short_Literal 0x1 1a51 4804 |H | Short_Literal 0x4 1a52 0092 6469 | di| Action Push_String_Extended,0x6469 ; "Exception found in ap_sub_generate_report_or_display" 1a54 e001 | | Load 0x0,0x1 1a55 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1a56 450c |E | Exit_Suprogram New_Top_Offset 0xc 1a57 0000 | | .XXX[0x1] 1a58 ; -------------------------------------------------------------------------------------- 1a58 ; SUBPROGRAM 1a58 ; -------------------------------------------------------------------------------------- 1a58 1a5d | ] | .CONST 0x1a5d ; Address of begin 1a59 1a5f | _ | .CONST 0x1a5f ; Address of exception handler 1a5a 0002 | | .CONST 0x0002 ; Number of locals 1a5b INIT_1a58: 1a5b 029f 4c13 | L | Declare_Subprogram INIT_4c10,For_Call 1a5d BODY_1a58: 1a5d 8402 | | Call 0x2,0x2 1a5e 450a |E | Exit_Suprogram New_Top_Offset 0xa 1a5f TRAP_1a58: 1a5f 0007 | | Action Break_Optional 1a60 4801 |H | Short_Literal 0x1 1a61 4804 |H | Short_Literal 0x4 1a62 0092 646a | dj| Action Push_String_Extended,0x646a ; "Exception found in ap_sub_generate_index_report_or_display" 1a64 e001 | | Load 0x0,0x1 1a65 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1a66 450a |E | Exit_Suprogram New_Top_Offset 0xa 1a67 0000 | | .XXX[0x1] 1a68 ; -------------------------------------------------------------------------------------- 1a68 ; SUBPROGRAM 1a68 ; -------------------------------------------------------------------------------------- 1a68 1a70 | p | .CONST 0x1a70 ; Address of begin 1a69 1b4e | N | .CONST 0x1b4e ; Address of exception handler 1a6a 0002 | | .CONST 0x0002 ; Number of locals 1a6b INIT_1a68: 1a6b 4801 |H | Short_Literal 0x1 1a6c 4805 |H | Short_Literal 0x5 1a6d 00e9 | | Load_Encached String_Cache 1a6e 0334 | 4 | Declare_Variable Array,With_Constraint 1a6f 50f0 |P | Indirect_Literal Any,0x1b60,{0x20202020, 0x20202020} 1a70 BODY_1a68: 1a70 e5fc | | Load 0x2,-0x4 1a71 0f01 | | Execute_Immediate Equal,0x1 1a72 6884 |h | Jump_Zero 0x1af7 1a73 4800 |H | Short_Literal 0x0 1a74 4802 |H | Short_Literal 0x2 1a75 e5fb | | Load 0x2,-0x5 1a76 e001 | | Load 0x0,0x1 1a77 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1a78 4800 |H | Short_Literal 0x0 1a79 4800 |H | Short_Literal 0x0 1a7a 4800 |H | Short_Literal 0x0 1a7b 4800 |H | Short_Literal 0x0 1a7c 4800 |H | Short_Literal 0x0 1a7d 4800 |H | Short_Literal 0x0 1a7e 4801 |H | Short_Literal 0x1 1a7f 4800 |H | Short_Literal 0x0 1a80 4801 |H | Short_Literal 0x1 1a81 4800 |H | Short_Literal 0x0 1a82 e5fd | | Load 0x2,-0x3 1a83 e5fe | | Load 0x2,-0x2 1a84 e5ff | | Load 0x2,-0x1 1a85 822d | - | Call 0x1,0x2d 1a86 e5fd | | Load 0x2,-0x3 1a87 e002 | | Load 0x0,0x2 1a88 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1a89 01d5 | | Execute Vector,Field_Reference 1a8a 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1a8b 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1a8d 01de | | Execute Vector,Not_Equal 1a8e 6801 |h | Jump_Zero 0x1a90 1a8f 450a |E | Exit_Suprogram New_Top_Offset 0xa 1a90 00d8 | | Load_Top At_Offset_0 1a91 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 1a93 4804 |H | Short_Literal 0x4 1a94 e5fa | | Load 0x2,-0x6 1a95 e001 | | Load 0x0,0x1 1a96 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1a97 00d1 | | Pop_Control Pop_Count_1 1a98 4801 |H | Short_Literal 0x1 1a99 4801 |H | Short_Literal 0x1 1a9a e402 | | Load 0x2,0x2 1a9b 01cf | | Execute Vector,Slice_Read 1a9c 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 1a9e 01df | | Execute Vector,Equal 1a9f 680e |h | Jump_Zero 0x1aae 1aa0 4801 |H | Short_Literal 0x1 1aa1 4804 |H | Short_Literal 0x4 1aa2 0092 646b | dk| Action Push_String_Extended,0x646b ; "Result => Report not updated." 1aa4 e001 | | Load 0x0,0x1 1aa5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1aa6 0092 646c | dl| Action Push_String_Extended,0x646c ; "no " 1aa8 e5fd | | Load 0x2,-0x3 1aa9 e002 | | Load 0x0,0x2 1aaa 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1aab 01d5 | | Execute Vector,Field_Reference 1aac 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 1aad 450a |E | Exit_Suprogram New_Top_Offset 0xa 1aae 4801 |H | Short_Literal 0x1 1aaf e5f8 | | Load 0x2,-0x8 1ab0 01db | | Execute Vector,Length 1ab1 e002 | | Load 0x0,0x2 1ab2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1ab3 e5f9 | | Load 0x2,-0x7 1ab4 e002 | | Load 0x0,0x2 1ab5 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1ab6 01d5 | | Execute Vector,Field_Reference 1ab7 01d5 | | Execute Vector,Field_Reference 1ab8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1ab9 01cf | | Execute Vector,Slice_Read 1aba e5f8 | | Load 0x2,-0x8 1abb 01df | | Execute Vector,Equal 1abc 6813 |h | Jump_Zero 0x1ad0 1abd 4801 |H | Short_Literal 0x1 1abe 4804 |H | Short_Literal 0x4 1abf 0092 646d | dm| Action Push_String_Extended,0x646d ; "This report has already been updated to '" 1ac1 e5f8 | | Load 0x2,-0x8 1ac2 01cc | | Execute Vector,Catenate 1ac3 0092 646e | dn| Action Push_String_Extended,0x646e ; "'." 1ac5 01cc | | Execute Vector,Catenate 1ac6 e001 | | Load 0x0,0x1 1ac7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1ac8 0092 646c | dl| Action Push_String_Extended,0x646c ; "no " 1aca e5fd | | Load 0x2,-0x3 1acb e002 | | Load 0x0,0x2 1acc 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1acd 01d5 | | Execute Vector,Field_Reference 1ace 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 1acf 450a |E | Exit_Suprogram New_Top_Offset 0xa 1ad0 4801 |H | Short_Literal 0x1 1ad1 e5f7 | | Load 0x2,-0x9 1ad2 01db | | Execute Vector,Length 1ad3 e002 | | Load 0x0,0x2 1ad4 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1ad5 e5f9 | | Load 0x2,-0x7 1ad6 e002 | | Load 0x0,0x2 1ad7 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1ad8 01d5 | | Execute Vector,Field_Reference 1ad9 01d5 | | Execute Vector,Field_Reference 1ada 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1adb 01cf | | Execute Vector,Slice_Read 1adc e5f7 | | Load 0x2,-0x9 1add 01df | | Execute Vector,Equal 1ade 682b |h+ | Jump_Zero 0x1b0a 1adf 4801 |H | Short_Literal 0x1 1ae0 4804 |H | Short_Literal 0x4 1ae1 0092 646f | do| Action Push_String_Extended,0x646f ; "This report is now '" 1ae3 e5f7 | | Load 0x2,-0x9 1ae4 01cc | | Execute Vector,Catenate 1ae5 0092 6470 | dp| Action Push_String_Extended,0x6470 ; "' and can't be set to '" 1ae7 01cc | | Execute Vector,Catenate 1ae8 e5f8 | | Load 0x2,-0x8 1ae9 01cc | | Execute Vector,Catenate 1aea 0092 646e | dn| Action Push_String_Extended,0x646e ; "'." 1aec 01cc | | Execute Vector,Catenate 1aed e001 | | Load 0x0,0x1 1aee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1aef 0092 646c | dl| Action Push_String_Extended,0x646c ; "no " 1af1 e5fd | | Load 0x2,-0x3 1af2 e002 | | Load 0x0,0x2 1af3 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1af4 01d5 | | Execute Vector,Field_Reference 1af5 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 1af6 450a |E | Exit_Suprogram New_Top_Offset 0xa 1af7 4800 |H | Short_Literal 0x0 1af8 4800 |H | Short_Literal 0x0 1af9 4800 |H | Short_Literal 0x0 1afa 4800 |H | Short_Literal 0x0 1afb 4800 |H | Short_Literal 0x0 1afc 4800 |H | Short_Literal 0x0 1afd 4801 |H | Short_Literal 0x1 1afe e002 | | Load 0x0,0x2 1aff 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 1b00 e5fd | | Load 0x2,-0x3 1b01 e002 | | Load 0x0,0x2 1b02 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1b03 01d5 | | Execute Vector,Field_Reference 1b04 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1b05 4801 |H | Short_Literal 0x1 1b06 e5fd | | Load 0x2,-0x3 1b07 e5fe | | Load 0x2,-0x2 1b08 e5ff | | Load 0x2,-0x1 1b09 822d | - | Call 0x1,0x2d 1b0a e5f8 | | Load 0x2,-0x8 1b0b 4801 |H | Short_Literal 0x1 1b0c e5f8 | | Load 0x2,-0x8 1b0d 01db | | Execute Vector,Length 1b0e e002 | | Load 0x0,0x2 1b0f 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1b10 e5f9 | | Load 0x2,-0x7 1b11 e002 | | Load 0x0,0x2 1b12 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1b13 01d7 | | Execute Vector,Field_Read 1b14 01d7 | | Execute Vector,Field_Read 1b15 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1b16 01ce | | Execute Vector,Slice_Write 1b17 e5f8 | | Load 0x2,-0x8 1b18 01db | | Execute Vector,Length 1b19 e002 | | Load 0x0,0x2 1b1a 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1b1b e5f9 | | Load 0x2,-0x7 1b1c e002 | | Load 0x0,0x2 1b1d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1b1e 01d5 | | Execute Vector,Field_Reference 1b1f 01d5 | | Execute Vector,Field_Reference 1b20 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1b21 4801 |H | Short_Literal 0x1 1b22 e5fd | | Load 0x2,-0x3 1b23 e002 | | Load 0x0,0x2 1b24 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1b25 01d5 | | Execute Vector,Field_Reference 1b26 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1b27 4800 |H | Short_Literal 0x0 1b28 4801 |H | Short_Literal 0x1 1b29 e5fd | | Load 0x2,-0x3 1b2a e5fe | | Load 0x2,-0x2 1b2b e5ff | | Load 0x2,-0x1 1b2c 8239 | 9 | Call 0x1,0x39 1b2d e5fd | | Load 0x2,-0x3 1b2e e002 | | Load 0x0,0x2 1b2f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1b30 01d5 | | Execute Vector,Field_Reference 1b31 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1b32 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1b34 01df | | Execute Vector,Equal 1b35 680c |h | Jump_Zero 0x1b42 1b36 4800 |H | Short_Literal 0x0 1b37 4801 |H | Short_Literal 0x1 1b38 0092 6471 | dq| Action Push_String_Extended,0x6471 ; "Record has been updated to '" 1b3a e5f8 | | Load 0x2,-0x8 1b3b 01cc | | Execute Vector,Catenate 1b3c 0092 646e | dn| Action Push_String_Extended,0x646e ; "'." 1b3e 01cc | | Execute Vector,Catenate 1b3f e001 | | Load 0x0,0x1 1b40 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1b41 450a |E | Exit_Suprogram New_Top_Offset 0xa 1b42 4800 |H | Short_Literal 0x0 1b43 4801 |H | Short_Literal 0x1 1b44 0092 6472 | dr| Action Push_String_Extended,0x6472 ; "Error. Could not update record to '" 1b46 e5f8 | | Load 0x2,-0x8 1b47 01cc | | Execute Vector,Catenate 1b48 0092 646e | dn| Action Push_String_Extended,0x646e ; "'." 1b4a 01cc | | Execute Vector,Catenate 1b4b e001 | | Load 0x0,0x1 1b4c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1b4d 450a |E | Exit_Suprogram New_Top_Offset 0xa 1b4e TRAP_1a68: 1b4e 0007 | | Action Break_Optional 1b4f 4800 |H | Short_Literal 0x0 1b50 4801 |H | Short_Literal 0x1 1b51 0092 6473 | ds| Action Push_String_Extended,0x6473 ; "Error, Could not update the indicated record in ap_general_update_field_command" 1b53 e001 | | Load 0x0,0x1 1b54 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1b55 450a |E | Exit_Suprogram New_Top_Offset 0xa 1b56 0000 0000 | | .XXX[0x2] 1b58 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 1b5c 6465 7374 |dest| .LITERAL {0x64657374, 0x726f7920} 1b60 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 1b64 0000 0000 | | .BLANK 0000[0x4] 1b68 ; -------------------------------------------------------------------------------------- 1b68 ; SUBPROGRAM 1b68 ; -------------------------------------------------------------------------------------- 1b68 1b6d | m | .CONST 0x1b6d ; Address of begin 1b69 0004 | | .CONST 0x0004 ; Address of exception handler 1b6a 0002 | | .CONST 0x0002 ; Number of locals 1b6b INIT_1b68: 1b6b 029f 4d4b | MK| Declare_Subprogram INIT_4d48,For_Call 1b6d BODY_1b68: 1b6d 8402 | | Call 0x2,0x2 1b6e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1b6f 0000 | | .XXX[0x1] 1b70 ; -------------------------------------------------------------------------------------- 1b70 ; SUBPROGRAM 1b70 ; -------------------------------------------------------------------------------------- 1b70 1b75 | u | .CONST 0x1b75 ; Address of begin 1b71 1b77 | w | .CONST 0x1b77 ; Address of exception handler 1b72 0002 | | .CONST 0x0002 ; Number of locals 1b73 INIT_1b70: 1b73 029f 4eeb | N | Declare_Subprogram INIT_4ee8,For_Call 1b75 BODY_1b70: 1b75 8402 | | Call 0x2,0x2 1b76 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1b77 TRAP_1b70: 1b77 0007 | | Action Break_Optional 1b78 4800 |H | Short_Literal 0x0 1b79 4801 |H | Short_Literal 0x1 1b7a 0092 6474 | dt| Action Push_String_Extended,0x6474 ; "Exception in ap_display_record." 1b7c e001 | | Load 0x0,0x1 1b7d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1b7e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 1b7f 0000 | | .XXX[0x1] 1b80 ; -------------------------------------------------------------------------------------- 1b80 ; SUBPROGRAM 1b80 ; -------------------------------------------------------------------------------------- 1b80 1b85 | | .CONST 0x1b85 ; Address of begin 1b81 1b87 | | .CONST 0x1b87 ; Address of exception handler 1b82 0002 | | .CONST 0x0002 ; Number of locals 1b83 INIT_1b80: 1b83 029f 50a3 | P | Declare_Subprogram INIT_50a0,For_Call 1b85 BODY_1b80: 1b85 8402 | | Call 0x2,0x2 1b86 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1b87 TRAP_1b80: 1b87 0007 | | Action Break_Optional 1b88 4800 |H | Short_Literal 0x0 1b89 4801 |H | Short_Literal 0x1 1b8a 0092 6475 | du| Action Push_String_Extended,0x6475 ; "Exception in ap_print_record." 1b8c e001 | | Load 0x0,0x1 1b8d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1b8e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1b8f 0000 | | .XXX[0x1] 1b90 ; -------------------------------------------------------------------------------------- 1b90 ; SUBPROGRAM 1b90 ; -------------------------------------------------------------------------------------- 1b90 1bc5 | | .CONST 0x1bc5 ; Address of begin 1b91 1c38 | 8 | .CONST 0x1c38 ; Address of exception handler 1b92 0008 | | .CONST 0x0008 ; Number of locals 1b93 INIT_1b90: 1b93 4801 |H | Short_Literal 0x1 1b94 48c8 |H | Short_Literal 0xc8 1b95 00e9 | | Load_Encached String_Cache 1b96 0334 | 4 | Declare_Variable Array,With_Constraint 1b97 4801 |H | Short_Literal 0x1 1b98 48c8 |H | Short_Literal 0xc8 1b99 00e9 | | Load_Encached String_Cache 1b9a 0334 | 4 | Declare_Variable Array,With_Constraint 1b9b 48c8 |H | Short_Literal 0xc8 1b9c 4801 |H | Short_Literal 0x1 1b9d 4820 |H | Short_Literal 0x20 1b9e e405 | | Load 0x2,0x5 1b9f e403 | | Load 0x2,0x3 1ba0 01d6 | | Execute Vector,Field_Write 1ba1 3ffb |? | Loop_Increasing 0x1b9d 1ba2 e402 | | Load 0x2,0x2 1ba3 01d4 | | Execute Vector,Structure_Write 1ba4 00e2 | | Load_Encached Integer_Cache 1ba5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1ba6 4801 |H | Short_Literal 0x1 1ba7 4802 |H | Short_Literal 0x2 1ba8 00e9 | | Load_Encached String_Cache 1ba9 0334 | 4 | Declare_Variable Array,With_Constraint 1baa 52b9 |R | Indirect_Literal Any,0x1e64,{0x78782020, 0x20202020} 1bab e004 | | Load 0x0,0x4 1bac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1bad 02c7 | | Declare_Variable Any 1bae 00d8 | | Load_Top At_Offset_0 1baf 1c00 | | Execute_Immediate Run_Utility,0x0 1bb0 4801 |H | Short_Literal 0x1 1bb1 48c8 |H | Short_Literal 0xc8 1bb2 00e9 | | Load_Encached String_Cache 1bb3 0334 | 4 | Declare_Variable Array,With_Constraint 1bb4 4801 |H | Short_Literal 0x1 1bb5 48c8 |H | Short_Literal 0xc8 1bb6 00e9 | | Load_Encached String_Cache 1bb7 0334 | 4 | Declare_Variable Array,With_Constraint 1bb8 48c8 |H | Short_Literal 0xc8 1bb9 4801 |H | Short_Literal 0x1 1bba 4820 |H | Short_Literal 0x20 1bbb e409 | | Load 0x2,0x9 1bbc e407 | | Load 0x2,0x7 1bbd 01d6 | | Execute Vector,Field_Write 1bbe 3ffb |? | Loop_Increasing 0x1bba 1bbf e406 | | Load 0x2,0x6 1bc0 01d4 | | Execute Vector,Structure_Write 1bc1 00e2 | | Load_Encached Integer_Cache 1bc2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1bc3 029f 515b | Q[| Declare_Subprogram INIT_5158,For_Call 1bc5 BODY_1b90: 1bc5 00be | | Action Activate_Tasks 1bc6 e5fd | | Load 0x2,-0x3 1bc7 e002 | | Load 0x0,0x2 1bc8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1bc9 01d5 | | Execute Vector,Field_Reference 1bca 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 1bcb 7001 |p | Jump_Nonzero 0x1bcd 1bcc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1bcd e5fd | | Load 0x2,-0x3 1bce e002 | | Load 0x0,0x2 1bcf 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1bd0 01d5 | | Execute Vector,Field_Reference 1bd1 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 1bd2 e404 | | Load 0x2,0x4 1bd3 01d4 | | Execute Vector,Structure_Write 1bd4 e002 | | Load 0x0,0x2 1bd5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1bd6 e5ff | | Load 0x2,-0x1 1bd7 0a01 | | Execute_Immediate Plus,0x1 1bd8 0248 | H | Execute Discrete,Check_In_Integer 1bd9 e002 | | Load 0x0,0x2 1bda 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1bdb 01d5 | | Execute Vector,Field_Reference 1bdc 01d5 | | Execute Vector,Field_Reference 1bdd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1bde a407 | | Store_Unchecked 0x2,0x7 1bdf 4801 |H | Short_Literal 0x1 1be0 e407 | | Load 0x2,0x7 1be1 e002 | | Load 0x0,0x2 1be2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1be3 e5ff | | Load 0x2,-0x1 1be4 0a01 | | Execute_Immediate Plus,0x1 1be5 0248 | H | Execute Discrete,Check_In_Integer 1be6 e002 | | Load 0x0,0x2 1be7 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1be8 01d5 | | Execute Vector,Field_Reference 1be9 01d5 | | Execute Vector,Field_Reference 1bea 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1beb 01cf | | Execute Vector,Slice_Read 1bec 4801 |H | Short_Literal 0x1 1bed e407 | | Load 0x2,0x7 1bee e406 | | Load 0x2,0x6 1bef 01ce | | Execute Vector,Slice_Write 1bf0 e406 | | Load 0x2,0x6 1bf1 4801 |H | Short_Literal 0x1 1bf2 e407 | | Load 0x2,0x7 1bf3 e409 | | Load 0x2,0x9 1bf4 035b | [ | Declare_Type Array,Constrained 1bf5 00d0 | | Action Swap_Control 1bf6 01cd | | Execute Vector,Slice_Reference 1bf7 00d8 | | Load_Top At_Offset_0 1bf8 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 1bfa 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 1bfc e407 | | Load 0x2,0x7 1bfd e001 | | Load 0x0,0x1 1bfe 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 1bff 00d2 | | Pop_Control Pop_Count_2 1c00 e002 | | Load 0x0,0x2 1c01 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1c02 0a02 | | Execute_Immediate Plus,0x2 1c03 e407 | | Load 0x2,0x7 1c04 0273 | s | Execute Discrete,Plus 1c05 0248 | H | Execute Discrete,Check_In_Integer 1c06 a403 | | Store_Unchecked 0x2,0x3 1c07 4801 |H | Short_Literal 0x1 1c08 e002 | | Load 0x0,0x2 1c09 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1c0a e002 | | Load 0x0,0x2 1c0b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 1c0c 01cf | | Execute Vector,Slice_Read 1c0d e404 | | Load 0x2,0x4 1c0e 01cc | | Execute Vector,Catenate 1c0f 4801 |H | Short_Literal 0x1 1c10 e407 | | Load 0x2,0x7 1c11 e406 | | Load 0x2,0x6 1c12 01cf | | Execute Vector,Slice_Read 1c13 01cc | | Execute Vector,Catenate 1c14 4801 |H | Short_Literal 0x1 1c15 e403 | | Load 0x2,0x3 1c16 e402 | | Load 0x2,0x2 1c17 01ce | | Execute Vector,Slice_Write 1c18 8408 | | Call 0x2,0x8 1c19 e002 | | Load 0x0,0x2 1c1a 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 1c1b 700f |p | Jump_Nonzero 0x1c2b 1c1c 0092 644c | dL| Action Push_String_Extended,0x644c ; " [Detail Text for record: " 1c1e e404 | | Load 0x2,0x4 1c1f 01cc | | Execute Vector,Catenate 1c20 4801 |H | Short_Literal 0x1 1c21 e407 | | Load 0x2,0x7 1c22 e406 | | Load 0x2,0x6 1c23 01cf | | Execute Vector,Slice_Read 1c24 01cc | | Execute Vector,Catenate 1c25 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 1c27 01cc | | Execute Vector,Catenate 1c28 e5fa | | Load 0x2,-0x6 1c29 e004 | | Load 0x0,0x4 1c2a 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 1c2b 4800 |H | Short_Literal 0x0 1c2c 4800 |H | Short_Literal 0x0 1c2d 4800 |H | Short_Literal 0x0 1c2e 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 1c30 e5fa | | Load 0x2,-0x6 1c31 e405 | | Load 0x2,0x5 1c32 8264 | d | Call 0x1,0x64 1c33 e405 | | Load 0x2,0x5 1c34 e004 | | Load 0x0,0x4 1c35 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1c36 c405 | | Store 0x2,0x5 1c37 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1c38 TRAP_1b90: 1c38 0007 | | Action Break_Optional 1c39 4800 |H | Short_Literal 0x0 1c3a 4801 |H | Short_Literal 0x1 1c3b 0092 6476 | dv| Action Push_String_Extended,0x6476 ; "Exception in ap_print_attached_text." 1c3d e001 | | Load 0x0,0x1 1c3e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1c3f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 1c40 ; -------------------------------------------------------------------------------------- 1c40 ; SUBPROGRAM 1c40 ; -------------------------------------------------------------------------------------- 1c40 1c89 | | .CONST 0x1c89 ; Address of begin 1c41 1e5a | Z | .CONST 0x1e5a ; Address of exception handler 1c42 000c | | .CONST 0x000c ; Number of locals 1c43 INIT_1c40: 1c43 4801 |H | Short_Literal 0x1 1c44 4801 |H | Short_Literal 0x1 1c45 00e9 | | Load_Encached String_Cache 1c46 0334 | 4 | Declare_Variable Array,With_Constraint 1c47 5220 |R | Indirect_Literal Any,0x1e68,{0x20202020, 0x20202020} 1c48 4801 |H | Short_Literal 0x1 1c49 480a |H | Short_Literal 0xa 1c4a 00e9 | | Load_Encached String_Cache 1c4b 0334 | 4 | Declare_Variable Array,With_Constraint 1c4c 4801 |H | Short_Literal 0x1 1c4d 480a |H | Short_Literal 0xa 1c4e 00e9 | | Load_Encached String_Cache 1c4f 0334 | 4 | Declare_Variable Array,With_Constraint 1c50 480a |H | Short_Literal 0xa 1c51 4801 |H | Short_Literal 0x1 1c52 4820 |H | Short_Literal 0x20 1c53 e406 | | Load 0x2,0x6 1c54 e404 | | Load 0x2,0x4 1c55 01d6 | | Execute Vector,Field_Write 1c56 3ffb |? | Loop_Increasing 0x1c52 1c57 e403 | | Load 0x2,0x3 1c58 01d4 | | Execute Vector,Structure_Write 1c59 00e1 | | Load_Encached Boolean_Cache 1c5a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1c5b 00e1 | | Load_Encached Boolean_Cache 1c5c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1c5d 00e2 | | Load_Encached Integer_Cache 1c5e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1c5f 4801 |H | Short_Literal 0x1 1c60 4808 |H | Short_Literal 0x8 1c61 00e9 | | Load_Encached String_Cache 1c62 0334 | 4 | Declare_Variable Array,With_Constraint 1c63 4801 |H | Short_Literal 0x1 1c64 4808 |H | Short_Literal 0x8 1c65 00e9 | | Load_Encached String_Cache 1c66 0334 | 4 | Declare_Variable Array,With_Constraint 1c67 4808 |H | Short_Literal 0x8 1c68 4801 |H | Short_Literal 0x1 1c69 4820 |H | Short_Literal 0x20 1c6a e40a | | Load 0x2,0xa 1c6b e408 | | Load 0x2,0x8 1c6c 01d6 | | Execute Vector,Field_Write 1c6d 3ffb |? | Loop_Increasing 0x1c69 1c6e e407 | | Load 0x2,0x7 1c6f 01d4 | | Execute Vector,Structure_Write 1c70 4801 |H | Short_Literal 0x1 1c71 4808 |H | Short_Literal 0x8 1c72 00e9 | | Load_Encached String_Cache 1c73 0334 | 4 | Declare_Variable Array,With_Constraint 1c74 4801 |H | Short_Literal 0x1 1c75 4808 |H | Short_Literal 0x8 1c76 00e9 | | Load_Encached String_Cache 1c77 0334 | 4 | Declare_Variable Array,With_Constraint 1c78 4808 |H | Short_Literal 0x8 1c79 4801 |H | Short_Literal 0x1 1c7a 4820 |H | Short_Literal 0x20 1c7b e40b | | Load 0x2,0xb 1c7c e409 | | Load 0x2,0x9 1c7d 01d6 | | Execute Vector,Field_Write 1c7e 3ffb |? | Loop_Increasing 0x1c7a 1c7f e408 | | Load 0x2,0x8 1c80 01d4 | | Execute Vector,Structure_Write 1c81 00e2 | | Load_Encached Integer_Cache 1c82 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1c83 029f 517b | Q{| Declare_Subprogram INIT_5178,For_Call 1c85 029f 518b | Q | Declare_Subprogram INIT_5188,For_Call 1c87 029f 51bb | Q | Declare_Subprogram INIT_51b8,For_Call 1c89 BODY_1c40: 1c89 00cf | | Action Mark_Auxiliary 1c8a 00cf | | Action Mark_Auxiliary 1c8b e5fe | | Load 0x2,-0x2 1c8c e5ff | | Load 0x2,-0x1 1c8d 0263 | c | Execute Discrete,Above_Bound 1c8e 7022 |p" | Jump_Nonzero 0x1cb1 1c8f e002 | | Load 0x0,0x2 1c90 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 1c91 e410 | | Load 0x2,0x10 1c92 e002 | | Load 0x0,0x2 1c93 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1c94 01d5 | | Execute Vector,Field_Reference 1c95 01d5 | | Execute Vector,Field_Reference 1c96 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1c97 e002 | | Load 0x0,0x2 1c98 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1c99 e410 | | Load 0x2,0x10 1c9a e002 | | Load 0x0,0x2 1c9b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1c9c 01d5 | | Execute Vector,Field_Reference 1c9d 01d5 | | Execute Vector,Field_Reference 1c9e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1c9f e002 | | Load 0x0,0x2 1ca0 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 1ca1 e410 | | Load 0x2,0x10 1ca2 e002 | | Load 0x0,0x2 1ca3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1ca4 01d5 | | Execute Vector,Field_Reference 1ca5 01d5 | | Execute Vector,Field_Reference 1ca6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1ca7 e002 | | Load 0x0,0x2 1ca8 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1ca9 e410 | | Load 0x2,0x10 1caa e002 | | Load 0x0,0x2 1cab 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1cac 01d5 | | Execute Vector,Field_Reference 1cad 01d5 | | Execute Vector,Field_Reference 1cae 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1caf 00c8 | | Action Pop_Auxiliary_Range 1cb0 3fde |? | Loop_Increasing 0x1c8f 1cb1 00ce | | Action Pop_Auxiliary 1cb2 e5ec | | Load 0x2,-0x14 1cb3 0f01 | | Execute_Immediate Equal,0x1 1cb4 682e |h. | Jump_Zero 0x1ce3 1cb5 e407 | | Load 0x2,0x7 1cb6 e001 | | Load 0x0,0x1 1cb7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1cb8 00d1 | | Pop_Control Pop_Count_1 1cb9 4be7 |K | Short_Literal 0x3e7 1cba 4802 |H | Short_Literal 0x2 1cbb 4be7 |K | Short_Literal 0x3e7 1cbc 4802 |H | Short_Literal 0x2 1cbd 4802 |H | Short_Literal 0x2 1cbe 4be7 |K | Short_Literal 0x3e7 1cbf 4be7 |K | Short_Literal 0x3e7 1cc0 e407 | | Load 0x2,0x7 1cc1 e002 | | Load 0x0,0x2 1cc2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1cc3 e5ff | | Load 0x2,-0x1 1cc4 0a02 | | Execute_Immediate Plus,0x2 1cc5 0248 | H | Execute Discrete,Check_In_Integer 1cc6 8251 | Q | Call 0x1,0x51 1cc7 e408 | | Load 0x2,0x8 1cc8 e001 | | Load 0x0,0x1 1cc9 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 1cca 00d1 | | Pop_Control Pop_Count_1 1ccb e5fd | | Load 0x2,-0x3 1ccc e002 | | Load 0x0,0x2 1ccd 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1cce 01d5 | | Execute Vector,Field_Reference 1ccf 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 1cd0 a409 | | Store_Unchecked 0x2,0x9 1cd1 e409 | | Load 0x2,0x9 1cd2 0c01 | | Execute_Immediate Greater_Equal,0x1 1cd3 680f |h | Jump_Zero 0x1ce3 1cd4 4be7 |K | Short_Literal 0x3e7 1cd5 4802 |H | Short_Literal 0x2 1cd6 4be7 |K | Short_Literal 0x3e7 1cd7 4802 |H | Short_Literal 0x2 1cd8 4802 |H | Short_Literal 0x2 1cd9 4be7 |K | Short_Literal 0x3e7 1cda 4be7 |K | Short_Literal 0x3e7 1cdb 4801 |H | Short_Literal 0x1 1cdc 4805 |H | Short_Literal 0x5 1cdd e408 | | Load 0x2,0x8 1cde 01cf | | Execute Vector,Slice_Read 1cdf e002 | | Load 0x0,0x2 1ce0 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1ce1 e409 | | Load 0x2,0x9 1ce2 8251 | Q | Call 0x1,0x51 1ce3 4800 |H | Short_Literal 0x0 1ce4 a405 | | Store_Unchecked 0x2,0x5 1ce5 4800 |H | Short_Literal 0x0 1ce6 a406 | | Store_Unchecked 0x2,0x6 1ce7 00cf | | Action Mark_Auxiliary 1ce8 0007 | | Action Break_Optional 1ce9 e001 | | Load 0x0,0x1 1cea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1ceb e002 | | Load 0x0,0x2 1cec 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 1ced 7008 |p | Jump_Nonzero 0x1cf6 1cee 4800 |H | Short_Literal 0x0 1cef 4801 |H | Short_Literal 0x1 1cf0 0092 6477 | dw| Action Push_String_Extended,0x6477 ; "To Log a Problem or Customer Support Request please answer a few questions:" 1cf2 e001 | | Load 0x0,0x1 1cf3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1cf4 e001 | | Load 0x0,0x1 1cf5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1cf6 e405 | | Load 0x2,0x5 1cf7 0f01 | | Execute_Immediate Equal,0x1 1cf8 6808 |h | Jump_Zero 0x1d01 1cf9 4800 |H | Short_Literal 0x0 1cfa 4801 |H | Short_Literal 0x1 1cfb 0092 6478 | dx| Action Push_String_Extended,0x6478 ; "Re-Editing previously entered support request or problem:" 1cfd e001 | | Load 0x0,0x1 1cfe 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1cff e001 | | Load 0x0,0x1 1d00 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1d01 4800 |H | Short_Literal 0x0 1d02 a404 | | Store_Unchecked 0x2,0x4 1d03 00e1 | | Load_Encached Boolean_Cache 1d04 e5ef | | Load 0x2,-0x11 1d05 e5f0 | | Load 0x2,-0x10 1d06 e5f1 | | Load 0x2,-0xf 1d07 e5f2 | | Load 0x2,-0xe 1d08 e5f3 | | Load 0x2,-0xd 1d09 e5f4 | | Load 0x2,-0xc 1d0a e5f5 | | Load 0x2,-0xb 1d0b e5f6 | | Load 0x2,-0xa 1d0c e5f7 | | Load 0x2,-0x9 1d0d e5f9 | | Load 0x2,-0x7 1d0e e5fb | | Load 0x2,-0x5 1d0f e5fc | | Load 0x2,-0x4 1d10 e5fd | | Load 0x2,-0x3 1d11 e5fe | | Load 0x2,-0x2 1d12 e5ff | | Load 0x2,-0x1 1d13 824a | J | Call 0x1,0x4a 1d14 c404 | | Store 0x2,0x4 1d15 e404 | | Load 0x2,0x4 1d16 0f01 | | Execute_Immediate Equal,0x1 1d17 e405 | | Load 0x2,0x5 1d18 0f00 | | Execute_Immediate Equal,0x0 1d19 0279 | y | Execute Discrete,And 1d1a 6801 |h | Jump_Zero 0x1d1c 1d1b 4515 |E | Exit_Suprogram New_Top_Offset 0x15 1d1c e405 | | Load 0x2,0x5 1d1d 700b |p | Jump_Nonzero 0x1d29 1d1e e5ec | | Load 0x2,-0x14 1d1f 7019 |p | Jump_Nonzero 0x1d39 1d20 4801 |H | Short_Literal 0x1 1d21 4800 |H | Short_Literal 0x0 1d22 4800 |H | Short_Literal 0x0 1d23 4801 |H | Short_Literal 0x1 1d24 e5fd | | Load 0x2,-0x3 1d25 e5fe | | Load 0x2,-0x2 1d26 e5ff | | Load 0x2,-0x1 1d27 8239 | 9 | Call 0x1,0x39 1d28 7810 |x | Jump 0x1d39 1d29 e5fd | | Load 0x2,-0x3 1d2a e002 | | Load 0x0,0x2 1d2b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1d2c 01d5 | | Execute Vector,Field_Reference 1d2d 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1d2e a406 | | Store_Unchecked 0x2,0x6 1d2f e5ec | | Load 0x2,-0x14 1d30 7008 |p | Jump_Nonzero 0x1d39 1d31 4801 |H | Short_Literal 0x1 1d32 e406 | | Load 0x2,0x6 1d33 4800 |H | Short_Literal 0x0 1d34 4801 |H | Short_Literal 0x1 1d35 e5fd | | Load 0x2,-0x3 1d36 e5fe | | Load 0x2,-0x2 1d37 e5ff | | Load 0x2,-0x1 1d38 8239 | 9 | Call 0x1,0x39 1d39 e5ec | | Load 0x2,-0x14 1d3a 700a |p | Jump_Nonzero 0x1d45 1d3b e5fd | | Load 0x2,-0x3 1d3c e002 | | Load 0x0,0x2 1d3d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1d3e 01d5 | | Execute Vector,Field_Reference 1d3f 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 1d40 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 1d42 01de | | Execute Vector,Not_Equal 1d43 6801 |h | Jump_Zero 0x1d45 1d44 4515 |E | Exit_Suprogram New_Top_Offset 0x15 1d45 e404 | | Load 0x2,0x4 1d46 0f00 | | Execute_Immediate Equal,0x0 1d47 e405 | | Load 0x2,0x5 1d48 0f00 | | Execute_Immediate Equal,0x0 1d49 0278 | x | Execute Discrete,Or 1d4a 6804 |h | Jump_Zero 0x1d4f 1d4b e5fd | | Load 0x2,-0x3 1d4c e5fe | | Load 0x2,-0x2 1d4d e5ff | | Load 0x2,-0x1 1d4e 8238 | 8 | Call 0x1,0x38 1d4f 840a | | Call 0x2,0xa 1d50 4801 |H | Short_Literal 0x1 1d51 4801 |H | Short_Literal 0x1 1d52 e403 | | Load 0x2,0x3 1d53 01cf | | Execute Vector,Slice_Read 1d54 0092 6479 | dy| Action Push_String_Extended,0x6479 ; "S" 1d56 01df | | Execute Vector,Equal 1d57 4801 |H | Short_Literal 0x1 1d58 4801 |H | Short_Literal 0x1 1d59 e403 | | Load 0x2,0x3 1d5a 01cf | | Execute Vector,Slice_Read 1d5b 0092 647a | dz| Action Push_String_Extended,0x647a ; "s" 1d5d 01df | | Execute Vector,Equal 1d5e 4801 |H | Short_Literal 0x1 1d5f 4801 |H | Short_Literal 0x1 1d60 e403 | | Load 0x2,0x3 1d61 01cf | | Execute Vector,Slice_Read 1d62 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 1d64 01df | | Execute Vector,Equal 1d65 4801 |H | Short_Literal 0x1 1d66 4801 |H | Short_Literal 0x1 1d67 e403 | | Load 0x2,0x3 1d68 01cf | | Execute Vector,Slice_Read 1d69 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 1d6b 01df | | Execute Vector,Equal 1d6c 0278 | x | Execute Discrete,Or 1d6d 0278 | x | Execute Discrete,Or 1d6e 0278 | x | Execute Discrete,Or 1d6f 68bb |h | Jump_Zero 0x1e2b 1d70 e5ec | | Load 0x2,-0x14 1d71 700e |p | Jump_Nonzero 0x1d80 1d72 0092 647c | d|| Action Push_String_Extended,0x647c ; "Database Updated, report # " 1d74 e001 | | Load 0x0,0x1 1d75 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1d76 e5fd | | Load 0x2,-0x3 1d77 e002 | | Load 0x0,0x2 1d78 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1d79 01d5 | | Execute Vector,Field_Reference 1d7a 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1d7b e001 | | Load 0x0,0x1 1d7c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1d7d e001 | | Load 0x0,0x1 1d7e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1d7f 784d |xM | Jump 0x1dcd 1d80 4801 |H | Short_Literal 0x1 1d81 4808 |H | Short_Literal 0x8 1d82 e002 | | Load 0x0,0x2 1d83 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1d84 e5f9 | | Load 0x2,-0x7 1d85 e002 | | Load 0x0,0x2 1d86 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1d87 01d5 | | Execute Vector,Field_Reference 1d88 01d5 | | Execute Vector,Field_Reference 1d89 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1d8a 01cf | | Execute Vector,Slice_Read 1d8b 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 1d8d 01df | | Execute Vector,Equal 1d8e 4801 |H | Short_Literal 0x1 1d8f 4808 |H | Short_Literal 0x8 1d90 e002 | | Load 0x0,0x2 1d91 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1d92 e5f9 | | Load 0x2,-0x7 1d93 e002 | | Load 0x0,0x2 1d94 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1d95 01d5 | | Execute Vector,Field_Reference 1d96 01d5 | | Execute Vector,Field_Reference 1d97 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1d98 01cf | | Execute Vector,Slice_Read 1d99 0092 6423 | d#| Action Push_String_Extended,0x6423 ; "rational" 1d9b 01df | | Execute Vector,Equal 1d9c 0278 | x | Execute Discrete,Or 1d9d 681c |h | Jump_Zero 0x1dba 1d9e e5ee | | Load 0x2,-0x12 1d9f 0f01 | | Execute_Immediate Equal,0x1 1da0 e5ed | | Load 0x2,-0x13 1da1 0f01 | | Execute_Immediate Equal,0x1 1da2 0278 | x | Execute Discrete,Or 1da3 6816 |h | Jump_Zero 0x1dba 1da4 4804 |H | Short_Literal 0x4 1da5 e002 | | Load 0x0,0x2 1da6 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1da7 e5fa | | Load 0x2,-0x6 1da8 e002 | | Load 0x0,0x2 1da9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1daa 01d5 | | Execute Vector,Field_Reference 1dab 01d5 | | Execute Vector,Field_Reference 1dac 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1dad 0092 6422 | d"| Action Push_String_Extended,0x6422 ; "sent" 1daf 4801 |H | Short_Literal 0x1 1db0 4804 |H | Short_Literal 0x4 1db1 e002 | | Load 0x0,0x2 1db2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1db3 e5fa | | Load 0x2,-0x6 1db4 e002 | | Load 0x0,0x2 1db5 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1db6 01d7 | | Execute Vector,Field_Read 1db7 01d7 | | Execute Vector,Field_Read 1db8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1db9 01ce | | Execute Vector,Slice_Write 1dba e5fd | | Load 0x2,-0x3 1dbb 4801 |H | Short_Literal 0x1 1dbc e002 | | Load 0x0,0x2 1dbd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1dbe e002 | | Load 0x0,0x2 1dbf 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1dc0 01cf | | Execute Vector,Slice_Read 1dc1 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 1dc3 01cc | | Execute Vector,Catenate 1dc4 e5fe | | Load 0x2,-0x2 1dc5 e5ff | | Load 0x2,-0x1 1dc6 8221 | ! | Call 0x1,0x21 1dc7 0092 647d | d}| Action Push_String_Extended,0x647d ; "Report submitted." 1dc9 e001 | | Load 0x0,0x1 1dca 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1dcb e001 | | Load 0x0,0x1 1dcc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1dcd e001 | | Load 0x0,0x1 1dce 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1dcf e002 | | Load 0x0,0x2 1dd0 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 1dd1 700e |p | Jump_Nonzero 0x1de0 1dd2 4800 |H | Short_Literal 0x0 1dd3 4801 |H | Short_Literal 0x1 1dd4 0092 647e | d~| Action Push_String_Extended,0x647e ; "The problem has been forwarded to your system manager for review & action." 1dd6 e001 | | Load 0x0,0x1 1dd7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1dd8 4800 |H | Short_Literal 0x0 1dd9 4801 |H | Short_Literal 0x1 1dda 0092 647f | d | Action Push_String_Extended,0x647f ; "As necessary, problems will be forwarded to Rational Customer Support." 1ddc e001 | | Load 0x0,0x1 1ddd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1dde e001 | | Load 0x0,0x1 1ddf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1de0 e002 | | Load 0x0,0x2 1de1 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 1de2 7002 |p | Jump_Nonzero 0x1de5 1de3 e001 | | Load 0x0,0x1 1de4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1de5 4801 |H | Short_Literal 0x1 1de6 4808 |H | Short_Literal 0x8 1de7 e002 | | Load 0x0,0x2 1de8 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1de9 e5f9 | | Load 0x2,-0x7 1dea e002 | | Load 0x0,0x2 1deb 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1dec 01d5 | | Execute Vector,Field_Reference 1ded 01d5 | | Execute Vector,Field_Reference 1dee 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1def 01cf | | Execute Vector,Slice_Read 1df0 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 1df2 01df | | Execute Vector,Equal 1df3 4801 |H | Short_Literal 0x1 1df4 4808 |H | Short_Literal 0x8 1df5 e002 | | Load 0x0,0x2 1df6 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 1df7 e5f9 | | Load 0x2,-0x7 1df8 e002 | | Load 0x0,0x2 1df9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1dfa 01d5 | | Execute Vector,Field_Reference 1dfb 01d5 | | Execute Vector,Field_Reference 1dfc 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1dfd 01cf | | Execute Vector,Slice_Read 1dfe 0092 6423 | d#| Action Push_String_Extended,0x6423 ; "rational" 1e00 01df | | Execute Vector,Equal 1e01 0278 | x | Execute Discrete,Or 1e02 6823 |h# | Jump_Zero 0x1e26 1e03 e5ee | | Load 0x2,-0x12 1e04 0f01 | | Execute_Immediate Equal,0x1 1e05 e5ed | | Load 0x2,-0x13 1e06 0f01 | | Execute_Immediate Equal,0x1 1e07 0278 | x | Execute Discrete,Or 1e08 681d |h | Jump_Zero 0x1e26 1e09 4800 |H | Short_Literal 0x0 1e0a 4801 |H | Short_Literal 0x1 1e0b 0092 6480 | d | Action Push_String_Extended,0x6480 ; "Auto Sending Rational Internal request ..." 1e0d e001 | | Load 0x0,0x1 1e0e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1e0f e5ec | | Load 0x2,-0x14 1e10 e5ed | | Load 0x2,-0x13 1e11 e5ee | | Load 0x2,-0x12 1e12 0092 6481 | d | Action Push_String_Extended,0x6481 ; "Send this request to Rational to transfer queue? y=yes n=no" 1e14 0092 6482 | d | Action Push_String_Extended,0x6482 ; "Select a Support Request to send to Rational:" 1e16 e5f8 | | Load 0x2,-0x8 1e17 e5f9 | | Load 0x2,-0x7 1e18 e5fa | | Load 0x2,-0x6 1e19 e5f6 | | Load 0x2,-0xa 1e1a 4801 |H | Short_Literal 0x1 1e1b 4800 |H | Short_Literal 0x0 1e1c 4800 |H | Short_Literal 0x0 1e1d 4800 |H | Short_Literal 0x0 1e1e 4800 |H | Short_Literal 0x0 1e1f 4800 |H | Short_Literal 0x0 1e20 4800 |H | Short_Literal 0x0 1e21 4800 |H | Short_Literal 0x0 1e22 e5fd | | Load 0x2,-0x3 1e23 e5fe | | Load 0x2,-0x2 1e24 e5ff | | Load 0x2,-0x1 1e25 826d | m | Call 0x1,0x6d 1e26 e5ec | | Load 0x2,-0x14 1e27 0f01 | | Execute_Immediate Equal,0x1 1e28 682a |h* | Jump_Zero 0x1e53 1e29 840b | | Call 0x2,0xb 1e2a 7828 |x( | Jump 0x1e53 1e2b 4801 |H | Short_Literal 0x1 1e2c 4801 |H | Short_Literal 0x1 1e2d e403 | | Load 0x2,0x3 1e2e 01cf | | Execute Vector,Slice_Read 1e2f 0092 6483 | d | Action Push_String_Extended,0x6483 ; "A" 1e31 01df | | Execute Vector,Equal 1e32 4801 |H | Short_Literal 0x1 1e33 4801 |H | Short_Literal 0x1 1e34 e403 | | Load 0x2,0x3 1e35 01cf | | Execute Vector,Slice_Read 1e36 0092 6484 | d | Action Push_String_Extended,0x6484 ; "a" 1e38 01df | | Execute Vector,Equal 1e39 0278 | x | Execute Discrete,Or 1e3a 6816 |h | Jump_Zero 0x1e51 1e3b e5ec | | Load 0x2,-0x14 1e3c 700c |p | Jump_Nonzero 0x1e49 1e3d 4801 |H | Short_Literal 0x1 1e3e e5fd | | Load 0x2,-0x3 1e3f e002 | | Load 0x0,0x2 1e40 1b96 | | Execute Package,Field_Read,Field_Number 0x96 1e41 01d5 | | Execute Vector,Field_Reference 1e42 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 1e43 4801 |H | Short_Literal 0x1 1e44 e5fd | | Load 0x2,-0x3 1e45 e5fe | | Load 0x2,-0x2 1e46 e5ff | | Load 0x2,-0x1 1e47 823a | : | Call 0x1,0x3a 1e48 7801 |x | Jump 0x1e4a 1e49 840c | | Call 0x2,0xc 1e4a 4800 |H | Short_Literal 0x0 1e4b 4801 |H | Short_Literal 0x1 1e4c 0092 6485 | d | Action Push_String_Extended,0x6485 ; " Report deleted." 1e4e e001 | | Load 0x0,0x1 1e4f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1e50 7802 |x | Jump 0x1e53 1e51 00c9 | | Action Pop_Auxiliary_Loop 1e52 7e96 |~ | Jump 0x1ce9 1e53 00ce | | Action Pop_Auxiliary 1e54 e404 | | Load 0x2,0x4 1e55 0f01 | | Execute_Immediate Equal,0x1 1e56 6801 |h | Jump_Zero 0x1e58 1e57 4515 |E | Exit_Suprogram New_Top_Offset 0x15 1e58 00c9 | | Action Pop_Auxiliary_Loop 1e59 7e30 |~0 | Jump 0x1c8a 1e5a TRAP_1c40: 1e5a 0007 | | Action Break_Optional 1e5b 4801 |H | Short_Literal 0x1 1e5c 4804 |H | Short_Literal 0x4 1e5d 0092 6486 | d | Action Push_String_Extended,0x6486 ; "Exception found in ap_sub_enter_fast_sr_report" 1e5f e001 | | Load 0x0,0x1 1e60 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1e61 4515 |E | Exit_Suprogram New_Top_Offset 0x15 1e62 0000 0000 | | .XXX[0x2] 1e64 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 1e68 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 1e6c 0000 0000 | | .BLANK 0000[0x4] 1e70 ; -------------------------------------------------------------------------------------- 1e70 ; SUBPROGRAM 1e70 ; -------------------------------------------------------------------------------------- 1e70 1e75 | u | .CONST 0x1e75 ; Address of begin 1e71 1e77 | w | .CONST 0x1e77 ; Address of exception handler 1e72 0002 | | .CONST 0x0002 ; Number of locals 1e73 INIT_1e70: 1e73 029f 51eb | Q | Declare_Subprogram INIT_51e8,For_Call 1e75 BODY_1e70: 1e75 8402 | | Call 0x2,0x2 1e76 450a |E | Exit_Suprogram New_Top_Offset 0xa 1e77 TRAP_1e70: 1e77 0007 | | Action Break_Optional 1e78 4800 |H | Short_Literal 0x0 1e79 4801 |H | Short_Literal 0x1 1e7a 0092 6487 | d | Action Push_String_Extended,0x6487 ; "Exception in ap_edit_record." 1e7c e001 | | Load 0x0,0x1 1e7d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1e7e 450a |E | Exit_Suprogram New_Top_Offset 0xa 1e7f 0000 | | .XXX[0x1] 1e80 ; -------------------------------------------------------------------------------------- 1e80 ; SUBPROGRAM 1e80 ; -------------------------------------------------------------------------------------- 1e80 1ed0 | | .CONST 0x1ed0 ; Address of begin 1e81 2279 |"y | .CONST 0x2279 ; Address of exception handler 1e82 0012 | | .CONST 0x0012 ; Number of locals 1e83 INIT_1e80: 1e83 00e2 | | Load_Encached Integer_Cache 1e84 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1e85 00e2 | | Load_Encached Integer_Cache 1e86 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1e87 00e2 | | Load_Encached Integer_Cache 1e88 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1e89 4801 |H | Short_Literal 0x1 1e8a 4801 |H | Short_Literal 0x1 1e8b 00e9 | | Load_Encached String_Cache 1e8c 0334 | 4 | Declare_Variable Array,With_Constraint 1e8d 00a0 2284 | " | Action Push_Structure_Extended,0x2284 1e8f 00e2 | | Load_Encached Integer_Cache 1e90 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1e91 00e2 | | Load_Encached Integer_Cache 1e92 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1e93 0092 6488 | d | Action Push_String_Extended,0x6488 ; "(To exit type '" 1e95 0092 6489 | d | Action Push_String_Extended,0x6489 ; "')" 1e97 00e1 | | Load_Encached Boolean_Cache 1e98 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1e99 4801 |H | Short_Literal 0x1 1e9a 4850 |HP | Short_Literal 0x50 1e9b 00e9 | | Load_Encached String_Cache 1e9c 0334 | 4 | Declare_Variable Array,With_Constraint 1e9d 4801 |H | Short_Literal 0x1 1e9e 4850 |HP | Short_Literal 0x50 1e9f 00e9 | | Load_Encached String_Cache 1ea0 0334 | 4 | Declare_Variable Array,With_Constraint 1ea1 4850 |HP | Short_Literal 0x50 1ea2 4801 |H | Short_Literal 0x1 1ea3 4820 |H | Short_Literal 0x20 1ea4 e40e | | Load 0x2,0xe 1ea5 e40c | | Load 0x2,0xc 1ea6 01d6 | | Execute Vector,Field_Write 1ea7 3ffb |? | Loop_Increasing 0x1ea3 1ea8 e40b | | Load 0x2,0xb 1ea9 01d4 | | Execute Vector,Structure_Write 1eaa 00e2 | | Load_Encached Integer_Cache 1eab 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1eac 4801 |H | Short_Literal 0x1 1ead 4828 |H( | Short_Literal 0x28 1eae 00e9 | | Load_Encached String_Cache 1eaf 0334 | 4 | Declare_Variable Array,With_Constraint 1eb0 4801 |H | Short_Literal 0x1 1eb1 4828 |H( | Short_Literal 0x28 1eb2 e002 | | Load 0x0,0x2 1eb3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 1eb4 01cf | | Execute Vector,Slice_Read 1eb5 e40d | | Load 0x2,0xd 1eb6 01d4 | | Execute Vector,Structure_Write 1eb7 00e2 | | Load_Encached Integer_Cache 1eb8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1eb9 4801 |H | Short_Literal 0x1 1eba 480a |H | Short_Literal 0xa 1ebb 00e9 | | Load_Encached String_Cache 1ebc 0334 | 4 | Declare_Variable Array,With_Constraint 1ebd 4801 |H | Short_Literal 0x1 1ebe 480a |H | Short_Literal 0xa 1ebf 00e9 | | Load_Encached String_Cache 1ec0 0334 | 4 | Declare_Variable Array,With_Constraint 1ec1 480a |H | Short_Literal 0xa 1ec2 4801 |H | Short_Literal 0x1 1ec3 4820 |H | Short_Literal 0x20 1ec4 e412 | | Load 0x2,0x12 1ec5 e410 | | Load 0x2,0x10 1ec6 01d6 | | Execute Vector,Field_Write 1ec7 3ffb |? | Loop_Increasing 0x1ec3 1ec8 e40f | | Load 0x2,0xf 1ec9 01d4 | | Execute Vector,Structure_Write 1eca 00e2 | | Load_Encached Integer_Cache 1ecb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1ecc 0092 648a | d | Action Push_String_Extended,0x648a ; "[Or: Help= ? Up= ^ Restart= , Select= . Exit= / (then promote)]" 1ece 029f 531b | S | Declare_Subprogram INIT_5318,For_Call 1ed0 BODY_1e80: 1ed0 4800 |H | Short_Literal 0x0 1ed1 a402 | | Store_Unchecked 0x2,0x2 1ed2 e5fc | | Load 0x2,-0x4 1ed3 0aff | | Execute_Immediate Plus,-0x1 1ed4 0248 | H | Execute Discrete,Check_In_Integer 1ed5 a403 | | Store_Unchecked 0x2,0x3 1ed6 4800 |H | Short_Literal 0x0 1ed7 a5f0 | | Store_Unchecked 0x2,-0x10 1ed8 00cf | | Action Mark_Auxiliary 1ed9 0007 | | Action Break_Optional 1eda e5f7 | | Load 0x2,-0x9 1edb 0f01 | | Execute_Immediate Equal,0x1 1edc 6809 |h | Jump_Zero 0x1ee6 1edd 8412 | | Call 0x2,0x12 1ede e403 | | Load 0x2,0x3 1edf 7001 |p | Jump_Nonzero 0x1ee1 1ee0 4510 |E | Exit_Suprogram New_Top_Offset 0x10 1ee1 e403 | | Load 0x2,0x3 1ee2 e5fe | | Load 0x2,-0x2 1ee3 027d | } | Execute Discrete,Greater 1ee4 680a |h | Jump_Zero 0x1eef 1ee5 4510 |E | Exit_Suprogram New_Top_Offset 0x10 1ee6 e403 | | Load 0x2,0x3 1ee7 0a01 | | Execute_Immediate Plus,0x1 1ee8 0248 | H | Execute Discrete,Check_In_Integer 1ee9 a403 | | Store_Unchecked 0x2,0x3 1eea e403 | | Load 0x2,0x3 1eeb e5fb | | Load 0x2,-0x5 1eec 027d | } | Execute Discrete,Greater 1eed 6801 |h | Jump_Zero 0x1eef 1eee 4510 |E | Exit_Suprogram New_Top_Offset 0x10 1eef e002 | | Load 0x0,0x2 1ef0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 1ef1 e403 | | Load 0x2,0x3 1ef2 e002 | | Load 0x0,0x2 1ef3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1ef4 01d5 | | Execute Vector,Field_Reference 1ef5 01d5 | | Execute Vector,Field_Reference 1ef6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1ef7 0c01 | | Execute_Immediate Greater_Equal,0x1 1ef8 6b7e |k~ | Jump_Zero 0x2277 1ef9 4800 |H | Short_Literal 0x0 1efa a407 | | Store_Unchecked 0x2,0x7 1efb 00cf | | Action Mark_Auxiliary 1efc e002 | | Load 0x0,0x2 1efd 1b60 | ` | Execute Package,Field_Read,Field_Number 0x60 1efe 4801 |H | Short_Literal 0x1 1eff 0263 | c | Execute Discrete,Above_Bound 1f00 7012 |p | Jump_Nonzero 0x1f13 1f01 e407 | | Load 0x2,0x7 1f02 0a01 | | Execute_Immediate Plus,0x1 1f03 0248 | H | Execute Discrete,Check_In_Integer 1f04 a407 | | Store_Unchecked 0x2,0x7 1f05 e407 | | Load 0x2,0x7 1f06 e403 | | Load 0x2,0x3 1f07 e002 | | Load 0x0,0x2 1f08 1b90 | | Execute Package,Field_Read,Field_Number 0x90 1f09 01d5 | | Execute Vector,Field_Reference 1f0a 01d5 | | Execute Vector,Field_Reference 1f0b e407 | | Load 0x2,0x7 1f0c 0a64 | d | Execute_Immediate Plus,0x64 1f0d 0248 | H | Execute Discrete,Check_In_Integer 1f0e e002 | | Load 0x0,0x2 1f0f 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f10 01d6 | | Execute Vector,Field_Write 1f11 00c8 | | Action Pop_Auxiliary_Range 1f12 3fee |? | Loop_Increasing 0x1f01 1f13 00ce | | Action Pop_Auxiliary 1f14 e411 | | Load 0x2,0x11 1f15 4801 |H | Short_Literal 0x1 1f16 484c |HL | Short_Literal 0x4c 1f17 e002 | | Load 0x0,0x2 1f18 1b48 | H | Execute Package,Field_Read,Field_Number 0x48 1f19 e002 | | Load 0x0,0x2 1f1a 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f1b 01d7 | | Execute Vector,Field_Read 1f1c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1f1d 01ce | | Execute Vector,Slice_Write 1f1e 484c |HL | Short_Literal 0x4c 1f1f e002 | | Load 0x0,0x2 1f20 1b48 | H | Execute Package,Field_Read,Field_Number 0x48 1f21 e002 | | Load 0x0,0x2 1f22 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f23 01d5 | | Execute Vector,Field_Reference 1f24 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1f25 e5f7 | | Load 0x2,-0x9 1f26 0f01 | | Execute_Immediate Equal,0x1 1f27 e402 | | Load 0x2,0x2 1f28 0f01 | | Execute_Immediate Equal,0x1 1f29 0279 | y | Execute Discrete,And 1f2a e5f7 | | Load 0x2,-0x9 1f2b 0f00 | | Execute_Immediate Equal,0x0 1f2c e403 | | Load 0x2,0x3 1f2d e5fc | | Load 0x2,-0x4 1f2e 027f | | Execute Discrete,Equal 1f2f 0279 | y | Execute Discrete,And 1f30 0278 | x | Execute Discrete,Or 1f31 683b |h; | Jump_Zero 0x1f6d 1f32 4801 |H | Short_Literal 0x1 1f33 e002 | | Load 0x0,0x2 1f34 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 1f35 e002 | | Load 0x0,0x2 1f36 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f37 01d5 | | Execute Vector,Field_Reference 1f38 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1f39 e002 | | Load 0x0,0x2 1f3a 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 1f3b e002 | | Load 0x0,0x2 1f3c 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f3d 01d5 | | Execute Vector,Field_Reference 1f3e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1f3f 01cf | | Execute Vector,Slice_Read 1f40 e408 | | Load 0x2,0x8 1f41 01cc | | Execute Vector,Catenate 1f42 e5f2 | | Load 0x2,-0xe 1f43 01cc | | Execute Vector,Catenate 1f44 e409 | | Load 0x2,0x9 1f45 01cc | | Execute Vector,Catenate 1f46 4801 |H | Short_Literal 0x1 1f47 e002 | | Load 0x0,0x2 1f48 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 1f49 e002 | | Load 0x0,0x2 1f4a 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f4b 01d5 | | Execute Vector,Field_Reference 1f4c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1f4d 0a0f | | Execute_Immediate Plus,0xf 1f4e 0248 | H | Execute Discrete,Check_In_Integer 1f4f e5f2 | | Load 0x2,-0xe 1f50 01db | | Execute Vector,Length 1f51 0273 | s | Execute Discrete,Plus 1f52 0a02 | | Execute_Immediate Plus,0x2 1f53 0248 | H | Execute Discrete,Check_In_Integer 1f54 e002 | | Load 0x0,0x2 1f55 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 1f56 e002 | | Load 0x0,0x2 1f57 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f58 01d7 | | Execute Vector,Field_Read 1f59 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1f5a 01ce | | Execute Vector,Slice_Write 1f5b e002 | | Load 0x0,0x2 1f5c 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 1f5d e002 | | Load 0x0,0x2 1f5e 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f5f 01d5 | | Execute Vector,Field_Reference 1f60 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1f61 0a0f | | Execute_Immediate Plus,0xf 1f62 e5f2 | | Load 0x2,-0xe 1f63 01db | | Execute Vector,Length 1f64 0273 | s | Execute Discrete,Plus 1f65 0248 | H | Execute Discrete,Check_In_Integer 1f66 0a02 | | Execute_Immediate Plus,0x2 1f67 e002 | | Load 0x0,0x2 1f68 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 1f69 e002 | | Load 0x0,0x2 1f6a 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1f6b 01d5 | | Execute Vector,Field_Reference 1f6c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1f6d 00cf | | Action Mark_Auxiliary 1f6e 00cf | | Action Mark_Auxiliary 1f6f 0007 | | Action Break_Optional 1f70 e001 | | Load 0x0,0x1 1f71 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1f72 e002 | | Load 0x0,0x2 1f73 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 1f74 7002 |p | Jump_Nonzero 0x1f77 1f75 e001 | | Load 0x0,0x1 1f76 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1f77 e403 | | Load 0x2,0x3 1f78 e5f9 | | Load 0x2,-0x7 1f79 027f | | Execute Discrete,Equal 1f7a 680d |h | Jump_Zero 0x1f88 1f7b 0092 648b | d | Action Push_String_Extended,0x648b ; "#" 1f7d 4801 |H | Short_Literal 0x1 1f7e 4801 |H | Short_Literal 0x1 1f7f e405 | | Load 0x2,0x5 1f80 01ce | | Execute Vector,Slice_Write 1f81 e405 | | Load 0x2,0x5 1f82 4801 |H | Short_Literal 0x1 1f83 e403 | | Load 0x2,0x3 1f84 e403 | | Load 0x2,0x3 1f85 824b | K | Call 0x1,0x4b 1f86 00d1 | | Pop_Control Pop_Count_1 1f87 780c |x | Jump 0x1f94 1f88 0092 648c | d | Action Push_String_Extended,0x648c ; "?" 1f8a 4801 |H | Short_Literal 0x1 1f8b 4801 |H | Short_Literal 0x1 1f8c e405 | | Load 0x2,0x5 1f8d 01ce | | Execute Vector,Slice_Write 1f8e e405 | | Load 0x2,0x5 1f8f 4801 |H | Short_Literal 0x1 1f90 e403 | | Load 0x2,0x3 1f91 e403 | | Load 0x2,0x3 1f92 824b | K | Call 0x1,0x4b 1f93 00d1 | | Pop_Control Pop_Count_1 1f94 4800 |H | Short_Literal 0x0 1f95 a40a | | Store_Unchecked 0x2,0xa 1f96 00e1 | | Load_Encached Boolean_Cache 1f97 4801 |H | Short_Literal 0x1 1f98 4fff |O | Short_Literal -0x1 1f99 4801 |H | Short_Literal 0x1 1f9a e5f2 | | Load 0x2,-0xe 1f9b 01db | | Execute Vector,Length 1f9c e002 | | Load 0x0,0x2 1f9d 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 1f9e e002 | | Load 0x0,0x2 1f9f 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1fa0 01d5 | | Execute Vector,Field_Reference 1fa1 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1fa2 01cf | | Execute Vector,Slice_Read 1fa3 4fff |O | Short_Literal -0x1 1fa4 e5f2 | | Load 0x2,-0xe 1fa5 e001 | | Load 0x0,0x1 1fa6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1fa7 c40a | | Store 0x2,0xa 1fa8 e40a | | Load 0x2,0xa 1fa9 0f01 | | Execute_Immediate Equal,0x1 1faa 6803 |h | Jump_Zero 0x1fae 1fab 4801 |H | Short_Literal 0x1 1fac a5f0 | | Store_Unchecked 0x2,-0x10 1fad 4510 |E | Exit_Suprogram New_Top_Offset 0x10 1fae 00e1 | | Load_Encached Boolean_Cache 1faf 4801 |H | Short_Literal 0x1 1fb0 4fff |O | Short_Literal -0x1 1fb1 4801 |H | Short_Literal 0x1 1fb2 e5f1 | | Load 0x2,-0xf 1fb3 01db | | Execute Vector,Length 1fb4 e002 | | Load 0x0,0x2 1fb5 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 1fb6 e002 | | Load 0x0,0x2 1fb7 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1fb8 01d5 | | Execute Vector,Field_Reference 1fb9 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1fba 01cf | | Execute Vector,Slice_Read 1fbb 4fff |O | Short_Literal -0x1 1fbc e5f1 | | Load 0x2,-0xf 1fbd e001 | | Load 0x0,0x1 1fbe 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1fbf c40a | | Store 0x2,0xa 1fc0 e40a | | Load 0x2,0xa 1fc1 0f01 | | Execute_Immediate Equal,0x1 1fc2 6803 |h | Jump_Zero 0x1fc6 1fc3 4801 |H | Short_Literal 0x1 1fc4 a5f0 | | Store_Unchecked 0x2,-0x10 1fc5 4510 |E | Exit_Suprogram New_Top_Offset 0x10 1fc6 e5f7 | | Load 0x2,-0x9 1fc7 0f01 | | Execute_Immediate Equal,0x1 1fc8 e402 | | Load 0x2,0x2 1fc9 0f01 | | Execute_Immediate Equal,0x1 1fca 0279 | y | Execute Discrete,And 1fcb e5f7 | | Load 0x2,-0x9 1fcc 0f00 | | Execute_Immediate Equal,0x0 1fcd e403 | | Load 0x2,0x3 1fce e5fc | | Load 0x2,-0x4 1fcf 027f | | Execute Discrete,Equal 1fd0 0279 | y | Execute Discrete,And 1fd1 0278 | x | Execute Discrete,Or 1fd2 6822 |h" | Jump_Zero 0x1ff5 1fd3 e403 | | Load 0x2,0x3 1fd4 e5f9 | | Load 0x2,-0x7 1fd5 027e | ~ | Execute Discrete,Not_Equal 1fd6 681e |h | Jump_Zero 0x1ff5 1fd7 4800 |H | Short_Literal 0x0 1fd8 a40a | | Store_Unchecked 0x2,0xa 1fd9 00e1 | | Load_Encached Boolean_Cache 1fda 4801 |H | Short_Literal 0x1 1fdb 4fff |O | Short_Literal -0x1 1fdc e5f2 | | Load 0x2,-0xe 1fdd 4fff |O | Short_Literal -0x1 1fde 4801 |H | Short_Literal 0x1 1fdf e002 | | Load 0x0,0x2 1fe0 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 1fe1 e002 | | Load 0x0,0x2 1fe2 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1fe3 01d5 | | Execute Vector,Field_Reference 1fe4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1fe5 e002 | | Load 0x0,0x2 1fe6 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 1fe7 e002 | | Load 0x0,0x2 1fe8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1fe9 01d5 | | Execute Vector,Field_Reference 1fea 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1feb 01cf | | Execute Vector,Slice_Read 1fec e001 | | Load 0x0,0x1 1fed 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1fee c40a | | Store 0x2,0xa 1fef e40a | | Load 0x2,0xa 1ff0 0f01 | | Execute_Immediate Equal,0x1 1ff1 6803 |h | Jump_Zero 0x1ff5 1ff2 4801 |H | Short_Literal 0x1 1ff3 a5f0 | | Store_Unchecked 0x2,-0x10 1ff4 4510 |E | Exit_Suprogram New_Top_Offset 0x10 1ff5 4801 |H | Short_Literal 0x1 1ff6 4801 |H | Short_Literal 0x1 1ff7 e002 | | Load 0x0,0x2 1ff8 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 1ff9 e002 | | Load 0x0,0x2 1ffa 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 1ffb 01d5 | | Execute Vector,Field_Reference 1ffc 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1ffd 01cf | | Execute Vector,Slice_Read 1ffe 0092 648d | d | Action Push_String_Extended,0x648d ; "," 2000 01df | | Execute Vector,Equal 2001 4801 |H | Short_Literal 0x1 2002 4801 |H | Short_Literal 0x1 2003 e002 | | Load 0x0,0x2 2004 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2005 e002 | | Load 0x0,0x2 2006 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2007 01d5 | | Execute Vector,Field_Reference 2008 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2009 01cf | | Execute Vector,Slice_Read 200a 0092 648e | d | Action Push_String_Extended,0x648e ; "/" 200c 01df | | Execute Vector,Equal 200d 4801 |H | Short_Literal 0x1 200e 4801 |H | Short_Literal 0x1 200f e002 | | Load 0x0,0x2 2010 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2011 e002 | | Load 0x0,0x2 2012 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2013 01d5 | | Execute Vector,Field_Reference 2014 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2015 01cf | | Execute Vector,Slice_Read 2016 0092 648f | d | Action Push_String_Extended,0x648f ; "^" 2018 01df | | Execute Vector,Equal 2019 4801 |H | Short_Literal 0x1 201a 4801 |H | Short_Literal 0x1 201b e002 | | Load 0x0,0x2 201c 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 201d e002 | | Load 0x0,0x2 201e 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 201f 01d5 | | Execute Vector,Field_Reference 2020 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2021 01cf | | Execute Vector,Slice_Read 2022 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 2024 01df | | Execute Vector,Equal 2025 0278 | x | Execute Discrete,Or 2026 0278 | x | Execute Discrete,Or 2027 0278 | x | Execute Discrete,Or 2028 680c |h | Jump_Zero 0x2035 2029 4801 |H | Short_Literal 0x1 202a 4801 |H | Short_Literal 0x1 202b e002 | | Load 0x0,0x2 202c 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 202d e002 | | Load 0x0,0x2 202e 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 202f 01d5 | | Execute Vector,Field_Reference 2030 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2031 01cf | | Execute Vector,Slice_Read 2032 e405 | | Load 0x2,0x5 2033 01d4 | | Execute Vector,Structure_Write 2034 79fc |y | Jump 0x2231 2035 e403 | | Load 0x2,0x3 2036 e5f9 | | Load 0x2,-0x7 2037 027f | | Execute Discrete,Equal 2038 69be |i | Jump_Zero 0x21f7 2039 e002 | | Load 0x0,0x2 203a 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 203b e002 | | Load 0x0,0x2 203c 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 203d 01d5 | | Execute Vector,Field_Reference 203e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 203f 7028 |p( | Jump_Nonzero 0x2068 2040 e002 | | Load 0x0,0x2 2041 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 2042 e002 | | Load 0x0,0x2 2043 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2044 01d5 | | Execute Vector,Field_Reference 2045 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2046 e002 | | Load 0x0,0x2 2047 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2048 e002 | | Load 0x0,0x2 2049 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 204a 01d5 | | Execute Vector,Field_Reference 204b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 204c 4801 |H | Short_Literal 0x1 204d e002 | | Load 0x0,0x2 204e 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 204f e002 | | Load 0x0,0x2 2050 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2051 01d5 | | Execute Vector,Field_Reference 2052 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2053 e002 | | Load 0x0,0x2 2054 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 2055 e002 | | Load 0x0,0x2 2056 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2057 01d5 | | Execute Vector,Field_Reference 2058 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2059 01cf | | Execute Vector,Slice_Read 205a 4801 |H | Short_Literal 0x1 205b e002 | | Load 0x0,0x2 205c 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 205d e002 | | Load 0x0,0x2 205e 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 205f 01d5 | | Execute Vector,Field_Reference 2060 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2061 e002 | | Load 0x0,0x2 2062 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2063 e002 | | Load 0x0,0x2 2064 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2065 01d7 | | Execute Vector,Field_Read 2066 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 2067 01ce | | Execute Vector,Slice_Write 2068 4800 |H | Short_Literal 0x0 2069 a40a | | Store_Unchecked 0x2,0xa 206a e40a | | Load 0x2,0xa 206b 00e2 | | Load_Encached Integer_Cache 206c e40b | | Load 0x2,0xb 206d 00e2 | | Load_Encached Integer_Cache 206e e40d | | Load 0x2,0xd 206f e210 | | Load 0x1,0x10 2070 e212 | | Load 0x1,0x12 2071 4801 |H | Short_Literal 0x1 2072 e002 | | Load 0x0,0x2 2073 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2074 e002 | | Load 0x0,0x2 2075 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2076 01d5 | | Execute Vector,Field_Reference 2077 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2078 e002 | | Load 0x0,0x2 2079 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 207a e002 | | Load 0x0,0x2 207b 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 207c 01d5 | | Execute Vector,Field_Reference 207d 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 207e 01cf | | Execute Vector,Slice_Read 207f 8219 | | Call 0x1,0x19 2080 00d1 | | Pop_Control Pop_Count_1 2081 c40e | | Store 0x2,0xe 2082 00d1 | | Pop_Control Pop_Count_1 2083 c40c | | Store 0x2,0xc 2084 c40a | | Store 0x2,0xa 2085 e40a | | Load 0x2,0xa 2086 0f01 | | Execute_Immediate Equal,0x1 2087 68cd |h | Jump_Zero 0x2155 2088 e5f8 | | Load 0x2,-0x8 2089 0c01 | | Execute_Immediate Greater_Equal,0x1 208a 6844 |hD | Jump_Zero 0x20cf 208b e40c | | Load 0x2,0xc 208c e002 | | Load 0x0,0x2 208d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 208e e5f8 | | Load 0x2,-0x8 208f e002 | | Load 0x0,0x2 2090 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2091 01d5 | | Execute Vector,Field_Reference 2092 01d5 | | Execute Vector,Field_Reference 2093 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2094 027d | } | Execute Discrete,Greater 2095 6809 |h | Jump_Zero 0x209f 2096 e002 | | Load 0x0,0x2 2097 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 2098 e5f8 | | Load 0x2,-0x8 2099 e002 | | Load 0x0,0x2 209a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 209b 01d5 | | Execute Vector,Field_Reference 209c 01d5 | | Execute Vector,Field_Reference 209d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 209e a40c | | Store_Unchecked 0x2,0xc 209f 4801 |H | Short_Literal 0x1 20a0 e40c | | Load 0x2,0xc 20a1 e40b | | Load 0x2,0xb 20a2 01cf | | Execute Vector,Slice_Read 20a3 4801 |H | Short_Literal 0x1 20a4 e40c | | Load 0x2,0xc 20a5 e002 | | Load 0x0,0x2 20a6 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 20a7 e5f8 | | Load 0x2,-0x8 20a8 e002 | | Load 0x0,0x2 20a9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20aa 01d7 | | Execute Vector,Field_Read 20ab 01d7 | | Execute Vector,Field_Read 20ac 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 20ad 01ce | | Execute Vector,Slice_Write 20ae e40c | | Load 0x2,0xc 20af e002 | | Load 0x0,0x2 20b0 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 20b1 e5f8 | | Load 0x2,-0x8 20b2 e002 | | Load 0x0,0x2 20b3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20b4 01d5 | | Execute Vector,Field_Reference 20b5 01d5 | | Execute Vector,Field_Reference 20b6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 20b7 4801 |H | Short_Literal 0x1 20b8 e40c | | Load 0x2,0xc 20b9 e40b | | Load 0x2,0xb 20ba 01cf | | Execute Vector,Slice_Read 20bb 4801 |H | Short_Literal 0x1 20bc e40c | | Load 0x2,0xc 20bd e002 | | Load 0x0,0x2 20be 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 20bf e5f8 | | Load 0x2,-0x8 20c0 e002 | | Load 0x0,0x2 20c1 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20c2 01d7 | | Execute Vector,Field_Read 20c3 01d7 | | Execute Vector,Field_Read 20c4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 20c5 01ce | | Execute Vector,Slice_Write 20c6 e40c | | Load 0x2,0xc 20c7 e002 | | Load 0x0,0x2 20c8 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 20c9 e5f8 | | Load 0x2,-0x8 20ca e002 | | Load 0x0,0x2 20cb 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20cc 01d5 | | Execute Vector,Field_Reference 20cd 01d5 | | Execute Vector,Field_Reference 20ce 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 20cf e5f9 | | Load 0x2,-0x7 20d0 0c01 | | Execute_Immediate Greater_Equal,0x1 20d1 6844 |hD | Jump_Zero 0x2116 20d2 e40e | | Load 0x2,0xe 20d3 e002 | | Load 0x0,0x2 20d4 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 20d5 e5f9 | | Load 0x2,-0x7 20d6 e002 | | Load 0x0,0x2 20d7 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20d8 01d5 | | Execute Vector,Field_Reference 20d9 01d5 | | Execute Vector,Field_Reference 20da 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 20db 027d | } | Execute Discrete,Greater 20dc 6809 |h | Jump_Zero 0x20e6 20dd e002 | | Load 0x0,0x2 20de 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 20df e5f9 | | Load 0x2,-0x7 20e0 e002 | | Load 0x0,0x2 20e1 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20e2 01d5 | | Execute Vector,Field_Reference 20e3 01d5 | | Execute Vector,Field_Reference 20e4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 20e5 a40e | | Store_Unchecked 0x2,0xe 20e6 4801 |H | Short_Literal 0x1 20e7 e40e | | Load 0x2,0xe 20e8 e40d | | Load 0x2,0xd 20e9 01cf | | Execute Vector,Slice_Read 20ea 4801 |H | Short_Literal 0x1 20eb e40e | | Load 0x2,0xe 20ec e002 | | Load 0x0,0x2 20ed 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 20ee e5f9 | | Load 0x2,-0x7 20ef e002 | | Load 0x0,0x2 20f0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20f1 01d7 | | Execute Vector,Field_Read 20f2 01d7 | | Execute Vector,Field_Read 20f3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 20f4 01ce | | Execute Vector,Slice_Write 20f5 e40e | | Load 0x2,0xe 20f6 e002 | | Load 0x0,0x2 20f7 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 20f8 e5f9 | | Load 0x2,-0x7 20f9 e002 | | Load 0x0,0x2 20fa 1b90 | | Execute Package,Field_Read,Field_Number 0x90 20fb 01d5 | | Execute Vector,Field_Reference 20fc 01d5 | | Execute Vector,Field_Reference 20fd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 20fe 4801 |H | Short_Literal 0x1 20ff e40e | | Load 0x2,0xe 2100 e40d | | Load 0x2,0xd 2101 01cf | | Execute Vector,Slice_Read 2102 4801 |H | Short_Literal 0x1 2103 e40e | | Load 0x2,0xe 2104 e002 | | Load 0x0,0x2 2105 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 2106 e5f9 | | Load 0x2,-0x7 2107 e002 | | Load 0x0,0x2 2108 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2109 01d7 | | Execute Vector,Field_Read 210a 01d7 | | Execute Vector,Field_Read 210b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 210c 01ce | | Execute Vector,Slice_Write 210d e40e | | Load 0x2,0xe 210e e002 | | Load 0x0,0x2 210f 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 2110 e5f9 | | Load 0x2,-0x7 2111 e002 | | Load 0x0,0x2 2112 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2113 01d5 | | Execute Vector,Field_Reference 2114 01d5 | | Execute Vector,Field_Reference 2115 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 2116 e40e | | Load 0x2,0xe 2117 e002 | | Load 0x0,0x2 2118 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2119 e002 | | Load 0x0,0x2 211a 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 211b 01d5 | | Execute Vector,Field_Reference 211c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 211d 4801 |H | Short_Literal 0x1 211e e40e | | Load 0x2,0xe 211f e40d | | Load 0x2,0xd 2120 01cf | | Execute Vector,Slice_Read 2121 4801 |H | Short_Literal 0x1 2122 e40e | | Load 0x2,0xe 2123 e002 | | Load 0x0,0x2 2124 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2125 e002 | | Load 0x0,0x2 2126 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2127 01d7 | | Execute Vector,Field_Read 2128 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 2129 01ce | | Execute Vector,Slice_Write 212a e40e | | Load 0x2,0xe 212b e002 | | Load 0x0,0x2 212c 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 212d e002 | | Load 0x0,0x2 212e 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 212f 01d5 | | Execute Vector,Field_Reference 2130 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 2131 4801 |H | Short_Literal 0x1 2132 e40e | | Load 0x2,0xe 2133 e40d | | Load 0x2,0xd 2134 01cf | | Execute Vector,Slice_Read 2135 4801 |H | Short_Literal 0x1 2136 e40e | | Load 0x2,0xe 2137 e002 | | Load 0x0,0x2 2138 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 2139 e002 | | Load 0x0,0x2 213a 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 213b 01d7 | | Execute Vector,Field_Read 213c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 213d 01ce | | Execute Vector,Slice_Write 213e 4800 |H | Short_Literal 0x0 213f 4803 |H | Short_Literal 0x3 2140 0092 6490 | d | Action Push_String_Extended,0x6490 ; " [Machine Alias Name => " 2142 4801 |H | Short_Literal 0x1 2143 e40e | | Load 0x2,0xe 2144 e40d | | Load 0x2,0xd 2145 01cf | | Execute Vector,Slice_Read 2146 01cc | | Execute Vector,Catenate 2147 0092 6491 | d | Action Push_String_Extended,0x6491 ; ", SystemID => " 2149 01cc | | Execute Vector,Catenate 214a 4801 |H | Short_Literal 0x1 214b e40c | | Load 0x2,0xc 214c e40b | | Load 0x2,0xb 214d 01cf | | Execute Vector,Slice_Read 214e 01cc | | Execute Vector,Catenate 214f 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 2151 01cc | | Execute Vector,Catenate 2152 e001 | | Load 0x0,0x1 2153 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2154 78dc |x | Jump 0x2231 2155 e5f7 | | Load 0x2,-0x9 2156 0f01 | | Execute_Immediate Equal,0x1 2157 e402 | | Load 0x2,0x2 2158 0f01 | | Execute_Immediate Equal,0x1 2159 0279 | y | Execute Discrete,And 215a e5f7 | | Load 0x2,-0x9 215b 0f00 | | Execute_Immediate Equal,0x0 215c e403 | | Load 0x2,0x3 215d e5fc | | Load 0x2,-0x4 215e 027f | | Execute Discrete,Equal 215f 0279 | y | Execute Discrete,And 2160 0278 | x | Execute Discrete,Or 2161 681e |h | Jump_Zero 0x2180 2162 4800 |H | Short_Literal 0x0 2163 a40a | | Store_Unchecked 0x2,0xa 2164 00e1 | | Load_Encached Boolean_Cache 2165 4801 |H | Short_Literal 0x1 2166 4fff |O | Short_Literal -0x1 2167 e5f2 | | Load 0x2,-0xe 2168 4fff |O | Short_Literal -0x1 2169 4801 |H | Short_Literal 0x1 216a e002 | | Load 0x0,0x2 216b 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 216c e002 | | Load 0x0,0x2 216d 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 216e 01d5 | | Execute Vector,Field_Reference 216f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2170 e002 | | Load 0x0,0x2 2171 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2172 e002 | | Load 0x0,0x2 2173 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2174 01d5 | | Execute Vector,Field_Reference 2175 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2176 01cf | | Execute Vector,Slice_Read 2177 e001 | | Load 0x0,0x1 2178 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 2179 c40a | | Store 0x2,0xa 217a e40a | | Load 0x2,0xa 217b 0f01 | | Execute_Immediate Equal,0x1 217c 6803 |h | Jump_Zero 0x2180 217d 4801 |H | Short_Literal 0x1 217e a5f0 | | Store_Unchecked 0x2,-0x10 217f 4510 |E | Exit_Suprogram New_Top_Offset 0x10 2180 4801 |H | Short_Literal 0x1 2181 4801 |H | Short_Literal 0x1 2182 e002 | | Load 0x0,0x2 2183 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2184 e002 | | Load 0x0,0x2 2185 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 2186 01d5 | | Execute Vector,Field_Reference 2187 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2188 01cf | | Execute Vector,Slice_Read 2189 0092 648c | d | Action Push_String_Extended,0x648c ; "?" 218b 01de | | Execute Vector,Not_Equal 218c 6808 |h | Jump_Zero 0x2195 218d 4800 |H | Short_Literal 0x0 218e 4803 |H | Short_Literal 0x3 218f 0092 6492 | d | Action Push_String_Extended,0x6492 ; "Invalid machine name entered, Please use one of the following:" 2191 e001 | | Load 0x0,0x1 2192 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2193 e001 | | Load 0x0,0x1 2194 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2195 4800 |H | Short_Literal 0x0 2196 4803 |H | Short_Literal 0x3 2197 0092 6493 | d | Action Push_String_Extended,0x6493 ; " Machine Alias Names: System ID: " 2199 e001 | | Load 0x0,0x1 219a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 219b 4800 |H | Short_Literal 0x0 219c 4803 |H | Short_Literal 0x3 219d 0092 6494 | d | Action Push_String_Extended,0x6494 ; " -------------------- ---------- " 219f e001 | | Load 0x0,0x1 21a0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 21a1 4fff |O | Short_Literal -0x1 21a2 a410 | | Store_Unchecked 0x2,0x10 21a3 00cf | | Action Mark_Auxiliary 21a4 e210 | | Load 0x1,0x10 21a5 09ff | | Execute_Immediate Binary_Scale,-0x1 21a6 4801 |H | Short_Literal 0x1 21a7 0263 | c | Execute Discrete,Above_Bound 21a8 704c |pL | Jump_Nonzero 0x21f5 21a9 e410 | | Load 0x2,0x10 21aa 0a02 | | Execute_Immediate Plus,0x2 21ab 0248 | H | Execute Discrete,Check_In_Integer 21ac a410 | | Store_Unchecked 0x2,0x10 21ad e410 | | Load 0x2,0x10 21ae e212 | | Load 0x1,0x12 21af 01d5 | | Execute Vector,Field_Reference 21b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 21b1 a40c | | Store_Unchecked 0x2,0xc 21b2 e40c | | Load 0x2,0xc 21b3 0c1f | | Execute_Immediate Greater_Equal,0x1f 21b4 6802 |h | Jump_Zero 0x21b7 21b5 481e |H | Short_Literal 0x1e 21b6 a40c | | Store_Unchecked 0x2,0xc 21b7 4801 |H | Short_Literal 0x1 21b8 e40c | | Load 0x2,0xc 21b9 e410 | | Load 0x2,0x10 21ba e212 | | Load 0x1,0x12 21bb 01d5 | | Execute Vector,Field_Reference 21bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 21bd 01cf | | Execute Vector,Slice_Read 21be 4801 |H | Short_Literal 0x1 21bf e40c | | Load 0x2,0xc 21c0 e40b | | Load 0x2,0xb 21c1 01ce | | Execute Vector,Slice_Write 21c2 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 21c4 4801 |H | Short_Literal 0x1 21c5 e40c | | Load 0x2,0xc 21c6 e40b | | Load 0x2,0xb 21c7 01cf | | Execute Vector,Slice_Read 21c8 01cc | | Execute Vector,Catenate 21c9 4801 |H | Short_Literal 0x1 21ca 481e |H | Short_Literal 0x1e 21cb e40c | | Load 0x2,0xc 21cc 0272 | r | Execute Discrete,Minus 21cd 0248 | H | Execute Discrete,Check_In_Integer 21ce e002 | | Load 0x0,0x2 21cf 1b20 | | Execute Package,Field_Read,Field_Number 0x20 21d0 01cf | | Execute Vector,Slice_Read 21d1 01cc | | Execute Vector,Catenate 21d2 e001 | | Load 0x0,0x1 21d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 21d4 e410 | | Load 0x2,0x10 21d5 0a01 | | Execute_Immediate Plus,0x1 21d6 0248 | H | Execute Discrete,Check_In_Integer 21d7 e212 | | Load 0x1,0x12 21d8 01d5 | | Execute Vector,Field_Reference 21d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 21da a40c | | Store_Unchecked 0x2,0xc 21db 4801 |H | Short_Literal 0x1 21dc e40c | | Load 0x2,0xc 21dd e410 | | Load 0x2,0x10 21de 0a01 | | Execute_Immediate Plus,0x1 21df 0248 | H | Execute Discrete,Check_In_Integer 21e0 e212 | | Load 0x1,0x12 21e1 01d5 | | Execute Vector,Field_Reference 21e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 21e3 01cf | | Execute Vector,Slice_Read 21e4 4801 |H | Short_Literal 0x1 21e5 e40c | | Load 0x2,0xc 21e6 e40b | | Load 0x2,0xb 21e7 01ce | | Execute Vector,Slice_Write 21e8 0092 6495 | d | Action Push_String_Extended,0x6495 ; " " 21ea 4801 |H | Short_Literal 0x1 21eb e40c | | Load 0x2,0xc 21ec e40b | | Load 0x2,0xb 21ed 01cf | | Execute Vector,Slice_Read 21ee 01cc | | Execute Vector,Catenate 21ef e001 | | Load 0x0,0x1 21f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 21f1 e001 | | Load 0x0,0x1 21f2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 21f3 00c8 | | Action Pop_Auxiliary_Range 21f4 3fb4 |? | Loop_Increasing 0x21a9 21f5 00ce | | Action Pop_Auxiliary 21f6 7838 |x8 | Jump 0x222f 21f7 e5f5 | | Load 0x2,-0xb 21f8 0c01 | | Execute_Immediate Greater_Equal,0x1 21f9 e403 | | Load 0x2,0x3 21fa e5f5 | | Load 0x2,-0xb 21fb 027f | | Execute Discrete,Equal 21fc 0279 | y | Execute Discrete,And 21fd 6833 |h3 | Jump_Zero 0x2231 21fe 4800 |H | Short_Literal 0x0 21ff a40a | | Store_Unchecked 0x2,0xa 2200 00e1 | | Load_Encached Boolean_Cache 2201 4801 |H | Short_Literal 0x1 2202 4fff |O | Short_Literal -0x1 2203 4801 |H | Short_Literal 0x1 2204 e5f4 | | Load 0x2,-0xc 2205 01db | | Execute Vector,Length 2206 e002 | | Load 0x0,0x2 2207 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 2208 e002 | | Load 0x0,0x2 2209 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 220a 01d5 | | Execute Vector,Field_Reference 220b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 220c 01cf | | Execute Vector,Slice_Read 220d 4fff |O | Short_Literal -0x1 220e e5f4 | | Load 0x2,-0xc 220f e001 | | Load 0x0,0x1 2210 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 2211 c40a | | Store 0x2,0xa 2212 e40a | | Load 0x2,0xa 2213 0f01 | | Execute_Immediate Equal,0x1 2214 681c |h | Jump_Zero 0x2231 2215 e40f | | Load 0x2,0xf 2216 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2218 4803 |H | Short_Literal 0x3 2219 0092 6496 | d | Action Push_String_Extended,0x6496 ; "Are you sure? (y=yes, n=no)" 221b e001 | | Load 0x0,0x1 221c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 221d 00d1 | | Pop_Control Pop_Count_1 221e 4801 |H | Short_Literal 0x1 221f 4801 |H | Short_Literal 0x1 2220 e40f | | Load 0x2,0xf 2221 01cf | | Execute Vector,Slice_Read 2222 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2224 01df | | Execute Vector,Equal 2225 6801 |h | Jump_Zero 0x2227 2226 780a |x | Jump 0x2231 2227 e001 | | Load 0x0,0x1 2228 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2229 e002 | | Load 0x0,0x2 222a 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 222b 7003 |p | Jump_Nonzero 0x222f 222c e001 | | Load 0x0,0x1 222d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 222e 7800 |x | Jump 0x222f 222f 00c9 | | Action Pop_Auxiliary_Loop 2230 7d3f |}? | Jump 0x1f70 2231 00ce | | Action Pop_Auxiliary 2232 e405 | | Load 0x2,0x5 2233 0092 648d | d | Action Push_String_Extended,0x648d ; "," 2235 01df | | Execute Vector,Equal 2236 6803 |h | Jump_Zero 0x223a 2237 4800 |H | Short_Literal 0x0 2238 a402 | | Store_Unchecked 0x2,0x2 2239 783c |x< | Jump 0x2276 223a e405 | | Load 0x2,0x5 223b 0092 648f | d | Action Push_String_Extended,0x648f ; "^" 223d 01df | | Execute Vector,Equal 223e 680b |h | Jump_Zero 0x224a 223f e402 | | Load 0x2,0x2 2240 0d02 | | Execute_Immediate Less,0x2 2241 6803 |h | Jump_Zero 0x2245 2242 4800 |H | Short_Literal 0x0 2243 a402 | | Store_Unchecked 0x2,0x2 2244 7831 |x1 | Jump 0x2276 2245 e402 | | Load 0x2,0x2 2246 0afe | | Execute_Immediate Plus,-0x2 2247 0248 | H | Execute Discrete,Check_In_Integer 2248 a402 | | Store_Unchecked 0x2,0x2 2249 782c |x, | Jump 0x2276 224a e405 | | Load 0x2,0x5 224b 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 224d 01df | | Execute Vector,Equal 224e 6812 |h | Jump_Zero 0x2261 224f e406 | | Load 0x2,0x6 2250 4801 |H | Short_Literal 0x1 2251 4803 |H | Short_Literal 0x3 2252 0092 6497 | d | Action Push_String_Extended,0x6497 ; "Please select sequential item number to edit: " 2254 e001 | | Load 0x0,0x1 2255 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 2256 c406 | | Store 0x2,0x6 2257 e406 | | Load 0x2,0x6 2258 0d01 | | Execute_Immediate Less,0x1 2259 6802 |h | Jump_Zero 0x225c 225a 4801 |H | Short_Literal 0x1 225b a406 | | Store_Unchecked 0x2,0x6 225c e406 | | Load 0x2,0x6 225d 0aff | | Execute_Immediate Plus,-0x1 225e 0248 | H | Execute Discrete,Check_In_Integer 225f a402 | | Store_Unchecked 0x2,0x2 2260 7815 |x | Jump 0x2276 2261 e405 | | Load 0x2,0x5 2262 0092 648e | d | Action Push_String_Extended,0x648e ; "/" 2264 01df | | Execute Vector,Equal 2265 6803 |h | Jump_Zero 0x2269 2266 4800 |H | Short_Literal 0x0 2267 a5f0 | | Store_Unchecked 0x2,-0x10 2268 4510 |E | Exit_Suprogram New_Top_Offset 0x10 2269 e403 | | Load 0x2,0x3 226a a404 | | Store_Unchecked 0x2,0x4 226b e404 | | Load 0x2,0x4 226c 4800 |H | Short_Literal 0x0 226d 824d | M | Call 0x1,0x4d 226e c404 | | Store 0x2,0x4 226f e403 | | Load 0x2,0x3 2270 e404 | | Load 0x2,0x4 2271 027f | | Execute Discrete,Equal 2272 6801 |h | Jump_Zero 0x2274 2273 7802 |x | Jump 0x2276 2274 00c9 | | Action Pop_Auxiliary_Loop 2275 7cf8 || | Jump 0x1f6e 2276 00ce | | Action Pop_Auxiliary 2277 00c9 | | Action Pop_Auxiliary_Loop 2278 7c61 ||a | Jump 0x1eda 2279 TRAP_1e80: 2279 0007 | | Action Break_Optional 227a 4800 |H | Short_Literal 0x0 227b 4801 |H | Short_Literal 0x1 227c 0092 6498 | d | Action Push_String_Extended,0x6498 ; "Exception in ap_select_edit_record." 227e e001 | | Load 0x0,0x1 227f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2280 4510 |E | Exit_Suprogram New_Top_Offset 0x10 2281 0000 0000 | | .XXX[0x3] 2283 0000 | | ; See at 0x1e8d 2284 2020 2020 | | .BLANK 2020[0x4] 2288 ; -------------------------------------------------------------------------------------- 2288 ; SUBPROGRAM 2288 ; -------------------------------------------------------------------------------------- 2288 228d |" | .CONST 0x228d ; Address of begin 2289 228f |" | .CONST 0x228f ; Address of exception handler 228a 0002 | | .CONST 0x0002 ; Number of locals 228b INIT_2288: 228b 029f 532b | S+| Declare_Subprogram INIT_5328,For_Call 228d BODY_2288: 228d 8402 | | Call 0x2,0x2 228e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 228f TRAP_2288: 228f 0007 | | Action Break_Optional 2290 4800 |H | Short_Literal 0x0 2291 4801 |H | Short_Literal 0x1 2292 0092 6499 | d | Action Push_String_Extended,0x6499 ; "Exception in ap_edit_item_input." 2294 e001 | | Load 0x0,0x1 2295 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2296 4504 |E | Exit_Suprogram New_Top_Offset 0x4 2297 0000 | | .XXX[0x1] 2298 ; -------------------------------------------------------------------------------------- 2298 ; SUBPROGRAM 2298 ; -------------------------------------------------------------------------------------- 2298 229d |" | .CONST 0x229d ; Address of begin 2299 229f |" | .CONST 0x229f ; Address of exception handler 229a 0002 | | .CONST 0x0002 ; Number of locals 229b INIT_2298: 229b 029f 535b | S[| Declare_Subprogram INIT_5358,For_Call 229d BODY_2298: 229d 8402 | | Call 0x2,0x2 229e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 229f TRAP_2298: 229f 0007 | | Action Break_Optional 22a0 4800 |H | Short_Literal 0x0 22a1 4801 |H | Short_Literal 0x1 22a2 0092 649a | d | Action Push_String_Extended,0x649a ; "Exception in ap_edit_item_show_choices." 22a4 e001 | | Load 0x0,0x1 22a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 22a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 22a7 0000 | | .XXX[0x1] 22a8 ; -------------------------------------------------------------------------------------- 22a8 ; SUBPROGRAM 22a8 ; -------------------------------------------------------------------------------------- 22a8 22ad |" | .CONST 0x22ad ; Address of begin 22a9 0004 | | .CONST 0x0004 ; Address of exception handler 22aa 0002 | | .CONST 0x0002 ; Number of locals 22ab INIT_22a8: 22ab 029f 53db | S | Declare_Subprogram INIT_53d8,For_Call 22ad BODY_22a8: 22ad 8402 | | Call 0x2,0x2 22ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 22af 0000 | | .XXX[0x1] 22b0 ; -------------------------------------------------------------------------------------- 22b0 ; SUBPROGRAM 22b0 ; -------------------------------------------------------------------------------------- 22b0 22b5 |" | .CONST 0x22b5 ; Address of begin 22b1 22b7 |" | .CONST 0x22b7 ; Address of exception handler 22b2 0002 | | .CONST 0x0002 ; Number of locals 22b3 INIT_22b0: 22b3 029f 542b | T+| Declare_Subprogram INIT_5428,For_Call 22b5 BODY_22b0: 22b5 8402 | | Call 0x2,0x2 22b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 22b7 TRAP_22b0: 22b7 0007 | | Action Break_Optional 22b8 4800 |H | Short_Literal 0x0 22b9 4801 |H | Short_Literal 0x1 22ba 0092 649b | d | Action Push_String_Extended,0x649b ; "Exception in ap_edit_item_select." 22bc e001 | | Load 0x0,0x1 22bd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 22be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 22bf 0000 | | .XXX[0x1] 22c0 ; -------------------------------------------------------------------------------------- 22c0 ; SUBPROGRAM 22c0 ; -------------------------------------------------------------------------------------- 22c0 22c5 |" | .CONST 0x22c5 ; Address of begin 22c1 22c7 |" | .CONST 0x22c7 ; Address of exception handler 22c2 0002 | | .CONST 0x0002 ; Number of locals 22c3 INIT_22c0: 22c3 029f 546b | Tk| Declare_Subprogram INIT_5468,For_Call 22c5 BODY_22c0: 22c5 8402 | | Call 0x2,0x2 22c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 22c7 TRAP_22c0: 22c7 0007 | | Action Break_Optional 22c8 4800 |H | Short_Literal 0x0 22c9 4801 |H | Short_Literal 0x1 22ca 0092 649c | d | Action Push_String_Extended,0x649c ; "Exception in ap_edit_item_backup." 22cc e001 | | Load 0x0,0x1 22cd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 22ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3 22cf 0000 | | .XXX[0x1] 22d0 ; -------------------------------------------------------------------------------------- 22d0 ; SUBPROGRAM 22d0 ; -------------------------------------------------------------------------------------- 22d0 22d3 |" | .CONST 0x22d3 ; Address of begin 22d1 22e5 |" | .CONST 0x22e5 ; Address of exception handler 22d2 0001 | | .CONST 0x0001 ; Number of locals 22d3 BODY_22d0: 22d3 INIT_22d0: 22d3 e5fd | | Load 0x2,-0x3 22d4 0092 648d | d | Action Push_String_Extended,0x648d ; "," 22d6 01df | | Execute Vector,Equal 22d7 6805 |h | Jump_Zero 0x22dd 22d8 e5ff | | Load 0x2,-0x1 22d9 0aff | | Execute_Immediate Plus,-0x1 22da 0248 | H | Execute Discrete,Check_In_Integer 22db a5fc | | Store_Unchecked 0x2,-0x4 22dc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 22dd e5fd | | Load 0x2,-0x3 22de 0092 648e | d | Action Push_String_Extended,0x648e ; "/" 22e0 01df | | Execute Vector,Equal 22e1 6802 |h | Jump_Zero 0x22e4 22e2 e5fe | | Load 0x2,-0x2 22e3 a5fc | | Store_Unchecked 0x2,-0x4 22e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 22e5 TRAP_22d0: 22e5 0007 | | Action Break_Optional 22e6 4800 |H | Short_Literal 0x0 22e7 4801 |H | Short_Literal 0x1 22e8 0092 649d | d | Action Push_String_Extended,0x649d ; "Exception in ap_edit_item_restart_or_exit." 22ea e001 | | Load 0x0,0x1 22eb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 22ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 22ed 0000 0000 | | .XXX[0x3] 22ef 0000 | | 22f0 ; -------------------------------------------------------------------------------------- 22f0 ; SUBPROGRAM 22f0 ; -------------------------------------------------------------------------------------- 22f0 22f5 |" | .CONST 0x22f5 ; Address of begin 22f1 0004 | | .CONST 0x0004 ; Address of exception handler 22f2 0002 | | .CONST 0x0002 ; Number of locals 22f3 INIT_22f0: 22f3 029f 549b | T | Declare_Subprogram INIT_5498,For_Call 22f5 BODY_22f0: 22f5 8402 | | Call 0x2,0x2 22f6 450b |E | Exit_Suprogram New_Top_Offset 0xb 22f7 0000 | | .XXX[0x1] 22f8 ; -------------------------------------------------------------------------------------- 22f8 ; SUBPROGRAM 22f8 ; -------------------------------------------------------------------------------------- 22f8 22fb |" | .CONST 0x22fb ; Address of begin 22f9 23aa |# | .CONST 0x23aa ; Address of exception handler 22fa 0001 | | .CONST 0x0001 ; Number of locals 22fb BODY_22f8: 22fb INIT_22f8: 22fb e5f6 | | Load 0x2,-0xa 22fc e5f8 | | Load 0x2,-0x8 22fd e5f9 | | Load 0x2,-0x7 22fe e5fa | | Load 0x2,-0x6 22ff e5fb | | Load 0x2,-0x5 2300 e5fc | | Load 0x2,-0x4 2301 e5fd | | Load 0x2,-0x3 2302 e5fe | | Load 0x2,-0x2 2303 e002 | | Load 0x0,0x2 2304 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2305 e5ff | | Load 0x2,-0x1 2306 8251 | Q | Call 0x1,0x51 2307 4be7 |K | Short_Literal 0x3e7 2308 4802 |H | Short_Literal 0x2 2309 4be7 |K | Short_Literal 0x3e7 230a 4802 |H | Short_Literal 0x2 230b 4802 |H | Short_Literal 0x2 230c 4be7 |K | Short_Literal 0x3e7 230d 4be7 |K | Short_Literal 0x3e7 230e e5f5 | | Load 0x2,-0xb 230f e002 | | Load 0x0,0x2 2310 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 2311 e5ff | | Load 0x2,-0x1 2312 8251 | Q | Call 0x1,0x51 2313 4be7 |K | Short_Literal 0x3e7 2314 4802 |H | Short_Literal 0x2 2315 4be7 |K | Short_Literal 0x3e7 2316 4802 |H | Short_Literal 0x2 2317 4802 |H | Short_Literal 0x2 2318 4be7 |K | Short_Literal 0x3e7 2319 4be7 |K | Short_Literal 0x3e7 231a e5f4 | | Load 0x2,-0xc 231b e002 | | Load 0x0,0x2 231c 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 231d e5ff | | Load 0x2,-0x1 231e 8251 | Q | Call 0x1,0x51 231f e5f3 | | Load 0x2,-0xd 2320 4802 |H | Short_Literal 0x2 2321 4be7 |K | Short_Literal 0x3e7 2322 4802 |H | Short_Literal 0x2 2323 4802 |H | Short_Literal 0x2 2324 4be7 |K | Short_Literal 0x3e7 2325 4be7 |K | Short_Literal 0x3e7 2326 0092 649e | d | Action Push_String_Extended,0x649e ; "\x5cdefault\x5c" 2328 e002 | | Load 0x0,0x2 2329 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 232a e5ff | | Load 0x2,-0x1 232b 8251 | Q | Call 0x1,0x51 232c 4be7 |K | Short_Literal 0x3e7 232d 4802 |H | Short_Literal 0x2 232e 4be7 |K | Short_Literal 0x3e7 232f 4802 |H | Short_Literal 0x2 2330 4802 |H | Short_Literal 0x2 2331 4be7 |K | Short_Literal 0x3e7 2332 4be7 |K | Short_Literal 0x3e7 2333 e5f2 | | Load 0x2,-0xe 2334 e002 | | Load 0x0,0x2 2335 1b5b | [ | Execute Package,Field_Read,Field_Number 0x5b 2336 e5ff | | Load 0x2,-0x1 2337 8251 | Q | Call 0x1,0x51 2338 4be7 |K | Short_Literal 0x3e7 2339 4802 |H | Short_Literal 0x2 233a 4be7 |K | Short_Literal 0x3e7 233b 4802 |H | Short_Literal 0x2 233c 4802 |H | Short_Literal 0x2 233d 4be7 |K | Short_Literal 0x3e7 233e 4be7 |K | Short_Literal 0x3e7 233f e5f1 | | Load 0x2,-0xf 2340 e002 | | Load 0x0,0x2 2341 1b5c | \ | Execute Package,Field_Read,Field_Number 0x5c 2342 e5ff | | Load 0x2,-0x1 2343 8251 | Q | Call 0x1,0x51 2344 4be7 |K | Short_Literal 0x3e7 2345 4802 |H | Short_Literal 0x2 2346 4be7 |K | Short_Literal 0x3e7 2347 4802 |H | Short_Literal 0x2 2348 4802 |H | Short_Literal 0x2 2349 4be7 |K | Short_Literal 0x3e7 234a 4be7 |K | Short_Literal 0x3e7 234b e5f0 | | Load 0x2,-0x10 234c e002 | | Load 0x0,0x2 234d 1b5d | ] | Execute Package,Field_Read,Field_Number 0x5d 234e e5ff | | Load 0x2,-0x1 234f 8251 | Q | Call 0x1,0x51 2350 4be7 |K | Short_Literal 0x3e7 2351 4802 |H | Short_Literal 0x2 2352 4be7 |K | Short_Literal 0x3e7 2353 4802 |H | Short_Literal 0x2 2354 4802 |H | Short_Literal 0x2 2355 4be7 |K | Short_Literal 0x3e7 2356 4be7 |K | Short_Literal 0x3e7 2357 e5ef | | Load 0x2,-0x11 2358 e002 | | Load 0x0,0x2 2359 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e 235a e5ff | | Load 0x2,-0x1 235b 8251 | Q | Call 0x1,0x51 235c 0007 | | Action Break_Optional 235d 4be7 |K | Short_Literal 0x3e7 235e 4802 |H | Short_Literal 0x2 235f 4be7 |K | Short_Literal 0x3e7 2360 4802 |H | Short_Literal 0x2 2361 4802 |H | Short_Literal 0x2 2362 4800 |H | Short_Literal 0x0 2363 e5fd | | Load 0x2,-0x3 2364 0092 649e | d | Action Push_String_Extended,0x649e ; "\x5cdefault\x5c" 2366 e002 | | Load 0x0,0x2 2367 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2368 e5ff | | Load 0x2,-0x1 2369 8251 | Q | Call 0x1,0x51 236a e5f7 | | Load 0x2,-0x9 236b 4be7 |K | Short_Literal 0x3e7 236c 027e | ~ | Execute Discrete,Not_Equal 236d 683b |h; | Jump_Zero 0x23a9 236e e5f7 | | Load 0x2,-0x9 236f 7024 |p$ | Jump_Nonzero 0x2394 2370 e002 | | Load 0x0,0x2 2371 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 2372 0a01 | | Execute_Immediate Plus,0x1 2373 0248 | H | Execute Discrete,Check_In_Integer 2374 e002 | | Load 0x0,0x2 2375 1a63 | c | Execute Package,Field_Write,Field_Number 0x63 2376 4800 |H | Short_Literal 0x0 2377 e002 | | Load 0x0,0x2 2378 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 2379 e002 | | Load 0x0,0x2 237a 1b93 | | Execute Package,Field_Read,Field_Number 0x93 237b 01d5 | | Execute Vector,Field_Reference 237c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 237d e002 | | Load 0x0,0x2 237e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 237f e5ff | | Load 0x2,-0x1 2380 e002 | | Load 0x0,0x2 2381 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2382 01d7 | | Execute Vector,Field_Read 2383 01d7 | | Execute Vector,Field_Read 2384 00d8 | | Load_Top At_Offset_0 2385 4801 |H | Short_Literal 0x1 2386 4be7 |K | Short_Literal 0x3e7 2387 4802 |H | Short_Literal 0x2 2388 e002 | | Load 0x0,0x2 2389 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 238a 4802 |H | Short_Literal 0x2 238b 4802 |H | Short_Literal 0x2 238c 4be7 |K | Short_Literal 0x3e7 238d 4be7 |K | Short_Literal 0x3e7 238e 0092 649e | d | Action Push_String_Extended,0x649e ; "\x5cdefault\x5c" 2390 e002 | | Load 0x0,0x2 2391 18ae | | Execute Package,Field_Execute,Field_Number 0xae 2392 00d2 | | Pop_Control Pop_Count_2 2393 4512 |E | Exit_Suprogram New_Top_Offset 0x12 2394 e002 | | Load 0x0,0x2 2395 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2396 e5ff | | Load 0x2,-0x1 2397 e002 | | Load 0x0,0x2 2398 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2399 01d7 | | Execute Vector,Field_Read 239a 01d7 | | Execute Vector,Field_Read 239b 00d8 | | Load_Top At_Offset_0 239c 4801 |H | Short_Literal 0x1 239d 4be7 |K | Short_Literal 0x3e7 239e 4802 |H | Short_Literal 0x2 239f e5f7 | | Load 0x2,-0x9 23a0 4802 |H | Short_Literal 0x2 23a1 4802 |H | Short_Literal 0x2 23a2 4be7 |K | Short_Literal 0x3e7 23a3 4be7 |K | Short_Literal 0x3e7 23a4 0092 649e | d | Action Push_String_Extended,0x649e ; "\x5cdefault\x5c" 23a6 e002 | | Load 0x0,0x2 23a7 18ae | | Execute Package,Field_Execute,Field_Number 0xae 23a8 00d2 | | Pop_Control Pop_Count_2 23a9 4512 |E | Exit_Suprogram New_Top_Offset 0x12 23aa TRAP_22f8: 23aa 0007 | | Action Break_Optional 23ab 4800 |H | Short_Literal 0x0 23ac 4801 |H | Short_Literal 0x1 23ad 0092 649f | d | Action Push_String_Extended,0x649f ; "Exception occurred in ap_rec_all." 23af e001 | | Load 0x0,0x1 23b0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 23b1 4512 |E | Exit_Suprogram New_Top_Offset 0x12 23b2 0000 0000 | | .BLANK 0000[0x6] 23b8 ; -------------------------------------------------------------------------------------- 23b8 ; SUBPROGRAM 23b8 ; -------------------------------------------------------------------------------------- 23b8 23bd |# | .CONST 0x23bd ; Address of begin 23b9 23bf |# | .CONST 0x23bf ; Address of exception handler 23ba 0002 | | .CONST 0x0002 ; Number of locals 23bb INIT_23b8: 23bb 029f 5503 | U | Declare_Subprogram INIT_5500,For_Call 23bd BODY_23b8: 23bd 8402 | | Call 0x2,0x2 23be 450c |E | Exit_Suprogram New_Top_Offset 0xc 23bf TRAP_23b8: 23bf 0007 | | Action Break_Optional 23c0 4800 |H | Short_Literal 0x0 23c1 4801 |H | Short_Literal 0x1 23c2 0092 64a0 | d | Action Push_String_Extended,0x64a0 ; "Exception occurred in ap_load_attrib." 23c4 e001 | | Load 0x0,0x1 23c5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 23c6 450c |E | Exit_Suprogram New_Top_Offset 0xc 23c7 0000 | | .XXX[0x1] 23c8 ; -------------------------------------------------------------------------------------- 23c8 ; SUBPROGRAM 23c8 ; -------------------------------------------------------------------------------------- 23c8 23cd |# | .CONST 0x23cd ; Address of begin 23c9 23cf |# | .CONST 0x23cf ; Address of exception handler 23ca 0002 | | .CONST 0x0002 ; Number of locals 23cb INIT_23c8: 23cb 029f 552b | U+| Declare_Subprogram INIT_5528,For_Call 23cd BODY_23c8: 23cd 8402 | | Call 0x2,0x2 23ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 23cf TRAP_23c8: 23cf 0007 | | Action Break_Optional 23d0 4800 |H | Short_Literal 0x0 23d1 4801 |H | Short_Literal 0x1 23d2 0092 64a1 | d | Action Push_String_Extended,0x64a1 ; "Exception occurred in ap_load_mask." 23d4 e001 | | Load 0x0,0x1 23d5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 23d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 23d7 0000 | | .XXX[0x1] 23d8 ; -------------------------------------------------------------------------------------- 23d8 ; SUBPROGRAM 23d8 ; -------------------------------------------------------------------------------------- 23d8 23dd |# | .CONST 0x23dd ; Address of begin 23d9 23df |# | .CONST 0x23df ; Address of exception handler 23da 0002 | | .CONST 0x0002 ; Number of locals 23db INIT_23d8: 23db 029f 557b | U{| Declare_Subprogram INIT_5578,For_Call 23dd BODY_23d8: 23dd 8402 | | Call 0x2,0x2 23de 4503 |E | Exit_Suprogram New_Top_Offset 0x3 23df TRAP_23d8: 23df 0007 | | Action Break_Optional 23e0 4800 |H | Short_Literal 0x0 23e1 4801 |H | Short_Literal 0x1 23e2 0092 64a2 | d | Action Push_String_Extended,0x64a2 ; "Exception occurred in ap_record_get_field." 23e4 e001 | | Load 0x0,0x1 23e5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 23e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 23e7 0000 | | .XXX[0x1] 23e8 ; -------------------------------------------------------------------------------------- 23e8 ; SUBPROGRAM 23e8 ; -------------------------------------------------------------------------------------- 23e8 23ef |# | .CONST 0x23ef ; Address of begin 23e9 2437 |$7 | .CONST 0x2437 ; Address of exception handler 23ea 0003 | | .CONST 0x0003 ; Number of locals 23eb INIT_23e8: 23eb 00e2 | | Load_Encached Integer_Cache 23ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 23ed 00e2 | | Load_Encached Integer_Cache 23ee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 23ef BODY_23e8: 23ef 4801 |H | Short_Literal 0x1 23f0 e5fd | | Load 0x2,-0x3 23f1 01db | | Execute Vector,Length 23f2 e002 | | Load 0x0,0x2 23f3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 23f4 01cf | | Execute Vector,Slice_Read 23f5 4801 |H | Short_Literal 0x1 23f6 e5fd | | Load 0x2,-0x3 23f7 01db | | Execute Vector,Length 23f8 e5fd | | Load 0x2,-0x3 23f9 01ce | | Execute Vector,Slice_Write 23fa e002 | | Load 0x0,0x2 23fb 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 23fc e5ff | | Load 0x2,-0x1 23fd e002 | | Load 0x0,0x2 23fe 1b90 | | Execute Package,Field_Read,Field_Number 0x90 23ff 01d5 | | Execute Vector,Field_Reference 2400 01d5 | | Execute Vector,Field_Reference 2401 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2402 6831 |h1 | Jump_Zero 0x2434 2403 e5fe | | Load 0x2,-0x2 2404 e5ff | | Load 0x2,-0x1 2405 e002 | | Load 0x0,0x2 2406 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2407 01d5 | | Execute Vector,Field_Reference 2408 01d5 | | Execute Vector,Field_Reference 2409 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 240a a402 | | Store_Unchecked 0x2,0x2 240b e002 | | Load 0x0,0x2 240c 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 240d e5ff | | Load 0x2,-0x1 240e e002 | | Load 0x0,0x2 240f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2410 01d5 | | Execute Vector,Field_Reference 2411 01d5 | | Execute Vector,Field_Reference 2412 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2413 a403 | | Store_Unchecked 0x2,0x3 2414 e402 | | Load 0x2,0x2 2415 e403 | | Load 0x2,0x3 2416 027d | } | Execute Discrete,Greater 2417 6802 |h | Jump_Zero 0x241a 2418 00d8 | | Load_Top At_Offset_0 2419 a402 | | Store_Unchecked 0x2,0x2 241a 4801 |H | Short_Literal 0x1 241b e402 | | Load 0x2,0x2 241c e5fe | | Load 0x2,-0x2 241d e5ff | | Load 0x2,-0x1 241e e002 | | Load 0x0,0x2 241f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2420 01d5 | | Execute Vector,Field_Reference 2421 01d5 | | Execute Vector,Field_Reference 2422 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2423 01cf | | Execute Vector,Slice_Read 2424 4801 |H | Short_Literal 0x1 2425 e403 | | Load 0x2,0x3 2426 e402 | | Load 0x2,0x2 2427 0272 | r | Execute Discrete,Minus 2428 0248 | H | Execute Discrete,Check_In_Integer 2429 e002 | | Load 0x0,0x2 242a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 242b 01cf | | Execute Vector,Slice_Read 242c 01cc | | Execute Vector,Catenate 242d 4801 |H | Short_Literal 0x1 242e e403 | | Load 0x2,0x3 242f e5fd | | Load 0x2,-0x3 2430 01ce | | Execute Vector,Slice_Write 2431 00d8 | | Load_Top At_Offset_0 2432 a5fc | | Store_Unchecked 0x2,-0x4 2433 4503 |E | Exit_Suprogram New_Top_Offset 0x3 2434 4800 |H | Short_Literal 0x0 2435 a5fc | | Store_Unchecked 0x2,-0x4 2436 4503 |E | Exit_Suprogram New_Top_Offset 0x3 2437 TRAP_23e8: 2437 0007 | | Action Break_Optional 2438 4800 |H | Short_Literal 0x0 2439 4801 |H | Short_Literal 0x1 243a 0092 64a3 | d | Action Push_String_Extended,0x64a3 ; "Exception occurred in ap_record_get_field_padded." 243c e001 | | Load 0x0,0x1 243d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 243e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 243f 0000 | | .XXX[0x1] 2440 ; -------------------------------------------------------------------------------------- 2440 ; SUBPROGRAM 2440 ; -------------------------------------------------------------------------------------- 2440 2445 |$E | .CONST 0x2445 ; Address of begin 2441 0004 | | .CONST 0x0004 ; Address of exception handler 2442 0002 | | .CONST 0x0002 ; Number of locals 2443 INIT_2440: 2443 029f 55e3 | U | Declare_Subprogram INIT_55e0,For_Call 2445 BODY_2440: 2445 8402 | | Call 0x2,0x2 2446 4505 |E | Exit_Suprogram New_Top_Offset 0x5 2447 0000 | | .XXX[0x1] 2448 ; -------------------------------------------------------------------------------------- 2448 ; SUBPROGRAM 2448 ; -------------------------------------------------------------------------------------- 2448 244d |$M | .CONST 0x244d ; Address of begin 2449 244f |$O | .CONST 0x244f ; Address of exception handler 244a 0002 | | .CONST 0x0002 ; Number of locals 244b INIT_2448: 244b 029f 563b | V;| Declare_Subprogram INIT_5638,For_Call 244d BODY_2448: 244d 8402 | | Call 0x2,0x2 244e 451d |E | Exit_Suprogram New_Top_Offset 0x1d 244f TRAP_2448: 244f 0007 | | Action Break_Optional 2450 4800 |H | Short_Literal 0x0 2451 4801 |H | Short_Literal 0x1 2452 0092 64a4 | d | Action Push_String_Extended,0x64a4 ; "Exception occurred in ap_load_applic_file." 2454 e001 | | Load 0x0,0x1 2455 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2456 451d |E | Exit_Suprogram New_Top_Offset 0x1d 2457 0000 | | .XXX[0x1] 2458 ; -------------------------------------------------------------------------------------- 2458 ; SUBPROGRAM 2458 ; -------------------------------------------------------------------------------------- 2458 245d |$] | .CONST 0x245d ; Address of begin 2459 245f |$_ | .CONST 0x245f ; Address of exception handler 245a 0002 | | .CONST 0x0002 ; Number of locals 245b INIT_2458: 245b 029f 5773 | Ws| Declare_Subprogram INIT_5770,For_Call 245d BODY_2458: 245d 8402 | | Call 0x2,0x2 245e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 245f TRAP_2458: 245f 0007 | | Action Break_Optional 2460 4800 |H | Short_Literal 0x0 2461 4801 |H | Short_Literal 0x1 2462 0092 64a5 | d | Action Push_String_Extended,0x64a5 ; "Exception occurred in ap_load_record_params." 2464 e001 | | Load 0x0,0x1 2465 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2466 00d8 | | Load_Top At_Offset_0 2467 0101 | | Execute Exception,Reraise 2468 ; -------------------------------------------------------------------------------------- 2468 ; SUBPROGRAM 2468 ; -------------------------------------------------------------------------------------- 2468 246f |$o | .CONST 0x246f ; Address of begin 2469 24ed |$ | .CONST 0x24ed ; Address of exception handler 246a 0003 | | .CONST 0x0003 ; Number of locals 246b INIT_2468: 246b 00e2 | | Load_Encached Integer_Cache 246c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 246d 029f 5843 | XC| Declare_Subprogram INIT_5840,For_Call 246f BODY_2468: 246f 8403 | | Call 0x2,0x3 2470 0007 | | Action Break_Optional 2471 e5ff | | Load 0x2,-0x1 2472 e5fe | | Load 0x2,-0x2 2473 027d | } | Execute Discrete,Greater 2474 6801 |h | Jump_Zero 0x2476 2475 4505 |E | Exit_Suprogram New_Top_Offset 0x5 2476 4800 |H | Short_Literal 0x0 2477 4801 |H | Short_Literal 0x1 2478 0092 64a6 | d | Action Push_String_Extended,0x64a6 ; " Starting save of applic. record params to " 247a e5fd | | Load 0x2,-0x3 247b 01cc | | Execute Vector,Catenate 247c 0092 64a7 | d | Action Push_String_Extended,0x64a7 ; " ..." 247e 01cc | | Execute Vector,Catenate 247f e001 | | Load 0x0,0x1 2480 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2481 e002 | | Load 0x0,0x2 2482 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 2483 00ea | | Load_Encached Null_String_Cache 2484 e5fd | | Load 0x2,-0x3 2485 4801 |H | Short_Literal 0x1 2486 e002 | | Load 0x0,0x2 2487 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 2488 1814 | | Execute Package,Field_Execute,Field_Number 0x14 2489 e002 | | Load 0x0,0x2 248a 1a7c | | | Execute Package,Field_Write,Field_Number 0x7c 248b e5fc | | Load 0x2,-0x4 248c 0f01 | | Execute_Immediate Equal,0x1 248d 6805 |h | Jump_Zero 0x2493 248e e5ff | | Load 0x2,-0x1 248f 0aff | | Execute_Immediate Plus,-0x1 2490 0248 | H | Execute Discrete,Check_In_Integer 2491 a402 | | Store_Unchecked 0x2,0x2 2492 7802 |x | Jump 0x2495 2493 4800 |H | Short_Literal 0x0 2494 a402 | | Store_Unchecked 0x2,0x2 2495 00cf | | Action Mark_Auxiliary 2496 e5fe | | Load 0x2,-0x2 2497 e5ff | | Load 0x2,-0x1 2498 0263 | c | Execute Discrete,Above_Bound 2499 703a |p: | Jump_Nonzero 0x24d4 249a 00d8 | | Load_Top At_Offset_0 249b e402 | | Load 0x2,0x2 249c 0272 | r | Execute Discrete,Minus 249d e002 | | Load 0x0,0x2 249e 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 249f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 24a0 00d8 | | Load_Top At_Offset_0 24a1 e002 | | Load 0x0,0x2 24a2 1b90 | | Execute Package,Field_Read,Field_Number 0x90 24a3 01d5 | | Execute Vector,Field_Reference 24a4 e002 | | Load 0x0,0x2 24a5 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 24a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 24a7 00d8 | | Load_Top At_Offset_0 24a8 e402 | | Load 0x2,0x2 24a9 0272 | r | Execute Discrete,Minus 24aa e002 | | Load 0x0,0x2 24ab 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 24ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 24ad 025b | [ | Execute Discrete,Check_In_Type 24ae e002 | | Load 0x0,0x2 24af 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 24b0 e002 | | Load 0x0,0x2 24b1 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 24b2 e002 | | Load 0x0,0x2 24b3 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 24b4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 24b5 e5fc | | Load 0x2,-0x4 24b6 0f01 | | Execute_Immediate Equal,0x1 24b7 681a |h | Jump_Zero 0x24d2 24b8 0092 64a8 | d | Action Push_String_Extended,0x64a8 ; " Writing record index " 24ba e001 | | Load 0x0,0x1 24bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 24bc 00d8 | | Load_Top At_Offset_0 24bd e001 | | Load 0x0,0x1 24be 181e | | Execute Package,Field_Execute,Field_Number 0x1e 24bf 0092 64a9 | d | Action Push_String_Extended,0x64a9 ; " into params master index " 24c1 e001 | | Load 0x0,0x1 24c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 24c3 00d8 | | Load_Top At_Offset_0 24c4 e402 | | Load 0x2,0x2 24c5 0272 | r | Execute Discrete,Minus 24c6 0248 | H | Execute Discrete,Check_In_Integer 24c7 e001 | | Load 0x0,0x1 24c8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 24c9 0092 64aa | d | Action Push_String_Extended,0x64aa ; " with offset of " 24cb e001 | | Load 0x0,0x1 24cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 24cd e402 | | Load 0x2,0x2 24ce e001 | | Load 0x0,0x1 24cf 181e | | Execute Package,Field_Execute,Field_Number 0x1e 24d0 e001 | | Load 0x0,0x1 24d1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 24d2 00c8 | | Action Pop_Auxiliary_Range 24d3 3fc6 |? | Loop_Increasing 0x249a 24d4 00ce | | Action Pop_Auxiliary 24d5 e002 | | Load 0x0,0x2 24d6 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 24d7 e002 | | Load 0x0,0x2 24d8 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 24d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 24da e002 | | Load 0x0,0x2 24db 1a7c | | | Execute Package,Field_Write,Field_Number 0x7c 24dc e5fc | | Load 0x2,-0x4 24dd 0f01 | | Execute_Immediate Equal,0x1 24de 6807 |h | Jump_Zero 0x24e6 24df 4800 |H | Short_Literal 0x0 24e0 4801 |H | Short_Literal 0x1 24e1 0092 64ab | d | Action Push_String_Extended,0x64ab ; " Record params saved ok in params master with zero offset." 24e3 e001 | | Load 0x0,0x1 24e4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 24e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 24e6 4800 |H | Short_Literal 0x0 24e7 4801 |H | Short_Literal 0x1 24e8 0092 64ac | d | Action Push_String_Extended,0x64ac ; " Record params saved ok in params master." 24ea e001 | | Load 0x0,0x1 24eb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 24ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5 24ed TRAP_2468: 24ed 0007 | | Action Break_Optional 24ee 4800 |H | Short_Literal 0x0 24ef 4801 |H | Short_Literal 0x1 24f0 0092 64ad | d | Action Push_String_Extended,0x64ad ; "Exception occurred in ap_save_record_params." 24f2 e001 | | Load 0x0,0x1 24f3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 24f4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 24f5 0000 0000 | | .XXX[0x3] 24f7 0000 | | 24f8 ; -------------------------------------------------------------------------------------- 24f8 ; SUBPROGRAM 24f8 ; -------------------------------------------------------------------------------------- 24f8 24fd |$ | .CONST 0x24fd ; Address of begin 24f9 24ff |$ | .CONST 0x24ff ; Address of exception handler 24fa 0002 | | .CONST 0x0002 ; Number of locals 24fb INIT_24f8: 24fb 029f 588b | X | Declare_Subprogram INIT_5888,For_Call 24fd BODY_24f8: 24fd 8402 | | Call 0x2,0x2 24fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 24ff TRAP_24f8: 24ff 0007 | | Action Break_Optional 2500 4800 |H | Short_Literal 0x0 2501 4801 |H | Short_Literal 0x1 2502 0092 64ae | d | Action Push_String_Extended,0x64ae ; "No Cross Ref file cust_ids_master found. Exception in ap_find_defaults_by_id." 2504 e001 | | Load 0x0,0x1 2505 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2506 4504 |E | Exit_Suprogram New_Top_Offset 0x4 2507 0000 | | .XXX[0x1] 2508 ; -------------------------------------------------------------------------------------- 2508 ; SUBPROGRAM 2508 ; -------------------------------------------------------------------------------------- 2508 250d |% | .CONST 0x250d ; Address of begin 2509 250f |% | .CONST 0x250f ; Address of exception handler 250a 0002 | | .CONST 0x0002 ; Number of locals 250b INIT_2508: 250b 029f 58db | X | Declare_Subprogram INIT_58d8,For_Call 250d BODY_2508: 250d 8402 | | Call 0x2,0x2 250e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 250f TRAP_2508: 250f 0007 | | Action Break_Optional 2510 4800 |H | Short_Literal 0x0 2511 4801 |H | Short_Literal 0x1 2512 0092 64af | d | Action Push_String_Extended,0x64af ; "Exception in ap_add_default_dispatch_report." 2514 e001 | | Load 0x0,0x1 2515 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2516 4506 |E | Exit_Suprogram New_Top_Offset 0x6 2517 0000 | | .XXX[0x1] 2518 ; -------------------------------------------------------------------------------------- 2518 ; SUBPROGRAM 2518 ; -------------------------------------------------------------------------------------- 2518 2550 |%P | .CONST 0x2550 ; Address of begin 2519 275c |'\ | .CONST 0x275c ; Address of exception handler 251a 000a | | .CONST 0x000a ; Number of locals 251b INIT_2518: 251b 4801 |H | Short_Literal 0x1 251c 4832 |H2 | Short_Literal 0x32 251d 00e9 | | Load_Encached String_Cache 251e 0334 | 4 | Declare_Variable Array,With_Constraint 251f 4801 |H | Short_Literal 0x1 2520 4832 |H2 | Short_Literal 0x32 2521 00e9 | | Load_Encached String_Cache 2522 0334 | 4 | Declare_Variable Array,With_Constraint 2523 4832 |H2 | Short_Literal 0x32 2524 4801 |H | Short_Literal 0x1 2525 486e |Hn | Short_Literal 0x6e 2526 e405 | | Load 0x2,0x5 2527 e403 | | Load 0x2,0x3 2528 01d6 | | Execute Vector,Field_Write 2529 3ffb |? | Loop_Increasing 0x2525 252a e402 | | Load 0x2,0x2 252b 01d4 | | Execute Vector,Structure_Write 252c 00e2 | | Load_Encached Integer_Cache 252d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 252e 4801 |H | Short_Literal 0x1 252f 4850 |HP | Short_Literal 0x50 2530 00e9 | | Load_Encached String_Cache 2531 0334 | 4 | Declare_Variable Array,With_Constraint 2532 4801 |H | Short_Literal 0x1 2533 4850 |HP | Short_Literal 0x50 2534 00e9 | | Load_Encached String_Cache 2535 0334 | 4 | Declare_Variable Array,With_Constraint 2536 4850 |HP | Short_Literal 0x50 2537 4801 |H | Short_Literal 0x1 2538 4820 |H | Short_Literal 0x20 2539 e407 | | Load 0x2,0x7 253a e405 | | Load 0x2,0x5 253b 01d6 | | Execute Vector,Field_Write 253c 3ffb |? | Loop_Increasing 0x2538 253d e404 | | Load 0x2,0x4 253e 01d4 | | Execute Vector,Structure_Write 253f 4801 |H | Short_Literal 0x1 2540 480a |H | Short_Literal 0xa 2541 00e9 | | Load_Encached String_Cache 2542 0334 | 4 | Declare_Variable Array,With_Constraint 2543 4801 |H | Short_Literal 0x1 2544 4801 |H | Short_Literal 0x1 2545 00e9 | | Load_Encached String_Cache 2546 0334 | 4 | Declare_Variable Array,With_Constraint 2547 5314 |S | Indirect_Literal Any,0x285c,{0x78202020, 0x20202020} 2548 00e2 | | Load_Encached Integer_Cache 2549 060b | | Execute_Immediate Set_Value_Unchecked,0xb 254a 00e1 | | Load_Encached Boolean_Cache 254b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 254c 029f 59b3 | Y | Declare_Subprogram INIT_59b0,For_Call 254e 029f 5a43 | ZC| Declare_Subprogram INIT_5a40,For_Call 2550 BODY_2518: 2550 4801 |H | Short_Literal 0x1 2551 e5ff | | Load 0x2,-0x1 2552 01db | | Execute Vector,Length 2553 e5ff | | Load 0x2,-0x1 2554 01cf | | Execute Vector,Slice_Read 2555 4801 |H | Short_Literal 0x1 2556 e5ff | | Load 0x2,-0x1 2557 01db | | Execute Vector,Length 2558 e402 | | Load 0x2,0x2 2559 01ce | | Execute Vector,Slice_Write 255a e5ff | | Load 0x2,-0x1 255b 01db | | Execute Vector,Length 255c a403 | | Store_Unchecked 0x2,0x3 255d 4800 |H | Short_Literal 0x0 255e a408 | | Store_Unchecked 0x2,0x8 255f 8409 | | Call 0x2,0x9 2560 00cf | | Action Mark_Auxiliary 2561 0007 | | Action Break_Optional 2562 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 2564 4801 |H | Short_Literal 0x1 2565 4801 |H | Short_Literal 0x1 2566 e405 | | Load 0x2,0x5 2567 01ce | | Execute Vector,Slice_Write 2568 480a |H | Short_Literal 0xa 2569 480a |H | Short_Literal 0xa 256a e402 | | Load 0x2,0x2 256b 01cf | | Execute Vector,Slice_Read 256c 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 256e 01df | | Execute Vector,Equal 256f 480a |H | Short_Literal 0xa 2570 480a |H | Short_Literal 0xa 2571 e402 | | Load 0x2,0x2 2572 01cf | | Execute Vector,Slice_Read 2573 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 2575 01df | | Execute Vector,Equal 2576 0278 | x | Execute Discrete,Or 2577 6809 |h | Jump_Zero 0x2581 2578 e405 | | Load 0x2,0x5 2579 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 257b 4804 |H | Short_Literal 0x4 257c 0092 64b0 | d | Action Push_String_Extended,0x64b0 ; "Do you want to change setup options? " 257e e001 | | Load 0x0,0x1 257f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2580 00d1 | | Pop_Control Pop_Count_1 2581 4801 |H | Short_Literal 0x1 2582 4801 |H | Short_Literal 0x1 2583 e405 | | Load 0x2,0x5 2584 01cf | | Execute Vector,Slice_Read 2585 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2587 01df | | Execute Vector,Equal 2588 689d |h | Jump_Zero 0x2626 2589 e001 | | Load 0x0,0x1 258a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 258b 4800 |H | Short_Literal 0x0 258c 4804 |H | Short_Literal 0x4 258d 0092 64b1 | d | Action Push_String_Extended,0x64b1 ; "Configuration Options:" 258f e001 | | Load 0x0,0x1 2590 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2591 00cf | | Action Mark_Auxiliary 2592 e407 | | Load 0x2,0x7 2593 4801 |H | Short_Literal 0x1 2594 0263 | c | Execute Discrete,Above_Bound 2595 708f |p | Jump_Nonzero 0x2625 2596 00d8 | | Load_Top At_Offset_0 2597 0f01 | | Execute_Immediate Equal,0x1 2598 6807 |h | Jump_Zero 0x25a0 2599 0092 64b2 | d | Action Push_String_Extended,0x64b2 ; "1. Show choices for enumeration fields? " 259b 4801 |H | Short_Literal 0x1 259c 4829 |H) | Short_Literal 0x29 259d e404 | | Load 0x2,0x4 259e 01ce | | Execute Vector,Slice_Write 259f 7863 |xc | Jump 0x2603 25a0 00d8 | | Load_Top At_Offset_0 25a1 0f02 | | Execute_Immediate Equal,0x2 25a2 6807 |h | Jump_Zero 0x25aa 25a3 0092 64b3 | d | Action Push_String_Extended,0x64b3 ; "2. Show header for enumeration choices? " 25a5 4801 |H | Short_Literal 0x1 25a6 4829 |H) | Short_Literal 0x29 25a7 e404 | | Load 0x2,0x4 25a8 01ce | | Execute Vector,Slice_Write 25a9 7859 |xY | Jump 0x2603 25aa 00d8 | | Load_Top At_Offset_0 25ab 0f03 | | Execute_Immediate Equal,0x3 25ac 6807 |h | Jump_Zero 0x25b4 25ad 0092 64b4 | d | Action Push_String_Extended,0x64b4 ; "3. Add problem detail information inline?" 25af 4801 |H | Short_Literal 0x1 25b0 4829 |H) | Short_Literal 0x29 25b1 e404 | | Load 0x2,0x4 25b2 01ce | | Execute Vector,Slice_Write 25b3 784f |xO | Jump 0x2603 25b4 00d8 | | Load_Top At_Offset_0 25b5 0f04 | | Execute_Immediate Equal,0x4 25b6 6807 |h | Jump_Zero 0x25be 25b7 0092 64b5 | d | Action Push_String_Extended,0x64b5 ; "4. Show prior field contents and size? " 25b9 4801 |H | Short_Literal 0x1 25ba 4829 |H) | Short_Literal 0x29 25bb e404 | | Load 0x2,0x4 25bc 01ce | | Execute Vector,Slice_Write 25bd 7845 |xE | Jump 0x2603 25be 00d8 | | Load_Top At_Offset_0 25bf 0f05 | | Execute_Immediate Equal,0x5 25c0 6807 |h | Jump_Zero 0x25c8 25c1 0092 64b6 | d | Action Push_String_Extended,0x64b6 ; "5. Show prompt message for input fields? " 25c3 4801 |H | Short_Literal 0x1 25c4 4829 |H) | Short_Literal 0x29 25c5 e404 | | Load 0x2,0x4 25c6 01ce | | Execute Vector,Slice_Write 25c7 783b |x; | Jump 0x2603 25c8 00d8 | | Load_Top At_Offset_0 25c9 0f06 | | Execute_Immediate Equal,0x6 25ca 6807 |h | Jump_Zero 0x25d2 25cb 0092 64b7 | d | Action Push_String_Extended,0x64b7 ; "6. Display extra lines for more spacing? " 25cd 4801 |H | Short_Literal 0x1 25ce 4829 |H) | Short_Literal 0x29 25cf e404 | | Load 0x2,0x4 25d0 01ce | | Execute Vector,Slice_Write 25d1 7831 |x1 | Jump 0x2603 25d2 00d8 | | Load_Top At_Offset_0 25d3 0f07 | | Execute_Immediate Equal,0x7 25d4 6807 |h | Jump_Zero 0x25dc 25d5 0092 64b8 | d | Action Push_String_Extended,0x64b8 ; "7. Show a label before each input field? " 25d7 4801 |H | Short_Literal 0x1 25d8 4829 |H) | Short_Literal 0x29 25d9 e404 | | Load 0x2,0x4 25da 01ce | | Execute Vector,Slice_Write 25db 7827 |x' | Jump 0x2603 25dc 00d8 | | Load_Top At_Offset_0 25dd 0f08 | | Execute_Immediate Equal,0x8 25de 6807 |h | Jump_Zero 0x25e6 25df 0092 64b9 | d | Action Push_String_Extended,0x64b9 ; "8. Show input field default in brackets? " 25e1 4801 |H | Short_Literal 0x1 25e2 4829 |H) | Short_Literal 0x29 25e3 e404 | | Load 0x2,0x4 25e4 01ce | | Execute Vector,Slice_Write 25e5 781d |x | Jump 0x2603 25e6 00d8 | | Load_Top At_Offset_0 25e7 0f09 | | Execute_Immediate Equal,0x9 25e8 6807 |h | Jump_Zero 0x25f0 25e9 0092 64ba | d | Action Push_String_Extended,0x64ba ; "9. Display additional information & help?" 25eb 4801 |H | Short_Literal 0x1 25ec 4829 |H) | Short_Literal 0x29 25ed e404 | | Load 0x2,0x4 25ee 01ce | | Execute Vector,Slice_Write 25ef 7813 |x | Jump 0x2603 25f0 00d8 | | Load_Top At_Offset_0 25f1 0f0a | | Execute_Immediate Equal,0xa 25f2 6807 |h | Jump_Zero 0x25fa 25f3 0092 64bb | d | Action Push_String_Extended,0x64bb ; "10.Ask user to change these options next?" 25f5 4801 |H | Short_Literal 0x1 25f6 4829 |H) | Short_Literal 0x29 25f7 e404 | | Load 0x2,0x4 25f8 01ce | | Execute Vector,Slice_Write 25f9 7809 |x | Jump 0x2603 25fa 00d8 | | Load_Top At_Offset_0 25fb 0f0b | | Execute_Immediate Equal,0xb 25fc 6806 |h | Jump_Zero 0x2603 25fd 0092 64bc | d | Action Push_String_Extended,0x64bc ; "11.Display site defaults at startup time?" 25ff 4801 |H | Short_Literal 0x1 2600 4829 |H) | Short_Literal 0x29 2601 e404 | | Load 0x2,0x4 2602 01ce | | Execute Vector,Slice_Write 2603 00d8 | | Load_Top At_Offset_0 2604 e40e | | Load 0x2,0xe 2605 e402 | | Load 0x2,0x2 2606 01cf | | Execute Vector,Slice_Read 2607 e406 | | Load 0x2,0x6 2608 01d4 | | Execute Vector,Structure_Write 2609 e402 | | Load 0x2,0x2 260a e40e | | Load 0x2,0xe 260b e40e | | Load 0x2,0xe 260c e40f | | Load 0x2,0xf 260d 035b | [ | Declare_Type Array,Constrained 260e 00d0 | | Action Swap_Control 260f 01cd | | Execute Vector,Slice_Reference 2610 00d8 | | Load_Top At_Offset_0 2611 e406 | | Load 0x2,0x6 2612 4804 |H | Short_Literal 0x4 2613 4801 |H | Short_Literal 0x1 2614 4829 |H) | Short_Literal 0x29 2615 e404 | | Load 0x2,0x4 2616 01cf | | Execute Vector,Slice_Read 2617 e001 | | Load 0x0,0x1 2618 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2619 00d2 | | Pop_Control Pop_Count_2 261a e406 | | Load 0x2,0x6 261b e40e | | Load 0x2,0xe 261c e40e | | Load 0x2,0xe 261d e402 | | Load 0x2,0x2 261e 01cf | | Execute Vector,Slice_Read 261f 01de | | Execute Vector,Not_Equal 2620 6802 |h | Jump_Zero 0x2623 2621 4801 |H | Short_Literal 0x1 2622 a408 | | Store_Unchecked 0x2,0x8 2623 00c8 | | Action Pop_Auxiliary_Range 2624 3f71 |?q | Loop_Increasing 0x2596 2625 00ce | | Action Pop_Auxiliary 2626 4801 |H | Short_Literal 0x1 2627 4801 |H | Short_Literal 0x1 2628 e402 | | Load 0x2,0x2 2629 01cf | | Execute Vector,Slice_Read 262a 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 262c 01df | | Execute Vector,Equal 262d 4801 |H | Short_Literal 0x1 262e 4801 |H | Short_Literal 0x1 262f e402 | | Load 0x2,0x2 2630 01cf | | Execute Vector,Slice_Read 2631 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 2633 01df | | Execute Vector,Equal 2634 0278 | x | Execute Discrete,Or 2635 6804 |h | Jump_Zero 0x263a 2636 4800 |H | Short_Literal 0x0 2637 e002 | | Load 0x0,0x2 2638 1a25 | % | Execute Package,Field_Write,Field_Number 0x25 2639 7803 |x | Jump 0x263d 263a 4801 |H | Short_Literal 0x1 263b e002 | | Load 0x0,0x2 263c 1a25 | % | Execute Package,Field_Write,Field_Number 0x25 263d 4802 |H | Short_Literal 0x2 263e 4802 |H | Short_Literal 0x2 263f e402 | | Load 0x2,0x2 2640 01cf | | Execute Vector,Slice_Read 2641 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2643 01df | | Execute Vector,Equal 2644 4802 |H | Short_Literal 0x2 2645 4802 |H | Short_Literal 0x2 2646 e402 | | Load 0x2,0x2 2647 01cf | | Execute Vector,Slice_Read 2648 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 264a 01df | | Execute Vector,Equal 264b 0278 | x | Execute Discrete,Or 264c 6804 |h | Jump_Zero 0x2651 264d 4800 |H | Short_Literal 0x0 264e e002 | | Load 0x0,0x2 264f 1a26 | & | Execute Package,Field_Write,Field_Number 0x26 2650 7803 |x | Jump 0x2654 2651 4801 |H | Short_Literal 0x1 2652 e002 | | Load 0x0,0x2 2653 1a26 | & | Execute Package,Field_Write,Field_Number 0x26 2654 4803 |H | Short_Literal 0x3 2655 4803 |H | Short_Literal 0x3 2656 e402 | | Load 0x2,0x2 2657 01cf | | Execute Vector,Slice_Read 2658 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 265a 01df | | Execute Vector,Equal 265b 4803 |H | Short_Literal 0x3 265c 4803 |H | Short_Literal 0x3 265d e402 | | Load 0x2,0x2 265e 01cf | | Execute Vector,Slice_Read 265f 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 2661 01df | | Execute Vector,Equal 2662 0278 | x | Execute Discrete,Or 2663 6804 |h | Jump_Zero 0x2668 2664 4800 |H | Short_Literal 0x0 2665 e002 | | Load 0x0,0x2 2666 1a27 | ' | Execute Package,Field_Write,Field_Number 0x27 2667 7803 |x | Jump 0x266b 2668 4801 |H | Short_Literal 0x1 2669 e002 | | Load 0x0,0x2 266a 1a27 | ' | Execute Package,Field_Write,Field_Number 0x27 266b 4804 |H | Short_Literal 0x4 266c 4804 |H | Short_Literal 0x4 266d e402 | | Load 0x2,0x2 266e 01cf | | Execute Vector,Slice_Read 266f 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2671 01df | | Execute Vector,Equal 2672 4804 |H | Short_Literal 0x4 2673 4804 |H | Short_Literal 0x4 2674 e402 | | Load 0x2,0x2 2675 01cf | | Execute Vector,Slice_Read 2676 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 2678 01df | | Execute Vector,Equal 2679 0278 | x | Execute Discrete,Or 267a 6804 |h | Jump_Zero 0x267f 267b 4800 |H | Short_Literal 0x0 267c e002 | | Load 0x0,0x2 267d 1a28 | ( | Execute Package,Field_Write,Field_Number 0x28 267e 7803 |x | Jump 0x2682 267f 4801 |H | Short_Literal 0x1 2680 e002 | | Load 0x0,0x2 2681 1a28 | ( | Execute Package,Field_Write,Field_Number 0x28 2682 4805 |H | Short_Literal 0x5 2683 4805 |H | Short_Literal 0x5 2684 e402 | | Load 0x2,0x2 2685 01cf | | Execute Vector,Slice_Read 2686 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2688 01df | | Execute Vector,Equal 2689 4805 |H | Short_Literal 0x5 268a 4805 |H | Short_Literal 0x5 268b e402 | | Load 0x2,0x2 268c 01cf | | Execute Vector,Slice_Read 268d 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 268f 01df | | Execute Vector,Equal 2690 0278 | x | Execute Discrete,Or 2691 6804 |h | Jump_Zero 0x2696 2692 4800 |H | Short_Literal 0x0 2693 e002 | | Load 0x0,0x2 2694 1a29 | ) | Execute Package,Field_Write,Field_Number 0x29 2695 7803 |x | Jump 0x2699 2696 4801 |H | Short_Literal 0x1 2697 e002 | | Load 0x0,0x2 2698 1a29 | ) | Execute Package,Field_Write,Field_Number 0x29 2699 4806 |H | Short_Literal 0x6 269a 4806 |H | Short_Literal 0x6 269b e402 | | Load 0x2,0x2 269c 01cf | | Execute Vector,Slice_Read 269d 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 269f 01df | | Execute Vector,Equal 26a0 4806 |H | Short_Literal 0x6 26a1 4806 |H | Short_Literal 0x6 26a2 e402 | | Load 0x2,0x2 26a3 01cf | | Execute Vector,Slice_Read 26a4 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 26a6 01df | | Execute Vector,Equal 26a7 0278 | x | Execute Discrete,Or 26a8 6804 |h | Jump_Zero 0x26ad 26a9 4800 |H | Short_Literal 0x0 26aa e002 | | Load 0x0,0x2 26ab 1a2a | * | Execute Package,Field_Write,Field_Number 0x2a 26ac 7803 |x | Jump 0x26b0 26ad 4801 |H | Short_Literal 0x1 26ae e002 | | Load 0x0,0x2 26af 1a2a | * | Execute Package,Field_Write,Field_Number 0x2a 26b0 4807 |H | Short_Literal 0x7 26b1 4807 |H | Short_Literal 0x7 26b2 e402 | | Load 0x2,0x2 26b3 01cf | | Execute Vector,Slice_Read 26b4 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 26b6 01df | | Execute Vector,Equal 26b7 4807 |H | Short_Literal 0x7 26b8 4807 |H | Short_Literal 0x7 26b9 e402 | | Load 0x2,0x2 26ba 01cf | | Execute Vector,Slice_Read 26bb 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 26bd 01df | | Execute Vector,Equal 26be 0278 | x | Execute Discrete,Or 26bf 6804 |h | Jump_Zero 0x26c4 26c0 4800 |H | Short_Literal 0x0 26c1 e002 | | Load 0x0,0x2 26c2 1a2b | + | Execute Package,Field_Write,Field_Number 0x2b 26c3 7803 |x | Jump 0x26c7 26c4 4801 |H | Short_Literal 0x1 26c5 e002 | | Load 0x0,0x2 26c6 1a2b | + | Execute Package,Field_Write,Field_Number 0x2b 26c7 4808 |H | Short_Literal 0x8 26c8 4808 |H | Short_Literal 0x8 26c9 e402 | | Load 0x2,0x2 26ca 01cf | | Execute Vector,Slice_Read 26cb 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 26cd 01df | | Execute Vector,Equal 26ce 4808 |H | Short_Literal 0x8 26cf 4808 |H | Short_Literal 0x8 26d0 e402 | | Load 0x2,0x2 26d1 01cf | | Execute Vector,Slice_Read 26d2 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 26d4 01df | | Execute Vector,Equal 26d5 0278 | x | Execute Discrete,Or 26d6 6804 |h | Jump_Zero 0x26db 26d7 4800 |H | Short_Literal 0x0 26d8 e002 | | Load 0x0,0x2 26d9 1a2c | , | Execute Package,Field_Write,Field_Number 0x2c 26da 7803 |x | Jump 0x26de 26db 4801 |H | Short_Literal 0x1 26dc e002 | | Load 0x0,0x2 26dd 1a2c | , | Execute Package,Field_Write,Field_Number 0x2c 26de 4809 |H | Short_Literal 0x9 26df 4809 |H | Short_Literal 0x9 26e0 e402 | | Load 0x2,0x2 26e1 01cf | | Execute Vector,Slice_Read 26e2 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 26e4 01df | | Execute Vector,Equal 26e5 4809 |H | Short_Literal 0x9 26e6 4809 |H | Short_Literal 0x9 26e7 e402 | | Load 0x2,0x2 26e8 01cf | | Execute Vector,Slice_Read 26e9 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 26eb 01df | | Execute Vector,Equal 26ec 0278 | x | Execute Discrete,Or 26ed 6804 |h | Jump_Zero 0x26f2 26ee 4800 |H | Short_Literal 0x0 26ef e002 | | Load 0x0,0x2 26f0 1a2d | - | Execute Package,Field_Write,Field_Number 0x2d 26f1 7803 |x | Jump 0x26f5 26f2 4801 |H | Short_Literal 0x1 26f3 e002 | | Load 0x0,0x2 26f4 1a2d | - | Execute Package,Field_Write,Field_Number 0x2d 26f5 480a |H | Short_Literal 0xa 26f6 480a |H | Short_Literal 0xa 26f7 e402 | | Load 0x2,0x2 26f8 01cf | | Execute Vector,Slice_Read 26f9 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 26fb 01df | | Execute Vector,Equal 26fc 480a |H | Short_Literal 0xa 26fd 480a |H | Short_Literal 0xa 26fe e402 | | Load 0x2,0x2 26ff 01cf | | Execute Vector,Slice_Read 2700 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 2702 01df | | Execute Vector,Equal 2703 0278 | x | Execute Discrete,Or 2704 6804 |h | Jump_Zero 0x2709 2705 4800 |H | Short_Literal 0x0 2706 e002 | | Load 0x0,0x2 2707 1a2e | . | Execute Package,Field_Write,Field_Number 0x2e 2708 7803 |x | Jump 0x270c 2709 4801 |H | Short_Literal 0x1 270a e002 | | Load 0x0,0x2 270b 1a2e | . | Execute Package,Field_Write,Field_Number 0x2e 270c 480b |H | Short_Literal 0xb 270d 480b |H | Short_Literal 0xb 270e e402 | | Load 0x2,0x2 270f 01cf | | Execute Vector,Slice_Read 2710 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2712 01df | | Execute Vector,Equal 2713 480b |H | Short_Literal 0xb 2714 480b |H | Short_Literal 0xb 2715 e402 | | Load 0x2,0x2 2716 01cf | | Execute Vector,Slice_Read 2717 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 2719 01df | | Execute Vector,Equal 271a 0278 | x | Execute Discrete,Or 271b 6804 |h | Jump_Zero 0x2720 271c 4800 |H | Short_Literal 0x0 271d e002 | | Load 0x0,0x2 271e 1a2f | / | Execute Package,Field_Write,Field_Number 0x2f 271f 7803 |x | Jump 0x2723 2720 4801 |H | Short_Literal 0x1 2721 e002 | | Load 0x0,0x2 2722 1a2f | / | Execute Package,Field_Write,Field_Number 0x2f 2723 4801 |H | Short_Literal 0x1 2724 4801 |H | Short_Literal 0x1 2725 e405 | | Load 0x2,0x5 2726 01cf | | Execute Vector,Slice_Read 2727 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 2729 01df | | Execute Vector,Equal 272a 6801 |h | Jump_Zero 0x272c 272b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 272c e405 | | Load 0x2,0x5 272d 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 272f 4804 |H | Short_Literal 0x4 2730 0092 64bd | d | Action Push_String_Extended,0x64bd ; "Do you want to alter any of the above answers? " 2732 e001 | | Load 0x0,0x1 2733 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2734 00d1 | | Pop_Control Pop_Count_1 2735 4801 |H | Short_Literal 0x1 2736 4801 |H | Short_Literal 0x1 2737 e405 | | Load 0x2,0x5 2738 01cf | | Execute Vector,Slice_Read 2739 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 273b 01df | | Execute Vector,Equal 273c 6801 |h | Jump_Zero 0x273e 273d 7802 |x | Jump 0x2740 273e 00c9 | | Action Pop_Auxiliary_Loop 273f 7e22 |~" | Jump 0x2562 2740 00ce | | Action Pop_Auxiliary 2741 e408 | | Load 0x2,0x8 2742 0f01 | | Execute_Immediate Equal,0x1 2743 6809 |h | Jump_Zero 0x274d 2744 e405 | | Load 0x2,0x5 2745 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 2747 4804 |H | Short_Literal 0x4 2748 0092 64be | d | Action Push_String_Extended,0x64be ; "Do you want to save these setup options? " 274a e001 | | Load 0x0,0x1 274b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 274c 00d1 | | Pop_Control Pop_Count_1 274d e408 | | Load 0x2,0x8 274e 0f01 | | Execute_Immediate Equal,0x1 274f 4801 |H | Short_Literal 0x1 2750 4801 |H | Short_Literal 0x1 2751 e405 | | Load 0x2,0x5 2752 01cf | | Execute Vector,Slice_Read 2753 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2755 01df | | Execute Vector,Equal 2756 0279 | y | Execute Discrete,And 2757 6801 |h | Jump_Zero 0x2759 2758 840a | | Call 0x2,0xa 2759 e001 | | Load 0x0,0x1 275a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 275b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 275c TRAP_2518: 275c 0007 | | Action Break_Optional 275d 4800 |H | Short_Literal 0x0 275e 4801 |H | Short_Literal 0x1 275f 0092 64bf | d | Action Push_String_Extended,0x64bf ; "Exception in ap_preset_user_options." 2761 e001 | | Load 0x0,0x1 2762 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2763 4503 |E | Exit_Suprogram New_Top_Offset 0x3 2764 0000 0000 | | .BLANK 0000[0x4] 2768 ; -------------------------------------------------------------------------------------- 2768 ; SUBPROGRAM 2768 ; -------------------------------------------------------------------------------------- 2768 276d |'m | .CONST 0x276d ; Address of begin 2769 2780 |' | .CONST 0x2780 ; Address of exception handler 276a 0002 | | .CONST 0x0002 ; Number of locals 276b INIT_2768: 276b 029f 5a7b | Z{| Declare_Subprogram INIT_5a78,For_Call 276d BODY_2768: 276d e405 | | Load 0x2,0x5 276e 00ea | | Load_Encached Null_String_Cache 276f e402 | | Load 0x2,0x2 2770 4800 |H | Short_Literal 0x0 2771 e004 | | Load 0x0,0x4 2772 1815 | | Execute Package,Field_Execute,Field_Number 0x15 2773 c405 | | Store 0x2,0x5 2774 00e3 | | Load_Encached Natural_Cache 2775 e403 | | Load 0x2,0x3 2776 e405 | | Load 0x2,0x5 2777 e004 | | Load 0x0,0x4 2778 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 2779 00d1 | | Pop_Control Pop_Count_1 277a c404 | | Store 0x2,0x4 277b e405 | | Load 0x2,0x5 277c e004 | | Load 0x0,0x4 277d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 277e c405 | | Store 0x2,0x5 277f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2780 TRAP_2768: 2780 0007 | | Action Break_Optional 2781 e405 | | Load 0x2,0x5 2782 e004 | | Load 0x0,0x4 2783 181d | | Execute Package,Field_Execute,Field_Number 0x1d 2784 6801 |h | Jump_Zero 0x2786 2785 8602 | | Call 0x3,0x2 2786 e001 | | Load 0x0,0x1 2787 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2788 4800 |H | Short_Literal 0x0 2789 4801 |H | Short_Literal 0x1 278a 0092 64c0 | d | Action Push_String_Extended,0x64c0 ; "[Error: This machine has no !machine.Machine_Name file," 278c e001 | | Load 0x0,0x1 278d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 278e 4800 |H | Short_Literal 0x0 278f 4801 |H | Short_Literal 0x1 2790 0092 64c1 | d | Action Push_String_Extended,0x64c1 ; " Please notify Rational Customer Support to correct problem.]" 2792 e001 | | Load 0x0,0x1 2793 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2794 e001 | | Load 0x0,0x1 2795 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2796 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2797 0000 | | .XXX[0x1] 2798 ; -------------------------------------------------------------------------------------- 2798 ; SUBPROGRAM 2798 ; -------------------------------------------------------------------------------------- 2798 279b |' | .CONST 0x279b ; Address of begin 2799 27b9 |' | .CONST 0x27b9 ; Address of exception handler 279a 0001 | | .CONST 0x0001 ; Number of locals 279b BODY_2798: 279b INIT_2798: 279b e009 | | Load 0x0,0x9 279c 180e | | Execute Package,Field_Execute,Field_Number 0xe 279d 00e0 | | Load_Encached Standard_Cache 279e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 279f 01db | | Execute Vector,Length 27a0 a410 | | Store_Unchecked 0x2,0x10 27a1 4801 |H | Short_Literal 0x1 27a2 e410 | | Load 0x2,0x10 27a3 e009 | | Load 0x0,0x9 27a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 27a5 00e0 | | Load_Encached Standard_Cache 27a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 27a7 01cf | | Execute Vector,Slice_Read 27a8 4801 |H | Short_Literal 0x1 27a9 e410 | | Load 0x2,0x10 27aa e40f | | Load 0x2,0xf 27ab 01ce | | Execute Vector,Slice_Write 27ac e410 | | Load 0x2,0x10 27ad 0aff | | Execute_Immediate Plus,-0x1 27ae 0248 | H | Execute Discrete,Check_In_Integer 27af a408 | | Store_Unchecked 0x2,0x8 27b0 4802 |H | Short_Literal 0x2 27b1 e410 | | Load 0x2,0x10 27b2 e40f | | Load 0x2,0xf 27b3 01cf | | Execute Vector,Slice_Read 27b4 4801 |H | Short_Literal 0x1 27b5 e408 | | Load 0x2,0x8 27b6 e407 | | Load 0x2,0x7 27b7 01ce | | Execute Vector,Slice_Write 27b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 27b9 TRAP_2798: 27b9 0007 | | Action Break_Optional 27ba e001 | | Load 0x0,0x1 27bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 27bc 4800 |H | Short_Literal 0x0 27bd 4801 |H | Short_Literal 0x1 27be 0092 64c2 | d | Action Push_String_Extended,0x64c2 ; "[Error, Problem determining system id for this machine," 27c0 e001 | | Load 0x0,0x1 27c1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 27c2 4800 |H | Short_Literal 0x0 27c3 4801 |H | Short_Literal 0x1 27c4 0092 64c1 | d | Action Push_String_Extended,0x64c1 ; " Please notify Rational Customer Support to correct problem.]" 27c6 e001 | | Load 0x0,0x1 27c7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 27c8 e001 | | Load 0x0,0x1 27c9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 27ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 27cb 0000 0000 | | .BLANK 0000[0x5] 27d0 ; -------------------------------------------------------------------------------------- 27d0 ; SUBPROGRAM 27d0 ; -------------------------------------------------------------------------------------- 27d0 27d7 |' | .CONST 0x27d7 ; Address of begin 27d1 2832 |(2 | .CONST 0x2832 ; Address of exception handler 27d2 0003 | | .CONST 0x0003 ; Number of locals 27d3 INIT_27d0: 27d3 029f 5a8b | Z | Declare_Subprogram INIT_5a88,For_Call 27d5 029f 5ac3 | Z | Declare_Subprogram INIT_5ac0,For_Call 27d7 BODY_27d0: 27d7 e406 | | Load 0x2,0x6 27d8 00ea | | Load_Encached Null_String_Cache 27d9 4801 |H | Short_Literal 0x1 27da e002 | | Load 0x0,0x2 27db 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 27dc e002 | | Load 0x0,0x2 27dd 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 27de 01cf | | Execute Vector,Slice_Read 27df 0092 64c3 | d | Action Push_String_Extended,0x64c3 ; ".site_init_file" 27e1 01cc | | Execute Vector,Catenate 27e2 4800 |H | Short_Literal 0x0 27e3 e004 | | Load 0x0,0x4 27e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 27e5 c406 | | Store 0x2,0x6 27e6 00e3 | | Load_Encached Natural_Cache 27e7 e409 | | Load 0x2,0x9 27e8 e406 | | Load 0x2,0x6 27e9 e004 | | Load 0x0,0x4 27ea 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 27eb 00d1 | | Pop_Control Pop_Count_1 27ec c40a | | Store 0x2,0xa 27ed 00e3 | | Load_Encached Natural_Cache 27ee e40b | | Load 0x2,0xb 27ef e406 | | Load 0x2,0x6 27f0 e004 | | Load 0x0,0x4 27f1 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 27f2 00d1 | | Pop_Control Pop_Count_1 27f3 c40c | | Store 0x2,0xc 27f4 00e3 | | Load_Encached Natural_Cache 27f5 e40d | | Load 0x2,0xd 27f6 e406 | | Load 0x2,0x6 27f7 e004 | | Load 0x0,0x4 27f8 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 27f9 00d1 | | Pop_Control Pop_Count_1 27fa c40e | | Store 0x2,0xe 27fb 4800 |H | Short_Literal 0x0 27fc a210 | | Store_Unchecked 0x1,0x10 27fd 8602 | | Call 0x3,0x2 27fe e210 | | Load 0x1,0x10 27ff 0a01 | | Execute_Immediate Plus,0x1 2800 0248 | H | Execute Discrete,Check_In_Integer 2801 a210 | | Store_Unchecked 0x1,0x10 2802 e404 | | Load 0x2,0x4 2803 e210 | | Load 0x1,0x10 2804 e212 | | Load 0x1,0x12 2805 01d5 | | Execute Vector,Field_Reference 2806 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 2807 4801 |H | Short_Literal 0x1 2808 e404 | | Load 0x2,0x4 2809 e403 | | Load 0x2,0x3 280a 01cf | | Execute Vector,Slice_Read 280b 4801 |H | Short_Literal 0x1 280c e404 | | Load 0x2,0x4 280d e210 | | Load 0x1,0x10 280e e212 | | Load 0x1,0x12 280f 01d7 | | Execute Vector,Field_Read 2810 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 2811 01ce | | Execute Vector,Slice_Write 2812 e210 | | Load 0x1,0x10 2813 0a01 | | Execute_Immediate Plus,0x1 2814 0248 | H | Execute Discrete,Check_In_Integer 2815 a210 | | Store_Unchecked 0x1,0x10 2816 e408 | | Load 0x2,0x8 2817 e210 | | Load 0x1,0x10 2818 e212 | | Load 0x1,0x12 2819 01d5 | | Execute Vector,Field_Reference 281a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 281b 4801 |H | Short_Literal 0x1 281c e408 | | Load 0x2,0x8 281d e407 | | Load 0x2,0x7 281e 01cf | | Execute Vector,Slice_Read 281f 4801 |H | Short_Literal 0x1 2820 e408 | | Load 0x2,0x8 2821 e210 | | Load 0x1,0x10 2822 e212 | | Load 0x1,0x12 2823 01d7 | | Execute Vector,Field_Read 2824 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 2825 01ce | | Execute Vector,Slice_Write 2826 4800 |H | Short_Literal 0x0 2827 e210 | | Load 0x1,0x10 2828 0a01 | | Execute_Immediate Plus,0x1 2829 0248 | H | Execute Discrete,Check_In_Integer 282a e212 | | Load 0x1,0x12 282b 01d5 | | Execute Vector,Field_Reference 282c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 282d e406 | | Load 0x2,0x6 282e e004 | | Load 0x0,0x4 282f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 2830 c406 | | Store 0x2,0x6 2831 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2832 TRAP_27d0: 2832 0007 | | Action Break_Optional 2833 8603 | | Call 0x3,0x3 2834 e001 | | Load 0x0,0x1 2835 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2836 4800 |H | Short_Literal 0x0 2837 4801 |H | Short_Literal 0x1 2838 0092 64c4 | d | Action Push_String_Extended,0x64c4 ; "[Error, This machine has no " 283a 4801 |H | Short_Literal 0x1 283b e002 | | Load 0x0,0x2 283c 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 283d e002 | | Load 0x0,0x2 283e 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 283f 01cf | | Execute Vector,Slice_Read 2840 01cc | | Execute Vector,Catenate 2841 0092 64c3 | d | Action Push_String_Extended,0x64c3 ; ".site_init_file" 2843 01cc | | Execute Vector,Catenate 2844 e001 | | Load 0x0,0x1 2845 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2846 4800 |H | Short_Literal 0x0 2847 4801 |H | Short_Literal 0x1 2848 0092 64c5 | d | Action Push_String_Extended,0x64c5 ; " or the init file may be missing Company, Region, Site lines." 284a e001 | | Load 0x0,0x1 284b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 284c 4800 |H | Short_Literal 0x0 284d 4801 |H | Short_Literal 0x1 284e 0092 64c1 | d | Action Push_String_Extended,0x64c1 ; " Please notify Rational Customer Support to correct problem.]" 2850 e001 | | Load 0x0,0x1 2851 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2852 e001 | | Load 0x0,0x1 2853 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2854 e001 | | Load 0x0,0x1 2855 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2856 e001 | | Load 0x0,0x1 2857 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 2858 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2859 0000 0000 | | .XXX[0x3] 285b 0000 | | 285c 7820 2020 |x | .LITERAL {0x78202020, 0x20202020} 2860 ; -------------------------------------------------------------------------------------- 2860 ; SUBPROGRAM 2860 ; -------------------------------------------------------------------------------------- 2860 2863 |(c | .CONST 0x2863 ; Address of begin 2861 28b8 |( | .CONST 0x28b8 ; Address of exception handler 2862 0001 | | .CONST 0x0001 ; Number of locals 2863 BODY_2860: 2863 INIT_2860: 2863 e5fb | | Load 0x2,-0x5 2864 0c01 | | Execute_Immediate Greater_Equal,0x1 2865 6851 |hQ | Jump_Zero 0x28b7 2866 e5fd | | Load 0x2,-0x3 2867 e002 | | Load 0x0,0x2 2868 1b96 | | Execute Package,Field_Read,Field_Number 0x96 2869 01d7 | | Execute Vector,Field_Read 286a 00d8 | | Load_Top At_Offset_0 286b 4801 |H | Short_Literal 0x1 286c e5fd | | Load 0x2,-0x3 286d e002 | | Load 0x0,0x2 286e 189d | | Execute Package,Field_Execute,Field_Number 0x9d 286f 00d2 | | Pop_Control Pop_Count_2 2870 e5fd | | Load 0x2,-0x3 2871 e002 | | Load 0x0,0x2 2872 1b96 | | Execute Package,Field_Read,Field_Number 0x96 2873 01d5 | | Execute Vector,Field_Reference 2874 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 2875 e5fd | | Load 0x2,-0x3 2876 e002 | | Load 0x0,0x2 2877 1b96 | | Execute Package,Field_Read,Field_Number 0x96 2878 01d5 | | Execute Vector,Field_Reference 2879 380f |8 | Execute Record,Field_Write,Field_Number 0xf 287a 4800 |H | Short_Literal 0x0 287b 4800 |H | Short_Literal 0x0 287c 4800 |H | Short_Literal 0x0 287d 4800 |H | Short_Literal 0x0 287e 4800 |H | Short_Literal 0x0 287f 4800 |H | Short_Literal 0x0 2880 4800 |H | Short_Literal 0x0 2881 4801 |H | Short_Literal 0x1 2882 e5fd | | Load 0x2,-0x3 2883 e002 | | Load 0x0,0x2 2884 1b96 | | Execute Package,Field_Read,Field_Number 0x96 2885 01d5 | | Execute Vector,Field_Reference 2886 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 2887 4801 |H | Short_Literal 0x1 2888 e5fd | | Load 0x2,-0x3 2889 e5fe | | Load 0x2,-0x2 288a e5ff | | Load 0x2,-0x1 288b 822d | - | Call 0x1,0x2d 288c e5fd | | Load 0x2,-0x3 288d e002 | | Load 0x0,0x2 288e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 288f 01d5 | | Execute Vector,Field_Reference 2890 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 2891 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 2893 01de | | Execute Vector,Not_Equal 2894 6802 |h | Jump_Zero 0x2897 2895 e00a | | Load 0x0,0xa 2896 0257 | W | Execute Discrete,Raise 2897 e002 | | Load 0x0,0x2 2898 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2899 e5fb | | Load 0x2,-0x5 289a e002 | | Load 0x0,0x2 289b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 289c 01d5 | | Execute Vector,Field_Reference 289d 01d5 | | Execute Vector,Field_Reference 289e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 289f e002 | | Load 0x0,0x2 28a0 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 28a1 e5fb | | Load 0x2,-0x5 28a2 e002 | | Load 0x0,0x2 28a3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 28a4 01d5 | | Execute Vector,Field_Reference 28a5 01d5 | | Execute Vector,Field_Reference 28a6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 28a7 e002 | | Load 0x0,0x2 28a8 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 28a9 e5fb | | Load 0x2,-0x5 28aa e002 | | Load 0x0,0x2 28ab 1b90 | | Execute Package,Field_Read,Field_Number 0x90 28ac 01d5 | | Execute Vector,Field_Reference 28ad 01d5 | | Execute Vector,Field_Reference 28ae 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 28af e002 | | Load 0x0,0x2 28b0 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 28b1 e5fb | | Load 0x2,-0x5 28b2 e002 | | Load 0x0,0x2 28b3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 28b4 01d5 | | Execute Vector,Field_Reference 28b5 01d5 | | Execute Vector,Field_Reference 28b6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 28b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 28b8 TRAP_2860: 28b8 0007 | | Action Break_Optional 28b9 e002 | | Load 0x0,0x2 28ba 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 28bb 701a |p | Jump_Nonzero 0x28d6 28bc 0092 64c6 | d | Action Push_String_Extended,0x64c6 ; "[Note: Could not read last used defaults from current database]" 28be e001 | | Load 0x0,0x1 28bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d 28c0 e001 | | Load 0x0,0x1 28c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 28c2 0092 64c7 | d | Action Push_String_Extended,0x64c7 ; " Problem may be a Local_Request_Master database not initialized yet," 28c4 e001 | | Load 0x0,0x1 28c5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 28c6 e001 | | Load 0x0,0x1 28c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 28c8 0092 64c8 | d | Action Push_String_Extended,0x64c8 ; " Or simply one with no data yet. If the latter, then this is ok." 28ca e001 | | Load 0x0,0x1 28cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 28cc e001 | | Load 0x0,0x1 28cd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 28ce 0092 64c9 | d | Action Push_String_Extended,0x64c9 ; " Please check with a Rational field person to verify it is ok.]" 28d0 e001 | | Load 0x0,0x1 28d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 28d2 e001 | | Load 0x0,0x1 28d3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 28d4 e001 | | Load 0x0,0x1 28d5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 28d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 28d7 0000 | | .XXX[0x1] 28d8 ; -------------------------------------------------------------------------------------- 28d8 ; SUBPROGRAM 28d8 ; -------------------------------------------------------------------------------------- 28d8 28db |( | .CONST 0x28db ; Address of begin 28d9 2931 |)1 | .CONST 0x2931 ; Address of exception handler 28da 0001 | | .CONST 0x0001 ; Number of locals 28db BODY_28d8: 28db INIT_28d8: 28db e5fc | | Load 0x2,-0x4 28dc 0c01 | | Execute_Immediate Greater_Equal,0x1 28dd 6852 |hR | Jump_Zero 0x2930 28de e003 | | Load 0x0,0x3 28df 1819 | | Execute Package,Field_Execute,Field_Number 0x19 28e0 e003 | | Load 0x0,0x3 28e1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 28e2 01db | | Execute Vector,Length 28e3 a403 | | Store_Unchecked 0x2,0x3 28e4 e403 | | Load 0x2,0x3 28e5 e002 | | Load 0x0,0x2 28e6 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 28e7 e5fc | | Load 0x2,-0x4 28e8 e002 | | Load 0x0,0x2 28e9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 28ea 01d5 | | Execute Vector,Field_Reference 28eb 01d5 | | Execute Vector,Field_Reference 28ec 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 28ed 027d | } | Execute Discrete,Greater 28ee 6809 |h | Jump_Zero 0x28f8 28ef e002 | | Load 0x0,0x2 28f0 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 28f1 e5fc | | Load 0x2,-0x4 28f2 e002 | | Load 0x0,0x2 28f3 1b90 | | Execute Package,Field_Read,Field_Number 0x90 28f4 01d5 | | Execute Vector,Field_Reference 28f5 01d5 | | Execute Vector,Field_Reference 28f6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 28f7 a403 | | Store_Unchecked 0x2,0x3 28f8 e003 | | Load 0x0,0x3 28f9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 28fa e003 | | Load 0x0,0x3 28fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 28fc 4801 |H | Short_Literal 0x1 28fd e403 | | Load 0x2,0x3 28fe e402 | | Load 0x2,0x2 28ff 01ce | | Execute Vector,Slice_Write 2900 e403 | | Load 0x2,0x3 2901 e002 | | Load 0x0,0x2 2902 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 2903 e5fc | | Load 0x2,-0x4 2904 e002 | | Load 0x0,0x2 2905 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2906 01d5 | | Execute Vector,Field_Reference 2907 01d5 | | Execute Vector,Field_Reference 2908 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 2909 4801 |H | Short_Literal 0x1 290a e403 | | Load 0x2,0x3 290b e402 | | Load 0x2,0x2 290c 01cf | | Execute Vector,Slice_Read 290d 4801 |H | Short_Literal 0x1 290e e403 | | Load 0x2,0x3 290f e002 | | Load 0x0,0x2 2910 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 2911 e5fc | | Load 0x2,-0x4 2912 e002 | | Load 0x0,0x2 2913 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2914 01d7 | | Execute Vector,Field_Read 2915 01d7 | | Execute Vector,Field_Read 2916 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 2917 01ce | | Execute Vector,Slice_Write 2918 e403 | | Load 0x2,0x3 2919 e002 | | Load 0x0,0x2 291a 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 291b e5fc | | Load 0x2,-0x4 291c e002 | | Load 0x0,0x2 291d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 291e 01d5 | | Execute Vector,Field_Reference 291f 01d5 | | Execute Vector,Field_Reference 2920 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 2921 4801 |H | Short_Literal 0x1 2922 e403 | | Load 0x2,0x3 2923 e402 | | Load 0x2,0x2 2924 01cf | | Execute Vector,Slice_Read 2925 4801 |H | Short_Literal 0x1 2926 e403 | | Load 0x2,0x3 2927 e002 | | Load 0x0,0x2 2928 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2929 e5fc | | Load 0x2,-0x4 292a e002 | | Load 0x0,0x2 292b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 292c 01d7 | | Execute Vector,Field_Read 292d 01d7 | | Execute Vector,Field_Read 292e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 292f 01ce | | Execute Vector,Slice_Write 2930 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2931 TRAP_28d8: 2931 0007 | | Action Break_Optional 2932 0092 64ca | d | Action Push_String_Extended,0x64ca ; "[Error: Could not read system username]" 2934 e001 | | Load 0x0,0x1 2935 181d | | Execute Package,Field_Execute,Field_Number 0x1d 2936 e001 | | Load 0x0,0x1 2937 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2938 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2939 0000 0000 | | .BLANK 0000[0x7] 2940 ; -------------------------------------------------------------------------------------- 2940 ; SUBPROGRAM 2940 ; -------------------------------------------------------------------------------------- 2940 2943 |)C | .CONST 0x2943 ; Address of begin 2941 299d |) | .CONST 0x299d ; Address of exception handler 2942 0001 | | .CONST 0x0001 ; Number of locals 2943 BODY_2940: 2943 INIT_2940: 2943 4800 |H | Short_Literal 0x0 2944 a403 | | Store_Unchecked 0x2,0x3 2945 0092 64cb | d | Action Push_String_Extended,0x64cb ; "______" 2947 4801 |H | Short_Literal 0x1 2948 4806 |H | Short_Literal 0x6 2949 e402 | | Load 0x2,0x2 294a 01ce | | Execute Vector,Slice_Write 294b e5fa | | Load 0x2,-0x6 294c 0c01 | | Execute_Immediate Greater_Equal,0x1 294d 684e |hN | Jump_Zero 0x299c 294e e003 | | Load 0x0,0x3 294f 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 2950 01db | | Execute Vector,Length 2951 a403 | | Store_Unchecked 0x2,0x3 2952 e403 | | Load 0x2,0x3 2953 e002 | | Load 0x0,0x2 2954 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 2955 e5fa | | Load 0x2,-0x6 2956 e002 | | Load 0x0,0x2 2957 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2958 01d5 | | Execute Vector,Field_Reference 2959 01d5 | | Execute Vector,Field_Reference 295a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 295b 027d | } | Execute Discrete,Greater 295c 6809 |h | Jump_Zero 0x2966 295d e002 | | Load 0x0,0x2 295e 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 295f e5fa | | Load 0x2,-0x6 2960 e002 | | Load 0x0,0x2 2961 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2962 01d5 | | Execute Vector,Field_Reference 2963 01d5 | | Execute Vector,Field_Reference 2964 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2965 a403 | | Store_Unchecked 0x2,0x3 2966 e003 | | Load 0x0,0x3 2967 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 2968 4801 |H | Short_Literal 0x1 2969 e403 | | Load 0x2,0x3 296a e402 | | Load 0x2,0x2 296b 01ce | | Execute Vector,Slice_Write 296c e403 | | Load 0x2,0x3 296d e002 | | Load 0x0,0x2 296e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 296f e5fa | | Load 0x2,-0x6 2970 e002 | | Load 0x0,0x2 2971 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2972 01d5 | | Execute Vector,Field_Reference 2973 01d5 | | Execute Vector,Field_Reference 2974 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 2975 4801 |H | Short_Literal 0x1 2976 e403 | | Load 0x2,0x3 2977 e402 | | Load 0x2,0x2 2978 01cf | | Execute Vector,Slice_Read 2979 4801 |H | Short_Literal 0x1 297a e403 | | Load 0x2,0x3 297b e002 | | Load 0x0,0x2 297c 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 297d e5fa | | Load 0x2,-0x6 297e e002 | | Load 0x0,0x2 297f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2980 01d7 | | Execute Vector,Field_Read 2981 01d7 | | Execute Vector,Field_Read 2982 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 2983 01ce | | Execute Vector,Slice_Write 2984 e403 | | Load 0x2,0x3 2985 e002 | | Load 0x0,0x2 2986 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2987 e5fa | | Load 0x2,-0x6 2988 e002 | | Load 0x0,0x2 2989 1b90 | | Execute Package,Field_Read,Field_Number 0x90 298a 01d5 | | Execute Vector,Field_Reference 298b 01d5 | | Execute Vector,Field_Reference 298c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 298d 4801 |H | Short_Literal 0x1 298e e403 | | Load 0x2,0x3 298f e402 | | Load 0x2,0x2 2990 01cf | | Execute Vector,Slice_Read 2991 4801 |H | Short_Literal 0x1 2992 e403 | | Load 0x2,0x3 2993 e002 | | Load 0x0,0x2 2994 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2995 e5fa | | Load 0x2,-0x6 2996 e002 | | Load 0x0,0x2 2997 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2998 01d7 | | Execute Vector,Field_Read 2999 01d7 | | Execute Vector,Field_Read 299a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 299b 01ce | | Execute Vector,Slice_Write 299c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 299d TRAP_2940: 299d 0007 | | Action Break_Optional 299e 0092 64cc | d | Action Push_String_Extended,0x64cc ; "[Error: Could not read system configuration]" 29a0 e001 | | Load 0x0,0x1 29a1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 29a2 e001 | | Load 0x0,0x1 29a3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 29a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 29a5 0000 0000 | | .XXX[0x3] 29a7 0000 | | 29a8 ; -------------------------------------------------------------------------------------- 29a8 ; SUBPROGRAM 29a8 ; -------------------------------------------------------------------------------------- 29a8 29da |) | .CONST 0x29da ; Address of begin 29a9 0004 | | .CONST 0x0004 ; Address of exception handler 29aa 0007 | | .CONST 0x0007 ; Number of locals 29ab INIT_29a8: 29ab e004 | | Load 0x0,0x4 29ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 29ad 02c7 | | Declare_Variable Any 29ae 00d8 | | Load_Top At_Offset_0 29af 1c00 | | Execute_Immediate Run_Utility,0x0 29b0 4801 |H | Short_Literal 0x1 29b1 4808 |H | Short_Literal 0x8 29b2 00e9 | | Load_Encached String_Cache 29b3 0334 | 4 | Declare_Variable Array,With_Constraint 29b4 00a0 3018 | 0 | Action Push_Structure_Extended,0x3018 29b6 4801 |H | Short_Literal 0x1 29b7 4808 |H | Short_Literal 0x8 29b8 00e9 | | Load_Encached String_Cache 29b9 0334 | 4 | Declare_Variable Array,With_Constraint 29ba 00a0 301c | 0 | Action Push_Structure_Extended,0x301c 29bc 4801 |H | Short_Literal 0x1 29bd 4808 |H | Short_Literal 0x8 29be 00e9 | | Load_Encached String_Cache 29bf 0334 | 4 | Declare_Variable Array,With_Constraint 29c0 00a0 3020 | 0 | Action Push_Structure_Extended,0x3020 29c2 4801 |H | Short_Literal 0x1 29c3 4808 |H | Short_Literal 0x8 29c4 00e9 | | Load_Encached String_Cache 29c5 0334 | 4 | Declare_Variable Array,With_Constraint 29c6 00a0 3024 | 0$| Action Push_Structure_Extended,0x3024 29c8 4801 |H | Short_Literal 0x1 29c9 4802 |H | Short_Literal 0x2 29ca 00e9 | | Load_Encached String_Cache 29cb 0334 | 4 | Declare_Variable Array,With_Constraint 29cc 4801 |H | Short_Literal 0x1 29cd 4802 |H | Short_Literal 0x2 29ce 00e9 | | Load_Encached String_Cache 29cf 0334 | 4 | Declare_Variable Array,With_Constraint 29d0 4807 |H | Short_Literal 0x7 29d1 4801 |H | Short_Literal 0x1 29d2 e608 | | Load 0x3,0x8 29d3 01d6 | | Execute Vector,Field_Write 29d4 4807 |H | Short_Literal 0x7 29d5 4802 |H | Short_Literal 0x2 29d6 e608 | | Load 0x3,0x8 29d7 01d6 | | Execute Vector,Field_Write 29d8 e607 | | Load 0x3,0x7 29d9 01d4 | | Execute Vector,Structure_Write 29da BODY_29a8: 29da 00be | | Action Activate_Tasks 29db 0092 64cd | d | Action Push_String_Extended,0x64cd ; "87-12-20" 29dd 4801 |H | Short_Literal 0x1 29de 4808 |H | Short_Literal 0x8 29df e603 | | Load 0x3,0x3 29e0 01ce | | Execute Vector,Slice_Write 29e1 0092 64ce | d | Action Push_String_Extended,0x64ce ; "88_10_29" 29e3 4801 |H | Short_Literal 0x1 29e4 4808 |H | Short_Literal 0x8 29e5 e604 | | Load 0x3,0x4 29e6 01ce | | Execute Vector,Slice_Write 29e7 e603 | | Load 0x3,0x3 29e8 e001 | | Load 0x0,0x1 29e9 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 29ea 00d1 | | Pop_Control Pop_Count_1 29eb e603 | | Load 0x3,0x3 29ec 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 29ee 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 29f0 4808 |H | Short_Literal 0x8 29f1 e001 | | Load 0x0,0x1 29f2 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 29f3 00d1 | | Pop_Control Pop_Count_1 29f4 e603 | | Load 0x3,0x3 29f5 e604 | | Load 0x3,0x4 29f6 01d4 | | Execute Vector,Structure_Write 29f7 e604 | | Load 0x3,0x4 29f8 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 29fa 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 29fc 4808 |H | Short_Literal 0x8 29fd e001 | | Load 0x0,0x1 29fe 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 29ff 00d1 | | Pop_Control Pop_Count_1 2a00 e605 | | Load 0x3,0x5 2a01 e001 | | Load 0x0,0x1 2a02 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 2a03 00d1 | | Pop_Control Pop_Count_1 2a04 e605 | | Load 0x3,0x5 2a05 e606 | | Load 0x3,0x6 2a06 01d4 | | Execute Vector,Structure_Write 2a07 e606 | | Load 0x3,0x6 2a08 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 2a0a 0092 64d0 | d | Action Push_String_Extended,0x64d0 ; ":" 2a0c 4808 |H | Short_Literal 0x8 2a0d e001 | | Load 0x0,0x1 2a0e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2a0f 00d1 | | Pop_Control Pop_Count_1 2a10 e5fd | | Load 0x2,-0x3 2a11 0f01 | | Execute_Immediate Equal,0x1 2a12 6815 |h | Jump_Zero 0x2a28 2a13 e602 | | Load 0x3,0x2 2a14 00ea | | Load_Encached Null_String_Cache 2a15 e5ff | | Load 0x2,-0x1 2a16 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 2a18 01cc | | Execute Vector,Catenate 2a19 e604 | | Load 0x3,0x4 2a1a 01cc | | Execute Vector,Catenate 2a1b 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 2a1d 01cc | | Execute Vector,Catenate 2a1e e606 | | Load 0x3,0x6 2a1f 01cc | | Execute Vector,Catenate 2a20 0092 64d1 | d | Action Push_String_Extended,0x64d1 ; "_FLAG" 2a22 01cc | | Execute Vector,Catenate 2a23 4801 |H | Short_Literal 0x1 2a24 e004 | | Load 0x0,0x4 2a25 1814 | | Execute Package,Field_Execute,Field_Number 0x14 2a26 c602 | | Store 0x3,0x2 2a27 780a |x | Jump 0x2a32 2a28 e602 | | Load 0x3,0x2 2a29 00ea | | Load_Encached Null_String_Cache 2a2a e5ff | | Load 0x2,-0x1 2a2b 0092 64d1 | d | Action Push_String_Extended,0x64d1 ; "_FLAG" 2a2d 01cc | | Execute Vector,Catenate 2a2e 4801 |H | Short_Literal 0x1 2a2f e004 | | Load 0x0,0x4 2a30 1814 | | Execute Package,Field_Execute,Field_Number 0x14 2a31 c602 | | Store 0x3,0x2 2a32 4800 |H | Short_Literal 0x0 2a33 e602 | | Load 0x3,0x2 2a34 e004 | | Load 0x0,0x4 2a35 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2a36 4800 |H | Short_Literal 0x0 2a37 e602 | | Load 0x3,0x2 2a38 e004 | | Load 0x0,0x4 2a39 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2a3a 00d8 | | Load_Top At_Offset_0 2a3b e602 | | Load 0x3,0x2 2a3c e004 | | Load 0x0,0x4 2a3d 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2a3e 0092 64d2 | d | Action Push_String_Extended,0x64d2 ; " === Flag File Date of " 2a40 4801 |H | Short_Literal 0x1 2a41 4808 |H | Short_Literal 0x8 2a42 e603 | | Load 0x3,0x3 2a43 01cf | | Execute Vector,Slice_Read 2a44 01cc | | Execute Vector,Catenate 2a45 e602 | | Load 0x3,0x2 2a46 e004 | | Load 0x0,0x4 2a47 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2a48 0092 64d3 | d | Action Push_String_Extended,0x64d3 ; " & Time of " 2a4a 4801 |H | Short_Literal 0x1 2a4b 4808 |H | Short_Literal 0x8 2a4c e605 | | Load 0x3,0x5 2a4d 01cf | | Execute Vector,Slice_Read 2a4e 01cc | | Execute Vector,Catenate 2a4f 0092 64d4 | d | Action Push_String_Extended,0x64d4 ; " === " 2a51 01cc | | Execute Vector,Catenate 2a52 e602 | | Load 0x3,0x2 2a53 e004 | | Load 0x0,0x4 2a54 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2a55 e5fe | | Load 0x2,-0x2 2a56 e602 | | Load 0x3,0x2 2a57 e004 | | Load 0x0,0x4 2a58 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2a59 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2a5b e602 | | Load 0x3,0x2 2a5c e004 | | Load 0x0,0x4 2a5d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2a5e e5fc | | Load 0x2,-0x4 2a5f 0c01 | | Execute_Immediate Greater_Equal,0x1 2a60 6807 |h | Jump_Zero 0x2a68 2a61 e602 | | Load 0x3,0x2 2a62 4801 |H | Short_Literal 0x1 2a63 4801 |H | Short_Literal 0x1 2a64 e5fc | | Load 0x2,-0x4 2a65 e5fa | | Load 0x2,-0x6 2a66 e5fb | | Load 0x2,-0x5 2a67 8247 | G | Call 0x1,0x47 2a68 e5f9 | | Load 0x2,-0x7 2a69 0c01 | | Execute_Immediate Greater_Equal,0x1 2a6a 6807 |h | Jump_Zero 0x2a72 2a6b e602 | | Load 0x3,0x2 2a6c 4801 |H | Short_Literal 0x1 2a6d 4801 |H | Short_Literal 0x1 2a6e e5fc | | Load 0x2,-0x4 2a6f e5f7 | | Load 0x2,-0x9 2a70 e5f8 | | Load 0x2,-0x8 2a71 8247 | G | Call 0x1,0x47 2a72 e602 | | Load 0x3,0x2 2a73 e004 | | Load 0x0,0x4 2a74 1816 | | Execute Package,Field_Execute,Field_Number 0x16 2a75 c602 | | Store 0x3,0x2 2a76 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2a77 0000 | | .XXX[0x1] 2a78 ; -------------------------------------------------------------------------------------- 2a78 ; SUBPROGRAM 2a78 ; -------------------------------------------------------------------------------------- 2a78 2a80 |* | .CONST 0x2a80 ; Address of begin 2a79 0004 | | .CONST 0x0004 ; Address of exception handler 2a7a 0002 | | .CONST 0x0002 ; Number of locals 2a7b INIT_2a78: 2a7b e004 | | Load 0x0,0x4 2a7c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 2a7d 02c7 | | Declare_Variable Any 2a7e 00d8 | | Load_Top At_Offset_0 2a7f 1c00 | | Execute_Immediate Run_Utility,0x0 2a80 BODY_2a78: 2a80 00be | | Action Activate_Tasks 2a81 00d8 | | Load_Top At_Offset_0 2a82 00ea | | Load_Encached Null_String_Cache 2a83 e5ff | | Load 0x2,-0x1 2a84 0092 64d1 | d | Action Push_String_Extended,0x64d1 ; "_FLAG" 2a86 01cc | | Execute Vector,Catenate 2a87 4800 |H | Short_Literal 0x0 2a88 e004 | | Load 0x0,0x4 2a89 1815 | | Execute Package,Field_Execute,Field_Number 0x15 2a8a c602 | | Store 0x3,0x2 2a8b 00d8 | | Load_Top At_Offset_0 2a8c e004 | | Load 0x0,0x4 2a8d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 2a8e c602 | | Store 0x3,0x2 2a8f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2a90 ; -------------------------------------------------------------------------------------- 2a90 ; SUBPROGRAM 2a90 ; -------------------------------------------------------------------------------------- 2a90 2b4f |+O | .CONST 0x2b4f ; Address of begin 2a91 300f |0 | .CONST 0x300f ; Address of exception handler 2a92 0027 | ' | .CONST 0x0027 ; Number of locals 2a93 INIT_2a90: 2a93 00e2 | | Load_Encached Integer_Cache 2a94 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 2a95 00e1 | | Load_Encached Boolean_Cache 2a96 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 2a97 00e2 | | Load_Encached Integer_Cache 2a98 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2a99 00e2 | | Load_Encached Integer_Cache 2a9a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2a9b 4801 |H | Short_Literal 0x1 2a9c 480a |H | Short_Literal 0xa 2a9d 00e9 | | Load_Encached String_Cache 2a9e 0334 | 4 | Declare_Variable Array,With_Constraint 2a9f 4801 |H | Short_Literal 0x1 2aa0 480a |H | Short_Literal 0xa 2aa1 00e9 | | Load_Encached String_Cache 2aa2 0334 | 4 | Declare_Variable Array,With_Constraint 2aa3 480a |H | Short_Literal 0xa 2aa4 4801 |H | Short_Literal 0x1 2aa5 4820 |H | Short_Literal 0x20 2aa6 e609 | | Load 0x3,0x9 2aa7 e607 | | Load 0x3,0x7 2aa8 01d6 | | Execute Vector,Field_Write 2aa9 3ffb |? | Loop_Increasing 0x2aa5 2aaa e606 | | Load 0x3,0x6 2aab 01d4 | | Execute Vector,Structure_Write 2aac 4801 |H | Short_Literal 0x1 2aad 480c |H | Short_Literal 0xc 2aae 00e9 | | Load_Encached String_Cache 2aaf 0334 | 4 | Declare_Variable Array,With_Constraint 2ab0 00a0 3028 | 0(| Action Push_Structure_Extended,0x3028 2ab2 4801 |H | Short_Literal 0x1 2ab3 483c |H< | Short_Literal 0x3c 2ab4 00e9 | | Load_Encached String_Cache 2ab5 0334 | 4 | Declare_Variable Array,With_Constraint 2ab6 4801 |H | Short_Literal 0x1 2ab7 483c |H< | Short_Literal 0x3c 2ab8 00e9 | | Load_Encached String_Cache 2ab9 0334 | 4 | Declare_Variable Array,With_Constraint 2aba 483c |H< | Short_Literal 0x3c 2abb 4801 |H | Short_Literal 0x1 2abc 4820 |H | Short_Literal 0x20 2abd e60b | | Load 0x3,0xb 2abe e609 | | Load 0x3,0x9 2abf 01d6 | | Execute Vector,Field_Write 2ac0 3ffb |? | Loop_Increasing 0x2abc 2ac1 e608 | | Load 0x3,0x8 2ac2 01d4 | | Execute Vector,Structure_Write 2ac3 00e2 | | Load_Encached Integer_Cache 2ac4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2ac5 4801 |H | Short_Literal 0x1 2ac6 4804 |H | Short_Literal 0x4 2ac7 00e9 | | Load_Encached String_Cache 2ac8 0334 | 4 | Declare_Variable Array,With_Constraint 2ac9 00a0 3030 | 00| Action Push_Structure_Extended,0x3030 2acb 4801 |H | Short_Literal 0x1 2acc 4804 |H | Short_Literal 0x4 2acd 00e9 | | Load_Encached String_Cache 2ace 0334 | 4 | Declare_Variable Array,With_Constraint 2acf 00a0 3034 | 04| Action Push_Structure_Extended,0x3034 2ad1 e004 | | Load 0x0,0x4 2ad2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 2ad3 02c7 | | Declare_Variable Any 2ad4 00d8 | | Load_Top At_Offset_0 2ad5 1c00 | | Execute_Immediate Run_Utility,0x0 2ad6 e004 | | Load 0x0,0x4 2ad7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 2ad8 02c7 | | Declare_Variable Any 2ad9 00d8 | | Load_Top At_Offset_0 2ada 1c00 | | Execute_Immediate Run_Utility,0x0 2adb 4801 |H | Short_Literal 0x1 2adc 483c |H< | Short_Literal 0x3c 2add 00e9 | | Load_Encached String_Cache 2ade 0334 | 4 | Declare_Variable Array,With_Constraint 2adf 4801 |H | Short_Literal 0x1 2ae0 483c |H< | Short_Literal 0x3c 2ae1 00e9 | | Load_Encached String_Cache 2ae2 0334 | 4 | Declare_Variable Array,With_Constraint 2ae3 483c |H< | Short_Literal 0x3c 2ae4 4801 |H | Short_Literal 0x1 2ae5 4820 |H | Short_Literal 0x20 2ae6 e611 | | Load 0x3,0x11 2ae7 e60f | | Load 0x3,0xf 2ae8 01d6 | | Execute Vector,Field_Write 2ae9 3ffb |? | Loop_Increasing 0x2ae5 2aea e60e | | Load 0x3,0xe 2aeb 01d4 | | Execute Vector,Structure_Write 2aec 00e2 | | Load_Encached Integer_Cache 2aed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2aee 4801 |H | Short_Literal 0x1 2aef 483c |H< | Short_Literal 0x3c 2af0 00e9 | | Load_Encached String_Cache 2af1 0334 | 4 | Declare_Variable Array,With_Constraint 2af2 4801 |H | Short_Literal 0x1 2af3 483c |H< | Short_Literal 0x3c 2af4 00e9 | | Load_Encached String_Cache 2af5 0334 | 4 | Declare_Variable Array,With_Constraint 2af6 483c |H< | Short_Literal 0x3c 2af7 4801 |H | Short_Literal 0x1 2af8 4820 |H | Short_Literal 0x20 2af9 e613 | | Load 0x3,0x13 2afa e611 | | Load 0x3,0x11 2afb 01d6 | | Execute Vector,Field_Write 2afc 3ffb |? | Loop_Increasing 0x2af8 2afd e610 | | Load 0x3,0x10 2afe 01d4 | | Execute Vector,Structure_Write 2aff 00e2 | | Load_Encached Integer_Cache 2b00 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b01 00e2 | | Load_Encached Integer_Cache 2b02 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b03 00e2 | | Load_Encached Integer_Cache 2b04 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b05 00e2 | | Load_Encached Integer_Cache 2b06 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b07 4801 |H | Short_Literal 0x1 2b08 480b |H | Short_Literal 0xb 2b09 00e9 | | Load_Encached String_Cache 2b0a 0334 | 4 | Declare_Variable Array,With_Constraint 2b0b 00a0 3038 | 08| Action Push_Structure_Extended,0x3038 2b0d 4801 |H | Short_Literal 0x1 2b0e 480a |H | Short_Literal 0xa 2b0f 00e9 | | Load_Encached String_Cache 2b10 0334 | 4 | Declare_Variable Array,With_Constraint 2b11 4801 |H | Short_Literal 0x1 2b12 480a |H | Short_Literal 0xa 2b13 00e9 | | Load_Encached String_Cache 2b14 0334 | 4 | Declare_Variable Array,With_Constraint 2b15 480a |H | Short_Literal 0xa 2b16 4801 |H | Short_Literal 0x1 2b17 4820 |H | Short_Literal 0x20 2b18 e619 | | Load 0x3,0x19 2b19 e617 | | Load 0x3,0x17 2b1a 01d6 | | Execute Vector,Field_Write 2b1b 3ffb |? | Loop_Increasing 0x2b17 2b1c e616 | | Load 0x3,0x16 2b1d 01d4 | | Execute Vector,Structure_Write 2b1e 4801 |H | Short_Literal 0x1 2b1f 4850 |HP | Short_Literal 0x50 2b20 00e9 | | Load_Encached String_Cache 2b21 0334 | 4 | Declare_Variable Array,With_Constraint 2b22 4801 |H | Short_Literal 0x1 2b23 4850 |HP | Short_Literal 0x50 2b24 00e9 | | Load_Encached String_Cache 2b25 0334 | 4 | Declare_Variable Array,With_Constraint 2b26 4850 |HP | Short_Literal 0x50 2b27 4801 |H | Short_Literal 0x1 2b28 4820 |H | Short_Literal 0x20 2b29 e61a | | Load 0x3,0x1a 2b2a e618 | | Load 0x3,0x18 2b2b 01d6 | | Execute Vector,Field_Write 2b2c 3ffb |? | Loop_Increasing 0x2b28 2b2d e617 | | Load 0x3,0x17 2b2e 01d4 | | Execute Vector,Structure_Write 2b2f 00e2 | | Load_Encached Integer_Cache 2b30 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b31 00e2 | | Load_Encached Integer_Cache 2b32 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b33 00e2 | | Load_Encached Integer_Cache 2b34 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b35 00e2 | | Load_Encached Integer_Cache 2b36 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b37 00e2 | | Load_Encached Integer_Cache 2b38 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b39 00e2 | | Load_Encached Integer_Cache 2b3a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b3b 00e1 | | Load_Encached Boolean_Cache 2b3c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b3d 00e2 | | Load_Encached Integer_Cache 2b3e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b3f 00e1 | | Load_Encached Boolean_Cache 2b40 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b41 00e2 | | Load_Encached Integer_Cache 2b42 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b43 00e2 | | Load_Encached Integer_Cache 2b44 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b45 00e2 | | Load_Encached Integer_Cache 2b46 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b47 00e2 | | Load_Encached Integer_Cache 2b48 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b49 00e2 | | Load_Encached Integer_Cache 2b4a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b4b 00e2 | | Load_Encached Integer_Cache 2b4c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b4d 00e2 | | Load_Encached Integer_Cache 2b4e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 2b4f BODY_2a90: 2b4f 00be | | Action Activate_Tasks 2b50 e602 | | Load 0x3,0x2 2b51 4801 |H | Short_Literal 0x1 2b52 4801 |H | Short_Literal 0x1 2b53 0092 64d5 | d | Action Push_String_Extended,0x64d5 ; "Enter desired database number to document & extract: " 2b55 e001 | | Load 0x0,0x1 2b56 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 2b57 c602 | | Store 0x3,0x2 2b58 e602 | | Load 0x3,0x2 2b59 7008 |p | Jump_Nonzero 0x2b62 2b5a 4800 |H | Short_Literal 0x0 2b5b 4802 |H | Short_Literal 0x2 2b5c 0092 64d6 | d | Action Push_String_Extended,0x64d6 ; "Documentation and extract command bypassed, 0 not valid." 2b5e e001 | | Load 0x0,0x1 2b5f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2b60 00cc | | Action Pop_Block 2b61 4501 |E | Exit_Suprogram New_Top_Offset 0x1 2b62 4800 |H | Short_Literal 0x0 2b63 4801 |H | Short_Literal 0x1 2b64 e002 | | Load 0x0,0x2 2b65 1b0e | | Execute Package,Field_Read,Field_Number 0xe 2b66 e002 | | Load 0x0,0x2 2b67 1b0d | | Execute Package,Field_Read,Field_Number 0xd 2b68 01cf | | Execute Vector,Slice_Read 2b69 0092 63fb | c | Action Push_String_Extended,0x63fb ; "gen_params_master" 2b6b 01cc | | Execute Vector,Catenate 2b6c e602 | | Load 0x3,0x2 2b6d 8267 | g | Call 0x1,0x67 2b6e 4800 |H | Short_Literal 0x0 2b6f 4802 |H | Short_Literal 0x2 2b70 0092 64d7 | d | Action Push_String_Extended,0x64d7 ; "Enter a short name to use for document and extract files: " 2b72 e001 | | Load 0x0,0x1 2b73 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2b74 e609 | | Load 0x3,0x9 2b75 e608 | | Load 0x3,0x8 2b76 4801 |H | Short_Literal 0x1 2b77 e001 | | Load 0x0,0x1 2b78 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 2b79 00d1 | | Pop_Control Pop_Count_1 2b7a c609 | | Store 0x3,0x9 2b7b e609 | | Load 0x3,0x9 2b7c 0aff | | Execute_Immediate Plus,-0x1 2b7d 0248 | H | Execute Discrete,Check_In_Integer 2b7e a609 | | Store_Unchecked 0x3,0x9 2b7f e606 | | Load 0x3,0x6 2b80 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2b82 4803 |H | Short_Literal 0x3 2b83 0092 64d8 | d | Action Push_String_Extended,0x64d8 ; "Do you want to have a '|' field separator in extract file?" 2b85 e001 | | Load 0x0,0x1 2b86 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2b87 00d1 | | Pop_Control Pop_Count_1 2b88 4801 |H | Short_Literal 0x1 2b89 4801 |H | Short_Literal 0x1 2b8a e606 | | Load 0x3,0x6 2b8b 01cf | | Execute Vector,Slice_Read 2b8c 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 2b8e 01df | | Execute Vector,Equal 2b8f 6803 |h | Jump_Zero 0x2b93 2b90 4801 |H | Short_Literal 0x1 2b91 a603 | | Store_Unchecked 0x3,0x3 2b92 7802 |x | Jump 0x2b95 2b93 4800 |H | Short_Literal 0x0 2b94 a603 | | Store_Unchecked 0x3,0x3 2b95 e602 | | Load 0x3,0x2 2b96 e002 | | Load 0x0,0x2 2b97 1b96 | | Execute Package,Field_Read,Field_Number 0x96 2b98 01d5 | | Execute Vector,Field_Reference 2b99 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2b9a a604 | | Store_Unchecked 0x3,0x4 2b9b e602 | | Load 0x3,0x2 2b9c e002 | | Load 0x0,0x2 2b9d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 2b9e 01d5 | | Execute Vector,Field_Reference 2b9f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 2ba0 a605 | | Store_Unchecked 0x3,0x5 2ba1 e002 | | Load 0x0,0x2 2ba2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 2ba3 0a0c | | Execute_Immediate Plus,0xc 2ba4 0248 | H | Execute Discrete,Check_In_Integer 2ba5 e609 | | Load 0x3,0x9 2ba6 0273 | s | Execute Discrete,Plus 2ba7 0a04 | | Execute_Immediate Plus,0x4 2ba8 0248 | H | Execute Discrete,Check_In_Integer 2ba9 a60f | | Store_Unchecked 0x3,0xf 2baa e002 | | Load 0x0,0x2 2bab 1b10 | | Execute Package,Field_Read,Field_Number 0x10 2bac 0a0c | | Execute_Immediate Plus,0xc 2bad 0248 | H | Execute Discrete,Check_In_Integer 2bae e609 | | Load 0x3,0x9 2baf 0273 | s | Execute Discrete,Plus 2bb0 0a04 | | Execute_Immediate Plus,0x4 2bb1 0248 | H | Execute Discrete,Check_In_Integer 2bb2 a611 | | Store_Unchecked 0x3,0x11 2bb3 4801 |H | Short_Literal 0x1 2bb4 e002 | | Load 0x0,0x2 2bb5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 2bb6 e002 | | Load 0x0,0x2 2bb7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 2bb8 01cf | | Execute Vector,Slice_Read 2bb9 e607 | | Load 0x3,0x7 2bba 01cc | | Execute Vector,Catenate 2bbb 4801 |H | Short_Literal 0x1 2bbc e609 | | Load 0x3,0x9 2bbd e608 | | Load 0x3,0x8 2bbe 01cf | | Execute Vector,Slice_Read 2bbf 01cc | | Execute Vector,Catenate 2bc0 e60a | | Load 0x3,0xa 2bc1 01cc | | Execute Vector,Catenate 2bc2 4801 |H | Short_Literal 0x1 2bc3 e60f | | Load 0x3,0xf 2bc4 e60e | | Load 0x3,0xe 2bc5 01ce | | Execute Vector,Slice_Write 2bc6 4801 |H | Short_Literal 0x1 2bc7 e002 | | Load 0x0,0x2 2bc8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 2bc9 e002 | | Load 0x0,0x2 2bca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 2bcb 01cf | | Execute Vector,Slice_Read 2bcc e607 | | Load 0x3,0x7 2bcd 01cc | | Execute Vector,Catenate 2bce 4801 |H | Short_Literal 0x1 2bcf e609 | | Load 0x3,0x9 2bd0 e608 | | Load 0x3,0x8 2bd1 01cf | | Execute Vector,Slice_Read 2bd2 01cc | | Execute Vector,Catenate 2bd3 e60b | | Load 0x3,0xb 2bd4 01cc | | Execute Vector,Catenate 2bd5 4801 |H | Short_Literal 0x1 2bd6 e611 | | Load 0x3,0x11 2bd7 e610 | | Load 0x3,0x10 2bd8 01ce | | Execute Vector,Slice_Write 2bd9 e60e | | Load 0x3,0xe 2bda 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 2bdc 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2bde e60f | | Load 0x3,0xf 2bdf e001 | | Load 0x0,0x1 2be0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2be1 00d1 | | Pop_Control Pop_Count_1 2be2 e610 | | Load 0x3,0x10 2be3 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 2be5 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2be7 e611 | | Load 0x3,0x11 2be8 e001 | | Load 0x0,0x1 2be9 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2bea 00d1 | | Pop_Control Pop_Count_1 2beb 4800 |H | Short_Literal 0x0 2bec 4804 |H | Short_Literal 0x4 2bed 0092 64d9 | d | Action Push_String_Extended,0x64d9 ; "Output Format Documentation => " 2bef 4801 |H | Short_Literal 0x1 2bf0 e60f | | Load 0x3,0xf 2bf1 e60e | | Load 0x3,0xe 2bf2 01cf | | Execute Vector,Slice_Read 2bf3 01cc | | Execute Vector,Catenate 2bf4 e001 | | Load 0x0,0x1 2bf5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2bf6 4800 |H | Short_Literal 0x0 2bf7 4804 |H | Short_Literal 0x4 2bf8 0092 64da | d | Action Push_String_Extended,0x64da ; "Output Extracted Data File => " 2bfa 4801 |H | Short_Literal 0x1 2bfb e611 | | Load 0x3,0x11 2bfc e610 | | Load 0x3,0x10 2bfd 01cf | | Execute Vector,Slice_Read 2bfe 01cc | | Execute Vector,Catenate 2bff e001 | | Load 0x0,0x1 2c00 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2c01 e60c | | Load 0x3,0xc 2c02 00ea | | Load_Encached Null_String_Cache 2c03 4801 |H | Short_Literal 0x1 2c04 e60f | | Load 0x3,0xf 2c05 e60e | | Load 0x3,0xe 2c06 01cf | | Execute Vector,Slice_Read 2c07 4801 |H | Short_Literal 0x1 2c08 e004 | | Load 0x0,0x4 2c09 1814 | | Execute Package,Field_Execute,Field_Number 0x14 2c0a c60c | | Store 0x3,0xc 2c0b e60d | | Load 0x3,0xd 2c0c 00ea | | Load_Encached Null_String_Cache 2c0d 4801 |H | Short_Literal 0x1 2c0e e611 | | Load 0x3,0x11 2c0f e610 | | Load 0x3,0x10 2c10 01cf | | Execute Vector,Slice_Read 2c11 4801 |H | Short_Literal 0x1 2c12 e004 | | Load 0x0,0x4 2c13 1814 | | Execute Package,Field_Execute,Field_Number 0x14 2c14 c60d | | Store 0x3,0xd 2c15 4800 |H | Short_Literal 0x0 2c16 e60c | | Load 0x3,0xc 2c17 e004 | | Load 0x0,0x4 2c18 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2c19 4800 |H | Short_Literal 0x0 2c1a e60c | | Load 0x3,0xc 2c1b e004 | | Load 0x0,0x4 2c1c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2c1d 4800 |H | Short_Literal 0x0 2c1e e60d | | Load 0x3,0xd 2c1f e004 | | Load 0x0,0x4 2c20 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 2c21 4800 |H | Short_Literal 0x0 2c22 e60d | | Load 0x3,0xd 2c23 e004 | | Load 0x0,0x4 2c24 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2c25 0092 64db | d | Action Push_String_Extended,0x64db ; "* SIMS Automatic Documentation:" 2c27 e60c | | Load 0x3,0xc 2c28 e004 | | Load 0x0,0x4 2c29 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c2a 0092 64dc | d | Action Push_String_Extended,0x64dc ; "* =============================" 2c2c e60c | | Load 0x3,0xc 2c2d e004 | | Load 0x0,0x4 2c2e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c2f 0092 64dd | d | Action Push_String_Extended,0x64dd ; "* " 2c31 e60c | | Load 0x3,0xc 2c32 e004 | | Load 0x0,0x4 2c33 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c34 0092 64dd | d | Action Push_String_Extended,0x64dd ; "* " 2c36 e60c | | Load 0x3,0xc 2c37 e004 | | Load 0x0,0x4 2c38 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c39 0092 64de | d | Action Push_String_Extended,0x64de ; "* SIMS Application Database Number: " 2c3b e602 | | Load 0x3,0x2 2c3c 00e0 | | Load_Encached Standard_Cache 2c3d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 2c3e 01cc | | Execute Vector,Catenate 2c3f e60c | | Load 0x3,0xc 2c40 e004 | | Load 0x0,0x4 2c41 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c42 0092 64df | d | Action Push_String_Extended,0x64df ; "* SIMS Database Title: " 2c44 4801 |H | Short_Literal 0x1 2c45 e002 | | Load 0x0,0x2 2c46 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2c47 e604 | | Load 0x3,0x4 2c48 e002 | | Load 0x0,0x2 2c49 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2c4a 01d5 | | Execute Vector,Field_Reference 2c4b 01d5 | | Execute Vector,Field_Reference 2c4c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2c4d e002 | | Load 0x0,0x2 2c4e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2c4f e604 | | Load 0x3,0x4 2c50 e002 | | Load 0x0,0x2 2c51 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2c52 01d5 | | Execute Vector,Field_Reference 2c53 01d5 | | Execute Vector,Field_Reference 2c54 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2c55 01cf | | Execute Vector,Slice_Read 2c56 01cc | | Execute Vector,Catenate 2c57 e60c | | Load 0x3,0xc 2c58 e004 | | Load 0x0,0x4 2c59 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c5a 0092 64dd | d | Action Push_String_Extended,0x64dd ; "* " 2c5c e60c | | Load 0x3,0xc 2c5d e004 | | Load 0x0,0x4 2c5e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c5f e602 | | Load 0x3,0x2 2c60 00e0 | | Load_Encached Standard_Cache 2c61 1818 | | Execute Package,Field_Execute,Field_Number 0x18 2c62 01db | | Execute Vector,Length 2c63 a618 | | Store_Unchecked 0x3,0x18 2c64 e602 | | Load 0x3,0x2 2c65 00e0 | | Load_Encached Standard_Cache 2c66 1818 | | Execute Package,Field_Execute,Field_Number 0x18 2c67 4801 |H | Short_Literal 0x1 2c68 e618 | | Load 0x3,0x18 2c69 e617 | | Load 0x3,0x17 2c6a 01ce | | Execute Vector,Slice_Write 2c6b e617 | | Load 0x3,0x17 2c6c 4801 |H | Short_Literal 0x1 2c6d e618 | | Load 0x3,0x18 2c6e e628 | ( | Load 0x3,0x28 2c6f 035b | [ | Declare_Type Array,Constrained 2c70 00d0 | | Action Swap_Control 2c71 01cd | | Execute Vector,Slice_Reference 2c72 00d8 | | Load_Top At_Offset_0 2c73 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 2c75 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2c77 e618 | | Load 0x3,0x18 2c78 e001 | | Load 0x0,0x1 2c79 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2c7a 00d2 | | Pop_Control Pop_Count_2 2c7b 0092 64e0 | d | Action Push_String_Extended,0x64e0 ; "01 Database-" 2c7d 4801 |H | Short_Literal 0x1 2c7e e618 | | Load 0x3,0x18 2c7f e617 | | Load 0x3,0x17 2c80 01cf | | Execute Vector,Slice_Read 2c81 01cc | | Execute Vector,Catenate 2c82 0092 64e1 | d | Action Push_String_Extended,0x64e1 ; " FIXED LENGTH " 2c84 01cc | | Execute Vector,Catenate 2c85 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 2c87 01cc | | Execute Vector,Catenate 2c88 e60c | | Load 0x3,0xc 2c89 e004 | | Load 0x0,0x4 2c8a 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c8b 0092 64e2 | d | Action Push_String_Extended,0x64e2 ; "* Field Names: Field Size: " 2c8d e60c | | Load 0x3,0xc 2c8e e004 | | Load 0x0,0x4 2c8f 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c90 0092 64dd | d | Action Push_String_Extended,0x64dd ; "* " 2c92 e60c | | Load 0x3,0xc 2c93 e004 | | Load 0x0,0x4 2c94 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2c95 480b |H | Short_Literal 0xb 2c96 a618 | | Store_Unchecked 0x3,0x18 2c97 4801 |H | Short_Literal 0x1 2c98 e618 | | Load 0x3,0x18 2c99 e615 | | Load 0x3,0x15 2c9a 01cf | | Execute Vector,Slice_Read 2c9b 4801 |H | Short_Literal 0x1 2c9c e618 | | Load 0x3,0x18 2c9d e617 | | Load 0x3,0x17 2c9e 01ce | | Execute Vector,Slice_Write 2c9f 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2ca1 4804 |H | Short_Literal 0x4 2ca2 4804 |H | Short_Literal 0x4 2ca3 e617 | | Load 0x3,0x17 2ca4 01ce | | Execute Vector,Slice_Write 2ca5 e617 | | Load 0x3,0x17 2ca6 4801 |H | Short_Literal 0x1 2ca7 e618 | | Load 0x3,0x18 2ca8 e628 | ( | Load 0x3,0x28 2ca9 035b | [ | Declare_Type Array,Constrained 2caa 00d0 | | Action Swap_Control 2cab 01cd | | Execute Vector,Slice_Reference 2cac 00d8 | | Load_Top At_Offset_0 2cad 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2caf 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 2cb1 e618 | | Load 0x3,0x18 2cb2 e001 | | Load 0x0,0x1 2cb3 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2cb4 00d2 | | Pop_Control Pop_Count_2 2cb5 e617 | | Load 0x3,0x17 2cb6 4801 |H | Short_Literal 0x1 2cb7 e618 | | Load 0x3,0x18 2cb8 e628 | ( | Load 0x3,0x28 2cb9 035b | [ | Declare_Type Array,Constrained 2cba 00d0 | | Action Swap_Control 2cbb 01cd | | Execute Vector,Slice_Reference 2cbc 00d8 | | Load_Top At_Offset_0 2cbd 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2cbf 0092 64d0 | d | Action Push_String_Extended,0x64d0 ; ":" 2cc1 e618 | | Load 0x3,0x18 2cc2 e001 | | Load 0x0,0x1 2cc3 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2cc4 00d2 | | Pop_Control Pop_Count_2 2cc5 0092 64e3 | d | Action Push_String_Extended,0x64e3 ; " 05 " 2cc7 4801 |H | Short_Literal 0x1 2cc8 4803 |H | Short_Literal 0x3 2cc9 e617 | | Load 0x3,0x17 2cca 01cf | | Execute Vector,Slice_Read 2ccb 01cc | | Execute Vector,Catenate 2ccc 4805 |H | Short_Literal 0x5 2ccd e618 | | Load 0x3,0x18 2cce e617 | | Load 0x3,0x17 2ccf 01cf | | Execute Vector,Slice_Read 2cd0 01cc | | Execute Vector,Catenate 2cd1 4801 |H | Short_Literal 0x1 2cd2 4821 |H! | Short_Literal 0x21 2cd3 e618 | | Load 0x3,0x18 2cd4 0272 | r | Execute Discrete,Minus 2cd5 0248 | H | Execute Discrete,Check_In_Integer 2cd6 e002 | | Load 0x0,0x2 2cd7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2cd8 01cf | | Execute Vector,Slice_Read 2cd9 01cc | | Execute Vector,Catenate 2cda 0092 64e4 | d | Action Push_String_Extended,0x64e4 ; " Character(" 2cdc 01cc | | Execute Vector,Catenate 2cdd e60c | | Load 0x3,0xc 2cde e004 | | Load 0x0,0x4 2cdf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2ce0 480a |H | Short_Literal 0xa 2ce1 00e0 | | Load_Encached Standard_Cache 2ce2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 2ce3 e60c | | Load 0x3,0xc 2ce4 e004 | | Load 0x0,0x4 2ce5 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2ce6 0092 64e5 | d | Action Push_String_Extended,0x64e5 ; "). " 2ce8 e60c | | Load 0x3,0xc 2ce9 e004 | | Load 0x0,0x4 2cea 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2ceb 00cf | | Action Mark_Auxiliary 2cec e605 | | Load 0x3,0x5 2ced e604 | | Load 0x3,0x4 2cee 0263 | c | Execute Discrete,Above_Bound 2cef 70dd |p | Jump_Nonzero 0x2dcd 2cf0 e002 | | Load 0x0,0x2 2cf1 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2cf2 e62a | * | Load 0x3,0x2a 2cf3 e002 | | Load 0x0,0x2 2cf4 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2cf5 01d5 | | Execute Vector,Field_Reference 2cf6 01d5 | | Execute Vector,Field_Reference 2cf7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2cf8 68d2 |h | Jump_Zero 0x2dcb 2cf9 e002 | | Load 0x0,0x2 2cfa 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2cfb e62a | * | Load 0x3,0x2a 2cfc e002 | | Load 0x0,0x2 2cfd 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2cfe 01d5 | | Execute Vector,Field_Reference 2cff 01d5 | | Execute Vector,Field_Reference 2d00 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2d01 a614 | | Store_Unchecked 0x3,0x14 2d02 e614 | | Load 0x3,0x14 2d03 a618 | | Store_Unchecked 0x3,0x18 2d04 4801 |H | Short_Literal 0x1 2d05 e618 | | Load 0x3,0x18 2d06 e002 | | Load 0x0,0x2 2d07 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2d08 e62a | * | Load 0x3,0x2a 2d09 e002 | | Load 0x0,0x2 2d0a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2d0b 01d5 | | Execute Vector,Field_Reference 2d0c 01d5 | | Execute Vector,Field_Reference 2d0d 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 2d0e 01cf | | Execute Vector,Slice_Read 2d0f 4801 |H | Short_Literal 0x1 2d10 e618 | | Load 0x3,0x18 2d11 e617 | | Load 0x3,0x17 2d12 01ce | | Execute Vector,Slice_Write 2d13 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2d15 4804 |H | Short_Literal 0x4 2d16 4804 |H | Short_Literal 0x4 2d17 e617 | | Load 0x3,0x17 2d18 01ce | | Execute Vector,Slice_Write 2d19 e617 | | Load 0x3,0x17 2d1a e618 | | Load 0x3,0x18 2d1b 0aff | | Execute_Immediate Plus,-0x1 2d1c 0248 | H | Execute Discrete,Check_In_Integer 2d1d e618 | | Load 0x3,0x18 2d1e e62b | + | Load 0x3,0x2b 2d1f 035b | [ | Declare_Type Array,Constrained 2d20 00d0 | | Action Swap_Control 2d21 01cd | | Execute Vector,Slice_Reference 2d22 00d8 | | Load_Top At_Offset_0 2d23 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2d25 0092 64d0 | d | Action Push_String_Extended,0x64d0 ; ":" 2d27 4802 |H | Short_Literal 0x2 2d28 e001 | | Load 0x0,0x1 2d29 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d2a 00d2 | | Pop_Control Pop_Count_2 2d2b e617 | | Load 0x3,0x17 2d2c e618 | | Load 0x3,0x18 2d2d 0aff | | Execute_Immediate Plus,-0x1 2d2e 0248 | H | Execute Discrete,Check_In_Integer 2d2f e618 | | Load 0x3,0x18 2d30 e62b | + | Load 0x3,0x2b 2d31 035b | [ | Declare_Type Array,Constrained 2d32 00d0 | | Action Swap_Control 2d33 01cd | | Execute Vector,Slice_Reference 2d34 00d8 | | Load_Top At_Offset_0 2d35 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2d37 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 2d39 4802 |H | Short_Literal 0x2 2d3a e001 | | Load 0x0,0x1 2d3b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d3c 00d2 | | Pop_Control Pop_Count_2 2d3d e617 | | Load 0x3,0x17 2d3e e618 | | Load 0x3,0x18 2d3f 0aff | | Execute_Immediate Plus,-0x1 2d40 0248 | H | Execute Discrete,Check_In_Integer 2d41 e618 | | Load 0x3,0x18 2d42 e62b | + | Load 0x3,0x2b 2d43 035b | [ | Declare_Type Array,Constrained 2d44 00d0 | | Action Swap_Control 2d45 01cd | | Execute Vector,Slice_Reference 2d46 00d8 | | Load_Top At_Offset_0 2d47 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2d49 0092 648c | d | Action Push_String_Extended,0x648c ; "?" 2d4b 4802 |H | Short_Literal 0x2 2d4c e001 | | Load 0x0,0x1 2d4d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d4e 00d2 | | Pop_Control Pop_Count_2 2d4f e617 | | Load 0x3,0x17 2d50 4801 |H | Short_Literal 0x1 2d51 e618 | | Load 0x3,0x18 2d52 e62b | + | Load 0x3,0x2b 2d53 035b | [ | Declare_Type Array,Constrained 2d54 00d0 | | Action Swap_Control 2d55 01cd | | Execute Vector,Slice_Reference 2d56 00d8 | | Load_Top At_Offset_0 2d57 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2d59 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 2d5b e618 | | Load 0x3,0x18 2d5c e001 | | Load 0x0,0x1 2d5d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d5e 00d2 | | Pop_Control Pop_Count_2 2d5f e617 | | Load 0x3,0x17 2d60 4801 |H | Short_Literal 0x1 2d61 e618 | | Load 0x3,0x18 2d62 e62b | + | Load 0x3,0x2b 2d63 035b | [ | Declare_Type Array,Constrained 2d64 00d0 | | Action Swap_Control 2d65 01cd | | Execute Vector,Slice_Reference 2d66 00d8 | | Load_Top At_Offset_0 2d67 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2d69 0092 6433 | d3| Action Push_String_Extended,0x6433 ; "'" 2d6b e618 | | Load 0x3,0x18 2d6c e001 | | Load 0x0,0x1 2d6d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d6e 00d2 | | Pop_Control Pop_Count_2 2d6f e617 | | Load 0x3,0x17 2d70 4801 |H | Short_Literal 0x1 2d71 e618 | | Load 0x3,0x18 2d72 e62b | + | Load 0x3,0x2b 2d73 035b | [ | Declare_Type Array,Constrained 2d74 00d0 | | Action Swap_Control 2d75 01cd | | Execute Vector,Slice_Reference 2d76 00d8 | | Load_Top At_Offset_0 2d77 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2d79 0092 648e | d | Action Push_String_Extended,0x648e ; "/" 2d7b e618 | | Load 0x3,0x18 2d7c e001 | | Load 0x0,0x1 2d7d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d7e 00d2 | | Pop_Control Pop_Count_2 2d7f e617 | | Load 0x3,0x17 2d80 4801 |H | Short_Literal 0x1 2d81 e618 | | Load 0x3,0x18 2d82 e62b | + | Load 0x3,0x2b 2d83 035b | [ | Declare_Type Array,Constrained 2d84 00d0 | | Action Swap_Control 2d85 01cd | | Execute Vector,Slice_Reference 2d86 00d8 | | Load_Top At_Offset_0 2d87 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2d89 0092 648c | d | Action Push_String_Extended,0x648c ; "?" 2d8b e618 | | Load 0x3,0x18 2d8c e001 | | Load 0x0,0x1 2d8d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d8e 00d2 | | Pop_Control Pop_Count_2 2d8f e617 | | Load 0x3,0x17 2d90 4802 |H | Short_Literal 0x2 2d91 4806 |H | Short_Literal 0x6 2d92 e62b | + | Load 0x3,0x2b 2d93 035b | [ | Declare_Type Array,Constrained 2d94 00d0 | | Action Swap_Control 2d95 01cd | | Execute Vector,Slice_Reference 2d96 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 2d98 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 2d9a 4805 |H | Short_Literal 0x5 2d9b e001 | | Load 0x0,0x1 2d9c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 2d9d 00d1 | | Pop_Control Pop_Count_1 2d9e 0092 64e3 | d | Action Push_String_Extended,0x64e3 ; " 05 " 2da0 4801 |H | Short_Literal 0x1 2da1 4803 |H | Short_Literal 0x3 2da2 e617 | | Load 0x3,0x17 2da3 01cf | | Execute Vector,Slice_Read 2da4 01cc | | Execute Vector,Catenate 2da5 4805 |H | Short_Literal 0x5 2da6 e618 | | Load 0x3,0x18 2da7 e617 | | Load 0x3,0x17 2da8 01cf | | Execute Vector,Slice_Read 2da9 01cc | | Execute Vector,Catenate 2daa 4801 |H | Short_Literal 0x1 2dab 4821 |H! | Short_Literal 0x21 2dac e618 | | Load 0x3,0x18 2dad 0272 | r | Execute Discrete,Minus 2dae 0248 | H | Execute Discrete,Check_In_Integer 2daf e002 | | Load 0x0,0x2 2db0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2db1 01cf | | Execute Vector,Slice_Read 2db2 01cc | | Execute Vector,Catenate 2db3 0092 64e4 | d | Action Push_String_Extended,0x64e4 ; " Character(" 2db5 01cc | | Execute Vector,Catenate 2db6 e60c | | Load 0x3,0xc 2db7 e004 | | Load 0x0,0x4 2db8 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2db9 e002 | | Load 0x0,0x2 2dba 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 2dbb e62a | * | Load 0x3,0x2a 2dbc e002 | | Load 0x0,0x2 2dbd 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2dbe 01d5 | | Execute Vector,Field_Reference 2dbf 01d5 | | Execute Vector,Field_Reference 2dc0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 2dc1 00e0 | | Load_Encached Standard_Cache 2dc2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 2dc3 e60c | | Load 0x3,0xc 2dc4 e004 | | Load 0x0,0x4 2dc5 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2dc6 0092 64e5 | d | Action Push_String_Extended,0x64e5 ; "). " 2dc8 e60c | | Load 0x3,0xc 2dc9 e004 | | Load 0x0,0x4 2dca 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2dcb 00c8 | | Action Pop_Auxiliary_Range 2dcc 3f23 |?# | Loop_Increasing 0x2cf0 2dcd 00ce | | Action Pop_Auxiliary 2dce 0007 | | Action Break_Optional 2dcf e602 | | Load 0x3,0x2 2dd0 0f01 | | Execute_Immediate Equal,0x1 2dd1 6803 |h | Jump_Zero 0x2dd5 2dd2 e26a | j | Load 0x1,0x6a 2dd3 a61b | | Store_Unchecked 0x3,0x1b 2dd4 780e |x | Jump 0x2de3 2dd5 e602 | | Load 0x3,0x2 2dd6 0f02 | | Execute_Immediate Equal,0x2 2dd7 6803 |h | Jump_Zero 0x2ddb 2dd8 e26b | k | Load 0x1,0x6b 2dd9 a61b | | Store_Unchecked 0x3,0x1b 2dda 7808 |x | Jump 0x2de3 2ddb e602 | | Load 0x3,0x2 2ddc 0f06 | | Execute_Immediate Equal,0x6 2ddd 6803 |h | Jump_Zero 0x2de1 2dde e26c | l | Load 0x1,0x6c 2ddf a61b | | Store_Unchecked 0x3,0x1b 2de0 7802 |x | Jump 0x2de3 2de1 4801 |H | Short_Literal 0x1 2de2 a61b | | Store_Unchecked 0x3,0x1b 2de3 00e1 | | Load_Encached Boolean_Cache 2de4 00e2 | | Load_Encached Integer_Cache 2de5 00e2 | | Load_Encached Integer_Cache 2de6 e627 | ' | Load 0x3,0x27 2de7 e626 | & | Load 0x3,0x26 2de8 e625 | % | Load 0x3,0x25 2de9 e624 | $ | Load 0x3,0x24 2dea e623 | # | Load 0x3,0x23 2deb e622 | " | Load 0x3,0x22 2dec e61b | | Load 0x3,0x1b 2ded 0092 64e6 | d | Action Push_String_Extended,0x64e6 ; "Automatic Documentation and Database Extract Selection:" 2def e602 | | Load 0x3,0x2 2df0 e605 | | Load 0x3,0x5 2df1 e604 | | Load 0x3,0x4 2df2 821f | | Call 0x1,0x1f 2df3 c61c | | Store 0x3,0x1c 2df4 c61d | | Store 0x3,0x1d 2df5 c61e | | Store 0x3,0x1e 2df6 00cf | | Action Mark_Auxiliary 2df7 0007 | | Action Break_Optional 2df8 00e2 | | Load_Encached Integer_Cache 2df9 00e1 | | Load_Encached Boolean_Cache 2dfa 00e2 | | Load_Encached Integer_Cache 2dfb e627 | ' | Load 0x3,0x27 2dfc e626 | & | Load 0x3,0x26 2dfd e625 | % | Load 0x3,0x25 2dfe e624 | $ | Load 0x3,0x24 2dff e623 | # | Load 0x3,0x23 2e00 e622 | " | Load 0x3,0x22 2e01 4801 |H | Short_Literal 0x1 2e02 e61e | | Load 0x3,0x1e 2e03 e602 | | Load 0x3,0x2 2e04 e605 | | Load 0x3,0x5 2e05 e604 | | Load 0x3,0x4 2e06 8220 | | Call 0x1,0x20 2e07 c61f | | Store 0x3,0x1f 2e08 c620 | | Store 0x3,0x20 2e09 c621 | ! | Store 0x3,0x21 2e0a e620 | | Load 0x3,0x20 2e0b 0f01 | | Execute_Immediate Equal,0x1 2e0c 71d2 |q | Jump_Nonzero 0x2fdf 2e0d e602 | | Load 0x3,0x2 2e0e 0f06 | | Execute_Immediate Equal,0x6 2e0f 6984 |i | Jump_Zero 0x2f94 2e10 00cf | | Action Mark_Auxiliary 2e11 4804 |H | Short_Literal 0x4 2e12 4801 |H | Short_Literal 0x1 2e13 0007 | | Action Break_Optional 2e14 4801 |H | Short_Literal 0x1 2e15 480a |H | Short_Literal 0xa 2e16 e002 | | Load 0x0,0x2 2e17 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2e18 01cf | | Execute Vector,Slice_Read 2e19 e616 | | Load 0x3,0x16 2e1a 01d4 | | Execute Vector,Structure_Write 2e1b e616 | | Load 0x3,0x16 2e1c e001 | | Load 0x0,0x1 2e1d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 2e1e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 2e1f e61f | | Load 0x3,0x1f 2e20 e001 | | Load 0x0,0x1 2e21 1b14 | | Execute Package,Field_Read,Field_Number 0x14 2e22 1817 | | Execute Package,Field_Execute,Field_Number 0x17 2e23 00d1 | | Pop_Control Pop_Count_1 2e24 e616 | | Load 0x3,0x16 2e25 e60d | | Load 0x3,0xd 2e26 e004 | | Load 0x0,0x4 2e27 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2e28 e603 | | Load 0x3,0x3 2e29 0f01 | | Execute_Immediate Equal,0x1 2e2a 6805 |h | Jump_Zero 0x2e30 2e2b 0092 64e7 | d | Action Push_String_Extended,0x64e7 ; "|" 2e2d e60d | | Load 0x3,0xd 2e2e e004 | | Load 0x0,0x4 2e2f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2e30 00cf | | Action Mark_Auxiliary 2e31 48e9 |H | Short_Literal 0xe9 2e32 48dd |H | Short_Literal 0xdd 2e33 0007 | | Action Break_Optional 2e34 e002 | | Load 0x0,0x2 2e35 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2e36 e62e | . | Load 0x3,0x2e 2e37 e002 | | Load 0x0,0x2 2e38 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2e39 01d5 | | Execute Vector,Field_Reference 2e3a 01d5 | | Execute Vector,Field_Reference 2e3b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2e3c 6811 |h | Jump_Zero 0x2e4e 2e3d 4800 |H | Short_Literal 0x0 2e3e a618 | | Store_Unchecked 0x3,0x18 2e3f e618 | | Load 0x3,0x18 2e40 e617 | | Load 0x3,0x17 2e41 e002 | | Load 0x0,0x2 2e42 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2e43 e62e | . | Load 0x3,0x2e 2e44 8256 | V | Call 0x1,0x56 2e45 00d1 | | Pop_Control Pop_Count_1 2e46 c618 | | Store 0x3,0x18 2e47 4801 |H | Short_Literal 0x1 2e48 e618 | | Load 0x3,0x18 2e49 e617 | | Load 0x3,0x17 2e4a 01cf | | Execute Vector,Slice_Read 2e4b e60d | | Load 0x3,0xd 2e4c e004 | | Load 0x0,0x4 2e4d 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2e4e 00c8 | | Action Pop_Auxiliary_Range 2e4f 3fe4 |? | Loop_Increasing 0x2e34 2e50 00ce | | Action Pop_Auxiliary 2e51 00d8 | | Load_Top At_Offset_0 2e52 0f01 | | Execute_Immediate Equal,0x1 2e53 6805 |h | Jump_Zero 0x2e59 2e54 48ea |H | Short_Literal 0xea 2e55 a619 | | Store_Unchecked 0x3,0x19 2e56 48ee |H | Short_Literal 0xee 2e57 a61a | | Store_Unchecked 0x3,0x1a 2e58 7817 |x | Jump 0x2e70 2e59 00d8 | | Load_Top At_Offset_0 2e5a 0f02 | | Execute_Immediate Equal,0x2 2e5b 6805 |h | Jump_Zero 0x2e61 2e5c 48ef |H | Short_Literal 0xef 2e5d a619 | | Store_Unchecked 0x3,0x19 2e5e 48f3 |H | Short_Literal 0xf3 2e5f a61a | | Store_Unchecked 0x3,0x1a 2e60 780f |x | Jump 0x2e70 2e61 00d8 | | Load_Top At_Offset_0 2e62 0f03 | | Execute_Immediate Equal,0x3 2e63 6805 |h | Jump_Zero 0x2e69 2e64 48f4 |H | Short_Literal 0xf4 2e65 a619 | | Store_Unchecked 0x3,0x19 2e66 48f8 |H | Short_Literal 0xf8 2e67 a61a | | Store_Unchecked 0x3,0x1a 2e68 7807 |x | Jump 0x2e70 2e69 00d8 | | Load_Top At_Offset_0 2e6a 0f04 | | Execute_Immediate Equal,0x4 2e6b 6804 |h | Jump_Zero 0x2e70 2e6c 48f9 |H | Short_Literal 0xf9 2e6d a619 | | Store_Unchecked 0x3,0x19 2e6e 48fd |H | Short_Literal 0xfd 2e6f a61a | | Store_Unchecked 0x3,0x1a 2e70 00cf | | Action Mark_Auxiliary 2e71 e61a | | Load 0x3,0x1a 2e72 e619 | | Load 0x3,0x19 2e73 0263 | c | Execute Discrete,Above_Bound 2e74 701a |p | Jump_Nonzero 0x2e8f 2e75 e002 | | Load 0x0,0x2 2e76 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2e77 e62e | . | Load 0x3,0x2e 2e78 e002 | | Load 0x0,0x2 2e79 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2e7a 01d5 | | Execute Vector,Field_Reference 2e7b 01d5 | | Execute Vector,Field_Reference 2e7c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2e7d 680f |h | Jump_Zero 0x2e8d 2e7e e618 | | Load 0x3,0x18 2e7f e617 | | Load 0x3,0x17 2e80 e002 | | Load 0x0,0x2 2e81 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2e82 e62e | . | Load 0x3,0x2e 2e83 8256 | V | Call 0x1,0x56 2e84 00d1 | | Pop_Control Pop_Count_1 2e85 c618 | | Store 0x3,0x18 2e86 4801 |H | Short_Literal 0x1 2e87 e618 | | Load 0x3,0x18 2e88 e617 | | Load 0x3,0x17 2e89 01cf | | Execute Vector,Slice_Read 2e8a e60d | | Load 0x3,0xd 2e8b e004 | | Load 0x0,0x4 2e8c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2e8d 00c8 | | Action Pop_Auxiliary_Range 2e8e 3fe6 |? | Loop_Increasing 0x2e75 2e8f 00c9 | | Action Pop_Auxiliary_Loop 2e90 4803 |H | Short_Literal 0x3 2e91 4801 |H | Short_Literal 0x1 2e92 00cf | | Action Mark_Auxiliary 2e93 48ee |H | Short_Literal 0xee 2e94 48ea |H | Short_Literal 0xea 2e95 0007 | | Action Break_Optional 2e96 e002 | | Load 0x0,0x2 2e97 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2e98 e631 | 1 | Load 0x3,0x31 2e99 e002 | | Load 0x0,0x2 2e9a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2e9b 01d5 | | Execute Vector,Field_Reference 2e9c 01d5 | | Execute Vector,Field_Reference 2e9d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2e9e 6810 |h | Jump_Zero 0x2eaf 2e9f e618 | | Load 0x3,0x18 2ea0 e617 | | Load 0x3,0x17 2ea1 e002 | | Load 0x0,0x2 2ea2 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2ea3 e631 | 1 | Load 0x3,0x31 2ea4 8256 | V | Call 0x1,0x56 2ea5 00d1 | | Pop_Control Pop_Count_1 2ea6 c618 | | Store 0x3,0x18 2ea7 4801 |H | Short_Literal 0x1 2ea8 e618 | | Load 0x3,0x18 2ea9 e002 | | Load 0x0,0x2 2eaa 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2eab 01cf | | Execute Vector,Slice_Read 2eac e60d | | Load 0x3,0xd 2ead e004 | | Load 0x0,0x4 2eae 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2eaf 00c8 | | Action Pop_Auxiliary_Range 2eb0 3fe5 |? | Loop_Increasing 0x2e96 2eb1 00ce | | Action Pop_Auxiliary 2eb2 00c8 | | Action Pop_Auxiliary_Range 2eb3 3fde |? | Loop_Increasing 0x2e92 2eb4 00ce | | Action Pop_Auxiliary 2eb5 00d8 | | Load_Top At_Offset_0 2eb6 0f01 | | Execute_Immediate Equal,0x1 2eb7 6805 |h | Jump_Zero 0x2ebd 2eb8 48fe |H | Short_Literal 0xfe 2eb9 a619 | | Store_Unchecked 0x3,0x19 2eba 4900 |I | Short_Literal 0x100 2ebb a61a | | Store_Unchecked 0x3,0x1a 2ebc 7817 |x | Jump 0x2ed4 2ebd 00d8 | | Load_Top At_Offset_0 2ebe 0f02 | | Execute_Immediate Equal,0x2 2ebf 6805 |h | Jump_Zero 0x2ec5 2ec0 4901 |I | Short_Literal 0x101 2ec1 a619 | | Store_Unchecked 0x3,0x19 2ec2 4903 |I | Short_Literal 0x103 2ec3 a61a | | Store_Unchecked 0x3,0x1a 2ec4 780f |x | Jump 0x2ed4 2ec5 00d8 | | Load_Top At_Offset_0 2ec6 0f03 | | Execute_Immediate Equal,0x3 2ec7 6805 |h | Jump_Zero 0x2ecd 2ec8 4904 |I | Short_Literal 0x104 2ec9 a619 | | Store_Unchecked 0x3,0x19 2eca 4906 |I | Short_Literal 0x106 2ecb a61a | | Store_Unchecked 0x3,0x1a 2ecc 7807 |x | Jump 0x2ed4 2ecd 00d8 | | Load_Top At_Offset_0 2ece 0f04 | | Execute_Immediate Equal,0x4 2ecf 6804 |h | Jump_Zero 0x2ed4 2ed0 4904 |I | Short_Literal 0x104 2ed1 a619 | | Store_Unchecked 0x3,0x19 2ed2 4906 |I | Short_Literal 0x106 2ed3 a61a | | Store_Unchecked 0x3,0x1a 2ed4 00cf | | Action Mark_Auxiliary 2ed5 e61a | | Load 0x3,0x1a 2ed6 e619 | | Load 0x3,0x19 2ed7 0263 | c | Execute Discrete,Above_Bound 2ed8 7026 |p& | Jump_Nonzero 0x2eff 2ed9 e002 | | Load 0x0,0x2 2eda 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2edb e62e | . | Load 0x3,0x2e 2edc e002 | | Load 0x0,0x2 2edd 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2ede 01d5 | | Execute Vector,Field_Reference 2edf 01d5 | | Execute Vector,Field_Reference 2ee0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2ee1 681b |h | Jump_Zero 0x2efd 2ee2 e618 | | Load 0x3,0x18 2ee3 e617 | | Load 0x3,0x17 2ee4 e002 | | Load 0x0,0x2 2ee5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2ee6 e62e | . | Load 0x3,0x2e 2ee7 8256 | V | Call 0x1,0x56 2ee8 00d1 | | Pop_Control Pop_Count_1 2ee9 c618 | | Store 0x3,0x18 2eea e62b | + | Load 0x3,0x2b 2eeb 0e04 | | Execute_Immediate Not_Equal,0x4 2eec 6808 |h | Jump_Zero 0x2ef5 2eed 4801 |H | Short_Literal 0x1 2eee e618 | | Load 0x3,0x18 2eef e617 | | Load 0x3,0x17 2ef0 01cf | | Execute Vector,Slice_Read 2ef1 e60d | | Load 0x3,0xd 2ef2 e004 | | Load 0x0,0x4 2ef3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2ef4 7808 |x | Jump 0x2efd 2ef5 4801 |H | Short_Literal 0x1 2ef6 e618 | | Load 0x3,0x18 2ef7 e002 | | Load 0x0,0x2 2ef8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2ef9 01cf | | Execute Vector,Slice_Read 2efa e60d | | Load 0x3,0xd 2efb e004 | | Load 0x0,0x4 2efc 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2efd 00c8 | | Action Pop_Auxiliary_Range 2efe 3fda |? | Loop_Increasing 0x2ed9 2eff 00c9 | | Action Pop_Auxiliary_Loop 2f00 4802 |H | Short_Literal 0x2 2f01 4801 |H | Short_Literal 0x1 2f02 00cf | | Action Mark_Auxiliary 2f03 4900 |I | Short_Literal 0x100 2f04 48fe |H | Short_Literal 0xfe 2f05 0007 | | Action Break_Optional 2f06 e002 | | Load 0x0,0x2 2f07 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2f08 e631 | 1 | Load 0x3,0x31 2f09 e002 | | Load 0x0,0x2 2f0a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2f0b 01d5 | | Execute Vector,Field_Reference 2f0c 01d5 | | Execute Vector,Field_Reference 2f0d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2f0e 6810 |h | Jump_Zero 0x2f1f 2f0f e618 | | Load 0x3,0x18 2f10 e617 | | Load 0x3,0x17 2f11 e002 | | Load 0x0,0x2 2f12 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2f13 e631 | 1 | Load 0x3,0x31 2f14 8256 | V | Call 0x1,0x56 2f15 00d1 | | Pop_Control Pop_Count_1 2f16 c618 | | Store 0x3,0x18 2f17 4801 |H | Short_Literal 0x1 2f18 e618 | | Load 0x3,0x18 2f19 e002 | | Load 0x0,0x2 2f1a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2f1b 01cf | | Execute Vector,Slice_Read 2f1c e60d | | Load 0x3,0xd 2f1d e004 | | Load 0x0,0x4 2f1e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2f1f 00c8 | | Action Pop_Auxiliary_Range 2f20 3fe5 |? | Loop_Increasing 0x2f06 2f21 00ce | | Action Pop_Auxiliary 2f22 00c8 | | Action Pop_Auxiliary_Range 2f23 3fde |? | Loop_Increasing 0x2f02 2f24 00c9 | | Action Pop_Auxiliary_Loop 2f25 490b |I | Short_Literal 0x10b 2f26 4907 |I | Short_Literal 0x107 2f27 0007 | | Action Break_Optional 2f28 e002 | | Load 0x0,0x2 2f29 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2f2a e62e | . | Load 0x3,0x2e 2f2b e002 | | Load 0x0,0x2 2f2c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2f2d 01d5 | | Execute Vector,Field_Reference 2f2e 01d5 | | Execute Vector,Field_Reference 2f2f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2f30 680f |h | Jump_Zero 0x2f40 2f31 e618 | | Load 0x3,0x18 2f32 e617 | | Load 0x3,0x17 2f33 e002 | | Load 0x0,0x2 2f34 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2f35 e62e | . | Load 0x3,0x2e 2f36 8256 | V | Call 0x1,0x56 2f37 00d1 | | Pop_Control Pop_Count_1 2f38 c618 | | Store 0x3,0x18 2f39 4801 |H | Short_Literal 0x1 2f3a e618 | | Load 0x3,0x18 2f3b e617 | | Load 0x3,0x17 2f3c 01cf | | Execute Vector,Slice_Read 2f3d e60d | | Load 0x3,0xd 2f3e e004 | | Load 0x0,0x4 2f3f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2f40 00c8 | | Action Pop_Auxiliary_Range 2f41 3fe6 |? | Loop_Increasing 0x2f28 2f42 00c9 | | Action Pop_Auxiliary_Loop 2f43 490e |I | Short_Literal 0x10e 2f44 490c |I | Short_Literal 0x10c 2f45 0007 | | Action Break_Optional 2f46 e002 | | Load 0x0,0x2 2f47 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2f48 e62e | . | Load 0x3,0x2e 2f49 e002 | | Load 0x0,0x2 2f4a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2f4b 01d5 | | Execute Vector,Field_Reference 2f4c 01d5 | | Execute Vector,Field_Reference 2f4d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2f4e 681b |h | Jump_Zero 0x2f6a 2f4f e618 | | Load 0x3,0x18 2f50 e617 | | Load 0x3,0x17 2f51 e002 | | Load 0x0,0x2 2f52 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2f53 e62e | . | Load 0x3,0x2e 2f54 8256 | V | Call 0x1,0x56 2f55 00d1 | | Pop_Control Pop_Count_1 2f56 c618 | | Store 0x3,0x18 2f57 e62b | + | Load 0x3,0x2b 2f58 0f01 | | Execute_Immediate Equal,0x1 2f59 6808 |h | Jump_Zero 0x2f62 2f5a 4801 |H | Short_Literal 0x1 2f5b e618 | | Load 0x3,0x18 2f5c e617 | | Load 0x3,0x17 2f5d 01cf | | Execute Vector,Slice_Read 2f5e e60d | | Load 0x3,0xd 2f5f e004 | | Load 0x0,0x4 2f60 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2f61 7808 |x | Jump 0x2f6a 2f62 4801 |H | Short_Literal 0x1 2f63 e618 | | Load 0x3,0x18 2f64 e002 | | Load 0x0,0x2 2f65 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2f66 01cf | | Execute Vector,Slice_Read 2f67 e60d | | Load 0x3,0xd 2f68 e004 | | Load 0x0,0x4 2f69 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2f6a 00c8 | | Action Pop_Auxiliary_Range 2f6b 3fda |? | Loop_Increasing 0x2f46 2f6c 00c9 | | Action Pop_Auxiliary_Loop 2f6d 4912 |I | Short_Literal 0x112 2f6e 490f |I | Short_Literal 0x10f 2f6f 0007 | | Action Break_Optional 2f70 e002 | | Load 0x0,0x2 2f71 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2f72 e62e | . | Load 0x3,0x2e 2f73 e002 | | Load 0x0,0x2 2f74 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2f75 01d5 | | Execute Vector,Field_Reference 2f76 01d5 | | Execute Vector,Field_Reference 2f77 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2f78 680f |h | Jump_Zero 0x2f88 2f79 e618 | | Load 0x3,0x18 2f7a e617 | | Load 0x3,0x17 2f7b e002 | | Load 0x0,0x2 2f7c 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2f7d e62e | . | Load 0x3,0x2e 2f7e 8256 | V | Call 0x1,0x56 2f7f 00d1 | | Pop_Control Pop_Count_1 2f80 c618 | | Store 0x3,0x18 2f81 4801 |H | Short_Literal 0x1 2f82 e618 | | Load 0x3,0x18 2f83 e617 | | Load 0x3,0x17 2f84 01cf | | Execute Vector,Slice_Read 2f85 e60d | | Load 0x3,0xd 2f86 e004 | | Load 0x0,0x4 2f87 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2f88 00c8 | | Action Pop_Auxiliary_Range 2f89 3fe6 |? | Loop_Increasing 0x2f70 2f8a 00ce | | Action Pop_Auxiliary 2f8b 0092 64e8 | d | Action Push_String_Extended,0x64e8 ; "<" 2f8d e60d | | Load 0x3,0xd 2f8e e004 | | Load 0x0,0x4 2f8f 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2f90 00c8 | | Action Pop_Auxiliary_Range 2f91 3e82 |> | Loop_Increasing 0x2e14 2f92 00ce | | Action Pop_Auxiliary 2f93 7849 |xI | Jump 0x2fdd 2f94 4801 |H | Short_Literal 0x1 2f95 480a |H | Short_Literal 0xa 2f96 e002 | | Load 0x0,0x2 2f97 1b20 | | Execute Package,Field_Read,Field_Number 0x20 2f98 01cf | | Execute Vector,Slice_Read 2f99 e616 | | Load 0x3,0x16 2f9a 01d4 | | Execute Vector,Structure_Write 2f9b e616 | | Load 0x3,0x16 2f9c e001 | | Load 0x0,0x1 2f9d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 2f9e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 2f9f e61f | | Load 0x3,0x1f 2fa0 e001 | | Load 0x0,0x1 2fa1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 2fa2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 2fa3 00d1 | | Pop_Control Pop_Count_1 2fa4 e616 | | Load 0x3,0x16 2fa5 e60d | | Load 0x3,0xd 2fa6 e004 | | Load 0x0,0x4 2fa7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2fa8 e603 | | Load 0x3,0x3 2fa9 0f01 | | Execute_Immediate Equal,0x1 2faa 6805 |h | Jump_Zero 0x2fb0 2fab 0092 64e7 | d | Action Push_String_Extended,0x64e7 ; "|" 2fad e60d | | Load 0x3,0xd 2fae e004 | | Load 0x0,0x4 2faf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2fb0 00cf | | Action Mark_Auxiliary 2fb1 e605 | | Load 0x3,0x5 2fb2 e604 | | Load 0x3,0x4 2fb3 0263 | c | Execute Discrete,Above_Bound 2fb4 7022 |p" | Jump_Nonzero 0x2fd7 2fb5 e002 | | Load 0x0,0x2 2fb6 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 2fb7 e62b | + | Load 0x3,0x2b 2fb8 e002 | | Load 0x0,0x2 2fb9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 2fba 01d5 | | Execute Vector,Field_Reference 2fbb 01d5 | | Execute Vector,Field_Reference 2fbc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 2fbd 6817 |h | Jump_Zero 0x2fd5 2fbe e618 | | Load 0x3,0x18 2fbf e617 | | Load 0x3,0x17 2fc0 e002 | | Load 0x0,0x2 2fc1 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 2fc2 e62b | + | Load 0x3,0x2b 2fc3 8256 | V | Call 0x1,0x56 2fc4 00d1 | | Pop_Control Pop_Count_1 2fc5 c618 | | Store 0x3,0x18 2fc6 4801 |H | Short_Literal 0x1 2fc7 e618 | | Load 0x3,0x18 2fc8 e617 | | Load 0x3,0x17 2fc9 01cf | | Execute Vector,Slice_Read 2fca e60d | | Load 0x3,0xd 2fcb e004 | | Load 0x0,0x4 2fcc 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2fcd e603 | | Load 0x3,0x3 2fce 0f01 | | Execute_Immediate Equal,0x1 2fcf 6805 |h | Jump_Zero 0x2fd5 2fd0 0092 64e7 | d | Action Push_String_Extended,0x64e7 ; "|" 2fd2 e60d | | Load 0x3,0xd 2fd3 e004 | | Load 0x0,0x4 2fd4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 2fd5 00c8 | | Action Pop_Auxiliary_Range 2fd6 3fde |? | Loop_Increasing 0x2fb5 2fd7 00ce | | Action Pop_Auxiliary 2fd8 0092 64e8 | d | Action Push_String_Extended,0x64e8 ; "<" 2fda e60d | | Load 0x3,0xd 2fdb e004 | | Load 0x0,0x4 2fdc 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 2fdd 00c9 | | Action Pop_Auxiliary_Loop 2fde 7e19 |~ | Jump 0x2df8 2fdf 00ce | | Action Pop_Auxiliary 2fe0 e60c | | Load 0x3,0xc 2fe1 e004 | | Load 0x0,0x4 2fe2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 2fe3 c60c | | Store 0x3,0xc 2fe4 e60d | | Load 0x3,0xd 2fe5 e004 | | Load 0x0,0x4 2fe6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 2fe7 c60d | | Store 0x3,0xd 2fe8 e001 | | Load 0x0,0x1 2fe9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2fea 0092 640f | d | Action Push_String_Extended,0x640f ; "Total Records Selected => " 2fec e001 | | Load 0x0,0x1 2fed 181d | | Execute Package,Field_Execute,Field_Number 0x1d 2fee e621 | ! | Load 0x3,0x21 2fef e001 | | Load 0x0,0x1 2ff0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 2ff1 e001 | | Load 0x0,0x1 2ff2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2ff3 e001 | | Load 0x0,0x1 2ff4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 2ff5 4800 |H | Short_Literal 0x0 2ff6 4803 |H | Short_Literal 0x3 2ff7 0092 64e9 | d | Action Push_String_Extended,0x64e9 ; "Document and extract data files completed as dated SIMS files," 2ff9 e001 | | Load 0x0,0x1 2ffa 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 2ffb 4800 |H | Short_Literal 0x0 2ffc 4803 |H | Short_Literal 0x3 2ffd 0092 6411 | d | Action Push_String_Extended,0x6411 ; "Log Report written to area => " 2fff 4801 |H | Short_Literal 0x1 3000 e002 | | Load 0x0,0x2 3001 1b10 | | Execute Package,Field_Read,Field_Number 0x10 3002 e002 | | Load 0x0,0x2 3003 1b0f | | Execute Package,Field_Read,Field_Number 0xf 3004 01cf | | Execute Vector,Slice_Read 3005 01cc | | Execute Vector,Catenate 3006 e001 | | Load 0x0,0x1 3007 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3008 4800 |H | Short_Literal 0x0 3009 4804 |H | Short_Literal 0x4 300a 0092 64ea | d | Action Push_String_Extended,0x64ea ; "See dated sims files in your user area ending in _doc and _dat" 300c e001 | | Load 0x0,0x1 300d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 300e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 300f TRAP_2a90: 300f 0007 | | Action Break_Optional 3010 4800 |H | Short_Literal 0x0 3011 4801 |H | Short_Literal 0x1 3012 0092 64eb | d | Action Push_String_Extended,0x64eb ; "Exception in ap_document_and_extract" 3014 e001 | | Load 0x0,0x1 3015 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3016 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3017 0000 | | .XXX[0x1] ; See at 0x29b4 3018 3837 2d31 |87-1| .XXX[0x4] 301a 322d 3230 |2-20| ; See at 0x29ba 301c 3837 5f31 |87_1| .XXX[0x4] 301e 325f 3230 |2_20| ; See at 0x29c0 3020 3030 3a30 |00:0| .XXX[0x4] 3022 303a 3030 |0:00| ; See at 0x29c6 3024 3030 5f30 |00_0| .XXX[0x4] 3026 305f 3030 |0_00| ; See at 0x2ab0 3028 5369 6d73 |Sims| .XXX[0x8] 302a 5f72 6570 |_rep| 302c 6f72 745f |ort_| 302e 2020 2020 | | ; See at 0x2ac9 3030 5f64 6f63 |_doc| .XXX[0x4] 3032 2020 2020 | | ; See at 0x2acf 3034 5f64 6174 |_dat| .XXX[0x4] 3036 2020 2020 | | ; See at 0x2b0b 3038 2031 2e20 | 1. | .XXX[0x8] 303a 496e 6465 |Inde| 303c 783a 2020 |x: | 303e 2020 2020 | | 3040 ; -------------------------------------------------------------------------------------- 3040 ; SUBPROGRAM 3040 ; -------------------------------------------------------------------------------------- 3040 3043 |0C | .CONST 0x3043 ; Address of begin 3041 0004 | | .CONST 0x0004 ; Address of exception handler 3042 0001 | | .CONST 0x0001 ; Number of locals 3043 BODY_3040: 3043 INIT_3040: 3043 4608 |F | Jump_Case 0x9 3044 7808 |x | Jump 0x304d ; case 0x0 3045 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 3046 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 3047 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 3048 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 3049 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 304a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 304b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 304c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 304d 4800 |H | Short_Literal 0x0 304e e7ff | | Load 0x3,-0x1 304f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 3050 4800 |H | Short_Literal 0x0 3051 e7ff | | Load 0x3,-0x1 3052 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 3053 4800 |H | Short_Literal 0x0 3054 e7ff | | Load 0x3,-0x1 3055 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 3056 4800 |H | Short_Literal 0x0 3057 e7ff | | Load 0x3,-0x1 3058 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 3059 4800 |H | Short_Literal 0x0 305a e7ff | | Load 0x3,-0x1 305b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 305c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 305d 0000 0000 | | .XXX[0x3] 305f 0000 | | 3060 ; -------------------------------------------------------------------------------------- 3060 ; SUBPROGRAM 3060 ; -------------------------------------------------------------------------------------- 3060 3063 |0c | .CONST 0x3063 ; Address of begin 3061 0004 | | .CONST 0x0004 ; Address of exception handler 3062 0001 | | .CONST 0x0001 ; Number of locals 3063 BODY_3060: 3063 INIT_3060: 3063 00d1 | | Pop_Control Pop_Count_1 3064 e7ff | | Load 0x3,-0x1 3065 01d8 | | Execute Vector,Element_Type 3066 0322 | " | Declare_Variable Record 3067 00d8 | | Load_Top At_Offset_0 3068 1c00 | | Execute_Immediate Run_Utility,0x0 3069 e7ff | | Load 0x3,-0x1 306a 01dc | | Execute Vector,Last 306b e7ff | | Load 0x3,-0x1 306c 01dd | | Execute Vector,First 306d 0263 | c | Execute Discrete,Above_Bound 306e 7006 |p | Jump_Nonzero 0x3075 306f e602 | | Load 0x3,0x2 3070 e604 | | Load 0x3,0x4 3071 e7ff | | Load 0x3,-0x1 3072 01d6 | | Execute Vector,Field_Write 3073 0a01 | | Execute_Immediate Plus,0x1 3074 7ff8 | | Jump 0x306d 3075 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 3076 0000 0000 | | .XXX[0x2] 3078 ; -------------------------------------------------------------------------------------- 3078 ; SUBPROGRAM 3078 ; -------------------------------------------------------------------------------------- 3078 30d7 |0 | .CONST 0x30d7 ; Address of begin 3079 0004 | | .CONST 0x0004 ; Address of exception handler 307a 0012 | | .CONST 0x0012 ; Number of locals 307b INIT_3078: 307b e004 | | Load 0x0,0x4 307c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 307d 02c7 | | Declare_Variable Any 307e 00d8 | | Load_Top At_Offset_0 307f 1c00 | | Execute_Immediate Run_Utility,0x0 3080 00e2 | | Load_Encached Integer_Cache 3081 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3082 4801 |H | Short_Literal 0x1 3083 4850 |HP | Short_Literal 0x50 3084 00e9 | | Load_Encached String_Cache 3085 0334 | 4 | Declare_Variable Array,With_Constraint 3086 4801 |H | Short_Literal 0x1 3087 4810 |H | Short_Literal 0x10 3088 00e9 | | Load_Encached String_Cache 3089 0334 | 4 | Declare_Variable Array,With_Constraint 308a 00a0 34f0 | 4 | Action Push_Structure_Extended,0x34f0 308c 4801 |H | Short_Literal 0x1 308d 4806 |H | Short_Literal 0x6 308e 00e9 | | Load_Encached String_Cache 308f 0334 | 4 | Declare_Variable Array,With_Constraint 3090 00a0 34f8 | 4 | Action Push_Structure_Extended,0x34f8 3092 4801 |H | Short_Literal 0x1 3093 4806 |H | Short_Literal 0x6 3094 00e9 | | Load_Encached String_Cache 3095 0334 | 4 | Declare_Variable Array,With_Constraint 3096 00a0 34fc | 4 | Action Push_Structure_Extended,0x34fc 3098 00e2 | | Load_Encached Integer_Cache 3099 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 309a 4801 |H | Short_Literal 0x1 309b 4850 |HP | Short_Literal 0x50 309c 00e9 | | Load_Encached String_Cache 309d 0334 | 4 | Declare_Variable Array,With_Constraint 309e 4801 |H | Short_Literal 0x1 309f 4801 |H | Short_Literal 0x1 30a0 00e9 | | Load_Encached String_Cache 30a1 0334 | 4 | Declare_Variable Array,With_Constraint 30a2 4801 |H | Short_Literal 0x1 30a3 4801 |H | Short_Literal 0x1 30a4 00e9 | | Load_Encached String_Cache 30a5 0334 | 4 | Declare_Variable Array,With_Constraint 30a6 4822 |H" | Short_Literal 0x22 30a7 4801 |H | Short_Literal 0x1 30a8 e60b | | Load 0x3,0xb 30a9 01d6 | | Execute Vector,Field_Write 30aa e60a | | Load 0x3,0xa 30ab 01d4 | | Execute Vector,Structure_Write 30ac 00e2 | | Load_Encached Integer_Cache 30ad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 30ae 00e2 | | Load_Encached Integer_Cache 30af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 30b0 00e2 | | Load_Encached Integer_Cache 30b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 30b2 4801 |H | Short_Literal 0x1 30b3 4802 |H | Short_Literal 0x2 30b4 00e9 | | Load_Encached String_Cache 30b5 0334 | 4 | Declare_Variable Array,With_Constraint 30b6 00a0 3500 | 5 | Action Push_Structure_Extended,0x3500 30b8 4801 |H | Short_Literal 0x1 30b9 4802 |H | Short_Literal 0x2 30ba 00e9 | | Load_Encached String_Cache 30bb 0334 | 4 | Declare_Variable Array,With_Constraint 30bc 00a0 3504 | 5 | Action Push_Structure_Extended,0x3504 30be 4801 |H | Short_Literal 0x1 30bf 4802 |H | Short_Literal 0x2 30c0 00e9 | | Load_Encached String_Cache 30c1 0334 | 4 | Declare_Variable Array,With_Constraint 30c2 00a0 3508 | 5 | Action Push_Structure_Extended,0x3508 30c4 4801 |H | Short_Literal 0x1 30c5 4814 |H | Short_Literal 0x14 30c6 00e9 | | Load_Encached String_Cache 30c7 0334 | 4 | Declare_Variable Array,With_Constraint 30c8 4801 |H | Short_Literal 0x1 30c9 4814 |H | Short_Literal 0x14 30ca 00e9 | | Load_Encached String_Cache 30cb 0334 | 4 | Declare_Variable Array,With_Constraint 30cc 4814 |H | Short_Literal 0x14 30cd 4801 |H | Short_Literal 0x1 30ce 4820 |H | Short_Literal 0x20 30cf e614 | | Load 0x3,0x14 30d0 e612 | | Load 0x3,0x12 30d1 01d6 | | Execute Vector,Field_Write 30d2 3ffb |? | Loop_Increasing 0x30ce 30d3 e611 | | Load 0x3,0x11 30d4 01d4 | | Execute Vector,Structure_Write 30d5 00e2 | | Load_Encached Integer_Cache 30d6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 30d7 BODY_3078: 30d7 00be | | Action Activate_Tasks 30d8 0092 64ec | d | Action Push_String_Extended,0x64ec ; "OUT_YYMMDDHHMMss" 30da 4801 |H | Short_Literal 0x1 30db 4810 |H | Short_Literal 0x10 30dc e605 | | Load 0x3,0x5 30dd 01ce | | Execute Vector,Slice_Write 30de e604 | | Load 0x3,0x4 30df e001 | | Load 0x0,0x1 30e0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 30e1 00d1 | | Pop_Control Pop_Count_1 30e2 4801 |H | Short_Literal 0x1 30e3 4802 |H | Short_Literal 0x2 30e4 e604 | | Load 0x3,0x4 30e5 01cf | | Execute Vector,Slice_Read 30e6 4804 |H | Short_Literal 0x4 30e7 4805 |H | Short_Literal 0x5 30e8 e604 | | Load 0x3,0x4 30e9 01cf | | Execute Vector,Slice_Read 30ea 01cc | | Execute Vector,Catenate 30eb 4807 |H | Short_Literal 0x7 30ec 4808 |H | Short_Literal 0x8 30ed e604 | | Load 0x3,0x4 30ee 01cf | | Execute Vector,Slice_Read 30ef 01cc | | Execute Vector,Catenate 30f0 4801 |H | Short_Literal 0x1 30f1 4806 |H | Short_Literal 0x6 30f2 e607 | | Load 0x3,0x7 30f3 01ce | | Execute Vector,Slice_Write 30f4 e00b | | Load 0x0,0xb 30f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 30f6 e00b | | Load 0x0,0xb 30f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 30f8 00d8 | | Load_Top At_Offset_0 30f9 0c00 | | Execute_Immediate Greater_Equal,0x0 30fa 7004 |p | Jump_Nonzero 0x30ff 30fb 00a2 34ec | 4 | Action Push_Discrete_Extended 30fd 0273 | s | Execute Discrete,Plus 30fe 7803 |x | Jump 0x3102 30ff 00a2 34e8 | 4 | Action Push_Discrete_Extended 3101 0273 | s | Execute Discrete,Plus 3102 09f1 | | Execute_Immediate Binary_Scale,-0xf 3103 a60b | | Store_Unchecked 0x3,0xb 3104 e60b | | Load 0x3,0xb 3105 00a2 34e4 | 4 | Action Push_Discrete_Extended 3107 0270 | p | Execute Discrete,Divide 3108 a60d | | Store_Unchecked 0x3,0xd 3109 e60b | | Load 0x3,0xb 310a 483c |H< | Short_Literal 0x3c 310b 0270 | p | Execute Discrete,Divide 310c e60d | | Load 0x3,0xd 310d 483c |H< | Short_Literal 0x3c 310e 0271 | q | Execute Discrete,Times 310f 0272 | r | Execute Discrete,Minus 3110 0248 | H | Execute Discrete,Check_In_Integer 3111 a60c | | Store_Unchecked 0x3,0xc 3112 e60b | | Load 0x3,0xb 3113 e60d | | Load 0x3,0xd 3114 00a2 34e4 | 4 | Action Push_Discrete_Extended 3116 0271 | q | Execute Discrete,Times 3117 0248 | H | Execute Discrete,Check_In_Integer 3118 0272 | r | Execute Discrete,Minus 3119 e60c | | Load 0x3,0xc 311a 483c |H< | Short_Literal 0x3c 311b 0271 | q | Execute Discrete,Times 311c 0272 | r | Execute Discrete,Minus 311d 0248 | H | Execute Discrete,Check_In_Integer 311e a60b | | Store_Unchecked 0x3,0xb 311f e610 | | Load 0x3,0x10 3120 e001 | | Load 0x0,0x1 3121 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3122 1b11 | | Execute Package,Field_Read,Field_Number 0x11 3123 e60d | | Load 0x3,0xd 3124 e001 | | Load 0x0,0x1 3125 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3126 1817 | | Execute Package,Field_Execute,Field_Number 0x17 3127 00d1 | | Pop_Control Pop_Count_1 3128 e60f | | Load 0x3,0xf 3129 e001 | | Load 0x0,0x1 312a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 312b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 312c e60c | | Load 0x3,0xc 312d e001 | | Load 0x0,0x1 312e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 312f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 3130 00d1 | | Pop_Control Pop_Count_1 3131 e60e | | Load 0x3,0xe 3132 e001 | | Load 0x0,0x1 3133 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3134 1b11 | | Execute Package,Field_Read,Field_Number 0x11 3135 e60b | | Load 0x3,0xb 3136 e001 | | Load 0x0,0x1 3137 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3138 1817 | | Execute Package,Field_Execute,Field_Number 0x17 3139 00d1 | | Pop_Control Pop_Count_1 313a 4801 |H | Short_Literal 0x1 313b 4802 |H | Short_Literal 0x2 313c e610 | | Load 0x3,0x10 313d 01cf | | Execute Vector,Slice_Read 313e 4801 |H | Short_Literal 0x1 313f 4802 |H | Short_Literal 0x2 3140 e60f | | Load 0x3,0xf 3141 01cf | | Execute Vector,Slice_Read 3142 01cc | | Execute Vector,Catenate 3143 4801 |H | Short_Literal 0x1 3144 4802 |H | Short_Literal 0x2 3145 e60e | | Load 0x3,0xe 3146 01cf | | Execute Vector,Slice_Read 3147 01cc | | Execute Vector,Catenate 3148 4801 |H | Short_Literal 0x1 3149 4806 |H | Short_Literal 0x6 314a e606 | | Load 0x3,0x6 314b 01ce | | Execute Vector,Slice_Write 314c 0092 64ed | d | Action Push_String_Extended,0x64ed ; "out_" 314e 4801 |H | Short_Literal 0x1 314f 4806 |H | Short_Literal 0x6 3150 e607 | | Load 0x3,0x7 3151 01cf | | Execute Vector,Slice_Read 3152 01cc | | Execute Vector,Catenate 3153 4801 |H | Short_Literal 0x1 3154 4806 |H | Short_Literal 0x6 3155 e606 | | Load 0x3,0x6 3156 01cf | | Execute Vector,Slice_Read 3157 01cc | | Execute Vector,Catenate 3158 4801 |H | Short_Literal 0x1 3159 4810 |H | Short_Literal 0x10 315a e605 | | Load 0x3,0x5 315b 01ce | | Execute Vector,Slice_Write 315c e605 | | Load 0x3,0x5 315d 4801 |H | Short_Literal 0x1 315e 4810 |H | Short_Literal 0x10 315f e613 | | Load 0x3,0x13 3160 035b | [ | Declare_Type Array,Constrained 3161 00d0 | | Action Swap_Control 3162 01cd | | Execute Vector,Slice_Reference 3163 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 3165 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3167 4810 |H | Short_Literal 0x10 3168 e001 | | Load 0x0,0x1 3169 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 316a 00d1 | | Pop_Control Pop_Count_1 316b e002 | | Load 0x0,0x2 316c 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 316d e5ff | | Load 0x2,-0x1 316e 0a01 | | Execute_Immediate Plus,0x1 316f 0248 | H | Execute Discrete,Check_In_Integer 3170 e002 | | Load 0x0,0x2 3171 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3172 01d5 | | Execute Vector,Field_Reference 3173 01d5 | | Execute Vector,Field_Reference 3174 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3175 a612 | | Store_Unchecked 0x3,0x12 3176 4801 |H | Short_Literal 0x1 3177 e612 | | Load 0x3,0x12 3178 e002 | | Load 0x0,0x2 3179 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 317a e5ff | | Load 0x2,-0x1 317b 0a01 | | Execute_Immediate Plus,0x1 317c 0248 | H | Execute Discrete,Check_In_Integer 317d e002 | | Load 0x0,0x2 317e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 317f 01d5 | | Execute Vector,Field_Reference 3180 01d5 | | Execute Vector,Field_Reference 3181 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3182 01cf | | Execute Vector,Slice_Read 3183 4801 |H | Short_Literal 0x1 3184 e612 | | Load 0x3,0x12 3185 e611 | | Load 0x3,0x11 3186 01ce | | Execute Vector,Slice_Write 3187 e611 | | Load 0x3,0x11 3188 4801 |H | Short_Literal 0x1 3189 e612 | | Load 0x3,0x12 318a e613 | | Load 0x3,0x13 318b 035b | [ | Declare_Type Array,Constrained 318c 00d0 | | Action Swap_Control 318d 01cd | | Execute Vector,Slice_Reference 318e 00d8 | | Load_Top At_Offset_0 318f 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 3191 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3193 e612 | | Load 0x3,0x12 3194 e001 | | Load 0x0,0x1 3195 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 3196 00d2 | | Pop_Control Pop_Count_2 3197 e602 | | Load 0x3,0x2 3198 00ea | | Load_Encached Null_String_Cache 3199 e5fd | | Load 0x2,-0x3 319a e605 | | Load 0x3,0x5 319b 01cc | | Execute Vector,Catenate 319c 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 319e 01cc | | Execute Vector,Catenate 319f e5fc | | Load 0x2,-0x4 31a0 e002 | | Load 0x0,0x2 31a1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 31a2 01d5 | | Execute Vector,Field_Reference 31a3 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 31a4 01cc | | Execute Vector,Catenate 31a5 4801 |H | Short_Literal 0x1 31a6 e612 | | Load 0x3,0x12 31a7 e611 | | Load 0x3,0x11 31a8 01cf | | Execute Vector,Slice_Read 31a9 01cc | | Execute Vector,Catenate 31aa 4801 |H | Short_Literal 0x1 31ab e004 | | Load 0x0,0x4 31ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 31ad c602 | | Store 0x3,0x2 31ae 4800 |H | Short_Literal 0x0 31af e602 | | Load 0x3,0x2 31b0 e004 | | Load 0x0,0x4 31b1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 31b2 4800 |H | Short_Literal 0x0 31b3 e602 | | Load 0x3,0x2 31b4 e004 | | Load 0x0,0x4 31b5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 31b6 0007 | | Action Break_Optional 31b7 0092 64ee | d | Action Push_String_Extended,0x64ee ; "=SIMS-V02-D01" 31b9 e602 | | Load 0x3,0x2 31ba e004 | | Load 0x0,0x4 31bb 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 31bc e602 | | Load 0x3,0x2 31bd 4801 |H | Short_Literal 0x1 31be 4801 |H | Short_Literal 0x1 31bf 4800 |H | Short_Literal 0x0 31c0 e5fc | | Load 0x2,-0x4 31c1 e5fe | | Load 0x2,-0x2 31c2 e5ff | | Load 0x2,-0x1 31c3 8222 | " | Call 0x1,0x22 31c4 c602 | | Store 0x3,0x2 31c5 0092 64ef | d | Action Push_String_Extended,0x64ef ; "=DET" 31c7 e602 | | Load 0x3,0x2 31c8 e004 | | Load 0x0,0x4 31c9 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 31ca e602 | | Load 0x3,0x2 31cb 4800 |H | Short_Literal 0x0 31cc 0092 64f0 | d | Action Push_String_Extended,0x64f0 ; "*" 31ce e5fc | | Load 0x2,-0x4 31cf e5fe | | Load 0x2,-0x2 31d0 e5ff | | Load 0x2,-0x1 31d1 8226 | & | Call 0x1,0x26 31d2 c602 | | Store 0x3,0x2 31d3 0092 644e | dN| Action Push_String_Extended,0x644e ; "=END" 31d5 e602 | | Load 0x3,0x2 31d6 e004 | | Load 0x0,0x4 31d7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 31d8 4801 |H | Short_Literal 0x1 31d9 e602 | | Load 0x3,0x2 31da e004 | | Load 0x0,0x4 31db 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 31dc e602 | | Load 0x3,0x2 31dd e004 | | Load 0x0,0x4 31de 181d | | Execute Package,Field_Execute,Field_Number 0x1d 31df 0f01 | | Execute_Immediate Equal,0x1 31e0 6804 |h | Jump_Zero 0x31e5 31e1 e602 | | Load 0x3,0x2 31e2 e004 | | Load 0x0,0x4 31e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 31e4 c602 | | Store 0x3,0x2 31e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 31e6 0000 0000 | | .XXX[0x2] 31e8 ; -------------------------------------------------------------------------------------- 31e8 ; SUBPROGRAM 31e8 ; -------------------------------------------------------------------------------------- 31e8 320e |2 | .CONST 0x320e ; Address of begin 31e9 0004 | | .CONST 0x0004 ; Address of exception handler 31ea 0009 | | .CONST 0x0009 ; Number of locals 31eb INIT_31e8: 31eb 00e2 | | Load_Encached Integer_Cache 31ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 31ed 00e2 | | Load_Encached Integer_Cache 31ee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 31ef 4801 |H | Short_Literal 0x1 31f0 4850 |HP | Short_Literal 0x50 31f1 00e9 | | Load_Encached String_Cache 31f2 0334 | 4 | Declare_Variable Array,With_Constraint 31f3 00e2 | | Load_Encached Integer_Cache 31f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 31f5 4801 |H | Short_Literal 0x1 31f6 4850 |HP | Short_Literal 0x50 31f7 00e9 | | Load_Encached String_Cache 31f8 0334 | 4 | Declare_Variable Array,With_Constraint 31f9 00e2 | | Load_Encached Integer_Cache 31fa 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 31fb 4801 |H | Short_Literal 0x1 31fc 4801 |H | Short_Literal 0x1 31fd 00e9 | | Load_Encached String_Cache 31fe 0334 | 4 | Declare_Variable Array,With_Constraint 31ff 4801 |H | Short_Literal 0x1 3200 4801 |H | Short_Literal 0x1 3201 00e9 | | Load_Encached String_Cache 3202 0334 | 4 | Declare_Variable Array,With_Constraint 3203 480d |H | Short_Literal 0xd 3204 4801 |H | Short_Literal 0x1 3205 e609 | | Load 0x3,0x9 3206 01d6 | | Execute Vector,Field_Write 3207 e608 | | Load 0x3,0x8 3208 01d4 | | Execute Vector,Structure_Write 3209 4801 |H | Short_Literal 0x1 320a 4801 |H | Short_Literal 0x1 320b 00e9 | | Load_Encached String_Cache 320c 0334 | 4 | Declare_Variable Array,With_Constraint 320d 52fe |R | Indirect_Literal Any,0x350c,{0x7c202020, 0x20202020} 320e BODY_31e8: 320e e5fe | | Load 0x2,-0x2 320f 4fff |O | Short_Literal -0x1 3210 027f | | Execute Discrete,Equal 3211 6803 |h | Jump_Zero 0x3215 3212 e5ff | | Load 0x2,-0x1 3213 a602 | | Store_Unchecked 0x3,0x2 3214 7802 |x | Jump 0x3217 3215 e5fe | | Load 0x2,-0x2 3216 a602 | | Store_Unchecked 0x3,0x2 3217 00cf | | Action Mark_Auxiliary 3218 e602 | | Load 0x3,0x2 3219 e5ff | | Load 0x2,-0x1 321a 0263 | c | Execute Discrete,Above_Bound 321b 708f |p | Jump_Nonzero 0x32ab 321c e002 | | Load 0x0,0x2 321d 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 321e e60c | | Load 0x3,0xc 321f e002 | | Load 0x0,0x2 3220 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3221 01d5 | | Execute Vector,Field_Reference 3222 01d5 | | Execute Vector,Field_Reference 3223 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3224 a605 | | Store_Unchecked 0x3,0x5 3225 e002 | | Load 0x0,0x2 3226 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 3227 e60c | | Load 0x3,0xc 3228 e002 | | Load 0x0,0x2 3229 1b90 | | Execute Package,Field_Read,Field_Number 0x90 322a 01d5 | | Execute Vector,Field_Reference 322b 01d5 | | Execute Vector,Field_Reference 322c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 322d a607 | | Store_Unchecked 0x3,0x7 322e e5fa | | Load 0x2,-0x6 322f 0f00 | | Execute_Immediate Equal,0x0 3230 e605 | | Load 0x3,0x5 3231 e607 | | Load 0x3,0x7 3232 027f | | Execute Discrete,Equal 3233 4801 |H | Short_Literal 0x1 3234 e607 | | Load 0x3,0x7 3235 e002 | | Load 0x0,0x2 3236 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3237 e60c | | Load 0x3,0xc 3238 e002 | | Load 0x0,0x2 3239 1b90 | | Execute Package,Field_Read,Field_Number 0x90 323a 01d5 | | Execute Vector,Field_Reference 323b 01d5 | | Execute Vector,Field_Reference 323c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 323d 01cf | | Execute Vector,Slice_Read 323e 4801 |H | Short_Literal 0x1 323f e607 | | Load 0x3,0x7 3240 e002 | | Load 0x0,0x2 3241 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 3242 e60c | | Load 0x3,0xc 3243 e002 | | Load 0x0,0x2 3244 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3245 01d5 | | Execute Vector,Field_Reference 3246 01d5 | | Execute Vector,Field_Reference 3247 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3248 01cf | | Execute Vector,Slice_Read 3249 01df | | Execute Vector,Equal 324a 0279 | y | Execute Discrete,And 324b 0279 | y | Execute Discrete,And 324c 6801 |h | Jump_Zero 0x324e 324d 785b |x[ | Jump 0x32a9 324e e5fc | | Load 0x2,-0x4 324f 0f01 | | Execute_Immediate Equal,0x1 3250 e5fb | | Load 0x2,-0x5 3251 0f01 | | Execute_Immediate Equal,0x1 3252 0278 | x | Execute Discrete,Or 3253 6808 |h | Jump_Zero 0x325c 3254 e603 | | Load 0x3,0x3 3255 e604 | | Load 0x3,0x4 3256 e002 | | Load 0x0,0x2 3257 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 3258 e60c | | Load 0x3,0xc 3259 8255 | U | Call 0x1,0x55 325a 00d1 | | Pop_Control Pop_Count_1 325b c603 | | Store 0x3,0x3 325c e605 | | Load 0x3,0x5 325d e606 | | Load 0x3,0x6 325e e002 | | Load 0x0,0x2 325f 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3260 e60c | | Load 0x3,0xc 3261 8255 | U | Call 0x1,0x55 3262 00d1 | | Pop_Control Pop_Count_1 3263 c605 | | Store 0x3,0x5 3264 e606 | | Load 0x3,0x6 3265 0092 648f | d | Action Push_String_Extended,0x648f ; "^" 3267 e608 | | Load 0x3,0x8 3268 e605 | | Load 0x3,0x5 3269 e001 | | Load 0x0,0x1 326a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 326b 00d1 | | Pop_Control Pop_Count_1 326c e5fb | | Load 0x2,-0x5 326d 0f01 | | Execute_Immediate Equal,0x1 326e e603 | | Load 0x3,0x3 326f 0c01 | | Execute_Immediate Greater_Equal,0x1 3270 0279 | y | Execute Discrete,And 3271 680f |h | Jump_Zero 0x3281 3272 00d8 | | Load_Top At_Offset_0 3273 e5ff | | Load 0x2,-0x1 3274 027e | ~ | Execute Discrete,Not_Equal 3275 6818 |h | Jump_Zero 0x328e 3276 0092 64f1 | d | Action Push_String_Extended,0x64f1 ; ">" 3278 4801 |H | Short_Literal 0x1 3279 4803 |H | Short_Literal 0x3 327a e604 | | Load 0x3,0x4 327b 01cf | | Execute Vector,Slice_Read 327c 01cc | | Execute Vector,Catenate 327d e5f9 | | Load 0x2,-0x7 327e e004 | | Load 0x0,0x4 327f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 3280 780d |x | Jump 0x328e 3281 e5fc | | Load 0x2,-0x4 3282 0f01 | | Execute_Immediate Equal,0x1 3283 e603 | | Load 0x3,0x3 3284 0c01 | | Execute_Immediate Greater_Equal,0x1 3285 0279 | y | Execute Discrete,And 3286 6807 |h | Jump_Zero 0x328e 3287 4801 |H | Short_Literal 0x1 3288 e603 | | Load 0x3,0x3 3289 e604 | | Load 0x3,0x4 328a 01cf | | Execute Vector,Slice_Read 328b e5f9 | | Load 0x2,-0x7 328c e004 | | Load 0x0,0x4 328d 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 328e e5fb | | Load 0x2,-0x5 328f 700e |p | Jump_Nonzero 0x329e 3290 e605 | | Load 0x3,0x5 3291 0c01 | | Execute_Immediate Greater_Equal,0x1 3292 6816 |h | Jump_Zero 0x32a9 3293 4801 |H | Short_Literal 0x1 3294 e605 | | Load 0x3,0x5 3295 e606 | | Load 0x3,0x6 3296 01cf | | Execute Vector,Slice_Read 3297 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3299 01cc | | Execute Vector,Catenate 329a e5f9 | | Load 0x2,-0x7 329b e004 | | Load 0x0,0x4 329c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 329d 780b |x | Jump 0x32a9 329e 00d8 | | Load_Top At_Offset_0 329f e5ff | | Load 0x2,-0x1 32a0 027e | ~ | Execute Discrete,Not_Equal 32a1 6807 |h | Jump_Zero 0x32a9 32a2 4801 |H | Short_Literal 0x1 32a3 e605 | | Load 0x3,0x5 32a4 e606 | | Load 0x3,0x6 32a5 01cf | | Execute Vector,Slice_Read 32a6 e5f9 | | Load 0x2,-0x7 32a7 e004 | | Load 0x0,0x4 32a8 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 32a9 00c8 | | Action Pop_Auxiliary_Range 32aa 3f71 |?q | Loop_Increasing 0x321c 32ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 32ac 0000 0000 | | .BLANK 0000[0x4] 32b0 ; -------------------------------------------------------------------------------------- 32b0 ; SUBPROGRAM 32b0 ; -------------------------------------------------------------------------------------- 32b0 3337 |37 | .CONST 0x3337 ; Address of begin 32b1 34c9 |4 | .CONST 0x34c9 ; Address of exception handler 32b2 0014 | | .CONST 0x0014 ; Number of locals 32b3 INIT_32b0: 32b3 e004 | | Load 0x0,0x4 32b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 32b5 02c7 | | Declare_Variable Any 32b6 00d8 | | Load_Top At_Offset_0 32b7 1c00 | | Execute_Immediate Run_Utility,0x0 32b8 00e2 | | Load_Encached Integer_Cache 32b9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 32ba 4801 |H | Short_Literal 0x1 32bb 4850 |HP | Short_Literal 0x50 32bc 00e9 | | Load_Encached String_Cache 32bd 0334 | 4 | Declare_Variable Array,With_Constraint 32be 4801 |H | Short_Literal 0x1 32bf 49f4 |I | Short_Literal 0x1f4 32c0 00e9 | | Load_Encached String_Cache 32c1 0334 | 4 | Declare_Variable Array,With_Constraint 32c2 00e2 | | Load_Encached Integer_Cache 32c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 32c4 4801 |H | Short_Literal 0x1 32c5 4801 |H | Short_Literal 0x1 32c6 00e9 | | Load_Encached String_Cache 32c7 0334 | 4 | Declare_Variable Array,With_Constraint 32c8 4801 |H | Short_Literal 0x1 32c9 4801 |H | Short_Literal 0x1 32ca 00e9 | | Load_Encached String_Cache 32cb 0334 | 4 | Declare_Variable Array,With_Constraint 32cc 4822 |H" | Short_Literal 0x22 32cd 4801 |H | Short_Literal 0x1 32ce e608 | | Load 0x3,0x8 32cf 01d6 | | Execute Vector,Field_Write 32d0 e607 | | Load 0x3,0x7 32d1 01d4 | | Execute Vector,Structure_Write 32d2 4801 |H | Short_Literal 0x1 32d3 4814 |H | Short_Literal 0x14 32d4 00e9 | | Load_Encached String_Cache 32d5 0334 | 4 | Declare_Variable Array,With_Constraint 32d6 4801 |H | Short_Literal 0x1 32d7 4814 |H | Short_Literal 0x14 32d8 00e9 | | Load_Encached String_Cache 32d9 0334 | 4 | Declare_Variable Array,With_Constraint 32da 4814 |H | Short_Literal 0x14 32db 4801 |H | Short_Literal 0x1 32dc 4820 |H | Short_Literal 0x20 32dd e60b | | Load 0x3,0xb 32de e609 | | Load 0x3,0x9 32df 01d6 | | Execute Vector,Field_Write 32e0 3ffb |? | Loop_Increasing 0x32dc 32e1 e608 | | Load 0x3,0x8 32e2 01d4 | | Execute Vector,Structure_Write 32e3 00e2 | | Load_Encached Integer_Cache 32e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 32e5 4801 |H | Short_Literal 0x1 32e6 4808 |H | Short_Literal 0x8 32e7 00e9 | | Load_Encached String_Cache 32e8 0334 | 4 | Declare_Variable Array,With_Constraint 32e9 4801 |H | Short_Literal 0x1 32ea 4808 |H | Short_Literal 0x8 32eb 00e9 | | Load_Encached String_Cache 32ec 0334 | 4 | Declare_Variable Array,With_Constraint 32ed 4808 |H | Short_Literal 0x8 32ee 4801 |H | Short_Literal 0x1 32ef 4820 |H | Short_Literal 0x20 32f0 e60d | | Load 0x3,0xd 32f1 e60b | | Load 0x3,0xb 32f2 01d6 | | Execute Vector,Field_Write 32f3 3ffb |? | Loop_Increasing 0x32ef 32f4 e60a | | Load 0x3,0xa 32f5 01d4 | | Execute Vector,Structure_Write 32f6 4801 |H | Short_Literal 0x1 32f7 4808 |H | Short_Literal 0x8 32f8 00e9 | | Load_Encached String_Cache 32f9 0334 | 4 | Declare_Variable Array,With_Constraint 32fa 4801 |H | Short_Literal 0x1 32fb 4808 |H | Short_Literal 0x8 32fc 00e9 | | Load_Encached String_Cache 32fd 0334 | 4 | Declare_Variable Array,With_Constraint 32fe 4808 |H | Short_Literal 0x8 32ff 4801 |H | Short_Literal 0x1 3300 4820 |H | Short_Literal 0x20 3301 e60e | | Load 0x3,0xe 3302 e60c | | Load 0x3,0xc 3303 01d6 | | Execute Vector,Field_Write 3304 3ffb |? | Loop_Increasing 0x3300 3305 e60b | | Load 0x3,0xb 3306 01d4 | | Execute Vector,Structure_Write 3307 4801 |H | Short_Literal 0x1 3308 48c8 |H | Short_Literal 0xc8 3309 00e9 | | Load_Encached String_Cache 330a 0334 | 4 | Declare_Variable Array,With_Constraint 330b 4801 |H | Short_Literal 0x1 330c 48c8 |H | Short_Literal 0xc8 330d 00e9 | | Load_Encached String_Cache 330e 0334 | 4 | Declare_Variable Array,With_Constraint 330f 48c8 |H | Short_Literal 0xc8 3310 4801 |H | Short_Literal 0x1 3311 4820 |H | Short_Literal 0x20 3312 e60f | | Load 0x3,0xf 3313 e60d | | Load 0x3,0xd 3314 01d6 | | Execute Vector,Field_Write 3315 3ffb |? | Loop_Increasing 0x3311 3316 e60c | | Load 0x3,0xc 3317 01d4 | | Execute Vector,Structure_Write 3318 00e2 | | Load_Encached Integer_Cache 3319 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 331a 0092 64f2 | d | Action Push_String_Extended,0x64f2 ; ".to_rational.internal_processing.I" 331c 0092 64f3 | d | Action Push_String_Extended,0x64f3 ; "_x_" 331e 4801 |H | Short_Literal 0x1 331f 4828 |H( | Short_Literal 0x28 3320 00e9 | | Load_Encached String_Cache 3321 0334 | 4 | Declare_Variable Array,With_Constraint 3322 4801 |H | Short_Literal 0x1 3323 4828 |H( | Short_Literal 0x28 3324 00e9 | | Load_Encached String_Cache 3325 0334 | 4 | Declare_Variable Array,With_Constraint 3326 4828 |H( | Short_Literal 0x28 3327 4801 |H | Short_Literal 0x1 3328 4820 |H | Short_Literal 0x20 3329 e613 | | Load 0x3,0x13 332a e611 | | Load 0x3,0x11 332b 01d6 | | Execute Vector,Field_Write 332c 3ffb |? | Loop_Increasing 0x3328 332d e610 | | Load 0x3,0x10 332e 01d4 | | Execute Vector,Structure_Write 332f 00e2 | | Load_Encached Integer_Cache 3330 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3331 0092 64f4 | d | Action Push_String_Extended,0x64f4 ; "_sims_local_input_log" 3333 0092 64f5 | d | Action Push_String_Extended,0x64f5 ; "_sims_central_input_log" 3335 029f 5ad3 | Z | Declare_Subprogram INIT_5ad0,For_Call 3337 BODY_32b0: 3337 00be | | Action Activate_Tasks 3338 e5fd | | Load 0x2,-0x3 3339 0f01 | | Execute_Immediate Equal,0x1 333a 6808 |h | Jump_Zero 0x3343 333b 4817 |H | Short_Literal 0x17 333c a611 | | Store_Unchecked 0x3,0x11 333d e613 | | Load 0x3,0x13 333e 4801 |H | Short_Literal 0x1 333f e611 | | Load 0x3,0x11 3340 e610 | | Load 0x3,0x10 3341 01ce | | Execute Vector,Slice_Write 3342 7807 |x | Jump 0x334a 3343 4815 |H | Short_Literal 0x15 3344 a611 | | Store_Unchecked 0x3,0x11 3345 e612 | | Load 0x3,0x12 3346 4801 |H | Short_Literal 0x1 3347 e611 | | Load 0x3,0x11 3348 e610 | | Load 0x3,0x10 3349 01ce | | Execute Vector,Slice_Write 334a e60b | | Load 0x3,0xb 334b e001 | | Load 0x0,0x1 334c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 334d 00d1 | | Pop_Control Pop_Count_1 334e e60b | | Load 0x3,0xb 334f 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 3351 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3353 4808 |H | Short_Literal 0x8 3354 e001 | | Load 0x0,0x1 3355 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 3356 00d1 | | Pop_Control Pop_Count_1 3357 e60b | | Load 0x3,0xb 3358 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 335a 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 335c 4808 |H | Short_Literal 0x8 335d e001 | | Load 0x0,0x1 335e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 335f 00d1 | | Pop_Control Pop_Count_1 3360 e60a | | Load 0x3,0xa 3361 e001 | | Load 0x0,0x1 3362 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 3363 00d1 | | Pop_Control Pop_Count_1 3364 e60a | | Load 0x3,0xa 3365 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 3367 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3369 4808 |H | Short_Literal 0x8 336a e001 | | Load 0x0,0x1 336b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 336c 00d1 | | Pop_Control Pop_Count_1 336d e60a | | Load 0x3,0xa 336e 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 3370 0092 64d0 | d | Action Push_String_Extended,0x64d0 ; ":" 3372 4808 |H | Short_Literal 0x8 3373 e001 | | Load 0x0,0x1 3374 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 3375 00d1 | | Pop_Control Pop_Count_1 3376 e002 | | Load 0x0,0x2 3377 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 3378 0a22 | " | Execute_Immediate Plus,0x22 3379 0248 | H | Execute Discrete,Check_In_Integer 337a 0a08 | | Execute_Immediate Plus,0x8 337b 0a03 | | Execute_Immediate Plus,0x3 337c 0248 | H | Execute Discrete,Check_In_Integer 337d 0a08 | | Execute_Immediate Plus,0x8 337e e611 | | Load 0x3,0x11 337f 0273 | s | Execute Discrete,Plus 3380 0248 | H | Execute Discrete,Check_In_Integer 3381 a60d | | Store_Unchecked 0x3,0xd 3382 4801 |H | Short_Literal 0x1 3383 e002 | | Load 0x0,0x2 3384 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 3385 e002 | | Load 0x0,0x2 3386 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 3387 01cf | | Execute Vector,Slice_Read 3388 e60e | | Load 0x3,0xe 3389 01cc | | Execute Vector,Catenate 338a e60b | | Load 0x3,0xb 338b 01cc | | Execute Vector,Catenate 338c e60f | | Load 0x3,0xf 338d 01cc | | Execute Vector,Catenate 338e e60a | | Load 0x3,0xa 338f 01cc | | Execute Vector,Catenate 3390 4801 |H | Short_Literal 0x1 3391 e611 | | Load 0x3,0x11 3392 e610 | | Load 0x3,0x10 3393 01cf | | Execute Vector,Slice_Read 3394 01cc | | Execute Vector,Catenate 3395 4801 |H | Short_Literal 0x1 3396 e60d | | Load 0x3,0xd 3397 e60c | | Load 0x3,0xc 3398 01ce | | Execute Vector,Slice_Write 3399 e5fd | | Load 0x2,-0x3 339a 0f01 | | Execute_Immediate Equal,0x1 339b 6847 |hG | Jump_Zero 0x33e3 339c 0092 64f6 | d | Action Push_String_Extended,0x64f6 ; "Please mount the Customer SIMS Tape to process next ..." 339e e001 | | Load 0x0,0x1 339f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 33a0 e001 | | Load 0x0,0x1 33a1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 33a2 0092 64f7 | d | Action Push_String_Extended,0x64f7 ; "<PROFILE>" 33a4 0092 64f8 | d | Action Push_String_Extended,0x64f8 ; "MACHINE.DEVICES.TAPE_0" 33a6 0092 64f9 | d | Action Push_String_Extended,0x64f9 ; "R1000" 33a8 0092 64f0 | d | Action Push_String_Extended,0x64f0 ; "*" 33aa 0092 64f0 | d | Action Push_String_Extended,0x64f0 ; "*" 33ac 0092 648c | d | Action Push_String_Extended,0x648c ; "?" 33ae e00c | | Load 0x0,0xc 33af 180e | | Execute Package,Field_Execute,Field_Number 0xe 33b0 00ea | | Load_Encached Null_String_Cache 33b1 4801 |H | Short_Literal 0x1 33b2 0092 64f7 | d | Action Push_String_Extended,0x64f7 ; "<PROFILE>" 33b4 4801 |H | Short_Literal 0x1 33b5 0092 64fa | d | Action Push_String_Extended,0x64fa ; "!machine.sims.to_rational.spr.@" 33b7 0092 64fb | d | Action Push_String_Extended,0x64fb ; "!machine.to_rational.spr.@" 33b9 e00d | | Load 0x0,0xd 33ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 33bb 0092 64f7 | d | Action Push_String_Extended,0x64f7 ; "<PROFILE>" 33bd 0092 64fc | d | Action Push_String_Extended,0x64fc ; "<DIRECTORIES>" 33bf 0092 64fb | d | Action Push_String_Extended,0x64fb ; "!machine.to_rational.spr.@" 33c1 e00d | | Load 0x0,0xd 33c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 33c3 0092 64fd | d | Action Push_String_Extended,0x64fd ; "Processing input files from: " 33c5 4801 |H | Short_Literal 0x1 33c6 e002 | | Load 0x0,0x2 33c7 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 33c8 e002 | | Load 0x0,0x2 33c9 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 33ca 01cf | | Execute Vector,Slice_Read 33cb 01cc | | Execute Vector,Catenate 33cc 0092 64fe | d | Action Push_String_Extended,0x64fe ; ".to_rational.spr.@" 33ce 01cc | | Execute Vector,Catenate 33cf e001 | | Load 0x0,0x1 33d0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 33d1 e001 | | Load 0x0,0x1 33d2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 33d3 4801 |H | Short_Literal 0x1 33d4 e60d | | Load 0x3,0xd 33d5 e60c | | Load 0x3,0xc 33d6 01cf | | Execute Vector,Slice_Read 33d7 4801 |H | Short_Literal 0x1 33d8 e002 | | Load 0x0,0x2 33d9 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 33da e002 | | Load 0x0,0x2 33db 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 33dc 01cf | | Execute Vector,Slice_Read 33dd 0092 64fe | d | Action Push_String_Extended,0x64fe ; ".to_rational.spr.@" 33df 01cc | | Execute Vector,Catenate 33e0 e00e | | Load 0x0,0xe 33e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 33e2 782d |x- | Jump 0x3410 33e3 4800 |H | Short_Literal 0x0 33e4 4800 |H | Short_Literal 0x0 33e5 4800 |H | Short_Literal 0x0 33e6 4800 |H | Short_Literal 0x0 33e7 4800 |H | Short_Literal 0x0 33e8 4800 |H | Short_Literal 0x0 33e9 4800 |H | Short_Literal 0x0 33ea 4800 |H | Short_Literal 0x0 33eb 4800 |H | Short_Literal 0x0 33ec 4800 |H | Short_Literal 0x0 33ed 4800 |H | Short_Literal 0x0 33ee 4800 |H | Short_Literal 0x0 33ef e007 | | Load 0x0,0x7 33f0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 33f1 0092 64fd | d | Action Push_String_Extended,0x64fd ; "Processing input files from: " 33f3 4801 |H | Short_Literal 0x1 33f4 e002 | | Load 0x0,0x2 33f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 33f6 e002 | | Load 0x0,0x2 33f7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 33f8 01cf | | Execute Vector,Slice_Read 33f9 01cc | | Execute Vector,Catenate 33fa 0092 64ff | d | Action Push_String_Extended,0x64ff ; ".@" 33fc 01cc | | Execute Vector,Catenate 33fd e001 | | Load 0x0,0x1 33fe 181d | | Execute Package,Field_Execute,Field_Number 0x1d 33ff e001 | | Load 0x0,0x1 3400 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3401 4801 |H | Short_Literal 0x1 3402 e60d | | Load 0x3,0xd 3403 e60c | | Load 0x3,0xc 3404 01cf | | Execute Vector,Slice_Read 3405 4801 |H | Short_Literal 0x1 3406 e002 | | Load 0x0,0x2 3407 1b16 | | Execute Package,Field_Read,Field_Number 0x16 3408 e002 | | Load 0x0,0x2 3409 1b15 | | Execute Package,Field_Read,Field_Number 0x15 340a 01cf | | Execute Vector,Slice_Read 340b 0092 64ff | d | Action Push_String_Extended,0x64ff ; ".@" 340d 01cc | | Execute Vector,Catenate 340e e00e | | Load 0x0,0xe 340f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 3410 8614 | | Call 0x3,0x14 3411 0092 6500 | e | Action Push_String_Extended,0x6500 ; "Processing SIMS input file... " 3413 e001 | | Load 0x0,0x1 3414 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3415 e001 | | Load 0x0,0x1 3416 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3417 0092 6501 | e | Action Push_String_Extended,0x6501 ; " => " 3419 4801 |H | Short_Literal 0x1 341a e60d | | Load 0x3,0xd 341b e60c | | Load 0x3,0xc 341c 01cf | | Execute Vector,Slice_Read 341d 01cc | | Execute Vector,Catenate 341e e001 | | Load 0x0,0x1 341f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3420 e001 | | Load 0x0,0x1 3421 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3422 e5fd | | Load 0x2,-0x3 3423 0f01 | | Execute_Immediate Equal,0x1 3424 681f |h | Jump_Zero 0x3444 3425 0092 6502 | e | Action Push_String_Extended,0x6502 ; "<DEFAULT>" 3427 0092 6502 | e | Action Push_String_Extended,0x6502 ; "<DEFAULT>" 3429 0092 6502 | e | Action Push_String_Extended,0x6502 ; "<DEFAULT>" 342b 0092 6502 | e | Action Push_String_Extended,0x6502 ; "<DEFAULT>" 342d 4801 |H | Short_Literal 0x1 342e e60d | | Load 0x3,0xd 342f e60c | | Load 0x3,0xc 3430 01cf | | Execute Vector,Slice_Read 3431 e00f | | Load 0x0,0xf 3432 180d | | Execute Package,Field_Execute,Field_Number 0xd 3433 0092 64f7 | d | Action Push_String_Extended,0x64f7 ; "<PROFILE>" 3435 0092 6503 | e | Action Push_String_Extended,0x6503 ; "<WORLDS>" 3437 4be8 |K | Short_Literal 0x3e8 3438 4801 |H | Short_Literal 0x1 3439 e002 | | Load 0x0,0x2 343a 1bb2 | | Execute Package,Field_Read,Field_Number 0xb2 343b e002 | | Load 0x0,0x2 343c 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1 343d 01cf | | Execute Vector,Slice_Read 343e 0092 64fe | d | Action Push_String_Extended,0x64fe ; ".to_rational.spr.@" 3440 01cc | | Execute Vector,Catenate 3441 e008 | | Load 0x0,0x8 3442 181c | | Execute Package,Field_Execute,Field_Number 0x1c 3443 7810 |x | Jump 0x3454 3444 0092 64f7 | d | Action Push_String_Extended,0x64f7 ; "<PROFILE>" 3446 0092 6503 | e | Action Push_String_Extended,0x6503 ; "<WORLDS>" 3448 4be8 |K | Short_Literal 0x3e8 3449 4801 |H | Short_Literal 0x1 344a e002 | | Load 0x0,0x2 344b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 344c e002 | | Load 0x0,0x2 344d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 344e 01cf | | Execute Vector,Slice_Read 344f 0092 64ff | d | Action Push_String_Extended,0x64ff ; ".@" 3451 01cc | | Execute Vector,Catenate 3452 e008 | | Load 0x0,0x8 3453 181c | | Execute Package,Field_Execute,Field_Number 0x1c 3454 4801 |H | Short_Literal 0x1 3455 4801 |H | Short_Literal 0x1 3456 4801 |H | Short_Literal 0x1 3457 4801 |H | Short_Literal 0x1 3458 4801 |H | Short_Literal 0x1 3459 4801 |H | Short_Literal 0x1 345a 4801 |H | Short_Literal 0x1 345b 4801 |H | Short_Literal 0x1 345c 4801 |H | Short_Literal 0x1 345d 4801 |H | Short_Literal 0x1 345e 4801 |H | Short_Literal 0x1 345f 4801 |H | Short_Literal 0x1 3460 e007 | | Load 0x0,0x7 3461 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 3462 0092 6407 | d | Action Push_String_Extended,0x6407 ; " " 3464 e004 | | Load 0x0,0x4 3465 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 3466 00cf | | Action Mark_Auxiliary 3467 00cf | | Action Mark_Auxiliary 3468 0007 | | Action Break_Optional 3469 e602 | | Load 0x3,0x2 346a e004 | | Load 0x0,0x4 346b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 346c 0f01 | | Execute_Immediate Equal,0x1 346d 6802 |h | Jump_Zero 0x3470 346e 00ce | | Action Pop_Auxiliary 346f 7841 |xA | Jump 0x34b1 3470 00e3 | | Load_Encached Natural_Cache 3471 e605 | | Load 0x3,0x5 3472 e602 | | Load 0x3,0x2 3473 e004 | | Load 0x0,0x4 3474 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 3475 00d1 | | Pop_Control Pop_Count_1 3476 c606 | | Store 0x3,0x6 3477 e5fd | | Load 0x2,-0x3 3478 0f01 | | Execute_Immediate Equal,0x1 3479 e002 | | Load 0x0,0x2 347a 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 347b 0f00 | | Execute_Immediate Equal,0x0 347c 0278 | x | Execute Discrete,Or 347d 6809 |h | Jump_Zero 0x3487 347e 0092 6504 | e | Action Push_String_Extended,0x6504 ; "Scanning SIMS Input File Version: " 3480 4801 |H | Short_Literal 0x1 3481 e606 | | Load 0x3,0x6 3482 e605 | | Load 0x3,0x5 3483 01cf | | Execute Vector,Slice_Read 3484 01cc | | Execute Vector,Catenate 3485 e004 | | Load 0x0,0x4 3486 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 3487 e606 | | Load 0x3,0x6 3488 0c05 | | Execute_Immediate Greater_Equal,0x5 3489 4801 |H | Short_Literal 0x1 348a 4805 |H | Short_Literal 0x5 348b e605 | | Load 0x3,0x5 348c 01cf | | Execute Vector,Slice_Read 348d 0092 6505 | e | Action Push_String_Extended,0x6505 ; "=SIMS" 348f 01df | | Execute Vector,Equal 3490 0279 | y | Execute Discrete,And 3491 6801 |h | Jump_Zero 0x3493 3492 7802 |x | Jump 0x3495 3493 00c9 | | Action Pop_Auxiliary_Loop 3494 7fd4 | | Jump 0x3469 3495 00ce | | Action Pop_Auxiliary 3496 e602 | | Load 0x3,0x2 3497 e004 | | Load 0x0,0x4 3498 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 3499 0f01 | | Execute_Immediate Equal,0x1 349a 6801 |h | Jump_Zero 0x349c 349b 7815 |x | Jump 0x34b1 349c 0092 6506 | e | Action Push_String_Extended,0x6506 ; " Processing input request: " 349e e004 | | Load 0x0,0x4 349f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 34a0 e602 | | Load 0x3,0x2 34a1 e5fc | | Load 0x2,-0x4 34a2 e5fd | | Load 0x2,-0x3 34a3 e5fe | | Load 0x2,-0x2 34a4 e5ff | | Load 0x2,-0x1 34a5 8262 | b | Call 0x1,0x62 34a6 c602 | | Store 0x3,0x2 34a7 e602 | | Load 0x3,0x2 34a8 e5fc | | Load 0x2,-0x4 34a9 e5fe | | Load 0x2,-0x2 34aa e5ff | | Load 0x2,-0x1 34ab 8263 | c | Call 0x1,0x63 34ac c602 | | Store 0x3,0x2 34ad e001 | | Load 0x0,0x1 34ae 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 34af 00c9 | | Action Pop_Auxiliary_Loop 34b0 7fb6 | | Jump 0x3467 34b1 00ce | | Action Pop_Auxiliary 34b2 e602 | | Load 0x3,0x2 34b3 e004 | | Load 0x0,0x4 34b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 34b5 0f01 | | Execute_Immediate Equal,0x1 34b6 6811 |h | Jump_Zero 0x34c8 34b7 e602 | | Load 0x3,0x2 34b8 e004 | | Load 0x0,0x4 34b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 34ba c602 | | Store 0x3,0x2 34bb e5fd | | Load 0x2,-0x3 34bc 0f01 | | Execute_Immediate Equal,0x1 34bd e002 | | Load 0x0,0x2 34be 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 34bf 0f00 | | Execute_Immediate Equal,0x0 34c0 0278 | x | Execute Discrete,Or 34c1 6806 |h | Jump_Zero 0x34c8 34c2 4801 |H | Short_Literal 0x1 34c3 4804 |H | Short_Literal 0x4 34c4 0092 6507 | e | Action Push_String_Extended,0x6507 ; "[Loading/processing completed for this problem input file.]" 34c6 e001 | | Load 0x0,0x1 34c7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 34c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 34c9 TRAP_32b0: 34c9 0007 | | Action Break_Optional 34ca 4801 |H | Short_Literal 0x1 34cb 4804 |H | Short_Literal 0x4 34cc 0092 6508 | e | Action Push_String_Extended,0x6508 ; "[Exception occurred in ap_remote_load_extract_from_transfer.]" 34ce e001 | | Load 0x0,0x1 34cf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 34d0 4800 |H | Short_Literal 0x0 34d1 4804 |H | Short_Literal 0x4 34d2 0092 6509 | e | Action Push_String_Extended,0x6509 ; "Problem in loading remote end user SIMS problem files," 34d4 e001 | | Load 0x0,0x1 34d5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 34d6 4801 |H | Short_Literal 0x1 34d7 4804 |H | Short_Literal 0x4 34d8 0092 650a | e | Action Push_String_Extended,0x650a ; "Possible file not found problem, check file name used," 34da e001 | | Load 0x0,0x1 34db 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 34dc 4801 |H | Short_Literal 0x1 34dd 4804 |H | Short_Literal 0x4 34de 0092 650b | e | Action Push_String_Extended,0x650b ; "or possible incomplete or partial update record to fix." 34e0 e001 | | Load 0x0,0x1 34e1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 34e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 34e3 0000 0000 | | .BLANK 0000[0x4] 34e7 0e10 0000 | | .XXX[0x9] 34e9 0000 0000 | | 34eb 4000 ffff |@ | 34ed ffff ffff | | 34ef c000 | | ; See at 0x308a 34f0 6f75 745f |out_| .XXX[0x8] 34f2 7979 6d6d |yymm| 34f4 6464 6868 |ddhh| 34f6 6d6d 7373 |mmss| ; See at 0x3090 34f8 3132 3334 |1234| .XXX[0x4] 34fa 3536 2020 |56 | ; See at 0x3096 34fc 3839 3031 |8901| .XXX[0x4] 34fe 3038 2020 |08 | ; See at 0x30b6 3500 2020 2020 | | .BLANK 2020[0x4] ; See at 0x30bc 3504 2020 2020 | | .BLANK 2020[0x4] ; See at 0x30c2 3508 2020 2020 | | .BLANK 2020[0x4] 350c 7c20 2020 || | .LITERAL {0x7c202020, 0x20202020} 3510 ; -------------------------------------------------------------------------------------- 3510 ; SUBPROGRAM 3510 ; -------------------------------------------------------------------------------------- 3510 3564 |5d | .CONST 0x3564 ; Address of begin 3511 375b |7[ | .CONST 0x375b ; Address of exception handler 3512 000e | | .CONST 0x000e ; Number of locals 3513 INIT_3510: 3513 00e2 | | Load_Encached Integer_Cache 3514 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3515 4801 |H | Short_Literal 0x1 3516 4850 |HP | Short_Literal 0x50 3517 00e9 | | Load_Encached String_Cache 3518 0334 | 4 | Declare_Variable Array,With_Constraint 3519 4801 |H | Short_Literal 0x1 351a 49f4 |I | Short_Literal 0x1f4 351b 00e9 | | Load_Encached String_Cache 351c 0334 | 4 | Declare_Variable Array,With_Constraint 351d 00e2 | | Load_Encached Integer_Cache 351e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 351f 4801 |H | Short_Literal 0x1 3520 48c8 |H | Short_Literal 0xc8 3521 00e9 | | Load_Encached String_Cache 3522 0334 | 4 | Declare_Variable Array,With_Constraint 3523 4801 |H | Short_Literal 0x1 3524 48c8 |H | Short_Literal 0xc8 3525 00e9 | | Load_Encached String_Cache 3526 0334 | 4 | Declare_Variable Array,With_Constraint 3527 48c8 |H | Short_Literal 0xc8 3528 4801 |H | Short_Literal 0x1 3529 4820 |H | Short_Literal 0x20 352a e609 | | Load 0x3,0x9 352b e607 | | Load 0x3,0x7 352c 01d6 | | Execute Vector,Field_Write 352d 3ffb |? | Loop_Increasing 0x3529 352e e606 | | Load 0x3,0x6 352f 01d4 | | Execute Vector,Structure_Write 3530 00e2 | | Load_Encached Integer_Cache 3531 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3532 4801 |H | Short_Literal 0x1 3533 4802 |H | Short_Literal 0x2 3534 00e9 | | Load_Encached String_Cache 3535 0334 | 4 | Declare_Variable Array,With_Constraint 3536 5295 |R | Indirect_Literal Any,0x37cc,{0x78782020, 0x20202020} 3537 e004 | | Load 0x0,0x4 3538 1b0d | | Execute Package,Field_Read,Field_Number 0xd 3539 02c7 | | Declare_Variable Any 353a 00d8 | | Load_Top At_Offset_0 353b 1c00 | | Execute_Immediate Run_Utility,0x0 353c 4801 |H | Short_Literal 0x1 353d 4990 |I | Short_Literal 0x190 353e 00e9 | | Load_Encached String_Cache 353f 0334 | 4 | Declare_Variable Array,With_Constraint 3540 4801 |H | Short_Literal 0x1 3541 4990 |I | Short_Literal 0x190 3542 00e9 | | Load_Encached String_Cache 3543 0334 | 4 | Declare_Variable Array,With_Constraint 3544 4990 |I | Short_Literal 0x190 3545 4801 |H | Short_Literal 0x1 3546 4820 |H | Short_Literal 0x20 3547 e60d | | Load 0x3,0xd 3548 e60b | | Load 0x3,0xb 3549 01d6 | | Execute Vector,Field_Write 354a 3ffb |? | Loop_Increasing 0x3546 354b e60a | | Load 0x3,0xa 354c 01d4 | | Execute Vector,Structure_Write 354d 00e2 | | Load_Encached Integer_Cache 354e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 354f 00e2 | | Load_Encached Integer_Cache 3550 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3551 00e2 | | Load_Encached Integer_Cache 3552 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3553 4801 |H | Short_Literal 0x1 3554 480a |H | Short_Literal 0xa 3555 00e9 | | Load_Encached String_Cache 3556 0334 | 4 | Declare_Variable Array,With_Constraint 3557 4801 |H | Short_Literal 0x1 3558 480a |H | Short_Literal 0xa 3559 00e9 | | Load_Encached String_Cache 355a 0334 | 4 | Declare_Variable Array,With_Constraint 355b 480a |H | Short_Literal 0xa 355c 4801 |H | Short_Literal 0x1 355d 4820 |H | Short_Literal 0x20 355e e611 | | Load 0x3,0x11 355f e60f | | Load 0x3,0xf 3560 01d6 | | Execute Vector,Field_Write 3561 3ffb |? | Loop_Increasing 0x355d 3562 e60e | | Load 0x3,0xe 3563 01d4 | | Execute Vector,Structure_Write 3564 BODY_3510: 3564 00be | | Action Activate_Tasks 3565 00cf | | Action Mark_Auxiliary 3566 e5fe | | Load 0x2,-0x2 3567 e5ff | | Load 0x2,-0x1 3568 0263 | c | Execute Discrete,Above_Bound 3569 702a |p* | Jump_Nonzero 0x3594 356a e002 | | Load 0x0,0x2 356b 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 356c e611 | | Load 0x3,0x11 356d e002 | | Load 0x0,0x2 356e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 356f 01d5 | | Execute Vector,Field_Reference 3570 01d5 | | Execute Vector,Field_Reference 3571 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3572 a60d | | Store_Unchecked 0x3,0xd 3573 e60d | | Load 0x3,0xd 3574 e002 | | Load 0x0,0x2 3575 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3576 e611 | | Load 0x3,0x11 3577 e002 | | Load 0x0,0x2 3578 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3579 01d5 | | Execute Vector,Field_Reference 357a 01d5 | | Execute Vector,Field_Reference 357b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 357c 4801 |H | Short_Literal 0x1 357d e60d | | Load 0x3,0xd 357e e002 | | Load 0x0,0x2 357f 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 3580 e611 | | Load 0x3,0x11 3581 e002 | | Load 0x0,0x2 3582 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3583 01d5 | | Execute Vector,Field_Reference 3584 01d5 | | Execute Vector,Field_Reference 3585 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3586 01cf | | Execute Vector,Slice_Read 3587 4801 |H | Short_Literal 0x1 3588 e60d | | Load 0x3,0xd 3589 e002 | | Load 0x0,0x2 358a 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 358b e611 | | Load 0x3,0x11 358c e002 | | Load 0x0,0x2 358d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 358e 01d7 | | Execute Vector,Field_Read 358f 01d7 | | Execute Vector,Field_Read 3590 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3591 01ce | | Execute Vector,Slice_Write 3592 00c8 | | Action Pop_Auxiliary_Range 3593 3fd6 |? | Loop_Increasing 0x356a 3594 00ce | | Action Pop_Auxiliary 3595 480a |H | Short_Literal 0xa 3596 e002 | | Load 0x0,0x2 3597 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3598 e5ff | | Load 0x2,-0x1 3599 0a01 | | Execute_Immediate Plus,0x1 359a 0248 | H | Execute Discrete,Check_In_Integer 359b e002 | | Load 0x0,0x2 359c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 359d 01d5 | | Execute Vector,Field_Reference 359e 01d5 | | Execute Vector,Field_Reference 359f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 35a0 0092 650c | e | Action Push_String_Extended,0x650c ; "9123456789" 35a2 4801 |H | Short_Literal 0x1 35a3 480a |H | Short_Literal 0xa 35a4 e002 | | Load 0x0,0x2 35a5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 35a6 e5ff | | Load 0x2,-0x1 35a7 0a01 | | Execute_Immediate Plus,0x1 35a8 0248 | H | Execute Discrete,Check_In_Integer 35a9 e002 | | Load 0x0,0x2 35aa 1b90 | | Execute Package,Field_Read,Field_Number 0x90 35ab 01d7 | | Execute Vector,Field_Read 35ac 01d7 | | Execute Vector,Field_Read 35ad 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 35ae 01ce | | Execute Vector,Slice_Write 35af e5ff | | Load 0x2,-0x1 35b0 a60c | | Store_Unchecked 0x3,0xc 35b1 00cf | | Action Mark_Auxiliary 35b2 0007 | | Action Break_Optional 35b3 00e3 | | Load_Encached Natural_Cache 35b4 e604 | | Load 0x3,0x4 35b5 e5fb | | Load 0x2,-0x5 35b6 e004 | | Load 0x0,0x4 35b7 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 35b8 00d1 | | Pop_Control Pop_Count_1 35b9 c605 | | Store 0x3,0x5 35ba e5fd | | Load 0x2,-0x3 35bb 0f01 | | Execute_Immediate Equal,0x1 35bc e002 | | Load 0x0,0x2 35bd 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 35be 0f00 | | Execute_Immediate Equal,0x0 35bf 0278 | x | Execute Discrete,Or 35c0 680a |h | Jump_Zero 0x35cb 35c1 0092 650d | e | Action Push_String_Extended,0x650d ; "Loading: " 35c3 4801 |H | Short_Literal 0x1 35c4 e605 | | Load 0x3,0x5 35c5 e604 | | Load 0x3,0x4 35c6 01cf | | Execute Vector,Slice_Read 35c7 01cc | | Execute Vector,Catenate 35c8 e004 | | Load 0x0,0x4 35c9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 35ca 7814 |x | Jump 0x35df 35cb e605 | | Load 0x3,0x5 35cc 0c05 | | Execute_Immediate Greater_Equal,0x5 35cd 6811 |h | Jump_Zero 0x35df 35ce 4801 |H | Short_Literal 0x1 35cf 4804 |H | Short_Literal 0x4 35d0 e604 | | Load 0x3,0x4 35d1 01cf | | Execute Vector,Slice_Read 35d2 0092 650e | e | Action Push_String_Extended,0x650e ; ">18." 35d4 01df | | Execute Vector,Equal 35d5 6809 |h | Jump_Zero 0x35df 35d6 0092 650f | e | Action Push_String_Extended,0x650f ; "Summary: " 35d8 4805 |H | Short_Literal 0x5 35d9 e605 | | Load 0x3,0x5 35da e604 | | Load 0x3,0x4 35db 01cf | | Execute Vector,Slice_Read 35dc 01cc | | Execute Vector,Catenate 35dd e004 | | Load 0x0,0x4 35de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 35df 4801 |H | Short_Literal 0x1 35e0 4804 |H | Short_Literal 0x4 35e1 e604 | | Load 0x3,0x4 35e2 01cf | | Execute Vector,Slice_Read 35e3 0092 64ef | d | Action Push_String_Extended,0x64ef ; "=DET" 35e5 01df | | Execute Vector,Equal 35e6 7122 |q" | Jump_Nonzero 0x3709 35e7 e605 | | Load 0x3,0x5 35e8 0afc | | Execute_Immediate Plus,-0x4 35e9 0248 | H | Execute Discrete,Check_In_Integer 35ea a602 | | Store_Unchecked 0x3,0x2 35eb 4805 |H | Short_Literal 0x5 35ec e605 | | Load 0x3,0x5 35ed e604 | | Load 0x3,0x4 35ee 01cf | | Execute Vector,Slice_Read 35ef 4801 |H | Short_Literal 0x1 35f0 e602 | | Load 0x3,0x2 35f1 e603 | | Load 0x3,0x3 35f2 01ce | | Execute Vector,Slice_Write 35f3 e5fd | | Load 0x2,-0x3 35f4 7005 |p | Jump_Nonzero 0x35fa 35f5 e60c | | Load 0x3,0xc 35f6 0a01 | | Execute_Immediate Plus,0x1 35f7 0248 | H | Execute Discrete,Check_In_Integer 35f8 a60c | | Store_Unchecked 0x3,0xc 35f9 78de |x | Jump 0x36d8 35fa e5fd | | Load 0x2,-0x3 35fb 0f01 | | Execute_Immediate Equal,0x1 35fc 68db |h | Jump_Zero 0x36d8 35fd 4801 |H | Short_Literal 0x1 35fe 4803 |H | Short_Literal 0x3 35ff e604 | | Load 0x3,0x4 3600 01cf | | Execute Vector,Slice_Read 3601 0092 6510 | e | Action Push_String_Extended,0x6510 ; "> 1" 3603 01df | | Execute Vector,Equal 3604 680e |h | Jump_Zero 0x3613 3605 481d |H | Short_Literal 0x1d 3606 a60c | | Store_Unchecked 0x3,0xc 3607 e602 | | Load 0x3,0x2 3608 0f0a | | Execute_Immediate Equal,0xa 3609 68ce |h | Jump_Zero 0x36d8 360a 4801 |H | Short_Literal 0x1 360b 480a |H | Short_Literal 0xa 360c e603 | | Load 0x3,0x3 360d 01cf | | Execute Vector,Slice_Read 360e 4801 |H | Short_Literal 0x1 360f 480a |H | Short_Literal 0xa 3610 e60e | | Load 0x3,0xe 3611 01ce | | Execute Vector,Slice_Write 3612 78c5 |x | Jump 0x36d8 3613 4801 |H | Short_Literal 0x1 3614 4803 |H | Short_Literal 0x3 3615 e604 | | Load 0x3,0x4 3616 01cf | | Execute Vector,Slice_Read 3617 0092 6511 | e | Action Push_String_Extended,0x6511 ; "> 2" 3619 01df | | Execute Vector,Equal 361a 6803 |h | Jump_Zero 0x361e 361b 4829 |H) | Short_Literal 0x29 361c a60c | | Store_Unchecked 0x3,0xc 361d 78ba |x | Jump 0x36d8 361e 4801 |H | Short_Literal 0x1 361f 4803 |H | Short_Literal 0x3 3620 e604 | | Load 0x3,0x4 3621 01cf | | Execute Vector,Slice_Read 3622 0092 6512 | e | Action Push_String_Extended,0x6512 ; "> 3" 3624 01df | | Execute Vector,Equal 3625 6803 |h | Jump_Zero 0x3629 3626 4804 |H | Short_Literal 0x4 3627 a60c | | Store_Unchecked 0x3,0xc 3628 78af |x | Jump 0x36d8 3629 4801 |H | Short_Literal 0x1 362a 4803 |H | Short_Literal 0x3 362b e604 | | Load 0x3,0x4 362c 01cf | | Execute Vector,Slice_Read 362d 0092 6513 | e | Action Push_String_Extended,0x6513 ; "> 4" 362f 01df | | Execute Vector,Equal 3630 6803 |h | Jump_Zero 0x3634 3631 4809 |H | Short_Literal 0x9 3632 a60c | | Store_Unchecked 0x3,0xc 3633 78a4 |x | Jump 0x36d8 3634 4801 |H | Short_Literal 0x1 3635 4803 |H | Short_Literal 0x3 3636 e604 | | Load 0x3,0x4 3637 01cf | | Execute Vector,Slice_Read 3638 0092 6514 | e | Action Push_String_Extended,0x6514 ; "> 5" 363a 01df | | Execute Vector,Equal 363b 6803 |h | Jump_Zero 0x363f 363c 4805 |H | Short_Literal 0x5 363d a60c | | Store_Unchecked 0x3,0xc 363e 7899 |x | Jump 0x36d8 363f 4801 |H | Short_Literal 0x1 3640 4803 |H | Short_Literal 0x3 3641 e604 | | Load 0x3,0x4 3642 01cf | | Execute Vector,Slice_Read 3643 0092 6515 | e | Action Push_String_Extended,0x6515 ; "> 6" 3645 01df | | Execute Vector,Equal 3646 6803 |h | Jump_Zero 0x364a 3647 480d |H | Short_Literal 0xd 3648 a60c | | Store_Unchecked 0x3,0xc 3649 788e |x | Jump 0x36d8 364a 4801 |H | Short_Literal 0x1 364b 4803 |H | Short_Literal 0x3 364c e604 | | Load 0x3,0x4 364d 01cf | | Execute Vector,Slice_Read 364e 0092 6516 | e | Action Push_String_Extended,0x6516 ; "> 7" 3650 01df | | Execute Vector,Equal 3651 6803 |h | Jump_Zero 0x3655 3652 480e |H | Short_Literal 0xe 3653 a60c | | Store_Unchecked 0x3,0xc 3654 7883 |x | Jump 0x36d8 3655 4801 |H | Short_Literal 0x1 3656 4803 |H | Short_Literal 0x3 3657 e604 | | Load 0x3,0x4 3658 01cf | | Execute Vector,Slice_Read 3659 0092 6517 | e | Action Push_String_Extended,0x6517 ; "> 8" 365b 01df | | Execute Vector,Equal 365c 6803 |h | Jump_Zero 0x3660 365d 4806 |H | Short_Literal 0x6 365e a60c | | Store_Unchecked 0x3,0xc 365f 7878 |xx | Jump 0x36d8 3660 4801 |H | Short_Literal 0x1 3661 4803 |H | Short_Literal 0x3 3662 e604 | | Load 0x3,0x4 3663 01cf | | Execute Vector,Slice_Read 3664 0092 6518 | e | Action Push_String_Extended,0x6518 ; "> 9" 3666 01df | | Execute Vector,Equal 3667 6803 |h | Jump_Zero 0x366b 3668 4820 |H | Short_Literal 0x20 3669 a60c | | Store_Unchecked 0x3,0xc 366a 786d |xm | Jump 0x36d8 366b 4801 |H | Short_Literal 0x1 366c 4803 |H | Short_Literal 0x3 366d e604 | | Load 0x3,0x4 366e 01cf | | Execute Vector,Slice_Read 366f 0092 6519 | e | Action Push_String_Extended,0x6519 ; ">10" 3671 01df | | Execute Vector,Equal 3672 6803 |h | Jump_Zero 0x3676 3673 481e |H | Short_Literal 0x1e 3674 a60c | | Store_Unchecked 0x3,0xc 3675 7862 |xb | Jump 0x36d8 3676 4801 |H | Short_Literal 0x1 3677 4803 |H | Short_Literal 0x3 3678 e604 | | Load 0x3,0x4 3679 01cf | | Execute Vector,Slice_Read 367a 0092 651a | e | Action Push_String_Extended,0x651a ; ">11" 367c 01df | | Execute Vector,Equal 367d 6803 |h | Jump_Zero 0x3681 367e 481f |H | Short_Literal 0x1f 367f a60c | | Store_Unchecked 0x3,0xc 3680 7857 |xW | Jump 0x36d8 3681 4801 |H | Short_Literal 0x1 3682 4803 |H | Short_Literal 0x3 3683 e604 | | Load 0x3,0x4 3684 01cf | | Execute Vector,Slice_Read 3685 0092 651b | e | Action Push_String_Extended,0x651b ; ">12" 3687 01df | | Execute Vector,Equal 3688 6803 |h | Jump_Zero 0x368c 3689 481b |H | Short_Literal 0x1b 368a a60c | | Store_Unchecked 0x3,0xc 368b 784c |xL | Jump 0x36d8 368c 4801 |H | Short_Literal 0x1 368d 4803 |H | Short_Literal 0x3 368e e604 | | Load 0x3,0x4 368f 01cf | | Execute Vector,Slice_Read 3690 0092 651c | e | Action Push_String_Extended,0x651c ; ">13" 3692 01df | | Execute Vector,Equal 3693 6803 |h | Jump_Zero 0x3697 3694 480c |H | Short_Literal 0xc 3695 a60c | | Store_Unchecked 0x3,0xc 3696 7841 |xA | Jump 0x36d8 3697 4801 |H | Short_Literal 0x1 3698 4803 |H | Short_Literal 0x3 3699 e604 | | Load 0x3,0x4 369a 01cf | | Execute Vector,Slice_Read 369b 0092 651d | e | Action Push_String_Extended,0x651d ; ">14" 369d 01df | | Execute Vector,Equal 369e 6803 |h | Jump_Zero 0x36a2 369f 480a |H | Short_Literal 0xa 36a0 a60c | | Store_Unchecked 0x3,0xc 36a1 7836 |x6 | Jump 0x36d8 36a2 4801 |H | Short_Literal 0x1 36a3 4803 |H | Short_Literal 0x3 36a4 e604 | | Load 0x3,0x4 36a5 01cf | | Execute Vector,Slice_Read 36a6 0092 651e | e | Action Push_String_Extended,0x651e ; ">15" 36a8 01df | | Execute Vector,Equal 36a9 6803 |h | Jump_Zero 0x36ad 36aa 4810 |H | Short_Literal 0x10 36ab a60c | | Store_Unchecked 0x3,0xc 36ac 782b |x+ | Jump 0x36d8 36ad 4801 |H | Short_Literal 0x1 36ae 4803 |H | Short_Literal 0x3 36af e604 | | Load 0x3,0x4 36b0 01cf | | Execute Vector,Slice_Read 36b1 0092 651f | e | Action Push_String_Extended,0x651f ; ">16" 36b3 01df | | Execute Vector,Equal 36b4 6803 |h | Jump_Zero 0x36b8 36b5 480b |H | Short_Literal 0xb 36b6 a60c | | Store_Unchecked 0x3,0xc 36b7 7820 |x | Jump 0x36d8 36b8 4801 |H | Short_Literal 0x1 36b9 4803 |H | Short_Literal 0x3 36ba e604 | | Load 0x3,0x4 36bb 01cf | | Execute Vector,Slice_Read 36bc 0092 6520 | e | Action Push_String_Extended,0x6520 ; ">17" 36be 01df | | Execute Vector,Equal 36bf 6803 |h | Jump_Zero 0x36c3 36c0 4808 |H | Short_Literal 0x8 36c1 a60c | | Store_Unchecked 0x3,0xc 36c2 7815 |x | Jump 0x36d8 36c3 4801 |H | Short_Literal 0x1 36c4 4803 |H | Short_Literal 0x3 36c5 e604 | | Load 0x3,0x4 36c6 01cf | | Execute Vector,Slice_Read 36c7 0092 6521 | e!| Action Push_String_Extended,0x6521 ; ">18" 36c9 01df | | Execute Vector,Equal 36ca 6803 |h | Jump_Zero 0x36ce 36cb 4811 |H | Short_Literal 0x11 36cc a60c | | Store_Unchecked 0x3,0xc 36cd 780a |x | Jump 0x36d8 36ce 4801 |H | Short_Literal 0x1 36cf 4803 |H | Short_Literal 0x3 36d0 e604 | | Load 0x3,0x4 36d1 01cf | | Execute Vector,Slice_Read 36d2 0092 6522 | e"| Action Push_String_Extended,0x6522 ; ">19" 36d4 01df | | Execute Vector,Equal 36d5 6802 |h | Jump_Zero 0x36d8 36d6 4812 |H | Short_Literal 0x12 36d7 a60c | | Store_Unchecked 0x3,0xc 36d8 e60c | | Load 0x3,0xc 36d9 0c01 | | Execute_Immediate Greater_Equal,0x1 36da 682c |h, | Jump_Zero 0x3707 36db e602 | | Load 0x3,0x2 36dc e002 | | Load 0x0,0x2 36dd 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 36de e60c | | Load 0x3,0xc 36df e002 | | Load 0x0,0x2 36e0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 36e1 01d5 | | Execute Vector,Field_Reference 36e2 01d5 | | Execute Vector,Field_Reference 36e3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 36e4 027d | } | Execute Discrete,Greater 36e5 6809 |h | Jump_Zero 0x36ef 36e6 e002 | | Load 0x0,0x2 36e7 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 36e8 e60c | | Load 0x3,0xc 36e9 e002 | | Load 0x0,0x2 36ea 1b90 | | Execute Package,Field_Read,Field_Number 0x90 36eb 01d5 | | Execute Vector,Field_Reference 36ec 01d5 | | Execute Vector,Field_Reference 36ed 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 36ee a602 | | Store_Unchecked 0x3,0x2 36ef e602 | | Load 0x3,0x2 36f0 e002 | | Load 0x0,0x2 36f1 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 36f2 e60c | | Load 0x3,0xc 36f3 e002 | | Load 0x0,0x2 36f4 1b90 | | Execute Package,Field_Read,Field_Number 0x90 36f5 01d5 | | Execute Vector,Field_Reference 36f6 01d5 | | Execute Vector,Field_Reference 36f7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 36f8 4801 |H | Short_Literal 0x1 36f9 e602 | | Load 0x3,0x2 36fa e603 | | Load 0x3,0x3 36fb 01cf | | Execute Vector,Slice_Read 36fc 4801 |H | Short_Literal 0x1 36fd e602 | | Load 0x3,0x2 36fe e002 | | Load 0x0,0x2 36ff 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3700 e60c | | Load 0x3,0xc 3701 e002 | | Load 0x0,0x2 3702 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3703 01d7 | | Execute Vector,Field_Read 3704 01d7 | | Execute Vector,Field_Read 3705 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3706 01ce | | Execute Vector,Slice_Write 3707 00c9 | | Action Pop_Auxiliary_Loop 3708 7eaa |~ | Jump 0x35b3 3709 00ce | | Action Pop_Auxiliary 370a e5fd | | Load 0x2,-0x3 370b 0f01 | | Execute_Immediate Equal,0x1 370c 682c |h, | Jump_Zero 0x3739 370d 4804 |H | Short_Literal 0x4 370e e002 | | Load 0x0,0x2 370f 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3710 4809 |H | Short_Literal 0x9 3711 e002 | | Load 0x0,0x2 3712 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3713 01d5 | | Execute Vector,Field_Reference 3714 01d5 | | Execute Vector,Field_Reference 3715 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 3716 0092 6523 | e#| Action Push_String_Extended,0x6523 ; "open" 3718 4801 |H | Short_Literal 0x1 3719 4804 |H | Short_Literal 0x4 371a e002 | | Load 0x0,0x2 371b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 371c 4809 |H | Short_Literal 0x9 371d e002 | | Load 0x0,0x2 371e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 371f 01d7 | | Execute Vector,Field_Read 3720 01d7 | | Execute Vector,Field_Read 3721 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3722 01ce | | Execute Vector,Slice_Write 3723 4801 |H | Short_Literal 0x1 3724 e002 | | Load 0x0,0x2 3725 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3726 4818 |H | Short_Literal 0x18 3727 e002 | | Load 0x0,0x2 3728 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3729 01d5 | | Execute Vector,Field_Reference 372a 01d5 | | Execute Vector,Field_Reference 372b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 372c 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 372e 4801 |H | Short_Literal 0x1 372f 4801 |H | Short_Literal 0x1 3730 e002 | | Load 0x0,0x2 3731 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3732 4818 |H | Short_Literal 0x18 3733 e002 | | Load 0x0,0x2 3734 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3735 01d7 | | Execute Vector,Field_Read 3736 01d7 | | Execute Vector,Field_Read 3737 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3738 01ce | | Execute Vector,Slice_Write 3739 4801 |H | Short_Literal 0x1 373a 4800 |H | Short_Literal 0x0 373b 4800 |H | Short_Literal 0x0 373c 4801 |H | Short_Literal 0x1 373d e5fc | | Load 0x2,-0x4 373e e5fe | | Load 0x2,-0x2 373f e5ff | | Load 0x2,-0x1 3740 8239 | 9 | Call 0x1,0x39 3741 e5fc | | Load 0x2,-0x4 3742 e002 | | Load 0x0,0x2 3743 1b96 | | Execute Package,Field_Read,Field_Number 0x96 3744 01d5 | | Execute Vector,Field_Reference 3745 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 3746 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 3748 01df | | Execute Vector,Equal 3749 680a |h | Jump_Zero 0x3754 374a e002 | | Load 0x0,0x2 374b 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 374c 7006 |p | Jump_Nonzero 0x3753 374d 4801 |H | Short_Literal 0x1 374e 4804 |H | Short_Literal 0x4 374f 0092 6524 | e$| Action Push_String_Extended,0x6524 ; " [SIMS record updated ok.]" 3751 e001 | | Load 0x0,0x1 3752 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3753 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3754 4801 |H | Short_Literal 0x1 3755 4804 |H | Short_Literal 0x4 3756 0092 6525 | e%| Action Push_String_Extended,0x6525 ; " [** Problem loading/updating SIMS record Not loaded ok.]" 3758 e001 | | Load 0x0,0x1 3759 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 375a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 375b TRAP_3510: 375b 0007 | | Action Break_Optional 375c 4801 |H | Short_Literal 0x1 375d 4804 |H | Short_Literal 0x4 375e 0092 6526 | e&| Action Push_String_Extended,0x6526 ; " ** Problem encountered in loading customer problem tape." 3760 e001 | | Load 0x0,0x1 3761 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3762 4801 |H | Short_Literal 0x1 3763 4804 |H | Short_Literal 0x4 3764 0092 6527 | e'| Action Push_String_Extended,0x6527 ; " Please review and correct partial customer tape data.." 3766 e001 | | Load 0x0,0x1 3767 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3768 4801 |H | Short_Literal 0x1 3769 4804 |H | Short_Literal 0x4 376a 0092 6528 | e(| Action Push_String_Extended,0x6528 ; " (Exception in ap_load_extract_field, Partial record not loaded.)" 376c e001 | | Load 0x0,0x1 376d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 376e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 376f 0000 | | .XXX[0x1] 3770 ; -------------------------------------------------------------------------------------- 3770 ; SUBPROGRAM 3770 ; -------------------------------------------------------------------------------------- 3770 3773 |7s | .CONST 0x3773 ; Address of begin 3771 37a7 |7 | .CONST 0x37a7 ; Address of exception handler 3772 0001 | | .CONST 0x0001 ; Number of locals 3773 BODY_3770: 3773 INIT_3770: 3773 0092 6529 | e)| Action Push_String_Extended,0x6529 ; "Generating new detail file for " 3775 e402 | | Load 0x2,0x2 3776 01cc | | Execute Vector,Catenate 3777 4801 |H | Short_Literal 0x1 3778 e403 | | Load 0x2,0x3 3779 e404 | | Load 0x2,0x4 377a 01cf | | Execute Vector,Slice_Read 377b 01cc | | Execute Vector,Catenate 377c e004 | | Load 0x0,0x4 377d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 377e e407 | | Load 0x2,0x7 377f 00ea | | Load_Encached Null_String_Cache 3780 4801 |H | Short_Literal 0x1 3781 e405 | | Load 0x2,0x5 3782 e406 | | Load 0x2,0x6 3783 01cf | | Execute Vector,Slice_Read 3784 4801 |H | Short_Literal 0x1 3785 e004 | | Load 0x0,0x4 3786 1814 | | Execute Package,Field_Execute,Field_Number 0x14 3787 c407 | | Store 0x2,0x7 3788 4801 |H | Short_Literal 0x1 3789 4801 |H | Short_Literal 0x1 378a 4800 |H | Short_Literal 0x0 378b 00ea | | Load_Encached Null_String_Cache 378c e407 | | Load 0x2,0x7 378d e5fc | | Load 0x2,-0x4 378e 8264 | d | Call 0x1,0x64 378f e002 | | Load 0x0,0x2 3790 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 3791 7010 |p | Jump_Nonzero 0x37a2 3792 4800 |H | Short_Literal 0x0 3793 4801 |H | Short_Literal 0x1 3794 0092 652a | e*| Action Push_String_Extended,0x652a ; " [Detail Text generated ok for record: " 3796 e402 | | Load 0x2,0x2 3797 01cc | | Execute Vector,Catenate 3798 4801 |H | Short_Literal 0x1 3799 e403 | | Load 0x2,0x3 379a e404 | | Load 0x2,0x4 379b 01cf | | Execute Vector,Slice_Read 379c 01cc | | Execute Vector,Catenate 379d 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 379f 01cc | | Execute Vector,Catenate 37a0 e001 | | Load 0x0,0x1 37a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 37a2 e407 | | Load 0x2,0x7 37a3 e004 | | Load 0x0,0x4 37a4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 37a5 c407 | | Store 0x2,0x7 37a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 37a7 TRAP_3770: 37a7 0007 | | Action Break_Optional 37a8 4801 |H | Short_Literal 0x1 37a9 4804 |H | Short_Literal 0x4 37aa 0092 652b | e+| Action Push_String_Extended,0x652b ; "* Exception in ap_load_detail_data, Partial detail record not loaded." 37ac e001 | | Load 0x0,0x1 37ad 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 37ae 4801 |H | Short_Literal 0x1 37af 4804 |H | Short_Literal 0x4 37b0 0092 652c | e,| Action Push_String_Extended,0x652c ; " Please review and correct partial customer tape data.." 37b2 e001 | | Load 0x0,0x1 37b3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 37b4 4800 |H | Short_Literal 0x0 37b5 4801 |H | Short_Literal 0x1 37b6 0092 652d | e-| Action Push_String_Extended,0x652d ; " [Couldn't open or process detail text for this record: " 37b8 e402 | | Load 0x2,0x2 37b9 01cc | | Execute Vector,Catenate 37ba 4801 |H | Short_Literal 0x1 37bb e403 | | Load 0x2,0x3 37bc e404 | | Load 0x2,0x4 37bd 01cf | | Execute Vector,Slice_Read 37be 01cc | | Execute Vector,Catenate 37bf 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 37c1 01cc | | Execute Vector,Catenate 37c2 e001 | | Load 0x0,0x1 37c3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 37c4 4801 |H | Short_Literal 0x1 37c5 4804 |H | Short_Literal 0x4 37c6 0092 652e | e.| Action Push_String_Extended,0x652e ; " (Exception occurred in ap_load_detail_data." 37c8 e001 | | Load 0x0,0x1 37c9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 37ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 37cb 0000 | | .XXX[0x1] 37cc 7878 2020 |xx | .LITERAL {0x78782020, 0x20202020} 37d0 ; -------------------------------------------------------------------------------------- 37d0 ; SUBPROGRAM 37d0 ; -------------------------------------------------------------------------------------- 37d0 37d3 |7 | .CONST 0x37d3 ; Address of begin 37d1 3815 |8 | .CONST 0x3815 ; Address of exception handler 37d2 0001 | | .CONST 0x0001 ; Number of locals 37d3 BODY_37d0: 37d3 INIT_37d0: 37d3 e5fb | | Load 0x2,-0x5 37d4 703f |p? | Jump_Nonzero 0x3814 37d5 4800 |H | Short_Literal 0x0 37d6 4800 |H | Short_Literal 0x0 37d7 4800 |H | Short_Literal 0x0 37d8 4800 |H | Short_Literal 0x0 37d9 4800 |H | Short_Literal 0x0 37da 4800 |H | Short_Literal 0x0 37db 4801 |H | Short_Literal 0x1 37dc 4800 |H | Short_Literal 0x0 37dd 4801 |H | Short_Literal 0x1 37de 4800 |H | Short_Literal 0x0 37df e5fc | | Load 0x2,-0x4 37e0 e5fe | | Load 0x2,-0x2 37e1 e5ff | | Load 0x2,-0x1 37e2 822d | - | Call 0x1,0x2d 37e3 e5fc | | Load 0x2,-0x4 37e4 e002 | | Load 0x0,0x2 37e5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 37e6 01d5 | | Execute Vector,Field_Reference 37e7 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 37e8 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 37ea 01de | | Execute Vector,Not_Equal 37eb 6802 |h | Jump_Zero 0x37ee 37ec 00cc | | Action Pop_Block 37ed 451b |E | Exit_Suprogram New_Top_Offset 0x1b 37ee e417 | | Load 0x2,0x17 37ef 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 37f1 4804 |H | Short_Literal 0x4 37f2 0092 652f | e/| Action Push_String_Extended,0x652f ; "Is this the one to transfer to development? y=yes, n=no " 37f4 e001 | | Load 0x0,0x1 37f5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 37f6 00d1 | | Pop_Control Pop_Count_1 37f7 4801 |H | Short_Literal 0x1 37f8 4801 |H | Short_Literal 0x1 37f9 e417 | | Load 0x2,0x17 37fa 01cf | | Execute Vector,Slice_Read 37fb 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 37fd 01df | | Execute Vector,Equal 37fe 6808 |h | Jump_Zero 0x3807 37ff 4801 |H | Short_Literal 0x1 3800 4804 |H | Short_Literal 0x4 3801 0092 6530 | e0| Action Push_String_Extended,0x6530 ; "Result => Report not transferred to development. " 3803 e001 | | Load 0x0,0x1 3804 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3805 00cc | | Action Pop_Block 3806 451b |E | Exit_Suprogram New_Top_Offset 0x1b 3807 0092 6531 | e1| Action Push_String_Extended,0x6531 ; "Current dispatch index being transferred => " 3809 e001 | | Load 0x0,0x1 380a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 380b e5fc | | Load 0x2,-0x4 380c e002 | | Load 0x0,0x2 380d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 380e 01d5 | | Execute Vector,Field_Reference 380f 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 3810 e001 | | Load 0x0,0x1 3811 181e | | Execute Package,Field_Execute,Field_Number 0x1e 3812 e001 | | Load 0x0,0x1 3813 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3814 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3815 TRAP_37d0: 3815 0007 | | Action Break_Optional 3816 0092 6532 | e2| Action Push_String_Extended,0x6532 ; " Problem with interactive setup..." 3818 e001 | | Load 0x0,0x1 3819 181d | | Execute Package,Field_Execute,Field_Number 0x1d 381a e001 | | Load 0x0,0x1 381b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 381c 00d8 | | Load_Top At_Offset_0 381d 0101 | | Execute Exception,Reraise 381e 0000 0000 | | .XXX[0x2] 3820 ; -------------------------------------------------------------------------------------- 3820 ; SUBPROGRAM 3820 ; -------------------------------------------------------------------------------------- 3820 3823 |8# | .CONST 0x3823 ; Address of begin 3821 3913 |9 | .CONST 0x3913 ; Address of exception handler 3822 0001 | | .CONST 0x0001 ; Number of locals 3823 BODY_3820: 3823 INIT_3820: 3823 e002 | | Load 0x0,0x2 3824 1b20 | | Execute Package,Field_Read,Field_Number 0x20 3825 4801 |H | Short_Literal 0x1 3826 4850 |HP | Short_Literal 0x50 3827 e411 | | Load 0x2,0x11 3828 01ce | | Execute Vector,Slice_Write 3829 e5fc | | Load 0x2,-0x4 382a e002 | | Load 0x0,0x2 382b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 382c 01d5 | | Execute Vector,Field_Reference 382d 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 382e e405 | | Load 0x2,0x5 382f 01d4 | | Execute Vector,Structure_Write 3830 e002 | | Load 0x0,0x2 3831 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3832 e5ff | | Load 0x2,-0x1 3833 0a01 | | Execute_Immediate Plus,0x1 3834 0248 | H | Execute Discrete,Check_In_Integer 3835 e002 | | Load 0x0,0x2 3836 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3837 01d5 | | Execute Vector,Field_Reference 3838 01d5 | | Execute Vector,Field_Reference 3839 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 383a a407 | | Store_Unchecked 0x2,0x7 383b 4801 |H | Short_Literal 0x1 383c e407 | | Load 0x2,0x7 383d e002 | | Load 0x0,0x2 383e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 383f e5ff | | Load 0x2,-0x1 3840 0a01 | | Execute_Immediate Plus,0x1 3841 0248 | H | Execute Discrete,Check_In_Integer 3842 e002 | | Load 0x0,0x2 3843 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3844 01d5 | | Execute Vector,Field_Reference 3845 01d5 | | Execute Vector,Field_Reference 3846 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3847 01cf | | Execute Vector,Slice_Read 3848 4801 |H | Short_Literal 0x1 3849 e407 | | Load 0x2,0x7 384a e406 | | Load 0x2,0x6 384b 01ce | | Execute Vector,Slice_Write 384c e406 | | Load 0x2,0x6 384d 4801 |H | Short_Literal 0x1 384e e407 | | Load 0x2,0x7 384f e602 | | Load 0x3,0x2 3850 035b | [ | Declare_Type Array,Constrained 3851 00d0 | | Action Swap_Control 3852 01cd | | Execute Vector,Slice_Reference 3853 00d8 | | Load_Top At_Offset_0 3854 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 3856 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3858 e407 | | Load 0x2,0x7 3859 e001 | | Load 0x0,0x1 385a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 385b 00d2 | | Pop_Control Pop_Count_2 385c 0092 6533 | e3| Action Push_String_Extended,0x6533 ; "HHMMss_CSC" 385e 4801 |H | Short_Literal 0x1 385f 480a |H | Short_Literal 0xa 3860 e404 | | Load 0x2,0x4 3861 01ce | | Execute Vector,Slice_Write 3862 e00b | | Load 0x0,0xb 3863 1812 | | Execute Package,Field_Execute,Field_Number 0x12 3864 e00b | | Load 0x0,0xb 3865 1816 | | Execute Package,Field_Execute,Field_Number 0x16 3866 00d8 | | Load_Top At_Offset_0 3867 0c00 | | Execute_Immediate Greater_Equal,0x0 3868 7004 |p | Jump_Nonzero 0x386d 3869 00a2 3d08 | = | Action Push_Discrete_Extended 386b 0273 | s | Execute Discrete,Plus 386c 7803 |x | Jump 0x3870 386d 00a2 3d04 | = | Action Push_Discrete_Extended 386f 0273 | s | Execute Discrete,Plus 3870 09f1 | | Execute_Immediate Binary_Scale,-0xf 3871 a40a | | Store_Unchecked 0x2,0xa 3872 e40a | | Load 0x2,0xa 3873 00a2 3d00 | = | Action Push_Discrete_Extended 3875 0270 | p | Execute Discrete,Divide 3876 a40c | | Store_Unchecked 0x2,0xc 3877 e40a | | Load 0x2,0xa 3878 483c |H< | Short_Literal 0x3c 3879 0270 | p | Execute Discrete,Divide 387a e40c | | Load 0x2,0xc 387b 483c |H< | Short_Literal 0x3c 387c 0271 | q | Execute Discrete,Times 387d 0272 | r | Execute Discrete,Minus 387e 0248 | H | Execute Discrete,Check_In_Integer 387f a40b | | Store_Unchecked 0x2,0xb 3880 e40a | | Load 0x2,0xa 3881 e40c | | Load 0x2,0xc 3882 00a2 3d00 | = | Action Push_Discrete_Extended 3884 0271 | q | Execute Discrete,Times 3885 0248 | H | Execute Discrete,Check_In_Integer 3886 0272 | r | Execute Discrete,Minus 3887 e40b | | Load 0x2,0xb 3888 483c |H< | Short_Literal 0x3c 3889 0271 | q | Execute Discrete,Times 388a 0272 | r | Execute Discrete,Minus 388b 0248 | H | Execute Discrete,Check_In_Integer 388c a40a | | Store_Unchecked 0x2,0xa 388d e40f | | Load 0x2,0xf 388e e001 | | Load 0x0,0x1 388f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3890 1b11 | | Execute Package,Field_Read,Field_Number 0x11 3891 e40c | | Load 0x2,0xc 3892 e001 | | Load 0x0,0x1 3893 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3894 1817 | | Execute Package,Field_Execute,Field_Number 0x17 3895 00d1 | | Pop_Control Pop_Count_1 3896 e40e | | Load 0x2,0xe 3897 e001 | | Load 0x0,0x1 3898 1b14 | | Execute Package,Field_Read,Field_Number 0x14 3899 1b11 | | Execute Package,Field_Read,Field_Number 0x11 389a e40b | | Load 0x2,0xb 389b e001 | | Load 0x0,0x1 389c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 389d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 389e 00d1 | | Pop_Control Pop_Count_1 389f e40d | | Load 0x2,0xd 38a0 e001 | | Load 0x0,0x1 38a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 38a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 38a3 e40a | | Load 0x2,0xa 38a4 e001 | | Load 0x0,0x1 38a5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 38a6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 38a7 00d1 | | Pop_Control Pop_Count_1 38a8 4801 |H | Short_Literal 0x1 38a9 4802 |H | Short_Literal 0x2 38aa e40f | | Load 0x2,0xf 38ab 01cf | | Execute Vector,Slice_Read 38ac 4801 |H | Short_Literal 0x1 38ad 4802 |H | Short_Literal 0x2 38ae e40e | | Load 0x2,0xe 38af 01cf | | Execute Vector,Slice_Read 38b0 01cc | | Execute Vector,Catenate 38b1 4801 |H | Short_Literal 0x1 38b2 4802 |H | Short_Literal 0x2 38b3 e40d | | Load 0x2,0xd 38b4 01cf | | Execute Vector,Slice_Read 38b5 01cc | | Execute Vector,Catenate 38b6 4801 |H | Short_Literal 0x1 38b7 4806 |H | Short_Literal 0x6 38b8 e408 | | Load 0x2,0x8 38b9 01ce | | Execute Vector,Slice_Write 38ba 4801 |H | Short_Literal 0x1 38bb 4806 |H | Short_Literal 0x6 38bc e408 | | Load 0x2,0x8 38bd 01cf | | Execute Vector,Slice_Read 38be 4801 |H | Short_Literal 0x1 38bf 4806 |H | Short_Literal 0x6 38c0 e404 | | Load 0x2,0x4 38c1 01ce | | Execute Vector,Slice_Write 38c2 e404 | | Load 0x2,0x4 38c3 4801 |H | Short_Literal 0x1 38c4 480a |H | Short_Literal 0xa 38c5 e602 | | Load 0x3,0x2 38c6 035b | [ | Declare_Type Array,Constrained 38c7 00d0 | | Action Swap_Control 38c8 01cd | | Execute Vector,Slice_Reference 38c9 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 38cb 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 38cd 480a |H | Short_Literal 0xa 38ce e001 | | Load 0x0,0x1 38cf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 38d0 00d1 | | Pop_Control Pop_Count_1 38d1 e402 | | Load 0x2,0x2 38d2 00ea | | Load_Encached Null_String_Cache 38d3 e5fd | | Load 0x2,-0x3 38d4 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 38d6 01cc | | Execute Vector,Catenate 38d7 0092 6534 | e4| Action Push_String_Extended,0x6534 ; "X" 38d9 01cc | | Execute Vector,Catenate 38da e404 | | Load 0x2,0x4 38db 01cc | | Execute Vector,Catenate 38dc 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 38de 01cc | | Execute Vector,Catenate 38df e405 | | Load 0x2,0x5 38e0 01cc | | Execute Vector,Catenate 38e1 4801 |H | Short_Literal 0x1 38e2 e407 | | Load 0x2,0x7 38e3 e406 | | Load 0x2,0x6 38e4 01cf | | Execute Vector,Slice_Read 38e5 01cc | | Execute Vector,Catenate 38e6 4801 |H | Short_Literal 0x1 38e7 e004 | | Load 0x0,0x4 38e8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 38e9 c402 | | Store 0x2,0x2 38ea 4800 |H | Short_Literal 0x0 38eb e402 | | Load 0x2,0x2 38ec e004 | | Load 0x0,0x4 38ed 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 38ee 4800 |H | Short_Literal 0x0 38ef e402 | | Load 0x2,0x2 38f0 e004 | | Load 0x0,0x4 38f1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 38f2 e403 | | Load 0x2,0x3 38f3 00ea | | Load_Encached Null_String_Cache 38f4 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 38f6 e003 | | Load 0x0,0x3 38f7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 38f8 e003 | | Load 0x0,0x3 38f9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 38fa 01cc | | Execute Vector,Catenate 38fb 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 38fd 01cc | | Execute Vector,Catenate 38fe e003 | | Load 0x0,0x3 38ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19 3900 e003 | | Load 0x0,0x3 3901 181b | | Execute Package,Field_Execute,Field_Number 0x1b 3902 01cc | | Execute Vector,Catenate 3903 0092 6535 | e5| Action Push_String_Extended,0x6535 ; "_sims_temp" 3905 01cc | | Execute Vector,Catenate 3906 4801 |H | Short_Literal 0x1 3907 e004 | | Load 0x0,0x4 3908 1814 | | Execute Package,Field_Execute,Field_Number 0x14 3909 c403 | | Store 0x2,0x3 390a 4800 |H | Short_Literal 0x0 390b e403 | | Load 0x2,0x3 390c e004 | | Load 0x0,0x4 390d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 390e 4800 |H | Short_Literal 0x0 390f e403 | | Load 0x2,0x3 3910 e004 | | Load 0x0,0x4 3911 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3912 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3913 TRAP_3820: 3913 0007 | | Action Break_Optional 3914 0092 6536 | e6| Action Push_String_Extended,0x6536 ; " Problem with header and extract file setup..." 3916 e001 | | Load 0x0,0x1 3917 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3918 e001 | | Load 0x0,0x1 3919 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 391a 00d8 | | Load_Top At_Offset_0 391b 0101 | | Execute Exception,Reraise 391c 0000 0000 | | .BLANK 0000[0x4] 3920 ; -------------------------------------------------------------------------------------- 3920 ; SUBPROGRAM 3920 ; -------------------------------------------------------------------------------------- 3920 3923 |9# | .CONST 0x3923 ; Address of begin 3921 3999 |9 | .CONST 0x3999 ; Address of exception handler 3922 0001 | | .CONST 0x0001 ; Number of locals 3923 BODY_3920: 3923 INIT_3920: 3923 00ea | | Load_Encached Null_String_Cache 3924 e403 | | Load 0x2,0x3 3925 e004 | | Load 0x0,0x4 3926 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 3927 e5fa | | Load 0x2,-0x6 3928 0c01 | | Execute_Immediate Greater_Equal,0x1 3929 6837 |h7 | Jump_Zero 0x3961 392a e410 | | Load 0x2,0x10 392b e411 | | Load 0x2,0x11 392c e002 | | Load 0x0,0x2 392d 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 392e e5fa | | Load 0x2,-0x6 392f 8255 | U | Call 0x1,0x55 3930 00d1 | | Pop_Control Pop_Count_1 3931 c410 | | Store 0x2,0x10 3932 00cf | | Action Mark_Auxiliary 3933 e410 | | Load 0x2,0x10 3934 4801 |H | Short_Literal 0x1 3935 0263 | c | Execute Discrete,Above_Bound 3936 7010 |p | Jump_Nonzero 0x3947 3937 00d8 | | Load_Top At_Offset_0 3938 e604 | | Load 0x3,0x4 3939 e411 | | Load 0x2,0x11 393a 01cf | | Execute Vector,Slice_Read 393b 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 393d 01df | | Execute Vector,Equal 393e 6806 |h | Jump_Zero 0x3945 393f 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 3941 e604 | | Load 0x3,0x4 3942 e604 | | Load 0x3,0x4 3943 e411 | | Load 0x2,0x11 3944 01ce | | Execute Vector,Slice_Write 3945 00c8 | | Action Pop_Auxiliary_Range 3946 3ff0 |? | Loop_Increasing 0x3937 3947 00ce | | Action Pop_Auxiliary 3948 e403 | | Load 0x2,0x3 3949 4801 |H | Short_Literal 0x1 394a 4800 |H | Short_Literal 0x0 394b 4801 |H | Short_Literal 0x1 394c 0092 6537 | e7| Action Push_String_Extended,0x6537 ; "DISPATCH_NO => " 394e e41a | | Load 0x2,0x1a 394f 01cc | | Execute Vector,Catenate 3950 e5fc | | Load 0x2,-0x4 3951 e002 | | Load 0x0,0x2 3952 1b96 | | Execute Package,Field_Read,Field_Number 0x96 3953 01d5 | | Execute Vector,Field_Reference 3954 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 3955 01cc | | Execute Vector,Catenate 3956 4801 |H | Short_Literal 0x1 3957 e410 | | Load 0x2,0x10 3958 e411 | | Load 0x2,0x11 3959 01cf | | Execute Vector,Slice_Read 395a 01cc | | Execute Vector,Catenate 395b e41a | | Load 0x2,0x1a 395c 01cc | | Execute Vector,Catenate 395d 4801 |H | Short_Literal 0x1 395e 4800 |H | Short_Literal 0x0 395f 8225 | % | Call 0x1,0x25 3960 c403 | | Store 0x2,0x3 3961 e5f9 | | Load 0x2,-0x7 3962 0c01 | | Execute_Immediate Greater_Equal,0x1 3963 6834 |h4 | Jump_Zero 0x3998 3964 e410 | | Load 0x2,0x10 3965 e411 | | Load 0x2,0x11 3966 e002 | | Load 0x0,0x2 3967 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3968 e5f9 | | Load 0x2,-0x7 3969 8255 | U | Call 0x1,0x55 396a 00d1 | | Pop_Control Pop_Count_1 396b c410 | | Store 0x2,0x10 396c 00cf | | Action Mark_Auxiliary 396d e410 | | Load 0x2,0x10 396e 4801 |H | Short_Literal 0x1 396f 0263 | c | Execute Discrete,Above_Bound 3970 7010 |p | Jump_Nonzero 0x3981 3971 00d8 | | Load_Top At_Offset_0 3972 e604 | | Load 0x3,0x4 3973 e411 | | Load 0x2,0x11 3974 01cf | | Execute Vector,Slice_Read 3975 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3977 01df | | Execute Vector,Equal 3978 6806 |h | Jump_Zero 0x397f 3979 0092 642e | d.| Action Push_String_Extended,0x642e ; "0" 397b e604 | | Load 0x3,0x4 397c e604 | | Load 0x3,0x4 397d e411 | | Load 0x2,0x11 397e 01ce | | Execute Vector,Slice_Write 397f 00c8 | | Action Pop_Auxiliary_Range 3980 3ff0 |? | Loop_Increasing 0x3971 3981 00ce | | Action Pop_Auxiliary 3982 e403 | | Load 0x2,0x3 3983 4801 |H | Short_Literal 0x1 3984 4800 |H | Short_Literal 0x0 3985 4801 |H | Short_Literal 0x1 3986 0092 6538 | e8| Action Push_String_Extended,0x6538 ; "LOCAL_REQUEST => " 3988 e41a | | Load 0x2,0x1a 3989 01cc | | Execute Vector,Catenate 398a 0092 6539 | e9| Action Push_String_Extended,0x6539 ; "SR" 398c 01cc | | Execute Vector,Catenate 398d 4801 |H | Short_Literal 0x1 398e e410 | | Load 0x2,0x10 398f e411 | | Load 0x2,0x11 3990 01cf | | Execute Vector,Slice_Read 3991 01cc | | Execute Vector,Catenate 3992 e41a | | Load 0x2,0x1a 3993 01cc | | Execute Vector,Catenate 3994 4801 |H | Short_Literal 0x1 3995 4800 |H | Short_Literal 0x0 3996 8225 | % | Call 0x1,0x25 3997 c403 | | Store 0x2,0x3 3998 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3999 TRAP_3920: 3999 0007 | | Action Break_Optional 399a 0092 653a | e:| Action Push_String_Extended,0x653a ; " Problem with central and local dispatch numbers..." 399c e001 | | Load 0x0,0x1 399d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 399e e001 | | Load 0x0,0x1 399f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 39a0 00d8 | | Load_Top At_Offset_0 39a1 0101 | | Execute Exception,Reraise 39a2 0000 0000 | | .BLANK 0000[0x6] 39a8 ; -------------------------------------------------------------------------------------- 39a8 ; SUBPROGRAM 39a8 ; -------------------------------------------------------------------------------------- 39a8 39ab |9 | .CONST 0x39ab ; Address of begin 39a9 3a7a |:z | .CONST 0x3a7a ; Address of exception handler 39aa 0001 | | .CONST 0x0001 ; Number of locals 39ab BODY_39a8: 39ab INIT_39a8: 39ab e5f7 | | Load 0x2,-0x9 39ac 0c01 | | Execute_Immediate Greater_Equal,0x1 39ad e5f8 | | Load 0x2,-0x8 39ae 0c01 | | Execute_Immediate Greater_Equal,0x1 39af 0279 | y | Execute Discrete,And 39b0 68c8 |h | Jump_Zero 0x3a79 39b1 e410 | | Load 0x2,0x10 39b2 e411 | | Load 0x2,0x11 39b3 e002 | | Load 0x0,0x2 39b4 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 39b5 e5f7 | | Load 0x2,-0x9 39b6 8255 | U | Call 0x1,0x55 39b7 00d1 | | Pop_Control Pop_Count_1 39b8 c410 | | Store 0x2,0x10 39b9 4801 |H | Short_Literal 0x1 39ba 4805 |H | Short_Literal 0x5 39bb e411 | | Load 0x2,0x11 39bc 01cf | | Execute Vector,Slice_Read 39bd 0092 653b | e;| Action Push_String_Extended,0x653b ; ":00" 39bf 01cc | | Execute Vector,Catenate 39c0 4801 |H | Short_Literal 0x1 39c1 4808 |H | Short_Literal 0x8 39c2 e420 | | Load 0x2,0x20 39c3 01ce | | Execute Vector,Slice_Write 39c4 e410 | | Load 0x2,0x10 39c5 e411 | | Load 0x2,0x11 39c6 e002 | | Load 0x0,0x2 39c7 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 39c8 e5f8 | | Load 0x2,-0x8 39c9 8255 | U | Call 0x1,0x55 39ca 00d1 | | Pop_Control Pop_Count_1 39cb c410 | | Store 0x2,0x10 39cc 4804 |H | Short_Literal 0x4 39cd 4805 |H | Short_Literal 0x5 39ce e411 | | Load 0x2,0x11 39cf 01cf | | Execute Vector,Slice_Read 39d0 4801 |H | Short_Literal 0x1 39d1 4802 |H | Short_Literal 0x2 39d2 e41d | | Load 0x2,0x1d 39d3 01ce | | Execute Vector,Slice_Write 39d4 e41d | | Load 0x2,0x1d 39d5 0092 653c | e<| Action Push_String_Extended,0x653c ; "01" 39d7 01df | | Execute Vector,Equal 39d8 6805 |h | Jump_Zero 0x39de 39d9 0092 653d | e=| Action Push_String_Extended,0x653d ; "Jan" 39db e41e | | Load 0x2,0x1e 39dc 01d4 | | Execute Vector,Structure_Write 39dd 7872 |xr | Jump 0x3a50 39de e41d | | Load 0x2,0x1d 39df 0092 653e | e>| Action Push_String_Extended,0x653e ; "02" 39e1 01df | | Execute Vector,Equal 39e2 6805 |h | Jump_Zero 0x39e8 39e3 0092 653f | e?| Action Push_String_Extended,0x653f ; "Feb" 39e5 e41e | | Load 0x2,0x1e 39e6 01d4 | | Execute Vector,Structure_Write 39e7 7868 |xh | Jump 0x3a50 39e8 e41d | | Load 0x2,0x1d 39e9 0092 6540 | e@| Action Push_String_Extended,0x6540 ; "03" 39eb 01df | | Execute Vector,Equal 39ec 6805 |h | Jump_Zero 0x39f2 39ed 0092 6541 | eA| Action Push_String_Extended,0x6541 ; "Mar" 39ef e41e | | Load 0x2,0x1e 39f0 01d4 | | Execute Vector,Structure_Write 39f1 785e |x^ | Jump 0x3a50 39f2 e41d | | Load 0x2,0x1d 39f3 0092 6542 | eB| Action Push_String_Extended,0x6542 ; "04" 39f5 01df | | Execute Vector,Equal 39f6 6805 |h | Jump_Zero 0x39fc 39f7 0092 6543 | eC| Action Push_String_Extended,0x6543 ; "Apr" 39f9 e41e | | Load 0x2,0x1e 39fa 01d4 | | Execute Vector,Structure_Write 39fb 7854 |xT | Jump 0x3a50 39fc e41d | | Load 0x2,0x1d 39fd 0092 6544 | eD| Action Push_String_Extended,0x6544 ; "05" 39ff 01df | | Execute Vector,Equal 3a00 6805 |h | Jump_Zero 0x3a06 3a01 0092 6545 | eE| Action Push_String_Extended,0x6545 ; "May" 3a03 e41e | | Load 0x2,0x1e 3a04 01d4 | | Execute Vector,Structure_Write 3a05 784a |xJ | Jump 0x3a50 3a06 e41d | | Load 0x2,0x1d 3a07 0092 6546 | eF| Action Push_String_Extended,0x6546 ; "06" 3a09 01df | | Execute Vector,Equal 3a0a 6805 |h | Jump_Zero 0x3a10 3a0b 0092 6547 | eG| Action Push_String_Extended,0x6547 ; "Jun" 3a0d e41e | | Load 0x2,0x1e 3a0e 01d4 | | Execute Vector,Structure_Write 3a0f 7840 |x@ | Jump 0x3a50 3a10 e41d | | Load 0x2,0x1d 3a11 0092 6548 | eH| Action Push_String_Extended,0x6548 ; "07" 3a13 01df | | Execute Vector,Equal 3a14 6805 |h | Jump_Zero 0x3a1a 3a15 0092 6549 | eI| Action Push_String_Extended,0x6549 ; "Jul" 3a17 e41e | | Load 0x2,0x1e 3a18 01d4 | | Execute Vector,Structure_Write 3a19 7836 |x6 | Jump 0x3a50 3a1a e41d | | Load 0x2,0x1d 3a1b 0092 654a | eJ| Action Push_String_Extended,0x654a ; "08" 3a1d 01df | | Execute Vector,Equal 3a1e 6805 |h | Jump_Zero 0x3a24 3a1f 0092 654b | eK| Action Push_String_Extended,0x654b ; "Aug" 3a21 e41e | | Load 0x2,0x1e 3a22 01d4 | | Execute Vector,Structure_Write 3a23 782c |x, | Jump 0x3a50 3a24 e41d | | Load 0x2,0x1d 3a25 0092 654c | eL| Action Push_String_Extended,0x654c ; "09" 3a27 01df | | Execute Vector,Equal 3a28 6805 |h | Jump_Zero 0x3a2e 3a29 0092 654d | eM| Action Push_String_Extended,0x654d ; "Sep" 3a2b e41e | | Load 0x2,0x1e 3a2c 01d4 | | Execute Vector,Structure_Write 3a2d 7822 |x" | Jump 0x3a50 3a2e e41d | | Load 0x2,0x1d 3a2f 0092 654e | eN| Action Push_String_Extended,0x654e ; "10" 3a31 01df | | Execute Vector,Equal 3a32 6805 |h | Jump_Zero 0x3a38 3a33 0092 654f | eO| Action Push_String_Extended,0x654f ; "Oct" 3a35 e41e | | Load 0x2,0x1e 3a36 01d4 | | Execute Vector,Structure_Write 3a37 7818 |x | Jump 0x3a50 3a38 e41d | | Load 0x2,0x1d 3a39 0092 6550 | eP| Action Push_String_Extended,0x6550 ; "11" 3a3b 01df | | Execute Vector,Equal 3a3c 6805 |h | Jump_Zero 0x3a42 3a3d 0092 6551 | eQ| Action Push_String_Extended,0x6551 ; "Nov" 3a3f e41e | | Load 0x2,0x1e 3a40 01d4 | | Execute Vector,Structure_Write 3a41 780e |x | Jump 0x3a50 3a42 e41d | | Load 0x2,0x1d 3a43 0092 6552 | eR| Action Push_String_Extended,0x6552 ; "12" 3a45 01df | | Execute Vector,Equal 3a46 6805 |h | Jump_Zero 0x3a4c 3a47 0092 6553 | eS| Action Push_String_Extended,0x6553 ; "Dec" 3a49 e41e | | Load 0x2,0x1e 3a4a 01d4 | | Execute Vector,Structure_Write 3a4b 7804 |x | Jump 0x3a50 3a4c 0092 653d | e=| Action Push_String_Extended,0x653d ; "Jan" 3a4e e41e | | Load 0x2,0x1e 3a4f 01d4 | | Execute Vector,Structure_Write 3a50 4807 |H | Short_Literal 0x7 3a51 4808 |H | Short_Literal 0x8 3a52 e411 | | Load 0x2,0x11 3a53 01cf | | Execute Vector,Slice_Read 3a54 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 3a56 01cc | | Execute Vector,Catenate 3a57 4801 |H | Short_Literal 0x1 3a58 4803 |H | Short_Literal 0x3 3a59 e41e | | Load 0x2,0x1e 3a5a 01cf | | Execute Vector,Slice_Read 3a5b 01cc | | Execute Vector,Catenate 3a5c 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 3a5e 01cc | | Execute Vector,Catenate 3a5f 4801 |H | Short_Literal 0x1 3a60 4802 |H | Short_Literal 0x2 3a61 e411 | | Load 0x2,0x11 3a62 01cf | | Execute Vector,Slice_Read 3a63 01cc | | Execute Vector,Catenate 3a64 4801 |H | Short_Literal 0x1 3a65 4809 |H | Short_Literal 0x9 3a66 e41f | | Load 0x2,0x1f 3a67 01ce | | Execute Vector,Slice_Write 3a68 e403 | | Load 0x2,0x3 3a69 4800 |H | Short_Literal 0x0 3a6a 4800 |H | Short_Literal 0x0 3a6b 4801 |H | Short_Literal 0x1 3a6c 0092 6554 | eT| Action Push_String_Extended,0x6554 ; "DATE_ENTERED => " 3a6e e41f | | Load 0x2,0x1f 3a6f 01cc | | Execute Vector,Catenate 3a70 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 3a72 01cc | | Execute Vector,Catenate 3a73 e420 | | Load 0x2,0x20 3a74 01cc | | Execute Vector,Catenate 3a75 4801 |H | Short_Literal 0x1 3a76 4800 |H | Short_Literal 0x0 3a77 8225 | % | Call 0x1,0x25 3a78 c403 | | Store 0x2,0x3 3a79 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3a7a TRAP_39a8: 3a7a 0007 | | Action Break_Optional 3a7b 0092 6555 | eU| Action Push_String_Extended,0x6555 ; " Problem with date-time stamp filename..." 3a7d e001 | | Load 0x0,0x1 3a7e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3a7f e001 | | Load 0x0,0x1 3a80 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3a81 00d8 | | Load_Top At_Offset_0 3a82 0101 | | Execute Exception,Reraise 3a83 0000 0000 | | .BLANK 0000[0x5] 3a88 ; -------------------------------------------------------------------------------------- 3a88 ; SUBPROGRAM 3a88 ; -------------------------------------------------------------------------------------- 3a88 3a8b |: | .CONST 0x3a8b ; Address of begin 3a89 3ac0 |: | .CONST 0x3ac0 ; Address of exception handler 3a8a 0001 | | .CONST 0x0001 ; Number of locals 3a8b BODY_3a88: 3a8b INIT_3a88: 3a8b e5f6 | | Load 0x2,-0xa 3a8c 0c01 | | Execute_Immediate Greater_Equal,0x1 3a8d 680a |h | Jump_Zero 0x3a98 3a8e e403 | | Load 0x2,0x3 3a8f 4801 |H | Short_Literal 0x1 3a90 4800 |H | Short_Literal 0x0 3a91 4801 |H | Short_Literal 0x1 3a92 0092 6556 | eV| Action Push_String_Extended,0x6556 ; "COMPANY => " 3a94 4801 |H | Short_Literal 0x1 3a95 e5f6 | | Load 0x2,-0xa 3a96 8225 | % | Call 0x1,0x25 3a97 c403 | | Store 0x2,0x3 3a98 e5f5 | | Load 0x2,-0xb 3a99 0c01 | | Execute_Immediate Greater_Equal,0x1 3a9a 680a |h | Jump_Zero 0x3aa5 3a9b e403 | | Load 0x2,0x3 3a9c 4801 |H | Short_Literal 0x1 3a9d 4800 |H | Short_Literal 0x0 3a9e 4801 |H | Short_Literal 0x1 3a9f 0092 6557 | eW| Action Push_String_Extended,0x6557 ; "LOCAL_SITE => " 3aa1 4801 |H | Short_Literal 0x1 3aa2 e5f5 | | Load 0x2,-0xb 3aa3 8225 | % | Call 0x1,0x25 3aa4 c403 | | Store 0x2,0x3 3aa5 e5f4 | | Load 0x2,-0xc 3aa6 0c01 | | Execute_Immediate Greater_Equal,0x1 3aa7 680a |h | Jump_Zero 0x3ab2 3aa8 e403 | | Load 0x2,0x3 3aa9 4801 |H | Short_Literal 0x1 3aaa 4801 |H | Short_Literal 0x1 3aab 4801 |H | Short_Literal 0x1 3aac 0092 6558 | eX| Action Push_String_Extended,0x6558 ; "TELEPHONE => " 3aae 4801 |H | Short_Literal 0x1 3aaf e5f4 | | Load 0x2,-0xc 3ab0 8225 | % | Call 0x1,0x25 3ab1 c403 | | Store 0x2,0x3 3ab2 e5f3 | | Load 0x2,-0xd 3ab3 0c01 | | Execute_Immediate Greater_Equal,0x1 3ab4 680a |h | Jump_Zero 0x3abf 3ab5 e403 | | Load 0x2,0x3 3ab6 4801 |H | Short_Literal 0x1 3ab7 4800 |H | Short_Literal 0x0 3ab8 4801 |H | Short_Literal 0x1 3ab9 0092 6559 | eY| Action Push_String_Extended,0x6559 ; "USER_NAME => " 3abb 4801 |H | Short_Literal 0x1 3abc e5f3 | | Load 0x2,-0xd 3abd 8225 | % | Call 0x1,0x25 3abe c403 | | Store 0x2,0x3 3abf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3ac0 TRAP_3a88: 3ac0 0007 | | Action Break_Optional 3ac1 0092 655a | eZ| Action Push_String_Extended,0x655a ; " Problem with company,site,tel,submitter..." 3ac3 e001 | | Load 0x0,0x1 3ac4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3ac5 e001 | | Load 0x0,0x1 3ac6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3ac7 00d8 | | Load_Top At_Offset_0 3ac8 0101 | | Execute Exception,Reraise 3ac9 0000 0000 | | .BLANK 0000[0x7] 3ad0 ; -------------------------------------------------------------------------------------- 3ad0 ; SUBPROGRAM 3ad0 ; -------------------------------------------------------------------------------------- 3ad0 3ad3 |: | .CONST 0x3ad3 ; Address of begin 3ad1 3b08 |; | .CONST 0x3b08 ; Address of exception handler 3ad2 0001 | | .CONST 0x0001 ; Number of locals 3ad3 BODY_3ad0: 3ad3 INIT_3ad0: 3ad3 e5f2 | | Load 0x2,-0xe 3ad4 0c01 | | Execute_Immediate Greater_Equal,0x1 3ad5 680a |h | Jump_Zero 0x3ae0 3ad6 e403 | | Load 0x2,0x3 3ad7 4801 |H | Short_Literal 0x1 3ad8 4800 |H | Short_Literal 0x0 3ad9 4801 |H | Short_Literal 0x1 3ada 0092 655b | e[| Action Push_String_Extended,0x655b ; "REPORTED_ON => " 3adc 4801 |H | Short_Literal 0x1 3add e5f2 | | Load 0x2,-0xe 3ade 8225 | % | Call 0x1,0x25 3adf c403 | | Store 0x2,0x3 3ae0 e5f1 | | Load 0x2,-0xf 3ae1 0c01 | | Execute_Immediate Greater_Equal,0x1 3ae2 680a |h | Jump_Zero 0x3aed 3ae3 e403 | | Load 0x2,0x3 3ae4 4801 |H | Short_Literal 0x1 3ae5 4800 |H | Short_Literal 0x0 3ae6 4801 |H | Short_Literal 0x1 3ae7 0092 655c | e\| Action Push_String_Extended,0x655c ; "OCCURRED_ON => " 3ae9 4801 |H | Short_Literal 0x1 3aea e5f1 | | Load 0x2,-0xf 3aeb 8225 | % | Call 0x1,0x25 3aec c403 | | Store 0x2,0x3 3aed e5f0 | | Load 0x2,-0x10 3aee 0c01 | | Execute_Immediate Greater_Equal,0x1 3aef 680a |h | Jump_Zero 0x3afa 3af0 e403 | | Load 0x2,0x3 3af1 4801 |H | Short_Literal 0x1 3af2 4800 |H | Short_Literal 0x0 3af3 4801 |H | Short_Literal 0x1 3af4 0092 655d | e]| Action Push_String_Extended,0x655d ; "MACHINE_REPORTING => " 3af6 4801 |H | Short_Literal 0x1 3af7 e5f0 | | Load 0x2,-0x10 3af8 8225 | % | Call 0x1,0x25 3af9 c403 | | Store 0x2,0x3 3afa e5ef | | Load 0x2,-0x11 3afb 0c01 | | Execute_Immediate Greater_Equal,0x1 3afc 680a |h | Jump_Zero 0x3b07 3afd e403 | | Load 0x2,0x3 3afe 4801 |H | Short_Literal 0x1 3aff 4800 |H | Short_Literal 0x0 3b00 4801 |H | Short_Literal 0x1 3b01 0092 655e | e^| Action Push_String_Extended,0x655e ; "MACHINE_FOUND_ON => " 3b03 4801 |H | Short_Literal 0x1 3b04 e5ef | | Load 0x2,-0x11 3b05 8225 | % | Call 0x1,0x25 3b06 c403 | | Store 0x2,0x3 3b07 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3b08 TRAP_3ad0: 3b08 0007 | | Action Break_Optional 3b09 0092 655f | e_| Action Push_String_Extended,0x655f ; " Problem with id's,machine names..." 3b0b e001 | | Load 0x0,0x1 3b0c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3b0d e001 | | Load 0x0,0x1 3b0e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3b0f 00d8 | | Load_Top At_Offset_0 3b10 0101 | | Execute Exception,Reraise 3b11 0000 0000 | | .BLANK 0000[0x7] 3b18 ; -------------------------------------------------------------------------------------- 3b18 ; SUBPROGRAM 3b18 ; -------------------------------------------------------------------------------------- 3b18 3b1b |; | .CONST 0x3b1b ; Address of begin 3b19 3cf6 |< | .CONST 0x3cf6 ; Address of exception handler 3b1a 0001 | | .CONST 0x0001 ; Number of locals 3b1b BODY_3b18: 3b1b INIT_3b18: 3b1b e5ee | | Load 0x2,-0x12 3b1c 0c01 | | Execute_Immediate Greater_Equal,0x1 3b1d 680a |h | Jump_Zero 0x3b28 3b1e e403 | | Load 0x2,0x3 3b1f 4801 |H | Short_Literal 0x1 3b20 4800 |H | Short_Literal 0x0 3b21 4801 |H | Short_Literal 0x1 3b22 0092 6560 | e`| Action Push_String_Extended,0x6560 ; "CONFIGURATION_NAME => " 3b24 4801 |H | Short_Literal 0x1 3b25 e5ee | | Load 0x2,-0x12 3b26 8225 | % | Call 0x1,0x25 3b27 c403 | | Store 0x2,0x3 3b28 e5ed | | Load 0x2,-0x13 3b29 0c01 | | Execute_Immediate Greater_Equal,0x1 3b2a 687c |h| | Jump_Zero 0x3ba7 3b2b e410 | | Load 0x2,0x10 3b2c e411 | | Load 0x2,0x11 3b2d e002 | | Load 0x0,0x2 3b2e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3b2f e5ed | | Load 0x2,-0x13 3b30 8255 | U | Call 0x1,0x55 3b31 00d1 | | Pop_Control Pop_Count_1 3b32 c410 | | Store 0x2,0x10 3b33 00cf | | Action Mark_Auxiliary 3b34 0007 | | Action Break_Optional 3b35 e410 | | Load 0x2,0x10 3b36 0f05 | | Execute_Immediate Equal,0x5 3b37 6811 |h | Jump_Zero 0x3b49 3b38 4801 |H | Short_Literal 0x1 3b39 4805 |H | Short_Literal 0x5 3b3a e411 | | Load 0x2,0x11 3b3b 01cf | | Execute Vector,Slice_Read 3b3c 0092 6561 | ea| Action Push_String_Extended,0x6561 ; "other" 3b3e 01df | | Execute Vector,Equal 3b3f 4801 |H | Short_Literal 0x1 3b40 4805 |H | Short_Literal 0x5 3b41 e411 | | Load 0x2,0x11 3b42 01cf | | Execute Vector,Slice_Read 3b43 0092 6562 | eb| Action Push_String_Extended,0x6562 ; "OTHER" 3b45 01df | | Execute Vector,Equal 3b46 0278 | x | Execute Discrete,Or 3b47 6801 |h | Jump_Zero 0x3b49 3b48 7853 |xS | Jump 0x3b9c 3b49 e410 | | Load 0x2,0x10 3b4a 0f07 | | Execute_Immediate Equal,0x7 3b4b 6811 |h | Jump_Zero 0x3b5d 3b4c 4801 |H | Short_Literal 0x1 3b4d 4807 |H | Short_Literal 0x7 3b4e e411 | | Load 0x2,0x11 3b4f 01cf | | Execute Vector,Slice_Read 3b50 0092 6563 | ec| Action Push_String_Extended,0x6563 ; "inquiry" 3b52 01df | | Execute Vector,Equal 3b53 4801 |H | Short_Literal 0x1 3b54 4807 |H | Short_Literal 0x7 3b55 e411 | | Load 0x2,0x11 3b56 01cf | | Execute Vector,Slice_Read 3b57 0092 6564 | ed| Action Push_String_Extended,0x6564 ; "INQUIRY" 3b59 01df | | Execute Vector,Equal 3b5a 0278 | x | Execute Discrete,Or 3b5b 6801 |h | Jump_Zero 0x3b5d 3b5c 783f |x? | Jump 0x3b9c 3b5d e410 | | Load 0x2,0x10 3b5e 0f07 | | Execute_Immediate Equal,0x7 3b5f 6811 |h | Jump_Zero 0x3b71 3b60 4801 |H | Short_Literal 0x1 3b61 4807 |H | Short_Literal 0x7 3b62 e411 | | Load 0x2,0x11 3b63 01cf | | Execute Vector,Slice_Read 3b64 0092 6565 | ee| Action Push_String_Extended,0x6565 ; "problem" 3b66 01df | | Execute Vector,Equal 3b67 4801 |H | Short_Literal 0x1 3b68 4807 |H | Short_Literal 0x7 3b69 e411 | | Load 0x2,0x11 3b6a 01cf | | Execute Vector,Slice_Read 3b6b 0092 6566 | ef| Action Push_String_Extended,0x6566 ; "PROBLEM" 3b6d 01df | | Execute Vector,Equal 3b6e 0278 | x | Execute Discrete,Or 3b6f 6801 |h | Jump_Zero 0x3b71 3b70 782b |x+ | Jump 0x3b9c 3b71 e410 | | Load 0x2,0x10 3b72 0f0a | | Execute_Immediate Equal,0xa 3b73 6811 |h | Jump_Zero 0x3b85 3b74 4801 |H | Short_Literal 0x1 3b75 480a |H | Short_Literal 0xa 3b76 e411 | | Load 0x2,0x11 3b77 01cf | | Execute Vector,Slice_Read 3b78 0092 6567 | eg| Action Push_String_Extended,0x6567 ; "suggestion" 3b7a 01df | | Execute Vector,Equal 3b7b 4801 |H | Short_Literal 0x1 3b7c 480a |H | Short_Literal 0xa 3b7d e411 | | Load 0x2,0x11 3b7e 01cf | | Execute Vector,Slice_Read 3b7f 0092 6568 | eh| Action Push_String_Extended,0x6568 ; "SUGGESTION" 3b81 01df | | Execute Vector,Equal 3b82 0278 | x | Execute Discrete,Or 3b83 6801 |h | Jump_Zero 0x3b85 3b84 7817 |x | Jump 0x3b9c 3b85 4805 |H | Short_Literal 0x5 3b86 e002 | | Load 0x0,0x2 3b87 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3b88 e5ed | | Load 0x2,-0x13 3b89 e002 | | Load 0x0,0x2 3b8a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3b8b 01d5 | | Execute Vector,Field_Reference 3b8c 01d5 | | Execute Vector,Field_Reference 3b8d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 3b8e 0092 6561 | ea| Action Push_String_Extended,0x6561 ; "other" 3b90 4801 |H | Short_Literal 0x1 3b91 4805 |H | Short_Literal 0x5 3b92 e002 | | Load 0x0,0x2 3b93 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3b94 e5ed | | Load 0x2,-0x13 3b95 e002 | | Load 0x0,0x2 3b96 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3b97 01d7 | | Execute Vector,Field_Read 3b98 01d7 | | Execute Vector,Field_Read 3b99 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3b9a 01ce | | Execute Vector,Slice_Write 3b9b 7800 |x | Jump 0x3b9c 3b9c 00ce | | Action Pop_Auxiliary 3b9d e403 | | Load 0x2,0x3 3b9e 4800 |H | Short_Literal 0x0 3b9f 4800 |H | Short_Literal 0x0 3ba0 4801 |H | Short_Literal 0x1 3ba1 0092 6569 | ei| Action Push_String_Extended,0x6569 ; "REQUEST_TYPE => " 3ba3 4801 |H | Short_Literal 0x1 3ba4 e5ed | | Load 0x2,-0x13 3ba5 8225 | % | Call 0x1,0x25 3ba6 c403 | | Store 0x2,0x3 3ba7 e5ec | | Load 0x2,-0x14 3ba8 0c01 | | Execute_Immediate Greater_Equal,0x1 3ba9 687c |h| | Jump_Zero 0x3c26 3baa e410 | | Load 0x2,0x10 3bab e411 | | Load 0x2,0x11 3bac e002 | | Load 0x0,0x2 3bad 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3bae e5ec | | Load 0x2,-0x14 3baf 8255 | U | Call 0x1,0x55 3bb0 00d1 | | Pop_Control Pop_Count_1 3bb1 c410 | | Store 0x2,0x10 3bb2 00cf | | Action Mark_Auxiliary 3bb3 0007 | | Action Break_Optional 3bb4 e410 | | Load 0x2,0x10 3bb5 0f06 | | Execute_Immediate Equal,0x6 3bb6 6811 |h | Jump_Zero 0x3bc8 3bb7 4801 |H | Short_Literal 0x1 3bb8 4806 |H | Short_Literal 0x6 3bb9 e411 | | Load 0x2,0x11 3bba 01cf | | Execute Vector,Slice_Read 3bbb 0092 656a | ej| Action Push_String_Extended,0x656a ; "urgent" 3bbd 01df | | Execute Vector,Equal 3bbe 4801 |H | Short_Literal 0x1 3bbf 4806 |H | Short_Literal 0x6 3bc0 e411 | | Load 0x2,0x11 3bc1 01cf | | Execute Vector,Slice_Read 3bc2 0092 656b | ek| Action Push_String_Extended,0x656b ; "URGENT" 3bc4 01df | | Execute Vector,Equal 3bc5 0278 | x | Execute Discrete,Or 3bc6 6801 |h | Jump_Zero 0x3bc8 3bc7 7853 |xS | Jump 0x3c1b 3bc8 e410 | | Load 0x2,0x10 3bc9 0f04 | | Execute_Immediate Equal,0x4 3bca 6811 |h | Jump_Zero 0x3bdc 3bcb 4801 |H | Short_Literal 0x1 3bcc 4804 |H | Short_Literal 0x4 3bcd e411 | | Load 0x2,0x11 3bce 01cf | | Execute Vector,Slice_Read 3bcf 0092 656c | el| Action Push_String_Extended,0x656c ; "high" 3bd1 01df | | Execute Vector,Equal 3bd2 4801 |H | Short_Literal 0x1 3bd3 4804 |H | Short_Literal 0x4 3bd4 e411 | | Load 0x2,0x11 3bd5 01cf | | Execute Vector,Slice_Read 3bd6 0092 656d | em| Action Push_String_Extended,0x656d ; "HIGH" 3bd8 01df | | Execute Vector,Equal 3bd9 0278 | x | Execute Discrete,Or 3bda 6801 |h | Jump_Zero 0x3bdc 3bdb 783f |x? | Jump 0x3c1b 3bdc e410 | | Load 0x2,0x10 3bdd 0f09 | | Execute_Immediate Equal,0x9 3bde 6811 |h | Jump_Zero 0x3bf0 3bdf 4801 |H | Short_Literal 0x1 3be0 4809 |H | Short_Literal 0x9 3be1 e411 | | Load 0x2,0x11 3be2 01cf | | Execute Vector,Slice_Read 3be3 0092 656e | en| Action Push_String_Extended,0x656e ; "important" 3be5 01df | | Execute Vector,Equal 3be6 4801 |H | Short_Literal 0x1 3be7 4809 |H | Short_Literal 0x9 3be8 e411 | | Load 0x2,0x11 3be9 01cf | | Execute Vector,Slice_Read 3bea 0092 656f | eo| Action Push_String_Extended,0x656f ; "IMPORTANT" 3bec 01df | | Execute Vector,Equal 3bed 0278 | x | Execute Discrete,Or 3bee 6801 |h | Jump_Zero 0x3bf0 3bef 782b |x+ | Jump 0x3c1b 3bf0 e410 | | Load 0x2,0x10 3bf1 0f09 | | Execute_Immediate Equal,0x9 3bf2 6811 |h | Jump_Zero 0x3c04 3bf3 4801 |H | Short_Literal 0x1 3bf4 4809 |H | Short_Literal 0x9 3bf5 e411 | | Load 0x2,0x11 3bf6 01cf | | Execute Vector,Slice_Read 3bf7 0092 6570 | ep| Action Push_String_Extended,0x6570 ; "scheduled" 3bf9 01df | | Execute Vector,Equal 3bfa 4801 |H | Short_Literal 0x1 3bfb 4809 |H | Short_Literal 0x9 3bfc e411 | | Load 0x2,0x11 3bfd 01cf | | Execute Vector,Slice_Read 3bfe 0092 6571 | eq| Action Push_String_Extended,0x6571 ; "SCHEDULED" 3c00 01df | | Execute Vector,Equal 3c01 0278 | x | Execute Discrete,Or 3c02 6801 |h | Jump_Zero 0x3c04 3c03 7817 |x | Jump 0x3c1b 3c04 4809 |H | Short_Literal 0x9 3c05 e002 | | Load 0x0,0x2 3c06 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3c07 e5ec | | Load 0x2,-0x14 3c08 e002 | | Load 0x0,0x2 3c09 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3c0a 01d5 | | Execute Vector,Field_Reference 3c0b 01d5 | | Execute Vector,Field_Reference 3c0c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 3c0d 0092 656e | en| Action Push_String_Extended,0x656e ; "important" 3c0f 4801 |H | Short_Literal 0x1 3c10 4809 |H | Short_Literal 0x9 3c11 e002 | | Load 0x0,0x2 3c12 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3c13 e5ec | | Load 0x2,-0x14 3c14 e002 | | Load 0x0,0x2 3c15 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3c16 01d7 | | Execute Vector,Field_Read 3c17 01d7 | | Execute Vector,Field_Read 3c18 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3c19 01ce | | Execute Vector,Slice_Write 3c1a 7800 |x | Jump 0x3c1b 3c1b 00ce | | Action Pop_Auxiliary 3c1c e403 | | Load 0x2,0x3 3c1d 4800 |H | Short_Literal 0x0 3c1e 4800 |H | Short_Literal 0x0 3c1f 4801 |H | Short_Literal 0x1 3c20 0092 6572 | er| Action Push_String_Extended,0x6572 ; "REQUEST_PRIORITY => " 3c22 4801 |H | Short_Literal 0x1 3c23 e5ec | | Load 0x2,-0x14 3c24 8225 | % | Call 0x1,0x25 3c25 c403 | | Store 0x2,0x3 3c26 e5eb | | Load 0x2,-0x15 3c27 0c01 | | Execute_Immediate Greater_Equal,0x1 3c28 68cc |h | Jump_Zero 0x3cf5 3c29 e410 | | Load 0x2,0x10 3c2a e411 | | Load 0x2,0x11 3c2b e002 | | Load 0x0,0x2 3c2c 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3c2d e5eb | | Load 0x2,-0x15 3c2e 8255 | U | Call 0x1,0x55 3c2f 00d1 | | Pop_Control Pop_Count_1 3c30 c410 | | Store 0x2,0x10 3c31 00cf | | Action Mark_Auxiliary 3c32 0007 | | Action Break_Optional 3c33 e410 | | Load 0x2,0x10 3c34 0f08 | | Execute_Immediate Equal,0x8 3c35 6811 |h | Jump_Zero 0x3c47 3c36 4801 |H | Short_Literal 0x1 3c37 4808 |H | Short_Literal 0x8 3c38 e411 | | Load 0x2,0x11 3c39 01cf | | Execute Vector,Slice_Read 3c3a 0092 6573 | es| Action Push_String_Extended,0x6573 ; "software" 3c3c 01df | | Execute Vector,Equal 3c3d 4801 |H | Short_Literal 0x1 3c3e 4808 |H | Short_Literal 0x8 3c3f e411 | | Load 0x2,0x11 3c40 01cf | | Execute Vector,Slice_Read 3c41 0092 6574 | et| Action Push_String_Extended,0x6574 ; "SOFTWARE" 3c43 01df | | Execute Vector,Equal 3c44 0278 | x | Execute Discrete,Or 3c45 6801 |h | Jump_Zero 0x3c47 3c46 78a3 |x | Jump 0x3cea 3c47 e410 | | Load 0x2,0x10 3c48 0f08 | | Execute_Immediate Equal,0x8 3c49 6811 |h | Jump_Zero 0x3c5b 3c4a 4801 |H | Short_Literal 0x1 3c4b 4808 |H | Short_Literal 0x8 3c4c e411 | | Load 0x2,0x11 3c4d 01cf | | Execute Vector,Slice_Read 3c4e 0092 6575 | eu| Action Push_String_Extended,0x6575 ; "hardware" 3c50 01df | | Execute Vector,Equal 3c51 4801 |H | Short_Literal 0x1 3c52 4808 |H | Short_Literal 0x8 3c53 e411 | | Load 0x2,0x11 3c54 01cf | | Execute Vector,Slice_Read 3c55 0092 6576 | ev| Action Push_String_Extended,0x6576 ; "HARDWARE" 3c57 01df | | Execute Vector,Equal 3c58 0278 | x | Execute Discrete,Or 3c59 6801 |h | Jump_Zero 0x3c5b 3c5a 788f |x | Jump 0x3cea 3c5b e410 | | Load 0x2,0x10 3c5c 0f09 | | Execute_Immediate Equal,0x9 3c5d 6811 |h | Jump_Zero 0x3c6f 3c5e 4801 |H | Short_Literal 0x1 3c5f 4809 |H | Short_Literal 0x9 3c60 e411 | | Load 0x2,0x11 3c61 01cf | | Execute Vector,Slice_Read 3c62 0092 6577 | ew| Action Push_String_Extended,0x6577 ; "microcode" 3c64 01df | | Execute Vector,Equal 3c65 4801 |H | Short_Literal 0x1 3c66 4809 |H | Short_Literal 0x9 3c67 e411 | | Load 0x2,0x11 3c68 01cf | | Execute Vector,Slice_Read 3c69 0092 6578 | ex| Action Push_String_Extended,0x6578 ; "MICROCODE" 3c6b 01df | | Execute Vector,Equal 3c6c 0278 | x | Execute Discrete,Or 3c6d 6801 |h | Jump_Zero 0x3c6f 3c6e 787b |x{ | Jump 0x3cea 3c6f e410 | | Load 0x2,0x10 3c70 0f0b | | Execute_Immediate Equal,0xb 3c71 6811 |h | Jump_Zero 0x3c83 3c72 4801 |H | Short_Literal 0x1 3c73 480b |H | Short_Literal 0xb 3c74 e411 | | Load 0x2,0x11 3c75 01cf | | Execute Vector,Slice_Read 3c76 0092 6579 | ey| Action Push_String_Extended,0x6579 ; "diagnostics" 3c78 01df | | Execute Vector,Equal 3c79 4801 |H | Short_Literal 0x1 3c7a 480b |H | Short_Literal 0xb 3c7b e411 | | Load 0x2,0x11 3c7c 01cf | | Execute Vector,Slice_Read 3c7d 0092 657a | ez| Action Push_String_Extended,0x657a ; "DIAGNOSTICS" 3c7f 01df | | Execute Vector,Equal 3c80 0278 | x | Execute Discrete,Or 3c81 6801 |h | Jump_Zero 0x3c83 3c82 7867 |xg | Jump 0x3cea 3c83 e410 | | Load 0x2,0x10 3c84 0f08 | | Execute_Immediate Equal,0x8 3c85 6811 |h | Jump_Zero 0x3c97 3c86 4801 |H | Short_Literal 0x1 3c87 4808 |H | Short_Literal 0x8 3c88 e411 | | Load 0x2,0x11 3c89 01cf | | Execute Vector,Slice_Read 3c8a 0092 657b | e{| Action Push_String_Extended,0x657b ; "document" 3c8c 01df | | Execute Vector,Equal 3c8d 4801 |H | Short_Literal 0x1 3c8e 4808 |H | Short_Literal 0x8 3c8f e411 | | Load 0x2,0x11 3c90 01cf | | Execute Vector,Slice_Read 3c91 0092 657c | e|| Action Push_String_Extended,0x657c ; "DOCUMENT" 3c93 01df | | Execute Vector,Equal 3c94 0278 | x | Execute Discrete,Or 3c95 6801 |h | Jump_Zero 0x3c97 3c96 7853 |xS | Jump 0x3cea 3c97 e410 | | Load 0x2,0x10 3c98 0f08 | | Execute_Immediate Equal,0x8 3c99 6811 |h | Jump_Zero 0x3cab 3c9a 4801 |H | Short_Literal 0x1 3c9b 4808 |H | Short_Literal 0x8 3c9c e411 | | Load 0x2,0x11 3c9d 01cf | | Execute Vector,Slice_Read 3c9e 0092 657d | e}| Action Push_String_Extended,0x657d ; "training" 3ca0 01df | | Execute Vector,Equal 3ca1 4801 |H | Short_Literal 0x1 3ca2 4808 |H | Short_Literal 0x8 3ca3 e411 | | Load 0x2,0x11 3ca4 01cf | | Execute Vector,Slice_Read 3ca5 0092 657e | e~| Action Push_String_Extended,0x657e ; "TRAINING" 3ca7 01df | | Execute Vector,Equal 3ca8 0278 | x | Execute Discrete,Or 3ca9 6801 |h | Jump_Zero 0x3cab 3caa 783f |x? | Jump 0x3cea 3cab e410 | | Load 0x2,0x10 3cac 0f04 | | Execute_Immediate Equal,0x4 3cad 6811 |h | Jump_Zero 0x3cbf 3cae 4801 |H | Short_Literal 0x1 3caf 4804 |H | Short_Literal 0x4 3cb0 e411 | | Load 0x2,0x11 3cb1 01cf | | Execute Vector,Slice_Read 3cb2 0092 657f | e | Action Push_String_Extended,0x657f ; "sims" 3cb4 01df | | Execute Vector,Equal 3cb5 4801 |H | Short_Literal 0x1 3cb6 4804 |H | Short_Literal 0x4 3cb7 e411 | | Load 0x2,0x11 3cb8 01cf | | Execute Vector,Slice_Read 3cb9 0092 6580 | e | Action Push_String_Extended,0x6580 ; "SIMS" 3cbb 01df | | Execute Vector,Equal 3cbc 0278 | x | Execute Discrete,Or 3cbd 6801 |h | Jump_Zero 0x3cbf 3cbe 782b |x+ | Jump 0x3cea 3cbf e410 | | Load 0x2,0x10 3cc0 0f05 | | Execute_Immediate Equal,0x5 3cc1 6811 |h | Jump_Zero 0x3cd3 3cc2 4801 |H | Short_Literal 0x1 3cc3 4805 |H | Short_Literal 0x5 3cc4 e411 | | Load 0x2,0x11 3cc5 01cf | | Execute Vector,Slice_Read 3cc6 0092 6561 | ea| Action Push_String_Extended,0x6561 ; "other" 3cc8 01df | | Execute Vector,Equal 3cc9 4801 |H | Short_Literal 0x1 3cca 4805 |H | Short_Literal 0x5 3ccb e411 | | Load 0x2,0x11 3ccc 01cf | | Execute Vector,Slice_Read 3ccd 0092 6562 | eb| Action Push_String_Extended,0x6562 ; "OTHER" 3ccf 01df | | Execute Vector,Equal 3cd0 0278 | x | Execute Discrete,Or 3cd1 6801 |h | Jump_Zero 0x3cd3 3cd2 7817 |x | Jump 0x3cea 3cd3 4805 |H | Short_Literal 0x5 3cd4 e002 | | Load 0x0,0x2 3cd5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3cd6 e5eb | | Load 0x2,-0x15 3cd7 e002 | | Load 0x0,0x2 3cd8 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3cd9 01d5 | | Execute Vector,Field_Reference 3cda 01d5 | | Execute Vector,Field_Reference 3cdb 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 3cdc 0092 6561 | ea| Action Push_String_Extended,0x6561 ; "other" 3cde 4801 |H | Short_Literal 0x1 3cdf 4805 |H | Short_Literal 0x5 3ce0 e002 | | Load 0x0,0x2 3ce1 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3ce2 e5eb | | Load 0x2,-0x15 3ce3 e002 | | Load 0x0,0x2 3ce4 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3ce5 01d7 | | Execute Vector,Field_Read 3ce6 01d7 | | Execute Vector,Field_Read 3ce7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 3ce8 01ce | | Execute Vector,Slice_Write 3ce9 7800 |x | Jump 0x3cea 3cea 00ce | | Action Pop_Auxiliary 3ceb e403 | | Load 0x2,0x3 3cec 4800 |H | Short_Literal 0x0 3ced 4800 |H | Short_Literal 0x0 3cee 4801 |H | Short_Literal 0x1 3cef 0092 6581 | e | Action Push_String_Extended,0x6581 ; "GENERAL_CATEGORY => " 3cf1 4801 |H | Short_Literal 0x1 3cf2 e5eb | | Load 0x2,-0x15 3cf3 8225 | % | Call 0x1,0x25 3cf4 c403 | | Store 0x2,0x3 3cf5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3cf6 TRAP_3b18: 3cf6 0007 | | Action Break_Optional 3cf7 0092 6582 | e | Action Push_String_Extended,0x6582 ; " Problem with config,type,priority,category..." 3cf9 e001 | | Load 0x0,0x1 3cfa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3cfb e001 | | Load 0x0,0x1 3cfc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3cfd 00d8 | | Load_Top At_Offset_0 3cfe 0101 | | Execute Exception,Reraise 3cff 0000 0000 | | .BLANK 0000[0x4] 3d03 0e10 0000 | | .XXX[0x9] 3d05 0000 0000 | | 3d07 4000 ffff |@ | 3d09 ffff ffff | | 3d0b c000 | | 3d0c 0000 0000 | | .BLANK 0000[0x4] 3d10 ; -------------------------------------------------------------------------------------- 3d10 ; SUBPROGRAM 3d10 ; -------------------------------------------------------------------------------------- 3d10 3d13 |= | .CONST 0x3d13 ; Address of begin 3d11 3d2e |=. | .CONST 0x3d2e ; Address of exception handler 3d12 0001 | | .CONST 0x0001 ; Number of locals 3d13 BODY_3d10: 3d13 INIT_3d10: 3d13 e5e7 | | Load 0x2,-0x19 3d14 0c01 | | Execute_Immediate Greater_Equal,0x1 3d15 680a |h | Jump_Zero 0x3d20 3d16 e403 | | Load 0x2,0x3 3d17 4801 |H | Short_Literal 0x1 3d18 4801 |H | Short_Literal 0x1 3d19 4801 |H | Short_Literal 0x1 3d1a 0092 6583 | e | Action Push_String_Extended,0x6583 ; "LOCAL_REPLY => " 3d1c 4801 |H | Short_Literal 0x1 3d1d e5e7 | | Load 0x2,-0x19 3d1e 8225 | % | Call 0x1,0x25 3d1f c403 | | Store 0x2,0x3 3d20 e5e6 | | Load 0x2,-0x1a 3d21 0c01 | | Execute_Immediate Greater_Equal,0x1 3d22 680a |h | Jump_Zero 0x3d2d 3d23 e403 | | Load 0x2,0x3 3d24 4801 |H | Short_Literal 0x1 3d25 4800 |H | Short_Literal 0x0 3d26 4801 |H | Short_Literal 0x1 3d27 0092 6584 | e | Action Push_String_Extended,0x6584 ; "REGION => " 3d29 4801 |H | Short_Literal 0x1 3d2a e5e6 | | Load 0x2,-0x1a 3d2b 8225 | % | Call 0x1,0x25 3d2c c403 | | Store 0x2,0x3 3d2d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3d2e TRAP_3d10: 3d2e 0007 | | Action Break_Optional 3d2f 0092 6585 | e | Action Push_String_Extended,0x6585 ; " Problem with reply,region..." 3d31 e001 | | Load 0x0,0x1 3d32 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3d33 e001 | | Load 0x0,0x1 3d34 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3d35 00d8 | | Load_Top At_Offset_0 3d36 0101 | | Execute Exception,Reraise 3d37 0000 | | .XXX[0x1] 3d38 ; -------------------------------------------------------------------------------------- 3d38 ; SUBPROGRAM 3d38 ; -------------------------------------------------------------------------------------- 3d38 3d3b |=; | .CONST 0x3d3b ; Address of begin 3d39 3dc6 |= | .CONST 0x3dc6 ; Address of exception handler 3d3a 0001 | | .CONST 0x0001 ; Number of locals 3d3b BODY_3d38: 3d3b INIT_3d38: 3d3b e5f6 | | Load 0x2,-0xa 3d3c 0c01 | | Execute_Immediate Greater_Equal,0x1 3d3d e5e6 | | Load 0x2,-0x1a 3d3e 0c01 | | Execute_Immediate Greater_Equal,0x1 3d3f 0279 | y | Execute Discrete,And 3d40 6884 |h | Jump_Zero 0x3dc5 3d41 00cf | | Action Mark_Auxiliary 3d42 0007 | | Action Break_Optional 3d43 e002 | | Load 0x0,0x2 3d44 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3d45 e5f6 | | Load 0x2,-0xa 3d46 e002 | | Load 0x0,0x2 3d47 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3d48 01d5 | | Execute Vector,Field_Reference 3d49 01d5 | | Execute Vector,Field_Reference 3d4a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3d4b 0f08 | | Execute_Immediate Equal,0x8 3d4c e002 | | Load 0x0,0x2 3d4d 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3d4e e5e6 | | Load 0x2,-0x1a 3d4f e002 | | Load 0x0,0x2 3d50 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3d51 01d5 | | Execute Vector,Field_Reference 3d52 01d5 | | Execute Vector,Field_Reference 3d53 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3d54 0f08 | | Execute_Immediate Equal,0x8 3d55 0279 | y | Execute Discrete,And 3d56 6830 |h0 | Jump_Zero 0x3d87 3d57 4801 |H | Short_Literal 0x1 3d58 4808 |H | Short_Literal 0x8 3d59 e002 | | Load 0x0,0x2 3d5a 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3d5b e5f6 | | Load 0x2,-0xa 3d5c e002 | | Load 0x0,0x2 3d5d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3d5e 01d5 | | Execute Vector,Field_Reference 3d5f 01d5 | | Execute Vector,Field_Reference 3d60 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3d61 01cf | | Execute Vector,Slice_Read 3d62 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 3d64 01df | | Execute Vector,Equal 3d65 4801 |H | Short_Literal 0x1 3d66 4808 |H | Short_Literal 0x8 3d67 e002 | | Load 0x0,0x2 3d68 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3d69 e5e6 | | Load 0x2,-0x1a 3d6a e002 | | Load 0x0,0x2 3d6b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3d6c 01d5 | | Execute Vector,Field_Reference 3d6d 01d5 | | Execute Vector,Field_Reference 3d6e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3d6f 01cf | | Execute Vector,Slice_Read 3d70 0092 6425 | d%| Action Push_String_Extended,0x6425 ; "internal" 3d72 01df | | Execute Vector,Equal 3d73 0279 | y | Execute Discrete,And 3d74 6812 |h | Jump_Zero 0x3d87 3d75 e403 | | Load 0x2,0x3 3d76 4801 |H | Short_Literal 0x1 3d77 4800 |H | Short_Literal 0x0 3d78 4801 |H | Short_Literal 0x1 3d79 0092 6586 | e | Action Push_String_Extended,0x6586 ; "PROBLEM_INFO => " 3d7b e41a | | Load 0x2,0x1a 3d7c 01cc | | Execute Vector,Catenate 3d7d 0092 6424 | d$| Action Push_String_Extended,0x6424 ; "Internal" 3d7f 01cc | | Execute Vector,Catenate 3d80 e41a | | Load 0x2,0x1a 3d81 01cc | | Execute Vector,Catenate 3d82 4801 |H | Short_Literal 0x1 3d83 4800 |H | Short_Literal 0x0 3d84 8225 | % | Call 0x1,0x25 3d85 c403 | | Store 0x2,0x3 3d86 783d |x= | Jump 0x3dc4 3d87 e002 | | Load 0x0,0x2 3d88 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3d89 e5f6 | | Load 0x2,-0xa 3d8a e002 | | Load 0x0,0x2 3d8b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3d8c 01d5 | | Execute Vector,Field_Reference 3d8d 01d5 | | Execute Vector,Field_Reference 3d8e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3d8f 0f08 | | Execute_Immediate Equal,0x8 3d90 6821 |h! | Jump_Zero 0x3db2 3d91 4801 |H | Short_Literal 0x1 3d92 4808 |H | Short_Literal 0x8 3d93 e002 | | Load 0x0,0x2 3d94 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3d95 e5f6 | | Load 0x2,-0xa 3d96 e002 | | Load 0x0,0x2 3d97 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3d98 01d5 | | Execute Vector,Field_Reference 3d99 01d5 | | Execute Vector,Field_Reference 3d9a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 3d9b 01cf | | Execute Vector,Slice_Read 3d9c 0092 641d | d | Action Push_String_Extended,0x641d ; "Rational" 3d9e 01df | | Execute Vector,Equal 3d9f 6812 |h | Jump_Zero 0x3db2 3da0 e403 | | Load 0x2,0x3 3da1 4801 |H | Short_Literal 0x1 3da2 4800 |H | Short_Literal 0x0 3da3 4801 |H | Short_Literal 0x1 3da4 0092 6586 | e | Action Push_String_Extended,0x6586 ; "PROBLEM_INFO => " 3da6 e41a | | Load 0x2,0x1a 3da7 01cc | | Execute Vector,Catenate 3da8 0092 6587 | e | Action Push_String_Extended,0x6587 ; "Internal Support Request" 3daa 01cc | | Execute Vector,Catenate 3dab e41a | | Load 0x2,0x1a 3dac 01cc | | Execute Vector,Catenate 3dad 4801 |H | Short_Literal 0x1 3dae 4800 |H | Short_Literal 0x0 3daf 8225 | % | Call 0x1,0x25 3db0 c403 | | Store 0x2,0x3 3db1 7812 |x | Jump 0x3dc4 3db2 e403 | | Load 0x2,0x3 3db3 4801 |H | Short_Literal 0x1 3db4 4800 |H | Short_Literal 0x0 3db5 4801 |H | Short_Literal 0x1 3db6 0092 6586 | e | Action Push_String_Extended,0x6586 ; "PROBLEM_INFO => " 3db8 e41a | | Load 0x2,0x1a 3db9 01cc | | Execute Vector,Catenate 3dba 0092 6588 | e | Action Push_String_Extended,0x6588 ; "Auto Entry from Customer Support" 3dbc 01cc | | Execute Vector,Catenate 3dbd e41a | | Load 0x2,0x1a 3dbe 01cc | | Execute Vector,Catenate 3dbf 4801 |H | Short_Literal 0x1 3dc0 4800 |H | Short_Literal 0x0 3dc1 8225 | % | Call 0x1,0x25 3dc2 c403 | | Store 0x2,0x3 3dc3 7800 |x | Jump 0x3dc4 3dc4 00ce | | Action Pop_Auxiliary 3dc5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3dc6 TRAP_3d38: 3dc6 0007 | | Action Break_Optional 3dc7 0092 6589 | e | Action Push_String_Extended,0x6589 ; " Problem with company,region special processing..." 3dc9 e001 | | Load 0x0,0x1 3dca 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3dcb e001 | | Load 0x0,0x1 3dcc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3dcd 00d8 | | Load_Top At_Offset_0 3dce 0101 | | Execute Exception,Reraise 3dcf 0000 | | .XXX[0x1] 3dd0 ; -------------------------------------------------------------------------------------- 3dd0 ; SUBPROGRAM 3dd0 ; -------------------------------------------------------------------------------------- 3dd0 3dd3 |= | .CONST 0x3dd3 ; Address of begin 3dd1 3df8 |= | .CONST 0x3df8 ; Address of exception handler 3dd2 0001 | | .CONST 0x0001 ; Number of locals 3dd3 BODY_3dd0: 3dd3 INIT_3dd0: 3dd3 e5ea | | Load 0x2,-0x16 3dd4 0c01 | | Execute_Immediate Greater_Equal,0x1 3dd5 6809 |h | Jump_Zero 0x3ddf 3dd6 e403 | | Load 0x2,0x3 3dd7 4801 |H | Short_Literal 0x1 3dd8 4801 |H | Short_Literal 0x1 3dd9 4801 |H | Short_Literal 0x1 3dda 00ea | | Load_Encached Null_String_Cache 3ddb 4801 |H | Short_Literal 0x1 3ddc e5ea | | Load 0x2,-0x16 3ddd 8225 | % | Call 0x1,0x25 3dde c403 | | Store 0x2,0x3 3ddf e5e9 | | Load 0x2,-0x17 3de0 0c01 | | Execute_Immediate Greater_Equal,0x1 3de1 6809 |h | Jump_Zero 0x3deb 3de2 e403 | | Load 0x2,0x3 3de3 4801 |H | Short_Literal 0x1 3de4 4801 |H | Short_Literal 0x1 3de5 4801 |H | Short_Literal 0x1 3de6 00ea | | Load_Encached Null_String_Cache 3de7 4801 |H | Short_Literal 0x1 3de8 e5e9 | | Load 0x2,-0x17 3de9 8225 | % | Call 0x1,0x25 3dea c403 | | Store 0x2,0x3 3deb e5e8 | | Load 0x2,-0x18 3dec 0c01 | | Execute_Immediate Greater_Equal,0x1 3ded 6809 |h | Jump_Zero 0x3df7 3dee e403 | | Load 0x2,0x3 3def 4801 |H | Short_Literal 0x1 3df0 4801 |H | Short_Literal 0x1 3df1 4801 |H | Short_Literal 0x1 3df2 00ea | | Load_Encached Null_String_Cache 3df3 4801 |H | Short_Literal 0x1 3df4 e5e8 | | Load 0x2,-0x18 3df5 8225 | % | Call 0x1,0x25 3df6 c403 | | Store 0x2,0x3 3df7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3df8 TRAP_3dd0: 3df8 0007 | | Action Break_Optional 3df9 0092 658a | e | Action Push_String_Extended,0x658a ; " Problem with summary fields..." 3dfb e001 | | Load 0x0,0x1 3dfc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3dfd e001 | | Load 0x0,0x1 3dfe 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3dff 00d8 | | Load_Top At_Offset_0 3e00 0101 | | Execute Exception,Reraise 3e01 0000 0000 | | .BLANK 0000[0x7] 3e08 ; -------------------------------------------------------------------------------------- 3e08 ; SUBPROGRAM 3e08 ; -------------------------------------------------------------------------------------- 3e08 3e0d |> | .CONST 0x3e0d ; Address of begin 3e09 3e47 |>G | .CONST 0x3e47 ; Address of exception handler 3e0a 0002 | | .CONST 0x0002 ; Number of locals 3e0b INIT_3e08: 3e0b 029f 5af3 | Z | Declare_Subprogram INIT_5af0,For_Call 3e0d BODY_3e08: 3e0d e403 | | Load 0x2,0x3 3e0e e004 | | Load 0x0,0x4 3e0f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 3e10 c403 | | Store 0x2,0x3 3e11 6286 |b | Indirect_Literal Discrete,0x4098,{0x00000000, 0x00008000} 3e12 00ba | | Action Initiate_Delay 3e13 e403 | | Load 0x2,0x3 3e14 00ea | | Load_Encached Null_String_Cache 3e15 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 3e17 e003 | | Load 0x0,0x3 3e18 1819 | | Execute Package,Field_Execute,Field_Number 0x19 3e19 e003 | | Load 0x0,0x3 3e1a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 3e1b 01cc | | Execute Vector,Catenate 3e1c 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 3e1e 01cc | | Execute Vector,Catenate 3e1f e003 | | Load 0x0,0x3 3e20 1819 | | Execute Package,Field_Execute,Field_Number 0x19 3e21 e003 | | Load 0x0,0x3 3e22 181b | | Execute Package,Field_Execute,Field_Number 0x1b 3e23 01cc | | Execute Vector,Catenate 3e24 0092 6535 | e5| Action Push_String_Extended,0x6535 ; "_sims_temp" 3e26 01cc | | Execute Vector,Catenate 3e27 4800 |H | Short_Literal 0x0 3e28 e004 | | Load 0x0,0x4 3e29 1815 | | Execute Package,Field_Execute,Field_Number 0x15 3e2a c403 | | Store 0x2,0x3 3e2b 00cf | | Action Mark_Auxiliary 3e2c 0007 | | Action Break_Optional 3e2d e403 | | Load 0x2,0x3 3e2e e004 | | Load 0x0,0x4 3e2f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 3e30 7010 |p | Jump_Nonzero 0x3e41 3e31 00e3 | | Load_Encached Natural_Cache 3e32 e412 | | Load 0x2,0x12 3e33 e403 | | Load 0x2,0x3 3e34 e004 | | Load 0x0,0x4 3e35 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 3e36 00d1 | | Pop_Control Pop_Count_1 3e37 c413 | | Store 0x2,0x13 3e38 4801 |H | Short_Literal 0x1 3e39 e413 | | Load 0x2,0x13 3e3a e412 | | Load 0x2,0x12 3e3b 01cf | | Execute Vector,Slice_Read 3e3c e402 | | Load 0x2,0x2 3e3d e004 | | Load 0x0,0x4 3e3e 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 3e3f 00c9 | | Action Pop_Auxiliary_Loop 3e40 7fec | | Jump 0x3e2d 3e41 00ce | | Action Pop_Auxiliary 3e42 e403 | | Load 0x2,0x3 3e43 e004 | | Load 0x0,0x4 3e44 1816 | | Execute Package,Field_Execute,Field_Number 0x16 3e45 c403 | | Store 0x2,0x3 3e46 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3e47 TRAP_3e08: 3e47 0007 | | Action Break_Optional 3e48 0092 658b | e | Action Push_String_Extended,0x658b ; "? Problem in generating header portion for extract in ap_internal_transfer..." 3e4a e004 | | Load 0x0,0x4 3e4b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 3e4c 8602 | | Call 0x3,0x2 3e4d 00d8 | | Load_Top At_Offset_0 3e4e 0101 | | Execute Exception,Reraise 3e4f 0000 | | .XXX[0x1] 3e50 ; -------------------------------------------------------------------------------------- 3e50 ; SUBPROGRAM 3e50 ; -------------------------------------------------------------------------------------- 3e50 3e53 |>S | .CONST 0x3e53 ; Address of begin 3e51 3edb |> | .CONST 0x3edb ; Address of exception handler 3e52 0001 | | .CONST 0x0001 ; Number of locals 3e53 BODY_3e50: 3e53 INIT_3e50: 3e53 e402 | | Load 0x2,0x2 3e54 4801 |H | Short_Literal 0x1 3e55 00ea | | Load_Encached Null_String_Cache 3e56 e5fc | | Load 0x2,-0x4 3e57 e5fe | | Load 0x2,-0x2 3e58 e5ff | | Load 0x2,-0x1 3e59 8226 | & | Call 0x1,0x26 3e5a c402 | | Store 0x2,0x2 3e5b e402 | | Load 0x2,0x2 3e5c e004 | | Load 0x0,0x4 3e5d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3e5e 0f01 | | Execute_Immediate Equal,0x1 3e5f 6804 |h | Jump_Zero 0x3e64 3e60 e402 | | Load 0x2,0x2 3e61 e004 | | Load 0x0,0x4 3e62 1816 | | Execute Package,Field_Execute,Field_Number 0x16 3e63 c402 | | Store 0x2,0x2 3e64 4822 |H" | Short_Literal 0x22 3e65 0092 658c | e | Action Push_String_Extended,0x658c ; "Queueing: \x22!users.sjf.sims.sims_lib\x22.Ap_Aa_Internal_Transfer(File_Spec => \x22X" 3e67 e404 | | Load 0x2,0x4 3e68 01cc | | Execute Vector,Catenate 3e69 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 3e6b 01cc | | Execute Vector,Catenate 3e6c e405 | | Load 0x2,0x5 3e6d 01cc | | Execute Vector,Catenate 3e6e 4801 |H | Short_Literal 0x1 3e6f e407 | | Load 0x2,0x7 3e70 e406 | | Load 0x2,0x6 3e71 01cf | | Execute Vector,Slice_Read 3e72 01cc | | Execute Vector,Catenate 3e73 01cb | | Execute Vector,Append 3e74 0092 658d | e | Action Push_String_Extended,0x658d ; ");" 3e76 01cc | | Execute Vector,Catenate 3e77 e004 | | Load 0x0,0x4 3e78 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 3e79 0092 64f7 | d | Action Push_String_Extended,0x64f7 ; "<PROFILE>" 3e7b 00ea | | Load_Encached Null_String_Cache 3e7c 4800 |H | Short_Literal 0x0 3e7d 0092 658e | e | Action Push_String_Extended,0x658e ; "$" 3e7f 4800 |H | Short_Literal 0x0 3e80 4822 |H" | Short_Literal 0x22 3e81 0092 658f | e | Action Push_String_Extended,0x658f ; "\x22!users.sjf.sims.sims_lib\x22.Ap_Aa_Internal_Transfer(File_Spec => \x22X" 3e83 e404 | | Load 0x2,0x4 3e84 01cc | | Execute Vector,Catenate 3e85 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 3e87 01cc | | Execute Vector,Catenate 3e88 e405 | | Load 0x2,0x5 3e89 01cc | | Execute Vector,Catenate 3e8a 4801 |H | Short_Literal 0x1 3e8b e407 | | Load 0x2,0x7 3e8c e406 | | Load 0x2,0x6 3e8d 01cf | | Execute Vector,Slice_Read 3e8e 01cc | | Execute Vector,Catenate 3e8f 01cb | | Execute Vector,Append 3e90 0092 658d | e | Action Push_String_Extended,0x658d ; ");" 3e92 01cc | | Execute Vector,Catenate 3e93 e010 | | Load 0x0,0x10 3e94 1810 | | Execute Package,Field_Execute,Field_Number 0x10 3e95 e5fa | | Load 0x2,-0x6 3e96 0c01 | | Execute_Immediate Greater_Equal,0x1 3e97 6809 |h | Jump_Zero 0x3ea1 3e98 e410 | | Load 0x2,0x10 3e99 e411 | | Load 0x2,0x11 3e9a e002 | | Load 0x0,0x2 3e9b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3e9c e5fa | | Load 0x2,-0x6 3e9d 8255 | U | Call 0x1,0x55 3e9e 00d1 | | Pop_Control Pop_Count_1 3e9f c410 | | Store 0x2,0x10 3ea0 780b |x | Jump 0x3eac 3ea1 e5f9 | | Load 0x2,-0x7 3ea2 0c01 | | Execute_Immediate Greater_Equal,0x1 3ea3 6808 |h | Jump_Zero 0x3eac 3ea4 e410 | | Load 0x2,0x10 3ea5 e411 | | Load 0x2,0x11 3ea6 e002 | | Load 0x0,0x2 3ea7 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 3ea8 e5f9 | | Load 0x2,-0x7 3ea9 8255 | U | Call 0x1,0x55 3eaa 00d1 | | Pop_Control Pop_Count_1 3eab c410 | | Store 0x2,0x10 3eac 4801 |H | Short_Literal 0x1 3ead 4804 |H | Short_Literal 0x4 3eae 0092 6590 | e | Action Push_String_Extended,0x6590 ; "[Report " 3eb0 e5fc | | Load 0x2,-0x4 3eb1 e002 | | Load 0x0,0x2 3eb2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 3eb3 01d5 | | Execute Vector,Field_Reference 3eb4 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 3eb5 01cc | | Execute Vector,Catenate 3eb6 4801 |H | Short_Literal 0x1 3eb7 e410 | | Load 0x2,0x10 3eb8 e411 | | Load 0x2,0x11 3eb9 01cf | | Execute Vector,Slice_Read 3eba 01cc | | Execute Vector,Catenate 3ebb 0092 6591 | e | Action Push_String_Extended,0x6591 ; " forwarded to internal problem report queue.]" 3ebd 01cc | | Execute Vector,Catenate 3ebe e001 | | Load 0x0,0x1 3ebf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3ec0 4801 |H | Short_Literal 0x1 3ec1 4804 |H | Short_Literal 0x4 3ec2 0092 6592 | e | Action Push_String_Extended,0x6592 ; "[ Network transfer started: " 3ec4 e5fd | | Load 0x2,-0x3 3ec5 01cc | | Execute Vector,Catenate 3ec6 0092 6593 | e | Action Push_String_Extended,0x6593 ; ".X" 3ec8 01cc | | Execute Vector,Catenate 3ec9 e404 | | Load 0x2,0x4 3eca 01cc | | Execute Vector,Catenate 3ecb 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 3ecd 01cc | | Execute Vector,Catenate 3ece e405 | | Load 0x2,0x5 3ecf 01cc | | Execute Vector,Catenate 3ed0 4801 |H | Short_Literal 0x1 3ed1 e407 | | Load 0x2,0x7 3ed2 e406 | | Load 0x2,0x6 3ed3 01cf | | Execute Vector,Slice_Read 3ed4 01cc | | Execute Vector,Catenate 3ed5 0092 6594 | e | Action Push_String_Extended,0x6594 ; " ]" 3ed7 01cc | | Execute Vector,Catenate 3ed8 e001 | | Load 0x0,0x1 3ed9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3eda 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3edb TRAP_3e50: 3edb 0007 | | Action Break_Optional 3edc 0092 6595 | e | Action Push_String_Extended,0x6595 ; " Problem with transfer_attached, net queueing, close..." 3ede e001 | | Load 0x0,0x1 3edf 181d | | Execute Package,Field_Execute,Field_Number 0x1d 3ee0 e001 | | Load 0x0,0x1 3ee1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 3ee2 00d8 | | Load_Top At_Offset_0 3ee3 0101 | | Execute Exception,Reraise 3ee4 0000 0000 | | .BLANK 0000[0x4] 3ee8 ; -------------------------------------------------------------------------------------- 3ee8 ; SUBPROGRAM 3ee8 ; -------------------------------------------------------------------------------------- 3ee8 3eeb |> | .CONST 0x3eeb ; Address of begin 3ee9 3f14 |? | .CONST 0x3f14 ; Address of exception handler 3eea 0001 | | .CONST 0x0001 ; Number of locals 3eeb BODY_3ee8: 3eeb INIT_3ee8: 3eeb e405 | | Load 0x2,0x5 3eec 00ea | | Load_Encached Null_String_Cache 3eed 4801 |H | Short_Literal 0x1 3eee e403 | | Load 0x2,0x3 3eef e402 | | Load 0x2,0x2 3ef0 01cf | | Execute Vector,Slice_Read 3ef1 4800 |H | Short_Literal 0x0 3ef2 e004 | | Load 0x0,0x4 3ef3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 3ef4 c405 | | Store 0x2,0x5 3ef5 4800 |H | Short_Literal 0x0 3ef6 4800 |H | Short_Literal 0x0 3ef7 e5fb | | Load 0x2,-0x5 3ef8 e5fc | | Load 0x2,-0x4 3ef9 e5fa | | Load 0x2,-0x6 3efa e405 | | Load 0x2,0x5 3efb 8264 | d | Call 0x1,0x64 3efc e002 | | Load 0x0,0x2 3efd 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 3efe 7010 |p | Jump_Nonzero 0x3f0f 3eff 4800 |H | Short_Literal 0x0 3f00 4801 |H | Short_Literal 0x1 3f01 0092 6596 | e | Action Push_String_Extended,0x6596 ; " [Detail Text included for record: " 3f03 e404 | | Load 0x2,0x4 3f04 01cc | | Execute Vector,Catenate 3f05 4801 |H | Short_Literal 0x1 3f06 e407 | | Load 0x2,0x7 3f07 e406 | | Load 0x2,0x6 3f08 01cf | | Execute Vector,Slice_Read 3f09 01cc | | Execute Vector,Catenate 3f0a 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 3f0c 01cc | | Execute Vector,Catenate 3f0d e001 | | Load 0x0,0x1 3f0e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3f0f e405 | | Load 0x2,0x5 3f10 e004 | | Load 0x0,0x4 3f11 1816 | | Execute Package,Field_Execute,Field_Number 0x16 3f12 c405 | | Store 0x2,0x5 3f13 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3f14 TRAP_3ee8: 3f14 0007 | | Action Break_Optional 3f15 4800 |H | Short_Literal 0x0 3f16 4801 |H | Short_Literal 0x1 3f17 0092 6597 | e | Action Push_String_Extended,0x6597 ; " [Couldn't open or read a detail for this record: " 3f19 e404 | | Load 0x2,0x4 3f1a 01cc | | Execute Vector,Catenate 3f1b 4801 |H | Short_Literal 0x1 3f1c e407 | | Load 0x2,0x7 3f1d e406 | | Load 0x2,0x6 3f1e 01cf | | Execute Vector,Slice_Read 3f1f 01cc | | Execute Vector,Catenate 3f20 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 3f22 01cc | | Execute Vector,Catenate 3f23 e001 | | Load 0x0,0x1 3f24 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 3f25 4501 |E | Exit_Suprogram New_Top_Offset 0x1 3f26 0000 0000 | | .XXX[0x2] 3f28 ; -------------------------------------------------------------------------------------- 3f28 ; SUBPROGRAM 3f28 ; -------------------------------------------------------------------------------------- 3f28 3f65 |?e | .CONST 0x3f65 ; Address of begin 3f29 0004 | | .CONST 0x0004 ; Address of exception handler 3f2a 000f | | .CONST 0x000f ; Number of locals 3f2b INIT_3f28: 3f2b 00e2 | | Load_Encached Integer_Cache 3f2c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 3f2d 00e2 | | Load_Encached Integer_Cache 3f2e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 3f2f 00e2 | | Load_Encached Integer_Cache 3f30 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 3f31 00e2 | | Load_Encached Integer_Cache 3f32 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 3f33 00e2 | | Load_Encached Integer_Cache 3f34 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f35 00e2 | | Load_Encached Integer_Cache 3f36 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f37 4801 |H | Short_Literal 0x1 3f38 4850 |HP | Short_Literal 0x50 3f39 00e9 | | Load_Encached String_Cache 3f3a 0334 | 4 | Declare_Variable Array,With_Constraint 3f3b 4801 |H | Short_Literal 0x1 3f3c 4850 |HP | Short_Literal 0x50 3f3d 00e9 | | Load_Encached String_Cache 3f3e 0334 | 4 | Declare_Variable Array,With_Constraint 3f3f 4850 |HP | Short_Literal 0x50 3f40 4801 |H | Short_Literal 0x1 3f41 4820 |H | Short_Literal 0x20 3f42 e60b | | Load 0x3,0xb 3f43 e609 | | Load 0x3,0x9 3f44 01d6 | | Execute Vector,Field_Write 3f45 3ffb |? | Loop_Increasing 0x3f41 3f46 e608 | | Load 0x3,0x8 3f47 01d4 | | Execute Vector,Structure_Write 3f48 00e2 | | Load_Encached Integer_Cache 3f49 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f4a 00e2 | | Load_Encached Integer_Cache 3f4b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f4c 00e2 | | Load_Encached Integer_Cache 3f4d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f4e 00e2 | | Load_Encached Integer_Cache 3f4f 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 3f50 4801 |H | Short_Literal 0x1 3f51 4850 |HP | Short_Literal 0x50 3f52 00e9 | | Load_Encached String_Cache 3f53 0334 | 4 | Declare_Variable Array,With_Constraint 3f54 4801 |H | Short_Literal 0x1 3f55 4850 |HP | Short_Literal 0x50 3f56 00e9 | | Load_Encached String_Cache 3f57 0334 | 4 | Declare_Variable Array,With_Constraint 3f58 4850 |HP | Short_Literal 0x50 3f59 4801 |H | Short_Literal 0x1 3f5a 4820 |H | Short_Literal 0x20 3f5b e610 | | Load 0x3,0x10 3f5c e60e | | Load 0x3,0xe 3f5d 01d6 | | Execute Vector,Field_Write 3f5e 3ffb |? | Loop_Increasing 0x3f5a 3f5f e60d | | Load 0x3,0xd 3f60 01d4 | | Execute Vector,Structure_Write 3f61 00e2 | | Load_Encached Integer_Cache 3f62 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f63 00e1 | | Load_Encached Boolean_Cache 3f64 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 3f65 BODY_3f28: 3f65 4801 |H | Short_Literal 0x1 3f66 a5f6 | | Store_Unchecked 0x2,-0xa 3f67 e5f7 | | Load 0x2,-0x9 3f68 4801 |H | Short_Literal 0x1 3f69 e5ff | | Load 0x2,-0x1 3f6a e002 | | Load 0x0,0x2 3f6b 189d | | Execute Package,Field_Execute,Field_Number 0x9d 3f6c 00d1 | | Pop_Control Pop_Count_1 3f6d 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 3f6f e5f7 | | Load 0x2,-0x9 3f70 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 3f71 e5f7 | | Load 0x2,-0x9 3f72 e5fe | | Load 0x2,-0x2 3f73 e5ff | | Load 0x2,-0x1 3f74 e002 | | Load 0x0,0x2 3f75 1898 | | Execute Package,Field_Execute,Field_Number 0x98 3f76 00d1 | | Pop_Control Pop_Count_1 3f77 0007 | | Action Break_Optional 3f78 e5fc | | Load 0x2,-0x4 3f79 0f01 | | Execute_Immediate Equal,0x1 3f7a 6826 |h& | Jump_Zero 0x3fa1 3f7b e5fd | | Load 0x2,-0x3 3f7c a602 | | Store_Unchecked 0x3,0x2 3f7d e5fb | | Load 0x2,-0x5 3f7e a60c | | Store_Unchecked 0x3,0xc 3f7f e5f9 | | Load 0x2,-0x7 3f80 a60e | | Store_Unchecked 0x3,0xe 3f81 e002 | | Load 0x0,0x2 3f82 1b20 | | Execute Package,Field_Read,Field_Number 0x20 3f83 e60d | | Load 0x3,0xd 3f84 01d4 | | Execute Vector,Structure_Write 3f85 4801 |H | Short_Literal 0x1 3f86 e5f9 | | Load 0x2,-0x7 3f87 e5fa | | Load 0x2,-0x6 3f88 01cf | | Execute Vector,Slice_Read 3f89 4801 |H | Short_Literal 0x1 3f8a e5f9 | | Load 0x2,-0x7 3f8b e60d | | Load 0x3,0xd 3f8c 01ce | | Execute Vector,Slice_Write 3f8d e60c | | Load 0x3,0xc 3f8e e5f7 | | Load 0x2,-0x9 3f8f 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 3f90 e60e | | Load 0x3,0xe 3f91 e5f7 | | Load 0x2,-0x9 3f92 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 3f93 e002 | | Load 0x0,0x2 3f94 1b20 | | Execute Package,Field_Read,Field_Number 0x20 3f95 e5f7 | | Load 0x2,-0x9 3f96 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 3f97 4801 |H | Short_Literal 0x1 3f98 e60e | | Load 0x3,0xe 3f99 e60d | | Load 0x3,0xd 3f9a 01cf | | Execute Vector,Slice_Read 3f9b 4801 |H | Short_Literal 0x1 3f9c e60e | | Load 0x3,0xe 3f9d e5f7 | | Load 0x2,-0x9 3f9e 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 3f9f 01ce | | Execute Vector,Slice_Write 3fa0 7818 |x | Jump 0x3fb9 3fa1 e5f7 | | Load 0x2,-0x9 3fa2 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 3fa3 0a01 | | Execute_Immediate Plus,0x1 3fa4 0248 | H | Execute Discrete,Check_In_Integer 3fa5 a602 | | Store_Unchecked 0x3,0x2 3fa6 e5f7 | | Load 0x2,-0x9 3fa7 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 3fa8 a60c | | Store_Unchecked 0x3,0xc 3fa9 e5f7 | | Load 0x2,-0x9 3faa 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 3fab a60e | | Store_Unchecked 0x3,0xe 3fac e002 | | Load 0x0,0x2 3fad 1b20 | | Execute Package,Field_Read,Field_Number 0x20 3fae e60d | | Load 0x3,0xd 3faf 01d4 | | Execute Vector,Structure_Write 3fb0 4801 |H | Short_Literal 0x1 3fb1 e60e | | Load 0x3,0xe 3fb2 e5f7 | | Load 0x2,-0x9 3fb3 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 3fb4 01cf | | Execute Vector,Slice_Read 3fb5 4801 |H | Short_Literal 0x1 3fb6 e60e | | Load 0x3,0xe 3fb7 e60d | | Load 0x3,0xd 3fb8 01ce | | Execute Vector,Slice_Write 3fb9 e5f7 | | Load 0x2,-0x9 3fba 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 3fbb 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 3fbd 01df | | Execute Vector,Equal 3fbe 680a |h | Jump_Zero 0x3fc9 3fbf e602 | | Load 0x3,0x2 3fc0 e002 | | Load 0x0,0x2 3fc1 1b75 | u | Execute Package,Field_Read,Field_Number 0x75 3fc2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 3fc3 025b | [ | Execute Discrete,Check_In_Type 3fc4 e5f7 | | Load 0x2,-0x9 3fc5 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 3fc6 e002 | | Load 0x0,0x2 3fc7 1b75 | u | Execute Package,Field_Read,Field_Number 0x75 3fc8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 3fc9 e5f7 | | Load 0x2,-0x9 3fca 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 3fcb 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 3fcd 01df | | Execute Vector,Equal 3fce 6803 |h | Jump_Zero 0x3fd2 3fcf e5f7 | | Load 0x2,-0x9 3fd0 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 3fd1 a603 | | Store_Unchecked 0x3,0x3 3fd2 4800 |H | Short_Literal 0x0 3fd3 a60a | | Store_Unchecked 0x3,0xa 3fd4 4800 |H | Short_Literal 0x0 3fd5 a60b | | Store_Unchecked 0x3,0xb 3fd6 00cf | | Action Mark_Auxiliary 3fd7 e5f7 | | Load 0x2,-0x9 3fd8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 3fd9 e5f7 | | Load 0x2,-0x9 3fda 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 3fdb 0263 | c | Execute Discrete,Above_Bound 3fdc 701f |p | Jump_Nonzero 0x3ffc 3fdd e002 | | Load 0x0,0x2 3fde 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 3fdf e612 | | Load 0x3,0x12 3fe0 e002 | | Load 0x0,0x2 3fe1 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3fe2 01d5 | | Execute Vector,Field_Reference 3fe3 01d5 | | Execute Vector,Field_Reference 3fe4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 3fe5 6814 |h | Jump_Zero 0x3ffa 3fe6 e60a | | Load 0x3,0xa 3fe7 0a01 | | Execute_Immediate Plus,0x1 3fe8 0248 | H | Execute Discrete,Check_In_Integer 3fe9 a60a | | Store_Unchecked 0x3,0xa 3fea e002 | | Load 0x0,0x2 3feb 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 3fec e612 | | Load 0x3,0x12 3fed e002 | | Load 0x0,0x2 3fee 1b90 | | Execute Package,Field_Read,Field_Number 0x90 3fef 01d5 | | Execute Vector,Field_Reference 3ff0 01d5 | | Execute Vector,Field_Reference 3ff1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 3ff2 0274 | t | Execute Discrete,Absolute_Value 3ff3 e60c | | Load 0x3,0xc 3ff4 027f | | Execute Discrete,Equal 3ff5 6804 |h | Jump_Zero 0x3ffa 3ff6 e60a | | Load 0x3,0xa 3ff7 a60b | | Store_Unchecked 0x3,0xb 3ff8 00d2 | | Pop_Control Pop_Count_2 3ff9 7802 |x | Jump 0x3ffc 3ffa 00c8 | | Action Pop_Auxiliary_Range 3ffb 3fe1 |? | Loop_Increasing 0x3fdd 3ffc 00ce | | Action Pop_Auxiliary 3ffd e60b | | Load 0x3,0xb 3ffe 7004 |p | Jump_Nonzero 0x4003 3fff 0092 6598 | e | Action Push_String_Extended,0x6598 ; "flder" 4001 e5f7 | | Load 0x2,-0x9 4002 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 4003 0007 | | Action Break_Optional 4004 4801 |H | Short_Literal 0x1 4005 a5f6 | | Store_Unchecked 0x2,-0xa 4006 e5f8 | | Load 0x2,-0x8 4007 0f01 | | Execute_Immediate Equal,0x1 4008 6805 |h | Jump_Zero 0x400e 4009 e602 | | Load 0x3,0x2 400a a605 | | Store_Unchecked 0x3,0x5 400b e603 | | Load 0x3,0x3 400c a604 | | Store_Unchecked 0x3,0x4 400d 7804 |x | Jump 0x4012 400e e602 | | Load 0x3,0x2 400f a604 | | Store_Unchecked 0x3,0x4 4010 e603 | | Load 0x3,0x3 4011 a605 | | Store_Unchecked 0x3,0x5 4012 e5f7 | | Load 0x2,-0x9 4013 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 4014 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 4016 01df | | Execute Vector,Equal 4017 6879 |hy | Jump_Zero 0x4091 4018 4800 |H | Short_Literal 0x0 4019 4804 |H | Short_Literal 0x4 401a 0092 6599 | e | Action Push_String_Extended,0x6599 ; "Searching..." 401c e001 | | Load 0x0,0x1 401d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 401e 00cf | | Action Mark_Auxiliary 401f e605 | | Load 0x3,0x5 4020 e604 | | Load 0x3,0x4 4021 0263 | c | Execute Discrete,Above_Bound 4022 706d |pm | Jump_Nonzero 0x4090 4023 e5f8 | | Load 0x2,-0x8 4024 7009 |p | Jump_Nonzero 0x402e 4025 e002 | | Load 0x0,0x2 4026 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 4027 e5f7 | | Load 0x2,-0x9 4028 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 4029 e002 | | Load 0x0,0x2 402a 1b75 | u | Execute Package,Field_Read,Field_Number 0x75 402b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 402c 00d1 | | Pop_Control Pop_Count_1 402d 780d |x | Jump 0x403b 402e e002 | | Load 0x0,0x2 402f 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 4030 e612 | | Load 0x3,0x12 4031 e002 | | Load 0x0,0x2 4032 1b75 | u | Execute Package,Field_Read,Field_Number 0x75 4033 1b13 | | Execute Package,Field_Read,Field_Number 0x13 4034 025b | [ | Execute Discrete,Check_In_Type 4035 e5f7 | | Load 0x2,-0x9 4036 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 4037 e002 | | Load 0x0,0x2 4038 1b75 | u | Execute Package,Field_Read,Field_Number 0x75 4039 181e | | Execute Package,Field_Execute,Field_Number 0x1e 403a 00d1 | | Pop_Control Pop_Count_1 403b 00d8 | | Load_Top At_Offset_0 403c e002 | | Load 0x0,0x2 403d 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 403e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 403f 027f | | Execute Discrete,Equal 4040 684d |hM | Jump_Zero 0x408e 4041 4800 |H | Short_Literal 0x0 4042 a606 | | Store_Unchecked 0x3,0x6 4043 e002 | | Load 0x0,0x2 4044 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4045 e608 | | Load 0x3,0x8 4046 01d4 | | Execute Vector,Structure_Write 4047 e60b | | Load 0x3,0xb 4048 e002 | | Load 0x0,0x2 4049 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 404a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 404b 01d7 | | Execute Vector,Field_Read 404c a607 | | Store_Unchecked 0x3,0x7 404d e60b | | Load 0x3,0xb 404e 0c02 | | Execute_Immediate Greater_Equal,0x2 404f 6808 |h | Jump_Zero 0x4058 4050 e60b | | Load 0x3,0xb 4051 0aff | | Execute_Immediate Plus,-0x1 4052 0248 | H | Execute Discrete,Check_In_Integer 4053 e002 | | Load 0x0,0x2 4054 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 4055 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 4056 01d7 | | Execute Vector,Field_Read 4057 a606 | | Store_Unchecked 0x3,0x6 4058 e606 | | Load 0x3,0x6 4059 0a01 | | Execute_Immediate Plus,0x1 405a 0248 | H | Execute Discrete,Check_In_Integer 405b a606 | | Store_Unchecked 0x3,0x6 405c e607 | | Load 0x3,0x7 405d e606 | | Load 0x3,0x6 405e 0272 | r | Execute Discrete,Minus 405f 0a01 | | Execute_Immediate Plus,0x1 4060 0248 | H | Execute Discrete,Check_In_Integer 4061 a609 | | Store_Unchecked 0x3,0x9 4062 e606 | | Load 0x3,0x6 4063 e607 | | Load 0x3,0x7 4064 e002 | | Load 0x0,0x2 4065 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 4066 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4067 01cf | | Execute Vector,Slice_Read 4068 4801 |H | Short_Literal 0x1 4069 e609 | | Load 0x3,0x9 406a e608 | | Load 0x3,0x8 406b 01ce | | Execute Vector,Slice_Write 406c 00e1 | | Load_Encached Boolean_Cache 406d 4800 |H | Short_Literal 0x0 406e e609 | | Load 0x3,0x9 406f 4801 |H | Short_Literal 0x1 4070 e609 | | Load 0x3,0x9 4071 e608 | | Load 0x3,0x8 4072 01cf | | Execute Vector,Slice_Read 4073 e60e | | Load 0x3,0xe 4074 4801 |H | Short_Literal 0x1 4075 e60e | | Load 0x3,0xe 4076 e60d | | Load 0x3,0xd 4077 01cf | | Execute Vector,Slice_Read 4078 e001 | | Load 0x0,0x1 4079 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 407a c60f | | Store 0x3,0xf 407b e60f | | Load 0x3,0xf 407c 0f01 | | Execute_Immediate Equal,0x1 407d 6810 |h | Jump_Zero 0x408e 407e 4800 |H | Short_Literal 0x0 407f a5f6 | | Store_Unchecked 0x2,-0xa 4080 00d8 | | Load_Top At_Offset_0 4081 e5f7 | | Load 0x2,-0x9 4082 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 4083 0092 659a | e | Action Push_String_Extended,0x659a ; "Found #" 4085 e001 | | Load 0x0,0x1 4086 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4087 00d8 | | Load_Top At_Offset_0 4088 e001 | | Load 0x0,0x1 4089 181e | | Execute Package,Field_Execute,Field_Number 0x1e 408a e001 | | Load 0x0,0x1 408b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 408c 00d2 | | Pop_Control Pop_Count_2 408d 7802 |x | Jump 0x4090 408e 00c8 | | Action Pop_Auxiliary_Range 408f 3f93 |? | Loop_Increasing 0x4023 4090 00ce | | Action Pop_Auxiliary 4091 e5f7 | | Load 0x2,-0x9 4092 e5ff | | Load 0x2,-0x1 4093 e002 | | Load 0x0,0x2 4094 1899 | | Execute Package,Field_Execute,Field_Number 0x99 4095 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4096 0000 0000 | | .XXX[0x2] 4098 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 409c 0000 0000 | | .BLANK 0000[0x4] 40a0 ; -------------------------------------------------------------------------------------- 40a0 ; SUBPROGRAM 40a0 ; -------------------------------------------------------------------------------------- 40a0 40b1 |@ | .CONST 0x40b1 ; Address of begin 40a1 0004 | | .CONST 0x0004 ; Address of exception handler 40a2 0005 | | .CONST 0x0005 ; Number of locals 40a3 INIT_40a0: 40a3 00e2 | | Load_Encached Integer_Cache 40a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 40a5 00e2 | | Load_Encached Integer_Cache 40a6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 40a7 4801 |H | Short_Literal 0x1 40a8 4850 |HP | Short_Literal 0x50 40a9 00e9 | | Load_Encached String_Cache 40aa 0334 | 4 | Declare_Variable Array,With_Constraint 40ab e002 | | Load 0x0,0x2 40ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20 40ad e604 | | Load 0x3,0x4 40ae 01d4 | | Execute Vector,Structure_Write 40af 00e2 | | Load_Encached Integer_Cache 40b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 40b1 BODY_40a0: 40b1 e002 | | Load 0x0,0x2 40b2 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 40b3 e002 | | Load 0x0,0x2 40b4 1a3a | : | Execute Package,Field_Write,Field_Number 0x3a 40b5 4800 |H | Short_Literal 0x0 40b6 a602 | | Store_Unchecked 0x3,0x2 40b7 4800 |H | Short_Literal 0x0 40b8 a603 | | Store_Unchecked 0x3,0x3 40b9 e002 | | Load 0x0,0x2 40ba 1b20 | | Execute Package,Field_Read,Field_Number 0x20 40bb e604 | | Load 0x3,0x4 40bc 01d4 | | Execute Vector,Structure_Write 40bd 4800 |H | Short_Literal 0x0 40be a605 | | Store_Unchecked 0x3,0x5 40bf 00cf | | Action Mark_Auxiliary 40c0 e5fe | | Load 0x2,-0x2 40c1 e5ff | | Load 0x2,-0x1 40c2 0263 | c | Execute Discrete,Above_Bound 40c3 703b |p; | Jump_Nonzero 0x40ff 40c4 e002 | | Load 0x0,0x2 40c5 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 40c6 e608 | | Load 0x3,0x8 40c7 e002 | | Load 0x0,0x2 40c8 1b90 | | Execute Package,Field_Read,Field_Number 0x90 40c9 01d5 | | Execute Vector,Field_Reference 40ca 01d5 | | Execute Vector,Field_Reference 40cb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 40cc 6830 |h0 | Jump_Zero 0x40fd 40cd e5fd | | Load 0x2,-0x3 40ce e608 | | Load 0x3,0x8 40cf e002 | | Load 0x0,0x2 40d0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 40d1 01d5 | | Execute Vector,Field_Reference 40d2 01d5 | | Execute Vector,Field_Reference 40d3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 40d4 a603 | | Store_Unchecked 0x3,0x3 40d5 e5fd | | Load 0x2,-0x3 40d6 e608 | | Load 0x3,0x8 40d7 e002 | | Load 0x0,0x2 40d8 1b90 | | Execute Package,Field_Read,Field_Number 0x90 40d9 01d5 | | Execute Vector,Field_Reference 40da 01d5 | | Execute Vector,Field_Reference 40db 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 40dc e604 | | Load 0x3,0x4 40dd 01d4 | | Execute Vector,Structure_Write 40de 4801 |H | Short_Literal 0x1 40df e603 | | Load 0x3,0x3 40e0 e604 | | Load 0x3,0x4 40e1 01cf | | Execute Vector,Slice_Read 40e2 e602 | | Load 0x3,0x2 40e3 0a01 | | Execute_Immediate Plus,0x1 40e4 0248 | H | Execute Discrete,Check_In_Integer 40e5 e602 | | Load 0x3,0x2 40e6 e603 | | Load 0x3,0x3 40e7 0273 | s | Execute Discrete,Plus 40e8 0248 | H | Execute Discrete,Check_In_Integer 40e9 e002 | | Load 0x0,0x2 40ea 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 40eb 01ce | | Execute Vector,Slice_Write 40ec e602 | | Load 0x3,0x2 40ed e603 | | Load 0x3,0x3 40ee 0273 | s | Execute Discrete,Plus 40ef 0248 | H | Execute Discrete,Check_In_Integer 40f0 a602 | | Store_Unchecked 0x3,0x2 40f1 e605 | | Load 0x3,0x5 40f2 0a01 | | Execute_Immediate Plus,0x1 40f3 0248 | H | Execute Discrete,Check_In_Integer 40f4 a605 | | Store_Unchecked 0x3,0x5 40f5 e602 | | Load 0x3,0x2 40f6 e002 | | Load 0x0,0x2 40f7 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 40f8 025b | [ | Execute Discrete,Check_In_Type 40f9 e605 | | Load 0x3,0x5 40fa e002 | | Load 0x0,0x2 40fb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 40fc 01d6 | | Execute Vector,Field_Write 40fd 00c8 | | Action Pop_Auxiliary_Range 40fe 3fc5 |? | Loop_Increasing 0x40c4 40ff 00ce | | Action Pop_Auxiliary 4100 4800 |H | Short_Literal 0x0 4101 e605 | | Load 0x3,0x5 4102 0a01 | | Execute_Immediate Plus,0x1 4103 0248 | H | Execute Discrete,Check_In_Integer 4104 e002 | | Load 0x0,0x2 4105 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 4106 01d6 | | Execute Vector,Field_Write 4107 00d8 | | Load_Top At_Offset_0 4108 e5fc | | Load 0x2,-0x4 4109 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 410a e002 | | Load 0x0,0x2 410b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 410c e5fc | | Load 0x2,-0x4 410d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 410e e002 | | Load 0x0,0x2 410f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 4110 e5fc | | Load 0x2,-0x4 4111 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 4112 e602 | | Load 0x3,0x2 4113 a5fb | | Store_Unchecked 0x2,-0x5 4114 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4115 0000 0000 | | .XXX[0x3] 4117 0000 | | 4118 ; -------------------------------------------------------------------------------------- 4118 ; SUBPROGRAM 4118 ; -------------------------------------------------------------------------------------- 4118 412b |A+ | .CONST 0x412b ; Address of begin 4119 0004 | | .CONST 0x0004 ; Address of exception handler 411a 0006 | | .CONST 0x0006 ; Number of locals 411b INIT_4118: 411b 00e2 | | Load_Encached Integer_Cache 411c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 411d 00e2 | | Load_Encached Integer_Cache 411e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 411f 00e2 | | Load_Encached Integer_Cache 4120 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4121 4801 |H | Short_Literal 0x1 4122 4850 |HP | Short_Literal 0x50 4123 00e9 | | Load_Encached String_Cache 4124 0334 | 4 | Declare_Variable Array,With_Constraint 4125 e002 | | Load 0x0,0x2 4126 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4127 e605 | | Load 0x3,0x5 4128 01d4 | | Execute Vector,Structure_Write 4129 00e2 | | Load_Encached Integer_Cache 412a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 412b BODY_4118: 412b 4800 |H | Short_Literal 0x0 412c e002 | | Load 0x0,0x2 412d 1a3c | < | Execute Package,Field_Write,Field_Number 0x3c 412e 4800 |H | Short_Literal 0x0 412f a602 | | Store_Unchecked 0x3,0x2 4130 4800 |H | Short_Literal 0x0 4131 a604 | | Store_Unchecked 0x3,0x4 4132 e002 | | Load 0x0,0x2 4133 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4134 e605 | | Load 0x3,0x5 4135 01d4 | | Execute Vector,Structure_Write 4136 e5fc | | Load 0x2,-0x4 4137 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4138 e002 | | Load 0x0,0x2 4139 1a3a | : | Execute Package,Field_Write,Field_Number 0x3a 413a e5fc | | Load 0x2,-0x4 413b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 413c e002 | | Load 0x0,0x2 413d 1a38 | 8 | Execute Package,Field_Write,Field_Number 0x38 413e e5fc | | Load 0x2,-0x4 413f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 4140 a606 | | Store_Unchecked 0x3,0x6 4141 00d8 | | Load_Top At_Offset_0 4142 e002 | | Load 0x0,0x2 4143 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 4144 01d7 | | Execute Vector,Field_Read 4145 a5fb | | Store_Unchecked 0x2,-0x5 4146 4800 |H | Short_Literal 0x0 4147 a606 | | Store_Unchecked 0x3,0x6 4148 00cf | | Action Mark_Auxiliary 4149 e5fe | | Load 0x2,-0x2 414a e5ff | | Load 0x2,-0x1 414b 0263 | c | Execute Discrete,Above_Bound 414c 7057 |pW | Jump_Nonzero 0x41a4 414d e002 | | Load 0x0,0x2 414e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 414f e609 | | Load 0x3,0x9 4150 e002 | | Load 0x0,0x2 4151 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4152 01d5 | | Execute Vector,Field_Reference 4153 01d5 | | Execute Vector,Field_Reference 4154 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 4155 684c |hL | Jump_Zero 0x41a2 4156 e606 | | Load 0x3,0x6 4157 e5fc | | Load 0x2,-0x4 4158 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 4159 027c | | | Execute Discrete,Less 415a 6830 |h0 | Jump_Zero 0x418b 415b e606 | | Load 0x3,0x6 415c 0a01 | | Execute_Immediate Plus,0x1 415d 0248 | H | Execute Discrete,Check_In_Integer 415e a606 | | Store_Unchecked 0x3,0x6 415f e606 | | Load 0x3,0x6 4160 e002 | | Load 0x0,0x2 4161 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 4162 01d7 | | Execute Vector,Field_Read 4163 a602 | | Store_Unchecked 0x3,0x2 4164 e602 | | Load 0x3,0x2 4165 e603 | | Load 0x3,0x3 4166 0272 | r | Execute Discrete,Minus 4167 0248 | H | Execute Discrete,Check_In_Integer 4168 a604 | | Store_Unchecked 0x3,0x4 4169 e604 | | Load 0x3,0x4 416a e5fd | | Load 0x2,-0x3 416b e609 | | Load 0x3,0x9 416c e002 | | Load 0x0,0x2 416d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 416e 01d5 | | Execute Vector,Field_Reference 416f 01d5 | | Execute Vector,Field_Reference 4170 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 4171 e002 | | Load 0x0,0x2 4172 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4173 e605 | | Load 0x3,0x5 4174 01d4 | | Execute Vector,Structure_Write 4175 e603 | | Load 0x3,0x3 4176 0a01 | | Execute_Immediate Plus,0x1 4177 0248 | H | Execute Discrete,Check_In_Integer 4178 e602 | | Load 0x3,0x2 4179 e002 | | Load 0x0,0x2 417a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 417b 01cf | | Execute Vector,Slice_Read 417c 4801 |H | Short_Literal 0x1 417d e604 | | Load 0x3,0x4 417e e605 | | Load 0x3,0x5 417f 01ce | | Execute Vector,Slice_Write 4180 e605 | | Load 0x3,0x5 4181 e5fd | | Load 0x2,-0x3 4182 e609 | | Load 0x3,0x9 4183 e002 | | Load 0x0,0x2 4184 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4185 01d5 | | Execute Vector,Field_Reference 4186 01d5 | | Execute Vector,Field_Reference 4187 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 4188 e602 | | Load 0x3,0x2 4189 a603 | | Store_Unchecked 0x3,0x3 418a 7817 |x | Jump 0x41a2 418b 4800 |H | Short_Literal 0x0 418c e5fd | | Load 0x2,-0x3 418d e609 | | Load 0x3,0x9 418e e002 | | Load 0x0,0x2 418f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4190 01d5 | | Execute Vector,Field_Reference 4191 01d5 | | Execute Vector,Field_Reference 4192 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 4193 4801 |H | Short_Literal 0x1 4194 4850 |HP | Short_Literal 0x50 4195 e002 | | Load 0x0,0x2 4196 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4197 01cf | | Execute Vector,Slice_Read 4198 4801 |H | Short_Literal 0x1 4199 4850 |HP | Short_Literal 0x50 419a e5fd | | Load 0x2,-0x3 419b e609 | | Load 0x3,0x9 419c e002 | | Load 0x0,0x2 419d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 419e 01d7 | | Execute Vector,Field_Read 419f 01d7 | | Execute Vector,Field_Read 41a0 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 41a1 01ce | | Execute Vector,Slice_Write 41a2 00c8 | | Action Pop_Auxiliary_Range 41a3 3fa9 |? | Loop_Increasing 0x414d 41a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 41a5 0000 0000 | | .XXX[0x3] 41a7 0000 | | 41a8 ; -------------------------------------------------------------------------------------- 41a8 ; SUBPROGRAM 41a8 ; -------------------------------------------------------------------------------------- 41a8 41b5 |A | .CONST 0x41b5 ; Address of begin 41a9 41d5 |A | .CONST 0x41d5 ; Address of exception handler 41aa 0005 | | .CONST 0x0005 ; Number of locals 41ab INIT_41a8: 41ab 00e2 | | Load_Encached Integer_Cache 41ac 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 41ad 4801 |H | Short_Literal 0x1 41ae 480a |H | Short_Literal 0xa 41af 00e9 | | Load_Encached String_Cache 41b0 0334 | 4 | Declare_Variable Array,With_Constraint 41b1 00e1 | | Load_Encached Boolean_Cache 41b2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 41b3 029f 5b03 | [ | Declare_Subprogram INIT_5b00,For_Call 41b5 BODY_41a8: 41b5 4801 |H | Short_Literal 0x1 41b6 e002 | | Load 0x0,0x2 41b7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 41b8 e002 | | Load 0x0,0x2 41b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 41ba 01cf | | Execute Vector,Slice_Read 41bb 0092 659b | e | Action Push_String_Extended,0x659b ; "sims_log" 41bd 01cc | | Execute Vector,Catenate 41be 4801 |H | Short_Literal 0x1 41bf 822b | + | Call 0x1,0x2b 41c0 4800 |H | Short_Literal 0x0 41c1 a604 | | Store_Unchecked 0x3,0x4 41c2 00cf | | Action Mark_Auxiliary 41c3 0007 | | Action Break_Optional 41c4 8605 | | Call 0x3,0x5 41c5 00c9 | | Action Pop_Auxiliary_Loop 41c6 7ffd | | Jump 0x41c4 41c7 00ce | | Action Pop_Auxiliary 41c8 e002 | | Load 0x0,0x2 41c9 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 41ca e004 | | Load 0x0,0x4 41cb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 41cc e002 | | Load 0x0,0x2 41cd 1a7e | ~ | Execute Package,Field_Write,Field_Number 0x7e 41ce 4800 |H | Short_Literal 0x0 41cf 4802 |H | Short_Literal 0x2 41d0 0092 659c | e | Action Push_String_Extended,0x659c ; "Any reports or log can be found as SIMS log files in your user area." 41d2 e001 | | Load 0x0,0x1 41d3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 41d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 41d5 TRAP_41a8: 41d5 0007 | | Action Break_Optional 41d6 4801 |H | Short_Literal 0x1 41d7 4804 |H | Short_Literal 0x4 41d8 0092 659d | e | Action Push_String_Extended,0x659d ; "Exception in ap_process_top_menu, Unable to close log file, other user active." 41da e001 | | Load 0x0,0x1 41db 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 41dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 41dd 0000 0000 | | .XXX[0x3] 41df 0000 | | 41e0 ; -------------------------------------------------------------------------------------- 41e0 ; SUBPROGRAM 41e0 ; -------------------------------------------------------------------------------------- 41e0 41ef |A | .CONST 0x41ef ; Address of begin 41e1 0004 | | .CONST 0x0004 ; Address of exception handler 41e2 0004 | | .CONST 0x0004 ; Number of locals 41e3 INIT_41e0: 41e3 4801 |H | Short_Literal 0x1 41e4 4801 |H | Short_Literal 0x1 41e5 00e9 | | Load_Encached String_Cache 41e6 0334 | 4 | Declare_Variable Array,With_Constraint 41e7 51ec |Q | Indirect_Literal Any,0x43d4,{0x5f202020, 0x20202020} 41e8 4801 |H | Short_Literal 0x1 41e9 4808 |H | Short_Literal 0x8 41ea 00e9 | | Load_Encached String_Cache 41eb 0334 | 4 | Declare_Variable Array,With_Constraint 41ec 51eb |Q | Indirect_Literal Any,0x43d8,{0x79792d6d, 0x6d2d6464} 41ed 00e2 | | Load_Encached Integer_Cache 41ee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 41ef BODY_41e0: 41ef 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 41f1 e602 | | Load 0x3,0x2 41f2 01d4 | | Execute Vector,Structure_Write 41f3 e603 | | Load 0x3,0x3 41f4 e001 | | Load 0x0,0x1 41f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 41f6 00d1 | | Pop_Control Pop_Count_1 41f7 4808 |H | Short_Literal 0x8 41f8 a604 | | Store_Unchecked 0x3,0x4 41f9 e603 | | Load 0x3,0x3 41fa 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 41fc 0092 64cf | d | Action Push_String_Extended,0x64cf ; "-" 41fe e604 | | Load 0x3,0x4 41ff e001 | | Load 0x0,0x1 4200 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 4201 00d1 | | Pop_Control Pop_Count_1 4202 e5ff | | Load 0x2,-0x1 4203 700e |p | Jump_Nonzero 0x4212 4204 e002 | | Load 0x0,0x2 4205 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 4206 00ea | | Load_Encached Null_String_Cache 4207 e5fe | | Load 0x2,-0x2 4208 e602 | | Load 0x3,0x2 4209 01cc | | Execute Vector,Catenate 420a e603 | | Load 0x3,0x3 420b 01cc | | Execute Vector,Catenate 420c 4801 |H | Short_Literal 0x1 420d e004 | | Load 0x0,0x4 420e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 420f e002 | | Load 0x0,0x2 4210 1a7e | ~ | Execute Package,Field_Write,Field_Number 0x7e 4211 7809 |x | Jump 0x421b 4212 e002 | | Load 0x0,0x2 4213 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 4214 00ea | | Load_Encached Null_String_Cache 4215 e5fe | | Load 0x2,-0x2 4216 4801 |H | Short_Literal 0x1 4217 e004 | | Load 0x0,0x4 4218 1814 | | Execute Package,Field_Execute,Field_Number 0x14 4219 e002 | | Load 0x0,0x2 421a 1a7e | ~ | Execute Package,Field_Write,Field_Number 0x7e 421b 4800 |H | Short_Literal 0x0 421c e002 | | Load 0x0,0x2 421d 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 421e e004 | | Load 0x0,0x4 421f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 4220 4800 |H | Short_Literal 0x0 4221 e002 | | Load 0x0,0x2 4222 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 4223 e004 | | Load 0x0,0x4 4224 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4225 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4226 0000 0000 | | .XXX[0x2] 4228 ; -------------------------------------------------------------------------------------- 4228 ; SUBPROGRAM 4228 ; -------------------------------------------------------------------------------------- 4228 424d |BM | .CONST 0x424d ; Address of begin 4229 0004 | | .CONST 0x0004 ; Address of exception handler 422a 0011 | | .CONST 0x0011 ; Number of locals 422b INIT_4228: 422b 00e2 | | Load_Encached Integer_Cache 422c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 422d 00e2 | | Load_Encached Integer_Cache 422e 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 422f 00e2 | | Load_Encached Integer_Cache 4230 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4231 00e2 | | Load_Encached Integer_Cache 4232 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4233 00e2 | | Load_Encached Integer_Cache 4234 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4235 00e2 | | Load_Encached Integer_Cache 4236 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4237 00e2 | | Load_Encached Integer_Cache 4238 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4239 00e2 | | Load_Encached Integer_Cache 423a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 423b 00e2 | | Load_Encached Integer_Cache 423c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 423d 00e2 | | Load_Encached Integer_Cache 423e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 423f 4801 |H | Short_Literal 0x1 4240 4850 |HP | Short_Literal 0x50 4241 00e9 | | Load_Encached String_Cache 4242 0334 | 4 | Declare_Variable Array,With_Constraint 4243 00e2 | | Load_Encached Integer_Cache 4244 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4245 e002 | | Load 0x0,0x2 4246 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 4247 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4248 00e2 | | Load_Encached Integer_Cache 4249 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 424a 00e1 | | Load_Encached Boolean_Cache 424b 029f 5beb | [ | Declare_Subprogram INIT_5be8,For_Call 424d BODY_4228: 424d 00cf | | Action Mark_Auxiliary 424e 0007 | | Action Break_Optional 424f 8611 | | Call 0x3,0x11 4250 00c9 | | Action Pop_Auxiliary_Loop 4251 7ffd | | Jump 0x424f 4252 0000 0000 | | .BLANK 0000[0x6] 4258 ; -------------------------------------------------------------------------------------- 4258 ; SUBPROGRAM 4258 ; -------------------------------------------------------------------------------------- 4258 425b |B[ | .CONST 0x425b ; Address of begin 4259 4269 |Bi | .CONST 0x4269 ; Address of exception handler 425a 0001 | | .CONST 0x0001 ; Number of locals 425b BODY_4258: 425b INIT_4258: 425b 00e4 | | Load_Encached Positive_Cache 425c e001 | | Load 0x0,0x1 425d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 425e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 425f 4801 |H | Short_Literal 0x1 4260 e404 | | Load 0x2,0x4 4261 e403 | | Load 0x2,0x3 4262 01cf | | Execute Vector,Slice_Read 4263 e001 | | Load 0x0,0x1 4264 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4265 1816 | | Execute Package,Field_Execute,Field_Number 0x16 4266 c402 | | Store 0x2,0x2 4267 c405 | | Store 0x2,0x5 4268 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4269 TRAP_4258: 4269 0007 | | Action Break_Optional 426a 4801 |H | Short_Literal 0x1 426b 4804 |H | Short_Literal 0x4 426c 0092 659e | e | Action Push_String_Extended,0x659e ; "Error finding 2nd detail, 1st detail had bad index for it." 426e e001 | | Load 0x0,0x1 426f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4270 e001 | | Load 0x0,0x1 4271 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 4272 00cc | | Action Pop_Block 4273 450e |E | Exit_Suprogram New_Top_Offset 0xe 4274 0000 0000 | | .BLANK 0000[0x4] 4278 ; -------------------------------------------------------------------------------------- 4278 ; SUBPROGRAM 4278 ; -------------------------------------------------------------------------------------- 4278 427b |B{ | .CONST 0x427b ; Address of begin 4279 4289 |B | .CONST 0x4289 ; Address of exception handler 427a 0001 | | .CONST 0x0001 ; Number of locals 427b BODY_4278: 427b INIT_4278: 427b 00e4 | | Load_Encached Positive_Cache 427c e001 | | Load 0x0,0x1 427d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 427e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 427f 4801 |H | Short_Literal 0x1 4280 e404 | | Load 0x2,0x4 4281 e403 | | Load 0x2,0x3 4282 01cf | | Execute Vector,Slice_Read 4283 e001 | | Load 0x0,0x1 4284 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4285 1816 | | Execute Package,Field_Execute,Field_Number 0x16 4286 c402 | | Store 0x2,0x2 4287 c406 | | Store 0x2,0x6 4288 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4289 TRAP_4278: 4289 0007 | | Action Break_Optional 428a 4801 |H | Short_Literal 0x1 428b 4804 |H | Short_Literal 0x4 428c 0092 659e | e | Action Push_String_Extended,0x659e ; "Error finding 2nd detail, 1st detail had bad index for it." 428e e001 | | Load 0x0,0x1 428f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4290 e001 | | Load 0x0,0x1 4291 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 4292 00cc | | Action Pop_Block 4293 450d |E | Exit_Suprogram New_Top_Offset 0xd 4294 0000 0000 | | .BLANK 0000[0x4] 4298 ; -------------------------------------------------------------------------------------- 4298 ; SUBPROGRAM 4298 ; -------------------------------------------------------------------------------------- 4298 42a7 |B | .CONST 0x42a7 ; Address of begin 4299 0004 | | .CONST 0x0004 ; Address of exception handler 429a 0006 | | .CONST 0x0006 ; Number of locals 429b INIT_4298: 429b 4801 |H | Short_Literal 0x1 429c 4850 |HP | Short_Literal 0x50 429d 00e9 | | Load_Encached String_Cache 429e 0334 | 4 | Declare_Variable Array,With_Constraint 429f 00e2 | | Load_Encached Integer_Cache 42a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42a1 00e2 | | Load_Encached Integer_Cache 42a2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42a3 00e2 | | Load_Encached Integer_Cache 42a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42a5 029f 5ef3 | ^ | Declare_Subprogram INIT_5ef0,For_Call 42a7 BODY_4298: 42a7 e603 | | Load 0x3,0x3 42a8 e602 | | Load 0x3,0x2 42a9 e002 | | Load 0x0,0x2 42aa 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 42ab e5fc | | Load 0x2,-0x4 42ac 8255 | U | Call 0x1,0x55 42ad 00d1 | | Pop_Control Pop_Count_1 42ae c603 | | Store 0x3,0x3 42af 4801 |H | Short_Literal 0x1 42b0 a5f4 | | Store_Unchecked 0x2,-0xc 42b1 e603 | | Load 0x3,0x3 42b2 0c01 | | Execute_Immediate Greater_Equal,0x1 42b3 6801 |h | Jump_Zero 0x42b5 42b4 8606 | | Call 0x3,0x6 42b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 42b6 0000 0000 | | .XXX[0x2] 42b8 ; -------------------------------------------------------------------------------------- 42b8 ; SUBPROGRAM 42b8 ; -------------------------------------------------------------------------------------- 42b8 42c7 |B | .CONST 0x42c7 ; Address of begin 42b9 43c9 |C | .CONST 0x43c9 ; Address of exception handler 42ba 0006 | | .CONST 0x0006 ; Number of locals 42bb INIT_42b8: 42bb 00e2 | | Load_Encached Integer_Cache 42bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42bd 4801 |H | Short_Literal 0x1 42be 480a |H | Short_Literal 0xa 42bf 00e9 | | Load_Encached String_Cache 42c0 0334 | 4 | Declare_Variable Array,With_Constraint 42c1 00e2 | | Load_Encached Integer_Cache 42c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42c3 00e2 | | Load_Encached Integer_Cache 42c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42c5 00e2 | | Load_Encached Integer_Cache 42c6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 42c7 BODY_42b8: 42c7 e5fd | | Load 0x2,-0x3 42c8 e002 | | Load 0x0,0x2 42c9 1b96 | | Execute Package,Field_Read,Field_Number 0x96 42ca 01d5 | | Execute Vector,Field_Reference 42cb 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 42cc a605 | | Store_Unchecked 0x3,0x5 42cd 4800 |H | Short_Literal 0x0 42ce 4804 |H | Short_Literal 0x4 42cf 0092 659f | e | Action Push_String_Extended,0x659f ; "Adding new detail record." 42d1 e001 | | Load 0x0,0x1 42d2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 42d3 0007 | | Action Break_Optional 42d4 e5fb | | Load 0x2,-0x5 42d5 e5fd | | Load 0x2,-0x3 42d6 027e | ~ | Execute Discrete,Not_Equal 42d7 6899 |h | Jump_Zero 0x4371 42d8 e002 | | Load 0x0,0x2 42d9 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 42da 4803 |H | Short_Literal 0x3 42db e002 | | Load 0x0,0x2 42dc 1b90 | | Execute Package,Field_Read,Field_Number 0x90 42dd 01d5 | | Execute Vector,Field_Reference 42de 01d5 | | Execute Vector,Field_Reference 42df 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 42e0 e002 | | Load 0x0,0x2 42e1 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 42e2 4993 |I | Short_Literal 0x193 42e3 e002 | | Load 0x0,0x2 42e4 1b90 | | Execute Package,Field_Read,Field_Number 0x90 42e5 01d5 | | Execute Vector,Field_Reference 42e6 01d5 | | Execute Vector,Field_Reference 42e7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 42e8 e002 | | Load 0x0,0x2 42e9 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 42ea 4803 |H | Short_Literal 0x3 42eb e002 | | Load 0x0,0x2 42ec 1b90 | | Execute Package,Field_Read,Field_Number 0x90 42ed 01d5 | | Execute Vector,Field_Reference 42ee 01d5 | | Execute Vector,Field_Reference 42ef 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 42f0 e002 | | Load 0x0,0x2 42f1 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 42f2 4993 |I | Short_Literal 0x193 42f3 e002 | | Load 0x0,0x2 42f4 1b90 | | Execute Package,Field_Read,Field_Number 0x90 42f5 01d5 | | Execute Vector,Field_Reference 42f6 01d5 | | Execute Vector,Field_Reference 42f7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 42f8 e002 | | Load 0x0,0x2 42f9 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 42fa 4804 |H | Short_Literal 0x4 42fb e002 | | Load 0x0,0x2 42fc 1b90 | | Execute Package,Field_Read,Field_Number 0x90 42fd 01d5 | | Execute Vector,Field_Reference 42fe 01d5 | | Execute Vector,Field_Reference 42ff 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4300 e002 | | Load 0x0,0x2 4301 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4302 4994 |I | Short_Literal 0x194 4303 e002 | | Load 0x0,0x2 4304 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4305 01d5 | | Execute Vector,Field_Reference 4306 01d5 | | Execute Vector,Field_Reference 4307 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 4308 e002 | | Load 0x0,0x2 4309 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 430a 4804 |H | Short_Literal 0x4 430b e002 | | Load 0x0,0x2 430c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 430d 01d5 | | Execute Vector,Field_Reference 430e 01d5 | | Execute Vector,Field_Reference 430f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4310 e002 | | Load 0x0,0x2 4311 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4312 4994 |I | Short_Literal 0x194 4313 e002 | | Load 0x0,0x2 4314 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4315 01d5 | | Execute Vector,Field_Reference 4316 01d5 | | Execute Vector,Field_Reference 4317 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 4318 e002 | | Load 0x0,0x2 4319 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 431a 4805 |H | Short_Literal 0x5 431b e002 | | Load 0x0,0x2 431c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 431d 01d5 | | Execute Vector,Field_Reference 431e 01d5 | | Execute Vector,Field_Reference 431f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4320 e002 | | Load 0x0,0x2 4321 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4322 4995 |I | Short_Literal 0x195 4323 e002 | | Load 0x0,0x2 4324 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4325 01d5 | | Execute Vector,Field_Reference 4326 01d5 | | Execute Vector,Field_Reference 4327 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 4328 e002 | | Load 0x0,0x2 4329 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 432a 4805 |H | Short_Literal 0x5 432b e002 | | Load 0x0,0x2 432c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 432d 01d5 | | Execute Vector,Field_Reference 432e 01d5 | | Execute Vector,Field_Reference 432f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4330 e002 | | Load 0x0,0x2 4331 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4332 4995 |I | Short_Literal 0x195 4333 e002 | | Load 0x0,0x2 4334 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4335 01d5 | | Execute Vector,Field_Reference 4336 01d5 | | Execute Vector,Field_Reference 4337 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 4338 e002 | | Load 0x0,0x2 4339 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 433a 4806 |H | Short_Literal 0x6 433b e002 | | Load 0x0,0x2 433c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 433d 01d5 | | Execute Vector,Field_Reference 433e 01d5 | | Execute Vector,Field_Reference 433f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4340 e002 | | Load 0x0,0x2 4341 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4342 4996 |I | Short_Literal 0x196 4343 e002 | | Load 0x0,0x2 4344 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4345 01d5 | | Execute Vector,Field_Reference 4346 01d5 | | Execute Vector,Field_Reference 4347 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 4348 e002 | | Load 0x0,0x2 4349 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 434a 4806 |H | Short_Literal 0x6 434b e002 | | Load 0x0,0x2 434c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 434d 01d5 | | Execute Vector,Field_Reference 434e 01d5 | | Execute Vector,Field_Reference 434f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4350 e002 | | Load 0x0,0x2 4351 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4352 4996 |I | Short_Literal 0x196 4353 e002 | | Load 0x0,0x2 4354 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4355 01d5 | | Execute Vector,Field_Reference 4356 01d5 | | Execute Vector,Field_Reference 4357 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 4358 e604 | | Load 0x3,0x4 4359 e603 | | Load 0x3,0x3 435a e002 | | Load 0x0,0x2 435b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 435c e5ff | | Load 0x2,-0x1 435d 0a01 | | Execute_Immediate Plus,0x1 435e 0248 | H | Execute Discrete,Check_In_Integer 435f 8255 | U | Call 0x1,0x55 4360 00d1 | | Pop_Control Pop_Count_1 4361 c604 | | Store 0x3,0x4 4362 4be7 |K | Short_Literal 0x3e7 4363 4802 |H | Short_Literal 0x2 4364 4be7 |K | Short_Literal 0x3e7 4365 4802 |H | Short_Literal 0x2 4366 4802 |H | Short_Literal 0x2 4367 4be7 |K | Short_Literal 0x3e7 4368 4be7 |K | Short_Literal 0x3e7 4369 4801 |H | Short_Literal 0x1 436a e604 | | Load 0x3,0x4 436b e603 | | Load 0x3,0x3 436c 01cf | | Execute Vector,Slice_Read 436d e002 | | Load 0x0,0x2 436e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 436f e5f9 | | Load 0x2,-0x7 4370 8251 | Q | Call 0x1,0x51 4371 4800 |H | Short_Literal 0x0 4372 4800 |H | Short_Literal 0x0 4373 e5fc | | Load 0x2,-0x4 4374 4801 |H | Short_Literal 0x1 4375 e5fb | | Load 0x2,-0x5 4376 e5f7 | | Load 0x2,-0x9 4377 e5f8 | | Load 0x2,-0x8 4378 8239 | 9 | Call 0x1,0x39 4379 e5fb | | Load 0x2,-0x5 437a e002 | | Load 0x0,0x2 437b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 437c 01d5 | | Execute Vector,Field_Reference 437d 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 437e 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 4380 01de | | Execute Vector,Not_Equal 4381 6802 |h | Jump_Zero 0x4384 4382 00cc | | Action Pop_Block 4383 450b |E | Exit_Suprogram New_Top_Offset 0xb 4384 0007 | | Action Break_Optional 4385 e5fb | | Load 0x2,-0x5 4386 e002 | | Load 0x0,0x2 4387 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4388 01d5 | | Execute Vector,Field_Reference 4389 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 438a a606 | | Store_Unchecked 0x3,0x6 438b e5fb | | Load 0x2,-0x5 438c e5fd | | Load 0x2,-0x3 438d 027f | | Execute Discrete,Equal 438e 6819 |h | Jump_Zero 0x43a8 438f 4800 |H | Short_Literal 0x0 4390 4801 |H | Short_Literal 0x1 4391 e605 | | Load 0x3,0x5 4392 4801 |H | Short_Literal 0x1 4393 e5fb | | Load 0x2,-0x5 4394 e5f7 | | Load 0x2,-0x9 4395 e5f8 | | Load 0x2,-0x8 4396 8234 | 4 | Call 0x1,0x34 4397 e5fb | | Load 0x2,-0x5 4398 e002 | | Load 0x0,0x2 4399 1b96 | | Execute Package,Field_Read,Field_Number 0x96 439a 01d5 | | Execute Vector,Field_Reference 439b 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 439c 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 439e 01de | | Execute Vector,Not_Equal 439f 6808 |h | Jump_Zero 0x43a8 43a0 4801 |H | Short_Literal 0x1 43a1 4803 |H | Short_Literal 0x3 43a2 0092 65a0 | e | Action Push_String_Extended,0x65a0 ; "Error, internal file error on reread 1st detail." 43a4 e001 | | Load 0x0,0x1 43a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 43a6 00cc | | Action Pop_Block 43a7 450b |E | Exit_Suprogram New_Top_Offset 0xb 43a8 e603 | | Load 0x3,0x3 43a9 e001 | | Load 0x0,0x1 43aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 43ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11 43ac e606 | | Load 0x3,0x6 43ad e001 | | Load 0x0,0x1 43ae 1b14 | | Execute Package,Field_Read,Field_Number 0x14 43af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 43b0 00d1 | | Pop_Control Pop_Count_1 43b1 4be7 |K | Short_Literal 0x3e7 43b2 4802 |H | Short_Literal 0x2 43b3 4be7 |K | Short_Literal 0x3e7 43b4 4802 |H | Short_Literal 0x2 43b5 4802 |H | Short_Literal 0x2 43b6 4be7 |K | Short_Literal 0x3e7 43b7 4be7 |K | Short_Literal 0x3e7 43b8 4801 |H | Short_Literal 0x1 43b9 480a |H | Short_Literal 0xa 43ba e603 | | Load 0x3,0x3 43bb 01cf | | Execute Vector,Slice_Read 43bc e002 | | Load 0x0,0x2 43bd 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 43be e5fe | | Load 0x2,-0x2 43bf 8251 | Q | Call 0x1,0x51 43c0 4800 |H | Short_Literal 0x0 43c1 e605 | | Load 0x3,0x5 43c2 4800 |H | Short_Literal 0x0 43c3 4801 |H | Short_Literal 0x1 43c4 e5fd | | Load 0x2,-0x3 43c5 e5fe | | Load 0x2,-0x2 43c6 e5ff | | Load 0x2,-0x1 43c7 8239 | 9 | Call 0x1,0x39 43c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 43c9 TRAP_42b8: 43c9 0007 | | Action Break_Optional 43ca 4801 |H | Short_Literal 0x1 43cb 4804 |H | Short_Literal 0x4 43cc 0092 65a1 | e | Action Push_String_Extended,0x65a1 ; "Exception found in ap_sub_add_detail_and_link_to_top." 43ce e001 | | Load 0x0,0x1 43cf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 43d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 43d1 0000 0000 | | .XXX[0x3] 43d3 0000 | | 43d4 5f20 2020 |_ | .LITERAL {0x5f202020, 0x20202020} 43d8 7979 2d6d |yy-m| .LITERAL {0x79792d6d, 0x6d2d6464} 43dc 0000 0000 | | .BLANK 0000[0x4] 43e0 ; -------------------------------------------------------------------------------------- 43e0 ; SUBPROGRAM 43e0 ; -------------------------------------------------------------------------------------- 43e0 43e7 |C | .CONST 0x43e7 ; Address of begin 43e1 0004 | | .CONST 0x0004 ; Address of exception handler 43e2 0002 | | .CONST 0x0002 ; Number of locals 43e3 INIT_43e0: 43e3 4801 |H | Short_Literal 0x1 43e4 480a |H | Short_Literal 0xa 43e5 00e9 | | Load_Encached String_Cache 43e6 0334 | 4 | Declare_Variable Array,With_Constraint 43e7 BODY_43e0: 43e7 e5fd | | Load 0x2,-0x3 43e8 e002 | | Load 0x0,0x2 43e9 1b96 | | Execute Package,Field_Read,Field_Number 0x96 43ea 01d5 | | Execute Vector,Field_Reference 43eb 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 43ec 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 43ee 01de | | Execute Vector,Not_Equal 43ef 6802 |h | Jump_Zero 0x43f2 43f0 00cc | | Action Pop_Block 43f1 450b |E | Exit_Suprogram New_Top_Offset 0xb 43f2 e5fb | | Load 0x2,-0x5 43f3 e002 | | Load 0x0,0x2 43f4 1b96 | | Execute Package,Field_Read,Field_Number 0x96 43f5 01d5 | | Execute Vector,Field_Reference 43f6 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 43f7 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 43f9 01de | | Execute Vector,Not_Equal 43fa 6802 |h | Jump_Zero 0x43fd 43fb 00cc | | Action Pop_Block 43fc 450b |E | Exit_Suprogram New_Top_Offset 0xb 43fd 00d8 | | Load_Top At_Offset_0 43fe 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 4400 4804 |H | Short_Literal 0x4 4401 0092 65a2 | e | Action Push_String_Extended,0x65a2 ; "Do you want to enter an additional page of detail? " 4403 e001 | | Load 0x0,0x1 4404 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 4405 00d1 | | Pop_Control Pop_Count_1 4406 4801 |H | Short_Literal 0x1 4407 4801 |H | Short_Literal 0x1 4408 e602 | | Load 0x3,0x2 4409 01cf | | Execute Vector,Slice_Read 440a 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 440c 01df | | Execute Vector,Equal 440d 680b |h | Jump_Zero 0x4419 440e e5f6 | | Load 0x2,-0xa 440f e5f7 | | Load 0x2,-0x9 4410 e5f8 | | Load 0x2,-0x8 4411 e5f9 | | Load 0x2,-0x7 4412 e5fa | | Load 0x2,-0x6 4413 e5fb | | Load 0x2,-0x5 4414 e5fc | | Load 0x2,-0x4 4415 e5fb | | Load 0x2,-0x5 4416 e5f7 | | Load 0x2,-0x9 4417 e5f8 | | Load 0x2,-0x8 4418 8231 | 1 | Call 0x1,0x31 4419 4501 |E | Exit_Suprogram New_Top_Offset 0x1 441a 0000 0000 | | .BLANK 0000[0x6] 4420 ; -------------------------------------------------------------------------------------- 4420 ; SUBPROGRAM 4420 ; -------------------------------------------------------------------------------------- 4420 443a |D: | .CONST 0x443a ; Address of begin 4421 44f2 |D | .CONST 0x44f2 ; Address of exception handler 4422 0005 | | .CONST 0x0005 ; Number of locals 4423 INIT_4420: 4423 00e2 | | Load_Encached Integer_Cache 4424 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4425 4801 |H | Short_Literal 0x1 4426 480a |H | Short_Literal 0xa 4427 00e9 | | Load_Encached String_Cache 4428 0334 | 4 | Declare_Variable Array,With_Constraint 4429 4801 |H | Short_Literal 0x1 442a 480a |H | Short_Literal 0xa 442b 00e9 | | Load_Encached String_Cache 442c 0334 | 4 | Declare_Variable Array,With_Constraint 442d 480a |H | Short_Literal 0xa 442e 4801 |H | Short_Literal 0x1 442f 4820 |H | Short_Literal 0x20 4430 e606 | | Load 0x3,0x6 4431 e604 | | Load 0x3,0x4 4432 01d6 | | Execute Vector,Field_Write 4433 3ffb |? | Loop_Increasing 0x442f 4434 e603 | | Load 0x3,0x3 4435 01d4 | | Execute Vector,Structure_Write 4436 00e2 | | Load_Encached Integer_Cache 4437 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4438 00e2 | | Load_Encached Integer_Cache 4439 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 443a BODY_4420: 443a 00cf | | Action Mark_Auxiliary 443b 0007 | | Action Break_Optional 443c e5fd | | Load 0x2,-0x3 443d e002 | | Load 0x0,0x2 443e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 443f 01d5 | | Execute Vector,Field_Reference 4440 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 4441 a605 | | Store_Unchecked 0x3,0x5 4442 4850 |HP | Short_Literal 0x50 4443 4801 |H | Short_Literal 0x1 4444 e001 | | Load 0x0,0x1 4445 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4446 0a03 | | Execute_Immediate Plus,0x3 4447 0248 | H | Execute Discrete,Check_In_Integer 4448 e001 | | Load 0x0,0x1 4449 1b11 | | Execute Package,Field_Read,Field_Number 0x11 444a 0a02 | | Execute_Immediate Plus,0x2 444b 0248 | H | Execute Discrete,Check_In_Integer 444c e001 | | Load 0x0,0x1 444d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 444e e5fc | | Load 0x2,-0x4 444f 7009 |p | Jump_Nonzero 0x4459 4450 e602 | | Load 0x3,0x2 4451 e605 | | Load 0x3,0x5 4452 4803 |H | Short_Literal 0x3 4453 0092 65a3 | e | Action Push_String_Extended,0x65a3 ; "Please enter a record index to find:" 4455 e001 | | Load 0x0,0x1 4456 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 4457 c602 | | Store 0x3,0x2 4458 7802 |x | Jump 0x445b 4459 e5fb | | Load 0x2,-0x5 445a a602 | | Store_Unchecked 0x3,0x2 445b e602 | | Load 0x3,0x2 445c e5fd | | Load 0x2,-0x3 445d e002 | | Load 0x0,0x2 445e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 445f 01d5 | | Execute Vector,Field_Reference 4460 380f |8 | Execute Record,Field_Write,Field_Number 0xf 4461 e5fd | | Load 0x2,-0x3 4462 e002 | | Load 0x0,0x2 4463 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4464 01d7 | | Execute Vector,Field_Read 4465 00d8 | | Load_Top At_Offset_0 4466 e002 | | Load 0x0,0x2 4467 1b7f | | Execute Package,Field_Read,Field_Number 0x7f 4468 e5fd | | Load 0x2,-0x3 4469 e002 | | Load 0x0,0x2 446a 189f | | Execute Package,Field_Execute,Field_Number 0x9f 446b 00d2 | | Pop_Control Pop_Count_2 446c 0007 | | Action Break_Optional 446d e603 | | Load 0x3,0x3 446e e001 | | Load 0x0,0x1 446f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4470 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4471 e602 | | Load 0x3,0x2 4472 e001 | | Load 0x0,0x1 4473 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4474 1817 | | Execute Package,Field_Execute,Field_Number 0x17 4475 00d1 | | Pop_Control Pop_Count_1 4476 e5fd | | Load 0x2,-0x3 4477 e002 | | Load 0x0,0x2 4478 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4479 01d5 | | Execute Vector,Field_Reference 447a 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 447b 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 447d 01de | | Execute Vector,Not_Equal 447e 6819 |h | Jump_Zero 0x4498 447f e5fa | | Load 0x2,-0x6 4480 700c |p | Jump_Nonzero 0x448d 4481 e001 | | Load 0x0,0x1 4482 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4483 4800 |H | Short_Literal 0x0 4484 4803 |H | Short_Literal 0x3 4485 0092 65a4 | e | Action Push_String_Extended,0x65a4 ; "Deleted or non-existent record encountered, index= " 4487 e603 | | Load 0x3,0x3 4488 01cc | | Execute Vector,Catenate 4489 e001 | | Load 0x0,0x1 448a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 448b e001 | | Load 0x0,0x1 448c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 448d e5fd | | Load 0x2,-0x3 448e e002 | | Load 0x0,0x2 448f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4490 01d5 | | Execute Vector,Field_Reference 4491 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 4492 e5fd | | Load 0x2,-0x3 4493 e002 | | Load 0x0,0x2 4494 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4495 01d5 | | Execute Vector,Field_Reference 4496 380f |8 | Execute Record,Field_Write,Field_Number 0xf 4497 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4498 e5fd | | Load 0x2,-0x3 4499 e002 | | Load 0x0,0x2 449a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 449b 01d7 | | Execute Vector,Field_Read 449c 3c24 |<$ | Execute Record,Field_Read,Field_Number 0x24 449d 00e2 | | Load_Encached Integer_Cache 449e e607 | | Load 0x3,0x7 449f e002 | | Load 0x0,0x2 44a0 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 44a1 e5fe | | Load 0x2,-0x2 44a2 e5ff | | Load 0x2,-0x1 44a3 8229 | ) | Call 0x1,0x29 44a4 00d1 | | Pop_Control Pop_Count_1 44a5 e002 | | Load 0x0,0x2 44a6 1a3c | < | Execute Package,Field_Write,Field_Number 0x3c 44a7 00d1 | | Pop_Control Pop_Count_1 44a8 e5fd | | Load 0x2,-0x3 44a9 e002 | | Load 0x0,0x2 44aa 1b96 | | Execute Package,Field_Read,Field_Number 0x96 44ab 01d5 | | Execute Vector,Field_Reference 44ac 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 44ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 44ae a602 | | Store_Unchecked 0x3,0x2 44af e603 | | Load 0x3,0x3 44b0 e001 | | Load 0x0,0x1 44b1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 44b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 44b3 e602 | | Load 0x3,0x2 44b4 e001 | | Load 0x0,0x1 44b5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 44b6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 44b7 00d1 | | Pop_Control Pop_Count_1 44b8 4be7 |K | Short_Literal 0x3e7 44b9 4802 |H | Short_Literal 0x2 44ba 4be7 |K | Short_Literal 0x3e7 44bb 4802 |H | Short_Literal 0x2 44bc 4802 |H | Short_Literal 0x2 44bd 4be7 |K | Short_Literal 0x3e7 44be 4be7 |K | Short_Literal 0x3e7 44bf e603 | | Load 0x3,0x3 44c0 e002 | | Load 0x0,0x2 44c1 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 44c2 e5ff | | Load 0x2,-0x1 44c3 0a01 | | Execute_Immediate Plus,0x1 44c4 0248 | H | Execute Discrete,Check_In_Integer 44c5 8251 | Q | Call 0x1,0x51 44c6 e5fa | | Load 0x2,-0x6 44c7 0f01 | | Execute_Immediate Equal,0x1 44c8 e002 | | Load 0x0,0x2 44c9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 44ca 0f00 | | Execute_Immediate Equal,0x0 44cb 0279 | y | Execute Discrete,And 44cc 6808 |h | Jump_Zero 0x44d5 44cd e002 | | Load 0x0,0x2 44ce 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 44cf 4802 |H | Short_Literal 0x2 44d0 4801 |H | Short_Literal 0x1 44d1 e5fd | | Load 0x2,-0x3 44d2 e5fe | | Load 0x2,-0x2 44d3 e5ff | | Load 0x2,-0x1 44d4 8247 | G | Call 0x1,0x47 44d5 e5fa | | Load 0x2,-0x6 44d6 0f01 | | Execute_Immediate Equal,0x1 44d7 6801 |h | Jump_Zero 0x44d9 44d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 44d9 e002 | | Load 0x0,0x2 44da 18a3 | | Execute Package,Field_Execute,Field_Number 0xa3 44db 4850 |HP | Short_Literal 0x50 44dc 4801 |H | Short_Literal 0x1 44dd e001 | | Load 0x0,0x1 44de 1b0f | | Execute Package,Field_Read,Field_Number 0xf 44df e001 | | Load 0x0,0x1 44e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 44e1 0273 | s | Execute Discrete,Plus 44e2 0248 | H | Execute Discrete,Check_In_Integer 44e3 e001 | | Load 0x0,0x1 44e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 44e5 0a01 | | Execute_Immediate Plus,0x1 44e6 0248 | H | Execute Discrete,Check_In_Integer 44e7 e001 | | Load 0x0,0x1 44e8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 44e9 4801 |H | Short_Literal 0x1 44ea e5f9 | | Load 0x2,-0x7 44eb 4801 |H | Short_Literal 0x1 44ec 4801 |H | Short_Literal 0x1 44ed e5fd | | Load 0x2,-0x3 44ee e5fe | | Load 0x2,-0x2 44ef e5ff | | Load 0x2,-0x1 44f0 8246 | F | Call 0x1,0x46 44f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 44f2 TRAP_4420: 44f2 0007 | | Action Break_Optional 44f3 4801 |H | Short_Literal 0x1 44f4 4804 |H | Short_Literal 0x4 44f5 0092 65a5 | e | Action Push_String_Extended,0x65a5 ; "Exception found in ap_sub_find_item" 44f7 e001 | | Load 0x0,0x1 44f8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 44f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 44fa 0000 0000 | | .BLANK 0000[0x6] 4500 ; -------------------------------------------------------------------------------------- 4500 ; SUBPROGRAM 4500 ; -------------------------------------------------------------------------------------- 4500 4503 |E | .CONST 0x4503 ; Address of begin 4501 450e |E | .CONST 0x450e ; Address of exception handler 4502 0001 | | .CONST 0x0001 ; Number of locals 4503 BODY_4500: 4503 INIT_4500: 4503 e405 | | Load 0x2,0x5 4504 00ea | | Load_Encached Null_String_Cache 4505 4801 |H | Short_Literal 0x1 4506 e403 | | Load 0x2,0x3 4507 e402 | | Load 0x2,0x2 4508 01cf | | Execute Vector,Slice_Read 4509 4800 |H | Short_Literal 0x0 450a e004 | | Load 0x0,0x4 450b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 450c c405 | | Store 0x2,0x5 450d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 450e TRAP_4500: 450e 0007 | | Action Break_Optional 450f 4800 |H | Short_Literal 0x0 4510 4801 |H | Short_Literal 0x1 4511 0092 65a6 | e | Action Push_String_Extended,0x65a6 ; " [No detail for this record: " 4513 e404 | | Load 0x2,0x4 4514 01cc | | Execute Vector,Catenate 4515 4801 |H | Short_Literal 0x1 4516 e407 | | Load 0x2,0x7 4517 e406 | | Load 0x2,0x6 4518 01cf | | Execute Vector,Slice_Read 4519 01cc | | Execute Vector,Catenate 451a 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 451c 01cc | | Execute Vector,Catenate 451d e001 | | Load 0x0,0x1 451e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 451f 00cc | | Action Pop_Block 4520 4504 |E | Exit_Suprogram New_Top_Offset 0x4 4521 0000 0000 | | .BLANK 0000[0x7] 4528 ; -------------------------------------------------------------------------------------- 4528 ; SUBPROGRAM 4528 ; -------------------------------------------------------------------------------------- 4528 452b |E+ | .CONST 0x452b ; Address of begin 4529 456b |Ek | .CONST 0x456b ; Address of exception handler 452a 0001 | | .CONST 0x0001 ; Number of locals 452b BODY_4528: 452b INIT_4528: 452b e40a | | Load 0x2,0xa 452c 00ea | | Load_Encached Null_String_Cache 452d 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 452f e003 | | Load 0x0,0x3 4530 1819 | | Execute Package,Field_Execute,Field_Number 0x19 4531 e003 | | Load 0x0,0x3 4532 181c | | Execute Package,Field_Execute,Field_Number 0x1c 4533 01cc | | Execute Vector,Catenate 4534 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 4536 01cc | | Execute Vector,Catenate 4537 e003 | | Load 0x0,0x3 4538 1819 | | Execute Package,Field_Execute,Field_Number 0x19 4539 e003 | | Load 0x0,0x3 453a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 453b 01cc | | Execute Vector,Catenate 453c 0092 6535 | e5| Action Push_String_Extended,0x6535 ; "_sims_temp" 453e 01cc | | Execute Vector,Catenate 453f 4800 |H | Short_Literal 0x0 4540 e004 | | Load 0x0,0x4 4541 1815 | | Execute Package,Field_Execute,Field_Number 0x15 4542 c40a | | Store 0x2,0xa 4543 00cf | | Action Mark_Auxiliary 4544 0007 | | Action Break_Optional 4545 e40a | | Load 0x2,0xa 4546 e004 | | Load 0x0,0x4 4547 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 4548 7010 |p | Jump_Nonzero 0x4559 4549 00e3 | | Load_Encached Natural_Cache 454a e404 | | Load 0x2,0x4 454b e40a | | Load 0x2,0xa 454c e004 | | Load 0x0,0x4 454d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 454e 00d1 | | Pop_Control Pop_Count_1 454f c405 | | Store 0x2,0x5 4550 4801 |H | Short_Literal 0x1 4551 e405 | | Load 0x2,0x5 4552 e404 | | Load 0x2,0x4 4553 01cf | | Execute Vector,Slice_Read 4554 e5fe | | Load 0x2,-0x2 4555 e004 | | Load 0x0,0x4 4556 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 4557 00c9 | | Action Pop_Auxiliary_Loop 4558 7fec | | Jump 0x4545 4559 00ce | | Action Pop_Auxiliary 455a e40a | | Load 0x2,0xa 455b e004 | | Load 0x0,0x4 455c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 455d c40a | | Store 0x2,0xa 455e 0092 65a7 | e | Action Push_String_Extended,0x65a7 ; "<Continued Part " 4560 e408 | | Load 0x2,0x8 4561 00e0 | | Load_Encached Standard_Cache 4562 1818 | | Execute Package,Field_Execute,Field_Number 0x18 4563 01cc | | Execute Vector,Catenate 4564 0092 64f1 | d | Action Push_String_Extended,0x64f1 ; ">" 4566 01cc | | Execute Vector,Catenate 4567 e5fe | | Load 0x2,-0x2 4568 e004 | | Load 0x0,0x4 4569 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 456a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 456b TRAP_4528: 456b 0007 | | Action Break_Optional 456c 0092 65a8 | e | Action Push_String_Extended,0x65a8 ; "? Problem in generating 2nd header portion for extract in ap_display_file." 456e e004 | | Load 0x0,0x4 456f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 4570 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4571 0000 0000 | | .BLANK 0000[0x7] 4578 ; -------------------------------------------------------------------------------------- 4578 ; SUBPROGRAM 4578 ; -------------------------------------------------------------------------------------- 4578 4594 |E | .CONST 0x4594 ; Address of begin 4579 4668 |Fh | .CONST 0x4668 ; Address of exception handler 457a 0004 | | .CONST 0x0004 ; Number of locals 457b INIT_4578: 457b 00e2 | | Load_Encached Integer_Cache 457c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 457d 4801 |H | Short_Literal 0x1 457e 480a |H | Short_Literal 0xa 457f 00e9 | | Load_Encached String_Cache 4580 0334 | 4 | Declare_Variable Array,With_Constraint 4581 4801 |H | Short_Literal 0x1 4582 480a |H | Short_Literal 0xa 4583 00e9 | | Load_Encached String_Cache 4584 0334 | 4 | Declare_Variable Array,With_Constraint 4585 480a |H | Short_Literal 0xa 4586 4801 |H | Short_Literal 0x1 4587 4820 |H | Short_Literal 0x20 4588 e606 | | Load 0x3,0x6 4589 e604 | | Load 0x3,0x4 458a 01d6 | | Execute Vector,Field_Write 458b 3ffb |? | Loop_Increasing 0x4587 458c e603 | | Load 0x3,0x3 458d 01d4 | | Execute Vector,Structure_Write 458e 4801 |H | Short_Literal 0x1 458f 4801 |H | Short_Literal 0x1 4590 00e9 | | Load_Encached String_Cache 4591 0334 | 4 | Declare_Variable Array,With_Constraint 4592 00a0 49c8 | I | Action Push_Structure_Extended,0x49c8 4594 BODY_4578: 4594 00cf | | Action Mark_Auxiliary 4595 0007 | | Action Break_Optional 4596 4801 |H | Short_Literal 0x1 4597 4800 |H | Short_Literal 0x0 4598 e5fb | | Load 0x2,-0x5 4599 e5fc | | Load 0x2,-0x4 459a e5fd | | Load 0x2,-0x3 459b e5fe | | Load 0x2,-0x2 459c e5ff | | Load 0x2,-0x1 459d 8234 | 4 | Call 0x1,0x34 459e e5fd | | Load 0x2,-0x3 459f e002 | | Load 0x0,0x2 45a0 1b96 | | Execute Package,Field_Read,Field_Number 0x96 45a1 01d5 | | Execute Vector,Field_Reference 45a2 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 45a3 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 45a5 01de | | Execute Vector,Not_Equal 45a6 6801 |h | Jump_Zero 0x45a8 45a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 45a8 e604 | | Load 0x3,0x4 45a9 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 45ab 4803 |H | Short_Literal 0x3 45ac 0092 65a9 | e | Action Push_String_Extended,0x65a9 ; "Is this the desired report to edit? y=yes, n=no " 45ae e001 | | Load 0x0,0x1 45af 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 45b0 00d1 | | Pop_Control Pop_Count_1 45b1 4801 |H | Short_Literal 0x1 45b2 4801 |H | Short_Literal 0x1 45b3 e604 | | Load 0x3,0x4 45b4 01cf | | Execute Vector,Slice_Read 45b5 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 45b7 01df | | Execute Vector,Equal 45b8 6810 |h | Jump_Zero 0x45c9 45b9 4800 |H | Short_Literal 0x0 45ba 4804 |H | Short_Literal 0x4 45bb 0092 65aa | e | Action Push_String_Extended,0x65aa ; "Result => Edit session ended. " 45bd e001 | | Load 0x0,0x1 45be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 45bf e001 | | Load 0x0,0x1 45c0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 45c1 0092 65ab | e | Action Push_String_Extended,0x65ab ; "erusr" 45c3 e5fd | | Load 0x2,-0x3 45c4 e002 | | Load 0x0,0x2 45c5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 45c6 01d5 | | Execute Vector,Field_Reference 45c7 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 45c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 45c9 e002 | | Load 0x0,0x2 45ca 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 45cb e5fa | | Load 0x2,-0x6 45cc 4802 |H | Short_Literal 0x2 45cd 4800 |H | Short_Literal 0x0 45ce 4801 |H | Short_Literal 0x1 45cf 4800 |H | Short_Literal 0x0 45d0 4800 |H | Short_Literal 0x0 45d1 e5fd | | Load 0x2,-0x3 45d2 e5fe | | Load 0x2,-0x2 45d3 e5ff | | Load 0x2,-0x1 45d4 8249 | I | Call 0x1,0x49 45d5 00d1 | | Pop_Control Pop_Count_1 45d6 e604 | | Load 0x3,0x4 45d7 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 45d9 4803 |H | Short_Literal 0x3 45da 0092 65ac | e | Action Push_String_Extended,0x65ac ; "Save this report into the file? y=yes, n=abort" 45dc e001 | | Load 0x0,0x1 45dd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 45de 00d1 | | Pop_Control Pop_Count_1 45df 0007 | | Action Break_Optional 45e0 4801 |H | Short_Literal 0x1 45e1 4801 |H | Short_Literal 0x1 45e2 e604 | | Load 0x3,0x4 45e3 01cf | | Execute Vector,Slice_Read 45e4 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 45e6 01df | | Execute Vector,Equal 45e7 680e |h | Jump_Zero 0x45f6 45e8 4800 |H | Short_Literal 0x0 45e9 4804 |H | Short_Literal 0x4 45ea 0092 65ad | e | Action Push_String_Extended,0x65ad ; "Result => Report not updated to file. " 45ec e001 | | Load 0x0,0x1 45ed 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 45ee 0092 65ab | e | Action Push_String_Extended,0x65ab ; "erusr" 45f0 e5fd | | Load 0x2,-0x3 45f1 e002 | | Load 0x0,0x2 45f2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 45f3 01d5 | | Execute Vector,Field_Reference 45f4 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 45f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 45f6 e5fd | | Load 0x2,-0x3 45f7 e002 | | Load 0x0,0x2 45f8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 45f9 01d7 | | Execute Vector,Field_Read 45fa 3c24 |<$ | Execute Record,Field_Read,Field_Number 0x24 45fb 00e2 | | Load_Encached Integer_Cache 45fc e606 | | Load 0x3,0x6 45fd e002 | | Load 0x0,0x2 45fe 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 45ff e5fe | | Load 0x2,-0x2 4600 e5ff | | Load 0x2,-0x1 4601 8228 | ( | Call 0x1,0x28 4602 00d1 | | Pop_Control Pop_Count_1 4603 e002 | | Load 0x0,0x2 4604 1a3c | < | Execute Package,Field_Write,Field_Number 0x3c 4605 00d1 | | Pop_Control Pop_Count_1 4606 e5fd | | Load 0x2,-0x3 4607 e002 | | Load 0x0,0x2 4608 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4609 01d5 | | Execute Vector,Field_Reference 460a 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 460b e5fd | | Load 0x2,-0x3 460c e002 | | Load 0x0,0x2 460d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 460e 01d5 | | Execute Vector,Field_Reference 460f 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4610 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 4611 4801 |H | Short_Literal 0x1 4612 e5fd | | Load 0x2,-0x3 4613 e002 | | Load 0x0,0x2 4614 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4615 01d5 | | Execute Vector,Field_Reference 4616 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4617 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 4618 4802 |H | Short_Literal 0x2 4619 e5fd | | Load 0x2,-0x3 461a e002 | | Load 0x0,0x2 461b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 461c 01d5 | | Execute Vector,Field_Reference 461d 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 461e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 461f 4800 |H | Short_Literal 0x0 4620 e5fd | | Load 0x2,-0x3 4621 e002 | | Load 0x0,0x2 4622 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4623 01d5 | | Execute Vector,Field_Reference 4624 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4625 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 4626 4800 |H | Short_Literal 0x0 4627 e5fd | | Load 0x2,-0x3 4628 e002 | | Load 0x0,0x2 4629 1b96 | | Execute Package,Field_Read,Field_Number 0x96 462a 01d5 | | Execute Vector,Field_Reference 462b 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 462c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 462d 4800 |H | Short_Literal 0x0 462e e5fd | | Load 0x2,-0x3 462f e002 | | Load 0x0,0x2 4630 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4631 01d5 | | Execute Vector,Field_Reference 4632 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4633 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 4634 e5fd | | Load 0x2,-0x3 4635 e002 | | Load 0x0,0x2 4636 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4637 01d7 | | Execute Vector,Field_Read 4638 00d8 | | Load_Top At_Offset_0 4639 e002 | | Load 0x0,0x2 463a 1b80 | | Execute Package,Field_Read,Field_Number 0x80 463b e5fd | | Load 0x2,-0x3 463c e002 | | Load 0x0,0x2 463d 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0 463e 00d2 | | Pop_Control Pop_Count_2 463f e5fd | | Load 0x2,-0x3 4640 e002 | | Load 0x0,0x2 4641 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4642 01d5 | | Execute Vector,Field_Reference 4643 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 4644 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 4646 01df | | Execute Vector,Equal 4647 6812 |h | Jump_Zero 0x465a 4648 e5fd | | Load 0x2,-0x3 4649 e5fe | | Load 0x2,-0x2 464a e5ff | | Load 0x2,-0x1 464b 8238 | 8 | Call 0x1,0x38 464c 0092 65ae | e | Action Push_String_Extended,0x65ae ; "Record written ok: # " 464e e001 | | Load 0x0,0x1 464f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4650 e5fd | | Load 0x2,-0x3 4651 e002 | | Load 0x0,0x2 4652 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4653 01d5 | | Execute Vector,Field_Reference 4654 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 4655 e001 | | Load 0x0,0x1 4656 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4657 e001 | | Load 0x0,0x1 4658 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4659 4501 |E | Exit_Suprogram New_Top_Offset 0x1 465a 4801 |H | Short_Literal 0x1 465b 4804 |H | Short_Literal 0x4 465c 0092 65af | e | Action Push_String_Extended,0x65af ; "Result => Error, report not written, index= " 465e e001 | | Load 0x0,0x1 465f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4660 e5fd | | Load 0x2,-0x3 4661 e002 | | Load 0x0,0x2 4662 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4663 01d5 | | Execute Vector,Field_Reference 4664 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 4665 e001 | | Load 0x0,0x1 4666 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4667 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4668 TRAP_4578: 4668 0007 | | Action Break_Optional 4669 4801 |H | Short_Literal 0x1 466a 4804 |H | Short_Literal 0x4 466b 0092 65b0 | e | Action Push_String_Extended,0x65b0 ; "Exception found in ap_sub_modify_existing" 466d e001 | | Load 0x0,0x1 466e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 466f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4670 ; -------------------------------------------------------------------------------------- 4670 ; SUBPROGRAM 4670 ; -------------------------------------------------------------------------------------- 4670 4673 |Fs | .CONST 0x4673 ; Address of begin 4671 468f |F | .CONST 0x468f ; Address of exception handler 4672 0001 | | .CONST 0x0001 ; Number of locals 4673 BODY_4670: 4673 INIT_4670: 4673 e40a | | Load 0x2,0xa 4674 00ea | | Load_Encached Null_String_Cache 4675 4801 |H | Short_Literal 0x1 4676 e002 | | Load 0x0,0x2 4677 1b10 | | Execute Package,Field_Read,Field_Number 0x10 4678 e002 | | Load 0x0,0x2 4679 1b0f | | Execute Package,Field_Read,Field_Number 0xf 467a 01cf | | Execute Vector,Slice_Read 467b e404 | | Load 0x2,0x4 467c 01cc | | Execute Vector,Catenate 467d 4801 |H | Short_Literal 0x1 467e e409 | | Load 0x2,0x9 467f e408 | | Load 0x2,0x8 4680 01cf | | Execute Vector,Slice_Read 4681 01cc | | Execute Vector,Catenate 4682 4800 |H | Short_Literal 0x0 4683 e005 | | Load 0x0,0x5 4684 1815 | | Execute Package,Field_Execute,Field_Number 0x15 4685 c40a | | Store 0x2,0xa 4686 e40a | | Load 0x2,0xa 4687 e005 | | Load 0x0,0x5 4688 181c | | Execute Package,Field_Execute,Field_Number 0x1c 4689 c40a | | Store 0x2,0xa 468a e40a | | Load 0x2,0xa 468b e005 | | Load 0x0,0x5 468c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 468d c40a | | Store 0x2,0xa 468e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 468f TRAP_4670: 468f 0007 | | Action Break_Optional 4690 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4691 0000 0000 | | .BLANK 0000[0x7] 4698 ; -------------------------------------------------------------------------------------- 4698 ; SUBPROGRAM 4698 ; -------------------------------------------------------------------------------------- 4698 469f |F | .CONST 0x469f ; Address of begin 4699 46df |F | .CONST 0x46df ; Address of exception handler 469a 0003 | | .CONST 0x0003 ; Number of locals 469b INIT_4698: 469b 029f 5f53 | _S| Declare_Subprogram INIT_5f50,For_Call 469d 029f 5f8b | _ | Declare_Subprogram INIT_5f88,For_Call 469f BODY_4698: 469f e405 | | Load 0x2,0x5 46a0 00ea | | Load_Encached Null_String_Cache 46a1 4801 |H | Short_Literal 0x1 46a2 e403 | | Load 0x2,0x3 46a3 e402 | | Load 0x2,0x2 46a4 01cf | | Execute Vector,Slice_Read 46a5 4800 |H | Short_Literal 0x0 46a6 e005 | | Load 0x0,0x5 46a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 46a8 c405 | | Store 0x2,0x5 46a9 e405 | | Load 0x2,0x5 46aa e005 | | Load 0x0,0x5 46ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 46ac c405 | | Store 0x2,0x5 46ad 4800 |H | Short_Literal 0x0 46ae a40e | | Store_Unchecked 0x2,0xe 46af e001 | | Load 0x0,0x1 46b0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 46b1 e002 | | Load 0x0,0x2 46b2 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 46b3 7010 |p | Jump_Nonzero 0x46c4 46b4 4800 |H | Short_Literal 0x0 46b5 4801 |H | Short_Literal 0x1 46b6 0092 65b1 | e | Action Push_String_Extended,0x65b1 ; " [Editing existing detail for record: " 46b8 e404 | | Load 0x2,0x4 46b9 01cc | | Execute Vector,Catenate 46ba 4801 |H | Short_Literal 0x1 46bb e409 | | Load 0x2,0x9 46bc e408 | | Load 0x2,0x8 46bd 01cf | | Execute Vector,Slice_Read 46be 01cc | | Execute Vector,Catenate 46bf 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 46c1 01cc | | Execute Vector,Catenate 46c2 e001 | | Load 0x0,0x1 46c3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 46c4 4800 |H | Short_Literal 0x0 46c5 4801 |H | Short_Literal 0x1 46c6 e002 | | Load 0x0,0x2 46c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 46c8 e002 | | Load 0x0,0x2 46c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 46ca 01cf | | Execute Vector,Slice_Read 46cb e404 | | Load 0x2,0x4 46cc 01cc | | Execute Vector,Catenate 46cd 4801 |H | Short_Literal 0x1 46ce e409 | | Load 0x2,0x9 46cf e408 | | Load 0x2,0x8 46d0 01cf | | Execute Vector,Slice_Read 46d1 01cc | | Execute Vector,Catenate 46d2 e011 | | Load 0x0,0x11 46d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 46d4 4801 |H | Short_Literal 0x1 46d5 e403 | | Load 0x2,0x3 46d6 e402 | | Load 0x2,0x2 46d7 01cf | | Execute Vector,Slice_Read 46d8 e012 | | Load 0x0,0x12 46d9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 46da 4800 |H | Short_Literal 0x0 46db e013 | | Load 0x0,0x13 46dc 1b12 | | Execute Package,Field_Read,Field_Number 0x12 46dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 46de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 46df TRAP_4698: 46df 0007 | | Action Break_Optional 46e0 4801 |H | Short_Literal 0x1 46e1 a40e | | Store_Unchecked 0x2,0xe 46e2 e002 | | Load 0x0,0x2 46e3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 46e4 0f01 | | Execute_Immediate Equal,0x1 46e5 6839 |h9 | Jump_Zero 0x471f 46e6 e002 | | Load 0x0,0x2 46e7 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 46e8 7012 |p | Jump_Nonzero 0x46fb 46e9 e001 | | Load 0x0,0x1 46ea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 46eb 4800 |H | Short_Literal 0x0 46ec 4801 |H | Short_Literal 0x1 46ed 0092 65b2 | e | Action Push_String_Extended,0x65b2 ; " [Generating new detail for record: " 46ef e404 | | Load 0x2,0x4 46f0 01cc | | Execute Vector,Catenate 46f1 4801 |H | Short_Literal 0x1 46f2 e409 | | Load 0x2,0x9 46f3 e408 | | Load 0x2,0x8 46f4 01cf | | Execute Vector,Slice_Read 46f5 01cc | | Execute Vector,Catenate 46f6 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 46f8 01cc | | Execute Vector,Catenate 46f9 e001 | | Load 0x0,0x1 46fa 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 46fb 4800 |H | Short_Literal 0x0 46fc 4801 |H | Short_Literal 0x1 46fd e002 | | Load 0x0,0x2 46fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 46ff e002 | | Load 0x0,0x2 4700 1b0f | | Execute Package,Field_Read,Field_Number 0xf 4701 01cf | | Execute Vector,Slice_Read 4702 e404 | | Load 0x2,0x4 4703 01cc | | Execute Vector,Catenate 4704 4801 |H | Short_Literal 0x1 4705 e409 | | Load 0x2,0x9 4706 e408 | | Load 0x2,0x8 4707 01cf | | Execute Vector,Slice_Read 4708 01cc | | Execute Vector,Catenate 4709 e011 | | Load 0x0,0x11 470a 180e | | Execute Package,Field_Execute,Field_Number 0xe 470b 4800 |H | Short_Literal 0x0 470c e013 | | Load 0x0,0x13 470d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 470e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 470f 4801 |H | Short_Literal 0x1 4710 e002 | | Load 0x0,0x2 4711 1b0e | | Execute Package,Field_Read,Field_Number 0xe 4712 e002 | | Load 0x0,0x2 4713 1b0d | | Execute Package,Field_Read,Field_Number 0xd 4714 01cf | | Execute Vector,Slice_Read 4715 0092 65b3 | e | Action Push_String_Extended,0x65b3 ; "detail_master" 4717 01cc | | Execute Vector,Catenate 4718 e012 | | Load 0x0,0x12 4719 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 471a 4800 |H | Short_Literal 0x0 471b e013 | | Load 0x0,0x13 471c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 471d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 471e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 471f e405 | | Load 0x2,0x5 4720 00ea | | Load_Encached Null_String_Cache 4721 4801 |H | Short_Literal 0x1 4722 e403 | | Load 0x2,0x3 4723 e402 | | Load 0x2,0x2 4724 01cf | | Execute Vector,Slice_Read 4725 4801 |H | Short_Literal 0x1 4726 e005 | | Load 0x0,0x5 4727 1814 | | Execute Package,Field_Execute,Field_Number 0x14 4728 c405 | | Store 0x2,0x5 4729 8602 | | Call 0x3,0x2 472a e001 | | Load 0x0,0x1 472b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 472c e001 | | Load 0x0,0x1 472d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 472e 0092 65b4 | e | Action Push_String_Extended,0x65b4 ; "Describe the problem or request, including what was done," 4730 e001 | | Load 0x0,0x1 4731 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4732 e001 | | Load 0x0,0x1 4733 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4734 0092 65b5 | e | Action Push_String_Extended,0x65b5 ; " what you expected, and what actually happened. You" 4736 e001 | | Load 0x0,0x1 4737 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4738 e001 | | Load 0x0,0x1 4739 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 473a 0092 65b6 | e | Action Push_String_Extended,0x65b6 ; " can region copy and include text from other windows." 473c e001 | | Load 0x0,0x1 473d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 473e e001 | | Load 0x0,0x1 473f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4740 0092 65b7 | e | Action Push_String_Extended,0x65b7 ; " End all detail text input with an End_of_Input [Control Meta F-19] or /" 4742 e001 | | Load 0x0,0x1 4743 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4744 e001 | | Load 0x0,0x1 4745 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4746 e002 | | Load 0x0,0x2 4747 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 4748 7002 |p | Jump_Nonzero 0x474b 4749 e001 | | Load 0x0,0x1 474a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 474b 8603 | | Call 0x3,0x3 474c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 474d 0000 0000 | | .XXX[0x3] 474f 0000 | | 4750 ; -------------------------------------------------------------------------------------- 4750 ; SUBPROGRAM 4750 ; -------------------------------------------------------------------------------------- 4750 4766 |Gf | .CONST 0x4766 ; Address of begin 4751 477f |G | .CONST 0x477f ; Address of exception handler 4752 0003 | | .CONST 0x0003 ; Number of locals 4753 INIT_4750: 4753 4801 |H | Short_Literal 0x1 4754 480a |H | Short_Literal 0xa 4755 00e9 | | Load_Encached String_Cache 4756 0334 | 4 | Declare_Variable Array,With_Constraint 4757 4801 |H | Short_Literal 0x1 4758 480a |H | Short_Literal 0xa 4759 00e9 | | Load_Encached String_Cache 475a 0334 | 4 | Declare_Variable Array,With_Constraint 475b 480a |H | Short_Literal 0xa 475c 4801 |H | Short_Literal 0x1 475d 4820 |H | Short_Literal 0x20 475e e605 | | Load 0x3,0x5 475f e603 | | Load 0x3,0x3 4760 01d6 | | Execute Vector,Field_Write 4761 3ffb |? | Loop_Increasing 0x475d 4762 e602 | | Load 0x3,0x2 4763 01d4 | | Execute Vector,Structure_Write 4764 029f 5feb | _ | Declare_Subprogram INIT_5fe8,For_Call 4766 BODY_4750: 4766 00cf | | Action Mark_Auxiliary 4767 0007 | | Action Break_Optional 4768 e602 | | Load 0x3,0x2 4769 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 476b 4803 |H | Short_Literal 0x3 476c 0092 65b8 | e | Action Push_String_Extended,0x65b8 ; "Please commit text window before going on: OK to go on? y=yes" 476e e001 | | Load 0x0,0x1 476f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 4770 00d1 | | Pop_Control Pop_Count_1 4771 4801 |H | Short_Literal 0x1 4772 4801 |H | Short_Literal 0x1 4773 e602 | | Load 0x3,0x2 4774 01cf | | Execute Vector,Slice_Read 4775 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 4777 01df | | Execute Vector,Equal 4778 6801 |h | Jump_Zero 0x477a 4779 7802 |x | Jump 0x477c 477a 00c9 | | Action Pop_Auxiliary_Loop 477b 7fec | | Jump 0x4768 477c 00ce | | Action Pop_Auxiliary 477d 8603 | | Call 0x3,0x3 477e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 477f TRAP_4750: 477f 0007 | | Action Break_Optional 4780 6243 |bC | Indirect_Literal Discrete,0x49c4,{0x00000000, 0x00008ccd} 4781 00ba | | Action Initiate_Delay 4782 e40d | | Load 0x2,0xd 4783 0a01 | | Execute_Immediate Plus,0x1 4784 0248 | H | Execute Discrete,Check_In_Integer 4785 a40d | | Store_Unchecked 0x2,0xd 4786 e40d | | Load 0x2,0xd 4787 0c15 | | Execute_Immediate Greater_Equal,0x15 4788 6824 |h$ | Jump_Zero 0x47ad 4789 4800 |H | Short_Literal 0x0 478a a40d | | Store_Unchecked 0x2,0xd 478b e001 | | Load 0x0,0x1 478c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 478d 4800 |H | Short_Literal 0x0 478e 4801 |H | Short_Literal 0x1 478f 0092 65b9 | e | Action Push_String_Extended,0x65b9 ; " [Please Object X commit the new edit window when done editing: ]" 4791 e001 | | Load 0x0,0x1 4792 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4793 e002 | | Load 0x0,0x2 4794 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 4795 7017 |p | Jump_Nonzero 0x47ad 4796 4800 |H | Short_Literal 0x0 4797 4801 |H | Short_Literal 0x1 4798 0092 65ba | e | Action Push_String_Extended,0x65ba ; " [File: " 479a 4801 |H | Short_Literal 0x1 479b e002 | | Load 0x0,0x2 479c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 479d e002 | | Load 0x0,0x2 479e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 479f 01cf | | Execute Vector,Slice_Read 47a0 01cc | | Execute Vector,Catenate 47a1 e404 | | Load 0x2,0x4 47a2 01cc | | Execute Vector,Catenate 47a3 4801 |H | Short_Literal 0x1 47a4 e409 | | Load 0x2,0x9 47a5 e408 | | Load 0x2,0x8 47a6 01cf | | Execute Vector,Slice_Read 47a7 01cc | | Execute Vector,Catenate 47a8 0092 65bb | e | Action Push_String_Extended,0x65bb ; "]..." 47aa 01cc | | Execute Vector,Catenate 47ab e001 | | Load 0x0,0x1 47ac 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 47ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 47ae 0000 0000 | | .XXX[0x2] 47b0 ; -------------------------------------------------------------------------------------- 47b0 ; SUBPROGRAM 47b0 ; -------------------------------------------------------------------------------------- 47b0 4803 |H | .CONST 0x4803 ; Address of begin 47b1 49bb |I | .CONST 0x49bb ; Address of exception handler 47b2 000e | | .CONST 0x000e ; Number of locals 47b3 INIT_47b0: 47b3 00e2 | | Load_Encached Integer_Cache 47b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 47b5 4801 |H | Short_Literal 0x1 47b6 480a |H | Short_Literal 0xa 47b7 00e9 | | Load_Encached String_Cache 47b8 0334 | 4 | Declare_Variable Array,With_Constraint 47b9 4801 |H | Short_Literal 0x1 47ba 480a |H | Short_Literal 0xa 47bb 00e9 | | Load_Encached String_Cache 47bc 0334 | 4 | Declare_Variable Array,With_Constraint 47bd 480a |H | Short_Literal 0xa 47be 4801 |H | Short_Literal 0x1 47bf 4820 |H | Short_Literal 0x20 47c0 e606 | | Load 0x3,0x6 47c1 e604 | | Load 0x3,0x4 47c2 01d6 | | Execute Vector,Field_Write 47c3 3ffb |? | Loop_Increasing 0x47bf 47c4 e603 | | Load 0x3,0x3 47c5 01d4 | | Execute Vector,Structure_Write 47c6 00e2 | | Load_Encached Integer_Cache 47c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 47c8 4801 |H | Short_Literal 0x1 47c9 4801 |H | Short_Literal 0x1 47ca 00e9 | | Load_Encached String_Cache 47cb 0334 | 4 | Declare_Variable Array,With_Constraint 47cc 51ff |Q | Indirect_Literal Any,0x49cc,{0x20202020, 0x20202020} 47cd 4801 |H | Short_Literal 0x1 47ce 4808 |H | Short_Literal 0x8 47cf 00e9 | | Load_Encached String_Cache 47d0 0334 | 4 | Declare_Variable Array,With_Constraint 47d1 4801 |H | Short_Literal 0x1 47d2 4808 |H | Short_Literal 0x8 47d3 00e9 | | Load_Encached String_Cache 47d4 0334 | 4 | Declare_Variable Array,With_Constraint 47d5 4808 |H | Short_Literal 0x8 47d6 4801 |H | Short_Literal 0x1 47d7 4820 |H | Short_Literal 0x20 47d8 e609 | | Load 0x3,0x9 47d9 e607 | | Load 0x3,0x7 47da 01d6 | | Execute Vector,Field_Write 47db 3ffb |? | Loop_Increasing 0x47d7 47dc e606 | | Load 0x3,0x6 47dd 01d4 | | Execute Vector,Structure_Write 47de 00e2 | | Load_Encached Integer_Cache 47df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 47e0 00e2 | | Load_Encached Integer_Cache 47e1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 47e2 00e2 | | Load_Encached Integer_Cache 47e3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 47e4 4801 |H | Short_Literal 0x1 47e5 4802 |H | Short_Literal 0x2 47e6 00e9 | | Load_Encached String_Cache 47e7 0334 | 4 | Declare_Variable Array,With_Constraint 47e8 51e7 |Q | Indirect_Literal Any,0x49d0,{0x20202020, 0x20202020} 47e9 4801 |H | Short_Literal 0x1 47ea 4802 |H | Short_Literal 0x2 47eb 00e9 | | Load_Encached String_Cache 47ec 0334 | 4 | Declare_Variable Array,With_Constraint 47ed 51e6 |Q | Indirect_Literal Any,0x49d4,{0x20202020, 0x20202020} 47ee 00e2 | | Load_Encached Integer_Cache 47ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 47f0 4801 |H | Short_Literal 0x1 47f1 4808 |H | Short_Literal 0x8 47f2 00e9 | | Load_Encached String_Cache 47f3 0334 | 4 | Declare_Variable Array,With_Constraint 47f4 4801 |H | Short_Literal 0x1 47f5 4808 |H | Short_Literal 0x8 47f6 00e9 | | Load_Encached String_Cache 47f7 0334 | 4 | Declare_Variable Array,With_Constraint 47f8 4808 |H | Short_Literal 0x8 47f9 4801 |H | Short_Literal 0x1 47fa 4820 |H | Short_Literal 0x20 47fb e610 | | Load 0x3,0x10 47fc e60e | | Load 0x3,0xe 47fd 01d6 | | Execute Vector,Field_Write 47fe 3ffb |? | Loop_Increasing 0x47fa 47ff e60d | | Load 0x3,0xd 4800 01d4 | | Execute Vector,Structure_Write 4801 00e2 | | Load_Encached Integer_Cache 4802 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4803 BODY_47b0: 4803 e5fb | | Load 0x2,-0x5 4804 0f01 | | Execute_Immediate Equal,0x1 4805 6830 |h0 | Jump_Zero 0x4836 4806 00cf | | Action Mark_Auxiliary 4807 e5fe | | Load 0x2,-0x2 4808 e5ff | | Load 0x2,-0x1 4809 0263 | c | Execute Discrete,Above_Bound 480a 702a |p* | Jump_Nonzero 0x4835 480b e002 | | Load 0x0,0x2 480c 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 480d e611 | | Load 0x3,0x11 480e e002 | | Load 0x0,0x2 480f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4810 01d5 | | Execute Vector,Field_Reference 4811 01d5 | | Execute Vector,Field_Reference 4812 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4813 a60e | | Store_Unchecked 0x3,0xe 4814 e60e | | Load 0x3,0xe 4815 e002 | | Load 0x0,0x2 4816 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4817 e611 | | Load 0x3,0x11 4818 e002 | | Load 0x0,0x2 4819 1b90 | | Execute Package,Field_Read,Field_Number 0x90 481a 01d5 | | Execute Vector,Field_Reference 481b 01d5 | | Execute Vector,Field_Reference 481c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 481d 4801 |H | Short_Literal 0x1 481e e60e | | Load 0x3,0xe 481f e002 | | Load 0x0,0x2 4820 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4821 e611 | | Load 0x3,0x11 4822 e002 | | Load 0x0,0x2 4823 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4824 01d5 | | Execute Vector,Field_Reference 4825 01d5 | | Execute Vector,Field_Reference 4826 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4827 01cf | | Execute Vector,Slice_Read 4828 4801 |H | Short_Literal 0x1 4829 e60e | | Load 0x3,0xe 482a e002 | | Load 0x0,0x2 482b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 482c e611 | | Load 0x3,0x11 482d e002 | | Load 0x0,0x2 482e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 482f 01d7 | | Execute Vector,Field_Read 4830 01d7 | | Execute Vector,Field_Read 4831 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 4832 01ce | | Execute Vector,Slice_Write 4833 00c8 | | Action Pop_Auxiliary_Range 4834 3fd6 |? | Loop_Increasing 0x480b 4835 00ce | | Action Pop_Auxiliary 4836 e5fa | | Load 0x2,-0x6 4837 0f00 | | Execute_Immediate Equal,0x0 4838 e5f9 | | Load 0x2,-0x7 4839 0f01 | | Execute_Immediate Equal,0x1 483a 0279 | y | Execute Discrete,And 483b 682e |h. | Jump_Zero 0x486a 483c e606 | | Load 0x3,0x6 483d e001 | | Load 0x0,0x1 483e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 483f 00d1 | | Pop_Control Pop_Count_1 4840 4be7 |K | Short_Literal 0x3e7 4841 4802 |H | Short_Literal 0x2 4842 4be7 |K | Short_Literal 0x3e7 4843 4802 |H | Short_Literal 0x2 4844 4802 |H | Short_Literal 0x2 4845 4be7 |K | Short_Literal 0x3e7 4846 4be7 |K | Short_Literal 0x3e7 4847 e606 | | Load 0x3,0x6 4848 e002 | | Load 0x0,0x2 4849 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 484a e5ff | | Load 0x2,-0x1 484b 0a02 | | Execute_Immediate Plus,0x2 484c 0248 | H | Execute Discrete,Check_In_Integer 484d 8251 | Q | Call 0x1,0x51 484e e60d | | Load 0x3,0xd 484f e001 | | Load 0x0,0x1 4850 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 4851 00d1 | | Pop_Control Pop_Count_1 4852 e5fd | | Load 0x2,-0x3 4853 e002 | | Load 0x0,0x2 4854 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4855 01d5 | | Execute Vector,Field_Reference 4856 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 4857 a60c | | Store_Unchecked 0x3,0xc 4858 e60c | | Load 0x3,0xc 4859 0c01 | | Execute_Immediate Greater_Equal,0x1 485a 680f |h | Jump_Zero 0x486a 485b 4be7 |K | Short_Literal 0x3e7 485c 4802 |H | Short_Literal 0x2 485d 4be7 |K | Short_Literal 0x3e7 485e 4802 |H | Short_Literal 0x2 485f 4802 |H | Short_Literal 0x2 4860 4be7 |K | Short_Literal 0x3e7 4861 4be7 |K | Short_Literal 0x3e7 4862 4801 |H | Short_Literal 0x1 4863 4805 |H | Short_Literal 0x5 4864 e60d | | Load 0x3,0xd 4865 01cf | | Execute Vector,Slice_Read 4866 e002 | | Load 0x0,0x2 4867 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4868 e60c | | Load 0x3,0xc 4869 8251 | Q | Call 0x1,0x51 486a e5fb | | Load 0x2,-0x5 486b 0f01 | | Execute_Immediate Equal,0x1 486c 682c |h, | Jump_Zero 0x4899 486d e002 | | Load 0x0,0x2 486e 18a3 | | Execute Package,Field_Execute,Field_Number 0xa3 486f 4850 |HP | Short_Literal 0x50 4870 4801 |H | Short_Literal 0x1 4871 e001 | | Load 0x0,0x1 4872 1b0f | | Execute Package,Field_Read,Field_Number 0xf 4873 e001 | | Load 0x0,0x1 4874 1b0e | | Execute Package,Field_Read,Field_Number 0xe 4875 0273 | s | Execute Discrete,Plus 4876 0248 | H | Execute Discrete,Check_In_Integer 4877 e001 | | Load 0x0,0x1 4878 1b0f | | Execute Package,Field_Read,Field_Number 0xf 4879 0a01 | | Execute_Immediate Plus,0x1 487a 0248 | H | Execute Discrete,Check_In_Integer 487b e001 | | Load 0x0,0x1 487c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 487d 4be7 |K | Short_Literal 0x3e7 487e 4802 |H | Short_Literal 0x2 487f 4be7 |K | Short_Literal 0x3e7 4880 4802 |H | Short_Literal 0x2 4881 4802 |H | Short_Literal 0x2 4882 4be7 |K | Short_Literal 0x3e7 4883 4be7 |K | Short_Literal 0x3e7 4884 0092 65bc | e | Action Push_String_Extended,0x65bc ; " (new) " 4886 e002 | | Load 0x0,0x2 4887 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4888 e5ff | | Load 0x2,-0x1 4889 0a01 | | Execute_Immediate Plus,0x1 488a 0248 | H | Execute Discrete,Check_In_Integer 488b 8251 | Q | Call 0x1,0x51 488c e002 | | Load 0x0,0x2 488d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 488e 4800 |H | Short_Literal 0x0 488f 4802 |H | Short_Literal 0x2 4890 4801 |H | Short_Literal 0x1 4891 4800 |H | Short_Literal 0x0 4892 4800 |H | Short_Literal 0x0 4893 4800 |H | Short_Literal 0x0 4894 e5fd | | Load 0x2,-0x3 4895 e5fe | | Load 0x2,-0x2 4896 e5ff | | Load 0x2,-0x1 4897 8249 | I | Call 0x1,0x49 4898 00d1 | | Pop_Control Pop_Count_1 4899 e5fc | | Load 0x2,-0x4 489a 7002 |p | Jump_Nonzero 0x489d 489b 00cc | | Action Pop_Block 489c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 489d 00cf | | Action Mark_Auxiliary 489e 0007 | | Action Break_Optional 489f e5fb | | Load 0x2,-0x5 48a0 0f01 | | Execute_Immediate Equal,0x1 48a1 682c |h, | Jump_Zero 0x48ce 48a2 e605 | | Load 0x3,0x5 48a3 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 48a5 4803 |H | Short_Literal 0x3 48a6 0092 65bd | e | Action Push_String_Extended,0x65bd ; "Ok to save this report into the file? y=ok, n=abort" 48a8 e001 | | Load 0x0,0x1 48a9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 48aa 00d1 | | Pop_Control Pop_Count_1 48ab 4801 |H | Short_Literal 0x1 48ac 4801 |H | Short_Literal 0x1 48ad e605 | | Load 0x3,0x5 48ae 01cf | | Execute Vector,Slice_Read 48af 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 48b1 01df | | Execute Vector,Equal 48b2 680e |h | Jump_Zero 0x48c1 48b3 4800 |H | Short_Literal 0x0 48b4 4804 |H | Short_Literal 0x4 48b5 0092 65be | e | Action Push_String_Extended,0x65be ; "Result => Report not added to file. " 48b7 e001 | | Load 0x0,0x1 48b8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 48b9 0092 65ab | e | Action Push_String_Extended,0x65ab ; "erusr" 48bb e5fd | | Load 0x2,-0x3 48bc e002 | | Load 0x0,0x2 48bd 1b96 | | Execute Package,Field_Read,Field_Number 0x96 48be 01d5 | | Execute Vector,Field_Reference 48bf 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 48c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 48c1 0007 | | Action Break_Optional 48c2 4850 |HP | Short_Literal 0x50 48c3 4801 |H | Short_Literal 0x1 48c4 e001 | | Load 0x0,0x1 48c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 48c6 0a03 | | Execute_Immediate Plus,0x3 48c7 0248 | H | Execute Discrete,Check_In_Integer 48c8 e001 | | Load 0x0,0x1 48c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 48ca 0a02 | | Execute_Immediate Plus,0x2 48cb 0248 | H | Execute Discrete,Check_In_Integer 48cc e001 | | Load 0x0,0x1 48cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 48ce e5fa | | Load 0x2,-0x6 48cf 7015 |p | Jump_Nonzero 0x48e5 48d0 e5fd | | Load 0x2,-0x3 48d1 e002 | | Load 0x0,0x2 48d2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 48d3 01d7 | | Execute Vector,Field_Read 48d4 00d8 | | Load_Top At_Offset_0 48d5 4800 |H | Short_Literal 0x0 48d6 e5fd | | Load 0x2,-0x3 48d7 e002 | | Load 0x0,0x2 48d8 189d | | Execute Package,Field_Execute,Field_Number 0x9d 48d9 00d2 | | Pop_Control Pop_Count_2 48da e5fd | | Load 0x2,-0x3 48db e002 | | Load 0x0,0x2 48dc 1b96 | | Execute Package,Field_Read,Field_Number 0x96 48dd 01d5 | | Execute Vector,Field_Reference 48de 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 48df a604 | | Store_Unchecked 0x3,0x4 48e0 e604 | | Load 0x3,0x4 48e1 0a01 | | Execute_Immediate Plus,0x1 48e2 0248 | H | Execute Discrete,Check_In_Integer 48e3 a602 | | Store_Unchecked 0x3,0x2 48e4 7802 |x | Jump 0x48e7 48e5 e5fa | | Load 0x2,-0x6 48e6 a602 | | Store_Unchecked 0x3,0x2 48e7 e603 | | Load 0x3,0x3 48e8 e001 | | Load 0x0,0x1 48e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 48ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11 48eb e602 | | Load 0x3,0x2 48ec e001 | | Load 0x0,0x1 48ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14 48ee 1817 | | Execute Package,Field_Execute,Field_Number 0x17 48ef 00d1 | | Pop_Control Pop_Count_1 48f0 e5fd | | Load 0x2,-0x3 48f1 e002 | | Load 0x0,0x2 48f2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 48f3 01d5 | | Execute Vector,Field_Reference 48f4 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 48f5 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 48f7 01de | | Execute Vector,Not_Equal 48f8 6819 |h | Jump_Zero 0x4912 48f9 4800 |H | Short_Literal 0x0 48fa 4803 |H | Short_Literal 0x3 48fb 0092 65bf | e | Action Push_String_Extended,0x65bf ; "Result => Open error on master file, may not exist, index= " 48fd e603 | | Load 0x3,0x3 48fe 01cc | | Execute Vector,Catenate 48ff e001 | | Load 0x0,0x1 4900 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4901 4801 |H | Short_Literal 0x1 4902 4804 |H | Short_Literal 0x4 4903 0092 65c0 | e | Action Push_String_Extended,0x65c0 ; "Please notify Customer Support of add file open problem." 4905 e001 | | Load 0x0,0x1 4906 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4907 e5fd | | Load 0x2,-0x3 4908 e002 | | Load 0x0,0x2 4909 1b96 | | Execute Package,Field_Read,Field_Number 0x96 490a 01d5 | | Execute Vector,Field_Reference 490b 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 490c e5fd | | Load 0x2,-0x3 490d e002 | | Load 0x0,0x2 490e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 490f 01d5 | | Execute Vector,Field_Reference 4910 380f |8 | Execute Record,Field_Write,Field_Number 0xf 4911 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4912 e602 | | Load 0x3,0x2 4913 e5fd | | Load 0x2,-0x3 4914 e002 | | Load 0x0,0x2 4915 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4916 01d5 | | Execute Vector,Field_Reference 4917 380f |8 | Execute Record,Field_Write,Field_Number 0xf 4918 e602 | | Load 0x3,0x2 4919 e5fd | | Load 0x2,-0x3 491a e002 | | Load 0x0,0x2 491b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 491c 01d5 | | Execute Vector,Field_Reference 491d 380f |8 | Execute Record,Field_Write,Field_Number 0xf 491e 4be7 |K | Short_Literal 0x3e7 491f 4802 |H | Short_Literal 0x2 4920 4be7 |K | Short_Literal 0x3e7 4921 4802 |H | Short_Literal 0x2 4922 4802 |H | Short_Literal 0x2 4923 4be7 |K | Short_Literal 0x3e7 4924 4be7 |K | Short_Literal 0x3e7 4925 e603 | | Load 0x3,0x3 4926 e002 | | Load 0x0,0x2 4927 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4928 e5ff | | Load 0x2,-0x1 4929 0a01 | | Execute_Immediate Plus,0x1 492a 0248 | H | Execute Discrete,Check_In_Integer 492b 8251 | Q | Call 0x1,0x51 492c e5fd | | Load 0x2,-0x3 492d e002 | | Load 0x0,0x2 492e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 492f 01d7 | | Execute Vector,Field_Read 4930 3c24 |<$ | Execute Record,Field_Read,Field_Number 0x24 4931 00e2 | | Load_Encached Integer_Cache 4932 e610 | | Load 0x3,0x10 4933 e002 | | Load 0x0,0x2 4934 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4935 e5fe | | Load 0x2,-0x2 4936 e5ff | | Load 0x2,-0x1 4937 8228 | ( | Call 0x1,0x28 4938 00d1 | | Pop_Control Pop_Count_1 4939 e002 | | Load 0x0,0x2 493a 1a3c | < | Execute Package,Field_Write,Field_Number 0x3c 493b 00d1 | | Pop_Control Pop_Count_1 493c 0007 | | Action Break_Optional 493d e5fd | | Load 0x2,-0x3 493e e002 | | Load 0x0,0x2 493f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4940 01d5 | | Execute Vector,Field_Reference 4941 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 4942 e5fd | | Load 0x2,-0x3 4943 e002 | | Load 0x0,0x2 4944 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4945 01d5 | | Execute Vector,Field_Reference 4946 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4947 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 4948 4801 |H | Short_Literal 0x1 4949 e5fd | | Load 0x2,-0x3 494a e002 | | Load 0x0,0x2 494b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 494c 01d5 | | Execute Vector,Field_Reference 494d 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 494e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 494f 4802 |H | Short_Literal 0x2 4950 e5fd | | Load 0x2,-0x3 4951 e002 | | Load 0x0,0x2 4952 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4953 01d5 | | Execute Vector,Field_Reference 4954 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4955 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 4956 4800 |H | Short_Literal 0x0 4957 e5fd | | Load 0x2,-0x3 4958 e002 | | Load 0x0,0x2 4959 1b96 | | Execute Package,Field_Read,Field_Number 0x96 495a 01d5 | | Execute Vector,Field_Reference 495b 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 495c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 495d 4800 |H | Short_Literal 0x0 495e e5fd | | Load 0x2,-0x3 495f e002 | | Load 0x0,0x2 4960 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4961 01d5 | | Execute Vector,Field_Reference 4962 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 4963 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 4964 4800 |H | Short_Literal 0x0 4965 e5fd | | Load 0x2,-0x3 4966 e002 | | Load 0x0,0x2 4967 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4968 01d5 | | Execute Vector,Field_Reference 4969 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 496a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 496b e5fd | | Load 0x2,-0x3 496c e002 | | Load 0x0,0x2 496d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 496e 01d7 | | Execute Vector,Field_Read 496f 00d8 | | Load_Top At_Offset_0 4970 e002 | | Load 0x0,0x2 4971 1b80 | | Execute Package,Field_Read,Field_Number 0x80 4972 e5fd | | Load 0x2,-0x3 4973 e002 | | Load 0x0,0x2 4974 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0 4975 00d2 | | Pop_Control Pop_Count_2 4976 e5fd | | Load 0x2,-0x3 4977 e002 | | Load 0x0,0x2 4978 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4979 01d5 | | Execute Vector,Field_Reference 497a 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 497b 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 497d 01df | | Execute Vector,Equal 497e 6815 |h | Jump_Zero 0x4994 497f e5fb | | Load 0x2,-0x5 4980 0f01 | | Execute_Immediate Equal,0x1 4981 6811 |h | Jump_Zero 0x4993 4982 e5fd | | Load 0x2,-0x3 4983 e5fe | | Load 0x2,-0x2 4984 e5ff | | Load 0x2,-0x1 4985 8238 | 8 | Call 0x1,0x38 4986 0092 65c1 | e | Action Push_String_Extended,0x65c1 ; "Database Updated, record # " 4988 e001 | | Load 0x0,0x1 4989 181d | | Execute Package,Field_Execute,Field_Number 0x1d 498a e5fd | | Load 0x2,-0x3 498b e002 | | Load 0x0,0x2 498c 1b96 | | Execute Package,Field_Read,Field_Number 0x96 498d 01d5 | | Execute Vector,Field_Reference 498e 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 498f e001 | | Load 0x0,0x1 4990 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4991 e001 | | Load 0x0,0x1 4992 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4993 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4994 4801 |H | Short_Literal 0x1 4995 4804 |H | Short_Literal 0x4 4996 0092 65c2 | e | Action Push_String_Extended,0x65c2 ; "Result => Error, record not written, index= " 4998 e001 | | Load 0x0,0x1 4999 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 499a e5fd | | Load 0x2,-0x3 499b e002 | | Load 0x0,0x2 499c 1b96 | | Execute Package,Field_Read,Field_Number 0x96 499d 01d5 | | Execute Vector,Field_Reference 499e 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 499f e001 | | Load 0x0,0x1 49a0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 49a1 e605 | | Load 0x3,0x5 49a2 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 49a4 4804 |H | Short_Literal 0x4 49a5 0092 65c3 | e | Action Push_String_Extended,0x65c3 ; "Do you want to retry to write this report again? " 49a7 e001 | | Load 0x0,0x1 49a8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 49a9 00d1 | | Pop_Control Pop_Count_1 49aa 4801 |H | Short_Literal 0x1 49ab 4801 |H | Short_Literal 0x1 49ac e605 | | Load 0x3,0x5 49ad 01cf | | Execute Vector,Slice_Read 49ae 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 49b0 01df | | Execute Vector,Equal 49b1 6801 |h | Jump_Zero 0x49b3 49b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 49b3 4801 |H | Short_Literal 0x1 49b4 4804 |H | Short_Literal 0x4 49b5 0092 65c4 | e | Action Push_String_Extended,0x65c4 ; "Retrying to try to recover from file update error." 49b7 e001 | | Load 0x0,0x1 49b8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 49b9 00c9 | | Action Pop_Auxiliary_Loop 49ba 7ee4 |~ | Jump 0x489f 49bb TRAP_47b0: 49bb 0007 | | Action Break_Optional 49bc 4801 |H | Short_Literal 0x1 49bd 4804 |H | Short_Literal 0x4 49be 0092 65c5 | e | Action Push_String_Extended,0x65c5 ; "Exception found in ap_sub_add_new_item" 49c0 e001 | | Load 0x0,0x1 49c1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 49c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 49c3 0000 | | .XXX[0x1] 49c4 0000 0000 | | .LITERAL {0x00000000, 0x00008ccd} ; See at 0x4592 49c8 2020 2020 | | .BLANK 2020[0x4] 49cc 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 49d0 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 49d4 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 49d8 ; -------------------------------------------------------------------------------------- 49d8 ; SUBPROGRAM 49d8 ; -------------------------------------------------------------------------------------- 49d8 49db |I | .CONST 0x49db ; Address of begin 49d9 49f8 |I | .CONST 0x49f8 ; Address of exception handler 49da 0001 | | .CONST 0x0001 ; Number of locals 49db BODY_49d8: 49db INIT_49d8: 49db e408 | | Load 0x2,0x8 49dc 00ea | | Load_Encached Null_String_Cache 49dd 4801 |H | Short_Literal 0x1 49de e406 | | Load 0x2,0x6 49df e405 | | Load 0x2,0x5 49e0 01cf | | Execute Vector,Slice_Read 49e1 4801 |H | Short_Literal 0x1 49e2 e004 | | Load 0x0,0x4 49e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 49e4 c408 | | Store 0x2,0x8 49e5 e408 | | Load 0x2,0x8 49e6 e004 | | Load 0x0,0x4 49e7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 49e8 c408 | | Store 0x2,0x8 49e9 e5fa | | Load 0x2,-0x6 49ea 7008 |p | Jump_Nonzero 0x49f3 49eb 0092 65c6 | e | Action Push_String_Extended,0x65c6 ; "Detail deleted ok." 49ed e001 | | Load 0x0,0x1 49ee 181d | | Execute Package,Field_Execute,Field_Number 0x1d 49ef e001 | | Load 0x0,0x1 49f0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 49f1 e001 | | Load 0x0,0x1 49f2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 49f3 e408 | | Load 0x2,0x8 49f4 e004 | | Load 0x0,0x4 49f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 49f6 c408 | | Store 0x2,0x8 49f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 49f8 TRAP_49d8: 49f8 0007 | | Action Break_Optional 49f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 49fa 0000 0000 | | .BLANK 0000[0x6] 4a00 ; -------------------------------------------------------------------------------------- 4a00 ; SUBPROGRAM 4a00 ; -------------------------------------------------------------------------------------- 4a00 4a22 |J" | .CONST 0x4a22 ; Address of begin 4a01 4af7 |J | .CONST 0x4af7 ; Address of exception handler 4a02 0007 | | .CONST 0x0007 ; Number of locals 4a03 INIT_4a00: 4a03 e002 | | Load 0x0,0x2 4a04 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 4a05 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4a06 4801 |H | Short_Literal 0x1 4a07 4801 |H | Short_Literal 0x1 4a08 00e9 | | Load_Encached String_Cache 4a09 0334 | 4 | Declare_Variable Array,With_Constraint 4a0a 5335 |S5 | Indirect_Literal Any,0x4d40,{0x20202020, 0x20202020} 4a0b 00e2 | | Load_Encached Integer_Cache 4a0c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4a0d 00e2 | | Load_Encached Integer_Cache 4a0e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4a0f 4801 |H | Short_Literal 0x1 4a10 4850 |HP | Short_Literal 0x50 4a11 00e9 | | Load_Encached String_Cache 4a12 0334 | 4 | Declare_Variable Array,With_Constraint 4a13 4801 |H | Short_Literal 0x1 4a14 4850 |HP | Short_Literal 0x50 4a15 00e9 | | Load_Encached String_Cache 4a16 0334 | 4 | Declare_Variable Array,With_Constraint 4a17 4850 |HP | Short_Literal 0x50 4a18 4801 |H | Short_Literal 0x1 4a19 4820 |H | Short_Literal 0x20 4a1a e609 | | Load 0x3,0x9 4a1b e607 | | Load 0x3,0x7 4a1c 01d6 | | Execute Vector,Field_Write 4a1d 3ffb |? | Loop_Increasing 0x4a19 4a1e e606 | | Load 0x3,0x6 4a1f 01d4 | | Execute Vector,Structure_Write 4a20 00e2 | | Load_Encached Integer_Cache 4a21 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4a22 BODY_4a00: 4a22 4801 |H | Short_Literal 0x1 4a23 a602 | | Store_Unchecked 0x3,0x2 4a24 00cf | | Action Mark_Auxiliary 4a25 0007 | | Action Break_Optional 4a26 e5fd | | Load 0x2,-0x3 4a27 0f01 | | Execute_Immediate Equal,0x1 4a28 6853 |hS | Jump_Zero 0x4a7c 4a29 4800 |H | Short_Literal 0x0 4a2a 4801 |H | Short_Literal 0x1 4a2b 0092 65c7 | e | Action Push_String_Extended,0x65c7 ; "Search selection for field to search on:" 4a2d e001 | | Load 0x0,0x1 4a2e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4a2f e5fb | | Load 0x2,-0x5 4a30 e002 | | Load 0x0,0x2 4a31 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a32 01d5 | | Execute Vector,Field_Reference 4a33 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 4a34 a605 | | Store_Unchecked 0x3,0x5 4a35 00cf | | Action Mark_Auxiliary 4a36 0007 | | Action Break_Optional 4a37 e604 | | Load 0x3,0x4 4a38 e605 | | Load 0x3,0x5 4a39 4802 |H | Short_Literal 0x2 4a3a 0092 65c8 | e | Action Push_String_Extended,0x65c8 ; "Enter desired field number to search on:(0 to see choices) " 4a3c e001 | | Load 0x0,0x1 4a3d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 4a3e c604 | | Store 0x3,0x4 4a3f e604 | | Load 0x3,0x4 4a40 700b |p | Jump_Nonzero 0x4a4c 4a41 4801 |H | Short_Literal 0x1 4a42 4801 |H | Short_Literal 0x1 4a43 4801 |H | Short_Literal 0x1 4a44 4801 |H | Short_Literal 0x1 4a45 e5fb | | Load 0x2,-0x5 4a46 e5fe | | Load 0x2,-0x2 4a47 e5ff | | Load 0x2,-0x1 4a48 8246 | F | Call 0x1,0x46 4a49 7800 |x | Jump 0x4a4a 4a4a 00c9 | | Action Pop_Auxiliary_Loop 4a4b 7feb | | Jump 0x4a37 4a4c 00ce | | Action Pop_Auxiliary 4a4d 0007 | | Action Break_Optional 4a4e 0092 65c9 | e | Action Push_String_Extended,0x65c9 ; "Please enter search text to search for in this field:[" 4a50 4801 |H | Short_Literal 0x1 4a51 e5fb | | Load 0x2,-0x5 4a52 e002 | | Load 0x0,0x2 4a53 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a54 01d5 | | Execute Vector,Field_Reference 4a55 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 4a56 e5fb | | Load 0x2,-0x5 4a57 e002 | | Load 0x0,0x2 4a58 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a59 01d5 | | Execute Vector,Field_Reference 4a5a 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 4a5b 01cf | | Execute Vector,Slice_Read 4a5c 01cc | | Execute Vector,Catenate 4a5d 0092 65ca | e | Action Push_String_Extended,0x65ca ; "]:" 4a5f 01cc | | Execute Vector,Catenate 4a60 e001 | | Load 0x0,0x1 4a61 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4a62 e607 | | Load 0x3,0x7 4a63 e606 | | Load 0x3,0x6 4a64 4801 |H | Short_Literal 0x1 4a65 e001 | | Load 0x0,0x1 4a66 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 4a67 00d1 | | Pop_Control Pop_Count_1 4a68 c607 | | Store 0x3,0x7 4a69 e607 | | Load 0x3,0x7 4a6a 0aff | | Execute_Immediate Plus,-0x1 4a6b 0248 | H | Execute Discrete,Check_In_Integer 4a6c a607 | | Store_Unchecked 0x3,0x7 4a6d e607 | | Load 0x3,0x7 4a6e 700d |p | Jump_Nonzero 0x4a7c 4a6f e5fb | | Load 0x2,-0x5 4a70 e002 | | Load 0x0,0x2 4a71 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a72 01d5 | | Execute Vector,Field_Reference 4a73 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 4a74 a607 | | Store_Unchecked 0x3,0x7 4a75 e5fb | | Load 0x2,-0x5 4a76 e002 | | Load 0x0,0x2 4a77 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a78 01d5 | | Execute Vector,Field_Reference 4a79 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 4a7a e606 | | Load 0x3,0x6 4a7b 01d4 | | Execute Vector,Structure_Write 4a7c e5fd | | Load 0x2,-0x3 4a7d 7029 |p) | Jump_Nonzero 0x4aa7 4a7e 0092 65cb | e | Action Push_String_Extended,0x65cb ; "Search from:" 4a80 e001 | | Load 0x0,0x1 4a81 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4a82 e5fb | | Load 0x2,-0x5 4a83 e002 | | Load 0x0,0x2 4a84 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a85 01d5 | | Execute Vector,Field_Reference 4a86 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 4a87 e001 | | Load 0x0,0x1 4a88 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4a89 0092 65cc | e | Action Push_String_Extended,0x65cc ; ", field: " 4a8b e001 | | Load 0x0,0x1 4a8c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4a8d e5fb | | Load 0x2,-0x5 4a8e e002 | | Load 0x0,0x2 4a8f 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a90 01d5 | | Execute Vector,Field_Reference 4a91 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 4a92 e001 | | Load 0x0,0x1 4a93 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4a94 0092 65cd | e | Action Push_String_Extended,0x65cd ; ", Match: " 4a96 4801 |H | Short_Literal 0x1 4a97 e5fb | | Load 0x2,-0x5 4a98 e002 | | Load 0x0,0x2 4a99 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a9a 01d5 | | Execute Vector,Field_Reference 4a9b 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 4a9c e5fb | | Load 0x2,-0x5 4a9d e002 | | Load 0x0,0x2 4a9e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4a9f 01d5 | | Execute Vector,Field_Reference 4aa0 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 4aa1 01cf | | Execute Vector,Slice_Read 4aa2 01cc | | Execute Vector,Catenate 4aa3 e001 | | Load 0x0,0x1 4aa4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4aa5 e001 | | Load 0x0,0x1 4aa6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4aa7 e5fc | | Load 0x2,-0x4 4aa8 0f01 | | Execute_Immediate Equal,0x1 4aa9 6802 |h | Jump_Zero 0x4aac 4aaa 00cc | | Action Pop_Block 4aab 450d |E | Exit_Suprogram New_Top_Offset 0xd 4aac e5fb | | Load 0x2,-0x5 4aad e002 | | Load 0x0,0x2 4aae 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4aaf 01d7 | | Execute Vector,Field_Read 4ab0 e602 | | Load 0x3,0x2 4ab1 e609 | | Load 0x3,0x9 4ab2 4800 |H | Short_Literal 0x0 4ab3 e607 | | Load 0x3,0x7 4ab4 4801 |H | Short_Literal 0x1 4ab5 e607 | | Load 0x3,0x7 4ab6 e606 | | Load 0x3,0x6 4ab7 01cf | | Execute Vector,Slice_Read 4ab8 e604 | | Load 0x3,0x4 4ab9 e5fd | | Load 0x2,-0x3 4aba 4801 |H | Short_Literal 0x1 4abb e002 | | Load 0x0,0x2 4abc 1b7f | | Execute Package,Field_Read,Field_Number 0x7f 4abd e5fb | | Load 0x2,-0x5 4abe 8227 | ' | Call 0x1,0x27 4abf 00d1 | | Pop_Control Pop_Count_1 4ac0 c602 | | Store 0x3,0x2 4ac1 00d1 | | Pop_Control Pop_Count_1 4ac2 e602 | | Load 0x3,0x2 4ac3 0f01 | | Execute_Immediate Equal,0x1 4ac4 6814 |h | Jump_Zero 0x4ad9 4ac5 4801 |H | Short_Literal 0x1 4ac6 4804 |H | Short_Literal 0x4 4ac7 0092 65ce | e | Action Push_String_Extended,0x65ce ; "No match found." 4ac9 e001 | | Load 0x0,0x1 4aca 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4acb 0092 65cf | e | Action Push_String_Extended,0x65cf ; "se no" 4acd e5fb | | Load 0x2,-0x5 4ace e002 | | Load 0x0,0x2 4acf 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4ad0 01d5 | | Execute Vector,Field_Reference 4ad1 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 4ad2 4801 |H | Short_Literal 0x1 4ad3 e5fb | | Load 0x2,-0x5 4ad4 e002 | | Load 0x0,0x2 4ad5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4ad6 01d5 | | Execute Vector,Field_Reference 4ad7 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 4ad8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4ad9 0007 | | Action Break_Optional 4ada e5fb | | Load 0x2,-0x5 4adb e002 | | Load 0x0,0x2 4adc 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4add 01d5 | | Execute Vector,Field_Reference 4ade 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 4adf e5fb | | Load 0x2,-0x5 4ae0 e002 | | Load 0x0,0x2 4ae1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4ae2 01d5 | | Execute Vector,Field_Reference 4ae3 380f |8 | Execute Record,Field_Write,Field_Number 0xf 4ae4 e5f4 | | Load 0x2,-0xc 4ae5 e5f5 | | Load 0x2,-0xb 4ae6 e5f6 | | Load 0x2,-0xa 4ae7 e5f7 | | Load 0x2,-0x9 4ae8 e5f8 | | Load 0x2,-0x8 4ae9 e5f9 | | Load 0x2,-0x7 4aea 4800 |H | Short_Literal 0x0 4aeb e5fa | | Load 0x2,-0x6 4aec e5fb | | Load 0x2,-0x5 4aed e002 | | Load 0x0,0x2 4aee 1b96 | | Execute Package,Field_Read,Field_Number 0x96 4aef 01d5 | | Execute Vector,Field_Reference 4af0 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 4af1 4801 |H | Short_Literal 0x1 4af2 e5fb | | Load 0x2,-0x5 4af3 e5fe | | Load 0x2,-0x2 4af4 e5ff | | Load 0x2,-0x1 4af5 822d | - | Call 0x1,0x2d 4af6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4af7 TRAP_4a00: 4af7 0007 | | Action Break_Optional 4af8 4801 |H | Short_Literal 0x1 4af9 4804 |H | Short_Literal 0x4 4afa 0092 65d0 | e | Action Push_String_Extended,0x65d0 ; "Exception found in ap_sub_search_for_item" 4afc e001 | | Load 0x0,0x1 4afd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4afe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4aff 0000 | | .XXX[0x1] 4b00 ; -------------------------------------------------------------------------------------- 4b00 ; SUBPROGRAM 4b00 ; -------------------------------------------------------------------------------------- 4b00 4b16 |K | .CONST 0x4b16 ; Address of begin 4b01 0004 | | .CONST 0x0004 ; Address of exception handler 4b02 0003 | | .CONST 0x0003 ; Number of locals 4b03 INIT_4b00: 4b03 4801 |H | Short_Literal 0x1 4b04 481e |H | Short_Literal 0x1e 4b05 00e9 | | Load_Encached String_Cache 4b06 0334 | 4 | Declare_Variable Array,With_Constraint 4b07 4801 |H | Short_Literal 0x1 4b08 481e |H | Short_Literal 0x1e 4b09 00e9 | | Load_Encached String_Cache 4b0a 0334 | 4 | Declare_Variable Array,With_Constraint 4b0b 481e |H | Short_Literal 0x1e 4b0c 4801 |H | Short_Literal 0x1 4b0d 4820 |H | Short_Literal 0x20 4b0e e605 | | Load 0x3,0x5 4b0f e603 | | Load 0x3,0x3 4b10 01d6 | | Execute Vector,Field_Write 4b11 3ffb |? | Loop_Increasing 0x4b0d 4b12 e602 | | Load 0x3,0x2 4b13 01d4 | | Execute Vector,Structure_Write 4b14 00e2 | | Load_Encached Integer_Cache 4b15 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4b16 BODY_4b00: 4b16 0092 65d1 | e | Action Push_String_Extended,0x65d1 ; "Please enter a password before initializing the master file:" 4b18 e001 | | Load 0x0,0x1 4b19 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4b1a 00d8 | | Load_Top At_Offset_0 4b1b e602 | | Load 0x3,0x2 4b1c 4801 |H | Short_Literal 0x1 4b1d e001 | | Load 0x0,0x1 4b1e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 4b1f 00d1 | | Pop_Control Pop_Count_1 4b20 c603 | | Store 0x3,0x3 4b21 00d8 | | Load_Top At_Offset_0 4b22 0aff | | Execute_Immediate Plus,-0x1 4b23 0248 | H | Execute Discrete,Check_In_Integer 4b24 a603 | | Store_Unchecked 0x3,0x3 4b25 4801 |H | Short_Literal 0x1 4b26 4807 |H | Short_Literal 0x7 4b27 e602 | | Load 0x3,0x2 4b28 01cf | | Execute Vector,Slice_Read 4b29 4801 |H | Short_Literal 0x1 4b2a 4807 |H | Short_Literal 0x7 4b2b e404 | | Load 0x2,0x4 4b2c 01cf | | Execute Vector,Slice_Read 4b2d 01de | | Execute Vector,Not_Equal 4b2e 6808 |h | Jump_Zero 0x4b37 4b2f 4800 |H | Short_Literal 0x0 4b30 4804 |H | Short_Literal 0x4 4b31 0092 65d2 | e | Action Push_String_Extended,0x65d2 ; "Result => Sorry, incorrect password, file not initialized." 4b33 e001 | | Load 0x0,0x1 4b34 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4b35 00cc | | Action Pop_Block 4b36 4504 |E | Exit_Suprogram New_Top_Offset 0x4 4b37 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4b38 ; -------------------------------------------------------------------------------------- 4b38 ; SUBPROGRAM 4b38 ; -------------------------------------------------------------------------------------- 4b38 4b5b |K[ | .CONST 0x4b5b ; Address of begin 4b39 0004 | | .CONST 0x0004 ; Address of exception handler 4b3a 000e | | .CONST 0x000e ; Number of locals 4b3b INIT_4b38: 4b3b e002 | | Load 0x0,0x2 4b3c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 4b3d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4b3e 4801 |H | Short_Literal 0x1 4b3f 4801 |H | Short_Literal 0x1 4b40 00e9 | | Load_Encached String_Cache 4b41 0334 | 4 | Declare_Variable Array,With_Constraint 4b42 5201 |R | Indirect_Literal Any,0x4d44,{0x20202020, 0x20202020} 4b43 e002 | | Load 0x0,0x2 4b44 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 4b45 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4b46 e002 | | Load 0x0,0x2 4b47 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 4b48 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4b49 00e2 | | Load_Encached Integer_Cache 4b4a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b4b 00e2 | | Load_Encached Integer_Cache 4b4c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b4d 00e2 | | Load_Encached Integer_Cache 4b4e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b4f 00e1 | | Load_Encached Boolean_Cache 4b50 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b51 00e2 | | Load_Encached Integer_Cache 4b52 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b53 00e1 | | Load_Encached Boolean_Cache 4b54 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b55 00e2 | | Load_Encached Integer_Cache 4b56 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4b57 029f 6063 | `c| Declare_Subprogram INIT_6060,For_Call 4b59 029f 608b | ` | Declare_Subprogram INIT_6088,For_Call 4b5b BODY_4b38: 4b5b e5fb | | Load 0x2,-0x5 4b5c 0f01 | | Execute_Immediate Equal,0x1 4b5d 6803 |h | Jump_Zero 0x4b61 4b5e 4801 |H | Short_Literal 0x1 4b5f a604 | | Store_Unchecked 0x3,0x4 4b60 7820 |x | Jump 0x4b81 4b61 e002 | | Load 0x0,0x2 4b62 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 4b63 a602 | | Store_Unchecked 0x3,0x2 4b64 e603 | | Load 0x3,0x3 4b65 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 4b67 4801 |H | Short_Literal 0x1 4b68 0092 65d3 | e | Action Push_String_Extended,0x65d3 ; "Do you want records to be logged to the log file?" 4b6a e001 | | Load 0x0,0x1 4b6b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 4b6c 00d1 | | Pop_Control Pop_Count_1 4b6d 4801 |H | Short_Literal 0x1 4b6e 4801 |H | Short_Literal 0x1 4b6f e603 | | Load 0x3,0x3 4b70 01cf | | Execute Vector,Slice_Read 4b71 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 4b73 01df | | Execute Vector,Equal 4b74 6807 |h | Jump_Zero 0x4b7c 4b75 4800 |H | Short_Literal 0x0 4b76 e002 | | Load 0x0,0x2 4b77 1a24 | $ | Execute Package,Field_Write,Field_Number 0x24 4b78 4800 |H | Short_Literal 0x0 4b79 a604 | | Store_Unchecked 0x3,0x4 4b7a 860d | | Call 0x3,0xd 4b7b 7805 |x | Jump 0x4b81 4b7c 4801 |H | Short_Literal 0x1 4b7d e002 | | Load 0x0,0x2 4b7e 1a24 | $ | Execute Package,Field_Write,Field_Number 0x24 4b7f 4801 |H | Short_Literal 0x1 4b80 a604 | | Store_Unchecked 0x3,0x4 4b81 e5fb | | Load 0x2,-0x5 4b82 0f01 | | Execute_Immediate Equal,0x1 4b83 6803 |h | Jump_Zero 0x4b87 4b84 4800 |H | Short_Literal 0x0 4b85 a605 | | Store_Unchecked 0x3,0x5 4b86 7816 |x | Jump 0x4b9d 4b87 e603 | | Load 0x3,0x3 4b88 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 4b8a 4802 |H | Short_Literal 0x2 4b8b 0092 65d4 | e | Action Push_String_Extended,0x65d4 ; "Do you want to display records on the crt?" 4b8d e001 | | Load 0x0,0x1 4b8e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 4b8f 00d1 | | Pop_Control Pop_Count_1 4b90 4801 |H | Short_Literal 0x1 4b91 4801 |H | Short_Literal 0x1 4b92 e603 | | Load 0x3,0x3 4b93 01cf | | Execute Vector,Slice_Read 4b94 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 4b96 01df | | Execute Vector,Equal 4b97 6803 |h | Jump_Zero 0x4b9b 4b98 4800 |H | Short_Literal 0x0 4b99 a605 | | Store_Unchecked 0x3,0x5 4b9a 7802 |x | Jump 0x4b9d 4b9b 4801 |H | Short_Literal 0x1 4b9c a605 | | Store_Unchecked 0x3,0x5 4b9d e605 | | Load 0x3,0x5 4b9e 0f01 | | Execute_Immediate Equal,0x1 4b9f e604 | | Load 0x3,0x4 4ba0 0f01 | | Execute_Immediate Equal,0x1 4ba1 0279 | y | Execute Discrete,And 4ba2 6806 |h | Jump_Zero 0x4ba9 4ba3 4800 |H | Short_Literal 0x0 4ba4 4804 |H | Short_Literal 0x4 4ba5 0092 65d5 | e | Action Push_String_Extended,0x65d5 ; "Scanning database to count occurrences of selected items." 4ba7 e001 | | Load 0x0,0x1 4ba8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4ba9 0007 | | Action Break_Optional 4baa e5fd | | Load 0x2,-0x3 4bab 0f01 | | Execute_Immediate Equal,0x1 4bac 6803 |h | Jump_Zero 0x4bb0 4bad e26a | j | Load 0x1,0x6a 4bae a606 | | Store_Unchecked 0x3,0x6 4baf 780e |x | Jump 0x4bbe 4bb0 e5fd | | Load 0x2,-0x3 4bb1 0f02 | | Execute_Immediate Equal,0x2 4bb2 6803 |h | Jump_Zero 0x4bb6 4bb3 e26b | k | Load 0x1,0x6b 4bb4 a606 | | Store_Unchecked 0x3,0x6 4bb5 7808 |x | Jump 0x4bbe 4bb6 e5fd | | Load 0x2,-0x3 4bb7 0f06 | | Execute_Immediate Equal,0x6 4bb8 6803 |h | Jump_Zero 0x4bbc 4bb9 e26c | l | Load 0x1,0x6c 4bba a606 | | Store_Unchecked 0x3,0x6 4bbb 7802 |x | Jump 0x4bbe 4bbc 4801 |H | Short_Literal 0x1 4bbd a606 | | Store_Unchecked 0x3,0x6 4bbe 00e1 | | Load_Encached Boolean_Cache 4bbf 00e2 | | Load_Encached Integer_Cache 4bc0 00e2 | | Load_Encached Integer_Cache 4bc1 e5f5 | | Load 0x2,-0xb 4bc2 e5f6 | | Load 0x2,-0xa 4bc3 e5f7 | | Load 0x2,-0x9 4bc4 e5f8 | | Load 0x2,-0x8 4bc5 e5f9 | | Load 0x2,-0x7 4bc6 e5fa | | Load 0x2,-0x6 4bc7 e606 | | Load 0x3,0x6 4bc8 0092 65d6 | e | Action Push_String_Extended,0x65d6 ; "Record Selection Criteria:" 4bca e5fd | | Load 0x2,-0x3 4bcb e5fe | | Load 0x2,-0x2 4bcc e5ff | | Load 0x2,-0x1 4bcd 821f | | Call 0x1,0x1f 4bce c607 | | Store 0x3,0x7 4bcf c608 | | Store 0x3,0x8 4bd0 c609 | | Store 0x3,0x9 4bd1 e5fc | | Load 0x2,-0x4 4bd2 0f01 | | Execute_Immediate Equal,0x1 4bd3 6802 |h | Jump_Zero 0x4bd6 4bd4 00cc | | Action Pop_Block 4bd5 450c |E | Exit_Suprogram New_Top_Offset 0xc 4bd6 00cf | | Action Mark_Auxiliary 4bd7 0007 | | Action Break_Optional 4bd8 00e2 | | Load_Encached Integer_Cache 4bd9 00e1 | | Load_Encached Boolean_Cache 4bda 00e2 | | Load_Encached Integer_Cache 4bdb e5f5 | | Load 0x2,-0xb 4bdc e5f6 | | Load 0x2,-0xa 4bdd e5f7 | | Load 0x2,-0x9 4bde e5f8 | | Load 0x2,-0x8 4bdf e5f9 | | Load 0x2,-0x7 4be0 e5fa | | Load 0x2,-0x6 4be1 e605 | | Load 0x3,0x5 4be2 e609 | | Load 0x3,0x9 4be3 e5fd | | Load 0x2,-0x3 4be4 e5fe | | Load 0x2,-0x2 4be5 e5ff | | Load 0x2,-0x1 4be6 8220 | | Call 0x1,0x20 4be7 c60a | | Store 0x3,0xa 4be8 c60b | | Store 0x3,0xb 4be9 c60c | | Store 0x3,0xc 4bea e60b | | Load 0x3,0xb 4beb 0f01 | | Execute_Immediate Equal,0x1 4bec 7002 |p | Jump_Nonzero 0x4bef 4bed 00c9 | | Action Pop_Auxiliary_Loop 4bee 7fe9 | | Jump 0x4bd8 4bef 00ce | | Action Pop_Auxiliary 4bf0 e001 | | Load 0x0,0x1 4bf1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4bf2 0092 640f | d | Action Push_String_Extended,0x640f ; "Total Records Selected => " 4bf4 e001 | | Load 0x0,0x1 4bf5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4bf6 e60c | | Load 0x3,0xc 4bf7 e001 | | Load 0x0,0x1 4bf8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4bf9 e001 | | Load 0x0,0x1 4bfa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4bfb e001 | | Load 0x0,0x1 4bfc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4bfd e604 | | Load 0x3,0x4 4bfe 7001 |p | Jump_Nonzero 0x4c00 4bff 860e | | Call 0x3,0xe 4c00 e602 | | Load 0x3,0x2 4c01 e002 | | Load 0x0,0x2 4c02 1a24 | $ | Execute Package,Field_Write,Field_Number 0x24 4c03 4800 |H | Short_Literal 0x0 4c04 4804 |H | Short_Literal 0x4 4c05 0092 65d7 | e | Action Push_String_Extended,0x65d7 ; "Display or Report completed." 4c07 e001 | | Load 0x0,0x1 4c08 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4c09 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4c0a 0000 0000 | | .BLANK 0000[0x6] 4c10 ; -------------------------------------------------------------------------------------- 4c10 ; SUBPROGRAM 4c10 ; -------------------------------------------------------------------------------------- 4c10 4c43 |LC | .CONST 0x4c43 ; Address of begin 4c11 0004 | | .CONST 0x0004 ; Address of exception handler 4c12 000a | | .CONST 0x000a ; Number of locals 4c13 INIT_4c10: 4c13 00e2 | | Load_Encached Integer_Cache 4c14 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c15 00e2 | | Load_Encached Integer_Cache 4c16 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c17 00e1 | | Load_Encached Boolean_Cache 4c18 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c19 00e2 | | Load_Encached Integer_Cache 4c1a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c1b 00e1 | | Load_Encached Boolean_Cache 4c1c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c1d 00e2 | | Load_Encached Integer_Cache 4c1e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c1f 4801 |H | Short_Literal 0x1 4c20 4850 |HP | Short_Literal 0x50 4c21 00e9 | | Load_Encached String_Cache 4c22 0334 | 4 | Declare_Variable Array,With_Constraint 4c23 4801 |H | Short_Literal 0x1 4c24 4850 |HP | Short_Literal 0x50 4c25 00e9 | | Load_Encached String_Cache 4c26 0334 | 4 | Declare_Variable Array,With_Constraint 4c27 4850 |HP | Short_Literal 0x50 4c28 4801 |H | Short_Literal 0x1 4c29 4820 |H | Short_Literal 0x20 4c2a e60b | | Load 0x3,0xb 4c2b e609 | | Load 0x3,0x9 4c2c 01d6 | | Execute Vector,Field_Write 4c2d 3ffb |? | Loop_Increasing 0x4c29 4c2e e608 | | Load 0x3,0x8 4c2f 01d4 | | Execute Vector,Structure_Write 4c30 00e2 | | Load_Encached Integer_Cache 4c31 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4c32 4801 |H | Short_Literal 0x1 4c33 480a |H | Short_Literal 0xa 4c34 00e9 | | Load_Encached String_Cache 4c35 0334 | 4 | Declare_Variable Array,With_Constraint 4c36 4801 |H | Short_Literal 0x1 4c37 480a |H | Short_Literal 0xa 4c38 00e9 | | Load_Encached String_Cache 4c39 0334 | 4 | Declare_Variable Array,With_Constraint 4c3a 480a |H | Short_Literal 0xa 4c3b 4801 |H | Short_Literal 0x1 4c3c 4820 |H | Short_Literal 0x20 4c3d e60d | | Load 0x3,0xd 4c3e e60b | | Load 0x3,0xb 4c3f 01d6 | | Execute Vector,Field_Write 4c40 3ffb |? | Loop_Increasing 0x4c3c 4c41 e60a | | Load 0x3,0xa 4c42 01d4 | | Execute Vector,Structure_Write 4c43 BODY_4c10: 4c43 e5f7 | | Load 0x2,-0x9 4c44 e5f8 | | Load 0x2,-0x8 4c45 e5f9 | | Load 0x2,-0x7 4c46 e5fa | | Load 0x2,-0x6 4c47 e5fb | | Load 0x2,-0x5 4c48 e5fc | | Load 0x2,-0x4 4c49 4801 |H | Short_Literal 0x1 4c4a 4801 |H | Short_Literal 0x1 4c4b e5fd | | Load 0x2,-0x3 4c4c e5fe | | Load 0x2,-0x2 4c4d e5ff | | Load 0x2,-0x1 4c4e 823e | > | Call 0x1,0x3e 4c4f e001 | | Load 0x0,0x1 4c50 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4c51 e001 | | Load 0x0,0x1 4c52 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4c53 0092 65d8 | e | Action Push_String_Extended,0x65d8 ; " Index for " 4c55 4801 |H | Short_Literal 0x1 4c56 e002 | | Load 0x0,0x2 4c57 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4c58 e5ff | | Load 0x2,-0x1 4c59 e002 | | Load 0x0,0x2 4c5a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4c5b 01d5 | | Execute Vector,Field_Reference 4c5c 01d5 | | Execute Vector,Field_Reference 4c5d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4c5e e002 | | Load 0x0,0x2 4c5f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4c60 e5ff | | Load 0x2,-0x1 4c61 e002 | | Load 0x0,0x2 4c62 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4c63 01d5 | | Execute Vector,Field_Reference 4c64 01d5 | | Execute Vector,Field_Reference 4c65 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4c66 01cf | | Execute Vector,Slice_Read 4c67 01cc | | Execute Vector,Catenate 4c68 e004 | | Load 0x0,0x4 4c69 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 4c6a 0092 65d9 | e | Action Push_String_Extended,0x65d9 ; " __________" 4c6c 4801 |H | Short_Literal 0x1 4c6d e002 | | Load 0x0,0x2 4c6e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4c6f e5ff | | Load 0x2,-0x1 4c70 e002 | | Load 0x0,0x2 4c71 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4c72 01d5 | | Execute Vector,Field_Reference 4c73 01d5 | | Execute Vector,Field_Reference 4c74 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4c75 e002 | | Load 0x0,0x2 4c76 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 4c77 01cf | | Execute Vector,Slice_Read 4c78 01cc | | Execute Vector,Catenate 4c79 e004 | | Load 0x0,0x4 4c7a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 4c7b e001 | | Load 0x0,0x1 4c7c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4c7d 00cf | | Action Mark_Auxiliary 4c7e e5ff | | Load 0x2,-0x1 4c7f 0a05 | | Execute_Immediate Plus,0x5 4c80 0248 | H | Execute Discrete,Check_In_Integer 4c81 e5ff | | Load 0x2,-0x1 4c82 0a01 | | Execute_Immediate Plus,0x1 4c83 0248 | H | Execute Discrete,Check_In_Integer 4c84 0263 | c | Execute Discrete,Above_Bound 4c85 7048 |pH | Jump_Nonzero 0x4cce 4c86 e002 | | Load 0x0,0x2 4c87 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4c88 e60d | | Load 0x3,0xd 4c89 e002 | | Load 0x0,0x2 4c8a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4c8b 01d5 | | Execute Vector,Field_Reference 4c8c 01d5 | | Execute Vector,Field_Reference 4c8d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4c8e a609 | | Store_Unchecked 0x3,0x9 4c8f e609 | | Load 0x3,0x9 4c90 e002 | | Load 0x0,0x2 4c91 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 4c92 e60d | | Load 0x3,0xd 4c93 e002 | | Load 0x0,0x2 4c94 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4c95 01d5 | | Execute Vector,Field_Reference 4c96 01d5 | | Execute Vector,Field_Reference 4c97 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4c98 027d | } | Execute Discrete,Greater 4c99 6809 |h | Jump_Zero 0x4ca3 4c9a e002 | | Load 0x0,0x2 4c9b 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 4c9c e60d | | Load 0x3,0xd 4c9d e002 | | Load 0x0,0x2 4c9e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4c9f 01d5 | | Execute Vector,Field_Reference 4ca0 01d5 | | Execute Vector,Field_Reference 4ca1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4ca2 a609 | | Store_Unchecked 0x3,0x9 4ca3 4801 |H | Short_Literal 0x1 4ca4 e609 | | Load 0x3,0x9 4ca5 e002 | | Load 0x0,0x2 4ca6 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4ca7 e60d | | Load 0x3,0xd 4ca8 e002 | | Load 0x0,0x2 4ca9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4caa 01d5 | | Execute Vector,Field_Reference 4cab 01d5 | | Execute Vector,Field_Reference 4cac 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 4cad 01cf | | Execute Vector,Slice_Read 4cae 4801 |H | Short_Literal 0x1 4caf e609 | | Load 0x3,0x9 4cb0 e608 | | Load 0x3,0x8 4cb1 01ce | | Execute Vector,Slice_Write 4cb2 4801 |H | Short_Literal 0x1 4cb3 e609 | | Load 0x3,0x9 4cb4 e608 | | Load 0x3,0x8 4cb5 01cf | | Execute Vector,Slice_Read 4cb6 4801 |H | Short_Literal 0x1 4cb7 e002 | | Load 0x0,0x2 4cb8 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 4cb9 e60d | | Load 0x3,0xd 4cba e002 | | Load 0x0,0x2 4cbb 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4cbc 01d5 | | Execute Vector,Field_Reference 4cbd 01d5 | | Execute Vector,Field_Reference 4cbe 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4cbf e609 | | Load 0x3,0x9 4cc0 0272 | r | Execute Discrete,Minus 4cc1 0248 | H | Execute Discrete,Check_In_Integer 4cc2 e002 | | Load 0x0,0x2 4cc3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4cc4 01cf | | Execute Vector,Slice_Read 4cc5 01cc | | Execute Vector,Catenate 4cc6 e004 | | Load 0x0,0x4 4cc7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 4cc8 0092 6495 | d | Action Push_String_Extended,0x6495 ; " " 4cca e004 | | Load 0x0,0x4 4ccb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 4ccc 00c8 | | Action Pop_Auxiliary_Range 4ccd 3fb8 |? | Loop_Increasing 0x4c86 4cce 00ce | | Action Pop_Auxiliary 4ccf 4801 |H | Short_Literal 0x1 4cd0 e004 | | Load 0x0,0x4 4cd1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 4cd2 4801 |H | Short_Literal 0x1 4cd3 484b |HK | Short_Literal 0x4b 4cd4 e002 | | Load 0x0,0x2 4cd5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 4cd6 01cf | | Execute Vector,Slice_Read 4cd7 e004 | | Load 0x0,0x4 4cd8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 4cd9 00cf | | Action Mark_Auxiliary 4cda 0007 | | Action Break_Optional 4cdb 00e2 | | Load_Encached Integer_Cache 4cdc 00e1 | | Load_Encached Boolean_Cache 4cdd 00e2 | | Load_Encached Integer_Cache 4cde e5f7 | | Load 0x2,-0x9 4cdf e5f8 | | Load 0x2,-0x8 4ce0 e5f9 | | Load 0x2,-0x7 4ce1 e5fa | | Load 0x2,-0x6 4ce2 e5fb | | Load 0x2,-0x5 4ce3 e5fc | | Load 0x2,-0x4 4ce4 4801 |H | Short_Literal 0x1 4ce5 e604 | | Load 0x3,0x4 4ce6 e5fd | | Load 0x2,-0x3 4ce7 e5fe | | Load 0x2,-0x2 4ce8 e5ff | | Load 0x2,-0x1 4ce9 8220 | | Call 0x1,0x20 4cea c605 | | Store 0x3,0x5 4ceb c606 | | Store 0x3,0x6 4cec c607 | | Store 0x3,0x7 4ced e606 | | Load 0x3,0x6 4cee 0f01 | | Execute_Immediate Equal,0x1 4cef 703d |p= | Jump_Nonzero 0x4d2d 4cf0 4801 |H | Short_Literal 0x1 4cf1 480a |H | Short_Literal 0xa 4cf2 e002 | | Load 0x0,0x2 4cf3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4cf4 01cf | | Execute Vector,Slice_Read 4cf5 e60a | | Load 0x3,0xa 4cf6 01d4 | | Execute Vector,Structure_Write 4cf7 e60a | | Load 0x3,0xa 4cf8 e001 | | Load 0x0,0x1 4cf9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4cfa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4cfb e605 | | Load 0x3,0x5 4cfc e001 | | Load 0x0,0x1 4cfd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4cfe 1817 | | Execute Package,Field_Execute,Field_Number 0x17 4cff 00d1 | | Pop_Control Pop_Count_1 4d00 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 4d02 e60a | | Load 0x3,0xa 4d03 01cc | | Execute Vector,Catenate 4d04 e004 | | Load 0x0,0x4 4d05 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 4d06 0092 6495 | d | Action Push_String_Extended,0x6495 ; " " 4d08 e004 | | Load 0x0,0x4 4d09 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 4d0a 00cf | | Action Mark_Auxiliary 4d0b e5ff | | Load 0x2,-0x1 4d0c 0a05 | | Execute_Immediate Plus,0x5 4d0d 0248 | H | Execute Discrete,Check_In_Integer 4d0e e5ff | | Load 0x2,-0x1 4d0f 0a02 | | Execute_Immediate Plus,0x2 4d10 0248 | H | Execute Discrete,Check_In_Integer 4d11 0263 | c | Execute Discrete,Above_Bound 4d12 7014 |p | Jump_Nonzero 0x4d27 4d13 e609 | | Load 0x3,0x9 4d14 e608 | | Load 0x3,0x8 4d15 e002 | | Load 0x0,0x2 4d16 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4d17 e60e | | Load 0x3,0xe 4d18 8256 | V | Call 0x1,0x56 4d19 00d1 | | Pop_Control Pop_Count_1 4d1a c609 | | Store 0x3,0x9 4d1b 4801 |H | Short_Literal 0x1 4d1c e609 | | Load 0x3,0x9 4d1d e608 | | Load 0x3,0x8 4d1e 01cf | | Execute Vector,Slice_Read 4d1f e004 | | Load 0x0,0x4 4d20 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 4d21 0092 6495 | d | Action Push_String_Extended,0x6495 ; " " 4d23 e004 | | Load 0x0,0x4 4d24 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 4d25 00c8 | | Action Pop_Auxiliary_Range 4d26 3fec |? | Loop_Increasing 0x4d13 4d27 00ce | | Action Pop_Auxiliary 4d28 4801 |H | Short_Literal 0x1 4d29 e004 | | Load 0x0,0x4 4d2a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 4d2b 00c9 | | Action Pop_Auxiliary_Loop 4d2c 7fae | | Jump 0x4cdb 4d2d 00ce | | Action Pop_Auxiliary 4d2e e001 | | Load 0x0,0x1 4d2f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4d30 0092 640f | d | Action Push_String_Extended,0x640f ; "Total Records Selected => " 4d32 e001 | | Load 0x0,0x1 4d33 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4d34 e607 | | Load 0x3,0x7 4d35 e001 | | Load 0x0,0x1 4d36 181e | | Execute Package,Field_Execute,Field_Number 0x1e 4d37 e001 | | Load 0x0,0x1 4d38 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4d39 4800 |H | Short_Literal 0x0 4d3a 4804 |H | Short_Literal 0x4 4d3b 0092 65da | e | Action Push_String_Extended,0x65da ; "Index Display completed." 4d3d e001 | | Load 0x0,0x1 4d3e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4d3f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4d40 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 4d44 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 4d48 ; -------------------------------------------------------------------------------------- 4d48 ; SUBPROGRAM 4d48 ; -------------------------------------------------------------------------------------- 4d48 4d63 |Mc | .CONST 0x4d63 ; Address of begin 4d49 4edb |N | .CONST 0x4edb ; Address of exception handler 4d4a 000a | | .CONST 0x000a ; Number of locals 4d4b INIT_4d48: 4d4b 00e2 | | Load_Encached Integer_Cache 4d4c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4d4d e002 | | Load 0x0,0x2 4d4e 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4d4f 00e2 | | Load_Encached Integer_Cache 4d50 03f1 | | Declare_Variable Discrete,With_Value 4d51 00e2 | | Load_Encached Integer_Cache 4d52 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4d53 4801 |H | Short_Literal 0x1 4d54 4803 |H | Short_Literal 0x3 4d55 00e9 | | Load_Encached String_Cache 4d56 0334 | 4 | Declare_Variable Array,With_Constraint 4d57 4801 |H | Short_Literal 0x1 4d58 4804 |H | Short_Literal 0x4 4d59 00e9 | | Load_Encached String_Cache 4d5a 0334 | 4 | Declare_Variable Array,With_Constraint 4d5b 00e2 | | Load_Encached Integer_Cache 4d5c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4d5d 00e2 | | Load_Encached Integer_Cache 4d5e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4d5f 00e2 | | Load_Encached Integer_Cache 4d60 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4d61 00e2 | | Load_Encached Integer_Cache 4d62 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4d63 BODY_4d48: 4d63 e5ff | | Load 0x2,-0x1 4d64 0d01 | | Execute_Immediate Less,0x1 4d65 e5ff | | Load 0x2,-0x1 4d66 e002 | | Load 0x0,0x2 4d67 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4d68 0aff | | Execute_Immediate Plus,-0x1 4d69 027d | } | Execute Discrete,Greater 4d6a 0278 | x | Execute Discrete,Or 4d6b 6803 |h | Jump_Zero 0x4d6f 4d6c 4801 |H | Short_Literal 0x1 4d6d a602 | | Store_Unchecked 0x3,0x2 4d6e 7802 |x | Jump 0x4d71 4d6f e5ff | | Load 0x2,-0x1 4d70 a602 | | Store_Unchecked 0x3,0x2 4d71 e5fe | | Load 0x2,-0x2 4d72 0d02 | | Execute_Immediate Less,0x2 4d73 e5fe | | Load 0x2,-0x2 4d74 e002 | | Load 0x0,0x2 4d75 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4d76 027d | } | Execute Discrete,Greater 4d77 0278 | x | Execute Discrete,Or 4d78 6804 |h | Jump_Zero 0x4d7d 4d79 e002 | | Load 0x0,0x2 4d7a 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4d7b a603 | | Store_Unchecked 0x3,0x3 4d7c 7802 |x | Jump 0x4d7f 4d7d e5fe | | Load 0x2,-0x2 4d7e a603 | | Store_Unchecked 0x3,0x3 4d7f e002 | | Load 0x0,0x2 4d80 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 4d81 4800 |H | Short_Literal 0x0 4d82 4be7 |K | Short_Literal 0x3e7 4d83 4801 |H | Short_Literal 0x1 4d84 4800 |H | Short_Literal 0x0 4d85 4801 |H | Short_Literal 0x1 4d86 4801 |H | Short_Literal 0x1 4d87 4800 |H | Short_Literal 0x0 4d88 4800 |H | Short_Literal 0x0 4d89 e002 | | Load 0x0,0x2 4d8a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4d8b e002 | | Load 0x0,0x2 4d8c 18ae | | Execute Package,Field_Execute,Field_Number 0xae 4d8d 00d1 | | Pop_Control Pop_Count_1 4d8e 00cf | | Action Mark_Auxiliary 4d8f e603 | | Load 0x3,0x3 4d90 e602 | | Load 0x3,0x2 4d91 0263 | c | Execute Discrete,Above_Bound 4d92 7013 |p | Jump_Nonzero 0x4da6 4d93 00cf | | Action Mark_Auxiliary 4d94 e002 | | Load 0x0,0x2 4d95 1b60 | ` | Execute Package,Field_Read,Field_Number 0x60 4d96 4801 |H | Short_Literal 0x1 4d97 0263 | c | Execute Discrete,Above_Bound 4d98 700a |p | Jump_Nonzero 0x4da3 4d99 e002 | | Load 0x0,0x2 4d9a 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 4d9b e610 | | Load 0x3,0x10 4d9c e60d | | Load 0x3,0xd 4d9d e002 | | Load 0x0,0x2 4d9e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4d9f 01d5 | | Execute Vector,Field_Reference 4da0 01d6 | | Execute Vector,Field_Write 4da1 00c8 | | Action Pop_Auxiliary_Range 4da2 3ff6 |? | Loop_Increasing 0x4d99 4da3 00ce | | Action Pop_Auxiliary 4da4 00c8 | | Action Pop_Auxiliary_Range 4da5 3fed |? | Loop_Increasing 0x4d93 4da6 00ce | | Action Pop_Auxiliary 4da7 0007 | | Action Break_Optional 4da8 4800 |H | Short_Literal 0x0 4da9 a604 | | Store_Unchecked 0x3,0x4 4daa 4800 |H | Short_Literal 0x0 4dab a60a | | Store_Unchecked 0x3,0xa 4dac 00cf | | Action Mark_Auxiliary 4dad e603 | | Load 0x3,0x3 4dae e602 | | Load 0x3,0x2 4daf 0263 | c | Execute Discrete,Above_Bound 4db0 7128 |q( | Jump_Nonzero 0x4ed9 4db1 e60a | | Load 0x3,0xa 4db2 0a01 | | Execute_Immediate Plus,0x1 4db3 0248 | H | Execute Discrete,Check_In_Integer 4db4 a60a | | Store_Unchecked 0x3,0xa 4db5 00d8 | | Load_Top At_Offset_0 4db6 a604 | | Store_Unchecked 0x3,0x4 4db7 0092 65db | e | Action Push_String_Extended,0x65db ; " . " 4db9 e606 | | Load 0x3,0x6 4dba 01d4 | | Execute Vector,Structure_Write 4dbb e605 | | Load 0x3,0x5 4dbc 480a |H | Short_Literal 0xa 4dbd e604 | | Load 0x3,0x4 4dbe e001 | | Load 0x0,0x1 4dbf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 4dc0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 4dc1 00d1 | | Pop_Control Pop_Count_1 4dc2 4802 |H | Short_Literal 0x2 4dc3 4803 |H | Short_Literal 0x3 4dc4 e605 | | Load 0x3,0x5 4dc5 01cf | | Execute Vector,Slice_Read 4dc6 4801 |H | Short_Literal 0x1 4dc7 4802 |H | Short_Literal 0x2 4dc8 e606 | | Load 0x3,0x6 4dc9 01ce | | Execute Vector,Slice_Write 4dca 0007 | | Action Break_Optional 4dcb 4be7 |K | Short_Literal 0x3e7 4dcc 4801 |H | Short_Literal 0x1 4dcd 4800 |H | Short_Literal 0x0 4dce 4801 |H | Short_Literal 0x1 4dcf 4801 |H | Short_Literal 0x1 4dd0 4801 |H | Short_Literal 0x1 4dd1 4800 |H | Short_Literal 0x0 4dd2 0092 65dc | e | Action Push_String_Extended,0x65dc ; "xwz" 4dd4 e002 | | Load 0x0,0x2 4dd5 1b55 | U | Execute Package,Field_Read,Field_Number 0x55 4dd6 e604 | | Load 0x3,0x4 4dd7 8251 | Q | Call 0x1,0x51 4dd8 4be7 |K | Short_Literal 0x3e7 4dd9 4801 |H | Short_Literal 0x1 4dda 4800 |H | Short_Literal 0x0 4ddb 4801 |H | Short_Literal 0x1 4ddc 4800 |H | Short_Literal 0x0 4ddd 4801 |H | Short_Literal 0x1 4dde e001 | | Load 0x0,0x1 4ddf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4de0 0092 65dd | e | Action Push_String_Extended,0x65dd ; "Enter Field " 4de2 e606 | | Load 0x3,0x6 4de3 01cc | | Execute Vector,Catenate 4de4 0092 64d0 | d | Action Push_String_Extended,0x64d0 ; ":" 4de6 01cc | | Execute Vector,Catenate 4de7 e002 | | Load 0x0,0x2 4de8 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 4de9 e604 | | Load 0x3,0x4 4dea 8251 | Q | Call 0x1,0x51 4deb 4be7 |K | Short_Literal 0x3e7 4dec 4801 |H | Short_Literal 0x1 4ded 4800 |H | Short_Literal 0x0 4dee 4801 |H | Short_Literal 0x1 4def 4801 |H | Short_Literal 0x1 4df0 4800 |H | Short_Literal 0x0 4df1 e001 | | Load 0x0,0x1 4df2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4df3 0092 65de | e | Action Push_String_Extended,0x65de ; "-default-" 4df5 e002 | | Load 0x0,0x2 4df6 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 4df7 e604 | | Load 0x3,0x4 4df8 8251 | Q | Call 0x1,0x51 4df9 4be7 |K | Short_Literal 0x3e7 4dfa 4801 |H | Short_Literal 0x1 4dfb 4800 |H | Short_Literal 0x0 4dfc 4801 |H | Short_Literal 0x1 4dfd 4801 |H | Short_Literal 0x1 4dfe 4801 |H | Short_Literal 0x1 4dff e001 | | Load 0x0,0x1 4e00 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4e01 0a01 | | Execute_Immediate Plus,0x1 4e02 0248 | H | Execute Discrete,Check_In_Integer 4e03 0092 65df | e | Action Push_String_Extended,0x65df ; "01234567890123456789" 4e05 e002 | | Load 0x0,0x2 4e06 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 4e07 e604 | | Load 0x3,0x4 4e08 8251 | Q | Call 0x1,0x51 4e09 4be7 |K | Short_Literal 0x3e7 4e0a 4801 |H | Short_Literal 0x1 4e0b 4800 |H | Short_Literal 0x0 4e0c 4801 |H | Short_Literal 0x1 4e0d 4800 |H | Short_Literal 0x0 4e0e 4801 |H | Short_Literal 0x1 4e0f e001 | | Load 0x0,0x1 4e10 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4e11 0a02 | | Execute_Immediate Plus,0x2 4e12 0248 | H | Execute Discrete,Check_In_Integer 4e13 0092 65e0 | e | Action Push_String_Extended,0x65e0 ; "Error in field " 4e15 e606 | | Load 0x3,0x6 4e16 01cc | | Execute Vector,Catenate 4e17 e002 | | Load 0x0,0x2 4e18 1b5b | [ | Execute Package,Field_Read,Field_Number 0x5b 4e19 e604 | | Load 0x3,0x4 4e1a 8251 | Q | Call 0x1,0x51 4e1b 4be7 |K | Short_Literal 0x3e7 4e1c 4801 |H | Short_Literal 0x1 4e1d 4800 |H | Short_Literal 0x0 4e1e 4801 |H | Short_Literal 0x1 4e1f 4801 |H | Short_Literal 0x1 4e20 4801 |H | Short_Literal 0x1 4e21 e001 | | Load 0x0,0x1 4e22 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4e23 0a01 | | Execute_Immediate Plus,0x1 4e24 0248 | H | Execute Discrete,Check_In_Integer 4e25 0092 65e1 | e | Action Push_String_Extended,0x65e1 ; "Help1 for field " 4e27 e606 | | Load 0x3,0x6 4e28 01cc | | Execute Vector,Catenate 4e29 e002 | | Load 0x0,0x2 4e2a 1b5c | \ | Execute Package,Field_Read,Field_Number 0x5c 4e2b e604 | | Load 0x3,0x4 4e2c 8251 | Q | Call 0x1,0x51 4e2d 4be7 |K | Short_Literal 0x3e7 4e2e 4801 |H | Short_Literal 0x1 4e2f 4800 |H | Short_Literal 0x0 4e30 4801 |H | Short_Literal 0x1 4e31 4801 |H | Short_Literal 0x1 4e32 4801 |H | Short_Literal 0x1 4e33 e001 | | Load 0x0,0x1 4e34 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4e35 0a02 | | Execute_Immediate Plus,0x2 4e36 0248 | H | Execute Discrete,Check_In_Integer 4e37 0092 65e2 | e | Action Push_String_Extended,0x65e2 ; "Help2 for field " 4e39 e606 | | Load 0x3,0x6 4e3a 01cc | | Execute Vector,Catenate 4e3b e002 | | Load 0x0,0x2 4e3c 1b5d | ] | Execute Package,Field_Read,Field_Number 0x5d 4e3d e604 | | Load 0x3,0x4 4e3e 8251 | Q | Call 0x1,0x51 4e3f 4be7 |K | Short_Literal 0x3e7 4e40 4801 |H | Short_Literal 0x1 4e41 4800 |H | Short_Literal 0x0 4e42 4801 |H | Short_Literal 0x1 4e43 4801 |H | Short_Literal 0x1 4e44 4801 |H | Short_Literal 0x1 4e45 e001 | | Load 0x0,0x1 4e46 1b11 | | Execute Package,Field_Read,Field_Number 0x11 4e47 0a03 | | Execute_Immediate Plus,0x3 4e48 0248 | H | Execute Discrete,Check_In_Integer 4e49 0092 65e3 | e | Action Push_String_Extended,0x65e3 ; "[Or: Help= ? Up= ^ Top= , Select= . Exit= / (then promote)]" 4e4b e002 | | Load 0x0,0x2 4e4c 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e 4e4d e604 | | Load 0x3,0x4 4e4e 8251 | Q | Call 0x1,0x51 4e4f 0007 | | Action Break_Optional 4e50 e60a | | Load 0x3,0xa 4e51 0c21 | ! | Execute_Immediate Greater_Equal,0x21 4e52 6825 |h% | Jump_Zero 0x4e78 4e53 4be7 |K | Short_Literal 0x3e7 4e54 4801 |H | Short_Literal 0x1 4e55 4800 |H | Short_Literal 0x0 4e56 4801 |H | Short_Literal 0x1 4e57 4801 |H | Short_Literal 0x1 4e58 4800 |H | Short_Literal 0x0 4e59 4800 |H | Short_Literal 0x0 4e5a 0092 65e4 | e | Action Push_String_Extended,0x65e4 ; "Field " 4e5c e606 | | Load 0x3,0x6 4e5d 01cc | | Execute Vector,Catenate 4e5e 0092 65e5 | e | Action Push_String_Extended,0x65e5 ; ": " 4e60 01cc | | Execute Vector,Catenate 4e61 e002 | | Load 0x0,0x2 4e62 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4e63 e604 | | Load 0x3,0x4 4e64 8251 | Q | Call 0x1,0x51 4e65 4be7 |K | Short_Literal 0x3e7 4e66 4801 |H | Short_Literal 0x1 4e67 4800 |H | Short_Literal 0x0 4e68 4801 |H | Short_Literal 0x1 4e69 4801 |H | Short_Literal 0x1 4e6a 4800 |H | Short_Literal 0x0 4e6b 4800 |H | Short_Literal 0x0 4e6c 0092 65e6 | e | Action Push_String_Extended,0x65e6 ; "null" 4e6e 4801 |H | Short_Literal 0x1 4e6f 4802 |H | Short_Literal 0x2 4e70 e606 | | Load 0x3,0x6 4e71 01cf | | Execute Vector,Slice_Read 4e72 01cc | | Execute Vector,Catenate 4e73 e002 | | Load 0x0,0x2 4e74 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4e75 e604 | | Load 0x3,0x4 4e76 8251 | Q | Call 0x1,0x51 4e77 785f |x_ | Jump 0x4ed7 4e78 e60a | | Load 0x3,0xa 4e79 0c11 | | Execute_Immediate Greater_Equal,0x11 4e7a 682e |h. | Jump_Zero 0x4ea9 4e7b 4be7 |K | Short_Literal 0x3e7 4e7c 4801 |H | Short_Literal 0x1 4e7d e60a | | Load 0x3,0xa 4e7e 4801 |H | Short_Literal 0x1 4e7f 4801 |H | Short_Literal 0x1 4e80 4828 |H( | Short_Literal 0x28 4e81 e60a | | Load 0x3,0xa 4e82 0af0 | | Execute_Immediate Plus,-0x10 4e83 0a03 | | Execute_Immediate Plus,0x3 4e84 0248 | H | Execute Discrete,Check_In_Integer 4e85 0092 65e4 | e | Action Push_String_Extended,0x65e4 ; "Field " 4e87 4801 |H | Short_Literal 0x1 4e88 4802 |H | Short_Literal 0x2 4e89 e606 | | Load 0x3,0x6 4e8a 01cf | | Execute Vector,Slice_Read 4e8b 01cc | | Execute Vector,Catenate 4e8c 0092 65e5 | e | Action Push_String_Extended,0x65e5 ; ": " 4e8e 01cc | | Execute Vector,Catenate 4e8f e002 | | Load 0x0,0x2 4e90 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4e91 e604 | | Load 0x3,0x4 4e92 8251 | Q | Call 0x1,0x51 4e93 4be7 |K | Short_Literal 0x3e7 4e94 4801 |H | Short_Literal 0x1 4e95 4800 |H | Short_Literal 0x0 4e96 4801 |H | Short_Literal 0x1 4e97 4801 |H | Short_Literal 0x1 4e98 4800 |H | Short_Literal 0x0 4e99 e60a | | Load 0x3,0xa 4e9a 0af0 | | Execute_Immediate Plus,-0x10 4e9b 0a03 | | Execute_Immediate Plus,0x3 4e9c 0248 | H | Execute Discrete,Check_In_Integer 4e9d 0092 65e7 | e | Action Push_String_Extended,0x65e7 ; "data" 4e9f 4801 |H | Short_Literal 0x1 4ea0 4802 |H | Short_Literal 0x2 4ea1 e606 | | Load 0x3,0x6 4ea2 01cf | | Execute Vector,Slice_Read 4ea3 01cc | | Execute Vector,Catenate 4ea4 e002 | | Load 0x0,0x2 4ea5 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4ea6 e604 | | Load 0x3,0x4 4ea7 8251 | Q | Call 0x1,0x51 4ea8 782e |x. | Jump 0x4ed7 4ea9 e60a | | Load 0x3,0xa 4eaa 0c01 | | Execute_Immediate Greater_Equal,0x1 4eab 682b |h+ | Jump_Zero 0x4ed7 4eac 4be7 |K | Short_Literal 0x3e7 4ead 4801 |H | Short_Literal 0x1 4eae e60a | | Load 0x3,0xa 4eaf 4801 |H | Short_Literal 0x1 4eb0 4801 |H | Short_Literal 0x1 4eb1 4801 |H | Short_Literal 0x1 4eb2 e60a | | Load 0x3,0xa 4eb3 0a03 | | Execute_Immediate Plus,0x3 4eb4 0248 | H | Execute Discrete,Check_In_Integer 4eb5 0092 65e4 | e | Action Push_String_Extended,0x65e4 ; "Field " 4eb7 4801 |H | Short_Literal 0x1 4eb8 4802 |H | Short_Literal 0x2 4eb9 e606 | | Load 0x3,0x6 4eba 01cf | | Execute Vector,Slice_Read 4ebb 01cc | | Execute Vector,Catenate 4ebc 0092 65e5 | e | Action Push_String_Extended,0x65e5 ; ": " 4ebe 01cc | | Execute Vector,Catenate 4ebf e002 | | Load 0x0,0x2 4ec0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4ec1 e604 | | Load 0x3,0x4 4ec2 8251 | Q | Call 0x1,0x51 4ec3 4be7 |K | Short_Literal 0x3e7 4ec4 4801 |H | Short_Literal 0x1 4ec5 4800 |H | Short_Literal 0x0 4ec6 4801 |H | Short_Literal 0x1 4ec7 4801 |H | Short_Literal 0x1 4ec8 4800 |H | Short_Literal 0x0 4ec9 e60a | | Load 0x3,0xa 4eca 0a03 | | Execute_Immediate Plus,0x3 4ecb 0248 | H | Execute Discrete,Check_In_Integer 4ecc 0092 65e7 | e | Action Push_String_Extended,0x65e7 ; "data" 4ece 4801 |H | Short_Literal 0x1 4ecf 4802 |H | Short_Literal 0x2 4ed0 e606 | | Load 0x3,0x6 4ed1 01cf | | Execute Vector,Slice_Read 4ed2 01cc | | Execute Vector,Catenate 4ed3 e002 | | Load 0x0,0x2 4ed4 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4ed5 e604 | | Load 0x3,0x4 4ed6 8251 | Q | Call 0x1,0x51 4ed7 00c8 | | Action Pop_Auxiliary_Range 4ed8 3ed8 |> | Loop_Increasing 0x4db1 4ed9 00ce | | Action Pop_Auxiliary 4eda 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4edb TRAP_4d48: 4edb 0007 | | Action Break_Optional 4edc 4800 |H | Short_Literal 0x0 4edd 4801 |H | Short_Literal 0x1 4ede 0092 65e8 | e | Action Push_String_Extended,0x65e8 ; "Exception occurred in ap_init_record_defaults." 4ee0 e001 | | Load 0x0,0x1 4ee1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 4ee2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 4ee3 0000 0000 | | .BLANK 0000[0x5] 4ee8 ; -------------------------------------------------------------------------------------- 4ee8 ; SUBPROGRAM 4ee8 ; -------------------------------------------------------------------------------------- 4ee8 4f06 |O | .CONST 0x4f06 ; Address of begin 4ee9 0004 | | .CONST 0x0004 ; Address of exception handler 4eea 0007 | | .CONST 0x0007 ; Number of locals 4eeb INIT_4ee8: 4eeb 00e2 | | Load_Encached Integer_Cache 4eec 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 4eed e002 | | Load 0x0,0x2 4eee 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4eef 00e2 | | Load_Encached Integer_Cache 4ef0 03f1 | | Declare_Variable Discrete,With_Value 4ef1 00e2 | | Load_Encached Integer_Cache 4ef2 00e2 | | Load_Encached Integer_Cache 4ef3 00e2 | | Load_Encached Integer_Cache 4ef4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 4ef5 4801 |H | Short_Literal 0x1 4ef6 4850 |HP | Short_Literal 0x50 4ef7 00e9 | | Load_Encached String_Cache 4ef8 0334 | 4 | Declare_Variable Array,With_Constraint 4ef9 4801 |H | Short_Literal 0x1 4efa 4850 |HP | Short_Literal 0x50 4efb 00e9 | | Load_Encached String_Cache 4efc 0334 | 4 | Declare_Variable Array,With_Constraint 4efd 4850 |HP | Short_Literal 0x50 4efe 4801 |H | Short_Literal 0x1 4eff 483d |H= | Short_Literal 0x3d 4f00 e60a | | Load 0x3,0xa 4f01 e608 | | Load 0x3,0x8 4f02 01d6 | | Execute Vector,Field_Write 4f03 3ffb |? | Loop_Increasing 0x4eff 4f04 e607 | | Load 0x3,0x7 4f05 01d4 | | Execute Vector,Structure_Write 4f06 BODY_4ee8: 4f06 4800 |H | Short_Literal 0x0 4f07 a606 | | Store_Unchecked 0x3,0x6 4f08 e002 | | Load 0x0,0x2 4f09 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 4f0a 0f00 | | Execute_Immediate Equal,0x0 4f0b e5fb | | Load 0x2,-0x5 4f0c 0f01 | | Execute_Immediate Equal,0x1 4f0d 0279 | y | Execute Discrete,And 4f0e 6808 |h | Jump_Zero 0x4f17 4f0f e002 | | Load 0x0,0x2 4f10 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 4f11 4802 |H | Short_Literal 0x2 4f12 4801 |H | Short_Literal 0x1 4f13 e5fd | | Load 0x2,-0x3 4f14 e5fe | | Load 0x2,-0x2 4f15 e5ff | | Load 0x2,-0x1 4f16 8247 | G | Call 0x1,0x47 4f17 e5ff | | Load 0x2,-0x1 4f18 0d01 | | Execute_Immediate Less,0x1 4f19 e5ff | | Load 0x2,-0x1 4f1a e002 | | Load 0x0,0x2 4f1b 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4f1c 0aff | | Execute_Immediate Plus,-0x1 4f1d 027d | } | Execute Discrete,Greater 4f1e 0278 | x | Execute Discrete,Or 4f1f 6803 |h | Jump_Zero 0x4f23 4f20 4801 |H | Short_Literal 0x1 4f21 a602 | | Store_Unchecked 0x3,0x2 4f22 7802 |x | Jump 0x4f25 4f23 e5ff | | Load 0x2,-0x1 4f24 a602 | | Store_Unchecked 0x3,0x2 4f25 e5fe | | Load 0x2,-0x2 4f26 0d01 | | Execute_Immediate Less,0x1 4f27 e5fe | | Load 0x2,-0x2 4f28 e002 | | Load 0x0,0x2 4f29 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4f2a 027d | } | Execute Discrete,Greater 4f2b 0278 | x | Execute Discrete,Or 4f2c 6804 |h | Jump_Zero 0x4f31 4f2d e002 | | Load 0x0,0x2 4f2e 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 4f2f a603 | | Store_Unchecked 0x3,0x3 4f30 7802 |x | Jump 0x4f33 4f31 e5fe | | Load 0x2,-0x2 4f32 a603 | | Store_Unchecked 0x3,0x3 4f33 00cf | | Action Mark_Auxiliary 4f34 e603 | | Load 0x3,0x3 4f35 e602 | | Load 0x3,0x2 4f36 0263 | c | Execute Discrete,Above_Bound 4f37 7155 |qU | Jump_Nonzero 0x508d 4f38 00d8 | | Load_Top At_Offset_0 4f39 a604 | | Store_Unchecked 0x3,0x4 4f3a e002 | | Load 0x0,0x2 4f3b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 4f3c e604 | | Load 0x3,0x4 4f3d e002 | | Load 0x0,0x2 4f3e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4f3f 01d5 | | Execute Vector,Field_Reference 4f40 01d5 | | Execute Vector,Field_Reference 4f41 e002 | | Load 0x0,0x2 4f42 1a53 | S | Execute Package,Field_Write,Field_Number 0x53 4f43 e002 | | Load 0x0,0x2 4f44 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f45 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 4f46 0c01 | | Execute_Immediate Greater_Equal,0x1 4f47 e002 | | Load 0x0,0x2 4f48 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f49 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4f4a 0c01 | | Execute_Immediate Greater_Equal,0x1 4f4b e002 | | Load 0x0,0x2 4f4c 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f4d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 4f4e 0f00 | | Execute_Immediate Equal,0x0 4f4f 0279 | y | Execute Discrete,And 4f50 0279 | y | Execute Discrete,And 4f51 6804 |h | Jump_Zero 0x4f56 4f52 4801 |H | Short_Literal 0x1 4f53 e002 | | Load 0x0,0x2 4f54 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f55 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 4f56 e002 | | Load 0x0,0x2 4f57 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f58 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 4f59 0c01 | | Execute_Immediate Greater_Equal,0x1 4f5a e002 | | Load 0x0,0x2 4f5b 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f5c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4f5d 0c01 | | Execute_Immediate Greater_Equal,0x1 4f5e e002 | | Load 0x0,0x2 4f5f 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f60 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 4f61 0c01 | | Execute_Immediate Greater_Equal,0x1 4f62 0279 | y | Execute Discrete,And 4f63 0279 | y | Execute Discrete,And 4f64 6855 |hU | Jump_Zero 0x4fba 4f65 e604 | | Load 0x3,0x4 4f66 e5ff | | Load 0x2,-0x1 4f67 027f | | Execute Discrete,Equal 4f68 e5fe | | Load 0x2,-0x2 4f69 e5ff | | Load 0x2,-0x1 4f6a 0272 | r | Execute Discrete,Minus 4f6b 0c0b | | Execute_Immediate Greater_Equal,0xb 4f6c 0279 | y | Execute Discrete,And 4f6d 6804 |h | Jump_Zero 0x4f72 4f6e e001 | | Load 0x0,0x1 4f6f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4f70 4800 |H | Short_Literal 0x0 4f71 a606 | | Store_Unchecked 0x3,0x6 4f72 e606 | | Load 0x3,0x6 4f73 7001 |p | Jump_Nonzero 0x4f75 4f74 7821 |x! | Jump 0x4f96 4f75 e002 | | Load 0x0,0x2 4f76 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f77 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 4f78 0f01 | | Execute_Immediate Equal,0x1 4f79 6805 |h | Jump_Zero 0x4f7f 4f7a e001 | | Load 0x0,0x1 4f7b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4f7c 4800 |H | Short_Literal 0x0 4f7d a606 | | Store_Unchecked 0x3,0x6 4f7e 7817 |x | Jump 0x4f96 4f7f e606 | | Load 0x3,0x6 4f80 0c01 | | Execute_Immediate Greater_Equal,0x1 4f81 e606 | | Load 0x3,0x6 4f82 0d28 | ( | Execute_Immediate Less,0x28 4f83 0279 | y | Execute Discrete,And 4f84 680d |h | Jump_Zero 0x4f92 4f85 4801 |H | Short_Literal 0x1 4f86 4828 |H( | Short_Literal 0x28 4f87 e606 | | Load 0x3,0x6 4f88 0272 | r | Execute Discrete,Minus 4f89 0248 | H | Execute Discrete,Check_In_Integer 4f8a e002 | | Load 0x0,0x2 4f8b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 4f8c 01cf | | Execute Vector,Slice_Read 4f8d e001 | | Load 0x0,0x1 4f8e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4f8f 4828 |H( | Short_Literal 0x28 4f90 a606 | | Store_Unchecked 0x3,0x6 4f91 7804 |x | Jump 0x4f96 4f92 e001 | | Load 0x0,0x1 4f93 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4f94 4800 |H | Short_Literal 0x0 4f95 a606 | | Store_Unchecked 0x3,0x6 4f96 4801 |H | Short_Literal 0x1 4f97 4801 |H | Short_Literal 0x1 4f98 4801 |H | Short_Literal 0x1 4f99 e604 | | Load 0x3,0x4 4f9a e002 | | Load 0x0,0x2 4f9b 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4f9c e002 | | Load 0x0,0x2 4f9d 18aa | | Execute Package,Field_Execute,Field_Number 0xaa 4f9e e606 | | Load 0x3,0x6 4f9f e002 | | Load 0x0,0x2 4fa0 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fa1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4fa2 0273 | s | Execute Discrete,Plus 4fa3 0248 | H | Execute Discrete,Check_In_Integer 4fa4 a606 | | Store_Unchecked 0x3,0x6 4fa5 e604 | | Load 0x3,0x4 4fa6 e5ff | | Load 0x2,-0x1 4fa7 027f | | Execute Discrete,Equal 4fa8 e5fe | | Load 0x2,-0x2 4fa9 e5ff | | Load 0x2,-0x1 4faa 0272 | r | Execute Discrete,Minus 4fab 0c0b | | Execute_Immediate Greater_Equal,0xb 4fac 0279 | y | Execute Discrete,And 4fad 680c |h | Jump_Zero 0x4fba 4fae e001 | | Load 0x0,0x1 4faf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 4fb0 4801 |H | Short_Literal 0x1 4fb1 e002 | | Load 0x0,0x2 4fb2 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fb3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4fb4 e607 | | Load 0x3,0x7 4fb5 01cf | | Execute Vector,Slice_Read 4fb6 e001 | | Load 0x0,0x1 4fb7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 4fb8 4850 |HP | Short_Literal 0x50 4fb9 a606 | | Store_Unchecked 0x3,0x6 4fba e002 | | Load 0x0,0x2 4fbb 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4fbc e604 | | Load 0x3,0x4 4fbd e002 | | Load 0x0,0x2 4fbe 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4fbf 01d5 | | Execute Vector,Field_Reference 4fc0 01d5 | | Execute Vector,Field_Reference 4fc1 e002 | | Load 0x0,0x2 4fc2 1a53 | S | Execute Package,Field_Write,Field_Number 0x53 4fc3 e002 | | Load 0x0,0x2 4fc4 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fc5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 4fc6 0c01 | | Execute_Immediate Greater_Equal,0x1 4fc7 e002 | | Load 0x0,0x2 4fc8 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fc9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4fca 0c01 | | Execute_Immediate Greater_Equal,0x1 4fcb e002 | | Load 0x0,0x2 4fcc 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fcd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 4fce 0f00 | | Execute_Immediate Equal,0x0 4fcf 0279 | y | Execute Discrete,And 4fd0 0279 | y | Execute Discrete,And 4fd1 6818 |h | Jump_Zero 0x4fea 4fd2 e002 | | Load 0x0,0x2 4fd3 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4fd4 0aff | | Execute_Immediate Plus,-0x1 4fd5 0248 | H | Execute Discrete,Check_In_Integer 4fd6 e604 | | Load 0x3,0x4 4fd7 e002 | | Load 0x0,0x2 4fd8 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4fd9 01d5 | | Execute Vector,Field_Reference 4fda 01d5 | | Execute Vector,Field_Reference 4fdb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 4fdc e002 | | Load 0x0,0x2 4fdd 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 4fde 0aff | | Execute_Immediate Plus,-0x1 4fdf 0248 | H | Execute Discrete,Check_In_Integer 4fe0 e604 | | Load 0x3,0x4 4fe1 e002 | | Load 0x0,0x2 4fe2 1b90 | | Execute Package,Field_Read,Field_Number 0x90 4fe3 01d5 | | Execute Vector,Field_Reference 4fe4 01d5 | | Execute Vector,Field_Reference 4fe5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4fe6 0273 | s | Execute Discrete,Plus 4fe7 e002 | | Load 0x0,0x2 4fe8 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fe9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 4fea e002 | | Load 0x0,0x2 4feb 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4fec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 4fed 0c01 | | Execute_Immediate Greater_Equal,0x1 4fee e002 | | Load 0x0,0x2 4fef 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4ff0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4ff1 0c01 | | Execute_Immediate Greater_Equal,0x1 4ff2 e002 | | Load 0x0,0x2 4ff3 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4ff4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 4ff5 0c01 | | Execute_Immediate Greater_Equal,0x1 4ff6 0279 | y | Execute Discrete,And 4ff7 0279 | y | Execute Discrete,And 4ff8 6892 |h | Jump_Zero 0x508b 4ff9 e002 | | Load 0x0,0x2 4ffa 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 4ffb 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 4ffc 0d1f | | Execute_Immediate Less,0x1f 4ffd 6810 |h | Jump_Zero 0x500e 4ffe 4801 |H | Short_Literal 0x1 4fff 4801 |H | Short_Literal 0x1 5000 4801 |H | Short_Literal 0x1 5001 e604 | | Load 0x3,0x4 5002 e002 | | Load 0x0,0x2 5003 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5004 e002 | | Load 0x0,0x2 5005 18aa | | Execute Package,Field_Execute,Field_Number 0xaa 5006 e606 | | Load 0x3,0x6 5007 e002 | | Load 0x0,0x2 5008 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5009 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 500a 0273 | s | Execute Discrete,Plus 500b 0248 | H | Execute Discrete,Check_In_Integer 500c a606 | | Store_Unchecked 0x3,0x6 500d 787d |x} | Jump 0x508b 500e 4801 |H | Short_Literal 0x1 500f e002 | | Load 0x0,0x2 5010 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5011 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5012 e002 | | Load 0x0,0x2 5013 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5014 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 5015 01cf | | Execute Vector,Slice_Read 5016 4801 |H | Short_Literal 0x1 5017 e002 | | Load 0x0,0x2 5018 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5019 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 501a e002 | | Load 0x0,0x2 501b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 501c 01cf | | Execute Vector,Slice_Read 501d 01de | | Execute Vector,Not_Equal 501e 6836 |h6 | Jump_Zero 0x5055 501f e002 | | Load 0x0,0x2 5020 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 5021 e604 | | Load 0x3,0x4 5022 e002 | | Load 0x0,0x2 5023 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5024 01d5 | | Execute Vector,Field_Reference 5025 01d5 | | Execute Vector,Field_Reference 5026 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5027 0d3c | < | Execute_Immediate Less,0x3c 5028 680b |h | Jump_Zero 0x5034 5029 e002 | | Load 0x0,0x2 502a 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 502b e604 | | Load 0x3,0x4 502c e002 | | Load 0x0,0x2 502d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 502e 01d5 | | Execute Vector,Field_Reference 502f 01d5 | | Execute Vector,Field_Reference 5030 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5031 e002 | | Load 0x0,0x2 5032 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5033 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 5034 e002 | | Load 0x0,0x2 5035 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5036 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5037 e002 | | Load 0x0,0x2 5038 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5039 e604 | | Load 0x3,0x4 503a e002 | | Load 0x0,0x2 503b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 503c 01d5 | | Execute Vector,Field_Reference 503d 01d5 | | Execute Vector,Field_Reference 503e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 503f 0273 | s | Execute Discrete,Plus 5040 0c51 | Q | Execute_Immediate Greater_Equal,0x51 5041 6803 |h | Jump_Zero 0x5045 5042 4801 |H | Short_Literal 0x1 5043 e004 | | Load 0x0,0x4 5044 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 5045 4801 |H | Short_Literal 0x1 5046 4801 |H | Short_Literal 0x1 5047 4801 |H | Short_Literal 0x1 5048 e604 | | Load 0x3,0x4 5049 e002 | | Load 0x0,0x2 504a 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 504b e002 | | Load 0x0,0x2 504c 18aa | | Execute Package,Field_Execute,Field_Number 0xaa 504d e606 | | Load 0x3,0x6 504e e002 | | Load 0x0,0x2 504f 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5050 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5051 0273 | s | Execute Discrete,Plus 5052 0248 | H | Execute Discrete,Check_In_Integer 5053 a606 | | Store_Unchecked 0x3,0x6 5054 7836 |x6 | Jump 0x508b 5055 e002 | | Load 0x0,0x2 5056 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 5057 e604 | | Load 0x3,0x4 5058 e002 | | Load 0x0,0x2 5059 1b90 | | Execute Package,Field_Read,Field_Number 0x90 505a 01d5 | | Execute Vector,Field_Reference 505b 01d5 | | Execute Vector,Field_Reference 505c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 505d 0d3c | < | Execute_Immediate Less,0x3c 505e 680b |h | Jump_Zero 0x506a 505f e002 | | Load 0x0,0x2 5060 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 5061 e604 | | Load 0x3,0x4 5062 e002 | | Load 0x0,0x2 5063 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5064 01d5 | | Execute Vector,Field_Reference 5065 01d5 | | Execute Vector,Field_Reference 5066 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5067 e002 | | Load 0x0,0x2 5068 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5069 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 506a 0092 65e9 | e | Action Push_String_Extended,0x65e9 ; "______ ..." 506c 480b |H | Short_Literal 0xb 506d e002 | | Load 0x0,0x2 506e 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 506f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5070 e002 | | Load 0x0,0x2 5071 1b20 | | Execute Package,Field_Read,Field_Number 0x20 5072 01cf | | Execute Vector,Slice_Read 5073 01cc | | Execute Vector,Catenate 5074 4801 |H | Short_Literal 0x1 5075 e002 | | Load 0x0,0x2 5076 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5077 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5078 e002 | | Load 0x0,0x2 5079 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 507a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 507b 01ce | | Execute Vector,Slice_Write 507c 4801 |H | Short_Literal 0x1 507d 4801 |H | Short_Literal 0x1 507e 4801 |H | Short_Literal 0x1 507f e604 | | Load 0x3,0x4 5080 e002 | | Load 0x0,0x2 5081 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5082 e002 | | Load 0x0,0x2 5083 18aa | | Execute Package,Field_Execute,Field_Number 0xaa 5084 e606 | | Load 0x3,0x6 5085 e002 | | Load 0x0,0x2 5086 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5087 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5088 0273 | s | Execute Discrete,Plus 5089 0248 | H | Execute Discrete,Check_In_Integer 508a a606 | | Store_Unchecked 0x3,0x6 508b 00c8 | | Action Pop_Auxiliary_Range 508c 3eab |> | Loop_Increasing 0x4f38 508d 00ce | | Action Pop_Auxiliary 508e e001 | | Load 0x0,0x1 508f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5090 e5f9 | | Load 0x2,-0x7 5091 0f01 | | Execute_Immediate Equal,0x1 5092 e5fd | | Load 0x2,-0x3 5093 e002 | | Load 0x0,0x2 5094 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5095 01d5 | | Execute Vector,Field_Reference 5096 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 5097 0f01 | | Execute_Immediate Equal,0x1 5098 0279 | y | Execute Discrete,And 5099 6804 |h | Jump_Zero 0x509e 509a e5fd | | Load 0x2,-0x3 509b e603 | | Load 0x3,0x3 509c e602 | | Load 0x3,0x2 509d 8235 | 5 | Call 0x1,0x35 509e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 509f 0000 | | .XXX[0x1] 50a0 ; -------------------------------------------------------------------------------------- 50a0 ; SUBPROGRAM 50a0 ; -------------------------------------------------------------------------------------- 50a0 50ab |P | .CONST 0x50ab ; Address of begin 50a1 0004 | | .CONST 0x0004 ; Address of exception handler 50a2 0005 | | .CONST 0x0005 ; Number of locals 50a3 INIT_50a0: 50a3 00e2 | | Load_Encached Integer_Cache 50a4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 50a5 e002 | | Load 0x0,0x2 50a6 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 50a7 00e2 | | Load_Encached Integer_Cache 50a8 03f1 | | Declare_Variable Discrete,With_Value 50a9 00e2 | | Load_Encached Integer_Cache 50aa 00e2 | | Load_Encached Integer_Cache 50ab BODY_50a0: 50ab e5ff | | Load 0x2,-0x1 50ac 0d01 | | Execute_Immediate Less,0x1 50ad e5ff | | Load 0x2,-0x1 50ae e002 | | Load 0x0,0x2 50af 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 50b0 0aff | | Execute_Immediate Plus,-0x1 50b1 027d | } | Execute Discrete,Greater 50b2 0278 | x | Execute Discrete,Or 50b3 6803 |h | Jump_Zero 0x50b7 50b4 4801 |H | Short_Literal 0x1 50b5 a602 | | Store_Unchecked 0x3,0x2 50b6 7802 |x | Jump 0x50b9 50b7 e5ff | | Load 0x2,-0x1 50b8 a602 | | Store_Unchecked 0x3,0x2 50b9 e5fe | | Load 0x2,-0x2 50ba 0d01 | | Execute_Immediate Less,0x1 50bb e5fe | | Load 0x2,-0x2 50bc e002 | | Load 0x0,0x2 50bd 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 50be 027d | } | Execute Discrete,Greater 50bf 0278 | x | Execute Discrete,Or 50c0 6804 |h | Jump_Zero 0x50c5 50c1 e002 | | Load 0x0,0x2 50c2 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 50c3 a603 | | Store_Unchecked 0x3,0x3 50c4 7802 |x | Jump 0x50c7 50c5 e5fe | | Load 0x2,-0x2 50c6 a603 | | Store_Unchecked 0x3,0x3 50c7 00cf | | Action Mark_Auxiliary 50c8 e603 | | Load 0x3,0x3 50c9 e602 | | Load 0x3,0x2 50ca 0263 | c | Execute Discrete,Above_Bound 50cb 7070 |pp | Jump_Nonzero 0x513c 50cc 00d8 | | Load_Top At_Offset_0 50cd a604 | | Store_Unchecked 0x3,0x4 50ce e5fc | | Load 0x2,-0x4 50cf 0f01 | | Execute_Immediate Equal,0x1 50d0 6839 |h9 | Jump_Zero 0x510a 50d1 e002 | | Load 0x0,0x2 50d2 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 50d3 e604 | | Load 0x3,0x4 50d4 e002 | | Load 0x0,0x2 50d5 1b90 | | Execute Package,Field_Read,Field_Number 0x90 50d6 01d5 | | Execute Vector,Field_Reference 50d7 01d5 | | Execute Vector,Field_Reference 50d8 e002 | | Load 0x0,0x2 50d9 1a53 | S | Execute Package,Field_Write,Field_Number 0x53 50da e002 | | Load 0x0,0x2 50db 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 50dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 50dd 0c01 | | Execute_Immediate Greater_Equal,0x1 50de e002 | | Load 0x0,0x2 50df 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 50e0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 50e1 0c01 | | Execute_Immediate Greater_Equal,0x1 50e2 e002 | | Load 0x0,0x2 50e3 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 50e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 50e5 0c01 | | Execute_Immediate Greater_Equal,0x1 50e6 0279 | y | Execute Discrete,And 50e7 0279 | y | Execute Discrete,And 50e8 6821 |h! | Jump_Zero 0x510a 50e9 4801 |H | Short_Literal 0x1 50ea e5fa | | Load 0x2,-0x6 50eb e004 | | Load 0x0,0x4 50ec 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 50ed 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 50ef e5fa | | Load 0x2,-0x6 50f0 e004 | | Load 0x0,0x4 50f1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 50f2 4801 |H | Short_Literal 0x1 50f3 e002 | | Load 0x0,0x2 50f4 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 50f5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 50f6 e002 | | Load 0x0,0x2 50f7 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 50f8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 50f9 01cf | | Execute Vector,Slice_Read 50fa e5fa | | Load 0x2,-0x6 50fb e004 | | Load 0x0,0x4 50fc 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 50fd e604 | | Load 0x3,0x4 50fe e602 | | Load 0x3,0x2 50ff 027f | | Execute Discrete,Equal 5100 6809 |h | Jump_Zero 0x510a 5101 4801 |H | Short_Literal 0x1 5102 e5fa | | Load 0x2,-0x6 5103 e004 | | Load 0x0,0x4 5104 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 5105 0092 65ea | e | Action Push_String_Extended,0x65ea ; " ----------------------------------------" 5107 e5fa | | Load 0x2,-0x6 5108 e004 | | Load 0x0,0x4 5109 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 510a 0007 | | Action Break_Optional 510b e002 | | Load 0x0,0x2 510c 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 510d e604 | | Load 0x3,0x4 510e e002 | | Load 0x0,0x2 510f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5110 01d5 | | Execute Vector,Field_Reference 5111 01d5 | | Execute Vector,Field_Reference 5112 e002 | | Load 0x0,0x2 5113 1a53 | S | Execute Package,Field_Write,Field_Number 0x53 5114 e002 | | Load 0x0,0x2 5115 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5116 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 5117 0c01 | | Execute_Immediate Greater_Equal,0x1 5118 e002 | | Load 0x0,0x2 5119 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 511a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 511b 0c01 | | Execute_Immediate Greater_Equal,0x1 511c 0279 | y | Execute Discrete,And 511d 681c |h | Jump_Zero 0x513a 511e e002 | | Load 0x0,0x2 511f 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5120 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5121 e002 | | Load 0x0,0x2 5122 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5123 e604 | | Load 0x3,0x4 5124 e002 | | Load 0x0,0x2 5125 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5126 01d5 | | Execute Vector,Field_Reference 5127 01d5 | | Execute Vector,Field_Reference 5128 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5129 0273 | s | Execute Discrete,Plus 512a 0c51 | Q | Execute_Immediate Greater_Equal,0x51 512b 6803 |h | Jump_Zero 0x512f 512c 4801 |H | Short_Literal 0x1 512d e004 | | Load 0x0,0x4 512e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 512f 4801 |H | Short_Literal 0x1 5130 e002 | | Load 0x0,0x2 5131 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5132 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5133 e002 | | Load 0x0,0x2 5134 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 5135 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 5136 01cf | | Execute Vector,Slice_Read 5137 e5fa | | Load 0x2,-0x6 5138 e004 | | Load 0x0,0x4 5139 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 513a 00c8 | | Action Pop_Auxiliary_Range 513b 3f90 |? | Loop_Increasing 0x50cc 513c 00ce | | Action Pop_Auxiliary 513d 4801 |H | Short_Literal 0x1 513e e5fa | | Load 0x2,-0x6 513f e004 | | Load 0x0,0x4 5140 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 5141 4801 |H | Short_Literal 0x1 5142 e5fa | | Load 0x2,-0x6 5143 e004 | | Load 0x0,0x4 5144 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 5145 e5fa | | Load 0x2,-0x6 5146 e5fb | | Load 0x2,-0x5 5147 e5fc | | Load 0x2,-0x4 5148 e5fd | | Load 0x2,-0x3 5149 e5fe | | Load 0x2,-0x2 514a e5ff | | Load 0x2,-0x1 514b 8248 | H | Call 0x1,0x48 514c 4801 |H | Short_Literal 0x1 514d e5fa | | Load 0x2,-0x6 514e e004 | | Load 0x0,0x4 514f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 5150 e5fa | | Load 0x2,-0x6 5151 e004 | | Load 0x0,0x4 5152 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 5153 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5154 0000 0000 | | .BLANK 0000[0x4] 5158 ; -------------------------------------------------------------------------------------- 5158 ; SUBPROGRAM 5158 ; -------------------------------------------------------------------------------------- 5158 515b |Q[ | .CONST 0x515b ; Address of begin 5159 5166 |Qf | .CONST 0x5166 ; Address of exception handler 515a 0001 | | .CONST 0x0001 ; Number of locals 515b BODY_5158: 515b INIT_5158: 515b e405 | | Load 0x2,0x5 515c 00ea | | Load_Encached Null_String_Cache 515d 4801 |H | Short_Literal 0x1 515e e403 | | Load 0x2,0x3 515f e402 | | Load 0x2,0x2 5160 01cf | | Execute Vector,Slice_Read 5161 4800 |H | Short_Literal 0x0 5162 e004 | | Load 0x0,0x4 5163 1815 | | Execute Package,Field_Execute,Field_Number 0x15 5164 c405 | | Store 0x2,0x5 5165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5166 TRAP_5158: 5166 0007 | | Action Break_Optional 5167 0092 65eb | e | Action Push_String_Extended,0x65eb ; " [No detail to print for this record: " 5169 e404 | | Load 0x2,0x4 516a 01cc | | Execute Vector,Catenate 516b 4801 |H | Short_Literal 0x1 516c e407 | | Load 0x2,0x7 516d e406 | | Load 0x2,0x6 516e 01cf | | Execute Vector,Slice_Read 516f 01cc | | Execute Vector,Catenate 5170 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 5172 01cc | | Execute Vector,Catenate 5173 e5fa | | Load 0x2,-0x6 5174 e004 | | Load 0x0,0x4 5175 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 5176 00cc | | Action Pop_Block 5177 4507 |E | Exit_Suprogram New_Top_Offset 0x7 5178 ; -------------------------------------------------------------------------------------- 5178 ; SUBPROGRAM 5178 ; -------------------------------------------------------------------------------------- 5178 517f |Q | .CONST 0x517f ; Address of begin 5179 0004 | | .CONST 0x0004 ; Address of exception handler 517a 0003 | | .CONST 0x0003 ; Number of locals 517b INIT_5178: 517b 00e2 | | Load_Encached Integer_Cache 517c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 517d 029f 60bb | ` | Declare_Subprogram INIT_60b8,For_Call 517f BODY_5178: 517f 00cf | | Action Mark_Auxiliary 5180 0007 | | Action Break_Optional 5181 8603 | | Call 0x3,0x3 5182 00c9 | | Action Pop_Auxiliary_Loop 5183 7ffd | | Jump 0x5181 5184 0000 0000 | | .BLANK 0000[0x4] 5188 ; -------------------------------------------------------------------------------------- 5188 ; SUBPROGRAM 5188 ; -------------------------------------------------------------------------------------- 5188 5190 |Q | .CONST 0x5190 ; Address of begin 5189 51b5 |Q | .CONST 0x51b5 ; Address of exception handler 518a 0002 | | .CONST 0x0002 ; Number of locals 518b INIT_5188: 518b e004 | | Load 0x0,0x4 518c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 518d 02c7 | | Declare_Variable Any 518e 00d8 | | Load_Top At_Offset_0 518f 1c00 | | Execute_Immediate Run_Utility,0x0 5190 BODY_5188: 5190 00be | | Action Activate_Tasks 5191 00d8 | | Load_Top At_Offset_0 5192 00ea | | Load_Encached Null_String_Cache 5193 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 5195 e003 | | Load 0x0,0x3 5196 1819 | | Execute Package,Field_Execute,Field_Number 0x19 5197 e003 | | Load 0x0,0x3 5198 181c | | Execute Package,Field_Execute,Field_Number 0x1c 5199 01cc | | Execute Vector,Catenate 519a 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 519c 01cc | | Execute Vector,Catenate 519d e003 | | Load 0x0,0x3 519e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 519f e003 | | Load 0x0,0x3 51a0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 51a1 01cc | | Execute Vector,Catenate 51a2 0092 6437 | d7| Action Push_String_Extended,0x6437 ; "_sims_hold_" 51a4 01cc | | Execute Vector,Catenate 51a5 0092 65ec | e | Action Push_String_Extended,0x65ec ; "XX0000000000" 51a7 01cc | | Execute Vector,Catenate 51a8 4801 |H | Short_Literal 0x1 51a9 e004 | | Load 0x0,0x4 51aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 51ab c602 | | Store 0x3,0x2 51ac 00d8 | | Load_Top At_Offset_0 51ad e004 | | Load 0x0,0x4 51ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17 51af c602 | | Store 0x3,0x2 51b0 00d8 | | Load_Top At_Offset_0 51b1 e004 | | Load 0x0,0x4 51b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 51b3 c602 | | Store 0x3,0x2 51b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 51b5 TRAP_5188: 51b5 0007 | | Action Break_Optional 51b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 51b7 0000 | | .XXX[0x1] 51b8 ; -------------------------------------------------------------------------------------- 51b8 ; SUBPROGRAM 51b8 ; -------------------------------------------------------------------------------------- 51b8 51c0 |Q | .CONST 0x51c0 ; Address of begin 51b9 51e5 |Q | .CONST 0x51e5 ; Address of exception handler 51ba 0002 | | .CONST 0x0002 ; Number of locals 51bb INIT_51b8: 51bb e004 | | Load 0x0,0x4 51bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 51bd 02c7 | | Declare_Variable Any 51be 00d8 | | Load_Top At_Offset_0 51bf 1c00 | | Execute_Immediate Run_Utility,0x0 51c0 BODY_51b8: 51c0 00be | | Action Activate_Tasks 51c1 00d8 | | Load_Top At_Offset_0 51c2 00ea | | Load_Encached Null_String_Cache 51c3 0092 6436 | d6| Action Push_String_Extended,0x6436 ; "!machine.sims.to_rational.internal_processing." 51c5 e003 | | Load 0x0,0x3 51c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 51c7 e003 | | Load 0x0,0x3 51c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 51c9 01cc | | Execute Vector,Catenate 51ca 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 51cc 01cc | | Execute Vector,Catenate 51cd e003 | | Load 0x0,0x3 51ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19 51cf e003 | | Load 0x0,0x3 51d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 51d1 01cc | | Execute Vector,Catenate 51d2 0092 6437 | d7| Action Push_String_Extended,0x6437 ; "_sims_hold_" 51d4 01cc | | Execute Vector,Catenate 51d5 0092 65ec | e | Action Push_String_Extended,0x65ec ; "XX0000000000" 51d7 01cc | | Execute Vector,Catenate 51d8 4801 |H | Short_Literal 0x1 51d9 e004 | | Load 0x0,0x4 51da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 51db c602 | | Store 0x3,0x2 51dc 00d8 | | Load_Top At_Offset_0 51dd e004 | | Load 0x0,0x4 51de 1817 | | Execute Package,Field_Execute,Field_Number 0x17 51df c602 | | Store 0x3,0x2 51e0 00d8 | | Load_Top At_Offset_0 51e1 e004 | | Load 0x0,0x4 51e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 51e3 c602 | | Store 0x3,0x2 51e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 51e5 TRAP_51b8: 51e5 0007 | | Action Break_Optional 51e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 51e7 0000 | | .XXX[0x1] 51e8 ; -------------------------------------------------------------------------------------- 51e8 ; SUBPROGRAM 51e8 ; -------------------------------------------------------------------------------------- 51e8 5203 |R | .CONST 0x5203 ; Address of begin 51e9 0004 | | .CONST 0x0004 ; Address of exception handler 51ea 000c | | .CONST 0x000c ; Number of locals 51eb INIT_51e8: 51eb 00e2 | | Load_Encached Integer_Cache 51ec 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 51ed e002 | | Load 0x0,0x2 51ee 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 51ef 00e2 | | Load_Encached Integer_Cache 51f0 03f1 | | Declare_Variable Discrete,With_Value 51f1 00e2 | | Load_Encached Integer_Cache 51f2 00e2 | | Load_Encached Integer_Cache 51f3 00e2 | | Load_Encached Integer_Cache 51f4 00e2 | | Load_Encached Integer_Cache 51f5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 51f6 00e2 | | Load_Encached Integer_Cache 51f7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 51f8 00e2 | | Load_Encached Integer_Cache 51f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 51fa 4801 |H | Short_Literal 0x1 51fb 4801 |H | Short_Literal 0x1 51fc 00e9 | | Load_Encached String_Cache 51fd 0334 | 4 | Declare_Variable Array,With_Constraint 51fe 52f9 |R | Indirect_Literal Any,0x54f8,{0x20202020, 0x20202020} 51ff 00e2 | | Load_Encached Integer_Cache 5200 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5201 00e2 | | Load_Encached Integer_Cache 5202 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5203 BODY_51e8: 5203 e001 | | Load 0x0,0x1 5204 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5205 e5ff | | Load 0x2,-0x1 5206 0d01 | | Execute_Immediate Less,0x1 5207 e5ff | | Load 0x2,-0x1 5208 e002 | | Load 0x0,0x2 5209 1b8e | | Execute Package,Field_Read,Field_Number 0x8e 520a 0aff | | Execute_Immediate Plus,-0x1 520b 027d | } | Execute Discrete,Greater 520c 0278 | x | Execute Discrete,Or 520d 6803 |h | Jump_Zero 0x5211 520e 4801 |H | Short_Literal 0x1 520f a602 | | Store_Unchecked 0x3,0x2 5210 7802 |x | Jump 0x5213 5211 e5ff | | Load 0x2,-0x1 5212 a602 | | Store_Unchecked 0x3,0x2 5213 e5fe | | Load 0x2,-0x2 5214 a603 | | Store_Unchecked 0x3,0x3 5215 e5fa | | Load 0x2,-0x6 5216 700f |p | Jump_Nonzero 0x5226 5217 4800 |H | Short_Literal 0x0 5218 4801 |H | Short_Literal 0x1 5219 4801 |H | Short_Literal 0x1 521a 4801 |H | Short_Literal 0x1 521b e5fd | | Load 0x2,-0x3 521c e603 | | Load 0x3,0x3 521d e602 | | Load 0x3,0x2 521e 8246 | F | Call 0x1,0x46 521f e001 | | Load 0x0,0x1 5220 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5221 e002 | | Load 0x0,0x2 5222 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 5223 7002 |p | Jump_Nonzero 0x5226 5224 e001 | | Load 0x0,0x1 5225 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5226 0007 | | Action Break_Optional 5227 e602 | | Load 0x3,0x2 5228 0aff | | Execute_Immediate Plus,-0x1 5229 0248 | H | Execute Discrete,Check_In_Integer 522a a604 | | Store_Unchecked 0x3,0x4 522b 00cf | | Action Mark_Auxiliary 522c 0007 | | Action Break_Optional 522d e604 | | Load 0x3,0x4 522e 0a01 | | Execute_Immediate Plus,0x1 522f 0248 | H | Execute Discrete,Check_In_Integer 5230 a604 | | Store_Unchecked 0x3,0x4 5231 e604 | | Load 0x3,0x4 5232 e603 | | Load 0x3,0x3 5233 027d | } | Execute Discrete,Greater 5234 6828 |h( | Jump_Zero 0x525d 5235 e602 | | Load 0x3,0x2 5236 e603 | | Load 0x3,0x3 5237 027f | | Execute Discrete,Equal 5238 6801 |h | Jump_Zero 0x523a 5239 4501 |E | Exit_Suprogram New_Top_Offset 0x1 523a e60a | | Load 0x3,0xa 523b 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 523d 4803 |H | Short_Literal 0x3 523e 0092 65ed | e | Action Push_String_Extended,0x65ed ; "Do you want to re-edit any fields? " 5240 e001 | | Load 0x0,0x1 5241 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 5242 00d1 | | Pop_Control Pop_Count_1 5243 4801 |H | Short_Literal 0x1 5244 4801 |H | Short_Literal 0x1 5245 e60a | | Load 0x3,0xa 5246 01cf | | Execute Vector,Slice_Read 5247 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 5249 01df | | Execute Vector,Equal 524a 68ca |h | Jump_Zero 0x5315 524b 4800 |H | Short_Literal 0x0 524c e5f8 | | Load 0x2,-0x8 524d 4801 |H | Short_Literal 0x1 524e 4801 |H | Short_Literal 0x1 524f e5fd | | Load 0x2,-0x3 5250 e603 | | Load 0x3,0x3 5251 e602 | | Load 0x3,0x2 5252 8246 | F | Call 0x1,0x46 5253 e001 | | Load 0x0,0x1 5254 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5255 e002 | | Load 0x0,0x2 5256 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 5257 7002 |p | Jump_Nonzero 0x525a 5258 e001 | | Load 0x0,0x1 5259 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 525a e602 | | Load 0x3,0x2 525b a604 | | Store_Unchecked 0x3,0x4 525c 7800 |x | Jump 0x525d 525d e002 | | Load 0x0,0x2 525e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 525f e604 | | Load 0x3,0x4 5260 e002 | | Load 0x0,0x2 5261 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5262 01d5 | | Execute Vector,Field_Reference 5263 01d5 | | Execute Vector,Field_Reference 5264 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5265 0c01 | | Execute_Immediate Greater_Equal,0x1 5266 e5f7 | | Load 0x2,-0x9 5267 0f01 | | Execute_Immediate Equal,0x1 5268 e002 | | Load 0x0,0x2 5269 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 526a e604 | | Load 0x3,0x4 526b e002 | | Load 0x0,0x2 526c 1b90 | | Execute Package,Field_Read,Field_Number 0x90 526d 01d5 | | Execute Vector,Field_Reference 526e 01d5 | | Execute Vector,Field_Reference 526f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 5270 0c01 | | Execute_Immediate Greater_Equal,0x1 5271 e002 | | Load 0x0,0x2 5272 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5273 e604 | | Load 0x3,0x4 5274 e002 | | Load 0x0,0x2 5275 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5276 01d5 | | Execute Vector,Field_Reference 5277 01d5 | | Execute Vector,Field_Reference 5278 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5279 0d00 | | Execute_Immediate Less,0x0 527a 0279 | y | Execute Discrete,And 527b 0279 | y | Execute Discrete,And 527c 0278 | x | Execute Discrete,Or 527d 6895 |h | Jump_Zero 0x5313 527e 4800 |H | Short_Literal 0x0 527f a609 | | Store_Unchecked 0x3,0x9 5280 00cf | | Action Mark_Auxiliary 5281 e002 | | Load 0x0,0x2 5282 1b60 | ` | Execute Package,Field_Read,Field_Number 0x60 5283 4801 |H | Short_Literal 0x1 5284 0263 | c | Execute Discrete,Above_Bound 5285 7012 |p | Jump_Nonzero 0x5298 5286 e609 | | Load 0x3,0x9 5287 0a01 | | Execute_Immediate Plus,0x1 5288 0248 | H | Execute Discrete,Check_In_Integer 5289 a609 | | Store_Unchecked 0x3,0x9 528a e609 | | Load 0x3,0x9 528b e604 | | Load 0x3,0x4 528c e002 | | Load 0x0,0x2 528d 1b90 | | Execute Package,Field_Read,Field_Number 0x90 528e 01d5 | | Execute Vector,Field_Reference 528f 01d5 | | Execute Vector,Field_Reference 5290 e609 | | Load 0x3,0x9 5291 0a64 | d | Execute_Immediate Plus,0x64 5292 0248 | H | Execute Discrete,Check_In_Integer 5293 e002 | | Load 0x0,0x2 5294 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 5295 01d6 | | Execute Vector,Field_Write 5296 00c8 | | Action Pop_Auxiliary_Range 5297 3fee |? | Loop_Increasing 0x5286 5298 00ce | | Action Pop_Auxiliary 5299 0007 | | Action Break_Optional 529a e604 | | Load 0x3,0x4 529b a605 | | Store_Unchecked 0x3,0x5 529c e002 | | Load 0x0,0x2 529d 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 529e e604 | | Load 0x3,0x4 529f e002 | | Load 0x0,0x2 52a0 1b90 | | Execute Package,Field_Read,Field_Number 0x90 52a1 01d5 | | Execute Vector,Field_Reference 52a2 01d5 | | Execute Vector,Field_Reference 52a3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 52a4 a606 | | Store_Unchecked 0x3,0x6 52a5 e5f6 | | Load 0x2,-0xa 52a6 e5fc | | Load 0x2,-0x4 52a7 e604 | | Load 0x3,0x4 52a8 e604 | | Load 0x3,0x4 52a9 824b | K | Call 0x1,0x4b 52aa 00d1 | | Pop_Control Pop_Count_1 52ab e5f6 | | Load 0x2,-0xa 52ac 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 52ae 01df | | Execute Vector,Equal 52af 6805 |h | Jump_Zero 0x52b5 52b0 e604 | | Load 0x3,0x4 52b1 e5fb | | Load 0x2,-0x5 52b2 824d | M | Call 0x1,0x4d 52b3 c604 | | Store 0x3,0x4 52b4 7826 |x& | Jump 0x52db 52b5 e5f6 | | Load 0x2,-0xa 52b6 0092 648d | d | Action Push_String_Extended,0x648d ; "," 52b8 01df | | Execute Vector,Equal 52b9 e5f6 | | Load 0x2,-0xa 52ba 0092 648e | d | Action Push_String_Extended,0x648e ; "/" 52bc 01df | | Execute Vector,Equal 52bd 0278 | x | Execute Discrete,Or 52be 6807 |h | Jump_Zero 0x52c6 52bf e604 | | Load 0x3,0x4 52c0 e5f6 | | Load 0x2,-0xa 52c1 e603 | | Load 0x3,0x3 52c2 e602 | | Load 0x3,0x2 52c3 8250 | P | Call 0x1,0x50 52c4 c604 | | Store 0x3,0x4 52c5 7815 |x | Jump 0x52db 52c6 e5f6 | | Load 0x2,-0xa 52c7 0092 63e7 | c | Action Push_String_Extended,0x63e7 ; "." 52c9 01df | | Execute Vector,Equal 52ca 6806 |h | Jump_Zero 0x52d1 52cb e604 | | Load 0x3,0x4 52cc e603 | | Load 0x3,0x3 52cd e602 | | Load 0x3,0x2 52ce 824e | N | Call 0x1,0x4e 52cf c604 | | Store 0x3,0x4 52d0 780a |x | Jump 0x52db 52d1 e5f6 | | Load 0x2,-0xa 52d2 0092 648f | d | Action Push_String_Extended,0x648f ; "^" 52d4 01df | | Execute Vector,Equal 52d5 6805 |h | Jump_Zero 0x52db 52d6 e604 | | Load 0x3,0x4 52d7 e603 | | Load 0x3,0x3 52d8 e602 | | Load 0x3,0x2 52d9 824f | O | Call 0x1,0x4f 52da c604 | | Store 0x3,0x4 52db e001 | | Load 0x0,0x1 52dc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 52dd e002 | | Load 0x0,0x2 52de 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 52df 7002 |p | Jump_Nonzero 0x52e2 52e0 e001 | | Load 0x0,0x1 52e1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 52e2 e002 | | Load 0x0,0x2 52e3 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 52e4 e605 | | Load 0x3,0x5 52e5 e002 | | Load 0x0,0x2 52e6 1b90 | | Execute Package,Field_Read,Field_Number 0x90 52e7 01d5 | | Execute Vector,Field_Reference 52e8 01d5 | | Execute Vector,Field_Reference 52e9 e002 | | Load 0x0,0x2 52ea 1a61 | a | Execute Package,Field_Write,Field_Number 0x61 52eb 0007 | | Action Break_Optional 52ec e002 | | Load 0x0,0x2 52ed 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 52ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 52ef 0c01 | | Execute_Immediate Greater_Equal,0x1 52f0 e002 | | Load 0x0,0x2 52f1 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 52f2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 52f3 0c01 | | Execute_Immediate Greater_Equal,0x1 52f4 e002 | | Load 0x0,0x2 52f5 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 52f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 52f7 0f00 | | Execute_Immediate Equal,0x0 52f8 0279 | y | Execute Discrete,And 52f9 0279 | y | Execute Discrete,And 52fa 6818 |h | Jump_Zero 0x5313 52fb e002 | | Load 0x0,0x2 52fc 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 52fd 0aff | | Execute_Immediate Plus,-0x1 52fe 0248 | H | Execute Discrete,Check_In_Integer 52ff e605 | | Load 0x3,0x5 5300 e002 | | Load 0x0,0x2 5301 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5302 01d5 | | Execute Vector,Field_Reference 5303 01d5 | | Execute Vector,Field_Reference 5304 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 5305 e002 | | Load 0x0,0x2 5306 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 5307 0aff | | Execute_Immediate Plus,-0x1 5308 0248 | H | Execute Discrete,Check_In_Integer 5309 e605 | | Load 0x3,0x5 530a e002 | | Load 0x0,0x2 530b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 530c 01d5 | | Execute Vector,Field_Reference 530d 01d5 | | Execute Vector,Field_Reference 530e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 530f 0273 | s | Execute Discrete,Plus 5310 e002 | | Load 0x0,0x2 5311 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 5312 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 5313 00c9 | | Action Pop_Auxiliary_Loop 5314 7f18 | | Jump 0x522d 5315 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5316 0000 0000 | | .XXX[0x2] 5318 ; -------------------------------------------------------------------------------------- 5318 ; SUBPROGRAM 5318 ; -------------------------------------------------------------------------------------- 5318 531b |S | .CONST 0x531b ; Address of begin 5319 5326 |S& | .CONST 0x5326 ; Address of exception handler 531a 0001 | | .CONST 0x0001 ; Number of locals 531b BODY_5318: 531b INIT_5318: 531b 4800 |H | Short_Literal 0x0 531c a403 | | Store_Unchecked 0x2,0x3 531d e402 | | Load 0x2,0x2 531e 0a01 | | Execute_Immediate Plus,0x1 531f 0248 | H | Execute Discrete,Check_In_Integer 5320 a402 | | Store_Unchecked 0x2,0x2 5321 e402 | | Load 0x2,0x2 5322 e5f6 | | Load 0x2,-0xa 5323 01d7 | | Execute Vector,Field_Read 5324 a403 | | Store_Unchecked 0x2,0x3 5325 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5326 TRAP_5318: 5326 0007 | | Action Break_Optional 5327 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5328 ; -------------------------------------------------------------------------------------- 5328 ; SUBPROGRAM 5328 ; -------------------------------------------------------------------------------------- 5328 532d |S- | .CONST 0x532d ; Address of begin 5329 0004 | | .CONST 0x0004 ; Address of exception handler 532a 0002 | | .CONST 0x0002 ; Number of locals 532b INIT_5328: 532b 00e2 | | Load_Encached Integer_Cache 532c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 532d BODY_5328: 532d e002 | | Load 0x0,0x2 532e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 532f 0f00 | | Execute_Immediate Equal,0x0 5330 e002 | | Load 0x0,0x2 5331 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 5332 0f00 | | Execute_Immediate Equal,0x0 5333 0278 | x | Execute Discrete,Or 5334 680d |h | Jump_Zero 0x5342 5335 e002 | | Load 0x0,0x2 5336 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 5337 e5ff | | Load 0x2,-0x1 5338 e002 | | Load 0x0,0x2 5339 1b90 | | Execute Package,Field_Read,Field_Number 0x90 533a 01d5 | | Execute Vector,Field_Reference 533b 01d5 | | Execute Vector,Field_Reference 533c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 533d 0c01 | | Execute_Immediate Greater_Equal,0x1 533e 6803 |h | Jump_Zero 0x5342 533f e5fe | | Load 0x2,-0x2 5340 e5ff | | Load 0x2,-0x1 5341 824c | L | Call 0x1,0x4c 5342 4801 |H | Short_Literal 0x1 5343 e002 | | Load 0x0,0x2 5344 1a30 | 0 | Execute Package,Field_Write,Field_Number 0x30 5345 e5fc | | Load 0x2,-0x4 5346 e602 | | Load 0x3,0x2 5347 e002 | | Load 0x0,0x2 5348 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 5349 e002 | | Load 0x0,0x2 534a 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 534b 4801 |H | Short_Literal 0x1 534c e5fd | | Load 0x2,-0x3 534d 4801 |H | Short_Literal 0x1 534e e002 | | Load 0x0,0x2 534f 18ab | | Execute Package,Field_Execute,Field_Number 0xab 5350 00d1 | | Pop_Control Pop_Count_1 5351 c602 | | Store 0x3,0x2 5352 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5353 0000 0000 | | .BLANK 0000[0x5] 5358 ; -------------------------------------------------------------------------------------- 5358 ; SUBPROGRAM 5358 ; -------------------------------------------------------------------------------------- 5358 536f |So | .CONST 0x536f ; Address of begin 5359 0004 | | .CONST 0x0004 ; Address of exception handler 535a 000a | | .CONST 0x000a ; Number of locals 535b INIT_5358: 535b 00e2 | | Load_Encached Integer_Cache 535c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 535d 00e2 | | Load_Encached Integer_Cache 535e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 535f 00e2 | | Load_Encached Integer_Cache 5360 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5361 00e2 | | Load_Encached Integer_Cache 5362 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5363 00e2 | | Load_Encached Integer_Cache 5364 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5365 00e2 | | Load_Encached Integer_Cache 5366 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5367 00e2 | | Load_Encached Integer_Cache 5368 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5369 4801 |H | Short_Literal 0x1 536a 4850 |HP | Short_Literal 0x50 536b 00e9 | | Load_Encached String_Cache 536c 0334 | 4 | Declare_Variable Array,With_Constraint 536d 00e2 | | Load_Encached Integer_Cache 536e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 536f BODY_5358: 536f e002 | | Load 0x0,0x2 5370 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 5371 701a |p | Jump_Nonzero 0x538c 5372 0092 65ee | e | Action Push_String_Extended,0x65ee ; "Edit Valid Choices for " 5374 e001 | | Load 0x0,0x1 5375 181d | | Execute Package,Field_Execute,Field_Number 0x1d 5376 4801 |H | Short_Literal 0x1 5377 e002 | | Load 0x0,0x2 5378 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5379 e5ff | | Load 0x2,-0x1 537a e002 | | Load 0x0,0x2 537b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 537c 01d5 | | Execute Vector,Field_Reference 537d 01d5 | | Execute Vector,Field_Reference 537e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 537f e002 | | Load 0x0,0x2 5380 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5381 e5ff | | Load 0x2,-0x1 5382 e002 | | Load 0x0,0x2 5383 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5384 01d5 | | Execute Vector,Field_Reference 5385 01d5 | | Execute Vector,Field_Reference 5386 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 5387 01cf | | Execute Vector,Slice_Read 5388 e001 | | Load 0x0,0x1 5389 181d | | Execute Package,Field_Execute,Field_Number 0x1d 538a e001 | | Load 0x0,0x1 538b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 538c 0007 | | Action Break_Optional 538d e002 | | Load 0x0,0x2 538e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 538f e5ff | | Load 0x2,-0x1 5390 e002 | | Load 0x0,0x2 5391 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5392 01d5 | | Execute Vector,Field_Reference 5393 01d5 | | Execute Vector,Field_Reference 5394 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5395 a606 | | Store_Unchecked 0x3,0x6 5396 4800 |H | Short_Literal 0x0 5397 a60a | | Store_Unchecked 0x3,0xa 5398 00cf | | Action Mark_Auxiliary 5399 0007 | | Action Break_Optional 539a e606 | | Load 0x3,0x6 539b e002 | | Load 0x0,0x2 539c 1b93 | | Execute Package,Field_Read,Field_Number 0x93 539d 01d5 | | Execute Vector,Field_Reference 539e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 539f a607 | | Store_Unchecked 0x3,0x7 53a0 e606 | | Load 0x3,0x6 53a1 e002 | | Load 0x0,0x2 53a2 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 53a3 027d | } | Execute Discrete,Greater 53a4 6801 |h | Jump_Zero 0x53a6 53a5 7827 |x' | Jump 0x53cd 53a6 e607 | | Load 0x3,0x7 53a7 7001 |p | Jump_Nonzero 0x53a9 53a8 7824 |x$ | Jump 0x53cd 53a9 4801 |H | Short_Literal 0x1 53aa e607 | | Load 0x3,0x7 53ab e606 | | Load 0x3,0x6 53ac e002 | | Load 0x0,0x2 53ad 1b93 | | Execute Package,Field_Read,Field_Number 0x93 53ae 01d5 | | Execute Vector,Field_Reference 53af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 53b0 01cf | | Execute Vector,Slice_Read 53b1 4801 |H | Short_Literal 0x1 53b2 4814 |H | Short_Literal 0x14 53b3 e607 | | Load 0x3,0x7 53b4 0272 | r | Execute Discrete,Minus 53b5 0248 | H | Execute Discrete,Check_In_Integer 53b6 e002 | | Load 0x0,0x2 53b7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 53b8 01cf | | Execute Vector,Slice_Read 53b9 01cc | | Execute Vector,Catenate 53ba e001 | | Load 0x0,0x1 53bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 53bc e60a | | Load 0x3,0xa 53bd 0a14 | | Execute_Immediate Plus,0x14 53be 0248 | H | Execute Discrete,Check_In_Integer 53bf a60a | | Store_Unchecked 0x3,0xa 53c0 e60a | | Load 0x3,0xa 53c1 0f50 | P | Execute_Immediate Equal,0x50 53c2 6804 |h | Jump_Zero 0x53c7 53c3 e001 | | Load 0x0,0x1 53c4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 53c5 4800 |H | Short_Literal 0x0 53c6 a60a | | Store_Unchecked 0x3,0xa 53c7 e606 | | Load 0x3,0x6 53c8 0a01 | | Execute_Immediate Plus,0x1 53c9 0248 | H | Execute Discrete,Check_In_Integer 53ca a606 | | Store_Unchecked 0x3,0x6 53cb 00c9 | | Action Pop_Auxiliary_Loop 53cc 7fcd | | Jump 0x539a 53cd 00ce | | Action Pop_Auxiliary 53ce 00d8 | | Load_Top At_Offset_0 53cf 6802 |h | Jump_Zero 0x53d2 53d0 e001 | | Load 0x0,0x1 53d1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 53d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 53d3 0000 0000 | | .BLANK 0000[0x5] 53d8 ; -------------------------------------------------------------------------------------- 53d8 ; SUBPROGRAM 53d8 ; -------------------------------------------------------------------------------------- 53d8 53e1 |S | .CONST 0x53e1 ; Address of begin 53d9 5420 |T | .CONST 0x5420 ; Address of exception handler 53da 0003 | | .CONST 0x0003 ; Number of locals 53db INIT_53d8: 53db 0007 | | Action Break_Optional 53dc e002 | | Load 0x0,0x2 53dd 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 53de 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 53df 029f 6143 | aC| Declare_Subprogram INIT_6140,For_Call 53e1 BODY_53d8: 53e1 00cf | | Action Mark_Auxiliary 53e2 0007 | | Action Break_Optional 53e3 e002 | | Load 0x0,0x2 53e4 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 53e5 e002 | | Load 0x0,0x2 53e6 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 53e7 01d5 | | Execute Vector,Field_Reference 53e8 e002 | | Load 0x0,0x2 53e9 1a61 | a | Execute Package,Field_Write,Field_Number 0x61 53ea 4800 |H | Short_Literal 0x0 53eb a602 | | Store_Unchecked 0x3,0x2 53ec e5ff | | Load 0x2,-0x1 53ed 7001 |p | Jump_Nonzero 0x53ef 53ee 8603 | | Call 0x3,0x3 53ef 0007 | | Action Break_Optional 53f0 e5ff | | Load 0x2,-0x1 53f1 0f00 | | Execute_Immediate Equal,0x0 53f2 e602 | | Load 0x3,0x2 53f3 0f01 | | Execute_Immediate Equal,0x1 53f4 0279 | y | Execute Discrete,And 53f5 6813 |h | Jump_Zero 0x5409 53f6 e5fe | | Load 0x2,-0x2 53f7 0aff | | Execute_Immediate Plus,-0x1 53f8 0248 | H | Execute Discrete,Check_In_Integer 53f9 a5fe | | Store_Unchecked 0x2,-0x2 53fa e002 | | Load 0x0,0x2 53fb 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 53fc e002 | | Load 0x0,0x2 53fd 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8 53fe e001 | | Load 0x0,0x1 53ff 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5400 e002 | | Load 0x0,0x2 5401 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 5402 7002 |p | Jump_Nonzero 0x5405 5403 e001 | | Load 0x0,0x1 5404 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5405 4800 |H | Short_Literal 0x0 5406 e002 | | Load 0x0,0x2 5407 1a30 | 0 | Execute Package,Field_Write,Field_Number 0x30 5408 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5409 e002 | | Load 0x0,0x2 540a 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 540b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 540c e002 | | Load 0x0,0x2 540d 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 540e e5fe | | Load 0x2,-0x2 540f e002 | | Load 0x0,0x2 5410 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5411 01d5 | | Execute Vector,Field_Reference 5412 01d5 | | Execute Vector,Field_Reference 5413 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 5414 e002 | | Load 0x0,0x2 5415 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 5416 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5417 e002 | | Load 0x0,0x2 5418 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 5419 e5fe | | Load 0x2,-0x2 541a e002 | | Load 0x0,0x2 541b 1b90 | | Execute Package,Field_Read,Field_Number 0x90 541c 01d5 | | Execute Vector,Field_Reference 541d 01d5 | | Execute Vector,Field_Reference 541e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 541f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5420 TRAP_53d8: 5420 0007 | | Action Break_Optional 5421 4800 |H | Short_Literal 0x0 5422 4801 |H | Short_Literal 0x1 5423 0092 65ef | e | Action Push_String_Extended,0x65ef ; "Exception in ap_edit_item_validate_update." 5425 e001 | | Load 0x0,0x1 5426 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5427 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5428 ; -------------------------------------------------------------------------------------- 5428 ; SUBPROGRAM 5428 ; -------------------------------------------------------------------------------------- 5428 5442 |TB | .CONST 0x5442 ; Address of begin 5429 0004 | | .CONST 0x0004 ; Address of exception handler 542a 0005 | | .CONST 0x0005 ; Number of locals 542b INIT_5428: 542b 00e2 | | Load_Encached Integer_Cache 542c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 542d 4801 |H | Short_Literal 0x1 542e 481e |H | Short_Literal 0x1e 542f 00e9 | | Load_Encached String_Cache 5430 0334 | 4 | Declare_Variable Array,With_Constraint 5431 4801 |H | Short_Literal 0x1 5432 481e |H | Short_Literal 0x1e 5433 00e9 | | Load_Encached String_Cache 5434 0334 | 4 | Declare_Variable Array,With_Constraint 5435 481e |H | Short_Literal 0x1e 5436 4801 |H | Short_Literal 0x1 5437 4820 |H | Short_Literal 0x20 5438 e606 | | Load 0x3,0x6 5439 e604 | | Load 0x3,0x4 543a 01d6 | | Execute Vector,Field_Write 543b 3ffb |? | Loop_Increasing 0x5437 543c e603 | | Load 0x3,0x3 543d 01d4 | | Execute Vector,Structure_Write 543e 00e2 | | Load_Encached Integer_Cache 543f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5440 029f 6223 | b#| Declare_Subprogram INIT_6220,For_Call 5442 BODY_5428: 5442 00cf | | Action Mark_Auxiliary 5443 0007 | | Action Break_Optional 5444 8605 | | Call 0x3,0x5 5445 00c9 | | Action Pop_Auxiliary_Loop 5446 7ffd | | Jump 0x5444 5447 00ce | | Action Pop_Auxiliary 5448 e5ff | | Load 0x2,-0x1 5449 0aff | | Execute_Immediate Plus,-0x1 544a 0248 | H | Execute Discrete,Check_In_Integer 544b a5fd | | Store_Unchecked 0x2,-0x3 544c 00cf | | Action Mark_Auxiliary 544d e5fe | | Load 0x2,-0x2 544e e5ff | | Load 0x2,-0x1 544f 0263 | c | Execute Discrete,Above_Bound 5450 7011 |p | Jump_Nonzero 0x5462 5451 e002 | | Load 0x0,0x2 5452 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5453 e608 | | Load 0x3,0x8 5454 e002 | | Load 0x0,0x2 5455 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5456 01d5 | | Execute Vector,Field_Reference 5457 01d5 | | Execute Vector,Field_Reference 5458 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5459 e604 | | Load 0x3,0x4 545a 027f | | Execute Discrete,Equal 545b 6804 |h | Jump_Zero 0x5460 545c 00d8 | | Load_Top At_Offset_0 545d 0aff | | Execute_Immediate Plus,-0x1 545e 0248 | H | Execute Discrete,Check_In_Integer 545f a5fd | | Store_Unchecked 0x2,-0x3 5460 00c8 | | Action Pop_Auxiliary_Range 5461 3fef |? | Loop_Increasing 0x5451 5462 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5463 0000 0000 | | .BLANK 0000[0x5] 5468 ; -------------------------------------------------------------------------------------- 5468 ; SUBPROGRAM 5468 ; -------------------------------------------------------------------------------------- 5468 546d |Tm | .CONST 0x546d ; Address of begin 5469 0004 | | .CONST 0x0004 ; Address of exception handler 546a 0002 | | .CONST 0x0002 ; Number of locals 546b INIT_5468: 546b 00e2 | | Load_Encached Integer_Cache 546c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 546d BODY_5468: 546d e002 | | Load 0x0,0x2 546e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 546f e5fd | | Load 0x2,-0x3 5470 e002 | | Load 0x0,0x2 5471 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5472 01d5 | | Execute Vector,Field_Reference 5473 01d5 | | Execute Vector,Field_Reference 5474 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5475 0274 | t | Execute Discrete,Absolute_Value 5476 a602 | | Store_Unchecked 0x3,0x2 5477 e5ff | | Load 0x2,-0x1 5478 0aff | | Execute_Immediate Plus,-0x1 5479 0248 | H | Execute Discrete,Check_In_Integer 547a a5fd | | Store_Unchecked 0x2,-0x3 547b 00cf | | Action Mark_Auxiliary 547c e5fe | | Load 0x2,-0x2 547d e5ff | | Load 0x2,-0x1 547e 0263 | c | Execute Discrete,Above_Bound 547f 7015 |p | Jump_Nonzero 0x5495 5480 e002 | | Load 0x0,0x2 5481 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5482 e605 | | Load 0x3,0x5 5483 e002 | | Load 0x0,0x2 5484 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5485 01d5 | | Execute Vector,Field_Reference 5486 01d5 | | Execute Vector,Field_Reference 5487 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5488 e602 | | Load 0x3,0x2 5489 0aff | | Execute_Immediate Plus,-0x1 548a 027f | | Execute Discrete,Equal 548b e602 | | Load 0x3,0x2 548c 0c02 | | Execute_Immediate Greater_Equal,0x2 548d 0279 | y | Execute Discrete,And 548e 6804 |h | Jump_Zero 0x5493 548f 00d8 | | Load_Top At_Offset_0 5490 0aff | | Execute_Immediate Plus,-0x1 5491 0248 | H | Execute Discrete,Check_In_Integer 5492 a5fd | | Store_Unchecked 0x2,-0x3 5493 00c8 | | Action Pop_Auxiliary_Range 5494 3feb |? | Loop_Increasing 0x5480 5495 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5496 0000 0000 | | .XXX[0x2] 5498 ; -------------------------------------------------------------------------------------- 5498 ; SUBPROGRAM 5498 ; -------------------------------------------------------------------------------------- 5498 549c |T | .CONST 0x549c ; Address of begin 5499 54ee |T | .CONST 0x54ee ; Address of exception handler 549a 0001 | | .CONST 0x0001 ; Number of locals 549b INIT_5498: 549b 0007 | | Action Break_Optional 549c BODY_5498: 549c e5fe | | Load 0x2,-0x2 549d e5ff | | Load 0x2,-0x1 549e e002 | | Load 0x0,0x2 549f 1b90 | | Execute Package,Field_Read,Field_Number 0x90 54a0 01d7 | | Execute Vector,Field_Read 54a1 01d7 | | Execute Vector,Field_Read 54a2 00d8 | | Load_Top At_Offset_0 54a3 4800 |H | Short_Literal 0x0 54a4 e5f6 | | Load 0x2,-0xa 54a5 e5f7 | | Load 0x2,-0x9 54a6 e5f8 | | Load 0x2,-0x8 54a7 e5f9 | | Load 0x2,-0x7 54a8 e5fa | | Load 0x2,-0x6 54a9 e5fb | | Load 0x2,-0x5 54aa e5fc | | Load 0x2,-0x4 54ab e5fd | | Load 0x2,-0x3 54ac e002 | | Load 0x0,0x2 54ad 18ae | | Execute Package,Field_Execute,Field_Number 0xae 54ae 00d2 | | Pop_Control Pop_Count_2 54af e5fe | | Load 0x2,-0x2 54b0 e002 | | Load 0x0,0x2 54b1 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 54b2 027f | | Execute Discrete,Equal 54b3 e002 | | Load 0x0,0x2 54b4 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 54b5 e5ff | | Load 0x2,-0x1 54b6 e002 | | Load 0x0,0x2 54b7 1b90 | | Execute Package,Field_Read,Field_Number 0x90 54b8 01d5 | | Execute Vector,Field_Reference 54b9 01d5 | | Execute Vector,Field_Reference 54ba 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 54bb 0e00 | | Execute_Immediate Not_Equal,0x0 54bc 0279 | y | Execute Discrete,And 54bd 6816 |h | Jump_Zero 0x54d4 54be e002 | | Load 0x0,0x2 54bf 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 54c0 e5ff | | Load 0x2,-0x1 54c1 e002 | | Load 0x0,0x2 54c2 1b90 | | Execute Package,Field_Read,Field_Number 0x90 54c3 01d7 | | Execute Vector,Field_Read 54c4 01d7 | | Execute Vector,Field_Read 54c5 00d8 | | Load_Top At_Offset_0 54c6 4800 |H | Short_Literal 0x0 54c7 4be7 |K | Short_Literal 0x3e7 54c8 4802 |H | Short_Literal 0x2 54c9 4be7 |K | Short_Literal 0x3e7 54ca 4802 |H | Short_Literal 0x2 54cb 4802 |H | Short_Literal 0x2 54cc 4800 |H | Short_Literal 0x0 54cd e5fc | | Load 0x2,-0x4 54ce 0092 649e | d | Action Push_String_Extended,0x649e ; "\x5cdefault\x5c" 54d0 e002 | | Load 0x0,0x2 54d1 18ae | | Execute Package,Field_Execute,Field_Number 0xae 54d2 00d2 | | Pop_Control Pop_Count_2 54d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 54d4 e5fe | | Load 0x2,-0x2 54d5 e002 | | Load 0x0,0x2 54d6 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 54d7 027f | | Execute Discrete,Equal 54d8 6814 |h | Jump_Zero 0x54ed 54d9 e002 | | Load 0x0,0x2 54da 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 54db e5ff | | Load 0x2,-0x1 54dc e002 | | Load 0x0,0x2 54dd 1b90 | | Execute Package,Field_Read,Field_Number 0x90 54de 01d7 | | Execute Vector,Field_Read 54df 01d7 | | Execute Vector,Field_Read 54e0 00d8 | | Load_Top At_Offset_0 54e1 4800 |H | Short_Literal 0x0 54e2 4be7 |K | Short_Literal 0x3e7 54e3 4802 |H | Short_Literal 0x2 54e4 4be7 |K | Short_Literal 0x3e7 54e5 4802 |H | Short_Literal 0x2 54e6 4802 |H | Short_Literal 0x2 54e7 4be7 |K | Short_Literal 0x3e7 54e8 4be7 |K | Short_Literal 0x3e7 54e9 e5fd | | Load 0x2,-0x3 54ea e002 | | Load 0x0,0x2 54eb 18ae | | Execute Package,Field_Execute,Field_Number 0xae 54ec 00d2 | | Pop_Control Pop_Count_2 54ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 54ee TRAP_5498: 54ee 0007 | | Action Break_Optional 54ef 4800 |H | Short_Literal 0x0 54f0 4801 |H | Short_Literal 0x1 54f1 0092 65f0 | e | Action Push_String_Extended,0x65f0 ; "Exception occurred in ap_record." 54f3 e001 | | Load 0x0,0x1 54f4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 54f5 e014 | | Load 0x0,0x14 54f6 0257 | W | Execute Discrete,Raise 54f7 0000 | | .XXX[0x1] 54f8 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 54fc 0000 0000 | | .BLANK 0000[0x4] 5500 ; -------------------------------------------------------------------------------------- 5500 ; SUBPROGRAM 5500 ; -------------------------------------------------------------------------------------- 5500 5505 |U | .CONST 0x5505 ; Address of begin 5501 0004 | | .CONST 0x0004 ; Address of exception handler 5502 0002 | | .CONST 0x0002 ; Number of locals 5503 INIT_5500: 5503 00e2 | | Load_Encached Integer_Cache 5504 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5505 BODY_5500: 5505 e5f5 | | Load 0x2,-0xb 5506 4fff |O | Short_Literal -0x1 5507 027e | ~ | Execute Discrete,Not_Equal 5508 6803 |h | Jump_Zero 0x550c 5509 e5f5 | | Load 0x2,-0xb 550a e002 | | Load 0x0,0x2 550b 1a63 | c | Execute Package,Field_Write,Field_Number 0x63 550c e5ff | | Load 0x2,-0x1 550d 8254 | T | Call 0x1,0x54 550e e5fe | | Load 0x2,-0x2 550f 8254 | T | Call 0x1,0x54 5510 e5fd | | Load 0x2,-0x3 5511 8254 | T | Call 0x1,0x54 5512 e5fc | | Load 0x2,-0x4 5513 8254 | T | Call 0x1,0x54 5514 e5fb | | Load 0x2,-0x5 5515 8254 | T | Call 0x1,0x54 5516 e5fa | | Load 0x2,-0x6 5517 8254 | T | Call 0x1,0x54 5518 e5f9 | | Load 0x2,-0x7 5519 8254 | T | Call 0x1,0x54 551a e5f8 | | Load 0x2,-0x8 551b 8254 | T | Call 0x1,0x54 551c e5f7 | | Load 0x2,-0x9 551d 8254 | T | Call 0x1,0x54 551e e5f6 | | Load 0x2,-0xa 551f 8254 | T | Call 0x1,0x54 5520 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5521 0000 0000 | | .BLANK 0000[0x7] 5528 ; -------------------------------------------------------------------------------------- 5528 ; SUBPROGRAM 5528 ; -------------------------------------------------------------------------------------- 5528 5535 |U5 | .CONST 0x5535 ; Address of begin 5529 0004 | | .CONST 0x0004 ; Address of exception handler 552a 0003 | | .CONST 0x0003 ; Number of locals 552b INIT_5528: 552b 00e2 | | Load_Encached Integer_Cache 552c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 552d 4801 |H | Short_Literal 0x1 552e 4850 |HP | Short_Literal 0x50 552f 00e9 | | Load_Encached String_Cache 5530 0334 | 4 | Declare_Variable Array,With_Constraint 5531 e002 | | Load 0x0,0x2 5532 1b20 | | Execute Package,Field_Read,Field_Number 0x20 5533 e603 | | Load 0x3,0x3 5534 01d4 | | Execute Vector,Structure_Write 5535 BODY_5528: 5535 4801 |H | Short_Literal 0x1 5536 e5ff | | Load 0x2,-0x1 5537 01db | | Execute Vector,Length 5538 e5ff | | Load 0x2,-0x1 5539 01cf | | Execute Vector,Slice_Read 553a 4801 |H | Short_Literal 0x1 553b e5ff | | Load 0x2,-0x1 553c 01db | | Execute Vector,Length 553d e603 | | Load 0x3,0x3 553e 01ce | | Execute Vector,Slice_Write 553f 4801 |H | Short_Literal 0x1 5540 4809 |H | Short_Literal 0x9 5541 e603 | | Load 0x3,0x3 5542 01cf | | Execute Vector,Slice_Read 5543 0092 649e | d | Action Push_String_Extended,0x649e ; "\x5cdefault\x5c" 5545 01de | | Execute Vector,Not_Equal 5546 6829 |h) | Jump_Zero 0x5570 5547 e5ff | | Load 0x2,-0x1 5548 01db | | Execute Vector,Length 5549 a602 | | Store_Unchecked 0x3,0x2 554a e602 | | Load 0x3,0x2 554b 0c15 | | Execute_Immediate Greater_Equal,0x15 554c 6802 |h | Jump_Zero 0x554f 554d 4814 |H | Short_Literal 0x14 554e a602 | | Store_Unchecked 0x3,0x2 554f e602 | | Load 0x3,0x2 5550 e002 | | Load 0x0,0x2 5551 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 5552 e002 | | Load 0x0,0x2 5553 1b93 | | Execute Package,Field_Read,Field_Number 0x93 5554 01d5 | | Execute Vector,Field_Reference 5555 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 5556 4801 |H | Short_Literal 0x1 5557 e602 | | Load 0x3,0x2 5558 e5ff | | Load 0x2,-0x1 5559 01cf | | Execute Vector,Slice_Read 555a 4801 |H | Short_Literal 0x1 555b e602 | | Load 0x3,0x2 555c e002 | | Load 0x0,0x2 555d 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 555e e002 | | Load 0x0,0x2 555f 1b93 | | Execute Package,Field_Read,Field_Number 0x93 5560 01d7 | | Execute Vector,Field_Read 5561 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 5562 01ce | | Execute Vector,Slice_Write 5563 e002 | | Load 0x0,0x2 5564 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 5565 0a01 | | Execute_Immediate Plus,0x1 5566 0248 | H | Execute Discrete,Check_In_Integer 5567 e002 | | Load 0x0,0x2 5568 1a63 | c | Execute Package,Field_Write,Field_Number 0x63 5569 4800 |H | Short_Literal 0x0 556a e002 | | Load 0x0,0x2 556b 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 556c e002 | | Load 0x0,0x2 556d 1b93 | | Execute Package,Field_Read,Field_Number 0x93 556e 01d5 | | Execute Vector,Field_Reference 556f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 5570 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5571 0000 0000 | | .BLANK 0000[0x7] 5578 ; -------------------------------------------------------------------------------------- 5578 ; SUBPROGRAM 5578 ; -------------------------------------------------------------------------------------- 5578 5585 |U | .CONST 0x5585 ; Address of begin 5579 0004 | | .CONST 0x0004 ; Address of exception handler 557a 0003 | | .CONST 0x0003 ; Number of locals 557b INIT_5578: 557b 00e2 | | Load_Encached Integer_Cache 557c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 557d 4801 |H | Short_Literal 0x1 557e 4850 |HP | Short_Literal 0x50 557f 00e9 | | Load_Encached String_Cache 5580 0334 | 4 | Declare_Variable Array,With_Constraint 5581 e002 | | Load 0x0,0x2 5582 1b20 | | Execute Package,Field_Read,Field_Number 0x20 5583 e603 | | Load 0x3,0x3 5584 01d4 | | Execute Vector,Structure_Write 5585 BODY_5578: 5585 e5fe | | Load 0x2,-0x2 5586 e5ff | | Load 0x2,-0x1 5587 e002 | | Load 0x0,0x2 5588 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5589 01d5 | | Execute Vector,Field_Reference 558a 01d5 | | Execute Vector,Field_Reference 558b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 558c a602 | | Store_Unchecked 0x3,0x2 558d 4801 |H | Short_Literal 0x1 558e e602 | | Load 0x3,0x2 558f e5fe | | Load 0x2,-0x2 5590 e5ff | | Load 0x2,-0x1 5591 e002 | | Load 0x0,0x2 5592 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5593 01d5 | | Execute Vector,Field_Reference 5594 01d5 | | Execute Vector,Field_Reference 5595 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 5596 01cf | | Execute Vector,Slice_Read 5597 4801 |H | Short_Literal 0x1 5598 e602 | | Load 0x3,0x2 5599 e603 | | Load 0x3,0x3 559a 01ce | | Execute Vector,Slice_Write 559b e602 | | Load 0x3,0x2 559c a5fc | | Store_Unchecked 0x2,-0x4 559d e5fd | | Load 0x2,-0x3 559e 01db | | Execute Vector,Length 559f e602 | | Load 0x3,0x2 55a0 027c | | | Execute Discrete,Less 55a1 6826 |h& | Jump_Zero 0x55c8 55a2 0092 65f1 | e | Action Push_String_Extended,0x65f1 ; "[Error detected in ap_record_get_field. May cause exception.]" 55a4 e001 | | Load 0x0,0x1 55a5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 55a6 0092 65f2 | e | Action Push_String_Extended,0x65f2 ; "[Detected user parameter field size error - too small.]" 55a8 e001 | | Load 0x0,0x1 55a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 55aa 0092 65f3 | e | Action Push_String_Extended,0x65f3 ; "[To correct the problem, increase size of field parameter.]" 55ac e001 | | Load 0x0,0x1 55ad 181d | | Execute Package,Field_Execute,Field_Number 0x1d 55ae 0092 65f4 | e | Action Push_String_Extended,0x65f4 ; " Field number in error: " 55b0 e001 | | Load 0x0,0x1 55b1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 55b2 e5ff | | Load 0x2,-0x1 55b3 e001 | | Load 0x0,0x1 55b4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 55b5 0092 65f5 | e | Action Push_String_Extended,0x65f5 ; ", Param num: " 55b7 e001 | | Load 0x0,0x1 55b8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 55b9 e5fe | | Load 0x2,-0x2 55ba e001 | | Load 0x0,0x1 55bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 55bc 0092 65f6 | e | Action Push_String_Extended,0x65f6 ; ", field string: >" 55be e5fd | | Load 0x2,-0x3 55bf 01cc | | Execute Vector,Catenate 55c0 0092 65f7 | e | Action Push_String_Extended,0x65f7 ; "<, size: " 55c2 01cc | | Execute Vector,Catenate 55c3 e001 | | Load 0x0,0x1 55c4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 55c5 e5fc | | Load 0x2,-0x4 55c6 e001 | | Load 0x0,0x1 55c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 55c8 4801 |H | Short_Literal 0x1 55c9 e5fd | | Load 0x2,-0x3 55ca 01db | | Execute Vector,Length 55cb e002 | | Load 0x0,0x2 55cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 55cd 01cf | | Execute Vector,Slice_Read 55ce 4801 |H | Short_Literal 0x1 55cf e5fd | | Load 0x2,-0x3 55d0 01db | | Execute Vector,Length 55d1 e5fd | | Load 0x2,-0x3 55d2 01ce | | Execute Vector,Slice_Write 55d3 4801 |H | Short_Literal 0x1 55d4 e602 | | Load 0x3,0x2 55d5 e603 | | Load 0x3,0x3 55d6 01cf | | Execute Vector,Slice_Read 55d7 4801 |H | Short_Literal 0x1 55d8 e602 | | Load 0x3,0x2 55d9 e5fd | | Load 0x2,-0x3 55da 01ce | | Execute Vector,Slice_Write 55db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 55dc 0000 0000 | | .BLANK 0000[0x4] 55e0 ; -------------------------------------------------------------------------------------- 55e0 ; SUBPROGRAM 55e0 ; -------------------------------------------------------------------------------------- 55e0 55e9 |U | .CONST 0x55e9 ; Address of begin 55e1 5629 |V) | .CONST 0x5629 ; Address of exception handler 55e2 0004 | | .CONST 0x0004 ; Number of locals 55e3 INIT_55e0: 55e3 00e2 | | Load_Encached Integer_Cache 55e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 55e5 00e2 | | Load_Encached Integer_Cache 55e6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 55e7 00e2 | | Load_Encached Integer_Cache 55e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 55e9 BODY_55e0: 55e9 e5fe | | Load 0x2,-0x2 55ea 4fff |O | Short_Literal -0x1 55eb 027f | | Execute Discrete,Equal 55ec 6803 |h | Jump_Zero 0x55f0 55ed e5ff | | Load 0x2,-0x1 55ee a603 | | Store_Unchecked 0x3,0x3 55ef 7802 |x | Jump 0x55f2 55f0 e5fe | | Load 0x2,-0x2 55f1 a603 | | Store_Unchecked 0x3,0x3 55f2 e5fc | | Load 0x2,-0x4 55f3 4fff |O | Short_Literal -0x1 55f4 027f | | Execute Discrete,Equal 55f5 6803 |h | Jump_Zero 0x55f9 55f6 e5fd | | Load 0x2,-0x3 55f7 a604 | | Store_Unchecked 0x3,0x4 55f8 7802 |x | Jump 0x55fb 55f9 e5fc | | Load 0x2,-0x4 55fa a604 | | Store_Unchecked 0x3,0x4 55fb e5fd | | Load 0x2,-0x3 55fc a602 | | Store_Unchecked 0x3,0x2 55fd 00cf | | Action Mark_Auxiliary 55fe e603 | | Load 0x3,0x3 55ff e5ff | | Load 0x2,-0x1 5600 0263 | c | Execute Discrete,Above_Bound 5601 7026 |p& | Jump_Nonzero 0x5628 5602 e002 | | Load 0x0,0x2 5603 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 5604 e607 | | Load 0x3,0x7 5605 e002 | | Load 0x0,0x2 5606 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5607 01d5 | | Execute Vector,Field_Reference 5608 01d5 | | Execute Vector,Field_Reference 5609 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 560a e002 | | Load 0x0,0x2 560b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 560c e602 | | Load 0x3,0x2 560d e002 | | Load 0x0,0x2 560e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 560f 01d5 | | Execute Vector,Field_Reference 5610 01d5 | | Execute Vector,Field_Reference 5611 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 5612 e002 | | Load 0x0,0x2 5613 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 5614 e607 | | Load 0x3,0x7 5615 e002 | | Load 0x0,0x2 5616 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5617 01d5 | | Execute Vector,Field_Reference 5618 01d5 | | Execute Vector,Field_Reference 5619 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 561a e002 | | Load 0x0,0x2 561b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 561c e602 | | Load 0x3,0x2 561d e002 | | Load 0x0,0x2 561e 1b90 | | Execute Package,Field_Read,Field_Number 0x90 561f 01d5 | | Execute Vector,Field_Reference 5620 01d5 | | Execute Vector,Field_Reference 5621 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 5622 e602 | | Load 0x3,0x2 5623 0a01 | | Execute_Immediate Plus,0x1 5624 0248 | H | Execute Discrete,Check_In_Integer 5625 a602 | | Store_Unchecked 0x3,0x2 5626 00c8 | | Action Pop_Auxiliary_Range 5627 3fda |? | Loop_Increasing 0x5602 5628 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5629 TRAP_55e0: 5629 0007 | | Action Break_Optional 562a 4801 |H | Short_Literal 0x1 562b 4804 |H | Short_Literal 0x4 562c 0092 65f8 | e | Action Push_String_Extended,0x65f8 ; "Exception in ap_copy_field." 562e e001 | | Load 0x0,0x1 562f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5630 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5631 0000 0000 | | .BLANK 0000[0x7] 5638 ; -------------------------------------------------------------------------------------- 5638 ; SUBPROGRAM 5638 ; -------------------------------------------------------------------------------------- 5638 563f |V? | .CONST 0x563f ; Address of begin 5639 0004 | | .CONST 0x0004 ; Address of exception handler 563a 0003 | | .CONST 0x0003 ; Number of locals 563b INIT_5638: 563b 00e2 | | Load_Encached Integer_Cache 563c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 563d 00e2 | | Load_Encached Integer_Cache 563e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 563f BODY_5638: 563f 0007 | | Action Break_Optional 5640 e5ff | | Load 0x2,-0x1 5641 a602 | | Store_Unchecked 0x3,0x2 5642 e5fe | | Load 0x2,-0x2 5643 e602 | | Load 0x3,0x2 5644 e002 | | Load 0x0,0x2 5645 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5646 01d5 | | Execute Vector,Field_Reference 5647 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 5648 4801 |H | Short_Literal 0x1 5649 e5fd | | Load 0x2,-0x3 564a 01db | | Execute Vector,Length 564b e5fd | | Load 0x2,-0x3 564c 01cf | | Execute Vector,Slice_Read 564d 4801 |H | Short_Literal 0x1 564e e5fd | | Load 0x2,-0x3 564f 01db | | Execute Vector,Length 5650 e602 | | Load 0x3,0x2 5651 e002 | | Load 0x0,0x2 5652 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5653 01d7 | | Execute Vector,Field_Read 5654 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 5655 01ce | | Execute Vector,Slice_Write 5656 e5fd | | Load 0x2,-0x3 5657 01db | | Execute Vector,Length 5658 e602 | | Load 0x3,0x2 5659 e002 | | Load 0x0,0x2 565a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 565b 01d5 | | Execute Vector,Field_Reference 565c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 565d e5fc | | Load 0x2,-0x4 565e e602 | | Load 0x3,0x2 565f e002 | | Load 0x0,0x2 5660 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5661 01d5 | | Execute Vector,Field_Reference 5662 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 5663 4828 |H( | Short_Literal 0x28 5664 a603 | | Store_Unchecked 0x3,0x3 5665 4801 |H | Short_Literal 0x1 5666 e603 | | Load 0x3,0x3 5667 e002 | | Load 0x0,0x2 5668 1b20 | | Execute Package,Field_Read,Field_Number 0x20 5669 01cf | | Execute Vector,Slice_Read 566a 4801 |H | Short_Literal 0x1 566b e603 | | Load 0x3,0x3 566c e602 | | Load 0x3,0x2 566d e002 | | Load 0x0,0x2 566e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 566f 01d7 | | Execute Vector,Field_Read 5670 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5671 01ce | | Execute Vector,Slice_Write 5672 e5fb | | Load 0x2,-0x5 5673 01db | | Execute Vector,Length 5674 a603 | | Store_Unchecked 0x3,0x3 5675 4801 |H | Short_Literal 0x1 5676 e603 | | Load 0x3,0x3 5677 e5fb | | Load 0x2,-0x5 5678 01cf | | Execute Vector,Slice_Read 5679 4801 |H | Short_Literal 0x1 567a e603 | | Load 0x3,0x3 567b e602 | | Load 0x3,0x2 567c e002 | | Load 0x0,0x2 567d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 567e 01d7 | | Execute Vector,Field_Read 567f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5680 01ce | | Execute Vector,Slice_Write 5681 e5fa | | Load 0x2,-0x6 5682 e602 | | Load 0x3,0x2 5683 e002 | | Load 0x0,0x2 5684 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5685 01d5 | | Execute Vector,Field_Reference 5686 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 5687 e5f9 | | Load 0x2,-0x7 5688 e602 | | Load 0x3,0x2 5689 e002 | | Load 0x0,0x2 568a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 568b 01d5 | | Execute Vector,Field_Reference 568c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 568d e5f8 | | Load 0x2,-0x8 568e e602 | | Load 0x3,0x2 568f e002 | | Load 0x0,0x2 5690 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5691 01d5 | | Execute Vector,Field_Reference 5692 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 5693 4800 |H | Short_Literal 0x0 5694 e602 | | Load 0x3,0x2 5695 e002 | | Load 0x0,0x2 5696 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5697 01d5 | | Execute Vector,Field_Reference 5698 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 5699 e5f7 | | Load 0x2,-0x9 569a e602 | | Load 0x3,0x2 569b e002 | | Load 0x0,0x2 569c 1b96 | | Execute Package,Field_Read,Field_Number 0x96 569d 01d5 | | Execute Vector,Field_Reference 569e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 569f e5f6 | | Load 0x2,-0xa 56a0 e602 | | Load 0x3,0x2 56a1 e002 | | Load 0x0,0x2 56a2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56a3 01d5 | | Execute Vector,Field_Reference 56a4 380a |8 | Execute Record,Field_Write,Field_Number 0xa 56a5 e5f5 | | Load 0x2,-0xb 56a6 01db | | Execute Vector,Length 56a7 0f02 | | Execute_Immediate Equal,0x2 56a8 680a |h | Jump_Zero 0x56b3 56a9 4801 |H | Short_Literal 0x1 56aa 4802 |H | Short_Literal 0x2 56ab e5f5 | | Load 0x2,-0xb 56ac 01cf | | Execute Vector,Slice_Read 56ad e602 | | Load 0x3,0x2 56ae e002 | | Load 0x0,0x2 56af 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56b0 01d5 | | Execute Vector,Field_Reference 56b1 380b |8 | Execute Record,Field_Write,Field_Number 0xb 56b2 7807 |x | Jump 0x56ba 56b3 0092 6439 | d9| Action Push_String_Extended,0x6439 ; "XX" 56b5 e602 | | Load 0x3,0x2 56b6 e002 | | Load 0x0,0x2 56b7 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56b8 01d5 | | Execute Vector,Field_Reference 56b9 380b |8 | Execute Record,Field_Write,Field_Number 0xb 56ba e5f4 | | Load 0x2,-0xc 56bb e602 | | Load 0x3,0x2 56bc e002 | | Load 0x0,0x2 56bd 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56be 01d5 | | Execute Vector,Field_Reference 56bf 380c |8 | Execute Record,Field_Write,Field_Number 0xc 56c0 e5f3 | | Load 0x2,-0xd 56c1 e602 | | Load 0x3,0x2 56c2 e002 | | Load 0x0,0x2 56c3 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56c4 01d5 | | Execute Vector,Field_Reference 56c5 380d |8 | Execute Record,Field_Write,Field_Number 0xd 56c6 e5f2 | | Load 0x2,-0xe 56c7 e602 | | Load 0x3,0x2 56c8 e002 | | Load 0x0,0x2 56c9 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56ca 01d5 | | Execute Vector,Field_Reference 56cb 380e |8 | Execute Record,Field_Write,Field_Number 0xe 56cc e5f1 | | Load 0x2,-0xf 56cd e602 | | Load 0x3,0x2 56ce e002 | | Load 0x0,0x2 56cf 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56d0 01d5 | | Execute Vector,Field_Reference 56d1 380f |8 | Execute Record,Field_Write,Field_Number 0xf 56d2 e5f0 | | Load 0x2,-0x10 56d3 e602 | | Load 0x3,0x2 56d4 e002 | | Load 0x0,0x2 56d5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56d6 01d5 | | Execute Vector,Field_Reference 56d7 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 56d8 e5ef | | Load 0x2,-0x11 56d9 e602 | | Load 0x3,0x2 56da e002 | | Load 0x0,0x2 56db 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56dc 01d5 | | Execute Vector,Field_Reference 56dd 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 56de e5ee | | Load 0x2,-0x12 56df e602 | | Load 0x3,0x2 56e0 e002 | | Load 0x0,0x2 56e1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56e2 01d5 | | Execute Vector,Field_Reference 56e3 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 56e4 e5ed | | Load 0x2,-0x13 56e5 e602 | | Load 0x3,0x2 56e6 e002 | | Load 0x0,0x2 56e7 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56e8 01d5 | | Execute Vector,Field_Reference 56e9 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 56ea e5ec | | Load 0x2,-0x14 56eb 01db | | Execute Vector,Length 56ec a603 | | Store_Unchecked 0x3,0x3 56ed 4801 |H | Short_Literal 0x1 56ee e603 | | Load 0x3,0x3 56ef e5ec | | Load 0x2,-0x14 56f0 01cf | | Execute Vector,Slice_Read 56f1 4801 |H | Short_Literal 0x1 56f2 e603 | | Load 0x3,0x3 56f3 e602 | | Load 0x3,0x2 56f4 e002 | | Load 0x0,0x2 56f5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56f6 01d7 | | Execute Vector,Field_Read 56f7 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 56f8 01ce | | Execute Vector,Slice_Write 56f9 00d8 | | Load_Top At_Offset_0 56fa e602 | | Load 0x3,0x2 56fb e002 | | Load 0x0,0x2 56fc 1b96 | | Execute Package,Field_Read,Field_Number 0x96 56fd 01d5 | | Execute Vector,Field_Reference 56fe 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 56ff e5eb | | Load 0x2,-0x15 5700 e602 | | Load 0x3,0x2 5701 e002 | | Load 0x0,0x2 5702 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5703 01d5 | | Execute Vector,Field_Reference 5704 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 5705 e5ea | | Load 0x2,-0x16 5706 01db | | Execute Vector,Length 5707 a603 | | Store_Unchecked 0x3,0x3 5708 4801 |H | Short_Literal 0x1 5709 e603 | | Load 0x3,0x3 570a e5ea | | Load 0x2,-0x16 570b 01cf | | Execute Vector,Slice_Read 570c 4801 |H | Short_Literal 0x1 570d e603 | | Load 0x3,0x3 570e e602 | | Load 0x3,0x2 570f e002 | | Load 0x0,0x2 5710 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5711 01d7 | | Execute Vector,Field_Read 5712 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 5713 01ce | | Execute Vector,Slice_Write 5714 00d8 | | Load_Top At_Offset_0 5715 e602 | | Load 0x3,0x2 5716 e002 | | Load 0x0,0x2 5717 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5718 01d5 | | Execute Vector,Field_Reference 5719 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 571a e5e9 | | Load 0x2,-0x17 571b e602 | | Load 0x3,0x2 571c e002 | | Load 0x0,0x2 571d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 571e 01d5 | | Execute Vector,Field_Reference 571f 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 5720 e5e8 | | Load 0x2,-0x18 5721 01db | | Execute Vector,Length 5722 a603 | | Store_Unchecked 0x3,0x3 5723 4801 |H | Short_Literal 0x1 5724 e603 | | Load 0x3,0x3 5725 e5e8 | | Load 0x2,-0x18 5726 01cf | | Execute Vector,Slice_Read 5727 4801 |H | Short_Literal 0x1 5728 e603 | | Load 0x3,0x3 5729 e602 | | Load 0x3,0x2 572a e002 | | Load 0x0,0x2 572b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 572c 01d7 | | Execute Vector,Field_Read 572d 3c1a |< | Execute Record,Field_Read,Field_Number 0x1a 572e 01ce | | Execute Vector,Slice_Write 572f 00d8 | | Load_Top At_Offset_0 5730 e602 | | Load 0x3,0x2 5731 e002 | | Load 0x0,0x2 5732 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5733 01d5 | | Execute Vector,Field_Reference 5734 381b |8 | Execute Record,Field_Write,Field_Number 0x1b 5735 e5e7 | | Load 0x2,-0x19 5736 e602 | | Load 0x3,0x2 5737 e002 | | Load 0x0,0x2 5738 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5739 01d5 | | Execute Vector,Field_Reference 573a 381c |8 | Execute Record,Field_Write,Field_Number 0x1c 573b e5e6 | | Load 0x2,-0x1a 573c 01db | | Execute Vector,Length 573d a603 | | Store_Unchecked 0x3,0x3 573e 4801 |H | Short_Literal 0x1 573f e603 | | Load 0x3,0x3 5740 e5e6 | | Load 0x2,-0x1a 5741 01cf | | Execute Vector,Slice_Read 5742 4801 |H | Short_Literal 0x1 5743 e603 | | Load 0x3,0x3 5744 e602 | | Load 0x3,0x2 5745 e002 | | Load 0x0,0x2 5746 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5747 01d7 | | Execute Vector,Field_Read 5748 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d 5749 01ce | | Execute Vector,Slice_Write 574a 00d8 | | Load_Top At_Offset_0 574b e602 | | Load 0x3,0x2 574c e002 | | Load 0x0,0x2 574d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 574e 01d5 | | Execute Vector,Field_Reference 574f 381e |8 | Execute Record,Field_Write,Field_Number 0x1e 5750 0007 | | Action Break_Optional 5751 e5e5 | | Load 0x2,-0x1b 5752 e602 | | Load 0x3,0x2 5753 e002 | | Load 0x0,0x2 5754 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5755 01d5 | | Execute Vector,Field_Reference 5756 381f |8 | Execute Record,Field_Write,Field_Number 0x1f 5757 e5e4 | | Load 0x2,-0x1c 5758 01db | | Execute Vector,Length 5759 a603 | | Store_Unchecked 0x3,0x3 575a 4801 |H | Short_Literal 0x1 575b e603 | | Load 0x3,0x3 575c e5e4 | | Load 0x2,-0x1c 575d 01cf | | Execute Vector,Slice_Read 575e 4801 |H | Short_Literal 0x1 575f e603 | | Load 0x3,0x3 5760 e602 | | Load 0x3,0x2 5761 e002 | | Load 0x0,0x2 5762 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5763 01d7 | | Execute Vector,Field_Read 5764 3c20 |< | Execute Record,Field_Read,Field_Number 0x20 5765 01ce | | Execute Vector,Slice_Write 5766 00d8 | | Load_Top At_Offset_0 5767 e602 | | Load 0x3,0x2 5768 e002 | | Load 0x0,0x2 5769 1b96 | | Execute Package,Field_Read,Field_Number 0x96 576a 01d5 | | Execute Vector,Field_Reference 576b 3821 |8! | Execute Record,Field_Write,Field_Number 0x21 576c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 576d 0000 0000 | | .XXX[0x3] 576f 0000 | | 5770 ; -------------------------------------------------------------------------------------- 5770 ; SUBPROGRAM 5770 ; -------------------------------------------------------------------------------------- 5770 577d |W} | .CONST 0x577d ; Address of begin 5771 0004 | | .CONST 0x0004 ; Address of exception handler 5772 0006 | | .CONST 0x0006 ; Number of locals 5773 INIT_5770: 5773 00e2 | | Load_Encached Integer_Cache 5774 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5775 00e2 | | Load_Encached Integer_Cache 5776 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5777 00e2 | | Load_Encached Integer_Cache 5778 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 5779 00e2 | | Load_Encached Integer_Cache 577a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 577b 029f 6253 | bS| Declare_Subprogram INIT_6250,For_Call 577d BODY_5770: 577d e5ff | | Load 0x2,-0x1 577e a602 | | Store_Unchecked 0x3,0x2 577f 8606 | | Call 0x3,0x6 5780 0007 | | Action Break_Optional 5781 e602 | | Load 0x3,0x2 5782 0f00 | | Execute_Immediate Equal,0x0 5783 e602 | | Load 0x3,0x2 5784 0d00 | | Execute_Immediate Less,0x0 5785 0278 | x | Execute Discrete,Or 5786 6802 |h | Jump_Zero 0x5789 5787 00cc | | Action Pop_Block 5788 4504 |E | Exit_Suprogram New_Top_Offset 0x4 5789 e602 | | Load 0x3,0x2 578a e002 | | Load 0x0,0x2 578b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 578c 01d5 | | Execute Vector,Field_Reference 578d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 578e a603 | | Store_Unchecked 0x3,0x3 578f e602 | | Load 0x3,0x2 5790 e002 | | Load 0x0,0x2 5791 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5792 01d5 | | Execute Vector,Field_Reference 5793 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 5794 a604 | | Store_Unchecked 0x3,0x4 5795 e602 | | Load 0x3,0x2 5796 e002 | | Load 0x0,0x2 5797 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5798 01d5 | | Execute Vector,Field_Reference 5799 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 579a 7040 |p@ | Jump_Nonzero 0x57db 579b e002 | | Load 0x0,0x2 579c 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 579d 00ea | | Load_Encached Null_String_Cache 579e e5fe | | Load 0x2,-0x2 579f 4800 |H | Short_Literal 0x0 57a0 e002 | | Load 0x0,0x2 57a1 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 57a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 57a3 e002 | | Load 0x0,0x2 57a4 1a7c | | | Execute Package,Field_Write,Field_Number 0x7c 57a5 e5fd | | Load 0x2,-0x3 57a6 0f01 | | Execute_Immediate Equal,0x1 57a7 6803 |h | Jump_Zero 0x57ab 57a8 4801 |H | Short_Literal 0x1 57a9 a605 | | Store_Unchecked 0x3,0x5 57aa 7802 |x | Jump 0x57ad 57ab e603 | | Load 0x3,0x3 57ac a605 | | Store_Unchecked 0x3,0x5 57ad e605 | | Load 0x3,0x5 57ae e002 | | Load 0x0,0x2 57af 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 57b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 57b1 025b | [ | Execute Discrete,Check_In_Type 57b2 e002 | | Load 0x0,0x2 57b3 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 57b4 e002 | | Load 0x0,0x2 57b5 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 57b6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 57b7 00cf | | Action Mark_Auxiliary 57b8 e604 | | Load 0x3,0x4 57b9 e603 | | Load 0x3,0x3 57ba 0263 | c | Execute Discrete,Above_Bound 57bb 7011 |p | Jump_Nonzero 0x57cd 57bc e002 | | Load 0x0,0x2 57bd 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 57be e002 | | Load 0x0,0x2 57bf 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 57c0 e002 | | Load 0x0,0x2 57c1 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 57c2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 57c3 00d1 | | Pop_Control Pop_Count_1 57c4 e002 | | Load 0x0,0x2 57c5 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 57c6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 57c7 e609 | | Load 0x3,0x9 57c8 e002 | | Load 0x0,0x2 57c9 1b90 | | Execute Package,Field_Read,Field_Number 0x90 57ca 01d6 | | Execute Vector,Field_Write 57cb 00c8 | | Action Pop_Auxiliary_Range 57cc 3fef |? | Loop_Increasing 0x57bc 57cd 00ce | | Action Pop_Auxiliary 57ce 4801 |H | Short_Literal 0x1 57cf e602 | | Load 0x3,0x2 57d0 e002 | | Load 0x0,0x2 57d1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 57d2 01d5 | | Execute Vector,Field_Reference 57d3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 57d4 e002 | | Load 0x0,0x2 57d5 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 57d6 e002 | | Load 0x0,0x2 57d7 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 57d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 57d9 e002 | | Load 0x0,0x2 57da 1a7c | | | Execute Package,Field_Write,Field_Number 0x7c 57db 0007 | | Action Break_Optional 57dc e602 | | Load 0x3,0x2 57dd e002 | | Load 0x0,0x2 57de 1b96 | | Execute Package,Field_Read,Field_Number 0x96 57df 01d5 | | Execute Vector,Field_Reference 57e0 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 57e1 a602 | | Store_Unchecked 0x3,0x2 57e2 e602 | | Load 0x3,0x2 57e3 0f00 | | Execute_Immediate Equal,0x0 57e4 e602 | | Load 0x3,0x2 57e5 0d00 | | Execute_Immediate Less,0x0 57e6 0278 | x | Execute Discrete,Or 57e7 6802 |h | Jump_Zero 0x57ea 57e8 00cc | | Action Pop_Block 57e9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 57ea e602 | | Load 0x3,0x2 57eb e002 | | Load 0x0,0x2 57ec 1b96 | | Execute Package,Field_Read,Field_Number 0x96 57ed 01d5 | | Execute Vector,Field_Reference 57ee 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 57ef a603 | | Store_Unchecked 0x3,0x3 57f0 e602 | | Load 0x3,0x2 57f1 e002 | | Load 0x0,0x2 57f2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 57f3 01d5 | | Execute Vector,Field_Reference 57f4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 57f5 a604 | | Store_Unchecked 0x3,0x4 57f6 e602 | | Load 0x3,0x2 57f7 e002 | | Load 0x0,0x2 57f8 1b96 | | Execute Package,Field_Read,Field_Number 0x96 57f9 01d5 | | Execute Vector,Field_Reference 57fa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 57fb 7040 |p@ | Jump_Nonzero 0x583c 57fc e002 | | Load 0x0,0x2 57fd 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 57fe 00ea | | Load_Encached Null_String_Cache 57ff e5fe | | Load 0x2,-0x2 5800 4800 |H | Short_Literal 0x0 5801 e002 | | Load 0x0,0x2 5802 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 5803 1815 | | Execute Package,Field_Execute,Field_Number 0x15 5804 e002 | | Load 0x0,0x2 5805 1a7c | | | Execute Package,Field_Write,Field_Number 0x7c 5806 e5fd | | Load 0x2,-0x3 5807 0f01 | | Execute_Immediate Equal,0x1 5808 6803 |h | Jump_Zero 0x580c 5809 4801 |H | Short_Literal 0x1 580a a605 | | Store_Unchecked 0x3,0x5 580b 7802 |x | Jump 0x580e 580c e603 | | Load 0x3,0x3 580d a605 | | Store_Unchecked 0x3,0x5 580e e605 | | Load 0x3,0x5 580f e002 | | Load 0x0,0x2 5810 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 5811 1b13 | | Execute Package,Field_Read,Field_Number 0x13 5812 025b | [ | Execute Discrete,Check_In_Type 5813 e002 | | Load 0x0,0x2 5814 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 5815 e002 | | Load 0x0,0x2 5816 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 5817 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 5818 00cf | | Action Mark_Auxiliary 5819 e604 | | Load 0x3,0x4 581a e603 | | Load 0x3,0x3 581b 0263 | c | Execute Discrete,Above_Bound 581c 7011 |p | Jump_Nonzero 0x582e 581d e002 | | Load 0x0,0x2 581e 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 581f e002 | | Load 0x0,0x2 5820 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 5821 e002 | | Load 0x0,0x2 5822 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 5823 181f | | Execute Package,Field_Execute,Field_Number 0x1f 5824 00d1 | | Pop_Control Pop_Count_1 5825 e002 | | Load 0x0,0x2 5826 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 5827 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 5828 e609 | | Load 0x3,0x9 5829 e002 | | Load 0x0,0x2 582a 1b90 | | Execute Package,Field_Read,Field_Number 0x90 582b 01d6 | | Execute Vector,Field_Write 582c 00c8 | | Action Pop_Auxiliary_Range 582d 3fef |? | Loop_Increasing 0x581d 582e 00ce | | Action Pop_Auxiliary 582f 4801 |H | Short_Literal 0x1 5830 e602 | | Load 0x3,0x2 5831 e002 | | Load 0x0,0x2 5832 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5833 01d5 | | Execute Vector,Field_Reference 5834 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 5835 e002 | | Load 0x0,0x2 5836 1b7c | | | Execute Package,Field_Read,Field_Number 0x7c 5837 e002 | | Load 0x0,0x2 5838 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 5839 1816 | | Execute Package,Field_Execute,Field_Number 0x16 583a e002 | | Load 0x0,0x2 583b 1a7c | | | Execute Package,Field_Write,Field_Number 0x7c 583c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 583d 0000 0000 | | .XXX[0x3] 583f 0000 | | 5840 ; -------------------------------------------------------------------------------------- 5840 ; SUBPROGRAM 5840 ; -------------------------------------------------------------------------------------- 5840 584d |XM | .CONST 0x584d ; Address of begin 5841 587c |X| | .CONST 0x587c ; Address of exception handler 5842 0003 | | .CONST 0x0003 ; Number of locals 5843 INIT_5840: 5843 e004 | | Load 0x0,0x4 5844 1b0d | | Execute Package,Field_Read,Field_Number 0xd 5845 02c7 | | Declare_Variable Any 5846 00d8 | | Load_Top At_Offset_0 5847 1c00 | | Execute_Immediate Run_Utility,0x0 5848 4801 |H | Short_Literal 0x1 5849 4803 |H | Short_Literal 0x3 584a 00e9 | | Load_Encached String_Cache 584b 0334 | 4 | Declare_Variable Array,With_Constraint 584c 538f |S | Indirect_Literal Any,0x5bdc,{0x5f617420, 0x20202020} 584d BODY_5840: 584d 00be | | Action Activate_Tasks 584e e602 | | Load 0x3,0x2 584f 00ea | | Load_Encached Null_String_Cache 5850 e5fd | | Load 0x2,-0x3 5851 e603 | | Load 0x3,0x3 5852 01cc | | Execute Vector,Catenate 5853 4801 |H | Short_Literal 0x1 5854 e004 | | Load 0x0,0x4 5855 1814 | | Execute Package,Field_Execute,Field_Number 0x14 5856 c602 | | Store 0x3,0x2 5857 4800 |H | Short_Literal 0x0 5858 e602 | | Load 0x3,0x2 5859 e004 | | Load 0x0,0x4 585a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 585b 4800 |H | Short_Literal 0x0 585c e602 | | Load 0x3,0x2 585d e004 | | Load 0x0,0x4 585e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 585f 00cf | | Action Mark_Auxiliary 5860 e002 | | Load 0x0,0x2 5861 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 5862 4801 |H | Short_Literal 0x1 5863 0263 | c | Execute Discrete,Above_Bound 5864 7011 |p | Jump_Nonzero 0x5876 5865 4801 |H | Short_Literal 0x1 5866 e606 | | Load 0x3,0x6 5867 e002 | | Load 0x0,0x2 5868 1b93 | | Execute Package,Field_Read,Field_Number 0x93 5869 01d5 | | Execute Vector,Field_Reference 586a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 586b e606 | | Load 0x3,0x6 586c e002 | | Load 0x0,0x2 586d 1b93 | | Execute Package,Field_Read,Field_Number 0x93 586e 01d5 | | Execute Vector,Field_Reference 586f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 5870 01cf | | Execute Vector,Slice_Read 5871 e602 | | Load 0x3,0x2 5872 e004 | | Load 0x0,0x4 5873 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 5874 00c8 | | Action Pop_Auxiliary_Range 5875 3fef |? | Loop_Increasing 0x5865 5876 00ce | | Action Pop_Auxiliary 5877 e602 | | Load 0x3,0x2 5878 e004 | | Load 0x0,0x4 5879 1816 | | Execute Package,Field_Execute,Field_Number 0x16 587a c602 | | Store 0x3,0x2 587b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 587c TRAP_5840: 587c 0007 | | Action Break_Optional 587d 4800 |H | Short_Literal 0x0 587e 4801 |H | Short_Literal 0x1 587f 0092 65f9 | e | Action Push_String_Extended,0x65f9 ; "Exception in saving attribute data to _at file" 5881 e001 | | Load 0x0,0x1 5882 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5883 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5884 0000 0000 | | .BLANK 0000[0x4] 5888 ; -------------------------------------------------------------------------------------- 5888 ; SUBPROGRAM 5888 ; -------------------------------------------------------------------------------------- 5888 58ac |X | .CONST 0x58ac ; Address of begin 5889 0004 | | .CONST 0x0004 ; Address of exception handler 588a 000c | | .CONST 0x000c ; Number of locals 588b INIT_5888: 588b e004 | | Load 0x0,0x4 588c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 588d 02c7 | | Declare_Variable Any 588e 00d8 | | Load_Top At_Offset_0 588f 1c00 | | Execute_Immediate Run_Utility,0x0 5890 4801 |H | Short_Literal 0x1 5891 4828 |H( | Short_Literal 0x28 5892 00e9 | | Load_Encached String_Cache 5893 0334 | 4 | Declare_Variable Array,With_Constraint 5894 00e2 | | Load_Encached Integer_Cache 5895 4801 |H | Short_Literal 0x1 5896 4806 |H | Short_Literal 0x6 5897 00e9 | | Load_Encached String_Cache 5898 0334 | 4 | Declare_Variable Array,With_Constraint 5899 4801 |H | Short_Literal 0x1 589a 4828 |H( | Short_Literal 0x28 589b 00e9 | | Load_Encached String_Cache 589c 0334 | 4 | Declare_Variable Array,With_Constraint 589d 00e2 | | Load_Encached Integer_Cache 589e 00e2 | | Load_Encached Integer_Cache 589f 4801 |H | Short_Literal 0x1 58a0 4805 |H | Short_Literal 0x5 58a1 00e9 | | Load_Encached String_Cache 58a2 0334 | 4 | Declare_Variable Array,With_Constraint 58a3 533c |S< | Indirect_Literal Any,0x5be0,{0x5f6d6169, 0x6c202020} 58a4 00e2 | | Load_Encached Integer_Cache 58a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 58a6 4801 |H | Short_Literal 0x1 58a7 481e |H | Short_Literal 0x1e 58a8 00e9 | | Load_Encached String_Cache 58a9 0334 | 4 | Declare_Variable Array,With_Constraint 58aa 029f 62cb | b | Declare_Subprogram INIT_62c8,For_Call 58ac BODY_5888: 58ac 00be | | Action Activate_Tasks 58ad 4800 |H | Short_Literal 0x0 58ae a5f2 | | Store_Unchecked 0x2,-0xe 58af e5fd | | Load 0x2,-0x3 58b0 01db | | Execute Vector,Length 58b1 0d06 | | Execute_Immediate Less,0x6 58b2 6808 |h | Jump_Zero 0x58bb 58b3 4800 |H | Short_Literal 0x0 58b4 4801 |H | Short_Literal 0x1 58b5 0092 65fa | e | Action Push_String_Extended,0x65fa ; "Error in the system id parameter, Must be 6 characters." 58b7 e001 | | Load 0x0,0x1 58b8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 58b9 00cc | | Action Pop_Block 58ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4 58bb e602 | | Load 0x3,0x2 58bc 00ea | | Load_Encached Null_String_Cache 58bd 4801 |H | Short_Literal 0x1 58be e002 | | Load 0x0,0x2 58bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 58c0 e002 | | Load 0x0,0x2 58c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 58c2 01cf | | Execute Vector,Slice_Read 58c3 0092 65fb | e | Action Push_String_Extended,0x65fb ; "cust_ids_master" 58c5 01cc | | Execute Vector,Catenate 58c6 4800 |H | Short_Literal 0x0 58c7 e004 | | Load 0x0,0x4 58c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 58c9 c602 | | Store 0x3,0x2 58ca 00cf | | Action Mark_Auxiliary 58cb 0007 | | Action Break_Optional 58cc 860c | | Call 0x3,0xc 58cd 00c9 | | Action Pop_Auxiliary_Loop 58ce 7ffd | | Jump 0x58cc 58cf 00ce | | Action Pop_Auxiliary 58d0 e602 | | Load 0x3,0x2 58d1 e004 | | Load 0x0,0x4 58d2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 58d3 c602 | | Store 0x3,0x2 58d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 58d5 0000 0000 | | .XXX[0x3] 58d7 0000 | | 58d8 ; -------------------------------------------------------------------------------------- 58d8 ; SUBPROGRAM 58d8 ; -------------------------------------------------------------------------------------- 58d8 58fb |X | .CONST 0x58fb ; Address of begin 58d9 0004 | | .CONST 0x0004 ; Address of exception handler 58da 000c | | .CONST 0x000c ; Number of locals 58db INIT_58d8: 58db 4801 |H | Short_Literal 0x1 58dc 4828 |H( | Short_Literal 0x28 58dd 00e9 | | Load_Encached String_Cache 58de 0334 | 4 | Declare_Variable Array,With_Constraint 58df 00e2 | | Load_Encached Integer_Cache 58e0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 58e1 4801 |H | Short_Literal 0x1 58e2 4828 |H( | Short_Literal 0x28 58e3 00e9 | | Load_Encached String_Cache 58e4 0334 | 4 | Declare_Variable Array,With_Constraint 58e5 00e2 | | Load_Encached Integer_Cache 58e6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 58e7 4801 |H | Short_Literal 0x1 58e8 4828 |H( | Short_Literal 0x28 58e9 00e9 | | Load_Encached String_Cache 58ea 0334 | 4 | Declare_Variable Array,With_Constraint 58eb 00e2 | | Load_Encached Integer_Cache 58ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 58ed 4801 |H | Short_Literal 0x1 58ee 4828 |H( | Short_Literal 0x28 58ef 00e9 | | Load_Encached String_Cache 58f0 0334 | 4 | Declare_Variable Array,With_Constraint 58f1 00e2 | | Load_Encached Integer_Cache 58f2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 58f3 4801 |H | Short_Literal 0x1 58f4 4828 |H( | Short_Literal 0x28 58f5 00e9 | | Load_Encached String_Cache 58f6 0334 | 4 | Declare_Variable Array,With_Constraint 58f7 00e2 | | Load_Encached Integer_Cache 58f8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 58f9 00e1 | | Load_Encached Boolean_Cache 58fa 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 58fb BODY_58d8: 58fb 00e1 | | Load_Encached Boolean_Cache 58fc e60b | | Load 0x3,0xb 58fd e60a | | Load 0x3,0xa 58fe e609 | | Load 0x3,0x9 58ff e608 | | Load 0x3,0x8 5900 e607 | | Load 0x3,0x7 5901 e606 | | Load 0x3,0x6 5902 e605 | | Load 0x3,0x5 5903 e604 | | Load 0x3,0x4 5904 e603 | | Load 0x3,0x3 5905 e602 | | Load 0x3,0x2 5906 e5fd | | Load 0x2,-0x3 5907 e5fe | | Load 0x2,-0x2 5908 e5ff | | Load 0x2,-0x1 5909 825c | \ | Call 0x1,0x5c 590a 00d1 | | Pop_Control Pop_Count_1 590b c603 | | Store 0x3,0x3 590c 00d1 | | Pop_Control Pop_Count_1 590d c605 | | Store 0x3,0x5 590e 00d1 | | Pop_Control Pop_Count_1 590f c607 | | Store 0x3,0x7 5910 00d1 | | Pop_Control Pop_Count_1 5911 c609 | | Store 0x3,0x9 5912 00d1 | | Pop_Control Pop_Count_1 5913 c60b | | Store 0x3,0xb 5914 c60c | | Store 0x3,0xc 5915 00d8 | | Load_Top At_Offset_0 5916 700a |p | Jump_Nonzero 0x5921 5917 4800 |H | Short_Literal 0x0 5918 4801 |H | Short_Literal 0x1 5919 0092 65fc | e | Action Push_String_Extended,0x65fc ; "Could not find sys id in cross ref/and/or no mail file." 591b e001 | | Load 0x0,0x1 591c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 591d 4800 |H | Short_Literal 0x0 591e a5fa | | Store_Unchecked 0x2,-0x6 591f 00cc | | Action Pop_Block 5920 4506 |E | Exit_Suprogram New_Top_Offset 0x6 5921 4801 |H | Short_Literal 0x1 5922 4805 |H | Short_Literal 0x5 5923 e602 | | Load 0x3,0x2 5924 01cf | | Execute Vector,Slice_Read 5925 0092 6434 | d4| Action Push_String_Extended,0x6434 ; "_____" 5927 01de | | Execute Vector,Not_Equal 5928 680f |h | Jump_Zero 0x5938 5929 4be7 |K | Short_Literal 0x3e7 592a 4802 |H | Short_Literal 0x2 592b 4be7 |K | Short_Literal 0x3e7 592c 4802 |H | Short_Literal 0x2 592d 4802 |H | Short_Literal 0x2 592e 4be7 |K | Short_Literal 0x3e7 592f 4be7 |K | Short_Literal 0x3e7 5930 4801 |H | Short_Literal 0x1 5931 e603 | | Load 0x3,0x3 5932 e602 | | Load 0x3,0x2 5933 01cf | | Execute Vector,Slice_Read 5934 e002 | | Load 0x0,0x2 5935 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 5936 4805 |H | Short_Literal 0x5 5937 8251 | Q | Call 0x1,0x51 5938 4801 |H | Short_Literal 0x1 5939 4805 |H | Short_Literal 0x5 593a e606 | | Load 0x3,0x6 593b 01cf | | Execute Vector,Slice_Read 593c 0092 6434 | d4| Action Push_String_Extended,0x6434 ; "_____" 593e 01de | | Execute Vector,Not_Equal 593f 680f |h | Jump_Zero 0x594f 5940 4be7 |K | Short_Literal 0x3e7 5941 4802 |H | Short_Literal 0x2 5942 4be7 |K | Short_Literal 0x3e7 5943 4802 |H | Short_Literal 0x2 5944 4802 |H | Short_Literal 0x2 5945 4be7 |K | Short_Literal 0x3e7 5946 4be7 |K | Short_Literal 0x3e7 5947 4801 |H | Short_Literal 0x1 5948 e607 | | Load 0x3,0x7 5949 e606 | | Load 0x3,0x6 594a 01cf | | Execute Vector,Slice_Read 594b e002 | | Load 0x0,0x2 594c 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 594d 480d |H | Short_Literal 0xd 594e 8251 | Q | Call 0x1,0x51 594f 4801 |H | Short_Literal 0x1 5950 4805 |H | Short_Literal 0x5 5951 e608 | | Load 0x3,0x8 5952 01cf | | Execute Vector,Slice_Read 5953 0092 6434 | d4| Action Push_String_Extended,0x6434 ; "_____" 5955 01de | | Execute Vector,Not_Equal 5956 680f |h | Jump_Zero 0x5966 5957 4be7 |K | Short_Literal 0x3e7 5958 4802 |H | Short_Literal 0x2 5959 4be7 |K | Short_Literal 0x3e7 595a 4802 |H | Short_Literal 0x2 595b 4802 |H | Short_Literal 0x2 595c 4be7 |K | Short_Literal 0x3e7 595d 4be7 |K | Short_Literal 0x3e7 595e 4801 |H | Short_Literal 0x1 595f e609 | | Load 0x3,0x9 5960 e608 | | Load 0x3,0x8 5961 01cf | | Execute Vector,Slice_Read 5962 e002 | | Load 0x0,0x2 5963 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 5964 480e |H | Short_Literal 0xe 5965 8251 | Q | Call 0x1,0x51 5966 4801 |H | Short_Literal 0x1 5967 4805 |H | Short_Literal 0x5 5968 e60a | | Load 0x3,0xa 5969 01cf | | Execute Vector,Slice_Read 596a 0092 6434 | d4| Action Push_String_Extended,0x6434 ; "_____" 596c 01de | | Execute Vector,Not_Equal 596d 680f |h | Jump_Zero 0x597d 596e 4be7 |K | Short_Literal 0x3e7 596f 4802 |H | Short_Literal 0x2 5970 4be7 |K | Short_Literal 0x3e7 5971 4802 |H | Short_Literal 0x2 5972 4802 |H | Short_Literal 0x2 5973 4be7 |K | Short_Literal 0x3e7 5974 4be7 |K | Short_Literal 0x3e7 5975 4801 |H | Short_Literal 0x1 5976 e60b | | Load 0x3,0xb 5977 e60a | | Load 0x3,0xa 5978 01cf | | Execute Vector,Slice_Read 5979 e002 | | Load 0x0,0x2 597a 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 597b 481b |H | Short_Literal 0x1b 597c 8251 | Q | Call 0x1,0x51 597d 4be7 |K | Short_Literal 0x3e7 597e 4802 |H | Short_Literal 0x2 597f 4be7 |K | Short_Literal 0x3e7 5980 4802 |H | Short_Literal 0x2 5981 4802 |H | Short_Literal 0x2 5982 4be7 |K | Short_Literal 0x3e7 5983 4be7 |K | Short_Literal 0x3e7 5984 e5fd | | Load 0x2,-0x3 5985 e002 | | Load 0x0,0x2 5986 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 5987 4806 |H | Short_Literal 0x6 5988 8251 | Q | Call 0x1,0x51 5989 e5fb | | Load 0x2,-0x5 598a 7024 |p$ | Jump_Nonzero 0x59af 598b e5fc | | Load 0x2,-0x4 598c 0f01 | | Execute_Immediate Equal,0x1 598d 6811 |h | Jump_Zero 0x599f 598e 4801 |H | Short_Literal 0x1 598f 4800 |H | Short_Literal 0x0 5990 4800 |H | Short_Literal 0x0 5991 4801 |H | Short_Literal 0x1 5992 e5fe | | Load 0x2,-0x2 5993 e5fe | | Load 0x2,-0x2 5994 e002 | | Load 0x0,0x2 5995 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5996 01d5 | | Execute Vector,Field_Reference 5997 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 5998 e5fe | | Load 0x2,-0x2 5999 e002 | | Load 0x0,0x2 599a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 599b 01d5 | | Execute Vector,Field_Reference 599c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 599d 8239 | 9 | Call 0x1,0x39 599e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 599f 4801 |H | Short_Literal 0x1 59a0 4800 |H | Short_Literal 0x0 59a1 4801 |H | Short_Literal 0x1 59a2 4801 |H | Short_Literal 0x1 59a3 e5fe | | Load 0x2,-0x2 59a4 e5fe | | Load 0x2,-0x2 59a5 e002 | | Load 0x0,0x2 59a6 1b96 | | Execute Package,Field_Read,Field_Number 0x96 59a7 01d5 | | Execute Vector,Field_Reference 59a8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 59a9 e5fe | | Load 0x2,-0x2 59aa e002 | | Load 0x0,0x2 59ab 1b96 | | Execute Package,Field_Read,Field_Number 0x96 59ac 01d5 | | Execute Vector,Field_Reference 59ad 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 59ae 8239 | 9 | Call 0x1,0x39 59af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 59b0 ; -------------------------------------------------------------------------------------- 59b0 ; SUBPROGRAM 59b0 ; -------------------------------------------------------------------------------------- 59b0 59cd |Y | .CONST 0x59cd ; Address of begin 59b1 5a39 |Z9 | .CONST 0x5a39 ; Address of exception handler 59b2 0005 | | .CONST 0x0005 ; Number of locals 59b3 INIT_59b0: 59b3 e004 | | Load 0x0,0x4 59b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 59b5 02c7 | | Declare_Variable Any 59b6 00d8 | | Load_Top At_Offset_0 59b7 1c00 | | Execute_Immediate Run_Utility,0x0 59b8 4801 |H | Short_Literal 0x1 59b9 4832 |H2 | Short_Literal 0x32 59ba 00e9 | | Load_Encached String_Cache 59bb 0334 | 4 | Declare_Variable Array,With_Constraint 59bc 4801 |H | Short_Literal 0x1 59bd 4832 |H2 | Short_Literal 0x32 59be 00e9 | | Load_Encached String_Cache 59bf 0334 | 4 | Declare_Variable Array,With_Constraint 59c0 4832 |H2 | Short_Literal 0x32 59c1 4801 |H | Short_Literal 0x1 59c2 4820 |H | Short_Literal 0x20 59c3 e606 | | Load 0x3,0x6 59c4 e604 | | Load 0x3,0x4 59c5 01d6 | | Execute Vector,Field_Write 59c6 3ffb |? | Loop_Increasing 0x59c2 59c7 e603 | | Load 0x3,0x3 59c8 01d4 | | Execute Vector,Structure_Write 59c9 00e2 | | Load_Encached Integer_Cache 59ca 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 59cb 029f 63b3 | c | Declare_Subprogram INIT_63b0,For_Call 59cd BODY_59b0: 59cd 00be | | Action Activate_Tasks 59ce e602 | | Load 0x3,0x2 59cf 00ea | | Load_Encached Null_String_Cache 59d0 4801 |H | Short_Literal 0x1 59d1 e002 | | Load 0x0,0x2 59d2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 59d3 e002 | | Load 0x0,0x2 59d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 59d5 01cf | | Execute Vector,Slice_Read 59d6 e5fe | | Load 0x2,-0x2 59d7 01cc | | Execute Vector,Catenate 59d8 4800 |H | Short_Literal 0x0 59d9 e004 | | Load 0x0,0x4 59da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 59db c602 | | Store 0x3,0x2 59dc 00e3 | | Load_Encached Natural_Cache 59dd e603 | | Load 0x3,0x3 59de e004 | | Load 0x0,0x4 59df 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 59e0 00d1 | | Pop_Control Pop_Count_1 59e1 c604 | | Store 0x3,0x4 59e2 e602 | | Load 0x3,0x2 59e3 e004 | | Load 0x0,0x4 59e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 59e5 c602 | | Store 0x3,0x2 59e6 e002 | | Load 0x0,0x2 59e7 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 59e8 7006 |p | Jump_Nonzero 0x59ef 59e9 4800 |H | Short_Literal 0x0 59ea 4801 |H | Short_Literal 0x1 59eb 0092 65fd | e | Action Push_String_Extended,0x65fd ; "[Default option file read.]" 59ed e001 | | Load 0x0,0x1 59ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 59ef e604 | | Load 0x3,0x4 59f0 e407 | | Load 0x2,0x7 59f1 027c | | | Execute Discrete,Less 59f2 6808 |h | Jump_Zero 0x59fb 59f3 4800 |H | Short_Literal 0x0 59f4 4801 |H | Short_Literal 0x1 59f5 0092 65fe | e | Action Push_String_Extended,0x65fe ; "[Default option file too short.]" 59f7 e001 | | Load 0x0,0x1 59f8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 59f9 e015 | | Load 0x0,0x15 59fa 0257 | W | Execute Discrete,Raise 59fb 4801 |H | Short_Literal 0x1 59fc 4801 |H | Short_Literal 0x1 59fd e603 | | Load 0x3,0x3 59fe 01cf | | Execute Vector,Slice_Read 59ff 0092 63fe | c | Action Push_String_Extended,0x63fe ; "y" 5a01 01df | | Execute Vector,Equal 5a02 4801 |H | Short_Literal 0x1 5a03 4801 |H | Short_Literal 0x1 5a04 e603 | | Load 0x3,0x3 5a05 01cf | | Execute Vector,Slice_Read 5a06 0092 647b | d{| Action Push_String_Extended,0x647b ; "Y" 5a08 01df | | Execute Vector,Equal 5a09 4801 |H | Short_Literal 0x1 5a0a 4801 |H | Short_Literal 0x1 5a0b e603 | | Load 0x3,0x3 5a0c 01cf | | Execute Vector,Slice_Read 5a0d 0092 6400 | d | Action Push_String_Extended,0x6400 ; "n" 5a0f 01df | | Execute Vector,Equal 5a10 4801 |H | Short_Literal 0x1 5a11 4801 |H | Short_Literal 0x1 5a12 e603 | | Load 0x3,0x3 5a13 01cf | | Execute Vector,Slice_Read 5a14 0092 65ff | e | Action Push_String_Extended,0x65ff ; "N" 5a16 01df | | Execute Vector,Equal 5a17 0278 | x | Execute Discrete,Or 5a18 0278 | x | Execute Discrete,Or 5a19 0278 | x | Execute Discrete,Or 5a1a 6801 |h | Jump_Zero 0x5a1c 5a1b 7808 |x | Jump 0x5a24 5a1c 4800 |H | Short_Literal 0x0 5a1d 4801 |H | Short_Literal 0x1 5a1e 0092 6600 | f | Action Push_String_Extended,0x6600 ; "[Default option file bad data, not y/n.]" 5a20 e001 | | Load 0x0,0x1 5a21 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5a22 e015 | | Load 0x0,0x15 5a23 0257 | W | Execute Discrete,Raise 5a24 e604 | | Load 0x3,0x4 5a25 e407 | | Load 0x2,0x7 5a26 027c | | | Execute Discrete,Less 5a27 6808 |h | Jump_Zero 0x5a30 5a28 4800 |H | Short_Literal 0x0 5a29 4801 |H | Short_Literal 0x1 5a2a 0092 6601 | f | Action Push_String_Extended,0x6601 ; "[Default option file has too few options set.]" 5a2c e001 | | Load 0x0,0x1 5a2d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5a2e e015 | | Load 0x0,0x15 5a2f 0257 | W | Execute Discrete,Raise 5a30 4801 |H | Short_Literal 0x1 5a31 e407 | | Load 0x2,0x7 5a32 e603 | | Load 0x3,0x3 5a33 01cf | | Execute Vector,Slice_Read 5a34 4801 |H | Short_Literal 0x1 5a35 e407 | | Load 0x2,0x7 5a36 e402 | | Load 0x2,0x2 5a37 01ce | | Execute Vector,Slice_Write 5a38 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5a39 TRAP_59b0: 5a39 0007 | | Action Break_Optional 5a3a 8605 | | Call 0x3,0x5 5a3b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5a3c 0000 0000 | | .BLANK 0000[0x4] 5a40 ; -------------------------------------------------------------------------------------- 5a40 ; SUBPROGRAM 5a40 ; -------------------------------------------------------------------------------------- 5a40 5a48 |ZH | .CONST 0x5a48 ; Address of begin 5a41 5a68 |Zh | .CONST 0x5a68 ; Address of exception handler 5a42 0002 | | .CONST 0x0002 ; Number of locals 5a43 INIT_5a40: 5a43 e004 | | Load 0x0,0x4 5a44 1b0d | | Execute Package,Field_Read,Field_Number 0xd 5a45 02c7 | | Declare_Variable Any 5a46 00d8 | | Load_Top At_Offset_0 5a47 1c00 | | Execute_Immediate Run_Utility,0x0 5a48 BODY_5a40: 5a48 00be | | Action Activate_Tasks 5a49 00d8 | | Load_Top At_Offset_0 5a4a 00ea | | Load_Encached Null_String_Cache 5a4b 4801 |H | Short_Literal 0x1 5a4c e002 | | Load 0x0,0x2 5a4d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 5a4e e002 | | Load 0x0,0x2 5a4f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 5a50 01cf | | Execute Vector,Slice_Read 5a51 e5fe | | Load 0x2,-0x2 5a52 01cc | | Execute Vector,Catenate 5a53 4801 |H | Short_Literal 0x1 5a54 e004 | | Load 0x0,0x4 5a55 1815 | | Execute Package,Field_Execute,Field_Number 0x15 5a56 c602 | | Store 0x3,0x2 5a57 4800 |H | Short_Literal 0x0 5a58 4801 |H | Short_Literal 0x1 5a59 0092 6602 | f | Action Push_String_Extended,0x6602 ; "[Default option file saved ok.]" 5a5b e001 | | Load 0x0,0x1 5a5c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5a5d 4801 |H | Short_Literal 0x1 5a5e e407 | | Load 0x2,0x7 5a5f e402 | | Load 0x2,0x2 5a60 01cf | | Execute Vector,Slice_Read 5a61 e004 | | Load 0x0,0x4 5a62 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 5a63 00d8 | | Load_Top At_Offset_0 5a64 e004 | | Load 0x0,0x4 5a65 1816 | | Execute Package,Field_Execute,Field_Number 0x16 5a66 c602 | | Store 0x3,0x2 5a67 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5a68 TRAP_5a40: 5a68 0007 | | Action Break_Optional 5a69 4800 |H | Short_Literal 0x0 5a6a 4801 |H | Short_Literal 0x1 5a6b 0092 6603 | f | Action Push_String_Extended,0x6603 ; "[Error, Couldn't save option file.]" 5a6d e001 | | Load 0x0,0x1 5a6e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5a6f e602 | | Load 0x3,0x2 5a70 e004 | | Load 0x0,0x4 5a71 1816 | | Execute Package,Field_Execute,Field_Number 0x16 5a72 c602 | | Store 0x3,0x2 5a73 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5a74 0000 0000 | | .BLANK 0000[0x4] 5a78 ; -------------------------------------------------------------------------------------- 5a78 ; SUBPROGRAM 5a78 ; -------------------------------------------------------------------------------------- 5a78 5a7b |Z{ | .CONST 0x5a7b ; Address of begin 5a79 5a80 |Z | .CONST 0x5a80 ; Address of exception handler 5a7a 0001 | | .CONST 0x0001 ; Number of locals 5a7b BODY_5a78: 5a7b INIT_5a78: 5a7b e405 | | Load 0x2,0x5 5a7c e004 | | Load 0x0,0x4 5a7d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 5a7e c405 | | Store 0x2,0x5 5a7f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5a80 TRAP_5a78: 5a80 0007 | | Action Break_Optional 5a81 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5a82 0000 0000 | | .BLANK 0000[0x6] 5a88 ; -------------------------------------------------------------------------------------- 5a88 ; SUBPROGRAM 5a88 ; -------------------------------------------------------------------------------------- 5a88 5a8b |Z | .CONST 0x5a8b ; Address of begin 5a89 5abb |Z | .CONST 0x5abb ; Address of exception handler 5a8a 0001 | | .CONST 0x0001 ; Number of locals 5a8b BODY_5a88: 5a8b INIT_5a88: 5a8b 00e3 | | Load_Encached Natural_Cache 5a8c e40f | | Load 0x2,0xf 5a8d e406 | | Load 0x2,0x6 5a8e e004 | | Load 0x0,0x4 5a8f 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 5a90 00d1 | | Pop_Control Pop_Count_1 5a91 c410 | | Store 0x2,0x10 5a92 00cf | | Action Mark_Auxiliary 5a93 0007 | | Action Break_Optional 5a94 00e3 | | Load_Encached Natural_Cache 5a95 e40f | | Load 0x2,0xf 5a96 e406 | | Load 0x2,0x6 5a97 e004 | | Load 0x0,0x4 5a98 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 5a99 00d1 | | Pop_Control Pop_Count_1 5a9a c410 | | Store 0x2,0x10 5a9b e210 | | Load 0x1,0x10 5a9c 0a01 | | Execute_Immediate Plus,0x1 5a9d 0248 | H | Execute Discrete,Check_In_Integer 5a9e a210 | | Store_Unchecked 0x1,0x10 5a9f e210 | | Load 0x1,0x10 5aa0 0c65 | e | Execute_Immediate Greater_Equal,0x65 5aa1 7018 |p | Jump_Nonzero 0x5aba 5aa2 e410 | | Load 0x2,0x10 5aa3 e210 | | Load 0x1,0x10 5aa4 e212 | | Load 0x1,0x12 5aa5 01d5 | | Execute Vector,Field_Reference 5aa6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 5aa7 4801 |H | Short_Literal 0x1 5aa8 e410 | | Load 0x2,0x10 5aa9 e40f | | Load 0x2,0xf 5aaa 01cf | | Execute Vector,Slice_Read 5aab 4801 |H | Short_Literal 0x1 5aac e410 | | Load 0x2,0x10 5aad e210 | | Load 0x1,0x10 5aae e212 | | Load 0x1,0x12 5aaf 01d7 | | Execute Vector,Field_Read 5ab0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 5ab1 01ce | | Execute Vector,Slice_Write 5ab2 e406 | | Load 0x2,0x6 5ab3 e004 | | Load 0x0,0x4 5ab4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 5ab5 0f01 | | Execute_Immediate Equal,0x1 5ab6 6801 |h | Jump_Zero 0x5ab8 5ab7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ab8 00c9 | | Action Pop_Auxiliary_Loop 5ab9 7fda | | Jump 0x5a94 5aba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5abb TRAP_5a88: 5abb 0007 | | Action Break_Optional 5abc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5abd 0000 0000 | | .XXX[0x3] 5abf 0000 | | 5ac0 ; -------------------------------------------------------------------------------------- 5ac0 ; SUBPROGRAM 5ac0 ; -------------------------------------------------------------------------------------- 5ac0 5ac3 |Z | .CONST 0x5ac3 ; Address of begin 5ac1 5acc |Z | .CONST 0x5acc ; Address of exception handler 5ac2 0001 | | .CONST 0x0001 ; Number of locals 5ac3 BODY_5ac0: 5ac3 INIT_5ac0: 5ac3 e406 | | Load 0x2,0x6 5ac4 e004 | | Load 0x0,0x4 5ac5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 5ac6 6804 |h | Jump_Zero 0x5acb 5ac7 e406 | | Load 0x2,0x6 5ac8 e004 | | Load 0x0,0x4 5ac9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 5aca c406 | | Store 0x2,0x6 5acb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5acc TRAP_5ac0: 5acc 0007 | | Action Break_Optional 5acd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ace 0000 0000 | | .XXX[0x2] 5ad0 ; -------------------------------------------------------------------------------------- 5ad0 ; SUBPROGRAM 5ad0 ; -------------------------------------------------------------------------------------- 5ad0 5ad3 |Z | .CONST 0x5ad3 ; Address of begin 5ad1 5ade |Z | .CONST 0x5ade ; Address of exception handler 5ad2 0001 | | .CONST 0x0001 ; Number of locals 5ad3 BODY_5ad0: 5ad3 INIT_5ad0: 5ad3 e602 | | Load 0x3,0x2 5ad4 00ea | | Load_Encached Null_String_Cache 5ad5 4801 |H | Short_Literal 0x1 5ad6 e60d | | Load 0x3,0xd 5ad7 e60c | | Load 0x3,0xc 5ad8 01cf | | Execute Vector,Slice_Read 5ad9 4800 |H | Short_Literal 0x0 5ada e004 | | Load 0x0,0x4 5adb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 5adc c602 | | Store 0x3,0x2 5add 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ade TRAP_5ad0: 5ade 0007 | | Action Break_Optional 5adf 0092 6604 | f | Action Push_String_Extended,0x6604 ; " Found no new user input files to process." 5ae1 e001 | | Load 0x0,0x1 5ae2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 5ae3 e001 | | Load 0x0,0x1 5ae4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5ae5 e001 | | Load 0x0,0x1 5ae6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5ae7 00cc | | Action Pop_Block 5ae8 00cc | | Action Pop_Block 5ae9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 5aea 0000 0000 | | .BLANK 0000[0x6] 5af0 ; -------------------------------------------------------------------------------------- 5af0 ; SUBPROGRAM 5af0 ; -------------------------------------------------------------------------------------- 5af0 5af3 |Z | .CONST 0x5af3 ; Address of begin 5af1 5af8 |Z | .CONST 0x5af8 ; Address of exception handler 5af2 0001 | | .CONST 0x0001 ; Number of locals 5af3 BODY_5af0: 5af3 INIT_5af0: 5af3 e403 | | Load 0x2,0x3 5af4 e004 | | Load 0x0,0x4 5af5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 5af6 c403 | | Store 0x2,0x3 5af7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5af8 TRAP_5af0: 5af8 0007 | | Action Break_Optional 5af9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5afa 0000 0000 | | .BLANK 0000[0x6] 5b00 ; -------------------------------------------------------------------------------------- 5b00 ; SUBPROGRAM 5b00 ; -------------------------------------------------------------------------------------- 5b00 5b03 |[ | .CONST 0x5b03 ; Address of begin 5b01 5bd1 |[ | .CONST 0x5bd1 ; Address of exception handler 5b02 0001 | | .CONST 0x0001 ; Number of locals 5b03 BODY_5b00: 5b03 INIT_5b00: 5b03 4828 |H( | Short_Literal 0x28 5b04 4801 |H | Short_Literal 0x1 5b05 4801 |H | Short_Literal 0x1 5b06 4801 |H | Short_Literal 0x1 5b07 e5ff | | Load 0x2,-0x1 5b08 e002 | | Load 0x0,0x2 5b09 18a6 | | Execute Package,Field_Execute,Field_Number 0xa6 5b0a 00cf | | Action Mark_Auxiliary 5b0b 0007 | | Action Break_Optional 5b0c 4863 |Hc | Short_Literal 0x63 5b0d e002 | | Load 0x0,0x2 5b0e 1a1b | | Execute Package,Field_Write,Field_Number 0x1b 5b0f e002 | | Load 0x0,0x2 5b10 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 5b11 e002 | | Load 0x0,0x2 5b12 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b13 e5ff | | Load 0x2,-0x1 5b14 e002 | | Load 0x0,0x2 5b15 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 5b16 4801 |H | Short_Literal 0x1 5b17 4800 |H | Short_Literal 0x0 5b18 4800 |H | Short_Literal 0x0 5b19 e002 | | Load 0x0,0x2 5b1a 18ab | | Execute Package,Field_Execute,Field_Number 0xab 5b1b 00d1 | | Pop_Control Pop_Count_1 5b1c e002 | | Load 0x0,0x2 5b1d 1a1b | | Execute Package,Field_Write,Field_Number 0x1b 5b1e 00d1 | | Pop_Control Pop_Count_1 5b1f e604 | | Load 0x3,0x4 5b20 7002 |p | Jump_Nonzero 0x5b23 5b21 4801 |H | Short_Literal 0x1 5b22 a604 | | Store_Unchecked 0x3,0x4 5b23 0007 | | Action Break_Optional 5b24 e002 | | Load 0x0,0x2 5b25 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b26 0f1e | | Execute_Immediate Equal,0x1e 5b27 680a |h | Jump_Zero 0x5b32 5b28 4800 |H | Short_Literal 0x0 5b29 4802 |H | Short_Literal 0x2 5b2a 0092 6605 | f | Action Push_String_Extended,0x6605 ; "Exiting Program." 5b2c e001 | | Load 0x0,0x1 5b2d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5b2e 00ce | | Action Pop_Auxiliary 5b2f 00cc | | Action Pop_Block 5b30 00a7 41c7 | A | Action Jump_Extended,0x41c7 5b32 e002 | | Load 0x0,0x2 5b33 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b34 0f0a | | Execute_Immediate Equal,0xa 5b35 6807 |h | Jump_Zero 0x5b3d 5b36 4800 |H | Short_Literal 0x0 5b37 4801 |H | Short_Literal 0x1 5b38 0092 6606 | f | Action Push_String_Extended,0x6606 ; "Detail information is now accessed via Dispatch main menu only." 5b3a e001 | | Load 0x0,0x1 5b3b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5b3c 7892 |x | Jump 0x5bcf 5b3d e002 | | Load 0x0,0x2 5b3e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b3f 0f0b | | Execute_Immediate Equal,0xb 5b40 6808 |h | Jump_Zero 0x5b49 5b41 4800 |H | Short_Literal 0x0 5b42 4801 |H | Short_Literal 0x1 5b43 0092 6607 | f | Action Push_String_Extended,0x6607 ; "Extracting databases for external Report Package." 5b45 e001 | | Load 0x0,0x1 5b46 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5b47 821d | | Call 0x1,0x1d 5b48 7886 |x | Jump 0x5bcf 5b49 e002 | | Load 0x0,0x2 5b4a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b4b 0f0c | | Execute_Immediate Equal,0xc 5b4c 6808 |h | Jump_Zero 0x5b55 5b4d 4800 |H | Short_Literal 0x0 5b4e 4801 |H | Short_Literal 0x1 5b4f 0092 6608 | f | Action Push_String_Extended,0x6608 ; "Entering Summary Report Generator for immediate reports." 5b51 e001 | | Load 0x0,0x1 5b52 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5b53 821e | | Call 0x1,0x1e 5b54 787a |xz | Jump 0x5bcf 5b55 e002 | | Load 0x0,0x2 5b56 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b57 0f0f | | Execute_Immediate Equal,0xf 5b58 6807 |h | Jump_Zero 0x5b60 5b59 4801 |H | Short_Literal 0x1 5b5a 4804 |H | Short_Literal 0x4 5b5b 0092 6609 | f | Action Push_String_Extended,0x6609 ; "Help screen not yet completely loaded into parameters." 5b5d e001 | | Load 0x0,0x1 5b5e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5b5f 786f |xo | Jump 0x5bcf 5b60 e002 | | Load 0x0,0x2 5b61 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b62 0f10 | | Execute_Immediate Equal,0x10 5b63 6807 |h | Jump_Zero 0x5b6b 5b64 4800 |H | Short_Literal 0x0 5b65 4801 |H | Short_Literal 0x1 5b66 0092 660a | f | Action Push_String_Extended,0x660a ; "Testing new code fragments - none currently under test." 5b68 e001 | | Load 0x0,0x1 5b69 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5b6a 7864 |xd | Jump 0x5bcf 5b6b e002 | | Load 0x0,0x2 5b6c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b6d 0f11 | | Execute_Immediate Equal,0x11 5b6e 6806 |h | Jump_Zero 0x5b75 5b6f 0092 660b | f | Action Push_String_Extended,0x660b ; "sims_options" 5b71 0092 660c | f | Action Push_String_Extended,0x660c ; "YnYYYYYnYYYnnnn" 5b73 825e | ^ | Call 0x1,0x5e 5b74 7858 |xX | Jump 0x5bcd 5b75 e002 | | Load 0x0,0x2 5b76 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b77 0c01 | | Execute_Immediate Greater_Equal,0x1 5b78 e002 | | Load 0x0,0x2 5b79 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b7a e002 | | Load 0x0,0x2 5b7b 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 5b7c e5ff | | Load 0x2,-0x1 5b7d 01d5 | | Execute Vector,Field_Reference 5b7e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5b7f 0a01 | | Execute_Immediate Plus,0x1 5b80 027c | | | Execute Discrete,Less 5b81 e002 | | Load 0x0,0x2 5b82 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b83 e002 | | Load 0x0,0x2 5b84 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b85 e002 | | Load 0x0,0x2 5b86 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5b87 01d5 | | Execute Vector,Field_Reference 5b88 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 5b89 027f | | Execute Discrete,Equal 5b8a 0279 | y | Execute Discrete,And 5b8b 0279 | y | Execute Discrete,And 5b8c 683c |h< | Jump_Zero 0x5bc9 5b8d 4800 |H | Short_Literal 0x0 5b8e 4801 |H | Short_Literal 0x1 5b8f e002 | | Load 0x0,0x2 5b90 1b0e | | Execute Package,Field_Read,Field_Number 0xe 5b91 e002 | | Load 0x0,0x2 5b92 1b0d | | Execute Package,Field_Read,Field_Number 0xd 5b93 01cf | | Execute Vector,Slice_Read 5b94 0092 63fb | c | Action Push_String_Extended,0x63fb ; "gen_params_master" 5b96 01cc | | Execute Vector,Catenate 5b97 e002 | | Load 0x0,0x2 5b98 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b99 8267 | g | Call 0x1,0x67 5b9a e002 | | Load 0x0,0x2 5b9b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5b9c e002 | | Load 0x0,0x2 5b9d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5b9e 01d5 | | Execute Vector,Field_Reference 5b9f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 5ba0 a602 | | Store_Unchecked 0x3,0x2 5ba1 4801 |H | Short_Literal 0x1 5ba2 4828 |H( | Short_Literal 0x28 5ba3 e002 | | Load 0x0,0x2 5ba4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5ba5 e002 | | Load 0x0,0x2 5ba6 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5ba7 01d5 | | Execute Vector,Field_Reference 5ba8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 5ba9 01cf | | Execute Vector,Slice_Read 5baa 4801 |H | Short_Literal 0x1 5bab 4828 |H( | Short_Literal 0x28 5bac e002 | | Load 0x0,0x2 5bad 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 5bae e602 | | Load 0x3,0x2 5baf e002 | | Load 0x0,0x2 5bb0 1b8d | | Execute Package,Field_Read,Field_Number 0x8d 5bb1 01d7 | | Execute Vector,Field_Read 5bb2 01d7 | | Execute Vector,Field_Read 5bb3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 5bb4 01ce | | Execute Vector,Slice_Write 5bb5 4828 |H( | Short_Literal 0x28 5bb6 e002 | | Load 0x0,0x2 5bb7 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 5bb8 e602 | | Load 0x3,0x2 5bb9 e002 | | Load 0x0,0x2 5bba 1b8d | | Execute Package,Field_Read,Field_Number 0x8d 5bbb 01d5 | | Execute Vector,Field_Reference 5bbc 01d5 | | Execute Vector,Field_Reference 5bbd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 5bbe e602 | | Load 0x3,0x2 5bbf e002 | | Load 0x0,0x2 5bc0 1b8d | | Execute Package,Field_Read,Field_Number 0x8d 5bc1 01d7 | | Execute Vector,Field_Read 5bc2 00d8 | | Load_Top At_Offset_0 5bc3 e002 | | Load 0x0,0x2 5bc4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 5bc5 e602 | | Load 0x3,0x2 5bc6 822c | , | Call 0x1,0x2c 5bc7 00d2 | | Pop_Control Pop_Count_2 5bc8 7806 |x | Jump 0x5bcf 5bc9 e5ff | | Load 0x2,-0x1 5bca e002 | | Load 0x0,0x2 5bcb 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8 5bcc 7802 |x | Jump 0x5bcf 5bcd 00c9 | | Action Pop_Auxiliary_Loop 5bce 7f3d | = | Jump 0x5b0c 5bcf 00ce | | Action Pop_Auxiliary 5bd0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5bd1 TRAP_5b00: 5bd1 0007 | | Action Break_Optional 5bd2 4800 |H | Short_Literal 0x0 5bd3 4801 |H | Short_Literal 0x1 5bd4 0092 660d | f | Action Push_String_Extended,0x660d ; "Invalid top menu input command." 5bd6 e001 | | Load 0x0,0x1 5bd7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5bd8 e5ff | | Load 0x2,-0x1 5bd9 e002 | | Load 0x0,0x2 5bda 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8 5bdb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5bdc 5f61 7420 |_at | .LITERAL {0x5f617420, 0x20202020} 5be0 5f6d 6169 |_mai| .LITERAL {0x5f6d6169, 0x6c202020} 5be4 0000 0000 | | .BLANK 0000[0x4] 5be8 ; -------------------------------------------------------------------------------------- 5be8 ; SUBPROGRAM 5be8 ; -------------------------------------------------------------------------------------- 5be8 5beb |[ | .CONST 0x5beb ; Address of begin 5be9 5ee6 |^ | .CONST 0x5ee6 ; Address of exception handler 5bea 0001 | | .CONST 0x0001 ; Number of locals 5beb BODY_5be8: 5beb INIT_5be8: 5beb 4828 |H( | Short_Literal 0x28 5bec 4801 |H | Short_Literal 0x1 5bed 4801 |H | Short_Literal 0x1 5bee 4801 |H | Short_Literal 0x1 5bef e5fd | | Load 0x2,-0x3 5bf0 e002 | | Load 0x0,0x2 5bf1 18a6 | | Execute Package,Field_Execute,Field_Number 0xa6 5bf2 00cf | | Action Mark_Auxiliary 5bf3 0007 | | Action Break_Optional 5bf4 4859 |HY | Short_Literal 0x59 5bf5 e002 | | Load 0x0,0x2 5bf6 1a1c | | Execute Package,Field_Write,Field_Number 0x1c 5bf7 e002 | | Load 0x0,0x2 5bf8 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 5bf9 e002 | | Load 0x0,0x2 5bfa 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5bfb e5fd | | Load 0x2,-0x3 5bfc e002 | | Load 0x0,0x2 5bfd 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 5bfe 4801 |H | Short_Literal 0x1 5bff 4800 |H | Short_Literal 0x0 5c00 4800 |H | Short_Literal 0x0 5c01 e002 | | Load 0x0,0x2 5c02 18ab | | Execute Package,Field_Execute,Field_Number 0xab 5c03 00d1 | | Pop_Control Pop_Count_1 5c04 e002 | | Load 0x0,0x2 5c05 1a1c | | Execute Package,Field_Write,Field_Number 0x1c 5c06 00d1 | | Pop_Control Pop_Count_1 5c07 0007 | | Action Break_Optional 5c08 e5fe | | Load 0x2,-0x2 5c09 e002 | | Load 0x0,0x2 5c0a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c0b 01d5 | | Execute Vector,Field_Reference 5c0c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5c0d a602 | | Store_Unchecked 0x3,0x2 5c0e e5fe | | Load 0x2,-0x2 5c0f e002 | | Load 0x0,0x2 5c10 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c11 01d5 | | Execute Vector,Field_Reference 5c12 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 5c13 a603 | | Store_Unchecked 0x3,0x3 5c14 e5fe | | Load 0x2,-0x2 5c15 e002 | | Load 0x0,0x2 5c16 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c17 01d5 | | Execute Vector,Field_Reference 5c18 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 5c19 a606 | | Store_Unchecked 0x3,0x6 5c1a e5fe | | Load 0x2,-0x2 5c1b e002 | | Load 0x0,0x2 5c1c 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c1d 01d5 | | Execute Vector,Field_Reference 5c1e 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 5c1f a607 | | Store_Unchecked 0x3,0x7 5c20 e5fe | | Load 0x2,-0x2 5c21 e002 | | Load 0x0,0x2 5c22 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c23 01d5 | | Execute Vector,Field_Reference 5c24 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 5c25 a608 | | Store_Unchecked 0x3,0x8 5c26 e606 | | Load 0x3,0x6 5c27 0c01 | | Execute_Immediate Greater_Equal,0x1 5c28 e606 | | Load 0x3,0x6 5c29 e002 | | Load 0x0,0x2 5c2a 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 5c2b e5fd | | Load 0x2,-0x3 5c2c 01d5 | | Execute Vector,Field_Reference 5c2d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5c2e 0a01 | | Execute_Immediate Plus,0x1 5c2f 027c | | | Execute Discrete,Less 5c30 0279 | y | Execute Discrete,And 5c31 6816 |h | Jump_Zero 0x5c48 5c32 e606 | | Load 0x3,0x6 5c33 e002 | | Load 0x0,0x2 5c34 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c35 01d5 | | Execute Vector,Field_Reference 5c36 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 5c37 a60a | | Store_Unchecked 0x3,0xa 5c38 e606 | | Load 0x3,0x6 5c39 e002 | | Load 0x0,0x2 5c3a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5c3b 01d5 | | Execute Vector,Field_Reference 5c3c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 5c3d a60b | | Store_Unchecked 0x3,0xb 5c3e e002 | | Load 0x0,0x2 5c3f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 5c40 e608 | | Load 0x3,0x8 5c41 e002 | | Load 0x0,0x2 5c42 1b90 | | Execute Package,Field_Read,Field_Number 0x90 5c43 01d5 | | Execute Vector,Field_Reference 5c44 01d5 | | Execute Vector,Field_Reference 5c45 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 5c46 0274 | t | Execute Discrete,Absolute_Value 5c47 a609 | | Store_Unchecked 0x3,0x9 5c48 0007 | | Action Break_Optional 5c49 e002 | | Load 0x0,0x2 5c4a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5c4b 0f01 | | Execute_Immediate Equal,0x1 5c4c 680f |h | Jump_Zero 0x5c5c 5c4d e609 | | Load 0x3,0x9 5c4e e60b | | Load 0x3,0xb 5c4f e60a | | Load 0x3,0xa 5c50 e608 | | Load 0x3,0x8 5c51 e607 | | Load 0x3,0x7 5c52 e606 | | Load 0x3,0x6 5c53 4800 |H | Short_Literal 0x0 5c54 4800 |H | Short_Literal 0x0 5c55 4801 |H | Short_Literal 0x1 5c56 4800 |H | Short_Literal 0x0 5c57 e5fe | | Load 0x2,-0x2 5c58 e603 | | Load 0x3,0x3 5c59 e602 | | Load 0x3,0x2 5c5a 822d | - | Call 0x1,0x2d 5c5b 7a86 |z | Jump 0x5ee2 5c5c e002 | | Load 0x0,0x2 5c5d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5c5e 0f02 | | Execute_Immediate Equal,0x2 5c5f 680e |h | Jump_Zero 0x5c6e 5c60 4800 |H | Short_Literal 0x0 5c61 e609 | | Load 0x3,0x9 5c62 e60b | | Load 0x3,0xb 5c63 e60a | | Load 0x3,0xa 5c64 e608 | | Load 0x3,0x8 5c65 e607 | | Load 0x3,0x7 5c66 e606 | | Load 0x3,0x6 5c67 4801 |H | Short_Literal 0x1 5c68 4800 |H | Short_Literal 0x0 5c69 e5fe | | Load 0x2,-0x2 5c6a e603 | | Load 0x3,0x3 5c6b e602 | | Load 0x3,0x2 5c6c 822e | . | Call 0x1,0x2e 5c6d 7a74 |zt | Jump 0x5ee2 5c6e e002 | | Load 0x0,0x2 5c6f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5c70 0f03 | | Execute_Immediate Equal,0x3 5c71 680c |h | Jump_Zero 0x5c7e 5c72 e609 | | Load 0x3,0x9 5c73 e60b | | Load 0x3,0xb 5c74 e60a | | Load 0x3,0xa 5c75 e608 | | Load 0x3,0x8 5c76 e607 | | Load 0x3,0x7 5c77 e606 | | Load 0x3,0x6 5c78 4801 |H | Short_Literal 0x1 5c79 e5fe | | Load 0x2,-0x2 5c7a e603 | | Load 0x3,0x3 5c7b e602 | | Load 0x3,0x2 5c7c 822f | / | Call 0x1,0x2f 5c7d 7a64 |zd | Jump 0x5ee2 5c7e e002 | | Load 0x0,0x2 5c7f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5c80 0f04 | | Execute_Immediate Equal,0x4 5c81 680e |h | Jump_Zero 0x5c90 5c82 e609 | | Load 0x3,0x9 5c83 e60b | | Load 0x3,0xb 5c84 e60a | | Load 0x3,0xa 5c85 e608 | | Load 0x3,0x8 5c86 e607 | | Load 0x3,0x7 5c87 e606 | | Load 0x3,0x6 5c88 4800 |H | Short_Literal 0x0 5c89 e5fe | | Load 0x2,-0x2 5c8a 4800 |H | Short_Literal 0x0 5c8b 4801 |H | Short_Literal 0x1 5c8c e603 | | Load 0x3,0x3 5c8d e602 | | Load 0x3,0x2 5c8e 823b | ; | Call 0x1,0x3b 5c8f 7a52 |zR | Jump 0x5ee2 5c90 e002 | | Load 0x0,0x2 5c91 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5c92 0f05 | | Execute_Immediate Equal,0x5 5c93 680e |h | Jump_Zero 0x5ca2 5c94 e609 | | Load 0x3,0x9 5c95 e60b | | Load 0x3,0xb 5c96 e60a | | Load 0x3,0xa 5c97 e608 | | Load 0x3,0x8 5c98 e607 | | Load 0x3,0x7 5c99 e606 | | Load 0x3,0x6 5c9a 4800 |H | Short_Literal 0x0 5c9b e5fe | | Load 0x2,-0x2 5c9c 4800 |H | Short_Literal 0x0 5c9d 4800 |H | Short_Literal 0x0 5c9e e603 | | Load 0x3,0x3 5c9f e602 | | Load 0x3,0x2 5ca0 823b | ; | Call 0x1,0x3b 5ca1 7a40 |z@ | Jump 0x5ee2 5ca2 e002 | | Load 0x0,0x2 5ca3 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5ca4 0f06 | | Execute_Immediate Equal,0x6 5ca5 6819 |h | Jump_Zero 0x5cbf 5ca6 4800 |H | Short_Literal 0x0 5ca7 4804 |H | Short_Literal 0x4 5ca8 0092 660e | f | Action Push_String_Extended,0x660e ; "Finding current record index." 5caa e001 | | Load 0x0,0x1 5cab 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5cac e609 | | Load 0x3,0x9 5cad e60b | | Load 0x3,0xb 5cae e60a | | Load 0x3,0xa 5caf e608 | | Load 0x3,0x8 5cb0 e607 | | Load 0x3,0x7 5cb1 e606 | | Load 0x3,0x6 5cb2 4800 |H | Short_Literal 0x0 5cb3 4800 |H | Short_Literal 0x0 5cb4 e5fe | | Load 0x2,-0x2 5cb5 e002 | | Load 0x0,0x2 5cb6 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5cb7 01d5 | | Execute Vector,Field_Reference 5cb8 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5cb9 4801 |H | Short_Literal 0x1 5cba e5fe | | Load 0x2,-0x2 5cbb e603 | | Load 0x3,0x3 5cbc e602 | | Load 0x3,0x2 5cbd 822d | - | Call 0x1,0x2d 5cbe 7a23 |z# | Jump 0x5ee2 5cbf e002 | | Load 0x0,0x2 5cc0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5cc1 0f07 | | Execute_Immediate Equal,0x7 5cc2 6824 |h$ | Jump_Zero 0x5ce7 5cc3 4800 |H | Short_Literal 0x0 5cc4 4804 |H | Short_Literal 0x4 5cc5 0092 660f | f | Action Push_String_Extended,0x660f ; "Finding next record index." 5cc7 e001 | | Load 0x0,0x1 5cc8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5cc9 e5fe | | Load 0x2,-0x2 5cca e002 | | Load 0x0,0x2 5ccb 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5ccc 01d5 | | Execute Vector,Field_Reference 5ccd 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5cce 0a01 | | Execute_Immediate Plus,0x1 5ccf e5fe | | Load 0x2,-0x2 5cd0 e002 | | Load 0x0,0x2 5cd1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5cd2 01d5 | | Execute Vector,Field_Reference 5cd3 380f |8 | Execute Record,Field_Write,Field_Number 0xf 5cd4 e609 | | Load 0x3,0x9 5cd5 e60b | | Load 0x3,0xb 5cd6 e60a | | Load 0x3,0xa 5cd7 e608 | | Load 0x3,0x8 5cd8 e607 | | Load 0x3,0x7 5cd9 e606 | | Load 0x3,0x6 5cda 4800 |H | Short_Literal 0x0 5cdb 4800 |H | Short_Literal 0x0 5cdc e5fe | | Load 0x2,-0x2 5cdd e002 | | Load 0x0,0x2 5cde 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5cdf 01d5 | | Execute Vector,Field_Reference 5ce0 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5ce1 4801 |H | Short_Literal 0x1 5ce2 e5fe | | Load 0x2,-0x2 5ce3 e603 | | Load 0x3,0x3 5ce4 e602 | | Load 0x3,0x2 5ce5 822d | - | Call 0x1,0x2d 5ce6 79fb |y | Jump 0x5ee2 5ce7 e002 | | Load 0x0,0x2 5ce8 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5ce9 0f08 | | Execute_Immediate Equal,0x8 5cea 6824 |h$ | Jump_Zero 0x5d0f 5ceb 4800 |H | Short_Literal 0x0 5cec 4804 |H | Short_Literal 0x4 5ced 0092 6610 | f | Action Push_String_Extended,0x6610 ; "Finding prior item record index." 5cef e001 | | Load 0x0,0x1 5cf0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5cf1 e5fe | | Load 0x2,-0x2 5cf2 e002 | | Load 0x0,0x2 5cf3 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5cf4 01d5 | | Execute Vector,Field_Reference 5cf5 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5cf6 0aff | | Execute_Immediate Plus,-0x1 5cf7 e5fe | | Load 0x2,-0x2 5cf8 e002 | | Load 0x0,0x2 5cf9 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5cfa 01d5 | | Execute Vector,Field_Reference 5cfb 380f |8 | Execute Record,Field_Write,Field_Number 0xf 5cfc e609 | | Load 0x3,0x9 5cfd e60b | | Load 0x3,0xb 5cfe e60a | | Load 0x3,0xa 5cff e608 | | Load 0x3,0x8 5d00 e607 | | Load 0x3,0x7 5d01 e606 | | Load 0x3,0x6 5d02 4800 |H | Short_Literal 0x0 5d03 4800 |H | Short_Literal 0x0 5d04 e5fe | | Load 0x2,-0x2 5d05 e002 | | Load 0x0,0x2 5d06 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5d07 01d5 | | Execute Vector,Field_Reference 5d08 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5d09 4801 |H | Short_Literal 0x1 5d0a e5fe | | Load 0x2,-0x2 5d0b e603 | | Load 0x3,0x3 5d0c e602 | | Load 0x3,0x2 5d0d 822d | - | Call 0x1,0x2d 5d0e 79d3 |y | Jump 0x5ee2 5d0f e002 | | Load 0x0,0x2 5d10 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d11 0f09 | | Execute_Immediate Equal,0x9 5d12 6823 |h# | Jump_Zero 0x5d36 5d13 4800 |H | Short_Literal 0x0 5d14 4804 |H | Short_Literal 0x4 5d15 0092 6611 | f | Action Push_String_Extended,0x6611 ; "Finding previous record item last displayed." 5d17 e001 | | Load 0x0,0x1 5d18 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5d19 e5fe | | Load 0x2,-0x2 5d1a e002 | | Load 0x0,0x2 5d1b 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5d1c 01d5 | | Execute Vector,Field_Reference 5d1d 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 5d1e e5fe | | Load 0x2,-0x2 5d1f e002 | | Load 0x0,0x2 5d20 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5d21 01d5 | | Execute Vector,Field_Reference 5d22 380f |8 | Execute Record,Field_Write,Field_Number 0xf 5d23 e609 | | Load 0x3,0x9 5d24 e60b | | Load 0x3,0xb 5d25 e60a | | Load 0x3,0xa 5d26 e608 | | Load 0x3,0x8 5d27 e607 | | Load 0x3,0x7 5d28 e606 | | Load 0x3,0x6 5d29 4800 |H | Short_Literal 0x0 5d2a 4800 |H | Short_Literal 0x0 5d2b e5fe | | Load 0x2,-0x2 5d2c e002 | | Load 0x0,0x2 5d2d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5d2e 01d5 | | Execute Vector,Field_Reference 5d2f 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5d30 4801 |H | Short_Literal 0x1 5d31 e5fe | | Load 0x2,-0x2 5d32 e603 | | Load 0x3,0x3 5d33 e602 | | Load 0x3,0x2 5d34 822d | - | Call 0x1,0x2d 5d35 79ac |y | Jump 0x5ee2 5d36 e002 | | Load 0x0,0x2 5d37 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d38 0f0a | | Execute_Immediate Equal,0xa 5d39 680a |h | Jump_Zero 0x5d44 5d3a 4801 |H | Short_Literal 0x1 5d3b 4804 |H | Short_Literal 0x4 5d3c 0092 6612 | f | Action Push_String_Extended,0x6612 ; "Logging all screens to log file." 5d3e e001 | | Load 0x0,0x1 5d3f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5d40 4800 |H | Short_Literal 0x0 5d41 e002 | | Load 0x0,0x2 5d42 1a23 | # | Execute Package,Field_Write,Field_Number 0x23 5d43 799e |y | Jump 0x5ee2 5d44 e002 | | Load 0x0,0x2 5d45 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d46 0f0b | | Execute_Immediate Equal,0xb 5d47 680a |h | Jump_Zero 0x5d52 5d48 4801 |H | Short_Literal 0x1 5d49 4804 |H | Short_Literal 0x4 5d4a 0092 6613 | f | Action Push_String_Extended,0x6613 ; "Logging all report records to log file." 5d4c e001 | | Load 0x0,0x1 5d4d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5d4e 4800 |H | Short_Literal 0x0 5d4f e002 | | Load 0x0,0x2 5d50 1a24 | $ | Execute Package,Field_Write,Field_Number 0x24 5d51 7990 |y | Jump 0x5ee2 5d52 e002 | | Load 0x0,0x2 5d53 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d54 0f0c | | Execute_Immediate Equal,0xc 5d55 680e |h | Jump_Zero 0x5d64 5d56 e609 | | Load 0x3,0x9 5d57 e60b | | Load 0x3,0xb 5d58 e60a | | Load 0x3,0xa 5d59 e608 | | Load 0x3,0x8 5d5a e607 | | Load 0x3,0x7 5d5b e606 | | Load 0x3,0x6 5d5c 4800 |H | Short_Literal 0x0 5d5d e5fe | | Load 0x2,-0x2 5d5e 4801 |H | Short_Literal 0x1 5d5f 4800 |H | Short_Literal 0x0 5d60 e603 | | Load 0x3,0x3 5d61 e602 | | Load 0x3,0x2 5d62 823c | < | Call 0x1,0x3c 5d63 797e |y~ | Jump 0x5ee2 5d64 e002 | | Load 0x0,0x2 5d65 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d66 0f0d | | Execute_Immediate Equal,0xd 5d67 680e |h | Jump_Zero 0x5d76 5d68 e609 | | Load 0x3,0x9 5d69 e60b | | Load 0x3,0xb 5d6a e60a | | Load 0x3,0xa 5d6b e608 | | Load 0x3,0x8 5d6c e607 | | Load 0x3,0x7 5d6d e606 | | Load 0x3,0x6 5d6e 4800 |H | Short_Literal 0x0 5d6f e5fe | | Load 0x2,-0x2 5d70 4802 |H | Short_Literal 0x2 5d71 4800 |H | Short_Literal 0x0 5d72 e603 | | Load 0x3,0x3 5d73 e602 | | Load 0x3,0x2 5d74 823c | < | Call 0x1,0x3c 5d75 796c |yl | Jump 0x5ee2 5d76 e002 | | Load 0x0,0x2 5d77 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d78 0f0e | | Execute_Immediate Equal,0xe 5d79 680e |h | Jump_Zero 0x5d88 5d7a e609 | | Load 0x3,0x9 5d7b e60b | | Load 0x3,0xb 5d7c e60a | | Load 0x3,0xa 5d7d e608 | | Load 0x3,0x8 5d7e e607 | | Load 0x3,0x7 5d7f e606 | | Load 0x3,0x6 5d80 4800 |H | Short_Literal 0x0 5d81 e5fe | | Load 0x2,-0x2 5d82 4803 |H | Short_Literal 0x3 5d83 4800 |H | Short_Literal 0x0 5d84 e603 | | Load 0x3,0x3 5d85 e602 | | Load 0x3,0x2 5d86 823c | < | Call 0x1,0x3c 5d87 795a |yZ | Jump 0x5ee2 5d88 e002 | | Load 0x0,0x2 5d89 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d8a 0f0f | | Execute_Immediate Equal,0xf 5d8b 680e |h | Jump_Zero 0x5d9a 5d8c e609 | | Load 0x3,0x9 5d8d e60b | | Load 0x3,0xb 5d8e e60a | | Load 0x3,0xa 5d8f e608 | | Load 0x3,0x8 5d90 e607 | | Load 0x3,0x7 5d91 e606 | | Load 0x3,0x6 5d92 4800 |H | Short_Literal 0x0 5d93 e5fe | | Load 0x2,-0x2 5d94 4804 |H | Short_Literal 0x4 5d95 4800 |H | Short_Literal 0x0 5d96 e603 | | Load 0x3,0x3 5d97 e602 | | Load 0x3,0x2 5d98 823c | < | Call 0x1,0x3c 5d99 7948 |yH | Jump 0x5ee2 5d9a e002 | | Load 0x0,0x2 5d9b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5d9c 0f10 | | Execute_Immediate Equal,0x10 5d9d 682d |h- | Jump_Zero 0x5dcb 5d9e 4800 |H | Short_Literal 0x0 5d9f 4804 |H | Short_Literal 0x4 5da0 0092 6614 | f | Action Push_String_Extended,0x6614 ; "Showing last record added to file." 5da2 e001 | | Load 0x0,0x1 5da3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5da4 e5fe | | Load 0x2,-0x2 5da5 e002 | | Load 0x0,0x2 5da6 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5da7 01d7 | | Execute Vector,Field_Read 5da8 00d8 | | Load_Top At_Offset_0 5da9 4801 |H | Short_Literal 0x1 5daa e5fe | | Load 0x2,-0x2 5dab e002 | | Load 0x0,0x2 5dac 189d | | Execute Package,Field_Execute,Field_Number 0x9d 5dad 00d2 | | Pop_Control Pop_Count_2 5dae e5fe | | Load 0x2,-0x2 5daf e002 | | Load 0x0,0x2 5db0 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5db1 01d5 | | Execute Vector,Field_Reference 5db2 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 5db3 e5fe | | Load 0x2,-0x2 5db4 e002 | | Load 0x0,0x2 5db5 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5db6 01d5 | | Execute Vector,Field_Reference 5db7 380f |8 | Execute Record,Field_Write,Field_Number 0xf 5db8 e609 | | Load 0x3,0x9 5db9 e60b | | Load 0x3,0xb 5dba e60a | | Load 0x3,0xa 5dbb e608 | | Load 0x3,0x8 5dbc e607 | | Load 0x3,0x7 5dbd e606 | | Load 0x3,0x6 5dbe 4800 |H | Short_Literal 0x0 5dbf 4800 |H | Short_Literal 0x0 5dc0 e5fe | | Load 0x2,-0x2 5dc1 e002 | | Load 0x0,0x2 5dc2 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5dc3 01d5 | | Execute Vector,Field_Reference 5dc4 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 5dc5 4801 |H | Short_Literal 0x1 5dc6 e5fe | | Load 0x2,-0x2 5dc7 e603 | | Load 0x3,0x3 5dc8 e602 | | Load 0x3,0x2 5dc9 822d | - | Call 0x1,0x2d 5dca 7917 |y | Jump 0x5ee2 5dcb e002 | | Load 0x0,0x2 5dcc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5dcd 0f11 | | Execute_Immediate Equal,0x11 5dce 680f |h | Jump_Zero 0x5dde 5dcf 4800 |H | Short_Literal 0x0 5dd0 4804 |H | Short_Literal 0x4 5dd1 0092 6615 | f | Action Push_String_Extended,0x6615 ; "Printing current report to log file." 5dd3 e001 | | Load 0x0,0x1 5dd4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5dd5 e002 | | Load 0x0,0x2 5dd6 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 5dd7 4801 |H | Short_Literal 0x1 5dd8 4801 |H | Short_Literal 0x1 5dd9 e5fe | | Load 0x2,-0x2 5dda e603 | | Load 0x3,0x3 5ddb e602 | | Load 0x3,0x2 5ddc 8247 | G | Call 0x1,0x47 5ddd 7904 |y | Jump 0x5ee2 5dde e002 | | Load 0x0,0x2 5ddf 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5de0 0f12 | | Execute_Immediate Equal,0x12 5de1 6811 |h | Jump_Zero 0x5df3 5de2 4800 |H | Short_Literal 0x0 5de3 4803 |H | Short_Literal 0x3 5de4 0092 6616 | f | Action Push_String_Extended,0x6616 ; "Index display of all or selected database items." 5de6 e001 | | Load 0x0,0x1 5de7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5de8 e609 | | Load 0x3,0x9 5de9 e60b | | Load 0x3,0xb 5dea e60a | | Load 0x3,0xa 5deb e608 | | Load 0x3,0x8 5dec e607 | | Load 0x3,0x7 5ded e606 | | Load 0x3,0x6 5dee e5fe | | Load 0x2,-0x2 5def e603 | | Load 0x3,0x3 5df0 e602 | | Load 0x3,0x2 5df1 823f | ? | Call 0x1,0x3f 5df2 78ef |x | Jump 0x5ee2 5df3 e002 | | Load 0x0,0x2 5df4 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5df5 0f13 | | Execute_Immediate Equal,0x13 5df6 6805 |h | Jump_Zero 0x5dfc 5df7 e5fe | | Load 0x2,-0x2 5df8 e603 | | Load 0x3,0x3 5df9 e602 | | Load 0x3,0x2 5dfa 823d | = | Call 0x1,0x3d 5dfb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5dfc e002 | | Load 0x0,0x2 5dfd 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5dfe 0f14 | | Execute_Immediate Equal,0x14 5dff e5fe | | Load 0x2,-0x2 5e00 0f01 | | Execute_Immediate Equal,0x1 5e01 0279 | y | Execute Discrete,And 5e02 683f |h? | Jump_Zero 0x5e42 5e03 4800 |H | Short_Literal 0x0 5e04 4802 |H | Short_Literal 0x2 5e05 0092 6617 | f | Action Push_String_Extended,0x6617 ; "Send a selected Dispatch Report to Development." 5e07 e001 | | Load 0x0,0x1 5e08 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5e09 0092 6618 | f | Action Push_String_Extended,0x6618 ; "to_dev_sw" 5e0b 0092 6618 | f | Action Push_String_Extended,0x6618 ; "to_dev_sw" 5e0d 4822 |H" | Short_Literal 0x22 5e0e 0092 6619 | f | Action Push_String_Extended,0x6619 ; "Send this request to development? y=yes n=no" 5e10 0092 661a | f | Action Push_String_Extended,0x661a ; "Send a Support Request to Development:" 5e12 4801 |H | Short_Literal 0x1 5e13 e5fe | | Load 0x2,-0x2 5e14 e603 | | Load 0x3,0x3 5e15 e602 | | Load 0x3,0x2 5e16 8240 | @ | Call 0x1,0x40 5e17 e5fe | | Load 0x2,-0x2 5e18 e002 | | Load 0x0,0x2 5e19 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5e1a 01d5 | | Execute Vector,Field_Reference 5e1b 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 5e1c 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 5e1e 01de | | Execute Vector,Not_Equal 5e1f 6801 |h | Jump_Zero 0x5e21 5e20 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5e21 4808 |H | Short_Literal 0x8 5e22 4815 |H | Short_Literal 0x15 5e23 4813 |H | Short_Literal 0x13 5e24 4812 |H | Short_Literal 0x12 5e25 4811 |H | Short_Literal 0x11 5e26 480a |H | Short_Literal 0xa 5e27 480b |H | Short_Literal 0xb 5e28 480c |H | Short_Literal 0xc 5e29 481b |H | Short_Literal 0x1b 5e2a 481f |H | Short_Literal 0x1f 5e2b 481e |H | Short_Literal 0x1e 5e2c 4820 |H | Short_Literal 0x20 5e2d 4806 |H | Short_Literal 0x6 5e2e 480d |H | Short_Literal 0xd 5e2f 480e |H | Short_Literal 0xe 5e30 4810 |H | Short_Literal 0x10 5e31 4805 |H | Short_Literal 0x5 5e32 4804 |H | Short_Literal 0x4 5e33 4803 |H | Short_Literal 0x3 5e34 481d |H | Short_Literal 0x1d 5e35 4802 |H | Short_Literal 0x2 5e36 4801 |H | Short_Literal 0x1 5e37 e5fe | | Load 0x2,-0x2 5e38 4801 |H | Short_Literal 0x1 5e39 e002 | | Load 0x0,0x2 5e3a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 5e3b e002 | | Load 0x0,0x2 5e3c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 5e3d 01cf | | Execute Vector,Slice_Read 5e3e e603 | | Load 0x3,0x3 5e3f e602 | | Load 0x3,0x2 5e40 8224 | $ | Call 0x1,0x24 5e41 78a0 |x | Jump 0x5ee2 5e42 e002 | | Load 0x0,0x2 5e43 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5e44 0f15 | | Execute_Immediate Equal,0x15 5e45 6813 |h | Jump_Zero 0x5e59 5e46 4800 |H | Short_Literal 0x0 5e47 4803 |H | Short_Literal 0x3 5e48 0092 661b | f | Action Push_String_Extended,0x661b ; "Showing or Reporting all or selected database items." 5e4a e001 | | Load 0x0,0x1 5e4b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5e4c e609 | | Load 0x3,0x9 5e4d e60b | | Load 0x3,0xb 5e4e e60a | | Load 0x3,0xa 5e4f e608 | | Load 0x3,0x8 5e50 e607 | | Load 0x3,0x7 5e51 e606 | | Load 0x3,0x6 5e52 4800 |H | Short_Literal 0x0 5e53 4800 |H | Short_Literal 0x0 5e54 e5fe | | Load 0x2,-0x2 5e55 e603 | | Load 0x3,0x3 5e56 e602 | | Load 0x3,0x2 5e57 823e | > | Call 0x1,0x3e 5e58 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5e59 e002 | | Load 0x0,0x2 5e5a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5e5b 0f16 | | Execute_Immediate Equal,0x16 5e5c e5fe | | Load 0x2,-0x2 5e5d 0f01 | | Execute_Immediate Equal,0x1 5e5e 0279 | y | Execute Discrete,And 5e5f 680c |h | Jump_Zero 0x5e6c 5e60 4800 |H | Short_Literal 0x0 5e61 4803 |H | Short_Literal 0x3 5e62 0092 661c | f | Action Push_String_Extended,0x661c ; "Loading Customer Support Request Tape." 5e64 e001 | | Load 0x0,0x1 5e65 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5e66 e5fe | | Load 0x2,-0x2 5e67 4801 |H | Short_Literal 0x1 5e68 e603 | | Load 0x3,0x3 5e69 e602 | | Load 0x3,0x2 5e6a 8261 | a | Call 0x1,0x61 5e6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5e6c e002 | | Load 0x0,0x2 5e6d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5e6e 0f17 | | Execute_Immediate Equal,0x17 5e6f 6830 |h0 | Jump_Zero 0x5ea0 5e70 4800 |H | Short_Literal 0x0 5e71 4803 |H | Short_Literal 0x3 5e72 0092 661d | f | Action Push_String_Extended,0x661d ; "Generate a Dispatch report from specific System ID: [000000]: " 5e74 e001 | | Load 0x0,0x1 5e75 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5e76 e60d | | Load 0x3,0xd 5e77 e60c | | Load 0x3,0xc 5e78 4801 |H | Short_Literal 0x1 5e79 e001 | | Load 0x0,0x1 5e7a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 5e7b 00d1 | | Pop_Control Pop_Count_1 5e7c c60d | | Store 0x3,0xd 5e7d e60d | | Load 0x3,0xd 5e7e 0aff | | Execute_Immediate Plus,-0x1 5e7f 0248 | H | Execute Discrete,Check_In_Integer 5e80 a60d | | Store_Unchecked 0x3,0xd 5e81 e60d | | Load 0x3,0xd 5e82 7007 |p | Jump_Nonzero 0x5e8a 5e83 4801 |H | Short_Literal 0x1 5e84 4804 |H | Short_Literal 0x4 5e85 0092 661e | f | Action Push_String_Extended,0x661e ; "Please use a specific 6 digit System ID, zero is not valid." 5e87 e001 | | Load 0x0,0x1 5e88 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5e89 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5e8a e60d | | Load 0x3,0xd 5e8b 0e06 | | Execute_Immediate Not_Equal,0x6 5e8c 6807 |h | Jump_Zero 0x5e94 5e8d 4801 |H | Short_Literal 0x1 5e8e 4804 |H | Short_Literal 0x4 5e8f 0092 661f | f | Action Push_String_Extended,0x661f ; "Please use exactly 6 digits for a System ID to match." 5e91 e001 | | Load 0x0,0x1 5e92 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5e93 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5e94 00e1 | | Load_Encached Boolean_Cache 5e95 4801 |H | Short_Literal 0x1 5e96 4800 |H | Short_Literal 0x0 5e97 4801 |H | Short_Literal 0x1 5e98 4806 |H | Short_Literal 0x6 5e99 e60c | | Load 0x3,0xc 5e9a 01cf | | Execute Vector,Slice_Read 5e9b 4801 |H | Short_Literal 0x1 5e9c 4804 |H | Short_Literal 0x4 5e9d 825d | ] | Call 0x1,0x5d 5e9e c610 | | Store 0x3,0x10 5e9f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ea0 e002 | | Load 0x0,0x2 5ea1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5ea2 0f18 | | Execute_Immediate Equal,0x18 5ea3 e5fe | | Load 0x2,-0x2 5ea4 0f01 | | Execute_Immediate Equal,0x1 5ea5 0279 | y | Execute Discrete,And 5ea6 6815 |h | Jump_Zero 0x5ebc 5ea7 4800 |H | Short_Literal 0x0 5ea8 4803 |H | Short_Literal 0x3 5ea9 0092 6620 | f | Action Push_String_Extended,0x6620 ; "Close an existing Support Request." 5eab e001 | | Load 0x0,0x1 5eac 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5ead 0092 6621 | f!| Action Push_String_Extended,0x6621 ; "closed" 5eaf 0092 6621 | f!| Action Push_String_Extended,0x6621 ; "closed" 5eb1 4809 |H | Short_Literal 0x9 5eb2 0092 6622 | f"| Action Push_String_Extended,0x6622 ; "Close this request? y=yes n=no" 5eb4 0092 6623 | f#| Action Push_String_Extended,0x6623 ; "Select a Support Request to close:" 5eb6 4801 |H | Short_Literal 0x1 5eb7 e5fe | | Load 0x2,-0x2 5eb8 e603 | | Load 0x3,0x3 5eb9 e602 | | Load 0x3,0x2 5eba 8240 | @ | Call 0x1,0x40 5ebb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ebc e002 | | Load 0x0,0x2 5ebd 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5ebe 0f19 | | Execute_Immediate Equal,0x19 5ebf e5fe | | Load 0x2,-0x2 5ec0 0f01 | | Execute_Immediate Equal,0x1 5ec1 0279 | y | Execute Discrete,And 5ec2 680e |h | Jump_Zero 0x5ed1 5ec3 4800 |H | Short_Literal 0x0 5ec4 4804 |H | Short_Literal 0x4 5ec5 0092 6624 | f$| Action Push_String_Extended,0x6624 ; "Delete an existing request." 5ec7 e001 | | Load 0x0,0x1 5ec8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5ec9 4800 |H | Short_Literal 0x0 5eca 4801 |H | Short_Literal 0x1 5ecb 4800 |H | Short_Literal 0x0 5ecc e5fe | | Load 0x2,-0x2 5ecd e603 | | Load 0x3,0x3 5ece e602 | | Load 0x3,0x2 5ecf 823a | : | Call 0x1,0x3a 5ed0 7811 |x | Jump 0x5ee2 5ed1 e002 | | Load 0x0,0x2 5ed2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 5ed3 0f1e | | Execute_Immediate Equal,0x1e 5ed4 6809 |h | Jump_Zero 0x5ede 5ed5 4800 |H | Short_Literal 0x0 5ed6 4804 |H | Short_Literal 0x4 5ed7 0092 6625 | f%| Action Push_String_Extended,0x6625 ; "Exiting Sub Menu." 5ed9 e001 | | Load 0x0,0x1 5eda 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5edb 00ce | | Action Pop_Auxiliary 5edc 00cc | | Action Pop_Block 5edd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ede e5fd | | Load 0x2,-0x3 5edf e002 | | Load 0x0,0x2 5ee0 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8 5ee1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5ee2 e001 | | Load 0x0,0x1 5ee3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5ee4 00c9 | | Action Pop_Auxiliary_Loop 5ee5 7d0e |} | Jump 0x5bf4 5ee6 TRAP_5be8: 5ee6 0007 | | Action Break_Optional 5ee7 4801 |H | Short_Literal 0x1 5ee8 4804 |H | Short_Literal 0x4 5ee9 0092 6626 | f&| Action Push_String_Extended,0x6626 ; "Exception occurred in Ap_process_sub_menu." 5eeb e001 | | Load 0x0,0x1 5eec 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5eed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5eee 0000 0000 | | .XXX[0x2] 5ef0 ; -------------------------------------------------------------------------------------- 5ef0 ; SUBPROGRAM 5ef0 ; -------------------------------------------------------------------------------------- 5ef0 5ef3 |^ | .CONST 0x5ef3 ; Address of begin 5ef1 5f0b |_ | .CONST 0x5f0b ; Address of exception handler 5ef2 0001 | | .CONST 0x0001 ; Number of locals 5ef3 BODY_5ef0: 5ef3 INIT_5ef0: 5ef3 4800 |H | Short_Literal 0x0 5ef4 a5f3 | | Store_Unchecked 0x2,-0xd 5ef5 00e4 | | Load_Encached Positive_Cache 5ef6 e001 | | Load 0x0,0x1 5ef7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 5ef8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 5ef9 4801 |H | Short_Literal 0x1 5efa e603 | | Load 0x3,0x3 5efb e602 | | Load 0x3,0x2 5efc 01cf | | Execute Vector,Slice_Read 5efd e001 | | Load 0x0,0x1 5efe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 5eff 1816 | | Execute Package,Field_Execute,Field_Number 0x16 5f00 c604 | | Store 0x3,0x4 5f01 c605 | | Store 0x3,0x5 5f02 e604 | | Load 0x3,0x4 5f03 e5fa | | Load 0x2,-0x6 5f04 e002 | | Load 0x0,0x2 5f05 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5f06 01d5 | | Execute Vector,Field_Reference 5f07 380f |8 | Execute Record,Field_Write,Field_Number 0xf 5f08 4800 |H | Short_Literal 0x0 5f09 a5f4 | | Store_Unchecked 0x2,-0xc 5f0a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5f0b TRAP_5ef0: 5f0b 0007 | | Action Break_Optional 5f0c 4800 |H | Short_Literal 0x0 5f0d 4803 |H | Short_Literal 0x3 5f0e 0092 6627 | f'| Action Push_String_Extended,0x6627 ; "Error, a detail index link in a record was invalid," 5f10 e001 | | Load 0x0,0x1 5f11 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5f12 4801 |H | Short_Literal 0x1 5f13 4804 |H | Short_Literal 0x4 5f14 0092 6628 | f(| Action Push_String_Extended,0x6628 ; "Recovering from index error, searching to find detail & fix it." 5f16 e001 | | Load 0x0,0x1 5f17 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5f18 e001 | | Load 0x0,0x1 5f19 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 5f1a 4801 |H | Short_Literal 0x1 5f1b a5f4 | | Store_Unchecked 0x2,-0xc 5f1c 4801 |H | Short_Literal 0x1 5f1d a5f3 | | Store_Unchecked 0x2,-0xd 5f1e e603 | | Load 0x3,0x3 5f1f e602 | | Load 0x3,0x2 5f20 e002 | | Load 0x0,0x2 5f21 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 5f22 e5ff | | Load 0x2,-0x1 5f23 0a01 | | Execute_Immediate Plus,0x1 5f24 0248 | H | Execute Discrete,Check_In_Integer 5f25 8255 | U | Call 0x1,0x55 5f26 00d1 | | Pop_Control Pop_Count_1 5f27 c603 | | Store 0x3,0x3 5f28 e5fa | | Load 0x2,-0x6 5f29 e002 | | Load 0x0,0x2 5f2a 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5f2b 01d7 | | Execute Vector,Field_Read 5f2c e5f4 | | Load 0x2,-0xc 5f2d e803 | | Load 0x4,0x3 5f2e 4800 |H | Short_Literal 0x0 5f2f e603 | | Load 0x3,0x3 5f30 4801 |H | Short_Literal 0x1 5f31 e603 | | Load 0x3,0x3 5f32 e602 | | Load 0x3,0x2 5f33 01cf | | Execute Vector,Slice_Read 5f34 e5f5 | | Load 0x2,-0xb 5f35 4801 |H | Short_Literal 0x1 5f36 e5fb | | Load 0x2,-0x5 5f37 e002 | | Load 0x0,0x2 5f38 1b7f | | Execute Package,Field_Read,Field_Number 0x7f 5f39 e5fa | | Load 0x2,-0x6 5f3a 8227 | ' | Call 0x1,0x27 5f3b 00d1 | | Pop_Control Pop_Count_1 5f3c c5f4 | | Store 0x2,-0xc 5f3d 00d1 | | Pop_Control Pop_Count_1 5f3e e5fa | | Load 0x2,-0x6 5f3f e002 | | Load 0x0,0x2 5f40 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5f41 01d5 | | Execute Vector,Field_Reference 5f42 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 5f43 e5fa | | Load 0x2,-0x6 5f44 e002 | | Load 0x0,0x2 5f45 1b96 | | Execute Package,Field_Read,Field_Number 0x96 5f46 01d5 | | Execute Vector,Field_Reference 5f47 380f |8 | Execute Record,Field_Write,Field_Number 0xf 5f48 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5f49 0000 0000 | | .BLANK 0000[0x7] 5f50 ; -------------------------------------------------------------------------------------- 5f50 ; SUBPROGRAM 5f50 ; -------------------------------------------------------------------------------------- 5f50 5f53 |_S | .CONST 0x5f53 ; Address of begin 5f51 5f7e |_~ | .CONST 0x5f7e ; Address of exception handler 5f52 0001 | | .CONST 0x0001 ; Number of locals 5f53 BODY_5f50: 5f53 INIT_5f50: 5f53 e40a | | Load 0x2,0xa 5f54 00ea | | Load_Encached Null_String_Cache 5f55 4801 |H | Short_Literal 0x1 5f56 e002 | | Load 0x0,0x2 5f57 1b0e | | Execute Package,Field_Read,Field_Number 0xe 5f58 e002 | | Load 0x0,0x2 5f59 1b0d | | Execute Package,Field_Read,Field_Number 0xd 5f5a 01cf | | Execute Vector,Slice_Read 5f5b 0092 65b3 | e | Action Push_String_Extended,0x65b3 ; "detail_master" 5f5d 01cc | | Execute Vector,Catenate 5f5e 4800 |H | Short_Literal 0x0 5f5f e005 | | Load 0x0,0x5 5f60 1815 | | Execute Package,Field_Execute,Field_Number 0x15 5f61 c40a | | Store 0x2,0xa 5f62 00cf | | Action Mark_Auxiliary 5f63 0007 | | Action Break_Optional 5f64 e40a | | Load 0x2,0xa 5f65 e005 | | Load 0x0,0x5 5f66 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 5f67 7010 |p | Jump_Nonzero 0x5f78 5f68 00e3 | | Load_Encached Natural_Cache 5f69 e40b | | Load 0x2,0xb 5f6a e40a | | Load 0x2,0xa 5f6b e005 | | Load 0x0,0x5 5f6c 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 5f6d 00d1 | | Pop_Control Pop_Count_1 5f6e c40c | | Store 0x2,0xc 5f6f 4801 |H | Short_Literal 0x1 5f70 e40c | | Load 0x2,0xc 5f71 e40b | | Load 0x2,0xb 5f72 01cf | | Execute Vector,Slice_Read 5f73 e405 | | Load 0x2,0x5 5f74 e005 | | Load 0x0,0x5 5f75 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 5f76 00c9 | | Action Pop_Auxiliary_Loop 5f77 7fec | | Jump 0x5f64 5f78 00ce | | Action Pop_Auxiliary 5f79 e40a | | Load 0x2,0xa 5f7a e005 | | Load 0x0,0x5 5f7b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 5f7c c40a | | Store 0x2,0xa 5f7d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5f7e TRAP_5f50: 5f7e 0007 | | Action Break_Optional 5f7f 0092 6629 | f)| Action Push_String_Extended,0x6629 ; "Error - Had error copying blank detail form file, continuing." 5f81 e001 | | Load 0x0,0x1 5f82 181d | | Execute Package,Field_Execute,Field_Number 0x1d 5f83 e001 | | Load 0x0,0x1 5f84 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5f85 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5f86 0000 0000 | | .XXX[0x2] 5f88 ; -------------------------------------------------------------------------------------- 5f88 ; SUBPROGRAM 5f88 ; -------------------------------------------------------------------------------------- 5f88 5f8b |_ | .CONST 0x5f8b ; Address of begin 5f89 5fcc |_ | .CONST 0x5fcc ; Address of exception handler 5f8a 0001 | | .CONST 0x0001 ; Number of locals 5f8b BODY_5f88: 5f8b INIT_5f88: 5f8b 00cf | | Action Mark_Auxiliary 5f8c 0007 | | Action Break_Optional 5f8d 4800 |H | Short_Literal 0x0 5f8e a40c | | Store_Unchecked 0x2,0xc 5f8f 00e1 | | Load_Encached Boolean_Cache 5f90 e40c | | Load 0x2,0xc 5f91 e40b | | Load 0x2,0xb 5f92 4801 |H | Short_Literal 0x1 5f93 e001 | | Load 0x0,0x1 5f94 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 5f95 00d1 | | Pop_Control Pop_Count_1 5f96 c40c | | Store 0x2,0xc 5f97 c40f | | Store 0x2,0xf 5f98 e40c | | Load 0x2,0xc 5f99 0aff | | Execute_Immediate Plus,-0x1 5f9a 0248 | H | Execute Discrete,Check_In_Integer 5f9b a40c | | Store_Unchecked 0x2,0xc 5f9c e40c | | Load 0x2,0xc 5f9d 0f01 | | Execute_Immediate Equal,0x1 5f9e 4801 |H | Short_Literal 0x1 5f9f 4801 |H | Short_Literal 0x1 5fa0 e40b | | Load 0x2,0xb 5fa1 01cf | | Execute Vector,Slice_Read 5fa2 0092 648e | d | Action Push_String_Extended,0x648e ; "/" 5fa4 01df | | Execute Vector,Equal 5fa5 0279 | y | Execute Discrete,And 5fa6 6801 |h | Jump_Zero 0x5fa8 5fa7 780d |x | Jump 0x5fb5 5fa8 e40f | | Load 0x2,0xf 5fa9 0f01 | | Execute_Immediate Equal,0x1 5faa 6801 |h | Jump_Zero 0x5fac 5fab 7809 |x | Jump 0x5fb5 5fac 4801 |H | Short_Literal 0x1 5fad e40c | | Load 0x2,0xc 5fae e40b | | Load 0x2,0xb 5faf 01cf | | Execute Vector,Slice_Read 5fb0 e405 | | Load 0x2,0x5 5fb1 e005 | | Load 0x0,0x5 5fb2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 5fb3 00c9 | | Action Pop_Auxiliary_Loop 5fb4 7fd8 | | Jump 0x5f8d 5fb5 00ce | | Action Pop_Auxiliary 5fb6 e405 | | Load 0x2,0x5 5fb7 e005 | | Load 0x0,0x5 5fb8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 5fb9 c405 | | Store 0x2,0x5 5fba e002 | | Load 0x0,0x2 5fbb 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 5fbc 700e |p | Jump_Nonzero 0x5fcb 5fbd 4800 |H | Short_Literal 0x0 5fbe 4801 |H | Short_Literal 0x1 5fbf 0092 662a | f*| Action Push_String_Extended,0x662a ; " [Edit completed for Detail Text for record: " 5fc1 4801 |H | Short_Literal 0x1 5fc2 e403 | | Load 0x2,0x3 5fc3 e402 | | Load 0x2,0x2 5fc4 01cf | | Execute Vector,Slice_Read 5fc5 01cc | | Execute Vector,Catenate 5fc6 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 5fc8 01cc | | Execute Vector,Catenate 5fc9 e001 | | Load 0x0,0x1 5fca 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5fcb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5fcc TRAP_5f88: 5fcc 0007 | | Action Break_Optional 5fcd e001 | | Load 0x0,0x1 5fce 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 5fcf 4800 |H | Short_Literal 0x0 5fd0 4804 |H | Short_Literal 0x4 5fd1 0092 662b | f+| Action Push_String_Extended,0x662b ; "Error, Problem in inline editing of attached detail text for this report." 5fd3 e001 | | Load 0x0,0x1 5fd4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5fd5 4801 |H | Short_Literal 0x1 5fd6 4804 |H | Short_Literal 0x4 5fd7 0092 662c | f,| Action Push_String_Extended,0x662c ; "Error attempting to write detail file: " 5fd9 4801 |H | Short_Literal 0x1 5fda e403 | | Load 0x2,0x3 5fdb e402 | | Load 0x2,0x2 5fdc 01cf | | Execute Vector,Slice_Read 5fdd 01cc | | Execute Vector,Catenate 5fde e001 | | Load 0x0,0x1 5fdf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 5fe0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 5fe1 0000 0000 | | .BLANK 0000[0x7] 5fe8 ; -------------------------------------------------------------------------------------- 5fe8 ; SUBPROGRAM 5fe8 ; -------------------------------------------------------------------------------------- 5fe8 5fed |_ | .CONST 0x5fed ; Address of begin 5fe9 603d |`= | .CONST 0x603d ; Address of exception handler 5fea 0002 | | .CONST 0x0002 ; Number of locals 5feb INIT_5fe8: 5feb 029f 63c3 | c | Declare_Subprogram INIT_63c0,For_Call 5fed BODY_5fe8: 5fed e40a | | Load 0x2,0xa 5fee 00ea | | Load_Encached Null_String_Cache 5fef 4801 |H | Short_Literal 0x1 5ff0 e002 | | Load 0x0,0x2 5ff1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 5ff2 e002 | | Load 0x0,0x2 5ff3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 5ff4 01cf | | Execute Vector,Slice_Read 5ff5 e404 | | Load 0x2,0x4 5ff6 01cc | | Execute Vector,Catenate 5ff7 4801 |H | Short_Literal 0x1 5ff8 e409 | | Load 0x2,0x9 5ff9 e408 | | Load 0x2,0x8 5ffa 01cf | | Execute Vector,Slice_Read 5ffb 01cc | | Execute Vector,Catenate 5ffc 4800 |H | Short_Literal 0x0 5ffd e005 | | Load 0x0,0x5 5ffe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 5fff c40a | | Store 0x2,0xa 6000 e405 | | Load 0x2,0x5 6001 00ea | | Load_Encached Null_String_Cache 6002 4801 |H | Short_Literal 0x1 6003 e403 | | Load 0x2,0x3 6004 e402 | | Load 0x2,0x2 6005 01cf | | Execute Vector,Slice_Read 6006 4801 |H | Short_Literal 0x1 6007 e005 | | Load 0x0,0x5 6008 1814 | | Execute Package,Field_Execute,Field_Number 0x14 6009 c405 | | Store 0x2,0x5 600a 00cf | | Action Mark_Auxiliary 600b 0007 | | Action Break_Optional 600c e40a | | Load 0x2,0xa 600d e005 | | Load 0x0,0x5 600e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 600f 7010 |p | Jump_Nonzero 0x6020 6010 00e3 | | Load_Encached Natural_Cache 6011 e40b | | Load 0x2,0xb 6012 e40a | | Load 0x2,0xa 6013 e005 | | Load 0x0,0x5 6014 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 6015 00d1 | | Pop_Control Pop_Count_1 6016 c40c | | Store 0x2,0xc 6017 4801 |H | Short_Literal 0x1 6018 e40c | | Load 0x2,0xc 6019 e40b | | Load 0x2,0xb 601a 01cf | | Execute Vector,Slice_Read 601b e405 | | Load 0x2,0x5 601c e005 | | Load 0x0,0x5 601d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 601e 00c9 | | Action Pop_Auxiliary_Loop 601f 7fec | | Jump 0x600c 6020 00ce | | Action Pop_Auxiliary 6021 8802 | | Call 0x4,0x2 6022 e405 | | Load 0x2,0x5 6023 e005 | | Load 0x0,0x5 6024 181b | | Execute Package,Field_Execute,Field_Number 0x1b 6025 c405 | | Store 0x2,0x5 6026 e002 | | Load 0x0,0x2 6027 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 6028 7010 |p | Jump_Nonzero 0x6039 6029 4800 |H | Short_Literal 0x0 602a 4801 |H | Short_Literal 0x1 602b 0092 662d | f-| Action Push_String_Extended,0x662d ; " [Detail text edited ok for record: " 602d e404 | | Load 0x2,0x4 602e 01cc | | Execute Vector,Catenate 602f 4801 |H | Short_Literal 0x1 6030 e409 | | Load 0x2,0x9 6031 e408 | | Load 0x2,0x8 6032 01cf | | Execute Vector,Slice_Read 6033 01cc | | Execute Vector,Catenate 6034 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 6036 01cc | | Execute Vector,Catenate 6037 e001 | | Load 0x0,0x1 6038 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 6039 00cc | | Action Pop_Block 603a 00cc | | Action Pop_Block 603b 00a7 172e | .| Action Jump_Extended,0x172e 603d TRAP_5fe8: 603d 0007 | | Action Break_Optional 603e 4800 |H | Short_Literal 0x0 603f 4801 |H | Short_Literal 0x1 6040 0092 662e | f.| Action Push_String_Extended,0x662e ; " [Error in completing edit for Detail Text for: " 6042 e404 | | Load 0x2,0x4 6043 01cc | | Execute Vector,Catenate 6044 4801 |H | Short_Literal 0x1 6045 e409 | | Load 0x2,0x9 6046 e408 | | Load 0x2,0x8 6047 01cf | | Execute Vector,Slice_Read 6048 01cc | | Execute Vector,Catenate 6049 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 604b 01cc | | Execute Vector,Catenate 604c e001 | | Load 0x0,0x1 604d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 604e e40a | | Load 0x2,0xa 604f e005 | | Load 0x0,0x5 6050 181b | | Execute Package,Field_Execute,Field_Number 0x1b 6051 c40a | | Store 0x2,0xa 6052 e405 | | Load 0x2,0x5 6053 e005 | | Load 0x0,0x5 6054 181b | | Execute Package,Field_Execute,Field_Number 0x1b 6055 c405 | | Store 0x2,0x5 6056 00cc | | Action Pop_Block 6057 00cc | | Action Pop_Block 6058 00a7 172e | .| Action Jump_Extended,0x172e 605a 0000 0000 | | .BLANK 0000[0x6] 6060 ; -------------------------------------------------------------------------------------- 6060 ; SUBPROGRAM 6060 ; -------------------------------------------------------------------------------------- 6060 6063 |`c | .CONST 0x6063 ; Address of begin 6061 6075 |`u | .CONST 0x6075 ; Address of exception handler 6062 0001 | | .CONST 0x0001 ; Number of locals 6063 BODY_6060: 6063 INIT_6060: 6063 e002 | | Load 0x0,0x2 6064 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 6065 e004 | | Load 0x0,0x4 6066 1816 | | Execute Package,Field_Execute,Field_Number 0x16 6067 e002 | | Load 0x0,0x2 6068 1a7e | ~ | Execute Package,Field_Write,Field_Number 0x7e 6069 4801 |H | Short_Literal 0x1 606a e002 | | Load 0x0,0x2 606b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 606c e002 | | Load 0x0,0x2 606d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 606e 01cf | | Execute Vector,Slice_Read 606f 0092 659b | e | Action Push_String_Extended,0x659b ; "sims_log" 6071 01cc | | Execute Vector,Catenate 6072 4800 |H | Short_Literal 0x0 6073 822b | + | Call 0x1,0x2b 6074 4501 |E | Exit_Suprogram New_Top_Offset 0x1 6075 TRAP_6060: 6075 0007 | | Action Break_Optional 6076 4800 |H | Short_Literal 0x0 6077 4803 |H | Short_Literal 0x3 6078 0092 662f | f/| Action Push_String_Extended,0x662f ; "Error: Couldn't access log file, Diagnosis:" 607a e001 | | Load 0x0,0x1 607b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 607c 4800 |H | Short_Literal 0x0 607d 4803 |H | Short_Literal 0x3 607e 0092 6630 | f0| Action Push_String_Extended,0x6630 ; " Possibly another job on same session using same log file." 6080 e001 | | Load 0x0,0x1 6081 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 6082 4501 |E | Exit_Suprogram New_Top_Offset 0x1 6083 0000 0000 | | .BLANK 0000[0x5] 6088 ; -------------------------------------------------------------------------------------- 6088 ; SUBPROGRAM 6088 ; -------------------------------------------------------------------------------------- 6088 608b |` | .CONST 0x608b ; Address of begin 6089 60b0 |` | .CONST 0x60b0 ; Address of exception handler 608a 0001 | | .CONST 0x0001 ; Number of locals 608b BODY_6088: 608b INIT_6088: 608b e002 | | Load 0x0,0x2 608c 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e 608d e004 | | Load 0x0,0x4 608e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 608f e002 | | Load 0x0,0x2 6090 1a7e | ~ | Execute Package,Field_Write,Field_Number 0x7e 6091 4801 |H | Short_Literal 0x1 6092 e002 | | Load 0x0,0x2 6093 1b10 | | Execute Package,Field_Read,Field_Number 0x10 6094 e002 | | Load 0x0,0x2 6095 1b0f | | Execute Package,Field_Read,Field_Number 0xf 6096 01cf | | Execute Vector,Slice_Read 6097 0092 659b | e | Action Push_String_Extended,0x659b ; "sims_log" 6099 01cc | | Execute Vector,Catenate 609a 4801 |H | Short_Literal 0x1 609b 822b | + | Call 0x1,0x2b 609c 4800 |H | Short_Literal 0x0 609d 4803 |H | Short_Literal 0x3 609e 0092 6410 | d | Action Push_String_Extended,0x6410 ; "Your report has been completed as a dated SIMS log file," 60a0 e001 | | Load 0x0,0x1 60a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 60a2 4800 |H | Short_Literal 0x0 60a3 4803 |H | Short_Literal 0x3 60a4 0092 6411 | d | Action Push_String_Extended,0x6411 ; "Log Report written to area => " 60a6 4801 |H | Short_Literal 0x1 60a7 e002 | | Load 0x0,0x2 60a8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 60a9 e002 | | Load 0x0,0x2 60aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 60ab 01cf | | Execute Vector,Slice_Read 60ac 01cc | | Execute Vector,Catenate 60ad e001 | | Load 0x0,0x1 60ae 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 60af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 60b0 TRAP_6088: 60b0 0007 | | Action Break_Optional 60b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 60b2 0000 0000 | | .BLANK 0000[0x6] 60b8 ; -------------------------------------------------------------------------------------- 60b8 ; SUBPROGRAM 60b8 ; -------------------------------------------------------------------------------------- 60b8 60bb |` | .CONST 0x60bb ; Address of begin 60b9 612f |a/ | .CONST 0x612f ; Address of exception handler 60ba 0001 | | .CONST 0x0001 ; Number of locals 60bb BODY_60b8: 60bb INIT_60b8: 60bb 0092 6631 | f1| Action Push_String_Extended,0x6631 ; "What do you want to do? Submit it, Abandon it, Re-Edit it: [S]:" 60bd e001 | | Load 0x0,0x1 60be 181d | | Execute Package,Field_Execute,Field_Number 0x1d 60bf 4800 |H | Short_Literal 0x0 60c0 a405 | | Store_Unchecked 0x2,0x5 60c1 e602 | | Load 0x3,0x2 60c2 e403 | | Load 0x2,0x3 60c3 4801 |H | Short_Literal 0x1 60c4 e001 | | Load 0x0,0x1 60c5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 60c6 00d1 | | Pop_Control Pop_Count_1 60c7 c602 | | Store 0x3,0x2 60c8 e602 | | Load 0x3,0x2 60c9 0f01 | | Execute_Immediate Equal,0x1 60ca 6808 |h | Jump_Zero 0x60d3 60cb 0092 6479 | dy| Action Push_String_Extended,0x6479 ; "S" 60cd 4801 |H | Short_Literal 0x1 60ce 4801 |H | Short_Literal 0x1 60cf e403 | | Load 0x2,0x3 60d0 01ce | | Execute Vector,Slice_Write 60d1 00cc | | Action Pop_Block 60d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 60d3 4801 |H | Short_Literal 0x1 60d4 4801 |H | Short_Literal 0x1 60d5 e403 | | Load 0x2,0x3 60d6 01cf | | Execute Vector,Slice_Read 60d7 0092 6479 | dy| Action Push_String_Extended,0x6479 ; "S" 60d9 01df | | Execute Vector,Equal 60da 4801 |H | Short_Literal 0x1 60db 4801 |H | Short_Literal 0x1 60dc e403 | | Load 0x2,0x3 60dd 01cf | | Execute Vector,Slice_Read 60de 0092 647a | dz| Action Push_String_Extended,0x647a ; "s" 60e0 01df | | Execute Vector,Equal 60e1 0278 | x | Execute Discrete,Or 60e2 6808 |h | Jump_Zero 0x60eb 60e3 0092 6479 | dy| Action Push_String_Extended,0x6479 ; "S" 60e5 4801 |H | Short_Literal 0x1 60e6 4801 |H | Short_Literal 0x1 60e7 e403 | | Load 0x2,0x3 60e8 01ce | | Execute Vector,Slice_Write 60e9 00cc | | Action Pop_Block 60ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 60eb 4801 |H | Short_Literal 0x1 60ec 4801 |H | Short_Literal 0x1 60ed e403 | | Load 0x2,0x3 60ee 01cf | | Execute Vector,Slice_Read 60ef 0092 6483 | d | Action Push_String_Extended,0x6483 ; "A" 60f1 01df | | Execute Vector,Equal 60f2 4801 |H | Short_Literal 0x1 60f3 4801 |H | Short_Literal 0x1 60f4 e403 | | Load 0x2,0x3 60f5 01cf | | Execute Vector,Slice_Read 60f6 0092 6484 | d | Action Push_String_Extended,0x6484 ; "a" 60f8 01df | | Execute Vector,Equal 60f9 0278 | x | Execute Discrete,Or 60fa 6808 |h | Jump_Zero 0x6103 60fb 0092 6483 | d | Action Push_String_Extended,0x6483 ; "A" 60fd 4801 |H | Short_Literal 0x1 60fe 4801 |H | Short_Literal 0x1 60ff e403 | | Load 0x2,0x3 6100 01ce | | Execute Vector,Slice_Write 6101 00cc | | Action Pop_Block 6102 4501 |E | Exit_Suprogram New_Top_Offset 0x1 6103 4801 |H | Short_Literal 0x1 6104 4801 |H | Short_Literal 0x1 6105 e403 | | Load 0x2,0x3 6106 01cf | | Execute Vector,Slice_Read 6107 0092 6632 | f2| Action Push_String_Extended,0x6632 ; "R" 6109 01df | | Execute Vector,Equal 610a 4801 |H | Short_Literal 0x1 610b 4801 |H | Short_Literal 0x1 610c e403 | | Load 0x2,0x3 610d 01cf | | Execute Vector,Slice_Read 610e 0092 6633 | f3| Action Push_String_Extended,0x6633 ; "r" 6110 01df | | Execute Vector,Equal 6111 4801 |H | Short_Literal 0x1 6112 4801 |H | Short_Literal 0x1 6113 e403 | | Load 0x2,0x3 6114 01cf | | Execute Vector,Slice_Read 6115 0092 6634 | f4| Action Push_String_Extended,0x6634 ; "E" 6117 01df | | Execute Vector,Equal 6118 4801 |H | Short_Literal 0x1 6119 4801 |H | Short_Literal 0x1 611a e403 | | Load 0x2,0x3 611b 01cf | | Execute Vector,Slice_Read 611c 0092 6635 | f5| Action Push_String_Extended,0x6635 ; "e" 611e 01df | | Execute Vector,Equal 611f 0278 | x | Execute Discrete,Or 6120 0278 | x | Execute Discrete,Or 6121 0278 | x | Execute Discrete,Or 6122 680a |h | Jump_Zero 0x612d 6123 0092 6632 | f2| Action Push_String_Extended,0x6632 ; "R" 6125 4801 |H | Short_Literal 0x1 6126 4801 |H | Short_Literal 0x1 6127 e403 | | Load 0x2,0x3 6128 01ce | | Execute Vector,Slice_Write 6129 4801 |H | Short_Literal 0x1 612a a405 | | Store_Unchecked 0x2,0x5 612b 00cc | | Action Pop_Block 612c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 612d e016 | | Load 0x0,0x16 612e 0257 | W | Execute Discrete,Raise 612f TRAP_60b8: 612f 0007 | | Action Break_Optional 6130 4801 |H | Short_Literal 0x1 6131 4804 |H | Short_Literal 0x4 6132 0092 6636 | f6| Action Push_String_Extended,0x6636 ; "Error, Please enter one of the choices shown." 6134 e001 | | Load 0x0,0x1 6135 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 6136 e001 | | Load 0x0,0x1 6137 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 6138 4501 |E | Exit_Suprogram New_Top_Offset 0x1 6139 0000 0000 | | .BLANK 0000[0x7] 6140 ; -------------------------------------------------------------------------------------- 6140 ; SUBPROGRAM 6140 ; -------------------------------------------------------------------------------------- 6140 6155 |aU | .CONST 0x6155 ; Address of begin 6141 6217 |b | .CONST 0x6217 ; Address of exception handler 6142 0009 | | .CONST 0x0009 ; Number of locals 6143 INIT_6140: 6143 00e2 | | Load_Encached Integer_Cache 6144 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6145 00e2 | | Load_Encached Integer_Cache 6146 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6147 00e2 | | Load_Encached Integer_Cache 6148 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6149 00e2 | | Load_Encached Integer_Cache 614a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 614b 4801 |H | Short_Literal 0x1 614c 4850 |HP | Short_Literal 0x50 614d 00e9 | | Load_Encached String_Cache 614e 0334 | 4 | Declare_Variable Array,With_Constraint 614f 00e2 | | Load_Encached Integer_Cache 6150 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6151 00e2 | | Load_Encached Integer_Cache 6152 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6153 00e1 | | Load_Encached Boolean_Cache 6154 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6155 BODY_6140: 6155 e002 | | Load 0x0,0x2 6156 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 6157 e5fe | | Load 0x2,-0x2 6158 e002 | | Load 0x0,0x2 6159 1b90 | | Execute Package,Field_Read,Field_Number 0x90 615a 01d5 | | Execute Vector,Field_Reference 615b 01d5 | | Execute Vector,Field_Reference 615c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 615d 7013 |p | Jump_Nonzero 0x6171 615e 00e4 | | Load_Encached Positive_Cache 615f e001 | | Load 0x0,0x1 6160 1b14 | | Execute Package,Field_Read,Field_Number 0x14 6161 1b0f | | Execute Package,Field_Read,Field_Number 0xf 6162 4801 |H | Short_Literal 0x1 6163 e002 | | Load 0x0,0x2 6164 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 6165 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 6166 e002 | | Load 0x0,0x2 6167 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 6168 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 6169 01cf | | Execute Vector,Slice_Read 616a e001 | | Load 0x0,0x1 616b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 616c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 616d c802 | | Store 0x4,0x2 616e c803 | | Store 0x4,0x3 616f e802 | | Load 0x4,0x2 6170 a804 | | Store_Unchecked 0x4,0x4 6171 0007 | | Action Break_Optional 6172 e002 | | Load 0x0,0x2 6173 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 6174 e5fe | | Load 0x2,-0x2 6175 e002 | | Load 0x0,0x2 6176 1b90 | | Execute Package,Field_Read,Field_Number 0x90 6177 01d5 | | Execute Vector,Field_Reference 6178 01d5 | | Execute Vector,Field_Reference 6179 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 617a 0c01 | | Execute_Immediate Greater_Equal,0x1 617b 689a |h | Jump_Zero 0x6216 617c 4801 |H | Short_Literal 0x1 617d a602 | | Store_Unchecked 0x3,0x2 617e e002 | | Load 0x0,0x2 617f 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 6180 e5fe | | Load 0x2,-0x2 6181 e002 | | Load 0x0,0x2 6182 1b90 | | Execute Package,Field_Read,Field_Number 0x90 6183 01d5 | | Execute Vector,Field_Reference 6184 01d5 | | Execute Vector,Field_Reference 6185 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 6186 a805 | | Store_Unchecked 0x4,0x5 6187 e002 | | Load 0x0,0x2 6188 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 6189 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 618a a807 | | Store_Unchecked 0x4,0x7 618b e002 | | Load 0x0,0x2 618c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 618d e806 | | Load 0x4,0x6 618e 01d4 | | Execute Vector,Structure_Write 618f 4801 |H | Short_Literal 0x1 6190 e807 | | Load 0x4,0x7 6191 e002 | | Load 0x0,0x2 6192 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 6193 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 6194 01cf | | Execute Vector,Slice_Read 6195 4801 |H | Short_Literal 0x1 6196 e807 | | Load 0x4,0x7 6197 e806 | | Load 0x4,0x6 6198 01ce | | Execute Vector,Slice_Write 6199 00cf | | Action Mark_Auxiliary 619a 0007 | | Action Break_Optional 619b e805 | | Load 0x4,0x5 619c e002 | | Load 0x0,0x2 619d 1b93 | | Execute Package,Field_Read,Field_Number 0x93 619e 01d5 | | Execute Vector,Field_Reference 619f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 61a0 a808 | | Store_Unchecked 0x4,0x8 61a1 e805 | | Load 0x4,0x5 61a2 e002 | | Load 0x0,0x2 61a3 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 61a4 027d | } | Execute Discrete,Greater 61a5 6801 |h | Jump_Zero 0x61a7 61a6 786e |xn | Jump 0x6215 61a7 e808 | | Load 0x4,0x8 61a8 7001 |p | Jump_Nonzero 0x61aa 61a9 786b |xk | Jump 0x6215 61aa 4801 |H | Short_Literal 0x1 61ab e808 | | Load 0x4,0x8 61ac e805 | | Load 0x4,0x5 61ad e002 | | Load 0x0,0x2 61ae 1b93 | | Execute Package,Field_Read,Field_Number 0x93 61af 01d5 | | Execute Vector,Field_Reference 61b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 61b1 01cf | | Execute Vector,Slice_Read 61b2 4801 |H | Short_Literal 0x1 61b3 e808 | | Load 0x4,0x8 61b4 e806 | | Load 0x4,0x6 61b5 01cf | | Execute Vector,Slice_Read 61b6 01df | | Execute Vector,Equal 61b7 6803 |h | Jump_Zero 0x61bb 61b8 4800 |H | Short_Literal 0x0 61b9 a602 | | Store_Unchecked 0x3,0x2 61ba 785a |xZ | Jump 0x6215 61bb 00e1 | | Load_Encached Boolean_Cache 61bc 4801 |H | Short_Literal 0x1 61bd e807 | | Load 0x4,0x7 61be 4801 |H | Short_Literal 0x1 61bf e807 | | Load 0x4,0x7 61c0 e806 | | Load 0x4,0x6 61c1 01cf | | Execute Vector,Slice_Read 61c2 e807 | | Load 0x4,0x7 61c3 4801 |H | Short_Literal 0x1 61c4 e807 | | Load 0x4,0x7 61c5 e805 | | Load 0x4,0x5 61c6 e002 | | Load 0x0,0x2 61c7 1b93 | | Execute Package,Field_Read,Field_Number 0x93 61c8 01d5 | | Execute Vector,Field_Reference 61c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 61ca 01cf | | Execute Vector,Slice_Read 61cb e001 | | Load 0x0,0x1 61cc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 61cd c809 | | Store 0x4,0x9 61ce e809 | | Load 0x4,0x9 61cf 0f01 | | Execute_Immediate Equal,0x1 61d0 e808 | | Load 0x4,0x8 61d1 e002 | | Load 0x0,0x2 61d2 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 61d3 e5fe | | Load 0x2,-0x2 61d4 e002 | | Load 0x0,0x2 61d5 1b90 | | Execute Package,Field_Read,Field_Number 0x90 61d6 01d5 | | Execute Vector,Field_Reference 61d7 01d5 | | Execute Vector,Field_Reference 61d8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 61d9 027d | } | Execute Discrete,Greater 61da 0279 | y | Execute Discrete,And 61db 680b |h | Jump_Zero 0x61e7 61dc 4801 |H | Short_Literal 0x1 61dd 4804 |H | Short_Literal 0x4 61de 0092 6637 | f7| Action Push_String_Extended,0x6637 ; "Invalid choice, this choice is larger than maximum size allowed for field." 61e0 e001 | | Load 0x0,0x1 61e1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 61e2 4800 |H | Short_Literal 0x0 61e3 a809 | | Store_Unchecked 0x4,0x9 61e4 4801 |H | Short_Literal 0x1 61e5 a602 | | Store_Unchecked 0x3,0x2 61e6 782e |x. | Jump 0x6215 61e7 e809 | | Load 0x4,0x9 61e8 0f01 | | Execute_Immediate Equal,0x1 61e9 6825 |h% | Jump_Zero 0x620f 61ea e808 | | Load 0x4,0x8 61eb e002 | | Load 0x0,0x2 61ec 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 61ed 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 61ee 4801 |H | Short_Literal 0x1 61ef e808 | | Load 0x4,0x8 61f0 e805 | | Load 0x4,0x5 61f1 e002 | | Load 0x0,0x2 61f2 1b93 | | Execute Package,Field_Read,Field_Number 0x93 61f3 01d5 | | Execute Vector,Field_Reference 61f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 61f5 01cf | | Execute Vector,Slice_Read 61f6 4801 |H | Short_Literal 0x1 61f7 e808 | | Load 0x4,0x8 61f8 e002 | | Load 0x0,0x2 61f9 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 61fa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 61fb 01ce | | Execute Vector,Slice_Write 61fc 4800 |H | Short_Literal 0x0 61fd a602 | | Store_Unchecked 0x3,0x2 61fe 4800 |H | Short_Literal 0x0 61ff 4801 |H | Short_Literal 0x1 6200 0092 6638 | f8| Action Push_String_Extended,0x6638 ; "[" 6202 4801 |H | Short_Literal 0x1 6203 e808 | | Load 0x4,0x8 6204 e002 | | Load 0x0,0x2 6205 1b61 | a | Execute Package,Field_Read,Field_Number 0x61 6206 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 6207 01cf | | Execute Vector,Slice_Read 6208 01cc | | Execute Vector,Catenate 6209 0092 6421 | d!| Action Push_String_Extended,0x6421 ; "]" 620b 01cc | | Execute Vector,Catenate 620c e001 | | Load 0x0,0x1 620d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 620e 7806 |x | Jump 0x6215 620f e805 | | Load 0x4,0x5 6210 0a01 | | Execute_Immediate Plus,0x1 6211 0248 | H | Execute Discrete,Check_In_Integer 6212 a805 | | Store_Unchecked 0x4,0x5 6213 00c9 | | Action Pop_Auxiliary_Loop 6214 7f86 | | Jump 0x619b 6215 00ce | | Action Pop_Auxiliary 6216 4501 |E | Exit_Suprogram New_Top_Offset 0x1 6217 TRAP_6140: 6217 0007 | | Action Break_Optional 6218 4801 |H | Short_Literal 0x1 6219 a602 | | Store_Unchecked 0x3,0x2 621a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 621b 0000 0000 | | .BLANK 0000[0x5] 6220 ; -------------------------------------------------------------------------------------- 6220 ; SUBPROGRAM 6220 ; -------------------------------------------------------------------------------------- 6220 6223 |b# | .CONST 0x6223 ; Address of begin 6221 6247 |bG | .CONST 0x6247 ; Address of exception handler 6222 0001 | | .CONST 0x0001 ; Number of locals 6223 BODY_6220: 6223 INIT_6220: 6223 0092 6639 | f9| Action Push_String_Extended,0x6639 ; "Enter desired item no. to edit:" 6225 e001 | | Load 0x0,0x1 6226 181d | | Execute Package,Field_Execute,Field_Number 0x1d 6227 e604 | | Load 0x3,0x4 6228 e603 | | Load 0x3,0x3 6229 4801 |H | Short_Literal 0x1 622a e001 | | Load 0x0,0x1 622b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 622c 00d1 | | Pop_Control Pop_Count_1 622d c604 | | Store 0x3,0x4 622e e604 | | Load 0x3,0x4 622f 0f01 | | Execute_Immediate Equal,0x1 6230 6806 |h | Jump_Zero 0x6237 6231 0092 663a | f:| Action Push_String_Extended,0x663a ; "1 " 6233 4801 |H | Short_Literal 0x1 6234 4802 |H | Short_Literal 0x2 6235 e603 | | Load 0x3,0x3 6236 01ce | | Execute Vector,Slice_Write 6237 00e4 | | Load_Encached Positive_Cache 6238 e001 | | Load 0x0,0x1 6239 1b14 | | Execute Package,Field_Read,Field_Number 0x14 623a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 623b 4801 |H | Short_Literal 0x1 623c e604 | | Load 0x3,0x4 623d e603 | | Load 0x3,0x3 623e 01cf | | Execute Vector,Slice_Read 623f e001 | | Load 0x0,0x1 6240 1b14 | | Execute Package,Field_Read,Field_Number 0x14 6241 1816 | | Execute Package,Field_Execute,Field_Number 0x16 6242 c604 | | Store 0x3,0x4 6243 c602 | | Store 0x3,0x2 6244 00cc | | Action Pop_Block 6245 00a7 5447 | TG| Action Jump_Extended,0x5447 6247 TRAP_6220: 6247 0007 | | Action Break_Optional 6248 4501 |E | Exit_Suprogram New_Top_Offset 0x1 6249 0000 0000 | | .BLANK 0000[0x7] 6250 ; -------------------------------------------------------------------------------------- 6250 ; SUBPROGRAM 6250 ; -------------------------------------------------------------------------------------- 6250 6270 |bp | .CONST 0x6270 ; Address of begin 6251 62bc |b | .CONST 0x62bc ; Address of exception handler 6252 0005 | | .CONST 0x0005 ; Number of locals 6253 INIT_6250: 6253 e004 | | Load 0x0,0x4 6254 1b0d | | Execute Package,Field_Read,Field_Number 0xd 6255 02c7 | | Declare_Variable Any 6256 00d8 | | Load_Top At_Offset_0 6257 1c00 | | Execute_Immediate Run_Utility,0x0 6258 4801 |H | Short_Literal 0x1 6259 4803 |H | Short_Literal 0x3 625a 00e9 | | Load_Encached String_Cache 625b 0334 | 4 | Declare_Variable Array,With_Constraint 625c 517f |Q | Indirect_Literal Any,0x63dc,{0x5f617420, 0x20202020} 625d 4801 |H | Short_Literal 0x1 625e 4819 |H | Short_Literal 0x19 625f 00e9 | | Load_Encached String_Cache 6260 0334 | 4 | Declare_Variable Array,With_Constraint 6261 4801 |H | Short_Literal 0x1 6262 4819 |H | Short_Literal 0x19 6263 00e9 | | Load_Encached String_Cache 6264 0334 | 4 | Declare_Variable Array,With_Constraint 6265 4819 |H | Short_Literal 0x19 6266 4801 |H | Short_Literal 0x1 6267 4820 |H | Short_Literal 0x20 6268 e807 | | Load 0x4,0x7 6269 e805 | | Load 0x4,0x5 626a 01d6 | | Execute Vector,Field_Write 626b 3ffb |? | Loop_Increasing 0x6267 626c e804 | | Load 0x4,0x4 626d 01d4 | | Execute Vector,Structure_Write 626e 00e2 | | Load_Encached Integer_Cache 626f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 6270 BODY_6250: 6270 00be | | Action Activate_Tasks 6271 e002 | | Load 0x0,0x2 6272 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 6273 7047 |pG | Jump_Nonzero 0x62bb 6274 e802 | | Load 0x4,0x2 6275 00ea | | Load_Encached Null_String_Cache 6276 e5fe | | Load 0x2,-0x2 6277 e803 | | Load 0x4,0x3 6278 01cc | | Execute Vector,Catenate 6279 4800 |H | Short_Literal 0x0 627a e004 | | Load 0x0,0x4 627b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 627c c802 | | Store 0x4,0x2 627d 00cf | | Action Mark_Auxiliary 627e e002 | | Load 0x0,0x2 627f 1bb7 | | Execute Package,Field_Read,Field_Number 0xb7 6280 4801 |H | Short_Literal 0x1 6281 0263 | c | Execute Discrete,Above_Bound 6282 702d |p- | Jump_Nonzero 0x62b0 6283 e802 | | Load 0x4,0x2 6284 e004 | | Load 0x0,0x4 6285 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 6286 0f01 | | Execute_Immediate Equal,0x1 6287 6802 |h | Jump_Zero 0x628a 6288 00d2 | | Pop_Control Pop_Count_2 6289 7826 |x& | Jump 0x62b0 628a 00e3 | | Load_Encached Natural_Cache 628b e804 | | Load 0x4,0x4 628c e802 | | Load 0x4,0x2 628d e004 | | Load 0x0,0x4 628e 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 628f 00d1 | | Pop_Control Pop_Count_1 6290 c805 | | Store 0x4,0x5 6291 e805 | | Load 0x4,0x5 6292 0c15 | | Execute_Immediate Greater_Equal,0x15 6293 6802 |h | Jump_Zero 0x6296 6294 4814 |H | Short_Literal 0x14 6295 a805 | | Store_Unchecked 0x4,0x5 6296 e805 | | Load 0x4,0x5 6297 e808 | | Load 0x4,0x8 6298 e002 | | Load 0x0,0x2 6299 1b93 | | Execute Package,Field_Read,Field_Number 0x93 629a 01d5 | | Execute Vector,Field_Reference 629b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 629c 4801 |H | Short_Literal 0x1 629d e805 | | Load 0x4,0x5 629e e804 | | Load 0x4,0x4 629f 01cf | | Execute Vector,Slice_Read 62a0 4801 |H | Short_Literal 0x1 62a1 e805 | | Load 0x4,0x5 62a2 e808 | | Load 0x4,0x8 62a3 e002 | | Load 0x0,0x2 62a4 1b93 | | Execute Package,Field_Read,Field_Number 0x93 62a5 01d7 | | Execute Vector,Field_Read 62a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 62a7 01ce | | Execute Vector,Slice_Write 62a8 e002 | | Load 0x0,0x2 62a9 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 62aa 0a01 | | Execute_Immediate Plus,0x1 62ab 0248 | H | Execute Discrete,Check_In_Integer 62ac e002 | | Load 0x0,0x2 62ad 1a63 | c | Execute Package,Field_Write,Field_Number 0x63 62ae 00c8 | | Action Pop_Auxiliary_Range 62af 3fd3 |? | Loop_Increasing 0x6283 62b0 00ce | | Action Pop_Auxiliary 62b1 e802 | | Load 0x4,0x2 62b2 e004 | | Load 0x0,0x4 62b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 62b4 c802 | | Store 0x4,0x2 62b5 e002 | | Load 0x0,0x2 62b6 1b63 | c | Execute Package,Field_Read,Field_Number 0x63 62b7 0a01 | | Execute_Immediate Plus,0x1 62b8 0248 | H | Execute Discrete,Check_In_Integer 62b9 e002 | | Load 0x0,0x2 62ba 1a63 | c | Execute Package,Field_Write,Field_Number 0x63 62bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 62bc TRAP_6250: 62bc 0007 | | Action Break_Optional 62bd 4800 |H | Short_Literal 0x0 62be 4801 |H | Short_Literal 0x1 62bf 0092 663b | f;| Action Push_String_Extended,0x663b ; "Exception in loading attribute data from _at file" 62c1 e001 | | Load 0x0,0x1 62c2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 62c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 62c4 0000 0000 | | .BLANK 0000[0x4] 62c8 ; -------------------------------------------------------------------------------------- 62c8 ; SUBPROGRAM 62c8 ; -------------------------------------------------------------------------------------- 62c8 62cb |b | .CONST 0x62cb ; Address of begin 62c9 639f |c | .CONST 0x639f ; Address of exception handler 62ca 0001 | | .CONST 0x0001 ; Number of locals 62cb BODY_62c8: 62cb INIT_62c8: 62cb 4801 |H | Short_Literal 0x1 62cc 4828 |H( | Short_Literal 0x28 62cd e002 | | Load 0x0,0x2 62ce 1b20 | | Execute Package,Field_Read,Field_Number 0x20 62cf 01cf | | Execute Vector,Slice_Read 62d0 4801 |H | Short_Literal 0x1 62d1 4828 |H( | Short_Literal 0x28 62d2 e603 | | Load 0x3,0x3 62d3 01ce | | Execute Vector,Slice_Write 62d4 00e3 | | Load_Encached Natural_Cache 62d5 e603 | | Load 0x3,0x3 62d6 e602 | | Load 0x3,0x2 62d7 e004 | | Load 0x0,0x4 62d8 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 62d9 00d1 | | Pop_Control Pop_Count_1 62da c604 | | Store 0x3,0x4 62db 4801 |H | Short_Literal 0x1 62dc 4806 |H | Short_Literal 0x6 62dd e5fd | | Load 0x2,-0x3 62de 01cf | | Execute Vector,Slice_Read 62df 4801 |H | Short_Literal 0x1 62e0 4806 |H | Short_Literal 0x6 62e1 e603 | | Load 0x3,0x3 62e2 01cf | | Execute Vector,Slice_Read 62e3 01df | | Execute Vector,Equal 62e4 68b9 |h | Jump_Zero 0x639e 62e5 e604 | | Load 0x3,0x4 62e6 0af9 | | Execute_Immediate Plus,-0x7 62e7 0248 | H | Execute Discrete,Check_In_Integer 62e8 a607 | | Store_Unchecked 0x3,0x7 62e9 4808 |H | Short_Literal 0x8 62ea e607 | | Load 0x3,0x7 62eb 0a07 | | Execute_Immediate Plus,0x7 62ec 0248 | H | Execute Discrete,Check_In_Integer 62ed e603 | | Load 0x3,0x3 62ee 01cf | | Execute Vector,Slice_Read 62ef 4801 |H | Short_Literal 0x1 62f0 e607 | | Load 0x3,0x7 62f1 e606 | | Load 0x3,0x6 62f2 01ce | | Execute Vector,Slice_Write 62f3 4801 |H | Short_Literal 0x1 62f4 4828 |H( | Short_Literal 0x28 62f5 e002 | | Load 0x0,0x2 62f6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 62f7 01cf | | Execute Vector,Slice_Read 62f8 4801 |H | Short_Literal 0x1 62f9 4828 |H( | Short_Literal 0x28 62fa e5fa | | Load 0x2,-0x6 62fb 01ce | | Execute Vector,Slice_Write 62fc e5fa | | Load 0x2,-0x6 62fd 01db | | Execute Vector,Length 62fe e607 | | Load 0x3,0x7 62ff 027c | | | Execute Discrete,Less 6300 6809 |h | Jump_Zero 0x630a 6301 4800 |H | Short_Literal 0x0 6302 4801 |H | Short_Literal 0x1 6303 0092 663c | f<| Action Push_String_Extended,0x663c ; "Error - Passed param username too small size." 6305 e001 | | Load 0x0,0x1 6306 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 6307 00cc | | Action Pop_Block 6308 00cc | | Action Pop_Block 6309 4504 |E | Exit_Suprogram New_Top_Offset 0x4 630a 4801 |H | Short_Literal 0x1 630b e607 | | Load 0x3,0x7 630c e606 | | Load 0x3,0x6 630d 01cf | | Execute Vector,Slice_Read 630e 4801 |H | Short_Literal 0x1 630f e607 | | Load 0x3,0x7 6310 e5fa | | Load 0x2,-0x6 6311 01ce | | Execute Vector,Slice_Write 6312 e606 | | Load 0x3,0x6 6313 4801 |H | Short_Literal 0x1 6314 e607 | | Load 0x3,0x7 6315 e802 | | Load 0x4,0x2 6316 035b | [ | Declare_Type Array,Constrained 6317 00d0 | | Action Swap_Control 6318 01cd | | Execute Vector,Slice_Reference 6319 00d8 | | Load_Top At_Offset_0 631a 0092 63e6 | c | Action Push_String_Extended,0x63e6 ; "_" 631c 0092 6401 | d | Action Push_String_Extended,0x6401 ; " " 631e 4fff |O | Short_Literal -0x1 631f e001 | | Load 0x0,0x1 6320 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 6321 00d2 | | Pop_Control Pop_Count_2 6322 e607 | | Load 0x3,0x7 6323 e002 | | Load 0x0,0x2 6324 1b18 | | Execute Package,Field_Read,Field_Number 0x18 6325 0273 | s | Execute Discrete,Plus 6326 0a05 | | Execute_Immediate Plus,0x5 6327 0248 | H | Execute Discrete,Check_In_Integer 6328 a60a | | Store_Unchecked 0x3,0xa 6329 4801 |H | Short_Literal 0x1 632a e002 | | Load 0x0,0x2 632b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 632c e002 | | Load 0x0,0x2 632d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 632e 01cf | | Execute Vector,Slice_Read 632f 4801 |H | Short_Literal 0x1 6330 e607 | | Load 0x3,0x7 6331 e606 | | Load 0x3,0x6 6332 01cf | | Execute Vector,Slice_Read 6333 01cc | | Execute Vector,Catenate 6334 e609 | | Load 0x3,0x9 6335 01cc | | Execute Vector,Catenate 6336 4801 |H | Short_Literal 0x1 6337 e60a | | Load 0x3,0xa 6338 e60b | | Load 0x3,0xb 6339 01ce | | Execute Vector,Slice_Write 633a 4800 |H | Short_Literal 0x0 633b 4801 |H | Short_Literal 0x1 633c 0092 663d | f=| Action Push_String_Extended,0x663d ; "Opening mail file for defaults: " 633e 4801 |H | Short_Literal 0x1 633f e60a | | Load 0x3,0xa 6340 e60b | | Load 0x3,0xb 6341 01cf | | Execute Vector,Slice_Read 6342 01cc | | Execute Vector,Catenate 6343 e001 | | Load 0x0,0x1 6344 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 6345 4801 |H | Short_Literal 0x1 6346 e60a | | Load 0x3,0xa 6347 e60b | | Load 0x3,0xb 6348 01cf | | Execute Vector,Slice_Read 6349 4801 |H | Short_Literal 0x1 634a e60a | | Load 0x3,0xa 634b e5ff | | Load 0x2,-0x1 634c e002 | | Load 0x0,0x2 634d 1b96 | | Execute Package,Field_Read,Field_Number 0x96 634e 01d7 | | Execute Vector,Field_Read 634f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 6350 01ce | | Execute Vector,Slice_Write 6351 e60a | | Load 0x3,0xa 6352 e5ff | | Load 0x2,-0x1 6353 e002 | | Load 0x0,0x2 6354 1b96 | | Execute Package,Field_Read,Field_Number 0x96 6355 01d5 | | Execute Vector,Field_Reference 6356 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 6357 4800 |H | Short_Literal 0x0 6358 4801 |H | Short_Literal 0x1 6359 4801 |H | Short_Literal 0x1 635a 4801 |H | Short_Literal 0x1 635b e5ff | | Load 0x2,-0x1 635c e5ff | | Load 0x2,-0x1 635d e002 | | Load 0x0,0x2 635e 1b96 | | Execute Package,Field_Read,Field_Number 0x96 635f 01d5 | | Execute Vector,Field_Reference 6360 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 6361 e5ff | | Load 0x2,-0x1 6362 e002 | | Load 0x0,0x2 6363 1b96 | | Execute Package,Field_Read,Field_Number 0x96 6364 01d5 | | Execute Vector,Field_Reference 6365 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 6366 8234 | 4 | Call 0x1,0x34 6367 e5ff | | Load 0x2,-0x1 6368 e002 | | Load 0x0,0x2 6369 1b96 | | Execute Package,Field_Read,Field_Number 0x96 636a 01d5 | | Execute Vector,Field_Reference 636b 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 636c 0092 641a | d | Action Push_String_Extended,0x641a ; "ok " 636e 01de | | Execute Vector,Not_Equal 636f 6825 |h% | Jump_Zero 0x6395 6370 e5fb | | Load 0x2,-0x5 6371 e5fc | | Load 0x2,-0x4 6372 e002 | | Load 0x0,0x2 6373 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 6374 4892 |H | Short_Literal 0x92 6375 8255 | U | Call 0x1,0x55 6376 00d1 | | Pop_Control Pop_Count_1 6377 c5fb | | Store 0x2,-0x5 6378 e5f7 | | Load 0x2,-0x9 6379 e5f8 | | Load 0x2,-0x8 637a e002 | | Load 0x0,0x2 637b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 637c 4894 |H | Short_Literal 0x94 637d 8255 | U | Call 0x1,0x55 637e 00d1 | | Pop_Control Pop_Count_1 637f c5f7 | | Store 0x2,-0x9 6380 e5f5 | | Load 0x2,-0xb 6381 e5f6 | | Load 0x2,-0xa 6382 e002 | | Load 0x0,0x2 6383 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 6384 4895 |H | Short_Literal 0x95 6385 8255 | U | Call 0x1,0x55 6386 00d1 | | Pop_Control Pop_Count_1 6387 c5f5 | | Store 0x2,-0xb 6388 e5f3 | | Load 0x2,-0xd 6389 e5f4 | | Load 0x2,-0xc 638a e002 | | Load 0x0,0x2 638b 1b57 | W | Execute Package,Field_Read,Field_Number 0x57 638c 489c |H | Short_Literal 0x9c 638d 8255 | U | Call 0x1,0x55 638e 00d1 | | Pop_Control Pop_Count_1 638f c5f3 | | Store 0x2,-0xd 6390 4801 |H | Short_Literal 0x1 6391 a5f2 | | Store_Unchecked 0x2,-0xe 6392 00cc | | Action Pop_Block 6393 00cc | | Action Pop_Block 6394 4504 |E | Exit_Suprogram New_Top_Offset 0x4 6395 4800 |H | Short_Literal 0x0 6396 4801 |H | Short_Literal 0x1 6397 0092 663e | f>| Action Push_String_Extended,0x663e ; "Error, found no mail file for this id/username." 6399 e001 | | Load 0x0,0x1 639a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 639b 00cc | | Action Pop_Block 639c 00cc | | Action Pop_Block 639d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 639e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 639f TRAP_62c8: 639f 0007 | | Action Break_Optional 63a0 4800 |H | Short_Literal 0x0 63a1 4801 |H | Short_Literal 0x1 63a2 0092 663f | f?| Action Push_String_Extended,0x663f ; "Error, did not find mail file for this id/username." 63a4 e001 | | Load 0x0,0x1 63a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 63a6 00cc | | Action Pop_Block 63a7 00a7 58cf | X | Action Jump_Extended,0x58cf 63a9 0000 0000 | | .BLANK 0000[0x7] 63b0 ; -------------------------------------------------------------------------------------- 63b0 ; SUBPROGRAM 63b0 ; -------------------------------------------------------------------------------------- 63b0 63b3 |c | .CONST 0x63b3 ; Address of begin 63b1 63b8 |c | .CONST 0x63b8 ; Address of exception handler 63b2 0001 | | .CONST 0x0001 ; Number of locals 63b3 BODY_63b0: 63b3 INIT_63b0: 63b3 e602 | | Load 0x3,0x2 63b4 e004 | | Load 0x0,0x4 63b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 63b6 c602 | | Store 0x3,0x2 63b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 63b8 TRAP_63b0: 63b8 0007 | | Action Break_Optional 63b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 63ba 0000 0000 | | .BLANK 0000[0x6] 63c0 ; -------------------------------------------------------------------------------------- 63c0 ; SUBPROGRAM 63c0 ; -------------------------------------------------------------------------------------- 63c0 63c5 |c | .CONST 0x63c5 ; Address of begin 63c1 63ca |c | .CONST 0x63ca ; Address of exception handler 63c2 0002 | | .CONST 0x0002 ; Number of locals 63c3 INIT_63c0: 63c3 029f 63d3 | c | Declare_Subprogram INIT_63d0,For_Call 63c5 BODY_63c0: 63c5 e40a | | Load 0x2,0xa 63c6 e005 | | Load 0x0,0x5 63c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 63c8 c40a | | Store 0x2,0xa 63c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 63ca TRAP_63c0: 63ca 0007 | | Action Break_Optional 63cb 8a02 | | Call 0x5,0x2 63cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 63cd 0000 0000 | | .XXX[0x3] 63cf 0000 | | 63d0 ; -------------------------------------------------------------------------------------- 63d0 ; SUBPROGRAM 63d0 ; -------------------------------------------------------------------------------------- 63d0 63d3 |c | .CONST 0x63d3 ; Address of begin 63d1 63d8 |c | .CONST 0x63d8 ; Address of exception handler 63d2 0001 | | .CONST 0x0001 ; Number of locals 63d3 BODY_63d0: 63d3 INIT_63d0: 63d3 e40a | | Load 0x2,0xa 63d4 e005 | | Load 0x0,0x5 63d5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 63d6 c40a | | Store 0x2,0xa 63d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 63d8 TRAP_63d0: 63d8 0007 | | Action Break_Optional 63d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 63da 0000 0000 | | .XXX[0x2] 63dc 5f61 7420 |_at | .LITERAL {0x5f617420, 0x20202020} 63e0 ; -------------------------------------------------------------------------------------- 63e0 ; STRING TABLE 63e0 ; -------------------------------------------------------------------------------------- 63e0 04c2 | | .STRTAB 0x04c2->0x6641 ; "Constraint error in co.proc." 63e1 04dc | | .STRTAB 0x04dc->0x664f ; "Numeric error in co.proc." 63e2 04f3 | | .STRTAB 0x04f3->0x665b ; "Program error in co.proc." 63e3 050a | | .STRTAB 0x050a->0x6668 ; "Storage error in co.proc." 63e4 0521 | ! | .STRTAB 0x0521->0x6674 ; "Tasking error in co.proc." 63e5 0538 | 8 | .STRTAB 0x0538->0x6681 ; "Other Program error in co.proc. Exception in ap_common_procedures." 63e6 057b | { | .STRTAB 0x057b->0x66a3 ; "_" 63e7 057a | z | .STRTAB 0x057a->0x66a4 ; "." 63e8 0579 | y | .STRTAB 0x0579->0x66a4 ; "Exception in ap_set_default_master_names" 63e9 059f | | .STRTAB 0x059f->0x66b8 ; "!machine.machine_name" 63ea 05b2 | | .STRTAB 0x05b2->0x66c3 ; "000000" 63eb 05b6 | | .STRTAB 0x05b6->0x66c6 ; "New Company" 63ec 05bf | | .STRTAB 0x05bf->0x66cb ; "new" 63ed 05c0 | | .STRTAB 0x05c0->0x66cd ; "new_site" 63ee 05c6 | | .STRTAB 0x05c6->0x66d1 ; "Company Name : " 63ef 05d3 | | .STRTAB 0x05d3->0x66d8 ; "System ID # : " 63f0 05e0 | | .STRTAB 0x05e0->0x66e0 ; "Machine Name : " 63f1 05ed | | .STRTAB 0x05ed->0x66e7 ; "Local Site : " 63f2 05fa | | .STRTAB 0x05fa->0x66ef ; "Exception in ap_init_sysid_company" 63f3 061a | | .STRTAB 0x061a->0x6700 ; "Exception in ap_find_alias_name" 63f4 0637 | 7 | .STRTAB 0x0637->0x670f ; "User Name : " 63f5 0644 | D | .STRTAB 0x0644->0x6717 ; "Configuration: " 63f6 0651 | Q | .STRTAB 0x0651->0x671e ; "Exception in ap_init_username_etc_defaults" 63f7 0679 | y | .STRTAB 0x0679->0x6733 ; "Exception in ap_put_flag_file" 63f8 0694 | | .STRTAB 0x0694->0x6742 ; "Starting SIMS Automatic Report Generator ...." 63f9 06bf | | .STRTAB 0x06bf->0x6758 ; "Enter desired database number to use for reporting: " 63fa 06f1 | | .STRTAB 0x06f1->0x6772 ; "Auto Report Generator command bypassed, 0 not valid." 63fb 0723 | # | .STRTAB 0x0723->0x678c ; "gen_params_master" 63fc 0732 | 2 | .STRTAB 0x0732->0x6795 ; "Enter a short file name to use for your report file: " 63fd 0765 | e | .STRTAB 0x0765->0x67af ; "How many extra spaces do you want between fields? (0-50max)?" 63fe 079f | | .STRTAB 0x079f->0x67cd ; "y" 63ff 079e | | .STRTAB 0x079e->0x67ce ; "Do you want to automatically wrap long report lines at 80? " 6400 07d7 | | .STRTAB 0x07d7->0x67eb ; "n" 6401 07d6 | | .STRTAB 0x07d6->0x67ec ; " " 6402 07d5 | | .STRTAB 0x07d5->0x67ec ; "Starting Summary Report Processing for:" 6403 07fa | | .STRTAB 0x07fa->0x6800 ; "Summary Report File => " 6404 080f | | .STRTAB 0x080f->0x680b ; "Starting Report Field Selection. (Maximum of 300 Fields.)" 6405 0847 | G | .STRTAB 0x0847->0x6828 ; " SIMS Application Report Generator:" 6406 0872 | r | .STRTAB 0x0872->0x683f ; " ==================================" 6407 089d | | .STRTAB 0x089d->0x6855 ; " " 6408 089d | | .STRTAB 0x089d->0x6856 ; " SIMS Database Title : " 6409 08b4 | | .STRTAB 0x08b4->0x6863 ; " SIMS Database Number: " 640a 08ca | | .STRTAB 0x08ca->0x686f ; "Enter next field command number from above display: 0=exit " 640b 0903 | | .STRTAB 0x0903->0x688c ; "Selection of report fields for your report is complete." 640c 0938 | 8 | .STRTAB 0x0938->0x68a8 ; "Do you want a newline generated after this field?" 640d 0967 | g | .STRTAB 0x0967->0x68c0 ; "Last field command number invalid for selected record?" 640e 099b | | .STRTAB 0x099b->0x68db ; "Summary Report Record Selection:" 640f 09b9 | | .STRTAB 0x09b9->0x68eb ; "Total Records Selected => " 6410 09d1 | | .STRTAB 0x09d1->0x68f8 ; "Your report has been completed as a dated SIMS log file," 6411 0a07 | | .STRTAB 0x0a07->0x6914 ; "Log Report written to area => " 6412 0a23 | # | .STRTAB 0x0a23->0x6923 ; "Report File Generated => " 6413 0a3f | ? | .STRTAB 0x0a3f->0x6932 ; "SIMS Summary Report Generation completed." 6414 0a66 | f | .STRTAB 0x0a66->0x6947 ; "Exception in ap_report_generator" 6415 0a84 | | .STRTAB 0x0a84->0x6957 ; "Use the last search to select matching items? " 6416 0ab1 | | .STRTAB 0x0ab1->0x696e ; "Do you want to select a new search pattern now?" 6417 0ade | | .STRTAB 0x0ade->0x6986 ; "From what record index do you want to start processing? " 6418 0b14 | | .STRTAB 0x0b14->0x69a2 ; "What ending record index range desired? (default=>last) " 6419 0b4a | J | .STRTAB 0x0b4a->0x69be ; "Exception found in ap_util_setup_record_selection" 641a 0b79 | y | .STRTAB 0x0b79->0x69d6 ; "ok " 641b 0b7c | | | .STRTAB 0x0b7c->0x69d9 ; "Exception found in ap_util_get_next_record_selection" 641c 0bae | | .STRTAB 0x0bae->0x69f3 ; "Result => Report not sent." 641d 0bc6 | | .STRTAB 0x0bc6->0x6a00 ; "Rational" 641e 0bcc | | .STRTAB 0x0bcc->0x6a04 ; "Error, Invalid System ID. The System ID field is not correct." 641f 0c09 | | .STRTAB 0x0c09->0x6a23 ; "Please notify Rational Customer Support to correct it." 6420 0c3d | = | .STRTAB 0x0c3d->0x6a3e ; " [Report not sent, but can be resent after ID fixed. Index=]" 6421 0c7a | z | .STRTAB 0x0c7a->0x6a5e ; "]" 6422 0c79 | y | .STRTAB 0x0c79->0x6a5e ; "sent" 6423 0c7b | { | .STRTAB 0x0c7b->0x6a60 ; "rational" 6424 0c81 | | .STRTAB 0x0c81->0x6a64 ; "Internal" 6425 0c87 | | .STRTAB 0x0c87->0x6a68 ; "internal" 6426 0c8d | | .STRTAB 0x0c8d->0x6a6c ; "[Local report index updated and sent to transfer queue => " 6427 0cc5 | | .STRTAB 0x0cc5->0x6a89 ; "Error. Could not update status of request to 'sent'." 6428 0cf7 | | .STRTAB 0x0cf7->0x6aa3 ; "Error, Could not find and extract the report to net queue." 6429 0d2f | / | .STRTAB 0x0d2f->0x6ac0 ; "[Exception occurred in ap_remote_extract_for_transfer.]" 642a 0d64 | d | .STRTAB 0x0d64->0x6adc ; "Unable to send this request to transfer area to send to Rational," 642b 0da3 | | .STRTAB 0x0da3->0x6afc ; "Transfer path name attempting to write: " 642c 0dc9 | | .STRTAB 0x0dc9->0x6b10 ; "Error, Problem detected with transfer file output, use error. Possible directory error." 642d 0e1f | | .STRTAB 0x0e1f->0x6b3c ; "Exception in ap_extract_field." 642e 0e3b | ; | .STRTAB 0x0e3b->0x6b4b ; "0" 642f 0e3a | : | .STRTAB 0x0e3a->0x6b4c ; "[Exception in ap_remote_extract_for_internal_transfer,]" 6430 0e6f | o | .STRTAB 0x0e6f->0x6b67 ; "[Exception handled in ap_internal_transfer_to_devel,]" 6431 0ea2 | | .STRTAB 0x0ea2->0x6b82 ; "Error: Could not extract internal report for transfer," 6432 0ed6 | | .STRTAB 0x0ed6->0x6b9d ; " Possible directory problem." 6433 0ef2 | | .STRTAB 0x0ef2->0x6bac ; "'" 6434 0ef1 | | .STRTAB 0x0ef1->0x6bac ; "_____" 6435 0ef4 | | .STRTAB 0x0ef4->0x6baf ; "Exception in ap_internal_transfer_put." 6436 0f18 | | .STRTAB 0x0f18->0x6bc2 ; "!machine.sims.to_rational.internal_processing." 6437 0f44 | D | .STRTAB 0x0f44->0x6bd9 ; "_sims_hold_" 6438 0f4d | M | .STRTAB 0x0f4d->0x6bde ; "0000000000" 6439 0f55 | U | .STRTAB 0x0f55->0x6be3 ; "XX" 643a 0f55 | U | .STRTAB 0x0f55->0x6be4 ; "Exception in ap_transfer_attached_detail." 643b 0f7c | | | .STRTAB 0x0f7c->0x6bf9 ; "Exception in ap_search_master, search error." 643c 0fa6 | | .STRTAB 0x0fa6->0x6c0f ; "se er" 643d 0fa9 | | .STRTAB 0x0fa9->0x6c11 ; "Exception in ap_pack_record_for_file." 643e 0fcc | | .STRTAB 0x0fcc->0x6c24 ; "Exception in ap_unpack_record_from_file." 643f 0ff2 | | .STRTAB 0x0ff2->0x6c38 ; "Unable to initialize log file, pos. other log in use here." 6440 102a | * | .STRTAB 0x102a->0x6c55 ; "Another log may be in use, will not be able to print records." 6441 1065 | e | .STRTAB 0x1065->0x6c73 ; "* Fixing index links to avoid searching this next time." 6442 109a | | .STRTAB 0x109a->0x6c8f ; "Do you want to see the 2nd detail page if present? " 6443 10cb | | .STRTAB 0x10cb->0x6ca8 ; "Find Error, a detail rec pointed to a non-existant 2nd detail," 6444 1107 | | .STRTAB 0x1107->0x6cc7 ; "This is probably an internal program file logic error." 6445 113b | ; | .STRTAB 0x113b->0x6ce2 ; "Exception found in ap_sub_find_top_plus_detail" 6446 1167 | g | .STRTAB 0x1167->0x6cf9 ; "Do you want to modify the 2nd detail page if present? " 6447 119b | | .STRTAB 0x119b->0x6d14 ; "Exception found in ap_sub_modify_existing_top" 6448 11c6 | | .STRTAB 0x11c6->0x6d2b ; "Exception found in ap_sub_add_new_top_plus_detail" 6449 11f5 | | .STRTAB 0x11f5->0x6d43 ; "Exception found in ap_sub_find_forward_linked_detail." 644a 1228 | ( | .STRTAB 0x1228->0x6d5e ; "Exception found in ap_sub_add_second_detail_and_link." 644b 125b | [ | .STRTAB 0x125b->0x6d78 ; "Exception found in found_top_and_have_detail" 644c 1285 | | .STRTAB 0x1285->0x6d8e ; " [Detail Text for record: " 644d 129e | | .STRTAB 0x129e->0x6d9c ; "Exception found in ap_sub_display_attached_text" 644e 12cb | | .STRTAB 0x12cb->0x6db3 ; "=END" 644f 12cd | | .STRTAB 0x12cd->0x6db5 ; "MORE_INFO =>" 6450 12d7 | | .STRTAB 0x12d7->0x6dbb ; "Reading: " 6451 12de | | .STRTAB 0x12de->0x6dc0 ; "Exception found in ap_sub_display_file_data" 6452 1307 | | .STRTAB 0x1307->0x6dd5 ; " [Please edit new detail window and then Object X commit it when done.]" 6453 134d | M | .STRTAB 0x134d->0x6df9 ; "Error, Problem in editing attached detail text for this report." 6454 138a | | .STRTAB 0x138a->0x6e19 ; "Attempting to edit temporary file: " 6455 13ab | | .STRTAB 0x13ab->0x6e2a ; "Is this the desired report to delete? y=yes, n=no " 6456 13db | | .STRTAB 0x13db->0x6e43 ; "Result => Report not deleted. " 6457 13f7 | | .STRTAB 0x13f7->0x6e52 ; "Record deleted ok." 6458 1407 | | .STRTAB 0x1407->0x6e5b ; "Result => Error, report not deleted, index= " 6459 1431 | 1 | .STRTAB 0x1431->0x6e71 ; "Exception found in ap_sub_delete_item" 645a 1454 | T | .STRTAB 0x1454->0x6e84 ; "Exception found in ap_sub_preset_search" 645b 1479 | y | .STRTAB 0x1479->0x6e97 ; "Initializing new SIMS databases, this will destroy all prior data." 645c 14b9 | | .STRTAB 0x14b9->0x6eb8 ; "Result => New Master database generated." 645d 14df | | .STRTAB 0x14df->0x6ecc ; "Result => File/directory Error- New Master not generated." 645e 1516 | | .STRTAB 0x1516->0x6ee9 ; "Delete all existing detail files as well? (Needed if initializing)" 645f 1556 | V | .STRTAB 0x1556->0x6f0a ; "@" 6460 1555 | U | .STRTAB 0x1555->0x6f0a ; "To begin the new database reports with last index used:" 6461 158a | | .STRTAB 0x158a->0x6f26 ; "Preserve existing local report indexes last used? (Yes/No)" 6462 15c2 | | .STRTAB 0x15c2->0x6f43 ; "Do you want to alter the previous end index for this database: " 6463 15ff | | .STRTAB 0x15ff->0x6f62 ; "Database initialized ok, last index was 0, no new index needed." 6464 163c | < | .STRTAB 0x163c->0x6f82 ; "Database initialized ok to preserve last used index => " 6465 1671 | q | .STRTAB 0x1671->0x6f9d ; "Error, Couldn't write deleted marker record flagging end of database." 6466 16b4 | | .STRTAB 0x16b4->0x6fc0 ; "Error, Could not preset new database to last used index => " 6467 16ed | | .STRTAB 0x16ed->0x6fdd ; "Exception found in ap_sub_create_new_master" 6468 1716 | | .STRTAB 0x1716->0x6ff3 ; "** Problem: Access control may be improperly setup for sims areas." 6469 1756 | V | .STRTAB 0x1756->0x7014 ; "Exception found in ap_sub_generate_report_or_display" 646a 1788 | | .STRTAB 0x1788->0x702e ; "Exception found in ap_sub_generate_index_report_or_display" 646b 17c0 | | .STRTAB 0x17c0->0x704b ; "Result => Report not updated." 646c 17db | | .STRTAB 0x17db->0x7059 ; "no " 646d 17de | | .STRTAB 0x17de->0x705c ; "This report has already been updated to '" 646e 1805 | | .STRTAB 0x1805->0x7070 ; "'." 646f 1805 | | .STRTAB 0x1805->0x7071 ; "This report is now '" 6470 1817 | | .STRTAB 0x1817->0x707b ; "' and can't be set to '" 6471 182c | , | .STRTAB 0x182c->0x7087 ; "Record has been updated to '" 6472 1846 | F | .STRTAB 0x1846->0x7095 ; "Error. Could not update record to '" 6473 1867 | g | .STRTAB 0x1867->0x70a6 ; "Error, Could not update the indicated record in ap_general_update_field_command" 6474 18b4 | | .STRTAB 0x18b4->0x70ce ; "Exception in ap_display_record." 6475 18d1 | | .STRTAB 0x18d1->0x70dd ; "Exception in ap_print_record." 6476 18ec | | .STRTAB 0x18ec->0x70ec ; "Exception in ap_print_attached_text." 6477 190e | | .STRTAB 0x190e->0x70fe ; "To Log a Problem or Customer Support Request please answer a few questions:" 6478 1957 | W | .STRTAB 0x1957->0x7123 ; "Re-Editing previously entered support request or problem:" 6479 198e | | .STRTAB 0x198e->0x7140 ; "S" 647a 198d | | .STRTAB 0x198d->0x7140 ; "s" 647b 198c | | .STRTAB 0x198c->0x7141 ; "Y" 647c 198b | | .STRTAB 0x198b->0x7141 ; "Database Updated, report # " 647d 19a4 | | .STRTAB 0x19a4->0x714f ; "Report submitted." 647e 19b3 | | .STRTAB 0x19b3->0x7157 ; "The problem has been forwarded to your system manager for review & action." 647f 19fb | | .STRTAB 0x19fb->0x717c ; "As necessary, problems will be forwarded to Rational Customer Support." 6480 1a3f | ? | .STRTAB 0x1a3f->0x719f ; "Auto Sending Rational Internal request ..." 6481 1a67 | g | .STRTAB 0x1a67->0x71b4 ; "Send this request to Rational to transfer queue? y=yes n=no" 6482 1aa0 | | .STRTAB 0x1aa0->0x71d2 ; "Select a Support Request to send to Rational:" 6483 1acb | | .STRTAB 0x1acb->0x71e8 ; "A" 6484 1aca | | .STRTAB 0x1aca->0x71e9 ; "a" 6485 1ac9 | | .STRTAB 0x1ac9->0x71e9 ; " Report deleted." 6486 1ad7 | | .STRTAB 0x1ad7->0x71f1 ; "Exception found in ap_sub_enter_fast_sr_report" 6487 1b03 | | .STRTAB 0x1b03->0x7208 ; "Exception in ap_edit_record." 6488 1b1d | | .STRTAB 0x1b1d->0x7216 ; "(To exit type '" 6489 1b2a | * | .STRTAB 0x1b2a->0x721e ; "')" 648a 1b2a | * | .STRTAB 0x1b2a->0x721f ; "[Or: Help= ? Up= ^ Restart= , Select= . Exit= / (then promote)]" 648b 1b74 | t | .STRTAB 0x1b74->0x7245 ; "#" 648c 1b73 | s | .STRTAB 0x1b73->0x7245 ; "?" 648d 1b72 | r | .STRTAB 0x1b72->0x7246 ; "," 648e 1b71 | q | .STRTAB 0x1b71->0x7246 ; "/" 648f 1b70 | p | .STRTAB 0x1b70->0x7247 ; "^" 6490 1b6f | o | .STRTAB 0x1b6f->0x7247 ; " [Machine Alias Name => " 6491 1b86 | | .STRTAB 0x1b86->0x7254 ; ", SystemID => " 6492 1b92 | | .STRTAB 0x1b92->0x725b ; "Invalid machine name entered, Please use one of the following:" 6493 1bce | | .STRTAB 0x1bce->0x727a ; " Machine Alias Names: System ID: " 6494 1bf7 | | .STRTAB 0x1bf7->0x728f ; " -------------------- ---------- " 6495 1c20 | | .STRTAB 0x1c20->0x72a5 ; " " 6496 1c21 | ! | .STRTAB 0x1c21->0x72a6 ; "Are you sure? (y=yes, n=no)" 6497 1c3a | : | .STRTAB 0x1c3a->0x72b4 ; "Please select sequential item number to edit: " 6498 1c66 | f | .STRTAB 0x1c66->0x72cb ; "Exception in ap_select_edit_record." 6499 1c87 | | .STRTAB 0x1c87->0x72dc ; "Exception in ap_edit_item_input." 649a 1ca5 | | .STRTAB 0x1ca5->0x72ec ; "Exception in ap_edit_item_show_choices." 649b 1cca | | .STRTAB 0x1cca->0x7300 ; "Exception in ap_edit_item_select." 649c 1ce9 | | .STRTAB 0x1ce9->0x7310 ; "Exception in ap_edit_item_backup." 649d 1d08 | | .STRTAB 0x1d08->0x7321 ; "Exception in ap_edit_item_restart_or_exit." 649e 1d30 | 0 | .STRTAB 0x1d30->0x7336 ; "\x5cdefault\x5c" 649f 1d37 | 7 | .STRTAB 0x1d37->0x733a ; "Exception occurred in ap_rec_all." 64a0 1d56 | V | .STRTAB 0x1d56->0x734b ; "Exception occurred in ap_load_attrib." 64a1 1d79 | y | .STRTAB 0x1d79->0x735d ; "Exception occurred in ap_load_mask." 64a2 1d9a | | .STRTAB 0x1d9a->0x736f ; "Exception occurred in ap_record_get_field." 64a3 1dc2 | | .STRTAB 0x1dc2->0x7384 ; "Exception occurred in ap_record_get_field_padded." 64a4 1df1 | | .STRTAB 0x1df1->0x739c ; "Exception occurred in ap_load_applic_file." 64a5 1e19 | | .STRTAB 0x1e19->0x73b1 ; "Exception occurred in ap_load_record_params." 64a6 1e43 | C | .STRTAB 0x1e43->0x73c7 ; " Starting save of applic. record params to " 64a7 1e6c | l | .STRTAB 0x1e6c->0x73dd ; " ..." 64a8 1e6f | o | .STRTAB 0x1e6f->0x73df ; " Writing record index " 64a9 1e86 | | .STRTAB 0x1e86->0x73ec ; " into params master index " 64aa 1e9e | | .STRTAB 0x1e9e->0x73f9 ; " with offset of " 64ab 1eac | | .STRTAB 0x1eac->0x7401 ; " Record params saved ok in params master with zero offset." 64ac 1ee4 | | .STRTAB 0x1ee4->0x741e ; " Record params saved ok in params master." 64ad 1f0b | | .STRTAB 0x1f0b->0x7432 ; "Exception occurred in ap_save_record_params." 64ae 1f35 | 5 | .STRTAB 0x1f35->0x7448 ; "No Cross Ref file cust_ids_master found. Exception in ap_find_defaults_by_id." 64af 1f82 | | .STRTAB 0x1f82->0x7470 ; "Exception in ap_add_default_dispatch_report." 64b0 1fac | | .STRTAB 0x1fac->0x7486 ; "Do you want to change setup options? " 64b1 1fcf | | .STRTAB 0x1fcf->0x7498 ; "Configuration Options:" 64b2 1fe3 | | .STRTAB 0x1fe3->0x74a3 ; "1. Show choices for enumeration fields? " 64b3 200a | | .STRTAB 0x200a->0x74b8 ; "2. Show header for enumeration choices? " 64b4 2031 | 1 | .STRTAB 0x2031->0x74cc ; "3. Add problem detail information inline?" 64b5 2058 | X | .STRTAB 0x2058->0x74e1 ; "4. Show prior field contents and size? " 64b6 207f | | .STRTAB 0x207f->0x74f5 ; "5. Show prompt message for input fields? " 64b7 20a6 | | .STRTAB 0x20a6->0x750a ; "6. Display extra lines for more spacing? " 64b8 20cd | | .STRTAB 0x20cd->0x751e ; "7. Show a label before each input field? " 64b9 20f4 | | .STRTAB 0x20f4->0x7533 ; "8. Show input field default in brackets? " 64ba 211b |! | .STRTAB 0x211b->0x7547 ; "9. Display additional information & help?" 64bb 2142 |!B | .STRTAB 0x2142->0x755c ; "10.Ask user to change these options next?" 64bc 2169 |!i | .STRTAB 0x2169->0x7570 ; "11.Display site defaults at startup time?" 64bd 2190 |! | .STRTAB 0x2190->0x7585 ; "Do you want to alter any of the above answers? " 64be 21bd |! | .STRTAB 0x21bd->0x759c ; "Do you want to save these setup options? " 64bf 21e4 |! | .STRTAB 0x21e4->0x75b1 ; "Exception in ap_preset_user_options." 64c0 2206 |" | .STRTAB 0x2206->0x75c3 ; "[Error: This machine has no !machine.Machine_Name file," 64c1 223b |"; | .STRTAB 0x223b->0x75de ; " Please notify Rational Customer Support to correct problem.]" 64c2 227d |"} | .STRTAB 0x227d->0x7600 ; "[Error, Problem determining system id for this machine," 64c3 22b2 |" | .STRTAB 0x22b2->0x761c ; ".site_init_file" 64c4 22bf |" | .STRTAB 0x22bf->0x7623 ; "[Error, This machine has no " 64c5 22d9 |" | .STRTAB 0x22d9->0x7631 ; " or the init file may be missing Company, Region, Site lines." 64c6 2314 |# | .STRTAB 0x2314->0x7650 ; "[Note: Could not read last used defaults from current database]" 64c7 2351 |#Q | .STRTAB 0x2351->0x766f ; " Problem may be a Local_Request_Master database not initialized yet," 64c8 2399 |# | .STRTAB 0x2399->0x7694 ; " Or simply one with no data yet. If the latter, then this is ok." 64c9 23de |# | .STRTAB 0x23de->0x76b8 ; " Please check with a Rational field person to verify it is ok.]" 64ca 2421 |$! | .STRTAB 0x2421->0x76da ; "[Error: Could not read system username]" 64cb 2446 |$F | .STRTAB 0x2446->0x76ee ; "______" 64cc 244a |$J | .STRTAB 0x244a->0x76f1 ; "[Error: Could not read system configuration]" 64cd 2474 |$t | .STRTAB 0x2474->0x7707 ; "87-12-20" 64ce 247a |$z | .STRTAB 0x247a->0x770b ; "88_10_29" 64cf 2480 |$ | .STRTAB 0x2480->0x770f ; "-" 64d0 247f |$ | .STRTAB 0x247f->0x770f ; ":" 64d1 247e |$~ | .STRTAB 0x247e->0x7710 ; "_FLAG" 64d2 2481 |$ | .STRTAB 0x2481->0x7712 ; " === Flag File Date of " 64d3 2496 |$ | .STRTAB 0x2496->0x771e ; " & Time of " 64d4 24a0 |$ | .STRTAB 0x24a0->0x7724 ; " === " 64d5 24a3 |$ | .STRTAB 0x24a3->0x7726 ; "Enter desired database number to document & extract: " 64d6 24d6 |$ | .STRTAB 0x24d6->0x7741 ; "Documentation and extract command bypassed, 0 not valid." 64d7 250c |% | .STRTAB 0x250c->0x775d ; "Enter a short name to use for document and extract files: " 64d8 2544 |%D | .STRTAB 0x2544->0x777a ; "Do you want to have a '|' field separator in extract file?" 64d9 257c |%| | .STRTAB 0x257c->0x7797 ; "Output Format Documentation => " 64da 2599 |% | .STRTAB 0x2599->0x77a6 ; "Output Extracted Data File => " 64db 25b6 |% | .STRTAB 0x25b6->0x77b6 ; "* SIMS Automatic Documentation:" 64dc 25e4 |% | .STRTAB 0x25e4->0x77ce ; "* =============================" 64dd 2612 |& | .STRTAB 0x2612->0x77e6 ; "* " 64de 2612 |& | .STRTAB 0x2612->0x77e7 ; "* SIMS Application Database Number: " 64df 2634 |&4 | .STRTAB 0x2634->0x77f9 ; "* SIMS Database Title: " 64e0 2649 |&I | .STRTAB 0x2649->0x7804 ; "01 Database-" 64e1 2653 |&S | .STRTAB 0x2653->0x780a ; " FIXED LENGTH " 64e2 2661 |&a | .STRTAB 0x2661->0x7812 ; "* Field Names: Field Size: " 64e3 2691 |& | .STRTAB 0x2691->0x782b ; " 05 " 64e4 2695 |& | .STRTAB 0x2695->0x782e ; " Character(" 64e5 269f |& | .STRTAB 0x269f->0x7834 ; "). " 64e6 26a0 |& | .STRTAB 0x26a0->0x7836 ; "Automatic Documentation and Database Extract Selection:" 64e7 26d5 |& | .STRTAB 0x26d5->0x7851 ; "|" 64e8 26d4 |& | .STRTAB 0x26d4->0x7852 ; "<" 64e9 26d3 |& | .STRTAB 0x26d3->0x7852 ; "Document and extract data files completed as dated SIMS files," 64ea 270f |' | .STRTAB 0x270f->0x7871 ; "See dated sims files in your user area ending in _doc and _dat" 64eb 274b |'K | .STRTAB 0x274b->0x7890 ; "Exception in ap_document_and_extract" 64ec 276d |'m | .STRTAB 0x276d->0x78a2 ; "OUT_YYMMDDHHMMss" 64ed 277b |'{ | .STRTAB 0x277b->0x78aa ; "out_" 64ee 277d |'} | .STRTAB 0x277d->0x78ac ; "=SIMS-V02-D01" 64ef 2788 |' | .STRTAB 0x2788->0x78b3 ; "=DET" 64f0 278a |' | .STRTAB 0x278a->0x78b5 ; "*" 64f1 2789 |' | .STRTAB 0x2789->0x78b5 ; ">" 64f2 2788 |' | .STRTAB 0x2788->0x78b6 ; ".to_rational.internal_processing.I" 64f3 27a8 |' | .STRTAB 0x27a8->0x78c7 ; "_x_" 64f4 27a9 |' | .STRTAB 0x27a9->0x78c8 ; "_sims_local_input_log" 64f5 27bc |' | .STRTAB 0x27bc->0x78d3 ; "_sims_central_input_log" 64f6 27d1 |' | .STRTAB 0x27d1->0x78de ; "Please mount the Customer SIMS Tape to process next ..." 64f7 2806 |( | .STRTAB 0x2806->0x78fa ; "<PROFILE>" 64f8 280d |( | .STRTAB 0x280d->0x78fe ; "MACHINE.DEVICES.TAPE_0" 64f9 2821 |(! | .STRTAB 0x2821->0x7909 ; "R1000" 64fa 2824 |($ | .STRTAB 0x2824->0x790c ; "!machine.sims.to_rational.spr.@" 64fb 2841 |(A | .STRTAB 0x2841->0x791b ; "!machine.to_rational.spr.@" 64fc 2859 |(Y | .STRTAB 0x2859->0x7928 ; "<DIRECTORIES>" 64fd 2864 |(d | .STRTAB 0x2864->0x792f ; "Processing input files from: " 64fe 287f |( | .STRTAB 0x287f->0x793d ; ".to_rational.spr.@" 64ff 288f |( | .STRTAB 0x288f->0x7946 ; ".@" 6500 288f |( | .STRTAB 0x288f->0x7947 ; "Processing SIMS input file... " 6501 28ab |( | .STRTAB 0x28ab->0x7956 ; " => " 6502 28b1 |( | .STRTAB 0x28b1->0x795a ; "<DEFAULT>" 6503 28b8 |( | .STRTAB 0x28b8->0x795f ; "<WORLDS>" 6504 28be |( | .STRTAB 0x28be->0x7963 ; "Scanning SIMS Input File Version: " 6505 28de |( | .STRTAB 0x28de->0x7974 ; "=SIMS" 6506 28e1 |( | .STRTAB 0x28e1->0x7976 ; " Processing input request: " 6507 28fc |( | .STRTAB 0x28fc->0x7985 ; "[Loading/processing completed for this problem input file.]" 6508 2935 |)5 | .STRTAB 0x2935->0x79a2 ; "[Exception occurred in ap_remote_load_extract_from_transfer.]" 6509 2970 |)p | .STRTAB 0x2970->0x79c1 ; "Problem in loading remote end user SIMS problem files," 650a 29a4 |) | .STRTAB 0x29a4->0x79dc ; "Possible file not found problem, check file name used," 650b 29d8 |) | .STRTAB 0x29d8->0x79f7 ; "or possible incomplete or partial update record to fix." 650c 2a0d |* | .STRTAB 0x2a0d->0x7a12 ; "9123456789" 650d 2a15 |* | .STRTAB 0x2a15->0x7a17 ; "Loading: " 650e 2a1c |* | .STRTAB 0x2a1c->0x7a1c ; ">18." 650f 2a1e |* | .STRTAB 0x2a1e->0x7a1e ; "Summary: " 6510 2a25 |*% | .STRTAB 0x2a25->0x7a22 ; "> 1" 6511 2a26 |*& | .STRTAB 0x2a26->0x7a24 ; "> 2" 6512 2a27 |*' | .STRTAB 0x2a27->0x7a25 ; "> 3" 6513 2a28 |*( | .STRTAB 0x2a28->0x7a27 ; "> 4" 6514 2a29 |*) | .STRTAB 0x2a29->0x7a28 ; "> 5" 6515 2a2a |** | .STRTAB 0x2a2a->0x7a2a ; "> 6" 6516 2a2b |*+ | .STRTAB 0x2a2b->0x7a2b ; "> 7" 6517 2a2c |*, | .STRTAB 0x2a2c->0x7a2d ; "> 8" 6518 2a2d |*- | .STRTAB 0x2a2d->0x7a2e ; "> 9" 6519 2a2e |*. | .STRTAB 0x2a2e->0x7a30 ; ">10" 651a 2a2f |*/ | .STRTAB 0x2a2f->0x7a31 ; ">11" 651b 2a30 |*0 | .STRTAB 0x2a30->0x7a33 ; ">12" 651c 2a31 |*1 | .STRTAB 0x2a31->0x7a34 ; ">13" 651d 2a32 |*2 | .STRTAB 0x2a32->0x7a36 ; ">14" 651e 2a33 |*3 | .STRTAB 0x2a33->0x7a37 ; ">15" 651f 2a34 |*4 | .STRTAB 0x2a34->0x7a39 ; ">16" 6520 2a35 |*5 | .STRTAB 0x2a35->0x7a3a ; ">17" 6521 2a36 |*6 | .STRTAB 0x2a36->0x7a3c ; ">18" 6522 2a37 |*7 | .STRTAB 0x2a37->0x7a3d ; ">19" 6523 2a38 |*8 | .STRTAB 0x2a38->0x7a3f ; "open" 6524 2a3a |*: | .STRTAB 0x2a3a->0x7a41 ; " [SIMS record updated ok.]" 6525 2a52 |*R | .STRTAB 0x2a52->0x7a4e ; " [** Problem loading/updating SIMS record Not loaded ok.]" 6526 2a89 |* | .STRTAB 0x2a89->0x7a6a ; " ** Problem encountered in loading customer problem tape." 6527 2ac0 |* | .STRTAB 0x2ac0->0x7a87 ; " Please review and correct partial customer tape data.." 6528 2af8 |* | .STRTAB 0x2af8->0x7aa4 ; " (Exception in ap_load_extract_field, Partial record not loaded.)" 6529 2b3a |+: | .STRTAB 0x2b3a->0x7ac6 ; "Generating new detail file for " 652a 2b57 |+W | .STRTAB 0x2b57->0x7ad5 ; " [Detail Text generated ok for record: " 652b 2b7d |+} | .STRTAB 0x2b7d->0x7ae9 ; "* Exception in ap_load_detail_data, Partial detail record not loaded." 652c 2bc0 |+ | .STRTAB 0x2bc0->0x7b0c ; " Please review and correct partial customer tape data.." 652d 2bf6 |+ | .STRTAB 0x2bf6->0x7b28 ; " [Couldn't open or process detail text for this record: " 652e 2c2d |,- | .STRTAB 0x2c2d->0x7b44 ; " (Exception occurred in ap_load_detail_data." 652f 2c58 |,X | .STRTAB 0x2c58->0x7b5b ; "Is this the one to transfer to development? y=yes, n=no " 6530 2c8e |, | .STRTAB 0x2c8e->0x7b77 ; "Result => Report not transferred to development. " 6531 2cbd |, | .STRTAB 0x2cbd->0x7b8f ; "Current dispatch index being transferred => " 6532 2ce7 |, | .STRTAB 0x2ce7->0x7ba5 ; " Problem with interactive setup..." 6533 2d07 |- | .STRTAB 0x2d07->0x7bb6 ; "HHMMss_CSC" 6534 2d0f |- | .STRTAB 0x2d0f->0x7bbb ; "X" 6535 2d0e |- | .STRTAB 0x2d0e->0x7bbc ; "_sims_temp" 6536 2d16 |- | .STRTAB 0x2d16->0x7bc1 ; " Problem with header and extract file setup..." 6537 2d42 |-B | .STRTAB 0x2d42->0x7bd8 ; "DISPATCH_NO => " 6538 2d4f |-O | .STRTAB 0x2d4f->0x7bdf ; "LOCAL_REQUEST => " 6539 2d5e |-^ | .STRTAB 0x2d5e->0x7be8 ; "SR" 653a 2d5e |-^ | .STRTAB 0x2d5e->0x7be9 ; " Problem with central and local dispatch numbers..." 653b 2d8f |- | .STRTAB 0x2d8f->0x7c02 ; ":00" 653c 2d90 |- | .STRTAB 0x2d90->0x7c04 ; "01" 653d 2d90 |- | .STRTAB 0x2d90->0x7c05 ; "Jan" 653e 2d91 |- | .STRTAB 0x2d91->0x7c06 ; "02" 653f 2d91 |- | .STRTAB 0x2d91->0x7c07 ; "Feb" 6540 2d92 |- | .STRTAB 0x2d92->0x7c09 ; "03" 6541 2d92 |- | .STRTAB 0x2d92->0x7c0a ; "Mar" 6542 2d93 |- | .STRTAB 0x2d93->0x7c0b ; "04" 6543 2d93 |- | .STRTAB 0x2d93->0x7c0c ; "Apr" 6544 2d94 |- | .STRTAB 0x2d94->0x7c0e ; "05" 6545 2d94 |- | .STRTAB 0x2d94->0x7c0f ; "May" 6546 2d95 |- | .STRTAB 0x2d95->0x7c10 ; "06" 6547 2d95 |- | .STRTAB 0x2d95->0x7c11 ; "Jun" 6548 2d96 |- | .STRTAB 0x2d96->0x7c13 ; "07" 6549 2d96 |- | .STRTAB 0x2d96->0x7c14 ; "Jul" 654a 2d97 |- | .STRTAB 0x2d97->0x7c15 ; "08" 654b 2d97 |- | .STRTAB 0x2d97->0x7c16 ; "Aug" 654c 2d98 |- | .STRTAB 0x2d98->0x7c18 ; "09" 654d 2d98 |- | .STRTAB 0x2d98->0x7c19 ; "Sep" 654e 2d99 |- | .STRTAB 0x2d99->0x7c1a ; "10" 654f 2d99 |- | .STRTAB 0x2d99->0x7c1b ; "Oct" 6550 2d9a |- | .STRTAB 0x2d9a->0x7c1d ; "11" 6551 2d9a |- | .STRTAB 0x2d9a->0x7c1e ; "Nov" 6552 2d9b |- | .STRTAB 0x2d9b->0x7c1f ; "12" 6553 2d9b |- | .STRTAB 0x2d9b->0x7c20 ; "Dec" 6554 2d9c |- | .STRTAB 0x2d9c->0x7c22 ; "DATE_ENTERED => " 6555 2daa |- | .STRTAB 0x2daa->0x7c2a ; " Problem with date-time stamp filename..." 6556 2dd1 |- | .STRTAB 0x2dd1->0x7c3e ; "COMPANY => " 6557 2dda |- | .STRTAB 0x2dda->0x7c44 ; "LOCAL_SITE => " 6558 2de6 |- | .STRTAB 0x2de6->0x7c4b ; "TELEPHONE => " 6559 2df1 |- | .STRTAB 0x2df1->0x7c51 ; "USER_NAME => " 655a 2dfc |- | .STRTAB 0x2dfc->0x7c58 ; " Problem with company,site,tel,submitter..." 655b 2e25 |.% | .STRTAB 0x2e25->0x7c6d ; "REPORTED_ON => " 655c 2e32 |.2 | .STRTAB 0x2e32->0x7c75 ; "OCCURRED_ON => " 655d 2e3f |.? | .STRTAB 0x2e3f->0x7c7c ; "MACHINE_REPORTING => " 655e 2e52 |.R | .STRTAB 0x2e52->0x7c87 ; "MACHINE_FOUND_ON => " 655f 2e64 |.d | .STRTAB 0x2e64->0x7c91 ; " Problem with id's,machine names..." 6560 2e85 |. | .STRTAB 0x2e85->0x7ca2 ; "CONFIGURATION_NAME => " 6561 2e99 |. | .STRTAB 0x2e99->0x7cad ; "other" 6562 2e9c |. | .STRTAB 0x2e9c->0x7cb0 ; "OTHER" 6563 2e9f |. | .STRTAB 0x2e9f->0x7cb2 ; "inquiry" 6564 2ea4 |. | .STRTAB 0x2ea4->0x7cb6 ; "INQUIRY" 6565 2ea9 |. | .STRTAB 0x2ea9->0x7cb9 ; "problem" 6566 2eae |. | .STRTAB 0x2eae->0x7cbd ; "PROBLEM" 6567 2eb3 |. | .STRTAB 0x2eb3->0x7cc0 ; "suggestion" 6568 2ebb |. | .STRTAB 0x2ebb->0x7cc5 ; "SUGGESTION" 6569 2ec3 |. | .STRTAB 0x2ec3->0x7cca ; "REQUEST_TYPE => " 656a 2ed1 |. | .STRTAB 0x2ed1->0x7cd2 ; "urgent" 656b 2ed5 |. | .STRTAB 0x2ed5->0x7cd5 ; "URGENT" 656c 2ed9 |. | .STRTAB 0x2ed9->0x7cd8 ; "high" 656d 2edb |. | .STRTAB 0x2edb->0x7cda ; "HIGH" 656e 2edd |. | .STRTAB 0x2edd->0x7cdc ; "important" 656f 2ee4 |. | .STRTAB 0x2ee4->0x7ce1 ; "IMPORTANT" 6570 2eeb |. | .STRTAB 0x2eeb->0x7ce5 ; "scheduled" 6571 2ef2 |. | .STRTAB 0x2ef2->0x7cea ; "SCHEDULED" 6572 2ef9 |. | .STRTAB 0x2ef9->0x7cee ; "REQUEST_PRIORITY => " 6573 2f0b |/ | .STRTAB 0x2f0b->0x7cf8 ; "software" 6574 2f11 |/ | .STRTAB 0x2f11->0x7cfc ; "SOFTWARE" 6575 2f17 |/ | .STRTAB 0x2f17->0x7d00 ; "hardware" 6576 2f1d |/ | .STRTAB 0x2f1d->0x7d04 ; "HARDWARE" 6577 2f23 |/# | .STRTAB 0x2f23->0x7d08 ; "microcode" 6578 2f2a |/* | .STRTAB 0x2f2a->0x7d0d ; "MICROCODE" 6579 2f31 |/1 | .STRTAB 0x2f31->0x7d11 ; "diagnostics" 657a 2f3a |/: | .STRTAB 0x2f3a->0x7d17 ; "DIAGNOSTICS" 657b 2f43 |/C | .STRTAB 0x2f43->0x7d1c ; "document" 657c 2f49 |/I | .STRTAB 0x2f49->0x7d20 ; "DOCUMENT" 657d 2f4f |/O | .STRTAB 0x2f4f->0x7d24 ; "training" 657e 2f55 |/U | .STRTAB 0x2f55->0x7d28 ; "TRAINING" 657f 2f5b |/[ | .STRTAB 0x2f5b->0x7d2c ; "sims" 6580 2f5d |/] | .STRTAB 0x2f5d->0x7d2e ; "SIMS" 6581 2f5f |/_ | .STRTAB 0x2f5f->0x7d30 ; "GENERAL_CATEGORY => " 6582 2f71 |/q | .STRTAB 0x2f71->0x7d3a ; " Problem with config,type,priority,category..." 6583 2f9d |/ | .STRTAB 0x2f9d->0x7d51 ; "LOCAL_REPLY => " 6584 2faa |/ | .STRTAB 0x2faa->0x7d59 ; "REGION => " 6585 2fb2 |/ | .STRTAB 0x2fb2->0x7d5e ; " Problem with reply,region..." 6586 2fcd |/ | .STRTAB 0x2fcd->0x7d6c ; "PROBLEM_INFO => " 6587 2fdb |/ | .STRTAB 0x2fdb->0x7d74 ; "Internal Support Request" 6588 2ff1 |/ | .STRTAB 0x2ff1->0x7d80 ; "Auto Entry from Customer Support" 6589 300f |0 | .STRTAB 0x300f->0x7d90 ; " Problem with company,region special processing..." 658a 303f |0? | .STRTAB 0x303f->0x7da9 ; " Problem with summary fields..." 658b 305c |0\ | .STRTAB 0x305c->0x7db9 ; "? Problem in generating header portion for extract in ap_internal_transfer..." 658c 30a7 |0 | .STRTAB 0x30a7->0x7ddf ; "Queueing: \x22!users.sjf.sims.sims_lib\x22.Ap_Aa_Internal_Transfer(File_Spec => \x22X" 658d 30f1 |0 | .STRTAB 0x30f1->0x7e05 ; ");" 658e 30f1 |0 | .STRTAB 0x30f1->0x7e06 ; "$" 658f 30f0 |0 | .STRTAB 0x30f0->0x7e07 ; "\x22!users.sjf.sims.sims_lib\x22.Ap_Aa_Internal_Transfer(File_Spec => \x22X" 6590 3130 |10 | .STRTAB 0x3130->0x7e28 ; "[Report " 6591 3136 |16 | .STRTAB 0x3136->0x7e2c ; " forwarded to internal problem report queue.]" 6592 3161 |1a | .STRTAB 0x3161->0x7e42 ; "[ Network transfer started: " 6593 317c |1| | .STRTAB 0x317c->0x7e51 ; ".X" 6594 317c |1| | .STRTAB 0x317c->0x7e52 ; " ]" 6595 317c |1| | .STRTAB 0x317c->0x7e53 ; " Problem with transfer_attached, net queueing, close..." 6596 31b1 |1 | .STRTAB 0x31b1->0x7e6e ; " [Detail Text included for record: " 6597 31d3 |1 | .STRTAB 0x31d3->0x7e80 ; " [Couldn't open or read a detail for this record: " 6598 3204 |2 | .STRTAB 0x3204->0x7e9a ; "flder" 6599 3207 |2 | .STRTAB 0x3207->0x7e9c ; "Searching..." 659a 3211 |2 | .STRTAB 0x3211->0x7ea2 ; "Found #" 659b 3216 |2 | .STRTAB 0x3216->0x7ea6 ; "sims_log" 659c 321c |2 | .STRTAB 0x321c->0x7eaa ; "Any reports or log can be found as SIMS log files in your user area." 659d 325e |2^ | .STRTAB 0x325e->0x7ecc ; "Exception in ap_process_top_menu, Unable to close log file, other user active." 659e 32aa |2 | .STRTAB 0x32aa->0x7ef3 ; "Error finding 2nd detail, 1st detail had bad index for it." 659f 32e2 |2 | .STRTAB 0x32e2->0x7f10 ; "Adding new detail record." 65a0 32f9 |2 | .STRTAB 0x32f9->0x7f1c ; "Error, internal file error on reread 1st detail." 65a1 3327 |3' | .STRTAB 0x3327->0x7f34 ; "Exception found in ap_sub_add_detail_and_link_to_top." 65a2 335a |3Z | .STRTAB 0x335a->0x7f4f ; "Do you want to enter an additional page of detail? " 65a3 338b |3 | .STRTAB 0x338b->0x7f68 ; "Please enter a record index to find:" 65a4 33ad |3 | .STRTAB 0x33ad->0x7f7a ; "Deleted or non-existent record encountered, index= " 65a5 33de |3 | .STRTAB 0x33de->0x7f94 ; "Exception found in ap_sub_find_item" 65a6 33ff |3 | .STRTAB 0x33ff->0x7fa5 ; " [No detail for this record: " 65a7 341b |4 | .STRTAB 0x341b->0x7fb4 ; "<Continued Part " 65a8 3429 |4) | .STRTAB 0x3429->0x7fbc ; "? Problem in generating 2nd header portion for extract in ap_display_file." 65a9 3471 |4q | .STRTAB 0x3471->0x7fe1 ; "Is this the desired report to edit? y=yes, n=no " 65aa 349f |4 | .STRTAB 0x349f->0x7ff9 ; "Result => Edit session ended. " 65ab 34bb |4 | .STRTAB 0x34bb->0x8008 ; "erusr" 65ac 34be |4 | .STRTAB 0x34be->0x800b ; "Save this report into the file? y=yes, n=abort" 65ad 34ea |4 | .STRTAB 0x34ea->0x8022 ; "Result => Report not updated to file. " 65ae 350e |5 | .STRTAB 0x350e->0x8035 ; "Record written ok: # " 65af 3521 |5! | .STRTAB 0x3521->0x803f ; "Result => Error, report not written, index= " 65b0 354b |5K | .STRTAB 0x354b->0x8055 ; "Exception found in ap_sub_modify_existing" 65b1 3572 |5r | .STRTAB 0x3572->0x806a ; " [Editing existing detail for record: " 65b2 3597 |5 | .STRTAB 0x3597->0x807d ; " [Generating new detail for record: " 65b3 35ba |5 | .STRTAB 0x35ba->0x8090 ; "detail_master" 65b4 35c5 |5 | .STRTAB 0x35c5->0x8096 ; "Describe the problem or request, including what was done," 65b5 35fc |5 | .STRTAB 0x35fc->0x80b3 ; " what you expected, and what actually happened. You" 65b6 3631 |61 | .STRTAB 0x3631->0x80ce ; " can region copy and include text from other windows." 65b7 3666 |6f | .STRTAB 0x3666->0x80ea ; " End all detail text input with an End_of_Input [Control Meta F-19] or /" 65b8 36ae |6 | .STRTAB 0x36ae->0x810f ; "Please commit text window before going on: OK to go on? y=yes" 65b9 36e9 |6 | .STRTAB 0x36e9->0x812d ; " [Please Object X commit the new edit window when done editing: ]" 65ba 3729 |7) | .STRTAB 0x3729->0x814e ; " [File: " 65bb 373f |7? | .STRTAB 0x373f->0x815a ; "]..." 65bc 3741 |7A | .STRTAB 0x3741->0x815c ; " (new) " 65bd 3746 |7F | .STRTAB 0x3746->0x8160 ; "Ok to save this report into the file? y=ok, n=abort" 65be 3777 |7w | .STRTAB 0x3777->0x8179 ; "Result => Report not added to file. " 65bf 3799 |7 | .STRTAB 0x3799->0x818b ; "Result => Open error on master file, may not exist, index= " 65c0 37d2 |7 | .STRTAB 0x37d2->0x81a9 ; "Please notify Customer Support of add file open problem." 65c1 3808 |8 | .STRTAB 0x3808->0x81c5 ; "Database Updated, record # " 65c2 3821 |8! | .STRTAB 0x3821->0x81d2 ; "Result => Error, record not written, index= " 65c3 384b |8K | .STRTAB 0x384b->0x81e8 ; "Do you want to retry to write this report again? " 65c4 387a |8z | .STRTAB 0x387a->0x8201 ; "Retrying to try to recover from file update error." 65c5 38aa |8 | .STRTAB 0x38aa->0x821a ; "Exception found in ap_sub_add_new_item" 65c6 38ce |8 | .STRTAB 0x38ce->0x822d ; "Detail deleted ok." 65c7 38de |8 | .STRTAB 0x38de->0x8236 ; "Search selection for field to search on:" 65c8 3904 |9 | .STRTAB 0x3904->0x824a ; "Enter desired field number to search on:(0 to see choices) " 65c9 393d |9= | .STRTAB 0x393d->0x8267 ; "Please enter search text to search for in this field:[" 65ca 3971 |9q | .STRTAB 0x3971->0x8282 ; "]:" 65cb 3971 |9q | .STRTAB 0x3971->0x8283 ; "Search from:" 65cc 397b |9{ | .STRTAB 0x397b->0x8289 ; ", field: " 65cd 3982 |9 | .STRTAB 0x3982->0x828e ; ", Match: " 65ce 3989 |9 | .STRTAB 0x3989->0x8292 ; "No match found." 65cf 3996 |9 | .STRTAB 0x3996->0x829a ; "se no" 65d0 3999 |9 | .STRTAB 0x3999->0x829c ; "Exception found in ap_sub_search_for_item" 65d1 39c0 |9 | .STRTAB 0x39c0->0x82b1 ; "Please enter a password before initializing the master file:" 65d2 39fa |9 | .STRTAB 0x39fa->0x82cf ; "Result => Sorry, incorrect password, file not initialized." 65d3 3a32 |:2 | .STRTAB 0x3a32->0x82ec ; "Do you want records to be logged to the log file?" 65d4 3a61 |:a | .STRTAB 0x3a61->0x8304 ; "Do you want to display records on the crt?" 65d5 3a89 |: | .STRTAB 0x3a89->0x8319 ; "Scanning database to count occurrences of selected items." 65d6 3ac0 |: | .STRTAB 0x3ac0->0x8336 ; "Record Selection Criteria:" 65d7 3ad8 |: | .STRTAB 0x3ad8->0x8343 ; "Display or Report completed." 65d8 3af2 |: | .STRTAB 0x3af2->0x8351 ; " Index for " 65d9 3afe |: | .STRTAB 0x3afe->0x8358 ; " __________" 65da 3b0a |; | .STRTAB 0x3b0a->0x835f ; "Index Display completed." 65db 3b20 |; | .STRTAB 0x3b20->0x836b ; " . " 65dc 3b22 |;" | .STRTAB 0x3b22->0x836d ; "xwz" 65dd 3b23 |;# | .STRTAB 0x3b23->0x836e ; "Enter Field " 65de 3b2d |;- | .STRTAB 0x3b2d->0x8374 ; "-default-" 65df 3b34 |;4 | .STRTAB 0x3b34->0x8379 ; "01234567890123456789" 65e0 3b46 |;F | .STRTAB 0x3b46->0x8383 ; "Error in field " 65e1 3b53 |;S | .STRTAB 0x3b53->0x838a ; "Help1 for field " 65e2 3b61 |;a | .STRTAB 0x3b61->0x8392 ; "Help2 for field " 65e3 3b6f |;o | .STRTAB 0x3b6f->0x839a ; "[Or: Help= ? Up= ^ Top= , Select= . Exit= / (then promote)]" 65e4 3bb5 |; | .STRTAB 0x3bb5->0x83be ; "Field " 65e5 3bb9 |; | .STRTAB 0x3bb9->0x83c1 ; ": " 65e6 3bb9 |; | .STRTAB 0x3bb9->0x83c2 ; "null" 65e7 3bbb |; | .STRTAB 0x3bbb->0x83c4 ; "data" 65e8 3bbd |; | .STRTAB 0x3bbd->0x83c6 ; "Exception occurred in ap_init_record_defaults." 65e9 3be9 |; | .STRTAB 0x3be9->0x83dd ; "______ ..." 65ea 3bf1 |; | .STRTAB 0x3bf1->0x83e2 ; " ----------------------------------------" 65eb 3c18 |< | .STRTAB 0x3c18->0x83f7 ; " [No detail to print for this record: " 65ec 3c3d |<= | .STRTAB 0x3c3d->0x840a ; "XX0000000000" 65ed 3c47 |<G | .STRTAB 0x3c47->0x8410 ; "Do you want to re-edit any fields? " 65ee 3c68 |<h | .STRTAB 0x3c68->0x8422 ; "Edit Valid Choices for " 65ef 3c7d |<} | .STRTAB 0x3c7d->0x842d ; "Exception in ap_edit_item_validate_update." 65f0 3ca5 |< | .STRTAB 0x3ca5->0x8442 ; "Exception occurred in ap_record." 65f1 3cc3 |< | .STRTAB 0x3cc3->0x8452 ; "[Error detected in ap_record_get_field. May cause exception.]" 65f2 3cff |< | .STRTAB 0x3cff->0x8471 ; "[Detected user parameter field size error - too small.]" 65f3 3d34 |=4 | .STRTAB 0x3d34->0x848d ; "[To correct the problem, increase size of field parameter.]" 65f4 3d6d |=m | .STRTAB 0x3d6d->0x84aa ; " Field number in error: " 65f5 3d84 |= | .STRTAB 0x3d84->0x84b7 ; ", Param num: " 65f6 3d90 |= | .STRTAB 0x3d90->0x84be ; ", field string: >" 65f7 3da0 |= | .STRTAB 0x3da0->0x84c7 ; "<, size: " 65f8 3da7 |= | .STRTAB 0x3da7->0x84cb ; "Exception in ap_copy_field." 65f9 3dc0 |= | .STRTAB 0x3dc0->0x84d9 ; "Exception in saving attribute data to _at file" 65fa 3dec |= | .STRTAB 0x3dec->0x84f0 ; "Error in the system id parameter, Must be 6 characters." 65fb 3e21 |>! | .STRTAB 0x3e21->0x850b ; "cust_ids_master" 65fc 3e2e |>. | .STRTAB 0x3e2e->0x8513 ; "Could not find sys id in cross ref/and/or no mail file." 65fd 3e63 |>c | .STRTAB 0x3e63->0x852e ; "[Default option file read.]" 65fe 3e7c |>| | .STRTAB 0x3e7c->0x853c ; "[Default option file too short.]" 65ff 3e9a |> | .STRTAB 0x3e9a->0x854c ; "N" 6600 3e99 |> | .STRTAB 0x3e99->0x854c ; "[Default option file bad data, not y/n.]" 6601 3ebf |> | .STRTAB 0x3ebf->0x8560 ; "[Default option file has too few options set.]" 6602 3eeb |> | .STRTAB 0x3eeb->0x8577 ; "[Default option file saved ok.]" 6603 3f08 |? | .STRTAB 0x3f08->0x8587 ; "[Error, Couldn't save option file.]" 6604 3f29 |?) | .STRTAB 0x3f29->0x8598 ; " Found no new user input files to process." 6605 3f52 |?R | .STRTAB 0x3f52->0x85ae ; "Exiting Program." 6606 3f60 |?` | .STRTAB 0x3f60->0x85b6 ; "Detail information is now accessed via Dispatch main menu only." 6607 3f9d |? | .STRTAB 0x3f9d->0x85d5 ; "Extracting databases for external Report Package." 6608 3fcc |? | .STRTAB 0x3fcc->0x85ee ; "Entering Summary Report Generator for immediate reports." 6609 4002 |@ | .STRTAB 0x4002->0x860a ; "Help screen not yet completely loaded into parameters." 660a 4036 |@6 | .STRTAB 0x4036->0x8625 ; "Testing new code fragments - none currently under test." 660b 406b |@k | .STRTAB 0x406b->0x8640 ; "sims_options" 660c 4075 |@u | .STRTAB 0x4075->0x8646 ; "YnYYYYYnYYYnnnn" 660d 4082 |@ | .STRTAB 0x4082->0x864e ; "Invalid top menu input command." 660e 409f |@ | .STRTAB 0x409f->0x865d ; "Finding current record index." 660f 40ba |@ | .STRTAB 0x40ba->0x866c ; "Finding next record index." 6610 40d2 |@ | .STRTAB 0x40d2->0x8679 ; "Finding prior item record index." 6611 40f0 |@ | .STRTAB 0x40f0->0x8689 ; "Finding previous record item last displayed." 6612 411a |A | .STRTAB 0x411a->0x869f ; "Logging all screens to log file." 6613 4138 |A8 | .STRTAB 0x4138->0x86af ; "Logging all report records to log file." 6614 415d |A] | .STRTAB 0x415d->0x86c2 ; "Showing last record added to file." 6615 417d |A} | .STRTAB 0x417d->0x86d3 ; "Printing current report to log file." 6616 419f |A | .STRTAB 0x419f->0x86e5 ; "Index display of all or selected database items." 6617 41cd |A | .STRTAB 0x41cd->0x86fd ; "Send a selected Dispatch Report to Development." 6618 41fa |A | .STRTAB 0x41fa->0x8715 ; "to_dev_sw" 6619 4201 |B | .STRTAB 0x4201->0x8719 ; "Send this request to development? y=yes n=no" 661a 422b |B+ | .STRTAB 0x422b->0x872f ; "Send a Support Request to Development:" 661b 424f |BO | .STRTAB 0x424f->0x8742 ; "Showing or Reporting all or selected database items." 661c 4281 |B | .STRTAB 0x4281->0x875c ; "Loading Customer Support Request Tape." 661d 42a5 |B | .STRTAB 0x42a5->0x876f ; "Generate a Dispatch report from specific System ID: [000000]: " 661e 42e1 |B | .STRTAB 0x42e1->0x878e ; "Please use a specific 6 digit System ID, zero is not valid." 661f 431a |C | .STRTAB 0x431a->0x87ac ; "Please use exactly 6 digits for a System ID to match." 6620 434d |CM | .STRTAB 0x434d->0x87c6 ; "Close an existing Support Request." 6621 436d |Cm | .STRTAB 0x436d->0x87d7 ; "closed" 6622 4371 |Cq | .STRTAB 0x4371->0x87da ; "Close this request? y=yes n=no" 6623 438d |C | .STRTAB 0x438d->0x87e9 ; "Select a Support Request to close:" 6624 43ad |C | .STRTAB 0x43ad->0x87fa ; "Delete an existing request." 6625 43c6 |C | .STRTAB 0x43c6->0x8808 ; "Exiting Sub Menu." 6626 43d5 |C | .STRTAB 0x43d5->0x8810 ; "Exception occurred in Ap_process_sub_menu." 6627 43fd |C | .STRTAB 0x43fd->0x8825 ; "Error, a detail index link in a record was invalid," 6628 442e |D. | .STRTAB 0x442e->0x883f ; "Recovering from index error, searching to find detail & fix it." 6629 446b |Dk | .STRTAB 0x446b->0x885e ; "Error - Had error copying blank detail form file, continuing." 662a 44a6 |D | .STRTAB 0x44a6->0x887d ; " [Edit completed for Detail Text for record: " 662b 44d2 |D | .STRTAB 0x44d2->0x8894 ; "Error, Problem in inline editing of attached detail text for this report." 662c 4519 |E | .STRTAB 0x4519->0x88b8 ; "Error attempting to write detail file: " 662d 453e |E> | .STRTAB 0x453e->0x88cc ; " [Detail text edited ok for record: " 662e 4561 |Ea | .STRTAB 0x4561->0x88de ; " [Error in completing edit for Detail Text for: " 662f 4590 |E | .STRTAB 0x4590->0x88f7 ; "Error: Couldn't access log file, Diagnosis:" 6630 45b9 |E | .STRTAB 0x45b9->0x890c ; " Possibly another job on same session using same log file." 6631 45f3 |E | .STRTAB 0x45f3->0x892a ; "What do you want to do? Submit it, Abandon it, Re-Edit it: [S]:" 6632 4631 |F1 | .STRTAB 0x4631->0x894a ; "R" 6633 4630 |F0 | .STRTAB 0x4630->0x894b ; "r" 6634 462f |F/ | .STRTAB 0x462f->0x894b ; "E" 6635 462e |F. | .STRTAB 0x462e->0x894c ; "e" 6636 462d |F- | .STRTAB 0x462d->0x894c ; "Error, Please enter one of the choices shown." 6637 4658 |FX | .STRTAB 0x4658->0x8963 ; "Invalid choice, this choice is larger than maximum size allowed for field." 6638 46a0 |F | .STRTAB 0x46a0->0x8988 ; "[" 6639 469f |F | .STRTAB 0x469f->0x8988 ; "Enter desired item no. to edit:" 663a 46bc |F | .STRTAB 0x46bc->0x8998 ; "1 " 663b 46bc |F | .STRTAB 0x46bc->0x8999 ; "Exception in loading attribute data from _at file" 663c 46eb |F | .STRTAB 0x46eb->0x89b1 ; "Error - Passed param username too small size." 663d 4716 |G | .STRTAB 0x4716->0x89c8 ; "Opening mail file for defaults: " 663e 4734 |G4 | .STRTAB 0x4734->0x89d8 ; "Error, found no mail file for this id/username." 663f 4761 |Ga | .STRTAB 0x4761->0x89ef ; "Error, did not find mail file for this id/username." 6640 4792 |G | .STREND 0x4792->0x8a09 6641 436f 6e73 |Cons| .STRTAB_STRINGS 8a09 0000 0000 | | .BLANK 0000[0x7] 8a10 ; -------------------------------------------------------------------------------------- 8a10 ; Debug Table 8a10 ; -------------------------------------------------------------------------------------- 8a10 0004 0000 | | .DEBUG4 0x0004,0x0000,0x1207,0x0000,0x0001,0x0000 8a16 0010 0000 | | .XXX[0x15] 8a18 000a e700 | | 8a1a 0004 0000 | | 8a1c 0006 0050 | P| 8a1e 0000 0010 | | 8a20 0000 0400 | | 8a22 0000 2200 | " | 8a24 0000 0010 | | 8a26 0000 00a4 | | 8a28 0000 2003 | | 8a2a 2570 |%p | 8a2b 0000 0000 | | .BLANK 0000[0x1b] 8a46 1000 0093 | | .XXX[0x24] 8a48 b40a 0030 | 0| 8a4a c000 0000 | | 8a4c 55b2 5c04 |U \ | 8a4e 0060 0002 | ` | 8a50 0000 0001 | | 8a52 5ce0 0001 |\ | 8a54 0000 0001 | | 8a56 c00a 0000 | | 8a58 0002 0000 | | 8a5a 0080 0000 | | 8a5c 0440 0000 | @ | 8a5e 0002 0000 | | 8a60 0014 8000 | | 8a62 0800 64b0 | d | 8a64 8000 0800 | | 8a66 64b2 8000 |d | 8a68 0800 64b4 | d | 8a6a 0000 0000 | | .BLANK 0000[0x15] 8a7f 0200 0012 | | .XXX[0x31] 8a81 7681 4006 |v @ | 8a83 1880 0000 | | 8a85 0ab6 4b80 | K | 8a87 800c 0000 | | 8a89 4000 0000 |@ | 8a8b 2b9c 0000 |+ | 8a8d 3000 0000 |0 | 8a8f 6801 4000 |h @ | 8a91 0000 4000 | @ | 8a93 0010 0000 | | 8a95 0088 0000 | | 8a97 0000 4000 | @ | 8a99 0002 9000 | | 8a9b 0180 0c97 | | 8a9d 9000 0180 | | 8a9f 0c97 d000 | | 8aa1 0180 0c98 | | 8aa3 1000 0180 | | 8aa5 0c98 4000 | @ | 8aa7 0000 0000 | | 8aa9 1000 0180 | | 8aab 0c98 9000 | | 8aad 0180 0c98 | | 8aaf c000 | | 8ab0 0000 0000 | | .BLANK 0000[0x8] 8ab8 0040 0002 | @ | .XXX[0x1f] 8aba 4ed0 2800 |N ( | 8abc c320 0000 | | 8abe 0156 c970 | V p| 8ac0 1001 8000 | | 8ac2 0800 0000 | | 8ac4 056a 0000 | j | 8ac6 2400 0000 |$ | 8ac8 1b00 2800 | ( | 8aca 0005 1000 | | 8acc 0002 0000 | | 8ace 0011 0000 | | 8ad0 0000 0800 | | 8ad2 0000 5200 | R | 8ad4 0110 0192 | | 8ad6 6000 |` | 8ad7 0000 0000 | | .BLANK 0000[0x1a] 8af1 0008 0000 | | .XXX[0x1f] 8af3 499a 0500 |I | 8af5 1866 0000 | f | 8af7 0028 a92e | ( .| 8af9 0200 3000 | 0 | 8afb 0100 0000 | | 8afd 00ad 4000 | @ | 8aff 04a0 0000 | | 8b01 0360 0500 | ` | 8b03 0000 a200 | | 8b05 0000 4000 | @ | 8b07 0002 2000 | | 8b09 0000 0100 | | 8b0b 0000 0a40 | @| 8b0d 0024 0032 | $ 2| 8b0f 6400 |d | 8b10 0000 0000 | | .BLANK 0000[0x1a] 8b2a 0001 0000 | | .XXX[0x31] 8b2c 0933 40a0 | 3@ | 8b2e 030d 0000 | | 8b30 0005 5b25 | [%| 8b32 c040 0600 | @ | 8b34 0020 0000 | | 8b36 0015 ce00 | | 8b38 0020 0000 | | 8b3a 0034 00a0 | 4 | 8b3c 0000 0020 | | 8b3e 0000 0800 | | 8b40 0000 4400 | D | 8b42 0000 0020 | | 8b44 0000 0148 | H| 8b46 0001 0006 | | 8b48 4d88 0000 |M | 8b4a c006 4be8 | K | 8b4c 0000 c006 | | 8b4e 4c08 0000 |L | 8b50 c006 4c20 | L | 8b52 0000 0000 | | 8b54 0008 0000 | | 8b56 c006 4c48 | LH| 8b58 0000 c006 | | 8b5a 4c60 |L` | 8b5b 0000 0000 | | .BLANK 0000[0x9] 8b64 2000 0127 | '| .XXX[0x1e] 8b66 6814 0061 |h a| 8b68 a800 0000 | | 8b6a ab64 b808 | d | 8b6c 00c0 0004 | | 8b6e 0000 0002 | | 8b70 b500 0013 | | 8b72 0000 000d | | 8b74 8014 0000 | | 8b76 0288 0000 | | 8b78 0100 0000 | | 8b7a 0880 0000 | | 8b7c 0004 0000 | | 8b7e 0029 0000 | ) | 8b80 9000 c990 | | 8b82 0000 0000 | | .BLANK 0000[0x1b] 8b9d 0400 0024 | $| .XXX[0x1e] 8b9f cd02 800c | | 8ba1 3600 0000 |6 | 8ba3 1454 9701 | T | 8ba5 0018 0000 | | 8ba7 8000 0000 | | 8ba9 56a0 0002 |V | 8bab 7000 0001 |p | 8bad d002 8000 | | 8baf 0051 0000 | Q | 8bb1 0020 0000 | | 8bb3 0110 0000 | | 8bb5 0000 8000 | | 8bb7 0005 2000 | | 8bb9 1300 1937 | 7| 8bbb 0000 0000 | | .BLANK 0000[0x1b] 8bd6 0080 0004 | | .XXX[0x3] 8bd8 9980 | | 8bd9 0000 0000 | | .BLANK 0000[0x27]