|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0ce0 | | .CONST 0x0ce0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0083 | | .CONST 0x0083 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0033 | 3 | .CONST 0x0033 ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
000f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0011 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0013 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0015 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0017 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
0019 00bf | | Action Accept_Activation
001a 4800 |H | Short_Literal 0x0
001b 4800 |H | Short_Literal 0x0
001c 4800 |H | Short_Literal 0x0
001d e001 | | Load 0x0,0x1
001e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
001f e001 | | Load 0x0,0x1
0020 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0021 e001 | | Load 0x0,0x1
0022 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0023 0092 0a6e | n| Action Push_String_Extended,0xa6e ; "ARCHIVE"
0025 e002 | | Load 0x0,0x2
0026 180f | | Execute Package,Field_Execute,Field_Number 0xf
0027 e003 | | Load 0x0,0x3
0028 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0029 011e | | Execute Any,Convert
002a e004 | | Load 0x0,0x4
002b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
002c 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
002e 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call
0030 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
0032 029d 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call
0034 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call
0036 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
0038 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
003a 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
003c 4800 |H | Short_Literal 0x0
003d e005 | | Load 0x0,0x5
003e 02a0 | | Declare_Subprogram Null_Subprogram
003f 038e | | Declare_Type Package,Defined
0040 0387 | | Declare_Variable Package
0041 e006 | | Load 0x0,0x6
0042 e007 | | Load 0x0,0x7
0043 e008 | | Load 0x0,0x8
0044 e009 | | Load 0x0,0x9
0045 e00a | | Load 0x0,0xa
0046 e00b | | Load 0x0,0xb
0047 e00c | | Load 0x0,0xc
0048 e00d | | Load 0x0,0xd
0049 e00e | | Load 0x0,0xe
004a 4809 |H | Short_Literal 0x9
004b e220 | | Load 0x1,0x20
004c 020e | | Execute Module,Augment_Imports
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
0051 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
0053 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
0055 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
0057 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
0059 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
005b 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call
005d 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call
005f 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
0061 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call
0063 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call
0065 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
0067 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call
0069 029d 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call
006b 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call
006d 029d 081b | | Declare_Subprogram INIT_0818,For_Outer_Call
006f 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
0071 029d 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call
0073 029d 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call
0075 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0076 00c7 | | Action Elaborate_Subprogram
0077 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0078 00c7 | | Action Elaborate_Subprogram
0079 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007a 00c7 | | Action Elaborate_Subprogram
007b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007c 00c7 | | Action Elaborate_Subprogram
007d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007e 00c7 | | Action Elaborate_Subprogram
007f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0080 00c7 | | Action Elaborate_Subprogram
0081 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0082 00c7 | | Action Elaborate_Subprogram
0083 BODY_0008:
0083 00bc | | Action Signal_Activated
0084 00bb | | Action Signal_Completion
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00a0 | | .CONST 0x00a0 ; Address of begin
0089 00e7 | | .CONST 0x00e7 ; Address of exception handler
008a 0006 | | .CONST 0x0006 ; Number of locals
008b INIT_0088:
008b e00f | | Load 0x0,0xf
008c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 e010 | | Load 0x0,0x10
0091 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0092 02c7 | | Declare_Variable Any
0093 00d8 | | Load_Top At_Offset_0
0094 1c00 | | Execute_Immediate Run_Utility,0x0
0095 4801 |H | Short_Literal 0x1
0096 e5ff | | Load 0x2,-0x1
0097 e00a | | Load 0x0,0xa
0098 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0099 00e1 | | Load_Encached Boolean_Cache
009a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009b e010 | | Load 0x0,0x10
009c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009d 02c7 | | Declare_Variable Any
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 BODY_0088:
00a0 e5fd | | Load 0x2,-0x3
00a1 e402 | | Load 0x2,0x2
00a2 e404 | | Load 0x2,0x4
00a3 8221 | ! | Call 0x1,0x21
00a4 c402 | | Store 0x2,0x2
00a5 c5fd | | Store 0x2,-0x3
00a6 e5ff | | Load 0x2,-0x1
00a7 e404 | | Load 0x2,0x4
00a8 0092 0a6f | o| Action Push_String_Extended,0xa6f ; "Update_Time"
00aa 821d | | Call 0x1,0x1d
00ab e5fd | | Load 0x2,-0x3
00ac 0120 | | Execute Any,Is_Value
00ad 6803 |h | Jump_Zero 0xb1
00ae e00f | | Load 0x0,0xf
00af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b0 7801 |x | Jump 0xb2
00b1 e5fd | | Load 0x2,-0x3
00b2 e5fe | | Load 0x2,-0x2
00b3 0120 | | Execute Any,Is_Value
00b4 6803 |h | Jump_Zero 0xb8
00b5 e011 | | Load 0x0,0x11
00b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b7 7801 |x | Jump 0xb9
00b8 e5fe | | Load 0x2,-0x2
00b9 00ea | | Load_Encached Null_String_Cache
00ba e402 | | Load 0x2,0x2
00bb 4801 |H | Short_Literal 0x1
00bc e402 | | Load 0x2,0x2
00bd e00f | | Load 0x0,0xf
00be 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00bf e5ff | | Load 0x2,-0x1
00c0 e220 | | Load 0x1,0x20
00c1 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c2 e00f | | Load 0x0,0xf
00c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00c4 c5fe | | Store 0x2,-0x2
00c5 c5fd | | Store 0x2,-0x3
00c6 4801 |H | Short_Literal 0x1
00c7 e5fd | | Load 0x2,-0x3
00c8 e010 | | Load 0x0,0x10
00c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ca 6815 |h | Jump_Zero 0xe0
00cb e001 | | Load 0x0,0x1
00cc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00cd c5fe | | Store 0x2,-0x2
00ce 00e1 | | Load_Encached Boolean_Cache
00cf e406 | | Load 0x2,0x6
00d0 e402 | | Load 0x2,0x2
00d1 e5ff | | Load 0x2,-0x1
00d2 822b | + | Call 0x1,0x2b
00d3 c406 | | Store 0x2,0x6
00d4 c405 | | Store 0x2,0x5
00d5 4801 |H | Short_Literal 0x1
00d6 e406 | | Load 0x2,0x6
00d7 e010 | | Load 0x0,0x10
00d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d9 7006 |p | Jump_Nonzero 0xe0
00da e405 | | Load 0x2,0x5
00db 7004 |p | Jump_Nonzero 0xe0
00dc e5fd | | Load 0x2,-0x3
00dd e010 | | Load 0x0,0x10
00de 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00df c5fd | | Store 0x2,-0x3
00e0 e403 | | Load 0x2,0x3
00e1 e402 | | Load 0x2,0x2
00e2 e404 | | Load 0x2,0x4
00e3 8222 | " | Call 0x1,0x22
00e4 c402 | | Store 0x2,0x2
00e5 c403 | | Store 0x2,0x3
00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e7 TRAP_0088:
00e7 e012 | | Load 0x0,0x12
00e8 010f | | Execute Exception,Equal
00e9 680a |h | Jump_Zero 0xf4
00ea e001 | | Load 0x0,0x1
00eb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00ec c5fe | | Store 0x2,-0x2
00ed e403 | | Load 0x2,0x3
00ee e402 | | Load 0x2,0x2
00ef e404 | | Load 0x2,0x4
00f0 8222 | " | Call 0x1,0x22
00f1 c402 | | Store 0x2,0x2
00f2 c403 | | Store 0x2,0x3
00f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f4 e008 | | Load 0x0,0x8
00f5 010f | | Execute Exception,Equal
00f6 6814 |h | Jump_Zero 0x10b
00f7 e5fd | | Load 0x2,-0x3
00f8 4803 |H | Short_Literal 0x3
00f9 e402 | | Load 0x2,0x2
00fa e00f | | Load 0x0,0xf
00fb 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00fc 0092 0a70 | p| Action Push_String_Extended,0xa70 ; "Encountered unsupported platform"
00fe e010 | | Load 0x0,0x10
00ff 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0100 c5fd | | Store 0x2,-0x3
0101 e001 | | Load 0x0,0x1
0102 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0103 c5fe | | Store 0x2,-0x2
0104 e403 | | Load 0x2,0x3
0105 e402 | | Load 0x2,0x2
0106 e404 | | Load 0x2,0x4
0107 8222 | " | Call 0x1,0x22
0108 c402 | | Store 0x2,0x2
0109 c403 | | Store 0x2,0x3
010a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010b e00c | | Load 0x0,0xc
010c 010f | | Execute Exception,Equal
010d 6815 |h | Jump_Zero 0x123
010e e5fd | | Load 0x2,-0x3
010f 4803 |H | Short_Literal 0x3
0110 4801 |H | Short_Literal 0x1
0111 e5ff | | Load 0x2,-0x1
0112 e00a | | Load 0x0,0xa
0113 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0114 0092 0a71 | q| Action Push_String_Extended,0xa71 ; "Encountered ill-formed name in gateway"
0116 e010 | | Load 0x0,0x10
0117 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0118 c5fd | | Store 0x2,-0x3
0119 e001 | | Load 0x0,0x1
011a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
011b c5fe | | Store 0x2,-0x2
011c e403 | | Load 0x2,0x3
011d e402 | | Load 0x2,0x2
011e e404 | | Load 0x2,0x4
011f 8222 | " | Call 0x1,0x22
0120 c402 | | Store 0x2,0x2
0121 c403 | | Store 0x2,0x3
0122 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0123 e001 | | Load 0x0,0x1
0124 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0125 c5fe | | Store 0x2,-0x2
0126 e5fd | | Load 0x2,-0x3
0127 0092 0a72 | r| Action Push_String_Extended,0xa72 ; "update_time"
0129 8225 | % | Call 0x1,0x25
012a c5fd | | Store 0x2,-0x3
012b e403 | | Load 0x2,0x3
012c e402 | | Load 0x2,0x2
012d e404 | | Load 0x2,0x4
012e 8222 | " | Call 0x1,0x22
012f c402 | | Store 0x2,0x2
0130 c403 | | Store 0x2,0x3
0131 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0146 | F | .CONST 0x0146 ; Address of begin
0139 0162 | b | .CONST 0x0162 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b e010 | | Load 0x0,0x10
013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013d 02c7 | | Declare_Variable Any
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 e011 | | Load 0x0,0x11
0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0142 02c7 | | Declare_Variable Any
0143 e001 | | Load 0x0,0x1
0144 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0145 a403 | | Store_Unchecked 0x2,0x3
0146 BODY_0138:
0146 e402 | | Load 0x2,0x2
0147 e403 | | Load 0x2,0x3
0148 0120 | | Execute Any,Is_Value
0149 6803 |h | Jump_Zero 0x14d
014a e011 | | Load 0x0,0x11
014b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014c 7801 |x | Jump 0x14e
014d e403 | | Load 0x2,0x3
014e e5ff | | Load 0x2,-0x1
014f 820d | | Call 0x1,0xd
0150 c403 | | Store 0x2,0x3
0151 c402 | | Store 0x2,0x2
0152 4801 |H | Short_Literal 0x1
0153 e402 | | Load 0x2,0x2
0154 e010 | | Load 0x0,0x10
0155 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0156 6802 |h | Jump_Zero 0x159
0157 e214 | | Load 0x1,0x14
0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0159 4800 |H | Short_Literal 0x0
015a 4800 |H | Short_Literal 0x0
015b 4800 |H | Short_Literal 0x0
015c e403 | | Load 0x2,0x3
015d e001 | | Load 0x0,0x1
015e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
015f e001 | | Load 0x0,0x1
0160 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0162 TRAP_0138:
0162 0007 | | Action Break_Optional
0163 e214 | | Load 0x1,0x14
0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 017a | z | .CONST 0x017a ; Address of begin
0169 019f | | .CONST 0x019f ; Address of exception handler
016a 0005 | | .CONST 0x0005 ; Number of locals
016b INIT_0168:
016b e00f | | Load 0x0,0xf
016c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016d 02c7 | | Declare_Variable Any
016e 00d8 | | Load_Top At_Offset_0
016f 1c00 | | Execute_Immediate Run_Utility,0x0
0170 4801 |H | Short_Literal 0x1
0171 e5ff | | Load 0x2,-0x1
0172 e00a | | Load 0x0,0xa
0173 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0174 00e1 | | Load_Encached Boolean_Cache
0175 e00f | | Load 0x0,0xf
0176 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0177 02c7 | | Declare_Variable Any
0178 00d8 | | Load_Top At_Offset_0
0179 1c00 | | Execute_Immediate Run_Utility,0x0
017a BODY_0168:
017a 00d8 | | Load_Top At_Offset_0
017b e402 | | Load 0x2,0x2
017c e403 | | Load 0x2,0x3
017d 8221 | ! | Call 0x1,0x21
017e c402 | | Store 0x2,0x2
017f c405 | | Store 0x2,0x5
0180 00e1 | | Load_Encached Boolean_Cache
0181 e405 | | Load 0x2,0x5
0182 e402 | | Load 0x2,0x2
0183 e5ff | | Load 0x2,-0x1
0184 822b | + | Call 0x1,0x2b
0185 c405 | | Store 0x2,0x5
0186 c404 | | Store 0x2,0x4
0187 4801 |H | Short_Literal 0x1
0188 e405 | | Load 0x2,0x5
0189 e010 | | Load 0x0,0x10
018a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
018b 7002 |p | Jump_Nonzero 0x18e
018c e404 | | Load 0x2,0x4
018d 7801 |x | Jump 0x18f
018e 4800 |H | Short_Literal 0x0
018f a404 | | Store_Unchecked 0x2,0x4
0190 00d8 | | Load_Top At_Offset_0
0191 e402 | | Load 0x2,0x2
0192 e403 | | Load 0x2,0x3
0193 8222 | " | Call 0x1,0x22
0194 c402 | | Store 0x2,0x2
0195 c405 | | Store 0x2,0x5
0196 4801 |H | Short_Literal 0x1
0197 e405 | | Load 0x2,0x5
0198 e010 | | Load 0x0,0x10
0199 1817 | | Execute Package,Field_Execute,Field_Number 0x17
019a 7002 |p | Jump_Nonzero 0x19d
019b e404 | | Load 0x2,0x4
019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019d 4800 |H | Short_Literal 0x0
019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019f TRAP_0168:
019f 0007 | | Action Break_Optional
01a0 4800 |H | Short_Literal 0x0
01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b9 | | .CONST 0x01b9 ; Address of begin
01a9 01fb | | .CONST 0x01fb ; Address of exception handler
01aa 0004 | | .CONST 0x0004 ; Number of locals
01ab INIT_01a8:
01ab e00f | | Load 0x0,0xf
01ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ad 02c7 | | Declare_Variable Any
01ae 00d8 | | Load_Top At_Offset_0
01af 1c00 | | Execute_Immediate Run_Utility,0x0
01b0 4801 |H | Short_Literal 0x1
01b1 e5ff | | Load 0x2,-0x1
01b2 e00a | | Load 0x0,0xa
01b3 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
01b4 e00f | | Load 0x0,0xf
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 02c7 | | Declare_Variable Any
01b7 00d8 | | Load_Top At_Offset_0
01b8 1c00 | | Execute_Immediate Run_Utility,0x0
01b9 BODY_01a8:
01b9 e5fe | | Load 0x2,-0x2
01ba e402 | | Load 0x2,0x2
01bb e403 | | Load 0x2,0x3
01bc 8221 | ! | Call 0x1,0x21
01bd c402 | | Store 0x2,0x2
01be c5fe | | Store 0x2,-0x2
01bf e5ff | | Load 0x2,-0x1
01c0 e403 | | Load 0x2,0x3
01c1 0092 0a73 | s| Action Push_String_Extended,0xa73 ; "Upload"
01c3 821d | | Call 0x1,0x1d
01c4 e5fe | | Load 0x2,-0x2
01c5 e402 | | Load 0x2,0x2
01c6 4801 |H | Short_Literal 0x1
01c7 e5ff | | Load 0x2,-0x1
01c8 e00a | | Load 0x0,0xa
01c9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01ca 4801 |H | Short_Literal 0x1
01cb e5ff | | Load 0x2,-0x1
01cc e00a | | Load 0x0,0xa
01cd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01ce 4801 |H | Short_Literal 0x1
01cf e402 | | Load 0x2,0x2
01d0 e00f | | Load 0x0,0xf
01d1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01d2 e5ff | | Load 0x2,-0x1
01d3 e220 | | Load 0x1,0x20
01d4 180d | | Execute Package,Field_Execute,Field_Number 0xd
01d5 8233 | 3 | Call 0x1,0x33
01d6 c402 | | Store 0x2,0x2
01d7 c5fe | | Store 0x2,-0x2
01d8 e5fe | | Load 0x2,-0x2
01d9 e403 | | Load 0x2,0x3
01da e5ff | | Load 0x2,-0x1
01db 0092 0a74 | t| Action Push_String_Extended,0xa74 ; "Get"
01dd 821a | | Call 0x1,0x1a
01de c5fe | | Store 0x2,-0x2
01df 4801 |H | Short_Literal 0x1
01e0 e5ff | | Load 0x2,-0x1
01e1 e00a | | Load 0x0,0xa
01e2 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01e3 e5ff | | Load 0x2,-0x1
01e4 4801 |H | Short_Literal 0x1
01e5 e5ff | | Load 0x2,-0x1
01e6 e00a | | Load 0x0,0xa
01e7 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01e8 0092 0a75 | u| Action Push_String_Extended,0xa75 ; "Accept_Changes"
01ea 821e | | Call 0x1,0x1e
01eb 00d8 | | Load_Top At_Offset_0
01ec e402 | | Load 0x2,0x2
01ed e403 | | Load 0x2,0x3
01ee 8222 | " | Call 0x1,0x22
01ef c402 | | Store 0x2,0x2
01f0 c404 | | Store 0x2,0x4
01f1 4801 |H | Short_Literal 0x1
01f2 e5fe | | Load 0x2,-0x2
01f3 e010 | | Load 0x0,0x10
01f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f5 7004 |p | Jump_Nonzero 0x1fa
01f6 e5fe | | Load 0x2,-0x2
01f7 e5ff | | Load 0x2,-0x1
01f8 822c | , | Call 0x1,0x2c
01f9 c5fe | | Store 0x2,-0x2
01fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01fb TRAP_01a8:
01fb e012 | | Load 0x0,0x12
01fc 010f | | Execute Exception,Equal
01fd 6801 |h | Jump_Zero 0x1ff
01fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ff e008 | | Load 0x0,0x8
0200 010f | | Execute Exception,Equal
0201 6811 |h | Jump_Zero 0x213
0202 e5fe | | Load 0x2,-0x2
0203 4803 |H | Short_Literal 0x3
0204 e402 | | Load 0x2,0x2
0205 e00f | | Load 0x0,0xf
0206 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0207 0092 0a70 | p| Action Push_String_Extended,0xa70 ; "Encountered unsupported platform"
0209 e010 | | Load 0x0,0x10
020a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020b c5fe | | Store 0x2,-0x2
020c e404 | | Load 0x2,0x4
020d e402 | | Load 0x2,0x2
020e e403 | | Load 0x2,0x3
020f 8222 | " | Call 0x1,0x22
0210 c402 | | Store 0x2,0x2
0211 c404 | | Store 0x2,0x4
0212 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0213 e00c | | Load 0x0,0xc
0214 010f | | Execute Exception,Equal
0215 6812 |h | Jump_Zero 0x228
0216 e5fe | | Load 0x2,-0x2
0217 4803 |H | Short_Literal 0x3
0218 4801 |H | Short_Literal 0x1
0219 e5ff | | Load 0x2,-0x1
021a e00a | | Load 0x0,0xa
021b 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
021c 0092 0a71 | q| Action Push_String_Extended,0xa71 ; "Encountered ill-formed name in gateway"
021e e010 | | Load 0x0,0x10
021f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0220 c5fe | | Store 0x2,-0x2
0221 e404 | | Load 0x2,0x4
0222 e402 | | Load 0x2,0x2
0223 e403 | | Load 0x2,0x3
0224 8222 | " | Call 0x1,0x22
0225 c402 | | Store 0x2,0x2
0226 c404 | | Store 0x2,0x4
0227 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0228 e404 | | Load 0x2,0x4
0229 e402 | | Load 0x2,0x2
022a e403 | | Load 0x2,0x3
022b 8222 | " | Call 0x1,0x22
022c c402 | | Store 0x2,0x2
022d c404 | | Store 0x2,0x4
022e e5fe | | Load 0x2,-0x2
022f 0092 0a75 | u| Action Push_String_Extended,0xa75 ; "Accept_Changes"
0231 8225 | % | Call 0x1,0x25
0232 c5fe | | Store 0x2,-0x2
0233 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024b | K | .CONST 0x024b ; Address of begin
0239 02df | | .CONST 0x02df ; Address of exception handler
023a 0005 | | .CONST 0x0005 ; Number of locals
023b INIT_0238:
023b e00f | | Load 0x0,0xf
023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023d 02c7 | | Declare_Variable Any
023e 00d8 | | Load_Top At_Offset_0
023f 1c00 | | Execute_Immediate Run_Utility,0x0
0240 e00f | | Load 0x0,0xf
0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0242 02c7 | | Declare_Variable Any
0243 00d8 | | Load_Top At_Offset_0
0244 1c00 | | Execute_Immediate Run_Utility,0x0
0245 4801 |H | Short_Literal 0x1
0246 e5ff | | Load 0x2,-0x1
0247 e00a | | Load 0x0,0xa
0248 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0249 00e1 | | Load_Encached Boolean_Cache
024a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
024b BODY_0238:
024b 4801 |H | Short_Literal 0x1
024c e5ff | | Load 0x2,-0x1
024d e00a | | Load 0x0,0xa
024e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
024f 0b16 | | Execute_Immediate Case_Compare,0x16
0250 704d |pM | Jump_Nonzero 0x29e
0251 e00d | | Load 0x0,0xd
0252 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0253 0260 | ` | Execute Discrete,In_Type
0254 7054 |pT | Jump_Nonzero 0x2a9
0255 e5fe | | Load 0x2,-0x2
0256 e402 | | Load 0x2,0x2
0257 e404 | | Load 0x2,0x4
0258 8221 | ! | Call 0x1,0x21
0259 c402 | | Store 0x2,0x2
025a c5fe | | Store 0x2,-0x2
025b e5ff | | Load 0x2,-0x1
025c e404 | | Load 0x2,0x4
025d 0092 0a76 | v| Action Push_String_Extended,0xa76 ; "Download"
025f 821d | | Call 0x1,0x1d
0260 e5fe | | Load 0x2,-0x2
0261 e402 | | Load 0x2,0x2
0262 4801 |H | Short_Literal 0x1
0263 e5ff | | Load 0x2,-0x1
0264 e00a | | Load 0x0,0xa
0265 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0266 4801 |H | Short_Literal 0x1
0267 e402 | | Load 0x2,0x2
0268 e00f | | Load 0x0,0xf
0269 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
026a e5ff | | Load 0x2,-0x1
026b e220 | | Load 0x1,0x20
026c 180e | | Execute Package,Field_Execute,Field_Number 0xe
026d 4801 |H | Short_Literal 0x1
026e e402 | | Load 0x2,0x2
026f e00f | | Load 0x0,0xf
0270 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0271 e5ff | | Load 0x2,-0x1
0272 e220 | | Load 0x1,0x20
0273 180d | | Execute Package,Field_Execute,Field_Number 0xd
0274 4801 |H | Short_Literal 0x1
0275 e5ff | | Load 0x2,-0x1
0276 e00a | | Load 0x0,0xa
0277 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0278 8232 | 2 | Call 0x1,0x32
0279 c402 | | Store 0x2,0x2
027a c5fe | | Store 0x2,-0x2
027b e5fe | | Load 0x2,-0x2
027c e404 | | Load 0x2,0x4
027d e5ff | | Load 0x2,-0x1
027e 0092 0a77 | w| Action Push_String_Extended,0xa77 ; "Put"
0280 821a | | Call 0x1,0x1a
0281 c5fe | | Store 0x2,-0x2
0282 4801 |H | Short_Literal 0x1
0283 e5ff | | Load 0x2,-0x1
0284 e00a | | Load 0x0,0xa
0285 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0286 e5ff | | Load 0x2,-0x1
0287 4801 |H | Short_Literal 0x1
0288 e5ff | | Load 0x2,-0x1
0289 e00a | | Load 0x0,0xa
028a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
028b 0092 0a78 | x| Action Push_String_Extended,0xa78 ; "Put_Changes"
028d 821e | | Call 0x1,0x1e
028e e403 | | Load 0x2,0x3
028f e402 | | Load 0x2,0x2
0290 e404 | | Load 0x2,0x4
0291 8222 | " | Call 0x1,0x22
0292 c402 | | Store 0x2,0x2
0293 c403 | | Store 0x2,0x3
0294 4801 |H | Short_Literal 0x1
0295 e5fe | | Load 0x2,-0x2
0296 e010 | | Load 0x0,0x10
0297 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0298 7004 |p | Jump_Nonzero 0x29d
0299 e5fe | | Load 0x2,-0x2
029a e5ff | | Load 0x2,-0x1
029b 822c | , | Call 0x1,0x2c
029c c5fe | | Store 0x2,-0x2
029d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029e 00d1 | | Pop_Control Pop_Count_1
029f e5fe | | Load 0x2,-0x2
02a0 4803 |H | Short_Literal 0x3
02a1 0092 0a79 | y| Action Push_String_Extended,0xa79 ; "Unknown icon type"
02a3 0092 0a7a | z| Action Push_String_Extended,0xa7a ; "Put_Changes failed"
02a5 e010 | | Load 0x0,0x10
02a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02a7 c5fe | | Store 0x2,-0x2
02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a9 e5fe | | Load 0x2,-0x2
02aa e402 | | Load 0x2,0x2
02ab e404 | | Load 0x2,0x4
02ac 8221 | ! | Call 0x1,0x21
02ad c402 | | Store 0x2,0x2
02ae c5fe | | Store 0x2,-0x2
02af 00e1 | | Load_Encached Boolean_Cache
02b0 e5fe | | Load 0x2,-0x2
02b1 e402 | | Load 0x2,0x2
02b2 e5ff | | Load 0x2,-0x1
02b3 822b | + | Call 0x1,0x2b
02b4 c5fe | | Store 0x2,-0x2
02b5 c405 | | Store 0x2,0x5
02b6 00d8 | | Load_Top At_Offset_0
02b7 7020 |p | Jump_Nonzero 0x2d8
02b8 e5ff | | Load 0x2,-0x1
02b9 e404 | | Load 0x2,0x4
02ba 0092 0a7b | {| Action Push_String_Extended,0xa7b ; "Directory not found: Create_Directory"
02bc 821d | | Call 0x1,0x1d
02bd e5fe | | Load 0x2,-0x2
02be 0120 | | Execute Any,Is_Value
02bf 6803 |h | Jump_Zero 0x2c3
02c0 e00f | | Load 0x0,0xf
02c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c2 7801 |x | Jump 0x2c4
02c3 e5fe | | Load 0x2,-0x2
02c4 00ea | | Load_Encached Null_String_Cache
02c5 4801 |H | Short_Literal 0x1
02c6 4801 |H | Short_Literal 0x1
02c7 e402 | | Load 0x2,0x2
02c8 e00f | | Load 0x0,0xf
02c9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02ca e5ff | | Load 0x2,-0x1
02cb e220 | | Load 0x1,0x20
02cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
02cd e402 | | Load 0x2,0x2
02ce e00f | | Load 0x0,0xf
02cf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02d0 c5fe | | Store 0x2,-0x2
02d1 e5fe | | Load 0x2,-0x2
02d2 e404 | | Load 0x2,0x4
02d3 e5ff | | Load 0x2,-0x1
02d4 0092 0a7c | || Action Push_String_Extended,0xa7c ; "Create_Directory"
02d6 821a | | Call 0x1,0x1a
02d7 c5fe | | Store 0x2,-0x2
02d8 e403 | | Load 0x2,0x3
02d9 e402 | | Load 0x2,0x2
02da e404 | | Load 0x2,0x4
02db 8222 | " | Call 0x1,0x22
02dc c402 | | Store 0x2,0x2
02dd c403 | | Store 0x2,0x3
02de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02df TRAP_0238:
02df e012 | | Load 0x0,0x12
02e0 010f | | Execute Exception,Equal
02e1 6801 |h | Jump_Zero 0x2e3
02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e3 e008 | | Load 0x0,0x8
02e4 010f | | Execute Exception,Equal
02e5 6811 |h | Jump_Zero 0x2f7
02e6 e5fe | | Load 0x2,-0x2
02e7 4803 |H | Short_Literal 0x3
02e8 e402 | | Load 0x2,0x2
02e9 e00f | | Load 0x0,0xf
02ea 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
02eb 0092 0a70 | p| Action Push_String_Extended,0xa70 ; "Encountered unsupported platform"
02ed e010 | | Load 0x0,0x10
02ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ef c5fe | | Store 0x2,-0x2
02f0 e403 | | Load 0x2,0x3
02f1 e402 | | Load 0x2,0x2
02f2 e404 | | Load 0x2,0x4
02f3 8222 | " | Call 0x1,0x22
02f4 c402 | | Store 0x2,0x2
02f5 c403 | | Store 0x2,0x3
02f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f7 e00c | | Load 0x0,0xc
02f8 010f | | Execute Exception,Equal
02f9 6812 |h | Jump_Zero 0x30c
02fa e5fe | | Load 0x2,-0x2
02fb 4803 |H | Short_Literal 0x3
02fc 4801 |H | Short_Literal 0x1
02fd e5ff | | Load 0x2,-0x1
02fe e00a | | Load 0x0,0xa
02ff 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0300 0092 0a71 | q| Action Push_String_Extended,0xa71 ; "Encountered ill-formed name in gateway"
0302 e010 | | Load 0x0,0x10
0303 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0304 c5fe | | Store 0x2,-0x2
0305 e403 | | Load 0x2,0x3
0306 e402 | | Load 0x2,0x2
0307 e404 | | Load 0x2,0x4
0308 8222 | " | Call 0x1,0x22
0309 c402 | | Store 0x2,0x2
030a c403 | | Store 0x2,0x3
030b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030c e403 | | Load 0x2,0x3
030d e402 | | Load 0x2,0x2
030e e404 | | Load 0x2,0x4
030f 8222 | " | Call 0x1,0x22
0310 c402 | | Store 0x2,0x2
0311 c403 | | Store 0x2,0x3
0312 e5fe | | Load 0x2,-0x2
0313 0092 0a78 | x| Action Push_String_Extended,0xa78 ; "Put_Changes"
0315 8225 | % | Call 0x1,0x25
0316 c5fe | | Store 0x2,-0x2
0317 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0336 | 6 | .CONST 0x0336 ; Address of begin
0319 03ba | | .CONST 0x03ba ; Address of exception handler
031a 0006 | | .CONST 0x0006 ; Number of locals
031b INIT_0318:
031b e013 | | Load 0x0,0x13
031c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031d 02c7 | | Declare_Variable Any
031e 4801 |H | Short_Literal 0x1
031f e5ff | | Load 0x2,-0x1
0320 e00a | | Load 0x0,0xa
0321 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0322 a402 | | Store_Unchecked 0x2,0x2
0323 e014 | | Load 0x0,0x14
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 02c7 | | Declare_Variable Any
0326 00d8 | | Load_Top At_Offset_0
0327 1c00 | | Execute_Immediate Run_Utility,0x0
0328 e00f | | Load 0x0,0xf
0329 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032a 02c7 | | Declare_Variable Any
032b 00d8 | | Load_Top At_Offset_0
032c 1c00 | | Execute_Immediate Run_Utility,0x0
032d 4801 |H | Short_Literal 0x1
032e e5ff | | Load 0x2,-0x1
032f e00a | | Load 0x0,0xa
0330 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0331 e00f | | Load 0x0,0xf
0332 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0333 02c7 | | Declare_Variable Any
0334 00d8 | | Load_Top At_Offset_0
0335 1c00 | | Execute_Immediate Run_Utility,0x0
0336 BODY_0318:
0336 e5fe | | Load 0x2,-0x2
0337 e404 | | Load 0x2,0x4
0338 e405 | | Load 0x2,0x5
0339 8221 | ! | Call 0x1,0x21
033a c404 | | Store 0x2,0x4
033b c5fe | | Store 0x2,-0x2
033c e404 | | Load 0x2,0x4
033d 8226 | & | Call 0x1,0x26
033e 7011 |p | Jump_Nonzero 0x350
033f e5fe | | Load 0x2,-0x2
0340 4803 |H | Short_Literal 0x3
0341 0092 0a7d | }| Action Push_String_Extended,0xa7d ; "remote archive procedures are not supported for "
0343 e404 | | Load 0x2,0x4
0344 e00f | | Load 0x0,0xf
0345 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0346 01cc | | Execute Vector,Catenate
0347 0092 0a7e | ~| Action Push_String_Extended,0xa7e ; " platforms"
0349 01cc | | Execute Vector,Catenate
034a 0092 0a7f | | Action Push_String_Extended,0xa7f ; "Can't save archive:"
034c e010 | | Load 0x0,0x10
034d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
034e c5fe | | Store 0x2,-0x2
034f 7863 |xc | Jump 0x3b3
0350 e5fe | | Load 0x2,-0x2
0351 e403 | | Load 0x2,0x3
0352 e402 | | Load 0x2,0x2
0353 e217 | | Load 0x1,0x17
0354 e216 | | Load 0x1,0x16
0355 e5ff | | Load 0x2,-0x1
0356 8218 | | Call 0x1,0x18
0357 822d | - | Call 0x1,0x2d
0358 c403 | | Store 0x2,0x3
0359 c5fe | | Store 0x2,-0x2
035a 4801 |H | Short_Literal 0x1
035b e5fe | | Load 0x2,-0x2
035c e010 | | Load 0x0,0x10
035d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
035e 704b |pK | Jump_Nonzero 0x3aa
035f e5ff | | Load 0x2,-0x1
0360 4801 |H | Short_Literal 0x1
0361 e5ff | | Load 0x2,-0x1
0362 e00a | | Load 0x0,0xa
0363 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0364 e405 | | Load 0x2,0x5
0365 0092 0a80 | | Action Push_String_Extended,0xa80 ; "Execute Create_Archive"
0367 821f | | Call 0x1,0x1f
0368 e5fe | | Load 0x2,-0x2
0369 0120 | | Execute Any,Is_Value
036a 6803 |h | Jump_Zero 0x36e
036b e00f | | Load 0x0,0xf
036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036d 7801 |x | Jump 0x36f
036e e5fe | | Load 0x2,-0x2
036f 6090 |` | Indirect_Literal Discrete,0x400,{0x00007fff, 0xffffffff}
0370 e404 | | Load 0x2,0x4
0371 4801 |H | Short_Literal 0x1
0372 e404 | | Load 0x2,0x4
0373 e00f | | Load 0x0,0xf
0374 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0375 e5ff | | Load 0x2,-0x1
0376 e220 | | Load 0x1,0x20
0377 180f | | Execute Package,Field_Execute,Field_Number 0xf
0378 e404 | | Load 0x2,0x4
0379 e5ff | | Load 0x2,-0x1
037a 8229 | ) | Call 0x1,0x29
037b e00f | | Load 0x0,0xf
037c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
037d c5fe | | Store 0x2,-0x2
037e e5fe | | Load 0x2,-0x2
037f e405 | | Load 0x2,0x5
0380 e5ff | | Load 0x2,-0x1
0381 0092 0a80 | | Action Push_String_Extended,0xa80 ; "Execute Create_Archive"
0383 821a | | Call 0x1,0x1a
0384 c5fe | | Store 0x2,-0x2
0385 4801 |H | Short_Literal 0x1
0386 e5fe | | Load 0x2,-0x2
0387 e010 | | Load 0x0,0x10
0388 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0389 7020 |p | Jump_Nonzero 0x3aa
038a e5ff | | Load 0x2,-0x1
038b e405 | | Load 0x2,0x5
038c 0092 0a81 | | Action Push_String_Extended,0xa81 ; "Get_Archive"
038e 821d | | Call 0x1,0x1d
038f e5fe | | Load 0x2,-0x2
0390 0120 | | Execute Any,Is_Value
0391 6803 |h | Jump_Zero 0x395
0392 e00f | | Load 0x0,0xf
0393 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0394 7801 |x | Jump 0x396
0395 e5fe | | Load 0x2,-0x2
0396 00ea | | Load_Encached Null_String_Cache
0397 e403 | | Load 0x2,0x3
0398 e404 | | Load 0x2,0x4
0399 4801 |H | Short_Literal 0x1
039a e404 | | Load 0x2,0x4
039b e00f | | Load 0x0,0xf
039c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
039d e5ff | | Load 0x2,-0x1
039e e220 | | Load 0x1,0x20
039f 180f | | Execute Package,Field_Execute,Field_Number 0xf
03a0 e00f | | Load 0x0,0xf
03a1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03a2 c5fe | | Store 0x2,-0x2
03a3 e5fe | | Load 0x2,-0x2
03a4 e405 | | Load 0x2,0x5
03a5 e5ff | | Load 0x2,-0x1
03a6 0092 0a81 | | Action Push_String_Extended,0xa81 ; "Get_Archive"
03a8 821a | | Call 0x1,0x1a
03a9 c5fe | | Store 0x2,-0x2
03aa e403 | | Load 0x2,0x3
03ab 4800 |H | Short_Literal 0x0
03ac e014 | | Load 0x0,0x14
03ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ae c403 | | Store 0x2,0x3
03af e403 | | Load 0x2,0x3
03b0 e014 | | Load 0x0,0x14
03b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b2 c403 | | Store 0x2,0x3
03b3 00d8 | | Load_Top At_Offset_0
03b4 e404 | | Load 0x2,0x4
03b5 e405 | | Load 0x2,0x5
03b6 8222 | " | Call 0x1,0x22
03b7 c404 | | Store 0x2,0x4
03b8 c406 | | Store 0x2,0x6
03b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ba TRAP_0318:
03ba e012 | | Load 0x0,0x12
03bb 010f | | Execute Exception,Equal
03bc 6801 |h | Jump_Zero 0x3be
03bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03be e008 | | Load 0x0,0x8
03bf 010f | | Execute Exception,Equal
03c0 6815 |h | Jump_Zero 0x3d6
03c1 e403 | | Load 0x2,0x3
03c2 e014 | | Load 0x0,0x14
03c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c4 c403 | | Store 0x2,0x3
03c5 e5fe | | Load 0x2,-0x2
03c6 4803 |H | Short_Literal 0x3
03c7 e404 | | Load 0x2,0x4
03c8 e00f | | Load 0x0,0xf
03c9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03ca 0092 0a70 | p| Action Push_String_Extended,0xa70 ; "Encountered unsupported platform"
03cc e010 | | Load 0x0,0x10
03cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03ce c5fe | | Store 0x2,-0x2
03cf e406 | | Load 0x2,0x6
03d0 e404 | | Load 0x2,0x4
03d1 e405 | | Load 0x2,0x5
03d2 8222 | " | Call 0x1,0x22
03d3 c404 | | Store 0x2,0x4
03d4 c406 | | Store 0x2,0x6
03d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d6 e00c | | Load 0x0,0xc
03d7 010f | | Execute Exception,Equal
03d8 6816 |h | Jump_Zero 0x3ef
03d9 e403 | | Load 0x2,0x3
03da e014 | | Load 0x0,0x14
03db 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03dc c403 | | Store 0x2,0x3
03dd e5fe | | Load 0x2,-0x2
03de 4803 |H | Short_Literal 0x3
03df 4801 |H | Short_Literal 0x1
03e0 e5ff | | Load 0x2,-0x1
03e1 e00a | | Load 0x0,0xa
03e2 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
03e3 0092 0a71 | q| Action Push_String_Extended,0xa71 ; "Encountered ill-formed name in gateway"
03e5 e010 | | Load 0x0,0x10
03e6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03e7 c5fe | | Store 0x2,-0x2
03e8 e406 | | Load 0x2,0x6
03e9 e404 | | Load 0x2,0x4
03ea e405 | | Load 0x2,0x5
03eb 8222 | " | Call 0x1,0x22
03ec c404 | | Store 0x2,0x4
03ed c406 | | Store 0x2,0x6
03ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ef e403 | | Load 0x2,0x3
03f0 e014 | | Load 0x0,0x14
03f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03f2 c403 | | Store 0x2,0x3
03f3 e406 | | Load 0x2,0x6
03f4 e404 | | Load 0x2,0x4
03f5 e405 | | Load 0x2,0x5
03f6 8222 | " | Call 0x1,0x22
03f7 c404 | | Store 0x2,0x4
03f8 c406 | | Store 0x2,0x6
03f9 e5fe | | Load 0x2,-0x2
03fa 0092 0a82 | | Action Push_String_Extended,0xa82 ; "Save_Archive"
03fc 8225 | % | Call 0x1,0x25
03fd c5fe | | Store 0x2,-0x2
03fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ff 0000 | | .XXX[0x1]
0400 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0404 0000 0000 | | .BLANK 0000[0x4]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0419 | | .CONST 0x0419 ; Address of begin
0409 048a | | .CONST 0x048a ; Address of exception handler
040a 0004 | | .CONST 0x0004 ; Number of locals
040b INIT_0408:
040b e00f | | Load 0x0,0xf
040c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040d 02c7 | | Declare_Variable Any
040e 00d8 | | Load_Top At_Offset_0
040f 1c00 | | Execute_Immediate Run_Utility,0x0
0410 4801 |H | Short_Literal 0x1
0411 e5ff | | Load 0x2,-0x1
0412 e00a | | Load 0x0,0xa
0413 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0414 e00f | | Load 0x0,0xf
0415 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0416 02c7 | | Declare_Variable Any
0417 00d8 | | Load_Top At_Offset_0
0418 1c00 | | Execute_Immediate Run_Utility,0x0
0419 BODY_0408:
0419 e5fe | | Load 0x2,-0x2
041a e402 | | Load 0x2,0x2
041b e403 | | Load 0x2,0x3
041c 8221 | ! | Call 0x1,0x21
041d c402 | | Store 0x2,0x2
041e c5fe | | Store 0x2,-0x2
041f e402 | | Load 0x2,0x2
0420 8226 | & | Call 0x1,0x26
0421 7011 |p | Jump_Nonzero 0x433
0422 e5fe | | Load 0x2,-0x2
0423 4803 |H | Short_Literal 0x3
0424 0092 0a7d | }| Action Push_String_Extended,0xa7d ; "remote archive procedures are not supported for "
0426 e402 | | Load 0x2,0x2
0427 e00f | | Load 0x0,0xf
0428 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0429 01cc | | Execute Vector,Catenate
042a 0092 0a7e | ~| Action Push_String_Extended,0xa7e ; " platforms"
042c 01cc | | Execute Vector,Catenate
042d 0092 0a7f | | Action Push_String_Extended,0xa7f ; "Can't save archive:"
042f e010 | | Load 0x0,0x10
0430 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0431 c5fe | | Store 0x2,-0x2
0432 7850 |xP | Jump 0x483
0433 e5ff | | Load 0x2,-0x1
0434 e403 | | Load 0x2,0x3
0435 0092 0a83 | | Action Push_String_Extended,0xa83 ; "Put_Archive"
0437 821d | | Call 0x1,0x1d
0438 e5fe | | Load 0x2,-0x2
0439 e402 | | Load 0x2,0x2
043a 4801 |H | Short_Literal 0x1
043b e5ff | | Load 0x2,-0x1
043c e00a | | Load 0x0,0xa
043d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
043e 4801 |H | Short_Literal 0x1
043f e402 | | Load 0x2,0x2
0440 e00f | | Load 0x0,0xf
0441 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0442 e5ff | | Load 0x2,-0x1
0443 e220 | | Load 0x1,0x20
0444 180e | | Execute Package,Field_Execute,Field_Number 0xe
0445 4801 |H | Short_Literal 0x1
0446 e402 | | Load 0x2,0x2
0447 e00f | | Load 0x0,0xf
0448 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0449 e5ff | | Load 0x2,-0x1
044a e220 | | Load 0x1,0x20
044b 180f | | Execute Package,Field_Execute,Field_Number 0xf
044c e5ff | | Load 0x2,-0x1
044d 8218 | | Call 0x1,0x18
044e 8232 | 2 | Call 0x1,0x32
044f c402 | | Store 0x2,0x2
0450 c5fe | | Store 0x2,-0x2
0451 e5fe | | Load 0x2,-0x2
0452 e403 | | Load 0x2,0x3
0453 e5ff | | Load 0x2,-0x1
0454 0092 0a83 | | Action Push_String_Extended,0xa83 ; "Put_Archive"
0456 821a | | Call 0x1,0x1a
0457 c5fe | | Store 0x2,-0x2
0458 4801 |H | Short_Literal 0x1
0459 e5fe | | Load 0x2,-0x2
045a e010 | | Load 0x0,0x10
045b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
045c 7026 |p& | Jump_Nonzero 0x483
045d e5ff | | Load 0x2,-0x1
045e 4801 |H | Short_Literal 0x1
045f e5ff | | Load 0x2,-0x1
0460 e00a | | Load 0x0,0xa
0461 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0462 e403 | | Load 0x2,0x3
0463 0092 0a84 | | Action Push_String_Extended,0xa84 ; "Execute Extract_Archive"
0465 821f | | Call 0x1,0x1f
0466 e5fe | | Load 0x2,-0x2
0467 0120 | | Execute Any,Is_Value
0468 6803 |h | Jump_Zero 0x46c
0469 e00f | | Load 0x0,0xf
046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046b 7801 |x | Jump 0x46d
046c e5fe | | Load 0x2,-0x2
046d 6792 |g | Indirect_Literal Discrete,0x400,{0x00007fff, 0xffffffff}
046e e402 | | Load 0x2,0x2
046f 4801 |H | Short_Literal 0x1
0470 e402 | | Load 0x2,0x2
0471 e00f | | Load 0x0,0xf
0472 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0473 e5ff | | Load 0x2,-0x1
0474 e220 | | Load 0x1,0x20
0475 180f | | Execute Package,Field_Execute,Field_Number 0xf
0476 e402 | | Load 0x2,0x2
0477 e5ff | | Load 0x2,-0x1
0478 822a | * | Call 0x1,0x2a
0479 e00f | | Load 0x0,0xf
047a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
047b c5fe | | Store 0x2,-0x2
047c e5fe | | Load 0x2,-0x2
047d e403 | | Load 0x2,0x3
047e e5ff | | Load 0x2,-0x1
047f 0092 0a84 | | Action Push_String_Extended,0xa84 ; "Execute Extract_Archive"
0481 821a | | Call 0x1,0x1a
0482 c5fe | | Store 0x2,-0x2
0483 00d8 | | Load_Top At_Offset_0
0484 e402 | | Load 0x2,0x2
0485 e403 | | Load 0x2,0x3
0486 8222 | " | Call 0x1,0x22
0487 c402 | | Store 0x2,0x2
0488 c404 | | Store 0x2,0x4
0489 4502 |E | Exit_Suprogram New_Top_Offset 0x2
048a TRAP_0408:
048a e012 | | Load 0x0,0x12
048b 010f | | Execute Exception,Equal
048c 6801 |h | Jump_Zero 0x48e
048d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
048e e008 | | Load 0x0,0x8
048f 010f | | Execute Exception,Equal
0490 6811 |h | Jump_Zero 0x4a2
0491 e5fe | | Load 0x2,-0x2
0492 4803 |H | Short_Literal 0x3
0493 e402 | | Load 0x2,0x2
0494 e00f | | Load 0x0,0xf
0495 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0496 0092 0a70 | p| Action Push_String_Extended,0xa70 ; "Encountered unsupported platform"
0498 e010 | | Load 0x0,0x10
0499 181a | | Execute Package,Field_Execute,Field_Number 0x1a
049a c5fe | | Store 0x2,-0x2
049b e404 | | Load 0x2,0x4
049c e402 | | Load 0x2,0x2
049d e403 | | Load 0x2,0x3
049e 8222 | " | Call 0x1,0x22
049f c402 | | Store 0x2,0x2
04a0 c404 | | Store 0x2,0x4
04a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04a2 e00c | | Load 0x0,0xc
04a3 010f | | Execute Exception,Equal
04a4 6812 |h | Jump_Zero 0x4b7
04a5 e5fe | | Load 0x2,-0x2
04a6 4803 |H | Short_Literal 0x3
04a7 4801 |H | Short_Literal 0x1
04a8 e5ff | | Load 0x2,-0x1
04a9 e00a | | Load 0x0,0xa
04aa 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
04ab 0092 0a71 | q| Action Push_String_Extended,0xa71 ; "Encountered ill-formed name in gateway"
04ad e010 | | Load 0x0,0x10
04ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04af c5fe | | Store 0x2,-0x2
04b0 e404 | | Load 0x2,0x4
04b1 e402 | | Load 0x2,0x2
04b2 e403 | | Load 0x2,0x3
04b3 8222 | " | Call 0x1,0x22
04b4 c402 | | Store 0x2,0x2
04b5 c404 | | Store 0x2,0x4
04b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04b7 e404 | | Load 0x2,0x4
04b8 e402 | | Load 0x2,0x2
04b9 e403 | | Load 0x2,0x3
04ba 8222 | " | Call 0x1,0x22
04bb c402 | | Store 0x2,0x2
04bc c404 | | Store 0x2,0x4
04bd e5fe | | Load 0x2,-0x2
04be 0092 0a85 | | Action Push_String_Extended,0xa85 ; "Restore_Archive"
04c0 8225 | % | Call 0x1,0x25
04c1 c5fe | | Store 0x2,-0x2
04c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c3 0000 0000 | | .BLANK 0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 4801 |H | Short_Literal 0x1
04cc e5ff | | Load 0x2,-0x1
04cd e00a | | Load 0x0,0xa
04ce 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
04cf 0092 0a86 | | Action Push_String_Extended,0xa86 ; "."
04d1 01cc | | Execute Vector,Catenate
04d2 e215 | | Load 0x1,0x15
04d3 01cc | | Execute Vector,Catenate
04d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d5 0000 0000 | | .XXX[0x3]
04d7 0000 | |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 051e | | .CONST 0x051e ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0003 | | .CONST 0x0003 ; Number of locals
04db INIT_04d8:
04db e009 | | Load 0x0,0x9
04dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04dd 02c7 | | Declare_Variable Any
04de e009 | | Load 0x0,0x9
04df 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e0 a402 | | Store_Unchecked 0x2,0x2
04e1 e009 | | Load 0x0,0x9
04e2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04e3 0337 | 7 | Declare_Variable Array
04e4 00d8 | | Load_Top At_Offset_0
04e5 0335 | 5 | Declare_Variable Array,Duplicate
04e6 00cd | | Action Spare6_Action
04e7 4800 |H | Short_Literal 0x0
04e8 4800 |H | Short_Literal 0x0
04e9 e404 | | Load 0x2,0x4
04ea 01d6 | | Execute Vector,Field_Write
04eb e402 | | Load 0x2,0x2
04ec 4801 |H | Short_Literal 0x1
04ed e009 | | Load 0x0,0x9
04ee 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04ef 4801 |H | Short_Literal 0x1
04f0 e404 | | Load 0x2,0x4
04f1 01d6 | | Execute Vector,Field_Write
04f2 4804 |H | Short_Literal 0x4
04f3 4802 |H | Short_Literal 0x2
04f4 4800 |H | Short_Literal 0x0
04f5 e406 | | Load 0x2,0x6
04f6 e404 | | Load 0x2,0x4
04f7 01d6 | | Execute Vector,Field_Write
04f8 3ffb |? | Loop_Increasing 0x4f4
04f9 e402 | | Load 0x2,0x2
04fa 4805 |H | Short_Literal 0x5
04fb e009 | | Load 0x0,0x9
04fc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04fd 4805 |H | Short_Literal 0x5
04fe e404 | | Load 0x2,0x4
04ff 01d6 | | Execute Vector,Field_Write
0500 e402 | | Load 0x2,0x2
0501 4806 |H | Short_Literal 0x6
0502 e009 | | Load 0x0,0x9
0503 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0504 4806 |H | Short_Literal 0x6
0505 e404 | | Load 0x2,0x4
0506 01d6 | | Execute Vector,Field_Write
0507 e402 | | Load 0x2,0x2
0508 4807 |H | Short_Literal 0x7
0509 e009 | | Load 0x0,0x9
050a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
050b 4807 |H | Short_Literal 0x7
050c e404 | | Load 0x2,0x4
050d 01d6 | | Execute Vector,Field_Write
050e e402 | | Load 0x2,0x2
050f 4808 |H | Short_Literal 0x8
0510 e009 | | Load 0x0,0x9
0511 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0512 4808 |H | Short_Literal 0x8
0513 e404 | | Load 0x2,0x4
0514 01d6 | | Execute Vector,Field_Write
0515 480b |H | Short_Literal 0xb
0516 4809 |H | Short_Literal 0x9
0517 4800 |H | Short_Literal 0x0
0518 e406 | | Load 0x2,0x6
0519 e404 | | Load 0x2,0x4
051a 01d6 | | Execute Vector,Field_Write
051b 3ffb |? | Loop_Increasing 0x517
051c e403 | | Load 0x2,0x3
051d 01d4 | | Execute Vector,Structure_Write
051e BODY_04d8:
051e e009 | | Load 0x0,0x9
051f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0520 e009 | | Load 0x0,0x9
0521 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0522 e009 | | Load 0x0,0x9
0523 180e | | Execute Package,Field_Execute,Field_Number 0xe
0524 e009 | | Load 0x0,0x9
0525 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0526 e009 | | Load 0x0,0x9
0527 180e | | Execute Package,Field_Execute,Field_Number 0xe
0528 e009 | | Load 0x0,0x9
0529 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
052a e009 | | Load 0x0,0x9
052b 180e | | Execute Package,Field_Execute,Field_Number 0xe
052c e009 | | Load 0x0,0x9
052d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
052e e403 | | Load 0x2,0x3
052f e009 | | Load 0x0,0x9
0530 180e | | Execute Package,Field_Execute,Field_Number 0xe
0531 e009 | | Load 0x0,0x9
0532 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0533 e009 | | Load 0x0,0x9
0534 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0535 00ca | | Action Exit_Nullary_Function
0536 0000 0000 | | .XXX[0x2]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 4801 |H | Short_Literal 0x1
053c e5fc | | Load 0x2,-0x4
053d e010 | | Load 0x0,0x10
053e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
053f 6819 |h | Jump_Zero 0x559
0540 e5fc | | Load 0x2,-0x4
0541 4803 |H | Short_Literal 0x3
0542 e5fc | | Load 0x2,-0x4
0543 e010 | | Load 0x0,0x10
0544 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0545 0092 0a87 | | Action Push_String_Extended,0xa87 ; " on gateway "
0547 01cc | | Execute Vector,Catenate
0548 4801 |H | Short_Literal 0x1
0549 e5fe | | Load 0x2,-0x2
054a e00a | | Load 0x0,0xa
054b 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
054c 01cc | | Execute Vector,Catenate
054d 0092 0a88 | | Action Push_String_Extended,0xa88 ; " to host "
054f 01cc | | Execute Vector,Catenate
0550 e5fd | | Load 0x2,-0x3
0551 01cc | | Execute Vector,Catenate
0552 e5ff | | Load 0x2,-0x1
0553 0092 0a89 | | Action Push_String_Extended,0xa89 ; " failed:"
0555 01cc | | Execute Vector,Catenate
0556 e010 | | Load 0x0,0x10
0557 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0558 c5fc | | Store 0x2,-0x4
0559 4504 |E | Exit_Suprogram New_Top_Offset 0x4
055a 0000 0000 | | .BLANK 0000[0x6]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 4801 |H | Short_Literal 0x1
0564 e5fc | | Load 0x2,-0x4
0565 e010 | | Load 0x0,0x10
0566 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0567 681b |h | Jump_Zero 0x583
0568 e5fc | | Load 0x2,-0x4
0569 4803 |H | Short_Literal 0x3
056a e5fc | | Load 0x2,-0x4
056b e010 | | Load 0x0,0x10
056c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
056d 0092 0a87 | | Action Push_String_Extended,0xa87 ; " on gateway "
056f 01cc | | Execute Vector,Catenate
0570 4801 |H | Short_Literal 0x1
0571 e5fe | | Load 0x2,-0x2
0572 e00a | | Load 0x0,0xa
0573 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0574 01cc | | Execute Vector,Catenate
0575 0092 0a88 | | Action Push_String_Extended,0xa88 ; " to host "
0577 01cc | | Execute Vector,Catenate
0578 e5fd | | Load 0x2,-0x3
0579 e00f | | Load 0x0,0xf
057a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
057b 01cc | | Execute Vector,Catenate
057c e5ff | | Load 0x2,-0x1
057d 0092 0a89 | | Action Push_String_Extended,0xa89 ; " failed:"
057f 01cc | | Execute Vector,Catenate
0580 e010 | | Load 0x0,0x10
0581 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0582 c5fc | | Store 0x2,-0x4
0583 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0584 0000 0000 | | .BLANK 0000[0x4]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b e5ff | | Load 0x2,-0x1
058c e013 | | Load 0x0,0x13
058d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
058e 680b |h | Jump_Zero 0x59a
058f 487d |H} | Short_Literal 0x7d
0590 0092 0a8a | | Action Push_String_Extended,0xa8a ; "{In_Progress,"
0592 e5ff | | Load 0x2,-0x1
0593 e013 | | Load 0x0,0x13
0594 180f | | Execute Package,Field_Execute,Field_Number 0xf
0595 00e0 | | Load_Encached Standard_Cache
0596 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0597 01cc | | Execute Vector,Catenate
0598 01cb | | Execute Vector,Append
0599 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059a 0092 0a8b | | Action Push_String_Extended,0xa8b ; "<NOT_IN_PROGRESS>"
059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 e009 | | Load 0x0,0x9
05a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
05a5 4801 |H | Short_Literal 0x1
05a6 e009 | | Load 0x0,0x9
05a7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05a8 6816 |h | Jump_Zero 0x5bf
05a9 e009 | | Load 0x0,0x9
05aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
05ab 4801 |H | Short_Literal 0x1
05ac e5ff | | Load 0x2,-0x1
05ad 0092 0a8c | | Action Push_String_Extended,0xa8c ; " (Host => {"
05af 01cc | | Execute Vector,Catenate
05b0 e5fe | | Load 0x2,-0x2
05b1 01cc | | Execute Vector,Catenate
05b2 0092 0a8d | | Action Push_String_Extended,0xa8d ; "}, Gateway => {"
05b4 01cc | | Execute Vector,Catenate
05b5 4801 |H | Short_Literal 0x1
05b6 e5fd | | Load 0x2,-0x3
05b7 e00a | | Load 0x0,0xa
05b8 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
05b9 01cc | | Execute Vector,Catenate
05ba 0092 0a8e | | Action Push_String_Extended,0xa8e ; "}"
05bc 01cc | | Execute Vector,Catenate
05bd e00b | | Load 0x0,0xb
05be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 e009 | | Load 0x0,0x9
05c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
05c5 4801 |H | Short_Literal 0x1
05c6 e009 | | Load 0x0,0x9
05c7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05c8 681c |h | Jump_Zero 0x5e5
05c9 e009 | | Load 0x0,0x9
05ca 180e | | Execute Package,Field_Execute,Field_Number 0xe
05cb 4801 |H | Short_Literal 0x1
05cc e5ff | | Load 0x2,-0x1
05cd 0092 0a8f | | Action Push_String_Extended,0xa8f ; " (File => {"
05cf 01cc | | Execute Vector,Catenate
05d0 e5fe | | Load 0x2,-0x2
05d1 01cc | | Execute Vector,Catenate
05d2 0092 0a90 | | Action Push_String_Extended,0xa90 ; "}, Handle => {"
05d4 01cc | | Execute Vector,Catenate
05d5 4801 |H | Short_Literal 0x1
05d6 e5fd | | Load 0x2,-0x3
05d7 e00a | | Load 0x0,0xa
05d8 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
05d9 01cc | | Execute Vector,Catenate
05da 0092 0a91 | | Action Push_String_Extended,0xa91 ; "}, Action_Id => "
05dc 01cc | | Execute Vector,Catenate
05dd e5fc | | Load 0x2,-0x4
05de 821c | | Call 0x1,0x1c
05df 01cc | | Execute Vector,Catenate
05e0 0092 0a92 | | Action Push_String_Extended,0xa92 ; ");"
05e2 01cc | | Execute Vector,Catenate
05e3 e00b | | Load 0x0,0xb
05e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05e6 0000 0000 | | .XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb e009 | | Load 0x0,0x9
05ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
05ed 4801 |H | Short_Literal 0x1
05ee e009 | | Load 0x0,0x9
05ef 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05f0 681b |h | Jump_Zero 0x60c
05f1 e009 | | Load 0x0,0x9
05f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05f3 4801 |H | Short_Literal 0x1
05f4 e5ff | | Load 0x2,-0x1
05f5 0092 0a8c | | Action Push_String_Extended,0xa8c ; " (Host => {"
05f7 01cc | | Execute Vector,Catenate
05f8 e5fe | | Load 0x2,-0x2
05f9 01cc | | Execute Vector,Catenate
05fa 0092 0a93 | | Action Push_String_Extended,0xa93 ; "}, Context => {"
05fc 01cc | | Execute Vector,Catenate
05fd e5fd | | Load 0x2,-0x3
05fe 01cc | | Execute Vector,Catenate
05ff 0092 0a8d | | Action Push_String_Extended,0xa8d ; "}, Gateway => {"
0601 01cc | | Execute Vector,Catenate
0602 4801 |H | Short_Literal 0x1
0603 e5fc | | Load 0x2,-0x4
0604 e00a | | Load 0x0,0xa
0605 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0606 01cc | | Execute Vector,Catenate
0607 0092 0a8e | | Action Push_String_Extended,0xa8e ; "}"
0609 01cc | | Execute Vector,Catenate
060a e00b | | Load 0x0,0xb
060b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
060d 0000 0000 | | .XXX[0x3]
060f 0000 | |
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 e5fd | | Load 0x2,-0x3
0614 0120 | | Execute Any,Is_Value
0615 6803 |h | Jump_Zero 0x619
0616 e00f | | Load 0x0,0xf
0617 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0618 7801 |x | Jump 0x61a
0619 e5fd | | Load 0x2,-0x3
061a e5fe | | Load 0x2,-0x2
061b 0120 | | Execute Any,Is_Value
061c 6803 |h | Jump_Zero 0x620
061d e00f | | Load 0x0,0xf
061e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
061f 7801 |x | Jump 0x621
0620 e5fe | | Load 0x2,-0x2
0621 00ea | | Load_Encached Null_String_Cache
0622 e5ff | | Load 0x2,-0x1
0623 e00f | | Load 0x0,0xf
0624 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0625 c5fe | | Store 0x2,-0x2
0626 c5fd | | Store 0x2,-0x3
0627 4801 |H | Short_Literal 0x1
0628 e5fd | | Load 0x2,-0x3
0629 e010 | | Load 0x0,0x10
062a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
062b 6802 |h | Jump_Zero 0x62e
062c e012 | | Load 0x0,0x12
062d 0257 | W | Execute Discrete,Raise
062e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
062f 0000 | | .XXX[0x1]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 e5fd | | Load 0x2,-0x3
0634 0120 | | Execute Any,Is_Value
0635 6803 |h | Jump_Zero 0x639
0636 e00f | | Load 0x0,0xf
0637 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0638 7801 |x | Jump 0x63a
0639 e5fd | | Load 0x2,-0x3
063a e5fe | | Load 0x2,-0x2
063b 6018 |` | Indirect_Literal Discrete,0x654,{0xffffffff, 0xffff8000}
063c e00f | | Load 0x0,0xf
063d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
063e c5fe | | Store 0x2,-0x2
063f c5fd | | Store 0x2,-0x3
0640 4801 |H | Short_Literal 0x1
0641 e5fd | | Load 0x2,-0x3
0642 e010 | | Load 0x0,0x10
0643 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0644 680c |h | Jump_Zero 0x651
0645 e5fd | | Load 0x2,-0x3
0646 4802 |H | Short_Literal 0x2
0647 e5fd | | Load 0x2,-0x3
0648 e010 | | Load 0x0,0x10
0649 1818 | | Execute Package,Field_Execute,Field_Number 0x18
064a 0092 0a94 | | Action Push_String_Extended,0xa94 ; "Unable to release connection on host "
064c e5ff | | Load 0x2,-0x1
064d 01cc | | Execute Vector,Catenate
064e e010 | | Load 0x0,0x10
064f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0650 c5fd | | Store 0x2,-0x3
0651 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0652 0000 0000 | | .XXX[0x2]
0654 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065e | ^ | .CONST 0x065e ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0002 | | .CONST 0x0002 ; Number of locals
065b INIT_0658:
065b e5ff | | Load 0x2,-0x1
065c e00f | | Load 0x0,0xf
065d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
065e BODY_0658:
065e e5fe | | Load 0x2,-0x2
065f 0120 | | Execute Any,Is_Value
0660 6803 |h | Jump_Zero 0x664
0661 e00f | | Load 0x0,0xf
0662 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0663 7801 |x | Jump 0x665
0664 e5fe | | Load 0x2,-0x2
0665 e5ff | | Load 0x2,-0x1
0666 e00f | | Load 0x0,0xf
0667 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0668 c5ff | | Store 0x2,-0x1
0669 c5fe | | Store 0x2,-0x2
066a 4801 |H | Short_Literal 0x1
066b e5fe | | Load 0x2,-0x2
066c e010 | | Load 0x0,0x10
066d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
066e 680c |h | Jump_Zero 0x67b
066f e5fe | | Load 0x2,-0x2
0670 4802 |H | Short_Literal 0x2
0671 e5fe | | Load 0x2,-0x2
0672 e010 | | Load 0x0,0x10
0673 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0674 0092 0a95 | | Action Push_String_Extended,0xa95 ; "Unable to destroy connection on host "
0676 e402 | | Load 0x2,0x2
0677 01cc | | Execute Vector,Catenate
0678 e010 | | Load 0x0,0x10
0679 181a | | Execute Package,Field_Execute,Field_Number 0x1a
067a c5fe | | Store 0x2,-0x2
067b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067c 0000 0000 | | .BLANK 0000[0x4]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0686 | | .CONST 0x0686 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0002 | | .CONST 0x0002 ; Number of locals
0683 INIT_0680:
0683 e5ff | | Load 0x2,-0x1
0684 e00f | | Load 0x0,0xf
0685 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0686 BODY_0680:
0686 e5fe | | Load 0x2,-0x2
0687 e5ff | | Load 0x2,-0x1
0688 8223 | # | Call 0x1,0x23
0689 c5ff | | Store 0x2,-0x1
068a c5fe | | Store 0x2,-0x2
068b 4801 |H | Short_Literal 0x1
068c e5fe | | Load 0x2,-0x2
068d e010 | | Load 0x0,0x10
068e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
068f 6802 |h | Jump_Zero 0x692
0690 e012 | | Load 0x0,0x12
0691 0257 | W | Execute Discrete,Raise
0692 e5fe | | Load 0x2,-0x2
0693 e5ff | | Load 0x2,-0x1
0694 e402 | | Load 0x2,0x2
0695 8221 | ! | Call 0x1,0x21
0696 c5ff | | Store 0x2,-0x1
0697 c5fe | | Store 0x2,-0x2
0698 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0699 0000 0000 | | .BLANK 0000[0x7]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 e5fe | | Load 0x2,-0x2
06a4 4803 |H | Short_Literal 0x3
06a5 4800 |H | Short_Literal 0x0
06a6 4801 |H | Short_Literal 0x1
06a7 e015 | | Load 0x0,0x15
06a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06a9 0092 0a96 | | Action Push_String_Extended,0xa96 ; "Exception raised performing "
06ab e5ff | | Load 0x2,-0x1
06ac 01cc | | Execute Vector,Catenate
06ad e010 | | Load 0x0,0x10
06ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06af c5fe | | Store 0x2,-0x2
06b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06b1 0000 0000 | | .BLANK 0000[0x7]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 06ca | | .CONST 0x06ca ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb e5ff | | Load 0x2,-0x1
06bc e00f | | Load 0x0,0xf
06bd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
06be 00d8 | | Load_Top At_Offset_0
06bf 4801 |H | Short_Literal 0x1
06c0 4804 |H | Short_Literal 0x4
06c1 0262 | b | Execute Discrete,In_Range
06c2 7004 |p | Jump_Nonzero 0x6c7
06c3 0f06 | | Execute_Immediate Equal,0x6
06c4 7003 |p | Jump_Nonzero 0x6c8
06c5 4800 |H | Short_Literal 0x0
06c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c7 00d1 | | Pop_Control Pop_Count_1
06c8 4801 |H | Short_Literal 0x1
06c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ca TRAP_06b8:
06ca 0007 | | Action Break_Optional
06cb 4800 |H | Short_Literal 0x0
06cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06cd 0000 0000 | | .XXX[0x3]
06cf 0000 | |
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 06dc | | .CONST 0x06dc ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 e5ff | | Load 0x2,-0x1
06d4 e00f | | Load 0x0,0xf
06d5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
06d6 0f05 | | Execute_Immediate Equal,0x5
06d7 7002 |p | Jump_Nonzero 0x6da
06d8 4800 |H | Short_Literal 0x0
06d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06da 4801 |H | Short_Literal 0x1
06db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06dc TRAP_06d0:
06dc 0007 | | Action Break_Optional
06dd 4800 |H | Short_Literal 0x0
06de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06df 0000 | | .XXX[0x1]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 06ec | | .CONST 0x06ec ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 e5ff | | Load 0x2,-0x1
06e4 e00f | | Load 0x0,0xf
06e5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
06e6 0f07 | | Execute_Immediate Equal,0x7
06e7 7002 |p | Jump_Nonzero 0x6ea
06e8 4800 |H | Short_Literal 0x0
06e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ea 4801 |H | Short_Literal 0x1
06eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ec TRAP_06e0:
06ec 0007 | | Action Break_Optional
06ed 4800 |H | Short_Literal 0x0
06ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ef 0000 | | .XXX[0x1]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 0710 | | .CONST 0x0710 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0002 | | .CONST 0x0002 ; Number of locals
06f3 INIT_06f0:
06f3 4820 |H | Short_Literal 0x20
06f4 0092 0a97 | | Action Push_String_Extended,0xa97 ; "cd "
06f6 4801 |H | Short_Literal 0x1
06f7 e5ff | | Load 0x2,-0x1
06f8 e00a | | Load 0x0,0xa
06f9 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
06fa 01cc | | Execute Vector,Catenate
06fb 0092 0a98 | | Action Push_String_Extended,0xa98 ; "; /bin/tar cf "
06fd 01cc | | Execute Vector,Catenate
06fe 4800 |H | Short_Literal 0x0
06ff e5fe | | Load 0x2,-0x2
0700 e00f | | Load 0x0,0xf
0701 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0702 e5ff | | Load 0x2,-0x1
0703 e220 | | Load 0x1,0x20
0704 180f | | Execute Package,Field_Execute,Field_Number 0xf
0705 01cc | | Execute Vector,Catenate
0706 01cb | | Execute Vector,Append
0707 4800 |H | Short_Literal 0x0
0708 e5fe | | Load 0x2,-0x2
0709 e00f | | Load 0x0,0xf
070a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
070b e5ff | | Load 0x2,-0x1
070c e220 | | Load 0x1,0x20
070d 180d | | Execute Package,Field_Execute,Field_Number 0xd
070e 01cc | | Execute Vector,Catenate
070f 0007 | | Action Break_Optional
0710 BODY_06f0:
0710 e009 | | Load 0x0,0x9
0711 180e | | Execute Package,Field_Execute,Field_Number 0xe
0712 4801 |H | Short_Literal 0x1
0713 0092 0a99 | | Action Push_String_Extended,0xa99 ; "Create archive remote cmd: "
0715 e402 | | Load 0x2,0x2
0716 01cc | | Execute Vector,Catenate
0717 e00b | | Load 0x0,0xb
0718 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0719 00d8 | | Load_Top At_Offset_0
071a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
071b 0000 0000 | | .BLANK 0000[0x5]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0736 | 6 | .CONST 0x0736 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0002 | | .CONST 0x0002 ; Number of locals
0723 INIT_0720:
0723 0092 0a97 | | Action Push_String_Extended,0xa97 ; "cd "
0725 4801 |H | Short_Literal 0x1
0726 e5ff | | Load 0x2,-0x1
0727 e00a | | Load 0x0,0xa
0728 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0729 01cc | | Execute Vector,Catenate
072a 0092 0a9a | | Action Push_String_Extended,0xa9a ; "; /bin/tar xf "
072c 01cc | | Execute Vector,Catenate
072d 4800 |H | Short_Literal 0x0
072e e5fe | | Load 0x2,-0x2
072f e00f | | Load 0x0,0xf
0730 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0731 e5ff | | Load 0x2,-0x1
0732 e220 | | Load 0x1,0x20
0733 180f | | Execute Package,Field_Execute,Field_Number 0xf
0734 01cc | | Execute Vector,Catenate
0735 0007 | | Action Break_Optional
0736 BODY_0720:
0736 e009 | | Load 0x0,0x9
0737 180e | | Execute Package,Field_Execute,Field_Number 0xe
0738 4801 |H | Short_Literal 0x1
0739 0092 0a9b | | Action Push_String_Extended,0xa9b ; "Extract archive remote cmd: "
073b e402 | | Load 0x2,0x2
073c 01cc | | Execute Vector,Catenate
073d e00b | | Load 0x0,0xb
073e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
073f 00d8 | | Load_Top At_Offset_0
0740 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0741 0000 0000 | | .BLANK 0000[0x7]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0753 | S | .CONST 0x0753 ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0003 | | .CONST 0x0003 ; Number of locals
074b INIT_0748:
074b e5fe | | Load 0x2,-0x2
074c e00f | | Load 0x0,0xf
074d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
074e e010 | | Load 0x0,0x10
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 BODY_0748:
0753 e5ff | | Load 0x2,-0x1
0754 e402 | | Load 0x2,0x2
0755 0092 0a9c | | Action Push_String_Extended,0xa9c ; "File_Exists"
0757 821d | | Call 0x1,0x1d
0758 00e1 | | Load_Encached Boolean_Cache
0759 e403 | | Load 0x2,0x3
075a 0120 | | Execute Any,Is_Value
075b 6803 |h | Jump_Zero 0x75f
075c e00f | | Load 0x0,0xf
075d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
075e 7801 |x | Jump 0x760
075f e403 | | Load 0x2,0x3
0760 e5fe | | Load 0x2,-0x2
0761 4801 |H | Short_Literal 0x1
0762 e5fe | | Load 0x2,-0x2
0763 e00f | | Load 0x0,0xf
0764 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0765 e5ff | | Load 0x2,-0x1
0766 e220 | | Load 0x1,0x20
0767 180d | | Execute Package,Field_Execute,Field_Number 0xd
0768 e00f | | Load 0x0,0xf
0769 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
076a c403 | | Store 0x2,0x3
076b c5fc | | Store 0x2,-0x4
076c 4801 |H | Short_Literal 0x1
076d e403 | | Load 0x2,0x3
076e e010 | | Load 0x0,0x10
076f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0770 6802 |h | Jump_Zero 0x773
0771 4800 |H | Short_Literal 0x0
0772 a5fc | | Store_Unchecked 0x2,-0x4
0773 00d8 | | Load_Top At_Offset_0
0774 c5fd | | Store 0x2,-0x3
0775 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0776 0000 0000 | | .XXX[0x2]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 0780 | | .CONST 0x0780 ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0002 | | .CONST 0x0002 ; Number of locals
077b INIT_0778:
077b e011 | | Load 0x0,0x11
077c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
077d 02c7 | | Declare_Variable Any
077e 00d8 | | Load_Top At_Offset_0
077f 1c00 | | Execute_Immediate Run_Utility,0x0
0780 BODY_0778:
0780 e5fe | | Load 0x2,-0x2
0781 e402 | | Load 0x2,0x2
0782 0120 | | Execute Any,Is_Value
0783 6803 |h | Jump_Zero 0x787
0784 e011 | | Load 0x0,0x11
0785 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0786 7801 |x | Jump 0x788
0787 e402 | | Load 0x2,0x2
0788 e5ff | | Load 0x2,-0x1
0789 820d | | Call 0x1,0xd
078a c402 | | Store 0x2,0x2
078b c5fe | | Store 0x2,-0x2
078c 4801 |H | Short_Literal 0x1
078d e5fe | | Load 0x2,-0x2
078e e010 | | Load 0x0,0x10
078f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0790 7009 |p | Jump_Nonzero 0x79a
0791 e5fe | | Load 0x2,-0x2
0792 4801 |H | Short_Literal 0x1
0793 e00d | | Load 0x0,0xd
0794 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0795 e402 | | Load 0x2,0x2
0796 e5ff | | Load 0x2,-0x1
0797 e00a | | Load 0x0,0xa
0798 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0799 c5fe | | Store 0x2,-0x2
079a e5fe | | Load 0x2,-0x2
079b 4801 |H | Short_Literal 0x1
079c e00d | | Load 0x0,0xd
079d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
079e 4801 |H | Short_Literal 0x1
079f e5ff | | Load 0x2,-0x1
07a0 e00a | | Load 0x0,0xa
07a1 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
07a2 e5ff | | Load 0x2,-0x1
07a3 e00a | | Load 0x0,0xa
07a4 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
07a5 c5fe | | Store 0x2,-0x2
07a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07a7 0000 | | .XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 07ba | | .CONST 0x07ba ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab e5fb | | Load 0x2,-0x5
07ac e5fc | | Load 0x2,-0x4
07ad e5fd | | Load 0x2,-0x3
07ae e5fe | | Load 0x2,-0x2
07af 00ea | | Load_Encached Null_String_Cache
07b0 e5ff | | Load 0x2,-0x1
07b1 4801 |H | Short_Literal 0x1
07b2 e014 | | Load 0x0,0x14
07b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07b4 c5fb | | Store 0x2,-0x5
07b5 e5fa | | Load 0x2,-0x6
07b6 e010 | | Load 0x0,0x10
07b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07b8 c5fa | | Store 0x2,-0x6
07b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07ba TRAP_07a8:
07ba 0007 | | Action Break_Optional
07bb e5fa | | Load 0x2,-0x6
07bc 4803 |H | Short_Literal 0x3
07bd e5ff | | Load 0x2,-0x1
07be 0092 0a9d | | Action Push_String_Extended,0xa9d ; " due to "
07c0 01cc | | Execute Vector,Catenate
07c1 4800 |H | Short_Literal 0x0
07c2 4801 |H | Short_Literal 0x1
07c3 e015 | | Load 0x0,0x15
07c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07c5 01cc | | Execute Vector,Catenate
07c6 0092 0a9e | | Action Push_String_Extended,0xa9e ; "Unable to create object"
07c8 e010 | | Load 0x0,0x10
07c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07ca c5fa | | Store 0x2,-0x6
07cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07cc 0000 0000 | | .BLANK 0000[0x4]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d5 | | .CONST 0x07d5 ; Address of begin
07d1 07e4 | | .CONST 0x07e4 ; Address of exception handler
07d2 0002 | | .CONST 0x0002 ; Number of locals
07d3 INIT_07d0:
07d3 029f 0973 | s| Declare_Subprogram INIT_0970,For_Call
07d5 BODY_07d0:
07d5 e5fd | | Load 0x2,-0x3
07d6 e5fe | | Load 0x2,-0x2
07d7 e003 | | Load 0x0,0x3
07d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07d9 00ea | | Load_Encached Null_String_Cache
07da e5ff | | Load 0x2,-0x1
07db 4800 |H | Short_Literal 0x0
07dc e014 | | Load 0x0,0x14
07dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07de c5fd | | Store 0x2,-0x3
07df e5fc | | Load 0x2,-0x4
07e0 e010 | | Load 0x0,0x10
07e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07e2 c5fc | | Store 0x2,-0x4
07e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07e4 TRAP_07d0:
07e4 00d8 | | Load_Top At_Offset_0
07e5 0107 | | Execute Exception,Get_Name
07e6 4920 |I | Short_Literal 0x120
07e7 492f |I/ | Short_Literal 0x12f
07e8 0262 | b | Execute Discrete,In_Range
07e9 6818 |h | Jump_Zero 0x802
07ea 4800 |H | Short_Literal 0x0
07eb 4800 |H | Short_Literal 0x0
07ec 4801 |H | Short_Literal 0x1
07ed e015 | | Load 0x0,0x15
07ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07ef 0092 0a9f | | Action Push_String_Extended,0xa9f ; "exist"
07f1 e00e | | Load 0x0,0xe
07f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07f3 6809 |h | Jump_Zero 0x7fd
07f4 e5fc | | Load 0x2,-0x4
07f5 4803 |H | Short_Literal 0x3
07f6 e5ff | | Load 0x2,-0x1
07f7 0092 0aa0 | | Action Push_String_Extended,0xaa0 ; "Object does not exist"
07f9 e010 | | Load 0x0,0x10
07fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07fb c5fc | | Store 0x2,-0x4
07fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07fd e5fc | | Load 0x2,-0x4
07fe e5ff | | Load 0x2,-0x1
07ff 8402 | | Call 0x2,0x2
0800 c5fc | | Store 0x2,-0x4
0801 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0802 e5fc | | Load 0x2,-0x4
0803 e5ff | | Load 0x2,-0x1
0804 8402 | | Call 0x2,0x2
0805 c5fc | | Store 0x2,-0x4
0806 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0807 0000 | | .XXX[0x1]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b e5ff | | Load 0x2,-0x1
080c e014 | | Load 0x0,0x14
080d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
080e 6804 |h | Jump_Zero 0x813
080f e5ff | | Load 0x2,-0x1
0810 e014 | | Load 0x0,0x14
0811 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0812 c5ff | | Store 0x2,-0x1
0813 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0814 0000 0000 | | .BLANK 0000[0x4]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 082d | - | .CONST 0x082d ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0007 | | .CONST 0x0007 ; Number of locals
081b INIT_0818:
081b e010 | | Load 0x0,0x10
081c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
081d 02c7 | | Declare_Variable Any
081e 00d8 | | Load_Top At_Offset_0
081f 1c00 | | Execute_Immediate Run_Utility,0x0
0820 00e8 | | Load_Encached Character_Cache
0821 0620 | | Execute_Immediate Set_Value_Unchecked,0x20
0822 e003 | | Load 0x0,0x3
0823 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0824 e014 | | Load 0x0,0x14
0825 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0826 02c7 | | Declare_Variable Any
0827 00d8 | | Load_Top At_Offset_0
0828 1c00 | | Execute_Immediate Run_Utility,0x0
0829 e003 | | Load 0x0,0x3
082a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082b 029f 098b | | Declare_Subprogram INIT_0988,For_Call
082d BODY_0818:
082d e402 | | Load 0x2,0x2
082e e010 | | Load 0x0,0x10
082f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0830 c402 | | Store 0x2,0x2
0831 e402 | | Load 0x2,0x2
0832 e405 | | Load 0x2,0x5
0833 e5fe | | Load 0x2,-0x2
0834 e5ff | | Load 0x2,-0x1
0835 822e | . | Call 0x1,0x2e
0836 c405 | | Store 0x2,0x5
0837 c402 | | Store 0x2,0x2
0838 4801 |H | Short_Literal 0x1
0839 e402 | | Load 0x2,0x2
083a e010 | | Load 0x0,0x10
083b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
083c 6804 |h | Jump_Zero 0x841
083d e405 | | Load 0x2,0x5
083e 822f | / | Call 0x1,0x2f
083f c405 | | Store 0x2,0x5
0840 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0841 8407 | | Call 0x2,0x7
0842 e405 | | Load 0x2,0x5
0843 822f | / | Call 0x1,0x2f
0844 c405 | | Store 0x2,0x5
0845 e003 | | Load 0x0,0x3
0846 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0847 6018 |` | Indirect_Literal Discrete,0x860,{0x00000000, 0x00004000}
0848 e5fe | | Load 0x2,-0x2
0849 e404 | | Load 0x2,0x4
084a e5ff | | Load 0x2,-0x1
084b e016 | | Load 0x0,0x16
084c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
084d e003 | | Load 0x0,0x3
084e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
084f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0850 c406 | | Store 0x2,0x6
0851 e406 | | Load 0x2,0x6
0852 680b |h | Jump_Zero 0x85e
0853 e402 | | Load 0x2,0x2
0854 4802 |H | Short_Literal 0x2
0855 0092 0aa1 | | Action Push_String_Extended,0xaa1 ; "Unable to set markup subclass for file "
0857 e5ff | | Load 0x2,-0x1
0858 01cc | | Execute Vector,Catenate
0859 0092 0aa2 | | Action Push_String_Extended,0xaa2 ; "PROBLEM"
085b e010 | | Load 0x0,0x10
085c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
085d c402 | | Store 0x2,0x2
085e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
085f 0000 | | .XXX[0x1]
0860 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0864 0000 0000 | | .BLANK 0000[0x4]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b e00a | | Load 0x0,0xa
086c 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
086d e5ff | | Load 0x2,-0x1
086e e016 | | Load 0x0,0x16
086f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0870 027f | | Execute Discrete,Equal
0871 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0872 0000 0000 | | .BLANK 0000[0x6]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 088b | | .CONST 0x088b ; Address of begin
0879 08ff | | .CONST 0x08ff ; Address of exception handler
087a 0005 | | .CONST 0x0005 ; Number of locals
087b INIT_0878:
087b e003 | | Load 0x0,0x3
087c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
087d 02c7 | | Declare_Variable Any
087e e5ff | | Load 0x2,-0x1
087f e016 | | Load 0x0,0x16
0880 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0881 a402 | | Store_Unchecked 0x2,0x2
0882 e014 | | Load 0x0,0x14
0883 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0884 02c7 | | Declare_Variable Any
0885 00d8 | | Load_Top At_Offset_0
0886 1c00 | | Execute_Immediate Run_Utility,0x0
0887 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call
0889 029f 09d3 | | Declare_Subprogram INIT_09d0,For_Call
088b BODY_0878:
088b e5fa | | Load 0x2,-0x6
088c e5ff | | Load 0x2,-0x1
088d e402 | | Load 0x2,0x2
088e 8405 | | Call 0x2,0x5
088f c5fa | | Store 0x2,-0x6
0890 e5fc | | Load 0x2,-0x4
0891 e5ff | | Load 0x2,-0x1
0892 8230 | 0 | Call 0x1,0x30
0893 e402 | | Load 0x2,0x2
0894 8231 | 1 | Call 0x1,0x31
0895 e5fb | | Load 0x2,-0x5
0896 8227 | ' | Call 0x1,0x27
0897 0279 | y | Execute Discrete,And
0898 680b |h | Jump_Zero 0x8a4
0899 e5fa | | Load 0x2,-0x6
089a 4802 |H | Short_Literal 0x2
089b 0092 0aa3 | | Action Push_String_Extended,0xaa3 ; "Binary file transfer is not supported for VMS"
089d 0092 0aa4 | | Action Push_String_Extended,0xaa4 ; "Unable to put document;"
089f e010 | | Load 0x0,0x10
08a0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08a1 c5fa | | Store 0x2,-0x6
08a2 e017 | | Load 0x0,0x17
08a3 0257 | W | Execute Discrete,Raise
08a4 e5fa | | Load 0x2,-0x6
08a5 0120 | | Execute Any,Is_Value
08a6 6803 |h | Jump_Zero 0x8aa
08a7 e00f | | Load 0x0,0xf
08a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08a9 7801 |x | Jump 0x8ab
08aa e5fa | | Load 0x2,-0x6
08ab 00ea | | Load_Encached Null_String_Cache
08ac 4801 |H | Short_Literal 0x1
08ad e5fd | | Load 0x2,-0x3
08ae e5fb | | Load 0x2,-0x5
08af e00f | | Load 0x0,0xf
08b0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
08b1 c5fa | | Store 0x2,-0x6
08b2 e5fa | | Load 0x2,-0x6
08b3 8404 | | Call 0x2,0x4
08b4 c5fa | | Store 0x2,-0x6
08b5 e402 | | Load 0x2,0x2
08b6 8231 | 1 | Call 0x1,0x31
08b7 6811 |h | Jump_Zero 0x8c9
08b8 e5fa | | Load 0x2,-0x6
08b9 0120 | | Execute Any,Is_Value
08ba 6803 |h | Jump_Zero 0x8be
08bb e00f | | Load 0x0,0xf
08bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08bd 7801 |x | Jump 0x8bf
08be e5fa | | Load 0x2,-0x6
08bf 0092 0aa5 | | Action Push_String_Extended,0xaa5 ; " TYPE => LOCAL_BINARY, STRUCTURE => FILE "
08c1 4800 |H | Short_Literal 0x0
08c2 e5fb | | Load 0x2,-0x5
08c3 e5fe | | Load 0x2,-0x2
08c4 e5ff | | Load 0x2,-0x1
08c5 e00f | | Load 0x0,0xf
08c6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
08c7 c5fa | | Store 0x2,-0x6
08c8 781c |x | Jump 0x8e5
08c9 e5fa | | Load 0x2,-0x6
08ca e403 | | Load 0x2,0x3
08cb e5fc | | Load 0x2,-0x4
08cc e5ff | | Load 0x2,-0x1
08cd 822e | . | Call 0x1,0x2e
08ce c403 | | Store 0x2,0x3
08cf c5fa | | Store 0x2,-0x6
08d0 e5fa | | Load 0x2,-0x6
08d1 8404 | | Call 0x2,0x4
08d2 c5fa | | Store 0x2,-0x6
08d3 e5fa | | Load 0x2,-0x6
08d4 0120 | | Execute Any,Is_Value
08d5 6803 |h | Jump_Zero 0x8d9
08d6 e00f | | Load 0x0,0xf
08d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d8 7801 |x | Jump 0x8da
08d9 e5fa | | Load 0x2,-0x6
08da 00ea | | Load_Encached Null_String_Cache
08db 4800 |H | Short_Literal 0x0
08dc e5fb | | Load 0x2,-0x5
08dd e5fe | | Load 0x2,-0x2
08de e403 | | Load 0x2,0x3
08df e00f | | Load 0x0,0xf
08e0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08e1 c5fa | | Store 0x2,-0x6
08e2 e403 | | Load 0x2,0x3
08e3 822f | / | Call 0x1,0x2f
08e4 c403 | | Store 0x2,0x3
08e5 e5fa | | Load 0x2,-0x6
08e6 8404 | | Call 0x2,0x4
08e7 c5fa | | Store 0x2,-0x6
08e8 e5fb | | Load 0x2,-0x5
08e9 8227 | ' | Call 0x1,0x27
08ea 6813 |h | Jump_Zero 0x8fe
08eb e5fa | | Load 0x2,-0x6
08ec 0120 | | Execute Any,Is_Value
08ed 6803 |h | Jump_Zero 0x8f1
08ee e00f | | Load 0x0,0xf
08ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f0 7801 |x | Jump 0x8f2
08f1 e5fa | | Load 0x2,-0x6
08f2 6019 |` | Indirect_Literal Discrete,0x90c,{0x00000000, 0x001e0000}
08f3 e5fb | | Load 0x2,-0x5
08f4 0092 0aa6 | | Action Push_String_Extended,0xaa6 ; "PURGE "
08f6 e5fe | | Load 0x2,-0x2
08f7 01cc | | Execute Vector,Catenate
08f8 e00f | | Load 0x0,0xf
08f9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08fa c5fa | | Store 0x2,-0x6
08fb e5fa | | Load 0x2,-0x6
08fc 8404 | | Call 0x2,0x4
08fd c5fa | | Store 0x2,-0x6
08fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5
08ff TRAP_0878:
08ff e017 | | Load 0x0,0x17
0900 010f | | Execute Exception,Equal
0901 6801 |h | Jump_Zero 0x903
0902 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0903 e5fa | | Load 0x2,-0x6
0904 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Put_Object"
0906 8225 | % | Call 0x1,0x25
0907 c5fa | | Store 0x2,-0x6
0908 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0909 0000 0000 | | .XXX[0x3]
090b 0000 | |
090c 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0922 | " | .CONST 0x0922 ; Address of begin
0911 0966 | f | .CONST 0x0966 ; Address of exception handler
0912 0005 | | .CONST 0x0005 ; Number of locals
0913 INIT_0910:
0913 e014 | | Load 0x0,0x14
0914 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0915 02c7 | | Declare_Variable Any
0916 00d8 | | Load_Top At_Offset_0
0917 1c00 | | Execute_Immediate Run_Utility,0x0
0918 e018 | | Load 0x0,0x18
0919 1b0d | | Execute Package,Field_Read,Field_Number 0xd
091a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
091b 02c7 | | Declare_Variable Any
091c 00d8 | | Load_Top At_Offset_0
091d 1c00 | | Execute_Immediate Run_Utility,0x0
091e 029f 0a03 | | Declare_Subprogram INIT_0a00,For_Call
0920 029f 0a13 | | Declare_Subprogram INIT_0a10,For_Call
0922 BODY_0910:
0922 e5fb | | Load 0x2,-0x5
0923 e402 | | Load 0x2,0x2
0924 e5fd | | Load 0x2,-0x3
0925 e00a | | Load 0x0,0xa
0926 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0927 e00a | | Load 0x0,0xa
0928 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
0929 e5fe | | Load 0x2,-0x2
092a 822d | - | Call 0x1,0x2d
092b c402 | | Store 0x2,0x2
092c c5fb | | Store 0x2,-0x5
092d e5fb | | Load 0x2,-0x5
092e 8404 | | Call 0x2,0x4
092f e5fb | | Load 0x2,-0x5
0930 0120 | | Execute Any,Is_Value
0931 6803 |h | Jump_Zero 0x935
0932 e00f | | Load 0x0,0xf
0933 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0934 7801 |x | Jump 0x936
0935 e5fb | | Load 0x2,-0x5
0936 0092 0aa8 | | Action Push_String_Extended,0xaa8 ; "VAX_VMS => ( ADD_NEW_LINE => TRUE )"
0938 e402 | | Load 0x2,0x2
0939 e5fc | | Load 0x2,-0x4
093a e5ff | | Load 0x2,-0x1
093b e00f | | Load 0x0,0xf
093c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
093d c5fb | | Store 0x2,-0x5
093e e402 | | Load 0x2,0x2
093f 822f | / | Call 0x1,0x2f
0940 c402 | | Store 0x2,0x2
0941 4801 |H | Short_Literal 0x1
0942 e5fb | | Load 0x2,-0x5
0943 e010 | | Load 0x0,0x10
0944 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0945 681a |h | Jump_Zero 0x960
0946 e5fc | | Load 0x2,-0x4
0947 8227 | ' | Call 0x1,0x27
0948 6817 |h | Jump_Zero 0x960
0949 e5fb | | Load 0x2,-0x5
094a e5fc | | Load 0x2,-0x4
094b 8224 | $ | Call 0x1,0x24
094c c5fc | | Store 0x2,-0x4
094d c5fb | | Store 0x2,-0x5
094e e5fb | | Load 0x2,-0x5
094f e013 | | Load 0x0,0x13
0950 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0951 e5fe | | Load 0x2,-0x2
0952 e016 | | Load 0x0,0x16
0953 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0954 e016 | | Load 0x0,0x16
0955 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0956 c5fb | | Store 0x2,-0x5
0957 e5fb | | Load 0x2,-0x5
0958 4802 |H | Short_Literal 0x2
0959 0092 0aa3 | | Action Push_String_Extended,0xaa3 ; "Binary file transfer is not supported for VMS"
095b 0092 0aa4 | | Action Push_String_Extended,0xaa4 ; "Unable to put document;"
095d e010 | | Load 0x0,0x10
095e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
095f c5fb | | Store 0x2,-0x5
0960 e5fb | | Load 0x2,-0x5
0961 8404 | | Call 0x2,0x4
0962 e5fd | | Load 0x2,-0x3
0963 e5fe | | Load 0x2,-0x2
0964 8230 | 0 | Call 0x1,0x30
0965 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0966 TRAP_0910:
0966 e019 | | Load 0x0,0x19
0967 010f | | Execute Exception,Equal
0968 6801 |h | Jump_Zero 0x96a
0969 4504 |E | Exit_Suprogram New_Top_Offset 0x4
096a e5fb | | Load 0x2,-0x5
096b 0092 0aa9 | | Action Push_String_Extended,0xaa9 ; "Get_Object"
096d 8225 | % | Call 0x1,0x25
096e c5fb | | Store 0x2,-0x5
096f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973 | s | .CONST 0x0973 ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0001 | | .CONST 0x0001 ; Number of locals
0973 BODY_0970:
0973 INIT_0970:
0973 e7fe | | Load 0x3,-0x2
0974 4803 |H | Short_Literal 0x3
0975 e7ff | | Load 0x3,-0x1
0976 0092 0a9d | | Action Push_String_Extended,0xa9d ; " due to "
0978 01cc | | Execute Vector,Catenate
0979 4800 |H | Short_Literal 0x0
097a 4801 |H | Short_Literal 0x1
097b e015 | | Load 0x0,0x15
097c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
097d 01cc | | Execute Vector,Catenate
097e 0092 0aaa | | Action Push_String_Extended,0xaaa ; "Unable to open object"
0980 e010 | | Load 0x0,0x10
0981 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0982 c7fe | | Store 0x3,-0x2
0983 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0984 0000 0000 | | .BLANK 0000[0x4]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 098b | | .CONST 0x098b ; Address of begin
0989 09ae | | .CONST 0x09ae ; Address of exception handler
098a 0001 | | .CONST 0x0001 ; Number of locals
098b BODY_0988:
098b INIT_0988:
098b 00cf | | Action Mark_Auxiliary
098c 7806 |x | Jump 0x993
098d 00e8 | | Load_Encached Character_Cache
098e e405 | | Load 0x2,0x5
098f e014 | | Load 0x0,0x14
0990 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0991 c403 | | Store 0x2,0x3
0992 00c9 | | Action Pop_Auxiliary_Loop
0993 e405 | | Load 0x2,0x5
0994 e014 | | Load 0x0,0x14
0995 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0996 7003 |p | Jump_Nonzero 0x99a
0997 e403 | | Load 0x2,0x3
0998 0f20 | | Execute_Immediate Equal,0x20
0999 77f3 |w | Jump_Nonzero 0x98d
099a 00ce | | Action Pop_Auxiliary
099b e405 | | Load 0x2,0x5
099c e014 | | Load 0x0,0x14
099d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
099e 6804 |h | Jump_Zero 0x9a3
099f e00a | | Load 0x0,0xa
09a0 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
09a1 a404 | | Store_Unchecked 0x2,0x4
09a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09a3 e403 | | Load 0x2,0x3
09a4 0f3c | < | Execute_Immediate Equal,0x3c
09a5 6804 |h | Jump_Zero 0x9aa
09a6 e00a | | Load 0x0,0xa
09a7 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
09a8 a404 | | Store_Unchecked 0x2,0x4
09a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09aa e00a | | Load 0x0,0xa
09ab 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
09ac a404 | | Store_Unchecked 0x2,0x4
09ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09ae TRAP_0988:
09ae 0007 | | Action Break_Optional
09af e00a | | Load 0x0,0xa
09b0 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
09b1 a404 | | Store_Unchecked 0x2,0x4
09b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b3 0000 0000 | | .BLANK 0000[0x5]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bd | | .CONST 0x09bd ; Address of begin
09b9 0004 | | .CONST 0x0004 ; Address of exception handler
09ba 0002 | | .CONST 0x0002 ; Number of locals
09bb INIT_09b8:
09bb 029f 0a5b | [| Declare_Subprogram INIT_0a58,For_Call
09bd BODY_09b8:
09bd e7ff | | Load 0x3,-0x1
09be 8602 | | Call 0x3,0x2
09bf 6805 |h | Jump_Zero 0x9c5
09c0 e7ff | | Load 0x3,-0x1
09c1 e010 | | Load 0x0,0x10
09c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09c3 c7ff | | Store 0x3,-0x1
09c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09c5 4801 |H | Short_Literal 0x1
09c6 e7ff | | Load 0x3,-0x1
09c7 e010 | | Load 0x0,0x10
09c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
09c9 6802 |h | Jump_Zero 0x9cc
09ca e017 | | Load 0x0,0x17
09cb 0257 | W | Execute Discrete,Raise
09cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09cd 0000 0000 | | .XXX[0x3]
09cf 0000 | |
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d3 | | .CONST 0x09d3 ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0001 | | .CONST 0x0001 ; Number of locals
09d3 BODY_09d0:
09d3 INIT_09d0:
09d3 e7ff | | Load 0x3,-0x1
09d4 e003 | | Load 0x0,0x3
09d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09d6 6823 |h# | Jump_Zero 0x9fa
09d7 e7fe | | Load 0x3,-0x2
09d8 e016 | | Load 0x0,0x16
09d9 180d | | Execute Package,Field_Execute,Field_Number 0xd
09da 680f |h | Jump_Zero 0x9ea
09db e7fd | | Load 0x3,-0x3
09dc 4803 |H | Short_Literal 0x3
09dd 0092 0aab | | Action Push_String_Extended,0xaab ; "The name \x22"
09df e7fe | | Load 0x3,-0x2
09e0 01cc | | Execute Vector,Catenate
09e1 0092 0aac | | Action Push_String_Extended,0xaac ; "\x22 is ambiguous."
09e3 01cc | | Execute Vector,Catenate
09e4 0092 0aad | | Action Push_String_Extended,0xaad ; "ERROR"
09e6 e010 | | Load 0x0,0x10
09e7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
09e8 c7fd | | Store 0x3,-0x3
09e9 780e |x | Jump 0x9f8
09ea e7fd | | Load 0x3,-0x3
09eb 4803 |H | Short_Literal 0x3
09ec 0092 0aae | | Action Push_String_Extended,0xaae ; "The object \x22"
09ee e7fe | | Load 0x3,-0x2
09ef 01cc | | Execute Vector,Catenate
09f0 0092 0aaf | | Action Push_String_Extended,0xaaf ; "\x22 does not exist."
09f2 01cc | | Execute Vector,Catenate
09f3 0092 0aad | | Action Push_String_Extended,0xaad ; "ERROR"
09f5 e010 | | Load 0x0,0x10
09f6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
09f7 c7fd | | Store 0x3,-0x3
09f8 e017 | | Load 0x0,0x17
09f9 0257 | W | Execute Discrete,Raise
09fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09fb 0000 0000 | | .BLANK 0000[0x5]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a03 | | .CONST 0x0a03 ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0001 | | .CONST 0x0001 ; Number of locals
0a03 BODY_0a00:
0a03 INIT_0a00:
0a03 4801 |H | Short_Literal 0x1
0a04 e7ff | | Load 0x3,-0x1
0a05 e010 | | Load 0x0,0x10
0a06 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a07 6802 |h | Jump_Zero 0xa0a
0a08 e019 | | Load 0x0,0x19
0a09 0257 | W | Execute Discrete,Raise
0a0a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a0b 0000 0000 | | .BLANK 0000[0x5]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a20 | | .CONST 0x0a20 ; Address of begin
0a11 0a4e | N | .CONST 0x0a4e ; Address of exception handler
0a12 0005 | | .CONST 0x0005 ; Number of locals
0a13 INIT_0a10:
0a13 e010 | | Load 0x0,0x10
0a14 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a15 02c7 | | Declare_Variable Any
0a16 00d8 | | Load_Top At_Offset_0
0a17 1c00 | | Execute_Immediate Run_Utility,0x0
0a18 e014 | | Load 0x0,0x14
0a19 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a1a 02c7 | | Declare_Variable Any
0a1b 00d8 | | Load_Top At_Offset_0
0a1c 1c00 | | Execute_Immediate Run_Utility,0x0
0a1d 00e1 | | Load_Encached Boolean_Cache
0a1e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0a1f 00e8 | | Load_Encached Character_Cache
0a20 BODY_0a10:
0a20 e5fb | | Load 0x2,-0x5
0a21 e603 | | Load 0x3,0x3
0a22 e7fe | | Load 0x3,-0x2
0a23 e7ff | | Load 0x3,-0x1
0a24 822e | . | Call 0x1,0x2e
0a25 c603 | | Store 0x3,0x3
0a26 c5fb | | Store 0x2,-0x5
0a27 4801 |H | Short_Literal 0x1
0a28 e5fb | | Load 0x2,-0x5
0a29 e010 | | Load 0x0,0x10
0a2a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a2b 7021 |p! | Jump_Nonzero 0xa4d
0a2c 00cf | | Action Mark_Auxiliary
0a2d 7809 |x | Jump 0xa37
0a2e 00e8 | | Load_Encached Character_Cache
0a2f e603 | | Load 0x3,0x3
0a30 e014 | | Load 0x0,0x14
0a31 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0a32 c605 | | Store 0x3,0x5
0a33 e605 | | Load 0x3,0x5
0a34 0f20 | | Execute_Immediate Equal,0x20
0a35 a604 | | Store_Unchecked 0x3,0x4
0a36 00c9 | | Action Pop_Auxiliary_Loop
0a37 e604 | | Load 0x3,0x4
0a38 e603 | | Load 0x3,0x3
0a39 e014 | | Load 0x0,0x14
0a3a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0a3b 0f00 | | Execute_Immediate Equal,0x0
0a3c 0279 | y | Execute Discrete,And
0a3d 77f0 |w | Jump_Nonzero 0xa2e
0a3e 00ce | | Action Pop_Auxiliary
0a3f e603 | | Load 0x3,0x3
0a40 822f | / | Call 0x1,0x2f
0a41 c603 | | Store 0x3,0x3
0a42 e604 | | Load 0x3,0x4
0a43 6809 |h | Jump_Zero 0xa4d
0a44 e5fb | | Load 0x2,-0x5
0a45 e013 | | Load 0x0,0x13
0a46 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a47 e7ff | | Load 0x3,-0x1
0a48 e016 | | Load 0x0,0x16
0a49 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0a4a e016 | | Load 0x0,0x16
0a4b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0a4c c5fb | | Store 0x2,-0x5
0a4d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a4e TRAP_0a10:
0a4e 0007 | | Action Break_Optional
0a4f e603 | | Load 0x3,0x3
0a50 822f | / | Call 0x1,0x2f
0a51 c603 | | Store 0x3,0x3
0a52 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a53 0000 0000 | | .BLANK 0000[0x5]
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0001 | | .CONST 0x0001 ; Number of locals
0a5b BODY_0a58:
0a5b INIT_0a58:
0a5b e9ff | | Load 0x4,-0x1
0a5c e010 | | Load 0x0,0x10
0a5d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a5e 0f02 | | Execute_Immediate Equal,0x2
0a5f 680c |h | Jump_Zero 0xa6c
0a60 4801 |H | Short_Literal 0x1
0a61 0092 0ab0 | | Action Push_String_Extended,0xab0 ; "Already exists"
0a63 4820 |H | Short_Literal 0x20
0a64 e9ff | | Load 0x4,-0x1
0a65 e010 | | Load 0x0,0x10
0a66 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a67 e00e | | Load 0x0,0xe
0a68 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a69 e00e | | Load 0x0,0xe
0a6a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a6b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a6c 4800 |H | Short_Literal 0x0
0a6d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a6e ; --------------------------------------------------------------------------------------
0a6e ; STRING TABLE
0a6e ; --------------------------------------------------------------------------------------
0a6e 0088 | | .STRTAB 0x0088->0x0ab2 ; "ARCHIVE"
0a6f 008d | | .STRTAB 0x008d->0x0ab5 ; "Update_Time"
0a70 0096 | | .STRTAB 0x0096->0x0abb ; "Encountered unsupported platform"
0a71 00b4 | | .STRTAB 0x00b4->0x0acb ; "Encountered ill-formed name in gateway"
0a72 00d8 | | .STRTAB 0x00d8->0x0ade ; "update_time"
0a73 00e1 | | .STRTAB 0x00e1->0x0ae3 ; "Upload"
0a74 00e5 | | .STRTAB 0x00e5->0x0ae6 ; "Get"
0a75 00e6 | | .STRTAB 0x00e6->0x0ae8 ; "Accept_Changes"
0a76 00f2 | | .STRTAB 0x00f2->0x0aef ; "Download"
0a77 00f8 | | .STRTAB 0x00f8->0x0af3 ; "Put"
0a78 00f9 | | .STRTAB 0x00f9->0x0af4 ; "Put_Changes"
0a79 0102 | | .STRTAB 0x0102->0x0afa ; "Unknown icon type"
0a7a 0111 | | .STRTAB 0x0111->0x0b02 ; "Put_Changes failed"
0a7b 0121 | ! | .STRTAB 0x0121->0x0b0b ; "Directory not found: Create_Directory"
0a7c 0144 | D | .STRTAB 0x0144->0x0b1e ; "Create_Directory"
0a7d 0152 | R | .STRTAB 0x0152->0x0b26 ; "remote archive procedures are not supported for "
0a7e 0180 | | .STRTAB 0x0180->0x0b3e ; " platforms"
0a7f 0188 | | .STRTAB 0x0188->0x0b43 ; "Can't save archive:"
0a80 0199 | | .STRTAB 0x0199->0x0b4c ; "Execute Create_Archive"
0a81 01ad | | .STRTAB 0x01ad->0x0b57 ; "Get_Archive"
0a82 01b6 | | .STRTAB 0x01b6->0x0b5d ; "Save_Archive"
0a83 01c0 | | .STRTAB 0x01c0->0x0b63 ; "Put_Archive"
0a84 01c9 | | .STRTAB 0x01c9->0x0b68 ; "Execute Extract_Archive"
0a85 01de | | .STRTAB 0x01de->0x0b74 ; "Restore_Archive"
0a86 01eb | | .STRTAB 0x01eb->0x0b7b ; "."
0a87 01ea | | .STRTAB 0x01ea->0x0b7c ; " on gateway "
0a88 01f4 | | .STRTAB 0x01f4->0x0b82 ; " to host "
0a89 01fb | | .STRTAB 0x01fb->0x0b86 ; " failed:"
0a8a 0201 | | .STRTAB 0x0201->0x0b8a ; "{In_Progress,"
0a8b 020c | | .STRTAB 0x020c->0x0b91 ; "<NOT_IN_PROGRESS>"
0a8c 021b | | .STRTAB 0x021b->0x0b99 ; " (Host => {"
0a8d 0224 | $ | .STRTAB 0x0224->0x0b9f ; "}, Gateway => {"
0a8e 0231 | 1 | .STRTAB 0x0231->0x0ba6 ; "}"
0a8f 0230 | 0 | .STRTAB 0x0230->0x0ba7 ; " (File => {"
0a90 0239 | 9 | .STRTAB 0x0239->0x0bac ; "}, Handle => {"
0a91 0245 | E | .STRTAB 0x0245->0x0bb3 ; "}, Action_Id => "
0a92 0253 | S | .STRTAB 0x0253->0x0bbb ; ");"
0a93 0253 | S | .STRTAB 0x0253->0x0bbc ; "}, Context => {"
0a94 0260 | ` | .STRTAB 0x0260->0x0bc4 ; "Unable to release connection on host "
0a95 0283 | | .STRTAB 0x0283->0x0bd6 ; "Unable to destroy connection on host "
0a96 02a6 | | .STRTAB 0x02a6->0x0be9 ; "Exception raised performing "
0a97 02c0 | | .STRTAB 0x02c0->0x0bf7 ; "cd "
0a98 02c1 | | .STRTAB 0x02c1->0x0bf8 ; "; /bin/tar cf "
0a99 02cd | | .STRTAB 0x02cd->0x0bff ; "Create archive remote cmd: "
0a9a 02e6 | | .STRTAB 0x02e6->0x0c0d ; "; /bin/tar xf "
0a9b 02f2 | | .STRTAB 0x02f2->0x0c14 ; "Extract archive remote cmd: "
0a9c 030c | | .STRTAB 0x030c->0x0c22 ; "File_Exists"
0a9d 0315 | | .STRTAB 0x0315->0x0c27 ; " due to "
0a9e 031b | | .STRTAB 0x031b->0x0c2b ; "Unable to create object"
0a9f 0330 | 0 | .STRTAB 0x0330->0x0c37 ; "exist"
0aa0 0333 | 3 | .STRTAB 0x0333->0x0c39 ; "Object does not exist"
0aa1 0346 | F | .STRTAB 0x0346->0x0c44 ; "Unable to set markup subclass for file "
0aa2 036b | k | .STRTAB 0x036b->0x0c57 ; "PROBLEM"
0aa3 0370 | p | .STRTAB 0x0370->0x0c5b ; "Binary file transfer is not supported for VMS"
0aa4 039b | | .STRTAB 0x039b->0x0c71 ; "Unable to put document;"
0aa5 03b0 | | .STRTAB 0x03b0->0x0c7d ; " TYPE => LOCAL_BINARY, STRUCTURE => FILE "
0aa6 03d7 | | .STRTAB 0x03d7->0x0c91 ; "PURGE "
0aa7 03db | | .STRTAB 0x03db->0x0c94 ; "Put_Object"
0aa8 03e3 | | .STRTAB 0x03e3->0x0c99 ; "VAX_VMS => ( ADD_NEW_LINE => TRUE )"
0aa9 0404 | | .STRTAB 0x0404->0x0cab ; "Get_Object"
0aaa 040c | | .STRTAB 0x040c->0x0cb0 ; "Unable to open object"
0aab 041f | | .STRTAB 0x041f->0x0cba ; "The name \x22"
0aac 0427 | ' | .STRTAB 0x0427->0x0cbf ; "\x22 is ambiguous."
0aad 0434 | 4 | .STRTAB 0x0434->0x0cc7 ; "ERROR"
0aae 0437 | 7 | .STRTAB 0x0437->0x0cc9 ; "The object \x22"
0aaf 0441 | A | .STRTAB 0x0441->0x0ccf ; "\x22 does not exist."
0ab0 0450 | P | .STRTAB 0x0450->0x0cd8 ; "Already exists"
0ab1 045c | \ | .STREND 0x045c->0x0cdf
0ab2 4152 4348 |ARCH| .STRTAB_STRINGS
0cdf 0000 | | .XXX[0x1]
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; Debug Table
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xce70,0x0000,0x0001,0x0000
0ce6 cc4a e9d0 | J | .XXX[0x11a]
0ce8 c77f fbe1 | |
0cea d6b3 3580 | 5 |
0cec df7d b3f7 | } |
0cee d52b 4980 | +I |
0cf0 ef7d dff6 | } |
0cf2 1af4 9b7e | ~|
0cf4 32b3 c339 |2 9|
0cf6 6253 d529 |bS )|
0cf8 da6b d338 | k 8|
0cfa 5afb 633b |Z c;|
0cfc 5af5 1f7c |Z ||
0cfe a7fb ab3b | ;|
0d00 f1d1 7e1c | ~ |
0d02 4ae1 3b7c |J ;||
0d04 d4a6 4a6b | Jk|
0d06 7fb8 3b3c | ;<|
0d08 0268 8cb1 | h |
0d0a c52d 7f7f | - |
0d0c ee1e 2053 | S|
0d0e 1c0a 582e | X.|
0d10 286f 6556 |(oeV|
0d12 72b1 552d |r U-|
0d14 977d 612f | }a/|
0d16 b3b8 733f | s?|
0d18 9980 7b3c | {<|
0d1a e2f8 833d | =|
0d1c bb7e aab0 | ~ |
0d1e ad88 f2f9 | |
0d20 33f9 cb7f |3 |
0d22 c66b d181 | k |
0d24 0af9 100b | |
0d26 da69 0817 | i |
0d28 f7b9 89d5 | |
0d2a aef8 03bc | |
0d2c 2a6d 1f3c |*m <|
0d2e 0184 13be | |
0d30 a824 57bd | $W |
0d32 6bf9 5af8 |k Z |
0d34 63bf b8c8 |c |
0d36 5187 bc52 |Q R|
0d38 78f9 83fb |x |
0d3a 3ab1 baf8 |: |
0d3c 326c 8984 |2l |
0d3e 4fbc df3f |O ?|
0d40 277d a6f8 |'} |
0d42 ee21 ef7c | ! ||
0d44 5bbd 6ff8 |[ o |
0d46 43bc 0184 |C |
0d48 5403 137c |T ||
0d4a fbf9 7c03 | | |
0d4c 0839 f00f | 9 |
0d4e e9a4 dd86 | |
0d50 5571 0814 |Uq |
0d52 9fbd 9bf9 | |
0d54 933d d9d7 | = |
0d56 1ef9 9f3d | =|
0d58 2184 f014 |! |
0d5a a4d1 a000 | |
0d5c e491 20cd | |
0d5e eff9 ac2b | +|
0d60 76b3 4af8 |v J |
0d62 87bf 312d | 1-|
0d64 b7fa 76f8 | v |
0d66 3803 137d |8 }|
0d68 b000 9bbd | |
0d6a ae6e 020c | n |
0d6c ec0e 33fb | 3 |
0d6e bc5c f017 | \ |
0d70 4af8 a7bd |J |
0d72 ccce 59d7 | Y |
0d74 eab3 537e | S~|
0d76 69d5 3857 |i 8W|
0d78 5f7e cf3e |_~ >|
0d7a 426d ae23 |Bm #|
0d7c 737e 566d |s~Vm|
0d7e 07bf c6fb | |
0d80 837f dd2f | /|
0d82 8b7e 766c | ~vl|
0d84 36b5 27bc |6 ' |
0d86 42b5 d184 |B |
0d88 845a a824 | Z $|
0d8a 52b4 dc98 |R |
0d8c 5ab5 47be |Z G |
0d8e 88cd c133 | 3|
0d90 333f fafb |3? |
0d92 cb7d 5fbe | }_ |
0d94 1987 db7f | |
0d96 533f 433e |S?C>|
0d98 4a23 633c |J#c<|
0d9a 7133 f37f |q3 |
0d9c 3dd6 fa6e |= n|
0d9e b057 026d | W m|
0da0 9e20 bab5 | |
0da2 6987 873e |i >|
0da4 d457 20cf | W |
0da6 933f 6dd4 | ?m |
0da8 d6b4 2781 | ' |
0daa c3be 9e20 | |
0dac 3381 cfbc |3 |
0dae f2b7 91d4 | |
0db0 8ab7 bb3d | =|
0db2 02b7 526c | Rl|
0db4 5780 96fc |W |
0db6 5f80 9eff |_ |
0db8 d73c aafc | < |
0dba 7382 e5fb |s |
0dbc eb3c a41b | < |
0dbe f33d 46b6 | =F |
0dc0 1bbf ff3e | >|
0dc2 0418 9782 | |
0dc4 2bbf d454 |+ T|
0dc6 a381 6ab6 | j |
0dc8 3bbc f2ff |; |
0dca 2e23 ba6c |.# l|
0dcc bb83 3e20 | > |
0dce c383 ca6f | o|
0dd0 d4cc cf83 | |
0dd2 d66d 16fd | m |
0dd4 b130 df80 | 0 |
0dd6 4dd8 5741 |M WA|
0dd8 2afd b6b6 |* |
0dda 83bc 6741 | gA|
0ddc 3afe 8fbd |: |
0dde 42fc 85db |B |
0de0 a985 dab6 | |
0de2 a3bc 8b41 | A|
0de4 eab4 9342 | B|
0de6 1d30 9b42 | 0 B|
0de8 bbbd 3380 | 3 |
0dea 4271 3b82 |Bq; |
0dec cbbc 5270 | Rp|
0dee b740 5a72 | @Zr|
0df0 5530 c340 |U0 @|
0df2 6671 a6fe |fq |
0df4 241b fe22 |$ "|
0df6 3ab5 6b82 |: k |
0df8 21fa ffbc |! |
0dfa e741 c6fe | A |
0dfc 52b4 372a |R 7*|
0dfe 5ab5 b782 |Z |