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