|
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: 9216 (0x2400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 1170 | p | .CONST 0x1170 ; 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 800a | | .CONST 0x800a ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00f4 | | .CONST 0x00f4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0039 | 9 | .CONST 0x0039 ; Number of locals 000b INIT_0008: 000b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 000d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 000f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0011 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0013 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0015 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0017 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 0019 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 001b 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 001d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 001f 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0021 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 0023 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 0025 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 0027 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 0029 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 002b 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 002d 029a 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Visible,Unelaborated 002f 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated 0031 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated 0033 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated 0035 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated 0037 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated 0039 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated 003b 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated 003d 029a 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call,Visible,Unelaborated 003f 029a 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call,Visible,Unelaborated 0041 00bf | | Action Accept_Activation 0042 0092 0f38 | 8| Action Push_String_Extended,0xf38 ; "Rcf." 0044 0092 0f39 | 9| Action Push_String_Extended,0xf39 ; "<error>" 0046 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 0048 4800 |H | Short_Literal 0x0 0049 e001 | | Load 0x0,0x1 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b 038e | | Declare_Type Package,Defined 004c 0387 | | Declare_Variable Package 004d 4800 |H | Short_Literal 0x0 004e e002 | | Load 0x0,0x2 004f 02a0 | | Declare_Subprogram Null_Subprogram 0050 038e | | Declare_Type Package,Defined 0051 0387 | | Declare_Variable Package 0052 4800 |H | Short_Literal 0x0 0053 e003 | | Load 0x0,0x3 0054 02a0 | | Declare_Subprogram Null_Subprogram 0055 038e | | Declare_Type Package,Defined 0056 0387 | | Declare_Variable Package 0057 4800 |H | Short_Literal 0x0 0058 e004 | | Load 0x0,0x4 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a 038e | | Declare_Type Package,Defined 005b 0387 | | Declare_Variable Package 005c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 005d 00c7 | | Action Elaborate_Subprogram 005e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 005f 00c7 | | Action Elaborate_Subprogram 0060 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0061 00c7 | | Action Elaborate_Subprogram 0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0063 00c7 | | Action Elaborate_Subprogram 0064 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0065 00c7 | | Action Elaborate_Subprogram 0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0067 00c7 | | Action Elaborate_Subprogram 0068 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0069 00c7 | | Action Elaborate_Subprogram 006a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 006b 00c7 | | Action Elaborate_Subprogram 006c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 006d 00c7 | | Action Elaborate_Subprogram 006e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 006f 00c7 | | Action Elaborate_Subprogram 0070 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0071 00c7 | | Action Elaborate_Subprogram 0072 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0073 00c7 | | Action Elaborate_Subprogram 0074 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0075 00c7 | | Action Elaborate_Subprogram 0076 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0077 00c7 | | Action Elaborate_Subprogram 0078 029d 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call 007a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 007f 00c7 | | Action Elaborate_Subprogram 0080 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0081 00c7 | | Action Elaborate_Subprogram 0082 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0083 00c7 | | Action Elaborate_Subprogram 0084 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0085 00c7 | | Action Elaborate_Subprogram 0086 029d 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call 0088 029d 0a43 | C| Declare_Subprogram INIT_0a40,For_Outer_Call 008a 029d 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call 008c 029d 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call 008e 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call 0090 029d 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call 0092 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0093 00c7 | | Action Elaborate_Subprogram 0094 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0095 00c7 | | Action Elaborate_Subprogram 0096 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0097 00c7 | | Action Elaborate_Subprogram 0098 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0099 00c7 | | Action Elaborate_Subprogram 009a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 009b 00c7 | | Action Elaborate_Subprogram 009c 029d 0b43 | C| Declare_Subprogram INIT_0b40,For_Outer_Call 009e 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call 00a0 029d 0bb3 | | Declare_Subprogram INIT_0bb0,For_Outer_Call 00a2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a5 00c7 | | Action Elaborate_Subprogram 00a6 029d 0beb | | Declare_Subprogram INIT_0be8,For_Outer_Call 00a8 e005 | | Load 0x0,0x5 00a9 e006 | | Load 0x0,0x6 00aa e007 | | Load 0x0,0x7 00ab e008 | | Load 0x0,0x8 00ac e009 | | Load 0x0,0x9 00ad e00a | | Load 0x0,0xa 00ae e00b | | Load 0x0,0xb 00af e00c | | Load 0x0,0xc 00b0 e00d | | Load 0x0,0xd 00b1 e00e | | Load 0x0,0xe 00b2 e00f | | Load 0x0,0xf 00b3 e010 | | Load 0x0,0x10 00b4 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00b5 e011 | | Load 0x0,0x11 00b6 e012 | | Load 0x0,0x12 00b7 e013 | | Load 0x0,0x13 00b8 e014 | | Load 0x0,0x14 00b9 e015 | | Load 0x0,0x15 00ba e016 | | Load 0x0,0x16 00bb e017 | | Load 0x0,0x17 00bc e018 | | Load 0x0,0x18 00bd e019 | | Load 0x0,0x19 00be 4816 |H | Short_Literal 0x16 00bf e22b | + | Load 0x1,0x2b 00c0 020e | | Execute Module,Augment_Imports 00c1 e22b | + | Load 0x1,0x2b 00c2 020f | | Execute Module,Activate 00c3 e006 | | Load 0x0,0x6 00c4 e005 | | Load 0x0,0x5 00c5 e007 | | Load 0x0,0x7 00c6 e00b | | Load 0x0,0xb 00c7 e00c | | Load 0x0,0xc 00c8 e00d | | Load 0x0,0xd 00c9 e00a | | Load 0x0,0xa 00ca e01a | | Load 0x0,0x1a 00cb e00f | | Load 0x0,0xf 00cc e014 | | Load 0x0,0x14 00cd 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 00ce 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00cf e01b | | Load 0x0,0x1b 00d0 e015 | | Load 0x0,0x15 00d1 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 00d2 e01c | | Load 0x0,0x1c 00d3 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00d4 e018 | | Load 0x0,0x18 00d5 4812 |H | Short_Literal 0x12 00d6 e22c | , | Load 0x1,0x2c 00d7 020e | | Execute Module,Augment_Imports 00d8 e22c | , | Load 0x1,0x2c 00d9 020f | | Execute Module,Activate 00da e007 | | Load 0x0,0x7 00db e00d | | Load 0x0,0xd 00dc e00f | | Load 0x0,0xf 00dd e005 | | Load 0x0,0x5 00de e013 | | Load 0x0,0x13 00df e01d | | Load 0x0,0x1d 00e0 e00c | | Load 0x0,0xc 00e1 e018 | | Load 0x0,0x18 00e2 e006 | | Load 0x0,0x6 00e3 e014 | | Load 0x0,0x14 00e4 480a |H | Short_Literal 0xa 00e5 e22d | - | Load 0x1,0x2d 00e6 020e | | Execute Module,Augment_Imports 00e7 e22d | - | Load 0x1,0x2d 00e8 020f | | Execute Module,Activate 00e9 e007 | | Load 0x0,0x7 00ea e005 | | Load 0x0,0x5 00eb e00d | | Load 0x0,0xd 00ec e006 | | Load 0x0,0x6 00ed e00f | | Load 0x0,0xf 00ee e013 | | Load 0x0,0x13 00ef 4806 |H | Short_Literal 0x6 00f0 e22e | . | Load 0x1,0x2e 00f1 020e | | Execute Module,Augment_Imports 00f2 e22e | . | Load 0x1,0x2e 00f3 020f | | Execute Module,Activate 00f4 BODY_0008: 00f4 00bc | | Action Signal_Activated 00f5 00bb | | Action Signal_Completion 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0107 | | .CONST 0x0107 ; Address of begin 00f9 014a | J | .CONST 0x014a ; Address of exception handler 00fa 0004 | | .CONST 0x0004 ; Number of locals 00fb INIT_00f8: 00fb 0092 0f3a | :| Action Push_String_Extended,0xf3a ; "Create_Secondary" 00fd e005 | | Load 0x0,0x5 00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0100 e006 | | Load 0x0,0x6 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 02c7 | | Declare_Variable Any 0103 e5fa | | Load 0x2,-0x6 0104 e006 | | Load 0x0,0x6 0105 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0106 a404 | | Store_Unchecked 0x2,0x4 0107 BODY_00f8: 0107 00d8 | | Load_Top At_Offset_0 0108 e228 | ( | Load 0x1,0x28 0109 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; "Primary_Unit" 010b e5ff | | Load 0x2,-0x1 010c e00b | | Load 0x0,0xb 010d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 010e 01cc | | Execute Vector,Catenate 010f 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "command" 0111 01cc | | Execute Vector,Catenate 0112 e5fe | | Load 0x2,-0x2 0113 e00b | | Load 0x0,0xb 0114 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0115 01cc | | Execute Vector,Catenate 0116 0092 0f3d | =| Action Push_String_Extended,0xf3d ; "secondary_text" 0118 01cc | | Execute Vector,Catenate 0119 e5fd | | Load 0x2,-0x3 011a e00b | | Load 0x0,0xb 011b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 011c 01cc | | Execute Vector,Catenate 011d 0092 0f3e | >| Action Push_String_Extended,0xf3e ; "Remote_Name" 011f 01cc | | Execute Vector,Catenate 0120 e5fc | | Load 0x2,-0x4 0121 e00b | | Load 0x0,0xb 0122 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0123 01cc | | Execute Vector,Catenate 0124 0092 0f3f | ?| Action Push_String_Extended,0xf3f ; "Process_primary => " 0126 01cc | | Execute Vector,Catenate 0127 e5fb | | Load 0x2,-0x5 0128 00e1 | | Load_Encached Boolean_Cache 0129 011c | | Execute Any,Convert_Unchecked 012a 1c01 | | Execute_Immediate Run_Utility,0x1 012b 01cc | | Execute Vector,Catenate 012c 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 012e 01cc | | Execute Vector,Catenate 012f e5fa | | Load 0x2,-0x6 0130 e00b | | Load 0x0,0xb 0131 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0132 01cc | | Execute Vector,Catenate 0133 e402 | | Load 0x2,0x2 0134 e00b | | Load 0x0,0xb 0135 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0136 00d8 | | Load_Top At_Offset_0 0137 e00c | | Load 0x0,0xc 0138 180f | | Execute Package,Field_Execute,Field_Number 0xf 0139 00d9 | | Load_Top At_Offset_1 013a 00d9 | | Load_Top At_Offset_1 013b e5fb | | Load 0x2,-0x5 013c e5fc | | Load 0x2,-0x4 013d e5fd | | Load 0x2,-0x3 013e e5fe | | Load 0x2,-0x2 013f e5ff | | Load 0x2,-0x1 0140 e22d | - | Load 0x1,0x2d 0141 180d | | Execute Package,Field_Execute,Field_Number 0xd 0142 005a | Z | Store_Top Discrete,At_Offset_2 0143 00d8 | | Load_Top At_Offset_0 0144 e228 | ( | Load 0x1,0x28 0145 e402 | | Load 0x2,0x2 0146 e403 | | Load 0x2,0x3 0147 e00b | | Load 0x0,0xb 0148 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0149 4507 |E | Exit_Suprogram New_Top_Offset 0x7 014a TRAP_00f8: 014a e005 | | Load 0x0,0x5 014b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 014c 010f | | Execute Exception,Equal 014d 6807 |h | Jump_Zero 0x155 014e 00d9 | | Load_Top At_Offset_1 014f e228 | ( | Load 0x1,0x28 0150 e402 | | Load 0x2,0x2 0151 e403 | | Load 0x2,0x3 0152 e00b | | Load 0x0,0xb 0153 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0154 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0155 4884 |H | Short_Literal 0x84 0156 010f | | Execute Exception,Equal 0157 6807 |h | Jump_Zero 0x15f 0158 00d9 | | Load_Top At_Offset_1 0159 e228 | ( | Load 0x1,0x28 015a e402 | | Load 0x2,0x2 015b e403 | | Load 0x2,0x3 015c e00b | | Load 0x0,0xb 015d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 015e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 015f 00d9 | | Load_Top At_Offset_1 0160 e228 | ( | Load 0x1,0x28 0161 e402 | | Load 0x2,0x2 0162 e403 | | Load 0x2,0x3 0163 e00b | | Load 0x0,0xb 0164 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0165 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0177 | w | .CONST 0x0177 ; Address of begin 0169 0199 | | .CONST 0x0199 ; Address of exception handler 016a 0004 | | .CONST 0x0004 ; Number of locals 016b INIT_0168: 016b 0092 0f41 | A| Action Push_String_Extended,0xf41 ; "Remove_Secondary" 016d e005 | | Load 0x0,0x5 016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0170 e006 | | Load 0x0,0x6 0171 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0172 02c7 | | Declare_Variable Any 0173 e5fe | | Load 0x2,-0x2 0174 e006 | | Load 0x0,0x6 0175 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0176 a404 | | Store_Unchecked 0x2,0x4 0177 BODY_0168: 0177 00d8 | | Load_Top At_Offset_0 0178 e228 | ( | Load 0x1,0x28 0179 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "secondary_referencer" 017b e5ff | | Load 0x2,-0x1 017c e00b | | Load 0x0,0xb 017d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017e 01cc | | Execute Vector,Catenate 017f 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "Response" 0181 01cc | | Execute Vector,Catenate 0182 e5fe | | Load 0x2,-0x2 0183 e00b | | Load 0x0,0xb 0184 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0185 01cc | | Execute Vector,Catenate 0186 e402 | | Load 0x2,0x2 0187 e00b | | Load 0x0,0xb 0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0189 00d8 | | Load_Top At_Offset_0 018a e00c | | Load 0x0,0xc 018b 180f | | Execute Package,Field_Execute,Field_Number 0xf 018c 00d9 | | Load_Top At_Offset_1 018d 00d9 | | Load_Top At_Offset_1 018e e5ff | | Load 0x2,-0x1 018f e22d | - | Load 0x1,0x2d 0190 180e | | Execute Package,Field_Execute,Field_Number 0xe 0191 005a | Z | Store_Top Discrete,At_Offset_2 0192 00d8 | | Load_Top At_Offset_0 0193 e228 | ( | Load 0x1,0x28 0194 e402 | | Load 0x2,0x2 0195 e403 | | Load 0x2,0x3 0196 e00b | | Load 0x0,0xb 0197 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0198 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0199 TRAP_0168: 0199 e005 | | Load 0x0,0x5 019a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 019b 010f | | Execute Exception,Equal 019c 6807 |h | Jump_Zero 0x1a4 019d 00d9 | | Load_Top At_Offset_1 019e e228 | ( | Load 0x1,0x28 019f e402 | | Load 0x2,0x2 01a0 e403 | | Load 0x2,0x3 01a1 e00b | | Load 0x0,0xb 01a2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a4 4884 |H | Short_Literal 0x84 01a5 010f | | Execute Exception,Equal 01a6 6807 |h | Jump_Zero 0x1ae 01a7 00d9 | | Load_Top At_Offset_1 01a8 e228 | ( | Load 0x1,0x28 01a9 e402 | | Load 0x2,0x2 01aa e403 | | Load 0x2,0x3 01ab e00b | | Load 0x0,0xb 01ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ae 00d9 | | Load_Top At_Offset_1 01af e228 | ( | Load 0x1,0x28 01b0 e402 | | Load 0x2,0x2 01b1 e403 | | Load 0x2,0x3 01b2 e00b | | Load 0x0,0xb 01b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c7 | | .CONST 0x01c7 ; Address of begin 01b9 01e9 | | .CONST 0x01e9 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb 0092 0f44 | D| Action Push_String_Extended,0xf44 ; "Show_Secondary" 01bd e005 | | Load 0x0,0x5 01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c0 e006 | | Load 0x0,0x6 01c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c2 02c7 | | Declare_Variable Any 01c3 e5fe | | Load 0x2,-0x2 01c4 e006 | | Load 0x0,0x6 01c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01c6 a404 | | Store_Unchecked 0x2,0x4 01c7 BODY_01b8: 01c7 00d8 | | Load_Top At_Offset_0 01c8 e228 | ( | Load 0x1,0x28 01c9 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; "Primary_Unit" 01cb e5ff | | Load 0x2,-0x1 01cc e00b | | Load 0x0,0xb 01cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ce 01cc | | Execute Vector,Catenate 01cf 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "Response" 01d1 01cc | | Execute Vector,Catenate 01d2 e5fe | | Load 0x2,-0x2 01d3 e00b | | Load 0x0,0xb 01d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d5 01cc | | Execute Vector,Catenate 01d6 e402 | | Load 0x2,0x2 01d7 e00b | | Load 0x0,0xb 01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d9 00d8 | | Load_Top At_Offset_0 01da e00c | | Load 0x0,0xc 01db 180f | | Execute Package,Field_Execute,Field_Number 0xf 01dc 00d9 | | Load_Top At_Offset_1 01dd 00d9 | | Load_Top At_Offset_1 01de e5ff | | Load 0x2,-0x1 01df e22d | - | Load 0x1,0x2d 01e0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e1 005a | Z | Store_Top Discrete,At_Offset_2 01e2 00d8 | | Load_Top At_Offset_0 01e3 e228 | ( | Load 0x1,0x28 01e4 e402 | | Load 0x2,0x2 01e5 e403 | | Load 0x2,0x3 01e6 e00b | | Load 0x0,0xb 01e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e9 TRAP_01b8: 01e9 e005 | | Load 0x0,0x5 01ea 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01eb 010f | | Execute Exception,Equal 01ec 6807 |h | Jump_Zero 0x1f4 01ed 00d9 | | Load_Top At_Offset_1 01ee e228 | ( | Load 0x1,0x28 01ef e402 | | Load 0x2,0x2 01f0 e403 | | Load 0x2,0x3 01f1 e00b | | Load 0x0,0xb 01f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f4 4884 |H | Short_Literal 0x84 01f5 010f | | Execute Exception,Equal 01f6 6807 |h | Jump_Zero 0x1fe 01f7 00d9 | | Load_Top At_Offset_1 01f8 e228 | ( | Load 0x1,0x28 01f9 e402 | | Load 0x2,0x2 01fa e403 | | Load 0x2,0x3 01fb e00b | | Load 0x0,0xb 01fc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fe 00d9 | | Load_Top At_Offset_1 01ff e228 | ( | Load 0x1,0x28 0200 e402 | | Load 0x2,0x2 0201 e403 | | Load 0x2,0x3 0202 e00b | | Load 0x0,0xb 0203 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0204 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0217 | | .CONST 0x0217 ; Address of begin 0209 024b | K | .CONST 0x024b ; Address of exception handler 020a 0004 | | .CONST 0x0004 ; Number of locals 020b INIT_0208: 020b 0092 0f45 | E| Action Push_String_Extended,0xf45 ; "Edit_Secondary" 020d e005 | | Load 0x0,0x5 020e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0210 e006 | | Load 0x0,0x6 0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0212 02c7 | | Declare_Variable Any 0213 e5fc | | Load 0x2,-0x4 0214 e006 | | Load 0x0,0x6 0215 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0216 a404 | | Store_Unchecked 0x2,0x4 0217 BODY_0208: 0217 00d8 | | Load_Top At_Offset_0 0218 e228 | ( | Load 0x1,0x28 0219 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "secondary_referencer" 021b e5ff | | Load 0x2,-0x1 021c e00b | | Load 0x0,0xb 021d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 021e 01cc | | Execute Vector,Catenate 021f 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "In_Place => " 0221 01cc | | Execute Vector,Catenate 0222 e5fe | | Load 0x2,-0x2 0223 00e1 | | Load_Encached Boolean_Cache 0224 011c | | Execute Any,Convert_Unchecked 0225 1c01 | | Execute_Immediate Run_Utility,0x1 0226 01cc | | Execute Vector,Catenate 0227 0092 0f47 | G| Action Push_String_Extended,0xf47 ; ", Visible => " 0229 01cc | | Execute Vector,Catenate 022a e5fd | | Load 0x2,-0x3 022b 00e1 | | Load_Encached Boolean_Cache 022c 011c | | Execute Any,Convert_Unchecked 022d 1c01 | | Execute_Immediate Run_Utility,0x1 022e 01cc | | Execute Vector,Catenate 022f 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 0231 01cc | | Execute Vector,Catenate 0232 e5fc | | Load 0x2,-0x4 0233 e00b | | Load 0x0,0xb 0234 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0235 01cc | | Execute Vector,Catenate 0236 e402 | | Load 0x2,0x2 0237 e00b | | Load 0x0,0xb 0238 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0239 00d8 | | Load_Top At_Offset_0 023a e00c | | Load 0x0,0xc 023b 180f | | Execute Package,Field_Execute,Field_Number 0xf 023c 00d9 | | Load_Top At_Offset_1 023d 00d9 | | Load_Top At_Offset_1 023e e5fd | | Load 0x2,-0x3 023f e5fe | | Load 0x2,-0x2 0240 e5ff | | Load 0x2,-0x1 0241 e22d | - | Load 0x1,0x2d 0242 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0243 005a | Z | Store_Top Discrete,At_Offset_2 0244 00d8 | | Load_Top At_Offset_0 0245 e228 | ( | Load 0x1,0x28 0246 e402 | | Load 0x2,0x2 0247 e403 | | Load 0x2,0x3 0248 e00b | | Load 0x0,0xb 0249 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 024b TRAP_0208: 024b e005 | | Load 0x0,0x5 024c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 024d 010f | | Execute Exception,Equal 024e 6807 |h | Jump_Zero 0x256 024f 00d9 | | Load_Top At_Offset_1 0250 e228 | ( | Load 0x1,0x28 0251 e402 | | Load 0x2,0x2 0252 e403 | | Load 0x2,0x3 0253 e00b | | Load 0x0,0xb 0254 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0255 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0256 4884 |H | Short_Literal 0x84 0257 010f | | Execute Exception,Equal 0258 6807 |h | Jump_Zero 0x260 0259 00d9 | | Load_Top At_Offset_1 025a e228 | ( | Load 0x1,0x28 025b e402 | | Load 0x2,0x2 025c e403 | | Load 0x2,0x3 025d e00b | | Load 0x0,0xb 025e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 025f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0260 00d9 | | Load_Top At_Offset_1 0261 e228 | ( | Load 0x1,0x28 0262 e402 | | Load 0x2,0x2 0263 e403 | | Load 0x2,0x3 0264 e00b | | Load 0x0,0xb 0265 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0266 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0277 | w | .CONST 0x0277 ; Address of begin 0269 02a2 | | .CONST 0x02a2 ; Address of exception handler 026a 0004 | | .CONST 0x0004 ; Number of locals 026b INIT_0268: 026b 0092 0f48 | H| Action Push_String_Extended,0xf48 ; "Set_Process_Primary" 026d e005 | | Load 0x0,0x5 026e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0270 e006 | | Load 0x0,0x6 0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0272 02c7 | | Declare_Variable Any 0273 e5fd | | Load 0x2,-0x3 0274 e006 | | Load 0x0,0x6 0275 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0276 a404 | | Store_Unchecked 0x2,0x4 0277 BODY_0268: 0277 00d8 | | Load_Top At_Offset_0 0278 e228 | ( | Load 0x1,0x28 0279 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; "Primary_Unit" 027b e5ff | | Load 0x2,-0x1 027c e00b | | Load 0x0,0xb 027d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 027e 01cc | | Execute Vector,Catenate 027f 0092 0f49 | I| Action Push_String_Extended,0xf49 ; ", Value => " 0281 01cc | | Execute Vector,Catenate 0282 e5fe | | Load 0x2,-0x2 0283 00e1 | | Load_Encached Boolean_Cache 0284 011c | | Execute Any,Convert_Unchecked 0285 1c01 | | Execute_Immediate Run_Utility,0x1 0286 01cc | | Execute Vector,Catenate 0287 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 0289 01cc | | Execute Vector,Catenate 028a e5fd | | Load 0x2,-0x3 028b e00b | | Load 0x0,0xb 028c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 028d 01cc | | Execute Vector,Catenate 028e e402 | | Load 0x2,0x2 028f e00b | | Load 0x0,0xb 0290 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0291 00d8 | | Load_Top At_Offset_0 0292 e00c | | Load 0x0,0xc 0293 180f | | Execute Package,Field_Execute,Field_Number 0xf 0294 00d9 | | Load_Top At_Offset_1 0295 00d9 | | Load_Top At_Offset_1 0296 e5fe | | Load 0x2,-0x2 0297 e5ff | | Load 0x2,-0x1 0298 e22d | - | Load 0x1,0x2d 0299 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029a 005a | Z | Store_Top Discrete,At_Offset_2 029b 00d8 | | Load_Top At_Offset_0 029c e228 | ( | Load 0x1,0x28 029d e402 | | Load 0x2,0x2 029e e403 | | Load 0x2,0x3 029f e00b | | Load 0x0,0xb 02a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a2 TRAP_0268: 02a2 e005 | | Load 0x0,0x5 02a3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a4 010f | | Execute Exception,Equal 02a5 6807 |h | Jump_Zero 0x2ad 02a6 00d9 | | Load_Top At_Offset_1 02a7 e228 | ( | Load 0x1,0x28 02a8 e402 | | Load 0x2,0x2 02a9 e403 | | Load 0x2,0x3 02aa e00b | | Load 0x0,0xb 02ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ad 4884 |H | Short_Literal 0x84 02ae 010f | | Execute Exception,Equal 02af 6807 |h | Jump_Zero 0x2b7 02b0 00d9 | | Load_Top At_Offset_1 02b1 e228 | ( | Load 0x1,0x28 02b2 e402 | | Load 0x2,0x2 02b3 e403 | | Load 0x2,0x3 02b4 e00b | | Load 0x0,0xb 02b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02b7 00d9 | | Load_Top At_Offset_1 02b8 e228 | ( | Load 0x1,0x28 02b9 e402 | | Load 0x2,0x2 02ba e403 | | Load 0x2,0x3 02bb e00b | | Load 0x0,0xb 02bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02be 0000 0000 | | .XXX[0x2] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02cf | | .CONST 0x02cf ; Address of begin 02c1 02f7 | | .CONST 0x02f7 ; Address of exception handler 02c2 0004 | | .CONST 0x0004 ; Number of locals 02c3 INIT_02c0: 02c3 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "Set_Secondary_Command" 02c5 e005 | | Load 0x0,0x5 02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c8 e006 | | Load 0x0,0x6 02c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ca 02c7 | | Declare_Variable Any 02cb e5fd | | Load 0x2,-0x3 02cc e006 | | Load 0x0,0x6 02cd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02ce a404 | | Store_Unchecked 0x2,0x4 02cf BODY_02c0: 02cf 00d8 | | Load_Top At_Offset_0 02d0 e228 | ( | Load 0x1,0x28 02d1 0092 0f4b | K| Action Push_String_Extended,0xf4b ; "Command => " 02d3 e5ff | | Load 0x2,-0x1 02d4 01cc | | Execute Vector,Catenate 02d5 0092 0f4c | L| Action Push_String_Extended,0xf4c ; ", Secondary_referencer" 02d7 01cc | | Execute Vector,Catenate 02d8 e5fe | | Load 0x2,-0x2 02d9 e00b | | Load 0x0,0xb 02da 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02db 01cc | | Execute Vector,Catenate 02dc 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 02de 01cc | | Execute Vector,Catenate 02df e5fd | | Load 0x2,-0x3 02e0 e00b | | Load 0x0,0xb 02e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e2 01cc | | Execute Vector,Catenate 02e3 e402 | | Load 0x2,0x2 02e4 e00b | | Load 0x0,0xb 02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e6 00d8 | | Load_Top At_Offset_0 02e7 e00c | | Load 0x0,0xc 02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e9 00d9 | | Load_Top At_Offset_1 02ea 00d9 | | Load_Top At_Offset_1 02eb e5fe | | Load 0x2,-0x2 02ec e5ff | | Load 0x2,-0x1 02ed e22d | - | Load 0x1,0x2d 02ee 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02ef 005a | Z | Store_Top Discrete,At_Offset_2 02f0 00d8 | | Load_Top At_Offset_0 02f1 e228 | ( | Load 0x1,0x28 02f2 e402 | | Load 0x2,0x2 02f3 e403 | | Load 0x2,0x3 02f4 e00b | | Load 0x0,0xb 02f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02f7 TRAP_02c0: 02f7 e005 | | Load 0x0,0x5 02f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02f9 010f | | Execute Exception,Equal 02fa 6807 |h | Jump_Zero 0x302 02fb 00d9 | | Load_Top At_Offset_1 02fc e228 | ( | Load 0x1,0x28 02fd e402 | | Load 0x2,0x2 02fe e403 | | Load 0x2,0x3 02ff e00b | | Load 0x0,0xb 0300 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0301 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0302 4884 |H | Short_Literal 0x84 0303 010f | | Execute Exception,Equal 0304 6807 |h | Jump_Zero 0x30c 0305 00d9 | | Load_Top At_Offset_1 0306 e228 | ( | Load 0x1,0x28 0307 e402 | | Load 0x2,0x2 0308 e403 | | Load 0x2,0x3 0309 e00b | | Load 0x0,0xb 030a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 030b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 030c 00d9 | | Load_Top At_Offset_1 030d e228 | ( | Load 0x1,0x28 030e e402 | | Load 0x2,0x2 030f e403 | | Load 0x2,0x3 0310 e00b | | Load 0x0,0xb 0311 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0312 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0313 0000 0000 | | .BLANK 0000[0x5] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b e5fd | | Load 0x2,-0x3 031c e5fe | | Load 0x2,-0x2 031d e5ff | | Load 0x2,-0x1 031e e22b | + | Load 0x1,0x2b 031f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0320 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0321 0000 0000 | | .BLANK 0000[0x7] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e5fa | | Load 0x2,-0x6 032c e5fb | | Load 0x2,-0x5 032d e5fc | | Load 0x2,-0x4 032e e5fd | | Load 0x2,-0x3 032f e5fe | | Load 0x2,-0x2 0330 e5ff | | Load 0x2,-0x1 0331 e22b | + | Load 0x1,0x2b 0332 180e | | Execute Package,Field_Execute,Field_Number 0xe 0333 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0334 0000 0000 | | .BLANK 0000[0x4] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b e5fb | | Load 0x2,-0x5 033c e5fc | | Load 0x2,-0x4 033d e5fd | | Load 0x2,-0x3 033e e5fe | | Load 0x2,-0x2 033f e5ff | | Load 0x2,-0x1 0340 e22b | + | Load 0x1,0x2b 0341 180f | | Execute Package,Field_Execute,Field_Number 0xf 0342 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0343 0000 0000 | | .BLANK 0000[0x5] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b e5fd | | Load 0x2,-0x3 034c e5fe | | Load 0x2,-0x2 034d e5ff | | Load 0x2,-0x1 034e e22b | + | Load 0x1,0x2b 034f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0350 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0351 0000 0000 | | .BLANK 0000[0x7] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 036f | o | .CONST 0x036f ; Address of begin 0359 03a5 | | .CONST 0x03a5 ; Address of exception handler 035a 0006 | | .CONST 0x0006 ; Number of locals 035b INIT_0358: 035b 0092 0f4d | M| Action Push_String_Extended,0xf4d ; "Link" 035d e005 | | Load 0x0,0x5 035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0360 e006 | | Load 0x0,0x6 0361 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0362 02c7 | | Declare_Variable Any 0363 e5fc | | Load 0x2,-0x4 0364 e006 | | Load 0x0,0x6 0365 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0366 a404 | | Store_Unchecked 0x2,0x4 0367 e007 | | Load 0x0,0x7 0368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0369 1b18 | | Execute Package,Field_Read,Field_Number 0x18 036a 02c7 | | Declare_Variable Any 036b 00d8 | | Load_Top At_Offset_0 036c 1c00 | | Execute_Immediate Run_Utility,0x0 036d 029f 0c13 | | Declare_Subprogram INIT_0c10,For_Call 036f BODY_0358: 036f 00da | | Load_Top At_Offset_2 0370 e228 | ( | Load 0x1,0x28 0371 0092 0f4e | N| Action Push_String_Extended,0xf4e ; "Main_Unit" 0373 e5ff | | Load 0x2,-0x1 0374 e00b | | Load 0x0,0xb 0375 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0376 01cc | | Execute Vector,Catenate 0377 0092 0f4f | O| Action Push_String_Extended,0xf4f ; "Make_Uncoded_Units => " 0379 01cc | | Execute Vector,Catenate 037a e5fe | | Load 0x2,-0x2 037b 00e1 | | Load_Encached Boolean_Cache 037c 011c | | Execute Any,Convert_Unchecked 037d 1c01 | | Execute_Immediate Run_Utility,0x1 037e 01cc | | Execute Vector,Catenate 037f 0092 0f50 | P| Action Push_String_Extended,0xf50 ; ", Executable_Name" 0381 01cc | | Execute Vector,Catenate 0382 e5fd | | Load 0x2,-0x3 0383 e00b | | Load 0x0,0xb 0384 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0385 01cc | | Execute Vector,Catenate 0386 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "Response" 0388 01cc | | Execute Vector,Catenate 0389 e5fc | | Load 0x2,-0x4 038a e00b | | Load 0x0,0xb 038b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038c 01cc | | Execute Vector,Catenate 038d e402 | | Load 0x2,0x2 038e e00b | | Load 0x0,0xb 038f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0390 00da | | Load_Top At_Offset_2 0391 4800 |H | Short_Literal 0x0 0392 e5ff | | Load 0x2,-0x1 0393 e00d | | Load 0x0,0xd 0394 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0395 c405 | | Store 0x2,0x5 0396 8406 | | Call 0x2,0x6 0397 00db | | Load_Top At_Offset_3 0398 00db | | Load_Top At_Offset_3 0399 e5fd | | Load 0x2,-0x3 039a e5fe | | Load 0x2,-0x2 039b e405 | | Load 0x2,0x5 039c 822a | * | Call 0x1,0x2a 039d c403 | | Store 0x2,0x3 039e 00da | | Load_Top At_Offset_2 039f e228 | ( | Load 0x1,0x28 03a0 e402 | | Load 0x2,0x2 03a1 e403 | | Load 0x2,0x3 03a2 e00b | | Load 0x0,0xb 03a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03a5 TRAP_0358: 03a5 e005 | | Load 0x0,0x5 03a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03a7 010f | | Execute Exception,Equal 03a8 6807 |h | Jump_Zero 0x3b0 03a9 00db | | Load_Top At_Offset_3 03aa e228 | ( | Load 0x1,0x28 03ab e402 | | Load 0x2,0x2 03ac e403 | | Load 0x2,0x3 03ad e00b | | Load 0x0,0xb 03ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03af 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03b0 4884 |H | Short_Literal 0x84 03b1 010f | | Execute Exception,Equal 03b2 6807 |h | Jump_Zero 0x3ba 03b3 00db | | Load_Top At_Offset_3 03b4 e228 | ( | Load 0x1,0x28 03b5 e402 | | Load 0x2,0x2 03b6 e403 | | Load 0x2,0x3 03b7 e00b | | Load 0x0,0xb 03b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03ba 00db | | Load_Top At_Offset_3 03bb e228 | ( | Load 0x1,0x28 03bc e402 | | Load 0x2,0x2 03bd e403 | | Load 0x2,0x3 03be e00b | | Load 0x0,0xb 03bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03c0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03c1 0000 0000 | | .BLANK 0000[0x7] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb e5fc | | Load 0x2,-0x4 03cc e5fd | | Load 0x2,-0x3 03cd e5fe | | Load 0x2,-0x2 03ce e5ff | | Load 0x2,-0x1 03cf e22b | + | Load 0x1,0x2b 03d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03d1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03d2 0000 0000 | | .BLANK 0000[0x6] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 0401 | | .CONST 0x0401 ; Address of begin 03d9 044a | J | .CONST 0x044a ; Address of exception handler 03da 000b | | .CONST 0x000b ; Number of locals 03db INIT_03d8: 03db 0092 0f51 | Q| Action Push_String_Extended,0xf51 ; "Show_Remote_Unit_Name" 03dd e005 | | Load 0x0,0x5 03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03e0 e006 | | Load 0x0,0x6 03e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e2 02c7 | | Declare_Variable Any 03e3 e5fe | | Load 0x2,-0x2 03e4 e006 | | Load 0x0,0x6 03e5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03e6 a404 | | Store_Unchecked 0x2,0x4 03e7 00e1 | | Load_Encached Boolean_Cache 03e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03e9 00e2 | | Load_Encached Integer_Cache 03ea e007 | | Load 0x0,0x7 03eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ec 02c7 | | Declare_Variable Any 03ed 00d8 | | Load_Top At_Offset_0 03ee 1c00 | | Execute_Immediate Run_Utility,0x0 03ef e007 | | Load 0x0,0x7 03f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f1 02c7 | | Declare_Variable Any 03f2 00d8 | | Load_Top At_Offset_0 03f3 1c00 | | Execute_Immediate Run_Utility,0x0 03f4 e007 | | Load 0x0,0x7 03f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f6 02c7 | | Declare_Variable Any 03f7 00d8 | | Load_Top At_Offset_0 03f8 1c00 | | Execute_Immediate Run_Utility,0x0 03f9 e007 | | Load 0x0,0x7 03fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03fb 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03fc 02c7 | | Declare_Variable Any 03fd 00d8 | | Load_Top At_Offset_0 03fe 1c00 | | Execute_Immediate Run_Utility,0x0 03ff 029f 0c6b | k| Declare_Subprogram INIT_0c68,For_Call 0401 BODY_03d8: 0401 e404 | | Load 0x2,0x4 0402 e228 | ( | Load 0x1,0x28 0403 0092 0f52 | R| Action Push_String_Extended,0xf52 ; "Unit" 0405 e5ff | | Load 0x2,-0x1 0406 e00b | | Load 0x0,0xb 0407 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0408 01cc | | Execute Vector,Catenate 0409 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "Response" 040b 01cc | | Execute Vector,Catenate 040c e5fe | | Load 0x2,-0x2 040d e00b | | Load 0x0,0xb 040e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 040f 01cc | | Execute Vector,Catenate 0410 e402 | | Load 0x2,0x2 0411 e00b | | Load 0x0,0xb 0412 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0413 e404 | | Load 0x2,0x4 0414 e00c | | Load 0x0,0xc 0415 180f | | Execute Package,Field_Execute,Field_Number 0xf 0416 e404 | | Load 0x2,0x4 0417 4800 |H | Short_Literal 0x0 0418 e5ff | | Load 0x2,-0x1 0419 e00d | | Load 0x0,0xd 041a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 041b c40a | | Store 0x2,0xa 041c 00d9 | | Load_Top At_Offset_1 041d e007 | | Load 0x0,0x7 041e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 041f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0420 6813 |h | Jump_Zero 0x434 0421 e404 | | Load 0x2,0x4 0422 4801 |H | Short_Literal 0x1 0423 4801 |H | Short_Literal 0x1 0424 e00f | | Load 0x0,0xf 0425 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0426 0334 | 4 | Declare_Variable Array,With_Constraint 0427 e5ff | | Load 0x2,-0x1 0428 e00f | | Load 0x0,0xf 0429 1810 | | Execute Package,Field_Execute,Field_Number 0x10 042a e00f | | Load 0x0,0xf 042b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042c 0119 | | Execute Any,Check_In_Formal_Type 042d 4801 |H | Short_Literal 0x1 042e 00da | | Load_Top At_Offset_2 042f 01d6 | | Execute Vector,Field_Write 0430 6037 |`7 | Indirect_Literal Discrete,0x468,{0x00000000, 0x0000882b} 0431 e005 | | Load 0x0,0x5 0432 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0433 780f |x | Jump 0x443 0434 00cf | | Action Mark_Auxiliary 0435 7807 |x | Jump 0x43d 0436 840b | | Call 0x2,0xb 0437 00da | | Load_Top At_Offset_2 0438 e007 | | Load 0x0,0x7 0439 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 043a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 043b c40a | | Store 0x2,0xa 043c 00c9 | | Action Pop_Auxiliary_Loop 043d 00da | | Load_Top At_Offset_2 043e e007 | | Load 0x0,0x7 043f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0440 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0441 6ff4 |o | Jump_Zero 0x436 0442 00ce | | Action Pop_Auxiliary 0443 e404 | | Load 0x2,0x4 0444 e228 | ( | Load 0x1,0x28 0445 e402 | | Load 0x2,0x2 0446 e403 | | Load 0x2,0x3 0447 e00b | | Load 0x0,0xb 0448 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0449 4503 |E | Exit_Suprogram New_Top_Offset 0x3 044a TRAP_03d8: 044a e005 | | Load 0x0,0x5 044b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 044c 010f | | Execute Exception,Equal 044d 6807 |h | Jump_Zero 0x455 044e e404 | | Load 0x2,0x4 044f e228 | ( | Load 0x1,0x28 0450 e402 | | Load 0x2,0x2 0451 e403 | | Load 0x2,0x3 0452 e00b | | Load 0x0,0xb 0453 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0454 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0455 4884 |H | Short_Literal 0x84 0456 010f | | Execute Exception,Equal 0457 6807 |h | Jump_Zero 0x45f 0458 e404 | | Load 0x2,0x4 0459 e228 | ( | Load 0x1,0x28 045a e402 | | Load 0x2,0x2 045b e403 | | Load 0x2,0x3 045c e00b | | Load 0x0,0xb 045d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 045e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 045f e404 | | Load 0x2,0x4 0460 e228 | ( | Load 0x1,0x28 0461 e402 | | Load 0x2,0x2 0462 e403 | | Load 0x2,0x3 0463 e00b | | Load 0x0,0xb 0464 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0465 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0466 0000 0000 | | .XXX[0x2] 0468 0000 0000 | | .LITERAL {0x00000000, 0x0000882b} 046c 0000 0000 | | .BLANK 0000[0x4] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0491 | | .CONST 0x0491 ; Address of begin 0471 04e6 | | .CONST 0x04e6 ; Address of exception handler 0472 0008 | | .CONST 0x0008 ; Number of locals 0473 INIT_0470: 0473 0092 0f53 | S| Action Push_String_Extended,0xf53 ; "Show_Units" 0475 e005 | | Load 0x0,0x5 0476 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0477 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0478 e006 | | Load 0x0,0x6 0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047a 02c7 | | Declare_Variable Any 047b e5fc | | Load 0x2,-0x4 047c e006 | | Load 0x0,0x6 047d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 047e a404 | | Store_Unchecked 0x2,0x4 047f e007 | | Load 0x0,0x7 0480 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0481 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0482 02c7 | | Declare_Variable Any 0483 00d8 | | Load_Top At_Offset_0 0484 1c00 | | Execute_Immediate Run_Utility,0x0 0485 e007 | | Load 0x0,0x7 0486 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0487 02c7 | | Declare_Variable Any 0488 00d8 | | Load_Top At_Offset_0 0489 1c00 | | Execute_Immediate Run_Utility,0x0 048a e007 | | Load 0x0,0x7 048b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 048c 02c7 | | Declare_Variable Any 048d 00d8 | | Load_Top At_Offset_0 048e 1c00 | | Execute_Immediate Run_Utility,0x0 048f 029f 0cc3 | | Declare_Subprogram INIT_0cc0,For_Call 0491 BODY_0470: 0491 e404 | | Load 0x2,0x4 0492 e228 | ( | Load 0x1,0x28 0493 0092 0f52 | R| Action Push_String_Extended,0xf52 ; "Unit" 0495 e5ff | | Load 0x2,-0x1 0496 e00b | | Load 0x0,0xb 0497 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0498 01cc | | Execute Vector,Catenate 0499 0092 0f54 | T| Action Push_String_Extended,0xf54 ; "Remote_Name => " 049b 01cc | | Execute Vector,Catenate 049c e5fe | | Load 0x2,-0x2 049d 00e1 | | Load_Encached Boolean_Cache 049e 011c | | Execute Any,Convert_Unchecked 049f 1c01 | | Execute_Immediate Run_Utility,0x1 04a0 01cc | | Execute Vector,Catenate 04a1 0092 0f55 | U| Action Push_String_Extended,0xf55 ; ", Consistency => " 04a3 01cc | | Execute Vector,Catenate 04a4 e5fd | | Load 0x2,-0x3 04a5 00e1 | | Load_Encached Boolean_Cache 04a6 011c | | Execute Any,Convert_Unchecked 04a7 1c01 | | Execute_Immediate Run_Utility,0x1 04a8 01cc | | Execute Vector,Catenate 04a9 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 04ab 01cc | | Execute Vector,Catenate 04ac e5fc | | Load 0x2,-0x4 04ad e00b | | Load 0x0,0xb 04ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04af 01cc | | Execute Vector,Catenate 04b0 e402 | | Load 0x2,0x2 04b1 e00b | | Load 0x0,0xb 04b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04b3 e404 | | Load 0x2,0x4 04b4 e00c | | Load 0x0,0xc 04b5 180f | | Execute Package,Field_Execute,Field_Number 0xf 04b6 e404 | | Load 0x2,0x4 04b7 4801 |H | Short_Literal 0x1 04b8 e5ff | | Load 0x2,-0x1 04b9 e00d | | Load 0x0,0xd 04ba 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04bb c405 | | Store 0x2,0x5 04bc e404 | | Load 0x2,0x4 04bd 4801 |H | Short_Literal 0x1 04be e404 | | Load 0x2,0x4 04bf 4801 |H | Short_Literal 0x1 04c0 e405 | | Load 0x2,0x5 04c1 e00d | | Load 0x0,0xd 04c2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04c3 e00d | | Load 0x0,0xd 04c4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04c5 c407 | | Store 0x2,0x7 04c6 e404 | | Load 0x2,0x4 04c7 00da | | Load_Top At_Offset_2 04c8 e00c | | Load 0x0,0xc 04c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ca 00cf | | Action Mark_Auxiliary 04cb 780d |x | Jump 0x4d9 04cc e404 | | Load 0x2,0x4 04cd 4801 |H | Short_Literal 0x1 04ce e405 | | Load 0x2,0x5 04cf e00d | | Load 0x0,0xd 04d0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04d1 c406 | | Store 0x2,0x6 04d2 8408 | | Call 0x2,0x8 04d3 e405 | | Load 0x2,0x5 04d4 e007 | | Load 0x0,0x7 04d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04d7 c405 | | Store 0x2,0x5 04d8 00c9 | | Action Pop_Auxiliary_Loop 04d9 e405 | | Load 0x2,0x5 04da e007 | | Load 0x0,0x7 04db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04dc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04dd 6fee |o | Jump_Zero 0x4cc 04de 00ce | | Action Pop_Auxiliary 04df e404 | | Load 0x2,0x4 04e0 e228 | ( | Load 0x1,0x28 04e1 e402 | | Load 0x2,0x2 04e2 e403 | | Load 0x2,0x3 04e3 e00b | | Load 0x0,0xb 04e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04e6 TRAP_0470: 04e6 e005 | | Load 0x0,0x5 04e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04e8 010f | | Execute Exception,Equal 04e9 6807 |h | Jump_Zero 0x4f1 04ea e404 | | Load 0x2,0x4 04eb e228 | ( | Load 0x1,0x28 04ec e402 | | Load 0x2,0x2 04ed e403 | | Load 0x2,0x3 04ee e00b | | Load 0x0,0xb 04ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04f1 4884 |H | Short_Literal 0x84 04f2 010f | | Execute Exception,Equal 04f3 6807 |h | Jump_Zero 0x4fb 04f4 e404 | | Load 0x2,0x4 04f5 e228 | ( | Load 0x1,0x28 04f6 e402 | | Load 0x2,0x2 04f7 e403 | | Load 0x2,0x3 04f8 e00b | | Load 0x0,0xb 04f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04fa 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04fb e404 | | Load 0x2,0x4 04fc e228 | ( | Load 0x1,0x28 04fd e402 | | Load 0x2,0x2 04fe e403 | | Load 0x2,0x3 04ff e00b | | Load 0x0,0xb 0500 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0501 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0502 0000 0000 | | .BLANK 0000[0x6] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0517 | | .CONST 0x0517 ; Address of begin 0509 054d | M | .CONST 0x054d ; Address of exception handler 050a 0004 | | .CONST 0x0004 ; Number of locals 050b INIT_0508: 050b 0092 0f56 | V| Action Push_String_Extended,0xf56 ; "Set_Unit_Option" 050d e005 | | Load 0x0,0x5 050e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0510 e006 | | Load 0x0,0x6 0511 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0512 02c7 | | Declare_Variable Any 0513 e5fc | | Load 0x2,-0x4 0514 e006 | | Load 0x0,0x6 0515 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0516 a404 | | Store_Unchecked 0x2,0x4 0517 BODY_0508: 0517 00d8 | | Load_Top At_Offset_0 0518 e228 | ( | Load 0x1,0x28 0519 0092 0f57 | W| Action Push_String_Extended,0xf57 ; "Option_Switch" 051b e5ff | | Load 0x2,-0x1 051c e00b | | Load 0x0,0xb 051d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 051e 01cc | | Execute Vector,Catenate 051f 0092 0f58 | X| Action Push_String_Extended,0xf58 ; ", switch_Value" 0521 01cc | | Execute Vector,Catenate 0522 e5fe | | Load 0x2,-0x2 0523 00e1 | | Load_Encached Boolean_Cache 0524 011c | | Execute Any,Convert_Unchecked 0525 1c01 | | Execute_Immediate Run_Utility,0x1 0526 e00b | | Load 0x0,0xb 0527 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0528 01cc | | Execute Vector,Catenate 0529 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; ", Units" 052b 01cc | | Execute Vector,Catenate 052c e5fd | | Load 0x2,-0x3 052d e00b | | Load 0x0,0xb 052e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 052f 01cc | | Execute Vector,Catenate 0530 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 0532 01cc | | Execute Vector,Catenate 0533 e5fc | | Load 0x2,-0x4 0534 e00b | | Load 0x0,0xb 0535 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0536 01cc | | Execute Vector,Catenate 0537 e402 | | Load 0x2,0x2 0538 e00b | | Load 0x0,0xb 0539 1813 | | Execute Package,Field_Execute,Field_Number 0x13 053a 00d8 | | Load_Top At_Offset_0 053b e00c | | Load 0x0,0xc 053c 180f | | Execute Package,Field_Execute,Field_Number 0xf 053d e005 | | Load 0x0,0x5 053e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 053f 00d9 | | Load_Top At_Offset_1 0540 e5fd | | Load 0x2,-0x3 0541 e5fe | | Load 0x2,-0x2 0542 e5ff | | Load 0x2,-0x1 0543 e22e | . | Load 0x1,0x2e 0544 180d | | Execute Package,Field_Execute,Field_Number 0xd 0545 005a | Z | Store_Top Discrete,At_Offset_2 0546 00d8 | | Load_Top At_Offset_0 0547 e228 | ( | Load 0x1,0x28 0548 e402 | | Load 0x2,0x2 0549 e403 | | Load 0x2,0x3 054a e00b | | Load 0x0,0xb 054b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 054c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 054d TRAP_0508: 054d e005 | | Load 0x0,0x5 054e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 054f 010f | | Execute Exception,Equal 0550 6807 |h | Jump_Zero 0x558 0551 00d9 | | Load_Top At_Offset_1 0552 e228 | ( | Load 0x1,0x28 0553 e402 | | Load 0x2,0x2 0554 e403 | | Load 0x2,0x3 0555 e00b | | Load 0x0,0xb 0556 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0557 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0558 4884 |H | Short_Literal 0x84 0559 010f | | Execute Exception,Equal 055a 6807 |h | Jump_Zero 0x562 055b 00d9 | | Load_Top At_Offset_1 055c e228 | ( | Load 0x1,0x28 055d e402 | | Load 0x2,0x2 055e e403 | | Load 0x2,0x3 055f e00b | | Load 0x0,0xb 0560 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0561 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0562 00d9 | | Load_Top At_Offset_1 0563 e228 | ( | Load 0x1,0x28 0564 e402 | | Load 0x2,0x2 0565 e403 | | Load 0x2,0x3 0566 e00b | | Load 0x0,0xb 0567 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0568 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0569 0000 0000 | | .BLANK 0000[0x7] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 057f | | .CONST 0x057f ; Address of begin 0571 05b2 | | .CONST 0x05b2 ; Address of exception handler 0572 0004 | | .CONST 0x0004 ; Number of locals 0573 INIT_0570: 0573 0092 0f56 | V| Action Push_String_Extended,0xf56 ; "Set_Unit_Option" 0575 e005 | | Load 0x0,0x5 0576 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0577 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0578 e006 | | Load 0x0,0x6 0579 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057a 02c7 | | Declare_Variable Any 057b e5fc | | Load 0x2,-0x4 057c e006 | | Load 0x0,0x6 057d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 057e a404 | | Store_Unchecked 0x2,0x4 057f BODY_0570: 057f 00d8 | | Load_Top At_Offset_0 0580 e228 | ( | Load 0x1,0x28 0581 0092 0f57 | W| Action Push_String_Extended,0xf57 ; "Option_Switch" 0583 e5ff | | Load 0x2,-0x1 0584 e00b | | Load 0x0,0xb 0585 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0586 01cc | | Execute Vector,Catenate 0587 0092 0f5a | Z| Action Push_String_Extended,0xf5a ; ", Switch_Value" 0589 01cc | | Execute Vector,Catenate 058a e5fe | | Load 0x2,-0x2 058b e00b | | Load 0x0,0xb 058c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 058d 01cc | | Execute Vector,Catenate 058e 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; ", Units" 0590 01cc | | Execute Vector,Catenate 0591 e5fd | | Load 0x2,-0x3 0592 e00b | | Load 0x0,0xb 0593 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0594 01cc | | Execute Vector,Catenate 0595 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 0597 01cc | | Execute Vector,Catenate 0598 e5fc | | Load 0x2,-0x4 0599 e00b | | Load 0x0,0xb 059a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 059b 01cc | | Execute Vector,Catenate 059c e402 | | Load 0x2,0x2 059d e00b | | Load 0x0,0xb 059e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 059f 00d8 | | Load_Top At_Offset_0 05a0 e00c | | Load 0x0,0xc 05a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 05a2 e005 | | Load 0x0,0x5 05a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a4 00d9 | | Load_Top At_Offset_1 05a5 e5fd | | Load 0x2,-0x3 05a6 e5fe | | Load 0x2,-0x2 05a7 e5ff | | Load 0x2,-0x1 05a8 e22e | . | Load 0x1,0x2e 05a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 05aa 005a | Z | Store_Top Discrete,At_Offset_2 05ab 00d8 | | Load_Top At_Offset_0 05ac e228 | ( | Load 0x1,0x28 05ad e402 | | Load 0x2,0x2 05ae e403 | | Load 0x2,0x3 05af e00b | | Load 0x0,0xb 05b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05b1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05b2 TRAP_0570: 05b2 e005 | | Load 0x0,0x5 05b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05b4 010f | | Execute Exception,Equal 05b5 6807 |h | Jump_Zero 0x5bd 05b6 00d9 | | Load_Top At_Offset_1 05b7 e228 | ( | Load 0x1,0x28 05b8 e402 | | Load 0x2,0x2 05b9 e403 | | Load 0x2,0x3 05ba e00b | | Load 0x0,0xb 05bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05bc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05bd 4884 |H | Short_Literal 0x84 05be 010f | | Execute Exception,Equal 05bf 6807 |h | Jump_Zero 0x5c7 05c0 00d9 | | Load_Top At_Offset_1 05c1 e228 | ( | Load 0x1,0x28 05c2 e402 | | Load 0x2,0x2 05c3 e403 | | Load 0x2,0x3 05c4 e00b | | Load 0x0,0xb 05c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05c6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05c7 00d9 | | Load_Top At_Offset_1 05c8 e228 | ( | Load 0x1,0x28 05c9 e402 | | Load 0x2,0x2 05ca e403 | | Load 0x2,0x3 05cb e00b | | Load 0x0,0xb 05cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05cd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05ce 0000 0000 | | .XXX[0x2] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05df | | .CONST 0x05df ; Address of begin 05d1 0602 | | .CONST 0x0602 ; Address of exception handler 05d2 0004 | | .CONST 0x0004 ; Number of locals 05d3 INIT_05d0: 05d3 0092 0f5b | [| Action Push_String_Extended,0xf5b ; "Display_Unit_Options" 05d5 e005 | | Load 0x0,0x5 05d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05d8 e006 | | Load 0x0,0x6 05d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05da 02c7 | | Declare_Variable Any 05db e5fe | | Load 0x2,-0x2 05dc e006 | | Load 0x0,0x6 05dd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05de a404 | | Store_Unchecked 0x2,0x4 05df BODY_05d0: 05df 00d8 | | Load_Top At_Offset_0 05e0 e228 | ( | Load 0x1,0x28 05e1 0092 0f5c | \| Action Push_String_Extended,0xf5c ; "Units" 05e3 e5ff | | Load 0x2,-0x1 05e4 e00b | | Load 0x0,0xb 05e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05e6 01cc | | Execute Vector,Catenate 05e7 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "Response" 05e9 01cc | | Execute Vector,Catenate 05ea e5fe | | Load 0x2,-0x2 05eb e00b | | Load 0x0,0xb 05ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05ed 01cc | | Execute Vector,Catenate 05ee e402 | | Load 0x2,0x2 05ef e00b | | Load 0x0,0xb 05f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f1 00d8 | | Load_Top At_Offset_0 05f2 e00c | | Load 0x0,0xc 05f3 180f | | Execute Package,Field_Execute,Field_Number 0xf 05f4 e005 | | Load 0x0,0x5 05f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05f6 00d9 | | Load_Top At_Offset_1 05f7 e5ff | | Load 0x2,-0x1 05f8 e22e | . | Load 0x1,0x2e 05f9 180f | | Execute Package,Field_Execute,Field_Number 0xf 05fa 005a | Z | Store_Top Discrete,At_Offset_2 05fb 00d8 | | Load_Top At_Offset_0 05fc e228 | ( | Load 0x1,0x28 05fd e402 | | Load 0x2,0x2 05fe e403 | | Load 0x2,0x3 05ff e00b | | Load 0x0,0xb 0600 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0601 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0602 TRAP_05d0: 0602 e005 | | Load 0x0,0x5 0603 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0604 010f | | Execute Exception,Equal 0605 6807 |h | Jump_Zero 0x60d 0606 00d9 | | Load_Top At_Offset_1 0607 e228 | ( | Load 0x1,0x28 0608 e402 | | Load 0x2,0x2 0609 e403 | | Load 0x2,0x3 060a e00b | | Load 0x0,0xb 060b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 060c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 060d 4884 |H | Short_Literal 0x84 060e 010f | | Execute Exception,Equal 060f 6807 |h | Jump_Zero 0x617 0610 00d9 | | Load_Top At_Offset_1 0611 e228 | ( | Load 0x1,0x28 0612 e402 | | Load 0x2,0x2 0613 e403 | | Load 0x2,0x3 0614 e00b | | Load 0x0,0xb 0615 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0616 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0617 00d9 | | Load_Top At_Offset_1 0618 e228 | ( | Load 0x1,0x28 0619 e402 | | Load 0x2,0x2 061a e403 | | Load 0x2,0x3 061b e00b | | Load 0x0,0xb 061c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 061d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 061e 0000 0000 | | .XXX[0x2] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 062f | / | .CONST 0x062f ; Address of begin 0621 065a | Z | .CONST 0x065a ; Address of exception handler 0622 0004 | | .CONST 0x0004 ; Number of locals 0623 INIT_0620: 0623 0092 0f5d | ]| Action Push_String_Extended,0xf5d ; "Remove_Unit_Option" 0625 e005 | | Load 0x0,0x5 0626 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0627 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0628 e006 | | Load 0x0,0x6 0629 1b0d | | Execute Package,Field_Read,Field_Number 0xd 062a 02c7 | | Declare_Variable Any 062b e5fd | | Load 0x2,-0x3 062c e006 | | Load 0x0,0x6 062d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 062e a404 | | Store_Unchecked 0x2,0x4 062f BODY_0620: 062f 00d8 | | Load_Top At_Offset_0 0630 e228 | ( | Load 0x1,0x28 0631 0092 0f57 | W| Action Push_String_Extended,0xf57 ; "Option_Switch" 0633 e5ff | | Load 0x2,-0x1 0634 e00b | | Load 0x0,0xb 0635 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0636 01cc | | Execute Vector,Catenate 0637 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; ", Units" 0639 01cc | | Execute Vector,Catenate 063a e5fe | | Load 0x2,-0x2 063b e00b | | Load 0x0,0xb 063c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 063d 01cc | | Execute Vector,Catenate 063e 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 0640 01cc | | Execute Vector,Catenate 0641 e5fd | | Load 0x2,-0x3 0642 e00b | | Load 0x0,0xb 0643 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0644 01cc | | Execute Vector,Catenate 0645 e402 | | Load 0x2,0x2 0646 e00b | | Load 0x0,0xb 0647 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0648 00d8 | | Load_Top At_Offset_0 0649 e00c | | Load 0x0,0xc 064a 180f | | Execute Package,Field_Execute,Field_Number 0xf 064b e005 | | Load 0x0,0x5 064c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 064d 00d9 | | Load_Top At_Offset_1 064e e5fe | | Load 0x2,-0x2 064f e5ff | | Load 0x2,-0x1 0650 e22e | . | Load 0x1,0x2e 0651 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0652 005a | Z | Store_Top Discrete,At_Offset_2 0653 00d8 | | Load_Top At_Offset_0 0654 e228 | ( | Load 0x1,0x28 0655 e402 | | Load 0x2,0x2 0656 e403 | | Load 0x2,0x3 0657 e00b | | Load 0x0,0xb 0658 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0659 4504 |E | Exit_Suprogram New_Top_Offset 0x4 065a TRAP_0620: 065a e005 | | Load 0x0,0x5 065b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 065c 010f | | Execute Exception,Equal 065d 6807 |h | Jump_Zero 0x665 065e 00d9 | | Load_Top At_Offset_1 065f e228 | ( | Load 0x1,0x28 0660 e402 | | Load 0x2,0x2 0661 e403 | | Load 0x2,0x3 0662 e00b | | Load 0x0,0xb 0663 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0664 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0665 4884 |H | Short_Literal 0x84 0666 010f | | Execute Exception,Equal 0667 6807 |h | Jump_Zero 0x66f 0668 00d9 | | Load_Top At_Offset_1 0669 e228 | ( | Load 0x1,0x28 066a e402 | | Load 0x2,0x2 066b e403 | | Load 0x2,0x3 066c e00b | | Load 0x0,0xb 066d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 066e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 066f 00d9 | | Load_Top At_Offset_1 0670 e228 | ( | Load 0x1,0x28 0671 e402 | | Load 0x2,0x2 0672 e403 | | Load 0x2,0x3 0673 e00b | | Load 0x0,0xb 0674 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0675 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0676 0000 0000 | | .XXX[0x2] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 0691 | | .CONST 0x0691 ; Address of begin 0679 06d0 | | .CONST 0x06d0 ; Address of exception handler 067a 0007 | | .CONST 0x0007 ; Number of locals 067b INIT_0678: 067b 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; "Refresh_View" 067d e005 | | Load 0x0,0x5 067e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0680 e006 | | Load 0x0,0x6 0681 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0682 02c7 | | Declare_Variable Any 0683 e5fd | | Load 0x2,-0x3 0684 e006 | | Load 0x0,0x6 0685 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0686 a404 | | Store_Unchecked 0x2,0x4 0687 e007 | | Load 0x0,0x7 0688 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0689 1b18 | | Execute Package,Field_Read,Field_Number 0x18 068a 02c7 | | Declare_Variable Any 068b 00d8 | | Load_Top At_Offset_0 068c 1c00 | | Execute_Immediate Run_Utility,0x0 068d 00e1 | | Load_Encached Boolean_Cache 068e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 068f 029f 0cfb | | Declare_Subprogram INIT_0cf8,For_Call 0691 BODY_0678: 0691 00db | | Load_Top At_Offset_3 0692 e228 | ( | Load 0x1,0x28 0693 0092 0f5f | _| Action Push_String_Extended,0xf5f ; "View" 0695 e5ff | | Load 0x2,-0x1 0696 e00b | | Load 0x0,0xb 0697 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0698 01cc | | Execute Vector,Catenate 0699 0092 0f60 | `| Action Push_String_Extended,0xf60 ; ", Retain_History => " 069b 01cc | | Execute Vector,Catenate 069c e5fe | | Load 0x2,-0x2 069d 00e1 | | Load_Encached Boolean_Cache 069e 011c | | Execute Any,Convert_Unchecked 069f 1c01 | | Execute_Immediate Run_Utility,0x1 06a0 01cc | | Execute Vector,Catenate 06a1 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 06a3 01cc | | Execute Vector,Catenate 06a4 e5fd | | Load 0x2,-0x3 06a5 e00b | | Load 0x0,0xb 06a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06a7 01cc | | Execute Vector,Catenate 06a8 e402 | | Load 0x2,0x2 06a9 e00b | | Load 0x0,0xb 06aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ab 00db | | Load_Top At_Offset_3 06ac e00c | | Load 0x0,0xc 06ad 180f | | Execute Package,Field_Execute,Field_Number 0xf 06ae 00db | | Load_Top At_Offset_3 06af 0092 0f5f | _| Action Push_String_Extended,0xf5f ; "View" 06b1 e5ff | | Load 0x2,-0x1 06b2 e00c | | Load 0x0,0xc 06b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 06b4 00db | | Load_Top At_Offset_3 06b5 4801 |H | Short_Literal 0x1 06b6 e5ff | | Load 0x2,-0x1 06b7 e00d | | Load 0x0,0xd 06b8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06b9 c405 | | Store 0x2,0x5 06ba 00cf | | Action Mark_Auxiliary 06bb 7807 |x | Jump 0x6c3 06bc 8407 | | Call 0x2,0x7 06bd 00db | | Load_Top At_Offset_3 06be e007 | | Load 0x0,0x7 06bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06c1 c405 | | Store 0x2,0x5 06c2 00c9 | | Action Pop_Auxiliary_Loop 06c3 00db | | Load_Top At_Offset_3 06c4 e007 | | Load 0x0,0x7 06c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06c7 6ff4 |o | Jump_Zero 0x6bc 06c8 00ce | | Action Pop_Auxiliary 06c9 00db | | Load_Top At_Offset_3 06ca e228 | ( | Load 0x1,0x28 06cb e402 | | Load 0x2,0x2 06cc e403 | | Load 0x2,0x3 06cd e00b | | Load 0x0,0xb 06ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06d0 TRAP_0678: 06d0 e005 | | Load 0x0,0x5 06d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 06d2 010f | | Execute Exception,Equal 06d3 6807 |h | Jump_Zero 0x6db 06d4 e404 | | Load 0x2,0x4 06d5 e228 | ( | Load 0x1,0x28 06d6 e402 | | Load 0x2,0x2 06d7 e403 | | Load 0x2,0x3 06d8 e00b | | Load 0x0,0xb 06d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06da 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06db 4884 |H | Short_Literal 0x84 06dc 010f | | Execute Exception,Equal 06dd 6807 |h | Jump_Zero 0x6e5 06de e404 | | Load 0x2,0x4 06df e228 | ( | Load 0x1,0x28 06e0 e402 | | Load 0x2,0x2 06e1 e403 | | Load 0x2,0x3 06e2 e00b | | Load 0x0,0xb 06e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06e5 e404 | | Load 0x2,0x4 06e6 e228 | ( | Load 0x1,0x28 06e7 e402 | | Load 0x2,0x2 06e8 e403 | | Load 0x2,0x3 06e9 e00b | | Load 0x0,0xb 06ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06ec 0000 0000 | | .BLANK 0000[0x4] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 00db | | Load_Top At_Offset_3 06f4 00db | | Load_Top At_Offset_3 06f5 e22c | , | Load 0x1,0x2c 06f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb e5fc | | Load 0x2,-0x4 06fc e5fd | | Load 0x2,-0x3 06fd e5fe | | Load 0x2,-0x2 06fe e5ff | | Load 0x2,-0x1 06ff e22c | , | Load 0x1,0x2c 0700 180d | | Execute Package,Field_Execute,Field_Number 0xd 0701 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0702 0000 0000 | | .BLANK 0000[0x6] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070b | | .CONST 0x070b ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0001 | | .CONST 0x0001 ; Number of locals 070b BODY_0708: 070b INIT_0708: 070b e5fb | | Load 0x2,-0x5 070c e5fc | | Load 0x2,-0x4 070d e5fd | | Load 0x2,-0x3 070e e5fe | | Load 0x2,-0x2 070f e5ff | | Load 0x2,-0x1 0710 e22c | , | Load 0x1,0x2c 0711 180e | | Execute Package,Field_Execute,Field_Number 0xe 0712 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0713 0000 0000 | | .BLANK 0000[0x5] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071b | | .CONST 0x071b ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0001 | | .CONST 0x0001 ; Number of locals 071b BODY_0718: 071b INIT_0718: 071b 00db | | Load_Top At_Offset_3 071c 00db | | Load_Top At_Offset_3 071d e22c | , | Load 0x1,0x2c 071e 180f | | Execute Package,Field_Execute,Field_Number 0xf 071f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0737 | 7 | .CONST 0x0737 ; Address of begin 0721 076b | k | .CONST 0x076b ; Address of exception handler 0722 0006 | | .CONST 0x0006 ; Number of locals 0723 INIT_0720: 0723 0092 0f61 | a| Action Push_String_Extended,0xf61 ; "Show_Remote_Information" 0725 e005 | | Load 0x0,0x5 0726 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0727 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0728 e006 | | Load 0x0,0x6 0729 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072a 02c7 | | Declare_Variable Any 072b e5fe | | Load 0x2,-0x2 072c e006 | | Load 0x0,0x6 072d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 072e a404 | | Store_Unchecked 0x2,0x4 072f e007 | | Load 0x0,0x7 0730 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0731 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0732 02c7 | | Declare_Variable Any 0733 00d8 | | Load_Top At_Offset_0 0734 1c00 | | Execute_Immediate Run_Utility,0x0 0735 029f 0d8b | | Declare_Subprogram INIT_0d88,For_Call 0737 BODY_0720: 0737 00da | | Load_Top At_Offset_2 0738 e228 | ( | Load 0x1,0x28 0739 0092 0f5f | _| Action Push_String_Extended,0xf5f ; "View" 073b e5ff | | Load 0x2,-0x1 073c e00b | | Load 0x0,0xb 073d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 073e 01cc | | Execute Vector,Catenate 073f 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "Response" 0741 01cc | | Execute Vector,Catenate 0742 e5fe | | Load 0x2,-0x2 0743 e00b | | Load 0x0,0xb 0744 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0745 01cc | | Execute Vector,Catenate 0746 e402 | | Load 0x2,0x2 0747 e00b | | Load 0x0,0xb 0748 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0749 00da | | Load_Top At_Offset_2 074a e00c | | Load 0x0,0xc 074b 180f | | Execute Package,Field_Execute,Field_Number 0xf 074c 00da | | Load_Top At_Offset_2 074d 4801 |H | Short_Literal 0x1 074e e5ff | | Load 0x2,-0x1 074f e00d | | Load 0x0,0xd 0750 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0751 c405 | | Store 0x2,0x5 0752 00cf | | Action Mark_Auxiliary 0753 7807 |x | Jump 0x75b 0754 8406 | | Call 0x2,0x6 0755 00da | | Load_Top At_Offset_2 0756 e007 | | Load 0x0,0x7 0757 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0758 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0759 c405 | | Store 0x2,0x5 075a 00c9 | | Action Pop_Auxiliary_Loop 075b 00da | | Load_Top At_Offset_2 075c e007 | | Load 0x0,0x7 075d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 075e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 075f 6ff4 |o | Jump_Zero 0x754 0760 00ce | | Action Pop_Auxiliary 0761 4801 |H | Short_Literal 0x1 0762 e016 | | Load 0x0,0x16 0763 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0764 00da | | Load_Top At_Offset_2 0765 e228 | ( | Load 0x1,0x28 0766 e402 | | Load 0x2,0x2 0767 e403 | | Load 0x2,0x3 0768 e00b | | Load 0x0,0xb 0769 1814 | | Execute Package,Field_Execute,Field_Number 0x14 076a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 076b TRAP_0720: 076b e005 | | Load 0x0,0x5 076c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 076d 010f | | Execute Exception,Equal 076e 6807 |h | Jump_Zero 0x776 076f 00db | | Load_Top At_Offset_3 0770 e228 | ( | Load 0x1,0x28 0771 e402 | | Load 0x2,0x2 0772 e403 | | Load 0x2,0x3 0773 e00b | | Load 0x0,0xb 0774 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0775 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0776 4884 |H | Short_Literal 0x84 0777 010f | | Execute Exception,Equal 0778 6807 |h | Jump_Zero 0x780 0779 00db | | Load_Top At_Offset_3 077a e228 | ( | Load 0x1,0x28 077b e402 | | Load 0x2,0x2 077c e403 | | Load 0x2,0x3 077d e00b | | Load 0x0,0xb 077e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 077f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0780 00db | | Load_Top At_Offset_3 0781 e228 | ( | Load 0x1,0x28 0782 e402 | | Load 0x2,0x2 0783 e403 | | Load 0x2,0x3 0784 e00b | | Load 0x0,0xb 0785 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0786 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0787 0000 | | .XXX[0x1] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 07a1 | | .CONST 0x07a1 ; Address of begin 0789 085b | [ | .CONST 0x085b ; Address of exception handler 078a 0006 | | .CONST 0x0006 ; Number of locals 078b INIT_0788: 078b 0092 0f62 | b| Action Push_String_Extended,0xf62 ; "Execute_Remote_Command" 078d e005 | | Load 0x0,0x5 078e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 078f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0790 e006 | | Load 0x0,0x6 0791 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0792 02c7 | | Declare_Variable Any 0793 e5f9 | | Load 0x2,-0x7 0794 e006 | | Load 0x0,0x6 0795 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0796 a404 | | Store_Unchecked 0x2,0x4 0797 e008 | | Load 0x0,0x8 0798 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0799 02c7 | | Declare_Variable Any 079a 00d8 | | Load_Top At_Offset_0 079b 1c00 | | Execute_Immediate Run_Utility,0x0 079c e01e | | Load 0x0,0x1e 079d 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 079e 02c7 | | Declare_Variable Any 079f 00d8 | | Load_Top At_Offset_0 07a0 1c00 | | Execute_Immediate Run_Utility,0x0 07a1 BODY_0788: 07a1 00da | | Load_Top At_Offset_2 07a2 e228 | ( | Load 0x1,0x28 07a3 0092 0f63 | c| Action Push_String_Extended,0xf63 ; "remote_command" 07a5 e5ff | | Load 0x2,-0x1 07a6 e00b | | Load 0x0,0xb 07a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07a8 01cc | | Execute Vector,Catenate 07a9 0092 0f64 | d| Action Push_String_Extended,0xf64 ; ", remote_machine" 07ab 01cc | | Execute Vector,Catenate 07ac e5fe | | Load 0x2,-0x2 07ad e00b | | Load 0x0,0xb 07ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07af 01cc | | Execute Vector,Catenate 07b0 0092 0f65 | e| Action Push_String_Extended,0xf65 ; ", remote_username" 07b2 01cc | | Execute Vector,Catenate 07b3 e5fd | | Load 0x2,-0x3 07b4 e00b | | Load 0x0,0xb 07b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07b6 01cc | | Execute Vector,Catenate 07b7 0092 0f66 | f| Action Push_String_Extended,0xf66 ; ", remote_password" 07b9 01cc | | Execute Vector,Catenate 07ba e5fc | | Load 0x2,-0x4 07bb e00b | | Load 0x0,0xb 07bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07bd 01cc | | Execute Vector,Catenate 07be 0092 0f67 | g| Action Push_String_Extended,0xf67 ; ", remote_directory" 07c0 01cc | | Execute Vector,Catenate 07c1 e5fb | | Load 0x2,-0x5 07c2 e00b | | Load 0x0,0xb 07c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07c4 01cc | | Execute Vector,Catenate 07c5 0092 0f68 | h| Action Push_String_Extended,0xf68 ; ", The_Key" 07c7 01cc | | Execute Vector,Catenate 07c8 e5fa | | Load 0x2,-0x6 07c9 e00b | | Load 0x0,0xb 07ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07cb 01cc | | Execute Vector,Catenate 07cc 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 07ce 01cc | | Execute Vector,Catenate 07cf e5f9 | | Load 0x2,-0x7 07d0 e00b | | Load 0x0,0xb 07d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07d2 01cc | | Execute Vector,Catenate 07d3 e402 | | Load 0x2,0x2 07d4 e00b | | Load 0x0,0xb 07d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07d6 00da | | Load_Top At_Offset_2 07d7 e00c | | Load 0x0,0xc 07d8 180f | | Execute Package,Field_Execute,Field_Number 0xf 07d9 e5fa | | Load 0x2,-0x6 07da 8234 | 4 | Call 0x1,0x34 07db e01f | | Load 0x0,0x1f 07dc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07dd e01e | | Load 0x0,0x1e 07de 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 07df c406 | | Store 0x2,0x6 07e0 e005 | | Load 0x0,0x5 07e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07e2 00da | | Load_Top At_Offset_2 07e3 0120 | | Execute Any,Is_Value 07e4 6803 |h | Jump_Zero 0x7e8 07e5 e008 | | Load 0x0,0x8 07e6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 07e7 7801 |x | Jump 0x7e9 07e8 00da | | Load_Top At_Offset_2 07e9 4800 |H | Short_Literal 0x0 07ea e5fc | | Load 0x2,-0x4 07eb 8233 | 3 | Call 0x1,0x33 07ec e5fd | | Load 0x2,-0x3 07ed 8232 | 2 | Call 0x1,0x32 07ee e5fe | | Load 0x2,-0x2 07ef 8231 | 1 | Call 0x1,0x31 07f0 00ea | | Load_Encached Null_String_Cache 07f1 00ea | | Load_Encached Null_String_Cache 07f2 e5fb | | Load 0x2,-0x5 07f3 8230 | 0 | Call 0x1,0x30 07f4 e406 | | Load 0x2,0x6 07f5 e01e | | Load 0x0,0x1e 07f6 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8 07f7 e406 | | Load 0x2,0x6 07f8 e008 | | Load 0x0,0x8 07f9 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 07fa c405 | | Store 0x2,0x5 07fb c403 | | Store 0x2,0x3 07fc 00db | | Load_Top At_Offset_3 07fd 6815 |h | Jump_Zero 0x813 07fe e006 | | Load 0x0,0x6 07ff 180e | | Execute Package,Field_Execute,Field_Number 0xe 0800 4801 |H | Short_Literal 0x1 0801 4801 |H | Short_Literal 0x1 0802 e00f | | Load 0x0,0xf 0803 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0804 0334 | 4 | Declare_Variable Array,With_Constraint 0805 e5fe | | Load 0x2,-0x2 0806 e00f | | Load 0x0,0xf 0807 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0808 e00f | | Load 0x0,0xf 0809 1b0e | | Execute Package,Field_Read,Field_Number 0xe 080a 0119 | | Execute Any,Check_In_Formal_Type 080b 4801 |H | Short_Literal 0x1 080c 00da | | Load_Top At_Offset_2 080d 01d6 | | Execute Vector,Field_Write 080e 6091 |` | Indirect_Literal Discrete,0x8a0,{0x00000000, 0x00008803} 080f e005 | | Load 0x0,0x5 0810 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0811 e020 | | Load 0x0,0x20 0812 0257 | W | Execute Discrete,Raise 0813 e005 | | Load 0x0,0x5 0814 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0815 4801 |H | Short_Literal 0x1 0816 4801 |H | Short_Literal 0x1 0817 4800 |H | Short_Literal 0x0 0818 4800 |H | Short_Literal 0x0 0819 00ea | | Load_Encached Null_String_Cache 081a e405 | | Load 0x2,0x5 081b e5ff | | Load 0x2,-0x1 081c e008 | | Load 0x0,0x8 081d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 081e c403 | | Store 0x2,0x3 081f 00db | | Load_Top At_Offset_3 0820 6815 |h | Jump_Zero 0x836 0821 e006 | | Load 0x0,0x6 0822 180e | | Execute Package,Field_Execute,Field_Number 0xe 0823 4801 |H | Short_Literal 0x1 0824 4801 |H | Short_Literal 0x1 0825 e00f | | Load 0x0,0xf 0826 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0827 0334 | 4 | Declare_Variable Array,With_Constraint 0828 e5ff | | Load 0x2,-0x1 0829 e00f | | Load 0x0,0xf 082a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 082b e00f | | Load 0x0,0xf 082c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 082d 0119 | | Execute Any,Check_In_Formal_Type 082e 4801 |H | Short_Literal 0x1 082f 00da | | Load_Top At_Offset_2 0830 01d6 | | Execute Vector,Field_Write 0831 606a |`j | Indirect_Literal Discrete,0x89c,{0x00000000, 0x0000885c} 0832 e005 | | Load 0x0,0x5 0833 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0834 e020 | | Load 0x0,0x20 0835 0257 | W | Execute Discrete,Raise 0836 e005 | | Load 0x0,0x5 0837 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0838 4800 |H | Short_Literal 0x0 0839 00db | | Load_Top At_Offset_3 083a e008 | | Load 0x0,0x8 083b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 083c c403 | | Store 0x2,0x3 083d 00db | | Load_Top At_Offset_3 083e 6815 |h | Jump_Zero 0x854 083f e006 | | Load 0x0,0x6 0840 180e | | Execute Package,Field_Execute,Field_Number 0xe 0841 4801 |H | Short_Literal 0x1 0842 4801 |H | Short_Literal 0x1 0843 e00f | | Load 0x0,0xf 0844 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0845 0334 | 4 | Declare_Variable Array,With_Constraint 0846 e5fe | | Load 0x2,-0x2 0847 e00f | | Load 0x0,0xf 0848 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0849 e00f | | Load 0x0,0xf 084a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 084b 0119 | | Execute Any,Check_In_Formal_Type 084c 4801 |H | Short_Literal 0x1 084d 00da | | Load_Top At_Offset_2 084e 01d6 | | Execute Vector,Field_Write 084f 6048 |`H | Indirect_Literal Discrete,0x898,{0x00000000, 0x0000880f} 0850 e005 | | Load 0x0,0x5 0851 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0852 e020 | | Load 0x0,0x20 0853 0257 | W | Execute Discrete,Raise 0854 00da | | Load_Top At_Offset_2 0855 e228 | ( | Load 0x1,0x28 0856 e402 | | Load 0x2,0x2 0857 e403 | | Load 0x2,0x3 0858 e00b | | Load 0x0,0xb 0859 1814 | | Execute Package,Field_Execute,Field_Number 0x14 085a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 085b TRAP_0788: 085b e020 | | Load 0x0,0x20 085c 010f | | Execute Exception,Equal 085d 680e |h | Jump_Zero 0x86c 085e e005 | | Load 0x0,0x5 085f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0860 4800 |H | Short_Literal 0x0 0861 e405 | | Load 0x2,0x5 0862 e008 | | Load 0x0,0x8 0863 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0864 c403 | | Store 0x2,0x3 0865 00db | | Load_Top At_Offset_3 0866 e228 | ( | Load 0x1,0x28 0867 e402 | | Load 0x2,0x2 0868 e403 | | Load 0x2,0x3 0869 e00b | | Load 0x0,0xb 086a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 086b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 086c e021 | ! | Load 0x0,0x21 086d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 086e 010f | | Execute Exception,Equal 086f 681b |h | Jump_Zero 0x88b 0870 e006 | | Load 0x0,0x6 0871 180e | | Execute Package,Field_Execute,Field_Number 0xe 0872 4801 |H | Short_Literal 0x1 0873 4801 |H | Short_Literal 0x1 0874 e00f | | Load 0x0,0xf 0875 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0876 0334 | 4 | Declare_Variable Array,With_Constraint 0877 e5fa | | Load 0x2,-0x6 0878 8234 | 4 | Call 0x1,0x34 0879 e00f | | Load 0x0,0xf 087a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 087b e00f | | Load 0x0,0xf 087c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 087d 0119 | | Execute Any,Check_In_Formal_Type 087e 4801 |H | Short_Literal 0x1 087f 00da | | Load_Top At_Offset_2 0880 01d6 | | Execute Vector,Field_Write 0881 6012 |` | Indirect_Literal Discrete,0x894,{0x00000000, 0x00008891} 0882 e005 | | Load 0x0,0x5 0883 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0884 00db | | Load_Top At_Offset_3 0885 e228 | ( | Load 0x1,0x28 0886 e402 | | Load 0x2,0x2 0887 e403 | | Load 0x2,0x3 0888 e00b | | Load 0x0,0xb 0889 1814 | | Execute Package,Field_Execute,Field_Number 0x14 088a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 088b 00db | | Load_Top At_Offset_3 088c e228 | ( | Load 0x1,0x28 088d e402 | | Load 0x2,0x2 088e e403 | | Load 0x2,0x3 088f e00b | | Load 0x0,0xb 0890 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0891 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0892 0000 0000 | | .XXX[0x2] 0894 0000 0000 | | .LITERAL {0x00000000, 0x00008891} 0898 0000 0000 | | .LITERAL {0x00000000, 0x0000880f} 089c 0000 0000 | | .LITERAL {0x00000000, 0x0000885c} 08a0 0000 0000 | | .LITERAL {0x00000000, 0x00008803} 08a4 0000 0000 | | .BLANK 0000[0x4] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08b7 | | .CONST 0x08b7 ; Address of begin 08a9 08dd | | .CONST 0x08dd ; Address of exception handler 08aa 0004 | | .CONST 0x0004 ; Number of locals 08ab INIT_08a8: 08ab 0092 0f69 | i| Action Push_String_Extended,0xf69 ; "Collapse_secondary_referencers" 08ad e005 | | Load 0x0,0x5 08ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 08b0 e006 | | Load 0x0,0x6 08b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08b2 02c7 | | Declare_Variable Any 08b3 e5fe | | Load 0x2,-0x2 08b4 e006 | | Load 0x0,0x6 08b5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08b6 a404 | | Store_Unchecked 0x2,0x4 08b7 BODY_08a8: 08b7 00d8 | | Load_Top At_Offset_0 08b8 e228 | ( | Load 0x1,0x28 08b9 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "directory => " 08bb e5ff | | Load 0x2,-0x1 08bc 01cc | | Execute Vector,Catenate 08bd 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 08bf 01cc | | Execute Vector,Catenate 08c0 e5fe | | Load 0x2,-0x2 08c1 e00b | | Load 0x0,0xb 08c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 08c3 01cc | | Execute Vector,Catenate 08c4 e402 | | Load 0x2,0x2 08c5 e00b | | Load 0x0,0xb 08c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08c7 00d8 | | Load_Top At_Offset_0 08c8 e00c | | Load 0x0,0xc 08c9 180f | | Execute Package,Field_Execute,Field_Number 0xf 08ca e005 | | Load 0x0,0x5 08cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08cc 00d9 | | Load_Top At_Offset_1 08cd e5ff | | Load 0x2,-0x1 08ce e013 | | Load 0x0,0x13 08cf 1883 | | Execute Package,Field_Execute,Field_Number 0x83 08d0 005a | Z | Store_Top Discrete,At_Offset_2 08d1 00d9 | | Load_Top At_Offset_1 08d2 6803 |h | Jump_Zero 0x8d6 08d3 e005 | | Load 0x0,0x5 08d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 08d5 0257 | W | Execute Discrete,Raise 08d6 00d8 | | Load_Top At_Offset_0 08d7 e228 | ( | Load 0x1,0x28 08d8 e402 | | Load 0x2,0x2 08d9 e403 | | Load 0x2,0x3 08da e00b | | Load 0x0,0xb 08db 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08dd TRAP_08a8: 08dd e005 | | Load 0x0,0x5 08de 1b17 | | Execute Package,Field_Read,Field_Number 0x17 08df 010f | | Execute Exception,Equal 08e0 6807 |h | Jump_Zero 0x8e8 08e1 00d9 | | Load_Top At_Offset_1 08e2 e228 | ( | Load 0x1,0x28 08e3 e402 | | Load 0x2,0x2 08e4 e403 | | Load 0x2,0x3 08e5 e00b | | Load 0x0,0xb 08e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08e8 4884 |H | Short_Literal 0x84 08e9 010f | | Execute Exception,Equal 08ea 6807 |h | Jump_Zero 0x8f2 08eb 00d9 | | Load_Top At_Offset_1 08ec e228 | ( | Load 0x1,0x28 08ed e402 | | Load 0x2,0x2 08ee e403 | | Load 0x2,0x3 08ef e00b | | Load 0x0,0xb 08f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08f2 00d9 | | Load_Top At_Offset_1 08f3 e228 | ( | Load 0x1,0x28 08f4 e402 | | Load 0x2,0x2 08f5 e403 | | Load 0x2,0x3 08f6 e00b | | Load 0x0,0xb 08f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08f9 0000 0000 | | .BLANK 0000[0x7] 0900 ; -------------------------------------------------------------------------------------- 0900 ; SUBPROGRAM 0900 ; -------------------------------------------------------------------------------------- 0900 090f | | .CONST 0x090f ; Address of begin 0901 0935 | 5 | .CONST 0x0935 ; Address of exception handler 0902 0004 | | .CONST 0x0004 ; Number of locals 0903 INIT_0900: 0903 0092 0f6b | k| Action Push_String_Extended,0xf6b ; "Expand_secondary_referencers" 0905 e005 | | Load 0x0,0x5 0906 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0907 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0908 e006 | | Load 0x0,0x6 0909 1b0d | | Execute Package,Field_Read,Field_Number 0xd 090a 02c7 | | Declare_Variable Any 090b e5fe | | Load 0x2,-0x2 090c e006 | | Load 0x0,0x6 090d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 090e a404 | | Store_Unchecked 0x2,0x4 090f BODY_0900: 090f 00d8 | | Load_Top At_Offset_0 0910 e228 | ( | Load 0x1,0x28 0911 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "directory => " 0913 e5ff | | Load 0x2,-0x1 0914 01cc | | Execute Vector,Catenate 0915 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ", Response" 0917 01cc | | Execute Vector,Catenate 0918 e5fe | | Load 0x2,-0x2 0919 e00b | | Load 0x0,0xb 091a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 091b 01cc | | Execute Vector,Catenate 091c e402 | | Load 0x2,0x2 091d e00b | | Load 0x0,0xb 091e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 091f 00d8 | | Load_Top At_Offset_0 0920 e00c | | Load 0x0,0xc 0921 180f | | Execute Package,Field_Execute,Field_Number 0xf 0922 e005 | | Load 0x0,0x5 0923 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0924 00d9 | | Load_Top At_Offset_1 0925 e5ff | | Load 0x2,-0x1 0926 e013 | | Load 0x0,0x13 0927 1882 | | Execute Package,Field_Execute,Field_Number 0x82 0928 005a | Z | Store_Top Discrete,At_Offset_2 0929 00d9 | | Load_Top At_Offset_1 092a 6803 |h | Jump_Zero 0x92e 092b e005 | | Load 0x0,0x5 092c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 092d 0257 | W | Execute Discrete,Raise 092e 00d8 | | Load_Top At_Offset_0 092f e228 | ( | Load 0x1,0x28 0930 e402 | | Load 0x2,0x2 0931 e403 | | Load 0x2,0x3 0932 e00b | | Load 0x0,0xb 0933 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0934 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0935 TRAP_0900: 0935 e005 | | Load 0x0,0x5 0936 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0937 010f | | Execute Exception,Equal 0938 6807 |h | Jump_Zero 0x940 0939 00d9 | | Load_Top At_Offset_1 093a e228 | ( | Load 0x1,0x28 093b e402 | | Load 0x2,0x2 093c e403 | | Load 0x2,0x3 093d e00b | | Load 0x0,0xb 093e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 093f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0940 4884 |H | Short_Literal 0x84 0941 010f | | Execute Exception,Equal 0942 6807 |h | Jump_Zero 0x94a 0943 00d9 | | Load_Top At_Offset_1 0944 e228 | ( | Load 0x1,0x28 0945 e402 | | Load 0x2,0x2 0946 e403 | | Load 0x2,0x3 0947 e00b | | Load 0x0,0xb 0948 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0949 4503 |E | Exit_Suprogram New_Top_Offset 0x3 094a 00d9 | | Load_Top At_Offset_1 094b e228 | ( | Load 0x1,0x28 094c e402 | | Load 0x2,0x2 094d e403 | | Load 0x2,0x3 094e e00b | | Load 0x0,0xb 094f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0950 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0951 0000 0000 | | .BLANK 0000[0x7] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 0980 | | .CONST 0x0980 ; Address of begin 0959 0004 | | .CONST 0x0004 ; Address of exception handler 095a 000b | | .CONST 0x000b ; Number of locals 095b INIT_0958: 095b e022 | " | Load 0x0,0x22 095c e023 | # | Load 0x0,0x23 095d e007 | | Load 0x0,0x7 095e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 095f e024 | $ | Load 0x0,0x24 0960 0387 | | Declare_Variable Package 0961 00d8 | | Load_Top At_Offset_0 0962 020f | | Execute Module,Activate 0963 00d8 | | Load_Top At_Offset_0 0964 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0965 e007 | | Load 0x0,0x7 0966 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0967 02c7 | | Declare_Variable Any 0968 00d8 | | Load_Top At_Offset_0 0969 1c00 | | Execute_Immediate Run_Utility,0x0 096a e007 | | Load 0x0,0x7 096b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 096c 02c7 | | Declare_Variable Any 096d 00d8 | | Load_Top At_Offset_0 096e 1c00 | | Execute_Immediate Run_Utility,0x0 096f e007 | | Load 0x0,0x7 0970 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0971 02c7 | | Declare_Variable Any 0972 00d8 | | Load_Top At_Offset_0 0973 1c00 | | Execute_Immediate Run_Utility,0x0 0974 00e1 | | Load_Encached Boolean_Cache 0975 e007 | | Load 0x0,0x7 0976 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0977 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0978 02c7 | | Declare_Variable Any 0979 e5ff | | Load 0x2,-0x1 097a a408 | | Store_Unchecked 0x2,0x8 097b 00e1 | | Load_Encached Boolean_Cache 097c 029f 0e0b | | Declare_Subprogram INIT_0e08,For_Call 097e 029f 0e23 | #| Declare_Subprogram INIT_0e20,For_Call 0980 BODY_0958: 0980 00cf | | Action Mark_Auxiliary 0981 7886 |x | Jump 0xa08 0982 e5fc | | Load 0x2,-0x4 0983 4800 |H | Short_Literal 0x0 0984 e408 | | Load 0x2,0x8 0985 e00d | | Load 0x0,0xd 0986 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0987 c404 | | Store 0x2,0x4 0988 e404 | | Load 0x2,0x4 0989 840b | | Call 0x2,0xb 098a 7013 |p | Jump_Nonzero 0x99e 098b e5fc | | Load 0x2,-0x4 098c 4801 |H | Short_Literal 0x1 098d 4801 |H | Short_Literal 0x1 098e e00f | | Load 0x0,0xf 098f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0990 0334 | 4 | Declare_Variable Array,With_Constraint 0991 e404 | | Load 0x2,0x4 0992 e00f | | Load 0x0,0xf 0993 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0994 e00f | | Load 0x0,0xf 0995 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0996 0119 | | Execute Any,Check_In_Formal_Type 0997 4801 |H | Short_Literal 0x1 0998 00da | | Load_Top At_Offset_2 0999 01d6 | | Execute Vector,Field_Write 099a 607d |`} | Indirect_Literal Discrete,0xa18,{0x00000000, 0x00008853} 099b e005 | | Load 0x0,0x5 099c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 099d 7864 |xd | Jump 0xa02 099e e5fc | | Load 0x2,-0x4 099f 4801 |H | Short_Literal 0x1 09a0 e404 | | Load 0x2,0x4 09a1 e00d | | Load 0x0,0xd 09a2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09a3 c406 | | Store 0x2,0x6 09a4 e404 | | Load 0x2,0x4 09a5 e00d | | Load 0x0,0xd 09a6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 09a7 c405 | | Store 0x2,0x5 09a8 e405 | | Load 0x2,0x5 09a9 e007 | | Load 0x0,0x7 09aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09ab 6802 |h | Jump_Zero 0x9ae 09ac e404 | | Load 0x2,0x4 09ad c405 | | Store 0x2,0x5 09ae 00e1 | | Load_Encached Boolean_Cache 09af e403 | | Load 0x2,0x3 09b0 e405 | | Load 0x2,0x5 09b1 840a | | Call 0x2,0xa 09b2 c403 | | Store 0x2,0x3 09b3 c407 | | Store 0x2,0x7 09b4 e407 | | Load 0x2,0x7 09b5 704c |pL | Jump_Nonzero 0xa02 09b6 e5fc | | Load 0x2,-0x4 09b7 e406 | | Load 0x2,0x6 09b8 e00d | | Load 0x0,0xd 09b9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 09ba e5fd | | Load 0x2,-0x3 09bb e405 | | Load 0x2,0x5 09bc e00d | | Load 0x0,0xd 09bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 09be e01b | | Load 0x0,0x1b 09bf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 09c0 a409 | | Store_Unchecked 0x2,0x9 09c1 e005 | | Load 0x0,0x5 09c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09c3 e5fc | | Load 0x2,-0x4 09c4 e5fe | | Load 0x2,-0x2 09c5 e5fc | | Load 0x2,-0x4 09c6 e406 | | Load 0x2,0x6 09c7 e00d | | Load 0x0,0xd 09c8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 09c9 e5fd | | Load 0x2,-0x3 09ca e405 | | Load 0x2,0x5 09cb e019 | | Load 0x0,0x19 09cc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 09cd c5fb | | Store 0x2,-0x5 09ce e5fb | | Load 0x2,-0x5 09cf 7020 |p | Jump_Nonzero 0x9f0 09d0 e5fc | | Load 0x2,-0x4 09d1 4801 |H | Short_Literal 0x1 09d2 4801 |H | Short_Literal 0x1 09d3 e00f | | Load 0x0,0xf 09d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d5 0334 | 4 | Declare_Variable Array,With_Constraint 09d6 e405 | | Load 0x2,0x5 09d7 e00d | | Load 0x0,0xd 09d8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 09d9 e00f | | Load 0x0,0xf 09da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09db 0119 | | Execute Any,Check_In_Formal_Type 09dc 4801 |H | Short_Literal 0x1 09dd 00da | | Load_Top At_Offset_2 09de 01d6 | | Execute Vector,Field_Write 09df 6034 |`4 | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00008827} 09e0 e005 | | Load 0x0,0x5 09e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09e2 00db | | Load_Top At_Offset_3 09e3 681e |h | Jump_Zero 0xa02 09e4 e5fc | | Load 0x2,-0x4 09e5 e406 | | Load 0x2,0x6 09e6 e00d | | Load 0x0,0xd 09e7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 09e8 e5fd | | Load 0x2,-0x3 09e9 e405 | | Load 0x2,0x5 09ea e00d | | Load 0x0,0xd 09eb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 09ec e01b | | Load 0x0,0x1b 09ed 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 09ee a409 | | Store_Unchecked 0x2,0x9 09ef 7812 |x | Jump 0xa02 09f0 e5fc | | Load 0x2,-0x4 09f1 4801 |H | Short_Literal 0x1 09f2 4801 |H | Short_Literal 0x1 09f3 e00f | | Load 0x0,0xf 09f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09f5 0334 | 4 | Declare_Variable Array,With_Constraint 09f6 e405 | | Load 0x2,0x5 09f7 e00d | | Load 0x0,0xd 09f8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 09f9 e00f | | Load 0x0,0xf 09fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09fb 0119 | | Execute Any,Check_In_Formal_Type 09fc 4801 |H | Short_Literal 0x1 09fd 00da | | Load_Top At_Offset_2 09fe 01d6 | | Execute Vector,Field_Write 09ff 6010 |` | Indirect_Literal Discrete,0xa10,{0x00000000, 0x0000880d} 0a00 e005 | | Load 0x0,0x5 0a01 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a02 e408 | | Load 0x2,0x8 0a03 e007 | | Load 0x0,0x7 0a04 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a05 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0a06 c408 | | Store 0x2,0x8 0a07 00c9 | | Action Pop_Auxiliary_Loop 0a08 e408 | | Load 0x2,0x8 0a09 e007 | | Load 0x0,0x7 0a0a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a0b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a0c 6f75 |ou | Jump_Zero 0x982 0a0d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a0e 0000 0000 | | .XXX[0x2] 0a10 0000 0000 | | .LITERAL {0x00000000, 0x0000880d} 0a14 0000 0000 | | .LITERAL {0x00000000, 0x00008827} 0a18 0000 0000 | | .LITERAL {0x00000000, 0x00008853} 0a1c 0000 0000 | | .BLANK 0000[0x4] 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a27 | ' | .CONST 0x0a27 ; Address of begin 0a21 0004 | | .CONST 0x0004 ; Address of exception handler 0a22 0003 | | .CONST 0x0003 ; Number of locals 0a23 INIT_0a20: 0a23 029f 0e43 | C| Declare_Subprogram INIT_0e40,For_Call 0a25 029f 0e5b | [| Declare_Subprogram INIT_0e58,For_Call 0a27 BODY_0a20: 0a27 e5fd | | Load 0x2,-0x3 0a28 7002 |p | Jump_Nonzero 0xa2b 0a29 8402 | | Call 0x2,0x2 0a2a 7801 |x | Jump 0xa2c 0a2b 8403 | | Call 0x2,0x3 0a2c 0831 | 1 | Execute_Immediate Raise,0x31 0a2d 0000 0000 | | .XXX[0x3] 0a2f 0000 | | 0a30 ; -------------------------------------------------------------------------------------- 0a30 ; SUBPROGRAM 0a30 ; -------------------------------------------------------------------------------------- 0a30 0a33 | 3 | .CONST 0x0a33 ; Address of begin 0a31 0004 | | .CONST 0x0004 ; Address of exception handler 0a32 0001 | | .CONST 0x0001 ; Number of locals 0a33 BODY_0a30: 0a33 INIT_0a30: 0a33 4801 |H | Short_Literal 0x1 0a34 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0a36 e5ff | | Load 0x2,-0x1 0a37 e015 | | Load 0x0,0x15 0a38 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0a39 6803 |h | Jump_Zero 0xa3d 0a3a e025 | % | Load 0x0,0x25 0a3b 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a3c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a3d 00da | | Load_Top At_Offset_2 0a3e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a3f 0000 | | .XXX[0x1] 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; SUBPROGRAM 0a40 ; -------------------------------------------------------------------------------------- 0a40 0a43 | C | .CONST 0x0a43 ; Address of begin 0a41 0004 | | .CONST 0x0004 ; Address of exception handler 0a42 0001 | | .CONST 0x0001 ; Number of locals 0a43 BODY_0a40: 0a43 INIT_0a40: 0a43 4801 |H | Short_Literal 0x1 0a44 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0a46 e5ff | | Load 0x2,-0x1 0a47 e015 | | Load 0x0,0x15 0a48 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0a49 6803 |h | Jump_Zero 0xa4d 0a4a e025 | % | Load 0x0,0x25 0a4b 180d | | Execute Package,Field_Execute,Field_Number 0xd 0a4c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a4d 00da | | Load_Top At_Offset_2 0a4e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a4f 0000 | | .XXX[0x1] 0a50 ; -------------------------------------------------------------------------------------- 0a50 ; SUBPROGRAM 0a50 ; -------------------------------------------------------------------------------------- 0a50 0a53 | S | .CONST 0x0a53 ; Address of begin 0a51 0004 | | .CONST 0x0004 ; Address of exception handler 0a52 0001 | | .CONST 0x0001 ; Number of locals 0a53 BODY_0a50: 0a53 INIT_0a50: 0a53 4801 |H | Short_Literal 0x1 0a54 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0a56 e5ff | | Load 0x2,-0x1 0a57 e015 | | Load 0x0,0x15 0a58 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0a59 6803 |h | Jump_Zero 0xa5d 0a5a e025 | % | Load 0x0,0x25 0a5b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a5c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a5d 00da | | Load_Top At_Offset_2 0a5e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a5f 0000 | | .XXX[0x1] 0a60 ; -------------------------------------------------------------------------------------- 0a60 ; SUBPROGRAM 0a60 ; -------------------------------------------------------------------------------------- 0a60 0a63 | c | .CONST 0x0a63 ; Address of begin 0a61 0004 | | .CONST 0x0004 ; Address of exception handler 0a62 0001 | | .CONST 0x0001 ; Number of locals 0a63 BODY_0a60: 0a63 INIT_0a60: 0a63 4801 |H | Short_Literal 0x1 0a64 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0a66 e5ff | | Load 0x2,-0x1 0a67 e015 | | Load 0x0,0x15 0a68 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0a69 6803 |h | Jump_Zero 0xa6d 0a6a e025 | % | Load 0x0,0x25 0a6b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a6c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a6d 00da | | Load_Top At_Offset_2 0a6e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a6f 0000 | | .XXX[0x1] 0a70 ; -------------------------------------------------------------------------------------- 0a70 ; SUBPROGRAM 0a70 ; -------------------------------------------------------------------------------------- 0a70 0a73 | s | .CONST 0x0a73 ; Address of begin 0a71 0004 | | .CONST 0x0004 ; Address of exception handler 0a72 0001 | | .CONST 0x0001 ; Number of locals 0a73 BODY_0a70: 0a73 INIT_0a70: 0a73 4801 |H | Short_Literal 0x1 0a74 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0a76 e5ff | | Load 0x2,-0x1 0a77 e015 | | Load 0x0,0x15 0a78 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0a79 6805 |h | Jump_Zero 0xa7f 0a7a 0092 0f6d | m| Action Push_String_Extended,0xf6d ; "$" 0a7c e014 | | Load 0x0,0x14 0a7d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0a7e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a7f 00da | | Load_Top At_Offset_2 0a80 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a81 0000 0000 | | .BLANK 0000[0x7] 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; SUBPROGRAM 0a88 ; -------------------------------------------------------------------------------------- 0a88 0a9a | | .CONST 0x0a9a ; Address of begin 0a89 0004 | | .CONST 0x0004 ; Address of exception handler 0a8a 0005 | | .CONST 0x0005 ; Number of locals 0a8b INIT_0a88: 0a8b 00e1 | | Load_Encached Boolean_Cache 0a8c 4820 |H | Short_Literal 0x20 0a8d e5fd | | Load 0x2,-0x3 0a8e e015 | | Load 0x0,0x15 0a8f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a90 01db | | Execute Vector,Length 0a91 0f00 | | Execute_Immediate Equal,0x0 0a92 00e1 | | Load_Encached Boolean_Cache 0a93 03f1 | | Declare_Variable Discrete,With_Value 0a94 e5fa | | Load 0x2,-0x6 0a95 e014 | | Load 0x0,0x14 0a96 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a97 03f1 | | Declare_Variable Discrete,With_Value 0a98 029f 0e73 | s| Declare_Subprogram INIT_0e70,For_Call 0a9a BODY_0a88: 0a9a e5f8 | | Load 0x2,-0x8 0a9b e5ff | | Load 0x2,-0x1 0a9c e00c | | Load 0x0,0xc 0a9d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a9e e5f8 | | Load 0x2,-0x8 0a9f e5ff | | Load 0x2,-0x1 0aa0 e00c | | Load 0x0,0xc 0aa1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0aa2 e5fc | | Load 0x2,-0x4 0aa3 e5fb | | Load 0x2,-0x5 0aa4 e5fd | | Load 0x2,-0x3 0aa5 e5fe | | Load 0x2,-0x2 0aa6 e5ff | | Load 0x2,-0x1 0aa7 e00d | | Load 0x0,0xd 0aa8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0aa9 e01b | | Load 0x0,0x1b 0aaa 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0aab a402 | | Store_Unchecked 0x2,0x2 0aac 8405 | | Call 0x2,0x5 0aad e5f8 | | Load 0x2,-0x8 0aae 4801 |H | Short_Literal 0x1 0aaf 4801 |H | Short_Literal 0x1 0ab0 e00f | | Load 0x0,0xf 0ab1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ab2 0334 | 4 | Declare_Variable Array,With_Constraint 0ab3 e5ff | | Load 0x2,-0x1 0ab4 e00f | | Load 0x0,0xf 0ab5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ab6 e00f | | Load 0x0,0xf 0ab7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ab8 0119 | | Execute Any,Check_In_Formal_Type 0ab9 4801 |H | Short_Literal 0x1 0aba 00da | | Load_Top At_Offset_2 0abb 01d6 | | Execute Vector,Field_Write 0abc 607b |`{ | Indirect_Literal Discrete,0xb38,{0x00000000, 0x00008826} 0abd e005 | | Load 0x0,0x5 0abe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0abf 00db | | Load_Top At_Offset_3 0ac0 680f |h | Jump_Zero 0xad0 0ac1 00da | | Load_Top At_Offset_2 0ac2 6803 |h | Jump_Zero 0xac6 0ac3 4800 |H | Short_Literal 0x0 0ac4 a402 | | Store_Unchecked 0x2,0x2 0ac5 780a |x | Jump 0xad0 0ac6 e5fc | | Load 0x2,-0x4 0ac7 e5fb | | Load 0x2,-0x5 0ac8 e5fd | | Load 0x2,-0x3 0ac9 e5fe | | Load 0x2,-0x2 0aca e5ff | | Load 0x2,-0x1 0acb e00d | | Load 0x0,0xd 0acc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0acd e01b | | Load 0x0,0x1b 0ace 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0acf a402 | | Store_Unchecked 0x2,0x2 0ad0 e5f8 | | Load 0x2,-0x8 0ad1 e006 | | Load 0x0,0x6 0ad2 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0ad3 e5ff | | Load 0x2,-0x1 0ad4 e007 | | Load 0x0,0x7 0ad5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ad6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0ad7 8220 | | Call 0x1,0x20 0ad8 00da | | Load_Top At_Offset_2 0ad9 6819 |h | Jump_Zero 0xaf3 0ada 00d9 | | Load_Top At_Offset_1 0adb 0f03 | | Execute_Immediate Equal,0x3 0adc 6816 |h | Jump_Zero 0xaf3 0add e5f8 | | Load 0x2,-0x8 0ade 4801 |H | Short_Literal 0x1 0adf 4801 |H | Short_Literal 0x1 0ae0 e00f | | Load 0x0,0xf 0ae1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ae2 0334 | 4 | Declare_Variable Array,With_Constraint 0ae3 0092 0f6e | n| Action Push_String_Extended,0xf6e ; "null remote directory" 0ae5 e00f | | Load 0x0,0xf 0ae6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ae7 e00f | | Load 0x0,0xf 0ae8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ae9 0119 | | Execute Any,Check_In_Formal_Type 0aea 4801 |H | Short_Literal 0x1 0aeb 00da | | Load_Top At_Offset_2 0aec 01d6 | | Execute Vector,Field_Write 0aed 6046 |`F | Indirect_Literal Discrete,0xb34,{0x00000000, 0x0000881e} 0aee e005 | | Load 0x0,0x5 0aef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0af0 4802 |H | Short_Literal 0x2 0af1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0af2 781a |x | Jump 0xb0d 0af3 00db | | Load_Top At_Offset_3 0af4 7018 |p | Jump_Nonzero 0xb0d 0af5 00d9 | | Load_Top At_Offset_1 0af6 0f03 | | Execute_Immediate Equal,0x3 0af7 6815 |h | Jump_Zero 0xb0d 0af8 e5f8 | | Load 0x2,-0x8 0af9 4801 |H | Short_Literal 0x1 0afa 4801 |H | Short_Literal 0x1 0afb e00f | | Load 0x0,0xf 0afc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0afd 0334 | 4 | Declare_Variable Array,With_Constraint 0afe 0092 0f6f | o| Action Push_String_Extended,0xf6f ; "error during postprocess command" 0b00 e00f | | Load 0x0,0xf 0b01 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b02 e00f | | Load 0x0,0xf 0b03 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b04 0119 | | Execute Any,Check_In_Formal_Type 0b05 4801 |H | Short_Literal 0x1 0b06 00da | | Load_Top At_Offset_2 0b07 01d6 | | Execute Vector,Field_Write 0b08 602b |`+ | Indirect_Literal Discrete,0xb34,{0x00000000, 0x0000881e} 0b09 e005 | | Load 0x0,0x5 0b0a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b0b 4802 |H | Short_Literal 0x2 0b0c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0b0d 00d9 | | Load_Top At_Offset_1 0b0e 0c02 | | Execute_Immediate Greater_Equal,0x2 0b0f 6821 |h! | Jump_Zero 0xb31 0b10 e5f8 | | Load 0x2,-0x8 0b11 4800 |H | Short_Literal 0x0 0b12 e5ff | | Load 0x2,-0x1 0b13 e00d | | Load 0x0,0xd 0b14 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b15 0092 0f70 | p| Action Push_String_Extended,0xf70 ; ".??'c(Ada)" 0b17 01cc | | Execute Vector,Catenate 0b18 e00d | | Load 0x0,0xd 0b19 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b1a e007 | | Load 0x0,0x7 0b1b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b1c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0b1d 7013 |p | Jump_Nonzero 0xb31 0b1e 4800 |H | Short_Literal 0x0 0b1f 4801 |H | Short_Literal 0x1 0b20 4800 |H | Short_Literal 0x0 0b21 4801 |H | Short_Literal 0x1 0b22 e5f8 | | Load 0x2,-0x8 0b23 e00d | | Load 0x0,0xd 0b24 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0b25 e006 | | Load 0x0,0x6 0b26 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0b27 4800 |H | Short_Literal 0x0 0b28 0092 0f71 | q| Action Push_String_Extended,0xf71 ; "<WORLDS>" 0b2a e404 | | Load 0x2,0x4 0b2b 4803 |H | Short_Literal 0x3 0b2c e5ff | | Load 0x2,-0x1 0b2d e00d | | Load 0x0,0xd 0b2e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b2f e014 | | Load 0x0,0x14 0b30 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0b31 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0b32 0000 0000 | | .XXX[0x2] 0b34 0000 0000 | | .LITERAL {0x00000000, 0x0000881e} 0b38 0000 0000 | | .LITERAL {0x00000000, 0x00008826} 0b3c 0000 0000 | | .BLANK 0000[0x4] 0b40 ; -------------------------------------------------------------------------------------- 0b40 ; SUBPROGRAM 0b40 ; -------------------------------------------------------------------------------------- 0b40 0b4b | K | .CONST 0x0b4b ; Address of begin 0b41 0004 | | .CONST 0x0004 ; Address of exception handler 0b42 0002 | | .CONST 0x0002 ; Number of locals 0b43 INIT_0b40: 0b43 00db | | Load_Top At_Offset_3 0b44 e5fe | | Load 0x2,-0x2 0b45 e5ff | | Load 0x2,-0x1 0b46 e00d | | Load 0x0,0xd 0b47 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b48 e5ff | | Load 0x2,-0x1 0b49 e01c | | Load 0x0,0x1c 0b4a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0b4b BODY_0b40: 0b4b 00d8 | | Load_Top At_Offset_0 0b4c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b4d 7003 |p | Jump_Nonzero 0xb51 0b4e 00d8 | | Load_Top At_Offset_0 0b4f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b50 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b51 e5fe | | Load 0x2,-0x2 0b52 4801 |H | Short_Literal 0x1 0b53 4802 |H | Short_Literal 0x2 0b54 e00f | | Load 0x0,0xf 0b55 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b56 0334 | 4 | Declare_Variable Array,With_Constraint 0b57 e5ff | | Load 0x2,-0x1 0b58 e00f | | Load 0x0,0xf 0b59 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0b5a e00f | | Load 0x0,0xf 0b5b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b5c 0119 | | Execute Any,Check_In_Formal_Type 0b5d 4801 |H | Short_Literal 0x1 0b5e 00da | | Load_Top At_Offset_2 0b5f 01d6 | | Execute Vector,Field_Write 0b60 00da | | Load_Top At_Offset_2 0b61 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b62 e005 | | Load 0x0,0x5 0b63 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b64 e00f | | Load 0x0,0xf 0b65 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b66 0119 | | Execute Any,Check_In_Formal_Type 0b67 4802 |H | Short_Literal 0x2 0b68 00da | | Load_Top At_Offset_2 0b69 01d6 | | Execute Vector,Field_Write 0b6a 6005 |` | Indirect_Literal Discrete,0xb70,{0x00000000, 0x00008809} 0b6b e005 | | Load 0x0,0x5 0b6c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b6d 00ea | | Load_Encached Null_String_Cache 0b6e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b6f 0000 | | .XXX[0x1] 0b70 0000 0000 | | .LITERAL {0x00000000, 0x00008809} 0b74 0000 0000 | | .BLANK 0000[0x4] 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; SUBPROGRAM 0b78 ; -------------------------------------------------------------------------------------- 0b78 0b83 | | .CONST 0x0b83 ; Address of begin 0b79 0004 | | .CONST 0x0004 ; Address of exception handler 0b7a 0002 | | .CONST 0x0002 ; Number of locals 0b7b INIT_0b78: 0b7b 00db | | Load_Top At_Offset_3 0b7c e5fe | | Load 0x2,-0x2 0b7d e5ff | | Load 0x2,-0x1 0b7e e00d | | Load 0x0,0xd 0b7f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b80 e5ff | | Load 0x2,-0x1 0b81 e01c | | Load 0x0,0x1c 0b82 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0b83 BODY_0b78: 0b83 00d8 | | Load_Top At_Offset_0 0b84 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b85 7003 |p | Jump_Nonzero 0xb89 0b86 00d8 | | Load_Top At_Offset_0 0b87 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b88 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b89 e5fe | | Load 0x2,-0x2 0b8a 4801 |H | Short_Literal 0x1 0b8b 4802 |H | Short_Literal 0x2 0b8c e00f | | Load 0x0,0xf 0b8d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b8e 0334 | 4 | Declare_Variable Array,With_Constraint 0b8f e5ff | | Load 0x2,-0x1 0b90 e00f | | Load 0x0,0xf 0b91 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0b92 e00f | | Load 0x0,0xf 0b93 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b94 0119 | | Execute Any,Check_In_Formal_Type 0b95 4801 |H | Short_Literal 0x1 0b96 00da | | Load_Top At_Offset_2 0b97 01d6 | | Execute Vector,Field_Write 0b98 00da | | Load_Top At_Offset_2 0b99 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b9a e005 | | Load 0x0,0x5 0b9b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b9c e00f | | Load 0x0,0xf 0b9d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b9e 0119 | | Execute Any,Check_In_Formal_Type 0b9f 4802 |H | Short_Literal 0x2 0ba0 00da | | Load_Top At_Offset_2 0ba1 01d6 | | Execute Vector,Field_Write 0ba2 6005 |` | Indirect_Literal Discrete,0xba8,{0x00000000, 0x00008807} 0ba3 e005 | | Load 0x0,0x5 0ba4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ba5 00ea | | Load_Encached Null_String_Cache 0ba6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ba7 0000 | | .XXX[0x1] 0ba8 0000 0000 | | .LITERAL {0x00000000, 0x00008807} 0bac 0000 0000 | | .BLANK 0000[0x4] 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 ; SUBPROGRAM 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 0bbb | | .CONST 0x0bbb ; Address of begin 0bb1 0004 | | .CONST 0x0004 ; Address of exception handler 0bb2 0002 | | .CONST 0x0002 ; Number of locals 0bb3 INIT_0bb0: 0bb3 00db | | Load_Top At_Offset_3 0bb4 e5fe | | Load 0x2,-0x2 0bb5 e5ff | | Load 0x2,-0x1 0bb6 e00d | | Load 0x0,0xd 0bb7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0bb8 e5ff | | Load 0x2,-0x1 0bb9 e01c | | Load 0x0,0x1c 0bba 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bbb BODY_0bb0: 0bbb 00d8 | | Load_Top At_Offset_0 0bbc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0bbd 7003 |p | Jump_Nonzero 0xbc1 0bbe 00d8 | | Load_Top At_Offset_0 0bbf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0bc0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bc1 e5fe | | Load 0x2,-0x2 0bc2 4801 |H | Short_Literal 0x1 0bc3 4802 |H | Short_Literal 0x2 0bc4 e00f | | Load 0x0,0xf 0bc5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bc6 0334 | 4 | Declare_Variable Array,With_Constraint 0bc7 e5ff | | Load 0x2,-0x1 0bc8 e00f | | Load 0x0,0xf 0bc9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bca e00f | | Load 0x0,0xf 0bcb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bcc 0119 | | Execute Any,Check_In_Formal_Type 0bcd 4801 |H | Short_Literal 0x1 0bce 00da | | Load_Top At_Offset_2 0bcf 01d6 | | Execute Vector,Field_Write 0bd0 00da | | Load_Top At_Offset_2 0bd1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0bd2 e005 | | Load 0x0,0x5 0bd3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0bd4 e00f | | Load 0x0,0xf 0bd5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0bd6 0119 | | Execute Any,Check_In_Formal_Type 0bd7 4802 |H | Short_Literal 0x2 0bd8 00da | | Load_Top At_Offset_2 0bd9 01d6 | | Execute Vector,Field_Write 0bda 6005 |` | Indirect_Literal Discrete,0xbe0,{0x00000000, 0x00008808} 0bdb e005 | | Load 0x0,0x5 0bdc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0bdd 00ea | | Load_Encached Null_String_Cache 0bde 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0bdf 0000 | | .XXX[0x1] 0be0 0000 0000 | | .LITERAL {0x00000000, 0x00008808} 0be4 0000 0000 | | .BLANK 0000[0x4] 0be8 ; -------------------------------------------------------------------------------------- 0be8 ; SUBPROGRAM 0be8 ; -------------------------------------------------------------------------------------- 0be8 0bfd | | .CONST 0x0bfd ; Address of begin 0be9 0004 | | .CONST 0x0004 ; Address of exception handler 0bea 0005 | | .CONST 0x0005 ; Number of locals 0beb INIT_0be8: 0beb 00e1 | | Load_Encached Boolean_Cache 0bec e007 | | Load 0x0,0x7 0bed 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0bee 0322 | " | Declare_Variable Record 0bef 00d8 | | Load_Top At_Offset_0 0bf0 1c00 | | Execute_Immediate Run_Utility,0x0 0bf1 e007 | | Load 0x0,0x7 0bf2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0bf3 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0bf4 02c7 | | Declare_Variable Any 0bf5 e5fe | | Load 0x2,-0x2 0bf6 4800 |H | Short_Literal 0x0 0bf7 e5ff | | Load 0x2,-0x1 0bf8 e00d | | Load 0x0,0xd 0bf9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0bfa a404 | | Store_Unchecked 0x2,0x4 0bfb 029f 0ebb | | Declare_Subprogram INIT_0eb8,For_Call 0bfd BODY_0be8: 0bfd 00cf | | Action Mark_Auxiliary 0bfe 7807 |x | Jump 0xc06 0bff 8405 | | Call 0x2,0x5 0c00 00da | | Load_Top At_Offset_2 0c01 e007 | | Load 0x0,0x7 0c02 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c03 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0c04 c404 | | Store 0x2,0x4 0c05 00c9 | | Action Pop_Auxiliary_Loop 0c06 00da | | Load_Top At_Offset_2 0c07 e007 | | Load 0x0,0x7 0c08 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c09 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0c0a 6ff4 |o | Jump_Zero 0xbff 0c0b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c0c 0000 0000 | | .BLANK 0000[0x4] 0c10 ; -------------------------------------------------------------------------------------- 0c10 ; SUBPROGRAM 0c10 ; -------------------------------------------------------------------------------------- 0c10 0c13 | | .CONST 0x0c13 ; Address of begin 0c11 0004 | | .CONST 0x0004 ; Address of exception handler 0c12 0001 | | .CONST 0x0001 ; Number of locals 0c13 BODY_0c10: 0c13 INIT_0c10: 0c13 e404 | | Load 0x2,0x4 0c14 e00c | | Load 0x0,0xc 0c15 180f | | Execute Package,Field_Execute,Field_Number 0xf 0c16 e405 | | Load 0x2,0x5 0c17 e007 | | Load 0x0,0x7 0c18 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c19 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0c1a 681f |h | Jump_Zero 0xc3a 0c1b e404 | | Load 0x2,0x4 0c1c 4801 |H | Short_Literal 0x1 0c1d 4802 |H | Short_Literal 0x2 0c1e e00f | | Load 0x0,0xf 0c1f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c20 0334 | 4 | Declare_Variable Array,With_Constraint 0c21 e5ff | | Load 0x2,-0x1 0c22 e00f | | Load 0x0,0xf 0c23 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c24 e00f | | Load 0x0,0xf 0c25 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c26 0119 | | Execute Any,Check_In_Formal_Type 0c27 4801 |H | Short_Literal 0x1 0c28 00da | | Load_Top At_Offset_2 0c29 01d6 | | Execute Vector,Field_Write 0c2a 0092 0f72 | r| Action Push_String_Extended,0xf72 ; "Expression does not name a linkable object" 0c2c e00f | | Load 0x0,0xf 0c2d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c2e e00f | | Load 0x0,0xf 0c2f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c30 0119 | | Execute Any,Check_In_Formal_Type 0c31 4802 |H | Short_Literal 0x2 0c32 00da | | Load_Top At_Offset_2 0c33 01d6 | | Execute Vector,Field_Write 0c34 602f |`/ | Indirect_Literal Discrete,0xc64,{0x00000000, 0x00008814} 0c35 e005 | | Load 0x0,0x5 0c36 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c37 e005 | | Load 0x0,0x5 0c38 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0c39 0257 | W | Execute Discrete,Raise 0c3a e5fd | | Load 0x2,-0x3 0c3b 01db | | Execute Vector,Length 0c3c 6824 |h$ | Jump_Zero 0xc61 0c3d e404 | | Load 0x2,0x4 0c3e 4800 |H | Short_Literal 0x0 0c3f e5ff | | Load 0x2,-0x1 0c40 e00d | | Load 0x0,0xd 0c41 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0c42 e007 | | Load 0x0,0x7 0c43 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0c44 681c |h | Jump_Zero 0xc61 0c45 e404 | | Load 0x2,0x4 0c46 4801 |H | Short_Literal 0x1 0c47 4802 |H | Short_Literal 0x2 0c48 e00f | | Load 0x0,0xf 0c49 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c4a 0334 | 4 | Declare_Variable Array,With_Constraint 0c4b e5ff | | Load 0x2,-0x1 0c4c e00f | | Load 0x0,0xf 0c4d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c4e e00f | | Load 0x0,0xf 0c4f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c50 0119 | | Execute Any,Check_In_Formal_Type 0c51 4801 |H | Short_Literal 0x1 0c52 00da | | Load_Top At_Offset_2 0c53 01d6 | | Execute Vector,Field_Write 0c54 0092 0f73 | s| Action Push_String_Extended,0xf73 ; "Expression names more than one object, but an executable name was specified" 0c56 e00f | | Load 0x0,0xf 0c57 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c58 e00f | | Load 0x0,0xf 0c59 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c5a 0119 | | Execute Any,Check_In_Formal_Type 0c5b 4802 |H | Short_Literal 0x2 0c5c 00da | | Load_Top At_Offset_2 0c5d 01d6 | | Execute Vector,Field_Write 0c5e 6005 |` | Indirect_Literal Discrete,0xc64,{0x00000000, 0x00008814} 0c5f e005 | | Load 0x0,0x5 0c60 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c61 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c62 0000 0000 | | .XXX[0x2] 0c64 0000 0000 | | .LITERAL {0x00000000, 0x00008814} 0c68 ; -------------------------------------------------------------------------------------- 0c68 ; SUBPROGRAM 0c68 ; -------------------------------------------------------------------------------------- 0c68 0c6d | m | .CONST 0x0c6d ; Address of begin 0c69 0cb1 | | .CONST 0x0cb1 ; Address of exception handler 0c6a 0002 | | .CONST 0x0002 ; Number of locals 0c6b INIT_0c68: 0c6b 029f 0ee3 | | Declare_Subprogram INIT_0ee0,For_Call 0c6d BODY_0c68: 0c6d e404 | | Load 0x2,0x4 0c6e 4801 |H | Short_Literal 0x1 0c6f e40a | | Load 0x2,0xa 0c70 e00d | | Load 0x0,0xd 0c71 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0c72 c407 | | Store 0x2,0x7 0c73 e404 | | Load 0x2,0x4 0c74 4801 |H | Short_Literal 0x1 0c75 e407 | | Load 0x2,0x7 0c76 e00d | | Load 0x0,0xd 0c77 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0c78 c409 | | Store 0x2,0x9 0c79 e404 | | Load 0x2,0x4 0c7a e409 | | Load 0x2,0x9 0c7b e00c | | Load 0x0,0xc 0c7c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c7d e407 | | Load 0x2,0x7 0c7e e00d | | Load 0x0,0xd 0c7f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0c80 702e |p. | Jump_Nonzero 0xcaf 0c81 e005 | | Load 0x0,0x5 0c82 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c83 00e2 | | Load_Encached Integer_Cache 0c84 00e1 | | Load_Encached Boolean_Cache 0c85 e408 | | Load 0x2,0x8 0c86 0120 | | Execute Any,Is_Value 0c87 6803 |h | Jump_Zero 0xc8b 0c88 e007 | | Load 0x0,0x7 0c89 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c8a 7801 |x | Jump 0xc8c 0c8b e408 | | Load 0x2,0x8 0c8c e404 | | Load 0x2,0x4 0c8d e407 | | Load 0x2,0x7 0c8e e013 | | Load 0x0,0x13 0c8f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0c90 c408 | | Store 0x2,0x8 0c91 c405 | | Store 0x2,0x5 0c92 c406 | | Store 0x2,0x6 0c93 c403 | | Store 0x2,0x3 0c94 e403 | | Load 0x2,0x3 0c95 0f00 | | Execute_Immediate Equal,0x0 0c96 0f00 | | Execute_Immediate Equal,0x0 0c97 e405 | | Load 0x2,0x5 0c98 0f00 | | Execute_Immediate Equal,0x0 0c99 0278 | x | Execute Discrete,Or 0c9a 6814 |h | Jump_Zero 0xcaf 0c9b e404 | | Load 0x2,0x4 0c9c 4801 |H | Short_Literal 0x1 0c9d 4801 |H | Short_Literal 0x1 0c9e e00f | | Load 0x0,0xf 0c9f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ca0 0334 | 4 | Declare_Variable Array,With_Constraint 0ca1 e407 | | Load 0x2,0x7 0ca2 e00d | | Load 0x0,0xd 0ca3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ca4 e00f | | Load 0x0,0xf 0ca5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ca6 0119 | | Execute Any,Check_In_Formal_Type 0ca7 4801 |H | Short_Literal 0x1 0ca8 00da | | Load_Top At_Offset_2 0ca9 01d6 | | Execute Vector,Field_Write 0caa 600d |` | Indirect_Literal Discrete,0xcb8,{0x00000000, 0x0000889d} 0cab e005 | | Load 0x0,0x5 0cac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0cad 00cc | | Action Pop_Block 0cae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0caf 8602 | | Call 0x3,0x2 0cb0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cb1 TRAP_0c68: 0cb1 e012 | | Load 0x0,0x12 0cb2 010f | | Execute Exception,Equal 0cb3 6801 |h | Jump_Zero 0xcb5 0cb4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cb5 0100 | | Execute Exception,Raise 0cb6 0000 0000 | | .XXX[0x2] 0cb8 0000 0000 | | .LITERAL {0x00000000, 0x0000889d} 0cbc 0000 0000 | | .BLANK 0000[0x4] 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 ; SUBPROGRAM 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 0cc6 | | .CONST 0x0cc6 ; Address of begin 0cc1 0004 | | .CONST 0x0004 ; Address of exception handler 0cc2 0002 | | .CONST 0x0002 ; Number of locals 0cc3 INIT_0cc0: 0cc3 e406 | | Load 0x2,0x6 0cc4 e00d | | Load 0x0,0xd 0cc5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0cc6 BODY_0cc0: 0cc6 e404 | | Load 0x2,0x4 0cc7 4801 |H | Short_Literal 0x1 0cc8 4801 |H | Short_Literal 0x1 0cc9 e00f | | Load 0x0,0xf 0cca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ccb 0334 | 4 | Declare_Variable Array,With_Constraint 0ccc e406 | | Load 0x2,0x6 0ccd e00d | | Load 0x0,0xd 0cce 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ccf e00f | | Load 0x0,0xf 0cd0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0cd1 0119 | | Execute Any,Check_In_Formal_Type 0cd2 4801 |H | Short_Literal 0x1 0cd3 00da | | Load_Top At_Offset_2 0cd4 01d6 | | Execute Vector,Field_Write 0cd5 601a |` | Indirect_Literal Discrete,0xcf0,{0x00000000, 0x0000886c} 0cd6 e005 | | Load 0x0,0x5 0cd7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0cd8 e5fe | | Load 0x2,-0x2 0cd9 6809 |h | Jump_Zero 0xce3 0cda 4801 |H | Short_Literal 0x1 0cdb 4801 |H | Short_Literal 0x1 0cdc 4800 |H | Short_Literal 0x0 0cdd 4801 |H | Short_Literal 0x1 0cde e5fc | | Load 0x2,-0x4 0cdf e00d | | Load 0x0,0xd 0ce0 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0ce1 00d9 | | Load_Top At_Offset_1 0ce2 8219 | | Call 0x1,0x19 0ce3 e5fd | | Load 0x2,-0x3 0ce4 680a |h | Jump_Zero 0xcef 0ce5 4801 |H | Short_Literal 0x1 0ce6 4801 |H | Short_Literal 0x1 0ce7 4800 |H | Short_Literal 0x0 0ce8 4801 |H | Short_Literal 0x1 0ce9 e5fc | | Load 0x2,-0x4 0cea e00d | | Load 0x0,0xd 0ceb 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0cec 4800 |H | Short_Literal 0x0 0ced 00da | | Load_Top At_Offset_2 0cee 8213 | | Call 0x1,0x13 0cef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cf0 0000 0000 | | .LITERAL {0x00000000, 0x0000886c} 0cf4 0000 0000 | | .BLANK 0000[0x4] 0cf8 ; -------------------------------------------------------------------------------------- 0cf8 ; SUBPROGRAM 0cf8 ; -------------------------------------------------------------------------------------- 0cf8 0d1e | | .CONST 0x0d1e ; Address of begin 0cf9 0d5e | ^ | .CONST 0x0d5e ; Address of exception handler 0cfa 0006 | | .CONST 0x0006 ; Number of locals 0cfb INIT_0cf8: 0cfb e007 | | Load 0x0,0x7 0cfc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cfd 02c7 | | Declare_Variable Any 0cfe e404 | | Load 0x2,0x4 0cff 4801 |H | Short_Literal 0x1 0d00 e404 | | Load 0x2,0x4 0d01 4801 |H | Short_Literal 0x1 0d02 e405 | | Load 0x2,0x5 0d03 e00d | | Load 0x0,0xd 0d04 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0d05 e00d | | Load 0x0,0xd 0d06 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d07 a602 | | Store_Unchecked 0x3,0x2 0d08 00d8 | | Load_Top At_Offset_0 0d09 e00d | | Load 0x0,0xd 0d0a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d0b e007 | | Load 0x0,0x7 0d0c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0d0d 0322 | " | Declare_Variable Record 0d0e e404 | | Load 0x2,0x4 0d0f 00db | | Load_Top At_Offset_3 0d10 e00d | | Load 0x0,0xd 0d11 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d12 00d9 | | Load_Top At_Offset_1 0d13 017d | } | Execute Record,Structure_Write 0d14 e404 | | Load 0x2,0x4 0d15 00d9 | | Load_Top At_Offset_1 0d16 e602 | | Load 0x3,0x2 0d17 e01c | | Load 0x0,0x1c 0d18 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d19 e404 | | Load 0x2,0x4 0d1a 00da | | Load_Top At_Offset_2 0d1b e602 | | Load 0x3,0x2 0d1c e01c | | Load 0x0,0x1c 0d1d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d1e BODY_0cf8: 0d1e e005 | | Load 0x0,0x5 0d1f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d20 00e1 | | Load_Encached Boolean_Cache 0d21 e404 | | Load 0x2,0x4 0d22 e604 | | Load 0x3,0x4 0d23 e602 | | Load 0x3,0x2 0d24 e026 | & | Load 0x0,0x26 0d25 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d26 c406 | | Store 0x2,0x6 0d27 c403 | | Store 0x2,0x3 0d28 e406 | | Load 0x2,0x6 0d29 7011 |p | Jump_Nonzero 0xd3b 0d2a 4801 |H | Short_Literal 0x1 0d2b 4801 |H | Short_Literal 0x1 0d2c e00f | | Load 0x0,0xf 0d2d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d2e 0334 | 4 | Declare_Variable Array,With_Constraint 0d2f e602 | | Load 0x3,0x2 0d30 e00f | | Load 0x0,0xf 0d31 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0d32 e00f | | Load 0x0,0xf 0d33 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d34 0119 | | Execute Any,Check_In_Formal_Type 0d35 4801 |H | Short_Literal 0x1 0d36 00da | | Load_Top At_Offset_2 0d37 01d6 | | Execute Vector,Field_Write 0d38 6047 |`G | Indirect_Literal Discrete,0xd80,{0x00000000, 0x0000882a} 0d39 e005 | | Load 0x0,0x5 0d3a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0d3b e005 | | Load 0x0,0x5 0d3c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d3d e404 | | Load 0x2,0x4 0d3e 4801 |H | Short_Literal 0x1 0d3f 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0d41 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0d43 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0d45 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0d47 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0d49 e5fe | | Load 0x2,-0x2 0d4a e604 | | Load 0x3,0x4 0d4b 00ea | | Load_Encached Null_String_Cache 0d4c 00ea | | Load_Encached Null_String_Cache 0d4d 4801 |H | Short_Literal 0x1 0d4e e606 | | Load 0x3,0x6 0d4f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0d50 e606 | | Load 0x3,0x6 0d51 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0d52 01cf | | Execute Vector,Slice_Read 0d53 4801 |H | Short_Literal 0x1 0d54 e605 | | Load 0x3,0x5 0d55 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0d56 e605 | | Load 0x3,0x5 0d57 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0d58 01cf | | Execute Vector,Slice_Read 0d59 e602 | | Load 0x3,0x2 0d5a e01c | | Load 0x0,0x1c 0d5b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d5c c403 | | Store 0x2,0x3 0d5d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d5e TRAP_0cf8: 0d5e e005 | | Load 0x0,0x5 0d5f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0d60 010f | | Execute Exception,Equal 0d61 6801 |h | Jump_Zero 0xd63 0d62 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d63 e006 | | Load 0x0,0x6 0d64 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d65 4801 |H | Short_Literal 0x1 0d66 4801 |H | Short_Literal 0x1 0d67 e00f | | Load 0x0,0xf 0d68 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d69 0334 | 4 | Declare_Variable Array,With_Constraint 0d6a 0092 0f74 | t| Action Push_String_Extended,0xf74 ; "Unexpected exception caught while refreshing " 0d6c e602 | | Load 0x3,0x2 0d6d e00d | | Load 0x0,0xd 0d6e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d6f 01cc | | Execute Vector,Catenate 0d70 e00f | | Load 0x0,0xf 0d71 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d72 e00f | | Load 0x0,0xf 0d73 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d74 0119 | | Execute Any,Check_In_Formal_Type 0d75 4801 |H | Short_Literal 0x1 0d76 00da | | Load_Top At_Offset_2 0d77 01d6 | | Execute Vector,Field_Write 0d78 6003 |` | Indirect_Literal Discrete,0xd7c,{0x00000000, 0x00008859} 0d79 e005 | | Load 0x0,0x5 0d7a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d7b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d7c 0000 0000 | | .LITERAL {0x00000000, 0x00008859} 0d80 0000 0000 | | .LITERAL {0x00000000, 0x0000882a} 0d84 0000 0000 | | .BLANK 0000[0x4] 0d88 ; -------------------------------------------------------------------------------------- 0d88 ; SUBPROGRAM 0d88 ; -------------------------------------------------------------------------------------- 0d88 0d98 | | .CONST 0x0d98 ; Address of begin 0d89 0dee | | .CONST 0x0dee ; Address of exception handler 0d8a 0002 | | .CONST 0x0002 ; Number of locals 0d8b INIT_0d88: 0d8b e007 | | Load 0x0,0x7 0d8c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d8d 02c7 | | Declare_Variable Any 0d8e e404 | | Load 0x2,0x4 0d8f 4801 |H | Short_Literal 0x1 0d90 e404 | | Load 0x2,0x4 0d91 4801 |H | Short_Literal 0x1 0d92 e405 | | Load 0x2,0x5 0d93 e00d | | Load 0x0,0xd 0d94 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0d95 e00d | | Load 0x0,0xd 0d96 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d97 a602 | | Store_Unchecked 0x3,0x2 0d98 BODY_0d88: 0d98 e404 | | Load 0x2,0x4 0d99 00d9 | | Load_Top At_Offset_1 0d9a e00c | | Load 0x0,0xc 0d9b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d9c 4801 |H | Short_Literal 0x1 0d9d e016 | | Load 0x0,0x16 0d9e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0d9f e404 | | Load 0x2,0x4 0da0 4801 |H | Short_Literal 0x1 0da1 4801 |H | Short_Literal 0x1 0da2 e00f | | Load 0x0,0xf 0da3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0da4 0334 | 4 | Declare_Variable Array,With_Constraint 0da5 00da | | Load_Top At_Offset_2 0da6 e00f | | Load 0x0,0xf 0da7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0da8 e00f | | Load 0x0,0xf 0da9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0daa 0119 | | Execute Any,Check_In_Formal_Type 0dab 4801 |H | Short_Literal 0x1 0dac 00da | | Load_Top At_Offset_2 0dad 01d6 | | Execute Vector,Field_Write 0dae 6051 |`Q | Indirect_Literal Discrete,0xe00,{0x00000000, 0x0000888e} 0daf e005 | | Load 0x0,0x5 0db0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0db1 e404 | | Load 0x2,0x4 0db2 4801 |H | Short_Literal 0x1 0db3 4801 |H | Short_Literal 0x1 0db4 e00f | | Load 0x0,0xf 0db5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0db6 0334 | 4 | Declare_Variable Array,With_Constraint 0db7 e404 | | Load 0x2,0x4 0db8 00db | | Load_Top At_Offset_3 0db9 8238 | 8 | Call 0x1,0x38 0dba e00f | | Load 0x0,0xf 0dbb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dbc e00f | | Load 0x0,0xf 0dbd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dbe 0119 | | Execute Any,Check_In_Formal_Type 0dbf 4801 |H | Short_Literal 0x1 0dc0 00da | | Load_Top At_Offset_2 0dc1 01d6 | | Execute Vector,Field_Write 0dc2 6039 |`9 | Indirect_Literal Discrete,0xdfc,{0x00000000, 0x00008843} 0dc3 e005 | | Load 0x0,0x5 0dc4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0dc5 e404 | | Load 0x2,0x4 0dc6 4801 |H | Short_Literal 0x1 0dc7 4801 |H | Short_Literal 0x1 0dc8 e00f | | Load 0x0,0xf 0dc9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dca 0334 | 4 | Declare_Variable Array,With_Constraint 0dcb e404 | | Load 0x2,0x4 0dcc 00db | | Load_Top At_Offset_3 0dcd 8237 | 7 | Call 0x1,0x37 0dce e00f | | Load 0x0,0xf 0dcf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dd0 e00f | | Load 0x0,0xf 0dd1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dd2 0119 | | Execute Any,Check_In_Formal_Type 0dd3 4801 |H | Short_Literal 0x1 0dd4 00da | | Load_Top At_Offset_2 0dd5 01d6 | | Execute Vector,Field_Write 0dd6 6021 |`! | Indirect_Literal Discrete,0xdf8,{0x00000000, 0x00008842} 0dd7 e005 | | Load 0x0,0x5 0dd8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0dd9 e404 | | Load 0x2,0x4 0dda 4801 |H | Short_Literal 0x1 0ddb 4801 |H | Short_Literal 0x1 0ddc e00f | | Load 0x0,0xf 0ddd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dde 0334 | 4 | Declare_Variable Array,With_Constraint 0ddf e404 | | Load 0x2,0x4 0de0 00db | | Load_Top At_Offset_3 0de1 8236 | 6 | Call 0x1,0x36 0de2 e00f | | Load 0x0,0xf 0de3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0de4 e00f | | Load 0x0,0xf 0de5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0de6 0119 | | Execute Any,Check_In_Formal_Type 0de7 4801 |H | Short_Literal 0x1 0de8 00da | | Load_Top At_Offset_2 0de9 01d6 | | Execute Vector,Field_Write 0dea 6009 |` | Indirect_Literal Discrete,0xdf4,{0x00000000, 0x00008844} 0deb e005 | | Load 0x0,0x5 0dec 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ded 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dee TRAP_0d88: 0dee e005 | | Load 0x0,0x5 0def 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0df0 010f | | Execute Exception,Equal 0df1 6801 |h | Jump_Zero 0xdf3 0df2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0df3 0100 | | Execute Exception,Raise 0df4 0000 0000 | | .LITERAL {0x00000000, 0x00008844} 0df8 0000 0000 | | .LITERAL {0x00000000, 0x00008842} 0dfc 0000 0000 | | .LITERAL {0x00000000, 0x00008843} 0e00 0000 0000 | | .LITERAL {0x00000000, 0x0000888e} 0e04 0000 0000 | | .BLANK 0000[0x4] 0e08 ; -------------------------------------------------------------------------------------- 0e08 ; SUBPROGRAM 0e08 ; -------------------------------------------------------------------------------------- 0e08 0e0b | | .CONST 0x0e0b ; Address of begin 0e09 0004 | | .CONST 0x0004 ; Address of exception handler 0e0a 0001 | | .CONST 0x0001 ; Number of locals 0e0b BODY_0e08: 0e0b INIT_0e08: 0e0b 00da | | Load_Top At_Offset_2 0e0c e7fe | | Load 0x3,-0x2 0e0d e402 | | Load 0x2,0x2 0e0e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e0f 6803 |h | Jump_Zero 0xe13 0e10 4801 |H | Short_Literal 0x1 0e11 a7fd | | Store_Unchecked 0x3,-0x3 0e12 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e13 4800 |H | Short_Literal 0x0 0e14 a7fd | | Store_Unchecked 0x3,-0x3 0e15 00db | | Load_Top At_Offset_3 0e16 00db | | Load_Top At_Offset_3 0e17 e402 | | Load 0x2,0x2 0e18 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0e19 c7fe | | Store 0x3,-0x2 0e1a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e1b 0000 0000 | | .BLANK 0000[0x5] 0e20 ; -------------------------------------------------------------------------------------- 0e20 ; SUBPROGRAM 0e20 ; -------------------------------------------------------------------------------------- 0e20 0e23 | # | .CONST 0x0e23 ; Address of begin 0e21 0004 | | .CONST 0x0004 ; Address of exception handler 0e22 0001 | | .CONST 0x0001 ; Number of locals 0e23 BODY_0e20: 0e23 INIT_0e20: 0e23 00da | | Load_Top At_Offset_2 0e24 e007 | | Load 0x0,0x7 0e25 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0e26 7016 |p | Jump_Nonzero 0xe3d 0e27 00da | | Load_Top At_Offset_2 0e28 e00d | | Load 0x0,0xd 0e29 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0e2a 6810 |h | Jump_Zero 0xe3b 0e2b 00da | | Load_Top At_Offset_2 0e2c e00d | | Load 0x0,0xd 0e2d 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0e2e 700a |p | Jump_Nonzero 0xe39 0e2f 00da | | Load_Top At_Offset_2 0e30 e00d | | Load 0x0,0xd 0e31 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0e32 7004 |p | Jump_Nonzero 0xe37 0e33 00da | | Load_Top At_Offset_2 0e34 e00d | | Load 0x0,0xd 0e35 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0e36 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e37 4801 |H | Short_Literal 0x1 0e38 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e39 4800 |H | Short_Literal 0x0 0e3a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e3b 4800 |H | Short_Literal 0x0 0e3c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e3d 4800 |H | Short_Literal 0x0 0e3e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e3f 0000 | | .XXX[0x1] 0e40 ; -------------------------------------------------------------------------------------- 0e40 ; SUBPROGRAM 0e40 ; -------------------------------------------------------------------------------------- 0e40 0e4c | L | .CONST 0x0e4c ; Address of begin 0e41 0004 | | .CONST 0x0004 ; Address of exception handler 0e42 0002 | | .CONST 0x0002 ; Number of locals 0e43 INIT_0e40: 0e43 e5fc | | Load 0x2,-0x4 0e44 00d8 | | Load_Top At_Offset_0 0e45 e5ff | | Load 0x2,-0x1 0e46 e00d | | Load 0x0,0xd 0e47 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e48 e5fe | | Load 0x2,-0x2 0e49 e5ff | | Load 0x2,-0x1 0e4a e013 | | Load 0x0,0x13 0e4b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0e4c BODY_0e40: 0e4c 00d8 | | Load_Top At_Offset_0 0e4d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0e4e 7004 |p | Jump_Nonzero 0xe53 0e4f 00d8 | | Load_Top At_Offset_0 0e50 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e51 00cb | | Action Pop_Block_With_Result 0e52 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0e53 e005 | | Load 0x0,0x5 0e54 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e55 0257 | W | Execute Discrete,Raise 0e56 0000 0000 | | .XXX[0x2] 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; SUBPROGRAM 0e58 ; -------------------------------------------------------------------------------------- 0e58 0e5f | _ | .CONST 0x0e5f ; Address of begin 0e59 0004 | | .CONST 0x0004 ; Address of exception handler 0e5a 0002 | | .CONST 0x0002 ; Number of locals 0e5b INIT_0e58: 0e5b e5fc | | Load 0x2,-0x4 0e5c e5fe | | Load 0x2,-0x2 0e5d e013 | | Load 0x0,0x13 0e5e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 0e5f BODY_0e58: 0e5f 00d8 | | Load_Top At_Offset_0 0e60 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0e61 7004 |p | Jump_Nonzero 0xe66 0e62 00d8 | | Load_Top At_Offset_0 0e63 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e64 00cb | | Action Pop_Block_With_Result 0e65 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0e66 e005 | | Load 0x0,0x5 0e67 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e68 0257 | W | Execute Discrete,Raise 0e69 0000 0000 | | .BLANK 0000[0x7] 0e70 ; -------------------------------------------------------------------------------------- 0e70 ; SUBPROGRAM 0e70 ; -------------------------------------------------------------------------------------- 0e70 0e73 | s | .CONST 0x0e73 ; Address of begin 0e71 0e91 | | .CONST 0x0e91 ; Address of exception handler 0e72 0001 | | .CONST 0x0001 ; Number of locals 0e73 BODY_0e70: 0e73 INIT_0e70: 0e73 e5f8 | | Load 0x2,-0x8 0e74 e5fd | | Load 0x2,-0x3 0e75 e5ff | | Load 0x2,-0x1 0e76 e00c | | Load 0x0,0xc 0e77 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0e78 e005 | | Load 0x0,0x5 0e79 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e7a e5f8 | | Load 0x2,-0x8 0e7b 4801 |H | Short_Literal 0x1 0e7c 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e7e 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e80 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e82 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e84 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e86 e5f9 | | Load 0x2,-0x7 0e87 e5fb | | Load 0x2,-0x5 0e88 e5fc | | Load 0x2,-0x4 0e89 00ea | | Load_Encached Null_String_Cache 0e8a e5fd | | Load 0x2,-0x3 0e8b e5fe | | Load 0x2,-0x2 0e8c e5ff | | Load 0x2,-0x1 0e8d e01c | | Load 0x0,0x1c 0e8e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0e8f c5f7 | | Store 0x2,-0x9 0e90 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e91 TRAP_0e70: 0e91 e005 | | Load 0x0,0x5 0e92 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e93 010f | | Execute Exception,Equal 0e94 681b |h | Jump_Zero 0xeb0 0e95 4801 |H | Short_Literal 0x1 0e96 a403 | | Store_Unchecked 0x2,0x3 0e97 e005 | | Load 0x0,0x5 0e98 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e99 e5f8 | | Load 0x2,-0x8 0e9a 4801 |H | Short_Literal 0x1 0e9b 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e9d 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0e9f 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0ea1 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0ea3 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "<DEFAULT>" 0ea5 e5f9 | | Load 0x2,-0x7 0ea6 e5fb | | Load 0x2,-0x5 0ea7 e5fc | | Load 0x2,-0x4 0ea8 00ea | | Load_Encached Null_String_Cache 0ea9 00ea | | Load_Encached Null_String_Cache 0eaa e5fe | | Load 0x2,-0x2 0eab e5ff | | Load 0x2,-0x1 0eac e01c | | Load 0x0,0x1c 0ead 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0eae c5f7 | | Store 0x2,-0x9 0eaf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0eb0 0100 | | Execute Exception,Raise 0eb1 0000 0000 | | .BLANK 0000[0x7] 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 ; SUBPROGRAM 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 0ec7 | | .CONST 0x0ec7 ; Address of begin 0eb9 0004 | | .CONST 0x0004 ; Address of exception handler 0eba 0003 | | .CONST 0x0003 ; Number of locals 0ebb INIT_0eb8: 0ebb e007 | | Load 0x0,0x7 0ebc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ebd 02c7 | | Declare_Variable Any 0ebe e5fe | | Load 0x2,-0x2 0ebf 4800 |H | Short_Literal 0x0 0ec0 e404 | | Load 0x2,0x4 0ec1 e00d | | Load 0x0,0xd 0ec2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0ec3 a602 | | Store_Unchecked 0x3,0x2 0ec4 00d8 | | Load_Top At_Offset_0 0ec5 e00d | | Load 0x0,0xd 0ec6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ec7 BODY_0eb8: 0ec7 e5fe | | Load 0x2,-0x2 0ec8 00da | | Load_Top At_Offset_2 0ec9 e00d | | Load 0x0,0xd 0eca 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ecb e403 | | Load 0x2,0x3 0ecc 017d | } | Execute Record,Structure_Write 0ecd e403 | | Load 0x2,0x3 0ece 00d9 | | Load_Top At_Offset_1 0ecf e007 | | Load 0x0,0x7 0ed0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ed1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ed2 e01b | | Load 0x0,0x1b 0ed3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ed4 a402 | | Store_Unchecked 0x2,0x2 0ed5 e402 | | Load 0x2,0x2 0ed6 6808 |h | Jump_Zero 0xedf 0ed7 e403 | | Load 0x2,0x3 0ed8 00d9 | | Load_Top At_Offset_1 0ed9 e007 | | Load 0x0,0x7 0eda 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0edb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0edc e01b | | Load 0x0,0x1b 0edd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ede a402 | | Store_Unchecked 0x2,0x2 0edf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ee0 ; -------------------------------------------------------------------------------------- 0ee0 ; SUBPROGRAM 0ee0 ; -------------------------------------------------------------------------------------- 0ee0 0ee8 | | .CONST 0x0ee8 ; Address of begin 0ee1 0004 | | .CONST 0x0004 ; Address of exception handler 0ee2 0002 | | .CONST 0x0002 ; Number of locals 0ee3 INIT_0ee0: 0ee3 e404 | | Load 0x2,0x4 0ee4 e405 | | Load 0x2,0x5 0ee5 e407 | | Load 0x2,0x7 0ee6 e409 | | Load 0x2,0x9 0ee7 822f | / | Call 0x1,0x2f 0ee8 BODY_0ee0: 0ee8 4801 |H | Short_Literal 0x1 0ee9 e229 | ) | Load 0x1,0x29 0eea 00da | | Load_Top At_Offset_2 0eeb e015 | | Load 0x0,0x15 0eec 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0eed 7043 |pC | Jump_Nonzero 0xf31 0eee e405 | | Load 0x2,0x5 0eef 6826 |h& | Jump_Zero 0xf16 0ef0 e404 | | Load 0x2,0x4 0ef1 4801 |H | Short_Literal 0x1 0ef2 4803 |H | Short_Literal 0x3 0ef3 e00f | | Load 0x0,0xf 0ef4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ef5 0334 | 4 | Declare_Variable Array,With_Constraint 0ef6 e407 | | Load 0x2,0x7 0ef7 e00d | | Load 0x0,0xd 0ef8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0ef9 e00f | | Load 0x0,0xf 0efa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0efb 0119 | | Execute Any,Check_In_Formal_Type 0efc 4801 |H | Short_Literal 0x1 0efd 00da | | Load_Top At_Offset_2 0efe 01d6 | | Execute Vector,Field_Write 0eff 00da | | Load_Top At_Offset_2 0f00 e00f | | Load 0x0,0xf 0f01 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f02 e00f | | Load 0x0,0xf 0f03 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f04 0119 | | Execute Any,Check_In_Formal_Type 0f05 4802 |H | Short_Literal 0x2 0f06 00da | | Load_Top At_Offset_2 0f07 01d6 | | Execute Vector,Field_Write 0f08 0092 0f75 | u| Action Push_String_Extended,0xf75 ; "secondary " 0f0a e00f | | Load 0x0,0xf 0f0b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f0c e00f | | Load 0x0,0xf 0f0d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f0e 0119 | | Execute Any,Check_In_Formal_Type 0f0f 4803 |H | Short_Literal 0x3 0f10 00da | | Load_Top At_Offset_2 0f11 01d6 | | Execute Vector,Field_Write 0f12 6021 |`! | Indirect_Literal Discrete,0xf34,{0x00000000, 0x00008845} 0f13 e005 | | Load 0x0,0x5 0f14 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f15 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f16 e404 | | Load 0x2,0x4 0f17 4801 |H | Short_Literal 0x1 0f18 4802 |H | Short_Literal 0x2 0f19 e00f | | Load 0x0,0xf 0f1a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f1b 0334 | 4 | Declare_Variable Array,With_Constraint 0f1c e407 | | Load 0x2,0x7 0f1d e00d | | Load 0x0,0xd 0f1e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0f1f e00f | | Load 0x0,0xf 0f20 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f21 0119 | | Execute Any,Check_In_Formal_Type 0f22 4801 |H | Short_Literal 0x1 0f23 00da | | Load_Top At_Offset_2 0f24 01d6 | | Execute Vector,Field_Write 0f25 00da | | Load_Top At_Offset_2 0f26 e00f | | Load 0x0,0xf 0f27 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f28 e00f | | Load 0x0,0xf 0f29 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f2a 0119 | | Execute Any,Check_In_Formal_Type 0f2b 4802 |H | Short_Literal 0x2 0f2c 00da | | Load_Top At_Offset_2 0f2d 01d6 | | Execute Vector,Field_Write 0f2e 6005 |` | Indirect_Literal Discrete,0xf34,{0x00000000, 0x00008845} 0f2f e005 | | Load 0x0,0x5 0f30 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f31 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f32 0000 0000 | | .XXX[0x2] 0f34 0000 0000 | | .LITERAL {0x00000000, 0x00008845} 0f38 ; -------------------------------------------------------------------------------------- 0f38 ; STRING TABLE 0f38 ; -------------------------------------------------------------------------------------- 0f38 007e | ~ | .STRTAB 0x007e->0x0f77 ; "Rcf." 0f39 0080 | | .STRTAB 0x0080->0x0f79 ; "<error>" 0f3a 0085 | | .STRTAB 0x0085->0x0f7c ; "Create_Secondary" 0f3b 0093 | | .STRTAB 0x0093->0x0f84 ; "Primary_Unit" 0f3c 009d | | .STRTAB 0x009d->0x0f8a ; "command" 0f3d 00a2 | | .STRTAB 0x00a2->0x0f8e ; "secondary_text" 0f3e 00ae | | .STRTAB 0x00ae->0x0f95 ; "Remote_Name" 0f3f 00b7 | | .STRTAB 0x00b7->0x0f9a ; "Process_primary => " 0f40 00c8 | | .STRTAB 0x00c8->0x0fa4 ; ", Response" 0f41 00d0 | | .STRTAB 0x00d0->0x0fa9 ; "Remove_Secondary" 0f42 00de | | .STRTAB 0x00de->0x0fb1 ; "secondary_referencer" 0f43 00f0 | | .STRTAB 0x00f0->0x0fbb ; "Response" 0f44 00f6 | | .STRTAB 0x00f6->0x0fbf ; "Show_Secondary" 0f45 0102 | | .STRTAB 0x0102->0x0fc6 ; "Edit_Secondary" 0f46 010e | | .STRTAB 0x010e->0x0fcd ; "In_Place => " 0f47 0118 | | .STRTAB 0x0118->0x0fd3 ; ", Visible => " 0f48 0123 | # | .STRTAB 0x0123->0x0fd9 ; "Set_Process_Primary" 0f49 0134 | 4 | .STRTAB 0x0134->0x0fe3 ; ", Value => " 0f4a 013d | = | .STRTAB 0x013d->0x0fe8 ; "Set_Secondary_Command" 0f4b 0150 | P | .STRTAB 0x0150->0x0ff3 ; "Command => " 0f4c 0159 | Y | .STRTAB 0x0159->0x0ff8 ; ", Secondary_referencer" 0f4d 016d | m | .STRTAB 0x016d->0x1003 ; "Link" 0f4e 016f | o | .STRTAB 0x016f->0x1005 ; "Main_Unit" 0f4f 0176 | v | .STRTAB 0x0176->0x100a ; "Make_Uncoded_Units => " 0f50 018a | | .STRTAB 0x018a->0x1015 ; ", Executable_Name" 0f51 0199 | | .STRTAB 0x0199->0x101d ; "Show_Remote_Unit_Name" 0f52 01ac | | .STRTAB 0x01ac->0x1028 ; "Unit" 0f53 01ae | | .STRTAB 0x01ae->0x102a ; "Show_Units" 0f54 01b6 | | .STRTAB 0x01b6->0x102f ; "Remote_Name => " 0f55 01c3 | | .STRTAB 0x01c3->0x1036 ; ", Consistency => " 0f56 01d2 | | .STRTAB 0x01d2->0x103f ; "Set_Unit_Option" 0f57 01df | | .STRTAB 0x01df->0x1046 ; "Option_Switch" 0f58 01ea | | .STRTAB 0x01ea->0x104d ; ", switch_Value" 0f59 01f6 | | .STRTAB 0x01f6->0x1054 ; ", Units" 0f5a 01fb | | .STRTAB 0x01fb->0x1057 ; ", Switch_Value" 0f5b 0207 | | .STRTAB 0x0207->0x105e ; "Display_Unit_Options" 0f5c 0219 | | .STRTAB 0x0219->0x1068 ; "Units" 0f5d 021c | | .STRTAB 0x021c->0x106b ; "Remove_Unit_Option" 0f5e 022c | , | .STRTAB 0x022c->0x1074 ; "Refresh_View" 0f5f 0236 | 6 | .STRTAB 0x0236->0x107a ; "View" 0f60 0238 | 8 | .STRTAB 0x0238->0x107c ; ", Retain_History => " 0f61 024a | J | .STRTAB 0x024a->0x1086 ; "Show_Remote_Information" 0f62 025f | _ | .STRTAB 0x025f->0x1091 ; "Execute_Remote_Command" 0f63 0273 | s | .STRTAB 0x0273->0x109c ; "remote_command" 0f64 027f | | .STRTAB 0x027f->0x10a3 ; ", remote_machine" 0f65 028d | | .STRTAB 0x028d->0x10ab ; ", remote_username" 0f66 029c | | .STRTAB 0x029c->0x10b4 ; ", remote_password" 0f67 02ab | | .STRTAB 0x02ab->0x10bc ; ", remote_directory" 0f68 02bb | | .STRTAB 0x02bb->0x10c5 ; ", The_Key" 0f69 02c2 | | .STRTAB 0x02c2->0x10ca ; "Collapse_secondary_referencers" 0f6a 02de | | .STRTAB 0x02de->0x10d9 ; "directory => " 0f6b 02e9 | | .STRTAB 0x02e9->0x10df ; "Expand_secondary_referencers" 0f6c 0303 | | .STRTAB 0x0303->0x10ed ; "<DEFAULT>" 0f6d 030a | | .STRTAB 0x030a->0x10f2 ; "$" 0f6e 0309 | | .STRTAB 0x0309->0x10f2 ; "null remote directory" 0f6f 031c | | .STRTAB 0x031c->0x10fd ; "error during postprocess command" 0f70 033a | : | .STRTAB 0x033a->0x110d ; ".??'c(Ada)" 0f71 0342 | B | .STRTAB 0x0342->0x1112 ; "<WORLDS>" 0f72 0348 | H | .STRTAB 0x0348->0x1116 ; "Expression does not name a linkable object" 0f73 0370 | p | .STRTAB 0x0370->0x112b ; "Expression names more than one object, but an executable name was specified" 0f74 03b9 | | .STRTAB 0x03b9->0x1150 ; "Unexpected exception caught while refreshing " 0f75 03e4 | | .STRTAB 0x03e4->0x1167 ; "secondary " 0f76 03ec | | .STREND 0x03ec->0x116c 0f77 5263 662e |Rcf.| .STRTAB_STRINGS 116c 0000 0000 | | .BLANK 0000[0x4] 1170 ; -------------------------------------------------------------------------------------- 1170 ; Debug Table 1170 ; -------------------------------------------------------------------------------------- 1170 0004 000c | | .DEBUG4 0x0004,0x000c,0x1693,0x0000,0x0001,0x0000 1176 0790 5391 | S | .XXX[0x8] 1178 d311 5211 | R | 117a 4e94 1315 |N | 117c 5351 4000 |SQ@ | 117e 0000 0000 | | .BLANK 0000[0x7] 1185 0020 0000 | | .XXX[0x14] 1187 0780 0000 | | 1189 0200 0000 | | 118b 2000 0000 | | 118d 9800 0000 | | 118f 0080 0000 | | 1191 0f2a 2aa1 | ** | 1193 22a2 a422 |" "| 1195 9d28 262a | (&*| 1197 a6a2 8000 | | 1199 0000 0000 | | .BLANK 0000[0x7] 11a0 0040 0000 | @ | .XXX[0x13] 11a2 0f00 0000 | | 11a4 0100 0000 | | 11a6 4000 0001 |@ | 11a8 3000 0000 |0 | 11aa 0100 0000 | | 11ac 1e58 3a45 | X:E| 11ae 4344 5245 |CDRE| 11b0 3a50 4c55 |:PLU| 11b2 4d45 |ME | 11b3 0000 0000 | | .BLANK 0000[0x8] 11bb 0080 0000 | | .XXX[0x13] 11bd 1e00 0000 | | 11bf 0200 0000 | | 11c1 8000 0002 | | 11c3 6000 0000 |` | 11c5 0200 0000 | | 11c7 3cb2 748a |< t | 11c9 8688 a48a | | 11cb 74a0 98aa |t | 11cd 9a8a | | 11ce 0000 0000 | | .BLANK 0000[0x8] 11d6 0100 0000 | | .XXX[0x13] 11d8 3c00 0000 |< | 11da 0400 0001 | | 11dc 0000 0004 | | 11de c000 0000 | | 11e0 0400 0000 | | 11e2 7951 0525 |yQ %| 11e4 3131 14e8 |11 | 11e6 e941 3155 | A1U| 11e8 3514 |5 | 11e9 0000 0000 | | .BLANK 0000[0x8] 11f1 0200 0000 | | .XXX[0xf] 11f3 7800 0000 |x | 11f5 0800 0002 | | 11f7 0000 0009 | | 11f9 8000 0000 | | 11fb 0800 0000 | | 11fd f282 927a | z| 11ff 327a |2z |