|
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_6a18da
└─⟦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 0368 | h | .CONST 0x0368 ; 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 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 0123 | #| Declare_Subprogram INIT_0120,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 0091 | | .CONST 0x0091 ; Address of exception handler 0022 0006 | | .CONST 0x0006 ; Number of locals 0023 INIT_0020: 0023 0092 02bc | | Action Push_String_Extended,0x2bc ; "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 0183 | | Declare_Subprogram INIT_0180,For_Call 0031 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0033 BODY_0020: 0033 00da | | Load_Top At_Offset_2 0034 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0036 0092 02be | | Action Push_String_Extended,0x2be ; "View_To_Import" 0038 e5ff | | Load 0x2,-0x1 0039 e003 | | Load 0x0,0x3 003a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 003b 01cc | | Execute Vector,Catenate 003c 0092 02bf | | Action Push_String_Extended,0x2bf ; "Into_View" 003e 01cc | | Execute Vector,Catenate 003f e5fe | | Load 0x2,-0x2 0040 e003 | | Load 0x0,0x3 0041 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0042 01cc | | Execute Vector,Catenate 0043 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "Only_Change_Imports => " 0045 01cc | | Execute Vector,Catenate 0046 e5fd | | Load 0x2,-0x3 0047 00e1 | | Load_Encached Boolean_Cache 0048 011c | | Execute Any,Convert_Unchecked 0049 1c01 | | Execute_Immediate Run_Utility,0x1 004a 01cc | | Execute Vector,Catenate 004b 0092 02c1 | | Action Push_String_Extended,0x2c1 ; ", Import_Closure => " 004d 01cc | | Execute Vector,Catenate 004e e5fc | | Load 0x2,-0x4 004f 00e1 | | Load_Encached Boolean_Cache 0050 011c | | Execute Any,Convert_Unchecked 0051 1c01 | | Execute_Immediate Run_Utility,0x1 0052 01cc | | Execute Vector,Catenate 0053 0092 02c2 | | Action Push_String_Extended,0x2c2 ; ", Remake_Demoted_Units => " 0055 01cc | | Execute Vector,Catenate 0056 e5fb | | Load 0x2,-0x5 0057 00e1 | | Load_Encached Boolean_Cache 0058 011c | | Execute Any,Convert_Unchecked 0059 1c01 | | Execute_Immediate Run_Utility,0x1 005a 01cc | | Execute Vector,Catenate 005b 0092 02c3 | | Action Push_String_Extended,0x2c3 ; ", Goal => " 005d 01cc | | Execute Vector,Catenate 005e e5fa | | Load 0x2,-0x6 005f e004 | | Load 0x0,0x4 0060 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0061 011c | | Execute Any,Convert_Unchecked 0062 1c01 | | Execute_Immediate Run_Utility,0x1 0063 01cc | | Execute Vector,Catenate 0064 0092 02c4 | | Action Push_String_Extended,0x2c4 ; ", Comments" 0066 01cc | | Execute Vector,Catenate 0067 e5f9 | | Load 0x2,-0x7 0068 e003 | | Load 0x0,0x3 0069 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006a 01cc | | Execute Vector,Catenate 006b 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Work_Order" 006d 01cc | | Execute Vector,Catenate 006e e5f8 | | Load 0x2,-0x8 006f e003 | | Load 0x0,0x3 0070 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0071 01cc | | Execute Vector,Catenate 0072 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Response" 0074 01cc | | Execute Vector,Catenate 0075 e5f7 | | Load 0x2,-0x9 0076 e003 | | Load 0x0,0x3 0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0078 01cc | | Execute Vector,Catenate 0079 e402 | | Load 0x2,0x2 007a e003 | | Load 0x0,0x3 007b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007c 00da | | Load_Top At_Offset_2 007d e005 | | Load 0x0,0x5 007e 180f | | Execute Package,Field_Execute,Field_Number 0xf 007f 8405 | | Call 0x2,0x5 0080 00da | | Load_Top At_Offset_2 0081 e002 | | Load 0x0,0x2 0082 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0083 e5fe | | Load 0x2,-0x2 0084 e006 | | Load 0x0,0x6 0085 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0086 e5fb | | Load 0x2,-0x5 0087 6801 |h | Jump_Zero 0x89 0088 8406 | | Call 0x2,0x6 0089 00da | | Load_Top At_Offset_2 008a 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 008c e402 | | Load 0x2,0x2 008d e403 | | Load 0x2,0x3 008e e003 | | Load 0x0,0x3 008f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0090 450a |E | Exit_Suprogram New_Top_Offset 0xa 0091 TRAP_0020: 0091 e001 | | Load 0x0,0x1 0092 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0093 010f | | Execute Exception,Equal 0094 6808 |h | Jump_Zero 0x9d 0095 00db | | Load_Top At_Offset_3 0096 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0098 e402 | | Load 0x2,0x2 0099 e403 | | Load 0x2,0x3 009a e003 | | Load 0x0,0x3 009b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009c 450a |E | Exit_Suprogram New_Top_Offset 0xa 009d 4884 |H | Short_Literal 0x84 009e 010f | | Execute Exception,Equal 009f 6808 |h | Jump_Zero 0xa8 00a0 00db | | Load_Top At_Offset_3 00a1 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 00a3 e402 | | Load 0x2,0x2 00a4 e403 | | Load 0x2,0x3 00a5 e003 | | Load 0x0,0x3 00a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a7 450a |E | Exit_Suprogram New_Top_Offset 0xa 00a8 00db | | Load_Top At_Offset_3 00a9 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 00ab e402 | | Load 0x2,0x2 00ac e403 | | Load 0x2,0x3 00ad e003 | | Load 0x0,0x3 00ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00af 450a |E | Exit_Suprogram New_Top_Offset 0xa 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c3 | | .CONST 0x00c3 ; Address of begin 00b1 00fc | | .CONST 0x00fc ; Address of exception handler 00b2 0006 | | .CONST 0x0006 ; Number of locals 00b3 INIT_00b0: 00b3 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "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 01db | | Declare_Subprogram INIT_01d8,For_Call 00c1 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 00c3 BODY_00b0: 00c3 00da | | Load_Top At_Offset_2 00c4 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 00c6 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "View" 00c8 e5ff | | Load 0x2,-0x1 00c9 e003 | | Load 0x0,0x3 00ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00cb 01cc | | Execute Vector,Catenate 00cc 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "From_View" 00ce 01cc | | Execute Vector,Catenate 00cf e5fe | | Load 0x2,-0x2 00d0 e003 | | Load 0x0,0x3 00d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d2 01cc | | Execute Vector,Catenate 00d3 0092 02ca | | Action Push_String_Extended,0x2ca ; "Comments" 00d5 01cc | | Execute Vector,Catenate 00d6 e5fd | | Load 0x2,-0x3 00d7 e003 | | Load 0x0,0x3 00d8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d9 01cc | | Execute Vector,Catenate 00da 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Work_Order" 00dc 01cc | | Execute Vector,Catenate 00dd e5fc | | Load 0x2,-0x4 00de e003 | | Load 0x0,0x3 00df 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e0 01cc | | Execute Vector,Catenate 00e1 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Response" 00e3 01cc | | Execute Vector,Catenate 00e4 e5fb | | Load 0x2,-0x5 00e5 e003 | | Load 0x0,0x3 00e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e7 01cc | | Execute Vector,Catenate 00e8 e402 | | Load 0x2,0x2 00e9 e003 | | Load 0x0,0x3 00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00eb 8405 | | Call 0x2,0x5 00ec 00db | | Load_Top At_Offset_3 00ed e5fb | | Load 0x2,-0x5 00ee e5fc | | Load 0x2,-0x4 00ef e5fd | | Load 0x2,-0x3 00f0 e5fe | | Load 0x2,-0x2 00f1 e5ff | | Load 0x2,-0x1 00f2 8406 | | Call 0x2,0x6 00f3 c403 | | Store 0x2,0x3 00f4 00da | | Load_Top At_Offset_2 00f5 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 00f7 e402 | | Load 0x2,0x2 00f8 e403 | | Load 0x2,0x3 00f9 e003 | | Load 0x0,0x3 00fa 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00fc TRAP_00b0: 00fc e001 | | Load 0x0,0x1 00fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00fe 010f | | Execute Exception,Equal 00ff 6808 |h | Jump_Zero 0x108 0100 00db | | Load_Top At_Offset_3 0101 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0103 e402 | | Load 0x2,0x2 0104 e403 | | Load 0x2,0x3 0105 e003 | | Load 0x0,0x3 0106 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0107 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0108 4884 |H | Short_Literal 0x84 0109 010f | | Execute Exception,Equal 010a 6808 |h | Jump_Zero 0x113 010b 00db | | Load_Top At_Offset_3 010c 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 010e e402 | | Load 0x2,0x2 010f e403 | | Load 0x2,0x3 0110 e003 | | Load 0x0,0x3 0111 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0112 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0113 00db | | Load_Top At_Offset_3 0114 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0116 e402 | | Load 0x2,0x2 0117 e403 | | Load 0x2,0x3 0118 e003 | | Load 0x0,0x3 0119 1816 | | Execute Package,Field_Execute,Field_Number 0x16 011a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 013b | ; | .CONST 0x013b ; Address of begin 0121 015e | ^ | .CONST 0x015e ; Address of exception handler 0122 0007 | | .CONST 0x0007 ; Number of locals 0123 INIT_0120: 0123 0092 02cb | | Action Push_String_Extended,0x2cb ; "Show_Imports" 0125 e001 | | Load 0x0,0x1 0126 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0127 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0128 e002 | | Load 0x0,0x2 0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012a 02c7 | | Declare_Variable Any 012b e5fd | | Load 0x2,-0x3 012c e002 | | Load 0x0,0x2 012d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 012e a404 | | Store_Unchecked 0x2,0x4 012f e007 | | Load 0x0,0x7 0130 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0131 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0132 02c7 | | Declare_Variable Any 0133 00d8 | | Load_Top At_Offset_0 0134 1c00 | | Execute_Immediate Run_Utility,0x0 0135 e007 | | Load 0x0,0x7 0136 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0137 02c7 | | Declare_Variable Any 0138 00d8 | | Load_Top At_Offset_0 0139 1c00 | | Execute_Immediate Run_Utility,0x0 013a 00e1 | | Load_Encached Boolean_Cache 013b BODY_0120: 013b 00db | | Load_Top At_Offset_3 013c 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 013e 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "View" 0140 e5ff | | Load 0x2,-0x1 0141 e003 | | Load 0x0,0x3 0142 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0143 01cc | | Execute Vector,Catenate 0144 0092 02cc | | Action Push_String_Extended,0x2cc ; "Include_Remote_Libraries => " 0146 01cc | | Execute Vector,Catenate 0147 e5fe | | Load 0x2,-0x2 0148 00e1 | | Load_Encached Boolean_Cache 0149 011c | | Execute Any,Convert_Unchecked 014a 1c01 | | Execute_Immediate Run_Utility,0x1 014b 01cc | | Execute Vector,Catenate 014c 0092 02cd | | Action Push_String_Extended,0x2cd ; ", Response" 014e 01cc | | Execute Vector,Catenate 014f e5fd | | Load 0x2,-0x3 0150 e003 | | Load 0x0,0x3 0151 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0152 01cc | | Execute Vector,Catenate 0153 e402 | | Load 0x2,0x2 0154 e003 | | Load 0x0,0x3 0155 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0156 00db | | Load_Top At_Offset_3 0157 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0159 e402 | | Load 0x2,0x2 015a e403 | | Load 0x2,0x3 015b e003 | | Load 0x0,0x3 015c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 015e TRAP_0120: 015e e001 | | Load 0x0,0x1 015f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0160 010f | | Execute Exception,Equal 0161 6808 |h | Jump_Zero 0x16a 0162 e404 | | Load 0x2,0x4 0163 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0165 e402 | | Load 0x2,0x2 0166 e403 | | Load 0x2,0x3 0167 e003 | | Load 0x0,0x3 0168 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0169 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016a 4884 |H | Short_Literal 0x84 016b 010f | | Execute Exception,Equal 016c 6808 |h | Jump_Zero 0x175 016d e404 | | Load 0x2,0x4 016e 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0170 e402 | | Load 0x2,0x2 0171 e403 | | Load 0x2,0x3 0172 e003 | | Load 0x0,0x3 0173 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0174 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0175 e404 | | Load 0x2,0x4 0176 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Cmvc." 0178 e402 | | Load 0x2,0x2 0179 e403 | | Load 0x2,0x3 017a e003 | | Load 0x0,0x3 017b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0197 | | .CONST 0x0197 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4801 |H | Short_Literal 0x1 0184 4801 |H | Short_Literal 0x1 0185 4800 |H | Short_Literal 0x0 0186 4801 |H | Short_Literal 0x1 0187 e404 | | Load 0x2,0x4 0188 e002 | | Load 0x0,0x2 0189 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 018a e008 | | Load 0x0,0x8 018b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 018c e5f8 | | Load 0x2,-0x8 018d e5f9 | | Load 0x2,-0x7 018e e5fa | | Load 0x2,-0x6 018f 4800 |H | Short_Literal 0x0 0190 e5fc | | Load 0x2,-0x4 0191 e5fd | | Load 0x2,-0x3 0192 e5fe | | Load 0x2,-0x2 0193 e5ff | | Load 0x2,-0x1 0194 e009 | | Load 0x0,0x9 0195 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0196 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0197 TRAP_0180: 0197 0007 | | Action Break_Optional 0198 e404 | | Load 0x2,0x4 0199 4801 |H | Short_Literal 0x1 019a 4801 |H | Short_Literal 0x1 019b e00a | | Load 0x0,0xa 019c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019d 0334 | 4 | Declare_Variable Array,With_Constraint 019e 0092 02ce | | Action Push_String_Extended,0x2ce ; "Cmvc.Import" 01a0 e00a | | Load 0x0,0xa 01a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a2 e00a | | Load 0x0,0xa 01a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a4 0119 | | Execute Any,Check_In_Formal_Type 01a5 4801 |H | Short_Literal 0x1 01a6 00da | | Load_Top At_Offset_2 01a7 01d6 | | Execute Vector,Field_Write 01a8 6007 |` | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0000881f} 01a9 e001 | | Load 0x0,0x1 01aa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01ab e001 | | Load 0x0,0x1 01ac 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01ad 0257 | W | Execute Discrete,Raise 01ae 0000 0000 | | .XXX[0x2] 01b0 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 01d0 | | .CONST 0x01d0 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4800 |H | Short_Literal 0x0 01bc 4801 |H | Short_Literal 0x1 01bd 4800 |H | Short_Literal 0x0 01be 4801 |H | Short_Literal 0x1 01bf e404 | | Load 0x2,0x4 01c0 e008 | | Load 0x0,0x8 01c1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01c2 e002 | | Load 0x0,0x2 01c3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01c4 4800 |H | Short_Literal 0x0 01c5 0092 02cf | | Action Push_String_Extended,0x2cf ; "<ALL_WORLDS>" 01c7 e5fa | | Load 0x2,-0x6 01c8 4803 |H | Short_Literal 0x3 01c9 e5fe | | Load 0x2,-0x2 01ca 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "'c(combined_view)'t(~r1000)" 01cc 01cc | | Execute Vector,Catenate 01cd e004 | | Load 0x0,0x4 01ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d0 TRAP_01b8: 01d0 0007 | | Action Break_Optional 01d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d2 0000 0000 | | .BLANK 0000[0x6] 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 e404 | | Load 0x2,0x4 01dc e005 | | Load 0x0,0x5 01dd 180f | | Execute Package,Field_Execute,Field_Number 0xf 01de e404 | | Load 0x2,0x4 01df 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "View" 01e1 4801 |H | Short_Literal 0x1 01e2 e5ff | | Load 0x2,-0x1 01e3 e005 | | Load 0x0,0x5 01e4 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e5 e404 | | Load 0x2,0x4 01e6 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "From_View" 01e8 e5fe | | Load 0x2,-0x2 01e9 e005 | | Load 0x0,0x5 01ea 180e | | Execute Package,Field_Execute,Field_Number 0xe 01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 021e | | .CONST 0x021e ; Address of begin 01f1 0289 | | .CONST 0x0289 ; Address of exception handler 01f2 000a | | .CONST 0x000a ; Number of locals 01f3 INIT_01f0: 01f3 e002 | | Load 0x0,0x2 01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f5 02c7 | | Declare_Variable Any 01f6 e7fb | | Load 0x3,-0x5 01f7 e002 | | Load 0x0,0x2 01f8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01f9 a602 | | Store_Unchecked 0x3,0x2 01fa e007 | | Load 0x0,0x7 01fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01fd 02c7 | | Declare_Variable Any 01fe 00d8 | | Load_Top At_Offset_0 01ff 1c00 | | Execute_Immediate Run_Utility,0x0 0200 e007 | | Load 0x0,0x7 0201 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0202 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0203 02c7 | | Declare_Variable Any 0204 00d8 | | Load_Top At_Offset_0 0205 1c00 | | Execute_Immediate Run_Utility,0x0 0206 e007 | | Load 0x0,0x7 0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0208 02c7 | | Declare_Variable Any 0209 00d8 | | Load_Top At_Offset_0 020a 1c00 | | Execute_Immediate Run_Utility,0x0 020b e007 | | Load 0x0,0x7 020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020d 02c7 | | Declare_Variable Any 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 e007 | | Load 0x0,0x7 0211 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0212 0322 | " | Declare_Variable Record 0213 00d8 | | Load_Top At_Offset_0 0214 1c00 | | Execute_Immediate Run_Utility,0x0 0215 e007 | | Load 0x0,0x7 0216 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0217 02c7 | | Declare_Variable Any 0218 00d8 | | Load_Top At_Offset_0 0219 1c00 | | Execute_Immediate Run_Utility,0x0 021a 00e1 | | Load_Encached Boolean_Cache 021b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 021c 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 021e BODY_01f0: 021e e602 | | Load 0x3,0x2 021f 4801 |H | Short_Literal 0x1 0220 e7fe | | Load 0x3,-0x2 0221 e008 | | Load 0x0,0x8 0222 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0223 c604 | | Store 0x3,0x4 0224 e602 | | Load 0x3,0x2 0225 4801 |H | Short_Literal 0x1 0226 e7ff | | Load 0x3,-0x1 0227 e008 | | Load 0x0,0x8 0228 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0229 c603 | | Store 0x3,0x3 022a 860a | | Call 0x3,0xa 022b 00cf | | Action Mark_Auxiliary 022c 7856 |xV | Jump 0x283 022d e602 | | Load 0x3,0x2 022e 4801 |H | Short_Literal 0x1 022f e604 | | Load 0x3,0x4 0230 e008 | | Load 0x0,0x8 0231 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0232 c605 | | Store 0x3,0x5 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 e602 | | Load 0x3,0x2 023a e605 | | Load 0x3,0x5 023b e008 | | Load 0x0,0x8 023c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 023d e607 | | Load 0x3,0x7 023e 017d | } | Execute Record,Structure_Write 023f e607 | | Load 0x3,0x7 0240 e605 | | Load 0x3,0x5 0241 e008 | | Load 0x0,0x8 0242 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0243 e606 | | Load 0x3,0x6 0244 e00b | | Load 0x0,0xb 0245 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0246 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0247 e602 | | Load 0x3,0x2 0248 4801 |H | Short_Literal 0x1 0249 e606 | | Load 0x3,0x6 024a e008 | | Load 0x0,0x8 024b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 024c c608 | | Store 0x3,0x8 024d 00cf | | Action Mark_Auxiliary 024e 7819 |x | Jump 0x268 024f e602 | | Load 0x3,0x2 0250 4801 |H | Short_Literal 0x1 0251 e603 | | Load 0x3,0x3 0252 e008 | | Load 0x0,0x8 0253 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0254 c606 | | Store 0x3,0x6 0255 e7fa | | Load 0x3,-0x6 0256 e602 | | Load 0x3,0x2 0257 e606 | | Load 0x3,0x6 0258 e602 | | Load 0x3,0x2 0259 e605 | | Load 0x3,0x5 025a e008 | | Load 0x0,0x8 025b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 025c e605 | | Load 0x3,0x5 025d e008 | | Load 0x0,0x8 025e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 025f e00c | | Load 0x0,0xc 0260 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0261 c7fa | | Store 0x3,-0x6 0262 e603 | | Load 0x3,0x3 0263 e007 | | Load 0x0,0x7 0264 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0265 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0266 c603 | | Store 0x3,0x3 0267 00c9 | | Action Pop_Auxiliary_Loop 0268 e603 | | Load 0x3,0x3 0269 e007 | | Load 0x0,0x7 026a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 026c 6fe2 |o | Jump_Zero 0x24f 026d 00ce | | Action Pop_Auxiliary 026e e603 | | Load 0x3,0x3 026f e007 | | Load 0x0,0x7 0270 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0271 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0272 c603 | | Store 0x3,0x3 0273 00da | | Load_Top At_Offset_2 0274 6808 |h | Jump_Zero 0x27d 0275 e607 | | Load 0x3,0x7 0276 e605 | | Load 0x3,0x5 0277 e008 | | Load 0x0,0x8 0278 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0279 e606 | | Load 0x3,0x6 027a e00b | | Load 0x0,0xb 027b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 027c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 027d e604 | | Load 0x3,0x4 027e e007 | | Load 0x0,0x7 027f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0280 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0281 c604 | | Store 0x3,0x4 0282 00c9 | | Action Pop_Auxiliary_Loop 0283 e604 | | Load 0x3,0x4 0284 e007 | | Load 0x0,0x7 0285 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0286 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0287 6fa5 |o | Jump_Zero 0x22d 0288 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0289 TRAP_01f0: 0289 e001 | | Load 0x0,0x1 028a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 028b 010f | | Execute Exception,Equal 028c 6801 |h | Jump_Zero 0x28e 028d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 028e 0100 | | Execute Exception,Raise 028f 0000 | | .XXX[0x1] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 02a1 | | .CONST 0x02a1 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 4801 |H | Short_Literal 0x1 0294 4801 |H | Short_Literal 0x1 0295 4800 |H | Short_Literal 0x0 0296 4801 |H | Short_Literal 0x1 0297 e7fb | | Load 0x3,-0x5 0298 e008 | | Load 0x0,0x8 0299 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 029a e7fc | | Load 0x3,-0x4 029b e7fd | | Load 0x3,-0x3 029c e7fe | | Load 0x3,-0x2 029d e7ff | | Load 0x3,-0x1 029e e009 | | Load 0x0,0x9 029f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a1 TRAP_0290: 02a1 0007 | | Action Break_Optional 02a2 e602 | | Load 0x3,0x2 02a3 4801 |H | Short_Literal 0x1 02a4 4801 |H | Short_Literal 0x1 02a5 e00a | | Load 0x0,0xa 02a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02a7 0334 | 4 | Declare_Variable Array,With_Constraint 02a8 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "Cmvc.Remove_Import" 02aa e00a | | Load 0x0,0xa 02ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ac e00a | | Load 0x0,0xa 02ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ae 0119 | | Execute Any,Check_In_Formal_Type 02af 4801 |H | Short_Literal 0x1 02b0 00da | | Load_Top At_Offset_2 02b1 01d6 | | Execute Vector,Field_Write 02b2 6005 |` | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0000881f} 02b3 e001 | | Load 0x0,0x1 02b4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02b5 e001 | | Load 0x0,0x1 02b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02b7 0257 | W | Execute Discrete,Raise 02b8 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 02bc ; -------------------------------------------------------------------------------------- 02bc ; STRING TABLE 02bc ; -------------------------------------------------------------------------------------- 02bc 002e | . | .STRTAB 0x002e->0x02d3 ; "Import" 02bd 0032 | 2 | .STRTAB 0x0032->0x02d6 ; "Rcf_Cmvc." 02be 0039 | 9 | .STRTAB 0x0039->0x02da ; "View_To_Import" 02bf 0045 | E | .STRTAB 0x0045->0x02e1 ; "Into_View" 02c0 004c | L | .STRTAB 0x004c->0x02e6 ; "Only_Change_Imports => " 02c1 0061 | a | .STRTAB 0x0061->0x02f1 ; ", Import_Closure => " 02c2 0073 | s | .STRTAB 0x0073->0x02fb ; ", Remake_Demoted_Units => " 02c3 008b | | .STRTAB 0x008b->0x0308 ; ", Goal => " 02c4 0093 | | .STRTAB 0x0093->0x030d ; ", Comments" 02c5 009b | | .STRTAB 0x009b->0x0312 ; "Work_Order" 02c6 00a3 | | .STRTAB 0x00a3->0x0317 ; "Response" 02c7 00a9 | | .STRTAB 0x00a9->0x031b ; "Remove_Import" 02c8 00b4 | | .STRTAB 0x00b4->0x0322 ; "View" 02c9 00b6 | | .STRTAB 0x00b6->0x0324 ; "From_View" 02ca 00bd | | .STRTAB 0x00bd->0x0328 ; "Comments" 02cb 00c3 | | .STRTAB 0x00c3->0x032c ; "Show_Imports" 02cc 00cd | | .STRTAB 0x00cd->0x0332 ; "Include_Remote_Libraries => " 02cd 00e7 | | .STRTAB 0x00e7->0x0340 ; ", Response" 02ce 00ef | | .STRTAB 0x00ef->0x0345 ; "Cmvc.Import" 02cf 00f8 | | .STRTAB 0x00f8->0x034b ; "<ALL_WORLDS>" 02d0 0102 | | .STRTAB 0x0102->0x0351 ; "'c(combined_view)'t(~r1000)" 02d1 011b | | .STRTAB 0x011b->0x035e ; "Cmvc.Remove_Import" 02d2 012b | + | .STREND 0x012b->0x0367 02d3 496d 706f |Impo| .STRTAB_STRINGS 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug Table 0368 ; -------------------------------------------------------------------------------------- 0368 0004 000c | | .DEBUG4 0x0004,0x000c,0x169c,0x0000,0x0001,0x0000 036e ec2e 8cae | . | .XXX[0xa] 0370 ec2f 2020 | / | 0372 0004 f000 | | 0374 0000 0000 | | 0376 6184 4000 |a @ | 0378 0000 0000 | | .BLANK 0000[0x8] 0380 0001 a000 | | .XXX[0xb] 0382 0000 23c3 | # | 0384 e000 0001 | | 0386 c000 0000 | | 0388 4547 2756 |EG'V| 038a 5000 |P | 038b 0000 0000 | | .BLANK 0000[0x5] 0390 1800 0001 | | .XXX[0x19] 0392 b800 0000 | | 0394 0800 0000 | | 0396 0874 0ea8 | t | 0398 5000 0004 |P | 039a 0000 30eb | 0 | 039c e900 0000 | | 039e 0600 0000 | | 03a0 0000 0000 | | 03a2 0600 0000 | | 03a4 0c00 0000 | | 03a6 0000 0000 | | 03a8 0800 | | 03a9 0000 0000 | | .BLANK 0000[0x11] 03ba 000d 41b8 | A | .XXX[0x3] 03bc 0400 | | 03bd 0000 0000 | | .BLANK 0000[0xb] 03c8 00b9 1005 | | .XXX[0x1a] 03ca 0808 7ee9 | ~ | 03cc 0858 0076 | X v| 03ce e060 0a94 | ` | 03d0 0804 e008 | | 03d2 0391 c5c8 | | 03d4 0000 0000 | | 03d6 0030 c520 | 0 | 03d8 0000 0020 | | 03da 0000 0100 | | 03dc 0000 03dc | | 03de d650 1773 | P s| 03e0 5940 5800 |Y@X | 03e2 0000 0000 | | .BLANK 0000[0x1e]