|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0b20 | | .CONST 0x0b20 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0098 | | .CONST 0x0098 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0041 | A | .CONST 0x0041 ; 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 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
003f c21a | | Store 0x1,0x1a
0040 00c4 | | Action Make_Default
0041 00d1 | | Pop_Control Pop_Count_1
0042 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0044 c238 | 8 | Store 0x1,0x38
0045 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0047 c239 | 9 | Store 0x1,0x39
0048 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
004a c23a | : | Store 0x1,0x3a
004b 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
004d c23b | ; | Store 0x1,0x3b
004e 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
0050 c22d | - | Store 0x1,0x2d
0051 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
0053 c23c | < | Store 0x1,0x3c
0054 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated
0056 c23d | = | Store 0x1,0x3d
0057 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated
0059 c230 | 0 | Store 0x1,0x30
005a 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated
005c c231 | 1 | Store 0x1,0x31
005d 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated
005f c23e | > | Store 0x1,0x3e
0060 e001 | | Load 0x0,0x1
0061 1bc9 | | Execute Package,Field_Read,Field_Number 0xc9
0062 4802 |H | Short_Literal 0x2
0063 4800 |H | Short_Literal 0x0
0064 4801 |H | Short_Literal 0x1
0065 4803 |H | Short_Literal 0x3
0066 0318 | | Declare_Type Variant_Record,Incomplete
0067 029f 088b | | Declare_Subprogram INIT_0888,For_Call
0069 00d9 | | Load_Top At_Offset_1
006a 012a | * | Execute Any,Change_Utility
006b c23f | ? | Store 0x1,0x3f
006c 00d8 | | Load_Top At_Offset_0
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e e21a | | Load 0x1,0x1a
006f 03a3 | | Complete_Type Heap_Access,By_Defining
0070 e21a | | Load 0x1,0x1a
0071 0129 | ) | Execute Any,Make_Visible
0072 c237 | 7 | Store 0x1,0x37
0073 00bf | | Action Accept_Activation
0074 4801 |H | Short_Literal 0x1
0075 e002 | | Load 0x0,0x2
0076 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0077 4801 |H | Short_Literal 0x1
0078 e003 | | Load 0x0,0x3
0079 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
007a 029f 088b | | Declare_Subprogram INIT_0888,For_Call
007c 4802 |H | Short_Literal 0x2
007d 4800 |H | Short_Literal 0x0
007e e23f | ? | Load 0x1,0x3f
007f 0307 | | Complete_Type Variant_Record,By_Defining
0080 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
0082 029d 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call
0084 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0085 00c7 | | Action Elaborate_Subprogram
0086 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0087 00c7 | | Action Elaborate_Subprogram
0088 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0089 00c7 | | Action Elaborate_Subprogram
008a 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
008b 00c7 | | Action Elaborate_Subprogram
008c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
008d 00c7 | | Action Elaborate_Subprogram
008e 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
008f 00c7 | | Action Elaborate_Subprogram
0090 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0091 00c7 | | Action Elaborate_Subprogram
0092 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0093 00c7 | | Action Elaborate_Subprogram
0094 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0095 00c7 | | Action Elaborate_Subprogram
0096 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0097 00c7 | | Action Elaborate_Subprogram
0098 BODY_0008:
0098 00bc | | Action Signal_Activated
0099 00bb | | Action Signal_Completion
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00b4 | | .CONST 0x00b4 ; Address of begin
00a1 0177 | w | .CONST 0x0177 ; Address of exception handler
00a2 0005 | | .CONST 0x0005 ; Number of locals
00a3 INIT_00a0:
00a3 e002 | | Load 0x0,0x2
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 02c7 | | Declare_Variable Any
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 e003 | | Load 0x0,0x3
00a9 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
00aa 0322 | " | Declare_Variable Record
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad e004 | | Load 0x0,0x4
00ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00af 02c7 | | Declare_Variable Any
00b0 00d8 | | Load_Top At_Offset_0
00b1 1c00 | | Execute_Immediate Run_Utility,0x0
00b2 e005 | | Load 0x0,0x5
00b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b4 BODY_00a0:
00b4 4800 |H | Short_Literal 0x0
00b5 a5f9 | | Store_Unchecked 0x2,-0x7
00b6 e21a | | Load 0x1,0x1a
00b7 a5fa | | Store_Unchecked 0x2,-0x6
00b8 e005 | | Load 0x0,0x5
00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ba e006 | | Load 0x0,0x6
00bb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00bc 0059 | Y | Store_Top Discrete,At_Offset_1
00bd 4800 |H | Short_Literal 0x0
00be 00d9 | | Load_Top At_Offset_1
00bf e005 | | Load 0x0,0x5
00c0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00c1 7003 |p | Jump_Nonzero 0xc5
00c2 00d8 | | Load_Top At_Offset_0
00c3 a5f9 | | Store_Unchecked 0x2,-0x7
00c4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00c5 e007 | | Load 0x0,0x7
00c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c7 4801 |H | Short_Literal 0x1
00c8 0092 099a | | Action Push_String_Extended,0x99a ; "Acquire (Remote_Machine => \x22"
00ca e5fe | | Load 0x2,-0x2
00cb 01cc | | Execute Vector,Catenate
00cc 0092 099b | | Action Push_String_Extended,0x99b ; "\x22, Username => \x22"
00ce 01cc | | Execute Vector,Catenate
00cf e5fd | | Load 0x2,-0x3
00d0 01cc | | Execute Vector,Catenate
00d1 0092 099c | | Action Push_String_Extended,0x99c ; "\x22, Password => ???"
00d3 01cc | | Execute Vector,Catenate
00d4 0092 099d | | Action Push_String_Extended,0x99d ; ", Trace_Command => "
00d6 01cc | | Execute Vector,Catenate
00d7 e5fb | | Load 0x2,-0x5
00d8 00e1 | | Load_Encached Boolean_Cache
00d9 011c | | Execute Any,Convert_Unchecked
00da 1c01 | | Execute_Immediate Run_Utility,0x1
00db 01cc | | Execute Vector,Catenate
00dc 0092 099e | | Action Push_String_Extended,0x99e ; ")."
00de 01cc | | Execute Vector,Catenate
00df e008 | | Load 0x0,0x8
00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e1 e5ff | | Load 0x2,-0x1
00e2 e001 | | Load 0x0,0x1
00e3 18ca | | Execute Package,Field_Execute,Field_Number 0xca
00e4 0f01 | | Execute_Immediate Equal,0x1
00e5 7069 |pi | Jump_Nonzero 0x14f
00e6 e5ff | | Load 0x2,-0x1
00e7 e001 | | Load 0x0,0x1
00e8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00e9 00db | | Load_Top At_Offset_3
00ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00eb 00d9 | | Load_Top At_Offset_1
00ec 00db | | Load_Top At_Offset_3
00ed e5fb | | Load 0x2,-0x5
00ee e5fc | | Load 0x2,-0x4
00ef e5fd | | Load 0x2,-0x3
00f0 e5fe | | Load 0x2,-0x2
00f1 8241 | A | Call 0x1,0x41
00f2 e5fc | | Load 0x2,-0x4
00f3 e5fd | | Load 0x2,-0x3
00f4 e5fe | | Load 0x2,-0x2
00f5 8240 | @ | Call 0x1,0x40
00f6 e5fe | | Load 0x2,-0x2
00f7 e003 | | Load 0x0,0x3
00f8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00f9 00d1 | | Pop_Control Pop_Count_1
00fa c404 | | Store 0x2,0x4
00fb 4802 |H | Short_Literal 0x2
00fc 00da | | Load_Top At_Offset_2
00fd e004 | | Load 0x0,0x4
00fe 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ff 681f |h | Jump_Zero 0x11f
0100 4801 |H | Short_Literal 0x1
0101 4802 |H | Short_Literal 0x2
0102 e009 | | Load 0x0,0x9
0103 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0104 035b | [ | Declare_Type Array,Constrained
0105 0337 | 7 | Declare_Variable Array
0106 e5fe | | Load 0x2,-0x2
0107 e009 | | Load 0x0,0x9
0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0109 e009 | | Load 0x0,0x9
010a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010b 0119 | | Execute Any,Check_In_Formal_Type
010c 4801 |H | Short_Literal 0x1
010d 00da | | Load_Top At_Offset_2
010e 01d6 | | Execute Vector,Field_Write
010f 00da | | Load_Top At_Offset_2
0110 e004 | | Load 0x0,0x4
0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0112 e009 | | Load 0x0,0x9
0113 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0114 e009 | | Load 0x0,0x9
0115 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0116 0119 | | Execute Any,Check_In_Formal_Type
0117 4802 |H | Short_Literal 0x2
0118 00da | | Load_Top At_Offset_2
0119 01d6 | | Execute Vector,Field_Write
011a 60b1 |` | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0000812a}
011b e005 | | Load 0x0,0x5
011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011d a5f9 | | Store_Unchecked 0x2,-0x7
011e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
011f 4801 |H | Short_Literal 0x1
0120 00da | | Load_Top At_Offset_2
0121 e004 | | Load 0x0,0x4
0122 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0123 681f |h | Jump_Zero 0x143
0124 4801 |H | Short_Literal 0x1
0125 4802 |H | Short_Literal 0x2
0126 e009 | | Load 0x0,0x9
0127 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0128 035b | [ | Declare_Type Array,Constrained
0129 0337 | 7 | Declare_Variable Array
012a e5fe | | Load 0x2,-0x2
012b e009 | | Load 0x0,0x9
012c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012d e009 | | Load 0x0,0x9
012e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012f 0119 | | Execute Any,Check_In_Formal_Type
0130 4801 |H | Short_Literal 0x1
0131 00da | | Load_Top At_Offset_2
0132 01d6 | | Execute Vector,Field_Write
0133 00da | | Load_Top At_Offset_2
0134 e004 | | Load 0x0,0x4
0135 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0136 e009 | | Load 0x0,0x9
0137 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0138 e009 | | Load 0x0,0x9
0139 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013a 0119 | | Execute Any,Check_In_Formal_Type
013b 4802 |H | Short_Literal 0x2
013c 00da | | Load_Top At_Offset_2
013d 01d6 | | Execute Vector,Field_Write
013e 4806 |H | Short_Literal 0x6
013f 6088 |` | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x000081d1}
0140 e005 | | Load 0x0,0x5
0141 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0142 a5f9 | | Store_Unchecked 0x2,-0x7
0143 4800 |H | Short_Literal 0x0
0144 e23f | ? | Load 0x1,0x3f
0145 1c08 | | Execute_Immediate Run_Utility,0x8
0146 00db | | Load_Top At_Offset_3
0147 00d9 | | Load_Top At_Offset_1
0148 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0149 e21a | | Load 0x1,0x1a
014a e00a | | Load 0x0,0xa
014b 180d | | Execute Package,Field_Execute,Field_Number 0xd
014c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
014d a5fa | | Store_Unchecked 0x2,-0x6
014e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
014f e005 | | Load 0x0,0x5
0150 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0151 e402 | | Load 0x2,0x2
0152 e5fb | | Load 0x2,-0x5
0153 e5fc | | Load 0x2,-0x4
0154 e5fd | | Load 0x2,-0x3
0155 e5fe | | Load 0x2,-0x2
0156 8241 | A | Call 0x1,0x41
0157 e5fc | | Load 0x2,-0x4
0158 e5fd | | Load 0x2,-0x3
0159 e5fe | | Load 0x2,-0x2
015a 8240 | @ | Call 0x1,0x40
015b e5fe | | Load 0x2,-0x2
015c e002 | | Load 0x0,0x2
015d 180e | | Execute Package,Field_Execute,Field_Number 0xe
015e c402 | | Store 0x2,0x2
015f 0059 | Y | Store_Top Discrete,At_Offset_1
0160 4800 |H | Short_Literal 0x0
0161 00d9 | | Load_Top At_Offset_1
0162 e005 | | Load 0x0,0x5
0163 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0164 7003 |p | Jump_Nonzero 0x168
0165 00d8 | | Load_Top At_Offset_0
0166 a5f9 | | Store_Unchecked 0x2,-0x7
0167 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0168 4801 |H | Short_Literal 0x1
0169 e23f | ? | Load 0x1,0x3f
016a 1c08 | | Execute_Immediate Run_Utility,0x8
016b e402 | | Load 0x2,0x2
016c e23f | ? | Load 0x1,0x3f
016d 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
016e 0119 | | Execute Any,Check_In_Formal_Type
016f 00d9 | | Load_Top At_Offset_1
0170 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0171 e21a | | Load 0x1,0x1a
0172 e00a | | Load 0x0,0xa
0173 180d | | Execute Package,Field_Execute,Field_Number 0xd
0174 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0175 a5fa | | Store_Unchecked 0x2,-0x6
0176 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0177 TRAP_00a0:
0177 e00b | | Load 0x0,0xb
0178 010f | | Execute Exception,Equal
0179 6807 |h | Jump_Zero 0x181
017a e009 | | Load 0x0,0x9
017b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
017c 6047 |`G | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x000081cd}
017d e005 | | Load 0x0,0x5
017e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017f a5f9 | | Store_Unchecked 0x2,-0x7
0180 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0181 e00c | | Load 0x0,0xc
0182 010f | | Execute Exception,Equal
0183 6807 |h | Jump_Zero 0x18b
0184 e009 | | Load 0x0,0x9
0185 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0186 6039 |`9 | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x000081ce}
0187 e005 | | Load 0x0,0x5
0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0189 a5f9 | | Store_Unchecked 0x2,-0x7
018a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
018b e00d | | Load 0x0,0xd
018c 010f | | Execute Exception,Equal
018d 6807 |h | Jump_Zero 0x195
018e e009 | | Load 0x0,0x9
018f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0190 602b |`+ | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x000081cf}
0191 e005 | | Load 0x0,0x5
0192 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0193 a5f9 | | Store_Unchecked 0x2,-0x7
0194 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0195 4801 |H | Short_Literal 0x1
0196 4802 |H | Short_Literal 0x2
0197 e009 | | Load 0x0,0x9
0198 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0199 035b | [ | Declare_Type Array,Constrained
019a 0337 | 7 | Declare_Variable Array
019b 0092 099f | | Action Push_String_Extended,0x99f ; "Acquire"
019d e009 | | Load 0x0,0x9
019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019f e009 | | Load 0x0,0x9
01a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a1 0119 | | Execute Any,Check_In_Formal_Type
01a2 4801 |H | Short_Literal 0x1
01a3 00da | | Load_Top At_Offset_2
01a4 01d6 | | Execute Vector,Field_Write
01a5 4800 |H | Short_Literal 0x0
01a6 4801 |H | Short_Literal 0x1
01a7 e00e | | Load 0x0,0xe
01a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a9 e009 | | Load 0x0,0x9
01aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ab e009 | | Load 0x0,0x9
01ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ad 0119 | | Execute Any,Check_In_Formal_Type
01ae 4802 |H | Short_Literal 0x2
01af 00da | | Load_Top At_Offset_2
01b0 01d6 | | Execute Vector,Field_Write
01b1 6006 |` | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x0000812d}
01b2 e005 | | Load 0x0,0x5
01b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b4 a5f9 | | Store_Unchecked 0x2,-0x7
01b5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01b6 0000 0000 | | .XXX[0x2]
01b8 0000 0000 | | .LITERAL {0x00000000, 0x0000812d}
01bc 0000 0000 | | .LITERAL {0x00000000, 0x000081cf}
01c0 0000 0000 | | .LITERAL {0x00000000, 0x000081ce}
01c4 0000 0000 | | .LITERAL {0x00000000, 0x000081cd}
01c8 0000 0000 | | .LITERAL {0x00000000, 0x000081d1}
01cc 0000 0000 | | .LITERAL {0x00000000, 0x0000812a}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e4 | | .CONST 0x01e4 ; Address of begin
01d1 02b5 | | .CONST 0x02b5 ; Address of exception handler
01d2 0005 | | .CONST 0x0005 ; Number of locals
01d3 INIT_01d0:
01d3 e002 | | Load 0x0,0x2
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 02c7 | | Declare_Variable Any
01d6 00d8 | | Load_Top At_Offset_0
01d7 1c00 | | Execute_Immediate Run_Utility,0x0
01d8 e003 | | Load 0x0,0x3
01d9 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
01da 0322 | " | Declare_Variable Record
01db 00d8 | | Load_Top At_Offset_0
01dc 1c00 | | Execute_Immediate Run_Utility,0x0
01dd e004 | | Load 0x0,0x4
01de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01df 02c7 | | Declare_Variable Any
01e0 00d8 | | Load_Top At_Offset_0
01e1 1c00 | | Execute_Immediate Run_Utility,0x0
01e2 e005 | | Load 0x0,0x5
01e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e4 BODY_01d0:
01e4 4800 |H | Short_Literal 0x0
01e5 a5f7 | | Store_Unchecked 0x2,-0x9
01e6 e21a | | Load 0x1,0x1a
01e7 a5f8 | | Store_Unchecked 0x2,-0x8
01e8 e005 | | Load 0x0,0x5
01e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ea e006 | | Load 0x0,0x6
01eb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01ec 0059 | Y | Store_Top Discrete,At_Offset_1
01ed 4800 |H | Short_Literal 0x0
01ee 00d9 | | Load_Top At_Offset_1
01ef e005 | | Load 0x0,0x5
01f0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01f1 7003 |p | Jump_Nonzero 0x1f5
01f2 00d8 | | Load_Top At_Offset_0
01f3 a5f7 | | Store_Unchecked 0x2,-0x9
01f4 4508 |E | Exit_Suprogram New_Top_Offset 0x8
01f5 e007 | | Load 0x0,0x7
01f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f7 4801 |H | Short_Literal 0x1
01f8 0092 09a0 | | Action Push_String_Extended,0x9a0 ; "Acquire (Set_Directory => \x22"
01fa e5fe | | Load 0x2,-0x2
01fb 01cc | | Execute Vector,Catenate
01fc 0092 09a1 | | Action Push_String_Extended,0x9a1 ; "\x22, Set_Library => \x22"
01fe 01cc | | Execute Vector,Catenate
01ff e5fd | | Load 0x2,-0x3
0200 01cc | | Execute Vector,Catenate
0201 0092 09a2 | | Action Push_String_Extended,0x9a2 ; "\x22, Remote_Machine => \x22"
0203 01cc | | Execute Vector,Catenate
0204 e5fc | | Load 0x2,-0x4
0205 01cc | | Execute Vector,Catenate
0206 0092 099b | | Action Push_String_Extended,0x99b ; "\x22, Username => \x22"
0208 01cc | | Execute Vector,Catenate
0209 e5fb | | Load 0x2,-0x5
020a 01cc | | Execute Vector,Catenate
020b 0092 099c | | Action Push_String_Extended,0x99c ; "\x22, Password => ???"
020d 01cc | | Execute Vector,Catenate
020e 0092 099d | | Action Push_String_Extended,0x99d ; ", Trace_Command => "
0210 01cc | | Execute Vector,Catenate
0211 e5f9 | | Load 0x2,-0x7
0212 00e1 | | Load_Encached Boolean_Cache
0213 011c | | Execute Any,Convert_Unchecked
0214 1c01 | | Execute_Immediate Run_Utility,0x1
0215 01cc | | Execute Vector,Catenate
0216 0092 099e | | Action Push_String_Extended,0x99e ; ")."
0218 01cc | | Execute Vector,Catenate
0219 e008 | | Load 0x0,0x8
021a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021b e5ff | | Load 0x2,-0x1
021c e001 | | Load 0x0,0x1
021d 18ca | | Execute Package,Field_Execute,Field_Number 0xca
021e 0f01 | | Execute_Immediate Equal,0x1
021f 706b |pk | Jump_Nonzero 0x28b
0220 e5ff | | Load 0x2,-0x1
0221 e001 | | Load 0x0,0x1
0222 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0223 00db | | Load_Top At_Offset_3
0224 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0225 00d9 | | Load_Top At_Offset_1
0226 00db | | Load_Top At_Offset_3
0227 e5f9 | | Load 0x2,-0x7
0228 e5fa | | Load 0x2,-0x6
0229 e5fb | | Load 0x2,-0x5
022a e5fc | | Load 0x2,-0x4
022b 8241 | A | Call 0x1,0x41
022c e5fa | | Load 0x2,-0x6
022d e5fb | | Load 0x2,-0x5
022e e5fc | | Load 0x2,-0x4
022f 8240 | @ | Call 0x1,0x40
0230 e5fc | | Load 0x2,-0x4
0231 e5fd | | Load 0x2,-0x3
0232 e5fe | | Load 0x2,-0x2
0233 e003 | | Load 0x0,0x3
0234 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0235 00d1 | | Pop_Control Pop_Count_1
0236 c404 | | Store 0x2,0x4
0237 4802 |H | Short_Literal 0x2
0238 00da | | Load_Top At_Offset_2
0239 e004 | | Load 0x0,0x4
023a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023b 681f |h | Jump_Zero 0x25b
023c 4801 |H | Short_Literal 0x1
023d 4802 |H | Short_Literal 0x2
023e e009 | | Load 0x0,0x9
023f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0240 035b | [ | Declare_Type Array,Constrained
0241 0337 | 7 | Declare_Variable Array
0242 e5fc | | Load 0x2,-0x4
0243 e009 | | Load 0x0,0x9
0244 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0245 e009 | | Load 0x0,0x9
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 00da | | Load_Top At_Offset_2
024c e004 | | Load 0x0,0x4
024d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024e e009 | | Load 0x0,0x9
024f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0250 e009 | | Load 0x0,0x9
0251 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0252 0119 | | Execute Any,Check_In_Formal_Type
0253 4802 |H | Short_Literal 0x2
0254 00da | | Load_Top At_Offset_2
0255 01d6 | | Execute Vector,Field_Write
0256 6775 |gu | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0000812a}
0257 e005 | | Load 0x0,0x5
0258 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0259 a5f7 | | Store_Unchecked 0x2,-0x9
025a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
025b 4801 |H | Short_Literal 0x1
025c 00da | | Load_Top At_Offset_2
025d e004 | | Load 0x0,0x4
025e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
025f 681f |h | Jump_Zero 0x27f
0260 4801 |H | Short_Literal 0x1
0261 4802 |H | Short_Literal 0x2
0262 e009 | | Load 0x0,0x9
0263 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0264 035b | [ | Declare_Type Array,Constrained
0265 0337 | 7 | Declare_Variable Array
0266 e5fc | | Load 0x2,-0x4
0267 e009 | | Load 0x0,0x9
0268 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0269 e009 | | Load 0x0,0x9
026a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026b 0119 | | Execute Any,Check_In_Formal_Type
026c 4801 |H | Short_Literal 0x1
026d 00da | | Load_Top At_Offset_2
026e 01d6 | | Execute Vector,Field_Write
026f 00da | | Load_Top At_Offset_2
0270 e004 | | Load 0x0,0x4
0271 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0272 e009 | | Load 0x0,0x9
0273 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0274 e009 | | Load 0x0,0x9
0275 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0276 0119 | | Execute Any,Check_In_Formal_Type
0277 4802 |H | Short_Literal 0x2
0278 00da | | Load_Top At_Offset_2
0279 01d6 | | Execute Vector,Field_Write
027a 4806 |H | Short_Literal 0x6
027b 674c |gL | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x000081d1}
027c e005 | | Load 0x0,0x5
027d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
027e a5f7 | | Store_Unchecked 0x2,-0x9
027f 4800 |H | Short_Literal 0x0
0280 e23f | ? | Load 0x1,0x3f
0281 1c08 | | Execute_Immediate Run_Utility,0x8
0282 00db | | Load_Top At_Offset_3
0283 00d9 | | Load_Top At_Offset_1
0284 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0285 e21a | | Load 0x1,0x1a
0286 e00a | | Load 0x0,0xa
0287 180d | | Execute Package,Field_Execute,Field_Number 0xd
0288 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0289 a5f8 | | Store_Unchecked 0x2,-0x8
028a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
028b e005 | | Load 0x0,0x5
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d e402 | | Load 0x2,0x2
028e e5f9 | | Load 0x2,-0x7
028f e5fa | | Load 0x2,-0x6
0290 e5fb | | Load 0x2,-0x5
0291 e5fc | | Load 0x2,-0x4
0292 8241 | A | Call 0x1,0x41
0293 e5fa | | Load 0x2,-0x6
0294 e5fb | | Load 0x2,-0x5
0295 e5fc | | Load 0x2,-0x4
0296 8240 | @ | Call 0x1,0x40
0297 e5fc | | Load 0x2,-0x4
0298 e5fd | | Load 0x2,-0x3
0299 e5fe | | Load 0x2,-0x2
029a e002 | | Load 0x0,0x2
029b 180f | | Execute Package,Field_Execute,Field_Number 0xf
029c c402 | | Store 0x2,0x2
029d 0059 | Y | Store_Top Discrete,At_Offset_1
029e 4800 |H | Short_Literal 0x0
029f 00d9 | | Load_Top At_Offset_1
02a0 e005 | | Load 0x0,0x5
02a1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02a2 7003 |p | Jump_Nonzero 0x2a6
02a3 00d8 | | Load_Top At_Offset_0
02a4 a5f7 | | Store_Unchecked 0x2,-0x9
02a5 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02a6 4801 |H | Short_Literal 0x1
02a7 e23f | ? | Load 0x1,0x3f
02a8 1c08 | | Execute_Immediate Run_Utility,0x8
02a9 e402 | | Load 0x2,0x2
02aa e23f | ? | Load 0x1,0x3f
02ab 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
02ac 0119 | | Execute Any,Check_In_Formal_Type
02ad 00d9 | | Load_Top At_Offset_1
02ae 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02af e21a | | Load 0x1,0x1a
02b0 e00a | | Load 0x0,0xa
02b1 180d | | Execute Package,Field_Execute,Field_Number 0xd
02b2 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02b3 a5f8 | | Store_Unchecked 0x2,-0x8
02b4 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02b5 TRAP_01d0:
02b5 e00b | | Load 0x0,0xb
02b6 010f | | Execute Exception,Equal
02b7 6807 |h | Jump_Zero 0x2bf
02b8 e009 | | Load 0x0,0x9
02b9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02ba 6709 |g | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x000081cd}
02bb e005 | | Load 0x0,0x5
02bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bd a5f7 | | Store_Unchecked 0x2,-0x9
02be 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02bf e00c | | Load 0x0,0xc
02c0 010f | | Execute Exception,Equal
02c1 6807 |h | Jump_Zero 0x2c9
02c2 e009 | | Load 0x0,0x9
02c3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02c4 66fb |f | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x000081ce}
02c5 e005 | | Load 0x0,0x5
02c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c7 a5f7 | | Store_Unchecked 0x2,-0x9
02c8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02c9 e00d | | Load 0x0,0xd
02ca 010f | | Execute Exception,Equal
02cb 6807 |h | Jump_Zero 0x2d3
02cc e009 | | Load 0x0,0x9
02cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02ce 66ed |f | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x000081cf}
02cf e005 | | Load 0x0,0x5
02d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d1 a5f7 | | Store_Unchecked 0x2,-0x9
02d2 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02d3 4801 |H | Short_Literal 0x1
02d4 4802 |H | Short_Literal 0x2
02d5 e009 | | Load 0x0,0x9
02d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d7 035b | [ | Declare_Type Array,Constrained
02d8 0337 | 7 | Declare_Variable Array
02d9 0092 09a3 | | Action Push_String_Extended,0x9a3 ; "Acquire (Directory)"
02db e009 | | Load 0x0,0x9
02dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02dd e009 | | Load 0x0,0x9
02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02df 0119 | | Execute Any,Check_In_Formal_Type
02e0 4801 |H | Short_Literal 0x1
02e1 00da | | Load_Top At_Offset_2
02e2 01d6 | | Execute Vector,Field_Write
02e3 4800 |H | Short_Literal 0x0
02e4 4801 |H | Short_Literal 0x1
02e5 e00e | | Load 0x0,0xe
02e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e7 e009 | | Load 0x0,0x9
02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e9 e009 | | Load 0x0,0x9
02ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02eb 0119 | | Execute Any,Check_In_Formal_Type
02ec 4802 |H | Short_Literal 0x2
02ed 00da | | Load_Top At_Offset_2
02ee 01d6 | | Execute Vector,Field_Write
02ef 66c8 |f | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x0000812d}
02f0 e005 | | Load 0x0,0x5
02f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f2 a5f7 | | Store_Unchecked 0x2,-0x9
02f3 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0300 | | .CONST 0x0300 ; Address of begin
02f9 0366 | f | .CONST 0x0366 ; Address of exception handler
02fa 0002 | | .CONST 0x0002 ; Number of locals
02fb INIT_02f8:
02fb e004 | | Load 0x0,0x4
02fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02fd 02c7 | | Declare_Variable Any
02fe 00d8 | | Load_Top At_Offset_0
02ff 1c00 | | Execute_Immediate Run_Utility,0x0
0300 BODY_02f8:
0300 4800 |H | Short_Literal 0x0
0301 a5fd | | Store_Unchecked 0x2,-0x3
0302 e007 | | Load 0x0,0x7
0303 180e | | Execute Package,Field_Execute,Field_Number 0xe
0304 4801 |H | Short_Literal 0x1
0305 0092 09a4 | | Action Push_String_Extended,0x9a4 ; "Release (Trace_Command => "
0307 e5fe | | Load 0x2,-0x2
0308 00e1 | | Load_Encached Boolean_Cache
0309 011c | | Execute Any,Convert_Unchecked
030a 1c01 | | Execute_Immediate Run_Utility,0x1
030b 01cc | | Execute Vector,Catenate
030c 0092 099e | | Action Push_String_Extended,0x99e ; ")."
030e 01cc | | Execute Vector,Catenate
030f e008 | | Load 0x0,0x8
0310 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0311 00db | | Load_Top At_Offset_3
0312 0217 | | Execute Heap_Access,All_Reference
0313 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0314 0f01 | | Execute_Immediate Equal,0x1
0315 7042 |pB | Jump_Nonzero 0x358
0316 00db | | Load_Top At_Offset_3
0317 0219 | | Execute Heap_Access,All_Read
0318 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0319 00d9 | | Load_Top At_Offset_1
031a 00d9 | | Load_Top At_Offset_1
031b e5fe | | Load 0x2,-0x2
031c e003 | | Load 0x0,0x3
031d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
031e 00d1 | | Pop_Control Pop_Count_1
031f c402 | | Store 0x2,0x2
0320 00d1 | | Pop_Control Pop_Count_1
0321 4802 |H | Short_Literal 0x2
0322 00d9 | | Load_Top At_Offset_1
0323 e004 | | Load 0x0,0x4
0324 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0325 6816 |h | Jump_Zero 0x33c
0326 4801 |H | Short_Literal 0x1
0327 4801 |H | Short_Literal 0x1
0328 e009 | | Load 0x0,0x9
0329 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032a 035b | [ | Declare_Type Array,Constrained
032b 0337 | 7 | Declare_Variable Array
032c 00d9 | | Load_Top At_Offset_1
032d e004 | | Load 0x0,0x4
032e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
032f e009 | | Load 0x0,0x9
0330 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0331 e009 | | Load 0x0,0x9
0332 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0333 0119 | | Execute Any,Check_In_Formal_Type
0334 4801 |H | Short_Literal 0x1
0335 00da | | Load_Top At_Offset_2
0336 01d6 | | Execute Vector,Field_Write
0337 6058 |`X | Indirect_Literal Discrete,0x390,{0x00000000, 0x00008135}
0338 e005 | | Load 0x0,0x5
0339 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033a a5fd | | Store_Unchecked 0x2,-0x3
033b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033c 4801 |H | Short_Literal 0x1
033d 00d9 | | Load_Top At_Offset_1
033e e004 | | Load 0x0,0x4
033f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0340 6816 |h | Jump_Zero 0x357
0341 4801 |H | Short_Literal 0x1
0342 4801 |H | Short_Literal 0x1
0343 e009 | | Load 0x0,0x9
0344 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0345 035b | [ | Declare_Type Array,Constrained
0346 0337 | 7 | Declare_Variable Array
0347 00d9 | | Load_Top At_Offset_1
0348 e004 | | Load 0x0,0x4
0349 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034a e009 | | Load 0x0,0x9
034b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034c e009 | | Load 0x0,0x9
034d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034e 0119 | | Execute Any,Check_In_Formal_Type
034f 4801 |H | Short_Literal 0x1
0350 00da | | Load_Top At_Offset_2
0351 01d6 | | Execute Vector,Field_Write
0352 4806 |H | Short_Literal 0x6
0353 6038 |`8 | Indirect_Literal Discrete,0x38c,{0x00000000, 0x000081d2}
0354 e005 | | Load 0x0,0x5
0355 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0356 a5fd | | Store_Unchecked 0x2,-0x3
0357 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0358 00db | | Load_Top At_Offset_3
0359 0219 | | Execute Heap_Access,All_Read
035a e005 | | Load 0x0,0x5
035b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035c 00d9 | | Load_Top At_Offset_1
035d 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
035e e5fe | | Load 0x2,-0x2
035f e002 | | Load 0x0,0x2
0360 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0361 00da | | Load_Top At_Offset_2
0362 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0363 c5fd | | Store 0x2,-0x3
0364 00d1 | | Pop_Control Pop_Count_1
0365 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0366 TRAP_02f8:
0366 0007 | | Action Break_Optional
0367 4801 |H | Short_Literal 0x1
0368 4802 |H | Short_Literal 0x2
0369 e009 | | Load 0x0,0x9
036a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036b 035b | [ | Declare_Type Array,Constrained
036c 0337 | 7 | Declare_Variable Array
036d 0092 09a5 | | Action Push_String_Extended,0x9a5 ; "Release"
036f e009 | | Load 0x0,0x9
0370 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0371 e009 | | Load 0x0,0x9
0372 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0373 0119 | | Execute Any,Check_In_Formal_Type
0374 4801 |H | Short_Literal 0x1
0375 00da | | Load_Top At_Offset_2
0376 01d6 | | Execute Vector,Field_Write
0377 4800 |H | Short_Literal 0x0
0378 4801 |H | Short_Literal 0x1
0379 e00e | | Load 0x0,0xe
037a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
037b e009 | | Load 0x0,0x9
037c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
037d e009 | | Load 0x0,0x9
037e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037f 0119 | | Execute Any,Check_In_Formal_Type
0380 4802 |H | Short_Literal 0x2
0381 00da | | Load_Top At_Offset_2
0382 01d6 | | Execute Vector,Field_Write
0383 6004 |` | Indirect_Literal Discrete,0x388,{0x00000000, 0x0000812d}
0384 e005 | | Load 0x0,0x5
0385 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0386 a5fd | | Store_Unchecked 0x2,-0x3
0387 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0388 0000 0000 | | .LITERAL {0x00000000, 0x0000812d}
038c 0000 0000 | | .LITERAL {0x00000000, 0x000081d2}
0390 0000 0000 | | .LITERAL {0x00000000, 0x00008135}
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a0 | | .CONST 0x03a0 ; Address of begin
0399 0406 | | .CONST 0x0406 ; Address of exception handler
039a 0002 | | .CONST 0x0002 ; Number of locals
039b INIT_0398:
039b e004 | | Load 0x0,0x4
039c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
039d 02c7 | | Declare_Variable Any
039e 00d8 | | Load_Top At_Offset_0
039f 1c00 | | Execute_Immediate Run_Utility,0x0
03a0 BODY_0398:
03a0 4800 |H | Short_Literal 0x0
03a1 a5fd | | Store_Unchecked 0x2,-0x3
03a2 e007 | | Load 0x0,0x7
03a3 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a4 4801 |H | Short_Literal 0x1
03a5 0092 09a6 | | Action Push_String_Extended,0x9a6 ; "Destroy (Trace_Command => "
03a7 e5fe | | Load 0x2,-0x2
03a8 00e1 | | Load_Encached Boolean_Cache
03a9 011c | | Execute Any,Convert_Unchecked
03aa 1c01 | | Execute_Immediate Run_Utility,0x1
03ab 01cc | | Execute Vector,Catenate
03ac 0092 099e | | Action Push_String_Extended,0x99e ; ")."
03ae 01cc | | Execute Vector,Catenate
03af e008 | | Load 0x0,0x8
03b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b1 00db | | Load_Top At_Offset_3
03b2 0217 | | Execute Heap_Access,All_Reference
03b3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03b4 0f01 | | Execute_Immediate Equal,0x1
03b5 7042 |pB | Jump_Nonzero 0x3f8
03b6 00db | | Load_Top At_Offset_3
03b7 0219 | | Execute Heap_Access,All_Read
03b8 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03b9 00d9 | | Load_Top At_Offset_1
03ba 00d9 | | Load_Top At_Offset_1
03bb e5fe | | Load 0x2,-0x2
03bc e003 | | Load 0x0,0x3
03bd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03be 00d1 | | Pop_Control Pop_Count_1
03bf c402 | | Store 0x2,0x2
03c0 00d1 | | Pop_Control Pop_Count_1
03c1 4802 |H | Short_Literal 0x2
03c2 00d9 | | Load_Top At_Offset_1
03c3 e004 | | Load 0x0,0x4
03c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03c5 6816 |h | Jump_Zero 0x3dc
03c6 4801 |H | Short_Literal 0x1
03c7 4801 |H | Short_Literal 0x1
03c8 e009 | | Load 0x0,0x9
03c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ca 035b | [ | Declare_Type Array,Constrained
03cb 0337 | 7 | Declare_Variable Array
03cc 00d9 | | Load_Top At_Offset_1
03cd e004 | | Load 0x0,0x4
03ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03cf e009 | | Load 0x0,0x9
03d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d1 e009 | | Load 0x0,0x9
03d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d3 0119 | | Execute Any,Check_In_Formal_Type
03d4 4801 |H | Short_Literal 0x1
03d5 00da | | Load_Top At_Offset_2
03d6 01d6 | | Execute Vector,Field_Write
03d7 6054 |`T | Indirect_Literal Discrete,0x42c,{0x00000000, 0x0000812f}
03d8 e005 | | Load 0x0,0x5
03d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03da a5fd | | Store_Unchecked 0x2,-0x3
03db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03dc 4801 |H | Short_Literal 0x1
03dd 00d9 | | Load_Top At_Offset_1
03de e004 | | Load 0x0,0x4
03df 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03e0 6824 |h$ | Jump_Zero 0x405
03e1 4801 |H | Short_Literal 0x1
03e2 4801 |H | Short_Literal 0x1
03e3 e009 | | Load 0x0,0x9
03e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e5 035b | [ | Declare_Type Array,Constrained
03e6 0337 | 7 | Declare_Variable Array
03e7 00d9 | | Load_Top At_Offset_1
03e8 e004 | | Load 0x0,0x4
03e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03ea e009 | | Load 0x0,0x9
03eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ec e009 | | Load 0x0,0x9
03ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ee 0119 | | Execute Any,Check_In_Formal_Type
03ef 4801 |H | Short_Literal 0x1
03f0 00da | | Load_Top At_Offset_2
03f1 01d6 | | Execute Vector,Field_Write
03f2 4806 |H | Short_Literal 0x6
03f3 6034 |`4 | Indirect_Literal Discrete,0x428,{0x00000000, 0x000081d3}
03f4 e005 | | Load 0x0,0x5
03f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03f6 a5fd | | Store_Unchecked 0x2,-0x3
03f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f8 00db | | Load_Top At_Offset_3
03f9 0219 | | Execute Heap_Access,All_Read
03fa e005 | | Load 0x0,0x5
03fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fc 00d9 | | Load_Top At_Offset_1
03fd 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03fe e5fe | | Load 0x2,-0x2
03ff e002 | | Load 0x0,0x2
0400 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0401 00da | | Load_Top At_Offset_2
0402 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0403 c5fd | | Store 0x2,-0x3
0404 00d1 | | Pop_Control Pop_Count_1
0405 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0406 TRAP_0398:
0406 0007 | | Action Break_Optional
0407 4801 |H | Short_Literal 0x1
0408 4802 |H | Short_Literal 0x2
0409 e009 | | Load 0x0,0x9
040a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
040b 035b | [ | Declare_Type Array,Constrained
040c 0337 | 7 | Declare_Variable Array
040d 0092 09a7 | | Action Push_String_Extended,0x9a7 ; "Destroy"
040f e009 | | Load 0x0,0x9
0410 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0411 e009 | | Load 0x0,0x9
0412 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0413 0119 | | Execute Any,Check_In_Formal_Type
0414 4801 |H | Short_Literal 0x1
0415 00da | | Load_Top At_Offset_2
0416 01d6 | | Execute Vector,Field_Write
0417 4800 |H | Short_Literal 0x0
0418 4801 |H | Short_Literal 0x1
0419 e00e | | Load 0x0,0xe
041a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
041b e009 | | Load 0x0,0x9
041c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
041d e009 | | Load 0x0,0x9
041e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041f 0119 | | Execute Any,Check_In_Formal_Type
0420 4802 |H | Short_Literal 0x2
0421 00da | | Load_Top At_Offset_2
0422 01d6 | | Execute Vector,Field_Write
0423 6764 |gd | Indirect_Literal Discrete,0x388,{0x00000000, 0x0000812d}
0424 e005 | | Load 0x0,0x5
0425 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0426 a5fd | | Store_Unchecked 0x2,-0x3
0427 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0428 0000 0000 | | .LITERAL {0x00000000, 0x000081d3}
042c 0000 0000 | | .LITERAL {0x00000000, 0x0000812f}
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0438 | 8 | .CONST 0x0438 ; Address of begin
0431 04ba | | .CONST 0x04ba ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 e004 | | Load 0x0,0x4
0434 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0435 02c7 | | Declare_Variable Any
0436 00d8 | | Load_Top At_Offset_0
0437 1c00 | | Execute_Immediate Run_Utility,0x0
0438 BODY_0430:
0438 4800 |H | Short_Literal 0x0
0439 a5fb | | Store_Unchecked 0x2,-0x5
043a e007 | | Load 0x0,0x7
043b 180e | | Execute Package,Field_Execute,Field_Number 0xe
043c 4801 |H | Short_Literal 0x1
043d 0092 09a8 | | Action Push_String_Extended,0x9a8 ; "Set_Remote_Directory (Set_Directory => \x22"
043f e5ff | | Load 0x2,-0x1
0440 01cc | | Execute Vector,Catenate
0441 0092 09a1 | | Action Push_String_Extended,0x9a1 ; "\x22, Set_Library => \x22"
0443 01cc | | Execute Vector,Catenate
0444 e5fd | | Load 0x2,-0x3
0445 01cc | | Execute Vector,Catenate
0446 0092 09a9 | | Action Push_String_Extended,0x9a9 ; "\x22, Trace_Command => "
0448 01cc | | Execute Vector,Catenate
0449 e5fc | | Load 0x2,-0x4
044a 00e1 | | Load_Encached Boolean_Cache
044b 011c | | Execute Any,Convert_Unchecked
044c 1c01 | | Execute_Immediate Run_Utility,0x1
044d 01cc | | Execute Vector,Catenate
044e 0092 099e | | Action Push_String_Extended,0x99e ; ")."
0450 01cc | | Execute Vector,Catenate
0451 e008 | | Load 0x0,0x8
0452 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0453 e5fe | | Load 0x2,-0x2
0454 0217 | | Execute Heap_Access,All_Reference
0455 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0456 0f01 | | Execute_Immediate Equal,0x1
0457 7056 |pV | Jump_Nonzero 0x4ae
0458 00d8 | | Load_Top At_Offset_0
0459 e5fc | | Load 0x2,-0x4
045a e5fd | | Load 0x2,-0x3
045b e5fe | | Load 0x2,-0x2
045c 0217 | | Execute Heap_Access,All_Reference
045d 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
045e e5ff | | Load 0x2,-0x1
045f e003 | | Load 0x0,0x3
0460 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0461 c402 | | Store 0x2,0x2
0462 4802 |H | Short_Literal 0x2
0463 00d9 | | Load_Top At_Offset_1
0464 e004 | | Load 0x0,0x4
0465 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0466 6822 |h" | Jump_Zero 0x489
0467 4801 |H | Short_Literal 0x1
0468 4801 |H | Short_Literal 0x1
0469 e009 | | Load 0x0,0x9
046a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
046b 035b | [ | Declare_Type Array,Constrained
046c 0337 | 7 | Declare_Variable Array
046d 0092 09aa | | Action Push_String_Extended,0x9aa ; "Command \x22"
046f e5ff | | Load 0x2,-0x1
0470 01cc | | Execute Vector,Catenate
0471 0092 09ab | | Action Push_String_Extended,0x9ab ; "\x22 failed to set remote directory."
0473 01cc | | Execute Vector,Catenate
0474 0092 09ac | | Action Push_String_Extended,0x9ac ; " Got bad status code = "
0476 01cc | | Execute Vector,Catenate
0477 00da | | Load_Top At_Offset_2
0478 e004 | | Load 0x0,0x4
0479 1818 | | Execute Package,Field_Execute,Field_Number 0x18
047a 01cc | | Execute Vector,Catenate
047b e009 | | Load 0x0,0x9
047c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
047d e009 | | Load 0x0,0x9
047e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
047f 0119 | | Execute Any,Check_In_Formal_Type
0480 4801 |H | Short_Literal 0x1
0481 00da | | Load_Top At_Offset_2
0482 01d6 | | Execute Vector,Field_Write
0483 4807 |H | Short_Literal 0x7
0484 605f |`_ | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x00008128}
0485 e005 | | Load 0x0,0x5
0486 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0487 a5fb | | Store_Unchecked 0x2,-0x5
0488 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0489 4801 |H | Short_Literal 0x1
048a 00d9 | | Load_Top At_Offset_1
048b e004 | | Load 0x0,0x4
048c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
048d 681f |h | Jump_Zero 0x4ad
048e 4801 |H | Short_Literal 0x1
048f 4802 |H | Short_Literal 0x2
0490 e009 | | Load 0x0,0x9
0491 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0492 035b | [ | Declare_Type Array,Constrained
0493 0337 | 7 | Declare_Variable Array
0494 e5ff | | Load 0x2,-0x1
0495 e009 | | Load 0x0,0x9
0496 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0497 e009 | | Load 0x0,0x9
0498 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0499 0119 | | Execute Any,Check_In_Formal_Type
049a 4801 |H | Short_Literal 0x1
049b 00da | | Load_Top At_Offset_2
049c 01d6 | | Execute Vector,Field_Write
049d 00d9 | | Load_Top At_Offset_1
049e e004 | | Load 0x0,0x4
049f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04a0 e009 | | Load 0x0,0x9
04a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04a2 e009 | | Load 0x0,0x9
04a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a4 0119 | | Execute Any,Check_In_Formal_Type
04a5 4802 |H | Short_Literal 0x2
04a6 00da | | Load_Top At_Offset_2
04a7 01d6 | | Execute Vector,Field_Write
04a8 4806 |H | Short_Literal 0x6
04a9 6036 |`6 | Indirect_Literal Discrete,0x4e0,{0x00000000, 0x000081d4}
04aa e005 | | Load 0x0,0x5
04ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04ac a5fb | | Store_Unchecked 0x2,-0x5
04ad 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04ae e005 | | Load 0x0,0x5
04af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b0 e5fc | | Load 0x2,-0x4
04b1 e5fd | | Load 0x2,-0x3
04b2 e5fe | | Load 0x2,-0x2
04b3 0217 | | Execute Heap_Access,All_Reference
04b4 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04b5 e5ff | | Load 0x2,-0x1
04b6 e002 | | Load 0x0,0x2
04b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04b8 c5fb | | Store 0x2,-0x5
04b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04ba TRAP_0430:
04ba 0007 | | Action Break_Optional
04bb 4801 |H | Short_Literal 0x1
04bc 4802 |H | Short_Literal 0x2
04bd e009 | | Load 0x0,0x9
04be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04bf 035b | [ | Declare_Type Array,Constrained
04c0 0337 | 7 | Declare_Variable Array
04c1 0092 09ad | | Action Push_String_Extended,0x9ad ; "Set_Remote_Directory"
04c3 e009 | | Load 0x0,0x9
04c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04c5 e009 | | Load 0x0,0x9
04c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c7 0119 | | Execute Any,Check_In_Formal_Type
04c8 4801 |H | Short_Literal 0x1
04c9 00da | | Load_Top At_Offset_2
04ca 01d6 | | Execute Vector,Field_Write
04cb 4800 |H | Short_Literal 0x0
04cc 4801 |H | Short_Literal 0x1
04cd e00e | | Load 0x0,0xe
04ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04cf e009 | | Load 0x0,0x9
04d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04d1 e009 | | Load 0x0,0x9
04d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d3 0119 | | Execute Any,Check_In_Formal_Type
04d4 4802 |H | Short_Literal 0x2
04d5 00da | | Load_Top At_Offset_2
04d6 01d6 | | Execute Vector,Field_Write
04d7 6004 |` | Indirect_Literal Discrete,0x4dc,{0x00000000, 0x0000812d}
04d8 e005 | | Load 0x0,0x5
04d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04da a5fb | | Store_Unchecked 0x2,-0x5
04db 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04dc 0000 0000 | | .LITERAL {0x00000000, 0x0000812d}
04e0 0000 0000 | | .LITERAL {0x00000000, 0x000081d4}
04e4 0000 0000 | | .LITERAL {0x00000000, 0x00008128}
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f2 | | .CONST 0x04f2 ; Address of begin
04e9 057a | z | .CONST 0x057a ; Address of exception handler
04ea 0003 | | .CONST 0x0003 ; Number of locals
04eb INIT_04e8:
04eb e004 | | Load 0x0,0x4
04ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ed 02c7 | | Declare_Variable Any
04ee 00d8 | | Load_Top At_Offset_0
04ef 1c00 | | Execute_Immediate Run_Utility,0x0
04f0 e003 | | Load 0x0,0x3
04f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f2 BODY_04e8:
04f2 4800 |H | Short_Literal 0x0
04f3 a5fa | | Store_Unchecked 0x2,-0x6
04f4 e007 | | Load 0x0,0x7
04f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
04f6 4801 |H | Short_Literal 0x1
04f7 0092 09ae | | Action Push_String_Extended,0x9ae ; "Put (Host_File_Name => \x22"
04f9 e5ff | | Load 0x2,-0x1
04fa 01cc | | Execute Vector,Catenate
04fb 0092 09af | | Action Push_String_Extended,0x9af ; "\x22, Target_File_Name => \x22"
04fd 01cc | | Execute Vector,Catenate
04fe e5fe | | Load 0x2,-0x2
04ff 01cc | | Execute Vector,Catenate
0500 0092 09a9 | | Action Push_String_Extended,0x9a9 ; "\x22, Trace_Command => "
0502 01cc | | Execute Vector,Catenate
0503 e5fb | | Load 0x2,-0x5
0504 00e1 | | Load_Encached Boolean_Cache
0505 011c | | Execute Any,Convert_Unchecked
0506 1c01 | | Execute_Immediate Run_Utility,0x1
0507 01cc | | Execute Vector,Catenate
0508 0092 099e | | Action Push_String_Extended,0x99e ; ")."
050a 01cc | | Execute Vector,Catenate
050b e008 | | Load 0x0,0x8
050c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
050d e5fd | | Load 0x2,-0x3
050e 0217 | | Execute Heap_Access,All_Reference
050f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0510 0f01 | | Execute_Immediate Equal,0x1
0511 705b |p[ | Jump_Nonzero 0x56d
0512 e5fc | | Load 0x2,-0x4
0513 7003 |p | Jump_Nonzero 0x517
0514 4800 |H | Short_Literal 0x0
0515 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0516 7802 |x | Jump 0x519
0517 4801 |H | Short_Literal 0x1
0518 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0519 00d9 | | Load_Top At_Offset_1
051a e5fb | | Load 0x2,-0x5
051b 00da | | Load_Top At_Offset_2
051c e5fd | | Load 0x2,-0x3
051d 0217 | | Execute Heap_Access,All_Reference
051e 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
051f e5fe | | Load 0x2,-0x2
0520 e5ff | | Load 0x2,-0x1
0521 e003 | | Load 0x0,0x3
0522 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0523 c402 | | Store 0x2,0x2
0524 4802 |H | Short_Literal 0x2
0525 00da | | Load_Top At_Offset_2
0526 e004 | | Load 0x0,0x4
0527 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0528 6828 |h( | Jump_Zero 0x551
0529 4801 |H | Short_Literal 0x1
052a 4803 |H | Short_Literal 0x3
052b e009 | | Load 0x0,0x9
052c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052d 035b | [ | Declare_Type Array,Constrained
052e 0337 | 7 | Declare_Variable Array
052f e5ff | | Load 0x2,-0x1
0530 e009 | | Load 0x0,0x9
0531 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0532 e009 | | Load 0x0,0x9
0533 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0534 0119 | | Execute Any,Check_In_Formal_Type
0535 4801 |H | Short_Literal 0x1
0536 00da | | Load_Top At_Offset_2
0537 01d6 | | Execute Vector,Field_Write
0538 e5fe | | Load 0x2,-0x2
0539 e009 | | Load 0x0,0x9
053a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
053b e009 | | Load 0x0,0x9
053c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
053d 0119 | | Execute Any,Check_In_Formal_Type
053e 4802 |H | Short_Literal 0x2
053f 00da | | Load_Top At_Offset_2
0540 01d6 | | Execute Vector,Field_Write
0541 00da | | Load_Top At_Offset_2
0542 e004 | | Load 0x0,0x4
0543 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0544 e009 | | Load 0x0,0x9
0545 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0546 e009 | | Load 0x0,0x9
0547 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0548 0119 | | Execute Any,Check_In_Formal_Type
0549 4803 |H | Short_Literal 0x3
054a 00da | | Load_Top At_Offset_2
054b 01d6 | | Execute Vector,Field_Write
054c 6053 |`S | Indirect_Literal Discrete,0x5a0,{0x00000000, 0x00008134}
054d e005 | | Load 0x0,0x5
054e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054f a5fa | | Store_Unchecked 0x2,-0x6
0550 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0551 4801 |H | Short_Literal 0x1
0552 00da | | Load_Top At_Offset_2
0553 e004 | | Load 0x0,0x4
0554 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0555 6816 |h | Jump_Zero 0x56c
0556 4801 |H | Short_Literal 0x1
0557 4801 |H | Short_Literal 0x1
0558 e009 | | Load 0x0,0x9
0559 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055a 035b | [ | Declare_Type Array,Constrained
055b 0337 | 7 | Declare_Variable Array
055c 00da | | Load_Top At_Offset_2
055d e004 | | Load 0x0,0x4
055e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
055f e009 | | Load 0x0,0x9
0560 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0561 e009 | | Load 0x0,0x9
0562 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0563 0119 | | Execute Any,Check_In_Formal_Type
0564 4801 |H | Short_Literal 0x1
0565 00da | | Load_Top At_Offset_2
0566 01d6 | | Execute Vector,Field_Write
0567 4806 |H | Short_Literal 0x6
0568 6033 |`3 | Indirect_Literal Discrete,0x59c,{0x00000000, 0x000081d5}
0569 e005 | | Load 0x0,0x5
056a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
056b a5fa | | Store_Unchecked 0x2,-0x6
056c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
056d e005 | | Load 0x0,0x5
056e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
056f e5fb | | Load 0x2,-0x5
0570 e5fc | | Load 0x2,-0x4
0571 e5fd | | Load 0x2,-0x3
0572 0217 | | Execute Heap_Access,All_Reference
0573 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0574 e5fe | | Load 0x2,-0x2
0575 e5ff | | Load 0x2,-0x1
0576 e002 | | Load 0x0,0x2
0577 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0578 c5fa | | Store 0x2,-0x6
0579 4506 |E | Exit_Suprogram New_Top_Offset 0x6
057a TRAP_04e8:
057a 0007 | | Action Break_Optional
057b 4801 |H | Short_Literal 0x1
057c 4802 |H | Short_Literal 0x2
057d e009 | | Load 0x0,0x9
057e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
057f 035b | [ | Declare_Type Array,Constrained
0580 0337 | 7 | Declare_Variable Array
0581 0092 09b0 | | Action Push_String_Extended,0x9b0 ; "Put"
0583 e009 | | Load 0x0,0x9
0584 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0585 e009 | | Load 0x0,0x9
0586 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0587 0119 | | Execute Any,Check_In_Formal_Type
0588 4801 |H | Short_Literal 0x1
0589 00da | | Load_Top At_Offset_2
058a 01d6 | | Execute Vector,Field_Write
058b 4800 |H | Short_Literal 0x0
058c 4801 |H | Short_Literal 0x1
058d e00e | | Load 0x0,0xe
058e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
058f e009 | | Load 0x0,0x9
0590 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0591 e009 | | Load 0x0,0x9
0592 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0593 0119 | | Execute Any,Check_In_Formal_Type
0594 4802 |H | Short_Literal 0x2
0595 00da | | Load_Top At_Offset_2
0596 01d6 | | Execute Vector,Field_Write
0597 6744 |gD | Indirect_Literal Discrete,0x4dc,{0x00000000, 0x0000812d}
0598 e005 | | Load 0x0,0x5
0599 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059a a5fa | | Store_Unchecked 0x2,-0x6
059b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
059c 0000 0000 | | .LITERAL {0x00000000, 0x000081d5}
05a0 0000 0000 | | .LITERAL {0x00000000, 0x00008134}
05a4 0000 0000 | | .BLANK 0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b2 | | .CONST 0x05b2 ; Address of begin
05a9 063a | : | .CONST 0x063a ; Address of exception handler
05aa 0003 | | .CONST 0x0003 ; Number of locals
05ab INIT_05a8:
05ab e004 | | Load 0x0,0x4
05ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ad 02c7 | | Declare_Variable Any
05ae 00d8 | | Load_Top At_Offset_0
05af 1c00 | | Execute_Immediate Run_Utility,0x0
05b0 e003 | | Load 0x0,0x3
05b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b2 BODY_05a8:
05b2 4800 |H | Short_Literal 0x0
05b3 a5fa | | Store_Unchecked 0x2,-0x6
05b4 e007 | | Load 0x0,0x7
05b5 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b6 4801 |H | Short_Literal 0x1
05b7 0092 09b1 | | Action Push_String_Extended,0x9b1 ; "Get (Host_File_Name => \x22"
05b9 e5ff | | Load 0x2,-0x1
05ba 01cc | | Execute Vector,Catenate
05bb 0092 09af | | Action Push_String_Extended,0x9af ; "\x22, Target_File_Name => \x22"
05bd 01cc | | Execute Vector,Catenate
05be e5fe | | Load 0x2,-0x2
05bf 01cc | | Execute Vector,Catenate
05c0 0092 09a9 | | Action Push_String_Extended,0x9a9 ; "\x22, Trace_Command => "
05c2 01cc | | Execute Vector,Catenate
05c3 e5fb | | Load 0x2,-0x5
05c4 00e1 | | Load_Encached Boolean_Cache
05c5 011c | | Execute Any,Convert_Unchecked
05c6 1c01 | | Execute_Immediate Run_Utility,0x1
05c7 01cc | | Execute Vector,Catenate
05c8 0092 099e | | Action Push_String_Extended,0x99e ; ")."
05ca 01cc | | Execute Vector,Catenate
05cb e008 | | Load 0x0,0x8
05cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05cd e5fd | | Load 0x2,-0x3
05ce 0217 | | Execute Heap_Access,All_Reference
05cf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05d0 0f01 | | Execute_Immediate Equal,0x1
05d1 705b |p[ | Jump_Nonzero 0x62d
05d2 e5fc | | Load 0x2,-0x4
05d3 7003 |p | Jump_Nonzero 0x5d7
05d4 4800 |H | Short_Literal 0x0
05d5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05d6 7802 |x | Jump 0x5d9
05d7 4801 |H | Short_Literal 0x1
05d8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05d9 00d9 | | Load_Top At_Offset_1
05da e5fb | | Load 0x2,-0x5
05db 00da | | Load_Top At_Offset_2
05dc e5fd | | Load 0x2,-0x3
05dd 0217 | | Execute Heap_Access,All_Reference
05de 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05df e5fe | | Load 0x2,-0x2
05e0 e5ff | | Load 0x2,-0x1
05e1 e003 | | Load 0x0,0x3
05e2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
05e3 c402 | | Store 0x2,0x2
05e4 4802 |H | Short_Literal 0x2
05e5 00da | | Load_Top At_Offset_2
05e6 e004 | | Load 0x0,0x4
05e7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05e8 6828 |h( | Jump_Zero 0x611
05e9 4801 |H | Short_Literal 0x1
05ea 4803 |H | Short_Literal 0x3
05eb e009 | | Load 0x0,0x9
05ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ed 035b | [ | Declare_Type Array,Constrained
05ee 0337 | 7 | Declare_Variable Array
05ef e5ff | | Load 0x2,-0x1
05f0 e009 | | Load 0x0,0x9
05f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05f2 e009 | | Load 0x0,0x9
05f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f4 0119 | | Execute Any,Check_In_Formal_Type
05f5 4801 |H | Short_Literal 0x1
05f6 00da | | Load_Top At_Offset_2
05f7 01d6 | | Execute Vector,Field_Write
05f8 e5fe | | Load 0x2,-0x2
05f9 e009 | | Load 0x0,0x9
05fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05fb e009 | | Load 0x0,0x9
05fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05fd 0119 | | Execute Any,Check_In_Formal_Type
05fe 4802 |H | Short_Literal 0x2
05ff 00da | | Load_Top At_Offset_2
0600 01d6 | | Execute Vector,Field_Write
0601 00da | | Load_Top At_Offset_2
0602 e004 | | Load 0x0,0x4
0603 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0604 e009 | | Load 0x0,0x9
0605 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0606 e009 | | Load 0x0,0x9
0607 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0608 0119 | | Execute Any,Check_In_Formal_Type
0609 4803 |H | Short_Literal 0x3
060a 00da | | Load_Top At_Offset_2
060b 01d6 | | Execute Vector,Field_Write
060c 6057 |`W | Indirect_Literal Discrete,0x664,{0x00000000, 0x00008133}
060d e005 | | Load 0x0,0x5
060e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060f a5fa | | Store_Unchecked 0x2,-0x6
0610 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0611 4801 |H | Short_Literal 0x1
0612 00da | | Load_Top At_Offset_2
0613 e004 | | Load 0x0,0x4
0614 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0615 6816 |h | Jump_Zero 0x62c
0616 4801 |H | Short_Literal 0x1
0617 4801 |H | Short_Literal 0x1
0618 e009 | | Load 0x0,0x9
0619 1b0f | | Execute Package,Field_Read,Field_Number 0xf
061a 035b | [ | Declare_Type Array,Constrained
061b 0337 | 7 | Declare_Variable Array
061c 00da | | Load_Top At_Offset_2
061d e004 | | Load 0x0,0x4
061e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
061f e009 | | Load 0x0,0x9
0620 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0621 e009 | | Load 0x0,0x9
0622 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0623 0119 | | Execute Any,Check_In_Formal_Type
0624 4801 |H | Short_Literal 0x1
0625 00da | | Load_Top At_Offset_2
0626 01d6 | | Execute Vector,Field_Write
0627 4806 |H | Short_Literal 0x6
0628 6037 |`7 | Indirect_Literal Discrete,0x660,{0x00000000, 0x000081d6}
0629 e005 | | Load 0x0,0x5
062a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
062b a5fa | | Store_Unchecked 0x2,-0x6
062c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
062d e005 | | Load 0x0,0x5
062e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062f e5fb | | Load 0x2,-0x5
0630 e5fc | | Load 0x2,-0x4
0631 e5fd | | Load 0x2,-0x3
0632 0217 | | Execute Heap_Access,All_Reference
0633 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0634 e5fe | | Load 0x2,-0x2
0635 e5ff | | Load 0x2,-0x1
0636 e002 | | Load 0x0,0x2
0637 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0638 c5fa | | Store 0x2,-0x6
0639 4506 |E | Exit_Suprogram New_Top_Offset 0x6
063a TRAP_05a8:
063a 0007 | | Action Break_Optional
063b 4801 |H | Short_Literal 0x1
063c 4802 |H | Short_Literal 0x2
063d e009 | | Load 0x0,0x9
063e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
063f 035b | [ | Declare_Type Array,Constrained
0640 0337 | 7 | Declare_Variable Array
0641 0092 09b2 | | Action Push_String_Extended,0x9b2 ; "Get"
0643 e009 | | Load 0x0,0x9
0644 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0645 e009 | | Load 0x0,0x9
0646 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0647 0119 | | Execute Any,Check_In_Formal_Type
0648 4801 |H | Short_Literal 0x1
0649 00da | | Load_Top At_Offset_2
064a 01d6 | | Execute Vector,Field_Write
064b 4800 |H | Short_Literal 0x0
064c 4801 |H | Short_Literal 0x1
064d e00e | | Load 0x0,0xe
064e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
064f e009 | | Load 0x0,0x9
0650 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0651 e009 | | Load 0x0,0x9
0652 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0653 0119 | | Execute Any,Check_In_Formal_Type
0654 4802 |H | Short_Literal 0x2
0655 00da | | Load_Top At_Offset_2
0656 01d6 | | Execute Vector,Field_Write
0657 6004 |` | Indirect_Literal Discrete,0x65c,{0x00000000, 0x0000812d}
0658 e005 | | Load 0x0,0x5
0659 1813 | | Execute Package,Field_Execute,Field_Number 0x13
065a a5fa | | Store_Unchecked 0x2,-0x6
065b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
065c 0000 0000 | | .LITERAL {0x00000000, 0x0000812d}
0660 0000 0000 | | .LITERAL {0x00000000, 0x000081d6}
0664 0000 0000 | | .LITERAL {0x00000000, 0x00008133}
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 0670 | p | .CONST 0x0670 ; Address of begin
0669 070d | | .CONST 0x070d ; Address of exception handler
066a 0002 | | .CONST 0x0002 ; Number of locals
066b INIT_0668:
066b e004 | | Load 0x0,0x4
066c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
066d 02c7 | | Declare_Variable Any
066e 00d8 | | Load_Top At_Offset_0
066f 1c00 | | Execute_Immediate Run_Utility,0x0
0670 BODY_0668:
0670 4800 |H | Short_Literal 0x0
0671 a5f8 | | Store_Unchecked 0x2,-0x8
0672 e007 | | Load 0x0,0x7
0673 180e | | Execute Package,Field_Execute,Field_Number 0xe
0674 4801 |H | Short_Literal 0x1
0675 0092 09b3 | | Action Push_String_Extended,0x9b3 ; "Execute_Command (Command_Line => \x22"
0677 e5ff | | Load 0x2,-0x1
0678 01cc | | Execute Vector,Catenate
0679 0092 09b4 | | Action Push_String_Extended,0x9b4 ; "\x22, Error_Pattern => \x22"
067b 01cc | | Execute Vector,Catenate
067c e5fd | | Load 0x2,-0x3
067d 01cc | | Execute Vector,Catenate
067e 0092 09b5 | | Action Push_String_Extended,0x9b5 ; "\x22, Parse_Error_Output => "
0680 01cc | | Execute Vector,Catenate
0681 e5fc | | Load 0x2,-0x4
0682 00e1 | | Load_Encached Boolean_Cache
0683 011c | | Execute Any,Convert_Unchecked
0684 1c01 | | Execute_Immediate Run_Utility,0x1
0685 01cc | | Execute Vector,Catenate
0686 0092 09b6 | | Action Push_String_Extended,0x9b6 ; ", Parse_Standard_Output => "
0688 01cc | | Execute Vector,Catenate
0689 e5fb | | Load 0x2,-0x5
068a 00e1 | | Load_Encached Boolean_Cache
068b 011c | | Execute Any,Convert_Unchecked
068c 1c01 | | Execute_Immediate Run_Utility,0x1
068d 01cc | | Execute Vector,Catenate
068e 0092 09b7 | | Action Push_String_Extended,0x9b7 ; ", Show_Parsed_Output => "
0690 01cc | | Execute Vector,Catenate
0691 e5fa | | Load 0x2,-0x6
0692 00e1 | | Load_Encached Boolean_Cache
0693 011c | | Execute Any,Convert_Unchecked
0694 1c01 | | Execute_Immediate Run_Utility,0x1
0695 01cc | | Execute Vector,Catenate
0696 0092 099d | | Action Push_String_Extended,0x99d ; ", Trace_Command => "
0698 01cc | | Execute Vector,Catenate
0699 e5f9 | | Load 0x2,-0x7
069a 00e1 | | Load_Encached Boolean_Cache
069b 011c | | Execute Any,Convert_Unchecked
069c 1c01 | | Execute_Immediate Run_Utility,0x1
069d 01cc | | Execute Vector,Catenate
069e 0092 099e | | Action Push_String_Extended,0x99e ; ")."
06a0 01cc | | Execute Vector,Catenate
06a1 e008 | | Load 0x0,0x8
06a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06a3 e5fe | | Load 0x2,-0x2
06a4 0217 | | Execute Heap_Access,All_Reference
06a5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06a6 0f01 | | Execute_Immediate Equal,0x1
06a7 7056 |pV | Jump_Nonzero 0x6fe
06a8 00d8 | | Load_Top At_Offset_0
06a9 e5f9 | | Load 0x2,-0x7
06aa e5fa | | Load 0x2,-0x6
06ab e5fb | | Load 0x2,-0x5
06ac e5fc | | Load 0x2,-0x4
06ad e5fd | | Load 0x2,-0x3
06ae e5fe | | Load 0x2,-0x2
06af 0217 | | Execute Heap_Access,All_Reference
06b0 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
06b1 e5ff | | Load 0x2,-0x1
06b2 e003 | | Load 0x0,0x3
06b3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06b4 c402 | | Store 0x2,0x2
06b5 4802 |H | Short_Literal 0x2
06b6 00d9 | | Load_Top At_Offset_1
06b7 e004 | | Load 0x0,0x4
06b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06b9 681f |h | Jump_Zero 0x6d9
06ba 4801 |H | Short_Literal 0x1
06bb 4802 |H | Short_Literal 0x2
06bc e009 | | Load 0x0,0x9
06bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06be 035b | [ | Declare_Type Array,Constrained
06bf 0337 | 7 | Declare_Variable Array
06c0 e5ff | | Load 0x2,-0x1
06c1 e009 | | Load 0x0,0x9
06c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06c3 e009 | | Load 0x0,0x9
06c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c5 0119 | | Execute Any,Check_In_Formal_Type
06c6 4801 |H | Short_Literal 0x1
06c7 00da | | Load_Top At_Offset_2
06c8 01d6 | | Execute Vector,Field_Write
06c9 00d9 | | Load_Top At_Offset_1
06ca e004 | | Load 0x0,0x4
06cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06cc e009 | | Load 0x0,0x9
06cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06ce e009 | | Load 0x0,0x9
06cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06d0 0119 | | Execute Any,Check_In_Formal_Type
06d1 4802 |H | Short_Literal 0x2
06d2 00da | | Load_Top At_Offset_2
06d3 01d6 | | Execute Vector,Field_Write
06d4 605f |`_ | Indirect_Literal Discrete,0x734,{0x00000000, 0x00008132}
06d5 e005 | | Load 0x0,0x5
06d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06d7 a5f8 | | Store_Unchecked 0x2,-0x8
06d8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06d9 4801 |H | Short_Literal 0x1
06da 00d9 | | Load_Top At_Offset_1
06db e004 | | Load 0x0,0x4
06dc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06dd 681f |h | Jump_Zero 0x6fd
06de 4801 |H | Short_Literal 0x1
06df 4802 |H | Short_Literal 0x2
06e0 e009 | | Load 0x0,0x9
06e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06e2 035b | [ | Declare_Type Array,Constrained
06e3 0337 | 7 | Declare_Variable Array
06e4 e5ff | | Load 0x2,-0x1
06e5 e009 | | Load 0x0,0x9
06e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06e7 e009 | | Load 0x0,0x9
06e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e9 0119 | | Execute Any,Check_In_Formal_Type
06ea 4801 |H | Short_Literal 0x1
06eb 00da | | Load_Top At_Offset_2
06ec 01d6 | | Execute Vector,Field_Write
06ed 00d9 | | Load_Top At_Offset_1
06ee e004 | | Load 0x0,0x4
06ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f0 e009 | | Load 0x0,0x9
06f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06f2 e009 | | Load 0x0,0x9
06f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f4 0119 | | Execute Any,Check_In_Formal_Type
06f5 4802 |H | Short_Literal 0x2
06f6 00da | | Load_Top At_Offset_2
06f7 01d6 | | Execute Vector,Field_Write
06f8 4806 |H | Short_Literal 0x6
06f9 6036 |`6 | Indirect_Literal Discrete,0x730,{0x00000000, 0x000081d0}
06fa e005 | | Load 0x0,0x5
06fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06fc a5f8 | | Store_Unchecked 0x2,-0x8
06fd 4508 |E | Exit_Suprogram New_Top_Offset 0x8
06fe e005 | | Load 0x0,0x5
06ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0700 e5f9 | | Load 0x2,-0x7
0701 e5fa | | Load 0x2,-0x6
0702 e5fb | | Load 0x2,-0x5
0703 e5fc | | Load 0x2,-0x4
0704 e5fd | | Load 0x2,-0x3
0705 e5fe | | Load 0x2,-0x2
0706 0217 | | Execute Heap_Access,All_Reference
0707 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0708 e5ff | | Load 0x2,-0x1
0709 e002 | | Load 0x0,0x2
070a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
070b c5f8 | | Store 0x2,-0x8
070c 4508 |E | Exit_Suprogram New_Top_Offset 0x8
070d TRAP_0668:
070d 0007 | | Action Break_Optional
070e 4801 |H | Short_Literal 0x1
070f 4802 |H | Short_Literal 0x2
0710 e009 | | Load 0x0,0x9
0711 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0712 035b | [ | Declare_Type Array,Constrained
0713 0337 | 7 | Declare_Variable Array
0714 0092 09b8 | | Action Push_String_Extended,0x9b8 ; "Execute_Command"
0716 e009 | | Load 0x0,0x9
0717 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0718 e009 | | Load 0x0,0x9
0719 1b0e | | Execute Package,Field_Read,Field_Number 0xe
071a 0119 | | Execute Any,Check_In_Formal_Type
071b 4801 |H | Short_Literal 0x1
071c 00da | | Load_Top At_Offset_2
071d 01d6 | | Execute Vector,Field_Write
071e 4800 |H | Short_Literal 0x0
071f 4801 |H | Short_Literal 0x1
0720 e00e | | Load 0x0,0xe
0721 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0722 e009 | | Load 0x0,0x9
0723 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0724 e009 | | Load 0x0,0x9
0725 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0726 0119 | | Execute Any,Check_In_Formal_Type
0727 4802 |H | Short_Literal 0x2
0728 00da | | Load_Top At_Offset_2
0729 01d6 | | Execute Vector,Field_Write
072a 6731 |g1 | Indirect_Literal Discrete,0x65c,{0x00000000, 0x0000812d}
072b e005 | | Load 0x0,0x5
072c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
072d a5f8 | | Store_Unchecked 0x2,-0x8
072e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
072f 0000 | | .XXX[0x1]
0730 0000 0000 | | .LITERAL {0x00000000, 0x000081d0}
0734 0000 0000 | | .LITERAL {0x00000000, 0x00008132}
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0740 | @ | .CONST 0x0740 ; Address of begin
0739 07aa | | .CONST 0x07aa ; Address of exception handler
073a 0002 | | .CONST 0x0002 ; Number of locals
073b INIT_0738:
073b e004 | | Load 0x0,0x4
073c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
073d 02c7 | | Declare_Variable Any
073e 00d8 | | Load_Top At_Offset_0
073f 1c00 | | Execute_Immediate Run_Utility,0x0
0740 BODY_0738:
0740 4800 |H | Short_Literal 0x0
0741 a5fc | | Store_Unchecked 0x2,-0x4
0742 4800 |H | Short_Literal 0x0
0743 4801 |H | Short_Literal 0x1
0744 4801 |H | Short_Literal 0x1
0745 608e |` | Indirect_Literal Discrete,0x7d4,{0x00000000, 0x0000076d}
0746 e00f | | Load 0x0,0xf
0747 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0748 c5fb | | Store 0x2,-0x5
0749 e007 | | Load 0x0,0x7
074a 180e | | Execute Package,Field_Execute,Field_Number 0xe
074b 4801 |H | Short_Literal 0x1
074c 0092 09b9 | | Action Push_String_Extended,0x9b9 ; "Unit_Update_Time (Target_File_Name => \x22"
074e e5ff | | Load 0x2,-0x1
074f 01cc | | Execute Vector,Catenate
0750 0092 09a9 | | Action Push_String_Extended,0x9a9 ; "\x22, Trace_Command => "
0752 01cc | | Execute Vector,Catenate
0753 e5fd | | Load 0x2,-0x3
0754 00e1 | | Load_Encached Boolean_Cache
0755 011c | | Execute Any,Convert_Unchecked
0756 1c01 | | Execute_Immediate Run_Utility,0x1
0757 01cc | | Execute Vector,Catenate
0758 0092 099e | | Action Push_String_Extended,0x99e ; ")."
075a 01cc | | Execute Vector,Catenate
075b e008 | | Load 0x0,0x8
075c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
075d e5fe | | Load 0x2,-0x2
075e 0217 | | Execute Heap_Access,All_Reference
075f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0760 0f01 | | Execute_Immediate Equal,0x1
0761 7035 |p5 | Jump_Nonzero 0x797
0762 e5fb | | Load 0x2,-0x5
0763 0120 | | Execute Any,Is_Value
0764 6803 |h | Jump_Zero 0x768
0765 e00f | | Load 0x0,0xf
0766 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0767 7801 |x | Jump 0x769
0768 e5fb | | Load 0x2,-0x5
0769 00d9 | | Load_Top At_Offset_1
076a e5fd | | Load 0x2,-0x3
076b e5fe | | Load 0x2,-0x2
076c 0217 | | Execute Heap_Access,All_Reference
076d 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
076e e5ff | | Load 0x2,-0x1
076f e003 | | Load 0x0,0x3
0770 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0771 c402 | | Store 0x2,0x2
0772 c5fb | | Store 0x2,-0x5
0773 4802 |H | Short_Literal 0x2
0774 00d9 | | Load_Top At_Offset_1
0775 e004 | | Load 0x0,0x4
0776 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0777 681e |h | Jump_Zero 0x796
0778 4801 |H | Short_Literal 0x1
0779 4802 |H | Short_Literal 0x2
077a e009 | | Load 0x0,0x9
077b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
077c 035b | [ | Declare_Type Array,Constrained
077d 0337 | 7 | Declare_Variable Array
077e e5ff | | Load 0x2,-0x1
077f e009 | | Load 0x0,0x9
0780 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0781 e009 | | Load 0x0,0x9
0782 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0783 0119 | | Execute Any,Check_In_Formal_Type
0784 4801 |H | Short_Literal 0x1
0785 00da | | Load_Top At_Offset_2
0786 01d6 | | Execute Vector,Field_Write
0787 00d9 | | Load_Top At_Offset_1
0788 e004 | | Load 0x0,0x4
0789 1818 | | Execute Package,Field_Execute,Field_Number 0x18
078a e009 | | Load 0x0,0x9
078b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
078c e009 | | Load 0x0,0x9
078d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
078e 0119 | | Execute Any,Check_In_Formal_Type
078f 4802 |H | Short_Literal 0x2
0790 00da | | Load_Top At_Offset_2
0791 01d6 | | Execute Vector,Field_Write
0792 603d |`= | Indirect_Literal Discrete,0x7d0,{0x00000000, 0x00008137}
0793 e005 | | Load 0x0,0x5
0794 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0795 a5fc | | Store_Unchecked 0x2,-0x4
0796 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0797 e5fb | | Load 0x2,-0x5
0798 0120 | | Execute Any,Is_Value
0799 6803 |h | Jump_Zero 0x79d
079a e00f | | Load 0x0,0xf
079b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
079c 7801 |x | Jump 0x79e
079d e5fb | | Load 0x2,-0x5
079e e005 | | Load 0x0,0x5
079f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a0 e5fd | | Load 0x2,-0x3
07a1 e5fe | | Load 0x2,-0x2
07a2 0217 | | Execute Heap_Access,All_Reference
07a3 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
07a4 e5ff | | Load 0x2,-0x1
07a5 e002 | | Load 0x0,0x2
07a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07a7 c5fc | | Store 0x2,-0x4
07a8 c5fb | | Store 0x2,-0x5
07a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07aa TRAP_0738:
07aa 0007 | | Action Break_Optional
07ab 4801 |H | Short_Literal 0x1
07ac 4802 |H | Short_Literal 0x2
07ad e009 | | Load 0x0,0x9
07ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07af 035b | [ | Declare_Type Array,Constrained
07b0 0337 | 7 | Declare_Variable Array
07b1 0092 09ba | | Action Push_String_Extended,0x9ba ; "Unit_Update_Time"
07b3 e009 | | Load 0x0,0x9
07b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07b5 e009 | | Load 0x0,0x9
07b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b7 0119 | | Execute Any,Check_In_Formal_Type
07b8 4801 |H | Short_Literal 0x1
07b9 00da | | Load_Top At_Offset_2
07ba 01d6 | | Execute Vector,Field_Write
07bb 4800 |H | Short_Literal 0x0
07bc 4801 |H | Short_Literal 0x1
07bd e00e | | Load 0x0,0xe
07be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07bf e009 | | Load 0x0,0x9
07c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07c1 e009 | | Load 0x0,0x9
07c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07c3 0119 | | Execute Any,Check_In_Formal_Type
07c4 4802 |H | Short_Literal 0x2
07c5 00da | | Load_Top At_Offset_2
07c6 01d6 | | Execute Vector,Field_Write
07c7 6004 |` | Indirect_Literal Discrete,0x7cc,{0x00000000, 0x0000812d}
07c8 e005 | | Load 0x0,0x5
07c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07ca a5fc | | Store_Unchecked 0x2,-0x4
07cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07cc 0000 0000 | | .LITERAL {0x00000000, 0x0000812d}
07d0 0000 0000 | | .LITERAL {0x00000000, 0x00008137}
07d4 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07e0 | | .CONST 0x07e0 ; Address of begin
07d9 085e | ^ | .CONST 0x085e ; Address of exception handler
07da 0002 | | .CONST 0x0002 ; Number of locals
07db INIT_07d8:
07db e004 | | Load 0x0,0x4
07dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07dd 02c7 | | Declare_Variable Any
07de 00d8 | | Load_Top At_Offset_0
07df 1c00 | | Execute_Immediate Run_Utility,0x0
07e0 BODY_07d8:
07e0 4800 |H | Short_Literal 0x0
07e1 a5fc | | Store_Unchecked 0x2,-0x4
07e2 4800 |H | Short_Literal 0x0
07e3 a5fb | | Store_Unchecked 0x2,-0x5
07e4 e007 | | Load 0x0,0x7
07e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
07e6 4801 |H | Short_Literal 0x1
07e7 0092 09bb | | Action Push_String_Extended,0x9bb ; "File_Exists (The_File => \x22"
07e9 e5ff | | Load 0x2,-0x1
07ea 01cc | | Execute Vector,Catenate
07eb 0092 09a9 | | Action Push_String_Extended,0x9a9 ; "\x22, Trace_Command => "
07ed 01cc | | Execute Vector,Catenate
07ee e5fd | | Load 0x2,-0x3
07ef 00e1 | | Load_Encached Boolean_Cache
07f0 011c | | Execute Any,Convert_Unchecked
07f1 1c01 | | Execute_Immediate Run_Utility,0x1
07f2 01cc | | Execute Vector,Catenate
07f3 0092 099e | | Action Push_String_Extended,0x99e ; ")."
07f5 01cc | | Execute Vector,Catenate
07f6 e008 | | Load 0x0,0x8
07f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07f8 e5fe | | Load 0x2,-0x2
07f9 0217 | | Execute Heap_Access,All_Reference
07fa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07fb 0f01 | | Execute_Immediate Equal,0x1
07fc 7054 |pT | Jump_Nonzero 0x851
07fd 00e1 | | Load_Encached Boolean_Cache
07fe 00d9 | | Load_Top At_Offset_1
07ff e5fd | | Load 0x2,-0x3
0800 e5fe | | Load 0x2,-0x2
0801 0217 | | Execute Heap_Access,All_Reference
0802 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0803 e5ff | | Load 0x2,-0x1
0804 e003 | | Load 0x0,0x3
0805 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0806 c402 | | Store 0x2,0x2
0807 c5fb | | Store 0x2,-0x5
0808 4802 |H | Short_Literal 0x2
0809 00d9 | | Load_Top At_Offset_1
080a e004 | | Load 0x0,0x4
080b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
080c 681f |h | Jump_Zero 0x82c
080d 4801 |H | Short_Literal 0x1
080e 4802 |H | Short_Literal 0x2
080f e009 | | Load 0x0,0x9
0810 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0811 035b | [ | Declare_Type Array,Constrained
0812 0337 | 7 | Declare_Variable Array
0813 e5ff | | Load 0x2,-0x1
0814 e009 | | Load 0x0,0x9
0815 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0816 e009 | | Load 0x0,0x9
0817 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0818 0119 | | Execute Any,Check_In_Formal_Type
0819 4801 |H | Short_Literal 0x1
081a 00da | | Load_Top At_Offset_2
081b 01d6 | | Execute Vector,Field_Write
081c 00d9 | | Load_Top At_Offset_1
081d e004 | | Load 0x0,0x4
081e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
081f e009 | | Load 0x0,0x9
0820 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0821 e009 | | Load 0x0,0x9
0822 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0823 0119 | | Execute Any,Check_In_Formal_Type
0824 4802 |H | Short_Literal 0x2
0825 00da | | Load_Top At_Offset_2
0826 01d6 | | Execute Vector,Field_Write
0827 605c |`\ | Indirect_Literal Discrete,0x884,{0x00000000, 0x00008162}
0828 e005 | | Load 0x0,0x5
0829 1813 | | Execute Package,Field_Execute,Field_Number 0x13
082a a5fc | | Store_Unchecked 0x2,-0x4
082b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
082c 4801 |H | Short_Literal 0x1
082d 00d9 | | Load_Top At_Offset_1
082e e004 | | Load 0x0,0x4
082f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0830 682c |h, | Jump_Zero 0x85d
0831 4801 |H | Short_Literal 0x1
0832 4802 |H | Short_Literal 0x2
0833 e009 | | Load 0x0,0x9
0834 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0835 035b | [ | Declare_Type Array,Constrained
0836 0337 | 7 | Declare_Variable Array
0837 e5ff | | Load 0x2,-0x1
0838 e009 | | Load 0x0,0x9
0839 1810 | | Execute Package,Field_Execute,Field_Number 0x10
083a e009 | | Load 0x0,0x9
083b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
083c 0119 | | Execute Any,Check_In_Formal_Type
083d 4801 |H | Short_Literal 0x1
083e 00da | | Load_Top At_Offset_2
083f 01d6 | | Execute Vector,Field_Write
0840 00d9 | | Load_Top At_Offset_1
0841 e004 | | Load 0x0,0x4
0842 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0843 e009 | | Load 0x0,0x9
0844 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0845 e009 | | Load 0x0,0x9
0846 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0847 0119 | | Execute Any,Check_In_Formal_Type
0848 4802 |H | Short_Literal 0x2
0849 00da | | Load_Top At_Offset_2
084a 01d6 | | Execute Vector,Field_Write
084b 4806 |H | Short_Literal 0x6
084c 6033 |`3 | Indirect_Literal Discrete,0x880,{0x00000000, 0x000081d7}
084d e005 | | Load 0x0,0x5
084e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
084f a5fc | | Store_Unchecked 0x2,-0x4
0850 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0851 00e1 | | Load_Encached Boolean_Cache
0852 e005 | | Load 0x0,0x5
0853 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0854 e5fd | | Load 0x2,-0x3
0855 e5fe | | Load 0x2,-0x2
0856 0217 | | Execute Heap_Access,All_Reference
0857 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0858 e5ff | | Load 0x2,-0x1
0859 e002 | | Load 0x0,0x2
085a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
085b c5fc | | Store 0x2,-0x4
085c c5fb | | Store 0x2,-0x5
085d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
085e TRAP_07d8:
085e 0007 | | Action Break_Optional
085f 4801 |H | Short_Literal 0x1
0860 4802 |H | Short_Literal 0x2
0861 e009 | | Load 0x0,0x9
0862 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0863 035b | [ | Declare_Type Array,Constrained
0864 0337 | 7 | Declare_Variable Array
0865 0092 09bc | | Action Push_String_Extended,0x9bc ; "File Exists"
0867 e009 | | Load 0x0,0x9
0868 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0869 e009 | | Load 0x0,0x9
086a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
086b 0119 | | Execute Any,Check_In_Formal_Type
086c 4801 |H | Short_Literal 0x1
086d 00da | | Load_Top At_Offset_2
086e 01d6 | | Execute Vector,Field_Write
086f 4800 |H | Short_Literal 0x0
0870 4801 |H | Short_Literal 0x1
0871 e00e | | Load 0x0,0xe
0872 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0873 e009 | | Load 0x0,0x9
0874 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0875 e009 | | Load 0x0,0x9
0876 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0877 0119 | | Execute Any,Check_In_Formal_Type
0878 4802 |H | Short_Literal 0x2
0879 00da | | Load_Top At_Offset_2
087a 01d6 | | Execute Vector,Field_Write
087b 6750 |gP | Indirect_Literal Discrete,0x7cc,{0x00000000, 0x0000812d}
087c e005 | | Load 0x0,0x5
087d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
087e a5fc | | Store_Unchecked 0x2,-0x4
087f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0880 0000 0000 | | .LITERAL {0x00000000, 0x000081d7}
0884 0000 0000 | | .LITERAL {0x00000000, 0x00008162}
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b BODY_0888:
088b INIT_0888:
088b INIT_0888:
088b 4608 |F | Jump_Case 0x9
088c 7808 |x | Jump 0x895 ; case 0x0
088d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
088e 782c |x, | Jump 0x8bb ; case 0x2
088f 782b |x+ | Jump 0x8bb ; case 0x3
0890 782a |x* | Jump 0x8bb ; case 0x4
0891 7829 |x) | Jump 0x8bb ; case 0x5
0892 7810 |x | Jump 0x8a3 ; case 0x6
0893 7816 |x | Jump 0x8aa ; case 0x7
0894 781f |x | Jump 0x8b4 ; case 0x8
0895 00da | | Load_Top At_Offset_2
0896 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0897 0f01 | | Execute_Immediate Equal,0x1
0898 7004 |p | Jump_Nonzero 0x89d
0899 00da | | Load_Top At_Offset_2
089a 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
089b 1c00 | | Execute_Immediate Run_Utility,0x0
089c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
089d 00da | | Load_Top At_Offset_2
089e 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
089f 00da | | Load_Top At_Offset_2
08a0 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
08a1 1c00 | | Execute_Immediate Run_Utility,0x0
08a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08a3 00db | | Load_Top At_Offset_3
08a4 0f01 | | Execute_Immediate Equal,0x1
08a5 7002 |p | Jump_Nonzero 0x8a8
08a6 4802 |H | Short_Literal 0x2
08a7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08a8 4801 |H | Short_Literal 0x1
08a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08aa 00db | | Load_Top At_Offset_3
08ab e5fe | | Load 0x2,-0x2
08ac 0f01 | | Execute_Immediate Equal,0x1
08ad 7002 |p | Jump_Nonzero 0x8b0
08ae 4802 |H | Short_Literal 0x2
08af 7801 |x | Jump 0x8b1
08b0 4801 |H | Short_Literal 0x1
08b1 e5ff | | Load 0x2,-0x1
08b2 031b | | Declare_Type Variant_Record,Constrained
08b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08b4 00db | | Load_Top At_Offset_3
08b5 e5fe | | Load 0x2,-0x2
08b6 e5ff | | Load 0x2,-0x1
08b7 1c06 | | Execute_Immediate Run_Utility,0x6
08b8 e5ff | | Load 0x2,-0x1
08b9 02fc | | Declare_Variable Variant_Record,With_Constraint
08ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08bb 0869 | i | Execute_Immediate Raise,0x69
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c5 | | .CONST 0x08c5 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0002 | | .CONST 0x0002 ; Number of locals
08c3 INIT_08c0:
08c3 029f 0903 | | Declare_Subprogram INIT_0900,For_Call
08c5 BODY_08c0:
08c5 00db | | Load_Top At_Offset_3
08c6 01db | | Execute Vector,Length
08c7 7002 |p | Jump_Nonzero 0x8ca
08c8 e00b | | Load 0x0,0xb
08c9 0257 | W | Execute Discrete,Raise
08ca 4820 |H | Short_Literal 0x20
08cb e5fe | | Load 0x2,-0x2
08cc e010 | | Load 0x0,0x10
08cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08ce 01db | | Execute Vector,Length
08cf 7002 |p | Jump_Nonzero 0x8d2
08d0 8402 | | Call 0x2,0x2
08d1 7808 |x | Jump 0x8da
08d2 4820 |H | Short_Literal 0x20
08d3 e5fd | | Load 0x2,-0x3
08d4 e010 | | Load 0x0,0x10
08d5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08d6 01db | | Execute Vector,Length
08d7 7002 |p | Jump_Nonzero 0x8da
08d8 e00d | | Load 0x0,0xd
08d9 0257 | W | Execute Discrete,Raise
08da e5fe | | Load 0x2,-0x2
08db 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08dc 0000 0000 | | .BLANK 0000[0x4]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e5 | | .CONST 0x08e5 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0002 | | .CONST 0x0002 ; Number of locals
08e3 INIT_08e0:
08e3 029f 0953 | S| Declare_Subprogram INIT_0950,For_Call
08e5 BODY_08e0:
08e5 00db | | Load_Top At_Offset_3
08e6 01db | | Execute Vector,Length
08e7 7002 |p | Jump_Nonzero 0x8ea
08e8 e00b | | Load 0x0,0xb
08e9 0257 | W | Execute Discrete,Raise
08ea 4820 |H | Short_Literal 0x20
08eb e5fe | | Load 0x2,-0x2
08ec e010 | | Load 0x0,0x10
08ed 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08ee 01db | | Execute Vector,Length
08ef 7002 |p | Jump_Nonzero 0x8f2
08f0 8402 | | Call 0x2,0x2
08f1 7808 |x | Jump 0x8fa
08f2 4820 |H | Short_Literal 0x20
08f3 e5fd | | Load 0x2,-0x3
08f4 e010 | | Load 0x0,0x10
08f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08f6 01db | | Execute Vector,Length
08f7 7002 |p | Jump_Nonzero 0x8fa
08f8 e00d | | Load 0x0,0xd
08f9 0257 | W | Execute Discrete,Raise
08fa e5fd | | Load 0x2,-0x3
08fb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08fc 0000 0000 | | .BLANK 0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 093d | = | .CONST 0x093d ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0003 | | .CONST 0x0003 ; Number of locals
0903 INIT_0900:
0903 e007 | | Load 0x0,0x7
0904 180e | | Execute Package,Field_Execute,Field_Number 0xe
0905 e007 | | Load 0x0,0x7
0906 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0907 e007 | | Load 0x0,0x7
0908 180e | | Execute Package,Field_Execute,Field_Number 0xe
0909 e007 | | Load 0x0,0x7
090a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
090b e007 | | Load 0x0,0x7
090c 180e | | Execute Package,Field_Execute,Field_Number 0xe
090d e007 | | Load 0x0,0x7
090e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
090f e007 | | Load 0x0,0x7
0910 180e | | Execute Package,Field_Execute,Field_Number 0xe
0911 e007 | | Load 0x0,0x7
0912 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0913 e007 | | Load 0x0,0x7
0914 180e | | Execute Package,Field_Execute,Field_Number 0xe
0915 e007 | | Load 0x0,0x7
0916 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0917 e007 | | Load 0x0,0x7
0918 180e | | Execute Package,Field_Execute,Field_Number 0xe
0919 e007 | | Load 0x0,0x7
091a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
091b e007 | | Load 0x0,0x7
091c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
091d e5ff | | Load 0x2,-0x1
091e e011 | | Load 0x0,0x11
091f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0920 e007 | | Load 0x0,0x7
0921 180e | | Execute Package,Field_Execute,Field_Number 0xe
0922 e007 | | Load 0x0,0x7
0923 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0924 e007 | | Load 0x0,0x7
0925 180e | | Execute Package,Field_Execute,Field_Number 0xe
0926 e007 | | Load 0x0,0x7
0927 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0928 e007 | | Load 0x0,0x7
0929 180e | | Execute Package,Field_Execute,Field_Number 0xe
092a e007 | | Load 0x0,0x7
092b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
092c e007 | | Load 0x0,0x7
092d 180e | | Execute Package,Field_Execute,Field_Number 0xe
092e e007 | | Load 0x0,0x7
092f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0930 e007 | | Load 0x0,0x7
0931 180e | | Execute Package,Field_Execute,Field_Number 0xe
0932 e007 | | Load 0x0,0x7
0933 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0934 e007 | | Load 0x0,0x7
0935 180e | | Execute Package,Field_Execute,Field_Number 0xe
0936 e007 | | Load 0x0,0x7
0937 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0938 e007 | | Load 0x0,0x7
0939 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
093a e5ff | | Load 0x2,-0x1
093b e011 | | Load 0x0,0x11
093c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
093d BODY_0900:
093d 00d9 | | Load_Top At_Offset_1
093e 01db | | Execute Vector,Length
093f 7002 |p | Jump_Nonzero 0x942
0940 e00c | | Load 0x0,0xc
0941 0257 | W | Execute Discrete,Raise
0942 00d8 | | Load_Top At_Offset_0
0943 01db | | Execute Vector,Length
0944 7002 |p | Jump_Nonzero 0x947
0945 e00d | | Load 0x0,0xd
0946 0257 | W | Execute Discrete,Raise
0947 00d9 | | Load_Top At_Offset_1
0948 00cb | | Action Pop_Block_With_Result
0949 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
094a 0000 0000 | | .BLANK 0000[0x6]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 098d | | .CONST 0x098d ; Address of begin
0951 0004 | | .CONST 0x0004 ; Address of exception handler
0952 0003 | | .CONST 0x0003 ; Number of locals
0953 INIT_0950:
0953 e007 | | Load 0x0,0x7
0954 180e | | Execute Package,Field_Execute,Field_Number 0xe
0955 e007 | | Load 0x0,0x7
0956 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0957 e007 | | Load 0x0,0x7
0958 180e | | Execute Package,Field_Execute,Field_Number 0xe
0959 e007 | | Load 0x0,0x7
095a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
095b e007 | | Load 0x0,0x7
095c 180e | | Execute Package,Field_Execute,Field_Number 0xe
095d e007 | | Load 0x0,0x7
095e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
095f e007 | | Load 0x0,0x7
0960 180e | | Execute Package,Field_Execute,Field_Number 0xe
0961 e007 | | Load 0x0,0x7
0962 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0963 e007 | | Load 0x0,0x7
0964 180e | | Execute Package,Field_Execute,Field_Number 0xe
0965 e007 | | Load 0x0,0x7
0966 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0967 e007 | | Load 0x0,0x7
0968 180e | | Execute Package,Field_Execute,Field_Number 0xe
0969 e007 | | Load 0x0,0x7
096a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
096b e007 | | Load 0x0,0x7
096c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
096d e5ff | | Load 0x2,-0x1
096e e011 | | Load 0x0,0x11
096f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0970 e007 | | Load 0x0,0x7
0971 180e | | Execute Package,Field_Execute,Field_Number 0xe
0972 e007 | | Load 0x0,0x7
0973 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0974 e007 | | Load 0x0,0x7
0975 180e | | Execute Package,Field_Execute,Field_Number 0xe
0976 e007 | | Load 0x0,0x7
0977 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0978 e007 | | Load 0x0,0x7
0979 180e | | Execute Package,Field_Execute,Field_Number 0xe
097a e007 | | Load 0x0,0x7
097b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
097c e007 | | Load 0x0,0x7
097d 180e | | Execute Package,Field_Execute,Field_Number 0xe
097e e007 | | Load 0x0,0x7
097f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0980 e007 | | Load 0x0,0x7
0981 180e | | Execute Package,Field_Execute,Field_Number 0xe
0982 e007 | | Load 0x0,0x7
0983 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0984 e007 | | Load 0x0,0x7
0985 180e | | Execute Package,Field_Execute,Field_Number 0xe
0986 e007 | | Load 0x0,0x7
0987 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0988 e007 | | Load 0x0,0x7
0989 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
098a e5ff | | Load 0x2,-0x1
098b e011 | | Load 0x0,0x11
098c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
098d BODY_0950:
098d 00d9 | | Load_Top At_Offset_1
098e 01db | | Execute Vector,Length
098f 7002 |p | Jump_Nonzero 0x992
0990 e00c | | Load 0x0,0xc
0991 0257 | W | Execute Discrete,Raise
0992 00d8 | | Load_Top At_Offset_0
0993 01db | | Execute Vector,Length
0994 7002 |p | Jump_Nonzero 0x997
0995 e00d | | Load 0x0,0xd
0996 0257 | W | Execute Discrete,Raise
0997 00d8 | | Load_Top At_Offset_0
0998 00cb | | Action Pop_Block_With_Result
0999 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
099a ; --------------------------------------------------------------------------------------
099a ; STRING TABLE
099a ; --------------------------------------------------------------------------------------
099a 0048 | H | .STRTAB 0x0048->0x09be ; "Acquire (Remote_Machine => \x22"
099b 0062 | b | .STRTAB 0x0062->0x09cc ; "\x22, Username => \x22"
099c 0070 | p | .STRTAB 0x0070->0x09d4 ; "\x22, Password => ???"
099d 0080 | | .STRTAB 0x0080->0x09dd ; ", Trace_Command => "
099e 0091 | | .STRTAB 0x0091->0x09e6 ; ")."
099f 0091 | | .STRTAB 0x0091->0x09e7 ; "Acquire"
09a0 0096 | | .STRTAB 0x0096->0x09eb ; "Acquire (Set_Directory => \x22"
09a1 00af | | .STRTAB 0x00af->0x09f8 ; "\x22, Set_Library => \x22"
09a2 00c0 | | .STRTAB 0x00c0->0x0a02 ; "\x22, Remote_Machine => \x22"
09a3 00d4 | | .STRTAB 0x00d4->0x0a0d ; "Acquire (Directory)"
09a4 00e5 | | .STRTAB 0x00e5->0x0a16 ; "Release (Trace_Command => "
09a5 00fd | | .STRTAB 0x00fd->0x0a23 ; "Release"
09a6 0102 | | .STRTAB 0x0102->0x0a27 ; "Destroy (Trace_Command => "
09a7 011a | | .STRTAB 0x011a->0x0a34 ; "Destroy"
09a8 011f | | .STRTAB 0x011f->0x0a37 ; "Set_Remote_Directory (Set_Directory => \x22"
09a9 0145 | E | .STRTAB 0x0145->0x0a4b ; "\x22, Trace_Command => "
09aa 0157 | W | .STRTAB 0x0157->0x0a55 ; "Command \x22"
09ab 015e | ^ | .STRTAB 0x015e->0x0a5a ; "\x22 failed to set remote directory."
09ac 017d | } | .STRTAB 0x017d->0x0a6a ; " Got bad status code = "
09ad 0193 | | .STRTAB 0x0193->0x0a76 ; "Set_Remote_Directory"
09ae 01a5 | | .STRTAB 0x01a5->0x0a80 ; "Put (Host_File_Name => \x22"
09af 01bb | | .STRTAB 0x01bb->0x0a8c ; "\x22, Target_File_Name => \x22"
09b0 01d1 | | .STRTAB 0x01d1->0x0a98 ; "Put"
09b1 01d2 | | .STRTAB 0x01d2->0x0a9a ; "Get (Host_File_Name => \x22"
09b2 01e8 | | .STRTAB 0x01e8->0x0aa6 ; "Get"
09b3 01e9 | | .STRTAB 0x01e9->0x0aa7 ; "Execute_Command (Command_Line => \x22"
09b4 0209 | | .STRTAB 0x0209->0x0ab8 ; "\x22, Error_Pattern => \x22"
09b5 021c | | .STRTAB 0x021c->0x0ac3 ; "\x22, Parse_Error_Output => "
09b6 0233 | 3 | .STRTAB 0x0233->0x0acf ; ", Parse_Standard_Output => "
09b7 024c | L | .STRTAB 0x024c->0x0add ; ", Show_Parsed_Output => "
09b8 0262 | b | .STRTAB 0x0262->0x0ae9 ; "Execute_Command"
09b9 026f | o | .STRTAB 0x026f->0x0af0 ; "Unit_Update_Time (Target_File_Name => \x22"
09ba 0294 | | .STRTAB 0x0294->0x0b04 ; "Unit_Update_Time"
09bb 02a2 | | .STRTAB 0x02a2->0x0b0c ; "File_Exists (The_File => \x22"
09bc 02ba | | .STRTAB 0x02ba->0x0b19 ; "File Exists"
09bd 02c3 | | .STREND 0x02c3->0x0b1e
09be 4163 7175 |Acqu| .STRTAB_STRINGS
0b1f 0000 | | .XXX[0x1]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; Debug Table
0b20 ; --------------------------------------------------------------------------------------
0b20 0004 000d | | .DEBUG4 0x0004,0x000d,0x4e8b,0x0000,0x0001,0x0000
0b26 0000 0000 | | .BLANK 0000[0xda]