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