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

⟦88aa4fa42⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 03b0       |    |		.CONST	0x03b0								; 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 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0025 c214       |    |		Store	0x1,0x14
0026 029a 0213  |    |		Declare_Subprogram	INIT_0210,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 022c  |   ,|		Action	Push_String_Extended,0x22c					; "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 022d  |   -|		Action	Push_String_Extended,0x22d					; ",remote_unit_name => "
004f 01cc       |    |		Execute	Vector,Catenate
0050 e5fe       |    |		Load	0x2,-0x2
0051 01cc       |    |		Execute	Vector,Catenate
0052 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
0054 01cc       |    |		Execute	Vector,Catenate
0055 e5fd       |    |		Load	0x2,-0x3
0056 01cc       |    |		Execute	Vector,Catenate
0057 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",remote_machine => "
0059 01cc       |    |		Execute	Vector,Catenate
005a e5fc       |    |		Load	0x2,-0x4
005b 01cc       |    |		Execute	Vector,Catenate
005c 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",remote_directory => "
005e 01cc       |    |		Execute	Vector,Catenate
005f e5fb       |    |		Load	0x2,-0x5
0060 01cc       |    |		Execute	Vector,Catenate
0061 0092 0231  |   1|		Action	Push_String_Extended,0x231					; ",pre_options => "
0063 01cc       |    |		Execute	Vector,Catenate
0064 e5fa       |    |		Load	0x2,-0x6
0065 01cc       |    |		Execute	Vector,Catenate
0066 0092 0232  |   2|		Action	Push_String_Extended,0x232					; ",post_options => "
0068 01cc       |    |		Execute	Vector,Catenate
0069 e5f9       |    |		Load	0x2,-0x7
006a 01cc       |    |		Execute	Vector,Catenate
006b 0092 0233  |   3|		Action	Push_String_Extended,0x233					; ",option_separator => "
006d 01cc       |    |		Execute	Vector,Catenate
006e e5f8       |    |		Load	0x2,-0x8
006f 01cc       |    |		Execute	Vector,Catenate
0070 0092 0234  |   4|		Action	Push_String_Extended,0x234					; ",remote_connection => cannot display"
0072 01cc       |    |		Execute	Vector,Catenate
0073 0092 0235  |   5|		Action	Push_String_Extended,0x235					; ",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 0236  |   6|		Action	Push_String_Extended,0x236					; "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 022d  |   -|		Action	Push_String_Extended,0x22d					; ",remote_unit_name => "
0097 01cc       |    |		Execute	Vector,Catenate
0098 e5fe       |    |		Load	0x2,-0x2
0099 01cc       |    |		Execute	Vector,Catenate
009a 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
009c 01cc       |    |		Execute	Vector,Catenate
009d e5fd       |    |		Load	0x2,-0x3
009e 01cc       |    |		Execute	Vector,Catenate
009f 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",remote_machine => "
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 e5fc       |    |		Load	0x2,-0x4
00a3 01cc       |    |		Execute	Vector,Catenate
00a4 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",remote_directory => "
00a6 01cc       |    |		Execute	Vector,Catenate
00a7 e5fb       |    |		Load	0x2,-0x5
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 0092 0231  |   1|		Action	Push_String_Extended,0x231					; ",pre_options => "
00ab 01cc       |    |		Execute	Vector,Catenate
00ac e5fa       |    |		Load	0x2,-0x6
00ad 01cc       |    |		Execute	Vector,Catenate
00ae 0092 0232  |   2|		Action	Push_String_Extended,0x232					; ",post_options => "
00b0 01cc       |    |		Execute	Vector,Catenate
00b1 e5f9       |    |		Load	0x2,-0x7
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 0092 0233  |   3|		Action	Push_String_Extended,0x233					; ",option_separator => "
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 e5f8       |    |		Load	0x2,-0x8
00b7 01cc       |    |		Execute	Vector,Catenate
00b8 0092 0234  |   4|		Action	Push_String_Extended,0x234					; ",remote_connection => cannot display"
00ba 01cc       |    |		Execute	Vector,Catenate
00bb 0092 0235  |   5|		Action	Push_String_Extended,0x235					; ",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 0237  |   7|		Action	Push_String_Extended,0x237					; "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 022d  |   -|		Action	Push_String_Extended,0x22d					; ",remote_unit_name => "
00df 01cc       |    |		Execute	Vector,Catenate
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 01cc       |    |		Execute	Vector,Catenate
00e2 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
00e4 01cc       |    |		Execute	Vector,Catenate
00e5 e5fd       |    |		Load	0x2,-0x3
00e6 01cc       |    |		Execute	Vector,Catenate
00e7 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",remote_machine => "
00e9 01cc       |    |		Execute	Vector,Catenate
00ea e5fc       |    |		Load	0x2,-0x4
00eb 01cc       |    |		Execute	Vector,Catenate
00ec 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",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 0238  |   8|		Action	Push_String_Extended,0x238					; "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 022d  |   -|		Action	Push_String_Extended,0x22d					; ",remote_unit_name => "
010f 01cc       |    |		Execute	Vector,Catenate
0110 e5fe       |    |		Load	0x2,-0x2
0111 01cc       |    |		Execute	Vector,Catenate
0112 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
0114 01cc       |    |		Execute	Vector,Catenate
0115 e5fd       |    |		Load	0x2,-0x3
0116 01cc       |    |		Execute	Vector,Catenate
0117 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",remote_machine => "
0119 01cc       |    |		Execute	Vector,Catenate
011a e5fc       |    |		Load	0x2,-0x4
011b 01cc       |    |		Execute	Vector,Catenate
011c 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",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 0239  |   9|		Action	Push_String_Extended,0x239					; "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 022d  |   -|		Action	Push_String_Extended,0x22d					; ",remote_unit_name => "
013f 01cc       |    |		Execute	Vector,Catenate
0140 e5fe       |    |		Load	0x2,-0x2
0141 01cc       |    |		Execute	Vector,Catenate
0142 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
0144 01cc       |    |		Execute	Vector,Catenate
0145 e5fd       |    |		Load	0x2,-0x3
0146 01cc       |    |		Execute	Vector,Catenate
0147 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",remote_machine => "
0149 01cc       |    |		Execute	Vector,Catenate
014a e5fc       |    |		Load	0x2,-0x4
014b 01cc       |    |		Execute	Vector,Catenate
014c 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",remote_directory => "
014e 01cc       |    |		Execute	Vector,Catenate
014f e5fb       |    |		Load	0x2,-0x5
0150 01cc       |    |		Execute	Vector,Catenate
0151 0092 023a  |   :|		Action	Push_String_Extended,0x23a					; ",remote_connection => Cannot display "
0153 01cc       |    |		Execute	Vector,Catenate
0154 0092 023b  |   ;|		Action	Push_String_Extended,0x23b					; ",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 023c  |   <|		Action	Push_String_Extended,0x23c					; ",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 023d  |   =|		Action	Push_String_Extended,0x23d					; "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 022d  |   -|		Action	Push_String_Extended,0x22d					; ",remote_unit_name => "
0187 01cc       |    |		Execute	Vector,Catenate
0188 e5fe       |    |		Load	0x2,-0x2
0189 01cc       |    |		Execute	Vector,Catenate
018a 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
018c 01cc       |    |		Execute	Vector,Catenate
018d e5fd       |    |		Load	0x2,-0x3
018e 01cc       |    |		Execute	Vector,Catenate
018f 0092 022f  |   /|		Action	Push_String_Extended,0x22f					; ",remote_machine => "
0191 01cc       |    |		Execute	Vector,Catenate
0192 e5fc       |    |		Load	0x2,-0x4
0193 01cc       |    |		Execute	Vector,Catenate
0194 0092 0230  |   0|		Action	Push_String_Extended,0x230					; ",remote_directory => "
0196 01cc       |    |		Execute	Vector,Catenate
0197 e5fb       |    |		Load	0x2,-0x5
0198 01cc       |    |		Execute	Vector,Catenate
0199 0092 023a  |   :|		Action	Push_String_Extended,0x23a					; ",remote_connection => Cannot display "
019b 01cc       |    |		Execute	Vector,Catenate
019c 0092 023b  |   ;|		Action	Push_String_Extended,0x23b					; ",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 023c  |   <|		Action	Push_String_Extended,0x23c					; ",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 01cd       |    |		.CONST	0x01cd								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 e001       |    |		Load	0x0,0x1
01c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 e002       |    |		Load	0x0,0x2
01c7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c8 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01c9 e006       |    |		Load	0x0,0x6
01ca 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01cb 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01cc 0007       |    |		Action	Break_Optional
01cd			BODY_01c0:
01cd e001       |    |		Load	0x0,0x1
01ce 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01cf 4801       |H   |		Short_Literal	0x1
01d0 0092 023e  |   >|		Action	Push_String_Extended,0x23e					; "build_default_target_name ( host_unit =>"
01d2 e5ff       |    |		Load	0x2,-0x1
01d3 e002       |    |		Load	0x0,0x2
01d4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01d5 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
01d6 01cc       |    |		Execute	Vector,Catenate
01d7 0092 023f  |   ?|		Action	Push_String_Extended,0x23f					; ",suffix_type => "
01d9 01cc       |    |		Execute	Vector,Catenate
01da e5fe       |    |		Load	0x2,-0x2
01db e005       |    |		Load	0x0,0x5
01dc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01dd 011c       |    |		Execute	Any,Convert_Unchecked
01de 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01df 01cc       |    |		Execute	Vector,Catenate
01e0 0092 0240  |   @|		Action	Push_String_Extended,0x240					; ",serial_number => "
01e2 01cc       |    |		Execute	Vector,Catenate
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 00e0       |    |		Load_Encached	Standard_Cache
01e5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e6 01cc       |    |		Execute	Vector,Catenate
01e7 e003       |    |		Load	0x0,0x3
01e8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e9 00ea       |    |		Load_Encached	Null_String_Cache
01ea 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 e001       |    |		Load	0x0,0x1
01f4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01f5 4801       |H   |		Short_Literal	0x1
01f6 0092 0241  |   A|		Action	Push_String_Extended,0x241					; "change_remote_context_preprocess ( remote_directory =>"
01f8 e5ff       |    |		Load	0x2,-0x1
01f9 01cc       |    |		Execute	Vector,Catenate
01fa 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
01fc 01cc       |    |		Execute	Vector,Catenate
01fd e5fe       |    |		Load	0x2,-0x2
01fe 01cc       |    |		Execute	Vector,Catenate
01ff 0092 0242  |   B|		Action	Push_String_Extended,0x242					; ",remote_connection => cannot be displayed "
0201 01cc       |    |		Execute	Vector,Catenate
0202 e003       |    |		Load	0x0,0x3
0203 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0204 e5fc       |    |		Load	0x2,-0x4
0205 4800       |H   |		Short_Literal	0x0
0206 00ea       |    |		Load_Encached	Null_String_Cache
0207 00ea       |    |		Load_Encached	Null_String_Cache
0208 e004       |    |		Load	0x0,0x4
0209 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
020a c5fc       |    |		Store	0x2,-0x4
020b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e001       |    |		Load	0x0,0x1
0214 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0215 4801       |H   |		Short_Literal	0x1
0216 0092 0243  |   C|		Action	Push_String_Extended,0x243					; "change_remote_context_postprocess ( remote_directory =>"
0218 e5ff       |    |		Load	0x2,-0x1
0219 01cc       |    |		Execute	Vector,Catenate
021a 0092 022e  |   .|		Action	Push_String_Extended,0x22e					; ",remote_library => "
021c 01cc       |    |		Execute	Vector,Catenate
021d e5fe       |    |		Load	0x2,-0x2
021e 01cc       |    |		Execute	Vector,Catenate
021f 0092 0242  |   B|		Action	Push_String_Extended,0x242					; ",remote_connection => cannot be displayed "
0221 01cc       |    |		Execute	Vector,Catenate
0222 e003       |    |		Load	0x0,0x3
0223 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0224 e5fc       |    |		Load	0x2,-0x4
0225 4800       |H   |		Short_Literal	0x0
0226 00ea       |    |		Load_Encached	Null_String_Cache
0227 00ea       |    |		Load_Encached	Null_String_Cache
0228 e004       |    |		Load	0x0,0x4
0229 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
022a c5fc       |    |		Store	0x2,-0x4
022b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
022c ; --------------------------------------------------------------------------------------
022c ; STRING TABLE
022c ; --------------------------------------------------------------------------------------
022c 0032       | 2  |		.STRTAB	0x0032->0x0245							; "promote_preprocess ( host_unit =>"
022d 0051       | Q  |		.STRTAB	0x0051->0x0255							; ",remote_unit_name => "
022e 0064       | d  |		.STRTAB	0x0064->0x0260							; ",remote_library => "
022f 0075       | u  |		.STRTAB	0x0075->0x0269							; ",remote_machine => "
0230 0086       |    |		.STRTAB	0x0086->0x0273							; ",remote_directory => "
0231 0099       |    |		.STRTAB	0x0099->0x027d							; ",pre_options => "
0232 00a7       |    |		.STRTAB	0x00a7->0x0285							; ",post_options => "
0233 00b6       |    |		.STRTAB	0x00b6->0x028e							; ",option_separator => "
0234 00c9       |    |		.STRTAB	0x00c9->0x0298							; ",remote_connection => cannot display"
0235 00eb       |    |		.STRTAB	0x00eb->0x02aa							; ",is_secondary => "
0236 00fa       |    |		.STRTAB	0x00fa->0x02b3							; "promote_postprocess ( host_unit =>"
0237 011a       |    |		.STRTAB	0x011a->0x02c4							; "demote_preprocess ( host_unit =>"
0238 0138       | 8  |		.STRTAB	0x0138->0x02d4							; "demote_postprocess ( host_unit =>"
0239 0157       | W  |		.STRTAB	0x0157->0x02e4							; "retrieve_associated_files_preprocess ( host_unit =>"
023a 0188       |    |		.STRTAB	0x0188->0x02fe							; ",remote_connection => Cannot display "
023b 01ab       |    |		.STRTAB	0x01ab->0x0310							; ",The_retrieve_condition => "
023c 01c4       |    |		.STRTAB	0x01c4->0x031e							; ",phases => "
023d 01cd       |    |		.STRTAB	0x01cd->0x0323							; "retrieve_associated_files_postprocess ( host_unit =>"
023e 01ff       |    |		.STRTAB	0x01ff->0x033d							; "build_default_target_name ( host_unit =>"
023f 0225       | %  |		.STRTAB	0x0225->0x0351							; ",suffix_type => "
0240 0233       | 3  |		.STRTAB	0x0233->0x0359							; ",serial_number => "
0241 0243       | C  |		.STRTAB	0x0243->0x0362							; "change_remote_context_preprocess ( remote_directory =>"
0242 0277       | w  |		.STRTAB	0x0277->0x037d							; ",remote_connection => cannot be displayed "
0243 029f       |    |		.STRTAB	0x029f->0x0392							; "change_remote_context_postprocess ( remote_directory =>"
0244 02d4       |    |		.STREND 0x02d4->0x03ae
0245 7072 6f6d  |prom|		.STRTAB_STRINGS
03ae 0000 0000  |    |		.XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug Table
03b0 ; --------------------------------------------------------------------------------------
03b0 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x1979,0x0000,0x0001,0x000b
03b6 000b 03e2  |    |		.DBG4T	0x000b,0x03e2,0x8000,0x0000
03ba 002a 03ed  | *  |		.DBG4T	0x002a,0x03ed,0x8000,0x0000
03be 0043 03f8  | C  |		.DBG4T	0x0043,0x03f8,0x0001,0x0000
03c2 008b 03fc  |    |		.DBG4T	0x008b,0x03fc,0x0001,0x0000
03c6 00d3 0400  |    |		.DBG4T	0x00d3,0x0400,0x0001,0x0000
03ca 0103 0404  |    |		.DBG4T	0x0103,0x0404,0x0001,0x0000
03ce 0133 0408  | 3  |		.DBG4T	0x0133,0x0408,0x0001,0x0000
03d2 017b 040c  | {  |		.DBG4T	0x017b,0x040c,0x0001,0x0000
03d6 01c3 0410  |    |		.DBG4T	0x01c3,0x0410,0x0002,0x0000
03da 01f3 0415  |    |		.DBG4T	0x01f3,0x0415,0x0001,0x0000
03de 0213 0419  |    |		.DBG4T	0x0213,0x0419,0x0001,0x0000
03e2 ; --------------------------------------------------------------------------------------
03e2 ; Debug chain
03e2 ; --------------------------------------------------------------------------------------
03e2 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03e4 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x001a,0x001d,0x0020,0x0023,0x0026
03ed ; --------------------------------------------------------------------------------------
03ed ; Debug chain
03ed ; --------------------------------------------------------------------------------------
03ed 0009 0000  |    |		.DBGLEN	0x0009,0x0000
03ef 002a 002c  | * ,|		.DBGLNO	0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug chain
03f8 ; --------------------------------------------------------------------------------------
03f8 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fa 0043 007d  | C }|		.DBGLNO	0x0043,0x007d
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug chain
03fc ; --------------------------------------------------------------------------------------
03fc 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03fe 008b 00c5  |    |		.DBGLNO	0x008b,0x00c5
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug chain
0400 ; --------------------------------------------------------------------------------------
0400 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0402 00d3 00f3  |    |		.DBGLNO	0x00d3,0x00f3
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug chain
0404 ; --------------------------------------------------------------------------------------
0404 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0406 0103 0123  |   #|		.DBGLNO	0x0103,0x0123
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0000 0002  |    |		.DBGLEN	0x0000,0x0002
040a 0133 0169  | 3 i|		.DBGLNO	0x0133,0x0169
040c ; --------------------------------------------------------------------------------------
040c ; Debug chain
040c ; --------------------------------------------------------------------------------------
040c 0000 0002  |    |		.DBGLEN	0x0000,0x0002
040e 017b 01b1  | {  |		.DBGLNO	0x017b,0x01b1
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0412 01c3 01cd  |    |		.DBGLNO	0x01c3,0x01cd,0x01e9
0415 ; --------------------------------------------------------------------------------------
0415 ; Debug chain
0415 ; --------------------------------------------------------------------------------------
0415 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0417 01f3 0204  |    |		.DBGLNO	0x01f3,0x0204
0419 ; --------------------------------------------------------------------------------------
0419 ; Debug chain
0419 ; --------------------------------------------------------------------------------------
0419 0000 0002  |    |		.DBGLEN	0x0000,0x0002
041b 0213 0224  |   $|		.DBGLNO	0x0213,0x0224
041d 0000 0000  |    |		.BLANK	0000[0x1e3]