|
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 - metrics - download
Length: 7168 (0x1c00)
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 0ce0 | | .CONST 0x0ce0 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0071 | q | .CONST 0x0071 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
0010 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0012 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0014 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0016 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
0018 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
001a 029a 032b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0328
001c 029a 0433 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0430
001e 029a 0553 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0550
0020 029a 0653 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0650
0022 00bf | | Action Accept_Activation
0023 e002 | | Load 0x0,0x2
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 02c7 | | Declare_Variable Any
0026 4800 |H | Short_Literal 0x0
0027 4801 |H | Short_Literal 0x1
0028 4801 |H | Short_Literal 0x1
0029 6156 |aV | Indirect_Literal Discrete,0x180,{0x00000000, 0x0000076d}
002a e002 | | Load 0x0,0x2
002b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
002c a218 | | Store_Unchecked 0x1,0x18
002d 00e1 | | Load_Encached Boolean_Cache
002e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
002f e003 | | Load 0x0,0x3
0030 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0031 e004 | | Load 0x0,0x4
0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0033 00e1 | | Load_Encached Boolean_Cache
0034 e005 | | Load 0x0,0x5
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 4900 |I | Short_Literal 0x100
0037 e006 | | Load 0x0,0x6
0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0039 1c07 | | Execute_Immediate Run_Utility,0x7
003a 4900 |I | Short_Literal 0x100
003b e006 | | Load 0x0,0x6
003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003d 1c07 | | Execute_Immediate Run_Utility,0x7
003e 4900 |I | Short_Literal 0x100
003f e006 | | Load 0x0,0x6
0040 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0041 1c07 | | Execute_Immediate Run_Utility,0x7
0042 4900 |I | Short_Literal 0x100
0043 e006 | | Load 0x0,0x6
0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0045 1c07 | | Execute_Immediate Run_Utility,0x7
0046 029f 06db | | Declare_Subprogram For_Call,INIT_06d8
0048 4808 |H | Short_Literal 0x8
0049 032d | - | Declare_Type Record,Defined
004a 029d 071b | | Declare_Subprogram For_Outer_Call,INIT_0718
004c 029d 074b | K| Declare_Subprogram For_Outer_Call,INIT_0748
004e e007 | | Load 0x0,0x7
004f e008 | | Load 0x0,0x8
0050 e21a | | Load 0x1,0x1a
0051 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0052 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0053 e009 | | Load 0x0,0x9
0054 0387 | | Declare_Variable Package
0055 00d8 | | Load_Top At_Offset_0
0056 020f | | Execute Module,Activate
0057 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0058 00c7 | | Action Elaborate_Subprogram
0059 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005a 00c7 | | Action Elaborate_Subprogram
005b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005c 00c7 | | Action Elaborate_Subprogram
005d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005e 00c7 | | Action Elaborate_Subprogram
005f 029d 079b | | Declare_Subprogram For_Outer_Call,INIT_0798
0061 029d 07e3 | | Declare_Subprogram For_Outer_Call,INIT_07e0
0063 029d 07f3 | | Declare_Subprogram For_Outer_Call,INIT_07f0
0065 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0066 00c7 | | Action Elaborate_Subprogram
0067 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0068 00c7 | | Action Elaborate_Subprogram
0069 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006a 00c7 | | Action Elaborate_Subprogram
006b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006c 00c7 | | Action Elaborate_Subprogram
006d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006e 00c7 | | Action Elaborate_Subprogram
006f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0070 00c7 | | Action Elaborate_Subprogram
0071 BODY_0008:
0071 00bc | | Action Signal_Activated
0072 00bb | | Action Signal_Completion
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0091 | | .CONST 0x0091 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0006 | | .CONST 0x0006 ; Number of locals
007b INIT_0078:
007b 4820 |H | Short_Literal 0x20
007c 00db | | Load_Top At_Offset_3
007d e00a | | Load 0x0,0xa
007e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007f 4820 |H | Short_Literal 0x20
0080 e5fe | | Load 0x2,-0x2
0081 e00a | | Load 0x0,0xa
0082 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0083 e003 | | Load 0x0,0x3
0084 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0085 e003 | | Load 0x0,0x3
0086 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0087 03f1 | | Declare_Variable Discrete,With_Value
0088 e21a | | Load 0x1,0x1a
0089 0322 | " | Declare_Variable Record
008a 00d8 | | Load_Top At_Offset_0
008b 1c00 | | Execute_Immediate Run_Utility,0x0
008c e001 | | Load 0x0,0x1
008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008e 02c7 | | Declare_Variable Any
008f 00d8 | | Load_Top At_Offset_0
0090 1c00 | | Execute_Immediate Run_Utility,0x0
0091 BODY_0078:
0091 4800 |H | Short_Literal 0x0
0092 a5fa | | Store_Unchecked 0x2,-0x6
0093 e402 | | Load 0x2,0x2
0094 01db | | Execute Vector,Length
0095 7007 |p | Jump_Nonzero 0x9d
0096 e00b | | Load 0x0,0xb
0097 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0098 60e3 |` | Indirect_Literal Discrete,0x17c,{0x00000000, 0x0000812b}
0099 e00c | | Load 0x0,0xc
009a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009b a5fa | | Store_Unchecked 0x2,-0x6
009c 4505 |E | Exit_Subprogram 0x5
009d 00da | | Load_Top At_Offset_2
009e e21d | | Load 0x1,0x1d
009f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a0 7006 |p | Jump_Nonzero 0xa7
00a1 00da | | Load_Top At_Offset_2
00a2 e21d | | Load 0x1,0x1d
00a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a4 00da | | Load_Top At_Offset_2
00a5 017d | } | Execute Record,Structure_Write
00a6 783e |x> | Jump 0xe5
00a7 00da | | Load_Top At_Offset_2
00a8 e21d | | Load 0x1,0x1d
00a9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00aa 703a |p: | Jump_Nonzero 0xe5
00ab e5fb | | Load 0x2,-0x5
00ac e001 | | Load 0x0,0x1
00ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ae 7031 |p1 | Jump_Nonzero 0xe0
00af e00d | | Load 0x0,0xd
00b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b1 4801 |H | Short_Literal 0x1
00b2 0092 0bad | | Action Push_String_Extended,0xbad ; "Destroying invalid connection"
00b4 e00e | | Load 0x0,0xe
00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b6 00d8 | | Load_Top At_Offset_0
00b7 0120 | | Execute Any,Is_Value
00b8 6803 |h | Jump_Zero 0xbc
00b9 e001 | | Load 0x0,0x1
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 7801 |x | Jump 0xbd
00bc 00d8 | | Load_Top At_Offset_0
00bd e5fb | | Load 0x2,-0x5
00be e001 | | Load 0x0,0x1
00bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c0 011e | | Execute Any,Convert
00c1 e001 | | Load 0x0,0x1
00c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c3 c5fb | | Store 0x2,-0x5
00c4 c406 | | Store 0x2,0x6
00c5 4802 |H | Short_Literal 0x2
00c6 00d9 | | Load_Top At_Offset_1
00c7 e00f | | Load 0x0,0xf
00c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c9 6816 |h | Jump_Zero 0xe0
00ca 4801 |H | Short_Literal 0x1
00cb 4801 |H | Short_Literal 0x1
00cc e00b | | Load 0x0,0xb
00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ce 035b | [ | Declare_Type Array,Constrained
00cf 0337 | 7 | Declare_Variable Array
00d0 00d9 | | Load_Top At_Offset_1
00d1 e00f | | Load 0x0,0xf
00d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d3 e00b | | Load 0x0,0xb
00d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d5 e00b | | Load 0x0,0xb
00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d7 0119 | | Execute Any,Check_In_Formal_Type
00d8 4801 |H | Short_Literal 0x1
00d9 00da | | Load_Top At_Offset_2
00da 01d6 | | Execute Vector,Field_Write
00db 609c |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x0000812f}
00dc e00c | | Load 0x0,0xc
00dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00de a5fa | | Store_Unchecked 0x2,-0x6
00df 4505 |E | Exit_Subprogram 0x5
00e0 00da | | Load_Top At_Offset_2
00e1 e21d | | Load 0x1,0x1d
00e2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e3 00da | | Load_Top At_Offset_2
00e4 017d | } | Execute Record,Structure_Write
00e5 00db | | Load_Top At_Offset_3
00e6 01db | | Execute Vector,Length
00e7 7018 |p | Jump_Nonzero 0x100
00e8 00d8 | | Load_Top At_Offset_0
00e9 0120 | | Execute Any,Is_Value
00ea 6803 |h | Jump_Zero 0xee
00eb e001 | | Load 0x0,0x1
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 7801 |x | Jump 0xef
00ee 00d8 | | Load_Top At_Offset_0
00ef e5fb | | Load 0x2,-0x5
00f0 0120 | | Execute Any,Is_Value
00f1 6803 |h | Jump_Zero 0xf5
00f2 e001 | | Load 0x0,0x1
00f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f4 7804 |x | Jump 0xf9
00f5 e5fb | | Load 0x2,-0x5
00f6 e001 | | Load 0x0,0x1
00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f8 011e | | Execute Any,Convert
00f9 00ea | | Load_Encached Null_String_Cache
00fa e402 | | Load 0x2,0x2
00fb e001 | | Load 0x0,0x1
00fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00fd c5fb | | Store 0x2,-0x5
00fe c406 | | Store 0x2,0x6
00ff 781a |x | Jump 0x11a
0100 00d8 | | Load_Top At_Offset_0
0101 0120 | | Execute Any,Is_Value
0102 6803 |h | Jump_Zero 0x106
0103 e001 | | Load 0x0,0x1
0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0105 7801 |x | Jump 0x107
0106 00d8 | | Load_Top At_Offset_0
0107 e5fb | | Load 0x2,-0x5
0108 0120 | | Execute Any,Is_Value
0109 6803 |h | Jump_Zero 0x10d
010a e001 | | Load 0x0,0x1
010b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010c 7804 |x | Jump 0x111
010d e5fb | | Load 0x2,-0x5
010e e001 | | Load 0x0,0x1
010f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0110 011e | | Execute Any,Convert
0111 00ea | | Load_Encached Null_String_Cache
0112 00ea | | Load_Encached Null_String_Cache
0113 e5fd | | Load 0x2,-0x3
0114 e403 | | Load 0x2,0x3
0115 e402 | | Load 0x2,0x2
0116 e001 | | Load 0x0,0x1
0117 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0118 c5fb | | Store 0x2,-0x5
0119 c406 | | Store 0x2,0x6
011a 4802 |H | Short_Literal 0x2
011b 00d9 | | Load_Top At_Offset_1
011c e00f | | Load 0x0,0xf
011d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
011e 6823 |h# | Jump_Zero 0x142
011f 4801 |H | Short_Literal 0x1
0120 4802 |H | Short_Literal 0x2
0121 e00b | | Load 0x0,0xb
0122 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0123 035b | [ | Declare_Type Array,Constrained
0124 0337 | 7 | Declare_Variable Array
0125 e5ff | | Load 0x2,-0x1
0126 e00b | | Load 0x0,0xb
0127 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0128 e00b | | Load 0x0,0xb
0129 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012a 0119 | | Execute Any,Check_In_Formal_Type
012b 4801 |H | Short_Literal 0x1
012c 00da | | Load_Top At_Offset_2
012d 01d6 | | Execute Vector,Field_Write
012e 00d9 | | Load_Top At_Offset_1
012f e00f | | Load 0x0,0xf
0130 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0131 e00b | | Load 0x0,0xb
0132 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0133 e00b | | Load 0x0,0xb
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 0119 | | Execute Any,Check_In_Formal_Type
0136 4802 |H | Short_Literal 0x2
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 603a |`: | Indirect_Literal Discrete,0x174,{0x00000000, 0x0000812a}
013a e00c | | Load 0x0,0xc
013b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013c a5fa | | Store_Unchecked 0x2,-0x6
013d e003 | | Load 0x0,0x3
013e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013f e21d | | Load 0x1,0x1d
0140 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0141 7816 |x | Jump 0x158
0142 e5fc | | Load 0x2,-0x4
0143 6814 |h | Jump_Zero 0x158
0144 e00d | | Load 0x0,0xd
0145 180e | | Execute Package,Field_Execute,Field_Number 0xe
0146 4801 |H | Short_Literal 0x1
0147 4801 |H | Short_Literal 0x1
0148 e00b | | Load 0x0,0xb
0149 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014a 035b | [ | Declare_Type Array,Constrained
014b 0337 | 7 | Declare_Variable Array
014c e5ff | | Load 0x2,-0x1
014d e00b | | Load 0x0,0xb
014e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014f e00b | | Load 0x0,0xb
0150 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0151 0119 | | Execute Any,Check_In_Formal_Type
0152 4801 |H | Short_Literal 0x1
0153 00da | | Load_Top At_Offset_2
0154 01d6 | | Execute Vector,Field_Write
0155 601a |` | Indirect_Literal Discrete,0x170,{0x00000000, 0x00008172}
0156 e00c | | Load 0x0,0xc
0157 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0158 00d9 | | Load_Top At_Offset_1
0159 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
015a e402 | | Load 0x2,0x2
015b e006 | | Load 0x0,0x6
015c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
015d 00d1 | | Pop_Control Pop_Count_1
015e 00d9 | | Load_Top At_Offset_1
015f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0160 e403 | | Load 0x2,0x3
0161 e006 | | Load 0x0,0x6
0162 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0163 00d1 | | Pop_Control Pop_Count_1
0164 00d9 | | Load_Top At_Offset_1
0165 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0166 e5fd | | Load 0x2,-0x3
0167 e006 | | Load 0x0,0x6
0168 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0169 00d1 | | Pop_Control Pop_Count_1
016a 4800 |H | Short_Literal 0x0
016b 00db | | Load_Top At_Offset_3
016c 00db | | Load_Top At_Offset_3
016d e21d | | Load 0x1,0x1d
016e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
016f 4505 |E | Exit_Subprogram 0x5
0170 0000 0000 | | .LITERAL {0x00000000, 0x00008172}
0174 0000 0000 | | .LITERAL {0x00000000, 0x0000812a}
0178 0000 0000 | | .LITERAL {0x00000000, 0x0000812f}
017c 0000 0000 | | .LITERAL {0x00000000, 0x0000812b}
0180 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e00c | | Load 0x0,0xc
018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018d BODY_0188:
018d e00c | | Load 0x0,0xc
018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018f e5f9 | | Load 0x2,-0x7
0190 e5fa | | Load 0x2,-0x6
0191 e5fb | | Load 0x2,-0x5
0192 e5fc | | Load 0x2,-0x4
0193 e5fd | | Load 0x2,-0x3
0194 820e | | Call 0x1,0xe
0195 c5f9 | | Store 0x2,-0x7
0196 0059 | Y | Store_Top Discrete,At_Offset_1
0197 4800 |H | Short_Literal 0x0
0198 00d9 | | Load_Top At_Offset_1
0199 e00c | | Load 0x0,0xc
019a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
019b 6809 |h | Jump_Zero 0x1a5
019c e00c | | Load 0x0,0xc
019d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019e e5fa | | Load 0x2,-0x6
019f e5fe | | Load 0x2,-0x2
01a0 e5f9 | | Load 0x2,-0x7
01a1 e5ff | | Load 0x2,-0x1
01a2 8212 | | Call 0x1,0x12
01a3 c5f8 | | Store 0x2,-0x8
01a4 4507 |E | Exit_Subprogram 0x7
01a5 00d8 | | Load_Top At_Offset_0
01a6 a5f8 | | Store_Unchecked 0x2,-0x8
01a7 4507 |E | Exit_Subprogram 0x7
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b2 | | .CONST 0x01b2 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e001 | | Load 0x0,0x1
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 02c7 | | Declare_Variable Any
01ae 00d8 | | Load_Top At_Offset_0
01af 1c00 | | Execute_Immediate Run_Utility,0x0
01b0 029f 0823 | #| Declare_Subprogram For_Call,INIT_0820
01b2 BODY_01a8:
01b2 4800 |H | Short_Literal 0x0
01b3 a5fd | | Store_Unchecked 0x2,-0x3
01b4 e003 | | Load 0x0,0x3
01b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b6 e21d | | Load 0x1,0x1d
01b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b8 e5fe | | Load 0x2,-0x2
01b9 e001 | | Load 0x0,0x1
01ba 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01bb 6801 |h | Jump_Zero 0x1bd
01bc 4502 |E | Exit_Subprogram 0x2
01bd 8403 | | Call 0x2,0x3
01be 4502 |E | Exit_Subprogram 0x2
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ca | | .CONST 0x01ca ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 e001 | | Load 0x0,0x1
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 02c7 | | Declare_Variable Any
01c6 00d8 | | Load_Top At_Offset_0
01c7 1c00 | | Execute_Immediate Run_Utility,0x0
01c8 029f 087b | {| Declare_Subprogram For_Call,INIT_0878
01ca BODY_01c0:
01ca 4800 |H | Short_Literal 0x0
01cb a5fd | | Store_Unchecked 0x2,-0x3
01cc e003 | | Load 0x0,0x3
01cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ce e21d | | Load 0x1,0x1d
01cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d0 e5fe | | Load 0x2,-0x2
01d1 e001 | | Load 0x0,0x1
01d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d3 6801 |h | Jump_Zero 0x1d5
01d4 4502 |E | Exit_Subprogram 0x2
01d5 8403 | | Call 0x2,0x3
01d6 4502 |E | Exit_Subprogram 0x2
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f1 | | .CONST 0x01f1 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0006 | | .CONST 0x0006 ; Number of locals
01db INIT_01d8:
01db e00c | | Load 0x0,0xc
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd e003 | | Load 0x0,0x3
01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01df e003 | | Load 0x0,0x3
01e0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e1 03f1 | | Declare_Variable Discrete,With_Value
01e2 e21a | | Load 0x1,0x1a
01e3 0322 | " | Declare_Variable Record
01e4 00d8 | | Load_Top At_Offset_0
01e5 1c01 | | Execute_Immediate Run_Utility,0x1
01e6 00d9 | | Load_Top At_Offset_1
01e7 e21d | | Load 0x1,0x1d
01e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01e9 00d9 | | Load_Top At_Offset_1
01ea 017d | } | Execute Record,Structure_Write
01eb 00e1 | | Load_Encached Boolean_Cache
01ec 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01ed e20d | | Load 0x1,0xd
01ee 02c7 | | Declare_Variable Any
01ef e5fe | | Load 0x2,-0x2
01f0 a406 | | Store_Unchecked 0x2,0x6
01f1 BODY_01d8:
01f1 4800 |H | Short_Literal 0x0
01f2 a5fb | | Store_Unchecked 0x2,-0x5
01f3 00d8 | | Load_Top At_Offset_0
01f4 e001 | | Load 0x0,0x1
01f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f6 6815 |h | Jump_Zero 0x20c
01f7 4801 |H | Short_Literal 0x1
01f8 4801 |H | Short_Literal 0x1
01f9 e00b | | Load 0x0,0xb
01fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fb 035b | [ | Declare_Type Array,Constrained
01fc 0337 | 7 | Declare_Variable Array
01fd 0092 0bae | | Action Push_String_Extended,0xbae ; "Set_Remote_Directory"
01ff e00b | | Load 0x0,0xb
0200 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0201 e00b | | Load 0x0,0xb
0202 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0203 0119 | | Execute Any,Check_In_Formal_Type
0204 4801 |H | Short_Literal 0x1
0205 00da | | Load_Top At_Offset_2
0206 01d6 | | Execute Vector,Field_Write
0207 606c |`l | Indirect_Literal Discrete,0x274,{0x00000000, 0x00008138}
0208 e00c | | Load 0x0,0xc
0209 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020a a5fb | | Store_Unchecked 0x2,-0x5
020b 4505 |E | Exit_Subprogram 0x5
020c 00e1 | | Load_Encached Boolean_Cache
020d 00d9 | | Load_Top At_Offset_1
020e 8220 | | Call 0x1,0x20
020f c406 | | Store 0x2,0x6
0210 005a | Z | Store_Top Discrete,At_Offset_2
0211 00d9 | | Load_Top At_Offset_1
0212 7015 |p | Jump_Nonzero 0x228
0213 4801 |H | Short_Literal 0x1
0214 4801 |H | Short_Literal 0x1
0215 e00b | | Load 0x0,0xb
0216 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0217 035b | [ | Declare_Type Array,Constrained
0218 0337 | 7 | Declare_Variable Array
0219 0092 0bae | | Action Push_String_Extended,0xbae ; "Set_Remote_Directory"
021b e00b | | Load 0x0,0xb
021c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021d e00b | | Load 0x0,0xb
021e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021f 0119 | | Execute Any,Check_In_Formal_Type
0220 4801 |H | Short_Literal 0x1
0221 00da | | Load_Top At_Offset_2
0222 01d6 | | Execute Vector,Field_Write
0223 604c |`L | Indirect_Literal Discrete,0x270,{0x00000000, 0x000081d8}
0224 e00c | | Load 0x0,0xc
0225 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0226 a5fb | | Store_Unchecked 0x2,-0x5
0227 4505 |E | Exit_Subprogram 0x5
0228 4800 |H | Short_Literal 0x0
0229 e5ff | | Load 0x2,-0x1
022a e404 | | Load 0x2,0x4
022b 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
022c e006 | | Load 0x0,0x6
022d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022e e00a | | Load 0x0,0xa
022f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0230 680b |h | Jump_Zero 0x23c
0231 e5fd | | Load 0x2,-0x3
0232 01db | | Execute Vector,Length
0233 7008 |p | Jump_Nonzero 0x23c
0234 e00d | | Load 0x0,0xd
0235 180e | | Execute Package,Field_Execute,Field_Number 0xe
0236 4801 |H | Short_Literal 0x1
0237 0092 0baf | | Action Push_String_Extended,0xbaf ; "Reusing existing directory."
0239 e00e | | Load 0x0,0xe
023a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023b 7823 |x# | Jump 0x25f
023c e00c | | Load 0x0,0xc
023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023e e5fc | | Load 0x2,-0x4
023f 4801 |H | Short_Literal 0x1
0240 4800 |H | Short_Literal 0x0
0241 4800 |H | Short_Literal 0x0
0242 00ea | | Load_Encached Null_String_Cache
0243 e406 | | Load 0x2,0x6
0244 e5ff | | Load 0x2,-0x1
0245 8215 | | Call 0x1,0x15
0246 c402 | | Store 0x2,0x2
0247 4800 |H | Short_Literal 0x0
0248 e402 | | Load 0x2,0x2
0249 e00c | | Load 0x0,0xc
024a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
024b 7003 |p | Jump_Nonzero 0x24f
024c e402 | | Load 0x2,0x2
024d a5fb | | Store_Unchecked 0x2,-0x5
024e 4505 |E | Exit_Subprogram 0x5
024f 00db | | Load_Top At_Offset_3
0250 e21d | | Load 0x1,0x1d
0251 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0252 00db | | Load_Top At_Offset_3
0253 017d | } | Execute Record,Structure_Write
0254 00da | | Load_Top At_Offset_2
0255 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0256 e5ff | | Load 0x2,-0x1
0257 e006 | | Load 0x0,0x6
0258 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0259 00d1 | | Pop_Control Pop_Count_1
025a 4800 |H | Short_Literal 0x0
025b e403 | | Load 0x2,0x3
025c e404 | | Load 0x2,0x4
025d e21d | | Load 0x1,0x1d
025e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
025f e5fd | | Load 0x2,-0x3
0260 01db | | Execute Vector,Length
0261 680b |h | Jump_Zero 0x26d
0262 e00c | | Load 0x0,0xc
0263 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0264 e5fc | | Load 0x2,-0x4
0265 4801 |H | Short_Literal 0x1
0266 4800 |H | Short_Literal 0x0
0267 4800 |H | Short_Literal 0x0
0268 00ea | | Load_Encached Null_String_Cache
0269 e406 | | Load 0x2,0x6
026a e5fd | | Load 0x2,-0x3
026b 8215 | | Call 0x1,0x15
026c c5fb | | Store 0x2,-0x5
026d 4505 |E | Exit_Subprogram 0x5
026e 0000 0000 | | .XXX[0x2]
0270 0000 0000 | | .LITERAL {0x00000000, 0x000081d8}
0274 0000 0000 | | .LITERAL {0x00000000, 0x00008138}
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0288 | | .CONST 0x0288 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0005 | | .CONST 0x0005 ; Number of locals
027b INIT_0278:
027b e001 | | Load 0x0,0x1
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d 02c7 | | Declare_Variable Any
027e 00d8 | | Load_Top At_Offset_0
027f 1c00 | | Execute_Immediate Run_Utility,0x0
0280 00e1 | | Load_Encached Boolean_Cache
0281 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0282 e20d | | Load 0x1,0xd
0283 02c7 | | Declare_Variable Any
0284 e5fd | | Load 0x2,-0x3
0285 a404 | | Store_Unchecked 0x2,0x4
0286 029f 08cb | | Declare_Subprogram For_Call,INIT_08c8
0288 BODY_0278:
0288 4800 |H | Short_Literal 0x0
0289 a5fa | | Store_Unchecked 0x2,-0x6
028a 00d9 | | Load_Top At_Offset_1
028b e001 | | Load 0x0,0x1
028c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028d 6815 |h | Jump_Zero 0x2a3
028e 4801 |H | Short_Literal 0x1
028f 4801 |H | Short_Literal 0x1
0290 e00b | | Load 0x0,0xb
0291 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0292 035b | [ | Declare_Type Array,Constrained
0293 0337 | 7 | Declare_Variable Array
0294 0092 0bb0 | | Action Push_String_Extended,0xbb0 ; "Put"
0296 e00b | | Load 0x0,0xb
0297 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0298 e00b | | Load 0x0,0xb
0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029a 0119 | | Execute Any,Check_In_Formal_Type
029b 4801 |H | Short_Literal 0x1
029c 00da | | Load_Top At_Offset_2
029d 01d6 | | Execute Vector,Field_Write
029e 67d5 |g | Indirect_Literal Discrete,0x274,{0x00000000, 0x00008138}
029f e00c | | Load 0x0,0xc
02a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a1 a5fa | | Store_Unchecked 0x2,-0x6
02a2 4506 |E | Exit_Subprogram 0x6
02a3 00e1 | | Load_Encached Boolean_Cache
02a4 00da | | Load_Top At_Offset_2
02a5 8220 | | Call 0x1,0x20
02a6 c404 | | Store 0x2,0x4
02a7 005b | [ | Store_Top Discrete,At_Offset_3
02a8 00da | | Load_Top At_Offset_2
02a9 7015 |p | Jump_Nonzero 0x2bf
02aa 4801 |H | Short_Literal 0x1
02ab 4801 |H | Short_Literal 0x1
02ac e00b | | Load 0x0,0xb
02ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ae 035b | [ | Declare_Type Array,Constrained
02af 0337 | 7 | Declare_Variable Array
02b0 0092 0bb1 | | Action Push_String_Extended,0xbb1 ; "put"
02b2 e00b | | Load 0x0,0xb
02b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b4 e00b | | Load 0x0,0xb
02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b6 0119 | | Execute Any,Check_In_Formal_Type
02b7 4801 |H | Short_Literal 0x1
02b8 00da | | Load_Top At_Offset_2
02b9 01d6 | | Execute Vector,Field_Write
02ba 67b5 |g | Indirect_Literal Discrete,0x270,{0x00000000, 0x000081d8}
02bb e00c | | Load 0x0,0xc
02bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bd a5fa | | Store_Unchecked 0x2,-0x6
02be 4506 |E | Exit_Subprogram 0x6
02bf e5fc | | Load 0x2,-0x4
02c0 6802 |h | Jump_Zero 0x2c3
02c1 8405 | | Call 0x2,0x5
02c2 780f |x | Jump 0x2d2
02c3 00db | | Load_Top At_Offset_3
02c4 0120 | | Execute Any,Is_Value
02c5 6803 |h | Jump_Zero 0x2c9
02c6 e001 | | Load 0x0,0x1
02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c8 7801 |x | Jump 0x2ca
02c9 00db | | Load_Top At_Offset_3
02ca 00ea | | Load_Encached Null_String_Cache
02cb 4800 |H | Short_Literal 0x0
02cc e404 | | Load 0x2,0x4
02cd e5fe | | Load 0x2,-0x2
02ce e5ff | | Load 0x2,-0x1
02cf e001 | | Load 0x0,0x1
02d0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02d1 c402 | | Store 0x2,0x2
02d2 4802 |H | Short_Literal 0x2
02d3 e402 | | Load 0x2,0x2
02d4 e00f | | Load 0x0,0xf
02d5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02d6 6828 |h( | Jump_Zero 0x2ff
02d7 4801 |H | Short_Literal 0x1
02d8 4803 |H | Short_Literal 0x3
02d9 e00b | | Load 0x0,0xb
02da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02db 035b | [ | Declare_Type Array,Constrained
02dc 0337 | 7 | Declare_Variable Array
02dd e5ff | | Load 0x2,-0x1
02de e00b | | Load 0x0,0xb
02df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e0 e00b | | Load 0x0,0xb
02e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e2 0119 | | Execute Any,Check_In_Formal_Type
02e3 4801 |H | Short_Literal 0x1
02e4 00da | | Load_Top At_Offset_2
02e5 01d6 | | Execute Vector,Field_Write
02e6 e5fe | | Load 0x2,-0x2
02e7 e00b | | Load 0x0,0xb
02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e9 e00b | | Load 0x0,0xb
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 e402 | | Load 0x2,0x2
02f0 e00f | | Load 0x0,0xf
02f1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f2 e00b | | Load 0x0,0xb
02f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f4 e00b | | Load 0x0,0xb
02f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f6 0119 | | Execute Any,Check_In_Formal_Type
02f7 4803 |H | Short_Literal 0x3
02f8 00da | | Load_Top At_Offset_2
02f9 01d6 | | Execute Vector,Field_Write
02fa 6029 |`) | Indirect_Literal Discrete,0x324,{0x00000000, 0x00008134}
02fb e00c | | Load 0x0,0xc
02fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fd a5fa | | Store_Unchecked 0x2,-0x6
02fe 4506 |E | Exit_Subprogram 0x6
02ff e5fb | | Load 0x2,-0x5
0300 681d |h | Jump_Zero 0x31e
0301 e00d | | Load 0x0,0xd
0302 180e | | Execute Package,Field_Execute,Field_Number 0xe
0303 4801 |H | Short_Literal 0x1
0304 4802 |H | Short_Literal 0x2
0305 e00b | | Load 0x0,0xb
0306 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0307 035b | [ | Declare_Type Array,Constrained
0308 0337 | 7 | Declare_Variable Array
0309 e5ff | | Load 0x2,-0x1
030a e00b | | Load 0x0,0xb
030b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
030c e00b | | Load 0x0,0xb
030d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030e 0119 | | Execute Any,Check_In_Formal_Type
030f 4801 |H | Short_Literal 0x1
0310 00da | | Load_Top At_Offset_2
0311 01d6 | | Execute Vector,Field_Write
0312 e5fe | | Load 0x2,-0x2
0313 e00b | | Load 0x0,0xb
0314 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0315 e00b | | Load 0x0,0xb
0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0317 0119 | | Execute Any,Check_In_Formal_Type
0318 4802 |H | Short_Literal 0x2
0319 00da | | Load_Top At_Offset_2
031a 01d6 | | Execute Vector,Field_Write
031b 6004 |` | Indirect_Literal Discrete,0x320,{0x00000000, 0x00008177}
031c e00c | | Load 0x0,0xc
031d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
031e 4506 |E | Exit_Subprogram 0x6
031f 0000 | | .XXX[0x1]
0320 0000 0000 | | .LITERAL {0x00000000, 0x00008177}
0324 0000 0000 | | .LITERAL {0x00000000, 0x00008134}
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0339 | 9 | .CONST 0x0339 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0006 | | .CONST 0x0006 ; Number of locals
032b INIT_0328:
032b 00e1 | | Load_Encached Boolean_Cache
032c e001 | | Load 0x0,0x1
032d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032e 02c7 | | Declare_Variable Any
032f 00d8 | | Load_Top At_Offset_0
0330 1c00 | | Execute_Immediate Run_Utility,0x0
0331 00e1 | | Load_Encached Boolean_Cache
0332 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0333 e20d | | Load 0x1,0xd
0334 02c7 | | Declare_Variable Any
0335 e5fd | | Load 0x2,-0x3
0336 a405 | | Store_Unchecked 0x2,0x5
0337 029f 08f3 | | Declare_Subprogram For_Call,INIT_08f0
0339 BODY_0328:
0339 4800 |H | Short_Literal 0x0
033a a5fa | | Store_Unchecked 0x2,-0x6
033b 00d9 | | Load_Top At_Offset_1
033c e001 | | Load 0x0,0x1
033d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
033e 6815 |h | Jump_Zero 0x354
033f 4801 |H | Short_Literal 0x1
0340 4801 |H | Short_Literal 0x1
0341 e00b | | Load 0x0,0xb
0342 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0343 035b | [ | Declare_Type Array,Constrained
0344 0337 | 7 | Declare_Variable Array
0345 0092 0bb2 | | Action Push_String_Extended,0xbb2 ; "Get"
0347 e00b | | Load 0x0,0xb
0348 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0349 e00b | | Load 0x0,0xb
034a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034b 0119 | | Execute Any,Check_In_Formal_Type
034c 4801 |H | Short_Literal 0x1
034d 00da | | Load_Top At_Offset_2
034e 01d6 | | Execute Vector,Field_Write
034f 60dc |` | Indirect_Literal Discrete,0x42c,{0x00000000, 0x00008138}
0350 e00c | | Load 0x0,0xc
0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0352 a5fa | | Store_Unchecked 0x2,-0x6
0353 4506 |E | Exit_Subprogram 0x6
0354 00e1 | | Load_Encached Boolean_Cache
0355 00da | | Load_Top At_Offset_2
0356 8220 | | Call 0x1,0x20
0357 c405 | | Store 0x2,0x5
0358 005b | [ | Store_Top Discrete,At_Offset_3
0359 00da | | Load_Top At_Offset_2
035a 7015 |p | Jump_Nonzero 0x370
035b 4801 |H | Short_Literal 0x1
035c 4801 |H | Short_Literal 0x1
035d e00b | | Load 0x0,0xb
035e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035f 035b | [ | Declare_Type Array,Constrained
0360 0337 | 7 | Declare_Variable Array
0361 0092 0bb3 | | Action Push_String_Extended,0xbb3 ; "get"
0363 e00b | | Load 0x0,0xb
0364 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0365 e00b | | Load 0x0,0xb
0366 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0367 0119 | | Execute Any,Check_In_Formal_Type
0368 4801 |H | Short_Literal 0x1
0369 00da | | Load_Top At_Offset_2
036a 01d6 | | Execute Vector,Field_Write
036b 60bc |` | Indirect_Literal Discrete,0x428,{0x00000000, 0x000081d8}
036c e00c | | Load 0x0,0xc
036d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036e a5fa | | Store_Unchecked 0x2,-0x6
036f 4506 |E | Exit_Subprogram 0x6
0370 00e1 | | Load_Encached Boolean_Cache
0371 e403 | | Load 0x2,0x3
0372 0120 | | Execute Any,Is_Value
0373 6803 |h | Jump_Zero 0x377
0374 e001 | | Load 0x0,0x1
0375 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0376 7801 |x | Jump 0x378
0377 e403 | | Load 0x2,0x3
0378 00db | | Load_Top At_Offset_3
0379 e5fe | | Load 0x2,-0x2
037a e001 | | Load 0x0,0x1
037b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
037c c403 | | Store 0x2,0x3
037d c402 | | Store 0x2,0x2
037e 4802 |H | Short_Literal 0x2
037f e403 | | Load 0x2,0x3
0380 e00f | | Load 0x0,0xf
0381 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0382 681f |h | Jump_Zero 0x3a2
0383 4801 |H | Short_Literal 0x1
0384 4802 |H | Short_Literal 0x2
0385 e00b | | Load 0x0,0xb
0386 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0387 035b | [ | Declare_Type Array,Constrained
0388 0337 | 7 | Declare_Variable Array
0389 e403 | | Load 0x2,0x3
038a e00f | | Load 0x0,0xf
038b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
038c e00b | | Load 0x0,0xb
038d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
038e e00b | | Load 0x0,0xb
038f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0390 0119 | | Execute Any,Check_In_Formal_Type
0391 4801 |H | Short_Literal 0x1
0392 00da | | Load_Top At_Offset_2
0393 01d6 | | Execute Vector,Field_Write
0394 e5fe | | Load 0x2,-0x2
0395 e00b | | Load 0x0,0xb
0396 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0397 e00b | | Load 0x0,0xb
0398 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0399 0119 | | Execute Any,Check_In_Formal_Type
039a 4802 |H | Short_Literal 0x2
039b 00da | | Load_Top At_Offset_2
039c 01d6 | | Execute Vector,Field_Write
039d 6086 |` | Indirect_Literal Discrete,0x424,{0x00000000, 0x00008162}
039e e00c | | Load 0x0,0xc
039f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a0 a5fa | | Store_Unchecked 0x2,-0x6
03a1 4506 |E | Exit_Subprogram 0x6
03a2 e402 | | Load 0x2,0x2
03a3 7014 |p | Jump_Nonzero 0x3b8
03a4 4801 |H | Short_Literal 0x1
03a5 4801 |H | Short_Literal 0x1
03a6 e00b | | Load 0x0,0xb
03a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a8 035b | [ | Declare_Type Array,Constrained
03a9 0337 | 7 | Declare_Variable Array
03aa e5fe | | Load 0x2,-0x2
03ab e00b | | Load 0x0,0xb
03ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ad e00b | | Load 0x0,0xb
03ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03af 0119 | | Execute Any,Check_In_Formal_Type
03b0 4801 |H | Short_Literal 0x1
03b1 00da | | Load_Top At_Offset_2
03b2 01d6 | | Execute Vector,Field_Write
03b3 606c |`l | Indirect_Literal Discrete,0x420,{0x00000000, 0x00008171}
03b4 e00c | | Load 0x0,0xc
03b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b6 a5fa | | Store_Unchecked 0x2,-0x6
03b7 4506 |E | Exit_Subprogram 0x6
03b8 e5fc | | Load 0x2,-0x4
03b9 6802 |h | Jump_Zero 0x3bc
03ba 8406 | | Call 0x2,0x6
03bb 780f |x | Jump 0x3cb
03bc 00db | | Load_Top At_Offset_3
03bd 0120 | | Execute Any,Is_Value
03be 6803 |h | Jump_Zero 0x3c2
03bf e001 | | Load 0x0,0x1
03c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c1 7801 |x | Jump 0x3c3
03c2 00db | | Load_Top At_Offset_3
03c3 00ea | | Load_Encached Null_String_Cache
03c4 4800 |H | Short_Literal 0x0
03c5 e5ff | | Load 0x2,-0x1
03c6 e405 | | Load 0x2,0x5
03c7 e5fe | | Load 0x2,-0x2
03c8 e001 | | Load 0x0,0x1
03c9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03ca c403 | | Store 0x2,0x3
03cb 4802 |H | Short_Literal 0x2
03cc e403 | | Load 0x2,0x3
03cd e00f | | Load 0x0,0xf
03ce 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03cf 6828 |h( | Jump_Zero 0x3f8
03d0 4801 |H | Short_Literal 0x1
03d1 4803 |H | Short_Literal 0x3
03d2 e00b | | Load 0x0,0xb
03d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d4 035b | [ | Declare_Type Array,Constrained
03d5 0337 | 7 | Declare_Variable Array
03d6 e5ff | | Load 0x2,-0x1
03d7 e00b | | Load 0x0,0xb
03d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d9 e00b | | Load 0x0,0xb
03da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03db 0119 | | Execute Any,Check_In_Formal_Type
03dc 4801 |H | Short_Literal 0x1
03dd 00da | | Load_Top At_Offset_2
03de 01d6 | | Execute Vector,Field_Write
03df e5fe | | Load 0x2,-0x2
03e0 e00b | | Load 0x0,0xb
03e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e2 e00b | | Load 0x0,0xb
03e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e4 0119 | | Execute Any,Check_In_Formal_Type
03e5 4802 |H | Short_Literal 0x2
03e6 00da | | Load_Top At_Offset_2
03e7 01d6 | | Execute Vector,Field_Write
03e8 e403 | | Load 0x2,0x3
03e9 e00f | | Load 0x0,0xf
03ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03eb e00b | | Load 0x0,0xb
03ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ed e00b | | Load 0x0,0xb
03ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ef 0119 | | Execute Any,Check_In_Formal_Type
03f0 4803 |H | Short_Literal 0x3
03f1 00da | | Load_Top At_Offset_2
03f2 01d6 | | Execute Vector,Field_Write
03f3 6028 |`( | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00008133}
03f4 e00c | | Load 0x0,0xc
03f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f6 a5fa | | Store_Unchecked 0x2,-0x6
03f7 4506 |E | Exit_Subprogram 0x6
03f8 e5fb | | Load 0x2,-0x5
03f9 681d |h | Jump_Zero 0x417
03fa e00d | | Load 0x0,0xd
03fb 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fc 4801 |H | Short_Literal 0x1
03fd 4802 |H | Short_Literal 0x2
03fe e00b | | Load 0x0,0xb
03ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0400 035b | [ | Declare_Type Array,Constrained
0401 0337 | 7 | Declare_Variable Array
0402 e5ff | | Load 0x2,-0x1
0403 e00b | | Load 0x0,0xb
0404 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0405 e00b | | Load 0x0,0xb
0406 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0407 0119 | | Execute Any,Check_In_Formal_Type
0408 4801 |H | Short_Literal 0x1
0409 00da | | Load_Top At_Offset_2
040a 01d6 | | Execute Vector,Field_Write
040b e5fe | | Load 0x2,-0x2
040c e00b | | Load 0x0,0xb
040d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
040e e00b | | Load 0x0,0xb
040f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0410 0119 | | Execute Any,Check_In_Formal_Type
0411 4802 |H | Short_Literal 0x2
0412 00da | | Load_Top At_Offset_2
0413 01d6 | | Execute Vector,Field_Write
0414 6003 |` | Indirect_Literal Discrete,0x418,{0x00000000, 0x00008175}
0415 e00c | | Load 0x0,0xc
0416 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0417 4506 |E | Exit_Subprogram 0x6
0418 0000 0000 | | .LITERAL {0x00000000, 0x00008175}
041c 0000 0000 | | .LITERAL {0x00000000, 0x00008133}
0420 0000 0000 | | .LITERAL {0x00000000, 0x00008171}
0424 0000 0000 | | .LITERAL {0x00000000, 0x00008162}
0428 0000 0000 | | .LITERAL {0x00000000, 0x000081d8}
042c 0000 0000 | | .LITERAL {0x00000000, 0x00008138}
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0474 | t | .CONST 0x0474 ; Address of begin
0431 0534 | 4 | .CONST 0x0534 ; Address of exception handler
0432 0012 | | .CONST 0x0012 ; Number of locals
0433 INIT_0430:
0433 e005 | | Load 0x0,0x5
0434 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0435 02c7 | | Declare_Variable Any
0436 00d8 | | Load_Top At_Offset_0
0437 1c00 | | Execute_Immediate Run_Utility,0x0
0438 e001 | | Load 0x0,0x1
0439 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043a 02c7 | | Declare_Variable Any
043b 00d8 | | Load_Top At_Offset_0
043c 1c00 | | Execute_Immediate Run_Utility,0x0
043d e005 | | Load 0x0,0x5
043e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043f 02c7 | | Declare_Variable Any
0440 e010 | | Load 0x0,0x10
0441 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0442 e010 | | Load 0x0,0x10
0443 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
0444 a404 | | Store_Unchecked 0x2,0x4
0445 e005 | | Load 0x0,0x5
0446 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0447 02c7 | | Declare_Variable Any
0448 e010 | | Load 0x0,0x10
0449 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
044a e010 | | Load 0x0,0x10
044b 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
044c a405 | | Store_Unchecked 0x2,0x5
044d 4801 |H | Short_Literal 0x1
044e 4900 |I | Short_Literal 0x100
044f 00e9 | | Load_Encached String_Cache
0450 035b | [ | Declare_Type Array,Constrained
0451 0337 | 7 | Declare_Variable Array
0452 00e3 | | Load_Encached Natural_Cache
0453 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0454 00e1 | | Load_Encached Boolean_Cache
0455 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0456 00e3 | | Load_Encached Natural_Cache
0457 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0458 e00c | | Load 0x0,0xc
0459 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
045b e5fd | | Load 0x2,-0x3
045c 01db | | Execute Vector,Length
045d 00e3 | | Load_Encached Natural_Cache
045e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
045f 00e1 | | Load_Encached Boolean_Cache
0460 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0461 e20d | | Load 0x1,0xd
0462 02c7 | | Declare_Variable Any
0463 e5fe | | Load 0x2,-0x2
0464 a40d | | Store_Unchecked 0x2,0xd
0465 e5fc | | Load 0x2,-0x4
0466 7002 |p | Jump_Nonzero 0x469
0467 e5fb | | Load 0x2,-0x5
0468 7801 |x | Jump 0x46a
0469 4801 |H | Short_Literal 0x1
046a 00e1 | | Load_Encached Boolean_Cache
046b 03f1 | | Declare_Variable Discrete,With_Value
046c 029f 091b | | Declare_Subprogram For_Call,INIT_0918
046e 029f 098b | | Declare_Subprogram For_Call,INIT_0988
0470 029f 0a33 | 3| Declare_Subprogram For_Call,INIT_0a30
0472 029f 0a53 | S| Declare_Subprogram For_Call,INIT_0a50
0474 BODY_0430:
0474 4800 |H | Short_Literal 0x0
0475 a5f8 | | Store_Unchecked 0x2,-0x8
0476 e40d | | Load 0x2,0xd
0477 e001 | | Load 0x0,0x1
0478 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0479 6815 |h | Jump_Zero 0x48f
047a 4801 |H | Short_Literal 0x1
047b 4801 |H | Short_Literal 0x1
047c e00b | | Load 0x0,0xb
047d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047e 035b | [ | Declare_Type Array,Constrained
047f 0337 | 7 | Declare_Variable Array
0480 0092 0bb4 | | Action Push_String_Extended,0xbb4 ; "Execute_Command"
0482 e00b | | Load 0x0,0xb
0483 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0484 e00b | | Load 0x0,0xb
0485 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0486 0119 | | Execute Any,Check_In_Formal_Type
0487 4801 |H | Short_Literal 0x1
0488 00da | | Load_Top At_Offset_2
0489 01d6 | | Execute Vector,Field_Write
048a 67a1 |g | Indirect_Literal Discrete,0x42c,{0x00000000, 0x00008138}
048b e00c | | Load 0x0,0xc
048c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
048d a5f8 | | Store_Unchecked 0x2,-0x8
048e 4508 |E | Exit_Subprogram 0x8
048f 00e1 | | Load_Encached Boolean_Cache
0490 e40d | | Load 0x2,0xd
0491 8220 | | Call 0x1,0x20
0492 c40d | | Store 0x2,0xd
0493 c40c | | Store 0x2,0xc
0494 e40c | | Load 0x2,0xc
0495 7015 |p | Jump_Nonzero 0x4ab
0496 4801 |H | Short_Literal 0x1
0497 4801 |H | Short_Literal 0x1
0498 e00b | | Load 0x0,0xb
0499 1b0f | | Execute Package,Field_Read,Field_Number 0xf
049a 035b | [ | Declare_Type Array,Constrained
049b 0337 | 7 | Declare_Variable Array
049c 0092 0bb5 | | Action Push_String_Extended,0xbb5 ; "execute_command"
049e e00b | | Load 0x0,0xb
049f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04a0 e00b | | Load 0x0,0xb
04a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a2 0119 | | Execute Any,Check_In_Formal_Type
04a3 4801 |H | Short_Literal 0x1
04a4 00da | | Load_Top At_Offset_2
04a5 01d6 | | Execute Vector,Field_Write
04a6 6781 |g | Indirect_Literal Discrete,0x428,{0x00000000, 0x000081d8}
04a7 e00c | | Load 0x0,0xc
04a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04a9 a5f8 | | Store_Unchecked 0x2,-0x8
04aa 4508 |E | Exit_Subprogram 0x8
04ab e5f9 | | Load 0x2,-0x7
04ac 6814 |h | Jump_Zero 0x4c1
04ad e00d | | Load 0x0,0xd
04ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
04af 4801 |H | Short_Literal 0x1
04b0 4801 |H | Short_Literal 0x1
04b1 e00b | | Load 0x0,0xb
04b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04b3 035b | [ | Declare_Type Array,Constrained
04b4 0337 | 7 | Declare_Variable Array
04b5 e5ff | | Load 0x2,-0x1
04b6 e00b | | Load 0x0,0xb
04b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b8 e00b | | Load 0x0,0xb
04b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ba 0119 | | Execute Any,Check_In_Formal_Type
04bb 4801 |H | Short_Literal 0x1
04bc 00da | | Load_Top At_Offset_2
04bd 01d6 | | Execute Vector,Field_Write
04be 6089 |` | Indirect_Literal Discrete,0x548,{0x00000000, 0x00008176}
04bf e00c | | Load 0x0,0xc
04c0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04c1 e40e | | Load 0x2,0xe
04c2 6801 |h | Jump_Zero 0x4c4
04c3 8410 | | Call 0x2,0x10
04c4 e403 | | Load 0x2,0x3
04c5 0120 | | Execute Any,Is_Value
04c6 6803 |h | Jump_Zero 0x4ca
04c7 e001 | | Load 0x0,0x1
04c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c9 7801 |x | Jump 0x4cb
04ca e403 | | Load 0x2,0x3
04cb 6078 |`x | Indirect_Literal Discrete,0x544,{0x00007fff, 0xffffffff}
04cc e404 | | Load 0x2,0x4
04cd e405 | | Load 0x2,0x5
04ce e010 | | Load 0x0,0x10
04cf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
04d0 e010 | | Load 0x0,0x10
04d1 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
04d2 e40d | | Load 0x2,0xd
04d3 e5ff | | Load 0x2,-0x1
04d4 e001 | | Load 0x0,0x1
04d5 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
04d6 c403 | | Store 0x2,0x3
04d7 4802 |H | Short_Literal 0x2
04d8 e403 | | Load 0x2,0x3
04d9 e00f | | Load 0x0,0xf
04da 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04db 6827 |h' | Jump_Zero 0x503
04dc e40e | | Load 0x2,0xe
04dd 6805 |h | Jump_Zero 0x4e3
04de e402 | | Load 0x2,0x2
04df e005 | | Load 0x0,0x5
04e0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
04e1 7001 |p | Jump_Nonzero 0x4e3
04e2 8412 | | Call 0x2,0x12
04e3 8411 | | Call 0x2,0x11
04e4 4801 |H | Short_Literal 0x1
04e5 4802 |H | Short_Literal 0x2
04e6 e00b | | Load 0x0,0xb
04e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04e8 035b | [ | Declare_Type Array,Constrained
04e9 0337 | 7 | Declare_Variable Array
04ea e5ff | | Load 0x2,-0x1
04eb e00b | | Load 0x0,0xb
04ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ed e00b | | Load 0x0,0xb
04ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ef 0119 | | Execute Any,Check_In_Formal_Type
04f0 4801 |H | Short_Literal 0x1
04f1 00da | | Load_Top At_Offset_2
04f2 01d6 | | Execute Vector,Field_Write
04f3 e403 | | Load 0x2,0x3
04f4 e00f | | Load 0x0,0xf
04f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04f6 e00b | | Load 0x0,0xb
04f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04f8 e00b | | Load 0x0,0xb
04f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04fa 0119 | | Execute Any,Check_In_Formal_Type
04fb 4802 |H | Short_Literal 0x2
04fc 00da | | Load_Top At_Offset_2
04fd 01d6 | | Execute Vector,Field_Write
04fe 6041 |`A | Indirect_Literal Discrete,0x540,{0x00000000, 0x00008132}
04ff e00c | | Load 0x0,0xc
0500 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0501 a5f8 | | Store_Unchecked 0x2,-0x8
0502 4508 |E | Exit_Subprogram 0x8
0503 4801 |H | Short_Literal 0x1
0504 0092 0bb6 | | Action Push_String_Extended,0xbb6 ; "VMS"
0506 e5fd | | Load 0x2,-0x3
0507 e00a | | Load 0x0,0xa
0508 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0509 6804 |h | Jump_Zero 0x50e
050a e40d | | Load 0x2,0xd
050b 840f | | Call 0x2,0xf
050c a40a | | Store_Unchecked 0x2,0xa
050d 7808 |x | Jump 0x516
050e e40e | | Load 0x2,0xe
050f 6806 |h | Jump_Zero 0x516
0510 e402 | | Load 0x2,0x2
0511 e005 | | Load 0x0,0x5
0512 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0513 7001 |p | Jump_Nonzero 0x515
0514 8412 | | Call 0x2,0x12
0515 8411 | | Call 0x2,0x11
0516 e5f9 | | Load 0x2,-0x7
0517 6819 |h | Jump_Zero 0x531
0518 4800 |H | Short_Literal 0x0
0519 e40a | | Load 0x2,0xa
051a e00c | | Load 0x0,0xc
051b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
051c 6814 |h | Jump_Zero 0x531
051d e00d | | Load 0x0,0xd
051e 180e | | Execute Package,Field_Execute,Field_Number 0xe
051f 4801 |H | Short_Literal 0x1
0520 4801 |H | Short_Literal 0x1
0521 e00b | | Load 0x0,0xb
0522 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0523 035b | [ | Declare_Type Array,Constrained
0524 0337 | 7 | Declare_Variable Array
0525 e5ff | | Load 0x2,-0x1
0526 e00b | | Load 0x0,0xb
0527 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0528 e00b | | Load 0x0,0xb
0529 1b0e | | Execute Package,Field_Read,Field_Number 0xe
052a 0119 | | Execute Any,Check_In_Formal_Type
052b 4801 |H | Short_Literal 0x1
052c 00da | | Load_Top At_Offset_2
052d 01d6 | | Execute Vector,Field_Write
052e 600d |` | Indirect_Literal Discrete,0x53c,{0x00000000, 0x00008174}
052f e00c | | Load 0x0,0xc
0530 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0531 e40a | | Load 0x2,0xa
0532 a5f8 | | Store_Unchecked 0x2,-0x8
0533 4508 |E | Exit_Subprogram 0x8
0534 TRAP_0430:
0534 e011 | | Load 0x0,0x11
0535 010f | | Execute Exception,Equal
0536 6801 |h | Jump_Zero 0x538
0537 4508 |E | Exit_Subprogram 0x8
0538 8411 | | Call 0x2,0x11
0539 00d8 | | Load_Top At_Offset_0
053a 0101 | | Execute Exception,Reraise
053b 0000 | | .XXX[0x1]
053c 0000 0000 | | .LITERAL {0x00000000, 0x00008174}
0540 0000 0000 | | .LITERAL {0x00000000, 0x00008132}
0544 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0548 0000 0000 | | .LITERAL {0x00000000, 0x00008176}
054c 0000 0000 | | .BLANK 0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055f | _ | .CONST 0x055f ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0005 | | .CONST 0x0005 ; Number of locals
0553 INIT_0550:
0553 00e1 | | Load_Encached Boolean_Cache
0554 e001 | | Load 0x0,0x1
0555 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0556 02c7 | | Declare_Variable Any
0557 00d8 | | Load_Top At_Offset_0
0558 1c00 | | Execute_Immediate Run_Utility,0x0
0559 00e1 | | Load_Encached Boolean_Cache
055a 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
055b e20d | | Load 0x1,0xd
055c 02c7 | | Declare_Variable Any
055d e5fe | | Load 0x2,-0x2
055e a405 | | Store_Unchecked 0x2,0x5
055f BODY_0550:
055f 4800 |H | Short_Literal 0x0
0560 a5fc | | Store_Unchecked 0x2,-0x4
0561 e218 | | Load 0x1,0x18
0562 c5fb | | Store 0x2,-0x5
0563 00d8 | | Load_Top At_Offset_0
0564 e001 | | Load 0x0,0x1
0565 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0566 6815 |h | Jump_Zero 0x57c
0567 4801 |H | Short_Literal 0x1
0568 4801 |H | Short_Literal 0x1
0569 e00b | | Load 0x0,0xb
056a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
056b 035b | [ | Declare_Type Array,Constrained
056c 0337 | 7 | Declare_Variable Array
056d 0092 0bb7 | | Action Push_String_Extended,0xbb7 ; "Unit_Update_Time"
056f e00b | | Load 0x0,0xb
0570 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0571 e00b | | Load 0x0,0xb
0572 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0573 0119 | | Execute Any,Check_In_Formal_Type
0574 4801 |H | Short_Literal 0x1
0575 00da | | Load_Top At_Offset_2
0576 01d6 | | Execute Vector,Field_Write
0577 60d0 |` | Indirect_Literal Discrete,0x648,{0x00000000, 0x00008138}
0578 e00c | | Load 0x0,0xc
0579 1813 | | Execute Package,Field_Execute,Field_Number 0x13
057a a5fc | | Store_Unchecked 0x2,-0x4
057b 4504 |E | Exit_Subprogram 0x4
057c 00e1 | | Load_Encached Boolean_Cache
057d 00d9 | | Load_Top At_Offset_1
057e 8220 | | Call 0x1,0x20
057f c405 | | Store 0x2,0x5
0580 005a | Z | Store_Top Discrete,At_Offset_2
0581 00d9 | | Load_Top At_Offset_1
0582 7015 |p | Jump_Nonzero 0x598
0583 4801 |H | Short_Literal 0x1
0584 4801 |H | Short_Literal 0x1
0585 e00b | | Load 0x0,0xb
0586 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0587 035b | [ | Declare_Type Array,Constrained
0588 0337 | 7 | Declare_Variable Array
0589 0092 0bb8 | | Action Push_String_Extended,0xbb8 ; "Unit_update_time"
058b e00b | | Load 0x0,0xb
058c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
058d e00b | | Load 0x0,0xb
058e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
058f 0119 | | Execute Any,Check_In_Formal_Type
0590 4801 |H | Short_Literal 0x1
0591 00da | | Load_Top At_Offset_2
0592 01d6 | | Execute Vector,Field_Write
0593 60b0 |` | Indirect_Literal Discrete,0x644,{0x00000000, 0x000081d8}
0594 e00c | | Load 0x0,0xc
0595 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0596 a5fc | | Store_Unchecked 0x2,-0x4
0597 4504 |E | Exit_Subprogram 0x4
0598 00e1 | | Load_Encached Boolean_Cache
0599 00db | | Load_Top At_Offset_3
059a 0120 | | Execute Any,Is_Value
059b 6803 |h | Jump_Zero 0x59f
059c e001 | | Load 0x0,0x1
059d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059e 7801 |x | Jump 0x5a0
059f 00db | | Load_Top At_Offset_3
05a0 00da | | Load_Top At_Offset_2
05a1 e5ff | | Load 0x2,-0x1
05a2 e001 | | Load 0x0,0x1
05a3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
05a4 c403 | | Store 0x2,0x3
05a5 c402 | | Store 0x2,0x2
05a6 4802 |H | Short_Literal 0x2
05a7 00db | | Load_Top At_Offset_3
05a8 e00f | | Load 0x0,0xf
05a9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05aa 681f |h | Jump_Zero 0x5ca
05ab 4801 |H | Short_Literal 0x1
05ac 4802 |H | Short_Literal 0x2
05ad e00b | | Load 0x0,0xb
05ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05af 035b | [ | Declare_Type Array,Constrained
05b0 0337 | 7 | Declare_Variable Array
05b1 00db | | Load_Top At_Offset_3
05b2 e00f | | Load 0x0,0xf
05b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05b4 e00b | | Load 0x0,0xb
05b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05b6 e00b | | Load 0x0,0xb
05b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b8 0119 | | Execute Any,Check_In_Formal_Type
05b9 4801 |H | Short_Literal 0x1
05ba 00da | | Load_Top At_Offset_2
05bb 01d6 | | Execute Vector,Field_Write
05bc e5ff | | Load 0x2,-0x1
05bd e00b | | Load 0x0,0xb
05be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05bf e00b | | Load 0x0,0xb
05c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c1 0119 | | Execute Any,Check_In_Formal_Type
05c2 4802 |H | Short_Literal 0x2
05c3 00da | | Load_Top At_Offset_2
05c4 01d6 | | Execute Vector,Field_Write
05c5 607a |`z | Indirect_Literal Discrete,0x640,{0x00000000, 0x00008162}
05c6 e00c | | Load 0x0,0xc
05c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c8 a5fc | | Store_Unchecked 0x2,-0x4
05c9 4504 |E | Exit_Subprogram 0x4
05ca 00db | | Load_Top At_Offset_3
05cb 7014 |p | Jump_Nonzero 0x5e0
05cc 4801 |H | Short_Literal 0x1
05cd 4801 |H | Short_Literal 0x1
05ce e00b | | Load 0x0,0xb
05cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05d0 035b | [ | Declare_Type Array,Constrained
05d1 0337 | 7 | Declare_Variable Array
05d2 e5ff | | Load 0x2,-0x1
05d3 e00b | | Load 0x0,0xb
05d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d5 e00b | | Load 0x0,0xb
05d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d7 0119 | | Execute Any,Check_In_Formal_Type
05d8 4801 |H | Short_Literal 0x1
05d9 00da | | Load_Top At_Offset_2
05da 01d6 | | Execute Vector,Field_Write
05db 6060 |`` | Indirect_Literal Discrete,0x63c,{0x00000000, 0x00008171}
05dc e00c | | Load 0x0,0xc
05dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05de a5fc | | Store_Unchecked 0x2,-0x4
05df 4504 |E | Exit_Subprogram 0x4
05e0 00da | | Load_Top At_Offset_2
05e1 0120 | | Execute Any,Is_Value
05e2 6803 |h | Jump_Zero 0x5e6
05e3 e001 | | Load 0x0,0x1
05e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e5 7801 |x | Jump 0x5e7
05e6 00da | | Load_Top At_Offset_2
05e7 e5fb | | Load 0x2,-0x5
05e8 0120 | | Execute Any,Is_Value
05e9 6803 |h | Jump_Zero 0x5ed
05ea e002 | | Load 0x0,0x2
05eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ec 7801 |x | Jump 0x5ee
05ed e5fb | | Load 0x2,-0x5
05ee 00ea | | Load_Encached Null_String_Cache
05ef 00db | | Load_Top At_Offset_3
05f0 e5ff | | Load 0x2,-0x1
05f1 e001 | | Load 0x0,0x1
05f2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05f3 c5fb | | Store 0x2,-0x5
05f4 c403 | | Store 0x2,0x3
05f5 4802 |H | Short_Literal 0x2
05f6 00db | | Load_Top At_Offset_3
05f7 e00f | | Load 0x0,0xf
05f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05f9 6821 |h! | Jump_Zero 0x61b
05fa 4801 |H | Short_Literal 0x1
05fb 4802 |H | Short_Literal 0x2
05fc e00b | | Load 0x0,0xb
05fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05fe 035b | [ | Declare_Type Array,Constrained
05ff 0337 | 7 | Declare_Variable Array
0600 e5ff | | Load 0x2,-0x1
0601 e00b | | Load 0x0,0xb
0602 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0603 e00b | | Load 0x0,0xb
0604 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0605 0119 | | Execute Any,Check_In_Formal_Type
0606 4801 |H | Short_Literal 0x1
0607 00da | | Load_Top At_Offset_2
0608 01d6 | | Execute Vector,Field_Write
0609 00db | | Load_Top At_Offset_3
060a e00f | | Load 0x0,0xf
060b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
060c e00b | | Load 0x0,0xb
060d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
060e e00b | | Load 0x0,0xb
060f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0610 0119 | | Execute Any,Check_In_Formal_Type
0611 4802 |H | Short_Literal 0x2
0612 00da | | Load_Top At_Offset_2
0613 01d6 | | Execute Vector,Field_Write
0614 6023 |`# | Indirect_Literal Discrete,0x638,{0x00000000, 0x00008137}
0615 e00c | | Load 0x0,0xc
0616 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0617 a5fc | | Store_Unchecked 0x2,-0x4
0618 e218 | | Load 0x1,0x18
0619 c5fb | | Store 0x2,-0x5
061a 4504 |E | Exit_Subprogram 0x4
061b e5fd | | Load 0x2,-0x3
061c 6814 |h | Jump_Zero 0x631
061d e00d | | Load 0x0,0xd
061e 180e | | Execute Package,Field_Execute,Field_Number 0xe
061f 4801 |H | Short_Literal 0x1
0620 4801 |H | Short_Literal 0x1
0621 e00b | | Load 0x0,0xb
0622 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0623 035b | [ | Declare_Type Array,Constrained
0624 0337 | 7 | Declare_Variable Array
0625 e5ff | | Load 0x2,-0x1
0626 e00b | | Load 0x0,0xb
0627 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0628 e00b | | Load 0x0,0xb
0629 1b0e | | Execute Package,Field_Read,Field_Number 0xe
062a 0119 | | Execute Any,Check_In_Formal_Type
062b 4801 |H | Short_Literal 0x1
062c 00da | | Load_Top At_Offset_2
062d 01d6 | | Execute Vector,Field_Write
062e 6005 |` | Indirect_Literal Discrete,0x634,{0x00000000, 0x00008179}
062f e00c | | Load 0x0,0xc
0630 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0631 4504 |E | Exit_Subprogram 0x4
0632 0000 0000 | | .XXX[0x2]
0634 0000 0000 | | .LITERAL {0x00000000, 0x00008179}
0638 0000 0000 | | .LITERAL {0x00000000, 0x00008137}
063c 0000 0000 | | .LITERAL {0x00000000, 0x00008171}
0640 0000 0000 | | .LITERAL {0x00000000, 0x00008162}
0644 0000 0000 | | .LITERAL {0x00000000, 0x000081d8}
0648 0000 0000 | | .LITERAL {0x00000000, 0x00008138}
064c 0000 0000 | | .BLANK 0000[0x4]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 065e | ^ | .CONST 0x065e ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0004 | | .CONST 0x0004 ; Number of locals
0653 INIT_0650:
0653 e00f | | Load 0x0,0xf
0654 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0655 02c7 | | Declare_Variable Any
0656 00d8 | | Load_Top At_Offset_0
0657 1c00 | | Execute_Immediate Run_Utility,0x0
0658 00e1 | | Load_Encached Boolean_Cache
0659 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
065a e20d | | Load 0x1,0xd
065b 02c7 | | Declare_Variable Any
065c e5fe | | Load 0x2,-0x2
065d a404 | | Store_Unchecked 0x2,0x4
065e BODY_0650:
065e 4800 |H | Short_Literal 0x0
065f a5fc | | Store_Unchecked 0x2,-0x4
0660 4800 |H | Short_Literal 0x0
0661 a5fb | | Store_Unchecked 0x2,-0x5
0662 00e1 | | Load_Encached Boolean_Cache
0663 00d9 | | Load_Top At_Offset_1
0664 8220 | | Call 0x1,0x20
0665 c404 | | Store 0x2,0x4
0666 005a | Z | Store_Top Discrete,At_Offset_2
0667 00d9 | | Load_Top At_Offset_1
0668 7015 |p | Jump_Nonzero 0x67e
0669 4801 |H | Short_Literal 0x1
066a 4801 |H | Short_Literal 0x1
066b e00b | | Load 0x0,0xb
066c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
066d 035b | [ | Declare_Type Array,Constrained
066e 0337 | 7 | Declare_Variable Array
066f 0092 0bb9 | | Action Push_String_Extended,0xbb9 ; "file_exists"
0671 e00b | | Load 0x0,0xb
0672 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0673 e00b | | Load 0x0,0xb
0674 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0675 0119 | | Execute Any,Check_In_Formal_Type
0676 4801 |H | Short_Literal 0x1
0677 00da | | Load_Top At_Offset_2
0678 01d6 | | Execute Vector,Field_Write
0679 67ca |g | Indirect_Literal Discrete,0x644,{0x00000000, 0x000081d8}
067a e00c | | Load 0x0,0xc
067b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
067c a5fc | | Store_Unchecked 0x2,-0x4
067d 4504 |E | Exit_Subprogram 0x4
067e 00e1 | | Load_Encached Boolean_Cache
067f 00db | | Load_Top At_Offset_3
0680 0120 | | Execute Any,Is_Value
0681 6803 |h | Jump_Zero 0x685
0682 e001 | | Load 0x0,0x1
0683 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0684 7801 |x | Jump 0x686
0685 00db | | Load_Top At_Offset_3
0686 00da | | Load_Top At_Offset_2
0687 e5ff | | Load 0x2,-0x1
0688 e001 | | Load 0x0,0x1
0689 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
068a c402 | | Store 0x2,0x2
068b c5fb | | Store 0x2,-0x5
068c 4802 |H | Short_Literal 0x2
068d 00db | | Load_Top At_Offset_3
068e e00f | | Load 0x0,0xf
068f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0690 681f |h | Jump_Zero 0x6b0
0691 4801 |H | Short_Literal 0x1
0692 4802 |H | Short_Literal 0x2
0693 e00b | | Load 0x0,0xb
0694 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0695 035b | [ | Declare_Type Array,Constrained
0696 0337 | 7 | Declare_Variable Array
0697 00db | | Load_Top At_Offset_3
0698 e00f | | Load 0x0,0xf
0699 1818 | | Execute Package,Field_Execute,Field_Number 0x18
069a e00b | | Load 0x0,0xb
069b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
069c e00b | | Load 0x0,0xb
069d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
069e 0119 | | Execute Any,Check_In_Formal_Type
069f 4801 |H | Short_Literal 0x1
06a0 00da | | Load_Top At_Offset_2
06a1 01d6 | | Execute Vector,Field_Write
06a2 e5ff | | Load 0x2,-0x1
06a3 e00b | | Load 0x0,0xb
06a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06a5 e00b | | Load 0x0,0xb
06a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a7 0119 | | Execute Any,Check_In_Formal_Type
06a8 4802 |H | Short_Literal 0x2
06a9 00da | | Load_Top At_Offset_2
06aa 01d6 | | Execute Vector,Field_Write
06ab 6794 |g | Indirect_Literal Discrete,0x640,{0x00000000, 0x00008162}
06ac e00c | | Load 0x0,0xc
06ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ae a5fc | | Store_Unchecked 0x2,-0x4
06af 4504 |E | Exit_Subprogram 0x4
06b0 e5fd | | Load 0x2,-0x3
06b1 681a |h | Jump_Zero 0x6cc
06b2 e00d | | Load 0x0,0xd
06b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b4 4801 |H | Short_Literal 0x1
06b5 4801 |H | Short_Literal 0x1
06b6 e00b | | Load 0x0,0xb
06b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06b8 035b | [ | Declare_Type Array,Constrained
06b9 0337 | 7 | Declare_Variable Array
06ba 0092 0bba | | Action Push_String_Extended,0xbba ; "Successfully determined the existence of remote file \x22"
06bc e5ff | | Load 0x2,-0x1
06bd 01cc | | Execute Vector,Catenate
06be 0092 0bbb | | Action Push_String_Extended,0xbbb ; "\x22."
06c0 01cc | | Execute Vector,Catenate
06c1 e00b | | Load 0x0,0xb
06c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06c3 e00b | | Load 0x0,0xb
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 6006 |` | Indirect_Literal Discrete,0x6d0,{0x00000000, 0x00008136}
06ca e00c | | Load 0x0,0xc
06cb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06cc 4504 |E | Exit_Subprogram 0x4
06cd 0000 0000 | | .XXX[0x3]
06cf 0000 | |
06d0 0000 0000 | | .LITERAL {0x00000000, 0x00008136}
06d4 0000 0000 | | .BLANK 0000[0x4]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 4608 |F | Jump_Case 0x8
06dc 7808 |x | Jump 0x6e5 ; case 0x0
06dd 7826 |x& | Jump 0x704 ; case 0x1
06de 7832 |x2 | Jump 0x711 ; case 0x2
06df 7831 |x1 | Jump 0x711 ; case 0x3
06e0 7830 |x0 | Jump 0x711 ; case 0x4
06e1 782f |x/ | Jump 0x711 ; case 0x5
06e2 782e |x. | Jump 0x711 ; case 0x6
06e3 782d |x- | Jump 0x711 ; case 0x7
06e4 782c |x, | Jump 0x711 ; case 0x8
06e5 00da | | Load_Top At_Offset_2
06e6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
06e7 0125 | % | Execute Any,Set_Constraint
06e8 00da | | Load_Top At_Offset_2
06e9 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
06ea 1c00 | | Execute_Immediate Run_Utility,0x0
06eb 00da | | Load_Top At_Offset_2
06ec 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
06ed 0125 | % | Execute Any,Set_Constraint
06ee 00da | | Load_Top At_Offset_2
06ef 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
06f0 1c00 | | Execute_Immediate Run_Utility,0x0
06f1 00da | | Load_Top At_Offset_2
06f2 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
06f3 0125 | % | Execute Any,Set_Constraint
06f4 00da | | Load_Top At_Offset_2
06f5 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
06f6 1c00 | | Execute_Immediate Run_Utility,0x0
06f7 00da | | Load_Top At_Offset_2
06f8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06f9 0125 | % | Execute Any,Set_Constraint
06fa 00da | | Load_Top At_Offset_2
06fb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06fc 1c00 | | Execute_Immediate Run_Utility,0x0
06fd 00da | | Load_Top At_Offset_2
06fe 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
06ff 0125 | % | Execute Any,Set_Constraint
0700 00da | | Load_Top At_Offset_2
0701 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0702 1c00 | | Execute_Immediate Run_Utility,0x0
0703 4302 |C | Exit_Subprogram From_Utility,0x2
0704 00da | | Load_Top At_Offset_2
0705 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0706 0125 | % | Execute Any,Set_Constraint
0707 00da | | Load_Top At_Offset_2
0708 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0709 0125 | % | Execute Any,Set_Constraint
070a 00da | | Load_Top At_Offset_2
070b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
070c 0125 | % | Execute Any,Set_Constraint
070d 00da | | Load_Top At_Offset_2
070e 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
070f 0125 | % | Execute Any,Set_Constraint
0710 4302 |C | Exit_Subprogram From_Utility,0x2
0711 0869 | i | Execute_Immediate Raise,0x69
0712 0000 0000 | | .BLANK 0000[0x6]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 0727 | ' | .CONST 0x0727 ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0003 | | .CONST 0x0003 ; Number of locals
071b INIT_0718:
071b e003 | | Load 0x0,0x3
071c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
071d e003 | | Load 0x0,0x3
071e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
071f 03f1 | | Declare_Variable Discrete,With_Value
0720 e003 | | Load 0x0,0x3
0721 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0722 e012 | | Load 0x0,0x12
0723 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0724 e004 | | Load 0x0,0x4
0725 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0726 03f1 | | Declare_Variable Discrete,With_Value
0727 BODY_0718:
0727 00d9 | | Load_Top At_Offset_1
0728 e5ff | | Load 0x2,-0x1
0729 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
072a 00d8 | | Load_Top At_Offset_0
072b e5ff | | Load 0x2,-0x1
072c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
072d 4800 |H | Short_Literal 0x0
072e e5ff | | Load 0x2,-0x1
072f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0730 e00d | | Load 0x0,0xd
0731 180e | | Execute Package,Field_Execute,Field_Number 0xe
0732 4801 |H | Short_Literal 0x1
0733 0092 0bbc | | Action Push_String_Extended,0xbbc ; "Initialized Job_Record for job"
0735 e402 | | Load 0x2,0x2
0736 00e0 | | Load_Encached Standard_Cache
0737 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0738 01cc | | Execute Vector,Catenate
0739 0092 0bbd | | Action Push_String_Extended,0xbbd ; ", task"
073b 01cc | | Execute Vector,Catenate
073c 00db | | Load_Top At_Offset_3
073d 00d8 | | Load_Top At_Offset_0
073e 00e2 | | Load_Encached Integer_Cache
073f 0260 | ` | Execute Discrete,In_Type
0740 7001 |p | Jump_Nonzero 0x742
0741 0801 | | Execute_Immediate Raise,0x1
0742 00e0 | | Load_Encached Standard_Cache
0743 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0744 01cc | | Execute Vector,Catenate
0745 e00e | | Load 0x0,0xe
0746 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0747 4501 |E | Exit_Subprogram 0x1
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b e00d | | Load 0x0,0xd
074c 180e | | Execute Package,Field_Execute,Field_Number 0xe
074d 4801 |H | Short_Literal 0x1
074e 0092 0bbe | | Action Push_String_Extended,0xbbe ; "Finalizing Job_Record"
0750 e00e | | Load 0x0,0xe
0751 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0752 00da | | Load_Top At_Offset_2
0753 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0754 6822 |h" | Jump_Zero 0x777
0755 00da | | Load_Top At_Offset_2
0756 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0757 e005 | | Load 0x0,0x5
0758 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0759 00db | | Load_Top At_Offset_3
075a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
075b e00d | | Load 0x0,0xd
075c 180e | | Execute Package,Field_Execute,Field_Number 0xe
075d 4801 |H | Short_Literal 0x1
075e 0092 0bbf | | Action Push_String_Extended,0xbbf ; "Deleting temporary file for process"
0760 e5ff | | Load 0x2,-0x1
0761 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0762 00e0 | | Load_Encached Standard_Cache
0763 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0764 01cc | | Execute Vector,Catenate
0765 0092 0bbd | | Action Push_String_Extended,0xbbd ; ", task"
0767 01cc | | Execute Vector,Catenate
0768 e5ff | | Load 0x2,-0x1
0769 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
076a 00d8 | | Load_Top At_Offset_0
076b 00e2 | | Load_Encached Integer_Cache
076c 0260 | ` | Execute Discrete,In_Type
076d 7001 |p | Jump_Nonzero 0x76f
076e 0801 | | Execute_Immediate Raise,0x1
076f 00e0 | | Load_Encached Standard_Cache
0770 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0771 01cc | | Execute Vector,Catenate
0772 e00e | | Load 0x0,0xe
0773 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0774 4800 |H | Short_Literal 0x0
0775 00db | | Load_Top At_Offset_3
0776 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0777 4800 |H | Short_Literal 0x0
0778 00db | | Load_Top At_Offset_3
0779 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
077a 4800 |H | Short_Literal 0x0
077b 00db | | Load_Top At_Offset_3
077c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
077d 00da | | Load_Top At_Offset_2
077e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
077f 00ea | | Load_Encached Null_String_Cache
0780 e006 | | Load 0x0,0x6
0781 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0782 00d1 | | Pop_Control Pop_Count_1
0783 00da | | Load_Top At_Offset_2
0784 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0785 00ea | | Load_Encached Null_String_Cache
0786 e006 | | Load 0x0,0x6
0787 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0788 00d1 | | Pop_Control Pop_Count_1
0789 00da | | Load_Top At_Offset_2
078a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
078b 00ea | | Load_Encached Null_String_Cache
078c e006 | | Load 0x0,0x6
078d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
078e 00d1 | | Pop_Control Pop_Count_1
078f 00da | | Load_Top At_Offset_2
0790 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0791 00ea | | Load_Encached Null_String_Cache
0792 e006 | | Load 0x0,0x6
0793 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0794 4501 |E | Exit_Subprogram 0x1
0795 0000 0000 | | .XXX[0x3]
0797 0000 | |
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07b0 | | .CONST 0x07b0 ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0005 | | .CONST 0x0005 ; Number of locals
079b INIT_0798:
079b e001 | | Load 0x0,0x1
079c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
079d 02c7 | | Declare_Variable Any
079e 00d8 | | Load_Top At_Offset_0
079f 1c00 | | Execute_Immediate Run_Utility,0x0
07a0 e003 | | Load 0x0,0x3
07a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07a2 e003 | | Load 0x0,0x3
07a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
07a4 03f1 | | Declare_Variable Discrete,With_Value
07a5 e21a | | Load 0x1,0x1a
07a6 0322 | " | Declare_Variable Record
07a7 00d8 | | Load_Top At_Offset_0
07a8 1c01 | | Execute_Immediate Run_Utility,0x1
07a9 00d9 | | Load_Top At_Offset_1
07aa e21d | | Load 0x1,0x1d
07ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07ac 00d9 | | Load_Top At_Offset_1
07ad 017d | } | Execute Record,Structure_Write
07ae 029f 0b33 | 3| Declare_Subprogram For_Call,INIT_0b30
07b0 BODY_0798:
07b0 e00d | | Load 0x0,0xd
07b1 180e | | Execute Package,Field_Execute,Field_Number 0xe
07b2 4801 |H | Short_Literal 0x1
07b3 4801 |H | Short_Literal 0x1
07b4 e00b | | Load 0x0,0xb
07b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07b6 035b | [ | Declare_Type Array,Constrained
07b7 0337 | 7 | Declare_Variable Array
07b8 00db | | Load_Top At_Offset_3
07b9 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
07ba e006 | | Load 0x0,0x6
07bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07bc e00b | | Load 0x0,0xb
07bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07be e00b | | Load 0x0,0xb
07bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07c0 0119 | | Execute Any,Check_In_Formal_Type
07c1 4801 |H | Short_Literal 0x1
07c2 00da | | Load_Top At_Offset_2
07c3 01d6 | | Execute Vector,Field_Write
07c4 6017 |` | Indirect_Literal Discrete,0x7dc,{0x00000000, 0x000081d9}
07c5 e00c | | Load 0x0,0xc
07c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07c7 8405 | | Call 0x2,0x5
07c8 e00c | | Load 0x0,0xc
07c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07ca e5fe | | Load 0x2,-0x2
07cb e5ff | | Load 0x2,-0x1
07cc e404 | | Load 0x2,0x4
07cd 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
07ce e006 | | Load 0x0,0x6
07cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07d0 e404 | | Load 0x2,0x4
07d1 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
07d2 e006 | | Load 0x0,0x6
07d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07d4 e404 | | Load 0x2,0x4
07d5 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
07d6 e006 | | Load 0x0,0x6
07d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07d8 820e | | Call 0x1,0xe
07d9 c5fe | | Store 0x2,-0x2
07da c5fd | | Store 0x2,-0x3
07db 4502 |E | Exit_Subprogram 0x2
07dc 0000 0000 | | .LITERAL {0x00000000, 0x000081d9}
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 07e7 | | .CONST 0x07e7 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 00da | | Load_Top At_Offset_2
07e4 e001 | | Load 0x0,0x1
07e5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07e6 4401 |D | Exit_Subprogram With_Result,0x1
07e7 TRAP_07e0:
07e7 0007 | | Action Break_Optional
07e8 4800 |H | Short_Literal 0x0
07e9 4401 |D | Exit_Subprogram With_Result,0x1
07ea 0000 0000 | | .BLANK 0000[0x6]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f5 | | .CONST 0x07f5 ; Address of begin
07f1 0817 | | .CONST 0x0817 ; Address of exception handler
07f2 0002 | | .CONST 0x0002 ; Number of locals
07f3 INIT_07f0:
07f3 e00c | | Load 0x0,0xc
07f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07f5 BODY_07f0:
07f5 4801 |H | Short_Literal 0x1
07f6 a5fe | | Store_Unchecked 0x2,-0x2
07f7 00db | | Load_Top At_Offset_3
07f8 821f | | Call 0x1,0x1f
07f9 701c |p | Jump_Nonzero 0x816
07fa 00cf | | Action Mark_Auxiliary
07fb 4803 |H | Short_Literal 0x3
07fc 4801 |H | Short_Literal 0x1
07fd 0007 | | Action Break_Optional
07fe e00c | | Load 0x0,0xc
07ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0800 e5ff | | Load 0x2,-0x1
0801 4800 |H | Short_Literal 0x0
0802 821e | | Call 0x1,0x1e
0803 c5ff | | Store 0x2,-0x1
0804 c402 | | Store 0x2,0x2
0805 4800 |H | Short_Literal 0x0
0806 e402 | | Load 0x2,0x2
0807 e00c | | Load 0x0,0xc
0808 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0809 6807 |h | Jump_Zero 0x811
080a e5ff | | Load 0x2,-0x1
080b e001 | | Load 0x0,0x1
080c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
080d 6803 |h | Jump_Zero 0x811
080e 4801 |H | Short_Literal 0x1
080f a5fe | | Store_Unchecked 0x2,-0x2
0810 4501 |E | Exit_Subprogram 0x1
0811 00c8 | | Action Pop_Auxiliary_Range
0812 3feb |? | Loop_Increasing 0x7fe
0813 00ce | | Action Pop_Auxiliary
0814 4800 |H | Short_Literal 0x0
0815 a5fe | | Store_Unchecked 0x2,-0x2
0816 4501 |E | Exit_Subprogram 0x1
0817 TRAP_07f0:
0817 0007 | | Action Break_Optional
0818 4800 |H | Short_Literal 0x0
0819 a5fe | | Store_Unchecked 0x2,-0x2
081a 4501 |E | Exit_Subprogram 0x1
081b 0000 0000 | | .BLANK 0000[0x5]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0826 | & | .CONST 0x0826 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0002 | | .CONST 0x0002 ; Number of locals
0823 INIT_0820:
0823 e5fe | | Load 0x2,-0x2
0824 e001 | | Load 0x0,0x1
0825 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0826 BODY_0820:
0826 e402 | | Load 0x2,0x2
0827 0120 | | Execute Any,Is_Value
0828 6803 |h | Jump_Zero 0x82c
0829 e001 | | Load 0x0,0x1
082a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082b 7801 |x | Jump 0x82d
082c e402 | | Load 0x2,0x2
082d e5fe | | Load 0x2,-0x2
082e e001 | | Load 0x0,0x1
082f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0830 011e | | Execute Any,Convert
0831 603e |`> | Indirect_Literal Discrete,0x870,{0x00000000, 0x000a0000}
0832 e001 | | Load 0x0,0x1
0833 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0834 c5fe | | Store 0x2,-0x2
0835 c402 | | Store 0x2,0x2
0836 4802 |H | Short_Literal 0x2
0837 e402 | | Load 0x2,0x2
0838 e00f | | Load 0x0,0xf
0839 1817 | | Execute Package,Field_Execute,Field_Number 0x17
083a 6816 |h | Jump_Zero 0x851
083b 4801 |H | Short_Literal 0x1
083c 4801 |H | Short_Literal 0x1
083d e00b | | Load 0x0,0xb
083e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
083f 035b | [ | Declare_Type Array,Constrained
0840 0337 | 7 | Declare_Variable Array
0841 e402 | | Load 0x2,0x2
0842 e00f | | Load 0x0,0xf
0843 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0844 e00b | | Load 0x0,0xb
0845 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0846 e00b | | Load 0x0,0xb
0847 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0848 0119 | | Execute Any,Check_In_Formal_Type
0849 4801 |H | Short_Literal 0x1
084a 00da | | Load_Top At_Offset_2
084b 01d6 | | Execute Vector,Field_Write
084c 601f |` | Indirect_Literal Discrete,0x86c,{0x00000000, 0x00008135}
084d e00c | | Load 0x0,0xc
084e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
084f a5fd | | Store_Unchecked 0x2,-0x3
0850 4501 |E | Exit_Subprogram 0x1
0851 e5ff | | Load 0x2,-0x1
0852 6814 |h | Jump_Zero 0x867
0853 e00d | | Load 0x0,0xd
0854 180e | | Execute Package,Field_Execute,Field_Number 0xe
0855 4801 |H | Short_Literal 0x1
0856 4801 |H | Short_Literal 0x1
0857 e00b | | Load 0x0,0xb
0858 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0859 035b | [ | Declare_Type Array,Constrained
085a 0337 | 7 | Declare_Variable Array
085b 00da | | Load_Top At_Offset_2
085c e00b | | Load 0x0,0xb
085d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
085e e00b | | Load 0x0,0xb
085f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0860 0119 | | Execute Any,Check_In_Formal_Type
0861 4801 |H | Short_Literal 0x1
0862 00da | | Load_Top At_Offset_2
0863 01d6 | | Execute Vector,Field_Write
0864 6003 |` | Indirect_Literal Discrete,0x868,{0x00000000, 0x00008178}
0865 e00c | | Load 0x0,0xc
0866 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0867 4501 |E | Exit_Subprogram 0x1
0868 0000 0000 | | .LITERAL {0x00000000, 0x00008178}
086c 0000 0000 | | .LITERAL {0x00000000, 0x00008135}
0870 0000 0000 | | .LITERAL {0x00000000, 0x000a0000}
0874 0000 0000 | | .BLANK 0000[0x4]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087e | ~ | .CONST 0x087e ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0002 | | .CONST 0x0002 ; Number of locals
087b INIT_0878:
087b e5fe | | Load 0x2,-0x2
087c e001 | | Load 0x0,0x1
087d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
087e BODY_0878:
087e e402 | | Load 0x2,0x2
087f 0120 | | Execute Any,Is_Value
0880 6803 |h | Jump_Zero 0x884
0881 e001 | | Load 0x0,0x1
0882 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0883 7801 |x | Jump 0x885
0884 e402 | | Load 0x2,0x2
0885 e5fe | | Load 0x2,-0x2
0886 e001 | | Load 0x0,0x1
0887 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0888 011e | | Execute Any,Convert
0889 e001 | | Load 0x0,0x1
088a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
088b c5fe | | Store 0x2,-0x2
088c c402 | | Store 0x2,0x2
088d 4802 |H | Short_Literal 0x2
088e e402 | | Load 0x2,0x2
088f e00f | | Load 0x0,0xf
0890 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0891 6816 |h | Jump_Zero 0x8a8
0892 4801 |H | Short_Literal 0x1
0893 4801 |H | Short_Literal 0x1
0894 e00b | | Load 0x0,0xb
0895 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0896 035b | [ | Declare_Type Array,Constrained
0897 0337 | 7 | Declare_Variable Array
0898 e402 | | Load 0x2,0x2
0899 e00f | | Load 0x0,0xf
089a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
089b e00b | | Load 0x0,0xb
089c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
089d e00b | | Load 0x0,0xb
089e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
089f 0119 | | Execute Any,Check_In_Formal_Type
08a0 4801 |H | Short_Literal 0x1
08a1 00da | | Load_Top At_Offset_2
08a2 01d6 | | Execute Vector,Field_Write
08a3 67c8 |g | Indirect_Literal Discrete,0x86c,{0x00000000, 0x00008135}
08a4 e00c | | Load 0x0,0xc
08a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08a6 a5fd | | Store_Unchecked 0x2,-0x3
08a7 4501 |E | Exit_Subprogram 0x1
08a8 e5ff | | Load 0x2,-0x1
08a9 6814 |h | Jump_Zero 0x8be
08aa e00d | | Load 0x0,0xd
08ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
08ac 4801 |H | Short_Literal 0x1
08ad 4801 |H | Short_Literal 0x1
08ae e00b | | Load 0x0,0xb
08af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08b0 035b | [ | Declare_Type Array,Constrained
08b1 0337 | 7 | Declare_Variable Array
08b2 00da | | Load_Top At_Offset_2
08b3 e00b | | Load 0x0,0xb
08b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08b5 e00b | | Load 0x0,0xb
08b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08b7 0119 | | Execute Any,Check_In_Formal_Type
08b8 4801 |H | Short_Literal 0x1
08b9 00da | | Load_Top At_Offset_2
08ba 01d6 | | Execute Vector,Field_Write
08bb 6004 |` | Indirect_Literal Discrete,0x8c0,{0x00000000, 0x00008173}
08bc e00c | | Load 0x0,0xc
08bd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08be 4501 |E | Exit_Subprogram 0x1
08bf 0000 | | .XXX[0x1]
08c0 0000 0000 | | .LITERAL {0x00000000, 0x00008173}
08c4 0000 0000 | | .BLANK 0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08d0 | | .CONST 0x08d0 ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0002 | | .CONST 0x0002 ; Number of locals
08cb INIT_08c8:
08cb e005 | | Load 0x0,0x5
08cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08cd 02c7 | | Declare_Variable Any
08ce 00d8 | | Load_Top At_Offset_0
08cf 1c00 | | Execute_Immediate Run_Utility,0x0
08d0 BODY_08c8:
08d0 00d8 | | Load_Top At_Offset_0
08d1 e013 | | Load 0x0,0x13
08d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08d3 e014 | | Load 0x0,0x14
08d4 180f | | Execute Package,Field_Execute,Field_Number 0xf
08d5 00ea | | Load_Encached Null_String_Cache
08d6 e5ff | | Load 0x2,-0x1
08d7 4800 |H | Short_Literal 0x0
08d8 e005 | | Load 0x0,0x5
08d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08da c602 | | Store 0x3,0x2
08db e402 | | Load 0x2,0x2
08dc 0120 | | Execute Any,Is_Value
08dd 6803 |h | Jump_Zero 0x8e1
08de e001 | | Load 0x0,0x1
08df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e0 7801 |x | Jump 0x8e2
08e1 e402 | | Load 0x2,0x2
08e2 00ea | | Load_Encached Null_String_Cache
08e3 4800 |H | Short_Literal 0x0
08e4 e404 | | Load 0x2,0x4
08e5 e5fe | | Load 0x2,-0x2
08e6 e602 | | Load 0x3,0x2
08e7 e001 | | Load 0x0,0x1
08e8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08e9 c402 | | Store 0x2,0x2
08ea 4501 |E | Exit_Subprogram 0x1
08eb 0000 0000 | | .BLANK 0000[0x5]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f8 | | .CONST 0x08f8 ; Address of begin
08f1 0004 | | .CONST 0x0004 ; Address of exception handler
08f2 0002 | | .CONST 0x0002 ; Number of locals
08f3 INIT_08f0:
08f3 e005 | | Load 0x0,0x5
08f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f5 02c7 | | Declare_Variable Any
08f6 00d8 | | Load_Top At_Offset_0
08f7 1c00 | | Execute_Immediate Run_Utility,0x0
08f8 BODY_08f0:
08f8 00d8 | | Load_Top At_Offset_0
08f9 e013 | | Load 0x0,0x13
08fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08fb e015 | | Load 0x0,0x15
08fc 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
08fd e014 | | Load 0x0,0x14
08fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
08ff 00ea | | Load_Encached Null_String_Cache
0900 e5ff | | Load 0x2,-0x1
0901 4801 |H | Short_Literal 0x1
0902 e005 | | Load 0x0,0x5
0903 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0904 c602 | | Store 0x3,0x2
0905 e403 | | Load 0x2,0x3
0906 0120 | | Execute Any,Is_Value
0907 6803 |h | Jump_Zero 0x90b
0908 e001 | | Load 0x0,0x1
0909 1b0d | | Execute Package,Field_Read,Field_Number 0xd
090a 7801 |x | Jump 0x90c
090b e403 | | Load 0x2,0x3
090c 00ea | | Load_Encached Null_String_Cache
090d 00da | | Load_Top At_Offset_2
090e e405 | | Load 0x2,0x5
090f e5fe | | Load 0x2,-0x2
0910 e001 | | Load 0x0,0x1
0911 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0912 c403 | | Store 0x2,0x3
0913 4501 |E | Exit_Subprogram 0x1
0914 0000 0000 | | .BLANK 0000[0x4]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 093a | : | .CONST 0x093a ; Address of begin
0919 0004 | | .CONST 0x0004 ; Address of exception handler
091a 000e | | .CONST 0x000e ; Number of locals
091b INIT_0918:
091b 00e1 | | Load_Encached Boolean_Cache
091c 00d8 | | Load_Top At_Offset_0
091d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
091e e00f | | Load 0x0,0xf
091f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0920 02c7 | | Declare_Variable Any
0921 00d8 | | Load_Top At_Offset_0
0922 1c00 | | Execute_Immediate Run_Utility,0x0
0923 029f 0b4b | K| Declare_Subprogram For_Call,INIT_0b48
0925 029f 0b7b | {| Declare_Subprogram For_Call,INIT_0b78
0927 029f 0b83 | | Declare_Subprogram For_Call,INIT_0b80
0929 e001 | | Load 0x0,0x1
092a 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
092b 00c6 | | Action Check_Subprogram_Elaborated
092c e602 | | Load 0x3,0x2
092d 4805 |H | Short_Literal 0x5
092e 4803 |H | Short_Literal 0x3
092f 0099 | | Action Reference_Dynamic
0930 4806 |H | Short_Literal 0x6
0931 4803 |H | Short_Literal 0x3
0932 0099 | | Action Reference_Dynamic
0933 4807 |H | Short_Literal 0x7
0934 4803 |H | Short_Literal 0x3
0935 0099 | | Action Reference_Dynamic
0936 e016 | | Load 0x0,0x16
0937 e017 | | Load 0x0,0x17
0938 480e |H | Short_Literal 0xe
0939 0007 | | Action Break_Optional
093a BODY_0918:
093a e604 | | Load 0x3,0x4
093b 0120 | | Execute Any,Is_Value
093c 6803 |h | Jump_Zero 0x940
093d e001 | | Load 0x0,0x1
093e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
093f 7801 |x | Jump 0x941
0940 e604 | | Load 0x3,0x4
0941 e603 | | Load 0x3,0x3
0942 6041 |`A | Indirect_Literal Discrete,0x984,{0x00007fff, 0xffffffff}
0943 e7ff | | Load 0x3,-0x1
0944 0092 0bc0 | | Action Push_String_Extended,0xbc0 ; "write sys$output $status"
0946 e608 | | Load 0x3,0x8
0947 4809 |H | Short_Literal 0x9
0948 4803 |H | Short_Literal 0x3
0949 0099 | | Action Reference_Dynamic
094a 480a |H | Short_Literal 0xa
094b 4803 |H | Short_Literal 0x3
094c 0099 | | Action Reference_Dynamic
094d 480b |H | Short_Literal 0xb
094e 4803 |H | Short_Literal 0x3
094f 0099 | | Action Reference_Dynamic
0950 480c |H | Short_Literal 0xc
0951 4803 |H | Short_Literal 0x3
0952 0099 | | Action Reference_Dynamic
0953 e001 | | Load 0x0,0x1
0954 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0955 c603 | | Store 0x3,0x3
0956 c604 | | Store 0x3,0x4
0957 e604 | | Load 0x3,0x4
0958 e00f | | Load 0x0,0xf
0959 1814 | | Execute Package,Field_Execute,Field_Number 0x14
095a 0c01 | | Execute_Immediate Greater_Equal,0x1
095b 680a |h | Jump_Zero 0x966
095c e00d | | Load 0x0,0xd
095d 180e | | Execute Package,Field_Execute,Field_Number 0xe
095e 4806 |H | Short_Literal 0x6
095f e604 | | Load 0x3,0x4
0960 e00f | | Load 0x0,0xf
0961 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0962 e00e | | Load 0x0,0xe
0963 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0964 4800 |H | Short_Literal 0x0
0965 4401 |D | Exit_Subprogram With_Result,0x1
0966 e603 | | Load 0x3,0x3
0967 6802 |h | Jump_Zero 0x96a
0968 4800 |H | Short_Literal 0x0
0969 4401 |D | Exit_Subprogram With_Result,0x1
096a 4801 |H | Short_Literal 0x1
096b 4801 |H | Short_Literal 0x1
096c e00b | | Load 0x0,0xb
096d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
096e 035b | [ | Declare_Type Array,Constrained
096f 0337 | 7 | Declare_Variable Array
0970 e5ff | | Load 0x2,-0x1
0971 e00b | | Load 0x0,0xb
0972 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0973 e00b | | Load 0x0,0xb
0974 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0975 0119 | | Execute Any,Check_In_Formal_Type
0976 4801 |H | Short_Literal 0x1
0977 00da | | Load_Top At_Offset_2
0978 01d6 | | Execute Vector,Field_Write
0979 6006 |` | Indirect_Literal Discrete,0x980,{0x00000000, 0x00008130}
097a e00c | | Load 0x0,0xc
097b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
097c 4401 |D | Exit_Subprogram With_Result,0x1
097d 0000 0000 | | .XXX[0x3]
097f 0000 | |
0980 0000 0000 | | .LITERAL {0x00000000, 0x00008130}
0984 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 099e | | .CONST 0x099e ; Address of begin
0989 0a10 | | .CONST 0x0a10 ; Address of exception handler
098a 0005 | | .CONST 0x0005 ; Number of locals
098b INIT_0988:
098b e003 | | Load 0x0,0x3
098c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
098d e003 | | Load 0x0,0x3
098e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
098f 03f1 | | Declare_Variable Discrete,With_Value
0990 00d8 | | Load_Top At_Offset_0
0991 00e0 | | Load_Encached Standard_Cache
0992 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0993 e21a | | Load 0x1,0x1a
0994 0322 | " | Declare_Variable Record
0995 00d8 | | Load_Top At_Offset_0
0996 1c01 | | Execute_Immediate Run_Utility,0x1
0997 00da | | Load_Top At_Offset_2
0998 e21d | | Load 0x1,0x1d
0999 1815 | | Execute Package,Field_Execute,Field_Number 0x15
099a 00d9 | | Load_Top At_Offset_1
099b 017d | } | Execute Record,Structure_Write
099c 029f 0b8b | | Declare_Subprogram For_Call,INIT_0b88
099e BODY_0988:
099e e219 | | Load 0x1,0x19
099f 6832 |h2 | Jump_Zero 0x9d2
09a0 e402 | | Load 0x2,0x2
09a1 e013 | | Load 0x0,0x13
09a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09a3 e018 | | Load 0x0,0x18
09a4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
09a5 e018 | | Load 0x0,0x18
09a6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
09a7 00ea | | Load_Encached Null_String_Cache
09a8 0092 0bc1 | | Action Push_String_Extended,0xbc1 ; "!Machine.Temporary.Rcf_Output_"
09aa e603 | | Load 0x3,0x3
09ab 01dd | | Execute Vector,First
09ac 0a01 | | Execute_Immediate Plus,0x1
09ad 00d8 | | Load_Top At_Offset_0
09ae 00e2 | | Load_Encached Integer_Cache
09af 0260 | ` | Execute Discrete,In_Type
09b0 7001 |p | Jump_Nonzero 0x9b2
09b1 0801 | | Execute_Immediate Raise,0x1
09b2 e603 | | Load 0x3,0x3
09b3 01dc | | Execute Vector,Last
09b4 e603 | | Load 0x3,0x3
09b5 01cf | | Execute Vector,Slice_Read
09b6 01cc | | Execute Vector,Catenate
09b7 4801 |H | Short_Literal 0x1
09b8 e005 | | Load 0x0,0x5
09b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
09ba c402 | | Store 0x2,0x2
09bb e00d | | Load 0x0,0xd
09bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
09bd 4801 |H | Short_Literal 0x1
09be 0092 0bc2 | | Action Push_String_Extended,0xbc2 ; "Created temp file "
09c0 e402 | | Load 0x2,0x2
09c1 e005 | | Load 0x0,0x5
09c2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
09c3 01cc | | Execute Vector,Catenate
09c4 e00e | | Load 0x0,0xe
09c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09c6 e402 | | Load 0x2,0x2
09c7 00da | | Load_Top At_Offset_2
09c8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09c9 4801 |H | Short_Literal 0x1
09ca 00da | | Load_Top At_Offset_2
09cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
09cc 4800 |H | Short_Literal 0x0
09cd e602 | | Load 0x3,0x2
09ce 00db | | Load_Top At_Offset_3
09cf e21d | | Load 0x1,0x1d
09d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09d1 7836 |x6 | Jump 0xa08
09d2 00d9 | | Load_Top At_Offset_1
09d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09d4 7032 |p2 | Jump_Nonzero 0xa07
09d5 e402 | | Load 0x2,0x2
09d6 e013 | | Load 0x0,0x13
09d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09d8 e018 | | Load 0x0,0x18
09d9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
09da e018 | | Load 0x0,0x18
09db 181e | | Execute Package,Field_Execute,Field_Number 0x1e
09dc 00ea | | Load_Encached Null_String_Cache
09dd 0092 0bc1 | | Action Push_String_Extended,0xbc1 ; "!Machine.Temporary.Rcf_Output_"
09df e603 | | Load 0x3,0x3
09e0 01dd | | Execute Vector,First
09e1 0a01 | | Execute_Immediate Plus,0x1
09e2 00d8 | | Load_Top At_Offset_0
09e3 00e2 | | Load_Encached Integer_Cache
09e4 0260 | ` | Execute Discrete,In_Type
09e5 7001 |p | Jump_Nonzero 0x9e7
09e6 0801 | | Execute_Immediate Raise,0x1
09e7 e603 | | Load 0x3,0x3
09e8 01dc | | Execute Vector,Last
09e9 e603 | | Load 0x3,0x3
09ea 01cf | | Execute Vector,Slice_Read
09eb 01cc | | Execute Vector,Catenate
09ec 4801 |H | Short_Literal 0x1
09ed e005 | | Load 0x0,0x5
09ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
09ef c402 | | Store 0x2,0x2
09f0 e00d | | Load 0x0,0xd
09f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
09f2 4801 |H | Short_Literal 0x1
09f3 0092 0bc3 | | Action Push_String_Extended,0xbc3 ; "Created temporary file "
09f5 e402 | | Load 0x2,0x2
09f6 e005 | | Load 0x0,0x5
09f7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
09f8 01cc | | Execute Vector,Catenate
09f9 e00e | | Load 0x0,0xe
09fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09fb e402 | | Load 0x2,0x2
09fc 00da | | Load_Top At_Offset_2
09fd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09fe 4801 |H | Short_Literal 0x1
09ff 00da | | Load_Top At_Offset_2
0a00 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a01 4800 |H | Short_Literal 0x0
0a02 e602 | | Load 0x3,0x2
0a03 00db | | Load_Top At_Offset_3
0a04 e21d | | Load 0x1,0x1d
0a05 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a06 7801 |x | Jump 0xa08
0a07 8605 | | Call 0x3,0x5
0a08 e5fc | | Load 0x2,-0x4
0a09 6803 |h | Jump_Zero 0xa0d
0a0a e402 | | Load 0x2,0x2
0a0b c404 | | Store 0x2,0x4
0a0c 4501 |E | Exit_Subprogram 0x1
0a0d e402 | | Load 0x2,0x2
0a0e c405 | | Store 0x2,0x5
0a0f 4501 |E | Exit_Subprogram 0x1
0a10 TRAP_0988:
0a10 0007 | | Action Break_Optional
0a11 4801 |H | Short_Literal 0x1
0a12 4801 |H | Short_Literal 0x1
0a13 e00b | | Load 0x0,0xb
0a14 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a15 035b | [ | Declare_Type Array,Constrained
0a16 0337 | 7 | Declare_Variable Array
0a17 e5ff | | Load 0x2,-0x1
0a18 e00b | | Load 0x0,0xb
0a19 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a1a e00b | | Load 0x0,0xb
0a1b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a1c 0119 | | Execute Any,Check_In_Formal_Type
0a1d 4801 |H | Short_Literal 0x1
0a1e 00da | | Load_Top At_Offset_2
0a1f 01d6 | | Execute Vector,Field_Write
0a20 6007 |` | Indirect_Literal Discrete,0xa28,{0x00000000, 0x00008119}
0a21 e00c | | Load 0x0,0xc
0a22 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a23 a5f8 | | Store_Unchecked 0x2,-0x8
0a24 e011 | | Load 0x0,0x11
0a25 0257 | W | Execute Discrete,Raise
0a26 0000 0000 | | .XXX[0x2]
0a28 0000 0000 | | .LITERAL {0x00000000, 0x00008119}
0a2c 0000 0000 | | .BLANK 0000[0x4]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33 | 3 | .CONST 0x0a33 ; Address of begin
0a31 0004 | | .CONST 0x0004 ; Address of exception handler
0a32 0001 | | .CONST 0x0001 ; Number of locals
0a33 BODY_0a30:
0a33 INIT_0a30:
0a33 e40e | | Load 0x2,0xe
0a34 681a |h | Jump_Zero 0xa4f
0a35 e219 | | Load 0x1,0x19
0a36 680c |h | Jump_Zero 0xa43
0a37 e00d | | Load 0x0,0xd
0a38 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a39 4801 |H | Short_Literal 0x1
0a3a 0092 0bc4 | | Action Push_String_Extended,0xbc4 ; "Close temp file"
0a3c e00e | | Load 0x0,0xe
0a3d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a3e e402 | | Load 0x2,0x2
0a3f e005 | | Load 0x0,0x5
0a40 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a41 c402 | | Store 0x2,0x2
0a42 4501 |E | Exit_Subprogram 0x1
0a43 e00d | | Load 0x0,0xd
0a44 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a45 4801 |H | Short_Literal 0x1
0a46 0092 0bc5 | | Action Push_String_Extended,0xbc5 ; "Reset temp file"
0a48 e00e | | Load 0x0,0xe
0a49 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a4a e402 | | Load 0x2,0x2
0a4b 4801 |H | Short_Literal 0x1
0a4c e005 | | Load 0x0,0x5
0a4d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a4e c402 | | Store 0x2,0x2
0a4f 4501 |E | Exit_Subprogram 0x1
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a59 | Y | .CONST 0x0a59 ; Address of begin
0a51 0004 | | .CONST 0x0004 ; Address of exception handler
0a52 0005 | | .CONST 0x0005 ; Number of locals
0a53 INIT_0a50:
0a53 00e3 | | Load_Encached Natural_Cache
0a54 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a55 00e3 | | Load_Encached Natural_Cache
0a56 00e3 | | Load_Encached Natural_Cache
0a57 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a58 00e3 | | Load_Encached Natural_Cache
0a59 BODY_0a50:
0a59 e00d | | Load 0x0,0xd
0a5a 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a5b 4801 |H | Short_Literal 0x1
0a5c 0092 0bc6 | | Action Push_String_Extended,0xbc6 ; "Resetting temp file"
0a5e e00e | | Load 0x0,0xe
0a5f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a60 e402 | | Load 0x2,0x2
0a61 4800 |H | Short_Literal 0x0
0a62 e005 | | Load 0x0,0x5
0a63 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a64 c402 | | Store 0x2,0x2
0a65 00cf | | Action Mark_Auxiliary
0a66 e40b | | Load 0x2,0xb
0a67 0aff | | Execute_Immediate Plus,-0x1
0a68 4801 |H | Short_Literal 0x1
0a69 0263 | c | Execute Discrete,Above_Bound
0a6a 7006 |p | Jump_Nonzero 0xa71
0a6b 4820 |H | Short_Literal 0x20
0a6c 00d9 | | Load_Top At_Offset_1
0a6d e406 | | Load 0x2,0x6
0a6e 01d6 | | Execute Vector,Field_Write
0a6f 00c8 | | Action Pop_Auxiliary_Range
0a70 3ffa |? | Loop_Increasing 0xa6b
0a71 00c9 | | Action Pop_Auxiliary_Loop
0a72 7891 |x | Jump 0xb04
0a73 e406 | | Load 0x2,0x6
0a74 e40b | | Load 0x2,0xb
0a75 4900 |I | Short_Literal 0x100
0a76 00da | | Load_Top At_Offset_2
0a77 035b | [ | Declare_Type Array,Constrained
0a78 00d0 | | Action Swap_Control
0a79 01cd | | Execute Vector,Slice_Reference
0a7a 00e3 | | Load_Encached Natural_Cache
0a7b 00d9 | | Load_Top At_Offset_1
0a7c e402 | | Load 0x2,0x2
0a7d e005 | | Load 0x0,0x5
0a7e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0a7f 00d1 | | Pop_Control Pop_Count_1
0a80 c407 | | Store 0x2,0x7
0a81 00d1 | | Pop_Control Pop_Count_1
0a82 4801 |H | Short_Literal 0x1
0a83 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0a84 e40b | | Load 0x2,0xb
0a85 0aff | | Execute_Immediate Plus,-0x1
0a86 e407 | | Load 0x2,0x7
0a87 0273 | s | Execute Discrete,Plus
0a88 c603 | | Store 0x3,0x3
0a89 e5fa | | Load 0x2,-0x6
0a8a 6806 |h | Jump_Zero 0xa91
0a8b e40b | | Load 0x2,0xb
0a8c e603 | | Load 0x3,0x3
0a8d e406 | | Load 0x2,0x6
0a8e 01cf | | Execute Vector,Slice_Read
0a8f e010 | | Load 0x0,0x10
0a90 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0a91 00cf | | Action Mark_Auxiliary
0a92 786b |xk | Jump 0xafe
0a93 e408 | | Load 0x2,0x8
0a94 6852 |hR | Jump_Zero 0xae7
0a95 4801 |H | Short_Literal 0x1
0a96 00db | | Load_Top At_Offset_3
0a97 e603 | | Load 0x3,0x3
0a98 e406 | | Load 0x2,0x6
0a99 01cf | | Execute Vector,Slice_Read
0a9a e5fd | | Load 0x2,-0x3
0a9b e00a | | Load 0x0,0xa
0a9c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0a9d a604 | | Store_Unchecked 0x3,0x4
0a9e 00db | | Load_Top At_Offset_3
0a9f 6832 |h2 | Jump_Zero 0xad2
0aa0 e409 | | Load 0x2,0x9
0aa1 0a01 | | Execute_Immediate Plus,0x1
0aa2 c409 | | Store 0x2,0x9
0aa3 e409 | | Load 0x2,0x9
0aa4 0f01 | | Execute_Immediate Equal,0x1
0aa5 6813 |h | Jump_Zero 0xab9
0aa6 4801 |H | Short_Literal 0x1
0aa7 4801 |H | Short_Literal 0x1
0aa8 e00b | | Load 0x0,0xb
0aa9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0aaa 035b | [ | Declare_Type Array,Constrained
0aab 0337 | 7 | Declare_Variable Array
0aac e5ff | | Load 0x2,-0x1
0aad e00b | | Load 0x0,0xb
0aae 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0aaf e00b | | Load 0x0,0xb
0ab0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ab1 0119 | | Execute Any,Check_In_Formal_Type
0ab2 4801 |H | Short_Literal 0x1
0ab3 00da | | Load_Top At_Offset_2
0ab4 01d6 | | Execute Vector,Field_Write
0ab5 6072 |`r | Indirect_Literal Discrete,0xb28,{0x00000000, 0x00008130}
0ab6 e00c | | Load 0x0,0xc
0ab7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ab8 a40a | | Store_Unchecked 0x2,0xa
0ab9 4800 |H | Short_Literal 0x0
0aba e604 | | Load 0x3,0x4
0abb e603 | | Load 0x3,0x3
0abc e406 | | Load 0x2,0x6
0abd 01cf | | Execute Vector,Slice_Read
0abe 480a |H | Short_Literal 0xa
0abf e00a | | Load 0x0,0xa
0ac0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ac1 a602 | | Store_Unchecked 0x3,0x2
0ac2 e602 | | Load 0x3,0x2
0ac3 7008 |p | Jump_Nonzero 0xacc
0ac4 e603 | | Load 0x3,0x3
0ac5 0a01 | | Execute_Immediate Plus,0x1
0ac6 c602 | | Store 0x3,0x2
0ac7 4800 |H | Short_Literal 0x0
0ac8 a408 | | Store_Unchecked 0x2,0x8
0ac9 e602 | | Load 0x3,0x2
0aca 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0acb 7831 |x1 | Jump 0xafd
0acc 4801 |H | Short_Literal 0x1
0acd a408 | | Store_Unchecked 0x2,0x8
0ace e602 | | Load 0x3,0x2
0acf 0a01 | | Execute_Immediate Plus,0x1
0ad0 005b | [ | Store_Top Discrete,At_Offset_3
0ad1 782b |x+ | Jump 0xafd
0ad2 e603 | | Load 0x3,0x3
0ad3 e40b | | Load 0x2,0xb
0ad4 0272 | r | Execute Discrete,Minus
0ad5 0a02 | | Execute_Immediate Plus,0x2
0ad6 00d8 | | Load_Top At_Offset_0
0ad7 00e2 | | Load_Encached Integer_Cache
0ad8 0260 | ` | Execute Discrete,In_Type
0ad9 7001 |p | Jump_Nonzero 0xadb
0ada 0801 | | Execute_Immediate Raise,0x1
0adb e603 | | Load 0x3,0x3
0adc e406 | | Load 0x2,0x6
0add 01cf | | Execute Vector,Slice_Read
0ade 4801 |H | Short_Literal 0x1
0adf e40b | | Load 0x2,0xb
0ae0 0aff | | Execute_Immediate Plus,-0x1
0ae1 e406 | | Load 0x2,0x6
0ae2 01ce | | Execute Vector,Slice_Write
0ae3 e603 | | Load 0x3,0x3
0ae4 0a01 | | Execute_Immediate Plus,0x1
0ae5 005b | [ | Store_Top Discrete,At_Offset_3
0ae6 7816 |x | Jump 0xafd
0ae7 4800 |H | Short_Literal 0x0
0ae8 e40b | | Load 0x2,0xb
0ae9 e603 | | Load 0x3,0x3
0aea e406 | | Load 0x2,0x6
0aeb 01cf | | Execute Vector,Slice_Read
0aec 480a |H | Short_Literal 0xa
0aed e00a | | Load 0x0,0xa
0aee 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0aef a602 | | Store_Unchecked 0x3,0x2
0af0 e602 | | Load 0x3,0x2
0af1 7006 |p | Jump_Nonzero 0xaf8
0af2 e603 | | Load 0x3,0x3
0af3 0a01 | | Execute_Immediate Plus,0x1
0af4 c602 | | Store 0x3,0x2
0af5 e602 | | Load 0x3,0x2
0af6 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0af7 7805 |x | Jump 0xafd
0af8 4801 |H | Short_Literal 0x1
0af9 a408 | | Store_Unchecked 0x2,0x8
0afa e602 | | Load 0x3,0x2
0afb 0a01 | | Execute_Immediate Plus,0x1
0afc 005b | [ | Store_Top Discrete,At_Offset_3
0afd 00c9 | | Action Pop_Auxiliary_Loop
0afe 00da | | Load_Top At_Offset_2
0aff e603 | | Load 0x3,0x3
0b00 027a | z | Execute Discrete,Less_Equal
0b01 7791 |w | Jump_Nonzero 0xa93
0b02 00ce | | Action Pop_Auxiliary
0b03 00c9 | | Action Pop_Auxiliary_Loop
0b04 e402 | | Load 0x2,0x2
0b05 e005 | | Load 0x0,0x5
0b06 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0b07 6f6b |ok | Jump_Zero 0xa73
0b08 00ce | | Action Pop_Auxiliary
0b09 e409 | | Load 0x2,0x9
0b0a 0c02 | | Execute_Immediate Greater_Equal,0x2
0b0b 6814 |h | Jump_Zero 0xb20
0b0c e00d | | Load 0x0,0xd
0b0d 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b0e 4801 |H | Short_Literal 0x1
0b0f 4801 |H | Short_Literal 0x1
0b10 e00b | | Load 0x0,0xb
0b11 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b12 035b | [ | Declare_Type Array,Constrained
0b13 0337 | 7 | Declare_Variable Array
0b14 e409 | | Load 0x2,0x9
0b15 e00b | | Load 0x0,0xb
0b16 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b17 e00b | | Load 0x0,0xb
0b18 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b19 0119 | | Execute Any,Check_In_Formal_Type
0b1a 4801 |H | Short_Literal 0x1
0b1b 00da | | Load_Top At_Offset_2
0b1c 01d6 | | Execute Vector,Field_Write
0b1d 6006 |` | Indirect_Literal Discrete,0xb24,{0x00000000, 0x00008131}
0b1e e00c | | Load 0x0,0xc
0b1f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b20 4501 |E | Exit_Subprogram 0x1
0b21 0000 0000 | | .XXX[0x3]
0b23 0000 | |
0b24 0000 0000 | | .LITERAL {0x00000000, 0x00008131}
0b28 0000 0000 | | .LITERAL {0x00000000, 0x00008130}
0b2c 0000 0000 | | .BLANK 0000[0x4]
0b30 ; --------------------------------------------------------------------------------------
0b30 ; SUBPROGRAM
0b30 ; --------------------------------------------------------------------------------------
0b30 0b33 | 3 | .CONST 0x0b33 ; Address of begin
0b31 0b43 | C | .CONST 0x0b43 ; Address of exception handler
0b32 0001 | | .CONST 0x0001 ; Number of locals
0b33 BODY_0b30:
0b33 INIT_0b30:
0b33 e402 | | Load 0x2,0x2
0b34 0120 | | Execute Any,Is_Value
0b35 6803 |h | Jump_Zero 0xb39
0b36 e001 | | Load 0x0,0x1
0b37 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b38 7801 |x | Jump 0xb3a
0b39 e402 | | Load 0x2,0x2
0b3a e5fe | | Load 0x2,-0x2
0b3b e001 | | Load 0x0,0x1
0b3c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b3d 011e | | Execute Any,Convert
0b3e e001 | | Load 0x0,0x1
0b3f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b40 c5fe | | Store 0x2,-0x2
0b41 c402 | | Store 0x2,0x2
0b42 4501 |E | Exit_Subprogram 0x1
0b43 TRAP_0b30:
0b43 0007 | | Action Break_Optional
0b44 4501 |E | Exit_Subprogram 0x1
0b45 0000 0000 | | .XXX[0x3]
0b47 0000 | |
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b53 | S | .CONST 0x0b53 ; Address of begin
0b49 0b64 | d | .CONST 0x0b64 ; Address of exception handler
0b4a 0003 | | .CONST 0x0003 ; Number of locals
0b4b INIT_0b48:
0b4b 480a |H | Short_Literal 0xa
0b4c 4820 |H | Short_Literal 0x20
0b4d e9ff | | Load 0x4,-0x1
0b4e e00a | | Load 0x0,0xa
0b4f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b50 e00a | | Load 0x0,0xa
0b51 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b52 00e3 | | Load_Encached Natural_Cache
0b53 BODY_0b48:
0b53 00d9 | | Load_Top At_Offset_1
0b54 01dc | | Execute Vector,Last
0b55 00da | | Load_Top At_Offset_2
0b56 01dc | | Execute Vector,Last
0b57 00db | | Load_Top At_Offset_3
0b58 01cf | | Execute Vector,Slice_Read
0b59 00e2 | | Load_Encached Integer_Cache
0b5a 00e0 | | Load_Encached Standard_Cache
0b5b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b5c 0059 | Y | Store_Top Discrete,At_Offset_1
0b5d 00d8 | | Load_Top At_Offset_0
0b5e 00d9 | | Load_Top At_Offset_1
0b5f 09ff | | Execute_Immediate Binary_Scale,-0x1
0b60 0901 | | Execute_Immediate Binary_Scale,0x1
0b61 027e | ~ | Execute Discrete,Not_Equal
0b62 a9fd | | Store_Unchecked 0x4,-0x3
0b63 4503 |E | Exit_Subprogram 0x3
0b64 TRAP_0b48:
0b64 010e | | Execute Exception,Is_Constraint_Error
0b65 680a |h | Jump_Zero 0xb70
0b66 e00d | | Load 0x0,0xd
0b67 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b68 4806 |H | Short_Literal 0x6
0b69 0092 0bc7 | | Action Push_String_Extended,0xbc7 ; "Unexpected output found during compilation success check"
0b6b e00e | | Load 0x0,0xe
0b6c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b6d 4801 |H | Short_Literal 0x1
0b6e a9fd | | Store_Unchecked 0x4,-0x3
0b6f 4503 |E | Exit_Subprogram 0x3
0b70 0100 | | Execute Exception,Raise
0b71 0000 0000 | | .BLANK 0000[0x7]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b | { | .CONST 0x0b7b ; Address of begin
0b79 0004 | | .CONST 0x0004 ; Address of exception handler
0b7a 0001 | | .CONST 0x0001 ; Number of locals
0b7b BODY_0b78:
0b7b INIT_0b78:
0b7b 08e2 | | Execute_Immediate Raise,0xe2
0b7c 0000 0000 | | .BLANK 0000[0x4]
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; --------------------------------------------------------------------------------------
0b80 0b83 | | .CONST 0x0b83 ; Address of begin
0b81 0004 | | .CONST 0x0004 ; Address of exception handler
0b82 0001 | | .CONST 0x0001 ; Number of locals
0b83 BODY_0b80:
0b83 INIT_0b80:
0b83 08e2 | | Execute_Immediate Raise,0xe2
0b84 0000 0000 | | .BLANK 0000[0x4]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8b | | .CONST 0x0b8b ; Address of begin
0b89 0ba2 | | .CONST 0x0ba2 ; Address of exception handler
0b8a 0001 | | .CONST 0x0001 ; Number of locals
0b8b BODY_0b88:
0b8b INIT_0b88:
0b8b e00d | | Load 0x0,0xd
0b8c 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b8d 4801 |H | Short_Literal 0x1
0b8e 0092 0bc6 | | Action Push_String_Extended,0xbc6 ; "Resetting temp file"
0b90 e00e | | Load 0x0,0xe
0b91 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b92 e604 | | Load 0x3,0x4
0b93 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0b94 c402 | | Store 0x2,0x2
0b95 e402 | | Load 0x2,0x2
0b96 4801 |H | Short_Literal 0x1
0b97 e005 | | Load 0x0,0x5
0b98 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b99 c402 | | Store 0x2,0x2
0b9a e00d | | Load 0x0,0xd
0b9b 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b9c 4801 |H | Short_Literal 0x1
0b9d 0092 0bc8 | | Action Push_String_Extended,0xbc8 ; "Reusing existing temporary file."
0b9f e00e | | Load 0x0,0xe
0ba0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ba1 4501 |E | Exit_Subprogram 0x1
0ba2 TRAP_0b88:
0ba2 0007 | | Action Break_Optional
0ba3 4800 |H | Short_Literal 0x0
0ba4 e604 | | Load 0x3,0x4
0ba5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ba6 4800 |H | Short_Literal 0x0
0ba7 e602 | | Load 0x3,0x2
0ba8 e604 | | Load 0x3,0x4
0ba9 e21d | | Load 0x1,0x1d
0baa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bab 8410 | | Call 0x2,0x10
0bac 4501 |E | Exit_Subprogram 0x1
0bad ; --------------------------------------------------------------------------------------
0bad ; STRING TABLE
0bad ; --------------------------------------------------------------------------------------
0bad 003a | : | .STRTAB 0x003a->0x0bca ; "Destroying invalid connection"
0bae 0055 | U | .STRTAB 0x0055->0x0bd8 ; "Set_Remote_Directory"
; "Set_Remote_Directory"
0baf 0067 | g | .STRTAB 0x0067->0x0be2 ; "Reusing existing directory."
0bb0 0080 | | .STRTAB 0x0080->0x0bf0 ; "Put"
0bb1 0081 | | .STRTAB 0x0081->0x0bf1 ; "put"
0bb2 0082 | | .STRTAB 0x0082->0x0bf3 ; "Get"
0bb3 0083 | | .STRTAB 0x0083->0x0bf4 ; "get"
0bb4 0084 | | .STRTAB 0x0084->0x0bf6 ; "Execute_Command"
0bb5 0091 | | .STRTAB 0x0091->0x0bfd ; "execute_command"
0bb6 009e | | .STRTAB 0x009e->0x0c05 ; "VMS"
0bb7 009f | | .STRTAB 0x009f->0x0c06 ; "Unit_Update_Time"
0bb8 00ad | | .STRTAB 0x00ad->0x0c0e ; "Unit_update_time"
0bb9 00bb | | .STRTAB 0x00bb->0x0c16 ; "file_exists"
0bba 00c4 | | .STRTAB 0x00c4->0x0c1c ; "Successfully determined the existence of remote file \x22"
0bbb 00f8 | | .STRTAB 0x00f8->0x0c37 ; "\x22."
0bbc 00f8 | | .STRTAB 0x00f8->0x0c38 ; "Initialized Job_Record for job"
0bbd 0114 | | .STRTAB 0x0114->0x0c47 ; ", task"
; ", task"
0bbe 0118 | | .STRTAB 0x0118->0x0c4a ; "Finalizing Job_Record"
0bbf 012b | + | .STRTAB 0x012b->0x0c54 ; "Deleting temporary file for process"
0bc0 014c | L | .STRTAB 0x014c->0x0c66 ; "write sys$output $status"
0bc1 0162 | b | .STRTAB 0x0162->0x0c72 ; "!Machine.Temporary.Rcf_Output_"
; "!Machine.Temporary.Rcf_Output_"
0bc2 017e | ~ | .STRTAB 0x017e->0x0c81 ; "Created temp file "
0bc3 018e | | .STRTAB 0x018e->0x0c8a ; "Created temporary file "
0bc4 01a3 | | .STRTAB 0x01a3->0x0c95 ; "Close temp file"
0bc5 01b0 | | .STRTAB 0x01b0->0x0c9d ; "Reset temp file"
0bc6 01bd | | .STRTAB 0x01bd->0x0ca4 ; "Resetting temp file"
; "Resetting temp file"
0bc7 01ce | | .STRTAB 0x01ce->0x0cae ; "Unexpected output found during compilation success check"
0bc8 0204 | | .STRTAB 0x0204->0x0cca ; "Reusing existing temporary file."
0bc9 0222 | " | .STREND 0x0222->0x0cda
0bca 4465 7374 |Dest| .STRTAB_STRINGS
0cda 0000 0000 | | .BLANK 0000[0x6]
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; Debug Table
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0004 000d | | .DEBUG4 0x0004,0x000d,0x4e9d,0x0000,0x0001,0x0000
0ce6 0000 0000 | | .BLANK 0000[0x11a]