|
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: 8192 (0x2000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0fc8 | | .CONST 0x0fc8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002a | * | .CONST 0x002a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
000f 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0011 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated
0013 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call
0018 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call
001a 029d 088b | | Declare_Subprogram INIT_0888,For_Outer_Call
001c 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call
001e 029d 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call
0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0021 00c7 | | Action Elaborate_Subprogram
0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0023 00c7 | | Action Elaborate_Subprogram
0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0025 00c7 | | Action Elaborate_Subprogram
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0027 00c7 | | Action Elaborate_Subprogram
0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0029 00c7 | | Action Elaborate_Subprogram
002a BODY_0008:
002a 00bc | | Action Signal_Activated
002b 00bb | | Action Signal_Completion
002c 0000 0000 | | .BLANK 0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 007a | z | .CONST 0x007a ; Address of begin
0031 01b4 | | .CONST 0x01b4 ; Address of exception handler
0032 0013 | | .CONST 0x0013 ; Number of locals
0033 INIT_0030:
0033 0092 0e11 | | Action Push_String_Extended,0xe11 ; "Check_Consistency"
0035 e001 | | Load 0x0,0x1
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0038 e002 | | Load 0x0,0x2
0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003a 02c7 | | Declare_Variable Any
003b e5fd | | Load 0x2,-0x3
003c e002 | | Load 0x0,0x2
003d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
003e a404 | | Store_Unchecked 0x2,0x4
003f e003 | | Load 0x0,0x3
0040 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0041 02c7 | | Declare_Variable Any
0042 00d8 | | Load_Top At_Offset_0
0043 1c00 | | Execute_Immediate Run_Utility,0x0
0044 00e1 | | Load_Encached Boolean_Cache
0045 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0046 00e1 | | Load_Encached Boolean_Cache
0047 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0048 00e1 | | Load_Encached Boolean_Cache
0049 e003 | | Load 0x0,0x3
004a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004b 02c7 | | Declare_Variable Any
004c 00d8 | | Load_Top At_Offset_0
004d 1c00 | | Execute_Immediate Run_Utility,0x0
004e e003 | | Load 0x0,0x3
004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0050 02c7 | | Declare_Variable Any
0051 00d8 | | Load_Top At_Offset_0
0052 1c00 | | Execute_Immediate Run_Utility,0x0
0053 e004 | | Load 0x0,0x4
0054 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0055 02c7 | | Declare_Variable Any
0056 00d8 | | Load_Top At_Offset_0
0057 1c00 | | Execute_Immediate Run_Utility,0x0
0058 00e2 | | Load_Encached Integer_Cache
0059 e003 | | Load 0x0,0x3
005a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
005c 02c7 | | Declare_Variable Any
005d 00d8 | | Load_Top At_Offset_0
005e 1c00 | | Execute_Immediate Run_Utility,0x0
005f e005 | | Load 0x0,0x5
0060 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0061 e003 | | Load 0x0,0x3
0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0063 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0064 02c7 | | Declare_Variable Any
0065 e006 | | Load 0x0,0x6
0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0067 e003 | | Load 0x0,0x3
0068 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0069 1816 | | Execute Package,Field_Execute,Field_Number 0x16
006a a40f | | Store_Unchecked 0x2,0xf
006b e003 | | Load 0x0,0x3
006c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
006d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006e 02c7 | | Declare_Variable Any
006f 00d8 | | Load_Top At_Offset_0
0070 1c00 | | Execute_Immediate Run_Utility,0x0
0071 e003 | | Load 0x0,0x3
0072 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0073 e003 | | Load 0x0,0x3
0074 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0075 0322 | " | Declare_Variable Record
0076 00d8 | | Load_Top At_Offset_0
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 029f 091b | | Declare_Subprogram INIT_0918,For_Call
007a BODY_0030:
007a e404 | | Load 0x2,0x4
007b 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
007d 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
007f e5ff | | Load 0x2,-0x1
0080 e007 | | Load 0x0,0x7
0081 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0082 01cc | | Execute Vector,Catenate
0083 0092 0e14 | | Action Push_String_Extended,0xe14 ; " compare_objects => "
0085 01cc | | Execute Vector,Catenate
0086 e5fe | | Load 0x2,-0x2
0087 00e1 | | Load_Encached Boolean_Cache
0088 011c | | Execute Any,Convert_Unchecked
0089 1c01 | | Execute_Immediate Run_Utility,0x1
008a 01cc | | Execute Vector,Catenate
008b 0092 0e15 | | Action Push_String_Extended,0xe15 ; ", Response"
008d 01cc | | Execute Vector,Catenate
008e e5fd | | Load 0x2,-0x3
008f e007 | | Load 0x0,0x7
0090 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0091 01cc | | Execute Vector,Catenate
0092 e402 | | Load 0x2,0x2
0093 e007 | | Load 0x0,0x7
0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0095 e404 | | Load 0x2,0x4
0096 e008 | | Load 0x0,0x8
0097 180f | | Execute Package,Field_Execute,Field_Number 0xf
0098 e404 | | Load 0x2,0x4
0099 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
009b e5ff | | Load 0x2,-0x1
009c e008 | | Load 0x0,0x8
009d 180e | | Execute Package,Field_Execute,Field_Number 0xe
009e e404 | | Load 0x2,0x4
009f 4801 |H | Short_Literal 0x1
00a0 e5ff | | Load 0x2,-0x1
00a1 e009 | | Load 0x0,0x9
00a2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00a3 c40d | | Store 0x2,0xd
00a4 e404 | | Load 0x2,0x4
00a5 4801 |H | Short_Literal 0x1
00a6 e404 | | Load 0x2,0x4
00a7 4801 |H | Short_Literal 0x1
00a8 e40d | | Load 0x2,0xd
00a9 e009 | | Load 0x0,0x9
00aa 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00ab e009 | | Load 0x0,0x9
00ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ad c405 | | Store 0x2,0x5
00ae e404 | | Load 0x2,0x4
00af e405 | | Load 0x2,0x5
00b0 e009 | | Load 0x0,0x9
00b1 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00b2 a408 | | Store_Unchecked 0x2,0x8
00b3 e404 | | Load 0x2,0x4
00b4 e405 | | Load 0x2,0x5
00b5 e008 | | Load 0x0,0x8
00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b7 e003 | | Load 0x0,0x3
00b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b9 e410 | | Load 0x2,0x10
00ba 0120 | | Execute Any,Is_Value
00bb 6804 |h | Jump_Zero 0xc0
00bc e003 | | Load 0x0,0x3
00bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00bf 7801 |x | Jump 0xc1
00c0 e410 | | Load 0x2,0x10
00c1 615a |aZ | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00004000}
00c2 e00a | | Load 0x0,0xa
00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c4 4800 |H | Short_Literal 0x0
00c5 e405 | | Load 0x2,0x5
00c6 e003 | | Load 0x0,0x3
00c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c9 c410 | | Store 0x2,0x10
00ca 005b | [ | Store_Top Discrete,At_Offset_3
00cb 00da | | Load_Top At_Offset_2
00cc 6823 |h# | Jump_Zero 0xf0
00cd e404 | | Load 0x2,0x4
00ce 4801 |H | Short_Literal 0x1
00cf 4802 |H | Short_Literal 0x2
00d0 e00b | | Load 0x0,0xb
00d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d2 0334 | 4 | Declare_Variable Array,With_Constraint
00d3 e405 | | Load 0x2,0x5
00d4 e00b | | Load 0x0,0xb
00d5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d6 e00b | | Load 0x0,0xb
00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d8 0119 | | Execute Any,Check_In_Formal_Type
00d9 4801 |H | Short_Literal 0x1
00da 00da | | Load_Top At_Offset_2
00db 01d6 | | Execute Vector,Field_Write
00dc e411 | | Load 0x2,0x11
00dd e00b | | Load 0x0,0xb
00de 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00df e00b | | Load 0x0,0xb
00e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e1 0119 | | Execute Any,Check_In_Formal_Type
00e2 4802 |H | Short_Literal 0x2
00e3 00da | | Load_Top At_Offset_2
00e4 01d6 | | Execute Vector,Field_Write
00e5 6132 |a2 | Indirect_Literal Discrete,0x218,{0x00000000, 0x00008866}
00e6 e001 | | Load 0x0,0x1
00e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00e8 e00b | | Load 0x0,0xb
00e9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00ea 6129 |a) | Indirect_Literal Discrete,0x214,{0x00000000, 0x00008865}
00eb e001 | | Load 0x0,0x1
00ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ed a403 | | Store_Unchecked 0x2,0x3
00ee e00c | | Load 0x0,0xc
00ef 0257 | W | Execute Discrete,Raise
00f0 e003 | | Load 0x0,0x3
00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f2 e006 | | Load 0x0,0x6
00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f4 e410 | | Load 0x2,0x10
00f5 e003 | | Load 0x0,0x3
00f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f8 005b | [ | Store_Top Discrete,At_Offset_3
00f9 00da | | Load_Top At_Offset_2
00fa 6823 |h# | Jump_Zero 0x11e
00fb e404 | | Load 0x2,0x4
00fc 4801 |H | Short_Literal 0x1
00fd 4802 |H | Short_Literal 0x2
00fe e00b | | Load 0x0,0xb
00ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0100 0334 | 4 | Declare_Variable Array,With_Constraint
0101 e405 | | Load 0x2,0x5
0102 e00b | | Load 0x0,0xb
0103 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0104 e00b | | Load 0x0,0xb
0105 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0106 0119 | | Execute Any,Check_In_Formal_Type
0107 4801 |H | Short_Literal 0x1
0108 00da | | Load_Top At_Offset_2
0109 01d6 | | Execute Vector,Field_Write
010a e411 | | Load 0x2,0x11
010b e00b | | Load 0x0,0xb
010c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
010d e00b | | Load 0x0,0xb
010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010f 0119 | | Execute Any,Check_In_Formal_Type
0110 4802 |H | Short_Literal 0x2
0111 00da | | Load_Top At_Offset_2
0112 01d6 | | Execute Vector,Field_Write
0113 60fc |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x00008867}
0114 e001 | | Load 0x0,0x1
0115 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0116 e00b | | Load 0x0,0xb
0117 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0118 60fb |` | Indirect_Literal Discrete,0x214,{0x00000000, 0x00008865}
0119 e001 | | Load 0x0,0x1
011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011b a403 | | Store_Unchecked 0x2,0x3
011c e00c | | Load 0x0,0xc
011d 0257 | W | Execute Discrete,Raise
011e e408 | | Load 0x2,0x8
011f 7025 |p% | Jump_Nonzero 0x145
0120 e403 | | Load 0x2,0x3
0121 e40b | | Load 0x2,0xb
0122 e404 | | Load 0x2,0x4
0123 e002 | | Load 0x0,0x2
0124 180e | | Execute Package,Field_Execute,Field_Number 0xe
0125 e002 | | Load 0x0,0x2
0126 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0127 e002 | | Load 0x0,0x2
0128 180e | | Execute Package,Field_Execute,Field_Number 0xe
0129 e002 | | Load 0x0,0x2
012a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
012b 484d |HM | Short_Literal 0x4d
012c e002 | | Load 0x0,0x2
012d 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
012e e002 | | Load 0x0,0x2
012f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0130 4800 |H | Short_Literal 0x0
0131 e002 | | Load 0x0,0x2
0132 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0133 e405 | | Load 0x2,0x5
0134 e009 | | Load 0x0,0x9
0135 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0136 e404 | | Load 0x2,0x4
0137 e405 | | Load 0x2,0x5
0138 800d | | Call 0x0,0xd
0139 e404 | | Load 0x2,0x4
013a e405 | | Load 0x2,0x5
013b e009 | | Load 0x0,0x9
013c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
013d e00e | | Load 0x0,0xe
013e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013f c40b | | Store 0x2,0xb
0140 c403 | | Store 0x2,0x3
0141 e403 | | Load 0x2,0x3
0142 6802 |h | Jump_Zero 0x145
0143 e00f | | Load 0x0,0xf
0144 0257 | W | Execute Discrete,Raise
0145 e404 | | Load 0x2,0x4
0146 e405 | | Load 0x2,0x5
0147 e009 | | Load 0x0,0x9
0148 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0149 00da | | Load_Top At_Offset_2
014a 017d | } | Execute Record,Structure_Write
014b 00cf | | Action Mark_Auxiliary
014c 7843 |xC | Jump 0x190
014d 4800 |H | Short_Literal 0x0
014e a407 | | Store_Unchecked 0x2,0x7
014f e404 | | Load 0x2,0x4
0150 4801 |H | Short_Literal 0x1
0151 e40d | | Load 0x2,0xd
0152 e009 | | Load 0x0,0x9
0153 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0154 c40a | | Store 0x2,0xa
0155 e40a | | Load 0x2,0xa
0156 e009 | | Load 0x0,0x9
0157 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0158 702e |p. | Jump_Nonzero 0x187
0159 e001 | | Load 0x0,0x1
015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015b 00e2 | | Load_Encached Integer_Cache
015c 00e1 | | Load_Encached Boolean_Cache
015d e409 | | Load 0x2,0x9
015e 0120 | | Execute Any,Is_Value
015f 6803 |h | Jump_Zero 0x163
0160 e003 | | Load 0x0,0x3
0161 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0162 7801 |x | Jump 0x164
0163 e409 | | Load 0x2,0x9
0164 e404 | | Load 0x2,0x4
0165 e40a | | Load 0x2,0xa
0166 e010 | | Load 0x0,0x10
0167 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0168 c409 | | Store 0x2,0x9
0169 c406 | | Store 0x2,0x6
016a c40c | | Store 0x2,0xc
016b c403 | | Store 0x2,0x3
016c e403 | | Load 0x2,0x3
016d 0f00 | | Execute_Immediate Equal,0x0
016e 0f00 | | Execute_Immediate Equal,0x0
016f e406 | | Load 0x2,0x6
0170 0f00 | | Execute_Immediate Equal,0x0
0171 0278 | x | Execute Discrete,Or
0172 6814 |h | Jump_Zero 0x187
0173 e404 | | Load 0x2,0x4
0174 4801 |H | Short_Literal 0x1
0175 4801 |H | Short_Literal 0x1
0176 e00b | | Load 0x0,0xb
0177 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0178 0334 | 4 | Declare_Variable Array,With_Constraint
0179 e40a | | Load 0x2,0xa
017a e009 | | Load 0x0,0x9
017b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
017c e00b | | Load 0x0,0xb
017d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017e 0119 | | Execute Any,Check_In_Formal_Type
017f 4801 |H | Short_Literal 0x1
0180 00da | | Load_Top At_Offset_2
0181 01d6 | | Execute Vector,Field_Write
0182 6089 |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x0000889d}
0183 e001 | | Load 0x0,0x1
0184 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0185 4801 |H | Short_Literal 0x1
0186 a407 | | Store_Unchecked 0x2,0x7
0187 e407 | | Load 0x2,0x7
0188 7001 |p | Jump_Nonzero 0x18a
0189 8413 | | Call 0x2,0x13
018a e40d | | Load 0x2,0xd
018b e003 | | Load 0x0,0x3
018c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018e c40d | | Store 0x2,0xd
018f 00c9 | | Action Pop_Auxiliary_Loop
0190 e40d | | Load 0x2,0xd
0191 e003 | | Load 0x0,0x3
0192 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0193 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0194 6fb8 |o | Jump_Zero 0x14d
0195 00ce | | Action Pop_Auxiliary
0196 e408 | | Load 0x2,0x8
0197 700b |p | Jump_Nonzero 0x1a3
0198 e403 | | Load 0x2,0x3
0199 e40b | | Load 0x2,0xb
019a e404 | | Load 0x2,0x4
019b 00d8 | | Load_Top At_Offset_0
019c e405 | | Load 0x2,0x5
019d e009 | | Load 0x0,0x9
019e 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
019f e00e | | Load 0x0,0xe
01a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a1 c40b | | Store 0x2,0xb
01a2 c403 | | Store 0x2,0x3
01a3 e003 | | Load 0x0,0x3
01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a5 e006 | | Load 0x0,0x6
01a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a7 e40f | | Load 0x2,0xf
01a8 e003 | | Load 0x0,0x3
01a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ab 005b | [ | Store_Top Discrete,At_Offset_3
01ac e404 | | Load 0x2,0x4
01ad 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
01af e402 | | Load 0x2,0x2
01b0 e403 | | Load 0x2,0x3
01b1 e007 | | Load 0x0,0x7
01b2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b4 TRAP_0030:
01b4 e00c | | Load 0x0,0xc
01b5 010f | | Execute Exception,Equal
01b6 6801 |h | Jump_Zero 0x1b8
01b7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b8 e00f | | Load 0x0,0xf
01b9 010f | | Execute Exception,Equal
01ba 6811 |h | Jump_Zero 0x1cc
01bb e003 | | Load 0x0,0x3
01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bd e006 | | Load 0x0,0x6
01be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01bf e40f | | Load 0x2,0xf
01c0 e003 | | Load 0x0,0x3
01c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c3 c411 | | Store 0x2,0x11
01c4 e404 | | Load 0x2,0x4
01c5 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
01c7 e402 | | Load 0x2,0x2
01c8 e403 | | Load 0x2,0x3
01c9 e007 | | Load 0x0,0x7
01ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01cc e001 | | Load 0x0,0x1
01cd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01ce 010f | | Execute Exception,Equal
01cf 6814 |h | Jump_Zero 0x1e4
01d0 e001 | | Load 0x0,0x1
01d1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d2 a403 | | Store_Unchecked 0x2,0x3
01d3 e003 | | Load 0x0,0x3
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 e006 | | Load 0x0,0x6
01d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d7 e40f | | Load 0x2,0xf
01d8 e003 | | Load 0x0,0x3
01d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01da 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01db c411 | | Store 0x2,0x11
01dc e404 | | Load 0x2,0x4
01dd 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
01df e402 | | Load 0x2,0x2
01e0 e403 | | Load 0x2,0x3
01e1 e007 | | Load 0x0,0x7
01e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e4 4884 |H | Short_Literal 0x84
01e5 010f | | Execute Exception,Equal
01e6 6811 |h | Jump_Zero 0x1f8
01e7 e003 | | Load 0x0,0x3
01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e9 e006 | | Load 0x0,0x6
01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01eb e40f | | Load 0x2,0xf
01ec e003 | | Load 0x0,0x3
01ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ef c411 | | Store 0x2,0x11
01f0 e404 | | Load 0x2,0x4
01f1 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
01f3 e402 | | Load 0x2,0x2
01f4 e403 | | Load 0x2,0x3
01f5 e007 | | Load 0x0,0x7
01f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f8 e003 | | Load 0x0,0x3
01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fa e006 | | Load 0x0,0x6
01fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01fc e40f | | Load 0x2,0xf
01fd e003 | | Load 0x0,0x3
01fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0200 c411 | | Store 0x2,0x11
0201 e404 | | Load 0x2,0x4
0202 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0204 e402 | | Load 0x2,0x2
0205 e403 | | Load 0x2,0x3
0206 e007 | | Load 0x0,0x7
0207 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0209 0000 0000 | | .XXX[0x3]
020b 0000 | |
020c 0000 0000 | | .LITERAL {0x00000000, 0x0000889d}
0210 0000 0000 | | .LITERAL {0x00000000, 0x00008867}
0214 0000 0000 | | .LITERAL {0x00000000, 0x00008865}
0218 0000 0000 | | .LITERAL {0x00000000, 0x00008866}
021c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 027a | z | .CONST 0x027a ; Address of begin
0221 03f0 | | .CONST 0x03f0 ; Address of exception handler
0222 0018 | | .CONST 0x0018 ; Number of locals
0223 INIT_0220:
0223 0092 0e16 | | Action Push_String_Extended,0xe16 ; "Accept_Remote_Changes"
0225 e001 | | Load 0x0,0x1
0226 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0227 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0228 e002 | | Load 0x0,0x2
0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022a 02c7 | | Declare_Variable Any
022b e5fa | | Load 0x2,-0x6
022c e002 | | Load 0x0,0x2
022d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
022e a404 | | Store_Unchecked 0x2,0x4
022f 00e1 | | Load_Encached Boolean_Cache
0230 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0231 00e1 | | Load_Encached Boolean_Cache
0232 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0233 00e1 | | Load_Encached Boolean_Cache
0234 e003 | | Load 0x0,0x3
0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0236 02c7 | | Declare_Variable Any
0237 00d8 | | Load_Top At_Offset_0
0238 1c00 | | Execute_Immediate Run_Utility,0x0
0239 00e1 | | Load_Encached Boolean_Cache
023a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
023b 00e2 | | Load_Encached Integer_Cache
023c e003 | | Load 0x0,0x3
023d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023e 02c7 | | Declare_Variable Any
023f 00d8 | | Load_Top At_Offset_0
0240 1c00 | | Execute_Immediate Run_Utility,0x0
0241 e003 | | Load 0x0,0x3
0242 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0243 02c7 | | Declare_Variable Any
0244 00d8 | | Load_Top At_Offset_0
0245 1c00 | | Execute_Immediate Run_Utility,0x0
0246 e003 | | Load 0x0,0x3
0247 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0248 02c7 | | Declare_Variable Any
0249 00d8 | | Load_Top At_Offset_0
024a 1c00 | | Execute_Immediate Run_Utility,0x0
024b e003 | | Load 0x0,0x3
024c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024d 02c7 | | Declare_Variable Any
024e 00d8 | | Load_Top At_Offset_0
024f 1c00 | | Execute_Immediate Run_Utility,0x0
0250 e004 | | Load 0x0,0x4
0251 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0252 02c7 | | Declare_Variable Any
0253 00d8 | | Load_Top At_Offset_0
0254 1c00 | | Execute_Immediate Run_Utility,0x0
0255 e003 | | Load 0x0,0x3
0256 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0257 0322 | " | Declare_Variable Record
0258 00d8 | | Load_Top At_Offset_0
0259 1c00 | | Execute_Immediate Run_Utility,0x0
025a e003 | | Load 0x0,0x3
025b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 e005 | | Load 0x0,0x5
0261 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0262 e003 | | Load 0x0,0x3
0263 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0264 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0265 02c7 | | Declare_Variable Any
0266 e006 | | Load 0x0,0x6
0267 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0268 e003 | | Load 0x0,0x3
0269 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
026b a413 | | Store_Unchecked 0x2,0x13
026c e003 | | Load 0x0,0x3
026d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
026f 02c7 | | Declare_Variable Any
0270 00d8 | | Load_Top At_Offset_0
0271 1c00 | | Execute_Immediate Run_Utility,0x0
0272 e003 | | Load 0x0,0x3
0273 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0274 00e1 | | Load_Encached Boolean_Cache
0275 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0276 029f 0a4b | K| Declare_Subprogram INIT_0a48,For_Call
0278 029f 0bfb | | Declare_Subprogram INIT_0bf8,For_Call
027a BODY_0220:
027a e404 | | Load 0x2,0x4
027b 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
027d 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
027f e5ff | | Load 0x2,-0x1
0280 e007 | | Load 0x0,0x7
0281 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0282 01cc | | Execute Vector,Catenate
0283 0092 0e17 | | Action Push_String_Extended,0xe17 ; "Allow_Demotion => "
0285 01cc | | Execute Vector,Catenate
0286 e5fe | | Load 0x2,-0x2
0287 00e1 | | Load_Encached Boolean_Cache
0288 011c | | Execute Any,Convert_Unchecked
0289 1c01 | | Execute_Immediate Run_Utility,0x1
028a 01cc | | Execute Vector,Catenate
028b 0092 0e18 | | Action Push_String_Extended,0xe18 ; ", Compare_Objects => "
028d 01cc | | Execute Vector,Catenate
028e e5fd | | Load 0x2,-0x3
028f 00e1 | | Load_Encached Boolean_Cache
0290 011c | | Execute Any,Convert_Unchecked
0291 1c01 | | Execute_Immediate Run_Utility,0x1
0292 01cc | | Execute Vector,Catenate
0293 0092 0e19 | | Action Push_String_Extended,0xe19 ; ", Remake_Demoted_Units => "
0295 01cc | | Execute Vector,Catenate
0296 e5fc | | Load 0x2,-0x4
0297 00e1 | | Load_Encached Boolean_Cache
0298 011c | | Execute Any,Convert_Unchecked
0299 1c01 | | Execute_Immediate Run_Utility,0x1
029a 01cc | | Execute Vector,Catenate
029b 0092 0e1a | | Action Push_String_Extended,0xe1a ; ", Goal => "
029d 01cc | | Execute Vector,Catenate
029e e5fb | | Load 0x2,-0x5
029f e011 | | Load 0x0,0x11
02a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a1 011c | | Execute Any,Convert_Unchecked
02a2 1c01 | | Execute_Immediate Run_Utility,0x1
02a3 01cc | | Execute Vector,Catenate
02a4 0092 0e15 | | Action Push_String_Extended,0xe15 ; ", Response"
02a6 01cc | | Execute Vector,Catenate
02a7 e5fa | | Load 0x2,-0x6
02a8 e007 | | Load 0x0,0x7
02a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02aa 01cc | | Execute Vector,Catenate
02ab e402 | | Load 0x2,0x2
02ac e007 | | Load 0x0,0x7
02ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ae e404 | | Load 0x2,0x4
02af e008 | | Load 0x0,0x8
02b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
02b1 e404 | | Load 0x2,0x4
02b2 4801 |H | Short_Literal 0x1
02b3 e5ff | | Load 0x2,-0x1
02b4 e009 | | Load 0x0,0x9
02b5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02b6 c411 | | Store 0x2,0x11
02b7 e404 | | Load 0x2,0x4
02b8 4801 |H | Short_Literal 0x1
02b9 e404 | | Load 0x2,0x4
02ba 4801 |H | Short_Literal 0x1
02bb e411 | | Load 0x2,0x11
02bc e009 | | Load 0x0,0x9
02bd 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02be e009 | | Load 0x0,0x9
02bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02c0 c408 | | Store 0x2,0x8
02c1 e404 | | Load 0x2,0x4
02c2 e408 | | Load 0x2,0x8
02c3 e009 | | Load 0x0,0x9
02c4 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02c5 a407 | | Store_Unchecked 0x2,0x7
02c6 e404 | | Load 0x2,0x4
02c7 e408 | | Load 0x2,0x8
02c8 e008 | | Load 0x0,0x8
02c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ca e404 | | Load 0x2,0x4
02cb e408 | | Load 0x2,0x8
02cc e009 | | Load 0x0,0x9
02cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02ce e410 | | Load 0x2,0x10
02cf 017d | } | Execute Record,Structure_Write
02d0 e003 | | Load 0x0,0x3
02d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d2 e414 | | Load 0x2,0x14
02d3 0120 | | Execute Any,Is_Value
02d4 6804 |h | Jump_Zero 0x2d9
02d5 e003 | | Load 0x0,0x3
02d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02d8 7801 |x | Jump 0x2da
02d9 e414 | | Load 0x2,0x14
02da 6741 |gA | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00004000}
02db e00a | | Load 0x0,0xa
02dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02dd 4800 |H | Short_Literal 0x0
02de e408 | | Load 0x2,0x8
02df e003 | | Load 0x0,0x3
02e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e2 c414 | | Store 0x2,0x14
02e3 c415 | | Store 0x2,0x15
02e4 00db | | Load_Top At_Offset_3
02e5 6823 |h# | Jump_Zero 0x309
02e6 e404 | | Load 0x2,0x4
02e7 4801 |H | Short_Literal 0x1
02e8 4802 |H | Short_Literal 0x2
02e9 e00b | | Load 0x0,0xb
02ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02eb 0334 | 4 | Declare_Variable Array,With_Constraint
02ec e408 | | Load 0x2,0x8
02ed e00b | | Load 0x0,0xb
02ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ef e00b | | Load 0x0,0xb
02f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f1 0119 | | Execute Any,Check_In_Formal_Type
02f2 4801 |H | Short_Literal 0x1
02f3 00da | | Load_Top At_Offset_2
02f4 01d6 | | Execute Vector,Field_Write
02f5 e415 | | Load 0x2,0x15
02f6 e00b | | Load 0x0,0xb
02f7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02f8 e00b | | Load 0x0,0xb
02f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fa 0119 | | Execute Any,Check_In_Formal_Type
02fb 4802 |H | Short_Literal 0x2
02fc 00da | | Load_Top At_Offset_2
02fd 01d6 | | Execute Vector,Field_Write
02fe 6719 |g | Indirect_Literal Discrete,0x218,{0x00000000, 0x00008866}
02ff e001 | | Load 0x0,0x1
0300 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0301 e00b | | Load 0x0,0xb
0302 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0303 614c |aL | Indirect_Literal Discrete,0x450,{0x00000000, 0x00008864}
0304 e001 | | Load 0x0,0x1
0305 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0306 a403 | | Store_Unchecked 0x2,0x3
0307 e00c | | Load 0x0,0xc
0308 0257 | W | Execute Discrete,Raise
0309 e003 | | Load 0x0,0x3
030a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030b e006 | | Load 0x0,0x6
030c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030d e414 | | Load 0x2,0x14
030e e003 | | Load 0x0,0x3
030f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0310 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0311 c415 | | Store 0x2,0x15
0312 00db | | Load_Top At_Offset_3
0313 6823 |h# | Jump_Zero 0x337
0314 e404 | | Load 0x2,0x4
0315 4801 |H | Short_Literal 0x1
0316 4802 |H | Short_Literal 0x2
0317 e00b | | Load 0x0,0xb
0318 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0319 0334 | 4 | Declare_Variable Array,With_Constraint
031a e408 | | Load 0x2,0x8
031b e00b | | Load 0x0,0xb
031c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
031d e00b | | Load 0x0,0xb
031e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031f 0119 | | Execute Any,Check_In_Formal_Type
0320 4801 |H | Short_Literal 0x1
0321 00da | | Load_Top At_Offset_2
0322 01d6 | | Execute Vector,Field_Write
0323 e415 | | Load 0x2,0x15
0324 e00b | | Load 0x0,0xb
0325 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0326 e00b | | Load 0x0,0xb
0327 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0328 0119 | | Execute Any,Check_In_Formal_Type
0329 4802 |H | Short_Literal 0x2
032a 00da | | Load_Top At_Offset_2
032b 01d6 | | Execute Vector,Field_Write
032c 66e3 |f | Indirect_Literal Discrete,0x210,{0x00000000, 0x00008867}
032d e001 | | Load 0x0,0x1
032e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
032f e00b | | Load 0x0,0xb
0330 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0331 611e |a | Indirect_Literal Discrete,0x450,{0x00000000, 0x00008864}
0332 e001 | | Load 0x0,0x1
0333 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0334 a403 | | Store_Unchecked 0x2,0x3
0335 e00c | | Load 0x0,0xc
0336 0257 | W | Execute Discrete,Raise
0337 e407 | | Load 0x2,0x7
0338 7016 |p | Jump_Nonzero 0x34f
0339 e403 | | Load 0x2,0x3
033a e40f | | Load 0x2,0xf
033b e404 | | Load 0x2,0x4
033c 00d8 | | Load_Top At_Offset_0
033d e408 | | Load 0x2,0x8
033e e009 | | Load 0x0,0x9
033f 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0340 e404 | | Load 0x2,0x4
0341 e408 | | Load 0x2,0x8
0342 800d | | Call 0x0,0xd
0343 e404 | | Load 0x2,0x4
0344 e408 | | Load 0x2,0x8
0345 e009 | | Load 0x0,0x9
0346 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0347 e00e | | Load 0x0,0xe
0348 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0349 c40f | | Store 0x2,0xf
034a c403 | | Store 0x2,0x3
034b e403 | | Load 0x2,0x3
034c 6802 |h | Jump_Zero 0x34f
034d e00f | | Load 0x0,0xf
034e 0257 | W | Execute Discrete,Raise
034f 00cf | | Action Mark_Auxiliary
0350 7849 |xI | Jump 0x39a
0351 e404 | | Load 0x2,0x4
0352 4801 |H | Short_Literal 0x1
0353 e411 | | Load 0x2,0x11
0354 e009 | | Load 0x0,0x9
0355 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0356 c40d | | Store 0x2,0xd
0357 4800 |H | Short_Literal 0x0
0358 a406 | | Store_Unchecked 0x2,0x6
0359 e40d | | Load 0x2,0xd
035a e009 | | Load 0x0,0x9
035b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
035c 7034 |p4 | Jump_Nonzero 0x391
035d e001 | | Load 0x0,0x1
035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035f 00e2 | | Load_Encached Integer_Cache
0360 00e1 | | Load_Encached Boolean_Cache
0361 e40b | | Load 0x2,0xb
0362 0120 | | Execute Any,Is_Value
0363 6803 |h | Jump_Zero 0x367
0364 e003 | | Load 0x0,0x3
0365 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0366 7801 |x | Jump 0x368
0367 e40b | | Load 0x2,0xb
0368 e404 | | Load 0x2,0x4
0369 e40d | | Load 0x2,0xd
036a e010 | | Load 0x0,0x10
036b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
036c c40b | | Store 0x2,0xb
036d c409 | | Store 0x2,0x9
036e c40a | | Store 0x2,0xa
036f c403 | | Store 0x2,0x3
0370 e403 | | Load 0x2,0x3
0371 0f00 | | Execute_Immediate Equal,0x0
0372 0f00 | | Execute_Immediate Equal,0x0
0373 e409 | | Load 0x2,0x9
0374 0f00 | | Execute_Immediate Equal,0x0
0375 0278 | x | Execute Discrete,Or
0376 681a |h | Jump_Zero 0x391
0377 e404 | | Load 0x2,0x4
0378 4801 |H | Short_Literal 0x1
0379 4801 |H | Short_Literal 0x1
037a e00b | | Load 0x0,0xb
037b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037c 0334 | 4 | Declare_Variable Array,With_Constraint
037d 0092 0e1b | | Action Push_String_Extended,0xe1b ; "text unit "
037f e40d | | Load 0x2,0xd
0380 e009 | | Load 0x0,0x9
0381 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0382 01cc | | Execute Vector,Catenate
0383 e00b | | Load 0x0,0xb
0384 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0385 e00b | | Load 0x0,0xb
0386 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0387 0119 | | Execute Any,Check_In_Formal_Type
0388 4801 |H | Short_Literal 0x1
0389 00da | | Load_Top At_Offset_2
038a 01d6 | | Execute Vector,Field_Write
038b 4806 |H | Short_Literal 0x6
038c 60bf |` | Indirect_Literal Discrete,0x44c,{0x00000000, 0x00008851}
038d e001 | | Load 0x0,0x1
038e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
038f 4801 |H | Short_Literal 0x1
0390 a406 | | Store_Unchecked 0x2,0x6
0391 e406 | | Load 0x2,0x6
0392 7001 |p | Jump_Nonzero 0x394
0393 8418 | | Call 0x2,0x18
0394 e411 | | Load 0x2,0x11
0395 e003 | | Load 0x0,0x3
0396 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0397 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0398 c411 | | Store 0x2,0x11
0399 00c9 | | Action Pop_Auxiliary_Loop
039a e411 | | Load 0x2,0x11
039b e003 | | Load 0x0,0x3
039c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
039e 6fb2 |o | Jump_Zero 0x351
039f 00ce | | Action Pop_Auxiliary
03a0 e407 | | Load 0x2,0x7
03a1 700f |p | Jump_Nonzero 0x3b1
03a2 e403 | | Load 0x2,0x3
03a3 e40f | | Load 0x2,0xf
03a4 e404 | | Load 0x2,0x4
03a5 00d8 | | Load_Top At_Offset_0
03a6 e408 | | Load 0x2,0x8
03a7 e009 | | Load 0x0,0x9
03a8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
03a9 e00e | | Load 0x0,0xe
03aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ab c40f | | Store 0x2,0xf
03ac c403 | | Store 0x2,0x3
03ad e403 | | Load 0x2,0x3
03ae 6802 |h | Jump_Zero 0x3b1
03af e00f | | Load 0x0,0xf
03b0 0257 | W | Execute Discrete,Raise
03b1 e003 | | Load 0x0,0x3
03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b3 e006 | | Load 0x0,0x6
03b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03b5 e413 | | Load 0x2,0x13
03b6 e003 | | Load 0x0,0x3
03b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03b9 c415 | | Store 0x2,0x15
03ba e405 | | Load 0x2,0x5
03bb 682c |h, | Jump_Zero 0x3e8
03bc e5fc | | Load 0x2,-0x4
03bd 682a |h* | Jump_Zero 0x3e8
03be 00da | | Load_Top At_Offset_2
03bf 6816 |h | Jump_Zero 0x3d6
03c0 e5fb | | Load 0x2,-0x5
03c1 0f03 | | Execute_Immediate Equal,0x3
03c2 6813 |h | Jump_Zero 0x3d6
03c3 e404 | | Load 0x2,0x4
03c4 4801 |H | Short_Literal 0x1
03c5 4801 |H | Short_Literal 0x1
03c6 e00b | | Load 0x0,0xb
03c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c8 0334 | 4 | Declare_Variable Array,With_Constraint
03c9 e5ff | | Load 0x2,-0x1
03ca e00b | | Load 0x0,0xb
03cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03cc e00b | | Load 0x0,0xb
03cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ce 0119 | | Execute Any,Check_In_Formal_Type
03cf 4801 |H | Short_Literal 0x1
03d0 00da | | Load_Top At_Offset_2
03d1 01d6 | | Execute Vector,Field_Write
03d2 6075 |`u | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008877}
03d3 e001 | | Load 0x0,0x1
03d4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03d5 7812 |x | Jump 0x3e8
03d6 e5fb | | Load 0x2,-0x5
03d7 0c02 | | Execute_Immediate Greater_Equal,0x2
03d8 680f |h | Jump_Zero 0x3e8
03d9 4801 |H | Short_Literal 0x1
03da 4801 |H | Short_Literal 0x1
03db 4800 |H | Short_Literal 0x0
03dc 4801 |H | Short_Literal 0x1
03dd e5fa | | Load 0x2,-0x6
03de e009 | | Load 0x0,0x9
03df 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03e0 4800 |H | Short_Literal 0x0
03e1 0092 0e1c | | Action Push_String_Extended,0xe1c ; "<ALL_WORLDS>"
03e3 e5fb | | Load 0x2,-0x5
03e4 4803 |H | Short_Literal 0x3
03e5 e5ff | | Load 0x2,-0x1
03e6 e011 | | Load 0x0,0x11
03e7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03e8 e404 | | Load 0x2,0x4
03e9 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
03eb e402 | | Load 0x2,0x2
03ec e403 | | Load 0x2,0x3
03ed e007 | | Load 0x0,0x7
03ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03ef 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03f0 TRAP_0220:
03f0 e00c | | Load 0x0,0xc
03f1 010f | | Execute Exception,Equal
03f2 6801 |h | Jump_Zero 0x3f4
03f3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03f4 e00f | | Load 0x0,0xf
03f5 010f | | Execute Exception,Equal
03f6 6811 |h | Jump_Zero 0x408
03f7 e003 | | Load 0x0,0x3
03f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f9 e006 | | Load 0x0,0x6
03fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fb e413 | | Load 0x2,0x13
03fc e003 | | Load 0x0,0x3
03fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03ff c415 | | Store 0x2,0x15
0400 e404 | | Load 0x2,0x4
0401 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0403 e402 | | Load 0x2,0x2
0404 e403 | | Load 0x2,0x3
0405 e007 | | Load 0x0,0x7
0406 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0407 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0408 e001 | | Load 0x0,0x1
0409 1b17 | | Execute Package,Field_Read,Field_Number 0x17
040a 010f | | Execute Exception,Equal
040b 6814 |h | Jump_Zero 0x420
040c e001 | | Load 0x0,0x1
040d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
040e a403 | | Store_Unchecked 0x2,0x3
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 e413 | | Load 0x2,0x13
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 c415 | | Store 0x2,0x15
0418 e404 | | Load 0x2,0x4
0419 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
041b e402 | | Load 0x2,0x2
041c e403 | | Load 0x2,0x3
041d e007 | | Load 0x0,0x7
041e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
041f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0420 4884 |H | Short_Literal 0x84
0421 010f | | Execute Exception,Equal
0422 6811 |h | Jump_Zero 0x434
0423 e003 | | Load 0x0,0x3
0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0425 e006 | | Load 0x0,0x6
0426 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0427 e413 | | Load 0x2,0x13
0428 e003 | | Load 0x0,0x3
0429 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
042a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
042b c415 | | Store 0x2,0x15
042c e404 | | Load 0x2,0x4
042d 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
042f e402 | | Load 0x2,0x2
0430 e403 | | Load 0x2,0x3
0431 e007 | | Load 0x0,0x7
0432 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0433 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0434 e003 | | Load 0x0,0x3
0435 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0436 e006 | | Load 0x0,0x6
0437 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0438 e413 | | Load 0x2,0x13
0439 e003 | | Load 0x0,0x3
043a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
043b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
043c c415 | | Store 0x2,0x15
043d e404 | | Load 0x2,0x4
043e 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0440 e402 | | Load 0x2,0x2
0441 e403 | | Load 0x2,0x3
0442 e007 | | Load 0x0,0x7
0443 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0444 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 0000 0000 | | .LITERAL {0x00000000, 0x00008877}
044c 0000 0000 | | .LITERAL {0x00000000, 0x00008851}
0450 0000 0000 | | .LITERAL {0x00000000, 0x00008864}
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 048b | | .CONST 0x048b ; Address of begin
0459 0601 | | .CONST 0x0601 ; Address of exception handler
045a 000c | | .CONST 0x000c ; Number of locals
045b INIT_0458:
045b 0092 0e1d | | Action Push_String_Extended,0xe1d ; "Upload_Unit"
045d e001 | | Load 0x0,0x1
045e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0460 e002 | | Load 0x0,0x2
0461 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0462 02c7 | | Declare_Variable Any
0463 e5fb | | Load 0x2,-0x5
0464 e002 | | Load 0x0,0x2
0465 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0466 a404 | | Store_Unchecked 0x2,0x4
0467 00e1 | | Load_Encached Boolean_Cache
0468 e004 | | Load 0x0,0x4
0469 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
046a 02c7 | | Declare_Variable Any
046b 00d8 | | Load_Top At_Offset_0
046c 1c00 | | Execute_Immediate Run_Utility,0x0
046d e003 | | Load 0x0,0x3
046e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
046f 02c7 | | Declare_Variable Any
0470 00d8 | | Load_Top At_Offset_0
0471 1c00 | | Execute_Immediate Run_Utility,0x0
0472 e003 | | Load 0x0,0x3
0473 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0474 02c7 | | Declare_Variable Any
0475 00d8 | | Load_Top At_Offset_0
0476 1c00 | | Execute_Immediate Run_Utility,0x0
0477 e003 | | Load 0x0,0x3
0478 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0479 1b11 | | Execute Package,Field_Read,Field_Number 0x11
047a 02c7 | | Declare_Variable Any
047b e006 | | Load 0x0,0x6
047c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
047d e003 | | Load 0x0,0x3
047e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0480 a409 | | Store_Unchecked 0x2,0x9
0481 e003 | | Load 0x0,0x3
0482 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0483 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0484 02c7 | | Declare_Variable Any
0485 00d8 | | Load_Top At_Offset_0
0486 1c00 | | Execute_Immediate Run_Utility,0x0
0487 e003 | | Load 0x0,0x3
0488 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0489 029f 0ce3 | | Declare_Subprogram INIT_0ce0,For_Call
048b BODY_0458:
048b e404 | | Load 0x2,0x4
048c 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
048e 0092 0e1e | | Action Push_String_Extended,0xe1e ; "Remote_Unit_Name"
0490 e5ff | | Load 0x2,-0x1
0491 e007 | | Load 0x0,0x7
0492 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0493 01cc | | Execute Vector,Catenate
0494 0092 0e1f | | Action Push_String_Extended,0xe1f ; "Into_View"
0496 01cc | | Execute Vector,Catenate
0497 e5fe | | Load 0x2,-0x2
0498 e007 | | Load 0x0,0x7
0499 1812 | | Execute Package,Field_Execute,Field_Number 0x12
049a 01cc | | Execute Vector,Catenate
049b 0092 0e20 | | Action Push_String_Extended,0xe20 ; "Upload_To_Text_File => "
049d 01cc | | Execute Vector,Catenate
049e e5fd | | Load 0x2,-0x3
049f 00e1 | | Load_Encached Boolean_Cache
04a0 011c | | Execute Any,Convert_Unchecked
04a1 1c01 | | Execute_Immediate Run_Utility,0x1
04a2 01cc | | Execute Vector,Catenate
04a3 0092 0e21 | !| Action Push_String_Extended,0xe21 ; ", Host_Text_File_Name"
04a5 01cc | | Execute Vector,Catenate
04a6 e5fc | | Load 0x2,-0x4
04a7 e007 | | Load 0x0,0x7
04a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04a9 01cc | | Execute Vector,Catenate
04aa 0092 0e22 | "| Action Push_String_Extended,0xe22 ; "Response"
04ac 01cc | | Execute Vector,Catenate
04ad e5fb | | Load 0x2,-0x5
04ae e007 | | Load 0x0,0x7
04af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b0 01cc | | Execute Vector,Catenate
04b1 e402 | | Load 0x2,0x2
04b2 e007 | | Load 0x0,0x7
04b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b4 e404 | | Load 0x2,0x4
04b5 e008 | | Load 0x0,0x8
04b6 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b7 e404 | | Load 0x2,0x4
04b8 0092 0e1e | | Action Push_String_Extended,0xe1e ; "Remote_Unit_Name"
04ba 4801 |H | Short_Literal 0x1
04bb e5ff | | Load 0x2,-0x1
04bc e008 | | Load 0x0,0x8
04bd 180d | | Execute Package,Field_Execute,Field_Number 0xd
04be e404 | | Load 0x2,0x4
04bf 4801 |H | Short_Literal 0x1
04c0 e5fe | | Load 0x2,-0x2
04c1 e009 | | Load 0x0,0x9
04c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04c3 c407 | | Store 0x2,0x7
04c4 e404 | | Load 0x2,0x4
04c5 00d8 | | Load_Top At_Offset_0
04c6 4801 |H | Short_Literal 0x1
04c7 e5fe | | Load 0x2,-0x2
04c8 e009 | | Load 0x0,0x9
04c9 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04ca 8216 | | Call 0x1,0x16
04cb c408 | | Store 0x2,0x8
04cc e404 | | Load 0x2,0x4
04cd e407 | | Load 0x2,0x7
04ce e009 | | Load 0x0,0x9
04cf 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
04d0 a405 | | Store_Unchecked 0x2,0x5
04d1 e404 | | Load 0x2,0x4
04d2 e407 | | Load 0x2,0x7
04d3 e008 | | Load 0x0,0x8
04d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04d5 e003 | | Load 0x0,0x3
04d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d7 00db | | Load_Top At_Offset_3
04d8 0120 | | Execute Any,Is_Value
04d9 6804 |h | Jump_Zero 0x4de
04da e003 | | Load 0x0,0x3
04db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04dd 7801 |x | Jump 0x4df
04de 00db | | Load_Top At_Offset_3
04df 6190 |a | Indirect_Literal Discrete,0x670,{0x00000000, 0x00004000}
04e0 e00a | | Load 0x0,0xa
04e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e2 4800 |H | Short_Literal 0x0
04e3 e408 | | Load 0x2,0x8
04e4 e003 | | Load 0x0,0x3
04e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e7 c40a | | Store 0x2,0xa
04e8 005a | Z | Store_Top Discrete,At_Offset_2
04e9 00d9 | | Load_Top At_Offset_1
04ea 6823 |h# | Jump_Zero 0x50e
04eb e404 | | Load 0x2,0x4
04ec 4801 |H | Short_Literal 0x1
04ed 4802 |H | Short_Literal 0x2
04ee e00b | | Load 0x0,0xb
04ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04f0 0334 | 4 | Declare_Variable Array,With_Constraint
04f1 e407 | | Load 0x2,0x7
04f2 e00b | | Load 0x0,0xb
04f3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04f4 e00b | | Load 0x0,0xb
04f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f6 0119 | | Execute Any,Check_In_Formal_Type
04f7 4801 |H | Short_Literal 0x1
04f8 00da | | Load_Top At_Offset_2
04f9 01d6 | | Execute Vector,Field_Write
04fa 00db | | Load_Top At_Offset_3
04fb e00b | | Load 0x0,0xb
04fc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04fd e00b | | Load 0x0,0xb
04fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ff 0119 | | Execute Any,Check_In_Formal_Type
0500 4802 |H | Short_Literal 0x2
0501 00da | | Load_Top At_Offset_2
0502 01d6 | | Execute Vector,Field_Write
0503 6168 |ah | Indirect_Literal Discrete,0x66c,{0x00000000, 0x00008866}
0504 e001 | | Load 0x0,0x1
0505 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0506 e00b | | Load 0x0,0xb
0507 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0508 615f |a_ | Indirect_Literal Discrete,0x668,{0x00000000, 0x00008868}
0509 e001 | | Load 0x0,0x1
050a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
050b a403 | | Store_Unchecked 0x2,0x3
050c e00c | | Load 0x0,0xc
050d 0257 | W | Execute Discrete,Raise
050e e003 | | Load 0x0,0x3
050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0510 e006 | | Load 0x0,0x6
0511 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0512 e40a | | Load 0x2,0xa
0513 e003 | | Load 0x0,0x3
0514 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0515 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0516 005a | Z | Store_Top Discrete,At_Offset_2
0517 00d9 | | Load_Top At_Offset_1
0518 6823 |h# | Jump_Zero 0x53c
0519 e404 | | Load 0x2,0x4
051a 4801 |H | Short_Literal 0x1
051b 4802 |H | Short_Literal 0x2
051c e00b | | Load 0x0,0xb
051d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
051e 0334 | 4 | Declare_Variable Array,With_Constraint
051f e407 | | Load 0x2,0x7
0520 e00b | | Load 0x0,0xb
0521 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0522 e00b | | Load 0x0,0xb
0523 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0524 0119 | | Execute Any,Check_In_Formal_Type
0525 4801 |H | Short_Literal 0x1
0526 00da | | Load_Top At_Offset_2
0527 01d6 | | Execute Vector,Field_Write
0528 00db | | Load_Top At_Offset_3
0529 e00b | | Load 0x0,0xb
052a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
052b e00b | | Load 0x0,0xb
052c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
052d 0119 | | Execute Any,Check_In_Formal_Type
052e 4802 |H | Short_Literal 0x2
052f 00da | | Load_Top At_Offset_2
0530 01d6 | | Execute Vector,Field_Write
0531 6132 |a2 | Indirect_Literal Discrete,0x664,{0x00000000, 0x00008867}
0532 e001 | | Load 0x0,0x1
0533 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0534 e00b | | Load 0x0,0xb
0535 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0536 6131 |a1 | Indirect_Literal Discrete,0x668,{0x00000000, 0x00008868}
0537 e001 | | Load 0x0,0x1
0538 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0539 a403 | | Store_Unchecked 0x2,0x3
053a e00c | | Load 0x0,0xc
053b 0257 | W | Execute Discrete,Raise
053c e5fd | | Load 0x2,-0x3
053d 681c |h | Jump_Zero 0x55a
053e 4820 |H | Short_Literal 0x20
053f e5fc | | Load 0x2,-0x4
0540 e012 | | Load 0x0,0x12
0541 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0542 01db | | Execute Vector,Length
0543 7014 |p | Jump_Nonzero 0x558
0544 e404 | | Load 0x2,0x4
0545 4801 |H | Short_Literal 0x1
0546 4801 |H | Short_Literal 0x1
0547 e00b | | Load 0x0,0xb
0548 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0549 0334 | 4 | Declare_Variable Array,With_Constraint
054a e5ff | | Load 0x2,-0x1
054b e00b | | Load 0x0,0xb
054c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
054d e00b | | Load 0x0,0xb
054e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
054f 0119 | | Execute Any,Check_In_Formal_Type
0550 4801 |H | Short_Literal 0x1
0551 00da | | Load_Top At_Offset_2
0552 01d6 | | Execute Vector,Field_Write
0553 610c |a | Indirect_Literal Discrete,0x660,{0x00000000, 0x0000887b}
0554 e001 | | Load 0x0,0x1
0555 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0556 e00f | | Load 0x0,0xf
0557 0257 | W | Execute Discrete,Raise
0558 840c | | Call 0x2,0xc
0559 7812 |x | Jump 0x56c
055a e404 | | Load 0x2,0x4
055b 4801 |H | Short_Literal 0x1
055c 4801 |H | Short_Literal 0x1
055d e00b | | Load 0x0,0xb
055e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055f 0334 | 4 | Declare_Variable Array,With_Constraint
0560 e5ff | | Load 0x2,-0x1
0561 e00b | | Load 0x0,0xb
0562 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0563 e00b | | Load 0x0,0xb
0564 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0565 0119 | | Execute Any,Check_In_Formal_Type
0566 4801 |H | Short_Literal 0x1
0567 00da | | Load_Top At_Offset_2
0568 01d6 | | Execute Vector,Field_Write
0569 60f2 |` | Indirect_Literal Discrete,0x65c,{0x00000000, 0x0000887d}
056a e001 | | Load 0x0,0x1
056b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
056c e405 | | Load 0x2,0x5
056d 7016 |p | Jump_Nonzero 0x584
056e e403 | | Load 0x2,0x3
056f e406 | | Load 0x2,0x6
0570 e404 | | Load 0x2,0x4
0571 00d8 | | Load_Top At_Offset_0
0572 e407 | | Load 0x2,0x7
0573 e009 | | Load 0x0,0x9
0574 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0575 e404 | | Load 0x2,0x4
0576 e407 | | Load 0x2,0x7
0577 800d | | Call 0x0,0xd
0578 e404 | | Load 0x2,0x4
0579 e407 | | Load 0x2,0x7
057a e009 | | Load 0x0,0x9
057b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
057c e00e | | Load 0x0,0xe
057d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057e c406 | | Store 0x2,0x6
057f c403 | | Store 0x2,0x3
0580 e403 | | Load 0x2,0x3
0581 6802 |h | Jump_Zero 0x584
0582 e00f | | Load 0x0,0xf
0583 0257 | W | Execute Discrete,Raise
0584 e403 | | Load 0x2,0x3
0585 4801 |H | Short_Literal 0x1
0586 4801 |H | Short_Literal 0x1
0587 4800 |H | Short_Literal 0x0
0588 4801 |H | Short_Literal 0x1
0589 e404 | | Load 0x2,0x4
058a e009 | | Load 0x0,0x9
058b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
058c 4800 |H | Short_Literal 0x0
058d e406 | | Load 0x2,0x6
058e e404 | | Load 0x2,0x4
058f e407 | | Load 0x2,0x7
0590 e009 | | Load 0x0,0x9
0591 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0592 e5fc | | Load 0x2,-0x4
0593 e408 | | Load 0x2,0x8
0594 e407 | | Load 0x2,0x7
0595 e5fd | | Load 0x2,-0x3
0596 0f00 | | Execute_Immediate Equal,0x0
0597 e5ff | | Load 0x2,-0x1
0598 e003 | | Load 0x0,0x3
0599 1810 | | Execute Package,Field_Execute,Field_Number 0x10
059a e005 | | Load 0x0,0x5
059b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
059c c403 | | Store 0x2,0x3
059d e403 | | Load 0x2,0x3
059e 6844 |hD | Jump_Zero 0x5e3
059f e5fd | | Load 0x2,-0x3
05a0 6826 |h& | Jump_Zero 0x5c7
05a1 e404 | | Load 0x2,0x4
05a2 4801 |H | Short_Literal 0x1
05a3 4803 |H | Short_Literal 0x3
05a4 e00b | | Load 0x0,0xb
05a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05a6 0334 | 4 | Declare_Variable Array,With_Constraint
05a7 e5ff | | Load 0x2,-0x1
05a8 e00b | | Load 0x0,0xb
05a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05aa e00b | | Load 0x0,0xb
05ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ac 0119 | | Execute Any,Check_In_Formal_Type
05ad 4801 |H | Short_Literal 0x1
05ae 00da | | Load_Top At_Offset_2
05af 01d6 | | Execute Vector,Field_Write
05b0 0092 0e23 | #| Action Push_String_Extended,0xe23 ; "text file"
05b2 e00b | | Load 0x0,0xb
05b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05b4 e00b | | Load 0x0,0xb
05b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b6 0119 | | Execute Any,Check_In_Formal_Type
05b7 4802 |H | Short_Literal 0x2
05b8 00da | | Load_Top At_Offset_2
05b9 01d6 | | Execute Vector,Field_Write
05ba e5fc | | Load 0x2,-0x4
05bb e00b | | Load 0x0,0xb
05bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05bd e00b | | Load 0x0,0xb
05be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05bf 0119 | | Execute Any,Check_In_Formal_Type
05c0 4803 |H | Short_Literal 0x3
05c1 00da | | Load_Top At_Offset_2
05c2 01d6 | | Execute Vector,Field_Write
05c3 6094 |` | Indirect_Literal Discrete,0x658,{0x00000000, 0x00008816}
05c4 e001 | | Load 0x0,0x1
05c5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05c6 781c |x | Jump 0x5e3
05c7 e404 | | Load 0x2,0x4
05c8 4801 |H | Short_Literal 0x1
05c9 4802 |H | Short_Literal 0x2
05ca e00b | | Load 0x0,0xb
05cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05cc 0334 | 4 | Declare_Variable Array,With_Constraint
05cd e5ff | | Load 0x2,-0x1
05ce e00b | | Load 0x0,0xb
05cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d0 e00b | | Load 0x0,0xb
05d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d2 0119 | | Execute Any,Check_In_Formal_Type
05d3 4801 |H | Short_Literal 0x1
05d4 00da | | Load_Top At_Offset_2
05d5 01d6 | | Execute Vector,Field_Write
05d6 0092 0e24 | $| Action Push_String_Extended,0xe24 ; "local Ada unit"
05d8 e00b | | Load 0x0,0xb
05d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05da e00b | | Load 0x0,0xb
05db 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05dc 0119 | | Execute Any,Check_In_Formal_Type
05dd 4802 |H | Short_Literal 0x2
05de 00da | | Load_Top At_Offset_2
05df 01d6 | | Execute Vector,Field_Write
05e0 6077 |`w | Indirect_Literal Discrete,0x658,{0x00000000, 0x00008816}
05e1 e001 | | Load 0x0,0x1
05e2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05e3 e405 | | Load 0x2,0x5
05e4 700b |p | Jump_Nonzero 0x5f0
05e5 e403 | | Load 0x2,0x3
05e6 e406 | | Load 0x2,0x6
05e7 e404 | | Load 0x2,0x4
05e8 00d8 | | Load_Top At_Offset_0
05e9 e407 | | Load 0x2,0x7
05ea e009 | | Load 0x0,0x9
05eb 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
05ec e00e | | Load 0x0,0xe
05ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ee c406 | | Store 0x2,0x6
05ef c403 | | Store 0x2,0x3
05f0 e003 | | Load 0x0,0x3
05f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f2 e006 | | Load 0x0,0x6
05f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05f4 e409 | | Load 0x2,0x9
05f5 e003 | | Load 0x0,0x3
05f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05f8 005a | Z | Store_Top Discrete,At_Offset_2
05f9 e404 | | Load 0x2,0x4
05fa 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
05fc e402 | | Load 0x2,0x2
05fd e403 | | Load 0x2,0x3
05fe e007 | | Load 0x0,0x7
05ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0600 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0601 TRAP_0458:
0601 e00c | | Load 0x0,0xc
0602 010f | | Execute Exception,Equal
0603 6801 |h | Jump_Zero 0x605
0604 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0605 e00f | | Load 0x0,0xf
0606 010f | | Execute Exception,Equal
0607 6811 |h | Jump_Zero 0x619
0608 e003 | | Load 0x0,0x3
0609 1b0d | | Execute Package,Field_Read,Field_Number 0xd
060a e006 | | Load 0x0,0x6
060b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
060c e409 | | Load 0x2,0x9
060d e003 | | Load 0x0,0x3
060e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
060f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0610 005b | [ | Store_Top Discrete,At_Offset_3
0611 e404 | | Load 0x2,0x4
0612 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0614 e402 | | Load 0x2,0x2
0615 e403 | | Load 0x2,0x3
0616 e007 | | Load 0x0,0x7
0617 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0618 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0619 e001 | | Load 0x0,0x1
061a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
061b 010f | | Execute Exception,Equal
061c 6814 |h | Jump_Zero 0x631
061d e001 | | Load 0x0,0x1
061e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
061f a403 | | Store_Unchecked 0x2,0x3
0620 e003 | | Load 0x0,0x3
0621 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0622 e006 | | Load 0x0,0x6
0623 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0624 e409 | | Load 0x2,0x9
0625 e003 | | Load 0x0,0x3
0626 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0627 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0628 005b | [ | Store_Top Discrete,At_Offset_3
0629 e404 | | Load 0x2,0x4
062a 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
062c e402 | | Load 0x2,0x2
062d e403 | | Load 0x2,0x3
062e e007 | | Load 0x0,0x7
062f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0630 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0631 4884 |H | Short_Literal 0x84
0632 010f | | Execute Exception,Equal
0633 6811 |h | Jump_Zero 0x645
0634 e003 | | Load 0x0,0x3
0635 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0636 e006 | | Load 0x0,0x6
0637 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0638 e409 | | Load 0x2,0x9
0639 e003 | | Load 0x0,0x3
063a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
063b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
063c 005b | [ | Store_Top Discrete,At_Offset_3
063d e404 | | Load 0x2,0x4
063e 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0640 e402 | | Load 0x2,0x2
0641 e403 | | Load 0x2,0x3
0642 e007 | | Load 0x0,0x7
0643 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0644 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0645 e003 | | Load 0x0,0x3
0646 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0647 e006 | | Load 0x0,0x6
0648 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0649 e409 | | Load 0x2,0x9
064a e003 | | Load 0x0,0x3
064b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
064c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
064d 005b | [ | Store_Top Discrete,At_Offset_3
064e e404 | | Load 0x2,0x4
064f 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0651 e402 | | Load 0x2,0x2
0652 e403 | | Load 0x2,0x3
0653 e007 | | Load 0x0,0x7
0654 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0655 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0656 0000 0000 | | .XXX[0x2]
0658 0000 0000 | | .LITERAL {0x00000000, 0x00008816}
065c 0000 0000 | | .LITERAL {0x00000000, 0x0000887d}
0660 0000 0000 | | .LITERAL {0x00000000, 0x0000887b}
0664 0000 0000 | | .LITERAL {0x00000000, 0x00008867}
0668 0000 0000 | | .LITERAL {0x00000000, 0x00008868}
066c 0000 0000 | | .LITERAL {0x00000000, 0x00008866}
0670 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0674 0000 0000 | | .BLANK 0000[0x4]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 0698 | | .CONST 0x0698 ; Address of begin
0679 06d8 | | .CONST 0x06d8 ; Address of exception handler
067a 000a | | .CONST 0x000a ; Number of locals
067b INIT_0678:
067b 00e9 | | Load_Encached String_Cache
067c 02a0 | | Declare_Subprogram Null_Subprogram
067d 4818 |H | Short_Literal 0x18
067e 03d3 | | Declare_Type Access,Defined,Accesses_Protected
067f 0092 0e1d | | Action Push_String_Extended,0xe1d ; "Upload_Unit"
0681 e001 | | Load 0x0,0x1
0682 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0683 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0684 e002 | | Load 0x0,0x2
0685 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0686 02c7 | | Declare_Variable Any
0687 e5fd | | Load 0x2,-0x3
0688 e002 | | Load 0x0,0x2
0689 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
068a a405 | | Store_Unchecked 0x2,0x5
068b e013 | | Load 0x0,0x13
068c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068d 02c7 | | Declare_Variable Any
068e 00d8 | | Load_Top At_Offset_0
068f 1c00 | | Execute_Immediate Run_Utility,0x0
0690 00e1 | | Load_Encached Boolean_Cache
0691 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0692 029f 0d83 | | Declare_Subprogram INIT_0d80,For_Call
0694 029f 0da3 | | Declare_Subprogram INIT_0da0,For_Call
0696 029f 0dc3 | | Declare_Subprogram INIT_0dc0,For_Call
0698 BODY_0678:
0698 e405 | | Load 0x2,0x5
0699 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
069b 0092 0e25 | %| Action Push_String_Extended,0xe25 ; "upload_specification_file"
069d e5ff | | Load 0x2,-0x1
069e e007 | | Load 0x0,0x7
069f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a0 01cc | | Execute Vector,Catenate
06a1 0092 0e1f | | Action Push_String_Extended,0xe1f ; "Into_View"
06a3 01cc | | Execute Vector,Catenate
06a4 e5fe | | Load 0x2,-0x2
06a5 e007 | | Load 0x0,0x7
06a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a7 01cc | | Execute Vector,Catenate
06a8 0092 0e22 | "| Action Push_String_Extended,0xe22 ; "Response"
06aa 01cc | | Execute Vector,Catenate
06ab e5fd | | Load 0x2,-0x3
06ac e007 | | Load 0x0,0x7
06ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06ae 01cc | | Execute Vector,Catenate
06af e403 | | Load 0x2,0x3
06b0 e007 | | Load 0x0,0x7
06b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06b2 e405 | | Load 0x2,0x5
06b3 e008 | | Load 0x0,0x8
06b4 180f | | Execute Package,Field_Execute,Field_Number 0xf
06b5 e405 | | Load 0x2,0x5
06b6 0092 0e25 | %| Action Push_String_Extended,0xe25 ; "upload_specification_file"
06b8 4801 |H | Short_Literal 0x1
06b9 e5ff | | Load 0x2,-0x1
06ba e008 | | Load 0x0,0x8
06bb 180d | | Execute Package,Field_Execute,Field_Number 0xd
06bc e406 | | Load 0x2,0x6
06bd 00ea | | Load_Encached Null_String_Cache
06be e5ff | | Load 0x2,-0x1
06bf 4800 |H | Short_Literal 0x0
06c0 e013 | | Load 0x0,0x13
06c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06c2 c406 | | Store 0x2,0x6
06c3 00cf | | Action Mark_Auxiliary
06c4 7802 |x | Jump 0x6c7
06c5 840a | | Call 0x2,0xa
06c6 00c9 | | Action Pop_Auxiliary_Loop
06c7 e406 | | Load 0x2,0x6
06c8 e013 | | Load 0x0,0x13
06c9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06ca 6ffa |o | Jump_Zero 0x6c5
06cb 00ce | | Action Pop_Auxiliary
06cc e406 | | Load 0x2,0x6
06cd e013 | | Load 0x0,0x13
06ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06cf c406 | | Store 0x2,0x6
06d0 e405 | | Load 0x2,0x5
06d1 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
06d3 e403 | | Load 0x2,0x3
06d4 e404 | | Load 0x2,0x4
06d5 e007 | | Load 0x0,0x7
06d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06d8 TRAP_0678:
06d8 e014 | | Load 0x0,0x14
06d9 010f | | Execute Exception,Equal
06da 681b |h | Jump_Zero 0x6f6
06db e002 | | Load 0x0,0x2
06dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
06dd 4801 |H | Short_Literal 0x1
06de 4801 |H | Short_Literal 0x1
06df e00b | | Load 0x0,0xb
06e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06e1 0334 | 4 | Declare_Variable Array,With_Constraint
06e2 e5ff | | Load 0x2,-0x1
06e3 e00b | | Load 0x0,0xb
06e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06e5 e00b | | Load 0x0,0xb
06e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e7 0119 | | Execute Any,Check_In_Formal_Type
06e8 4801 |H | Short_Literal 0x1
06e9 00da | | Load_Top At_Offset_2
06ea 01d6 | | Execute Vector,Field_Write
06eb 6014 |` | Indirect_Literal Discrete,0x700,{0x00000000, 0x0000889e}
06ec e001 | | Load 0x0,0x1
06ed 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06ee e405 | | Load 0x2,0x5
06ef 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
06f1 e403 | | Load 0x2,0x3
06f2 e404 | | Load 0x2,0x4
06f3 e007 | | Load 0x0,0x7
06f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06f6 e405 | | Load 0x2,0x5
06f7 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
06f9 e403 | | Load 0x2,0x3
06fa e404 | | Load 0x2,0x4
06fb e007 | | Load 0x0,0x7
06fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06fe 0000 0000 | | .XXX[0x2]
0700 0000 0000 | | .LITERAL {0x00000000, 0x0000889e}
0704 0000 0000 | | .BLANK 0000[0x4]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0729 | ) | .CONST 0x0729 ; Address of begin
0709 0809 | | .CONST 0x0809 ; Address of exception handler
070a 0009 | | .CONST 0x0009 ; Number of locals
070b INIT_0708:
070b 0092 0e26 | &| Action Push_String_Extended,0xe26 ; "Set_Remote_Unit_Name"
070d e001 | | Load 0x0,0x1
070e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
070f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0710 e002 | | Load 0x0,0x2
0711 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0712 02c7 | | Declare_Variable Any
0713 e5fc | | Load 0x2,-0x4
0714 e002 | | Load 0x0,0x2
0715 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0716 a404 | | Store_Unchecked 0x2,0x4
0717 00e1 | | Load_Encached Boolean_Cache
0718 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0719 00e2 | | Load_Encached Integer_Cache
071a e003 | | Load 0x0,0x3
071b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
071c 02c7 | | Declare_Variable Any
071d 00d8 | | Load_Top At_Offset_0
071e 1c00 | | Execute_Immediate Run_Utility,0x0
071f e003 | | Load 0x0,0x3
0720 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0721 02c7 | | Declare_Variable Any
0722 00d8 | | Load_Top At_Offset_0
0723 1c00 | | Execute_Immediate Run_Utility,0x0
0724 e003 | | Load 0x0,0x3
0725 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0726 02c7 | | Declare_Variable Any
0727 00d8 | | Load_Top At_Offset_0
0728 1c00 | | Execute_Immediate Run_Utility,0x0
0729 BODY_0708:
0729 e404 | | Load 0x2,0x4
072a 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
072c 0092 0e27 | '| Action Push_String_Extended,0xe27 ; "Remote_Name"
072e e5ff | | Load 0x2,-0x1
072f e007 | | Load 0x0,0x7
0730 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0731 01cc | | Execute Vector,Catenate
0732 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
0734 01cc | | Execute Vector,Catenate
0735 e5fe | | Load 0x2,-0x2
0736 e007 | | Load 0x0,0x7
0737 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0738 01cc | | Execute Vector,Catenate
0739 0092 0e17 | | Action Push_String_Extended,0xe17 ; "Allow_Demotion => "
073b 01cc | | Execute Vector,Catenate
073c e5fd | | Load 0x2,-0x3
073d 00e1 | | Load_Encached Boolean_Cache
073e 011c | | Execute Any,Convert_Unchecked
073f 1c01 | | Execute_Immediate Run_Utility,0x1
0740 01cc | | Execute Vector,Catenate
0741 0092 0e15 | | Action Push_String_Extended,0xe15 ; ", Response"
0743 01cc | | Execute Vector,Catenate
0744 e5fc | | Load 0x2,-0x4
0745 e007 | | Load 0x0,0x7
0746 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0747 01cc | | Execute Vector,Catenate
0748 e402 | | Load 0x2,0x2
0749 e007 | | Load 0x0,0x7
074a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
074b e404 | | Load 0x2,0x4
074c e008 | | Load 0x0,0x8
074d 180f | | Execute Package,Field_Execute,Field_Number 0xf
074e e404 | | Load 0x2,0x4
074f 0092 0e27 | '| Action Push_String_Extended,0xe27 ; "Remote_Name"
0751 4800 |H | Short_Literal 0x0
0752 e5ff | | Load 0x2,-0x1
0753 e008 | | Load 0x0,0x8
0754 180d | | Execute Package,Field_Execute,Field_Number 0xd
0755 e404 | | Load 0x2,0x4
0756 4801 |H | Short_Literal 0x1
0757 e5fe | | Load 0x2,-0x2
0758 e009 | | Load 0x0,0x9
0759 181a | | Execute Package,Field_Execute,Field_Number 0x1a
075a c407 | | Store 0x2,0x7
075b e404 | | Load 0x2,0x4
075c 4801 |H | Short_Literal 0x1
075d e407 | | Load 0x2,0x7
075e e009 | | Load 0x0,0x9
075f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0760 c409 | | Store 0x2,0x9
0761 e404 | | Load 0x2,0x4
0762 00d9 | | Load_Top At_Offset_1
0763 e008 | | Load 0x0,0x8
0764 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0765 00da | | Load_Top At_Offset_2
0766 e009 | | Load 0x0,0x9
0767 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0768 6805 |h | Jump_Zero 0x76e
0769 e404 | | Load 0x2,0x4
076a e5fd | | Load 0x2,-0x3
076b e407 | | Load 0x2,0x7
076c 8214 | | Call 0x1,0x14
076d 784b |xK | Jump 0x7b9
076e e001 | | Load 0x0,0x1
076f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0770 00e2 | | Load_Encached Integer_Cache
0771 00e1 | | Load_Encached Boolean_Cache
0772 e408 | | Load 0x2,0x8
0773 0120 | | Execute Any,Is_Value
0774 6803 |h | Jump_Zero 0x778
0775 e003 | | Load 0x0,0x3
0776 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0777 7801 |x | Jump 0x779
0778 e408 | | Load 0x2,0x8
0779 e404 | | Load 0x2,0x4
077a e407 | | Load 0x2,0x7
077b e010 | | Load 0x0,0x10
077c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
077d c408 | | Store 0x2,0x8
077e c405 | | Store 0x2,0x5
077f c406 | | Store 0x2,0x6
0780 c403 | | Store 0x2,0x3
0781 e403 | | Load 0x2,0x3
0782 0f00 | | Execute_Immediate Equal,0x0
0783 0f00 | | Execute_Immediate Equal,0x0
0784 e405 | | Load 0x2,0x5
0785 0f00 | | Execute_Immediate Equal,0x0
0786 0278 | x | Execute Discrete,Or
0787 6813 |h | Jump_Zero 0x79b
0788 e404 | | Load 0x2,0x4
0789 4801 |H | Short_Literal 0x1
078a 4801 |H | Short_Literal 0x1
078b e00b | | Load 0x0,0xb
078c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
078d 0334 | 4 | Declare_Variable Array,With_Constraint
078e e407 | | Load 0x2,0x7
078f e009 | | Load 0x0,0x9
0790 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0791 e00b | | Load 0x0,0xb
0792 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0793 0119 | | Execute Any,Check_In_Formal_Type
0794 4801 |H | Short_Literal 0x1
0795 00da | | Load_Top At_Offset_2
0796 01d6 | | Execute Vector,Field_Write
0797 609c |` | Indirect_Literal Discrete,0x834,{0x00000000, 0x0000889d}
0798 e001 | | Load 0x0,0x1
0799 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
079a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
079b e404 | | Load 0x2,0x4
079c 00da | | Load_Top At_Offset_2
079d e009 | | Load 0x0,0x9
079e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
079f 7015 |p | Jump_Nonzero 0x7b5
07a0 e404 | | Load 0x2,0x4
07a1 4801 |H | Short_Literal 0x1
07a2 4801 |H | Short_Literal 0x1
07a3 e00b | | Load 0x0,0xb
07a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07a5 0334 | 4 | Declare_Variable Array,With_Constraint
07a6 00db | | Load_Top At_Offset_3
07a7 e009 | | Load 0x0,0x9
07a8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07a9 e00b | | Load 0x0,0xb
07aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07ab 0119 | | Execute Any,Check_In_Formal_Type
07ac 4801 |H | Short_Literal 0x1
07ad 00da | | Load_Top At_Offset_2
07ae 01d6 | | Execute Vector,Field_Write
07af 6080 |` | Indirect_Literal Discrete,0x830,{0x00000000, 0x0000889a}
07b0 e001 | | Load 0x0,0x1
07b1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07b2 e001 | | Load 0x0,0x1
07b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07b4 0257 | W | Execute Discrete,Raise
07b5 e404 | | Load 0x2,0x4
07b6 e5fd | | Load 0x2,-0x3
07b7 00db | | Load_Top At_Offset_3
07b8 8214 | | Call 0x1,0x14
07b9 e405 | | Load 0x2,0x5
07ba 6809 |h | Jump_Zero 0x7c4
07bb e001 | | Load 0x0,0x1
07bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07bd e404 | | Load 0x2,0x4
07be e5ff | | Load 0x2,-0x1
07bf e407 | | Load 0x2,0x7
07c0 e010 | | Load 0x0,0x10
07c1 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
07c2 c403 | | Store 0x2,0x3
07c3 780d |x | Jump 0x7d1
07c4 e001 | | Load 0x0,0x1
07c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c6 e404 | | Load 0x2,0x4
07c7 00d8 | | Load_Top At_Offset_0
07c8 00db | | Load_Top At_Offset_3
07c9 e009 | | Load 0x0,0x9
07ca 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
07cb e5ff | | Load 0x2,-0x1
07cc e407 | | Load 0x2,0x7
07cd e409 | | Load 0x2,0x9
07ce e010 | | Load 0x0,0x10
07cf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
07d0 c403 | | Store 0x2,0x3
07d1 e403 | | Load 0x2,0x3
07d2 701c |p | Jump_Nonzero 0x7ef
07d3 e404 | | Load 0x2,0x4
07d4 4801 |H | Short_Literal 0x1
07d5 4802 |H | Short_Literal 0x2
07d6 e00b | | Load 0x0,0xb
07d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07d8 0334 | 4 | Declare_Variable Array,With_Constraint
07d9 e407 | | Load 0x2,0x7
07da e009 | | Load 0x0,0x9
07db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07dc e00b | | Load 0x0,0xb
07dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07de 0119 | | Execute Any,Check_In_Formal_Type
07df 4801 |H | Short_Literal 0x1
07e0 00da | | Load_Top At_Offset_2
07e1 01d6 | | Execute Vector,Field_Write
07e2 e5ff | | Load 0x2,-0x1
07e3 e00b | | Load 0x0,0xb
07e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07e5 e00b | | Load 0x0,0xb
07e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07e7 0119 | | Execute Any,Check_In_Formal_Type
07e8 4802 |H | Short_Literal 0x2
07e9 00da | | Load_Top At_Offset_2
07ea 01d6 | | Execute Vector,Field_Write
07eb 6040 |`@ | Indirect_Literal Discrete,0x82c,{0x00000000, 0x0000883d}
07ec e001 | | Load 0x0,0x1
07ed 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07ee 7812 |x | Jump 0x801
07ef e404 | | Load 0x2,0x4
07f0 4801 |H | Short_Literal 0x1
07f1 4801 |H | Short_Literal 0x1
07f2 e00b | | Load 0x0,0xb
07f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07f4 0334 | 4 | Declare_Variable Array,With_Constraint
07f5 e407 | | Load 0x2,0x7
07f6 e009 | | Load 0x0,0x9
07f7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07f8 e00b | | Load 0x0,0xb
07f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07fa 0119 | | Execute Any,Check_In_Formal_Type
07fb 4801 |H | Short_Literal 0x1
07fc 00da | | Load_Top At_Offset_2
07fd 01d6 | | Execute Vector,Field_Write
07fe 6029 |`) | Indirect_Literal Discrete,0x828,{0x00000000, 0x0000881c}
07ff e001 | | Load 0x0,0x1
0800 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0801 e404 | | Load 0x2,0x4
0802 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0804 e402 | | Load 0x2,0x2
0805 e403 | | Load 0x2,0x3
0806 e007 | | Load 0x0,0x7
0807 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0808 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0809 TRAP_0708:
0809 e001 | | Load 0x0,0x1
080a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
080b 010f | | Execute Exception,Equal
080c 6808 |h | Jump_Zero 0x815
080d e404 | | Load 0x2,0x4
080e 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0810 e402 | | Load 0x2,0x2
0811 e403 | | Load 0x2,0x3
0812 e007 | | Load 0x0,0x7
0813 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0814 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0815 4884 |H | Short_Literal 0x84
0816 010f | | Execute Exception,Equal
0817 6808 |h | Jump_Zero 0x820
0818 e404 | | Load 0x2,0x4
0819 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
081b e402 | | Load 0x2,0x2
081c e403 | | Load 0x2,0x3
081d e007 | | Load 0x0,0x7
081e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
081f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0820 e404 | | Load 0x2,0x4
0821 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Rcf."
0823 e402 | | Load 0x2,0x2
0824 e403 | | Load 0x2,0x3
0825 e007 | | Load 0x0,0x7
0826 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0827 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0828 0000 0000 | | .LITERAL {0x00000000, 0x0000881c}
082c 0000 0000 | | .LITERAL {0x00000000, 0x0000883d}
0830 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
0834 0000 0000 | | .LITERAL {0x00000000, 0x0000889d}
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083f | ? | .CONST 0x083f ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0003 | | .CONST 0x0003 ; Number of locals
083b INIT_0838:
083b 029f 0deb | | Declare_Subprogram INIT_0de8,For_Call
083d 029f 0e03 | | Declare_Subprogram INIT_0e00,For_Call
083f BODY_0838:
083f e5fc | | Load 0x2,-0x4
0840 7002 |p | Jump_Nonzero 0x843
0841 8402 | | Call 0x2,0x2
0842 7801 |x | Jump 0x844
0843 8403 | | Call 0x2,0x3
0844 0831 | 1 | Execute_Immediate Raise,0x31
0845 0000 0000 | | .XXX[0x3]
0847 0000 | |
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b 00da | | Load_Top At_Offset_2
084c e015 | | Load 0x0,0x15
084d 180e | | Execute Package,Field_Execute,Field_Number 0xe
084e 00db | | Load_Top At_Offset_3
084f e015 | | Load 0x0,0x15
0850 180d | | Execute Package,Field_Execute,Field_Number 0xd
0851 0278 | x | Execute Discrete,Or
0852 682b |h+ | Jump_Zero 0x87e
0853 4801 |H | Short_Literal 0x1
0854 4801 |H | Short_Literal 0x1
0855 4800 |H | Short_Literal 0x0
0856 4801 |H | Short_Literal 0x1
0857 e5fe | | Load 0x2,-0x2
0858 e009 | | Load 0x0,0x9
0859 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
085a e002 | | Load 0x0,0x2
085b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
085c 4800 |H | Short_Literal 0x0
085d 0092 0e1c | | Action Push_String_Extended,0xe1c ; "<ALL_WORLDS>"
085f 4801 |H | Short_Literal 0x1
0860 e5ff | | Load 0x2,-0x1
0861 e009 | | Load 0x0,0x9
0862 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0863 e011 | | Load 0x0,0x11
0864 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0865 00da | | Load_Top At_Offset_2
0866 e015 | | Load 0x0,0x15
0867 180d | | Execute Package,Field_Execute,Field_Number 0xd
0868 6815 |h | Jump_Zero 0x87e
0869 00db | | Load_Top At_Offset_3
086a 4801 |H | Short_Literal 0x1
086b 4801 |H | Short_Literal 0x1
086c e00b | | Load 0x0,0xb
086d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
086e 0334 | 4 | Declare_Variable Array,With_Constraint
086f e5ff | | Load 0x2,-0x1
0870 e009 | | Load 0x0,0x9
0871 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0872 e00b | | Load 0x0,0xb
0873 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0874 0119 | | Execute Any,Check_In_Formal_Type
0875 4801 |H | Short_Literal 0x1
0876 00da | | Load_Top At_Offset_2
0877 01d6 | | Execute Vector,Field_Write
0878 6007 |` | Indirect_Literal Discrete,0x880,{0x00000000, 0x00008805}
0879 e001 | | Load 0x0,0x1
087a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
087b e001 | | Load 0x0,0x1
087c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
087d 0257 | W | Execute Discrete,Raise
087e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
087f 0000 | | .XXX[0x1]
0880 0000 0000 | | .LITERAL {0x00000000, 0x00008805}
0884 0000 0000 | | .BLANK 0000[0x4]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00da | | Load_Top At_Offset_2
088c e015 | | Load 0x0,0x15
088d 180e | | Execute Package,Field_Execute,Field_Number 0xe
088e 6843 |hC | Jump_Zero 0x8d2
088f 00db | | Load_Top At_Offset_3
0890 682c |h, | Jump_Zero 0x8bd
0891 4801 |H | Short_Literal 0x1
0892 4801 |H | Short_Literal 0x1
0893 4800 |H | Short_Literal 0x0
0894 4801 |H | Short_Literal 0x1
0895 e5fd | | Load 0x2,-0x3
0896 e009 | | Load 0x0,0x9
0897 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0898 e002 | | Load 0x0,0x2
0899 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
089a 4800 |H | Short_Literal 0x0
089b 0092 0e1c | | Action Push_String_Extended,0xe1c ; "<ALL_WORLDS>"
089d 4802 |H | Short_Literal 0x2
089e e5ff | | Load 0x2,-0x1
089f e009 | | Load 0x0,0x9
08a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08a1 e011 | | Load 0x0,0x11
08a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08a3 00da | | Load_Top At_Offset_2
08a4 e015 | | Load 0x0,0x15
08a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
08a6 6815 |h | Jump_Zero 0x8bc
08a7 e5fd | | Load 0x2,-0x3
08a8 4801 |H | Short_Literal 0x1
08a9 4801 |H | Short_Literal 0x1
08aa e00b | | Load 0x0,0xb
08ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08ac 0334 | 4 | Declare_Variable Array,With_Constraint
08ad e5ff | | Load 0x2,-0x1
08ae e009 | | Load 0x0,0x9
08af 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08b0 e00b | | Load 0x0,0xb
08b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08b2 0119 | | Execute Any,Check_In_Formal_Type
08b3 4801 |H | Short_Literal 0x1
08b4 00da | | Load_Top At_Offset_2
08b5 01d6 | | Execute Vector,Field_Write
08b6 67c9 |g | Indirect_Literal Discrete,0x880,{0x00000000, 0x00008805}
08b7 e001 | | Load 0x0,0x1
08b8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08b9 e001 | | Load 0x0,0x1
08ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08bb 0257 | W | Execute Discrete,Raise
08bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08bd e5fd | | Load 0x2,-0x3
08be 4801 |H | Short_Literal 0x1
08bf 4801 |H | Short_Literal 0x1
08c0 e00b | | Load 0x0,0xb
08c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08c2 0334 | 4 | Declare_Variable Array,With_Constraint
08c3 e5ff | | Load 0x2,-0x1
08c4 e009 | | Load 0x0,0x9
08c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08c6 e00b | | Load 0x0,0xb
08c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08c8 0119 | | Execute Any,Check_In_Formal_Type
08c9 4801 |H | Short_Literal 0x1
08ca 00da | | Load_Top At_Offset_2
08cb 01d6 | | Execute Vector,Field_Write
08cc 67b3 |g | Indirect_Literal Discrete,0x880,{0x00000000, 0x00008805}
08cd e001 | | Load 0x0,0x1
08ce 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08cf e001 | | Load 0x0,0x1
08d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08d1 0257 | W | Execute Discrete,Raise
08d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08d3 0000 0000 | | .BLANK 0000[0x5]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db | | .CONST 0x08db ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0001 | | .CONST 0x0001 ; Number of locals
08db BODY_08d8:
08db INIT_08d8:
08db 4800 |H | Short_Literal 0x0
08dc e5fe | | Load 0x2,-0x2
08dd 4821 |H! | Short_Literal 0x21
08de e012 | | Load 0x0,0x12
08df 181e | | Execute Package,Field_Execute,Field_Number 0x1e
08e0 6802 |h | Jump_Zero 0x8e3
08e1 00db | | Load_Top At_Offset_3
08e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08e3 00da | | Load_Top At_Offset_2
08e4 e009 | | Load 0x0,0x9
08e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
08e6 6809 |h | Jump_Zero 0x8f0
08e7 00da | | Load_Top At_Offset_2
08e8 e009 | | Load 0x0,0x9
08e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08ea 0092 0e28 | (| Action Push_String_Extended,0xe28 ; ".Units."
08ec 01cc | | Execute Vector,Catenate
08ed e5fe | | Load 0x2,-0x2
08ee 01cc | | Execute Vector,Catenate
08ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08f0 00da | | Load_Top At_Offset_2
08f1 e009 | | Load 0x0,0x9
08f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08f3 0092 0e29 | )| Action Push_String_Extended,0xe29 ; "."
08f5 01cc | | Execute Vector,Catenate
08f6 e5fe | | Load 0x2,-0x2
08f7 01cc | | Execute Vector,Catenate
08f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08f9 0000 0000 | | .BLANK 0000[0x7]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903 | | .CONST 0x0903 ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0001 | | .CONST 0x0001 ; Number of locals
0903 BODY_0900:
0903 INIT_0900:
0903 00da | | Load_Top At_Offset_2
0904 e009 | | Load 0x0,0x9
0905 180e | | Execute Package,Field_Execute,Field_Number 0xe
0906 680b |h | Jump_Zero 0x912
0907 00db | | Load_Top At_Offset_3
0908 4801 |H | Short_Literal 0x1
0909 e5ff | | Load 0x2,-0x1
090a e009 | | Load 0x0,0x9
090b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
090c 0092 0e2a | *| Action Push_String_Extended,0xe2a ; ".units"
090e 01cc | | Execute Vector,Catenate
090f e009 | | Load 0x0,0x9
0910 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0911 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0912 00da | | Load_Top At_Offset_2
0913 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0914 0000 0000 | | .BLANK 0000[0x4]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 0921 | ! | .CONST 0x0921 ; Address of begin
0919 0004 | | .CONST 0x0004 ; Address of exception handler
091a 0002 | | .CONST 0x0002 ; Number of locals
091b INIT_0918:
091b e404 | | Load 0x2,0x4
091c e406 | | Load 0x2,0x6
091d e412 | | Load 0x2,0x12
091e e40a | | Load 0x2,0xa
091f e405 | | Load 0x2,0x5
0920 8212 | | Call 0x1,0x12
0921 BODY_0918:
0921 e404 | | Load 0x2,0x4
0922 4801 |H | Short_Literal 0x1
0923 4802 |H | Short_Literal 0x2
0924 e00b | | Load 0x0,0xb
0925 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0926 0334 | 4 | Declare_Variable Array,With_Constraint
0927 00da | | Load_Top At_Offset_2
0928 e00b | | Load 0x0,0xb
0929 1810 | | Execute Package,Field_Execute,Field_Number 0x10
092a e00b | | Load 0x0,0xb
092b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
092c 0119 | | Execute Any,Check_In_Formal_Type
092d 4801 |H | Short_Literal 0x1
092e 00da | | Load_Top At_Offset_2
092f 01d6 | | Execute Vector,Field_Write
0930 e40a | | Load 0x2,0xa
0931 e009 | | Load 0x0,0x9
0932 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0933 e00b | | Load 0x0,0xb
0934 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0935 0119 | | Execute Any,Check_In_Formal_Type
0936 4802 |H | Short_Literal 0x2
0937 00da | | Load_Top At_Offset_2
0938 01d6 | | Execute Vector,Field_Write
0939 6106 |a | Indirect_Literal Discrete,0xa40,{0x00000000, 0x00008878}
093a e001 | | Load 0x0,0x1
093b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
093c e404 | | Load 0x2,0x4
093d e406 | | Load 0x2,0x6
093e e5fe | | Load 0x2,-0x2
093f 00db | | Load_Top At_Offset_3
0940 e40b | | Load 0x2,0xb
0941 e412 | | Load 0x2,0x12
0942 e405 | | Load 0x2,0x5
0943 e40a | | Load 0x2,0xa
0944 e005 | | Load 0x0,0x5
0945 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0946 a40e | | Store_Unchecked 0x2,0xe
0947 e40e | | Load 0x2,0xe
0948 4605 |F | Jump_Case 0x6
0949 7894 |x | Jump 0x9de ; case 0x0
094a 7804 |x | Jump 0x94f ; case 0x1
094b 7875 |xu | Jump 0x9c1 ; case 0x2
094c 7857 |xW | Jump 0x9a4 ; case 0x3
094d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
094e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5
094f e406 | | Load 0x2,0x6
0950 682d |h- | Jump_Zero 0x97e
0951 e404 | | Load 0x2,0x4
0952 4801 |H | Short_Literal 0x1
0953 4803 |H | Short_Literal 0x3
0954 e00b | | Load 0x0,0xb
0955 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0956 0334 | 4 | Declare_Variable Array,With_Constraint
0957 0092 0e2b | +| Action Push_String_Extended,0xe2b ; "Non ada unit associated with secondary "
0959 e40a | | Load 0x2,0xa
095a e009 | | Load 0x0,0x9
095b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
095c 01cc | | Execute Vector,Catenate
095d 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; " of Primary"
095f 01cc | | Execute Vector,Catenate
0960 e00b | | Load 0x0,0xb
0961 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0962 e00b | | Load 0x0,0xb
0963 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0964 0119 | | Execute Any,Check_In_Formal_Type
0965 4801 |H | Short_Literal 0x1
0966 00da | | Load_Top At_Offset_2
0967 01d6 | | Execute Vector,Field_Write
0968 e409 | | Load 0x2,0x9
0969 e009 | | Load 0x0,0x9
096a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
096b e00b | | Load 0x0,0xb
096c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
096d 0119 | | Execute Any,Check_In_Formal_Type
096e 4802 |H | Short_Literal 0x2
096f 00da | | Load_Top At_Offset_2
0970 01d6 | | Execute Vector,Field_Write
0971 00da | | Load_Top At_Offset_2
0972 e00b | | Load 0x0,0xb
0973 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0974 e00b | | Load 0x0,0xb
0975 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0976 0119 | | Execute Any,Check_In_Formal_Type
0977 4803 |H | Short_Literal 0x3
0978 00da | | Load_Top At_Offset_2
0979 01d6 | | Execute Vector,Field_Write
097a 60c1 |` | Indirect_Literal Discrete,0xa3c,{0x00000000, 0x0000884d}
097b e001 | | Load 0x0,0x1
097c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
097d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
097e e404 | | Load 0x2,0x4
097f 4801 |H | Short_Literal 0x1
0980 4803 |H | Short_Literal 0x3
0981 e00b | | Load 0x0,0xb
0982 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0983 0334 | 4 | Declare_Variable Array,With_Constraint
0984 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
0986 e00b | | Load 0x0,0xb
0987 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0988 e00b | | Load 0x0,0xb
0989 1b0e | | Execute Package,Field_Read,Field_Number 0xe
098a 0119 | | Execute Any,Check_In_Formal_Type
098b 4801 |H | Short_Literal 0x1
098c 00da | | Load_Top At_Offset_2
098d 01d6 | | Execute Vector,Field_Write
098e e40a | | Load 0x2,0xa
098f e009 | | Load 0x0,0x9
0990 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0991 e00b | | Load 0x0,0xb
0992 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0993 0119 | | Execute Any,Check_In_Formal_Type
0994 4802 |H | Short_Literal 0x2
0995 00da | | Load_Top At_Offset_2
0996 01d6 | | Execute Vector,Field_Write
0997 00da | | Load_Top At_Offset_2
0998 e00b | | Load 0x0,0xb
0999 1810 | | Execute Package,Field_Execute,Field_Number 0x10
099a e00b | | Load 0x0,0xb
099b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
099c 0119 | | Execute Any,Check_In_Formal_Type
099d 4803 |H | Short_Literal 0x3
099e 00da | | Load_Top At_Offset_2
099f 01d6 | | Execute Vector,Field_Write
09a0 609b |` | Indirect_Literal Discrete,0xa3c,{0x00000000, 0x0000884d}
09a1 e001 | | Load 0x0,0x1
09a2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09a4 e404 | | Load 0x2,0x4
09a5 4801 |H | Short_Literal 0x1
09a6 4802 |H | Short_Literal 0x2
09a7 e00b | | Load 0x0,0xb
09a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09a9 0334 | 4 | Declare_Variable Array,With_Constraint
09aa 0092 0e2d | -| Action Push_String_Extended,0xe2d ; "Unexpected unit status is 'Changed_On_Both'"
09ac e00b | | Load 0x0,0xb
09ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09ae e00b | | Load 0x0,0xb
09af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09b0 0119 | | Execute Any,Check_In_Formal_Type
09b1 4801 |H | Short_Literal 0x1
09b2 00da | | Load_Top At_Offset_2
09b3 01d6 | | Execute Vector,Field_Write
09b4 e402 | | Load 0x2,0x2
09b5 e00b | | Load 0x0,0xb
09b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09b7 e00b | | Load 0x0,0xb
09b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09b9 0119 | | Execute Any,Check_In_Formal_Type
09ba 4802 |H | Short_Literal 0x2
09bb 00da | | Load_Top At_Offset_2
09bc 01d6 | | Execute Vector,Field_Write
09bd 607a |`z | Indirect_Literal Discrete,0xa38,{0x00000000, 0x00008be9}
09be e001 | | Load 0x0,0x1
09bf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09c1 e404 | | Load 0x2,0x4
09c2 4801 |H | Short_Literal 0x1
09c3 4802 |H | Short_Literal 0x2
09c4 e00b | | Load 0x0,0xb
09c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09c6 0334 | 4 | Declare_Variable Array,With_Constraint
09c7 0092 0e2e | .| Action Push_String_Extended,0xe2e ; "Unexpected unit status is 'Changed_On_Host'"
09c9 e00b | | Load 0x0,0xb
09ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09cb e00b | | Load 0x0,0xb
09cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09cd 0119 | | Execute Any,Check_In_Formal_Type
09ce 4801 |H | Short_Literal 0x1
09cf 00da | | Load_Top At_Offset_2
09d0 01d6 | | Execute Vector,Field_Write
09d1 e402 | | Load 0x2,0x2
09d2 e00b | | Load 0x0,0xb
09d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09d4 e00b | | Load 0x0,0xb
09d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09d6 0119 | | Execute Any,Check_In_Formal_Type
09d7 4802 |H | Short_Literal 0x2
09d8 00da | | Load_Top At_Offset_2
09d9 01d6 | | Execute Vector,Field_Write
09da 605d |`] | Indirect_Literal Discrete,0xa38,{0x00000000, 0x00008be9}
09db e001 | | Load 0x0,0x1
09dc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09de e406 | | Load 0x2,0x6
09df 682d |h- | Jump_Zero 0xa0d
09e0 e404 | | Load 0x2,0x4
09e1 4801 |H | Short_Literal 0x1
09e2 4803 |H | Short_Literal 0x3
09e3 e00b | | Load 0x0,0xb
09e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09e5 0334 | 4 | Declare_Variable Array,With_Constraint
09e6 0092 0e2f | /| Action Push_String_Extended,0xe2f ; "Secondary "
09e8 e40a | | Load 0x2,0xa
09e9 e009 | | Load 0x0,0x9
09ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
09eb 01cc | | Execute Vector,Catenate
09ec 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; " of Primary"
09ee 01cc | | Execute Vector,Catenate
09ef e00b | | Load 0x0,0xb
09f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09f1 e00b | | Load 0x0,0xb
09f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09f3 0119 | | Execute Any,Check_In_Formal_Type
09f4 4801 |H | Short_Literal 0x1
09f5 00da | | Load_Top At_Offset_2
09f6 01d6 | | Execute Vector,Field_Write
09f7 e409 | | Load 0x2,0x9
09f8 e009 | | Load 0x0,0x9
09f9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09fa e00b | | Load 0x0,0xb
09fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09fc 0119 | | Execute Any,Check_In_Formal_Type
09fd 4802 |H | Short_Literal 0x2
09fe 00da | | Load_Top At_Offset_2
09ff 01d6 | | Execute Vector,Field_Write
0a00 00da | | Load_Top At_Offset_2
0a01 e00b | | Load 0x0,0xb
0a02 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a03 e00b | | Load 0x0,0xb
0a04 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a05 0119 | | Execute Any,Check_In_Formal_Type
0a06 4803 |H | Short_Literal 0x3
0a07 00da | | Load_Top At_Offset_2
0a08 01d6 | | Execute Vector,Field_Write
0a09 602a |`* | Indirect_Literal Discrete,0xa34,{0x00000000, 0x0000884b}
0a0a e001 | | Load 0x0,0x1
0a0b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a0c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a0d e404 | | Load 0x2,0x4
0a0e 4801 |H | Short_Literal 0x1
0a0f 4803 |H | Short_Literal 0x3
0a10 e00b | | Load 0x0,0xb
0a11 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a12 0334 | 4 | Declare_Variable Array,With_Constraint
0a13 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
0a15 e00b | | Load 0x0,0xb
0a16 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a17 e00b | | Load 0x0,0xb
0a18 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a19 0119 | | Execute Any,Check_In_Formal_Type
0a1a 4801 |H | Short_Literal 0x1
0a1b 00da | | Load_Top At_Offset_2
0a1c 01d6 | | Execute Vector,Field_Write
0a1d e40a | | Load 0x2,0xa
0a1e e009 | | Load 0x0,0x9
0a1f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a20 e00b | | Load 0x0,0xb
0a21 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a22 0119 | | Execute Any,Check_In_Formal_Type
0a23 4802 |H | Short_Literal 0x2
0a24 00da | | Load_Top At_Offset_2
0a25 01d6 | | Execute Vector,Field_Write
0a26 00da | | Load_Top At_Offset_2
0a27 e00b | | Load 0x0,0xb
0a28 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a29 e00b | | Load 0x0,0xb
0a2a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a2b 0119 | | Execute Any,Check_In_Formal_Type
0a2c 4803 |H | Short_Literal 0x3
0a2d 00da | | Load_Top At_Offset_2
0a2e 01d6 | | Execute Vector,Field_Write
0a2f 6004 |` | Indirect_Literal Discrete,0xa34,{0x00000000, 0x0000884b}
0a30 e001 | | Load 0x0,0x1
0a31 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a32 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a33 0000 | | .XXX[0x1]
0a34 0000 0000 | | .LITERAL {0x00000000, 0x0000884b}
0a38 0000 0000 | | .LITERAL {0x00000000, 0x00008be9}
0a3c 0000 0000 | | .LITERAL {0x00000000, 0x0000884d}
0a40 0000 0000 | | .LITERAL {0x00000000, 0x00008878}
0a44 0000 0000 | | .BLANK 0000[0x4]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a4b | K | .CONST 0x0a4b ; Address of begin
0a49 0004 | | .CONST 0x0004 ; Address of exception handler
0a4a 0001 | | .CONST 0x0001 ; Number of locals
0a4b BODY_0a48:
0a4b INIT_0a48:
0a4b e404 | | Load 0x2,0x4
0a4c e40d | | Load 0x2,0xd
0a4d e009 | | Load 0x0,0x9
0a4e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a4f 7028 |p( | Jump_Nonzero 0xa78
0a50 e404 | | Load 0x2,0x4
0a51 4801 |H | Short_Literal 0x1
0a52 4803 |H | Short_Literal 0x3
0a53 e00b | | Load 0x0,0xb
0a54 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a55 0334 | 4 | Declare_Variable Array,With_Constraint
0a56 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
0a58 e00b | | Load 0x0,0xb
0a59 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a5a e00b | | Load 0x0,0xb
0a5b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a5c 0119 | | Execute Any,Check_In_Formal_Type
0a5d 4801 |H | Short_Literal 0x1
0a5e 00da | | Load_Top At_Offset_2
0a5f 01d6 | | Execute Vector,Field_Write
0a60 e40d | | Load 0x2,0xd
0a61 e009 | | Load 0x0,0x9
0a62 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a63 e00b | | Load 0x0,0xb
0a64 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a65 0119 | | Execute Any,Check_In_Formal_Type
0a66 4802 |H | Short_Literal 0x2
0a67 00da | | Load_Top At_Offset_2
0a68 01d6 | | Execute Vector,Field_Write
0a69 e402 | | Load 0x2,0x2
0a6a e00b | | Load 0x0,0xb
0a6b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a6c e00b | | Load 0x0,0xb
0a6d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a6e 0119 | | Execute Any,Check_In_Formal_Type
0a6f 4803 |H | Short_Literal 0x3
0a70 00da | | Load_Top At_Offset_2
0a71 01d6 | | Execute Vector,Field_Write
0a72 6181 |a | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x00008820}
0a73 e001 | | Load 0x0,0x1
0a74 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a75 e001 | | Load 0x0,0x1
0a76 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a77 0257 | W | Execute Discrete,Raise
0a78 e409 | | Load 0x2,0x9
0a79 6803 |h | Jump_Zero 0xa7d
0a7a e40b | | Load 0x2,0xb
0a7b c40c | | Store 0x2,0xc
0a7c 7802 |x | Jump 0xa7f
0a7d e40d | | Load 0x2,0xd
0a7e c40c | | Store 0x2,0xc
0a7f e404 | | Load 0x2,0x4
0a80 e5fe | | Load 0x2,-0x2
0a81 e40c | | Load 0x2,0xc
0a82 8214 | | Call 0x1,0x14
0a83 e409 | | Load 0x2,0x9
0a84 68eb |h | Jump_Zero 0xb70
0a85 e001 | | Load 0x0,0x1
0a86 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a87 e40e | | Load 0x2,0xe
0a88 0120 | | Execute Any,Is_Value
0a89 6803 |h | Jump_Zero 0xa8d
0a8a e003 | | Load 0x0,0x3
0a8b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a8c 7801 |x | Jump 0xa8e
0a8d e40e | | Load 0x2,0xe
0a8e e404 | | Load 0x2,0x4
0a8f e40d | | Load 0x2,0xd
0a90 e010 | | Load 0x0,0x10
0a91 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0a92 c40e | | Store 0x2,0xe
0a93 c403 | | Store 0x2,0x3
0a94 e403 | | Load 0x2,0x3
0a95 6803 |h | Jump_Zero 0xa99
0a96 e001 | | Load 0x0,0x1
0a97 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a98 0257 | W | Execute Discrete,Raise
0a99 e404 | | Load 0x2,0x4
0a9a e40e | | Load 0x2,0xe
0a9b e009 | | Load 0x0,0x9
0a9c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a9d 7015 |p | Jump_Nonzero 0xab3
0a9e e404 | | Load 0x2,0x4
0a9f 4801 |H | Short_Literal 0x1
0aa0 4801 |H | Short_Literal 0x1
0aa1 e00b | | Load 0x0,0xb
0aa2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0aa3 0334 | 4 | Declare_Variable Array,With_Constraint
0aa4 e40e | | Load 0x2,0xe
0aa5 e009 | | Load 0x0,0x9
0aa6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0aa7 e00b | | Load 0x0,0xb
0aa8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aa9 0119 | | Execute Any,Check_In_Formal_Type
0aaa 4801 |H | Short_Literal 0x1
0aab 00da | | Load_Top At_Offset_2
0aac 01d6 | | Execute Vector,Field_Write
0aad 6142 |aB | Indirect_Literal Discrete,0xbf0,{0x00000000, 0x0000889b}
0aae e001 | | Load 0x0,0x1
0aaf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ab0 e001 | | Load 0x0,0x1
0ab1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0ab2 0257 | W | Execute Discrete,Raise
0ab3 e001 | | Load 0x0,0x1
0ab4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ab5 e404 | | Load 0x2,0x4
0ab6 e40e | | Load 0x2,0xe
0ab7 e010 | | Load 0x0,0x10
0ab8 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
0ab9 c403 | | Store 0x2,0x3
0aba e403 | | Load 0x2,0x3
0abb 6831 |h1 | Jump_Zero 0xaed
0abc e404 | | Load 0x2,0x4
0abd 4801 |H | Short_Literal 0x1
0abe 4804 |H | Short_Literal 0x4
0abf e00b | | Load 0x0,0xb
0ac0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ac1 0334 | 4 | Declare_Variable Array,With_Constraint
0ac2 e7ff | | Load 0x3,-0x1
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 4801 |H | Short_Literal 0x1
0ac9 00da | | Load_Top At_Offset_2
0aca 01d6 | | Execute Vector,Field_Write
0acb 0092 0e30 | 0| Action Push_String_Extended,0xe30 ; "Secondary text file"
0acd e00b | | Load 0x0,0xb
0ace 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0acf e00b | | Load 0x0,0xb
0ad0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ad1 0119 | | Execute Any,Check_In_Formal_Type
0ad2 4802 |H | Short_Literal 0x2
0ad3 00da | | Load_Top At_Offset_2
0ad4 01d6 | | Execute Vector,Field_Write
0ad5 e40d | | Load 0x2,0xd
0ad6 e009 | | Load 0x0,0x9
0ad7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0ad8 e00b | | Load 0x0,0xb
0ad9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ada 0119 | | Execute Any,Check_In_Formal_Type
0adb 4803 |H | Short_Literal 0x3
0adc 00da | | Load_Top At_Offset_2
0add 01d6 | | Execute Vector,Field_Write
0ade e415 | | Load 0x2,0x15
0adf e00b | | Load 0x0,0xb
0ae0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0ae1 e00b | | Load 0x0,0xb
0ae2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ae3 0119 | | Execute Any,Check_In_Formal_Type
0ae4 4804 |H | Short_Literal 0x4
0ae5 00da | | Load_Top At_Offset_2
0ae6 01d6 | | Execute Vector,Field_Write
0ae7 6104 |a | Indirect_Literal Discrete,0xbec,{0x00000000, 0x00008816}
0ae8 e001 | | Load 0x0,0x1
0ae9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0aea e001 | | Load 0x0,0x1
0aeb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0aec 0257 | W | Execute Discrete,Raise
0aed e403 | | Load 0x2,0x3
0aee e404 | | Load 0x2,0x4
0aef 4801 |H | Short_Literal 0x1
0af0 e40f | | Load 0x2,0xf
0af1 e410 | | Load 0x2,0x10
0af2 e40e | | Load 0x2,0xe
0af3 e009 | | Load 0x0,0x9
0af4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0af5 e404 | | Load 0x2,0x4
0af6 4801 |H | Short_Literal 0x1
0af7 e40d | | Load 0x2,0xd
0af8 e009 | | Load 0x0,0x9
0af9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0afa e408 | | Load 0x2,0x8
0afb 4800 |H | Short_Literal 0x0
0afc e7ff | | Load 0x3,-0x1
0afd e40d | | Load 0x2,0xd
0afe e005 | | Load 0x0,0x5
0aff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b00 c403 | | Store 0x2,0x3
0b01 e403 | | Load 0x2,0x3
0b02 6828 |h( | Jump_Zero 0xb2b
0b03 e404 | | Load 0x2,0x4
0b04 4801 |H | Short_Literal 0x1
0b05 4803 |H | Short_Literal 0x3
0b06 e00b | | Load 0x0,0xb
0b07 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b08 0334 | 4 | Declare_Variable Array,With_Constraint
0b09 e7ff | | Load 0x3,-0x1
0b0a e00b | | Load 0x0,0xb
0b0b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b0c e00b | | Load 0x0,0xb
0b0d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b0e 0119 | | Execute Any,Check_In_Formal_Type
0b0f 4801 |H | Short_Literal 0x1
0b10 00da | | Load_Top At_Offset_2
0b11 01d6 | | Execute Vector,Field_Write
0b12 0092 0e30 | 0| Action Push_String_Extended,0xe30 ; "Secondary text file"
0b14 e00b | | Load 0x0,0xb
0b15 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b16 e00b | | Load 0x0,0xb
0b17 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b18 0119 | | Execute Any,Check_In_Formal_Type
0b19 4802 |H | Short_Literal 0x2
0b1a 00da | | Load_Top At_Offset_2
0b1b 01d6 | | Execute Vector,Field_Write
0b1c e40d | | Load 0x2,0xd
0b1d e009 | | Load 0x0,0x9
0b1e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b1f e00b | | Load 0x0,0xb
0b20 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b21 0119 | | Execute Any,Check_In_Formal_Type
0b22 4803 |H | Short_Literal 0x3
0b23 00da | | Load_Top At_Offset_2
0b24 01d6 | | Execute Vector,Field_Write
0b25 60c6 |` | Indirect_Literal Discrete,0xbec,{0x00000000, 0x00008816}
0b26 e001 | | Load 0x0,0x1
0b27 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b28 e001 | | Load 0x0,0x1
0b29 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b2a 0257 | W | Execute Discrete,Raise
0b2b e001 | | Load 0x0,0x1
0b2c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b2d e404 | | Load 0x2,0x4
0b2e e40e | | Load 0x2,0xe
0b2f e010 | | Load 0x0,0x10
0b30 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0b31 c403 | | Store 0x2,0x3
0b32 e403 | | Load 0x2,0x3
0b33 6803 |h | Jump_Zero 0xb37
0b34 e001 | | Load 0x0,0x1
0b35 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b36 0257 | W | Execute Discrete,Raise
0b37 e5fc | | Load 0x2,-0x4
0b38 6836 |h6 | Jump_Zero 0xb6f
0b39 e5fb | | Load 0x2,-0x5
0b3a 0f03 | | Execute_Immediate Equal,0x3
0b3b 6833 |h3 | Jump_Zero 0xb6f
0b3c e001 | | Load 0x0,0x1
0b3d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b3e e404 | | Load 0x2,0x4
0b3f e410 | | Load 0x2,0x10
0b40 e40b | | Load 0x2,0xb
0b41 e016 | | Load 0x0,0x16
0b42 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0b43 c403 | | Store 0x2,0x3
0b44 e403 | | Load 0x2,0x3
0b45 6829 |h) | Jump_Zero 0xb6f
0b46 e404 | | Load 0x2,0x4
0b47 4801 |H | Short_Literal 0x1
0b48 4801 |H | Short_Literal 0x1
0b49 e00b | | Load 0x0,0xb
0b4a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b4b 0334 | 4 | Declare_Variable Array,With_Constraint
0b4c 0092 0e31 | 1| Action Push_String_Extended,0xe31 ; "Can't re-promote secondary "
0b4e e40d | | Load 0x2,0xd
0b4f e009 | | Load 0x0,0x9
0b50 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b51 01cc | | Execute Vector,Catenate
0b52 0092 0e32 | 2| Action Push_String_Extended,0xe32 ; " of primary "
0b54 01cc | | Execute Vector,Catenate
0b55 e40b | | Load 0x2,0xb
0b56 e009 | | Load 0x0,0x9
0b57 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0b58 01cc | | Execute Vector,Catenate
0b59 0092 0e33 | 3| Action Push_String_Extended,0xe33 ; " ("
0b5b 01cc | | Execute Vector,Catenate
0b5c e403 | | Load 0x2,0x3
0b5d e001 | | Load 0x0,0x1
0b5e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0b5f 01cc | | Execute Vector,Catenate
0b60 0092 0e34 | 4| Action Push_String_Extended,0xe34 ; ")."
0b62 01cc | | Execute Vector,Catenate
0b63 e00b | | Load 0x0,0xb
0b64 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b65 e00b | | Load 0x0,0xb
0b66 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b67 0119 | | Execute Any,Check_In_Formal_Type
0b68 4801 |H | Short_Literal 0x1
0b69 00da | | Load_Top At_Offset_2
0b6a 01d6 | | Execute Vector,Field_Write
0b6b 4806 |H | Short_Literal 0x6
0b6c 607b |`{ | Indirect_Literal Discrete,0xbe8,{0x00000000, 0x00008893}
0b6d e001 | | Load 0x0,0x1
0b6e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0b6f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b70 4801 |H | Short_Literal 0x1
0b71 a405 | | Store_Unchecked 0x2,0x5
0b72 e404 | | Load 0x2,0x4
0b73 e40d | | Load 0x2,0xd
0b74 e009 | | Load 0x0,0x9
0b75 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b76 7028 |p( | Jump_Nonzero 0xb9f
0b77 e404 | | Load 0x2,0x4
0b78 4801 |H | Short_Literal 0x1
0b79 4803 |H | Short_Literal 0x3
0b7a e00b | | Load 0x0,0xb
0b7b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b7c 0334 | 4 | Declare_Variable Array,With_Constraint
0b7d 0092 0e35 | 5| Action Push_String_Extended,0xe35 ; "Primary"
0b7f e00b | | Load 0x0,0xb
0b80 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b81 e00b | | Load 0x0,0xb
0b82 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b83 0119 | | Execute Any,Check_In_Formal_Type
0b84 4801 |H | Short_Literal 0x1
0b85 00da | | Load_Top At_Offset_2
0b86 01d6 | | Execute Vector,Field_Write
0b87 e40d | | Load 0x2,0xd
0b88 e009 | | Load 0x0,0x9
0b89 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b8a e00b | | Load 0x0,0xb
0b8b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b8c 0119 | | Execute Any,Check_In_Formal_Type
0b8d 4802 |H | Short_Literal 0x2
0b8e 00da | | Load_Top At_Offset_2
0b8f 01d6 | | Execute Vector,Field_Write
0b90 e402 | | Load 0x2,0x2
0b91 e00b | | Load 0x0,0xb
0b92 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b93 e00b | | Load 0x0,0xb
0b94 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b95 0119 | | Execute Any,Check_In_Formal_Type
0b96 4803 |H | Short_Literal 0x3
0b97 00da | | Load_Top At_Offset_2
0b98 01d6 | | Execute Vector,Field_Write
0b99 605a |`Z | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x00008820}
0b9a e001 | | Load 0x0,0x1
0b9b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b9c e001 | | Load 0x0,0x1
0b9d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b9e 0257 | W | Execute Discrete,Raise
0b9f e404 | | Load 0x2,0x4
0ba0 e40d | | Load 0x2,0xd
0ba1 8213 | | Call 0x1,0x13
0ba2 e403 | | Load 0x2,0x3
0ba3 4801 |H | Short_Literal 0x1
0ba4 4801 |H | Short_Literal 0x1
0ba5 4800 |H | Short_Literal 0x0
0ba6 4801 |H | Short_Literal 0x1
0ba7 e404 | | Load 0x2,0x4
0ba8 e009 | | Load 0x0,0x9
0ba9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0baa 4801 |H | Short_Literal 0x1
0bab e40f | | Load 0x2,0xf
0bac e410 | | Load 0x2,0x10
0bad 00ea | | Load_Encached Null_String_Cache
0bae e404 | | Load 0x2,0x4
0baf 4801 |H | Short_Literal 0x1
0bb0 e40d | | Load 0x2,0xd
0bb1 e009 | | Load 0x0,0x9
0bb2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0bb3 e408 | | Load 0x2,0x8
0bb4 4801 |H | Short_Literal 0x1
0bb5 e7ff | | Load 0x3,-0x1
0bb6 e40d | | Load 0x2,0xd
0bb7 e005 | | Load 0x0,0x5
0bb8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0bb9 c403 | | Store 0x2,0x3
0bba e403 | | Load 0x2,0x3
0bbb 6828 |h( | Jump_Zero 0xbe4
0bbc e404 | | Load 0x2,0x4
0bbd 4801 |H | Short_Literal 0x1
0bbe 4803 |H | Short_Literal 0x3
0bbf e00b | | Load 0x0,0xb
0bc0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bc1 0334 | 4 | Declare_Variable Array,With_Constraint
0bc2 e7ff | | Load 0x3,-0x1
0bc3 e00b | | Load 0x0,0xb
0bc4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0bc5 e00b | | Load 0x0,0xb
0bc6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bc7 0119 | | Execute Any,Check_In_Formal_Type
0bc8 4801 |H | Short_Literal 0x1
0bc9 00da | | Load_Top At_Offset_2
0bca 01d6 | | Execute Vector,Field_Write
0bcb 0092 0e24 | $| Action Push_String_Extended,0xe24 ; "local Ada unit"
0bcd e00b | | Load 0x0,0xb
0bce 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0bcf e00b | | Load 0x0,0xb
0bd0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bd1 0119 | | Execute Any,Check_In_Formal_Type
0bd2 4802 |H | Short_Literal 0x2
0bd3 00da | | Load_Top At_Offset_2
0bd4 01d6 | | Execute Vector,Field_Write
0bd5 e40d | | Load 0x2,0xd
0bd6 e009 | | Load 0x0,0x9
0bd7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0bd8 e00b | | Load 0x0,0xb
0bd9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bda 0119 | | Execute Any,Check_In_Formal_Type
0bdb 4803 |H | Short_Literal 0x3
0bdc 00da | | Load_Top At_Offset_2
0bdd 01d6 | | Execute Vector,Field_Write
0bde 600d |` | Indirect_Literal Discrete,0xbec,{0x00000000, 0x00008816}
0bdf e001 | | Load 0x0,0x1
0be0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0be1 e001 | | Load 0x0,0x1
0be2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0be3 0257 | W | Execute Discrete,Raise
0be4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0be5 0000 0000 | | .XXX[0x3]
0be7 0000 | |
0be8 0000 0000 | | .LITERAL {0x00000000, 0x00008893}
0bec 0000 0000 | | .LITERAL {0x00000000, 0x00008816}
0bf0 0000 0000 | | .LITERAL {0x00000000, 0x0000889b}
0bf4 0000 0000 | | .LITERAL {0x00000000, 0x00008820}
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; SUBPROGRAM
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0c01 | | .CONST 0x0c01 ; Address of begin
0bf9 0004 | | .CONST 0x0004 ; Address of exception handler
0bfa 0002 | | .CONST 0x0002 ; Number of locals
0bfb INIT_0bf8:
0bfb e404 | | Load 0x2,0x4
0bfc e409 | | Load 0x2,0x9
0bfd e410 | | Load 0x2,0x10
0bfe e40d | | Load 0x2,0xd
0bff e408 | | Load 0x2,0x8
0c00 8212 | | Call 0x1,0x12
0c01 BODY_0bf8:
0c01 e404 | | Load 0x2,0x4
0c02 4801 |H | Short_Literal 0x1
0c03 4802 |H | Short_Literal 0x2
0c04 e00b | | Load 0x0,0xb
0c05 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c06 0334 | 4 | Declare_Variable Array,With_Constraint
0c07 00da | | Load_Top At_Offset_2
0c08 e00b | | Load 0x0,0xb
0c09 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c0a e00b | | Load 0x0,0xb
0c0b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c0c 0119 | | Execute Any,Check_In_Formal_Type
0c0d 4801 |H | Short_Literal 0x1
0c0e 00da | | Load_Top At_Offset_2
0c0f 01d6 | | Execute Vector,Field_Write
0c10 e40d | | Load 0x2,0xd
0c11 e009 | | Load 0x0,0x9
0c12 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c13 e00b | | Load 0x0,0xb
0c14 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c15 0119 | | Execute Any,Check_In_Formal_Type
0c16 4802 |H | Short_Literal 0x2
0c17 00da | | Load_Top At_Offset_2
0c18 01d6 | | Execute Vector,Field_Write
0c19 60c2 |` | Indirect_Literal Discrete,0xcdc,{0x00000000, 0x00008878}
0c1a e001 | | Load 0x0,0x1
0c1b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c1c e404 | | Load 0x2,0x4
0c1d e409 | | Load 0x2,0x9
0c1e e5fd | | Load 0x2,-0x3
0c1f 00db | | Load_Top At_Offset_3
0c20 e40f | | Load 0x2,0xf
0c21 e410 | | Load 0x2,0x10
0c22 e408 | | Load 0x2,0x8
0c23 e40d | | Load 0x2,0xd
0c24 e005 | | Load 0x0,0x5
0c25 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c26 a412 | | Store_Unchecked 0x2,0x12
0c27 e412 | | Load 0x2,0x12
0c28 4605 |F | Jump_Case 0x6
0c29 780b |x | Jump 0xc35 ; case 0x0
0c2a 7807 |x | Jump 0xc32 ; case 0x1
0c2b 7888 |x | Jump 0xcb4 ; case 0x2
0c2c 786a |xj | Jump 0xc97 ; case 0x3
0c2d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
0c2e 7800 |x | Jump 0xc2f ; case 0x5
0c2f 4801 |H | Short_Literal 0x1
0c30 a416 | | Store_Unchecked 0x2,0x16
0c31 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c32 00d8 | | Load_Top At_Offset_0
0c33 8417 | | Call 0x2,0x17
0c34 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c35 e409 | | Load 0x2,0x9
0c36 6830 |h0 | Jump_Zero 0xc67
0c37 e404 | | Load 0x2,0x4
0c38 4801 |H | Short_Literal 0x1
0c39 4804 |H | Short_Literal 0x4
0c3a e00b | | Load 0x0,0xb
0c3b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c3c 0334 | 4 | Declare_Variable Array,With_Constraint
0c3d 0092 0e36 | 6| Action Push_String_Extended,0xe36 ; "Secondary unit"
0c3f e00b | | Load 0x0,0xb
0c40 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c41 e00b | | Load 0x0,0xb
0c42 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c43 0119 | | Execute Any,Check_In_Formal_Type
0c44 4801 |H | Short_Literal 0x1
0c45 00da | | Load_Top At_Offset_2
0c46 01d6 | | Execute Vector,Field_Write
0c47 e40d | | Load 0x2,0xd
0c48 e009 | | Load 0x0,0x9
0c49 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c4a e00b | | Load 0x0,0xb
0c4b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c4c 0119 | | Execute Any,Check_In_Formal_Type
0c4d 4802 |H | Short_Literal 0x2
0c4e 00da | | Load_Top At_Offset_2
0c4f 01d6 | | Execute Vector,Field_Write
0c50 00da | | Load_Top At_Offset_2
0c51 e00b | | Load 0x0,0xb
0c52 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c53 e00b | | Load 0x0,0xb
0c54 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c55 0119 | | Execute Any,Check_In_Formal_Type
0c56 4803 |H | Short_Literal 0x3
0c57 00da | | Load_Top At_Offset_2
0c58 01d6 | | Execute Vector,Field_Write
0c59 0092 0e37 | 7| Action Push_String_Extended,0xe37 ; ", so it won't be changed"
0c5b e00b | | Load 0x0,0xb
0c5c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c5d e00b | | Load 0x0,0xb
0c5e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c5f 0119 | | Execute Any,Check_In_Formal_Type
0c60 4804 |H | Short_Literal 0x4
0c61 00da | | Load_Top At_Offset_2
0c62 01d6 | | Execute Vector,Field_Write
0c63 6074 |`t | Indirect_Literal Discrete,0xcd8,{0x00000000, 0x0000884b}
0c64 e001 | | Load 0x0,0x1
0c65 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c66 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c67 e404 | | Load 0x2,0x4
0c68 4801 |H | Short_Literal 0x1
0c69 4804 |H | Short_Literal 0x4
0c6a e00b | | Load 0x0,0xb
0c6b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c6c 0334 | 4 | Declare_Variable Array,With_Constraint
0c6d 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Unit"
0c6f e00b | | Load 0x0,0xb
0c70 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c71 e00b | | Load 0x0,0xb
0c72 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c73 0119 | | Execute Any,Check_In_Formal_Type
0c74 4801 |H | Short_Literal 0x1
0c75 00da | | Load_Top At_Offset_2
0c76 01d6 | | Execute Vector,Field_Write
0c77 e40d | | Load 0x2,0xd
0c78 e009 | | Load 0x0,0x9
0c79 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c7a e00b | | Load 0x0,0xb
0c7b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c7c 0119 | | Execute Any,Check_In_Formal_Type
0c7d 4802 |H | Short_Literal 0x2
0c7e 00da | | Load_Top At_Offset_2
0c7f 01d6 | | Execute Vector,Field_Write
0c80 00da | | Load_Top At_Offset_2
0c81 e00b | | Load 0x0,0xb
0c82 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c83 e00b | | Load 0x0,0xb
0c84 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c85 0119 | | Execute Any,Check_In_Formal_Type
0c86 4803 |H | Short_Literal 0x3
0c87 00da | | Load_Top At_Offset_2
0c88 01d6 | | Execute Vector,Field_Write
0c89 0092 0e37 | 7| Action Push_String_Extended,0xe37 ; ", so it won't be changed"
0c8b e00b | | Load 0x0,0xb
0c8c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c8d e00b | | Load 0x0,0xb
0c8e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c8f 0119 | | Execute Any,Check_In_Formal_Type
0c90 4804 |H | Short_Literal 0x4
0c91 00da | | Load_Top At_Offset_2
0c92 01d6 | | Execute Vector,Field_Write
0c93 6044 |`D | Indirect_Literal Discrete,0xcd8,{0x00000000, 0x0000884b}
0c94 e001 | | Load 0x0,0x1
0c95 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c96 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c97 e404 | | Load 0x2,0x4
0c98 4801 |H | Short_Literal 0x1
0c99 4802 |H | Short_Literal 0x2
0c9a e00b | | Load 0x0,0xb
0c9b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c9c 0334 | 4 | Declare_Variable Array,With_Constraint
0c9d 0092 0e38 | 8| Action Push_String_Extended,0xe38 ; "Unexpected unit status of 'Changed_On_Both'"
0c9f e00b | | Load 0x0,0xb
0ca0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ca1 e00b | | Load 0x0,0xb
0ca2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ca3 0119 | | Execute Any,Check_In_Formal_Type
0ca4 4801 |H | Short_Literal 0x1
0ca5 00da | | Load_Top At_Offset_2
0ca6 01d6 | | Execute Vector,Field_Write
0ca7 e402 | | Load 0x2,0x2
0ca8 e00b | | Load 0x0,0xb
0ca9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0caa e00b | | Load 0x0,0xb
0cab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cac 0119 | | Execute Any,Check_In_Formal_Type
0cad 4802 |H | Short_Literal 0x2
0cae 00da | | Load_Top At_Offset_2
0caf 01d6 | | Execute Vector,Field_Write
0cb0 6023 |`# | Indirect_Literal Discrete,0xcd4,{0x00000000, 0x00008be9}
0cb1 e001 | | Load 0x0,0x1
0cb2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cb3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cb4 e404 | | Load 0x2,0x4
0cb5 4801 |H | Short_Literal 0x1
0cb6 4802 |H | Short_Literal 0x2
0cb7 e00b | | Load 0x0,0xb
0cb8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cb9 0334 | 4 | Declare_Variable Array,With_Constraint
0cba 0092 0e39 | 9| Action Push_String_Extended,0xe39 ; "Unexpected unit status of 'Changed_On_Host'"
0cbc e00b | | Load 0x0,0xb
0cbd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cbe e00b | | Load 0x0,0xb
0cbf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cc0 0119 | | Execute Any,Check_In_Formal_Type
0cc1 4801 |H | Short_Literal 0x1
0cc2 00da | | Load_Top At_Offset_2
0cc3 01d6 | | Execute Vector,Field_Write
0cc4 e402 | | Load 0x2,0x2
0cc5 e00b | | Load 0x0,0xb
0cc6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cc7 e00b | | Load 0x0,0xb
0cc8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cc9 0119 | | Execute Any,Check_In_Formal_Type
0cca 4802 |H | Short_Literal 0x2
0ccb 00da | | Load_Top At_Offset_2
0ccc 01d6 | | Execute Vector,Field_Write
0ccd 6006 |` | Indirect_Literal Discrete,0xcd4,{0x00000000, 0x00008be9}
0cce e001 | | Load 0x0,0x1
0ccf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cd0 4801 |H | Short_Literal 0x1
0cd1 a416 | | Store_Unchecked 0x2,0x16
0cd2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cd3 0000 | | .XXX[0x1]
0cd4 0000 0000 | | .LITERAL {0x00000000, 0x00008be9}
0cd8 0000 0000 | | .LITERAL {0x00000000, 0x0000884b}
0cdc 0000 0000 | | .LITERAL {0x00000000, 0x00008878}
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0cf8 | | .CONST 0x0cf8 ; Address of begin
0ce1 0004 | | .CONST 0x0004 ; Address of exception handler
0ce2 0007 | | .CONST 0x0007 ; Number of locals
0ce3 INIT_0ce0:
0ce3 e003 | | Load 0x0,0x3
0ce4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ce5 02c7 | | Declare_Variable Any
0ce6 00d8 | | Load_Top At_Offset_0
0ce7 1c00 | | Execute_Immediate Run_Utility,0x0
0ce8 00e1 | | Load_Encached Boolean_Cache
0ce9 00e2 | | Load_Encached Integer_Cache
0cea e001 | | Load 0x0,0x1
0ceb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cec e5fc | | Load 0x2,-0x4
0ced e408 | | Load 0x2,0x8
0cee 8215 | | Call 0x1,0x15
0cef e003 | | Load 0x0,0x3
0cf0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cf1 02c7 | | Declare_Variable Any
0cf2 e404 | | Load 0x2,0x4
0cf3 4800 |H | Short_Literal 0x0
0cf4 00db | | Load_Top At_Offset_3
0cf5 e009 | | Load 0x0,0x9
0cf6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0cf7 a607 | | Store_Unchecked 0x3,0x7
0cf8 BODY_0ce0:
0cf8 e001 | | Load 0x0,0x1
0cf9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cfa 00e2 | | Load_Encached Integer_Cache
0cfb 00e1 | | Load_Encached Boolean_Cache
0cfc e602 | | Load 0x3,0x2
0cfd 0120 | | Execute Any,Is_Value
0cfe 6803 |h | Jump_Zero 0xd02
0cff e003 | | Load 0x0,0x3
0d00 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d01 7801 |x | Jump 0xd03
0d02 e602 | | Load 0x3,0x2
0d03 e404 | | Load 0x2,0x4
0d04 e607 | | Load 0x3,0x7
0d05 e010 | | Load 0x0,0x10
0d06 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0d07 c602 | | Store 0x3,0x2
0d08 c603 | | Store 0x3,0x3
0d09 c604 | | Store 0x3,0x4
0d0a 005b | [ | Store_Top Discrete,At_Offset_3
0d0b 00da | | Load_Top At_Offset_2
0d0c 6803 |h | Jump_Zero 0xd10
0d0d e001 | | Load 0x0,0x1
0d0e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0d0f 0257 | W | Execute Discrete,Raise
0d10 e603 | | Load 0x3,0x3
0d11 6820 |h | Jump_Zero 0xd32
0d12 e404 | | Load 0x2,0x4
0d13 4801 |H | Short_Literal 0x1
0d14 4801 |H | Short_Literal 0x1
0d15 e00b | | Load 0x0,0xb
0d16 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d17 0334 | 4 | Declare_Variable Array,With_Constraint
0d18 0092 0e3a | :| Action Push_String_Extended,0xe3a ; "Can't upload from remote unit \x22"
0d1a e5ff | | Load 0x2,-0x1
0d1b 01cc | | Execute Vector,Catenate
0d1c 0092 0e3b | ;| Action Push_String_Extended,0xe3b ; "\x22 into secondary file \x22"
0d1e 01cc | | Execute Vector,Catenate
0d1f e5fc | | Load 0x2,-0x4
0d20 01cc | | Execute Vector,Catenate
0d21 0092 0e3c | <| Action Push_String_Extended,0xe3c ; "\x22."
0d23 01cc | | Execute Vector,Catenate
0d24 e00b | | Load 0x0,0xb
0d25 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d26 e00b | | Load 0x0,0xb
0d27 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d28 0119 | | Execute Any,Check_In_Formal_Type
0d29 4801 |H | Short_Literal 0x1
0d2a 00da | | Load_Top At_Offset_2
0d2b 01d6 | | Execute Vector,Field_Write
0d2c 4807 |H | Short_Literal 0x7
0d2d 604a |`J | Indirect_Literal Discrete,0xd78,{0x00000000, 0x00008893}
0d2e e001 | | Load 0x0,0x1
0d2f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d30 e00f | | Load 0x0,0xf
0d31 0257 | W | Execute Discrete,Raise
0d32 00d8 | | Load_Top At_Offset_0
0d33 e003 | | Load 0x0,0x3
0d34 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0d35 7020 |p | Jump_Nonzero 0xd56
0d36 e404 | | Load 0x2,0x4
0d37 4801 |H | Short_Literal 0x1
0d38 4801 |H | Short_Literal 0x1
0d39 e00b | | Load 0x0,0xb
0d3a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d3b 0334 | 4 | Declare_Variable Array,With_Constraint
0d3c 0092 0e3a | :| Action Push_String_Extended,0xe3a ; "Can't upload from remote unit \x22"
0d3e e5ff | | Load 0x2,-0x1
0d3f 01cc | | Execute Vector,Catenate
0d40 0092 0e3d | =| Action Push_String_Extended,0xe3d ; "\x22 into existing text file \x22"
0d42 01cc | | Execute Vector,Catenate
0d43 e5fc | | Load 0x2,-0x4
0d44 01cc | | Execute Vector,Catenate
0d45 0092 0e3c | <| Action Push_String_Extended,0xe3c ; "\x22."
0d47 01cc | | Execute Vector,Catenate
0d48 e00b | | Load 0x0,0xb
0d49 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d4a e00b | | Load 0x0,0xb
0d4b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d4c 0119 | | Execute Any,Check_In_Formal_Type
0d4d 4801 |H | Short_Literal 0x1
0d4e 00da | | Load_Top At_Offset_2
0d4f 01d6 | | Execute Vector,Field_Write
0d50 4807 |H | Short_Literal 0x7
0d51 6026 |`& | Indirect_Literal Discrete,0xd78,{0x00000000, 0x00008893}
0d52 e001 | | Load 0x0,0x1
0d53 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d54 e00f | | Load 0x0,0xf
0d55 0257 | W | Execute Discrete,Raise
0d56 e404 | | Load 0x2,0x4
0d57 4801 |H | Short_Literal 0x1
0d58 4802 |H | Short_Literal 0x2
0d59 e00b | | Load 0x0,0xb
0d5a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d5b 0334 | 4 | Declare_Variable Array,With_Constraint
0d5c e5ff | | Load 0x2,-0x1
0d5d e00b | | Load 0x0,0xb
0d5e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d5f e00b | | Load 0x0,0xb
0d60 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d61 0119 | | Execute Any,Check_In_Formal_Type
0d62 4801 |H | Short_Literal 0x1
0d63 00da | | Load_Top At_Offset_2
0d64 01d6 | | Execute Vector,Field_Write
0d65 e5fc | | Load 0x2,-0x4
0d66 e00b | | Load 0x0,0xb
0d67 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d68 e00b | | Load 0x0,0xb
0d69 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d6a 0119 | | Execute Any,Check_In_Formal_Type
0d6b 4802 |H | Short_Literal 0x2
0d6c 00da | | Load_Top At_Offset_2
0d6d 01d6 | | Execute Vector,Field_Write
0d6e 6005 |` | Indirect_Literal Discrete,0xd74,{0x00000000, 0x0000887e}
0d6f e001 | | Load 0x0,0x1
0d70 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d71 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d72 0000 0000 | | .XXX[0x2]
0d74 0000 0000 | | .LITERAL {0x00000000, 0x0000887e}
0d78 0000 0000 | | .LITERAL {0x00000000, 0x00008893}
0d7c 0000 0000 | | .BLANK 0000[0x4]
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d85 | | .CONST 0x0d85 ; Address of begin
0d81 0004 | | .CONST 0x0004 ; Address of exception handler
0d82 0002 | | .CONST 0x0002 ; Number of locals
0d83 INIT_0d80:
0d83 00e2 | | Load_Encached Integer_Cache
0d84 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d85 BODY_0d80:
0d85 4800 |H | Short_Literal 0x0
0d86 e7ff | | Load 0x3,-0x1
0d87 0092 0e3e | >| Action Push_String_Extended,0xe3e ; " "
0d89 e012 | | Load 0x0,0x12
0d8a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0d8b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0d8c 00d8 | | Load_Top At_Offset_0
0d8d 7002 |p | Jump_Nonzero 0xd90
0d8e 00db | | Load_Top At_Offset_3
0d8f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d90 00db | | Load_Top At_Offset_3
0d91 01dd | | Execute Vector,First
0d92 00d9 | | Load_Top At_Offset_1
0d93 0aff | | Execute_Immediate Plus,-0x1
0d94 00d8 | | Load_Top At_Offset_0
0d95 00e2 | | Load_Encached Integer_Cache
0d96 0260 | ` | Execute Discrete,In_Type
0d97 7001 |p | Jump_Nonzero 0xd99
0d98 0801 | | Execute_Immediate Raise,0x1
0d99 e7ff | | Load 0x3,-0x1
0d9a 01cf | | Execute Vector,Slice_Read
0d9b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d9c 0000 0000 | | .BLANK 0000[0x4]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0da5 | | .CONST 0x0da5 ; Address of begin
0da1 0004 | | .CONST 0x0004 ; Address of exception handler
0da2 0002 | | .CONST 0x0002 ; Number of locals
0da3 INIT_0da0:
0da3 00e2 | | Load_Encached Integer_Cache
0da4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0da5 BODY_0da0:
0da5 4800 |H | Short_Literal 0x0
0da6 e7ff | | Load 0x3,-0x1
0da7 0092 0e3e | >| Action Push_String_Extended,0xe3e ; " "
0da9 e012 | | Load 0x0,0x12
0daa 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0dab 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0dac 00d8 | | Load_Top At_Offset_0
0dad 7002 |p | Jump_Nonzero 0xdb0
0dae 00ea | | Load_Encached Null_String_Cache
0daf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0db0 00d8 | | Load_Top At_Offset_0
0db1 0a01 | | Execute_Immediate Plus,0x1
0db2 00d8 | | Load_Top At_Offset_0
0db3 00e2 | | Load_Encached Integer_Cache
0db4 0260 | ` | Execute Discrete,In_Type
0db5 7001 |p | Jump_Nonzero 0xdb7
0db6 0801 | | Execute_Immediate Raise,0x1
0db7 e7ff | | Load 0x3,-0x1
0db8 01dc | | Execute Vector,Last
0db9 e7ff | | Load 0x3,-0x1
0dba 01cf | | Execute Vector,Slice_Read
0dbb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dbc 0000 0000 | | .BLANK 0000[0x4]
0dc0 ; --------------------------------------------------------------------------------------
0dc0 ; SUBPROGRAM
0dc0 ; --------------------------------------------------------------------------------------
0dc0 0dd0 | | .CONST 0x0dd0 ; Address of begin
0dc1 0004 | | .CONST 0x0004 ; Address of exception handler
0dc2 0004 | | .CONST 0x0004 ; Number of locals
0dc3 INIT_0dc0:
0dc3 4820 |H | Short_Literal 0x20
0dc4 4820 |H | Short_Literal 0x20
0dc5 e406 | | Load 0x2,0x6
0dc6 e013 | | Load 0x0,0x13
0dc7 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0dc8 e012 | | Load 0x0,0x12
0dc9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0dca e012 | | Load 0x0,0x12
0dcb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0dcc 00d8 | | Load_Top At_Offset_0
0dcd 8409 | | Call 0x2,0x9
0dce 00d9 | | Load_Top At_Offset_1
0dcf 8408 | | Call 0x2,0x8
0dd0 BODY_0dc0:
0dd0 00d8 | | Load_Top At_Offset_0
0dd1 01db | | Execute Vector,Length
0dd2 7002 |p | Jump_Nonzero 0xdd5
0dd3 e014 | | Load 0x0,0x14
0dd4 0257 | W | Execute Discrete,Raise
0dd5 00d9 | | Load_Top At_Offset_1
0dd6 01db | | Execute Vector,Length
0dd7 7003 |p | Jump_Nonzero 0xddb
0dd8 4800 |H | Short_Literal 0x0
0dd9 a407 | | Store_Unchecked 0x2,0x7
0dda 7802 |x | Jump 0xddd
0ddb 4801 |H | Short_Literal 0x1
0ddc a407 | | Store_Unchecked 0x2,0x7
0ddd e5fd | | Load 0x2,-0x3
0dde 00da | | Load_Top At_Offset_2
0ddf e407 | | Load 0x2,0x7
0de0 e5fe | | Load 0x2,-0x2
0de1 e604 | | Load 0x3,0x4
0de2 820f | | Call 0x1,0xf
0de3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0de4 0000 0000 | | .BLANK 0000[0x4]
0de8 ; --------------------------------------------------------------------------------------
0de8 ; SUBPROGRAM
0de8 ; --------------------------------------------------------------------------------------
0de8 0df1 | | .CONST 0x0df1 ; Address of begin
0de9 0004 | | .CONST 0x0004 ; Address of exception handler
0dea 0002 | | .CONST 0x0002 ; Number of locals
0deb INIT_0de8:
0deb e5fb | | Load 0x2,-0x5
0dec e5fd | | Load 0x2,-0x3
0ded e5fe | | Load 0x2,-0x2
0dee e5ff | | Load 0x2,-0x1
0def e010 | | Load 0x0,0x10
0df0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0df1 BODY_0de8:
0df1 00d8 | | Load_Top At_Offset_0
0df2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0df3 6803 |h | Jump_Zero 0xdf7
0df4 e001 | | Load 0x0,0x1
0df5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0df6 0257 | W | Execute Discrete,Raise
0df7 00d8 | | Load_Top At_Offset_0
0df8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0df9 00cb | | Action Pop_Block_With_Result
0dfa 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0dfb 0000 0000 | | .BLANK 0000[0x5]
0e00 ; --------------------------------------------------------------------------------------
0e00 ; SUBPROGRAM
0e00 ; --------------------------------------------------------------------------------------
0e00 0e07 | | .CONST 0x0e07 ; Address of begin
0e01 0004 | | .CONST 0x0004 ; Address of exception handler
0e02 0002 | | .CONST 0x0002 ; Number of locals
0e03 INIT_0e00:
0e03 e5fb | | Load 0x2,-0x5
0e04 e5fe | | Load 0x2,-0x2
0e05 e010 | | Load 0x0,0x10
0e06 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
0e07 BODY_0e00:
0e07 00d8 | | Load_Top At_Offset_0
0e08 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0e09 6803 |h | Jump_Zero 0xe0d
0e0a e001 | | Load 0x0,0x1
0e0b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0e0c 0257 | W | Execute Discrete,Raise
0e0d 00d8 | | Load_Top At_Offset_0
0e0e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e0f 00cb | | Action Pop_Block_With_Result
0e10 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0e11 ; --------------------------------------------------------------------------------------
0e11 ; STRING TABLE
0e11 ; --------------------------------------------------------------------------------------
0e11 005e | ^ | .STRTAB 0x005e->0x0e40 ; "Check_Consistency"
0e12 006d | m | .STRTAB 0x006d->0x0e48 ; "Rcf."
0e13 006f | o | .STRTAB 0x006f->0x0e4a ; "Unit"
0e14 0071 | q | .STRTAB 0x0071->0x0e4c ; " compare_objects => "
0e15 0083 | | .STRTAB 0x0083->0x0e56 ; ", Response"
0e16 008b | | .STRTAB 0x008b->0x0e5b ; "Accept_Remote_Changes"
0e17 009e | | .STRTAB 0x009e->0x0e66 ; "Allow_Demotion => "
0e18 00ae | | .STRTAB 0x00ae->0x0e6f ; ", Compare_Objects => "
0e19 00c1 | | .STRTAB 0x00c1->0x0e79 ; ", Remake_Demoted_Units => "
0e1a 00d9 | | .STRTAB 0x00d9->0x0e86 ; ", Goal => "
0e1b 00e1 | | .STRTAB 0x00e1->0x0e8b ; "text unit "
0e1c 00e9 | | .STRTAB 0x00e9->0x0e90 ; "<ALL_WORLDS>"
0e1d 00f3 | | .STRTAB 0x00f3->0x0e96 ; "Upload_Unit"
0e1e 00fc | | .STRTAB 0x00fc->0x0e9c ; "Remote_Unit_Name"
0e1f 010a | | .STRTAB 0x010a->0x0ea4 ; "Into_View"
0e20 0111 | | .STRTAB 0x0111->0x0ea8 ; "Upload_To_Text_File => "
0e21 0126 | & | .STRTAB 0x0126->0x0eb4 ; ", Host_Text_File_Name"
0e22 0139 | 9 | .STRTAB 0x0139->0x0ebe ; "Response"
0e23 013f | ? | .STRTAB 0x013f->0x0ec2 ; "text file"
0e24 0146 | F | .STRTAB 0x0146->0x0ec7 ; "local Ada unit"
0e25 0152 | R | .STRTAB 0x0152->0x0ece ; "upload_specification_file"
0e26 0169 | i | .STRTAB 0x0169->0x0eda ; "Set_Remote_Unit_Name"
0e27 017b | { | .STRTAB 0x017b->0x0ee4 ; "Remote_Name"
0e28 0184 | | .STRTAB 0x0184->0x0eea ; ".Units."
0e29 0189 | | .STRTAB 0x0189->0x0eed ; "."
0e2a 0188 | | .STRTAB 0x0188->0x0eee ; ".units"
0e2b 018c | | .STRTAB 0x018c->0x0ef1 ; "Non ada unit associated with secondary "
0e2c 01b1 | | .STRTAB 0x01b1->0x0f04 ; " of Primary"
0e2d 01ba | | .STRTAB 0x01ba->0x0f0a ; "Unexpected unit status is 'Changed_On_Both'"
0e2e 01e3 | | .STRTAB 0x01e3->0x0f1f ; "Unexpected unit status is 'Changed_On_Host'"
0e2f 020c | | .STRTAB 0x020c->0x0f35 ; "Secondary "
0e30 0214 | | .STRTAB 0x0214->0x0f3a ; "Secondary text file"
0e31 0225 | % | .STRTAB 0x0225->0x0f43 ; "Can't re-promote secondary "
0e32 023e | > | .STRTAB 0x023e->0x0f51 ; " of primary "
0e33 0248 | H | .STRTAB 0x0248->0x0f57 ; " ("
0e34 0248 | H | .STRTAB 0x0248->0x0f58 ; ")."
0e35 0248 | H | .STRTAB 0x0248->0x0f59 ; "Primary"
0e36 024d | M | .STRTAB 0x024d->0x0f5c ; "Secondary unit"
0e37 0259 | Y | .STRTAB 0x0259->0x0f63 ; ", so it won't be changed"
0e38 026f | o | .STRTAB 0x026f->0x0f6f ; "Unexpected unit status of 'Changed_On_Both'"
0e39 0298 | | .STRTAB 0x0298->0x0f85 ; "Unexpected unit status of 'Changed_On_Host'"
0e3a 02c1 | | .STRTAB 0x02c1->0x0f9a ; "Can't upload from remote unit \x22"
0e3b 02de | | .STRTAB 0x02de->0x0faa ; "\x22 into secondary file \x22"
0e3c 02f3 | | .STRTAB 0x02f3->0x0fb5 ; "\x22."
0e3d 02f3 | | .STRTAB 0x02f3->0x0fb6 ; "\x22 into existing text file \x22"
0e3e 030c | | .STRTAB 0x030c->0x0fc4 ; " "
0e3f 030b | | .STREND 0x030b->0x0fc4
0e40 4368 6563 |Chec| .STRTAB_STRINGS
0fc5 0000 0000 | | .XXX[0x3]
0fc7 0000 | |
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; Debug Table
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0004 000c | | .DEBUG4 0x0004,0x000c,0x1696,0x0000,0x0001,0x0000
0fce 0000 0000 | | .XXX[0x2e]
0fd0 0020 0000 | |
0fd2 0000 0000 | |
0fd4 0008 1f94 | |
0fd6 8d9a 9ab0 | |
0fd8 0001 240f | $ |
0fda ca46 cd70 | F p|
0fdc f000 0092 | |
0fde 07e5 2366 | #f|
0fe0 b878 0000 | x |
0fe2 4800 020e |H |
0fe4 1000 0000 | |
0fe6 0000 0002 | |
0fe8 0000 0002 | |
0fea 0db9 8000 | |
0fec 0002 c000 | |
0fee 0f73 4047 | s@G|
0ff0 96f6 8000 | |
0ff2 0000 0000 | |
0ff4 0000 0557 | W|
0ff6 a160 0000 | ` |
0ff8 01d0 79a1 | y |
0ffa 4000 0010 |@ |
0ffc 0000 0000 | | .BLANK 0000[0x4]