|
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]