|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 04e8 | | .CONST 0x04e8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00bd | | .CONST 0x00bd ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0030 | 0 | .CONST 0x0030 ; Number of locals 000b INIT_0008: 000b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 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 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 002f c22c | , | Store 0x1,0x2c 0030 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0032 c21f | | Store 0x1,0x1f 0033 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0035 c20f | | Store 0x1,0xf 0036 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0038 c210 | | Store 0x1,0x10 0039 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 003b c22b | + | Store 0x1,0x2b 003c 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 003e c211 | | Store 0x1,0x11 003f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0041 c212 | | Store 0x1,0x12 0042 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0044 c213 | | Store 0x1,0x13 0045 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0047 c214 | | Store 0x1,0x14 0048 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 004a c215 | | Store 0x1,0x15 004b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 004d c22d | - | Store 0x1,0x2d 004e 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0050 c220 | | Store 0x1,0x20 0051 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0053 c217 | | Store 0x1,0x17 0054 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0056 c218 | | Store 0x1,0x18 0057 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0059 c219 | | Store 0x1,0x19 005a 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 005c c21a | | Store 0x1,0x1a 005d 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 005f c21b | | Store 0x1,0x1b 0060 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0062 c21c | | Store 0x1,0x1c 0063 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0065 c222 | " | Store 0x1,0x22 0066 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0068 c21e | | Store 0x1,0x1e 0069 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 006b c224 | $ | Store 0x1,0x24 006c 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 006e c226 | & | Store 0x1,0x26 006f 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0071 c225 | % | Store 0x1,0x25 0072 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0074 c227 | ' | Store 0x1,0x27 0075 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0077 c223 | # | Store 0x1,0x23 0078 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 007a c229 | ) | Store 0x1,0x29 007b 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 007d c228 | ( | Store 0x1,0x28 007e 00bf | | Action Accept_Activation 007f 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 0081 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0082 00c7 | | Action Elaborate_Subprogram 0083 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0084 00c7 | | Action Elaborate_Subprogram 0085 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0086 00c7 | | Action Elaborate_Subprogram 0087 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0088 00c7 | | Action Elaborate_Subprogram 0089 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 008b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008c 00c7 | | Action Elaborate_Subprogram 008d 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 008e 00c7 | | Action Elaborate_Subprogram 008f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0090 00c7 | | Action Elaborate_Subprogram 0091 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0092 00c7 | | Action Elaborate_Subprogram 0093 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0094 00c7 | | Action Elaborate_Subprogram 0095 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0096 00c7 | | Action Elaborate_Subprogram 0097 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 0099 1d15 | | Execute_Immediate Reference_Lex_1,0x15 009a 00c7 | | Action Elaborate_Subprogram 009b 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 009c 00c7 | | Action Elaborate_Subprogram 009d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009e 00c7 | | Action Elaborate_Subprogram 009f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00bc 00c7 | | Action Elaborate_Subprogram 00bd BODY_0008: 00bd 00bc | | Action Signal_Activated 00be 00bb | | Action Signal_Completion 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 0092 042a | *| Action Push_String_Extended,0x42a ; "F" 00c5 822e | . | Call 0x1,0x2e 00c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 0092 042b | +| Action Push_String_Extended,0x42b ; "T" 00cd 822e | . | Call 0x1,0x2e 00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00cf 0000 | | .XXX[0x1] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 00d5 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 00d7 0092 042e | .| Action Push_String_Extended,0x42e ; "<TOMORROW>" 00d9 4803 |H | Short_Literal 0x3 00da 4800 |H | Short_Literal 0x0 00db e5fd | | Load 0x2,-0x3 00dc e5fc | | Load 0x2,-0x4 00dd e5fe | | Load 0x2,-0x2 00de e5ff | | Load 0x2,-0x1 00df e001 | | Load 0x0,0x1 00e0 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 0092 042a | *| Action Push_String_Extended,0x42a ; "F" 00f5 822f | / | Call 0x1,0x2f 00f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 0092 042b | +| Action Push_String_Extended,0x42b ; "T" 00fd 822f | / | Call 0x1,0x2f 00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0105 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0107 e5fe | | Load 0x2,-0x2 0108 e5ff | | Load 0x2,-0x1 0109 e001 | | Load 0x0,0x1 010a 180e | | Execute Package,Field_Execute,Field_Number 0xe 010b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011b | | .CONST 0x011b ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e002 | | Load 0x0,0x2 0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0115 02c7 | | Declare_Variable Any 0116 0092 042f | /| Action Push_String_Extended,0x42f ; "<SELECTION>" 0118 e003 | | Load 0x0,0x3 0119 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011a a402 | | Store_Unchecked 0x2,0x2 011b BODY_0110: 011b 00d8 | | Load_Top At_Offset_0 011c e002 | | Load 0x0,0x2 011d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 011e 6805 |h | Jump_Zero 0x124 011f 0092 0430 | 0| Action Push_String_Extended,0x430 ; "You must select the object whose reservation is to be abandoned." 0121 e004 | | Load 0x0,0x4 0122 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0123 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0124 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0126 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0128 00ea | | Load_Encached Null_String_Cache 0129 4803 |H | Short_Literal 0x3 012a 4800 |H | Short_Literal 0x0 012b 4801 |H | Short_Literal 0x1 012c 0092 042f | /| Action Push_String_Extended,0x42f ; "<SELECTION>" 012e e001 | | Load 0x0,0x1 012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0130 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 0092 042a | *| Action Push_String_Extended,0x42a ; "F" 014d 8230 | 0 | Call 0x1,0x30 014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 0092 042b | +| Action Push_String_Extended,0x42b ; "T" 0155 8230 | 0 | Call 0x1,0x30 0156 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0176 | v | .CONST 0x0176 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0004 | | .CONST 0x0004 ; Number of locals 015b INIT_0158: 015b e5fb | | Load 0x2,-0x5 015c 01db | | Execute Vector,Length 015d 0a64 | d | Execute_Immediate Plus,0x64 015e e5fa | | Load 0x2,-0x6 015f 01db | | Execute Vector,Length 0160 0273 | s | Execute Discrete,Plus 0161 e005 | | Load 0x0,0x5 0162 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0163 1c08 | | Execute_Immediate Run_Utility,0x8 0164 00d8 | | Load_Top At_Offset_0 0165 1c00 | | Execute_Immediate Run_Utility,0x0 0166 00db | | Load_Top At_Offset_3 0167 01db | | Execute Vector,Length 0168 e5fd | | Load 0x2,-0x3 0169 01db | | Execute Vector,Length 016a 0273 | s | Execute Discrete,Plus 016b 0a32 | 2 | Execute_Immediate Plus,0x32 016c e005 | | Load 0x0,0x5 016d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016e 1c08 | | Execute_Immediate Run_Utility,0x8 016f 00d8 | | Load_Top At_Offset_0 0170 1c00 | | Execute_Immediate Run_Utility,0x0 0171 e5ff | | Load 0x2,-0x1 0172 e003 | | Load 0x0,0x3 0173 180f | | Execute Package,Field_Execute,Field_Number 0xf 0174 e006 | | Load 0x0,0x6 0175 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0176 BODY_0158: 0176 00d9 | | Load_Top At_Offset_1 0177 e5ff | | Load 0x2,-0x1 0178 e005 | | Load 0x0,0x5 0179 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017a 00d1 | | Pop_Control Pop_Count_1 017b e5fe | | Load 0x2,-0x2 017c 7008 |p | Jump_Nonzero 0x185 017d 00d9 | | Load_Top At_Offset_1 017e 0092 0431 | 1| Action Push_String_Extended,0x431 ; "." 0180 e5fd | | Load 0x2,-0x3 0181 01cc | | Execute Vector,Catenate 0182 e005 | | Load 0x0,0x5 0183 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0184 00d1 | | Pop_Control Pop_Count_1 0185 e5fc | | Load 0x2,-0x4 0186 6807 |h | Jump_Zero 0x18e 0187 00da | | Load_Top At_Offset_2 0188 0092 0432 | 2| Action Push_String_Extended,0x432 ; "<LATEST>" 018a e005 | | Load 0x0,0x5 018b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 018c 00d1 | | Pop_Control Pop_Count_1 018d 781e |x | Jump 0x1ac 018e 00da | | Load_Top At_Offset_2 018f 00d9 | | Load_Top At_Offset_1 0190 0092 0431 | 1| Action Push_String_Extended,0x431 ; "." 0192 01cc | | Execute Vector,Catenate 0193 e5fb | | Load 0x2,-0x5 0194 01cc | | Execute Vector,Catenate 0195 e005 | | Load 0x0,0x5 0196 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0197 00d1 | | Pop_Control Pop_Count_1 0198 e5fa | | Load 0x2,-0x6 0199 01db | | Execute Vector,Length 019a 0e00 | | Execute_Immediate Not_Equal,0x0 019b e5fa | | Load 0x2,-0x6 019c 0092 0433 | 3| Action Push_String_Extended,0x433 ; " " 019e 01de | | Execute Vector,Not_Equal 019f 0279 | y | Execute Discrete,And 01a0 680b |h | Jump_Zero 0x1ac 01a1 00da | | Load_Top At_Offset_2 01a2 0092 0434 | 4| Action Push_String_Extended,0x434 ; ".units.[" 01a4 e5fa | | Load 0x2,-0x6 01a5 01cc | | Execute Vector,Catenate 01a6 0092 0435 | 5| Action Push_String_Extended,0x435 ; "]" 01a8 01cc | | Execute Vector,Catenate 01a9 e005 | | Load 0x0,0x5 01aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ab 00d1 | | Pop_Control Pop_Count_1 01ac 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 01ae 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 01b0 00ea | | Load_Encached Null_String_Cache 01b1 4803 |H | Short_Literal 0x3 01b2 4800 |H | Short_Literal 0x0 01b3 4801 |H | Short_Literal 0x1 01b4 e402 | | Load 0x2,0x2 01b5 e005 | | Load 0x0,0x5 01b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b7 e403 | | Load 0x2,0x3 01b8 e005 | | Load 0x0,0x5 01b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ba e001 | | Load 0x0,0x1 01bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01bc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01c4 0000 0000 | | .BLANK 0000[0x4] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cf | | .CONST 0x01cf ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 01cd e003 | | Load 0x0,0x3 01ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 01cf BODY_01c8: 01cf 00ea | | Load_Encached Null_String_Cache 01d0 00ea | | Load_Encached Null_String_Cache 01d1 00ea | | Load_Encached Null_String_Cache 01d2 00ea | | Load_Encached Null_String_Cache 01d3 00ea | | Load_Encached Null_String_Cache 01d4 00ea | | Load_Encached Null_String_Cache 01d5 4800 |H | Short_Literal 0x0 01d6 e402 | | Load 0x2,0x2 01d7 e006 | | Load 0x0,0x6 01d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d9 e006 | | Load 0x0,0x6 01da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01db e402 | | Load 0x2,0x2 01dc 4bba |K | Short_Literal 0x3ba 01dd 4822 |H" | Short_Literal 0x22 01de e007 | | Load 0x0,0x7 01df 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 01ed 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 01ef 00ea | | Load_Encached Null_String_Cache 01f0 00ea | | Load_Encached Null_String_Cache 01f1 e5ff | | Load 0x2,-0x1 01f2 e006 | | Load 0x0,0x6 01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f4 0092 0431 | 1| Action Push_String_Extended,0x431 ; "." 01f6 01cc | | Execute Vector,Catenate 01f7 e5fe | | Load 0x2,-0x2 01f8 01cc | | Execute Vector,Catenate 01f9 e5ff | | Load 0x2,-0x1 01fa e001 | | Load 0x0,0x1 01fb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00ea | | Load_Encached Null_String_Cache 0204 00ea | | Load_Encached Null_String_Cache 0205 0092 0437 | 7| Action Push_String_Extended,0x437 ; "Objects:" 0207 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 0209 e003 | | Load 0x0,0x3 020a 180f | | Execute Package,Field_Execute,Field_Number 0xf 020b 0092 0438 | 8| Action Push_String_Extended,0x438 ; "Sever Controlled CMVC Objects" 020d 4bbb |K | Short_Literal 0x3bb 020e e007 | | Load 0x0,0x7 020f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0211 0000 0000 | | .BLANK 0000[0x7] 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 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 021d 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 021f e5fe | | Load 0x2,-0x2 0220 0092 0439 | 9| Action Push_String_Extended,0x439 ; "<AUTO_GENERATE>" 0222 e5ff | | Load 0x2,-0x1 0223 e001 | | Load 0x0,0x1 0224 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0225 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022f | / | .CONST 0x022f ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b 0092 043a | :| Action Push_String_Extended,0x43a ; "$$" 022d e003 | | Load 0x0,0x3 022e 180f | | Execute Package,Field_Execute,Field_Number 0xf 022f BODY_0228: 022f 00ea | | Load_Encached Null_String_Cache 0230 00ea | | Load_Encached Null_String_Cache 0231 00ea | | Load_Encached Null_String_Cache 0232 00ea | | Load_Encached Null_String_Cache 0233 00ea | | Load_Encached Null_String_Cache 0234 e402 | | Load 0x2,0x2 0235 e006 | | Load 0x0,0x6 0236 180f | | Execute Package,Field_Execute,Field_Number 0xf 0237 e402 | | Load 0x2,0x2 0238 e006 | | Load 0x0,0x6 0239 1816 | | Execute Package,Field_Execute,Field_Number 0x16 023a e402 | | Load 0x2,0x2 023b 4bbc |K | Short_Literal 0x3bc 023c 4824 |H$ | Short_Literal 0x24 023d e007 | | Load 0x0,0x7 023e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e5fc | | Load 0x2,-0x4 0244 01db | | Execute Vector,Length 0245 680f |h | Jump_Zero 0x255 0246 e5fc | | Load 0x2,-0x4 0247 00db | | Load_Top At_Offset_3 0248 e006 | | Load 0x0,0x6 0249 180f | | Execute Package,Field_Execute,Field_Number 0xf 024a 01de | | Execute Vector,Not_Equal 024b 6809 |h | Jump_Zero 0x255 024c 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 024e 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0250 00ea | | Load_Encached Null_String_Cache 0251 e5ff | | Load 0x2,-0x1 0252 e5fc | | Load 0x2,-0x4 0253 e001 | | Load 0x0,0x1 0254 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0255 e5fd | | Load 0x2,-0x3 0256 01db | | Execute Vector,Length 0257 6809 |h | Jump_Zero 0x261 0258 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 025a 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 025c 00ea | | Load_Encached Null_String_Cache 025d e5ff | | Load 0x2,-0x1 025e e5fd | | Load 0x2,-0x3 025f e001 | | Load 0x0,0x1 0260 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0261 00db | | Load_Top At_Offset_3 0262 01db | | Execute Vector,Length 0263 680e |h | Jump_Zero 0x272 0264 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0266 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0268 00ea | | Load_Encached Null_String_Cache 0269 4803 |H | Short_Literal 0x3 026a 4800 |H | Short_Literal 0x0 026b 4800 |H | Short_Literal 0x0 026c 4800 |H | Short_Literal 0x0 026d e5ff | | Load 0x2,-0x1 026e e5fe | | Load 0x2,-0x2 026f e001 | | Load 0x0,0x1 0270 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0271 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0272 e5fb | | Load 0x2,-0x5 0273 680d |h | Jump_Zero 0x281 0274 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0276 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0278 00ea | | Load_Encached Null_String_Cache 0279 4803 |H | Short_Literal 0x3 027a 4800 |H | Short_Literal 0x0 027b 4800 |H | Short_Literal 0x0 027c 4800 |H | Short_Literal 0x0 027d e5ff | | Load 0x2,-0x1 027e 00ea | | Load_Encached Null_String_Cache 027f e001 | | Load 0x0,0x1 0280 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0281 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 4801 |H | Short_Literal 0x1 028c 4801 |H | Short_Literal 0x1 028d 4801 |H | Short_Literal 0x1 028e 4800 |H | Short_Literal 0x0 028f 0092 043b | ;| Action Push_String_Extended,0x43b ; "<CURSOR>" 0291 e001 | | Load 0x0,0x1 0292 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0293 e008 | | Load 0x0,0x8 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 02bb | | .CONST 0x02bb ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0005 | | .CONST 0x0005 ; Number of locals 029b INIT_0298: 029b e002 | | Load 0x0,0x2 029c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 029d 02c7 | | Declare_Variable Any 029e 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 02a0 e003 | | Load 0x0,0x3 02a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02a2 a402 | | Store_Unchecked 0x2,0x2 02a3 0092 043a | :| Action Push_String_Extended,0x43a ; "$$" 02a5 e003 | | Load 0x0,0x3 02a6 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a7 00d9 | | Load_Top At_Offset_1 02a8 e002 | | Load 0x0,0x2 02a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02aa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 02ab 00d8 | | Load_Top At_Offset_0 02ac 01dd | | Execute Vector,First 02ad 00da | | Load_Top At_Offset_2 02ae 01db | | Execute Vector,Length 02af 0273 | s | Execute Discrete,Plus 02b0 0a01 | | Execute_Immediate Plus,0x1 02b1 00d8 | | Load_Top At_Offset_0 02b2 00e2 | | Load_Encached Integer_Cache 02b3 0260 | ` | Execute Discrete,In_Type 02b4 7001 |p | Jump_Nonzero 0x2b6 02b5 0801 | | Execute_Immediate Raise,0x1 02b6 00d9 | | Load_Top At_Offset_1 02b7 01dc | | Execute Vector,Last 02b8 00da | | Load_Top At_Offset_2 02b9 01cf | | Execute Vector,Slice_Read 02ba 0007 | | Action Break_Optional 02bb BODY_0298: 02bb 00ea | | Load_Encached Null_String_Cache 02bc 00ea | | Load_Encached Null_String_Cache 02bd 00ea | | Load_Encached Null_String_Cache 02be 00ea | | Load_Encached Null_String_Cache 02bf 00ea | | Load_Encached Null_String_Cache 02c0 00ea | | Load_Encached Null_String_Cache 02c1 e405 | | Load 0x2,0x5 02c2 e403 | | Load 0x2,0x3 02c3 4bbd |K | Short_Literal 0x3bd 02c4 483c |H< | Short_Literal 0x3c 02c5 e007 | | Load 0x0,0x7 02c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e5fc | | Load 0x2,-0x4 02cc 6851 |hQ | Jump_Zero 0x31e 02cd 00db | | Load_Top At_Offset_3 02ce 0092 043c | <| Action Push_String_Extended,0x43c ; "A" 02d0 01df | | Execute Vector,Equal 02d1 6811 |h | Jump_Zero 0x2e3 02d2 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 02d4 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 02d6 00ea | | Load_Encached Null_String_Cache 02d7 4801 |H | Short_Literal 0x1 02d8 0092 043d | =| Action Push_String_Extended,0x43d ; "<NONE>" 02da 0092 0439 | 9| Action Push_String_Extended,0x439 ; "<AUTO_GENERATE>" 02dc e5ff | | Load 0x2,-0x1 02dd 0092 043e | >| Action Push_String_Extended,0x43e ; ".Units.?" 02df 01cc | | Execute Vector,Catenate 02e0 e001 | | Load 0x0,0x1 02e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02e3 00db | | Load_Top At_Offset_3 02e4 0092 043f | ?| Action Push_String_Extended,0x43f ; "P" 02e6 01df | | Execute Vector,Equal 02e7 6811 |h | Jump_Zero 0x2f9 02e8 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 02ea 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 02ec 00ea | | Load_Encached Null_String_Cache 02ed 4801 |H | Short_Literal 0x1 02ee 0092 043d | =| Action Push_String_Extended,0x43d ; "<NONE>" 02f0 0092 0439 | 9| Action Push_String_Extended,0x439 ; "<AUTO_GENERATE>" 02f2 e5ff | | Load 0x2,-0x1 02f3 0092 0440 | @| Action Push_String_Extended,0x440 ; ".Units.?'c(ada)" 02f5 01cc | | Execute Vector,Catenate 02f6 e001 | | Load 0x0,0x1 02f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02f9 00db | | Load_Top At_Offset_3 02fa 0092 0441 | A| Action Push_String_Extended,0x441 ; "U" 02fc 01df | | Execute Vector,Equal 02fd 6816 |h | Jump_Zero 0x314 02fe 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0300 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0302 00ea | | Load_Encached Null_String_Cache 0303 4801 |H | Short_Literal 0x1 0304 0092 043d | =| Action Push_String_Extended,0x43d ; "<NONE>" 0306 0092 0439 | 9| Action Push_String_Extended,0x439 ; "<AUTO_GENERATE>" 0308 e5ff | | Load 0x2,-0x1 0309 0092 0442 | B| Action Push_String_Extended,0x442 ; ".[" 030b 01cc | | Execute Vector,Catenate 030c e5fd | | Load 0x2,-0x3 030d 01cc | | Execute Vector,Catenate 030e 0092 0435 | 5| Action Push_String_Extended,0x435 ; "]" 0310 01cc | | Execute Vector,Catenate 0311 e001 | | Load 0x0,0x1 0312 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0313 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0314 0092 0443 | C| Action Push_String_Extended,0x443 ; "Control: Illegal encoding of group (" 0316 e5fe | | Load 0x2,-0x2 0317 01cc | | Execute Vector,Catenate 0318 0092 0444 | D| Action Push_String_Extended,0x444 ; ")" 031a 01cc | | Execute Vector,Catenate 031b e004 | | Load 0x0,0x4 031c 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 031d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 031e 00db | | Load_Top At_Offset_3 031f 0092 043c | <| Action Push_String_Extended,0x43c ; "A" 0321 01df | | Execute Vector,Equal 0322 680c |h | Jump_Zero 0x32f 0323 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0325 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0327 00ea | | Load_Encached Null_String_Cache 0328 e5ff | | Load 0x2,-0x1 0329 0092 043e | >| Action Push_String_Extended,0x43e ; ".Units.?" 032b 01cc | | Execute Vector,Catenate 032c e001 | | Load 0x0,0x1 032d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 032e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 032f 00db | | Load_Top At_Offset_3 0330 0092 043f | ?| Action Push_String_Extended,0x43f ; "P" 0332 01df | | Execute Vector,Equal 0333 680c |h | Jump_Zero 0x340 0334 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0336 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0338 00ea | | Load_Encached Null_String_Cache 0339 e5ff | | Load 0x2,-0x1 033a 0092 0440 | @| Action Push_String_Extended,0x440 ; ".Units.?'c(ada)" 033c 01cc | | Execute Vector,Catenate 033d e001 | | Load 0x0,0x1 033e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 033f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0340 00db | | Load_Top At_Offset_3 0341 0092 0441 | A| Action Push_String_Extended,0x441 ; "U" 0343 01df | | Execute Vector,Equal 0344 6811 |h | Jump_Zero 0x356 0345 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0347 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0349 00ea | | Load_Encached Null_String_Cache 034a e5ff | | Load 0x2,-0x1 034b 0092 0442 | B| Action Push_String_Extended,0x442 ; ".[" 034d 01cc | | Execute Vector,Catenate 034e e5fd | | Load 0x2,-0x3 034f 01cc | | Execute Vector,Catenate 0350 0092 0435 | 5| Action Push_String_Extended,0x435 ; "]" 0352 01cc | | Execute Vector,Catenate 0353 e001 | | Load 0x0,0x1 0354 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0355 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0356 0092 0443 | C| Action Push_String_Extended,0x443 ; "Control: Illegal encoding of group (" 0358 e5fe | | Load 0x2,-0x2 0359 01cc | | Execute Vector,Catenate 035a 0092 0444 | D| Action Push_String_Extended,0x444 ; ")" 035c 01cc | | Execute Vector,Catenate 035d e004 | | Load 0x0,0x4 035e 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 035f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00ea | | Load_Encached Null_String_Cache 0364 00ea | | Load_Encached Null_String_Cache 0365 00ea | | Load_Encached Null_String_Cache 0366 00ea | | Load_Encached Null_String_Cache 0367 00ea | | Load_Encached Null_String_Cache 0368 00ea | | Load_Encached Null_String_Cache 0369 00ea | | Load_Encached Null_String_Cache 036a 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 036c e003 | | Load 0x0,0x3 036d 180f | | Execute Package,Field_Execute,Field_Number 0xf 036e 4bbe |K | Short_Literal 0x3be 036f 483d |H= | Short_Literal 0x3d 0370 e007 | | Load 0x0,0x7 0371 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0372 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037e | ~ | .CONST 0x037e ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0003 | | .CONST 0x0003 ; Number of locals 037b INIT_0378: 037b 00e2 | | Load_Encached Integer_Cache 037c 029f 041b | | Declare_Subprogram INIT_0418,For_Call 037e BODY_0378: 037e 8403 | | Call 0x2,0x3 037f 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 0381 0092 042d | -| Action Push_String_Extended,0x42d ; "<DEFAULT>" 0383 00ea | | Load_Encached Null_String_Cache 0384 4803 |H | Short_Literal 0x3 0385 4800 |H | Short_Literal 0x0 0386 4801 |H | Short_Literal 0x1 0387 e5fd | | Load 0x2,-0x3 0388 e402 | | Load 0x2,0x2 0389 e5ff | | Load 0x2,-0x1 038a e001 | | Load 0x0,0x1 038b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 038d 0000 0000 | | .XXX[0x3] 038f 0000 | | 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00ea | | Load_Encached Null_String_Cache 0394 00ea | | Load_Encached Null_String_Cache 0395 00ea | | Load_Encached Null_String_Cache 0396 00ea | | Load_Encached Null_String_Cache 0397 00ea | | Load_Encached Null_String_Cache 0398 00ea | | Load_Encached Null_String_Cache 0399 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 039b e003 | | Load 0x0,0x3 039c 180f | | Execute Package,Field_Execute,Field_Number 0xf 039d 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 039f e003 | | Load 0x0,0x3 03a0 180f | | Execute Package,Field_Execute,Field_Number 0xf 03a1 4bbf |K | Short_Literal 0x3bf 03a2 4840 |H@ | Short_Literal 0x40 03a3 e007 | | Load 0x0,0x7 03a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a6 0000 0000 | | .XXX[0x2] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 0092 042c | ,| Action Push_String_Extended,0x42c ; "<PROFILE>" 03ad e5fc | | Load 0x2,-0x4 03ae e5fd | | Load 0x2,-0x3 03af e5fe | | Load 0x2,-0x2 03b0 e5ff | | Load 0x2,-0x1 03b1 e001 | | Load 0x0,0x1 03b2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03b3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03bc 0000 0000 | | .BLANK 0000[0x4] 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 e5ff | | Load 0x2,-0x1 03c9 0092 0445 | E| Action Push_String_Extended,0x445 ; "Check Out" 03cb 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 03cd e003 | | Load 0x0,0x3 03ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 03cf 4bb7 |K | Short_Literal 0x3b7 03d0 4820 |H | Short_Literal 0x20 03d1 e007 | | Load 0x0,0x7 03d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 00ea | | Load_Encached Null_String_Cache 03dc 00ea | | Load_Encached Null_String_Cache 03dd 00ea | | Load_Encached Null_String_Cache 03de 00ea | | Load_Encached Null_String_Cache 03df 00ea | | Load_Encached Null_String_Cache 03e0 00ea | | Load_Encached Null_String_Cache 03e1 e5ff | | Load 0x2,-0x1 03e2 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 03e4 e003 | | Load 0x0,0x3 03e5 180f | | Execute Package,Field_Execute,Field_Number 0xf 03e6 4bb8 |K | Short_Literal 0x3b8 03e7 4839 |H9 | Short_Literal 0x39 03e8 e007 | | Load 0x0,0x7 03e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03eb 0000 0000 | | .BLANK 0000[0x5] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03ff | | .CONST 0x03ff ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0003 | | .CONST 0x0003 ; Number of locals 03f3 INIT_03f0: 03f3 e002 | | Load 0x0,0x2 03f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f5 02c7 | | Declare_Variable Any 03f6 0092 043a | :| Action Push_String_Extended,0x43a ; "$$" 03f8 e003 | | Load 0x0,0x3 03f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03fa a402 | | Store_Unchecked 0x2,0x2 03fb 00d8 | | Load_Top At_Offset_0 03fc e002 | | Load 0x0,0x2 03fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03fe 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03ff BODY_03f0: 03ff 00ea | | Load_Encached Null_String_Cache 0400 00ea | | Load_Encached Null_String_Cache 0401 00ea | | Load_Encached Null_String_Cache 0402 00ea | | Load_Encached Null_String_Cache 0403 e5ff | | Load 0x2,-0x1 0404 4801 |H | Short_Literal 0x1 0405 e403 | | Load 0x2,0x3 0406 e006 | | Load 0x0,0x6 0407 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0408 e006 | | Load 0x0,0x6 0409 1815 | | Execute Package,Field_Execute,Field_Number 0x15 040a e403 | | Load 0x2,0x3 040b 0092 0436 | 6| Action Push_String_Extended,0x436 ; "<Cursor>" 040d e003 | | Load 0x0,0x3 040e 180f | | Execute Package,Field_Execute,Field_Number 0xf 040f e003 | | Load 0x0,0x3 0410 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0411 e403 | | Load 0x2,0x3 0412 4bb9 |K | Short_Literal 0x3b9 0413 4821 |H! | Short_Literal 0x21 0414 e007 | | Load 0x0,0x7 0415 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0416 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0417 0000 | | .XXX[0x1] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0421 | ! | .CONST 0x0421 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b e5fe | | Load 0x2,-0x2 041c 00e2 | | Load_Encached Integer_Cache 041d 00e0 | | Load_Encached Standard_Cache 041e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 041f a402 | | Store_Unchecked 0x2,0x2 0420 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0421 TRAP_0418: 0421 0007 | | Action Break_Optional 0422 0092 0446 | F| Action Push_String_Extended,0x446 ; "CM Revert: Illegal value for generation: " 0424 e5fe | | Load 0x2,-0x2 0425 01cc | | Execute Vector,Catenate 0426 e004 | | Load 0x0,0x4 0427 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0428 00cc | | Action Pop_Block 0429 4504 |E | Exit_Suprogram New_Top_Offset 0x4 042a ; -------------------------------------------------------------------------------------- 042a ; STRING TABLE 042a ; -------------------------------------------------------------------------------------- 042a 003c | < | .STRTAB 0x003c->0x0448 ; "F" 042b 003b | ; | .STRTAB 0x003b->0x0448 ; "T" 042c 003a | : | .STRTAB 0x003a->0x0449 ; "<PROFILE>" 042d 0041 | A | .STRTAB 0x0041->0x044d ; "<DEFAULT>" 042e 0048 | H | .STRTAB 0x0048->0x0452 ; "<TOMORROW>" 042f 0050 | P | .STRTAB 0x0050->0x0457 ; "<SELECTION>" 0430 0059 | Y | .STRTAB 0x0059->0x045c ; "You must select the object whose reservation is to be abandoned." 0431 0097 | | .STRTAB 0x0097->0x047c ; "." 0432 0096 | | .STRTAB 0x0096->0x047d ; "<LATEST>" 0433 009c | | .STRTAB 0x009c->0x0481 ; " " 0434 009b | | .STRTAB 0x009b->0x0481 ; ".units.[" 0435 00a1 | | .STRTAB 0x00a1->0x0485 ; "]" 0436 00a0 | | .STRTAB 0x00a0->0x0486 ; "<Cursor>" 0437 00a6 | | .STRTAB 0x00a6->0x048a ; "Objects:" 0438 00ac | | .STRTAB 0x00ac->0x048e ; "Sever Controlled CMVC Objects" 0439 00c7 | | .STRTAB 0x00c7->0x049c ; "<AUTO_GENERATE>" 043a 00d4 | | .STRTAB 0x00d4->0x04a4 ; "$$" 043b 00d4 | | .STRTAB 0x00d4->0x04a5 ; "<CURSOR>" 043c 00da | | .STRTAB 0x00da->0x04a9 ; "A" 043d 00d9 | | .STRTAB 0x00d9->0x04a9 ; "<NONE>" 043e 00dd | | .STRTAB 0x00dd->0x04ac ; ".Units.?" 043f 00e3 | | .STRTAB 0x00e3->0x04b0 ; "P" 0440 00e2 | | .STRTAB 0x00e2->0x04b1 ; ".Units.?'c(ada)" 0441 00ef | | .STRTAB 0x00ef->0x04b8 ; "U" 0442 00ee | | .STRTAB 0x00ee->0x04b9 ; ".[" 0443 00ee | | .STRTAB 0x00ee->0x04ba ; "Control: Illegal encoding of group (" 0444 0110 | | .STRTAB 0x0110->0x04cc ; ")" 0445 010f | | .STRTAB 0x010f->0x04cc ; "Check Out" 0446 0116 | | .STRTAB 0x0116->0x04d1 ; "CM Revert: Illegal value for generation: " 0447 013d | = | .STREND 0x013d->0x04e5 0448 4654 3c50 |FT<P| .STRTAB_STRINGS 04e6 0000 0000 | | .XXX[0x2] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; Debug Table 04e8 ; -------------------------------------------------------------------------------------- 04e8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x64c0,0x0000,0x0001,0x0000 04ee 0000 0000 | | .BLANK 0000[0x4] 04f2 0022 27b8 | "' | .XXX[0x2] 04f4 0000 0000 | | .BLANK 0000[0xd] 0501 0020 0500 | | .XXX[0xc] 0503 0000 0000 | | 0505 0000 4000 | @ | 0507 0002 2000 | | 0509 0000 0100 | | 050b 0000 0a00 | | 050d 0000 0000 | | .BLANK 0000[0x2d] 053a 0004 00a0 | | .XXX[0xc] 053c 0000 0000 | | 053e 0000 0800 | | 0540 0000 4400 | D | 0542 0000 0020 | | 0544 0000 0140 | @| 0546 0000 0000 | | .BLANK 0000[0x2e] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]