|
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: 18432 (0x4800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 2340 |#@ | .CONST 0x2340 ; 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 8014 | | .CONST 0x8014 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0107 | | .CONST 0x0107 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0074 | t | .CONST 0x0074 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0064 c247 | G | Store 0x1,0x47
0065 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0067 c248 | H | Store 0x1,0x48
0068 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
006a c249 | I | Store 0x1,0x49
006b 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
006d c24a | J | Store 0x1,0x4a
006e 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated
0070 c24b | K | Store 0x1,0x4b
0071 029a 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call,Visible,Unelaborated
0073 c212 | | Store 0x1,0x12
0074 029a 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Visible,Unelaborated
0076 c252 | R | Store 0x1,0x52
0077 029a 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Visible,Unelaborated
0079 c24d | M | Store 0x1,0x4d
007a 029a 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call,Visible,Unelaborated
007c c253 | S | Store 0x1,0x53
007d 029a 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call,Visible,Unelaborated
007f c254 | T | Store 0x1,0x54
0080 029a 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call,Visible,Unelaborated
0082 c255 | U | Store 0x1,0x55
0083 029a 0ac3 | | Declare_Subprogram INIT_0ac0,For_Outer_Call,Visible,Unelaborated
0085 c256 | V | Store 0x1,0x56
0086 029a 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call,Visible,Unelaborated
0088 c234 | 4 | Store 0x1,0x34
0089 029a 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call,Visible,Unelaborated
008b c25f | _ | Store 0x1,0x5f
008c 029a 0c4b | K| Declare_Subprogram INIT_0c48,For_Outer_Call,Visible,Unelaborated
008e c260 | ` | Store 0x1,0x60
008f 029a 0cfb | | Declare_Subprogram INIT_0cf8,For_Outer_Call,Visible,Unelaborated
0091 c257 | W | Store 0x1,0x57
0092 029a 0eb3 | | Declare_Subprogram INIT_0eb0,For_Outer_Call,Visible,Unelaborated
0094 c258 | X | Store 0x1,0x58
0095 029a 0f8b | | Declare_Subprogram INIT_0f88,For_Outer_Call,Visible,Unelaborated
0097 c259 | Y | Store 0x1,0x59
0098 029a 0ff3 | | Declare_Subprogram INIT_0ff0,For_Outer_Call,Visible,Unelaborated
009a c25a | Z | Store 0x1,0x5a
009b 029a 105b | [| Declare_Subprogram INIT_1058,For_Outer_Call,Visible,Unelaborated
009d c25b | [ | Store 0x1,0x5b
009e 029a 10e3 | | Declare_Subprogram INIT_10e0,For_Outer_Call,Visible,Unelaborated
00a0 c25c | \ | Store 0x1,0x5c
00a1 029a 116b | k| Declare_Subprogram INIT_1168,For_Outer_Call,Visible,Unelaborated
00a3 c25d | ] | Store 0x1,0x5d
00a4 029a 11db | | Declare_Subprogram INIT_11d8,For_Outer_Call,Visible,Unelaborated
00a6 c25e | ^ | Store 0x1,0x5e
00a7 029a 1243 | C| Declare_Subprogram INIT_1240,For_Outer_Call,Visible,Unelaborated
00a9 c262 | b | Store 0x1,0x62
00aa 029a 12c3 | | Declare_Subprogram INIT_12c0,For_Outer_Call,Visible,Unelaborated
00ac c263 | c | Store 0x1,0x63
00ad 029a 133b | ;| Declare_Subprogram INIT_1338,For_Outer_Call,Visible,Unelaborated
00af c261 | a | Store 0x1,0x61
00b0 00bf | | Action Accept_Activation
00b1 00e1 | | Load_Encached Boolean_Cache
00b2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b3 029d 138b | | Declare_Subprogram INIT_1388,For_Outer_Call
00b5 029d 139b | | Declare_Subprogram INIT_1398,For_Outer_Call
00b7 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00ba 00c7 | | Action Elaborate_Subprogram
00bb 029d 13e3 | | Declare_Subprogram INIT_13e0,For_Outer_Call
00bd 029d 140b | | Declare_Subprogram INIT_1408,For_Outer_Call
00bf 029d 141b | | Declare_Subprogram INIT_1418,For_Outer_Call
00c1 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
00cc 00c7 | | Action Elaborate_Subprogram
00cd 029d 1433 | 3| Declare_Subprogram INIT_1430,For_Outer_Call
00cf 029d 14eb | | Declare_Subprogram INIT_14e8,For_Outer_Call
00d1 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00d2 00c7 | | Action Elaborate_Subprogram
00d3 029d 1593 | | Declare_Subprogram INIT_1590,For_Outer_Call
00d5 029d 1613 | | Declare_Subprogram INIT_1610,For_Outer_Call
00d7 029d 162b | +| Declare_Subprogram INIT_1628,For_Outer_Call
00d9 029d 1653 | S| Declare_Subprogram INIT_1650,For_Outer_Call
00db 029d 16a3 | | Declare_Subprogram INIT_16a0,For_Outer_Call
00dd 029d 175b | [| Declare_Subprogram INIT_1758,For_Outer_Call
00df 029d 17a3 | | Declare_Subprogram INIT_17a0,For_Outer_Call
00e1 029d 18bb | | Declare_Subprogram INIT_18b8,For_Outer_Call
00e3 029d 1913 | | Declare_Subprogram INIT_1910,For_Outer_Call
00e5 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
0100 00c7 | | Action Elaborate_Subprogram
0101 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
0102 00c7 | | Action Elaborate_Subprogram
0103 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
0104 00c7 | | Action Elaborate_Subprogram
0105 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
0106 00c7 | | Action Elaborate_Subprogram
0107 BODY_0008:
0107 00bc | | Action Signal_Activated
0108 00bb | | Action Signal_Completion
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0126 | & | .CONST 0x0126 ; Address of begin
0111 0170 | p | .CONST 0x0170 ; Address of exception handler
0112 0005 | | .CONST 0x0005 ; Number of locals
0113 INIT_0110:
0113 e001 | | Load 0x0,0x1
0114 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0116 02c7 | | Declare_Variable Any
0117 00d8 | | Load_Top At_Offset_0
0118 1c00 | | Execute_Immediate Run_Utility,0x0
0119 e002 | | Load 0x0,0x2
011a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011b 02c7 | | Declare_Variable Any
011c 00d8 | | Load_Top At_Offset_0
011d 1c00 | | Execute_Immediate Run_Utility,0x0
011e 4800 |H | Short_Literal 0x0
011f e003 | | Load 0x0,0x3
0120 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0121 1c08 | | Execute_Immediate Run_Utility,0x8
0122 00d8 | | Load_Top At_Offset_0
0123 1c00 | | Execute_Immediate Run_Utility,0x0
0124 029f 192b | +| Declare_Subprogram INIT_1928,For_Call
0126 BODY_0110:
0126 4800 |H | Short_Literal 0x0
0127 00da | | Load_Top At_Offset_2
0128 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0129 e5ff | | Load 0x2,-0x1
012a 0227 | ' | Execute Access,All_Reference
012b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012c e5fe | | Load 0x2,-0x2
012d e002 | | Load 0x0,0x2
012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0130 e001 | | Load 0x0,0x1
0131 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0132 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0133 c402 | | Store 0x2,0x2
0134 00db | | Load_Top At_Offset_3
0135 e001 | | Load 0x0,0x1
0136 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0137 180f | | Execute Package,Field_Execute,Field_Number 0xf
0138 6835 |h5 | Jump_Zero 0x16e
0139 e5fc | | Load 0x2,-0x4
013a 4801 |H | Short_Literal 0x1
013b 4801 |H | Short_Literal 0x1
013c e004 | | Load 0x0,0x4
013d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013e 035b | [ | Declare_Type Array,Constrained
013f 0337 | 7 | Declare_Variable Array
0140 e5fe | | Load 0x2,-0x2
0141 e004 | | Load 0x0,0x4
0142 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0143 e004 | | Load 0x0,0x4
0144 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0145 0119 | | Execute Any,Check_In_Formal_Type
0146 4801 |H | Short_Literal 0x1
0147 00da | | Load_Top At_Offset_2
0148 01d6 | | Execute Vector,Field_Write
0149 607a |`z | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x0000816f}
014a e005 | | Load 0x0,0x5
014b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
014c 4801 |H | Short_Literal 0x1
014d 4802 |H | Short_Literal 0x2
014e e004 | | Load 0x0,0x4
014f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0150 035b | [ | Declare_Type Array,Constrained
0151 0337 | 7 | Declare_Variable Array
0152 e5ff | | Load 0x2,-0x1
0153 0227 | ' | Execute Access,All_Reference
0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0155 e001 | | Load 0x0,0x1
0156 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0157 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0158 e004 | | Load 0x0,0x4
0159 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015a 0119 | | Execute Any,Check_In_Formal_Type
015b 4801 |H | Short_Literal 0x1
015c 00da | | Load_Top At_Offset_2
015d 01d6 | | Execute Vector,Field_Write
015e e5fe | | Load 0x2,-0x2
015f e006 | | Load 0x0,0x6
0160 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0161 e004 | | Load 0x0,0x4
0162 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0163 0119 | | Execute Any,Check_In_Formal_Type
0164 4802 |H | Short_Literal 0x2
0165 00da | | Load_Top At_Offset_2
0166 01d6 | | Execute Vector,Field_Write
0167 6058 |`X | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0000810c}
0168 e005 | | Load 0x0,0x5
0169 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016a 00da | | Load_Top At_Offset_2
016b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016c 00d9 | | Load_Top At_Offset_1
016d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
016e 8405 | | Call 0x2,0x5
016f 0831 | 1 | Execute_Immediate Raise,0x31
0170 TRAP_0110:
0170 e005 | | Load 0x0,0x5
0171 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0172 010f | | Execute Exception,Equal
0173 6825 |h% | Jump_Zero 0x199
0174 e005 | | Load 0x0,0x5
0175 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0176 00db | | Load_Top At_Offset_3
0177 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0178 e5fc | | Load 0x2,-0x4
0179 4801 |H | Short_Literal 0x1
017a 4802 |H | Short_Literal 0x2
017b e004 | | Load 0x0,0x4
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 035b | [ | Declare_Type Array,Constrained
017e 0337 | 7 | Declare_Variable Array
017f e5ff | | Load 0x2,-0x1
0180 0227 | ' | Execute Access,All_Reference
0181 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0182 e001 | | Load 0x0,0x1
0183 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0184 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0185 e004 | | Load 0x0,0x4
0186 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0187 0119 | | Execute Any,Check_In_Formal_Type
0188 4801 |H | Short_Literal 0x1
0189 00da | | Load_Top At_Offset_2
018a 01d6 | | Execute Vector,Field_Write
018b e5fe | | Load 0x2,-0x2
018c e006 | | Load 0x0,0x6
018d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
018e e004 | | Load 0x0,0x4
018f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0190 0119 | | Execute Any,Check_In_Formal_Type
0191 4802 |H | Short_Literal 0x2
0192 00da | | Load_Top At_Offset_2
0193 01d6 | | Execute Vector,Field_Write
0194 602b |`+ | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0000810c}
0195 e005 | | Load 0x0,0x5
0196 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0197 00da | | Load_Top At_Offset_2
0198 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0199 e5fc | | Load 0x2,-0x4
019a 0092 1f92 | | Action Push_String_Extended,0x1f92 ; "Target_Builder.Unit.Referencers"
019c e007 | | Load 0x0,0x7
019d 180f | | Execute Package,Field_Execute,Field_Number 0xf
019e 4801 |H | Short_Literal 0x1
019f 4802 |H | Short_Literal 0x2
01a0 e004 | | Load 0x0,0x4
01a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a2 035b | [ | Declare_Type Array,Constrained
01a3 0337 | 7 | Declare_Variable Array
01a4 e5ff | | Load 0x2,-0x1
01a5 0227 | ' | Execute Access,All_Reference
01a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a7 e001 | | Load 0x0,0x1
01a8 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
01a9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01aa e004 | | Load 0x0,0x4
01ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ac 0119 | | Execute Any,Check_In_Formal_Type
01ad 4801 |H | Short_Literal 0x1
01ae 00da | | Load_Top At_Offset_2
01af 01d6 | | Execute Vector,Field_Write
01b0 e5fe | | Load 0x2,-0x2
01b1 e006 | | Load 0x0,0x6
01b2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01b3 e004 | | Load 0x0,0x4
01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b5 0119 | | Execute Any,Check_In_Formal_Type
01b6 4802 |H | Short_Literal 0x2
01b7 00da | | Load_Top At_Offset_2
01b8 01d6 | | Execute Vector,Field_Write
01b9 6006 |` | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0000810c}
01ba e005 | | Load 0x0,0x5
01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bc 00db | | Load_Top At_Offset_3
01bd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01be 00da | | Load_Top At_Offset_2
01bf 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01c0 0000 0000 | | .LITERAL {0x00000000, 0x0000810c}
01c4 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01de | | .CONST 0x01de ; Address of begin
01c9 0228 | ( | .CONST 0x0228 ; Address of exception handler
01ca 0005 | | .CONST 0x0005 ; Number of locals
01cb INIT_01c8:
01cb e001 | | Load 0x0,0x1
01cc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ce 02c7 | | Declare_Variable Any
01cf 00d8 | | Load_Top At_Offset_0
01d0 1c00 | | Execute_Immediate Run_Utility,0x0
01d1 e002 | | Load 0x0,0x2
01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d3 02c7 | | Declare_Variable Any
01d4 00d8 | | Load_Top At_Offset_0
01d5 1c00 | | Execute_Immediate Run_Utility,0x0
01d6 4800 |H | Short_Literal 0x0
01d7 e003 | | Load 0x0,0x3
01d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d9 1c08 | | Execute_Immediate Run_Utility,0x8
01da 00d8 | | Load_Top At_Offset_0
01db 1c00 | | Execute_Immediate Run_Utility,0x0
01dc 029f 19cb | | Declare_Subprogram INIT_19c8,For_Call
01de BODY_01c8:
01de 4800 |H | Short_Literal 0x0
01df 00da | | Load_Top At_Offset_2
01e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e1 e5ff | | Load 0x2,-0x1
01e2 0227 | ' | Execute Access,All_Reference
01e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e4 e5fe | | Load 0x2,-0x2
01e5 e002 | | Load 0x0,0x2
01e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01e8 e001 | | Load 0x0,0x1
01e9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
01ea 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01eb c402 | | Store 0x2,0x2
01ec 00db | | Load_Top At_Offset_3
01ed e001 | | Load 0x0,0x1
01ee 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01ef 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f0 6835 |h5 | Jump_Zero 0x226
01f1 e5fc | | Load 0x2,-0x4
01f2 4801 |H | Short_Literal 0x1
01f3 4801 |H | Short_Literal 0x1
01f4 e004 | | Load 0x0,0x4
01f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f6 035b | [ | Declare_Type Array,Constrained
01f7 0337 | 7 | Declare_Variable Array
01f8 e5fe | | Load 0x2,-0x2
01f9 e006 | | Load 0x0,0x6
01fa 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01fb e004 | | Load 0x0,0x4
01fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fd 0119 | | Execute Any,Check_In_Formal_Type
01fe 4801 |H | Short_Literal 0x1
01ff 00da | | Load_Top At_Offset_2
0200 01d6 | | Execute Vector,Field_Write
0201 67c2 |g | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x0000816f}
0202 e005 | | Load 0x0,0x5
0203 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0204 4801 |H | Short_Literal 0x1
0205 4802 |H | Short_Literal 0x2
0206 e004 | | Load 0x0,0x4
0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0208 035b | [ | Declare_Type Array,Constrained
0209 0337 | 7 | Declare_Variable Array
020a e5ff | | Load 0x2,-0x1
020b 0227 | ' | Execute Access,All_Reference
020c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020d e001 | | Load 0x0,0x1
020e 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
020f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0210 e004 | | Load 0x0,0x4
0211 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0212 0119 | | Execute Any,Check_In_Formal_Type
0213 4801 |H | Short_Literal 0x1
0214 00da | | Load_Top At_Offset_2
0215 01d6 | | Execute Vector,Field_Write
0216 e5fe | | Load 0x2,-0x2
0217 e006 | | Load 0x0,0x6
0218 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0219 e004 | | Load 0x0,0x4
021a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021b 0119 | | Execute Any,Check_In_Formal_Type
021c 4802 |H | Short_Literal 0x2
021d 00da | | Load_Top At_Offset_2
021e 01d6 | | Execute Vector,Field_Write
021f 605c |`\ | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0000810d}
0220 e005 | | Load 0x0,0x5
0221 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0222 00da | | Load_Top At_Offset_2
0223 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0224 00d9 | | Load_Top At_Offset_1
0225 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0226 8405 | | Call 0x2,0x5
0227 0831 | 1 | Execute_Immediate Raise,0x31
0228 TRAP_01c8:
0228 e005 | | Load 0x0,0x5
0229 1b17 | | Execute Package,Field_Read,Field_Number 0x17
022a 010f | | Execute Exception,Equal
022b 6826 |h& | Jump_Zero 0x252
022c e005 | | Load 0x0,0x5
022d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022e 00db | | Load_Top At_Offset_3
022f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0230 e5fc | | Load 0x2,-0x4
0231 4801 |H | Short_Literal 0x1
0232 4802 |H | Short_Literal 0x2
0233 e004 | | Load 0x0,0x4
0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0235 035b | [ | Declare_Type Array,Constrained
0236 0337 | 7 | Declare_Variable Array
0237 e5ff | | Load 0x2,-0x1
0238 0227 | ' | Execute Access,All_Reference
0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023a e001 | | Load 0x0,0x1
023b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
023c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
023d e004 | | Load 0x0,0x4
023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023f 0119 | | Execute Any,Check_In_Formal_Type
0240 4801 |H | Short_Literal 0x1
0241 00da | | Load_Top At_Offset_2
0242 01d6 | | Execute Vector,Field_Write
0243 e402 | | Load 0x2,0x2
0244 e001 | | Load 0x0,0x1
0245 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0246 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0247 e004 | | Load 0x0,0x4
0248 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0249 0119 | | Execute Any,Check_In_Formal_Type
024a 4802 |H | Short_Literal 0x2
024b 00da | | Load_Top At_Offset_2
024c 01d6 | | Execute Vector,Field_Write
024d 602e |`. | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0000810d}
024e e005 | | Load 0x0,0x5
024f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0250 00da | | Load_Top At_Offset_2
0251 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0252 e5fc | | Load 0x2,-0x4
0253 0092 1f93 | | Action Push_String_Extended,0x1f93 ; "Target_Builder.Unit.Suppliers"
0255 e007 | | Load 0x0,0x7
0256 180f | | Execute Package,Field_Execute,Field_Number 0xf
0257 4801 |H | Short_Literal 0x1
0258 4802 |H | Short_Literal 0x2
0259 e004 | | Load 0x0,0x4
025a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025b 035b | [ | Declare_Type Array,Constrained
025c 0337 | 7 | Declare_Variable Array
025d e5ff | | Load 0x2,-0x1
025e 0227 | ' | Execute Access,All_Reference
025f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0260 e001 | | Load 0x0,0x1
0261 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0262 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0263 e004 | | Load 0x0,0x4
0264 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0265 0119 | | Execute Any,Check_In_Formal_Type
0266 4801 |H | Short_Literal 0x1
0267 00da | | Load_Top At_Offset_2
0268 01d6 | | Execute Vector,Field_Write
0269 e402 | | Load 0x2,0x2
026a e001 | | Load 0x0,0x1
026b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
026c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026d e004 | | Load 0x0,0x4
026e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026f 0119 | | Execute Any,Check_In_Formal_Type
0270 4802 |H | Short_Literal 0x2
0271 00da | | Load_Top At_Offset_2
0272 01d6 | | Execute Vector,Field_Write
0273 6008 |` | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0000810d}
0274 e005 | | Load 0x0,0x5
0275 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0276 00db | | Load_Top At_Offset_3
0277 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0278 00da | | Load_Top At_Offset_2
0279 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
027a 0000 0000 | | .XXX[0x2]
027c 0000 0000 | | .LITERAL {0x00000000, 0x0000810d}
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 02d5 | | .CONST 0x02d5 ; Address of begin
0281 03c4 | | .CONST 0x03c4 ; Address of exception handler
0282 0016 | | .CONST 0x0016 ; Number of locals
0283 INIT_0280:
0283 e001 | | Load 0x0,0x1
0284 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 02c7 | | Declare_Variable Any
0287 00d8 | | Load_Top At_Offset_0
0288 1c00 | | Execute_Immediate Run_Utility,0x0
0289 e002 | | Load 0x0,0x2
028a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
028b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028c e002 | | Load 0x0,0x2
028d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028e 02c7 | | Declare_Variable Any
028f 00d8 | | Load_Top At_Offset_0
0290 1c00 | | Execute_Immediate Run_Utility,0x0
0291 e002 | | Load 0x0,0x2
0292 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0293 02ff | | Declare_Variable Variant_Record
0294 00d8 | | Load_Top At_Offset_0
0295 1c00 | | Execute_Immediate Run_Utility,0x0
0296 00e3 | | Load_Encached Natural_Cache
0297 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0298 e005 | | Load 0x0,0x5
0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
029b e002 | | Load 0x0,0x2
029c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
029e 02c7 | | Declare_Variable Any
029f 00d8 | | Load_Top At_Offset_0
02a0 1c00 | | Execute_Immediate Run_Utility,0x0
02a1 e002 | | Load 0x0,0x2
02a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02a4 02c7 | | Declare_Variable Any
02a5 00d8 | | Load_Top At_Offset_0
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 e008 | | Load 0x0,0x8
02a8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
02a9 e002 | | Load 0x0,0x2
02aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ab 02c7 | | Declare_Variable Any
02ac 00d8 | | Load_Top At_Offset_0
02ad 1c00 | | Execute_Immediate Run_Utility,0x0
02ae e002 | | Load 0x0,0x2
02af 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02b0 02ff | | Declare_Variable Variant_Record
02b1 00d8 | | Load_Top At_Offset_0
02b2 1c00 | | Execute_Immediate Run_Utility,0x0
02b3 00e1 | | Load_Encached Boolean_Cache
02b4 00e1 | | Load_Encached Boolean_Cache
02b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02b6 e5fe | | Load 0x2,-0x2
02b7 e002 | | Load 0x0,0x2
02b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02ba e5fb | | Load 0x2,-0x5
02bb e009 | | Load 0x0,0x9
02bc 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
02bd e5fa | | Load 0x2,-0x6
02be e5fe | | Load 0x2,-0x2
02bf e5fb | | Load 0x2,-0x5
02c0 e009 | | Load 0x0,0x9
02c1 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
02c2 e5fa | | Load 0x2,-0x6
02c3 e5fb | | Load 0x2,-0x5
02c4 e5ff | | Load 0x2,-0x1
02c5 e003 | | Load 0x0,0x3
02c6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02c7 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
02c8 e5fa | | Load 0x2,-0x6
02c9 e5fe | | Load 0x2,-0x2
02ca e5fb | | Load 0x2,-0x5
02cb e009 | | Load 0x0,0x9
02cc 18ba | | Execute Package,Field_Execute,Field_Number 0xba
02cd 029f 1a43 | C| Declare_Subprogram INIT_1a40,For_Call
02cf 029f 1a63 | c| Declare_Subprogram INIT_1a60,For_Call
02d1 029f 1b03 | | Declare_Subprogram INIT_1b00,For_Call
02d3 029f 1c3b | ;| Declare_Subprogram INIT_1c38,For_Call
02d5 BODY_0280:
02d5 4800 |H | Short_Literal 0x0
02d6 a5f9 | | Store_Unchecked 0x2,-0x7
02d7 e407 | | Load 0x2,0x7
02d8 e409 | | Load 0x2,0x9
02d9 e408 | | Load 0x2,0x8
02da e5fa | | Load 0x2,-0x6
02db e5fe | | Load 0x2,-0x2
02dc 826c | l | Call 0x1,0x6c
02dd c408 | | Store 0x2,0x8
02de c409 | | Store 0x2,0x9
02df c407 | | Store 0x2,0x7
02e0 4800 |H | Short_Literal 0x0
02e1 e407 | | Load 0x2,0x7
02e2 e005 | | Load 0x0,0x5
02e3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02e4 7003 |p | Jump_Nonzero 0x2e8
02e5 e00a | | Load 0x0,0xa
02e6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02e7 0257 | W | Execute Discrete,Raise
02e8 e5fa | | Load 0x2,-0x6
02e9 e5fe | | Load 0x2,-0x2
02ea 8274 | t | Call 0x1,0x74
02eb e40c | | Load 0x2,0xc
02ec 016d | m | Execute Variant_Record,Structure_Write
02ed e40c | | Load 0x2,0xc
02ee e00a | | Load 0x0,0xa
02ef 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02f0 e00a | | Load 0x0,0xa
02f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f2 a40d | | Store_Unchecked 0x2,0xd
02f3 e40c | | Load 0x2,0xc
02f4 e00a | | Load 0x0,0xa
02f5 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
02f6 e00a | | Load 0x0,0xa
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 a40e | | Store_Unchecked 0x2,0xe
02f9 e40d | | Load 0x2,0xd
02fa 6820 |h | Jump_Zero 0x31b
02fb e5fa | | Load 0x2,-0x6
02fc 4801 |H | Short_Literal 0x1
02fd 4802 |H | Short_Literal 0x2
02fe e004 | | Load 0x0,0x4
02ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0300 035b | [ | Declare_Type Array,Constrained
0301 0337 | 7 | Declare_Variable Array
0302 e5fe | | Load 0x2,-0x2
0303 e002 | | Load 0x0,0x2
0304 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0305 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0306 e004 | | Load 0x0,0x4
0307 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0308 e004 | | Load 0x0,0x4
0309 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030a 0119 | | Execute Any,Check_In_Formal_Type
030b 4801 |H | Short_Literal 0x1
030c 00da | | Load_Top At_Offset_2
030d 01d6 | | Execute Vector,Field_Write
030e 0092 1f94 | | Action Push_String_Extended,0x1f94 ; "Link"
0310 e004 | | Load 0x0,0x4
0311 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0312 e004 | | Load 0x0,0x4
0313 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0314 0119 | | Execute Any,Check_In_Formal_Type
0315 4802 |H | Short_Literal 0x2
0316 00da | | Load_Top At_Offset_2
0317 01d6 | | Execute Vector,Field_Write
0318 616b |ak | Indirect_Literal Discrete,0x484,{0x00000000, 0x0000817a}
0319 e005 | | Load 0x0,0x5
031a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
031b e5ff | | Load 0x2,-0x1
031c 0227 | ' | Execute Access,All_Reference
031d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031e e5fe | | Load 0x2,-0x2
031f e002 | | Load 0x0,0x2
0320 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0321 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0322 e001 | | Load 0x0,0x1
0323 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0324 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0325 c402 | | Store 0x2,0x2
0326 4801 |H | Short_Literal 0x1
0327 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
0329 e411 | | Load 0x2,0x11
032a e00b | | Load 0x0,0xb
032b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
032c 6829 |h) | Jump_Zero 0x356
032d e5fa | | Load 0x2,-0x6
032e 4801 |H | Short_Literal 0x1
032f 4801 |H | Short_Literal 0x1
0330 e004 | | Load 0x0,0x4
0331 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0332 035b | [ | Declare_Type Array,Constrained
0333 0337 | 7 | Declare_Variable Array
0334 e5fe | | Load 0x2,-0x2
0335 e006 | | Load 0x0,0x6
0336 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0337 e004 | | Load 0x0,0x4
0338 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0339 0119 | | Execute Any,Check_In_Formal_Type
033a 4801 |H | Short_Literal 0x1
033b 00da | | Load_Top At_Offset_2
033c 01d6 | | Execute Vector,Field_Write
033d 6142 |aB | Indirect_Literal Discrete,0x480,{0x00000000, 0x00008111}
033e e005 | | Load 0x0,0x5
033f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0340 4801 |H | Short_Literal 0x1
0341 4801 |H | Short_Literal 0x1
0342 e004 | | Load 0x0,0x4
0343 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0344 035b | [ | Declare_Type Array,Constrained
0345 0337 | 7 | Declare_Variable Array
0346 e5fe | | Load 0x2,-0x2
0347 e006 | | Load 0x0,0x6
0348 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0349 e004 | | Load 0x0,0x4
034a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034b 0119 | | Execute Any,Check_In_Formal_Type
034c 4801 |H | Short_Literal 0x1
034d 00da | | Load_Top At_Offset_2
034e 01d6 | | Execute Vector,Field_Write
034f 612c |a, | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
0350 e005 | | Load 0x0,0x5
0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0352 a5f9 | | Store_Unchecked 0x2,-0x7
0353 e00a | | Load 0x0,0xa
0354 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0355 0257 | W | Execute Discrete,Raise
0356 e402 | | Load 0x2,0x2
0357 e001 | | Load 0x0,0x1
0358 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0359 180f | | Execute Package,Field_Execute,Field_Number 0xf
035a 6831 |h1 | Jump_Zero 0x38c
035b e5fa | | Load 0x2,-0x6
035c 4801 |H | Short_Literal 0x1
035d 4801 |H | Short_Literal 0x1
035e e004 | | Load 0x0,0x4
035f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0360 035b | [ | Declare_Type Array,Constrained
0361 0337 | 7 | Declare_Variable Array
0362 e5fe | | Load 0x2,-0x2
0363 e006 | | Load 0x0,0x6
0364 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0365 e004 | | Load 0x0,0x4
0366 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0367 0119 | | Execute Any,Check_In_Formal_Type
0368 4801 |H | Short_Literal 0x1
0369 00da | | Load_Top At_Offset_2
036a 01d6 | | Execute Vector,Field_Write
036b 610c |a | Indirect_Literal Discrete,0x478,{0x00000000, 0x0000816f}
036c e005 | | Load 0x0,0x5
036d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
036e 4801 |H | Short_Literal 0x1
036f 4802 |H | Short_Literal 0x2
0370 e004 | | Load 0x0,0x4
0371 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0372 035b | [ | Declare_Type Array,Constrained
0373 0337 | 7 | Declare_Variable Array
0374 e004 | | Load 0x0,0x4
0375 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0376 e004 | | Load 0x0,0x4
0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0378 0119 | | Execute Any,Check_In_Formal_Type
0379 4801 |H | Short_Literal 0x1
037a 00da | | Load_Top At_Offset_2
037b 01d6 | | Execute Vector,Field_Write
037c e5fe | | Load 0x2,-0x2
037d e006 | | Load 0x0,0x6
037e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
037f e004 | | Load 0x0,0x4
0380 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0381 0119 | | Execute Any,Check_In_Formal_Type
0382 4802 |H | Short_Literal 0x2
0383 00da | | Load_Top At_Offset_2
0384 01d6 | | Execute Vector,Field_Write
0385 60ee |` | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
0386 e005 | | Load 0x0,0x5
0387 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0388 a5f9 | | Store_Unchecked 0x2,-0x7
0389 e00a | | Load 0x0,0xa
038a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
038b 0257 | W | Execute Discrete,Raise
038c 8415 | | Call 0x2,0x15
038d 6802 |h | Jump_Zero 0x390
038e 8414 | | Call 0x2,0x14
038f 782c |x, | Jump 0x3bc
0390 e5fc | | Load 0x2,-0x4
0391 680a |h | Jump_Zero 0x39c
0392 e407 | | Load 0x2,0x7
0393 8416 | | Call 0x2,0x16
0394 c407 | | Store 0x2,0x7
0395 4800 |H | Short_Literal 0x0
0396 e407 | | Load 0x2,0x7
0397 e005 | | Load 0x0,0x5
0398 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0399 6822 |h" | Jump_Zero 0x3bc
039a 8414 | | Call 0x2,0x14
039b 7820 |x | Jump 0x3bc
039c 4801 |H | Short_Literal 0x1
039d 4802 |H | Short_Literal 0x2
039e e004 | | Load 0x0,0x4
039f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a0 035b | [ | Declare_Type Array,Constrained
03a1 0337 | 7 | Declare_Variable Array
03a2 0092 1f96 | | Action Push_String_Extended,0x1f96 ; "There are un-Coded Units."
03a4 e004 | | Load 0x0,0x4
03a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a6 e004 | | Load 0x0,0x4
03a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a8 0119 | | Execute Any,Check_In_Formal_Type
03a9 4801 |H | Short_Literal 0x1
03aa 00da | | Load_Top At_Offset_2
03ab 01d6 | | Execute Vector,Field_Write
03ac e404 | | Load 0x2,0x4
03ad e006 | | Load 0x0,0x6
03ae 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03af e004 | | Load 0x0,0x4
03b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b1 0119 | | Execute Any,Check_In_Formal_Type
03b2 4802 |H | Short_Literal 0x2
03b3 00da | | Load_Top At_Offset_2
03b4 01d6 | | Execute Vector,Field_Write
03b5 60be |` | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
03b6 e005 | | Load 0x0,0x5
03b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b8 a407 | | Store_Unchecked 0x2,0x7
03b9 e00a | | Load 0x0,0xa
03ba 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03bb 0257 | W | Execute Discrete,Raise
03bc e407 | | Load 0x2,0x7
03bd a5f9 | | Store_Unchecked 0x2,-0x7
03be e407 | | Load 0x2,0x7
03bf e5fa | | Load 0x2,-0x6
03c0 e409 | | Load 0x2,0x9
03c1 826d | m | Call 0x1,0x6d
03c2 c407 | | Store 0x2,0x7
03c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03c4 TRAP_0280:
03c4 e00a | | Load 0x0,0xa
03c5 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03c6 010f | | Execute Exception,Equal
03c7 6808 |h | Jump_Zero 0x3d0
03c8 e407 | | Load 0x2,0x7
03c9 a5f9 | | Store_Unchecked 0x2,-0x7
03ca e407 | | Load 0x2,0x7
03cb e5fa | | Load 0x2,-0x6
03cc e409 | | Load 0x2,0x9
03cd 826d | m | Call 0x1,0x6d
03ce c407 | | Store 0x2,0x7
03cf 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03d0 e00a | | Load 0x0,0xa
03d1 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03d2 010f | | Execute Exception,Equal
03d3 6837 |h7 | Jump_Zero 0x40b
03d4 4801 |H | Short_Literal 0x1
03d5 4802 |H | Short_Literal 0x2
03d6 e004 | | Load 0x0,0x4
03d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d8 035b | [ | Declare_Type Array,Constrained
03d9 0337 | 7 | Declare_Variable Array
03da e004 | | Load 0x0,0x4
03db 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03dc e004 | | Load 0x0,0x4
03dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03de 0119 | | Execute Any,Check_In_Formal_Type
03df 4801 |H | Short_Literal 0x1
03e0 00da | | Load_Top At_Offset_2
03e1 01d6 | | Execute Vector,Field_Write
03e2 e5fe | | Load 0x2,-0x2
03e3 e006 | | Load 0x0,0x6
03e4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03e5 e004 | | Load 0x0,0x4
03e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e7 0119 | | Execute Any,Check_In_Formal_Type
03e8 4802 |H | Short_Literal 0x2
03e9 00da | | Load_Top At_Offset_2
03ea 01d6 | | Execute Vector,Field_Write
03eb 6088 |` | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
03ec e005 | | Load 0x0,0x5
03ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ee a5f9 | | Store_Unchecked 0x2,-0x7
03ef e5fa | | Load 0x2,-0x6
03f0 4801 |H | Short_Literal 0x1
03f1 4802 |H | Short_Literal 0x2
03f2 e004 | | Load 0x0,0x4
03f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f4 035b | [ | Declare_Type Array,Constrained
03f5 0337 | 7 | Declare_Variable Array
03f6 e004 | | Load 0x0,0x4
03f7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03f8 e004 | | Load 0x0,0x4
03f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fa 0119 | | Execute Any,Check_In_Formal_Type
03fb 4801 |H | Short_Literal 0x1
03fc 00da | | Load_Top At_Offset_2
03fd 01d6 | | Execute Vector,Field_Write
03fe e5fe | | Load 0x2,-0x2
03ff e006 | | Load 0x0,0x6
0400 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0401 e004 | | Load 0x0,0x4
0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0403 0119 | | Execute Any,Check_In_Formal_Type
0404 4802 |H | Short_Literal 0x2
0405 00da | | Load_Top At_Offset_2
0406 01d6 | | Execute Vector,Field_Write
0407 606c |`l | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
0408 e005 | | Load 0x0,0x5
0409 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
040a 4507 |E | Exit_Suprogram New_Top_Offset 0x7
040b e005 | | Load 0x0,0x5
040c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
040d 010f | | Execute Exception,Equal
040e 6824 |h$ | Jump_Zero 0x433
040f e005 | | Load 0x0,0x5
0410 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0411 a5f9 | | Store_Unchecked 0x2,-0x7
0412 e407 | | Load 0x2,0x7
0413 e5fa | | Load 0x2,-0x6
0414 e409 | | Load 0x2,0x9
0415 826d | m | Call 0x1,0x6d
0416 c407 | | Store 0x2,0x7
0417 e5fa | | Load 0x2,-0x6
0418 4801 |H | Short_Literal 0x1
0419 4802 |H | Short_Literal 0x2
041a e004 | | Load 0x0,0x4
041b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
041c 035b | [ | Declare_Type Array,Constrained
041d 0337 | 7 | Declare_Variable Array
041e e004 | | Load 0x0,0x4
041f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0420 e004 | | Load 0x0,0x4
0421 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0422 0119 | | Execute Any,Check_In_Formal_Type
0423 4801 |H | Short_Literal 0x1
0424 00da | | Load_Top At_Offset_2
0425 01d6 | | Execute Vector,Field_Write
0426 e5fe | | Load 0x2,-0x2
0427 e006 | | Load 0x0,0x6
0428 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0429 e004 | | Load 0x0,0x4
042a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042b 0119 | | Execute Any,Check_In_Formal_Type
042c 4802 |H | Short_Literal 0x2
042d 00da | | Load_Top At_Offset_2
042e 01d6 | | Execute Vector,Field_Write
042f 6044 |`D | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
0430 e005 | | Load 0x0,0x5
0431 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0432 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0433 e407 | | Load 0x2,0x7
0434 e5fa | | Load 0x2,-0x6
0435 e409 | | Load 0x2,0x9
0436 826d | m | Call 0x1,0x6d
0437 c407 | | Store 0x2,0x7
0438 4801 |H | Short_Literal 0x1
0439 4802 |H | Short_Literal 0x2
043a e004 | | Load 0x0,0x4
043b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
043c 035b | [ | Declare_Type Array,Constrained
043d 0337 | 7 | Declare_Variable Array
043e e004 | | Load 0x0,0x4
043f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0440 e004 | | Load 0x0,0x4
0441 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0442 0119 | | Execute Any,Check_In_Formal_Type
0443 4801 |H | Short_Literal 0x1
0444 00da | | Load_Top At_Offset_2
0445 01d6 | | Execute Vector,Field_Write
0446 e5fe | | Load 0x2,-0x2
0447 e006 | | Load 0x0,0x6
0448 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0449 e004 | | Load 0x0,0x4
044a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044b 0119 | | Execute Any,Check_In_Formal_Type
044c 4802 |H | Short_Literal 0x2
044d 00da | | Load_Top At_Offset_2
044e 01d6 | | Execute Vector,Field_Write
044f 6024 |`$ | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
0450 e005 | | Load 0x0,0x5
0451 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0452 a5f9 | | Store_Unchecked 0x2,-0x7
0453 e5fa | | Load 0x2,-0x6
0454 4801 |H | Short_Literal 0x1
0455 4802 |H | Short_Literal 0x2
0456 e004 | | Load 0x0,0x4
0457 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0458 035b | [ | Declare_Type Array,Constrained
0459 0337 | 7 | Declare_Variable Array
045a e004 | | Load 0x0,0x4
045b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
045c e004 | | Load 0x0,0x4
045d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
045e 0119 | | Execute Any,Check_In_Formal_Type
045f 4801 |H | Short_Literal 0x1
0460 00da | | Load_Top At_Offset_2
0461 01d6 | | Execute Vector,Field_Write
0462 e5fe | | Load 0x2,-0x2
0463 e006 | | Load 0x0,0x6
0464 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0465 e004 | | Load 0x0,0x4
0466 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0467 0119 | | Execute Any,Check_In_Formal_Type
0468 4802 |H | Short_Literal 0x2
0469 00da | | Load_Top At_Offset_2
046a 01d6 | | Execute Vector,Field_Write
046b 6008 |` | Indirect_Literal Discrete,0x474,{0x00000000, 0x00008126}
046c e005 | | Load 0x0,0x5
046d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
046e e5fa | | Load 0x2,-0x6
046f 0092 1f97 | | Action Push_String_Extended,0x1f97 ; "Target_Builder.Unit.Link"
0471 e007 | | Load 0x0,0x7
0472 180f | | Execute Package,Field_Execute,Field_Number 0xf
0473 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0474 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
0478 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
047c 0000 0000 | | .LITERAL {0x00000000, 0x0000811a}
0480 0000 0000 | | .LITERAL {0x00000000, 0x00008111}
0484 0000 0000 | | .LITERAL {0x00000000, 0x0000817a}
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 04da | | .CONST 0x04da ; Address of begin
0489 0613 | | .CONST 0x0613 ; Address of exception handler
048a 0016 | | .CONST 0x0016 ; Number of locals
048b INIT_0488:
048b e001 | | Load 0x0,0x1
048c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048e 02c7 | | Declare_Variable Any
048f 00d8 | | Load_Top At_Offset_0
0490 1c00 | | Execute_Immediate Run_Utility,0x0
0491 e002 | | Load 0x0,0x2
0492 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0493 00e1 | | Load_Encached Boolean_Cache
0494 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0495 00e1 | | Load_Encached Boolean_Cache
0496 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0497 e002 | | Load 0x0,0x2
0498 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0499 1b18 | | Execute Package,Field_Read,Field_Number 0x18
049a 02c7 | | Declare_Variable Any
049b 00d8 | | Load_Top At_Offset_0
049c 1c00 | | Execute_Immediate Run_Utility,0x0
049d e001 | | Load 0x0,0x1
049e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
049f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a0 02c7 | | Declare_Variable Any
04a1 00d8 | | Load_Top At_Offset_0
04a2 1c00 | | Execute_Immediate Run_Utility,0x0
04a3 e002 | | Load 0x0,0x2
04a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a5 02c7 | | Declare_Variable Any
04a6 00d8 | | Load_Top At_Offset_0
04a7 1c00 | | Execute_Immediate Run_Utility,0x0
04a8 e002 | | Load 0x0,0x2
04a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04aa 02c7 | | Declare_Variable Any
04ab 00d8 | | Load_Top At_Offset_0
04ac 1c00 | | Execute_Immediate Run_Utility,0x0
04ad e002 | | Load 0x0,0x2
04ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04af 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04b0 02c7 | | Declare_Variable Any
04b1 00d8 | | Load_Top At_Offset_0
04b2 1c00 | | Execute_Immediate Run_Utility,0x0
04b3 e002 | | Load 0x0,0x2
04b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04b6 02c7 | | Declare_Variable Any
04b7 00d8 | | Load_Top At_Offset_0
04b8 1c00 | | Execute_Immediate Run_Utility,0x0
04b9 e005 | | Load 0x0,0x5
04ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04bc e008 | | Load 0x0,0x8
04bd 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04be e002 | | Load 0x0,0x2
04bf 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04c0 02ff | | Declare_Variable Variant_Record
04c1 00d8 | | Load_Top At_Offset_0
04c2 1c00 | | Execute_Immediate Run_Utility,0x0
04c3 00e1 | | Load_Encached Boolean_Cache
04c4 00e1 | | Load_Encached Boolean_Cache
04c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04c6 e00c | | Load 0x0,0xc
04c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c8 02c7 | | Declare_Variable Any
04c9 00d8 | | Load_Top At_Offset_0
04ca 1c00 | | Execute_Immediate Run_Utility,0x0
04cb 00ea | | Load_Encached Null_String_Cache
04cc e5fc | | Load 0x2,-0x4
04cd e5fe | | Load 0x2,-0x2
04ce e5fd | | Load 0x2,-0x3
04cf e009 | | Load 0x0,0x9
04d0 18ba | | Execute Package,Field_Execute,Field_Number 0xba
04d1 e5fc | | Load 0x2,-0x4
04d2 e5fe | | Load 0x2,-0x2
04d3 e5fd | | Load 0x2,-0x3
04d4 e009 | | Load 0x0,0x9
04d5 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
04d6 029f 1ccb | | Declare_Subprogram INIT_1cc8,For_Call
04d8 029f 1d63 | c| Declare_Subprogram INIT_1d60,For_Call
04da BODY_0488:
04da 4800 |H | Short_Literal 0x0
04db a5fb | | Store_Unchecked 0x2,-0x5
04dc e40c | | Load 0x2,0xc
04dd e40b | | Load 0x2,0xb
04de e40a | | Load 0x2,0xa
04df e5fc | | Load 0x2,-0x4
04e0 e5fe | | Load 0x2,-0x2
04e1 826c | l | Call 0x1,0x6c
04e2 c40a | | Store 0x2,0xa
04e3 c40b | | Store 0x2,0xb
04e4 c40c | | Store 0x2,0xc
04e5 4800 |H | Short_Literal 0x0
04e6 e40c | | Load 0x2,0xc
04e7 e005 | | Load 0x0,0x5
04e8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04e9 7003 |p | Jump_Nonzero 0x4ed
04ea e00a | | Load 0x0,0xa
04eb 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04ec 0257 | W | Execute Discrete,Raise
04ed e5fc | | Load 0x2,-0x4
04ee e5fe | | Load 0x2,-0x2
04ef 8274 | t | Call 0x1,0x74
04f0 e40e | | Load 0x2,0xe
04f1 016d | m | Execute Variant_Record,Structure_Write
04f2 e40e | | Load 0x2,0xe
04f3 e00a | | Load 0x0,0xa
04f4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04f5 e00a | | Load 0x0,0xa
04f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04f7 a40f | | Store_Unchecked 0x2,0xf
04f8 e40e | | Load 0x2,0xe
04f9 e00a | | Load 0x0,0xa
04fa 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
04fb e00a | | Load 0x0,0xa
04fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fd a410 | | Store_Unchecked 0x2,0x10
04fe e40f | | Load 0x2,0xf
04ff 6820 |h | Jump_Zero 0x520
0500 e5fc | | Load 0x2,-0x4
0501 4801 |H | Short_Literal 0x1
0502 4802 |H | Short_Literal 0x2
0503 e004 | | Load 0x0,0x4
0504 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0505 035b | [ | Declare_Type Array,Constrained
0506 0337 | 7 | Declare_Variable Array
0507 e5fe | | Load 0x2,-0x2
0508 e002 | | Load 0x0,0x2
0509 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
050a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
050b e004 | | Load 0x0,0x4
050c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
050d e004 | | Load 0x0,0x4
050e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
050f 0119 | | Execute Any,Check_In_Formal_Type
0510 4801 |H | Short_Literal 0x1
0511 00da | | Load_Top At_Offset_2
0512 01d6 | | Execute Vector,Field_Write
0513 0092 1f98 | | Action Push_String_Extended,0x1f98 ; "Compile"
0515 e004 | | Load 0x0,0x4
0516 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0517 e004 | | Load 0x0,0x4
0518 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0519 0119 | | Execute Any,Check_In_Formal_Type
051a 4802 |H | Short_Literal 0x2
051b 00da | | Load_Top At_Offset_2
051c 01d6 | | Execute Vector,Field_Write
051d 6766 |gf | Indirect_Literal Discrete,0x484,{0x00000000, 0x0000817a}
051e e005 | | Load 0x0,0x5
051f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0520 4801 |H | Short_Literal 0x1
0521 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
0523 e412 | | Load 0x2,0x12
0524 e00b | | Load 0x0,0xb
0525 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0526 6829 |h) | Jump_Zero 0x550
0527 e5fc | | Load 0x2,-0x4
0528 4801 |H | Short_Literal 0x1
0529 4801 |H | Short_Literal 0x1
052a e004 | | Load 0x0,0x4
052b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052c 035b | [ | Declare_Type Array,Constrained
052d 0337 | 7 | Declare_Variable Array
052e e5fe | | Load 0x2,-0x2
052f e004 | | Load 0x0,0x4
0530 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0531 e004 | | Load 0x0,0x4
0532 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0533 0119 | | Execute Any,Check_In_Formal_Type
0534 4801 |H | Short_Literal 0x1
0535 00da | | Load_Top At_Offset_2
0536 01d6 | | Execute Vector,Field_Write
0537 6748 |gH | Indirect_Literal Discrete,0x480,{0x00000000, 0x00008111}
0538 e005 | | Load 0x0,0x5
0539 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
053a 4801 |H | Short_Literal 0x1
053b 4801 |H | Short_Literal 0x1
053c e004 | | Load 0x0,0x4
053d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
053e 035b | [ | Declare_Type Array,Constrained
053f 0337 | 7 | Declare_Variable Array
0540 e5fe | | Load 0x2,-0x2
0541 e004 | | Load 0x0,0x4
0542 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0543 e004 | | Load 0x0,0x4
0544 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0545 0119 | | Execute Any,Check_In_Formal_Type
0546 4801 |H | Short_Literal 0x1
0547 00da | | Load_Top At_Offset_2
0548 01d6 | | Execute Vector,Field_Write
0549 6732 |g2 | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
054a e005 | | Load 0x0,0x5
054b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054c a5fb | | Store_Unchecked 0x2,-0x5
054d e00a | | Load 0x0,0xa
054e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
054f 0257 | W | Execute Discrete,Raise
0550 e5ff | | Load 0x2,-0x1
0551 0227 | ' | Execute Access,All_Reference
0552 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0553 e5fe | | Load 0x2,-0x2
0554 e002 | | Load 0x0,0x2
0555 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0556 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0557 e001 | | Load 0x0,0x1
0558 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0559 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
055a c402 | | Store 0x2,0x2
055b e402 | | Load 0x2,0x2
055c e001 | | Load 0x0,0x1
055d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
055e 180f | | Execute Package,Field_Execute,Field_Number 0xf
055f 6829 |h) | Jump_Zero 0x589
0560 e5fc | | Load 0x2,-0x4
0561 4801 |H | Short_Literal 0x1
0562 4801 |H | Short_Literal 0x1
0563 e004 | | Load 0x0,0x4
0564 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0565 035b | [ | Declare_Type Array,Constrained
0566 0337 | 7 | Declare_Variable Array
0567 e5fe | | Load 0x2,-0x2
0568 e006 | | Load 0x0,0x6
0569 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
056a e004 | | Load 0x0,0x4
056b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056c 0119 | | Execute Any,Check_In_Formal_Type
056d 4801 |H | Short_Literal 0x1
056e 00da | | Load_Top At_Offset_2
056f 01d6 | | Execute Vector,Field_Write
0570 6707 |g | Indirect_Literal Discrete,0x478,{0x00000000, 0x0000816f}
0571 e005 | | Load 0x0,0x5
0572 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0573 4801 |H | Short_Literal 0x1
0574 4801 |H | Short_Literal 0x1
0575 e004 | | Load 0x0,0x4
0576 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0577 035b | [ | Declare_Type Array,Constrained
0578 0337 | 7 | Declare_Variable Array
0579 e5fe | | Load 0x2,-0x2
057a e006 | | Load 0x0,0x6
057b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
057c e004 | | Load 0x0,0x4
057d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
057e 0119 | | Execute Any,Check_In_Formal_Type
057f 4801 |H | Short_Literal 0x1
0580 00da | | Load_Top At_Offset_2
0581 01d6 | | Execute Vector,Field_Write
0582 66f9 |f | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
0583 e005 | | Load 0x0,0x5
0584 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0585 a5fb | | Store_Unchecked 0x2,-0x5
0586 e00a | | Load 0x0,0xa
0587 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0588 0257 | W | Execute Discrete,Raise
0589 e5fe | | Load 0x2,-0x2
058a c408 | | Store 0x2,0x8
058b e402 | | Load 0x2,0x2
058c c407 | | Store 0x2,0x7
058d e005 | | Load 0x0,0x5
058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058f 00e1 | | Load_Encached Boolean_Cache
0590 e5fc | | Load 0x2,-0x4
0591 e408 | | Load 0x2,0x8
0592 e00d | | Load 0x0,0xd
0593 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0594 c405 | | Store 0x2,0x5
0595 c40c | | Store 0x2,0xc
0596 4800 |H | Short_Literal 0x0
0597 e40c | | Load 0x2,0xc
0598 e005 | | Load 0x0,0x5
0599 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
059a 7003 |p | Jump_Nonzero 0x59e
059b e005 | | Load 0x0,0x5
059c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
059d 0257 | W | Execute Discrete,Raise
059e e405 | | Load 0x2,0x5
059f 686a |hj | Jump_Zero 0x60a
05a0 e5fc | | Load 0x2,-0x4
05a1 e408 | | Load 0x2,0x8
05a2 e00d | | Load 0x0,0xd
05a3 1873 | s | Execute Package,Field_Execute,Field_Number 0x73
05a4 6801 |h | Jump_Zero 0x5a6
05a5 8416 | | Call 0x2,0x16
05a6 e005 | | Load 0x0,0x5
05a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a8 e406 | | Load 0x2,0x6
05a9 0120 | | Execute Any,Is_Value
05aa 6804 |h | Jump_Zero 0x5af
05ab e002 | | Load 0x0,0x2
05ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ad 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05ae 7801 |x | Jump 0x5b0
05af e406 | | Load 0x2,0x6
05b0 e5fc | | Load 0x2,-0x4
05b1 e408 | | Load 0x2,0x8
05b2 e00d | | Load 0x0,0xd
05b3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
05b4 c406 | | Store 0x2,0x6
05b5 c40c | | Store 0x2,0xc
05b6 4800 |H | Short_Literal 0x0
05b7 e40c | | Load 0x2,0xc
05b8 e005 | | Load 0x0,0x5
05b9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05ba 7003 |p | Jump_Nonzero 0x5be
05bb e005 | | Load 0x0,0x5
05bc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05bd 0257 | W | Execute Discrete,Raise
05be 4801 |H | Short_Literal 0x1
05bf a404 | | Store_Unchecked 0x2,0x4
05c0 00cf | | Action Mark_Auxiliary
05c1 7841 |xA | Jump 0x603
05c2 e002 | | Load 0x0,0x2
05c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c4 e408 | | Load 0x2,0x8
05c5 0120 | | Execute Any,Is_Value
05c6 6803 |h | Jump_Zero 0x5ca
05c7 e002 | | Load 0x0,0x2
05c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c9 7801 |x | Jump 0x5cb
05ca e408 | | Load 0x2,0x8
05cb e406 | | Load 0x2,0x6
05cc e002 | | Load 0x0,0x2
05cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ce 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05cf c408 | | Store 0x2,0x8
05d0 c403 | | Store 0x2,0x3
05d1 e403 | | Load 0x2,0x3
05d2 6803 |h | Jump_Zero 0x5d6
05d3 e005 | | Load 0x0,0x5
05d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05d5 0257 | W | Execute Discrete,Raise
05d6 e005 | | Load 0x0,0x5
05d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d8 e409 | | Load 0x2,0x9
05d9 0120 | | Execute Any,Is_Value
05da 6803 |h | Jump_Zero 0x5de
05db e002 | | Load 0x0,0x2
05dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05dd 7801 |x | Jump 0x5df
05de e409 | | Load 0x2,0x9
05df e5fc | | Load 0x2,-0x4
05e0 e408 | | Load 0x2,0x8
05e1 e00d | | Load 0x0,0xd
05e2 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
05e3 c409 | | Store 0x2,0x9
05e4 c40c | | Store 0x2,0xc
05e5 4800 |H | Short_Literal 0x0
05e6 e40c | | Load 0x2,0xc
05e7 e005 | | Load 0x0,0x5
05e8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05e9 7003 |p | Jump_Nonzero 0x5ed
05ea e005 | | Load 0x0,0x5
05eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05ec 0257 | W | Execute Discrete,Raise
05ed 8416 | | Call 0x2,0x16
05ee e002 | | Load 0x0,0x2
05ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f0 60ab |` | Indirect_Literal Discrete,0x69c,{0x00000000, 0x00004000}
05f1 e00e | | Load 0x0,0xe
05f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f3 e409 | | Load 0x2,0x9
05f4 e002 | | Load 0x0,0x2
05f5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
05f6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05f7 c403 | | Store 0x2,0x3
05f8 e403 | | Load 0x2,0x3
05f9 6803 |h | Jump_Zero 0x5fd
05fa e00a | | Load 0x0,0xa
05fb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
05fc 0257 | W | Execute Discrete,Raise
05fd e406 | | Load 0x2,0x6
05fe e002 | | Load 0x0,0x2
05ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0600 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0601 c406 | | Store 0x2,0x6
0602 00c9 | | Action Pop_Auxiliary_Loop
0603 e406 | | Load 0x2,0x6
0604 e002 | | Load 0x0,0x2
0605 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0606 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0607 6fba |o | Jump_Zero 0x5c2
0608 00ce | | Action Pop_Auxiliary
0609 7801 |x | Jump 0x60b
060a 8416 | | Call 0x2,0x16
060b e40c | | Load 0x2,0xc
060c a5fb | | Store_Unchecked 0x2,-0x5
060d e40c | | Load 0x2,0xc
060e e5fc | | Load 0x2,-0x4
060f e40b | | Load 0x2,0xb
0610 826d | m | Call 0x1,0x6d
0611 c40c | | Store 0x2,0xc
0612 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0613 TRAP_0488:
0613 e00a | | Load 0x0,0xa
0614 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0615 010f | | Execute Exception,Equal
0616 6808 |h | Jump_Zero 0x61f
0617 e40c | | Load 0x2,0xc
0618 a5fb | | Store_Unchecked 0x2,-0x5
0619 e40c | | Load 0x2,0xc
061a e5fc | | Load 0x2,-0x4
061b e40b | | Load 0x2,0xb
061c 826d | m | Call 0x1,0x6d
061d c40c | | Store 0x2,0xc
061e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
061f e00a | | Load 0x0,0xa
0620 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0621 010f | | Execute Exception,Equal
0622 6827 |h' | Jump_Zero 0x64a
0623 4801 |H | Short_Literal 0x1
0624 4801 |H | Short_Literal 0x1
0625 e004 | | Load 0x0,0x4
0626 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0627 035b | [ | Declare_Type Array,Constrained
0628 0337 | 7 | Declare_Variable Array
0629 e5fe | | Load 0x2,-0x2
062a e006 | | Load 0x0,0x6
062b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
062c e004 | | Load 0x0,0x4
062d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
062e 0119 | | Execute Any,Check_In_Formal_Type
062f 4801 |H | Short_Literal 0x1
0630 00da | | Load_Top At_Offset_2
0631 01d6 | | Execute Vector,Field_Write
0632 6649 |fI | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
0633 e005 | | Load 0x0,0x5
0634 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0635 a5fb | | Store_Unchecked 0x2,-0x5
0636 e5fc | | Load 0x2,-0x4
0637 4801 |H | Short_Literal 0x1
0638 4801 |H | Short_Literal 0x1
0639 e004 | | Load 0x0,0x4
063a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
063b 035b | [ | Declare_Type Array,Constrained
063c 0337 | 7 | Declare_Variable Array
063d e5fe | | Load 0x2,-0x2
063e e006 | | Load 0x0,0x6
063f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0640 e004 | | Load 0x0,0x4
0641 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0642 0119 | | Execute Any,Check_In_Formal_Type
0643 4801 |H | Short_Literal 0x1
0644 00da | | Load_Top At_Offset_2
0645 01d6 | | Execute Vector,Field_Write
0646 6635 |f5 | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
0647 e005 | | Load 0x0,0x5
0648 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0649 4505 |E | Exit_Suprogram New_Top_Offset 0x5
064a e005 | | Load 0x0,0x5
064b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
064c 010f | | Execute Exception,Equal
064d 681c |h | Jump_Zero 0x66a
064e e005 | | Load 0x0,0x5
064f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0650 a5fb | | Store_Unchecked 0x2,-0x5
0651 e40c | | Load 0x2,0xc
0652 e5fc | | Load 0x2,-0x4
0653 e40b | | Load 0x2,0xb
0654 826d | m | Call 0x1,0x6d
0655 c40c | | Store 0x2,0xc
0656 e5fc | | Load 0x2,-0x4
0657 4801 |H | Short_Literal 0x1
0658 4801 |H | Short_Literal 0x1
0659 e004 | | Load 0x0,0x4
065a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
065b 035b | [ | Declare_Type Array,Constrained
065c 0337 | 7 | Declare_Variable Array
065d e5fe | | Load 0x2,-0x2
065e e006 | | Load 0x0,0x6
065f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0660 e004 | | Load 0x0,0x4
0661 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0662 0119 | | Execute Any,Check_In_Formal_Type
0663 4801 |H | Short_Literal 0x1
0664 00da | | Load_Top At_Offset_2
0665 01d6 | | Execute Vector,Field_Write
0666 6615 |f | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
0667 e005 | | Load 0x0,0x5
0668 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0669 4505 |E | Exit_Suprogram New_Top_Offset 0x5
066a e40c | | Load 0x2,0xc
066b e5fc | | Load 0x2,-0x4
066c e40b | | Load 0x2,0xb
066d 826d | m | Call 0x1,0x6d
066e c40c | | Store 0x2,0xc
066f 4801 |H | Short_Literal 0x1
0670 4801 |H | Short_Literal 0x1
0671 e004 | | Load 0x0,0x4
0672 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0673 035b | [ | Declare_Type Array,Constrained
0674 0337 | 7 | Declare_Variable Array
0675 e5fe | | Load 0x2,-0x2
0676 e006 | | Load 0x0,0x6
0677 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0678 e004 | | Load 0x0,0x4
0679 1b0e | | Execute Package,Field_Read,Field_Number 0xe
067a 0119 | | Execute Any,Check_In_Formal_Type
067b 4801 |H | Short_Literal 0x1
067c 00da | | Load_Top At_Offset_2
067d 01d6 | | Execute Vector,Field_Write
067e 65fd |e | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
067f e005 | | Load 0x0,0x5
0680 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0681 a5fb | | Store_Unchecked 0x2,-0x5
0682 e5fc | | Load 0x2,-0x4
0683 4801 |H | Short_Literal 0x1
0684 4801 |H | Short_Literal 0x1
0685 e004 | | Load 0x0,0x4
0686 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0687 035b | [ | Declare_Type Array,Constrained
0688 0337 | 7 | Declare_Variable Array
0689 e5fe | | Load 0x2,-0x2
068a e006 | | Load 0x0,0x6
068b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
068c e004 | | Load 0x0,0x4
068d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068e 0119 | | Execute Any,Check_In_Formal_Type
068f 4801 |H | Short_Literal 0x1
0690 00da | | Load_Top At_Offset_2
0691 01d6 | | Execute Vector,Field_Write
0692 65e9 |e | Indirect_Literal Discrete,0x47c,{0x00000000, 0x0000811a}
0693 e005 | | Load 0x0,0x5
0694 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0695 e5fc | | Load 0x2,-0x4
0696 0092 1f99 | | Action Push_String_Extended,0x1f99 ; "Target_Builder.Unit.Promote"
0698 e007 | | Load 0x0,0x7
0699 180f | | Execute Package,Field_Execute,Field_Number 0xf
069a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
069b 0000 | | .XXX[0x1]
069c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06cf | | .CONST 0x06cf ; Address of begin
06a1 075b | [ | .CONST 0x075b ; Address of exception handler
06a2 000b | | .CONST 0x000b ; Number of locals
06a3 INIT_06a0:
06a3 e005 | | Load 0x0,0x5
06a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06a6 e002 | | Load 0x0,0x2
06a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06a9 02c7 | | Declare_Variable Any
06aa 00d8 | | Load_Top At_Offset_0
06ab 1c00 | | Execute_Immediate Run_Utility,0x0
06ac e002 | | Load 0x0,0x2
06ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06af 02c7 | | Declare_Variable Any
06b0 00d8 | | Load_Top At_Offset_0
06b1 1c00 | | Execute_Immediate Run_Utility,0x0
06b2 e005 | | Load 0x0,0x5
06b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06b5 e008 | | Load 0x0,0x8
06b6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06b7 e002 | | Load 0x0,0x2
06b8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
06b9 0322 | " | Declare_Variable Record
06ba e5fd | | Load 0x2,-0x3
06bb e009 | | Load 0x0,0x9
06bc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
06bd 00d9 | | Load_Top At_Offset_1
06be 017d | } | Execute Record,Structure_Write
06bf e5fc | | Load 0x2,-0x4
06c0 e5fe | | Load 0x2,-0x2
06c1 e5fd | | Load 0x2,-0x3
06c2 e009 | | Load 0x0,0x9
06c3 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
06c4 00ea | | Load_Encached Null_String_Cache
06c5 e5fc | | Load 0x2,-0x4
06c6 e5fe | | Load 0x2,-0x2
06c7 e5fd | | Load 0x2,-0x3
06c8 e009 | | Load 0x0,0x9
06c9 18ba | | Execute Package,Field_Execute,Field_Number 0xba
06ca e5fc | | Load 0x2,-0x4
06cb e5fd | | Load 0x2,-0x3
06cc e5fe | | Load 0x2,-0x2
06cd e5ff | | Load 0x2,-0x1
06ce 8252 | R | Call 0x1,0x52
06cf BODY_06a0:
06cf e402 | | Load 0x2,0x2
06d0 e404 | | Load 0x2,0x4
06d1 e403 | | Load 0x2,0x3
06d2 e5fc | | Load 0x2,-0x4
06d3 e5fe | | Load 0x2,-0x2
06d4 826c | l | Call 0x1,0x6c
06d5 c403 | | Store 0x2,0x3
06d6 c404 | | Store 0x2,0x4
06d7 c402 | | Store 0x2,0x2
06d8 4800 |H | Short_Literal 0x0
06d9 e402 | | Load 0x2,0x2
06da e005 | | Load 0x0,0x5
06db 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
06dc 7003 |p | Jump_Nonzero 0x6e0
06dd e00a | | Load 0x0,0xa
06de 1b18 | | Execute Package,Field_Read,Field_Number 0x18
06df 0257 | W | Execute Discrete,Raise
06e0 e5fc | | Load 0x2,-0x4
06e1 0092 1f9a | | Action Push_String_Extended,0x1f9a ; "Demoting => "
06e3 e5fe | | Load 0x2,-0x2
06e4 e002 | | Load 0x0,0x2
06e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06e6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
06e7 01cc | | Execute Vector,Catenate
06e8 e007 | | Load 0x0,0x7
06e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ea e407 | | Load 0x2,0x7
06eb e408 | | Load 0x2,0x8
06ec 00db | | Load_Top At_Offset_3
06ed e409 | | Load 0x2,0x9
06ee e40b | | Load 0x2,0xb
06ef e5fe | | Load 0x2,-0x2
06f0 e024 | $ | Load 0x0,0x24
06f1 180f | | Execute Package,Field_Execute,Field_Number 0xf
06f2 701a |p | Jump_Nonzero 0x70d
06f3 e5fc | | Load 0x2,-0x4
06f4 4801 |H | Short_Literal 0x1
06f5 4801 |H | Short_Literal 0x1
06f6 e004 | | Load 0x0,0x4
06f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06f8 035b | [ | Declare_Type Array,Constrained
06f9 0337 | 7 | Declare_Variable Array
06fa e5fe | | Load 0x2,-0x2
06fb e006 | | Load 0x0,0x6
06fc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06fd e004 | | Load 0x0,0x4
06fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06ff 0119 | | Execute Any,Check_In_Formal_Type
0700 4801 |H | Short_Literal 0x1
0701 00da | | Load_Top At_Offset_2
0702 01d6 | | Execute Vector,Field_Write
0703 60e8 |` | Indirect_Literal Discrete,0x7ec,{0x00000000, 0x000081c1}
0704 e005 | | Load 0x0,0x5
0705 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0706 e004 | | Load 0x0,0x4
0707 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0708 60e3 |` | Indirect_Literal Discrete,0x7ec,{0x00000000, 0x000081c1}
0709 e005 | | Load 0x0,0x5
070a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070b a5fb | | Store_Unchecked 0x2,-0x5
070c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
070d e405 | | Load 0x2,0x5
070e e406 | | Load 0x2,0x6
070f e5fc | | Load 0x2,-0x4
0710 e002 | | Load 0x0,0x2
0711 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0712 e5ff | | Load 0x2,-0x1
0713 00ea | | Load_Encached Null_String_Cache
0714 e409 | | Load 0x2,0x9
0715 e40a | | Load 0x2,0xa
0716 e408 | | Load 0x2,0x8
0717 e40b | | Load 0x2,0xb
0718 e5fe | | Load 0x2,-0x2
0719 0092 1f9b | | Action Push_String_Extended,0x1f9b ; "Demote"
071b e009 | | Load 0x0,0x9
071c 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
071d 4800 |H | Short_Literal 0x0
071e e5fd | | Load 0x2,-0x3
071f e009 | | Load 0x0,0x9
0720 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0721 e010 | | Load 0x0,0x10
0722 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0723 c406 | | Store 0x2,0x6
0724 c405 | | Store 0x2,0x5
0725 4800 |H | Short_Literal 0x0
0726 e405 | | Load 0x2,0x5
0727 e005 | | Load 0x0,0x5
0728 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0729 7006 |p | Jump_Nonzero 0x730
072a e011 | | Load 0x0,0x11
072b 180e | | Execute Package,Field_Execute,Field_Number 0xe
072c e405 | | Load 0x2,0x5
072d e005 | | Load 0x0,0x5
072e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
072f 7823 |x# | Jump 0x753
0730 e407 | | Load 0x2,0x7
0731 e408 | | Load 0x2,0x8
0732 00db | | Load_Top At_Offset_3
0733 e409 | | Load 0x2,0x9
0734 e40b | | Load 0x2,0xb
0735 e5fe | | Load 0x2,-0x2
0736 e024 | $ | Load 0x0,0x24
0737 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0738 701a |p | Jump_Nonzero 0x753
0739 e5fc | | Load 0x2,-0x4
073a 4801 |H | Short_Literal 0x1
073b 4801 |H | Short_Literal 0x1
073c e004 | | Load 0x0,0x4
073d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
073e 035b | [ | Declare_Type Array,Constrained
073f 0337 | 7 | Declare_Variable Array
0740 e5fe | | Load 0x2,-0x2
0741 e006 | | Load 0x0,0x6
0742 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0743 e004 | | Load 0x0,0x4
0744 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0745 0119 | | Execute Any,Check_In_Formal_Type
0746 4801 |H | Short_Literal 0x1
0747 00da | | Load_Top At_Offset_2
0748 01d6 | | Execute Vector,Field_Write
0749 609e |` | Indirect_Literal Discrete,0x7e8,{0x00000000, 0x000081c2}
074a e005 | | Load 0x0,0x5
074b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
074c e004 | | Load 0x0,0x4
074d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
074e 6099 |` | Indirect_Literal Discrete,0x7e8,{0x00000000, 0x000081c2}
074f e005 | | Load 0x0,0x5
0750 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0751 a5fb | | Store_Unchecked 0x2,-0x5
0752 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0753 e402 | | Load 0x2,0x2
0754 a5fb | | Store_Unchecked 0x2,-0x5
0755 e402 | | Load 0x2,0x2
0756 e5fc | | Load 0x2,-0x4
0757 e404 | | Load 0x2,0x4
0758 826d | m | Call 0x1,0x6d
0759 c402 | | Store 0x2,0x2
075a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
075b TRAP_06a0:
075b e00a | | Load 0x0,0xa
075c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
075d 010f | | Execute Exception,Equal
075e 6808 |h | Jump_Zero 0x767
075f e402 | | Load 0x2,0x2
0760 e5fc | | Load 0x2,-0x4
0761 e404 | | Load 0x2,0x4
0762 826d | m | Call 0x1,0x6d
0763 c402 | | Store 0x2,0x2
0764 e402 | | Load 0x2,0x2
0765 a5fb | | Store_Unchecked 0x2,-0x5
0766 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0767 e00a | | Load 0x0,0xa
0768 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0769 010f | | Execute Exception,Equal
076a 6827 |h' | Jump_Zero 0x792
076b 4801 |H | Short_Literal 0x1
076c 4801 |H | Short_Literal 0x1
076d e004 | | Load 0x0,0x4
076e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
076f 035b | [ | Declare_Type Array,Constrained
0770 0337 | 7 | Declare_Variable Array
0771 e5fe | | Load 0x2,-0x2
0772 e006 | | Load 0x0,0x6
0773 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0774 e004 | | Load 0x0,0x4
0775 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0776 0119 | | Execute Any,Check_In_Formal_Type
0777 4801 |H | Short_Literal 0x1
0778 00da | | Load_Top At_Offset_2
0779 01d6 | | Execute Vector,Field_Write
077a 6069 |`i | Indirect_Literal Discrete,0x7e4,{0x00000000, 0x00008107}
077b e005 | | Load 0x0,0x5
077c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
077d a5fb | | Store_Unchecked 0x2,-0x5
077e e5fc | | Load 0x2,-0x4
077f 4801 |H | Short_Literal 0x1
0780 4801 |H | Short_Literal 0x1
0781 e004 | | Load 0x0,0x4
0782 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0783 035b | [ | Declare_Type Array,Constrained
0784 0337 | 7 | Declare_Variable Array
0785 e5fe | | Load 0x2,-0x2
0786 e006 | | Load 0x0,0x6
0787 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0788 e004 | | Load 0x0,0x4
0789 1b0e | | Execute Package,Field_Read,Field_Number 0xe
078a 0119 | | Execute Any,Check_In_Formal_Type
078b 4801 |H | Short_Literal 0x1
078c 00da | | Load_Top At_Offset_2
078d 01d6 | | Execute Vector,Field_Write
078e 6055 |`U | Indirect_Literal Discrete,0x7e4,{0x00000000, 0x00008107}
078f e005 | | Load 0x0,0x5
0790 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0791 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0792 e005 | | Load 0x0,0x5
0793 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0794 010f | | Execute Exception,Equal
0795 681c |h | Jump_Zero 0x7b2
0796 e005 | | Load 0x0,0x5
0797 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0798 a5fb | | Store_Unchecked 0x2,-0x5
0799 e402 | | Load 0x2,0x2
079a e5fc | | Load 0x2,-0x4
079b e404 | | Load 0x2,0x4
079c 826d | m | Call 0x1,0x6d
079d c402 | | Store 0x2,0x2
079e e5fc | | Load 0x2,-0x4
079f 4801 |H | Short_Literal 0x1
07a0 4801 |H | Short_Literal 0x1
07a1 e004 | | Load 0x0,0x4
07a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07a3 035b | [ | Declare_Type Array,Constrained
07a4 0337 | 7 | Declare_Variable Array
07a5 e5fe | | Load 0x2,-0x2
07a6 e006 | | Load 0x0,0x6
07a7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07a8 e004 | | Load 0x0,0x4
07a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07aa 0119 | | Execute Any,Check_In_Formal_Type
07ab 4801 |H | Short_Literal 0x1
07ac 00da | | Load_Top At_Offset_2
07ad 01d6 | | Execute Vector,Field_Write
07ae 6035 |`5 | Indirect_Literal Discrete,0x7e4,{0x00000000, 0x00008107}
07af e005 | | Load 0x0,0x5
07b0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07b1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07b2 e402 | | Load 0x2,0x2
07b3 e5fc | | Load 0x2,-0x4
07b4 e404 | | Load 0x2,0x4
07b5 826d | m | Call 0x1,0x6d
07b6 c402 | | Store 0x2,0x2
07b7 4801 |H | Short_Literal 0x1
07b8 4801 |H | Short_Literal 0x1
07b9 e004 | | Load 0x0,0x4
07ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07bb 035b | [ | Declare_Type Array,Constrained
07bc 0337 | 7 | Declare_Variable Array
07bd e5fe | | Load 0x2,-0x2
07be e006 | | Load 0x0,0x6
07bf 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07c0 e004 | | Load 0x0,0x4
07c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07c2 0119 | | Execute Any,Check_In_Formal_Type
07c3 4801 |H | Short_Literal 0x1
07c4 00da | | Load_Top At_Offset_2
07c5 01d6 | | Execute Vector,Field_Write
07c6 601d |` | Indirect_Literal Discrete,0x7e4,{0x00000000, 0x00008107}
07c7 e005 | | Load 0x0,0x5
07c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c9 a5fb | | Store_Unchecked 0x2,-0x5
07ca e5fc | | Load 0x2,-0x4
07cb 4801 |H | Short_Literal 0x1
07cc 4801 |H | Short_Literal 0x1
07cd e004 | | Load 0x0,0x4
07ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07cf 035b | [ | Declare_Type Array,Constrained
07d0 0337 | 7 | Declare_Variable Array
07d1 e5fe | | Load 0x2,-0x2
07d2 e006 | | Load 0x0,0x6
07d3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07d4 e004 | | Load 0x0,0x4
07d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07d6 0119 | | Execute Any,Check_In_Formal_Type
07d7 4801 |H | Short_Literal 0x1
07d8 00da | | Load_Top At_Offset_2
07d9 01d6 | | Execute Vector,Field_Write
07da 6009 |` | Indirect_Literal Discrete,0x7e4,{0x00000000, 0x00008107}
07db e005 | | Load 0x0,0x5
07dc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07dd e5fc | | Load 0x2,-0x4
07de 0092 1f9c | | Action Push_String_Extended,0x1f9c ; "Target_Builder.Unit.Demote"
07e0 e007 | | Load 0x0,0x7
07e1 180f | | Execute Package,Field_Execute,Field_Number 0xf
07e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07e3 0000 | | .XXX[0x1]
07e4 0000 0000 | | .LITERAL {0x00000000, 0x00008107}
07e8 0000 0000 | | .LITERAL {0x00000000, 0x000081c2}
07ec 0000 0000 | | .LITERAL {0x00000000, 0x000081c1}
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 00da | | Load_Top At_Offset_2
07f4 00d8 | | Load_Top At_Offset_0
07f5 0120 | | Execute Any,Is_Value
07f6 7002 |p | Jump_Nonzero 0x7f9
07f7 00d8 | | Load_Top At_Offset_0
07f8 011e | | Execute Any,Convert
07f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07fa 0000 0000 | | .BLANK 0000[0x6]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 080c | | .CONST 0x080c ; Address of begin
0801 0826 | & | .CONST 0x0826 ; Address of exception handler
0802 0003 | | .CONST 0x0003 ; Number of locals
0803 INIT_0800:
0803 e005 | | Load 0x0,0x5
0804 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0805 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0806 e001 | | Load 0x0,0x1
0807 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0808 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0809 02c7 | | Declare_Variable Any
080a 00d8 | | Load_Top At_Offset_0
080b 1c00 | | Execute_Immediate Run_Utility,0x0
080c BODY_0800:
080c e5fc | | Load 0x2,-0x4
080d 0092 1f9d | | Action Push_String_Extended,0x1f9d ; "Unit_Target_Name"
080f 8265 | e | Call 0x1,0x65
0810 e005 | | Load 0x0,0x5
0811 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0812 00d9 | | Load_Top At_Offset_1
0813 e5fc | | Load 0x2,-0x4
0814 6033 |`3 | Indirect_Literal Discrete,0x848,{0x00000000, 0x00008113}
0815 e5fe | | Load 0x2,-0x2
0816 e5ff | | Load 0x2,-0x1
0817 8266 | f | Call 0x1,0x66
0818 c403 | | Store 0x2,0x3
0819 005a | Z | Store_Top Discrete,At_Offset_2
081a 4800 |H | Short_Literal 0x0
081b 00da | | Load_Top At_Offset_2
081c e005 | | Load 0x0,0x5
081d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
081e 7003 |p | Jump_Nonzero 0x822
081f 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
0821 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0822 e5fd | | Load 0x2,-0x3
0823 00d9 | | Load_Top At_Offset_1
0824 8269 | i | Call 0x1,0x69
0825 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0826 TRAP_0800:
0826 e005 | | Load 0x0,0x5
0827 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0828 010f | | Execute Exception,Equal
0829 6816 |h | Jump_Zero 0x840
082a e5fc | | Load 0x2,-0x4
082b 4801 |H | Short_Literal 0x1
082c 4801 |H | Short_Literal 0x1
082d e004 | | Load 0x0,0x4
082e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
082f 035b | [ | Declare_Type Array,Constrained
0830 0337 | 7 | Declare_Variable Array
0831 e5fe | | Load 0x2,-0x2
0832 e006 | | Load 0x0,0x6
0833 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0834 e004 | | Load 0x0,0x4
0835 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0836 0119 | | Execute Any,Check_In_Formal_Type
0837 4801 |H | Short_Literal 0x1
0838 00da | | Load_Top At_Offset_2
0839 01d6 | | Execute Vector,Field_Write
083a 600d |` | Indirect_Literal Discrete,0x848,{0x00000000, 0x00008113}
083b e005 | | Load 0x0,0x5
083c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
083d 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
083f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0840 e5fc | | Load 0x2,-0x4
0841 0092 1f9e | | Action Push_String_Extended,0x1f9e ; "Target_Builder.Unit.Unit_Target_Name"
0843 e007 | | Load 0x0,0x7
0844 180f | | Execute Package,Field_Execute,Field_Number 0xf
0845 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
0847 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0848 0000 0000 | | .LITERAL {0x00000000, 0x00008113}
084c 0000 0000 | | .BLANK 0000[0x4]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0866 | f | .CONST 0x0866 ; Address of begin
0851 0896 | | .CONST 0x0896 ; Address of exception handler
0852 0005 | | .CONST 0x0005 ; Number of locals
0853 INIT_0850:
0853 e5fd | | Load 0x2,-0x3
0854 e009 | | Load 0x0,0x9
0855 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0856 e009 | | Load 0x0,0x9
0857 1bbf | | Execute Package,Field_Read,Field_Number 0xbf
0858 03f1 | | Declare_Variable Discrete,With_Value
0859 e005 | | Load 0x0,0x5
085a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
085c e001 | | Load 0x0,0x1
085d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
085e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085f 02c7 | | Declare_Variable Any
0860 e001 | | Load 0x0,0x1
0861 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0862 180e | | Execute Package,Field_Execute,Field_Number 0xe
0863 a404 | | Store_Unchecked 0x2,0x4
0864 029f 1e0b | | Declare_Subprogram INIT_1e08,For_Call
0866 BODY_0850:
0866 e005 | | Load 0x0,0x5
0867 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0868 e5fc | | Load 0x2,-0x4
0869 e5ff | | Load 0x2,-0x1
086a 8012 | | Call 0x0,0x12
086b 005b | [ | Store_Top Discrete,At_Offset_3
086c 4800 |H | Short_Literal 0x0
086d 00db | | Load_Top At_Offset_3
086e e005 | | Load 0x0,0x5
086f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0870 7002 |p | Jump_Nonzero 0x873
0871 00ea | | Load_Encached Null_String_Cache
0872 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0873 e5fe | | Load 0x2,-0x2
0874 01db | | Execute Vector,Length
0875 7015 |p | Jump_Nonzero 0x88b
0876 e5fc | | Load 0x2,-0x4
0877 4801 |H | Short_Literal 0x1
0878 4801 |H | Short_Literal 0x1
0879 e004 | | Load 0x0,0x4
087a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
087b 035b | [ | Declare_Type Array,Constrained
087c 0337 | 7 | Declare_Variable Array
087d e5fe | | Load 0x2,-0x2
087e e004 | | Load 0x0,0x4
087f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0880 e004 | | Load 0x0,0x4
0881 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0882 0119 | | Execute Any,Check_In_Formal_Type
0883 4801 |H | Short_Literal 0x1
0884 00da | | Load_Top At_Offset_2
0885 01d6 | | Execute Vector,Field_Write
0886 6031 |`1 | Indirect_Literal Discrete,0x8b8,{0x00000000, 0x00008108}
0887 e005 | | Load 0x0,0x5
0888 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0889 00ea | | Load_Encached Null_String_Cache
088a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
088b 8405 | | Call 0x2,0x5
088c 00d9 | | Load_Top At_Offset_1
088d e001 | | Load 0x0,0x1
088e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
088f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0890 6802 |h | Jump_Zero 0x893
0891 00ea | | Load_Encached Null_String_Cache
0892 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0893 00d9 | | Load_Top At_Offset_1
0894 8013 | | Call 0x0,0x13
0895 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0896 TRAP_0850:
0896 e005 | | Load 0x0,0x5
0897 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0898 010f | | Execute Exception,Equal
0899 6815 |h | Jump_Zero 0x8af
089a e5fc | | Load 0x2,-0x4
089b 4801 |H | Short_Literal 0x1
089c 4801 |H | Short_Literal 0x1
089d e004 | | Load 0x0,0x4
089e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
089f 035b | [ | Declare_Type Array,Constrained
08a0 0337 | 7 | Declare_Variable Array
08a1 e5fe | | Load 0x2,-0x2
08a2 e004 | | Load 0x0,0x4
08a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08a4 e004 | | Load 0x0,0x4
08a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08a6 0119 | | Execute Any,Check_In_Formal_Type
08a7 4801 |H | Short_Literal 0x1
08a8 00da | | Load_Top At_Offset_2
08a9 01d6 | | Execute Vector,Field_Write
08aa 600d |` | Indirect_Literal Discrete,0x8b8,{0x00000000, 0x00008108}
08ab e005 | | Load 0x0,0x5
08ac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08ad 00ea | | Load_Encached Null_String_Cache
08ae 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08af e5fc | | Load 0x2,-0x4
08b0 0092 1f9f | | Action Push_String_Extended,0x1f9f ; "Target_Builder.Unit.Unit_Name"
08b2 e007 | | Load 0x0,0x7
08b3 180f | | Execute Package,Field_Execute,Field_Number 0xf
08b4 00ea | | Load_Encached Null_String_Cache
08b5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08b6 0000 0000 | | .XXX[0x2]
08b8 0000 0000 | | .LITERAL {0x00000000, 0x00008108}
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08db | | .CONST 0x08db ; Address of begin
08c1 09c9 | | .CONST 0x09c9 ; Address of exception handler
08c2 0006 | | .CONST 0x0006 ; Number of locals
08c3 INIT_08c0:
08c3 e005 | | Load 0x0,0x5
08c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
08c6 e001 | | Load 0x0,0x1
08c7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
08c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c9 02c7 | | Declare_Variable Any
08ca 00d8 | | Load_Top At_Offset_0
08cb 1c00 | | Execute_Immediate Run_Utility,0x0
08cc 00e1 | | Load_Encached Boolean_Cache
08cd 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
08ce 4820 |H | Short_Literal 0x20
08cf e5fe | | Load 0x2,-0x2
08d0 e00b | | Load 0x0,0xb
08d1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08d2 4800 |H | Short_Literal 0x0
08d3 00d9 | | Load_Top At_Offset_1
08d4 e5fd | | Load 0x2,-0x3
08d5 e009 | | Load 0x0,0x9
08d6 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
08d7 e00b | | Load 0x0,0xb
08d8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
08d9 00e3 | | Load_Encached Natural_Cache
08da 03f1 | | Declare_Variable Discrete,With_Value
08db BODY_08c0:
08db 00d8 | | Load_Top At_Offset_0
08dc 00da | | Load_Top At_Offset_2
08dd 01dd | | Execute Vector,First
08de 027c | | | Execute Discrete,Less
08df 6804 |h | Jump_Zero 0x8e4
08e0 00d9 | | Load_Top At_Offset_1
08e1 01dc | | Execute Vector,Last
08e2 0a01 | | Execute_Immediate Plus,0x1
08e3 0059 | Y | Store_Top Discrete,At_Offset_1
08e4 e5fc | | Load 0x2,-0x4
08e5 0092 1fa0 | | Action Push_String_Extended,0x1fa0 ; "Set_Unit_Target_Name"
08e7 8265 | e | Call 0x1,0x65
08e8 e005 | | Load 0x0,0x5
08e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ea e403 | | Load 0x2,0x3
08eb e5fc | | Load 0x2,-0x4
08ec 612b |a+ | Indirect_Literal Discrete,0xa18,{0x00000000, 0x00008124}
08ed e5ff | | Load 0x2,-0x1
08ee e5fb | | Load 0x2,-0x5
08ef 8266 | f | Call 0x1,0x66
08f0 c403 | | Store 0x2,0x3
08f1 c402 | | Store 0x2,0x2
08f2 4800 |H | Short_Literal 0x0
08f3 e402 | | Load 0x2,0x2
08f4 e005 | | Load 0x0,0x5
08f5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
08f6 7003 |p | Jump_Nonzero 0x8fa
08f7 e402 | | Load 0x2,0x2
08f8 a5fa | | Store_Unchecked 0x2,-0x6
08f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
08fa 00d9 | | Load_Top At_Offset_1
08fb 01db | | Execute Vector,Length
08fc 6805 |h | Jump_Zero 0x902
08fd 00d9 | | Load_Top At_Offset_1
08fe 0092 1fa1 | | Action Push_String_Extended,0x1fa1 ; "*"
0900 01df | | Execute Vector,Equal
0901 6806 |h | Jump_Zero 0x908
0902 e402 | | Load 0x2,0x2
0903 e5fd | | Load 0x2,-0x3
0904 e403 | | Load 0x2,0x3
0905 8014 | | Call 0x0,0x14
0906 c402 | | Store 0x2,0x2
0907 7857 |xW | Jump 0x95f
0908 00d8 | | Load_Top At_Offset_0
0909 00da | | Load_Top At_Offset_2
090a 01dd | | Execute Vector,First
090b 0272 | r | Execute Discrete,Minus
090c e5fd | | Load 0x2,-0x3
090d e009 | | Load 0x0,0x9
090e 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
090f 027d | } | Execute Discrete,Greater
0910 6844 |hD | Jump_Zero 0x955
0911 e5fc | | Load 0x2,-0x4
0912 4801 |H | Short_Literal 0x1
0913 4803 |H | Short_Literal 0x3
0914 e004 | | Load 0x0,0x4
0915 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0916 035b | [ | Declare_Type Array,Constrained
0917 0337 | 7 | Declare_Variable Array
0918 e5ff | | Load 0x2,-0x1
0919 e006 | | Load 0x0,0x6
091a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
091b e004 | | Load 0x0,0x4
091c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
091d 0119 | | Execute Any,Check_In_Formal_Type
091e 4801 |H | Short_Literal 0x1
091f 00da | | Load_Top At_Offset_2
0920 01d6 | | Execute Vector,Field_Write
0921 e5fe | | Load 0x2,-0x2
0922 e004 | | Load 0x0,0x4
0923 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0924 e004 | | Load 0x0,0x4
0925 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0926 0119 | | Execute Any,Check_In_Formal_Type
0927 4802 |H | Short_Literal 0x2
0928 00da | | Load_Top At_Offset_2
0929 01d6 | | Execute Vector,Field_Write
092a e5fd | | Load 0x2,-0x3
092b e009 | | Load 0x0,0x9
092c 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
092d e004 | | Load 0x0,0x4
092e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
092f e004 | | Load 0x0,0x4
0930 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0931 0119 | | Execute Any,Check_In_Formal_Type
0932 4803 |H | Short_Literal 0x3
0933 00da | | Load_Top At_Offset_2
0934 01d6 | | Execute Vector,Field_Write
0935 60de |` | Indirect_Literal Discrete,0xa14,{0x00000000, 0x0000813a}
0936 e005 | | Load 0x0,0x5
0937 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0938 4801 |H | Short_Literal 0x1
0939 4802 |H | Short_Literal 0x2
093a e004 | | Load 0x0,0x4
093b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
093c 035b | [ | Declare_Type Array,Constrained
093d 0337 | 7 | Declare_Variable Array
093e e5ff | | Load 0x2,-0x1
093f e006 | | Load 0x0,0x6
0940 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0941 e004 | | Load 0x0,0x4
0942 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0943 0119 | | Execute Any,Check_In_Formal_Type
0944 4801 |H | Short_Literal 0x1
0945 00da | | Load_Top At_Offset_2
0946 01d6 | | Execute Vector,Field_Write
0947 e5fe | | Load 0x2,-0x2
0948 e004 | | Load 0x0,0x4
0949 1810 | | Execute Package,Field_Execute,Field_Number 0x10
094a e004 | | Load 0x0,0x4
094b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
094c 0119 | | Execute Any,Check_In_Formal_Type
094d 4802 |H | Short_Literal 0x2
094e 00da | | Load_Top At_Offset_2
094f 01d6 | | Execute Vector,Field_Write
0950 60c7 |` | Indirect_Literal Discrete,0xa18,{0x00000000, 0x00008124}
0951 e005 | | Load 0x0,0x5
0952 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0953 a5fa | | Store_Unchecked 0x2,-0x6
0954 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0955 e402 | | Load 0x2,0x2
0956 e5fd | | Load 0x2,-0x3
0957 e009 | | Load 0x0,0x9
0958 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0959 00db | | Load_Top At_Offset_3
095a e403 | | Load 0x2,0x3
095b e001 | | Load 0x0,0x1
095c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
095d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
095e c402 | | Store 0x2,0x2
095f 4800 |H | Short_Literal 0x0
0960 e402 | | Load 0x2,0x2
0961 e005 | | Load 0x0,0x5
0962 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0963 6862 |hb | Jump_Zero 0x9c6
0964 e5fc | | Load 0x2,-0x4
0965 0092 1fa2 | | Action Push_String_Extended,0x1fa2 ; "Target name for unit \x22"
0967 e5ff | | Load 0x2,-0x1
0968 e006 | | Load 0x0,0x6
0969 1817 | | Execute Package,Field_Execute,Field_Number 0x17
096a 01cc | | Execute Vector,Catenate
096b 0092 1fa3 | | Action Push_String_Extended,0x1fa3 ; "\x22 has been set to \x22"
096d 01cc | | Execute Vector,Catenate
096e e5fd | | Load 0x2,-0x3
096f e009 | | Load 0x0,0x9
0970 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0971 e403 | | Load 0x2,0x3
0972 e001 | | Load 0x0,0x1
0973 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0974 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0975 01cc | | Execute Vector,Catenate
0976 0092 1fa4 | | Action Push_String_Extended,0x1fa4 ; "\x22"
0978 01cc | | Execute Vector,Catenate
0979 e007 | | Load 0x0,0x7
097a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
097b 00d9 | | Load_Top At_Offset_1
097c 0092 1fa1 | | Action Push_String_Extended,0x1fa1 ; "*"
097e 01df | | Execute Vector,Equal
097f 680e |h | Jump_Zero 0x98e
0980 4800 |H | Short_Literal 0x0
0981 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0982 e5fc | | Load 0x2,-0x4
0983 0092 1fa5 | | Action Push_String_Extended,0x1fa5 ; "Unit \x22"
0985 e5ff | | Load 0x2,-0x1
0986 e006 | | Load 0x0,0x6
0987 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0988 01cc | | Execute Vector,Catenate
0989 0092 1fa6 | | Action Push_String_Extended,0x1fa6 ; "\x22 will be made non-downloadable"
098b 01cc | | Execute Vector,Catenate
098c e007 | | Load 0x0,0x7
098d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
098e e5fd | | Load 0x2,-0x3
098f e009 | | Load 0x0,0x9
0990 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0991 e403 | | Load 0x2,0x3
0992 e001 | | Load 0x0,0x1
0993 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0994 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0995 00db | | Load_Top At_Offset_3
0996 027e | ~ | Execute Discrete,Not_Equal
0997 682e |h. | Jump_Zero 0x9c6
0998 e402 | | Load 0x2,0x2
0999 e5fd | | Load 0x2,-0x3
099a e009 | | Load 0x0,0x9
099b 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
099c e404 | | Load 0x2,0x4
099d e403 | | Load 0x2,0x3
099e e001 | | Load 0x0,0x1
099f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
09a0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
09a1 c402 | | Store 0x2,0x2
09a2 4800 |H | Short_Literal 0x0
09a3 e402 | | Load 0x2,0x2
09a4 e005 | | Load 0x0,0x5
09a5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
09a6 681f |h | Jump_Zero 0x9c6
09a7 e5fc | | Load 0x2,-0x4
09a8 4801 |H | Short_Literal 0x1
09a9 4802 |H | Short_Literal 0x2
09aa e004 | | Load 0x0,0x4
09ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09ac 035b | [ | Declare_Type Array,Constrained
09ad 0337 | 7 | Declare_Variable Array
09ae e5ff | | Load 0x2,-0x1
09af e006 | | Load 0x0,0x6
09b0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09b1 e004 | | Load 0x0,0x4
09b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09b3 0119 | | Execute Any,Check_In_Formal_Type
09b4 4801 |H | Short_Literal 0x1
09b5 00da | | Load_Top At_Offset_2
09b6 01d6 | | Execute Vector,Field_Write
09b7 e404 | | Load 0x2,0x4
09b8 00e1 | | Load_Encached Boolean_Cache
09b9 011c | | Execute Any,Convert_Unchecked
09ba 1c01 | | Execute_Immediate Run_Utility,0x1
09bb e004 | | Load 0x0,0x4
09bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09bd e004 | | Load 0x0,0x4
09be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09bf 0119 | | Execute Any,Check_In_Formal_Type
09c0 4802 |H | Short_Literal 0x2
09c1 00da | | Load_Top At_Offset_2
09c2 01d6 | | Execute Vector,Field_Write
09c3 604c |`L | Indirect_Literal Discrete,0xa10,{0x00000000, 0x00008192}
09c4 e005 | | Load 0x0,0x5
09c5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09c6 e402 | | Load 0x2,0x2
09c7 a5fa | | Store_Unchecked 0x2,-0x6
09c8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
09c9 TRAP_08c0:
09c9 e005 | | Load 0x0,0x5
09ca 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09cb 010f | | Execute Exception,Equal
09cc 6820 |h | Jump_Zero 0x9ed
09cd e005 | | Load 0x0,0x5
09ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09cf a5fa | | Store_Unchecked 0x2,-0x6
09d0 e5fc | | Load 0x2,-0x4
09d1 4801 |H | Short_Literal 0x1
09d2 4802 |H | Short_Literal 0x2
09d3 e004 | | Load 0x0,0x4
09d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09d5 035b | [ | Declare_Type Array,Constrained
09d6 0337 | 7 | Declare_Variable Array
09d7 e5ff | | Load 0x2,-0x1
09d8 e006 | | Load 0x0,0x6
09d9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09da e004 | | Load 0x0,0x4
09db 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09dc 0119 | | Execute Any,Check_In_Formal_Type
09dd 4801 |H | Short_Literal 0x1
09de 00da | | Load_Top At_Offset_2
09df 01d6 | | Execute Vector,Field_Write
09e0 e5fe | | Load 0x2,-0x2
09e1 e004 | | Load 0x0,0x4
09e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09e3 e004 | | Load 0x0,0x4
09e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09e5 0119 | | Execute Any,Check_In_Formal_Type
09e6 4802 |H | Short_Literal 0x2
09e7 00da | | Load_Top At_Offset_2
09e8 01d6 | | Execute Vector,Field_Write
09e9 602e |`. | Indirect_Literal Discrete,0xa18,{0x00000000, 0x00008124}
09ea e005 | | Load 0x0,0x5
09eb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5
09ed e5fc | | Load 0x2,-0x4
09ee 0092 1fa7 | | Action Push_String_Extended,0x1fa7 ; "Target_Builder.Unit.Set_Unit_Target_Name"
09f0 e007 | | Load 0x0,0x7
09f1 180f | | Execute Package,Field_Execute,Field_Number 0xf
09f2 4801 |H | Short_Literal 0x1
09f3 4802 |H | Short_Literal 0x2
09f4 e004 | | Load 0x0,0x4
09f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09f6 035b | [ | Declare_Type Array,Constrained
09f7 0337 | 7 | Declare_Variable Array
09f8 e5ff | | Load 0x2,-0x1
09f9 e006 | | Load 0x0,0x6
09fa 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09fb e004 | | Load 0x0,0x4
09fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09fd 0119 | | Execute Any,Check_In_Formal_Type
09fe 4801 |H | Short_Literal 0x1
09ff 00da | | Load_Top At_Offset_2
0a00 01d6 | | Execute Vector,Field_Write
0a01 e5fe | | Load 0x2,-0x2
0a02 e004 | | Load 0x0,0x4
0a03 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a04 e004 | | Load 0x0,0x4
0a05 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a06 0119 | | Execute Any,Check_In_Formal_Type
0a07 4802 |H | Short_Literal 0x2
0a08 00da | | Load_Top At_Offset_2
0a09 01d6 | | Execute Vector,Field_Write
0a0a 600d |` | Indirect_Literal Discrete,0xa18,{0x00000000, 0x00008124}
0a0b e005 | | Load 0x0,0x5
0a0c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a0d a5fa | | Store_Unchecked 0x2,-0x6
0a0e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a0f 0000 | | .XXX[0x1]
0a10 0000 0000 | | .LITERAL {0x00000000, 0x00008192}
0a14 0000 0000 | | .LITERAL {0x00000000, 0x0000813a}
0a18 0000 0000 | | .LITERAL {0x00000000, 0x00008124}
0a1c 0000 0000 | | .BLANK 0000[0x4]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a2c | , | .CONST 0x0a2c ; Address of begin
0a21 0a49 | I | .CONST 0x0a49 ; Address of exception handler
0a22 0003 | | .CONST 0x0003 ; Number of locals
0a23 INIT_0a20:
0a23 e005 | | Load 0x0,0x5
0a24 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a25 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a26 e001 | | Load 0x0,0x1
0a27 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a28 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a29 02c7 | | Declare_Variable Any
0a2a 00d8 | | Load_Top At_Offset_0
0a2b 1c00 | | Execute_Immediate Run_Utility,0x0
0a2c BODY_0a20:
0a2c e5fc | | Load 0x2,-0x4
0a2d 0092 1fa8 | | Action Push_String_Extended,0x1fa8 ; "Has_Unit_Target_Name"
0a2f 8265 | e | Call 0x1,0x65
0a30 e005 | | Load 0x0,0x5
0a31 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a32 00d9 | | Load_Top At_Offset_1
0a33 e5fc | | Load 0x2,-0x4
0a34 6037 |`7 | Indirect_Literal Discrete,0xa6c,{0x00000000, 0x00008113}
0a35 e5fe | | Load 0x2,-0x2
0a36 e5ff | | Load 0x2,-0x1
0a37 8266 | f | Call 0x1,0x66
0a38 c403 | | Store 0x2,0x3
0a39 005a | Z | Store_Top Discrete,At_Offset_2
0a3a 4800 |H | Short_Literal 0x0
0a3b 00da | | Load_Top At_Offset_2
0a3c e005 | | Load 0x0,0x5
0a3d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a3e 7002 |p | Jump_Nonzero 0xa41
0a3f 4800 |H | Short_Literal 0x0
0a40 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a41 e5fd | | Load 0x2,-0x3
0a42 e009 | | Load 0x0,0x9
0a43 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a44 00d9 | | Load_Top At_Offset_1
0a45 e001 | | Load 0x0,0x1
0a46 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a47 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0a48 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a49 TRAP_0a20:
0a49 e005 | | Load 0x0,0x5
0a4a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a4b 010f | | Execute Exception,Equal
0a4c 6815 |h | Jump_Zero 0xa62
0a4d e5fc | | Load 0x2,-0x4
0a4e 4801 |H | Short_Literal 0x1
0a4f 4801 |H | Short_Literal 0x1
0a50 e004 | | Load 0x0,0x4
0a51 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a52 035b | [ | Declare_Type Array,Constrained
0a53 0337 | 7 | Declare_Variable Array
0a54 e5fe | | Load 0x2,-0x2
0a55 e006 | | Load 0x0,0x6
0a56 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a57 e004 | | Load 0x0,0x4
0a58 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a59 0119 | | Execute Any,Check_In_Formal_Type
0a5a 4801 |H | Short_Literal 0x1
0a5b 00da | | Load_Top At_Offset_2
0a5c 01d6 | | Execute Vector,Field_Write
0a5d 600e |` | Indirect_Literal Discrete,0xa6c,{0x00000000, 0x00008113}
0a5e e005 | | Load 0x0,0x5
0a5f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a60 4800 |H | Short_Literal 0x0
0a61 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a62 e5fc | | Load 0x2,-0x4
0a63 0092 1fa9 | | Action Push_String_Extended,0x1fa9 ; "Target_Builder.Unit.Has_Unit_Target_Name"
0a65 e007 | | Load 0x0,0x7
0a66 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a67 4800 |H | Short_Literal 0x0
0a68 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a69 0000 0000 | | .XXX[0x3]
0a6b 0000 | |
0a6c 0000 0000 | | .LITERAL {0x00000000, 0x00008113}
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a7c | | | .CONST 0x0a7c ; Address of begin
0a71 0a99 | | .CONST 0x0a99 ; Address of exception handler
0a72 0003 | | .CONST 0x0003 ; Number of locals
0a73 INIT_0a70:
0a73 e005 | | Load 0x0,0x5
0a74 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a75 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a76 e001 | | Load 0x0,0x1
0a77 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a78 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a79 02c7 | | Declare_Variable Any
0a7a 00d8 | | Load_Top At_Offset_0
0a7b 1c00 | | Execute_Immediate Run_Utility,0x0
0a7c BODY_0a70:
0a7c e5fc | | Load 0x2,-0x4
0a7d 0092 1faa | | Action Push_String_Extended,0x1faa ; "Download_Time"
0a7f 8265 | e | Call 0x1,0x65
0a80 e005 | | Load 0x0,0x5
0a81 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a82 00d9 | | Load_Top At_Offset_1
0a83 e5fc | | Load 0x2,-0x4
0a84 6037 |`7 | Indirect_Literal Discrete,0xabc,{0x00000000, 0x00008154}
0a85 e5fe | | Load 0x2,-0x2
0a86 e5ff | | Load 0x2,-0x1
0a87 8266 | f | Call 0x1,0x66
0a88 c403 | | Store 0x2,0x3
0a89 005a | Z | Store_Top Discrete,At_Offset_2
0a8a 4800 |H | Short_Literal 0x0
0a8b 00da | | Load_Top At_Offset_2
0a8c e005 | | Load 0x0,0x5
0a8d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a8e 7002 |p | Jump_Nonzero 0xa91
0a8f 8234 | 4 | Call 0x1,0x34
0a90 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a91 e5fd | | Load 0x2,-0x3
0a92 e009 | | Load 0x0,0x9
0a93 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a94 00d9 | | Load_Top At_Offset_1
0a95 e001 | | Load 0x0,0x1
0a96 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a97 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a98 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a99 TRAP_0a70:
0a99 e005 | | Load 0x0,0x5
0a9a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a9b 010f | | Execute Exception,Equal
0a9c 6815 |h | Jump_Zero 0xab2
0a9d e5fc | | Load 0x2,-0x4
0a9e 4801 |H | Short_Literal 0x1
0a9f 4801 |H | Short_Literal 0x1
0aa0 e004 | | Load 0x0,0x4
0aa1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0aa2 035b | [ | Declare_Type Array,Constrained
0aa3 0337 | 7 | Declare_Variable Array
0aa4 e5fe | | Load 0x2,-0x2
0aa5 e006 | | Load 0x0,0x6
0aa6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0aa7 e004 | | Load 0x0,0x4
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 600e |` | Indirect_Literal Discrete,0xabc,{0x00000000, 0x00008154}
0aae e005 | | Load 0x0,0x5
0aaf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ab0 8234 | 4 | Call 0x1,0x34
0ab1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0ab2 e5fc | | Load 0x2,-0x4
0ab3 0092 1fab | | Action Push_String_Extended,0x1fab ; "Target_Builder.Unit.Download_Time"
0ab5 e007 | | Load 0x0,0x7
0ab6 180f | | Execute Package,Field_Execute,Field_Number 0xf
0ab7 8234 | 4 | Call 0x1,0x34
0ab8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0ab9 0000 0000 | | .XXX[0x3]
0abb 0000 | |
0abc 0000 0000 | | .LITERAL {0x00000000, 0x00008154}
0ac0 ; --------------------------------------------------------------------------------------
0ac0 ; SUBPROGRAM
0ac0 ; --------------------------------------------------------------------------------------
0ac0 0acc | | .CONST 0x0acc ; Address of begin
0ac1 0b05 | | .CONST 0x0b05 ; Address of exception handler
0ac2 0003 | | .CONST 0x0003 ; Number of locals
0ac3 INIT_0ac0:
0ac3 e005 | | Load 0x0,0x5
0ac4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ac5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0ac6 e001 | | Load 0x0,0x1
0ac7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ac8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ac9 02c7 | | Declare_Variable Any
0aca 00d8 | | Load_Top At_Offset_0
0acb 1c00 | | Execute_Immediate Run_Utility,0x0
0acc BODY_0ac0:
0acc e5fc | | Load 0x2,-0x4
0acd 0092 1fac | | Action Push_String_Extended,0x1fac ; "Set_Download_Time"
0acf 8265 | e | Call 0x1,0x65
0ad0 e005 | | Load 0x0,0x5
0ad1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ad2 00d9 | | Load_Top At_Offset_1
0ad3 e5fc | | Load 0x2,-0x4
0ad4 608f |` | Indirect_Literal Discrete,0xb64,{0x00000000, 0x00008120}
0ad5 e5ff | | Load 0x2,-0x1
0ad6 e5fb | | Load 0x2,-0x5
0ad7 8266 | f | Call 0x1,0x66
0ad8 c403 | | Store 0x2,0x3
0ad9 005a | Z | Store_Top Discrete,At_Offset_2
0ada 4800 |H | Short_Literal 0x0
0adb 00da | | Load_Top At_Offset_2
0adc e005 | | Load 0x0,0x5
0add 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0ade 7003 |p | Jump_Nonzero 0xae2
0adf 00d9 | | Load_Top At_Offset_1
0ae0 a5fa | | Store_Unchecked 0x2,-0x6
0ae1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ae2 e5fc | | Load 0x2,-0x4
0ae3 0092 1fad | | Action Push_String_Extended,0x1fad ; "Setting download time for => "
0ae5 e5ff | | Load 0x2,-0x1
0ae6 e006 | | Load 0x0,0x6
0ae7 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0ae8 01cc | | Execute Vector,Catenate
0ae9 0092 1fae | | Action Push_String_Extended,0x1fae ; " to "
0aeb 01cc | | Execute Vector,Catenate
0aec 4800 |H | Short_Literal 0x0
0aed 4800 |H | Short_Literal 0x0
0aee 4800 |H | Short_Literal 0x0
0aef e5fe | | Load 0x2,-0x2
0af0 e015 | | Load 0x0,0x15
0af1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0af2 e015 | | Load 0x0,0x15
0af3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0af4 01cc | | Execute Vector,Catenate
0af5 e007 | | Load 0x0,0x7
0af6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0af7 00d9 | | Load_Top At_Offset_1
0af8 e5fd | | Load 0x2,-0x3
0af9 e009 | | Load 0x0,0x9
0afa 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0afb 4801 |H | Short_Literal 0x1
0afc e5fe | | Load 0x2,-0x2
0afd e403 | | Load 0x2,0x3
0afe e001 | | Load 0x0,0x1
0aff 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0b00 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0b01 005a | Z | Store_Top Discrete,At_Offset_2
0b02 00d9 | | Load_Top At_Offset_1
0b03 a5fa | | Store_Unchecked 0x2,-0x6
0b04 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b05 TRAP_0ac0:
0b05 e005 | | Load 0x0,0x5
0b06 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b07 010f | | Execute Exception,Equal
0b08 682c |h, | Jump_Zero 0xb35
0b09 e005 | | Load 0x0,0x5
0b0a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b0b a5fa | | Store_Unchecked 0x2,-0x6
0b0c e5fc | | Load 0x2,-0x4
0b0d 4801 |H | Short_Literal 0x1
0b0e 4803 |H | Short_Literal 0x3
0b0f e004 | | Load 0x0,0x4
0b10 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b11 035b | [ | Declare_Type Array,Constrained
0b12 0337 | 7 | Declare_Variable Array
0b13 e5ff | | Load 0x2,-0x1
0b14 e006 | | Load 0x0,0x6
0b15 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b16 e004 | | Load 0x0,0x4
0b17 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b18 0119 | | Execute Any,Check_In_Formal_Type
0b19 4801 |H | Short_Literal 0x1
0b1a 00da | | Load_Top At_Offset_2
0b1b 01d6 | | Execute Vector,Field_Write
0b1c e5fb | | Load 0x2,-0x5
0b1d 0227 | ' | Execute Access,All_Reference
0b1e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b1f e001 | | Load 0x0,0x1
0b20 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0b21 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b22 e004 | | Load 0x0,0x4
0b23 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b24 0119 | | Execute Any,Check_In_Formal_Type
0b25 4802 |H | Short_Literal 0x2
0b26 00da | | Load_Top At_Offset_2
0b27 01d6 | | Execute Vector,Field_Write
0b28 e5fe | | Load 0x2,-0x2
0b29 e004 | | Load 0x0,0x4
0b2a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b2b e004 | | Load 0x0,0x4
0b2c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b2d 0119 | | Execute Any,Check_In_Formal_Type
0b2e 4803 |H | Short_Literal 0x3
0b2f 00da | | Load_Top At_Offset_2
0b30 01d6 | | Execute Vector,Field_Write
0b31 6032 |`2 | Indirect_Literal Discrete,0xb64,{0x00000000, 0x00008120}
0b32 e005 | | Load 0x0,0x5
0b33 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b34 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b35 e5fc | | Load 0x2,-0x4
0b36 0092 1faf | | Action Push_String_Extended,0x1faf ; "Target_Builder.Unit.Set_Download_Time"
0b38 e007 | | Load 0x0,0x7
0b39 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b3a 4801 |H | Short_Literal 0x1
0b3b 4803 |H | Short_Literal 0x3
0b3c e004 | | Load 0x0,0x4
0b3d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b3e 035b | [ | Declare_Type Array,Constrained
0b3f 0337 | 7 | Declare_Variable Array
0b40 e5ff | | Load 0x2,-0x1
0b41 e006 | | Load 0x0,0x6
0b42 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b43 e004 | | Load 0x0,0x4
0b44 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b45 0119 | | Execute Any,Check_In_Formal_Type
0b46 4801 |H | Short_Literal 0x1
0b47 00da | | Load_Top At_Offset_2
0b48 01d6 | | Execute Vector,Field_Write
0b49 e5fb | | Load 0x2,-0x5
0b4a 0227 | ' | Execute Access,All_Reference
0b4b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b4c e001 | | Load 0x0,0x1
0b4d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0b4e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b4f e004 | | Load 0x0,0x4
0b50 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b51 0119 | | Execute Any,Check_In_Formal_Type
0b52 4802 |H | Short_Literal 0x2
0b53 00da | | Load_Top At_Offset_2
0b54 01d6 | | Execute Vector,Field_Write
0b55 e5fe | | Load 0x2,-0x2
0b56 e004 | | Load 0x0,0x4
0b57 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b58 e004 | | Load 0x0,0x4
0b59 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b5a 0119 | | Execute Any,Check_In_Formal_Type
0b5b 4803 |H | Short_Literal 0x3
0b5c 00da | | Load_Top At_Offset_2
0b5d 01d6 | | Execute Vector,Field_Write
0b5e 6005 |` | Indirect_Literal Discrete,0xb64,{0x00000000, 0x00008120}
0b5f e005 | | Load 0x0,0x5
0b60 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b61 a5fa | | Store_Unchecked 0x2,-0x6
0b62 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b63 0000 | | .XXX[0x1]
0b64 0000 0000 | | .LITERAL {0x00000000, 0x00008120}
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b | k | .CONST 0x0b6b ; Address of begin
0b69 0004 | | .CONST 0x0004 ; Address of exception handler
0b6a 0001 | | .CONST 0x0001 ; Number of locals
0b6b BODY_0b68:
0b6b INIT_0b68:
0b6b 4800 |H | Short_Literal 0x0
0b6c 4801 |H | Short_Literal 0x1
0b6d 4801 |H | Short_Literal 0x1
0b6e 6005 |` | Indirect_Literal Discrete,0xb74,{0x00000000, 0x0000076d}
0b6f e00c | | Load 0x0,0xc
0b70 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0b71 00ca | | Action Exit_Nullary_Function
0b72 0000 0000 | | .XXX[0x2]
0b74 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b8e | | .CONST 0x0b8e ; Address of begin
0b79 0c17 | | .CONST 0x0c17 ; Address of exception handler
0b7a 0005 | | .CONST 0x0005 ; Number of locals
0b7b INIT_0b78:
0b7b e005 | | Load 0x0,0x5
0b7c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b7d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b7e e003 | | Load 0x0,0x3
0b7f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b80 03bc | | Declare_Variable Access,By_Allocation
0b81 00d8 | | Load_Top At_Offset_0
0b82 0227 | ' | Execute Access,All_Reference
0b83 1c00 | | Execute_Immediate Run_Utility,0x0
0b84 e5ff | | Load 0x2,-0x1
0b85 e002 | | Load 0x0,0x2
0b86 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b87 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b88 e001 | | Load 0x0,0x1
0b89 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0b8a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b8b 02c7 | | Declare_Variable Any
0b8c 00d8 | | Load_Top At_Offset_0
0b8d 1c00 | | Execute_Immediate Run_Utility,0x0
0b8e BODY_0b78:
0b8e e5fb | | Load 0x2,-0x5
0b8f 0092 1fb0 | | Action Push_String_Extended,0x1fb0 ; "Target_Builder.Unit.Refresh_Suppliers"
0b91 e007 | | Load 0x0,0x7
0b92 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b93 4800 |H | Short_Literal 0x0
0b94 a5fa | | Store_Unchecked 0x2,-0x6
0b95 e5fd | | Load 0x2,-0x3
0b96 0227 | ' | Execute Access,All_Reference
0b97 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b98 00db | | Load_Top At_Offset_3
0b99 0227 | ' | Execute Access,All_Reference
0b9a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b9b 4801 |H | Short_Literal 0x1
0b9c e5fd | | Load 0x2,-0x3
0b9d 0227 | ' | Execute Access,All_Reference
0b9e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b9f e001 | | Load 0x0,0x1
0ba0 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0ba1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0ba2 00db | | Load_Top At_Offset_3
0ba3 0227 | ' | Execute Access,All_Reference
0ba4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0ba5 4801 |H | Short_Literal 0x1
0ba6 4802 |H | Short_Literal 0x2
0ba7 00db | | Load_Top At_Offset_3
0ba8 e403 | | Load 0x2,0x3
0ba9 0227 | ' | Execute Access,All_Reference
0baa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bab e403 | | Load 0x2,0x3
0bac 0227 | ' | Execute Access,All_Reference
0bad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bae e001 | | Load 0x0,0x1
0baf 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0bb0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0bb1 00da | | Load_Top At_Offset_2
0bb2 0227 | ' | Execute Access,All_Reference
0bb3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bb4 00da | | Load_Top At_Offset_2
0bb5 e001 | | Load 0x0,0x1
0bb6 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0bb7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0bb8 c405 | | Store 0x2,0x5
0bb9 00d8 | | Load_Top At_Offset_0
0bba e001 | | Load 0x0,0x1
0bbb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0bbc 180f | | Execute Package,Field_Execute,Field_Number 0xf
0bbd 7034 |p4 | Jump_Nonzero 0xbf2
0bbe e5fc | | Load 0x2,-0x4
0bbf e009 | | Load 0x0,0x9
0bc0 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0bc1 00d9 | | Load_Top At_Offset_1
0bc2 e001 | | Load 0x0,0x1
0bc3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0bc4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0bc5 702c |p, | Jump_Nonzero 0xbf2
0bc6 00db | | Load_Top At_Offset_3
0bc7 e5fc | | Load 0x2,-0x4
0bc8 00da | | Load_Top At_Offset_2
0bc9 8014 | | Call 0x0,0x14
0bca c402 | | Store 0x2,0x2
0bcb 4800 |H | Short_Literal 0x0
0bcc e402 | | Load 0x2,0x2
0bcd e005 | | Load 0x0,0x5
0bce 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0bcf 7044 |pD | Jump_Nonzero 0xc14
0bd0 e011 | | Load 0x0,0x11
0bd1 180e | | Execute Package,Field_Execute,Field_Number 0xe
0bd2 4801 |H | Short_Literal 0x1
0bd3 4802 |H | Short_Literal 0x2
0bd4 e004 | | Load 0x0,0x4
0bd5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bd6 035b | [ | Declare_Type Array,Constrained
0bd7 0337 | 7 | Declare_Variable Array
0bd8 00da | | Load_Top At_Offset_2
0bd9 8016 | | Call 0x0,0x16
0bda e004 | | Load 0x0,0x4
0bdb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bdc 0119 | | Execute Any,Check_In_Formal_Type
0bdd 4801 |H | Short_Literal 0x1
0bde 00da | | Load_Top At_Offset_2
0bdf 01d6 | | Execute Vector,Field_Write
0be0 e403 | | Load 0x2,0x3
0be1 0227 | ' | Execute Access,All_Reference
0be2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0be3 e001 | | Load 0x0,0x1
0be4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0be5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0be6 e004 | | Load 0x0,0x4
0be7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0be8 0119 | | Execute Any,Check_In_Formal_Type
0be9 4802 |H | Short_Literal 0x2
0bea 00da | | Load_Top At_Offset_2
0beb 01d6 | | Execute Vector,Field_Write
0bec 6053 |`S | Indirect_Literal Discrete,0xc40,{0x00000000, 0x0000811f}
0bed e005 | | Load 0x0,0x5
0bee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0bef 00db | | Load_Top At_Offset_3
0bf0 a5fa | | Store_Unchecked 0x2,-0x6
0bf1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0bf2 00d8 | | Load_Top At_Offset_0
0bf3 e001 | | Load 0x0,0x1
0bf4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0bf5 180f | | Execute Package,Field_Execute,Field_Number 0xf
0bf6 681d |h | Jump_Zero 0xc14
0bf7 e011 | | Load 0x0,0x11
0bf8 180e | | Execute Package,Field_Execute,Field_Number 0xe
0bf9 4801 |H | Short_Literal 0x1
0bfa 4802 |H | Short_Literal 0x2
0bfb e004 | | Load 0x0,0x4
0bfc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bfd 035b | [ | Declare_Type Array,Constrained
0bfe 0337 | 7 | Declare_Variable Array
0bff e5ff | | Load 0x2,-0x1
0c00 e004 | | Load 0x0,0x4
0c01 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0c02 e004 | | Load 0x0,0x4
0c03 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c04 0119 | | Execute Any,Check_In_Formal_Type
0c05 4801 |H | Short_Literal 0x1
0c06 00da | | Load_Top At_Offset_2
0c07 01d6 | | Execute Vector,Field_Write
0c08 e5fe | | Load 0x2,-0x2
0c09 e004 | | Load 0x0,0x4
0c0a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0c0b e004 | | Load 0x0,0x4
0c0c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c0d 0119 | | Execute Any,Check_In_Formal_Type
0c0e 4802 |H | Short_Literal 0x2
0c0f 00da | | Load_Top At_Offset_2
0c10 01d6 | | Execute Vector,Field_Write
0c11 602a |`* | Indirect_Literal Discrete,0xc3c,{0x00000000, 0x0000811e}
0c12 e005 | | Load 0x0,0x5
0c13 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c14 00db | | Load_Top At_Offset_3
0c15 a5fa | | Store_Unchecked 0x2,-0x6
0c16 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0c17 TRAP_0b78:
0c17 4884 |H | Short_Literal 0x84
0c18 010f | | Execute Exception,Equal
0c19 681c |h | Jump_Zero 0xc36
0c1a 4801 |H | Short_Literal 0x1
0c1b 4802 |H | Short_Literal 0x2
0c1c e004 | | Load 0x0,0x4
0c1d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c1e 035b | [ | Declare_Type Array,Constrained
0c1f 0337 | 7 | Declare_Variable Array
0c20 e5ff | | Load 0x2,-0x1
0c21 e004 | | Load 0x0,0x4
0c22 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0c23 e004 | | Load 0x0,0x4
0c24 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c25 0119 | | Execute Any,Check_In_Formal_Type
0c26 4801 |H | Short_Literal 0x1
0c27 00da | | Load_Top At_Offset_2
0c28 01d6 | | Execute Vector,Field_Write
0c29 e5fe | | Load 0x2,-0x2
0c2a e004 | | Load 0x0,0x4
0c2b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0c2c e004 | | Load 0x0,0x4
0c2d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c2e 0119 | | Execute Any,Check_In_Formal_Type
0c2f 4802 |H | Short_Literal 0x2
0c30 00da | | Load_Top At_Offset_2
0c31 01d6 | | Execute Vector,Field_Write
0c32 6009 |` | Indirect_Literal Discrete,0xc3c,{0x00000000, 0x0000811e}
0c33 e005 | | Load 0x0,0x5
0c34 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0c35 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0c36 0092 1fb1 | | Action Push_String_Extended,0x1fb1 ; "Refresh_Suppliers"
0c38 e007 | | Load 0x0,0x7
0c39 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c3a a5fa | | Store_Unchecked 0x2,-0x6
0c3b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0c3c 0000 0000 | | .LITERAL {0x00000000, 0x0000811e}
0c40 0000 0000 | | .LITERAL {0x00000000, 0x0000811f}
0c44 0000 0000 | | .BLANK 0000[0x4]
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c5e | ^ | .CONST 0x0c5e ; Address of begin
0c49 0ce8 | | .CONST 0x0ce8 ; Address of exception handler
0c4a 0005 | | .CONST 0x0005 ; Number of locals
0c4b INIT_0c48:
0c4b e005 | | Load 0x0,0x5
0c4c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c4d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c4e e003 | | Load 0x0,0x3
0c4f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c50 03bc | | Declare_Variable Access,By_Allocation
0c51 00d8 | | Load_Top At_Offset_0
0c52 0227 | ' | Execute Access,All_Reference
0c53 1c00 | | Execute_Immediate Run_Utility,0x0
0c54 e5ff | | Load 0x2,-0x1
0c55 e002 | | Load 0x0,0x2
0c56 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0c57 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0c58 e001 | | Load 0x0,0x1
0c59 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c5a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c5b 02c7 | | Declare_Variable Any
0c5c 00d8 | | Load_Top At_Offset_0
0c5d 1c00 | | Execute_Immediate Run_Utility,0x0
0c5e BODY_0c48:
0c5e e5fb | | Load 0x2,-0x5
0c5f 0092 1fb2 | | Action Push_String_Extended,0x1fb2 ; "Target_Builder.Unit.Register"
0c61 e007 | | Load 0x0,0x7
0c62 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c63 4800 |H | Short_Literal 0x0
0c64 a5fa | | Store_Unchecked 0x2,-0x6
0c65 e5fd | | Load 0x2,-0x3
0c66 0227 | ' | Execute Access,All_Reference
0c67 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c68 00db | | Load_Top At_Offset_3
0c69 0227 | ' | Execute Access,All_Reference
0c6a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c6b 4801 |H | Short_Literal 0x1
0c6c e5fd | | Load 0x2,-0x3
0c6d 0227 | ' | Execute Access,All_Reference
0c6e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c6f e001 | | Load 0x0,0x1
0c70 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c71 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0c72 00db | | Load_Top At_Offset_3
0c73 0227 | ' | Execute Access,All_Reference
0c74 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c75 4801 |H | Short_Literal 0x1
0c76 4800 |H | Short_Literal 0x0
0c77 00db | | Load_Top At_Offset_3
0c78 e403 | | Load 0x2,0x3
0c79 0227 | ' | Execute Access,All_Reference
0c7a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c7b e403 | | Load 0x2,0x3
0c7c 0227 | ' | Execute Access,All_Reference
0c7d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c7e e001 | | Load 0x0,0x1
0c7f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c80 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0c81 00da | | Load_Top At_Offset_2
0c82 0227 | ' | Execute Access,All_Reference
0c83 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c84 00da | | Load_Top At_Offset_2
0c85 e001 | | Load 0x0,0x1
0c86 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c87 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0c88 c405 | | Store 0x2,0x5
0c89 00d8 | | Load_Top At_Offset_0
0c8a e001 | | Load 0x0,0x1
0c8b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c8c 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c8d 7034 |p4 | Jump_Nonzero 0xcc2
0c8e e5fc | | Load 0x2,-0x4
0c8f e009 | | Load 0x0,0x9
0c90 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0c91 00d9 | | Load_Top At_Offset_1
0c92 e001 | | Load 0x0,0x1
0c93 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c94 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0c95 702c |p, | Jump_Nonzero 0xcc2
0c96 00db | | Load_Top At_Offset_3
0c97 e5fc | | Load 0x2,-0x4
0c98 00da | | Load_Top At_Offset_2
0c99 8014 | | Call 0x0,0x14
0c9a c402 | | Store 0x2,0x2
0c9b 4800 |H | Short_Literal 0x0
0c9c e402 | | Load 0x2,0x2
0c9d e005 | | Load 0x0,0x5
0c9e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0c9f 7045 |pE | Jump_Nonzero 0xce5
0ca0 e011 | | Load 0x0,0x11
0ca1 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ca2 4801 |H | Short_Literal 0x1
0ca3 4802 |H | Short_Literal 0x2
0ca4 e004 | | Load 0x0,0x4
0ca5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ca6 035b | [ | Declare_Type Array,Constrained
0ca7 0337 | 7 | Declare_Variable Array
0ca8 00da | | Load_Top At_Offset_2
0ca9 8016 | | Call 0x0,0x16
0caa e004 | | Load 0x0,0x4
0cab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cac 0119 | | Execute Any,Check_In_Formal_Type
0cad 4801 |H | Short_Literal 0x1
0cae 00da | | Load_Top At_Offset_2
0caf 01d6 | | Execute Vector,Field_Write
0cb0 e403 | | Load 0x2,0x3
0cb1 0227 | ' | Execute Access,All_Reference
0cb2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0cb3 e001 | | Load 0x0,0x1
0cb4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0cb5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0cb6 e004 | | Load 0x0,0x4
0cb7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cb8 0119 | | Execute Any,Check_In_Formal_Type
0cb9 4802 |H | Short_Literal 0x2
0cba 00da | | Load_Top At_Offset_2
0cbb 01d6 | | Execute Vector,Field_Write
0cbc 6783 |g | Indirect_Literal Discrete,0xc40,{0x00000000, 0x0000811f}
0cbd e005 | | Load 0x0,0x5
0cbe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cbf 00db | | Load_Top At_Offset_3
0cc0 a5fa | | Store_Unchecked 0x2,-0x6
0cc1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0cc2 00d8 | | Load_Top At_Offset_0
0cc3 e001 | | Load 0x0,0x1
0cc4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0cc5 180f | | Execute Package,Field_Execute,Field_Number 0xf
0cc6 681e |h | Jump_Zero 0xce5
0cc7 e011 | | Load 0x0,0x11
0cc8 180e | | Execute Package,Field_Execute,Field_Number 0xe
0cc9 4801 |H | Short_Literal 0x1
0cca 4802 |H | Short_Literal 0x2
0ccb e004 | | Load 0x0,0x4
0ccc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ccd 035b | [ | Declare_Type Array,Constrained
0cce 0337 | 7 | Declare_Variable Array
0ccf e5ff | | Load 0x2,-0x1
0cd0 e004 | | Load 0x0,0x4
0cd1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0cd2 e004 | | Load 0x0,0x4
0cd3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cd4 0119 | | Execute Any,Check_In_Formal_Type
0cd5 4801 |H | Short_Literal 0x1
0cd6 00da | | Load_Top At_Offset_2
0cd7 01d6 | | Execute Vector,Field_Write
0cd8 0092 1fb3 | | Action Push_String_Extended,0x1fb3 ; "register"
0cda e004 | | Load 0x0,0x4
0cdb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cdc e004 | | Load 0x0,0x4
0cdd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cde 0119 | | Execute Any,Check_In_Formal_Type
0cdf 4802 |H | Short_Literal 0x2
0ce0 00da | | Load_Top At_Offset_2
0ce1 01d6 | | Execute Vector,Field_Write
0ce2 600d |` | Indirect_Literal Discrete,0xcf0,{0x00000000, 0x0000811d}
0ce3 e005 | | Load 0x0,0x5
0ce4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ce5 00db | | Load_Top At_Offset_3
0ce6 a5fa | | Store_Unchecked 0x2,-0x6
0ce7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ce8 TRAP_0c48:
0ce8 0007 | | Action Break_Optional
0ce9 0092 1fb4 | | Action Push_String_Extended,0x1fb4 ; "Register"
0ceb e007 | | Load 0x0,0x7
0cec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ced a5fa | | Store_Unchecked 0x2,-0x6
0cee 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0cef 0000 | | .XXX[0x1]
0cf0 0000 0000 | | .LITERAL {0x00000000, 0x0000811d}
0cf4 0000 0000 | | .BLANK 0000[0x4]
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0d12 | | .CONST 0x0d12 ; Address of begin
0cf9 0e69 | i | .CONST 0x0e69 ; Address of exception handler
0cfa 0006 | | .CONST 0x0006 ; Number of locals
0cfb INIT_0cf8:
0cfb e001 | | Load 0x0,0x1
0cfc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0cfd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cfe 02c7 | | Declare_Variable Any
0cff 00d8 | | Load_Top At_Offset_0
0d00 1c00 | | Execute_Immediate Run_Utility,0x0
0d01 e005 | | Load 0x0,0x5
0d02 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d03 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d04 e001 | | Load 0x0,0x1
0d05 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d06 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d07 02c7 | | Declare_Variable Any
0d08 00d8 | | Load_Top At_Offset_0
0d09 1c00 | | Execute_Immediate Run_Utility,0x0
0d0a 00e1 | | Load_Encached Boolean_Cache
0d0b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d0c e001 | | Load 0x0,0x1
0d0d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d0e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d0f 02c7 | | Declare_Variable Any
0d10 00d8 | | Load_Top At_Offset_0
0d11 1c00 | | Execute_Immediate Run_Utility,0x0
0d12 BODY_0cf8:
0d12 e5fa | | Load 0x2,-0x6
0d13 0092 1fb5 | | Action Push_String_Extended,0x1fb5 ; "Add_Secondary_Unit"
0d15 8265 | e | Call 0x1,0x65
0d16 e005 | | Load 0x0,0x5
0d17 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d18 00db | | Load_Top At_Offset_3
0d19 e5fa | | Load 0x2,-0x6
0d1a 618d |a | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0d1b e5fe | | Load 0x2,-0x2
0d1c e5ff | | Load 0x2,-0x1
0d1d 8266 | f | Call 0x1,0x66
0d1e c404 | | Store 0x2,0x4
0d1f c403 | | Store 0x2,0x3
0d20 4800 |H | Short_Literal 0x0
0d21 e403 | | Load 0x2,0x3
0d22 e005 | | Load 0x0,0x5
0d23 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d24 7003 |p | Jump_Nonzero 0xd28
0d25 00db | | Load_Top At_Offset_3
0d26 a5f9 | | Store_Unchecked 0x2,-0x7
0d27 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0d28 e5ff | | Load 0x2,-0x1
0d29 0227 | ' | Execute Access,All_Reference
0d2a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d2b e5fd | | Load 0x2,-0x3
0d2c e002 | | Load 0x0,0x2
0d2d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d2e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0d2f e001 | | Load 0x0,0x1
0d30 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d31 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0d32 c406 | | Store 0x2,0x6
0d33 00d8 | | Load_Top At_Offset_0
0d34 e001 | | Load 0x0,0x1
0d35 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d36 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d37 686b |hk | Jump_Zero 0xda3
0d38 00db | | Load_Top At_Offset_3
0d39 4802 |H | Short_Literal 0x2
0d3a e5ff | | Load 0x2,-0x1
0d3b 0227 | ' | Execute Access,All_Reference
0d3c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d3d e5fd | | Load 0x2,-0x3
0d3e e001 | | Load 0x0,0x1
0d3f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0d40 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0d41 c403 | | Store 0x2,0x3
0d42 4800 |H | Short_Literal 0x0
0d43 e403 | | Load 0x2,0x3
0d44 e005 | | Load 0x0,0x5
0d45 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d46 7026 |p& | Jump_Nonzero 0xd6d
0d47 e5fa | | Load 0x2,-0x6
0d48 4801 |H | Short_Literal 0x1
0d49 4802 |H | Short_Literal 0x2
0d4a e004 | | Load 0x0,0x4
0d4b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d4c 035b | [ | Declare_Type Array,Constrained
0d4d 0337 | 7 | Declare_Variable Array
0d4e e5fd | | Load 0x2,-0x3
0d4f e006 | | Load 0x0,0x6
0d50 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0d51 e004 | | Load 0x0,0x4
0d52 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d53 0119 | | Execute Any,Check_In_Formal_Type
0d54 4801 |H | Short_Literal 0x1
0d55 00da | | Load_Top At_Offset_2
0d56 01d6 | | Execute Vector,Field_Write
0d57 e5ff | | Load 0x2,-0x1
0d58 0227 | ' | Execute Access,All_Reference
0d59 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d5a e001 | | Load 0x0,0x1
0d5b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d5c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0d5d e004 | | Load 0x0,0x4
0d5e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d5f 0119 | | Execute Any,Check_In_Formal_Type
0d60 4802 |H | Short_Literal 0x2
0d61 00da | | Load_Top At_Offset_2
0d62 01d6 | | Execute Vector,Field_Write
0d63 678c |g | Indirect_Literal Discrete,0xcf0,{0x00000000, 0x0000811d}
0d64 e005 | | Load 0x0,0x5
0d65 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d66 e004 | | Load 0x0,0x4
0d67 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0d68 613f |a? | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0d69 e005 | | Load 0x0,0x5
0d6a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d6b a5f9 | | Store_Unchecked 0x2,-0x7
0d6c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0d6d e5ff | | Load 0x2,-0x1
0d6e 0227 | ' | Execute Access,All_Reference
0d6f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d70 e5fd | | Load 0x2,-0x3
0d71 e002 | | Load 0x0,0x2
0d72 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d73 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0d74 e001 | | Load 0x0,0x1
0d75 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d76 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0d77 c406 | | Store 0x2,0x6
0d78 00d8 | | Load_Top At_Offset_0
0d79 e001 | | Load 0x0,0x1
0d7a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d7b 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d7c 6858 |hX | Jump_Zero 0xdd5
0d7d e5fa | | Load 0x2,-0x6
0d7e 4801 |H | Short_Literal 0x1
0d7f 4802 |H | Short_Literal 0x2
0d80 e004 | | Load 0x0,0x4
0d81 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d82 035b | [ | Declare_Type Array,Constrained
0d83 0337 | 7 | Declare_Variable Array
0d84 e5fd | | Load 0x2,-0x3
0d85 e006 | | Load 0x0,0x6
0d86 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0d87 e004 | | Load 0x0,0x4
0d88 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d89 0119 | | Execute Any,Check_In_Formal_Type
0d8a 4801 |H | Short_Literal 0x1
0d8b 00da | | Load_Top At_Offset_2
0d8c 01d6 | | Execute Vector,Field_Write
0d8d e5ff | | Load 0x2,-0x1
0d8e 0227 | ' | Execute Access,All_Reference
0d8f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d90 e001 | | Load 0x0,0x1
0d91 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d92 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0d93 e004 | | Load 0x0,0x4
0d94 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d95 0119 | | Execute Any,Check_In_Formal_Type
0d96 4802 |H | Short_Literal 0x2
0d97 00da | | Load_Top At_Offset_2
0d98 01d6 | | Execute Vector,Field_Write
0d99 6756 |gV | Indirect_Literal Discrete,0xcf0,{0x00000000, 0x0000811d}
0d9a e005 | | Load 0x0,0x5
0d9b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d9c e004 | | Load 0x0,0x4
0d9d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0d9e 6109 |a | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0d9f e005 | | Load 0x0,0x5
0da0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0da1 a5f9 | | Store_Unchecked 0x2,-0x7
0da2 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0da3 00d8 | | Load_Top At_Offset_0
0da4 e001 | | Load 0x0,0x1
0da5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0da6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0da7 682d |h- | Jump_Zero 0xdd5
0da8 00d8 | | Load_Top At_Offset_0
0da9 e001 | | Load 0x0,0x1
0daa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0dab 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0dac c402 | | Store 0x2,0x2
0dad e402 | | Load 0x2,0x2
0dae e001 | | Load 0x0,0x1
0daf 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0db0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0db1 00db | | Load_Top At_Offset_3
0db2 e001 | | Load 0x0,0x1
0db3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0db4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0db5 01df | | Execute Vector,Equal
0db6 6803 |h | Jump_Zero 0xdba
0db7 4801 |H | Short_Literal 0x1
0db8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0db9 781b |x | Jump 0xdd5
0dba e5fa | | Load 0x2,-0x6
0dbb 4801 |H | Short_Literal 0x1
0dbc 4801 |H | Short_Literal 0x1
0dbd e004 | | Load 0x0,0x4
0dbe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0dbf 035b | [ | Declare_Type Array,Constrained
0dc0 0337 | 7 | Declare_Variable Array
0dc1 e402 | | Load 0x2,0x2
0dc2 e001 | | Load 0x0,0x1
0dc3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0dc4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dc5 e004 | | Load 0x0,0x4
0dc6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dc7 0119 | | Execute Any,Check_In_Formal_Type
0dc8 4801 |H | Short_Literal 0x1
0dc9 00da | | Load_Top At_Offset_2
0dca 01d6 | | Execute Vector,Field_Write
0dcb 60d8 |` | Indirect_Literal Discrete,0xea4,{0x00000000, 0x00008170}
0dcc e005 | | Load 0x0,0x5
0dcd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0dce e004 | | Load 0x0,0x4
0dcf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0dd0 60d7 |` | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0dd1 e005 | | Load 0x0,0x5
0dd2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0dd3 a5f9 | | Store_Unchecked 0x2,-0x7
0dd4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0dd5 e5fc | | Load 0x2,-0x4
0dd6 01db | | Execute Vector,Length
0dd7 e5fb | | Load 0x2,-0x5
0dd8 01db | | Execute Vector,Length
0dd9 0273 | s | Execute Discrete,Plus
0dda 4900 |I | Short_Literal 0x100
0ddb 027d | } | Execute Discrete,Greater
0ddc 6823 |h# | Jump_Zero 0xe00
0ddd e5fa | | Load 0x2,-0x6
0dde 4801 |H | Short_Literal 0x1
0ddf 4802 |H | Short_Literal 0x2
0de0 e004 | | Load 0x0,0x4
0de1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0de2 035b | [ | Declare_Type Array,Constrained
0de3 0337 | 7 | Declare_Variable Array
0de4 e5fd | | Load 0x2,-0x3
0de5 e006 | | Load 0x0,0x6
0de6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0de7 e004 | | Load 0x0,0x4
0de8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0de9 0119 | | Execute Any,Check_In_Formal_Type
0dea 4801 |H | Short_Literal 0x1
0deb 00da | | Load_Top At_Offset_2
0dec 01d6 | | Execute Vector,Field_Write
0ded 4900 |I | Short_Literal 0x100
0dee e004 | | Load 0x0,0x4
0def 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0df0 e004 | | Load 0x0,0x4
0df1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0df2 0119 | | Execute Any,Check_In_Formal_Type
0df3 4802 |H | Short_Literal 0x2
0df4 00da | | Load_Top At_Offset_2
0df5 01d6 | | Execute Vector,Field_Write
0df6 60a9 |` | Indirect_Literal Discrete,0xea0,{0x00000000, 0x00008163}
0df7 e005 | | Load 0x0,0x5
0df8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0df9 e004 | | Load 0x0,0x4
0dfa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0dfb 60ac |` | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0dfc e005 | | Load 0x0,0x5
0dfd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0dfe a5f9 | | Store_Unchecked 0x2,-0x7
0dff 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e00 00d9 | | Load_Top At_Offset_1
0e01 6835 |h5 | Jump_Zero 0xe37
0e02 e5fc | | Load 0x2,-0x4
0e03 00d9 | | Load_Top At_Offset_1
0e04 8017 | | Call 0x0,0x17
0e05 e5fb | | Load 0x2,-0x5
0e06 00d9 | | Load_Top At_Offset_1
0e07 8018 | | Call 0x0,0x18
0e08 e5fa | | Load 0x2,-0x6
0e09 4801 |H | Short_Literal 0x1
0e0a 4804 |H | Short_Literal 0x4
0e0b e004 | | Load 0x0,0x4
0e0c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e0d 035b | [ | Declare_Type Array,Constrained
0e0e 0337 | 7 | Declare_Variable Array
0e0f e5fd | | Load 0x2,-0x3
0e10 e006 | | Load 0x0,0x6
0e11 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e12 e004 | | Load 0x0,0x4
0e13 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e14 0119 | | Execute Any,Check_In_Formal_Type
0e15 4801 |H | Short_Literal 0x1
0e16 00da | | Load_Top At_Offset_2
0e17 01d6 | | Execute Vector,Field_Write
0e18 e5fe | | Load 0x2,-0x2
0e19 e006 | | Load 0x0,0x6
0e1a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e1b e004 | | Load 0x0,0x4
0e1c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e1d 0119 | | Execute Any,Check_In_Formal_Type
0e1e 4802 |H | Short_Literal 0x2
0e1f 00da | | Load_Top At_Offset_2
0e20 01d6 | | Execute Vector,Field_Write
0e21 e5fc | | Load 0x2,-0x4
0e22 e004 | | Load 0x0,0x4
0e23 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e24 e004 | | Load 0x0,0x4
0e25 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e26 0119 | | Execute Any,Check_In_Formal_Type
0e27 4803 |H | Short_Literal 0x3
0e28 00da | | Load_Top At_Offset_2
0e29 01d6 | | Execute Vector,Field_Write
0e2a e5fb | | Load 0x2,-0x5
0e2b e004 | | Load 0x0,0x4
0e2c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e2d e004 | | Load 0x0,0x4
0e2e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e2f 0119 | | Execute Any,Check_In_Formal_Type
0e30 4804 |H | Short_Literal 0x4
0e31 00da | | Load_Top At_Offset_2
0e32 01d6 | | Execute Vector,Field_Write
0e33 6068 |`h | Indirect_Literal Discrete,0xe9c,{0x00000000, 0x00008186}
0e34 e005 | | Load 0x0,0x5
0e35 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e36 782f |x/ | Jump 0xe66
0e37 00db | | Load_Top At_Offset_3
0e38 00d9 | | Load_Top At_Offset_1
0e39 e404 | | Load 0x2,0x4
0e3a e001 | | Load 0x0,0x1
0e3b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e3c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0e3d c403 | | Store 0x2,0x3
0e3e 4800 |H | Short_Literal 0x0
0e3f e403 | | Load 0x2,0x3
0e40 e005 | | Load 0x0,0x5
0e41 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0e42 6823 |h# | Jump_Zero 0xe66
0e43 e5fc | | Load 0x2,-0x4
0e44 00d9 | | Load_Top At_Offset_1
0e45 8017 | | Call 0x0,0x17
0e46 e5fb | | Load 0x2,-0x5
0e47 00d9 | | Load_Top At_Offset_1
0e48 8018 | | Call 0x0,0x18
0e49 e5fa | | Load 0x2,-0x6
0e4a 0092 1fb6 | | Action Push_String_Extended,0x1fb6 ; "Added "
0e4c e5fd | | Load 0x2,-0x3
0e4d e006 | | Load 0x0,0x6
0e4e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0e4f 01cc | | Execute Vector,Catenate
0e50 0092 1fb7 | | Action Push_String_Extended,0x1fb7 ; " as the secondary of unit "
0e52 01cc | | Execute Vector,Catenate
0e53 e5fe | | Load 0x2,-0x2
0e54 e006 | | Load 0x0,0x6
0e55 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0e56 01cc | | Execute Vector,Catenate
0e57 0092 1fb8 | | Action Push_String_Extended,0x1fb8 ; ". Prefix = \x22"
0e59 01cc | | Execute Vector,Catenate
0e5a e5fc | | Load 0x2,-0x4
0e5b 01cc | | Execute Vector,Catenate
0e5c 0092 1fb9 | | Action Push_String_Extended,0x1fb9 ; "\x22, Suffix = \x22"
0e5e 01cc | | Execute Vector,Catenate
0e5f e5fb | | Load 0x2,-0x5
0e60 01cc | | Execute Vector,Catenate
0e61 0092 1fa4 | | Action Push_String_Extended,0x1fa4 ; "\x22"
0e63 01cc | | Execute Vector,Catenate
0e64 e007 | | Load 0x0,0x7
0e65 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e66 00db | | Load_Top At_Offset_3
0e67 a5f9 | | Store_Unchecked 0x2,-0x7
0e68 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e69 TRAP_0cf8:
0e69 e005 | | Load 0x0,0x5
0e6a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0e6b 010f | | Execute Exception,Equal
0e6c 6820 |h | Jump_Zero 0xe8d
0e6d e005 | | Load 0x0,0x5
0e6e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0e6f a5f9 | | Store_Unchecked 0x2,-0x7
0e70 e5fa | | Load 0x2,-0x6
0e71 4801 |H | Short_Literal 0x1
0e72 4802 |H | Short_Literal 0x2
0e73 e004 | | Load 0x0,0x4
0e74 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e75 035b | [ | Declare_Type Array,Constrained
0e76 0337 | 7 | Declare_Variable Array
0e77 e5fe | | Load 0x2,-0x2
0e78 e006 | | Load 0x0,0x6
0e79 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e7a e004 | | Load 0x0,0x4
0e7b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e7c 0119 | | Execute Any,Check_In_Formal_Type
0e7d 4801 |H | Short_Literal 0x1
0e7e 00da | | Load_Top At_Offset_2
0e7f 01d6 | | Execute Vector,Field_Write
0e80 e5fd | | Load 0x2,-0x3
0e81 e006 | | Load 0x0,0x6
0e82 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e83 e004 | | Load 0x0,0x4
0e84 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e85 0119 | | Execute Any,Check_In_Formal_Type
0e86 4802 |H | Short_Literal 0x2
0e87 00da | | Load_Top At_Offset_2
0e88 01d6 | | Execute Vector,Field_Write
0e89 601e |` | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0e8a e005 | | Load 0x0,0x5
0e8b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e8c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e8d e5fa | | Load 0x2,-0x6
0e8e 0092 1fba | | Action Push_String_Extended,0x1fba ; "Target_Builder.Unit.Add_Secondary_Unit"
0e90 e007 | | Load 0x0,0x7
0e91 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e92 e004 | | Load 0x0,0x4
0e93 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e94 6013 |` | Indirect_Literal Discrete,0xea8,{0x00000000, 0x00008164}
0e95 e005 | | Load 0x0,0x5
0e96 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e97 a5f9 | | Store_Unchecked 0x2,-0x7
0e98 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e99 0000 0000 | | .XXX[0x3]
0e9b 0000 | |
0e9c 0000 0000 | | .LITERAL {0x00000000, 0x00008186}
0ea0 0000 0000 | | .LITERAL {0x00000000, 0x00008163}
0ea4 0000 0000 | | .LITERAL {0x00000000, 0x00008170}
0ea8 0000 0000 | | .LITERAL {0x00000000, 0x00008164}
0eac 0000 0000 | | .BLANK 0000[0x4]
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; SUBPROGRAM
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0ec2 | | .CONST 0x0ec2 ; Address of begin
0eb1 0f4a | J | .CONST 0x0f4a ; Address of exception handler
0eb2 0004 | | .CONST 0x0004 ; Number of locals
0eb3 INIT_0eb0:
0eb3 e005 | | Load 0x0,0x5
0eb4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eb5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0eb6 e001 | | Load 0x0,0x1
0eb7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0eb8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eb9 02c7 | | Declare_Variable Any
0eba 00d8 | | Load_Top At_Offset_0
0ebb 1c00 | | Execute_Immediate Run_Utility,0x0
0ebc e001 | | Load 0x0,0x1
0ebd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ebe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ebf 02c7 | | Declare_Variable Any
0ec0 00d8 | | Load_Top At_Offset_0
0ec1 1c00 | | Execute_Immediate Run_Utility,0x0
0ec2 BODY_0eb0:
0ec2 e5fc | | Load 0x2,-0x4
0ec3 0092 1fbb | | Action Push_String_Extended,0x1fbb ; "Remove_Secondary_Unit (Primary)"
0ec5 8265 | e | Call 0x1,0x65
0ec6 e005 | | Load 0x0,0x5
0ec7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ec8 00da | | Load_Top At_Offset_2
0ec9 e5fc | | Load 0x2,-0x4
0eca 60b5 |` | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00008169}
0ecb e5fe | | Load 0x2,-0x2
0ecc e5ff | | Load 0x2,-0x1
0ecd 8266 | f | Call 0x1,0x66
0ece c403 | | Store 0x2,0x3
0ecf 005b | [ | Store_Top Discrete,At_Offset_3
0ed0 4800 |H | Short_Literal 0x0
0ed1 00db | | Load_Top At_Offset_3
0ed2 e005 | | Load 0x0,0x5
0ed3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0ed4 7003 |p | Jump_Nonzero 0xed8
0ed5 00da | | Load_Top At_Offset_2
0ed6 a5fb | | Store_Unchecked 0x2,-0x5
0ed7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ed8 e5fc | | Load 0x2,-0x4
0ed9 0092 1fbc | | Action Push_String_Extended,0x1fbc ; "Remove_Secondary_Unit (Secondary)"
0edb 8265 | e | Call 0x1,0x65
0edc e005 | | Load 0x0,0x5
0edd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ede 00d9 | | Load_Top At_Offset_1
0edf e5fc | | Load 0x2,-0x4
0ee0 609f |` | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00008169}
0ee1 e5fd | | Load 0x2,-0x3
0ee2 e5ff | | Load 0x2,-0x1
0ee3 8266 | f | Call 0x1,0x66
0ee4 c404 | | Store 0x2,0x4
0ee5 005b | [ | Store_Top Discrete,At_Offset_3
0ee6 4800 |H | Short_Literal 0x0
0ee7 00db | | Load_Top At_Offset_3
0ee8 e005 | | Load 0x0,0x5
0ee9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0eea 7003 |p | Jump_Nonzero 0xeee
0eeb 00da | | Load_Top At_Offset_2
0eec a5fb | | Store_Unchecked 0x2,-0x5
0eed 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0eee 00d9 | | Load_Top At_Offset_1
0eef e001 | | Load 0x0,0x1
0ef0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ef1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0ef2 6834 |h4 | Jump_Zero 0xf27
0ef3 00d8 | | Load_Top At_Offset_0
0ef4 e001 | | Load 0x0,0x1
0ef5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ef6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0ef7 682f |h/ | Jump_Zero 0xf27
0ef8 00da | | Load_Top At_Offset_2
0ef9 00d9 | | Load_Top At_Offset_1
0efa 00db | | Load_Top At_Offset_3
0efb e001 | | Load 0x0,0x1
0efc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0efd 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0efe 005b | [ | Store_Top Discrete,At_Offset_3
0eff 4800 |H | Short_Literal 0x0
0f00 00db | | Load_Top At_Offset_3
0f01 e005 | | Load 0x0,0x5
0f02 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0f03 6820 |h | Jump_Zero 0xf24
0f04 00d8 | | Load_Top At_Offset_0
0f05 8019 | | Call 0x0,0x19
0f06 00da | | Load_Top At_Offset_2
0f07 e5ff | | Load 0x2,-0x1
0f08 0227 | ' | Execute Access,All_Reference
0f09 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0f0a 00da | | Load_Top At_Offset_2
0f0b e001 | | Load 0x0,0x1
0f0c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0f0d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0f0e 005b | [ | Store_Top Discrete,At_Offset_3
0f0f 4800 |H | Short_Literal 0x0
0f10 00db | | Load_Top At_Offset_3
0f11 e005 | | Load 0x0,0x5
0f12 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0f13 6810 |h | Jump_Zero 0xf24
0f14 e5fc | | Load 0x2,-0x4
0f15 0092 1fbd | | Action Push_String_Extended,0x1fbd ; "Removed "
0f17 e5fd | | Load 0x2,-0x3
0f18 e006 | | Load 0x0,0x6
0f19 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f1a 01cc | | Execute Vector,Catenate
0f1b 0092 1fb7 | | Action Push_String_Extended,0x1fb7 ; " as the secondary of unit "
0f1d 01cc | | Execute Vector,Catenate
0f1e e5fe | | Load 0x2,-0x2
0f1f e006 | | Load 0x0,0x6
0f20 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f21 01cc | | Execute Vector,Catenate
0f22 e007 | | Load 0x0,0x7
0f23 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f24 00da | | Load_Top At_Offset_2
0f25 a5fb | | Store_Unchecked 0x2,-0x5
0f26 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f27 e5fc | | Load 0x2,-0x4
0f28 4801 |H | Short_Literal 0x1
0f29 4802 |H | Short_Literal 0x2
0f2a e004 | | Load 0x0,0x4
0f2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f2c 035b | [ | Declare_Type Array,Constrained
0f2d 0337 | 7 | Declare_Variable Array
0f2e e5fd | | Load 0x2,-0x3
0f2f e006 | | Load 0x0,0x6
0f30 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f31 e004 | | Load 0x0,0x4
0f32 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f33 0119 | | Execute Any,Check_In_Formal_Type
0f34 4801 |H | Short_Literal 0x1
0f35 00da | | Load_Top At_Offset_2
0f36 01d6 | | Execute Vector,Field_Write
0f37 e5fe | | Load 0x2,-0x2
0f38 e006 | | Load 0x0,0x6
0f39 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f3a e004 | | Load 0x0,0x4
0f3b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f3c 0119 | | Execute Any,Check_In_Formal_Type
0f3d 4802 |H | Short_Literal 0x2
0f3e 00da | | Load_Top At_Offset_2
0f3f 01d6 | | Execute Vector,Field_Write
0f40 603b |`; | Indirect_Literal Discrete,0xf7c,{0x00000000, 0x00008187}
0f41 e005 | | Load 0x0,0x5
0f42 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0f43 e004 | | Load 0x0,0x4
0f44 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f45 603a |`: | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00008169}
0f46 e005 | | Load 0x0,0x5
0f47 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f48 a5fb | | Store_Unchecked 0x2,-0x5
0f49 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f4a TRAP_0eb0:
0f4a e005 | | Load 0x0,0x5
0f4b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0f4c 010f | | Execute Exception,Equal
0f4d 6820 |h | Jump_Zero 0xf6e
0f4e e005 | | Load 0x0,0x5
0f4f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0f50 a5fb | | Store_Unchecked 0x2,-0x5
0f51 e5fc | | Load 0x2,-0x4
0f52 4801 |H | Short_Literal 0x1
0f53 4802 |H | Short_Literal 0x2
0f54 e004 | | Load 0x0,0x4
0f55 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f56 035b | [ | Declare_Type Array,Constrained
0f57 0337 | 7 | Declare_Variable Array
0f58 e5fd | | Load 0x2,-0x3
0f59 e006 | | Load 0x0,0x6
0f5a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f5b e004 | | Load 0x0,0x4
0f5c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f5d 0119 | | Execute Any,Check_In_Formal_Type
0f5e 4801 |H | Short_Literal 0x1
0f5f 00da | | Load_Top At_Offset_2
0f60 01d6 | | Execute Vector,Field_Write
0f61 e5fe | | Load 0x2,-0x2
0f62 e006 | | Load 0x0,0x6
0f63 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f64 e004 | | Load 0x0,0x4
0f65 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f66 0119 | | Execute Any,Check_In_Formal_Type
0f67 4802 |H | Short_Literal 0x2
0f68 00da | | Load_Top At_Offset_2
0f69 01d6 | | Execute Vector,Field_Write
0f6a 6015 |` | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00008169}
0f6b e005 | | Load 0x0,0x5
0f6c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0f6d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f6e e5fc | | Load 0x2,-0x4
0f6f 0092 1fbe | | Action Push_String_Extended,0x1fbe ; "Target_Builder.Unit.Remove_Secondary_Unit"
0f71 e007 | | Load 0x0,0x7
0f72 180f | | Execute Package,Field_Execute,Field_Number 0xf
0f73 e004 | | Load 0x0,0x4
0f74 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f75 600a |` | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00008169}
0f76 e005 | | Load 0x0,0x5
0f77 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f78 a5fb | | Store_Unchecked 0x2,-0x5
0f79 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f7a 0000 0000 | | .XXX[0x2]
0f7c 0000 0000 | | .LITERAL {0x00000000, 0x00008187}
0f80 0000 0000 | | .LITERAL {0x00000000, 0x00008169}
0f84 0000 0000 | | .BLANK 0000[0x4]
0f88 ; --------------------------------------------------------------------------------------
0f88 ; SUBPROGRAM
0f88 ; --------------------------------------------------------------------------------------
0f88 0f94 | | .CONST 0x0f94 ; Address of begin
0f89 0fb4 | | .CONST 0x0fb4 ; Address of exception handler
0f8a 0003 | | .CONST 0x0003 ; Number of locals
0f8b INIT_0f88:
0f8b e005 | | Load 0x0,0x5
0f8c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f8d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f8e e001 | | Load 0x0,0x1
0f8f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0f90 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f91 02c7 | | Declare_Variable Any
0f92 00d8 | | Load_Top At_Offset_0
0f93 1c00 | | Execute_Immediate Run_Utility,0x0
0f94 BODY_0f88:
0f94 e5fd | | Load 0x2,-0x3
0f95 0092 1fbf | | Action Push_String_Extended,0x1fbf ; "Has_Secondary_Unit"
0f97 8265 | e | Call 0x1,0x65
0f98 e005 | | Load 0x0,0x5
0f99 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f9a 00d9 | | Load_Top At_Offset_1
0f9b e5fd | | Load 0x2,-0x3
0f9c 604f |`O | Indirect_Literal Discrete,0xfec,{0x00000000, 0x00008166}
0f9d e5fe | | Load 0x2,-0x2
0f9e e5ff | | Load 0x2,-0x1
0f9f 8266 | f | Call 0x1,0x66
0fa0 c403 | | Store 0x2,0x3
0fa1 005a | Z | Store_Top Discrete,At_Offset_2
0fa2 4800 |H | Short_Literal 0x0
0fa3 00da | | Load_Top At_Offset_2
0fa4 e005 | | Load 0x0,0x5
0fa5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0fa6 7005 |p | Jump_Nonzero 0xfac
0fa7 4800 |H | Short_Literal 0x0
0fa8 a5fc | | Store_Unchecked 0x2,-0x4
0fa9 00d9 | | Load_Top At_Offset_1
0faa a5fb | | Store_Unchecked 0x2,-0x5
0fab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0fac 00d8 | | Load_Top At_Offset_0
0fad e001 | | Load 0x0,0x1
0fae 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0faf 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0fb0 a5fc | | Store_Unchecked 0x2,-0x4
0fb1 00d9 | | Load_Top At_Offset_1
0fb2 a5fb | | Store_Unchecked 0x2,-0x5
0fb3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0fb4 TRAP_0f88:
0fb4 e005 | | Load 0x0,0x5
0fb5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0fb6 010f | | Execute Exception,Equal
0fb7 6819 |h | Jump_Zero 0xfd1
0fb8 e005 | | Load 0x0,0x5
0fb9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0fba a5fb | | Store_Unchecked 0x2,-0x5
0fbb e5fd | | Load 0x2,-0x3
0fbc 4801 |H | Short_Literal 0x1
0fbd 4801 |H | Short_Literal 0x1
0fbe e004 | | Load 0x0,0x4
0fbf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fc0 035b | [ | Declare_Type Array,Constrained
0fc1 0337 | 7 | Declare_Variable Array
0fc2 e5fe | | Load 0x2,-0x2
0fc3 e006 | | Load 0x0,0x6
0fc4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0fc5 e004 | | Load 0x0,0x4
0fc6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fc7 0119 | | Execute Any,Check_In_Formal_Type
0fc8 4801 |H | Short_Literal 0x1
0fc9 00da | | Load_Top At_Offset_2
0fca 01d6 | | Execute Vector,Field_Write
0fcb 6020 |` | Indirect_Literal Discrete,0xfec,{0x00000000, 0x00008166}
0fcc e005 | | Load 0x0,0x5
0fcd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0fce 4800 |H | Short_Literal 0x0
0fcf a5fc | | Store_Unchecked 0x2,-0x4
0fd0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0fd1 e5fd | | Load 0x2,-0x3
0fd2 0092 1fc0 | | Action Push_String_Extended,0x1fc0 ; "Target_Builder.Unit.Has_Secondary_Unit"
0fd4 e007 | | Load 0x0,0x7
0fd5 180f | | Execute Package,Field_Execute,Field_Number 0xf
0fd6 4800 |H | Short_Literal 0x0
0fd7 a5fc | | Store_Unchecked 0x2,-0x4
0fd8 4801 |H | Short_Literal 0x1
0fd9 4801 |H | Short_Literal 0x1
0fda e004 | | Load 0x0,0x4
0fdb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fdc 035b | [ | Declare_Type Array,Constrained
0fdd 0337 | 7 | Declare_Variable Array
0fde e5fe | | Load 0x2,-0x2
0fdf e006 | | Load 0x0,0x6
0fe0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0fe1 e004 | | Load 0x0,0x4
0fe2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fe3 0119 | | Execute Any,Check_In_Formal_Type
0fe4 4801 |H | Short_Literal 0x1
0fe5 00da | | Load_Top At_Offset_2
0fe6 01d6 | | Execute Vector,Field_Write
0fe7 6004 |` | Indirect_Literal Discrete,0xfec,{0x00000000, 0x00008166}
0fe8 e005 | | Load 0x0,0x5
0fe9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0fea a5fb | | Store_Unchecked 0x2,-0x5
0feb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0fec 0000 0000 | | .LITERAL {0x00000000, 0x00008166}
0ff0 ; --------------------------------------------------------------------------------------
0ff0 ; SUBPROGRAM
0ff0 ; --------------------------------------------------------------------------------------
0ff0 0ffc | | .CONST 0x0ffc ; Address of begin
0ff1 101c | | .CONST 0x101c ; Address of exception handler
0ff2 0003 | | .CONST 0x0003 ; Number of locals
0ff3 INIT_0ff0:
0ff3 e005 | | Load 0x0,0x5
0ff4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ff5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0ff6 e001 | | Load 0x0,0x1
0ff7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ff8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ff9 02c7 | | Declare_Variable Any
0ffa 00d8 | | Load_Top At_Offset_0
0ffb 1c00 | | Execute_Immediate Run_Utility,0x0
0ffc BODY_0ff0:
0ffc e5fd | | Load 0x2,-0x3
0ffd 0092 1fc1 | | Action Push_String_Extended,0x1fc1 ; "Is_Secondary_Unit"
0fff 8265 | e | Call 0x1,0x65
1000 e005 | | Load 0x0,0x5
1001 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1002 00d9 | | Load_Top At_Offset_1
1003 e5fd | | Load 0x2,-0x3
1004 67e7 |g | Indirect_Literal Discrete,0xfec,{0x00000000, 0x00008166}
1005 e5fe | | Load 0x2,-0x2
1006 e5ff | | Load 0x2,-0x1
1007 8266 | f | Call 0x1,0x66
1008 c403 | | Store 0x2,0x3
1009 005a | Z | Store_Top Discrete,At_Offset_2
100a 4800 |H | Short_Literal 0x0
100b 00da | | Load_Top At_Offset_2
100c e005 | | Load 0x0,0x5
100d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
100e 7005 |p | Jump_Nonzero 0x1014
100f 4800 |H | Short_Literal 0x0
1010 a5fc | | Store_Unchecked 0x2,-0x4
1011 00d9 | | Load_Top At_Offset_1
1012 a5fb | | Store_Unchecked 0x2,-0x5
1013 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1014 00d8 | | Load_Top At_Offset_0
1015 e001 | | Load 0x0,0x1
1016 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1017 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
1018 a5fc | | Store_Unchecked 0x2,-0x4
1019 00d9 | | Load_Top At_Offset_1
101a a5fb | | Store_Unchecked 0x2,-0x5
101b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
101c TRAP_0ff0:
101c e005 | | Load 0x0,0x5
101d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
101e 010f | | Execute Exception,Equal
101f 6819 |h | Jump_Zero 0x1039
1020 e005 | | Load 0x0,0x5
1021 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1022 a5fb | | Store_Unchecked 0x2,-0x5
1023 e5fd | | Load 0x2,-0x3
1024 4801 |H | Short_Literal 0x1
1025 4801 |H | Short_Literal 0x1
1026 e004 | | Load 0x0,0x4
1027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1028 035b | [ | Declare_Type Array,Constrained
1029 0337 | 7 | Declare_Variable Array
102a e5fe | | Load 0x2,-0x2
102b e006 | | Load 0x0,0x6
102c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
102d e004 | | Load 0x0,0x4
102e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
102f 0119 | | Execute Any,Check_In_Formal_Type
1030 4801 |H | Short_Literal 0x1
1031 00da | | Load_Top At_Offset_2
1032 01d6 | | Execute Vector,Field_Write
1033 67b8 |g | Indirect_Literal Discrete,0xfec,{0x00000000, 0x00008166}
1034 e005 | | Load 0x0,0x5
1035 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1036 4800 |H | Short_Literal 0x0
1037 a5fc | | Store_Unchecked 0x2,-0x4
1038 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1039 e5fd | | Load 0x2,-0x3
103a 0092 1fc2 | | Action Push_String_Extended,0x1fc2 ; "Target_Builder.Unit.Is_Secondary_Unit"
103c e007 | | Load 0x0,0x7
103d 180f | | Execute Package,Field_Execute,Field_Number 0xf
103e 4800 |H | Short_Literal 0x0
103f a5fc | | Store_Unchecked 0x2,-0x4
1040 4801 |H | Short_Literal 0x1
1041 4801 |H | Short_Literal 0x1
1042 e004 | | Load 0x0,0x4
1043 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1044 035b | [ | Declare_Type Array,Constrained
1045 0337 | 7 | Declare_Variable Array
1046 e5fe | | Load 0x2,-0x2
1047 e006 | | Load 0x0,0x6
1048 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1049 e004 | | Load 0x0,0x4
104a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
104b 0119 | | Execute Any,Check_In_Formal_Type
104c 4801 |H | Short_Literal 0x1
104d 00da | | Load_Top At_Offset_2
104e 01d6 | | Execute Vector,Field_Write
104f 679c |g | Indirect_Literal Discrete,0xfec,{0x00000000, 0x00008166}
1050 e005 | | Load 0x0,0x5
1051 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1052 a5fb | | Store_Unchecked 0x2,-0x5
1053 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1054 0000 0000 | | .BLANK 0000[0x4]
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 106a | j | .CONST 0x106a ; Address of begin
1059 10a2 | | .CONST 0x10a2 ; Address of exception handler
105a 0004 | | .CONST 0x0004 ; Number of locals
105b INIT_1058:
105b e005 | | Load 0x0,0x5
105c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
105d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
105e e001 | | Load 0x0,0x1
105f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1060 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1061 02c7 | | Declare_Variable Any
1062 00d8 | | Load_Top At_Offset_0
1063 1c00 | | Execute_Immediate Run_Utility,0x0
1064 e001 | | Load 0x0,0x1
1065 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1066 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1067 02c7 | | Declare_Variable Any
1068 00d8 | | Load_Top At_Offset_0
1069 1c00 | | Execute_Immediate Run_Utility,0x0
106a BODY_1058:
106a e5fd | | Load 0x2,-0x3
106b 0092 1fc3 | | Action Push_String_Extended,0x1fc3 ; "Primary_Unit"
106d 8265 | e | Call 0x1,0x65
106e e005 | | Load 0x0,0x5
106f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1070 00d9 | | Load_Top At_Offset_1
1071 e5fd | | Load 0x2,-0x3
1072 6069 |`i | Indirect_Literal Discrete,0x10dc,{0x00000000, 0x00008165}
1073 e5fe | | Load 0x2,-0x2
1074 e5ff | | Load 0x2,-0x1
1075 8266 | f | Call 0x1,0x66
1076 c404 | | Store 0x2,0x4
1077 005b | [ | Store_Top Discrete,At_Offset_3
1078 4800 |H | Short_Literal 0x0
1079 00db | | Load_Top At_Offset_3
107a e005 | | Load 0x0,0x5
107b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
107c 7006 |p | Jump_Nonzero 0x1083
107d e002 | | Load 0x0,0x2
107e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
107f c5fc | | Store 0x2,-0x4
1080 00da | | Load_Top At_Offset_2
1081 a5fb | | Store_Unchecked 0x2,-0x5
1082 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1083 00d8 | | Load_Top At_Offset_0
1084 e001 | | Load 0x0,0x1
1085 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1086 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
1087 c403 | | Store 0x2,0x3
1088 00d9 | | Load_Top At_Offset_1
1089 e001 | | Load 0x0,0x1
108a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
108b 180f | | Execute Package,Field_Execute,Field_Number 0xf
108c 700f |p | Jump_Nonzero 0x109c
108d 00da | | Load_Top At_Offset_2
108e e5fc | | Load 0x2,-0x4
108f 0120 | | Execute Any,Is_Value
1090 6803 |h | Jump_Zero 0x1094
1091 e002 | | Load 0x0,0x2
1092 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1093 7801 |x | Jump 0x1095
1094 e5fc | | Load 0x2,-0x4
1095 00db | | Load_Top At_Offset_3
1096 e001 | | Load 0x0,0x1
1097 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1098 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1099 c5fc | | Store 0x2,-0x4
109a 005b | [ | Store_Top Discrete,At_Offset_3
109b 7803 |x | Jump 0x109f
109c e002 | | Load 0x0,0x2
109d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
109e c5fc | | Store 0x2,-0x4
109f 00da | | Load_Top At_Offset_2
10a0 a5fb | | Store_Unchecked 0x2,-0x5
10a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10a2 TRAP_1058:
10a2 e005 | | Load 0x0,0x5
10a3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
10a4 010f | | Execute Exception,Equal
10a5 681a |h | Jump_Zero 0x10c0
10a6 e005 | | Load 0x0,0x5
10a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
10a8 a5fb | | Store_Unchecked 0x2,-0x5
10a9 e5fd | | Load 0x2,-0x3
10aa 4801 |H | Short_Literal 0x1
10ab 4801 |H | Short_Literal 0x1
10ac e004 | | Load 0x0,0x4
10ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10ae 035b | [ | Declare_Type Array,Constrained
10af 0337 | 7 | Declare_Variable Array
10b0 e5fe | | Load 0x2,-0x2
10b1 e006 | | Load 0x0,0x6
10b2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
10b3 e004 | | Load 0x0,0x4
10b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10b5 0119 | | Execute Any,Check_In_Formal_Type
10b6 4801 |H | Short_Literal 0x1
10b7 00da | | Load_Top At_Offset_2
10b8 01d6 | | Execute Vector,Field_Write
10b9 6022 |`" | Indirect_Literal Discrete,0x10dc,{0x00000000, 0x00008165}
10ba e005 | | Load 0x0,0x5
10bb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
10bc e002 | | Load 0x0,0x2
10bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10be c5fc | | Store 0x2,-0x4
10bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10c0 e5fd | | Load 0x2,-0x3
10c1 0092 1fc4 | | Action Push_String_Extended,0x1fc4 ; "Target_Builder.Unit.Primary_Unit"
10c3 e007 | | Load 0x0,0x7
10c4 180f | | Execute Package,Field_Execute,Field_Number 0xf
10c5 e002 | | Load 0x0,0x2
10c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10c7 c5fc | | Store 0x2,-0x4
10c8 4801 |H | Short_Literal 0x1
10c9 4801 |H | Short_Literal 0x1
10ca e004 | | Load 0x0,0x4
10cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10cc 035b | [ | Declare_Type Array,Constrained
10cd 0337 | 7 | Declare_Variable Array
10ce e5fe | | Load 0x2,-0x2
10cf e006 | | Load 0x0,0x6
10d0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
10d1 e004 | | Load 0x0,0x4
10d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10d3 0119 | | Execute Any,Check_In_Formal_Type
10d4 4801 |H | Short_Literal 0x1
10d5 00da | | Load_Top At_Offset_2
10d6 01d6 | | Execute Vector,Field_Write
10d7 6004 |` | Indirect_Literal Discrete,0x10dc,{0x00000000, 0x00008165}
10d8 e005 | | Load 0x0,0x5
10d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
10da a5fb | | Store_Unchecked 0x2,-0x5
10db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10dc 0000 0000 | | .LITERAL {0x00000000, 0x00008165}
10e0 ; --------------------------------------------------------------------------------------
10e0 ; SUBPROGRAM
10e0 ; --------------------------------------------------------------------------------------
10e0 10f2 | | .CONST 0x10f2 ; Address of begin
10e1 112a | * | .CONST 0x112a ; Address of exception handler
10e2 0004 | | .CONST 0x0004 ; Number of locals
10e3 INIT_10e0:
10e3 e005 | | Load 0x0,0x5
10e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
10e6 e001 | | Load 0x0,0x1
10e7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
10e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10e9 02c7 | | Declare_Variable Any
10ea 00d8 | | Load_Top At_Offset_0
10eb 1c00 | | Execute_Immediate Run_Utility,0x0
10ec e001 | | Load 0x0,0x1
10ed 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
10ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10ef 02c7 | | Declare_Variable Any
10f0 00d8 | | Load_Top At_Offset_0
10f1 1c00 | | Execute_Immediate Run_Utility,0x0
10f2 BODY_10e0:
10f2 e5fd | | Load 0x2,-0x3
10f3 0092 1fc5 | | Action Push_String_Extended,0x1fc5 ; "Secondary_Unit"
10f5 8265 | e | Call 0x1,0x65
10f6 e005 | | Load 0x0,0x5
10f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10f8 00da | | Load_Top At_Offset_2
10f9 e5fd | | Load 0x2,-0x3
10fa 6069 |`i | Indirect_Literal Discrete,0x1164,{0x00000000, 0x00008168}
10fb e5fe | | Load 0x2,-0x2
10fc e5ff | | Load 0x2,-0x1
10fd 8266 | f | Call 0x1,0x66
10fe c403 | | Store 0x2,0x3
10ff 005b | [ | Store_Top Discrete,At_Offset_3
1100 4800 |H | Short_Literal 0x0
1101 00db | | Load_Top At_Offset_3
1102 e005 | | Load 0x0,0x5
1103 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1104 7006 |p | Jump_Nonzero 0x110b
1105 e002 | | Load 0x0,0x2
1106 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1107 c5fc | | Store 0x2,-0x4
1108 00da | | Load_Top At_Offset_2
1109 a5fb | | Store_Unchecked 0x2,-0x5
110a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
110b 00d9 | | Load_Top At_Offset_1
110c e001 | | Load 0x0,0x1
110d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
110e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
110f c404 | | Store 0x2,0x4
1110 00d8 | | Load_Top At_Offset_0
1111 e001 | | Load 0x0,0x1
1112 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1113 180f | | Execute Package,Field_Execute,Field_Number 0xf
1114 700f |p | Jump_Nonzero 0x1124
1115 00da | | Load_Top At_Offset_2
1116 e5fc | | Load 0x2,-0x4
1117 0120 | | Execute Any,Is_Value
1118 6803 |h | Jump_Zero 0x111c
1119 e002 | | Load 0x0,0x2
111a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
111b 7801 |x | Jump 0x111d
111c e5fc | | Load 0x2,-0x4
111d 00da | | Load_Top At_Offset_2
111e e001 | | Load 0x0,0x1
111f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1120 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1121 c5fc | | Store 0x2,-0x4
1122 005b | [ | Store_Top Discrete,At_Offset_3
1123 7803 |x | Jump 0x1127
1124 e002 | | Load 0x0,0x2
1125 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1126 c5fc | | Store 0x2,-0x4
1127 00da | | Load_Top At_Offset_2
1128 a5fb | | Store_Unchecked 0x2,-0x5
1129 4504 |E | Exit_Suprogram New_Top_Offset 0x4
112a TRAP_10e0:
112a e005 | | Load 0x0,0x5
112b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
112c 010f | | Execute Exception,Equal
112d 681a |h | Jump_Zero 0x1148
112e e005 | | Load 0x0,0x5
112f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1130 a5fb | | Store_Unchecked 0x2,-0x5
1131 e5fd | | Load 0x2,-0x3
1132 4801 |H | Short_Literal 0x1
1133 4801 |H | Short_Literal 0x1
1134 e004 | | Load 0x0,0x4
1135 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1136 035b | [ | Declare_Type Array,Constrained
1137 0337 | 7 | Declare_Variable Array
1138 e5fe | | Load 0x2,-0x2
1139 e006 | | Load 0x0,0x6
113a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
113b e004 | | Load 0x0,0x4
113c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
113d 0119 | | Execute Any,Check_In_Formal_Type
113e 4801 |H | Short_Literal 0x1
113f 00da | | Load_Top At_Offset_2
1140 01d6 | | Execute Vector,Field_Write
1141 6022 |`" | Indirect_Literal Discrete,0x1164,{0x00000000, 0x00008168}
1142 e005 | | Load 0x0,0x5
1143 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1144 e002 | | Load 0x0,0x2
1145 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1146 c5fc | | Store 0x2,-0x4
1147 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1148 e5fd | | Load 0x2,-0x3
1149 0092 1fc6 | | Action Push_String_Extended,0x1fc6 ; "Target_Builder.Unit.Secondary_Unit"
114b e007 | | Load 0x0,0x7
114c 180f | | Execute Package,Field_Execute,Field_Number 0xf
114d e002 | | Load 0x0,0x2
114e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
114f c5fc | | Store 0x2,-0x4
1150 4801 |H | Short_Literal 0x1
1151 4801 |H | Short_Literal 0x1
1152 e004 | | Load 0x0,0x4
1153 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1154 035b | [ | Declare_Type Array,Constrained
1155 0337 | 7 | Declare_Variable Array
1156 e5fe | | Load 0x2,-0x2
1157 e006 | | Load 0x0,0x6
1158 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1159 e004 | | Load 0x0,0x4
115a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
115b 0119 | | Execute Any,Check_In_Formal_Type
115c 4801 |H | Short_Literal 0x1
115d 00da | | Load_Top At_Offset_2
115e 01d6 | | Execute Vector,Field_Write
115f 6004 |` | Indirect_Literal Discrete,0x1164,{0x00000000, 0x00008168}
1160 e005 | | Load 0x0,0x5
1161 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1162 a5fb | | Store_Unchecked 0x2,-0x5
1163 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1164 0000 0000 | | .LITERAL {0x00000000, 0x00008168}
1168 ; --------------------------------------------------------------------------------------
1168 ; SUBPROGRAM
1168 ; --------------------------------------------------------------------------------------
1168 1174 | t | .CONST 0x1174 ; Address of begin
1169 11a7 | | .CONST 0x11a7 ; Address of exception handler
116a 0003 | | .CONST 0x0003 ; Number of locals
116b INIT_1168:
116b e005 | | Load 0x0,0x5
116c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
116d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
116e e001 | | Load 0x0,0x1
116f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1170 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1171 02c7 | | Declare_Variable Any
1172 00d8 | | Load_Top At_Offset_0
1173 1c00 | | Execute_Immediate Run_Utility,0x0
1174 BODY_1168:
1174 e5fd | | Load 0x2,-0x3
1175 0092 1fc7 | | Action Push_String_Extended,0x1fc7 ; "Secondary_Prefix"
1177 8265 | e | Call 0x1,0x65
1178 e005 | | Load 0x0,0x5
1179 1b0d | | Execute Package,Field_Read,Field_Number 0xd
117a 00d9 | | Load_Top At_Offset_1
117b e5fd | | Load 0x2,-0x3
117c 6053 |`S | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x00008167}
117d e5fe | | Load 0x2,-0x2
117e e5ff | | Load 0x2,-0x1
117f 8266 | f | Call 0x1,0x66
1180 c403 | | Store 0x2,0x3
1181 005a | Z | Store_Top Discrete,At_Offset_2
1182 4800 |H | Short_Literal 0x0
1183 00da | | Load_Top At_Offset_2
1184 e005 | | Load 0x0,0x5
1185 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1186 7003 |p | Jump_Nonzero 0x118a
1187 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
1189 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
118a 00d8 | | Load_Top At_Offset_0
118b e001 | | Load 0x0,0x1
118c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
118d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
118e 6803 |h | Jump_Zero 0x1192
118f 00d8 | | Load_Top At_Offset_0
1190 801a | | Call 0x0,0x1a
1191 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1192 e5fd | | Load 0x2,-0x3
1193 4801 |H | Short_Literal 0x1
1194 4801 |H | Short_Literal 0x1
1195 e004 | | Load 0x0,0x4
1196 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1197 035b | [ | Declare_Type Array,Constrained
1198 0337 | 7 | Declare_Variable Array
1199 e5fe | | Load 0x2,-0x2
119a e006 | | Load 0x0,0x6
119b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
119c e004 | | Load 0x0,0x4
119d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
119e 0119 | | Execute Any,Check_In_Formal_Type
119f 4801 |H | Short_Literal 0x1
11a0 00da | | Load_Top At_Offset_2
11a1 01d6 | | Execute Vector,Field_Write
11a2 6029 |`) | Indirect_Literal Discrete,0x11cc,{0x00000000, 0x00008188}
11a3 e005 | | Load 0x0,0x5
11a4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
11a5 00ea | | Load_Encached Null_String_Cache
11a6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
11a7 TRAP_1168:
11a7 e005 | | Load 0x0,0x5
11a8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
11a9 010f | | Execute Exception,Equal
11aa 6816 |h | Jump_Zero 0x11c1
11ab e5fd | | Load 0x2,-0x3
11ac 4801 |H | Short_Literal 0x1
11ad 4801 |H | Short_Literal 0x1
11ae e004 | | Load 0x0,0x4
11af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11b0 035b | [ | Declare_Type Array,Constrained
11b1 0337 | 7 | Declare_Variable Array
11b2 e5fe | | Load 0x2,-0x2
11b3 e006 | | Load 0x0,0x6
11b4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
11b5 e004 | | Load 0x0,0x4
11b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
11b7 0119 | | Execute Any,Check_In_Formal_Type
11b8 4801 |H | Short_Literal 0x1
11b9 00da | | Load_Top At_Offset_2
11ba 01d6 | | Execute Vector,Field_Write
11bb 6014 |` | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x00008167}
11bc e005 | | Load 0x0,0x5
11bd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
11be 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
11c0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
11c1 e5fd | | Load 0x2,-0x3
11c2 0092 1fc8 | | Action Push_String_Extended,0x1fc8 ; "Target_Builder.Unit.Secondary_Prefix"
11c4 e007 | | Load 0x0,0x7
11c5 180f | | Execute Package,Field_Execute,Field_Number 0xf
11c6 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
11c8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
11c9 0000 0000 | | .XXX[0x3]
11cb 0000 | |
11cc 0000 0000 | | .LITERAL {0x00000000, 0x00008188}
11d0 0000 0000 | | .LITERAL {0x00000000, 0x00008167}
11d4 0000 0000 | | .BLANK 0000[0x4]
11d8 ; --------------------------------------------------------------------------------------
11d8 ; SUBPROGRAM
11d8 ; --------------------------------------------------------------------------------------
11d8 11e4 | | .CONST 0x11e4 ; Address of begin
11d9 1217 | | .CONST 0x1217 ; Address of exception handler
11da 0003 | | .CONST 0x0003 ; Number of locals
11db INIT_11d8:
11db e005 | | Load 0x0,0x5
11dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
11de e001 | | Load 0x0,0x1
11df 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
11e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11e1 02c7 | | Declare_Variable Any
11e2 00d8 | | Load_Top At_Offset_0
11e3 1c00 | | Execute_Immediate Run_Utility,0x0
11e4 BODY_11d8:
11e4 e5fd | | Load 0x2,-0x3
11e5 0092 1fc9 | | Action Push_String_Extended,0x1fc9 ; "Secondary_Suffix"
11e7 8265 | e | Call 0x1,0x65
11e8 e005 | | Load 0x0,0x5
11e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11ea 00d9 | | Load_Top At_Offset_1
11eb e5fd | | Load 0x2,-0x3
11ec 67e3 |g | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x00008167}
11ed e5fe | | Load 0x2,-0x2
11ee e5ff | | Load 0x2,-0x1
11ef 8266 | f | Call 0x1,0x66
11f0 c403 | | Store 0x2,0x3
11f1 005a | Z | Store_Top Discrete,At_Offset_2
11f2 4800 |H | Short_Literal 0x0
11f3 00da | | Load_Top At_Offset_2
11f4 e005 | | Load 0x0,0x5
11f5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
11f6 7003 |p | Jump_Nonzero 0x11fa
11f7 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
11f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
11fa 00d8 | | Load_Top At_Offset_0
11fb e001 | | Load 0x0,0x1
11fc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
11fd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
11fe 6803 |h | Jump_Zero 0x1202
11ff 00d8 | | Load_Top At_Offset_0
1200 801b | | Call 0x0,0x1b
1201 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1202 e5fd | | Load 0x2,-0x3
1203 4801 |H | Short_Literal 0x1
1204 4801 |H | Short_Literal 0x1
1205 e004 | | Load 0x0,0x4
1206 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1207 035b | [ | Declare_Type Array,Constrained
1208 0337 | 7 | Declare_Variable Array
1209 e5fe | | Load 0x2,-0x2
120a e006 | | Load 0x0,0x6
120b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
120c e004 | | Load 0x0,0x4
120d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
120e 0119 | | Execute Any,Check_In_Formal_Type
120f 4801 |H | Short_Literal 0x1
1210 00da | | Load_Top At_Offset_2
1211 01d6 | | Execute Vector,Field_Write
1212 6029 |`) | Indirect_Literal Discrete,0x123c,{0x00000000, 0x00008189}
1213 e005 | | Load 0x0,0x5
1214 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1215 00ea | | Load_Encached Null_String_Cache
1216 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1217 TRAP_11d8:
1217 e005 | | Load 0x0,0x5
1218 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1219 010f | | Execute Exception,Equal
121a 6816 |h | Jump_Zero 0x1231
121b e5fd | | Load 0x2,-0x3
121c 4801 |H | Short_Literal 0x1
121d 4801 |H | Short_Literal 0x1
121e e004 | | Load 0x0,0x4
121f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1220 035b | [ | Declare_Type Array,Constrained
1221 0337 | 7 | Declare_Variable Array
1222 e5fe | | Load 0x2,-0x2
1223 e006 | | Load 0x0,0x6
1224 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1225 e004 | | Load 0x0,0x4
1226 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1227 0119 | | Execute Any,Check_In_Formal_Type
1228 4801 |H | Short_Literal 0x1
1229 00da | | Load_Top At_Offset_2
122a 01d6 | | Execute Vector,Field_Write
122b 67a4 |g | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x00008167}
122c e005 | | Load 0x0,0x5
122d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
122e 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
1230 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1231 e5fd | | Load 0x2,-0x3
1232 0092 1fca | | Action Push_String_Extended,0x1fca ; "Target_Builder.Unit.Secondary_Suffix"
1234 e007 | | Load 0x0,0x7
1235 180f | | Execute Package,Field_Execute,Field_Number 0xf
1236 0092 1f95 | | Action Push_String_Extended,0x1f95 ; "<error>"
1238 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1239 0000 0000 | | .XXX[0x3]
123b 0000 | |
123c 0000 0000 | | .LITERAL {0x00000000, 0x00008189}
1240 ; --------------------------------------------------------------------------------------
1240 ; SUBPROGRAM
1240 ; --------------------------------------------------------------------------------------
1240 1249 | I | .CONST 0x1249 ; Address of begin
1241 0004 | | .CONST 0x0004 ; Address of exception handler
1242 0002 | | .CONST 0x0002 ; Number of locals
1243 INIT_1240:
1243 e001 | | Load 0x0,0x1
1244 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1245 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1246 02c7 | | Declare_Variable Any
1247 00d8 | | Load_Top At_Offset_0
1248 1c00 | | Execute_Immediate Run_Utility,0x0
1249 BODY_1240:
1249 4800 |H | Short_Literal 0x0
124a a5fb | | Store_Unchecked 0x2,-0x5
124b 00db | | Load_Top At_Offset_3
124c 0227 | ' | Execute Access,All_Reference
124d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
124e e5fe | | Load 0x2,-0x2
124f e002 | | Load 0x0,0x2
1250 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1251 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1252 e001 | | Load 0x0,0x1
1253 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1254 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1255 c402 | | Store 0x2,0x2
1256 00d8 | | Load_Top At_Offset_0
1257 e001 | | Load 0x0,0x1
1258 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1259 180f | | Execute Package,Field_Execute,Field_Number 0xf
125a 6826 |h& | Jump_Zero 0x1281
125b e5fc | | Load 0x2,-0x4
125c 4801 |H | Short_Literal 0x1
125d 4802 |H | Short_Literal 0x2
125e e004 | | Load 0x0,0x4
125f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1260 035b | [ | Declare_Type Array,Constrained
1261 0337 | 7 | Declare_Variable Array
1262 e5fe | | Load 0x2,-0x2
1263 e006 | | Load 0x0,0x6
1264 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1265 e004 | | Load 0x0,0x4
1266 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1267 0119 | | Execute Any,Check_In_Formal_Type
1268 4801 |H | Short_Literal 0x1
1269 00da | | Load_Top At_Offset_2
126a 01d6 | | Execute Vector,Field_Write
126b e5ff | | Load 0x2,-0x1
126c 0227 | ' | Execute Access,All_Reference
126d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
126e e001 | | Load 0x0,0x1
126f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1270 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1271 e004 | | Load 0x0,0x4
1272 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1273 0119 | | Execute Any,Check_In_Formal_Type
1274 4802 |H | Short_Literal 0x2
1275 00da | | Load_Top At_Offset_2
1276 01d6 | | Execute Vector,Field_Write
1277 6044 |`D | Indirect_Literal Discrete,0x12bc,{0x00000000, 0x0000811d}
1278 e005 | | Load 0x0,0x5
1279 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
127a e004 | | Load 0x0,0x4
127b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
127c 603b |`; | Indirect_Literal Discrete,0x12b8,{0x00000000, 0x00008193}
127d e005 | | Load 0x0,0x5
127e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
127f a5fb | | Store_Unchecked 0x2,-0x5
1280 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1281 e5fd | | Load 0x2,-0x3
1282 01db | | Execute Vector,Length
1283 e5fc | | Load 0x2,-0x4
1284 e5fe | | Load 0x2,-0x2
1285 e5ff | | Load 0x2,-0x1
1286 825e | ^ | Call 0x1,0x5e
1287 01db | | Execute Vector,Length
1288 0273 | s | Execute Discrete,Plus
1289 4900 |I | Short_Literal 0x100
128a 027d | } | Execute Discrete,Greater
128b 6823 |h# | Jump_Zero 0x12af
128c e5fc | | Load 0x2,-0x4
128d 4801 |H | Short_Literal 0x1
128e 4802 |H | Short_Literal 0x2
128f e004 | | Load 0x0,0x4
1290 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1291 035b | [ | Declare_Type Array,Constrained
1292 0337 | 7 | Declare_Variable Array
1293 e5fe | | Load 0x2,-0x2
1294 e006 | | Load 0x0,0x6
1295 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1296 e004 | | Load 0x0,0x4
1297 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1298 0119 | | Execute Any,Check_In_Formal_Type
1299 4801 |H | Short_Literal 0x1
129a 00da | | Load_Top At_Offset_2
129b 01d6 | | Execute Vector,Field_Write
129c 4900 |I | Short_Literal 0x100
129d e004 | | Load 0x0,0x4
129e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
129f e004 | | Load 0x0,0x4
12a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12a1 0119 | | Execute Any,Check_In_Formal_Type
12a2 4802 |H | Short_Literal 0x2
12a3 00da | | Load_Top At_Offset_2
12a4 01d6 | | Execute Vector,Field_Write
12a5 600e |` | Indirect_Literal Discrete,0x12b4,{0x00000000, 0x00008163}
12a6 e005 | | Load 0x0,0x5
12a7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
12a8 e004 | | Load 0x0,0x4
12a9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
12aa 600d |` | Indirect_Literal Discrete,0x12b8,{0x00000000, 0x00008193}
12ab e005 | | Load 0x0,0x5
12ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12ad a5fb | | Store_Unchecked 0x2,-0x5
12ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5
12af e5fd | | Load 0x2,-0x3
12b0 00d9 | | Load_Top At_Offset_1
12b1 8017 | | Call 0x0,0x17
12b2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
12b3 0000 | | .XXX[0x1]
12b4 0000 0000 | | .LITERAL {0x00000000, 0x00008163}
12b8 0000 0000 | | .LITERAL {0x00000000, 0x00008193}
12bc 0000 0000 | | .LITERAL {0x00000000, 0x0000811d}
12c0 ; --------------------------------------------------------------------------------------
12c0 ; SUBPROGRAM
12c0 ; --------------------------------------------------------------------------------------
12c0 12c9 | | .CONST 0x12c9 ; Address of begin
12c1 0004 | | .CONST 0x0004 ; Address of exception handler
12c2 0002 | | .CONST 0x0002 ; Number of locals
12c3 INIT_12c0:
12c3 e001 | | Load 0x0,0x1
12c4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
12c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12c6 02c7 | | Declare_Variable Any
12c7 00d8 | | Load_Top At_Offset_0
12c8 1c00 | | Execute_Immediate Run_Utility,0x0
12c9 BODY_12c0:
12c9 4800 |H | Short_Literal 0x0
12ca a5fb | | Store_Unchecked 0x2,-0x5
12cb 00db | | Load_Top At_Offset_3
12cc 0227 | ' | Execute Access,All_Reference
12cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
12ce e5fe | | Load 0x2,-0x2
12cf e002 | | Load 0x0,0x2
12d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
12d2 e001 | | Load 0x0,0x1
12d3 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
12d4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
12d5 c402 | | Store 0x2,0x2
12d6 00d8 | | Load_Top At_Offset_0
12d7 e001 | | Load 0x0,0x1
12d8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
12d9 180f | | Execute Package,Field_Execute,Field_Number 0xf
12da 6826 |h& | Jump_Zero 0x1301
12db e5fc | | Load 0x2,-0x4
12dc 4801 |H | Short_Literal 0x1
12dd 4802 |H | Short_Literal 0x2
12de e004 | | Load 0x0,0x4
12df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12e0 035b | [ | Declare_Type Array,Constrained
12e1 0337 | 7 | Declare_Variable Array
12e2 e5fe | | Load 0x2,-0x2
12e3 e006 | | Load 0x0,0x6
12e4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
12e5 e004 | | Load 0x0,0x4
12e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12e7 0119 | | Execute Any,Check_In_Formal_Type
12e8 4801 |H | Short_Literal 0x1
12e9 00da | | Load_Top At_Offset_2
12ea 01d6 | | Execute Vector,Field_Write
12eb e5ff | | Load 0x2,-0x1
12ec 0227 | ' | Execute Access,All_Reference
12ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
12ee e001 | | Load 0x0,0x1
12ef 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
12f0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
12f1 e004 | | Load 0x0,0x4
12f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12f3 0119 | | Execute Any,Check_In_Formal_Type
12f4 4802 |H | Short_Literal 0x2
12f5 00da | | Load_Top At_Offset_2
12f6 01d6 | | Execute Vector,Field_Write
12f7 67c4 |g | Indirect_Literal Discrete,0x12bc,{0x00000000, 0x0000811d}
12f8 e005 | | Load 0x0,0x5
12f9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
12fa e004 | | Load 0x0,0x4
12fb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
12fc 6037 |`7 | Indirect_Literal Discrete,0x1334,{0x00000000, 0x00008194}
12fd e005 | | Load 0x0,0x5
12fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12ff a5fb | | Store_Unchecked 0x2,-0x5
1300 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1301 e5fc | | Load 0x2,-0x4
1302 e5fe | | Load 0x2,-0x2
1303 e5ff | | Load 0x2,-0x1
1304 825d | ] | Call 0x1,0x5d
1305 01db | | Execute Vector,Length
1306 e5fd | | Load 0x2,-0x3
1307 01db | | Execute Vector,Length
1308 0273 | s | Execute Discrete,Plus
1309 4900 |I | Short_Literal 0x100
130a 027d | } | Execute Discrete,Greater
130b 6823 |h# | Jump_Zero 0x132f
130c e5fc | | Load 0x2,-0x4
130d 4801 |H | Short_Literal 0x1
130e 4802 |H | Short_Literal 0x2
130f e004 | | Load 0x0,0x4
1310 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1311 035b | [ | Declare_Type Array,Constrained
1312 0337 | 7 | Declare_Variable Array
1313 e5fe | | Load 0x2,-0x2
1314 e006 | | Load 0x0,0x6
1315 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1316 e004 | | Load 0x0,0x4
1317 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1318 0119 | | Execute Any,Check_In_Formal_Type
1319 4801 |H | Short_Literal 0x1
131a 00da | | Load_Top At_Offset_2
131b 01d6 | | Execute Vector,Field_Write
131c 4900 |I | Short_Literal 0x100
131d e004 | | Load 0x0,0x4
131e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
131f e004 | | Load 0x0,0x4
1320 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1321 0119 | | Execute Any,Check_In_Formal_Type
1322 4802 |H | Short_Literal 0x2
1323 00da | | Load_Top At_Offset_2
1324 01d6 | | Execute Vector,Field_Write
1325 678e |g | Indirect_Literal Discrete,0x12b4,{0x00000000, 0x00008163}
1326 e005 | | Load 0x0,0x5
1327 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1328 e004 | | Load 0x0,0x4
1329 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
132a 6009 |` | Indirect_Literal Discrete,0x1334,{0x00000000, 0x00008194}
132b e005 | | Load 0x0,0x5
132c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
132d a5fb | | Store_Unchecked 0x2,-0x5
132e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
132f e5fd | | Load 0x2,-0x3
1330 00d9 | | Load_Top At_Offset_1
1331 8018 | | Call 0x0,0x18
1332 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1333 0000 | | .XXX[0x1]
1334 0000 0000 | | .LITERAL {0x00000000, 0x00008194}
1338 ; --------------------------------------------------------------------------------------
1338 ; SUBPROGRAM
1338 ; --------------------------------------------------------------------------------------
1338 1344 | D | .CONST 0x1344 ; Address of begin
1339 135e | ^ | .CONST 0x135e ; Address of exception handler
133a 0003 | | .CONST 0x0003 ; Number of locals
133b INIT_1338:
133b e005 | | Load 0x0,0x5
133c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
133d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
133e e001 | | Load 0x0,0x1
133f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1340 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1341 02c7 | | Declare_Variable Any
1342 00d8 | | Load_Top At_Offset_0
1343 1c00 | | Execute_Immediate Run_Utility,0x0
1344 BODY_1338:
1344 e5fc | | Load 0x2,-0x4
1345 0092 1fcb | | Action Push_String_Extended,0x1fcb ; "Serial_Number"
1347 8265 | e | Call 0x1,0x65
1348 e005 | | Load 0x0,0x5
1349 1b0d | | Execute Package,Field_Read,Field_Number 0xd
134a 00d9 | | Load_Top At_Offset_1
134b e5fc | | Load 0x2,-0x4
134c 6033 |`3 | Indirect_Literal Discrete,0x1380,{0x00000000, 0x00008190}
134d e5fe | | Load 0x2,-0x2
134e e5ff | | Load 0x2,-0x1
134f 8266 | f | Call 0x1,0x66
1350 c403 | | Store 0x2,0x3
1351 005a | Z | Store_Top Discrete,At_Offset_2
1352 4800 |H | Short_Literal 0x0
1353 00da | | Load_Top At_Offset_2
1354 e005 | | Load 0x0,0x5
1355 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1356 7002 |p | Jump_Nonzero 0x1359
1357 4800 |H | Short_Literal 0x0
1358 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1359 00d8 | | Load_Top At_Offset_0
135a e001 | | Load 0x0,0x1
135b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
135c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
135d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
135e TRAP_1338:
135e e005 | | Load 0x0,0x5
135f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1360 010f | | Execute Exception,Equal
1361 6815 |h | Jump_Zero 0x1377
1362 e5fc | | Load 0x2,-0x4
1363 4801 |H | Short_Literal 0x1
1364 4801 |H | Short_Literal 0x1
1365 e004 | | Load 0x0,0x4
1366 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1367 035b | [ | Declare_Type Array,Constrained
1368 0337 | 7 | Declare_Variable Array
1369 e5fe | | Load 0x2,-0x2
136a e006 | | Load 0x0,0x6
136b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
136c e004 | | Load 0x0,0x4
136d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
136e 0119 | | Execute Any,Check_In_Formal_Type
136f 4801 |H | Short_Literal 0x1
1370 00da | | Load_Top At_Offset_2
1371 01d6 | | Execute Vector,Field_Write
1372 600d |` | Indirect_Literal Discrete,0x1380,{0x00000000, 0x00008190}
1373 e005 | | Load 0x0,0x5
1374 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1375 4800 |H | Short_Literal 0x0
1376 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1377 e5fc | | Load 0x2,-0x4
1378 0092 1fcc | | Action Push_String_Extended,0x1fcc ; "Target_Builder.Unit.Serial_Number"
137a e007 | | Load 0x0,0x7
137b 180f | | Execute Package,Field_Execute,Field_Number 0xf
137c 4800 |H | Short_Literal 0x0
137d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
137e 0000 0000 | | .XXX[0x2]
1380 0000 0000 | | .LITERAL {0x00000000, 0x00008190}
1384 0000 0000 | | .BLANK 0000[0x4]
1388 ; --------------------------------------------------------------------------------------
1388 ; SUBPROGRAM
1388 ; --------------------------------------------------------------------------------------
1388 138b | | .CONST 0x138b ; Address of begin
1389 0004 | | .CONST 0x0004 ; Address of exception handler
138a 0001 | | .CONST 0x0001 ; Number of locals
138b BODY_1388:
138b INIT_1388:
138b e264 | d | Load 0x1,0x64
138c 6807 |h | Jump_Zero 0x1394
138d 00db | | Load_Top At_Offset_3
138e 0092 1fcd | | Action Push_String_Extended,0x1fcd ; "}?{ Check_Unit Target_Builder.Unit."
1390 e5ff | | Load 0x2,-0x1
1391 01cc | | Execute Vector,Catenate
1392 e007 | | Load 0x0,0x7
1393 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1394 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1395 0000 0000 | | .XXX[0x3]
1397 0000 | |
1398 ; --------------------------------------------------------------------------------------
1398 ; SUBPROGRAM
1398 ; --------------------------------------------------------------------------------------
1398 139e | | .CONST 0x139e ; Address of begin
1399 0004 | | .CONST 0x0004 ; Address of exception handler
139a 0002 | | .CONST 0x0002 ; Number of locals
139b INIT_1398:
139b e005 | | Load 0x0,0x5
139c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
139d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
139e BODY_1398:
139e e005 | | Load 0x0,0x5
139f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
13a0 e5fc | | Load 0x2,-0x4
13a1 e5ff | | Load 0x2,-0x1
13a2 8012 | | Call 0x0,0x12
13a3 0059 | Y | Store_Top Discrete,At_Offset_1
13a4 4800 |H | Short_Literal 0x0
13a5 00d9 | | Load_Top At_Offset_1
13a6 e005 | | Load 0x0,0x5
13a7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
13a8 7003 |p | Jump_Nonzero 0x13ac
13a9 00d8 | | Load_Top At_Offset_0
13aa a5fa | | Store_Unchecked 0x2,-0x6
13ab 4505 |E | Exit_Suprogram New_Top_Offset 0x5
13ac 00db | | Load_Top At_Offset_3
13ad 0227 | ' | Execute Access,All_Reference
13ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
13af e5fe | | Load 0x2,-0x2
13b0 e002 | | Load 0x0,0x2
13b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13b2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
13b3 e001 | | Load 0x0,0x1
13b4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
13b5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
13b6 c5fb | | Store 0x2,-0x5
13b7 e5fb | | Load 0x2,-0x5
13b8 e001 | | Load 0x0,0x1
13b9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
13ba 180f | | Execute Package,Field_Execute,Field_Number 0xf
13bb 681a |h | Jump_Zero 0x13d6
13bc e5fc | | Load 0x2,-0x4
13bd 4801 |H | Short_Literal 0x1
13be 4801 |H | Short_Literal 0x1
13bf e004 | | Load 0x0,0x4
13c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13c1 035b | [ | Declare_Type Array,Constrained
13c2 0337 | 7 | Declare_Variable Array
13c3 e5fe | | Load 0x2,-0x2
13c4 e004 | | Load 0x0,0x4
13c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
13c6 e004 | | Load 0x0,0x4
13c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13c8 0119 | | Execute Any,Check_In_Formal_Type
13c9 4801 |H | Short_Literal 0x1
13ca 00da | | Load_Top At_Offset_2
13cb 01d6 | | Execute Vector,Field_Write
13cc 600f |` | Indirect_Literal Discrete,0x13dc,{0x00000000, 0x0000816f}
13cd e005 | | Load 0x0,0x5
13ce 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
13cf e004 | | Load 0x0,0x4
13d0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
13d1 e5fd | | Load 0x2,-0x3
13d2 e005 | | Load 0x0,0x5
13d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
13d4 a5fa | | Store_Unchecked 0x2,-0x6
13d5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
13d6 4800 |H | Short_Literal 0x0
13d7 a5fa | | Store_Unchecked 0x2,-0x6
13d8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
13d9 0000 0000 | | .XXX[0x3]
13db 0000 | |
13dc 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
13e0 ; --------------------------------------------------------------------------------------
13e0 ; SUBPROGRAM
13e0 ; --------------------------------------------------------------------------------------
13e0 13f6 | | .CONST 0x13f6 ; Address of begin
13e1 0004 | | .CONST 0x0004 ; Address of exception handler
13e2 0002 | | .CONST 0x0002 ; Number of locals
13e3 INIT_13e0:
13e3 e011 | | Load 0x0,0x11
13e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
13e5 e011 | | Load 0x0,0x11
13e6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
13e7 e011 | | Load 0x0,0x11
13e8 180e | | Execute Package,Field_Execute,Field_Number 0xe
13e9 e011 | | Load 0x0,0x11
13ea 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
13eb 484d |HM | Short_Literal 0x4d
13ec e011 | | Load 0x0,0x11
13ed 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
13ee e011 | | Load 0x0,0x11
13ef 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
13f0 4800 |H | Short_Literal 0x0
13f1 e011 | | Load 0x0,0x11
13f2 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
13f3 00db | | Load_Top At_Offset_3
13f4 e00d | | Load 0x0,0xd
13f5 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
13f6 BODY_13e0:
13f6 4800 |H | Short_Literal 0x0
13f7 00d9 | | Load_Top At_Offset_1
13f8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
13f9 e005 | | Load 0x0,0x5
13fa 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
13fb 7003 |p | Jump_Nonzero 0x13ff
13fc e005 | | Load 0x0,0x5
13fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
13fe 0257 | W | Execute Discrete,Raise
13ff 00d8 | | Load_Top At_Offset_0
1400 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1402 0000 0000 | | .BLANK 0000[0x6]
1408 ; --------------------------------------------------------------------------------------
1408 ; SUBPROGRAM
1408 ; --------------------------------------------------------------------------------------
1408 140d | | .CONST 0x140d ; Address of begin
1409 0004 | | .CONST 0x0004 ; Address of exception handler
140a 0002 | | .CONST 0x0002 ; Number of locals
140b INIT_1408:
140b 029f 1e3b | ;| Declare_Subprogram INIT_1e38,For_Call
140d BODY_1408:
140d e5fd | | Load 0x2,-0x3
140e 6803 |h | Jump_Zero 0x1412
140f 00db | | Load_Top At_Offset_3
1410 8267 | g | Call 0x1,0x67
1411 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1412 8402 | | Call 0x2,0x2
1413 0831 | 1 | Execute_Immediate Raise,0x31
1414 0000 0000 | | .BLANK 0000[0x4]
1418 ; --------------------------------------------------------------------------------------
1418 ; SUBPROGRAM
1418 ; --------------------------------------------------------------------------------------
1418 141b | | .CONST 0x141b ; Address of begin
1419 0004 | | .CONST 0x0004 ; Address of exception handler
141a 0001 | | .CONST 0x0001 ; Number of locals
141b BODY_1418:
141b INIT_1418:
141b 00db | | Load_Top At_Offset_3
141c e009 | | Load 0x0,0x9
141d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
141e 00db | | Load_Top At_Offset_3
141f e001 | | Load 0x0,0x1
1420 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1421 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1422 7002 |p | Jump_Nonzero 0x1425
1423 00ea | | Load_Encached Null_String_Cache
1424 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1425 00db | | Load_Top At_Offset_3
1426 e009 | | Load 0x0,0x9
1427 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1428 00db | | Load_Top At_Offset_3
1429 e001 | | Load 0x0,0x1
142a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
142b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
142c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
142d 0000 0000 | | .XXX[0x3]
142f 0000 | |
1430 ; --------------------------------------------------------------------------------------
1430 ; SUBPROGRAM
1430 ; --------------------------------------------------------------------------------------
1430 144a | J | .CONST 0x144a ; Address of begin
1431 14aa | | .CONST 0x14aa ; Address of exception handler
1432 0005 | | .CONST 0x0005 ; Number of locals
1433 INIT_1430:
1433 e005 | | Load 0x0,0x5
1434 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1435 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1436 e00c | | Load 0x0,0xc
1437 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1438 02c7 | | Declare_Variable Any
1439 00d8 | | Load_Top At_Offset_0
143a 1c00 | | Execute_Immediate Run_Utility,0x0
143b e5f8 | | Load 0x2,-0x8
143c e001 | | Load 0x0,0x1
143d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
143e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
143f e5fe | | Load 0x2,-0x2
1440 e5fb | | Load 0x2,-0x5
1441 e009 | | Load 0x0,0x9
1442 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1443 e5f8 | | Load 0x2,-0x8
1444 e001 | | Load 0x0,0x1
1445 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1446 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1447 e5fb | | Load 0x2,-0x5
1448 e009 | | Load 0x0,0x9
1449 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
144a BODY_1430:
144a e5f9 | | Load 0x2,-0x7
144b 0092 1fce | | Action Push_String_Extended,0x1fce ; "Target_Builder.Unit.Establish_Download_Time"
144d e007 | | Load 0x0,0x7
144e 180e | | Execute Package,Field_Execute,Field_Number 0xe
144f 4800 |H | Short_Literal 0x0
1450 e402 | | Load 0x2,0x2
1451 e005 | | Load 0x0,0x5
1452 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1453 7003 |p | Jump_Nonzero 0x1457
1454 00db | | Load_Top At_Offset_3
1455 a5f7 | | Store_Unchecked 0x2,-0x9
1456 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1457 00da | | Load_Top At_Offset_2
1458 0120 | | Execute Any,Is_Value
1459 6803 |h | Jump_Zero 0x145d
145a e00c | | Load 0x0,0xc
145b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
145c 7801 |x | Jump 0x145e
145d 00da | | Load_Top At_Offset_2
145e e005 | | Load 0x0,0x5
145f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1460 e5fa | | Load 0x2,-0x6
1461 e5fc | | Load 0x2,-0x4
1462 e405 | | Load 0x2,0x5
1463 e008 | | Load 0x0,0x8
1464 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1465 c402 | | Store 0x2,0x2
1466 c403 | | Store 0x2,0x3
1467 4800 |H | Short_Literal 0x0
1468 e402 | | Load 0x2,0x2
1469 e005 | | Load 0x0,0x5
146a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
146b 701d |p | Jump_Nonzero 0x1489
146c e5f9 | | Load 0x2,-0x7
146d 4801 |H | Short_Literal 0x1
146e 4802 |H | Short_Literal 0x2
146f e004 | | Load 0x0,0x4
1470 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1471 035b | [ | Declare_Type Array,Constrained
1472 0337 | 7 | Declare_Variable Array
1473 00db | | Load_Top At_Offset_3
1474 e004 | | Load 0x0,0x4
1475 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1476 e004 | | Load 0x0,0x4
1477 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1478 0119 | | Execute Any,Check_In_Formal_Type
1479 4801 |H | Short_Literal 0x1
147a 00da | | Load_Top At_Offset_2
147b 01d6 | | Execute Vector,Field_Write
147c e402 | | Load 0x2,0x2
147d e005 | | Load 0x0,0x5
147e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
147f e004 | | Load 0x0,0x4
1480 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1481 0119 | | Execute Any,Check_In_Formal_Type
1482 4802 |H | Short_Literal 0x2
1483 00da | | Load_Top At_Offset_2
1484 01d6 | | Execute Vector,Field_Write
1485 605e |`^ | Indirect_Literal Discrete,0x14e4,{0x00000000, 0x00008137}
1486 e005 | | Load 0x0,0x5
1487 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1488 781e |x | Jump 0x14a7
1489 e5f9 | | Load 0x2,-0x7
148a 0092 1fad | | Action Push_String_Extended,0x1fad ; "Setting download time for => "
148c 00db | | Load_Top At_Offset_3
148d 01cc | | Execute Vector,Catenate
148e 0092 1fae | | Action Push_String_Extended,0x1fae ; " to "
1490 01cc | | Execute Vector,Catenate
1491 4800 |H | Short_Literal 0x0
1492 4800 |H | Short_Literal 0x0
1493 4800 |H | Short_Literal 0x0
1494 e403 | | Load 0x2,0x3
1495 e015 | | Load 0x0,0x15
1496 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1497 e015 | | Load 0x0,0x15
1498 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1499 01cc | | Execute Vector,Catenate
149a e007 | | Load 0x0,0x7
149b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
149c 00db | | Load_Top At_Offset_3
149d e5fb | | Load 0x2,-0x5
149e e009 | | Load 0x0,0x9
149f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
14a0 e5fd | | Load 0x2,-0x3
14a1 e403 | | Load 0x2,0x3
14a2 e5f8 | | Load 0x2,-0x8
14a3 e001 | | Load 0x0,0x1
14a4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
14a5 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
14a6 c402 | | Store 0x2,0x2
14a7 00db | | Load_Top At_Offset_3
14a8 a5f7 | | Store_Unchecked 0x2,-0x9
14a9 4508 |E | Exit_Suprogram New_Top_Offset 0x8
14aa TRAP_1430:
14aa e005 | | Load 0x0,0x5
14ab 1b17 | | Execute Package,Field_Read,Field_Number 0x17
14ac 010f | | Execute Exception,Equal
14ad 6817 |h | Jump_Zero 0x14c5
14ae e005 | | Load 0x0,0x5
14af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
14b0 a5f7 | | Store_Unchecked 0x2,-0x9
14b1 e5f9 | | Load 0x2,-0x7
14b2 4801 |H | Short_Literal 0x1
14b3 4801 |H | Short_Literal 0x1
14b4 e004 | | Load 0x0,0x4
14b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
14b6 035b | [ | Declare_Type Array,Constrained
14b7 0337 | 7 | Declare_Variable Array
14b8 e404 | | Load 0x2,0x4
14b9 e004 | | Load 0x0,0x4
14ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
14bb e004 | | Load 0x0,0x4
14bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14bd 0119 | | Execute Any,Check_In_Formal_Type
14be 4801 |H | Short_Literal 0x1
14bf 00da | | Load_Top At_Offset_2
14c0 01d6 | | Execute Vector,Field_Write
14c1 601e |` | Indirect_Literal Discrete,0x14e0,{0x00000000, 0x0000815e}
14c2 e005 | | Load 0x0,0x5
14c3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
14c4 4508 |E | Exit_Suprogram New_Top_Offset 0x8
14c5 e5f9 | | Load 0x2,-0x7
14c6 0092 1fce | | Action Push_String_Extended,0x1fce ; "Target_Builder.Unit.Establish_Download_Time"
14c8 e007 | | Load 0x0,0x7
14c9 180f | | Execute Package,Field_Execute,Field_Number 0xf
14ca 4801 |H | Short_Literal 0x1
14cb 4801 |H | Short_Literal 0x1
14cc e004 | | Load 0x0,0x4
14cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
14ce 035b | [ | Declare_Type Array,Constrained
14cf 0337 | 7 | Declare_Variable Array
14d0 00db | | Load_Top At_Offset_3
14d1 e004 | | Load 0x0,0x4
14d2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
14d3 e004 | | Load 0x0,0x4
14d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14d5 0119 | | Execute Any,Check_In_Formal_Type
14d6 4801 |H | Short_Literal 0x1
14d7 00da | | Load_Top At_Offset_2
14d8 01d6 | | Execute Vector,Field_Write
14d9 6006 |` | Indirect_Literal Discrete,0x14e0,{0x00000000, 0x0000815e}
14da e005 | | Load 0x0,0x5
14db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
14dc a5f7 | | Store_Unchecked 0x2,-0x9
14dd 4508 |E | Exit_Suprogram New_Top_Offset 0x8
14de 0000 0000 | | .XXX[0x2]
14e0 0000 0000 | | .LITERAL {0x00000000, 0x0000815e}
14e4 0000 0000 | | .LITERAL {0x00000000, 0x00008137}
14e8 ; --------------------------------------------------------------------------------------
14e8 ; SUBPROGRAM
14e8 ; --------------------------------------------------------------------------------------
14e8 14f9 | | .CONST 0x14f9 ; Address of begin
14e9 1556 | V | .CONST 0x1556 ; Address of exception handler
14ea 0004 | | .CONST 0x0004 ; Number of locals
14eb INIT_14e8:
14eb e005 | | Load 0x0,0x5
14ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
14ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
14ee e00c | | Load 0x0,0xc
14ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
14f0 02c7 | | Declare_Variable Any
14f1 00d8 | | Load_Top At_Offset_0
14f2 1c00 | | Execute_Immediate Run_Utility,0x0
14f3 e5ff | | Load 0x2,-0x1
14f4 e5fe | | Load 0x2,-0x2
14f5 8267 | g | Call 0x1,0x67
14f6 e5fb | | Load 0x2,-0x5
14f7 e009 | | Load 0x0,0x9
14f8 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
14f9 BODY_14e8:
14f9 e5f9 | | Load 0x2,-0x7
14fa 0092 1fce | | Action Push_String_Extended,0x1fce ; "Target_Builder.Unit.Establish_Download_Time"
14fc e007 | | Load 0x0,0x7
14fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
14fe 4800 |H | Short_Literal 0x0
14ff 00db | | Load_Top At_Offset_3
1500 e005 | | Load 0x0,0x5
1501 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1502 7003 |p | Jump_Nonzero 0x1506
1503 00da | | Load_Top At_Offset_2
1504 a5f8 | | Store_Unchecked 0x2,-0x8
1505 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1506 00d9 | | Load_Top At_Offset_1
1507 0120 | | Execute Any,Is_Value
1508 6803 |h | Jump_Zero 0x150c
1509 e00c | | Load 0x0,0xc
150a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
150b 7801 |x | Jump 0x150d
150c 00d9 | | Load_Top At_Offset_1
150d e005 | | Load 0x0,0x5
150e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
150f e5fa | | Load 0x2,-0x6
1510 e5fc | | Load 0x2,-0x4
1511 e404 | | Load 0x2,0x4
1512 e008 | | Load 0x0,0x8
1513 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1514 c402 | | Store 0x2,0x2
1515 c403 | | Store 0x2,0x3
1516 4800 |H | Short_Literal 0x0
1517 00db | | Load_Top At_Offset_3
1518 e005 | | Load 0x0,0x5
1519 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
151a 701d |p | Jump_Nonzero 0x1538
151b e5f9 | | Load 0x2,-0x7
151c 4801 |H | Short_Literal 0x1
151d 4802 |H | Short_Literal 0x2
151e e004 | | Load 0x0,0x4
151f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1520 035b | [ | Declare_Type Array,Constrained
1521 0337 | 7 | Declare_Variable Array
1522 00da | | Load_Top At_Offset_2
1523 e004 | | Load 0x0,0x4
1524 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1525 e004 | | Load 0x0,0x4
1526 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1527 0119 | | Execute Any,Check_In_Formal_Type
1528 4801 |H | Short_Literal 0x1
1529 00da | | Load_Top At_Offset_2
152a 01d6 | | Execute Vector,Field_Write
152b e402 | | Load 0x2,0x2
152c e005 | | Load 0x0,0x5
152d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
152e e004 | | Load 0x0,0x4
152f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1530 0119 | | Execute Any,Check_In_Formal_Type
1531 4802 |H | Short_Literal 0x2
1532 00da | | Load_Top At_Offset_2
1533 01d6 | | Execute Vector,Field_Write
1534 67af |g | Indirect_Literal Discrete,0x14e4,{0x00000000, 0x00008137}
1535 e005 | | Load 0x0,0x5
1536 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1537 781b |x | Jump 0x1553
1538 e5f9 | | Load 0x2,-0x7
1539 0092 1fad | | Action Push_String_Extended,0x1fad ; "Setting download time for => "
153b 00da | | Load_Top At_Offset_2
153c 01cc | | Execute Vector,Catenate
153d 0092 1fae | | Action Push_String_Extended,0x1fae ; " to "
153f 01cc | | Execute Vector,Catenate
1540 4800 |H | Short_Literal 0x0
1541 4800 |H | Short_Literal 0x0
1542 4800 |H | Short_Literal 0x0
1543 e403 | | Load 0x2,0x3
1544 e015 | | Load 0x0,0x15
1545 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1546 e015 | | Load 0x0,0x15
1547 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1548 01cc | | Execute Vector,Catenate
1549 e007 | | Load 0x0,0x7
154a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
154b e005 | | Load 0x0,0x5
154c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
154d e5f9 | | Load 0x2,-0x7
154e 00db | | Load_Top At_Offset_3
154f e5fe | | Load 0x2,-0x2
1550 e00d | | Load 0x0,0xd
1551 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
1552 005b | [ | Store_Top Discrete,At_Offset_3
1553 00da | | Load_Top At_Offset_2
1554 a5f8 | | Store_Unchecked 0x2,-0x8
1555 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1556 TRAP_14e8:
1556 e005 | | Load 0x0,0x5
1557 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1558 010f | | Execute Exception,Equal
1559 6817 |h | Jump_Zero 0x1571
155a e005 | | Load 0x0,0x5
155b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
155c a5f8 | | Store_Unchecked 0x2,-0x8
155d e5f9 | | Load 0x2,-0x7
155e 4801 |H | Short_Literal 0x1
155f 4801 |H | Short_Literal 0x1
1560 e004 | | Load 0x0,0x4
1561 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1562 035b | [ | Declare_Type Array,Constrained
1563 0337 | 7 | Declare_Variable Array
1564 00db | | Load_Top At_Offset_3
1565 e004 | | Load 0x0,0x4
1566 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1567 e004 | | Load 0x0,0x4
1568 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1569 0119 | | Execute Any,Check_In_Formal_Type
156a 4801 |H | Short_Literal 0x1
156b 00da | | Load_Top At_Offset_2
156c 01d6 | | Execute Vector,Field_Write
156d 6772 |gr | Indirect_Literal Discrete,0x14e0,{0x00000000, 0x0000815e}
156e e005 | | Load 0x0,0x5
156f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1570 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1571 e5f9 | | Load 0x2,-0x7
1572 0092 1fce | | Action Push_String_Extended,0x1fce ; "Target_Builder.Unit.Establish_Download_Time"
1574 e007 | | Load 0x0,0x7
1575 180f | | Execute Package,Field_Execute,Field_Number 0xf
1576 4801 |H | Short_Literal 0x1
1577 4801 |H | Short_Literal 0x1
1578 e004 | | Load 0x0,0x4
1579 1b0f | | Execute Package,Field_Read,Field_Number 0xf
157a 035b | [ | Declare_Type Array,Constrained
157b 0337 | 7 | Declare_Variable Array
157c 00da | | Load_Top At_Offset_2
157d e004 | | Load 0x0,0x4
157e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
157f e004 | | Load 0x0,0x4
1580 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1581 0119 | | Execute Any,Check_In_Formal_Type
1582 4801 |H | Short_Literal 0x1
1583 00da | | Load_Top At_Offset_2
1584 01d6 | | Execute Vector,Field_Write
1585 675a |gZ | Indirect_Literal Discrete,0x14e0,{0x00000000, 0x0000815e}
1586 e005 | | Load 0x0,0x5
1587 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1588 a5f8 | | Store_Unchecked 0x2,-0x8
1589 4508 |E | Exit_Suprogram New_Top_Offset 0x8
158a 0000 0000 | | .BLANK 0000[0x6]
1590 ; --------------------------------------------------------------------------------------
1590 ; SUBPROGRAM
1590 ; --------------------------------------------------------------------------------------
1590 1595 | | .CONST 0x1595 ; Address of begin
1591 0004 | | .CONST 0x0004 ; Address of exception handler
1592 0002 | | .CONST 0x0002 ; Number of locals
1593 INIT_1590:
1593 e002 | | Load 0x0,0x2
1594 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1595 BODY_1590:
1595 e002 | | Load 0x0,0x2
1596 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1597 e5fd | | Load 0x2,-0x3
1598 0120 | | Execute Any,Is_Value
1599 6804 |h | Jump_Zero 0x159e
159a e002 | | Load 0x0,0x2
159b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
159c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
159d 7801 |x | Jump 0x159f
159e e5fd | | Load 0x2,-0x3
159f 6068 |`h | Indirect_Literal Discrete,0x1608,{0x00000000, 0x00004000}
15a0 e00e | | Load 0x0,0xe
15a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15a2 4800 |H | Short_Literal 0x0
15a3 e5ff | | Load 0x2,-0x1
15a4 e002 | | Load 0x0,0x2
15a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
15a7 c5fd | | Store 0x2,-0x3
15a8 0059 | Y | Store_Top Discrete,At_Offset_1
15a9 00d8 | | Load_Top At_Offset_0
15aa 6821 |h! | Jump_Zero 0x15cc
15ab 4801 |H | Short_Literal 0x1
15ac 4802 |H | Short_Literal 0x2
15ad e004 | | Load 0x0,0x4
15ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
15af 035b | [ | Declare_Type Array,Constrained
15b0 0337 | 7 | Declare_Variable Array
15b1 e5ff | | Load 0x2,-0x1
15b2 e004 | | Load 0x0,0x4
15b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
15b4 e004 | | Load 0x0,0x4
15b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15b6 0119 | | Execute Any,Check_In_Formal_Type
15b7 4801 |H | Short_Literal 0x1
15b8 00da | | Load_Top At_Offset_2
15b9 01d6 | | Execute Vector,Field_Write
15ba 00d9 | | Load_Top At_Offset_1
15bb e004 | | Load 0x0,0x4
15bc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
15bd e004 | | Load 0x0,0x4
15be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15bf 0119 | | Execute Any,Check_In_Formal_Type
15c0 4802 |H | Short_Literal 0x2
15c1 00da | | Load_Top At_Offset_2
15c2 01d6 | | Execute Vector,Field_Write
15c3 6040 |`@ | Indirect_Literal Discrete,0x1604,{0x00000000, 0x0000813d}
15c4 e005 | | Load 0x0,0x5
15c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
15c6 a5fb | | Store_Unchecked 0x2,-0x5
15c7 e5fe | | Load 0x2,-0x2
15c8 e5fb | | Load 0x2,-0x5
15c9 e005 | | Load 0x0,0x5
15ca 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
15cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
15cc e01c | | Load 0x0,0x1c
15cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
15ce e002 | | Load 0x0,0x2
15cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
15d1 c5fc | | Store 0x2,-0x4
15d2 e002 | | Load 0x0,0x2
15d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15d4 e01c | | Load 0x0,0x1c
15d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
15d6 e5fd | | Load 0x2,-0x3
15d7 e002 | | Load 0x0,0x2
15d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
15da 0059 | Y | Store_Top Discrete,At_Offset_1
15db 00d8 | | Load_Top At_Offset_0
15dc 6820 |h | Jump_Zero 0x15fd
15dd 4801 |H | Short_Literal 0x1
15de 4802 |H | Short_Literal 0x2
15df e004 | | Load 0x0,0x4
15e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
15e1 035b | [ | Declare_Type Array,Constrained
15e2 0337 | 7 | Declare_Variable Array
15e3 e5ff | | Load 0x2,-0x1
15e4 e004 | | Load 0x0,0x4
15e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
15e6 e004 | | Load 0x0,0x4
15e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15e8 0119 | | Execute Any,Check_In_Formal_Type
15e9 4801 |H | Short_Literal 0x1
15ea 00da | | Load_Top At_Offset_2
15eb 01d6 | | Execute Vector,Field_Write
15ec 00d9 | | Load_Top At_Offset_1
15ed e004 | | Load 0x0,0x4
15ee 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
15ef e004 | | Load 0x0,0x4
15f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15f1 0119 | | Execute Any,Check_In_Formal_Type
15f2 4802 |H | Short_Literal 0x2
15f3 00da | | Load_Top At_Offset_2
15f4 01d6 | | Execute Vector,Field_Write
15f5 600a |` | Indirect_Literal Discrete,0x1600,{0x00000000, 0x00008159}
15f6 e005 | | Load 0x0,0x5
15f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
15f8 a5fb | | Store_Unchecked 0x2,-0x5
15f9 e5fe | | Load 0x2,-0x2
15fa e5fb | | Load 0x2,-0x5
15fb e005 | | Load 0x0,0x5
15fc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
15fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
15fe 0000 0000 | | .XXX[0x2]
1600 0000 0000 | | .LITERAL {0x00000000, 0x00008159}
1604 0000 0000 | | .LITERAL {0x00000000, 0x0000813d}
1608 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
160c 0000 0000 | | .BLANK 0000[0x4]
1610 ; --------------------------------------------------------------------------------------
1610 ; SUBPROGRAM
1610 ; --------------------------------------------------------------------------------------
1610 1615 | | .CONST 0x1615 ; Address of begin
1611 0004 | | .CONST 0x0004 ; Address of exception handler
1612 0002 | | .CONST 0x0002 ; Number of locals
1613 INIT_1610:
1613 e002 | | Load 0x0,0x2
1614 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1615 BODY_1610:
1615 4800 |H | Short_Literal 0x0
1616 a5fd | | Store_Unchecked 0x2,-0x3
1617 e002 | | Load 0x0,0x2
1618 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1619 e01c | | Load 0x0,0x1c
161a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
161b e5ff | | Load 0x2,-0x1
161c e002 | | Load 0x0,0x2
161d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
161e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
161f 0059 | Y | Store_Top Discrete,At_Offset_1
1620 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1621 0000 0000 | | .BLANK 0000[0x7]
1628 ; --------------------------------------------------------------------------------------
1628 ; SUBPROGRAM
1628 ; --------------------------------------------------------------------------------------
1628 162b | + | .CONST 0x162b ; Address of begin
1629 0004 | | .CONST 0x0004 ; Address of exception handler
162a 0001 | | .CONST 0x0001 ; Number of locals
162b BODY_1628:
162b INIT_1628:
162b e5fc | | Load 0x2,-0x4
162c 0092 1fcf | | Action Push_String_Extended,0x1fcf ; "Acquiring Remote Connection => "
162e e5ff | | Load 0x2,-0x1
162f 01cc | | Execute Vector,Catenate
1630 e007 | | Load 0x0,0x7
1631 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1632 e005 | | Load 0x0,0x5
1633 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1634 e008 | | Load 0x0,0x8
1635 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1636 e5fd | | Load 0x2,-0x3
1637 e01d | | Load 0x0,0x1d
1638 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1639 e01d | | Load 0x0,0x1d
163a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
163b e5ff | | Load 0x2,-0x1
163c e5fe | | Load 0x2,-0x2
163d e008 | | Load 0x0,0x8
163e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
163f c5fb | | Store 0x2,-0x5
1640 c5fa | | Store 0x2,-0x6
1641 4800 |H | Short_Literal 0x0
1642 e5fa | | Load 0x2,-0x6
1643 e005 | | Load 0x0,0x5
1644 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1645 7004 |p | Jump_Nonzero 0x164a
1646 e5fc | | Load 0x2,-0x4
1647 e5fa | | Load 0x2,-0x6
1648 e005 | | Load 0x0,0x5
1649 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
164a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
164b 0000 0000 | | .BLANK 0000[0x5]
1650 ; --------------------------------------------------------------------------------------
1650 ; SUBPROGRAM
1650 ; --------------------------------------------------------------------------------------
1650 1655 | U | .CONST 0x1655 ; Address of begin
1651 0004 | | .CONST 0x0004 ; Address of exception handler
1652 0002 | | .CONST 0x0002 ; Number of locals
1653 INIT_1650:
1653 029f 1e4b | K| Declare_Subprogram INIT_1e48,For_Call
1655 BODY_1650:
1655 e5fe | | Load 0x2,-0x2
1656 01db | | Execute Vector,Length
1657 7008 |p | Jump_Nonzero 0x1660
1658 e004 | | Load 0x0,0x4
1659 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
165a 4806 |H | Short_Literal 0x6
165b 6040 |`@ | Indirect_Literal Discrete,0x169c,{0x00000000, 0x0000818b}
165c e005 | | Load 0x0,0x5
165d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
165e a5f9 | | Store_Unchecked 0x2,-0x7
165f 782b |x+ | Jump 0x168b
1660 e5fb | | Load 0x2,-0x5
1661 6814 |h | Jump_Zero 0x1676
1662 e5fa | | Load 0x2,-0x6
1663 4801 |H | Short_Literal 0x1
1664 4801 |H | Short_Literal 0x1
1665 e004 | | Load 0x0,0x4
1666 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1667 035b | [ | Declare_Type Array,Constrained
1668 0337 | 7 | Declare_Variable Array
1669 e5fe | | Load 0x2,-0x2
166a e004 | | Load 0x0,0x4
166b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
166c e004 | | Load 0x0,0x4
166d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
166e 0119 | | Execute Any,Check_In_Formal_Type
166f 4801 |H | Short_Literal 0x1
1670 00da | | Load_Top At_Offset_2
1671 01d6 | | Execute Vector,Field_Write
1672 6025 |`% | Indirect_Literal Discrete,0x1698,{0x00000000, 0x0000818e}
1673 e005 | | Load 0x0,0x5
1674 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1675 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1676 e005 | | Load 0x0,0x5
1677 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1678 e5fc | | Load 0x2,-0x4
1679 e00a | | Load 0x0,0xa
167a 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
167b e00a | | Load 0x0,0xa
167c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
167d 4801 |H | Short_Literal 0x1
167e e5ff | | Load 0x2,-0x1
167f e009 | | Load 0x0,0x9
1680 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
1681 e5ff | | Load 0x2,-0x1
1682 e009 | | Load 0x0,0x9
1683 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
1684 e5ff | | Load 0x2,-0x1
1685 8402 | | Call 0x2,0x2
1686 e5fd | | Load 0x2,-0x3
1687 e5fe | | Load 0x2,-0x2
1688 e008 | | Load 0x0,0x8
1689 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
168a c5f9 | | Store 0x2,-0x7
168b 4800 |H | Short_Literal 0x0
168c e5f9 | | Load 0x2,-0x7
168d e005 | | Load 0x0,0x5
168e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
168f 7004 |p | Jump_Nonzero 0x1694
1690 e5fa | | Load 0x2,-0x6
1691 e5f9 | | Load 0x2,-0x7
1692 e005 | | Load 0x0,0x5
1693 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1694 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1695 0000 0000 | | .XXX[0x3]
1697 0000 | |
1698 0000 0000 | | .LITERAL {0x00000000, 0x0000818e}
169c 0000 0000 | | .LITERAL {0x00000000, 0x0000818b}
16a0 ; --------------------------------------------------------------------------------------
16a0 ; SUBPROGRAM
16a0 ; --------------------------------------------------------------------------------------
16a0 16ab | | .CONST 0x16ab ; Address of begin
16a1 171c | | .CONST 0x171c ; Address of exception handler
16a2 0002 | | .CONST 0x0002 ; Number of locals
16a3 INIT_16a0:
16a3 e002 | | Load 0x0,0x2
16a4 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
16a5 0322 | " | Declare_Variable Record
16a6 00db | | Load_Top At_Offset_3
16a7 e009 | | Load 0x0,0x9
16a8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
16a9 00d9 | | Load_Top At_Offset_1
16aa 017d | } | Execute Record,Structure_Write
16ab BODY_16a0:
16ab e5fa | | Load 0x2,-0x6
16ac 702a |p* | Jump_Nonzero 0x16d7
16ad 00d8 | | Load_Top At_Offset_0
16ae e5fe | | Load 0x2,-0x2
16af e5fb | | Load 0x2,-0x5
16b0 e5fc | | Load 0x2,-0x4
16b1 e024 | $ | Load 0x0,0x24
16b2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
16b3 7023 |p# | Jump_Nonzero 0x16d7
16b4 e5f9 | | Load 0x2,-0x7
16b5 4801 |H | Short_Literal 0x1
16b6 4802 |H | Short_Literal 0x2
16b7 e004 | | Load 0x0,0x4
16b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
16b9 035b | [ | Declare_Type Array,Constrained
16ba 0337 | 7 | Declare_Variable Array
16bb e5fc | | Load 0x2,-0x4
16bc e004 | | Load 0x0,0x4
16bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
16be e004 | | Load 0x0,0x4
16bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
16c0 0119 | | Execute Any,Check_In_Formal_Type
16c1 4801 |H | Short_Literal 0x1
16c2 00da | | Load_Top At_Offset_2
16c3 01d6 | | Execute Vector,Field_Write
16c4 e5fb | | Load 0x2,-0x5
16c5 e004 | | Load 0x0,0x4
16c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
16c7 e004 | | Load 0x0,0x4
16c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
16c9 0119 | | Execute Any,Check_In_Formal_Type
16ca 4802 |H | Short_Literal 0x2
16cb 00da | | Load_Top At_Offset_2
16cc 01d6 | | Execute Vector,Field_Write
16cd 6082 |` | Indirect_Literal Discrete,0x1750,{0x00000000, 0x000081c5}
16ce e005 | | Load 0x0,0x5
16cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
16d0 e004 | | Load 0x0,0x4
16d1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
16d2 607d |`} | Indirect_Literal Discrete,0x1750,{0x00000000, 0x000081c5}
16d3 e005 | | Load 0x0,0x5
16d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
16d5 a5f8 | | Store_Unchecked 0x2,-0x8
16d6 4508 |E | Exit_Suprogram New_Top_Offset 0x8
16d7 00db | | Load_Top At_Offset_3
16d8 e009 | | Load 0x0,0x9
16d9 188c | | Execute Package,Field_Execute,Field_Number 0x8c
16da 01db | | Execute Vector,Length
16db 7001 |p | Jump_Nonzero 0x16dd
16dc 4508 |E | Exit_Suprogram New_Top_Offset 0x8
16dd e5f8 | | Load 0x2,-0x8
16de e5f9 | | Load 0x2,-0x7
16df e5fa | | Load 0x2,-0x6
16e0 e5fd | | Load 0x2,-0x3
16e1 e5fe | | Load 0x2,-0x2
16e2 00ea | | Load_Encached Null_String_Cache
16e3 e5fc | | Load 0x2,-0x4
16e4 e5ff | | Load 0x2,-0x1
16e5 e009 | | Load 0x0,0x9
16e6 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8
16e7 e5ff | | Load 0x2,-0x1
16e8 826f | o | Call 0x1,0x6f
16e9 c5f8 | | Store 0x2,-0x8
16ea 4800 |H | Short_Literal 0x0
16eb e5f8 | | Load 0x2,-0x8
16ec e005 | | Load 0x0,0x5
16ed 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
16ee 682c |h, | Jump_Zero 0x171b
16ef e5fa | | Load 0x2,-0x6
16f0 702a |p* | Jump_Nonzero 0x171b
16f1 00d8 | | Load_Top At_Offset_0
16f2 e5fe | | Load 0x2,-0x2
16f3 e5fb | | Load 0x2,-0x5
16f4 e5fc | | Load 0x2,-0x4
16f5 e024 | $ | Load 0x0,0x24
16f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
16f7 7023 |p# | Jump_Nonzero 0x171b
16f8 e5f9 | | Load 0x2,-0x7
16f9 4801 |H | Short_Literal 0x1
16fa 4802 |H | Short_Literal 0x2
16fb e004 | | Load 0x0,0x4
16fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
16fd 035b | [ | Declare_Type Array,Constrained
16fe 0337 | 7 | Declare_Variable Array
16ff e5fc | | Load 0x2,-0x4
1700 e004 | | Load 0x0,0x4
1701 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1702 e004 | | Load 0x0,0x4
1703 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1704 0119 | | Execute Any,Check_In_Formal_Type
1705 4801 |H | Short_Literal 0x1
1706 00da | | Load_Top At_Offset_2
1707 01d6 | | Execute Vector,Field_Write
1708 e5fb | | Load 0x2,-0x5
1709 e004 | | Load 0x0,0x4
170a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
170b e004 | | Load 0x0,0x4
170c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
170d 0119 | | Execute Any,Check_In_Formal_Type
170e 4802 |H | Short_Literal 0x2
170f 00da | | Load_Top At_Offset_2
1710 01d6 | | Execute Vector,Field_Write
1711 603a |`: | Indirect_Literal Discrete,0x174c,{0x00000000, 0x000081c6}
1712 e005 | | Load 0x0,0x5
1713 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1714 e004 | | Load 0x0,0x4
1715 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1716 6035 |`5 | Indirect_Literal Discrete,0x174c,{0x00000000, 0x000081c6}
1717 e005 | | Load 0x0,0x5
1718 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1719 a5f8 | | Store_Unchecked 0x2,-0x8
171a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
171b 4508 |E | Exit_Suprogram New_Top_Offset 0x8
171c TRAP_16a0:
171c e009 | | Load 0x0,0x9
171d 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
171e 010f | | Execute Exception,Equal
171f 6824 |h$ | Jump_Zero 0x1744
1720 4801 |H | Short_Literal 0x1
1721 4802 |H | Short_Literal 0x2
1722 e004 | | Load 0x0,0x4
1723 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1724 035b | [ | Declare_Type Array,Constrained
1725 0337 | 7 | Declare_Variable Array
1726 0092 1fd0 | | Action Push_String_Extended,0x1fd0 ; "Change Directory Context"
1728 e004 | | Load 0x0,0x4
1729 1810 | | Execute Package,Field_Execute,Field_Number 0x10
172a e004 | | Load 0x0,0x4
172b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
172c 0119 | | Execute Any,Check_In_Formal_Type
172d 4801 |H | Short_Literal 0x1
172e 00da | | Load_Top At_Offset_2
172f 01d6 | | Execute Vector,Field_Write
1730 e5ff | | Load 0x2,-0x1
1731 e009 | | Load 0x0,0x9
1732 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1733 e006 | | Load 0x0,0x6
1734 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
1735 e004 | | Load 0x0,0x4
1736 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1737 0119 | | Execute Any,Check_In_Formal_Type
1738 4802 |H | Short_Literal 0x2
1739 00da | | Load_Top At_Offset_2
173a 01d6 | | Execute Vector,Field_Write
173b 600c |` | Indirect_Literal Discrete,0x1748,{0x00000000, 0x0000818c}
173c e005 | | Load 0x0,0x5
173d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
173e a5f8 | | Store_Unchecked 0x2,-0x8
173f e5f9 | | Load 0x2,-0x7
1740 e5f8 | | Load 0x2,-0x8
1741 e005 | | Load 0x0,0x5
1742 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1743 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1744 0100 | | Execute Exception,Raise
1745 0000 0000 | | .XXX[0x3]
1747 0000 | |
1748 0000 0000 | | .LITERAL {0x00000000, 0x0000818c}
174c 0000 0000 | | .LITERAL {0x00000000, 0x000081c6}
1750 0000 0000 | | .LITERAL {0x00000000, 0x000081c5}
1754 0000 0000 | | .BLANK 0000[0x4]
1758 ; --------------------------------------------------------------------------------------
1758 ; SUBPROGRAM
1758 ; --------------------------------------------------------------------------------------
1758 175e | ^ | .CONST 0x175e ; Address of begin
1759 1771 | q | .CONST 0x1771 ; Address of exception handler
175a 0002 | | .CONST 0x0002 ; Number of locals
175b INIT_1758:
175b 00da | | Load_Top At_Offset_2
175c e009 | | Load 0x0,0x9
175d 1890 | | Execute Package,Field_Execute,Field_Number 0x90
175e BODY_1758:
175e 00d8 | | Load_Top At_Offset_0
175f 01db | | Execute Vector,Length
1760 7001 |p | Jump_Nonzero 0x1762
1761 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1762 e5f8 | | Load 0x2,-0x8
1763 e5f9 | | Load 0x2,-0x7
1764 e5fa | | Load 0x2,-0x6
1765 e5fd | | Load 0x2,-0x3
1766 e5fe | | Load 0x2,-0x2
1767 00ea | | Load_Encached Null_String_Cache
1768 e5fb | | Load 0x2,-0x5
1769 e5fc | | Load 0x2,-0x4
176a e5ff | | Load 0x2,-0x1
176b e009 | | Load 0x0,0x9
176c 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
176d e5ff | | Load 0x2,-0x1
176e 826f | o | Call 0x1,0x6f
176f c5f8 | | Store 0x2,-0x8
1770 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1771 TRAP_1758:
1771 e009 | | Load 0x0,0x9
1772 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
1773 010f | | Execute Exception,Equal
1774 6824 |h$ | Jump_Zero 0x1799
1775 4801 |H | Short_Literal 0x1
1776 4802 |H | Short_Literal 0x2
1777 e004 | | Load 0x0,0x4
1778 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1779 035b | [ | Declare_Type Array,Constrained
177a 0337 | 7 | Declare_Variable Array
177b 0092 1fd1 | | Action Push_String_Extended,0x1fd1 ; "Change Library Context"
177d e004 | | Load 0x0,0x4
177e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
177f e004 | | Load 0x0,0x4
1780 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1781 0119 | | Execute Any,Check_In_Formal_Type
1782 4801 |H | Short_Literal 0x1
1783 00da | | Load_Top At_Offset_2
1784 01d6 | | Execute Vector,Field_Write
1785 e5ff | | Load 0x2,-0x1
1786 e009 | | Load 0x0,0x9
1787 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1788 e006 | | Load 0x0,0x6
1789 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
178a e004 | | Load 0x0,0x4
178b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
178c 0119 | | Execute Any,Check_In_Formal_Type
178d 4802 |H | Short_Literal 0x2
178e 00da | | Load_Top At_Offset_2
178f 01d6 | | Execute Vector,Field_Write
1790 67b7 |g | Indirect_Literal Discrete,0x1748,{0x00000000, 0x0000818c}
1791 e005 | | Load 0x0,0x5
1792 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1793 a5f8 | | Store_Unchecked 0x2,-0x8
1794 e5f9 | | Load 0x2,-0x7
1795 e5f8 | | Load 0x2,-0x8
1796 e005 | | Load 0x0,0x5
1797 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1798 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1799 0100 | | Execute Exception,Raise
179a 0000 0000 | | .BLANK 0000[0x6]
17a0 ; --------------------------------------------------------------------------------------
17a0 ; SUBPROGRAM
17a0 ; --------------------------------------------------------------------------------------
17a0 17e2 | | .CONST 0x17e2 ; Address of begin
17a1 187d | } | .CONST 0x187d ; Address of exception handler
17a2 000b | | .CONST 0x000b ; Number of locals
17a3 INIT_17a0:
17a3 e5f5 | | Load 0x2,-0xb
17a4 e5fd | | Load 0x2,-0x3
17a5 e5fe | | Load 0x2,-0x2
17a6 e009 | | Load 0x0,0x9
17a7 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
17a8 00ea | | Load_Encached Null_String_Cache
17a9 e5f5 | | Load 0x2,-0xb
17aa e5fd | | Load 0x2,-0x3
17ab e5fe | | Load 0x2,-0x2
17ac e009 | | Load 0x0,0x9
17ad 18ba | | Execute Package,Field_Execute,Field_Number 0xba
17ae e002 | | Load 0x0,0x2
17af 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
17b0 0322 | " | Declare_Variable Record
17b1 e5fe | | Load 0x2,-0x2
17b2 e009 | | Load 0x0,0x9
17b3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
17b4 00d9 | | Load_Top At_Offset_1
17b5 017d | } | Execute Record,Structure_Write
17b6 e5f5 | | Load 0x2,-0xb
17b7 e5fd | | Load 0x2,-0x3
17b8 e5fa | | Load 0x2,-0x6
17b9 e00a | | Load 0x0,0xa
17ba 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
17bb e00a | | Load 0x0,0xa
17bc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
17bd 4800 |H | Short_Literal 0x0
17be 4801 |H | Short_Literal 0x1
17bf e5fe | | Load 0x2,-0x2
17c0 e009 | | Load 0x0,0x9
17c1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
17c2 e5ff | | Load 0x2,-0x1
17c3 e01e | | Load 0x0,0x1e
17c4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
17c5 e5f5 | | Load 0x2,-0xb
17c6 e5fd | | Load 0x2,-0x3
17c7 e5fa | | Load 0x2,-0x6
17c8 e00a | | Load 0x0,0xa
17c9 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
17ca e00a | | Load 0x0,0xa
17cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
17cc 4801 |H | Short_Literal 0x1
17cd 4801 |H | Short_Literal 0x1
17ce e5fe | | Load 0x2,-0x2
17cf e009 | | Load 0x0,0x9
17d0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
17d1 e5ff | | Load 0x2,-0x1
17d2 e01e | | Load 0x0,0x1e
17d3 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
17d4 00da | | Load_Top At_Offset_2
17d5 e01f | | Load 0x0,0x1f
17d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
17d7 e020 | | Load 0x0,0x20
17d8 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
17d9 e002 | | Load 0x0,0x2
17da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
17db 02c7 | | Declare_Variable Any
17dc 00d8 | | Load_Top At_Offset_0
17dd 1c00 | | Execute_Immediate Run_Utility,0x0
17de 029f 1e63 | c| Declare_Subprogram INIT_1e60,For_Call
17e0 029f 1e7b | {| Declare_Subprogram INIT_1e78,For_Call
17e2 BODY_17a0:
17e2 e5f7 | | Load 0x2,-0x9
17e3 6803 |h | Jump_Zero 0x17e7
17e4 e5fc | | Load 0x2,-0x4
17e5 c409 | | Store 0x2,0x9
17e6 7802 |x | Jump 0x17e9
17e7 e5fd | | Load 0x2,-0x3
17e8 c409 | | Store 0x2,0x9
17e9 e405 | | Load 0x2,0x5
17ea e5f7 | | Load 0x2,-0x9
17eb e5fb | | Load 0x2,-0x5
17ec e408 | | Load 0x2,0x8
17ed e407 | | Load 0x2,0x7
17ee e406 | | Load 0x2,0x6
17ef e402 | | Load 0x2,0x2
17f0 e404 | | Load 0x2,0x4
17f1 e403 | | Load 0x2,0x3
17f2 e5f9 | | Load 0x2,-0x7
17f3 e409 | | Load 0x2,0x9
17f4 e024 | $ | Load 0x0,0x24
17f5 180d | | Execute Package,Field_Execute,Field_Number 0xd
17f6 701a |p | Jump_Nonzero 0x1811
17f7 e5f5 | | Load 0x2,-0xb
17f8 4801 |H | Short_Literal 0x1
17f9 4801 |H | Short_Literal 0x1
17fa e004 | | Load 0x0,0x4
17fb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
17fc 035b | [ | Declare_Type Array,Constrained
17fd 0337 | 7 | Declare_Variable Array
17fe e5fd | | Load 0x2,-0x3
17ff e006 | | Load 0x0,0x6
1800 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1801 e004 | | Load 0x0,0x4
1802 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1803 0119 | | Execute Any,Check_In_Formal_Type
1804 4801 |H | Short_Literal 0x1
1805 00da | | Load_Top At_Offset_2
1806 01d6 | | Execute Vector,Field_Write
1807 60a8 |` | Indirect_Literal Discrete,0x18b0,{0x00000000, 0x000081bf}
1808 e005 | | Load 0x0,0x5
1809 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
180a e004 | | Load 0x0,0x4
180b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
180c 60a3 |` | Indirect_Literal Discrete,0x18b0,{0x00000000, 0x000081bf}
180d e005 | | Load 0x0,0x5
180e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
180f a5f4 | | Store_Unchecked 0x2,-0xc
1810 450c |E | Exit_Suprogram New_Top_Offset 0xc
1811 e5fe | | Load 0x2,-0x2
1812 e009 | | Load 0x0,0x9
1813 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
1814 01db | | Execute Vector,Length
1815 0c01 | | Execute_Immediate Greater_Equal,0x1
1816 6838 |h8 | Jump_Zero 0x184f
1817 840a | | Call 0x2,0xa
1818 e5f7 | | Load 0x2,-0x9
1819 680a |h | Jump_Zero 0x1824
181a e5f4 | | Load 0x2,-0xc
181b e5f5 | | Load 0x2,-0xb
181c e5f6 | | Load 0x2,-0xa
181d e5fa | | Load 0x2,-0x6
181e e5fb | | Load 0x2,-0x5
181f e5f8 | | Load 0x2,-0x8
1820 e5fe | | Load 0x2,-0x2
1821 826f | o | Call 0x1,0x6f
1822 c5f4 | | Store 0x2,-0xc
1823 782a |x* | Jump 0x184e
1824 e5f4 | | Load 0x2,-0xc
1825 e5f5 | | Load 0x2,-0xb
1826 e5f6 | | Load 0x2,-0xa
1827 e5fa | | Load 0x2,-0x6
1828 e5fb | | Load 0x2,-0x5
1829 e5f5 | | Load 0x2,-0xb
182a e5fd | | Load 0x2,-0x3
182b e5fa | | Load 0x2,-0x6
182c e00a | | Load 0x0,0xa
182d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
182e e00a | | Load 0x0,0xa
182f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1830 4801 |H | Short_Literal 0x1
1831 4801 |H | Short_Literal 0x1
1832 e5fe | | Load 0x2,-0x2
1833 e009 | | Load 0x0,0x9
1834 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1835 e5ff | | Load 0x2,-0x1
1836 e01e | | Load 0x0,0x1e
1837 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1838 e5f5 | | Load 0x2,-0xb
1839 e5fd | | Load 0x2,-0x3
183a e5fa | | Load 0x2,-0x6
183b e00a | | Load 0x0,0xa
183c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
183d e00a | | Load 0x0,0xa
183e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
183f 4800 |H | Short_Literal 0x0
1840 4801 |H | Short_Literal 0x1
1841 e5fe | | Load 0x2,-0x2
1842 e009 | | Load 0x0,0x9
1843 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1844 e5ff | | Load 0x2,-0x1
1845 e01e | | Load 0x0,0x1e
1846 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1847 e5f9 | | Load 0x2,-0x7
1848 e5fe | | Load 0x2,-0x2
1849 e009 | | Load 0x0,0x9
184a 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6
184b e5fe | | Load 0x2,-0x2
184c 826f | o | Call 0x1,0x6f
184d c5f4 | | Store 0x2,-0xc
184e 840b | | Call 0x2,0xb
184f 4800 |H | Short_Literal 0x0
1850 e5f4 | | Load 0x2,-0xc
1851 e005 | | Load 0x0,0x5
1852 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1853 6828 |h( | Jump_Zero 0x187c
1854 e405 | | Load 0x2,0x5
1855 e5f7 | | Load 0x2,-0x9
1856 e5fb | | Load 0x2,-0x5
1857 e408 | | Load 0x2,0x8
1858 e407 | | Load 0x2,0x7
1859 e406 | | Load 0x2,0x6
185a e402 | | Load 0x2,0x2
185b e404 | | Load 0x2,0x4
185c e403 | | Load 0x2,0x3
185d e5f9 | | Load 0x2,-0x7
185e e409 | | Load 0x2,0x9
185f e024 | $ | Load 0x0,0x24
1860 180e | | Execute Package,Field_Execute,Field_Number 0xe
1861 701a |p | Jump_Nonzero 0x187c
1862 e5f5 | | Load 0x2,-0xb
1863 4801 |H | Short_Literal 0x1
1864 4801 |H | Short_Literal 0x1
1865 e004 | | Load 0x0,0x4
1866 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1867 035b | [ | Declare_Type Array,Constrained
1868 0337 | 7 | Declare_Variable Array
1869 e5fd | | Load 0x2,-0x3
186a e006 | | Load 0x0,0x6
186b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
186c e004 | | Load 0x0,0x4
186d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
186e 0119 | | Execute Any,Check_In_Formal_Type
186f 4801 |H | Short_Literal 0x1
1870 00da | | Load_Top At_Offset_2
1871 01d6 | | Execute Vector,Field_Write
1872 6039 |`9 | Indirect_Literal Discrete,0x18ac,{0x00000000, 0x000081c0}
1873 e005 | | Load 0x0,0x5
1874 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1875 e004 | | Load 0x0,0x4
1876 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1877 6034 |`4 | Indirect_Literal Discrete,0x18ac,{0x00000000, 0x000081c0}
1878 e005 | | Load 0x0,0x5
1879 1813 | | Execute Package,Field_Execute,Field_Number 0x13
187a a5f4 | | Store_Unchecked 0x2,-0xc
187b 450c |E | Exit_Suprogram New_Top_Offset 0xc
187c 450c |E | Exit_Suprogram New_Top_Offset 0xc
187d TRAP_17a0:
187d e009 | | Load 0x0,0x9
187e 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
187f 010f | | Execute Exception,Equal
1880 6824 |h$ | Jump_Zero 0x18a5
1881 4801 |H | Short_Literal 0x1
1882 4802 |H | Short_Literal 0x2
1883 e004 | | Load 0x0,0x4
1884 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1885 035b | [ | Declare_Type Array,Constrained
1886 0337 | 7 | Declare_Variable Array
1887 0092 1f98 | | Action Push_String_Extended,0x1f98 ; "Compile"
1889 e004 | | Load 0x0,0x4
188a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
188b e004 | | Load 0x0,0x4
188c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
188d 0119 | | Execute Any,Check_In_Formal_Type
188e 4801 |H | Short_Literal 0x1
188f 00da | | Load_Top At_Offset_2
1890 01d6 | | Execute Vector,Field_Write
1891 e5fe | | Load 0x2,-0x2
1892 e009 | | Load 0x0,0x9
1893 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1894 e006 | | Load 0x0,0x6
1895 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
1896 e004 | | Load 0x0,0x4
1897 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1898 0119 | | Execute Any,Check_In_Formal_Type
1899 4802 |H | Short_Literal 0x2
189a 00da | | Load_Top At_Offset_2
189b 01d6 | | Execute Vector,Field_Write
189c 600b |` | Indirect_Literal Discrete,0x18a8,{0x00000000, 0x0000818c}
189d e005 | | Load 0x0,0x5
189e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
189f a5f4 | | Store_Unchecked 0x2,-0xc
18a0 e5f5 | | Load 0x2,-0xb
18a1 e5f4 | | Load 0x2,-0xc
18a2 e005 | | Load 0x0,0x5
18a3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
18a4 450c |E | Exit_Suprogram New_Top_Offset 0xc
18a5 0100 | | Execute Exception,Raise
18a6 0000 0000 | | .XXX[0x2]
18a8 0000 0000 | | .LITERAL {0x00000000, 0x0000818c}
18ac 0000 0000 | | .LITERAL {0x00000000, 0x000081c0}
18b0 0000 0000 | | .LITERAL {0x00000000, 0x000081bf}
18b4 0000 0000 | | .BLANK 0000[0x4]
18b8 ; --------------------------------------------------------------------------------------
18b8 ; SUBPROGRAM
18b8 ; --------------------------------------------------------------------------------------
18b8 18cc | | .CONST 0x18cc ; Address of begin
18b9 18e6 | | .CONST 0x18e6 ; Address of exception handler
18ba 0006 | | .CONST 0x0006 ; Number of locals
18bb INIT_18b8:
18bb e020 | | Load 0x0,0x20
18bc 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
18bd 02c7 | | Declare_Variable Any
18be e5fe | | Load 0x2,-0x2
18bf e009 | | Load 0x0,0x9
18c0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
18c1 e01f | | Load 0x0,0x1f
18c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
18c3 a402 | | Store_Unchecked 0x2,0x2
18c4 029f 1e93 | | Declare_Subprogram INIT_1e90,For_Call
18c6 029f 1eab | | Declare_Subprogram INIT_1ea8,For_Call
18c8 029f 1efb | | Declare_Subprogram INIT_1ef8,For_Call
18ca 029f 1f13 | | Declare_Subprogram INIT_1f10,For_Call
18cc BODY_18b8:
18cc e5fe | | Load 0x2,-0x2
18cd e009 | | Load 0x0,0x9
18ce 1887 | | Execute Package,Field_Execute,Field_Number 0x87
18cf 01db | | Execute Vector,Length
18d0 7001 |p | Jump_Nonzero 0x18d2
18d1 450a |E | Exit_Suprogram New_Top_Offset 0xa
18d2 8405 | | Call 0x2,0x5
18d3 e5f6 | | Load 0x2,-0xa
18d4 e5f7 | | Load 0x2,-0x9
18d5 e5f8 | | Load 0x2,-0x8
18d6 e5fc | | Load 0x2,-0x4
18d7 e5fd | | Load 0x2,-0x3
18d8 00ea | | Load_Encached Null_String_Cache
18d9 4800 |H | Short_Literal 0x0
18da 8404 | | Call 0x2,0x4
18db 4801 |H | Short_Literal 0x1
18dc 8404 | | Call 0x2,0x4
18dd e5fa | | Load 0x2,-0x6
18de e5fe | | Load 0x2,-0x2
18df e009 | | Load 0x0,0x9
18e0 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
18e1 e5fe | | Load 0x2,-0x2
18e2 826f | o | Call 0x1,0x6f
18e3 c5f6 | | Store 0x2,-0xa
18e4 8406 | | Call 0x2,0x6
18e5 450a |E | Exit_Suprogram New_Top_Offset 0xa
18e6 TRAP_18b8:
18e6 e009 | | Load 0x0,0x9
18e7 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
18e8 010f | | Execute Exception,Equal
18e9 6824 |h$ | Jump_Zero 0x190e
18ea 4801 |H | Short_Literal 0x1
18eb 4802 |H | Short_Literal 0x2
18ec e004 | | Load 0x0,0x4
18ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
18ee 035b | [ | Declare_Type Array,Constrained
18ef 0337 | 7 | Declare_Variable Array
18f0 0092 1f94 | | Action Push_String_Extended,0x1f94 ; "Link"
18f2 e004 | | Load 0x0,0x4
18f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
18f4 e004 | | Load 0x0,0x4
18f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
18f6 0119 | | Execute Any,Check_In_Formal_Type
18f7 4801 |H | Short_Literal 0x1
18f8 00da | | Load_Top At_Offset_2
18f9 01d6 | | Execute Vector,Field_Write
18fa e5fe | | Load 0x2,-0x2
18fb e009 | | Load 0x0,0x9
18fc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
18fd e006 | | Load 0x0,0x6
18fe 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
18ff e004 | | Load 0x0,0x4
1900 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1901 0119 | | Execute Any,Check_In_Formal_Type
1902 4802 |H | Short_Literal 0x2
1903 00da | | Load_Top At_Offset_2
1904 01d6 | | Execute Vector,Field_Write
1905 67a2 |g | Indirect_Literal Discrete,0x18a8,{0x00000000, 0x0000818c}
1906 e005 | | Load 0x0,0x5
1907 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1908 a5f6 | | Store_Unchecked 0x2,-0xa
1909 e5f7 | | Load 0x2,-0x9
190a e5f6 | | Load 0x2,-0xa
190b e005 | | Load 0x0,0x5
190c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
190d 450a |E | Exit_Suprogram New_Top_Offset 0xa
190e 0100 | | Execute Exception,Raise
190f 0000 | | .XXX[0x1]
1910 ; --------------------------------------------------------------------------------------
1910 ; SUBPROGRAM
1910 ; --------------------------------------------------------------------------------------
1910 1918 | | .CONST 0x1918 ; Address of begin
1911 1924 | $ | .CONST 0x1924 ; Address of exception handler
1912 0002 | | .CONST 0x0002 ; Number of locals
1913 INIT_1910:
1913 e002 | | Load 0x0,0x2
1914 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1915 02c7 | | Declare_Variable Any
1916 00d8 | | Load_Top At_Offset_0
1917 1c00 | | Execute_Immediate Run_Utility,0x0
1918 BODY_1910:
1918 e5fe | | Load 0x2,-0x2
1919 4800 |H | Short_Literal 0x0
191a e5ff | | Load 0x2,-0x1
191b e006 | | Load 0x0,0x6
191c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
191d c402 | | Store 0x2,0x2
191e e5fe | | Load 0x2,-0x2
191f 4800 |H | Short_Literal 0x0
1920 00da | | Load_Top At_Offset_2
1921 e006 | | Load 0x0,0x6
1922 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
1923 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1924 TRAP_1910:
1924 0007 | | Action Break_Optional
1925 e002 | | Load 0x0,0x2
1926 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1927 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1928 ; --------------------------------------------------------------------------------------
1928 ; SUBPROGRAM
1928 ; --------------------------------------------------------------------------------------
1928 1939 | 9 | .CONST 0x1939 ; Address of begin
1929 0004 | | .CONST 0x0004 ; Address of exception handler
192a 0003 | | .CONST 0x0003 ; Number of locals
192b INIT_1928:
192b e5ff | | Load 0x2,-0x1
192c 0227 | ' | Execute Access,All_Reference
192d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
192e e402 | | Load 0x2,0x2
192f e001 | | Load 0x0,0x1
1930 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
1931 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1932 00d8 | | Load_Top At_Offset_0
1933 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1934 e003 | | Load 0x0,0x3
1935 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1936 1c08 | | Execute_Immediate Run_Utility,0x8
1937 00d8 | | Load_Top At_Offset_0
1938 1c00 | | Execute_Immediate Run_Utility,0x0
1939 BODY_1928:
1939 4800 |H | Short_Literal 0x0
193a 00da | | Load_Top At_Offset_2
193b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
193c e005 | | Load 0x0,0x5
193d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
193e 7007 |p | Jump_Nonzero 0x1946
193f 00d9 | | Load_Top At_Offset_1
1940 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1941 e404 | | Load 0x2,0x4
1942 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1943 e404 | | Load 0x2,0x4
1944 00cb | | Action Pop_Block_With_Result
1945 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1946 4800 |H | Short_Literal 0x0
1947 00d9 | | Load_Top At_Offset_1
1948 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1949 00cf | | Action Mark_Auxiliary
194a 00d9 | | Load_Top At_Offset_1
194b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
194c 4801 |H | Short_Literal 0x1
194d 0263 | c | Execute Discrete,Above_Bound
194e 7068 |ph | Jump_Nonzero 0x19b7
194f e404 | | Load 0x2,0x4
1950 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1951 e403 | | Load 0x2,0x3
1952 0120 | | Execute Any,Is_Value
1953 6803 |h | Jump_Zero 0x1957
1954 e002 | | Load 0x0,0x2
1955 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1956 7801 |x | Jump 0x1958
1957 e403 | | Load 0x2,0x3
1958 00da | | Load_Top At_Offset_2
1959 e602 | | Load 0x3,0x2
195a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
195b 01d7 | | Execute Vector,Field_Read
195c e001 | | Load 0x0,0x1
195d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
195e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
195f c403 | | Store 0x2,0x3
1960 e404 | | Load 0x2,0x4
1961 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1962 00d8 | | Load_Top At_Offset_0
1963 e602 | | Load 0x3,0x2
1964 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1965 01d7 | | Execute Vector,Field_Read
1966 e001 | | Load 0x0,0x1
1967 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1968 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1969 7046 |pF | Jump_Nonzero 0x19b0
196a e5fc | | Load 0x2,-0x4
196b 4801 |H | Short_Literal 0x1
196c 4802 |H | Short_Literal 0x2
196d e004 | | Load 0x0,0x4
196e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
196f 035b | [ | Declare_Type Array,Constrained
1970 0337 | 7 | Declare_Variable Array
1971 00da | | Load_Top At_Offset_2
1972 e602 | | Load 0x3,0x2
1973 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1974 01d7 | | Execute Vector,Field_Read
1975 e001 | | Load 0x0,0x1
1976 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1977 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1978 e004 | | Load 0x0,0x4
1979 1b0e | | Execute Package,Field_Read,Field_Number 0xe
197a 0119 | | Execute Any,Check_In_Formal_Type
197b 4801 |H | Short_Literal 0x1
197c 00da | | Load_Top At_Offset_2
197d 01d6 | | Execute Vector,Field_Write
197e e5ff | | Load 0x2,-0x1
197f 0227 | ' | Execute Access,All_Reference
1980 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1981 e001 | | Load 0x0,0x1
1982 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1983 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1984 e004 | | Load 0x0,0x4
1985 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1986 0119 | | Execute Any,Check_In_Formal_Type
1987 4802 |H | Short_Literal 0x2
1988 00da | | Load_Top At_Offset_2
1989 01d6 | | Execute Vector,Field_Write
198a 6035 |`5 | Indirect_Literal Discrete,0x19c0,{0x00000000, 0x0000815a}
198b e005 | | Load 0x0,0x5
198c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
198d 4801 |H | Short_Literal 0x1
198e 4802 |H | Short_Literal 0x2
198f e004 | | Load 0x0,0x4
1990 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1991 035b | [ | Declare_Type Array,Constrained
1992 0337 | 7 | Declare_Variable Array
1993 e5ff | | Load 0x2,-0x1
1994 0227 | ' | Execute Access,All_Reference
1995 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1996 e001 | | Load 0x0,0x1
1997 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1998 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1999 e004 | | Load 0x0,0x4
199a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
199b 0119 | | Execute Any,Check_In_Formal_Type
199c 4801 |H | Short_Literal 0x1
199d 00da | | Load_Top At_Offset_2
199e 01d6 | | Execute Vector,Field_Write
199f e5fe | | Load 0x2,-0x2
19a0 e006 | | Load 0x0,0x6
19a1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
19a2 e004 | | Load 0x0,0x4
19a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
19a4 0119 | | Execute Any,Check_In_Formal_Type
19a5 4802 |H | Short_Literal 0x2
19a6 00da | | Load_Top At_Offset_2
19a7 01d6 | | Execute Vector,Field_Write
19a8 6013 |` | Indirect_Literal Discrete,0x19bc,{0x00000000, 0x0000810c}
19a9 e005 | | Load 0x0,0x5
19aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
19ab e404 | | Load 0x2,0x4
19ac 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
19ad e404 | | Load 0x2,0x4
19ae 00cb | | Action Pop_Block_With_Result
19af 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
19b0 e403 | | Load 0x2,0x3
19b1 00d9 | | Load_Top At_Offset_1
19b2 e603 | | Load 0x3,0x3
19b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
19b4 01d6 | | Execute Vector,Field_Write
19b5 00c8 | | Action Pop_Auxiliary_Range
19b6 3f98 |? | Loop_Increasing 0x194f
19b7 00ce | | Action Pop_Auxiliary
19b8 00d8 | | Load_Top At_Offset_0
19b9 00cb | | Action Pop_Block_With_Result
19ba 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
19bb 0000 | | .XXX[0x1]
19bc 0000 0000 | | .LITERAL {0x00000000, 0x0000810c}
19c0 0000 0000 | | .LITERAL {0x00000000, 0x0000815a}
19c4 0000 0000 | | .BLANK 0000[0x4]
19c8 ; --------------------------------------------------------------------------------------
19c8 ; SUBPROGRAM
19c8 ; --------------------------------------------------------------------------------------
19c8 19ed | | .CONST 0x19ed ; Address of begin
19c9 0004 | | .CONST 0x0004 ; Address of exception handler
19ca 0003 | | .CONST 0x0003 ; Number of locals
19cb INIT_19c8:
19cb e001 | | Load 0x0,0x1
19cc 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
19cd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
19ce 0337 | 7 | Declare_Variable Array
19cf 4800 |H | Short_Literal 0x0
19d0 4804 |H | Short_Literal 0x4
19d1 00da | | Load_Top At_Offset_2
19d2 01d6 | | Execute Vector,Field_Write
19d3 4803 |H | Short_Literal 0x3
19d4 4800 |H | Short_Literal 0x0
19d5 4801 |H | Short_Literal 0x1
19d6 00d9 | | Load_Top At_Offset_1
19d7 e602 | | Load 0x3,0x2
19d8 01d6 | | Execute Vector,Field_Write
19d9 3ffb |? | Loop_Increasing 0x19d5
19da 4801 |H | Short_Literal 0x1
19db 4805 |H | Short_Literal 0x5
19dc 00da | | Load_Top At_Offset_2
19dd 01d6 | | Execute Vector,Field_Write
19de e001 | | Load 0x0,0x1
19df 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
19e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
19e1 01c3 | | Execute Vector,Check_In_Type
19e2 e402 | | Load 0x2,0x2
19e3 e001 | | Load 0x0,0x1
19e4 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
19e5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
19e6 00d8 | | Load_Top At_Offset_0
19e7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
19e8 e003 | | Load 0x0,0x3
19e9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
19ea 1c08 | | Execute_Immediate Run_Utility,0x8
19eb 00d8 | | Load_Top At_Offset_0
19ec 1c00 | | Execute_Immediate Run_Utility,0x0
19ed BODY_19c8:
19ed 4800 |H | Short_Literal 0x0
19ee 00da | | Load_Top At_Offset_2
19ef 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
19f0 e005 | | Load 0x0,0x5
19f1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
19f2 7007 |p | Jump_Nonzero 0x19fa
19f3 00d9 | | Load_Top At_Offset_1
19f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
19f5 e404 | | Load 0x2,0x4
19f6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
19f7 e404 | | Load 0x2,0x4
19f8 00cb | | Action Pop_Block_With_Result
19f9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
19fa 4800 |H | Short_Literal 0x0
19fb 00d9 | | Load_Top At_Offset_1
19fc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
19fd 00cf | | Action Mark_Auxiliary
19fe 00d9 | | Load_Top At_Offset_1
19ff 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1a00 4801 |H | Short_Literal 0x1
1a01 0263 | c | Execute Discrete,Above_Bound
1a02 7039 |p9 | Jump_Nonzero 0x1a3c
1a03 00d8 | | Load_Top At_Offset_0
1a04 e602 | | Load 0x3,0x2
1a05 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1a06 01d7 | | Execute Vector,Field_Read
1a07 e001 | | Load 0x0,0x1
1a08 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
1a09 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1a0a c403 | | Store 0x2,0x3
1a0b e403 | | Load 0x2,0x3
1a0c e002 | | Load 0x0,0x2
1a0d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1a0e 6826 |h& | Jump_Zero 0x1a35
1a0f e5fc | | Load 0x2,-0x4
1a10 4801 |H | Short_Literal 0x1
1a11 4802 |H | Short_Literal 0x2
1a12 e004 | | Load 0x0,0x4
1a13 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a14 035b | [ | Declare_Type Array,Constrained
1a15 0337 | 7 | Declare_Variable Array
1a16 e403 | | Load 0x2,0x3
1a17 e006 | | Load 0x0,0x6
1a18 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1a19 e004 | | Load 0x0,0x4
1a1a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1a1b 0119 | | Execute Any,Check_In_Formal_Type
1a1c 4801 |H | Short_Literal 0x1
1a1d 00da | | Load_Top At_Offset_2
1a1e 01d6 | | Execute Vector,Field_Write
1a1f e5ff | | Load 0x2,-0x1
1a20 0227 | ' | Execute Access,All_Reference
1a21 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1a22 e001 | | Load 0x0,0x1
1a23 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1a24 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1a25 e004 | | Load 0x0,0x4
1a26 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1a27 0119 | | Execute Any,Check_In_Formal_Type
1a28 4802 |H | Short_Literal 0x2
1a29 00da | | Load_Top At_Offset_2
1a2a 01d6 | | Execute Vector,Field_Write
1a2b 6794 |g | Indirect_Literal Discrete,0x19c0,{0x00000000, 0x0000815a}
1a2c e005 | | Load 0x0,0x5
1a2d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1a2e e002 | | Load 0x0,0x2
1a2f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1a30 00d9 | | Load_Top At_Offset_1
1a31 e603 | | Load 0x3,0x3
1a32 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1a33 01d6 | | Execute Vector,Field_Write
1a34 7805 |x | Jump 0x1a3a
1a35 e403 | | Load 0x2,0x3
1a36 00d9 | | Load_Top At_Offset_1
1a37 e603 | | Load 0x3,0x3
1a38 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1a39 01d6 | | Execute Vector,Field_Write
1a3a 00c8 | | Action Pop_Auxiliary_Range
1a3b 3fc7 |? | Loop_Increasing 0x1a03
1a3c 00ce | | Action Pop_Auxiliary
1a3d 00d8 | | Load_Top At_Offset_0
1a3e 00cb | | Action Pop_Block_With_Result
1a3f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1a40 ; --------------------------------------------------------------------------------------
1a40 ; SUBPROGRAM
1a40 ; --------------------------------------------------------------------------------------
1a40 1a43 | C | .CONST 0x1a43 ; Address of begin
1a41 0004 | | .CONST 0x0004 ; Address of exception handler
1a42 0001 | | .CONST 0x0001 ; Number of locals
1a43 BODY_1a40:
1a43 INIT_1a40:
1a43 e5fd | | Load 0x2,-0x3
1a44 01db | | Execute Vector,Length
1a45 7012 |p | Jump_Nonzero 0x1a58
1a46 4801 |H | Short_Literal 0x1
1a47 0092 1fd2 | | Action Push_String_Extended,0x1fd2 ; "Rs6000_Aix_Ibm"
1a49 e5fb | | Load 0x2,-0x5
1a4a e009 | | Load 0x0,0x9
1a4b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1a4c e021 | ! | Load 0x0,0x21
1a4d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1a4e e00b | | Load 0x0,0xb
1a4f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1a50 6805 |h | Jump_Zero 0x1a56
1a51 e40f | | Load 0x2,0xf
1a52 0092 1fd3 | | Action Push_String_Extended,0x1fd3 ; ".exe"
1a54 01cc | | Execute Vector,Catenate
1a55 00ca | | Action Exit_Nullary_Function
1a56 00ea | | Load_Encached Null_String_Cache
1a57 00ca | | Action Exit_Nullary_Function
1a58 e5fd | | Load 0x2,-0x3
1a59 0335 | 5 | Declare_Variable Array,Duplicate
1a5a 00cd | | Action Spare6_Action
1a5b 00ca | | Action Exit_Nullary_Function
1a5c 0000 0000 | | .BLANK 0000[0x4]
1a60 ; --------------------------------------------------------------------------------------
1a60 ; SUBPROGRAM
1a60 ; --------------------------------------------------------------------------------------
1a60 1a75 | u | .CONST 0x1a75 ; Address of begin
1a61 0004 | | .CONST 0x0004 ; Address of exception handler
1a62 0004 | | .CONST 0x0004 ; Number of locals
1a63 INIT_1a60:
1a63 e005 | | Load 0x0,0x5
1a64 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1a65 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1a66 e001 | | Load 0x0,0x1
1a67 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1a68 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1a69 02c7 | | Declare_Variable Any
1a6a 00d8 | | Load_Top At_Offset_0
1a6b 1c00 | | Execute_Immediate Run_Utility,0x0
1a6c e002 | | Load 0x0,0x2
1a6d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a6e 02c7 | | Declare_Variable Any
1a6f e5fa | | Load 0x2,-0x6
1a70 4800 |H | Short_Literal 0x0
1a71 e5fe | | Load 0x2,-0x2
1a72 e006 | | Load 0x0,0x6
1a73 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1a74 a604 | | Store_Unchecked 0x3,0x4
1a75 BODY_1a60:
1a75 e40d | | Load 0x2,0xd
1a76 7012 |p | Jump_Nonzero 0x1a89
1a77 e407 | | Load 0x2,0x7
1a78 e008 | | Load 0x0,0x8
1a79 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1a7a e5fa | | Load 0x2,-0x6
1a7b e40e | | Load 0x2,0xe
1a7c e5fb | | Load 0x2,-0x5
1a7d e412 | | Load 0x2,0x12
1a7e 826e | n | Call 0x1,0x6e
1a7f c40a | | Store 0x2,0xa
1a80 c407 | | Store 0x2,0x7
1a81 4800 |H | Short_Literal 0x0
1a82 e407 | | Load 0x2,0x7
1a83 e005 | | Load 0x0,0x5
1a84 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1a85 7003 |p | Jump_Nonzero 0x1a89
1a86 e00a | | Load 0x0,0xa
1a87 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1a88 0257 | W | Execute Discrete,Raise
1a89 e407 | | Load 0x2,0x7
1a8a e5fa | | Load 0x2,-0x6
1a8b e40d | | Load 0x2,0xd
1a8c e411 | | Load 0x2,0x11
1a8d e410 | | Load 0x2,0x10
1a8e e40c | | Load 0x2,0xc
1a8f e40a | | Load 0x2,0xa
1a90 e5fb | | Load 0x2,-0x5
1a91 8270 | p | Call 0x1,0x70
1a92 c407 | | Store 0x2,0x7
1a93 4800 |H | Short_Literal 0x0
1a94 e407 | | Load 0x2,0x7
1a95 e005 | | Load 0x0,0x5
1a96 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1a97 7003 |p | Jump_Nonzero 0x1a9b
1a98 e00a | | Load 0x0,0xa
1a99 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1a9a 0257 | W | Execute Discrete,Raise
1a9b e407 | | Load 0x2,0x7
1a9c e5fa | | Load 0x2,-0x6
1a9d e40d | | Load 0x2,0xd
1a9e e411 | | Load 0x2,0x11
1a9f e410 | | Load 0x2,0x10
1aa0 e40c | | Load 0x2,0xc
1aa1 e40a | | Load 0x2,0xa
1aa2 e5fb | | Load 0x2,-0x5
1aa3 8271 | q | Call 0x1,0x71
1aa4 c407 | | Store 0x2,0x7
1aa5 4800 |H | Short_Literal 0x0
1aa6 e407 | | Load 0x2,0x7
1aa7 e005 | | Load 0x0,0x5
1aa8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1aa9 7003 |p | Jump_Nonzero 0x1aad
1aaa e00a | | Load 0x0,0xa
1aab 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1aac 0257 | W | Execute Discrete,Raise
1aad e407 | | Load 0x2,0x7
1aae e5fa | | Load 0x2,-0x6
1aaf e40d | | Load 0x2,0xd
1ab0 8413 | | Call 0x2,0x13
1ab1 e40f | | Load 0x2,0xf
1ab2 e5fe | | Load 0x2,-0x2
1ab3 e40c | | Load 0x2,0xc
1ab4 e40a | | Load 0x2,0xa
1ab5 e5fb | | Load 0x2,-0x5
1ab6 e5ff | | Load 0x2,-0x1
1ab7 8273 | s | Call 0x1,0x73
1ab8 c407 | | Store 0x2,0x7
1ab9 4800 |H | Short_Literal 0x0
1aba e407 | | Load 0x2,0x7
1abb e005 | | Load 0x0,0x5
1abc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1abd 7003 |p | Jump_Nonzero 0x1ac1
1abe e00a | | Load 0x0,0xa
1abf 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1ac0 0257 | W | Execute Discrete,Raise
1ac1 e407 | | Load 0x2,0x7
1ac2 e40a | | Load 0x2,0xa
1ac3 e5fa | | Load 0x2,-0x6
1ac4 e40c | | Load 0x2,0xc
1ac5 e5ff | | Load 0x2,-0x1
1ac6 8413 | | Call 0x2,0x13
1ac7 e411 | | Load 0x2,0x11
1ac8 e412 | | Load 0x2,0x12
1ac9 e410 | | Load 0x2,0x10
1aca e5fb | | Load 0x2,-0x5
1acb e009 | | Load 0x0,0x9
1acc 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1acd e402 | | Load 0x2,0x2
1ace e001 | | Load 0x0,0x1
1acf 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1ad0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1ad1 e5fb | | Load 0x2,-0x5
1ad2 e009 | | Load 0x0,0x9
1ad3 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
1ad4 e5fe | | Load 0x2,-0x2
1ad5 0092 1f94 | | Action Push_String_Extended,0x1f94 ; "Link"
1ad7 e009 | | Load 0x0,0x9
1ad8 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
1ad9 4800 |H | Short_Literal 0x0
1ada e407 | | Load 0x2,0x7
1adb e005 | | Load 0x0,0x5
1adc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1add e009 | | Load 0x0,0x9
1ade 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
1adf e5fb | | Load 0x2,-0x5
1ae0 e009 | | Load 0x0,0x9
1ae1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1ae2 e010 | | Load 0x0,0x10
1ae3 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
1ae4 c40a | | Store 0x2,0xa
1ae5 c407 | | Store 0x2,0x7
1ae6 e40d | | Load 0x2,0xd
1ae7 6801 |h | Jump_Zero 0x1ae9
1ae8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1ae9 e005 | | Load 0x0,0x5
1aea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1aeb e40e | | Load 0x2,0xe
1aec e40a | | Load 0x2,0xa
1aed e008 | | Load 0x0,0x8
1aee 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
1aef c407 | | Store 0x2,0x7
1af0 4800 |H | Short_Literal 0x0
1af1 e407 | | Load 0x2,0x7
1af2 e005 | | Load 0x0,0x5
1af3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1af4 7005 |p | Jump_Nonzero 0x1afa
1af5 e407 | | Load 0x2,0x7
1af6 a5f9 | | Store_Unchecked 0x2,-0x7
1af7 e00a | | Load 0x0,0xa
1af8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1af9 0257 | W | Execute Discrete,Raise
1afa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1afb 0000 0000 | | .BLANK 0000[0x5]
1b00 ; --------------------------------------------------------------------------------------
1b00 ; SUBPROGRAM
1b00 ; --------------------------------------------------------------------------------------
1b00 1b0d | | .CONST 0x1b0d ; Address of begin
1b01 0004 | | .CONST 0x0004 ; Address of exception handler
1b02 0003 | | .CONST 0x0003 ; Number of locals
1b03 INIT_1b00:
1b03 4801 |H | Short_Literal 0x1
1b04 e5ff | | Load 0x2,-0x1
1b05 0227 | ' | Execute Access,All_Reference
1b06 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1b07 e402 | | Load 0x2,0x2
1b08 e001 | | Load 0x0,0x1
1b09 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
1b0a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
1b0b e002 | | Load 0x0,0x2
1b0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1b0d BODY_1b00:
1b0d 4800 |H | Short_Literal 0x0
1b0e 00da | | Load_Top At_Offset_2
1b0f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1b10 e005 | | Load 0x0,0x5
1b11 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1b12 7006 |p | Jump_Nonzero 0x1b19
1b13 00d9 | | Load_Top At_Offset_1
1b14 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1b15 a5f9 | | Store_Unchecked 0x2,-0x7
1b16 e00a | | Load 0x0,0xa
1b17 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1b18 0257 | W | Execute Discrete,Raise
1b19 00cf | | Action Mark_Auxiliary
1b1a 00da | | Load_Top At_Offset_2
1b1b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b1c 01dc | | Execute Vector,Last
1b1d 4801 |H | Short_Literal 0x1
1b1e 0263 | c | Execute Discrete,Above_Bound
1b1f 70f9 |p | Jump_Nonzero 0x1c19
1b20 e407 | | Load 0x2,0x7
1b21 e404 | | Load 0x2,0x4
1b22 0120 | | Execute Any,Is_Value
1b23 6803 |h | Jump_Zero 0x1b27
1b24 e002 | | Load 0x0,0x2
1b25 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1b26 7801 |x | Jump 0x1b28
1b27 e404 | | Load 0x2,0x4
1b28 00da | | Load_Top At_Offset_2
1b29 e602 | | Load 0x3,0x2
1b2a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b2b 01d7 | | Execute Vector,Field_Read
1b2c e001 | | Load 0x0,0x1
1b2d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1b2e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1b2f c404 | | Store 0x2,0x4
1b30 c407 | | Store 0x2,0x7
1b31 4800 |H | Short_Literal 0x0
1b32 e407 | | Load 0x2,0x7
1b33 e005 | | Load 0x0,0x5
1b34 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1b35 7005 |p | Jump_Nonzero 0x1b3b
1b36 e407 | | Load 0x2,0x7
1b37 a5f9 | | Store_Unchecked 0x2,-0x7
1b38 e00a | | Load 0x0,0xa
1b39 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1b3a 0257 | W | Execute Discrete,Raise
1b3b 00d8 | | Load_Top At_Offset_0
1b3c e602 | | Load 0x3,0x2
1b3d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b3e 01d7 | | Execute Vector,Field_Read
1b3f e001 | | Load 0x0,0x1
1b40 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1b41 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1b42 7041 |pA | Jump_Nonzero 0x1b84
1b43 e5fa | | Load 0x2,-0x6
1b44 4801 |H | Short_Literal 0x1
1b45 4802 |H | Short_Literal 0x2
1b46 e004 | | Load 0x0,0x4
1b47 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1b48 035b | [ | Declare_Type Array,Constrained
1b49 0337 | 7 | Declare_Variable Array
1b4a 00da | | Load_Top At_Offset_2
1b4b e602 | | Load 0x3,0x2
1b4c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b4d 01d7 | | Execute Vector,Field_Read
1b4e e001 | | Load 0x0,0x1
1b4f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1b50 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1b51 e004 | | Load 0x0,0x4
1b52 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b53 0119 | | Execute Any,Check_In_Formal_Type
1b54 4801 |H | Short_Literal 0x1
1b55 00da | | Load_Top At_Offset_2
1b56 01d6 | | Execute Vector,Field_Write
1b57 e5ff | | Load 0x2,-0x1
1b58 0227 | ' | Execute Access,All_Reference
1b59 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1b5a e001 | | Load 0x0,0x1
1b5b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1b5c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1b5d e004 | | Load 0x0,0x4
1b5e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b5f 0119 | | Execute Any,Check_In_Formal_Type
1b60 4802 |H | Short_Literal 0x2
1b61 00da | | Load_Top At_Offset_2
1b62 01d6 | | Execute Vector,Field_Write
1b63 60d0 |` | Indirect_Literal Discrete,0x1c34,{0x00000000, 0x0000815a}
1b64 e005 | | Load 0x0,0x5
1b65 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1b66 4801 |H | Short_Literal 0x1
1b67 4802 |H | Short_Literal 0x2
1b68 e004 | | Load 0x0,0x4
1b69 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1b6a 035b | [ | Declare_Type Array,Constrained
1b6b 0337 | 7 | Declare_Variable Array
1b6c e004 | | Load 0x0,0x4
1b6d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
1b6e e004 | | Load 0x0,0x4
1b6f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b70 0119 | | Execute Any,Check_In_Formal_Type
1b71 4801 |H | Short_Literal 0x1
1b72 00da | | Load_Top At_Offset_2
1b73 01d6 | | Execute Vector,Field_Write
1b74 e5fe | | Load 0x2,-0x2
1b75 e006 | | Load 0x0,0x6
1b76 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1b77 e004 | | Load 0x0,0x4
1b78 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b79 0119 | | Execute Any,Check_In_Formal_Type
1b7a 4802 |H | Short_Literal 0x2
1b7b 00da | | Load_Top At_Offset_2
1b7c 01d6 | | Execute Vector,Field_Write
1b7d 60b2 |` | Indirect_Literal Discrete,0x1c30,{0x00000000, 0x00008126}
1b7e e005 | | Load 0x0,0x5
1b7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1b80 a5f9 | | Store_Unchecked 0x2,-0x7
1b81 e00a | | Load 0x0,0xa
1b82 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1b83 0257 | W | Execute Discrete,Raise
1b84 e002 | | Load 0x0,0x2
1b85 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1b86 e405 | | Load 0x2,0x5
1b87 60a4 |` | Indirect_Literal Discrete,0x1c2c,{0x00000000, 0x00004000}
1b88 e00e | | Load 0x0,0xe
1b89 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b8a 4800 |H | Short_Literal 0x0
1b8b e404 | | Load 0x2,0x4
1b8c e002 | | Load 0x0,0x2
1b8d 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
1b8e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1b8f 00d1 | | Pop_Control Pop_Count_1
1b90 c603 | | Store 0x3,0x3
1b91 00db | | Load_Top At_Offset_3
1b92 682f |h/ | Jump_Zero 0x1bc2
1b93 e5fa | | Load 0x2,-0x6
1b94 4801 |H | Short_Literal 0x1
1b95 4803 |H | Short_Literal 0x3
1b96 e004 | | Load 0x0,0x4
1b97 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1b98 035b | [ | Declare_Type Array,Constrained
1b99 0337 | 7 | Declare_Variable Array
1b9a 00da | | Load_Top At_Offset_2
1b9b e602 | | Load 0x3,0x2
1b9c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b9d 01d7 | | Execute Vector,Field_Read
1b9e e001 | | Load 0x0,0x1
1b9f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1ba0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1ba1 e004 | | Load 0x0,0x4
1ba2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1ba3 e004 | | Load 0x0,0x4
1ba4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1ba5 0119 | | Execute Any,Check_In_Formal_Type
1ba6 4801 |H | Short_Literal 0x1
1ba7 00da | | Load_Top At_Offset_2
1ba8 01d6 | | Execute Vector,Field_Write
1ba9 e5ff | | Load 0x2,-0x1
1baa 0227 | ' | Execute Access,All_Reference
1bab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1bac e001 | | Load 0x0,0x1
1bad 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1bae 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1baf e004 | | Load 0x0,0x4
1bb0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1bb1 0119 | | Execute Any,Check_In_Formal_Type
1bb2 4802 |H | Short_Literal 0x2
1bb3 00da | | Load_Top At_Offset_2
1bb4 01d6 | | Execute Vector,Field_Write
1bb5 e603 | | Load 0x3,0x3
1bb6 e004 | | Load 0x0,0x4
1bb7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1bb8 e004 | | Load 0x0,0x4
1bb9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1bba 0119 | | Execute Any,Check_In_Formal_Type
1bbb 4803 |H | Short_Literal 0x3
1bbc 00da | | Load_Top At_Offset_2
1bbd 01d6 | | Execute Vector,Field_Write
1bbe 6069 |`i | Indirect_Literal Discrete,0x1c28,{0x00000000, 0x00008158}
1bbf e005 | | Load 0x0,0x5
1bc0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1bc1 7855 |xU | Jump 0x1c17
1bc2 e002 | | Load 0x0,0x2
1bc3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1bc4 e002 | | Load 0x0,0x2
1bc5 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
1bc6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1bc7 6064 |`d | Indirect_Literal Discrete,0x1c2c,{0x00000000, 0x00004000}
1bc8 e00e | | Load 0x0,0xe
1bc9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1bca e405 | | Load 0x2,0x5
1bcb e002 | | Load 0x0,0x2
1bcc 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
1bcd 180e | | Execute Package,Field_Execute,Field_Number 0xe
1bce c403 | | Store 0x2,0x3
1bcf c603 | | Store 0x3,0x3
1bd0 00db | | Load_Top At_Offset_3
1bd1 6823 |h# | Jump_Zero 0x1bf5
1bd2 e5fa | | Load 0x2,-0x6
1bd3 4801 |H | Short_Literal 0x1
1bd4 4802 |H | Short_Literal 0x2
1bd5 e004 | | Load 0x0,0x4
1bd6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1bd7 035b | [ | Declare_Type Array,Constrained
1bd8 0337 | 7 | Declare_Variable Array
1bd9 00da | | Load_Top At_Offset_2
1bda e602 | | Load 0x3,0x2
1bdb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1bdc 01d7 | | Execute Vector,Field_Read
1bdd e001 | | Load 0x0,0x1
1bde 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1bdf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1be0 e004 | | Load 0x0,0x4
1be1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1be2 e004 | | Load 0x0,0x4
1be3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1be4 0119 | | Execute Any,Check_In_Formal_Type
1be5 4801 |H | Short_Literal 0x1
1be6 00da | | Load_Top At_Offset_2
1be7 01d6 | | Execute Vector,Field_Write
1be8 e603 | | Load 0x3,0x3
1be9 e004 | | Load 0x0,0x4
1bea 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1beb e004 | | Load 0x0,0x4
1bec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1bed 0119 | | Execute Any,Check_In_Formal_Type
1bee 4802 |H | Short_Literal 0x2
1bef 00da | | Load_Top At_Offset_2
1bf0 01d6 | | Execute Vector,Field_Write
1bf1 6032 |`2 | Indirect_Literal Discrete,0x1c24,{0x00000000, 0x00008157}
1bf2 e005 | | Load 0x0,0x5
1bf3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1bf4 7822 |x" | Jump 0x1c17
1bf5 e403 | | Load 0x2,0x3
1bf6 0e04 | | Execute_Immediate Not_Equal,0x4
1bf7 681f |h | Jump_Zero 0x1c17
1bf8 e406 | | Load 0x2,0x6
1bf9 0a01 | | Execute_Immediate Plus,0x1
1bfa c406 | | Store 0x2,0x6
1bfb e5fa | | Load 0x2,-0x6
1bfc 4801 |H | Short_Literal 0x1
1bfd 4802 |H | Short_Literal 0x2
1bfe e004 | | Load 0x0,0x4
1bff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1c00 035b | [ | Declare_Type Array,Constrained
1c01 0337 | 7 | Declare_Variable Array
1c02 e404 | | Load 0x2,0x4
1c03 e006 | | Load 0x0,0x6
1c04 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1c05 e004 | | Load 0x0,0x4
1c06 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c07 0119 | | Execute Any,Check_In_Formal_Type
1c08 4801 |H | Short_Literal 0x1
1c09 00da | | Load_Top At_Offset_2
1c0a 01d6 | | Execute Vector,Field_Write
1c0b e5fe | | Load 0x2,-0x2
1c0c e006 | | Load 0x0,0x6
1c0d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1c0e e004 | | Load 0x0,0x4
1c0f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c10 0119 | | Execute Any,Check_In_Formal_Type
1c11 4802 |H | Short_Literal 0x2
1c12 00da | | Load_Top At_Offset_2
1c13 01d6 | | Execute Vector,Field_Write
1c14 600b |` | Indirect_Literal Discrete,0x1c20,{0x00000000, 0x00008127}
1c15 e005 | | Load 0x0,0x5
1c16 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1c17 00c8 | | Action Pop_Auxiliary_Range
1c18 3f07 |? | Loop_Increasing 0x1b20
1c19 00ce | | Action Pop_Auxiliary
1c1a e406 | | Load 0x2,0x6
1c1b 0f00 | | Execute_Immediate Equal,0x0
1c1c 00ca | | Action Exit_Nullary_Function
1c1d 0000 0000 | | .XXX[0x3]
1c1f 0000 | |
1c20 0000 0000 | | .LITERAL {0x00000000, 0x00008127}
1c24 0000 0000 | | .LITERAL {0x00000000, 0x00008157}
1c28 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
1c2c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1c30 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
1c34 0000 0000 | | .LITERAL {0x00000000, 0x0000815a}
1c38 ; --------------------------------------------------------------------------------------
1c38 ; SUBPROGRAM
1c38 ; --------------------------------------------------------------------------------------
1c38 1c4d | M | .CONST 0x1c4d ; Address of begin
1c39 0004 | | .CONST 0x0004 ; Address of exception handler
1c3a 0006 | | .CONST 0x0006 ; Number of locals
1c3b INIT_1c38:
1c3b e402 | | Load 0x2,0x2
1c3c e001 | | Load 0x0,0x1
1c3d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1c3e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
1c3f e001 | | Load 0x0,0x1
1c40 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1c41 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1c42 e402 | | Load 0x2,0x2
1c43 e001 | | Load 0x0,0x1
1c44 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1c45 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1c46 e011 | | Load 0x0,0x11
1c47 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1c48 e005 | | Load 0x0,0x5
1c49 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1c4a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1c4b 029f 1f2b | +| Declare_Subprogram INIT_1f28,For_Call
1c4d BODY_1c38:
1c4d e5fa | | Load 0x2,-0x6
1c4e 4801 |H | Short_Literal 0x1
1c4f 4801 |H | Short_Literal 0x1
1c50 e004 | | Load 0x0,0x4
1c51 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1c52 035b | [ | Declare_Type Array,Constrained
1c53 0337 | 7 | Declare_Variable Array
1c54 e603 | | Load 0x3,0x3
1c55 e004 | | Load 0x0,0x4
1c56 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1c57 e004 | | Load 0x0,0x4
1c58 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c59 0119 | | Execute Any,Check_In_Formal_Type
1c5a 4801 |H | Short_Literal 0x1
1c5b 00da | | Load_Top At_Offset_2
1c5c 01d6 | | Execute Vector,Field_Write
1c5d 6066 |`f | Indirect_Literal Discrete,0x1cc4,{0x00000000, 0x0000816b}
1c5e e005 | | Load 0x0,0x5
1c5f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1c60 e5ff | | Load 0x2,-0x1
1c61 0229 | ) | Execute Access,All_Read
1c62 00d8 | | Load_Top At_Offset_0
1c63 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1c64 e001 | | Load 0x0,0x1
1c65 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1c66 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1c67 00d9 | | Load_Top At_Offset_1
1c68 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1c69 00d1 | | Pop_Control Pop_Count_1
1c6a e011 | | Load 0x0,0x11
1c6b 180e | | Execute Package,Field_Execute,Field_Number 0xe
1c6c e011 | | Load 0x0,0x11
1c6d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1c6e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
1c6f 4803 |H | Short_Literal 0x3
1c70 e011 | | Load 0x0,0x11
1c71 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1c72 8606 | | Call 0x3,0x6
1c73 4800 |H | Short_Literal 0x0
1c74 00da | | Load_Top At_Offset_2
1c75 e005 | | Load 0x0,0x5
1c76 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1c77 7005 |p | Jump_Nonzero 0x1c7d
1c78 e5fa | | Load 0x2,-0x6
1c79 00da | | Load_Top At_Offset_2
1c7a e005 | | Load 0x0,0x5
1c7b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1c7c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1c7d 00da | | Load_Top At_Offset_2
1c7e e011 | | Load 0x0,0x11
1c7f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1c80 e5fa | | Load 0x2,-0x6
1c81 0092 1fd4 | | Action Push_String_Extended,0x1fd4 ; "Target_Builder.Unit.Link (in Make_Closure)"
1c83 e007 | | Load 0x0,0x7
1c84 180e | | Execute Package,Field_Execute,Field_Number 0xe
1c85 e5ff | | Load 0x2,-0x1
1c86 0229 | ) | Execute Access,All_Read
1c87 e7ff | | Load 0x3,-0x1
1c88 00d9 | | Load_Top At_Offset_1
1c89 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1c8a 0120 | | Execute Any,Is_Value
1c8b 6804 |h | Jump_Zero 0x1c90
1c8c e001 | | Load 0x0,0x1
1c8d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1c8e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1c8f 7802 |x | Jump 0x1c92
1c90 00d9 | | Load_Top At_Offset_1
1c91 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1c92 4801 |H | Short_Literal 0x1
1c93 e5fb | | Load 0x2,-0x5
1c94 e009 | | Load 0x0,0x9
1c95 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1c96 4801 |H | Short_Literal 0x1
1c97 e602 | | Load 0x3,0x2
1c98 e001 | | Load 0x0,0x1
1c99 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1c9a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1c9b 00da | | Load_Top At_Offset_2
1c9c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1c9d c7ff | | Store 0x3,-0x1
1c9e 00d1 | | Pop_Control Pop_Count_1
1c9f 4800 |H | Short_Literal 0x0
1ca0 e7ff | | Load 0x3,-0x1
1ca1 e005 | | Load 0x0,0x5
1ca2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1ca3 7001 |p | Jump_Nonzero 0x1ca5
1ca4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1ca5 4800 |H | Short_Literal 0x0
1ca6 4800 |H | Short_Literal 0x0
1ca7 e603 | | Load 0x3,0x3
1ca8 4801 |H | Short_Literal 0x1
1ca9 e5ff | | Load 0x2,-0x1
1caa 0227 | ' | Execute Access,All_Reference
1cab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1cac e001 | | Load 0x0,0x1
1cad 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1cae 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1caf e5ff | | Load 0x2,-0x1
1cb0 0227 | ' | Execute Access,All_Reference
1cb1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1cb2 e001 | | Load 0x0,0x1
1cb3 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1cb4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
1cb5 e5ff | | Load 0x2,-0x1
1cb6 0227 | ' | Execute Access,All_Reference
1cb7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1cb8 e5fe | | Load 0x2,-0x2
1cb9 e002 | | Load 0x0,0x2
1cba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1cbb 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1cbc e001 | | Load 0x0,0x1
1cbd 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1cbe 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1cbf c402 | | Store 0x2,0x2
1cc0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1cc1 0000 0000 | | .XXX[0x3]
1cc3 0000 | |
1cc4 0000 0000 | | .LITERAL {0x00000000, 0x0000816b}
1cc8 ; --------------------------------------------------------------------------------------
1cc8 ; SUBPROGRAM
1cc8 ; --------------------------------------------------------------------------------------
1cc8 1cd9 | | .CONST 0x1cd9 ; Address of begin
1cc9 0004 | | .CONST 0x0004 ; Address of exception handler
1cca 0003 | | .CONST 0x0003 ; Number of locals
1ccb INIT_1cc8:
1ccb e002 | | Load 0x0,0x2
1ccc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1ccd 02c7 | | Declare_Variable Any
1cce 00d8 | | Load_Top At_Offset_0
1ccf 1c00 | | Execute_Immediate Run_Utility,0x0
1cd0 e414 | | Load 0x2,0x14
1cd1 e5fd | | Load 0x2,-0x3
1cd2 e404 | | Load 0x2,0x4
1cd3 e407 | | Load 0x2,0x7
1cd4 e408 | | Load 0x2,0x8
1cd5 8268 | h | Call 0x1,0x68
1cd6 e5fd | | Load 0x2,-0x3
1cd7 e009 | | Load 0x0,0x9
1cd8 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
1cd9 BODY_1cc8:
1cd9 e5fc | | Load 0x2,-0x4
1cda 0092 1fd5 | | Action Push_String_Extended,0x1fd5 ; "Transferring => "
1cdc e408 | | Load 0x2,0x8
1cdd e002 | | Load 0x0,0x2
1cde 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1cdf 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1ce0 01cc | | Execute Vector,Catenate
1ce1 e007 | | Load 0x0,0x7
1ce2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1ce3 e404 | | Load 0x2,0x4
1ce4 6803 |h | Jump_Zero 0x1ce8
1ce5 e409 | | Load 0x2,0x9
1ce6 c602 | | Store 0x3,0x2
1ce7 7802 |x | Jump 0x1cea
1ce8 e408 | | Load 0x2,0x8
1ce9 c602 | | Store 0x3,0x2
1cea e005 | | Load 0x0,0x5
1ceb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1cec e40e | | Load 0x2,0xe
1ced e00a | | Load 0x0,0xa
1cee 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1cef e00a | | Load 0x0,0xa
1cf0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1cf1 4800 |H | Short_Literal 0x0
1cf2 e40d | | Load 0x2,0xd
1cf3 e603 | | Load 0x3,0x3
1cf4 e602 | | Load 0x3,0x2
1cf5 e002 | | Load 0x0,0x2
1cf6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1cf7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1cf8 e008 | | Load 0x0,0x8
1cf9 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
1cfa c40c | | Store 0x2,0xc
1cfb 4800 |H | Short_Literal 0x0
1cfc e40c | | Load 0x2,0xc
1cfd e005 | | Load 0x0,0x5
1cfe 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1cff 7009 |p | Jump_Nonzero 0x1d09
1d00 e5fc | | Load 0x2,-0x4
1d01 e40c | | Load 0x2,0xc
1d02 e005 | | Load 0x0,0x5
1d03 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1d04 e40c | | Load 0x2,0xc
1d05 a5fb | | Store_Unchecked 0x2,-0x5
1d06 e00a | | Load 0x0,0xa
1d07 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1d08 0257 | W | Execute Discrete,Raise
1d09 e5fc | | Load 0x2,-0x4
1d0a 0092 1fd6 | | Action Push_String_Extended,0x1fd6 ; "Retrieving remote update time for host unit => "
1d0c e408 | | Load 0x2,0x8
1d0d e002 | | Load 0x0,0x2
1d0e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1d0f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1d10 01cc | | Execute Vector,Catenate
1d11 e007 | | Load 0x0,0x7
1d12 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1d13 e00c | | Load 0x0,0xc
1d14 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1d15 c411 | | Store 0x2,0x11
1d16 e404 | | Load 0x2,0x4
1d17 680b |h | Jump_Zero 0x1d23
1d18 e40c | | Load 0x2,0xc
1d19 e5fc | | Load 0x2,-0x4
1d1a 4800 |H | Short_Literal 0x0
1d1b e5fd | | Load 0x2,-0x3
1d1c e40d | | Load 0x2,0xd
1d1d 4801 |H | Short_Literal 0x1
1d1e e408 | | Load 0x2,0x8
1d1f e414 | | Load 0x2,0x14
1d20 826b | k | Call 0x1,0x6b
1d21 c40c | | Store 0x2,0xc
1d22 780c |x | Jump 0x1d2f
1d23 e40c | | Load 0x2,0xc
1d24 e407 | | Load 0x2,0x7
1d25 e5fc | | Load 0x2,-0x4
1d26 4800 |H | Short_Literal 0x0
1d27 e5fd | | Load 0x2,-0x3
1d28 e40d | | Load 0x2,0xd
1d29 4801 |H | Short_Literal 0x1
1d2a e414 | | Load 0x2,0x14
1d2b e5ff | | Load 0x2,-0x1
1d2c 826a | j | Call 0x1,0x6a
1d2d c407 | | Store 0x2,0x7
1d2e c40c | | Store 0x2,0xc
1d2f 4800 |H | Short_Literal 0x0
1d30 e40c | | Load 0x2,0xc
1d31 e005 | | Load 0x0,0x5
1d32 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1d33 7016 |p | Jump_Nonzero 0x1d4a
1d34 e5fc | | Load 0x2,-0x4
1d35 4801 |H | Short_Literal 0x1
1d36 4801 |H | Short_Literal 0x1
1d37 e004 | | Load 0x0,0x4
1d38 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1d39 035b | [ | Declare_Type Array,Constrained
1d3a 0337 | 7 | Declare_Variable Array
1d3b e408 | | Load 0x2,0x8
1d3c e006 | | Load 0x0,0x6
1d3d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1d3e e004 | | Load 0x0,0x4
1d3f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1d40 0119 | | Execute Any,Check_In_Formal_Type
1d41 4801 |H | Short_Literal 0x1
1d42 00da | | Load_Top At_Offset_2
1d43 01d6 | | Execute Vector,Field_Write
1d44 6017 |` | Indirect_Literal Discrete,0x1d5c,{0x00000000, 0x0000815e}
1d45 e005 | | Load 0x0,0x5
1d46 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1d47 4800 |H | Short_Literal 0x0
1d48 a40c | | Store_Unchecked 0x2,0xc
1d49 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1d4a e5fc | | Load 0x2,-0x4
1d4b 0092 1fd7 | | Action Push_String_Extended,0x1fd7 ; "Elapsed time for setting download time => "
1d4d e411 | | Load 0x2,0x11
1d4e e00c | | Load 0x0,0xc
1d4f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1d50 e00c | | Load 0x0,0xc
1d51 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1d52 e022 | " | Load 0x0,0x22
1d53 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1d54 01cc | | Execute Vector,Catenate
1d55 0092 1fd8 | | Action Push_String_Extended,0x1fd8 ; " seconds."
1d57 01cc | | Execute Vector,Catenate
1d58 e007 | | Load 0x0,0x7
1d59 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1d5a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1d5b 0000 | | .XXX[0x1]
1d5c 0000 0000 | | .LITERAL {0x00000000, 0x0000815e}
1d60 ; --------------------------------------------------------------------------------------
1d60 ; SUBPROGRAM
1d60 ; --------------------------------------------------------------------------------------
1d60 1d77 | w | .CONST 0x1d77 ; Address of begin
1d61 0004 | | .CONST 0x0004 ; Address of exception handler
1d62 0005 | | .CONST 0x0005 ; Number of locals
1d63 INIT_1d60:
1d63 e005 | | Load 0x0,0x5
1d64 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1d65 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1d66 e001 | | Load 0x0,0x1
1d67 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1d68 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1d69 02c7 | | Declare_Variable Any
1d6a 00d8 | | Load_Top At_Offset_0
1d6b 1c00 | | Execute_Immediate Run_Utility,0x0
1d6c e002 | | Load 0x0,0x2
1d6d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1d6e 02c7 | | Declare_Variable Any
1d6f e5fc | | Load 0x2,-0x4
1d70 4800 |H | Short_Literal 0x0
1d71 e5fe | | Load 0x2,-0x2
1d72 e006 | | Load 0x0,0x6
1d73 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1d74 a604 | | Store_Unchecked 0x3,0x4
1d75 029f 1f73 | s| Declare_Subprogram INIT_1f70,For_Call
1d77 BODY_1d60:
1d77 e5fc | | Load 0x2,-0x4
1d78 0092 1fd9 | | Action Push_String_Extended,0x1fd9 ; "Promoting => "
1d7a e408 | | Load 0x2,0x8
1d7b e002 | | Load 0x0,0x2
1d7c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1d7d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1d7e 01cc | | Execute Vector,Catenate
1d7f e007 | | Load 0x0,0x7
1d80 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1d81 e40f | | Load 0x2,0xf
1d82 7012 |p | Jump_Nonzero 0x1d95
1d83 e40c | | Load 0x2,0xc
1d84 e008 | | Load 0x0,0x8
1d85 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1d86 e5fc | | Load 0x2,-0x4
1d87 e410 | | Load 0x2,0x10
1d88 e5fd | | Load 0x2,-0x3
1d89 e413 | | Load 0x2,0x13
1d8a 826e | n | Call 0x1,0x6e
1d8b c40d | | Store 0x2,0xd
1d8c c40c | | Store 0x2,0xc
1d8d 4800 |H | Short_Literal 0x0
1d8e e40c | | Load 0x2,0xc
1d8f e005 | | Load 0x0,0x5
1d90 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1d91 7003 |p | Jump_Nonzero 0x1d95
1d92 e00a | | Load 0x0,0xa
1d93 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1d94 0257 | W | Execute Discrete,Raise
1d95 e40c | | Load 0x2,0xc
1d96 e5fc | | Load 0x2,-0x4
1d97 e40f | | Load 0x2,0xf
1d98 e412 | | Load 0x2,0x12
1d99 e414 | | Load 0x2,0x14
1d9a e40e | | Load 0x2,0xe
1d9b e40d | | Load 0x2,0xd
1d9c e5fd | | Load 0x2,-0x3
1d9d 8270 | p | Call 0x1,0x70
1d9e c40c | | Store 0x2,0xc
1d9f 4800 |H | Short_Literal 0x0
1da0 e40c | | Load 0x2,0xc
1da1 e005 | | Load 0x0,0x5
1da2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1da3 7003 |p | Jump_Nonzero 0x1da7
1da4 e00a | | Load 0x0,0xa
1da5 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1da6 0257 | W | Execute Discrete,Raise
1da7 e40f | | Load 0x2,0xf
1da8 7001 |p | Jump_Nonzero 0x1daa
1da9 8415 | | Call 0x2,0x15
1daa e40c | | Load 0x2,0xc
1dab e5fc | | Load 0x2,-0x4
1dac e40f | | Load 0x2,0xf
1dad e412 | | Load 0x2,0x12
1dae e414 | | Load 0x2,0x14
1daf e40e | | Load 0x2,0xe
1db0 e40d | | Load 0x2,0xd
1db1 e5fd | | Load 0x2,-0x3
1db2 8271 | q | Call 0x1,0x71
1db3 c40c | | Store 0x2,0xc
1db4 4800 |H | Short_Literal 0x0
1db5 e40c | | Load 0x2,0xc
1db6 e005 | | Load 0x0,0x5
1db7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1db8 7003 |p | Jump_Nonzero 0x1dbc
1db9 e00a | | Load 0x0,0xa
1dba 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1dbb 0257 | W | Execute Discrete,Raise
1dbc e404 | | Load 0x2,0x4
1dbd 6802 |h | Jump_Zero 0x1dc0
1dbe 8605 | | Call 0x3,0x5
1dbf 7837 |x7 | Jump 0x1df7
1dc0 e40c | | Load 0x2,0xc
1dc1 e5fc | | Load 0x2,-0x4
1dc2 e40f | | Load 0x2,0xf
1dc3 4800 |H | Short_Literal 0x0
1dc4 00ea | | Load_Encached Null_String_Cache
1dc5 e5fd | | Load 0x2,-0x3
1dc6 e009 | | Load 0x0,0x9
1dc7 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1dc8 e407 | | Load 0x2,0x7
1dc9 e001 | | Load 0x0,0x1
1dca 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1dcb 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1dcc e40e | | Load 0x2,0xe
1dcd e40d | | Load 0x2,0xd
1dce e002 | | Load 0x0,0x2
1dcf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1dd0 e5fe | | Load 0x2,-0x2
1dd1 e5fd | | Load 0x2,-0x3
1dd2 e5ff | | Load 0x2,-0x1
1dd3 8272 | r | Call 0x1,0x72
1dd4 c40c | | Store 0x2,0xc
1dd5 00db | | Load_Top At_Offset_3
1dd6 e40d | | Load 0x2,0xd
1dd7 e5fc | | Load 0x2,-0x4
1dd8 e40e | | Load 0x2,0xe
1dd9 e5ff | | Load 0x2,-0x1
1dda 00ea | | Load_Encached Null_String_Cache
1ddb e412 | | Load 0x2,0x12
1ddc e413 | | Load 0x2,0x13
1ddd e414 | | Load 0x2,0x14
1dde e5fd | | Load 0x2,-0x3
1ddf e009 | | Load 0x0,0x9
1de0 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1de1 e407 | | Load 0x2,0x7
1de2 e001 | | Load 0x0,0x1
1de3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1de4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1de5 e5fe | | Load 0x2,-0x2
1de6 0092 1fda | | Action Push_String_Extended,0x1fda ; "Promote"
1de8 e009 | | Load 0x0,0x9
1de9 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
1dea 4800 |H | Short_Literal 0x0
1deb e40c | | Load 0x2,0xc
1dec e005 | | Load 0x0,0x5
1ded 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1dee e009 | | Load 0x0,0x9
1def 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
1df0 e5fd | | Load 0x2,-0x3
1df1 e009 | | Load 0x0,0x9
1df2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1df3 e010 | | Load 0x0,0x10
1df4 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
1df5 c40d | | Store 0x2,0xd
1df6 c602 | | Store 0x3,0x2
1df7 e40f | | Load 0x2,0xf
1df8 6801 |h | Jump_Zero 0x1dfa
1df9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1dfa 4800 |H | Short_Literal 0x0
1dfb e602 | | Load 0x3,0x2
1dfc e005 | | Load 0x0,0x5
1dfd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1dfe 7005 |p | Jump_Nonzero 0x1e04
1dff e011 | | Load 0x0,0x11
1e00 180e | | Execute Package,Field_Execute,Field_Number 0xe
1e01 e602 | | Load 0x3,0x2
1e02 e005 | | Load 0x0,0x5
1e03 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1e04 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e05 0000 0000 | | .XXX[0x3]
1e07 0000 | |
1e08 ; --------------------------------------------------------------------------------------
1e08 ; SUBPROGRAM
1e08 ; --------------------------------------------------------------------------------------
1e08 1e13 | | .CONST 0x1e13 ; Address of begin
1e09 0004 | | .CONST 0x0004 ; Address of exception handler
1e0a 0002 | | .CONST 0x0002 ; Number of locals
1e0b INIT_1e08:
1e0b e5ff | | Load 0x2,-0x1
1e0c 0227 | ' | Execute Access,All_Reference
1e0d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1e0e 0092 1fdb | | Action Push_String_Extended,0x1fdb ; "?'IS(DOWNLOADABLE)"
1e10 e001 | | Load 0x0,0x1
1e11 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1e12 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1e13 BODY_1e08:
1e13 00cf | | Action Mark_Auxiliary
1e14 00d9 | | Load_Top At_Offset_1
1e15 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1e16 4801 |H | Short_Literal 0x1
1e17 0263 | c | Execute Discrete,Above_Bound
1e18 7019 |p | Jump_Nonzero 0x1e32
1e19 e5fd | | Load 0x2,-0x3
1e1a e009 | | Load 0x0,0x9
1e1b 18d3 | | Execute Package,Field_Execute,Field_Number 0xd3
1e1c 0f00 | | Execute_Immediate Equal,0x0
1e1d e5fe | | Load 0x2,-0x2
1e1e e402 | | Load 0x2,0x2
1e1f 00db | | Load_Top At_Offset_3
1e20 e602 | | Load 0x3,0x2
1e21 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1e22 01d7 | | Execute Vector,Field_Read
1e23 e001 | | Load 0x0,0x1
1e24 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1e25 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1e26 e00b | | Load 0x0,0xb
1e27 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1e28 6807 |h | Jump_Zero 0x1e30
1e29 00d8 | | Load_Top At_Offset_0
1e2a e602 | | Load 0x3,0x2
1e2b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1e2c 01d7 | | Execute Vector,Field_Read
1e2d c404 | | Store 0x2,0x4
1e2e 00d2 | | Pop_Control Pop_Count_2
1e2f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e30 00c8 | | Action Pop_Auxiliary_Range
1e31 3fe7 |? | Loop_Increasing 0x1e19
1e32 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e33 0000 0000 | | .BLANK 0000[0x5]
1e38 ; --------------------------------------------------------------------------------------
1e38 ; SUBPROGRAM
1e38 ; --------------------------------------------------------------------------------------
1e38 1e42 | B | .CONST 0x1e42 ; Address of begin
1e39 0004 | | .CONST 0x0004 ; Address of exception handler
1e3a 0002 | | .CONST 0x0002 ; Number of locals
1e3b INIT_1e38:
1e3b e5fc | | Load 0x2,-0x4
1e3c e009 | | Load 0x0,0x9
1e3d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1e3e e5fe | | Load 0x2,-0x2
1e3f e001 | | Load 0x0,0x1
1e40 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1e41 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1e42 BODY_1e38:
1e42 00d8 | | Load_Top At_Offset_0
1e43 00cb | | Action Pop_Block_With_Result
1e44 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1e45 0000 0000 | | .XXX[0x3]
1e47 0000 | |
1e48 ; --------------------------------------------------------------------------------------
1e48 ; SUBPROGRAM
1e48 ; --------------------------------------------------------------------------------------
1e48 1e4d | M | .CONST 0x1e4d ; Address of begin
1e49 0004 | | .CONST 0x0004 ; Address of exception handler
1e4a 0002 | | .CONST 0x0002 ; Number of locals
1e4b INIT_1e48:
1e4b e020 | | Load 0x0,0x20
1e4c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1e4d BODY_1e48:
1e4d 00db | | Load_Top At_Offset_3
1e4e e009 | | Load 0x0,0x9
1e4f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1e50 e01f | | Load 0x0,0x1f
1e51 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1e52 e020 | | Load 0x0,0x20
1e53 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
1e54 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
1e55 00d8 | | Load_Top At_Offset_0
1e56 7003 |p | Jump_Nonzero 0x1e5a
1e57 0092 1fdc | | Action Push_String_Extended,0x1fdc ; "Unix"
1e59 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1e5a 0092 1fdd | | Action Push_String_Extended,0x1fdd ; "Other"
1e5c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1e5d 0000 0000 | | .XXX[0x3]
1e5f 0000 | |
1e60 ; --------------------------------------------------------------------------------------
1e60 ; SUBPROGRAM
1e60 ; --------------------------------------------------------------------------------------
1e60 1e66 | f | .CONST 0x1e66 ; Address of begin
1e61 0004 | | .CONST 0x0004 ; Address of exception handler
1e62 0002 | | .CONST 0x0002 ; Number of locals
1e63 INIT_1e60:
1e63 e5fe | | Load 0x2,-0x2
1e64 e009 | | Load 0x0,0x9
1e65 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
1e66 BODY_1e60:
1e66 00d8 | | Load_Top At_Offset_0
1e67 01db | | Execute Vector,Length
1e68 0c01 | | Execute_Immediate Greater_Equal,0x1
1e69 6809 |h | Jump_Zero 0x1e73
1e6a e5f4 | | Load 0x2,-0xc
1e6b e5f5 | | Load 0x2,-0xb
1e6c e5f6 | | Load 0x2,-0xa
1e6d e5fa | | Load 0x2,-0x6
1e6e e5fb | | Load 0x2,-0x5
1e6f e602 | | Load 0x3,0x2
1e70 e5fe | | Load 0x2,-0x2
1e71 826f | o | Call 0x1,0x6f
1e72 c5f4 | | Store 0x2,-0xc
1e73 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e74 0000 0000 | | .BLANK 0000[0x4]
1e78 ; --------------------------------------------------------------------------------------
1e78 ; SUBPROGRAM
1e78 ; --------------------------------------------------------------------------------------
1e78 1e80 | | .CONST 0x1e80 ; Address of begin
1e79 0004 | | .CONST 0x0004 ; Address of exception handler
1e7a 0003 | | .CONST 0x0003 ; Number of locals
1e7b INIT_1e78:
1e7b e005 | | Load 0x0,0x5
1e7c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1e7d e5fe | | Load 0x2,-0x2
1e7e e009 | | Load 0x0,0x9
1e7f 18cd | | Execute Package,Field_Execute,Field_Number 0xcd
1e80 BODY_1e78:
1e80 00d8 | | Load_Top At_Offset_0
1e81 01db | | Execute Vector,Length
1e82 0c01 | | Execute_Immediate Greater_Equal,0x1
1e83 6809 |h | Jump_Zero 0x1e8d
1e84 00d9 | | Load_Top At_Offset_1
1e85 e5f5 | | Load 0x2,-0xb
1e86 e5f6 | | Load 0x2,-0xa
1e87 e5fa | | Load 0x2,-0x6
1e88 e5fb | | Load 0x2,-0x5
1e89 e603 | | Load 0x3,0x3
1e8a e5fe | | Load 0x2,-0x2
1e8b 826f | o | Call 0x1,0x6f
1e8c 005a | Z | Store_Top Discrete,At_Offset_2
1e8d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e8e 0000 0000 | | .XXX[0x2]
1e90 ; --------------------------------------------------------------------------------------
1e90 ; SUBPROGRAM
1e90 ; --------------------------------------------------------------------------------------
1e90 1e93 | | .CONST 0x1e93 ; Address of begin
1e91 0004 | | .CONST 0x0004 ; Address of exception handler
1e92 0001 | | .CONST 0x0001 ; Number of locals
1e93 BODY_1e90:
1e93 INIT_1e90:
1e93 00da | | Load_Top At_Offset_2
1e94 6806 |h | Jump_Zero 0x1e9b
1e95 e5fc | | Load 0x2,-0x4
1e96 e00a | | Load 0x0,0xa
1e97 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
1e98 e00a | | Load 0x0,0xa
1e99 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1e9a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1e9b e5fc | | Load 0x2,-0x4
1e9c e00a | | Load 0x0,0xa
1e9d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
1e9e e00a | | Load 0x0,0xa
1e9f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1ea0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1ea1 0000 0000 | | .BLANK 0000[0x7]
1ea8 ; --------------------------------------------------------------------------------------
1ea8 ; SUBPROGRAM
1ea8 ; --------------------------------------------------------------------------------------
1ea8 1ebf | | .CONST 0x1ebf ; Address of begin
1ea9 0004 | | .CONST 0x0004 ; Address of exception handler
1eaa 0002 | | .CONST 0x0002 ; Number of locals
1eab INIT_1ea8:
1eab e5f7 | | Load 0x2,-0x9
1eac e5fb | | Load 0x2,-0x5
1ead e7ff | | Load 0x3,-0x1
1eae 8403 | | Call 0x2,0x3
1eaf 4801 |H | Short_Literal 0x1
1eb0 e7ff | | Load 0x3,-0x1
1eb1 0272 | r | Execute Discrete,Minus
1eb2 00d8 | | Load_Top At_Offset_0
1eb3 e01e | | Load 0x0,0x1e
1eb4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
1eb5 0260 | ` | Execute Discrete,In_Type
1eb6 7001 |p | Jump_Nonzero 0x1eb8
1eb7 0801 | | Execute_Immediate Raise,0x1
1eb8 4803 |H | Short_Literal 0x3
1eb9 e5fe | | Load 0x2,-0x2
1eba e009 | | Load 0x0,0x9
1ebb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1ebc e5ff | | Load 0x2,-0x1
1ebd e01e | | Load 0x0,0x1e
1ebe 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1ebf BODY_1ea8:
1ebf e5f9 | | Load 0x2,-0x7
1ec0 01db | | Execute Vector,Length
1ec1 7002 |p | Jump_Nonzero 0x1ec4
1ec2 00d8 | | Load_Top At_Offset_0
1ec3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1ec4 e5fe | | Load 0x2,-0x2
1ec5 e009 | | Load 0x0,0x9
1ec6 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
1ec7 e7ff | | Load 0x3,-0x1
1ec8 027f | | Execute Discrete,Equal
1ec9 6825 |h% | Jump_Zero 0x1eef
1eca 00d8 | | Load_Top At_Offset_0
1ecb 01db | | Execute Vector,Length
1ecc 700e |p | Jump_Nonzero 0x1edb
1ecd e402 | | Load 0x2,0x2
1ece e020 | | Load 0x0,0x20
1ecf 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
1ed0 e5fe | | Load 0x2,-0x2
1ed1 e009 | | Load 0x0,0x9
1ed2 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
1ed3 01cc | | Execute Vector,Catenate
1ed4 e402 | | Load 0x2,0x2
1ed5 e020 | | Load 0x0,0x20
1ed6 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
1ed7 01cc | | Execute Vector,Catenate
1ed8 e5f9 | | Load 0x2,-0x7
1ed9 01cc | | Execute Vector,Catenate
1eda 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1edb 00d8 | | Load_Top At_Offset_0
1edc e402 | | Load 0x2,0x2
1edd e020 | | Load 0x0,0x20
1ede 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
1edf 01cc | | Execute Vector,Catenate
1ee0 e402 | | Load 0x2,0x2
1ee1 e020 | | Load 0x0,0x20
1ee2 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
1ee3 01cc | | Execute Vector,Catenate
1ee4 e5fe | | Load 0x2,-0x2
1ee5 e009 | | Load 0x0,0x9
1ee6 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
1ee7 01cc | | Execute Vector,Catenate
1ee8 e402 | | Load 0x2,0x2
1ee9 e020 | | Load 0x0,0x20
1eea 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
1eeb 01cc | | Execute Vector,Catenate
1eec e5f9 | | Load 0x2,-0x7
1eed 01cc | | Execute Vector,Catenate
1eee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1eef 00d8 | | Load_Top At_Offset_0
1ef0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1ef1 0000 0000 | | .BLANK 0000[0x7]
1ef8 ; --------------------------------------------------------------------------------------
1ef8 ; SUBPROGRAM
1ef8 ; --------------------------------------------------------------------------------------
1ef8 1efe | | .CONST 0x1efe ; Address of begin
1ef9 0004 | | .CONST 0x0004 ; Address of exception handler
1efa 0002 | | .CONST 0x0002 ; Number of locals
1efb INIT_1ef8:
1efb e5fe | | Load 0x2,-0x2
1efc e009 | | Load 0x0,0x9
1efd 18ce | | Execute Package,Field_Execute,Field_Number 0xce
1efe BODY_1ef8:
1efe 00d8 | | Load_Top At_Offset_0
1eff 01db | | Execute Vector,Length
1f00 0c01 | | Execute_Immediate Greater_Equal,0x1
1f01 6809 |h | Jump_Zero 0x1f0b
1f02 e5f6 | | Load 0x2,-0xa
1f03 e5f7 | | Load 0x2,-0x9
1f04 e5f8 | | Load 0x2,-0x8
1f05 e5fc | | Load 0x2,-0x4
1f06 e5fd | | Load 0x2,-0x3
1f07 e602 | | Load 0x3,0x2
1f08 e5fe | | Load 0x2,-0x2
1f09 826f | o | Call 0x1,0x6f
1f0a c5f6 | | Store 0x2,-0xa
1f0b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f0c 0000 0000 | | .BLANK 0000[0x4]
1f10 ; --------------------------------------------------------------------------------------
1f10 ; SUBPROGRAM
1f10 ; --------------------------------------------------------------------------------------
1f10 1f18 | | .CONST 0x1f18 ; Address of begin
1f11 0004 | | .CONST 0x0004 ; Address of exception handler
1f12 0003 | | .CONST 0x0003 ; Number of locals
1f13 INIT_1f10:
1f13 e005 | | Load 0x0,0x5
1f14 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1f15 e5fe | | Load 0x2,-0x2
1f16 e009 | | Load 0x0,0x9
1f17 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
1f18 BODY_1f10:
1f18 00d8 | | Load_Top At_Offset_0
1f19 01db | | Execute Vector,Length
1f1a 0c01 | | Execute_Immediate Greater_Equal,0x1
1f1b 6809 |h | Jump_Zero 0x1f25
1f1c 00d9 | | Load_Top At_Offset_1
1f1d e5f7 | | Load 0x2,-0x9
1f1e e5f8 | | Load 0x2,-0x8
1f1f e5fc | | Load 0x2,-0x4
1f20 e5fd | | Load 0x2,-0x3
1f21 e603 | | Load 0x3,0x3
1f22 e5fe | | Load 0x2,-0x2
1f23 826f | o | Call 0x1,0x6f
1f24 005a | Z | Store_Top Discrete,At_Offset_2
1f25 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f26 0000 0000 | | .XXX[0x2]
1f28 ; --------------------------------------------------------------------------------------
1f28 ; SUBPROGRAM
1f28 ; --------------------------------------------------------------------------------------
1f28 1f2b | + | .CONST 0x1f2b ; Address of begin
1f29 1f40 | @ | .CONST 0x1f40 ; Address of exception handler
1f2a 0001 | | .CONST 0x0001 ; Number of locals
1f2b BODY_1f28:
1f2b INIT_1f28:
1f2b 4800 |H | Short_Literal 0x0
1f2c 4801 |H | Short_Literal 0x1
1f2d 4800 |H | Short_Literal 0x0
1f2e 4801 |H | Short_Literal 0x1
1f2f e5fa | | Load 0x2,-0x6
1f30 e006 | | Load 0x0,0x6
1f31 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1f32 e011 | | Load 0x0,0x11
1f33 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
1f34 4800 |H | Short_Literal 0x0
1f35 0092 1fde | | Action Push_String_Extended,0x1fde ; "<ALL_WORLDS>"
1f37 4803 |H | Short_Literal 0x3
1f38 4803 |H | Short_Literal 0x3
1f39 e5fe | | Load 0x2,-0x2
1f3a e002 | | Load 0x0,0x2
1f3b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1f3c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1f3d e023 | # | Load 0x0,0x23
1f3e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1f3f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f40 TRAP_1f28:
1f40 0007 | | Action Break_Optional
1f41 e604 | | Load 0x3,0x4
1f42 e011 | | Load 0x0,0x11
1f43 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1f44 4801 |H | Short_Literal 0x1
1f45 4802 |H | Short_Literal 0x2
1f46 e004 | | Load 0x0,0x4
1f47 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1f48 035b | [ | Declare_Type Array,Constrained
1f49 0337 | 7 | Declare_Variable Array
1f4a 0092 1fdf | | Action Push_String_Extended,0x1fdf ; "Failed while compiling closure of "
1f4c e5fe | | Load 0x2,-0x2
1f4d e002 | | Load 0x0,0x2
1f4e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1f4f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1f50 01cc | | Execute Vector,Catenate
1f51 e004 | | Load 0x0,0x4
1f52 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1f53 e004 | | Load 0x0,0x4
1f54 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1f55 0119 | | Execute Any,Check_In_Formal_Type
1f56 4801 |H | Short_Literal 0x1
1f57 00da | | Load_Top At_Offset_2
1f58 01d6 | | Execute Vector,Field_Write
1f59 e404 | | Load 0x2,0x4
1f5a e006 | | Load 0x0,0x6
1f5b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1f5c e004 | | Load 0x0,0x4
1f5d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1f5e 0119 | | Execute Any,Check_In_Formal_Type
1f5f 4802 |H | Short_Literal 0x2
1f60 00da | | Load_Top At_Offset_2
1f61 01d6 | | Execute Vector,Field_Write
1f62 6009 |` | Indirect_Literal Discrete,0x1f6c,{0x00000000, 0x00008126}
1f63 e005 | | Load 0x0,0x5
1f64 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1f65 a7ff | | Store_Unchecked 0x3,-0x1
1f66 e5fa | | Load 0x2,-0x6
1f67 e7ff | | Load 0x3,-0x1
1f68 e005 | | Load 0x0,0x5
1f69 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1f6a 00cc | | Action Pop_Block
1f6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f6c 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
1f70 ; --------------------------------------------------------------------------------------
1f70 ; SUBPROGRAM
1f70 ; --------------------------------------------------------------------------------------
1f70 1f79 | y | .CONST 0x1f79 ; Address of begin
1f71 0004 | | .CONST 0x0004 ; Address of exception handler
1f72 0003 | | .CONST 0x0003 ; Number of locals
1f73 INIT_1f70:
1f73 e5fc | | Load 0x2,-0x4
1f74 e408 | | Load 0x2,0x8
1f75 e00d | | Load 0x0,0xd
1f76 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
1f77 e408 | | Load 0x2,0x8
1f78 8267 | g | Call 0x1,0x67
1f79 BODY_1f70:
1f79 4800 |H | Short_Literal 0x0
1f7a 00da | | Load_Top At_Offset_2
1f7b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1f7c e005 | | Load 0x0,0x5
1f7d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1f7e 7003 |p | Jump_Nonzero 0x1f82
1f7f e005 | | Load 0x0,0x5
1f80 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1f81 0257 | W | Execute Discrete,Raise
1f82 e40c | | Load 0x2,0xc
1f83 e5fc | | Load 0x2,-0x4
1f84 e40f | | Load 0x2,0xf
1f85 4801 |H | Short_Literal 0x1
1f86 e802 | | Load 0x4,0x2
1f87 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1f88 e803 | | Load 0x4,0x3
1f89 e40e | | Load 0x2,0xe
1f8a e40d | | Load 0x2,0xd
1f8b e408 | | Load 0x2,0x8
1f8c e5fe | | Load 0x2,-0x2
1f8d e5fd | | Load 0x2,-0x3
1f8e e5ff | | Load 0x2,-0x1
1f8f 8272 | r | Call 0x1,0x72
1f90 c40c | | Store 0x2,0xc
1f91 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f92 ; --------------------------------------------------------------------------------------
1f92 ; STRING TABLE
1f92 ; --------------------------------------------------------------------------------------
1f92 009e | | .STRTAB 0x009e->0x1fe1 ; "Target_Builder.Unit.Referencers"
1f93 00bb | | .STRTAB 0x00bb->0x1ff0 ; "Target_Builder.Unit.Suppliers"
1f94 00d6 | | .STRTAB 0x00d6->0x1fff ; "Link"
1f95 00d8 | | .STRTAB 0x00d8->0x2001 ; "<error>"
1f96 00dd | | .STRTAB 0x00dd->0x2004 ; "There are un-Coded Units."
1f97 00f4 | | .STRTAB 0x00f4->0x2011 ; "Target_Builder.Unit.Link"
1f98 010a | | .STRTAB 0x010a->0x201d ; "Compile"
1f99 010f | | .STRTAB 0x010f->0x2020 ; "Target_Builder.Unit.Promote"
1f9a 0128 | ( | .STRTAB 0x0128->0x202e ; "Demoting => "
1f9b 0133 | 3 | .STRTAB 0x0133->0x2034 ; "Demote"
1f9c 0137 | 7 | .STRTAB 0x0137->0x2037 ; "Target_Builder.Unit.Demote"
1f9d 014f | O | .STRTAB 0x014f->0x2044 ; "Unit_Target_Name"
1f9e 015d | ] | .STRTAB 0x015d->0x204c ; "Target_Builder.Unit.Unit_Target_Name"
1f9f 017f | | .STRTAB 0x017f->0x205e ; "Target_Builder.Unit.Unit_Name"
1fa0 019a | | .STRTAB 0x019a->0x206d ; "Set_Unit_Target_Name"
1fa1 01ac | | .STRTAB 0x01ac->0x2077 ; "*"
1fa2 01ab | | .STRTAB 0x01ab->0x2077 ; "Target name for unit \x22"
1fa3 01bf | | .STRTAB 0x01bf->0x2082 ; "\x22 has been set to \x22"
1fa4 01d0 | | .STRTAB 0x01d0->0x208c ; "\x22"
1fa5 01cf | | .STRTAB 0x01cf->0x208c ; "Unit \x22"
1fa6 01d3 | | .STRTAB 0x01d3->0x208f ; "\x22 will be made non-downloadable"
1fa7 01f0 | | .STRTAB 0x01f0->0x209f ; "Target_Builder.Unit.Set_Unit_Target_Name"
1fa8 0216 | | .STRTAB 0x0216->0x20b3 ; "Has_Unit_Target_Name"
1fa9 0228 | ( | .STRTAB 0x0228->0x20bd ; "Target_Builder.Unit.Has_Unit_Target_Name"
1faa 024e | N | .STRTAB 0x024e->0x20d1 ; "Download_Time"
1fab 0259 | Y | .STRTAB 0x0259->0x20d7 ; "Target_Builder.Unit.Download_Time"
1fac 0278 | x | .STRTAB 0x0278->0x20e8 ; "Set_Download_Time"
1fad 0287 | | .STRTAB 0x0287->0x20f0 ; "Setting download time for => "
1fae 02a3 | | .STRTAB 0x02a3->0x20ff ; " to "
1faf 02a5 | | .STRTAB 0x02a5->0x2101 ; "Target_Builder.Unit.Set_Download_Time"
1fb0 02c8 | | .STRTAB 0x02c8->0x2114 ; "Target_Builder.Unit.Refresh_Suppliers"
1fb1 02eb | | .STRTAB 0x02eb->0x2126 ; "Refresh_Suppliers"
1fb2 02fa | | .STRTAB 0x02fa->0x212f ; "Target_Builder.Unit.Register"
1fb3 0314 | | .STRTAB 0x0314->0x213d ; "register"
1fb4 031a | | .STRTAB 0x031a->0x2141 ; "Register"
1fb5 0320 | | .STRTAB 0x0320->0x2145 ; "Add_Secondary_Unit"
1fb6 0330 | 0 | .STRTAB 0x0330->0x214e ; "Added "
1fb7 0334 | 4 | .STRTAB 0x0334->0x2151 ; " as the secondary of unit "
1fb8 034c | L | .STRTAB 0x034c->0x215e ; ". Prefix = \x22"
1fb9 0357 | W | .STRTAB 0x0357->0x2164 ; "\x22, Suffix = \x22"
1fba 0362 | b | .STRTAB 0x0362->0x216b ; "Target_Builder.Unit.Add_Secondary_Unit"
1fbb 0386 | | .STRTAB 0x0386->0x217e ; "Remove_Secondary_Unit (Primary)"
1fbc 03a3 | | .STRTAB 0x03a3->0x218d ; "Remove_Secondary_Unit (Secondary)"
1fbd 03c2 | | .STRTAB 0x03c2->0x219e ; "Removed "
1fbe 03c8 | | .STRTAB 0x03c8->0x21a2 ; "Target_Builder.Unit.Remove_Secondary_Unit"
1fbf 03ef | | .STRTAB 0x03ef->0x21b6 ; "Has_Secondary_Unit"
1fc0 03ff | | .STRTAB 0x03ff->0x21bf ; "Target_Builder.Unit.Has_Secondary_Unit"
1fc1 0423 | # | .STRTAB 0x0423->0x21d2 ; "Is_Secondary_Unit"
1fc2 0432 | 2 | .STRTAB 0x0432->0x21db ; "Target_Builder.Unit.Is_Secondary_Unit"
1fc3 0455 | U | .STRTAB 0x0455->0x21ed ; "Primary_Unit"
1fc4 045f | _ | .STRTAB 0x045f->0x21f3 ; "Target_Builder.Unit.Primary_Unit"
1fc5 047d | } | .STRTAB 0x047d->0x2203 ; "Secondary_Unit"
1fc6 0489 | | .STRTAB 0x0489->0x220a ; "Target_Builder.Unit.Secondary_Unit"
1fc7 04a9 | | .STRTAB 0x04a9->0x221b ; "Secondary_Prefix"
1fc8 04b7 | | .STRTAB 0x04b7->0x2223 ; "Target_Builder.Unit.Secondary_Prefix"
1fc9 04d9 | | .STRTAB 0x04d9->0x2235 ; "Secondary_Suffix"
1fca 04e7 | | .STRTAB 0x04e7->0x223d ; "Target_Builder.Unit.Secondary_Suffix"
1fcb 0509 | | .STRTAB 0x0509->0x224f ; "Serial_Number"
1fcc 0514 | | .STRTAB 0x0514->0x2256 ; "Target_Builder.Unit.Serial_Number"
1fcd 0533 | 3 | .STRTAB 0x0533->0x2266 ; "}?{ Check_Unit Target_Builder.Unit."
1fce 0557 | W | .STRTAB 0x0557->0x2279 ; "Target_Builder.Unit.Establish_Download_Time"
1fcf 0580 | | .STRTAB 0x0580->0x228f ; "Acquiring Remote Connection => "
1fd0 059e | | .STRTAB 0x059e->0x229f ; "Change Directory Context"
1fd1 05b4 | | .STRTAB 0x05b4->0x22ab ; "Change Library Context"
1fd2 05c8 | | .STRTAB 0x05c8->0x22b6 ; "Rs6000_Aix_Ibm"
1fd3 05d4 | | .STRTAB 0x05d4->0x22bd ; ".exe"
1fd4 05d6 | | .STRTAB 0x05d6->0x22bf ; "Target_Builder.Unit.Link (in Make_Closure)"
1fd5 05fe | | .STRTAB 0x05fe->0x22d4 ; "Transferring => "
1fd6 060d | | .STRTAB 0x060d->0x22dc ; "Retrieving remote update time for host unit => "
1fd7 063b | ; | .STRTAB 0x063b->0x22f4 ; "Elapsed time for setting download time => "
1fd8 0663 | c | .STRTAB 0x0663->0x2309 ; " seconds."
1fd9 066a | j | .STRTAB 0x066a->0x230e ; "Promoting => "
1fda 0676 | v | .STRTAB 0x0676->0x2315 ; "Promote"
1fdb 067b | { | .STRTAB 0x067b->0x2318 ; "?'IS(DOWNLOADABLE)"
1fdc 068b | | .STRTAB 0x068b->0x2321 ; "Unix"
1fdd 068d | | .STRTAB 0x068d->0x2323 ; "Other"
1fde 0690 | | .STRTAB 0x0690->0x2326 ; "<ALL_WORLDS>"
1fdf 069a | | .STRTAB 0x069a->0x232c ; "Failed while compiling closure of "
1fe0 06ba | | .STREND 0x06ba->0x233d
1fe1 5461 7267 |Targ| .STRTAB_STRINGS
233d 0000 0000 | | .XXX[0x3]
233f 0000 | |
2340 ; --------------------------------------------------------------------------------------
2340 ; Debug Table
2340 ; --------------------------------------------------------------------------------------
2340 0004 000d | | .DEBUG4 0x0004,0x000d,0xf66a,0x0000,0x0001,0x0000
2346 0000 0000 | | .BLANK 0000[0x35]
237b 0200 000d | | .XXX[0x3]
237d a40c | |
237e 0000 0000 | | .BLANK 0000[0x4]
2382 c000 0000 | | .XXX[0x15]
2384 0038 9658 | 8 X|
2386 8000 0000 | |
2388 0038 9678 | 8 x|
238a c000 0000 | |
238c 0038 9699 | 8 |
238e 0000 0000 | |
2390 0038 96b9 | 8 |
2392 4000 0000 |@ |
2394 0038 96d9 | 8 |
2396 8000 | |
2397 0000 0000 | | .BLANK 0000[0x27]
23be 003e efaa | > | .XXX[0xf]
23c0 1600 0003 | |
23c2 bc00 0000 | |
23c4 0001 c3fb | |
23c6 8800 0000 | |
23c8 0034 187a | 4 z|
23ca 1400 015a | Z|
23cc 2400 |$ |
23cd 0000 0000 | | .BLANK 0000[0x6]
23d3 0001 0000 | | .XXX[0x1c]
23d5 06d2 0600 | |
23d7 0000 0000 | |
23d9 0000 0060 | `|
23db 0000 0000 | |
23dd 1c4b dd60 | K `|
23df 0000 0000 | |
23e1 1c4b ed80 | K |
23e3 0000 0000 | |
23e5 1c4b fda0 | K |
23e7 0000 0000 | |
23e9 1c4c 0dc0 | L |
23eb 0000 0000 | |
23ed 1c4c 1de0 | L |
23ef 0000 0000 | | .BLANK 0000[0xe]
23fd 0713 0f90 | | .XXX[0x3]
23ff 0000 | |