|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1068 | h | .CONST 0x1068 ; 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 8009 | | .CONST 0x8009 ; 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 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
000f 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
0011 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated
0013 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
0018 029d 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call
001a 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call
001c 029d 090b | | Declare_Subprogram INIT_0908,For_Outer_Call
001e 029d 0933 | 3| Declare_Subprogram INIT_0930,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 007a | z | .CONST 0x007a ; Address of begin
0031 01bc | | .CONST 0x01bc ; Address of exception handler
0032 0013 | | .CONST 0x0013 ; Number of locals
0033 INIT_0030:
0033 0092 0e8c | | Action Push_String_Extended,0xe8c ; "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 029f 094b | K| Declare_Subprogram INIT_0948,For_Call
007a BODY_0030:
007a e404 | | Load 0x2,0x4
007b 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
007d 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
007f e5ff | | Load 0x2,-0x1
0080 e007 | | Load 0x0,0x7
0081 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0082 01cc | | Execute Vector,Catenate
0083 0092 0e8f | | Action Push_String_Extended,0xe8f ; " compare_objects => "
0085 01cc | | Execute Vector,Catenate
0086 e5fe | | Load 0x2,-0x2
0087 00e1 | | Load_Encached Boolean_Cache
0088 011c | | Execute Any,Convert_Unchecked
0089 1c01 | | Execute_Immediate Run_Utility,0x1
008a 01cc | | Execute Vector,Catenate
008b 0092 0e90 | | Action Push_String_Extended,0xe90 ; ", Response"
008d 01cc | | Execute Vector,Catenate
008e e5fd | | Load 0x2,-0x3
008f e007 | | Load 0x0,0x7
0090 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0091 01cc | | Execute Vector,Catenate
0092 e402 | | Load 0x2,0x2
0093 e007 | | Load 0x0,0x7
0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0095 e404 | | Load 0x2,0x4
0096 e008 | | Load 0x0,0x8
0097 180f | | Execute Package,Field_Execute,Field_Number 0xf
0098 e404 | | Load 0x2,0x4
0099 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
009b e5ff | | Load 0x2,-0x1
009c e008 | | Load 0x0,0x8
009d 180e | | Execute Package,Field_Execute,Field_Number 0xe
009e e404 | | Load 0x2,0x4
009f 4801 |H | Short_Literal 0x1
00a0 e5ff | | Load 0x2,-0x1
00a1 e009 | | Load 0x0,0x9
00a2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00a3 c40d | | Store 0x2,0xd
00a4 e404 | | Load 0x2,0x4
00a5 4801 |H | Short_Literal 0x1
00a6 e404 | | Load 0x2,0x4
00a7 4801 |H | Short_Literal 0x1
00a8 e40d | | Load 0x2,0xd
00a9 e009 | | Load 0x0,0x9
00aa 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00ab e009 | | Load 0x0,0x9
00ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ad c405 | | Store 0x2,0x5
00ae e404 | | Load 0x2,0x4
00af e405 | | Load 0x2,0x5
00b0 e009 | | Load 0x0,0x9
00b1 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00b2 a408 | | Store_Unchecked 0x2,0x8
00b3 e404 | | Load 0x2,0x4
00b4 e405 | | Load 0x2,0x5
00b5 e008 | | Load 0x0,0x8
00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b7 e003 | | Load 0x0,0x3
00b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b9 e410 | | Load 0x2,0x10
00ba 0120 | | Execute Any,Is_Value
00bb 6804 |h | Jump_Zero 0xc0
00bc e003 | | Load 0x0,0x3
00bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00bf 7801 |x | Jump 0xc1
00c0 e410 | | Load 0x2,0x10
00c1 6162 |ab | Indirect_Literal Discrete,0x224,{0x00000000, 0x00004000}
00c2 e00a | | Load 0x0,0xa
00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c4 4800 |H | Short_Literal 0x0
00c5 e405 | | Load 0x2,0x5
00c6 e003 | | Load 0x0,0x3
00c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c9 c410 | | Store 0x2,0x10
00ca 005b | [ | Store_Top Discrete,At_Offset_3
00cb 00da | | Load_Top At_Offset_2
00cc 6824 |h$ | Jump_Zero 0xf1
00cd e404 | | Load 0x2,0x4
00ce 4801 |H | Short_Literal 0x1
00cf 4802 |H | Short_Literal 0x2
00d0 e00b | | Load 0x0,0xb
00d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d2 035b | [ | Declare_Type Array,Constrained
00d3 0337 | 7 | Declare_Variable Array
00d4 e405 | | Load 0x2,0x5
00d5 e00b | | Load 0x0,0xb
00d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d7 e00b | | Load 0x0,0xb
00d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d9 0119 | | Execute Any,Check_In_Formal_Type
00da 4801 |H | Short_Literal 0x1
00db 00da | | Load_Top At_Offset_2
00dc 01d6 | | Execute Vector,Field_Write
00dd e411 | | Load 0x2,0x11
00de e00b | | Load 0x0,0xb
00df 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00e0 e00b | | Load 0x0,0xb
00e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e2 0119 | | Execute Any,Check_In_Formal_Type
00e3 4802 |H | Short_Literal 0x2
00e4 00da | | Load_Top At_Offset_2
00e5 01d6 | | Execute Vector,Field_Write
00e6 6139 |a9 | Indirect_Literal Discrete,0x220,{0x00000000, 0x00008866}
00e7 e001 | | Load 0x0,0x1
00e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00e9 e00b | | Load 0x0,0xb
00ea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00eb 6130 |a0 | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00008865}
00ec e001 | | Load 0x0,0x1
00ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ee a403 | | Store_Unchecked 0x2,0x3
00ef e00c | | Load 0x0,0xc
00f0 0257 | W | Execute Discrete,Raise
00f1 e003 | | Load 0x0,0x3
00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f3 e006 | | Load 0x0,0x6
00f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f5 e410 | | Load 0x2,0x10
00f6 e003 | | Load 0x0,0x3
00f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f9 005b | [ | Store_Top Discrete,At_Offset_3
00fa 00da | | Load_Top At_Offset_2
00fb 6824 |h$ | Jump_Zero 0x120
00fc e404 | | Load 0x2,0x4
00fd 4801 |H | Short_Literal 0x1
00fe 4802 |H | Short_Literal 0x2
00ff e00b | | Load 0x0,0xb
0100 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0101 035b | [ | Declare_Type Array,Constrained
0102 0337 | 7 | Declare_Variable Array
0103 e405 | | Load 0x2,0x5
0104 e00b | | Load 0x0,0xb
0105 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0106 e00b | | Load 0x0,0xb
0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0108 0119 | | Execute Any,Check_In_Formal_Type
0109 4801 |H | Short_Literal 0x1
010a 00da | | Load_Top At_Offset_2
010b 01d6 | | Execute Vector,Field_Write
010c e411 | | Load 0x2,0x11
010d e00b | | Load 0x0,0xb
010e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
010f e00b | | Load 0x0,0xb
0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0111 0119 | | Execute Any,Check_In_Formal_Type
0112 4802 |H | Short_Literal 0x2
0113 00da | | Load_Top At_Offset_2
0114 01d6 | | Execute Vector,Field_Write
0115 6102 |a | Indirect_Literal Discrete,0x218,{0x00000000, 0x00008867}
0116 e001 | | Load 0x0,0x1
0117 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0118 e00b | | Load 0x0,0xb
0119 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
011a 6101 |a | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00008865}
011b e001 | | Load 0x0,0x1
011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011d a403 | | Store_Unchecked 0x2,0x3
011e e00c | | Load 0x0,0xc
011f 0257 | W | Execute Discrete,Raise
0120 e408 | | Load 0x2,0x8
0121 7028 |p( | Jump_Nonzero 0x14a
0122 e403 | | Load 0x2,0x3
0123 e40b | | Load 0x2,0xb
0124 e404 | | Load 0x2,0x4
0125 e002 | | Load 0x0,0x2
0126 180e | | Execute Package,Field_Execute,Field_Number 0xe
0127 e002 | | Load 0x0,0x2
0128 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0129 e002 | | Load 0x0,0x2
012a 180e | | Execute Package,Field_Execute,Field_Number 0xe
012b e002 | | Load 0x0,0x2
012c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
012d 484d |HM | Short_Literal 0x4d
012e e002 | | Load 0x0,0x2
012f 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0130 e002 | | Load 0x0,0x2
0131 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0132 4800 |H | Short_Literal 0x0
0133 e002 | | Load 0x0,0x2
0134 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0135 e405 | | Load 0x2,0x5
0136 e009 | | Load 0x0,0x9
0137 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0138 e404 | | Load 0x2,0x4
0139 e405 | | Load 0x2,0x5
013a 800d | | Call 0x0,0xd
013b e404 | | Load 0x2,0x4
013c e405 | | Load 0x2,0x5
013d e009 | | Load 0x0,0x9
013e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
013f e00e | | Load 0x0,0xe
0140 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0141 c40b | | Store 0x2,0xb
0142 c403 | | Store 0x2,0x3
0143 4800 |H | Short_Literal 0x0
0144 e403 | | Load 0x2,0x3
0145 e001 | | Load 0x0,0x1
0146 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0147 7002 |p | Jump_Nonzero 0x14a
0148 e00f | | Load 0x0,0xf
0149 0257 | W | Execute Discrete,Raise
014a e404 | | Load 0x2,0x4
014b e405 | | Load 0x2,0x5
014c e009 | | Load 0x0,0x9
014d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
014e 00da | | Load_Top At_Offset_2
014f 017d | } | Execute Record,Structure_Write
0150 00cf | | Action Mark_Auxiliary
0151 7846 |xF | Jump 0x198
0152 4800 |H | Short_Literal 0x0
0153 a407 | | Store_Unchecked 0x2,0x7
0154 e404 | | Load 0x2,0x4
0155 4801 |H | Short_Literal 0x1
0156 e40d | | Load 0x2,0xd
0157 e009 | | Load 0x0,0x9
0158 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0159 c40a | | Store 0x2,0xa
015a e40a | | Load 0x2,0xa
015b e009 | | Load 0x0,0x9
015c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
015d 7031 |p1 | Jump_Nonzero 0x18f
015e e001 | | Load 0x0,0x1
015f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0160 00e2 | | Load_Encached Integer_Cache
0161 00e1 | | Load_Encached Boolean_Cache
0162 e409 | | Load 0x2,0x9
0163 0120 | | Execute Any,Is_Value
0164 6803 |h | Jump_Zero 0x168
0165 e003 | | Load 0x0,0x3
0166 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0167 7801 |x | Jump 0x169
0168 e409 | | Load 0x2,0x9
0169 e404 | | Load 0x2,0x4
016a e40a | | Load 0x2,0xa
016b e010 | | Load 0x0,0x10
016c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
016d c409 | | Store 0x2,0x9
016e c406 | | Store 0x2,0x6
016f c40c | | Store 0x2,0xc
0170 c403 | | Store 0x2,0x3
0171 4800 |H | Short_Literal 0x0
0172 e403 | | Load 0x2,0x3
0173 e001 | | Load 0x0,0x1
0174 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0175 0f00 | | Execute_Immediate Equal,0x0
0176 e406 | | Load 0x2,0x6
0177 0f00 | | Execute_Immediate Equal,0x0
0178 0278 | x | Execute Discrete,Or
0179 6815 |h | Jump_Zero 0x18f
017a e404 | | Load 0x2,0x4
017b 4801 |H | Short_Literal 0x1
017c 4801 |H | Short_Literal 0x1
017d e00b | | Load 0x0,0xb
017e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017f 035b | [ | Declare_Type Array,Constrained
0180 0337 | 7 | Declare_Variable Array
0181 e40a | | Load 0x2,0xa
0182 e009 | | Load 0x0,0x9
0183 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0184 e00b | | Load 0x0,0xb
0185 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0186 0119 | | Execute Any,Check_In_Formal_Type
0187 4801 |H | Short_Literal 0x1
0188 00da | | Load_Top At_Offset_2
0189 01d6 | | Execute Vector,Field_Write
018a 6089 |` | Indirect_Literal Discrete,0x214,{0x00000000, 0x0000889d}
018b e001 | | Load 0x0,0x1
018c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
018d 4801 |H | Short_Literal 0x1
018e a407 | | Store_Unchecked 0x2,0x7
018f e407 | | Load 0x2,0x7
0190 7001 |p | Jump_Nonzero 0x192
0191 8413 | | Call 0x2,0x13
0192 e40d | | Load 0x2,0xd
0193 e003 | | Load 0x0,0x3
0194 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0195 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0196 c40d | | Store 0x2,0xd
0197 00c9 | | Action Pop_Auxiliary_Loop
0198 e40d | | Load 0x2,0xd
0199 e003 | | Load 0x0,0x3
019a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
019c 6fb5 |o | Jump_Zero 0x152
019d 00ce | | Action Pop_Auxiliary
019e e408 | | Load 0x2,0x8
019f 700b |p | Jump_Nonzero 0x1ab
01a0 e403 | | Load 0x2,0x3
01a1 e40b | | Load 0x2,0xb
01a2 e404 | | Load 0x2,0x4
01a3 00d8 | | Load_Top At_Offset_0
01a4 e405 | | Load 0x2,0x5
01a5 e009 | | Load 0x0,0x9
01a6 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01a7 e00e | | Load 0x0,0xe
01a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a9 c40b | | Store 0x2,0xb
01aa c403 | | Store 0x2,0x3
01ab e003 | | Load 0x0,0x3
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad e006 | | Load 0x0,0x6
01ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01af e40f | | Load 0x2,0xf
01b0 e003 | | Load 0x0,0x3
01b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01b2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b3 005b | [ | Store_Top Discrete,At_Offset_3
01b4 e404 | | Load 0x2,0x4
01b5 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
01b7 e402 | | Load 0x2,0x2
01b8 e403 | | Load 0x2,0x3
01b9 e007 | | Load 0x0,0x7
01ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01bc TRAP_0030:
01bc e00c | | Load 0x0,0xc
01bd 010f | | Execute Exception,Equal
01be 6801 |h | Jump_Zero 0x1c0
01bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01c0 e00f | | Load 0x0,0xf
01c1 010f | | Execute Exception,Equal
01c2 6811 |h | Jump_Zero 0x1d4
01c3 e003 | | Load 0x0,0x3
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 e006 | | Load 0x0,0x6
01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c7 e40f | | Load 0x2,0xf
01c8 e003 | | Load 0x0,0x3
01c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01cb c411 | | Store 0x2,0x11
01cc e404 | | Load 0x2,0x4
01cd 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
01cf e402 | | Load 0x2,0x2
01d0 e403 | | Load 0x2,0x3
01d1 e007 | | Load 0x0,0x7
01d2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d4 e001 | | Load 0x0,0x1
01d5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d6 010f | | Execute Exception,Equal
01d7 6814 |h | Jump_Zero 0x1ec
01d8 e001 | | Load 0x0,0x1
01d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01da a403 | | Store_Unchecked 0x2,0x3
01db e003 | | Load 0x0,0x3
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd e006 | | Load 0x0,0x6
01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01df e40f | | Load 0x2,0xf
01e0 e003 | | Load 0x0,0x3
01e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e3 c411 | | Store 0x2,0x11
01e4 e404 | | Load 0x2,0x4
01e5 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
01e7 e402 | | Load 0x2,0x2
01e8 e403 | | Load 0x2,0x3
01e9 e007 | | Load 0x0,0x7
01ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ec 4884 |H | Short_Literal 0x84
01ed 010f | | Execute Exception,Equal
01ee 6811 |h | Jump_Zero 0x200
01ef e003 | | Load 0x0,0x3
01f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f1 e006 | | Load 0x0,0x6
01f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f3 e40f | | Load 0x2,0xf
01f4 e003 | | Load 0x0,0x3
01f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f7 c411 | | Store 0x2,0x11
01f8 e404 | | Load 0x2,0x4
01f9 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
01fb e402 | | Load 0x2,0x2
01fc e403 | | Load 0x2,0x3
01fd e007 | | Load 0x0,0x7
01fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0200 e003 | | Load 0x0,0x3
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 e006 | | Load 0x0,0x6
0203 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0204 e40f | | Load 0x2,0xf
0205 e003 | | Load 0x0,0x3
0206 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0207 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0208 c411 | | Store 0x2,0x11
0209 e404 | | Load 0x2,0x4
020a 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
020c e402 | | Load 0x2,0x2
020d e403 | | Load 0x2,0x3
020e e007 | | Load 0x0,0x7
020f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0210 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0211 0000 0000 | | .XXX[0x3]
0213 0000 | |
0214 0000 0000 | | .LITERAL {0x00000000, 0x0000889d}
0218 0000 0000 | | .LITERAL {0x00000000, 0x00008867}
021c 0000 0000 | | .LITERAL {0x00000000, 0x00008865}
0220 0000 0000 | | .LITERAL {0x00000000, 0x00008866}
0224 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0288 | | .CONST 0x0288 ; Address of begin
0229 040a | | .CONST 0x040a ; Address of exception handler
022a 001b | | .CONST 0x001b ; Number of locals
022b INIT_0228:
022b 0092 0e91 | | Action Push_String_Extended,0xe91 ; "Accept_Remote_Changes"
022d e001 | | Load 0x0,0x1
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0230 e002 | | Load 0x0,0x2
0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0232 02c7 | | Declare_Variable Any
0233 e5fa | | Load 0x2,-0x6
0234 e002 | | Load 0x0,0x2
0235 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0236 a404 | | Store_Unchecked 0x2,0x4
0237 00e1 | | Load_Encached Boolean_Cache
0238 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0239 00e1 | | Load_Encached Boolean_Cache
023a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
023b 00e1 | | Load_Encached Boolean_Cache
023c e003 | | Load 0x0,0x3
023d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023e 02c7 | | Declare_Variable Any
023f 00d8 | | Load_Top At_Offset_0
0240 1c00 | | Execute_Immediate Run_Utility,0x0
0241 00e1 | | Load_Encached Boolean_Cache
0242 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0243 00e2 | | Load_Encached Integer_Cache
0244 e003 | | Load 0x0,0x3
0245 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0246 02c7 | | Declare_Variable Any
0247 00d8 | | Load_Top At_Offset_0
0248 1c00 | | Execute_Immediate Run_Utility,0x0
0249 e003 | | Load 0x0,0x3
024a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024b 02c7 | | Declare_Variable Any
024c 00d8 | | Load_Top At_Offset_0
024d 1c00 | | Execute_Immediate Run_Utility,0x0
024e e003 | | Load 0x0,0x3
024f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0250 02c7 | | Declare_Variable Any
0251 00d8 | | Load_Top At_Offset_0
0252 1c00 | | Execute_Immediate Run_Utility,0x0
0253 e003 | | Load 0x0,0x3
0254 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0255 02c7 | | Declare_Variable Any
0256 00d8 | | Load_Top At_Offset_0
0257 1c00 | | Execute_Immediate Run_Utility,0x0
0258 e004 | | Load 0x0,0x4
0259 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
025a 02c7 | | Declare_Variable Any
025b 00d8 | | Load_Top At_Offset_0
025c 1c00 | | Execute_Immediate Run_Utility,0x0
025d e003 | | Load 0x0,0x3
025e 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
025f 0322 | " | Declare_Variable Record
0260 00d8 | | Load_Top At_Offset_0
0261 1c00 | | Execute_Immediate Run_Utility,0x0
0262 e003 | | Load 0x0,0x3
0263 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0264 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0265 02c7 | | Declare_Variable Any
0266 00d8 | | Load_Top At_Offset_0
0267 1c00 | | Execute_Immediate Run_Utility,0x0
0268 e005 | | Load 0x0,0x5
0269 1b12 | | Execute Package,Field_Read,Field_Number 0x12
026a e003 | | Load 0x0,0x3
026b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
026d 02c7 | | Declare_Variable Any
026e e006 | | Load 0x0,0x6
026f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0270 e003 | | Load 0x0,0x3
0271 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0272 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0273 a413 | | Store_Unchecked 0x2,0x13
0274 e003 | | Load 0x0,0x3
0275 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0276 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0277 02c7 | | Declare_Variable Any
0278 00d8 | | Load_Top At_Offset_0
0279 1c00 | | Execute_Immediate Run_Utility,0x0
027a e003 | | Load 0x0,0x3
027b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027c 00e1 | | Load_Encached Boolean_Cache
027d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
027e 029f 0a83 | | Declare_Subprogram INIT_0a80,For_Call
0280 029f 0abb | | Declare_Subprogram INIT_0ab8,For_Call
0282 029f 0ad3 | | Declare_Subprogram INIT_0ad0,For_Call
0284 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call
0286 029f 0c6b | k| Declare_Subprogram INIT_0c68,For_Call
0288 BODY_0228:
0288 e404 | | Load 0x2,0x4
0289 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
028b 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
028d e5ff | | Load 0x2,-0x1
028e e007 | | Load 0x0,0x7
028f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0290 01cc | | Execute Vector,Catenate
0291 0092 0e92 | | Action Push_String_Extended,0xe92 ; "Allow_Demotion => "
0293 01cc | | Execute Vector,Catenate
0294 e5fe | | Load 0x2,-0x2
0295 00e1 | | Load_Encached Boolean_Cache
0296 011c | | Execute Any,Convert_Unchecked
0297 1c01 | | Execute_Immediate Run_Utility,0x1
0298 01cc | | Execute Vector,Catenate
0299 0092 0e93 | | Action Push_String_Extended,0xe93 ; ", Compare_Objects => "
029b 01cc | | Execute Vector,Catenate
029c e5fd | | Load 0x2,-0x3
029d 00e1 | | Load_Encached Boolean_Cache
029e 011c | | Execute Any,Convert_Unchecked
029f 1c01 | | Execute_Immediate Run_Utility,0x1
02a0 01cc | | Execute Vector,Catenate
02a1 0092 0e94 | | Action Push_String_Extended,0xe94 ; ", Remake_Demoted_Units => "
02a3 01cc | | Execute Vector,Catenate
02a4 e5fc | | Load 0x2,-0x4
02a5 00e1 | | Load_Encached Boolean_Cache
02a6 011c | | Execute Any,Convert_Unchecked
02a7 1c01 | | Execute_Immediate Run_Utility,0x1
02a8 01cc | | Execute Vector,Catenate
02a9 0092 0e95 | | Action Push_String_Extended,0xe95 ; ", Goal => "
02ab 01cc | | Execute Vector,Catenate
02ac e5fb | | Load 0x2,-0x5
02ad e011 | | Load 0x0,0x11
02ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02af 011c | | Execute Any,Convert_Unchecked
02b0 1c01 | | Execute_Immediate Run_Utility,0x1
02b1 01cc | | Execute Vector,Catenate
02b2 0092 0e90 | | Action Push_String_Extended,0xe90 ; ", Response"
02b4 01cc | | Execute Vector,Catenate
02b5 e5fa | | Load 0x2,-0x6
02b6 e007 | | Load 0x0,0x7
02b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b8 01cc | | Execute Vector,Catenate
02b9 e402 | | Load 0x2,0x2
02ba e007 | | Load 0x0,0x7
02bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bc e404 | | Load 0x2,0x4
02bd e008 | | Load 0x0,0x8
02be 180f | | Execute Package,Field_Execute,Field_Number 0xf
02bf e404 | | Load 0x2,0x4
02c0 4801 |H | Short_Literal 0x1
02c1 e5ff | | Load 0x2,-0x1
02c2 e009 | | Load 0x0,0x9
02c3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02c4 c411 | | Store 0x2,0x11
02c5 e404 | | Load 0x2,0x4
02c6 4801 |H | Short_Literal 0x1
02c7 e404 | | Load 0x2,0x4
02c8 4801 |H | Short_Literal 0x1
02c9 e411 | | Load 0x2,0x11
02ca e009 | | Load 0x0,0x9
02cb 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02cc e009 | | Load 0x0,0x9
02cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02ce c408 | | Store 0x2,0x8
02cf e404 | | Load 0x2,0x4
02d0 e408 | | Load 0x2,0x8
02d1 e009 | | Load 0x0,0x9
02d2 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02d3 a407 | | Store_Unchecked 0x2,0x7
02d4 e404 | | Load 0x2,0x4
02d5 e408 | | Load 0x2,0x8
02d6 e008 | | Load 0x0,0x8
02d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d8 e404 | | Load 0x2,0x4
02d9 e408 | | Load 0x2,0x8
02da e009 | | Load 0x0,0x9
02db 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02dc e410 | | Load 0x2,0x10
02dd 017d | } | Execute Record,Structure_Write
02de e003 | | Load 0x0,0x3
02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e0 e414 | | Load 0x2,0x14
02e1 0120 | | Execute Any,Is_Value
02e2 6804 |h | Jump_Zero 0x2e7
02e3 e003 | | Load 0x0,0x3
02e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02e6 7801 |x | Jump 0x2e8
02e7 e414 | | Load 0x2,0x14
02e8 673b |g; | Indirect_Literal Discrete,0x224,{0x00000000, 0x00004000}
02e9 e00a | | Load 0x0,0xa
02ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02eb 4800 |H | Short_Literal 0x0
02ec e408 | | Load 0x2,0x8
02ed e003 | | Load 0x0,0x3
02ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f0 c414 | | Store 0x2,0x14
02f1 c415 | | Store 0x2,0x15
02f2 e415 | | Load 0x2,0x15
02f3 6824 |h$ | Jump_Zero 0x318
02f4 e404 | | Load 0x2,0x4
02f5 4801 |H | Short_Literal 0x1
02f6 4802 |H | Short_Literal 0x2
02f7 e00b | | Load 0x0,0xb
02f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f9 035b | [ | Declare_Type Array,Constrained
02fa 0337 | 7 | Declare_Variable Array
02fb e408 | | Load 0x2,0x8
02fc e00b | | Load 0x0,0xb
02fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02fe e00b | | Load 0x0,0xb
02ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0300 0119 | | Execute Any,Check_In_Formal_Type
0301 4801 |H | Short_Literal 0x1
0302 00da | | Load_Top At_Offset_2
0303 01d6 | | Execute Vector,Field_Write
0304 e415 | | Load 0x2,0x15
0305 e00b | | Load 0x0,0xb
0306 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0307 e00b | | Load 0x0,0xb
0308 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0309 0119 | | Execute Any,Check_In_Formal_Type
030a 4802 |H | Short_Literal 0x2
030b 00da | | Load_Top At_Offset_2
030c 01d6 | | Execute Vector,Field_Write
030d 6712 |g | Indirect_Literal Discrete,0x220,{0x00000000, 0x00008866}
030e e001 | | Load 0x0,0x1
030f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0310 e00b | | Load 0x0,0xb
0311 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0312 6155 |aU | Indirect_Literal Discrete,0x468,{0x00000000, 0x00008864}
0313 e001 | | Load 0x0,0x1
0314 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0315 a403 | | Store_Unchecked 0x2,0x3
0316 e00c | | Load 0x0,0xc
0317 0257 | W | Execute Discrete,Raise
0318 e003 | | Load 0x0,0x3
0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031a e006 | | Load 0x0,0x6
031b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031c e414 | | Load 0x2,0x14
031d e003 | | Load 0x0,0x3
031e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
031f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0320 c415 | | Store 0x2,0x15
0321 e415 | | Load 0x2,0x15
0322 6824 |h$ | Jump_Zero 0x347
0323 e404 | | Load 0x2,0x4
0324 4801 |H | Short_Literal 0x1
0325 4802 |H | Short_Literal 0x2
0326 e00b | | Load 0x0,0xb
0327 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0328 035b | [ | Declare_Type Array,Constrained
0329 0337 | 7 | Declare_Variable Array
032a e408 | | Load 0x2,0x8
032b e00b | | Load 0x0,0xb
032c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
032d e00b | | Load 0x0,0xb
032e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032f 0119 | | Execute Any,Check_In_Formal_Type
0330 4801 |H | Short_Literal 0x1
0331 00da | | Load_Top At_Offset_2
0332 01d6 | | Execute Vector,Field_Write
0333 e415 | | Load 0x2,0x15
0334 e00b | | Load 0x0,0xb
0335 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0336 e00b | | Load 0x0,0xb
0337 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0338 0119 | | Execute Any,Check_In_Formal_Type
0339 4802 |H | Short_Literal 0x2
033a 00da | | Load_Top At_Offset_2
033b 01d6 | | Execute Vector,Field_Write
033c 66db |f | Indirect_Literal Discrete,0x218,{0x00000000, 0x00008867}
033d e001 | | Load 0x0,0x1
033e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
033f e00b | | Load 0x0,0xb
0340 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0341 6126 |a& | Indirect_Literal Discrete,0x468,{0x00000000, 0x00008864}
0342 e001 | | Load 0x0,0x1
0343 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0344 a403 | | Store_Unchecked 0x2,0x3
0345 e00c | | Load 0x0,0xc
0346 0257 | W | Execute Discrete,Raise
0347 e407 | | Load 0x2,0x7
0348 7019 |p | Jump_Nonzero 0x362
0349 e403 | | Load 0x2,0x3
034a e40f | | Load 0x2,0xf
034b e404 | | Load 0x2,0x4
034c 00d8 | | Load_Top At_Offset_0
034d e408 | | Load 0x2,0x8
034e e009 | | Load 0x0,0x9
034f 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0350 e404 | | Load 0x2,0x4
0351 e408 | | Load 0x2,0x8
0352 800d | | Call 0x0,0xd
0353 e404 | | Load 0x2,0x4
0354 e408 | | Load 0x2,0x8
0355 e009 | | Load 0x0,0x9
0356 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0357 e00e | | Load 0x0,0xe
0358 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0359 c40f | | Store 0x2,0xf
035a c403 | | Store 0x2,0x3
035b 4800 |H | Short_Literal 0x0
035c e403 | | Load 0x2,0x3
035d e001 | | Load 0x0,0x1
035e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
035f 7002 |p | Jump_Nonzero 0x362
0360 e00f | | Load 0x0,0xf
0361 0257 | W | Execute Discrete,Raise
0362 00cf | | Action Mark_Auxiliary
0363 784c |xL | Jump 0x3b0
0364 e404 | | Load 0x2,0x4
0365 4801 |H | Short_Literal 0x1
0366 e411 | | Load 0x2,0x11
0367 e009 | | Load 0x0,0x9
0368 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0369 c40d | | Store 0x2,0xd
036a 4800 |H | Short_Literal 0x0
036b a406 | | Store_Unchecked 0x2,0x6
036c e40d | | Load 0x2,0xd
036d e009 | | Load 0x0,0x9
036e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
036f 7037 |p7 | Jump_Nonzero 0x3a7
0370 e001 | | Load 0x0,0x1
0371 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0372 00e2 | | Load_Encached Integer_Cache
0373 00e1 | | Load_Encached Boolean_Cache
0374 e40b | | Load 0x2,0xb
0375 0120 | | Execute Any,Is_Value
0376 6803 |h | Jump_Zero 0x37a
0377 e003 | | Load 0x0,0x3
0378 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0379 7801 |x | Jump 0x37b
037a e40b | | Load 0x2,0xb
037b e404 | | Load 0x2,0x4
037c e40d | | Load 0x2,0xd
037d e010 | | Load 0x0,0x10
037e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
037f c40b | | Store 0x2,0xb
0380 c409 | | Store 0x2,0x9
0381 c40a | | Store 0x2,0xa
0382 c403 | | Store 0x2,0x3
0383 4800 |H | Short_Literal 0x0
0384 e403 | | Load 0x2,0x3
0385 e001 | | Load 0x0,0x1
0386 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0387 0f00 | | Execute_Immediate Equal,0x0
0388 e409 | | Load 0x2,0x9
0389 0f00 | | Execute_Immediate Equal,0x0
038a 0278 | x | Execute Discrete,Or
038b 681b |h | Jump_Zero 0x3a7
038c e404 | | Load 0x2,0x4
038d 4801 |H | Short_Literal 0x1
038e 4801 |H | Short_Literal 0x1
038f e00b | | Load 0x0,0xb
0390 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0391 035b | [ | Declare_Type Array,Constrained
0392 0337 | 7 | Declare_Variable Array
0393 0092 0e96 | | Action Push_String_Extended,0xe96 ; "text unit "
0395 e40d | | Load 0x2,0xd
0396 e009 | | Load 0x0,0x9
0397 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0398 01cc | | Execute Vector,Catenate
0399 e00b | | Load 0x0,0xb
039a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
039b e00b | | Load 0x0,0xb
039c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
039d 0119 | | Execute Any,Check_In_Formal_Type
039e 4801 |H | Short_Literal 0x1
039f 00da | | Load_Top At_Offset_2
03a0 01d6 | | Execute Vector,Field_Write
03a1 4806 |H | Short_Literal 0x6
03a2 60c1 |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x00008851}
03a3 e001 | | Load 0x0,0x1
03a4 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03a5 4801 |H | Short_Literal 0x1
03a6 a406 | | Store_Unchecked 0x2,0x6
03a7 e406 | | Load 0x2,0x6
03a8 7001 |p | Jump_Nonzero 0x3aa
03a9 841b | | Call 0x2,0x1b
03aa e411 | | Load 0x2,0x11
03ab e003 | | Load 0x0,0x3
03ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ad 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03ae c411 | | Store 0x2,0x11
03af 00c9 | | Action Pop_Auxiliary_Loop
03b0 e411 | | Load 0x2,0x11
03b1 e003 | | Load 0x0,0x3
03b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03b4 6faf |o | Jump_Zero 0x364
03b5 00ce | | Action Pop_Auxiliary
03b6 e407 | | Load 0x2,0x7
03b7 7012 |p | Jump_Nonzero 0x3ca
03b8 e403 | | Load 0x2,0x3
03b9 e40f | | Load 0x2,0xf
03ba e404 | | Load 0x2,0x4
03bb 00d8 | | Load_Top At_Offset_0
03bc e408 | | Load 0x2,0x8
03bd e009 | | Load 0x0,0x9
03be 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
03bf e00e | | Load 0x0,0xe
03c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c1 c40f | | Store 0x2,0xf
03c2 c403 | | Store 0x2,0x3
03c3 4800 |H | Short_Literal 0x0
03c4 e403 | | Load 0x2,0x3
03c5 e001 | | Load 0x0,0x1
03c6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03c7 7002 |p | Jump_Nonzero 0x3ca
03c8 e00f | | Load 0x0,0xf
03c9 0257 | W | Execute Discrete,Raise
03ca e003 | | Load 0x0,0x3
03cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cc e006 | | Load 0x0,0x6
03cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ce e413 | | Load 0x2,0x13
03cf e003 | | Load 0x0,0x3
03d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03d2 c415 | | Store 0x2,0x15
03d3 e405 | | Load 0x2,0x5
03d4 682d |h- | Jump_Zero 0x402
03d5 e5fc | | Load 0x2,-0x4
03d6 682b |h+ | Jump_Zero 0x402
03d7 e416 | | Load 0x2,0x16
03d8 6817 |h | Jump_Zero 0x3f0
03d9 e5fb | | Load 0x2,-0x5
03da 0f03 | | Execute_Immediate Equal,0x3
03db 6814 |h | Jump_Zero 0x3f0
03dc e404 | | Load 0x2,0x4
03dd 4801 |H | Short_Literal 0x1
03de 4801 |H | Short_Literal 0x1
03df e00b | | Load 0x0,0xb
03e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e1 035b | [ | Declare_Type Array,Constrained
03e2 0337 | 7 | Declare_Variable Array
03e3 e5ff | | Load 0x2,-0x1
03e4 e00b | | Load 0x0,0xb
03e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e6 e00b | | Load 0x0,0xb
03e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e8 0119 | | Execute Any,Check_In_Formal_Type
03e9 4801 |H | Short_Literal 0x1
03ea 00da | | Load_Top At_Offset_2
03eb 01d6 | | Execute Vector,Field_Write
03ec 6073 |`s | Indirect_Literal Discrete,0x460,{0x00000000, 0x00008877}
03ed e001 | | Load 0x0,0x1
03ee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03ef 7812 |x | Jump 0x402
03f0 e5fb | | Load 0x2,-0x5
03f1 0c02 | | Execute_Immediate Greater_Equal,0x2
03f2 680f |h | Jump_Zero 0x402
03f3 4801 |H | Short_Literal 0x1
03f4 4801 |H | Short_Literal 0x1
03f5 4800 |H | Short_Literal 0x0
03f6 4801 |H | Short_Literal 0x1
03f7 e5fa | | Load 0x2,-0x6
03f8 e009 | | Load 0x0,0x9
03f9 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03fa 4800 |H | Short_Literal 0x0
03fb 0092 0e97 | | Action Push_String_Extended,0xe97 ; "<ALL_WORLDS>"
03fd e5fb | | Load 0x2,-0x5
03fe 4803 |H | Short_Literal 0x3
03ff e5ff | | Load 0x2,-0x1
0400 e011 | | Load 0x0,0x11
0401 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0402 e404 | | Load 0x2,0x4
0403 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0405 e402 | | Load 0x2,0x2
0406 e403 | | Load 0x2,0x3
0407 e007 | | Load 0x0,0x7
0408 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0409 4507 |E | Exit_Suprogram New_Top_Offset 0x7
040a TRAP_0228:
040a e00c | | Load 0x0,0xc
040b 010f | | Execute Exception,Equal
040c 6801 |h | Jump_Zero 0x40e
040d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
040e e00f | | Load 0x0,0xf
040f 010f | | Execute Exception,Equal
0410 6811 |h | Jump_Zero 0x422
0411 e003 | | Load 0x0,0x3
0412 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0413 e006 | | Load 0x0,0x6
0414 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0415 e413 | | Load 0x2,0x13
0416 e003 | | Load 0x0,0x3
0417 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0418 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0419 c415 | | Store 0x2,0x15
041a e404 | | Load 0x2,0x4
041b 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
041d e402 | | Load 0x2,0x2
041e e403 | | Load 0x2,0x3
041f e007 | | Load 0x0,0x7
0420 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0421 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0422 e001 | | Load 0x0,0x1
0423 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0424 010f | | Execute Exception,Equal
0425 6814 |h | Jump_Zero 0x43a
0426 e001 | | Load 0x0,0x1
0427 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0428 a403 | | Store_Unchecked 0x2,0x3
0429 e003 | | Load 0x0,0x3
042a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
042b e006 | | Load 0x0,0x6
042c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
042d e413 | | Load 0x2,0x13
042e e003 | | Load 0x0,0x3
042f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0430 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0431 c415 | | Store 0x2,0x15
0432 e404 | | Load 0x2,0x4
0433 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0435 e402 | | Load 0x2,0x2
0436 e403 | | Load 0x2,0x3
0437 e007 | | Load 0x0,0x7
0438 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0439 4507 |E | Exit_Suprogram New_Top_Offset 0x7
043a 4884 |H | Short_Literal 0x84
043b 010f | | Execute Exception,Equal
043c 6811 |h | Jump_Zero 0x44e
043d e003 | | Load 0x0,0x3
043e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043f e006 | | Load 0x0,0x6
0440 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0441 e413 | | Load 0x2,0x13
0442 e003 | | Load 0x0,0x3
0443 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0444 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0445 c415 | | Store 0x2,0x15
0446 e404 | | Load 0x2,0x4
0447 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0449 e402 | | Load 0x2,0x2
044a e403 | | Load 0x2,0x3
044b e007 | | Load 0x0,0x7
044c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
044d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
044e e003 | | Load 0x0,0x3
044f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0450 e006 | | Load 0x0,0x6
0451 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0452 e413 | | Load 0x2,0x13
0453 e003 | | Load 0x0,0x3
0454 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0455 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0456 c415 | | Store 0x2,0x15
0457 e404 | | Load 0x2,0x4
0458 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
045a e402 | | Load 0x2,0x2
045b e403 | | Load 0x2,0x3
045c e007 | | Load 0x0,0x7
045d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
045e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
045f 0000 | | .XXX[0x1]
0460 0000 0000 | | .LITERAL {0x00000000, 0x00008877}
0464 0000 0000 | | .LITERAL {0x00000000, 0x00008851}
0468 0000 0000 | | .LITERAL {0x00000000, 0x00008864}
046c 0000 0000 | | .BLANK 0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 04a3 | | .CONST 0x04a3 ; Address of begin
0471 0625 | % | .CONST 0x0625 ; Address of exception handler
0472 000c | | .CONST 0x000c ; Number of locals
0473 INIT_0470:
0473 0092 0e98 | | Action Push_String_Extended,0xe98 ; "Upload_Unit"
0475 e001 | | Load 0x0,0x1
0476 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0477 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0478 e002 | | Load 0x0,0x2
0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047a 02c7 | | Declare_Variable Any
047b e5fb | | Load 0x2,-0x5
047c e002 | | Load 0x0,0x2
047d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
047e a404 | | Store_Unchecked 0x2,0x4
047f 00e1 | | Load_Encached Boolean_Cache
0480 e004 | | Load 0x0,0x4
0481 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0482 02c7 | | Declare_Variable Any
0483 00d8 | | Load_Top At_Offset_0
0484 1c00 | | Execute_Immediate Run_Utility,0x0
0485 e003 | | Load 0x0,0x3
0486 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0487 02c7 | | Declare_Variable Any
0488 00d8 | | Load_Top At_Offset_0
0489 1c00 | | Execute_Immediate Run_Utility,0x0
048a e003 | | Load 0x0,0x3
048b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
048c 02c7 | | Declare_Variable Any
048d 00d8 | | Load_Top At_Offset_0
048e 1c00 | | Execute_Immediate Run_Utility,0x0
048f e003 | | Load 0x0,0x3
0490 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0491 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0492 02c7 | | Declare_Variable Any
0493 e006 | | Load 0x0,0x6
0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0495 e003 | | Load 0x0,0x3
0496 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0497 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0498 a409 | | Store_Unchecked 0x2,0x9
0499 e003 | | Load 0x0,0x3
049a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
049b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
049c 02c7 | | Declare_Variable Any
049d 00d8 | | Load_Top At_Offset_0
049e 1c00 | | Execute_Immediate Run_Utility,0x0
049f e003 | | Load 0x0,0x3
04a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a1 029f 0d5b | [| Declare_Subprogram INIT_0d58,For_Call
04a3 BODY_0470:
04a3 e404 | | Load 0x2,0x4
04a4 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
04a6 0092 0e99 | | Action Push_String_Extended,0xe99 ; "Remote_Unit_Name"
04a8 e5ff | | Load 0x2,-0x1
04a9 e007 | | Load 0x0,0x7
04aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04ab 01cc | | Execute Vector,Catenate
04ac 0092 0e9a | | Action Push_String_Extended,0xe9a ; "Into_View"
04ae 01cc | | Execute Vector,Catenate
04af e5fe | | Load 0x2,-0x2
04b0 e007 | | Load 0x0,0x7
04b1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04b2 01cc | | Execute Vector,Catenate
04b3 0092 0e9b | | Action Push_String_Extended,0xe9b ; "Upload_To_Text_File => "
04b5 01cc | | Execute Vector,Catenate
04b6 e5fd | | Load 0x2,-0x3
04b7 00e1 | | Load_Encached Boolean_Cache
04b8 011c | | Execute Any,Convert_Unchecked
04b9 1c01 | | Execute_Immediate Run_Utility,0x1
04ba 01cc | | Execute Vector,Catenate
04bb 0092 0e9c | | Action Push_String_Extended,0xe9c ; ", Host_Text_File_Name"
04bd 01cc | | Execute Vector,Catenate
04be e5fc | | Load 0x2,-0x4
04bf e007 | | Load 0x0,0x7
04c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04c1 01cc | | Execute Vector,Catenate
04c2 0092 0e9d | | Action Push_String_Extended,0xe9d ; "Response"
04c4 01cc | | Execute Vector,Catenate
04c5 e5fb | | Load 0x2,-0x5
04c6 e007 | | Load 0x0,0x7
04c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c8 01cc | | Execute Vector,Catenate
04c9 e402 | | Load 0x2,0x2
04ca e007 | | Load 0x0,0x7
04cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04cc e404 | | Load 0x2,0x4
04cd e008 | | Load 0x0,0x8
04ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
04cf e404 | | Load 0x2,0x4
04d0 0092 0e99 | | Action Push_String_Extended,0xe99 ; "Remote_Unit_Name"
04d2 4801 |H | Short_Literal 0x1
04d3 e5ff | | Load 0x2,-0x1
04d4 e008 | | Load 0x0,0x8
04d5 180d | | Execute Package,Field_Execute,Field_Number 0xd
04d6 e404 | | Load 0x2,0x4
04d7 4801 |H | Short_Literal 0x1
04d8 e5fe | | Load 0x2,-0x2
04d9 e009 | | Load 0x0,0x9
04da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04db c407 | | Store 0x2,0x7
04dc e404 | | Load 0x2,0x4
04dd 00d8 | | Load_Top At_Offset_0
04de 4801 |H | Short_Literal 0x1
04df e5fe | | Load 0x2,-0x2
04e0 e009 | | Load 0x0,0x9
04e1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04e2 8216 | | Call 0x1,0x16
04e3 c408 | | Store 0x2,0x8
04e4 e404 | | Load 0x2,0x4
04e5 e407 | | Load 0x2,0x7
04e6 e009 | | Load 0x0,0x9
04e7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
04e8 a405 | | Store_Unchecked 0x2,0x5
04e9 e404 | | Load 0x2,0x4
04ea e407 | | Load 0x2,0x7
04eb e008 | | Load 0x0,0x8
04ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ed e003 | | Load 0x0,0x3
04ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ef 00db | | Load_Top At_Offset_3
04f0 0120 | | Execute Any,Is_Value
04f1 6804 |h | Jump_Zero 0x4f6
04f2 e003 | | Load 0x0,0x3
04f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04f5 7801 |x | Jump 0x4f7
04f6 00db | | Load_Top At_Offset_3
04f7 619c |a | Indirect_Literal Discrete,0x694,{0x00000000, 0x00004000}
04f8 e00a | | Load 0x0,0xa
04f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04fa 4800 |H | Short_Literal 0x0
04fb e408 | | Load 0x2,0x8
04fc e003 | | Load 0x0,0x3
04fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ff c40a | | Store 0x2,0xa
0500 005a | Z | Store_Top Discrete,At_Offset_2
0501 00d9 | | Load_Top At_Offset_1
0502 6824 |h$ | Jump_Zero 0x527
0503 e404 | | Load 0x2,0x4
0504 4801 |H | Short_Literal 0x1
0505 4802 |H | Short_Literal 0x2
0506 e00b | | Load 0x0,0xb
0507 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0508 035b | [ | Declare_Type Array,Constrained
0509 0337 | 7 | Declare_Variable Array
050a e407 | | Load 0x2,0x7
050b e00b | | Load 0x0,0xb
050c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
050d e00b | | Load 0x0,0xb
050e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
050f 0119 | | Execute Any,Check_In_Formal_Type
0510 4801 |H | Short_Literal 0x1
0511 00da | | Load_Top At_Offset_2
0512 01d6 | | Execute Vector,Field_Write
0513 00db | | Load_Top At_Offset_3
0514 e00b | | Load 0x0,0xb
0515 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0516 e00b | | Load 0x0,0xb
0517 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0518 0119 | | Execute Any,Check_In_Formal_Type
0519 4802 |H | Short_Literal 0x2
051a 00da | | Load_Top At_Offset_2
051b 01d6 | | Execute Vector,Field_Write
051c 6173 |as | Indirect_Literal Discrete,0x690,{0x00000000, 0x00008866}
051d e001 | | Load 0x0,0x1
051e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
051f e00b | | Load 0x0,0xb
0520 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0521 616a |aj | Indirect_Literal Discrete,0x68c,{0x00000000, 0x00008868}
0522 e001 | | Load 0x0,0x1
0523 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0524 a403 | | Store_Unchecked 0x2,0x3
0525 e00c | | Load 0x0,0xc
0526 0257 | W | Execute Discrete,Raise
0527 e003 | | Load 0x0,0x3
0528 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0529 e006 | | Load 0x0,0x6
052a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
052b e40a | | Load 0x2,0xa
052c e003 | | Load 0x0,0x3
052d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
052e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
052f 005a | Z | Store_Top Discrete,At_Offset_2
0530 00d9 | | Load_Top At_Offset_1
0531 6824 |h$ | Jump_Zero 0x556
0532 e404 | | Load 0x2,0x4
0533 4801 |H | Short_Literal 0x1
0534 4802 |H | Short_Literal 0x2
0535 e00b | | Load 0x0,0xb
0536 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0537 035b | [ | Declare_Type Array,Constrained
0538 0337 | 7 | Declare_Variable Array
0539 e407 | | Load 0x2,0x7
053a e00b | | Load 0x0,0xb
053b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
053c e00b | | Load 0x0,0xb
053d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
053e 0119 | | Execute Any,Check_In_Formal_Type
053f 4801 |H | Short_Literal 0x1
0540 00da | | Load_Top At_Offset_2
0541 01d6 | | Execute Vector,Field_Write
0542 00db | | Load_Top At_Offset_3
0543 e00b | | Load 0x0,0xb
0544 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0545 e00b | | Load 0x0,0xb
0546 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0547 0119 | | Execute Any,Check_In_Formal_Type
0548 4802 |H | Short_Literal 0x2
0549 00da | | Load_Top At_Offset_2
054a 01d6 | | Execute Vector,Field_Write
054b 613c |a< | Indirect_Literal Discrete,0x688,{0x00000000, 0x00008867}
054c e001 | | Load 0x0,0x1
054d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
054e e00b | | Load 0x0,0xb
054f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0550 613b |a; | Indirect_Literal Discrete,0x68c,{0x00000000, 0x00008868}
0551 e001 | | Load 0x0,0x1
0552 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0553 a403 | | Store_Unchecked 0x2,0x3
0554 e00c | | Load 0x0,0xc
0555 0257 | W | Execute Discrete,Raise
0556 e5fd | | Load 0x2,-0x3
0557 681d |h | Jump_Zero 0x575
0558 4820 |H | Short_Literal 0x20
0559 e5fc | | Load 0x2,-0x4
055a e012 | | Load 0x0,0x12
055b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
055c 01db | | Execute Vector,Length
055d 7015 |p | Jump_Nonzero 0x573
055e e404 | | Load 0x2,0x4
055f 4801 |H | Short_Literal 0x1
0560 4801 |H | Short_Literal 0x1
0561 e00b | | Load 0x0,0xb
0562 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0563 035b | [ | Declare_Type Array,Constrained
0564 0337 | 7 | Declare_Variable Array
0565 e5ff | | Load 0x2,-0x1
0566 e00b | | Load 0x0,0xb
0567 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0568 e00b | | Load 0x0,0xb
0569 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056a 0119 | | Execute Any,Check_In_Formal_Type
056b 4801 |H | Short_Literal 0x1
056c 00da | | Load_Top At_Offset_2
056d 01d6 | | Execute Vector,Field_Write
056e 6115 |a | Indirect_Literal Discrete,0x684,{0x00000000, 0x0000887b}
056f e001 | | Load 0x0,0x1
0570 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0571 e00f | | Load 0x0,0xf
0572 0257 | W | Execute Discrete,Raise
0573 840c | | Call 0x2,0xc
0574 7813 |x | Jump 0x588
0575 e404 | | Load 0x2,0x4
0576 4801 |H | Short_Literal 0x1
0577 4801 |H | Short_Literal 0x1
0578 e00b | | Load 0x0,0xb
0579 1b0f | | Execute Package,Field_Read,Field_Number 0xf
057a 035b | [ | Declare_Type Array,Constrained
057b 0337 | 7 | Declare_Variable Array
057c e5ff | | Load 0x2,-0x1
057d e00b | | Load 0x0,0xb
057e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057f e00b | | Load 0x0,0xb
0580 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0581 0119 | | Execute Any,Check_In_Formal_Type
0582 4801 |H | Short_Literal 0x1
0583 00da | | Load_Top At_Offset_2
0584 01d6 | | Execute Vector,Field_Write
0585 60fa |` | Indirect_Literal Discrete,0x680,{0x00000000, 0x0000887d}
0586 e001 | | Load 0x0,0x1
0587 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0588 e405 | | Load 0x2,0x5
0589 7019 |p | Jump_Nonzero 0x5a3
058a e403 | | Load 0x2,0x3
058b e406 | | Load 0x2,0x6
058c e404 | | Load 0x2,0x4
058d 00d8 | | Load_Top At_Offset_0
058e e407 | | Load 0x2,0x7
058f e009 | | Load 0x0,0x9
0590 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0591 e404 | | Load 0x2,0x4
0592 e407 | | Load 0x2,0x7
0593 800d | | Call 0x0,0xd
0594 e404 | | Load 0x2,0x4
0595 e407 | | Load 0x2,0x7
0596 e009 | | Load 0x0,0x9
0597 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0598 e00e | | Load 0x0,0xe
0599 1810 | | Execute Package,Field_Execute,Field_Number 0x10
059a c406 | | Store 0x2,0x6
059b c403 | | Store 0x2,0x3
059c 4800 |H | Short_Literal 0x0
059d e403 | | Load 0x2,0x3
059e e001 | | Load 0x0,0x1
059f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05a0 7002 |p | Jump_Nonzero 0x5a3
05a1 e00f | | Load 0x0,0xf
05a2 0257 | W | Execute Discrete,Raise
05a3 e403 | | Load 0x2,0x3
05a4 4801 |H | Short_Literal 0x1
05a5 4801 |H | Short_Literal 0x1
05a6 4800 |H | Short_Literal 0x0
05a7 4801 |H | Short_Literal 0x1
05a8 e404 | | Load 0x2,0x4
05a9 e009 | | Load 0x0,0x9
05aa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05ab 4800 |H | Short_Literal 0x0
05ac e406 | | Load 0x2,0x6
05ad e404 | | Load 0x2,0x4
05ae e407 | | Load 0x2,0x7
05af e009 | | Load 0x0,0x9
05b0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05b1 e5fc | | Load 0x2,-0x4
05b2 e408 | | Load 0x2,0x8
05b3 e407 | | Load 0x2,0x7
05b4 e5fd | | Load 0x2,-0x3
05b5 0f00 | | Execute_Immediate Equal,0x0
05b6 e5ff | | Load 0x2,-0x1
05b7 e003 | | Load 0x0,0x3
05b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05b9 e005 | | Load 0x0,0x5
05ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05bb c403 | | Store 0x2,0x3
05bc 4800 |H | Short_Literal 0x0
05bd e403 | | Load 0x2,0x3
05be e001 | | Load 0x0,0x1
05bf 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05c0 7046 |pF | Jump_Nonzero 0x607
05c1 e5fd | | Load 0x2,-0x3
05c2 6827 |h' | Jump_Zero 0x5ea
05c3 e404 | | Load 0x2,0x4
05c4 4801 |H | Short_Literal 0x1
05c5 4803 |H | Short_Literal 0x3
05c6 e00b | | Load 0x0,0xb
05c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c8 035b | [ | Declare_Type Array,Constrained
05c9 0337 | 7 | Declare_Variable Array
05ca e5ff | | Load 0x2,-0x1
05cb e00b | | Load 0x0,0xb
05cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05cd e00b | | Load 0x0,0xb
05ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05cf 0119 | | Execute Any,Check_In_Formal_Type
05d0 4801 |H | Short_Literal 0x1
05d1 00da | | Load_Top At_Offset_2
05d2 01d6 | | Execute Vector,Field_Write
05d3 0092 0e9e | | Action Push_String_Extended,0xe9e ; "text file"
05d5 e00b | | Load 0x0,0xb
05d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d7 e00b | | Load 0x0,0xb
05d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d9 0119 | | Execute Any,Check_In_Formal_Type
05da 4802 |H | Short_Literal 0x2
05db 00da | | Load_Top At_Offset_2
05dc 01d6 | | Execute Vector,Field_Write
05dd e5fc | | Load 0x2,-0x4
05de e00b | | Load 0x0,0xb
05df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05e0 e00b | | Load 0x0,0xb
05e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05e2 0119 | | Execute Any,Check_In_Formal_Type
05e3 4803 |H | Short_Literal 0x3
05e4 00da | | Load_Top At_Offset_2
05e5 01d6 | | Execute Vector,Field_Write
05e6 6095 |` | Indirect_Literal Discrete,0x67c,{0x00000000, 0x00008816}
05e7 e001 | | Load 0x0,0x1
05e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05e9 781d |x | Jump 0x607
05ea e404 | | Load 0x2,0x4
05eb 4801 |H | Short_Literal 0x1
05ec 4802 |H | Short_Literal 0x2
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 0092 0e9f | | Action Push_String_Extended,0xe9f ; "local Ada unit"
05fc e00b | | Load 0x0,0xb
05fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05fe e00b | | Load 0x0,0xb
05ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0600 0119 | | Execute Any,Check_In_Formal_Type
0601 4802 |H | Short_Literal 0x2
0602 00da | | Load_Top At_Offset_2
0603 01d6 | | Execute Vector,Field_Write
0604 6077 |`w | Indirect_Literal Discrete,0x67c,{0x00000000, 0x00008816}
0605 e001 | | Load 0x0,0x1
0606 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0607 e405 | | Load 0x2,0x5
0608 700b |p | Jump_Nonzero 0x614
0609 e403 | | Load 0x2,0x3
060a e406 | | Load 0x2,0x6
060b e404 | | Load 0x2,0x4
060c 00d8 | | Load_Top At_Offset_0
060d e407 | | Load 0x2,0x7
060e e009 | | Load 0x0,0x9
060f 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0610 e00e | | Load 0x0,0xe
0611 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0612 c406 | | Store 0x2,0x6
0613 c403 | | Store 0x2,0x3
0614 e003 | | Load 0x0,0x3
0615 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0616 e006 | | Load 0x0,0x6
0617 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0618 e409 | | Load 0x2,0x9
0619 e003 | | Load 0x0,0x3
061a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
061b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
061c 005a | Z | Store_Top Discrete,At_Offset_2
061d e404 | | Load 0x2,0x4
061e 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0620 e402 | | Load 0x2,0x2
0621 e403 | | Load 0x2,0x3
0622 e007 | | Load 0x0,0x7
0623 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0624 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0625 TRAP_0470:
0625 e00c | | Load 0x0,0xc
0626 010f | | Execute Exception,Equal
0627 6801 |h | Jump_Zero 0x629
0628 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0629 e00f | | Load 0x0,0xf
062a 010f | | Execute Exception,Equal
062b 6811 |h | Jump_Zero 0x63d
062c e003 | | Load 0x0,0x3
062d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062e e006 | | Load 0x0,0x6
062f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0630 e409 | | Load 0x2,0x9
0631 e003 | | Load 0x0,0x3
0632 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0633 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0634 005b | [ | Store_Top Discrete,At_Offset_3
0635 e404 | | Load 0x2,0x4
0636 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0638 e402 | | Load 0x2,0x2
0639 e403 | | Load 0x2,0x3
063a e007 | | Load 0x0,0x7
063b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
063c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
063d e001 | | Load 0x0,0x1
063e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
063f 010f | | Execute Exception,Equal
0640 6814 |h | Jump_Zero 0x655
0641 e001 | | Load 0x0,0x1
0642 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0643 a403 | | Store_Unchecked 0x2,0x3
0644 e003 | | Load 0x0,0x3
0645 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0646 e006 | | Load 0x0,0x6
0647 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0648 e409 | | Load 0x2,0x9
0649 e003 | | Load 0x0,0x3
064a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
064b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
064c 005b | [ | Store_Top Discrete,At_Offset_3
064d e404 | | Load 0x2,0x4
064e 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0650 e402 | | Load 0x2,0x2
0651 e403 | | Load 0x2,0x3
0652 e007 | | Load 0x0,0x7
0653 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0654 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0655 4884 |H | Short_Literal 0x84
0656 010f | | Execute Exception,Equal
0657 6811 |h | Jump_Zero 0x669
0658 e003 | | Load 0x0,0x3
0659 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065a e006 | | Load 0x0,0x6
065b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
065c e409 | | Load 0x2,0x9
065d e003 | | Load 0x0,0x3
065e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
065f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0660 005b | [ | Store_Top Discrete,At_Offset_3
0661 e404 | | Load 0x2,0x4
0662 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0664 e402 | | Load 0x2,0x2
0665 e403 | | Load 0x2,0x3
0666 e007 | | Load 0x0,0x7
0667 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0668 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0669 e003 | | Load 0x0,0x3
066a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
066b e006 | | Load 0x0,0x6
066c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
066d e409 | | Load 0x2,0x9
066e e003 | | Load 0x0,0x3
066f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0670 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0671 005b | [ | Store_Top Discrete,At_Offset_3
0672 e404 | | Load 0x2,0x4
0673 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0675 e402 | | Load 0x2,0x2
0676 e403 | | Load 0x2,0x3
0677 e007 | | Load 0x0,0x7
0678 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0679 4506 |E | Exit_Suprogram New_Top_Offset 0x6
067a 0000 0000 | | .XXX[0x2]
067c 0000 0000 | | .LITERAL {0x00000000, 0x00008816}
0680 0000 0000 | | .LITERAL {0x00000000, 0x0000887d}
0684 0000 0000 | | .LITERAL {0x00000000, 0x0000887b}
0688 0000 0000 | | .LITERAL {0x00000000, 0x00008867}
068c 0000 0000 | | .LITERAL {0x00000000, 0x00008868}
0690 0000 0000 | | .LITERAL {0x00000000, 0x00008866}
0694 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06b8 | | .CONST 0x06b8 ; Address of begin
0699 06f8 | | .CONST 0x06f8 ; Address of exception handler
069a 000a | | .CONST 0x000a ; Number of locals
069b INIT_0698:
069b 00e9 | | Load_Encached String_Cache
069c 02a0 | | Declare_Subprogram Null_Subprogram
069d 4818 |H | Short_Literal 0x18
069e 03d3 | | Declare_Type Access,Defined,Accesses_Protected
069f 0092 0e98 | | Action Push_String_Extended,0xe98 ; "Upload_Unit"
06a1 e001 | | Load 0x0,0x1
06a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06a4 e002 | | Load 0x0,0x2
06a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a6 02c7 | | Declare_Variable Any
06a7 e5fd | | Load 0x2,-0x3
06a8 e002 | | Load 0x0,0x2
06a9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06aa a405 | | Store_Unchecked 0x2,0x5
06ab e013 | | Load 0x0,0x13
06ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ad 02c7 | | Declare_Variable Any
06ae 00d8 | | Load_Top At_Offset_0
06af 1c00 | | Execute_Immediate Run_Utility,0x0
06b0 00e1 | | Load_Encached Boolean_Cache
06b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06b2 029f 0dfb | | Declare_Subprogram INIT_0df8,For_Call
06b4 029f 0e1b | | Declare_Subprogram INIT_0e18,For_Call
06b6 029f 0e3b | ;| Declare_Subprogram INIT_0e38,For_Call
06b8 BODY_0698:
06b8 e405 | | Load 0x2,0x5
06b9 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
06bb 0092 0ea0 | | Action Push_String_Extended,0xea0 ; "upload_specification_file"
06bd e5ff | | Load 0x2,-0x1
06be e007 | | Load 0x0,0x7
06bf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06c0 01cc | | Execute Vector,Catenate
06c1 0092 0e9a | | Action Push_String_Extended,0xe9a ; "Into_View"
06c3 01cc | | Execute Vector,Catenate
06c4 e5fe | | Load 0x2,-0x2
06c5 e007 | | Load 0x0,0x7
06c6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06c7 01cc | | Execute Vector,Catenate
06c8 0092 0e9d | | Action Push_String_Extended,0xe9d ; "Response"
06ca 01cc | | Execute Vector,Catenate
06cb e5fd | | Load 0x2,-0x3
06cc e007 | | Load 0x0,0x7
06cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06ce 01cc | | Execute Vector,Catenate
06cf e403 | | Load 0x2,0x3
06d0 e007 | | Load 0x0,0x7
06d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06d2 e405 | | Load 0x2,0x5
06d3 e008 | | Load 0x0,0x8
06d4 180f | | Execute Package,Field_Execute,Field_Number 0xf
06d5 e405 | | Load 0x2,0x5
06d6 0092 0ea0 | | Action Push_String_Extended,0xea0 ; "upload_specification_file"
06d8 4801 |H | Short_Literal 0x1
06d9 e5ff | | Load 0x2,-0x1
06da e008 | | Load 0x0,0x8
06db 180d | | Execute Package,Field_Execute,Field_Number 0xd
06dc e406 | | Load 0x2,0x6
06dd 00ea | | Load_Encached Null_String_Cache
06de e5ff | | Load 0x2,-0x1
06df 4800 |H | Short_Literal 0x0
06e0 e013 | | Load 0x0,0x13
06e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06e2 c406 | | Store 0x2,0x6
06e3 00cf | | Action Mark_Auxiliary
06e4 7802 |x | Jump 0x6e7
06e5 840a | | Call 0x2,0xa
06e6 00c9 | | Action Pop_Auxiliary_Loop
06e7 e406 | | Load 0x2,0x6
06e8 e013 | | Load 0x0,0x13
06e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06ea 6ffa |o | Jump_Zero 0x6e5
06eb 00ce | | Action Pop_Auxiliary
06ec e406 | | Load 0x2,0x6
06ed e013 | | Load 0x0,0x13
06ee 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06ef c406 | | Store 0x2,0x6
06f0 e405 | | Load 0x2,0x5
06f1 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
06f3 e403 | | Load 0x2,0x3
06f4 e404 | | Load 0x2,0x4
06f5 e007 | | Load 0x0,0x7
06f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06f8 TRAP_0698:
06f8 e014 | | Load 0x0,0x14
06f9 010f | | Execute Exception,Equal
06fa 681c |h | Jump_Zero 0x717
06fb e002 | | Load 0x0,0x2
06fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
06fd 4801 |H | Short_Literal 0x1
06fe 4801 |H | Short_Literal 0x1
06ff e00b | | Load 0x0,0xb
0700 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0701 035b | [ | Declare_Type Array,Constrained
0702 0337 | 7 | Declare_Variable Array
0703 e5ff | | Load 0x2,-0x1
0704 e00b | | Load 0x0,0xb
0705 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0706 e00b | | Load 0x0,0xb
0707 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0708 0119 | | Execute Any,Check_In_Formal_Type
0709 4801 |H | Short_Literal 0x1
070a 00da | | Load_Top At_Offset_2
070b 01d6 | | Execute Vector,Field_Write
070c 6013 |` | Indirect_Literal Discrete,0x720,{0x00000000, 0x0000889e}
070d e001 | | Load 0x0,0x1
070e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
070f e405 | | Load 0x2,0x5
0710 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0712 e403 | | Load 0x2,0x3
0713 e404 | | Load 0x2,0x4
0714 e007 | | Load 0x0,0x7
0715 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0716 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0717 e405 | | Load 0x2,0x5
0718 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
071a e403 | | Load 0x2,0x3
071b e404 | | Load 0x2,0x4
071c e007 | | Load 0x0,0x7
071d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
071e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
071f 0000 | | .XXX[0x1]
0720 0000 0000 | | .LITERAL {0x00000000, 0x0000889e}
0724 0000 0000 | | .BLANK 0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 0749 | I | .CONST 0x0749 ; Address of begin
0729 0832 | 2 | .CONST 0x0832 ; Address of exception handler
072a 0009 | | .CONST 0x0009 ; Number of locals
072b INIT_0728:
072b 0092 0ea1 | | Action Push_String_Extended,0xea1 ; "Set_Remote_Unit_Name"
072d e001 | | Load 0x0,0x1
072e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
072f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0730 e002 | | Load 0x0,0x2
0731 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0732 02c7 | | Declare_Variable Any
0733 e5fc | | Load 0x2,-0x4
0734 e002 | | Load 0x0,0x2
0735 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0736 a404 | | Store_Unchecked 0x2,0x4
0737 00e1 | | Load_Encached Boolean_Cache
0738 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0739 00e2 | | Load_Encached Integer_Cache
073a e003 | | Load 0x0,0x3
073b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
073c 02c7 | | Declare_Variable Any
073d 00d8 | | Load_Top At_Offset_0
073e 1c00 | | Execute_Immediate Run_Utility,0x0
073f e003 | | Load 0x0,0x3
0740 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0741 02c7 | | Declare_Variable Any
0742 00d8 | | Load_Top At_Offset_0
0743 1c00 | | Execute_Immediate Run_Utility,0x0
0744 e003 | | Load 0x0,0x3
0745 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0746 02c7 | | Declare_Variable Any
0747 00d8 | | Load_Top At_Offset_0
0748 1c00 | | Execute_Immediate Run_Utility,0x0
0749 BODY_0728:
0749 e404 | | Load 0x2,0x4
074a 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
074c 0092 0ea2 | | Action Push_String_Extended,0xea2 ; "Remote_Name"
074e e5ff | | Load 0x2,-0x1
074f e007 | | Load 0x0,0x7
0750 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0751 01cc | | Execute Vector,Catenate
0752 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
0754 01cc | | Execute Vector,Catenate
0755 e5fe | | Load 0x2,-0x2
0756 e007 | | Load 0x0,0x7
0757 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0758 01cc | | Execute Vector,Catenate
0759 0092 0e92 | | Action Push_String_Extended,0xe92 ; "Allow_Demotion => "
075b 01cc | | Execute Vector,Catenate
075c e5fd | | Load 0x2,-0x3
075d 00e1 | | Load_Encached Boolean_Cache
075e 011c | | Execute Any,Convert_Unchecked
075f 1c01 | | Execute_Immediate Run_Utility,0x1
0760 01cc | | Execute Vector,Catenate
0761 0092 0e90 | | Action Push_String_Extended,0xe90 ; ", Response"
0763 01cc | | Execute Vector,Catenate
0764 e5fc | | Load 0x2,-0x4
0765 e007 | | Load 0x0,0x7
0766 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0767 01cc | | Execute Vector,Catenate
0768 e402 | | Load 0x2,0x2
0769 e007 | | Load 0x0,0x7
076a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
076b e404 | | Load 0x2,0x4
076c e008 | | Load 0x0,0x8
076d 180f | | Execute Package,Field_Execute,Field_Number 0xf
076e e404 | | Load 0x2,0x4
076f 0092 0ea2 | | Action Push_String_Extended,0xea2 ; "Remote_Name"
0771 4800 |H | Short_Literal 0x0
0772 e5ff | | Load 0x2,-0x1
0773 e008 | | Load 0x0,0x8
0774 180d | | Execute Package,Field_Execute,Field_Number 0xd
0775 e404 | | Load 0x2,0x4
0776 4801 |H | Short_Literal 0x1
0777 e5fe | | Load 0x2,-0x2
0778 e009 | | Load 0x0,0x9
0779 181a | | Execute Package,Field_Execute,Field_Number 0x1a
077a c407 | | Store 0x2,0x7
077b e404 | | Load 0x2,0x4
077c 4801 |H | Short_Literal 0x1
077d e407 | | Load 0x2,0x7
077e e009 | | Load 0x0,0x9
077f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0780 c409 | | Store 0x2,0x9
0781 e404 | | Load 0x2,0x4
0782 00d9 | | Load_Top At_Offset_1
0783 e008 | | Load 0x0,0x8
0784 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0785 00da | | Load_Top At_Offset_2
0786 e009 | | Load 0x0,0x9
0787 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0788 6805 |h | Jump_Zero 0x78e
0789 e404 | | Load 0x2,0x4
078a e5fd | | Load 0x2,-0x3
078b e407 | | Load 0x2,0x7
078c 8214 | | Call 0x1,0x14
078d 784f |xO | Jump 0x7dd
078e e001 | | Load 0x0,0x1
078f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0790 00e2 | | Load_Encached Integer_Cache
0791 00e1 | | Load_Encached Boolean_Cache
0792 e408 | | Load 0x2,0x8
0793 0120 | | Execute Any,Is_Value
0794 6803 |h | Jump_Zero 0x798
0795 e003 | | Load 0x0,0x3
0796 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0797 7801 |x | Jump 0x799
0798 e408 | | Load 0x2,0x8
0799 e404 | | Load 0x2,0x4
079a e407 | | Load 0x2,0x7
079b e010 | | Load 0x0,0x10
079c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
079d c408 | | Store 0x2,0x8
079e c405 | | Store 0x2,0x5
079f c406 | | Store 0x2,0x6
07a0 c403 | | Store 0x2,0x3
07a1 4800 |H | Short_Literal 0x0
07a2 e403 | | Load 0x2,0x3
07a3 e001 | | Load 0x0,0x1
07a4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07a5 0f00 | | Execute_Immediate Equal,0x0
07a6 e405 | | Load 0x2,0x5
07a7 0f00 | | Execute_Immediate Equal,0x0
07a8 0278 | x | Execute Discrete,Or
07a9 6814 |h | Jump_Zero 0x7be
07aa e404 | | Load 0x2,0x4
07ab 4801 |H | Short_Literal 0x1
07ac 4801 |H | Short_Literal 0x1
07ad e00b | | Load 0x0,0xb
07ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07af 035b | [ | Declare_Type Array,Constrained
07b0 0337 | 7 | Declare_Variable Array
07b1 e407 | | Load 0x2,0x7
07b2 e009 | | Load 0x0,0x9
07b3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07b4 e00b | | Load 0x0,0xb
07b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b6 0119 | | Execute Any,Check_In_Formal_Type
07b7 4801 |H | Short_Literal 0x1
07b8 00da | | Load_Top At_Offset_2
07b9 01d6 | | Execute Vector,Field_Write
07ba 60a5 |` | Indirect_Literal Discrete,0x860,{0x00000000, 0x0000889d}
07bb e001 | | Load 0x0,0x1
07bc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07be e404 | | Load 0x2,0x4
07bf 00da | | Load_Top At_Offset_2
07c0 e009 | | Load 0x0,0x9
07c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07c2 7016 |p | Jump_Nonzero 0x7d9
07c3 e404 | | Load 0x2,0x4
07c4 4801 |H | Short_Literal 0x1
07c5 4801 |H | Short_Literal 0x1
07c6 e00b | | Load 0x0,0xb
07c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07c8 035b | [ | Declare_Type Array,Constrained
07c9 0337 | 7 | Declare_Variable Array
07ca 00db | | Load_Top At_Offset_3
07cb e009 | | Load 0x0,0x9
07cc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07cd e00b | | Load 0x0,0xb
07ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07cf 0119 | | Execute Any,Check_In_Formal_Type
07d0 4801 |H | Short_Literal 0x1
07d1 00da | | Load_Top At_Offset_2
07d2 01d6 | | Execute Vector,Field_Write
07d3 6088 |` | Indirect_Literal Discrete,0x85c,{0x00000000, 0x0000889a}
07d4 e001 | | Load 0x0,0x1
07d5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07d6 e001 | | Load 0x0,0x1
07d7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07d8 0257 | W | Execute Discrete,Raise
07d9 e404 | | Load 0x2,0x4
07da e5fd | | Load 0x2,-0x3
07db 00db | | Load_Top At_Offset_3
07dc 8214 | | Call 0x1,0x14
07dd e405 | | Load 0x2,0x5
07de 6809 |h | Jump_Zero 0x7e8
07df e001 | | Load 0x0,0x1
07e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07e1 e404 | | Load 0x2,0x4
07e2 e5ff | | Load 0x2,-0x1
07e3 e407 | | Load 0x2,0x7
07e4 e010 | | Load 0x0,0x10
07e5 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
07e6 c403 | | Store 0x2,0x3
07e7 780d |x | Jump 0x7f5
07e8 e001 | | Load 0x0,0x1
07e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07ea e404 | | Load 0x2,0x4
07eb 00d8 | | Load_Top At_Offset_0
07ec 00db | | Load_Top At_Offset_3
07ed e009 | | Load 0x0,0x9
07ee 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
07ef e5ff | | Load 0x2,-0x1
07f0 e407 | | Load 0x2,0x7
07f1 e409 | | Load 0x2,0x9
07f2 e010 | | Load 0x0,0x10
07f3 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
07f4 c403 | | Store 0x2,0x3
07f5 4800 |H | Short_Literal 0x0
07f6 e403 | | Load 0x2,0x3
07f7 e001 | | Load 0x0,0x1
07f8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07f9 681d |h | Jump_Zero 0x817
07fa e404 | | Load 0x2,0x4
07fb 4801 |H | Short_Literal 0x1
07fc 4802 |H | Short_Literal 0x2
07fd e00b | | Load 0x0,0xb
07fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07ff 035b | [ | Declare_Type Array,Constrained
0800 0337 | 7 | Declare_Variable Array
0801 e407 | | Load 0x2,0x7
0802 e009 | | Load 0x0,0x9
0803 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0804 e00b | | Load 0x0,0xb
0805 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0806 0119 | | Execute Any,Check_In_Formal_Type
0807 4801 |H | Short_Literal 0x1
0808 00da | | Load_Top At_Offset_2
0809 01d6 | | Execute Vector,Field_Write
080a e5ff | | Load 0x2,-0x1
080b e00b | | Load 0x0,0xb
080c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
080d e00b | | Load 0x0,0xb
080e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
080f 0119 | | Execute Any,Check_In_Formal_Type
0810 4802 |H | Short_Literal 0x2
0811 00da | | Load_Top At_Offset_2
0812 01d6 | | Execute Vector,Field_Write
0813 6044 |`D | Indirect_Literal Discrete,0x858,{0x00000000, 0x0000883d}
0814 e001 | | Load 0x0,0x1
0815 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0816 7813 |x | Jump 0x82a
0817 e404 | | Load 0x2,0x4
0818 4801 |H | Short_Literal 0x1
0819 4801 |H | Short_Literal 0x1
081a e00b | | Load 0x0,0xb
081b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
081c 035b | [ | Declare_Type Array,Constrained
081d 0337 | 7 | Declare_Variable Array
081e e407 | | Load 0x2,0x7
081f e009 | | Load 0x0,0x9
0820 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0821 e00b | | Load 0x0,0xb
0822 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0823 0119 | | Execute Any,Check_In_Formal_Type
0824 4801 |H | Short_Literal 0x1
0825 00da | | Load_Top At_Offset_2
0826 01d6 | | Execute Vector,Field_Write
0827 602c |`, | Indirect_Literal Discrete,0x854,{0x00000000, 0x0000881c}
0828 e001 | | Load 0x0,0x1
0829 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
082a e404 | | Load 0x2,0x4
082b 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
082d e402 | | Load 0x2,0x2
082e e403 | | Load 0x2,0x3
082f e007 | | Load 0x0,0x7
0830 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0831 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0832 TRAP_0728:
0832 e001 | | Load 0x0,0x1
0833 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0834 010f | | Execute Exception,Equal
0835 6808 |h | Jump_Zero 0x83e
0836 e404 | | Load 0x2,0x4
0837 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0839 e402 | | Load 0x2,0x2
083a e403 | | Load 0x2,0x3
083b e007 | | Load 0x0,0x7
083c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
083d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
083e 4884 |H | Short_Literal 0x84
083f 010f | | Execute Exception,Equal
0840 6808 |h | Jump_Zero 0x849
0841 e404 | | Load 0x2,0x4
0842 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
0844 e402 | | Load 0x2,0x2
0845 e403 | | Load 0x2,0x3
0846 e007 | | Load 0x0,0x7
0847 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0848 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0849 e404 | | Load 0x2,0x4
084a 0092 0e8d | | Action Push_String_Extended,0xe8d ; "Rcf."
084c e402 | | Load 0x2,0x2
084d e403 | | Load 0x2,0x3
084e e007 | | Load 0x0,0x7
084f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0850 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0851 0000 0000 | | .XXX[0x3]
0853 0000 | |
0854 0000 0000 | | .LITERAL {0x00000000, 0x0000881c}
0858 0000 0000 | | .LITERAL {0x00000000, 0x0000883d}
085c 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
0860 0000 0000 | | .LITERAL {0x00000000, 0x0000889d}
0864 0000 0000 | | .BLANK 0000[0x4]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086f | o | .CONST 0x086f ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0003 | | .CONST 0x0003 ; Number of locals
086b INIT_0868:
086b 029f 0e63 | c| Declare_Subprogram INIT_0e60,For_Call
086d 029f 0e7b | {| Declare_Subprogram INIT_0e78,For_Call
086f BODY_0868:
086f e5fc | | Load 0x2,-0x4
0870 7002 |p | Jump_Nonzero 0x873
0871 8402 | | Call 0x2,0x2
0872 7801 |x | Jump 0x874
0873 8403 | | Call 0x2,0x3
0874 0831 | 1 | Execute_Immediate Raise,0x31
0875 0000 0000 | | .XXX[0x3]
0877 0000 | |
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b | { | .CONST 0x087b ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0001 | | .CONST 0x0001 ; Number of locals
087b BODY_0878:
087b INIT_0878:
087b 00da | | Load_Top At_Offset_2
087c e015 | | Load 0x0,0x15
087d 180e | | Execute Package,Field_Execute,Field_Number 0xe
087e 00db | | Load_Top At_Offset_3
087f e015 | | Load 0x0,0x15
0880 180d | | Execute Package,Field_Execute,Field_Number 0xd
0881 0278 | x | Execute Discrete,Or
0882 682c |h, | Jump_Zero 0x8af
0883 4801 |H | Short_Literal 0x1
0884 4801 |H | Short_Literal 0x1
0885 4800 |H | Short_Literal 0x0
0886 4801 |H | Short_Literal 0x1
0887 e5fe | | Load 0x2,-0x2
0888 e009 | | Load 0x0,0x9
0889 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
088a e002 | | Load 0x0,0x2
088b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
088c 4800 |H | Short_Literal 0x0
088d 0092 0e97 | | Action Push_String_Extended,0xe97 ; "<ALL_WORLDS>"
088f 4801 |H | Short_Literal 0x1
0890 e5ff | | Load 0x2,-0x1
0891 e009 | | Load 0x0,0x9
0892 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0893 e011 | | Load 0x0,0x11
0894 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0895 00da | | Load_Top At_Offset_2
0896 e015 | | Load 0x0,0x15
0897 180d | | Execute Package,Field_Execute,Field_Number 0xd
0898 6816 |h | Jump_Zero 0x8af
0899 00db | | Load_Top At_Offset_3
089a 4801 |H | Short_Literal 0x1
089b 4801 |H | Short_Literal 0x1
089c e00b | | Load 0x0,0xb
089d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
089e 035b | [ | Declare_Type Array,Constrained
089f 0337 | 7 | Declare_Variable Array
08a0 e5ff | | Load 0x2,-0x1
08a1 e009 | | Load 0x0,0x9
08a2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08a3 e00b | | Load 0x0,0xb
08a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08a5 0119 | | Execute Any,Check_In_Formal_Type
08a6 4801 |H | Short_Literal 0x1
08a7 00da | | Load_Top At_Offset_2
08a8 01d6 | | Execute Vector,Field_Write
08a9 6006 |` | Indirect_Literal Discrete,0x8b0,{0x00000000, 0x00008805}
08aa e001 | | Load 0x0,0x1
08ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08ac e001 | | Load 0x0,0x1
08ad 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08ae 0257 | W | Execute Discrete,Raise
08af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08b0 0000 0000 | | .LITERAL {0x00000000, 0x00008805}
08b4 0000 0000 | | .BLANK 0000[0x4]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb 00da | | Load_Top At_Offset_2
08bc e015 | | Load 0x0,0x15
08bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
08be 6845 |hE | Jump_Zero 0x904
08bf 00db | | Load_Top At_Offset_3
08c0 682d |h- | Jump_Zero 0x8ee
08c1 4801 |H | Short_Literal 0x1
08c2 4801 |H | Short_Literal 0x1
08c3 4800 |H | Short_Literal 0x0
08c4 4801 |H | Short_Literal 0x1
08c5 e5fd | | Load 0x2,-0x3
08c6 e009 | | Load 0x0,0x9
08c7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08c8 e002 | | Load 0x0,0x2
08c9 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
08ca 4800 |H | Short_Literal 0x0
08cb 0092 0e97 | | Action Push_String_Extended,0xe97 ; "<ALL_WORLDS>"
08cd 4802 |H | Short_Literal 0x2
08ce e5ff | | Load 0x2,-0x1
08cf e009 | | Load 0x0,0x9
08d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08d1 e011 | | Load 0x0,0x11
08d2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08d3 00da | | Load_Top At_Offset_2
08d4 e015 | | Load 0x0,0x15
08d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
08d6 6816 |h | Jump_Zero 0x8ed
08d7 e5fd | | Load 0x2,-0x3
08d8 4801 |H | Short_Literal 0x1
08d9 4801 |H | Short_Literal 0x1
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 e5ff | | Load 0x2,-0x1
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 67c8 |g | Indirect_Literal Discrete,0x8b0,{0x00000000, 0x00008805}
08e8 e001 | | Load 0x0,0x1
08e9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08ea e001 | | Load 0x0,0x1
08eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08ec 0257 | W | Execute Discrete,Raise
08ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08ee e5fd | | Load 0x2,-0x3
08ef 4801 |H | Short_Literal 0x1
08f0 4801 |H | Short_Literal 0x1
08f1 e00b | | Load 0x0,0xb
08f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08f3 035b | [ | Declare_Type Array,Constrained
08f4 0337 | 7 | Declare_Variable Array
08f5 e5ff | | Load 0x2,-0x1
08f6 e009 | | Load 0x0,0x9
08f7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08f8 e00b | | Load 0x0,0xb
08f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08fa 0119 | | Execute Any,Check_In_Formal_Type
08fb 4801 |H | Short_Literal 0x1
08fc 00da | | Load_Top At_Offset_2
08fd 01d6 | | Execute Vector,Field_Write
08fe 67b1 |g | Indirect_Literal Discrete,0x8b0,{0x00000000, 0x00008805}
08ff e001 | | Load 0x0,0x1
0900 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0901 e001 | | Load 0x0,0x1
0902 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0903 0257 | W | Execute Discrete,Raise
0904 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0905 0000 0000 | | .XXX[0x3]
0907 0000 | |
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b | | .CONST 0x090b ; Address of begin
0909 0004 | | .CONST 0x0004 ; Address of exception handler
090a 0001 | | .CONST 0x0001 ; Number of locals
090b BODY_0908:
090b INIT_0908:
090b 4800 |H | Short_Literal 0x0
090c e5fe | | Load 0x2,-0x2
090d 4821 |H! | Short_Literal 0x21
090e e012 | | Load 0x0,0x12
090f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0910 6802 |h | Jump_Zero 0x913
0911 00db | | Load_Top At_Offset_3
0912 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0913 00da | | Load_Top At_Offset_2
0914 e009 | | Load 0x0,0x9
0915 180e | | Execute Package,Field_Execute,Field_Number 0xe
0916 6809 |h | Jump_Zero 0x920
0917 00da | | Load_Top At_Offset_2
0918 e009 | | Load 0x0,0x9
0919 1817 | | Execute Package,Field_Execute,Field_Number 0x17
091a 0092 0ea3 | | Action Push_String_Extended,0xea3 ; ".Units."
091c 01cc | | Execute Vector,Catenate
091d e5fe | | Load 0x2,-0x2
091e 01cc | | Execute Vector,Catenate
091f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0920 00da | | Load_Top At_Offset_2
0921 e009 | | Load 0x0,0x9
0922 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0923 0092 0ea4 | | Action Push_String_Extended,0xea4 ; "."
0925 01cc | | Execute Vector,Catenate
0926 e5fe | | Load 0x2,-0x2
0927 01cc | | Execute Vector,Catenate
0928 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0929 0000 0000 | | .BLANK 0000[0x7]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933 | 3 | .CONST 0x0933 ; Address of begin
0931 0004 | | .CONST 0x0004 ; Address of exception handler
0932 0001 | | .CONST 0x0001 ; Number of locals
0933 BODY_0930:
0933 INIT_0930:
0933 00da | | Load_Top At_Offset_2
0934 e009 | | Load 0x0,0x9
0935 180e | | Execute Package,Field_Execute,Field_Number 0xe
0936 680b |h | Jump_Zero 0x942
0937 00db | | Load_Top At_Offset_3
0938 4801 |H | Short_Literal 0x1
0939 e5ff | | Load 0x2,-0x1
093a e009 | | Load 0x0,0x9
093b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
093c 0092 0ea5 | | Action Push_String_Extended,0xea5 ; ".units"
093e 01cc | | Execute Vector,Catenate
093f e009 | | Load 0x0,0x9
0940 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0941 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0942 00da | | Load_Top At_Offset_2
0943 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0944 0000 0000 | | .BLANK 0000[0x4]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 0951 | Q | .CONST 0x0951 ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 0002 | | .CONST 0x0002 ; Number of locals
094b INIT_0948:
094b e404 | | Load 0x2,0x4
094c e406 | | Load 0x2,0x6
094d e412 | | Load 0x2,0x12
094e e40a | | Load 0x2,0xa
094f e405 | | Load 0x2,0x5
0950 8212 | | Call 0x1,0x12
0951 BODY_0948:
0951 e404 | | Load 0x2,0x4
0952 4801 |H | Short_Literal 0x1
0953 4802 |H | Short_Literal 0x2
0954 e00b | | Load 0x0,0xb
0955 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0956 035b | [ | Declare_Type Array,Constrained
0957 0337 | 7 | Declare_Variable Array
0958 00da | | Load_Top At_Offset_2
0959 e00b | | Load 0x0,0xb
095a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
095b e00b | | Load 0x0,0xb
095c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
095d 0119 | | Execute Any,Check_In_Formal_Type
095e 4801 |H | Short_Literal 0x1
095f 00da | | Load_Top At_Offset_2
0960 01d6 | | Execute Vector,Field_Write
0961 e40a | | Load 0x2,0xa
0962 e009 | | Load 0x0,0x9
0963 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0964 e00b | | Load 0x0,0xb
0965 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0966 0119 | | Execute Any,Check_In_Formal_Type
0967 4802 |H | Short_Literal 0x2
0968 00da | | Load_Top At_Offset_2
0969 01d6 | | Execute Vector,Field_Write
096a 610d |a | Indirect_Literal Discrete,0xa78,{0x00000000, 0x00008878}
096b e001 | | Load 0x0,0x1
096c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
096d e404 | | Load 0x2,0x4
096e e406 | | Load 0x2,0x6
096f e5fe | | Load 0x2,-0x2
0970 00db | | Load_Top At_Offset_3
0971 e40b | | Load 0x2,0xb
0972 e412 | | Load 0x2,0x12
0973 e405 | | Load 0x2,0x5
0974 e40a | | Load 0x2,0xa
0975 e005 | | Load 0x0,0x5
0976 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0977 a40e | | Store_Unchecked 0x2,0xe
0978 e40e | | Load 0x2,0xe
0979 4605 |F | Jump_Case 0x6
097a 7898 |x | Jump 0xa13 ; case 0x0
097b 7804 |x | Jump 0x980 ; case 0x1
097c 7878 |xx | Jump 0x9f5 ; case 0x2
097d 7859 |xY | Jump 0x9d7 ; case 0x3
097e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
097f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5
0980 e406 | | Load 0x2,0x6
0981 682e |h. | Jump_Zero 0x9b0
0982 e404 | | Load 0x2,0x4
0983 4801 |H | Short_Literal 0x1
0984 4803 |H | Short_Literal 0x3
0985 e00b | | Load 0x0,0xb
0986 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0987 035b | [ | Declare_Type Array,Constrained
0988 0337 | 7 | Declare_Variable Array
0989 0092 0ea6 | | Action Push_String_Extended,0xea6 ; "Non ada unit associated with secondary "
098b e40a | | Load 0x2,0xa
098c e009 | | Load 0x0,0x9
098d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
098e 01cc | | Execute Vector,Catenate
098f 0092 0ea7 | | Action Push_String_Extended,0xea7 ; " of Primary"
0991 01cc | | Execute Vector,Catenate
0992 e00b | | Load 0x0,0xb
0993 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0994 e00b | | Load 0x0,0xb
0995 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0996 0119 | | Execute Any,Check_In_Formal_Type
0997 4801 |H | Short_Literal 0x1
0998 00da | | Load_Top At_Offset_2
0999 01d6 | | Execute Vector,Field_Write
099a e409 | | Load 0x2,0x9
099b e009 | | Load 0x0,0x9
099c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
099d e00b | | Load 0x0,0xb
099e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
099f 0119 | | Execute Any,Check_In_Formal_Type
09a0 4802 |H | Short_Literal 0x2
09a1 00da | | Load_Top At_Offset_2
09a2 01d6 | | Execute Vector,Field_Write
09a3 00da | | Load_Top At_Offset_2
09a4 e00b | | Load 0x0,0xb
09a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09a6 e00b | | Load 0x0,0xb
09a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09a8 0119 | | Execute Any,Check_In_Formal_Type
09a9 4803 |H | Short_Literal 0x3
09aa 00da | | Load_Top At_Offset_2
09ab 01d6 | | Execute Vector,Field_Write
09ac 60c7 |` | Indirect_Literal Discrete,0xa74,{0x00000000, 0x0000884d}
09ad e001 | | Load 0x0,0x1
09ae 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b0 e404 | | Load 0x2,0x4
09b1 4801 |H | Short_Literal 0x1
09b2 4803 |H | Short_Literal 0x3
09b3 e00b | | Load 0x0,0xb
09b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09b5 035b | [ | Declare_Type Array,Constrained
09b6 0337 | 7 | Declare_Variable Array
09b7 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
09b9 e00b | | Load 0x0,0xb
09ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09bb e00b | | Load 0x0,0xb
09bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09bd 0119 | | Execute Any,Check_In_Formal_Type
09be 4801 |H | Short_Literal 0x1
09bf 00da | | Load_Top At_Offset_2
09c0 01d6 | | Execute Vector,Field_Write
09c1 e40a | | Load 0x2,0xa
09c2 e009 | | Load 0x0,0x9
09c3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09c4 e00b | | Load 0x0,0xb
09c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09c6 0119 | | Execute Any,Check_In_Formal_Type
09c7 4802 |H | Short_Literal 0x2
09c8 00da | | Load_Top At_Offset_2
09c9 01d6 | | Execute Vector,Field_Write
09ca 00da | | Load_Top At_Offset_2
09cb e00b | | Load 0x0,0xb
09cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09cd e00b | | Load 0x0,0xb
09ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09cf 0119 | | Execute Any,Check_In_Formal_Type
09d0 4803 |H | Short_Literal 0x3
09d1 00da | | Load_Top At_Offset_2
09d2 01d6 | | Execute Vector,Field_Write
09d3 60a0 |` | Indirect_Literal Discrete,0xa74,{0x00000000, 0x0000884d}
09d4 e001 | | Load 0x0,0x1
09d5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09d7 e404 | | Load 0x2,0x4
09d8 4801 |H | Short_Literal 0x1
09d9 4802 |H | Short_Literal 0x2
09da e00b | | Load 0x0,0xb
09db 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09dc 035b | [ | Declare_Type Array,Constrained
09dd 0337 | 7 | Declare_Variable Array
09de 0092 0ea8 | | Action Push_String_Extended,0xea8 ; "Unexpected unit status is 'Changed_On_Both'"
09e0 e00b | | Load 0x0,0xb
09e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09e2 e00b | | Load 0x0,0xb
09e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09e4 0119 | | Execute Any,Check_In_Formal_Type
09e5 4801 |H | Short_Literal 0x1
09e6 00da | | Load_Top At_Offset_2
09e7 01d6 | | Execute Vector,Field_Write
09e8 e402 | | Load 0x2,0x2
09e9 e00b | | Load 0x0,0xb
09ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09eb e00b | | Load 0x0,0xb
09ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09ed 0119 | | Execute Any,Check_In_Formal_Type
09ee 4802 |H | Short_Literal 0x2
09ef 00da | | Load_Top At_Offset_2
09f0 01d6 | | Execute Vector,Field_Write
09f1 607e |`~ | Indirect_Literal Discrete,0xa70,{0x00000000, 0x00008be9}
09f2 e001 | | Load 0x0,0x1
09f3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09f5 e404 | | Load 0x2,0x4
09f6 4801 |H | Short_Literal 0x1
09f7 4802 |H | Short_Literal 0x2
09f8 e00b | | Load 0x0,0xb
09f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09fa 035b | [ | Declare_Type Array,Constrained
09fb 0337 | 7 | Declare_Variable Array
09fc 0092 0ea9 | | Action Push_String_Extended,0xea9 ; "Unexpected unit status is 'Changed_On_Host'"
09fe e00b | | Load 0x0,0xb
09ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a00 e00b | | Load 0x0,0xb
0a01 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a02 0119 | | Execute Any,Check_In_Formal_Type
0a03 4801 |H | Short_Literal 0x1
0a04 00da | | Load_Top At_Offset_2
0a05 01d6 | | Execute Vector,Field_Write
0a06 e402 | | Load 0x2,0x2
0a07 e00b | | Load 0x0,0xb
0a08 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a09 e00b | | Load 0x0,0xb
0a0a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a0b 0119 | | Execute Any,Check_In_Formal_Type
0a0c 4802 |H | Short_Literal 0x2
0a0d 00da | | Load_Top At_Offset_2
0a0e 01d6 | | Execute Vector,Field_Write
0a0f 6060 |`` | Indirect_Literal Discrete,0xa70,{0x00000000, 0x00008be9}
0a10 e001 | | Load 0x0,0x1
0a11 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a12 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a13 e406 | | Load 0x2,0x6
0a14 682e |h. | Jump_Zero 0xa43
0a15 e404 | | Load 0x2,0x4
0a16 4801 |H | Short_Literal 0x1
0a17 4803 |H | Short_Literal 0x3
0a18 e00b | | Load 0x0,0xb
0a19 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a1a 035b | [ | Declare_Type Array,Constrained
0a1b 0337 | 7 | Declare_Variable Array
0a1c 0092 0eaa | | Action Push_String_Extended,0xeaa ; "Secondary "
0a1e e40a | | Load 0x2,0xa
0a1f e009 | | Load 0x0,0x9
0a20 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0a21 01cc | | Execute Vector,Catenate
0a22 0092 0ea7 | | Action Push_String_Extended,0xea7 ; " of Primary"
0a24 01cc | | Execute Vector,Catenate
0a25 e00b | | Load 0x0,0xb
0a26 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a27 e00b | | Load 0x0,0xb
0a28 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a29 0119 | | Execute Any,Check_In_Formal_Type
0a2a 4801 |H | Short_Literal 0x1
0a2b 00da | | Load_Top At_Offset_2
0a2c 01d6 | | Execute Vector,Field_Write
0a2d e409 | | Load 0x2,0x9
0a2e e009 | | Load 0x0,0x9
0a2f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a30 e00b | | Load 0x0,0xb
0a31 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a32 0119 | | Execute Any,Check_In_Formal_Type
0a33 4802 |H | Short_Literal 0x2
0a34 00da | | Load_Top At_Offset_2
0a35 01d6 | | Execute Vector,Field_Write
0a36 00da | | Load_Top At_Offset_2
0a37 e00b | | Load 0x0,0xb
0a38 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a39 e00b | | Load 0x0,0xb
0a3a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a3b 0119 | | Execute Any,Check_In_Formal_Type
0a3c 4803 |H | Short_Literal 0x3
0a3d 00da | | Load_Top At_Offset_2
0a3e 01d6 | | Execute Vector,Field_Write
0a3f 602c |`, | Indirect_Literal Discrete,0xa6c,{0x00000000, 0x0000884b}
0a40 e001 | | Load 0x0,0x1
0a41 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a42 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a43 e404 | | Load 0x2,0x4
0a44 4801 |H | Short_Literal 0x1
0a45 4803 |H | Short_Literal 0x3
0a46 e00b | | Load 0x0,0xb
0a47 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a48 035b | [ | Declare_Type Array,Constrained
0a49 0337 | 7 | Declare_Variable Array
0a4a 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
0a4c e00b | | Load 0x0,0xb
0a4d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a4e e00b | | Load 0x0,0xb
0a4f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a50 0119 | | Execute Any,Check_In_Formal_Type
0a51 4801 |H | Short_Literal 0x1
0a52 00da | | Load_Top At_Offset_2
0a53 01d6 | | Execute Vector,Field_Write
0a54 e40a | | Load 0x2,0xa
0a55 e009 | | Load 0x0,0x9
0a56 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a57 e00b | | Load 0x0,0xb
0a58 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a59 0119 | | Execute Any,Check_In_Formal_Type
0a5a 4802 |H | Short_Literal 0x2
0a5b 00da | | Load_Top At_Offset_2
0a5c 01d6 | | Execute Vector,Field_Write
0a5d 00da | | Load_Top At_Offset_2
0a5e e00b | | Load 0x0,0xb
0a5f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a60 e00b | | Load 0x0,0xb
0a61 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a62 0119 | | Execute Any,Check_In_Formal_Type
0a63 4803 |H | Short_Literal 0x3
0a64 00da | | Load_Top At_Offset_2
0a65 01d6 | | Execute Vector,Field_Write
0a66 6005 |` | Indirect_Literal Discrete,0xa6c,{0x00000000, 0x0000884b}
0a67 e001 | | Load 0x0,0x1
0a68 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a69 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a6a 0000 0000 | | .XXX[0x2]
0a6c 0000 0000 | | .LITERAL {0x00000000, 0x0000884b}
0a70 0000 0000 | | .LITERAL {0x00000000, 0x00008be9}
0a74 0000 0000 | | .LITERAL {0x00000000, 0x0000884d}
0a78 0000 0000 | | .LITERAL {0x00000000, 0x00008878}
0a7c 0000 0000 | | .BLANK 0000[0x4]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a83 | | .CONST 0x0a83 ; Address of begin
0a81 0004 | | .CONST 0x0004 ; Address of exception handler
0a82 0001 | | .CONST 0x0001 ; Number of locals
0a83 BODY_0a80:
0a83 INIT_0a80:
0a83 00db | | Load_Top At_Offset_3
0a84 00db | | Load_Top At_Offset_3
0a85 e009 | | Load 0x0,0x9
0a86 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a87 6824 |h$ | Jump_Zero 0xaac
0a88 00db | | Load_Top At_Offset_3
0a89 00db | | Load_Top At_Offset_3
0a8a e009 | | Load 0x0,0x9
0a8b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a8c 681f |h | Jump_Zero 0xaac
0a8d 00db | | Load_Top At_Offset_3
0a8e 4801 |H | Short_Literal 0x1
0a8f 4802 |H | Short_Literal 0x2
0a90 e00b | | Load 0x0,0xb
0a91 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a92 035b | [ | Declare_Type Array,Constrained
0a93 0337 | 7 | Declare_Variable Array
0a94 e7ff | | Load 0x3,-0x1
0a95 e009 | | Load 0x0,0x9
0a96 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a97 e00b | | Load 0x0,0xb
0a98 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a99 0119 | | Execute Any,Check_In_Formal_Type
0a9a 4801 |H | Short_Literal 0x1
0a9b 00da | | Load_Top At_Offset_2
0a9c 01d6 | | Execute Vector,Field_Write
0a9d e402 | | Load 0x2,0x2
0a9e e00b | | Load 0x0,0xb
0a9f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0aa0 e00b | | Load 0x0,0xb
0aa1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aa2 0119 | | Execute Any,Check_In_Formal_Type
0aa3 4802 |H | Short_Literal 0x2
0aa4 00da | | Load_Top At_Offset_2
0aa5 01d6 | | Execute Vector,Field_Write
0aa6 6009 |` | Indirect_Literal Discrete,0xab0,{0x00000000, 0x000088a0}
0aa7 e001 | | Load 0x0,0x1
0aa8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0aa9 e001 | | Load 0x0,0x1
0aaa 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0aab 0257 | W | Execute Discrete,Raise
0aac 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0aad 0000 0000 | | .XXX[0x3]
0aaf 0000 | |
0ab0 0000 0000 | | .LITERAL {0x00000000, 0x000088a0}
0ab4 0000 0000 | | .BLANK 0000[0x4]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0abb | | .CONST 0x0abb ; Address of begin
0ab9 0004 | | .CONST 0x0004 ; Address of exception handler
0aba 0001 | | .CONST 0x0001 ; Number of locals
0abb BODY_0ab8:
0abb INIT_0ab8:
0abb 00db | | Load_Top At_Offset_3
0abc 00db | | Load_Top At_Offset_3
0abd e009 | | Load 0x0,0x9
0abe 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0abf 680b |h | Jump_Zero 0xacb
0ac0 0092 0eab | | Action Push_String_Extended,0xeab ; "<PROFILE>"
0ac2 0092 0eac | | Action Push_String_Extended,0xeac ; "<DEFAULT>"
0ac4 0092 0ead | | Action Push_String_Extended,0xead ; "Accepted remote changes"
0ac6 e7ff | | Load 0x3,-0x1
0ac7 e009 | | Load 0x0,0x9
0ac8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ac9 e016 | | Load 0x0,0x16
0aca 180e | | Execute Package,Field_Execute,Field_Number 0xe
0acb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0acc 0000 0000 | | .BLANK 0000[0x4]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin
0ad1 0004 | | .CONST 0x0004 ; Address of exception handler
0ad2 0001 | | .CONST 0x0001 ; Number of locals
0ad3 BODY_0ad0:
0ad3 INIT_0ad0:
0ad3 00db | | Load_Top At_Offset_3
0ad4 00db | | Load_Top At_Offset_3
0ad5 e009 | | Load 0x0,0x9
0ad6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0ad7 6810 |h | Jump_Zero 0xae8
0ad8 e5fa | | Load 0x2,-0x6
0ad9 0092 0eac | | Action Push_String_Extended,0xeac ; "<DEFAULT>"
0adb 0092 0eae | | Action Push_String_Extended,0xeae ; "<TOMORROW>"
0add 4801 |H | Short_Literal 0x1
0ade 4800 |H | Short_Literal 0x0
0adf e5fe | | Load 0x2,-0x2
0ae0 4801 |H | Short_Literal 0x1
0ae1 0092 0eaf | | Action Push_String_Extended,0xeaf ; "Accepting remote changes"
0ae3 e7ff | | Load 0x3,-0x1
0ae4 e009 | | Load 0x0,0x9
0ae5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ae6 e016 | | Load 0x0,0x16
0ae7 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ae8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ae9 0000 0000 | | .BLANK 0000[0x7]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0af3 | | .CONST 0x0af3 ; Address of begin
0af1 0004 | | .CONST 0x0004 ; Address of exception handler
0af2 0001 | | .CONST 0x0001 ; Number of locals
0af3 BODY_0af0:
0af3 INIT_0af0:
0af3 e409 | | Load 0x2,0x9
0af4 6803 |h | Jump_Zero 0xaf8
0af5 e40b | | Load 0x2,0xb
0af6 c40c | | Store 0x2,0xc
0af7 7802 |x | Jump 0xafa
0af8 e40d | | Load 0x2,0xd
0af9 c40c | | Store 0x2,0xc
0afa e404 | | Load 0x2,0x4
0afb e5fe | | Load 0x2,-0x2
0afc e40c | | Load 0x2,0xc
0afd 8214 | | Call 0x1,0x14
0afe e409 | | Load 0x2,0x9
0aff 68f9 |h | Jump_Zero 0xbf9
0b00 e001 | | Load 0x0,0x1
0b01 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b02 e40e | | Load 0x2,0xe
0b03 0120 | | Execute Any,Is_Value
0b04 6803 |h | Jump_Zero 0xb08
0b05 e003 | | Load 0x0,0x3
0b06 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b07 7801 |x | Jump 0xb09
0b08 e40e | | Load 0x2,0xe
0b09 e404 | | Load 0x2,0x4
0b0a e40d | | Load 0x2,0xd
0b0b e010 | | Load 0x0,0x10
0b0c 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0b0d c40e | | Store 0x2,0xe
0b0e c403 | | Store 0x2,0x3
0b0f 4800 |H | Short_Literal 0x0
0b10 e403 | | Load 0x2,0x3
0b11 e001 | | Load 0x0,0x1
0b12 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b13 7003 |p | Jump_Nonzero 0xb17
0b14 e001 | | Load 0x0,0x1
0b15 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b16 0257 | W | Execute Discrete,Raise
0b17 e404 | | Load 0x2,0x4
0b18 e40e | | Load 0x2,0xe
0b19 8417 | | Call 0x2,0x17
0b1a e404 | | Load 0x2,0x4
0b1b e40e | | Load 0x2,0xe
0b1c 8419 | | Call 0x2,0x19
0b1d e001 | | Load 0x0,0x1
0b1e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b1f e404 | | Load 0x2,0x4
0b20 e40e | | Load 0x2,0xe
0b21 e010 | | Load 0x0,0x10
0b22 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
0b23 c403 | | Store 0x2,0x3
0b24 4800 |H | Short_Literal 0x0
0b25 e403 | | Load 0x2,0x3
0b26 e001 | | Load 0x0,0x1
0b27 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b28 7032 |p2 | Jump_Nonzero 0xb5b
0b29 e404 | | Load 0x2,0x4
0b2a 4801 |H | Short_Literal 0x1
0b2b 4804 |H | Short_Literal 0x4
0b2c e00b | | Load 0x0,0xb
0b2d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b2e 035b | [ | Declare_Type Array,Constrained
0b2f 0337 | 7 | Declare_Variable Array
0b30 e7ff | | Load 0x3,-0x1
0b31 e00b | | Load 0x0,0xb
0b32 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b33 e00b | | Load 0x0,0xb
0b34 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b35 0119 | | Execute Any,Check_In_Formal_Type
0b36 4801 |H | Short_Literal 0x1
0b37 00da | | Load_Top At_Offset_2
0b38 01d6 | | Execute Vector,Field_Write
0b39 0092 0eb0 | | Action Push_String_Extended,0xeb0 ; "Secondary text file"
0b3b e00b | | Load 0x0,0xb
0b3c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b3d e00b | | Load 0x0,0xb
0b3e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b3f 0119 | | Execute Any,Check_In_Formal_Type
0b40 4802 |H | Short_Literal 0x2
0b41 00da | | Load_Top At_Offset_2
0b42 01d6 | | Execute Vector,Field_Write
0b43 e40d | | Load 0x2,0xd
0b44 e009 | | Load 0x0,0x9
0b45 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b46 e00b | | Load 0x0,0xb
0b47 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b48 0119 | | Execute Any,Check_In_Formal_Type
0b49 4803 |H | Short_Literal 0x3
0b4a 00da | | Load_Top At_Offset_2
0b4b 01d6 | | Execute Vector,Field_Write
0b4c e415 | | Load 0x2,0x15
0b4d e00b | | Load 0x0,0xb
0b4e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0b4f e00b | | Load 0x0,0xb
0b50 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b51 0119 | | Execute Any,Check_In_Formal_Type
0b52 4804 |H | Short_Literal 0x4
0b53 00da | | Load_Top At_Offset_2
0b54 01d6 | | Execute Vector,Field_Write
0b55 610a |a | Indirect_Literal Discrete,0xc60,{0x00000000, 0x00008816}
0b56 e001 | | Load 0x0,0x1
0b57 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b58 e001 | | Load 0x0,0x1
0b59 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b5a 0257 | W | Execute Discrete,Raise
0b5b e403 | | Load 0x2,0x3
0b5c e404 | | Load 0x2,0x4
0b5d 4801 |H | Short_Literal 0x1
0b5e e40f | | Load 0x2,0xf
0b5f e410 | | Load 0x2,0x10
0b60 e40e | | Load 0x2,0xe
0b61 e009 | | Load 0x0,0x9
0b62 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0b63 e404 | | Load 0x2,0x4
0b64 4801 |H | Short_Literal 0x1
0b65 e40d | | Load 0x2,0xd
0b66 e009 | | Load 0x0,0x9
0b67 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0b68 e408 | | Load 0x2,0x8
0b69 4800 |H | Short_Literal 0x0
0b6a e7ff | | Load 0x3,-0x1
0b6b e40d | | Load 0x2,0xd
0b6c e005 | | Load 0x0,0x5
0b6d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b6e c403 | | Store 0x2,0x3
0b6f 4800 |H | Short_Literal 0x0
0b70 e403 | | Load 0x2,0x3
0b71 e001 | | Load 0x0,0x1
0b72 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b73 7036 |p6 | Jump_Nonzero 0xbaa
0b74 e404 | | Load 0x2,0x4
0b75 4801 |H | Short_Literal 0x1
0b76 4803 |H | Short_Literal 0x3
0b77 e00b | | Load 0x0,0xb
0b78 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b79 035b | [ | Declare_Type Array,Constrained
0b7a 0337 | 7 | Declare_Variable Array
0b7b e7ff | | Load 0x3,-0x1
0b7c e00b | | Load 0x0,0xb
0b7d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b7e e00b | | Load 0x0,0xb
0b7f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b80 0119 | | Execute Any,Check_In_Formal_Type
0b81 4801 |H | Short_Literal 0x1
0b82 00da | | Load_Top At_Offset_2
0b83 01d6 | | Execute Vector,Field_Write
0b84 0092 0eb0 | | Action Push_String_Extended,0xeb0 ; "Secondary text file"
0b86 e00b | | Load 0x0,0xb
0b87 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b88 e00b | | Load 0x0,0xb
0b89 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b8a 0119 | | Execute Any,Check_In_Formal_Type
0b8b 4802 |H | Short_Literal 0x2
0b8c 00da | | Load_Top At_Offset_2
0b8d 01d6 | | Execute Vector,Field_Write
0b8e e40d | | Load 0x2,0xd
0b8f e009 | | Load 0x0,0x9
0b90 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b91 e00b | | Load 0x0,0xb
0b92 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b93 0119 | | Execute Any,Check_In_Formal_Type
0b94 4803 |H | Short_Literal 0x3
0b95 00da | | Load_Top At_Offset_2
0b96 01d6 | | Execute Vector,Field_Write
0b97 60c8 |` | Indirect_Literal Discrete,0xc60,{0x00000000, 0x00008816}
0b98 e001 | | Load 0x0,0x1
0b99 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b9a 0092 0eab | | Action Push_String_Extended,0xeab ; "<PROFILE>"
0b9c 0092 0eac | | Action Push_String_Extended,0xeac ; "<DEFAULT>"
0b9e 00ea | | Load_Encached Null_String_Cache
0b9f 4801 |H | Short_Literal 0x1
0ba0 4800 |H | Short_Literal 0x0
0ba1 4801 |H | Short_Literal 0x1
0ba2 e40e | | Load 0x2,0xe
0ba3 e009 | | Load 0x0,0x9
0ba4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ba5 e016 | | Load 0x0,0x16
0ba6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ba7 e001 | | Load 0x0,0x1
0ba8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0ba9 0257 | W | Execute Discrete,Raise
0baa e404 | | Load 0x2,0x4
0bab e40e | | Load 0x2,0xe
0bac 8418 | | Call 0x2,0x18
0bad e001 | | Load 0x0,0x1
0bae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0baf e404 | | Load 0x2,0x4
0bb0 e40e | | Load 0x2,0xe
0bb1 e010 | | Load 0x0,0x10
0bb2 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0bb3 c403 | | Store 0x2,0x3
0bb4 4800 |H | Short_Literal 0x0
0bb5 e403 | | Load 0x2,0x3
0bb6 e001 | | Load 0x0,0x1
0bb7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0bb8 7003 |p | Jump_Nonzero 0xbbc
0bb9 e001 | | Load 0x0,0x1
0bba 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0bbb 0257 | W | Execute Discrete,Raise
0bbc e5fc | | Load 0x2,-0x4
0bbd 683a |h: | Jump_Zero 0xbf8
0bbe e5fb | | Load 0x2,-0x5
0bbf 0f03 | | Execute_Immediate Equal,0x3
0bc0 6837 |h7 | Jump_Zero 0xbf8
0bc1 e001 | | Load 0x0,0x1
0bc2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bc3 e404 | | Load 0x2,0x4
0bc4 e410 | | Load 0x2,0x10
0bc5 e40b | | Load 0x2,0xb
0bc6 e017 | | Load 0x0,0x17
0bc7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0bc8 c403 | | Store 0x2,0x3
0bc9 4800 |H | Short_Literal 0x0
0bca e403 | | Load 0x2,0x3
0bcb e001 | | Load 0x0,0x1
0bcc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0bcd 702a |p* | Jump_Nonzero 0xbf8
0bce e404 | | Load 0x2,0x4
0bcf 4801 |H | Short_Literal 0x1
0bd0 4801 |H | Short_Literal 0x1
0bd1 e00b | | Load 0x0,0xb
0bd2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bd3 035b | [ | Declare_Type Array,Constrained
0bd4 0337 | 7 | Declare_Variable Array
0bd5 0092 0eb1 | | Action Push_String_Extended,0xeb1 ; "Can't re-promote secondary "
0bd7 e40d | | Load 0x2,0xd
0bd8 e009 | | Load 0x0,0x9
0bd9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0bda 01cc | | Execute Vector,Catenate
0bdb 0092 0eb2 | | Action Push_String_Extended,0xeb2 ; " of primary "
0bdd 01cc | | Execute Vector,Catenate
0bde e40b | | Load 0x2,0xb
0bdf e009 | | Load 0x0,0x9
0be0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0be1 01cc | | Execute Vector,Catenate
0be2 0092 0eb3 | | Action Push_String_Extended,0xeb3 ; " ("
0be4 01cc | | Execute Vector,Catenate
0be5 e403 | | Load 0x2,0x3
0be6 e001 | | Load 0x0,0x1
0be7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0be8 01cc | | Execute Vector,Catenate
0be9 0092 0eb4 | | Action Push_String_Extended,0xeb4 ; ")."
0beb 01cc | | Execute Vector,Catenate
0bec e00b | | Load 0x0,0xb
0bed 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0bee e00b | | Load 0x0,0xb
0bef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bf0 0119 | | Execute Any,Check_In_Formal_Type
0bf1 4801 |H | Short_Literal 0x1
0bf2 00da | | Load_Top At_Offset_2
0bf3 01d6 | | Execute Vector,Field_Write
0bf4 4806 |H | Short_Literal 0x6
0bf5 6066 |`f | Indirect_Literal Discrete,0xc5c,{0x00000000, 0x00008893}
0bf6 e001 | | Load 0x0,0x1
0bf7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0bf8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0bf9 4801 |H | Short_Literal 0x1
0bfa a405 | | Store_Unchecked 0x2,0x5
0bfb e404 | | Load 0x2,0x4
0bfc e40d | | Load 0x2,0xd
0bfd 8417 | | Call 0x2,0x17
0bfe e404 | | Load 0x2,0x4
0bff e40d | | Load 0x2,0xd
0c00 8419 | | Call 0x2,0x19
0c01 e404 | | Load 0x2,0x4
0c02 e40d | | Load 0x2,0xd
0c03 8213 | | Call 0x1,0x13
0c04 e403 | | Load 0x2,0x3
0c05 4801 |H | Short_Literal 0x1
0c06 4801 |H | Short_Literal 0x1
0c07 4800 |H | Short_Literal 0x0
0c08 4801 |H | Short_Literal 0x1
0c09 e404 | | Load 0x2,0x4
0c0a e009 | | Load 0x0,0x9
0c0b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0c0c 4801 |H | Short_Literal 0x1
0c0d e40f | | Load 0x2,0xf
0c0e e410 | | Load 0x2,0x10
0c0f 00ea | | Load_Encached Null_String_Cache
0c10 e404 | | Load 0x2,0x4
0c11 4801 |H | Short_Literal 0x1
0c12 e40d | | Load 0x2,0xd
0c13 e009 | | Load 0x0,0x9
0c14 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0c15 e408 | | Load 0x2,0x8
0c16 4801 |H | Short_Literal 0x1
0c17 e7ff | | Load 0x3,-0x1
0c18 e40d | | Load 0x2,0xd
0c19 e005 | | Load 0x0,0x5
0c1a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
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 7036 |p6 | Jump_Nonzero 0xc57
0c21 e404 | | Load 0x2,0x4
0c22 4801 |H | Short_Literal 0x1
0c23 4803 |H | Short_Literal 0x3
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 0e9f | | Action Push_String_Extended,0xe9f ; "local Ada unit"
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 e40d | | Load 0x2,0xd
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 601b |` | Indirect_Literal Discrete,0xc60,{0x00000000, 0x00008816}
0c45 e001 | | Load 0x0,0x1
0c46 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c47 0092 0eab | | Action Push_String_Extended,0xeab ; "<PROFILE>"
0c49 0092 0eac | | Action Push_String_Extended,0xeac ; "<DEFAULT>"
0c4b 00ea | | Load_Encached Null_String_Cache
0c4c 4801 |H | Short_Literal 0x1
0c4d 4800 |H | Short_Literal 0x0
0c4e 4801 |H | Short_Literal 0x1
0c4f e40d | | Load 0x2,0xd
0c50 e009 | | Load 0x0,0x9
0c51 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c52 e016 | | Load 0x0,0x16
0c53 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c54 e001 | | Load 0x0,0x1
0c55 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0c56 0257 | W | Execute Discrete,Raise
0c57 e404 | | Load 0x2,0x4
0c58 e40d | | Load 0x2,0xd
0c59 8418 | | Call 0x2,0x18
0c5a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c5b 0000 | | .XXX[0x1]
0c5c 0000 0000 | | .LITERAL {0x00000000, 0x00008893}
0c60 0000 0000 | | .LITERAL {0x00000000, 0x00008816}
0c64 0000 0000 | | .BLANK 0000[0x4]
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c71 | q | .CONST 0x0c71 ; Address of begin
0c69 0004 | | .CONST 0x0004 ; Address of exception handler
0c6a 0002 | | .CONST 0x0002 ; Number of locals
0c6b INIT_0c68:
0c6b e404 | | Load 0x2,0x4
0c6c e409 | | Load 0x2,0x9
0c6d e410 | | Load 0x2,0x10
0c6e e40d | | Load 0x2,0xd
0c6f e408 | | Load 0x2,0x8
0c70 8212 | | Call 0x1,0x12
0c71 BODY_0c68:
0c71 e404 | | Load 0x2,0x4
0c72 4801 |H | Short_Literal 0x1
0c73 4802 |H | Short_Literal 0x2
0c74 e00b | | Load 0x0,0xb
0c75 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c76 035b | [ | Declare_Type Array,Constrained
0c77 0337 | 7 | Declare_Variable Array
0c78 00da | | Load_Top At_Offset_2
0c79 e00b | | Load 0x0,0xb
0c7a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c7b e00b | | Load 0x0,0xb
0c7c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c7d 0119 | | Execute Any,Check_In_Formal_Type
0c7e 4801 |H | Short_Literal 0x1
0c7f 00da | | Load_Top At_Offset_2
0c80 01d6 | | Execute Vector,Field_Write
0c81 e40d | | Load 0x2,0xd
0c82 e009 | | Load 0x0,0x9
0c83 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c84 e00b | | Load 0x0,0xb
0c85 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c86 0119 | | Execute Any,Check_In_Formal_Type
0c87 4802 |H | Short_Literal 0x2
0c88 00da | | Load_Top At_Offset_2
0c89 01d6 | | Execute Vector,Field_Write
0c8a 60c5 |` | Indirect_Literal Discrete,0xd50,{0x00000000, 0x00008878}
0c8b e001 | | Load 0x0,0x1
0c8c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c8d e404 | | Load 0x2,0x4
0c8e e409 | | Load 0x2,0x9
0c8f e5fd | | Load 0x2,-0x3
0c90 00db | | Load_Top At_Offset_3
0c91 e40f | | Load 0x2,0xf
0c92 e410 | | Load 0x2,0x10
0c93 e408 | | Load 0x2,0x8
0c94 e40d | | Load 0x2,0xd
0c95 e005 | | Load 0x0,0x5
0c96 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c97 a412 | | Store_Unchecked 0x2,0x12
0c98 e412 | | Load 0x2,0x12
0c99 4605 |F | Jump_Case 0x6
0c9a 780b |x | Jump 0xca6 ; case 0x0
0c9b 7807 |x | Jump 0xca3 ; case 0x1
0c9c 788b |x | Jump 0xd28 ; case 0x2
0c9d 786c |xl | Jump 0xd0a ; case 0x3
0c9e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
0c9f 7800 |x | Jump 0xca0 ; case 0x5
0ca0 4801 |H | Short_Literal 0x1
0ca1 a416 | | Store_Unchecked 0x2,0x16
0ca2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ca3 00d8 | | Load_Top At_Offset_0
0ca4 841a | | Call 0x2,0x1a
0ca5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ca6 e409 | | Load 0x2,0x9
0ca7 6831 |h1 | Jump_Zero 0xcd9
0ca8 e404 | | Load 0x2,0x4
0ca9 4801 |H | Short_Literal 0x1
0caa 4804 |H | Short_Literal 0x4
0cab e00b | | Load 0x0,0xb
0cac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cad 035b | [ | Declare_Type Array,Constrained
0cae 0337 | 7 | Declare_Variable Array
0caf 0092 0eb5 | | Action Push_String_Extended,0xeb5 ; "Secondary unit"
0cb1 e00b | | Load 0x0,0xb
0cb2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cb3 e00b | | Load 0x0,0xb
0cb4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cb5 0119 | | Execute Any,Check_In_Formal_Type
0cb6 4801 |H | Short_Literal 0x1
0cb7 00da | | Load_Top At_Offset_2
0cb8 01d6 | | Execute Vector,Field_Write
0cb9 e40d | | Load 0x2,0xd
0cba e009 | | Load 0x0,0x9
0cbb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0cbc e00b | | Load 0x0,0xb
0cbd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cbe 0119 | | Execute Any,Check_In_Formal_Type
0cbf 4802 |H | Short_Literal 0x2
0cc0 00da | | Load_Top At_Offset_2
0cc1 01d6 | | Execute Vector,Field_Write
0cc2 00da | | Load_Top At_Offset_2
0cc3 e00b | | Load 0x0,0xb
0cc4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cc5 e00b | | Load 0x0,0xb
0cc6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cc7 0119 | | Execute Any,Check_In_Formal_Type
0cc8 4803 |H | Short_Literal 0x3
0cc9 00da | | Load_Top At_Offset_2
0cca 01d6 | | Execute Vector,Field_Write
0ccb 0092 0eb6 | | Action Push_String_Extended,0xeb6 ; ", so it won't be changed"
0ccd e00b | | Load 0x0,0xb
0cce 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ccf e00b | | Load 0x0,0xb
0cd0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cd1 0119 | | Execute Any,Check_In_Formal_Type
0cd2 4804 |H | Short_Literal 0x4
0cd3 00da | | Load_Top At_Offset_2
0cd4 01d6 | | Execute Vector,Field_Write
0cd5 6076 |`v | Indirect_Literal Discrete,0xd4c,{0x00000000, 0x0000884b}
0cd6 e001 | | Load 0x0,0x1
0cd7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cd8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cd9 e404 | | Load 0x2,0x4
0cda 4801 |H | Short_Literal 0x1
0cdb 4804 |H | Short_Literal 0x4
0cdc e00b | | Load 0x0,0xb
0cdd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cde 035b | [ | Declare_Type Array,Constrained
0cdf 0337 | 7 | Declare_Variable Array
0ce0 0092 0e8e | | Action Push_String_Extended,0xe8e ; "Unit"
0ce2 e00b | | Load 0x0,0xb
0ce3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ce4 e00b | | Load 0x0,0xb
0ce5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ce6 0119 | | Execute Any,Check_In_Formal_Type
0ce7 4801 |H | Short_Literal 0x1
0ce8 00da | | Load_Top At_Offset_2
0ce9 01d6 | | Execute Vector,Field_Write
0cea e40d | | Load 0x2,0xd
0ceb e009 | | Load 0x0,0x9
0cec 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0ced e00b | | Load 0x0,0xb
0cee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cef 0119 | | Execute Any,Check_In_Formal_Type
0cf0 4802 |H | Short_Literal 0x2
0cf1 00da | | Load_Top At_Offset_2
0cf2 01d6 | | Execute Vector,Field_Write
0cf3 00da | | Load_Top At_Offset_2
0cf4 e00b | | Load 0x0,0xb
0cf5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cf6 e00b | | Load 0x0,0xb
0cf7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cf8 0119 | | Execute Any,Check_In_Formal_Type
0cf9 4803 |H | Short_Literal 0x3
0cfa 00da | | Load_Top At_Offset_2
0cfb 01d6 | | Execute Vector,Field_Write
0cfc 0092 0eb6 | | Action Push_String_Extended,0xeb6 ; ", so it won't be changed"
0cfe e00b | | Load 0x0,0xb
0cff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d00 e00b | | Load 0x0,0xb
0d01 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d02 0119 | | Execute Any,Check_In_Formal_Type
0d03 4804 |H | Short_Literal 0x4
0d04 00da | | Load_Top At_Offset_2
0d05 01d6 | | Execute Vector,Field_Write
0d06 6045 |`E | Indirect_Literal Discrete,0xd4c,{0x00000000, 0x0000884b}
0d07 e001 | | Load 0x0,0x1
0d08 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d09 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d0a e404 | | Load 0x2,0x4
0d0b 4801 |H | Short_Literal 0x1
0d0c 4802 |H | Short_Literal 0x2
0d0d e00b | | Load 0x0,0xb
0d0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d0f 035b | [ | Declare_Type Array,Constrained
0d10 0337 | 7 | Declare_Variable Array
0d11 0092 0eb7 | | Action Push_String_Extended,0xeb7 ; "Unexpected unit status of 'Changed_On_Both'"
0d13 e00b | | Load 0x0,0xb
0d14 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d15 e00b | | Load 0x0,0xb
0d16 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d17 0119 | | Execute Any,Check_In_Formal_Type
0d18 4801 |H | Short_Literal 0x1
0d19 00da | | Load_Top At_Offset_2
0d1a 01d6 | | Execute Vector,Field_Write
0d1b e402 | | Load 0x2,0x2
0d1c e00b | | Load 0x0,0xb
0d1d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d1e e00b | | Load 0x0,0xb
0d1f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d20 0119 | | Execute Any,Check_In_Formal_Type
0d21 4802 |H | Short_Literal 0x2
0d22 00da | | Load_Top At_Offset_2
0d23 01d6 | | Execute Vector,Field_Write
0d24 6023 |`# | Indirect_Literal Discrete,0xd48,{0x00000000, 0x00008be9}
0d25 e001 | | Load 0x0,0x1
0d26 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d27 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d28 e404 | | Load 0x2,0x4
0d29 4801 |H | Short_Literal 0x1
0d2a 4802 |H | Short_Literal 0x2
0d2b e00b | | Load 0x0,0xb
0d2c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d2d 035b | [ | Declare_Type Array,Constrained
0d2e 0337 | 7 | Declare_Variable Array
0d2f 0092 0eb8 | | Action Push_String_Extended,0xeb8 ; "Unexpected unit status of 'Changed_On_Host'"
0d31 e00b | | Load 0x0,0xb
0d32 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d33 e00b | | Load 0x0,0xb
0d34 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d35 0119 | | Execute Any,Check_In_Formal_Type
0d36 4801 |H | Short_Literal 0x1
0d37 00da | | Load_Top At_Offset_2
0d38 01d6 | | Execute Vector,Field_Write
0d39 e402 | | Load 0x2,0x2
0d3a e00b | | Load 0x0,0xb
0d3b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d3c e00b | | Load 0x0,0xb
0d3d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d3e 0119 | | Execute Any,Check_In_Formal_Type
0d3f 4802 |H | Short_Literal 0x2
0d40 00da | | Load_Top At_Offset_2
0d41 01d6 | | Execute Vector,Field_Write
0d42 6005 |` | Indirect_Literal Discrete,0xd48,{0x00000000, 0x00008be9}
0d43 e001 | | Load 0x0,0x1
0d44 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d45 4801 |H | Short_Literal 0x1
0d46 a416 | | Store_Unchecked 0x2,0x16
0d47 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d48 0000 0000 | | .LITERAL {0x00000000, 0x00008be9}
0d4c 0000 0000 | | .LITERAL {0x00000000, 0x0000884b}
0d50 0000 0000 | | .LITERAL {0x00000000, 0x00008878}
0d54 0000 0000 | | .BLANK 0000[0x4]
0d58 ; --------------------------------------------------------------------------------------
0d58 ; SUBPROGRAM
0d58 ; --------------------------------------------------------------------------------------
0d58 0d70 | p | .CONST 0x0d70 ; Address of begin
0d59 0004 | | .CONST 0x0004 ; Address of exception handler
0d5a 0007 | | .CONST 0x0007 ; Number of locals
0d5b INIT_0d58:
0d5b e003 | | Load 0x0,0x3
0d5c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d5d 02c7 | | Declare_Variable Any
0d5e 00d8 | | Load_Top At_Offset_0
0d5f 1c00 | | Execute_Immediate Run_Utility,0x0
0d60 00e1 | | Load_Encached Boolean_Cache
0d61 00e2 | | Load_Encached Integer_Cache
0d62 e001 | | Load 0x0,0x1
0d63 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d64 e5fc | | Load 0x2,-0x4
0d65 e408 | | Load 0x2,0x8
0d66 8215 | | Call 0x1,0x15
0d67 e003 | | Load 0x0,0x3
0d68 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d69 02c7 | | Declare_Variable Any
0d6a e404 | | Load 0x2,0x4
0d6b 4800 |H | Short_Literal 0x0
0d6c 00db | | Load_Top At_Offset_3
0d6d e009 | | Load 0x0,0x9
0d6e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0d6f a607 | | Store_Unchecked 0x3,0x7
0d70 BODY_0d58:
0d70 e001 | | Load 0x0,0x1
0d71 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d72 00e2 | | Load_Encached Integer_Cache
0d73 00e1 | | Load_Encached Boolean_Cache
0d74 e602 | | Load 0x3,0x2
0d75 0120 | | Execute Any,Is_Value
0d76 6803 |h | Jump_Zero 0xd7a
0d77 e003 | | Load 0x0,0x3
0d78 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d79 7801 |x | Jump 0xd7b
0d7a e602 | | Load 0x3,0x2
0d7b e404 | | Load 0x2,0x4
0d7c e607 | | Load 0x3,0x7
0d7d e010 | | Load 0x0,0x10
0d7e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0d7f c602 | | Store 0x3,0x2
0d80 c603 | | Store 0x3,0x3
0d81 c604 | | Store 0x3,0x4
0d82 005b | [ | Store_Top Discrete,At_Offset_3
0d83 4800 |H | Short_Literal 0x0
0d84 00db | | Load_Top At_Offset_3
0d85 e001 | | Load 0x0,0x1
0d86 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d87 7003 |p | Jump_Nonzero 0xd8b
0d88 e001 | | Load 0x0,0x1
0d89 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0d8a 0257 | W | Execute Discrete,Raise
0d8b e603 | | Load 0x3,0x3
0d8c 6821 |h! | Jump_Zero 0xdae
0d8d e404 | | Load 0x2,0x4
0d8e 4801 |H | Short_Literal 0x1
0d8f 4801 |H | Short_Literal 0x1
0d90 e00b | | Load 0x0,0xb
0d91 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d92 035b | [ | Declare_Type Array,Constrained
0d93 0337 | 7 | Declare_Variable Array
0d94 0092 0eb9 | | Action Push_String_Extended,0xeb9 ; "Can't upload from remote unit \x22"
0d96 e5ff | | Load 0x2,-0x1
0d97 01cc | | Execute Vector,Catenate
0d98 0092 0eba | | Action Push_String_Extended,0xeba ; "\x22 into secondary file \x22"
0d9a 01cc | | Execute Vector,Catenate
0d9b e5fc | | Load 0x2,-0x4
0d9c 01cc | | Execute Vector,Catenate
0d9d 0092 0ebb | | Action Push_String_Extended,0xebb ; "\x22."
0d9f 01cc | | Execute Vector,Catenate
0da0 e00b | | Load 0x0,0xb
0da1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0da2 e00b | | Load 0x0,0xb
0da3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0da4 0119 | | Execute Any,Check_In_Formal_Type
0da5 4801 |H | Short_Literal 0x1
0da6 00da | | Load_Top At_Offset_2
0da7 01d6 | | Execute Vector,Field_Write
0da8 4807 |H | Short_Literal 0x7
0da9 604a |`J | Indirect_Literal Discrete,0xdf4,{0x00000000, 0x00008893}
0daa e001 | | Load 0x0,0x1
0dab 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0dac e00f | | Load 0x0,0xf
0dad 0257 | W | Execute Discrete,Raise
0dae 00d8 | | Load_Top At_Offset_0
0daf e003 | | Load 0x0,0x3
0db0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0db1 7021 |p! | Jump_Nonzero 0xdd3
0db2 e404 | | Load 0x2,0x4
0db3 4801 |H | Short_Literal 0x1
0db4 4801 |H | Short_Literal 0x1
0db5 e00b | | Load 0x0,0xb
0db6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0db7 035b | [ | Declare_Type Array,Constrained
0db8 0337 | 7 | Declare_Variable Array
0db9 0092 0eb9 | | Action Push_String_Extended,0xeb9 ; "Can't upload from remote unit \x22"
0dbb e5ff | | Load 0x2,-0x1
0dbc 01cc | | Execute Vector,Catenate
0dbd 0092 0ebc | | Action Push_String_Extended,0xebc ; "\x22 into existing text file \x22"
0dbf 01cc | | Execute Vector,Catenate
0dc0 e5fc | | Load 0x2,-0x4
0dc1 01cc | | Execute Vector,Catenate
0dc2 0092 0ebb | | Action Push_String_Extended,0xebb ; "\x22."
0dc4 01cc | | Execute Vector,Catenate
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 4801 |H | Short_Literal 0x1
0dcb 00da | | Load_Top At_Offset_2
0dcc 01d6 | | Execute Vector,Field_Write
0dcd 4807 |H | Short_Literal 0x7
0dce 6025 |`% | Indirect_Literal Discrete,0xdf4,{0x00000000, 0x00008893}
0dcf e001 | | Load 0x0,0x1
0dd0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0dd1 e00f | | Load 0x0,0xf
0dd2 0257 | W | Execute Discrete,Raise
0dd3 e404 | | Load 0x2,0x4
0dd4 4801 |H | Short_Literal 0x1
0dd5 4802 |H | Short_Literal 0x2
0dd6 e00b | | Load 0x0,0xb
0dd7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0dd8 035b | [ | Declare_Type Array,Constrained
0dd9 0337 | 7 | Declare_Variable Array
0dda e5ff | | Load 0x2,-0x1
0ddb e00b | | Load 0x0,0xb
0ddc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ddd e00b | | Load 0x0,0xb
0dde 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ddf 0119 | | Execute Any,Check_In_Formal_Type
0de0 4801 |H | Short_Literal 0x1
0de1 00da | | Load_Top At_Offset_2
0de2 01d6 | | Execute Vector,Field_Write
0de3 e5fc | | Load 0x2,-0x4
0de4 e00b | | Load 0x0,0xb
0de5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0de6 e00b | | Load 0x0,0xb
0de7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0de8 0119 | | Execute Any,Check_In_Formal_Type
0de9 4802 |H | Short_Literal 0x2
0dea 00da | | Load_Top At_Offset_2
0deb 01d6 | | Execute Vector,Field_Write
0dec 6003 |` | Indirect_Literal Discrete,0xdf0,{0x00000000, 0x0000887e}
0ded e001 | | Load 0x0,0x1
0dee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0def 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0df0 0000 0000 | | .LITERAL {0x00000000, 0x0000887e}
0df4 0000 0000 | | .LITERAL {0x00000000, 0x00008893}
0df8 ; --------------------------------------------------------------------------------------
0df8 ; SUBPROGRAM
0df8 ; --------------------------------------------------------------------------------------
0df8 0dfd | | .CONST 0x0dfd ; Address of begin
0df9 0004 | | .CONST 0x0004 ; Address of exception handler
0dfa 0002 | | .CONST 0x0002 ; Number of locals
0dfb INIT_0df8:
0dfb 00e2 | | Load_Encached Integer_Cache
0dfc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0dfd BODY_0df8:
0dfd 4800 |H | Short_Literal 0x0
0dfe e7ff | | Load 0x3,-0x1
0dff 0092 0ebd | | Action Push_String_Extended,0xebd ; " "
0e01 e012 | | Load 0x0,0x12
0e02 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e03 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e04 00d8 | | Load_Top At_Offset_0
0e05 7002 |p | Jump_Nonzero 0xe08
0e06 00db | | Load_Top At_Offset_3
0e07 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e08 00db | | Load_Top At_Offset_3
0e09 01dd | | Execute Vector,First
0e0a 00d9 | | Load_Top At_Offset_1
0e0b 0aff | | Execute_Immediate Plus,-0x1
0e0c 00d8 | | Load_Top At_Offset_0
0e0d 00e2 | | Load_Encached Integer_Cache
0e0e 0260 | ` | Execute Discrete,In_Type
0e0f 7001 |p | Jump_Nonzero 0xe11
0e10 0801 | | Execute_Immediate Raise,0x1
0e11 e7ff | | Load 0x3,-0x1
0e12 01cf | | Execute Vector,Slice_Read
0e13 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e14 0000 0000 | | .BLANK 0000[0x4]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e1d | | .CONST 0x0e1d ; Address of begin
0e19 0004 | | .CONST 0x0004 ; Address of exception handler
0e1a 0002 | | .CONST 0x0002 ; Number of locals
0e1b INIT_0e18:
0e1b 00e2 | | Load_Encached Integer_Cache
0e1c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0e1d BODY_0e18:
0e1d 4800 |H | Short_Literal 0x0
0e1e e7ff | | Load 0x3,-0x1
0e1f 0092 0ebd | | Action Push_String_Extended,0xebd ; " "
0e21 e012 | | Load 0x0,0x12
0e22 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0e23 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0e24 00d8 | | Load_Top At_Offset_0
0e25 7002 |p | Jump_Nonzero 0xe28
0e26 00ea | | Load_Encached Null_String_Cache
0e27 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e28 00d8 | | Load_Top At_Offset_0
0e29 0a01 | | Execute_Immediate Plus,0x1
0e2a 00d8 | | Load_Top At_Offset_0
0e2b 00e2 | | Load_Encached Integer_Cache
0e2c 0260 | ` | Execute Discrete,In_Type
0e2d 7001 |p | Jump_Nonzero 0xe2f
0e2e 0801 | | Execute_Immediate Raise,0x1
0e2f e7ff | | Load 0x3,-0x1
0e30 01dc | | Execute Vector,Last
0e31 e7ff | | Load 0x3,-0x1
0e32 01cf | | Execute Vector,Slice_Read
0e33 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e34 0000 0000 | | .BLANK 0000[0x4]
0e38 ; --------------------------------------------------------------------------------------
0e38 ; SUBPROGRAM
0e38 ; --------------------------------------------------------------------------------------
0e38 0e48 | H | .CONST 0x0e48 ; Address of begin
0e39 0004 | | .CONST 0x0004 ; Address of exception handler
0e3a 0004 | | .CONST 0x0004 ; Number of locals
0e3b INIT_0e38:
0e3b 4820 |H | Short_Literal 0x20
0e3c 4820 |H | Short_Literal 0x20
0e3d e406 | | Load 0x2,0x6
0e3e e013 | | Load 0x0,0x13
0e3f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0e40 e012 | | Load 0x0,0x12
0e41 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0e42 e012 | | Load 0x0,0x12
0e43 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0e44 00d8 | | Load_Top At_Offset_0
0e45 8409 | | Call 0x2,0x9
0e46 00d9 | | Load_Top At_Offset_1
0e47 8408 | | Call 0x2,0x8
0e48 BODY_0e38:
0e48 00d8 | | Load_Top At_Offset_0
0e49 01db | | Execute Vector,Length
0e4a 7002 |p | Jump_Nonzero 0xe4d
0e4b e014 | | Load 0x0,0x14
0e4c 0257 | W | Execute Discrete,Raise
0e4d 00d9 | | Load_Top At_Offset_1
0e4e 01db | | Execute Vector,Length
0e4f 7003 |p | Jump_Nonzero 0xe53
0e50 4800 |H | Short_Literal 0x0
0e51 a407 | | Store_Unchecked 0x2,0x7
0e52 7802 |x | Jump 0xe55
0e53 4801 |H | Short_Literal 0x1
0e54 a407 | | Store_Unchecked 0x2,0x7
0e55 e5fd | | Load 0x2,-0x3
0e56 00da | | Load_Top At_Offset_2
0e57 e407 | | Load 0x2,0x7
0e58 e5fe | | Load 0x2,-0x2
0e59 e604 | | Load 0x3,0x4
0e5a 820f | | Call 0x1,0xf
0e5b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e5c 0000 0000 | | .BLANK 0000[0x4]
0e60 ; --------------------------------------------------------------------------------------
0e60 ; SUBPROGRAM
0e60 ; --------------------------------------------------------------------------------------
0e60 0e69 | i | .CONST 0x0e69 ; Address of begin
0e61 0004 | | .CONST 0x0004 ; Address of exception handler
0e62 0002 | | .CONST 0x0002 ; Number of locals
0e63 INIT_0e60:
0e63 e5fb | | Load 0x2,-0x5
0e64 e5fd | | Load 0x2,-0x3
0e65 e5fe | | Load 0x2,-0x2
0e66 e5ff | | Load 0x2,-0x1
0e67 e010 | | Load 0x0,0x10
0e68 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0e69 BODY_0e60:
0e69 4800 |H | Short_Literal 0x0
0e6a 00d9 | | Load_Top At_Offset_1
0e6b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0e6c e001 | | Load 0x0,0x1
0e6d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0e6e 7003 |p | Jump_Nonzero 0xe72
0e6f e001 | | Load 0x0,0x1
0e70 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0e71 0257 | W | Execute Discrete,Raise
0e72 00d8 | | Load_Top At_Offset_0
0e73 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e74 00cb | | Action Pop_Block_With_Result
0e75 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0e76 0000 0000 | | .XXX[0x2]
0e78 ; --------------------------------------------------------------------------------------
0e78 ; SUBPROGRAM
0e78 ; --------------------------------------------------------------------------------------
0e78 0e7f | | .CONST 0x0e7f ; Address of begin
0e79 0004 | | .CONST 0x0004 ; Address of exception handler
0e7a 0002 | | .CONST 0x0002 ; Number of locals
0e7b INIT_0e78:
0e7b e5fb | | Load 0x2,-0x5
0e7c e5fe | | Load 0x2,-0x2
0e7d e010 | | Load 0x0,0x10
0e7e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
0e7f BODY_0e78:
0e7f 4800 |H | Short_Literal 0x0
0e80 00d9 | | Load_Top At_Offset_1
0e81 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0e82 e001 | | Load 0x0,0x1
0e83 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0e84 7003 |p | Jump_Nonzero 0xe88
0e85 e001 | | Load 0x0,0x1
0e86 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0e87 0257 | W | Execute Discrete,Raise
0e88 00d8 | | Load_Top At_Offset_0
0e89 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e8a 00cb | | Action Pop_Block_With_Result
0e8b 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0e8c ; --------------------------------------------------------------------------------------
0e8c ; STRING TABLE
0e8c ; --------------------------------------------------------------------------------------
0e8c 0066 | f | .STRTAB 0x0066->0x0ebf ; "Check_Consistency"
0e8d 0075 | u | .STRTAB 0x0075->0x0ec7 ; "Rcf."
0e8e 0077 | w | .STRTAB 0x0077->0x0ec9 ; "Unit"
0e8f 0079 | y | .STRTAB 0x0079->0x0ecb ; " compare_objects => "
0e90 008b | | .STRTAB 0x008b->0x0ed5 ; ", Response"
0e91 0093 | | .STRTAB 0x0093->0x0eda ; "Accept_Remote_Changes"
0e92 00a6 | | .STRTAB 0x00a6->0x0ee5 ; "Allow_Demotion => "
0e93 00b6 | | .STRTAB 0x00b6->0x0eee ; ", Compare_Objects => "
0e94 00c9 | | .STRTAB 0x00c9->0x0ef8 ; ", Remake_Demoted_Units => "
0e95 00e1 | | .STRTAB 0x00e1->0x0f05 ; ", Goal => "
0e96 00e9 | | .STRTAB 0x00e9->0x0f0a ; "text unit "
0e97 00f1 | | .STRTAB 0x00f1->0x0f0f ; "<ALL_WORLDS>"
0e98 00fb | | .STRTAB 0x00fb->0x0f15 ; "Upload_Unit"
0e99 0104 | | .STRTAB 0x0104->0x0f1b ; "Remote_Unit_Name"
0e9a 0112 | | .STRTAB 0x0112->0x0f23 ; "Into_View"
0e9b 0119 | | .STRTAB 0x0119->0x0f27 ; "Upload_To_Text_File => "
0e9c 012e | . | .STRTAB 0x012e->0x0f33 ; ", Host_Text_File_Name"
0e9d 0141 | A | .STRTAB 0x0141->0x0f3d ; "Response"
0e9e 0147 | G | .STRTAB 0x0147->0x0f41 ; "text file"
0e9f 014e | N | .STRTAB 0x014e->0x0f46 ; "local Ada unit"
0ea0 015a | Z | .STRTAB 0x015a->0x0f4d ; "upload_specification_file"
0ea1 0171 | q | .STRTAB 0x0171->0x0f59 ; "Set_Remote_Unit_Name"
0ea2 0183 | | .STRTAB 0x0183->0x0f63 ; "Remote_Name"
0ea3 018c | | .STRTAB 0x018c->0x0f69 ; ".Units."
0ea4 0191 | | .STRTAB 0x0191->0x0f6c ; "."
0ea5 0190 | | .STRTAB 0x0190->0x0f6d ; ".units"
0ea6 0194 | | .STRTAB 0x0194->0x0f70 ; "Non ada unit associated with secondary "
0ea7 01b9 | | .STRTAB 0x01b9->0x0f83 ; " of Primary"
0ea8 01c2 | | .STRTAB 0x01c2->0x0f89 ; "Unexpected unit status is 'Changed_On_Both'"
0ea9 01eb | | .STRTAB 0x01eb->0x0f9e ; "Unexpected unit status is 'Changed_On_Host'"
0eaa 0214 | | .STRTAB 0x0214->0x0fb4 ; "Secondary "
0eab 021c | | .STRTAB 0x021c->0x0fb9 ; "<PROFILE>"
0eac 0223 | # | .STRTAB 0x0223->0x0fbd ; "<DEFAULT>"
0ead 022a | * | .STRTAB 0x022a->0x0fc2 ; "Accepted remote changes"
0eae 023f | ? | .STRTAB 0x023f->0x0fcd ; "<TOMORROW>"
0eaf 0247 | G | .STRTAB 0x0247->0x0fd2 ; "Accepting remote changes"
0eb0 025d | ] | .STRTAB 0x025d->0x0fde ; "Secondary text file"
0eb1 026e | n | .STRTAB 0x026e->0x0fe8 ; "Can't re-promote secondary "
0eb2 0287 | | .STRTAB 0x0287->0x0ff5 ; " of primary "
0eb3 0291 | | .STRTAB 0x0291->0x0ffb ; " ("
0eb4 0291 | | .STRTAB 0x0291->0x0ffc ; ")."
0eb5 0291 | | .STRTAB 0x0291->0x0ffd ; "Secondary unit"
0eb6 029d | | .STRTAB 0x029d->0x1004 ; ", so it won't be changed"
0eb7 02b3 | | .STRTAB 0x02b3->0x1010 ; "Unexpected unit status of 'Changed_On_Both'"
0eb8 02dc | | .STRTAB 0x02dc->0x1026 ; "Unexpected unit status of 'Changed_On_Host'"
0eb9 0305 | | .STRTAB 0x0305->0x103b ; "Can't upload from remote unit \x22"
0eba 0322 | " | .STRTAB 0x0322->0x104b ; "\x22 into secondary file \x22"
0ebb 0337 | 7 | .STRTAB 0x0337->0x1056 ; "\x22."
0ebc 0337 | 7 | .STRTAB 0x0337->0x1057 ; "\x22 into existing text file \x22"
0ebd 0350 | P | .STRTAB 0x0350->0x1065 ; " "
0ebe 034f | O | .STREND 0x034f->0x1065
0ebf 4368 6563 |Chec| .STRTAB_STRINGS
1066 0000 0000 | | .XXX[0x2]
1068 ; --------------------------------------------------------------------------------------
1068 ; Debug Table
1068 ; --------------------------------------------------------------------------------------
1068 0004 000d | | .DEBUG4 0x0004,0x000d,0xf6ad,0x0000,0x0001,0x0000
106e 0000 0000 | | .BLANK 0000[0x2e]
109c 0004 0000 | | .XXX[0xa]
109e 204b d134 | K 4|
10a0 0000 2036 | 6|
10a2 d2d4 0000 | |
10a4 2036 7b10 | 6{ |
10a6 0000 0000 | | .BLANK 0000[0x15a]