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