|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15360 (0x3c00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1d80 | | .CONST 0x1d80 ; 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 8012 | | .CONST 0x8012 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0195 | | .CONST 0x0195 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005f | _ | .CONST 0x005f ; Number of locals
000b INIT_0008:
000b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
000d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
000f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0011 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
005c c249 | I | Store 0x1,0x49
005d 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
005f c212 | | Store 0x1,0x12
0060 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0062 c213 | | Store 0x1,0x13
0063 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0065 c214 | | Store 0x1,0x14
0066 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0068 c24a | J | Store 0x1,0x4a
0069 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
006b c216 | | Store 0x1,0x16
006c 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
006e c217 | | Store 0x1,0x17
006f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0071 c218 | | Store 0x1,0x18
0072 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0074 c219 | | Store 0x1,0x19
0075 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0077 c21a | | Store 0x1,0x1a
0078 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
007a c21b | | Store 0x1,0x1b
007b 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
007d c21c | | Store 0x1,0x1c
007e 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0080 c21d | | Store 0x1,0x1d
0081 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0083 c21e | | Store 0x1,0x1e
0084 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0086 c21f | | Store 0x1,0x1f
0087 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0089 c220 | | Store 0x1,0x20
008a 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
008c c221 | ! | Store 0x1,0x21
008d 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
008f c222 | " | Store 0x1,0x22
0090 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0092 c223 | # | Store 0x1,0x23
0093 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0095 c224 | $ | Store 0x1,0x24
0096 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
0098 c225 | % | Store 0x1,0x25
0099 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
009b c226 | & | Store 0x1,0x26
009c 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
009e c227 | ' | Store 0x1,0x27
009f 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
00a1 c228 | ( | Store 0x1,0x28
00a2 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
00a4 c229 | ) | Store 0x1,0x29
00a5 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
00a7 c22a | * | Store 0x1,0x2a
00a8 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
00aa c22b | + | Store 0x1,0x2b
00ab 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
00ad c22e | . | Store 0x1,0x2e
00ae 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
00b0 c22f | / | Store 0x1,0x2f
00b1 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
00b3 c230 | 0 | Store 0x1,0x30
00b4 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
00b6 c231 | 1 | Store 0x1,0x31
00b7 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated
00b9 c24c | L | Store 0x1,0x4c
00ba 029a 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Visible,Unelaborated
00bc c24d | M | Store 0x1,0x4d
00bd 029a 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call,Visible,Unelaborated
00bf c232 | 2 | Store 0x1,0x32
00c0 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated
00c2 c233 | 3 | Store 0x1,0x33
00c3 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated
00c5 c234 | 4 | Store 0x1,0x34
00c6 029a 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call,Visible,Unelaborated
00c8 c235 | 5 | Store 0x1,0x35
00c9 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated
00cb c236 | 6 | Store 0x1,0x36
00cc 029a 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Visible,Unelaborated
00ce c237 | 7 | Store 0x1,0x37
00cf 029a 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Visible,Unelaborated
00d1 c257 | W | Store 0x1,0x57
00d2 029a 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call,Visible,Unelaborated
00d4 c250 | P | Store 0x1,0x50
00d5 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated
00d7 c239 | 9 | Store 0x1,0x39
00d8 029a 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call,Visible,Unelaborated
00da c23a | : | Store 0x1,0x3a
00db 029a 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call,Visible,Unelaborated
00dd c252 | R | Store 0x1,0x52
00de 029a 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call,Visible,Unelaborated
00e0 c251 | Q | Store 0x1,0x51
00e1 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated
00e3 c23e | > | Store 0x1,0x3e
00e4 029a 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call,Visible,Unelaborated
00e6 c23f | ? | Store 0x1,0x3f
00e7 029a 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call,Visible,Unelaborated
00e9 c240 | @ | Store 0x1,0x40
00ea 029a 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call,Visible,Unelaborated
00ec c241 | A | Store 0x1,0x41
00ed 029a 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call,Visible,Unelaborated
00ef c242 | B | Store 0x1,0x42
00f0 029a 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call,Visible,Unelaborated
00f2 c243 | C | Store 0x1,0x43
00f3 029a 0b03 | | Declare_Subprogram INIT_0b00,For_Outer_Call,Visible,Unelaborated
00f5 c244 | D | Store 0x1,0x44
00f6 029a 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call,Visible,Unelaborated
00f8 c245 | E | Store 0x1,0x45
00f9 029a 0b9b | | Declare_Subprogram INIT_0b98,For_Outer_Call,Visible,Unelaborated
00fb c24f | O | Store 0x1,0x4f
00fc 029a 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call,Visible,Unelaborated
00fe c247 | G | Store 0x1,0x47
00ff 029a 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call,Visible,Unelaborated
0101 c255 | U | Store 0x1,0x55
0102 029a 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call,Visible,Unelaborated
0104 c253 | S | Store 0x1,0x53
0105 029a 0cab | | Declare_Subprogram INIT_0ca8,For_Outer_Call,Visible,Unelaborated
0107 c256 | V | Store 0x1,0x56
0108 00bf | | Action Accept_Activation
0109 0092 193d | =| Action Push_String_Extended,0x193d ; "\x1b]"
010b 0092 193e | >| Action Push_String_Extended,0x193e ; "\x07"
010d 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call
010f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0110 00c7 | | Action Elaborate_Subprogram
0111 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0112 00c7 | | Action Elaborate_Subprogram
0113 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0114 00c7 | | Action Elaborate_Subprogram
0115 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0116 00c7 | | Action Elaborate_Subprogram
0117 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0118 00c7 | | Action Elaborate_Subprogram
0119 1d12 | | Execute_Immediate Reference_Lex_1,0x12
011a 00c7 | | Action Elaborate_Subprogram
011b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
011c 00c7 | | Action Elaborate_Subprogram
011d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
011e 00c7 | | Action Elaborate_Subprogram
011f 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
0120 00c7 | | Action Elaborate_Subprogram
0121 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0122 00c7 | | Action Elaborate_Subprogram
0123 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0124 00c7 | | Action Elaborate_Subprogram
0125 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0126 00c7 | | Action Elaborate_Subprogram
0127 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0128 00c7 | | Action Elaborate_Subprogram
0129 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
012a 00c7 | | Action Elaborate_Subprogram
012b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
012c 00c7 | | Action Elaborate_Subprogram
012d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
012e 00c7 | | Action Elaborate_Subprogram
012f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0130 00c7 | | Action Elaborate_Subprogram
0131 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0132 00c7 | | Action Elaborate_Subprogram
0133 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0134 00c7 | | Action Elaborate_Subprogram
0135 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0136 00c7 | | Action Elaborate_Subprogram
0137 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0138 00c7 | | Action Elaborate_Subprogram
0139 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
013a 00c7 | | Action Elaborate_Subprogram
013b 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
013c 00c7 | | Action Elaborate_Subprogram
013d 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
013e 00c7 | | Action Elaborate_Subprogram
013f 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0140 00c7 | | Action Elaborate_Subprogram
0141 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0142 00c7 | | Action Elaborate_Subprogram
0143 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0144 00c7 | | Action Elaborate_Subprogram
0145 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0146 00c7 | | Action Elaborate_Subprogram
0147 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0148 00c7 | | Action Elaborate_Subprogram
0149 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
014a 00c7 | | Action Elaborate_Subprogram
014b 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
014c 00c7 | | Action Elaborate_Subprogram
014d 029d 0cf3 | | Declare_Subprogram INIT_0cf0,For_Outer_Call
014f 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0150 00c7 | | Action Elaborate_Subprogram
0151 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
0152 00c7 | | Action Elaborate_Subprogram
0153 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
0154 00c7 | | Action Elaborate_Subprogram
0155 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0156 00c7 | | Action Elaborate_Subprogram
0157 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0158 00c7 | | Action Elaborate_Subprogram
0159 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
015a 00c7 | | Action Elaborate_Subprogram
015b 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
015c 00c7 | | Action Elaborate_Subprogram
015d 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
015e 00c7 | | Action Elaborate_Subprogram
015f 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0160 00c7 | | Action Elaborate_Subprogram
0161 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0162 00c7 | | Action Elaborate_Subprogram
0163 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0164 00c7 | | Action Elaborate_Subprogram
0165 029d 0d3b | ;| Declare_Subprogram INIT_0d38,For_Outer_Call
0167 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0168 00c7 | | Action Elaborate_Subprogram
0169 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
016a 00c7 | | Action Elaborate_Subprogram
016b 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
016c 00c7 | | Action Elaborate_Subprogram
016d 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
016e 00c7 | | Action Elaborate_Subprogram
016f 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0170 00c7 | | Action Elaborate_Subprogram
0171 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
0172 00c7 | | Action Elaborate_Subprogram
0173 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
0174 00c7 | | Action Elaborate_Subprogram
0175 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0176 00c7 | | Action Elaborate_Subprogram
0177 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0178 00c7 | | Action Elaborate_Subprogram
0179 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
017a 00c7 | | Action Elaborate_Subprogram
017b 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
017c 00c7 | | Action Elaborate_Subprogram
017d 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
017e 00c7 | | Action Elaborate_Subprogram
017f 029d 0d83 | | Declare_Subprogram INIT_0d80,For_Outer_Call
0181 029d 0d93 | | Declare_Subprogram INIT_0d90,For_Outer_Call
0183 029d 0da3 | | Declare_Subprogram INIT_0da0,For_Outer_Call
0185 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0186 00c7 | | Action Elaborate_Subprogram
0187 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
0188 00c7 | | Action Elaborate_Subprogram
0189 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
018a 00c7 | | Action Elaborate_Subprogram
018b 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
018c 00c7 | | Action Elaborate_Subprogram
018d 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
018e 00c7 | | Action Elaborate_Subprogram
018f 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
0190 00c7 | | Action Elaborate_Subprogram
0191 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
0192 00c7 | | Action Elaborate_Subprogram
0193 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
0194 00c7 | | Action Elaborate_Subprogram
0195 BODY_0008:
0195 00bc | | Action Signal_Activated
0196 00bb | | Action Signal_Completion
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00ea | | Load_Encached Null_String_Cache
019c 00ea | | Load_Encached Null_String_Cache
019d 0092 193f | ?| Action Push_String_Extended,0x193f ; "Name:"
019f e001 | | Load 0x0,0x1
01a0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01a1 0092 1940 | @| Action Push_String_Extended,0x1940 ; ".New_File"
01a3 01cc | | Execute Vector,Catenate
01a4 0092 1941 | A| Action Push_String_Extended,0x1941 ; "File New Textfile"
01a6 4abd |J | Short_Literal 0x2bd
01a7 e002 | | Load 0x0,0x2
01a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4800 |H | Short_Literal 0x0
01b4 00db | | Load_Top At_Offset_3
01b5 e003 | | Load 0x0,0x3
01b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e001 | | Load 0x0,0x1
01bc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01bd 0f05 | | Execute_Immediate Equal,0x5
01be 7005 |p | Jump_Nonzero 0x1c4
01bf 0092 1942 | B| Action Push_String_Extended,0x1942 ; "The context must be a library or view to create an Ada unit."
01c1 e004 | | Load 0x0,0x4
01c2 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
01c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c4 e005 | | Load 0x0,0x5
01c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01c6 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00ea | | Load_Encached Null_String_Cache
01cc 00ea | | Load_Encached Null_String_Cache
01cd 00ea | | Load_Encached Null_String_Cache
01ce 00ea | | Load_Encached Null_String_Cache
01cf 00ea | | Load_Encached Null_String_Cache
01d0 00ea | | Load_Encached Null_String_Cache
01d1 0092 1943 | C| Action Push_String_Extended,0x1943 ; "File New World"
01d3 e001 | | Load 0x0,0x1
01d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01d5 0092 1944 | D| Action Push_String_Extended,0x1944 ; ".New_World"
01d7 01cc | | Execute Vector,Catenate
01d8 4abf |J | Short_Literal 0x2bf
01d9 480b |H | Short_Literal 0xb
01da e002 | | Load 0x0,0x2
01db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
01e5 e5fe | | Load 0x2,-0x2
01e6 4800 |H | Short_Literal 0x0
01e7 4800 |H | Short_Literal 0x0
01e8 e5ff | | Load 0x2,-0x1
01e9 e006 | | Load 0x0,0x6
01ea 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00ea | | Load_Encached Null_String_Cache
01f4 00ea | | Load_Encached Null_String_Cache
01f5 0092 1946 | F| Action Push_String_Extended,0x1946 ; "Directory Name:"
01f7 e001 | | Load 0x0,0x1
01f8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01f9 0092 1947 | G| Action Push_String_Extended,0x1947 ; ".New_Directory"
01fb 01cc | | Execute Vector,Catenate
01fc 0092 1948 | H| Action Push_String_Extended,0x1948 ; "File New Directory"
01fe 4ac0 |J | Short_Literal 0x2c0
01ff e002 | | Load 0x0,0x2
0200 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0201 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
020d 00ea | | Load_Encached Null_String_Cache
020e 4800 |H | Short_Literal 0x0
020f 4801 |H | Short_Literal 0x1
0210 e5ff | | Load 0x2,-0x1
0211 e006 | | Load 0x0,0x6
0212 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0213 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00ea | | Load_Encached Null_String_Cache
021c 00ea | | Load_Encached Null_String_Cache
021d 00ea | | Load_Encached Null_String_Cache
021e 00ea | | Load_Encached Null_String_Cache
021f 00ea | | Load_Encached Null_String_Cache
0220 0092 1949 | I| Action Push_String_Extended,0x1949 ; "!Model.R1000"
0222 e001 | | Load 0x0,0x1
0223 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0224 0092 194a | J| Action Push_String_Extended,0x194a ; ".New_Subsystem"
0226 01cc | | Execute Vector,Catenate
0227 0092 194b | K| Action Push_String_Extended,0x194b ; "File New Subsystem"
0229 4ac1 |J | Short_Literal 0x2c1
022a 480c |H | Short_Literal 0xc
022b e002 | | Load 0x0,0x2
022c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235 | 5 | .CONST 0x0235 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 00e1 | | Load_Encached Boolean_Cache
0234 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0235 BODY_0230:
0235 e5fe | | Load 0x2,-0x2
0236 6803 |h | Jump_Zero 0x23a
0237 4800 |H | Short_Literal 0x0
0238 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0239 7802 |x | Jump 0x23c
023a 4801 |H | Short_Literal 0x1
023b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
023c 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
023e 4800 |H | Short_Literal 0x0
023f 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0241 e5fb | | Load 0x2,-0x5
0242 e5fc | | Load 0x2,-0x4
0243 e402 | | Load 0x2,0x2
0244 00ea | | Load_Encached Null_String_Cache
0245 4800 |H | Short_Literal 0x0
0246 e5fd | | Load 0x2,-0x3
0247 e5ff | | Load 0x2,-0x1
0248 e007 | | Load 0x0,0x7
0249 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
024a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024b 0000 0000 | | .BLANK 0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259 | Y | .CONST 0x0259 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0255 e001 | | Load 0x0,0x1
0256 180f | | Execute Package,Field_Execute,Field_Number 0xf
0257 e008 | | Load 0x0,0x8
0258 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0259 BODY_0250:
0259 00ea | | Load_Encached Null_String_Cache
025a 00ea | | Load_Encached Null_String_Cache
025b 00ea | | Load_Encached Null_String_Cache
025c 00ea | | Load_Encached Null_String_Cache
025d e402 | | Load 0x2,0x2
025e e008 | | Load 0x0,0x8
025f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0260 0092 194e | N| Action Push_String_Extended,0x194e ; "New Working View"
0262 e402 | | Load 0x2,0x2
0263 00d8 | | Load_Top At_Offset_0
0264 e008 | | Load 0x0,0x8
0265 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0266 0092 194f | O| Action Push_String_Extended,0x194f ; "_Working"
0268 01cc | | Execute Vector,Catenate
0269 4ac2 |J | Short_Literal 0x2c2
026a 480d |H | Short_Literal 0xd
026b e002 | | Load 0x0,0x2
026c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026e 0000 0000 | | .XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275 | u | .CONST 0x0275 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 029f 0dcb | | Declare_Subprogram INIT_0dc8,For_Call
0275 BODY_0270:
0275 8402 | | Call 0x2,0x2
0276 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0281 | | .CONST 0x0281 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
027d e001 | | Load 0x0,0x1
027e 180f | | Execute Package,Field_Execute,Field_Number 0xf
027f e008 | | Load 0x0,0x8
0280 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0281 BODY_0278:
0281 00ea | | Load_Encached Null_String_Cache
0282 00ea | | Load_Encached Null_String_Cache
0283 00ea | | Load_Encached Null_String_Cache
0284 00ea | | Load_Encached Null_String_Cache
0285 0092 1950 | P| Action Push_String_Extended,0x1950 ; "New Spec View"
0287 e402 | | Load 0x2,0x2
0288 e008 | | Load 0x0,0x8
0289 180f | | Execute Package,Field_Execute,Field_Number 0xf
028a e402 | | Load 0x2,0x2
028b 00d8 | | Load_Top At_Offset_0
028c e008 | | Load 0x0,0x8
028d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028e 0092 1951 | Q| Action Push_String_Extended,0x1951 ; "_Spec"
0290 01cc | | Execute Vector,Catenate
0291 4ac3 |J | Short_Literal 0x2c3
0292 480e |H | Short_Literal 0xe
0293 e002 | | Load 0x0,0x2
0294 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0295 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0296 0000 0000 | | .XXX[0x2]
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 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
029d 4800 |H | Short_Literal 0x0
029e 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
02a0 e5fa | | Load 0x2,-0x6
02a1 4803 |H | Short_Literal 0x3
02a2 4800 |H | Short_Literal 0x0
02a3 e5fb | | Load 0x2,-0x5
02a4 600f |` | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x7fffffff}
02a5 4800 |H | Short_Literal 0x0
02a6 4800 |H | Short_Literal 0x0
02a7 4801 |H | Short_Literal 0x1
02a8 4800 |H | Short_Literal 0x0
02a9 0092 1952 | R| Action Push_String_Extended,0x1952 ; "<AUTO_GENERATE>"
02ab e5fd | | Load 0x2,-0x3
02ac 4801 |H | Short_Literal 0x1
02ad e5fc | | Load 0x2,-0x4
02ae 00ea | | Load_Encached Null_String_Cache
02af e5ff | | Load 0x2,-0x1
02b0 e5fe | | Load 0x2,-0x2
02b1 e007 | | Load 0x0,0x7
02b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02b3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c1 | | .CONST 0x02c1 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
02bd e001 | | Load 0x0,0x1
02be 180f | | Execute Package,Field_Execute,Field_Number 0xf
02bf e008 | | Load 0x0,0x8
02c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02c1 BODY_02b8:
02c1 00ea | | Load_Encached Null_String_Cache
02c2 00ea | | Load_Encached Null_String_Cache
02c3 00ea | | Load_Encached Null_String_Cache
02c4 00ea | | Load_Encached Null_String_Cache
02c5 00ea | | Load_Encached Null_String_Cache
02c6 e402 | | Load 0x2,0x2
02c7 e008 | | Load 0x0,0x8
02c8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02c9 e402 | | Load 0x2,0x2
02ca 00d8 | | Load_Top At_Offset_0
02cb e008 | | Load 0x0,0x8
02cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02cd 4ac4 |J | Short_Literal 0x2c4
02ce 480f |H | Short_Literal 0xf
02cf e002 | | Load 0x0,0x2
02d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd | | .CONST 0x02dd ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db 029f 0df3 | | Declare_Subprogram INIT_0df0,For_Call
02dd BODY_02d8:
02dd e5f8 | | Load 0x2,-0x8
02de 7002 |p | Jump_Nonzero 0x2e1
02df 8402 | | Call 0x2,0x2
02e0 4509 |E | Exit_Suprogram New_Top_Offset 0x9
02e1 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
02e3 4800 |H | Short_Literal 0x0
02e4 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
02e6 e5f9 | | Load 0x2,-0x7
02e7 4803 |H | Short_Literal 0x3
02e8 4800 |H | Short_Literal 0x0
02e9 e5f8 | | Load 0x2,-0x8
02ea e5fc | | Load 0x2,-0x4
02eb 6008 |` | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x7fffffff}
02ec e5ff | | Load 0x2,-0x1
02ed e5fe | | Load 0x2,-0x2
02ee e007 | | Load 0x0,0x7
02ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02f0 4509 |E | Exit_Suprogram New_Top_Offset 0x9
02f1 0000 0000 | | .XXX[0x3]
02f3 0000 | |
02f4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0301 | | .CONST 0x0301 ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0002 | | .CONST 0x0002 ; Number of locals
02fb INIT_02f8:
02fb 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
02fd e001 | | Load 0x0,0x1
02fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ff e008 | | Load 0x0,0x8
0300 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0301 BODY_02f8:
0301 00ea | | Load_Encached Null_String_Cache
0302 00ea | | Load_Encached Null_String_Cache
0303 00ea | | Load_Encached Null_String_Cache
0304 00ea | | Load_Encached Null_String_Cache
0305 00ea | | Load_Encached Null_String_Cache
0306 00ea | | Load_Encached Null_String_Cache
0307 e402 | | Load 0x2,0x2
0308 00d8 | | Load_Top At_Offset_0
0309 e008 | | Load 0x0,0x8
030a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
030b 4ac5 |J | Short_Literal 0x2c5
030c 4810 |H | Short_Literal 0x10
030d e002 | | Load 0x0,0x2
030e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0315 4800 |H | Short_Literal 0x0
0316 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0318 e5fd | | Load 0x2,-0x3
0319 e5ff | | Load 0x2,-0x1
031a e5fe | | Load 0x2,-0x2
031b e007 | | Load 0x0,0x7
031c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
031d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
031e 0000 0000 | | .XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00ea | | Load_Encached Null_String_Cache
0324 0092 1953 | S| Action Push_String_Extended,0x1953 ; "Enter library switch file name"
0326 00ea | | Load_Encached Null_String_Cache
0327 e001 | | Load 0x0,0x1
0328 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0329 0092 1954 | T| Action Push_String_Extended,0x1954 ; ".Compiler_Switches"
032b 01cc | | Execute Vector,Catenate
032c 0092 1955 | U| Action Push_String_Extended,0x1955 ; "New Switch File"
032e 4ac6 |J | Short_Literal 0x2c6
032f e002 | | Load 0x0,0x2
0330 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0331 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0332 0000 0000 | | .BLANK 0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00db | | Load_Top At_Offset_3
033c 6807 |h | Jump_Zero 0x344
033d 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
033f 4853 |HS | Short_Literal 0x53
0340 e5ff | | Load 0x2,-0x1
0341 e009 | | Load 0x0,0x9
0342 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0343 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0344 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0346 484c |HL | Short_Literal 0x4c
0347 e5ff | | Load 0x2,-0x1
0348 e009 | | Load 0x0,0x9
0349 181c | | Execute Package,Field_Execute,Field_Number 0x1c
034a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
034b 0000 0000 | | .BLANK 0000[0x5]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00ea | | Load_Encached Null_String_Cache
0354 00ea | | Load_Encached Null_String_Cache
0355 00ea | | Load_Encached Null_String_Cache
0356 00ea | | Load_Encached Null_String_Cache
0357 00ea | | Load_Encached Null_String_Cache
0358 00ea | | Load_Encached Null_String_Cache
0359 e00a | | Load 0x0,0xa
035a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
035b e001 | | Load 0x0,0x1
035c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
035d 0092 1956 | V| Action Push_String_Extended,0x1956 ; ".New_Activity"
035f 01cc | | Execute Vector,Catenate
0360 4ac7 |J | Short_Literal 0x2c7
0361 4835 |H5 | Short_Literal 0x35
0362 e002 | | Load 0x0,0x2
0363 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0364 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d | m | .CONST 0x036d ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b e00a | | Load 0x0,0xa
036c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036d BODY_0368:
036d e5fd | | Load 0x2,-0x3
036e 4602 |F | Jump_Case 0x3
036f 7805 |x | Jump 0x375 ; case 0x0
0370 7807 |x | Jump 0x378 ; case 0x1
0371 7800 |x | Jump 0x372 ; case 0x2
0372 4800 |H | Short_Literal 0x0
0373 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0374 7805 |x | Jump 0x37a
0375 4801 |H | Short_Literal 0x1
0376 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0377 7802 |x | Jump 0x37a
0378 4802 |H | Short_Literal 0x2
0379 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
037a e5fe | | Load 0x2,-0x2
037b 01db | | Execute Vector,Length
037c 680c |h | Jump_Zero 0x389
037d e5fe | | Load 0x2,-0x2
037e 0092 1957 | W| Action Push_String_Extended,0x1957 ; "<>"
0380 01df | | Execute Vector,Equal
0381 7007 |p | Jump_Nonzero 0x389
0382 4801 |H | Short_Literal 0x1
0383 0092 1958 | X| Action Push_String_Extended,0x1958 ; "nil"
0385 e5fe | | Load 0x2,-0x2
0386 e00b | | Load 0x0,0xb
0387 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0388 6809 |h | Jump_Zero 0x392
0389 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
038b 00d9 | | Load_Top At_Offset_1
038c e00a | | Load 0x0,0xa
038d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
038e e5ff | | Load 0x2,-0x1
038f e00a | | Load 0x0,0xa
0390 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0391 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0392 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0394 00d9 | | Load_Top At_Offset_1
0395 e5fe | | Load 0x2,-0x2
0396 e5ff | | Load 0x2,-0x1
0397 e00a | | Load 0x0,0xa
0398 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0399 4504 |E | Exit_Suprogram New_Top_Offset 0x4
039a 0000 0000 | | .BLANK 0000[0x6]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00ea | | Load_Encached Null_String_Cache
03a4 00ea | | Load_Encached Null_String_Cache
03a5 0092 1959 | Y| Action Push_String_Extended,0x1959 ; "Mailbox simple name:"
03a7 00ea | | Load_Encached Null_String_Cache
03a8 0092 195a | Z| Action Push_String_Extended,0x195a ; "New Mailbox"
03aa 4ac8 |J | Short_Literal 0x2c8
03ab e002 | | Load 0x0,0x2
03ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ae 0000 0000 | | .XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 e00c | | Load 0x0,0xc
03b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b5 e00c | | Load 0x0,0xc
03b6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03b7 00db | | Load_Top At_Offset_3
03b8 e00d | | Load 0x0,0xd
03b9 180d | | Execute Package,Field_Execute,Field_Number 0xd
03ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bb 0000 0000 | | .BLANK 0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00ea | | Load_Encached Null_String_Cache
03c4 00ea | | Load_Encached Null_String_Cache
03c5 00ea | | Load_Encached Null_String_Cache
03c6 00ea | | Load_Encached Null_String_Cache
03c7 00ea | | Load_Encached Null_String_Cache
03c8 00ea | | Load_Encached Null_String_Cache
03c9 00ea | | Load_Encached Null_String_Cache
03ca e001 | | Load 0x0,0x1
03cb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03cc 0092 195b | [| Action Push_String_Extended,0x195b ; ".New_Venture"
03ce 01cc | | Execute Vector,Catenate
03cf 4ac9 |J | Short_Literal 0x2c9
03d0 4811 |H | Short_Literal 0x11
03d1 e002 | | Load 0x0,0x2
03d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
03dd e5fd | | Load 0x2,-0x3
03de e5fe | | Load 0x2,-0x2
03df e5ff | | Load 0x2,-0x1
03e0 e00e | | Load 0x0,0xe
03e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e3 0000 0000 | | .BLANK 0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00ea | | Load_Encached Null_String_Cache
03ec 00ea | | Load_Encached Null_String_Cache
03ed 00ea | | Load_Encached Null_String_Cache
03ee 00ea | | Load_Encached Null_String_Cache
03ef 00ea | | Load_Encached Null_String_Cache
03f0 00ea | | Load_Encached Null_String_Cache
03f1 00ea | | Load_Encached Null_String_Cache
03f2 e001 | | Load 0x0,0x1
03f3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03f4 0092 195c | \| Action Push_String_Extended,0x195c ; ".New_Work_Order"
03f6 01cc | | Execute Vector,Catenate
03f7 4aca |J | Short_Literal 0x2ca
03f8 4812 |H | Short_Literal 0x12
03f9 e002 | | Load 0x0,0x2
03fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0405 4801 |H | Short_Literal 0x1
0406 e5fd | | Load 0x2,-0x3
0407 e5fc | | Load 0x2,-0x4
0408 e5fe | | Load 0x2,-0x2
0409 e5ff | | Load 0x2,-0x1
040a e00e | | Load 0x0,0xe
040b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
040c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00ea | | Load_Encached Null_String_Cache
0414 00ea | | Load_Encached Null_String_Cache
0415 00ea | | Load_Encached Null_String_Cache
0416 00ea | | Load_Encached Null_String_Cache
0417 00ea | | Load_Encached Null_String_Cache
0418 00ea | | Load_Encached Null_String_Cache
0419 00ea | | Load_Encached Null_String_Cache
041a e001 | | Load 0x0,0x1
041b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
041c 0092 195d | ]| Action Push_String_Extended,0x195d ; ".New_Work_Order_List"
041e 01cc | | Execute Vector,Catenate
041f 4acb |J | Short_Literal 0x2cb
0420 4813 |H | Short_Literal 0x13
0421 e002 | | Load 0x0,0x2
0422 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0423 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
042d e5fd | | Load 0x2,-0x3
042e e5fe | | Load 0x2,-0x2
042f 00ea | | Load_Encached Null_String_Cache
0430 e5ff | | Load 0x2,-0x1
0431 e00e | | Load 0x0,0xe
0432 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0433 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00ea | | Load_Encached Null_String_Cache
043c 00ea | | Load_Encached Null_String_Cache
043d 00ea | | Load_Encached Null_String_Cache
043e 00ea | | Load_Encached Null_String_Cache
043f 00ea | | Load_Encached Null_String_Cache
0440 00ea | | Load_Encached Null_String_Cache
0441 00ea | | Load_Encached Null_String_Cache
0442 e001 | | Load 0x0,0x1
0443 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0444 0092 195e | ^| Action Push_String_Extended,0x195e ; ".New_System"
0446 01cc | | Execute Vector,Catenate
0447 4acc |J | Short_Literal 0x2cc
0448 4814 |H | Short_Literal 0x14
0449 e002 | | Load 0x0,0x2
044a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
044b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0455 4800 |H | Short_Literal 0x0
0456 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0458 00ea | | Load_Encached Null_String_Cache
0459 0092 195f | _| Action Push_String_Extended,0x195f ; "R1000"
045b 4801 |H | Short_Literal 0x1
045c 00ea | | Load_Encached Null_String_Cache
045d 4802 |H | Short_Literal 0x2
045e e5fe | | Load 0x2,-0x2
045f e5ff | | Load 0x2,-0x1
0460 e007 | | Load 0x0,0x7
0461 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0462 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0463 0000 0000 | | .BLANK 0000[0x5]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046f | o | .CONST 0x046f ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0003 | | .CONST 0x0003 ; Number of locals
046b INIT_0468:
046b 029f 0e2b | +| Declare_Subprogram INIT_0e28,For_Call
046d 029f 0e5b | [| Declare_Subprogram INIT_0e58,For_Call
046f BODY_0468:
046f e001 | | Load 0x0,0x1
0470 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0471 4610 |F | Jump_Case 0x11
0472 7810 |x | Jump 0x483 ; case 0x0
0473 782f |x/ | Jump 0x4a3 ; case 0x1
0474 782e |x. | Jump 0x4a3 ; case 0x2
0475 7814 |x | Jump 0x48a ; case 0x3
0476 781c |x | Jump 0x493 ; case 0x4
0477 7829 |x) | Jump 0x4a1 ; case 0x5
0478 781a |x | Jump 0x493 ; case 0x6
0479 7812 |x | Jump 0x48c ; case 0x7
047a 7811 |x | Jump 0x48c ; case 0x8
047b 7817 |x | Jump 0x493 ; case 0x9
047c 7816 |x | Jump 0x493 ; case 0xa
047d 7815 |x | Jump 0x493 ; case 0xb
047e 7814 |x | Jump 0x493 ; case 0xc
047f 780c |x | Jump 0x48c ; case 0xd
0480 7802 |x | Jump 0x483 ; case 0xe
0481 7801 |x | Jump 0x483 ; case 0xf
0482 7800 |x | Jump 0x483 ; case 0x10
0483 4801 |H | Short_Literal 0x1
0484 4800 |H | Short_Literal 0x0
0485 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
0487 e005 | | Load 0x0,0x5
0488 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0489 4501 |E | Exit_Suprogram New_Top_Offset 0x1
048a 8402 | | Call 0x2,0x2
048b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
048c 4801 |H | Short_Literal 0x1
048d 4800 |H | Short_Literal 0x0
048e 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
0490 e005 | | Load 0x0,0x5
0491 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0492 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0493 00ea | | Load_Encached Null_String_Cache
0494 00ea | | Load_Encached Null_String_Cache
0495 0092 193f | ?| Action Push_String_Extended,0x193f ; "Name:"
0497 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0499 e001 | | Load 0x0,0x1
049a 180f | | Execute Package,Field_Execute,Field_Number 0xf
049b 0092 1961 | a| Action Push_String_Extended,0x1961 ; "File Open"
049d 4ace |J | Short_Literal 0x2ce
049e e002 | | Load 0x0,0x2
049f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a1 8403 | | Call 0x2,0x3
04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a3 4801 |H | Short_Literal 0x1
04a4 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
04a6 e001 | | Load 0x0,0x1
04a7 180f | | Execute Package,Field_Execute,Field_Number 0xf
04a8 822f | / | Call 0x1,0x2f
04a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04aa 0000 0000 | | .BLANK 0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04bd | | .CONST 0x04bd ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0004 | | .CONST 0x0004 ; Number of locals
04b3 INIT_04b0:
04b3 e00f | | Load 0x0,0xf
04b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04b5 02c7 | | Declare_Variable Any
04b6 00d8 | | Load_Top At_Offset_0
04b7 1c00 | | Execute_Immediate Run_Utility,0x0
04b8 e001 | | Load 0x0,0x1
04b9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04ba e00f | | Load 0x0,0xf
04bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04bd BODY_04b0:
04bd e00f | | Load 0x0,0xf
04be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c0 00db | | Load_Top At_Offset_3
04c1 0120 | | Execute Any,Is_Value
04c2 6803 |h | Jump_Zero 0x4c6
04c3 e00f | | Load 0x0,0xf
04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c5 7801 |x | Jump 0x4c7
04c6 00db | | Load_Top At_Offset_3
04c7 6078 |`x | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
04c8 e010 | | Load 0x0,0x10
04c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ca e011 | | Load 0x0,0x11
04cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04cc e00f | | Load 0x0,0xf
04cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04cf e5ff | | Load 0x2,-0x1
04d0 e00f | | Load 0x0,0xf
04d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04d3 c402 | | Store 0x2,0x2
04d4 0059 | Y | Store_Top Discrete,At_Offset_1
04d5 00d8 | | Load_Top At_Offset_0
04d6 6816 |h | Jump_Zero 0x4ed
04d7 6068 |`h | Indirect_Literal Discrete,0x540,{0x00000000, 0x00004000}
04d8 e010 | | Load 0x0,0x10
04d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04da e011 | | Load 0x0,0x11
04db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04dc e012 | | Load 0x0,0x12
04dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04de 4801 |H | Short_Literal 0x1
04df 4800 |H | Short_Literal 0x0
04e0 e011 | | Load 0x0,0x11
04e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e2 e00f | | Load 0x0,0xf
04e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04e5 e5ff | | Load 0x2,-0x1
04e6 e404 | | Load 0x2,0x4
04e7 e00f | | Load 0x0,0xf
04e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e9 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
04ea e004 | | Load 0x0,0x4
04eb 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
04ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ed 00da | | Load_Top At_Offset_2
04ee e001 | | Load 0x0,0x1
04ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04f0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
04f1 00d9 | | Load_Top At_Offset_1
04f2 460f |F | Jump_Case 0x10
04f3 780f |x | Jump 0x503 ; case 0x0
04f4 7832 |x2 | Jump 0x527 ; case 0x1
04f5 7813 |x | Jump 0x509 ; case 0x2
04f6 7818 |x | Jump 0x50f ; case 0x3
04f7 780b |x | Jump 0x503 ; case 0x4
04f8 780a |x | Jump 0x503 ; case 0x5
04f9 7809 |x | Jump 0x503 ; case 0x6
04fa 7808 |x | Jump 0x503 ; case 0x7
04fb 7807 |x | Jump 0x503 ; case 0x8
04fc 7806 |x | Jump 0x503 ; case 0x9
04fd 7805 |x | Jump 0x503 ; case 0xa
04fe 7804 |x | Jump 0x503 ; case 0xb
04ff 7803 |x | Jump 0x503 ; case 0xc
0500 7802 |x | Jump 0x503 ; case 0xd
0501 7801 |x | Jump 0x503 ; case 0xe
0502 7800 |x | Jump 0x503 ; case 0xf
0503 4801 |H | Short_Literal 0x1
0504 4800 |H | Short_Literal 0x0
0505 e5ff | | Load 0x2,-0x1
0506 e005 | | Load 0x0,0x5
0507 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0508 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0509 4801 |H | Short_Literal 0x1
050a 4800 |H | Short_Literal 0x0
050b e5ff | | Load 0x2,-0x1
050c e005 | | Load 0x0,0x5
050d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
050e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
050f e5ff | | Load 0x2,-0x1
0510 e008 | | Load 0x0,0x8
0511 180e | | Execute Package,Field_Execute,Field_Number 0xe
0512 6806 |h | Jump_Zero 0x519
0513 4801 |H | Short_Literal 0x1
0514 4800 |H | Short_Literal 0x0
0515 e5ff | | Load 0x2,-0x1
0516 e005 | | Load 0x0,0x5
0517 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0518 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0519 00ea | | Load_Encached Null_String_Cache
051a 00ea | | Load_Encached Null_String_Cache
051b 00ea | | Load_Encached Null_String_Cache
051c 00ea | | Load_Encached Null_String_Cache
051d 00ea | | Load_Encached Null_String_Cache
051e 00ea | | Load_Encached Null_String_Cache
051f 0092 1962 | b| Action Push_String_Extended,0x1962 ; "File Open Check Out"
0521 e5ff | | Load 0x2,-0x1
0522 4aee |J | Short_Literal 0x2ee
0523 4820 |H | Short_Literal 0x20
0524 e002 | | Load 0x0,0x2
0525 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0526 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0527 e5ff | | Load 0x2,-0x1
0528 e008 | | Load 0x0,0x8
0529 180e | | Execute Package,Field_Execute,Field_Number 0xe
052a 6804 |h | Jump_Zero 0x52f
052b 00ea | | Load_Encached Null_String_Cache
052c e5ff | | Load 0x2,-0x1
052d 8231 | 1 | Call 0x1,0x31
052e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
052f 00ea | | Load_Encached Null_String_Cache
0530 00ea | | Load_Encached Null_String_Cache
0531 00ea | | Load_Encached Null_String_Cache
0532 00ea | | Load_Encached Null_String_Cache
0533 00ea | | Load_Encached Null_String_Cache
0534 00ea | | Load_Encached Null_String_Cache
0535 0092 1962 | b| Action Push_String_Extended,0x1962 ; "File Open Check Out"
0537 e5ff | | Load 0x2,-0x1
0538 4aee |J | Short_Literal 0x2ee
0539 4820 |H | Short_Literal 0x20
053a e002 | | Load 0x0,0x2
053b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
053c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
053d 0000 0000 | | .XXX[0x3]
053f 0000 | |
0540 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0544 0000 0000 | | .BLANK 0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b 00da | | Load_Top At_Offset_2
054c e008 | | Load 0x0,0x8
054d 180e | | Execute Package,Field_Execute,Field_Number 0xe
054e 700e |p | Jump_Nonzero 0x55d
054f 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0551 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0553 0092 1963 | c| Action Push_String_Extended,0x1963 ; "<TOMORROW>"
0555 4803 |H | Short_Literal 0x3
0556 4800 |H | Short_Literal 0x0
0557 4801 |H | Short_Literal 0x1
0558 4801 |H | Short_Literal 0x1
0559 00ea | | Load_Encached Null_String_Cache
055a e5ff | | Load 0x2,-0x1
055b e007 | | Load 0x0,0x7
055c 180d | | Execute Package,Field_Execute,Field_Number 0xd
055d 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
055f 4800 |H | Short_Literal 0x0
0560 0092 1964 | d| Action Push_String_Extended,0x1964 ; "<ALL_WORLDS>"
0562 4801 |H | Short_Literal 0x1
0563 e5ff | | Load 0x2,-0x1
0564 e013 | | Load 0x0,0x13
0565 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0566 00da | | Load_Top At_Offset_2
0567 825b | [ | Call 0x1,0x5b
0568 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0569 0000 0000 | | .BLANK 0000[0x7]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 058e | | .CONST 0x058e ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 000b | | .CONST 0x000b ; Number of locals
0573 INIT_0570:
0573 e00f | | Load 0x0,0xf
0574 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0575 02c7 | | Declare_Variable Any
0576 00d8 | | Load_Top At_Offset_0
0577 1c00 | | Execute_Immediate Run_Utility,0x0
0578 e001 | | Load 0x0,0x1
0579 1b14 | | Execute Package,Field_Read,Field_Number 0x14
057a e00f | | Load 0x0,0xf
057b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
057c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
057d 00e3 | | Load_Encached Natural_Cache
057e 03e9 | | Declare_Variable Discrete,Duplicate
057f 03e9 | | Declare_Variable Discrete,Duplicate
0580 e00f | | Load 0x0,0xf
0581 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0582 e00f | | Load 0x0,0xf
0583 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0584 02ff | | Declare_Variable Variant_Record
0585 00d8 | | Load_Top At_Offset_0
0586 1c00 | | Execute_Immediate Run_Utility,0x0
0587 00e1 | | Load_Encached Boolean_Cache
0588 4a00 |J | Short_Literal 0x200
0589 e014 | | Load 0x0,0x14
058a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
058b 1c08 | | Execute_Immediate Run_Utility,0x8
058c 00d8 | | Load_Top At_Offset_0
058d 1c00 | | Execute_Immediate Run_Utility,0x0
058e BODY_0570:
058e e00f | | Load 0x0,0xf
058f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0590 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0591 e402 | | Load 0x2,0x2
0592 0120 | | Execute Any,Is_Value
0593 6803 |h | Jump_Zero 0x597
0594 e00f | | Load 0x0,0xf
0595 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0596 7801 |x | Jump 0x598
0597 e402 | | Load 0x2,0x2
0598 60eb |` | Indirect_Literal Discrete,0x684,{0x00000000, 0x00004000}
0599 e010 | | Load 0x0,0x10
059a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
059b e011 | | Load 0x0,0x11
059c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
059d e00f | | Load 0x0,0xf
059e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
059f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05a0 e5ff | | Load 0x2,-0x1
05a1 e00f | | Load 0x0,0xf
05a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05a3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
05a4 c402 | | Store 0x2,0x2
05a5 c404 | | Store 0x2,0x4
05a6 e404 | | Load 0x2,0x4
05a7 6816 |h | Jump_Zero 0x5be
05a8 60db |` | Indirect_Literal Discrete,0x684,{0x00000000, 0x00004000}
05a9 e010 | | Load 0x0,0x10
05aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ab e011 | | Load 0x0,0x11
05ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ad e012 | | Load 0x0,0x12
05ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05af 4801 |H | Short_Literal 0x1
05b0 4800 |H | Short_Literal 0x0
05b1 e011 | | Load 0x0,0x11
05b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05b3 e00f | | Load 0x0,0xf
05b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05b6 e5ff | | Load 0x2,-0x1
05b7 e404 | | Load 0x2,0x4
05b8 e00f | | Load 0x0,0xf
05b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ba 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
05bb e004 | | Load 0x0,0x4
05bc 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
05bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05be e402 | | Load 0x2,0x2
05bf e001 | | Load 0x0,0x1
05c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c1 a403 | | Store_Unchecked 0x2,0x3
05c2 e403 | | Load 0x2,0x3
05c3 460f |F | Jump_Case 0x10
05c4 780f |x | Jump 0x5d4 ; case 0x0
05c5 782c |x, | Jump 0x5f2 ; case 0x1
05c6 780d |x | Jump 0x5d4 ; case 0x2
05c7 7812 |x | Jump 0x5da ; case 0x3
05c8 780b |x | Jump 0x5d4 ; case 0x4
05c9 780a |x | Jump 0x5d4 ; case 0x5
05ca 7809 |x | Jump 0x5d4 ; case 0x6
05cb 7808 |x | Jump 0x5d4 ; case 0x7
05cc 7807 |x | Jump 0x5d4 ; case 0x8
05cd 7806 |x | Jump 0x5d4 ; case 0x9
05ce 7805 |x | Jump 0x5d4 ; case 0xa
05cf 7804 |x | Jump 0x5d4 ; case 0xb
05d0 7803 |x | Jump 0x5d4 ; case 0xc
05d1 7802 |x | Jump 0x5d4 ; case 0xd
05d2 7801 |x | Jump 0x5d4 ; case 0xe
05d3 7800 |x | Jump 0x5d4 ; case 0xf
05d4 4801 |H | Short_Literal 0x1
05d5 4800 |H | Short_Literal 0x0
05d6 e5ff | | Load 0x2,-0x1
05d7 e005 | | Load 0x0,0x5
05d8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05da e5ff | | Load 0x2,-0x1
05db e008 | | Load 0x0,0x8
05dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
05dd 700e |p | Jump_Nonzero 0x5ec
05de 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
05e0 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
05e2 0092 1963 | c| Action Push_String_Extended,0x1963 ; "<TOMORROW>"
05e4 4803 |H | Short_Literal 0x3
05e5 4800 |H | Short_Literal 0x0
05e6 4801 |H | Short_Literal 0x1
05e7 4801 |H | Short_Literal 0x1
05e8 e5fe | | Load 0x2,-0x2
05e9 e5ff | | Load 0x2,-0x1
05ea e007 | | Load 0x0,0x7
05eb 180d | | Execute Package,Field_Execute,Field_Number 0xd
05ec 4801 |H | Short_Literal 0x1
05ed 4800 |H | Short_Literal 0x0
05ee e5ff | | Load 0x2,-0x1
05ef e005 | | Load 0x0,0x5
05f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05f2 e00f | | Load 0x0,0xf
05f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f4 00db | | Load_Top At_Offset_3
05f5 608e |` | Indirect_Literal Discrete,0x684,{0x00000000, 0x00004000}
05f6 e010 | | Load 0x0,0x10
05f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f8 4800 |H | Short_Literal 0x0
05f9 e402 | | Load 0x2,0x2
05fa e00f | | Load 0x0,0xf
05fb 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
05fc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05fd 00d1 | | Pop_Control Pop_Count_1
05fe c408 | | Store 0x2,0x8
05ff 00da | | Load_Top At_Offset_2
0600 e00f | | Load 0x0,0xf
0601 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0602 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0603 6803 |h | Jump_Zero 0x607
0604 4800 |H | Short_Literal 0x0
0605 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0606 7812 |x | Jump 0x619
0607 00e3 | | Load_Encached Natural_Cache
0608 00e3 | | Load_Encached Natural_Cache
0609 00e3 | | Load_Encached Natural_Cache
060a 4800 |H | Short_Literal 0x0
060b e5ff | | Load 0x2,-0x1
060c e015 | | Load 0x0,0x15
060d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
060e c405 | | Store 0x2,0x5
060f c406 | | Store 0x2,0x6
0610 c407 | | Store 0x2,0x7
0611 e405 | | Load 0x2,0x5
0612 0c01 | | Execute_Immediate Greater_Equal,0x1
0613 6803 |h | Jump_Zero 0x617
0614 4801 |H | Short_Literal 0x1
0615 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0616 7802 |x | Jump 0x619
0617 4800 |H | Short_Literal 0x0
0618 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0619 00d9 | | Load_Top At_Offset_1
061a 6852 |hR | Jump_Zero 0x66d
061b 00d8 | | Load_Top At_Offset_0
061c 0092 1965 | e| Action Push_String_Extended,0x1965 ; "Editing "
061e e5ff | | Load 0x2,-0x1
061f 01cc | | Execute Vector,Catenate
0620 0092 1966 | f| Action Push_String_Extended,0x1966 ; "\x5c will result in demotion of "
0622 01cc | | Execute Vector,Catenate
0623 e014 | | Load 0x0,0x14
0624 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0625 00d1 | | Pop_Control Pop_Count_1
0626 e405 | | Load 0x2,0x5
0627 0c01 | | Execute_Immediate Greater_Equal,0x1
0628 680d |h | Jump_Zero 0x636
0629 00d8 | | Load_Top At_Offset_0
062a 4820 |H | Short_Literal 0x20
062b 4800 |H | Short_Literal 0x0
062c 480a |H | Short_Literal 0xa
062d e405 | | Load 0x2,0x5
062e e00b | | Load 0x0,0xb
062f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0630 0092 1967 | g| Action Push_String_Extended,0x1967 ; " units\x5c"
0632 01cc | | Execute Vector,Catenate
0633 e014 | | Load 0x0,0x14
0634 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0635 00d1 | | Pop_Control Pop_Count_1
0636 e406 | | Load 0x2,0x6
0637 0f01 | | Execute_Immediate Equal,0x1
0638 6807 |h | Jump_Zero 0x640
0639 00d8 | | Load_Top At_Offset_0
063a 0092 1968 | h| Action Push_String_Extended,0x1968 ; "in 1 library, \x5c "
063c e014 | | Load 0x0,0x14
063d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
063e 00d1 | | Pop_Control Pop_Count_1
063f 7813 |x | Jump 0x653
0640 e406 | | Load 0x2,0x6
0641 0c02 | | Execute_Immediate Greater_Equal,0x2
0642 6810 |h | Jump_Zero 0x653
0643 00d8 | | Load_Top At_Offset_0
0644 0092 1969 | i| Action Push_String_Extended,0x1969 ; "in "
0646 4820 |H | Short_Literal 0x20
0647 4800 |H | Short_Literal 0x0
0648 480a |H | Short_Literal 0xa
0649 e406 | | Load 0x2,0x6
064a e00b | | Load 0x0,0xb
064b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
064c 01cc | | Execute Vector,Catenate
064d 0092 196a | j| Action Push_String_Extended,0x196a ; " libraries, \x5c "
064f 01cc | | Execute Vector,Catenate
0650 e014 | | Load 0x0,0x14
0651 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0652 00d1 | | Pop_Control Pop_Count_1
0653 00d8 | | Load_Top At_Offset_0
0654 0092 196b | k| Action Push_String_Extended,0x196b ; " demoting "
0656 4820 |H | Short_Literal 0x20
0657 4800 |H | Short_Literal 0x0
0658 480a |H | Short_Literal 0xa
0659 e407 | | Load 0x2,0x7
065a e00b | | Load 0x0,0xb
065b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
065c 01cc | | Execute Vector,Catenate
065d 0092 196c | l| Action Push_String_Extended,0x196c ; " lines in total. Ok?"
065f 01cc | | Execute Vector,Catenate
0660 e014 | | Load 0x0,0x14
0661 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0662 00d1 | | Pop_Control Pop_Count_1
0663 e5ff | | Load 0x2,-0x1
0664 00d9 | | Load_Top At_Offset_1
0665 e014 | | Load 0x0,0x14
0666 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0667 0092 196d | m| Action Push_String_Extended,0x196d ; "File Open, Demote?"
0669 4af0 |J | Short_Literal 0x2f0
066a e002 | | Load 0x0,0x2
066b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
066c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
066d e5ff | | Load 0x2,-0x1
066e e008 | | Load 0x0,0x8
066f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0670 700e |p | Jump_Nonzero 0x67f
0671 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0673 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0675 0092 1963 | c| Action Push_String_Extended,0x1963 ; "<TOMORROW>"
0677 4803 |H | Short_Literal 0x3
0678 4800 |H | Short_Literal 0x0
0679 4801 |H | Short_Literal 0x1
067a 4801 |H | Short_Literal 0x1
067b e5fe | | Load 0x2,-0x2
067c e5ff | | Load 0x2,-0x1
067d e007 | | Load 0x0,0x7
067e 180d | | Execute Package,Field_Execute,Field_Number 0xd
067f e5ff | | Load 0x2,-0x1
0680 825b | [ | Call 0x1,0x5b
0681 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0682 0000 0000 | | .XXX[0x2]
0684 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068f | | .CONST 0x068f ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b 0092 196e | n| Action Push_String_Extended,0x196e ; "<Selection>"
068d e001 | | Load 0x0,0x1
068e 180f | | Execute Package,Field_Execute,Field_Number 0xf
068f BODY_0688:
068f 00d8 | | Load_Top At_Offset_0
0690 0092 1957 | W| Action Push_String_Extended,0x1957 ; "<>"
0692 01df | | Execute Vector,Equal
0693 680e |h | Jump_Zero 0x6a2
0694 00ea | | Load_Encached Null_String_Cache
0695 00ea | | Load_Encached Null_String_Cache
0696 0092 193f | ?| Action Push_String_Extended,0x193f ; "Name:"
0698 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
069a e001 | | Load 0x0,0x1
069b 180f | | Execute Package,Field_Execute,Field_Number 0xf
069c 0092 196f | o| Action Push_String_Extended,0x196f ; "File Browse"
069e 4b02 |K | Short_Literal 0x302
069f e002 | | Load 0x0,0x2
06a0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06a2 00ea | | Load_Encached Null_String_Cache
06a3 00ea | | Load_Encached Null_String_Cache
06a4 0092 193f | ?| Action Push_String_Extended,0x193f ; "Name:"
06a6 e001 | | Load 0x0,0x1
06a7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
06a8 0092 196f | o| Action Push_String_Extended,0x196f ; "File Browse"
06aa 4b02 |K | Short_Literal 0x302
06ab e002 | | Load 0x0,0x2
06ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ae 0000 0000 | | .XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 4801 |H | Short_Literal 0x1
06b4 4800 |H | Short_Literal 0x0
06b5 e5ff | | Load 0x2,-0x1
06b6 e005 | | Load 0x0,0x5
06b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06b9 0000 0000 | | .BLANK 0000[0x7]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 e001 | | Load 0x0,0x1
06c4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06c5 4610 |F | Jump_Case 0x11
06c6 7810 |x | Jump 0x6d7 ; case 0x0
06c7 780f |x | Jump 0x6d7 ; case 0x1
06c8 780e |x | Jump 0x6d7 ; case 0x2
06c9 782c |x, | Jump 0x6f6 ; case 0x3
06ca 780c |x | Jump 0x6d7 ; case 0x4
06cb 7847 |xG | Jump 0x713 ; case 0x5
06cc 780a |x | Jump 0x6d7 ; case 0x6
06cd 7809 |x | Jump 0x6d7 ; case 0x7
06ce 7808 |x | Jump 0x6d7 ; case 0x8
06cf 7807 |x | Jump 0x6d7 ; case 0x9
06d0 7806 |x | Jump 0x6d7 ; case 0xa
06d1 7805 |x | Jump 0x6d7 ; case 0xb
06d2 781e |x | Jump 0x6f1 ; case 0xc
06d3 7803 |x | Jump 0x6d7 ; case 0xd
06d4 7802 |x | Jump 0x6d7 ; case 0xe
06d5 783d |x= | Jump 0x713 ; case 0xf
06d6 7800 |x | Jump 0x6d7 ; case 0x10
06d7 e001 | | Load 0x0,0x1
06d8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06d9 6812 |h | Jump_Zero 0x6ec
06da 00ea | | Load_Encached Null_String_Cache
06db 00ea | | Load_Encached Null_String_Cache
06dc 00ea | | Load_Encached Null_String_Cache
06dd 00ea | | Load_Encached Null_String_Cache
06de 00ea | | Load_Encached Null_String_Cache
06df 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
06e1 e001 | | Load 0x0,0x1
06e2 180f | | Execute Package,Field_Execute,Field_Number 0xf
06e3 0092 1970 | p| Action Push_String_Extended,0x1970 ; "Save Changes?"
06e5 0092 1971 | q| Action Push_String_Extended,0x1971 ; "File Close"
06e7 4acf |J | Short_Literal 0x2cf
06e8 4837 |H7 | Short_Literal 0x37
06e9 e002 | | Load 0x0,0x2
06ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ec 0092 1972 | r| Action Push_String_Extended,0x1972 ; "<image>"
06ee e005 | | Load 0x0,0x5
06ef 180d | | Execute Package,Field_Execute,Field_Number 0xd
06f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f1 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
06f3 e005 | | Load 0x0,0x5
06f4 180d | | Execute Package,Field_Execute,Field_Number 0xd
06f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f6 e001 | | Load 0x0,0x1
06f7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06f8 6812 |h | Jump_Zero 0x70b
06f9 00ea | | Load_Encached Null_String_Cache
06fa 00ea | | Load_Encached Null_String_Cache
06fb 00ea | | Load_Encached Null_String_Cache
06fc 00ea | | Load_Encached Null_String_Cache
06fd 00ea | | Load_Encached Null_String_Cache
06fe 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0700 e001 | | Load 0x0,0x1
0701 180f | | Execute Package,Field_Execute,Field_Number 0xf
0702 0092 1973 | s| Action Push_String_Extended,0x1973 ; "Send Message?"
0704 0092 1971 | q| Action Push_String_Extended,0x1971 ; "File Close"
0706 4acf |J | Short_Literal 0x2cf
0707 4837 |H7 | Short_Literal 0x37
0708 e002 | | Load 0x0,0x2
0709 1818 | | Execute Package,Field_Execute,Field_Number 0x18
070a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
070b e016 | | Load 0x0,0x16
070c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
070d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
070e 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
0710 e005 | | Load 0x0,0x5
0711 180d | | Execute Package,Field_Execute,Field_Number 0xd
0712 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0713 e001 | | Load 0x0,0x1
0714 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0715 e005 | | Load 0x0,0x5
0716 180d | | Execute Package,Field_Execute,Field_Number 0xd
0717 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00da | | Load_Top At_Offset_2
071c 6805 |h | Jump_Zero 0x722
071d 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
071f e005 | | Load 0x0,0x5
0720 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0721 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0722 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
0724 e005 | | Load 0x0,0x5
0725 180d | | Execute Package,Field_Execute,Field_Number 0xd
0726 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0727 0000 | | .XXX[0x1]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b e001 | | Load 0x0,0x1
072c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
072d 4610 |F | Jump_Case 0x11
072e 7810 |x | Jump 0x73f ; case 0x0
072f 780f |x | Jump 0x73f ; case 0x1
0730 780e |x | Jump 0x73f ; case 0x2
0731 7815 |x | Jump 0x747 ; case 0x3
0732 780c |x | Jump 0x73f ; case 0x4
0733 780b |x | Jump 0x73f ; case 0x5
0734 780a |x | Jump 0x73f ; case 0x6
0735 7809 |x | Jump 0x73f ; case 0x7
0736 7808 |x | Jump 0x73f ; case 0x8
0737 7807 |x | Jump 0x73f ; case 0x9
0738 7806 |x | Jump 0x73f ; case 0xa
0739 7805 |x | Jump 0x73f ; case 0xb
073a 7807 |x | Jump 0x742 ; case 0xc
073b 7803 |x | Jump 0x73f ; case 0xd
073c 7802 |x | Jump 0x73f ; case 0xe
073d 7801 |x | Jump 0x73f ; case 0xf
073e 7800 |x | Jump 0x73f ; case 0x10
073f e005 | | Load 0x0,0x5
0740 180f | | Execute Package,Field_Execute,Field_Number 0xf
0741 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0742 0092 1974 | t| Action Push_String_Extended,0x1974 ; "Command windows cannot be saved."
0744 e004 | | Load 0x0,0x4
0745 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0746 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0747 0092 1975 | u| Action Push_String_Extended,0x1975 ; "Mail windows cannot be saved. Use Send_Message to send."
0749 e004 | | Load 0x0,0x4
074a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
074b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
074c 0000 0000 | | .BLANK 0000[0x4]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 e001 | | Load 0x0,0x1
0754 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0755 4610 |F | Jump_Case 0x11
0756 7810 |x | Jump 0x767 ; case 0x0
0757 781f |x | Jump 0x777 ; case 0x1
0758 781e |x | Jump 0x777 ; case 0x2
0759 7817 |x | Jump 0x771 ; case 0x3
075a 7819 |x | Jump 0x774 ; case 0x4
075b 7815 |x | Jump 0x771 ; case 0x5
075c 7817 |x | Jump 0x774 ; case 0x6
075d 7816 |x | Jump 0x774 ; case 0x7
075e 7815 |x | Jump 0x774 ; case 0x8
075f 7807 |x | Jump 0x767 ; case 0x9
0760 7806 |x | Jump 0x767 ; case 0xa
0761 7805 |x | Jump 0x767 ; case 0xb
0762 7807 |x | Jump 0x76a ; case 0xc
0763 7803 |x | Jump 0x767 ; case 0xd
0764 7802 |x | Jump 0x767 ; case 0xe
0765 7801 |x | Jump 0x767 ; case 0xf
0766 7800 |x | Jump 0x767 ; case 0x10
0767 e005 | | Load 0x0,0x5
0768 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0769 4501 |E | Exit_Suprogram New_Top_Offset 0x1
076a 4801 |H | Short_Literal 0x1
076b 4800 |H | Short_Literal 0x0
076c 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
076e e005 | | Load 0x0,0x5
076f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0770 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0771 e005 | | Load 0x0,0x5
0772 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0773 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0774 e005 | | Load 0x0,0x5
0775 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0776 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0777 e001 | | Load 0x0,0x1
0778 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0779 6809 |h | Jump_Zero 0x783
077a 00ea | | Load_Encached Null_String_Cache
077b 0092 1976 | v| Action Push_String_Extended,0x1976 ; "Object is modified. Lose changes?"
077d 0092 1977 | w| Action Push_String_Extended,0x1977 ; "File Revert"
077f 4ad1 |J | Short_Literal 0x2d1
0780 e002 | | Load 0x0,0x2
0781 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0782 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0783 e005 | | Load 0x0,0x5
0784 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0785 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0786 0000 0000 | | .XXX[0x2]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b e005 | | Load 0x0,0x5
078c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
078d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
078e 0000 0000 | | .XXX[0x2]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793 | | .CONST 0x0793 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0001 | | .CONST 0x0001 ; Number of locals
0793 BODY_0790:
0793 INIT_0790:
0793 0092 1978 | x| Action Push_String_Extended,0x1978 ; "F"
0795 825c | \ | Call 0x1,0x5c
0796 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0797 0000 | | .XXX[0x1]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b 0092 1979 | y| Action Push_String_Extended,0x1979 ; "T"
079d 825c | \ | Call 0x1,0x5c
079e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
079f 0000 | | .XXX[0x1]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3 | | .CONST 0x07a3 ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 0001 | | .CONST 0x0001 ; Number of locals
07a3 BODY_07a0:
07a3 INIT_07a0:
07a3 4801 |H | Short_Literal 0x1
07a4 0092 197a | z| Action Push_String_Extended,0x197a ; "<CURRENT_WINDOW_CONTENTS>"
07a6 4820 |H | Short_Literal 0x20
07a7 e5ff | | Load 0x2,-0x1
07a8 e00b | | Load 0x0,0xb
07a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
07aa e00b | | Load 0x0,0xb
07ab 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
07ac 681a |h | Jump_Zero 0x7c7
07ad 4800 |H | Short_Literal 0x0
07ae e5fe | | Load 0x2,-0x2
07af 4801 |H | Short_Literal 0x1
07b0 e5f5 | | Load 0x2,-0xb
07b1 e5f9 | | Load 0x2,-0x7
07b2 4800 |H | Short_Literal 0x0
07b3 e5fb | | Load 0x2,-0x5
07b4 e5fa | | Load 0x2,-0x6
07b5 e5fc | | Load 0x2,-0x4
07b6 e5fd | | Load 0x2,-0x3
07b7 e5f6 | | Load 0x2,-0xa
07b8 00d8 | | Load_Top At_Offset_0
07b9 00e4 | | Load_Encached Positive_Cache
07ba 0260 | ` | Execute Discrete,In_Type
07bb 7001 |p | Jump_Nonzero 0x7bd
07bc 0801 | | Execute_Immediate Raise,0x1
07bd e5f7 | | Load 0x2,-0x9
07be 00d8 | | Load_Top At_Offset_0
07bf 00e4 | | Load_Encached Positive_Cache
07c0 0260 | ` | Execute Discrete,In_Type
07c1 7001 |p | Jump_Nonzero 0x7c3
07c2 0801 | | Execute_Immediate Raise,0x1
07c3 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
07c5 8017 | | Call 0x0,0x17
07c6 450c |E | Exit_Suprogram New_Top_Offset 0xc
07c7 4800 |H | Short_Literal 0x0
07c8 e5fe | | Load 0x2,-0x2
07c9 4801 |H | Short_Literal 0x1
07ca e5f5 | | Load 0x2,-0xb
07cb e5f9 | | Load 0x2,-0x7
07cc 4800 |H | Short_Literal 0x0
07cd e5fb | | Load 0x2,-0x5
07ce e5fa | | Load 0x2,-0x6
07cf e5fc | | Load 0x2,-0x4
07d0 e5fd | | Load 0x2,-0x3
07d1 e5f6 | | Load 0x2,-0xa
07d2 00d8 | | Load_Top At_Offset_0
07d3 00e4 | | Load_Encached Positive_Cache
07d4 0260 | ` | Execute Discrete,In_Type
07d5 7001 |p | Jump_Nonzero 0x7d7
07d6 0801 | | Execute_Immediate Raise,0x1
07d7 e5f7 | | Load 0x2,-0x9
07d8 00d8 | | Load_Top At_Offset_0
07d9 00e4 | | Load_Encached Positive_Cache
07da 0260 | ` | Execute Discrete,In_Type
07db 7001 |p | Jump_Nonzero 0x7dd
07dc 0801 | | Execute_Immediate Raise,0x1
07dd e5ff | | Load 0x2,-0x1
07de 8017 | | Call 0x0,0x17
07df 450c |E | Exit_Suprogram New_Top_Offset 0xc
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e5 | | .CONST 0x07e5 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0002 | | .CONST 0x0002 ; Number of locals
07e3 INIT_07e0:
07e3 029f 0e7b | {| Declare_Subprogram INIT_0e78,For_Call
07e5 BODY_07e0:
07e5 8402 | | Call 0x2,0x2
07e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07e7 0000 | | .XXX[0x1]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07f6 | | .CONST 0x07f6 ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0004 | | .CONST 0x0004 ; Number of locals
07eb INIT_07e8:
07eb e00f | | Load 0x0,0xf
07ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07ed 1b18 | | Execute Package,Field_Read,Field_Number 0x18
07ee 02c7 | | Declare_Variable Any
07ef 00d8 | | Load_Top At_Offset_0
07f0 1c00 | | Execute_Immediate Run_Utility,0x0
07f1 e00f | | Load 0x0,0xf
07f2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07f4 029f 0f7b | {| Declare_Subprogram INIT_0f78,For_Call
07f6 BODY_07e8:
07f6 e00f | | Load 0x0,0xf
07f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07f9 00db | | Load_Top At_Offset_3
07fa 6025 |`% | Indirect_Literal Discrete,0x820,{0x00000000, 0x00004000}
07fb e010 | | Load 0x0,0x10
07fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07fd e011 | | Load 0x0,0x11
07fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07ff e012 | | Load 0x0,0x12
0800 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0801 4801 |H | Short_Literal 0x1
0802 4800 |H | Short_Literal 0x0
0803 e011 | | Load 0x0,0x11
0804 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0805 e00f | | Load 0x0,0xf
0806 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0807 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0808 e5ff | | Load 0x2,-0x1
0809 e00f | | Load 0x0,0xf
080a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
080b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
080c c402 | | Store 0x2,0x2
080d 005a | Z | Store_Top Discrete,At_Offset_2
080e 00cf | | Action Mark_Auxiliary
080f 7807 |x | Jump 0x817
0810 8404 | | Call 0x2,0x4
0811 00db | | Load_Top At_Offset_3
0812 e00f | | Load 0x0,0xf
0813 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0814 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0815 c402 | | Store 0x2,0x2
0816 00c9 | | Action Pop_Auxiliary_Loop
0817 00db | | Load_Top At_Offset_3
0818 e00f | | Load 0x0,0xf
0819 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
081a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
081b 6ff4 |o | Jump_Zero 0x810
081c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
081d 0000 0000 | | .XXX[0x3]
081f 0000 | |
0820 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0824 0000 0000 | | .BLANK 0000[0x4]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082d | - | .CONST 0x082d ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0002 | | .CONST 0x0002 ; Number of locals
082b INIT_0828:
082b 029f 1063 | c| Declare_Subprogram INIT_1060,For_Call
082d BODY_0828:
082d 8402 | | Call 0x2,0x2
082e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
082f 0000 | | .XXX[0x1]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 083e | > | .CONST 0x083e ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0004 | | .CONST 0x0004 ; Number of locals
0833 INIT_0830:
0833 e00f | | Load 0x0,0xf
0834 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0835 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0836 02c7 | | Declare_Variable Any
0837 00d8 | | Load_Top At_Offset_0
0838 1c00 | | Execute_Immediate Run_Utility,0x0
0839 e00f | | Load 0x0,0xf
083a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
083b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
083c 029f 10a3 | | Declare_Subprogram INIT_10a0,For_Call
083e BODY_0830:
083e e00f | | Load 0x0,0xf
083f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0840 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0841 00db | | Load_Top At_Offset_3
0842 6025 |`% | Indirect_Literal Discrete,0x868,{0x00000000, 0x00004000}
0843 e010 | | Load 0x0,0x10
0844 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0845 e011 | | Load 0x0,0x11
0846 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0847 e012 | | Load 0x0,0x12
0848 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0849 4801 |H | Short_Literal 0x1
084a 4800 |H | Short_Literal 0x0
084b e011 | | Load 0x0,0x11
084c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
084d e00f | | Load 0x0,0xf
084e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
084f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0850 e5ff | | Load 0x2,-0x1
0851 e00f | | Load 0x0,0xf
0852 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0853 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0854 c402 | | Store 0x2,0x2
0855 005a | Z | Store_Top Discrete,At_Offset_2
0856 00cf | | Action Mark_Auxiliary
0857 7807 |x | Jump 0x85f
0858 8404 | | Call 0x2,0x4
0859 00db | | Load_Top At_Offset_3
085a e00f | | Load 0x0,0xf
085b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
085c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
085d c402 | | Store 0x2,0x2
085e 00c9 | | Action Pop_Auxiliary_Loop
085f 00db | | Load_Top At_Offset_3
0860 e00f | | Load 0x0,0xf
0861 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0862 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0863 6ff4 |o | Jump_Zero 0x858
0864 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0865 0000 0000 | | .XXX[0x3]
0867 0000 | |
0868 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
086c 0000 0000 | | .BLANK 0000[0x4]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0888 | | .CONST 0x0888 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0004 | | .CONST 0x0004 ; Number of locals
0873 INIT_0870:
0873 e00f | | Load 0x0,0xf
0874 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0875 02c7 | | Declare_Variable Any
0876 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0878 e001 | | Load 0x0,0x1
0879 1810 | | Execute Package,Field_Execute,Field_Number 0x10
087a a402 | | Store_Unchecked 0x2,0x2
087b e00f | | Load 0x0,0xf
087c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
087d 02c7 | | Declare_Variable Any
087e 0092 197b | {| Action Push_String_Extended,0x197b ; "<REGION>"
0880 e001 | | Load 0x0,0x1
0881 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0882 a403 | | Store_Unchecked 0x2,0x3
0883 e001 | | Load 0x0,0x1
0884 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0885 e001 | | Load 0x0,0x1
0886 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0887 03f1 | | Declare_Variable Discrete,With_Value
0888 BODY_0870:
0888 e001 | | Load 0x0,0x1
0889 181c | | Execute Package,Field_Execute,Field_Number 0x1c
088a 0f03 | | Execute_Immediate Equal,0x3
088b 6804 |h | Jump_Zero 0x890
088c e005 | | Load 0x0,0x5
088d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
088e 180e | | Execute Package,Field_Execute,Field_Number 0xe
088f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0890 00da | | Load_Top At_Offset_2
0891 e00f | | Load 0x0,0xf
0892 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0893 7031 |p1 | Jump_Nonzero 0x8c5
0894 00d9 | | Load_Top At_Offset_1
0895 e00f | | Load 0x0,0xf
0896 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0897 7018 |p | Jump_Nonzero 0x8b0
0898 00d9 | | Load_Top At_Offset_1
0899 00db | | Load_Top At_Offset_3
089a 012e | . | Execute Any,Not_Equal
089b 6814 |h | Jump_Zero 0x8b0
089c 00ea | | Load_Encached Null_String_Cache
089d 00ea | | Load_Encached Null_String_Cache
089e 00ea | | Load_Encached Null_String_Cache
089f 00ea | | Load_Encached Null_String_Cache
08a0 00ea | | Load_Encached Null_String_Cache
08a1 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
08a3 e001 | | Load 0x0,0x1
08a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
08a5 0092 197b | {| Action Push_String_Extended,0x197b ; "<REGION>"
08a7 e001 | | Load 0x0,0x1
08a8 180f | | Execute Package,Field_Execute,Field_Number 0xf
08a9 0092 197c | || Action Push_String_Extended,0x197c ; "File Copy"
08ab 4ad4 |J | Short_Literal 0x2d4
08ac 4819 |H | Short_Literal 0x19
08ad e002 | | Load 0x0,0x2
08ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08b0 00ea | | Load_Encached Null_String_Cache
08b1 00ea | | Load_Encached Null_String_Cache
08b2 00ea | | Load_Encached Null_String_Cache
08b3 00ea | | Load_Encached Null_String_Cache
08b4 00ea | | Load_Encached Null_String_Cache
08b5 e001 | | Load 0x0,0x1
08b6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
08b7 0092 197d | }| Action Push_String_Extended,0x197d ; ".NewFile"
08b9 01cc | | Execute Vector,Catenate
08ba e402 | | Load 0x2,0x2
08bb e00f | | Load 0x0,0xf
08bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08bd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
08be 0092 197c | || Action Push_String_Extended,0x197c ; "File Copy"
08c0 4ad4 |J | Short_Literal 0x2d4
08c1 4819 |H | Short_Literal 0x19
08c2 e002 | | Load 0x0,0x2
08c3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08c5 00ea | | Load_Encached Null_String_Cache
08c6 00ea | | Load_Encached Null_String_Cache
08c7 00ea | | Load_Encached Null_String_Cache
08c8 00ea | | Load_Encached Null_String_Cache
08c9 00ea | | Load_Encached Null_String_Cache
08ca e001 | | Load 0x0,0x1
08cb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
08cc 0092 197d | }| Action Push_String_Extended,0x197d ; ".NewFile"
08ce 01cc | | Execute Vector,Catenate
08cf 00ea | | Load_Encached Null_String_Cache
08d0 0092 197c | || Action Push_String_Extended,0x197c ; "File Copy"
08d2 4ad4 |J | Short_Literal 0x2d4
08d3 4819 |H | Short_Literal 0x19
08d4 e002 | | Load 0x0,0x2
08d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08d7 0000 | | .XXX[0x1]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db | | .CONST 0x08db ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0001 | | .CONST 0x0001 ; Number of locals
08db BODY_08d8:
08db INIT_08d8:
08db 00ea | | Load_Encached Null_String_Cache
08dc 4801 |H | Short_Literal 0x1
08dd 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
08df 4801 |H | Short_Literal 0x1
08e0 e5fe | | Load 0x2,-0x2
08e1 e5ff | | Load 0x2,-0x1
08e2 e006 | | Load 0x0,0x6
08e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08e5 0000 0000 | | .XXX[0x3]
08e7 0000 | |
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 0900 | | .CONST 0x0900 ; Address of begin
08e9 0004 | | .CONST 0x0004 ; Address of exception handler
08ea 0004 | | .CONST 0x0004 ; Number of locals
08eb INIT_08e8:
08eb e00f | | Load 0x0,0xf
08ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08ed 02c7 | | Declare_Variable Any
08ee 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
08f0 e001 | | Load 0x0,0x1
08f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08f2 a402 | | Store_Unchecked 0x2,0x2
08f3 e00f | | Load 0x0,0xf
08f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08f5 02c7 | | Declare_Variable Any
08f6 0092 197b | {| Action Push_String_Extended,0x197b ; "<REGION>"
08f8 e001 | | Load 0x0,0x1
08f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08fa a403 | | Store_Unchecked 0x2,0x3
08fb e001 | | Load 0x0,0x1
08fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08fd e001 | | Load 0x0,0x1
08fe 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
08ff 03f1 | | Declare_Variable Discrete,With_Value
0900 BODY_08e8:
0900 e001 | | Load 0x0,0x1
0901 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0902 0f03 | | Execute_Immediate Equal,0x3
0903 6804 |h | Jump_Zero 0x908
0904 e005 | | Load 0x0,0x5
0905 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0906 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0907 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0908 00da | | Load_Top At_Offset_2
0909 e00f | | Load 0x0,0xf
090a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
090b 7031 |p1 | Jump_Nonzero 0x93d
090c 00d9 | | Load_Top At_Offset_1
090d e00f | | Load 0x0,0xf
090e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
090f 7018 |p | Jump_Nonzero 0x928
0910 00d9 | | Load_Top At_Offset_1
0911 00db | | Load_Top At_Offset_3
0912 012e | . | Execute Any,Not_Equal
0913 6814 |h | Jump_Zero 0x928
0914 00ea | | Load_Encached Null_String_Cache
0915 00ea | | Load_Encached Null_String_Cache
0916 00ea | | Load_Encached Null_String_Cache
0917 00ea | | Load_Encached Null_String_Cache
0918 00ea | | Load_Encached Null_String_Cache
0919 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
091b e001 | | Load 0x0,0x1
091c 180f | | Execute Package,Field_Execute,Field_Number 0xf
091d 0092 197b | {| Action Push_String_Extended,0x197b ; "<REGION>"
091f e001 | | Load 0x0,0x1
0920 180f | | Execute Package,Field_Execute,Field_Number 0xf
0921 0092 197e | ~| Action Push_String_Extended,0x197e ; "File Move"
0923 4ad5 |J | Short_Literal 0x2d5
0924 4819 |H | Short_Literal 0x19
0925 e002 | | Load 0x0,0x2
0926 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0927 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0928 00ea | | Load_Encached Null_String_Cache
0929 00ea | | Load_Encached Null_String_Cache
092a 00ea | | Load_Encached Null_String_Cache
092b 00ea | | Load_Encached Null_String_Cache
092c 00ea | | Load_Encached Null_String_Cache
092d e001 | | Load 0x0,0x1
092e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
092f 0092 197d | }| Action Push_String_Extended,0x197d ; ".NewFile"
0931 01cc | | Execute Vector,Catenate
0932 e402 | | Load 0x2,0x2
0933 e00f | | Load 0x0,0xf
0934 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0935 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0936 0092 197e | ~| Action Push_String_Extended,0x197e ; "File Move"
0938 4ad5 |J | Short_Literal 0x2d5
0939 4819 |H | Short_Literal 0x19
093a e002 | | Load 0x0,0x2
093b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
093c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
093d 00ea | | Load_Encached Null_String_Cache
093e 00ea | | Load_Encached Null_String_Cache
093f 00ea | | Load_Encached Null_String_Cache
0940 00ea | | Load_Encached Null_String_Cache
0941 00ea | | Load_Encached Null_String_Cache
0942 e001 | | Load 0x0,0x1
0943 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0944 0092 197d | }| Action Push_String_Extended,0x197d ; ".NewFile"
0946 01cc | | Execute Vector,Catenate
0947 00ea | | Load_Encached Null_String_Cache
0948 0092 197e | ~| Action Push_String_Extended,0x197e ; "File Move"
094a 4ad5 |J | Short_Literal 0x2d5
094b 4819 |H | Short_Literal 0x19
094c e002 | | Load 0x0,0x2
094d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
094e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
094f 0000 | | .XXX[0x1]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953 | S | .CONST 0x0953 ; Address of begin
0951 0004 | | .CONST 0x0004 ; Address of exception handler
0952 0001 | | .CONST 0x0001 ; Number of locals
0953 BODY_0950:
0953 INIT_0950:
0953 00ea | | Load_Encached Null_String_Cache
0954 4801 |H | Short_Literal 0x1
0955 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0957 4801 |H | Short_Literal 0x1
0958 e5fe | | Load 0x2,-0x2
0959 e5ff | | Load 0x2,-0x1
095a e006 | | Load 0x0,0x6
095b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
095c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
095d 0000 0000 | | .XXX[0x3]
095f 0000 | |
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963 | c | .CONST 0x0963 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0001 | | .CONST 0x0001 ; Number of locals
0963 BODY_0960:
0963 INIT_0960:
0963 e001 | | Load 0x0,0x1
0964 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0965 4610 |F | Jump_Case 0x11
0966 7810 |x | Jump 0x977 ; case 0x0
0967 780f |x | Jump 0x977 ; case 0x1
0968 780e |x | Jump 0x977 ; case 0x2
0969 781b |x | Jump 0x985 ; case 0x3
096a 781a |x | Jump 0x985 ; case 0x4
096b 780b |x | Jump 0x977 ; case 0x5
096c 780a |x | Jump 0x977 ; case 0x6
096d 7817 |x | Jump 0x985 ; case 0x7
096e 7816 |x | Jump 0x985 ; case 0x8
096f 7815 |x | Jump 0x985 ; case 0x9
0970 7806 |x | Jump 0x977 ; case 0xa
0971 7805 |x | Jump 0x977 ; case 0xb
0972 7816 |x | Jump 0x989 ; case 0xc
0973 7811 |x | Jump 0x985 ; case 0xd
0974 7802 |x | Jump 0x977 ; case 0xe
0975 7801 |x | Jump 0x977 ; case 0xf
0976 7800 |x | Jump 0x977 ; case 0x10
0977 00ea | | Load_Encached Null_String_Cache
0978 0092 197f | | Action Push_String_Extended,0x197f ; "Enter names of objects to delete."
097a 00ea | | Load_Encached Null_String_Cache
097b 0092 1980 | | Action Push_String_Extended,0x1980 ; "{<Cursor>}"
097d e001 | | Load 0x0,0x1
097e 180f | | Execute Package,Field_Execute,Field_Number 0xf
097f 0092 1981 | | Action Push_String_Extended,0x1981 ; "Delete"
0981 4ad6 |J | Short_Literal 0x2d6
0982 e002 | | Load 0x0,0x2
0983 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0984 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0985 e005 | | Load 0x0,0x5
0986 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0987 180f | | Execute Package,Field_Execute,Field_Number 0xf
0988 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0989 4801 |H | Short_Literal 0x1
098a 4800 |H | Short_Literal 0x0
098b 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
098d e005 | | Load 0x0,0x5
098e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
098f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 09c5 | | .CONST 0x09c5 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0014 | | .CONST 0x0014 ; Number of locals
0993 INIT_0990:
0993 e00f | | Load 0x0,0xf
0994 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0995 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0996 02c7 | | Declare_Variable Any
0997 00d8 | | Load_Top At_Offset_0
0998 1c00 | | Execute_Immediate Run_Utility,0x0
0999 e00f | | Load 0x0,0xf
099a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
099b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
099c e00f | | Load 0x0,0xf
099d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
099e e00f | | Load 0x0,0xf
099f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09a0 02c7 | | Declare_Variable Any
09a1 00d8 | | Load_Top At_Offset_0
09a2 1c00 | | Execute_Immediate Run_Utility,0x0
09a3 e001 | | Load 0x0,0x1
09a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
09a5 e001 | | Load 0x0,0x1
09a6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
09a7 00e3 | | Load_Encached Natural_Cache
09a8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09a9 00e3 | | Load_Encached Natural_Cache
09aa 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09ab 00e3 | | Load_Encached Natural_Cache
09ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09ad 00e3 | | Load_Encached Natural_Cache
09ae 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09af 00e3 | | Load_Encached Natural_Cache
09b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09b1 00e3 | | Load_Encached Natural_Cache
09b2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09b3 00e3 | | Load_Encached Natural_Cache
09b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09b5 00e3 | | Load_Encached Natural_Cache
09b6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09b7 00e3 | | Load_Encached Natural_Cache
09b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09b9 4900 |I | Short_Literal 0x100
09ba e014 | | Load 0x0,0x14
09bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09bc 1c08 | | Execute_Immediate Run_Utility,0x8
09bd 00d8 | | Load_Top At_Offset_0
09be 1c00 | | Execute_Immediate Run_Utility,0x0
09bf 029f 10fb | | Declare_Subprogram INIT_10f8,For_Call
09c1 029f 11cb | | Declare_Subprogram INIT_11c8,For_Call
09c3 029f 11f3 | | Declare_Subprogram INIT_11f0,For_Call
09c5 BODY_0990:
09c5 e5ff | | Load 0x2,-0x1
09c6 01db | | Execute Vector,Length
09c7 701b |p | Jump_Nonzero 0x9e3
09c8 e00f | | Load 0x0,0xf
09c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09cb e402 | | Load 0x2,0x2
09cc 612f |a/ | Indirect_Literal Discrete,0xafc,{0x00000000, 0x00004000}
09cd e010 | | Load 0x0,0x10
09ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09cf e011 | | Load 0x0,0x11
09d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09d1 e012 | | Load 0x0,0x12
09d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09d3 4801 |H | Short_Literal 0x1
09d4 4800 |H | Short_Literal 0x0
09d5 e011 | | Load 0x0,0x11
09d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09d7 e00f | | Load 0x0,0xf
09d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09da e5ff | | Load 0x2,-0x1
09db e001 | | Load 0x0,0x1
09dc 180f | | Execute Package,Field_Execute,Field_Number 0xf
09dd e00f | | Load 0x0,0xf
09de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09e0 c402 | | Store 0x2,0x2
09e1 c403 | | Store 0x2,0x3
09e2 7818 |x | Jump 0x9fb
09e3 e00f | | Load 0x0,0xf
09e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09e6 e402 | | Load 0x2,0x2
09e7 6114 |a | Indirect_Literal Discrete,0xafc,{0x00000000, 0x00004000}
09e8 e010 | | Load 0x0,0x10
09e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09ea e011 | | Load 0x0,0x11
09eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09ec e012 | | Load 0x0,0x12
09ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09ee 4801 |H | Short_Literal 0x1
09ef 4800 |H | Short_Literal 0x0
09f0 e011 | | Load 0x0,0x11
09f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09f2 e00f | | Load 0x0,0xf
09f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09f5 e5ff | | Load 0x2,-0x1
09f6 e00f | | Load 0x0,0xf
09f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09f8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09f9 c402 | | Store 0x2,0x2
09fa c403 | | Store 0x2,0x3
09fb e403 | | Load 0x2,0x3
09fc 680c |h | Jump_Zero 0xa09
09fd 0092 1982 | | Action Push_String_Extended,0x1982 ; "Error resolving name: "
09ff e403 | | Load 0x2,0x3
0a00 e00f | | Load 0x0,0xf
0a01 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a02 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a03 011c | | Execute Any,Convert_Unchecked
0a04 1c01 | | Execute_Immediate Run_Utility,0x1
0a05 01cc | | Execute Vector,Catenate
0a06 e004 | | Load 0x0,0x4
0a07 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a08 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a09 00cf | | Action Mark_Auxiliary
0a0a 7878 |xx | Jump 0xa83
0a0b e00f | | Load 0x0,0xf
0a0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a0d e405 | | Load 0x2,0x5
0a0e 0120 | | Execute Any,Is_Value
0a0f 6803 |h | Jump_Zero 0xa13
0a10 e00f | | Load 0x0,0xf
0a11 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a12 7801 |x | Jump 0xa14
0a13 e405 | | Load 0x2,0x5
0a14 e402 | | Load 0x2,0x2
0a15 e00f | | Load 0x0,0xf
0a16 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a17 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0a18 c405 | | Store 0x2,0x5
0a19 c404 | | Store 0x2,0x4
0a1a e404 | | Load 0x2,0x4
0a1b 6801 |h | Jump_Zero 0xa1d
0a1c 786b |xk | Jump 0xa88
0a1d e405 | | Load 0x2,0x5
0a1e 825d | ] | Call 0x1,0x5d
0a1f a406 | | Store_Unchecked 0x2,0x6
0a20 e405 | | Load 0x2,0x5
0a21 825e | ^ | Call 0x1,0x5e
0a22 a407 | | Store_Unchecked 0x2,0x7
0a23 e410 | | Load 0x2,0x10
0a24 0a01 | | Execute_Immediate Plus,0x1
0a25 c410 | | Store 0x2,0x10
0a26 e406 | | Load 0x2,0x6
0a27 460f |F | Jump_Case 0x10
0a28 780f |x | Jump 0xa38 ; case 0x0
0a29 7819 |x | Jump 0xa43 ; case 0x1
0a2a 781c |x | Jump 0xa47 ; case 0x2
0a2b 780c |x | Jump 0xa38 ; case 0x3
0a2c 780b |x | Jump 0xa38 ; case 0x4
0a2d 780a |x | Jump 0xa38 ; case 0x5
0a2e 7809 |x | Jump 0xa38 ; case 0x6
0a2f 7808 |x | Jump 0xa38 ; case 0x7
0a30 7807 |x | Jump 0xa38 ; case 0x8
0a31 7806 |x | Jump 0xa38 ; case 0x9
0a32 7805 |x | Jump 0xa38 ; case 0xa
0a33 7804 |x | Jump 0xa38 ; case 0xb
0a34 7803 |x | Jump 0xa38 ; case 0xc
0a35 7802 |x | Jump 0xa38 ; case 0xd
0a36 7801 |x | Jump 0xa38 ; case 0xe
0a37 7800 |x | Jump 0xa38 ; case 0xf
0a38 e407 | | Load 0x2,0x7
0a39 0f2a | * | Execute_Immediate Equal,0x2a
0a3a 7004 |p | Jump_Nonzero 0xa3f
0a3b e40f | | Load 0x2,0xf
0a3c 0a01 | | Execute_Immediate Plus,0x1
0a3d c40f | | Store 0x2,0xf
0a3e 782a |x* | Jump 0xa69
0a3f e408 | | Load 0x2,0x8
0a40 0a01 | | Execute_Immediate Plus,0x1
0a41 c408 | | Store 0x2,0x8
0a42 7826 |x& | Jump 0xa69
0a43 e409 | | Load 0x2,0x9
0a44 0a01 | | Execute_Immediate Plus,0x1
0a45 c409 | | Store 0x2,0x9
0a46 7822 |x" | Jump 0xa69
0a47 e407 | | Load 0x2,0x7
0a48 00d8 | | Load_Top At_Offset_0
0a49 0d03 | | Execute_Immediate Less,0x3
0a4a 700d |p | Jump_Nonzero 0xa58
0a4b 00d8 | | Load_Top At_Offset_0
0a4c 0c07 | | Execute_Immediate Greater_Equal,0x7
0a4d 7007 |p | Jump_Nonzero 0xa55
0a4e 0b04 | | Execute_Immediate Case_Compare,0x4
0a4f 700d |p | Jump_Nonzero 0xa5d
0a50 4805 |H | Short_Literal 0x5
0a51 4806 |H | Short_Literal 0x6
0a52 0262 | b | Execute Discrete,In_Range
0a53 700e |p | Jump_Nonzero 0xa62
0a54 7811 |x | Jump 0xa66
0a55 0f42 | B | Execute_Immediate Equal,0x42
0a56 700b |p | Jump_Nonzero 0xa62
0a57 7801 |x | Jump 0xa59
0a58 00d1 | | Pop_Control Pop_Count_1
0a59 e40e | | Load 0x2,0xe
0a5a 0a01 | | Execute_Immediate Plus,0x1
0a5b c40e | | Store 0x2,0xe
0a5c 780c |x | Jump 0xa69
0a5d 00d1 | | Pop_Control Pop_Count_1
0a5e e40d | | Load 0x2,0xd
0a5f 0a01 | | Execute_Immediate Plus,0x1
0a60 c40d | | Store 0x2,0xd
0a61 7807 |x | Jump 0xa69
0a62 e40c | | Load 0x2,0xc
0a63 0a01 | | Execute_Immediate Plus,0x1
0a64 c40c | | Store 0x2,0xc
0a65 7803 |x | Jump 0xa69
0a66 e40b | | Load 0x2,0xb
0a67 0a01 | | Execute_Immediate Plus,0x1
0a68 c40b | | Store 0x2,0xb
0a69 e410 | | Load 0x2,0x10
0a6a e40f | | Load 0x2,0xf
0a6b e40e | | Load 0x2,0xe
0a6c e40d | | Load 0x2,0xd
0a6d e40c | | Load 0x2,0xc
0a6e e40b | | Load 0x2,0xb
0a6f e409 | | Load 0x2,0x9
0a70 e40a | | Load 0x2,0xa
0a71 e408 | | Load 0x2,0x8
0a72 e405 | | Load 0x2,0x5
0a73 8412 | | Call 0x2,0x12
0a74 c408 | | Store 0x2,0x8
0a75 c40a | | Store 0x2,0xa
0a76 c409 | | Store 0x2,0x9
0a77 c40b | | Store 0x2,0xb
0a78 c40c | | Store 0x2,0xc
0a79 c40d | | Store 0x2,0xd
0a7a c40e | | Store 0x2,0xe
0a7b c40f | | Store 0x2,0xf
0a7c c410 | | Store 0x2,0x10
0a7d e402 | | Load 0x2,0x2
0a7e e00f | | Load 0x0,0xf
0a7f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a80 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0a81 c402 | | Store 0x2,0x2
0a82 00c9 | | Action Pop_Auxiliary_Loop
0a83 e402 | | Load 0x2,0x2
0a84 e00f | | Load 0x0,0xf
0a85 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a86 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a87 6f83 |o | Jump_Zero 0xa0b
0a88 00ce | | Action Pop_Auxiliary
0a89 e402 | | Load 0x2,0x2
0a8a e00f | | Load 0x0,0xf
0a8b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a8c 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0a8d c402 | | Store 0x2,0x2
0a8e e410 | | Load 0x2,0x10
0a8f 0c01 | | Execute_Immediate Greater_Equal,0x1
0a90 6863 |hc | Jump_Zero 0xaf4
0a91 00db | | Load_Top At_Offset_3
0a92 0092 1983 | | Action Push_String_Extended,0x1983 ; " will delete\x5c"
0a94 e014 | | Load 0x0,0x14
0a95 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a96 00d1 | | Pop_Control Pop_Count_1
0a97 00db | | Load_Top At_Offset_3
0a98 0092 1984 | | Action Push_String_Extended,0x1984 ; " Dependent objects\x5c"
0a9a 0092 1985 | | Action Push_String_Extended,0x1985 ; " Dependent object\x5c"
0a9c 00ea | | Load_Encached Null_String_Cache
0a9d e40a | | Load 0x2,0xa
0a9e 8413 | | Call 0x2,0x13
0a9f 00d1 | | Pop_Control Pop_Count_1
0aa0 00db | | Load_Top At_Offset_3
0aa1 0092 1986 | | Action Push_String_Extended,0x1986 ; " Text objects\x5c"
0aa3 0092 1987 | | Action Push_String_Extended,0x1987 ; " Text object\x5c"
0aa5 00ea | | Load_Encached Null_String_Cache
0aa6 e408 | | Load 0x2,0x8
0aa7 8413 | | Call 0x2,0x13
0aa8 00d1 | | Pop_Control Pop_Count_1
0aa9 00db | | Load_Top At_Offset_3
0aaa 0092 1988 | | Action Push_String_Extended,0x1988 ; " Ada objects\x5c"
0aac 0092 1989 | | Action Push_String_Extended,0x1989 ; " Ada object\x5c"
0aae 00ea | | Load_Encached Null_String_Cache
0aaf e409 | | Load 0x2,0x9
0ab0 8413 | | Call 0x2,0x13
0ab1 00d1 | | Pop_Control Pop_Count_1
0ab2 00db | | Load_Top At_Offset_3
0ab3 0092 198a | | Action Push_String_Extended,0x198a ; " Directories\x5c"
0ab5 0092 198b | | Action Push_String_Extended,0x198b ; " Directory\x5c"
0ab7 00ea | | Load_Encached Null_String_Cache
0ab8 e40b | | Load 0x2,0xb
0ab9 8413 | | Call 0x2,0x13
0aba 00d1 | | Pop_Control Pop_Count_1
0abb 00db | | Load_Top At_Offset_3
0abc 0092 198c | | Action Push_String_Extended,0x198c ; " Libraries\x5c"
0abe 0092 198d | | Action Push_String_Extended,0x198d ; " Library\x5c"
0ac0 00ea | | Load_Encached Null_String_Cache
0ac1 e40e | | Load 0x2,0xe
0ac2 8413 | | Call 0x2,0x13
0ac3 00d1 | | Pop_Control Pop_Count_1
0ac4 00db | | Load_Top At_Offset_3
0ac5 0092 198e | | Action Push_String_Extended,0x198e ; " Views\x5c"
0ac7 0092 198f | | Action Push_String_Extended,0x198f ; " View\x5c"
0ac9 00ea | | Load_Encached Null_String_Cache
0aca e40c | | Load 0x2,0xc
0acb 8413 | | Call 0x2,0x13
0acc 00d1 | | Pop_Control Pop_Count_1
0acd 00db | | Load_Top At_Offset_3
0ace 0092 1990 | | Action Push_String_Extended,0x1990 ; " Subsystems\x5c"
0ad0 0092 1991 | | Action Push_String_Extended,0x1991 ; " Subsystem\x5c"
0ad2 00ea | | Load_Encached Null_String_Cache
0ad3 e40d | | Load 0x2,0xd
0ad4 8413 | | Call 0x2,0x13
0ad5 00d1 | | Pop_Control Pop_Count_1
0ad6 00db | | Load_Top At_Offset_3
0ad7 0092 1992 | | Action Push_String_Extended,0x1992 ; " other objects\x5c"
0ad9 0092 1993 | | Action Push_String_Extended,0x1993 ; " other object\x5c"
0adb 00ea | | Load_Encached Null_String_Cache
0adc e40f | | Load 0x2,0xf
0add 8413 | | Call 0x2,0x13
0ade 00d1 | | Pop_Control Pop_Count_1
0adf 00db | | Load_Top At_Offset_3
0ae0 0092 1994 | | Action Push_String_Extended,0x1994 ; "\x5c Delete?"
0ae2 e014 | | Load 0x0,0x14
0ae3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ae4 00d1 | | Pop_Control Pop_Count_1
0ae5 e5ff | | Load 0x2,-0x1
0ae6 0092 1995 | | Action Push_String_Extended,0x1995 ; "Deleting \x5c"
0ae8 e5ff | | Load 0x2,-0x1
0ae9 8414 | | Call 0x2,0x14
0aea 01cc | | Execute Vector,Catenate
0aeb e411 | | Load 0x2,0x11
0aec e014 | | Load 0x0,0x14
0aed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0aee 01cc | | Execute Vector,Catenate
0aef 0092 1996 | | Action Push_String_Extended,0x1996 ; "Delete Confirm"
0af1 6006 |` | Indirect_Literal Discrete,0xaf8,{0x00000000, 0x00001c5d}
0af2 e002 | | Load 0x0,0x2
0af3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0af4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0af5 0000 0000 | | .XXX[0x3]
0af7 0000 | |
0af8 0000 0000 | | .LITERAL {0x00000000, 0x00001c5d}
0afc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b23 | # | .CONST 0x0b23 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 000d | | .CONST 0x000d ; Number of locals
0b03 INIT_0b00:
0b03 e00f | | Load 0x0,0xf
0b04 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b05 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b06 02c7 | | Declare_Variable Any
0b07 00d8 | | Load_Top At_Offset_0
0b08 1c00 | | Execute_Immediate Run_Utility,0x0
0b09 e00f | | Load 0x0,0xf
0b0a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b0b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b0c e00f | | Load 0x0,0xf
0b0d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b0e e00f | | Load 0x0,0xf
0b0f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b10 02c7 | | Declare_Variable Any
0b11 00d8 | | Load_Top At_Offset_0
0b12 1c00 | | Execute_Immediate Run_Utility,0x0
0b13 e001 | | Load 0x0,0x1
0b14 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0b15 e001 | | Load 0x0,0x1
0b16 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0b17 029f 1263 | c| Declare_Subprogram INIT_1260,For_Call
0b19 029f 1283 | | Declare_Subprogram INIT_1280,For_Call
0b1b 029f 12e3 | | Declare_Subprogram INIT_12e0,For_Call
0b1d 029f 1343 | C| Declare_Subprogram INIT_1340,For_Call
0b1f 029f 13bb | | Declare_Subprogram INIT_13b8,For_Call
0b21 029f 1423 | #| Declare_Subprogram INIT_1420,For_Call
0b23 BODY_0b00:
0b23 e5ff | | Load 0x2,-0x1
0b24 01db | | Execute Vector,Length
0b25 701b |p | Jump_Nonzero 0xb41
0b26 e00f | | Load 0x0,0xf
0b27 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b28 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b29 e402 | | Load 0x2,0x2
0b2a 67d1 |g | Indirect_Literal Discrete,0xafc,{0x00000000, 0x00004000}
0b2b e010 | | Load 0x0,0x10
0b2c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b2d e011 | | Load 0x0,0x11
0b2e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b2f e012 | | Load 0x0,0x12
0b30 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b31 4801 |H | Short_Literal 0x1
0b32 4800 |H | Short_Literal 0x0
0b33 e011 | | Load 0x0,0x11
0b34 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b35 e00f | | Load 0x0,0xf
0b36 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b37 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b38 e5ff | | Load 0x2,-0x1
0b39 e001 | | Load 0x0,0x1
0b3a 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b3b e00f | | Load 0x0,0xf
0b3c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b3d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b3e c402 | | Store 0x2,0x2
0b3f c403 | | Store 0x2,0x3
0b40 7818 |x | Jump 0xb59
0b41 e00f | | Load 0x0,0xf
0b42 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b43 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b44 e402 | | Load 0x2,0x2
0b45 67b6 |g | Indirect_Literal Discrete,0xafc,{0x00000000, 0x00004000}
0b46 e010 | | Load 0x0,0x10
0b47 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b48 e011 | | Load 0x0,0x11
0b49 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b4a e012 | | Load 0x0,0x12
0b4b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b4c 4801 |H | Short_Literal 0x1
0b4d 4800 |H | Short_Literal 0x0
0b4e e011 | | Load 0x0,0x11
0b4f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b50 e00f | | Load 0x0,0xf
0b51 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b52 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b53 e5ff | | Load 0x2,-0x1
0b54 e00f | | Load 0x0,0xf
0b55 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b56 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b57 c402 | | Store 0x2,0x2
0b58 c403 | | Store 0x2,0x3
0b59 e403 | | Load 0x2,0x3
0b5a 680c |h | Jump_Zero 0xb67
0b5b 0092 1982 | | Action Push_String_Extended,0x1982 ; "Error resolving name: "
0b5d e403 | | Load 0x2,0x3
0b5e e00f | | Load 0x0,0xf
0b5f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b60 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b61 011c | | Execute Any,Convert_Unchecked
0b62 1c01 | | Execute_Immediate Run_Utility,0x1
0b63 01cc | | Execute Vector,Catenate
0b64 e004 | | Load 0x0,0x4
0b65 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b66 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b67 00cf | | Action Mark_Auxiliary
0b68 781a |x | Jump 0xb83
0b69 e00f | | Load 0x0,0xf
0b6a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b6b e405 | | Load 0x2,0x5
0b6c 0120 | | Execute Any,Is_Value
0b6d 6803 |h | Jump_Zero 0xb71
0b6e e00f | | Load 0x0,0xf
0b6f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b70 7801 |x | Jump 0xb72
0b71 e405 | | Load 0x2,0x5
0b72 e402 | | Load 0x2,0x2
0b73 e00f | | Load 0x0,0xf
0b74 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b75 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0b76 c405 | | Store 0x2,0x5
0b77 c404 | | Store 0x2,0x4
0b78 e404 | | Load 0x2,0x4
0b79 6801 |h | Jump_Zero 0xb7b
0b7a 780d |x | Jump 0xb88
0b7b e405 | | Load 0x2,0x5
0b7c 825d | ] | Call 0x1,0x5d
0b7d a406 | | Store_Unchecked 0x2,0x6
0b7e e406 | | Load 0x2,0x6
0b7f 7001 |p | Jump_Nonzero 0xb81
0b80 7807 |x | Jump 0xb88
0b81 840d | | Call 0x2,0xd
0b82 00c9 | | Action Pop_Auxiliary_Loop
0b83 e402 | | Load 0x2,0x2
0b84 e00f | | Load 0x0,0xf
0b85 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b86 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0b87 6fe1 |o | Jump_Zero 0xb69
0b88 00ce | | Action Pop_Auxiliary
0b89 e402 | | Load 0x2,0x2
0b8a e00f | | Load 0x0,0xf
0b8b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b8c 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0b8d c402 | | Store 0x2,0x2
0b8e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b8f 0000 | | .XXX[0x1]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b95 | | .CONST 0x0b95 ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0002 | | .CONST 0x0002 ; Number of locals
0b93 INIT_0b90:
0b93 029f 14d3 | | Declare_Subprogram INIT_14d0,For_Call
0b95 BODY_0b90:
0b95 8402 | | Call 0x2,0x2
0b96 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b97 0000 | | .XXX[0x1]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0b9d | | .CONST 0x0b9d ; Address of begin
0b99 0004 | | .CONST 0x0004 ; Address of exception handler
0b9a 0002 | | .CONST 0x0002 ; Number of locals
0b9b INIT_0b98:
0b9b 029f 1523 | #| Declare_Subprogram INIT_1520,For_Call
0b9d BODY_0b98:
0b9d e5fd | | Load 0x2,-0x3
0b9e 01db | | Execute Vector,Length
0b9f 700c |p | Jump_Nonzero 0xbac
0ba0 e5fe | | Load 0x2,-0x2
0ba1 6802 |h | Jump_Zero 0xba4
0ba2 8402 | | Call 0x2,0x2
0ba3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ba4 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0ba6 0092 1997 | | Action Push_String_Extended,0x1997 ; "$"
0ba8 e5ff | | Load 0x2,-0x1
0ba9 e018 | | Load 0x0,0x18
0baa 180f | | Execute Package,Field_Execute,Field_Number 0xf
0bab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bac e5fe | | Load 0x2,-0x2
0bad 6804 |h | Jump_Zero 0xbb2
0bae 0092 1998 | | Action Push_String_Extended,0x1998 ; "Cannot debug on another machine; will run without debug."
0bb0 e004 | | Load 0x0,0x4
0bb1 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0bb2 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0bb4 00ea | | Load_Encached Null_String_Cache
0bb5 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0bb7 0092 1997 | | Action Push_String_Extended,0x1997 ; "$"
0bb9 e5ff | | Load 0x2,-0x1
0bba e5fd | | Load 0x2,-0x3
0bbb e019 | | Load 0x0,0x19
0bbc 180d | | Execute Package,Field_Execute,Field_Number 0xd
0bbd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bbe 0000 0000 | | .XXX[0x2]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bd5 | | .CONST 0x0bd5 ; Address of begin
0bc1 0004 | | .CONST 0x0004 ; Address of exception handler
0bc2 0006 | | .CONST 0x0006 ; Number of locals
0bc3 INIT_0bc0:
0bc3 e01a | | Load 0x0,0x1a
0bc4 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e
0bc5 02c7 | | Declare_Variable Any
0bc6 00d8 | | Load_Top At_Offset_0
0bc7 1c00 | | Execute_Immediate Run_Utility,0x0
0bc8 e01a | | Load 0x0,0x1a
0bc9 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0bca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bcb 00e3 | | Load_Encached Natural_Cache
0bcc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0bcd 600a |` | Indirect_Literal Discrete,0xbd8,{0x00000000, 0x00000800}
0bce e014 | | Load 0x0,0x14
0bcf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bd0 1c08 | | Execute_Immediate Run_Utility,0x8
0bd1 00d8 | | Load_Top At_Offset_0
0bd2 1c00 | | Execute_Immediate Run_Utility,0x0
0bd3 e01b | | Load 0x0,0x1b
0bd4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0bd5 BODY_0bc0:
0bd5 00be | | Action Activate_Tasks
0bd6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bd7 0000 | | .XXX[0x1]
0bd8 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0bdc 0000 0000 | | .BLANK 0000[0x4]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be9 | | .CONST 0x0be9 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0003 | | .CONST 0x0003 ; Number of locals
0be3 INIT_0be0:
0be3 e01c | | Load 0x0,0x1c
0be4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0be5 02ff | | Declare_Variable Variant_Record
0be6 00d8 | | Load_Top At_Offset_0
0be7 1c00 | | Execute_Immediate Run_Utility,0x0
0be8 00e1 | | Load_Encached Boolean_Cache
0be9 BODY_0be0:
0be9 4801 |H | Short_Literal 0x1
0bea e5ff | | Load 0x2,-0x1
0beb 0092 1999 | | Action Push_String_Extended,0x1999 ; "true"
0bed e00b | | Load 0x0,0xb
0bee 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0bef 6819 |h | Jump_Zero 0xc09
0bf0 e011 | | Load 0x0,0x11
0bf1 180e | | Execute Package,Field_Execute,Field_Number 0xe
0bf2 e01a | | Load 0x0,0x1a
0bf3 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0bf4 e01a | | Load 0x0,0x1a
0bf5 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0bf6 e01c | | Load 0x0,0x1c
0bf7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0bf8 00da | | Load_Top At_Offset_2
0bf9 016d | m | Execute Variant_Record,Structure_Write
0bfa 00e1 | | Load_Encached Boolean_Cache
0bfb 00da | | Load_Top At_Offset_2
0bfc 801d | | Call 0x0,0x1d
0bfd 0059 | Y | Store_Top Discrete,At_Offset_1
0bfe 00d8 | | Load_Top At_Offset_0
0bff 6804 |h | Jump_Zero 0xc04
0c00 4801 |H | Short_Literal 0x1
0c01 e016 | | Load 0x0,0x16
0c02 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0c03 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c04 0092 199a | | Action Push_String_Extended,0x199a ; "Unable to commit buffers. Session not logged off"
0c06 e004 | | Load 0x0,0x4
0c07 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0c08 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c09 4801 |H | Short_Literal 0x1
0c0a e016 | | Load 0x0,0x16
0c0b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0c0c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c0d 0000 0000 | | .XXX[0x3]
0c0f 0000 | |
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c25 | % | .CONST 0x0c25 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0006 | | .CONST 0x0006 ; Number of locals
0c13 INIT_0c10:
0c13 e01a | | Load 0x0,0x1a
0c14 1b7e | ~ | Execute Package,Field_Read,Field_Number 0x7e
0c15 02c7 | | Declare_Variable Any
0c16 00d8 | | Load_Top At_Offset_0
0c17 1c00 | | Execute_Immediate Run_Utility,0x0
0c18 e01a | | Load 0x0,0x1a
0c19 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0c1a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c1b 00e3 | | Load_Encached Natural_Cache
0c1c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c1d 6082 |` | Indirect_Literal Discrete,0xca0,{0x00000000, 0x00000800}
0c1e e014 | | Load 0x0,0x14
0c1f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c20 1c08 | | Execute_Immediate Run_Utility,0x8
0c21 00d8 | | Load_Top At_Offset_0
0c22 1c00 | | Execute_Immediate Run_Utility,0x0
0c23 e01b | | Load 0x0,0x1b
0c24 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0c25 BODY_0c10:
0c25 00be | | Action Activate_Tasks
0c26 e402 | | Load 0x2,0x2
0c27 e011 | | Load 0x0,0x11
0c28 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c29 e01a | | Load 0x0,0x1a
0c2a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0c2b e01a | | Load 0x0,0x1a
0c2c 187f | | Execute Package,Field_Execute,Field_Number 0x7f
0c2d c402 | | Store 0x2,0x2
0c2e 00cf | | Action Mark_Auxiliary
0c2f 7847 |xG | Jump 0xc77
0c30 e402 | | Load 0x2,0x2
0c31 e01a | | Load 0x0,0x1a
0c32 1881 | | Execute Package,Field_Execute,Field_Number 0x81
0c33 e01a | | Load 0x0,0x1a
0c34 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0c35 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c36 a403 | | Store_Unchecked 0x2,0x3
0c37 e403 | | Load 0x2,0x3
0c38 4801 |H | Short_Literal 0x1
0c39 4802 |H | Short_Literal 0x2
0c3a 0262 | b | Execute Discrete,In_Range
0c3b 7001 |p | Jump_Nonzero 0xc3d
0c3c 7835 |x5 | Jump 0xc72
0c3d 00db | | Load_Top At_Offset_3
0c3e 0a01 | | Execute_Immediate Plus,0x1
0c3f c404 | | Store 0x2,0x4
0c40 00da | | Load_Top At_Offset_2
0c41 e402 | | Load 0x2,0x2
0c42 e01a | | Load 0x0,0x1a
0c43 1881 | | Execute Package,Field_Execute,Field_Number 0x81
0c44 e01a | | Load 0x0,0x1a
0c45 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0c46 180d | | Execute Package,Field_Execute,Field_Number 0xd
0c47 0092 199b | | Action Push_String_Extended,0x199b ; " \x5c"
0c49 01cc | | Execute Vector,Catenate
0c4a e014 | | Load 0x0,0x14
0c4b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c4c 00d1 | | Pop_Control Pop_Count_1
0c4d 00db | | Load_Top At_Offset_3
0c4e 0d04 | | Execute_Immediate Less,0x4
0c4f 6822 |h" | Jump_Zero 0xc72
0c50 00db | | Load_Top At_Offset_3
0c51 00e0 | | Load_Encached Standard_Cache
0c52 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c53 e004 | | Load 0x0,0x4
0c54 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0c55 e01b | | Load 0x0,0x1b
0c56 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0c57 e011 | | Load 0x0,0x11
0c58 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c59 4800 |H | Short_Literal 0x0
0c5a 4800 |H | Short_Literal 0x0
0c5b 4801 |H | Short_Literal 0x1
0c5c e01e | | Load 0x0,0x1e
0c5d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c5e e011 | | Load 0x0,0x11
0c5f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c60 e01b | | Load 0x0,0x1b
0c61 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0c62 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c63 e402 | | Load 0x2,0x2
0c64 e01a | | Load 0x0,0x1a
0c65 1881 | | Execute Package,Field_Execute,Field_Number 0x81
0c66 e01b | | Load 0x0,0x1b
0c67 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0c68 e01b | | Load 0x0,0x1b
0c69 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0c6a 005a | Z | Store_Top Discrete,At_Offset_2
0c6b 00d9 | | Load_Top At_Offset_1
0c6c e01f | | Load 0x0,0x1f
0c6d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0c6e 011c | | Execute Any,Convert_Unchecked
0c6f 1c01 | | Execute_Immediate Run_Utility,0x1
0c70 e004 | | Load 0x0,0x4
0c71 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0c72 e402 | | Load 0x2,0x2
0c73 e01a | | Load 0x0,0x1a
0c74 1880 | | Execute Package,Field_Execute,Field_Number 0x80
0c75 c402 | | Store 0x2,0x2
0c76 00c9 | | Action Pop_Auxiliary_Loop
0c77 e402 | | Load 0x2,0x2
0c78 e01a | | Load 0x0,0x1a
0c79 1882 | | Execute Package,Field_Execute,Field_Number 0x82
0c7a 6fb5 |o | Jump_Zero 0xc30
0c7b 00ce | | Action Pop_Auxiliary
0c7c 00da | | Load_Top At_Offset_2
0c7d 7008 |p | Jump_Nonzero 0xc86
0c7e 0092 199c | | Action Push_String_Extended,0x199c ; "\x1b]63;\x07"
0c80 e020 | | Load 0x0,0x20
0c81 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0c82 4800 |H | Short_Literal 0x0
0c83 e016 | | Load 0x0,0x16
0c84 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0c85 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c86 00ea | | Load_Encached Null_String_Cache
0c87 00ea | | Load_Encached Null_String_Cache
0c88 00ea | | Load_Encached Null_String_Cache
0c89 00ea | | Load_Encached Null_String_Cache
0c8a 00ea | | Load_Encached Null_String_Cache
0c8b 00ea | | Load_Encached Null_String_Cache
0c8c 00ea | | Load_Encached Null_String_Cache
0c8d 0092 199d | | Action Push_String_Extended,0x199d ; "The following buffer(s) are modified:\x5c"
0c8f e405 | | Load 0x2,0x5
0c90 e014 | | Load 0x0,0x14
0c91 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c92 01cc | | Execute Vector,Catenate
0c93 0092 199e | | Action Push_String_Extended,0x199e ; "Quit anyway?"
0c95 01cc | | Execute Vector,Catenate
0c96 6005 |` | Indirect_Literal Discrete,0xc9c,{0x00000000, 0x00001c71}
0c97 4842 |HB | Short_Literal 0x42
0c98 e002 | | Load 0x0,0x2
0c99 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c9a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c9b 0000 | | .XXX[0x1]
0c9c 0000 0000 | | .LITERAL {0x00000000, 0x00001c71}
0ca0 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0ca4 0000 0000 | | .BLANK 0000[0x4]
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; SUBPROGRAM
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0cb1 | | .CONST 0x0cb1 ; Address of begin
0ca9 0004 | | .CONST 0x0004 ; Address of exception handler
0caa 0003 | | .CONST 0x0003 ; Number of locals
0cab INIT_0ca8:
0cab e01c | | Load 0x0,0x1c
0cac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0cad 02ff | | Declare_Variable Variant_Record
0cae 00d8 | | Load_Top At_Offset_0
0caf 1c00 | | Execute_Immediate Run_Utility,0x0
0cb0 00e1 | | Load_Encached Boolean_Cache
0cb1 BODY_0ca8:
0cb1 4801 |H | Short_Literal 0x1
0cb2 e5ff | | Load 0x2,-0x1
0cb3 0092 1999 | | Action Push_String_Extended,0x1999 ; "true"
0cb5 e00b | | Load 0x0,0xb
0cb6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0cb7 681d |h | Jump_Zero 0xcd5
0cb8 e011 | | Load 0x0,0x11
0cb9 180e | | Execute Package,Field_Execute,Field_Number 0xe
0cba e01a | | Load 0x0,0x1a
0cbb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0cbc e01a | | Load 0x0,0x1a
0cbd 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0cbe e01c | | Load 0x0,0x1c
0cbf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0cc0 00da | | Load_Top At_Offset_2
0cc1 016d | m | Execute Variant_Record,Structure_Write
0cc2 00e1 | | Load_Encached Boolean_Cache
0cc3 00da | | Load_Top At_Offset_2
0cc4 801d | | Call 0x0,0x1d
0cc5 0059 | Y | Store_Top Discrete,At_Offset_1
0cc6 00d8 | | Load_Top At_Offset_0
0cc7 6808 |h | Jump_Zero 0xcd0
0cc8 0092 199c | | Action Push_String_Extended,0x199c ; "\x1b]63;\x07"
0cca e020 | | Load 0x0,0x20
0ccb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ccc 4801 |H | Short_Literal 0x1
0ccd e016 | | Load 0x0,0x16
0cce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ccf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cd0 0092 199a | | Action Push_String_Extended,0x199a ; "Unable to commit buffers. Session not logged off"
0cd2 e004 | | Load 0x0,0x4
0cd3 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0cd4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cd5 0092 199c | | Action Push_String_Extended,0x199c ; "\x1b]63;\x07"
0cd7 e020 | | Load 0x0,0x20
0cd8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0cd9 4801 |H | Short_Literal 0x1
0cda e016 | | Load 0x0,0x16
0cdb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0cdc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cdd 0000 0000 | | .XXX[0x3]
0cdf 0000 | |
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0ce3 | | .CONST 0x0ce3 ; Address of begin
0ce1 0004 | | .CONST 0x0004 ; Address of exception handler
0ce2 0001 | | .CONST 0x0001 ; Number of locals
0ce3 BODY_0ce0:
0ce3 INIT_0ce0:
0ce3 00da | | Load_Top At_Offset_2
0ce4 e004 | | Load 0x0,0x4
0ce5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ce6 e004 | | Load 0x0,0x4
0ce7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0ce8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ce9 0000 0000 | | .BLANK 0000[0x7]
0cf0 ; --------------------------------------------------------------------------------------
0cf0 ; SUBPROGRAM
0cf0 ; --------------------------------------------------------------------------------------
0cf0 0cfb | | .CONST 0x0cfb ; Address of begin
0cf1 0004 | | .CONST 0x0004 ; Address of exception handler
0cf2 0003 | | .CONST 0x0003 ; Number of locals
0cf3 INIT_0cf0:
0cf3 e00f | | Load 0x0,0xf
0cf4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0cf5 02ff | | Declare_Variable Variant_Record
0cf6 00d8 | | Load_Top At_Offset_0
0cf7 1c00 | | Execute_Immediate Run_Utility,0x0
0cf8 e00f | | Load 0x0,0xf
0cf9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0cfa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cfb BODY_0cf0:
0cfb e00f | | Load 0x0,0xf
0cfc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0cfd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cfe 00da | | Load_Top At_Offset_2
0cff 6030 |`0 | Indirect_Literal Discrete,0xd30,{0x00000000, 0x00004000}
0d00 e010 | | Load 0x0,0x10
0d01 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d02 4800 |H | Short_Literal 0x0
0d03 e011 | | Load 0x0,0x11
0d04 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0d05 e00f | | Load 0x0,0xf
0d06 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d07 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d08 e5ff | | Load 0x2,-0x1
0d09 e00f | | Load 0x0,0xf
0d0a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d0b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0d0c 00d1 | | Pop_Control Pop_Count_1
0d0d 0059 | Y | Store_Top Discrete,At_Offset_1
0d0e 00d8 | | Load_Top At_Offset_0
0d0f 6816 |h | Jump_Zero 0xd26
0d10 601f |` | Indirect_Literal Discrete,0xd30,{0x00000000, 0x00004000}
0d11 e010 | | Load 0x0,0x10
0d12 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d13 e011 | | Load 0x0,0x11
0d14 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0d15 e012 | | Load 0x0,0x12
0d16 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0d17 4801 |H | Short_Literal 0x1
0d18 4800 |H | Short_Literal 0x0
0d19 e011 | | Load 0x0,0x11
0d1a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0d1b e00f | | Load 0x0,0xf
0d1c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d1d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d1e e5ff | | Load 0x2,-0x1
0d1f e403 | | Load 0x2,0x3
0d20 e00f | | Load 0x0,0xf
0d21 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d22 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0d23 e004 | | Load 0x0,0x4
0d24 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0d25 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d26 00d9 | | Load_Top At_Offset_1
0d27 e011 | | Load 0x0,0x11
0d28 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d29 4800 |H | Short_Literal 0x0
0d2a 4800 |H | Short_Literal 0x0
0d2b e021 | ! | Load 0x0,0x21
0d2c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d2d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d2e 0000 0000 | | .XXX[0x2]
0d30 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0d34 0000 0000 | | .BLANK 0000[0x4]
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d53 | S | .CONST 0x0d53 ; Address of begin
0d39 0004 | | .CONST 0x0004 ; Address of exception handler
0d3a 0007 | | .CONST 0x0007 ; Number of locals
0d3b INIT_0d38:
0d3b 4be8 |K | Short_Literal 0x3e8
0d3c e014 | | Load 0x0,0x14
0d3d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d3e 1c08 | | Execute_Immediate Run_Utility,0x8
0d3f 00d8 | | Load_Top At_Offset_0
0d40 1c00 | | Execute_Immediate Run_Utility,0x0
0d41 4be8 |K | Short_Literal 0x3e8
0d42 e014 | | Load 0x0,0x14
0d43 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d44 1c08 | | Execute_Immediate Run_Utility,0x8
0d45 00d8 | | Load_Top At_Offset_0
0d46 1c00 | | Execute_Immediate Run_Utility,0x0
0d47 48c8 |H | Short_Literal 0xc8
0d48 e014 | | Load 0x0,0x14
0d49 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d4a 1c08 | | Execute_Immediate Run_Utility,0x8
0d4b 00d8 | | Load_Top At_Offset_0
0d4c 1c00 | | Execute_Immediate Run_Utility,0x0
0d4d 00e3 | | Load_Encached Natural_Cache
0d4e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d4f 029f 1543 | C| Declare_Subprogram INIT_1540,For_Call
0d51 029f 156b | k| Declare_Subprogram INIT_1568,For_Call
0d53 BODY_0d38:
0d53 8406 | | Call 0x2,0x6
0d54 e402 | | Load 0x2,0x2
0d55 e014 | | Load 0x0,0x14
0d56 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0d57 0c02 | | Execute_Immediate Greater_Equal,0x2
0d58 6811 |h | Jump_Zero 0xd6a
0d59 e403 | | Load 0x2,0x3
0d5a e402 | | Load 0x2,0x2
0d5b e014 | | Load 0x0,0x14
0d5c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0d5d 0aff | | Execute_Immediate Plus,-0x1
0d5e 00d8 | | Load_Top At_Offset_0
0d5f 00e3 | | Load_Encached Natural_Cache
0d60 0260 | ` | Execute Discrete,In_Type
0d61 7001 |p | Jump_Nonzero 0xd63
0d62 0801 | | Execute_Immediate Raise,0x1
0d63 4801 |H | Short_Literal 0x1
0d64 e402 | | Load 0x2,0x2
0d65 e014 | | Load 0x0,0x14
0d66 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0d67 e014 | | Load 0x0,0x14
0d68 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d69 00d1 | | Pop_Control Pop_Count_1
0d6a 00ea | | Load_Encached Null_String_Cache
0d6b 00ea | | Load_Encached Null_String_Cache
0d6c 00ea | | Load_Encached Null_String_Cache
0d6d e5ff | | Load 0x2,-0x1
0d6e e404 | | Load 0x2,0x4
0d6f e014 | | Load 0x0,0x14
0d70 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d71 4820 |H | Short_Literal 0x20
0d72 4800 |H | Short_Literal 0x0
0d73 480a |H | Short_Literal 0xa
0d74 e405 | | Load 0x2,0x5
0d75 e00b | | Load 0x0,0xb
0d76 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d77 e403 | | Load 0x2,0x3
0d78 e014 | | Load 0x0,0x14
0d79 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d7a 8407 | | Call 0x2,0x7
0d7b 4ad2 |J | Short_Literal 0x2d2
0d7c 4817 |H | Short_Literal 0x17
0d7d e002 | | Load 0x0,0x2
0d7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0d7f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d83 | | .CONST 0x0d83 ; Address of begin
0d81 0d87 | | .CONST 0x0d87 ; Address of exception handler
0d82 0001 | | .CONST 0x0001 ; Number of locals
0d83 BODY_0d80:
0d83 INIT_0d80:
0d83 00da | | Load_Top At_Offset_2
0d84 e001 | | Load 0x0,0x1
0d85 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d86 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d87 TRAP_0d80:
0d87 0007 | | Action Break_Optional
0d88 4800 |H | Short_Literal 0x0
0d89 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d8a 0000 0000 | | .BLANK 0000[0x6]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0d93 | | .CONST 0x0d93 ; Address of begin
0d91 0d97 | | .CONST 0x0d97 ; Address of exception handler
0d92 0001 | | .CONST 0x0001 ; Number of locals
0d93 BODY_0d90:
0d93 INIT_0d90:
0d93 00da | | Load_Top At_Offset_2
0d94 e001 | | Load 0x0,0x1
0d95 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d96 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d97 TRAP_0d90:
0d97 0007 | | Action Break_Optional
0d98 4800 |H | Short_Literal 0x0
0d99 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d9a 0000 0000 | | .BLANK 0000[0x6]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0dab | | .CONST 0x0dab ; Address of begin
0da1 0004 | | .CONST 0x0004 ; Address of exception handler
0da2 0003 | | .CONST 0x0003 ; Number of locals
0da3 INIT_0da0:
0da3 e00f | | Load 0x0,0xf
0da4 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0da5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0da6 02c7 | | Declare_Variable Any
0da7 00d8 | | Load_Top At_Offset_0
0da8 1c00 | | Execute_Immediate Run_Utility,0x0
0da9 e00f | | Load 0x0,0xf
0daa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dab BODY_0da0:
0dab e00f | | Load 0x0,0xf
0dac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dad 00da | | Load_Top At_Offset_2
0dae 0120 | | Execute Any,Is_Value
0daf 6804 |h | Jump_Zero 0xdb4
0db0 e00f | | Load 0x0,0xf
0db1 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0db2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0db3 7801 |x | Jump 0xdb5
0db4 00da | | Load_Top At_Offset_2
0db5 600e |` | Indirect_Literal Discrete,0xdc4,{0x00000000, 0x00004000}
0db6 e010 | | Load 0x0,0x10
0db7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0db8 4800 |H | Short_Literal 0x0
0db9 e5ff | | Load 0x2,-0x1
0dba e00f | | Load 0x0,0xf
0dbb 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0dbc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0dbd c402 | | Store 0x2,0x2
0dbe 0059 | Y | Store_Top Discrete,At_Offset_1
0dbf 00d9 | | Load_Top At_Offset_1
0dc0 e00f | | Load 0x0,0xf
0dc1 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0dc2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0dc3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dc4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0dc8 ; --------------------------------------------------------------------------------------
0dc8 ; SUBPROGRAM
0dc8 ; --------------------------------------------------------------------------------------
0dc8 0dcd | | .CONST 0x0dcd ; Address of begin
0dc9 0004 | | .CONST 0x0004 ; Address of exception handler
0dca 0002 | | .CONST 0x0002 ; Number of locals
0dcb INIT_0dc8:
0dcb 00e1 | | Load_Encached Boolean_Cache
0dcc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0dcd BODY_0dc8:
0dcd e5fd | | Load 0x2,-0x3
0dce 6803 |h | Jump_Zero 0xdd2
0dcf 4801 |H | Short_Literal 0x1
0dd0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0dd1 7803 |x | Jump 0xdd5
0dd2 4800 |H | Short_Literal 0x0
0dd3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0dd4 7800 |x | Jump 0xdd5
0dd5 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0dd7 4800 |H | Short_Literal 0x0
0dd8 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0dda e5f9 | | Load 0x2,-0x7
0ddb 4803 |H | Short_Literal 0x3
0ddc 4800 |H | Short_Literal 0x0
0ddd e5fc | | Load 0x2,-0x4
0dde e5fa | | Load 0x2,-0x6
0ddf e602 | | Load 0x3,0x2
0de0 4800 |H | Short_Literal 0x0
0de1 4801 |H | Short_Literal 0x1
0de2 e5fb | | Load 0x2,-0x5
0de3 00ea | | Load_Encached Null_String_Cache
0de4 e5ff | | Load 0x2,-0x1
0de5 e5fe | | Load 0x2,-0x2
0de6 e007 | | Load 0x0,0x7
0de7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0de8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0de9 0000 0000 | | .BLANK 0000[0x7]
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df9 | | .CONST 0x0df9 ; Address of begin
0df1 0004 | | .CONST 0x0004 ; Address of exception handler
0df2 0004 | | .CONST 0x0004 ; Number of locals
0df3 INIT_0df0:
0df3 00e1 | | Load_Encached Boolean_Cache
0df4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0df5 00e1 | | Load_Encached Boolean_Cache
0df6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0df7 00e1 | | Load_Encached Boolean_Cache
0df8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0df9 BODY_0df0:
0df9 e5fb | | Load 0x2,-0x5
0dfa 6807 |h | Jump_Zero 0xe02
0dfb 4800 |H | Short_Literal 0x0
0dfc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0dfd 4800 |H | Short_Literal 0x0
0dfe 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0dff 4801 |H | Short_Literal 0x1
0e00 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e01 7806 |x | Jump 0xe08
0e02 4800 |H | Short_Literal 0x0
0e03 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0e04 4801 |H | Short_Literal 0x1
0e05 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0e06 4800 |H | Short_Literal 0x0
0e07 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e08 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0e0a 4800 |H | Short_Literal 0x0
0e0b 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0e0d e5f9 | | Load 0x2,-0x7
0e0e 4803 |H | Short_Literal 0x3
0e0f 4800 |H | Short_Literal 0x0
0e10 e5fa | | Load 0x2,-0x6
0e11 6012 |` | Indirect_Literal Discrete,0xe24,{0x00000000, 0x7fffffff}
0e12 e604 | | Load 0x3,0x4
0e13 e603 | | Load 0x3,0x3
0e14 e602 | | Load 0x3,0x2
0e15 4800 |H | Short_Literal 0x0
0e16 0092 1952 | R| Action Push_String_Extended,0x1952 ; "<AUTO_GENERATE>"
0e18 e5fd | | Load 0x2,-0x3
0e19 4801 |H | Short_Literal 0x1
0e1a e5fc | | Load 0x2,-0x4
0e1b 00ea | | Load_Encached Null_String_Cache
0e1c e5ff | | Load 0x2,-0x1
0e1d e5fe | | Load 0x2,-0x2
0e1e e007 | | Load 0x0,0x7
0e1f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e20 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e21 0000 0000 | | .XXX[0x3]
0e23 0000 | |
0e24 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0e28 ; --------------------------------------------------------------------------------------
0e28 ; SUBPROGRAM
0e28 ; --------------------------------------------------------------------------------------
0e28 0e35 | 5 | .CONST 0x0e35 ; Address of begin
0e29 0004 | | .CONST 0x0004 ; Address of exception handler
0e2a 0003 | | .CONST 0x0003 ; Number of locals
0e2b INIT_0e28:
0e2b e001 | | Load 0x0,0x1
0e2c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0e2d 4800 |H | Short_Literal 0x0
0e2e 00d9 | | Load_Top At_Offset_1
0e2f 0092 199f | | Action Push_String_Extended,0x199f ; " "
0e31 e00b | | Load 0x0,0xb
0e32 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e33 00e3 | | Load_Encached Natural_Cache
0e34 03f1 | | Declare_Variable Discrete,With_Value
0e35 BODY_0e28:
0e35 00d8 | | Load_Top At_Offset_0
0e36 0c01 | | Execute_Immediate Greater_Equal,0x1
0e37 6818 |h | Jump_Zero 0xe50
0e38 4801 |H | Short_Literal 0x1
0e39 00d9 | | Load_Top At_Offset_1
0e3a 00db | | Load_Top At_Offset_3
0e3b 01db | | Execute Vector,Length
0e3c 00d8 | | Load_Top At_Offset_0
0e3d 00e2 | | Load_Encached Integer_Cache
0e3e 0260 | ` | Execute Discrete,In_Type
0e3f 7001 |p | Jump_Nonzero 0xe41
0e40 0801 | | Execute_Immediate Raise,0x1
0e41 e602 | | Load 0x3,0x2
0e42 01cf | | Execute Vector,Slice_Read
0e43 0092 19a0 | | Action Push_String_Extended,0x19a0 ; "Mailbox"
0e45 e00b | | Load 0x0,0xb
0e46 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e47 0c01 | | Execute_Immediate Greater_Equal,0x1
0e48 6807 |h | Jump_Zero 0xe50
0e49 4801 |H | Short_Literal 0x1
0e4a 4800 |H | Short_Literal 0x0
0e4b 0092 19a1 | | Action Push_String_Extended,0x19a1 ; "<CURSOR>"
0e4d e005 | | Load 0x0,0x5
0e4e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0e4f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e50 4801 |H | Short_Literal 0x1
0e51 4800 |H | Short_Literal 0x0
0e52 0092 1960 | `| Action Push_String_Extended,0x1960 ; "<IMAGE>"
0e54 e005 | | Load 0x0,0x5
0e55 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e56 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e57 0000 | | .XXX[0x1]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5f | _ | .CONST 0x0e5f ; Address of begin
0e59 0004 | | .CONST 0x0004 ; Address of exception handler
0e5a 0002 | | .CONST 0x0002 ; Number of locals
0e5b INIT_0e58:
0e5b 0092 196e | n| Action Push_String_Extended,0x196e ; "<Selection>"
0e5d e001 | | Load 0x0,0x1
0e5e 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e5f BODY_0e58:
0e5f 00d8 | | Load_Top At_Offset_0
0e60 0092 1957 | W| Action Push_String_Extended,0x1957 ; "<>"
0e62 01df | | Execute Vector,Equal
0e63 680e |h | Jump_Zero 0xe72
0e64 00ea | | Load_Encached Null_String_Cache
0e65 00ea | | Load_Encached Null_String_Cache
0e66 0092 193f | ?| Action Push_String_Extended,0x193f ; "Name:"
0e68 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0e6a e001 | | Load 0x0,0x1
0e6b 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e6c 0092 1961 | a| Action Push_String_Extended,0x1961 ; "File Open"
0e6e 4ace |J | Short_Literal 0x2ce
0e6f e002 | | Load 0x0,0x2
0e70 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0e71 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e72 4801 |H | Short_Literal 0x1
0e73 00d9 | | Load_Top At_Offset_1
0e74 822f | / | Call 0x1,0x2f
0e75 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e76 0000 0000 | | .XXX[0x2]
0e78 ; --------------------------------------------------------------------------------------
0e78 ; SUBPROGRAM
0e78 ; --------------------------------------------------------------------------------------
0e78 0f28 | ( | .CONST 0x0f28 ; Address of begin
0e79 0f68 | h | .CONST 0x0f68 ; Address of exception handler
0e7a 0019 | | .CONST 0x0019 ; Number of locals
0e7b INIT_0e78:
0e7b e00f | | Load 0x0,0xf
0e7c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e7d 02c7 | | Declare_Variable Any
0e7e 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0e80 e001 | | Load 0x0,0x1
0e81 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e82 a602 | | Store_Unchecked 0x3,0x2
0e83 00d8 | | Load_Top At_Offset_0
0e84 e00f | | Load 0x0,0xf
0e85 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e86 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0e87 e00f | | Load 0x0,0xf
0e88 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0e89 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e8a 02c7 | | Declare_Variable Any
0e8b 00da | | Load_Top At_Offset_2
0e8c e001 | | Load 0x0,0x1
0e8d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e8e a604 | | Store_Unchecked 0x3,0x4
0e8f e00f | | Load 0x0,0xf
0e90 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0e91 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e92 02c7 | | Declare_Variable Any
0e93 00db | | Load_Top At_Offset_3
0e94 e001 | | Load 0x0,0x1
0e95 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0e96 a605 | | Store_Unchecked 0x3,0x5
0e97 00db | | Load_Top At_Offset_3
0e98 e001 | | Load 0x0,0x1
0e99 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0e9a e001 | | Load 0x0,0x1
0e9b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0e9c 03f1 | | Declare_Variable Discrete,With_Value
0e9d 00d8 | | Load_Top At_Offset_0
0e9e e001 | | Load 0x0,0x1
0e9f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0ea0 011c | | Execute Any,Convert_Unchecked
0ea1 1c01 | | Execute_Immediate Run_Utility,0x1
0ea2 e602 | | Load 0x3,0x2
0ea3 e001 | | Load 0x0,0x1
0ea4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ea5 e001 | | Load 0x0,0x1
0ea6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0ea7 03f1 | | Declare_Variable Discrete,With_Value
0ea8 00d8 | | Load_Top At_Offset_0
0ea9 e001 | | Load 0x0,0x1
0eaa 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0eab 011c | | Execute Any,Convert_Unchecked
0eac 1c01 | | Execute_Immediate Run_Utility,0x1
0ead e602 | | Load 0x3,0x2
0eae e00f | | Load 0x0,0xf
0eaf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0eb0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0eb1 e022 | " | Load 0x0,0x22
0eb2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0eb3 e605 | | Load 0x3,0x5
0eb4 e00f | | Load 0x0,0xf
0eb5 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0eb6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0eb7 00e1 | | Load_Encached Boolean_Cache
0eb8 011c | | Execute Any,Convert_Unchecked
0eb9 1c01 | | Execute_Immediate Run_Utility,0x1
0eba 0092 19a2 | | Action Push_String_Extended,0x19a2 ; "Creator => "
0ebc e604 | | Load 0x3,0x4
0ebd e00f | | Load 0x0,0xf
0ebe 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0ebf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ec0 e00f | | Load 0x0,0xf
0ec1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ec2 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0ec3 01cc | | Execute Vector,Catenate
0ec4 0007 | | Action Break_Optional
0ec5 e023 | # | Load 0x0,0x23
0ec6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0ec7 0322 | " | Declare_Variable Record
0ec8 e604 | | Load 0x3,0x4
0ec9 e00f | | Load 0x0,0xf
0eca 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0ecb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0ecc e023 | # | Load 0x0,0x23
0ecd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0ece 00d9 | | Load_Top At_Offset_1
0ecf 017d | } | Execute Record,Structure_Write
0ed0 0092 19a3 | | Action Push_String_Extended,0x19a3 ; "Create Date => "
0ed2 4802 |H | Short_Literal 0x2
0ed3 4800 |H | Short_Literal 0x0
0ed4 4800 |H | Short_Literal 0x0
0ed5 e60d | | Load 0x3,0xd
0ed6 e023 | # | Load 0x0,0x23
0ed7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ed8 01cc | | Execute Vector,Catenate
0ed9 0007 | | Action Break_Optional
0eda 0092 19a4 | | Action Push_String_Extended,0x19a4 ; "Subclass => "
0edc e609 | | Load 0x3,0x9
0edd 01cc | | Execute Vector,Catenate
0ede 0007 | | Action Break_Optional
0edf 0092 19a5 | | Action Push_String_Extended,0x19a5 ; "Total Size => "
0ee1 4820 |H | Short_Literal 0x20
0ee2 4800 |H | Short_Literal 0x0
0ee3 480a |H | Short_Literal 0xa
0ee4 e604 | | Load 0x3,0x4
0ee5 e00f | | Load 0x0,0xf
0ee6 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0ee7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ee8 e00b | | Load 0x0,0xb
0ee9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0eea 01cc | | Execute Vector,Catenate
0eeb 0007 | | Action Break_Optional
0eec e605 | | Load 0x3,0x5
0eed e00f | | Load 0x0,0xf
0eee 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0eef 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0ef0 00e1 | | Load_Encached Boolean_Cache
0ef1 03f1 | | Declare_Variable Discrete,With_Value
0ef2 00d8 | | Load_Top At_Offset_0
0ef3 00e1 | | Load_Encached Boolean_Cache
0ef4 011c | | Execute Any,Convert_Unchecked
0ef5 1c01 | | Execute_Immediate Run_Utility,0x1
0ef6 e605 | | Load 0x3,0x5
0ef7 e00f | | Load 0x0,0xf
0ef8 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0ef9 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0efa 00e1 | | Load_Encached Boolean_Cache
0efb 011c | | Execute Any,Convert_Unchecked
0efc 1c01 | | Execute_Immediate Run_Utility,0x1
0efd e605 | | Load 0x3,0x5
0efe e00f | | Load 0x0,0xf
0eff 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0f00 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0f01 0f00 | | Execute_Immediate Equal,0x0
0f02 00e1 | | Load_Encached Boolean_Cache
0f03 011c | | Execute Any,Convert_Unchecked
0f04 1c01 | | Execute_Immediate Run_Utility,0x1
0f05 0092 19a6 | | Action Push_String_Extended,0x19a6 ; "Updater => "
0f07 e604 | | Load 0x3,0x4
0f08 e00f | | Load 0x0,0xf
0f09 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0f0a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0f0b e00f | | Load 0x0,0xf
0f0c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0f0d 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0f0e 01cc | | Execute Vector,Catenate
0f0f 0007 | | Action Break_Optional
0f10 e023 | # | Load 0x0,0x23
0f11 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0f12 0322 | " | Declare_Variable Record
0f13 e604 | | Load 0x3,0x4
0f14 e00f | | Load 0x0,0xf
0f15 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0f16 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f17 e023 | # | Load 0x0,0x23
0f18 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0f19 00d9 | | Load_Top At_Offset_1
0f1a 017d | } | Execute Record,Structure_Write
0f1b 0092 19a7 | | Action Push_String_Extended,0x19a7 ; "Update Date => "
0f1d 4802 |H | Short_Literal 0x2
0f1e 4800 |H | Short_Literal 0x0
0f1f 4800 |H | Short_Literal 0x0
0f20 e616 | | Load 0x3,0x16
0f21 e023 | # | Load 0x0,0x23
0f22 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0f23 01cc | | Execute Vector,Catenate
0f24 029f 1583 | | Declare_Subprogram INIT_1580,For_Call
0f26 029f 16d3 | | Declare_Subprogram INIT_16d0,For_Call
0f28 BODY_0e78:
0f28 e602 | | Load 0x3,0x2
0f29 e00f | | Load 0x0,0xf
0f2a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0f2b 6805 |h | Jump_Zero 0xf31
0f2c 0092 19a8 | | Action Push_String_Extended,0x19a8 ; "No object selected"
0f2e 825a | Z | Call 0x1,0x5a
0f2f 00cc | | Action Pop_Block
0f30 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f31 e606 | | Load 0x3,0x6
0f32 460f |F | Jump_Case 0x10
0f33 780f |x | Jump 0xf43 ; case 0x0
0f34 782c |x, | Jump 0xf61 ; case 0x1
0f35 7829 |x) | Jump 0xf5f ; case 0x2
0f36 782a |x* | Jump 0xf61 ; case 0x3
0f37 780b |x | Jump 0xf43 ; case 0x4
0f38 780a |x | Jump 0xf43 ; case 0x5
0f39 7809 |x | Jump 0xf43 ; case 0x6
0f3a 7808 |x | Jump 0xf43 ; case 0x7
0f3b 7827 |x' | Jump 0xf63 ; case 0x8
0f3c 7806 |x | Jump 0xf43 ; case 0x9
0f3d 7805 |x | Jump 0xf43 ; case 0xa
0f3e 7804 |x | Jump 0xf43 ; case 0xb
0f3f 7803 |x | Jump 0xf43 ; case 0xc
0f40 7802 |x | Jump 0xf43 ; case 0xd
0f41 7801 |x | Jump 0xf43 ; case 0xe
0f42 7800 |x | Jump 0xf43 ; case 0xf
0f43 00ea | | Load_Encached Null_String_Cache
0f44 00ea | | Load_Encached Null_String_Cache
0f45 e60c | | Load 0x3,0xc
0f46 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
0f48 01cc | | Execute Vector,Catenate
0f49 e60e | | Load 0x3,0xe
0f4a 01cc | | Execute Vector,Catenate
0f4b 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
0f4d 01cc | | Execute Vector,Catenate
0f4e e609 | | Load 0x3,0x9
0f4f 01cc | | Execute Vector,Catenate
0f50 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
0f52 01cc | | Execute Vector,Catenate
0f53 e610 | | Load 0x3,0x10
0f54 01cc | | Execute Vector,Catenate
0f55 e614 | | Load 0x3,0x14
0f56 e612 | | Load 0x3,0x12
0f57 e60b | | Load 0x3,0xb
0f58 e60a | | Load 0x3,0xa
0f59 e603 | | Load 0x3,0x3
0f5a 4af1 |J | Short_Literal 0x2f1
0f5b 4818 |H | Short_Literal 0x18
0f5c e002 | | Load 0x0,0x2
0f5d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f5e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f5f 8618 | | Call 0x3,0x18
0f60 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f61 8619 | | Call 0x3,0x19
0f62 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f63 0092 19aa | | Action Push_String_Extended,0x19aa ; "<SESSION>"
0f65 e009 | | Load 0x0,0x9
0f66 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f67 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f68 TRAP_0e78:
0f68 e022 | " | Load 0x0,0x22
0f69 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f6a 010f | | Execute Exception,Equal
0f6b 6804 |h | Jump_Zero 0xf70
0f6c 0092 19ab | | Action Push_String_Extended,0x19ab ; "Error getting access list"
0f6e 825a | Z | Call 0x1,0x5a
0f6f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f70 0100 | | Execute Exception,Raise
0f71 0000 0000 | | .BLANK 0000[0x7]
0f78 ; --------------------------------------------------------------------------------------
0f78 ; SUBPROGRAM
0f78 ; --------------------------------------------------------------------------------------
0f78 0f97 | | .CONST 0x0f97 ; Address of begin
0f79 0004 | | .CONST 0x0004 ; Address of exception handler
0f7a 0006 | | .CONST 0x0006 ; Number of locals
0f7b INIT_0f78:
0f7b e402 | | Load 0x2,0x2
0f7c e00f | | Load 0x0,0xf
0f7d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0f7e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0f7f e00f | | Load 0x0,0xf
0f80 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f81 02c7 | | Declare_Variable Any
0f82 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0f84 e001 | | Load 0x0,0x1
0f85 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f86 a603 | | Store_Unchecked 0x3,0x3
0f87 e00f | | Load 0x0,0xf
0f88 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0f89 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0f8a 02c7 | | Declare_Variable Any
0f8b 00d9 | | Load_Top At_Offset_1
0f8c e001 | | Load 0x0,0x1
0f8d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f8e a604 | | Store_Unchecked 0x3,0x4
0f8f e00f | | Load 0x0,0xf
0f90 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0f91 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f92 02c7 | | Declare_Variable Any
0f93 00d8 | | Load_Top At_Offset_0
0f94 1c00 | | Execute_Immediate Run_Utility,0x0
0f95 e00f | | Load 0x0,0xf
0f96 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f97 BODY_0f78:
0f97 e00f | | Load 0x0,0xf
0f98 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f99 00da | | Load_Top At_Offset_2
0f9a 0120 | | Execute Any,Is_Value
0f9b 6804 |h | Jump_Zero 0xfa0
0f9c e00f | | Load 0x0,0xf
0f9d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0f9e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f9f 7801 |x | Jump 0xfa1
0fa0 00da | | Load_Top At_Offset_2
0fa1 e603 | | Load 0x3,0x3
0fa2 e00f | | Load 0x0,0xf
0fa3 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0fa4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0fa5 c605 | | Store 0x3,0x5
0fa6 0059 | Y | Store_Top Discrete,At_Offset_1
0fa7 4801 |H | Short_Literal 0x1
0fa8 e5fe | | Load 0x2,-0x2
0fa9 e602 | | Load 0x3,0x2
0faa e022 | " | Load 0x0,0x22
0fab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0fac e00b | | Load 0x0,0xb
0fad 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0fae 7006 |p | Jump_Nonzero 0xfb5
0faf 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0fb1 e602 | | Load 0x3,0x2
0fb2 e5fe | | Load 0x2,-0x2
0fb3 e024 | $ | Load 0x0,0x24
0fb4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0fb5 e5fd | | Load 0x2,-0x3
0fb6 0f01 | | Execute_Immediate Equal,0x1
0fb7 700c |p | Jump_Nonzero 0xfc4
0fb8 00da | | Load_Top At_Offset_2
0fb9 e00f | | Load 0x0,0xf
0fba 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0fbb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0fbc 6812 |h | Jump_Zero 0xfcf
0fbd 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0fbf 4801 |H | Short_Literal 0x1
0fc0 e602 | | Load 0x3,0x2
0fc1 e006 | | Load 0x0,0x6
0fc2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0fc3 780b |x | Jump 0xfcf
0fc4 00da | | Load_Top At_Offset_2
0fc5 e00f | | Load 0x0,0xf
0fc6 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0fc7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0fc8 7006 |p | Jump_Nonzero 0xfcf
0fc9 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0fcb 4801 |H | Short_Literal 0x1
0fcc e602 | | Load 0x3,0x2
0fcd e006 | | Load 0x0,0x6
0fce 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0fcf e5fc | | Load 0x2,-0x4
0fd0 0f01 | | Execute_Immediate Equal,0x1
0fd1 7023 |p# | Jump_Nonzero 0xff5
0fd2 00d9 | | Load_Top At_Offset_1
0fd3 e00f | | Load 0x0,0xf
0fd4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0fd5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0fd6 e001 | | Load 0x0,0x1
0fd7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fd8 e001 | | Load 0x0,0x1
0fd9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0fda 6839 |h9 | Jump_Zero 0x1014
0fdb e602 | | Load 0x3,0x2
0fdc e008 | | Load 0x0,0x8
0fdd 180d | | Execute Package,Field_Execute,Field_Number 0xd
0fde 6835 |h5 | Jump_Zero 0x1014
0fdf 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
0fe1 e008 | | Load 0x0,0x8
0fe2 180e | | Execute Package,Field_Execute,Field_Number 0xe
0fe3 6808 |h | Jump_Zero 0xfec
0fe4 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0fe6 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0fe8 00ea | | Load_Encached Null_String_Cache
0fe9 e602 | | Load 0x3,0x2
0fea e007 | | Load 0x0,0x7
0feb 180e | | Execute Package,Field_Execute,Field_Number 0xe
0fec 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
0fee 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
0ff0 00ea | | Load_Encached Null_String_Cache
0ff1 e602 | | Load 0x3,0x2
0ff2 e007 | | Load 0x0,0x7
0ff3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ff4 781f |x | Jump 0x1014
0ff5 00d9 | | Load_Top At_Offset_1
0ff6 e00f | | Load 0x0,0xf
0ff7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0ff8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ff9 e001 | | Load 0x0,0x1
0ffa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ffb e001 | | Load 0x0,0x1
0ffc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0ffd 6812 |h | Jump_Zero 0x1010
0ffe e602 | | Load 0x3,0x2
0fff e008 | | Load 0x0,0x8
1000 180d | | Execute Package,Field_Execute,Field_Number 0xd
1001 7012 |p | Jump_Nonzero 0x1014
1002 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1004 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1006 00ea | | Load_Encached Null_String_Cache
1007 4801 |H | Short_Literal 0x1
1008 0092 19ac | | Action Push_String_Extended,0x19ac ; "<NONE>"
100a 0092 1952 | R| Action Push_String_Extended,0x1952 ; "<AUTO_GENERATE>"
100c e602 | | Load 0x3,0x2
100d e007 | | Load 0x0,0x7
100e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
100f 7804 |x | Jump 0x1014
1010 0092 19ad | | Action Push_String_Extended,0x19ad ; "Object is not in a subsystem view"
1012 e025 | % | Load 0x0,0x25
1013 180d | | Execute Package,Field_Execute,Field_Number 0xd
1014 e5fb | | Load 0x2,-0x5
1015 0f01 | | Execute_Immediate Equal,0x1
1016 701a |p | Jump_Nonzero 0x1031
1017 00d9 | | Load_Top At_Offset_1
1018 e00f | | Load 0x0,0xf
1019 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
101a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
101b e001 | | Load 0x0,0x1
101c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
101d e001 | | Load 0x0,0x1
101e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
101f 6810 |h | Jump_Zero 0x1030
1020 e602 | | Load 0x3,0x2
1021 e008 | | Load 0x0,0x8
1022 180d | | Execute Package,Field_Execute,Field_Number 0xd
1023 680c |h | Jump_Zero 0x1030
1024 e602 | | Load 0x3,0x2
1025 e008 | | Load 0x0,0x8
1026 180e | | Execute Package,Field_Execute,Field_Number 0xe
1027 6808 |h | Jump_Zero 0x1030
1028 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
102a 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
102c 00ea | | Load_Encached Null_String_Cache
102d e602 | | Load 0x3,0x2
102e e007 | | Load 0x0,0x7
102f 180e | | Execute Package,Field_Execute,Field_Number 0xe
1030 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1031 00d9 | | Load_Top At_Offset_1
1032 e00f | | Load 0x0,0xf
1033 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1034 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1035 e001 | | Load 0x0,0x1
1036 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1037 e001 | | Load 0x0,0x1
1038 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
1039 681c |h | Jump_Zero 0x1056
103a e602 | | Load 0x3,0x2
103b e008 | | Load 0x0,0x8
103c 180d | | Execute Package,Field_Execute,Field_Number 0xd
103d 6813 |h | Jump_Zero 0x1051
103e e602 | | Load 0x3,0x2
103f e008 | | Load 0x0,0x8
1040 180e | | Execute Package,Field_Execute,Field_Number 0xe
1041 700e |p | Jump_Nonzero 0x1050
1042 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1044 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1046 0092 1963 | c| Action Push_String_Extended,0x1963 ; "<TOMORROW>"
1048 4803 |H | Short_Literal 0x3
1049 4801 |H | Short_Literal 0x1
104a 4800 |H | Short_Literal 0x0
104b 4801 |H | Short_Literal 0x1
104c 00ea | | Load_Encached Null_String_Cache
104d e602 | | Load 0x3,0x2
104e e007 | | Load 0x0,0x7
104f 180d | | Execute Package,Field_Execute,Field_Number 0xd
1050 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1051 0092 19ae | | Action Push_String_Extended,0x19ae ; "Object is not controlled"
1053 e025 | % | Load 0x0,0x25
1054 180d | | Execute Package,Field_Execute,Field_Number 0xd
1055 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1056 0092 19ad | | Action Push_String_Extended,0x19ad ; "Object is not in a subsystem view"
1058 e025 | % | Load 0x0,0x25
1059 180d | | Execute Package,Field_Execute,Field_Number 0xd
105a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
105b 0000 0000 | | .BLANK 0000[0x5]
1060 ; --------------------------------------------------------------------------------------
1060 ; SUBPROGRAM
1060 ; --------------------------------------------------------------------------------------
1060 106e | n | .CONST 0x106e ; Address of begin
1061 0004 | | .CONST 0x0004 ; Address of exception handler
1062 0004 | | .CONST 0x0004 ; Number of locals
1063 INIT_1060:
1063 e00f | | Load 0x0,0xf
1064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1065 1b18 | | Execute Package,Field_Read,Field_Number 0x18
1066 02c7 | | Declare_Variable Any
1067 00d8 | | Load_Top At_Offset_0
1068 1c00 | | Execute_Immediate Run_Utility,0x0
1069 e00f | | Load 0x0,0xf
106a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
106b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
106c 029f 173b | ;| Declare_Subprogram INIT_1738,For_Call
106e BODY_1060:
106e e00f | | Load 0x0,0xf
106f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1070 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1071 00db | | Load_Top At_Offset_3
1072 6025 |`% | Indirect_Literal Discrete,0x1098,{0x00000000, 0x00004000}
1073 e010 | | Load 0x0,0x10
1074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1075 e011 | | Load 0x0,0x11
1076 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1077 e012 | | Load 0x0,0x12
1078 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1079 4801 |H | Short_Literal 0x1
107a 4800 |H | Short_Literal 0x0
107b e011 | | Load 0x0,0x11
107c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
107d e00f | | Load 0x0,0xf
107e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
107f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1080 e5ff | | Load 0x2,-0x1
1081 e00f | | Load 0x0,0xf
1082 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1083 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1084 c602 | | Store 0x3,0x2
1085 005a | Z | Store_Top Discrete,At_Offset_2
1086 00cf | | Action Mark_Auxiliary
1087 7807 |x | Jump 0x108f
1088 8604 | | Call 0x3,0x4
1089 00db | | Load_Top At_Offset_3
108a e00f | | Load 0x0,0xf
108b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
108c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
108d c602 | | Store 0x3,0x2
108e 00c9 | | Action Pop_Auxiliary_Loop
108f 00db | | Load_Top At_Offset_3
1090 e00f | | Load 0x0,0xf
1091 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1092 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1093 6ff4 |o | Jump_Zero 0x1088
1094 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1095 0000 0000 | | .XXX[0x3]
1097 0000 | |
1098 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
109c 0000 0000 | | .BLANK 0000[0x4]
10a0 ; --------------------------------------------------------------------------------------
10a0 ; SUBPROGRAM
10a0 ; --------------------------------------------------------------------------------------
10a0 10b7 | | .CONST 0x10b7 ; Address of begin
10a1 0004 | | .CONST 0x0004 ; Address of exception handler
10a2 0004 | | .CONST 0x0004 ; Number of locals
10a3 INIT_10a0:
10a3 e402 | | Load 0x2,0x2
10a4 e00f | | Load 0x0,0xf
10a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
10a6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
10a7 e00f | | Load 0x0,0xf
10a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10a9 02c7 | | Declare_Variable Any
10aa 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
10ac e001 | | Load 0x0,0x1
10ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10ae a603 | | Store_Unchecked 0x3,0x3
10af e00f | | Load 0x0,0xf
10b0 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
10b1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
10b2 02c7 | | Declare_Variable Any
10b3 00d9 | | Load_Top At_Offset_1
10b4 e001 | | Load 0x0,0x1
10b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
10b6 a604 | | Store_Unchecked 0x3,0x4
10b7 BODY_10a0:
10b7 00da | | Load_Top At_Offset_2
10b8 e001 | | Load 0x0,0x1
10b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
10ba 6835 |h5 | Jump_Zero 0x10f0
10bb e5fe | | Load 0x2,-0x2
10bc 0f01 | | Execute_Immediate Equal,0x1
10bd 700c |p | Jump_Nonzero 0x10ca
10be 00d8 | | Load_Top At_Offset_0
10bf e00f | | Load 0x0,0xf
10c0 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
10c1 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
10c2 6812 |h | Jump_Zero 0x10d5
10c3 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
10c5 4801 |H | Short_Literal 0x1
10c6 e602 | | Load 0x3,0x2
10c7 e006 | | Load 0x0,0x6
10c8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
10c9 780b |x | Jump 0x10d5
10ca 00d8 | | Load_Top At_Offset_0
10cb e00f | | Load 0x0,0xf
10cc 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
10cd 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
10ce 7006 |p | Jump_Nonzero 0x10d5
10cf 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
10d1 4801 |H | Short_Literal 0x1
10d2 e602 | | Load 0x3,0x2
10d3 e006 | | Load 0x0,0x6
10d4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
10d5 4800 |H | Short_Literal 0x0
10d6 00ea | | Load_Encached Null_String_Cache
10d7 4820 |H | Short_Literal 0x20
10d8 4820 |H | Short_Literal 0x20
10d9 e5fd | | Load 0x2,-0x3
10da e00b | | Load 0x0,0xb
10db 181a | | Execute Package,Field_Execute,Field_Number 0x1a
10dc e00b | | Load 0x0,0xb
10dd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
10de e00b | | Load 0x0,0xb
10df 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
10e0 700f |p | Jump_Nonzero 0x10f0
10e1 e5fd | | Load 0x2,-0x3
10e2 e001 | | Load 0x0,0x1
10e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
10e4 6807 |h | Jump_Zero 0x10ec
10e5 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
10e7 00db | | Load_Top At_Offset_3
10e8 e5fd | | Load 0x2,-0x3
10e9 e009 | | Load 0x0,0x9
10ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
10eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
10ec 0092 19af | | Action Push_String_Extended,0x19af ; "Switch file does not exist"
10ee e025 | % | Load 0x0,0x25
10ef 180d | | Execute Package,Field_Execute,Field_Number 0xd
10f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
10f1 0000 0000 | | .BLANK 0000[0x7]
10f8 ; --------------------------------------------------------------------------------------
10f8 ; SUBPROGRAM
10f8 ; --------------------------------------------------------------------------------------
10f8 1111 | | .CONST 0x1111 ; Address of begin
10f9 0004 | | .CONST 0x0004 ; Address of exception handler
10fa 0007 | | .CONST 0x0007 ; Number of locals
10fb INIT_10f8:
10fb e00f | | Load 0x0,0xf
10fc 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
10fd 02c7 | | Declare_Variable Any
10fe 00d8 | | Load_Top At_Offset_0
10ff 1c00 | | Execute_Immediate Run_Utility,0x0
1100 00e1 | | Load_Encached Boolean_Cache
1101 e00f | | Load 0x0,0xf
1102 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1103 02c7 | | Declare_Variable Any
1104 00d8 | | Load_Top At_Offset_0
1105 1c00 | | Execute_Immediate Run_Utility,0x0
1106 e00f | | Load 0x0,0xf
1107 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1108 1b18 | | Execute Package,Field_Read,Field_Number 0x18
1109 02c7 | | Declare_Variable Any
110a 00d8 | | Load_Top At_Offset_0
110b 1c00 | | Execute_Immediate Run_Utility,0x0
110c e00f | | Load 0x0,0xf
110d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
110e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
110f e00f | | Load 0x0,0xf
1110 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1111 BODY_10f8:
1111 e7ff | | Load 0x3,-0x1
1112 e00f | | Load 0x0,0xf
1113 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1114 c602 | | Store 0x3,0x2
1115 e602 | | Load 0x3,0x2
1116 e00f | | Load 0x0,0xf
1117 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
1118 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1119 012f | / | Execute Any,Equal
111a a603 | | Store_Unchecked 0x3,0x3
111b e603 | | Load 0x3,0x3
111c 68a1 |h | Jump_Zero 0x11be
111d e00f | | Load 0x0,0xf
111e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
111f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1120 00db | | Load_Top At_Offset_3
1121 60a2 |` | Indirect_Literal Discrete,0x11c4,{0x00000000, 0x00004000}
1122 e010 | | Load 0x0,0x10
1123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1124 e011 | | Load 0x0,0x11
1125 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1126 e012 | | Load 0x0,0x12
1127 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1128 4801 |H | Short_Literal 0x1
1129 4800 |H | Short_Literal 0x0
112a e011 | | Load 0x0,0x11
112b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
112c e00f | | Load 0x0,0xf
112d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
112e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
112f 0092 19b0 | | Action Push_String_Extended,0x19b0 ; "{"
1131 e7ff | | Load 0x3,-0x1
1132 e00f | | Load 0x0,0xf
1133 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1134 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1135 01cc | | Execute Vector,Catenate
1136 0092 19b1 | | Action Push_String_Extended,0x19b1 ; ".@['c(~library)?,'c(library)]}"
1138 01cc | | Execute Vector,Catenate
1139 e00f | | Load 0x0,0xf
113a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
113b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
113c c605 | | Store 0x3,0x5
113d 005a | Z | Store_Top Discrete,At_Offset_2
113e 00cf | | Action Mark_Auxiliary
113f 7878 |xx | Jump 0x11b8
1140 e00f | | Load 0x0,0xf
1141 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1142 e604 | | Load 0x3,0x4
1143 0120 | | Execute Any,Is_Value
1144 6803 |h | Jump_Zero 0x1148
1145 e00f | | Load 0x0,0xf
1146 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1147 7801 |x | Jump 0x1149
1148 e604 | | Load 0x3,0x4
1149 e605 | | Load 0x3,0x5
114a e00f | | Load 0x0,0xf
114b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
114c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
114d c604 | | Store 0x3,0x4
114e 005a | Z | Store_Top Discrete,At_Offset_2
114f 00d9 | | Load_Top At_Offset_1
1150 6801 |h | Jump_Zero 0x1152
1151 786b |xk | Jump 0x11bd
1152 e604 | | Load 0x3,0x4
1153 825d | ] | Call 0x1,0x5d
1154 a406 | | Store_Unchecked 0x2,0x6
1155 e604 | | Load 0x3,0x4
1156 825e | ^ | Call 0x1,0x5e
1157 a407 | | Store_Unchecked 0x2,0x7
1158 e7f6 | | Load 0x3,-0xa
1159 e7f7 | | Load 0x3,-0x9
115a e7f8 | | Load 0x3,-0x8
115b e7f9 | | Load 0x3,-0x7
115c e7fa | | Load 0x3,-0x6
115d e7fb | | Load 0x3,-0x5
115e e7fc | | Load 0x3,-0x4
115f e7fd | | Load 0x3,-0x3
1160 e7fe | | Load 0x3,-0x2
1161 e604 | | Load 0x3,0x4
1162 8412 | | Call 0x2,0x12
1163 c7fe | | Store 0x3,-0x2
1164 c7fd | | Store 0x3,-0x3
1165 c7fc | | Store 0x3,-0x4
1166 c7fb | | Store 0x3,-0x5
1167 c7fa | | Store 0x3,-0x6
1168 c7f9 | | Store 0x3,-0x7
1169 c7f8 | | Store 0x3,-0x8
116a c7f7 | | Store 0x3,-0x9
116b c7f6 | | Store 0x3,-0xa
116c e7f6 | | Load 0x3,-0xa
116d 0a01 | | Execute_Immediate Plus,0x1
116e c7f6 | | Store 0x3,-0xa
116f e406 | | Load 0x2,0x6
1170 460f |F | Jump_Case 0x10
1171 780f |x | Jump 0x1181 ; case 0x0
1172 7819 |x | Jump 0x118c ; case 0x1
1173 781c |x | Jump 0x1190 ; case 0x2
1174 780c |x | Jump 0x1181 ; case 0x3
1175 780b |x | Jump 0x1181 ; case 0x4
1176 780a |x | Jump 0x1181 ; case 0x5
1177 7809 |x | Jump 0x1181 ; case 0x6
1178 7808 |x | Jump 0x1181 ; case 0x7
1179 7807 |x | Jump 0x1181 ; case 0x8
117a 7806 |x | Jump 0x1181 ; case 0x9
117b 7805 |x | Jump 0x1181 ; case 0xa
117c 7804 |x | Jump 0x1181 ; case 0xb
117d 7803 |x | Jump 0x1181 ; case 0xc
117e 7802 |x | Jump 0x1181 ; case 0xd
117f 7801 |x | Jump 0x1181 ; case 0xe
1180 7800 |x | Jump 0x1181 ; case 0xf
1181 e407 | | Load 0x2,0x7
1182 0f2a | * | Execute_Immediate Equal,0x2a
1183 7004 |p | Jump_Nonzero 0x1188
1184 e7f7 | | Load 0x3,-0x9
1185 0a01 | | Execute_Immediate Plus,0x1
1186 c7f7 | | Store 0x3,-0x9
1187 782a |x* | Jump 0x11b2
1188 e7fe | | Load 0x3,-0x2
1189 0a01 | | Execute_Immediate Plus,0x1
118a c7fe | | Store 0x3,-0x2
118b 7826 |x& | Jump 0x11b2
118c e7fc | | Load 0x3,-0x4
118d 0a01 | | Execute_Immediate Plus,0x1
118e c7fc | | Store 0x3,-0x4
118f 7822 |x" | Jump 0x11b2
1190 e407 | | Load 0x2,0x7
1191 00d8 | | Load_Top At_Offset_0
1192 0d03 | | Execute_Immediate Less,0x3
1193 700d |p | Jump_Nonzero 0x11a1
1194 00d8 | | Load_Top At_Offset_0
1195 0c07 | | Execute_Immediate Greater_Equal,0x7
1196 7007 |p | Jump_Nonzero 0x119e
1197 0b04 | | Execute_Immediate Case_Compare,0x4
1198 700d |p | Jump_Nonzero 0x11a6
1199 4805 |H | Short_Literal 0x5
119a 4806 |H | Short_Literal 0x6
119b 0262 | b | Execute Discrete,In_Range
119c 700e |p | Jump_Nonzero 0x11ab
119d 7811 |x | Jump 0x11af
119e 0f42 | B | Execute_Immediate Equal,0x42
119f 700b |p | Jump_Nonzero 0x11ab
11a0 7801 |x | Jump 0x11a2
11a1 00d1 | | Pop_Control Pop_Count_1
11a2 e7f8 | | Load 0x3,-0x8
11a3 0a01 | | Execute_Immediate Plus,0x1
11a4 c7f8 | | Store 0x3,-0x8
11a5 780c |x | Jump 0x11b2
11a6 00d1 | | Pop_Control Pop_Count_1
11a7 e7f9 | | Load 0x3,-0x7
11a8 0a01 | | Execute_Immediate Plus,0x1
11a9 c7f9 | | Store 0x3,-0x7
11aa 7807 |x | Jump 0x11b2
11ab e7fa | | Load 0x3,-0x6
11ac 0a01 | | Execute_Immediate Plus,0x1
11ad c7fa | | Store 0x3,-0x6
11ae 7803 |x | Jump 0x11b2
11af e7fb | | Load 0x3,-0x5
11b0 0a01 | | Execute_Immediate Plus,0x1
11b1 c7fb | | Store 0x3,-0x5
11b2 00db | | Load_Top At_Offset_3
11b3 e00f | | Load 0x0,0xf
11b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11b5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
11b6 c605 | | Store 0x3,0x5
11b7 00c9 | | Action Pop_Auxiliary_Loop
11b8 00db | | Load_Top At_Offset_3
11b9 e00f | | Load 0x0,0xf
11ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
11bc 6f83 |o | Jump_Zero 0x1140
11bd 00ce | | Action Pop_Auxiliary
11be 00da | | Load_Top At_Offset_2
11bf e00f | | Load 0x0,0xf
11c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11c1 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
11c2 c605 | | Store 0x3,0x5
11c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
11c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
11c8 ; --------------------------------------------------------------------------------------
11c8 ; SUBPROGRAM
11c8 ; --------------------------------------------------------------------------------------
11c8 11cb | | .CONST 0x11cb ; Address of begin
11c9 0004 | | .CONST 0x0004 ; Address of exception handler
11ca 0001 | | .CONST 0x0001 ; Number of locals
11cb BODY_11c8:
11cb INIT_11c8:
11cb 00da | | Load_Top At_Offset_2
11cc 7006 |p | Jump_Nonzero 0x11d3
11cd e7fb | | Load 0x3,-0x5
11ce e7fe | | Load 0x3,-0x2
11cf e014 | | Load 0x0,0x14
11d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11d1 00d1 | | Pop_Control Pop_Count_1
11d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
11d3 00da | | Load_Top At_Offset_2
11d4 0f01 | | Execute_Immediate Equal,0x1
11d5 680a |h | Jump_Zero 0x11e0
11d6 e7fb | | Load 0x3,-0x5
11d7 00db | | Load_Top At_Offset_3
11d8 00e0 | | Load_Encached Standard_Cache
11d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11da e7fd | | Load 0x3,-0x3
11db 01cc | | Execute Vector,Catenate
11dc e014 | | Load 0x0,0x14
11dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11de 00d1 | | Pop_Control Pop_Count_1
11df 4505 |E | Exit_Suprogram New_Top_Offset 0x5
11e0 00da | | Load_Top At_Offset_2
11e1 0c02 | | Execute_Immediate Greater_Equal,0x2
11e2 6809 |h | Jump_Zero 0x11ec
11e3 e7fb | | Load 0x3,-0x5
11e4 00db | | Load_Top At_Offset_3
11e5 00e0 | | Load_Encached Standard_Cache
11e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11e7 e7fc | | Load 0x3,-0x4
11e8 01cc | | Execute Vector,Catenate
11e9 e014 | | Load 0x0,0x14
11ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11eb 00d1 | | Pop_Control Pop_Count_1
11ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5
11ed 0000 0000 | | .XXX[0x3]
11ef 0000 | |
11f0 ; --------------------------------------------------------------------------------------
11f0 ; SUBPROGRAM
11f0 ; --------------------------------------------------------------------------------------
11f0 120b | | .CONST 0x120b ; Address of begin
11f1 0004 | | .CONST 0x0004 ; Address of exception handler
11f2 0005 | | .CONST 0x0005 ; Number of locals
11f3 INIT_11f0:
11f3 00da | | Load_Top At_Offset_2
11f4 01db | | Execute Vector,Length
11f5 4846 |HF | Short_Literal 0x46
11f6 0270 | p | Execute Discrete,Divide
11f7 00e2 | | Load_Encached Integer_Cache
11f8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
11f9 4801 |H | Short_Literal 0x1
11fa e7ff | | Load 0x3,-0x1
11fb 01db | | Execute Vector,Length
11fc 0a01 | | Execute_Immediate Plus,0x1
11fd 00da | | Load_Top At_Offset_2
11fe 0273 | s | Execute Discrete,Plus
11ff 00d8 | | Load_Top At_Offset_0
1200 00e2 | | Load_Encached Integer_Cache
1201 0260 | ` | Execute Discrete,In_Type
1202 7001 |p | Jump_Nonzero 0x1204
1203 0801 | | Execute_Immediate Raise,0x1
1204 00e9 | | Load_Encached String_Cache
1205 035b | [ | Declare_Type Array,Constrained
1206 0337 | 7 | Declare_Variable Array
1207 00e2 | | Load_Encached Integer_Cache
1208 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
1209 00e2 | | Load_Encached Integer_Cache
120a 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
120b BODY_11f0:
120b e7ff | | Load 0x3,-0x1
120c 01db | | Execute Vector,Length
120d 0c46 | F | Execute_Immediate Greater_Equal,0x46
120e 682b |h+ | Jump_Zero 0x123a
120f 00cf | | Action Mark_Auxiliary
1210 e602 | | Load 0x3,0x2
1211 4801 |H | Short_Literal 0x1
1212 0263 | c | Execute Discrete,Above_Bound
1213 7022 |p" | Jump_Nonzero 0x1236
1214 00d8 | | Load_Top At_Offset_0
1215 0aff | | Execute_Immediate Plus,-0x1
1216 4846 |HF | Short_Literal 0x46
1217 0271 | q | Execute Discrete,Times
1218 0a01 | | Execute_Immediate Plus,0x1
1219 c605 | | Store 0x3,0x5
121a 00db | | Load_Top At_Offset_3
121b e605 | | Load 0x3,0x5
121c 0a45 | E | Execute_Immediate Plus,0x45
121d 00d8 | | Load_Top At_Offset_0
121e 00e2 | | Load_Encached Integer_Cache
121f 0260 | ` | Execute Discrete,In_Type
1220 7001 |p | Jump_Nonzero 0x1222
1221 0801 | | Execute_Immediate Raise,0x1
1222 e7ff | | Load 0x3,-0x1
1223 01cf | | Execute Vector,Slice_Read
1224 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1226 01cc | | Execute Vector,Catenate
1227 e604 | | Load 0x3,0x4
1228 00d8 | | Load_Top At_Offset_0
1229 0a46 | F | Execute_Immediate Plus,0x46
122a 00d8 | | Load_Top At_Offset_0
122b 00e2 | | Load_Encached Integer_Cache
122c 0260 | ` | Execute Discrete,In_Type
122d 7001 |p | Jump_Nonzero 0x122f
122e 0801 | | Execute_Immediate Raise,0x1
122f e603 | | Load 0x3,0x3
1230 01ce | | Execute Vector,Slice_Write
1231 e604 | | Load 0x3,0x4
1232 0a47 | G | Execute_Immediate Plus,0x47
1233 c604 | | Store 0x3,0x4
1234 00c8 | | Action Pop_Auxiliary_Range
1235 3fde |? | Loop_Increasing 0x1214
1236 00ce | | Action Pop_Auxiliary
1237 00d8 | | Load_Top At_Offset_0
1238 0a46 | F | Execute_Immediate Plus,0x46
1239 0059 | Y | Store_Top Discrete,At_Offset_1
123a 00db | | Load_Top At_Offset_3
123b 4846 |HF | Short_Literal 0x46
123c 0271 | q | Execute Discrete,Times
123d e7ff | | Load 0x3,-0x1
123e 01db | | Execute Vector,Length
123f 027e | ~ | Execute Discrete,Not_Equal
1240 6817 |h | Jump_Zero 0x1258
1241 00d8 | | Load_Top At_Offset_0
1242 e7ff | | Load 0x3,-0x1
1243 01db | | Execute Vector,Length
1244 00d8 | | Load_Top At_Offset_0
1245 00e2 | | Load_Encached Integer_Cache
1246 0260 | ` | Execute Discrete,In_Type
1247 7001 |p | Jump_Nonzero 0x1249
1248 0801 | | Execute_Immediate Raise,0x1
1249 e7ff | | Load 0x3,-0x1
124a 01cf | | Execute Vector,Slice_Read
124b 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
124d 01cc | | Execute Vector,Catenate
124e 00da | | Load_Top At_Offset_2
124f e603 | | Load 0x3,0x3
1250 01db | | Execute Vector,Length
1251 00d8 | | Load_Top At_Offset_0
1252 00e2 | | Load_Encached Integer_Cache
1253 0260 | ` | Execute Discrete,In_Type
1254 7001 |p | Jump_Nonzero 0x1256
1255 0801 | | Execute_Immediate Raise,0x1
1256 e603 | | Load 0x3,0x3
1257 01ce | | Execute Vector,Slice_Write
1258 00da | | Load_Top At_Offset_2
1259 00e9 | | Load_Encached String_Cache
125a 01c6 | | Execute Vector,Convert_To_Formal
125b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
125c 0000 0000 | | .BLANK 0000[0x4]
1260 ; --------------------------------------------------------------------------------------
1260 ; SUBPROGRAM
1260 ; --------------------------------------------------------------------------------------
1260 126c | l | .CONST 0x126c ; Address of begin
1261 0004 | | .CONST 0x0004 ; Address of exception handler
1262 0004 | | .CONST 0x0004 ; Number of locals
1263 INIT_1260:
1263 e00f | | Load 0x0,0xf
1264 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1265 02ff | | Declare_Variable Variant_Record
1266 00d8 | | Load_Top At_Offset_0
1267 1c00 | | Execute_Immediate Run_Utility,0x0
1268 e00f | | Load 0x0,0xf
1269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
126a 029f 17ab | | Declare_Subprogram INIT_17a8,For_Call
126c BODY_1260:
126c e00f | | Load 0x0,0xf
126d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
126e 00db | | Load_Top At_Offset_3
126f 600c |` | Indirect_Literal Discrete,0x127c,{0x00000000, 0x00004000}
1270 e010 | | Load 0x0,0x10
1271 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1272 e7ff | | Load 0x3,-0x1
1273 e00f | | Load 0x0,0xf
1274 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1275 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
1276 00d1 | | Pop_Control Pop_Count_1
1277 005a | Z | Store_Top Discrete,At_Offset_2
1278 8604 | | Call 0x3,0x4
1279 0831 | 1 | Execute_Immediate Raise,0x31
127a 0000 0000 | | .XXX[0x2]
127c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1280 ; --------------------------------------------------------------------------------------
1280 ; SUBPROGRAM
1280 ; --------------------------------------------------------------------------------------
1280 1295 | | .CONST 0x1295 ; Address of begin
1281 0004 | | .CONST 0x0004 ; Address of exception handler
1282 0006 | | .CONST 0x0006 ; Number of locals
1283 INIT_1280:
1283 e00f | | Load 0x0,0xf
1284 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1285 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1286 e00f | | Load 0x0,0xf
1287 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1288 e00f | | Load 0x0,0xf
1289 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
128a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
128b 02c7 | | Declare_Variable Any
128c 00d8 | | Load_Top At_Offset_0
128d 1c00 | | Execute_Immediate Run_Utility,0x0
128e e00f | | Load 0x0,0xf
128f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1290 02c7 | | Declare_Variable Any
1291 00d8 | | Load_Top At_Offset_0
1292 1c00 | | Execute_Immediate Run_Utility,0x0
1293 029f 17cb | | Declare_Subprogram INIT_17c8,For_Call
1295 BODY_1280:
1295 e00f | | Load 0x0,0xf
1296 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1297 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1298 00db | | Load_Top At_Offset_3
1299 67e2 |g | Indirect_Literal Discrete,0x127c,{0x00000000, 0x00004000}
129a e010 | | Load 0x0,0x10
129b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
129c e011 | | Load 0x0,0x11
129d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
129e e012 | | Load 0x0,0x12
129f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
12a0 4801 |H | Short_Literal 0x1
12a1 4800 |H | Short_Literal 0x0
12a2 e011 | | Load 0x0,0x11
12a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
12a4 e00f | | Load 0x0,0xf
12a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
12a7 0092 19b0 | | Action Push_String_Extended,0x19b0 ; "{"
12a9 e7ff | | Load 0x3,-0x1
12aa 01cc | | Execute Vector,Catenate
12ab 0092 19b2 | | Action Push_String_Extended,0x19b2 ; ".??@}"
12ad 01cc | | Execute Vector,Catenate
12ae e00f | | Load 0x0,0xf
12af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12b0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
12b1 c604 | | Store 0x3,0x4
12b2 c602 | | Store 0x3,0x2
12b3 00cf | | Action Mark_Auxiliary
12b4 7819 |x | Jump 0x12ce
12b5 e00f | | Load 0x0,0xf
12b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12b7 00db | | Load_Top At_Offset_3
12b8 0120 | | Execute Any,Is_Value
12b9 6803 |h | Jump_Zero 0x12bd
12ba e00f | | Load 0x0,0xf
12bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12bc 7801 |x | Jump 0x12be
12bd 00db | | Load_Top At_Offset_3
12be e604 | | Load 0x3,0x4
12bf e00f | | Load 0x0,0xf
12c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12c1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
12c2 c605 | | Store 0x3,0x5
12c3 c603 | | Store 0x3,0x3
12c4 e603 | | Load 0x3,0x3
12c5 6801 |h | Jump_Zero 0x12c7
12c6 780c |x | Jump 0x12d3
12c7 8606 | | Call 0x3,0x6
12c8 00db | | Load_Top At_Offset_3
12c9 e00f | | Load 0x0,0xf
12ca 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
12cc c604 | | Store 0x3,0x4
12cd 00c9 | | Action Pop_Auxiliary_Loop
12ce 00db | | Load_Top At_Offset_3
12cf e00f | | Load 0x0,0xf
12d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12d1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
12d2 6fe2 |o | Jump_Zero 0x12b5
12d3 00ce | | Action Pop_Auxiliary
12d4 00da | | Load_Top At_Offset_2
12d5 e00f | | Load 0x0,0xf
12d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12d7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
12d8 c604 | | Store 0x3,0x4
12d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12da 0000 0000 | | .BLANK 0000[0x6]
12e0 ; --------------------------------------------------------------------------------------
12e0 ; SUBPROGRAM
12e0 ; --------------------------------------------------------------------------------------
12e0 12f7 | | .CONST 0x12f7 ; Address of begin
12e1 0004 | | .CONST 0x0004 ; Address of exception handler
12e2 0007 | | .CONST 0x0007 ; Number of locals
12e3 INIT_12e0:
12e3 e00f | | Load 0x0,0xf
12e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12e6 e00f | | Load 0x0,0xf
12e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12e8 e00f | | Load 0x0,0xf
12e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12ea 1b18 | | Execute Package,Field_Read,Field_Number 0x18
12eb 02c7 | | Declare_Variable Any
12ec 00d8 | | Load_Top At_Offset_0
12ed 1c00 | | Execute_Immediate Run_Utility,0x0
12ee e001 | | Load 0x0,0x1
12ef 1b15 | | Execute Package,Field_Read,Field_Number 0x15
12f0 e00f | | Load 0x0,0xf
12f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12f2 02c7 | | Declare_Variable Any
12f3 00d8 | | Load_Top At_Offset_0
12f4 1c00 | | Execute_Immediate Run_Utility,0x0
12f5 029f 17e3 | | Declare_Subprogram INIT_17e0,For_Call
12f7 BODY_12e0:
12f7 e00f | | Load 0x0,0xf
12f8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12fa e604 | | Load 0x3,0x4
12fb 6040 |`@ | Indirect_Literal Discrete,0x133c,{0x00000000, 0x00004000}
12fc e010 | | Load 0x0,0x10
12fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12fe e011 | | Load 0x0,0x11
12ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1300 e012 | | Load 0x0,0x12
1301 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1302 4801 |H | Short_Literal 0x1
1303 4800 |H | Short_Literal 0x0
1304 e011 | | Load 0x0,0x11
1305 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1306 e00f | | Load 0x0,0xf
1307 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1308 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1309 0092 19b0 | | Action Push_String_Extended,0x19b0 ; "{"
130b e7ff | | Load 0x3,-0x1
130c 01cc | | Execute Vector,Catenate
130d 0092 19b3 | | Action Push_String_Extended,0x19b3 ; ".@'c(library)}"
130f 01cc | | Execute Vector,Catenate
1310 e00f | | Load 0x0,0xf
1311 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1312 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1313 c604 | | Store 0x3,0x4
1314 c602 | | Store 0x3,0x2
1315 00cf | | Action Mark_Auxiliary
1316 7819 |x | Jump 0x1330
1317 e00f | | Load 0x0,0xf
1318 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1319 00db | | Load_Top At_Offset_3
131a 0120 | | Execute Any,Is_Value
131b 6803 |h | Jump_Zero 0x131f
131c e00f | | Load 0x0,0xf
131d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
131e 7801 |x | Jump 0x1320
131f 00db | | Load_Top At_Offset_3
1320 e604 | | Load 0x3,0x4
1321 e00f | | Load 0x0,0xf
1322 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1323 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1324 c606 | | Store 0x3,0x6
1325 c603 | | Store 0x3,0x3
1326 e603 | | Load 0x3,0x3
1327 6801 |h | Jump_Zero 0x1329
1328 780c |x | Jump 0x1335
1329 8607 | | Call 0x3,0x7
132a e604 | | Load 0x3,0x4
132b e00f | | Load 0x0,0xf
132c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
132d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
132e c604 | | Store 0x3,0x4
132f 00c9 | | Action Pop_Auxiliary_Loop
1330 e604 | | Load 0x3,0x4
1331 e00f | | Load 0x0,0xf
1332 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1333 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1334 6fe2 |o | Jump_Zero 0x1317
1335 00ce | | Action Pop_Auxiliary
1336 00db | | Load_Top At_Offset_3
1337 e00f | | Load 0x0,0xf
1338 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1339 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
133a c604 | | Store 0x3,0x4
133b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
133c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1340 ; --------------------------------------------------------------------------------------
1340 ; SUBPROGRAM
1340 ; --------------------------------------------------------------------------------------
1340 135b | [ | .CONST 0x135b ; Address of begin
1341 0004 | | .CONST 0x0004 ; Address of exception handler
1342 0008 | | .CONST 0x0008 ; Number of locals
1343 INIT_1340:
1343 e00f | | Load 0x0,0xf
1344 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
1345 02c7 | | Declare_Variable Any
1346 00d8 | | Load_Top At_Offset_0
1347 1c00 | | Execute_Immediate Run_Utility,0x0
1348 00e1 | | Load_Encached Boolean_Cache
1349 e00f | | Load 0x0,0xf
134a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
134b 02c7 | | Declare_Variable Any
134c 00d8 | | Load_Top At_Offset_0
134d 1c00 | | Execute_Immediate Run_Utility,0x0
134e e00f | | Load 0x0,0xf
134f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1350 1b18 | | Execute Package,Field_Read,Field_Number 0x18
1351 02c7 | | Declare_Variable Any
1352 00d8 | | Load_Top At_Offset_0
1353 1c00 | | Execute_Immediate Run_Utility,0x0
1354 e00f | | Load 0x0,0xf
1355 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1356 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1357 e00f | | Load 0x0,0xf
1358 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1359 029f 180b | | Declare_Subprogram INIT_1808,For_Call
135b BODY_1340:
135b e7ff | | Load 0x3,-0x1
135c e00f | | Load 0x0,0xf
135d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
135e c602 | | Store 0x3,0x2
135f e602 | | Load 0x3,0x2
1360 e00f | | Load 0x0,0xf
1361 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
1362 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1363 012f | / | Execute Any,Equal
1364 a603 | | Store_Unchecked 0x3,0x3
1365 e603 | | Load 0x3,0x3
1366 684b |hK | Jump_Zero 0x13b2
1367 e00f | | Load 0x0,0xf
1368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1369 1b0f | | Execute Package,Field_Read,Field_Number 0xf
136a e605 | | Load 0x3,0x5
136b 67d0 |g | Indirect_Literal Discrete,0x133c,{0x00000000, 0x00004000}
136c e010 | | Load 0x0,0x10
136d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
136e e011 | | Load 0x0,0x11
136f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1370 e012 | | Load 0x0,0x12
1371 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1372 4801 |H | Short_Literal 0x1
1373 4800 |H | Short_Literal 0x0
1374 e011 | | Load 0x0,0x11
1375 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1376 e00f | | Load 0x0,0xf
1377 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1378 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1379 0092 19b0 | | Action Push_String_Extended,0x19b0 ; "{"
137b e7ff | | Load 0x3,-0x1
137c e00f | | Load 0x0,0xf
137d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
137e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
137f 01cc | | Execute Vector,Catenate
1380 0092 19b4 | | Action Push_String_Extended,0x19b4 ; ".@['c(library),'c(~library)?]}"
1382 01cc | | Execute Vector,Catenate
1383 e00f | | Load 0x0,0xf
1384 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1385 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1386 c605 | | Store 0x3,0x5
1387 005b | [ | Store_Top Discrete,At_Offset_3
1388 00cf | | Action Mark_Auxiliary
1389 7822 |x" | Jump 0x13ac
138a e00f | | Load 0x0,0xf
138b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
138c e604 | | Load 0x3,0x4
138d 0120 | | Execute Any,Is_Value
138e 6803 |h | Jump_Zero 0x1392
138f e00f | | Load 0x0,0xf
1390 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1391 7801 |x | Jump 0x1393
1392 e604 | | Load 0x3,0x4
1393 e605 | | Load 0x3,0x5
1394 e00f | | Load 0x0,0xf
1395 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1396 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1397 c604 | | Store 0x3,0x4
1398 005b | [ | Store_Top Discrete,At_Offset_3
1399 00da | | Load_Top At_Offset_2
139a 6801 |h | Jump_Zero 0x139c
139b 7815 |x | Jump 0x13b1
139c e604 | | Load 0x3,0x4
139d 825d | ] | Call 0x1,0x5d
139e a406 | | Store_Unchecked 0x2,0x6
139f e406 | | Load 0x2,0x6
13a0 7001 |p | Jump_Nonzero 0x13a2
13a1 780f |x | Jump 0x13b1
13a2 e604 | | Load 0x3,0x4
13a3 825e | ^ | Call 0x1,0x5e
13a4 a407 | | Store_Unchecked 0x2,0x7
13a5 8608 | | Call 0x3,0x8
13a6 e605 | | Load 0x3,0x5
13a7 e00f | | Load 0x0,0xf
13a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
13aa c605 | | Store 0x3,0x5
13ab 00c9 | | Action Pop_Auxiliary_Loop
13ac e605 | | Load 0x3,0x5
13ad e00f | | Load 0x0,0xf
13ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13af 181e | | Execute Package,Field_Execute,Field_Number 0x1e
13b0 6fd9 |o | Jump_Zero 0x138a
13b1 00ce | | Action Pop_Auxiliary
13b2 00db | | Load_Top At_Offset_3
13b3 e00f | | Load 0x0,0xf
13b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13b5 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
13b6 c605 | | Store 0x3,0x5
13b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
13b8 ; --------------------------------------------------------------------------------------
13b8 ; SUBPROGRAM
13b8 ; --------------------------------------------------------------------------------------
13b8 13cd | | .CONST 0x13cd ; Address of begin
13b9 0004 | | .CONST 0x0004 ; Address of exception handler
13ba 0006 | | .CONST 0x0006 ; Number of locals
13bb INIT_13b8:
13bb e00f | | Load 0x0,0xf
13bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13bd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
13be 02c7 | | Declare_Variable Any
13bf 00d8 | | Load_Top At_Offset_0
13c0 1c00 | | Execute_Immediate Run_Utility,0x0
13c1 e00f | | Load 0x0,0xf
13c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13c4 e00f | | Load 0x0,0xf
13c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
13c6 e00f | | Load 0x0,0xf
13c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13c8 02c7 | | Declare_Variable Any
13c9 00d8 | | Load_Top At_Offset_0
13ca 1c00 | | Execute_Immediate Run_Utility,0x0
13cb 029f 1863 | c| Declare_Subprogram INIT_1860,For_Call
13cd BODY_13b8:
13cd e00f | | Load 0x0,0xf
13ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13d0 e602 | | Load 0x3,0x2
13d1 604a |`J | Indirect_Literal Discrete,0x141c,{0x00000000, 0x00004000}
13d2 e010 | | Load 0x0,0x10
13d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13d4 e011 | | Load 0x0,0x11
13d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
13d6 e012 | | Load 0x0,0x12
13d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
13d8 4801 |H | Short_Literal 0x1
13d9 4800 |H | Short_Literal 0x0
13da e011 | | Load 0x0,0x11
13db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
13dc e00f | | Load 0x0,0xf
13dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
13df 0092 19b0 | | Action Push_String_Extended,0x19b0 ; "{"
13e1 e7ff | | Load 0x3,-0x1
13e2 e00f | | Load 0x0,0xf
13e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13e4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
13e5 01cc | | Execute Vector,Catenate
13e6 0092 19b2 | | Action Push_String_Extended,0x19b2 ; ".??@}"
13e8 01cc | | Execute Vector,Catenate
13e9 e00f | | Load 0x0,0xf
13ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
13ec c602 | | Store 0x3,0x2
13ed c603 | | Store 0x3,0x3
13ee 00db | | Load_Top At_Offset_3
13ef 6801 |h | Jump_Zero 0x13f1
13f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
13f1 00cf | | Action Mark_Auxiliary
13f2 781c |x | Jump 0x140f
13f3 e00f | | Load 0x0,0xf
13f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
13f5 00db | | Load_Top At_Offset_3
13f6 0120 | | Execute Any,Is_Value
13f7 6803 |h | Jump_Zero 0x13fb
13f8 e00f | | Load 0x0,0xf
13f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13fa 7801 |x | Jump 0x13fc
13fb 00db | | Load_Top At_Offset_3
13fc e602 | | Load 0x3,0x2
13fd e00f | | Load 0x0,0xf
13fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13ff 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1400 c605 | | Store 0x3,0x5
1401 c604 | | Store 0x3,0x4
1402 00db | | Load_Top At_Offset_3
1403 6801 |h | Jump_Zero 0x1405
1404 780f |x | Jump 0x1414
1405 00da | | Load_Top At_Offset_2
1406 825f | _ | Call 0x1,0x5f
1407 6801 |h | Jump_Zero 0x1409
1408 8606 | | Call 0x3,0x6
1409 e602 | | Load 0x3,0x2
140a e00f | | Load 0x0,0xf
140b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
140c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
140d c602 | | Store 0x3,0x2
140e 00c9 | | Action Pop_Auxiliary_Loop
140f e602 | | Load 0x3,0x2
1410 e00f | | Load 0x0,0xf
1411 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1412 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1413 6fdf |o | Jump_Zero 0x13f3
1414 00ce | | Action Pop_Auxiliary
1415 e602 | | Load 0x3,0x2
1416 e00f | | Load 0x0,0xf
1417 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1418 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
1419 c602 | | Store 0x3,0x2
141a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
141b 0000 | | .XXX[0x1]
141c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1420 ; --------------------------------------------------------------------------------------
1420 ; SUBPROGRAM
1420 ; --------------------------------------------------------------------------------------
1420 1429 | ) | .CONST 0x1429 ; Address of begin
1421 0004 | | .CONST 0x0004 ; Address of exception handler
1422 0003 | | .CONST 0x0003 ; Number of locals
1423 INIT_1420:
1423 e405 | | Load 0x2,0x5
1424 e00f | | Load 0x0,0xf
1425 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1426 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1427 029f 1883 | | Declare_Subprogram INIT_1880,For_Call
1429 BODY_1420:
1429 e406 | | Load 0x2,0x6
142a 0f02 | | Execute_Immediate Equal,0x2
142b 6802 |h | Jump_Zero 0x142e
142c e405 | | Load 0x2,0x5
142d 840b | | Call 0x2,0xb
142e e405 | | Load 0x2,0x5
142f 825f | _ | Call 0x1,0x5f
1430 6874 |ht | Jump_Zero 0x14a5
1431 e405 | | Load 0x2,0x5
1432 825e | ^ | Call 0x1,0x5e
1433 4658 |FX | Jump_Case 0x59
1434 785c |x\ | Jump 0x1491 ; case 0x0
1435 785b |x[ | Jump 0x1491 ; case 0x1
1436 7856 |xV | Jump 0x148d ; case 0x2
1437 7855 |xU | Jump 0x148d ; case 0x3
1438 7858 |xX | Jump 0x1491 ; case 0x4
1439 7857 |xW | Jump 0x1491 ; case 0x5
143a 7856 |xV | Jump 0x1491 ; case 0x6
143b 7855 |xU | Jump 0x1491 ; case 0x7
143c 7854 |xT | Jump 0x1491 ; case 0x8
143d 7853 |xS | Jump 0x1491 ; case 0x9
143e 7852 |xR | Jump 0x1491 ; case 0xa
143f 7851 |xQ | Jump 0x1491 ; case 0xb
1440 7850 |xP | Jump 0x1491 ; case 0xc
1441 784e |xN | Jump 0x1490 ; case 0xd
1442 784e |xN | Jump 0x1491 ; case 0xe
1443 784c |xL | Jump 0x1490 ; case 0xf
1444 784c |xL | Jump 0x1491 ; case 0x10
1445 784a |xJ | Jump 0x1490 ; case 0x11
1446 784a |xJ | Jump 0x1491 ; case 0x12
1447 7848 |xH | Jump 0x1490 ; case 0x13
1448 7848 |xH | Jump 0x1491 ; case 0x14
1449 7846 |xF | Jump 0x1490 ; case 0x15
144a 7846 |xF | Jump 0x1491 ; case 0x16
144b 7844 |xD | Jump 0x1490 ; case 0x17
144c 7844 |xD | Jump 0x1491 ; case 0x18
144d 7842 |xB | Jump 0x1490 ; case 0x19
144e 7842 |xB | Jump 0x1491 ; case 0x1a
144f 7840 |x@ | Jump 0x1490 ; case 0x1b
1450 7840 |x@ | Jump 0x1491 ; case 0x1c
1451 783f |x? | Jump 0x1491 ; case 0x1d
1452 783e |x> | Jump 0x1491 ; case 0x1e
1453 783d |x= | Jump 0x1491 ; case 0x1f
1454 783c |x< | Jump 0x1491 ; case 0x20
1455 783b |x; | Jump 0x1491 ; case 0x21
1456 783a |x: | Jump 0x1491 ; case 0x22
1457 7839 |x9 | Jump 0x1491 ; case 0x23
1458 7838 |x8 | Jump 0x1491 ; case 0x24
1459 7837 |x7 | Jump 0x1491 ; case 0x25
145a 7836 |x6 | Jump 0x1491 ; case 0x26
145b 7835 |x5 | Jump 0x1491 ; case 0x27
145c 7834 |x4 | Jump 0x1491 ; case 0x28
145d 7833 |x3 | Jump 0x1491 ; case 0x29
145e 7832 |x2 | Jump 0x1491 ; case 0x2a
145f 7831 |x1 | Jump 0x1491 ; case 0x2b
1460 7830 |x0 | Jump 0x1491 ; case 0x2c
1461 782f |x/ | Jump 0x1491 ; case 0x2d
1462 782e |x. | Jump 0x1491 ; case 0x2e
1463 782d |x- | Jump 0x1491 ; case 0x2f
1464 782c |x, | Jump 0x1491 ; case 0x30
1465 782b |x+ | Jump 0x1491 ; case 0x31
1466 782a |x* | Jump 0x1491 ; case 0x32
1467 7829 |x) | Jump 0x1491 ; case 0x33
1468 7828 |x( | Jump 0x1491 ; case 0x34
1469 7827 |x' | Jump 0x1491 ; case 0x35
146a 7826 |x& | Jump 0x1491 ; case 0x36
146b 7825 |x% | Jump 0x1491 ; case 0x37
146c 7824 |x$ | Jump 0x1491 ; case 0x38
146d 7823 |x# | Jump 0x1491 ; case 0x39
146e 7822 |x" | Jump 0x1491 ; case 0x3a
146f 7821 |x! | Jump 0x1491 ; case 0x3b
1470 7820 |x | Jump 0x1491 ; case 0x3c
1471 781f |x | Jump 0x1491 ; case 0x3d
1472 781e |x | Jump 0x1491 ; case 0x3e
1473 781d |x | Jump 0x1491 ; case 0x3f
1474 781c |x | Jump 0x1491 ; case 0x40
1475 781b |x | Jump 0x1491 ; case 0x41
1476 781a |x | Jump 0x1491 ; case 0x42
1477 7819 |x | Jump 0x1491 ; case 0x43
1478 7818 |x | Jump 0x1491 ; case 0x44
1479 7817 |x | Jump 0x1491 ; case 0x45
147a 7816 |x | Jump 0x1491 ; case 0x46
147b 7815 |x | Jump 0x1491 ; case 0x47
147c 7814 |x | Jump 0x1491 ; case 0x48
147d 7813 |x | Jump 0x1491 ; case 0x49
147e 7812 |x | Jump 0x1491 ; case 0x4a
147f 7811 |x | Jump 0x1491 ; case 0x4b
1480 7810 |x | Jump 0x1491 ; case 0x4c
1481 780f |x | Jump 0x1491 ; case 0x4d
1482 780e |x | Jump 0x1491 ; case 0x4e
1483 780d |x | Jump 0x1491 ; case 0x4f
1484 780c |x | Jump 0x1491 ; case 0x50
1485 780b |x | Jump 0x1491 ; case 0x51
1486 780a |x | Jump 0x1491 ; case 0x52
1487 7809 |x | Jump 0x1491 ; case 0x53
1488 7808 |x | Jump 0x1491 ; case 0x54
1489 7807 |x | Jump 0x1491 ; case 0x55
148a 7806 |x | Jump 0x1491 ; case 0x56
148b 7805 |x | Jump 0x1491 ; case 0x57
148c 7804 |x | Jump 0x1491 ; case 0x58
148d e405 | | Load 0x2,0x5
148e 840c | | Call 0x2,0xc
148f 7801 |x | Jump 0x1491
1490 8603 | | Call 0x3,0x3
1491 00d9 | | Load_Top At_Offset_1
1492 e008 | | Load 0x0,0x8
1493 180e | | Execute Package,Field_Execute,Field_Number 0xe
1494 6808 |h | Jump_Zero 0x149d
1495 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1497 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1499 00ea | | Load_Encached Null_String_Cache
149a e602 | | Load 0x3,0x2
149b e007 | | Load 0x0,0x7
149c 180e | | Execute Package,Field_Execute,Field_Number 0xe
149d 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
149f 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
14a1 00ea | | Load_Encached Null_String_Cache
14a2 e602 | | Load 0x3,0x2
14a3 e007 | | Load 0x0,0x7
14a4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
14a5 e405 | | Load 0x2,0x5
14a6 825d | ] | Call 0x1,0x5d
14a7 a406 | | Store_Unchecked 0x2,0x6
14a8 e406 | | Load 0x2,0x6
14a9 681a |h | Jump_Zero 0x14c4
14aa 0092 19b5 | | Action Push_String_Extended,0x19b5 ; "deleting "
14ac 00da | | Load_Top At_Offset_2
14ad 01cc | | Execute Vector,Catenate
14ae e004 | | Load 0x0,0x4
14af 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
14b0 e406 | | Load 0x2,0x6
14b1 0f01 | | Execute_Immediate Equal,0x1
14b2 7003 |p | Jump_Nonzero 0x14b6
14b3 e402 | | Load 0x2,0x2
14b4 8408 | | Call 0x2,0x8
14b5 6809 |h | Jump_Zero 0x14bf
14b6 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
14b8 0092 19b6 | | Action Push_String_Extended,0x19b6 ; "<DIRECTORIES>"
14ba 4802 |H | Short_Literal 0x2
14bb e602 | | Load 0x3,0x2
14bc e006 | | Load 0x0,0x6
14bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
14be 7805 |x | Jump 0x14c4
14bf 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
14c1 4800 |H | Short_Literal 0x0
14c2 00db | | Load_Top At_Offset_3
14c3 8026 | & | Call 0x0,0x26
14c4 e402 | | Load 0x2,0x2
14c5 e00f | | Load 0x0,0xf
14c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
14c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
14c8 c402 | | Store 0x2,0x2
14c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
14ca 0000 0000 | | .BLANK 0000[0x6]
14d0 ; --------------------------------------------------------------------------------------
14d0 ; SUBPROGRAM
14d0 ; --------------------------------------------------------------------------------------
14d0 14e5 | | .CONST 0x14e5 ; Address of begin
14d1 0004 | | .CONST 0x0004 ; Address of exception handler
14d2 0004 | | .CONST 0x0004 ; Number of locals
14d3 INIT_14d0:
14d3 e00f | | Load 0x0,0xf
14d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
14d5 02c7 | | Declare_Variable Any
14d6 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
14d8 e001 | | Load 0x0,0x1
14d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
14da a602 | | Store_Unchecked 0x3,0x2
14db e00f | | Load 0x0,0xf
14dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
14dd 02c7 | | Declare_Variable Any
14de 0092 19b7 | | Action Push_String_Extended,0x19b7 ; "<SELECTION>"
14e0 e001 | | Load 0x0,0x1
14e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
14e2 a603 | | Store_Unchecked 0x3,0x3
14e3 e001 | | Load 0x0,0x1
14e4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
14e5 BODY_14d0:
14e5 00d9 | | Load_Top At_Offset_1
14e6 e00f | | Load 0x0,0xf
14e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
14e8 7005 |p | Jump_Nonzero 0x14ee
14e9 00d9 | | Load_Top At_Offset_1
14ea e001 | | Load 0x0,0x1
14eb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
14ec 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
14ed 7804 |x | Jump 0x14f2
14ee 00da | | Load_Top At_Offset_2
14ef e001 | | Load 0x0,0x1
14f0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
14f1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
14f2 00d8 | | Load_Top At_Offset_0
14f3 00d8 | | Load_Top At_Offset_0
14f4 0d1d | | Execute_Immediate Less,0x1d
14f5 701a |p | Jump_Nonzero 0x1510
14f6 00d8 | | Load_Top At_Offset_0
14f7 0c38 | 8 | Execute_Immediate Greater_Equal,0x38
14f8 7011 |p | Jump_Nonzero 0x150a
14f9 00d1 | | Pop_Control Pop_Count_1
14fa 00ea | | Load_Encached Null_String_Cache
14fb 00ea | | Load_Encached Null_String_Cache
14fc 00ea | | Load_Encached Null_String_Cache
14fd 00ea | | Load_Encached Null_String_Cache
14fe 00ea | | Load_Encached Null_String_Cache
14ff 00ea | | Load_Encached Null_String_Cache
1500 00ea | | Load_Encached Null_String_Cache
1501 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
1503 e001 | | Load 0x0,0x1
1504 180f | | Execute Package,Field_Execute,Field_Number 0xf
1505 4ad7 |J | Short_Literal 0x2d7
1506 481a |H | Short_Literal 0x1a
1507 e002 | | Load 0x0,0x2
1508 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1509 4501 |E | Exit_Suprogram New_Top_Offset 0x1
150a 00d8 | | Load_Top At_Offset_0
150b 0c3a | : | Execute_Immediate Greater_Equal,0x3a
150c 6808 |h | Jump_Zero 0x1515
150d 0f3e | > | Execute_Immediate Equal,0x3e
150e 7007 |p | Jump_Nonzero 0x1516
150f 7fea | | Jump 0x14fa
1510 0b11 | | Execute_Immediate Case_Compare,0x11
1511 7003 |p | Jump_Nonzero 0x1515
1512 0f1c | | Execute_Immediate Equal,0x1c
1513 7002 |p | Jump_Nonzero 0x1516
1514 7fe5 | | Jump 0x14fa
1515 00d1 | | Pop_Control Pop_Count_1
1516 e005 | | Load 0x0,0x5
1517 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1518 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1519 0000 0000 | | .BLANK 0000[0x7]
1520 ; --------------------------------------------------------------------------------------
1520 ; SUBPROGRAM
1520 ; --------------------------------------------------------------------------------------
1520 152a | * | .CONST 0x152a ; Address of begin
1521 0004 | | .CONST 0x0004 ; Address of exception handler
1522 0003 | | .CONST 0x0003 ; Number of locals
1523 INIT_1520:
1523 e027 | ' | Load 0x0,0x27
1524 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1525 02c7 | | Declare_Variable Any
1526 00d8 | | Load_Top At_Offset_0
1527 1c00 | | Execute_Immediate Run_Utility,0x0
1528 e018 | | Load 0x0,0x18
1529 1b0d | | Execute Package,Field_Read,Field_Number 0xd
152a BODY_1520:
152a 00d9 | | Load_Top At_Offset_1
152b e018 | | Load 0x0,0x18
152c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
152d 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
152f 00ea | | Load_Encached Null_String_Cache
1530 4800 |H | Short_Literal 0x0
1531 0092 1997 | | Action Push_String_Extended,0x1997 ; "$"
1533 4801 |H | Short_Literal 0x1
1534 e5ff | | Load 0x2,-0x1
1535 e018 | | Load 0x0,0x18
1536 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1537 005a | Z | Store_Top Discrete,At_Offset_2
1538 c602 | | Store 0x3,0x2
1539 00d8 | | Load_Top At_Offset_0
153a e028 | ( | Load 0x0,0x28
153b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
153c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
153d 0000 0000 | | .XXX[0x3]
153f 0000 | |
1540 ; --------------------------------------------------------------------------------------
1540 ; SUBPROGRAM
1540 ; --------------------------------------------------------------------------------------
1540 1550 | P | .CONST 0x1550 ; Address of begin
1541 1565 | e | .CONST 0x1565 ; Address of exception handler
1542 0006 | | .CONST 0x0006 ; Number of locals
1543 INIT_1540:
1543 e001 | | Load 0x0,0x1
1544 180d | | Execute Package,Field_Execute,Field_Number 0xd
1545 0092 19b8 | | Action Push_String_Extended,0x19b8 ; "!Machine.Queues.User_To_Printer_Map"
1547 e004 | | Load 0x0,0x4
1548 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1549 02c7 | | Declare_Variable Any
154a 00d8 | | Load_Top At_Offset_0
154b 1c00 | | Execute_Immediate Run_Utility,0x0
154c 029f 18a3 | | Declare_Subprogram INIT_18a0,For_Call
154e 029f 18d3 | | Declare_Subprogram INIT_18d0,For_Call
1550 BODY_1540:
1550 00da | | Load_Top At_Offset_2
1551 00ea | | Load_Encached Null_String_Cache
1552 e603 | | Load 0x3,0x3
1553 4800 |H | Short_Literal 0x0
1554 e004 | | Load 0x0,0x4
1555 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1556 c604 | | Store 0x3,0x4
1557 00cf | | Action Mark_Auxiliary
1558 7802 |x | Jump 0x155b
1559 8606 | | Call 0x3,0x6
155a 00c9 | | Action Pop_Auxiliary_Loop
155b 00db | | Load_Top At_Offset_3
155c e004 | | Load 0x0,0x4
155d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
155e 6ffa |o | Jump_Zero 0x1559
155f 00ce | | Action Pop_Auxiliary
1560 00da | | Load_Top At_Offset_2
1561 e004 | | Load 0x0,0x4
1562 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1563 c604 | | Store 0x3,0x4
1564 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1565 TRAP_1540:
1565 0007 | | Action Break_Optional
1566 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1567 0000 | | .XXX[0x1]
1568 ; --------------------------------------------------------------------------------------
1568 ; SUBPROGRAM
1568 ; --------------------------------------------------------------------------------------
1568 156f | o | .CONST 0x156f ; Address of begin
1569 0004 | | .CONST 0x0004 ; Address of exception handler
156a 0002 | | .CONST 0x0002 ; Number of locals
156b INIT_1568:
156b 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
156d e001 | | Load 0x0,0x1
156e 180f | | Execute Package,Field_Execute,Field_Number 0xf
156f BODY_1568:
156f 00d8 | | Load_Top At_Offset_0
1570 0092 1957 | W| Action Push_String_Extended,0x1957 ; "<>"
1572 01df | | Execute Vector,Equal
1573 6803 |h | Jump_Zero 0x1577
1574 0092 197a | z| Action Push_String_Extended,0x197a ; "<CURRENT_WINDOW_CONTENTS>"
1576 00ca | | Action Exit_Nullary_Function
1577 00d8 | | Load_Top At_Offset_0
1578 00ca | | Action Exit_Nullary_Function
1579 0000 0000 | | .BLANK 0000[0x7]
1580 ; --------------------------------------------------------------------------------------
1580 ; SUBPROGRAM
1580 ; --------------------------------------------------------------------------------------
1580 15a7 | | .CONST 0x15a7 ; Address of begin
1581 0004 | | .CONST 0x0004 ; Address of exception handler
1582 0008 | | .CONST 0x0008 ; Number of locals
1583 INIT_1580:
1583 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
1585 e001 | | Load 0x0,0x1
1586 180f | | Execute Package,Field_Execute,Field_Number 0xf
1587 e022 | " | Load 0x0,0x22
1588 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1589 e00f | | Load 0x0,0xf
158a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
158b 02c7 | | Declare_Variable Any
158c e605 | | Load 0x3,0x5
158d e00f | | Load 0x0,0xf
158e 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
158f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1590 a803 | | Store_Unchecked 0x4,0x3
1591 0092 19b9 | | Action Push_String_Extended,0x19b9 ; "Volume => "
1593 e605 | | Load 0x3,0x5
1594 e00f | | Load 0x0,0xf
1595 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
1596 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1597 00e0 | | Load_Encached Standard_Cache
1598 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1599 01cc | | Execute Vector,Catenate
159a 0007 | | Action Break_Optional
159b e00f | | Load 0x0,0xf
159c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
159d 0322 | " | Declare_Variable Record
159e 00d8 | | Load_Top At_Offset_0
159f 1c00 | | Execute_Immediate Run_Utility,0x0
15a0 e00f | | Load 0x0,0xf
15a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15a2 e00f | | Load 0x0,0xf
15a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15a4 e00f | | Load 0x0,0xf
15a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
15a7 BODY_1580:
15a7 e00f | | Load 0x0,0xf
15a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15a9 e00f | | Load 0x0,0xf
15aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11
15ac 611b |a | Indirect_Literal Discrete,0x16c8,{0x00000000, 0x00004000}
15ad e010 | | Load 0x0,0x10
15ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15af 4800 |H | Short_Literal 0x0
15b0 e803 | | Load 0x4,0x3
15b1 e00f | | Load 0x0,0xf
15b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
15b4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
15b5 005a | Z | Store_Top Discrete,At_Offset_2
15b6 e608 | | Load 0x3,0x8
15b7 00d8 | | Load_Top At_Offset_0
15b8 0c08 | | Execute_Immediate Greater_Equal,0x8
15b9 7008 |p | Jump_Nonzero 0x15c2
15ba 00d8 | | Load_Top At_Offset_0
15bb 0c02 | | Execute_Immediate Greater_Equal,0x2
15bc 68fd |h | Jump_Zero 0x16ba
15bd 0b03 | | Execute_Immediate Case_Compare,0x3
15be 700d |p | Jump_Nonzero 0x15cc
15bf 0f07 | | Execute_Immediate Equal,0x7
15c0 70d3 |p | Jump_Nonzero 0x1694
15c1 7862 |xb | Jump 0x1624
15c2 00d8 | | Load_Top At_Offset_0
15c3 4841 |HA | Short_Literal 0x41
15c4 4842 |HB | Short_Literal 0x42
15c5 0262 | b | Execute Discrete,In_Range
15c6 705c |p\ | Jump_Nonzero 0x1623
15c7 484c |HL | Short_Literal 0x4c
15c8 484d |HM | Short_Literal 0x4d
15c9 0262 | b | Execute Discrete,In_Range
15ca 7059 |pY | Jump_Nonzero 0x1624
15cb 78ef |x | Jump 0x16bb
15cc 00d1 | | Pop_Control Pop_Count_1
15cd 00d9 | | Load_Top At_Offset_1
15ce 0e00 | | Execute_Immediate Not_Equal,0x0
15cf e803 | | Load 0x4,0x3
15d0 e00f | | Load 0x0,0xf
15d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
15d2 0278 | x | Execute Discrete,Or
15d3 6826 |h& | Jump_Zero 0x15fa
15d4 00ea | | Load_Encached Null_String_Cache
15d5 00ea | | Load_Encached Null_String_Cache
15d6 00ea | | Load_Encached Null_String_Cache
15d7 00ea | | Load_Encached Null_String_Cache
15d8 e60c | | Load 0x3,0xc
15d9 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
15db 01cc | | Execute Vector,Catenate
15dc e60e | | Load 0x3,0xe
15dd 01cc | | Execute Vector,Catenate
15de 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
15e0 01cc | | Execute Vector,Catenate
15e1 e609 | | Load 0x3,0x9
15e2 01cc | | Execute Vector,Catenate
15e3 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
15e5 01cc | | Execute Vector,Catenate
15e6 e615 | | Load 0x3,0x15
15e7 01cc | | Execute Vector,Catenate
15e8 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
15ea 01cc | | Execute Vector,Catenate
15eb e617 | | Load 0x3,0x17
15ec 01cc | | Execute Vector,Catenate
15ed 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
15ef 01cc | | Execute Vector,Catenate
15f0 e804 | | Load 0x4,0x4
15f1 01cc | | Execute Vector,Catenate
15f2 00ea | | Load_Encached Null_String_Cache
15f3 e60b | | Load 0x3,0xb
15f4 e603 | | Load 0x3,0x3
15f5 60ce |` | Indirect_Literal Discrete,0x16c4,{0x00000000, 0x00001d6b}
15f6 483a |H: | Short_Literal 0x3a
15f7 e002 | | Load 0x0,0x2
15f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
15f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
15fa 00ea | | Load_Encached Null_String_Cache
15fb 00ea | | Load_Encached Null_String_Cache
15fc 00ea | | Load_Encached Null_String_Cache
15fd 00ea | | Load_Encached Null_String_Cache
15fe e60c | | Load 0x3,0xc
15ff 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1601 01cc | | Execute Vector,Catenate
1602 e60e | | Load 0x3,0xe
1603 01cc | | Execute Vector,Catenate
1604 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1606 01cc | | Execute Vector,Catenate
1607 e609 | | Load 0x3,0x9
1608 01cc | | Execute Vector,Catenate
1609 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
160b 01cc | | Execute Vector,Catenate
160c e615 | | Load 0x3,0x15
160d 01cc | | Execute Vector,Catenate
160e 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1610 01cc | | Execute Vector,Catenate
1611 e617 | | Load 0x3,0x17
1612 01cc | | Execute Vector,Catenate
1613 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1615 01cc | | Execute Vector,Catenate
1616 e804 | | Load 0x4,0x4
1617 01cc | | Execute Vector,Catenate
1618 e803 | | Load 0x4,0x3
1619 e00f | | Load 0x0,0xf
161a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
161b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
161c e60b | | Load 0x3,0xb
161d e603 | | Load 0x3,0x3
161e 60a5 |` | Indirect_Literal Discrete,0x16c4,{0x00000000, 0x00001d6b}
161f 483a |H: | Short_Literal 0x3a
1620 e002 | | Load 0x0,0x2
1621 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1622 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1623 00d1 | | Pop_Control Pop_Count_1
1624 e00f | | Load 0x0,0xf
1625 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1626 e805 | | Load 0x4,0x5
1627 60a0 |` | Indirect_Literal Discrete,0x16c8,{0x00000000, 0x00004000}
1628 e010 | | Load 0x0,0x10
1629 1b0e | | Execute Package,Field_Read,Field_Number 0xe
162a e602 | | Load 0x3,0x2
162b e00f | | Load 0x0,0xf
162c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
162d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
162e 00d1 | | Pop_Control Pop_Count_1
162f 005b | [ | Store_Top Discrete,At_Offset_3
1630 00d9 | | Load_Top At_Offset_1
1631 0e00 | | Execute_Immediate Not_Equal,0x0
1632 e803 | | Load 0x4,0x3
1633 e00f | | Load 0x0,0xf
1634 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1635 0278 | x | Execute Discrete,Or
1636 682d |h- | Jump_Zero 0x1664
1637 00ea | | Load_Encached Null_String_Cache
1638 00ea | | Load_Encached Null_String_Cache
1639 e60c | | Load 0x3,0xc
163a 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
163c 01cc | | Execute Vector,Catenate
163d e60e | | Load 0x3,0xe
163e 01cc | | Execute Vector,Catenate
163f 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1641 01cc | | Execute Vector,Catenate
1642 e609 | | Load 0x3,0x9
1643 01cc | | Execute Vector,Catenate
1644 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1646 01cc | | Execute Vector,Catenate
1647 e615 | | Load 0x3,0x15
1648 01cc | | Execute Vector,Catenate
1649 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
164b 01cc | | Execute Vector,Catenate
164c e617 | | Load 0x3,0x17
164d 01cc | | Execute Vector,Catenate
164e 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1650 01cc | | Execute Vector,Catenate
1651 e804 | | Load 0x4,0x4
1652 01cc | | Execute Vector,Catenate
1653 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1655 01cc | | Execute Vector,Catenate
1656 e805 | | Load 0x4,0x5
1657 e029 | ) | Load 0x0,0x29
1658 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1659 01cc | | Execute Vector,Catenate
165a e802 | | Load 0x4,0x2
165b e60a | | Load 0x3,0xa
165c 00ea | | Load_Encached Null_String_Cache
165d e60b | | Load 0x3,0xb
165e e603 | | Load 0x3,0x3
165f 6060 |`` | Indirect_Literal Discrete,0x16c0,{0x00000000, 0x00001d6c}
1660 483b |H; | Short_Literal 0x3b
1661 e002 | | Load 0x0,0x2
1662 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1663 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1664 00ea | | Load_Encached Null_String_Cache
1665 00ea | | Load_Encached Null_String_Cache
1666 e60c | | Load 0x3,0xc
1667 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1669 01cc | | Execute Vector,Catenate
166a e60e | | Load 0x3,0xe
166b 01cc | | Execute Vector,Catenate
166c 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
166e 01cc | | Execute Vector,Catenate
166f e609 | | Load 0x3,0x9
1670 01cc | | Execute Vector,Catenate
1671 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1673 01cc | | Execute Vector,Catenate
1674 e615 | | Load 0x3,0x15
1675 01cc | | Execute Vector,Catenate
1676 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1678 01cc | | Execute Vector,Catenate
1679 e617 | | Load 0x3,0x17
167a 01cc | | Execute Vector,Catenate
167b 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
167d 01cc | | Execute Vector,Catenate
167e e804 | | Load 0x4,0x4
167f 01cc | | Execute Vector,Catenate
1680 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1682 01cc | | Execute Vector,Catenate
1683 e805 | | Load 0x4,0x5
1684 e029 | ) | Load 0x0,0x29
1685 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1686 01cc | | Execute Vector,Catenate
1687 e802 | | Load 0x4,0x2
1688 e60a | | Load 0x3,0xa
1689 e803 | | Load 0x4,0x3
168a e00f | | Load 0x0,0xf
168b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
168c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
168d e60b | | Load 0x3,0xb
168e e603 | | Load 0x3,0x3
168f 6030 |`0 | Indirect_Literal Discrete,0x16c0,{0x00000000, 0x00001d6c}
1690 483b |H; | Short_Literal 0x3b
1691 e002 | | Load 0x0,0x2
1692 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1693 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1694 00ea | | Load_Encached Null_String_Cache
1695 00ea | | Load_Encached Null_String_Cache
1696 e60c | | Load 0x3,0xc
1697 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1699 01cc | | Execute Vector,Catenate
169a e60e | | Load 0x3,0xe
169b 01cc | | Execute Vector,Catenate
169c 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
169e 01cc | | Execute Vector,Catenate
169f e609 | | Load 0x3,0x9
16a0 01cc | | Execute Vector,Catenate
16a1 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16a3 01cc | | Execute Vector,Catenate
16a4 e610 | | Load 0x3,0x10
16a5 01cc | | Execute Vector,Catenate
16a6 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16a8 01cc | | Execute Vector,Catenate
16a9 e615 | | Load 0x3,0x15
16aa 01cc | | Execute Vector,Catenate
16ab 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16ad 01cc | | Execute Vector,Catenate
16ae e617 | | Load 0x3,0x17
16af 01cc | | Execute Vector,Catenate
16b0 e614 | | Load 0x3,0x14
16b1 e612 | | Load 0x3,0x12
16b2 e60b | | Load 0x3,0xb
16b3 e60a | | Load 0x3,0xa
16b4 e603 | | Load 0x3,0x3
16b5 4af1 |J | Short_Literal 0x2f1
16b6 4818 |H | Short_Literal 0x18
16b7 e002 | | Load 0x0,0x2
16b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
16b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
16ba 00d1 | | Pop_Control Pop_Count_1
16bb 0092 19ba | | Action Push_String_Extended,0x19ba ; "Cannot edit that type of object"
16bd 825a | Z | Call 0x1,0x5a
16be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
16bf 0000 | | .XXX[0x1]
16c0 0000 0000 | | .LITERAL {0x00000000, 0x00001d6c}
16c4 0000 0000 | | .LITERAL {0x00000000, 0x00001d6b}
16c8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
16cc 0000 0000 | | .BLANK 0000[0x4]
16d0 ; --------------------------------------------------------------------------------------
16d0 ; SUBPROGRAM
16d0 ; --------------------------------------------------------------------------------------
16d0 16e0 | | .CONST 0x16e0 ; Address of begin
16d1 0004 | | .CONST 0x0004 ; Address of exception handler
16d2 0002 | | .CONST 0x0002 ; Number of locals
16d3 INIT_16d0:
16d3 0092 19bb | | Action Push_String_Extended,0x19bb ; "State => "
16d5 e605 | | Load 0x3,0x5
16d6 e00f | | Load 0x0,0xf
16d7 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
16d8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
16d9 e00f | | Load 0x0,0xf
16da 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
16db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
16dc 011c | | Execute Any,Convert_Unchecked
16dd 1c01 | | Execute_Immediate Run_Utility,0x1
16de 01cc | | Execute Vector,Catenate
16df 0007 | | Action Break_Optional
16e0 BODY_16d0:
16e0 e606 | | Load 0x3,0x6
16e1 0f03 | | Execute_Immediate Equal,0x3
16e2 702b |p+ | Jump_Nonzero 0x170e
16e3 00ea | | Load_Encached Null_String_Cache
16e4 00ea | | Load_Encached Null_String_Cache
16e5 00da | | Load_Top At_Offset_2
16e6 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16e8 01cc | | Execute Vector,Catenate
16e9 e60c | | Load 0x3,0xc
16ea 01cc | | Execute Vector,Catenate
16eb 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16ed 01cc | | Execute Vector,Catenate
16ee e60e | | Load 0x3,0xe
16ef 01cc | | Execute Vector,Catenate
16f0 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16f2 01cc | | Execute Vector,Catenate
16f3 e609 | | Load 0x3,0x9
16f4 01cc | | Execute Vector,Catenate
16f5 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16f7 01cc | | Execute Vector,Catenate
16f8 e610 | | Load 0x3,0x10
16f9 01cc | | Execute Vector,Catenate
16fa 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
16fc 01cc | | Execute Vector,Catenate
16fd e615 | | Load 0x3,0x15
16fe 01cc | | Execute Vector,Catenate
16ff 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1701 01cc | | Execute Vector,Catenate
1702 e617 | | Load 0x3,0x17
1703 01cc | | Execute Vector,Catenate
1704 e614 | | Load 0x3,0x14
1705 e612 | | Load 0x3,0x12
1706 e60b | | Load 0x3,0xb
1707 e60a | | Load 0x3,0xa
1708 e603 | | Load 0x3,0x3
1709 4af1 |J | Short_Literal 0x2f1
170a 4818 |H | Short_Literal 0x18
170b e002 | | Load 0x0,0x2
170c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
170d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
170e 00ea | | Load_Encached Null_String_Cache
170f 00ea | | Load_Encached Null_String_Cache
1710 e60c | | Load 0x3,0xc
1711 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1713 01cc | | Execute Vector,Catenate
1714 e60e | | Load 0x3,0xe
1715 01cc | | Execute Vector,Catenate
1716 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1718 01cc | | Execute Vector,Catenate
1719 e609 | | Load 0x3,0x9
171a 01cc | | Execute Vector,Catenate
171b 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
171d 01cc | | Execute Vector,Catenate
171e e610 | | Load 0x3,0x10
171f 01cc | | Execute Vector,Catenate
1720 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1722 01cc | | Execute Vector,Catenate
1723 e615 | | Load 0x3,0x15
1724 01cc | | Execute Vector,Catenate
1725 0092 19a9 | | Action Push_String_Extended,0x19a9 ; "\x5c"
1727 01cc | | Execute Vector,Catenate
1728 e617 | | Load 0x3,0x17
1729 01cc | | Execute Vector,Catenate
172a e614 | | Load 0x3,0x14
172b e612 | | Load 0x3,0x12
172c e60b | | Load 0x3,0xb
172d e60a | | Load 0x3,0xa
172e e603 | | Load 0x3,0x3
172f 4af1 |J | Short_Literal 0x2f1
1730 4818 |H | Short_Literal 0x18
1731 e002 | | Load 0x0,0x2
1732 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1733 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1734 0000 0000 | | .BLANK 0000[0x4]
1738 ; --------------------------------------------------------------------------------------
1738 ; SUBPROGRAM
1738 ; --------------------------------------------------------------------------------------
1738 174f | O | .CONST 0x174f ; Address of begin
1739 0004 | | .CONST 0x0004 ; Address of exception handler
173a 0004 | | .CONST 0x0004 ; Number of locals
173b INIT_1738:
173b e602 | | Load 0x3,0x2
173c e00f | | Load 0x0,0xf
173d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
173e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
173f e00f | | Load 0x0,0xf
1740 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1741 02c7 | | Declare_Variable Any
1742 0092 194d | M| Action Push_String_Extended,0x194d ; "<Cursor>"
1744 e001 | | Load 0x0,0x1
1745 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1746 a803 | | Store_Unchecked 0x4,0x3
1747 e00f | | Load 0x0,0xf
1748 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
1749 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
174a 02c7 | | Declare_Variable Any
174b 00d9 | | Load_Top At_Offset_1
174c e001 | | Load 0x0,0x1
174d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
174e a804 | | Store_Unchecked 0x4,0x4
174f BODY_1738:
174f e5fe | | Load 0x2,-0x2
1750 0f01 | | Execute_Immediate Equal,0x1
1751 700c |p | Jump_Nonzero 0x175e
1752 00d8 | | Load_Top At_Offset_0
1753 e00f | | Load 0x0,0xf
1754 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
1755 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
1756 6812 |h | Jump_Zero 0x1769
1757 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1759 4801 |H | Short_Literal 0x1
175a e802 | | Load 0x4,0x2
175b e006 | | Load 0x0,0x6
175c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
175d 780b |x | Jump 0x1769
175e 00d8 | | Load_Top At_Offset_0
175f e00f | | Load 0x0,0xf
1760 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
1761 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
1762 7006 |p | Jump_Nonzero 0x1769
1763 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1765 4801 |H | Short_Literal 0x1
1766 e802 | | Load 0x4,0x2
1767 e006 | | Load 0x0,0x6
1768 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1769 4800 |H | Short_Literal 0x0
176a 00ea | | Load_Encached Null_String_Cache
176b 4820 |H | Short_Literal 0x20
176c 4820 |H | Short_Literal 0x20
176d e5fd | | Load 0x2,-0x3
176e e00b | | Load 0x0,0xb
176f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1770 e00b | | Load 0x0,0xb
1771 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1772 e00b | | Load 0x0,0xb
1773 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1774 700f |p | Jump_Nonzero 0x1784
1775 e5fd | | Load 0x2,-0x3
1776 e001 | | Load 0x0,0x1
1777 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1778 6807 |h | Jump_Zero 0x1780
1779 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
177b 00db | | Load_Top At_Offset_3
177c e5fd | | Load 0x2,-0x3
177d e009 | | Load 0x0,0x9
177e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
177f 7804 |x | Jump 0x1784
1780 0092 19af | | Action Push_String_Extended,0x19af ; "Switch file does not exist"
1782 e025 | % | Load 0x0,0x25
1783 180d | | Execute Package,Field_Execute,Field_Number 0xd
1784 4801 |H | Short_Literal 0x1
1785 e5fc | | Load 0x2,-0x4
1786 e802 | | Load 0x4,0x2
1787 e022 | " | Load 0x0,0x22
1788 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1789 e00b | | Load 0x0,0xb
178a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
178b 7006 |p | Jump_Nonzero 0x1792
178c 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
178e 00db | | Load_Top At_Offset_3
178f e5fc | | Load 0x2,-0x4
1790 e024 | $ | Load 0x0,0x24
1791 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1792 4801 |H | Short_Literal 0x1
1793 e5fb | | Load 0x2,-0x5
1794 e802 | | Load 0x4,0x2
1795 e022 | " | Load 0x0,0x22
1796 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1797 e00b | | Load 0x0,0xb
1798 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1799 7006 |p | Jump_Nonzero 0x17a0
179a 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
179c 00db | | Load_Top At_Offset_3
179d e5fb | | Load 0x2,-0x5
179e e024 | $ | Load 0x0,0x24
179f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
17a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
17a1 0000 0000 | | .BLANK 0000[0x7]
17a8 ; --------------------------------------------------------------------------------------
17a8 ; SUBPROGRAM
17a8 ; --------------------------------------------------------------------------------------
17a8 17af | | .CONST 0x17af ; Address of begin
17a9 0004 | | .CONST 0x0004 ; Address of exception handler
17aa 0002 | | .CONST 0x0002 ; Number of locals
17ab INIT_17a8:
17ab e602 | | Load 0x3,0x2
17ac e02a | * | Load 0x0,0x2a
17ad 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
17ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16
17af BODY_17a8:
17af 00d8 | | Load_Top At_Offset_0
17b0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
17b1 700c |p | Jump_Nonzero 0x17be
17b2 00d8 | | Load_Top At_Offset_0
17b3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
17b4 7009 |p | Jump_Nonzero 0x17be
17b5 00d8 | | Load_Top At_Offset_0
17b6 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
17b7 7006 |p | Jump_Nonzero 0x17be
17b8 00d8 | | Load_Top At_Offset_0
17b9 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
17ba 7003 |p | Jump_Nonzero 0x17be
17bb 4800 |H | Short_Literal 0x0
17bc 00cb | | Action Pop_Block_With_Result
17bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
17be 4801 |H | Short_Literal 0x1
17bf 00cb | | Action Pop_Block_With_Result
17c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
17c1 0000 0000 | | .BLANK 0000[0x7]
17c8 ; --------------------------------------------------------------------------------------
17c8 ; SUBPROGRAM
17c8 ; --------------------------------------------------------------------------------------
17c8 17cf | | .CONST 0x17cf ; Address of begin
17c9 0004 | | .CONST 0x0004 ; Address of exception handler
17ca 0002 | | .CONST 0x0002 ; Number of locals
17cb INIT_17c8:
17cb e605 | | Load 0x3,0x5
17cc e00f | | Load 0x0,0xf
17cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
17ce 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
17cf BODY_17c8:
17cf e605 | | Load 0x3,0x5
17d0 825f | _ | Call 0x1,0x5f
17d1 680c |h | Jump_Zero 0x17de
17d2 00d8 | | Load_Top At_Offset_0
17d3 e008 | | Load 0x0,0x8
17d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
17d5 6808 |h | Jump_Zero 0x17de
17d6 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
17d8 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
17da 00ea | | Load_Encached Null_String_Cache
17db 00db | | Load_Top At_Offset_3
17dc e007 | | Load 0x0,0x7
17dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
17de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
17df 0000 | | .XXX[0x1]
17e0 ; --------------------------------------------------------------------------------------
17e0 ; SUBPROGRAM
17e0 ; --------------------------------------------------------------------------------------
17e0 17e7 | | .CONST 0x17e7 ; Address of begin
17e1 0004 | | .CONST 0x0004 ; Address of exception handler
17e2 0002 | | .CONST 0x0002 ; Number of locals
17e3 INIT_17e0:
17e3 e606 | | Load 0x3,0x6
17e4 e00f | | Load 0x0,0xf
17e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
17e6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
17e7 BODY_17e0:
17e7 e606 | | Load 0x3,0x6
17e8 825e | ^ | Call 0x1,0x5e
17e9 a605 | | Store_Unchecked 0x3,0x5
17ea e605 | | Load 0x3,0x5
17eb 00d8 | | Load_Top At_Offset_0
17ec 4805 |H | Short_Literal 0x5
17ed 4806 |H | Short_Literal 0x6
17ee 0262 | b | Execute Discrete,In_Range
17ef 7003 |p | Jump_Nonzero 0x17f3
17f0 0f42 | B | Execute_Immediate Equal,0x42
17f1 7002 |p | Jump_Nonzero 0x17f4
17f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
17f3 00d1 | | Pop_Control Pop_Count_1
17f4 00d8 | | Load_Top At_Offset_0
17f5 8409 | | Call 0x2,0x9
17f6 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
17f8 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
17fa 00ea | | Load_Encached Null_String_Cache
17fb 4800 |H | Short_Literal 0x0
17fc 4800 |H | Short_Literal 0x0
17fd e802 | | Load 0x4,0x2
17fe e007 | | Load 0x0,0x7
17ff 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
1800 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1801 0000 0000 | | .BLANK 0000[0x7]
1808 ; --------------------------------------------------------------------------------------
1808 ; SUBPROGRAM
1808 ; --------------------------------------------------------------------------------------
1808 180f | | .CONST 0x180f ; Address of begin
1809 0004 | | .CONST 0x0004 ; Address of exception handler
180a 0002 | | .CONST 0x0002 ; Number of locals
180b INIT_1808:
180b e604 | | Load 0x3,0x4
180c e00f | | Load 0x0,0xf
180d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
180e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
180f BODY_1808:
180f e406 | | Load 0x2,0x6
1810 0f02 | | Execute_Immediate Equal,0x2
1811 684d |hM | Jump_Zero 0x185f
1812 e407 | | Load 0x2,0x7
1813 00d8 | | Load_Top At_Offset_0
1814 0d07 | | Execute_Immediate Less,0x7
1815 700c |p | Jump_Nonzero 0x1822
1816 00d8 | | Load_Top At_Offset_0
1817 0c42 | B | Execute_Immediate Greater_Equal,0x42
1818 7004 |p | Jump_Nonzero 0x181d
1819 00d1 | | Pop_Control Pop_Count_1
181a e604 | | Load 0x3,0x4
181b 840b | | Call 0x2,0xb
181c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
181d 0b42 | B | Execute_Immediate Case_Compare,0x42
181e 702d |p- | Jump_Nonzero 0x184c
181f 0f4d | M | Execute_Immediate Equal,0x4d
1820 7008 |p | Jump_Nonzero 0x1829
1821 7ff8 | | Jump 0x181a
1822 0b04 | | Execute_Immediate Case_Compare,0x4
1823 7016 |p | Jump_Nonzero 0x183a
1824 4805 |H | Short_Literal 0x5
1825 4806 |H | Short_Literal 0x6
1826 0262 | b | Execute Discrete,In_Range
1827 7025 |p% | Jump_Nonzero 0x184d
1828 7ff1 | | Jump 0x181a
1829 00d8 | | Load_Top At_Offset_0
182a 840a | | Call 0x2,0xa
182b 0092 19bc | | Action Push_String_Extended,0x19bc ; "destroy_system_subsystem "
182d 00d9 | | Load_Top At_Offset_1
182e 01cc | | Execute Vector,Catenate
182f e004 | | Load 0x0,0x4
1830 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1831 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1833 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1835 00ea | | Load_Encached Null_String_Cache
1836 00db | | Load_Top At_Offset_3
1837 e007 | | Load 0x0,0x7
1838 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
1839 4501 |E | Exit_Suprogram New_Top_Offset 0x1
183a 00d1 | | Pop_Control Pop_Count_1
183b 00d8 | | Load_Top At_Offset_0
183c 840a | | Call 0x2,0xa
183d 0092 19bd | | Action Push_String_Extended,0x19bd ; "destroy_subsystem "
183f 00d9 | | Load_Top At_Offset_1
1840 01cc | | Execute Vector,Catenate
1841 e004 | | Load 0x0,0x4
1842 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1843 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1845 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1847 00ea | | Load_Encached Null_String_Cache
1848 00db | | Load_Top At_Offset_3
1849 e007 | | Load 0x0,0x7
184a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
184b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
184c 00d1 | | Pop_Control Pop_Count_1
184d 00d8 | | Load_Top At_Offset_0
184e 8409 | | Call 0x2,0x9
184f 0092 19be | | Action Push_String_Extended,0x19be ; "destroy_view "
1851 00d9 | | Load_Top At_Offset_1
1852 01cc | | Execute Vector,Catenate
1853 e004 | | Load 0x0,0x4
1854 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1855 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1857 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1859 00ea | | Load_Encached Null_String_Cache
185a 4800 |H | Short_Literal 0x0
185b 4800 |H | Short_Literal 0x0
185c e802 | | Load 0x4,0x2
185d e007 | | Load 0x0,0x7
185e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
185f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1860 ; --------------------------------------------------------------------------------------
1860 ; SUBPROGRAM
1860 ; --------------------------------------------------------------------------------------
1860 1867 | g | .CONST 0x1867 ; Address of begin
1861 0004 | | .CONST 0x0004 ; Address of exception handler
1862 0002 | | .CONST 0x0002 ; Number of locals
1863 INIT_1860:
1863 e605 | | Load 0x3,0x5
1864 e00f | | Load 0x0,0xf
1865 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1866 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1867 BODY_1860:
1867 e605 | | Load 0x3,0x5
1868 840c | | Call 0x2,0xc
1869 00d8 | | Load_Top At_Offset_0
186a e008 | | Load 0x0,0x8
186b 180e | | Execute Package,Field_Execute,Field_Number 0xe
186c 6808 |h | Jump_Zero 0x1875
186d 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
186f 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1871 00ea | | Load_Encached Null_String_Cache
1872 00db | | Load_Top At_Offset_3
1873 e007 | | Load 0x0,0x7
1874 180e | | Execute Package,Field_Execute,Field_Number 0xe
1875 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1877 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1879 00ea | | Load_Encached Null_String_Cache
187a 00db | | Load_Top At_Offset_3
187b e007 | | Load 0x0,0x7
187c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
187d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
187e 0000 0000 | | .XXX[0x2]
1880 ; --------------------------------------------------------------------------------------
1880 ; SUBPROGRAM
1880 ; --------------------------------------------------------------------------------------
1880 188b | | .CONST 0x188b ; Address of begin
1881 0004 | | .CONST 0x0004 ; Address of exception handler
1882 0002 | | .CONST 0x0002 ; Number of locals
1883 INIT_1880:
1883 e405 | | Load 0x2,0x5
1884 e00f | | Load 0x0,0xf
1885 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1886 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1887 0092 19bf | | Action Push_String_Extended,0x19bf ; "'body"
1889 01cc | | Execute Vector,Catenate
188a 0007 | | Action Break_Optional
188b BODY_1880:
188b 00d8 | | Load_Top At_Offset_0
188c e008 | | Load 0x0,0x8
188d 180e | | Execute Package,Field_Execute,Field_Number 0xe
188e 6808 |h | Jump_Zero 0x1897
188f 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1891 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
1893 00ea | | Load_Encached Null_String_Cache
1894 00db | | Load_Top At_Offset_3
1895 e007 | | Load 0x0,0x7
1896 180e | | Execute Package,Field_Execute,Field_Number 0xe
1897 0092 1945 | E| Action Push_String_Extended,0x1945 ; "<PROFILE>"
1899 0092 194c | L| Action Push_String_Extended,0x194c ; "<DEFAULT>"
189b 00ea | | Load_Encached Null_String_Cache
189c 00db | | Load_Top At_Offset_3
189d e007 | | Load 0x0,0x7
189e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
189f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
18a0 ; --------------------------------------------------------------------------------------
18a0 ; SUBPROGRAM
18a0 ; --------------------------------------------------------------------------------------
18a0 18b3 | | .CONST 0x18b3 ; Address of begin
18a1 0004 | | .CONST 0x0004 ; Address of exception handler
18a2 0003 | | .CONST 0x0003 ; Number of locals
18a3 INIT_18a0:
18a3 4800 |H | Short_Literal 0x0
18a4 00db | | Load_Top At_Offset_3
18a5 0092 19c0 | | Action Push_String_Extended,0x19c0 ; "!!"
18a7 e00b | | Load 0x0,0xb
18a8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
18a9 00e3 | | Load_Encached Natural_Cache
18aa 03f1 | | Declare_Variable Discrete,With_Value
18ab 4800 |H | Short_Literal 0x0
18ac e9ff | | Load 0x4,-0x1
18ad 0092 19c1 | | Action Push_String_Extended,0x19c1 ; "."
18af e00b | | Load 0x0,0xb
18b0 181f | | Execute Package,Field_Execute,Field_Number 0x1f
18b1 00e3 | | Load_Encached Natural_Cache
18b2 03f1 | | Declare_Variable Discrete,With_Value
18b3 BODY_18a0:
18b3 00d9 | | Load_Top At_Offset_1
18b4 0c01 | | Execute_Immediate Greater_Equal,0x1
18b5 6810 |h | Jump_Zero 0x18c6
18b6 e9fe | | Load 0x4,-0x2
18b7 00d9 | | Load_Top At_Offset_1
18b8 0a01 | | Execute_Immediate Plus,0x1
18b9 00d8 | | Load_Top At_Offset_0
18ba 00e2 | | Load_Encached Integer_Cache
18bb 0260 | ` | Execute Discrete,In_Type
18bc 7001 |p | Jump_Nonzero 0x18be
18bd 0801 | | Execute_Immediate Raise,0x1
18be e9ff | | Load 0x4,-0x1
18bf 01dc | | Execute Vector,Last
18c0 e9ff | | Load 0x4,-0x1
18c1 01cf | | Execute Vector,Slice_Read
18c2 e014 | | Load 0x0,0x14
18c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
18c4 00d1 | | Pop_Control Pop_Count_1
18c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
18c6 e9fe | | Load 0x4,-0x2
18c7 e9ff | | Load 0x4,-0x1
18c8 e014 | | Load 0x0,0x14
18c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
18ca 00d1 | | Pop_Control Pop_Count_1
18cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
18cc 0000 0000 | | .BLANK 0000[0x4]
18d0 ; --------------------------------------------------------------------------------------
18d0 ; SUBPROGRAM
18d0 ; --------------------------------------------------------------------------------------
18d0 1906 | | .CONST 0x1906 ; Address of begin
18d1 0004 | | .CONST 0x0004 ; Address of exception handler
18d2 0006 | | .CONST 0x0006 ; Number of locals
18d3 INIT_18d0:
18d3 4820 |H | Short_Literal 0x20
18d4 e604 | | Load 0x3,0x4
18d5 e004 | | Load 0x0,0x4
18d6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
18d7 e00b | | Load 0x0,0xb
18d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
18d9 4801 |H | Short_Literal 0x1
18da 00d9 | | Load_Top At_Offset_1
18db e602 | | Load 0x3,0x2
18dc e00b | | Load 0x0,0xb
18dd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
18de 00d9 | | Load_Top At_Offset_1
18df 01dd | | Execute Vector,First
18e0 027f | | Execute Discrete,Equal
18e1 00e1 | | Load_Encached Boolean_Cache
18e2 03f1 | | Declare_Variable Discrete,With_Value
18e3 4801 |H | Short_Literal 0x1
18e4 00da | | Load_Top At_Offset_2
18e5 0092 19c2 | | Action Push_String_Extended,0x19c2 ; "others"
18e7 e00b | | Load 0x0,0xb
18e8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
18e9 00da | | Load_Top At_Offset_2
18ea 01dd | | Execute Vector,First
18eb 027f | | Execute Discrete,Equal
18ec 00e1 | | Load_Encached Boolean_Cache
18ed 03f1 | | Declare_Variable Discrete,With_Value
18ee 4801 |H | Short_Literal 0x1
18ef 00db | | Load_Top At_Offset_3
18f0 4820 |H | Short_Literal 0x20
18f1 e00b | | Load 0x0,0xb
18f2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
18f3 00e3 | | Load_Encached Natural_Cache
18f4 03f1 | | Declare_Variable Discrete,With_Value
18f5 4801 |H | Short_Literal 0x1
18f6 00d9 | | Load_Top At_Offset_1
18f7 0a01 | | Execute_Immediate Plus,0x1
18f8 00d8 | | Load_Top At_Offset_0
18f9 00e2 | | Load_Encached Integer_Cache
18fa 0260 | ` | Execute Discrete,In_Type
18fb 7001 |p | Jump_Nonzero 0x18fd
18fc 0801 | | Execute_Immediate Raise,0x1
18fd e802 | | Load 0x4,0x2
18fe 01dc | | Execute Vector,Last
18ff e802 | | Load 0x4,0x2
1900 01cf | | Execute Vector,Slice_Read
1901 4820 |H | Short_Literal 0x20
1902 e00b | | Load 0x0,0xb
1903 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1904 00e3 | | Load_Encached Natural_Cache
1905 03f1 | | Declare_Variable Discrete,With_Value
1906 BODY_18d0:
1906 00db | | Load_Top At_Offset_3
1907 7006 |p | Jump_Nonzero 0x190e
1908 00da | | Load_Top At_Offset_2
1909 6813 |h | Jump_Zero 0x191d
190a e404 | | Load 0x2,0x4
190b e014 | | Load 0x0,0x14
190c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
190d 700f |p | Jump_Nonzero 0x191d
190e e404 | | Load 0x2,0x4
190f 00da | | Load_Top At_Offset_2
1910 0a01 | | Execute_Immediate Plus,0x1
1911 00d8 | | Load_Top At_Offset_0
1912 00e2 | | Load_Encached Integer_Cache
1913 0260 | ` | Execute Discrete,In_Type
1914 7001 |p | Jump_Nonzero 0x1916
1915 0801 | | Execute_Immediate Raise,0x1
1916 00da | | Load_Top At_Offset_2
1917 0aff | | Execute_Immediate Plus,-0x1
1918 e802 | | Load 0x4,0x2
1919 01cf | | Execute Vector,Slice_Read
191a 8605 | | Call 0x3,0x5
191b 00d1 | | Pop_Control Pop_Count_1
191c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
191d e802 | | Load 0x4,0x2
191e 01db | | Execute Vector,Length
191f 0c01 | | Execute_Immediate Greater_Equal,0x1
1920 681b |h | Jump_Zero 0x193c
1921 e802 | | Load 0x4,0x2
1922 01dd | | Execute Vector,First
1923 e802 | | Load 0x4,0x2
1924 01d7 | | Execute Vector,Field_Read
1925 0f2a | * | Execute_Immediate Equal,0x2a
1926 6815 |h | Jump_Zero 0x193c
1927 e402 | | Load 0x2,0x2
1928 482c |H, | Short_Literal 0x2c
1929 e802 | | Load 0x4,0x2
192a 01dd | | Execute Vector,First
192b 0a01 | | Execute_Immediate Plus,0x1
192c 00d8 | | Load_Top At_Offset_0
192d 00e2 | | Load_Encached Integer_Cache
192e 0260 | ` | Execute Discrete,In_Type
192f 7001 |p | Jump_Nonzero 0x1931
1930 0801 | | Execute_Immediate Raise,0x1
1931 e805 | | Load 0x4,0x5
1932 0aff | | Execute_Immediate Plus,-0x1
1933 e802 | | Load 0x4,0x2
1934 01cf | | Execute Vector,Slice_Read
1935 01cb | | Execute Vector,Append
1936 e014 | | Load 0x0,0x14
1937 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1938 00d1 | | Pop_Control Pop_Count_1
1939 e405 | | Load 0x2,0x5
193a 0a01 | | Execute_Immediate Plus,0x1
193b c405 | | Store 0x2,0x5
193c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
193d ; --------------------------------------------------------------------------------------
193d ; STRING TABLE
193d ; --------------------------------------------------------------------------------------
193d 010e | | .STRTAB 0x010e->0x19c4 ; "\x1b]"
193e 010e | | .STRTAB 0x010e->0x19c5 ; "\x07"
193f 010d | | .STRTAB 0x010d->0x19c5 ; "Name:"
1940 0110 | | .STRTAB 0x0110->0x19c8 ; ".New_File"
1941 0117 | | .STRTAB 0x0117->0x19cc ; "File New Textfile"
1942 0126 | & | .STRTAB 0x0126->0x19d5 ; "The context must be a library or view to create an Ada unit."
1943 0160 | ` | .STRTAB 0x0160->0x19f3 ; "File New World"
1944 016c | l | .STRTAB 0x016c->0x19fa ; ".New_World"
1945 0174 | t | .STRTAB 0x0174->0x19ff ; "<PROFILE>"
1946 017b | { | .STRTAB 0x017b->0x1a03 ; "Directory Name:"
1947 0188 | | .STRTAB 0x0188->0x1a0b ; ".New_Directory"
1948 0194 | | .STRTAB 0x0194->0x1a12 ; "File New Directory"
1949 01a4 | | .STRTAB 0x01a4->0x1a1b ; "!Model.R1000"
194a 01ae | | .STRTAB 0x01ae->0x1a21 ; ".New_Subsystem"
194b 01ba | | .STRTAB 0x01ba->0x1a28 ; "File New Subsystem"
194c 01ca | | .STRTAB 0x01ca->0x1a31 ; "<DEFAULT>"
194d 01d1 | | .STRTAB 0x01d1->0x1a35 ; "<Cursor>"
194e 01d7 | | .STRTAB 0x01d7->0x1a39 ; "New Working View"
194f 01e5 | | .STRTAB 0x01e5->0x1a41 ; "_Working"
1950 01eb | | .STRTAB 0x01eb->0x1a45 ; "New Spec View"
1951 01f6 | | .STRTAB 0x01f6->0x1a4c ; "_Spec"
1952 01f9 | | .STRTAB 0x01f9->0x1a4e ; "<AUTO_GENERATE>"
1953 0206 | | .STRTAB 0x0206->0x1a56 ; "Enter library switch file name"
1954 0222 | " | .STRTAB 0x0222->0x1a65 ; ".Compiler_Switches"
1955 0232 | 2 | .STRTAB 0x0232->0x1a6e ; "New Switch File"
1956 023f | ? | .STRTAB 0x023f->0x1a75 ; ".New_Activity"
1957 024a | J | .STRTAB 0x024a->0x1a7c ; "<>"
1958 024a | J | .STRTAB 0x024a->0x1a7d ; "nil"
1959 024b | K | .STRTAB 0x024b->0x1a7e ; "Mailbox simple name:"
195a 025d | ] | .STRTAB 0x025d->0x1a88 ; "New Mailbox"
195b 0266 | f | .STRTAB 0x0266->0x1a8e ; ".New_Venture"
195c 0270 | p | .STRTAB 0x0270->0x1a94 ; ".New_Work_Order"
195d 027d | } | .STRTAB 0x027d->0x1a9b ; ".New_Work_Order_List"
195e 028f | | .STRTAB 0x028f->0x1aa5 ; ".New_System"
195f 0298 | | .STRTAB 0x0298->0x1aab ; "R1000"
1960 029b | | .STRTAB 0x029b->0x1aad ; "<IMAGE>"
1961 02a0 | | .STRTAB 0x02a0->0x1ab1 ; "File Open"
1962 02a7 | | .STRTAB 0x02a7->0x1ab5 ; "File Open Check Out"
1963 02b8 | | .STRTAB 0x02b8->0x1abf ; "<TOMORROW>"
1964 02c0 | | .STRTAB 0x02c0->0x1ac4 ; "<ALL_WORLDS>"
1965 02ca | | .STRTAB 0x02ca->0x1aca ; "Editing "
1966 02d0 | | .STRTAB 0x02d0->0x1ace ; "\x5c will result in demotion of "
1967 02ec | | .STRTAB 0x02ec->0x1add ; " units\x5c"
1968 02f1 | | .STRTAB 0x02f1->0x1ae0 ; "in 1 library, \x5c "
1969 02ff | | .STRTAB 0x02ff->0x1ae8 ; "in "
196a 0300 | | .STRTAB 0x0300->0x1aea ; " libraries, \x5c "
196b 030c | | .STRTAB 0x030c->0x1af1 ; " demoting "
196c 0314 | | .STRTAB 0x0314->0x1af6 ; " lines in total. Ok?"
196d 0327 | ' | .STRTAB 0x0327->0x1b00 ; "File Open, Demote?"
196e 0337 | 7 | .STRTAB 0x0337->0x1b09 ; "<Selection>"
196f 0340 | @ | .STRTAB 0x0340->0x1b0f ; "File Browse"
1970 0349 | I | .STRTAB 0x0349->0x1b14 ; "Save Changes?"
1971 0354 | T | .STRTAB 0x0354->0x1b1b ; "File Close"
1972 035c | \ | .STRTAB 0x035c->0x1b20 ; "<image>"
1973 0361 | a | .STRTAB 0x0361->0x1b23 ; "Send Message?"
1974 036c | l | .STRTAB 0x036c->0x1b2a ; "Command windows cannot be saved."
1975 038a | | .STRTAB 0x038a->0x1b3a ; "Mail windows cannot be saved. Use Send_Message to send."
1976 03c0 | | .STRTAB 0x03c0->0x1b56 ; "Object is modified. Lose changes?"
1977 03e0 | | .STRTAB 0x03e0->0x1b67 ; "File Revert"
1978 03e9 | | .STRTAB 0x03e9->0x1b6c ; "F"
1979 03e8 | | .STRTAB 0x03e8->0x1b6d ; "T"
197a 03e7 | | .STRTAB 0x03e7->0x1b6d ; "<CURRENT_WINDOW_CONTENTS>"
197b 03fe | | .STRTAB 0x03fe->0x1b7a ; "<REGION>"
197c 0404 | | .STRTAB 0x0404->0x1b7e ; "File Copy"
197d 040b | | .STRTAB 0x040b->0x1b82 ; ".NewFile"
197e 0411 | | .STRTAB 0x0411->0x1b86 ; "File Move"
197f 0418 | | .STRTAB 0x0418->0x1b8b ; "Enter names of objects to delete."
1980 0437 | 7 | .STRTAB 0x0437->0x1b9b ; "{<Cursor>}"
1981 043f | ? | .STRTAB 0x043f->0x1ba0 ; "Delete"
1982 0443 | C | .STRTAB 0x0443->0x1ba3 ; "Error resolving name: "
1983 0457 | W | .STRTAB 0x0457->0x1bae ; " will delete\x5c"
1984 0462 | b | .STRTAB 0x0462->0x1bb5 ; " Dependent objects\x5c"
1985 0473 | s | .STRTAB 0x0473->0x1bbe ; " Dependent object\x5c"
1986 0483 | | .STRTAB 0x0483->0x1bc7 ; " Text objects\x5c"
1987 048f | | .STRTAB 0x048f->0x1bce ; " Text object\x5c"
1988 049a | | .STRTAB 0x049a->0x1bd5 ; " Ada objects\x5c"
1989 04a5 | | .STRTAB 0x04a5->0x1bdb ; " Ada object\x5c"
198a 04af | | .STRTAB 0x04af->0x1be1 ; " Directories\x5c"
198b 04ba | | .STRTAB 0x04ba->0x1be8 ; " Directory\x5c"
198c 04c3 | | .STRTAB 0x04c3->0x1bed ; " Libraries\x5c"
198d 04cc | | .STRTAB 0x04cc->0x1bf3 ; " Library\x5c"
198e 04d3 | | .STRTAB 0x04d3->0x1bf7 ; " Views\x5c"
198f 04d8 | | .STRTAB 0x04d8->0x1bfb ; " View\x5c"
1990 04dc | | .STRTAB 0x04dc->0x1bfe ; " Subsystems\x5c"
1991 04e6 | | .STRTAB 0x04e6->0x1c04 ; " Subsystem\x5c"
1992 04ef | | .STRTAB 0x04ef->0x1c09 ; " other objects\x5c"
1993 04fc | | .STRTAB 0x04fc->0x1c11 ; " other object\x5c"
1994 0508 | | .STRTAB 0x0508->0x1c18 ; "\x5c Delete?"
1995 050f | | .STRTAB 0x050f->0x1c1c ; "Deleting \x5c"
1996 0517 | | .STRTAB 0x0517->0x1c21 ; "Delete Confirm"
1997 0523 | # | .STRTAB 0x0523->0x1c28 ; "$"
1998 0522 | " | .STRTAB 0x0522->0x1c29 ; "Cannot debug on another machine; will run without debug."
1999 0558 | X | .STRTAB 0x0558->0x1c45 ; "true"
199a 055a | Z | .STRTAB 0x055a->0x1c47 ; "Unable to commit buffers. Session not logged off"
199b 0589 | | .STRTAB 0x0589->0x1c5f ; " \x5c"
199c 0589 | | .STRTAB 0x0589->0x1c60 ; "\x1b]63;\x07"
199d 058d | | .STRTAB 0x058d->0x1c63 ; "The following buffer(s) are modified:\x5c"
199e 05b1 | | .STRTAB 0x05b1->0x1c76 ; "Quit anyway?"
199f 05bb | | .STRTAB 0x05bb->0x1c7c ; " "
19a0 05ba | | .STRTAB 0x05ba->0x1c7d ; "Mailbox"
19a1 05bf | | .STRTAB 0x05bf->0x1c80 ; "<CURSOR>"
19a2 05c5 | | .STRTAB 0x05c5->0x1c84 ; "Creator => "
19a3 05ce | | .STRTAB 0x05ce->0x1c8a ; "Create Date => "
19a4 05db | | .STRTAB 0x05db->0x1c91 ; "Subclass => "
19a5 05e5 | | .STRTAB 0x05e5->0x1c97 ; "Total Size => "
19a6 05f1 | | .STRTAB 0x05f1->0x1c9e ; "Updater => "
19a7 05fa | | .STRTAB 0x05fa->0x1ca4 ; "Update Date => "
19a8 0607 | | .STRTAB 0x0607->0x1cab ; "No object selected"
19a9 0617 | | .STRTAB 0x0617->0x1cb4 ; "\x5c"
19aa 0616 | | .STRTAB 0x0616->0x1cb5 ; "<SESSION>"
19ab 061d | | .STRTAB 0x061d->0x1cb9 ; "Error getting access list"
19ac 0634 | 4 | .STRTAB 0x0634->0x1cc6 ; "<NONE>"
19ad 0638 | 8 | .STRTAB 0x0638->0x1cc9 ; "Object is not in a subsystem view"
19ae 0657 | W | .STRTAB 0x0657->0x1cd9 ; "Object is not controlled"
19af 066d | m | .STRTAB 0x066d->0x1ce5 ; "Switch file does not exist"
19b0 0685 | | .STRTAB 0x0685->0x1cf2 ; "{"
19b1 0684 | | .STRTAB 0x0684->0x1cf3 ; ".@['c(~library)?,'c(library)]}"
19b2 06a0 | | .STRTAB 0x06a0->0x1d02 ; ".??@}"
19b3 06a3 | | .STRTAB 0x06a3->0x1d04 ; ".@'c(library)}"
19b4 06af | | .STRTAB 0x06af->0x1d0b ; ".@['c(library),'c(~library)?]}"
19b5 06cb | | .STRTAB 0x06cb->0x1d1a ; "deleting "
19b6 06d2 | | .STRTAB 0x06d2->0x1d1f ; "<DIRECTORIES>"
19b7 06dd | | .STRTAB 0x06dd->0x1d25 ; "<SELECTION>"
19b8 06e6 | | .STRTAB 0x06e6->0x1d2b ; "!Machine.Queues.User_To_Printer_Map"
19b9 0707 | | .STRTAB 0x0707->0x1d3c ; "Volume => "
19ba 070f | | .STRTAB 0x070f->0x1d41 ; "Cannot edit that type of object"
19bb 072c | , | .STRTAB 0x072c->0x1d51 ; "State => "
19bc 0733 | 3 | .STRTAB 0x0733->0x1d55 ; "destroy_system_subsystem "
19bd 074a | J | .STRTAB 0x074a->0x1d62 ; "destroy_subsystem "
19be 075a | Z | .STRTAB 0x075a->0x1d6b ; "destroy_view "
19bf 0765 | e | .STRTAB 0x0765->0x1d71 ; "'body"
19c0 0768 | h | .STRTAB 0x0768->0x1d74 ; "!!"
19c1 0768 | h | .STRTAB 0x0768->0x1d75 ; "."
19c2 0767 | g | .STRTAB 0x0767->0x1d75 ; "others"
19c3 076b | k | .STREND 0x076b->0x1d78
19c4 1b5d 074e | ] N| .STRTAB_STRINGS
1d79 0000 0000 | | .BLANK 0000[0x7]
1d80 ; --------------------------------------------------------------------------------------
1d80 ; Debug Table
1d80 ; --------------------------------------------------------------------------------------
1d80 0004 0012 | | .DEBUG4 0x0004,0x0012,0x14b4,0x0000,0x0001,0x0000
1d86 0000 0000 | | .BLANK 0000[0x27]
1dad 1002 8000 | | .XXX[0xb]
1daf 0000 0000 | |
1db1 0020 0000 | |
1db3 0110 0000 | |
1db5 0000 8000 | |
1db7 0005 | |
1db8 0000 0000 | | .BLANK 0000[0x48]