|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0ad0 | | .CONST 0x0ad0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005f | _ | .CONST 0x005f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; 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 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0010 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0012 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0014 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0016 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0018 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
001a 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
001c 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
001e 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
0020 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated
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 612e |a. | Indirect_Literal Discrete,0x158,{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 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
003c 4805 |H | Short_Literal 0x5
003d 032d | - | Declare_Type Record,Defined
003e 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call
0040 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
0042 e007 | | Load 0x0,0x7
0043 e008 | | Load 0x0,0x8
0044 e21a | | Load 0x1,0x1a
0045 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0046 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0047 e009 | | Load 0x0,0x9
0048 0387 | | Declare_Variable Package
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004c 00c7 | | Action Elaborate_Subprogram
004d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004e 00c7 | | Action Elaborate_Subprogram
004f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0050 00c7 | | Action Elaborate_Subprogram
0051 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0052 00c7 | | Action Elaborate_Subprogram
0053 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0054 00c7 | | Action Elaborate_Subprogram
0055 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0056 00c7 | | Action Elaborate_Subprogram
0057 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0058 00c7 | | Action Elaborate_Subprogram
0059 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005a 00c7 | | Action Elaborate_Subprogram
005b 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005c 00c7 | | Action Elaborate_Subprogram
005d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005e 00c7 | | Action Elaborate_Subprogram
005f BODY_0008:
005f 00bc | | Action Signal_Activated
0060 00bb | | Action Signal_Completion
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0081 | | .CONST 0x0081 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0006 | | .CONST 0x0006 ; Number of locals
006b INIT_0068:
006b 4820 |H | Short_Literal 0x20
006c 00db | | Load_Top At_Offset_3
006d e00a | | Load 0x0,0xa
006e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
006f 4820 |H | Short_Literal 0x20
0070 e5fe | | Load 0x2,-0x2
0071 e00a | | Load 0x0,0xa
0072 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0073 e003 | | Load 0x0,0x3
0074 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0075 e003 | | Load 0x0,0x3
0076 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0077 03f1 | | Declare_Variable Discrete,With_Value
0078 e21a | | Load 0x1,0x1a
0079 0322 | " | Declare_Variable Record
007a 00d8 | | Load_Top At_Offset_0
007b 1c00 | | Execute_Immediate Run_Utility,0x0
007c e001 | | Load 0x0,0x1
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 02c7 | | Declare_Variable Any
007f 00d8 | | Load_Top At_Offset_0
0080 1c00 | | Execute_Immediate Run_Utility,0x0
0081 BODY_0068:
0081 4800 |H | Short_Literal 0x0
0082 a5fa | | Store_Unchecked 0x2,-0x6
0083 e402 | | Load 0x2,0x2
0084 01db | | Execute Vector,Length
0085 7007 |p | Jump_Nonzero 0x8d
0086 e00b | | Load 0x0,0xb
0087 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0088 60cb |` | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000812b}
0089 e00c | | Load 0x0,0xc
008a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008b a5fa | | Store_Unchecked 0x2,-0x6
008c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
008d 00da | | Load_Top At_Offset_2
008e e21d | | Load 0x1,0x1d
008f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0090 7006 |p | Jump_Nonzero 0x97
0091 00da | | Load_Top At_Offset_2
0092 e21d | | Load 0x1,0x1d
0093 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0094 00da | | Load_Top At_Offset_2
0095 017d | } | Execute Record,Structure_Write
0096 783d |x= | Jump 0xd4
0097 00da | | Load_Top At_Offset_2
0098 e21d | | Load 0x1,0x1d
0099 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009a 7039 |p9 | Jump_Nonzero 0xd4
009b e5fb | | Load 0x2,-0x5
009c e001 | | Load 0x0,0x1
009d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
009e 7030 |p0 | Jump_Nonzero 0xcf
009f e00d | | Load 0x0,0xd
00a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a1 4801 |H | Short_Literal 0x1
00a2 0092 09bd | | Action Push_String_Extended,0x9bd ; "Destroying invalid connection"
00a4 e00e | | Load 0x0,0xe
00a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a6 00d8 | | Load_Top At_Offset_0
00a7 0120 | | Execute Any,Is_Value
00a8 6803 |h | Jump_Zero 0xac
00a9 e001 | | Load 0x0,0x1
00aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ab 7801 |x | Jump 0xad
00ac 00d8 | | Load_Top At_Offset_0
00ad e5fb | | Load 0x2,-0x5
00ae e001 | | Load 0x0,0x1
00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b0 011e | | Execute Any,Convert
00b1 e001 | | Load 0x0,0x1
00b2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b3 c5fb | | Store 0x2,-0x5
00b4 c406 | | Store 0x2,0x6
00b5 4802 |H | Short_Literal 0x2
00b6 00d9 | | Load_Top At_Offset_1
00b7 e00f | | Load 0x0,0xf
00b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b9 6815 |h | Jump_Zero 0xcf
00ba 4801 |H | Short_Literal 0x1
00bb 4801 |H | Short_Literal 0x1
00bc e00b | | Load 0x0,0xb
00bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00be 0334 | 4 | Declare_Variable Array,With_Constraint
00bf 00d9 | | Load_Top At_Offset_1
00c0 e00f | | Load 0x0,0xf
00c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c2 e00b | | Load 0x0,0xb
00c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c4 e00b | | Load 0x0,0xb
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 0119 | | Execute Any,Check_In_Formal_Type
00c7 4801 |H | Short_Literal 0x1
00c8 00da | | Load_Top At_Offset_2
00c9 01d6 | | Execute Vector,Field_Write
00ca 6085 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x0000812f}
00cb e00c | | Load 0x0,0xc
00cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cd a5fa | | Store_Unchecked 0x2,-0x6
00ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00cf 00da | | Load_Top At_Offset_2
00d0 e21d | | Load 0x1,0x1d
00d1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d2 00da | | Load_Top At_Offset_2
00d3 017d | } | Execute Record,Structure_Write
00d4 00db | | Load_Top At_Offset_3
00d5 01db | | Execute Vector,Length
00d6 7018 |p | Jump_Nonzero 0xef
00d7 00d8 | | Load_Top At_Offset_0
00d8 0120 | | Execute Any,Is_Value
00d9 6803 |h | Jump_Zero 0xdd
00da e001 | | Load 0x0,0x1
00db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dc 7801 |x | Jump 0xde
00dd 00d8 | | Load_Top At_Offset_0
00de e5fb | | Load 0x2,-0x5
00df 0120 | | Execute Any,Is_Value
00e0 6803 |h | Jump_Zero 0xe4
00e1 e001 | | Load 0x0,0x1
00e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e3 7804 |x | Jump 0xe8
00e4 e5fb | | Load 0x2,-0x5
00e5 e001 | | Load 0x0,0x1
00e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e7 011e | | Execute Any,Convert
00e8 00ea | | Load_Encached Null_String_Cache
00e9 e402 | | Load 0x2,0x2
00ea e001 | | Load 0x0,0x1
00eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ec c5fb | | Store 0x2,-0x5
00ed c406 | | Store 0x2,0x6
00ee 781a |x | Jump 0x109
00ef 00d8 | | Load_Top At_Offset_0
00f0 0120 | | Execute Any,Is_Value
00f1 6803 |h | Jump_Zero 0xf5
00f2 e001 | | Load 0x0,0x1
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 7801 |x | Jump 0xf6
00f5 00d8 | | Load_Top At_Offset_0
00f6 e5fb | | Load 0x2,-0x5
00f7 0120 | | Execute Any,Is_Value
00f8 6803 |h | Jump_Zero 0xfc
00f9 e001 | | Load 0x0,0x1
00fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fb 7804 |x | Jump 0x100
00fc e5fb | | Load 0x2,-0x5
00fd e001 | | Load 0x0,0x1
00fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ff 011e | | Execute Any,Convert
0100 00ea | | Load_Encached Null_String_Cache
0101 00ea | | Load_Encached Null_String_Cache
0102 e5fd | | Load 0x2,-0x3
0103 e403 | | Load 0x2,0x3
0104 e402 | | Load 0x2,0x2
0105 e001 | | Load 0x0,0x1
0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0107 c5fb | | Store 0x2,-0x5
0108 c406 | | Store 0x2,0x6
0109 4802 |H | Short_Literal 0x2
010a 00d9 | | Load_Top At_Offset_1
010b e00f | | Load 0x0,0xf
010c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
010d 6822 |h" | Jump_Zero 0x130
010e 4801 |H | Short_Literal 0x1
010f 4802 |H | Short_Literal 0x2
0110 e00b | | Load 0x0,0xb
0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0112 0334 | 4 | Declare_Variable Array,With_Constraint
0113 e5ff | | Load 0x2,-0x1
0114 e00b | | Load 0x0,0xb
0115 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0116 e00b | | Load 0x0,0xb
0117 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0118 0119 | | Execute Any,Check_In_Formal_Type
0119 4801 |H | Short_Literal 0x1
011a 00da | | Load_Top At_Offset_2
011b 01d6 | | Execute Vector,Field_Write
011c 00d9 | | Load_Top At_Offset_1
011d e00f | | Load 0x0,0xf
011e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011f e00b | | Load 0x0,0xb
0120 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0121 e00b | | Load 0x0,0xb
0122 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0123 0119 | | Execute Any,Check_In_Formal_Type
0124 4802 |H | Short_Literal 0x2
0125 00da | | Load_Top At_Offset_2
0126 01d6 | | Execute Vector,Field_Write
0127 6024 |`$ | Indirect_Literal Discrete,0x14c,{0x00000000, 0x0000812a}
0128 e00c | | Load 0x0,0xc
0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012a a5fa | | Store_Unchecked 0x2,-0x6
012b e003 | | Load 0x0,0x3
012c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012d e21d | | Load 0x1,0x1d
012e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0130 e5fc | | Load 0x2,-0x4
0131 6813 |h | Jump_Zero 0x145
0132 e00d | | Load 0x0,0xd
0133 180e | | Execute Package,Field_Execute,Field_Number 0xe
0134 4801 |H | Short_Literal 0x1
0135 4801 |H | Short_Literal 0x1
0136 e00b | | Load 0x0,0xb
0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0138 0334 | 4 | Declare_Variable Array,With_Constraint
0139 e5ff | | Load 0x2,-0x1
013a e00b | | Load 0x0,0xb
013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013c e00b | | Load 0x0,0xb
013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013e 0119 | | Execute Any,Check_In_Formal_Type
013f 4801 |H | Short_Literal 0x1
0140 00da | | Load_Top At_Offset_2
0141 01d6 | | Execute Vector,Field_Write
0142 6005 |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x00008172}
0143 e00c | | Load 0x0,0xc
0144 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0145 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0146 0000 0000 | | .XXX[0x2]
0148 0000 0000 | | .LITERAL {0x00000000, 0x00008172}
014c 0000 0000 | | .LITERAL {0x00000000, 0x0000812a}
0150 0000 0000 | | .LITERAL {0x00000000, 0x0000812f}
0154 0000 0000 | | .LITERAL {0x00000000, 0x0000812b}
0158 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e00c | | Load 0x0,0xc
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 BODY_0160:
0165 e00c | | Load 0x0,0xc
0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0167 e5f9 | | Load 0x2,-0x7
0168 e5fa | | Load 0x2,-0x6
0169 e5fb | | Load 0x2,-0x5
016a e5fc | | Load 0x2,-0x4
016b e5fd | | Load 0x2,-0x3
016c 820e | | Call 0x1,0xe
016d c5f9 | | Store 0x2,-0x7
016e 0059 | Y | Store_Top Discrete,At_Offset_1
016f 00d8 | | Load_Top At_Offset_0
0170 7009 |p | Jump_Nonzero 0x17a
0171 e00c | | Load 0x0,0xc
0172 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0173 e5fa | | Load 0x2,-0x6
0174 e5fe | | Load 0x2,-0x2
0175 e5f9 | | Load 0x2,-0x7
0176 e5ff | | Load 0x2,-0x1
0177 8212 | | Call 0x1,0x12
0178 c5f8 | | Store 0x2,-0x8
0179 4507 |E | Exit_Suprogram New_Top_Offset 0x7
017a 00d8 | | Load_Top At_Offset_0
017b a5f8 | | Store_Unchecked 0x2,-0x8
017c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018a | | .CONST 0x018a ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 e001 | | Load 0x0,0x1
0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0185 02c7 | | Declare_Variable Any
0186 00d8 | | Load_Top At_Offset_0
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call
018a BODY_0180:
018a 4800 |H | Short_Literal 0x0
018b a5fd | | Store_Unchecked 0x2,-0x3
018c e003 | | Load 0x0,0x3
018d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018e e21d | | Load 0x1,0x1d
018f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0190 e5fe | | Load 0x2,-0x2
0191 e001 | | Load 0x0,0x1
0192 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0193 6801 |h | Jump_Zero 0x195
0194 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0195 8403 | | Call 0x2,0x3
0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a2 | | .CONST 0x01a2 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b e001 | | Load 0x0,0x1
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 02c7 | | Declare_Variable Any
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call
01a2 BODY_0198:
01a2 4800 |H | Short_Literal 0x0
01a3 a5fd | | Store_Unchecked 0x2,-0x3
01a4 e003 | | Load 0x0,0x3
01a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a6 e21d | | Load 0x1,0x1d
01a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a8 e5fe | | Load 0x2,-0x2
01a9 e001 | | Load 0x0,0x1
01aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ab 6801 |h | Jump_Zero 0x1ad
01ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ad 8403 | | Call 0x2,0x3
01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c3 | | .CONST 0x01c3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0004 | | .CONST 0x0004 ; Number of locals
01b3 INIT_01b0:
01b3 e00c | | Load 0x0,0xc
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 e003 | | Load 0x0,0x3
01b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b7 e003 | | Load 0x0,0x3
01b8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01b9 03f1 | | Declare_Variable Discrete,With_Value
01ba e21a | | Load 0x1,0x1a
01bb 0322 | " | Declare_Variable Record
01bc 00d8 | | Load_Top At_Offset_0
01bd 1c01 | | Execute_Immediate Run_Utility,0x1
01be 00d9 | | Load_Top At_Offset_1
01bf e21d | | Load 0x1,0x1d
01c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c1 00d9 | | Load_Top At_Offset_1
01c2 017d | } | Execute Record,Structure_Write
01c3 BODY_01b0:
01c3 4800 |H | Short_Literal 0x0
01c4 a5fb | | Store_Unchecked 0x2,-0x5
01c5 e5fe | | Load 0x2,-0x2
01c6 e001 | | Load 0x0,0x1
01c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c8 6814 |h | Jump_Zero 0x1dd
01c9 4801 |H | Short_Literal 0x1
01ca 4801 |H | Short_Literal 0x1
01cb e00b | | Load 0x0,0xb
01cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cd 0334 | 4 | Declare_Variable Array,With_Constraint
01ce 0092 09be | | Action Push_String_Extended,0x9be ; "Set_Remote_Directory"
01d0 e00b | | Load 0x0,0xb
01d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d2 e00b | | Load 0x0,0xb
01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d4 0119 | | Execute Any,Check_In_Formal_Type
01d5 4801 |H | Short_Literal 0x1
01d6 00da | | Load_Top At_Offset_2
01d7 01d6 | | Execute Vector,Field_Write
01d8 6047 |`G | Indirect_Literal Discrete,0x220,{0x00000000, 0x00008138}
01d9 e00c | | Load 0x0,0xc
01da 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01db a5fb | | Store_Unchecked 0x2,-0x5
01dc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01dd 4800 |H | Short_Literal 0x0
01de e5ff | | Load 0x2,-0x1
01df 00da | | Load_Top At_Offset_2
01e0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01e1 e006 | | Load 0x0,0x6
01e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e3 e00a | | Load 0x0,0xa
01e4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01e5 680b |h | Jump_Zero 0x1f1
01e6 e5fd | | Load 0x2,-0x3
01e7 01db | | Execute Vector,Length
01e8 7008 |p | Jump_Nonzero 0x1f1
01e9 e00d | | Load 0x0,0xd
01ea 180e | | Execute Package,Field_Execute,Field_Number 0xe
01eb 4801 |H | Short_Literal 0x1
01ec 0092 09bf | | Action Push_String_Extended,0x9bf ; "Reusing existing directory."
01ee e00e | | Load 0x0,0xe
01ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f0 7820 |x | Jump 0x211
01f1 e00c | | Load 0x0,0xc
01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f3 e5fc | | Load 0x2,-0x4
01f4 4801 |H | Short_Literal 0x1
01f5 4800 |H | Short_Literal 0x0
01f6 4800 |H | Short_Literal 0x0
01f7 00ea | | Load_Encached Null_String_Cache
01f8 e5fe | | Load 0x2,-0x2
01f9 e5ff | | Load 0x2,-0x1
01fa 8215 | | Call 0x1,0x15
01fb 005b | [ | Store_Top Discrete,At_Offset_3
01fc 00da | | Load_Top At_Offset_2
01fd 6803 |h | Jump_Zero 0x201
01fe 00da | | Load_Top At_Offset_2
01ff a5fb | | Store_Unchecked 0x2,-0x5
0200 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0201 00d9 | | Load_Top At_Offset_1
0202 e21d | | Load 0x1,0x1d
0203 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0204 00d9 | | Load_Top At_Offset_1
0205 017d | } | Execute Record,Structure_Write
0206 00d8 | | Load_Top At_Offset_0
0207 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0208 e5ff | | Load 0x2,-0x1
0209 e006 | | Load 0x0,0x6
020a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
020b 00d1 | | Pop_Control Pop_Count_1
020c 4800 |H | Short_Literal 0x0
020d 00da | | Load_Top At_Offset_2
020e 00da | | Load_Top At_Offset_2
020f e21d | | Load 0x1,0x1d
0210 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0211 e5fd | | Load 0x2,-0x3
0212 01db | | Execute Vector,Length
0213 680b |h | Jump_Zero 0x21f
0214 e00c | | Load 0x0,0xc
0215 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0216 e5fc | | Load 0x2,-0x4
0217 4801 |H | Short_Literal 0x1
0218 4800 |H | Short_Literal 0x0
0219 4800 |H | Short_Literal 0x0
021a 00ea | | Load_Encached Null_String_Cache
021b e5fe | | Load 0x2,-0x2
021c e5fd | | Load 0x2,-0x3
021d 8215 | | Call 0x1,0x15
021e c5fb | | Store 0x2,-0x5
021f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0220 0000 0000 | | .LITERAL {0x00000000, 0x00008138}
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0232 | 2 | .CONST 0x0232 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b e001 | | Load 0x0,0x1
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 02c7 | | Declare_Variable Any
022e 00d8 | | Load_Top At_Offset_0
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 029f 06fb | | Declare_Subprogram INIT_06f8,For_Call
0232 BODY_0228:
0232 4800 |H | Short_Literal 0x0
0233 a5fa | | Store_Unchecked 0x2,-0x6
0234 e5fd | | Load 0x2,-0x3
0235 e001 | | Load 0x0,0x1
0236 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0237 6814 |h | Jump_Zero 0x24c
0238 4801 |H | Short_Literal 0x1
0239 4801 |H | Short_Literal 0x1
023a e00b | | Load 0x0,0xb
023b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023c 0334 | 4 | Declare_Variable Array,With_Constraint
023d 0092 09c0 | | Action Push_String_Extended,0x9c0 ; "Put"
023f e00b | | Load 0x0,0xb
0240 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0241 e00b | | Load 0x0,0xb
0242 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0243 0119 | | Execute Any,Check_In_Formal_Type
0244 4801 |H | Short_Literal 0x1
0245 00da | | Load_Top At_Offset_2
0246 01d6 | | Execute Vector,Field_Write
0247 67d8 |g | Indirect_Literal Discrete,0x220,{0x00000000, 0x00008138}
0248 e00c | | Load 0x0,0xc
0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024a a5fa | | Store_Unchecked 0x2,-0x6
024b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024c e5fc | | Load 0x2,-0x4
024d 6802 |h | Jump_Zero 0x250
024e 8403 | | Call 0x2,0x3
024f 780f |x | Jump 0x25f
0250 00d9 | | Load_Top At_Offset_1
0251 0120 | | Execute Any,Is_Value
0252 6803 |h | Jump_Zero 0x256
0253 e001 | | Load 0x0,0x1
0254 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0255 7801 |x | Jump 0x257
0256 00d9 | | Load_Top At_Offset_1
0257 00ea | | Load_Encached Null_String_Cache
0258 4800 |H | Short_Literal 0x0
0259 e5fd | | Load 0x2,-0x3
025a e5fe | | Load 0x2,-0x2
025b e5ff | | Load 0x2,-0x1
025c e001 | | Load 0x0,0x1
025d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
025e c402 | | Store 0x2,0x2
025f 4802 |H | Short_Literal 0x2
0260 00da | | Load_Top At_Offset_2
0261 e00f | | Load 0x0,0xf
0262 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0263 6827 |h' | Jump_Zero 0x28b
0264 4801 |H | Short_Literal 0x1
0265 4803 |H | Short_Literal 0x3
0266 e00b | | Load 0x0,0xb
0267 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0268 0334 | 4 | Declare_Variable Array,With_Constraint
0269 e5ff | | Load 0x2,-0x1
026a e00b | | Load 0x0,0xb
026b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026c e00b | | Load 0x0,0xb
026d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026e 0119 | | Execute Any,Check_In_Formal_Type
026f 4801 |H | Short_Literal 0x1
0270 00da | | Load_Top At_Offset_2
0271 01d6 | | Execute Vector,Field_Write
0272 e5fe | | Load 0x2,-0x2
0273 e00b | | Load 0x0,0xb
0274 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0275 e00b | | Load 0x0,0xb
0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0277 0119 | | Execute Any,Check_In_Formal_Type
0278 4802 |H | Short_Literal 0x2
0279 00da | | Load_Top At_Offset_2
027a 01d6 | | Execute Vector,Field_Write
027b 00da | | Load_Top At_Offset_2
027c e00f | | Load 0x0,0xf
027d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027e e00b | | Load 0x0,0xb
027f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0280 e00b | | Load 0x0,0xb
0281 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0282 0119 | | Execute Any,Check_In_Formal_Type
0283 4803 |H | Short_Literal 0x3
0284 00da | | Load_Top At_Offset_2
0285 01d6 | | Execute Vector,Field_Write
0286 6029 |`) | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x00008134}
0287 e00c | | Load 0x0,0xc
0288 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0289 a5fa | | Store_Unchecked 0x2,-0x6
028a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
028b e5fb | | Load 0x2,-0x5
028c 681c |h | Jump_Zero 0x2a9
028d e00d | | Load 0x0,0xd
028e 180e | | Execute Package,Field_Execute,Field_Number 0xe
028f 4801 |H | Short_Literal 0x1
0290 4802 |H | Short_Literal 0x2
0291 e00b | | Load 0x0,0xb
0292 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0293 0334 | 4 | Declare_Variable Array,With_Constraint
0294 e5ff | | Load 0x2,-0x1
0295 e00b | | Load 0x0,0xb
0296 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0297 e00b | | Load 0x0,0xb
0298 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0299 0119 | | Execute Any,Check_In_Formal_Type
029a 4801 |H | Short_Literal 0x1
029b 00da | | Load_Top At_Offset_2
029c 01d6 | | Execute Vector,Field_Write
029d e5fe | | Load 0x2,-0x2
029e e00b | | Load 0x0,0xb
029f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a0 e00b | | Load 0x0,0xb
02a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a2 0119 | | Execute Any,Check_In_Formal_Type
02a3 4802 |H | Short_Literal 0x2
02a4 00da | | Load_Top At_Offset_2
02a5 01d6 | | Execute Vector,Field_Write
02a6 6005 |` | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x00008177}
02a7 e00c | | Load 0x0,0xc
02a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02a9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02aa 0000 0000 | | .XXX[0x2]
02ac 0000 0000 | | .LITERAL {0x00000000, 0x00008177}
02b0 0000 0000 | | .LITERAL {0x00000000, 0x00008134}
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c3 | | .CONST 0x02c3 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0004 | | .CONST 0x0004 ; Number of locals
02bb INIT_02b8:
02bb 00e1 | | Load_Encached Boolean_Cache
02bc e001 | | Load 0x0,0x1
02bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02be 02c7 | | Declare_Variable Any
02bf 00d8 | | Load_Top At_Offset_0
02c0 1c00 | | Execute_Immediate Run_Utility,0x0
02c1 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call
02c3 BODY_02b8:
02c3 4800 |H | Short_Literal 0x0
02c4 a5fa | | Store_Unchecked 0x2,-0x6
02c5 e5fd | | Load 0x2,-0x3
02c6 e001 | | Load 0x0,0x1
02c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c8 6814 |h | Jump_Zero 0x2dd
02c9 4801 |H | Short_Literal 0x1
02ca 4801 |H | Short_Literal 0x1
02cb e00b | | Load 0x0,0xb
02cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cd 0334 | 4 | Declare_Variable Array,With_Constraint
02ce 0092 09c1 | | Action Push_String_Extended,0x9c1 ; "Get"
02d0 e00b | | Load 0x0,0xb
02d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d2 e00b | | Load 0x0,0xb
02d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d4 0119 | | Execute Any,Check_In_Formal_Type
02d5 4801 |H | Short_Literal 0x1
02d6 00da | | Load_Top At_Offset_2
02d7 01d6 | | Execute Vector,Field_Write
02d8 60bb |` | Indirect_Literal Discrete,0x394,{0x00000000, 0x00008138}
02d9 e00c | | Load 0x0,0xc
02da 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02db a5fa | | Store_Unchecked 0x2,-0x6
02dc 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02dd 00e1 | | Load_Encached Boolean_Cache
02de 00da | | Load_Top At_Offset_2
02df 0120 | | Execute Any,Is_Value
02e0 6803 |h | Jump_Zero 0x2e4
02e1 e001 | | Load 0x0,0x1
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 7801 |x | Jump 0x2e5
02e4 00da | | Load_Top At_Offset_2
02e5 e5fd | | Load 0x2,-0x3
02e6 e5fe | | Load 0x2,-0x2
02e7 e001 | | Load 0x0,0x1
02e8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02e9 c403 | | Store 0x2,0x3
02ea 005b | [ | Store_Top Discrete,At_Offset_3
02eb 4802 |H | Short_Literal 0x2
02ec 00da | | Load_Top At_Offset_2
02ed e00f | | Load 0x0,0xf
02ee 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02ef 681e |h | Jump_Zero 0x30e
02f0 4801 |H | Short_Literal 0x1
02f1 4802 |H | Short_Literal 0x2
02f2 e00b | | Load 0x0,0xb
02f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f4 0334 | 4 | Declare_Variable Array,With_Constraint
02f5 00da | | Load_Top At_Offset_2
02f6 e00f | | Load 0x0,0xf
02f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f8 e00b | | Load 0x0,0xb
02f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02fa e00b | | Load 0x0,0xb
02fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fc 0119 | | Execute Any,Check_In_Formal_Type
02fd 4801 |H | Short_Literal 0x1
02fe 00da | | Load_Top At_Offset_2
02ff 01d6 | | Execute Vector,Field_Write
0300 e5fe | | Load 0x2,-0x2
0301 e00b | | Load 0x0,0xb
0302 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0303 e00b | | Load 0x0,0xb
0304 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0305 0119 | | Execute Any,Check_In_Formal_Type
0306 4802 |H | Short_Literal 0x2
0307 00da | | Load_Top At_Offset_2
0308 01d6 | | Execute Vector,Field_Write
0309 6086 |` | Indirect_Literal Discrete,0x390,{0x00000000, 0x00008162}
030a e00c | | Load 0x0,0xc
030b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
030c a5fa | | Store_Unchecked 0x2,-0x6
030d 4506 |E | Exit_Suprogram New_Top_Offset 0x6
030e 00da | | Load_Top At_Offset_2
030f 7013 |p | Jump_Nonzero 0x323
0310 4801 |H | Short_Literal 0x1
0311 4801 |H | Short_Literal 0x1
0312 e00b | | Load 0x0,0xb
0313 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0314 0334 | 4 | Declare_Variable Array,With_Constraint
0315 e5fe | | Load 0x2,-0x2
0316 e00b | | Load 0x0,0xb
0317 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0318 e00b | | Load 0x0,0xb
0319 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031a 0119 | | Execute Any,Check_In_Formal_Type
031b 4801 |H | Short_Literal 0x1
031c 00da | | Load_Top At_Offset_2
031d 01d6 | | Execute Vector,Field_Write
031e 606d |`m | Indirect_Literal Discrete,0x38c,{0x00000000, 0x00008171}
031f e00c | | Load 0x0,0xc
0320 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0321 a5fa | | Store_Unchecked 0x2,-0x6
0322 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0323 e5fc | | Load 0x2,-0x4
0324 6802 |h | Jump_Zero 0x327
0325 8404 | | Call 0x2,0x4
0326 780f |x | Jump 0x336
0327 00d9 | | Load_Top At_Offset_1
0328 0120 | | Execute Any,Is_Value
0329 6803 |h | Jump_Zero 0x32d
032a e001 | | Load 0x0,0x1
032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032c 7801 |x | Jump 0x32e
032d 00d9 | | Load_Top At_Offset_1
032e 00ea | | Load_Encached Null_String_Cache
032f 4800 |H | Short_Literal 0x0
0330 e5ff | | Load 0x2,-0x1
0331 e5fd | | Load 0x2,-0x3
0332 e5fe | | Load 0x2,-0x2
0333 e001 | | Load 0x0,0x1
0334 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0335 c403 | | Store 0x2,0x3
0336 4802 |H | Short_Literal 0x2
0337 00da | | Load_Top At_Offset_2
0338 e00f | | Load 0x0,0xf
0339 1817 | | Execute Package,Field_Execute,Field_Number 0x17
033a 6827 |h' | Jump_Zero 0x362
033b 4801 |H | Short_Literal 0x1
033c 4803 |H | Short_Literal 0x3
033d e00b | | Load 0x0,0xb
033e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
033f 0334 | 4 | Declare_Variable Array,With_Constraint
0340 e5ff | | Load 0x2,-0x1
0341 e00b | | Load 0x0,0xb
0342 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0343 e00b | | Load 0x0,0xb
0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0345 0119 | | Execute Any,Check_In_Formal_Type
0346 4801 |H | Short_Literal 0x1
0347 00da | | Load_Top At_Offset_2
0348 01d6 | | Execute Vector,Field_Write
0349 e5fe | | Load 0x2,-0x2
034a e00b | | Load 0x0,0xb
034b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034c e00b | | Load 0x0,0xb
034d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034e 0119 | | Execute Any,Check_In_Formal_Type
034f 4802 |H | Short_Literal 0x2
0350 00da | | Load_Top At_Offset_2
0351 01d6 | | Execute Vector,Field_Write
0352 00da | | Load_Top At_Offset_2
0353 e00f | | Load 0x0,0xf
0354 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0355 e00b | | Load 0x0,0xb
0356 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0357 e00b | | Load 0x0,0xb
0358 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0359 0119 | | Execute Any,Check_In_Formal_Type
035a 4803 |H | Short_Literal 0x3
035b 00da | | Load_Top At_Offset_2
035c 01d6 | | Execute Vector,Field_Write
035d 602a |`* | Indirect_Literal Discrete,0x388,{0x00000000, 0x00008133}
035e e00c | | Load 0x0,0xc
035f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0360 a5fa | | Store_Unchecked 0x2,-0x6
0361 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0362 e5fb | | Load 0x2,-0x5
0363 681c |h | Jump_Zero 0x380
0364 e00d | | Load 0x0,0xd
0365 180e | | Execute Package,Field_Execute,Field_Number 0xe
0366 4801 |H | Short_Literal 0x1
0367 4802 |H | Short_Literal 0x2
0368 e00b | | Load 0x0,0xb
0369 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036a 0334 | 4 | Declare_Variable Array,With_Constraint
036b e5ff | | Load 0x2,-0x1
036c e00b | | Load 0x0,0xb
036d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
036e e00b | | Load 0x0,0xb
036f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0370 0119 | | Execute Any,Check_In_Formal_Type
0371 4801 |H | Short_Literal 0x1
0372 00da | | Load_Top At_Offset_2
0373 01d6 | | Execute Vector,Field_Write
0374 e5fe | | Load 0x2,-0x2
0375 e00b | | Load 0x0,0xb
0376 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0377 e00b | | Load 0x0,0xb
0378 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0379 0119 | | Execute Any,Check_In_Formal_Type
037a 4802 |H | Short_Literal 0x2
037b 00da | | Load_Top At_Offset_2
037c 01d6 | | Execute Vector,Field_Write
037d 6006 |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x00008175}
037e e00c | | Load 0x0,0xc
037f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0380 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0381 0000 0000 | | .XXX[0x3]
0383 0000 | |
0384 0000 0000 | | .LITERAL {0x00000000, 0x00008175}
0388 0000 0000 | | .LITERAL {0x00000000, 0x00008133}
038c 0000 0000 | | .LITERAL {0x00000000, 0x00008171}
0390 0000 0000 | | .LITERAL {0x00000000, 0x00008162}
0394 0000 0000 | | .LITERAL {0x00000000, 0x00008138}
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03d6 | | .CONST 0x03d6 ; Address of begin
0399 0473 | s | .CONST 0x0473 ; Address of exception handler
039a 0010 | | .CONST 0x0010 ; Number of locals
039b INIT_0398:
039b e005 | | Load 0x0,0x5
039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039d 02c7 | | Declare_Variable Any
039e 00d8 | | Load_Top At_Offset_0
039f 1c00 | | Execute_Immediate Run_Utility,0x0
03a0 e001 | | Load 0x0,0x1
03a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a2 02c7 | | Declare_Variable Any
03a3 00d8 | | Load_Top At_Offset_0
03a4 1c00 | | Execute_Immediate Run_Utility,0x0
03a5 e005 | | Load 0x0,0x5
03a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a7 02c7 | | Declare_Variable Any
03a8 e010 | | Load 0x0,0x10
03a9 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
03aa e010 | | Load 0x0,0x10
03ab 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
03ac a404 | | Store_Unchecked 0x2,0x4
03ad e005 | | Load 0x0,0x5
03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03af 02c7 | | Declare_Variable Any
03b0 e010 | | Load 0x0,0x10
03b1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
03b2 e010 | | Load 0x0,0x10
03b3 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
03b4 a405 | | Store_Unchecked 0x2,0x5
03b5 4801 |H | Short_Literal 0x1
03b6 4900 |I | Short_Literal 0x100
03b7 00e9 | | Load_Encached String_Cache
03b8 035b | [ | Declare_Type Array,Constrained
03b9 0337 | 7 | Declare_Variable Array
03ba 00e3 | | Load_Encached Natural_Cache
03bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03bc 00e1 | | Load_Encached Boolean_Cache
03bd 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03be 00e3 | | Load_Encached Natural_Cache
03bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03c0 e00c | | Load 0x0,0xc
03c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03c3 e5fd | | Load 0x2,-0x3
03c4 01db | | Execute Vector,Length
03c5 00e3 | | Load_Encached Natural_Cache
03c6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03c7 e5fc | | Load 0x2,-0x4
03c8 7002 |p | Jump_Nonzero 0x3cb
03c9 e5fb | | Load 0x2,-0x5
03ca 7801 |x | Jump 0x3cc
03cb 4801 |H | Short_Literal 0x1
03cc 00e1 | | Load_Encached Boolean_Cache
03cd 03f1 | | Declare_Variable Discrete,With_Value
03ce 029f 074b | K| Declare_Subprogram INIT_0748,For_Call
03d0 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call
03d2 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call
03d4 029f 0883 | | Declare_Subprogram INIT_0880,For_Call
03d6 BODY_0398:
03d6 4800 |H | Short_Literal 0x0
03d7 a5f8 | | Store_Unchecked 0x2,-0x8
03d8 e5fe | | Load 0x2,-0x2
03d9 e001 | | Load 0x0,0x1
03da 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03db 6814 |h | Jump_Zero 0x3f0
03dc 4801 |H | Short_Literal 0x1
03dd 4801 |H | Short_Literal 0x1
03de e00b | | Load 0x0,0xb
03df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e0 0334 | 4 | Declare_Variable Array,With_Constraint
03e1 0092 09c2 | | Action Push_String_Extended,0x9c2 ; "Execute_Command"
03e3 e00b | | Load 0x0,0xb
03e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e5 e00b | | Load 0x0,0xb
03e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e7 0119 | | Execute Any,Check_In_Formal_Type
03e8 4801 |H | Short_Literal 0x1
03e9 00da | | Load_Top At_Offset_2
03ea 01d6 | | Execute Vector,Field_Write
03eb 67a8 |g | Indirect_Literal Discrete,0x394,{0x00000000, 0x00008138}
03ec e00c | | Load 0x0,0xc
03ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ee a5f8 | | Store_Unchecked 0x2,-0x8
03ef 4508 |E | Exit_Suprogram New_Top_Offset 0x8
03f0 e5f9 | | Load 0x2,-0x7
03f1 6813 |h | Jump_Zero 0x405
03f2 e00d | | Load 0x0,0xd
03f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f4 4801 |H | Short_Literal 0x1
03f5 4801 |H | Short_Literal 0x1
03f6 e00b | | Load 0x0,0xb
03f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f8 0334 | 4 | Declare_Variable Array,With_Constraint
03f9 e5ff | | Load 0x2,-0x1
03fa e00b | | Load 0x0,0xb
03fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03fc e00b | | Load 0x0,0xb
03fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fe 0119 | | Execute Any,Check_In_Formal_Type
03ff 4801 |H | Short_Literal 0x1
0400 00da | | Load_Top At_Offset_2
0401 01d6 | | Execute Vector,Field_Write
0402 6085 |` | Indirect_Literal Discrete,0x488,{0x00000000, 0x00008176}
0403 e00c | | Load 0x0,0xc
0404 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0405 e40c | | Load 0x2,0xc
0406 6801 |h | Jump_Zero 0x408
0407 840e | | Call 0x2,0xe
0408 e403 | | Load 0x2,0x3
0409 0120 | | Execute Any,Is_Value
040a 6803 |h | Jump_Zero 0x40e
040b e001 | | Load 0x0,0x1
040c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040d 7801 |x | Jump 0x40f
040e e403 | | Load 0x2,0x3
040f 6074 |`t | Indirect_Literal Discrete,0x484,{0x00007fff, 0xffffffff}
0410 e404 | | Load 0x2,0x4
0411 e405 | | Load 0x2,0x5
0412 e010 | | Load 0x0,0x10
0413 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0414 e010 | | Load 0x0,0x10
0415 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
0416 e5fe | | Load 0x2,-0x2
0417 e5ff | | Load 0x2,-0x1
0418 e001 | | Load 0x0,0x1
0419 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
041a c403 | | Store 0x2,0x3
041b 4802 |H | Short_Literal 0x2
041c e403 | | Load 0x2,0x3
041d e00f | | Load 0x0,0xf
041e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
041f 6826 |h& | Jump_Zero 0x446
0420 e40c | | Load 0x2,0xc
0421 6805 |h | Jump_Zero 0x427
0422 e402 | | Load 0x2,0x2
0423 e005 | | Load 0x0,0x5
0424 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0425 7001 |p | Jump_Nonzero 0x427
0426 8410 | | Call 0x2,0x10
0427 840f | | Call 0x2,0xf
0428 4801 |H | Short_Literal 0x1
0429 4802 |H | Short_Literal 0x2
042a e00b | | Load 0x0,0xb
042b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
042c 0334 | 4 | Declare_Variable Array,With_Constraint
042d e5ff | | Load 0x2,-0x1
042e e00b | | Load 0x0,0xb
042f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0430 e00b | | Load 0x0,0xb
0431 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0432 0119 | | Execute Any,Check_In_Formal_Type
0433 4801 |H | Short_Literal 0x1
0434 00da | | Load_Top At_Offset_2
0435 01d6 | | Execute Vector,Field_Write
0436 e403 | | Load 0x2,0x3
0437 e00f | | Load 0x0,0xf
0438 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0439 e00b | | Load 0x0,0xb
043a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
043b e00b | | Load 0x0,0xb
043c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
043d 0119 | | Execute Any,Check_In_Formal_Type
043e 4802 |H | Short_Literal 0x2
043f 00da | | Load_Top At_Offset_2
0440 01d6 | | Execute Vector,Field_Write
0441 603e |`> | Indirect_Literal Discrete,0x480,{0x00000000, 0x00008132}
0442 e00c | | Load 0x0,0xc
0443 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0444 a5f8 | | Store_Unchecked 0x2,-0x8
0445 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0446 4801 |H | Short_Literal 0x1
0447 0092 09c3 | | Action Push_String_Extended,0x9c3 ; "VMS"
0449 e5fd | | Load 0x2,-0x3
044a e00a | | Load 0x0,0xa
044b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
044c 6804 |h | Jump_Zero 0x451
044d e5fe | | Load 0x2,-0x2
044e 840d | | Call 0x2,0xd
044f a40a | | Store_Unchecked 0x2,0xa
0450 7808 |x | Jump 0x459
0451 e40c | | Load 0x2,0xc
0452 6806 |h | Jump_Zero 0x459
0453 e402 | | Load 0x2,0x2
0454 e005 | | Load 0x0,0x5
0455 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0456 7001 |p | Jump_Nonzero 0x458
0457 8410 | | Call 0x2,0x10
0458 840f | | Call 0x2,0xf
0459 e5f9 | | Load 0x2,-0x7
045a 6815 |h | Jump_Zero 0x470
045b e40a | | Load 0x2,0xa
045c 7013 |p | Jump_Nonzero 0x470
045d e00d | | Load 0x0,0xd
045e 180e | | Execute Package,Field_Execute,Field_Number 0xe
045f 4801 |H | Short_Literal 0x1
0460 4801 |H | Short_Literal 0x1
0461 e00b | | Load 0x0,0xb
0462 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0463 0334 | 4 | Declare_Variable Array,With_Constraint
0464 e5ff | | Load 0x2,-0x1
0465 e00b | | Load 0x0,0xb
0466 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0467 e00b | | Load 0x0,0xb
0468 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0469 0119 | | Execute Any,Check_In_Formal_Type
046a 4801 |H | Short_Literal 0x1
046b 00da | | Load_Top At_Offset_2
046c 01d6 | | Execute Vector,Field_Write
046d 600e |` | Indirect_Literal Discrete,0x47c,{0x00000000, 0x00008174}
046e e00c | | Load 0x0,0xc
046f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0470 e40a | | Load 0x2,0xa
0471 a5f8 | | Store_Unchecked 0x2,-0x8
0472 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0473 TRAP_0398:
0473 e011 | | Load 0x0,0x11
0474 010f | | Execute Exception,Equal
0475 6801 |h | Jump_Zero 0x477
0476 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0477 840f | | Call 0x2,0xf
0478 00d8 | | Load_Top At_Offset_0
0479 0101 | | Execute Exception,Reraise
047a 0000 0000 | | .XXX[0x2]
047c 0000 0000 | | .LITERAL {0x00000000, 0x00008174}
0480 0000 0000 | | .LITERAL {0x00000000, 0x00008132}
0484 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0488 0000 0000 | | .LITERAL {0x00000000, 0x00008176}
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0499 | | .CONST 0x0499 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0003 | | .CONST 0x0003 ; Number of locals
0493 INIT_0490:
0493 00e1 | | Load_Encached Boolean_Cache
0494 e001 | | Load 0x0,0x1
0495 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0496 02c7 | | Declare_Variable Any
0497 00d8 | | Load_Top At_Offset_0
0498 1c00 | | Execute_Immediate Run_Utility,0x0
0499 BODY_0490:
0499 4800 |H | Short_Literal 0x0
049a a5fc | | Store_Unchecked 0x2,-0x4
049b e218 | | Load 0x1,0x18
049c c5fb | | Store 0x2,-0x5
049d e5fe | | Load 0x2,-0x2
049e e001 | | Load 0x0,0x1
049f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04a0 6814 |h | Jump_Zero 0x4b5
04a1 4801 |H | Short_Literal 0x1
04a2 4801 |H | Short_Literal 0x1
04a3 e00b | | Load 0x0,0xb
04a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a5 0334 | 4 | Declare_Variable Array,With_Constraint
04a6 0092 09c4 | | Action Push_String_Extended,0x9c4 ; "Unit_Update_Time"
04a8 e00b | | Load 0x0,0xb
04a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04aa e00b | | Load 0x0,0xb
04ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ac 0119 | | Execute Any,Check_In_Formal_Type
04ad 4801 |H | Short_Literal 0x1
04ae 00da | | Load_Top At_Offset_2
04af 01d6 | | Execute Vector,Field_Write
04b0 60ab |` | Indirect_Literal Discrete,0x55c,{0x00000000, 0x00008138}
04b1 e00c | | Load 0x0,0xc
04b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b3 a5fc | | Store_Unchecked 0x2,-0x4
04b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04b5 00e1 | | Load_Encached Boolean_Cache
04b6 00d9 | | Load_Top At_Offset_1
04b7 0120 | | Execute Any,Is_Value
04b8 6803 |h | Jump_Zero 0x4bc
04b9 e001 | | Load 0x0,0x1
04ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bb 7801 |x | Jump 0x4bd
04bc 00d9 | | Load_Top At_Offset_1
04bd e5fe | | Load 0x2,-0x2
04be e5ff | | Load 0x2,-0x1
04bf e001 | | Load 0x0,0x1
04c0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04c1 c403 | | Store 0x2,0x3
04c2 005a | Z | Store_Top Discrete,At_Offset_2
04c3 4802 |H | Short_Literal 0x2
04c4 00d9 | | Load_Top At_Offset_1
04c5 e00f | | Load 0x0,0xf
04c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04c7 681e |h | Jump_Zero 0x4e6
04c8 4801 |H | Short_Literal 0x1
04c9 4802 |H | Short_Literal 0x2
04ca e00b | | Load 0x0,0xb
04cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04cc 0334 | 4 | Declare_Variable Array,With_Constraint
04cd 00d9 | | Load_Top At_Offset_1
04ce e00f | | Load 0x0,0xf
04cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04d0 e00b | | Load 0x0,0xb
04d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04d2 e00b | | Load 0x0,0xb
04d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d4 0119 | | Execute Any,Check_In_Formal_Type
04d5 4801 |H | Short_Literal 0x1
04d6 00da | | Load_Top At_Offset_2
04d7 01d6 | | Execute Vector,Field_Write
04d8 e5ff | | Load 0x2,-0x1
04d9 e00b | | Load 0x0,0xb
04da 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04db e00b | | Load 0x0,0xb
04dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04dd 0119 | | Execute Any,Check_In_Formal_Type
04de 4802 |H | Short_Literal 0x2
04df 00da | | Load_Top At_Offset_2
04e0 01d6 | | Execute Vector,Field_Write
04e1 6076 |`v | Indirect_Literal Discrete,0x558,{0x00000000, 0x00008162}
04e2 e00c | | Load 0x0,0xc
04e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e4 a5fc | | Store_Unchecked 0x2,-0x4
04e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04e6 00d9 | | Load_Top At_Offset_1
04e7 7013 |p | Jump_Nonzero 0x4fb
04e8 4801 |H | Short_Literal 0x1
04e9 4801 |H | Short_Literal 0x1
04ea e00b | | Load 0x0,0xb
04eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ec 0334 | 4 | Declare_Variable Array,With_Constraint
04ed e5ff | | Load 0x2,-0x1
04ee e00b | | Load 0x0,0xb
04ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04f0 e00b | | Load 0x0,0xb
04f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f2 0119 | | Execute Any,Check_In_Formal_Type
04f3 4801 |H | Short_Literal 0x1
04f4 00da | | Load_Top At_Offset_2
04f5 01d6 | | Execute Vector,Field_Write
04f6 605d |`] | Indirect_Literal Discrete,0x554,{0x00000000, 0x00008171}
04f7 e00c | | Load 0x0,0xc
04f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04f9 a5fc | | Store_Unchecked 0x2,-0x4
04fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04fb 00d8 | | Load_Top At_Offset_0
04fc 0120 | | Execute Any,Is_Value
04fd 6803 |h | Jump_Zero 0x501
04fe e001 | | Load 0x0,0x1
04ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0500 7801 |x | Jump 0x502
0501 00d8 | | Load_Top At_Offset_0
0502 e5fb | | Load 0x2,-0x5
0503 0120 | | Execute Any,Is_Value
0504 6803 |h | Jump_Zero 0x508
0505 e002 | | Load 0x0,0x2
0506 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0507 7801 |x | Jump 0x509
0508 e5fb | | Load 0x2,-0x5
0509 00ea | | Load_Encached Null_String_Cache
050a e5fe | | Load 0x2,-0x2
050b e5ff | | Load 0x2,-0x1
050c e001 | | Load 0x0,0x1
050d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
050e c5fb | | Store 0x2,-0x5
050f c403 | | Store 0x2,0x3
0510 4802 |H | Short_Literal 0x2
0511 00d9 | | Load_Top At_Offset_1
0512 e00f | | Load 0x0,0xf
0513 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0514 6820 |h | Jump_Zero 0x535
0515 4801 |H | Short_Literal 0x1
0516 4802 |H | Short_Literal 0x2
0517 e00b | | Load 0x0,0xb
0518 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0519 0334 | 4 | Declare_Variable Array,With_Constraint
051a e5ff | | Load 0x2,-0x1
051b e00b | | Load 0x0,0xb
051c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
051d e00b | | Load 0x0,0xb
051e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
051f 0119 | | Execute Any,Check_In_Formal_Type
0520 4801 |H | Short_Literal 0x1
0521 00da | | Load_Top At_Offset_2
0522 01d6 | | Execute Vector,Field_Write
0523 00d9 | | Load_Top At_Offset_1
0524 e00f | | Load 0x0,0xf
0525 1818 | | Execute Package,Field_Execute,Field_Number 0x18
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 4802 |H | Short_Literal 0x2
052c 00da | | Load_Top At_Offset_2
052d 01d6 | | Execute Vector,Field_Write
052e 6021 |`! | Indirect_Literal Discrete,0x550,{0x00000000, 0x00008137}
052f e00c | | Load 0x0,0xc
0530 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0531 a5fc | | Store_Unchecked 0x2,-0x4
0532 e218 | | Load 0x1,0x18
0533 c5fb | | Store 0x2,-0x5
0534 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0535 e5fd | | Load 0x2,-0x3
0536 6813 |h | Jump_Zero 0x54a
0537 e00d | | Load 0x0,0xd
0538 180e | | Execute Package,Field_Execute,Field_Number 0xe
0539 4801 |H | Short_Literal 0x1
053a 4801 |H | Short_Literal 0x1
053b e00b | | Load 0x0,0xb
053c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
053d 0334 | 4 | Declare_Variable Array,With_Constraint
053e e5ff | | Load 0x2,-0x1
053f e00b | | Load 0x0,0xb
0540 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0541 e00b | | Load 0x0,0xb
0542 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0543 0119 | | Execute Any,Check_In_Formal_Type
0544 4801 |H | Short_Literal 0x1
0545 00da | | Load_Top At_Offset_2
0546 01d6 | | Execute Vector,Field_Write
0547 6004 |` | Indirect_Literal Discrete,0x54c,{0x00000000, 0x00008179}
0548 e00c | | Load 0x0,0xc
0549 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
054a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
054b 0000 | | .XXX[0x1]
054c 0000 0000 | | .LITERAL {0x00000000, 0x00008179}
0550 0000 0000 | | .LITERAL {0x00000000, 0x00008137}
0554 0000 0000 | | .LITERAL {0x00000000, 0x00008171}
0558 0000 0000 | | .LITERAL {0x00000000, 0x00008162}
055c 0000 0000 | | .LITERAL {0x00000000, 0x00008138}
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0568 | h | .CONST 0x0568 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0002 | | .CONST 0x0002 ; Number of locals
0563 INIT_0560:
0563 e00f | | Load 0x0,0xf
0564 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0565 02c7 | | Declare_Variable Any
0566 00d8 | | Load_Top At_Offset_0
0567 1c00 | | Execute_Immediate Run_Utility,0x0
0568 BODY_0560:
0568 4800 |H | Short_Literal 0x0
0569 a5fc | | Store_Unchecked 0x2,-0x4
056a 4800 |H | Short_Literal 0x0
056b a5fb | | Store_Unchecked 0x2,-0x5
056c 00e1 | | Load_Encached Boolean_Cache
056d 00d9 | | Load_Top At_Offset_1
056e 0120 | | Execute Any,Is_Value
056f 6803 |h | Jump_Zero 0x573
0570 e001 | | Load 0x0,0x1
0571 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0572 7801 |x | Jump 0x574
0573 00d9 | | Load_Top At_Offset_1
0574 e5fe | | Load 0x2,-0x2
0575 e5ff | | Load 0x2,-0x1
0576 e001 | | Load 0x0,0x1
0577 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0578 c402 | | Store 0x2,0x2
0579 c5fb | | Store 0x2,-0x5
057a 4802 |H | Short_Literal 0x2
057b 00d9 | | Load_Top At_Offset_1
057c e00f | | Load 0x0,0xf
057d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
057e 681e |h | Jump_Zero 0x59d
057f 4801 |H | Short_Literal 0x1
0580 4802 |H | Short_Literal 0x2
0581 e00b | | Load 0x0,0xb
0582 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0583 0334 | 4 | Declare_Variable Array,With_Constraint
0584 00d9 | | Load_Top At_Offset_1
0585 e00f | | Load 0x0,0xf
0586 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0587 e00b | | Load 0x0,0xb
0588 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0589 e00b | | Load 0x0,0xb
058a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
058b 0119 | | Execute Any,Check_In_Formal_Type
058c 4801 |H | Short_Literal 0x1
058d 00da | | Load_Top At_Offset_2
058e 01d6 | | Execute Vector,Field_Write
058f e5ff | | Load 0x2,-0x1
0590 e00b | | Load 0x0,0xb
0591 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0592 e00b | | Load 0x0,0xb
0593 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0594 0119 | | Execute Any,Check_In_Formal_Type
0595 4802 |H | Short_Literal 0x2
0596 00da | | Load_Top At_Offset_2
0597 01d6 | | Execute Vector,Field_Write
0598 67bf |g | Indirect_Literal Discrete,0x558,{0x00000000, 0x00008162}
0599 e00c | | Load 0x0,0xc
059a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059b a5fc | | Store_Unchecked 0x2,-0x4
059c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
059d e5fd | | Load 0x2,-0x3
059e 6819 |h | Jump_Zero 0x5b8
059f e00d | | Load 0x0,0xd
05a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
05a1 4801 |H | Short_Literal 0x1
05a2 4801 |H | Short_Literal 0x1
05a3 e00b | | Load 0x0,0xb
05a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05a5 0334 | 4 | Declare_Variable Array,With_Constraint
05a6 0092 09c5 | | Action Push_String_Extended,0x9c5 ; "Successfully determined the existence of remote file \x22"
05a8 e5ff | | Load 0x2,-0x1
05a9 01cc | | Execute Vector,Catenate
05aa 0092 09c6 | | Action Push_String_Extended,0x9c6 ; "\x22."
05ac 01cc | | Execute Vector,Catenate
05ad e00b | | Load 0x0,0xb
05ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05af e00b | | Load 0x0,0xb
05b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b1 0119 | | Execute Any,Check_In_Formal_Type
05b2 4801 |H | Short_Literal 0x1
05b3 00da | | Load_Top At_Offset_2
05b4 01d6 | | Execute Vector,Field_Write
05b5 6006 |` | Indirect_Literal Discrete,0x5bc,{0x00000000, 0x00008136}
05b6 e00c | | Load 0x0,0xc
05b7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05b9 0000 0000 | | .XXX[0x3]
05bb 0000 | |
05bc 0000 0000 | | .LITERAL {0x00000000, 0x00008136}
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 4608 |F | Jump_Case 0x9
05c4 7808 |x | Jump 0x5cd ; case 0x0
05c5 7814 |x | Jump 0x5da ; case 0x1
05c6 7817 |x | Jump 0x5de ; case 0x2
05c7 7816 |x | Jump 0x5de ; case 0x3
05c8 7815 |x | Jump 0x5de ; case 0x4
05c9 7814 |x | Jump 0x5de ; case 0x5
05ca 7813 |x | Jump 0x5de ; case 0x6
05cb 7812 |x | Jump 0x5de ; case 0x7
05cc 7811 |x | Jump 0x5de ; case 0x8
05cd 00da | | Load_Top At_Offset_2
05ce 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05cf 0125 | % | Execute Any,Set_Constraint
05d0 00da | | Load_Top At_Offset_2
05d1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05d2 1c00 | | Execute_Immediate Run_Utility,0x0
05d3 00da | | Load_Top At_Offset_2
05d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
05d5 0125 | % | Execute Any,Set_Constraint
05d6 00da | | Load_Top At_Offset_2
05d7 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
05d8 1c00 | | Execute_Immediate Run_Utility,0x0
05d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05da 00da | | Load_Top At_Offset_2
05db 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
05dc 0125 | % | Execute Any,Set_Constraint
05dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05de 0869 | i | Execute_Immediate Raise,0x69
05df 0000 | | .XXX[0x1]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05ef | | .CONST 0x05ef ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0003 | | .CONST 0x0003 ; Number of locals
05e3 INIT_05e0:
05e3 e003 | | Load 0x0,0x3
05e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05e5 e003 | | Load 0x0,0x3
05e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05e7 03f1 | | Declare_Variable Discrete,With_Value
05e8 e003 | | Load 0x0,0x3
05e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ea e012 | | Load 0x0,0x12
05eb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05ec e004 | | Load 0x0,0x4
05ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ee 03f1 | | Declare_Variable Discrete,With_Value
05ef BODY_05e0:
05ef 00d9 | | Load_Top At_Offset_1
05f0 e5ff | | Load 0x2,-0x1
05f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05f2 00d8 | | Load_Top At_Offset_0
05f3 e5ff | | Load 0x2,-0x1
05f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05f5 4800 |H | Short_Literal 0x0
05f6 e5ff | | Load 0x2,-0x1
05f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05f8 e00d | | Load 0x0,0xd
05f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
05fa 4801 |H | Short_Literal 0x1
05fb 0092 09c7 | | Action Push_String_Extended,0x9c7 ; "Initialized Job_Record for job"
05fd e402 | | Load 0x2,0x2
05fe 00e0 | | Load_Encached Standard_Cache
05ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0600 01cc | | Execute Vector,Catenate
0601 0092 09c8 | | Action Push_String_Extended,0x9c8 ; ", task"
0603 01cc | | Execute Vector,Catenate
0604 00db | | Load_Top At_Offset_3
0605 00d8 | | Load_Top At_Offset_0
0606 00e2 | | Load_Encached Integer_Cache
0607 0260 | ` | Execute Discrete,In_Type
0608 7001 |p | Jump_Nonzero 0x60a
0609 0801 | | Execute_Immediate Raise,0x1
060a 00e0 | | Load_Encached Standard_Cache
060b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
060c 01cc | | Execute Vector,Catenate
060d e00e | | Load 0x0,0xe
060e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 e00d | | Load 0x0,0xd
0614 180e | | Execute Package,Field_Execute,Field_Number 0xe
0615 4801 |H | Short_Literal 0x1
0616 0092 09c9 | | Action Push_String_Extended,0x9c9 ; "Finalizing Job_Record"
0618 e00e | | Load 0x0,0xe
0619 1813 | | Execute Package,Field_Execute,Field_Number 0x13
061a 00da | | Load_Top At_Offset_2
061b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
061c 6822 |h" | Jump_Zero 0x63f
061d 00da | | Load_Top At_Offset_2
061e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
061f e005 | | Load 0x0,0x5
0620 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0621 00db | | Load_Top At_Offset_3
0622 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0623 e00d | | Load 0x0,0xd
0624 180e | | Execute Package,Field_Execute,Field_Number 0xe
0625 4801 |H | Short_Literal 0x1
0626 0092 09ca | | Action Push_String_Extended,0x9ca ; "Deleting temporary file for process"
0628 e5ff | | Load 0x2,-0x1
0629 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
062a 00e0 | | Load_Encached Standard_Cache
062b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
062c 01cc | | Execute Vector,Catenate
062d 0092 09c8 | | Action Push_String_Extended,0x9c8 ; ", task"
062f 01cc | | Execute Vector,Catenate
0630 e5ff | | Load 0x2,-0x1
0631 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0632 00d8 | | Load_Top At_Offset_0
0633 00e2 | | Load_Encached Integer_Cache
0634 0260 | ` | Execute Discrete,In_Type
0635 7001 |p | Jump_Nonzero 0x637
0636 0801 | | Execute_Immediate Raise,0x1
0637 00e0 | | Load_Encached Standard_Cache
0638 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0639 01cc | | Execute Vector,Catenate
063a e00e | | Load 0x0,0xe
063b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
063c 4800 |H | Short_Literal 0x0
063d 00db | | Load_Top At_Offset_3
063e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
063f 4800 |H | Short_Literal 0x0
0640 00db | | Load_Top At_Offset_3
0641 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0642 4800 |H | Short_Literal 0x0
0643 00db | | Load_Top At_Offset_3
0644 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0645 00da | | Load_Top At_Offset_2
0646 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0647 00ea | | Load_Encached Null_String_Cache
0648 e006 | | Load 0x0,0x6
0649 1810 | | Execute Package,Field_Execute,Field_Number 0x10
064a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
064b 0000 0000 | | .BLANK 0000[0x5]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0656 | V | .CONST 0x0656 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0002 | | .CONST 0x0002 ; Number of locals
0653 INIT_0650:
0653 e5fe | | Load 0x2,-0x2
0654 e001 | | Load 0x0,0x1
0655 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0656 BODY_0650:
0656 e402 | | Load 0x2,0x2
0657 0120 | | Execute Any,Is_Value
0658 6803 |h | Jump_Zero 0x65c
0659 e001 | | Load 0x0,0x1
065a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065b 7801 |x | Jump 0x65d
065c e402 | | Load 0x2,0x2
065d e5fe | | Load 0x2,-0x2
065e e001 | | Load 0x0,0x1
065f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0660 011e | | Execute Any,Convert
0661 603e |`> | Indirect_Literal Discrete,0x6a0,{0x00000000, 0x000a0000}
0662 e001 | | Load 0x0,0x1
0663 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0664 c5fe | | Store 0x2,-0x2
0665 c402 | | Store 0x2,0x2
0666 4802 |H | Short_Literal 0x2
0667 e402 | | Load 0x2,0x2
0668 e00f | | Load 0x0,0xf
0669 1817 | | Execute Package,Field_Execute,Field_Number 0x17
066a 6815 |h | Jump_Zero 0x680
066b 4801 |H | Short_Literal 0x1
066c 4801 |H | Short_Literal 0x1
066d e00b | | Load 0x0,0xb
066e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
066f 0334 | 4 | Declare_Variable Array,With_Constraint
0670 e402 | | Load 0x2,0x2
0671 e00f | | Load 0x0,0xf
0672 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0673 e00b | | Load 0x0,0xb
0674 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0675 e00b | | Load 0x0,0xb
0676 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0677 0119 | | Execute Any,Check_In_Formal_Type
0678 4801 |H | Short_Literal 0x1
0679 00da | | Load_Top At_Offset_2
067a 01d6 | | Execute Vector,Field_Write
067b 6020 |` | Indirect_Literal Discrete,0x69c,{0x00000000, 0x00008135}
067c e00c | | Load 0x0,0xc
067d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
067e a5fd | | Store_Unchecked 0x2,-0x3
067f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0680 e5ff | | Load 0x2,-0x1
0681 6813 |h | Jump_Zero 0x695
0682 e00d | | Load 0x0,0xd
0683 180e | | Execute Package,Field_Execute,Field_Number 0xe
0684 4801 |H | Short_Literal 0x1
0685 4801 |H | Short_Literal 0x1
0686 e00b | | Load 0x0,0xb
0687 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0688 0334 | 4 | Declare_Variable Array,With_Constraint
0689 00da | | Load_Top At_Offset_2
068a e00b | | Load 0x0,0xb
068b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
068c e00b | | Load 0x0,0xb
068d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068e 0119 | | Execute Any,Check_In_Formal_Type
068f 4801 |H | Short_Literal 0x1
0690 00da | | Load_Top At_Offset_2
0691 01d6 | | Execute Vector,Field_Write
0692 6005 |` | Indirect_Literal Discrete,0x698,{0x00000000, 0x00008178}
0693 e00c | | Load 0x0,0xc
0694 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0695 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0696 0000 0000 | | .XXX[0x2]
0698 0000 0000 | | .LITERAL {0x00000000, 0x00008178}
069c 0000 0000 | | .LITERAL {0x00000000, 0x00008135}
06a0 0000 0000 | | .LITERAL {0x00000000, 0x000a0000}
06a4 0000 0000 | | .BLANK 0000[0x4]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ae | | .CONST 0x06ae ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0002 | | .CONST 0x0002 ; Number of locals
06ab INIT_06a8:
06ab e5fe | | Load 0x2,-0x2
06ac e001 | | Load 0x0,0x1
06ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06ae BODY_06a8:
06ae e402 | | Load 0x2,0x2
06af 0120 | | Execute Any,Is_Value
06b0 6803 |h | Jump_Zero 0x6b4
06b1 e001 | | Load 0x0,0x1
06b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b3 7801 |x | Jump 0x6b5
06b4 e402 | | Load 0x2,0x2
06b5 e5fe | | Load 0x2,-0x2
06b6 e001 | | Load 0x0,0x1
06b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06b8 011e | | Execute Any,Convert
06b9 e001 | | Load 0x0,0x1
06ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06bb c5fe | | Store 0x2,-0x2
06bc c402 | | Store 0x2,0x2
06bd 4802 |H | Short_Literal 0x2
06be e402 | | Load 0x2,0x2
06bf e00f | | Load 0x0,0xf
06c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06c1 6815 |h | Jump_Zero 0x6d7
06c2 4801 |H | Short_Literal 0x1
06c3 4801 |H | Short_Literal 0x1
06c4 e00b | | Load 0x0,0xb
06c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06c6 0334 | 4 | Declare_Variable Array,With_Constraint
06c7 e402 | | Load 0x2,0x2
06c8 e00f | | Load 0x0,0xf
06c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06ca e00b | | Load 0x0,0xb
06cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06cc e00b | | Load 0x0,0xb
06cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06ce 0119 | | Execute Any,Check_In_Formal_Type
06cf 4801 |H | Short_Literal 0x1
06d0 00da | | Load_Top At_Offset_2
06d1 01d6 | | Execute Vector,Field_Write
06d2 67c9 |g | Indirect_Literal Discrete,0x69c,{0x00000000, 0x00008135}
06d3 e00c | | Load 0x0,0xc
06d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06d5 a5fd | | Store_Unchecked 0x2,-0x3
06d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d7 e5ff | | Load 0x2,-0x1
06d8 6813 |h | Jump_Zero 0x6ec
06d9 e00d | | Load 0x0,0xd
06da 180e | | Execute Package,Field_Execute,Field_Number 0xe
06db 4801 |H | Short_Literal 0x1
06dc 4801 |H | Short_Literal 0x1
06dd e00b | | Load 0x0,0xb
06de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06df 0334 | 4 | Declare_Variable Array,With_Constraint
06e0 00da | | Load_Top At_Offset_2
06e1 e00b | | Load 0x0,0xb
06e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06e3 e00b | | Load 0x0,0xb
06e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e5 0119 | | Execute Any,Check_In_Formal_Type
06e6 4801 |H | Short_Literal 0x1
06e7 00da | | Load_Top At_Offset_2
06e8 01d6 | | Execute Vector,Field_Write
06e9 6006 |` | Indirect_Literal Discrete,0x6f0,{0x00000000, 0x00008173}
06ea e00c | | Load 0x0,0xc
06eb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ed 0000 0000 | | .XXX[0x3]
06ef 0000 | |
06f0 0000 0000 | | .LITERAL {0x00000000, 0x00008173}
06f4 0000 0000 | | .BLANK 0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0700 | | .CONST 0x0700 ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0002 | | .CONST 0x0002 ; Number of locals
06fb INIT_06f8:
06fb e005 | | Load 0x0,0x5
06fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06fd 02c7 | | Declare_Variable Any
06fe 00d8 | | Load_Top At_Offset_0
06ff 1c00 | | Execute_Immediate Run_Utility,0x0
0700 BODY_06f8:
0700 00d8 | | Load_Top At_Offset_0
0701 e013 | | Load 0x0,0x13
0702 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0703 e014 | | Load 0x0,0x14
0704 180f | | Execute Package,Field_Execute,Field_Number 0xf
0705 00ea | | Load_Encached Null_String_Cache
0706 e5ff | | Load 0x2,-0x1
0707 4800 |H | Short_Literal 0x0
0708 e005 | | Load 0x0,0x5
0709 1814 | | Execute Package,Field_Execute,Field_Number 0x14
070a c602 | | Store 0x3,0x2
070b e402 | | Load 0x2,0x2
070c 0120 | | Execute Any,Is_Value
070d 6803 |h | Jump_Zero 0x711
070e e001 | | Load 0x0,0x1
070f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0710 7801 |x | Jump 0x712
0711 e402 | | Load 0x2,0x2
0712 00ea | | Load_Encached Null_String_Cache
0713 4800 |H | Short_Literal 0x0
0714 e5fd | | Load 0x2,-0x3
0715 e5fe | | Load 0x2,-0x2
0716 e602 | | Load 0x3,0x2
0717 e001 | | Load 0x0,0x1
0718 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0719 c402 | | Store 0x2,0x2
071a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
071b 0000 0000 | | .BLANK 0000[0x5]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0728 | ( | .CONST 0x0728 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0002 | | .CONST 0x0002 ; Number of locals
0723 INIT_0720:
0723 e005 | | Load 0x0,0x5
0724 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0725 02c7 | | Declare_Variable Any
0726 00d8 | | Load_Top At_Offset_0
0727 1c00 | | Execute_Immediate Run_Utility,0x0
0728 BODY_0720:
0728 00d8 | | Load_Top At_Offset_0
0729 e013 | | Load 0x0,0x13
072a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
072b e015 | | Load 0x0,0x15
072c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
072d e014 | | Load 0x0,0x14
072e 180f | | Execute Package,Field_Execute,Field_Number 0xf
072f 00ea | | Load_Encached Null_String_Cache
0730 e5ff | | Load 0x2,-0x1
0731 4801 |H | Short_Literal 0x1
0732 e005 | | Load 0x0,0x5
0733 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0734 c602 | | Store 0x3,0x2
0735 e403 | | Load 0x2,0x3
0736 0120 | | Execute Any,Is_Value
0737 6803 |h | Jump_Zero 0x73b
0738 e001 | | Load 0x0,0x1
0739 1b0d | | Execute Package,Field_Read,Field_Number 0xd
073a 7801 |x | Jump 0x73c
073b e403 | | Load 0x2,0x3
073c 00ea | | Load_Encached Null_String_Cache
073d 00da | | Load_Top At_Offset_2
073e e5fd | | Load 0x2,-0x3
073f e5fe | | Load 0x2,-0x2
0740 e001 | | Load 0x0,0x1
0741 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0742 c403 | | Store 0x2,0x3
0743 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0744 0000 0000 | | .BLANK 0000[0x4]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 076a | j | .CONST 0x076a ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 000e | | .CONST 0x000e ; Number of locals
074b INIT_0748:
074b 00e1 | | Load_Encached Boolean_Cache
074c 00d8 | | Load_Top At_Offset_0
074d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
074e e00f | | Load 0x0,0xf
074f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0750 02c7 | | Declare_Variable Any
0751 00d8 | | Load_Top At_Offset_0
0752 1c00 | | Execute_Immediate Run_Utility,0x0
0753 029f 095b | [| Declare_Subprogram INIT_0958,For_Call
0755 029f 098b | | Declare_Subprogram INIT_0988,For_Call
0757 029f 0993 | | Declare_Subprogram INIT_0990,For_Call
0759 e001 | | Load 0x0,0x1
075a 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
075b 00c6 | | Action Check_Subprogram_Elaborated
075c e602 | | Load 0x3,0x2
075d 4805 |H | Short_Literal 0x5
075e 4803 |H | Short_Literal 0x3
075f 0099 | | Action Reference_Dynamic
0760 4806 |H | Short_Literal 0x6
0761 4803 |H | Short_Literal 0x3
0762 0099 | | Action Reference_Dynamic
0763 4807 |H | Short_Literal 0x7
0764 4803 |H | Short_Literal 0x3
0765 0099 | | Action Reference_Dynamic
0766 e016 | | Load 0x0,0x16
0767 e017 | | Load 0x0,0x17
0768 480e |H | Short_Literal 0xe
0769 0007 | | Action Break_Optional
076a BODY_0748:
076a e604 | | Load 0x3,0x4
076b 0120 | | Execute Any,Is_Value
076c 6803 |h | Jump_Zero 0x770
076d e001 | | Load 0x0,0x1
076e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
076f 7801 |x | Jump 0x771
0770 e604 | | Load 0x3,0x4
0771 e603 | | Load 0x3,0x3
0772 603d |`= | Indirect_Literal Discrete,0x7b0,{0x00007fff, 0xffffffff}
0773 e7ff | | Load 0x3,-0x1
0774 0092 09cb | | Action Push_String_Extended,0x9cb ; "write sys$output $status"
0776 e608 | | Load 0x3,0x8
0777 4809 |H | Short_Literal 0x9
0778 4803 |H | Short_Literal 0x3
0779 0099 | | Action Reference_Dynamic
077a 480a |H | Short_Literal 0xa
077b 4803 |H | Short_Literal 0x3
077c 0099 | | Action Reference_Dynamic
077d 480b |H | Short_Literal 0xb
077e 4803 |H | Short_Literal 0x3
077f 0099 | | Action Reference_Dynamic
0780 480c |H | Short_Literal 0xc
0781 4803 |H | Short_Literal 0x3
0782 0099 | | Action Reference_Dynamic
0783 e001 | | Load 0x0,0x1
0784 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0785 c603 | | Store 0x3,0x3
0786 c604 | | Store 0x3,0x4
0787 e604 | | Load 0x3,0x4
0788 e00f | | Load 0x0,0xf
0789 1814 | | Execute Package,Field_Execute,Field_Number 0x14
078a 0c01 | | Execute_Immediate Greater_Equal,0x1
078b 680a |h | Jump_Zero 0x796
078c e00d | | Load 0x0,0xd
078d 180e | | Execute Package,Field_Execute,Field_Number 0xe
078e 4806 |H | Short_Literal 0x6
078f e604 | | Load 0x3,0x4
0790 e00f | | Load 0x0,0xf
0791 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0792 e00e | | Load 0x0,0xe
0793 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0794 4800 |H | Short_Literal 0x0
0795 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0796 e603 | | Load 0x3,0x3
0797 6802 |h | Jump_Zero 0x79a
0798 4800 |H | Short_Literal 0x0
0799 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
079a 4801 |H | Short_Literal 0x1
079b 4801 |H | Short_Literal 0x1
079c e00b | | Load 0x0,0xb
079d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
079e 0334 | 4 | Declare_Variable Array,With_Constraint
079f e5ff | | Load 0x2,-0x1
07a0 e00b | | Load 0x0,0xb
07a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07a2 e00b | | Load 0x0,0xb
07a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07a4 0119 | | Execute Any,Check_In_Formal_Type
07a5 4801 |H | Short_Literal 0x1
07a6 00da | | Load_Top At_Offset_2
07a7 01d6 | | Execute Vector,Field_Write
07a8 6003 |` | Indirect_Literal Discrete,0x7ac,{0x00000000, 0x00008130}
07a9 e00c | | Load 0x0,0xc
07aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ac 0000 0000 | | .LITERAL {0x00000000, 0x00008130}
07b0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
07b4 0000 0000 | | .BLANK 0000[0x4]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07ce | | .CONST 0x07ce ; Address of begin
07b9 0840 | @ | .CONST 0x0840 ; Address of exception handler
07ba 0005 | | .CONST 0x0005 ; Number of locals
07bb INIT_07b8:
07bb e003 | | Load 0x0,0x3
07bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07bd e003 | | Load 0x0,0x3
07be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
07bf 03f1 | | Declare_Variable Discrete,With_Value
07c0 00d8 | | Load_Top At_Offset_0
07c1 00e0 | | Load_Encached Standard_Cache
07c2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07c3 e21a | | Load 0x1,0x1a
07c4 0322 | " | Declare_Variable Record
07c5 00d8 | | Load_Top At_Offset_0
07c6 1c01 | | Execute_Immediate Run_Utility,0x1
07c7 00da | | Load_Top At_Offset_2
07c8 e21d | | Load 0x1,0x1d
07c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07ca 00d9 | | Load_Top At_Offset_1
07cb 017d | } | Execute Record,Structure_Write
07cc 029f 099b | | Declare_Subprogram INIT_0998,For_Call
07ce BODY_07b8:
07ce e219 | | Load 0x1,0x19
07cf 6832 |h2 | Jump_Zero 0x802
07d0 e402 | | Load 0x2,0x2
07d1 e013 | | Load 0x0,0x13
07d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07d3 e018 | | Load 0x0,0x18
07d4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
07d5 e018 | | Load 0x0,0x18
07d6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07d7 00ea | | Load_Encached Null_String_Cache
07d8 0092 09cc | | Action Push_String_Extended,0x9cc ; "!Machine.Temporary.Rcf_Output_"
07da e603 | | Load 0x3,0x3
07db 01dd | | Execute Vector,First
07dc 0a01 | | Execute_Immediate Plus,0x1
07dd 00d8 | | Load_Top At_Offset_0
07de 00e2 | | Load_Encached Integer_Cache
07df 0260 | ` | Execute Discrete,In_Type
07e0 7001 |p | Jump_Nonzero 0x7e2
07e1 0801 | | Execute_Immediate Raise,0x1
07e2 e603 | | Load 0x3,0x3
07e3 01dc | | Execute Vector,Last
07e4 e603 | | Load 0x3,0x3
07e5 01cf | | Execute Vector,Slice_Read
07e6 01cc | | Execute Vector,Catenate
07e7 4801 |H | Short_Literal 0x1
07e8 e005 | | Load 0x0,0x5
07e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07ea c402 | | Store 0x2,0x2
07eb e00d | | Load 0x0,0xd
07ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
07ed 4801 |H | Short_Literal 0x1
07ee 0092 09cd | | Action Push_String_Extended,0x9cd ; "Created temp file "
07f0 e402 | | Load 0x2,0x2
07f1 e005 | | Load 0x0,0x5
07f2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
07f3 01cc | | Execute Vector,Catenate
07f4 e00e | | Load 0x0,0xe
07f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07f6 e402 | | Load 0x2,0x2
07f7 00da | | Load_Top At_Offset_2
07f8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
07f9 4801 |H | Short_Literal 0x1
07fa 00da | | Load_Top At_Offset_2
07fb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07fc 4800 |H | Short_Literal 0x0
07fd e602 | | Load 0x3,0x2
07fe 00db | | Load_Top At_Offset_3
07ff e21d | | Load 0x1,0x1d
0800 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0801 7836 |x6 | Jump 0x838
0802 00d9 | | Load_Top At_Offset_1
0803 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0804 7032 |p2 | Jump_Nonzero 0x837
0805 e402 | | Load 0x2,0x2
0806 e013 | | Load 0x0,0x13
0807 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0808 e018 | | Load 0x0,0x18
0809 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
080a e018 | | Load 0x0,0x18
080b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
080c 00ea | | Load_Encached Null_String_Cache
080d 0092 09cc | | Action Push_String_Extended,0x9cc ; "!Machine.Temporary.Rcf_Output_"
080f e603 | | Load 0x3,0x3
0810 01dd | | Execute Vector,First
0811 0a01 | | Execute_Immediate Plus,0x1
0812 00d8 | | Load_Top At_Offset_0
0813 00e2 | | Load_Encached Integer_Cache
0814 0260 | ` | Execute Discrete,In_Type
0815 7001 |p | Jump_Nonzero 0x817
0816 0801 | | Execute_Immediate Raise,0x1
0817 e603 | | Load 0x3,0x3
0818 01dc | | Execute Vector,Last
0819 e603 | | Load 0x3,0x3
081a 01cf | | Execute Vector,Slice_Read
081b 01cc | | Execute Vector,Catenate
081c 4801 |H | Short_Literal 0x1
081d e005 | | Load 0x0,0x5
081e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
081f c402 | | Store 0x2,0x2
0820 e00d | | Load 0x0,0xd
0821 180e | | Execute Package,Field_Execute,Field_Number 0xe
0822 4801 |H | Short_Literal 0x1
0823 0092 09ce | | Action Push_String_Extended,0x9ce ; "Created temporary file "
0825 e402 | | Load 0x2,0x2
0826 e005 | | Load 0x0,0x5
0827 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0828 01cc | | Execute Vector,Catenate
0829 e00e | | Load 0x0,0xe
082a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
082b e402 | | Load 0x2,0x2
082c 00da | | Load_Top At_Offset_2
082d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
082e 4801 |H | Short_Literal 0x1
082f 00da | | Load_Top At_Offset_2
0830 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0831 4800 |H | Short_Literal 0x0
0832 e602 | | Load 0x3,0x2
0833 00db | | Load_Top At_Offset_3
0834 e21d | | Load 0x1,0x1d
0835 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0836 7801 |x | Jump 0x838
0837 8605 | | Call 0x3,0x5
0838 e5fc | | Load 0x2,-0x4
0839 6803 |h | Jump_Zero 0x83d
083a e402 | | Load 0x2,0x2
083b c404 | | Store 0x2,0x4
083c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
083d e402 | | Load 0x2,0x2
083e c405 | | Store 0x2,0x5
083f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0840 TRAP_07b8:
0840 0007 | | Action Break_Optional
0841 4801 |H | Short_Literal 0x1
0842 4801 |H | Short_Literal 0x1
0843 e00b | | Load 0x0,0xb
0844 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0845 0334 | 4 | Declare_Variable Array,With_Constraint
0846 e5ff | | Load 0x2,-0x1
0847 e00b | | Load 0x0,0xb
0848 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0849 e00b | | Load 0x0,0xb
084a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
084b 0119 | | Execute Any,Check_In_Formal_Type
084c 4801 |H | Short_Literal 0x1
084d 00da | | Load_Top At_Offset_2
084e 01d6 | | Execute Vector,Field_Write
084f 6008 |` | Indirect_Literal Discrete,0x858,{0x00000000, 0x00008119}
0850 e00c | | Load 0x0,0xc
0851 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0852 a5f8 | | Store_Unchecked 0x2,-0x8
0853 e011 | | Load 0x0,0x11
0854 0257 | W | Execute Discrete,Raise
0855 0000 0000 | | .XXX[0x3]
0857 0000 | |
0858 0000 0000 | | .LITERAL {0x00000000, 0x00008119}
085c 0000 0000 | | .BLANK 0000[0x4]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 e40c | | Load 0x2,0xc
0864 681a |h | Jump_Zero 0x87f
0865 e219 | | Load 0x1,0x19
0866 680c |h | Jump_Zero 0x873
0867 e00d | | Load 0x0,0xd
0868 180e | | Execute Package,Field_Execute,Field_Number 0xe
0869 4801 |H | Short_Literal 0x1
086a 0092 09cf | | Action Push_String_Extended,0x9cf ; "Close temp file"
086c e00e | | Load 0x0,0xe
086d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
086e e402 | | Load 0x2,0x2
086f e005 | | Load 0x0,0x5
0870 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0871 c402 | | Store 0x2,0x2
0872 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0873 e00d | | Load 0x0,0xd
0874 180e | | Execute Package,Field_Execute,Field_Number 0xe
0875 4801 |H | Short_Literal 0x1
0876 0092 09d0 | | Action Push_String_Extended,0x9d0 ; "Reset temp file"
0878 e00e | | Load 0x0,0xe
0879 1813 | | Execute Package,Field_Execute,Field_Number 0x13
087a e402 | | Load 0x2,0x2
087b 4801 |H | Short_Literal 0x1
087c e005 | | Load 0x0,0x5
087d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
087e c402 | | Store 0x2,0x2
087f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0889 | | .CONST 0x0889 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0005 | | .CONST 0x0005 ; Number of locals
0883 INIT_0880:
0883 00e3 | | Load_Encached Natural_Cache
0884 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0885 00e3 | | Load_Encached Natural_Cache
0886 00e3 | | Load_Encached Natural_Cache
0887 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0888 00e3 | | Load_Encached Natural_Cache
0889 BODY_0880:
0889 e00d | | Load 0x0,0xd
088a 180e | | Execute Package,Field_Execute,Field_Number 0xe
088b 4801 |H | Short_Literal 0x1
088c 0092 09d1 | | Action Push_String_Extended,0x9d1 ; "Resetting temp file"
088e e00e | | Load 0x0,0xe
088f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0890 e402 | | Load 0x2,0x2
0891 4800 |H | Short_Literal 0x0
0892 e005 | | Load 0x0,0x5
0893 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0894 c402 | | Store 0x2,0x2
0895 00cf | | Action Mark_Auxiliary
0896 e40b | | Load 0x2,0xb
0897 0aff | | Execute_Immediate Plus,-0x1
0898 4801 |H | Short_Literal 0x1
0899 0263 | c | Execute Discrete,Above_Bound
089a 7006 |p | Jump_Nonzero 0x8a1
089b 4820 |H | Short_Literal 0x20
089c 00d9 | | Load_Top At_Offset_1
089d e406 | | Load 0x2,0x6
089e 01d6 | | Execute Vector,Field_Write
089f 00c8 | | Action Pop_Auxiliary_Range
08a0 3ffa |? | Loop_Increasing 0x89b
08a1 00c9 | | Action Pop_Auxiliary_Loop
08a2 7890 |x | Jump 0x933
08a3 e406 | | Load 0x2,0x6
08a4 e40b | | Load 0x2,0xb
08a5 4900 |I | Short_Literal 0x100
08a6 00da | | Load_Top At_Offset_2
08a7 035b | [ | Declare_Type Array,Constrained
08a8 00d0 | | Action Swap_Control
08a9 01cd | | Execute Vector,Slice_Reference
08aa 00e3 | | Load_Encached Natural_Cache
08ab 00d9 | | Load_Top At_Offset_1
08ac e402 | | Load 0x2,0x2
08ad e005 | | Load 0x0,0x5
08ae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
08af 00d1 | | Pop_Control Pop_Count_1
08b0 c407 | | Store 0x2,0x7
08b1 00d1 | | Pop_Control Pop_Count_1
08b2 4801 |H | Short_Literal 0x1
08b3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
08b4 e40b | | Load 0x2,0xb
08b5 0aff | | Execute_Immediate Plus,-0x1
08b6 e407 | | Load 0x2,0x7
08b7 0273 | s | Execute Discrete,Plus
08b8 c603 | | Store 0x3,0x3
08b9 e5fa | | Load 0x2,-0x6
08ba 6806 |h | Jump_Zero 0x8c1
08bb e40b | | Load 0x2,0xb
08bc e603 | | Load 0x3,0x3
08bd e406 | | Load 0x2,0x6
08be 01cf | | Execute Vector,Slice_Read
08bf e010 | | Load 0x0,0x10
08c0 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
08c1 00cf | | Action Mark_Auxiliary
08c2 786a |xj | Jump 0x92d
08c3 e408 | | Load 0x2,0x8
08c4 6851 |hQ | Jump_Zero 0x916
08c5 4801 |H | Short_Literal 0x1
08c6 00db | | Load_Top At_Offset_3
08c7 e603 | | Load 0x3,0x3
08c8 e406 | | Load 0x2,0x6
08c9 01cf | | Execute Vector,Slice_Read
08ca e5fd | | Load 0x2,-0x3
08cb e00a | | Load 0x0,0xa
08cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
08cd a604 | | Store_Unchecked 0x3,0x4
08ce 00db | | Load_Top At_Offset_3
08cf 6831 |h1 | Jump_Zero 0x901
08d0 e409 | | Load 0x2,0x9
08d1 0a01 | | Execute_Immediate Plus,0x1
08d2 c409 | | Store 0x2,0x9
08d3 e409 | | Load 0x2,0x9
08d4 0f01 | | Execute_Immediate Equal,0x1
08d5 6812 |h | Jump_Zero 0x8e8
08d6 4801 |H | Short_Literal 0x1
08d7 4801 |H | Short_Literal 0x1
08d8 e00b | | Load 0x0,0xb
08d9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08da 0334 | 4 | Declare_Variable Array,With_Constraint
08db e5ff | | Load 0x2,-0x1
08dc e00b | | Load 0x0,0xb
08dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08de e00b | | Load 0x0,0xb
08df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08e0 0119 | | Execute Any,Check_In_Formal_Type
08e1 4801 |H | Short_Literal 0x1
08e2 00da | | Load_Top At_Offset_2
08e3 01d6 | | Execute Vector,Field_Write
08e4 606f |`o | Indirect_Literal Discrete,0x954,{0x00000000, 0x00008130}
08e5 e00c | | Load 0x0,0xc
08e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08e7 a40a | | Store_Unchecked 0x2,0xa
08e8 4800 |H | Short_Literal 0x0
08e9 e604 | | Load 0x3,0x4
08ea e603 | | Load 0x3,0x3
08eb e406 | | Load 0x2,0x6
08ec 01cf | | Execute Vector,Slice_Read
08ed 480a |H | Short_Literal 0xa
08ee e00a | | Load 0x0,0xa
08ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e
08f0 a602 | | Store_Unchecked 0x3,0x2
08f1 e602 | | Load 0x3,0x2
08f2 7008 |p | Jump_Nonzero 0x8fb
08f3 e603 | | Load 0x3,0x3
08f4 0a01 | | Execute_Immediate Plus,0x1
08f5 c602 | | Store 0x3,0x2
08f6 4800 |H | Short_Literal 0x0
08f7 a408 | | Store_Unchecked 0x2,0x8
08f8 e602 | | Load 0x3,0x2
08f9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
08fa 7831 |x1 | Jump 0x92c
08fb 4801 |H | Short_Literal 0x1
08fc a408 | | Store_Unchecked 0x2,0x8
08fd e602 | | Load 0x3,0x2
08fe 0a01 | | Execute_Immediate Plus,0x1
08ff 005b | [ | Store_Top Discrete,At_Offset_3
0900 782b |x+ | Jump 0x92c
0901 e603 | | Load 0x3,0x3
0902 e40b | | Load 0x2,0xb
0903 0272 | r | Execute Discrete,Minus
0904 0a02 | | Execute_Immediate Plus,0x2
0905 00d8 | | Load_Top At_Offset_0
0906 00e2 | | Load_Encached Integer_Cache
0907 0260 | ` | Execute Discrete,In_Type
0908 7001 |p | Jump_Nonzero 0x90a
0909 0801 | | Execute_Immediate Raise,0x1
090a e603 | | Load 0x3,0x3
090b e406 | | Load 0x2,0x6
090c 01cf | | Execute Vector,Slice_Read
090d 4801 |H | Short_Literal 0x1
090e e40b | | Load 0x2,0xb
090f 0aff | | Execute_Immediate Plus,-0x1
0910 e406 | | Load 0x2,0x6
0911 01ce | | Execute Vector,Slice_Write
0912 e603 | | Load 0x3,0x3
0913 0a01 | | Execute_Immediate Plus,0x1
0914 005b | [ | Store_Top Discrete,At_Offset_3
0915 7816 |x | Jump 0x92c
0916 4800 |H | Short_Literal 0x0
0917 e40b | | Load 0x2,0xb
0918 e603 | | Load 0x3,0x3
0919 e406 | | Load 0x2,0x6
091a 01cf | | Execute Vector,Slice_Read
091b 480a |H | Short_Literal 0xa
091c e00a | | Load 0x0,0xa
091d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
091e a602 | | Store_Unchecked 0x3,0x2
091f e602 | | Load 0x3,0x2
0920 7006 |p | Jump_Nonzero 0x927
0921 e603 | | Load 0x3,0x3
0922 0a01 | | Execute_Immediate Plus,0x1
0923 c602 | | Store 0x3,0x2
0924 e602 | | Load 0x3,0x2
0925 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0926 7805 |x | Jump 0x92c
0927 4801 |H | Short_Literal 0x1
0928 a408 | | Store_Unchecked 0x2,0x8
0929 e602 | | Load 0x3,0x2
092a 0a01 | | Execute_Immediate Plus,0x1
092b 005b | [ | Store_Top Discrete,At_Offset_3
092c 00c9 | | Action Pop_Auxiliary_Loop
092d 00da | | Load_Top At_Offset_2
092e e603 | | Load 0x3,0x3
092f 027a | z | Execute Discrete,Less_Equal
0930 7792 |w | Jump_Nonzero 0x8c3
0931 00ce | | Action Pop_Auxiliary
0932 00c9 | | Action Pop_Auxiliary_Loop
0933 e402 | | Load 0x2,0x2
0934 e005 | | Load 0x0,0x5
0935 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0936 6f6c |ol | Jump_Zero 0x8a3
0937 00ce | | Action Pop_Auxiliary
0938 e409 | | Load 0x2,0x9
0939 0c02 | | Execute_Immediate Greater_Equal,0x2
093a 6813 |h | Jump_Zero 0x94e
093b e00d | | Load 0x0,0xd
093c 180e | | Execute Package,Field_Execute,Field_Number 0xe
093d 4801 |H | Short_Literal 0x1
093e 4801 |H | Short_Literal 0x1
093f e00b | | Load 0x0,0xb
0940 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0941 0334 | 4 | Declare_Variable Array,With_Constraint
0942 e409 | | Load 0x2,0x9
0943 e00b | | Load 0x0,0xb
0944 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0945 e00b | | Load 0x0,0xb
0946 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0947 0119 | | Execute Any,Check_In_Formal_Type
0948 4801 |H | Short_Literal 0x1
0949 00da | | Load_Top At_Offset_2
094a 01d6 | | Execute Vector,Field_Write
094b 6004 |` | Indirect_Literal Discrete,0x950,{0x00000000, 0x00008131}
094c e00c | | Load 0x0,0xc
094d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
094e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
094f 0000 | | .XXX[0x1]
0950 0000 0000 | | .LITERAL {0x00000000, 0x00008131}
0954 0000 0000 | | .LITERAL {0x00000000, 0x00008130}
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 0963 | c | .CONST 0x0963 ; Address of begin
0959 0974 | t | .CONST 0x0974 ; Address of exception handler
095a 0003 | | .CONST 0x0003 ; Number of locals
095b INIT_0958:
095b 480a |H | Short_Literal 0xa
095c 4820 |H | Short_Literal 0x20
095d e9ff | | Load 0x4,-0x1
095e e00a | | Load 0x0,0xa
095f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0960 e00a | | Load 0x0,0xa
0961 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0962 00e3 | | Load_Encached Natural_Cache
0963 BODY_0958:
0963 00d9 | | Load_Top At_Offset_1
0964 01dc | | Execute Vector,Last
0965 00da | | Load_Top At_Offset_2
0966 01dc | | Execute Vector,Last
0967 00db | | Load_Top At_Offset_3
0968 01cf | | Execute Vector,Slice_Read
0969 00e2 | | Load_Encached Integer_Cache
096a 00e0 | | Load_Encached Standard_Cache
096b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
096c 0059 | Y | Store_Top Discrete,At_Offset_1
096d 00d8 | | Load_Top At_Offset_0
096e 00d9 | | Load_Top At_Offset_1
096f 09ff | | Execute_Immediate Binary_Scale,-0x1
0970 0901 | | Execute_Immediate Binary_Scale,0x1
0971 027e | ~ | Execute Discrete,Not_Equal
0972 a9fd | | Store_Unchecked 0x4,-0x3
0973 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0974 TRAP_0958:
0974 010e | | Execute Exception,Is_Constraint_Error
0975 680a |h | Jump_Zero 0x980
0976 e00d | | Load 0x0,0xd
0977 180e | | Execute Package,Field_Execute,Field_Number 0xe
0978 4806 |H | Short_Literal 0x6
0979 0092 09d2 | | Action Push_String_Extended,0x9d2 ; "Unexpected output found during compilation success check"
097b e00e | | Load 0x0,0xe
097c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
097d 4801 |H | Short_Literal 0x1
097e a9fd | | Store_Unchecked 0x4,-0x3
097f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0980 0100 | | Execute Exception,Raise
0981 0000 0000 | | .BLANK 0000[0x7]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 098b | | .CONST 0x098b ; Address of begin
0989 0004 | | .CONST 0x0004 ; Address of exception handler
098a 0001 | | .CONST 0x0001 ; Number of locals
098b BODY_0988:
098b INIT_0988:
098b 08e2 | | Execute_Immediate Raise,0xe2
098c 0000 0000 | | .BLANK 0000[0x4]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993 | | .CONST 0x0993 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0001 | | .CONST 0x0001 ; Number of locals
0993 BODY_0990:
0993 INIT_0990:
0993 08e2 | | Execute_Immediate Raise,0xe2
0994 0000 0000 | | .BLANK 0000[0x4]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099b | | .CONST 0x099b ; Address of begin
0999 09b2 | | .CONST 0x09b2 ; Address of exception handler
099a 0001 | | .CONST 0x0001 ; Number of locals
099b BODY_0998:
099b INIT_0998:
099b e00d | | Load 0x0,0xd
099c 180e | | Execute Package,Field_Execute,Field_Number 0xe
099d 4801 |H | Short_Literal 0x1
099e 0092 09d1 | | Action Push_String_Extended,0x9d1 ; "Resetting temp file"
09a0 e00e | | Load 0x0,0xe
09a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09a2 e604 | | Load 0x3,0x4
09a3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09a4 c402 | | Store 0x2,0x2
09a5 e402 | | Load 0x2,0x2
09a6 4801 |H | Short_Literal 0x1
09a7 e005 | | Load 0x0,0x5
09a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09a9 c402 | | Store 0x2,0x2
09aa e00d | | Load 0x0,0xd
09ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
09ac 4801 |H | Short_Literal 0x1
09ad 0092 09d3 | | Action Push_String_Extended,0x9d3 ; "Reusing existing temporary file."
09af e00e | | Load 0x0,0xe
09b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b2 TRAP_0998:
09b2 0007 | | Action Break_Optional
09b3 4800 |H | Short_Literal 0x0
09b4 e604 | | Load 0x3,0x4
09b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
09b6 4800 |H | Short_Literal 0x0
09b7 e602 | | Load 0x3,0x2
09b8 e604 | | Load 0x3,0x4
09b9 e21d | | Load 0x1,0x1d
09ba 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09bb 840e | | Call 0x2,0xe
09bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09bd ; --------------------------------------------------------------------------------------
09bd ; STRING TABLE
09bd ; --------------------------------------------------------------------------------------
09bd 0030 | 0 | .STRTAB 0x0030->0x09d5 ; "Destroying invalid connection"
09be 004b | K | .STRTAB 0x004b->0x09e3 ; "Set_Remote_Directory"
09bf 005d | ] | .STRTAB 0x005d->0x09ed ; "Reusing existing directory."
09c0 0076 | v | .STRTAB 0x0076->0x09fb ; "Put"
09c1 0077 | w | .STRTAB 0x0077->0x09fc ; "Get"
09c2 0078 | x | .STRTAB 0x0078->0x09fe ; "Execute_Command"
09c3 0085 | | .STRTAB 0x0085->0x0a05 ; "VMS"
09c4 0086 | | .STRTAB 0x0086->0x0a07 ; "Unit_Update_Time"
09c5 0094 | | .STRTAB 0x0094->0x0a0f ; "Successfully determined the existence of remote file \x22"
09c6 00c8 | | .STRTAB 0x00c8->0x0a2a ; "\x22."
09c7 00c8 | | .STRTAB 0x00c8->0x0a2b ; "Initialized Job_Record for job"
09c8 00e4 | | .STRTAB 0x00e4->0x0a3a ; ", task"
09c9 00e8 | | .STRTAB 0x00e8->0x0a3d ; "Finalizing Job_Record"
09ca 00fb | | .STRTAB 0x00fb->0x0a47 ; "Deleting temporary file for process"
09cb 011c | | .STRTAB 0x011c->0x0a59 ; "write sys$output $status"
09cc 0132 | 2 | .STRTAB 0x0132->0x0a65 ; "!Machine.Temporary.Rcf_Output_"
09cd 014e | N | .STRTAB 0x014e->0x0a74 ; "Created temp file "
09ce 015e | ^ | .STRTAB 0x015e->0x0a7d ; "Created temporary file "
09cf 0173 | s | .STRTAB 0x0173->0x0a88 ; "Close temp file"
09d0 0180 | | .STRTAB 0x0180->0x0a90 ; "Reset temp file"
09d1 018d | | .STRTAB 0x018d->0x0a97 ; "Resetting temp file"
09d2 019e | | .STRTAB 0x019e->0x0aa1 ; "Unexpected output found during compilation success check"
09d3 01d4 | | .STRTAB 0x01d4->0x0abd ; "Reusing existing temporary file."
09d4 01f2 | | .STREND 0x01f2->0x0acd
09d5 4465 7374 |Dest| .STRTAB_STRINGS
0acd 0000 0000 | | .XXX[0x3]
0acf 0000 | |
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; Debug Table
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2df7,0x0000,0x0001,0x0000
0ad6 1000 | | .XXX[0x1]
0ad7 0000 0000 | | .BLANK 0000[0x1a]
0af1 0008 0002 | | .XXX[0x1f]
0af3 fe9a 1701 | |
0af5 7972 0000 |yr |
0af7 37a4 a92e |7 .|
0af9 0200 2000 | |
0afb 1320 0000 | |
0afd 03d7 6000 | ` |
0aff 0560 0000 | ` |
0b01 08e0 0500 | |
0b03 0000 a200 | |
0b05 0000 4000 | @ |
0b07 0002 2000 | |
0b09 0000 0100 | |
0b0b 0000 0a40 | @|
0b0d 0029 0107 | ) |
0b0f 4200 |B |
0b10 0000 0000 | | .BLANK 0000[0x1a]
0b2a 0001 0000 | | .XXX[0x3]
0b2c 5fd3 |_ |
0b2d 0000 0000 | | .BLANK 0000[0xd]
0b3a 0004 00a0 | | .XXX[0xc]
0b3c 0000 0000 | |
0b3e 0000 0800 | |
0b40 0000 4400 | D |
0b42 0000 0020 | |
0b44 0000 0140 | @|
0b46 0000 0000 | | .BLANK 0000[0x2e]
0b74 8014 0000 | | .XXX[0xb]
0b76 0000 0000 | |
0b78 0100 0000 | |
0b7a 0880 0000 | |
0b7c 0004 0000 | |
0b7e 0028 | ( |
0b7f 0000 0000 | | .BLANK 0000[0x2e]
0bad 1002 8000 | | .XXX[0xb]
0baf 0000 0000 | |
0bb1 0020 0000 | |
0bb3 0110 0000 | |
0bb5 0000 8000 | |
0bb7 0005 | |
0bb8 0000 0000 | | .BLANK 0000[0x48]