|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0348 | H | .CONST 0x0348 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0033 | 3 | .CONST 0x0033 ; Address of begin 0021 008e | | .CONST 0x008e ; Address of exception handler 0022 0006 | | .CONST 0x0006 ; Number of locals 0023 INIT_0020: 0023 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Import" 0025 e001 | | Load 0x0,0x1 0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0027 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0028 e002 | | Load 0x0,0x2 0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002a 02c7 | | Declare_Variable Any 002b e5f7 | | Load 0x2,-0x9 002c e002 | | Load 0x0,0x2 002d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 002e a404 | | Store_Unchecked 0x2,0x4 002f 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0031 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0033 BODY_0020: 0033 00da | | Load_Top At_Offset_2 0034 e00d | | Load 0x0,0xd 0035 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "View_To_Import" 0037 e5ff | | Load 0x2,-0x1 0038 e003 | | Load 0x0,0x3 0039 1812 | | Execute Package,Field_Execute,Field_Number 0x12 003a 01cc | | Execute Vector,Catenate 003b 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "Into_View" 003d 01cc | | Execute Vector,Catenate 003e e5fe | | Load 0x2,-0x2 003f e003 | | Load 0x0,0x3 0040 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0041 01cc | | Execute Vector,Catenate 0042 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Only_Change_Imports => " 0044 01cc | | Execute Vector,Catenate 0045 e5fd | | Load 0x2,-0x3 0046 00e1 | | Load_Encached Boolean_Cache 0047 011c | | Execute Any,Convert_Unchecked 0048 1c01 | | Execute_Immediate Run_Utility,0x1 0049 01cc | | Execute Vector,Catenate 004a 0092 02b4 | | Action Push_String_Extended,0x2b4 ; ", Import_Closure => " 004c 01cc | | Execute Vector,Catenate 004d e5fc | | Load 0x2,-0x4 004e 00e1 | | Load_Encached Boolean_Cache 004f 011c | | Execute Any,Convert_Unchecked 0050 1c01 | | Execute_Immediate Run_Utility,0x1 0051 01cc | | Execute Vector,Catenate 0052 0092 02b5 | | Action Push_String_Extended,0x2b5 ; ", Remake_Demoted_Units => " 0054 01cc | | Execute Vector,Catenate 0055 e5fb | | Load 0x2,-0x5 0056 00e1 | | Load_Encached Boolean_Cache 0057 011c | | Execute Any,Convert_Unchecked 0058 1c01 | | Execute_Immediate Run_Utility,0x1 0059 01cc | | Execute Vector,Catenate 005a 0092 02b6 | | Action Push_String_Extended,0x2b6 ; ", Goal => " 005c 01cc | | Execute Vector,Catenate 005d e5fa | | Load 0x2,-0x6 005e e004 | | Load 0x0,0x4 005f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0060 011c | | Execute Any,Convert_Unchecked 0061 1c01 | | Execute_Immediate Run_Utility,0x1 0062 01cc | | Execute Vector,Catenate 0063 0092 02b7 | | Action Push_String_Extended,0x2b7 ; ", Comments" 0065 01cc | | Execute Vector,Catenate 0066 e5f9 | | Load 0x2,-0x7 0067 e003 | | Load 0x0,0x3 0068 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0069 01cc | | Execute Vector,Catenate 006a 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Work_Order" 006c 01cc | | Execute Vector,Catenate 006d e5f8 | | Load 0x2,-0x8 006e e003 | | Load 0x0,0x3 006f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0070 01cc | | Execute Vector,Catenate 0071 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Response" 0073 01cc | | Execute Vector,Catenate 0074 e5f7 | | Load 0x2,-0x9 0075 e003 | | Load 0x0,0x3 0076 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0077 01cc | | Execute Vector,Catenate 0078 e402 | | Load 0x2,0x2 0079 e003 | | Load 0x0,0x3 007a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007b 00da | | Load_Top At_Offset_2 007c e005 | | Load 0x0,0x5 007d 180f | | Execute Package,Field_Execute,Field_Number 0xf 007e 8405 | | Call 0x2,0x5 007f 00da | | Load_Top At_Offset_2 0080 e5ff | | Load 0x2,-0x1 0081 e5fe | | Load 0x2,-0x2 0082 e006 | | Load 0x0,0x6 0083 180d | | Execute Package,Field_Execute,Field_Number 0xd 0084 e5fb | | Load 0x2,-0x5 0085 6801 |h | Jump_Zero 0x87 0086 8406 | | Call 0x2,0x6 0087 00da | | Load_Top At_Offset_2 0088 e00d | | Load 0x0,0xd 0089 e402 | | Load 0x2,0x2 008a e403 | | Load 0x2,0x3 008b e003 | | Load 0x0,0x3 008c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008d 450a |E | Exit_Suprogram New_Top_Offset 0xa 008e TRAP_0020: 008e e001 | | Load 0x0,0x1 008f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0090 010f | | Execute Exception,Equal 0091 6807 |h | Jump_Zero 0x99 0092 00db | | Load_Top At_Offset_3 0093 e00d | | Load 0x0,0xd 0094 e402 | | Load 0x2,0x2 0095 e403 | | Load 0x2,0x3 0096 e003 | | Load 0x0,0x3 0097 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0098 450a |E | Exit_Suprogram New_Top_Offset 0xa 0099 4884 |H | Short_Literal 0x84 009a 010f | | Execute Exception,Equal 009b 6807 |h | Jump_Zero 0xa3 009c 00db | | Load_Top At_Offset_3 009d e00d | | Load 0x0,0xd 009e e402 | | Load 0x2,0x2 009f e403 | | Load 0x2,0x3 00a0 e003 | | Load 0x0,0x3 00a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a2 450a |E | Exit_Suprogram New_Top_Offset 0xa 00a3 00db | | Load_Top At_Offset_3 00a4 e00d | | Load 0x0,0xd 00a5 e402 | | Load 0x2,0x2 00a6 e403 | | Load 0x2,0x3 00a7 e003 | | Load 0x0,0x3 00a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a9 450a |E | Exit_Suprogram New_Top_Offset 0xa 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c3 | | .CONST 0x00c3 ; Address of begin 00b1 00fa | | .CONST 0x00fa ; Address of exception handler 00b2 0006 | | .CONST 0x0006 ; Number of locals 00b3 INIT_00b0: 00b3 0092 02ba | | Action Push_String_Extended,0x2ba ; "Remove_Import" 00b5 e001 | | Load 0x0,0x1 00b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00b8 e002 | | Load 0x0,0x2 00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ba 02c7 | | Declare_Variable Any 00bb e5fb | | Load 0x2,-0x5 00bc e002 | | Load 0x0,0x2 00bd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00be a404 | | Store_Unchecked 0x2,0x4 00bf 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 00c1 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 00c3 BODY_00b0: 00c3 00da | | Load_Top At_Offset_2 00c4 e00d | | Load 0x0,0xd 00c5 0092 02bb | | Action Push_String_Extended,0x2bb ; "View" 00c7 e5ff | | Load 0x2,-0x1 00c8 e003 | | Load 0x0,0x3 00c9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ca 01cc | | Execute Vector,Catenate 00cb 0092 02bc | | Action Push_String_Extended,0x2bc ; "From_View" 00cd 01cc | | Execute Vector,Catenate 00ce e5fe | | Load 0x2,-0x2 00cf e003 | | Load 0x0,0x3 00d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d1 01cc | | Execute Vector,Catenate 00d2 0092 02bd | | Action Push_String_Extended,0x2bd ; "Comments" 00d4 01cc | | Execute Vector,Catenate 00d5 e5fd | | Load 0x2,-0x3 00d6 e003 | | Load 0x0,0x3 00d7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d8 01cc | | Execute Vector,Catenate 00d9 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Work_Order" 00db 01cc | | Execute Vector,Catenate 00dc e5fc | | Load 0x2,-0x4 00dd e003 | | Load 0x0,0x3 00de 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00df 01cc | | Execute Vector,Catenate 00e0 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Response" 00e2 01cc | | Execute Vector,Catenate 00e3 e5fb | | Load 0x2,-0x5 00e4 e003 | | Load 0x0,0x3 00e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e6 01cc | | Execute Vector,Catenate 00e7 e402 | | Load 0x2,0x2 00e8 e003 | | Load 0x0,0x3 00e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ea 8405 | | Call 0x2,0x5 00eb 00db | | Load_Top At_Offset_3 00ec e5fb | | Load 0x2,-0x5 00ed e5fc | | Load 0x2,-0x4 00ee e5fd | | Load 0x2,-0x3 00ef e5fe | | Load 0x2,-0x2 00f0 e5ff | | Load 0x2,-0x1 00f1 8406 | | Call 0x2,0x6 00f2 c403 | | Store 0x2,0x3 00f3 00da | | Load_Top At_Offset_2 00f4 e00d | | Load 0x0,0xd 00f5 e402 | | Load 0x2,0x2 00f6 e403 | | Load 0x2,0x3 00f7 e003 | | Load 0x0,0x3 00f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00fa TRAP_00b0: 00fa e001 | | Load 0x0,0x1 00fb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00fc 010f | | Execute Exception,Equal 00fd 6807 |h | Jump_Zero 0x105 00fe 00db | | Load_Top At_Offset_3 00ff e00d | | Load 0x0,0xd 0100 e402 | | Load 0x2,0x2 0101 e403 | | Load 0x2,0x3 0102 e003 | | Load 0x0,0x3 0103 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0104 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0105 4884 |H | Short_Literal 0x84 0106 010f | | Execute Exception,Equal 0107 6807 |h | Jump_Zero 0x10f 0108 00db | | Load_Top At_Offset_3 0109 e00d | | Load 0x0,0xd 010a e402 | | Load 0x2,0x2 010b e403 | | Load 0x2,0x3 010c e003 | | Load 0x0,0x3 010d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 010e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 010f 00db | | Load_Top At_Offset_3 0110 e00d | | Load 0x0,0xd 0111 e402 | | Load 0x2,0x2 0112 e403 | | Load 0x2,0x3 0113 e003 | | Load 0x0,0x3 0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0115 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0133 | 3 | .CONST 0x0133 ; Address of begin 0119 0154 | T | .CONST 0x0154 ; Address of exception handler 011a 0007 | | .CONST 0x0007 ; Number of locals 011b INIT_0118: 011b 0092 02be | | Action Push_String_Extended,0x2be ; "Show_Imports" 011d e001 | | Load 0x0,0x1 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0120 e002 | | Load 0x0,0x2 0121 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0122 02c7 | | Declare_Variable Any 0123 e5fd | | Load 0x2,-0x3 0124 e002 | | Load 0x0,0x2 0125 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0126 a404 | | Store_Unchecked 0x2,0x4 0127 e007 | | Load 0x0,0x7 0128 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0129 1b18 | | Execute Package,Field_Read,Field_Number 0x18 012a 02c7 | | Declare_Variable Any 012b 00d8 | | Load_Top At_Offset_0 012c 1c00 | | Execute_Immediate Run_Utility,0x0 012d e007 | | Load 0x0,0x7 012e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012f 02c7 | | Declare_Variable Any 0130 00d8 | | Load_Top At_Offset_0 0131 1c00 | | Execute_Immediate Run_Utility,0x0 0132 00e1 | | Load_Encached Boolean_Cache 0133 BODY_0118: 0133 00db | | Load_Top At_Offset_3 0134 e00d | | Load 0x0,0xd 0135 0092 02bb | | Action Push_String_Extended,0x2bb ; "View" 0137 e5ff | | Load 0x2,-0x1 0138 e003 | | Load 0x0,0x3 0139 1812 | | Execute Package,Field_Execute,Field_Number 0x12 013a 01cc | | Execute Vector,Catenate 013b 0092 02bf | | Action Push_String_Extended,0x2bf ; "Include_Remote_Libraries => " 013d 01cc | | Execute Vector,Catenate 013e e5fe | | Load 0x2,-0x2 013f 00e1 | | Load_Encached Boolean_Cache 0140 011c | | Execute Any,Convert_Unchecked 0141 1c01 | | Execute_Immediate Run_Utility,0x1 0142 01cc | | Execute Vector,Catenate 0143 0092 02c0 | | Action Push_String_Extended,0x2c0 ; ", Response" 0145 01cc | | Execute Vector,Catenate 0146 e5fd | | Load 0x2,-0x3 0147 e003 | | Load 0x0,0x3 0148 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0149 01cc | | Execute Vector,Catenate 014a e402 | | Load 0x2,0x2 014b e003 | | Load 0x0,0x3 014c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014d 00db | | Load_Top At_Offset_3 014e e00d | | Load 0x0,0xd 014f e402 | | Load 0x2,0x2 0150 e403 | | Load 0x2,0x3 0151 e003 | | Load 0x0,0x3 0152 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0153 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0154 TRAP_0118: 0154 e001 | | Load 0x0,0x1 0155 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0156 010f | | Execute Exception,Equal 0157 6807 |h | Jump_Zero 0x15f 0158 e404 | | Load 0x2,0x4 0159 e00d | | Load 0x0,0xd 015a e402 | | Load 0x2,0x2 015b e403 | | Load 0x2,0x3 015c e003 | | Load 0x0,0x3 015d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 015f 4884 |H | Short_Literal 0x84 0160 010f | | Execute Exception,Equal 0161 6807 |h | Jump_Zero 0x169 0162 e404 | | Load 0x2,0x4 0163 e00d | | Load 0x0,0xd 0164 e402 | | Load 0x2,0x2 0165 e403 | | Load 0x2,0x3 0166 e003 | | Load 0x0,0x3 0167 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0168 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0169 e404 | | Load 0x2,0x4 016a e00d | | Load 0x0,0xd 016b e402 | | Load 0x2,0x2 016c e403 | | Load 0x2,0x3 016d e003 | | Load 0x0,0x3 016e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 016f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0187 | | .CONST 0x0187 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4801 |H | Short_Literal 0x1 0174 4801 |H | Short_Literal 0x1 0175 4800 |H | Short_Literal 0x0 0176 4801 |H | Short_Literal 0x1 0177 e404 | | Load 0x2,0x4 0178 e002 | | Load 0x0,0x2 0179 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 017a e008 | | Load 0x0,0x8 017b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 017c e5f8 | | Load 0x2,-0x8 017d e5f9 | | Load 0x2,-0x7 017e e5fa | | Load 0x2,-0x6 017f 4800 |H | Short_Literal 0x0 0180 e5fc | | Load 0x2,-0x4 0181 e5fd | | Load 0x2,-0x3 0182 e5fe | | Load 0x2,-0x2 0183 e5ff | | Load 0x2,-0x1 0184 e009 | | Load 0x0,0x9 0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0186 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0187 TRAP_0170: 0187 0007 | | Action Break_Optional 0188 e404 | | Load 0x2,0x4 0189 4801 |H | Short_Literal 0x1 018a 4801 |H | Short_Literal 0x1 018b e00a | | Load 0x0,0xa 018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018d 035b | [ | Declare_Type Array,Constrained 018e 0337 | 7 | Declare_Variable Array 018f 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "Cmvc.Import" 0191 e00a | | Load 0x0,0xa 0192 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0193 e00a | | Load 0x0,0xa 0194 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0195 0119 | | Execute Any,Check_In_Formal_Type 0196 4801 |H | Short_Literal 0x1 0197 00da | | Load_Top At_Offset_2 0198 01d6 | | Execute Vector,Field_Write 0199 6006 |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x0000881f} 019a e001 | | Load 0x0,0x1 019b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 019c e001 | | Load 0x0,0x1 019d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 019e 0257 | W | Execute Discrete,Raise 019f 0000 | | .XXX[0x1] 01a0 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b8 | | .CONST 0x01b8 ; Address of begin 01a9 01ca | | .CONST 0x01ca ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e007 | | Load 0x0,0x7 01ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ad 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01ae 02c7 | | Declare_Variable Any 01af e404 | | Load 0x2,0x4 01b0 4800 |H | Short_Literal 0x0 01b1 e5fe | | Load 0x2,-0x2 01b2 e008 | | Load 0x0,0x8 01b3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01b4 a602 | | Store_Unchecked 0x3,0x2 01b5 00d8 | | Load_Top At_Offset_0 01b6 e008 | | Load 0x0,0x8 01b7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01b8 BODY_01a8: 01b8 4800 |H | Short_Literal 0x0 01b9 4801 |H | Short_Literal 0x1 01ba 4800 |H | Short_Literal 0x0 01bb 4801 |H | Short_Literal 0x1 01bc e404 | | Load 0x2,0x4 01bd e008 | | Load 0x0,0x8 01be 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01bf e002 | | Load 0x0,0x2 01c0 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01c1 4800 |H | Short_Literal 0x0 01c2 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "<ALL_WORLDS>" 01c4 e5fa | | Load 0x2,-0x6 01c5 4803 |H | Short_Literal 0x3 01c6 e603 | | Load 0x3,0x3 01c7 e004 | | Load 0x0,0x4 01c8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ca TRAP_01a8: 01ca 0007 | | Action Break_Optional 01cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e404 | | Load 0x2,0x4 01d4 e005 | | Load 0x0,0x5 01d5 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d6 e404 | | Load 0x2,0x4 01d7 0092 02bb | | Action Push_String_Extended,0x2bb ; "View" 01d9 4801 |H | Short_Literal 0x1 01da e5ff | | Load 0x2,-0x1 01db e005 | | Load 0x0,0x5 01dc 180d | | Execute Package,Field_Execute,Field_Number 0xd 01dd e404 | | Load 0x2,0x4 01de 0092 02bc | | Action Push_String_Extended,0x2bc ; "From_View" 01e0 e5fe | | Load 0x2,-0x2 01e1 e005 | | Load 0x0,0x5 01e2 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0216 | | .CONST 0x0216 ; Address of begin 01e9 0275 | u | .CONST 0x0275 ; Address of exception handler 01ea 000a | | .CONST 0x000a ; Number of locals 01eb INIT_01e8: 01eb e002 | | Load 0x0,0x2 01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ed 02c7 | | Declare_Variable Any 01ee e7fb | | Load 0x3,-0x5 01ef e002 | | Load 0x0,0x2 01f0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01f1 a602 | | Store_Unchecked 0x3,0x2 01f2 e007 | | Load 0x0,0x7 01f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01f4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01f5 02c7 | | Declare_Variable Any 01f6 00d8 | | Load_Top At_Offset_0 01f7 1c00 | | Execute_Immediate Run_Utility,0x0 01f8 e007 | | Load 0x0,0x7 01f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fa 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01fb 02c7 | | Declare_Variable Any 01fc 00d8 | | Load_Top At_Offset_0 01fd 1c00 | | Execute_Immediate Run_Utility,0x0 01fe e007 | | Load 0x0,0x7 01ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0200 02c7 | | Declare_Variable Any 0201 00d8 | | Load_Top At_Offset_0 0202 1c00 | | Execute_Immediate Run_Utility,0x0 0203 e007 | | Load 0x0,0x7 0204 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0205 02c7 | | Declare_Variable Any 0206 00d8 | | Load_Top At_Offset_0 0207 1c00 | | Execute_Immediate Run_Utility,0x0 0208 e007 | | Load 0x0,0x7 0209 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 020a 0322 | " | Declare_Variable Record 020b 00d8 | | Load_Top At_Offset_0 020c 1c00 | | Execute_Immediate Run_Utility,0x0 020d e007 | | Load 0x0,0x7 020e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020f 02c7 | | Declare_Variable Any 0210 00d8 | | Load_Top At_Offset_0 0211 1c00 | | Execute_Immediate Run_Utility,0x0 0212 00e1 | | Load_Encached Boolean_Cache 0213 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0214 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 0216 BODY_01e8: 0216 e602 | | Load 0x3,0x2 0217 4801 |H | Short_Literal 0x1 0218 e7fe | | Load 0x3,-0x2 0219 e008 | | Load 0x0,0x8 021a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 021b c604 | | Store 0x3,0x4 021c e602 | | Load 0x3,0x2 021d 4801 |H | Short_Literal 0x1 021e e7ff | | Load 0x3,-0x1 021f e008 | | Load 0x0,0x8 0220 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0221 c603 | | Store 0x3,0x3 0222 860a | | Call 0x3,0xa 0223 00cf | | Action Mark_Auxiliary 0224 784a |xJ | Jump 0x26f 0225 e602 | | Load 0x3,0x2 0226 4801 |H | Short_Literal 0x1 0227 e604 | | Load 0x3,0x4 0228 e008 | | Load 0x0,0x8 0229 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 022a c605 | | Store 0x3,0x5 022b e602 | | Load 0x3,0x2 022c e605 | | Load 0x3,0x5 022d e008 | | Load 0x0,0x8 022e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 022f e607 | | Load 0x3,0x7 0230 017d | } | Execute Record,Structure_Write 0231 00cf | | Action Mark_Auxiliary 0232 782b |x+ | Jump 0x25e 0233 e602 | | Load 0x3,0x2 0234 4801 |H | Short_Literal 0x1 0235 e603 | | Load 0x3,0x3 0236 e008 | | Load 0x0,0x8 0237 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0238 c606 | | Store 0x3,0x6 0239 e607 | | Load 0x3,0x7 023a e605 | | Load 0x3,0x5 023b e008 | | Load 0x0,0x8 023c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 023d e606 | | Load 0x3,0x6 023e e00b | | Load 0x0,0xb 023f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0240 a609 | | Store_Unchecked 0x3,0x9 0241 e7fa | | Load 0x3,-0x6 0242 e602 | | Load 0x3,0x2 0243 e606 | | Load 0x3,0x6 0244 e602 | | Load 0x3,0x2 0245 e605 | | Load 0x3,0x5 0246 e008 | | Load 0x0,0x8 0247 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0248 e605 | | Load 0x3,0x5 0249 e008 | | Load 0x0,0x8 024a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 024b e00c | | Load 0x0,0xc 024c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 024d c7fa | | Store 0x3,-0x6 024e 00db | | Load_Top At_Offset_3 024f 6808 |h | Jump_Zero 0x258 0250 e607 | | Load 0x3,0x7 0251 e605 | | Load 0x3,0x5 0252 e008 | | Load 0x0,0x8 0253 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0254 e606 | | Load 0x3,0x6 0255 e00b | | Load 0x0,0xb 0256 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0257 a609 | | Store_Unchecked 0x3,0x9 0258 e603 | | Load 0x3,0x3 0259 e007 | | Load 0x0,0x7 025a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 025c c603 | | Store 0x3,0x3 025d 00c9 | | Action Pop_Auxiliary_Loop 025e e603 | | Load 0x3,0x3 025f e007 | | Load 0x0,0x7 0260 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0261 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0262 6fd0 |o | Jump_Zero 0x233 0263 00ce | | Action Pop_Auxiliary 0264 e603 | | Load 0x3,0x3 0265 e007 | | Load 0x0,0x7 0266 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0267 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0268 c603 | | Store 0x3,0x3 0269 e604 | | Load 0x3,0x4 026a e007 | | Load 0x0,0x7 026b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 026d c604 | | Store 0x3,0x4 026e 00c9 | | Action Pop_Auxiliary_Loop 026f e604 | | Load 0x3,0x4 0270 e007 | | Load 0x0,0x7 0271 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0272 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0273 6fb1 |o | Jump_Zero 0x225 0274 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0275 TRAP_01e8: 0275 e001 | | Load 0x0,0x1 0276 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0277 010f | | Execute Exception,Equal 0278 6801 |h | Jump_Zero 0x27a 0279 4506 |E | Exit_Suprogram New_Top_Offset 0x6 027a 0100 | | Execute Exception,Raise 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0291 | | .CONST 0x0291 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 0284 4801 |H | Short_Literal 0x1 0285 4800 |H | Short_Literal 0x0 0286 4801 |H | Short_Literal 0x1 0287 e7fb | | Load 0x3,-0x5 0288 e008 | | Load 0x0,0x8 0289 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 028a e7fc | | Load 0x3,-0x4 028b e7fd | | Load 0x3,-0x3 028c e7fe | | Load 0x3,-0x2 028d e7ff | | Load 0x3,-0x1 028e e009 | | Load 0x0,0x9 028f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0290 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0291 TRAP_0280: 0291 0007 | | Action Break_Optional 0292 e602 | | Load 0x3,0x2 0293 4801 |H | Short_Literal 0x1 0294 4801 |H | Short_Literal 0x1 0295 e00a | | Load 0x0,0xa 0296 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0297 035b | [ | Declare_Type Array,Constrained 0298 0337 | 7 | Declare_Variable Array 0299 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "Cmvc.Remove_Import" 029b e00a | | Load 0x0,0xa 029c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 029d e00a | | Load 0x0,0xa 029e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029f 0119 | | Execute Any,Check_In_Formal_Type 02a0 4801 |H | Short_Literal 0x1 02a1 00da | | Load_Top At_Offset_2 02a2 01d6 | | Execute Vector,Field_Write 02a3 6008 |` | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x0000881f} 02a4 e001 | | Load 0x0,0x1 02a5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02a6 e001 | | Load 0x0,0x1 02a7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a8 0257 | W | Execute Discrete,Raise 02a9 0000 0000 | | .XXX[0x3] 02ab 0000 | | 02ac 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; STRING TABLE 02b0 ; -------------------------------------------------------------------------------------- 02b0 002a | * | .STRTAB 0x002a->0x02c5 ; "Import" 02b1 002e | . | .STRTAB 0x002e->0x02c8 ; "View_To_Import" 02b2 003a | : | .STRTAB 0x003a->0x02cf ; "Into_View" 02b3 0041 | A | .STRTAB 0x0041->0x02d3 ; "Only_Change_Imports => " 02b4 0056 | V | .STRTAB 0x0056->0x02df ; ", Import_Closure => " 02b5 0068 | h | .STRTAB 0x0068->0x02e9 ; ", Remake_Demoted_Units => " 02b6 0080 | | .STRTAB 0x0080->0x02f6 ; ", Goal => " 02b7 0088 | | .STRTAB 0x0088->0x02fb ; ", Comments" 02b8 0090 | | .STRTAB 0x0090->0x0300 ; "Work_Order" 02b9 0098 | | .STRTAB 0x0098->0x0305 ; "Response" 02ba 009e | | .STRTAB 0x009e->0x0309 ; "Remove_Import" 02bb 00a9 | | .STRTAB 0x00a9->0x030f ; "View" 02bc 00ab | | .STRTAB 0x00ab->0x0311 ; "From_View" 02bd 00b2 | | .STRTAB 0x00b2->0x0316 ; "Comments" 02be 00b8 | | .STRTAB 0x00b8->0x031a ; "Show_Imports" 02bf 00c2 | | .STRTAB 0x00c2->0x0320 ; "Include_Remote_Libraries => " 02c0 00dc | | .STRTAB 0x00dc->0x032e ; ", Response" 02c1 00e4 | | .STRTAB 0x00e4->0x0333 ; "Cmvc.Import" 02c2 00ed | | .STRTAB 0x00ed->0x0338 ; "<ALL_WORLDS>" 02c3 00f7 | | .STRTAB 0x00f7->0x033e ; "Cmvc.Remove_Import" 02c4 0107 | | .STREND 0x0107->0x0347 02c5 496d 706f |Impo| .STRTAB_STRINGS 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug Table 0348 ; -------------------------------------------------------------------------------------- 0348 0004 000d | | .DEBUG4 0x0004,0x000d,0xa6b5,0x0000,0x0001,0x0000 034e 0000 0080 | | .XXX[0x16] 0350 09dc f804 | | 0352 0000 007f | | 0354 0001 bc13 | | 0356 0000 25f2 | % | 0358 09dc f804 | | 035a 0000 08bf | | 035c 0005 a04f | O| 035e 0000 2400 | $ | 0360 09dc f804 | | 0362 0800 04b8 | | 0364 0000 0000 | | .BLANK 0000[0x4] 0368 09dc dc04 | | .XXX[0x18] 036a 0000 2f16 | / | 036c 0001 bc13 | | 036e 0000 40b3 | @ | 0370 09dc f804 | | 0372 0800 1180 | | 0374 1d9b c50a | | 0376 0000 00df | | 0378 09dd 0804 | | 037a 0800 1180 | | 037c 1b87 310a | 1 | 037e 0000 00df | | 0380 0000 0000 | | .BLANK 0000[0x7] 0387 7fff ffff | | .XXX[0x8] 0389 8000 0002 | | 038b 1dd0 250a | % | 038d 0001 87bb | | 038f 0000 0000 | | .BLANK 0000[0x4] 0393 1dd0 250a | % | .XXX[0x4] 0395 0001 87bb | | 0397 0000 0000 | | .BLANK 0000[0x4] 039b 1dd0 250a | % | .XXX[0x7] 039d 0001 a073 | s| 039f 0000 0004 | | 03a1 8000 | | 03a2 0000 0000 | | .BLANK 0000[0x7] 03a9 3fe8 0000 |? | .XXX[0xb] 03ab 0020 0000 | | 03ad 0000 0090 | | 03af b230 ee9c | 0 | 03b1 4850 01b0 |HP | 03b3 8478 | x | 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ee9c 4850 | HP| .XXX[0x4] 03ba 01b1 0bf8 | | 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 ee81 2850 | (P| .XXX[0x40] 03c2 000c 7444 | tD| 03c4 0200 0000 | | 03c6 0000 0000 | | 03c8 0080 0000 | | 03ca 0000 0743 | C| 03cc 4e00 0000 |N | 03ce 0000 09dd | | 03d0 0e80 0000 | | 03d2 0000 0040 | @| 03d4 0002 7dd0 | } | 03d6 005c 154d | \ M| 03d8 5105 5114 |Q Q | 03da 00a0 1119 | | 03dc 2531 1401 |%1 | 03de 5445 0d3d |TE =| 03e0 3541 2531 |5A%1| 03e2 1549 7d4d | I}M| 03e4 5d25 510d |]%Q | 03e6 2115 4c01 |! L | 03e8 5025 1125 |P% %| 03ea 4915 0d51 |I Q| 03ec 3d49 6400 |=Id | 03ee e829 513d | )Q=| 03f0 3d31 7d4d |=1}M| 03f2 5105 5114 |Q Q | 03f4 0124 3905 | $9 | 03f6 0d0d 154d | M| 03f8 4d7d 0d3d |M} =| 03fa 3951 493d |9QI=| 03fc 3001 b01d |0 | 03fe 1561 413d | aA=|