|
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]