|
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: 19456 (0x4c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 2420 |$ | .CONST 0x2420 ; 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 010f | | .CONST 0x010f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 007b | { | .CONST 0x007b ; 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 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
006a c247 | G | Store 0x1,0x47
006b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
006d c248 | H | Store 0x1,0x48
006e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0070 c249 | I | Store 0x1,0x49
0071 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
0073 c24a | J | Store 0x1,0x4a
0074 029a 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call,Visible,Unelaborated
0076 c24b | K | Store 0x1,0x4b
0077 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated
0079 c212 | | Store 0x1,0x12
007a 029a 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call,Visible,Unelaborated
007c c252 | R | Store 0x1,0x52
007d 029a 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call,Visible,Unelaborated
007f c24d | M | Store 0x1,0x4d
0080 029a 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call,Visible,Unelaborated
0082 c253 | S | Store 0x1,0x53
0083 029a 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call,Visible,Unelaborated
0085 c254 | T | Store 0x1,0x54
0086 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated
0088 c255 | U | Store 0x1,0x55
0089 029a 0b73 | s| Declare_Subprogram INIT_0b70,For_Outer_Call,Visible,Unelaborated
008b c256 | V | Store 0x1,0x56
008c 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated
008e c234 | 4 | Store 0x1,0x34
008f 029a 0c2b | +| Declare_Subprogram INIT_0c28,For_Outer_Call,Visible,Unelaborated
0091 c25f | _ | Store 0x1,0x5f
0092 029a 0cfb | | Declare_Subprogram INIT_0cf8,For_Outer_Call,Visible,Unelaborated
0094 c260 | ` | Store 0x1,0x60
0095 029a 0dab | | Declare_Subprogram INIT_0da8,For_Outer_Call,Visible,Unelaborated
0097 c257 | W | Store 0x1,0x57
0098 029a 0f63 | c| Declare_Subprogram INIT_0f60,For_Outer_Call,Visible,Unelaborated
009a c258 | X | Store 0x1,0x58
009b 029a 103b | ;| Declare_Subprogram INIT_1038,For_Outer_Call,Visible,Unelaborated
009d c259 | Y | Store 0x1,0x59
009e 029a 10a3 | | Declare_Subprogram INIT_10a0,For_Outer_Call,Visible,Unelaborated
00a0 c25a | Z | Store 0x1,0x5a
00a1 029a 110b | | Declare_Subprogram INIT_1108,For_Outer_Call,Visible,Unelaborated
00a3 c25b | [ | Store 0x1,0x5b
00a4 029a 1193 | | Declare_Subprogram INIT_1190,For_Outer_Call,Visible,Unelaborated
00a6 c25c | \ | Store 0x1,0x5c
00a7 029a 121b | | Declare_Subprogram INIT_1218,For_Outer_Call,Visible,Unelaborated
00a9 c25d | ] | Store 0x1,0x5d
00aa 029a 128b | | Declare_Subprogram INIT_1288,For_Outer_Call,Visible,Unelaborated
00ac c25e | ^ | Store 0x1,0x5e
00ad 029a 12f3 | | Declare_Subprogram INIT_12f0,For_Outer_Call,Visible,Unelaborated
00af c262 | b | Store 0x1,0x62
00b0 029a 1373 | s| Declare_Subprogram INIT_1370,For_Outer_Call,Visible,Unelaborated
00b2 c263 | c | Store 0x1,0x63
00b3 029a 13eb | | Declare_Subprogram INIT_13e8,For_Outer_Call,Visible,Unelaborated
00b5 c261 | a | Store 0x1,0x61
00b6 00bf | | Action Accept_Activation
00b7 00e1 | | Load_Encached Boolean_Cache
00b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b9 029d 143b | ;| Declare_Subprogram INIT_1438,For_Outer_Call
00bb 029d 144b | K| Declare_Subprogram INIT_1448,For_Outer_Call
00bd 029d 1493 | | Declare_Subprogram INIT_1490,For_Outer_Call
00bf 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00c2 00c7 | | Action Elaborate_Subprogram
00c3 029d 14c3 | | Declare_Subprogram INIT_14c0,For_Outer_Call
00c5 029d 14eb | | Declare_Subprogram INIT_14e8,For_Outer_Call
00c7 029d 14fb | | Declare_Subprogram INIT_14f8,For_Outer_Call
00c9 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
00d4 00c7 | | Action Elaborate_Subprogram
00d5 029d 1513 | | Declare_Subprogram INIT_1510,For_Outer_Call
00d7 029d 15cb | | Declare_Subprogram INIT_15c8,For_Outer_Call
00d9 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00da 00c7 | | Action Elaborate_Subprogram
00db 029d 1673 | s| Declare_Subprogram INIT_1670,For_Outer_Call
00dd 029d 16f3 | | Declare_Subprogram INIT_16f0,For_Outer_Call
00df 029d 170b | | Declare_Subprogram INIT_1708,For_Outer_Call
00e1 029d 1733 | 3| Declare_Subprogram INIT_1730,For_Outer_Call
00e3 029d 1783 | | Declare_Subprogram INIT_1780,For_Outer_Call
00e5 029d 183b | ;| Declare_Subprogram INIT_1838,For_Outer_Call
00e7 029d 1883 | | Declare_Subprogram INIT_1880,For_Outer_Call
00e9 029d 19ab | | Declare_Subprogram INIT_19a8,For_Outer_Call
00eb 029d 1a03 | | Declare_Subprogram INIT_1a00,For_Outer_Call
00ed 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
0100 00c7 | | Action Elaborate_Subprogram
0101 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
0102 00c7 | | Action Elaborate_Subprogram
0103 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
0104 00c7 | | Action Elaborate_Subprogram
0105 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
0106 00c7 | | Action Elaborate_Subprogram
0107 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
0108 00c7 | | Action Elaborate_Subprogram
0109 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
010a 00c7 | | Action Elaborate_Subprogram
010b 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
010c 00c7 | | Action Elaborate_Subprogram
010d 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
010e 00c7 | | Action Elaborate_Subprogram
010f BODY_0008:
010f 00bc | | Action Signal_Activated
0110 00bb | | Action Signal_Completion
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012e | . | .CONST 0x012e ; Address of begin
0119 0178 | x | .CONST 0x0178 ; Address of exception handler
011a 0005 | | .CONST 0x0005 ; Number of locals
011b INIT_0118:
011b e001 | | Load 0x0,0x1
011c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011e 02c7 | | Declare_Variable Any
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 e002 | | Load 0x0,0x2
0122 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0123 02c7 | | Declare_Variable Any
0124 00d8 | | Load_Top At_Offset_0
0125 1c00 | | Execute_Immediate Run_Utility,0x0
0126 4800 |H | Short_Literal 0x0
0127 e003 | | Load 0x0,0x3
0128 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0129 1c08 | | Execute_Immediate Run_Utility,0x8
012a 00d8 | | Load_Top At_Offset_0
012b 1c00 | | Execute_Immediate Run_Utility,0x0
012c 029f 1a1b | | Declare_Subprogram INIT_1a18,For_Call
012e BODY_0118:
012e 4800 |H | Short_Literal 0x0
012f 00da | | Load_Top At_Offset_2
0130 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0131 e5ff | | Load 0x2,-0x1
0132 0227 | ' | Execute Access,All_Reference
0133 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0134 e5fe | | Load 0x2,-0x2
0135 e002 | | Load 0x0,0x2
0136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0137 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0138 e001 | | Load 0x0,0x1
0139 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
013a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
013b c402 | | Store 0x2,0x2
013c 00db | | Load_Top At_Offset_3
013d e001 | | Load 0x0,0x1
013e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
013f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0140 6835 |h5 | Jump_Zero 0x176
0141 e5fc | | Load 0x2,-0x4
0142 4801 |H | Short_Literal 0x1
0143 4801 |H | Short_Literal 0x1
0144 e004 | | Load 0x0,0x4
0145 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0146 035b | [ | Declare_Type Array,Constrained
0147 0337 | 7 | Declare_Variable Array
0148 e5fe | | Load 0x2,-0x2
0149 e004 | | Load 0x0,0x4
014a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014b e004 | | Load 0x0,0x4
014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014d 0119 | | Execute Any,Check_In_Formal_Type
014e 4801 |H | Short_Literal 0x1
014f 00da | | Load_Top At_Offset_2
0150 01d6 | | Execute Vector,Field_Write
0151 607a |`z | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0000816f}
0152 e005 | | Load 0x0,0x5
0153 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0154 4801 |H | Short_Literal 0x1
0155 4802 |H | Short_Literal 0x2
0156 e004 | | Load 0x0,0x4
0157 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0158 035b | [ | Declare_Type Array,Constrained
0159 0337 | 7 | Declare_Variable Array
015a e5ff | | Load 0x2,-0x1
015b 0227 | ' | Execute Access,All_Reference
015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015d e001 | | Load 0x0,0x1
015e 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
015f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0160 e004 | | Load 0x0,0x4
0161 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0162 0119 | | Execute Any,Check_In_Formal_Type
0163 4801 |H | Short_Literal 0x1
0164 00da | | Load_Top At_Offset_2
0165 01d6 | | Execute Vector,Field_Write
0166 e5fe | | Load 0x2,-0x2
0167 e006 | | Load 0x0,0x6
0168 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0169 e004 | | Load 0x0,0x4
016a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016b 0119 | | Execute Any,Check_In_Formal_Type
016c 4802 |H | Short_Literal 0x2
016d 00da | | Load_Top At_Offset_2
016e 01d6 | | Execute Vector,Field_Write
016f 6058 |`X | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x0000810c}
0170 e005 | | Load 0x0,0x5
0171 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0172 00da | | Load_Top At_Offset_2
0173 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0174 00d9 | | Load_Top At_Offset_1
0175 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0176 8405 | | Call 0x2,0x5
0177 0831 | 1 | Execute_Immediate Raise,0x31
0178 TRAP_0118:
0178 e005 | | Load 0x0,0x5
0179 1b17 | | Execute Package,Field_Read,Field_Number 0x17
017a 010f | | Execute Exception,Equal
017b 6825 |h% | Jump_Zero 0x1a1
017c e005 | | Load 0x0,0x5
017d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017e 00db | | Load_Top At_Offset_3
017f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0180 e5fc | | Load 0x2,-0x4
0181 4801 |H | Short_Literal 0x1
0182 4802 |H | Short_Literal 0x2
0183 e004 | | Load 0x0,0x4
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 035b | [ | Declare_Type Array,Constrained
0186 0337 | 7 | Declare_Variable Array
0187 e5ff | | Load 0x2,-0x1
0188 0227 | ' | Execute Access,All_Reference
0189 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018a e001 | | Load 0x0,0x1
018b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
018c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
018d e004 | | Load 0x0,0x4
018e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018f 0119 | | Execute Any,Check_In_Formal_Type
0190 4801 |H | Short_Literal 0x1
0191 00da | | Load_Top At_Offset_2
0192 01d6 | | Execute Vector,Field_Write
0193 e5fe | | Load 0x2,-0x2
0194 e006 | | Load 0x0,0x6
0195 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0196 e004 | | Load 0x0,0x4
0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0198 0119 | | Execute Any,Check_In_Formal_Type
0199 4802 |H | Short_Literal 0x2
019a 00da | | Load_Top At_Offset_2
019b 01d6 | | Execute Vector,Field_Write
019c 602b |`+ | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x0000810c}
019d e005 | | Load 0x0,0x5
019e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
019f 00da | | Load_Top At_Offset_2
01a0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01a1 e5fc | | Load 0x2,-0x4
01a2 0092 2072 | r| Action Push_String_Extended,0x2072 ; "Target_Builder.Unit.Referencers"
01a4 e007 | | Load 0x0,0x7
01a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a6 4801 |H | Short_Literal 0x1
01a7 4802 |H | Short_Literal 0x2
01a8 e004 | | Load 0x0,0x4
01a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01aa 035b | [ | Declare_Type Array,Constrained
01ab 0337 | 7 | Declare_Variable Array
01ac e5ff | | Load 0x2,-0x1
01ad 0227 | ' | Execute Access,All_Reference
01ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01af e001 | | Load 0x0,0x1
01b0 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
01b1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b2 e004 | | Load 0x0,0x4
01b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b4 0119 | | Execute Any,Check_In_Formal_Type
01b5 4801 |H | Short_Literal 0x1
01b6 00da | | Load_Top At_Offset_2
01b7 01d6 | | Execute Vector,Field_Write
01b8 e5fe | | Load 0x2,-0x2
01b9 e006 | | Load 0x0,0x6
01ba 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01bb e004 | | Load 0x0,0x4
01bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bd 0119 | | Execute Any,Check_In_Formal_Type
01be 4802 |H | Short_Literal 0x2
01bf 00da | | Load_Top At_Offset_2
01c0 01d6 | | Execute Vector,Field_Write
01c1 6006 |` | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x0000810c}
01c2 e005 | | Load 0x0,0x5
01c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c4 00db | | Load_Top At_Offset_3
01c5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c6 00da | | Load_Top At_Offset_2
01c7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01c8 0000 0000 | | .LITERAL {0x00000000, 0x0000810c}
01cc 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e6 | | .CONST 0x01e6 ; Address of begin
01d1 0230 | 0 | .CONST 0x0230 ; Address of exception handler
01d2 0005 | | .CONST 0x0005 ; Number of locals
01d3 INIT_01d0:
01d3 e001 | | Load 0x0,0x1
01d4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d6 02c7 | | Declare_Variable Any
01d7 00d8 | | Load_Top At_Offset_0
01d8 1c00 | | Execute_Immediate Run_Utility,0x0
01d9 e002 | | Load 0x0,0x2
01da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01db 02c7 | | Declare_Variable Any
01dc 00d8 | | Load_Top At_Offset_0
01dd 1c00 | | Execute_Immediate Run_Utility,0x0
01de 4800 |H | Short_Literal 0x0
01df e003 | | Load 0x0,0x3
01e0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e1 1c08 | | Execute_Immediate Run_Utility,0x8
01e2 00d8 | | Load_Top At_Offset_0
01e3 1c00 | | Execute_Immediate Run_Utility,0x0
01e4 029f 1abb | | Declare_Subprogram INIT_1ab8,For_Call
01e6 BODY_01d0:
01e6 4800 |H | Short_Literal 0x0
01e7 00da | | Load_Top At_Offset_2
01e8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e9 e5ff | | Load 0x2,-0x1
01ea 0227 | ' | Execute Access,All_Reference
01eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ec e5fe | | Load 0x2,-0x2
01ed e002 | | Load 0x0,0x2
01ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ef 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01f0 e001 | | Load 0x0,0x1
01f1 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
01f2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01f3 c402 | | Store 0x2,0x2
01f4 00db | | Load_Top At_Offset_3
01f5 e001 | | Load 0x0,0x1
01f6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01f7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f8 6835 |h5 | Jump_Zero 0x22e
01f9 e5fc | | Load 0x2,-0x4
01fa 4801 |H | Short_Literal 0x1
01fb 4801 |H | Short_Literal 0x1
01fc e004 | | Load 0x0,0x4
01fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fe 035b | [ | Declare_Type Array,Constrained
01ff 0337 | 7 | Declare_Variable Array
0200 e5fe | | Load 0x2,-0x2
0201 e006 | | Load 0x0,0x6
0202 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0203 e004 | | Load 0x0,0x4
0204 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0205 0119 | | Execute Any,Check_In_Formal_Type
0206 4801 |H | Short_Literal 0x1
0207 00da | | Load_Top At_Offset_2
0208 01d6 | | Execute Vector,Field_Write
0209 67c2 |g | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0000816f}
020a e005 | | Load 0x0,0x5
020b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
020c 4801 |H | Short_Literal 0x1
020d 4802 |H | Short_Literal 0x2
020e e004 | | Load 0x0,0x4
020f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0210 035b | [ | Declare_Type Array,Constrained
0211 0337 | 7 | Declare_Variable Array
0212 e5ff | | Load 0x2,-0x1
0213 0227 | ' | Execute Access,All_Reference
0214 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0215 e001 | | Load 0x0,0x1
0216 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0217 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0218 e004 | | Load 0x0,0x4
0219 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021a 0119 | | Execute Any,Check_In_Formal_Type
021b 4801 |H | Short_Literal 0x1
021c 00da | | Load_Top At_Offset_2
021d 01d6 | | Execute Vector,Field_Write
021e e5fe | | Load 0x2,-0x2
021f e006 | | Load 0x0,0x6
0220 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0221 e004 | | Load 0x0,0x4
0222 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0223 0119 | | Execute Any,Check_In_Formal_Type
0224 4802 |H | Short_Literal 0x2
0225 00da | | Load_Top At_Offset_2
0226 01d6 | | Execute Vector,Field_Write
0227 605c |`\ | Indirect_Literal Discrete,0x284,{0x00000000, 0x0000810d}
0228 e005 | | Load 0x0,0x5
0229 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022a 00da | | Load_Top At_Offset_2
022b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
022c 00d9 | | Load_Top At_Offset_1
022d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
022e 8405 | | Call 0x2,0x5
022f 0831 | 1 | Execute_Immediate Raise,0x31
0230 TRAP_01d0:
0230 e005 | | Load 0x0,0x5
0231 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0232 010f | | Execute Exception,Equal
0233 6826 |h& | Jump_Zero 0x25a
0234 e005 | | Load 0x0,0x5
0235 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0236 00db | | Load_Top At_Offset_3
0237 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0238 e5fc | | Load 0x2,-0x4
0239 4801 |H | Short_Literal 0x1
023a 4802 |H | Short_Literal 0x2
023b e004 | | Load 0x0,0x4
023c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023d 035b | [ | Declare_Type Array,Constrained
023e 0337 | 7 | Declare_Variable Array
023f e5ff | | Load 0x2,-0x1
0240 0227 | ' | Execute Access,All_Reference
0241 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0242 e001 | | Load 0x0,0x1
0243 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0244 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0245 e004 | | Load 0x0,0x4
0246 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0247 0119 | | Execute Any,Check_In_Formal_Type
0248 4801 |H | Short_Literal 0x1
0249 00da | | Load_Top At_Offset_2
024a 01d6 | | Execute Vector,Field_Write
024b e402 | | Load 0x2,0x2
024c e001 | | Load 0x0,0x1
024d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
024e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024f e004 | | Load 0x0,0x4
0250 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0251 0119 | | Execute Any,Check_In_Formal_Type
0252 4802 |H | Short_Literal 0x2
0253 00da | | Load_Top At_Offset_2
0254 01d6 | | Execute Vector,Field_Write
0255 602e |`. | Indirect_Literal Discrete,0x284,{0x00000000, 0x0000810d}
0256 e005 | | Load 0x0,0x5
0257 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0258 00da | | Load_Top At_Offset_2
0259 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
025a e5fc | | Load 0x2,-0x4
025b 0092 2073 | s| Action Push_String_Extended,0x2073 ; "Target_Builder.Unit.Suppliers"
025d e007 | | Load 0x0,0x7
025e 180f | | Execute Package,Field_Execute,Field_Number 0xf
025f 4801 |H | Short_Literal 0x1
0260 4802 |H | Short_Literal 0x2
0261 e004 | | Load 0x0,0x4
0262 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0263 035b | [ | Declare_Type Array,Constrained
0264 0337 | 7 | Declare_Variable Array
0265 e5ff | | Load 0x2,-0x1
0266 0227 | ' | Execute Access,All_Reference
0267 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0268 e001 | | Load 0x0,0x1
0269 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
026a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
026b e004 | | Load 0x0,0x4
026c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026d 0119 | | Execute Any,Check_In_Formal_Type
026e 4801 |H | Short_Literal 0x1
026f 00da | | Load_Top At_Offset_2
0270 01d6 | | Execute Vector,Field_Write
0271 e402 | | Load 0x2,0x2
0272 e001 | | Load 0x0,0x1
0273 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0274 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0275 e004 | | Load 0x0,0x4
0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0277 0119 | | Execute Any,Check_In_Formal_Type
0278 4802 |H | Short_Literal 0x2
0279 00da | | Load_Top At_Offset_2
027a 01d6 | | Execute Vector,Field_Write
027b 6008 |` | Indirect_Literal Discrete,0x284,{0x00000000, 0x0000810d}
027c e005 | | Load 0x0,0x5
027d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027e 00db | | Load_Top At_Offset_3
027f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0280 00da | | Load_Top At_Offset_2
0281 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0282 0000 0000 | | .XXX[0x2]
0284 0000 0000 | | .LITERAL {0x00000000, 0x0000810d}
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02e9 | | .CONST 0x02e9 ; Address of begin
0289 03e9 | | .CONST 0x03e9 ; Address of exception handler
028a 0017 | | .CONST 0x0017 ; Number of locals
028b INIT_0288:
028b e001 | | Load 0x0,0x1
028c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
028d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
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 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0293 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0294 e002 | | Load 0x0,0x2
0295 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0296 02c7 | | Declare_Variable Any
0297 00d8 | | Load_Top At_Offset_0
0298 1c00 | | Execute_Immediate Run_Utility,0x0
0299 e002 | | Load 0x0,0x2
029a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
029b 02ff | | Declare_Variable Variant_Record
029c 00d8 | | Load_Top At_Offset_0
029d 1c00 | | Execute_Immediate Run_Utility,0x0
029e 00e3 | | Load_Encached Natural_Cache
029f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02a0 e005 | | Load 0x0,0x5
02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02a3 e002 | | Load 0x0,0x2
02a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02a6 02c7 | | Declare_Variable Any
02a7 00d8 | | Load_Top At_Offset_0
02a8 1c00 | | Execute_Immediate Run_Utility,0x0
02a9 e002 | | Load 0x0,0x2
02aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02ac 02c7 | | Declare_Variable Any
02ad 00d8 | | Load_Top At_Offset_0
02ae 1c00 | | Execute_Immediate Run_Utility,0x0
02af e008 | | Load 0x0,0x8
02b0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
02b1 e002 | | Load 0x0,0x2
02b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b3 02c7 | | Declare_Variable Any
02b4 00d8 | | Load_Top At_Offset_0
02b5 1c00 | | Execute_Immediate Run_Utility,0x0
02b6 e002 | | Load 0x0,0x2
02b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02b8 02ff | | Declare_Variable Variant_Record
02b9 00d8 | | Load_Top At_Offset_0
02ba 1c00 | | Execute_Immediate Run_Utility,0x0
02bb 00e1 | | Load_Encached Boolean_Cache
02bc 00e1 | | Load_Encached Boolean_Cache
02bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02be e5fe | | Load 0x2,-0x2
02bf e002 | | Load 0x0,0x2
02c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c1 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02c2 e5fb | | Load 0x2,-0x5
02c3 e009 | | Load 0x0,0x9
02c4 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
02c5 e002 | | Load 0x0,0x2
02c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c7 02c7 | | Declare_Variable Any
02c8 e5fa | | Load 0x2,-0x6
02c9 4801 |H | Short_Literal 0x1
02ca e5fe | | Load 0x2,-0x2
02cb e006 | | Load 0x0,0x6
02cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02cd a410 | | Store_Unchecked 0x2,0x10
02ce e5fa | | Load 0x2,-0x6
02cf e5fe | | Load 0x2,-0x2
02d0 e5fb | | Load 0x2,-0x5
02d1 e009 | | Load 0x0,0x9
02d2 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
02d3 e5fa | | Load 0x2,-0x6
02d4 e5fb | | Load 0x2,-0x5
02d5 e009 | | Load 0x0,0x9
02d6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
02d7 00db | | Load_Top At_Offset_3
02d8 e00a | | Load 0x0,0xa
02d9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02da 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02db 0007 | | Action Break_Optional
02dc e5fa | | Load 0x2,-0x6
02dd e5fe | | Load 0x2,-0x2
02de e5fb | | Load 0x2,-0x5
02df e009 | | Load 0x0,0x9
02e0 18ba | | Execute Package,Field_Execute,Field_Number 0xba
02e1 029f 1b33 | 3| Declare_Subprogram INIT_1b30,For_Call
02e3 029f 1b53 | S| Declare_Subprogram INIT_1b50,For_Call
02e5 029f 1bdb | | Declare_Subprogram INIT_1bd8,For_Call
02e7 029f 1d13 | | Declare_Subprogram INIT_1d10,For_Call
02e9 BODY_0288:
02e9 4800 |H | Short_Literal 0x0
02ea a5f9 | | Store_Unchecked 0x2,-0x7
02eb e407 | | Load 0x2,0x7
02ec e409 | | Load 0x2,0x9
02ed e408 | | Load 0x2,0x8
02ee e5fa | | Load 0x2,-0x6
02ef e5fe | | Load 0x2,-0x2
02f0 8273 | s | Call 0x1,0x73
02f1 c408 | | Store 0x2,0x8
02f2 c409 | | Store 0x2,0x9
02f3 c407 | | Store 0x2,0x7
02f4 4800 |H | Short_Literal 0x0
02f5 e407 | | Load 0x2,0x7
02f6 e005 | | Load 0x0,0x5
02f7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02f8 7003 |p | Jump_Nonzero 0x2fc
02f9 e00b | | Load 0x0,0xb
02fa 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02fb 0257 | W | Execute Discrete,Raise
02fc e5fa | | Load 0x2,-0x6
02fd e5fe | | Load 0x2,-0x2
02fe 827b | { | Call 0x1,0x7b
02ff e40c | | Load 0x2,0xc
0300 016d | m | Execute Variant_Record,Structure_Write
0301 4800 |H | Short_Literal 0x0
0302 e40c | | Load 0x2,0xc
0303 e00b | | Load 0x0,0xb
0304 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0305 e00b | | Load 0x0,0xb
0306 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0307 a40d | | Store_Unchecked 0x2,0xd
0308 e005 | | Load 0x0,0x5
0309 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030a e5fa | | Load 0x2,-0x6
030b e40d | | Load 0x2,0xd
030c e411 | | Load 0x2,0x11
030d 826d | m | Call 0x1,0x6d
030e c407 | | Store 0x2,0x7
030f 4800 |H | Short_Literal 0x0
0310 e407 | | Load 0x2,0x7
0311 e005 | | Load 0x0,0x5
0312 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0313 7003 |p | Jump_Nonzero 0x317
0314 e00b | | Load 0x0,0xb
0315 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0316 0257 | W | Execute Discrete,Raise
0317 4800 |H | Short_Literal 0x0
0318 e40c | | Load 0x2,0xc
0319 e00b | | Load 0x0,0xb
031a 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
031b e00b | | Load 0x0,0xb
031c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
031d a40e | | Store_Unchecked 0x2,0xe
031e e40d | | Load 0x2,0xd
031f 6820 |h | Jump_Zero 0x340
0320 e5fa | | Load 0x2,-0x6
0321 4801 |H | Short_Literal 0x1
0322 4802 |H | Short_Literal 0x2
0323 e004 | | Load 0x0,0x4
0324 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0325 035b | [ | Declare_Type Array,Constrained
0326 0337 | 7 | Declare_Variable Array
0327 e5fe | | Load 0x2,-0x2
0328 e002 | | Load 0x0,0x2
0329 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
032a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
032b e004 | | Load 0x0,0x4
032c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032d e004 | | Load 0x0,0x4
032e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032f 0119 | | Execute Any,Check_In_Formal_Type
0330 4801 |H | Short_Literal 0x1
0331 00da | | Load_Top At_Offset_2
0332 01d6 | | Execute Vector,Field_Write
0333 0092 2074 | t| Action Push_String_Extended,0x2074 ; "Link"
0335 e004 | | Load 0x0,0x4
0336 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0337 e004 | | Load 0x0,0x4
0338 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0339 0119 | | Execute Any,Check_In_Formal_Type
033a 4802 |H | Short_Literal 0x2
033b 00da | | Load_Top At_Offset_2
033c 01d6 | | Execute Vector,Field_Write
033d 616e |an | Indirect_Literal Discrete,0x4ac,{0x00000000, 0x0000817a}
033e e005 | | Load 0x0,0x5
033f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0340 e5ff | | Load 0x2,-0x1
0341 0227 | ' | Execute Access,All_Reference
0342 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0343 e5fe | | Load 0x2,-0x2
0344 e002 | | Load 0x0,0x2
0345 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0346 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0347 e001 | | Load 0x0,0x1
0348 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0349 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
034a c402 | | Store 0x2,0x2
034b 4801 |H | Short_Literal 0x1
034c 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
034e e412 | | Load 0x2,0x12
034f e00c | | Load 0x0,0xc
0350 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0351 6829 |h) | Jump_Zero 0x37b
0352 e5fa | | Load 0x2,-0x6
0353 4801 |H | Short_Literal 0x1
0354 4801 |H | Short_Literal 0x1
0355 e004 | | Load 0x0,0x4
0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0357 035b | [ | Declare_Type Array,Constrained
0358 0337 | 7 | Declare_Variable Array
0359 e5fe | | Load 0x2,-0x2
035a e006 | | Load 0x0,0x6
035b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
035c e004 | | Load 0x0,0x4
035d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035e 0119 | | Execute Any,Check_In_Formal_Type
035f 4801 |H | Short_Literal 0x1
0360 00da | | Load_Top At_Offset_2
0361 01d6 | | Execute Vector,Field_Write
0362 6145 |aE | Indirect_Literal Discrete,0x4a8,{0x00000000, 0x00008111}
0363 e005 | | Load 0x0,0x5
0364 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0365 4801 |H | Short_Literal 0x1
0366 4801 |H | Short_Literal 0x1
0367 e004 | | Load 0x0,0x4
0368 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0369 035b | [ | Declare_Type Array,Constrained
036a 0337 | 7 | Declare_Variable Array
036b e5fe | | Load 0x2,-0x2
036c e006 | | Load 0x0,0x6
036d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
036e e004 | | Load 0x0,0x4
036f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0370 0119 | | Execute Any,Check_In_Formal_Type
0371 4801 |H | Short_Literal 0x1
0372 00da | | Load_Top At_Offset_2
0373 01d6 | | Execute Vector,Field_Write
0374 612f |a/ | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
0375 e005 | | Load 0x0,0x5
0376 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0377 a5f9 | | Store_Unchecked 0x2,-0x7
0378 e00b | | Load 0x0,0xb
0379 1b19 | | Execute Package,Field_Read,Field_Number 0x19
037a 0257 | W | Execute Discrete,Raise
037b e402 | | Load 0x2,0x2
037c e001 | | Load 0x0,0x1
037d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
037e 180f | | Execute Package,Field_Execute,Field_Number 0xf
037f 6831 |h1 | Jump_Zero 0x3b1
0380 e5fa | | Load 0x2,-0x6
0381 4801 |H | Short_Literal 0x1
0382 4801 |H | Short_Literal 0x1
0383 e004 | | Load 0x0,0x4
0384 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0385 035b | [ | Declare_Type Array,Constrained
0386 0337 | 7 | Declare_Variable Array
0387 e5fe | | Load 0x2,-0x2
0388 e006 | | Load 0x0,0x6
0389 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
038a e004 | | Load 0x0,0x4
038b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038c 0119 | | Execute Any,Check_In_Formal_Type
038d 4801 |H | Short_Literal 0x1
038e 00da | | Load_Top At_Offset_2
038f 01d6 | | Execute Vector,Field_Write
0390 610f |a | Indirect_Literal Discrete,0x4a0,{0x00000000, 0x0000816f}
0391 e005 | | Load 0x0,0x5
0392 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0393 4801 |H | Short_Literal 0x1
0394 4802 |H | Short_Literal 0x2
0395 e004 | | Load 0x0,0x4
0396 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0397 035b | [ | Declare_Type Array,Constrained
0398 0337 | 7 | Declare_Variable Array
0399 e004 | | Load 0x0,0x4
039a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
039b e004 | | Load 0x0,0x4
039c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
039d 0119 | | Execute Any,Check_In_Formal_Type
039e 4801 |H | Short_Literal 0x1
039f 00da | | Load_Top At_Offset_2
03a0 01d6 | | Execute Vector,Field_Write
03a1 e5fe | | Load 0x2,-0x2
03a2 e006 | | Load 0x0,0x6
03a3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03a4 e004 | | Load 0x0,0x4
03a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a6 0119 | | Execute Any,Check_In_Formal_Type
03a7 4802 |H | Short_Literal 0x2
03a8 00da | | Load_Top At_Offset_2
03a9 01d6 | | Execute Vector,Field_Write
03aa 60f1 |` | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
03ab e005 | | Load 0x0,0x5
03ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ad a5f9 | | Store_Unchecked 0x2,-0x7
03ae e00b | | Load 0x0,0xb
03af 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03b0 0257 | W | Execute Discrete,Raise
03b1 8416 | | Call 0x2,0x16
03b2 6802 |h | Jump_Zero 0x3b5
03b3 8415 | | Call 0x2,0x15
03b4 782c |x, | Jump 0x3e1
03b5 e5fc | | Load 0x2,-0x4
03b6 680a |h | Jump_Zero 0x3c1
03b7 e407 | | Load 0x2,0x7
03b8 8417 | | Call 0x2,0x17
03b9 c407 | | Store 0x2,0x7
03ba 4800 |H | Short_Literal 0x0
03bb e407 | | Load 0x2,0x7
03bc e005 | | Load 0x0,0x5
03bd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03be 6822 |h" | Jump_Zero 0x3e1
03bf 8415 | | Call 0x2,0x15
03c0 7820 |x | Jump 0x3e1
03c1 4801 |H | Short_Literal 0x1
03c2 4802 |H | Short_Literal 0x2
03c3 e004 | | Load 0x0,0x4
03c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c5 035b | [ | Declare_Type Array,Constrained
03c6 0337 | 7 | Declare_Variable Array
03c7 0092 2076 | v| Action Push_String_Extended,0x2076 ; "There are un-Coded Units."
03c9 e004 | | Load 0x0,0x4
03ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03cb e004 | | Load 0x0,0x4
03cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03cd 0119 | | Execute Any,Check_In_Formal_Type
03ce 4801 |H | Short_Literal 0x1
03cf 00da | | Load_Top At_Offset_2
03d0 01d6 | | Execute Vector,Field_Write
03d1 e404 | | Load 0x2,0x4
03d2 e006 | | Load 0x0,0x6
03d3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03d4 e004 | | Load 0x0,0x4
03d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d6 0119 | | Execute Any,Check_In_Formal_Type
03d7 4802 |H | Short_Literal 0x2
03d8 00da | | Load_Top At_Offset_2
03d9 01d6 | | Execute Vector,Field_Write
03da 60c1 |` | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
03db e005 | | Load 0x0,0x5
03dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03dd a407 | | Store_Unchecked 0x2,0x7
03de e00b | | Load 0x0,0xb
03df 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03e0 0257 | W | Execute Discrete,Raise
03e1 e407 | | Load 0x2,0x7
03e2 a5f9 | | Store_Unchecked 0x2,-0x7
03e3 e407 | | Load 0x2,0x7
03e4 e5fa | | Load 0x2,-0x6
03e5 e409 | | Load 0x2,0x9
03e6 8274 | t | Call 0x1,0x74
03e7 c407 | | Store 0x2,0x7
03e8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03e9 TRAP_0288:
03e9 e00b | | Load 0x0,0xb
03ea 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03eb 010f | | Execute Exception,Equal
03ec 6808 |h | Jump_Zero 0x3f5
03ed e407 | | Load 0x2,0x7
03ee a5f9 | | Store_Unchecked 0x2,-0x7
03ef e407 | | Load 0x2,0x7
03f0 e5fa | | Load 0x2,-0x6
03f1 e409 | | Load 0x2,0x9
03f2 8274 | t | Call 0x1,0x74
03f3 c407 | | Store 0x2,0x7
03f4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
03f5 e00b | | Load 0x0,0xb
03f6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03f7 010f | | Execute Exception,Equal
03f8 6837 |h7 | Jump_Zero 0x430
03f9 4801 |H | Short_Literal 0x1
03fa 4802 |H | Short_Literal 0x2
03fb e004 | | Load 0x0,0x4
03fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fd 035b | [ | Declare_Type Array,Constrained
03fe 0337 | 7 | Declare_Variable Array
03ff e004 | | Load 0x0,0x4
0400 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0401 e004 | | Load 0x0,0x4
0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0403 0119 | | Execute Any,Check_In_Formal_Type
0404 4801 |H | Short_Literal 0x1
0405 00da | | Load_Top At_Offset_2
0406 01d6 | | Execute Vector,Field_Write
0407 e5fe | | Load 0x2,-0x2
0408 e006 | | Load 0x0,0x6
0409 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
040a e004 | | Load 0x0,0x4
040b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040c 0119 | | Execute Any,Check_In_Formal_Type
040d 4802 |H | Short_Literal 0x2
040e 00da | | Load_Top At_Offset_2
040f 01d6 | | Execute Vector,Field_Write
0410 608b |` | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
0411 e005 | | Load 0x0,0x5
0412 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0413 a5f9 | | Store_Unchecked 0x2,-0x7
0414 e5fa | | Load 0x2,-0x6
0415 4801 |H | Short_Literal 0x1
0416 4802 |H | Short_Literal 0x2
0417 e004 | | Load 0x0,0x4
0418 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0419 035b | [ | Declare_Type Array,Constrained
041a 0337 | 7 | Declare_Variable Array
041b e004 | | Load 0x0,0x4
041c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
041d e004 | | Load 0x0,0x4
041e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041f 0119 | | Execute Any,Check_In_Formal_Type
0420 4801 |H | Short_Literal 0x1
0421 00da | | Load_Top At_Offset_2
0422 01d6 | | Execute Vector,Field_Write
0423 e5fe | | Load 0x2,-0x2
0424 e006 | | Load 0x0,0x6
0425 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0426 e004 | | Load 0x0,0x4
0427 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0428 0119 | | Execute Any,Check_In_Formal_Type
0429 4802 |H | Short_Literal 0x2
042a 00da | | Load_Top At_Offset_2
042b 01d6 | | Execute Vector,Field_Write
042c 606f |`o | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
042d e005 | | Load 0x0,0x5
042e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
042f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0430 e005 | | Load 0x0,0x5
0431 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0432 010f | | Execute Exception,Equal
0433 6824 |h$ | Jump_Zero 0x458
0434 e005 | | Load 0x0,0x5
0435 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0436 a5f9 | | Store_Unchecked 0x2,-0x7
0437 e407 | | Load 0x2,0x7
0438 e5fa | | Load 0x2,-0x6
0439 e409 | | Load 0x2,0x9
043a 8274 | t | Call 0x1,0x74
043b c407 | | Store 0x2,0x7
043c e5fa | | Load 0x2,-0x6
043d 4801 |H | Short_Literal 0x1
043e 4802 |H | Short_Literal 0x2
043f e004 | | Load 0x0,0x4
0440 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0441 035b | [ | Declare_Type Array,Constrained
0442 0337 | 7 | Declare_Variable Array
0443 e004 | | Load 0x0,0x4
0444 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0445 e004 | | Load 0x0,0x4
0446 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0447 0119 | | Execute Any,Check_In_Formal_Type
0448 4801 |H | Short_Literal 0x1
0449 00da | | Load_Top At_Offset_2
044a 01d6 | | Execute Vector,Field_Write
044b e5fe | | Load 0x2,-0x2
044c e006 | | Load 0x0,0x6
044d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
044e e004 | | Load 0x0,0x4
044f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0450 0119 | | Execute Any,Check_In_Formal_Type
0451 4802 |H | Short_Literal 0x2
0452 00da | | Load_Top At_Offset_2
0453 01d6 | | Execute Vector,Field_Write
0454 6047 |`G | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
0455 e005 | | Load 0x0,0x5
0456 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0457 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0458 e407 | | Load 0x2,0x7
0459 e5fa | | Load 0x2,-0x6
045a e409 | | Load 0x2,0x9
045b 8274 | t | Call 0x1,0x74
045c c407 | | Store 0x2,0x7
045d 4801 |H | Short_Literal 0x1
045e 4802 |H | Short_Literal 0x2
045f e004 | | Load 0x0,0x4
0460 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0461 035b | [ | Declare_Type Array,Constrained
0462 0337 | 7 | Declare_Variable Array
0463 e004 | | Load 0x0,0x4
0464 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0465 e004 | | Load 0x0,0x4
0466 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0467 0119 | | Execute Any,Check_In_Formal_Type
0468 4801 |H | Short_Literal 0x1
0469 00da | | Load_Top At_Offset_2
046a 01d6 | | Execute Vector,Field_Write
046b e5fe | | Load 0x2,-0x2
046c e006 | | Load 0x0,0x6
046d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
046e e004 | | Load 0x0,0x4
046f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0470 0119 | | Execute Any,Check_In_Formal_Type
0471 4802 |H | Short_Literal 0x2
0472 00da | | Load_Top At_Offset_2
0473 01d6 | | Execute Vector,Field_Write
0474 6027 |`' | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
0475 e005 | | Load 0x0,0x5
0476 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0477 a5f9 | | Store_Unchecked 0x2,-0x7
0478 e5fa | | Load 0x2,-0x6
0479 4801 |H | Short_Literal 0x1
047a 4802 |H | Short_Literal 0x2
047b e004 | | Load 0x0,0x4
047c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047d 035b | [ | Declare_Type Array,Constrained
047e 0337 | 7 | Declare_Variable Array
047f e004 | | Load 0x0,0x4
0480 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0481 e004 | | Load 0x0,0x4
0482 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0483 0119 | | Execute Any,Check_In_Formal_Type
0484 4801 |H | Short_Literal 0x1
0485 00da | | Load_Top At_Offset_2
0486 01d6 | | Execute Vector,Field_Write
0487 e5fe | | Load 0x2,-0x2
0488 e006 | | Load 0x0,0x6
0489 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
048a e004 | | Load 0x0,0x4
048b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048c 0119 | | Execute Any,Check_In_Formal_Type
048d 4802 |H | Short_Literal 0x2
048e 00da | | Load_Top At_Offset_2
048f 01d6 | | Execute Vector,Field_Write
0490 600b |` | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00008126}
0491 e005 | | Load 0x0,0x5
0492 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0493 e5fa | | Load 0x2,-0x6
0494 0092 2077 | w| Action Push_String_Extended,0x2077 ; "Target_Builder.Unit.Link"
0496 e007 | | Load 0x0,0x7
0497 180f | | Execute Package,Field_Execute,Field_Number 0xf
0498 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0499 0000 0000 | | .XXX[0x3]
049b 0000 | |
049c 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
04a0 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
04a4 0000 0000 | | .LITERAL {0x00000000, 0x0000811a}
04a8 0000 0000 | | .LITERAL {0x00000000, 0x00008111}
04ac 0000 0000 | | .LITERAL {0x00000000, 0x0000817a}
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 051c | | .CONST 0x051c ; Address of begin
04b1 06b0 | | .CONST 0x06b0 ; Address of exception handler
04b2 001a | | .CONST 0x001a ; Number of locals
04b3 INIT_04b0:
04b3 e001 | | Load 0x0,0x1
04b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b6 02c7 | | Declare_Variable Any
04b7 00d8 | | Load_Top At_Offset_0
04b8 1c00 | | Execute_Immediate Run_Utility,0x0
04b9 e002 | | Load 0x0,0x2
04ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bb 00e1 | | Load_Encached Boolean_Cache
04bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04bd 00e1 | | Load_Encached Boolean_Cache
04be 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04bf e002 | | Load 0x0,0x2
04c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04c1 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04c2 02c7 | | Declare_Variable Any
04c3 00d8 | | Load_Top At_Offset_0
04c4 1c00 | | Execute_Immediate Run_Utility,0x0
04c5 e001 | | Load 0x0,0x1
04c6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
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 e002 | | Load 0x0,0x2
04cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04cd 02c7 | | Declare_Variable Any
04ce 00d8 | | Load_Top At_Offset_0
04cf 1c00 | | Execute_Immediate Run_Utility,0x0
04d0 e002 | | Load 0x0,0x2
04d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d2 02c7 | | Declare_Variable Any
04d3 00d8 | | Load_Top At_Offset_0
04d4 1c00 | | Execute_Immediate Run_Utility,0x0
04d5 e002 | | Load 0x0,0x2
04d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04d8 02c7 | | Declare_Variable Any
04d9 00d8 | | Load_Top At_Offset_0
04da 1c00 | | Execute_Immediate Run_Utility,0x0
04db e002 | | Load 0x0,0x2
04dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04dd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04de 02c7 | | Declare_Variable Any
04df 00d8 | | Load_Top At_Offset_0
04e0 1c00 | | Execute_Immediate Run_Utility,0x0
04e1 e005 | | Load 0x0,0x5
04e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04e4 e008 | | Load 0x0,0x8
04e5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
04e6 e002 | | Load 0x0,0x2
04e7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04e8 02ff | | Declare_Variable Variant_Record
04e9 00d8 | | Load_Top At_Offset_0
04ea 1c00 | | Execute_Immediate Run_Utility,0x0
04eb 00e1 | | Load_Encached Boolean_Cache
04ec 00e1 | | Load_Encached Boolean_Cache
04ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04ee 00e1 | | Load_Encached Boolean_Cache
04ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04f0 00e1 | | Load_Encached Boolean_Cache
04f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04f2 e00d | | Load 0x0,0xd
04f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f4 02c7 | | Declare_Variable Any
04f5 00d8 | | Load_Top At_Offset_0
04f6 1c00 | | Execute_Immediate Run_Utility,0x0
04f7 e00d | | Load 0x0,0xd
04f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f9 02c7 | | Declare_Variable Any
04fa 00d8 | | Load_Top At_Offset_0
04fb 1c00 | | Execute_Immediate Run_Utility,0x0
04fc e002 | | Load 0x0,0x2
04fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04fe 02c7 | | Declare_Variable Any
04ff e5fc | | Load 0x2,-0x4
0500 4801 |H | Short_Literal 0x1
0501 e5fe | | Load 0x2,-0x2
0502 e006 | | Load 0x0,0x6
0503 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0504 a415 | | Store_Unchecked 0x2,0x15
0505 e5fc | | Load 0x2,-0x4
0506 e5fd | | Load 0x2,-0x3
0507 e009 | | Load 0x0,0x9
0508 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0509 00da | | Load_Top At_Offset_2
050a e00a | | Load 0x0,0xa
050b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
050c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
050d 0007 | | Action Break_Optional
050e e5fc | | Load 0x2,-0x4
050f e5fe | | Load 0x2,-0x2
0510 e5fd | | Load 0x2,-0x3
0511 e009 | | Load 0x0,0x9
0512 18ba | | Execute Package,Field_Execute,Field_Number 0xba
0513 e5fc | | Load 0x2,-0x4
0514 e5fe | | Load 0x2,-0x2
0515 e5fd | | Load 0x2,-0x3
0516 e009 | | Load 0x0,0x9
0517 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
0518 029f 1da3 | | Declare_Subprogram INIT_1da0,For_Call
051a 029f 1e3b | ;| Declare_Subprogram INIT_1e38,For_Call
051c BODY_04b0:
051c 4800 |H | Short_Literal 0x0
051d a5fb | | Store_Unchecked 0x2,-0x5
051e e40c | | Load 0x2,0xc
051f e40b | | Load 0x2,0xb
0520 e40a | | Load 0x2,0xa
0521 e5fc | | Load 0x2,-0x4
0522 e5fe | | Load 0x2,-0x2
0523 8273 | s | Call 0x1,0x73
0524 c40a | | Store 0x2,0xa
0525 c40b | | Store 0x2,0xb
0526 c40c | | Store 0x2,0xc
0527 4800 |H | Short_Literal 0x0
0528 e40c | | Load 0x2,0xc
0529 e005 | | Load 0x0,0x5
052a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
052b 7003 |p | Jump_Nonzero 0x52f
052c e00b | | Load 0x0,0xb
052d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
052e 0257 | W | Execute Discrete,Raise
052f e5fc | | Load 0x2,-0x4
0530 e5fe | | Load 0x2,-0x2
0531 827b | { | Call 0x1,0x7b
0532 e40e | | Load 0x2,0xe
0533 016d | m | Execute Variant_Record,Structure_Write
0534 4800 |H | Short_Literal 0x0
0535 e40e | | Load 0x2,0xe
0536 e00b | | Load 0x0,0xb
0537 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0538 e00b | | Load 0x0,0xb
0539 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
053a a40f | | Store_Unchecked 0x2,0xf
053b e005 | | Load 0x0,0x5
053c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053d e5fc | | Load 0x2,-0x4
053e e40f | | Load 0x2,0xf
053f e418 | | Load 0x2,0x18
0540 826d | m | Call 0x1,0x6d
0541 c40c | | Store 0x2,0xc
0542 4800 |H | Short_Literal 0x0
0543 e40c | | Load 0x2,0xc
0544 e005 | | Load 0x0,0x5
0545 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0546 7003 |p | Jump_Nonzero 0x54a
0547 e00b | | Load 0x0,0xb
0548 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0549 0257 | W | Execute Discrete,Raise
054a 4800 |H | Short_Literal 0x0
054b e40e | | Load 0x2,0xe
054c e00b | | Load 0x0,0xb
054d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
054e e00b | | Load 0x0,0xb
054f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0550 a410 | | Store_Unchecked 0x2,0x10
0551 e40e | | Load 0x2,0xe
0552 e5fd | | Load 0x2,-0x3
0553 e00e | | Load 0x0,0xe
0554 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0555 a411 | | Store_Unchecked 0x2,0x11
0556 4800 |H | Short_Literal 0x0
0557 e40e | | Load 0x2,0xe
0558 e00b | | Load 0x0,0xb
0559 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
055a e00b | | Load 0x0,0xb
055b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
055c a412 | | Store_Unchecked 0x2,0x12
055d e40f | | Load 0x2,0xf
055e 6820 |h | Jump_Zero 0x57f
055f e5fc | | Load 0x2,-0x4
0560 4801 |H | Short_Literal 0x1
0561 4802 |H | Short_Literal 0x2
0562 e004 | | Load 0x0,0x4
0563 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0564 035b | [ | Declare_Type Array,Constrained
0565 0337 | 7 | Declare_Variable Array
0566 e5fe | | Load 0x2,-0x2
0567 e002 | | Load 0x0,0x2
0568 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0569 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
056a e004 | | Load 0x0,0x4
056b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
056c e004 | | Load 0x0,0x4
056d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056e 0119 | | Execute Any,Check_In_Formal_Type
056f 4801 |H | Short_Literal 0x1
0570 00da | | Load_Top At_Offset_2
0571 01d6 | | Execute Vector,Field_Write
0572 0092 2078 | x| Action Push_String_Extended,0x2078 ; "Compile"
0574 e004 | | Load 0x0,0x4
0575 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0576 e004 | | Load 0x0,0x4
0577 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0578 0119 | | Execute Any,Check_In_Formal_Type
0579 4802 |H | Short_Literal 0x2
057a 00da | | Load_Top At_Offset_2
057b 01d6 | | Execute Vector,Field_Write
057c 672f |g/ | Indirect_Literal Discrete,0x4ac,{0x00000000, 0x0000817a}
057d e005 | | Load 0x0,0x5
057e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
057f 4801 |H | Short_Literal 0x1
0580 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
0582 e416 | | Load 0x2,0x16
0583 e00c | | Load 0x0,0xc
0584 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0585 6829 |h) | Jump_Zero 0x5af
0586 e5fc | | Load 0x2,-0x4
0587 4801 |H | Short_Literal 0x1
0588 4801 |H | Short_Literal 0x1
0589 e004 | | Load 0x0,0x4
058a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
058b 035b | [ | Declare_Type Array,Constrained
058c 0337 | 7 | Declare_Variable Array
058d e5fe | | Load 0x2,-0x2
058e e004 | | Load 0x0,0x4
058f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0590 e004 | | Load 0x0,0x4
0591 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0592 0119 | | Execute Any,Check_In_Formal_Type
0593 4801 |H | Short_Literal 0x1
0594 00da | | Load_Top At_Offset_2
0595 01d6 | | Execute Vector,Field_Write
0596 6711 |g | Indirect_Literal Discrete,0x4a8,{0x00000000, 0x00008111}
0597 e005 | | Load 0x0,0x5
0598 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0599 4801 |H | Short_Literal 0x1
059a 4801 |H | Short_Literal 0x1
059b e004 | | Load 0x0,0x4
059c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
059d 035b | [ | Declare_Type Array,Constrained
059e 0337 | 7 | Declare_Variable Array
059f e5fe | | Load 0x2,-0x2
05a0 e004 | | Load 0x0,0x4
05a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05a2 e004 | | Load 0x0,0x4
05a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05a4 0119 | | Execute Any,Check_In_Formal_Type
05a5 4801 |H | Short_Literal 0x1
05a6 00da | | Load_Top At_Offset_2
05a7 01d6 | | Execute Vector,Field_Write
05a8 66fb |f | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
05a9 e005 | | Load 0x0,0x5
05aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ab a5fb | | Store_Unchecked 0x2,-0x5
05ac e00b | | Load 0x0,0xb
05ad 1b19 | | Execute Package,Field_Read,Field_Number 0x19
05ae 0257 | W | Execute Discrete,Raise
05af e5ff | | Load 0x2,-0x1
05b0 0227 | ' | Execute Access,All_Reference
05b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05b2 e5fe | | Load 0x2,-0x2
05b3 e002 | | Load 0x0,0x2
05b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05b5 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05b6 e001 | | Load 0x0,0x1
05b7 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
05b8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
05b9 c402 | | Store 0x2,0x2
05ba e402 | | Load 0x2,0x2
05bb e001 | | Load 0x0,0x1
05bc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
05bd 180f | | Execute Package,Field_Execute,Field_Number 0xf
05be 6829 |h) | Jump_Zero 0x5e8
05bf e5fc | | Load 0x2,-0x4
05c0 4801 |H | Short_Literal 0x1
05c1 4801 |H | Short_Literal 0x1
05c2 e004 | | Load 0x0,0x4
05c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c4 035b | [ | Declare_Type Array,Constrained
05c5 0337 | 7 | Declare_Variable Array
05c6 e5fe | | Load 0x2,-0x2
05c7 e006 | | Load 0x0,0x6
05c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
05c9 e004 | | Load 0x0,0x4
05ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05cb 0119 | | Execute Any,Check_In_Formal_Type
05cc 4801 |H | Short_Literal 0x1
05cd 00da | | Load_Top At_Offset_2
05ce 01d6 | | Execute Vector,Field_Write
05cf 66d0 |f | Indirect_Literal Discrete,0x4a0,{0x00000000, 0x0000816f}
05d0 e005 | | Load 0x0,0x5
05d1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05d2 4801 |H | Short_Literal 0x1
05d3 4801 |H | Short_Literal 0x1
05d4 e004 | | Load 0x0,0x4
05d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05d6 035b | [ | Declare_Type Array,Constrained
05d7 0337 | 7 | Declare_Variable Array
05d8 e5fe | | Load 0x2,-0x2
05d9 e006 | | Load 0x0,0x6
05da 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
05db e004 | | Load 0x0,0x4
05dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05dd 0119 | | Execute Any,Check_In_Formal_Type
05de 4801 |H | Short_Literal 0x1
05df 00da | | Load_Top At_Offset_2
05e0 01d6 | | Execute Vector,Field_Write
05e1 66c2 |f | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
05e2 e005 | | Load 0x0,0x5
05e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05e4 a5fb | | Store_Unchecked 0x2,-0x5
05e5 e00b | | Load 0x0,0xb
05e6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
05e7 0257 | W | Execute Discrete,Raise
05e8 e5fe | | Load 0x2,-0x2
05e9 c408 | | Store 0x2,0x8
05ea e402 | | Load 0x2,0x2
05eb c407 | | Store 0x2,0x7
05ec e005 | | Load 0x0,0x5
05ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ee 00e1 | | Load_Encached Boolean_Cache
05ef e5fc | | Load 0x2,-0x4
05f0 e408 | | Load 0x2,0x8
05f1 e00f | | Load 0x0,0xf
05f2 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
05f3 c405 | | Store 0x2,0x5
05f4 c40c | | Store 0x2,0xc
05f5 4800 |H | Short_Literal 0x0
05f6 e40c | | Load 0x2,0xc
05f7 e005 | | Load 0x0,0x5
05f8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05f9 7003 |p | Jump_Nonzero 0x5fd
05fa e005 | | Load 0x0,0x5
05fb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05fc 0257 | W | Execute Discrete,Raise
05fd e405 | | Load 0x2,0x5
05fe 686a |hj | Jump_Zero 0x669
05ff e5fc | | Load 0x2,-0x4
0600 e408 | | Load 0x2,0x8
0601 e00f | | Load 0x0,0xf
0602 1873 | s | Execute Package,Field_Execute,Field_Number 0x73
0603 6801 |h | Jump_Zero 0x605
0604 841a | | Call 0x2,0x1a
0605 e005 | | Load 0x0,0x5
0606 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0607 e406 | | Load 0x2,0x6
0608 0120 | | Execute Any,Is_Value
0609 6804 |h | Jump_Zero 0x60e
060a e002 | | Load 0x0,0x2
060b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
060c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
060d 7801 |x | Jump 0x60f
060e e406 | | Load 0x2,0x6
060f e5fc | | Load 0x2,-0x4
0610 e408 | | Load 0x2,0x8
0611 e00f | | Load 0x0,0xf
0612 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0613 c406 | | Store 0x2,0x6
0614 c40c | | Store 0x2,0xc
0615 4800 |H | Short_Literal 0x0
0616 e40c | | Load 0x2,0xc
0617 e005 | | Load 0x0,0x5
0618 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0619 7003 |p | Jump_Nonzero 0x61d
061a e005 | | Load 0x0,0x5
061b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
061c 0257 | W | Execute Discrete,Raise
061d 4801 |H | Short_Literal 0x1
061e a404 | | Store_Unchecked 0x2,0x4
061f 00cf | | Action Mark_Auxiliary
0620 7841 |xA | Jump 0x662
0621 e002 | | Load 0x0,0x2
0622 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0623 e408 | | Load 0x2,0x8
0624 0120 | | Execute Any,Is_Value
0625 6803 |h | Jump_Zero 0x629
0626 e002 | | Load 0x0,0x2
0627 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0628 7801 |x | Jump 0x62a
0629 e408 | | Load 0x2,0x8
062a e406 | | Load 0x2,0x6
062b e002 | | Load 0x0,0x2
062c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
062d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
062e c408 | | Store 0x2,0x8
062f c403 | | Store 0x2,0x3
0630 e403 | | Load 0x2,0x3
0631 6803 |h | Jump_Zero 0x635
0632 e005 | | Load 0x0,0x5
0633 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0634 0257 | W | Execute Discrete,Raise
0635 e005 | | Load 0x0,0x5
0636 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0637 e409 | | Load 0x2,0x9
0638 0120 | | Execute Any,Is_Value
0639 6803 |h | Jump_Zero 0x63d
063a e002 | | Load 0x0,0x2
063b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
063c 7801 |x | Jump 0x63e
063d e409 | | Load 0x2,0x9
063e e5fc | | Load 0x2,-0x4
063f e408 | | Load 0x2,0x8
0640 e00f | | Load 0x0,0xf
0641 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0642 c409 | | Store 0x2,0x9
0643 c40c | | Store 0x2,0xc
0644 4800 |H | Short_Literal 0x0
0645 e40c | | Load 0x2,0xc
0646 e005 | | Load 0x0,0x5
0647 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0648 7003 |p | Jump_Nonzero 0x64c
0649 e005 | | Load 0x0,0x5
064a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
064b 0257 | W | Execute Discrete,Raise
064c 841a | | Call 0x2,0x1a
064d e002 | | Load 0x0,0x2
064e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064f 60ec |` | Indirect_Literal Discrete,0x73c,{0x00000000, 0x00004000}
0650 e010 | | Load 0x0,0x10
0651 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0652 e409 | | Load 0x2,0x9
0653 e002 | | Load 0x0,0x2
0654 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0655 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0656 c403 | | Store 0x2,0x3
0657 e403 | | Load 0x2,0x3
0658 6803 |h | Jump_Zero 0x65c
0659 e00b | | Load 0x0,0xb
065a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
065b 0257 | W | Execute Discrete,Raise
065c e406 | | Load 0x2,0x6
065d e002 | | Load 0x0,0x2
065e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
065f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0660 c406 | | Store 0x2,0x6
0661 00c9 | | Action Pop_Auxiliary_Loop
0662 e406 | | Load 0x2,0x6
0663 e002 | | Load 0x0,0x2
0664 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0665 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0666 6fba |o | Jump_Zero 0x621
0667 00ce | | Action Pop_Auxiliary
0668 7801 |x | Jump 0x66a
0669 841a | | Call 0x2,0x1a
066a 4800 |H | Short_Literal 0x0
066b e40c | | Load 0x2,0xc
066c e005 | | Load 0x0,0x5
066d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
066e 6839 |h9 | Jump_Zero 0x6a8
066f e00d | | Load 0x0,0xd
0670 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0671 c414 | | Store 0x2,0x14
0672 e40f | | Load 0x2,0xf
0673 6824 |h$ | Jump_Zero 0x698
0674 e5fc | | Load 0x2,-0x4
0675 4801 |H | Short_Literal 0x1
0676 4802 |H | Short_Literal 0x2
0677 e004 | | Load 0x0,0x4
0678 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0679 035b | [ | Declare_Type Array,Constrained
067a 0337 | 7 | Declare_Variable Array
067b e5fe | | Load 0x2,-0x2
067c e006 | | Load 0x0,0x6
067d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
067e e004 | | Load 0x0,0x4
067f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0680 0119 | | Execute Any,Check_In_Formal_Type
0681 4801 |H | Short_Literal 0x1
0682 00da | | Load_Top At_Offset_2
0683 01d6 | | Execute Vector,Field_Write
0684 4800 |H | Short_Literal 0x0
0685 4800 |H | Short_Literal 0x0
0686 4800 |H | Short_Literal 0x0
0687 e414 | | Load 0x2,0x14
0688 e011 | | Load 0x0,0x11
0689 1816 | | Execute Package,Field_Execute,Field_Number 0x16
068a e011 | | Load 0x0,0x11
068b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
068c e004 | | Load 0x0,0x4
068d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
068e e004 | | Load 0x0,0x4
068f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0690 0119 | | Execute Any,Check_In_Formal_Type
0691 4802 |H | Short_Literal 0x2
0692 00da | | Load_Top At_Offset_2
0693 01d6 | | Execute Vector,Field_Write
0694 60a3 |` | Indirect_Literal Discrete,0x738,{0x00000000, 0x000081f8}
0695 e005 | | Load 0x0,0x5
0696 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0697 7810 |x | Jump 0x6a8
0698 e005 | | Load 0x0,0x5
0699 1b0d | | Execute Package,Field_Read,Field_Number 0xd
069a e5fc | | Load 0x2,-0x4
069b e414 | | Load 0x2,0x14
069c e5fe | | Load 0x2,-0x2
069d e00e | | Load 0x0,0xe
069e 180f | | Execute Package,Field_Execute,Field_Number 0xf
069f c40c | | Store 0x2,0xc
06a0 4800 |H | Short_Literal 0x0
06a1 e40c | | Load 0x2,0xc
06a2 e005 | | Load 0x0,0x5
06a3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
06a4 7003 |p | Jump_Nonzero 0x6a8
06a5 e00b | | Load 0x0,0xb
06a6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06a7 0257 | W | Execute Discrete,Raise
06a8 e40c | | Load 0x2,0xc
06a9 a5fb | | Store_Unchecked 0x2,-0x5
06aa e40c | | Load 0x2,0xc
06ab e5fc | | Load 0x2,-0x4
06ac e40b | | Load 0x2,0xb
06ad 8274 | t | Call 0x1,0x74
06ae c40c | | Store 0x2,0xc
06af 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06b0 TRAP_04b0:
06b0 e00b | | Load 0x0,0xb
06b1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06b2 010f | | Execute Exception,Equal
06b3 6808 |h | Jump_Zero 0x6bc
06b4 e40c | | Load 0x2,0xc
06b5 a5fb | | Store_Unchecked 0x2,-0x5
06b6 e40c | | Load 0x2,0xc
06b7 e5fc | | Load 0x2,-0x4
06b8 e40b | | Load 0x2,0xb
06b9 8274 | t | Call 0x1,0x74
06ba c40c | | Store 0x2,0xc
06bb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06bc e00b | | Load 0x0,0xb
06bd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
06be 010f | | Execute Exception,Equal
06bf 6827 |h' | Jump_Zero 0x6e7
06c0 4801 |H | Short_Literal 0x1
06c1 4801 |H | Short_Literal 0x1
06c2 e004 | | Load 0x0,0x4
06c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06c4 035b | [ | Declare_Type Array,Constrained
06c5 0337 | 7 | Declare_Variable Array
06c6 e5fe | | Load 0x2,-0x2
06c7 e006 | | Load 0x0,0x6
06c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06c9 e004 | | Load 0x0,0x4
06ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06cb 0119 | | Execute Any,Check_In_Formal_Type
06cc 4801 |H | Short_Literal 0x1
06cd 00da | | Load_Top At_Offset_2
06ce 01d6 | | Execute Vector,Field_Write
06cf 65d4 |e | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
06d0 e005 | | Load 0x0,0x5
06d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06d2 a5fb | | Store_Unchecked 0x2,-0x5
06d3 e5fc | | Load 0x2,-0x4
06d4 4801 |H | Short_Literal 0x1
06d5 4801 |H | Short_Literal 0x1
06d6 e004 | | Load 0x0,0x4
06d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06d8 035b | [ | Declare_Type Array,Constrained
06d9 0337 | 7 | Declare_Variable Array
06da e5fe | | Load 0x2,-0x2
06db e006 | | Load 0x0,0x6
06dc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
06dd e004 | | Load 0x0,0x4
06de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06df 0119 | | Execute Any,Check_In_Formal_Type
06e0 4801 |H | Short_Literal 0x1
06e1 00da | | Load_Top At_Offset_2
06e2 01d6 | | Execute Vector,Field_Write
06e3 65c0 |e | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
06e4 e005 | | Load 0x0,0x5
06e5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06e7 e005 | | Load 0x0,0x5
06e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06e9 010f | | Execute Exception,Equal
06ea 681c |h | Jump_Zero 0x707
06eb e005 | | Load 0x0,0x5
06ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06ed a5fb | | Store_Unchecked 0x2,-0x5
06ee e40c | | Load 0x2,0xc
06ef e5fc | | Load 0x2,-0x4
06f0 e40b | | Load 0x2,0xb
06f1 8274 | t | Call 0x1,0x74
06f2 c40c | | Store 0x2,0xc
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 65a0 |e | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
0704 e005 | | Load 0x0,0x5
0705 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0706 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0707 e40c | | Load 0x2,0xc
0708 e5fc | | Load 0x2,-0x4
0709 e40b | | Load 0x2,0xb
070a 8274 | t | Call 0x1,0x74
070b c40c | | Store 0x2,0xc
070c 4801 |H | Short_Literal 0x1
070d 4801 |H | Short_Literal 0x1
070e e004 | | Load 0x0,0x4
070f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0710 035b | [ | Declare_Type Array,Constrained
0711 0337 | 7 | Declare_Variable Array
0712 e5fe | | Load 0x2,-0x2
0713 e006 | | Load 0x0,0x6
0714 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0715 e004 | | Load 0x0,0x4
0716 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0717 0119 | | Execute Any,Check_In_Formal_Type
0718 4801 |H | Short_Literal 0x1
0719 00da | | Load_Top At_Offset_2
071a 01d6 | | Execute Vector,Field_Write
071b 6588 |e | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
071c e005 | | Load 0x0,0x5
071d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
071e a5fb | | Store_Unchecked 0x2,-0x5
071f e5fc | | Load 0x2,-0x4
0720 4801 |H | Short_Literal 0x1
0721 4801 |H | Short_Literal 0x1
0722 e004 | | Load 0x0,0x4
0723 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0724 035b | [ | Declare_Type Array,Constrained
0725 0337 | 7 | Declare_Variable Array
0726 e5fe | | Load 0x2,-0x2
0727 e006 | | Load 0x0,0x6
0728 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0729 e004 | | Load 0x0,0x4
072a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
072b 0119 | | Execute Any,Check_In_Formal_Type
072c 4801 |H | Short_Literal 0x1
072d 00da | | Load_Top At_Offset_2
072e 01d6 | | Execute Vector,Field_Write
072f 6574 |et | Indirect_Literal Discrete,0x4a4,{0x00000000, 0x0000811a}
0730 e005 | | Load 0x0,0x5
0731 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0732 e5fc | | Load 0x2,-0x4
0733 0092 2079 | y| Action Push_String_Extended,0x2079 ; "Target_Builder.Unit.Promote"
0735 e007 | | Load 0x0,0x7
0736 180f | | Execute Package,Field_Execute,Field_Number 0xf
0737 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0738 0000 0000 | | .LITERAL {0x00000000, 0x000081f8}
073c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0780 | | .CONST 0x0780 ; Address of begin
0741 080b | | .CONST 0x080b ; Address of exception handler
0742 000c | | .CONST 0x000c ; Number of locals
0743 INIT_0740:
0743 e005 | | Load 0x0,0x5
0744 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0745 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0746 e002 | | Load 0x0,0x2
0747 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0748 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0749 02c7 | | Declare_Variable Any
074a 00d8 | | Load_Top At_Offset_0
074b 1c00 | | Execute_Immediate Run_Utility,0x0
074c e002 | | Load 0x0,0x2
074d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
074e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
074f 02c7 | | Declare_Variable Any
0750 00d8 | | Load_Top At_Offset_0
0751 1c00 | | Execute_Immediate Run_Utility,0x0
0752 e005 | | Load 0x0,0x5
0753 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0754 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0755 e008 | | Load 0x0,0x8
0756 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0757 e002 | | Load 0x0,0x2
0758 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0759 0322 | " | Declare_Variable Record
075a e5fd | | Load 0x2,-0x3
075b e009 | | Load 0x0,0x9
075c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
075d 00d9 | | Load_Top At_Offset_1
075e 017d | } | Execute Record,Structure_Write
075f e5fc | | Load 0x2,-0x4
0760 e5fe | | Load 0x2,-0x2
0761 e5fd | | Load 0x2,-0x3
0762 e009 | | Load 0x0,0x9
0763 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
0764 e002 | | Load 0x0,0x2
0765 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0766 02c7 | | Declare_Variable Any
0767 e5fc | | Load 0x2,-0x4
0768 4801 |H | Short_Literal 0x1
0769 e5fe | | Load 0x2,-0x2
076a e006 | | Load 0x0,0x6
076b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
076c a409 | | Store_Unchecked 0x2,0x9
076d e5fc | | Load 0x2,-0x4
076e e5fd | | Load 0x2,-0x3
076f e009 | | Load 0x0,0x9
0770 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0771 00da | | Load_Top At_Offset_2
0772 e00a | | Load 0x0,0xa
0773 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0774 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0775 0007 | | Action Break_Optional
0776 e5fc | | Load 0x2,-0x4
0777 e5fe | | Load 0x2,-0x2
0778 e5fd | | Load 0x2,-0x3
0779 e009 | | Load 0x0,0x9
077a 18ba | | Execute Package,Field_Execute,Field_Number 0xba
077b e5fc | | Load 0x2,-0x4
077c e5fd | | Load 0x2,-0x3
077d e5fe | | Load 0x2,-0x2
077e e5ff | | Load 0x2,-0x1
077f 8252 | R | Call 0x1,0x52
0780 BODY_0740:
0780 e402 | | Load 0x2,0x2
0781 e404 | | Load 0x2,0x4
0782 e403 | | Load 0x2,0x3
0783 e5fc | | Load 0x2,-0x4
0784 e5fe | | Load 0x2,-0x2
0785 8273 | s | Call 0x1,0x73
0786 c403 | | Store 0x2,0x3
0787 c404 | | Store 0x2,0x4
0788 c402 | | Store 0x2,0x2
0789 4800 |H | Short_Literal 0x0
078a e402 | | Load 0x2,0x2
078b e005 | | Load 0x0,0x5
078c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
078d 7003 |p | Jump_Nonzero 0x791
078e e00b | | Load 0x0,0xb
078f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0790 0257 | W | Execute Discrete,Raise
0791 e5fc | | Load 0x2,-0x4
0792 0092 207a | z| Action Push_String_Extended,0x207a ; "Demoting => "
0794 e5fe | | Load 0x2,-0x2
0795 e002 | | Load 0x0,0x2
0796 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0797 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0798 01cc | | Execute Vector,Catenate
0799 e007 | | Load 0x0,0x7
079a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
079b e407 | | Load 0x2,0x7
079c e408 | | Load 0x2,0x8
079d 00db | | Load_Top At_Offset_3
079e e40a | | Load 0x2,0xa
079f e40c | | Load 0x2,0xc
07a0 e5fe | | Load 0x2,-0x2
07a1 e012 | | Load 0x0,0x12
07a2 180f | | Execute Package,Field_Execute,Field_Number 0xf
07a3 701a |p | Jump_Nonzero 0x7be
07a4 e5fc | | Load 0x2,-0x4
07a5 4801 |H | Short_Literal 0x1
07a6 4801 |H | Short_Literal 0x1
07a7 e004 | | Load 0x0,0x4
07a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07a9 035b | [ | Declare_Type Array,Constrained
07aa 0337 | 7 | Declare_Variable Array
07ab e5fe | | Load 0x2,-0x2
07ac e006 | | Load 0x0,0x6
07ad 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07ae e004 | | Load 0x0,0x4
07af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b0 0119 | | Execute Any,Check_In_Formal_Type
07b1 4801 |H | Short_Literal 0x1
07b2 00da | | Load_Top At_Offset_2
07b3 01d6 | | Execute Vector,Field_Write
07b4 60e7 |` | Indirect_Literal Discrete,0x89c,{0x00000000, 0x000081c1}
07b5 e005 | | Load 0x0,0x5
07b6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07b7 e004 | | Load 0x0,0x4
07b8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
07b9 60e2 |` | Indirect_Literal Discrete,0x89c,{0x00000000, 0x000081c1}
07ba e005 | | Load 0x0,0x5
07bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07bc a5fb | | Store_Unchecked 0x2,-0x5
07bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07be e405 | | Load 0x2,0x5
07bf e406 | | Load 0x2,0x6
07c0 e5fc | | Load 0x2,-0x4
07c1 e002 | | Load 0x0,0x2
07c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07c3 00ea | | Load_Encached Null_String_Cache
07c4 e40a | | Load 0x2,0xa
07c5 e40b | | Load 0x2,0xb
07c6 e408 | | Load 0x2,0x8
07c7 e40c | | Load 0x2,0xc
07c8 e5fe | | Load 0x2,-0x2
07c9 0092 207b | {| Action Push_String_Extended,0x207b ; "Demote"
07cb e009 | | Load 0x0,0x9
07cc 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
07cd 4800 |H | Short_Literal 0x0
07ce e5fd | | Load 0x2,-0x3
07cf e009 | | Load 0x0,0x9
07d0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
07d1 e013 | | Load 0x0,0x13
07d2 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
07d3 c406 | | Store 0x2,0x6
07d4 c405 | | Store 0x2,0x5
07d5 4800 |H | Short_Literal 0x0
07d6 e405 | | Load 0x2,0x5
07d7 e005 | | Load 0x0,0x5
07d8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07d9 7006 |p | Jump_Nonzero 0x7e0
07da e014 | | Load 0x0,0x14
07db 180e | | Execute Package,Field_Execute,Field_Number 0xe
07dc e405 | | Load 0x2,0x5
07dd e005 | | Load 0x0,0x5
07de 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
07df 7823 |x# | Jump 0x803
07e0 e407 | | Load 0x2,0x7
07e1 e408 | | Load 0x2,0x8
07e2 00db | | Load_Top At_Offset_3
07e3 e40a | | Load 0x2,0xa
07e4 e40c | | Load 0x2,0xc
07e5 e5fe | | Load 0x2,-0x2
07e6 e012 | | Load 0x0,0x12
07e7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07e8 701a |p | Jump_Nonzero 0x803
07e9 e5fc | | Load 0x2,-0x4
07ea 4801 |H | Short_Literal 0x1
07eb 4801 |H | Short_Literal 0x1
07ec e004 | | Load 0x0,0x4
07ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07ee 035b | [ | Declare_Type Array,Constrained
07ef 0337 | 7 | Declare_Variable Array
07f0 e5fe | | Load 0x2,-0x2
07f1 e006 | | Load 0x0,0x6
07f2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07f3 e004 | | Load 0x0,0x4
07f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07f5 0119 | | Execute Any,Check_In_Formal_Type
07f6 4801 |H | Short_Literal 0x1
07f7 00da | | Load_Top At_Offset_2
07f8 01d6 | | Execute Vector,Field_Write
07f9 609e |` | Indirect_Literal Discrete,0x898,{0x00000000, 0x000081c2}
07fa e005 | | Load 0x0,0x5
07fb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07fc e004 | | Load 0x0,0x4
07fd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
07fe 6099 |` | Indirect_Literal Discrete,0x898,{0x00000000, 0x000081c2}
07ff e005 | | Load 0x0,0x5
0800 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0801 a5fb | | Store_Unchecked 0x2,-0x5
0802 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0803 e402 | | Load 0x2,0x2
0804 a5fb | | Store_Unchecked 0x2,-0x5
0805 e402 | | Load 0x2,0x2
0806 e5fc | | Load 0x2,-0x4
0807 e404 | | Load 0x2,0x4
0808 8274 | t | Call 0x1,0x74
0809 c402 | | Store 0x2,0x2
080a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
080b TRAP_0740:
080b e00b | | Load 0x0,0xb
080c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
080d 010f | | Execute Exception,Equal
080e 6808 |h | Jump_Zero 0x817
080f e402 | | Load 0x2,0x2
0810 e5fc | | Load 0x2,-0x4
0811 e404 | | Load 0x2,0x4
0812 8274 | t | Call 0x1,0x74
0813 c402 | | Store 0x2,0x2
0814 e402 | | Load 0x2,0x2
0815 a5fb | | Store_Unchecked 0x2,-0x5
0816 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0817 e00b | | Load 0x0,0xb
0818 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0819 010f | | Execute Exception,Equal
081a 6827 |h' | Jump_Zero 0x842
081b 4801 |H | Short_Literal 0x1
081c 4801 |H | Short_Literal 0x1
081d e004 | | Load 0x0,0x4
081e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
081f 035b | [ | Declare_Type Array,Constrained
0820 0337 | 7 | Declare_Variable Array
0821 e5fe | | Load 0x2,-0x2
0822 e006 | | Load 0x0,0x6
0823 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0824 e004 | | Load 0x0,0x4
0825 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0826 0119 | | Execute Any,Check_In_Formal_Type
0827 4801 |H | Short_Literal 0x1
0828 00da | | Load_Top At_Offset_2
0829 01d6 | | Execute Vector,Field_Write
082a 6069 |`i | Indirect_Literal Discrete,0x894,{0x00000000, 0x00008107}
082b e005 | | Load 0x0,0x5
082c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
082d a5fb | | Store_Unchecked 0x2,-0x5
082e e5fc | | Load 0x2,-0x4
082f 4801 |H | Short_Literal 0x1
0830 4801 |H | Short_Literal 0x1
0831 e004 | | Load 0x0,0x4
0832 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0833 035b | [ | Declare_Type Array,Constrained
0834 0337 | 7 | Declare_Variable Array
0835 e5fe | | Load 0x2,-0x2
0836 e006 | | Load 0x0,0x6
0837 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0838 e004 | | Load 0x0,0x4
0839 1b0e | | Execute Package,Field_Read,Field_Number 0xe
083a 0119 | | Execute Any,Check_In_Formal_Type
083b 4801 |H | Short_Literal 0x1
083c 00da | | Load_Top At_Offset_2
083d 01d6 | | Execute Vector,Field_Write
083e 6055 |`U | Indirect_Literal Discrete,0x894,{0x00000000, 0x00008107}
083f e005 | | Load 0x0,0x5
0840 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0841 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0842 e005 | | Load 0x0,0x5
0843 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0844 010f | | Execute Exception,Equal
0845 681c |h | Jump_Zero 0x862
0846 e005 | | Load 0x0,0x5
0847 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0848 a5fb | | Store_Unchecked 0x2,-0x5
0849 e402 | | Load 0x2,0x2
084a e5fc | | Load 0x2,-0x4
084b e404 | | Load 0x2,0x4
084c 8274 | t | Call 0x1,0x74
084d c402 | | Store 0x2,0x2
084e e5fc | | Load 0x2,-0x4
084f 4801 |H | Short_Literal 0x1
0850 4801 |H | Short_Literal 0x1
0851 e004 | | Load 0x0,0x4
0852 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0853 035b | [ | Declare_Type Array,Constrained
0854 0337 | 7 | Declare_Variable Array
0855 e5fe | | Load 0x2,-0x2
0856 e006 | | Load 0x0,0x6
0857 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0858 e004 | | Load 0x0,0x4
0859 1b0e | | Execute Package,Field_Read,Field_Number 0xe
085a 0119 | | Execute Any,Check_In_Formal_Type
085b 4801 |H | Short_Literal 0x1
085c 00da | | Load_Top At_Offset_2
085d 01d6 | | Execute Vector,Field_Write
085e 6035 |`5 | Indirect_Literal Discrete,0x894,{0x00000000, 0x00008107}
085f e005 | | Load 0x0,0x5
0860 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0861 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0862 e402 | | Load 0x2,0x2
0863 e5fc | | Load 0x2,-0x4
0864 e404 | | Load 0x2,0x4
0865 8274 | t | Call 0x1,0x74
0866 c402 | | Store 0x2,0x2
0867 4801 |H | Short_Literal 0x1
0868 4801 |H | Short_Literal 0x1
0869 e004 | | Load 0x0,0x4
086a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
086b 035b | [ | Declare_Type Array,Constrained
086c 0337 | 7 | Declare_Variable Array
086d e5fe | | Load 0x2,-0x2
086e e006 | | Load 0x0,0x6
086f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0870 e004 | | Load 0x0,0x4
0871 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0872 0119 | | Execute Any,Check_In_Formal_Type
0873 4801 |H | Short_Literal 0x1
0874 00da | | Load_Top At_Offset_2
0875 01d6 | | Execute Vector,Field_Write
0876 601d |` | Indirect_Literal Discrete,0x894,{0x00000000, 0x00008107}
0877 e005 | | Load 0x0,0x5
0878 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0879 a5fb | | Store_Unchecked 0x2,-0x5
087a e5fc | | Load 0x2,-0x4
087b 4801 |H | Short_Literal 0x1
087c 4801 |H | Short_Literal 0x1
087d e004 | | Load 0x0,0x4
087e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
087f 035b | [ | Declare_Type Array,Constrained
0880 0337 | 7 | Declare_Variable Array
0881 e5fe | | Load 0x2,-0x2
0882 e006 | | Load 0x0,0x6
0883 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0884 e004 | | Load 0x0,0x4
0885 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0886 0119 | | Execute Any,Check_In_Formal_Type
0887 4801 |H | Short_Literal 0x1
0888 00da | | Load_Top At_Offset_2
0889 01d6 | | Execute Vector,Field_Write
088a 6009 |` | Indirect_Literal Discrete,0x894,{0x00000000, 0x00008107}
088b e005 | | Load 0x0,0x5
088c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
088d e5fc | | Load 0x2,-0x4
088e 0092 207c | || Action Push_String_Extended,0x207c ; "Target_Builder.Unit.Demote"
0890 e007 | | Load 0x0,0x7
0891 180f | | Execute Package,Field_Execute,Field_Number 0xf
0892 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0893 0000 | | .XXX[0x1]
0894 0000 0000 | | .LITERAL {0x00000000, 0x00008107}
0898 0000 0000 | | .LITERAL {0x00000000, 0x000081c2}
089c 0000 0000 | | .LITERAL {0x00000000, 0x000081c1}
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 00da | | Load_Top At_Offset_2
08a4 00d8 | | Load_Top At_Offset_0
08a5 0120 | | Execute Any,Is_Value
08a6 7002 |p | Jump_Nonzero 0x8a9
08a7 00d8 | | Load_Top At_Offset_0
08a8 011e | | Execute Any,Convert
08a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08aa 0000 0000 | | .BLANK 0000[0x6]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08bc | | .CONST 0x08bc ; Address of begin
08b1 08d6 | | .CONST 0x08d6 ; Address of exception handler
08b2 0003 | | .CONST 0x0003 ; Number of locals
08b3 INIT_08b0:
08b3 e005 | | Load 0x0,0x5
08b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
08b6 e001 | | Load 0x0,0x1
08b7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
08b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b9 02c7 | | Declare_Variable Any
08ba 00d8 | | Load_Top At_Offset_0
08bb 1c00 | | Execute_Immediate Run_Utility,0x0
08bc BODY_08b0:
08bc e5fc | | Load 0x2,-0x4
08bd 0092 207d | }| Action Push_String_Extended,0x207d ; "Unit_Target_Name"
08bf 826b | k | Call 0x1,0x6b
08c0 e005 | | Load 0x0,0x5
08c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c2 00d9 | | Load_Top At_Offset_1
08c3 e5fc | | Load 0x2,-0x4
08c4 6033 |`3 | Indirect_Literal Discrete,0x8f8,{0x00000000, 0x00008113}
08c5 e5fe | | Load 0x2,-0x2
08c6 e5ff | | Load 0x2,-0x1
08c7 826c | l | Call 0x1,0x6c
08c8 c403 | | Store 0x2,0x3
08c9 005a | Z | Store_Top Discrete,At_Offset_2
08ca 4800 |H | Short_Literal 0x0
08cb 00da | | Load_Top At_Offset_2
08cc e005 | | Load 0x0,0x5
08cd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
08ce 7003 |p | Jump_Nonzero 0x8d2
08cf 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
08d1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08d2 e5fd | | Load 0x2,-0x3
08d3 00d9 | | Load_Top At_Offset_1
08d4 8270 | p | Call 0x1,0x70
08d5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08d6 TRAP_08b0:
08d6 e005 | | Load 0x0,0x5
08d7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08d8 010f | | Execute Exception,Equal
08d9 6816 |h | Jump_Zero 0x8f0
08da e5fc | | Load 0x2,-0x4
08db 4801 |H | Short_Literal 0x1
08dc 4801 |H | Short_Literal 0x1
08dd e004 | | Load 0x0,0x4
08de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08df 035b | [ | Declare_Type Array,Constrained
08e0 0337 | 7 | Declare_Variable Array
08e1 e5fe | | Load 0x2,-0x2
08e2 e006 | | Load 0x0,0x6
08e3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08e4 e004 | | Load 0x0,0x4
08e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08e6 0119 | | Execute Any,Check_In_Formal_Type
08e7 4801 |H | Short_Literal 0x1
08e8 00da | | Load_Top At_Offset_2
08e9 01d6 | | Execute Vector,Field_Write
08ea 600d |` | Indirect_Literal Discrete,0x8f8,{0x00000000, 0x00008113}
08eb e005 | | Load 0x0,0x5
08ec 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08ed 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
08ef 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08f0 e5fc | | Load 0x2,-0x4
08f1 0092 207e | ~| Action Push_String_Extended,0x207e ; "Target_Builder.Unit.Unit_Target_Name"
08f3 e007 | | Load 0x0,0x7
08f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
08f5 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
08f7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08f8 0000 0000 | | .LITERAL {0x00000000, 0x00008113}
08fc 0000 0000 | | .BLANK 0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0916 | | .CONST 0x0916 ; Address of begin
0901 0946 | F | .CONST 0x0946 ; Address of exception handler
0902 0005 | | .CONST 0x0005 ; Number of locals
0903 INIT_0900:
0903 e5fd | | Load 0x2,-0x3
0904 e009 | | Load 0x0,0x9
0905 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0906 e009 | | Load 0x0,0x9
0907 1bbf | | Execute Package,Field_Read,Field_Number 0xbf
0908 03f1 | | Declare_Variable Discrete,With_Value
0909 e005 | | Load 0x0,0x5
090a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
090b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
090c e001 | | Load 0x0,0x1
090d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
090e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
090f 02c7 | | Declare_Variable Any
0910 e001 | | Load 0x0,0x1
0911 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0912 180e | | Execute Package,Field_Execute,Field_Number 0xe
0913 a404 | | Store_Unchecked 0x2,0x4
0914 029f 1ef3 | | Declare_Subprogram INIT_1ef0,For_Call
0916 BODY_0900:
0916 e005 | | Load 0x0,0x5
0917 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0918 e5fc | | Load 0x2,-0x4
0919 e5ff | | Load 0x2,-0x1
091a 8015 | | Call 0x0,0x15
091b 005b | [ | Store_Top Discrete,At_Offset_3
091c 4800 |H | Short_Literal 0x0
091d 00db | | Load_Top At_Offset_3
091e e005 | | Load 0x0,0x5
091f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0920 7002 |p | Jump_Nonzero 0x923
0921 00ea | | Load_Encached Null_String_Cache
0922 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0923 e5fe | | Load 0x2,-0x2
0924 01db | | Execute Vector,Length
0925 7015 |p | Jump_Nonzero 0x93b
0926 e5fc | | Load 0x2,-0x4
0927 4801 |H | Short_Literal 0x1
0928 4801 |H | Short_Literal 0x1
0929 e004 | | Load 0x0,0x4
092a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
092b 035b | [ | Declare_Type Array,Constrained
092c 0337 | 7 | Declare_Variable Array
092d e5fe | | Load 0x2,-0x2
092e e004 | | Load 0x0,0x4
092f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0930 e004 | | Load 0x0,0x4
0931 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0932 0119 | | Execute Any,Check_In_Formal_Type
0933 4801 |H | Short_Literal 0x1
0934 00da | | Load_Top At_Offset_2
0935 01d6 | | Execute Vector,Field_Write
0936 6031 |`1 | Indirect_Literal Discrete,0x968,{0x00000000, 0x00008108}
0937 e005 | | Load 0x0,0x5
0938 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0939 00ea | | Load_Encached Null_String_Cache
093a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
093b 8405 | | Call 0x2,0x5
093c 00d9 | | Load_Top At_Offset_1
093d e001 | | Load 0x0,0x1
093e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
093f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0940 6802 |h | Jump_Zero 0x943
0941 00ea | | Load_Encached Null_String_Cache
0942 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0943 00d9 | | Load_Top At_Offset_1
0944 8016 | | Call 0x0,0x16
0945 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0946 TRAP_0900:
0946 e005 | | Load 0x0,0x5
0947 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0948 010f | | Execute Exception,Equal
0949 6815 |h | Jump_Zero 0x95f
094a e5fc | | Load 0x2,-0x4
094b 4801 |H | Short_Literal 0x1
094c 4801 |H | Short_Literal 0x1
094d e004 | | Load 0x0,0x4
094e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
094f 035b | [ | Declare_Type Array,Constrained
0950 0337 | 7 | Declare_Variable Array
0951 e5fe | | Load 0x2,-0x2
0952 e004 | | Load 0x0,0x4
0953 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0954 e004 | | Load 0x0,0x4
0955 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0956 0119 | | Execute Any,Check_In_Formal_Type
0957 4801 |H | Short_Literal 0x1
0958 00da | | Load_Top At_Offset_2
0959 01d6 | | Execute Vector,Field_Write
095a 600d |` | Indirect_Literal Discrete,0x968,{0x00000000, 0x00008108}
095b e005 | | Load 0x0,0x5
095c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
095d 00ea | | Load_Encached Null_String_Cache
095e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
095f e5fc | | Load 0x2,-0x4
0960 0092 207f | | Action Push_String_Extended,0x207f ; "Target_Builder.Unit.Unit_Name"
0962 e007 | | Load 0x0,0x7
0963 180f | | Execute Package,Field_Execute,Field_Number 0xf
0964 00ea | | Load_Encached Null_String_Cache
0965 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0966 0000 0000 | | .XXX[0x2]
0968 0000 0000 | | .LITERAL {0x00000000, 0x00008108}
096c 0000 0000 | | .BLANK 0000[0x4]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 098b | | .CONST 0x098b ; Address of begin
0971 0a79 | y | .CONST 0x0a79 ; Address of exception handler
0972 0006 | | .CONST 0x0006 ; Number of locals
0973 INIT_0970:
0973 e005 | | Load 0x0,0x5
0974 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0975 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0976 e001 | | Load 0x0,0x1
0977 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0978 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0979 02c7 | | Declare_Variable Any
097a 00d8 | | Load_Top At_Offset_0
097b 1c00 | | Execute_Immediate Run_Utility,0x0
097c 00e1 | | Load_Encached Boolean_Cache
097d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
097e 4820 |H | Short_Literal 0x20
097f e5fe | | Load 0x2,-0x2
0980 e00c | | Load 0x0,0xc
0981 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0982 4800 |H | Short_Literal 0x0
0983 00d9 | | Load_Top At_Offset_1
0984 e5fd | | Load 0x2,-0x3
0985 e009 | | Load 0x0,0x9
0986 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
0987 e00c | | Load 0x0,0xc
0988 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0989 00e3 | | Load_Encached Natural_Cache
098a 03f1 | | Declare_Variable Discrete,With_Value
098b BODY_0970:
098b 00d8 | | Load_Top At_Offset_0
098c 00da | | Load_Top At_Offset_2
098d 01dd | | Execute Vector,First
098e 027c | | | Execute Discrete,Less
098f 6804 |h | Jump_Zero 0x994
0990 00d9 | | Load_Top At_Offset_1
0991 01dc | | Execute Vector,Last
0992 0a01 | | Execute_Immediate Plus,0x1
0993 0059 | Y | Store_Top Discrete,At_Offset_1
0994 e5fc | | Load 0x2,-0x4
0995 0092 2080 | | Action Push_String_Extended,0x2080 ; "Set_Unit_Target_Name"
0997 826b | k | Call 0x1,0x6b
0998 e005 | | Load 0x0,0x5
0999 1b0d | | Execute Package,Field_Read,Field_Number 0xd
099a e403 | | Load 0x2,0x3
099b e5fc | | Load 0x2,-0x4
099c 612b |a+ | Indirect_Literal Discrete,0xac8,{0x00000000, 0x00008124}
099d e5ff | | Load 0x2,-0x1
099e e5fb | | Load 0x2,-0x5
099f 826c | l | Call 0x1,0x6c
09a0 c403 | | Store 0x2,0x3
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 7003 |p | Jump_Nonzero 0x9aa
09a7 e402 | | Load 0x2,0x2
09a8 a5fa | | Store_Unchecked 0x2,-0x6
09a9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
09aa 00d9 | | Load_Top At_Offset_1
09ab 01db | | Execute Vector,Length
09ac 6805 |h | Jump_Zero 0x9b2
09ad 00d9 | | Load_Top At_Offset_1
09ae 0092 2081 | | Action Push_String_Extended,0x2081 ; "*"
09b0 01df | | Execute Vector,Equal
09b1 6806 |h | Jump_Zero 0x9b8
09b2 e402 | | Load 0x2,0x2
09b3 e5fd | | Load 0x2,-0x3
09b4 e403 | | Load 0x2,0x3
09b5 8017 | | Call 0x0,0x17
09b6 c402 | | Store 0x2,0x2
09b7 7857 |xW | Jump 0xa0f
09b8 00d8 | | Load_Top At_Offset_0
09b9 00da | | Load_Top At_Offset_2
09ba 01dd | | Execute Vector,First
09bb 0272 | r | Execute Discrete,Minus
09bc e5fd | | Load 0x2,-0x3
09bd e009 | | Load 0x0,0x9
09be 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
09bf 027d | } | Execute Discrete,Greater
09c0 6844 |hD | Jump_Zero 0xa05
09c1 e5fc | | Load 0x2,-0x4
09c2 4801 |H | Short_Literal 0x1
09c3 4803 |H | Short_Literal 0x3
09c4 e004 | | Load 0x0,0x4
09c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09c6 035b | [ | Declare_Type Array,Constrained
09c7 0337 | 7 | Declare_Variable Array
09c8 e5ff | | Load 0x2,-0x1
09c9 e006 | | Load 0x0,0x6
09ca 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09cb e004 | | Load 0x0,0x4
09cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09cd 0119 | | Execute Any,Check_In_Formal_Type
09ce 4801 |H | Short_Literal 0x1
09cf 00da | | Load_Top At_Offset_2
09d0 01d6 | | Execute Vector,Field_Write
09d1 e5fe | | Load 0x2,-0x2
09d2 e004 | | Load 0x0,0x4
09d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09d4 e004 | | Load 0x0,0x4
09d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09d6 0119 | | Execute Any,Check_In_Formal_Type
09d7 4802 |H | Short_Literal 0x2
09d8 00da | | Load_Top At_Offset_2
09d9 01d6 | | Execute Vector,Field_Write
09da e5fd | | Load 0x2,-0x3
09db e009 | | Load 0x0,0x9
09dc 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
09dd e004 | | Load 0x0,0x4
09de 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09df e004 | | Load 0x0,0x4
09e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09e1 0119 | | Execute Any,Check_In_Formal_Type
09e2 4803 |H | Short_Literal 0x3
09e3 00da | | Load_Top At_Offset_2
09e4 01d6 | | Execute Vector,Field_Write
09e5 60de |` | Indirect_Literal Discrete,0xac4,{0x00000000, 0x0000813a}
09e6 e005 | | Load 0x0,0x5
09e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09e8 4801 |H | Short_Literal 0x1
09e9 4802 |H | Short_Literal 0x2
09ea e004 | | Load 0x0,0x4
09eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09ec 035b | [ | Declare_Type Array,Constrained
09ed 0337 | 7 | Declare_Variable Array
09ee e5ff | | Load 0x2,-0x1
09ef e006 | | Load 0x0,0x6
09f0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09f1 e004 | | Load 0x0,0x4
09f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09f3 0119 | | Execute Any,Check_In_Formal_Type
09f4 4801 |H | Short_Literal 0x1
09f5 00da | | Load_Top At_Offset_2
09f6 01d6 | | Execute Vector,Field_Write
09f7 e5fe | | Load 0x2,-0x2
09f8 e004 | | Load 0x0,0x4
09f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09fa e004 | | Load 0x0,0x4
09fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09fc 0119 | | Execute Any,Check_In_Formal_Type
09fd 4802 |H | Short_Literal 0x2
09fe 00da | | Load_Top At_Offset_2
09ff 01d6 | | Execute Vector,Field_Write
0a00 60c7 |` | Indirect_Literal Discrete,0xac8,{0x00000000, 0x00008124}
0a01 e005 | | Load 0x0,0x5
0a02 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a03 a5fa | | Store_Unchecked 0x2,-0x6
0a04 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a05 e402 | | Load 0x2,0x2
0a06 e5fd | | Load 0x2,-0x3
0a07 e009 | | Load 0x0,0x9
0a08 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a09 00db | | Load_Top At_Offset_3
0a0a e403 | | Load 0x2,0x3
0a0b e001 | | Load 0x0,0x1
0a0c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a0d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0a0e c402 | | Store 0x2,0x2
0a0f 4800 |H | Short_Literal 0x0
0a10 e402 | | Load 0x2,0x2
0a11 e005 | | Load 0x0,0x5
0a12 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a13 6862 |hb | Jump_Zero 0xa76
0a14 e5fc | | Load 0x2,-0x4
0a15 0092 2082 | | Action Push_String_Extended,0x2082 ; "Target name for unit \x22"
0a17 e5ff | | Load 0x2,-0x1
0a18 e006 | | Load 0x0,0x6
0a19 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a1a 01cc | | Execute Vector,Catenate
0a1b 0092 2083 | | Action Push_String_Extended,0x2083 ; "\x22 has been set to \x22"
0a1d 01cc | | Execute Vector,Catenate
0a1e e5fd | | Load 0x2,-0x3
0a1f e009 | | Load 0x0,0x9
0a20 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a21 e403 | | Load 0x2,0x3
0a22 e001 | | Load 0x0,0x1
0a23 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a24 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0a25 01cc | | Execute Vector,Catenate
0a26 0092 2084 | | Action Push_String_Extended,0x2084 ; "\x22"
0a28 01cc | | Execute Vector,Catenate
0a29 e007 | | Load 0x0,0x7
0a2a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a2b 00d9 | | Load_Top At_Offset_1
0a2c 0092 2081 | | Action Push_String_Extended,0x2081 ; "*"
0a2e 01df | | Execute Vector,Equal
0a2f 680e |h | Jump_Zero 0xa3e
0a30 4800 |H | Short_Literal 0x0
0a31 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0a32 e5fc | | Load 0x2,-0x4
0a33 0092 2085 | | Action Push_String_Extended,0x2085 ; "Unit \x22"
0a35 e5ff | | Load 0x2,-0x1
0a36 e006 | | Load 0x0,0x6
0a37 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a38 01cc | | Execute Vector,Catenate
0a39 0092 2086 | | Action Push_String_Extended,0x2086 ; "\x22 will be made non-downloadable"
0a3b 01cc | | Execute Vector,Catenate
0a3c e007 | | Load 0x0,0x7
0a3d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a3e e5fd | | Load 0x2,-0x3
0a3f e009 | | Load 0x0,0x9
0a40 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a41 e403 | | Load 0x2,0x3
0a42 e001 | | Load 0x0,0x1
0a43 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a44 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0a45 00db | | Load_Top At_Offset_3
0a46 027e | ~ | Execute Discrete,Not_Equal
0a47 682e |h. | Jump_Zero 0xa76
0a48 e402 | | Load 0x2,0x2
0a49 e5fd | | Load 0x2,-0x3
0a4a e009 | | Load 0x0,0x9
0a4b 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0a4c e404 | | Load 0x2,0x4
0a4d e403 | | Load 0x2,0x3
0a4e e001 | | Load 0x0,0x1
0a4f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0a50 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0a51 c402 | | Store 0x2,0x2
0a52 4800 |H | Short_Literal 0x0
0a53 e402 | | Load 0x2,0x2
0a54 e005 | | Load 0x0,0x5
0a55 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a56 681f |h | Jump_Zero 0xa76
0a57 e5fc | | Load 0x2,-0x4
0a58 4801 |H | Short_Literal 0x1
0a59 4802 |H | Short_Literal 0x2
0a5a e004 | | Load 0x0,0x4
0a5b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a5c 035b | [ | Declare_Type Array,Constrained
0a5d 0337 | 7 | Declare_Variable Array
0a5e e5ff | | Load 0x2,-0x1
0a5f e006 | | Load 0x0,0x6
0a60 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a61 e004 | | Load 0x0,0x4
0a62 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a63 0119 | | Execute Any,Check_In_Formal_Type
0a64 4801 |H | Short_Literal 0x1
0a65 00da | | Load_Top At_Offset_2
0a66 01d6 | | Execute Vector,Field_Write
0a67 e404 | | Load 0x2,0x4
0a68 00e1 | | Load_Encached Boolean_Cache
0a69 011c | | Execute Any,Convert_Unchecked
0a6a 1c01 | | Execute_Immediate Run_Utility,0x1
0a6b e004 | | Load 0x0,0x4
0a6c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a6d e004 | | Load 0x0,0x4
0a6e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a6f 0119 | | Execute Any,Check_In_Formal_Type
0a70 4802 |H | Short_Literal 0x2
0a71 00da | | Load_Top At_Offset_2
0a72 01d6 | | Execute Vector,Field_Write
0a73 604c |`L | Indirect_Literal Discrete,0xac0,{0x00000000, 0x00008192}
0a74 e005 | | Load 0x0,0x5
0a75 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a76 e402 | | Load 0x2,0x2
0a77 a5fa | | Store_Unchecked 0x2,-0x6
0a78 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a79 TRAP_0970:
0a79 e005 | | Load 0x0,0x5
0a7a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a7b 010f | | Execute Exception,Equal
0a7c 6820 |h | Jump_Zero 0xa9d
0a7d e005 | | Load 0x0,0x5
0a7e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a7f a5fa | | Store_Unchecked 0x2,-0x6
0a80 e5fc | | Load 0x2,-0x4
0a81 4801 |H | Short_Literal 0x1
0a82 4802 |H | Short_Literal 0x2
0a83 e004 | | Load 0x0,0x4
0a84 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a85 035b | [ | Declare_Type Array,Constrained
0a86 0337 | 7 | Declare_Variable Array
0a87 e5ff | | Load 0x2,-0x1
0a88 e006 | | Load 0x0,0x6
0a89 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a8a e004 | | Load 0x0,0x4
0a8b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a8c 0119 | | Execute Any,Check_In_Formal_Type
0a8d 4801 |H | Short_Literal 0x1
0a8e 00da | | Load_Top At_Offset_2
0a8f 01d6 | | Execute Vector,Field_Write
0a90 e5fe | | Load 0x2,-0x2
0a91 e004 | | Load 0x0,0x4
0a92 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a93 e004 | | Load 0x0,0x4
0a94 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a95 0119 | | Execute Any,Check_In_Formal_Type
0a96 4802 |H | Short_Literal 0x2
0a97 00da | | Load_Top At_Offset_2
0a98 01d6 | | Execute Vector,Field_Write
0a99 602e |`. | Indirect_Literal Discrete,0xac8,{0x00000000, 0x00008124}
0a9a e005 | | Load 0x0,0x5
0a9b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a9c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a9d e5fc | | Load 0x2,-0x4
0a9e 0092 2087 | | Action Push_String_Extended,0x2087 ; "Target_Builder.Unit.Set_Unit_Target_Name"
0aa0 e007 | | Load 0x0,0x7
0aa1 180f | | Execute Package,Field_Execute,Field_Number 0xf
0aa2 4801 |H | Short_Literal 0x1
0aa3 4802 |H | Short_Literal 0x2
0aa4 e004 | | Load 0x0,0x4
0aa5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0aa6 035b | [ | Declare_Type Array,Constrained
0aa7 0337 | 7 | Declare_Variable Array
0aa8 e5ff | | Load 0x2,-0x1
0aa9 e006 | | Load 0x0,0x6
0aaa 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0aab e004 | | Load 0x0,0x4
0aac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0aad 0119 | | Execute Any,Check_In_Formal_Type
0aae 4801 |H | Short_Literal 0x1
0aaf 00da | | Load_Top At_Offset_2
0ab0 01d6 | | Execute Vector,Field_Write
0ab1 e5fe | | Load 0x2,-0x2
0ab2 e004 | | Load 0x0,0x4
0ab3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ab4 e004 | | Load 0x0,0x4
0ab5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ab6 0119 | | Execute Any,Check_In_Formal_Type
0ab7 4802 |H | Short_Literal 0x2
0ab8 00da | | Load_Top At_Offset_2
0ab9 01d6 | | Execute Vector,Field_Write
0aba 600d |` | Indirect_Literal Discrete,0xac8,{0x00000000, 0x00008124}
0abb e005 | | Load 0x0,0x5
0abc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0abd a5fa | | Store_Unchecked 0x2,-0x6
0abe 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0abf 0000 | | .XXX[0x1]
0ac0 0000 0000 | | .LITERAL {0x00000000, 0x00008192}
0ac4 0000 0000 | | .LITERAL {0x00000000, 0x0000813a}
0ac8 0000 0000 | | .LITERAL {0x00000000, 0x00008124}
0acc 0000 0000 | | .BLANK 0000[0x4]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0adc | | .CONST 0x0adc ; Address of begin
0ad1 0af9 | | .CONST 0x0af9 ; Address of exception handler
0ad2 0003 | | .CONST 0x0003 ; Number of locals
0ad3 INIT_0ad0:
0ad3 e005 | | Load 0x0,0x5
0ad4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ad5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0ad6 e001 | | Load 0x0,0x1
0ad7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ad8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ad9 02c7 | | Declare_Variable Any
0ada 00d8 | | Load_Top At_Offset_0
0adb 1c00 | | Execute_Immediate Run_Utility,0x0
0adc BODY_0ad0:
0adc e5fc | | Load 0x2,-0x4
0add 0092 2088 | | Action Push_String_Extended,0x2088 ; "Has_Unit_Target_Name"
0adf 826b | k | Call 0x1,0x6b
0ae0 e005 | | Load 0x0,0x5
0ae1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ae2 00d9 | | Load_Top At_Offset_1
0ae3 e5fc | | Load 0x2,-0x4
0ae4 6037 |`7 | Indirect_Literal Discrete,0xb1c,{0x00000000, 0x00008113}
0ae5 e5fe | | Load 0x2,-0x2
0ae6 e5ff | | Load 0x2,-0x1
0ae7 826c | l | Call 0x1,0x6c
0ae8 c403 | | Store 0x2,0x3
0ae9 005a | Z | Store_Top Discrete,At_Offset_2
0aea 4800 |H | Short_Literal 0x0
0aeb 00da | | Load_Top At_Offset_2
0aec e005 | | Load 0x0,0x5
0aed 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0aee 7002 |p | Jump_Nonzero 0xaf1
0aef 4800 |H | Short_Literal 0x0
0af0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0af1 e5fd | | Load 0x2,-0x3
0af2 e009 | | Load 0x0,0x9
0af3 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0af4 00d9 | | Load_Top At_Offset_1
0af5 e001 | | Load 0x0,0x1
0af6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0af7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0af8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0af9 TRAP_0ad0:
0af9 e005 | | Load 0x0,0x5
0afa 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0afb 010f | | Execute Exception,Equal
0afc 6815 |h | Jump_Zero 0xb12
0afd e5fc | | Load 0x2,-0x4
0afe 4801 |H | Short_Literal 0x1
0aff 4801 |H | Short_Literal 0x1
0b00 e004 | | Load 0x0,0x4
0b01 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b02 035b | [ | Declare_Type Array,Constrained
0b03 0337 | 7 | Declare_Variable Array
0b04 e5fe | | Load 0x2,-0x2
0b05 e006 | | Load 0x0,0x6
0b06 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b07 e004 | | Load 0x0,0x4
0b08 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b09 0119 | | Execute Any,Check_In_Formal_Type
0b0a 4801 |H | Short_Literal 0x1
0b0b 00da | | Load_Top At_Offset_2
0b0c 01d6 | | Execute Vector,Field_Write
0b0d 600e |` | Indirect_Literal Discrete,0xb1c,{0x00000000, 0x00008113}
0b0e e005 | | Load 0x0,0x5
0b0f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b10 4800 |H | Short_Literal 0x0
0b11 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b12 e5fc | | Load 0x2,-0x4
0b13 0092 2089 | | Action Push_String_Extended,0x2089 ; "Target_Builder.Unit.Has_Unit_Target_Name"
0b15 e007 | | Load 0x0,0x7
0b16 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b17 4800 |H | Short_Literal 0x0
0b18 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b19 0000 0000 | | .XXX[0x3]
0b1b 0000 | |
0b1c 0000 0000 | | .LITERAL {0x00000000, 0x00008113}
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b2c | , | .CONST 0x0b2c ; Address of begin
0b21 0b49 | I | .CONST 0x0b49 ; Address of exception handler
0b22 0003 | | .CONST 0x0003 ; Number of locals
0b23 INIT_0b20:
0b23 e005 | | Load 0x0,0x5
0b24 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b25 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b26 e001 | | Load 0x0,0x1
0b27 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0b28 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b29 02c7 | | Declare_Variable Any
0b2a 00d8 | | Load_Top At_Offset_0
0b2b 1c00 | | Execute_Immediate Run_Utility,0x0
0b2c BODY_0b20:
0b2c e5fc | | Load 0x2,-0x4
0b2d 0092 208a | | Action Push_String_Extended,0x208a ; "Download_Time"
0b2f 826b | k | Call 0x1,0x6b
0b30 e005 | | Load 0x0,0x5
0b31 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b32 00d9 | | Load_Top At_Offset_1
0b33 e5fc | | Load 0x2,-0x4
0b34 6037 |`7 | Indirect_Literal Discrete,0xb6c,{0x00000000, 0x00008154}
0b35 e5fe | | Load 0x2,-0x2
0b36 e5ff | | Load 0x2,-0x1
0b37 826c | l | Call 0x1,0x6c
0b38 c403 | | Store 0x2,0x3
0b39 005a | Z | Store_Top Discrete,At_Offset_2
0b3a 4800 |H | Short_Literal 0x0
0b3b 00da | | Load_Top At_Offset_2
0b3c e005 | | Load 0x0,0x5
0b3d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b3e 7002 |p | Jump_Nonzero 0xb41
0b3f 8234 | 4 | Call 0x1,0x34
0b40 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b41 e5fd | | Load 0x2,-0x3
0b42 e009 | | Load 0x0,0x9
0b43 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0b44 00d9 | | Load_Top At_Offset_1
0b45 e001 | | Load 0x0,0x1
0b46 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0b47 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b48 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b49 TRAP_0b20:
0b49 e005 | | Load 0x0,0x5
0b4a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b4b 010f | | Execute Exception,Equal
0b4c 6815 |h | Jump_Zero 0xb62
0b4d e5fc | | Load 0x2,-0x4
0b4e 4801 |H | Short_Literal 0x1
0b4f 4801 |H | Short_Literal 0x1
0b50 e004 | | Load 0x0,0x4
0b51 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b52 035b | [ | Declare_Type Array,Constrained
0b53 0337 | 7 | Declare_Variable Array
0b54 e5fe | | Load 0x2,-0x2
0b55 e006 | | Load 0x0,0x6
0b56 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b57 e004 | | Load 0x0,0x4
0b58 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b59 0119 | | Execute Any,Check_In_Formal_Type
0b5a 4801 |H | Short_Literal 0x1
0b5b 00da | | Load_Top At_Offset_2
0b5c 01d6 | | Execute Vector,Field_Write
0b5d 600e |` | Indirect_Literal Discrete,0xb6c,{0x00000000, 0x00008154}
0b5e e005 | | Load 0x0,0x5
0b5f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b60 8234 | 4 | Call 0x1,0x34
0b61 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b62 e5fc | | Load 0x2,-0x4
0b63 0092 208b | | Action Push_String_Extended,0x208b ; "Target_Builder.Unit.Download_Time"
0b65 e007 | | Load 0x0,0x7
0b66 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b67 8234 | 4 | Call 0x1,0x34
0b68 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b69 0000 0000 | | .XXX[0x3]
0b6b 0000 | |
0b6c 0000 0000 | | .LITERAL {0x00000000, 0x00008154}
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b7c | | | .CONST 0x0b7c ; Address of begin
0b71 0bb5 | | .CONST 0x0bb5 ; Address of exception handler
0b72 0003 | | .CONST 0x0003 ; Number of locals
0b73 INIT_0b70:
0b73 e005 | | Load 0x0,0x5
0b74 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b75 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b76 e001 | | Load 0x0,0x1
0b77 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0b78 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b79 02c7 | | Declare_Variable Any
0b7a 00d8 | | Load_Top At_Offset_0
0b7b 1c00 | | Execute_Immediate Run_Utility,0x0
0b7c BODY_0b70:
0b7c e5fc | | Load 0x2,-0x4
0b7d 0092 208c | | Action Push_String_Extended,0x208c ; "Set_Download_Time"
0b7f 826b | k | Call 0x1,0x6b
0b80 e005 | | Load 0x0,0x5
0b81 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b82 00d9 | | Load_Top At_Offset_1
0b83 e5fc | | Load 0x2,-0x4
0b84 608f |` | Indirect_Literal Discrete,0xc14,{0x00000000, 0x00008120}
0b85 e5ff | | Load 0x2,-0x1
0b86 e5fb | | Load 0x2,-0x5
0b87 826c | l | Call 0x1,0x6c
0b88 c403 | | Store 0x2,0x3
0b89 005a | Z | Store_Top Discrete,At_Offset_2
0b8a 4800 |H | Short_Literal 0x0
0b8b 00da | | Load_Top At_Offset_2
0b8c e005 | | Load 0x0,0x5
0b8d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b8e 7003 |p | Jump_Nonzero 0xb92
0b8f 00d9 | | Load_Top At_Offset_1
0b90 a5fa | | Store_Unchecked 0x2,-0x6
0b91 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b92 e5fc | | Load 0x2,-0x4
0b93 0092 208d | | Action Push_String_Extended,0x208d ; "Setting download time for => "
0b95 e5ff | | Load 0x2,-0x1
0b96 e006 | | Load 0x0,0x6
0b97 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0b98 01cc | | Execute Vector,Catenate
0b99 0092 208e | | Action Push_String_Extended,0x208e ; " to "
0b9b 01cc | | Execute Vector,Catenate
0b9c 4800 |H | Short_Literal 0x0
0b9d 4800 |H | Short_Literal 0x0
0b9e 4800 |H | Short_Literal 0x0
0b9f e5fe | | Load 0x2,-0x2
0ba0 e011 | | Load 0x0,0x11
0ba1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0ba2 e011 | | Load 0x0,0x11
0ba3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0ba4 01cc | | Execute Vector,Catenate
0ba5 e007 | | Load 0x0,0x7
0ba6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ba7 00d9 | | Load_Top At_Offset_1
0ba8 e5fd | | Load 0x2,-0x3
0ba9 e009 | | Load 0x0,0x9
0baa 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0bab 4801 |H | Short_Literal 0x1
0bac e5fe | | Load 0x2,-0x2
0bad e403 | | Load 0x2,0x3
0bae e001 | | Load 0x0,0x1
0baf 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0bb0 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0bb1 005a | Z | Store_Top Discrete,At_Offset_2
0bb2 00d9 | | Load_Top At_Offset_1
0bb3 a5fa | | Store_Unchecked 0x2,-0x6
0bb4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0bb5 TRAP_0b70:
0bb5 e005 | | Load 0x0,0x5
0bb6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0bb7 010f | | Execute Exception,Equal
0bb8 682c |h, | Jump_Zero 0xbe5
0bb9 e005 | | Load 0x0,0x5
0bba 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0bbb a5fa | | Store_Unchecked 0x2,-0x6
0bbc e5fc | | Load 0x2,-0x4
0bbd 4801 |H | Short_Literal 0x1
0bbe 4803 |H | Short_Literal 0x3
0bbf e004 | | Load 0x0,0x4
0bc0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bc1 035b | [ | Declare_Type Array,Constrained
0bc2 0337 | 7 | Declare_Variable Array
0bc3 e5ff | | Load 0x2,-0x1
0bc4 e006 | | Load 0x0,0x6
0bc5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0bc6 e004 | | Load 0x0,0x4
0bc7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bc8 0119 | | Execute Any,Check_In_Formal_Type
0bc9 4801 |H | Short_Literal 0x1
0bca 00da | | Load_Top At_Offset_2
0bcb 01d6 | | Execute Vector,Field_Write
0bcc e5fb | | Load 0x2,-0x5
0bcd 0227 | ' | Execute Access,All_Reference
0bce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bcf e001 | | Load 0x0,0x1
0bd0 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0bd1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0bd2 e004 | | Load 0x0,0x4
0bd3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bd4 0119 | | Execute Any,Check_In_Formal_Type
0bd5 4802 |H | Short_Literal 0x2
0bd6 00da | | Load_Top At_Offset_2
0bd7 01d6 | | Execute Vector,Field_Write
0bd8 e5fe | | Load 0x2,-0x2
0bd9 e004 | | Load 0x0,0x4
0bda 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0bdb e004 | | Load 0x0,0x4
0bdc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bdd 0119 | | Execute Any,Check_In_Formal_Type
0bde 4803 |H | Short_Literal 0x3
0bdf 00da | | Load_Top At_Offset_2
0be0 01d6 | | Execute Vector,Field_Write
0be1 6032 |`2 | Indirect_Literal Discrete,0xc14,{0x00000000, 0x00008120}
0be2 e005 | | Load 0x0,0x5
0be3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0be4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0be5 e5fc | | Load 0x2,-0x4
0be6 0092 208f | | Action Push_String_Extended,0x208f ; "Target_Builder.Unit.Set_Download_Time"
0be8 e007 | | Load 0x0,0x7
0be9 180f | | Execute Package,Field_Execute,Field_Number 0xf
0bea 4801 |H | Short_Literal 0x1
0beb 4803 |H | Short_Literal 0x3
0bec e004 | | Load 0x0,0x4
0bed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bee 035b | [ | Declare_Type Array,Constrained
0bef 0337 | 7 | Declare_Variable Array
0bf0 e5ff | | Load 0x2,-0x1
0bf1 e006 | | Load 0x0,0x6
0bf2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0bf3 e004 | | Load 0x0,0x4
0bf4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bf5 0119 | | Execute Any,Check_In_Formal_Type
0bf6 4801 |H | Short_Literal 0x1
0bf7 00da | | Load_Top At_Offset_2
0bf8 01d6 | | Execute Vector,Field_Write
0bf9 e5fb | | Load 0x2,-0x5
0bfa 0227 | ' | Execute Access,All_Reference
0bfb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bfc e001 | | Load 0x0,0x1
0bfd 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0bfe 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0bff e004 | | Load 0x0,0x4
0c00 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c01 0119 | | Execute Any,Check_In_Formal_Type
0c02 4802 |H | Short_Literal 0x2
0c03 00da | | Load_Top At_Offset_2
0c04 01d6 | | Execute Vector,Field_Write
0c05 e5fe | | Load 0x2,-0x2
0c06 e004 | | Load 0x0,0x4
0c07 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c08 e004 | | Load 0x0,0x4
0c09 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c0a 0119 | | Execute Any,Check_In_Formal_Type
0c0b 4803 |H | Short_Literal 0x3
0c0c 00da | | Load_Top At_Offset_2
0c0d 01d6 | | Execute Vector,Field_Write
0c0e 6005 |` | Indirect_Literal Discrete,0xc14,{0x00000000, 0x00008120}
0c0f e005 | | Load 0x0,0x5
0c10 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c11 a5fa | | Store_Unchecked 0x2,-0x6
0c12 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0c13 0000 | | .XXX[0x1]
0c14 0000 0000 | | .LITERAL {0x00000000, 0x00008120}
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1b | | .CONST 0x0c1b ; Address of begin
0c19 0004 | | .CONST 0x0004 ; Address of exception handler
0c1a 0001 | | .CONST 0x0001 ; Number of locals
0c1b BODY_0c18:
0c1b INIT_0c18:
0c1b 4800 |H | Short_Literal 0x0
0c1c 4801 |H | Short_Literal 0x1
0c1d 4801 |H | Short_Literal 0x1
0c1e 6005 |` | Indirect_Literal Discrete,0xc24,{0x00000000, 0x0000076d}
0c1f e00d | | Load 0x0,0xd
0c20 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c21 00ca | | Action Exit_Nullary_Function
0c22 0000 0000 | | .XXX[0x2]
0c24 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
0c28 ; --------------------------------------------------------------------------------------
0c28 ; SUBPROGRAM
0c28 ; --------------------------------------------------------------------------------------
0c28 0c3e | > | .CONST 0x0c3e ; Address of begin
0c29 0cc7 | | .CONST 0x0cc7 ; Address of exception handler
0c2a 0005 | | .CONST 0x0005 ; Number of locals
0c2b INIT_0c28:
0c2b e005 | | Load 0x0,0x5
0c2c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c2d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c2e e003 | | Load 0x0,0x3
0c2f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c30 03bc | | Declare_Variable Access,By_Allocation
0c31 00d8 | | Load_Top At_Offset_0
0c32 0227 | ' | Execute Access,All_Reference
0c33 1c00 | | Execute_Immediate Run_Utility,0x0
0c34 e5ff | | Load 0x2,-0x1
0c35 e002 | | Load 0x0,0x2
0c36 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0c37 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0c38 e001 | | Load 0x0,0x1
0c39 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c3a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c3b 02c7 | | Declare_Variable Any
0c3c 00d8 | | Load_Top At_Offset_0
0c3d 1c00 | | Execute_Immediate Run_Utility,0x0
0c3e BODY_0c28:
0c3e e5fb | | Load 0x2,-0x5
0c3f 0092 2090 | | Action Push_String_Extended,0x2090 ; "Target_Builder.Unit.Refresh_Suppliers"
0c41 e007 | | Load 0x0,0x7
0c42 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c43 4800 |H | Short_Literal 0x0
0c44 a5fa | | Store_Unchecked 0x2,-0x6
0c45 e5fd | | Load 0x2,-0x3
0c46 0227 | ' | Execute Access,All_Reference
0c47 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c48 00db | | Load_Top At_Offset_3
0c49 0227 | ' | Execute Access,All_Reference
0c4a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c4b 4801 |H | Short_Literal 0x1
0c4c e5fd | | Load 0x2,-0x3
0c4d 0227 | ' | Execute Access,All_Reference
0c4e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c4f e001 | | Load 0x0,0x1
0c50 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c51 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0c52 00db | | Load_Top At_Offset_3
0c53 0227 | ' | Execute Access,All_Reference
0c54 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c55 4801 |H | Short_Literal 0x1
0c56 4802 |H | Short_Literal 0x2
0c57 00db | | Load_Top At_Offset_3
0c58 e403 | | Load 0x2,0x3
0c59 0227 | ' | Execute Access,All_Reference
0c5a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c5b e403 | | Load 0x2,0x3
0c5c 0227 | ' | Execute Access,All_Reference
0c5d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c5e e001 | | Load 0x0,0x1
0c5f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c60 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0c61 00da | | Load_Top At_Offset_2
0c62 0227 | ' | Execute Access,All_Reference
0c63 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c64 00da | | Load_Top At_Offset_2
0c65 e001 | | Load 0x0,0x1
0c66 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c67 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0c68 c405 | | Store 0x2,0x5
0c69 00d8 | | Load_Top At_Offset_0
0c6a e001 | | Load 0x0,0x1
0c6b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c6c 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c6d 7034 |p4 | Jump_Nonzero 0xca2
0c6e e5fc | | Load 0x2,-0x4
0c6f e009 | | Load 0x0,0x9
0c70 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0c71 00d9 | | Load_Top At_Offset_1
0c72 e001 | | Load 0x0,0x1
0c73 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c74 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0c75 702c |p, | Jump_Nonzero 0xca2
0c76 00db | | Load_Top At_Offset_3
0c77 e5fc | | Load 0x2,-0x4
0c78 00da | | Load_Top At_Offset_2
0c79 8017 | | Call 0x0,0x17
0c7a c402 | | Store 0x2,0x2
0c7b 4800 |H | Short_Literal 0x0
0c7c e402 | | Load 0x2,0x2
0c7d e005 | | Load 0x0,0x5
0c7e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0c7f 7044 |pD | Jump_Nonzero 0xcc4
0c80 e014 | | Load 0x0,0x14
0c81 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c82 4801 |H | Short_Literal 0x1
0c83 4802 |H | Short_Literal 0x2
0c84 e004 | | Load 0x0,0x4
0c85 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c86 035b | [ | Declare_Type Array,Constrained
0c87 0337 | 7 | Declare_Variable Array
0c88 00da | | Load_Top At_Offset_2
0c89 8018 | | Call 0x0,0x18
0c8a e004 | | Load 0x0,0x4
0c8b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c8c 0119 | | Execute Any,Check_In_Formal_Type
0c8d 4801 |H | Short_Literal 0x1
0c8e 00da | | Load_Top At_Offset_2
0c8f 01d6 | | Execute Vector,Field_Write
0c90 e403 | | Load 0x2,0x3
0c91 0227 | ' | Execute Access,All_Reference
0c92 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c93 e001 | | Load 0x0,0x1
0c94 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0c95 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0c96 e004 | | Load 0x0,0x4
0c97 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c98 0119 | | Execute Any,Check_In_Formal_Type
0c99 4802 |H | Short_Literal 0x2
0c9a 00da | | Load_Top At_Offset_2
0c9b 01d6 | | Execute Vector,Field_Write
0c9c 6053 |`S | Indirect_Literal Discrete,0xcf0,{0x00000000, 0x0000811f}
0c9d e005 | | Load 0x0,0x5
0c9e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c9f 00db | | Load_Top At_Offset_3
0ca0 a5fa | | Store_Unchecked 0x2,-0x6
0ca1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ca2 00d8 | | Load_Top At_Offset_0
0ca3 e001 | | Load 0x0,0x1
0ca4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0ca5 180f | | Execute Package,Field_Execute,Field_Number 0xf
0ca6 681d |h | Jump_Zero 0xcc4
0ca7 e014 | | Load 0x0,0x14
0ca8 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ca9 4801 |H | Short_Literal 0x1
0caa 4802 |H | Short_Literal 0x2
0cab e004 | | Load 0x0,0x4
0cac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cad 035b | [ | Declare_Type Array,Constrained
0cae 0337 | 7 | Declare_Variable Array
0caf e5ff | | Load 0x2,-0x1
0cb0 e004 | | Load 0x0,0x4
0cb1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0cb2 e004 | | Load 0x0,0x4
0cb3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cb4 0119 | | Execute Any,Check_In_Formal_Type
0cb5 4801 |H | Short_Literal 0x1
0cb6 00da | | Load_Top At_Offset_2
0cb7 01d6 | | Execute Vector,Field_Write
0cb8 e5fe | | Load 0x2,-0x2
0cb9 e004 | | Load 0x0,0x4
0cba 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0cbb e004 | | Load 0x0,0x4
0cbc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cbd 0119 | | Execute Any,Check_In_Formal_Type
0cbe 4802 |H | Short_Literal 0x2
0cbf 00da | | Load_Top At_Offset_2
0cc0 01d6 | | Execute Vector,Field_Write
0cc1 602a |`* | Indirect_Literal Discrete,0xcec,{0x00000000, 0x0000811e}
0cc2 e005 | | Load 0x0,0x5
0cc3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cc4 00db | | Load_Top At_Offset_3
0cc5 a5fa | | Store_Unchecked 0x2,-0x6
0cc6 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0cc7 TRAP_0c28:
0cc7 4884 |H | Short_Literal 0x84
0cc8 010f | | Execute Exception,Equal
0cc9 681c |h | Jump_Zero 0xce6
0cca 4801 |H | Short_Literal 0x1
0ccb 4802 |H | Short_Literal 0x2
0ccc e004 | | Load 0x0,0x4
0ccd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cce 035b | [ | Declare_Type Array,Constrained
0ccf 0337 | 7 | Declare_Variable Array
0cd0 e5ff | | Load 0x2,-0x1
0cd1 e004 | | Load 0x0,0x4
0cd2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0cd3 e004 | | Load 0x0,0x4
0cd4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cd5 0119 | | Execute Any,Check_In_Formal_Type
0cd6 4801 |H | Short_Literal 0x1
0cd7 00da | | Load_Top At_Offset_2
0cd8 01d6 | | Execute Vector,Field_Write
0cd9 e5fe | | Load 0x2,-0x2
0cda e004 | | Load 0x0,0x4
0cdb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
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 6009 |` | Indirect_Literal Discrete,0xcec,{0x00000000, 0x0000811e}
0ce3 e005 | | Load 0x0,0x5
0ce4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0ce5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ce6 0092 2091 | | Action Push_String_Extended,0x2091 ; "Refresh_Suppliers"
0ce8 e007 | | Load 0x0,0x7
0ce9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cea a5fa | | Store_Unchecked 0x2,-0x6
0ceb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0cec 0000 0000 | | .LITERAL {0x00000000, 0x0000811e}
0cf0 0000 0000 | | .LITERAL {0x00000000, 0x0000811f}
0cf4 0000 0000 | | .BLANK 0000[0x4]
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0d0e | | .CONST 0x0d0e ; Address of begin
0cf9 0d98 | | .CONST 0x0d98 ; Address of exception handler
0cfa 0005 | | .CONST 0x0005 ; Number of locals
0cfb INIT_0cf8:
0cfb e005 | | Load 0x0,0x5
0cfc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cfd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0cfe e003 | | Load 0x0,0x3
0cff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d00 03bc | | Declare_Variable Access,By_Allocation
0d01 00d8 | | Load_Top At_Offset_0
0d02 0227 | ' | Execute Access,All_Reference
0d03 1c00 | | Execute_Immediate Run_Utility,0x0
0d04 e5ff | | Load 0x2,-0x1
0d05 e002 | | Load 0x0,0x2
0d06 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d07 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0d08 e001 | | Load 0x0,0x1
0d09 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d0a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d0b 02c7 | | Declare_Variable Any
0d0c 00d8 | | Load_Top At_Offset_0
0d0d 1c00 | | Execute_Immediate Run_Utility,0x0
0d0e BODY_0cf8:
0d0e e5fb | | Load 0x2,-0x5
0d0f 0092 2092 | | Action Push_String_Extended,0x2092 ; "Target_Builder.Unit.Register"
0d11 e007 | | Load 0x0,0x7
0d12 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d13 4800 |H | Short_Literal 0x0
0d14 a5fa | | Store_Unchecked 0x2,-0x6
0d15 e5fd | | Load 0x2,-0x3
0d16 0227 | ' | Execute Access,All_Reference
0d17 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d18 00db | | Load_Top At_Offset_3
0d19 0227 | ' | Execute Access,All_Reference
0d1a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0d1b 4801 |H | Short_Literal 0x1
0d1c e5fd | | Load 0x2,-0x3
0d1d 0227 | ' | Execute Access,All_Reference
0d1e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d1f e001 | | Load 0x0,0x1
0d20 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d21 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0d22 00db | | Load_Top At_Offset_3
0d23 0227 | ' | Execute Access,All_Reference
0d24 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0d25 4801 |H | Short_Literal 0x1
0d26 4800 |H | Short_Literal 0x0
0d27 00db | | Load_Top At_Offset_3
0d28 e403 | | Load 0x2,0x3
0d29 0227 | ' | Execute Access,All_Reference
0d2a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0d2b e403 | | Load 0x2,0x3
0d2c 0227 | ' | Execute Access,All_Reference
0d2d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d2e e001 | | Load 0x0,0x1
0d2f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d30 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0d31 00da | | Load_Top At_Offset_2
0d32 0227 | ' | Execute Access,All_Reference
0d33 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d34 00da | | Load_Top At_Offset_2
0d35 e001 | | Load 0x0,0x1
0d36 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d37 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0d38 c405 | | Store 0x2,0x5
0d39 00d8 | | Load_Top At_Offset_0
0d3a e001 | | Load 0x0,0x1
0d3b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d3c 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d3d 7034 |p4 | Jump_Nonzero 0xd72
0d3e e5fc | | Load 0x2,-0x4
0d3f e009 | | Load 0x0,0x9
0d40 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0d41 00d9 | | Load_Top At_Offset_1
0d42 e001 | | Load 0x0,0x1
0d43 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d44 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0d45 702c |p, | Jump_Nonzero 0xd72
0d46 00db | | Load_Top At_Offset_3
0d47 e5fc | | Load 0x2,-0x4
0d48 00da | | Load_Top At_Offset_2
0d49 8017 | | Call 0x0,0x17
0d4a c402 | | Store 0x2,0x2
0d4b 4800 |H | Short_Literal 0x0
0d4c e402 | | Load 0x2,0x2
0d4d e005 | | Load 0x0,0x5
0d4e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d4f 7045 |pE | Jump_Nonzero 0xd95
0d50 e014 | | Load 0x0,0x14
0d51 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d52 4801 |H | Short_Literal 0x1
0d53 4802 |H | Short_Literal 0x2
0d54 e004 | | Load 0x0,0x4
0d55 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d56 035b | [ | Declare_Type Array,Constrained
0d57 0337 | 7 | Declare_Variable Array
0d58 00da | | Load_Top At_Offset_2
0d59 8018 | | Call 0x0,0x18
0d5a e004 | | Load 0x0,0x4
0d5b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d5c 0119 | | Execute Any,Check_In_Formal_Type
0d5d 4801 |H | Short_Literal 0x1
0d5e 00da | | Load_Top At_Offset_2
0d5f 01d6 | | Execute Vector,Field_Write
0d60 e403 | | Load 0x2,0x3
0d61 0227 | ' | Execute Access,All_Reference
0d62 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d63 e001 | | Load 0x0,0x1
0d64 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0d65 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0d66 e004 | | Load 0x0,0x4
0d67 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d68 0119 | | Execute Any,Check_In_Formal_Type
0d69 4802 |H | Short_Literal 0x2
0d6a 00da | | Load_Top At_Offset_2
0d6b 01d6 | | Execute Vector,Field_Write
0d6c 6783 |g | Indirect_Literal Discrete,0xcf0,{0x00000000, 0x0000811f}
0d6d e005 | | Load 0x0,0x5
0d6e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d6f 00db | | Load_Top At_Offset_3
0d70 a5fa | | Store_Unchecked 0x2,-0x6
0d71 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d72 00d8 | | Load_Top At_Offset_0
0d73 e001 | | Load 0x0,0x1
0d74 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0d75 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d76 681e |h | Jump_Zero 0xd95
0d77 e014 | | Load 0x0,0x14
0d78 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d79 4801 |H | Short_Literal 0x1
0d7a 4802 |H | Short_Literal 0x2
0d7b e004 | | Load 0x0,0x4
0d7c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d7d 035b | [ | Declare_Type Array,Constrained
0d7e 0337 | 7 | Declare_Variable Array
0d7f e5ff | | Load 0x2,-0x1
0d80 e004 | | Load 0x0,0x4
0d81 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0d82 e004 | | Load 0x0,0x4
0d83 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d84 0119 | | Execute Any,Check_In_Formal_Type
0d85 4801 |H | Short_Literal 0x1
0d86 00da | | Load_Top At_Offset_2
0d87 01d6 | | Execute Vector,Field_Write
0d88 0092 2093 | | Action Push_String_Extended,0x2093 ; "register"
0d8a e004 | | Load 0x0,0x4
0d8b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d8c e004 | | Load 0x0,0x4
0d8d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d8e 0119 | | Execute Any,Check_In_Formal_Type
0d8f 4802 |H | Short_Literal 0x2
0d90 00da | | Load_Top At_Offset_2
0d91 01d6 | | Execute Vector,Field_Write
0d92 600d |` | Indirect_Literal Discrete,0xda0,{0x00000000, 0x0000811d}
0d93 e005 | | Load 0x0,0x5
0d94 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d95 00db | | Load_Top At_Offset_3
0d96 a5fa | | Store_Unchecked 0x2,-0x6
0d97 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d98 TRAP_0cf8:
0d98 0007 | | Action Break_Optional
0d99 0092 2094 | | Action Push_String_Extended,0x2094 ; "Register"
0d9b e007 | | Load 0x0,0x7
0d9c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d9d a5fa | | Store_Unchecked 0x2,-0x6
0d9e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d9f 0000 | | .XXX[0x1]
0da0 0000 0000 | | .LITERAL {0x00000000, 0x0000811d}
0da4 0000 0000 | | .BLANK 0000[0x4]
0da8 ; --------------------------------------------------------------------------------------
0da8 ; SUBPROGRAM
0da8 ; --------------------------------------------------------------------------------------
0da8 0dc2 | | .CONST 0x0dc2 ; Address of begin
0da9 0f19 | | .CONST 0x0f19 ; Address of exception handler
0daa 0006 | | .CONST 0x0006 ; Number of locals
0dab INIT_0da8:
0dab e001 | | Load 0x0,0x1
0dac 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0dad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dae 02c7 | | Declare_Variable Any
0daf 00d8 | | Load_Top At_Offset_0
0db0 1c00 | | Execute_Immediate Run_Utility,0x0
0db1 e005 | | Load 0x0,0x5
0db2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0db3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0db4 e001 | | Load 0x0,0x1
0db5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0db6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0db7 02c7 | | Declare_Variable Any
0db8 00d8 | | Load_Top At_Offset_0
0db9 1c00 | | Execute_Immediate Run_Utility,0x0
0dba 00e1 | | Load_Encached Boolean_Cache
0dbb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0dbc e001 | | Load 0x0,0x1
0dbd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0dbe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dbf 02c7 | | Declare_Variable Any
0dc0 00d8 | | Load_Top At_Offset_0
0dc1 1c00 | | Execute_Immediate Run_Utility,0x0
0dc2 BODY_0da8:
0dc2 e5fa | | Load 0x2,-0x6
0dc3 0092 2095 | | Action Push_String_Extended,0x2095 ; "Add_Secondary_Unit"
0dc5 826b | k | Call 0x1,0x6b
0dc6 e005 | | Load 0x0,0x5
0dc7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dc8 00db | | Load_Top At_Offset_3
0dc9 e5fa | | Load 0x2,-0x6
0dca 618d |a | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0dcb e5fe | | Load 0x2,-0x2
0dcc e5ff | | Load 0x2,-0x1
0dcd 826c | l | Call 0x1,0x6c
0dce c404 | | Store 0x2,0x4
0dcf c403 | | Store 0x2,0x3
0dd0 4800 |H | Short_Literal 0x0
0dd1 e403 | | Load 0x2,0x3
0dd2 e005 | | Load 0x0,0x5
0dd3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0dd4 7003 |p | Jump_Nonzero 0xdd8
0dd5 00db | | Load_Top At_Offset_3
0dd6 a5f9 | | Store_Unchecked 0x2,-0x7
0dd7 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0dd8 e5ff | | Load 0x2,-0x1
0dd9 0227 | ' | Execute Access,All_Reference
0dda 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ddb e5fd | | Load 0x2,-0x3
0ddc e002 | | Load 0x0,0x2
0ddd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0dde 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0ddf e001 | | Load 0x0,0x1
0de0 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0de1 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0de2 c406 | | Store 0x2,0x6
0de3 00d8 | | Load_Top At_Offset_0
0de4 e001 | | Load 0x0,0x1
0de5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0de6 180f | | Execute Package,Field_Execute,Field_Number 0xf
0de7 686b |hk | Jump_Zero 0xe53
0de8 00db | | Load_Top At_Offset_3
0de9 4802 |H | Short_Literal 0x2
0dea e5ff | | Load 0x2,-0x1
0deb 0227 | ' | Execute Access,All_Reference
0dec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ded e5fd | | Load 0x2,-0x3
0dee e001 | | Load 0x0,0x1
0def 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0df0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0df1 c403 | | Store 0x2,0x3
0df2 4800 |H | Short_Literal 0x0
0df3 e403 | | Load 0x2,0x3
0df4 e005 | | Load 0x0,0x5
0df5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0df6 7026 |p& | Jump_Nonzero 0xe1d
0df7 e5fa | | Load 0x2,-0x6
0df8 4801 |H | Short_Literal 0x1
0df9 4802 |H | Short_Literal 0x2
0dfa e004 | | Load 0x0,0x4
0dfb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0dfc 035b | [ | Declare_Type Array,Constrained
0dfd 0337 | 7 | Declare_Variable Array
0dfe e5fd | | Load 0x2,-0x3
0dff e006 | | Load 0x0,0x6
0e00 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e01 e004 | | Load 0x0,0x4
0e02 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e03 0119 | | Execute Any,Check_In_Formal_Type
0e04 4801 |H | Short_Literal 0x1
0e05 00da | | Load_Top At_Offset_2
0e06 01d6 | | Execute Vector,Field_Write
0e07 e5ff | | Load 0x2,-0x1
0e08 0227 | ' | Execute Access,All_Reference
0e09 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e0a e001 | | Load 0x0,0x1
0e0b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0e0c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0e0d e004 | | Load 0x0,0x4
0e0e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e0f 0119 | | Execute Any,Check_In_Formal_Type
0e10 4802 |H | Short_Literal 0x2
0e11 00da | | Load_Top At_Offset_2
0e12 01d6 | | Execute Vector,Field_Write
0e13 678c |g | Indirect_Literal Discrete,0xda0,{0x00000000, 0x0000811d}
0e14 e005 | | Load 0x0,0x5
0e15 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e16 e004 | | Load 0x0,0x4
0e17 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e18 613f |a? | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0e19 e005 | | Load 0x0,0x5
0e1a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e1b a5f9 | | Store_Unchecked 0x2,-0x7
0e1c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e1d e5ff | | Load 0x2,-0x1
0e1e 0227 | ' | Execute Access,All_Reference
0e1f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e20 e5fd | | Load 0x2,-0x3
0e21 e002 | | Load 0x0,0x2
0e22 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e23 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0e24 e001 | | Load 0x0,0x1
0e25 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0e26 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0e27 c406 | | Store 0x2,0x6
0e28 00d8 | | Load_Top At_Offset_0
0e29 e001 | | Load 0x0,0x1
0e2a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e2b 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e2c 6858 |hX | Jump_Zero 0xe85
0e2d e5fa | | Load 0x2,-0x6
0e2e 4801 |H | Short_Literal 0x1
0e2f 4802 |H | Short_Literal 0x2
0e30 e004 | | Load 0x0,0x4
0e31 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e32 035b | [ | Declare_Type Array,Constrained
0e33 0337 | 7 | Declare_Variable Array
0e34 e5fd | | Load 0x2,-0x3
0e35 e006 | | Load 0x0,0x6
0e36 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e37 e004 | | Load 0x0,0x4
0e38 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e39 0119 | | Execute Any,Check_In_Formal_Type
0e3a 4801 |H | Short_Literal 0x1
0e3b 00da | | Load_Top At_Offset_2
0e3c 01d6 | | Execute Vector,Field_Write
0e3d e5ff | | Load 0x2,-0x1
0e3e 0227 | ' | Execute Access,All_Reference
0e3f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0e40 e001 | | Load 0x0,0x1
0e41 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0e42 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0e43 e004 | | Load 0x0,0x4
0e44 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e45 0119 | | Execute Any,Check_In_Formal_Type
0e46 4802 |H | Short_Literal 0x2
0e47 00da | | Load_Top At_Offset_2
0e48 01d6 | | Execute Vector,Field_Write
0e49 6756 |gV | Indirect_Literal Discrete,0xda0,{0x00000000, 0x0000811d}
0e4a e005 | | Load 0x0,0x5
0e4b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e4c e004 | | Load 0x0,0x4
0e4d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e4e 6109 |a | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0e4f e005 | | Load 0x0,0x5
0e50 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e51 a5f9 | | Store_Unchecked 0x2,-0x7
0e52 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e53 00d8 | | Load_Top At_Offset_0
0e54 e001 | | Load 0x0,0x1
0e55 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e56 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0e57 682d |h- | Jump_Zero 0xe85
0e58 00d8 | | Load_Top At_Offset_0
0e59 e001 | | Load 0x0,0x1
0e5a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e5b 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0e5c c402 | | Store 0x2,0x2
0e5d e402 | | Load 0x2,0x2
0e5e e001 | | Load 0x0,0x1
0e5f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e60 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e61 00db | | Load_Top At_Offset_3
0e62 e001 | | Load 0x0,0x1
0e63 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e64 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e65 01df | | Execute Vector,Equal
0e66 6803 |h | Jump_Zero 0xe6a
0e67 4801 |H | Short_Literal 0x1
0e68 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0e69 781b |x | Jump 0xe85
0e6a e5fa | | Load 0x2,-0x6
0e6b 4801 |H | Short_Literal 0x1
0e6c 4801 |H | Short_Literal 0x1
0e6d e004 | | Load 0x0,0x4
0e6e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e6f 035b | [ | Declare_Type Array,Constrained
0e70 0337 | 7 | Declare_Variable Array
0e71 e402 | | Load 0x2,0x2
0e72 e001 | | Load 0x0,0x1
0e73 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0e74 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e75 e004 | | Load 0x0,0x4
0e76 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e77 0119 | | Execute Any,Check_In_Formal_Type
0e78 4801 |H | Short_Literal 0x1
0e79 00da | | Load_Top At_Offset_2
0e7a 01d6 | | Execute Vector,Field_Write
0e7b 60d8 |` | Indirect_Literal Discrete,0xf54,{0x00000000, 0x00008170}
0e7c e005 | | Load 0x0,0x5
0e7d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e7e e004 | | Load 0x0,0x4
0e7f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e80 60d7 |` | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0e81 e005 | | Load 0x0,0x5
0e82 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e83 a5f9 | | Store_Unchecked 0x2,-0x7
0e84 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0e85 e5fc | | Load 0x2,-0x4
0e86 01db | | Execute Vector,Length
0e87 e5fb | | Load 0x2,-0x5
0e88 01db | | Execute Vector,Length
0e89 0273 | s | Execute Discrete,Plus
0e8a 4900 |I | Short_Literal 0x100
0e8b 027d | } | Execute Discrete,Greater
0e8c 6823 |h# | Jump_Zero 0xeb0
0e8d e5fa | | Load 0x2,-0x6
0e8e 4801 |H | Short_Literal 0x1
0e8f 4802 |H | Short_Literal 0x2
0e90 e004 | | Load 0x0,0x4
0e91 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e92 035b | [ | Declare_Type Array,Constrained
0e93 0337 | 7 | Declare_Variable Array
0e94 e5fd | | Load 0x2,-0x3
0e95 e006 | | Load 0x0,0x6
0e96 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e97 e004 | | Load 0x0,0x4
0e98 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e99 0119 | | Execute Any,Check_In_Formal_Type
0e9a 4801 |H | Short_Literal 0x1
0e9b 00da | | Load_Top At_Offset_2
0e9c 01d6 | | Execute Vector,Field_Write
0e9d 4900 |I | Short_Literal 0x100
0e9e e004 | | Load 0x0,0x4
0e9f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ea0 e004 | | Load 0x0,0x4
0ea1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ea2 0119 | | Execute Any,Check_In_Formal_Type
0ea3 4802 |H | Short_Literal 0x2
0ea4 00da | | Load_Top At_Offset_2
0ea5 01d6 | | Execute Vector,Field_Write
0ea6 60a9 |` | Indirect_Literal Discrete,0xf50,{0x00000000, 0x00008163}
0ea7 e005 | | Load 0x0,0x5
0ea8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ea9 e004 | | Load 0x0,0x4
0eaa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0eab 60ac |` | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0eac e005 | | Load 0x0,0x5
0ead 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0eae a5f9 | | Store_Unchecked 0x2,-0x7
0eaf 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0eb0 00d9 | | Load_Top At_Offset_1
0eb1 6835 |h5 | Jump_Zero 0xee7
0eb2 e5fc | | Load 0x2,-0x4
0eb3 00d9 | | Load_Top At_Offset_1
0eb4 8019 | | Call 0x0,0x19
0eb5 e5fb | | Load 0x2,-0x5
0eb6 00d9 | | Load_Top At_Offset_1
0eb7 801a | | Call 0x0,0x1a
0eb8 e5fa | | Load 0x2,-0x6
0eb9 4801 |H | Short_Literal 0x1
0eba 4804 |H | Short_Literal 0x4
0ebb e004 | | Load 0x0,0x4
0ebc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ebd 035b | [ | Declare_Type Array,Constrained
0ebe 0337 | 7 | Declare_Variable Array
0ebf e5fd | | Load 0x2,-0x3
0ec0 e006 | | Load 0x0,0x6
0ec1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0ec2 e004 | | Load 0x0,0x4
0ec3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ec4 0119 | | Execute Any,Check_In_Formal_Type
0ec5 4801 |H | Short_Literal 0x1
0ec6 00da | | Load_Top At_Offset_2
0ec7 01d6 | | Execute Vector,Field_Write
0ec8 e5fe | | Load 0x2,-0x2
0ec9 e006 | | Load 0x0,0x6
0eca 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0ecb e004 | | Load 0x0,0x4
0ecc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ecd 0119 | | Execute Any,Check_In_Formal_Type
0ece 4802 |H | Short_Literal 0x2
0ecf 00da | | Load_Top At_Offset_2
0ed0 01d6 | | Execute Vector,Field_Write
0ed1 e5fc | | Load 0x2,-0x4
0ed2 e004 | | Load 0x0,0x4
0ed3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ed4 e004 | | Load 0x0,0x4
0ed5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ed6 0119 | | Execute Any,Check_In_Formal_Type
0ed7 4803 |H | Short_Literal 0x3
0ed8 00da | | Load_Top At_Offset_2
0ed9 01d6 | | Execute Vector,Field_Write
0eda e5fb | | Load 0x2,-0x5
0edb e004 | | Load 0x0,0x4
0edc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0edd e004 | | Load 0x0,0x4
0ede 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0edf 0119 | | Execute Any,Check_In_Formal_Type
0ee0 4804 |H | Short_Literal 0x4
0ee1 00da | | Load_Top At_Offset_2
0ee2 01d6 | | Execute Vector,Field_Write
0ee3 6068 |`h | Indirect_Literal Discrete,0xf4c,{0x00000000, 0x00008186}
0ee4 e005 | | Load 0x0,0x5
0ee5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ee6 782f |x/ | Jump 0xf16
0ee7 00db | | Load_Top At_Offset_3
0ee8 00d9 | | Load_Top At_Offset_1
0ee9 e404 | | Load 0x2,0x4
0eea e001 | | Load 0x0,0x1
0eeb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0eec 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0eed c403 | | Store 0x2,0x3
0eee 4800 |H | Short_Literal 0x0
0eef e403 | | Load 0x2,0x3
0ef0 e005 | | Load 0x0,0x5
0ef1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0ef2 6823 |h# | Jump_Zero 0xf16
0ef3 e5fc | | Load 0x2,-0x4
0ef4 00d9 | | Load_Top At_Offset_1
0ef5 8019 | | Call 0x0,0x19
0ef6 e5fb | | Load 0x2,-0x5
0ef7 00d9 | | Load_Top At_Offset_1
0ef8 801a | | Call 0x0,0x1a
0ef9 e5fa | | Load 0x2,-0x6
0efa 0092 2096 | | Action Push_String_Extended,0x2096 ; "Added "
0efc e5fd | | Load 0x2,-0x3
0efd e006 | | Load 0x0,0x6
0efe 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0eff 01cc | | Execute Vector,Catenate
0f00 0092 2097 | | Action Push_String_Extended,0x2097 ; " as the secondary of unit "
0f02 01cc | | Execute Vector,Catenate
0f03 e5fe | | Load 0x2,-0x2
0f04 e006 | | Load 0x0,0x6
0f05 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f06 01cc | | Execute Vector,Catenate
0f07 0092 2098 | | Action Push_String_Extended,0x2098 ; ". Prefix = \x22"
0f09 01cc | | Execute Vector,Catenate
0f0a e5fc | | Load 0x2,-0x4
0f0b 01cc | | Execute Vector,Catenate
0f0c 0092 2099 | | Action Push_String_Extended,0x2099 ; "\x22, Suffix = \x22"
0f0e 01cc | | Execute Vector,Catenate
0f0f e5fb | | Load 0x2,-0x5
0f10 01cc | | Execute Vector,Catenate
0f11 0092 2084 | | Action Push_String_Extended,0x2084 ; "\x22"
0f13 01cc | | Execute Vector,Catenate
0f14 e007 | | Load 0x0,0x7
0f15 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f16 00db | | Load_Top At_Offset_3
0f17 a5f9 | | Store_Unchecked 0x2,-0x7
0f18 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0f19 TRAP_0da8:
0f19 e005 | | Load 0x0,0x5
0f1a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0f1b 010f | | Execute Exception,Equal
0f1c 6820 |h | Jump_Zero 0xf3d
0f1d e005 | | Load 0x0,0x5
0f1e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0f1f a5f9 | | Store_Unchecked 0x2,-0x7
0f20 e5fa | | Load 0x2,-0x6
0f21 4801 |H | Short_Literal 0x1
0f22 4802 |H | Short_Literal 0x2
0f23 e004 | | Load 0x0,0x4
0f24 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f25 035b | [ | Declare_Type Array,Constrained
0f26 0337 | 7 | Declare_Variable Array
0f27 e5fe | | Load 0x2,-0x2
0f28 e006 | | Load 0x0,0x6
0f29 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f2a e004 | | Load 0x0,0x4
0f2b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f2c 0119 | | Execute Any,Check_In_Formal_Type
0f2d 4801 |H | Short_Literal 0x1
0f2e 00da | | Load_Top At_Offset_2
0f2f 01d6 | | Execute Vector,Field_Write
0f30 e5fd | | Load 0x2,-0x3
0f31 e006 | | Load 0x0,0x6
0f32 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0f33 e004 | | Load 0x0,0x4
0f34 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f35 0119 | | Execute Any,Check_In_Formal_Type
0f36 4802 |H | Short_Literal 0x2
0f37 00da | | Load_Top At_Offset_2
0f38 01d6 | | Execute Vector,Field_Write
0f39 601e |` | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0f3a e005 | | Load 0x0,0x5
0f3b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0f3c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0f3d e5fa | | Load 0x2,-0x6
0f3e 0092 209a | | Action Push_String_Extended,0x209a ; "Target_Builder.Unit.Add_Secondary_Unit"
0f40 e007 | | Load 0x0,0x7
0f41 180f | | Execute Package,Field_Execute,Field_Number 0xf
0f42 e004 | | Load 0x0,0x4
0f43 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f44 6013 |` | Indirect_Literal Discrete,0xf58,{0x00000000, 0x00008164}
0f45 e005 | | Load 0x0,0x5
0f46 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f47 a5f9 | | Store_Unchecked 0x2,-0x7
0f48 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0f49 0000 0000 | | .XXX[0x3]
0f4b 0000 | |
0f4c 0000 0000 | | .LITERAL {0x00000000, 0x00008186}
0f50 0000 0000 | | .LITERAL {0x00000000, 0x00008163}
0f54 0000 0000 | | .LITERAL {0x00000000, 0x00008170}
0f58 0000 0000 | | .LITERAL {0x00000000, 0x00008164}
0f5c 0000 0000 | | .BLANK 0000[0x4]
0f60 ; --------------------------------------------------------------------------------------
0f60 ; SUBPROGRAM
0f60 ; --------------------------------------------------------------------------------------
0f60 0f72 | r | .CONST 0x0f72 ; Address of begin
0f61 0ffa | | .CONST 0x0ffa ; Address of exception handler
0f62 0004 | | .CONST 0x0004 ; Number of locals
0f63 INIT_0f60:
0f63 e005 | | Load 0x0,0x5
0f64 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f65 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f66 e001 | | Load 0x0,0x1
0f67 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0f68 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f69 02c7 | | Declare_Variable Any
0f6a 00d8 | | Load_Top At_Offset_0
0f6b 1c00 | | Execute_Immediate Run_Utility,0x0
0f6c e001 | | Load 0x0,0x1
0f6d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0f6e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f6f 02c7 | | Declare_Variable Any
0f70 00d8 | | Load_Top At_Offset_0
0f71 1c00 | | Execute_Immediate Run_Utility,0x0
0f72 BODY_0f60:
0f72 e5fc | | Load 0x2,-0x4
0f73 0092 209b | | Action Push_String_Extended,0x209b ; "Remove_Secondary_Unit (Primary)"
0f75 826b | k | Call 0x1,0x6b
0f76 e005 | | Load 0x0,0x5
0f77 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f78 00da | | Load_Top At_Offset_2
0f79 e5fc | | Load 0x2,-0x4
0f7a 60b5 |` | Indirect_Literal Discrete,0x1030,{0x00000000, 0x00008169}
0f7b e5fe | | Load 0x2,-0x2
0f7c e5ff | | Load 0x2,-0x1
0f7d 826c | l | Call 0x1,0x6c
0f7e c403 | | Store 0x2,0x3
0f7f 005b | [ | Store_Top Discrete,At_Offset_3
0f80 4800 |H | Short_Literal 0x0
0f81 00db | | Load_Top At_Offset_3
0f82 e005 | | Load 0x0,0x5
0f83 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0f84 7003 |p | Jump_Nonzero 0xf88
0f85 00da | | Load_Top At_Offset_2
0f86 a5fb | | Store_Unchecked 0x2,-0x5
0f87 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f88 e5fc | | Load 0x2,-0x4
0f89 0092 209c | | Action Push_String_Extended,0x209c ; "Remove_Secondary_Unit (Secondary)"
0f8b 826b | k | Call 0x1,0x6b
0f8c e005 | | Load 0x0,0x5
0f8d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f8e 00d9 | | Load_Top At_Offset_1
0f8f e5fc | | Load 0x2,-0x4
0f90 609f |` | Indirect_Literal Discrete,0x1030,{0x00000000, 0x00008169}
0f91 e5fd | | Load 0x2,-0x3
0f92 e5ff | | Load 0x2,-0x1
0f93 826c | l | Call 0x1,0x6c
0f94 c404 | | Store 0x2,0x4
0f95 005b | [ | Store_Top Discrete,At_Offset_3
0f96 4800 |H | Short_Literal 0x0
0f97 00db | | Load_Top At_Offset_3
0f98 e005 | | Load 0x0,0x5
0f99 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0f9a 7003 |p | Jump_Nonzero 0xf9e
0f9b 00da | | Load_Top At_Offset_2
0f9c a5fb | | Store_Unchecked 0x2,-0x5
0f9d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f9e 00d9 | | Load_Top At_Offset_1
0f9f e001 | | Load 0x0,0x1
0fa0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0fa1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0fa2 6834 |h4 | Jump_Zero 0xfd7
0fa3 00d8 | | Load_Top At_Offset_0
0fa4 e001 | | Load 0x0,0x1
0fa5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0fa6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0fa7 682f |h/ | Jump_Zero 0xfd7
0fa8 00da | | Load_Top At_Offset_2
0fa9 00d9 | | Load_Top At_Offset_1
0faa 00db | | Load_Top At_Offset_3
0fab e001 | | Load 0x0,0x1
0fac 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0fad 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0fae 005b | [ | Store_Top Discrete,At_Offset_3
0faf 4800 |H | Short_Literal 0x0
0fb0 00db | | Load_Top At_Offset_3
0fb1 e005 | | Load 0x0,0x5
0fb2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0fb3 6820 |h | Jump_Zero 0xfd4
0fb4 00d8 | | Load_Top At_Offset_0
0fb5 801b | | Call 0x0,0x1b
0fb6 00da | | Load_Top At_Offset_2
0fb7 e5ff | | Load 0x2,-0x1
0fb8 0227 | ' | Execute Access,All_Reference
0fb9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0fba 00da | | Load_Top At_Offset_2
0fbb e001 | | Load 0x0,0x1
0fbc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0fbd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0fbe 005b | [ | Store_Top Discrete,At_Offset_3
0fbf 4800 |H | Short_Literal 0x0
0fc0 00db | | Load_Top At_Offset_3
0fc1 e005 | | Load 0x0,0x5
0fc2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0fc3 6810 |h | Jump_Zero 0xfd4
0fc4 e5fc | | Load 0x2,-0x4
0fc5 0092 209d | | Action Push_String_Extended,0x209d ; "Removed "
0fc7 e5fd | | Load 0x2,-0x3
0fc8 e006 | | Load 0x0,0x6
0fc9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0fca 01cc | | Execute Vector,Catenate
0fcb 0092 2097 | | Action Push_String_Extended,0x2097 ; " as the secondary of unit "
0fcd 01cc | | Execute Vector,Catenate
0fce e5fe | | Load 0x2,-0x2
0fcf e006 | | Load 0x0,0x6
0fd0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0fd1 01cc | | Execute Vector,Catenate
0fd2 e007 | | Load 0x0,0x7
0fd3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0fd4 00da | | Load_Top At_Offset_2
0fd5 a5fb | | Store_Unchecked 0x2,-0x5
0fd6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0fd7 e5fc | | Load 0x2,-0x4
0fd8 4801 |H | Short_Literal 0x1
0fd9 4802 |H | Short_Literal 0x2
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 e5fd | | Load 0x2,-0x3
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 e5fe | | Load 0x2,-0x2
0fe8 e006 | | Load 0x0,0x6
0fe9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0fea e004 | | Load 0x0,0x4
0feb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fec 0119 | | Execute Any,Check_In_Formal_Type
0fed 4802 |H | Short_Literal 0x2
0fee 00da | | Load_Top At_Offset_2
0fef 01d6 | | Execute Vector,Field_Write
0ff0 603b |`; | Indirect_Literal Discrete,0x102c,{0x00000000, 0x00008187}
0ff1 e005 | | Load 0x0,0x5
0ff2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ff3 e004 | | Load 0x0,0x4
0ff4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ff5 603a |`: | Indirect_Literal Discrete,0x1030,{0x00000000, 0x00008169}
0ff6 e005 | | Load 0x0,0x5
0ff7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ff8 a5fb | | Store_Unchecked 0x2,-0x5
0ff9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ffa TRAP_0f60:
0ffa e005 | | Load 0x0,0x5
0ffb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0ffc 010f | | Execute Exception,Equal
0ffd 6820 |h | Jump_Zero 0x101e
0ffe e005 | | Load 0x0,0x5
0fff 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1000 a5fb | | Store_Unchecked 0x2,-0x5
1001 e5fc | | Load 0x2,-0x4
1002 4801 |H | Short_Literal 0x1
1003 4802 |H | Short_Literal 0x2
1004 e004 | | Load 0x0,0x4
1005 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1006 035b | [ | Declare_Type Array,Constrained
1007 0337 | 7 | Declare_Variable Array
1008 e5fd | | Load 0x2,-0x3
1009 e006 | | Load 0x0,0x6
100a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
100b e004 | | Load 0x0,0x4
100c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
100d 0119 | | Execute Any,Check_In_Formal_Type
100e 4801 |H | Short_Literal 0x1
100f 00da | | Load_Top At_Offset_2
1010 01d6 | | Execute Vector,Field_Write
1011 e5fe | | Load 0x2,-0x2
1012 e006 | | Load 0x0,0x6
1013 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1014 e004 | | Load 0x0,0x4
1015 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1016 0119 | | Execute Any,Check_In_Formal_Type
1017 4802 |H | Short_Literal 0x2
1018 00da | | Load_Top At_Offset_2
1019 01d6 | | Execute Vector,Field_Write
101a 6015 |` | Indirect_Literal Discrete,0x1030,{0x00000000, 0x00008169}
101b e005 | | Load 0x0,0x5
101c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
101d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
101e e5fc | | Load 0x2,-0x4
101f 0092 209e | | Action Push_String_Extended,0x209e ; "Target_Builder.Unit.Remove_Secondary_Unit"
1021 e007 | | Load 0x0,0x7
1022 180f | | Execute Package,Field_Execute,Field_Number 0xf
1023 e004 | | Load 0x0,0x4
1024 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1025 600a |` | Indirect_Literal Discrete,0x1030,{0x00000000, 0x00008169}
1026 e005 | | Load 0x0,0x5
1027 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1028 a5fb | | Store_Unchecked 0x2,-0x5
1029 4505 |E | Exit_Suprogram New_Top_Offset 0x5
102a 0000 0000 | | .XXX[0x2]
102c 0000 0000 | | .LITERAL {0x00000000, 0x00008187}
1030 0000 0000 | | .LITERAL {0x00000000, 0x00008169}
1034 0000 0000 | | .BLANK 0000[0x4]
1038 ; --------------------------------------------------------------------------------------
1038 ; SUBPROGRAM
1038 ; --------------------------------------------------------------------------------------
1038 1044 | D | .CONST 0x1044 ; Address of begin
1039 1064 | d | .CONST 0x1064 ; Address of exception handler
103a 0003 | | .CONST 0x0003 ; Number of locals
103b INIT_1038:
103b e005 | | Load 0x0,0x5
103c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
103d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
103e e001 | | Load 0x0,0x1
103f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1041 02c7 | | Declare_Variable Any
1042 00d8 | | Load_Top At_Offset_0
1043 1c00 | | Execute_Immediate Run_Utility,0x0
1044 BODY_1038:
1044 e5fd | | Load 0x2,-0x3
1045 0092 209f | | Action Push_String_Extended,0x209f ; "Has_Secondary_Unit"
1047 826b | k | Call 0x1,0x6b
1048 e005 | | Load 0x0,0x5
1049 1b0d | | Execute Package,Field_Read,Field_Number 0xd
104a 00d9 | | Load_Top At_Offset_1
104b e5fd | | Load 0x2,-0x3
104c 604f |`O | Indirect_Literal Discrete,0x109c,{0x00000000, 0x00008166}
104d e5fe | | Load 0x2,-0x2
104e e5ff | | Load 0x2,-0x1
104f 826c | l | Call 0x1,0x6c
1050 c403 | | Store 0x2,0x3
1051 005a | Z | Store_Top Discrete,At_Offset_2
1052 4800 |H | Short_Literal 0x0
1053 00da | | Load_Top At_Offset_2
1054 e005 | | Load 0x0,0x5
1055 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1056 7005 |p | Jump_Nonzero 0x105c
1057 4800 |H | Short_Literal 0x0
1058 a5fc | | Store_Unchecked 0x2,-0x4
1059 00d9 | | Load_Top At_Offset_1
105a a5fb | | Store_Unchecked 0x2,-0x5
105b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
105c 00d8 | | Load_Top At_Offset_0
105d e001 | | Load 0x0,0x1
105e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
105f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1060 a5fc | | Store_Unchecked 0x2,-0x4
1061 00d9 | | Load_Top At_Offset_1
1062 a5fb | | Store_Unchecked 0x2,-0x5
1063 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1064 TRAP_1038:
1064 e005 | | Load 0x0,0x5
1065 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1066 010f | | Execute Exception,Equal
1067 6819 |h | Jump_Zero 0x1081
1068 e005 | | Load 0x0,0x5
1069 181b | | Execute Package,Field_Execute,Field_Number 0x1b
106a a5fb | | Store_Unchecked 0x2,-0x5
106b e5fd | | Load 0x2,-0x3
106c 4801 |H | Short_Literal 0x1
106d 4801 |H | Short_Literal 0x1
106e e004 | | Load 0x0,0x4
106f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1070 035b | [ | Declare_Type Array,Constrained
1071 0337 | 7 | Declare_Variable Array
1072 e5fe | | Load 0x2,-0x2
1073 e006 | | Load 0x0,0x6
1074 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1075 e004 | | Load 0x0,0x4
1076 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1077 0119 | | Execute Any,Check_In_Formal_Type
1078 4801 |H | Short_Literal 0x1
1079 00da | | Load_Top At_Offset_2
107a 01d6 | | Execute Vector,Field_Write
107b 6020 |` | Indirect_Literal Discrete,0x109c,{0x00000000, 0x00008166}
107c e005 | | Load 0x0,0x5
107d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
107e 4800 |H | Short_Literal 0x0
107f a5fc | | Store_Unchecked 0x2,-0x4
1080 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1081 e5fd | | Load 0x2,-0x3
1082 0092 20a0 | | Action Push_String_Extended,0x20a0 ; "Target_Builder.Unit.Has_Secondary_Unit"
1084 e007 | | Load 0x0,0x7
1085 180f | | Execute Package,Field_Execute,Field_Number 0xf
1086 4800 |H | Short_Literal 0x0
1087 a5fc | | Store_Unchecked 0x2,-0x4
1088 4801 |H | Short_Literal 0x1
1089 4801 |H | Short_Literal 0x1
108a e004 | | Load 0x0,0x4
108b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
108c 035b | [ | Declare_Type Array,Constrained
108d 0337 | 7 | Declare_Variable Array
108e e5fe | | Load 0x2,-0x2
108f e006 | | Load 0x0,0x6
1090 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1091 e004 | | Load 0x0,0x4
1092 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1093 0119 | | Execute Any,Check_In_Formal_Type
1094 4801 |H | Short_Literal 0x1
1095 00da | | Load_Top At_Offset_2
1096 01d6 | | Execute Vector,Field_Write
1097 6004 |` | Indirect_Literal Discrete,0x109c,{0x00000000, 0x00008166}
1098 e005 | | Load 0x0,0x5
1099 1813 | | Execute Package,Field_Execute,Field_Number 0x13
109a a5fb | | Store_Unchecked 0x2,-0x5
109b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
109c 0000 0000 | | .LITERAL {0x00000000, 0x00008166}
10a0 ; --------------------------------------------------------------------------------------
10a0 ; SUBPROGRAM
10a0 ; --------------------------------------------------------------------------------------
10a0 10ac | | .CONST 0x10ac ; Address of begin
10a1 10cc | | .CONST 0x10cc ; Address of exception handler
10a2 0003 | | .CONST 0x0003 ; Number of locals
10a3 INIT_10a0:
10a3 e005 | | Load 0x0,0x5
10a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
10a6 e001 | | Load 0x0,0x1
10a7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
10a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10a9 02c7 | | Declare_Variable Any
10aa 00d8 | | Load_Top At_Offset_0
10ab 1c00 | | Execute_Immediate Run_Utility,0x0
10ac BODY_10a0:
10ac e5fd | | Load 0x2,-0x3
10ad 0092 20a1 | | Action Push_String_Extended,0x20a1 ; "Is_Secondary_Unit"
10af 826b | k | Call 0x1,0x6b
10b0 e005 | | Load 0x0,0x5
10b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10b2 00d9 | | Load_Top At_Offset_1
10b3 e5fd | | Load 0x2,-0x3
10b4 67e7 |g | Indirect_Literal Discrete,0x109c,{0x00000000, 0x00008166}
10b5 e5fe | | Load 0x2,-0x2
10b6 e5ff | | Load 0x2,-0x1
10b7 826c | l | Call 0x1,0x6c
10b8 c403 | | Store 0x2,0x3
10b9 005a | Z | Store_Top Discrete,At_Offset_2
10ba 4800 |H | Short_Literal 0x0
10bb 00da | | Load_Top At_Offset_2
10bc e005 | | Load 0x0,0x5
10bd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
10be 7005 |p | Jump_Nonzero 0x10c4
10bf 4800 |H | Short_Literal 0x0
10c0 a5fc | | Store_Unchecked 0x2,-0x4
10c1 00d9 | | Load_Top At_Offset_1
10c2 a5fb | | Store_Unchecked 0x2,-0x5
10c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10c4 00d8 | | Load_Top At_Offset_0
10c5 e001 | | Load 0x0,0x1
10c6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
10c7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
10c8 a5fc | | Store_Unchecked 0x2,-0x4
10c9 00d9 | | Load_Top At_Offset_1
10ca a5fb | | Store_Unchecked 0x2,-0x5
10cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10cc TRAP_10a0:
10cc e005 | | Load 0x0,0x5
10cd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
10ce 010f | | Execute Exception,Equal
10cf 6819 |h | Jump_Zero 0x10e9
10d0 e005 | | Load 0x0,0x5
10d1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
10d2 a5fb | | Store_Unchecked 0x2,-0x5
10d3 e5fd | | Load 0x2,-0x3
10d4 4801 |H | Short_Literal 0x1
10d5 4801 |H | Short_Literal 0x1
10d6 e004 | | Load 0x0,0x4
10d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10d8 035b | [ | Declare_Type Array,Constrained
10d9 0337 | 7 | Declare_Variable Array
10da e5fe | | Load 0x2,-0x2
10db e006 | | Load 0x0,0x6
10dc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
10dd e004 | | Load 0x0,0x4
10de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10df 0119 | | Execute Any,Check_In_Formal_Type
10e0 4801 |H | Short_Literal 0x1
10e1 00da | | Load_Top At_Offset_2
10e2 01d6 | | Execute Vector,Field_Write
10e3 67b8 |g | Indirect_Literal Discrete,0x109c,{0x00000000, 0x00008166}
10e4 e005 | | Load 0x0,0x5
10e5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
10e6 4800 |H | Short_Literal 0x0
10e7 a5fc | | Store_Unchecked 0x2,-0x4
10e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10e9 e5fd | | Load 0x2,-0x3
10ea 0092 20a2 | | Action Push_String_Extended,0x20a2 ; "Target_Builder.Unit.Is_Secondary_Unit"
10ec e007 | | Load 0x0,0x7
10ed 180f | | Execute Package,Field_Execute,Field_Number 0xf
10ee 4800 |H | Short_Literal 0x0
10ef a5fc | | Store_Unchecked 0x2,-0x4
10f0 4801 |H | Short_Literal 0x1
10f1 4801 |H | Short_Literal 0x1
10f2 e004 | | Load 0x0,0x4
10f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10f4 035b | [ | Declare_Type Array,Constrained
10f5 0337 | 7 | Declare_Variable Array
10f6 e5fe | | Load 0x2,-0x2
10f7 e006 | | Load 0x0,0x6
10f8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
10f9 e004 | | Load 0x0,0x4
10fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10fb 0119 | | Execute Any,Check_In_Formal_Type
10fc 4801 |H | Short_Literal 0x1
10fd 00da | | Load_Top At_Offset_2
10fe 01d6 | | Execute Vector,Field_Write
10ff 679c |g | Indirect_Literal Discrete,0x109c,{0x00000000, 0x00008166}
1100 e005 | | Load 0x0,0x5
1101 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1102 a5fb | | Store_Unchecked 0x2,-0x5
1103 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1104 0000 0000 | | .BLANK 0000[0x4]
1108 ; --------------------------------------------------------------------------------------
1108 ; SUBPROGRAM
1108 ; --------------------------------------------------------------------------------------
1108 111a | | .CONST 0x111a ; Address of begin
1109 1152 | R | .CONST 0x1152 ; Address of exception handler
110a 0004 | | .CONST 0x0004 ; Number of locals
110b INIT_1108:
110b e005 | | Load 0x0,0x5
110c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
110d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
110e e001 | | Load 0x0,0x1
110f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1110 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1111 02c7 | | Declare_Variable Any
1112 00d8 | | Load_Top At_Offset_0
1113 1c00 | | Execute_Immediate Run_Utility,0x0
1114 e001 | | Load 0x0,0x1
1115 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1116 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1117 02c7 | | Declare_Variable Any
1118 00d8 | | Load_Top At_Offset_0
1119 1c00 | | Execute_Immediate Run_Utility,0x0
111a BODY_1108:
111a e5fd | | Load 0x2,-0x3
111b 0092 20a3 | | Action Push_String_Extended,0x20a3 ; "Primary_Unit"
111d 826b | k | Call 0x1,0x6b
111e e005 | | Load 0x0,0x5
111f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1120 00d9 | | Load_Top At_Offset_1
1121 e5fd | | Load 0x2,-0x3
1122 6069 |`i | Indirect_Literal Discrete,0x118c,{0x00000000, 0x00008165}
1123 e5fe | | Load 0x2,-0x2
1124 e5ff | | Load 0x2,-0x1
1125 826c | l | Call 0x1,0x6c
1126 c404 | | Store 0x2,0x4
1127 005b | [ | Store_Top Discrete,At_Offset_3
1128 4800 |H | Short_Literal 0x0
1129 00db | | Load_Top At_Offset_3
112a e005 | | Load 0x0,0x5
112b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
112c 7006 |p | Jump_Nonzero 0x1133
112d e002 | | Load 0x0,0x2
112e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
112f c5fc | | Store 0x2,-0x4
1130 00da | | Load_Top At_Offset_2
1131 a5fb | | Store_Unchecked 0x2,-0x5
1132 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1133 00d8 | | Load_Top At_Offset_0
1134 e001 | | Load 0x0,0x1
1135 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1136 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
1137 c403 | | Store 0x2,0x3
1138 00d9 | | Load_Top At_Offset_1
1139 e001 | | Load 0x0,0x1
113a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
113b 180f | | Execute Package,Field_Execute,Field_Number 0xf
113c 700f |p | Jump_Nonzero 0x114c
113d 00da | | Load_Top At_Offset_2
113e e5fc | | Load 0x2,-0x4
113f 0120 | | Execute Any,Is_Value
1140 6803 |h | Jump_Zero 0x1144
1141 e002 | | Load 0x0,0x2
1142 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1143 7801 |x | Jump 0x1145
1144 e5fc | | Load 0x2,-0x4
1145 00db | | Load_Top At_Offset_3
1146 e001 | | Load 0x0,0x1
1147 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1148 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1149 c5fc | | Store 0x2,-0x4
114a 005b | [ | Store_Top Discrete,At_Offset_3
114b 7803 |x | Jump 0x114f
114c e002 | | Load 0x0,0x2
114d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
114e c5fc | | Store 0x2,-0x4
114f 00da | | Load_Top At_Offset_2
1150 a5fb | | Store_Unchecked 0x2,-0x5
1151 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1152 TRAP_1108:
1152 e005 | | Load 0x0,0x5
1153 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1154 010f | | Execute Exception,Equal
1155 681a |h | Jump_Zero 0x1170
1156 e005 | | Load 0x0,0x5
1157 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1158 a5fb | | Store_Unchecked 0x2,-0x5
1159 e5fd | | Load 0x2,-0x3
115a 4801 |H | Short_Literal 0x1
115b 4801 |H | Short_Literal 0x1
115c e004 | | Load 0x0,0x4
115d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
115e 035b | [ | Declare_Type Array,Constrained
115f 0337 | 7 | Declare_Variable Array
1160 e5fe | | Load 0x2,-0x2
1161 e006 | | Load 0x0,0x6
1162 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1163 e004 | | Load 0x0,0x4
1164 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1165 0119 | | Execute Any,Check_In_Formal_Type
1166 4801 |H | Short_Literal 0x1
1167 00da | | Load_Top At_Offset_2
1168 01d6 | | Execute Vector,Field_Write
1169 6022 |`" | Indirect_Literal Discrete,0x118c,{0x00000000, 0x00008165}
116a e005 | | Load 0x0,0x5
116b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
116c e002 | | Load 0x0,0x2
116d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
116e c5fc | | Store 0x2,-0x4
116f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1170 e5fd | | Load 0x2,-0x3
1171 0092 20a4 | | Action Push_String_Extended,0x20a4 ; "Target_Builder.Unit.Primary_Unit"
1173 e007 | | Load 0x0,0x7
1174 180f | | Execute Package,Field_Execute,Field_Number 0xf
1175 e002 | | Load 0x0,0x2
1176 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1177 c5fc | | Store 0x2,-0x4
1178 4801 |H | Short_Literal 0x1
1179 4801 |H | Short_Literal 0x1
117a e004 | | Load 0x0,0x4
117b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
117c 035b | [ | Declare_Type Array,Constrained
117d 0337 | 7 | Declare_Variable Array
117e e5fe | | Load 0x2,-0x2
117f e006 | | Load 0x0,0x6
1180 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1181 e004 | | Load 0x0,0x4
1182 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1183 0119 | | Execute Any,Check_In_Formal_Type
1184 4801 |H | Short_Literal 0x1
1185 00da | | Load_Top At_Offset_2
1186 01d6 | | Execute Vector,Field_Write
1187 6004 |` | Indirect_Literal Discrete,0x118c,{0x00000000, 0x00008165}
1188 e005 | | Load 0x0,0x5
1189 1813 | | Execute Package,Field_Execute,Field_Number 0x13
118a a5fb | | Store_Unchecked 0x2,-0x5
118b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
118c 0000 0000 | | .LITERAL {0x00000000, 0x00008165}
1190 ; --------------------------------------------------------------------------------------
1190 ; SUBPROGRAM
1190 ; --------------------------------------------------------------------------------------
1190 11a2 | | .CONST 0x11a2 ; Address of begin
1191 11da | | .CONST 0x11da ; Address of exception handler
1192 0004 | | .CONST 0x0004 ; Number of locals
1193 INIT_1190:
1193 e005 | | Load 0x0,0x5
1194 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1195 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1196 e001 | | Load 0x0,0x1
1197 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1198 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1199 02c7 | | Declare_Variable Any
119a 00d8 | | Load_Top At_Offset_0
119b 1c00 | | Execute_Immediate Run_Utility,0x0
119c e001 | | Load 0x0,0x1
119d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
119e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
119f 02c7 | | Declare_Variable Any
11a0 00d8 | | Load_Top At_Offset_0
11a1 1c00 | | Execute_Immediate Run_Utility,0x0
11a2 BODY_1190:
11a2 e5fd | | Load 0x2,-0x3
11a3 0092 20a5 | | Action Push_String_Extended,0x20a5 ; "Secondary_Unit"
11a5 826b | k | Call 0x1,0x6b
11a6 e005 | | Load 0x0,0x5
11a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11a8 00da | | Load_Top At_Offset_2
11a9 e5fd | | Load 0x2,-0x3
11aa 6069 |`i | Indirect_Literal Discrete,0x1214,{0x00000000, 0x00008168}
11ab e5fe | | Load 0x2,-0x2
11ac e5ff | | Load 0x2,-0x1
11ad 826c | l | Call 0x1,0x6c
11ae c403 | | Store 0x2,0x3
11af 005b | [ | Store_Top Discrete,At_Offset_3
11b0 4800 |H | Short_Literal 0x0
11b1 00db | | Load_Top At_Offset_3
11b2 e005 | | Load 0x0,0x5
11b3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
11b4 7006 |p | Jump_Nonzero 0x11bb
11b5 e002 | | Load 0x0,0x2
11b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11b7 c5fc | | Store 0x2,-0x4
11b8 00da | | Load_Top At_Offset_2
11b9 a5fb | | Store_Unchecked 0x2,-0x5
11ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4
11bb 00d9 | | Load_Top At_Offset_1
11bc e001 | | Load 0x0,0x1
11bd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
11be 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
11bf c404 | | Store 0x2,0x4
11c0 00d8 | | Load_Top At_Offset_0
11c1 e001 | | Load 0x0,0x1
11c2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
11c3 180f | | Execute Package,Field_Execute,Field_Number 0xf
11c4 700f |p | Jump_Nonzero 0x11d4
11c5 00da | | Load_Top At_Offset_2
11c6 e5fc | | Load 0x2,-0x4
11c7 0120 | | Execute Any,Is_Value
11c8 6803 |h | Jump_Zero 0x11cc
11c9 e002 | | Load 0x0,0x2
11ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11cb 7801 |x | Jump 0x11cd
11cc e5fc | | Load 0x2,-0x4
11cd 00da | | Load_Top At_Offset_2
11ce e001 | | Load 0x0,0x1
11cf 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
11d0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
11d1 c5fc | | Store 0x2,-0x4
11d2 005b | [ | Store_Top Discrete,At_Offset_3
11d3 7803 |x | Jump 0x11d7
11d4 e002 | | Load 0x0,0x2
11d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11d6 c5fc | | Store 0x2,-0x4
11d7 00da | | Load_Top At_Offset_2
11d8 a5fb | | Store_Unchecked 0x2,-0x5
11d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
11da TRAP_1190:
11da e005 | | Load 0x0,0x5
11db 1b17 | | Execute Package,Field_Read,Field_Number 0x17
11dc 010f | | Execute Exception,Equal
11dd 681a |h | Jump_Zero 0x11f8
11de e005 | | Load 0x0,0x5
11df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
11e0 a5fb | | Store_Unchecked 0x2,-0x5
11e1 e5fd | | Load 0x2,-0x3
11e2 4801 |H | Short_Literal 0x1
11e3 4801 |H | Short_Literal 0x1
11e4 e004 | | Load 0x0,0x4
11e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11e6 035b | [ | Declare_Type Array,Constrained
11e7 0337 | 7 | Declare_Variable Array
11e8 e5fe | | Load 0x2,-0x2
11e9 e006 | | Load 0x0,0x6
11ea 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
11eb e004 | | Load 0x0,0x4
11ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
11ed 0119 | | Execute Any,Check_In_Formal_Type
11ee 4801 |H | Short_Literal 0x1
11ef 00da | | Load_Top At_Offset_2
11f0 01d6 | | Execute Vector,Field_Write
11f1 6022 |`" | Indirect_Literal Discrete,0x1214,{0x00000000, 0x00008168}
11f2 e005 | | Load 0x0,0x5
11f3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
11f4 e002 | | Load 0x0,0x2
11f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11f6 c5fc | | Store 0x2,-0x4
11f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
11f8 e5fd | | Load 0x2,-0x3
11f9 0092 20a6 | | Action Push_String_Extended,0x20a6 ; "Target_Builder.Unit.Secondary_Unit"
11fb e007 | | Load 0x0,0x7
11fc 180f | | Execute Package,Field_Execute,Field_Number 0xf
11fd e002 | | Load 0x0,0x2
11fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11ff c5fc | | Store 0x2,-0x4
1200 4801 |H | Short_Literal 0x1
1201 4801 |H | Short_Literal 0x1
1202 e004 | | Load 0x0,0x4
1203 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1204 035b | [ | Declare_Type Array,Constrained
1205 0337 | 7 | Declare_Variable Array
1206 e5fe | | Load 0x2,-0x2
1207 e006 | | Load 0x0,0x6
1208 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1209 e004 | | Load 0x0,0x4
120a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
120b 0119 | | Execute Any,Check_In_Formal_Type
120c 4801 |H | Short_Literal 0x1
120d 00da | | Load_Top At_Offset_2
120e 01d6 | | Execute Vector,Field_Write
120f 6004 |` | Indirect_Literal Discrete,0x1214,{0x00000000, 0x00008168}
1210 e005 | | Load 0x0,0x5
1211 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1212 a5fb | | Store_Unchecked 0x2,-0x5
1213 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1214 0000 0000 | | .LITERAL {0x00000000, 0x00008168}
1218 ; --------------------------------------------------------------------------------------
1218 ; SUBPROGRAM
1218 ; --------------------------------------------------------------------------------------
1218 1224 | $ | .CONST 0x1224 ; Address of begin
1219 1257 | W | .CONST 0x1257 ; Address of exception handler
121a 0003 | | .CONST 0x0003 ; Number of locals
121b INIT_1218:
121b e005 | | Load 0x0,0x5
121c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
121d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
121e e001 | | Load 0x0,0x1
121f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1220 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1221 02c7 | | Declare_Variable Any
1222 00d8 | | Load_Top At_Offset_0
1223 1c00 | | Execute_Immediate Run_Utility,0x0
1224 BODY_1218:
1224 e5fd | | Load 0x2,-0x3
1225 0092 20a7 | | Action Push_String_Extended,0x20a7 ; "Secondary_Prefix"
1227 826b | k | Call 0x1,0x6b
1228 e005 | | Load 0x0,0x5
1229 1b0d | | Execute Package,Field_Read,Field_Number 0xd
122a 00d9 | | Load_Top At_Offset_1
122b e5fd | | Load 0x2,-0x3
122c 6053 |`S | Indirect_Literal Discrete,0x1280,{0x00000000, 0x00008167}
122d e5fe | | Load 0x2,-0x2
122e e5ff | | Load 0x2,-0x1
122f 826c | l | Call 0x1,0x6c
1230 c403 | | Store 0x2,0x3
1231 005a | Z | Store_Top Discrete,At_Offset_2
1232 4800 |H | Short_Literal 0x0
1233 00da | | Load_Top At_Offset_2
1234 e005 | | Load 0x0,0x5
1235 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1236 7003 |p | Jump_Nonzero 0x123a
1237 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
1239 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
123a 00d8 | | Load_Top At_Offset_0
123b e001 | | Load 0x0,0x1
123c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
123d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
123e 6803 |h | Jump_Zero 0x1242
123f 00d8 | | Load_Top At_Offset_0
1240 801c | | Call 0x0,0x1c
1241 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1242 e5fd | | Load 0x2,-0x3
1243 4801 |H | Short_Literal 0x1
1244 4801 |H | Short_Literal 0x1
1245 e004 | | Load 0x0,0x4
1246 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1247 035b | [ | Declare_Type Array,Constrained
1248 0337 | 7 | Declare_Variable Array
1249 e5fe | | Load 0x2,-0x2
124a e006 | | Load 0x0,0x6
124b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
124c e004 | | Load 0x0,0x4
124d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
124e 0119 | | Execute Any,Check_In_Formal_Type
124f 4801 |H | Short_Literal 0x1
1250 00da | | Load_Top At_Offset_2
1251 01d6 | | Execute Vector,Field_Write
1252 6029 |`) | Indirect_Literal Discrete,0x127c,{0x00000000, 0x00008188}
1253 e005 | | Load 0x0,0x5
1254 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1255 00ea | | Load_Encached Null_String_Cache
1256 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1257 TRAP_1218:
1257 e005 | | Load 0x0,0x5
1258 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1259 010f | | Execute Exception,Equal
125a 6816 |h | Jump_Zero 0x1271
125b e5fd | | Load 0x2,-0x3
125c 4801 |H | Short_Literal 0x1
125d 4801 |H | Short_Literal 0x1
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 6014 |` | Indirect_Literal Discrete,0x1280,{0x00000000, 0x00008167}
126c e005 | | Load 0x0,0x5
126d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
126e 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
1270 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1271 e5fd | | Load 0x2,-0x3
1272 0092 20a8 | | Action Push_String_Extended,0x20a8 ; "Target_Builder.Unit.Secondary_Prefix"
1274 e007 | | Load 0x0,0x7
1275 180f | | Execute Package,Field_Execute,Field_Number 0xf
1276 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
1278 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1279 0000 0000 | | .XXX[0x3]
127b 0000 | |
127c 0000 0000 | | .LITERAL {0x00000000, 0x00008188}
1280 0000 0000 | | .LITERAL {0x00000000, 0x00008167}
1284 0000 0000 | | .BLANK 0000[0x4]
1288 ; --------------------------------------------------------------------------------------
1288 ; SUBPROGRAM
1288 ; --------------------------------------------------------------------------------------
1288 1294 | | .CONST 0x1294 ; Address of begin
1289 12c7 | | .CONST 0x12c7 ; Address of exception handler
128a 0003 | | .CONST 0x0003 ; Number of locals
128b INIT_1288:
128b e005 | | Load 0x0,0x5
128c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
128d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
128e e001 | | Load 0x0,0x1
128f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1290 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1291 02c7 | | Declare_Variable Any
1292 00d8 | | Load_Top At_Offset_0
1293 1c00 | | Execute_Immediate Run_Utility,0x0
1294 BODY_1288:
1294 e5fd | | Load 0x2,-0x3
1295 0092 20a9 | | Action Push_String_Extended,0x20a9 ; "Secondary_Suffix"
1297 826b | k | Call 0x1,0x6b
1298 e005 | | Load 0x0,0x5
1299 1b0d | | Execute Package,Field_Read,Field_Number 0xd
129a 00d9 | | Load_Top At_Offset_1
129b e5fd | | Load 0x2,-0x3
129c 67e3 |g | Indirect_Literal Discrete,0x1280,{0x00000000, 0x00008167}
129d e5fe | | Load 0x2,-0x2
129e e5ff | | Load 0x2,-0x1
129f 826c | l | Call 0x1,0x6c
12a0 c403 | | Store 0x2,0x3
12a1 005a | Z | Store_Top Discrete,At_Offset_2
12a2 4800 |H | Short_Literal 0x0
12a3 00da | | Load_Top At_Offset_2
12a4 e005 | | Load 0x0,0x5
12a5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
12a6 7003 |p | Jump_Nonzero 0x12aa
12a7 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
12a9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
12aa 00d8 | | Load_Top At_Offset_0
12ab e001 | | Load 0x0,0x1
12ac 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
12ad 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
12ae 6803 |h | Jump_Zero 0x12b2
12af 00d8 | | Load_Top At_Offset_0
12b0 801d | | Call 0x0,0x1d
12b1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
12b2 e5fd | | Load 0x2,-0x3
12b3 4801 |H | Short_Literal 0x1
12b4 4801 |H | Short_Literal 0x1
12b5 e004 | | Load 0x0,0x4
12b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12b7 035b | [ | Declare_Type Array,Constrained
12b8 0337 | 7 | Declare_Variable Array
12b9 e5fe | | Load 0x2,-0x2
12ba e006 | | Load 0x0,0x6
12bb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
12bc e004 | | Load 0x0,0x4
12bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12be 0119 | | Execute Any,Check_In_Formal_Type
12bf 4801 |H | Short_Literal 0x1
12c0 00da | | Load_Top At_Offset_2
12c1 01d6 | | Execute Vector,Field_Write
12c2 6029 |`) | Indirect_Literal Discrete,0x12ec,{0x00000000, 0x00008189}
12c3 e005 | | Load 0x0,0x5
12c4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
12c5 00ea | | Load_Encached Null_String_Cache
12c6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
12c7 TRAP_1288:
12c7 e005 | | Load 0x0,0x5
12c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
12c9 010f | | Execute Exception,Equal
12ca 6816 |h | Jump_Zero 0x12e1
12cb e5fd | | Load 0x2,-0x3
12cc 4801 |H | Short_Literal 0x1
12cd 4801 |H | Short_Literal 0x1
12ce e004 | | Load 0x0,0x4
12cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12d0 035b | [ | Declare_Type Array,Constrained
12d1 0337 | 7 | Declare_Variable Array
12d2 e5fe | | Load 0x2,-0x2
12d3 e006 | | Load 0x0,0x6
12d4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
12d5 e004 | | Load 0x0,0x4
12d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12d7 0119 | | Execute Any,Check_In_Formal_Type
12d8 4801 |H | Short_Literal 0x1
12d9 00da | | Load_Top At_Offset_2
12da 01d6 | | Execute Vector,Field_Write
12db 67a4 |g | Indirect_Literal Discrete,0x1280,{0x00000000, 0x00008167}
12dc e005 | | Load 0x0,0x5
12dd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
12de 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
12e0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
12e1 e5fd | | Load 0x2,-0x3
12e2 0092 20aa | | Action Push_String_Extended,0x20aa ; "Target_Builder.Unit.Secondary_Suffix"
12e4 e007 | | Load 0x0,0x7
12e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
12e6 0092 2075 | u| Action Push_String_Extended,0x2075 ; "<error>"
12e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
12e9 0000 0000 | | .XXX[0x3]
12eb 0000 | |
12ec 0000 0000 | | .LITERAL {0x00000000, 0x00008189}
12f0 ; --------------------------------------------------------------------------------------
12f0 ; SUBPROGRAM
12f0 ; --------------------------------------------------------------------------------------
12f0 12f9 | | .CONST 0x12f9 ; Address of begin
12f1 0004 | | .CONST 0x0004 ; Address of exception handler
12f2 0002 | | .CONST 0x0002 ; Number of locals
12f3 INIT_12f0:
12f3 e001 | | Load 0x0,0x1
12f4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
12f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12f6 02c7 | | Declare_Variable Any
12f7 00d8 | | Load_Top At_Offset_0
12f8 1c00 | | Execute_Immediate Run_Utility,0x0
12f9 BODY_12f0:
12f9 4800 |H | Short_Literal 0x0
12fa a5fb | | Store_Unchecked 0x2,-0x5
12fb 00db | | Load_Top At_Offset_3
12fc 0227 | ' | Execute Access,All_Reference
12fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
12fe e5fe | | Load 0x2,-0x2
12ff e002 | | Load 0x0,0x2
1300 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1301 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1302 e001 | | Load 0x0,0x1
1303 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1304 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1305 c402 | | Store 0x2,0x2
1306 00d8 | | Load_Top At_Offset_0
1307 e001 | | Load 0x0,0x1
1308 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1309 180f | | Execute Package,Field_Execute,Field_Number 0xf
130a 6826 |h& | Jump_Zero 0x1331
130b e5fc | | Load 0x2,-0x4
130c 4801 |H | Short_Literal 0x1
130d 4802 |H | Short_Literal 0x2
130e e004 | | Load 0x0,0x4
130f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1310 035b | [ | Declare_Type Array,Constrained
1311 0337 | 7 | Declare_Variable Array
1312 e5fe | | Load 0x2,-0x2
1313 e006 | | Load 0x0,0x6
1314 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1315 e004 | | Load 0x0,0x4
1316 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1317 0119 | | Execute Any,Check_In_Formal_Type
1318 4801 |H | Short_Literal 0x1
1319 00da | | Load_Top At_Offset_2
131a 01d6 | | Execute Vector,Field_Write
131b e5ff | | Load 0x2,-0x1
131c 0227 | ' | Execute Access,All_Reference
131d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
131e e001 | | Load 0x0,0x1
131f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1320 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1321 e004 | | Load 0x0,0x4
1322 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1323 0119 | | Execute Any,Check_In_Formal_Type
1324 4802 |H | Short_Literal 0x2
1325 00da | | Load_Top At_Offset_2
1326 01d6 | | Execute Vector,Field_Write
1327 6044 |`D | Indirect_Literal Discrete,0x136c,{0x00000000, 0x0000811d}
1328 e005 | | Load 0x0,0x5
1329 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
132a e004 | | Load 0x0,0x4
132b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
132c 603b |`; | Indirect_Literal Discrete,0x1368,{0x00000000, 0x00008193}
132d e005 | | Load 0x0,0x5
132e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
132f a5fb | | Store_Unchecked 0x2,-0x5
1330 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1331 e5fd | | Load 0x2,-0x3
1332 01db | | Execute Vector,Length
1333 e5fc | | Load 0x2,-0x4
1334 e5fe | | Load 0x2,-0x2
1335 e5ff | | Load 0x2,-0x1
1336 825e | ^ | Call 0x1,0x5e
1337 01db | | Execute Vector,Length
1338 0273 | s | Execute Discrete,Plus
1339 4900 |I | Short_Literal 0x100
133a 027d | } | Execute Discrete,Greater
133b 6823 |h# | Jump_Zero 0x135f
133c e5fc | | Load 0x2,-0x4
133d 4801 |H | Short_Literal 0x1
133e 4802 |H | Short_Literal 0x2
133f e004 | | Load 0x0,0x4
1340 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1341 035b | [ | Declare_Type Array,Constrained
1342 0337 | 7 | Declare_Variable Array
1343 e5fe | | Load 0x2,-0x2
1344 e006 | | Load 0x0,0x6
1345 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1346 e004 | | Load 0x0,0x4
1347 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1348 0119 | | Execute Any,Check_In_Formal_Type
1349 4801 |H | Short_Literal 0x1
134a 00da | | Load_Top At_Offset_2
134b 01d6 | | Execute Vector,Field_Write
134c 4900 |I | Short_Literal 0x100
134d e004 | | Load 0x0,0x4
134e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
134f e004 | | Load 0x0,0x4
1350 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1351 0119 | | Execute Any,Check_In_Formal_Type
1352 4802 |H | Short_Literal 0x2
1353 00da | | Load_Top At_Offset_2
1354 01d6 | | Execute Vector,Field_Write
1355 600e |` | Indirect_Literal Discrete,0x1364,{0x00000000, 0x00008163}
1356 e005 | | Load 0x0,0x5
1357 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1358 e004 | | Load 0x0,0x4
1359 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
135a 600d |` | Indirect_Literal Discrete,0x1368,{0x00000000, 0x00008193}
135b e005 | | Load 0x0,0x5
135c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
135d a5fb | | Store_Unchecked 0x2,-0x5
135e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
135f e5fd | | Load 0x2,-0x3
1360 00d9 | | Load_Top At_Offset_1
1361 8019 | | Call 0x0,0x19
1362 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1363 0000 | | .XXX[0x1]
1364 0000 0000 | | .LITERAL {0x00000000, 0x00008163}
1368 0000 0000 | | .LITERAL {0x00000000, 0x00008193}
136c 0000 0000 | | .LITERAL {0x00000000, 0x0000811d}
1370 ; --------------------------------------------------------------------------------------
1370 ; SUBPROGRAM
1370 ; --------------------------------------------------------------------------------------
1370 1379 | y | .CONST 0x1379 ; Address of begin
1371 0004 | | .CONST 0x0004 ; Address of exception handler
1372 0002 | | .CONST 0x0002 ; Number of locals
1373 INIT_1370:
1373 e001 | | Load 0x0,0x1
1374 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1375 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1376 02c7 | | Declare_Variable Any
1377 00d8 | | Load_Top At_Offset_0
1378 1c00 | | Execute_Immediate Run_Utility,0x0
1379 BODY_1370:
1379 4800 |H | Short_Literal 0x0
137a a5fb | | Store_Unchecked 0x2,-0x5
137b 00db | | Load_Top At_Offset_3
137c 0227 | ' | Execute Access,All_Reference
137d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
137e e5fe | | Load 0x2,-0x2
137f e002 | | Load 0x0,0x2
1380 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1381 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1382 e001 | | Load 0x0,0x1
1383 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1384 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1385 c402 | | Store 0x2,0x2
1386 00d8 | | Load_Top At_Offset_0
1387 e001 | | Load 0x0,0x1
1388 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1389 180f | | Execute Package,Field_Execute,Field_Number 0xf
138a 6826 |h& | Jump_Zero 0x13b1
138b e5fc | | Load 0x2,-0x4
138c 4801 |H | Short_Literal 0x1
138d 4802 |H | Short_Literal 0x2
138e e004 | | Load 0x0,0x4
138f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1390 035b | [ | Declare_Type Array,Constrained
1391 0337 | 7 | Declare_Variable Array
1392 e5fe | | Load 0x2,-0x2
1393 e006 | | Load 0x0,0x6
1394 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1395 e004 | | Load 0x0,0x4
1396 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1397 0119 | | Execute Any,Check_In_Formal_Type
1398 4801 |H | Short_Literal 0x1
1399 00da | | Load_Top At_Offset_2
139a 01d6 | | Execute Vector,Field_Write
139b e5ff | | Load 0x2,-0x1
139c 0227 | ' | Execute Access,All_Reference
139d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
139e e001 | | Load 0x0,0x1
139f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
13a0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
13a1 e004 | | Load 0x0,0x4
13a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13a3 0119 | | Execute Any,Check_In_Formal_Type
13a4 4802 |H | Short_Literal 0x2
13a5 00da | | Load_Top At_Offset_2
13a6 01d6 | | Execute Vector,Field_Write
13a7 67c4 |g | Indirect_Literal Discrete,0x136c,{0x00000000, 0x0000811d}
13a8 e005 | | Load 0x0,0x5
13a9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
13aa e004 | | Load 0x0,0x4
13ab 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
13ac 6037 |`7 | Indirect_Literal Discrete,0x13e4,{0x00000000, 0x00008194}
13ad e005 | | Load 0x0,0x5
13ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
13af a5fb | | Store_Unchecked 0x2,-0x5
13b0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
13b1 e5fc | | Load 0x2,-0x4
13b2 e5fe | | Load 0x2,-0x2
13b3 e5ff | | Load 0x2,-0x1
13b4 825d | ] | Call 0x1,0x5d
13b5 01db | | Execute Vector,Length
13b6 e5fd | | Load 0x2,-0x3
13b7 01db | | Execute Vector,Length
13b8 0273 | s | Execute Discrete,Plus
13b9 4900 |I | Short_Literal 0x100
13ba 027d | } | Execute Discrete,Greater
13bb 6823 |h# | Jump_Zero 0x13df
13bc e5fc | | Load 0x2,-0x4
13bd 4801 |H | Short_Literal 0x1
13be 4802 |H | Short_Literal 0x2
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 e006 | | Load 0x0,0x6
13c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
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 4900 |I | Short_Literal 0x100
13cd e004 | | Load 0x0,0x4
13ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
13cf e004 | | Load 0x0,0x4
13d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13d1 0119 | | Execute Any,Check_In_Formal_Type
13d2 4802 |H | Short_Literal 0x2
13d3 00da | | Load_Top At_Offset_2
13d4 01d6 | | Execute Vector,Field_Write
13d5 678e |g | Indirect_Literal Discrete,0x1364,{0x00000000, 0x00008163}
13d6 e005 | | Load 0x0,0x5
13d7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
13d8 e004 | | Load 0x0,0x4
13d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
13da 6009 |` | Indirect_Literal Discrete,0x13e4,{0x00000000, 0x00008194}
13db e005 | | Load 0x0,0x5
13dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
13dd a5fb | | Store_Unchecked 0x2,-0x5
13de 4505 |E | Exit_Suprogram New_Top_Offset 0x5
13df e5fd | | Load 0x2,-0x3
13e0 00d9 | | Load_Top At_Offset_1
13e1 801a | | Call 0x0,0x1a
13e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
13e3 0000 | | .XXX[0x1]
13e4 0000 0000 | | .LITERAL {0x00000000, 0x00008194}
13e8 ; --------------------------------------------------------------------------------------
13e8 ; SUBPROGRAM
13e8 ; --------------------------------------------------------------------------------------
13e8 13f4 | | .CONST 0x13f4 ; Address of begin
13e9 140e | | .CONST 0x140e ; Address of exception handler
13ea 0003 | | .CONST 0x0003 ; Number of locals
13eb INIT_13e8:
13eb e005 | | Load 0x0,0x5
13ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
13ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
13ee e001 | | Load 0x0,0x1
13ef 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
13f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
13f1 02c7 | | Declare_Variable Any
13f2 00d8 | | Load_Top At_Offset_0
13f3 1c00 | | Execute_Immediate Run_Utility,0x0
13f4 BODY_13e8:
13f4 e5fc | | Load 0x2,-0x4
13f5 0092 20ab | | Action Push_String_Extended,0x20ab ; "Serial_Number"
13f7 826b | k | Call 0x1,0x6b
13f8 e005 | | Load 0x0,0x5
13f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
13fa 00d9 | | Load_Top At_Offset_1
13fb e5fc | | Load 0x2,-0x4
13fc 6033 |`3 | Indirect_Literal Discrete,0x1430,{0x00000000, 0x00008190}
13fd e5fe | | Load 0x2,-0x2
13fe e5ff | | Load 0x2,-0x1
13ff 826c | l | Call 0x1,0x6c
1400 c403 | | Store 0x2,0x3
1401 005a | Z | Store_Top Discrete,At_Offset_2
1402 4800 |H | Short_Literal 0x0
1403 00da | | Load_Top At_Offset_2
1404 e005 | | Load 0x0,0x5
1405 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1406 7002 |p | Jump_Nonzero 0x1409
1407 4800 |H | Short_Literal 0x0
1408 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1409 00d8 | | Load_Top At_Offset_0
140a e001 | | Load 0x0,0x1
140b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
140c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
140d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
140e TRAP_13e8:
140e e005 | | Load 0x0,0x5
140f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1410 010f | | Execute Exception,Equal
1411 6815 |h | Jump_Zero 0x1427
1412 e5fc | | Load 0x2,-0x4
1413 4801 |H | Short_Literal 0x1
1414 4801 |H | Short_Literal 0x1
1415 e004 | | Load 0x0,0x4
1416 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1417 035b | [ | Declare_Type Array,Constrained
1418 0337 | 7 | Declare_Variable Array
1419 e5fe | | Load 0x2,-0x2
141a e006 | | Load 0x0,0x6
141b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
141c e004 | | Load 0x0,0x4
141d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
141e 0119 | | Execute Any,Check_In_Formal_Type
141f 4801 |H | Short_Literal 0x1
1420 00da | | Load_Top At_Offset_2
1421 01d6 | | Execute Vector,Field_Write
1422 600d |` | Indirect_Literal Discrete,0x1430,{0x00000000, 0x00008190}
1423 e005 | | Load 0x0,0x5
1424 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1425 4800 |H | Short_Literal 0x0
1426 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1427 e5fc | | Load 0x2,-0x4
1428 0092 20ac | | Action Push_String_Extended,0x20ac ; "Target_Builder.Unit.Serial_Number"
142a e007 | | Load 0x0,0x7
142b 180f | | Execute Package,Field_Execute,Field_Number 0xf
142c 4800 |H | Short_Literal 0x0
142d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
142e 0000 0000 | | .XXX[0x2]
1430 0000 0000 | | .LITERAL {0x00000000, 0x00008190}
1434 0000 0000 | | .BLANK 0000[0x4]
1438 ; --------------------------------------------------------------------------------------
1438 ; SUBPROGRAM
1438 ; --------------------------------------------------------------------------------------
1438 143b | ; | .CONST 0x143b ; Address of begin
1439 0004 | | .CONST 0x0004 ; Address of exception handler
143a 0001 | | .CONST 0x0001 ; Number of locals
143b BODY_1438:
143b INIT_1438:
143b e26a | j | Load 0x1,0x6a
143c 6807 |h | Jump_Zero 0x1444
143d 00db | | Load_Top At_Offset_3
143e 0092 20ad | | Action Push_String_Extended,0x20ad ; "}?{ Check_Unit Target_Builder.Unit."
1440 e5ff | | Load 0x2,-0x1
1441 01cc | | Execute Vector,Catenate
1442 e007 | | Load 0x0,0x7
1443 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1444 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1445 0000 0000 | | .XXX[0x3]
1447 0000 | |
1448 ; --------------------------------------------------------------------------------------
1448 ; SUBPROGRAM
1448 ; --------------------------------------------------------------------------------------
1448 144e | N | .CONST 0x144e ; Address of begin
1449 0004 | | .CONST 0x0004 ; Address of exception handler
144a 0002 | | .CONST 0x0002 ; Number of locals
144b INIT_1448:
144b e005 | | Load 0x0,0x5
144c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
144d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
144e BODY_1448:
144e 4800 |H | Short_Literal 0x0
144f a5fa | | Store_Unchecked 0x2,-0x6
1450 e005 | | Load 0x0,0x5
1451 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1452 e5fc | | Load 0x2,-0x4
1453 e5ff | | Load 0x2,-0x1
1454 8015 | | Call 0x0,0x15
1455 0059 | Y | Store_Top Discrete,At_Offset_1
1456 4800 |H | Short_Literal 0x0
1457 00d9 | | Load_Top At_Offset_1
1458 e005 | | Load 0x0,0x5
1459 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
145a 7003 |p | Jump_Nonzero 0x145e
145b 00d8 | | Load_Top At_Offset_0
145c a5fa | | Store_Unchecked 0x2,-0x6
145d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
145e 00db | | Load_Top At_Offset_3
145f 0227 | ' | Execute Access,All_Reference
1460 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1461 e5fe | | Load 0x2,-0x2
1462 e002 | | Load 0x0,0x2
1463 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1464 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1465 e001 | | Load 0x0,0x1
1466 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1467 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1468 c5fb | | Store 0x2,-0x5
1469 e5fb | | Load 0x2,-0x5
146a e001 | | Load 0x0,0x1
146b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
146c 180f | | Execute Package,Field_Execute,Field_Number 0xf
146d 6819 |h | Jump_Zero 0x1487
146e e5fc | | Load 0x2,-0x4
146f 4801 |H | Short_Literal 0x1
1470 4801 |H | Short_Literal 0x1
1471 e004 | | Load 0x0,0x4
1472 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1473 035b | [ | Declare_Type Array,Constrained
1474 0337 | 7 | Declare_Variable Array
1475 e5fe | | Load 0x2,-0x2
1476 e004 | | Load 0x0,0x4
1477 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1478 e004 | | Load 0x0,0x4
1479 1b0e | | Execute Package,Field_Read,Field_Number 0xe
147a 0119 | | Execute Any,Check_In_Formal_Type
147b 4801 |H | Short_Literal 0x1
147c 00da | | Load_Top At_Offset_2
147d 01d6 | | Execute Vector,Field_Write
147e 6009 |` | Indirect_Literal Discrete,0x1488,{0x00000000, 0x0000816f}
147f e005 | | Load 0x0,0x5
1480 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1481 e004 | | Load 0x0,0x4
1482 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1483 e5fd | | Load 0x2,-0x3
1484 e005 | | Load 0x0,0x5
1485 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1486 a5fa | | Store_Unchecked 0x2,-0x6
1487 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1488 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
148c 0000 0000 | | .BLANK 0000[0x4]
1490 ; --------------------------------------------------------------------------------------
1490 ; SUBPROGRAM
1490 ; --------------------------------------------------------------------------------------
1490 1493 | | .CONST 0x1493 ; Address of begin
1491 0004 | | .CONST 0x0004 ; Address of exception handler
1492 0001 | | .CONST 0x0001 ; Number of locals
1493 BODY_1490:
1493 INIT_1490:
1493 00db | | Load_Top At_Offset_3
1494 701e |p | Jump_Nonzero 0x14b3
1495 00da | | Load_Top At_Offset_2
1496 01db | | Execute Vector,Length
1497 701b |p | Jump_Nonzero 0x14b3
1498 e014 | | Load 0x0,0x14
1499 180e | | Execute Package,Field_Execute,Field_Number 0xe
149a 4801 |H | Short_Literal 0x1
149b 4801 |H | Short_Literal 0x1
149c e004 | | Load 0x0,0x4
149d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
149e 035b | [ | Declare_Type Array,Constrained
149f 0337 | 7 | Declare_Variable Array
14a0 00ea | | Load_Encached Null_String_Cache
14a1 e004 | | Load 0x0,0x4
14a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
14a3 e004 | | Load 0x0,0x4
14a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14a5 0119 | | Execute Any,Check_In_Formal_Type
14a6 4801 |H | Short_Literal 0x1
14a7 00da | | Load_Top At_Offset_2
14a8 01d6 | | Execute Vector,Field_Write
14a9 600e |` | Indirect_Literal Discrete,0x14b8,{0x00000000, 0x00008210}
14aa e005 | | Load 0x0,0x5
14ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
14ac e004 | | Load 0x0,0x4
14ad 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
14ae 6009 |` | Indirect_Literal Discrete,0x14b8,{0x00000000, 0x00008210}
14af e005 | | Load 0x0,0x5
14b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
14b1 a5fc | | Store_Unchecked 0x2,-0x4
14b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
14b3 4800 |H | Short_Literal 0x0
14b4 a5fc | | Store_Unchecked 0x2,-0x4
14b5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
14b6 0000 0000 | | .XXX[0x2]
14b8 0000 0000 | | .LITERAL {0x00000000, 0x00008210}
14bc 0000 0000 | | .BLANK 0000[0x4]
14c0 ; --------------------------------------------------------------------------------------
14c0 ; SUBPROGRAM
14c0 ; --------------------------------------------------------------------------------------
14c0 14d6 | | .CONST 0x14d6 ; Address of begin
14c1 0004 | | .CONST 0x0004 ; Address of exception handler
14c2 0002 | | .CONST 0x0002 ; Number of locals
14c3 INIT_14c0:
14c3 e014 | | Load 0x0,0x14
14c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
14c5 e014 | | Load 0x0,0x14
14c6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
14c7 e014 | | Load 0x0,0x14
14c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
14c9 e014 | | Load 0x0,0x14
14ca 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
14cb 484d |HM | Short_Literal 0x4d
14cc e014 | | Load 0x0,0x14
14cd 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
14ce e014 | | Load 0x0,0x14
14cf 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
14d0 4800 |H | Short_Literal 0x0
14d1 e014 | | Load 0x0,0x14
14d2 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
14d3 00db | | Load_Top At_Offset_3
14d4 e00f | | Load 0x0,0xf
14d5 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
14d6 BODY_14c0:
14d6 4800 |H | Short_Literal 0x0
14d7 00d9 | | Load_Top At_Offset_1
14d8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
14d9 e005 | | Load 0x0,0x5
14da 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
14db 7003 |p | Jump_Nonzero 0x14df
14dc e005 | | Load 0x0,0x5
14dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
14de 0257 | W | Execute Discrete,Raise
14df 00d8 | | Load_Top At_Offset_0
14e0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
14e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
14e2 0000 0000 | | .BLANK 0000[0x6]
14e8 ; --------------------------------------------------------------------------------------
14e8 ; SUBPROGRAM
14e8 ; --------------------------------------------------------------------------------------
14e8 14ed | | .CONST 0x14ed ; Address of begin
14e9 0004 | | .CONST 0x0004 ; Address of exception handler
14ea 0002 | | .CONST 0x0002 ; Number of locals
14eb INIT_14e8:
14eb 029f 1f23 | #| Declare_Subprogram INIT_1f20,For_Call
14ed BODY_14e8:
14ed e5fd | | Load 0x2,-0x3
14ee 6803 |h | Jump_Zero 0x14f2
14ef 00db | | Load_Top At_Offset_3
14f0 826e | n | Call 0x1,0x6e
14f1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
14f2 8402 | | Call 0x2,0x2
14f3 0831 | 1 | Execute_Immediate Raise,0x31
14f4 0000 0000 | | .BLANK 0000[0x4]
14f8 ; --------------------------------------------------------------------------------------
14f8 ; SUBPROGRAM
14f8 ; --------------------------------------------------------------------------------------
14f8 14fb | | .CONST 0x14fb ; Address of begin
14f9 0004 | | .CONST 0x0004 ; Address of exception handler
14fa 0001 | | .CONST 0x0001 ; Number of locals
14fb BODY_14f8:
14fb INIT_14f8:
14fb 00db | | Load_Top At_Offset_3
14fc e009 | | Load 0x0,0x9
14fd 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
14fe 00db | | Load_Top At_Offset_3
14ff e001 | | Load 0x0,0x1
1500 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1501 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1502 7002 |p | Jump_Nonzero 0x1505
1503 00ea | | Load_Encached Null_String_Cache
1504 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1505 00db | | Load_Top At_Offset_3
1506 e009 | | Load 0x0,0x9
1507 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1508 00db | | Load_Top At_Offset_3
1509 e001 | | Load 0x0,0x1
150a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
150b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
150c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
150d 0000 0000 | | .XXX[0x3]
150f 0000 | |
1510 ; --------------------------------------------------------------------------------------
1510 ; SUBPROGRAM
1510 ; --------------------------------------------------------------------------------------
1510 152a | * | .CONST 0x152a ; Address of begin
1511 158a | | .CONST 0x158a ; Address of exception handler
1512 0005 | | .CONST 0x0005 ; Number of locals
1513 INIT_1510:
1513 e005 | | Load 0x0,0x5
1514 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1515 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1516 e00d | | Load 0x0,0xd
1517 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1518 02c7 | | Declare_Variable Any
1519 00d8 | | Load_Top At_Offset_0
151a 1c00 | | Execute_Immediate Run_Utility,0x0
151b e5f8 | | Load 0x2,-0x8
151c e001 | | Load 0x0,0x1
151d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
151e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
151f e5fe | | Load 0x2,-0x2
1520 e5fb | | Load 0x2,-0x5
1521 e009 | | Load 0x0,0x9
1522 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1523 e5f8 | | Load 0x2,-0x8
1524 e001 | | Load 0x0,0x1
1525 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1526 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1527 e5fb | | Load 0x2,-0x5
1528 e009 | | Load 0x0,0x9
1529 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
152a BODY_1510:
152a e5f9 | | Load 0x2,-0x7
152b 0092 20ae | | Action Push_String_Extended,0x20ae ; "Target_Builder.Unit.Establish_Download_Time"
152d e007 | | Load 0x0,0x7
152e 180e | | Execute Package,Field_Execute,Field_Number 0xe
152f 4800 |H | Short_Literal 0x0
1530 e402 | | Load 0x2,0x2
1531 e005 | | Load 0x0,0x5
1532 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1533 7003 |p | Jump_Nonzero 0x1537
1534 00db | | Load_Top At_Offset_3
1535 a5f7 | | Store_Unchecked 0x2,-0x9
1536 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1537 00da | | Load_Top At_Offset_2
1538 0120 | | Execute Any,Is_Value
1539 6803 |h | Jump_Zero 0x153d
153a e00d | | Load 0x0,0xd
153b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
153c 7801 |x | Jump 0x153e
153d 00da | | Load_Top At_Offset_2
153e e005 | | Load 0x0,0x5
153f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1540 e5fa | | Load 0x2,-0x6
1541 e5fc | | Load 0x2,-0x4
1542 e405 | | Load 0x2,0x5
1543 e008 | | Load 0x0,0x8
1544 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1545 c402 | | Store 0x2,0x2
1546 c403 | | Store 0x2,0x3
1547 4800 |H | Short_Literal 0x0
1548 e402 | | Load 0x2,0x2
1549 e005 | | Load 0x0,0x5
154a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
154b 701d |p | Jump_Nonzero 0x1569
154c e5f9 | | Load 0x2,-0x7
154d 4801 |H | Short_Literal 0x1
154e 4802 |H | Short_Literal 0x2
154f e004 | | Load 0x0,0x4
1550 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1551 035b | [ | Declare_Type Array,Constrained
1552 0337 | 7 | Declare_Variable Array
1553 00db | | Load_Top At_Offset_3
1554 e004 | | Load 0x0,0x4
1555 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1556 e004 | | Load 0x0,0x4
1557 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1558 0119 | | Execute Any,Check_In_Formal_Type
1559 4801 |H | Short_Literal 0x1
155a 00da | | Load_Top At_Offset_2
155b 01d6 | | Execute Vector,Field_Write
155c e402 | | Load 0x2,0x2
155d e005 | | Load 0x0,0x5
155e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
155f e004 | | Load 0x0,0x4
1560 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1561 0119 | | Execute Any,Check_In_Formal_Type
1562 4802 |H | Short_Literal 0x2
1563 00da | | Load_Top At_Offset_2
1564 01d6 | | Execute Vector,Field_Write
1565 605e |`^ | Indirect_Literal Discrete,0x15c4,{0x00000000, 0x00008137}
1566 e005 | | Load 0x0,0x5
1567 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1568 781e |x | Jump 0x1587
1569 e5f9 | | Load 0x2,-0x7
156a 0092 208d | | Action Push_String_Extended,0x208d ; "Setting download time for => "
156c 00db | | Load_Top At_Offset_3
156d 01cc | | Execute Vector,Catenate
156e 0092 208e | | Action Push_String_Extended,0x208e ; " to "
1570 01cc | | Execute Vector,Catenate
1571 4800 |H | Short_Literal 0x0
1572 4800 |H | Short_Literal 0x0
1573 4800 |H | Short_Literal 0x0
1574 e403 | | Load 0x2,0x3
1575 e011 | | Load 0x0,0x11
1576 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1577 e011 | | Load 0x0,0x11
1578 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1579 01cc | | Execute Vector,Catenate
157a e007 | | Load 0x0,0x7
157b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
157c 00db | | Load_Top At_Offset_3
157d e5fb | | Load 0x2,-0x5
157e e009 | | Load 0x0,0x9
157f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1580 e5fd | | Load 0x2,-0x3
1581 e403 | | Load 0x2,0x3
1582 e5f8 | | Load 0x2,-0x8
1583 e001 | | Load 0x0,0x1
1584 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1585 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
1586 c402 | | Store 0x2,0x2
1587 00db | | Load_Top At_Offset_3
1588 a5f7 | | Store_Unchecked 0x2,-0x9
1589 4508 |E | Exit_Suprogram New_Top_Offset 0x8
158a TRAP_1510:
158a e005 | | Load 0x0,0x5
158b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
158c 010f | | Execute Exception,Equal
158d 6817 |h | Jump_Zero 0x15a5
158e e005 | | Load 0x0,0x5
158f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1590 a5f7 | | Store_Unchecked 0x2,-0x9
1591 e5f9 | | Load 0x2,-0x7
1592 4801 |H | Short_Literal 0x1
1593 4801 |H | Short_Literal 0x1
1594 e004 | | Load 0x0,0x4
1595 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1596 035b | [ | Declare_Type Array,Constrained
1597 0337 | 7 | Declare_Variable Array
1598 e404 | | Load 0x2,0x4
1599 e004 | | Load 0x0,0x4
159a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
159b e004 | | Load 0x0,0x4
159c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
159d 0119 | | Execute Any,Check_In_Formal_Type
159e 4801 |H | Short_Literal 0x1
159f 00da | | Load_Top At_Offset_2
15a0 01d6 | | Execute Vector,Field_Write
15a1 601e |` | Indirect_Literal Discrete,0x15c0,{0x00000000, 0x0000815e}
15a2 e005 | | Load 0x0,0x5
15a3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
15a4 4508 |E | Exit_Suprogram New_Top_Offset 0x8
15a5 e5f9 | | Load 0x2,-0x7
15a6 0092 20ae | | Action Push_String_Extended,0x20ae ; "Target_Builder.Unit.Establish_Download_Time"
15a8 e007 | | Load 0x0,0x7
15a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
15aa 4801 |H | Short_Literal 0x1
15ab 4801 |H | Short_Literal 0x1
15ac e004 | | Load 0x0,0x4
15ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
15ae 035b | [ | Declare_Type Array,Constrained
15af 0337 | 7 | Declare_Variable Array
15b0 00db | | Load_Top At_Offset_3
15b1 e004 | | Load 0x0,0x4
15b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
15b3 e004 | | Load 0x0,0x4
15b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15b5 0119 | | Execute Any,Check_In_Formal_Type
15b6 4801 |H | Short_Literal 0x1
15b7 00da | | Load_Top At_Offset_2
15b8 01d6 | | Execute Vector,Field_Write
15b9 6006 |` | Indirect_Literal Discrete,0x15c0,{0x00000000, 0x0000815e}
15ba e005 | | Load 0x0,0x5
15bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
15bc a5f7 | | Store_Unchecked 0x2,-0x9
15bd 4508 |E | Exit_Suprogram New_Top_Offset 0x8
15be 0000 0000 | | .XXX[0x2]
15c0 0000 0000 | | .LITERAL {0x00000000, 0x0000815e}
15c4 0000 0000 | | .LITERAL {0x00000000, 0x00008137}
15c8 ; --------------------------------------------------------------------------------------
15c8 ; SUBPROGRAM
15c8 ; --------------------------------------------------------------------------------------
15c8 15d9 | | .CONST 0x15d9 ; Address of begin
15c9 1636 | 6 | .CONST 0x1636 ; Address of exception handler
15ca 0004 | | .CONST 0x0004 ; Number of locals
15cb INIT_15c8:
15cb e005 | | Load 0x0,0x5
15cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15cd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
15ce e00d | | Load 0x0,0xd
15cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15d0 02c7 | | Declare_Variable Any
15d1 00d8 | | Load_Top At_Offset_0
15d2 1c00 | | Execute_Immediate Run_Utility,0x0
15d3 e5ff | | Load 0x2,-0x1
15d4 e5fe | | Load 0x2,-0x2
15d5 826e | n | Call 0x1,0x6e
15d6 e5fb | | Load 0x2,-0x5
15d7 e009 | | Load 0x0,0x9
15d8 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
15d9 BODY_15c8:
15d9 e5f9 | | Load 0x2,-0x7
15da 0092 20ae | | Action Push_String_Extended,0x20ae ; "Target_Builder.Unit.Establish_Download_Time"
15dc e007 | | Load 0x0,0x7
15dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
15de 4800 |H | Short_Literal 0x0
15df 00db | | Load_Top At_Offset_3
15e0 e005 | | Load 0x0,0x5
15e1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
15e2 7003 |p | Jump_Nonzero 0x15e6
15e3 00da | | Load_Top At_Offset_2
15e4 a5f8 | | Store_Unchecked 0x2,-0x8
15e5 4508 |E | Exit_Suprogram New_Top_Offset 0x8
15e6 00d9 | | Load_Top At_Offset_1
15e7 0120 | | Execute Any,Is_Value
15e8 6803 |h | Jump_Zero 0x15ec
15e9 e00d | | Load 0x0,0xd
15ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15eb 7801 |x | Jump 0x15ed
15ec 00d9 | | Load_Top At_Offset_1
15ed e005 | | Load 0x0,0x5
15ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15ef e5fa | | Load 0x2,-0x6
15f0 e5fc | | Load 0x2,-0x4
15f1 e404 | | Load 0x2,0x4
15f2 e008 | | Load 0x0,0x8
15f3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
15f4 c402 | | Store 0x2,0x2
15f5 c403 | | Store 0x2,0x3
15f6 4800 |H | Short_Literal 0x0
15f7 00db | | Load_Top At_Offset_3
15f8 e005 | | Load 0x0,0x5
15f9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
15fa 701d |p | Jump_Nonzero 0x1618
15fb e5f9 | | Load 0x2,-0x7
15fc 4801 |H | Short_Literal 0x1
15fd 4802 |H | Short_Literal 0x2
15fe e004 | | Load 0x0,0x4
15ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1600 035b | [ | Declare_Type Array,Constrained
1601 0337 | 7 | Declare_Variable Array
1602 00da | | Load_Top At_Offset_2
1603 e004 | | Load 0x0,0x4
1604 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1605 e004 | | Load 0x0,0x4
1606 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1607 0119 | | Execute Any,Check_In_Formal_Type
1608 4801 |H | Short_Literal 0x1
1609 00da | | Load_Top At_Offset_2
160a 01d6 | | Execute Vector,Field_Write
160b e402 | | Load 0x2,0x2
160c e005 | | Load 0x0,0x5
160d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
160e e004 | | Load 0x0,0x4
160f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1610 0119 | | Execute Any,Check_In_Formal_Type
1611 4802 |H | Short_Literal 0x2
1612 00da | | Load_Top At_Offset_2
1613 01d6 | | Execute Vector,Field_Write
1614 67af |g | Indirect_Literal Discrete,0x15c4,{0x00000000, 0x00008137}
1615 e005 | | Load 0x0,0x5
1616 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1617 781b |x | Jump 0x1633
1618 e5f9 | | Load 0x2,-0x7
1619 0092 208d | | Action Push_String_Extended,0x208d ; "Setting download time for => "
161b 00da | | Load_Top At_Offset_2
161c 01cc | | Execute Vector,Catenate
161d 0092 208e | | Action Push_String_Extended,0x208e ; " to "
161f 01cc | | Execute Vector,Catenate
1620 4800 |H | Short_Literal 0x0
1621 4800 |H | Short_Literal 0x0
1622 4800 |H | Short_Literal 0x0
1623 e403 | | Load 0x2,0x3
1624 e011 | | Load 0x0,0x11
1625 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1626 e011 | | Load 0x0,0x11
1627 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1628 01cc | | Execute Vector,Catenate
1629 e007 | | Load 0x0,0x7
162a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
162b e005 | | Load 0x0,0x5
162c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
162d e5f9 | | Load 0x2,-0x7
162e 00db | | Load_Top At_Offset_3
162f e5fe | | Load 0x2,-0x2
1630 e00f | | Load 0x0,0xf
1631 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
1632 005b | [ | Store_Top Discrete,At_Offset_3
1633 00da | | Load_Top At_Offset_2
1634 a5f8 | | Store_Unchecked 0x2,-0x8
1635 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1636 TRAP_15c8:
1636 e005 | | Load 0x0,0x5
1637 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1638 010f | | Execute Exception,Equal
1639 6817 |h | Jump_Zero 0x1651
163a e005 | | Load 0x0,0x5
163b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
163c a5f8 | | Store_Unchecked 0x2,-0x8
163d e5f9 | | Load 0x2,-0x7
163e 4801 |H | Short_Literal 0x1
163f 4801 |H | Short_Literal 0x1
1640 e004 | | Load 0x0,0x4
1641 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1642 035b | [ | Declare_Type Array,Constrained
1643 0337 | 7 | Declare_Variable Array
1644 00db | | Load_Top At_Offset_3
1645 e004 | | Load 0x0,0x4
1646 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1647 e004 | | Load 0x0,0x4
1648 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1649 0119 | | Execute Any,Check_In_Formal_Type
164a 4801 |H | Short_Literal 0x1
164b 00da | | Load_Top At_Offset_2
164c 01d6 | | Execute Vector,Field_Write
164d 6772 |gr | Indirect_Literal Discrete,0x15c0,{0x00000000, 0x0000815e}
164e e005 | | Load 0x0,0x5
164f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1650 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1651 e5f9 | | Load 0x2,-0x7
1652 0092 20ae | | Action Push_String_Extended,0x20ae ; "Target_Builder.Unit.Establish_Download_Time"
1654 e007 | | Load 0x0,0x7
1655 180f | | Execute Package,Field_Execute,Field_Number 0xf
1656 4801 |H | Short_Literal 0x1
1657 4801 |H | Short_Literal 0x1
1658 e004 | | Load 0x0,0x4
1659 1b0f | | Execute Package,Field_Read,Field_Number 0xf
165a 035b | [ | Declare_Type Array,Constrained
165b 0337 | 7 | Declare_Variable Array
165c 00da | | Load_Top At_Offset_2
165d e004 | | Load 0x0,0x4
165e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
165f e004 | | Load 0x0,0x4
1660 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1661 0119 | | Execute Any,Check_In_Formal_Type
1662 4801 |H | Short_Literal 0x1
1663 00da | | Load_Top At_Offset_2
1664 01d6 | | Execute Vector,Field_Write
1665 675a |gZ | Indirect_Literal Discrete,0x15c0,{0x00000000, 0x0000815e}
1666 e005 | | Load 0x0,0x5
1667 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1668 a5f8 | | Store_Unchecked 0x2,-0x8
1669 4508 |E | Exit_Suprogram New_Top_Offset 0x8
166a 0000 0000 | | .BLANK 0000[0x6]
1670 ; --------------------------------------------------------------------------------------
1670 ; SUBPROGRAM
1670 ; --------------------------------------------------------------------------------------
1670 1675 | u | .CONST 0x1675 ; Address of begin
1671 0004 | | .CONST 0x0004 ; Address of exception handler
1672 0002 | | .CONST 0x0002 ; Number of locals
1673 INIT_1670:
1673 e002 | | Load 0x0,0x2
1674 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1675 BODY_1670:
1675 e002 | | Load 0x0,0x2
1676 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1677 e5fd | | Load 0x2,-0x3
1678 0120 | | Execute Any,Is_Value
1679 6804 |h | Jump_Zero 0x167e
167a e002 | | Load 0x0,0x2
167b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
167c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
167d 7801 |x | Jump 0x167f
167e e5fd | | Load 0x2,-0x3
167f 6068 |`h | Indirect_Literal Discrete,0x16e8,{0x00000000, 0x00004000}
1680 e010 | | Load 0x0,0x10
1681 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1682 4800 |H | Short_Literal 0x0
1683 e5ff | | Load 0x2,-0x1
1684 e002 | | Load 0x0,0x2
1685 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1686 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1687 c5fd | | Store 0x2,-0x3
1688 0059 | Y | Store_Top Discrete,At_Offset_1
1689 00d8 | | Load_Top At_Offset_0
168a 6821 |h! | Jump_Zero 0x16ac
168b 4801 |H | Short_Literal 0x1
168c 4802 |H | Short_Literal 0x2
168d e004 | | Load 0x0,0x4
168e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
168f 035b | [ | Declare_Type Array,Constrained
1690 0337 | 7 | Declare_Variable Array
1691 e5ff | | Load 0x2,-0x1
1692 e004 | | Load 0x0,0x4
1693 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1694 e004 | | Load 0x0,0x4
1695 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1696 0119 | | Execute Any,Check_In_Formal_Type
1697 4801 |H | Short_Literal 0x1
1698 00da | | Load_Top At_Offset_2
1699 01d6 | | Execute Vector,Field_Write
169a 00d9 | | Load_Top At_Offset_1
169b e004 | | Load 0x0,0x4
169c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
169d e004 | | Load 0x0,0x4
169e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
169f 0119 | | Execute Any,Check_In_Formal_Type
16a0 4802 |H | Short_Literal 0x2
16a1 00da | | Load_Top At_Offset_2
16a2 01d6 | | Execute Vector,Field_Write
16a3 6040 |`@ | Indirect_Literal Discrete,0x16e4,{0x00000000, 0x0000813d}
16a4 e005 | | Load 0x0,0x5
16a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
16a6 a5fb | | Store_Unchecked 0x2,-0x5
16a7 e5fe | | Load 0x2,-0x2
16a8 e5fb | | Load 0x2,-0x5
16a9 e005 | | Load 0x0,0x5
16aa 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
16ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3
16ac e01e | | Load 0x0,0x1e
16ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
16ae e002 | | Load 0x0,0x2
16af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
16b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
16b1 c5fc | | Store 0x2,-0x4
16b2 e002 | | Load 0x0,0x2
16b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
16b4 e01e | | Load 0x0,0x1e
16b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
16b6 e5fd | | Load 0x2,-0x3
16b7 e002 | | Load 0x0,0x2
16b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
16b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
16ba 0059 | Y | Store_Top Discrete,At_Offset_1
16bb 00d8 | | Load_Top At_Offset_0
16bc 6820 |h | Jump_Zero 0x16dd
16bd 4801 |H | Short_Literal 0x1
16be 4802 |H | Short_Literal 0x2
16bf e004 | | Load 0x0,0x4
16c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
16c1 035b | [ | Declare_Type Array,Constrained
16c2 0337 | 7 | Declare_Variable Array
16c3 e5ff | | Load 0x2,-0x1
16c4 e004 | | Load 0x0,0x4
16c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
16c6 e004 | | Load 0x0,0x4
16c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
16c8 0119 | | Execute Any,Check_In_Formal_Type
16c9 4801 |H | Short_Literal 0x1
16ca 00da | | Load_Top At_Offset_2
16cb 01d6 | | Execute Vector,Field_Write
16cc 00d9 | | Load_Top At_Offset_1
16cd e004 | | Load 0x0,0x4
16ce 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
16cf e004 | | Load 0x0,0x4
16d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
16d1 0119 | | Execute Any,Check_In_Formal_Type
16d2 4802 |H | Short_Literal 0x2
16d3 00da | | Load_Top At_Offset_2
16d4 01d6 | | Execute Vector,Field_Write
16d5 600a |` | Indirect_Literal Discrete,0x16e0,{0x00000000, 0x00008159}
16d6 e005 | | Load 0x0,0x5
16d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
16d8 a5fb | | Store_Unchecked 0x2,-0x5
16d9 e5fe | | Load 0x2,-0x2
16da e5fb | | Load 0x2,-0x5
16db e005 | | Load 0x0,0x5
16dc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
16dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
16de 0000 0000 | | .XXX[0x2]
16e0 0000 0000 | | .LITERAL {0x00000000, 0x00008159}
16e4 0000 0000 | | .LITERAL {0x00000000, 0x0000813d}
16e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
16ec 0000 0000 | | .BLANK 0000[0x4]
16f0 ; --------------------------------------------------------------------------------------
16f0 ; SUBPROGRAM
16f0 ; --------------------------------------------------------------------------------------
16f0 16f5 | | .CONST 0x16f5 ; Address of begin
16f1 0004 | | .CONST 0x0004 ; Address of exception handler
16f2 0002 | | .CONST 0x0002 ; Number of locals
16f3 INIT_16f0:
16f3 e002 | | Load 0x0,0x2
16f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
16f5 BODY_16f0:
16f5 4800 |H | Short_Literal 0x0
16f6 a5fd | | Store_Unchecked 0x2,-0x3
16f7 e002 | | Load 0x0,0x2
16f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
16f9 e01e | | Load 0x0,0x1e
16fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
16fb e5ff | | Load 0x2,-0x1
16fc e002 | | Load 0x0,0x2
16fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
16fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
16ff 0059 | Y | Store_Top Discrete,At_Offset_1
1700 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1701 0000 0000 | | .BLANK 0000[0x7]
1708 ; --------------------------------------------------------------------------------------
1708 ; SUBPROGRAM
1708 ; --------------------------------------------------------------------------------------
1708 170b | | .CONST 0x170b ; Address of begin
1709 0004 | | .CONST 0x0004 ; Address of exception handler
170a 0001 | | .CONST 0x0001 ; Number of locals
170b BODY_1708:
170b INIT_1708:
170b e5fc | | Load 0x2,-0x4
170c 0092 20af | | Action Push_String_Extended,0x20af ; "Acquiring Remote Connection => "
170e e5ff | | Load 0x2,-0x1
170f 01cc | | Execute Vector,Catenate
1710 e007 | | Load 0x0,0x7
1711 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1712 e005 | | Load 0x0,0x5
1713 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1714 e008 | | Load 0x0,0x8
1715 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1716 e5fd | | Load 0x2,-0x3
1717 e01f | | Load 0x0,0x1f
1718 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1719 e01f | | Load 0x0,0x1f
171a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
171b e5ff | | Load 0x2,-0x1
171c e5fe | | Load 0x2,-0x2
171d e008 | | Load 0x0,0x8
171e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
171f c5fb | | Store 0x2,-0x5
1720 c5fa | | Store 0x2,-0x6
1721 4800 |H | Short_Literal 0x0
1722 e5fa | | Load 0x2,-0x6
1723 e005 | | Load 0x0,0x5
1724 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1725 7004 |p | Jump_Nonzero 0x172a
1726 e5fc | | Load 0x2,-0x4
1727 e5fa | | Load 0x2,-0x6
1728 e005 | | Load 0x0,0x5
1729 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
172a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
172b 0000 0000 | | .BLANK 0000[0x5]
1730 ; --------------------------------------------------------------------------------------
1730 ; SUBPROGRAM
1730 ; --------------------------------------------------------------------------------------
1730 1735 | 5 | .CONST 0x1735 ; Address of begin
1731 0004 | | .CONST 0x0004 ; Address of exception handler
1732 0002 | | .CONST 0x0002 ; Number of locals
1733 INIT_1730:
1733 029f 1f33 | 3| Declare_Subprogram INIT_1f30,For_Call
1735 BODY_1730:
1735 e5fe | | Load 0x2,-0x2
1736 01db | | Execute Vector,Length
1737 7008 |p | Jump_Nonzero 0x1740
1738 e004 | | Load 0x0,0x4
1739 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
173a 4806 |H | Short_Literal 0x6
173b 6040 |`@ | Indirect_Literal Discrete,0x177c,{0x00000000, 0x0000818b}
173c e005 | | Load 0x0,0x5
173d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
173e a5f9 | | Store_Unchecked 0x2,-0x7
173f 782c |x, | Jump 0x176c
1740 e5fb | | Load 0x2,-0x5
1741 6814 |h | Jump_Zero 0x1756
1742 e5fa | | Load 0x2,-0x6
1743 4801 |H | Short_Literal 0x1
1744 4801 |H | Short_Literal 0x1
1745 e004 | | Load 0x0,0x4
1746 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1747 035b | [ | Declare_Type Array,Constrained
1748 0337 | 7 | Declare_Variable Array
1749 e5fe | | Load 0x2,-0x2
174a e004 | | Load 0x0,0x4
174b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
174c e004 | | Load 0x0,0x4
174d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
174e 0119 | | Execute Any,Check_In_Formal_Type
174f 4801 |H | Short_Literal 0x1
1750 00da | | Load_Top At_Offset_2
1751 01d6 | | Execute Vector,Field_Write
1752 6025 |`% | Indirect_Literal Discrete,0x1778,{0x00000000, 0x0000818e}
1753 e005 | | Load 0x0,0x5
1754 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1755 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1756 e005 | | Load 0x0,0x5
1757 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1758 4800 |H | Short_Literal 0x0
1759 e5fc | | Load 0x2,-0x4
175a e00b | | Load 0x0,0xb
175b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
175c e00b | | Load 0x0,0xb
175d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
175e 4801 |H | Short_Literal 0x1
175f e5ff | | Load 0x2,-0x1
1760 e009 | | Load 0x0,0x9
1761 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
1762 e5ff | | Load 0x2,-0x1
1763 e009 | | Load 0x0,0x9
1764 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
1765 e5ff | | Load 0x2,-0x1
1766 8402 | | Call 0x2,0x2
1767 e5fd | | Load 0x2,-0x3
1768 e5fe | | Load 0x2,-0x2
1769 e008 | | Load 0x0,0x8
176a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
176b c5f9 | | Store 0x2,-0x7
176c 4800 |H | Short_Literal 0x0
176d e5f9 | | Load 0x2,-0x7
176e e005 | | Load 0x0,0x5
176f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1770 7004 |p | Jump_Nonzero 0x1775
1771 e5fa | | Load 0x2,-0x6
1772 e5f9 | | Load 0x2,-0x7
1773 e005 | | Load 0x0,0x5
1774 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1775 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1776 0000 0000 | | .XXX[0x2]
1778 0000 0000 | | .LITERAL {0x00000000, 0x0000818e}
177c 0000 0000 | | .LITERAL {0x00000000, 0x0000818b}
1780 ; --------------------------------------------------------------------------------------
1780 ; SUBPROGRAM
1780 ; --------------------------------------------------------------------------------------
1780 178b | | .CONST 0x178b ; Address of begin
1781 17fc | | .CONST 0x17fc ; Address of exception handler
1782 0002 | | .CONST 0x0002 ; Number of locals
1783 INIT_1780:
1783 e002 | | Load 0x0,0x2
1784 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
1785 0322 | " | Declare_Variable Record
1786 00db | | Load_Top At_Offset_3
1787 e009 | | Load 0x0,0x9
1788 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1789 00d9 | | Load_Top At_Offset_1
178a 017d | } | Execute Record,Structure_Write
178b BODY_1780:
178b e5fa | | Load 0x2,-0x6
178c 702a |p* | Jump_Nonzero 0x17b7
178d 00d8 | | Load_Top At_Offset_0
178e e5fe | | Load 0x2,-0x2
178f e5fb | | Load 0x2,-0x5
1790 e5fc | | Load 0x2,-0x4
1791 e012 | | Load 0x0,0x12
1792 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1793 7023 |p# | Jump_Nonzero 0x17b7
1794 e5f9 | | Load 0x2,-0x7
1795 4801 |H | Short_Literal 0x1
1796 4802 |H | Short_Literal 0x2
1797 e004 | | Load 0x0,0x4
1798 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1799 035b | [ | Declare_Type Array,Constrained
179a 0337 | 7 | Declare_Variable Array
179b e5fc | | Load 0x2,-0x4
179c e004 | | Load 0x0,0x4
179d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
179e e004 | | Load 0x0,0x4
179f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
17a0 0119 | | Execute Any,Check_In_Formal_Type
17a1 4801 |H | Short_Literal 0x1
17a2 00da | | Load_Top At_Offset_2
17a3 01d6 | | Execute Vector,Field_Write
17a4 e5fb | | Load 0x2,-0x5
17a5 e004 | | Load 0x0,0x4
17a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
17a7 e004 | | Load 0x0,0x4
17a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
17a9 0119 | | Execute Any,Check_In_Formal_Type
17aa 4802 |H | Short_Literal 0x2
17ab 00da | | Load_Top At_Offset_2
17ac 01d6 | | Execute Vector,Field_Write
17ad 6082 |` | Indirect_Literal Discrete,0x1830,{0x00000000, 0x000081c5}
17ae e005 | | Load 0x0,0x5
17af 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
17b0 e004 | | Load 0x0,0x4
17b1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
17b2 607d |`} | Indirect_Literal Discrete,0x1830,{0x00000000, 0x000081c5}
17b3 e005 | | Load 0x0,0x5
17b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
17b5 a5f8 | | Store_Unchecked 0x2,-0x8
17b6 4508 |E | Exit_Suprogram New_Top_Offset 0x8
17b7 00db | | Load_Top At_Offset_3
17b8 e009 | | Load 0x0,0x9
17b9 188c | | Execute Package,Field_Execute,Field_Number 0x8c
17ba 01db | | Execute Vector,Length
17bb 7001 |p | Jump_Nonzero 0x17bd
17bc 4508 |E | Exit_Suprogram New_Top_Offset 0x8
17bd e5f8 | | Load 0x2,-0x8
17be e5f9 | | Load 0x2,-0x7
17bf e5fa | | Load 0x2,-0x6
17c0 e5fd | | Load 0x2,-0x3
17c1 e5fe | | Load 0x2,-0x2
17c2 00ea | | Load_Encached Null_String_Cache
17c3 e5fc | | Load 0x2,-0x4
17c4 e5ff | | Load 0x2,-0x1
17c5 e009 | | Load 0x0,0x9
17c6 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8
17c7 e5ff | | Load 0x2,-0x1
17c8 8276 | v | Call 0x1,0x76
17c9 c5f8 | | Store 0x2,-0x8
17ca 4800 |H | Short_Literal 0x0
17cb e5f8 | | Load 0x2,-0x8
17cc e005 | | Load 0x0,0x5
17cd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
17ce 682c |h, | Jump_Zero 0x17fb
17cf e5fa | | Load 0x2,-0x6
17d0 702a |p* | Jump_Nonzero 0x17fb
17d1 00d8 | | Load_Top At_Offset_0
17d2 e5fe | | Load 0x2,-0x2
17d3 e5fb | | Load 0x2,-0x5
17d4 e5fc | | Load 0x2,-0x4
17d5 e012 | | Load 0x0,0x12
17d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
17d7 7023 |p# | Jump_Nonzero 0x17fb
17d8 e5f9 | | Load 0x2,-0x7
17d9 4801 |H | Short_Literal 0x1
17da 4802 |H | Short_Literal 0x2
17db e004 | | Load 0x0,0x4
17dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
17dd 035b | [ | Declare_Type Array,Constrained
17de 0337 | 7 | Declare_Variable Array
17df e5fc | | Load 0x2,-0x4
17e0 e004 | | Load 0x0,0x4
17e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
17e2 e004 | | Load 0x0,0x4
17e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
17e4 0119 | | Execute Any,Check_In_Formal_Type
17e5 4801 |H | Short_Literal 0x1
17e6 00da | | Load_Top At_Offset_2
17e7 01d6 | | Execute Vector,Field_Write
17e8 e5fb | | Load 0x2,-0x5
17e9 e004 | | Load 0x0,0x4
17ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
17eb e004 | | Load 0x0,0x4
17ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
17ed 0119 | | Execute Any,Check_In_Formal_Type
17ee 4802 |H | Short_Literal 0x2
17ef 00da | | Load_Top At_Offset_2
17f0 01d6 | | Execute Vector,Field_Write
17f1 603a |`: | Indirect_Literal Discrete,0x182c,{0x00000000, 0x000081c6}
17f2 e005 | | Load 0x0,0x5
17f3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
17f4 e004 | | Load 0x0,0x4
17f5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
17f6 6035 |`5 | Indirect_Literal Discrete,0x182c,{0x00000000, 0x000081c6}
17f7 e005 | | Load 0x0,0x5
17f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
17f9 a5f8 | | Store_Unchecked 0x2,-0x8
17fa 4508 |E | Exit_Suprogram New_Top_Offset 0x8
17fb 4508 |E | Exit_Suprogram New_Top_Offset 0x8
17fc TRAP_1780:
17fc e009 | | Load 0x0,0x9
17fd 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
17fe 010f | | Execute Exception,Equal
17ff 6824 |h$ | Jump_Zero 0x1824
1800 4801 |H | Short_Literal 0x1
1801 4802 |H | Short_Literal 0x2
1802 e004 | | Load 0x0,0x4
1803 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1804 035b | [ | Declare_Type Array,Constrained
1805 0337 | 7 | Declare_Variable Array
1806 0092 20b0 | | Action Push_String_Extended,0x20b0 ; "Change Directory Context"
1808 e004 | | Load 0x0,0x4
1809 1810 | | Execute Package,Field_Execute,Field_Number 0x10
180a e004 | | Load 0x0,0x4
180b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
180c 0119 | | Execute Any,Check_In_Formal_Type
180d 4801 |H | Short_Literal 0x1
180e 00da | | Load_Top At_Offset_2
180f 01d6 | | Execute Vector,Field_Write
1810 e5ff | | Load 0x2,-0x1
1811 e009 | | Load 0x0,0x9
1812 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1813 e006 | | Load 0x0,0x6
1814 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
1815 e004 | | Load 0x0,0x4
1816 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1817 0119 | | Execute Any,Check_In_Formal_Type
1818 4802 |H | Short_Literal 0x2
1819 00da | | Load_Top At_Offset_2
181a 01d6 | | Execute Vector,Field_Write
181b 600c |` | Indirect_Literal Discrete,0x1828,{0x00000000, 0x0000818c}
181c e005 | | Load 0x0,0x5
181d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
181e a5f8 | | Store_Unchecked 0x2,-0x8
181f e5f9 | | Load 0x2,-0x7
1820 e5f8 | | Load 0x2,-0x8
1821 e005 | | Load 0x0,0x5
1822 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1823 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1824 0100 | | Execute Exception,Raise
1825 0000 0000 | | .XXX[0x3]
1827 0000 | |
1828 0000 0000 | | .LITERAL {0x00000000, 0x0000818c}
182c 0000 0000 | | .LITERAL {0x00000000, 0x000081c6}
1830 0000 0000 | | .LITERAL {0x00000000, 0x000081c5}
1834 0000 0000 | | .BLANK 0000[0x4]
1838 ; --------------------------------------------------------------------------------------
1838 ; SUBPROGRAM
1838 ; --------------------------------------------------------------------------------------
1838 183e | > | .CONST 0x183e ; Address of begin
1839 1851 | Q | .CONST 0x1851 ; Address of exception handler
183a 0002 | | .CONST 0x0002 ; Number of locals
183b INIT_1838:
183b 00da | | Load_Top At_Offset_2
183c e009 | | Load 0x0,0x9
183d 1890 | | Execute Package,Field_Execute,Field_Number 0x90
183e BODY_1838:
183e 00d8 | | Load_Top At_Offset_0
183f 01db | | Execute Vector,Length
1840 7001 |p | Jump_Nonzero 0x1842
1841 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1842 e5f8 | | Load 0x2,-0x8
1843 e5f9 | | Load 0x2,-0x7
1844 e5fa | | Load 0x2,-0x6
1845 e5fd | | Load 0x2,-0x3
1846 e5fe | | Load 0x2,-0x2
1847 00ea | | Load_Encached Null_String_Cache
1848 e5fb | | Load 0x2,-0x5
1849 e5fc | | Load 0x2,-0x4
184a e5ff | | Load 0x2,-0x1
184b e009 | | Load 0x0,0x9
184c 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
184d e5ff | | Load 0x2,-0x1
184e 8276 | v | Call 0x1,0x76
184f c5f8 | | Store 0x2,-0x8
1850 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1851 TRAP_1838:
1851 e009 | | Load 0x0,0x9
1852 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
1853 010f | | Execute Exception,Equal
1854 6824 |h$ | Jump_Zero 0x1879
1855 4801 |H | Short_Literal 0x1
1856 4802 |H | Short_Literal 0x2
1857 e004 | | Load 0x0,0x4
1858 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1859 035b | [ | Declare_Type Array,Constrained
185a 0337 | 7 | Declare_Variable Array
185b 0092 20b1 | | Action Push_String_Extended,0x20b1 ; "Change Library Context"
185d e004 | | Load 0x0,0x4
185e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
185f e004 | | Load 0x0,0x4
1860 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1861 0119 | | Execute Any,Check_In_Formal_Type
1862 4801 |H | Short_Literal 0x1
1863 00da | | Load_Top At_Offset_2
1864 01d6 | | Execute Vector,Field_Write
1865 e5ff | | Load 0x2,-0x1
1866 e009 | | Load 0x0,0x9
1867 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1868 e006 | | Load 0x0,0x6
1869 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
186a e004 | | Load 0x0,0x4
186b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
186c 0119 | | Execute Any,Check_In_Formal_Type
186d 4802 |H | Short_Literal 0x2
186e 00da | | Load_Top At_Offset_2
186f 01d6 | | Execute Vector,Field_Write
1870 67b7 |g | Indirect_Literal Discrete,0x1828,{0x00000000, 0x0000818c}
1871 e005 | | Load 0x0,0x5
1872 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1873 a5f8 | | Store_Unchecked 0x2,-0x8
1874 e5f9 | | Load 0x2,-0x7
1875 e5f8 | | Load 0x2,-0x8
1876 e005 | | Load 0x0,0x5
1877 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1878 4508 |E | Exit_Suprogram New_Top_Offset 0x8
1879 0100 | | Execute Exception,Raise
187a 0000 0000 | | .BLANK 0000[0x6]
1880 ; --------------------------------------------------------------------------------------
1880 ; SUBPROGRAM
1880 ; --------------------------------------------------------------------------------------
1880 18d3 | | .CONST 0x18d3 ; Address of begin
1881 196e | n | .CONST 0x196e ; Address of exception handler
1882 000c | | .CONST 0x000c ; Number of locals
1883 INIT_1880:
1883 e002 | | Load 0x0,0x2
1884 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1885 02c7 | | Declare_Variable Any
1886 e5f5 | | Load 0x2,-0xb
1887 4801 |H | Short_Literal 0x1
1888 e5fd | | Load 0x2,-0x3
1889 e006 | | Load 0x0,0x6
188a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
188b a402 | | Store_Unchecked 0x2,0x2
188c e5f5 | | Load 0x2,-0xb
188d e5fd | | Load 0x2,-0x3
188e e5fe | | Load 0x2,-0x2
188f e009 | | Load 0x0,0x9
1890 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
1891 e5f5 | | Load 0x2,-0xb
1892 e5fe | | Load 0x2,-0x2
1893 e009 | | Load 0x0,0x9
1894 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1895 00db | | Load_Top At_Offset_3
1896 e00a | | Load 0x0,0xa
1897 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1898 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1899 0007 | | Action Break_Optional
189a e5f5 | | Load 0x2,-0xb
189b e5fd | | Load 0x2,-0x3
189c e5fe | | Load 0x2,-0x2
189d e009 | | Load 0x0,0x9
189e 18ba | | Execute Package,Field_Execute,Field_Number 0xba
189f e002 | | Load 0x0,0x2
18a0 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
18a1 0322 | " | Declare_Variable Record
18a2 e5fe | | Load 0x2,-0x2
18a3 e009 | | Load 0x0,0x9
18a4 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
18a5 00d9 | | Load_Top At_Offset_1
18a6 017d | } | Execute Record,Structure_Write
18a7 e5f5 | | Load 0x2,-0xb
18a8 e5fd | | Load 0x2,-0x3
18a9 4800 |H | Short_Literal 0x0
18aa e5fa | | Load 0x2,-0x6
18ab e00b | | Load 0x0,0xb
18ac 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
18ad e00b | | Load 0x0,0xb
18ae 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
18af 4800 |H | Short_Literal 0x0
18b0 4801 |H | Short_Literal 0x1
18b1 e5fe | | Load 0x2,-0x2
18b2 e009 | | Load 0x0,0x9
18b3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
18b4 e020 | | Load 0x0,0x20
18b5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
18b6 e5f5 | | Load 0x2,-0xb
18b7 e5fd | | Load 0x2,-0x3
18b8 4800 |H | Short_Literal 0x0
18b9 e5fa | | Load 0x2,-0x6
18ba e00b | | Load 0x0,0xb
18bb 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
18bc e00b | | Load 0x0,0xb
18bd 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
18be 4801 |H | Short_Literal 0x1
18bf 4801 |H | Short_Literal 0x1
18c0 e5fe | | Load 0x2,-0x2
18c1 e009 | | Load 0x0,0x9
18c2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
18c3 e020 | | Load 0x0,0x20
18c4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
18c5 00da | | Load_Top At_Offset_2
18c6 e021 | ! | Load 0x0,0x21
18c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
18c8 e022 | " | Load 0x0,0x22
18c9 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
18ca e002 | | Load 0x0,0x2
18cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
18cc 02c7 | | Declare_Variable Any
18cd 00d8 | | Load_Top At_Offset_0
18ce 1c00 | | Execute_Immediate Run_Utility,0x0
18cf 029f 1f4b | K| Declare_Subprogram INIT_1f48,For_Call
18d1 029f 1f63 | c| Declare_Subprogram INIT_1f60,For_Call
18d3 BODY_1880:
18d3 e5f7 | | Load 0x2,-0x9
18d4 6803 |h | Jump_Zero 0x18d8
18d5 e5fc | | Load 0x2,-0x4
18d6 c40a | | Store 0x2,0xa
18d7 7802 |x | Jump 0x18da
18d8 e5fd | | Load 0x2,-0x3
18d9 c40a | | Store 0x2,0xa
18da e406 | | Load 0x2,0x6
18db e5f7 | | Load 0x2,-0x9
18dc e5fb | | Load 0x2,-0x5
18dd e409 | | Load 0x2,0x9
18de e408 | | Load 0x2,0x8
18df e407 | | Load 0x2,0x7
18e0 e403 | | Load 0x2,0x3
18e1 e405 | | Load 0x2,0x5
18e2 e404 | | Load 0x2,0x4
18e3 e5f9 | | Load 0x2,-0x7
18e4 e40a | | Load 0x2,0xa
18e5 e012 | | Load 0x0,0x12
18e6 180d | | Execute Package,Field_Execute,Field_Number 0xd
18e7 701a |p | Jump_Nonzero 0x1902
18e8 e5f5 | | Load 0x2,-0xb
18e9 4801 |H | Short_Literal 0x1
18ea 4801 |H | Short_Literal 0x1
18eb e004 | | Load 0x0,0x4
18ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
18ed 035b | [ | Declare_Type Array,Constrained
18ee 0337 | 7 | Declare_Variable Array
18ef e5fd | | Load 0x2,-0x3
18f0 e006 | | Load 0x0,0x6
18f1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
18f2 e004 | | Load 0x0,0x4
18f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
18f4 0119 | | Execute Any,Check_In_Formal_Type
18f5 4801 |H | Short_Literal 0x1
18f6 00da | | Load_Top At_Offset_2
18f7 01d6 | | Execute Vector,Field_Write
18f8 60a7 |` | Indirect_Literal Discrete,0x19a0,{0x00000000, 0x000081bf}
18f9 e005 | | Load 0x0,0x5
18fa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
18fb e004 | | Load 0x0,0x4
18fc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
18fd 60a2 |` | Indirect_Literal Discrete,0x19a0,{0x00000000, 0x000081bf}
18fe e005 | | Load 0x0,0x5
18ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1900 a5f4 | | Store_Unchecked 0x2,-0xc
1901 450c |E | Exit_Suprogram New_Top_Offset 0xc
1902 e5fe | | Load 0x2,-0x2
1903 e009 | | Load 0x0,0x9
1904 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
1905 01db | | Execute Vector,Length
1906 0c01 | | Execute_Immediate Greater_Equal,0x1
1907 6838 |h8 | Jump_Zero 0x1940
1908 840b | | Call 0x2,0xb
1909 e5f7 | | Load 0x2,-0x9
190a 680a |h | Jump_Zero 0x1915
190b e5f4 | | Load 0x2,-0xc
190c e5f5 | | Load 0x2,-0xb
190d e5f6 | | Load 0x2,-0xa
190e e5fa | | Load 0x2,-0x6
190f e5fb | | Load 0x2,-0x5
1910 e5f8 | | Load 0x2,-0x8
1911 e5fe | | Load 0x2,-0x2
1912 8276 | v | Call 0x1,0x76
1913 c5f4 | | Store 0x2,-0xc
1914 782a |x* | Jump 0x193f
1915 e5f4 | | Load 0x2,-0xc
1916 e5f5 | | Load 0x2,-0xb
1917 e5f6 | | Load 0x2,-0xa
1918 e5fa | | Load 0x2,-0x6
1919 e5fb | | Load 0x2,-0x5
191a e5f5 | | Load 0x2,-0xb
191b e5fd | | Load 0x2,-0x3
191c 4800 |H | Short_Literal 0x0
191d e5fa | | Load 0x2,-0x6
191e e00b | | Load 0x0,0xb
191f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
1920 e00b | | Load 0x0,0xb
1921 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1922 4801 |H | Short_Literal 0x1
1923 4801 |H | Short_Literal 0x1
1924 e5fe | | Load 0x2,-0x2
1925 e009 | | Load 0x0,0x9
1926 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1927 e020 | | Load 0x0,0x20
1928 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1929 e5f5 | | Load 0x2,-0xb
192a e5fd | | Load 0x2,-0x3
192b 4800 |H | Short_Literal 0x0
192c e5fa | | Load 0x2,-0x6
192d e00b | | Load 0x0,0xb
192e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
192f e00b | | Load 0x0,0xb
1930 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1931 4800 |H | Short_Literal 0x0
1932 4801 |H | Short_Literal 0x1
1933 e5fe | | Load 0x2,-0x2
1934 e009 | | Load 0x0,0x9
1935 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1936 e020 | | Load 0x0,0x20
1937 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1938 e5f9 | | Load 0x2,-0x7
1939 e5fe | | Load 0x2,-0x2
193a e009 | | Load 0x0,0x9
193b 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6
193c e5fe | | Load 0x2,-0x2
193d 8276 | v | Call 0x1,0x76
193e c5f4 | | Store 0x2,-0xc
193f 840c | | Call 0x2,0xc
1940 4800 |H | Short_Literal 0x0
1941 e5f4 | | Load 0x2,-0xc
1942 e005 | | Load 0x0,0x5
1943 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1944 6828 |h( | Jump_Zero 0x196d
1945 e406 | | Load 0x2,0x6
1946 e5f7 | | Load 0x2,-0x9
1947 e5fb | | Load 0x2,-0x5
1948 e409 | | Load 0x2,0x9
1949 e408 | | Load 0x2,0x8
194a e407 | | Load 0x2,0x7
194b e403 | | Load 0x2,0x3
194c e405 | | Load 0x2,0x5
194d e404 | | Load 0x2,0x4
194e e5f9 | | Load 0x2,-0x7
194f e40a | | Load 0x2,0xa
1950 e012 | | Load 0x0,0x12
1951 180e | | Execute Package,Field_Execute,Field_Number 0xe
1952 701a |p | Jump_Nonzero 0x196d
1953 e5f5 | | Load 0x2,-0xb
1954 4801 |H | Short_Literal 0x1
1955 4801 |H | Short_Literal 0x1
1956 e004 | | Load 0x0,0x4
1957 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1958 035b | [ | Declare_Type Array,Constrained
1959 0337 | 7 | Declare_Variable Array
195a e5fd | | Load 0x2,-0x3
195b e006 | | Load 0x0,0x6
195c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
195d e004 | | Load 0x0,0x4
195e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
195f 0119 | | Execute Any,Check_In_Formal_Type
1960 4801 |H | Short_Literal 0x1
1961 00da | | Load_Top At_Offset_2
1962 01d6 | | Execute Vector,Field_Write
1963 6038 |`8 | Indirect_Literal Discrete,0x199c,{0x00000000, 0x000081c0}
1964 e005 | | Load 0x0,0x5
1965 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1966 e004 | | Load 0x0,0x4
1967 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1968 6033 |`3 | Indirect_Literal Discrete,0x199c,{0x00000000, 0x000081c0}
1969 e005 | | Load 0x0,0x5
196a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
196b a5f4 | | Store_Unchecked 0x2,-0xc
196c 450c |E | Exit_Suprogram New_Top_Offset 0xc
196d 450c |E | Exit_Suprogram New_Top_Offset 0xc
196e TRAP_1880:
196e e009 | | Load 0x0,0x9
196f 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
1970 010f | | Execute Exception,Equal
1971 6824 |h$ | Jump_Zero 0x1996
1972 4801 |H | Short_Literal 0x1
1973 4802 |H | Short_Literal 0x2
1974 e004 | | Load 0x0,0x4
1975 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1976 035b | [ | Declare_Type Array,Constrained
1977 0337 | 7 | Declare_Variable Array
1978 0092 2078 | x| Action Push_String_Extended,0x2078 ; "Compile"
197a e004 | | Load 0x0,0x4
197b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
197c e004 | | Load 0x0,0x4
197d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
197e 0119 | | Execute Any,Check_In_Formal_Type
197f 4801 |H | Short_Literal 0x1
1980 00da | | Load_Top At_Offset_2
1981 01d6 | | Execute Vector,Field_Write
1982 e5fe | | Load 0x2,-0x2
1983 e009 | | Load 0x0,0x9
1984 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1985 e006 | | Load 0x0,0x6
1986 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
1987 e004 | | Load 0x0,0x4
1988 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1989 0119 | | Execute Any,Check_In_Formal_Type
198a 4802 |H | Short_Literal 0x2
198b 00da | | Load_Top At_Offset_2
198c 01d6 | | Execute Vector,Field_Write
198d 600a |` | Indirect_Literal Discrete,0x1998,{0x00000000, 0x0000818c}
198e e005 | | Load 0x0,0x5
198f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1990 a5f4 | | Store_Unchecked 0x2,-0xc
1991 e5f5 | | Load 0x2,-0xb
1992 e5f4 | | Load 0x2,-0xc
1993 e005 | | Load 0x0,0x5
1994 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1995 450c |E | Exit_Suprogram New_Top_Offset 0xc
1996 0100 | | Execute Exception,Raise
1997 0000 | | .XXX[0x1]
1998 0000 0000 | | .LITERAL {0x00000000, 0x0000818c}
199c 0000 0000 | | .LITERAL {0x00000000, 0x000081c0}
19a0 0000 0000 | | .LITERAL {0x00000000, 0x000081bf}
19a4 0000 0000 | | .BLANK 0000[0x4]
19a8 ; --------------------------------------------------------------------------------------
19a8 ; SUBPROGRAM
19a8 ; --------------------------------------------------------------------------------------
19a8 19bc | | .CONST 0x19bc ; Address of begin
19a9 19d6 | | .CONST 0x19d6 ; Address of exception handler
19aa 0006 | | .CONST 0x0006 ; Number of locals
19ab INIT_19a8:
19ab e022 | " | Load 0x0,0x22
19ac 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
19ad 02c7 | | Declare_Variable Any
19ae e5fe | | Load 0x2,-0x2
19af e009 | | Load 0x0,0x9
19b0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
19b1 e021 | ! | Load 0x0,0x21
19b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
19b3 a402 | | Store_Unchecked 0x2,0x2
19b4 029f 1f7b | {| Declare_Subprogram INIT_1f78,For_Call
19b6 029f 1f93 | | Declare_Subprogram INIT_1f90,For_Call
19b8 029f 1fdb | | Declare_Subprogram INIT_1fd8,For_Call
19ba 029f 1ff3 | | Declare_Subprogram INIT_1ff0,For_Call
19bc BODY_19a8:
19bc e5fe | | Load 0x2,-0x2
19bd e009 | | Load 0x0,0x9
19be 1887 | | Execute Package,Field_Execute,Field_Number 0x87
19bf 01db | | Execute Vector,Length
19c0 7001 |p | Jump_Nonzero 0x19c2
19c1 450a |E | Exit_Suprogram New_Top_Offset 0xa
19c2 8405 | | Call 0x2,0x5
19c3 e5f6 | | Load 0x2,-0xa
19c4 e5f7 | | Load 0x2,-0x9
19c5 e5f8 | | Load 0x2,-0x8
19c6 e5fc | | Load 0x2,-0x4
19c7 e5fd | | Load 0x2,-0x3
19c8 00ea | | Load_Encached Null_String_Cache
19c9 4800 |H | Short_Literal 0x0
19ca 8404 | | Call 0x2,0x4
19cb 4801 |H | Short_Literal 0x1
19cc 8404 | | Call 0x2,0x4
19cd e5fa | | Load 0x2,-0x6
19ce e5fe | | Load 0x2,-0x2
19cf e009 | | Load 0x0,0x9
19d0 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
19d1 e5fe | | Load 0x2,-0x2
19d2 8276 | v | Call 0x1,0x76
19d3 c5f6 | | Store 0x2,-0xa
19d4 8406 | | Call 0x2,0x6
19d5 450a |E | Exit_Suprogram New_Top_Offset 0xa
19d6 TRAP_19a8:
19d6 e009 | | Load 0x0,0x9
19d7 1bbc | | Execute Package,Field_Read,Field_Number 0xbc
19d8 010f | | Execute Exception,Equal
19d9 6824 |h$ | Jump_Zero 0x19fe
19da 4801 |H | Short_Literal 0x1
19db 4802 |H | Short_Literal 0x2
19dc e004 | | Load 0x0,0x4
19dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
19de 035b | [ | Declare_Type Array,Constrained
19df 0337 | 7 | Declare_Variable Array
19e0 0092 2074 | t| Action Push_String_Extended,0x2074 ; "Link"
19e2 e004 | | Load 0x0,0x4
19e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
19e4 e004 | | Load 0x0,0x4
19e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
19e6 0119 | | Execute Any,Check_In_Formal_Type
19e7 4801 |H | Short_Literal 0x1
19e8 00da | | Load_Top At_Offset_2
19e9 01d6 | | Execute Vector,Field_Write
19ea e5fe | | Load 0x2,-0x2
19eb e009 | | Load 0x0,0x9
19ec 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
19ed e006 | | Load 0x0,0x6
19ee 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
19ef e004 | | Load 0x0,0x4
19f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
19f1 0119 | | Execute Any,Check_In_Formal_Type
19f2 4802 |H | Short_Literal 0x2
19f3 00da | | Load_Top At_Offset_2
19f4 01d6 | | Execute Vector,Field_Write
19f5 67a2 |g | Indirect_Literal Discrete,0x1998,{0x00000000, 0x0000818c}
19f6 e005 | | Load 0x0,0x5
19f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
19f8 a5f6 | | Store_Unchecked 0x2,-0xa
19f9 e5f7 | | Load 0x2,-0x9
19fa e5f6 | | Load 0x2,-0xa
19fb e005 | | Load 0x0,0x5
19fc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
19fd 450a |E | Exit_Suprogram New_Top_Offset 0xa
19fe 0100 | | Execute Exception,Raise
19ff 0000 | | .XXX[0x1]
1a00 ; --------------------------------------------------------------------------------------
1a00 ; SUBPROGRAM
1a00 ; --------------------------------------------------------------------------------------
1a00 1a08 | | .CONST 0x1a08 ; Address of begin
1a01 1a14 | | .CONST 0x1a14 ; Address of exception handler
1a02 0002 | | .CONST 0x0002 ; Number of locals
1a03 INIT_1a00:
1a03 e002 | | Load 0x0,0x2
1a04 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a05 02c7 | | Declare_Variable Any
1a06 00d8 | | Load_Top At_Offset_0
1a07 1c00 | | Execute_Immediate Run_Utility,0x0
1a08 BODY_1a00:
1a08 e5fe | | Load 0x2,-0x2
1a09 4800 |H | Short_Literal 0x0
1a0a e5ff | | Load 0x2,-0x1
1a0b e006 | | Load 0x0,0x6
1a0c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1a0d c402 | | Store 0x2,0x2
1a0e e5fe | | Load 0x2,-0x2
1a0f 4800 |H | Short_Literal 0x0
1a10 00da | | Load_Top At_Offset_2
1a11 e006 | | Load 0x0,0x6
1a12 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
1a13 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1a14 TRAP_1a00:
1a14 0007 | | Action Break_Optional
1a15 e002 | | Load 0x0,0x2
1a16 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1a17 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1a18 ; --------------------------------------------------------------------------------------
1a18 ; SUBPROGRAM
1a18 ; --------------------------------------------------------------------------------------
1a18 1a29 | ) | .CONST 0x1a29 ; Address of begin
1a19 0004 | | .CONST 0x0004 ; Address of exception handler
1a1a 0003 | | .CONST 0x0003 ; Number of locals
1a1b INIT_1a18:
1a1b e5ff | | Load 0x2,-0x1
1a1c 0227 | ' | Execute Access,All_Reference
1a1d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1a1e e402 | | Load 0x2,0x2
1a1f e001 | | Load 0x0,0x1
1a20 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
1a21 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1a22 00d8 | | Load_Top At_Offset_0
1a23 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1a24 e003 | | Load 0x0,0x3
1a25 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1a26 1c08 | | Execute_Immediate Run_Utility,0x8
1a27 00d8 | | Load_Top At_Offset_0
1a28 1c00 | | Execute_Immediate Run_Utility,0x0
1a29 BODY_1a18:
1a29 4800 |H | Short_Literal 0x0
1a2a 00da | | Load_Top At_Offset_2
1a2b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1a2c e005 | | Load 0x0,0x5
1a2d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1a2e 7007 |p | Jump_Nonzero 0x1a36
1a2f 00d9 | | Load_Top At_Offset_1
1a30 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1a31 e404 | | Load 0x2,0x4
1a32 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1a33 e404 | | Load 0x2,0x4
1a34 00cb | | Action Pop_Block_With_Result
1a35 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1a36 4800 |H | Short_Literal 0x0
1a37 00d9 | | Load_Top At_Offset_1
1a38 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1a39 00cf | | Action Mark_Auxiliary
1a3a 00d9 | | Load_Top At_Offset_1
1a3b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1a3c 4801 |H | Short_Literal 0x1
1a3d 0263 | c | Execute Discrete,Above_Bound
1a3e 7068 |ph | Jump_Nonzero 0x1aa7
1a3f e404 | | Load 0x2,0x4
1a40 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1a41 e403 | | Load 0x2,0x3
1a42 0120 | | Execute Any,Is_Value
1a43 6803 |h | Jump_Zero 0x1a47
1a44 e002 | | Load 0x0,0x2
1a45 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a46 7801 |x | Jump 0x1a48
1a47 e403 | | Load 0x2,0x3
1a48 00da | | Load_Top At_Offset_2
1a49 e602 | | Load 0x3,0x2
1a4a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1a4b 01d7 | | Execute Vector,Field_Read
1a4c e001 | | Load 0x0,0x1
1a4d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1a4e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1a4f c403 | | Store 0x2,0x3
1a50 e404 | | Load 0x2,0x4
1a51 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1a52 00d8 | | Load_Top At_Offset_0
1a53 e602 | | Load 0x3,0x2
1a54 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1a55 01d7 | | Execute Vector,Field_Read
1a56 e001 | | Load 0x0,0x1
1a57 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1a58 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1a59 7046 |pF | Jump_Nonzero 0x1aa0
1a5a e5fc | | Load 0x2,-0x4
1a5b 4801 |H | Short_Literal 0x1
1a5c 4802 |H | Short_Literal 0x2
1a5d e004 | | Load 0x0,0x4
1a5e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a5f 035b | [ | Declare_Type Array,Constrained
1a60 0337 | 7 | Declare_Variable Array
1a61 00da | | Load_Top At_Offset_2
1a62 e602 | | Load 0x3,0x2
1a63 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1a64 01d7 | | Execute Vector,Field_Read
1a65 e001 | | Load 0x0,0x1
1a66 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1a67 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1a68 e004 | | Load 0x0,0x4
1a69 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1a6a 0119 | | Execute Any,Check_In_Formal_Type
1a6b 4801 |H | Short_Literal 0x1
1a6c 00da | | Load_Top At_Offset_2
1a6d 01d6 | | Execute Vector,Field_Write
1a6e e5ff | | Load 0x2,-0x1
1a6f 0227 | ' | Execute Access,All_Reference
1a70 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1a71 e001 | | Load 0x0,0x1
1a72 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1a73 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1a74 e004 | | Load 0x0,0x4
1a75 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1a76 0119 | | Execute Any,Check_In_Formal_Type
1a77 4802 |H | Short_Literal 0x2
1a78 00da | | Load_Top At_Offset_2
1a79 01d6 | | Execute Vector,Field_Write
1a7a 6035 |`5 | Indirect_Literal Discrete,0x1ab0,{0x00000000, 0x0000815a}
1a7b e005 | | Load 0x0,0x5
1a7c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1a7d 4801 |H | Short_Literal 0x1
1a7e 4802 |H | Short_Literal 0x2
1a7f e004 | | Load 0x0,0x4
1a80 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a81 035b | [ | Declare_Type Array,Constrained
1a82 0337 | 7 | Declare_Variable Array
1a83 e5ff | | Load 0x2,-0x1
1a84 0227 | ' | Execute Access,All_Reference
1a85 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1a86 e001 | | Load 0x0,0x1
1a87 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1a88 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1a89 e004 | | Load 0x0,0x4
1a8a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1a8b 0119 | | Execute Any,Check_In_Formal_Type
1a8c 4801 |H | Short_Literal 0x1
1a8d 00da | | Load_Top At_Offset_2
1a8e 01d6 | | Execute Vector,Field_Write
1a8f e5fe | | Load 0x2,-0x2
1a90 e006 | | Load 0x0,0x6
1a91 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1a92 e004 | | Load 0x0,0x4
1a93 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1a94 0119 | | Execute Any,Check_In_Formal_Type
1a95 4802 |H | Short_Literal 0x2
1a96 00da | | Load_Top At_Offset_2
1a97 01d6 | | Execute Vector,Field_Write
1a98 6013 |` | Indirect_Literal Discrete,0x1aac,{0x00000000, 0x0000810c}
1a99 e005 | | Load 0x0,0x5
1a9a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1a9b e404 | | Load 0x2,0x4
1a9c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1a9d e404 | | Load 0x2,0x4
1a9e 00cb | | Action Pop_Block_With_Result
1a9f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1aa0 e403 | | Load 0x2,0x3
1aa1 00d9 | | Load_Top At_Offset_1
1aa2 e603 | | Load 0x3,0x3
1aa3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1aa4 01d6 | | Execute Vector,Field_Write
1aa5 00c8 | | Action Pop_Auxiliary_Range
1aa6 3f98 |? | Loop_Increasing 0x1a3f
1aa7 00ce | | Action Pop_Auxiliary
1aa8 00d8 | | Load_Top At_Offset_0
1aa9 00cb | | Action Pop_Block_With_Result
1aaa 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1aab 0000 | | .XXX[0x1]
1aac 0000 0000 | | .LITERAL {0x00000000, 0x0000810c}
1ab0 0000 0000 | | .LITERAL {0x00000000, 0x0000815a}
1ab4 0000 0000 | | .BLANK 0000[0x4]
1ab8 ; --------------------------------------------------------------------------------------
1ab8 ; SUBPROGRAM
1ab8 ; --------------------------------------------------------------------------------------
1ab8 1add | | .CONST 0x1add ; Address of begin
1ab9 0004 | | .CONST 0x0004 ; Address of exception handler
1aba 0003 | | .CONST 0x0003 ; Number of locals
1abb INIT_1ab8:
1abb e001 | | Load 0x0,0x1
1abc 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
1abd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1abe 0337 | 7 | Declare_Variable Array
1abf 4800 |H | Short_Literal 0x0
1ac0 4804 |H | Short_Literal 0x4
1ac1 00da | | Load_Top At_Offset_2
1ac2 01d6 | | Execute Vector,Field_Write
1ac3 4803 |H | Short_Literal 0x3
1ac4 4800 |H | Short_Literal 0x0
1ac5 4801 |H | Short_Literal 0x1
1ac6 00d9 | | Load_Top At_Offset_1
1ac7 e602 | | Load 0x3,0x2
1ac8 01d6 | | Execute Vector,Field_Write
1ac9 3ffb |? | Loop_Increasing 0x1ac5
1aca 4801 |H | Short_Literal 0x1
1acb 4805 |H | Short_Literal 0x5
1acc 00da | | Load_Top At_Offset_2
1acd 01d6 | | Execute Vector,Field_Write
1ace e001 | | Load 0x0,0x1
1acf 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
1ad0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1ad1 01c3 | | Execute Vector,Check_In_Type
1ad2 e402 | | Load 0x2,0x2
1ad3 e001 | | Load 0x0,0x1
1ad4 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
1ad5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1ad6 00d8 | | Load_Top At_Offset_0
1ad7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1ad8 e003 | | Load 0x0,0x3
1ad9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1ada 1c08 | | Execute_Immediate Run_Utility,0x8
1adb 00d8 | | Load_Top At_Offset_0
1adc 1c00 | | Execute_Immediate Run_Utility,0x0
1add BODY_1ab8:
1add 4800 |H | Short_Literal 0x0
1ade 00da | | Load_Top At_Offset_2
1adf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1ae0 e005 | | Load 0x0,0x5
1ae1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1ae2 7007 |p | Jump_Nonzero 0x1aea
1ae3 00d9 | | Load_Top At_Offset_1
1ae4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1ae5 e404 | | Load 0x2,0x4
1ae6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1ae7 e404 | | Load 0x2,0x4
1ae8 00cb | | Action Pop_Block_With_Result
1ae9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1aea 4800 |H | Short_Literal 0x0
1aeb 00d9 | | Load_Top At_Offset_1
1aec 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1aed 00cf | | Action Mark_Auxiliary
1aee 00d9 | | Load_Top At_Offset_1
1aef 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1af0 4801 |H | Short_Literal 0x1
1af1 0263 | c | Execute Discrete,Above_Bound
1af2 7039 |p9 | Jump_Nonzero 0x1b2c
1af3 00d8 | | Load_Top At_Offset_0
1af4 e602 | | Load 0x3,0x2
1af5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1af6 01d7 | | Execute Vector,Field_Read
1af7 e001 | | Load 0x0,0x1
1af8 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
1af9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1afa c403 | | Store 0x2,0x3
1afb e403 | | Load 0x2,0x3
1afc e002 | | Load 0x0,0x2
1afd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1afe 6826 |h& | Jump_Zero 0x1b25
1aff e5fc | | Load 0x2,-0x4
1b00 4801 |H | Short_Literal 0x1
1b01 4802 |H | Short_Literal 0x2
1b02 e004 | | Load 0x0,0x4
1b03 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1b04 035b | [ | Declare_Type Array,Constrained
1b05 0337 | 7 | Declare_Variable Array
1b06 e403 | | Load 0x2,0x3
1b07 e006 | | Load 0x0,0x6
1b08 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1b09 e004 | | Load 0x0,0x4
1b0a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b0b 0119 | | Execute Any,Check_In_Formal_Type
1b0c 4801 |H | Short_Literal 0x1
1b0d 00da | | Load_Top At_Offset_2
1b0e 01d6 | | Execute Vector,Field_Write
1b0f e5ff | | Load 0x2,-0x1
1b10 0227 | ' | Execute Access,All_Reference
1b11 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1b12 e001 | | Load 0x0,0x1
1b13 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1b14 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1b15 e004 | | Load 0x0,0x4
1b16 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1b17 0119 | | Execute Any,Check_In_Formal_Type
1b18 4802 |H | Short_Literal 0x2
1b19 00da | | Load_Top At_Offset_2
1b1a 01d6 | | Execute Vector,Field_Write
1b1b 6794 |g | Indirect_Literal Discrete,0x1ab0,{0x00000000, 0x0000815a}
1b1c e005 | | Load 0x0,0x5
1b1d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1b1e e002 | | Load 0x0,0x2
1b1f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1b20 00d9 | | Load_Top At_Offset_1
1b21 e603 | | Load 0x3,0x3
1b22 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b23 01d6 | | Execute Vector,Field_Write
1b24 7805 |x | Jump 0x1b2a
1b25 e403 | | Load 0x2,0x3
1b26 00d9 | | Load_Top At_Offset_1
1b27 e603 | | Load 0x3,0x3
1b28 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1b29 01d6 | | Execute Vector,Field_Write
1b2a 00c8 | | Action Pop_Auxiliary_Range
1b2b 3fc7 |? | Loop_Increasing 0x1af3
1b2c 00ce | | Action Pop_Auxiliary
1b2d 00d8 | | Load_Top At_Offset_0
1b2e 00cb | | Action Pop_Block_With_Result
1b2f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1b30 ; --------------------------------------------------------------------------------------
1b30 ; SUBPROGRAM
1b30 ; --------------------------------------------------------------------------------------
1b30 1b33 | 3 | .CONST 0x1b33 ; Address of begin
1b31 0004 | | .CONST 0x0004 ; Address of exception handler
1b32 0001 | | .CONST 0x0001 ; Number of locals
1b33 BODY_1b30:
1b33 INIT_1b30:
1b33 e5fd | | Load 0x2,-0x3
1b34 01db | | Execute Vector,Length
1b35 7012 |p | Jump_Nonzero 0x1b48
1b36 4801 |H | Short_Literal 0x1
1b37 0092 20b2 | | Action Push_String_Extended,0x20b2 ; "Rs6000_Aix_Ibm"
1b39 e5fb | | Load 0x2,-0x5
1b3a e009 | | Load 0x0,0x9
1b3b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1b3c e023 | # | Load 0x0,0x23
1b3d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1b3e e00c | | Load 0x0,0xc
1b3f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1b40 6805 |h | Jump_Zero 0x1b46
1b41 e40f | | Load 0x2,0xf
1b42 0092 20b3 | | Action Push_String_Extended,0x20b3 ; ".exe"
1b44 01cc | | Execute Vector,Catenate
1b45 00ca | | Action Exit_Nullary_Function
1b46 00ea | | Load_Encached Null_String_Cache
1b47 00ca | | Action Exit_Nullary_Function
1b48 e5fd | | Load 0x2,-0x3
1b49 0335 | 5 | Declare_Variable Array,Duplicate
1b4a 00cd | | Action Spare6_Action
1b4b 00ca | | Action Exit_Nullary_Function
1b4c 0000 0000 | | .BLANK 0000[0x4]
1b50 ; --------------------------------------------------------------------------------------
1b50 ; SUBPROGRAM
1b50 ; --------------------------------------------------------------------------------------
1b50 1b65 | e | .CONST 0x1b65 ; Address of begin
1b51 0004 | | .CONST 0x0004 ; Address of exception handler
1b52 0004 | | .CONST 0x0004 ; Number of locals
1b53 INIT_1b50:
1b53 e005 | | Load 0x0,0x5
1b54 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1b55 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1b56 e001 | | Load 0x0,0x1
1b57 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1b58 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1b59 02c7 | | Declare_Variable Any
1b5a 00d8 | | Load_Top At_Offset_0
1b5b 1c00 | | Execute_Immediate Run_Utility,0x0
1b5c e002 | | Load 0x0,0x2
1b5d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1b5e 02c7 | | Declare_Variable Any
1b5f e5fa | | Load 0x2,-0x6
1b60 4800 |H | Short_Literal 0x0
1b61 e5fe | | Load 0x2,-0x2
1b62 e006 | | Load 0x0,0x6
1b63 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1b64 a604 | | Store_Unchecked 0x3,0x4
1b65 BODY_1b50:
1b65 e40d | | Load 0x2,0xd
1b66 7012 |p | Jump_Nonzero 0x1b79
1b67 e407 | | Load 0x2,0x7
1b68 e008 | | Load 0x0,0x8
1b69 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1b6a e5fa | | Load 0x2,-0x6
1b6b e40e | | Load 0x2,0xe
1b6c e5fb | | Load 0x2,-0x5
1b6d e413 | | Load 0x2,0x13
1b6e 8275 | u | Call 0x1,0x75
1b6f c40a | | Store 0x2,0xa
1b70 c407 | | Store 0x2,0x7
1b71 4800 |H | Short_Literal 0x0
1b72 e407 | | Load 0x2,0x7
1b73 e005 | | Load 0x0,0x5
1b74 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1b75 7003 |p | Jump_Nonzero 0x1b79
1b76 e00b | | Load 0x0,0xb
1b77 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1b78 0257 | W | Execute Discrete,Raise
1b79 e407 | | Load 0x2,0x7
1b7a e5fa | | Load 0x2,-0x6
1b7b e40d | | Load 0x2,0xd
1b7c e412 | | Load 0x2,0x12
1b7d e411 | | Load 0x2,0x11
1b7e e40c | | Load 0x2,0xc
1b7f e40a | | Load 0x2,0xa
1b80 e5fb | | Load 0x2,-0x5
1b81 8277 | w | Call 0x1,0x77
1b82 c407 | | Store 0x2,0x7
1b83 4800 |H | Short_Literal 0x0
1b84 e407 | | Load 0x2,0x7
1b85 e005 | | Load 0x0,0x5
1b86 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1b87 7003 |p | Jump_Nonzero 0x1b8b
1b88 e00b | | Load 0x0,0xb
1b89 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1b8a 0257 | W | Execute Discrete,Raise
1b8b e407 | | Load 0x2,0x7
1b8c e5fa | | Load 0x2,-0x6
1b8d e40d | | Load 0x2,0xd
1b8e e412 | | Load 0x2,0x12
1b8f e411 | | Load 0x2,0x11
1b90 e40c | | Load 0x2,0xc
1b91 e40a | | Load 0x2,0xa
1b92 e5fb | | Load 0x2,-0x5
1b93 8278 | x | Call 0x1,0x78
1b94 c407 | | Store 0x2,0x7
1b95 4800 |H | Short_Literal 0x0
1b96 e407 | | Load 0x2,0x7
1b97 e005 | | Load 0x0,0x5
1b98 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1b99 7003 |p | Jump_Nonzero 0x1b9d
1b9a e00b | | Load 0x0,0xb
1b9b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1b9c 0257 | W | Execute Discrete,Raise
1b9d e407 | | Load 0x2,0x7
1b9e e5fa | | Load 0x2,-0x6
1b9f e40d | | Load 0x2,0xd
1ba0 8414 | | Call 0x2,0x14
1ba1 e40f | | Load 0x2,0xf
1ba2 e5fe | | Load 0x2,-0x2
1ba3 e40c | | Load 0x2,0xc
1ba4 e40a | | Load 0x2,0xa
1ba5 e5fb | | Load 0x2,-0x5
1ba6 e5ff | | Load 0x2,-0x1
1ba7 827a | z | Call 0x1,0x7a
1ba8 c407 | | Store 0x2,0x7
1ba9 4800 |H | Short_Literal 0x0
1baa e407 | | Load 0x2,0x7
1bab e005 | | Load 0x0,0x5
1bac 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1bad 7003 |p | Jump_Nonzero 0x1bb1
1bae e00b | | Load 0x0,0xb
1baf 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1bb0 0257 | W | Execute Discrete,Raise
1bb1 e407 | | Load 0x2,0x7
1bb2 e40a | | Load 0x2,0xa
1bb3 e5fa | | Load 0x2,-0x6
1bb4 e40c | | Load 0x2,0xc
1bb5 8414 | | Call 0x2,0x14
1bb6 e412 | | Load 0x2,0x12
1bb7 e413 | | Load 0x2,0x13
1bb8 e411 | | Load 0x2,0x11
1bb9 e5fb | | Load 0x2,-0x5
1bba e009 | | Load 0x0,0x9
1bbb 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1bbc e402 | | Load 0x2,0x2
1bbd e001 | | Load 0x0,0x1
1bbe 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1bbf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1bc0 e5fb | | Load 0x2,-0x5
1bc1 e009 | | Load 0x0,0x9
1bc2 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
1bc3 e5fe | | Load 0x2,-0x2
1bc4 0092 2074 | t| Action Push_String_Extended,0x2074 ; "Link"
1bc6 e009 | | Load 0x0,0x9
1bc7 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
1bc8 e407 | | Load 0x2,0x7
1bc9 e009 | | Load 0x0,0x9
1bca 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
1bcb e5fb | | Load 0x2,-0x5
1bcc e009 | | Load 0x0,0x9
1bcd 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1bce e013 | | Load 0x0,0x13
1bcf 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
1bd0 c40a | | Store 0x2,0xa
1bd1 c407 | | Store 0x2,0x7
1bd2 e40d | | Load 0x2,0xd
1bd3 6801 |h | Jump_Zero 0x1bd5
1bd4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1bd5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1bd6 0000 0000 | | .XXX[0x2]
1bd8 ; --------------------------------------------------------------------------------------
1bd8 ; SUBPROGRAM
1bd8 ; --------------------------------------------------------------------------------------
1bd8 1be5 | | .CONST 0x1be5 ; Address of begin
1bd9 0004 | | .CONST 0x0004 ; Address of exception handler
1bda 0003 | | .CONST 0x0003 ; Number of locals
1bdb INIT_1bd8:
1bdb 4801 |H | Short_Literal 0x1
1bdc e5ff | | Load 0x2,-0x1
1bdd 0227 | ' | Execute Access,All_Reference
1bde 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1bdf e402 | | Load 0x2,0x2
1be0 e001 | | Load 0x0,0x1
1be1 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
1be2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
1be3 e002 | | Load 0x0,0x2
1be4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1be5 BODY_1bd8:
1be5 4800 |H | Short_Literal 0x0
1be6 00da | | Load_Top At_Offset_2
1be7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1be8 e005 | | Load 0x0,0x5
1be9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1bea 7006 |p | Jump_Nonzero 0x1bf1
1beb 00d9 | | Load_Top At_Offset_1
1bec 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1bed a5f9 | | Store_Unchecked 0x2,-0x7
1bee e00b | | Load 0x0,0xb
1bef 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1bf0 0257 | W | Execute Discrete,Raise
1bf1 00cf | | Action Mark_Auxiliary
1bf2 00da | | Load_Top At_Offset_2
1bf3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1bf4 01dc | | Execute Vector,Last
1bf5 4801 |H | Short_Literal 0x1
1bf6 0263 | c | Execute Discrete,Above_Bound
1bf7 70f9 |p | Jump_Nonzero 0x1cf1
1bf8 e407 | | Load 0x2,0x7
1bf9 e404 | | Load 0x2,0x4
1bfa 0120 | | Execute Any,Is_Value
1bfb 6803 |h | Jump_Zero 0x1bff
1bfc e002 | | Load 0x0,0x2
1bfd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1bfe 7801 |x | Jump 0x1c00
1bff e404 | | Load 0x2,0x4
1c00 00da | | Load_Top At_Offset_2
1c01 e602 | | Load 0x3,0x2
1c02 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1c03 01d7 | | Execute Vector,Field_Read
1c04 e001 | | Load 0x0,0x1
1c05 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1c06 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1c07 c404 | | Store 0x2,0x4
1c08 c407 | | Store 0x2,0x7
1c09 4800 |H | Short_Literal 0x0
1c0a e407 | | Load 0x2,0x7
1c0b e005 | | Load 0x0,0x5
1c0c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1c0d 7005 |p | Jump_Nonzero 0x1c13
1c0e e407 | | Load 0x2,0x7
1c0f a5f9 | | Store_Unchecked 0x2,-0x7
1c10 e00b | | Load 0x0,0xb
1c11 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1c12 0257 | W | Execute Discrete,Raise
1c13 00d8 | | Load_Top At_Offset_0
1c14 e602 | | Load 0x3,0x2
1c15 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1c16 01d7 | | Execute Vector,Field_Read
1c17 e001 | | Load 0x0,0x1
1c18 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1c19 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1c1a 7041 |pA | Jump_Nonzero 0x1c5c
1c1b e5fa | | Load 0x2,-0x6
1c1c 4801 |H | Short_Literal 0x1
1c1d 4802 |H | Short_Literal 0x2
1c1e e004 | | Load 0x0,0x4
1c1f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1c20 035b | [ | Declare_Type Array,Constrained
1c21 0337 | 7 | Declare_Variable Array
1c22 00da | | Load_Top At_Offset_2
1c23 e602 | | Load 0x3,0x2
1c24 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1c25 01d7 | | Execute Vector,Field_Read
1c26 e001 | | Load 0x0,0x1
1c27 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1c28 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1c29 e004 | | Load 0x0,0x4
1c2a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c2b 0119 | | Execute Any,Check_In_Formal_Type
1c2c 4801 |H | Short_Literal 0x1
1c2d 00da | | Load_Top At_Offset_2
1c2e 01d6 | | Execute Vector,Field_Write
1c2f e5ff | | Load 0x2,-0x1
1c30 0227 | ' | Execute Access,All_Reference
1c31 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1c32 e001 | | Load 0x0,0x1
1c33 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1c34 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1c35 e004 | | Load 0x0,0x4
1c36 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c37 0119 | | Execute Any,Check_In_Formal_Type
1c38 4802 |H | Short_Literal 0x2
1c39 00da | | Load_Top At_Offset_2
1c3a 01d6 | | Execute Vector,Field_Write
1c3b 60d0 |` | Indirect_Literal Discrete,0x1d0c,{0x00000000, 0x0000815a}
1c3c e005 | | Load 0x0,0x5
1c3d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1c3e 4801 |H | Short_Literal 0x1
1c3f 4802 |H | Short_Literal 0x2
1c40 e004 | | Load 0x0,0x4
1c41 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1c42 035b | [ | Declare_Type Array,Constrained
1c43 0337 | 7 | Declare_Variable Array
1c44 e004 | | Load 0x0,0x4
1c45 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
1c46 e004 | | Load 0x0,0x4
1c47 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c48 0119 | | Execute Any,Check_In_Formal_Type
1c49 4801 |H | Short_Literal 0x1
1c4a 00da | | Load_Top At_Offset_2
1c4b 01d6 | | Execute Vector,Field_Write
1c4c e5fe | | Load 0x2,-0x2
1c4d e006 | | Load 0x0,0x6
1c4e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1c4f e004 | | Load 0x0,0x4
1c50 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c51 0119 | | Execute Any,Check_In_Formal_Type
1c52 4802 |H | Short_Literal 0x2
1c53 00da | | Load_Top At_Offset_2
1c54 01d6 | | Execute Vector,Field_Write
1c55 60b2 |` | Indirect_Literal Discrete,0x1d08,{0x00000000, 0x00008126}
1c56 e005 | | Load 0x0,0x5
1c57 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1c58 a5f9 | | Store_Unchecked 0x2,-0x7
1c59 e00b | | Load 0x0,0xb
1c5a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1c5b 0257 | W | Execute Discrete,Raise
1c5c e002 | | Load 0x0,0x2
1c5d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1c5e e405 | | Load 0x2,0x5
1c5f 60a4 |` | Indirect_Literal Discrete,0x1d04,{0x00000000, 0x00004000}
1c60 e010 | | Load 0x0,0x10
1c61 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c62 4800 |H | Short_Literal 0x0
1c63 e404 | | Load 0x2,0x4
1c64 e002 | | Load 0x0,0x2
1c65 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
1c66 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1c67 00d1 | | Pop_Control Pop_Count_1
1c68 c603 | | Store 0x3,0x3
1c69 00db | | Load_Top At_Offset_3
1c6a 682f |h/ | Jump_Zero 0x1c9a
1c6b e5fa | | Load 0x2,-0x6
1c6c 4801 |H | Short_Literal 0x1
1c6d 4803 |H | Short_Literal 0x3
1c6e e004 | | Load 0x0,0x4
1c6f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1c70 035b | [ | Declare_Type Array,Constrained
1c71 0337 | 7 | Declare_Variable Array
1c72 00da | | Load_Top At_Offset_2
1c73 e602 | | Load 0x3,0x2
1c74 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1c75 01d7 | | Execute Vector,Field_Read
1c76 e001 | | Load 0x0,0x1
1c77 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1c78 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1c79 e004 | | Load 0x0,0x4
1c7a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1c7b e004 | | Load 0x0,0x4
1c7c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c7d 0119 | | Execute Any,Check_In_Formal_Type
1c7e 4801 |H | Short_Literal 0x1
1c7f 00da | | Load_Top At_Offset_2
1c80 01d6 | | Execute Vector,Field_Write
1c81 e5ff | | Load 0x2,-0x1
1c82 0227 | ' | Execute Access,All_Reference
1c83 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1c84 e001 | | Load 0x0,0x1
1c85 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1c86 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1c87 e004 | | Load 0x0,0x4
1c88 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c89 0119 | | Execute Any,Check_In_Formal_Type
1c8a 4802 |H | Short_Literal 0x2
1c8b 00da | | Load_Top At_Offset_2
1c8c 01d6 | | Execute Vector,Field_Write
1c8d e603 | | Load 0x3,0x3
1c8e e004 | | Load 0x0,0x4
1c8f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1c90 e004 | | Load 0x0,0x4
1c91 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1c92 0119 | | Execute Any,Check_In_Formal_Type
1c93 4803 |H | Short_Literal 0x3
1c94 00da | | Load_Top At_Offset_2
1c95 01d6 | | Execute Vector,Field_Write
1c96 6069 |`i | Indirect_Literal Discrete,0x1d00,{0x00000000, 0x00008158}
1c97 e005 | | Load 0x0,0x5
1c98 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1c99 7855 |xU | Jump 0x1cef
1c9a e002 | | Load 0x0,0x2
1c9b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1c9c e002 | | Load 0x0,0x2
1c9d 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
1c9e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1c9f 6064 |`d | Indirect_Literal Discrete,0x1d04,{0x00000000, 0x00004000}
1ca0 e010 | | Load 0x0,0x10
1ca1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1ca2 e405 | | Load 0x2,0x5
1ca3 e002 | | Load 0x0,0x2
1ca4 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
1ca5 180e | | Execute Package,Field_Execute,Field_Number 0xe
1ca6 c403 | | Store 0x2,0x3
1ca7 c603 | | Store 0x3,0x3
1ca8 00db | | Load_Top At_Offset_3
1ca9 6823 |h# | Jump_Zero 0x1ccd
1caa e5fa | | Load 0x2,-0x6
1cab 4801 |H | Short_Literal 0x1
1cac 4802 |H | Short_Literal 0x2
1cad e004 | | Load 0x0,0x4
1cae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1caf 035b | [ | Declare_Type Array,Constrained
1cb0 0337 | 7 | Declare_Variable Array
1cb1 00da | | Load_Top At_Offset_2
1cb2 e602 | | Load 0x3,0x2
1cb3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1cb4 01d7 | | Execute Vector,Field_Read
1cb5 e001 | | Load 0x0,0x1
1cb6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1cb7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1cb8 e004 | | Load 0x0,0x4
1cb9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1cba e004 | | Load 0x0,0x4
1cbb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1cbc 0119 | | Execute Any,Check_In_Formal_Type
1cbd 4801 |H | Short_Literal 0x1
1cbe 00da | | Load_Top At_Offset_2
1cbf 01d6 | | Execute Vector,Field_Write
1cc0 e603 | | Load 0x3,0x3
1cc1 e004 | | Load 0x0,0x4
1cc2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1cc3 e004 | | Load 0x0,0x4
1cc4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1cc5 0119 | | Execute Any,Check_In_Formal_Type
1cc6 4802 |H | Short_Literal 0x2
1cc7 00da | | Load_Top At_Offset_2
1cc8 01d6 | | Execute Vector,Field_Write
1cc9 6032 |`2 | Indirect_Literal Discrete,0x1cfc,{0x00000000, 0x00008157}
1cca e005 | | Load 0x0,0x5
1ccb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1ccc 7822 |x" | Jump 0x1cef
1ccd e403 | | Load 0x2,0x3
1cce 0e04 | | Execute_Immediate Not_Equal,0x4
1ccf 681f |h | Jump_Zero 0x1cef
1cd0 e406 | | Load 0x2,0x6
1cd1 0a01 | | Execute_Immediate Plus,0x1
1cd2 c406 | | Store 0x2,0x6
1cd3 e5fa | | Load 0x2,-0x6
1cd4 4801 |H | Short_Literal 0x1
1cd5 4802 |H | Short_Literal 0x2
1cd6 e004 | | Load 0x0,0x4
1cd7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1cd8 035b | [ | Declare_Type Array,Constrained
1cd9 0337 | 7 | Declare_Variable Array
1cda e404 | | Load 0x2,0x4
1cdb e006 | | Load 0x0,0x6
1cdc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1cdd e004 | | Load 0x0,0x4
1cde 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1cdf 0119 | | Execute Any,Check_In_Formal_Type
1ce0 4801 |H | Short_Literal 0x1
1ce1 00da | | Load_Top At_Offset_2
1ce2 01d6 | | Execute Vector,Field_Write
1ce3 e5fe | | Load 0x2,-0x2
1ce4 e006 | | Load 0x0,0x6
1ce5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1ce6 e004 | | Load 0x0,0x4
1ce7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1ce8 0119 | | Execute Any,Check_In_Formal_Type
1ce9 4802 |H | Short_Literal 0x2
1cea 00da | | Load_Top At_Offset_2
1ceb 01d6 | | Execute Vector,Field_Write
1cec 600b |` | Indirect_Literal Discrete,0x1cf8,{0x00000000, 0x00008127}
1ced e005 | | Load 0x0,0x5
1cee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1cef 00c8 | | Action Pop_Auxiliary_Range
1cf0 3f07 |? | Loop_Increasing 0x1bf8
1cf1 00ce | | Action Pop_Auxiliary
1cf2 e406 | | Load 0x2,0x6
1cf3 0f00 | | Execute_Immediate Equal,0x0
1cf4 00ca | | Action Exit_Nullary_Function
1cf5 0000 0000 | | .XXX[0x3]
1cf7 0000 | |
1cf8 0000 0000 | | .LITERAL {0x00000000, 0x00008127}
1cfc 0000 0000 | | .LITERAL {0x00000000, 0x00008157}
1d00 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
1d04 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1d08 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
1d0c 0000 0000 | | .LITERAL {0x00000000, 0x0000815a}
1d10 ; --------------------------------------------------------------------------------------
1d10 ; SUBPROGRAM
1d10 ; --------------------------------------------------------------------------------------
1d10 1d25 | % | .CONST 0x1d25 ; Address of begin
1d11 0004 | | .CONST 0x0004 ; Address of exception handler
1d12 0006 | | .CONST 0x0006 ; Number of locals
1d13 INIT_1d10:
1d13 e402 | | Load 0x2,0x2
1d14 e001 | | Load 0x0,0x1
1d15 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1d16 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
1d17 e001 | | Load 0x0,0x1
1d18 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1d19 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1d1a e402 | | Load 0x2,0x2
1d1b e001 | | Load 0x0,0x1
1d1c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1d1d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1d1e e014 | | Load 0x0,0x14
1d1f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1d20 e005 | | Load 0x0,0x5
1d21 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1d22 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1d23 029f 200b | | Declare_Subprogram INIT_2008,For_Call
1d25 BODY_1d10:
1d25 e5fa | | Load 0x2,-0x6
1d26 4801 |H | Short_Literal 0x1
1d27 4801 |H | Short_Literal 0x1
1d28 e004 | | Load 0x0,0x4
1d29 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1d2a 035b | [ | Declare_Type Array,Constrained
1d2b 0337 | 7 | Declare_Variable Array
1d2c e603 | | Load 0x3,0x3
1d2d e004 | | Load 0x0,0x4
1d2e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1d2f e004 | | Load 0x0,0x4
1d30 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1d31 0119 | | Execute Any,Check_In_Formal_Type
1d32 4801 |H | Short_Literal 0x1
1d33 00da | | Load_Top At_Offset_2
1d34 01d6 | | Execute Vector,Field_Write
1d35 6066 |`f | Indirect_Literal Discrete,0x1d9c,{0x00000000, 0x0000816b}
1d36 e005 | | Load 0x0,0x5
1d37 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1d38 e5ff | | Load 0x2,-0x1
1d39 0229 | ) | Execute Access,All_Read
1d3a 00d8 | | Load_Top At_Offset_0
1d3b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1d3c e001 | | Load 0x0,0x1
1d3d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1d3e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1d3f 00d9 | | Load_Top At_Offset_1
1d40 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1d41 00d1 | | Pop_Control Pop_Count_1
1d42 e014 | | Load 0x0,0x14
1d43 180e | | Execute Package,Field_Execute,Field_Number 0xe
1d44 e014 | | Load 0x0,0x14
1d45 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1d46 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
1d47 4803 |H | Short_Literal 0x3
1d48 e014 | | Load 0x0,0x14
1d49 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1d4a 8606 | | Call 0x3,0x6
1d4b 4800 |H | Short_Literal 0x0
1d4c 00da | | Load_Top At_Offset_2
1d4d e005 | | Load 0x0,0x5
1d4e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1d4f 7005 |p | Jump_Nonzero 0x1d55
1d50 e5fa | | Load 0x2,-0x6
1d51 00da | | Load_Top At_Offset_2
1d52 e005 | | Load 0x0,0x5
1d53 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1d54 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1d55 00da | | Load_Top At_Offset_2
1d56 e014 | | Load 0x0,0x14
1d57 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1d58 e5fa | | Load 0x2,-0x6
1d59 0092 20b4 | | Action Push_String_Extended,0x20b4 ; "Target_Builder.Unit.Link (in Make_Closure)"
1d5b e007 | | Load 0x0,0x7
1d5c 180e | | Execute Package,Field_Execute,Field_Number 0xe
1d5d e5ff | | Load 0x2,-0x1
1d5e 0229 | ) | Execute Access,All_Read
1d5f e7ff | | Load 0x3,-0x1
1d60 00d9 | | Load_Top At_Offset_1
1d61 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1d62 0120 | | Execute Any,Is_Value
1d63 6804 |h | Jump_Zero 0x1d68
1d64 e001 | | Load 0x0,0x1
1d65 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1d66 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1d67 7802 |x | Jump 0x1d6a
1d68 00d9 | | Load_Top At_Offset_1
1d69 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1d6a 4801 |H | Short_Literal 0x1
1d6b e5fb | | Load 0x2,-0x5
1d6c e009 | | Load 0x0,0x9
1d6d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
1d6e 4801 |H | Short_Literal 0x1
1d6f e602 | | Load 0x3,0x2
1d70 e001 | | Load 0x0,0x1
1d71 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1d72 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1d73 00da | | Load_Top At_Offset_2
1d74 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1d75 c7ff | | Store 0x3,-0x1
1d76 00d1 | | Pop_Control Pop_Count_1
1d77 4800 |H | Short_Literal 0x0
1d78 e7ff | | Load 0x3,-0x1
1d79 e005 | | Load 0x0,0x5
1d7a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1d7b 7001 |p | Jump_Nonzero 0x1d7d
1d7c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1d7d 4800 |H | Short_Literal 0x0
1d7e 4800 |H | Short_Literal 0x0
1d7f e603 | | Load 0x3,0x3
1d80 4801 |H | Short_Literal 0x1
1d81 e5ff | | Load 0x2,-0x1
1d82 0227 | ' | Execute Access,All_Reference
1d83 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1d84 e001 | | Load 0x0,0x1
1d85 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1d86 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1d87 e5ff | | Load 0x2,-0x1
1d88 0227 | ' | Execute Access,All_Reference
1d89 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1d8a e001 | | Load 0x0,0x1
1d8b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1d8c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
1d8d e5ff | | Load 0x2,-0x1
1d8e 0227 | ' | Execute Access,All_Reference
1d8f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1d90 e5fe | | Load 0x2,-0x2
1d91 e002 | | Load 0x0,0x2
1d92 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1d93 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1d94 e001 | | Load 0x0,0x1
1d95 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1d96 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1d97 c402 | | Store 0x2,0x2
1d98 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1d99 0000 0000 | | .XXX[0x3]
1d9b 0000 | |
1d9c 0000 0000 | | .LITERAL {0x00000000, 0x0000816b}
1da0 ; --------------------------------------------------------------------------------------
1da0 ; SUBPROGRAM
1da0 ; --------------------------------------------------------------------------------------
1da0 1db1 | | .CONST 0x1db1 ; Address of begin
1da1 0004 | | .CONST 0x0004 ; Address of exception handler
1da2 0003 | | .CONST 0x0003 ; Number of locals
1da3 INIT_1da0:
1da3 e002 | | Load 0x0,0x2
1da4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1da5 02c7 | | Declare_Variable Any
1da6 00d8 | | Load_Top At_Offset_0
1da7 1c00 | | Execute_Immediate Run_Utility,0x0
1da8 e418 | | Load 0x2,0x18
1da9 e5fd | | Load 0x2,-0x3
1daa e404 | | Load 0x2,0x4
1dab e407 | | Load 0x2,0x7
1dac e408 | | Load 0x2,0x8
1dad 826f | o | Call 0x1,0x6f
1dae e5fd | | Load 0x2,-0x3
1daf e009 | | Load 0x0,0x9
1db0 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
1db1 BODY_1da0:
1db1 e5fc | | Load 0x2,-0x4
1db2 0092 20b5 | | Action Push_String_Extended,0x20b5 ; "Transferring => "
1db4 e408 | | Load 0x2,0x8
1db5 e002 | | Load 0x0,0x2
1db6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1db7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1db8 01cc | | Execute Vector,Catenate
1db9 e007 | | Load 0x0,0x7
1dba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1dbb e404 | | Load 0x2,0x4
1dbc 6803 |h | Jump_Zero 0x1dc0
1dbd e409 | | Load 0x2,0x9
1dbe c602 | | Store 0x3,0x2
1dbf 7802 |x | Jump 0x1dc2
1dc0 e408 | | Load 0x2,0x8
1dc1 c602 | | Store 0x3,0x2
1dc2 e005 | | Load 0x0,0x5
1dc3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1dc4 4800 |H | Short_Literal 0x0
1dc5 e40e | | Load 0x2,0xe
1dc6 e00b | | Load 0x0,0xb
1dc7 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1dc8 e00b | | Load 0x0,0xb
1dc9 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1dca 4800 |H | Short_Literal 0x0
1dcb e40d | | Load 0x2,0xd
1dcc e603 | | Load 0x3,0x3
1dcd e602 | | Load 0x3,0x2
1dce e002 | | Load 0x0,0x2
1dcf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1dd0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1dd1 e008 | | Load 0x0,0x8
1dd2 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
1dd3 c40c | | Store 0x2,0xc
1dd4 4800 |H | Short_Literal 0x0
1dd5 e40c | | Load 0x2,0xc
1dd6 e005 | | Load 0x0,0x5
1dd7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1dd8 7009 |p | Jump_Nonzero 0x1de2
1dd9 e5fc | | Load 0x2,-0x4
1dda e40c | | Load 0x2,0xc
1ddb e005 | | Load 0x0,0x5
1ddc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1ddd e40c | | Load 0x2,0xc
1dde a5fb | | Store_Unchecked 0x2,-0x5
1ddf e00b | | Load 0x0,0xb
1de0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1de1 0257 | W | Execute Discrete,Raise
1de2 e5fc | | Load 0x2,-0x4
1de3 0092 20b6 | | Action Push_String_Extended,0x20b6 ; "Retrieving remote update time for host unit => "
1de5 e408 | | Load 0x2,0x8
1de6 e002 | | Load 0x0,0x2
1de7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1de8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1de9 01cc | | Execute Vector,Catenate
1dea e007 | | Load 0x0,0x7
1deb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1dec e00d | | Load 0x0,0xd
1ded 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1dee c413 | | Store 0x2,0x13
1def e404 | | Load 0x2,0x4
1df0 680b |h | Jump_Zero 0x1dfc
1df1 e40c | | Load 0x2,0xc
1df2 e5fc | | Load 0x2,-0x4
1df3 4800 |H | Short_Literal 0x0
1df4 e5fd | | Load 0x2,-0x3
1df5 e40d | | Load 0x2,0xd
1df6 4801 |H | Short_Literal 0x1
1df7 e408 | | Load 0x2,0x8
1df8 e418 | | Load 0x2,0x18
1df9 8272 | r | Call 0x1,0x72
1dfa c40c | | Store 0x2,0xc
1dfb 780c |x | Jump 0x1e08
1dfc e40c | | Load 0x2,0xc
1dfd e407 | | Load 0x2,0x7
1dfe e5fc | | Load 0x2,-0x4
1dff 4800 |H | Short_Literal 0x0
1e00 e5fd | | Load 0x2,-0x3
1e01 e40d | | Load 0x2,0xd
1e02 4801 |H | Short_Literal 0x1
1e03 e418 | | Load 0x2,0x18
1e04 e5ff | | Load 0x2,-0x1
1e05 8271 | q | Call 0x1,0x71
1e06 c407 | | Store 0x2,0x7
1e07 c40c | | Store 0x2,0xc
1e08 4800 |H | Short_Literal 0x0
1e09 e40c | | Load 0x2,0xc
1e0a e005 | | Load 0x0,0x5
1e0b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1e0c 7016 |p | Jump_Nonzero 0x1e23
1e0d e5fc | | Load 0x2,-0x4
1e0e 4801 |H | Short_Literal 0x1
1e0f 4801 |H | Short_Literal 0x1
1e10 e004 | | Load 0x0,0x4
1e11 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1e12 035b | [ | Declare_Type Array,Constrained
1e13 0337 | 7 | Declare_Variable Array
1e14 e408 | | Load 0x2,0x8
1e15 e006 | | Load 0x0,0x6
1e16 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1e17 e004 | | Load 0x0,0x4
1e18 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1e19 0119 | | Execute Any,Check_In_Formal_Type
1e1a 4801 |H | Short_Literal 0x1
1e1b 00da | | Load_Top At_Offset_2
1e1c 01d6 | | Execute Vector,Field_Write
1e1d 6016 |` | Indirect_Literal Discrete,0x1e34,{0x00000000, 0x0000815e}
1e1e e005 | | Load 0x0,0x5
1e1f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1e20 4800 |H | Short_Literal 0x0
1e21 a40c | | Store_Unchecked 0x2,0xc
1e22 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e23 e5fc | | Load 0x2,-0x4
1e24 0092 20b7 | | Action Push_String_Extended,0x20b7 ; "Elapsed time for setting download time => "
1e26 e413 | | Load 0x2,0x13
1e27 e00d | | Load 0x0,0xd
1e28 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1e29 e00d | | Load 0x0,0xd
1e2a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1e2b e024 | $ | Load 0x0,0x24
1e2c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1e2d 01cc | | Execute Vector,Catenate
1e2e 0092 20b8 | | Action Push_String_Extended,0x20b8 ; " seconds."
1e30 01cc | | Execute Vector,Catenate
1e31 e007 | | Load 0x0,0x7
1e32 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1e33 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1e34 0000 0000 | | .LITERAL {0x00000000, 0x0000815e}
1e38 ; --------------------------------------------------------------------------------------
1e38 ; SUBPROGRAM
1e38 ; --------------------------------------------------------------------------------------
1e38 1e51 | Q | .CONST 0x1e51 ; Address of begin
1e39 0004 | | .CONST 0x0004 ; Address of exception handler
1e3a 0006 | | .CONST 0x0006 ; Number of locals
1e3b INIT_1e38:
1e3b e005 | | Load 0x0,0x5
1e3c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1e3d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1e3e e001 | | Load 0x0,0x1
1e3f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
1e40 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1e41 02c7 | | Declare_Variable Any
1e42 00d8 | | Load_Top At_Offset_0
1e43 1c00 | | Execute_Immediate Run_Utility,0x0
1e44 e002 | | Load 0x0,0x2
1e45 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1e46 02c7 | | Declare_Variable Any
1e47 e5fc | | Load 0x2,-0x4
1e48 4800 |H | Short_Literal 0x0
1e49 e5fe | | Load 0x2,-0x2
1e4a e006 | | Load 0x0,0x6
1e4b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1e4c a604 | | Store_Unchecked 0x3,0x4
1e4d 00e1 | | Load_Encached Boolean_Cache
1e4e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1e4f 029f 2053 | S| Declare_Subprogram INIT_2050,For_Call
1e51 BODY_1e38:
1e51 e5fc | | Load 0x2,-0x4
1e52 0092 20b9 | | Action Push_String_Extended,0x20b9 ; "Promoting => "
1e54 e408 | | Load 0x2,0x8
1e55 e002 | | Load 0x0,0x2
1e56 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1e57 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1e58 01cc | | Execute Vector,Catenate
1e59 e007 | | Load 0x0,0x7
1e5a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1e5b e411 | | Load 0x2,0x11
1e5c e412 | | Load 0x2,0x12
1e5d 0279 | y | Execute Discrete,And
1e5e e411 | | Load 0x2,0x11
1e5f 0f00 | | Execute_Immediate Equal,0x0
1e60 0278 | x | Execute Discrete,Or
1e61 6802 |h | Jump_Zero 0x1e64
1e62 4801 |H | Short_Literal 0x1
1e63 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
1e64 e40f | | Load 0x2,0xf
1e65 0f00 | | Execute_Immediate Equal,0x0
1e66 00da | | Load_Top At_Offset_2
1e67 0279 | y | Execute Discrete,And
1e68 6812 |h | Jump_Zero 0x1e7b
1e69 e40c | | Load 0x2,0xc
1e6a e008 | | Load 0x0,0x8
1e6b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1e6c e5fc | | Load 0x2,-0x4
1e6d e410 | | Load 0x2,0x10
1e6e e5fd | | Load 0x2,-0x3
1e6f e417 | | Load 0x2,0x17
1e70 8275 | u | Call 0x1,0x75
1e71 c40d | | Store 0x2,0xd
1e72 c40c | | Store 0x2,0xc
1e73 4800 |H | Short_Literal 0x0
1e74 e40c | | Load 0x2,0xc
1e75 e005 | | Load 0x0,0x5
1e76 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1e77 7003 |p | Jump_Nonzero 0x1e7b
1e78 e00b | | Load 0x0,0xb
1e79 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1e7a 0257 | W | Execute Discrete,Raise
1e7b e411 | | Load 0x2,0x11
1e7c 7012 |p | Jump_Nonzero 0x1e8f
1e7d e40c | | Load 0x2,0xc
1e7e e5fc | | Load 0x2,-0x4
1e7f e40f | | Load 0x2,0xf
1e80 e416 | | Load 0x2,0x16
1e81 e418 | | Load 0x2,0x18
1e82 e40e | | Load 0x2,0xe
1e83 e40d | | Load 0x2,0xd
1e84 e5fd | | Load 0x2,-0x3
1e85 8277 | w | Call 0x1,0x77
1e86 c40c | | Store 0x2,0xc
1e87 4800 |H | Short_Literal 0x0
1e88 e40c | | Load 0x2,0xc
1e89 e005 | | Load 0x0,0x5
1e8a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1e8b 7003 |p | Jump_Nonzero 0x1e8f
1e8c e00b | | Load 0x0,0xb
1e8d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1e8e 0257 | W | Execute Discrete,Raise
1e8f 00d9 | | Load_Top At_Offset_1
1e90 e40f | | Load 0x2,0xf
1e91 0f00 | | Execute_Immediate Equal,0x0
1e92 0279 | y | Execute Discrete,And
1e93 6801 |h | Jump_Zero 0x1e95
1e94 8419 | | Call 0x2,0x19
1e95 e411 | | Load 0x2,0x11
1e96 7012 |p | Jump_Nonzero 0x1ea9
1e97 e40c | | Load 0x2,0xc
1e98 e5fc | | Load 0x2,-0x4
1e99 e40f | | Load 0x2,0xf
1e9a e416 | | Load 0x2,0x16
1e9b e418 | | Load 0x2,0x18
1e9c e40e | | Load 0x2,0xe
1e9d e40d | | Load 0x2,0xd
1e9e e5fd | | Load 0x2,-0x3
1e9f 8278 | x | Call 0x1,0x78
1ea0 c40c | | Store 0x2,0xc
1ea1 4800 |H | Short_Literal 0x0
1ea2 e40c | | Load 0x2,0xc
1ea3 e005 | | Load 0x0,0x5
1ea4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1ea5 7004 |p | Jump_Nonzero 0x1eaa
1ea6 e00b | | Load 0x0,0xb
1ea7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
1ea8 0257 | W | Execute Discrete,Raise
1ea9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1eaa e404 | | Load 0x2,0x4
1eab 6802 |h | Jump_Zero 0x1eae
1eac 8606 | | Call 0x3,0x6
1ead 7833 |x3 | Jump 0x1ee1
1eae e40c | | Load 0x2,0xc
1eaf e5fc | | Load 0x2,-0x4
1eb0 e40f | | Load 0x2,0xf
1eb1 4800 |H | Short_Literal 0x0
1eb2 00ea | | Load_Encached Null_String_Cache
1eb3 e5fd | | Load 0x2,-0x3
1eb4 e009 | | Load 0x0,0x9
1eb5 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1eb6 e407 | | Load 0x2,0x7
1eb7 e001 | | Load 0x0,0x1
1eb8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1eb9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1eba e40e | | Load 0x2,0xe
1ebb e40d | | Load 0x2,0xd
1ebc e002 | | Load 0x0,0x2
1ebd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1ebe e5fe | | Load 0x2,-0x2
1ebf e5fd | | Load 0x2,-0x3
1ec0 e5ff | | Load 0x2,-0x1
1ec1 8279 | y | Call 0x1,0x79
1ec2 c40c | | Store 0x2,0xc
1ec3 e602 | | Load 0x3,0x2
1ec4 e40d | | Load 0x2,0xd
1ec5 e5fc | | Load 0x2,-0x4
1ec6 e40e | | Load 0x2,0xe
1ec7 00ea | | Load_Encached Null_String_Cache
1ec8 e416 | | Load 0x2,0x16
1ec9 e417 | | Load 0x2,0x17
1eca e418 | | Load 0x2,0x18
1ecb e5fd | | Load 0x2,-0x3
1ecc e009 | | Load 0x0,0x9
1ecd 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1ece e407 | | Load 0x2,0x7
1ecf e001 | | Load 0x0,0x1
1ed0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1ed1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1ed2 e5fe | | Load 0x2,-0x2
1ed3 0092 20ba | | Action Push_String_Extended,0x20ba ; "Promote"
1ed5 e009 | | Load 0x0,0x9
1ed6 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8
1ed7 e40c | | Load 0x2,0xc
1ed8 e009 | | Load 0x0,0x9
1ed9 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
1eda e5fd | | Load 0x2,-0x3
1edb e009 | | Load 0x0,0x9
1edc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1edd e013 | | Load 0x0,0x13
1ede 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
1edf c40d | | Store 0x2,0xd
1ee0 c602 | | Store 0x3,0x2
1ee1 e40f | | Load 0x2,0xf
1ee2 6801 |h | Jump_Zero 0x1ee4
1ee3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1ee4 4800 |H | Short_Literal 0x0
1ee5 e602 | | Load 0x3,0x2
1ee6 e005 | | Load 0x0,0x5
1ee7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1ee8 7005 |p | Jump_Nonzero 0x1eee
1ee9 e014 | | Load 0x0,0x14
1eea 180e | | Execute Package,Field_Execute,Field_Number 0xe
1eeb e602 | | Load 0x3,0x2
1eec e005 | | Load 0x0,0x5
1eed 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
1eee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1eef 0000 | | .XXX[0x1]
1ef0 ; --------------------------------------------------------------------------------------
1ef0 ; SUBPROGRAM
1ef0 ; --------------------------------------------------------------------------------------
1ef0 1efb | | .CONST 0x1efb ; Address of begin
1ef1 0004 | | .CONST 0x0004 ; Address of exception handler
1ef2 0002 | | .CONST 0x0002 ; Number of locals
1ef3 INIT_1ef0:
1ef3 e5ff | | Load 0x2,-0x1
1ef4 0227 | ' | Execute Access,All_Reference
1ef5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1ef6 0092 20bb | | Action Push_String_Extended,0x20bb ; "?'IS(DOWNLOADABLE)"
1ef8 e001 | | Load 0x0,0x1
1ef9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
1efa 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1efb BODY_1ef0:
1efb 00cf | | Action Mark_Auxiliary
1efc 00d9 | | Load_Top At_Offset_1
1efd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1efe 4801 |H | Short_Literal 0x1
1eff 0263 | c | Execute Discrete,Above_Bound
1f00 7019 |p | Jump_Nonzero 0x1f1a
1f01 e5fd | | Load 0x2,-0x3
1f02 e009 | | Load 0x0,0x9
1f03 18d3 | | Execute Package,Field_Execute,Field_Number 0xd3
1f04 0f00 | | Execute_Immediate Equal,0x0
1f05 e5fe | | Load 0x2,-0x2
1f06 e402 | | Load 0x2,0x2
1f07 00db | | Load_Top At_Offset_3
1f08 e602 | | Load 0x3,0x2
1f09 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1f0a 01d7 | | Execute Vector,Field_Read
1f0b e001 | | Load 0x0,0x1
1f0c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1f0d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1f0e e00c | | Load 0x0,0xc
1f0f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1f10 6807 |h | Jump_Zero 0x1f18
1f11 00d8 | | Load_Top At_Offset_0
1f12 e602 | | Load 0x3,0x2
1f13 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1f14 01d7 | | Execute Vector,Field_Read
1f15 c404 | | Store 0x2,0x4
1f16 00d2 | | Pop_Control Pop_Count_2
1f17 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f18 00c8 | | Action Pop_Auxiliary_Range
1f19 3fe7 |? | Loop_Increasing 0x1f01
1f1a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f1b 0000 0000 | | .BLANK 0000[0x5]
1f20 ; --------------------------------------------------------------------------------------
1f20 ; SUBPROGRAM
1f20 ; --------------------------------------------------------------------------------------
1f20 1f2a | * | .CONST 0x1f2a ; Address of begin
1f21 0004 | | .CONST 0x0004 ; Address of exception handler
1f22 0002 | | .CONST 0x0002 ; Number of locals
1f23 INIT_1f20:
1f23 e5fc | | Load 0x2,-0x4
1f24 e009 | | Load 0x0,0x9
1f25 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
1f26 e5fe | | Load 0x2,-0x2
1f27 e001 | | Load 0x0,0x1
1f28 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
1f29 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
1f2a BODY_1f20:
1f2a 00d8 | | Load_Top At_Offset_0
1f2b 00cb | | Action Pop_Block_With_Result
1f2c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1f2d 0000 0000 | | .XXX[0x3]
1f2f 0000 | |
1f30 ; --------------------------------------------------------------------------------------
1f30 ; SUBPROGRAM
1f30 ; --------------------------------------------------------------------------------------
1f30 1f35 | 5 | .CONST 0x1f35 ; Address of begin
1f31 0004 | | .CONST 0x0004 ; Address of exception handler
1f32 0002 | | .CONST 0x0002 ; Number of locals
1f33 INIT_1f30:
1f33 e022 | " | Load 0x0,0x22
1f34 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1f35 BODY_1f30:
1f35 00db | | Load_Top At_Offset_3
1f36 e009 | | Load 0x0,0x9
1f37 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1f38 e021 | ! | Load 0x0,0x21
1f39 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1f3a e022 | " | Load 0x0,0x22
1f3b 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
1f3c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
1f3d 00d8 | | Load_Top At_Offset_0
1f3e 7003 |p | Jump_Nonzero 0x1f42
1f3f 0092 20bc | | Action Push_String_Extended,0x20bc ; "Unix"
1f41 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1f42 0092 20bd | | Action Push_String_Extended,0x20bd ; "Other"
1f44 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1f45 0000 0000 | | .XXX[0x3]
1f47 0000 | |
1f48 ; --------------------------------------------------------------------------------------
1f48 ; SUBPROGRAM
1f48 ; --------------------------------------------------------------------------------------
1f48 1f4e | N | .CONST 0x1f4e ; Address of begin
1f49 0004 | | .CONST 0x0004 ; Address of exception handler
1f4a 0002 | | .CONST 0x0002 ; Number of locals
1f4b INIT_1f48:
1f4b e5fe | | Load 0x2,-0x2
1f4c e009 | | Load 0x0,0x9
1f4d 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
1f4e BODY_1f48:
1f4e 00d8 | | Load_Top At_Offset_0
1f4f 01db | | Execute Vector,Length
1f50 0c01 | | Execute_Immediate Greater_Equal,0x1
1f51 6809 |h | Jump_Zero 0x1f5b
1f52 e5f4 | | Load 0x2,-0xc
1f53 e5f5 | | Load 0x2,-0xb
1f54 e5f6 | | Load 0x2,-0xa
1f55 e5fa | | Load 0x2,-0x6
1f56 e5fb | | Load 0x2,-0x5
1f57 e602 | | Load 0x3,0x2
1f58 e5fe | | Load 0x2,-0x2
1f59 8276 | v | Call 0x1,0x76
1f5a c5f4 | | Store 0x2,-0xc
1f5b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f5c 0000 0000 | | .BLANK 0000[0x4]
1f60 ; --------------------------------------------------------------------------------------
1f60 ; SUBPROGRAM
1f60 ; --------------------------------------------------------------------------------------
1f60 1f68 | h | .CONST 0x1f68 ; Address of begin
1f61 0004 | | .CONST 0x0004 ; Address of exception handler
1f62 0003 | | .CONST 0x0003 ; Number of locals
1f63 INIT_1f60:
1f63 e005 | | Load 0x0,0x5
1f64 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1f65 e5fe | | Load 0x2,-0x2
1f66 e009 | | Load 0x0,0x9
1f67 18cd | | Execute Package,Field_Execute,Field_Number 0xcd
1f68 BODY_1f60:
1f68 00d8 | | Load_Top At_Offset_0
1f69 01db | | Execute Vector,Length
1f6a 0c01 | | Execute_Immediate Greater_Equal,0x1
1f6b 6809 |h | Jump_Zero 0x1f75
1f6c 00d9 | | Load_Top At_Offset_1
1f6d e5f5 | | Load 0x2,-0xb
1f6e e5f6 | | Load 0x2,-0xa
1f6f e5fa | | Load 0x2,-0x6
1f70 e5fb | | Load 0x2,-0x5
1f71 e603 | | Load 0x3,0x3
1f72 e5fe | | Load 0x2,-0x2
1f73 8276 | v | Call 0x1,0x76
1f74 005a | Z | Store_Top Discrete,At_Offset_2
1f75 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1f76 0000 0000 | | .XXX[0x2]
1f78 ; --------------------------------------------------------------------------------------
1f78 ; SUBPROGRAM
1f78 ; --------------------------------------------------------------------------------------
1f78 1f7b | { | .CONST 0x1f7b ; Address of begin
1f79 0004 | | .CONST 0x0004 ; Address of exception handler
1f7a 0001 | | .CONST 0x0001 ; Number of locals
1f7b BODY_1f78:
1f7b INIT_1f78:
1f7b 00da | | Load_Top At_Offset_2
1f7c 6807 |h | Jump_Zero 0x1f84
1f7d 4800 |H | Short_Literal 0x0
1f7e e5fc | | Load 0x2,-0x4
1f7f e00b | | Load 0x0,0xb
1f80 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
1f81 e00b | | Load 0x0,0xb
1f82 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1f83 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1f84 4800 |H | Short_Literal 0x0
1f85 e5fc | | Load 0x2,-0x4
1f86 e00b | | Load 0x0,0xb
1f87 1b20 | | Execute Package,Field_Read,Field_Number 0x20
1f88 e00b | | Load 0x0,0xb
1f89 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1f8a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1f8b 0000 0000 | | .BLANK 0000[0x5]
1f90 ; --------------------------------------------------------------------------------------
1f90 ; SUBPROGRAM
1f90 ; --------------------------------------------------------------------------------------
1f90 1fa6 | | .CONST 0x1fa6 ; Address of begin
1f91 0004 | | .CONST 0x0004 ; Address of exception handler
1f92 0002 | | .CONST 0x0002 ; Number of locals
1f93 INIT_1f90:
1f93 e5f7 | | Load 0x2,-0x9
1f94 e5fb | | Load 0x2,-0x5
1f95 e7ff | | Load 0x3,-0x1
1f96 8403 | | Call 0x2,0x3
1f97 4801 |H | Short_Literal 0x1
1f98 e7ff | | Load 0x3,-0x1
1f99 0272 | r | Execute Discrete,Minus
1f9a 00d8 | | Load_Top At_Offset_0
1f9b e020 | | Load 0x0,0x20
1f9c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
1f9d 0260 | ` | Execute Discrete,In_Type
1f9e 7001 |p | Jump_Nonzero 0x1fa0
1f9f 0801 | | Execute_Immediate Raise,0x1
1fa0 4803 |H | Short_Literal 0x3
1fa1 e5fe | | Load 0x2,-0x2
1fa2 e009 | | Load 0x0,0x9
1fa3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1fa4 e020 | | Load 0x0,0x20
1fa5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
1fa6 BODY_1f90:
1fa6 e5f9 | | Load 0x2,-0x7
1fa7 01db | | Execute Vector,Length
1fa8 7002 |p | Jump_Nonzero 0x1fab
1fa9 00d8 | | Load_Top At_Offset_0
1faa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1fab e5fe | | Load 0x2,-0x2
1fac e009 | | Load 0x0,0x9
1fad 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
1fae e7ff | | Load 0x3,-0x1
1faf 027f | | Execute Discrete,Equal
1fb0 6825 |h% | Jump_Zero 0x1fd6
1fb1 00d8 | | Load_Top At_Offset_0
1fb2 01db | | Execute Vector,Length
1fb3 700e |p | Jump_Nonzero 0x1fc2
1fb4 e402 | | Load 0x2,0x2
1fb5 e022 | " | Load 0x0,0x22
1fb6 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
1fb7 e5fe | | Load 0x2,-0x2
1fb8 e009 | | Load 0x0,0x9
1fb9 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
1fba 01cc | | Execute Vector,Catenate
1fbb e402 | | Load 0x2,0x2
1fbc e022 | " | Load 0x0,0x22
1fbd 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
1fbe 01cc | | Execute Vector,Catenate
1fbf e5f9 | | Load 0x2,-0x7
1fc0 01cc | | Execute Vector,Catenate
1fc1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1fc2 00d8 | | Load_Top At_Offset_0
1fc3 e402 | | Load 0x2,0x2
1fc4 e022 | " | Load 0x0,0x22
1fc5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
1fc6 01cc | | Execute Vector,Catenate
1fc7 e402 | | Load 0x2,0x2
1fc8 e022 | " | Load 0x0,0x22
1fc9 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
1fca 01cc | | Execute Vector,Catenate
1fcb e5fe | | Load 0x2,-0x2
1fcc e009 | | Load 0x0,0x9
1fcd 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
1fce 01cc | | Execute Vector,Catenate
1fcf e402 | | Load 0x2,0x2
1fd0 e022 | " | Load 0x0,0x22
1fd1 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
1fd2 01cc | | Execute Vector,Catenate
1fd3 e5f9 | | Load 0x2,-0x7
1fd4 01cc | | Execute Vector,Catenate
1fd5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1fd6 00d8 | | Load_Top At_Offset_0
1fd7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1fd8 ; --------------------------------------------------------------------------------------
1fd8 ; SUBPROGRAM
1fd8 ; --------------------------------------------------------------------------------------
1fd8 1fde | | .CONST 0x1fde ; Address of begin
1fd9 0004 | | .CONST 0x0004 ; Address of exception handler
1fda 0002 | | .CONST 0x0002 ; Number of locals
1fdb INIT_1fd8:
1fdb e5fe | | Load 0x2,-0x2
1fdc e009 | | Load 0x0,0x9
1fdd 18ce | | Execute Package,Field_Execute,Field_Number 0xce
1fde BODY_1fd8:
1fde 00d8 | | Load_Top At_Offset_0
1fdf 01db | | Execute Vector,Length
1fe0 0c01 | | Execute_Immediate Greater_Equal,0x1
1fe1 6809 |h | Jump_Zero 0x1feb
1fe2 e5f6 | | Load 0x2,-0xa
1fe3 e5f7 | | Load 0x2,-0x9
1fe4 e5f8 | | Load 0x2,-0x8
1fe5 e5fc | | Load 0x2,-0x4
1fe6 e5fd | | Load 0x2,-0x3
1fe7 e602 | | Load 0x3,0x2
1fe8 e5fe | | Load 0x2,-0x2
1fe9 8276 | v | Call 0x1,0x76
1fea c5f6 | | Store 0x2,-0xa
1feb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1fec 0000 0000 | | .BLANK 0000[0x4]
1ff0 ; --------------------------------------------------------------------------------------
1ff0 ; SUBPROGRAM
1ff0 ; --------------------------------------------------------------------------------------
1ff0 1ff8 | | .CONST 0x1ff8 ; Address of begin
1ff1 0004 | | .CONST 0x0004 ; Address of exception handler
1ff2 0003 | | .CONST 0x0003 ; Number of locals
1ff3 INIT_1ff0:
1ff3 e005 | | Load 0x0,0x5
1ff4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1ff5 e5fe | | Load 0x2,-0x2
1ff6 e009 | | Load 0x0,0x9
1ff7 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
1ff8 BODY_1ff0:
1ff8 00d8 | | Load_Top At_Offset_0
1ff9 01db | | Execute Vector,Length
1ffa 0c01 | | Execute_Immediate Greater_Equal,0x1
1ffb 6809 |h | Jump_Zero 0x2005
1ffc 00d9 | | Load_Top At_Offset_1
1ffd e5f7 | | Load 0x2,-0x9
1ffe e5f8 | | Load 0x2,-0x8
1fff e5fc | | Load 0x2,-0x4
2000 e5fd | | Load 0x2,-0x3
2001 e603 | | Load 0x3,0x3
2002 e5fe | | Load 0x2,-0x2
2003 8276 | v | Call 0x1,0x76
2004 005a | Z | Store_Top Discrete,At_Offset_2
2005 4501 |E | Exit_Suprogram New_Top_Offset 0x1
2006 0000 0000 | | .XXX[0x2]
2008 ; --------------------------------------------------------------------------------------
2008 ; SUBPROGRAM
2008 ; --------------------------------------------------------------------------------------
2008 200b | | .CONST 0x200b ; Address of begin
2009 2020 | | .CONST 0x2020 ; Address of exception handler
200a 0001 | | .CONST 0x0001 ; Number of locals
200b BODY_2008:
200b INIT_2008:
200b 4800 |H | Short_Literal 0x0
200c 4801 |H | Short_Literal 0x1
200d 4800 |H | Short_Literal 0x0
200e 4801 |H | Short_Literal 0x1
200f e5fa | | Load 0x2,-0x6
2010 e006 | | Load 0x0,0x6
2011 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
2012 e014 | | Load 0x0,0x14
2013 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
2014 4800 |H | Short_Literal 0x0
2015 0092 20be | | Action Push_String_Extended,0x20be ; "<ALL_WORLDS>"
2017 4803 |H | Short_Literal 0x3
2018 4803 |H | Short_Literal 0x3
2019 e5fe | | Load 0x2,-0x2
201a e002 | | Load 0x0,0x2
201b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
201c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
201d e025 | % | Load 0x0,0x25
201e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
201f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
2020 TRAP_2008:
2020 0007 | | Action Break_Optional
2021 e604 | | Load 0x3,0x4
2022 e014 | | Load 0x0,0x14
2023 1815 | | Execute Package,Field_Execute,Field_Number 0x15
2024 4801 |H | Short_Literal 0x1
2025 4802 |H | Short_Literal 0x2
2026 e004 | | Load 0x0,0x4
2027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
2028 035b | [ | Declare_Type Array,Constrained
2029 0337 | 7 | Declare_Variable Array
202a 0092 20bf | | Action Push_String_Extended,0x20bf ; "Failed while compiling closure of "
202c e5fe | | Load 0x2,-0x2
202d e002 | | Load 0x0,0x2
202e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
202f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
2030 01cc | | Execute Vector,Catenate
2031 e004 | | Load 0x0,0x4
2032 1810 | | Execute Package,Field_Execute,Field_Number 0x10
2033 e004 | | Load 0x0,0x4
2034 1b0e | | Execute Package,Field_Read,Field_Number 0xe
2035 0119 | | Execute Any,Check_In_Formal_Type
2036 4801 |H | Short_Literal 0x1
2037 00da | | Load_Top At_Offset_2
2038 01d6 | | Execute Vector,Field_Write
2039 e404 | | Load 0x2,0x4
203a e006 | | Load 0x0,0x6
203b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
203c e004 | | Load 0x0,0x4
203d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
203e 0119 | | Execute Any,Check_In_Formal_Type
203f 4802 |H | Short_Literal 0x2
2040 00da | | Load_Top At_Offset_2
2041 01d6 | | Execute Vector,Field_Write
2042 6009 |` | Indirect_Literal Discrete,0x204c,{0x00000000, 0x00008126}
2043 e005 | | Load 0x0,0x5
2044 1813 | | Execute Package,Field_Execute,Field_Number 0x13
2045 a7ff | | Store_Unchecked 0x3,-0x1
2046 e5fa | | Load 0x2,-0x6
2047 e7ff | | Load 0x3,-0x1
2048 e005 | | Load 0x0,0x5
2049 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
204a 00cc | | Action Pop_Block
204b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
204c 0000 0000 | | .LITERAL {0x00000000, 0x00008126}
2050 ; --------------------------------------------------------------------------------------
2050 ; SUBPROGRAM
2050 ; --------------------------------------------------------------------------------------
2050 2059 | Y | .CONST 0x2059 ; Address of begin
2051 0004 | | .CONST 0x0004 ; Address of exception handler
2052 0003 | | .CONST 0x0003 ; Number of locals
2053 INIT_2050:
2053 e5fc | | Load 0x2,-0x4
2054 e408 | | Load 0x2,0x8
2055 e00f | | Load 0x0,0xf
2056 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
2057 e408 | | Load 0x2,0x8
2058 826e | n | Call 0x1,0x6e
2059 BODY_2050:
2059 4800 |H | Short_Literal 0x0
205a 00da | | Load_Top At_Offset_2
205b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
205c e005 | | Load 0x0,0x5
205d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
205e 7003 |p | Jump_Nonzero 0x2062
205f e005 | | Load 0x0,0x5
2060 1b17 | | Execute Package,Field_Read,Field_Number 0x17
2061 0257 | W | Execute Discrete,Raise
2062 e40c | | Load 0x2,0xc
2063 e5fc | | Load 0x2,-0x4
2064 e40f | | Load 0x2,0xf
2065 4801 |H | Short_Literal 0x1
2066 e802 | | Load 0x4,0x2
2067 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2068 e803 | | Load 0x4,0x3
2069 e40e | | Load 0x2,0xe
206a e40d | | Load 0x2,0xd
206b e408 | | Load 0x2,0x8
206c e5fe | | Load 0x2,-0x2
206d e5fd | | Load 0x2,-0x3
206e e5ff | | Load 0x2,-0x1
206f 8279 | y | Call 0x1,0x79
2070 c40c | | Store 0x2,0xc
2071 4501 |E | Exit_Suprogram New_Top_Offset 0x1
2072 ; --------------------------------------------------------------------------------------
2072 ; STRING TABLE
2072 ; --------------------------------------------------------------------------------------
2072 009e | | .STRTAB 0x009e->0x20c1 ; "Target_Builder.Unit.Referencers"
2073 00bb | | .STRTAB 0x00bb->0x20d0 ; "Target_Builder.Unit.Suppliers"
2074 00d6 | | .STRTAB 0x00d6->0x20df ; "Link"
2075 00d8 | | .STRTAB 0x00d8->0x20e1 ; "<error>"
2076 00dd | | .STRTAB 0x00dd->0x20e4 ; "There are un-Coded Units."
2077 00f4 | | .STRTAB 0x00f4->0x20f1 ; "Target_Builder.Unit.Link"
2078 010a | | .STRTAB 0x010a->0x20fd ; "Compile"
2079 010f | | .STRTAB 0x010f->0x2100 ; "Target_Builder.Unit.Promote"
207a 0128 | ( | .STRTAB 0x0128->0x210e ; "Demoting => "
207b 0133 | 3 | .STRTAB 0x0133->0x2114 ; "Demote"
207c 0137 | 7 | .STRTAB 0x0137->0x2117 ; "Target_Builder.Unit.Demote"
207d 014f | O | .STRTAB 0x014f->0x2124 ; "Unit_Target_Name"
207e 015d | ] | .STRTAB 0x015d->0x212c ; "Target_Builder.Unit.Unit_Target_Name"
207f 017f | | .STRTAB 0x017f->0x213e ; "Target_Builder.Unit.Unit_Name"
2080 019a | | .STRTAB 0x019a->0x214d ; "Set_Unit_Target_Name"
2081 01ac | | .STRTAB 0x01ac->0x2157 ; "*"
2082 01ab | | .STRTAB 0x01ab->0x2157 ; "Target name for unit \x22"
2083 01bf | | .STRTAB 0x01bf->0x2162 ; "\x22 has been set to \x22"
2084 01d0 | | .STRTAB 0x01d0->0x216c ; "\x22"
2085 01cf | | .STRTAB 0x01cf->0x216c ; "Unit \x22"
2086 01d3 | | .STRTAB 0x01d3->0x216f ; "\x22 will be made non-downloadable"
2087 01f0 | | .STRTAB 0x01f0->0x217f ; "Target_Builder.Unit.Set_Unit_Target_Name"
2088 0216 | | .STRTAB 0x0216->0x2193 ; "Has_Unit_Target_Name"
2089 0228 | ( | .STRTAB 0x0228->0x219d ; "Target_Builder.Unit.Has_Unit_Target_Name"
208a 024e | N | .STRTAB 0x024e->0x21b1 ; "Download_Time"
208b 0259 | Y | .STRTAB 0x0259->0x21b7 ; "Target_Builder.Unit.Download_Time"
208c 0278 | x | .STRTAB 0x0278->0x21c8 ; "Set_Download_Time"
208d 0287 | | .STRTAB 0x0287->0x21d0 ; "Setting download time for => "
208e 02a3 | | .STRTAB 0x02a3->0x21df ; " to "
208f 02a5 | | .STRTAB 0x02a5->0x21e1 ; "Target_Builder.Unit.Set_Download_Time"
2090 02c8 | | .STRTAB 0x02c8->0x21f4 ; "Target_Builder.Unit.Refresh_Suppliers"
2091 02eb | | .STRTAB 0x02eb->0x2206 ; "Refresh_Suppliers"
2092 02fa | | .STRTAB 0x02fa->0x220f ; "Target_Builder.Unit.Register"
2093 0314 | | .STRTAB 0x0314->0x221d ; "register"
2094 031a | | .STRTAB 0x031a->0x2221 ; "Register"
2095 0320 | | .STRTAB 0x0320->0x2225 ; "Add_Secondary_Unit"
2096 0330 | 0 | .STRTAB 0x0330->0x222e ; "Added "
2097 0334 | 4 | .STRTAB 0x0334->0x2231 ; " as the secondary of unit "
2098 034c | L | .STRTAB 0x034c->0x223e ; ". Prefix = \x22"
2099 0357 | W | .STRTAB 0x0357->0x2244 ; "\x22, Suffix = \x22"
209a 0362 | b | .STRTAB 0x0362->0x224b ; "Target_Builder.Unit.Add_Secondary_Unit"
209b 0386 | | .STRTAB 0x0386->0x225e ; "Remove_Secondary_Unit (Primary)"
209c 03a3 | | .STRTAB 0x03a3->0x226d ; "Remove_Secondary_Unit (Secondary)"
209d 03c2 | | .STRTAB 0x03c2->0x227e ; "Removed "
209e 03c8 | | .STRTAB 0x03c8->0x2282 ; "Target_Builder.Unit.Remove_Secondary_Unit"
209f 03ef | | .STRTAB 0x03ef->0x2296 ; "Has_Secondary_Unit"
20a0 03ff | | .STRTAB 0x03ff->0x229f ; "Target_Builder.Unit.Has_Secondary_Unit"
20a1 0423 | # | .STRTAB 0x0423->0x22b2 ; "Is_Secondary_Unit"
20a2 0432 | 2 | .STRTAB 0x0432->0x22bb ; "Target_Builder.Unit.Is_Secondary_Unit"
20a3 0455 | U | .STRTAB 0x0455->0x22cd ; "Primary_Unit"
20a4 045f | _ | .STRTAB 0x045f->0x22d3 ; "Target_Builder.Unit.Primary_Unit"
20a5 047d | } | .STRTAB 0x047d->0x22e3 ; "Secondary_Unit"
20a6 0489 | | .STRTAB 0x0489->0x22ea ; "Target_Builder.Unit.Secondary_Unit"
20a7 04a9 | | .STRTAB 0x04a9->0x22fb ; "Secondary_Prefix"
20a8 04b7 | | .STRTAB 0x04b7->0x2303 ; "Target_Builder.Unit.Secondary_Prefix"
20a9 04d9 | | .STRTAB 0x04d9->0x2315 ; "Secondary_Suffix"
20aa 04e7 | | .STRTAB 0x04e7->0x231d ; "Target_Builder.Unit.Secondary_Suffix"
20ab 0509 | | .STRTAB 0x0509->0x232f ; "Serial_Number"
20ac 0514 | | .STRTAB 0x0514->0x2336 ; "Target_Builder.Unit.Serial_Number"
20ad 0533 | 3 | .STRTAB 0x0533->0x2346 ; "}?{ Check_Unit Target_Builder.Unit."
20ae 0557 | W | .STRTAB 0x0557->0x2359 ; "Target_Builder.Unit.Establish_Download_Time"
20af 0580 | | .STRTAB 0x0580->0x236f ; "Acquiring Remote Connection => "
20b0 059e | | .STRTAB 0x059e->0x237f ; "Change Directory Context"
20b1 05b4 | | .STRTAB 0x05b4->0x238b ; "Change Library Context"
20b2 05c8 | | .STRTAB 0x05c8->0x2396 ; "Rs6000_Aix_Ibm"
20b3 05d4 | | .STRTAB 0x05d4->0x239d ; ".exe"
20b4 05d6 | | .STRTAB 0x05d6->0x239f ; "Target_Builder.Unit.Link (in Make_Closure)"
20b5 05fe | | .STRTAB 0x05fe->0x23b4 ; "Transferring => "
20b6 060d | | .STRTAB 0x060d->0x23bc ; "Retrieving remote update time for host unit => "
20b7 063b | ; | .STRTAB 0x063b->0x23d4 ; "Elapsed time for setting download time => "
20b8 0663 | c | .STRTAB 0x0663->0x23e9 ; " seconds."
20b9 066a | j | .STRTAB 0x066a->0x23ee ; "Promoting => "
20ba 0676 | v | .STRTAB 0x0676->0x23f5 ; "Promote"
20bb 067b | { | .STRTAB 0x067b->0x23f8 ; "?'IS(DOWNLOADABLE)"
20bc 068b | | .STRTAB 0x068b->0x2401 ; "Unix"
20bd 068d | | .STRTAB 0x068d->0x2403 ; "Other"
20be 0690 | | .STRTAB 0x0690->0x2406 ; "<ALL_WORLDS>"
20bf 069a | | .STRTAB 0x069a->0x240c ; "Failed while compiling closure of "
20c0 06ba | | .STREND 0x06ba->0x241d
20c1 5461 7267 |Targ| .STRTAB_STRINGS
241d 0000 0000 | | .XXX[0x3]
241f 0000 | |
2420 ; --------------------------------------------------------------------------------------
2420 ; Debug Table
2420 ; --------------------------------------------------------------------------------------
2420 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ef4,0x0000,0x0001,0x0000
2426 0000 0008 | | .XXX[0xe]
2428 0001 0804 | |
242a 0800 0a80 | |
242c 0000 0120 | |
242e 0000 0020 | |
2430 0000 0000 | |
2432 0000 0076 | v|
2434 0000 0000 | | .BLANK 0000[0x4]
2438 000c 1467 | g| .XXX[0xc]
243a 0000 0400 | |
243c 0000 0000 | |
243e 0000 4000 | @ |
2440 0000 0000 | |
2442 0000 0100 | |
2444 0000 0000 | | .BLANK 0000[0x4]
2448 000c 1467 | g| .XXX[0xc]
244a 0000 01c4 | |
244c 8204 0001 | |
244e 0000 0040 | @|
2450 0000 0000 | |
2452 0000 0076 | v|
2454 0000 0000 | | .BLANK 0000[0x4]
2458 0001 0404 | | .XXX[0x24]
245a 0000 0b80 | |
245c 0000 0000 | |
245e 0000 0040 | @|
2460 0000 0000 | |
2462 0000 0008 | |
2464 0000 0000 | |
2466 0000 0001 | |
2468 0001 0404 | |
246a 0800 0a00 | |
246c 8204 0008 | |
246e 0000 0008 | |
2470 000c 1467 | g|
2472 8000 0791 | |
2474 0000 0000 | |
2476 0000 0080 | |
2478 0000 0000 | |
247a 0000 0002 | |
247c 0000 0000 | | .BLANK 0000[0x4]
2480 09bd 2804 | ( | .XXX[0xc]
2482 0800 0a38 | 8|
2484 8204 0040 | @|
2486 0000 0040 | @|
2488 0000 0000 | |
248a 0000 0076 | v|
248c 0000 0000 | | .BLANK 0000[0x4]
2490 0001 0404 | | .XXX[0x18]
2492 0000 0b80 | |
2494 0000 0000 | |
2496 0000 0038 | 8|
2498 0000 0000 | |
249a 0000 0007 | |
249c 0000 0000 | |
249e 0000 0012 | |
24a0 0001 0404 | |
24a2 0800 0a00 | |
24a4 8204 0008 | |
24a6 0000 0008 | |
24a8 0000 0000 | | .BLANK 0000[0x8]
24b0 0080 0000 | | .XXX[0xd]
24b2 0600 0000 | |
24b4 0000 0000 | |
24b6 8000 0003 | |
24b8 8000 0000 | |
24ba 0200 0000 | |
24bc 0c00 | |
24bd 0000 0000 | | .BLANK 0000[0x31]
24ee 0080 0000 | | .XXX[0xd]
24f0 0600 0000 | |
24f2 0000 0000 | |
24f4 8000 0003 | |
24f6 8000 0000 | |
24f8 0200 0000 | |
24fa 0c00 | |
24fb 0000 0000 | | .BLANK 0000[0x31]
252c 0080 0000 | | .XXX[0xd]
252e 0600 0000 | |
2530 0000 0000 | |
2532 8000 0003 | |
2534 8000 0000 | |
2536 0200 0000 | |
2538 0c00 | |
2539 0000 0000 | | .BLANK 0000[0x27]
2560 0800 0000 | | .XXX[0x13]
2562 1000 0004 | |
2564 0000 0049 | I|
2566 f800 0000 | |
2568 1000 0000 | |
256a 0000 0008 | |
256c 0000 0084 | |
256e 0000 0000 | |
2570 2000 0000 | |
2572 2000 | |
2573 0000 0000 | | .BLANK 0000[0x9]
257c 0100 0000 | | .XXX[0xd]
257e 0c00 0000 | |
2580 0000 0001 | |
2582 0000 0007 | |
2584 0000 0000 | |
2586 0400 0000 | |
2588 1800 | |
2589 0000 0000 | | .BLANK 0000[0x29]
25b2 0168 0000 | h | .XXX[0x1f]
25b4 0008 0000 | |
25b6 03c0 0000 | |
25b8 01c0 0000 | |
25ba 0800 0000 | |
25bc 4400 0000 |D |
25be 0020 0000 | |
25c0 078c 6ca7 | l |
25c2 4869 ea48 |Hi H|
25c4 abe8 a889 | |
25c6 2a89 ea4c |* L|
25c8 ac84 0a0e | |
25ca ae4c a408 | L |
25cc ad8c adac | |
25ce adce 8409 | |
25d0 ac2e | . |
25d1 0000 0000 | | .BLANK 0000[0xd]
25de 0008 3636 | 66| .XXX[0x7]
25e0 99fb 4554 | ET|
25e2 1b1b 4cfd | L |
25e4 a2a8 | |
25e5 0000 0000 | | .BLANK 0000[0x1a]
25ff 0001 | | .XXX[0x1]