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

⟦f2634715a⟧

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

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 03a8       |    |		.CONST	0x03a8								; 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 003c       | <  |		.CONST	0x003c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0011 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001c c216       |    |		Store	0x1,0x16
001d 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
001f c217       |    |		Store	0x1,0x17
0020 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0022 c213       |    |		Store	0x1,0x13
0023 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0025 c214       |    |		Store	0x1,0x14
0026 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0028 c215       |    |		Store	0x1,0x15
0029 00bf       |    |		Action	Accept_Activation
002a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
003b 00c7       |    |		Action	Elaborate_Subprogram
003c			BODY_0008:
003c 00bc       |    |		Action	Signal_Activated
003d 00bb       |    |		Action	Signal_Completion
003e 0000 0000  |    |		.XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e001       |    |		Load	0x0,0x1
0044 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0045 4801       |H   |		Short_Literal	0x1
0046 0092 0224  |   $|		Action	Push_String_Extended,0x224					; "promote_preprocess ( host_unit =>"
0048 e5ff       |    |		Load	0x2,-0x1
0049 e002       |    |		Load	0x0,0x2
004a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
004b 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
004c 01cc       |    |		Execute	Vector,Catenate
004d 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",remote_unit_name => "
004f 01cc       |    |		Execute	Vector,Catenate
0050 e5fe       |    |		Load	0x2,-0x2
0051 01cc       |    |		Execute	Vector,Catenate
0052 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
0054 01cc       |    |		Execute	Vector,Catenate
0055 e5fd       |    |		Load	0x2,-0x3
0056 01cc       |    |		Execute	Vector,Catenate
0057 0092 0227  |   '|		Action	Push_String_Extended,0x227					; ",remote_machine => "
0059 01cc       |    |		Execute	Vector,Catenate
005a e5fc       |    |		Load	0x2,-0x4
005b 01cc       |    |		Execute	Vector,Catenate
005c 0092 0228  |   (|		Action	Push_String_Extended,0x228					; ",remote_directory => "
005e 01cc       |    |		Execute	Vector,Catenate
005f e5fb       |    |		Load	0x2,-0x5
0060 01cc       |    |		Execute	Vector,Catenate
0061 0092 0229  |   )|		Action	Push_String_Extended,0x229					; ",pre_options => "
0063 01cc       |    |		Execute	Vector,Catenate
0064 e5fa       |    |		Load	0x2,-0x6
0065 01cc       |    |		Execute	Vector,Catenate
0066 0092 022a  |   *|		Action	Push_String_Extended,0x22a					; ",post_options => "
0068 01cc       |    |		Execute	Vector,Catenate
0069 e5f9       |    |		Load	0x2,-0x7
006a 01cc       |    |		Execute	Vector,Catenate
006b 0092 022b  |   +|		Action	Push_String_Extended,0x22b					; ",option_separator => "
006d 01cc       |    |		Execute	Vector,Catenate
006e e5f8       |    |		Load	0x2,-0x8
006f 01cc       |    |		Execute	Vector,Catenate
0070 0092 022c  |   ,|		Action	Push_String_Extended,0x22c					; ",remote_connection => cannot display"
0072 01cc       |    |		Execute	Vector,Catenate
0073 0092 022d  |   -|		Action	Push_String_Extended,0x22d					; ",is_secondary => "
0075 01cc       |    |		Execute	Vector,Catenate
0076 e5f6       |    |		Load	0x2,-0xa
0077 00e1       |    |		Load_Encached	Boolean_Cache
0078 011c       |    |		Execute	Any,Convert_Unchecked
0079 1c01       |    |		Execute_Immediate	Run_Utility,0x1
007a 01cc       |    |		Execute	Vector,Catenate
007b e003       |    |		Load	0x0,0x3
007c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
007d e5f5       |    |		Load	0x2,-0xb
007e 4800       |H   |		Short_Literal	0x0
007f 00ea       |    |		Load_Encached	Null_String_Cache
0080 00ea       |    |		Load_Encached	Null_String_Cache
0081 e004       |    |		Load	0x0,0x4
0082 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0083 c5f5       |    |		Store	0x2,-0xb
0084 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0085 0000 0000  |    |		.XXX[0x3]
0087 0000       |    |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e001       |    |		Load	0x0,0x1
008c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
008d 4801       |H   |		Short_Literal	0x1
008e 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; "promote_postprocess ( host_unit =>"
0090 e5ff       |    |		Load	0x2,-0x1
0091 e002       |    |		Load	0x0,0x2
0092 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0093 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0094 01cc       |    |		Execute	Vector,Catenate
0095 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",remote_unit_name => "
0097 01cc       |    |		Execute	Vector,Catenate
0098 e5fe       |    |		Load	0x2,-0x2
0099 01cc       |    |		Execute	Vector,Catenate
009a 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
009c 01cc       |    |		Execute	Vector,Catenate
009d e5fd       |    |		Load	0x2,-0x3
009e 01cc       |    |		Execute	Vector,Catenate
009f 0092 0227  |   '|		Action	Push_String_Extended,0x227					; ",remote_machine => "
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 e5fc       |    |		Load	0x2,-0x4
00a3 01cc       |    |		Execute	Vector,Catenate
00a4 0092 0228  |   (|		Action	Push_String_Extended,0x228					; ",remote_directory => "
00a6 01cc       |    |		Execute	Vector,Catenate
00a7 e5fb       |    |		Load	0x2,-0x5
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 0092 0229  |   )|		Action	Push_String_Extended,0x229					; ",pre_options => "
00ab 01cc       |    |		Execute	Vector,Catenate
00ac e5fa       |    |		Load	0x2,-0x6
00ad 01cc       |    |		Execute	Vector,Catenate
00ae 0092 022a  |   *|		Action	Push_String_Extended,0x22a					; ",post_options => "
00b0 01cc       |    |		Execute	Vector,Catenate
00b1 e5f9       |    |		Load	0x2,-0x7
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 0092 022b  |   +|		Action	Push_String_Extended,0x22b					; ",option_separator => "
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 e5f8       |    |		Load	0x2,-0x8
00b7 01cc       |    |		Execute	Vector,Catenate
00b8 0092 022c  |   ,|		Action	Push_String_Extended,0x22c					; ",remote_connection => cannot display"
00ba 01cc       |    |		Execute	Vector,Catenate
00bb 0092 022d  |   -|		Action	Push_String_Extended,0x22d					; ",is_secondary => "
00bd 01cc       |    |		Execute	Vector,Catenate
00be e5f6       |    |		Load	0x2,-0xa
00bf 00e1       |    |		Load_Encached	Boolean_Cache
00c0 011c       |    |		Execute	Any,Convert_Unchecked
00c1 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00c2 01cc       |    |		Execute	Vector,Catenate
00c3 e003       |    |		Load	0x0,0x3
00c4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c5 e5f5       |    |		Load	0x2,-0xb
00c6 4800       |H   |		Short_Literal	0x0
00c7 00ea       |    |		Load_Encached	Null_String_Cache
00c8 00ea       |    |		Load_Encached	Null_String_Cache
00c9 e004       |    |		Load	0x0,0x4
00ca 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00cb c5f5       |    |		Store	0x2,-0xb
00cc 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e001       |    |		Load	0x0,0x1
00d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d5 4801       |H   |		Short_Literal	0x1
00d6 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; "demote_preprocess ( host_unit =>"
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 e002       |    |		Load	0x0,0x2
00da 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00db 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
00dc 01cc       |    |		Execute	Vector,Catenate
00dd 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",remote_unit_name => "
00df 01cc       |    |		Execute	Vector,Catenate
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 01cc       |    |		Execute	Vector,Catenate
00e2 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
00e4 01cc       |    |		Execute	Vector,Catenate
00e5 e5fd       |    |		Load	0x2,-0x3
00e6 01cc       |    |		Execute	Vector,Catenate
00e7 0092 0227  |   '|		Action	Push_String_Extended,0x227					; ",remote_machine => "
00e9 01cc       |    |		Execute	Vector,Catenate
00ea e5fc       |    |		Load	0x2,-0x4
00eb 01cc       |    |		Execute	Vector,Catenate
00ec 0092 0228  |   (|		Action	Push_String_Extended,0x228					; ",remote_directory => "
00ee 01cc       |    |		Execute	Vector,Catenate
00ef e5fb       |    |		Load	0x2,-0x5
00f0 01cc       |    |		Execute	Vector,Catenate
00f1 e003       |    |		Load	0x0,0x3
00f2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f3 e5fa       |    |		Load	0x2,-0x6
00f4 4800       |H   |		Short_Literal	0x0
00f5 00ea       |    |		Load_Encached	Null_String_Cache
00f6 00ea       |    |		Load_Encached	Null_String_Cache
00f7 e004       |    |		Load	0x0,0x4
00f8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00f9 c5fa       |    |		Store	0x2,-0x6
00fa 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 e001       |    |		Load	0x0,0x1
0104 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0105 4801       |H   |		Short_Literal	0x1
0106 0092 0230  |   0|		Action	Push_String_Extended,0x230					; "demote_postprocess ( host_unit =>"
0108 e5ff       |    |		Load	0x2,-0x1
0109 e002       |    |		Load	0x0,0x2
010a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
010b 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
010c 01cc       |    |		Execute	Vector,Catenate
010d 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",remote_unit_name => "
010f 01cc       |    |		Execute	Vector,Catenate
0110 e5fe       |    |		Load	0x2,-0x2
0111 01cc       |    |		Execute	Vector,Catenate
0112 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
0114 01cc       |    |		Execute	Vector,Catenate
0115 e5fd       |    |		Load	0x2,-0x3
0116 01cc       |    |		Execute	Vector,Catenate
0117 0092 0227  |   '|		Action	Push_String_Extended,0x227					; ",remote_machine => "
0119 01cc       |    |		Execute	Vector,Catenate
011a e5fc       |    |		Load	0x2,-0x4
011b 01cc       |    |		Execute	Vector,Catenate
011c 0092 0228  |   (|		Action	Push_String_Extended,0x228					; ",remote_directory => "
011e 01cc       |    |		Execute	Vector,Catenate
011f e5fb       |    |		Load	0x2,-0x5
0120 01cc       |    |		Execute	Vector,Catenate
0121 e003       |    |		Load	0x0,0x3
0122 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0123 e5fa       |    |		Load	0x2,-0x6
0124 4800       |H   |		Short_Literal	0x0
0125 00ea       |    |		Load_Encached	Null_String_Cache
0126 00ea       |    |		Load_Encached	Null_String_Cache
0127 e004       |    |		Load	0x0,0x4
0128 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0129 c5fa       |    |		Store	0x2,-0x6
012a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
012b 0000 0000  |    |		.BLANK	0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 e001       |    |		Load	0x0,0x1
0134 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0135 4801       |H   |		Short_Literal	0x1
0136 0092 0231  |   1|		Action	Push_String_Extended,0x231					; "retrieve_associated_files_preprocess ( host_unit =>"
0138 e5ff       |    |		Load	0x2,-0x1
0139 e002       |    |		Load	0x0,0x2
013a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
013b 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
013c 01cc       |    |		Execute	Vector,Catenate
013d 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",remote_unit_name => "
013f 01cc       |    |		Execute	Vector,Catenate
0140 e5fe       |    |		Load	0x2,-0x2
0141 01cc       |    |		Execute	Vector,Catenate
0142 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
0144 01cc       |    |		Execute	Vector,Catenate
0145 e5fd       |    |		Load	0x2,-0x3
0146 01cc       |    |		Execute	Vector,Catenate
0147 0092 0227  |   '|		Action	Push_String_Extended,0x227					; ",remote_machine => "
0149 01cc       |    |		Execute	Vector,Catenate
014a e5fc       |    |		Load	0x2,-0x4
014b 01cc       |    |		Execute	Vector,Catenate
014c 0092 0228  |   (|		Action	Push_String_Extended,0x228					; ",remote_directory => "
014e 01cc       |    |		Execute	Vector,Catenate
014f e5fb       |    |		Load	0x2,-0x5
0150 01cc       |    |		Execute	Vector,Catenate
0151 0092 0232  |   2|		Action	Push_String_Extended,0x232					; ",remote_connection => Cannot display "
0153 01cc       |    |		Execute	Vector,Catenate
0154 0092 0233  |   3|		Action	Push_String_Extended,0x233					; ",The_retrieve_condition => "
0156 01cc       |    |		Execute	Vector,Catenate
0157 e5f9       |    |		Load	0x2,-0x7
0158 e005       |    |		Load	0x0,0x5
0159 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015a 011c       |    |		Execute	Any,Convert_Unchecked
015b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
015c 01cc       |    |		Execute	Vector,Catenate
015d 0092 0234  |   4|		Action	Push_String_Extended,0x234					; ",phases => "
015f 01cc       |    |		Execute	Vector,Catenate
0160 4801       |H   |		Short_Literal	0x1
0161 e5f8       |    |		Load	0x2,-0x8
0162 01d7       |    |		Execute	Vector,Field_Read
0163 00e1       |    |		Load_Encached	Boolean_Cache
0164 011c       |    |		Execute	Any,Convert_Unchecked
0165 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0166 01cc       |    |		Execute	Vector,Catenate
0167 e003       |    |		Load	0x0,0x3
0168 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0169 e5f7       |    |		Load	0x2,-0x9
016a 4800       |H   |		Short_Literal	0x0
016b 00ea       |    |		Load_Encached	Null_String_Cache
016c 00ea       |    |		Load_Encached	Null_String_Cache
016d e004       |    |		Load	0x0,0x4
016e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
016f c5f7       |    |		Store	0x2,-0x9
0170 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b e001       |    |		Load	0x0,0x1
017c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
017d 4801       |H   |		Short_Literal	0x1
017e 0092 0235  |   5|		Action	Push_String_Extended,0x235					; "retrieve_associated_files_postprocess ( host_unit =>"
0180 e5ff       |    |		Load	0x2,-0x1
0181 e002       |    |		Load	0x0,0x2
0182 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0183 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0184 01cc       |    |		Execute	Vector,Catenate
0185 0092 0225  |   %|		Action	Push_String_Extended,0x225					; ",remote_unit_name => "
0187 01cc       |    |		Execute	Vector,Catenate
0188 e5fe       |    |		Load	0x2,-0x2
0189 01cc       |    |		Execute	Vector,Catenate
018a 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
018c 01cc       |    |		Execute	Vector,Catenate
018d e5fd       |    |		Load	0x2,-0x3
018e 01cc       |    |		Execute	Vector,Catenate
018f 0092 0227  |   '|		Action	Push_String_Extended,0x227					; ",remote_machine => "
0191 01cc       |    |		Execute	Vector,Catenate
0192 e5fc       |    |		Load	0x2,-0x4
0193 01cc       |    |		Execute	Vector,Catenate
0194 0092 0228  |   (|		Action	Push_String_Extended,0x228					; ",remote_directory => "
0196 01cc       |    |		Execute	Vector,Catenate
0197 e5fb       |    |		Load	0x2,-0x5
0198 01cc       |    |		Execute	Vector,Catenate
0199 0092 0232  |   2|		Action	Push_String_Extended,0x232					; ",remote_connection => Cannot display "
019b 01cc       |    |		Execute	Vector,Catenate
019c 0092 0233  |   3|		Action	Push_String_Extended,0x233					; ",The_retrieve_condition => "
019e 01cc       |    |		Execute	Vector,Catenate
019f e5f9       |    |		Load	0x2,-0x7
01a0 e005       |    |		Load	0x0,0x5
01a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a2 011c       |    |		Execute	Any,Convert_Unchecked
01a3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a4 01cc       |    |		Execute	Vector,Catenate
01a5 0092 0234  |   4|		Action	Push_String_Extended,0x234					; ",phases => "
01a7 01cc       |    |		Execute	Vector,Catenate
01a8 4801       |H   |		Short_Literal	0x1
01a9 e5f8       |    |		Load	0x2,-0x8
01aa 01d7       |    |		Execute	Vector,Field_Read
01ab 00e1       |    |		Load_Encached	Boolean_Cache
01ac 011c       |    |		Execute	Any,Convert_Unchecked
01ad 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01ae 01cc       |    |		Execute	Vector,Catenate
01af e003       |    |		Load	0x0,0x3
01b0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01b1 e5f7       |    |		Load	0x2,-0x9
01b2 4800       |H   |		Short_Literal	0x0
01b3 00ea       |    |		Load_Encached	Null_String_Cache
01b4 00ea       |    |		Load_Encached	Null_String_Cache
01b5 e004       |    |		Load	0x0,0x4
01b6 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01b7 c5f7       |    |		Store	0x2,-0x9
01b8 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
01b9 0000 0000  |    |		.BLANK	0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e001       |    |		Load	0x0,0x1
01c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c5 4801       |H   |		Short_Literal	0x1
01c6 0092 0236  |   6|		Action	Push_String_Extended,0x236					; "build_default_target_name ( host_unit =>"
01c8 e5ff       |    |		Load	0x2,-0x1
01c9 e002       |    |		Load	0x0,0x2
01ca 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01cb 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
01cc 01cc       |    |		Execute	Vector,Catenate
01cd 0092 0237  |   7|		Action	Push_String_Extended,0x237					; ",suffix_type => "
01cf 01cc       |    |		Execute	Vector,Catenate
01d0 e5fe       |    |		Load	0x2,-0x2
01d1 e005       |    |		Load	0x0,0x5
01d2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01d3 011c       |    |		Execute	Any,Convert_Unchecked
01d4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01d5 01cc       |    |		Execute	Vector,Catenate
01d6 0092 0238  |   8|		Action	Push_String_Extended,0x238					; ",serial_number => "
01d8 01cc       |    |		Execute	Vector,Catenate
01d9 e5fd       |    |		Load	0x2,-0x3
01da 00e0       |    |		Load_Encached	Standard_Cache
01db 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01dc 01cc       |    |		Execute	Vector,Catenate
01dd e003       |    |		Load	0x0,0x3
01de 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01df 00ea       |    |		Load_Encached	Null_String_Cache
01e0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e001       |    |		Load	0x0,0x1
01ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ed 4801       |H   |		Short_Literal	0x1
01ee 0092 0239  |   9|		Action	Push_String_Extended,0x239					; "change_remote_context_preprocess ( remote_directory =>"
01f0 e5ff       |    |		Load	0x2,-0x1
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
01f4 01cc       |    |		Execute	Vector,Catenate
01f5 e5fe       |    |		Load	0x2,-0x2
01f6 01cc       |    |		Execute	Vector,Catenate
01f7 0092 023a  |   :|		Action	Push_String_Extended,0x23a					; ",remote_connection => cannot be displayed "
01f9 01cc       |    |		Execute	Vector,Catenate
01fa e003       |    |		Load	0x0,0x3
01fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01fc e5fc       |    |		Load	0x2,-0x4
01fd 4800       |H   |		Short_Literal	0x0
01fe 00ea       |    |		Load_Encached	Null_String_Cache
01ff 00ea       |    |		Load_Encached	Null_String_Cache
0200 e004       |    |		Load	0x0,0x4
0201 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0202 c5fc       |    |		Store	0x2,-0x4
0203 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b e001       |    |		Load	0x0,0x1
020c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
020d 4801       |H   |		Short_Literal	0x1
020e 0092 023b  |   ;|		Action	Push_String_Extended,0x23b					; "change_remote_context_postprocess ( remote_directory =>"
0210 e5ff       |    |		Load	0x2,-0x1
0211 01cc       |    |		Execute	Vector,Catenate
0212 0092 0226  |   &|		Action	Push_String_Extended,0x226					; ",remote_library => "
0214 01cc       |    |		Execute	Vector,Catenate
0215 e5fe       |    |		Load	0x2,-0x2
0216 01cc       |    |		Execute	Vector,Catenate
0217 0092 023a  |   :|		Action	Push_String_Extended,0x23a					; ",remote_connection => cannot be displayed "
0219 01cc       |    |		Execute	Vector,Catenate
021a e003       |    |		Load	0x0,0x3
021b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021c e5fc       |    |		Load	0x2,-0x4
021d 4800       |H   |		Short_Literal	0x0
021e 00ea       |    |		Load_Encached	Null_String_Cache
021f 00ea       |    |		Load_Encached	Null_String_Cache
0220 e004       |    |		Load	0x0,0x4
0221 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0222 c5fc       |    |		Store	0x2,-0x4
0223 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0224 ; --------------------------------------------------------------------------------------
0224 ; STRING TABLE
0224 ; --------------------------------------------------------------------------------------
0224 0032       | 2  |		.STRTAB	0x0032->0x023d							; "promote_preprocess ( host_unit =>"
0225 0051       | Q  |		.STRTAB	0x0051->0x024d							; ",remote_unit_name => "
0226 0064       | d  |		.STRTAB	0x0064->0x0258							; ",remote_library => "
0227 0075       | u  |		.STRTAB	0x0075->0x0261							; ",remote_machine => "
0228 0086       |    |		.STRTAB	0x0086->0x026b							; ",remote_directory => "
0229 0099       |    |		.STRTAB	0x0099->0x0275							; ",pre_options => "
022a 00a7       |    |		.STRTAB	0x00a7->0x027d							; ",post_options => "
022b 00b6       |    |		.STRTAB	0x00b6->0x0286							; ",option_separator => "
022c 00c9       |    |		.STRTAB	0x00c9->0x0290							; ",remote_connection => cannot display"
022d 00eb       |    |		.STRTAB	0x00eb->0x02a2							; ",is_secondary => "
022e 00fa       |    |		.STRTAB	0x00fa->0x02ab							; "promote_postprocess ( host_unit =>"
022f 011a       |    |		.STRTAB	0x011a->0x02bc							; "demote_preprocess ( host_unit =>"
0230 0138       | 8  |		.STRTAB	0x0138->0x02cc							; "demote_postprocess ( host_unit =>"
0231 0157       | W  |		.STRTAB	0x0157->0x02dc							; "retrieve_associated_files_preprocess ( host_unit =>"
0232 0188       |    |		.STRTAB	0x0188->0x02f6							; ",remote_connection => Cannot display "
0233 01ab       |    |		.STRTAB	0x01ab->0x0308							; ",The_retrieve_condition => "
0234 01c4       |    |		.STRTAB	0x01c4->0x0316							; ",phases => "
0235 01cd       |    |		.STRTAB	0x01cd->0x031b							; "retrieve_associated_files_postprocess ( host_unit =>"
0236 01ff       |    |		.STRTAB	0x01ff->0x0335							; "build_default_target_name ( host_unit =>"
0237 0225       | %  |		.STRTAB	0x0225->0x0349							; ",suffix_type => "
0238 0233       | 3  |		.STRTAB	0x0233->0x0351							; ",serial_number => "
0239 0243       | C  |		.STRTAB	0x0243->0x035a							; "change_remote_context_preprocess ( remote_directory =>"
023a 0277       | w  |		.STRTAB	0x0277->0x0375							; ",remote_connection => cannot be displayed "
023b 029f       |    |		.STRTAB	0x029f->0x038a							; "change_remote_context_postprocess ( remote_directory =>"
023c 02d4       |    |		.STREND 0x02d4->0x03a6
023d 7072 6f6d  |prom|		.STRTAB_STRINGS
03a6 0000 0000  |    |		.XXX[0x2]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug Table
03a8 ; --------------------------------------------------------------------------------------
03a8 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2f3b,0x0000,0x0001,0x000b
03ae 000b 03da  |    |		.DBG4T	0x000b,0x03da,0x8000,0x0000
03b2 002a 03e5  | *  |		.DBG4T	0x002a,0x03e5,0x8000,0x0000
03b6 0043 03f0  | C  |		.DBG4T	0x0043,0x03f0,0x0001,0x0000
03ba 008b 03f4  |    |		.DBG4T	0x008b,0x03f4,0x0001,0x0000
03be 00d3 03f8  |    |		.DBG4T	0x00d3,0x03f8,0x0001,0x0000
03c2 0103 03fc  |    |		.DBG4T	0x0103,0x03fc,0x0001,0x0000
03c6 0133 0400  | 3  |		.DBG4T	0x0133,0x0400,0x0001,0x0000
03ca 017b 0404  | {  |		.DBG4T	0x017b,0x0404,0x0001,0x0000
03ce 01c3 0408  |    |		.DBG4T	0x01c3,0x0408,0x0002,0x0000
03d2 01eb 040c  |    |		.DBG4T	0x01eb,0x040c,0x0001,0x0000
03d6 020b 0410  |    |		.DBG4T	0x020b,0x0410,0x0001,0x0000
03da ; --------------------------------------------------------------------------------------
03da ; Debug chain
03da ; --------------------------------------------------------------------------------------
03da 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03dc 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x001a,0x001d,0x0020,0x0023,0x0026
03e5 ; --------------------------------------------------------------------------------------
03e5 ; Debug chain
03e5 ; --------------------------------------------------------------------------------------
03e5 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03e7 002a 002c  | * ,|		.DBGLNO	0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug chain
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03f2 0043 007d  | C }|		.DBGLNO	0x0043,0x007d
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug chain
03f4 ; --------------------------------------------------------------------------------------
03f4 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03f6 008b 00c5  |    |		.DBGLNO	0x008b,0x00c5
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug chain
03f8 ; --------------------------------------------------------------------------------------
03f8 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fa 00d3 00f3  |    |		.DBGLNO	0x00d3,0x00f3
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug chain
03fc ; --------------------------------------------------------------------------------------
03fc 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fe 0103 0123  |   #|		.DBGLNO	0x0103,0x0123
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug chain
0400 ; --------------------------------------------------------------------------------------
0400 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0402 0133 0169  | 3 i|		.DBGLNO	0x0133,0x0169
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug chain
0404 ; --------------------------------------------------------------------------------------
0404 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0406 017b 01b1  | {  |		.DBGLNO	0x017b,0x01b1
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0000 0002  |    |		.DBGLEN	0x0000,0x0002
040a 01c3 01df  |    |		.DBGLNO	0x01c3,0x01df
040c ; --------------------------------------------------------------------------------------
040c ; Debug chain
040c ; --------------------------------------------------------------------------------------
040c 0000 0002  |    |		.DBGLEN	0x0000,0x0002
040e 01eb 01fc  |    |		.DBGLNO	0x01eb,0x01fc
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0412 020b 021c  |    |		.DBGLNO	0x020b,0x021c
0414 0000 0000  |    |		.BLANK	0000[0x1ec]