|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_08f0ad
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0390 | | .CONST 0x0390 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0013 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0015 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0017 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0019 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 001b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 001d 00bf | | Action Accept_Activation 001e 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0025 00c7 | | Action Elaborate_Subprogram 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0027 00c7 | | Action Elaborate_Subprogram 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0029 00c7 | | Action Elaborate_Subprogram 002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002b 00c7 | | Action Elaborate_Subprogram 002c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002d 00c7 | | Action Elaborate_Subprogram 002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002f 00c7 | | Action Elaborate_Subprogram 0030 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0031 00c7 | | Action Elaborate_Subprogram 0032 BODY_0008: 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 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 024b | K| Action Push_String_Extended,0x24b ; "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 8216 | | Call 0x1,0x16 0045 01cc | | Execute Vector,Catenate 0046 0092 024c | L| Action Push_String_Extended,0x24c ; ", Remote_Unit_Name" 0048 01cc | | Execute Vector,Catenate 0049 e5fe | | Load 0x2,-0x2 004a 8216 | | Call 0x1,0x16 004b 01cc | | Execute Vector,Catenate 004c 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 004e 01cc | | Execute Vector,Catenate 004f e5fd | | Load 0x2,-0x3 0050 8216 | | Call 0x1,0x16 0051 01cc | | Execute Vector,Catenate 0052 0092 024e | N| Action Push_String_Extended,0x24e ; ", Remote_Machine" 0054 01cc | | Execute Vector,Catenate 0055 e5fc | | Load 0x2,-0x4 0056 8216 | | Call 0x1,0x16 0057 01cc | | Execute Vector,Catenate 0058 0092 024f | O| Action Push_String_Extended,0x24f ; ", Remote_Directory" 005a 01cc | | Execute Vector,Catenate 005b e5fb | | Load 0x2,-0x5 005c 8216 | | Call 0x1,0x16 005d 01cc | | Execute Vector,Catenate 005e 0092 0250 | P| Action Push_String_Extended,0x250 ; ", Pre_Options" 0060 01cc | | Execute Vector,Catenate 0061 e5fa | | Load 0x2,-0x6 0062 8216 | | Call 0x1,0x16 0063 01cc | | Execute Vector,Catenate 0064 0092 0251 | Q| Action Push_String_Extended,0x251 ; ", Post_Options" 0066 01cc | | Execute Vector,Catenate 0067 e5f9 | | Load 0x2,-0x7 0068 8216 | | Call 0x1,0x16 0069 01cc | | Execute Vector,Catenate 006a 0092 0252 | R| Action Push_String_Extended,0x252 ; ", Options_Separator" 006c 01cc | | Execute Vector,Catenate 006d e5f8 | | Load 0x2,-0x8 006e 8216 | | Call 0x1,0x16 006f 01cc | | Execute Vector,Catenate 0070 0092 0253 | S| Action Push_String_Extended,0x253 ; ", Is_Secondary => " 0072 01cc | | Execute Vector,Catenate 0073 e5f6 | | Load 0x2,-0xa 0074 00e1 | | Load_Encached Boolean_Cache 0075 011c | | Execute Any,Convert_Unchecked 0076 1c01 | | Execute_Immediate Run_Utility,0x1 0077 01cc | | Execute Vector,Catenate 0078 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 007a 01cc | | Execute Vector,Catenate 007b e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e002 | | Load 0x0,0x2 008c 180e | | Execute Package,Field_Execute,Field_Number 0xe 008d 4801 |H | Short_Literal 0x1 008e 0092 0255 | U| Action Push_String_Extended,0x255 ; "Promote_Postprocess (Host_Unit => " 0090 e5ff | | Load 0x2,-0x1 0091 e003 | | Load 0x0,0x3 0092 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0093 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0094 8216 | | Call 0x1,0x16 0095 01cc | | Execute Vector,Catenate 0096 0092 024c | L| Action Push_String_Extended,0x24c ; ", Remote_Unit_Name" 0098 01cc | | Execute Vector,Catenate 0099 e5fe | | Load 0x2,-0x2 009a 8216 | | Call 0x1,0x16 009b 01cc | | Execute Vector,Catenate 009c 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 009e 01cc | | Execute Vector,Catenate 009f e5fd | | Load 0x2,-0x3 00a0 8216 | | Call 0x1,0x16 00a1 01cc | | Execute Vector,Catenate 00a2 0092 024e | N| Action Push_String_Extended,0x24e ; ", Remote_Machine" 00a4 01cc | | Execute Vector,Catenate 00a5 e5fc | | Load 0x2,-0x4 00a6 8216 | | Call 0x1,0x16 00a7 01cc | | Execute Vector,Catenate 00a8 0092 024f | O| Action Push_String_Extended,0x24f ; ", Remote_Directory" 00aa 01cc | | Execute Vector,Catenate 00ab e5fb | | Load 0x2,-0x5 00ac 8216 | | Call 0x1,0x16 00ad 01cc | | Execute Vector,Catenate 00ae 0092 0250 | P| Action Push_String_Extended,0x250 ; ", Pre_Options" 00b0 01cc | | Execute Vector,Catenate 00b1 e5fa | | Load 0x2,-0x6 00b2 8216 | | Call 0x1,0x16 00b3 01cc | | Execute Vector,Catenate 00b4 0092 0251 | Q| Action Push_String_Extended,0x251 ; ", Post_Options" 00b6 01cc | | Execute Vector,Catenate 00b7 e5f9 | | Load 0x2,-0x7 00b8 8216 | | Call 0x1,0x16 00b9 01cc | | Execute Vector,Catenate 00ba 0092 0252 | R| Action Push_String_Extended,0x252 ; ", Options_Separator" 00bc 01cc | | Execute Vector,Catenate 00bd e5f8 | | Load 0x2,-0x8 00be 8216 | | Call 0x1,0x16 00bf 01cc | | Execute Vector,Catenate 00c0 0092 0253 | S| Action Push_String_Extended,0x253 ; ", Is_Secondary => " 00c2 01cc | | Execute Vector,Catenate 00c3 e5f6 | | Load 0x2,-0xa 00c4 00e1 | | Load_Encached Boolean_Cache 00c5 011c | | Execute Any,Convert_Unchecked 00c6 1c01 | | Execute_Immediate Run_Utility,0x1 00c7 01cc | | Execute Vector,Catenate 00c8 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 00ca 01cc | | Execute Vector,Catenate 00cb e004 | | Load 0x0,0x4 00cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cd e5f5 | | Load 0x2,-0xb 00ce 4800 |H | Short_Literal 0x0 00cf 00ea | | Load_Encached Null_String_Cache 00d0 00ea | | Load_Encached Null_String_Cache 00d1 e005 | | Load 0x0,0x5 00d2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d3 c5f5 | | Store 0x2,-0xb 00d4 450b |E | Exit_Suprogram New_Top_Offset 0xb 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e002 | | Load 0x0,0x2 00dc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dd 4801 |H | Short_Literal 0x1 00de 0092 0256 | V| Action Push_String_Extended,0x256 ; "Demote_Preprocess (Host_Unit => " 00e0 e5ff | | Load 0x2,-0x1 00e1 e003 | | Load 0x0,0x3 00e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00e4 8216 | | Call 0x1,0x16 00e5 01cc | | Execute Vector,Catenate 00e6 0092 024c | L| Action Push_String_Extended,0x24c ; ", Remote_Unit_Name" 00e8 01cc | | Execute Vector,Catenate 00e9 e5fe | | Load 0x2,-0x2 00ea 8216 | | Call 0x1,0x16 00eb 01cc | | Execute Vector,Catenate 00ec 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 00ee 01cc | | Execute Vector,Catenate 00ef e5fd | | Load 0x2,-0x3 00f0 8216 | | Call 0x1,0x16 00f1 01cc | | Execute Vector,Catenate 00f2 0092 024e | N| Action Push_String_Extended,0x24e ; ", Remote_Machine" 00f4 01cc | | Execute Vector,Catenate 00f5 e5fc | | Load 0x2,-0x4 00f6 8216 | | Call 0x1,0x16 00f7 01cc | | Execute Vector,Catenate 00f8 0092 024f | O| Action Push_String_Extended,0x24f ; ", Remote_Directory" 00fa 01cc | | Execute Vector,Catenate 00fb e5fb | | Load 0x2,-0x5 00fc 8216 | | Call 0x1,0x16 00fd 01cc | | Execute Vector,Catenate 00fe 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 0100 01cc | | Execute Vector,Catenate 0101 e004 | | Load 0x0,0x4 0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0103 e5fa | | Load 0x2,-0x6 0104 4800 |H | Short_Literal 0x0 0105 00ea | | Load_Encached Null_String_Cache 0106 00ea | | Load_Encached Null_String_Cache 0107 e005 | | Load 0x0,0x5 0108 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0109 c5fa | | Store 0x2,-0x6 010a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 e002 | | Load 0x0,0x2 0114 180e | | Execute Package,Field_Execute,Field_Number 0xe 0115 4801 |H | Short_Literal 0x1 0116 0092 0257 | W| Action Push_String_Extended,0x257 ; "Demote_Postprocess (Host_Unit => " 0118 e5ff | | Load 0x2,-0x1 0119 e003 | | Load 0x0,0x3 011a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 011c 8216 | | Call 0x1,0x16 011d 01cc | | Execute Vector,Catenate 011e 0092 024c | L| Action Push_String_Extended,0x24c ; ", Remote_Unit_Name" 0120 01cc | | Execute Vector,Catenate 0121 e5fe | | Load 0x2,-0x2 0122 8216 | | Call 0x1,0x16 0123 01cc | | Execute Vector,Catenate 0124 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 0126 01cc | | Execute Vector,Catenate 0127 e5fd | | Load 0x2,-0x3 0128 8216 | | Call 0x1,0x16 0129 01cc | | Execute Vector,Catenate 012a 0092 024e | N| Action Push_String_Extended,0x24e ; ", Remote_Machine" 012c 01cc | | Execute Vector,Catenate 012d e5fc | | Load 0x2,-0x4 012e 8216 | | Call 0x1,0x16 012f 01cc | | Execute Vector,Catenate 0130 0092 024f | O| Action Push_String_Extended,0x24f ; ", Remote_Directory" 0132 01cc | | Execute Vector,Catenate 0133 e5fb | | Load 0x2,-0x5 0134 8216 | | Call 0x1,0x16 0135 01cc | | Execute Vector,Catenate 0136 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 0138 01cc | | Execute Vector,Catenate 0139 e004 | | Load 0x0,0x4 013a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013b e5fa | | Load 0x2,-0x6 013c 4800 |H | Short_Literal 0x0 013d 00ea | | Load_Encached Null_String_Cache 013e 00ea | | Load_Encached Null_String_Cache 013f e005 | | Load 0x0,0x5 0140 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0141 c5fa | | Store 0x2,-0x6 0142 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0143 0000 0000 | | .BLANK 0000[0x5] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e002 | | Load 0x0,0x2 014c 180e | | Execute Package,Field_Execute,Field_Number 0xe 014d 4801 |H | Short_Literal 0x1 014e 0092 0258 | X| Action Push_String_Extended,0x258 ; "Retrieve_Associated_Files_Preprocess (Host_Unit => " 0150 e5ff | | Load 0x2,-0x1 0151 e003 | | Load 0x0,0x3 0152 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0153 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0154 8216 | | Call 0x1,0x16 0155 01cc | | Execute Vector,Catenate 0156 0092 024c | L| Action Push_String_Extended,0x24c ; ", Remote_Unit_Name" 0158 01cc | | Execute Vector,Catenate 0159 e5fe | | Load 0x2,-0x2 015a 8216 | | Call 0x1,0x16 015b 01cc | | Execute Vector,Catenate 015c 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 015e 01cc | | Execute Vector,Catenate 015f e5fd | | Load 0x2,-0x3 0160 8216 | | Call 0x1,0x16 0161 01cc | | Execute Vector,Catenate 0162 0092 024e | N| Action Push_String_Extended,0x24e ; ", Remote_Machine" 0164 01cc | | Execute Vector,Catenate 0165 e5fc | | Load 0x2,-0x4 0166 8216 | | Call 0x1,0x16 0167 01cc | | Execute Vector,Catenate 0168 0092 024f | O| Action Push_String_Extended,0x24f ; ", Remote_Directory" 016a 01cc | | Execute Vector,Catenate 016b e5fb | | Load 0x2,-0x5 016c 8216 | | Call 0x1,0x16 016d 01cc | | Execute Vector,Catenate 016e 0092 0259 | Y| Action Push_String_Extended,0x259 ; ", The_Retrieve_Condition => " 0170 01cc | | Execute Vector,Catenate 0171 e5f9 | | Load 0x2,-0x7 0172 e006 | | Load 0x0,0x6 0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0174 011c | | Execute Any,Convert_Unchecked 0175 1c01 | | Execute_Immediate Run_Utility,0x1 0176 01cc | | Execute Vector,Catenate 0177 0092 025a | Z| Action Push_String_Extended,0x25a ; ", Phases => " 0179 01cc | | Execute Vector,Catenate 017a 4801 |H | Short_Literal 0x1 017b e5f8 | | Load 0x2,-0x8 017c 01d7 | | Execute Vector,Field_Read 017d 00e1 | | Load_Encached Boolean_Cache 017e 011c | | Execute Any,Convert_Unchecked 017f 1c01 | | Execute_Immediate Run_Utility,0x1 0180 01cc | | Execute Vector,Catenate 0181 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 0183 01cc | | Execute Vector,Catenate 0184 e004 | | Load 0x0,0x4 0185 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0186 e5f7 | | Load 0x2,-0x9 0187 4800 |H | Short_Literal 0x0 0188 00ea | | Load_Encached Null_String_Cache 0189 00ea | | Load_Encached Null_String_Cache 018a e005 | | Load 0x0,0x5 018b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018c c5f7 | | Store 0x2,-0x9 018d 4509 |E | Exit_Suprogram New_Top_Offset 0x9 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 e002 | | Load 0x0,0x2 0194 180e | | Execute Package,Field_Execute,Field_Number 0xe 0195 4801 |H | Short_Literal 0x1 0196 0092 025b | [| Action Push_String_Extended,0x25b ; "Retrieve_Associated_Files_Postprocess (Host_Unit => " 0198 e5ff | | Load 0x2,-0x1 0199 e003 | | Load 0x0,0x3 019a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 019c 8216 | | Call 0x1,0x16 019d 01cc | | Execute Vector,Catenate 019e 0092 024c | L| Action Push_String_Extended,0x24c ; ", Remote_Unit_Name" 01a0 01cc | | Execute Vector,Catenate 01a1 e5fe | | Load 0x2,-0x2 01a2 8216 | | Call 0x1,0x16 01a3 01cc | | Execute Vector,Catenate 01a4 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 01a6 01cc | | Execute Vector,Catenate 01a7 e5fd | | Load 0x2,-0x3 01a8 8216 | | Call 0x1,0x16 01a9 01cc | | Execute Vector,Catenate 01aa 0092 024e | N| Action Push_String_Extended,0x24e ; ", Remote_Machine" 01ac 01cc | | Execute Vector,Catenate 01ad e5fc | | Load 0x2,-0x4 01ae 8216 | | Call 0x1,0x16 01af 01cc | | Execute Vector,Catenate 01b0 0092 024f | O| Action Push_String_Extended,0x24f ; ", Remote_Directory" 01b2 01cc | | Execute Vector,Catenate 01b3 e5fb | | Load 0x2,-0x5 01b4 8216 | | Call 0x1,0x16 01b5 01cc | | Execute Vector,Catenate 01b6 0092 0259 | Y| Action Push_String_Extended,0x259 ; ", The_Retrieve_Condition => " 01b8 01cc | | Execute Vector,Catenate 01b9 e5f9 | | Load 0x2,-0x7 01ba e006 | | Load 0x0,0x6 01bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bc 011c | | Execute Any,Convert_Unchecked 01bd 1c01 | | Execute_Immediate Run_Utility,0x1 01be 01cc | | Execute Vector,Catenate 01bf 0092 025a | Z| Action Push_String_Extended,0x25a ; ", Phases => " 01c1 01cc | | Execute Vector,Catenate 01c2 4801 |H | Short_Literal 0x1 01c3 e5f8 | | Load 0x2,-0x8 01c4 01d7 | | Execute Vector,Field_Read 01c5 00e1 | | Load_Encached Boolean_Cache 01c6 011c | | Execute Any,Convert_Unchecked 01c7 1c01 | | Execute_Immediate Run_Utility,0x1 01c8 01cc | | Execute Vector,Catenate 01c9 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 01cb 01cc | | Execute Vector,Catenate 01cc e004 | | Load 0x0,0x4 01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ce e5f7 | | Load 0x2,-0x9 01cf 4800 |H | Short_Literal 0x0 01d0 00ea | | Load_Encached Null_String_Cache 01d1 00ea | | Load_Encached Null_String_Cache 01d2 e005 | | Load 0x0,0x5 01d3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01d4 c5f7 | | Store 0x2,-0x9 01d5 4509 |E | Exit_Suprogram New_Top_Offset 0x9 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e002 | | Load 0x0,0x2 01dc 180e | | Execute Package,Field_Execute,Field_Number 0xe 01dd 4801 |H | Short_Literal 0x1 01de 0092 025c | \| Action Push_String_Extended,0x25c ; "Build_Default_Target_Name (Host_Unit => " 01e0 e5ff | | Load 0x2,-0x1 01e1 e003 | | Load 0x0,0x3 01e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01e4 8216 | | Call 0x1,0x16 01e5 01cc | | Execute Vector,Catenate 01e6 0092 025d | ]| Action Push_String_Extended,0x25d ; ", Suffix_Type => " 01e8 01cc | | Execute Vector,Catenate 01e9 e5fe | | Load 0x2,-0x2 01ea e006 | | Load 0x0,0x6 01eb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ec 011c | | Execute Any,Convert_Unchecked 01ed 1c01 | | Execute_Immediate Run_Utility,0x1 01ee 01cc | | Execute Vector,Catenate 01ef 0092 025e | ^| Action Push_String_Extended,0x25e ; ", Serial_Number =>" 01f1 01cc | | Execute Vector,Catenate 01f2 e5fd | | Load 0x2,-0x3 01f3 00e0 | | Load_Encached Standard_Cache 01f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f5 01cc | | Execute Vector,Catenate 01f6 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 01f8 01cc | | Execute Vector,Catenate 01f9 e004 | | Load 0x0,0x4 01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01fb 00ea | | Load_Encached Null_String_Cache 01fc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 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 025f | _| Action Push_String_Extended,0x25f ; "Change_Remote_Context_Preprocess (Remote_Directory" 0208 e5ff | | Load 0x2,-0x1 0209 8216 | | Call 0x1,0x16 020a 01cc | | Execute Vector,Catenate 020b 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 020d 01cc | | Execute Vector,Catenate 020e e5fe | | Load 0x2,-0x2 020f 8216 | | Call 0x1,0x16 0210 01cc | | Execute Vector,Catenate 0211 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 0213 01cc | | Execute Vector,Catenate 0214 e004 | | Load 0x0,0x4 0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0216 e5fc | | Load 0x2,-0x4 0217 4800 |H | Short_Literal 0x0 0218 00ea | | Load_Encached Null_String_Cache 0219 00ea | | Load_Encached Null_String_Cache 021a e005 | | Load 0x0,0x5 021b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 021c c5fc | | Store 0x2,-0x4 021d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e002 | | Load 0x0,0x2 0224 180e | | Execute Package,Field_Execute,Field_Number 0xe 0225 4801 |H | Short_Literal 0x1 0226 0092 0260 | `| Action Push_String_Extended,0x260 ; "Change_Remote_Context_Postprocess (Remote_Directory" 0228 e5ff | | Load 0x2,-0x1 0229 8216 | | Call 0x1,0x16 022a 01cc | | Execute Vector,Catenate 022b 0092 024d | M| Action Push_String_Extended,0x24d ; ", Remote_Library" 022d 01cc | | Execute Vector,Catenate 022e e5fe | | Load 0x2,-0x2 022f 8216 | | Call 0x1,0x16 0230 01cc | | Execute Vector,Catenate 0231 0092 0254 | T| Action Push_String_Extended,0x254 ; ")" 0233 01cc | | Execute Vector,Catenate 0234 e004 | | Load 0x0,0x4 0235 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0236 e5fc | | Load 0x2,-0x4 0237 4800 |H | Short_Literal 0x0 0238 00ea | | Load_Encached Null_String_Cache 0239 00ea | | Load_Encached Null_String_Cache 023a e005 | | Load 0x0,0x5 023b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 023c c5fc | | Store 0x2,-0x4 023d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 0092 0261 | a| Action Push_String_Extended,0x261 ; " => \x22" 0245 00db | | Load_Top At_Offset_3 0246 01cc | | Execute Vector,Catenate 0247 0092 0262 | b| Action Push_String_Extended,0x262 ; "\x22" 0249 01cc | | Execute Vector,Catenate 024a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024b ; -------------------------------------------------------------------------------------- 024b ; STRING TABLE 024b ; -------------------------------------------------------------------------------------- 024b 0032 | 2 | .STRTAB 0x0032->0x0264 ; "Promote_Preprocess (Host_Unit => " 024c 0051 | Q | .STRTAB 0x0051->0x0274 ; ", Remote_Unit_Name" 024d 0061 | a | .STRTAB 0x0061->0x027d ; ", Remote_Library" 024e 006f | o | .STRTAB 0x006f->0x0285 ; ", Remote_Machine" 024f 007d | } | .STRTAB 0x007d->0x028d ; ", Remote_Directory" 0250 008d | | .STRTAB 0x008d->0x0296 ; ", Pre_Options" 0251 0098 | | .STRTAB 0x0098->0x029d ; ", Post_Options" 0252 00a4 | | .STRTAB 0x00a4->0x02a4 ; ", Options_Separator" 0253 00b5 | | .STRTAB 0x00b5->0x02ad ; ", Is_Secondary => " 0254 00c5 | | .STRTAB 0x00c5->0x02b6 ; ")" 0255 00c4 | | .STRTAB 0x00c4->0x02b7 ; "Promote_Postprocess (Host_Unit => " 0256 00e4 | | .STRTAB 0x00e4->0x02c8 ; "Demote_Preprocess (Host_Unit => " 0257 0102 | | .STRTAB 0x0102->0x02d8 ; "Demote_Postprocess (Host_Unit => " 0258 0121 | ! | .STRTAB 0x0121->0x02e8 ; "Retrieve_Associated_Files_Preprocess (Host_Unit => " 0259 0152 | R | .STRTAB 0x0152->0x0302 ; ", The_Retrieve_Condition => " 025a 016c | l | .STRTAB 0x016c->0x0310 ; ", Phases => " 025b 0176 | v | .STRTAB 0x0176->0x0316 ; "Retrieve_Associated_Files_Postprocess (Host_Unit => " 025c 01a8 | | .STRTAB 0x01a8->0x0330 ; "Build_Default_Target_Name (Host_Unit => " 025d 01ce | | .STRTAB 0x01ce->0x0344 ; ", Suffix_Type => " 025e 01dd | | .STRTAB 0x01dd->0x034c ; ", Serial_Number =>" 025f 01ed | | .STRTAB 0x01ed->0x0355 ; "Change_Remote_Context_Preprocess (Remote_Directory" 0260 021d | | .STRTAB 0x021d->0x036e ; "Change_Remote_Context_Postprocess (Remote_Directory" 0261 024e | N | .STRTAB 0x024e->0x0388 ; " => \x22" 0262 0251 | Q | .STRTAB 0x0251->0x038a ; "\x22" 0263 0250 | P | .STREND 0x0250->0x038b 0264 5072 6f6d |Prom| .STRTAB_STRINGS 038b 0000 0000 | | .BLANK 0000[0x5] 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug Table 0390 ; -------------------------------------------------------------------------------------- 0390 0004 0009 | | .DEBUG4 0x0004,0x0009,0x924d,0x0000,0x0001,0x000c 0396 000b 03c6 | | .DBG4T 0x000b,0x03c6,0x8000,0x0000 039a 001e 03d1 | | .DBG4T 0x001e,0x03d1,0x8000,0x8000 039e 003b 03e7 | ; | .DBG4T 0x003b,0x03e7,0x0001,0x0000 03a2 008b 03eb | | .DBG4T 0x008b,0x03eb,0x0001,0x0000 03a6 00db 03ef | | .DBG4T 0x00db,0x03ef,0x0001,0x0000 03aa 0113 03f3 | | .DBG4T 0x0113,0x03f3,0x0001,0x0000 03ae 014b 03f7 | K | .DBG4T 0x014b,0x03f7,0x0001,0x0000 03b2 0193 03fb | | .DBG4T 0x0193,0x03fb,0x0001,0x0000 03b6 01db 03ff | | .DBG4T 0x01db,0x03ff,0x0002,0x0000 03ba 0203 0403 | | .DBG4T 0x0203,0x0403,0x0001,0x0000 03be 0223 0407 | # | .DBG4T 0x0223,0x0407,0x0001,0x0000 03c2 0243 040b | C | .DBG4T 0x0243,0x040b,0x0002,0x0000 03c6 ; -------------------------------------------------------------------------------------- 03c6 ; Debug chain 03c6 ; -------------------------------------------------------------------------------------- 03c6 0009 0000 | | .DBGLEN 0x0009,0x0000 03c8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b 03d1 ; -------------------------------------------------------------------------------------- 03d1 ; Debug chain 03d1 ; -------------------------------------------------------------------------------------- 03d1 000a 0000 | | .DBGLEN 0x000a,0x0000 03d3 001e 0020 | | .DBGLNO 0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030 03dd 0004 0005 | | .XXX[0xa] 03df 0006 0007 | | 03e1 0008 0009 | | 03e3 000a 000b | | 03e5 000c 000d | | 03e7 ; -------------------------------------------------------------------------------------- 03e7 ; Debug chain 03e7 ; -------------------------------------------------------------------------------------- 03e7 0000 0002 | | .DBGLEN 0x0000,0x0002 03e9 003b 007d | ; }| .DBGLNO 0x003b,0x007d 03eb ; -------------------------------------------------------------------------------------- 03eb ; Debug chain 03eb ; -------------------------------------------------------------------------------------- 03eb 0000 0002 | | .DBGLEN 0x0000,0x0002 03ed 008b 00cd | | .DBGLNO 0x008b,0x00cd 03ef ; -------------------------------------------------------------------------------------- 03ef ; Debug chain 03ef ; -------------------------------------------------------------------------------------- 03ef 0000 0002 | | .DBGLEN 0x0000,0x0002 03f1 00db 0103 | | .DBGLNO 0x00db,0x0103 03f3 ; -------------------------------------------------------------------------------------- 03f3 ; Debug chain 03f3 ; -------------------------------------------------------------------------------------- 03f3 0000 0002 | | .DBGLEN 0x0000,0x0002 03f5 0113 013b | ;| .DBGLNO 0x0113,0x013b 03f7 ; -------------------------------------------------------------------------------------- 03f7 ; Debug chain 03f7 ; -------------------------------------------------------------------------------------- 03f7 0000 0002 | | .DBGLEN 0x0000,0x0002 03f9 014b 0186 | K | .DBGLNO 0x014b,0x0186 03fb ; -------------------------------------------------------------------------------------- 03fb ; Debug chain 03fb ; -------------------------------------------------------------------------------------- 03fb 0000 0002 | | .DBGLEN 0x0000,0x0002 03fd 0193 01ce | | .DBGLNO 0x0193,0x01ce 03ff ; -------------------------------------------------------------------------------------- 03ff ; Debug chain 03ff ; -------------------------------------------------------------------------------------- 03ff 0000 0002 | | .DBGLEN 0x0000,0x0002 0401 01db 01fb | | .DBGLNO 0x01db,0x01fb 0403 ; -------------------------------------------------------------------------------------- 0403 ; Debug chain 0403 ; -------------------------------------------------------------------------------------- 0403 0000 0002 | | .DBGLEN 0x0000,0x0002 0405 0203 0216 | | .DBGLNO 0x0203,0x0216 0407 ; -------------------------------------------------------------------------------------- 0407 ; Debug chain 0407 ; -------------------------------------------------------------------------------------- 0407 0000 0002 | | .DBGLEN 0x0000,0x0002 0409 0223 0236 | # 6| .DBGLNO 0x0223,0x0236 040b ; -------------------------------------------------------------------------------------- 040b ; Debug chain 040b ; -------------------------------------------------------------------------------------- 040b 0000 0001 | | .DBGLEN 0x0000,0x0001 040d 0243 | C | .DBGLNO 0x0243 040e 0000 0000 | | .BLANK 0000[0x1f2]