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