|
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_ccb0b3
└─⟦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 1168 | h | .CONST 0x1168 ; 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 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 000f 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0011 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 0013 029a 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Visible,Unelaborated 0015 00bf | | Action Accept_Activation 0016 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call 0018 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call 001a 029d 09b3 | | Declare_Subprogram INIT_09b0,For_Outer_Call 001c 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call 001e 029d 0a2b | +| Declare_Subprogram INIT_0a28,For_Outer_Call 0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0025 00c7 | | Action Elaborate_Subprogram 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0027 00c7 | | Action Elaborate_Subprogram 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0080 | | .CONST 0x0080 ; Address of begin 0031 01cc | | .CONST 0x01cc ; Address of exception handler 0032 0014 | | .CONST 0x0014 ; Number of locals 0033 INIT_0030: 0033 0092 0f84 | | Action Push_String_Extended,0xf84 ; "Check_Consistency" 0035 e001 | | Load 0x0,0x1 0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0038 e002 | | Load 0x0,0x2 0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003a 02c7 | | Declare_Variable Any 003b e5fd | | Load 0x2,-0x3 003c e002 | | Load 0x0,0x2 003d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 003e a404 | | Store_Unchecked 0x2,0x4 003f e003 | | Load 0x0,0x3 0040 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0041 02c7 | | Declare_Variable Any 0042 00d8 | | Load_Top At_Offset_0 0043 1c00 | | Execute_Immediate Run_Utility,0x0 0044 00e1 | | Load_Encached Boolean_Cache 0045 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0046 00e1 | | Load_Encached Boolean_Cache 0047 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0048 00e1 | | Load_Encached Boolean_Cache 0049 e003 | | Load 0x0,0x3 004a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004b 02c7 | | Declare_Variable Any 004c 00d8 | | Load_Top At_Offset_0 004d 1c00 | | Execute_Immediate Run_Utility,0x0 004e e003 | | Load 0x0,0x3 004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0050 02c7 | | Declare_Variable Any 0051 00d8 | | Load_Top At_Offset_0 0052 1c00 | | Execute_Immediate Run_Utility,0x0 0053 e004 | | Load 0x0,0x4 0054 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0055 02c7 | | Declare_Variable Any 0056 00d8 | | Load_Top At_Offset_0 0057 1c00 | | Execute_Immediate Run_Utility,0x0 0058 00e2 | | Load_Encached Integer_Cache 0059 e003 | | Load 0x0,0x3 005a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 005c 02c7 | | Declare_Variable Any 005d 00d8 | | Load_Top At_Offset_0 005e 1c00 | | Execute_Immediate Run_Utility,0x0 005f e005 | | Load 0x0,0x5 0060 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0061 e003 | | Load 0x0,0x3 0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0063 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0064 02c7 | | Declare_Variable Any 0065 e006 | | Load 0x0,0x6 0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0067 e003 | | Load 0x0,0x3 0068 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0069 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006a a40f | | Store_Unchecked 0x2,0xf 006b e003 | | Load 0x0,0x3 006c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006e 02c7 | | Declare_Variable Any 006f 00d8 | | Load_Top At_Offset_0 0070 1c00 | | Execute_Immediate Run_Utility,0x0 0071 e003 | | Load 0x0,0x3 0072 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0073 e003 | | Load 0x0,0x3 0074 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0075 0322 | " | Declare_Variable Record 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 e002 | | Load 0x0,0x2 0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007a 02c7 | | Declare_Variable Any 007b e002 | | Load 0x0,0x2 007c 180e | | Execute Package,Field_Execute,Field_Number 0xe 007d a413 | | Store_Unchecked 0x2,0x13 007e 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call 0080 BODY_0030: 0080 e404 | | Load 0x2,0x4 0081 e002 | | Load 0x0,0x2 0082 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0083 e404 | | Load 0x2,0x4 0084 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0086 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 0088 e5ff | | Load 0x2,-0x1 0089 e007 | | Load 0x0,0x7 008a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008b 01cc | | Execute Vector,Catenate 008c 0092 0f87 | | Action Push_String_Extended,0xf87 ; "Compare_Objects => " 008e 01cc | | Execute Vector,Catenate 008f e5fe | | Load 0x2,-0x2 0090 00e1 | | Load_Encached Boolean_Cache 0091 011c | | Execute Any,Convert_Unchecked 0092 1c01 | | Execute_Immediate Run_Utility,0x1 0093 01cc | | Execute Vector,Catenate 0094 0092 0f88 | | Action Push_String_Extended,0xf88 ; ", Response" 0096 01cc | | Execute Vector,Catenate 0097 e5fd | | Load 0x2,-0x3 0098 e007 | | Load 0x0,0x7 0099 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009a 01cc | | Execute Vector,Catenate 009b e402 | | Load 0x2,0x2 009c e007 | | Load 0x0,0x7 009d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009e e404 | | Load 0x2,0x4 009f e008 | | Load 0x0,0x8 00a0 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a1 e404 | | Load 0x2,0x4 00a2 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 00a4 e5ff | | Load 0x2,-0x1 00a5 e008 | | Load 0x0,0x8 00a6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a7 e404 | | Load 0x2,0x4 00a8 4801 |H | Short_Literal 0x1 00a9 e5ff | | Load 0x2,-0x1 00aa e009 | | Load 0x0,0x9 00ab 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ac c40d | | Store 0x2,0xd 00ad e404 | | Load 0x2,0x4 00ae 4801 |H | Short_Literal 0x1 00af e404 | | Load 0x2,0x4 00b0 4801 |H | Short_Literal 0x1 00b1 e40d | | Load 0x2,0xd 00b2 e009 | | Load 0x0,0x9 00b3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00b4 e009 | | Load 0x0,0x9 00b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b6 c405 | | Store 0x2,0x5 00b7 e404 | | Load 0x2,0x4 00b8 e405 | | Load 0x2,0x5 00b9 e009 | | Load 0x0,0x9 00ba 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00bb a408 | | Store_Unchecked 0x2,0x8 00bc e404 | | Load 0x2,0x4 00bd e405 | | Load 0x2,0x5 00be e008 | | Load 0x0,0x8 00bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c0 e404 | | Load 0x2,0x4 00c1 e405 | | Load 0x2,0x5 00c2 e008 | | Load 0x0,0x8 00c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c4 e003 | | Load 0x0,0x3 00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c6 e410 | | Load 0x2,0x10 00c7 0120 | | Execute Any,Is_Value 00c8 6804 |h | Jump_Zero 0xcd 00c9 e003 | | Load 0x0,0x3 00ca 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00cb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00cc 7801 |x | Jump 0xce 00cd e410 | | Load 0x2,0x10 00ce 618d |a | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000} 00cf e00a | | Load 0x0,0xa 00d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d1 4800 |H | Short_Literal 0x0 00d2 e405 | | Load 0x2,0x5 00d3 e003 | | Load 0x0,0x3 00d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d6 c410 | | Store 0x2,0x10 00d7 c411 | | Store 0x2,0x11 00d8 00db | | Load_Top At_Offset_3 00d9 6824 |h$ | Jump_Zero 0xfe 00da e404 | | Load 0x2,0x4 00db 4801 |H | Short_Literal 0x1 00dc 4802 |H | Short_Literal 0x2 00dd e00b | | Load 0x0,0xb 00de 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00df 035b | [ | Declare_Type Array,Constrained 00e0 0337 | 7 | Declare_Variable Array 00e1 e405 | | Load 0x2,0x5 00e2 e00b | | Load 0x0,0xb 00e3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00e4 e00b | | Load 0x0,0xb 00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e6 0119 | | Execute Any,Check_In_Formal_Type 00e7 4801 |H | Short_Literal 0x1 00e8 00da | | Load_Top At_Offset_2 00e9 01d6 | | Execute Vector,Field_Write 00ea e411 | | Load 0x2,0x11 00eb e00b | | Load 0x0,0xb 00ec 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00ed e00b | | Load 0x0,0xb 00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ef 0119 | | Execute Any,Check_In_Formal_Type 00f0 4802 |H | Short_Literal 0x2 00f1 00da | | Load_Top At_Offset_2 00f2 01d6 | | Execute Vector,Field_Write 00f3 6164 |ad | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008866} 00f4 e001 | | Load 0x0,0x1 00f5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00f6 e00b | | Load 0x0,0xb 00f7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00f8 615b |a[ | Indirect_Literal Discrete,0x254,{0x00000000, 0x00008865} 00f9 e001 | | Load 0x0,0x1 00fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fb a403 | | Store_Unchecked 0x2,0x3 00fc e00c | | Load 0x0,0xc 00fd 0257 | W | Execute Discrete,Raise 00fe e003 | | Load 0x0,0x3 00ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0100 e006 | | Load 0x0,0x6 0101 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0102 e410 | | Load 0x2,0x10 0103 e003 | | Load 0x0,0x3 0104 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0105 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0106 c411 | | Store 0x2,0x11 0107 00db | | Load_Top At_Offset_3 0108 6824 |h$ | Jump_Zero 0x12d 0109 e404 | | Load 0x2,0x4 010a 4801 |H | Short_Literal 0x1 010b 4802 |H | Short_Literal 0x2 010c e00b | | Load 0x0,0xb 010d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010e 035b | [ | Declare_Type Array,Constrained 010f 0337 | 7 | Declare_Variable Array 0110 e405 | | Load 0x2,0x5 0111 e00b | | Load 0x0,0xb 0112 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0113 e00b | | Load 0x0,0xb 0114 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0115 0119 | | Execute Any,Check_In_Formal_Type 0116 4801 |H | Short_Literal 0x1 0117 00da | | Load_Top At_Offset_2 0118 01d6 | | Execute Vector,Field_Write 0119 e411 | | Load 0x2,0x11 011a e00b | | Load 0x0,0xb 011b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 011c e00b | | Load 0x0,0xb 011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011e 0119 | | Execute Any,Check_In_Formal_Type 011f 4802 |H | Short_Literal 0x2 0120 00da | | Load_Top At_Offset_2 0121 01d6 | | Execute Vector,Field_Write 0122 612d |a- | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008867} 0123 e001 | | Load 0x0,0x1 0124 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0125 e00b | | Load 0x0,0xb 0126 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0127 612c |a, | Indirect_Literal Discrete,0x254,{0x00000000, 0x00008865} 0128 e001 | | Load 0x0,0x1 0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012a a403 | | Store_Unchecked 0x2,0x3 012b e00c | | Load 0x0,0xc 012c 0257 | W | Execute Discrete,Raise 012d e408 | | Load 0x2,0x8 012e 7028 |p( | Jump_Nonzero 0x157 012f e403 | | Load 0x2,0x3 0130 e40b | | Load 0x2,0xb 0131 e404 | | Load 0x2,0x4 0132 e002 | | Load 0x0,0x2 0133 180e | | Execute Package,Field_Execute,Field_Number 0xe 0134 e002 | | Load 0x0,0x2 0135 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0136 e002 | | Load 0x0,0x2 0137 180e | | Execute Package,Field_Execute,Field_Number 0xe 0138 e002 | | Load 0x0,0x2 0139 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 013a 484d |HM | Short_Literal 0x4d 013b e002 | | Load 0x0,0x2 013c 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 013d e002 | | Load 0x0,0x2 013e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 013f 4800 |H | Short_Literal 0x0 0140 e002 | | Load 0x0,0x2 0141 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0142 e405 | | Load 0x2,0x5 0143 e009 | | Load 0x0,0x9 0144 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0145 e404 | | Load 0x2,0x4 0146 e405 | | Load 0x2,0x5 0147 800d | | Call 0x0,0xd 0148 e404 | | Load 0x2,0x4 0149 e405 | | Load 0x2,0x5 014a e009 | | Load 0x0,0x9 014b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 014c e00e | | Load 0x0,0xe 014d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014e c40b | | Store 0x2,0xb 014f c403 | | Store 0x2,0x3 0150 4800 |H | Short_Literal 0x0 0151 e403 | | Load 0x2,0x3 0152 e001 | | Load 0x0,0x1 0153 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0154 7002 |p | Jump_Nonzero 0x157 0155 e00f | | Load 0x0,0xf 0156 0257 | W | Execute Discrete,Raise 0157 e404 | | Load 0x2,0x4 0158 e405 | | Load 0x2,0x5 0159 e009 | | Load 0x0,0x9 015a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 015b 00db | | Load_Top At_Offset_3 015c 017d | } | Execute Record,Structure_Write 015d 00cf | | Action Mark_Auxiliary 015e 7846 |xF | Jump 0x1a5 015f 4800 |H | Short_Literal 0x0 0160 a407 | | Store_Unchecked 0x2,0x7 0161 e404 | | Load 0x2,0x4 0162 4801 |H | Short_Literal 0x1 0163 e40d | | Load 0x2,0xd 0164 e009 | | Load 0x0,0x9 0165 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0166 c40a | | Store 0x2,0xa 0167 e40a | | Load 0x2,0xa 0168 e009 | | Load 0x0,0x9 0169 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 016a 7031 |p1 | Jump_Nonzero 0x19c 016b e001 | | Load 0x0,0x1 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 00e2 | | Load_Encached Integer_Cache 016e 00e1 | | Load_Encached Boolean_Cache 016f e409 | | Load 0x2,0x9 0170 0120 | | Execute Any,Is_Value 0171 6803 |h | Jump_Zero 0x175 0172 e003 | | Load 0x0,0x3 0173 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0174 7801 |x | Jump 0x176 0175 e409 | | Load 0x2,0x9 0176 e404 | | Load 0x2,0x4 0177 e40a | | Load 0x2,0xa 0178 e010 | | Load 0x0,0x10 0179 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 017a c409 | | Store 0x2,0x9 017b c406 | | Store 0x2,0x6 017c c40c | | Store 0x2,0xc 017d c403 | | Store 0x2,0x3 017e 4800 |H | Short_Literal 0x0 017f e403 | | Load 0x2,0x3 0180 e001 | | Load 0x0,0x1 0181 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0182 0f00 | | Execute_Immediate Equal,0x0 0183 e406 | | Load 0x2,0x6 0184 0f00 | | Execute_Immediate Equal,0x0 0185 0278 | x | Execute Discrete,Or 0186 6815 |h | Jump_Zero 0x19c 0187 e404 | | Load 0x2,0x4 0188 4801 |H | Short_Literal 0x1 0189 4801 |H | Short_Literal 0x1 018a e00b | | Load 0x0,0xb 018b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018c 035b | [ | Declare_Type Array,Constrained 018d 0337 | 7 | Declare_Variable Array 018e e40a | | Load 0x2,0xa 018f e009 | | Load 0x0,0x9 0190 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0191 e00b | | Load 0x0,0xb 0192 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0193 0119 | | Execute Any,Check_In_Formal_Type 0194 4801 |H | Short_Literal 0x1 0195 00da | | Load_Top At_Offset_2 0196 01d6 | | Execute Vector,Field_Write 0197 60b4 |` | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000889d} 0198 e001 | | Load 0x0,0x1 0199 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 019a 4801 |H | Short_Literal 0x1 019b a407 | | Store_Unchecked 0x2,0x7 019c e407 | | Load 0x2,0x7 019d 7001 |p | Jump_Nonzero 0x19f 019e 8414 | | Call 0x2,0x14 019f e40d | | Load 0x2,0xd 01a0 e003 | | Load 0x0,0x3 01a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a3 c40d | | Store 0x2,0xd 01a4 00c9 | | Action Pop_Auxiliary_Loop 01a5 e40d | | Load 0x2,0xd 01a6 e003 | | Load 0x0,0x3 01a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01a9 6fb5 |o | Jump_Zero 0x15f 01aa 00ce | | Action Pop_Auxiliary 01ab e408 | | Load 0x2,0x8 01ac 700b |p | Jump_Nonzero 0x1b8 01ad e403 | | Load 0x2,0x3 01ae e40b | | Load 0x2,0xb 01af e404 | | Load 0x2,0x4 01b0 00d8 | | Load_Top At_Offset_0 01b1 e405 | | Load 0x2,0x5 01b2 e009 | | Load 0x0,0x9 01b3 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 01b4 e00e | | Load 0x0,0xe 01b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b6 c40b | | Store 0x2,0xb 01b7 c403 | | Store 0x2,0x3 01b8 e003 | | Load 0x0,0x3 01b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ba e006 | | Load 0x0,0x6 01bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01bc e40f | | Load 0x2,0xf 01bd e003 | | Load 0x0,0x3 01be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c0 c411 | | Store 0x2,0x11 01c1 e404 | | Load 0x2,0x4 01c2 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 01c4 e402 | | Load 0x2,0x2 01c5 e403 | | Load 0x2,0x3 01c6 e007 | | Load 0x0,0x7 01c7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c8 00d9 | | Load_Top At_Offset_1 01c9 e002 | | Load 0x0,0x2 01ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01cc TRAP_0030: 01cc e00c | | Load 0x0,0xc 01cd 010f | | Execute Exception,Equal 01ce 6804 |h | Jump_Zero 0x1d3 01cf 00da | | Load_Top At_Offset_2 01d0 e002 | | Load 0x0,0x2 01d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d3 e00f | | Load 0x0,0xf 01d4 010f | | Execute Exception,Equal 01d5 6814 |h | Jump_Zero 0x1ea 01d6 e003 | | Load 0x0,0x3 01d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d8 e006 | | Load 0x0,0x6 01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01da e40f | | Load 0x2,0xf 01db e003 | | Load 0x0,0x3 01dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01de c411 | | Store 0x2,0x11 01df e404 | | Load 0x2,0x4 01e0 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 01e2 e402 | | Load 0x2,0x2 01e3 e403 | | Load 0x2,0x3 01e4 e007 | | Load 0x0,0x7 01e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e6 00da | | Load_Top At_Offset_2 01e7 e002 | | Load 0x0,0x2 01e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ea e001 | | Load 0x0,0x1 01eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01ec 010f | | Execute Exception,Equal 01ed 6817 |h | Jump_Zero 0x205 01ee e001 | | Load 0x0,0x1 01ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f0 a403 | | Store_Unchecked 0x2,0x3 01f1 e003 | | Load 0x0,0x3 01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f3 e006 | | Load 0x0,0x6 01f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f5 e40f | | Load 0x2,0xf 01f6 e003 | | Load 0x0,0x3 01f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f9 c411 | | Store 0x2,0x11 01fa e404 | | Load 0x2,0x4 01fb 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 01fd e402 | | Load 0x2,0x2 01fe e403 | | Load 0x2,0x3 01ff e007 | | Load 0x0,0x7 0200 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0201 00da | | Load_Top At_Offset_2 0202 e002 | | Load 0x0,0x2 0203 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0204 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0205 4884 |H | Short_Literal 0x84 0206 010f | | Execute Exception,Equal 0207 6814 |h | Jump_Zero 0x21c 0208 e003 | | Load 0x0,0x3 0209 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020a e006 | | Load 0x0,0x6 020b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 020c e40f | | Load 0x2,0xf 020d e003 | | Load 0x0,0x3 020e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 020f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0210 c411 | | Store 0x2,0x11 0211 e404 | | Load 0x2,0x4 0212 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0214 e402 | | Load 0x2,0x2 0215 e403 | | Load 0x2,0x3 0216 e007 | | Load 0x0,0x7 0217 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0218 00da | | Load_Top At_Offset_2 0219 e002 | | Load 0x0,0x2 021a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 021b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 021c e001 | | Load 0x0,0x1 021d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 021e 010f | | Execute Exception,Equal 021f 6815 |h | Jump_Zero 0x235 0220 e003 | | Load 0x0,0x3 0221 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0222 e006 | | Load 0x0,0x6 0223 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0224 e40f | | Load 0x2,0xf 0225 e003 | | Load 0x0,0x3 0226 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0227 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0228 c411 | | Store 0x2,0x11 0229 e404 | | Load 0x2,0x4 022a 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 022c e402 | | Load 0x2,0x2 022d e403 | | Load 0x2,0x3 022e e007 | | Load 0x0,0x7 022f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0230 00da | | Load_Top At_Offset_2 0231 e002 | | Load 0x0,0x2 0232 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0233 00d8 | | Load_Top At_Offset_0 0234 0101 | | Execute Exception,Reraise 0235 e003 | | Load 0x0,0x3 0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0237 e006 | | Load 0x0,0x6 0238 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0239 e40f | | Load 0x2,0xf 023a e003 | | Load 0x0,0x3 023b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 023c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023d c411 | | Store 0x2,0x11 023e e404 | | Load 0x2,0x4 023f 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0241 e402 | | Load 0x2,0x2 0242 e403 | | Load 0x2,0x3 0243 e007 | | Load 0x0,0x7 0244 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0245 00da | | Load_Top At_Offset_2 0246 e002 | | Load 0x0,0x2 0247 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0248 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0249 0000 0000 | | .XXX[0x3] 024b 0000 | | 024c 0000 0000 | | .LITERAL {0x00000000, 0x0000889d} 0250 0000 0000 | | .LITERAL {0x00000000, 0x00008867} 0254 0000 0000 | | .LITERAL {0x00000000, 0x00008865} 0258 0000 0000 | | .LITERAL {0x00000000, 0x00008866} 025c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 02c6 | | .CONST 0x02c6 ; Address of begin 0261 0452 | R | .CONST 0x0452 ; Address of exception handler 0262 001c | | .CONST 0x001c ; Number of locals 0263 INIT_0260: 0263 0092 0f89 | | Action Push_String_Extended,0xf89 ; "Accept_Remote_Changes" 0265 e001 | | Load 0x0,0x1 0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0267 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0268 e002 | | Load 0x0,0x2 0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026a 02c7 | | Declare_Variable Any 026b e5fa | | Load 0x2,-0x6 026c e002 | | Load 0x0,0x2 026d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 026e a404 | | Store_Unchecked 0x2,0x4 026f e002 | | Load 0x0,0x2 0270 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0271 02c7 | | Declare_Variable Any 0272 e002 | | Load 0x0,0x2 0273 180e | | Execute Package,Field_Execute,Field_Number 0xe 0274 a405 | | Store_Unchecked 0x2,0x5 0275 00e1 | | Load_Encached Boolean_Cache 0276 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0277 00e1 | | Load_Encached Boolean_Cache 0278 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0279 00e1 | | Load_Encached Boolean_Cache 027a e003 | | Load 0x0,0x3 027b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 027c 02c7 | | Declare_Variable Any 027d 00d8 | | Load_Top At_Offset_0 027e 1c00 | | Execute_Immediate Run_Utility,0x0 027f 00e1 | | Load_Encached Boolean_Cache 0280 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0281 00e2 | | Load_Encached Integer_Cache 0282 e003 | | Load 0x0,0x3 0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0284 02c7 | | Declare_Variable Any 0285 00d8 | | Load_Top At_Offset_0 0286 1c00 | | Execute_Immediate Run_Utility,0x0 0287 e003 | | Load 0x0,0x3 0288 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0289 02c7 | | Declare_Variable Any 028a 00d8 | | Load_Top At_Offset_0 028b 1c00 | | Execute_Immediate Run_Utility,0x0 028c e003 | | Load 0x0,0x3 028d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 028e 02c7 | | Declare_Variable Any 028f 00d8 | | Load_Top At_Offset_0 0290 1c00 | | Execute_Immediate Run_Utility,0x0 0291 e003 | | Load 0x0,0x3 0292 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0293 02c7 | | Declare_Variable Any 0294 00d8 | | Load_Top At_Offset_0 0295 1c00 | | Execute_Immediate Run_Utility,0x0 0296 e004 | | Load 0x0,0x4 0297 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0298 02c7 | | Declare_Variable Any 0299 00d8 | | Load_Top At_Offset_0 029a 1c00 | | Execute_Immediate Run_Utility,0x0 029b e003 | | Load 0x0,0x3 029c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 029d 0322 | " | Declare_Variable Record 029e 00d8 | | Load_Top At_Offset_0 029f 1c00 | | Execute_Immediate Run_Utility,0x0 02a0 e003 | | Load 0x0,0x3 02a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02a3 02c7 | | Declare_Variable Any 02a4 00d8 | | Load_Top At_Offset_0 02a5 1c00 | | Execute_Immediate Run_Utility,0x0 02a6 e005 | | Load 0x0,0x5 02a7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02a8 e003 | | Load 0x0,0x3 02a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02ab 02c7 | | Declare_Variable Any 02ac e006 | | Load 0x0,0x6 02ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ae e003 | | Load 0x0,0x3 02af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02b1 a414 | | Store_Unchecked 0x2,0x14 02b2 e003 | | Load 0x0,0x3 02b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02b5 02c7 | | Declare_Variable Any 02b6 00d8 | | Load_Top At_Offset_0 02b7 1c00 | | Execute_Immediate Run_Utility,0x0 02b8 e003 | | Load 0x0,0x3 02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ba 00e1 | | Load_Encached Boolean_Cache 02bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02bc 029f 0b7b | {| Declare_Subprogram INIT_0b78,For_Call 02be 029f 0bb3 | | Declare_Subprogram INIT_0bb0,For_Call 02c0 029f 0bcb | | Declare_Subprogram INIT_0bc8,For_Call 02c2 029f 0beb | | Declare_Subprogram INIT_0be8,For_Call 02c4 029f 0d63 | c| Declare_Subprogram INIT_0d60,For_Call 02c6 BODY_0260: 02c6 e404 | | Load 0x2,0x4 02c7 e002 | | Load 0x0,0x2 02c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02c9 e404 | | Load 0x2,0x4 02ca 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 02cc 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 02ce e5ff | | Load 0x2,-0x1 02cf e007 | | Load 0x0,0x7 02d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02d1 01cc | | Execute Vector,Catenate 02d2 0092 0f8a | | Action Push_String_Extended,0xf8a ; "Allow_Demotion => " 02d4 01cc | | Execute Vector,Catenate 02d5 e5fe | | Load 0x2,-0x2 02d6 00e1 | | Load_Encached Boolean_Cache 02d7 011c | | Execute Any,Convert_Unchecked 02d8 1c01 | | Execute_Immediate Run_Utility,0x1 02d9 01cc | | Execute Vector,Catenate 02da 0092 0f8b | | Action Push_String_Extended,0xf8b ; ", Compare_Objects => " 02dc 01cc | | Execute Vector,Catenate 02dd e5fd | | Load 0x2,-0x3 02de 00e1 | | Load_Encached Boolean_Cache 02df 011c | | Execute Any,Convert_Unchecked 02e0 1c01 | | Execute_Immediate Run_Utility,0x1 02e1 01cc | | Execute Vector,Catenate 02e2 0092 0f8c | | Action Push_String_Extended,0xf8c ; ", Remake_Demoted_Units => " 02e4 01cc | | Execute Vector,Catenate 02e5 e5fc | | Load 0x2,-0x4 02e6 00e1 | | Load_Encached Boolean_Cache 02e7 011c | | Execute Any,Convert_Unchecked 02e8 1c01 | | Execute_Immediate Run_Utility,0x1 02e9 01cc | | Execute Vector,Catenate 02ea 0092 0f8d | | Action Push_String_Extended,0xf8d ; ", Goal => " 02ec 01cc | | Execute Vector,Catenate 02ed e5fb | | Load 0x2,-0x5 02ee e011 | | Load 0x0,0x11 02ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02f0 011c | | Execute Any,Convert_Unchecked 02f1 1c01 | | Execute_Immediate Run_Utility,0x1 02f2 01cc | | Execute Vector,Catenate 02f3 0092 0f88 | | Action Push_String_Extended,0xf88 ; ", Response" 02f5 01cc | | Execute Vector,Catenate 02f6 e5fa | | Load 0x2,-0x6 02f7 e007 | | Load 0x0,0x7 02f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f9 01cc | | Execute Vector,Catenate 02fa e402 | | Load 0x2,0x2 02fb e007 | | Load 0x0,0x7 02fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fd e404 | | Load 0x2,0x4 02fe e008 | | Load 0x0,0x8 02ff 180f | | Execute Package,Field_Execute,Field_Number 0xf 0300 e404 | | Load 0x2,0x4 0301 4801 |H | Short_Literal 0x1 0302 e5ff | | Load 0x2,-0x1 0303 e009 | | Load 0x0,0x9 0304 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0305 c412 | | Store 0x2,0x12 0306 e404 | | Load 0x2,0x4 0307 4801 |H | Short_Literal 0x1 0308 e404 | | Load 0x2,0x4 0309 4801 |H | Short_Literal 0x1 030a e412 | | Load 0x2,0x12 030b e009 | | Load 0x0,0x9 030c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 030d e009 | | Load 0x0,0x9 030e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 030f c409 | | Store 0x2,0x9 0310 e404 | | Load 0x2,0x4 0311 e409 | | Load 0x2,0x9 0312 e009 | | Load 0x0,0x9 0313 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0314 a408 | | Store_Unchecked 0x2,0x8 0315 e404 | | Load 0x2,0x4 0316 e409 | | Load 0x2,0x9 0317 e008 | | Load 0x0,0x8 0318 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0319 e404 | | Load 0x2,0x4 031a e409 | | Load 0x2,0x9 031b e008 | | Load 0x0,0x8 031c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 031d e404 | | Load 0x2,0x4 031e e409 | | Load 0x2,0x9 031f e009 | | Load 0x0,0x9 0320 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0321 e411 | | Load 0x2,0x11 0322 017d | } | Execute Record,Structure_Write 0323 e003 | | Load 0x0,0x3 0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0325 e415 | | Load 0x2,0x15 0326 0120 | | Execute Any,Is_Value 0327 6804 |h | Jump_Zero 0x32c 0328 e003 | | Load 0x0,0x3 0329 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 032a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 032b 7801 |x | Jump 0x32d 032c e415 | | Load 0x2,0x15 032d 672e |g. | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000} 032e e00a | | Load 0x0,0xa 032f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0330 4800 |H | Short_Literal 0x0 0331 e409 | | Load 0x2,0x9 0332 e003 | | Load 0x0,0x3 0333 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0334 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0335 c415 | | Store 0x2,0x15 0336 c416 | | Store 0x2,0x16 0337 e416 | | Load 0x2,0x16 0338 6824 |h$ | Jump_Zero 0x35d 0339 e404 | | Load 0x2,0x4 033a 4801 |H | Short_Literal 0x1 033b 4802 |H | Short_Literal 0x2 033c e00b | | Load 0x0,0xb 033d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 033e 035b | [ | Declare_Type Array,Constrained 033f 0337 | 7 | Declare_Variable Array 0340 e409 | | Load 0x2,0x9 0341 e00b | | Load 0x0,0xb 0342 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0343 e00b | | Load 0x0,0xb 0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0345 0119 | | Execute Any,Check_In_Formal_Type 0346 4801 |H | Short_Literal 0x1 0347 00da | | Load_Top At_Offset_2 0348 01d6 | | Execute Vector,Field_Write 0349 e416 | | Load 0x2,0x16 034a e00b | | Load 0x0,0xb 034b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 034c e00b | | Load 0x0,0xb 034d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034e 0119 | | Execute Any,Check_In_Formal_Type 034f 4802 |H | Short_Literal 0x2 0350 00da | | Load_Top At_Offset_2 0351 01d6 | | Execute Vector,Field_Write 0352 6705 |g | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008866} 0353 e001 | | Load 0x0,0x1 0354 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0355 e00b | | Load 0x0,0xb 0356 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0357 617c |a| | Indirect_Literal Discrete,0x4d4,{0x00000000, 0x00008864} 0358 e001 | | Load 0x0,0x1 0359 1813 | | Execute Package,Field_Execute,Field_Number 0x13 035a a403 | | Store_Unchecked 0x2,0x3 035b e00c | | Load 0x0,0xc 035c 0257 | W | Execute Discrete,Raise 035d e003 | | Load 0x0,0x3 035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035f e006 | | Load 0x0,0x6 0360 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0361 e415 | | Load 0x2,0x15 0362 e003 | | Load 0x0,0x3 0363 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0364 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0365 c416 | | Store 0x2,0x16 0366 e416 | | Load 0x2,0x16 0367 6824 |h$ | Jump_Zero 0x38c 0368 e404 | | Load 0x2,0x4 0369 4801 |H | Short_Literal 0x1 036a 4802 |H | Short_Literal 0x2 036b e00b | | Load 0x0,0xb 036c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036d 035b | [ | Declare_Type Array,Constrained 036e 0337 | 7 | Declare_Variable Array 036f e409 | | Load 0x2,0x9 0370 e00b | | Load 0x0,0xb 0371 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0372 e00b | | Load 0x0,0xb 0373 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0374 0119 | | Execute Any,Check_In_Formal_Type 0375 4801 |H | Short_Literal 0x1 0376 00da | | Load_Top At_Offset_2 0377 01d6 | | Execute Vector,Field_Write 0378 e416 | | Load 0x2,0x16 0379 e00b | | Load 0x0,0xb 037a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 037b e00b | | Load 0x0,0xb 037c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037d 0119 | | Execute Any,Check_In_Formal_Type 037e 4802 |H | Short_Literal 0x2 037f 00da | | Load_Top At_Offset_2 0380 01d6 | | Execute Vector,Field_Write 0381 66ce |f | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008867} 0382 e001 | | Load 0x0,0x1 0383 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0384 e00b | | Load 0x0,0xb 0385 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0386 614d |aM | Indirect_Literal Discrete,0x4d4,{0x00000000, 0x00008864} 0387 e001 | | Load 0x0,0x1 0388 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0389 a403 | | Store_Unchecked 0x2,0x3 038a e00c | | Load 0x0,0xc 038b 0257 | W | Execute Discrete,Raise 038c e408 | | Load 0x2,0x8 038d 7019 |p | Jump_Nonzero 0x3a7 038e e403 | | Load 0x2,0x3 038f e410 | | Load 0x2,0x10 0390 e404 | | Load 0x2,0x4 0391 00d8 | | Load_Top At_Offset_0 0392 e409 | | Load 0x2,0x9 0393 e009 | | Load 0x0,0x9 0394 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0395 e404 | | Load 0x2,0x4 0396 e409 | | Load 0x2,0x9 0397 800d | | Call 0x0,0xd 0398 e404 | | Load 0x2,0x4 0399 e409 | | Load 0x2,0x9 039a e009 | | Load 0x0,0x9 039b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 039c e00e | | Load 0x0,0xe 039d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039e c410 | | Store 0x2,0x10 039f c403 | | Store 0x2,0x3 03a0 4800 |H | Short_Literal 0x0 03a1 e403 | | Load 0x2,0x3 03a2 e001 | | Load 0x0,0x1 03a3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 03a4 7002 |p | Jump_Nonzero 0x3a7 03a5 e00f | | Load 0x0,0xf 03a6 0257 | W | Execute Discrete,Raise 03a7 00cf | | Action Mark_Auxiliary 03a8 784c |xL | Jump 0x3f5 03a9 e404 | | Load 0x2,0x4 03aa 4801 |H | Short_Literal 0x1 03ab e412 | | Load 0x2,0x12 03ac e009 | | Load 0x0,0x9 03ad 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03ae c40e | | Store 0x2,0xe 03af 4800 |H | Short_Literal 0x0 03b0 a407 | | Store_Unchecked 0x2,0x7 03b1 e40e | | Load 0x2,0xe 03b2 e009 | | Load 0x0,0x9 03b3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03b4 7037 |p7 | Jump_Nonzero 0x3ec 03b5 e001 | | Load 0x0,0x1 03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b7 00e2 | | Load_Encached Integer_Cache 03b8 00e1 | | Load_Encached Boolean_Cache 03b9 e40c | | Load 0x2,0xc 03ba 0120 | | Execute Any,Is_Value 03bb 6803 |h | Jump_Zero 0x3bf 03bc e003 | | Load 0x0,0x3 03bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03be 7801 |x | Jump 0x3c0 03bf e40c | | Load 0x2,0xc 03c0 e404 | | Load 0x2,0x4 03c1 e40e | | Load 0x2,0xe 03c2 e010 | | Load 0x0,0x10 03c3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03c4 c40c | | Store 0x2,0xc 03c5 c40a | | Store 0x2,0xa 03c6 c40b | | Store 0x2,0xb 03c7 c403 | | Store 0x2,0x3 03c8 4800 |H | Short_Literal 0x0 03c9 e403 | | Load 0x2,0x3 03ca e001 | | Load 0x0,0x1 03cb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 03cc 0f00 | | Execute_Immediate Equal,0x0 03cd e40a | | Load 0x2,0xa 03ce 0f00 | | Execute_Immediate Equal,0x0 03cf 0278 | x | Execute Discrete,Or 03d0 681b |h | Jump_Zero 0x3ec 03d1 e404 | | Load 0x2,0x4 03d2 4801 |H | Short_Literal 0x1 03d3 4801 |H | Short_Literal 0x1 03d4 e00b | | Load 0x0,0xb 03d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d6 035b | [ | Declare_Type Array,Constrained 03d7 0337 | 7 | Declare_Variable Array 03d8 0092 0f8e | | Action Push_String_Extended,0xf8e ; "text unit " 03da e40e | | Load 0x2,0xe 03db e009 | | Load 0x0,0x9 03dc 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 03dd 01cc | | Execute Vector,Catenate 03de e00b | | Load 0x0,0xb 03df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e0 e00b | | Load 0x0,0xb 03e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03e2 0119 | | Execute Any,Check_In_Formal_Type 03e3 4801 |H | Short_Literal 0x1 03e4 00da | | Load_Top At_Offset_2 03e5 01d6 | | Execute Vector,Field_Write 03e6 4806 |H | Short_Literal 0x6 03e7 60e8 |` | Indirect_Literal Discrete,0x4d0,{0x00000000, 0x00008851} 03e8 e001 | | Load 0x0,0x1 03e9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 03ea 4801 |H | Short_Literal 0x1 03eb a407 | | Store_Unchecked 0x2,0x7 03ec e407 | | Load 0x2,0x7 03ed 7001 |p | Jump_Nonzero 0x3ef 03ee 841c | | Call 0x2,0x1c 03ef e412 | | Load 0x2,0x12 03f0 e003 | | Load 0x0,0x3 03f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03f3 c412 | | Store 0x2,0x12 03f4 00c9 | | Action Pop_Auxiliary_Loop 03f5 e412 | | Load 0x2,0x12 03f6 e003 | | Load 0x0,0x3 03f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03f8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03f9 6faf |o | Jump_Zero 0x3a9 03fa 00ce | | Action Pop_Auxiliary 03fb e408 | | Load 0x2,0x8 03fc 7012 |p | Jump_Nonzero 0x40f 03fd e403 | | Load 0x2,0x3 03fe e410 | | Load 0x2,0x10 03ff e404 | | Load 0x2,0x4 0400 00d8 | | Load_Top At_Offset_0 0401 e409 | | Load 0x2,0x9 0402 e009 | | Load 0x0,0x9 0403 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0404 e00e | | Load 0x0,0xe 0405 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0406 c410 | | Store 0x2,0x10 0407 c403 | | Store 0x2,0x3 0408 4800 |H | Short_Literal 0x0 0409 e403 | | Load 0x2,0x3 040a e001 | | Load 0x0,0x1 040b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 040c 7002 |p | Jump_Nonzero 0x40f 040d e00f | | Load 0x0,0xf 040e 0257 | W | Execute Discrete,Raise 040f e003 | | Load 0x0,0x3 0410 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0411 e006 | | Load 0x0,0x6 0412 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0413 e414 | | Load 0x2,0x14 0414 e003 | | Load 0x0,0x3 0415 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0416 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0417 c416 | | Store 0x2,0x16 0418 e406 | | Load 0x2,0x6 0419 682d |h- | Jump_Zero 0x447 041a e5fc | | Load 0x2,-0x4 041b 682b |h+ | Jump_Zero 0x447 041c e417 | | Load 0x2,0x17 041d 6817 |h | Jump_Zero 0x435 041e e5fb | | Load 0x2,-0x5 041f 0f03 | | Execute_Immediate Equal,0x3 0420 6814 |h | Jump_Zero 0x435 0421 e404 | | Load 0x2,0x4 0422 4801 |H | Short_Literal 0x1 0423 4801 |H | Short_Literal 0x1 0424 e00b | | Load 0x0,0xb 0425 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0426 035b | [ | Declare_Type Array,Constrained 0427 0337 | 7 | Declare_Variable Array 0428 e5ff | | Load 0x2,-0x1 0429 e00b | | Load 0x0,0xb 042a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 042b e00b | | Load 0x0,0xb 042c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042d 0119 | | Execute Any,Check_In_Formal_Type 042e 4801 |H | Short_Literal 0x1 042f 00da | | Load_Top At_Offset_2 0430 01d6 | | Execute Vector,Field_Write 0431 609a |` | Indirect_Literal Discrete,0x4cc,{0x00000000, 0x00008877} 0432 e001 | | Load 0x0,0x1 0433 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0434 7812 |x | Jump 0x447 0435 e5fb | | Load 0x2,-0x5 0436 0c02 | | Execute_Immediate Greater_Equal,0x2 0437 680f |h | Jump_Zero 0x447 0438 4801 |H | Short_Literal 0x1 0439 4801 |H | Short_Literal 0x1 043a 4800 |H | Short_Literal 0x0 043b 4801 |H | Short_Literal 0x1 043c e5fa | | Load 0x2,-0x6 043d e009 | | Load 0x0,0x9 043e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 043f 4800 |H | Short_Literal 0x0 0440 0092 0f8f | | Action Push_String_Extended,0xf8f ; "<ALL_WORLDS>" 0442 e5fb | | Load 0x2,-0x5 0443 4803 |H | Short_Literal 0x3 0444 e5ff | | Load 0x2,-0x1 0445 e011 | | Load 0x0,0x11 0446 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0447 e404 | | Load 0x2,0x4 0448 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 044a e402 | | Load 0x2,0x2 044b e403 | | Load 0x2,0x3 044c e007 | | Load 0x0,0x7 044d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 044e e405 | | Load 0x2,0x5 044f e002 | | Load 0x0,0x2 0450 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0451 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0452 TRAP_0260: 0452 e00c | | Load 0x0,0xc 0453 010f | | Execute Exception,Equal 0454 6804 |h | Jump_Zero 0x459 0455 e405 | | Load 0x2,0x5 0456 e002 | | Load 0x0,0x2 0457 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0458 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0459 e00f | | Load 0x0,0xf 045a 010f | | Execute Exception,Equal 045b 6814 |h | Jump_Zero 0x470 045c e003 | | Load 0x0,0x3 045d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045e e006 | | Load 0x0,0x6 045f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0460 e414 | | Load 0x2,0x14 0461 e003 | | Load 0x0,0x3 0462 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0463 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0464 c416 | | Store 0x2,0x16 0465 e404 | | Load 0x2,0x4 0466 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0468 e402 | | Load 0x2,0x2 0469 e403 | | Load 0x2,0x3 046a e007 | | Load 0x0,0x7 046b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 046c e405 | | Load 0x2,0x5 046d e002 | | Load 0x0,0x2 046e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 046f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0470 e001 | | Load 0x0,0x1 0471 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0472 010f | | Execute Exception,Equal 0473 6817 |h | Jump_Zero 0x48b 0474 e001 | | Load 0x0,0x1 0475 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0476 a403 | | Store_Unchecked 0x2,0x3 0477 e003 | | Load 0x0,0x3 0478 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0479 e006 | | Load 0x0,0x6 047a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 047b e414 | | Load 0x2,0x14 047c e003 | | Load 0x0,0x3 047d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 047e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 047f c416 | | Store 0x2,0x16 0480 e404 | | Load 0x2,0x4 0481 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0483 e402 | | Load 0x2,0x2 0484 e403 | | Load 0x2,0x3 0485 e007 | | Load 0x0,0x7 0486 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0487 e405 | | Load 0x2,0x5 0488 e002 | | Load 0x0,0x2 0489 1810 | | Execute Package,Field_Execute,Field_Number 0x10 048a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 048b 4884 |H | Short_Literal 0x84 048c 010f | | Execute Exception,Equal 048d 6828 |h( | Jump_Zero 0x4b6 048e e003 | | Load 0x0,0x3 048f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0490 e006 | | Load 0x0,0x6 0491 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0492 e414 | | Load 0x2,0x14 0493 e003 | | Load 0x0,0x3 0494 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0495 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0496 c416 | | Store 0x2,0x16 0497 e404 | | Load 0x2,0x4 0498 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 049a e402 | | Load 0x2,0x2 049b e403 | | Load 0x2,0x3 049c e007 | | Load 0x0,0x7 049d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 049e e405 | | Load 0x2,0x5 049f e002 | | Load 0x0,0x2 04a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04a1 e003 | | Load 0x0,0x3 04a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a3 e006 | | Load 0x0,0x6 04a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04a5 e414 | | Load 0x2,0x14 04a6 e003 | | Load 0x0,0x3 04a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04a9 c416 | | Store 0x2,0x16 04aa e404 | | Load 0x2,0x4 04ab 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 04ad e402 | | Load 0x2,0x2 04ae e403 | | Load 0x2,0x3 04af e007 | | Load 0x0,0x7 04b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b1 e405 | | Load 0x2,0x5 04b2 e002 | | Load 0x0,0x2 04b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04b4 00d8 | | Load_Top At_Offset_0 04b5 0101 | | Execute Exception,Reraise 04b6 e003 | | Load 0x0,0x3 04b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b8 e006 | | Load 0x0,0x6 04b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ba e414 | | Load 0x2,0x14 04bb e003 | | Load 0x0,0x3 04bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04bd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04be c416 | | Store 0x2,0x16 04bf e404 | | Load 0x2,0x4 04c0 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 04c2 e402 | | Load 0x2,0x2 04c3 e403 | | Load 0x2,0x3 04c4 e007 | | Load 0x0,0x7 04c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04c6 e405 | | Load 0x2,0x5 04c7 e002 | | Load 0x0,0x2 04c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04c9 4507 |E | Exit_Suprogram New_Top_Offset 0x7 04ca 0000 0000 | | .XXX[0x2] 04cc 0000 0000 | | .LITERAL {0x00000000, 0x00008877} 04d0 0000 0000 | | .LITERAL {0x00000000, 0x00008851} 04d4 0000 0000 | | .LITERAL {0x00000000, 0x00008864} 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 0511 | | .CONST 0x0511 ; Address of begin 04d9 069d | | .CONST 0x069d ; Address of exception handler 04da 000d | | .CONST 0x000d ; Number of locals 04db INIT_04d8: 04db 0092 0f90 | | Action Push_String_Extended,0xf90 ; "Upload_Unit" 04dd e001 | | Load 0x0,0x1 04de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04e0 e002 | | Load 0x0,0x2 04e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e2 02c7 | | Declare_Variable Any 04e3 e5fb | | Load 0x2,-0x5 04e4 e002 | | Load 0x0,0x2 04e5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 04e6 a404 | | Store_Unchecked 0x2,0x4 04e7 00e1 | | Load_Encached Boolean_Cache 04e8 e004 | | Load 0x0,0x4 04e9 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 04ea 02c7 | | Declare_Variable Any 04eb 00d8 | | Load_Top At_Offset_0 04ec 1c00 | | Execute_Immediate Run_Utility,0x0 04ed e003 | | Load 0x0,0x3 04ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04ef 02c7 | | Declare_Variable Any 04f0 00d8 | | Load_Top At_Offset_0 04f1 1c00 | | Execute_Immediate Run_Utility,0x0 04f2 e003 | | Load 0x0,0x3 04f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f4 02c7 | | Declare_Variable Any 04f5 00d8 | | Load_Top At_Offset_0 04f6 1c00 | | Execute_Immediate Run_Utility,0x0 04f7 e003 | | Load 0x0,0x3 04f8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04f9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04fa 02c7 | | Declare_Variable Any 04fb e006 | | Load 0x0,0x6 04fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04fd e003 | | Load 0x0,0x3 04fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0500 a409 | | Store_Unchecked 0x2,0x9 0501 e003 | | Load 0x0,0x3 0502 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0503 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0504 02c7 | | Declare_Variable Any 0505 00d8 | | Load_Top At_Offset_0 0506 1c00 | | Execute_Immediate Run_Utility,0x0 0507 e003 | | Load 0x0,0x3 0508 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0509 e002 | | Load 0x0,0x2 050a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050b 02c7 | | Declare_Variable Any 050c e002 | | Load 0x0,0x2 050d 180e | | Execute Package,Field_Execute,Field_Number 0xe 050e a40c | | Store_Unchecked 0x2,0xc 050f 029f 0e53 | S| Declare_Subprogram INIT_0e50,For_Call 0511 BODY_04d8: 0511 e404 | | Load 0x2,0x4 0512 e002 | | Load 0x0,0x2 0513 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0514 e404 | | Load 0x2,0x4 0515 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0517 0092 0f91 | | Action Push_String_Extended,0xf91 ; "Remote_Unit_Name" 0519 e5ff | | Load 0x2,-0x1 051a e007 | | Load 0x0,0x7 051b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 051c 01cc | | Execute Vector,Catenate 051d 0092 0f92 | | Action Push_String_Extended,0xf92 ; "Into_View" 051f 01cc | | Execute Vector,Catenate 0520 e5fe | | Load 0x2,-0x2 0521 e007 | | Load 0x0,0x7 0522 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0523 01cc | | Execute Vector,Catenate 0524 0092 0f93 | | Action Push_String_Extended,0xf93 ; "Upload_To_Text_File => " 0526 01cc | | Execute Vector,Catenate 0527 e5fd | | Load 0x2,-0x3 0528 00e1 | | Load_Encached Boolean_Cache 0529 011c | | Execute Any,Convert_Unchecked 052a 1c01 | | Execute_Immediate Run_Utility,0x1 052b 01cc | | Execute Vector,Catenate 052c 0092 0f94 | | Action Push_String_Extended,0xf94 ; ", Host_Text_File_Name" 052e 01cc | | Execute Vector,Catenate 052f e5fc | | Load 0x2,-0x4 0530 e007 | | Load 0x0,0x7 0531 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0532 01cc | | Execute Vector,Catenate 0533 0092 0f95 | | Action Push_String_Extended,0xf95 ; "Response" 0535 01cc | | Execute Vector,Catenate 0536 e5fb | | Load 0x2,-0x5 0537 e007 | | Load 0x0,0x7 0538 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0539 01cc | | Execute Vector,Catenate 053a e402 | | Load 0x2,0x2 053b e007 | | Load 0x0,0x7 053c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 053d e404 | | Load 0x2,0x4 053e e008 | | Load 0x0,0x8 053f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0540 e404 | | Load 0x2,0x4 0541 0092 0f91 | | Action Push_String_Extended,0xf91 ; "Remote_Unit_Name" 0543 4801 |H | Short_Literal 0x1 0544 e5ff | | Load 0x2,-0x1 0545 e008 | | Load 0x0,0x8 0546 180d | | Execute Package,Field_Execute,Field_Number 0xd 0547 e404 | | Load 0x2,0x4 0548 4801 |H | Short_Literal 0x1 0549 e5fe | | Load 0x2,-0x2 054a e009 | | Load 0x0,0x9 054b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 054c c407 | | Store 0x2,0x7 054d e404 | | Load 0x2,0x4 054e 00d8 | | Load_Top At_Offset_0 054f 4801 |H | Short_Literal 0x1 0550 e5fe | | Load 0x2,-0x2 0551 e009 | | Load 0x0,0x9 0552 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0553 8216 | | Call 0x1,0x16 0554 c408 | | Store 0x2,0x8 0555 e404 | | Load 0x2,0x4 0556 e407 | | Load 0x2,0x7 0557 e009 | | Load 0x0,0x9 0558 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0559 a405 | | Store_Unchecked 0x2,0x5 055a e404 | | Load 0x2,0x4 055b e407 | | Load 0x2,0x7 055c e008 | | Load 0x0,0x8 055d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 055e e404 | | Load 0x2,0x4 055f e407 | | Load 0x2,0x7 0560 e008 | | Load 0x0,0x8 0561 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0562 e003 | | Load 0x0,0x3 0563 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0564 e40a | | Load 0x2,0xa 0565 0120 | | Execute Any,Is_Value 0566 6804 |h | Jump_Zero 0x56b 0567 e003 | | Load 0x0,0x3 0568 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0569 1b11 | | Execute Package,Field_Read,Field_Number 0x11 056a 7801 |x | Jump 0x56c 056b e40a | | Load 0x2,0xa 056c 61c7 |a | Indirect_Literal Discrete,0x734,{0x00000000, 0x00004000} 056d e00a | | Load 0x0,0xa 056e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 056f 4800 |H | Short_Literal 0x0 0570 e408 | | Load 0x2,0x8 0571 e003 | | Load 0x0,0x3 0572 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0573 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0574 c40a | | Store 0x2,0xa 0575 005b | [ | Store_Top Discrete,At_Offset_3 0576 00da | | Load_Top At_Offset_2 0577 6824 |h$ | Jump_Zero 0x59c 0578 e404 | | Load 0x2,0x4 0579 4801 |H | Short_Literal 0x1 057a 4802 |H | Short_Literal 0x2 057b e00b | | Load 0x0,0xb 057c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 057d 035b | [ | Declare_Type Array,Constrained 057e 0337 | 7 | Declare_Variable Array 057f e407 | | Load 0x2,0x7 0580 e00b | | Load 0x0,0xb 0581 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0582 e00b | | Load 0x0,0xb 0583 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0584 0119 | | Execute Any,Check_In_Formal_Type 0585 4801 |H | Short_Literal 0x1 0586 00da | | Load_Top At_Offset_2 0587 01d6 | | Execute Vector,Field_Write 0588 e40b | | Load 0x2,0xb 0589 e00b | | Load 0x0,0xb 058a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 058b e00b | | Load 0x0,0xb 058c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 058d 0119 | | Execute Any,Check_In_Formal_Type 058e 4802 |H | Short_Literal 0x2 058f 00da | | Load_Top At_Offset_2 0590 01d6 | | Execute Vector,Field_Write 0591 619e |a | Indirect_Literal Discrete,0x730,{0x00000000, 0x00008866} 0592 e001 | | Load 0x0,0x1 0593 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0594 e00b | | Load 0x0,0xb 0595 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0596 6195 |a | Indirect_Literal Discrete,0x72c,{0x00000000, 0x00008868} 0597 e001 | | Load 0x0,0x1 0598 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0599 a403 | | Store_Unchecked 0x2,0x3 059a e00c | | Load 0x0,0xc 059b 0257 | W | Execute Discrete,Raise 059c e003 | | Load 0x0,0x3 059d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059e e006 | | Load 0x0,0x6 059f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05a0 e40a | | Load 0x2,0xa 05a1 e003 | | Load 0x0,0x3 05a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05a4 005b | [ | Store_Top Discrete,At_Offset_3 05a5 00da | | Load_Top At_Offset_2 05a6 6824 |h$ | Jump_Zero 0x5cb 05a7 e404 | | Load 0x2,0x4 05a8 4801 |H | Short_Literal 0x1 05a9 4802 |H | Short_Literal 0x2 05aa e00b | | Load 0x0,0xb 05ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05ac 035b | [ | Declare_Type Array,Constrained 05ad 0337 | 7 | Declare_Variable Array 05ae e407 | | Load 0x2,0x7 05af e00b | | Load 0x0,0xb 05b0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05b1 e00b | | Load 0x0,0xb 05b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b3 0119 | | Execute Any,Check_In_Formal_Type 05b4 4801 |H | Short_Literal 0x1 05b5 00da | | Load_Top At_Offset_2 05b6 01d6 | | Execute Vector,Field_Write 05b7 e40b | | Load 0x2,0xb 05b8 e00b | | Load 0x0,0xb 05b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05ba e00b | | Load 0x0,0xb 05bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05bc 0119 | | Execute Any,Check_In_Formal_Type 05bd 4802 |H | Short_Literal 0x2 05be 00da | | Load_Top At_Offset_2 05bf 01d6 | | Execute Vector,Field_Write 05c0 6167 |ag | Indirect_Literal Discrete,0x728,{0x00000000, 0x00008867} 05c1 e001 | | Load 0x0,0x1 05c2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05c3 e00b | | Load 0x0,0xb 05c4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05c5 6166 |af | Indirect_Literal Discrete,0x72c,{0x00000000, 0x00008868} 05c6 e001 | | Load 0x0,0x1 05c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05c8 a403 | | Store_Unchecked 0x2,0x3 05c9 e00c | | Load 0x0,0xc 05ca 0257 | W | Execute Discrete,Raise 05cb e5fd | | Load 0x2,-0x3 05cc 681d |h | Jump_Zero 0x5ea 05cd 4820 |H | Short_Literal 0x20 05ce e5fc | | Load 0x2,-0x4 05cf e012 | | Load 0x0,0x12 05d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05d1 01db | | Execute Vector,Length 05d2 7015 |p | Jump_Nonzero 0x5e8 05d3 e404 | | Load 0x2,0x4 05d4 4801 |H | Short_Literal 0x1 05d5 4801 |H | Short_Literal 0x1 05d6 e00b | | Load 0x0,0xb 05d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05d8 035b | [ | Declare_Type Array,Constrained 05d9 0337 | 7 | Declare_Variable Array 05da e5ff | | Load 0x2,-0x1 05db e00b | | Load 0x0,0xb 05dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05dd e00b | | Load 0x0,0xb 05de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05df 0119 | | Execute Any,Check_In_Formal_Type 05e0 4801 |H | Short_Literal 0x1 05e1 00da | | Load_Top At_Offset_2 05e2 01d6 | | Execute Vector,Field_Write 05e3 6140 |a@ | Indirect_Literal Discrete,0x724,{0x00000000, 0x0000887b} 05e4 e001 | | Load 0x0,0x1 05e5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05e6 e00f | | Load 0x0,0xf 05e7 0257 | W | Execute Discrete,Raise 05e8 840d | | Call 0x2,0xd 05e9 7813 |x | Jump 0x5fd 05ea e404 | | Load 0x2,0x4 05eb 4801 |H | Short_Literal 0x1 05ec 4801 |H | Short_Literal 0x1 05ed e00b | | Load 0x0,0xb 05ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05ef 035b | [ | Declare_Type Array,Constrained 05f0 0337 | 7 | Declare_Variable Array 05f1 e5ff | | Load 0x2,-0x1 05f2 e00b | | Load 0x0,0xb 05f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05f4 e00b | | Load 0x0,0xb 05f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05f6 0119 | | Execute Any,Check_In_Formal_Type 05f7 4801 |H | Short_Literal 0x1 05f8 00da | | Load_Top At_Offset_2 05f9 01d6 | | Execute Vector,Field_Write 05fa 6125 |a% | Indirect_Literal Discrete,0x720,{0x00000000, 0x0000887d} 05fb e001 | | Load 0x0,0x1 05fc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05fd e405 | | Load 0x2,0x5 05fe 7019 |p | Jump_Nonzero 0x618 05ff e403 | | Load 0x2,0x3 0600 e406 | | Load 0x2,0x6 0601 e404 | | Load 0x2,0x4 0602 00d8 | | Load_Top At_Offset_0 0603 e407 | | Load 0x2,0x7 0604 e009 | | Load 0x0,0x9 0605 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0606 e404 | | Load 0x2,0x4 0607 e407 | | Load 0x2,0x7 0608 800d | | Call 0x0,0xd 0609 e404 | | Load 0x2,0x4 060a e407 | | Load 0x2,0x7 060b e009 | | Load 0x0,0x9 060c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 060d e00e | | Load 0x0,0xe 060e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 060f c406 | | Store 0x2,0x6 0610 c403 | | Store 0x2,0x3 0611 4800 |H | Short_Literal 0x0 0612 e403 | | Load 0x2,0x3 0613 e001 | | Load 0x0,0x1 0614 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0615 7002 |p | Jump_Nonzero 0x618 0616 e00f | | Load 0x0,0xf 0617 0257 | W | Execute Discrete,Raise 0618 e403 | | Load 0x2,0x3 0619 4801 |H | Short_Literal 0x1 061a 4801 |H | Short_Literal 0x1 061b 4800 |H | Short_Literal 0x0 061c 4801 |H | Short_Literal 0x1 061d e404 | | Load 0x2,0x4 061e e009 | | Load 0x0,0x9 061f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0620 4800 |H | Short_Literal 0x0 0621 e406 | | Load 0x2,0x6 0622 e404 | | Load 0x2,0x4 0623 e407 | | Load 0x2,0x7 0624 e009 | | Load 0x0,0x9 0625 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0626 e5fc | | Load 0x2,-0x4 0627 e408 | | Load 0x2,0x8 0628 e407 | | Load 0x2,0x7 0629 e5fd | | Load 0x2,-0x3 062a 0f00 | | Execute_Immediate Equal,0x0 062b e5ff | | Load 0x2,-0x1 062c e003 | | Load 0x0,0x3 062d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 062e e005 | | Load 0x0,0x5 062f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0630 c403 | | Store 0x2,0x3 0631 4800 |H | Short_Literal 0x0 0632 e403 | | Load 0x2,0x3 0633 e001 | | Load 0x0,0x1 0634 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0635 7046 |pF | Jump_Nonzero 0x67c 0636 e5fd | | Load 0x2,-0x3 0637 6827 |h' | Jump_Zero 0x65f 0638 e404 | | Load 0x2,0x4 0639 4801 |H | Short_Literal 0x1 063a 4803 |H | Short_Literal 0x3 063b e00b | | Load 0x0,0xb 063c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 063d 035b | [ | Declare_Type Array,Constrained 063e 0337 | 7 | Declare_Variable Array 063f e5ff | | Load 0x2,-0x1 0640 e00b | | Load 0x0,0xb 0641 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0642 e00b | | Load 0x0,0xb 0643 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0644 0119 | | Execute Any,Check_In_Formal_Type 0645 4801 |H | Short_Literal 0x1 0646 00da | | Load_Top At_Offset_2 0647 01d6 | | Execute Vector,Field_Write 0648 0092 0f96 | | Action Push_String_Extended,0xf96 ; "text file" 064a e00b | | Load 0x0,0xb 064b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 064c e00b | | Load 0x0,0xb 064d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 064e 0119 | | Execute Any,Check_In_Formal_Type 064f 4802 |H | Short_Literal 0x2 0650 00da | | Load_Top At_Offset_2 0651 01d6 | | Execute Vector,Field_Write 0652 e5fc | | Load 0x2,-0x4 0653 e00b | | Load 0x0,0xb 0654 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0655 e00b | | Load 0x0,0xb 0656 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0657 0119 | | Execute Any,Check_In_Formal_Type 0658 4803 |H | Short_Literal 0x3 0659 00da | | Load_Top At_Offset_2 065a 01d6 | | Execute Vector,Field_Write 065b 60c0 |` | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00008816} 065c e001 | | Load 0x0,0x1 065d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 065e 781d |x | Jump 0x67c 065f e404 | | Load 0x2,0x4 0660 4801 |H | Short_Literal 0x1 0661 4802 |H | Short_Literal 0x2 0662 e00b | | Load 0x0,0xb 0663 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0664 035b | [ | Declare_Type Array,Constrained 0665 0337 | 7 | Declare_Variable Array 0666 e5ff | | Load 0x2,-0x1 0667 e00b | | Load 0x0,0xb 0668 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0669 e00b | | Load 0x0,0xb 066a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 066b 0119 | | Execute Any,Check_In_Formal_Type 066c 4801 |H | Short_Literal 0x1 066d 00da | | Load_Top At_Offset_2 066e 01d6 | | Execute Vector,Field_Write 066f 0092 0f97 | | Action Push_String_Extended,0xf97 ; "local Ada unit" 0671 e00b | | Load 0x0,0xb 0672 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0673 e00b | | Load 0x0,0xb 0674 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0675 0119 | | Execute Any,Check_In_Formal_Type 0676 4802 |H | Short_Literal 0x2 0677 00da | | Load_Top At_Offset_2 0678 01d6 | | Execute Vector,Field_Write 0679 60a2 |` | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00008816} 067a e001 | | Load 0x0,0x1 067b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 067c e405 | | Load 0x2,0x5 067d 700b |p | Jump_Nonzero 0x689 067e e403 | | Load 0x2,0x3 067f e406 | | Load 0x2,0x6 0680 e404 | | Load 0x2,0x4 0681 00d8 | | Load_Top At_Offset_0 0682 e407 | | Load 0x2,0x7 0683 e009 | | Load 0x0,0x9 0684 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0685 e00e | | Load 0x0,0xe 0686 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0687 c406 | | Store 0x2,0x6 0688 c403 | | Store 0x2,0x3 0689 e003 | | Load 0x0,0x3 068a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 068b e006 | | Load 0x0,0x6 068c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 068d e409 | | Load 0x2,0x9 068e e003 | | Load 0x0,0x3 068f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0690 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0691 005b | [ | Store_Top Discrete,At_Offset_3 0692 e404 | | Load 0x2,0x4 0693 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0695 e402 | | Load 0x2,0x2 0696 e403 | | Load 0x2,0x3 0697 e007 | | Load 0x0,0x7 0698 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0699 00d9 | | Load_Top At_Offset_1 069a e002 | | Load 0x0,0x2 069b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 069c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 069d TRAP_04d8: 069d e00c | | Load 0x0,0xc 069e 010f | | Execute Exception,Equal 069f 6804 |h | Jump_Zero 0x6a4 06a0 00da | | Load_Top At_Offset_2 06a1 e002 | | Load 0x0,0x2 06a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06a3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06a4 e00f | | Load 0x0,0xf 06a5 010f | | Execute Exception,Equal 06a6 6814 |h | Jump_Zero 0x6bb 06a7 e003 | | Load 0x0,0x3 06a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06a9 e006 | | Load 0x0,0x6 06aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06ab e409 | | Load 0x2,0x9 06ac e003 | | Load 0x0,0x3 06ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06af c40b | | Store 0x2,0xb 06b0 e404 | | Load 0x2,0x4 06b1 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 06b3 e402 | | Load 0x2,0x2 06b4 e403 | | Load 0x2,0x3 06b5 e007 | | Load 0x0,0x7 06b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06b7 00da | | Load_Top At_Offset_2 06b8 e002 | | Load 0x0,0x2 06b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06bb e001 | | Load 0x0,0x1 06bc 1b17 | | Execute Package,Field_Read,Field_Number 0x17 06bd 010f | | Execute Exception,Equal 06be 6817 |h | Jump_Zero 0x6d6 06bf e001 | | Load 0x0,0x1 06c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 06c1 a403 | | Store_Unchecked 0x2,0x3 06c2 e003 | | Load 0x0,0x3 06c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c4 e006 | | Load 0x0,0x6 06c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06c6 e409 | | Load 0x2,0x9 06c7 e003 | | Load 0x0,0x3 06c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06ca c40b | | Store 0x2,0xb 06cb e404 | | Load 0x2,0x4 06cc 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 06ce e402 | | Load 0x2,0x2 06cf e403 | | Load 0x2,0x3 06d0 e007 | | Load 0x0,0x7 06d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06d2 00da | | Load_Top At_Offset_2 06d3 e002 | | Load 0x0,0x2 06d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06d6 4884 |H | Short_Literal 0x84 06d7 010f | | Execute Exception,Equal 06d8 6814 |h | Jump_Zero 0x6ed 06d9 e003 | | Load 0x0,0x3 06da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06db e006 | | Load 0x0,0x6 06dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06dd e409 | | Load 0x2,0x9 06de e003 | | Load 0x0,0x3 06df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06e0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06e1 c40b | | Store 0x2,0xb 06e2 e404 | | Load 0x2,0x4 06e3 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 06e5 e402 | | Load 0x2,0x2 06e6 e403 | | Load 0x2,0x3 06e7 e007 | | Load 0x0,0x7 06e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06e9 00da | | Load_Top At_Offset_2 06ea e002 | | Load 0x0,0x2 06eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06ec 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06ed e001 | | Load 0x0,0x1 06ee 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06ef 010f | | Execute Exception,Equal 06f0 6815 |h | Jump_Zero 0x706 06f1 e003 | | Load 0x0,0x3 06f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06f3 e006 | | Load 0x0,0x6 06f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06f5 e409 | | Load 0x2,0x9 06f6 e003 | | Load 0x0,0x3 06f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06f9 c40b | | Store 0x2,0xb 06fa e404 | | Load 0x2,0x4 06fb 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 06fd e402 | | Load 0x2,0x2 06fe e403 | | Load 0x2,0x3 06ff e007 | | Load 0x0,0x7 0700 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0701 00da | | Load_Top At_Offset_2 0702 e002 | | Load 0x0,0x2 0703 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0704 00d8 | | Load_Top At_Offset_0 0705 0101 | | Execute Exception,Reraise 0706 e003 | | Load 0x0,0x3 0707 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0708 e006 | | Load 0x0,0x6 0709 1811 | | Execute Package,Field_Execute,Field_Number 0x11 070a e409 | | Load 0x2,0x9 070b e003 | | Load 0x0,0x3 070c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 070d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 070e c40b | | Store 0x2,0xb 070f e404 | | Load 0x2,0x4 0710 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0712 e402 | | Load 0x2,0x2 0713 e403 | | Load 0x2,0x3 0714 e007 | | Load 0x0,0x7 0715 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0716 00da | | Load_Top At_Offset_2 0717 e002 | | Load 0x0,0x2 0718 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0719 4506 |E | Exit_Suprogram New_Top_Offset 0x6 071a 0000 0000 | | .XXX[0x2] 071c 0000 0000 | | .LITERAL {0x00000000, 0x00008816} 0720 0000 0000 | | .LITERAL {0x00000000, 0x0000887d} 0724 0000 0000 | | .LITERAL {0x00000000, 0x0000887b} 0728 0000 0000 | | .LITERAL {0x00000000, 0x00008867} 072c 0000 0000 | | .LITERAL {0x00000000, 0x00008868} 0730 0000 0000 | | .LITERAL {0x00000000, 0x00008866} 0734 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 075e | ^ | .CONST 0x075e ; Address of begin 0739 07a4 | | .CONST 0x07a4 ; Address of exception handler 073a 000b | | .CONST 0x000b ; Number of locals 073b INIT_0738: 073b 00e9 | | Load_Encached String_Cache 073c 02a0 | | Declare_Subprogram Null_Subprogram 073d 4818 |H | Short_Literal 0x18 073e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 073f 0092 0f98 | | Action Push_String_Extended,0xf98 ; "Upload_Units" 0741 e001 | | Load 0x0,0x1 0742 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0743 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0744 e002 | | Load 0x0,0x2 0745 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0746 02c7 | | Declare_Variable Any 0747 e5fd | | Load 0x2,-0x3 0748 e002 | | Load 0x0,0x2 0749 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 074a a405 | | Store_Unchecked 0x2,0x5 074b e002 | | Load 0x0,0x2 074c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 074d 02c7 | | Declare_Variable Any 074e e002 | | Load 0x0,0x2 074f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0750 a406 | | Store_Unchecked 0x2,0x6 0751 e013 | | Load 0x0,0x13 0752 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0753 02c7 | | Declare_Variable Any 0754 00d8 | | Load_Top At_Offset_0 0755 1c00 | | Execute_Immediate Run_Utility,0x0 0756 00e1 | | Load_Encached Boolean_Cache 0757 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0758 029f 0ef3 | | Declare_Subprogram INIT_0ef0,For_Call 075a 029f 0f13 | | Declare_Subprogram INIT_0f10,For_Call 075c 029f 0f33 | 3| Declare_Subprogram INIT_0f30,For_Call 075e BODY_0738: 075e e405 | | Load 0x2,0x5 075f e002 | | Load 0x0,0x2 0760 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0761 e405 | | Load 0x2,0x5 0762 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0764 0092 0f99 | | Action Push_String_Extended,0xf99 ; "Upload_Specification_File" 0766 e5ff | | Load 0x2,-0x1 0767 e007 | | Load 0x0,0x7 0768 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0769 01cc | | Execute Vector,Catenate 076a 0092 0f92 | | Action Push_String_Extended,0xf92 ; "Into_View" 076c 01cc | | Execute Vector,Catenate 076d e5fe | | Load 0x2,-0x2 076e e007 | | Load 0x0,0x7 076f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0770 01cc | | Execute Vector,Catenate 0771 0092 0f95 | | Action Push_String_Extended,0xf95 ; "Response" 0773 01cc | | Execute Vector,Catenate 0774 e5fd | | Load 0x2,-0x3 0775 e007 | | Load 0x0,0x7 0776 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0777 01cc | | Execute Vector,Catenate 0778 e403 | | Load 0x2,0x3 0779 e007 | | Load 0x0,0x7 077a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 077b e405 | | Load 0x2,0x5 077c e008 | | Load 0x0,0x8 077d 180f | | Execute Package,Field_Execute,Field_Number 0xf 077e e405 | | Load 0x2,0x5 077f 0092 0f99 | | Action Push_String_Extended,0xf99 ; "Upload_Specification_File" 0781 4801 |H | Short_Literal 0x1 0782 e5ff | | Load 0x2,-0x1 0783 e008 | | Load 0x0,0x8 0784 180d | | Execute Package,Field_Execute,Field_Number 0xd 0785 e407 | | Load 0x2,0x7 0786 00ea | | Load_Encached Null_String_Cache 0787 e5ff | | Load 0x2,-0x1 0788 4800 |H | Short_Literal 0x0 0789 e013 | | Load 0x0,0x13 078a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 078b c407 | | Store 0x2,0x7 078c 00cf | | Action Mark_Auxiliary 078d 7802 |x | Jump 0x790 078e 840b | | Call 0x2,0xb 078f 00c9 | | Action Pop_Auxiliary_Loop 0790 e407 | | Load 0x2,0x7 0791 e013 | | Load 0x0,0x13 0792 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0793 6ffa |o | Jump_Zero 0x78e 0794 00ce | | Action Pop_Auxiliary 0795 e407 | | Load 0x2,0x7 0796 e013 | | Load 0x0,0x13 0797 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0798 c407 | | Store 0x2,0x7 0799 e405 | | Load 0x2,0x5 079a 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 079c e403 | | Load 0x2,0x3 079d e404 | | Load 0x2,0x4 079e e007 | | Load 0x0,0x7 079f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07a0 e406 | | Load 0x2,0x6 07a1 e002 | | Load 0x0,0x2 07a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07a4 TRAP_0738: 07a4 e014 | | Load 0x0,0x14 07a5 010f | | Execute Exception,Equal 07a6 681f |h | Jump_Zero 0x7c6 07a7 e002 | | Load 0x0,0x2 07a8 180e | | Execute Package,Field_Execute,Field_Number 0xe 07a9 4801 |H | Short_Literal 0x1 07aa 4801 |H | Short_Literal 0x1 07ab e00b | | Load 0x0,0xb 07ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ad 035b | [ | Declare_Type Array,Constrained 07ae 0337 | 7 | Declare_Variable Array 07af e5ff | | Load 0x2,-0x1 07b0 e00b | | Load 0x0,0xb 07b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07b2 e00b | | Load 0x0,0xb 07b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07b4 0119 | | Execute Any,Check_In_Formal_Type 07b5 4801 |H | Short_Literal 0x1 07b6 00da | | Load_Top At_Offset_2 07b7 01d6 | | Execute Vector,Field_Write 07b8 603b |`; | Indirect_Literal Discrete,0x7f4,{0x00000000, 0x0000889e} 07b9 e001 | | Load 0x0,0x1 07ba 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07bb e405 | | Load 0x2,0x5 07bc 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 07be e403 | | Load 0x2,0x3 07bf e404 | | Load 0x2,0x4 07c0 e007 | | Load 0x0,0x7 07c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07c2 e406 | | Load 0x2,0x6 07c3 e002 | | Load 0x0,0x2 07c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07c5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07c6 e001 | | Load 0x0,0x1 07c7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 07c8 010f | | Execute Exception,Equal 07c9 680e |h | Jump_Zero 0x7d8 07ca e001 | | Load 0x0,0x1 07cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 07cc a404 | | Store_Unchecked 0x2,0x4 07cd e405 | | Load 0x2,0x5 07ce 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 07d0 e403 | | Load 0x2,0x3 07d1 e404 | | Load 0x2,0x4 07d2 e007 | | Load 0x0,0x7 07d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07d4 e406 | | Load 0x2,0x6 07d5 e002 | | Load 0x0,0x2 07d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07d8 e001 | | Load 0x0,0x1 07d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07da 010f | | Execute Exception,Equal 07db 680c |h | Jump_Zero 0x7e8 07dc e405 | | Load 0x2,0x5 07dd 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 07df e403 | | Load 0x2,0x3 07e0 e404 | | Load 0x2,0x4 07e1 e007 | | Load 0x0,0x7 07e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07e3 e406 | | Load 0x2,0x6 07e4 e002 | | Load 0x0,0x2 07e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07e6 00d8 | | Load_Top At_Offset_0 07e7 0101 | | Execute Exception,Reraise 07e8 e405 | | Load 0x2,0x5 07e9 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 07eb e403 | | Load 0x2,0x3 07ec e404 | | Load 0x2,0x4 07ed e007 | | Load 0x0,0x7 07ee 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07ef e406 | | Load 0x2,0x6 07f0 e002 | | Load 0x0,0x2 07f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07f3 0000 | | .XXX[0x1] 07f4 0000 0000 | | .LITERAL {0x00000000, 0x0000889e} 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 081f | | .CONST 0x081f ; Address of begin 07f9 0912 | | .CONST 0x0912 ; Address of exception handler 07fa 000a | | .CONST 0x000a ; Number of locals 07fb INIT_07f8: 07fb 0092 0f9a | | Action Push_String_Extended,0xf9a ; "Set_Remote_Unit_Name" 07fd e001 | | Load 0x0,0x1 07fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0800 e002 | | Load 0x0,0x2 0801 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0802 02c7 | | Declare_Variable Any 0803 e5fc | | Load 0x2,-0x4 0804 e002 | | Load 0x0,0x2 0805 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0806 a404 | | Store_Unchecked 0x2,0x4 0807 00e1 | | Load_Encached Boolean_Cache 0808 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0809 00e2 | | Load_Encached Integer_Cache 080a e003 | | Load 0x0,0x3 080b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 080c 02c7 | | Declare_Variable Any 080d 00d8 | | Load_Top At_Offset_0 080e 1c00 | | Execute_Immediate Run_Utility,0x0 080f e003 | | Load 0x0,0x3 0810 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0811 02c7 | | Declare_Variable Any 0812 00d8 | | Load_Top At_Offset_0 0813 1c00 | | Execute_Immediate Run_Utility,0x0 0814 e003 | | Load 0x0,0x3 0815 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0816 02c7 | | Declare_Variable Any 0817 00d8 | | Load_Top At_Offset_0 0818 1c00 | | Execute_Immediate Run_Utility,0x0 0819 e002 | | Load 0x0,0x2 081a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 081b 02c7 | | Declare_Variable Any 081c e002 | | Load 0x0,0x2 081d 180e | | Execute Package,Field_Execute,Field_Number 0xe 081e a40a | | Store_Unchecked 0x2,0xa 081f BODY_07f8: 081f e404 | | Load 0x2,0x4 0820 e002 | | Load 0x0,0x2 0821 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0822 e404 | | Load 0x2,0x4 0823 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0825 0092 0f9b | | Action Push_String_Extended,0xf9b ; "Remote_Name" 0827 e5ff | | Load 0x2,-0x1 0828 e007 | | Load 0x0,0x7 0829 1812 | | Execute Package,Field_Execute,Field_Number 0x12 082a 01cc | | Execute Vector,Catenate 082b 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 082d 01cc | | Execute Vector,Catenate 082e e5fe | | Load 0x2,-0x2 082f e007 | | Load 0x0,0x7 0830 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0831 01cc | | Execute Vector,Catenate 0832 0092 0f8a | | Action Push_String_Extended,0xf8a ; "Allow_Demotion => " 0834 01cc | | Execute Vector,Catenate 0835 e5fd | | Load 0x2,-0x3 0836 00e1 | | Load_Encached Boolean_Cache 0837 011c | | Execute Any,Convert_Unchecked 0838 1c01 | | Execute_Immediate Run_Utility,0x1 0839 01cc | | Execute Vector,Catenate 083a 0092 0f88 | | Action Push_String_Extended,0xf88 ; ", Response" 083c 01cc | | Execute Vector,Catenate 083d e5fc | | Load 0x2,-0x4 083e e007 | | Load 0x0,0x7 083f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0840 01cc | | Execute Vector,Catenate 0841 e402 | | Load 0x2,0x2 0842 e007 | | Load 0x0,0x7 0843 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0844 e404 | | Load 0x2,0x4 0845 e008 | | Load 0x0,0x8 0846 180f | | Execute Package,Field_Execute,Field_Number 0xf 0847 e404 | | Load 0x2,0x4 0848 0092 0f9b | | Action Push_String_Extended,0xf9b ; "Remote_Name" 084a 4800 |H | Short_Literal 0x0 084b e5ff | | Load 0x2,-0x1 084c e008 | | Load 0x0,0x8 084d 180d | | Execute Package,Field_Execute,Field_Number 0xd 084e e404 | | Load 0x2,0x4 084f 4801 |H | Short_Literal 0x1 0850 e5fe | | Load 0x2,-0x2 0851 e009 | | Load 0x0,0x9 0852 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0853 c407 | | Store 0x2,0x7 0854 e404 | | Load 0x2,0x4 0855 4801 |H | Short_Literal 0x1 0856 e407 | | Load 0x2,0x7 0857 e009 | | Load 0x0,0x9 0858 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0859 c409 | | Store 0x2,0x9 085a e404 | | Load 0x2,0x4 085b 00da | | Load_Top At_Offset_2 085c e008 | | Load 0x0,0x8 085d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 085e e404 | | Load 0x2,0x4 085f 00da | | Load_Top At_Offset_2 0860 e008 | | Load 0x0,0x8 0861 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0862 00db | | Load_Top At_Offset_3 0863 e009 | | Load 0x0,0x9 0864 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0865 6805 |h | Jump_Zero 0x86b 0866 e404 | | Load 0x2,0x4 0867 e5fd | | Load 0x2,-0x3 0868 e407 | | Load 0x2,0x7 0869 8214 | | Call 0x1,0x14 086a 784f |xO | Jump 0x8ba 086b e001 | | Load 0x0,0x1 086c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 086d 00e2 | | Load_Encached Integer_Cache 086e 00e1 | | Load_Encached Boolean_Cache 086f e408 | | Load 0x2,0x8 0870 0120 | | Execute Any,Is_Value 0871 6803 |h | Jump_Zero 0x875 0872 e003 | | Load 0x0,0x3 0873 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0874 7801 |x | Jump 0x876 0875 e408 | | Load 0x2,0x8 0876 e404 | | Load 0x2,0x4 0877 e407 | | Load 0x2,0x7 0878 e010 | | Load 0x0,0x10 0879 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 087a c408 | | Store 0x2,0x8 087b c405 | | Store 0x2,0x5 087c c406 | | Store 0x2,0x6 087d c403 | | Store 0x2,0x3 087e 4800 |H | Short_Literal 0x0 087f e403 | | Load 0x2,0x3 0880 e001 | | Load 0x0,0x1 0881 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0882 0f00 | | Execute_Immediate Equal,0x0 0883 e405 | | Load 0x2,0x5 0884 0f00 | | Execute_Immediate Equal,0x0 0885 0278 | x | Execute Discrete,Or 0886 6814 |h | Jump_Zero 0x89b 0887 e404 | | Load 0x2,0x4 0888 4801 |H | Short_Literal 0x1 0889 4801 |H | Short_Literal 0x1 088a e00b | | Load 0x0,0xb 088b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 088c 035b | [ | Declare_Type Array,Constrained 088d 0337 | 7 | Declare_Variable Array 088e e407 | | Load 0x2,0x7 088f e009 | | Load 0x0,0x9 0890 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0891 e00b | | Load 0x0,0xb 0892 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0893 0119 | | Execute Any,Check_In_Formal_Type 0894 4801 |H | Short_Literal 0x1 0895 00da | | Load_Top At_Offset_2 0896 01d6 | | Execute Vector,Field_Write 0897 60c4 |` | Indirect_Literal Discrete,0x95c,{0x00000000, 0x0000889d} 0898 e001 | | Load 0x0,0x1 0899 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 089a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 089b e404 | | Load 0x2,0x4 089c 00db | | Load_Top At_Offset_3 089d e009 | | Load 0x0,0x9 089e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 089f 7016 |p | Jump_Nonzero 0x8b6 08a0 e404 | | Load 0x2,0x4 08a1 4801 |H | Short_Literal 0x1 08a2 4801 |H | Short_Literal 0x1 08a3 e00b | | Load 0x0,0xb 08a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08a5 035b | [ | Declare_Type Array,Constrained 08a6 0337 | 7 | Declare_Variable Array 08a7 e408 | | Load 0x2,0x8 08a8 e009 | | Load 0x0,0x9 08a9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08aa e00b | | Load 0x0,0xb 08ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08ac 0119 | | Execute Any,Check_In_Formal_Type 08ad 4801 |H | Short_Literal 0x1 08ae 00da | | Load_Top At_Offset_2 08af 01d6 | | Execute Vector,Field_Write 08b0 60a7 |` | Indirect_Literal Discrete,0x958,{0x00000000, 0x0000889a} 08b1 e001 | | Load 0x0,0x1 08b2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 08b3 e001 | | Load 0x0,0x1 08b4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 08b5 0257 | W | Execute Discrete,Raise 08b6 e404 | | Load 0x2,0x4 08b7 e5fd | | Load 0x2,-0x3 08b8 e408 | | Load 0x2,0x8 08b9 8214 | | Call 0x1,0x14 08ba e405 | | Load 0x2,0x5 08bb 6809 |h | Jump_Zero 0x8c5 08bc e001 | | Load 0x0,0x1 08bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08be e404 | | Load 0x2,0x4 08bf e5ff | | Load 0x2,-0x1 08c0 e407 | | Load 0x2,0x7 08c1 e010 | | Load 0x0,0x10 08c2 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 08c3 c403 | | Store 0x2,0x3 08c4 780d |x | Jump 0x8d2 08c5 e001 | | Load 0x0,0x1 08c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08c7 e404 | | Load 0x2,0x4 08c8 00d8 | | Load_Top At_Offset_0 08c9 e409 | | Load 0x2,0x9 08ca e009 | | Load 0x0,0x9 08cb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08cc e5ff | | Load 0x2,-0x1 08cd e407 | | Load 0x2,0x7 08ce e409 | | Load 0x2,0x9 08cf e010 | | Load 0x0,0x10 08d0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 08d1 c403 | | Store 0x2,0x3 08d2 4800 |H | Short_Literal 0x0 08d3 e403 | | Load 0x2,0x3 08d4 e001 | | Load 0x0,0x1 08d5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 08d6 681d |h | Jump_Zero 0x8f4 08d7 e404 | | Load 0x2,0x4 08d8 4801 |H | Short_Literal 0x1 08d9 4802 |H | Short_Literal 0x2 08da e00b | | Load 0x0,0xb 08db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08dc 035b | [ | Declare_Type Array,Constrained 08dd 0337 | 7 | Declare_Variable Array 08de e407 | | Load 0x2,0x7 08df e009 | | Load 0x0,0x9 08e0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08e1 e00b | | Load 0x0,0xb 08e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08e3 0119 | | Execute Any,Check_In_Formal_Type 08e4 4801 |H | Short_Literal 0x1 08e5 00da | | Load_Top At_Offset_2 08e6 01d6 | | Execute Vector,Field_Write 08e7 e5ff | | Load 0x2,-0x1 08e8 e00b | | Load 0x0,0xb 08e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08ea e00b | | Load 0x0,0xb 08eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08ec 0119 | | Execute Any,Check_In_Formal_Type 08ed 4802 |H | Short_Literal 0x2 08ee 00da | | Load_Top At_Offset_2 08ef 01d6 | | Execute Vector,Field_Write 08f0 6063 |`c | Indirect_Literal Discrete,0x954,{0x00000000, 0x0000883d} 08f1 e001 | | Load 0x0,0x1 08f2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 08f3 7813 |x | Jump 0x907 08f4 e404 | | Load 0x2,0x4 08f5 4801 |H | Short_Literal 0x1 08f6 4801 |H | Short_Literal 0x1 08f7 e00b | | Load 0x0,0xb 08f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08f9 035b | [ | Declare_Type Array,Constrained 08fa 0337 | 7 | Declare_Variable Array 08fb e407 | | Load 0x2,0x7 08fc e009 | | Load 0x0,0x9 08fd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08fe e00b | | Load 0x0,0xb 08ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0900 0119 | | Execute Any,Check_In_Formal_Type 0901 4801 |H | Short_Literal 0x1 0902 00da | | Load_Top At_Offset_2 0903 01d6 | | Execute Vector,Field_Write 0904 604b |`K | Indirect_Literal Discrete,0x950,{0x00000000, 0x0000881c} 0905 e001 | | Load 0x0,0x1 0906 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0907 e404 | | Load 0x2,0x4 0908 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 090a e402 | | Load 0x2,0x2 090b e403 | | Load 0x2,0x3 090c e007 | | Load 0x0,0x7 090d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 090e 00d8 | | Load_Top At_Offset_0 090f e002 | | Load 0x0,0x2 0910 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0911 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0912 TRAP_07f8: 0912 e001 | | Load 0x0,0x1 0913 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0914 010f | | Execute Exception,Equal 0915 680e |h | Jump_Zero 0x924 0916 e001 | | Load 0x0,0x1 0917 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0918 a403 | | Store_Unchecked 0x2,0x3 0919 e404 | | Load 0x2,0x4 091a 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 091c e402 | | Load 0x2,0x2 091d e403 | | Load 0x2,0x3 091e e007 | | Load 0x0,0x7 091f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0920 00d9 | | Load_Top At_Offset_1 0921 e002 | | Load 0x0,0x2 0922 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0923 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0924 4884 |H | Short_Literal 0x84 0925 010f | | Execute Exception,Equal 0926 680b |h | Jump_Zero 0x932 0927 e404 | | Load 0x2,0x4 0928 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 092a e402 | | Load 0x2,0x2 092b e403 | | Load 0x2,0x3 092c e007 | | Load 0x0,0x7 092d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 092e 00d9 | | Load_Top At_Offset_1 092f e002 | | Load 0x0,0x2 0930 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0931 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0932 e001 | | Load 0x0,0x1 0933 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0934 010f | | Execute Exception,Equal 0935 680c |h | Jump_Zero 0x942 0936 e404 | | Load 0x2,0x4 0937 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0939 e402 | | Load 0x2,0x2 093a e403 | | Load 0x2,0x3 093b e007 | | Load 0x0,0x7 093c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 093d 00d9 | | Load_Top At_Offset_1 093e e002 | | Load 0x0,0x2 093f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0940 00d8 | | Load_Top At_Offset_0 0941 0101 | | Execute Exception,Reraise 0942 e404 | | Load 0x2,0x4 0943 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Rci." 0945 e402 | | Load 0x2,0x2 0946 e403 | | Load 0x2,0x3 0947 e007 | | Load 0x0,0x7 0948 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0949 00d9 | | Load_Top At_Offset_1 094a e002 | | Load 0x0,0x2 094b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 094c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 094d 0000 0000 | | .XXX[0x3] 094f 0000 | | 0950 0000 0000 | | .LITERAL {0x00000000, 0x0000881c} 0954 0000 0000 | | .LITERAL {0x00000000, 0x0000883d} 0958 0000 0000 | | .LITERAL {0x00000000, 0x0000889a} 095c 0000 0000 | | .LITERAL {0x00000000, 0x0000889d} 0960 ; -------------------------------------------------------------------------------------- 0960 ; SUBPROGRAM 0960 ; -------------------------------------------------------------------------------------- 0960 0967 | g | .CONST 0x0967 ; Address of begin 0961 0004 | | .CONST 0x0004 ; Address of exception handler 0962 0003 | | .CONST 0x0003 ; Number of locals 0963 INIT_0960: 0963 029f 0f5b | [| Declare_Subprogram INIT_0f58,For_Call 0965 029f 0f73 | s| Declare_Subprogram INIT_0f70,For_Call 0967 BODY_0960: 0967 e5fc | | Load 0x2,-0x4 0968 7002 |p | Jump_Nonzero 0x96b 0969 8402 | | Call 0x2,0x2 096a 7801 |x | Jump 0x96c 096b 8403 | | Call 0x2,0x3 096c 0831 | 1 | Execute_Immediate Raise,0x31 096d 0000 0000 | | .XXX[0x3] 096f 0000 | | 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0973 | s | .CONST 0x0973 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0001 | | .CONST 0x0001 ; Number of locals 0973 BODY_0970: 0973 INIT_0970: 0973 00da | | Load_Top At_Offset_2 0974 e015 | | Load 0x0,0x15 0975 180e | | Execute Package,Field_Execute,Field_Number 0xe 0976 00db | | Load_Top At_Offset_3 0977 e015 | | Load 0x0,0x15 0978 180d | | Execute Package,Field_Execute,Field_Number 0xd 0979 0278 | x | Execute Discrete,Or 097a 682c |h, | Jump_Zero 0x9a7 097b 4801 |H | Short_Literal 0x1 097c 4801 |H | Short_Literal 0x1 097d 4800 |H | Short_Literal 0x0 097e 4801 |H | Short_Literal 0x1 097f e5fe | | Load 0x2,-0x2 0980 e009 | | Load 0x0,0x9 0981 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0982 e002 | | Load 0x0,0x2 0983 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0984 4800 |H | Short_Literal 0x0 0985 0092 0f8f | | Action Push_String_Extended,0xf8f ; "<ALL_WORLDS>" 0987 4801 |H | Short_Literal 0x1 0988 e5ff | | Load 0x2,-0x1 0989 e009 | | Load 0x0,0x9 098a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 098b e011 | | Load 0x0,0x11 098c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 098d 00da | | Load_Top At_Offset_2 098e e015 | | Load 0x0,0x15 098f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0990 6816 |h | Jump_Zero 0x9a7 0991 00db | | Load_Top At_Offset_3 0992 4801 |H | Short_Literal 0x1 0993 4801 |H | Short_Literal 0x1 0994 e00b | | Load 0x0,0xb 0995 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0996 035b | [ | Declare_Type Array,Constrained 0997 0337 | 7 | Declare_Variable Array 0998 e5ff | | Load 0x2,-0x1 0999 e009 | | Load 0x0,0x9 099a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 099b e00b | | Load 0x0,0xb 099c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 099d 0119 | | Execute Any,Check_In_Formal_Type 099e 4801 |H | Short_Literal 0x1 099f 00da | | Load_Top At_Offset_2 09a0 01d6 | | Execute Vector,Field_Write 09a1 6006 |` | Indirect_Literal Discrete,0x9a8,{0x00000000, 0x00008805} 09a2 e001 | | Load 0x0,0x1 09a3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09a4 e001 | | Load 0x0,0x1 09a5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09a6 0257 | W | Execute Discrete,Raise 09a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09a8 0000 0000 | | .LITERAL {0x00000000, 0x00008805} 09ac 0000 0000 | | .BLANK 0000[0x4] 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; SUBPROGRAM 09b0 ; -------------------------------------------------------------------------------------- 09b0 09b3 | | .CONST 0x09b3 ; Address of begin 09b1 0004 | | .CONST 0x0004 ; Address of exception handler 09b2 0001 | | .CONST 0x0001 ; Number of locals 09b3 BODY_09b0: 09b3 INIT_09b0: 09b3 00da | | Load_Top At_Offset_2 09b4 e015 | | Load 0x0,0x15 09b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 09b6 6845 |hE | Jump_Zero 0x9fc 09b7 00db | | Load_Top At_Offset_3 09b8 682d |h- | Jump_Zero 0x9e6 09b9 4801 |H | Short_Literal 0x1 09ba 4801 |H | Short_Literal 0x1 09bb 4800 |H | Short_Literal 0x0 09bc 4801 |H | Short_Literal 0x1 09bd e5fd | | Load 0x2,-0x3 09be e009 | | Load 0x0,0x9 09bf 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 09c0 e002 | | Load 0x0,0x2 09c1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 09c2 4800 |H | Short_Literal 0x0 09c3 0092 0f8f | | Action Push_String_Extended,0xf8f ; "<ALL_WORLDS>" 09c5 4802 |H | Short_Literal 0x2 09c6 e5ff | | Load 0x2,-0x1 09c7 e009 | | Load 0x0,0x9 09c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 09c9 e011 | | Load 0x0,0x11 09ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 09cb 00da | | Load_Top At_Offset_2 09cc e015 | | Load 0x0,0x15 09cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 09ce 6816 |h | Jump_Zero 0x9e5 09cf e5fd | | Load 0x2,-0x3 09d0 4801 |H | Short_Literal 0x1 09d1 4801 |H | Short_Literal 0x1 09d2 e00b | | Load 0x0,0xb 09d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d4 035b | [ | Declare_Type Array,Constrained 09d5 0337 | 7 | Declare_Variable Array 09d6 e5ff | | Load 0x2,-0x1 09d7 e009 | | Load 0x0,0x9 09d8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 09d9 e00b | | Load 0x0,0xb 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 67c8 |g | Indirect_Literal Discrete,0x9a8,{0x00000000, 0x00008805} 09e0 e001 | | Load 0x0,0x1 09e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09e2 e001 | | Load 0x0,0x1 09e3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09e4 0257 | W | Execute Discrete,Raise 09e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09e6 e5fd | | Load 0x2,-0x3 09e7 4801 |H | Short_Literal 0x1 09e8 4801 |H | Short_Literal 0x1 09e9 e00b | | Load 0x0,0xb 09ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09eb 035b | [ | Declare_Type Array,Constrained 09ec 0337 | 7 | Declare_Variable Array 09ed e5ff | | Load 0x2,-0x1 09ee e009 | | Load 0x0,0x9 09ef 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 09f0 e00b | | Load 0x0,0xb 09f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09f2 0119 | | Execute Any,Check_In_Formal_Type 09f3 4801 |H | Short_Literal 0x1 09f4 00da | | Load_Top At_Offset_2 09f5 01d6 | | Execute Vector,Field_Write 09f6 67b1 |g | Indirect_Literal Discrete,0x9a8,{0x00000000, 0x00008805} 09f7 e001 | | Load 0x0,0x1 09f8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09f9 e001 | | Load 0x0,0x1 09fa 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09fb 0257 | W | Execute Discrete,Raise 09fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09fd 0000 0000 | | .XXX[0x3] 09ff 0000 | | 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; SUBPROGRAM 0a00 ; -------------------------------------------------------------------------------------- 0a00 0a03 | | .CONST 0x0a03 ; Address of begin 0a01 0004 | | .CONST 0x0004 ; Address of exception handler 0a02 0001 | | .CONST 0x0001 ; Number of locals 0a03 BODY_0a00: 0a03 INIT_0a00: 0a03 4800 |H | Short_Literal 0x0 0a04 e5fe | | Load 0x2,-0x2 0a05 4821 |H! | Short_Literal 0x21 0a06 e012 | | Load 0x0,0x12 0a07 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a08 6802 |h | Jump_Zero 0xa0b 0a09 00db | | Load_Top At_Offset_3 0a0a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a0b 00da | | Load_Top At_Offset_2 0a0c e009 | | Load 0x0,0x9 0a0d 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a0e 6809 |h | Jump_Zero 0xa18 0a0f 00da | | Load_Top At_Offset_2 0a10 e009 | | Load 0x0,0x9 0a11 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a12 0092 0f9c | | Action Push_String_Extended,0xf9c ; ".Units." 0a14 01cc | | Execute Vector,Catenate 0a15 e5fe | | Load 0x2,-0x2 0a16 01cc | | Execute Vector,Catenate 0a17 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a18 00da | | Load_Top At_Offset_2 0a19 e009 | | Load 0x0,0x9 0a1a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a1b 0092 0f9d | | Action Push_String_Extended,0xf9d ; "." 0a1d 01cc | | Execute Vector,Catenate 0a1e e5fe | | Load 0x2,-0x2 0a1f 01cc | | Execute Vector,Catenate 0a20 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a21 0000 0000 | | .BLANK 0000[0x7] 0a28 ; -------------------------------------------------------------------------------------- 0a28 ; SUBPROGRAM 0a28 ; -------------------------------------------------------------------------------------- 0a28 0a2b | + | .CONST 0x0a2b ; Address of begin 0a29 0004 | | .CONST 0x0004 ; Address of exception handler 0a2a 0001 | | .CONST 0x0001 ; Number of locals 0a2b BODY_0a28: 0a2b INIT_0a28: 0a2b 00da | | Load_Top At_Offset_2 0a2c e009 | | Load 0x0,0x9 0a2d 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a2e 680b |h | Jump_Zero 0xa3a 0a2f 00db | | Load_Top At_Offset_3 0a30 4801 |H | Short_Literal 0x1 0a31 e5ff | | Load 0x2,-0x1 0a32 e009 | | Load 0x0,0x9 0a33 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a34 0092 0f9e | | Action Push_String_Extended,0xf9e ; ".units" 0a36 01cc | | Execute Vector,Catenate 0a37 e009 | | Load 0x0,0x9 0a38 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a39 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a3a 00da | | Load_Top At_Offset_2 0a3b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a3c 0000 0000 | | .BLANK 0000[0x4] 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; SUBPROGRAM 0a40 ; -------------------------------------------------------------------------------------- 0a40 0a49 | I | .CONST 0x0a49 ; Address of begin 0a41 0004 | | .CONST 0x0004 ; Address of exception handler 0a42 0002 | | .CONST 0x0002 ; Number of locals 0a43 INIT_0a40: 0a43 e404 | | Load 0x2,0x4 0a44 e406 | | Load 0x2,0x6 0a45 e412 | | Load 0x2,0x12 0a46 e40a | | Load 0x2,0xa 0a47 e405 | | Load 0x2,0x5 0a48 8212 | | Call 0x1,0x12 0a49 BODY_0a40: 0a49 e404 | | Load 0x2,0x4 0a4a 4801 |H | Short_Literal 0x1 0a4b 4802 |H | Short_Literal 0x2 0a4c e00b | | Load 0x0,0xb 0a4d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a4e 035b | [ | Declare_Type Array,Constrained 0a4f 0337 | 7 | Declare_Variable Array 0a50 00da | | Load_Top At_Offset_2 0a51 e00b | | Load 0x0,0xb 0a52 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a53 e00b | | Load 0x0,0xb 0a54 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a55 0119 | | Execute Any,Check_In_Formal_Type 0a56 4801 |H | Short_Literal 0x1 0a57 00da | | Load_Top At_Offset_2 0a58 01d6 | | Execute Vector,Field_Write 0a59 e40a | | Load 0x2,0xa 0a5a e009 | | Load 0x0,0x9 0a5b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a5c e00b | | Load 0x0,0xb 0a5d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a5e 0119 | | Execute Any,Check_In_Formal_Type 0a5f 4802 |H | Short_Literal 0x2 0a60 00da | | Load_Top At_Offset_2 0a61 01d6 | | Execute Vector,Field_Write 0a62 610d |a | Indirect_Literal Discrete,0xb70,{0x00000000, 0x00008878} 0a63 e001 | | Load 0x0,0x1 0a64 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a65 e404 | | Load 0x2,0x4 0a66 e406 | | Load 0x2,0x6 0a67 e5fe | | Load 0x2,-0x2 0a68 00db | | Load_Top At_Offset_3 0a69 e40b | | Load 0x2,0xb 0a6a e412 | | Load 0x2,0x12 0a6b e405 | | Load 0x2,0x5 0a6c e40a | | Load 0x2,0xa 0a6d e005 | | Load 0x0,0x5 0a6e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0a6f a40e | | Store_Unchecked 0x2,0xe 0a70 e40e | | Load 0x2,0xe 0a71 4605 |F | Jump_Case 0x6 0a72 7898 |x | Jump 0xb0b ; case 0x0 0a73 7804 |x | Jump 0xa78 ; case 0x1 0a74 7878 |xx | Jump 0xaed ; case 0x2 0a75 7859 |xY | Jump 0xacf ; case 0x3 0a76 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 0a77 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5 0a78 e406 | | Load 0x2,0x6 0a79 682e |h. | Jump_Zero 0xaa8 0a7a e404 | | Load 0x2,0x4 0a7b 4801 |H | Short_Literal 0x1 0a7c 4803 |H | Short_Literal 0x3 0a7d e00b | | Load 0x0,0xb 0a7e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a7f 035b | [ | Declare_Type Array,Constrained 0a80 0337 | 7 | Declare_Variable Array 0a81 0092 0f9f | | Action Push_String_Extended,0xf9f ; "Non-Ada unit associated with secondary " 0a83 e40a | | Load 0x2,0xa 0a84 e009 | | Load 0x0,0x9 0a85 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a86 01cc | | Execute Vector,Catenate 0a87 0092 0fa0 | | Action Push_String_Extended,0xfa0 ; " of Primary" 0a89 01cc | | Execute Vector,Catenate 0a8a e00b | | Load 0x0,0xb 0a8b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a8c e00b | | Load 0x0,0xb 0a8d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a8e 0119 | | Execute Any,Check_In_Formal_Type 0a8f 4801 |H | Short_Literal 0x1 0a90 00da | | Load_Top At_Offset_2 0a91 01d6 | | Execute Vector,Field_Write 0a92 e409 | | Load 0x2,0x9 0a93 e009 | | Load 0x0,0x9 0a94 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0a95 e00b | | Load 0x0,0xb 0a96 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a97 0119 | | Execute Any,Check_In_Formal_Type 0a98 4802 |H | Short_Literal 0x2 0a99 00da | | Load_Top At_Offset_2 0a9a 01d6 | | Execute Vector,Field_Write 0a9b 00da | | Load_Top At_Offset_2 0a9c e00b | | Load 0x0,0xb 0a9d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a9e e00b | | Load 0x0,0xb 0a9f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0aa0 0119 | | Execute Any,Check_In_Formal_Type 0aa1 4803 |H | Short_Literal 0x3 0aa2 00da | | Load_Top At_Offset_2 0aa3 01d6 | | Execute Vector,Field_Write 0aa4 60c7 |` | Indirect_Literal Discrete,0xb6c,{0x00000000, 0x0000884d} 0aa5 e001 | | Load 0x0,0x1 0aa6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0aa7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0aa8 e404 | | Load 0x2,0x4 0aa9 4801 |H | Short_Literal 0x1 0aaa 4803 |H | Short_Literal 0x3 0aab e00b | | Load 0x0,0xb 0aac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0aad 035b | [ | Declare_Type Array,Constrained 0aae 0337 | 7 | Declare_Variable Array 0aaf 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 0ab1 e00b | | Load 0x0,0xb 0ab2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ab3 e00b | | Load 0x0,0xb 0ab4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ab5 0119 | | Execute Any,Check_In_Formal_Type 0ab6 4801 |H | Short_Literal 0x1 0ab7 00da | | Load_Top At_Offset_2 0ab8 01d6 | | Execute Vector,Field_Write 0ab9 e40a | | Load 0x2,0xa 0aba e009 | | Load 0x0,0x9 0abb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0abc e00b | | Load 0x0,0xb 0abd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0abe 0119 | | Execute Any,Check_In_Formal_Type 0abf 4802 |H | Short_Literal 0x2 0ac0 00da | | Load_Top At_Offset_2 0ac1 01d6 | | Execute Vector,Field_Write 0ac2 00da | | Load_Top At_Offset_2 0ac3 e00b | | Load 0x0,0xb 0ac4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ac5 e00b | | Load 0x0,0xb 0ac6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ac7 0119 | | Execute Any,Check_In_Formal_Type 0ac8 4803 |H | Short_Literal 0x3 0ac9 00da | | Load_Top At_Offset_2 0aca 01d6 | | Execute Vector,Field_Write 0acb 60a0 |` | Indirect_Literal Discrete,0xb6c,{0x00000000, 0x0000884d} 0acc e001 | | Load 0x0,0x1 0acd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ace 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0acf e404 | | Load 0x2,0x4 0ad0 4801 |H | Short_Literal 0x1 0ad1 4802 |H | Short_Literal 0x2 0ad2 e00b | | Load 0x0,0xb 0ad3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ad4 035b | [ | Declare_Type Array,Constrained 0ad5 0337 | 7 | Declare_Variable Array 0ad6 0092 0fa1 | | Action Push_String_Extended,0xfa1 ; "Unexpected unit status is 'Changed_On_Both'" 0ad8 e00b | | Load 0x0,0xb 0ad9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ada e00b | | Load 0x0,0xb 0adb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0adc 0119 | | Execute Any,Check_In_Formal_Type 0add 4801 |H | Short_Literal 0x1 0ade 00da | | Load_Top At_Offset_2 0adf 01d6 | | Execute Vector,Field_Write 0ae0 e402 | | Load 0x2,0x2 0ae1 e00b | | Load 0x0,0xb 0ae2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ae3 e00b | | Load 0x0,0xb 0ae4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ae5 0119 | | Execute Any,Check_In_Formal_Type 0ae6 4802 |H | Short_Literal 0x2 0ae7 00da | | Load_Top At_Offset_2 0ae8 01d6 | | Execute Vector,Field_Write 0ae9 607e |`~ | Indirect_Literal Discrete,0xb68,{0x00000000, 0x00008be9} 0aea e001 | | Load 0x0,0x1 0aeb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0aec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0aed e404 | | Load 0x2,0x4 0aee 4801 |H | Short_Literal 0x1 0aef 4802 |H | Short_Literal 0x2 0af0 e00b | | Load 0x0,0xb 0af1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0af2 035b | [ | Declare_Type Array,Constrained 0af3 0337 | 7 | Declare_Variable Array 0af4 0092 0fa2 | | Action Push_String_Extended,0xfa2 ; "Unexpected unit status is 'Changed_On_Host'" 0af6 e00b | | Load 0x0,0xb 0af7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0af8 e00b | | Load 0x0,0xb 0af9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0afa 0119 | | Execute Any,Check_In_Formal_Type 0afb 4801 |H | Short_Literal 0x1 0afc 00da | | Load_Top At_Offset_2 0afd 01d6 | | Execute Vector,Field_Write 0afe e402 | | Load 0x2,0x2 0aff e00b | | Load 0x0,0xb 0b00 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b01 e00b | | Load 0x0,0xb 0b02 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b03 0119 | | Execute Any,Check_In_Formal_Type 0b04 4802 |H | Short_Literal 0x2 0b05 00da | | Load_Top At_Offset_2 0b06 01d6 | | Execute Vector,Field_Write 0b07 6060 |`` | Indirect_Literal Discrete,0xb68,{0x00000000, 0x00008be9} 0b08 e001 | | Load 0x0,0x1 0b09 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b0a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b0b e406 | | Load 0x2,0x6 0b0c 682e |h. | Jump_Zero 0xb3b 0b0d e404 | | Load 0x2,0x4 0b0e 4801 |H | Short_Literal 0x1 0b0f 4803 |H | Short_Literal 0x3 0b10 e00b | | Load 0x0,0xb 0b11 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b12 035b | [ | Declare_Type Array,Constrained 0b13 0337 | 7 | Declare_Variable Array 0b14 0092 0fa3 | | Action Push_String_Extended,0xfa3 ; "Secondary " 0b16 e40a | | Load 0x2,0xa 0b17 e009 | | Load 0x0,0x9 0b18 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b19 01cc | | Execute Vector,Catenate 0b1a 0092 0fa0 | | Action Push_String_Extended,0xfa0 ; " of Primary" 0b1c 01cc | | Execute Vector,Catenate 0b1d e00b | | Load 0x0,0xb 0b1e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b1f e00b | | Load 0x0,0xb 0b20 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b21 0119 | | Execute Any,Check_In_Formal_Type 0b22 4801 |H | Short_Literal 0x1 0b23 00da | | Load_Top At_Offset_2 0b24 01d6 | | Execute Vector,Field_Write 0b25 e409 | | Load 0x2,0x9 0b26 e009 | | Load 0x0,0x9 0b27 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0b28 e00b | | Load 0x0,0xb 0b29 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b2a 0119 | | Execute Any,Check_In_Formal_Type 0b2b 4802 |H | Short_Literal 0x2 0b2c 00da | | Load_Top At_Offset_2 0b2d 01d6 | | Execute Vector,Field_Write 0b2e 00da | | Load_Top At_Offset_2 0b2f e00b | | Load 0x0,0xb 0b30 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b31 e00b | | Load 0x0,0xb 0b32 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b33 0119 | | Execute Any,Check_In_Formal_Type 0b34 4803 |H | Short_Literal 0x3 0b35 00da | | Load_Top At_Offset_2 0b36 01d6 | | Execute Vector,Field_Write 0b37 602c |`, | Indirect_Literal Discrete,0xb64,{0x00000000, 0x0000884b} 0b38 e001 | | Load 0x0,0x1 0b39 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b3a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b3b e404 | | Load 0x2,0x4 0b3c 4801 |H | Short_Literal 0x1 0b3d 4803 |H | Short_Literal 0x3 0b3e e00b | | Load 0x0,0xb 0b3f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b40 035b | [ | Declare_Type Array,Constrained 0b41 0337 | 7 | Declare_Variable Array 0b42 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 0b44 e00b | | Load 0x0,0xb 0b45 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b46 e00b | | Load 0x0,0xb 0b47 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b48 0119 | | Execute Any,Check_In_Formal_Type 0b49 4801 |H | Short_Literal 0x1 0b4a 00da | | Load_Top At_Offset_2 0b4b 01d6 | | Execute Vector,Field_Write 0b4c e40a | | Load 0x2,0xa 0b4d e009 | | Load 0x0,0x9 0b4e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0b4f e00b | | Load 0x0,0xb 0b50 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b51 0119 | | Execute Any,Check_In_Formal_Type 0b52 4802 |H | Short_Literal 0x2 0b53 00da | | Load_Top At_Offset_2 0b54 01d6 | | Execute Vector,Field_Write 0b55 00da | | Load_Top At_Offset_2 0b56 e00b | | Load 0x0,0xb 0b57 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b58 e00b | | Load 0x0,0xb 0b59 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b5a 0119 | | Execute Any,Check_In_Formal_Type 0b5b 4803 |H | Short_Literal 0x3 0b5c 00da | | Load_Top At_Offset_2 0b5d 01d6 | | Execute Vector,Field_Write 0b5e 6005 |` | Indirect_Literal Discrete,0xb64,{0x00000000, 0x0000884b} 0b5f e001 | | Load 0x0,0x1 0b60 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b61 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b62 0000 0000 | | .XXX[0x2] 0b64 0000 0000 | | .LITERAL {0x00000000, 0x0000884b} 0b68 0000 0000 | | .LITERAL {0x00000000, 0x00008be9} 0b6c 0000 0000 | | .LITERAL {0x00000000, 0x0000884d} 0b70 0000 0000 | | .LITERAL {0x00000000, 0x00008878} 0b74 0000 0000 | | .BLANK 0000[0x4] 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; SUBPROGRAM 0b78 ; -------------------------------------------------------------------------------------- 0b78 0b7b | { | .CONST 0x0b7b ; Address of begin 0b79 0004 | | .CONST 0x0004 ; Address of exception handler 0b7a 0001 | | .CONST 0x0001 ; Number of locals 0b7b BODY_0b78: 0b7b INIT_0b78: 0b7b 00db | | Load_Top At_Offset_3 0b7c 00db | | Load_Top At_Offset_3 0b7d e009 | | Load 0x0,0x9 0b7e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b7f 6824 |h$ | Jump_Zero 0xba4 0b80 00db | | Load_Top At_Offset_3 0b81 00db | | Load_Top At_Offset_3 0b82 e009 | | Load 0x0,0x9 0b83 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0b84 681f |h | Jump_Zero 0xba4 0b85 00db | | Load_Top At_Offset_3 0b86 4801 |H | Short_Literal 0x1 0b87 4802 |H | Short_Literal 0x2 0b88 e00b | | Load 0x0,0xb 0b89 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b8a 035b | [ | Declare_Type Array,Constrained 0b8b 0337 | 7 | Declare_Variable Array 0b8c e7ff | | Load 0x3,-0x1 0b8d e009 | | Load 0x0,0x9 0b8e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0b8f e00b | | Load 0x0,0xb 0b90 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b91 0119 | | Execute Any,Check_In_Formal_Type 0b92 4801 |H | Short_Literal 0x1 0b93 00da | | Load_Top At_Offset_2 0b94 01d6 | | Execute Vector,Field_Write 0b95 e402 | | Load 0x2,0x2 0b96 e00b | | Load 0x0,0xb 0b97 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b98 e00b | | Load 0x0,0xb 0b99 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b9a 0119 | | Execute Any,Check_In_Formal_Type 0b9b 4802 |H | Short_Literal 0x2 0b9c 00da | | Load_Top At_Offset_2 0b9d 01d6 | | Execute Vector,Field_Write 0b9e 6009 |` | Indirect_Literal Discrete,0xba8,{0x00000000, 0x000088a0} 0b9f e001 | | Load 0x0,0x1 0ba0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ba1 e001 | | Load 0x0,0x1 0ba2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0ba3 0257 | W | Execute Discrete,Raise 0ba4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ba5 0000 0000 | | .XXX[0x3] 0ba7 0000 | | 0ba8 0000 0000 | | .LITERAL {0x00000000, 0x000088a0} 0bac 0000 0000 | | .BLANK 0000[0x4] 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 ; SUBPROGRAM 0bb0 ; -------------------------------------------------------------------------------------- 0bb0 0bb3 | | .CONST 0x0bb3 ; Address of begin 0bb1 0004 | | .CONST 0x0004 ; Address of exception handler 0bb2 0001 | | .CONST 0x0001 ; Number of locals 0bb3 BODY_0bb0: 0bb3 INIT_0bb0: 0bb3 00db | | Load_Top At_Offset_3 0bb4 00db | | Load_Top At_Offset_3 0bb5 e009 | | Load 0x0,0x9 0bb6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0bb7 680b |h | Jump_Zero 0xbc3 0bb8 0092 0fa4 | | Action Push_String_Extended,0xfa4 ; "<PROFILE>" 0bba 0092 0fa5 | | Action Push_String_Extended,0xfa5 ; "<DEFAULT>" 0bbc 0092 0fa6 | | Action Push_String_Extended,0xfa6 ; "Accepted remote changes" 0bbe e7ff | | Load 0x3,-0x1 0bbf e009 | | Load 0x0,0x9 0bc0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0bc1 e016 | | Load 0x0,0x16 0bc2 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bc3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bc4 0000 0000 | | .BLANK 0000[0x4] 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bcb | | .CONST 0x0bcb ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0001 | | .CONST 0x0001 ; Number of locals 0bcb BODY_0bc8: 0bcb INIT_0bc8: 0bcb 00db | | Load_Top At_Offset_3 0bcc 00db | | Load_Top At_Offset_3 0bcd e009 | | Load 0x0,0x9 0bce 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0bcf 6810 |h | Jump_Zero 0xbe0 0bd0 e5fa | | Load 0x2,-0x6 0bd1 0092 0fa5 | | Action Push_String_Extended,0xfa5 ; "<DEFAULT>" 0bd3 0092 0fa7 | | Action Push_String_Extended,0xfa7 ; "<TOMORROW>" 0bd5 4801 |H | Short_Literal 0x1 0bd6 4800 |H | Short_Literal 0x0 0bd7 e5fe | | Load 0x2,-0x2 0bd8 4801 |H | Short_Literal 0x1 0bd9 0092 0fa8 | | Action Push_String_Extended,0xfa8 ; "Accepting remote changes" 0bdb e7ff | | Load 0x3,-0x1 0bdc e009 | | Load 0x0,0x9 0bdd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0bde e016 | | Load 0x0,0x16 0bdf 180d | | Execute Package,Field_Execute,Field_Number 0xd 0be0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0be1 0000 0000 | | .BLANK 0000[0x7] 0be8 ; -------------------------------------------------------------------------------------- 0be8 ; SUBPROGRAM 0be8 ; -------------------------------------------------------------------------------------- 0be8 0beb | | .CONST 0x0beb ; Address of begin 0be9 0004 | | .CONST 0x0004 ; Address of exception handler 0bea 0001 | | .CONST 0x0001 ; Number of locals 0beb BODY_0be8: 0beb INIT_0be8: 0beb e40a | | Load 0x2,0xa 0bec 6803 |h | Jump_Zero 0xbf0 0bed e40c | | Load 0x2,0xc 0bee c40d | | Store 0x2,0xd 0bef 7802 |x | Jump 0xbf2 0bf0 e40e | | Load 0x2,0xe 0bf1 c40d | | Store 0x2,0xd 0bf2 e404 | | Load 0x2,0x4 0bf3 e5fe | | Load 0x2,-0x2 0bf4 e40d | | Load 0x2,0xd 0bf5 8214 | | Call 0x1,0x14 0bf6 e40a | | Load 0x2,0xa 0bf7 68f9 |h | Jump_Zero 0xcf1 0bf8 e001 | | Load 0x0,0x1 0bf9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bfa e40f | | Load 0x2,0xf 0bfb 0120 | | Execute Any,Is_Value 0bfc 6803 |h | Jump_Zero 0xc00 0bfd e003 | | Load 0x0,0x3 0bfe 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bff 7801 |x | Jump 0xc01 0c00 e40f | | Load 0x2,0xf 0c01 e404 | | Load 0x2,0x4 0c02 e40e | | Load 0x2,0xe 0c03 e010 | | Load 0x0,0x10 0c04 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 0c05 c40f | | Store 0x2,0xf 0c06 c403 | | Store 0x2,0x3 0c07 4800 |H | Short_Literal 0x0 0c08 e403 | | Load 0x2,0x3 0c09 e001 | | Load 0x0,0x1 0c0a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0c0b 7003 |p | Jump_Nonzero 0xc0f 0c0c e001 | | Load 0x0,0x1 0c0d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0c0e 0257 | W | Execute Discrete,Raise 0c0f e404 | | Load 0x2,0x4 0c10 e40f | | Load 0x2,0xf 0c11 8418 | | Call 0x2,0x18 0c12 e404 | | Load 0x2,0x4 0c13 e40f | | Load 0x2,0xf 0c14 841a | | Call 0x2,0x1a 0c15 e001 | | Load 0x0,0x1 0c16 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c17 e404 | | Load 0x2,0x4 0c18 e40f | | Load 0x2,0xf 0c19 e009 | | Load 0x0,0x9 0c1a 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0c1b c403 | | Store 0x2,0x3 0c1c 4800 |H | Short_Literal 0x0 0c1d e403 | | Load 0x2,0x3 0c1e e001 | | Load 0x0,0x1 0c1f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0c20 7032 |p2 | Jump_Nonzero 0xc53 0c21 e404 | | Load 0x2,0x4 0c22 4801 |H | Short_Literal 0x1 0c23 4804 |H | Short_Literal 0x4 0c24 e00b | | Load 0x0,0xb 0c25 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c26 035b | [ | Declare_Type Array,Constrained 0c27 0337 | 7 | Declare_Variable Array 0c28 e7ff | | Load 0x3,-0x1 0c29 e00b | | Load 0x0,0xb 0c2a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c2b e00b | | Load 0x0,0xb 0c2c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c2d 0119 | | Execute Any,Check_In_Formal_Type 0c2e 4801 |H | Short_Literal 0x1 0c2f 00da | | Load_Top At_Offset_2 0c30 01d6 | | Execute Vector,Field_Write 0c31 0092 0fa9 | | Action Push_String_Extended,0xfa9 ; "Secondary text file" 0c33 e00b | | Load 0x0,0xb 0c34 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c35 e00b | | Load 0x0,0xb 0c36 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c37 0119 | | Execute Any,Check_In_Formal_Type 0c38 4802 |H | Short_Literal 0x2 0c39 00da | | Load_Top At_Offset_2 0c3a 01d6 | | Execute Vector,Field_Write 0c3b e40e | | Load 0x2,0xe 0c3c e009 | | Load 0x0,0x9 0c3d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0c3e e00b | | Load 0x0,0xb 0c3f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c40 0119 | | Execute Any,Check_In_Formal_Type 0c41 4803 |H | Short_Literal 0x3 0c42 00da | | Load_Top At_Offset_2 0c43 01d6 | | Execute Vector,Field_Write 0c44 e416 | | Load 0x2,0x16 0c45 e00b | | Load 0x0,0xb 0c46 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0c47 e00b | | Load 0x0,0xb 0c48 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c49 0119 | | Execute Any,Check_In_Formal_Type 0c4a 4804 |H | Short_Literal 0x4 0c4b 00da | | Load_Top At_Offset_2 0c4c 01d6 | | Execute Vector,Field_Write 0c4d 610a |a | Indirect_Literal Discrete,0xd58,{0x00000000, 0x00008816} 0c4e e001 | | Load 0x0,0x1 0c4f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c50 e001 | | Load 0x0,0x1 0c51 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0c52 0257 | W | Execute Discrete,Raise 0c53 e403 | | Load 0x2,0x3 0c54 e404 | | Load 0x2,0x4 0c55 4801 |H | Short_Literal 0x1 0c56 e410 | | Load 0x2,0x10 0c57 e411 | | Load 0x2,0x11 0c58 e40f | | Load 0x2,0xf 0c59 e009 | | Load 0x0,0x9 0c5a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0c5b e404 | | Load 0x2,0x4 0c5c 4801 |H | Short_Literal 0x1 0c5d e40e | | Load 0x2,0xe 0c5e e009 | | Load 0x0,0x9 0c5f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0c60 e409 | | Load 0x2,0x9 0c61 4800 |H | Short_Literal 0x0 0c62 e7ff | | Load 0x3,-0x1 0c63 e40e | | Load 0x2,0xe 0c64 e005 | | Load 0x0,0x5 0c65 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c66 c403 | | Store 0x2,0x3 0c67 4800 |H | Short_Literal 0x0 0c68 e403 | | Load 0x2,0x3 0c69 e001 | | Load 0x0,0x1 0c6a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0c6b 7036 |p6 | Jump_Nonzero 0xca2 0c6c e404 | | Load 0x2,0x4 0c6d 4801 |H | Short_Literal 0x1 0c6e 4803 |H | Short_Literal 0x3 0c6f e00b | | Load 0x0,0xb 0c70 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c71 035b | [ | Declare_Type Array,Constrained 0c72 0337 | 7 | Declare_Variable Array 0c73 e7ff | | Load 0x3,-0x1 0c74 e00b | | Load 0x0,0xb 0c75 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c76 e00b | | Load 0x0,0xb 0c77 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c78 0119 | | Execute Any,Check_In_Formal_Type 0c79 4801 |H | Short_Literal 0x1 0c7a 00da | | Load_Top At_Offset_2 0c7b 01d6 | | Execute Vector,Field_Write 0c7c 0092 0fa9 | | Action Push_String_Extended,0xfa9 ; "Secondary text file" 0c7e e00b | | Load 0x0,0xb 0c7f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c80 e00b | | Load 0x0,0xb 0c81 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c82 0119 | | Execute Any,Check_In_Formal_Type 0c83 4802 |H | Short_Literal 0x2 0c84 00da | | Load_Top At_Offset_2 0c85 01d6 | | Execute Vector,Field_Write 0c86 e40e | | Load 0x2,0xe 0c87 e009 | | Load 0x0,0x9 0c88 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0c89 e00b | | Load 0x0,0xb 0c8a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c8b 0119 | | Execute Any,Check_In_Formal_Type 0c8c 4803 |H | Short_Literal 0x3 0c8d 00da | | Load_Top At_Offset_2 0c8e 01d6 | | Execute Vector,Field_Write 0c8f 60c8 |` | Indirect_Literal Discrete,0xd58,{0x00000000, 0x00008816} 0c90 e001 | | Load 0x0,0x1 0c91 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c92 0092 0fa4 | | Action Push_String_Extended,0xfa4 ; "<PROFILE>" 0c94 0092 0fa5 | | Action Push_String_Extended,0xfa5 ; "<DEFAULT>" 0c96 00ea | | Load_Encached Null_String_Cache 0c97 4801 |H | Short_Literal 0x1 0c98 4800 |H | Short_Literal 0x0 0c99 4801 |H | Short_Literal 0x1 0c9a e40f | | Load 0x2,0xf 0c9b e009 | | Load 0x0,0x9 0c9c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0c9d e016 | | Load 0x0,0x16 0c9e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c9f e001 | | Load 0x0,0x1 0ca0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0ca1 0257 | W | Execute Discrete,Raise 0ca2 e404 | | Load 0x2,0x4 0ca3 e40f | | Load 0x2,0xf 0ca4 8419 | | Call 0x2,0x19 0ca5 e001 | | Load 0x0,0x1 0ca6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ca7 e404 | | Load 0x2,0x4 0ca8 e40f | | Load 0x2,0xf 0ca9 e009 | | Load 0x0,0x9 0caa 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0cab c403 | | Store 0x2,0x3 0cac 4800 |H | Short_Literal 0x0 0cad e403 | | Load 0x2,0x3 0cae e001 | | Load 0x0,0x1 0caf 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0cb0 7003 |p | Jump_Nonzero 0xcb4 0cb1 e001 | | Load 0x0,0x1 0cb2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0cb3 0257 | W | Execute Discrete,Raise 0cb4 e5fc | | Load 0x2,-0x4 0cb5 683a |h: | Jump_Zero 0xcf0 0cb6 e5fb | | Load 0x2,-0x5 0cb7 0f03 | | Execute_Immediate Equal,0x3 0cb8 6837 |h7 | Jump_Zero 0xcf0 0cb9 e001 | | Load 0x0,0x1 0cba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cbb e404 | | Load 0x2,0x4 0cbc e411 | | Load 0x2,0x11 0cbd e40c | | Load 0x2,0xc 0cbe e017 | | Load 0x0,0x17 0cbf 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0cc0 c403 | | Store 0x2,0x3 0cc1 4800 |H | Short_Literal 0x0 0cc2 e403 | | Load 0x2,0x3 0cc3 e001 | | Load 0x0,0x1 0cc4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0cc5 702a |p* | Jump_Nonzero 0xcf0 0cc6 e404 | | Load 0x2,0x4 0cc7 4801 |H | Short_Literal 0x1 0cc8 4801 |H | Short_Literal 0x1 0cc9 e00b | | Load 0x0,0xb 0cca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ccb 035b | [ | Declare_Type Array,Constrained 0ccc 0337 | 7 | Declare_Variable Array 0ccd 0092 0faa | | Action Push_String_Extended,0xfaa ; "Can't re-promote secondary " 0ccf e40e | | Load 0x2,0xe 0cd0 e009 | | Load 0x0,0x9 0cd1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0cd2 01cc | | Execute Vector,Catenate 0cd3 0092 0fab | | Action Push_String_Extended,0xfab ; " of primary " 0cd5 01cc | | Execute Vector,Catenate 0cd6 e40c | | Load 0x2,0xc 0cd7 e009 | | Load 0x0,0x9 0cd8 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0cd9 01cc | | Execute Vector,Catenate 0cda 0092 0fac | | Action Push_String_Extended,0xfac ; " (" 0cdc 01cc | | Execute Vector,Catenate 0cdd e403 | | Load 0x2,0x3 0cde e001 | | Load 0x0,0x1 0cdf 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0ce0 01cc | | Execute Vector,Catenate 0ce1 0092 0fad | | Action Push_String_Extended,0xfad ; ")." 0ce3 01cc | | Execute Vector,Catenate 0ce4 e00b | | Load 0x0,0xb 0ce5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ce6 e00b | | Load 0x0,0xb 0ce7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ce8 0119 | | Execute Any,Check_In_Formal_Type 0ce9 4801 |H | Short_Literal 0x1 0cea 00da | | Load_Top At_Offset_2 0ceb 01d6 | | Execute Vector,Field_Write 0cec 4806 |H | Short_Literal 0x6 0ced 6066 |`f | Indirect_Literal Discrete,0xd54,{0x00000000, 0x00008893} 0cee e001 | | Load 0x0,0x1 0cef 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0cf0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cf1 4801 |H | Short_Literal 0x1 0cf2 a406 | | Store_Unchecked 0x2,0x6 0cf3 e404 | | Load 0x2,0x4 0cf4 e40e | | Load 0x2,0xe 0cf5 8418 | | Call 0x2,0x18 0cf6 e404 | | Load 0x2,0x4 0cf7 e40e | | Load 0x2,0xe 0cf8 841a | | Call 0x2,0x1a 0cf9 e404 | | Load 0x2,0x4 0cfa e40e | | Load 0x2,0xe 0cfb 8213 | | Call 0x1,0x13 0cfc e403 | | Load 0x2,0x3 0cfd 4801 |H | Short_Literal 0x1 0cfe 4801 |H | Short_Literal 0x1 0cff 4800 |H | Short_Literal 0x0 0d00 4801 |H | Short_Literal 0x1 0d01 e404 | | Load 0x2,0x4 0d02 e009 | | Load 0x0,0x9 0d03 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0d04 4801 |H | Short_Literal 0x1 0d05 e410 | | Load 0x2,0x10 0d06 e411 | | Load 0x2,0x11 0d07 00ea | | Load_Encached Null_String_Cache 0d08 e404 | | Load 0x2,0x4 0d09 4801 |H | Short_Literal 0x1 0d0a e40e | | Load 0x2,0xe 0d0b e009 | | Load 0x0,0x9 0d0c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0d0d e409 | | Load 0x2,0x9 0d0e 4801 |H | Short_Literal 0x1 0d0f e7ff | | Load 0x3,-0x1 0d10 e40e | | Load 0x2,0xe 0d11 e005 | | Load 0x0,0x5 0d12 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d13 c403 | | Store 0x2,0x3 0d14 4800 |H | Short_Literal 0x0 0d15 e403 | | Load 0x2,0x3 0d16 e001 | | Load 0x0,0x1 0d17 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0d18 7036 |p6 | Jump_Nonzero 0xd4f 0d19 e404 | | Load 0x2,0x4 0d1a 4801 |H | Short_Literal 0x1 0d1b 4803 |H | Short_Literal 0x3 0d1c e00b | | Load 0x0,0xb 0d1d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d1e 035b | [ | Declare_Type Array,Constrained 0d1f 0337 | 7 | Declare_Variable Array 0d20 e7ff | | Load 0x3,-0x1 0d21 e00b | | Load 0x0,0xb 0d22 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d23 e00b | | Load 0x0,0xb 0d24 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d25 0119 | | Execute Any,Check_In_Formal_Type 0d26 4801 |H | Short_Literal 0x1 0d27 00da | | Load_Top At_Offset_2 0d28 01d6 | | Execute Vector,Field_Write 0d29 0092 0f97 | | Action Push_String_Extended,0xf97 ; "local Ada unit" 0d2b e00b | | Load 0x0,0xb 0d2c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d2d e00b | | Load 0x0,0xb 0d2e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d2f 0119 | | Execute Any,Check_In_Formal_Type 0d30 4802 |H | Short_Literal 0x2 0d31 00da | | Load_Top At_Offset_2 0d32 01d6 | | Execute Vector,Field_Write 0d33 e40e | | Load 0x2,0xe 0d34 e009 | | Load 0x0,0x9 0d35 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d36 e00b | | Load 0x0,0xb 0d37 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d38 0119 | | Execute Any,Check_In_Formal_Type 0d39 4803 |H | Short_Literal 0x3 0d3a 00da | | Load_Top At_Offset_2 0d3b 01d6 | | Execute Vector,Field_Write 0d3c 601b |` | Indirect_Literal Discrete,0xd58,{0x00000000, 0x00008816} 0d3d e001 | | Load 0x0,0x1 0d3e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d3f 0092 0fa4 | | Action Push_String_Extended,0xfa4 ; "<PROFILE>" 0d41 0092 0fa5 | | Action Push_String_Extended,0xfa5 ; "<DEFAULT>" 0d43 00ea | | Load_Encached Null_String_Cache 0d44 4801 |H | Short_Literal 0x1 0d45 4800 |H | Short_Literal 0x0 0d46 4801 |H | Short_Literal 0x1 0d47 e40e | | Load 0x2,0xe 0d48 e009 | | Load 0x0,0x9 0d49 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d4a e016 | | Load 0x0,0x16 0d4b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d4c e001 | | Load 0x0,0x1 0d4d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0d4e 0257 | W | Execute Discrete,Raise 0d4f e404 | | Load 0x2,0x4 0d50 e40e | | Load 0x2,0xe 0d51 8419 | | Call 0x2,0x19 0d52 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0d53 0000 | | .XXX[0x1] 0d54 0000 0000 | | .LITERAL {0x00000000, 0x00008893} 0d58 0000 0000 | | .LITERAL {0x00000000, 0x00008816} 0d5c 0000 0000 | | .BLANK 0000[0x4] 0d60 ; -------------------------------------------------------------------------------------- 0d60 ; SUBPROGRAM 0d60 ; -------------------------------------------------------------------------------------- 0d60 0d69 | i | .CONST 0x0d69 ; Address of begin 0d61 0004 | | .CONST 0x0004 ; Address of exception handler 0d62 0002 | | .CONST 0x0002 ; Number of locals 0d63 INIT_0d60: 0d63 e404 | | Load 0x2,0x4 0d64 e40a | | Load 0x2,0xa 0d65 e411 | | Load 0x2,0x11 0d66 e40e | | Load 0x2,0xe 0d67 e409 | | Load 0x2,0x9 0d68 8212 | | Call 0x1,0x12 0d69 BODY_0d60: 0d69 e404 | | Load 0x2,0x4 0d6a 4801 |H | Short_Literal 0x1 0d6b 4802 |H | Short_Literal 0x2 0d6c e00b | | Load 0x0,0xb 0d6d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d6e 035b | [ | Declare_Type Array,Constrained 0d6f 0337 | 7 | Declare_Variable Array 0d70 00da | | Load_Top At_Offset_2 0d71 e00b | | Load 0x0,0xb 0d72 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d73 e00b | | Load 0x0,0xb 0d74 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d75 0119 | | Execute Any,Check_In_Formal_Type 0d76 4801 |H | Short_Literal 0x1 0d77 00da | | Load_Top At_Offset_2 0d78 01d6 | | Execute Vector,Field_Write 0d79 e40e | | Load 0x2,0xe 0d7a e009 | | Load 0x0,0x9 0d7b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0d7c e00b | | Load 0x0,0xb 0d7d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d7e 0119 | | Execute Any,Check_In_Formal_Type 0d7f 4802 |H | Short_Literal 0x2 0d80 00da | | Load_Top At_Offset_2 0d81 01d6 | | Execute Vector,Field_Write 0d82 60c5 |` | Indirect_Literal Discrete,0xe48,{0x00000000, 0x00008878} 0d83 e001 | | Load 0x0,0x1 0d84 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d85 e404 | | Load 0x2,0x4 0d86 e40a | | Load 0x2,0xa 0d87 e5fd | | Load 0x2,-0x3 0d88 00db | | Load_Top At_Offset_3 0d89 e410 | | Load 0x2,0x10 0d8a e411 | | Load 0x2,0x11 0d8b e409 | | Load 0x2,0x9 0d8c e40e | | Load 0x2,0xe 0d8d e005 | | Load 0x0,0x5 0d8e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d8f a413 | | Store_Unchecked 0x2,0x13 0d90 e413 | | Load 0x2,0x13 0d91 4605 |F | Jump_Case 0x6 0d92 780b |x | Jump 0xd9e ; case 0x0 0d93 7807 |x | Jump 0xd9b ; case 0x1 0d94 788b |x | Jump 0xe20 ; case 0x2 0d95 786c |xl | Jump 0xe02 ; case 0x3 0d96 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 0d97 7800 |x | Jump 0xd98 ; case 0x5 0d98 4801 |H | Short_Literal 0x1 0d99 a417 | | Store_Unchecked 0x2,0x17 0d9a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d9b 00d8 | | Load_Top At_Offset_0 0d9c 841b | | Call 0x2,0x1b 0d9d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d9e e40a | | Load 0x2,0xa 0d9f 6831 |h1 | Jump_Zero 0xdd1 0da0 e404 | | Load 0x2,0x4 0da1 4801 |H | Short_Literal 0x1 0da2 4804 |H | Short_Literal 0x4 0da3 e00b | | Load 0x0,0xb 0da4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0da5 035b | [ | Declare_Type Array,Constrained 0da6 0337 | 7 | Declare_Variable Array 0da7 0092 0fae | | Action Push_String_Extended,0xfae ; "Secondary unit" 0da9 e00b | | Load 0x0,0xb 0daa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dab e00b | | Load 0x0,0xb 0dac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dad 0119 | | Execute Any,Check_In_Formal_Type 0dae 4801 |H | Short_Literal 0x1 0daf 00da | | Load_Top At_Offset_2 0db0 01d6 | | Execute Vector,Field_Write 0db1 e40e | | Load 0x2,0xe 0db2 e009 | | Load 0x0,0x9 0db3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0db4 e00b | | Load 0x0,0xb 0db5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0db6 0119 | | Execute Any,Check_In_Formal_Type 0db7 4802 |H | Short_Literal 0x2 0db8 00da | | Load_Top At_Offset_2 0db9 01d6 | | Execute Vector,Field_Write 0dba 00da | | Load_Top At_Offset_2 0dbb e00b | | Load 0x0,0xb 0dbc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dbd e00b | | Load 0x0,0xb 0dbe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dbf 0119 | | Execute Any,Check_In_Formal_Type 0dc0 4803 |H | Short_Literal 0x3 0dc1 00da | | Load_Top At_Offset_2 0dc2 01d6 | | Execute Vector,Field_Write 0dc3 0092 0faf | | Action Push_String_Extended,0xfaf ; ", so it won't be changed" 0dc5 e00b | | Load 0x0,0xb 0dc6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc7 e00b | | Load 0x0,0xb 0dc8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dc9 0119 | | Execute Any,Check_In_Formal_Type 0dca 4804 |H | Short_Literal 0x4 0dcb 00da | | Load_Top At_Offset_2 0dcc 01d6 | | Execute Vector,Field_Write 0dcd 6076 |`v | Indirect_Literal Discrete,0xe44,{0x00000000, 0x0000884b} 0dce e001 | | Load 0x0,0x1 0dcf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0dd0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dd1 e404 | | Load 0x2,0x4 0dd2 4801 |H | Short_Literal 0x1 0dd3 4804 |H | Short_Literal 0x4 0dd4 e00b | | Load 0x0,0xb 0dd5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dd6 035b | [ | Declare_Type Array,Constrained 0dd7 0337 | 7 | Declare_Variable Array 0dd8 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Unit" 0dda e00b | | Load 0x0,0xb 0ddb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ddc e00b | | Load 0x0,0xb 0ddd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dde 0119 | | Execute Any,Check_In_Formal_Type 0ddf 4801 |H | Short_Literal 0x1 0de0 00da | | Load_Top At_Offset_2 0de1 01d6 | | Execute Vector,Field_Write 0de2 e40e | | Load 0x2,0xe 0de3 e009 | | Load 0x0,0x9 0de4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0de5 e00b | | Load 0x0,0xb 0de6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0de7 0119 | | Execute Any,Check_In_Formal_Type 0de8 4802 |H | Short_Literal 0x2 0de9 00da | | Load_Top At_Offset_2 0dea 01d6 | | Execute Vector,Field_Write 0deb 00da | | Load_Top At_Offset_2 0dec e00b | | Load 0x0,0xb 0ded 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dee e00b | | Load 0x0,0xb 0def 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0df0 0119 | | Execute Any,Check_In_Formal_Type 0df1 4803 |H | Short_Literal 0x3 0df2 00da | | Load_Top At_Offset_2 0df3 01d6 | | Execute Vector,Field_Write 0df4 0092 0faf | | Action Push_String_Extended,0xfaf ; ", so it won't be changed" 0df6 e00b | | Load 0x0,0xb 0df7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0df8 e00b | | Load 0x0,0xb 0df9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dfa 0119 | | Execute Any,Check_In_Formal_Type 0dfb 4804 |H | Short_Literal 0x4 0dfc 00da | | Load_Top At_Offset_2 0dfd 01d6 | | Execute Vector,Field_Write 0dfe 6045 |`E | Indirect_Literal Discrete,0xe44,{0x00000000, 0x0000884b} 0dff e001 | | Load 0x0,0x1 0e00 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e01 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e02 e404 | | Load 0x2,0x4 0e03 4801 |H | Short_Literal 0x1 0e04 4802 |H | Short_Literal 0x2 0e05 e00b | | Load 0x0,0xb 0e06 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e07 035b | [ | Declare_Type Array,Constrained 0e08 0337 | 7 | Declare_Variable Array 0e09 0092 0fb0 | | Action Push_String_Extended,0xfb0 ; "Unexpected unit status of 'Changed_On_Both'" 0e0b e00b | | Load 0x0,0xb 0e0c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e0d e00b | | Load 0x0,0xb 0e0e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e0f 0119 | | Execute Any,Check_In_Formal_Type 0e10 4801 |H | Short_Literal 0x1 0e11 00da | | Load_Top At_Offset_2 0e12 01d6 | | Execute Vector,Field_Write 0e13 e402 | | Load 0x2,0x2 0e14 e00b | | Load 0x0,0xb 0e15 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e16 e00b | | Load 0x0,0xb 0e17 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e18 0119 | | Execute Any,Check_In_Formal_Type 0e19 4802 |H | Short_Literal 0x2 0e1a 00da | | Load_Top At_Offset_2 0e1b 01d6 | | Execute Vector,Field_Write 0e1c 6023 |`# | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008be9} 0e1d e001 | | Load 0x0,0x1 0e1e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e1f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e20 e404 | | Load 0x2,0x4 0e21 4801 |H | Short_Literal 0x1 0e22 4802 |H | Short_Literal 0x2 0e23 e00b | | Load 0x0,0xb 0e24 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e25 035b | [ | Declare_Type Array,Constrained 0e26 0337 | 7 | Declare_Variable Array 0e27 0092 0fb1 | | Action Push_String_Extended,0xfb1 ; "Unexpected unit status of 'Changed_On_Host'" 0e29 e00b | | Load 0x0,0xb 0e2a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e2b e00b | | Load 0x0,0xb 0e2c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e2d 0119 | | Execute Any,Check_In_Formal_Type 0e2e 4801 |H | Short_Literal 0x1 0e2f 00da | | Load_Top At_Offset_2 0e30 01d6 | | Execute Vector,Field_Write 0e31 e402 | | Load 0x2,0x2 0e32 e00b | | Load 0x0,0xb 0e33 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e34 e00b | | Load 0x0,0xb 0e35 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e36 0119 | | Execute Any,Check_In_Formal_Type 0e37 4802 |H | Short_Literal 0x2 0e38 00da | | Load_Top At_Offset_2 0e39 01d6 | | Execute Vector,Field_Write 0e3a 6005 |` | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008be9} 0e3b e001 | | Load 0x0,0x1 0e3c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e3d 4801 |H | Short_Literal 0x1 0e3e a417 | | Store_Unchecked 0x2,0x17 0e3f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e40 0000 0000 | | .LITERAL {0x00000000, 0x00008be9} 0e44 0000 0000 | | .LITERAL {0x00000000, 0x0000884b} 0e48 0000 0000 | | .LITERAL {0x00000000, 0x00008878} 0e4c 0000 0000 | | .BLANK 0000[0x4] 0e50 ; -------------------------------------------------------------------------------------- 0e50 ; SUBPROGRAM 0e50 ; -------------------------------------------------------------------------------------- 0e50 0e68 | h | .CONST 0x0e68 ; Address of begin 0e51 0004 | | .CONST 0x0004 ; Address of exception handler 0e52 0007 | | .CONST 0x0007 ; Number of locals 0e53 INIT_0e50: 0e53 e003 | | Load 0x0,0x3 0e54 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e55 02c7 | | Declare_Variable Any 0e56 00d8 | | Load_Top At_Offset_0 0e57 1c00 | | Execute_Immediate Run_Utility,0x0 0e58 00e1 | | Load_Encached Boolean_Cache 0e59 00e2 | | Load_Encached Integer_Cache 0e5a e001 | | Load 0x0,0x1 0e5b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e5c e5fc | | Load 0x2,-0x4 0e5d e408 | | Load 0x2,0x8 0e5e 8215 | | Call 0x1,0x15 0e5f e003 | | Load 0x0,0x3 0e60 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e61 02c7 | | Declare_Variable Any 0e62 e404 | | Load 0x2,0x4 0e63 4800 |H | Short_Literal 0x0 0e64 00db | | Load_Top At_Offset_3 0e65 e009 | | Load 0x0,0x9 0e66 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0e67 a607 | | Store_Unchecked 0x3,0x7 0e68 BODY_0e50: 0e68 e001 | | Load 0x0,0x1 0e69 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e6a 00e2 | | Load_Encached Integer_Cache 0e6b 00e1 | | Load_Encached Boolean_Cache 0e6c e602 | | Load 0x3,0x2 0e6d 0120 | | Execute Any,Is_Value 0e6e 6803 |h | Jump_Zero 0xe72 0e6f e003 | | Load 0x0,0x3 0e70 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e71 7801 |x | Jump 0xe73 0e72 e602 | | Load 0x3,0x2 0e73 e404 | | Load 0x2,0x4 0e74 e607 | | Load 0x3,0x7 0e75 e010 | | Load 0x0,0x10 0e76 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0e77 c602 | | Store 0x3,0x2 0e78 c603 | | Store 0x3,0x3 0e79 c604 | | Store 0x3,0x4 0e7a 005b | [ | Store_Top Discrete,At_Offset_3 0e7b 4800 |H | Short_Literal 0x0 0e7c 00db | | Load_Top At_Offset_3 0e7d e001 | | Load 0x0,0x1 0e7e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0e7f 7003 |p | Jump_Nonzero 0xe83 0e80 e001 | | Load 0x0,0x1 0e81 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e82 0257 | W | Execute Discrete,Raise 0e83 e603 | | Load 0x3,0x3 0e84 6821 |h! | Jump_Zero 0xea6 0e85 e404 | | Load 0x2,0x4 0e86 4801 |H | Short_Literal 0x1 0e87 4801 |H | Short_Literal 0x1 0e88 e00b | | Load 0x0,0xb 0e89 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e8a 035b | [ | Declare_Type Array,Constrained 0e8b 0337 | 7 | Declare_Variable Array 0e8c 0092 0fb2 | | Action Push_String_Extended,0xfb2 ; "Can't upload from remote unit \x22" 0e8e e5ff | | Load 0x2,-0x1 0e8f 01cc | | Execute Vector,Catenate 0e90 0092 0fb3 | | Action Push_String_Extended,0xfb3 ; "\x22 into secondary file \x22" 0e92 01cc | | Execute Vector,Catenate 0e93 e5fc | | Load 0x2,-0x4 0e94 01cc | | Execute Vector,Catenate 0e95 0092 0fb4 | | Action Push_String_Extended,0xfb4 ; "\x22." 0e97 01cc | | Execute Vector,Catenate 0e98 e00b | | Load 0x0,0xb 0e99 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e9a e00b | | Load 0x0,0xb 0e9b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e9c 0119 | | Execute Any,Check_In_Formal_Type 0e9d 4801 |H | Short_Literal 0x1 0e9e 00da | | Load_Top At_Offset_2 0e9f 01d6 | | Execute Vector,Field_Write 0ea0 4807 |H | Short_Literal 0x7 0ea1 604a |`J | Indirect_Literal Discrete,0xeec,{0x00000000, 0x00008893} 0ea2 e001 | | Load 0x0,0x1 0ea3 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0ea4 e00f | | Load 0x0,0xf 0ea5 0257 | W | Execute Discrete,Raise 0ea6 00d8 | | Load_Top At_Offset_0 0ea7 e003 | | Load 0x0,0x3 0ea8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ea9 7021 |p! | Jump_Nonzero 0xecb 0eaa e404 | | Load 0x2,0x4 0eab 4801 |H | Short_Literal 0x1 0eac 4801 |H | Short_Literal 0x1 0ead e00b | | Load 0x0,0xb 0eae 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0eaf 035b | [ | Declare_Type Array,Constrained 0eb0 0337 | 7 | Declare_Variable Array 0eb1 0092 0fb2 | | Action Push_String_Extended,0xfb2 ; "Can't upload from remote unit \x22" 0eb3 e5ff | | Load 0x2,-0x1 0eb4 01cc | | Execute Vector,Catenate 0eb5 0092 0fb5 | | Action Push_String_Extended,0xfb5 ; "\x22 into existing text file \x22" 0eb7 01cc | | Execute Vector,Catenate 0eb8 e5fc | | Load 0x2,-0x4 0eb9 01cc | | Execute Vector,Catenate 0eba 0092 0fb4 | | Action Push_String_Extended,0xfb4 ; "\x22." 0ebc 01cc | | Execute Vector,Catenate 0ebd e00b | | Load 0x0,0xb 0ebe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ebf e00b | | Load 0x0,0xb 0ec0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ec1 0119 | | Execute Any,Check_In_Formal_Type 0ec2 4801 |H | Short_Literal 0x1 0ec3 00da | | Load_Top At_Offset_2 0ec4 01d6 | | Execute Vector,Field_Write 0ec5 4807 |H | Short_Literal 0x7 0ec6 6025 |`% | Indirect_Literal Discrete,0xeec,{0x00000000, 0x00008893} 0ec7 e001 | | Load 0x0,0x1 0ec8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0ec9 e00f | | Load 0x0,0xf 0eca 0257 | W | Execute Discrete,Raise 0ecb e404 | | Load 0x2,0x4 0ecc 4801 |H | Short_Literal 0x1 0ecd 4802 |H | Short_Literal 0x2 0ece e00b | | Load 0x0,0xb 0ecf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ed0 035b | [ | Declare_Type Array,Constrained 0ed1 0337 | 7 | Declare_Variable Array 0ed2 e5ff | | Load 0x2,-0x1 0ed3 e00b | | Load 0x0,0xb 0ed4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ed5 e00b | | Load 0x0,0xb 0ed6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ed7 0119 | | Execute Any,Check_In_Formal_Type 0ed8 4801 |H | Short_Literal 0x1 0ed9 00da | | Load_Top At_Offset_2 0eda 01d6 | | Execute Vector,Field_Write 0edb e5fc | | Load 0x2,-0x4 0edc e00b | | Load 0x0,0xb 0edd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ede e00b | | Load 0x0,0xb 0edf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ee0 0119 | | Execute Any,Check_In_Formal_Type 0ee1 4802 |H | Short_Literal 0x2 0ee2 00da | | Load_Top At_Offset_2 0ee3 01d6 | | Execute Vector,Field_Write 0ee4 6003 |` | Indirect_Literal Discrete,0xee8,{0x00000000, 0x0000887e} 0ee5 e001 | | Load 0x0,0x1 0ee6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ee7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ee8 0000 0000 | | .LITERAL {0x00000000, 0x0000887e} 0eec 0000 0000 | | .LITERAL {0x00000000, 0x00008893} 0ef0 ; -------------------------------------------------------------------------------------- 0ef0 ; SUBPROGRAM 0ef0 ; -------------------------------------------------------------------------------------- 0ef0 0ef5 | | .CONST 0x0ef5 ; Address of begin 0ef1 0004 | | .CONST 0x0004 ; Address of exception handler 0ef2 0002 | | .CONST 0x0002 ; Number of locals 0ef3 INIT_0ef0: 0ef3 00e2 | | Load_Encached Integer_Cache 0ef4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ef5 BODY_0ef0: 0ef5 4800 |H | Short_Literal 0x0 0ef6 e7ff | | Load 0x3,-0x1 0ef7 0092 0fb6 | | Action Push_String_Extended,0xfb6 ; " " 0ef9 e012 | | Load 0x0,0x12 0efa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0efb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0efc 00d8 | | Load_Top At_Offset_0 0efd 7002 |p | Jump_Nonzero 0xf00 0efe 00db | | Load_Top At_Offset_3 0eff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f00 00db | | Load_Top At_Offset_3 0f01 01dd | | Execute Vector,First 0f02 00d9 | | Load_Top At_Offset_1 0f03 0aff | | Execute_Immediate Plus,-0x1 0f04 00d8 | | Load_Top At_Offset_0 0f05 00e2 | | Load_Encached Integer_Cache 0f06 0260 | ` | Execute Discrete,In_Type 0f07 7001 |p | Jump_Nonzero 0xf09 0f08 0801 | | Execute_Immediate Raise,0x1 0f09 e7ff | | Load 0x3,-0x1 0f0a 01cf | | Execute Vector,Slice_Read 0f0b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f0c 0000 0000 | | .BLANK 0000[0x4] 0f10 ; -------------------------------------------------------------------------------------- 0f10 ; SUBPROGRAM 0f10 ; -------------------------------------------------------------------------------------- 0f10 0f15 | | .CONST 0x0f15 ; Address of begin 0f11 0004 | | .CONST 0x0004 ; Address of exception handler 0f12 0002 | | .CONST 0x0002 ; Number of locals 0f13 INIT_0f10: 0f13 00e2 | | Load_Encached Integer_Cache 0f14 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f15 BODY_0f10: 0f15 4800 |H | Short_Literal 0x0 0f16 e7ff | | Load 0x3,-0x1 0f17 0092 0fb6 | | Action Push_String_Extended,0xfb6 ; " " 0f19 e012 | | Load 0x0,0x12 0f1a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0f1b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0f1c 00d8 | | Load_Top At_Offset_0 0f1d 7002 |p | Jump_Nonzero 0xf20 0f1e 00ea | | Load_Encached Null_String_Cache 0f1f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f20 00d8 | | Load_Top At_Offset_0 0f21 0a01 | | Execute_Immediate Plus,0x1 0f22 00d8 | | Load_Top At_Offset_0 0f23 00e2 | | Load_Encached Integer_Cache 0f24 0260 | ` | Execute Discrete,In_Type 0f25 7001 |p | Jump_Nonzero 0xf27 0f26 0801 | | Execute_Immediate Raise,0x1 0f27 e7ff | | Load 0x3,-0x1 0f28 01dc | | Execute Vector,Last 0f29 e7ff | | Load 0x3,-0x1 0f2a 01cf | | Execute Vector,Slice_Read 0f2b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f2c 0000 0000 | | .BLANK 0000[0x4] 0f30 ; -------------------------------------------------------------------------------------- 0f30 ; SUBPROGRAM 0f30 ; -------------------------------------------------------------------------------------- 0f30 0f40 | @ | .CONST 0x0f40 ; Address of begin 0f31 0004 | | .CONST 0x0004 ; Address of exception handler 0f32 0004 | | .CONST 0x0004 ; Number of locals 0f33 INIT_0f30: 0f33 4820 |H | Short_Literal 0x20 0f34 4820 |H | Short_Literal 0x20 0f35 e407 | | Load 0x2,0x7 0f36 e013 | | Load 0x0,0x13 0f37 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0f38 e012 | | Load 0x0,0x12 0f39 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0f3a e012 | | Load 0x0,0x12 0f3b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0f3c 00d8 | | Load_Top At_Offset_0 0f3d 840a | | Call 0x2,0xa 0f3e 00d9 | | Load_Top At_Offset_1 0f3f 8409 | | Call 0x2,0x9 0f40 BODY_0f30: 0f40 00d8 | | Load_Top At_Offset_0 0f41 01db | | Execute Vector,Length 0f42 7002 |p | Jump_Nonzero 0xf45 0f43 e014 | | Load 0x0,0x14 0f44 0257 | W | Execute Discrete,Raise 0f45 00d9 | | Load_Top At_Offset_1 0f46 01db | | Execute Vector,Length 0f47 7003 |p | Jump_Nonzero 0xf4b 0f48 4800 |H | Short_Literal 0x0 0f49 a408 | | Store_Unchecked 0x2,0x8 0f4a 7802 |x | Jump 0xf4d 0f4b 4801 |H | Short_Literal 0x1 0f4c a408 | | Store_Unchecked 0x2,0x8 0f4d e5fd | | Load 0x2,-0x3 0f4e 00da | | Load_Top At_Offset_2 0f4f e408 | | Load 0x2,0x8 0f50 e5fe | | Load 0x2,-0x2 0f51 e604 | | Load 0x3,0x4 0f52 820f | | Call 0x1,0xf 0f53 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f54 0000 0000 | | .BLANK 0000[0x4] 0f58 ; -------------------------------------------------------------------------------------- 0f58 ; SUBPROGRAM 0f58 ; -------------------------------------------------------------------------------------- 0f58 0f61 | a | .CONST 0x0f61 ; Address of begin 0f59 0004 | | .CONST 0x0004 ; Address of exception handler 0f5a 0002 | | .CONST 0x0002 ; Number of locals 0f5b INIT_0f58: 0f5b e5fb | | Load 0x2,-0x5 0f5c e5fd | | Load 0x2,-0x3 0f5d e5fe | | Load 0x2,-0x2 0f5e e5ff | | Load 0x2,-0x1 0f5f e010 | | Load 0x0,0x10 0f60 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0f61 BODY_0f58: 0f61 4800 |H | Short_Literal 0x0 0f62 00d9 | | Load_Top At_Offset_1 0f63 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0f64 e001 | | Load 0x0,0x1 0f65 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0f66 7003 |p | Jump_Nonzero 0xf6a 0f67 e001 | | Load 0x0,0x1 0f68 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f69 0257 | W | Execute Discrete,Raise 0f6a 00d8 | | Load_Top At_Offset_0 0f6b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f6c 00cb | | Action Pop_Block_With_Result 0f6d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0f6e 0000 0000 | | .XXX[0x2] 0f70 ; -------------------------------------------------------------------------------------- 0f70 ; SUBPROGRAM 0f70 ; -------------------------------------------------------------------------------------- 0f70 0f77 | w | .CONST 0x0f77 ; Address of begin 0f71 0004 | | .CONST 0x0004 ; Address of exception handler 0f72 0002 | | .CONST 0x0002 ; Number of locals 0f73 INIT_0f70: 0f73 e5fb | | Load 0x2,-0x5 0f74 e5fe | | Load 0x2,-0x2 0f75 e010 | | Load 0x0,0x10 0f76 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 0f77 BODY_0f70: 0f77 4800 |H | Short_Literal 0x0 0f78 00d9 | | Load_Top At_Offset_1 0f79 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0f7a e001 | | Load 0x0,0x1 0f7b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0f7c 7003 |p | Jump_Nonzero 0xf80 0f7d e001 | | Load 0x0,0x1 0f7e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f7f 0257 | W | Execute Discrete,Raise 0f80 00d8 | | Load_Top At_Offset_0 0f81 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f82 00cb | | Action Pop_Block_With_Result 0f83 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0f84 ; -------------------------------------------------------------------------------------- 0f84 ; STRING TABLE 0f84 ; -------------------------------------------------------------------------------------- 0f84 0068 | h | .STRTAB 0x0068->0x0fb8 ; "Check_Consistency" 0f85 0077 | w | .STRTAB 0x0077->0x0fc0 ; "Rci." 0f86 0079 | y | .STRTAB 0x0079->0x0fc2 ; "Unit" 0f87 007b | { | .STRTAB 0x007b->0x0fc4 ; "Compare_Objects => " 0f88 008c | | .STRTAB 0x008c->0x0fce ; ", Response" 0f89 0094 | | .STRTAB 0x0094->0x0fd3 ; "Accept_Remote_Changes" 0f8a 00a7 | | .STRTAB 0x00a7->0x0fdd ; "Allow_Demotion => " 0f8b 00b7 | | .STRTAB 0x00b7->0x0fe6 ; ", Compare_Objects => " 0f8c 00ca | | .STRTAB 0x00ca->0x0ff1 ; ", Remake_Demoted_Units => " 0f8d 00e2 | | .STRTAB 0x00e2->0x0ffe ; ", Goal => " 0f8e 00ea | | .STRTAB 0x00ea->0x1003 ; "text unit " 0f8f 00f2 | | .STRTAB 0x00f2->0x1008 ; "<ALL_WORLDS>" 0f90 00fc | | .STRTAB 0x00fc->0x100e ; "Upload_Unit" 0f91 0105 | | .STRTAB 0x0105->0x1013 ; "Remote_Unit_Name" 0f92 0113 | | .STRTAB 0x0113->0x101b ; "Into_View" 0f93 011a | | .STRTAB 0x011a->0x1020 ; "Upload_To_Text_File => " 0f94 012f | / | .STRTAB 0x012f->0x102b ; ", Host_Text_File_Name" 0f95 0142 | B | .STRTAB 0x0142->0x1036 ; "Response" 0f96 0148 | H | .STRTAB 0x0148->0x103a ; "text file" 0f97 014f | O | .STRTAB 0x014f->0x103e ; "local Ada unit" 0f98 015b | [ | .STRTAB 0x015b->0x1045 ; "Upload_Units" 0f99 0165 | e | .STRTAB 0x0165->0x104b ; "Upload_Specification_File" 0f9a 017c | | | .STRTAB 0x017c->0x1058 ; "Set_Remote_Unit_Name" 0f9b 018e | | .STRTAB 0x018e->0x1062 ; "Remote_Name" 0f9c 0197 | | .STRTAB 0x0197->0x1067 ; ".Units." 0f9d 019c | | .STRTAB 0x019c->0x106b ; "." 0f9e 019b | | .STRTAB 0x019b->0x106b ; ".units" 0f9f 019f | | .STRTAB 0x019f->0x106e ; "Non-Ada unit associated with secondary " 0fa0 01c4 | | .STRTAB 0x01c4->0x1082 ; " of Primary" 0fa1 01cd | | .STRTAB 0x01cd->0x1087 ; "Unexpected unit status is 'Changed_On_Both'" 0fa2 01f6 | | .STRTAB 0x01f6->0x109d ; "Unexpected unit status is 'Changed_On_Host'" 0fa3 021f | | .STRTAB 0x021f->0x10b2 ; "Secondary " 0fa4 0227 | ' | .STRTAB 0x0227->0x10b7 ; "<PROFILE>" 0fa5 022e | . | .STRTAB 0x022e->0x10bc ; "<DEFAULT>" 0fa6 0235 | 5 | .STRTAB 0x0235->0x10c0 ; "Accepted remote changes" 0fa7 024a | J | .STRTAB 0x024a->0x10cc ; "<TOMORROW>" 0fa8 0252 | R | .STRTAB 0x0252->0x10d1 ; "Accepting remote changes" 0fa9 0268 | h | .STRTAB 0x0268->0x10dd ; "Secondary text file" 0faa 0279 | y | .STRTAB 0x0279->0x10e6 ; "Can't re-promote secondary " 0fab 0292 | | .STRTAB 0x0292->0x10f4 ; " of primary " 0fac 029c | | .STRTAB 0x029c->0x10fa ; " (" 0fad 029c | | .STRTAB 0x029c->0x10fb ; ")." 0fae 029c | | .STRTAB 0x029c->0x10fc ; "Secondary unit" 0faf 02a8 | | .STRTAB 0x02a8->0x1103 ; ", so it won't be changed" 0fb0 02be | | .STRTAB 0x02be->0x110f ; "Unexpected unit status of 'Changed_On_Both'" 0fb1 02e7 | | .STRTAB 0x02e7->0x1124 ; "Unexpected unit status of 'Changed_On_Host'" 0fb2 0310 | | .STRTAB 0x0310->0x113a ; "Can't upload from remote unit \x22" 0fb3 032d | - | .STRTAB 0x032d->0x1149 ; "\x22 into secondary file \x22" 0fb4 0342 | B | .STRTAB 0x0342->0x1155 ; "\x22." 0fb5 0342 | B | .STRTAB 0x0342->0x1156 ; "\x22 into existing text file \x22" 0fb6 035b | [ | .STRTAB 0x035b->0x1163 ; " " 0fb7 035a | Z | .STREND 0x035a->0x1164 0fb8 4368 6563 |Chec| .STRTAB_STRINGS 1164 0000 0000 | | .BLANK 0000[0x4] 1168 ; -------------------------------------------------------------------------------------- 1168 ; Debug Table 1168 ; -------------------------------------------------------------------------------------- 1168 0004 000f | | .DEBUG4 0x0004,0x000f,0x2b0b,0x0000,0x0001,0x0000 116e 0000 0000 | | .BLANK 0000[0x92]