|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 08a0 | | .CONST 0x08a0 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00cb | | .CONST 0x00cb ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003c | < | .CONST 0x003c ; Number of locals 000b INIT_0008: 000b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0011 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0013 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0015 00bf | | Action Accept_Activation 0016 e002 | | Load 0x0,0x2 0017 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0018 e002 | | Load 0x0,0x2 0019 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 001a 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 001c 4802 |H | Short_Literal 0x2 001d 032d | - | Declare_Type Record,Defined 001e 00d8 | | Load_Top At_Offset_0 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 03ad | | Declare_Type Heap_Access,Defined 0021 0093 0000 | | push_full_address 0x0 0023 60c4 |` | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00010000} 0024 0273 | s | Execute Discrete,Plus 0025 0007 | | Action Break_Optional 0026 0093 0000 | | push_full_address 0x0 0028 60bb |` | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00020000} 0029 0273 | s | Execute Discrete,Plus 002a 0007 | | Action Break_Optional 002b 0092 0817 | | Action Push_String_Extended,0x817 ; "SUBSYSTEM" 002d e003 | | Load 0x0,0x3 002e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 002f 0092 0818 | | Action Push_String_Extended,0x818 ; "SYSTEM_SUBSYSTEM" 0031 e003 | | Load 0x0,0x3 0032 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0033 e004 | | Load 0x0,0x4 0034 0007 | | Action Break_Optional 0035 e005 | | Load 0x0,0x5 0036 0322 | " | Declare_Variable Record 0037 e006 | | Load 0x0,0x6 0038 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0039 029b 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Unelaborated 003b 029b 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Unelaborated 003d 029b 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Unelaborated 003f 029b 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Unelaborated 0041 0093 0000 | | push_full_address 0x0 0043 609c |` | Indirect_Literal Discrete,0xe0,{0x80000000, 0x00020000} 0044 0273 | s | Execute Discrete,Plus 0045 e007 | | Load 0x0,0x7 0046 0273 | s | Execute Discrete,Plus 0047 e008 | | Load 0x0,0x8 0048 0273 | s | Execute Discrete,Plus 0049 4820 |H | Short_Literal 0x20 004a e009 | | Load 0x0,0x9 004b a00a | | Store_Unchecked 0x0,0xa 004c a00b | | Store_Unchecked 0x0,0xb 004d a00c | | Store_Unchecked 0x0,0xc 004e a00d | | Store_Unchecked 0x0,0xd 004f e213 | | Load 0x1,0x13 0050 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0051 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0052 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0053 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0054 a00e | | Store_Unchecked 0x0,0xe 0055 e00f | | Load 0x0,0xf 0056 0387 | | Declare_Variable Package 0057 00d8 | | Load_Top At_Offset_0 0058 020f | | Execute Module,Activate 0059 029b 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Unelaborated 005b 029b 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Unelaborated 005d 029b 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Unelaborated 005f 029b 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Unelaborated 0061 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 0063 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0065 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 0067 0093 0000 | | push_full_address 0x0 0069 6072 |`r | Indirect_Literal Discrete,0xdc,{0x80000000, 0x00010000} 006a 0273 | s | Execute Discrete,Plus 006b e007 | | Load 0x0,0x7 006c 0273 | s | Execute Discrete,Plus 006d e010 | | Load 0x0,0x10 006e 0273 | s | Execute Discrete,Plus 006f 4820 |H | Short_Literal 0x20 0070 e009 | | Load 0x0,0x9 0071 a00a | | Store_Unchecked 0x0,0xa 0072 a00b | | Store_Unchecked 0x0,0xb 0073 a00c | | Store_Unchecked 0x0,0xc 0074 a00d | | Store_Unchecked 0x0,0xd 0075 e003 | | Load 0x0,0x3 0076 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0078 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0079 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 007a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 007b 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 007c a011 | | Store_Unchecked 0x0,0x11 007d e00f | | Load 0x0,0xf 007e 0387 | | Declare_Variable Package 007f 00d8 | | Load_Top At_Offset_0 0080 020f | | Execute Module,Activate 0081 e012 | | Load 0x0,0x12 0082 00d9 | | Load_Top At_Offset_1 0083 0098 | | Execute Package,Field_Read_Dynamic 0084 0007 | | Action Break_Optional 0085 e012 | | Load 0x0,0x12 0086 e21f | | Load 0x1,0x1f 0087 0098 | | Execute Package,Field_Read_Dynamic 0088 0007 | | Action Break_Optional 0089 1d0f | | Execute_Immediate Reference_Lex_1,0xf 008a 00c7 | | Action Elaborate_Subprogram 008b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008c 00c7 | | Action Elaborate_Subprogram 008d 029b 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Unelaborated 008f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0090 00c7 | | Action Elaborate_Subprogram 0091 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 0093 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0095 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 0097 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0098 00c7 | | Action Elaborate_Subprogram 0099 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 009a 00c7 | | Action Elaborate_Subprogram 009b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009c 00c7 | | Action Elaborate_Subprogram 009d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009e 00c7 | | Action Elaborate_Subprogram 009f 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 00a1 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 00a3 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 00a5 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 00a7 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call 00a9 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 00ab 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 00ad 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call 00af 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 00b1 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call 00b3 029d 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call 00b5 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 00b7 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call 00b9 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call 00bb 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00c2 00c7 | | Action Elaborate_Subprogram 00c3 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call 00c5 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00ca 00c7 | | Action Elaborate_Subprogram 00cb BODY_0008: 00cb 00bc | | Action Signal_Activated 00cc 00bb | | Action Signal_Completion 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 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 00da | | Load_Top At_Offset_2 00d4 e013 | | Load 0x0,0x13 00d5 e227 | ' | Load 0x1,0x27 00d6 0096 | | Execute Package,Entry 00d7 a228 | ( | Store_Unchecked 0x1,0x28 00d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d9 0000 0000 | | .XXX[0x3] 00db 0000 | | 00dc 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00e0 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00e4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0103 | | .CONST 0x0103 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0005 | | .CONST 0x0005 ; Number of locals 00f3 INIT_00f0: 00f3 00e1 | | Load_Encached Boolean_Cache 00f4 e003 | | Load 0x0,0x3 00f5 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 02c7 | | Declare_Variable Any 00f8 00d8 | | Load_Top At_Offset_0 00f9 1c00 | | Execute_Immediate Run_Utility,0x0 00fa e003 | | Load 0x0,0x3 00fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fd e003 | | Load 0x0,0x3 00fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ff 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0100 02c7 | | Declare_Variable Any 0101 00d8 | | Load_Top At_Offset_0 0102 1c00 | | Execute_Immediate Run_Utility,0x0 0103 BODY_00f0: 0103 00e1 | | Load_Encached Boolean_Cache 0104 00db | | Load_Top At_Offset_3 0105 e5ff | | Load 0x2,-0x1 0106 e228 | ( | Load 0x1,0x28 0107 e014 | | Load 0x0,0x14 0108 e227 | ' | Load 0x1,0x27 0109 0096 | | Execute Package,Entry 010a c403 | | Store 0x2,0x3 010b c402 | | Store 0x2,0x2 010c 00db | | Load_Top At_Offset_3 010d 7041 |pA | Jump_Nonzero 0x14f 010e e003 | | Load 0x0,0x3 010f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0110 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0111 00d9 | | Load_Top At_Offset_1 0112 6041 |`A | Indirect_Literal Discrete,0x154,{0x00000000, 0x00004000} 0113 e015 | | Load 0x0,0x15 0114 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0115 e016 | | Load 0x0,0x16 0116 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0117 e017 | | Load 0x0,0x17 0118 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0119 4800 |H | Short_Literal 0x0 011a 4800 |H | Short_Literal 0x0 011b e016 | | Load 0x0,0x16 011c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 011d e003 | | Load 0x0,0x3 011e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0120 e5ff | | Load 0x2,-0x1 0121 8018 | | Call 0x0,0x18 0122 e003 | | Load 0x0,0x3 0123 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0124 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0125 c405 | | Store 0x2,0x5 0126 005a | Z | Store_Top Discrete,At_Offset_2 0127 00d9 | | Load_Top At_Offset_1 0128 6818 |h | Jump_Zero 0x141 0129 e019 | | Load 0x0,0x19 012a 180e | | Execute Package,Field_Execute,Field_Number 0xe 012b 4802 |H | Short_Literal 0x2 012c 0092 0819 | | Action Push_String_Extended,0x819 ; "Unable to compute closure for " 012e e5ff | | Load 0x2,-0x1 012f 8018 | | Call 0x0,0x18 0130 01cc | | Execute Vector,Catenate 0131 e01a | | Load 0x0,0x1a 0132 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0133 e019 | | Load 0x0,0x19 0134 180e | | Execute Package,Field_Execute,Field_Number 0xe 0135 4802 |H | Short_Literal 0x2 0136 e5ff | | Load 0x2,-0x1 0137 8018 | | Call 0x0,0x18 0138 e404 | | Load 0x2,0x4 0139 e003 | | Load 0x0,0x3 013a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013c e01a | | Load 0x0,0x1a 013d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013e 00da | | Load_Top At_Offset_2 013f c5fe | | Store 0x2,-0x2 0140 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0141 00da | | Load_Top At_Offset_2 0142 00d9 | | Load_Top At_Offset_1 0143 e016 | | Load 0x0,0x16 0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0145 e017 | | Load 0x0,0x17 0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0147 e01b | | Load 0x0,0x1b 0148 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0149 801c | | Call 0x0,0x1c 014a c405 | | Store 0x2,0x5 014b c403 | | Store 0x2,0x3 014c 00da | | Load_Top At_Offset_2 014d e5ff | | Load 0x2,-0x1 014e 823c | < | Call 0x1,0x3c 014f 00da | | Load_Top At_Offset_2 0150 c5fe | | Store 0x2,-0x2 0151 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0152 0000 0000 | | .XXX[0x2] 0154 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 801d | | Call 0x0,0x1d 0165 a218 | | Store_Unchecked 0x1,0x18 0166 00da | | Load_Top At_Offset_2 0167 a21a | | Store_Unchecked 0x1,0x1a 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0181 | | .CONST 0x0181 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e01e | | Load 0x0,0x1e 0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0175 02c7 | | Declare_Variable Any 0176 00d8 | | Load_Top At_Offset_0 0177 1c00 | | Execute_Immediate Run_Utility,0x0 0178 e009 | | Load 0x0,0x9 0179 e21a | | Load 0x1,0x1a 017a e5ff | | Load 0x2,-0x1 017b 8018 | | Call 0x0,0x18 017c 0092 081a | | Action Push_String_Extended,0x81a ; ".closure" 017e 01cc | | Execute Vector,Catenate 017f 801f | | Call 0x0,0x1f 0180 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0181 BODY_0170: 0181 822a | * | Call 0x1,0x2a 0182 e218 | | Load 0x1,0x18 0183 00d9 | | Load_Top At_Offset_1 0184 8020 | | Call 0x0,0x20 0185 c218 | | Store 0x1,0x18 0186 00d9 | | Load_Top At_Offset_1 0187 e218 | | Load 0x1,0x18 0188 8021 | ! | Call 0x0,0x21 0189 c402 | | Store 0x2,0x2 018a 4802 |H | Short_Literal 0x2 018b 00d9 | | Load_Top At_Offset_1 018c 00db | | Load_Top At_Offset_3 018d 8022 | " | Call 0x0,0x22 018e e218 | | Load 0x1,0x18 018f 8023 | # | Call 0x0,0x23 0190 c218 | | Store 0x1,0x18 0191 00d9 | | Load_Top At_Offset_1 0192 e218 | | Load 0x1,0x18 0193 8021 | ! | Call 0x0,0x21 0194 c402 | | Store 0x2,0x2 0195 4802 |H | Short_Literal 0x2 0196 00d9 | | Load_Top At_Offset_1 0197 00db | | Load_Top At_Offset_3 0198 8022 | " | Call 0x0,0x22 0199 e218 | | Load 0x1,0x18 019a 4800 |H | Short_Literal 0x0 019b 8024 | $ | Call 0x0,0x24 019c c218 | | Store 0x1,0x18 019d 00d9 | | Load_Top At_Offset_1 019e e218 | | Load 0x1,0x18 019f 8021 | ! | Call 0x0,0x21 01a0 c402 | | Store 0x2,0x2 01a1 4802 |H | Short_Literal 0x2 01a2 00d9 | | Load_Top At_Offset_1 01a3 00db | | Load_Top At_Offset_3 01a4 8022 | " | Call 0x0,0x22 01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4601 |F | Jump_Case 0x2 01ac 7801 |x | Jump 0x1ae ; case 0x0 01ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ae 00da | | Load_Top At_Offset_2 01af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b0 0125 | % | Execute Any,Set_Constraint 01b1 00da | | Load_Top At_Offset_2 01b2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b3 1c00 | | Execute_Immediate Run_Utility,0x0 01b4 00da | | Load_Top At_Offset_2 01b5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b6 0125 | % | Execute Any,Set_Constraint 01b7 00da | | Load_Top At_Offset_2 01b8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b9 1c00 | | Execute_Immediate Run_Utility,0x0 01ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01bb 0000 0000 | | .BLANK 0000[0x5] 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 e213 | | Load 0x1,0x13 01c4 00db | | Load_Top At_Offset_3 01c5 039c | | Declare_Variable Heap_Access,By_Allocation 01c6 00d8 | | Load_Top At_Offset_0 01c7 0217 | | Execute Heap_Access,All_Reference 01c8 1c00 | | Execute_Immediate Run_Utility,0x0 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e5fd | | Load 0x2,-0x3 01dc 821c | | Call 0x1,0x1c 01dd c5fd | | Store 0x2,-0x3 01de 00db | | Load_Top At_Offset_3 01df 821b | | Call 0x1,0x1b 01e0 a5fd | | Store_Unchecked 0x2,-0x3 01e1 00da | | Load_Top At_Offset_2 01e2 0217 | | Execute Heap_Access,All_Reference 01e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e4 e5fd | | Load 0x2,-0x3 01e5 0217 | | Execute Heap_Access,All_Reference 01e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e7 00da | | Load_Top At_Offset_2 01e8 0217 | | Execute Heap_Access,All_Reference 01e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ea e5fd | | Load 0x2,-0x3 01eb 0217 | | Execute Heap_Access,All_Reference 01ec 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ee 0000 0000 | | .XXX[0x2] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f4 | | .CONST 0x01f4 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 00e1 | | Load_Encached Boolean_Cache 01f4 BODY_01f0: 01f4 00db | | Load_Top At_Offset_3 01f5 021d | | Execute Heap_Access,Is_Null 01f6 e5fe | | Load 0x2,-0x2 01f7 021d | | Execute Heap_Access,Is_Null 01f8 0279 | y | Execute Discrete,And 01f9 6803 |h | Jump_Zero 0x1fd 01fa 4801 |H | Short_Literal 0x1 01fb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01fc 7827 |x' | Jump 0x224 01fd 00db | | Load_Top At_Offset_3 01fe 021d | | Execute Heap_Access,Is_Null 01ff e5fe | | Load 0x2,-0x2 0200 021d | | Execute Heap_Access,Is_Null 0201 0278 | x | Execute Discrete,Or 0202 6803 |h | Jump_Zero 0x206 0203 4800 |H | Short_Literal 0x0 0204 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0205 781e |x | Jump 0x224 0206 00db | | Load_Top At_Offset_3 0207 0217 | | Execute Heap_Access,All_Reference 0208 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0209 e002 | | Load 0x0,0x2 020a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 020b 180d | | Execute Package,Field_Execute,Field_Number 0xd 020c e5fe | | Load 0x2,-0x2 020d 0217 | | Execute Heap_Access,All_Reference 020e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 020f e002 | | Load 0x0,0x2 0210 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0211 180d | | Execute Package,Field_Execute,Field_Number 0xd 0212 01df | | Execute Vector,Equal 0213 680e |h | Jump_Zero 0x222 0214 00db | | Load_Top At_Offset_3 0215 0217 | | Execute Heap_Access,All_Reference 0216 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0217 e002 | | Load 0x0,0x2 0218 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0219 180d | | Execute Package,Field_Execute,Field_Number 0xd 021a e5fe | | Load 0x2,-0x2 021b 0217 | | Execute Heap_Access,All_Reference 021c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021d e002 | | Load 0x0,0x2 021e 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 021f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0220 01df | | Execute Vector,Equal 0221 7801 |x | Jump 0x223 0222 4800 |H | Short_Literal 0x0 0223 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0224 00d8 | | Load_Top At_Offset_0 0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0231 | 1 | .CONST 0x0231 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b e003 | | Load 0x0,0x3 022c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022e 02c7 | | Declare_Variable Any 022f 00d8 | | Load_Top At_Offset_0 0230 1c00 | | Execute_Immediate Run_Utility,0x0 0231 BODY_0228: 0231 00d8 | | Load_Top At_Offset_0 0232 0120 | | Execute Any,Is_Value 0233 6804 |h | Jump_Zero 0x238 0234 e003 | | Load 0x0,0x3 0235 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0237 7801 |x | Jump 0x239 0238 00d8 | | Load_Top At_Offset_0 0239 e5ff | | Load 0x2,-0x1 023a e003 | | Load 0x0,0x3 023b 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 023c 180f | | Execute Package,Field_Execute,Field_Number 0xf 023d c402 | | Store 0x2,0x2 023e 00d8 | | Load_Top At_Offset_0 023f 4401 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2 0244 e003 | | Load 0x0,0x3 0245 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0246 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0247 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e5fd | | Load 0x2,-0x3 024c 0120 | | Execute Any,Is_Value 024d 6804 |h | Jump_Zero 0x252 024e e003 | | Load 0x0,0x3 024f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0250 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0251 7801 |x | Jump 0x253 0252 e5fd | | Load 0x2,-0x3 0253 e5fe | | Load 0x2,-0x2 0254 e003 | | Load 0x0,0x3 0255 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0256 180f | | Execute Package,Field_Execute,Field_Number 0xf 0257 c5fd | | Store 0x2,-0x3 0258 00da | | Load_Top At_Offset_2 0259 e5fd | | Load 0x2,-0x3 025a e003 | | Load 0x0,0x3 025b 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 025d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 e5fe | | Load 0x2,-0x2 0265 012f | / | Execute Any,Equal 0266 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 00d8 | | Load_Top At_Offset_0 026d 0120 | | Execute Any,Is_Value 026e 6805 |h | Jump_Zero 0x274 026f e003 | | Load 0x0,0x3 0270 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0272 011e | | Execute Any,Convert 0273 7804 |x | Jump 0x278 0274 e003 | | Load 0x0,0x3 0275 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0276 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0277 0119 | | Execute Any,Check_In_Formal_Type 0278 8221 | ! | Call 0x1,0x21 0279 c5ff | | Store 0x2,-0x1 027a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 e5fd | | Load 0x2,-0x3 0284 00d8 | | Load_Top At_Offset_0 0285 0120 | | Execute Any,Is_Value 0286 6805 |h | Jump_Zero 0x28c 0287 e003 | | Load 0x0,0x3 0288 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028a 011e | | Execute Any,Convert 028b 7804 |x | Jump 0x290 028c e003 | | Load 0x0,0x3 028d 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 028e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028f 0119 | | Execute Any,Check_In_Formal_Type 0290 e5fe | | Load 0x2,-0x2 0291 e5ff | | Load 0x2,-0x1 0292 e003 | | Load 0x0,0x3 0293 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0295 0119 | | Execute Any,Check_In_Formal_Type 0296 8222 | " | Call 0x1,0x22 0297 c5fd | | Store 0x2,-0x3 0298 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00db | | Load_Top At_Offset_3 02a4 e003 | | Load 0x0,0x3 02a5 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a7 0119 | | Execute Any,Check_In_Formal_Type 02a8 00db | | Load_Top At_Offset_3 02a9 e003 | | Load 0x0,0x3 02aa 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ac 0119 | | Execute Any,Check_In_Formal_Type 02ad 8223 | # | Call 0x1,0x23 02ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02c5 | | .CONST 0x02c5 ; Address of begin 02b1 0317 | | .CONST 0x0317 ; Address of exception handler 02b2 0005 | | .CONST 0x0005 ; Number of locals 02b3 INIT_02b0: 02b3 e025 | % | Load 0x0,0x25 02b4 e227 | ' | Load 0x1,0x27 02b5 0098 | | Execute Package,Field_Read_Dynamic 02b6 0322 | " | Declare_Variable Record 02b7 e003 | | Load 0x0,0x3 02b8 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ba 02c7 | | Declare_Variable Any 02bb 00d8 | | Load_Top At_Offset_0 02bc 1c00 | | Execute_Immediate Run_Utility,0x0 02bd e003 | | Load 0x0,0x3 02be 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02c0 02c7 | | Declare_Variable Any 02c1 00d8 | | Load_Top At_Offset_0 02c2 1c00 | | Execute_Immediate Run_Utility,0x0 02c3 e009 | | Load 0x0,0x9 02c4 0007 | | Action Break_Optional 02c5 BODY_02b0: 02c5 00db | | Load_Top At_Offset_3 02c6 e228 | ( | Load 0x1,0x28 02c7 e026 | & | Load 0x0,0x26 02c8 e227 | ' | Load 0x1,0x27 02c9 0096 | | Execute Package,Entry 02ca 00d1 | | Pop_Control Pop_Count_1 02cb 00cf | | Action Mark_Auxiliary 02cc 7842 |xB | Jump 0x30f 02cd e402 | | Load 0x2,0x2 02ce e027 | ' | Load 0x0,0x27 02cf e227 | ' | Load 0x1,0x27 02d0 0096 | | Execute Package,Entry 02d1 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02d2 00d9 | | Load_Top At_Offset_1 02d3 e228 | ( | Load 0x1,0x28 02d4 e028 | ( | Load 0x0,0x28 02d5 e227 | ' | Load 0x1,0x27 02d6 0096 | | Execute Package,Entry 02d7 c403 | | Store 0x2,0x3 02d8 e219 | | Load 0x1,0x19 02d9 8029 | ) | Call 0x0,0x29 02da 00d1 | | Pop_Control Pop_Count_1 02db e21a | | Load 0x1,0x1a 02dc 802a | * | Call 0x0,0x2a 02dd e219 | | Load 0x1,0x19 02de 017d | } | Execute Record,Structure_Write 02df 00da | | Load_Top At_Offset_2 02e0 0120 | | Execute Any,Is_Value 02e1 6804 |h | Jump_Zero 0x2e6 02e2 e003 | | Load 0x0,0x3 02e3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02e4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02e5 7801 |x | Jump 0x2e7 02e6 00da | | Load_Top At_Offset_2 02e7 e016 | | Load 0x0,0x16 02e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e9 e017 | | Load 0x0,0x17 02ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02eb e403 | | Load 0x2,0x3 02ec e003 | | Load 0x0,0x3 02ed 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02ef c404 | | Store 0x2,0x4 02f0 00cf | | Action Mark_Auxiliary 02f1 780b |x | Jump 0x2fd 02f2 00db | | Load_Top At_Offset_3 02f3 e003 | | Load 0x0,0x3 02f4 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02f5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02f6 823b | ; | Call 0x1,0x3b 02f7 00db | | Load_Top At_Offset_3 02f8 e003 | | Load 0x0,0x3 02f9 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02fb c404 | | Store 0x2,0x4 02fc 00c9 | | Action Pop_Auxiliary_Loop 02fd 00db | | Load_Top At_Offset_3 02fe e003 | | Load 0x0,0x3 02ff 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0300 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0301 6ff0 |o | Jump_Zero 0x2f2 0302 00ce | | Action Pop_Auxiliary 0303 e218 | | Load 0x1,0x18 0304 e219 | | Load 0x1,0x19 0305 00db | | Load_Top At_Offset_3 0306 4804 |H | Short_Literal 0x4 0307 802b | + | Call 0x0,0x2b 0308 c218 | | Store 0x1,0x18 0309 e402 | | Load 0x2,0x2 030a e02c | , | Load 0x0,0x2c 030b e227 | ' | Load 0x1,0x27 030c 0096 | | Execute Package,Entry 030d 00d1 | | Pop_Control Pop_Count_1 030e 00c9 | | Action Pop_Auxiliary_Loop 030f e402 | | Load 0x2,0x2 0310 e02d | - | Load 0x0,0x2d 0311 e227 | ' | Load 0x1,0x27 0312 0096 | | Execute Package,Entry 0313 6fb9 |o | Jump_Zero 0x2cd 0314 00ce | | Action Pop_Auxiliary 0315 822e | . | Call 0x1,0x2e 0316 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0317 TRAP_02b0: 0317 0007 | | Action Break_Optional 0318 822e | . | Call 0x1,0x2e 0319 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031a 0000 0000 | | .BLANK 0000[0x6] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 e002 | | Load 0x0,0x2 0325 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0326 6814 |h | Jump_Zero 0x33b 0327 e019 | | Load 0x0,0x19 0328 180e | | Execute Package,Field_Execute,Field_Number 0xe 0329 4802 |H | Short_Literal 0x2 032a e5fe | | Load 0x2,-0x2 032b 0092 081b | | Action Push_String_Extended,0x81b ; " Status => " 032d 01cc | | Execute Vector,Catenate 032e e5ff | | Load 0x2,-0x1 032f e002 | | Load 0x0,0x2 0330 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0331 01cc | | Execute Vector,Catenate 0332 0092 081c | | Action Push_String_Extended,0x81c ; " " 0334 01cc | | Execute Vector,Catenate 0335 e5fd | | Load 0x2,-0x3 0336 01cc | | Execute Vector,Catenate 0337 e01a | | Load 0x0,0x1a 0338 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0339 e215 | | Load 0x1,0x15 033a 0257 | W | Execute Discrete,Raise 033b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033c 0000 0000 | | .BLANK 0000[0x4] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0353 | S | .CONST 0x0353 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0008 | | .CONST 0x0008 ; Number of locals 0343 INIT_0340: 0343 e02e | . | Load 0x0,0x2e 0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0345 e212 | | Load 0x1,0x12 0346 0322 | " | Declare_Variable Record 0347 00d8 | | Load_Top At_Offset_0 0348 1c00 | | Execute_Immediate Run_Utility,0x0 0349 e5ff | | Load 0x2,-0x1 034a e003 | | Load 0x0,0x3 034b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034c 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 034d 00e1 | | Load_Encached Boolean_Cache 034e e213 | | Load 0x1,0x13 034f 0007 | | Action Break_Optional 0350 e009 | | Load 0x0,0x9 0351 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 0353 BODY_0340: 0353 e21a | | Load 0x1,0x1a 0354 e5ff | | Load 0x2,-0x1 0355 801f | | Call 0x0,0x1f 0356 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0357 e229 | ) | Load 0x1,0x29 0358 e02f | / | Load 0x0,0x2f 0359 e21f | | Load 0x1,0x1f 035a 0096 | | Execute Package,Entry 035b 6808 |h | Jump_Zero 0x364 035c e21a | | Load 0x1,0x1a 035d e013 | | Load 0x0,0x13 035e e21f | | Load 0x1,0x1f 035f 0096 | | Execute Package,Entry 0360 a229 | ) | Store_Unchecked 0x1,0x29 0361 4800 |H | Short_Literal 0x0 0362 a405 | | Store_Unchecked 0x2,0x5 0363 7809 |x | Jump 0x36d 0364 00e1 | | Load_Encached Boolean_Cache 0365 00db | | Load_Top At_Offset_3 0366 00db | | Load_Top At_Offset_3 0367 e229 | ) | Load 0x1,0x29 0368 e014 | | Load 0x0,0x14 0369 e21f | | Load 0x1,0x1f 036a 0096 | | Execute Package,Entry 036b c406 | | Store 0x2,0x6 036c c405 | | Store 0x2,0x5 036d 00db | | Load_Top At_Offset_3 036e 680d |h | Jump_Zero 0x37c 036f 00da | | Load_Top At_Offset_2 0370 0217 | | Execute Heap_Access,All_Reference 0371 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0372 e5fe | | Load 0x2,-0x2 0373 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0374 00da | | Load_Top At_Offset_2 0375 0217 | | Execute Heap_Access,All_Reference 0376 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0377 e5fe | | Load 0x2,-0x2 0378 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0379 4800 |H | Short_Literal 0x0 037a a5fd | | Store_Unchecked 0x2,-0x3 037b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037c 8408 | | Call 0x2,0x8 037d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 e002 | | Load 0x0,0x2 0384 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0385 4800 |H | Short_Literal 0x0 0386 e5ff | | Load 0x2,-0x1 0387 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0388 e002 | | Load 0x0,0x2 0389 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 038a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038b c5fe | | Store 0x2,-0x2 038c e002 | | Load 0x0,0x2 038d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 038e 00db | | Load_Top At_Offset_3 038f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0390 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0391 0000 0000 | | .BLANK 0000[0x7] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a7 | | .CONST 0x03a7 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0006 | | .CONST 0x0006 ; Number of locals 039b INIT_0398: 039b e025 | % | Load 0x0,0x25 039c e21f | | Load 0x1,0x1f 039d 0098 | | Execute Package,Field_Read_Dynamic 039e 0322 | " | Declare_Variable Record 039f e213 | | Load 0x1,0x13 03a0 0007 | | Action Break_Optional 03a1 e009 | | Load 0x0,0x9 03a2 0007 | | Action Break_Optional 03a3 e02e | . | Load 0x0,0x2e 03a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a5 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 03a7 BODY_0398: 03a7 e402 | | Load 0x2,0x2 03a8 e229 | ) | Load 0x1,0x29 03a9 e026 | & | Load 0x0,0x26 03aa e21f | | Load 0x1,0x1f 03ab 0096 | | Execute Package,Entry 03ac 00d1 | | Pop_Control Pop_Count_1 03ad 00cf | | Action Mark_Auxiliary 03ae 7802 |x | Jump 0x3b1 03af 8406 | | Call 0x2,0x6 03b0 00c9 | | Action Pop_Auxiliary_Loop 03b1 e402 | | Load 0x2,0x2 03b2 e02d | - | Load 0x0,0x2d 03b3 e21f | | Load 0x1,0x1f 03b4 0096 | | Execute Package,Entry 03b5 6ff9 |o | Jump_Zero 0x3af 03b6 00ce | | Action Pop_Auxiliary 03b7 e229 | ) | Load 0x1,0x29 03b8 e030 | 0 | Load 0x0,0x30 03b9 e21f | | Load 0x1,0x1f 03ba 0096 | | Execute Package,Entry 03bb c229 | ) | Store 0x1,0x29 03bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03bd 0000 0000 | | .XXX[0x3] 03bf 0000 | | 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c5 | | .CONST 0x03c5 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0002 | | .CONST 0x0002 ; Number of locals 03c3 INIT_03c0: 03c3 e02e | . | Load 0x0,0x2e 03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c5 BODY_03c0: 03c5 e02e | . | Load 0x0,0x2e 03c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c7 e5fb | | Load 0x2,-0x5 03c8 e5ff | | Load 0x2,-0x1 03c9 822c | , | Call 0x1,0x2c 03ca 00d1 | | Pop_Control Pop_Count_1 03cb 0059 | Y | Store_Top Discrete,At_Offset_1 03cc 00db | | Load_Top At_Offset_3 03cd 0092 081d | | Action Push_String_Extended,0x81d ; "Open_DB" 03cf 00da | | Load_Top At_Offset_2 03d0 822b | + | Call 0x1,0x2b 03d1 e002 | | Load 0x0,0x2 03d2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03d3 e5fd | | Load 0x2,-0x3 03d4 0120 | | Execute Any,Is_Value 03d5 6803 |h | Jump_Zero 0x3d9 03d6 e002 | | Load 0x0,0x2 03d7 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 03d8 7801 |x | Jump 0x3da 03d9 e5fd | | Load 0x2,-0x3 03da e5fb | | Load 0x2,-0x5 03db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03dc e5fe | | Load 0x2,-0x2 03dd e002 | | Load 0x0,0x2 03de 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 03df 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e0 c5fd | | Store 0x2,-0x3 03e1 c5fc | | Store 0x2,-0x4 03e2 e5fe | | Load 0x2,-0x2 03e3 0092 081e | | Action Push_String_Extended,0x81e ; "Element_Operations.Open" 03e5 e5fc | | Load 0x2,-0x4 03e6 822b | + | Call 0x1,0x2b 03e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f8 | | .CONST 0x03f8 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0005 | | .CONST 0x0005 ; Number of locals 03eb INIT_03e8: 03eb e212 | | Load 0x1,0x12 03ec 0322 | " | Declare_Variable Record 03ed 00d8 | | Load_Top At_Offset_0 03ee 1c00 | | Execute_Immediate Run_Utility,0x0 03ef e002 | | Load 0x0,0x2 03f0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03f1 e002 | | Load 0x0,0x2 03f2 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 03f3 02c7 | | Declare_Variable Any 03f4 00d8 | | Load_Top At_Offset_0 03f5 1c00 | | Execute_Immediate Run_Utility,0x0 03f6 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 03f8 BODY_03e8: 03f8 00db | | Load_Top At_Offset_3 03f9 00db | | Load_Top At_Offset_3 03fa 00db | | Load_Top At_Offset_3 03fb 0120 | | Execute Any,Is_Value 03fc 6803 |h | Jump_Zero 0x400 03fd e002 | | Load 0x0,0x2 03fe 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 03ff 7801 |x | Jump 0x401 0400 00db | | Load_Top At_Offset_3 0401 e5fe | | Load 0x2,-0x2 0402 e5ff | | Load 0x2,-0x1 0403 822f | / | Call 0x1,0x2f 0404 c404 | | Store 0x2,0x4 0405 c403 | | Store 0x2,0x3 0406 00d1 | | Pop_Control Pop_Count_1 0407 00da | | Load_Top At_Offset_2 0408 0e12 | | Execute_Immediate Not_Equal,0x12 0409 6802 |h | Jump_Zero 0x40c 040a 8405 | | Call 0x2,0x5 040b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040c 4800 |H | Short_Literal 0x0 040d a5fd | | Store_Unchecked 0x2,-0x3 040e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040f 0000 | | .XXX[0x1] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041e | | .CONST 0x041e ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0004 | | .CONST 0x0004 ; Number of locals 0413 INIT_0410: 0413 e212 | | Load 0x1,0x12 0414 0322 | " | Declare_Variable Record 0415 00d8 | | Load_Top At_Offset_0 0416 1c00 | | Execute_Immediate Run_Utility,0x0 0417 e002 | | Load 0x0,0x2 0418 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0419 e002 | | Load 0x0,0x2 041a 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 041b 02c7 | | Declare_Variable Any 041c 00d8 | | Load_Top At_Offset_0 041d 1c00 | | Execute_Immediate Run_Utility,0x0 041e BODY_0410: 041e 00da | | Load_Top At_Offset_2 041f 00da | | Load_Top At_Offset_2 0420 00da | | Load_Top At_Offset_2 0421 0120 | | Execute Any,Is_Value 0422 6803 |h | Jump_Zero 0x426 0423 e002 | | Load 0x0,0x2 0424 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0425 7801 |x | Jump 0x427 0426 00da | | Load_Top At_Offset_2 0427 e5fe | | Load 0x2,-0x2 0428 e5ff | | Load 0x2,-0x1 0429 822f | / | Call 0x1,0x2f 042a c404 | | Store 0x2,0x4 042b 005b | [ | Store_Top Discrete,At_Offset_3 042c 00d1 | | Pop_Control Pop_Count_1 042d 00d9 | | Load_Top At_Offset_1 042e 0e12 | | Execute_Immediate Not_Equal,0x12 042f 6808 |h | Jump_Zero 0x438 0430 00da | | Load_Top At_Offset_2 0431 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0432 00d9 | | Load_Top At_Offset_1 0433 e002 | | Load 0x0,0x2 0434 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0435 180d | | Execute Package,Field_Execute,Field_Number 0xd 0436 a5fd | | Store_Unchecked 0x2,-0x3 0437 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0438 4fff |O | Short_Literal -0x1 0439 a5fd | | Store_Unchecked 0x2,-0x3 043a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 043b 0000 0000 | | .BLANK 0000[0x5] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 00da | | Load_Top At_Offset_2 0444 680c |h | Jump_Zero 0x451 0445 e019 | | Load 0x0,0x19 0446 180e | | Execute Package,Field_Execute,Field_Number 0xe 0447 4802 |H | Short_Literal 0x2 0448 e5fe | | Load 0x2,-0x2 0449 e5ff | | Load 0x2,-0x1 044a e003 | | Load 0x0,0x3 044b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 044c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 044d e01a | | Load 0x0,0x1a 044e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 044f e214 | | Load 0x1,0x14 0450 0257 | W | Execute Discrete,Raise 0451 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0452 0000 0000 | | .BLANK 0000[0x6] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c 6802 |h | Jump_Zero 0x45f 045d e214 | | Load 0x1,0x14 045e 0257 | W | Execute Discrete,Raise 045f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0466 | f | .CONST 0x0466 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 00da | | Load_Top At_Offset_2 0464 e003 | | Load 0x0,0x3 0465 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0466 BODY_0460: 0466 00d8 | | Load_Top At_Offset_0 0467 e216 | | Load 0x1,0x16 0468 027f | | Execute Discrete,Equal 0469 00d9 | | Load_Top At_Offset_1 046a e217 | | Load 0x1,0x17 046b 027f | | Execute Discrete,Equal 046c 0278 | x | Execute Discrete,Or 046d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046e 0000 0000 | | .XXX[0x2] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00db | | Load_Top At_Offset_3 0474 01dd | | Execute Vector,First 0475 00db | | Load_Top At_Offset_3 0476 01db | | Execute Vector,Length 0477 0273 | s | Execute Discrete,Plus 0478 0a01 | | Execute_Immediate Plus,0x1 0479 00d8 | | Load_Top At_Offset_0 047a 00e2 | | Load_Encached Integer_Cache 047b 0260 | ` | Execute Discrete,In_Type 047c 7001 |p | Jump_Nonzero 0x47e 047d 0801 | | Execute_Immediate Raise,0x1 047e e5fe | | Load 0x2,-0x2 047f 01dc | | Execute Vector,Last 0480 e5fe | | Load 0x2,-0x2 0481 01cf | | Execute Vector,Slice_Read 0482 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0483 0000 0000 | | .BLANK 0000[0x5] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048d | | .CONST 0x048d ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0002 | | .CONST 0x0002 ; Number of locals 048b INIT_0488: 048b 029f 069b | | Declare_Subprogram INIT_0698,For_Call 048d BODY_0488: 048d 00db | | Load_Top At_Offset_3 048e 0d00 | | Execute_Immediate Less,0x0 048f 6802 |h | Jump_Zero 0x492 0490 00ea | | Load_Encached Null_String_Cache 0491 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0492 8402 | | Call 0x2,0x2 0493 0831 | 1 | Execute_Immediate Raise,0x31 0494 0000 0000 | | .BLANK 0000[0x4] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04a7 | | .CONST 0x04a7 ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0005 | | .CONST 0x0005 ; Number of locals 049b INIT_0498: 049b e003 | | Load 0x0,0x3 049c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 049d 02ff | | Declare_Variable Variant_Record 049e 00d8 | | Load_Top At_Offset_0 049f 1c00 | | Execute_Immediate Run_Utility,0x0 04a0 e003 | | Load 0x0,0x3 04a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a3 e003 | | Load 0x0,0x3 04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a5 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call 04a7 BODY_0498: 04a7 e003 | | Load 0x0,0x3 04a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04aa e402 | | Load 0x2,0x2 04ab 602c |`, | Indirect_Literal Discrete,0x4d8,{0x00000000, 0x00004000} 04ac e015 | | Load 0x0,0x15 04ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04ae 4800 |H | Short_Literal 0x0 04af e016 | | Load 0x0,0x16 04b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04b1 e003 | | Load 0x0,0x3 04b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b4 e5ff | | Load 0x2,-0x1 04b5 e003 | | Load 0x0,0x3 04b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 04b8 00d1 | | Pop_Control Pop_Count_1 04b9 005b | [ | Store_Top Discrete,At_Offset_3 04ba e5ff | | Load 0x2,-0x1 04bb 00db | | Load_Top At_Offset_3 04bc 8232 | 2 | Call 0x1,0x32 04bd e5fe | | Load 0x2,-0x2 04be 01db | | Execute Vector,Length 04bf 700b |p | Jump_Nonzero 0x4cb 04c0 e21a | | Load 0x1,0x1a 04c1 e402 | | Load 0x2,0x2 04c2 8405 | | Call 0x2,0x5 04c3 e402 | | Load 0x2,0x2 04c4 e003 | | Load 0x0,0x3 04c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04c6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04c7 8031 | 1 | Call 0x0,0x31 04c8 e5fd | | Load 0x2,-0x3 04c9 017d | } | Execute Record,Structure_Write 04ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04cb e21a | | Load 0x1,0x1a 04cc e402 | | Load 0x2,0x2 04cd 8405 | | Call 0x2,0x5 04ce e402 | | Load 0x2,0x2 04cf e003 | | Load 0x0,0x3 04d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04d1 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04d2 e5fe | | Load 0x2,-0x2 04d3 8235 | 5 | Call 0x1,0x35 04d4 8031 | 1 | Call 0x0,0x31 04d5 e5fd | | Load 0x2,-0x3 04d6 017d | } | Execute Record,Structure_Write 04d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04dc 0000 0000 | | .BLANK 0000[0x4] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04eb | | .CONST 0x04eb ; Address of begin 04e1 050f | | .CONST 0x050f ; Address of exception handler 04e2 0003 | | .CONST 0x0003 ; Number of locals 04e3 INIT_04e0: 04e3 e003 | | Load 0x0,0x3 04e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04e5 02c7 | | Declare_Variable Any 04e6 00d8 | | Load_Top At_Offset_0 04e7 1c00 | | Execute_Immediate Run_Utility,0x0 04e8 e003 | | Load 0x0,0x3 04e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04eb BODY_04e0: 04eb e003 | | Load 0x0,0x3 04ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04ee 00da | | Load_Top At_Offset_2 04ef 0120 | | Execute Any,Is_Value 04f0 6803 |h | Jump_Zero 0x4f4 04f1 e003 | | Load 0x0,0x3 04f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f3 7801 |x | Jump 0x4f5 04f4 00da | | Load_Top At_Offset_2 04f5 67e2 |g | Indirect_Literal Discrete,0x4d8,{0x00000000, 0x00004000} 04f6 e015 | | Load 0x0,0x15 04f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04f8 e016 | | Load 0x0,0x16 04f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04fa e003 | | Load 0x0,0x3 04fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04fd e5ff | | Load 0x2,-0x1 04fe 0092 081f | | Action Push_String_Extended,0x81f ; "^'spec_view" 0500 01cc | | Execute Vector,Catenate 0501 e003 | | Load 0x0,0x3 0502 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0503 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0504 c402 | | Store 0x2,0x2 0505 0059 | Y | Store_Top Discrete,At_Offset_1 0506 00d8 | | Load_Top At_Offset_0 0507 7005 |p | Jump_Nonzero 0x50d 0508 00d9 | | Load_Top At_Offset_1 0509 e003 | | Load 0x0,0x3 050a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 050b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 050c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 050d 00ea | | Load_Encached Null_String_Cache 050e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 050f TRAP_04e0: 050f 0007 | | Action Break_Optional 0510 00ea | | Load_Encached Null_String_Cache 0511 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0512 0000 0000 | | .BLANK 0000[0x6] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051d | | .CONST 0x051d ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0002 | | .CONST 0x0002 ; Number of locals 051b INIT_0518: 051b e032 | 2 | Load 0x0,0x32 051c 0007 | | Action Break_Optional 051d BODY_0518: 051d e032 | 2 | Load 0x0,0x32 051e e5fe | | Load 0x2,-0x2 051f 8033 | 3 | Call 0x0,0x33 0520 0039 | 9 | Store_Top Access,At_Offset_1 0521 00cf | | Action Mark_Auxiliary 0522 780a |x | Jump 0x52d 0523 00d9 | | Load_Top At_Offset_1 0524 8034 | 4 | Call 0x0,0x34 0525 e5ff | | Load 0x2,-0x1 0526 800d | | Call 0x0,0xd 0527 6801 |h | Jump_Zero 0x529 0528 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0529 00d9 | | Load_Top At_Offset_1 052a 8035 | 5 | Call 0x0,0x35 052b 003a | : | Store_Top Access,At_Offset_2 052c 00c9 | | Action Pop_Auxiliary_Loop 052d 00d9 | | Load_Top At_Offset_1 052e 8036 | 6 | Call 0x0,0x36 052f 6ff3 |o | Jump_Zero 0x523 0530 00ce | | Action Pop_Auxiliary 0531 e5fe | | Load 0x2,-0x2 0532 e5ff | | Load 0x2,-0x1 0533 8037 | 7 | Call 0x0,0x37 0534 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0535 0000 0000 | | .XXX[0x3] 0537 0000 | | 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053d | = | .CONST 0x053d ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0002 | | .CONST 0x0002 ; Number of locals 053b INIT_0538: 053b e038 | 8 | Load 0x0,0x38 053c 0007 | | Action Break_Optional 053d BODY_0538: 053d e038 | 8 | Load 0x0,0x38 053e e5fe | | Load 0x2,-0x2 053f 8039 | 9 | Call 0x0,0x39 0540 0039 | 9 | Store_Top Access,At_Offset_1 0541 00cf | | Action Mark_Auxiliary 0542 780a |x | Jump 0x54d 0543 00d9 | | Load_Top At_Offset_1 0544 803a | : | Call 0x0,0x3a 0545 e5ff | | Load 0x2,-0x1 0546 803b | ; | Call 0x0,0x3b 0547 6801 |h | Jump_Zero 0x549 0548 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0549 00d9 | | Load_Top At_Offset_1 054a 803c | < | Call 0x0,0x3c 054b 003a | : | Store_Top Access,At_Offset_2 054c 00c9 | | Action Pop_Auxiliary_Loop 054d 00d9 | | Load_Top At_Offset_1 054e 803d | = | Call 0x0,0x3d 054f 6ff3 |o | Jump_Zero 0x543 0550 00ce | | Action Pop_Auxiliary 0551 e5fe | | Load 0x2,-0x2 0552 e5ff | | Load 0x2,-0x1 0553 803e | > | Call 0x0,0x3e 0554 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0555 0000 0000 | | .XXX[0x3] 0557 0000 | | 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 057b | { | .CONST 0x057b ; Address of begin 0559 05ca | | .CONST 0x05ca ; Address of exception handler 055a 000c | | .CONST 0x000c ; Number of locals 055b INIT_0558: 055b e003 | | Load 0x0,0x3 055c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 055d 02c7 | | Declare_Variable Any 055e 00d8 | | Load_Top At_Offset_0 055f 1c00 | | Execute_Immediate Run_Utility,0x0 0560 e003 | | Load 0x0,0x3 0561 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0562 02c7 | | Declare_Variable Any 0563 00d8 | | Load_Top At_Offset_0 0564 1c00 | | Execute_Immediate Run_Utility,0x0 0565 e003 | | Load 0x0,0x3 0566 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0567 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0568 02c7 | | Declare_Variable Any 0569 00d8 | | Load_Top At_Offset_0 056a 1c00 | | Execute_Immediate Run_Utility,0x0 056b e003 | | Load 0x0,0x3 056c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 056d 00e1 | | Load_Encached Boolean_Cache 056e 03e9 | | Declare_Variable Discrete,Duplicate 056f e009 | | Load 0x0,0x9 0570 0007 | | Action Break_Optional 0571 e5ff | | Load 0x2,-0x1 0572 e003 | | Load 0x0,0x3 0573 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0574 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0575 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 0577 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call 0579 029f 075b | [| Declare_Subprogram INIT_0758,For_Call 057b BODY_0558: 057b e003 | | Load 0x0,0x3 057c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057d e404 | | Load 0x2,0x4 057e 0120 | | Execute Any,Is_Value 057f 6804 |h | Jump_Zero 0x584 0580 e003 | | Load 0x0,0x3 0581 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0582 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0583 7801 |x | Jump 0x585 0584 e404 | | Load 0x2,0x4 0585 e5ff | | Load 0x2,-0x1 0586 e003 | | Load 0x0,0x3 0587 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0588 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0589 c404 | | Store 0x2,0x4 058a c405 | | Store 0x2,0x5 058b 00db | | Load_Top At_Offset_3 058c 4801 |H | Short_Literal 0x1 058d e405 | | Load 0x2,0x5 058e 8233 | 3 | Call 0x1,0x33 058f e404 | | Load 0x2,0x4 0590 e003 | | Load 0x0,0x3 0591 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0592 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0593 c402 | | Store 0x2,0x2 0594 e003 | | Load 0x0,0x3 0595 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0596 e403 | | Load 0x2,0x3 0597 0120 | | Execute Any,Is_Value 0598 6803 |h | Jump_Zero 0x59c 0599 e003 | | Load 0x0,0x3 059a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 059b 7801 |x | Jump 0x59d 059c e403 | | Load 0x2,0x3 059d e402 | | Load 0x2,0x2 059e e003 | | Load 0x0,0x3 059f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 05a0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05a1 c403 | | Store 0x2,0x3 05a2 c405 | | Store 0x2,0x5 05a3 e402 | | Load 0x2,0x2 05a4 e003 | | Load 0x0,0x3 05a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05a6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 05a7 4801 |H | Short_Literal 0x1 05a8 e405 | | Load 0x2,0x5 05a9 8233 | 3 | Call 0x1,0x33 05aa e003 | | Load 0x0,0x3 05ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ac 00e1 | | Load_Encached Boolean_Cache 05ad 601e |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00004000} 05ae e015 | | Load 0x0,0x15 05af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b0 e5ff | | Load 0x2,-0x1 05b1 e003 | | Load 0x0,0x3 05b2 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 05b3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 05b4 c407 | | Store 0x2,0x7 05b5 c405 | | Store 0x2,0x5 05b6 00db | | Load_Top At_Offset_3 05b7 4802 |H | Short_Literal 0x2 05b8 e405 | | Load 0x2,0x5 05b9 8233 | 3 | Call 0x1,0x33 05ba e403 | | Load 0x2,0x3 05bb 8234 | 4 | Call 0x1,0x34 05bc 6806 |h | Jump_Zero 0x5c3 05bd e407 | | Load 0x2,0x7 05be 6802 |h | Jump_Zero 0x5c1 05bf 840a | | Call 0x2,0xa 05c0 7803 |x | Jump 0x5c4 05c1 840b | | Call 0x2,0xb 05c2 7801 |x | Jump 0x5c4 05c3 840c | | Call 0x2,0xc 05c4 e219 | | Load 0x1,0x19 05c5 e21a | | Load 0x1,0x1a 05c6 e409 | | Load 0x2,0x9 05c7 801f | | Call 0x0,0x1f 05c8 8037 | 7 | Call 0x0,0x37 05c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05ca TRAP_0558: 05ca 0007 | | Action Break_Optional 05cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 05dc | | .CONST 0x05dc ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 e228 | ( | Load 0x1,0x28 05d4 4800 |H | Short_Literal 0x0 05d5 e5fe | | Load 0x2,-0x2 05d6 e5ff | | Load 0x2,-0x1 05d7 e03f | ? | Load 0x0,0x3f 05d8 e227 | ' | Load 0x1,0x27 05d9 0096 | | Execute Package,Entry 05da c228 | ( | Store 0x1,0x28 05db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05dc TRAP_05d0: 05dc e040 | @ | Load 0x0,0x40 05dd e227 | ' | Load 0x1,0x27 05de 0098 | | Execute Package,Field_Read_Dynamic 05df 010f | | Execute Exception,Equal 05e0 6801 |h | Jump_Zero 0x5e2 05e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05e2 0100 | | Execute Exception,Raise 05e3 0000 0000 | | .BLANK 0000[0x5] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05ed | | .CONST 0x05ed ; Address of begin 05e9 0636 | 6 | .CONST 0x0636 ; Address of exception handler 05ea 0002 | | .CONST 0x0002 ; Number of locals 05eb INIT_05e8: 05eb 029f 076b | k| Declare_Subprogram INIT_0768,For_Call 05ed BODY_05e8: 05ed e002 | | Load 0x0,0x2 05ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 05ef e403 | | Load 0x2,0x3 05f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f1 0120 | | Execute Any,Is_Value 05f2 6803 |h | Jump_Zero 0x5f6 05f3 e002 | | Load 0x0,0x2 05f4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 05f5 7802 |x | Jump 0x5f8 05f6 e403 | | Load 0x2,0x3 05f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f8 e015 | | Load 0x0,0x15 05f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05fa e5ff | | Load 0x2,-0x1 05fb 0092 0820 | | Action Push_String_Extended,0x820 ; "$$^.State.CMVC_Database" 05fd 01cc | | Execute Vector,Catenate 05fe e002 | | Load 0x0,0x2 05ff 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0600 180e | | Execute Package,Field_Execute,Field_Number 0xe 0601 e403 | | Load 0x2,0x3 0602 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0603 c402 | | Store 0x2,0x2 0604 00ea | | Load_Encached Null_String_Cache 0605 0092 0821 | !| Action Push_String_Extended,0x821 ; "Database_Operations.Open" 0607 e402 | | Load 0x2,0x2 0608 822b | + | Call 0x1,0x2b 0609 e002 | | Load 0x0,0x2 060a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 060b e403 | | Load 0x2,0x3 060c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 060d 0120 | | Execute Any,Is_Value 060e 6803 |h | Jump_Zero 0x612 060f e002 | | Load 0x0,0x2 0610 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0611 7802 |x | Jump 0x614 0612 e403 | | Load 0x2,0x3 0613 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0614 e403 | | Load 0x2,0x3 0615 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0616 e404 | | Load 0x2,0x4 0617 e002 | | Load 0x0,0x2 0618 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0619 1811 | | Execute Package,Field_Execute,Field_Number 0x11 061a e403 | | Load 0x2,0x3 061b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 061c c402 | | Store 0x2,0x2 061d e404 | | Load 0x2,0x4 061e 0092 0822 | "| Action Push_String_Extended,0x822 ; "Configuration_Operations.Open" 0620 e402 | | Load 0x2,0x2 0621 822b | + | Call 0x1,0x2b 0622 e403 | | Load 0x2,0x3 0623 e5fe | | Load 0x2,-0x2 0624 017d | } | Execute Record,Structure_Write 0625 e402 | | Load 0x2,0x2 0626 a5fd | | Store_Unchecked 0x2,-0x3 0627 e21a | | Load 0x1,0x1a 0628 821b | | Call 0x1,0x1b 0629 a406 | | Store_Unchecked 0x2,0x6 062a e403 | | Load 0x2,0x3 062b e406 | | Load 0x2,0x6 062c 0218 | | Execute Heap_Access,All_Write 062d e229 | ) | Load 0x1,0x29 062e 4800 |H | Short_Literal 0x0 062f e406 | | Load 0x2,0x6 0630 e407 | | Load 0x2,0x7 0631 e03f | ? | Load 0x0,0x3f 0632 e21f | | Load 0x1,0x1f 0633 0096 | | Execute Package,Entry 0634 c229 | ) | Store 0x1,0x29 0635 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0636 TRAP_05e8: 0636 e215 | | Load 0x1,0x15 0637 010f | | Execute Exception,Equal 0638 6802 |h | Jump_Zero 0x63b 0639 8602 | | Call 0x3,0x2 063a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 063b 0100 | | Execute Exception,Raise 063c 0000 0000 | | .BLANK 0000[0x4] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0661 | a | .CONST 0x0661 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 e402 | | Load 0x2,0x2 0644 e027 | ' | Load 0x0,0x27 0645 e21f | | Load 0x1,0x1f 0646 0096 | | Execute Package,Entry 0647 a404 | | Store_Unchecked 0x2,0x4 0648 e404 | | Load 0x2,0x4 0649 e229 | ) | Load 0x1,0x29 064a e028 | ( | Load 0x0,0x28 064b e21f | | Load 0x1,0x1f 064c 0096 | | Execute Package,Entry 064d a403 | | Store_Unchecked 0x2,0x3 064e e403 | | Load 0x2,0x3 064f 0219 | | Execute Heap_Access,All_Read 0650 e02e | . | Load 0x0,0x2e 0651 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0652 00d9 | | Load_Top At_Offset_1 0653 822d | - | Call 0x1,0x2d 0654 00d1 | | Pop_Control Pop_Count_1 0655 c405 | | Store 0x2,0x5 0656 00d1 | | Pop_Control Pop_Count_1 0657 00ea | | Load_Encached Null_String_Cache 0658 0092 0823 | #| Action Push_String_Extended,0x823 ; "Close_DB" 065a e405 | | Load 0x2,0x5 065b 822b | + | Call 0x1,0x2b 065c e402 | | Load 0x2,0x2 065d e02c | , | Load 0x0,0x2c 065e e21f | | Load 0x1,0x1f 065f 0096 | | Execute Package,Entry 0660 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0661 TRAP_0640: 0661 e041 | A | Load 0x0,0x41 0662 e21f | | Load 0x1,0x1f 0663 0098 | | Execute Package,Field_Read_Dynamic 0664 010f | | Execute Exception,Equal 0665 6805 |h | Jump_Zero 0x66b 0666 e402 | | Load 0x2,0x2 0667 e02c | , | Load 0x0,0x2c 0668 e21f | | Load 0x1,0x1f 0669 0096 | | Execute Package,Entry 066a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066b 0100 | | Execute Exception,Raise 066c 0000 0000 | | .BLANK 0000[0x4] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0678 | x | .CONST 0x0678 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0002 | | .CONST 0x0002 ; Number of locals 0673 INIT_0670: 0673 e002 | | Load 0x0,0x2 0674 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0675 02c7 | | Declare_Variable Any 0676 00d8 | | Load_Top At_Offset_0 0677 1c00 | | Execute_Immediate Run_Utility,0x0 0678 BODY_0670: 0678 e002 | | Load 0x0,0x2 0679 1b14 | | Execute Package,Field_Read,Field_Number 0x14 067a 00d9 | | Load_Top At_Offset_1 067b 0120 | | Execute Any,Is_Value 067c 6803 |h | Jump_Zero 0x680 067d e002 | | Load 0x0,0x2 067e 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 067f 7801 |x | Jump 0x681 0680 00d9 | | Load_Top At_Offset_1 0681 e402 | | Load 0x2,0x2 0682 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0683 e404 | | Load 0x2,0x4 0684 e002 | | Load 0x0,0x2 0685 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0686 180f | | Execute Package,Field_Execute,Field_Number 0xf 0687 c602 | | Store 0x3,0x2 0688 c403 | | Store 0x2,0x3 0689 e5fe | | Load 0x2,-0x2 068a 0092 0824 | $| Action Push_String_Extended,0x824 ; "Version_Set_Operations.Open" 068c e403 | | Load 0x2,0x3 068d 822b | + | Call 0x1,0x2b 068e 00d8 | | Load_Top At_Offset_0 068f e002 | | Load 0x0,0x2 0690 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0691 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0692 a5fd | | Store_Unchecked 0x2,-0x3 0693 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0694 0000 0000 | | .BLANK 0000[0x4] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069e | | .CONST 0x069e ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0002 | | .CONST 0x0002 ; Number of locals 069b INIT_0698: 069b e5ff | | Load 0x2,-0x1 069c 00e0 | | Load_Encached Standard_Cache 069d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 069e BODY_0698: 069e 4829 |H) | Short_Literal 0x29 069f 0092 0825 | %| Action Push_String_Extended,0x825 ; "'G(" 06a1 00da | | Load_Top At_Offset_2 06a2 01dd | | Execute Vector,First 06a3 0a01 | | Execute_Immediate Plus,0x1 06a4 00d8 | | Load_Top At_Offset_0 06a5 00e2 | | Load_Encached Integer_Cache 06a6 0260 | ` | Execute Discrete,In_Type 06a7 7001 |p | Jump_Nonzero 0x6a9 06a8 0801 | | Execute_Immediate Raise,0x1 06a9 00db | | Load_Top At_Offset_3 06aa 01dc | | Execute Vector,Last 06ab e602 | | Load 0x3,0x2 06ac 01cf | | Execute Vector,Slice_Read 06ad 01cc | | Execute Vector,Catenate 06ae 01cb | | Execute Vector,Append 06af 00cb | | Action Pop_Block_With_Result 06b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b1 0000 0000 | | .BLANK 0000[0x7] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06c2 | | .CONST 0x06c2 ; Address of begin 06b9 06e0 | | .CONST 0x06e0 ; Address of exception handler 06ba 0003 | | .CONST 0x0003 ; Number of locals 06bb INIT_06b8: 06bb e042 | B | Load 0x0,0x42 06bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06bd 02c7 | | Declare_Variable Any 06be 00d8 | | Load_Top At_Offset_0 06bf 1c00 | | Execute_Immediate Run_Utility,0x0 06c0 029f 0783 | | Declare_Subprogram INIT_0780,For_Call 06c2 BODY_06b8: 06c2 e003 | | Load 0x0,0x3 06c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c4 00da | | Load_Top At_Offset_2 06c5 0120 | | Execute Any,Is_Value 06c6 6803 |h | Jump_Zero 0x6ca 06c7 e042 | B | Load 0x0,0x42 06c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c9 7801 |x | Jump 0x6cb 06ca 00da | | Load_Top At_Offset_2 06cb 601c |` | Indirect_Literal Discrete,0x6e8,{0x00000000, 0x00004000} 06cc e015 | | Load 0x0,0x15 06cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06ce e7ff | | Load 0x3,-0x1 06cf e003 | | Load 0x0,0x3 06d0 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 06d1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06d2 c602 | | Store 0x3,0x2 06d3 c404 | | Store 0x2,0x4 06d4 e404 | | Load 0x2,0x4 06d5 6801 |h | Jump_Zero 0x6d7 06d6 8603 | | Call 0x3,0x3 06d7 4800 |H | Short_Literal 0x0 06d8 4803 |H | Short_Literal 0x3 06d9 4804 |H | Short_Literal 0x4 06da e602 | | Load 0x3,0x2 06db e043 | C | Load 0x0,0x43 06dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06dd e043 | C | Load 0x0,0x43 06de 181b | | Execute Package,Field_Execute,Field_Number 0x1b 06df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e0 TRAP_06b8: 06e0 e214 | | Load 0x1,0x14 06e1 010f | | Execute Exception,Equal 06e2 6803 |h | Jump_Zero 0x6e6 06e3 0092 0826 | &| Action Push_String_Extended,0x826 ; "*" 06e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e6 0100 | | Execute Exception,Raise 06e7 0000 | | .XXX[0x1] 06e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 06ec 0000 0000 | | .BLANK 0000[0x4] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06ff | | .CONST 0x06ff ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0006 | | .CONST 0x0006 ; Number of locals 06f3 INIT_06f0: 06f3 e402 | | Load 0x2,0x2 06f4 e003 | | Load 0x0,0x3 06f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06f6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 06f7 e409 | | Load 0x2,0x9 06f8 00d9 | | Load_Top At_Offset_1 06f9 8235 | 5 | Call 0x1,0x35 06fa 00e1 | | Load_Encached Boolean_Cache 06fb 029f 07b3 | | Declare_Subprogram INIT_07b0,For_Call 06fd 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call 06ff BODY_06f0: 06ff e21a | | Load 0x1,0x1a 0700 e602 | | Load 0x3,0x2 0701 8238 | 8 | Call 0x1,0x38 0702 e602 | | Load 0x3,0x2 0703 8044 | D | Call 0x0,0x44 0704 a408 | | Store_Unchecked 0x2,0x8 0705 e003 | | Load 0x0,0x3 0706 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0707 00e1 | | Load_Encached Boolean_Cache 0708 67df |g | Indirect_Literal Discrete,0x6e8,{0x00000000, 0x00004000} 0709 e015 | | Load 0x0,0x15 070a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 070b e402 | | Load 0x2,0x2 070c e003 | | Load 0x0,0x3 070d 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 070e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 070f c406 | | Store 0x2,0x6 0710 c405 | | Store 0x2,0x5 0711 e602 | | Load 0x3,0x2 0712 4803 |H | Short_Literal 0x3 0713 e405 | | Load 0x2,0x5 0714 8233 | 3 | Call 0x1,0x33 0715 e406 | | Load 0x2,0x6 0716 6802 |h | Jump_Zero 0x719 0717 8605 | | Call 0x3,0x5 0718 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0719 8606 | | Call 0x3,0x6 071a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071b 0000 0000 | | .BLANK 0000[0x5] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 072f | / | .CONST 0x072f ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0006 | | .CONST 0x0006 ; Number of locals 0723 INIT_0720: 0723 e402 | | Load 0x2,0x2 0724 e003 | | Load 0x0,0x3 0725 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0726 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0727 e409 | | Load 0x2,0x9 0728 00d9 | | Load_Top At_Offset_1 0729 8235 | 5 | Call 0x1,0x35 072a 00e1 | | Load_Encached Boolean_Cache 072b e045 | E | Load 0x0,0x45 072c 0322 | " | Declare_Variable Record 072d e046 | F | Load 0x0,0x46 072e 0322 | " | Declare_Variable Record 072f BODY_0720: 072f e21a | | Load 0x1,0x1a 0730 e602 | | Load 0x3,0x2 0731 8238 | 8 | Call 0x1,0x38 0732 e602 | | Load 0x3,0x2 0733 8044 | D | Call 0x0,0x44 0734 a408 | | Store_Unchecked 0x2,0x8 0735 00d9 | | Load_Top At_Offset_1 0736 e602 | | Load 0x3,0x2 0737 e409 | | Load 0x2,0x9 0738 8237 | 7 | Call 0x1,0x37 0739 00d1 | | Pop_Control Pop_Count_1 073a 00e1 | | Load_Encached Boolean_Cache 073b 00d9 | | Load_Top At_Offset_1 073c e408 | | Load 0x2,0x8 073d e218 | | Load 0x1,0x18 073e 4802 |H | Short_Literal 0x2 073f 8047 | G | Call 0x0,0x47 0740 00d1 | | Pop_Control Pop_Count_1 0741 005b | [ | Store_Top Discrete,At_Offset_3 0742 00da | | Load_Top At_Offset_2 0743 7004 |p | Jump_Nonzero 0x748 0744 e21a | | Load 0x1,0x1a 0745 8048 | H | Call 0x0,0x48 0746 00d9 | | Load_Top At_Offset_1 0747 017d | } | Execute Record,Structure_Write 0748 00d8 | | Load_Top At_Offset_0 0749 00da | | Load_Top At_Offset_2 074a 823a | : | Call 0x1,0x3a 074b 00d1 | | Pop_Control Pop_Count_1 074c e218 | | Load 0x1,0x18 074d 00d9 | | Load_Top At_Offset_1 074e e408 | | Load 0x2,0x8 074f 4802 |H | Short_Literal 0x2 0750 8049 | I | Call 0x0,0x49 0751 c218 | | Store 0x1,0x18 0752 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0753 0000 0000 | | .BLANK 0000[0x5] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075d | ] | .CONST 0x075d ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0002 | | .CONST 0x0002 ; Number of locals 075b INIT_0758: 075b e045 | E | Load 0x0,0x45 075c 0322 | " | Declare_Variable Record 075d BODY_0758: 075d 00d8 | | Load_Top At_Offset_0 075e 00ea | | Load_Encached Null_String_Cache 075f e409 | | Load 0x2,0x9 0760 8237 | 7 | Call 0x1,0x37 0761 00d1 | | Pop_Control Pop_Count_1 0762 e218 | | Load 0x1,0x18 0763 00d9 | | Load_Top At_Offset_1 0764 4803 |H | Short_Literal 0x3 0765 804a | J | Call 0x0,0x4a 0766 c218 | | Store 0x1,0x18 0767 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076b | k | .CONST 0x076b ; Address of begin 0769 0777 | w | .CONST 0x0777 ; Address of exception handler 076a 0001 | | .CONST 0x0001 ; Number of locals 076b BODY_0768: 076b INIT_0768: 076b e402 | | Load 0x2,0x2 076c a5fd | | Store_Unchecked 0x2,-0x3 076d e002 | | Load 0x0,0x2 076e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 076f 4800 |H | Short_Literal 0x0 0770 e403 | | Load 0x2,0x3 0771 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0772 e002 | | Load 0x0,0x2 0773 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0774 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0775 c402 | | Store 0x2,0x2 0776 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0777 TRAP_0768: 0777 0007 | | Action Break_Optional 0778 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0779 0000 0000 | | .BLANK 0000[0x7] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0789 | | .CONST 0x0789 ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0002 | | .CONST 0x0002 ; Number of locals 0783 INIT_0780: 0783 e003 | | Load 0x0,0x3 0784 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0785 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0786 02c7 | | Declare_Variable Any 0787 00d8 | | Load_Top At_Offset_0 0788 1c00 | | Execute_Immediate Run_Utility,0x0 0789 BODY_0780: 0789 e003 | | Load 0x0,0x3 078a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 078b 00d9 | | Load_Top At_Offset_1 078c 0120 | | Execute Any,Is_Value 078d 6804 |h | Jump_Zero 0x792 078e e003 | | Load 0x0,0x3 078f 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0790 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0791 7801 |x | Jump 0x793 0792 00d9 | | Load_Top At_Offset_1 0793 6014 |` | Indirect_Literal Discrete,0x7a8,{0x00000000, 0x00004000} 0794 e015 | | Load 0x0,0x15 0795 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0796 e7ff | | Load 0x3,-0x1 0797 e003 | | Load 0x0,0x3 0798 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0799 1811 | | Execute Package,Field_Execute,Field_Number 0x11 079a c802 | | Store 0x4,0x2 079b c404 | | Store 0x2,0x4 079c e5ff | | Load 0x2,-0x1 079d 4809 |H | Short_Literal 0x9 079e e404 | | Load 0x2,0x4 079f 8233 | 3 | Call 0x1,0x33 07a0 00d8 | | Load_Top At_Offset_0 07a1 e003 | | Load 0x0,0x3 07a2 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 07a3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07a4 c602 | | Store 0x3,0x2 07a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07a6 0000 0000 | | .XXX[0x2] 07a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 07ac 0000 0000 | | .BLANK 0000[0x4] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07b5 | | .CONST 0x07b5 ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0002 | | .CONST 0x0002 ; Number of locals 07b3 INIT_07b0: 07b3 e005 | | Load 0x0,0x5 07b4 0322 | " | Declare_Variable Record 07b5 BODY_07b0: 07b5 00e1 | | Load_Encached Boolean_Cache 07b6 00d9 | | Load_Top At_Offset_1 07b7 e408 | | Load 0x2,0x8 07b8 e218 | | Load 0x1,0x18 07b9 4800 |H | Short_Literal 0x0 07ba 804b | K | Call 0x0,0x4b 07bb 00d1 | | Pop_Control Pop_Count_1 07bc c604 | | Store 0x3,0x4 07bd e604 | | Load 0x3,0x4 07be 7004 |p | Jump_Nonzero 0x7c3 07bf e21a | | Load 0x1,0x1a 07c0 802a | * | Call 0x0,0x2a 07c1 00d9 | | Load_Top At_Offset_1 07c2 017d | } | Execute Record,Structure_Write 07c3 00d8 | | Load_Top At_Offset_0 07c4 e21a | | Load 0x1,0x1a 07c5 e603 | | Load 0x3,0x3 07c6 801f | | Call 0x0,0x1f 07c7 8239 | 9 | Call 0x1,0x39 07c8 00d1 | | Pop_Control Pop_Count_1 07c9 e218 | | Load 0x1,0x18 07ca 00d9 | | Load_Top At_Offset_1 07cb e408 | | Load 0x2,0x8 07cc 4800 |H | Short_Literal 0x0 07cd 804c | L | Call 0x0,0x4c 07ce c218 | | Store 0x1,0x18 07cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d7 | | .CONST 0x07d7 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0004 | | .CONST 0x0004 ; Number of locals 07d3 INIT_07d0: 07d3 00e2 | | Load_Encached Integer_Cache 07d4 00e1 | | Load_Encached Boolean_Cache 07d5 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call 07d7 BODY_07d0: 07d7 00e1 | | Load_Encached Boolean_Cache 07d8 e603 | | Load 0x3,0x3 07d9 e602 | | Load 0x3,0x2 07da 8230 | 0 | Call 0x1,0x30 07db 005a | Z | Store_Top Discrete,At_Offset_2 07dc 8804 | | Call 0x4,0x4 07dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07de 0000 0000 | | .XXX[0x2] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e7 | | .CONST 0x07e7 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0003 | | .CONST 0x0003 ; Number of locals 07e3 INIT_07e0: 07e3 e045 | E | Load 0x0,0x45 07e4 0322 | " | Declare_Variable Record 07e5 e046 | F | Load 0x0,0x46 07e6 0322 | " | Declare_Variable Record 07e7 BODY_07e0: 07e7 e803 | | Load 0x4,0x3 07e8 6806 |h | Jump_Zero 0x7ef 07e9 00d9 | | Load_Top At_Offset_1 07ea e602 | | Load 0x3,0x2 07eb e409 | | Load 0x2,0x9 07ec 8237 | 7 | Call 0x1,0x37 07ed 00d1 | | Pop_Control Pop_Count_1 07ee 780f |x | Jump 0x7fe 07ef 00e2 | | Load_Encached Integer_Cache 07f0 e603 | | Load 0x3,0x3 07f1 e602 | | Load 0x3,0x2 07f2 8231 | 1 | Call 0x1,0x31 07f3 c802 | | Store 0x4,0x2 07f4 e21a | | Load 0x1,0x1a 07f5 0092 0827 | '| Action Push_String_Extended,0x827 ; "=" 07f7 e603 | | Load 0x3,0x3 07f8 e802 | | Load 0x4,0x2 07f9 8236 | 6 | Call 0x1,0x36 07fa 01cc | | Execute Vector,Catenate 07fb 8031 | 1 | Call 0x0,0x31 07fc 00da | | Load_Top At_Offset_2 07fd 017d | } | Execute Record,Structure_Write 07fe 00e1 | | Load_Encached Boolean_Cache 07ff 00d9 | | Load_Top At_Offset_1 0800 e408 | | Load 0x2,0x8 0801 e218 | | Load 0x1,0x18 0802 4801 |H | Short_Literal 0x1 0803 8047 | G | Call 0x0,0x47 0804 00d1 | | Pop_Control Pop_Count_1 0805 c604 | | Store 0x3,0x4 0806 e604 | | Load 0x3,0x4 0807 7004 |p | Jump_Nonzero 0x80c 0808 e21a | | Load 0x1,0x1a 0809 8048 | H | Call 0x0,0x48 080a 00d9 | | Load_Top At_Offset_1 080b 017d | } | Execute Record,Structure_Write 080c 00d8 | | Load_Top At_Offset_0 080d 00da | | Load_Top At_Offset_2 080e 823a | : | Call 0x1,0x3a 080f 00d1 | | Pop_Control Pop_Count_1 0810 e218 | | Load 0x1,0x18 0811 00d9 | | Load_Top At_Offset_1 0812 e408 | | Load 0x2,0x8 0813 4801 |H | Short_Literal 0x1 0814 8049 | I | Call 0x0,0x49 0815 c218 | | Store 0x1,0x18 0816 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0817 ; -------------------------------------------------------------------------------------- 0817 ; STRING TABLE 0817 ; -------------------------------------------------------------------------------------- 0817 0024 | $ | .STRTAB 0x0024->0x0829 ; "SUBSYSTEM" 0818 002b | + | .STRTAB 0x002b->0x082d ; "SYSTEM_SUBSYSTEM" 0819 0039 | 9 | .STRTAB 0x0039->0x0835 ; "Unable to compute closure for " 081a 0055 | U | .STRTAB 0x0055->0x0844 ; ".closure" 081b 005b | [ | .STRTAB 0x005b->0x0848 ; " Status => " 081c 0064 | d | .STRTAB 0x0064->0x084e ; " " 081d 0063 | c | .STRTAB 0x0063->0x084e ; "Open_DB" 081e 0068 | h | .STRTAB 0x0068->0x0852 ; "Element_Operations.Open" 081f 007d | } | .STRTAB 0x007d->0x085d ; "^'spec_view" 0820 0086 | | .STRTAB 0x0086->0x0863 ; "$$^.State.CMVC_Database" 0821 009b | | .STRTAB 0x009b->0x086e ; "Database_Operations.Open" 0822 00b1 | | .STRTAB 0x00b1->0x087a ; "Configuration_Operations.Open" 0823 00cc | | .STRTAB 0x00cc->0x0889 ; "Close_DB" 0824 00d2 | | .STRTAB 0x00d2->0x088d ; "Version_Set_Operations.Open" 0825 00eb | | .STRTAB 0x00eb->0x089a ; "'G(" 0826 00ec | | .STRTAB 0x00ec->0x089c ; "*" 0827 00eb | | .STRTAB 0x00eb->0x089c ; "=" 0828 00ea | | .STREND 0x00ea->0x089d 0829 5355 4253 |SUBS| .STRTAB_STRINGS 089d 0000 0000 | | .XXX[0x3] 089f 0000 | | 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; Debug Table 08a0 ; -------------------------------------------------------------------------------------- 08a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x6000,0x0000,0x0001,0x0000 08a6 0000 0000 | | .BLANK 0000[0x15a]