|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_e2acbc
└─⟦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 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0030 | 0 | .CONST 0x0030 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0013 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0015 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0017 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0019 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 001b 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 001d 00bf | | Action Accept_Activation 001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0023 00c7 | | Action Elaborate_Subprogram 0024 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0025 00c7 | | Action Elaborate_Subprogram 0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0027 00c7 | | Action Elaborate_Subprogram 0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0029 00c7 | | Action Elaborate_Subprogram 002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002b 00c7 | | Action Elaborate_Subprogram 002c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002d 00c7 | | Action Elaborate_Subprogram 002e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 002f 00c7 | | Action Elaborate_Subprogram 0030 BODY_0008: 0030 00bc | | Action Signal_Activated 0031 00bb | | Action Signal_Completion 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e001 | | Load 0x0,0x1 003c 180e | | Execute Package,Field_Execute,Field_Number 0xe 003d 4801 |H | Short_Literal 0x1 003e 0092 0224 | $| Action Push_String_Extended,0x224 ; "promote_preprocess ( host_unit =>" 0040 e5ff | | Load 0x2,-0x1 0041 e002 | | Load 0x0,0x2 0042 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0043 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0044 01cc | | Execute Vector,Catenate 0045 0092 0225 | %| Action Push_String_Extended,0x225 ; ",remote_unit_name => " 0047 01cc | | Execute Vector,Catenate 0048 e5fe | | Load 0x2,-0x2 0049 01cc | | Execute Vector,Catenate 004a 0092 0226 | &| Action Push_String_Extended,0x226 ; ",remote_library => " 004c 01cc | | Execute Vector,Catenate 004d e5fd | | Load 0x2,-0x3 004e 01cc | | Execute Vector,Catenate 004f 0092 0227 | '| Action Push_String_Extended,0x227 ; ",remote_machine => " 0051 01cc | | Execute Vector,Catenate 0052 e5fc | | Load 0x2,-0x4 0053 01cc | | Execute Vector,Catenate 0054 0092 0228 | (| Action Push_String_Extended,0x228 ; ",remote_directory => " 0056 01cc | | Execute Vector,Catenate 0057 e5fb | | Load 0x2,-0x5 0058 01cc | | Execute Vector,Catenate 0059 0092 0229 | )| Action Push_String_Extended,0x229 ; ",pre_options => " 005b 01cc | | Execute Vector,Catenate 005c e5fa | | Load 0x2,-0x6 005d 01cc | | Execute Vector,Catenate 005e 0092 022a | *| Action Push_String_Extended,0x22a ; ",post_options => " 0060 01cc | | Execute Vector,Catenate 0061 e5f9 | | Load 0x2,-0x7 0062 01cc | | Execute Vector,Catenate 0063 0092 022b | +| Action Push_String_Extended,0x22b ; ",option_separator => " 0065 01cc | | Execute Vector,Catenate 0066 e5f8 | | Load 0x2,-0x8 0067 01cc | | Execute Vector,Catenate 0068 0092 022c | ,| Action Push_String_Extended,0x22c ; ",remote_connection => cannot display" 006a 01cc | | Execute Vector,Catenate 006b 0092 022d | -| Action Push_String_Extended,0x22d ; ",is_secondary => " 006d 01cc | | Execute Vector,Catenate 006e e5f6 | | Load 0x2,-0xa 006f 00e1 | | Load_Encached Boolean_Cache 0070 011c | | Execute Any,Convert_Unchecked 0071 1c01 | | Execute_Immediate Run_Utility,0x1 0072 01cc | | Execute Vector,Catenate 0073 e003 | | Load 0x0,0x3 0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0075 e5f5 | | Load 0x2,-0xb 0076 4800 |H | Short_Literal 0x0 0077 00ea | | Load_Encached Null_String_Cache 0078 00ea | | Load_Encached Null_String_Cache 0079 e004 | | Load 0x0,0x4 007a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 007b c5f5 | | Store 0x2,-0xb 007c 450b |E | Exit_Suprogram New_Top_Offset 0xb 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e001 | | Load 0x0,0x1 0084 180e | | Execute Package,Field_Execute,Field_Number 0xe 0085 4801 |H | Short_Literal 0x1 0086 0092 022e | .| Action Push_String_Extended,0x22e ; "promote_postprocess ( host_unit =>" 0088 e5ff | | Load 0x2,-0x1 0089 e002 | | Load 0x0,0x2 008a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 008b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 008c 01cc | | Execute Vector,Catenate 008d 0092 0225 | %| Action Push_String_Extended,0x225 ; ",remote_unit_name => " 008f 01cc | | Execute Vector,Catenate 0090 e5fe | | Load 0x2,-0x2 0091 01cc | | Execute Vector,Catenate 0092 0092 0226 | &| Action Push_String_Extended,0x226 ; ",remote_library => " 0094 01cc | | Execute Vector,Catenate 0095 e5fd | | Load 0x2,-0x3 0096 01cc | | Execute Vector,Catenate 0097 0092 0227 | '| Action Push_String_Extended,0x227 ; ",remote_machine => " 0099 01cc | | Execute Vector,Catenate 009a e5fc | | Load 0x2,-0x4 009b 01cc | | Execute Vector,Catenate 009c 0092 0228 | (| Action Push_String_Extended,0x228 ; ",remote_directory => " 009e 01cc | | Execute Vector,Catenate 009f e5fb | | Load 0x2,-0x5 00a0 01cc | | Execute Vector,Catenate 00a1 0092 0229 | )| Action Push_String_Extended,0x229 ; ",pre_options => " 00a3 01cc | | Execute Vector,Catenate 00a4 e5fa | | Load 0x2,-0x6 00a5 01cc | | Execute Vector,Catenate 00a6 0092 022a | *| Action Push_String_Extended,0x22a ; ",post_options => " 00a8 01cc | | Execute Vector,Catenate 00a9 e5f9 | | Load 0x2,-0x7 00aa 01cc | | Execute Vector,Catenate 00ab 0092 022b | +| Action Push_String_Extended,0x22b ; ",option_separator => " 00ad 01cc | | Execute Vector,Catenate 00ae e5f8 | | Load 0x2,-0x8 00af 01cc | | Execute Vector,Catenate 00b0 0092 022c | ,| Action Push_String_Extended,0x22c ; ",remote_connection => cannot display" 00b2 01cc | | Execute Vector,Catenate 00b3 0092 022d | -| Action Push_String_Extended,0x22d ; ",is_secondary => " 00b5 01cc | | Execute Vector,Catenate 00b6 e5f6 | | Load 0x2,-0xa 00b7 00e1 | | Load_Encached Boolean_Cache 00b8 011c | | Execute Any,Convert_Unchecked 00b9 1c01 | | Execute_Immediate Run_Utility,0x1 00ba 01cc | | Execute Vector,Catenate 00bb e003 | | Load 0x0,0x3 00bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bd e5f5 | | Load 0x2,-0xb 00be 4800 |H | Short_Literal 0x0 00bf 00ea | | Load_Encached Null_String_Cache 00c0 00ea | | Load_Encached Null_String_Cache 00c1 e004 | | Load 0x0,0x4 00c2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c3 c5f5 | | Store 0x2,-0xb 00c4 450b |E | Exit_Suprogram New_Top_Offset 0xb 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e001 | | Load 0x0,0x1 00cc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00cd 4801 |H | Short_Literal 0x1 00ce 0092 022f | /| Action Push_String_Extended,0x22f ; "demote_preprocess ( host_unit =>" 00d0 e5ff | | Load 0x2,-0x1 00d1 e002 | | Load 0x0,0x2 00d2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00d4 01cc | | Execute Vector,Catenate 00d5 0092 0225 | %| Action Push_String_Extended,0x225 ; ",remote_unit_name => " 00d7 01cc | | Execute Vector,Catenate 00d8 e5fe | | Load 0x2,-0x2 00d9 01cc | | Execute Vector,Catenate 00da 0092 0226 | &| Action Push_String_Extended,0x226 ; ",remote_library => " 00dc 01cc | | Execute Vector,Catenate 00dd e5fd | | Load 0x2,-0x3 00de 01cc | | Execute Vector,Catenate 00df 0092 0227 | '| Action Push_String_Extended,0x227 ; ",remote_machine => " 00e1 01cc | | Execute Vector,Catenate 00e2 e5fc | | Load 0x2,-0x4 00e3 01cc | | Execute Vector,Catenate 00e4 0092 0228 | (| Action Push_String_Extended,0x228 ; ",remote_directory => " 00e6 01cc | | Execute Vector,Catenate 00e7 e5fb | | Load 0x2,-0x5 00e8 01cc | | Execute Vector,Catenate 00e9 e003 | | Load 0x0,0x3 00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00eb e5fa | | Load 0x2,-0x6 00ec 4800 |H | Short_Literal 0x0 00ed 00ea | | Load_Encached Null_String_Cache 00ee 00ea | | Load_Encached Null_String_Cache 00ef e004 | | Load 0x0,0x4 00f0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00f1 c5fa | | Store 0x2,-0x6 00f2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00f3 0000 0000 | | .BLANK 0000[0x5] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e001 | | Load 0x0,0x1 00fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fd 4801 |H | Short_Literal 0x1 00fe 0092 0230 | 0| Action Push_String_Extended,0x230 ; "demote_postprocess ( host_unit =>" 0100 e5ff | | Load 0x2,-0x1 0101 e002 | | Load 0x0,0x2 0102 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0103 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0104 01cc | | Execute Vector,Catenate 0105 0092 0225 | %| Action Push_String_Extended,0x225 ; ",remote_unit_name => " 0107 01cc | | Execute Vector,Catenate 0108 e5fe | | Load 0x2,-0x2 0109 01cc | | Execute Vector,Catenate 010a 0092 0226 | &| Action Push_String_Extended,0x226 ; ",remote_library => " 010c 01cc | | Execute Vector,Catenate 010d e5fd | | Load 0x2,-0x3 010e 01cc | | Execute Vector,Catenate 010f 0092 0227 | '| Action Push_String_Extended,0x227 ; ",remote_machine => " 0111 01cc | | Execute Vector,Catenate 0112 e5fc | | Load 0x2,-0x4 0113 01cc | | Execute Vector,Catenate 0114 0092 0228 | (| Action Push_String_Extended,0x228 ; ",remote_directory => " 0116 01cc | | Execute Vector,Catenate 0117 e5fb | | Load 0x2,-0x5 0118 01cc | | Execute Vector,Catenate 0119 e003 | | Load 0x0,0x3 011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011b e5fa | | Load 0x2,-0x6 011c 4800 |H | Short_Literal 0x0 011d 00ea | | Load_Encached Null_String_Cache 011e 00ea | | Load_Encached Null_String_Cache 011f e004 | | Load 0x0,0x4 0120 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0121 c5fa | | Store 0x2,-0x6 0122 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e001 | | Load 0x0,0x1 012c 180e | | Execute Package,Field_Execute,Field_Number 0xe 012d 4801 |H | Short_Literal 0x1 012e 0092 0231 | 1| Action Push_String_Extended,0x231 ; "retrieve_associated_files_preprocess ( host_unit =>" 0130 e5ff | | Load 0x2,-0x1 0131 e002 | | Load 0x0,0x2 0132 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0133 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0134 01cc | | Execute Vector,Catenate 0135 0092 0225 | %| Action Push_String_Extended,0x225 ; ",remote_unit_name => " 0137 01cc | | Execute Vector,Catenate 0138 e5fe | | Load 0x2,-0x2 0139 01cc | | Execute Vector,Catenate 013a 0092 0226 | &| Action Push_String_Extended,0x226 ; ",remote_library => " 013c 01cc | | Execute Vector,Catenate 013d e5fd | | Load 0x2,-0x3 013e 01cc | | Execute Vector,Catenate 013f 0092 0227 | '| Action Push_String_Extended,0x227 ; ",remote_machine => " 0141 01cc | | Execute Vector,Catenate 0142 e5fc | | Load 0x2,-0x4 0143 01cc | | Execute Vector,Catenate 0144 0092 0228 | (| Action Push_String_Extended,0x228 ; ",remote_directory => " 0146 01cc | | Execute Vector,Catenate 0147 e5fb | | Load 0x2,-0x5 0148 01cc | | Execute Vector,Catenate 0149 0092 0232 | 2| Action Push_String_Extended,0x232 ; ",remote_connection => Cannot display " 014b 01cc | | Execute Vector,Catenate 014c 0092 0233 | 3| Action Push_String_Extended,0x233 ; ",The_retrieve_condition => " 014e 01cc | | Execute Vector,Catenate 014f e5f9 | | Load 0x2,-0x7 0150 e005 | | Load 0x0,0x5 0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0152 011c | | Execute Any,Convert_Unchecked 0153 1c01 | | Execute_Immediate Run_Utility,0x1 0154 01cc | | Execute Vector,Catenate 0155 0092 0234 | 4| Action Push_String_Extended,0x234 ; ",phases => " 0157 01cc | | Execute Vector,Catenate 0158 4801 |H | Short_Literal 0x1 0159 e5f8 | | Load 0x2,-0x8 015a 01d7 | | Execute Vector,Field_Read 015b 00e1 | | Load_Encached Boolean_Cache 015c 011c | | Execute Any,Convert_Unchecked 015d 1c01 | | Execute_Immediate Run_Utility,0x1 015e 01cc | | Execute Vector,Catenate 015f e003 | | Load 0x0,0x3 0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0161 e5f7 | | Load 0x2,-0x9 0162 4800 |H | Short_Literal 0x0 0163 00ea | | Load_Encached Null_String_Cache 0164 00ea | | Load_Encached Null_String_Cache 0165 e004 | | Load 0x0,0x4 0166 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0167 c5f7 | | Store 0x2,-0x9 0168 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e001 | | Load 0x0,0x1 0174 180e | | Execute Package,Field_Execute,Field_Number 0xe 0175 4801 |H | Short_Literal 0x1 0176 0092 0235 | 5| Action Push_String_Extended,0x235 ; "retrieve_associated_files_postprocess ( host_unit =>" 0178 e5ff | | Load 0x2,-0x1 0179 e002 | | Load 0x0,0x2 017a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 017b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 017c 01cc | | Execute Vector,Catenate 017d 0092 0225 | %| Action Push_String_Extended,0x225 ; ",remote_unit_name => " 017f 01cc | | Execute Vector,Catenate 0180 e5fe | | Load 0x2,-0x2 0181 01cc | | Execute Vector,Catenate 0182 0092 0226 | &| Action Push_String_Extended,0x226 ; ",remote_library => " 0184 01cc | | Execute Vector,Catenate 0185 e5fd | | Load 0x2,-0x3 0186 01cc | | Execute Vector,Catenate 0187 0092 0227 | '| Action Push_String_Extended,0x227 ; ",remote_machine => " 0189 01cc | | Execute Vector,Catenate 018a e5fc | | Load 0x2,-0x4 018b 01cc | | Execute Vector,Catenate 018c 0092 0228 | (| Action Push_String_Extended,0x228 ; ",remote_directory => " 018e 01cc | | Execute Vector,Catenate 018f e5fb | | Load 0x2,-0x5 0190 01cc | | Execute Vector,Catenate 0191 0092 0232 | 2| Action Push_String_Extended,0x232 ; ",remote_connection => Cannot display " 0193 01cc | | Execute Vector,Catenate 0194 0092 0233 | 3| Action Push_String_Extended,0x233 ; ",The_retrieve_condition => " 0196 01cc | | Execute Vector,Catenate 0197 e5f9 | | Load 0x2,-0x7 0198 e005 | | Load 0x0,0x5 0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019a 011c | | Execute Any,Convert_Unchecked 019b 1c01 | | Execute_Immediate Run_Utility,0x1 019c 01cc | | Execute Vector,Catenate 019d 0092 0234 | 4| Action Push_String_Extended,0x234 ; ",phases => " 019f 01cc | | Execute Vector,Catenate 01a0 4801 |H | Short_Literal 0x1 01a1 e5f8 | | Load 0x2,-0x8 01a2 01d7 | | Execute Vector,Field_Read 01a3 00e1 | | Load_Encached Boolean_Cache 01a4 011c | | Execute Any,Convert_Unchecked 01a5 1c01 | | Execute_Immediate Run_Utility,0x1 01a6 01cc | | Execute Vector,Catenate 01a7 e003 | | Load 0x0,0x3 01a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a9 e5f7 | | Load 0x2,-0x9 01aa 4800 |H | Short_Literal 0x0 01ab 00ea | | Load_Encached Null_String_Cache 01ac 00ea | | Load_Encached Null_String_Cache 01ad e004 | | Load 0x0,0x4 01ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01af c5f7 | | Store 0x2,-0x9 01b0 4509 |E | Exit_Suprogram New_Top_Offset 0x9 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c5 | | .CONST 0x01c5 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e001 | | Load 0x0,0x1 01bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 01bd 00db | | Load_Top At_Offset_3 01be e002 | | Load 0x0,0x2 01bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01c0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01c1 e006 | | Load 0x0,0x6 01c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01c4 0007 | | Action Break_Optional 01c5 BODY_01b8: 01c5 e001 | | Load 0x0,0x1 01c6 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c7 4801 |H | Short_Literal 0x1 01c8 0092 0236 | 6| Action Push_String_Extended,0x236 ; "build_default_target_name ( host_unit =>" 01ca e5ff | | Load 0x2,-0x1 01cb e002 | | Load 0x0,0x2 01cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01cd 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01ce 01cc | | Execute Vector,Catenate 01cf 0092 0237 | 7| Action Push_String_Extended,0x237 ; ",suffix_type => " 01d1 01cc | | Execute Vector,Catenate 01d2 e5fe | | Load 0x2,-0x2 01d3 e005 | | Load 0x0,0x5 01d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d5 011c | | Execute Any,Convert_Unchecked 01d6 1c01 | | Execute_Immediate Run_Utility,0x1 01d7 01cc | | Execute Vector,Catenate 01d8 0092 0238 | 8| Action Push_String_Extended,0x238 ; ",serial_number => " 01da 01cc | | Execute Vector,Catenate 01db e5fd | | Load 0x2,-0x3 01dc 00e0 | | Load_Encached Standard_Cache 01dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01de 01cc | | Execute Vector,Catenate 01df e003 | | Load 0x0,0x3 01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e1 00ea | | Load_Encached Null_String_Cache 01e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e3 0000 0000 | | .BLANK 0000[0x5] 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 000e | | .DEBUG4 0x0004,0x000e,0x1522,0x0000,0x0001,0x0000 03ae 0201 2170 | !p| .XXX[0x17] 03b0 0000 0120 | | 03b2 002e 0380 | . | 03b4 0000 0040 | @| 03b6 0040 0000 | @ | 03b8 0240 0025 | @ %| 03ba d680 0000 | | 03bc 0089 c600 | | 03be 9800 0000 | | 03c0 0000 0000 | | 03c2 0002 7780 | w | 03c4 3a00 |: | 03c5 0000 0000 | | .BLANK 0000[0x5] 03ca 0048 000c | H | .XXX[0x2d] 03cc 7c50 0000 ||P | 03ce 0010 a000 | | 03d0 0002 4000 | @ | 03d2 0000 0000 | | 03d4 0000 c000 | | 03d6 0004 8000 | | 03d8 b80e 0000 | | 03da 0001 0000 | | 03dc 0002 0121 | !| 03de 7000 0001 |p | 03e0 2000 2e03 | . | 03e2 8000 0000 | | 03e4 4000 4000 |@ @ | 03e6 0030 8000 | 0 | 03e8 0001 0000 | | 03ea 0001 0004 | | 03ec e18e 0000 | | 03ee 0002 8000 | | 03f0 0002 4000 | @ | 03f2 25d6 8000 |% | 03f4 0000 89c6 | | 03f6 0098 | | 03f7 0000 0000 | | .BLANK 0000[0x4] 03fb 0277 803a | w :| .XXX[0x5] 03fd 0000 0000 | | 03ff 0000 | |