DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦68751608c⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_35e4d5

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 03a0       |    |		.CONST	0x03a0								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0030       | 0  |		.CONST	0x0030								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0013 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0015 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0017 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0019 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
001b 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
001d 00bf       |    |		Action	Accept_Activation
001e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
002f 00c7       |    |		Action	Elaborate_Subprogram
0030			BODY_0008:
0030 00bc       |    |		Action	Signal_Activated
0031 00bb       |    |		Action	Signal_Completion
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b e002       |    |		Load	0x0,0x2
003c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
003d 4801       |H   |		Short_Literal	0x1
003e 0092 021c  |    |		Action	Push_String_Extended,0x21c					; "promote_preprocess ( host_unit =>"
0040 e5ff       |    |		Load	0x2,-0x1
0041 e003       |    |		Load	0x0,0x3
0042 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0043 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0044 01cc       |    |		Execute	Vector,Catenate
0045 0092 021d  |    |		Action	Push_String_Extended,0x21d					; ",remote_unit_name => "
0047 01cc       |    |		Execute	Vector,Catenate
0048 e5fe       |    |		Load	0x2,-0x2
0049 01cc       |    |		Execute	Vector,Catenate
004a 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
004c 01cc       |    |		Execute	Vector,Catenate
004d e5fd       |    |		Load	0x2,-0x3
004e 01cc       |    |		Execute	Vector,Catenate
004f 0092 021f  |    |		Action	Push_String_Extended,0x21f					; ",remote_machine => "
0051 01cc       |    |		Execute	Vector,Catenate
0052 e5fc       |    |		Load	0x2,-0x4
0053 01cc       |    |		Execute	Vector,Catenate
0054 0092 0220  |    |		Action	Push_String_Extended,0x220					; ",remote_directory => "
0056 01cc       |    |		Execute	Vector,Catenate
0057 e5fb       |    |		Load	0x2,-0x5
0058 01cc       |    |		Execute	Vector,Catenate
0059 0092 0221  |   !|		Action	Push_String_Extended,0x221					; ",pre_options => "
005b 01cc       |    |		Execute	Vector,Catenate
005c e5fa       |    |		Load	0x2,-0x6
005d 01cc       |    |		Execute	Vector,Catenate
005e 0092 0222  |   "|		Action	Push_String_Extended,0x222					; ",post_options => "
0060 01cc       |    |		Execute	Vector,Catenate
0061 e5f9       |    |		Load	0x2,-0x7
0062 01cc       |    |		Execute	Vector,Catenate
0063 0092 0223  |   #|		Action	Push_String_Extended,0x223					; ",option_separator => "
0065 01cc       |    |		Execute	Vector,Catenate
0066 e5f8       |    |		Load	0x2,-0x8
0067 01cc       |    |		Execute	Vector,Catenate
0068 0092 0224  |   $|		Action	Push_String_Extended,0x224					; ",remote_connection => cannot display"
006a 01cc       |    |		Execute	Vector,Catenate
006b 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",is_secondary => "
006d 01cc       |    |		Execute	Vector,Catenate
006e e5f6       |    |		Load	0x2,-0xa
006f 00e1       |    |		Load_Encached	Boolean_Cache
0070 011c       |    |		Execute	Any,Convert_Unchecked
0071 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0072 01cc       |    |		Execute	Vector,Catenate
0073 e004       |    |		Load	0x0,0x4
0074 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0075 e5f5       |    |		Load	0x2,-0xb
0076 4800       |H   |		Short_Literal	0x0
0077 00ea       |    |		Load_Encached	Null_String_Cache
0078 00ea       |    |		Load_Encached	Null_String_Cache
0079 e005       |    |		Load	0x0,0x5
007a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
007b c5f5       |    |		Store	0x2,-0xb
007c 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 e002       |    |		Load	0x0,0x2
0084 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0085 4801       |H   |		Short_Literal	0x1
0086 0092 0226  |   &|		Action	Push_String_Extended,0x226					; "promote_postprocess ( host_unit =>"
0088 e5ff       |    |		Load	0x2,-0x1
0089 e003       |    |		Load	0x0,0x3
008a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
008b 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
008c 01cc       |    |		Execute	Vector,Catenate
008d 0092 021d  |    |		Action	Push_String_Extended,0x21d					; ",remote_unit_name => "
008f 01cc       |    |		Execute	Vector,Catenate
0090 e5fe       |    |		Load	0x2,-0x2
0091 01cc       |    |		Execute	Vector,Catenate
0092 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
0094 01cc       |    |		Execute	Vector,Catenate
0095 e5fd       |    |		Load	0x2,-0x3
0096 01cc       |    |		Execute	Vector,Catenate
0097 0092 021f  |    |		Action	Push_String_Extended,0x21f					; ",remote_machine => "
0099 01cc       |    |		Execute	Vector,Catenate
009a e5fc       |    |		Load	0x2,-0x4
009b 01cc       |    |		Execute	Vector,Catenate
009c 0092 0220  |    |		Action	Push_String_Extended,0x220					; ",remote_directory => "
009e 01cc       |    |		Execute	Vector,Catenate
009f e5fb       |    |		Load	0x2,-0x5
00a0 01cc       |    |		Execute	Vector,Catenate
00a1 0092 0221  |   !|		Action	Push_String_Extended,0x221					; ",pre_options => "
00a3 01cc       |    |		Execute	Vector,Catenate
00a4 e5fa       |    |		Load	0x2,-0x6
00a5 01cc       |    |		Execute	Vector,Catenate
00a6 0092 0222  |   "|		Action	Push_String_Extended,0x222					; ",post_options => "
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 e5f9       |    |		Load	0x2,-0x7
00aa 01cc       |    |		Execute	Vector,Catenate
00ab 0092 0223  |   #|		Action	Push_String_Extended,0x223					; ",option_separator => "
00ad 01cc       |    |		Execute	Vector,Catenate
00ae e5f8       |    |		Load	0x2,-0x8
00af 01cc       |    |		Execute	Vector,Catenate
00b0 0092 0224  |   $|		Action	Push_String_Extended,0x224					; ",remote_connection => cannot display"
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",is_secondary => "
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 e5f6       |    |		Load	0x2,-0xa
00b7 00e1       |    |		Load_Encached	Boolean_Cache
00b8 011c       |    |		Execute	Any,Convert_Unchecked
00b9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ba 01cc       |    |		Execute	Vector,Catenate
00bb e004       |    |		Load	0x0,0x4
00bc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00bd e5f5       |    |		Load	0x2,-0xb
00be 4800       |H   |		Short_Literal	0x0
00bf 00ea       |    |		Load_Encached	Null_String_Cache
00c0 00ea       |    |		Load_Encached	Null_String_Cache
00c1 e005       |    |		Load	0x0,0x5
00c2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c3 c5f5       |    |		Store	0x2,-0xb
00c4 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e002       |    |		Load	0x0,0x2
00cc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00cd 4801       |H   |		Short_Literal	0x1
00ce 0092 0227  |   '|		Action	Push_String_Extended,0x227					; "demote_preprocess ( host_unit =>"
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 e003       |    |		Load	0x0,0x3
00d2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00d3 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
00d4 01cc       |    |		Execute	Vector,Catenate
00d5 0092 021d  |    |		Action	Push_String_Extended,0x21d					; ",remote_unit_name => "
00d7 01cc       |    |		Execute	Vector,Catenate
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 01cc       |    |		Execute	Vector,Catenate
00da 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
00dc 01cc       |    |		Execute	Vector,Catenate
00dd e5fd       |    |		Load	0x2,-0x3
00de 01cc       |    |		Execute	Vector,Catenate
00df 0092 021f  |    |		Action	Push_String_Extended,0x21f					; ",remote_machine => "
00e1 01cc       |    |		Execute	Vector,Catenate
00e2 e5fc       |    |		Load	0x2,-0x4
00e3 01cc       |    |		Execute	Vector,Catenate
00e4 0092 0220  |    |		Action	Push_String_Extended,0x220					; ",remote_directory => "
00e6 01cc       |    |		Execute	Vector,Catenate
00e7 e5fb       |    |		Load	0x2,-0x5
00e8 01cc       |    |		Execute	Vector,Catenate
00e9 e004       |    |		Load	0x0,0x4
00ea 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00eb e5fa       |    |		Load	0x2,-0x6
00ec 4800       |H   |		Short_Literal	0x0
00ed 00ea       |    |		Load_Encached	Null_String_Cache
00ee 00ea       |    |		Load_Encached	Null_String_Cache
00ef e005       |    |		Load	0x0,0x5
00f0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00f1 c5fa       |    |		Store	0x2,-0x6
00f2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00f3 0000 0000  |    |		.BLANK	0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e002       |    |		Load	0x0,0x2
00fc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00fd 4801       |H   |		Short_Literal	0x1
00fe 0092 0228  |   (|		Action	Push_String_Extended,0x228					; "demote_postprocess ( host_unit =>"
0100 e5ff       |    |		Load	0x2,-0x1
0101 e003       |    |		Load	0x0,0x3
0102 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0103 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0104 01cc       |    |		Execute	Vector,Catenate
0105 0092 021d  |    |		Action	Push_String_Extended,0x21d					; ",remote_unit_name => "
0107 01cc       |    |		Execute	Vector,Catenate
0108 e5fe       |    |		Load	0x2,-0x2
0109 01cc       |    |		Execute	Vector,Catenate
010a 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
010c 01cc       |    |		Execute	Vector,Catenate
010d e5fd       |    |		Load	0x2,-0x3
010e 01cc       |    |		Execute	Vector,Catenate
010f 0092 021f  |    |		Action	Push_String_Extended,0x21f					; ",remote_machine => "
0111 01cc       |    |		Execute	Vector,Catenate
0112 e5fc       |    |		Load	0x2,-0x4
0113 01cc       |    |		Execute	Vector,Catenate
0114 0092 0220  |    |		Action	Push_String_Extended,0x220					; ",remote_directory => "
0116 01cc       |    |		Execute	Vector,Catenate
0117 e5fb       |    |		Load	0x2,-0x5
0118 01cc       |    |		Execute	Vector,Catenate
0119 e004       |    |		Load	0x0,0x4
011a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011b e5fa       |    |		Load	0x2,-0x6
011c 4800       |H   |		Short_Literal	0x0
011d 00ea       |    |		Load_Encached	Null_String_Cache
011e 00ea       |    |		Load_Encached	Null_String_Cache
011f e005       |    |		Load	0x0,0x5
0120 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0121 c5fa       |    |		Store	0x2,-0x6
0122 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0123 0000 0000  |    |		.BLANK	0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b e002       |    |		Load	0x0,0x2
012c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
012d 4801       |H   |		Short_Literal	0x1
012e 0092 0229  |   )|		Action	Push_String_Extended,0x229					; "retrieve_associated_files_preprocess ( host_unit =>"
0130 e5ff       |    |		Load	0x2,-0x1
0131 e003       |    |		Load	0x0,0x3
0132 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0133 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0134 01cc       |    |		Execute	Vector,Catenate
0135 0092 021d  |    |		Action	Push_String_Extended,0x21d					; ",remote_unit_name => "
0137 01cc       |    |		Execute	Vector,Catenate
0138 e5fe       |    |		Load	0x2,-0x2
0139 01cc       |    |		Execute	Vector,Catenate
013a 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
013c 01cc       |    |		Execute	Vector,Catenate
013d e5fd       |    |		Load	0x2,-0x3
013e 01cc       |    |		Execute	Vector,Catenate
013f 0092 021f  |    |		Action	Push_String_Extended,0x21f					; ",remote_machine => "
0141 01cc       |    |		Execute	Vector,Catenate
0142 e5fc       |    |		Load	0x2,-0x4
0143 01cc       |    |		Execute	Vector,Catenate
0144 0092 0220  |    |		Action	Push_String_Extended,0x220					; ",remote_directory => "
0146 01cc       |    |		Execute	Vector,Catenate
0147 e5fb       |    |		Load	0x2,-0x5
0148 01cc       |    |		Execute	Vector,Catenate
0149 0092 022a  |   *|		Action	Push_String_Extended,0x22a					; ",remote_connection => Cannot display "
014b 01cc       |    |		Execute	Vector,Catenate
014c 0092 022b  |   +|		Action	Push_String_Extended,0x22b					; ",The_retrieve_condition => "
014e 01cc       |    |		Execute	Vector,Catenate
014f e5f9       |    |		Load	0x2,-0x7
0150 e006       |    |		Load	0x0,0x6
0151 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0152 011c       |    |		Execute	Any,Convert_Unchecked
0153 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0154 01cc       |    |		Execute	Vector,Catenate
0155 0092 022c  |   ,|		Action	Push_String_Extended,0x22c					; ",phases => "
0157 01cc       |    |		Execute	Vector,Catenate
0158 4801       |H   |		Short_Literal	0x1
0159 e5f8       |    |		Load	0x2,-0x8
015a 01d7       |    |		Execute	Vector,Field_Read
015b 00e1       |    |		Load_Encached	Boolean_Cache
015c 011c       |    |		Execute	Any,Convert_Unchecked
015d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
015e 01cc       |    |		Execute	Vector,Catenate
015f e004       |    |		Load	0x0,0x4
0160 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0161 e5f7       |    |		Load	0x2,-0x9
0162 4800       |H   |		Short_Literal	0x0
0163 00ea       |    |		Load_Encached	Null_String_Cache
0164 00ea       |    |		Load_Encached	Null_String_Cache
0165 e005       |    |		Load	0x0,0x5
0166 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0167 c5f7       |    |		Store	0x2,-0x9
0168 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e002       |    |		Load	0x0,0x2
0174 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0175 4801       |H   |		Short_Literal	0x1
0176 0092 022d  |   -|		Action	Push_String_Extended,0x22d					; "retrieve_associated_files_postprocess ( host_unit =>"
0178 e5ff       |    |		Load	0x2,-0x1
0179 e003       |    |		Load	0x0,0x3
017a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
017b 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
017c 01cc       |    |		Execute	Vector,Catenate
017d 0092 021d  |    |		Action	Push_String_Extended,0x21d					; ",remote_unit_name => "
017f 01cc       |    |		Execute	Vector,Catenate
0180 e5fe       |    |		Load	0x2,-0x2
0181 01cc       |    |		Execute	Vector,Catenate
0182 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
0184 01cc       |    |		Execute	Vector,Catenate
0185 e5fd       |    |		Load	0x2,-0x3
0186 01cc       |    |		Execute	Vector,Catenate
0187 0092 021f  |    |		Action	Push_String_Extended,0x21f					; ",remote_machine => "
0189 01cc       |    |		Execute	Vector,Catenate
018a e5fc       |    |		Load	0x2,-0x4
018b 01cc       |    |		Execute	Vector,Catenate
018c 0092 0220  |    |		Action	Push_String_Extended,0x220					; ",remote_directory => "
018e 01cc       |    |		Execute	Vector,Catenate
018f e5fb       |    |		Load	0x2,-0x5
0190 01cc       |    |		Execute	Vector,Catenate
0191 0092 022a  |   *|		Action	Push_String_Extended,0x22a					; ",remote_connection => Cannot display "
0193 01cc       |    |		Execute	Vector,Catenate
0194 0092 022b  |   +|		Action	Push_String_Extended,0x22b					; ",The_retrieve_condition => "
0196 01cc       |    |		Execute	Vector,Catenate
0197 e5f9       |    |		Load	0x2,-0x7
0198 e006       |    |		Load	0x0,0x6
0199 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019a 011c       |    |		Execute	Any,Convert_Unchecked
019b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
019c 01cc       |    |		Execute	Vector,Catenate
019d 0092 022c  |   ,|		Action	Push_String_Extended,0x22c					; ",phases => "
019f 01cc       |    |		Execute	Vector,Catenate
01a0 4801       |H   |		Short_Literal	0x1
01a1 e5f8       |    |		Load	0x2,-0x8
01a2 01d7       |    |		Execute	Vector,Field_Read
01a3 00e1       |    |		Load_Encached	Boolean_Cache
01a4 011c       |    |		Execute	Any,Convert_Unchecked
01a5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a6 01cc       |    |		Execute	Vector,Catenate
01a7 e004       |    |		Load	0x0,0x4
01a8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a9 e5f7       |    |		Load	0x2,-0x9
01aa 4800       |H   |		Short_Literal	0x0
01ab 00ea       |    |		Load_Encached	Null_String_Cache
01ac 00ea       |    |		Load_Encached	Null_String_Cache
01ad e005       |    |		Load	0x0,0x5
01ae 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01af c5f7       |    |		Store	0x2,-0x9
01b0 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb e002       |    |		Load	0x0,0x2
01bc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01bd 4801       |H   |		Short_Literal	0x1
01be 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; "build_default_target_name ( host_unit =>"
01c0 e5ff       |    |		Load	0x2,-0x1
01c1 e003       |    |		Load	0x0,0x3
01c2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c3 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
01c4 01cc       |    |		Execute	Vector,Catenate
01c5 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",suffix_type => "
01c7 01cc       |    |		Execute	Vector,Catenate
01c8 e5fe       |    |		Load	0x2,-0x2
01c9 e006       |    |		Load	0x0,0x6
01ca 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01cb 011c       |    |		Execute	Any,Convert_Unchecked
01cc 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01cd 01cc       |    |		Execute	Vector,Catenate
01ce 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",serial_number => "
01d0 01cc       |    |		Execute	Vector,Catenate
01d1 e5fd       |    |		Load	0x2,-0x3
01d2 00e0       |    |		Load_Encached	Standard_Cache
01d3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d4 01cc       |    |		Execute	Vector,Catenate
01d5 e004       |    |		Load	0x0,0x4
01d6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d7 00ea       |    |		Load_Encached	Null_String_Cache
01d8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01d9 0000 0000  |    |		.BLANK	0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e002       |    |		Load	0x0,0x2
01e4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01e5 4801       |H   |		Short_Literal	0x1
01e6 0092 0231  |   1|		Action	Push_String_Extended,0x231					; "change_remote_context_preprocess ( remote_directory =>"
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 01cc       |    |		Execute	Vector,Catenate
01ea 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
01ec 01cc       |    |		Execute	Vector,Catenate
01ed e5fe       |    |		Load	0x2,-0x2
01ee 01cc       |    |		Execute	Vector,Catenate
01ef 0092 0232  |   2|		Action	Push_String_Extended,0x232					; ",remote_connection => cannot be displayed "
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 e004       |    |		Load	0x0,0x4
01f3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f4 e5fc       |    |		Load	0x2,-0x4
01f5 4800       |H   |		Short_Literal	0x0
01f6 00ea       |    |		Load_Encached	Null_String_Cache
01f7 00ea       |    |		Load_Encached	Null_String_Cache
01f8 e005       |    |		Load	0x0,0x5
01f9 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01fa c5fc       |    |		Store	0x2,-0x4
01fb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e002       |    |		Load	0x0,0x2
0204 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0205 4801       |H   |		Short_Literal	0x1
0206 0092 0233  |   3|		Action	Push_String_Extended,0x233					; "change_remote_context_postprocess ( remote_directory =>"
0208 e5ff       |    |		Load	0x2,-0x1
0209 01cc       |    |		Execute	Vector,Catenate
020a 0092 021e  |    |		Action	Push_String_Extended,0x21e					; ",remote_library => "
020c 01cc       |    |		Execute	Vector,Catenate
020d e5fe       |    |		Load	0x2,-0x2
020e 01cc       |    |		Execute	Vector,Catenate
020f 0092 0232  |   2|		Action	Push_String_Extended,0x232					; ",remote_connection => cannot be displayed "
0211 01cc       |    |		Execute	Vector,Catenate
0212 e004       |    |		Load	0x0,0x4
0213 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0214 e5fc       |    |		Load	0x2,-0x4
0215 4800       |H   |		Short_Literal	0x0
0216 00ea       |    |		Load_Encached	Null_String_Cache
0217 00ea       |    |		Load_Encached	Null_String_Cache
0218 e005       |    |		Load	0x0,0x5
0219 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
021a c5fc       |    |		Store	0x2,-0x4
021b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
021c ; --------------------------------------------------------------------------------------
021c ; STRING TABLE
021c ; --------------------------------------------------------------------------------------
021c 0032       | 2  |		.STRTAB	0x0032->0x0235							; "promote_preprocess ( host_unit =>"
021d 0051       | Q  |		.STRTAB	0x0051->0x0245							; ",remote_unit_name => "
021e 0064       | d  |		.STRTAB	0x0064->0x0250							; ",remote_library => "
021f 0075       | u  |		.STRTAB	0x0075->0x0259							; ",remote_machine => "
0220 0086       |    |		.STRTAB	0x0086->0x0263							; ",remote_directory => "
0221 0099       |    |		.STRTAB	0x0099->0x026d							; ",pre_options => "
0222 00a7       |    |		.STRTAB	0x00a7->0x0275							; ",post_options => "
0223 00b6       |    |		.STRTAB	0x00b6->0x027e							; ",option_separator => "
0224 00c9       |    |		.STRTAB	0x00c9->0x0288							; ",remote_connection => cannot display"
0225 00eb       |    |		.STRTAB	0x00eb->0x029a							; ",is_secondary => "
0226 00fa       |    |		.STRTAB	0x00fa->0x02a3							; "promote_postprocess ( host_unit =>"
0227 011a       |    |		.STRTAB	0x011a->0x02b4							; "demote_preprocess ( host_unit =>"
0228 0138       | 8  |		.STRTAB	0x0138->0x02c4							; "demote_postprocess ( host_unit =>"
0229 0157       | W  |		.STRTAB	0x0157->0x02d4							; "retrieve_associated_files_preprocess ( host_unit =>"
022a 0188       |    |		.STRTAB	0x0188->0x02ee							; ",remote_connection => Cannot display "
022b 01ab       |    |		.STRTAB	0x01ab->0x0300							; ",The_retrieve_condition => "
022c 01c4       |    |		.STRTAB	0x01c4->0x030e							; ",phases => "
022d 01cd       |    |		.STRTAB	0x01cd->0x0313							; "retrieve_associated_files_postprocess ( host_unit =>"
022e 01ff       |    |		.STRTAB	0x01ff->0x032d							; "build_default_target_name ( host_unit =>"
022f 0225       | %  |		.STRTAB	0x0225->0x0341							; ",suffix_type => "
0230 0233       | 3  |		.STRTAB	0x0233->0x0349							; ",serial_number => "
0231 0243       | C  |		.STRTAB	0x0243->0x0352							; "change_remote_context_preprocess ( remote_directory =>"
0232 0277       | w  |		.STRTAB	0x0277->0x036d							; ",remote_connection => cannot be displayed "
0233 029f       |    |		.STRTAB	0x029f->0x0382							; "change_remote_context_postprocess ( remote_directory =>"
0234 02d4       |    |		.STREND 0x02d4->0x039e
0235 7072 6f6d  |prom|		.STRTAB_STRINGS
039e 0000 0000  |    |		.XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug Table
03a0 ; --------------------------------------------------------------------------------------
03a0 0004 0003  |    |		.DEBUG4	0x0004,0x0003,0xc056,0x0000,0x0001,0x000b
03a6 000b 03d2  |    |		.DBG4T	0x000b,0x03d2,0x8000,0x0000
03aa 001e 03dd  |    |		.DBG4T	0x001e,0x03dd,0x8000,0x0000
03ae 003b 03e8  | ;  |		.DBG4T	0x003b,0x03e8,0x0001,0x0000
03b2 0083 03ec  |    |		.DBG4T	0x0083,0x03ec,0x0001,0x0000
03b6 00cb 03f0  |    |		.DBG4T	0x00cb,0x03f0,0x0001,0x0000
03ba 00fb 03f4  |    |		.DBG4T	0x00fb,0x03f4,0x0001,0x0000
03be 012b 03f8  | +  |		.DBG4T	0x012b,0x03f8,0x0001,0x0000
03c2 0173 03fc  | s  |		.DBG4T	0x0173,0x03fc,0x0001,0x0000
03c6 01bb 0400  |    |		.DBG4T	0x01bb,0x0400,0x0002,0x0000
03ca 01e3 0404  |    |		.DBG4T	0x01e3,0x0404,0x0001,0x0000
03ce 0203 0408  |    |		.DBG4T	0x0203,0x0408,0x0001,0x0000
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug chain
03d2 ; --------------------------------------------------------------------------------------
03d2 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03d4 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b
03dd ; --------------------------------------------------------------------------------------
03dd ; Debug chain
03dd ; --------------------------------------------------------------------------------------
03dd 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03df 001e 0020  |    |		.DBGLNO	0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug chain
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03ea 003b 0075  | ; u|		.DBGLNO	0x003b,0x0075
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug chain
03ec ; --------------------------------------------------------------------------------------
03ec 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03ee 0083 00bd  |    |		.DBGLNO	0x0083,0x00bd
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug chain
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03f2 00cb 00eb  |    |		.DBGLNO	0x00cb,0x00eb
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug chain
03f4 ; --------------------------------------------------------------------------------------
03f4 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03f6 00fb 011b  |    |		.DBGLNO	0x00fb,0x011b
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug chain
03f8 ; --------------------------------------------------------------------------------------
03f8 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fa 012b 0161  | + a|		.DBGLNO	0x012b,0x0161
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug chain
03fc ; --------------------------------------------------------------------------------------
03fc 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fe 0173 01a9  | s  |		.DBGLNO	0x0173,0x01a9
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug chain
0400 ; --------------------------------------------------------------------------------------
0400 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0402 01bb 01d7  |    |		.DBGLNO	0x01bb,0x01d7
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug chain
0404 ; --------------------------------------------------------------------------------------
0404 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0406 01e3 01f4  |    |		.DBGLNO	0x01e3,0x01f4
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0000 0002  |    |		.DBGLEN	0x0000,0x0002
040a 0203 0214  |    |		.DBGLNO	0x0203,0x0214
040c 0000 0000  |    |		.BLANK	0000[0x1f4]