|
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: 5120 (0x1400) 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 0998 | | .CONST 0x0998 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0011 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0019 00c7 | | Action Elaborate_Subprogram 001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001b 00c7 | | Action Elaborate_Subprogram 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0034 | 4 | .CONST 0x0034 ; Address of begin 0021 00a0 | | .CONST 0x00a0 ; Address of exception handler 0022 0007 | | .CONST 0x0007 ; Number of locals 0023 INIT_0020: 0023 0092 0834 | 4| Action Push_String_Extended,0x834 ; "Initial" 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 e5f5 | | Load 0x2,-0xb 002c e002 | | Load 0x0,0x2 002d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 002e a404 | | Store_Unchecked 0x2,0x4 002f 00ea | | Load_Encached Null_String_Cache 0030 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 0032 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 0034 BODY_0020: 0034 00db | | Load_Top At_Offset_3 0035 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 0037 0092 0836 | 6| Action Push_String_Extended,0x836 ; "Subsystem" 0039 e5ff | | Load 0x2,-0x1 003a e003 | | Load 0x0,0x3 003b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 003c 01cc | | Execute Vector,Catenate 003d 0092 0837 | 7| Action Push_String_Extended,0x837 ; "Working_View_Base_Name" 003f 01cc | | Execute Vector,Catenate 0040 e5fe | | Load 0x2,-0x2 0041 e003 | | Load 0x0,0x3 0042 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0043 01cc | | Execute Vector,Catenate 0044 0092 0838 | 8| Action Push_String_Extended,0x838 ; "Remote_Machine" 0046 01cc | | Execute Vector,Catenate 0047 e5fd | | Load 0x2,-0x3 0048 e003 | | Load 0x0,0x3 0049 1812 | | Execute Package,Field_Execute,Field_Number 0x12 004a 01cc | | Execute Vector,Catenate 004b 0092 0839 | 9| Action Push_String_Extended,0x839 ; "Remote_Directory" 004d 01cc | | Execute Vector,Catenate 004e e5fc | | Load 0x2,-0x4 004f e003 | | Load 0x0,0x3 0050 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0051 01cc | | Execute Vector,Catenate 0052 0092 083a | :| Action Push_String_Extended,0x83a ; "Subsystem_Type => " 0054 01cc | | Execute Vector,Catenate 0055 e5fb | | Load 0x2,-0x5 0056 e004 | | Load 0x0,0x4 0057 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0058 011c | | Execute Any,Convert_Unchecked 0059 1c01 | | Execute_Immediate Run_Utility,0x1 005a 01cc | | Execute Vector,Catenate 005b 0092 083b | ;| Action Push_String_Extended,0x83b ; ", View_To_Import" 005d 01cc | | Execute Vector,Catenate 005e e5fa | | Load 0x2,-0x6 005f e003 | | Load 0x0,0x3 0060 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0061 01cc | | Execute Vector,Catenate 0062 0092 083c | <| Action Push_String_Extended,0x83c ; "Model" 0064 01cc | | Execute Vector,Catenate 0065 e5f9 | | Load 0x2,-0x7 0066 e003 | | Load 0x0,0x3 0067 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0068 01cc | | Execute Vector,Catenate 0069 0092 083d | =| Action Push_String_Extended,0x83d ; "Comments" 006b 01cc | | Execute Vector,Catenate 006c e5f8 | | Load 0x2,-0x8 006d e003 | | Load 0x0,0x3 006e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006f 01cc | | Execute Vector,Catenate 0070 0092 083e | >| Action Push_String_Extended,0x83e ; "Work_Order" 0072 01cc | | Execute Vector,Catenate 0073 e5f7 | | Load 0x2,-0x9 0074 e003 | | Load 0x0,0x3 0075 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0076 01cc | | Execute Vector,Catenate 0077 0092 083f | ?| Action Push_String_Extended,0x83f ; "Volume => " 0079 01cc | | Execute Vector,Catenate 007a e5f6 | | Load 0x2,-0xa 007b 00e0 | | Load_Encached Standard_Cache 007c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 007d 01cc | | Execute Vector,Catenate 007e 0092 0840 | @| Action Push_String_Extended,0x840 ; ", Response" 0080 01cc | | Execute Vector,Catenate 0081 e5f5 | | Load 0x2,-0xb 0082 e003 | | Load 0x0,0x3 0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0084 01cc | | Execute Vector,Catenate 0085 e402 | | Load 0x2,0x2 0086 e003 | | Load 0x0,0x3 0087 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0088 8406 | | Call 0x2,0x6 0089 e403 | | Load 0x2,0x3 008a e5f5 | | Load 0x2,-0xb 008b e5f6 | | Load 0x2,-0xa 008c e5f7 | | Load 0x2,-0x9 008d e5f8 | | Load 0x2,-0x8 008e e5f9 | | Load 0x2,-0x7 008f e5fa | | Load 0x2,-0x6 0090 e5fb | | Load 0x2,-0x5 0091 e405 | | Load 0x2,0x5 0092 e5fc | | Load 0x2,-0x4 0093 e5fd | | Load 0x2,-0x3 0094 e5fe | | Load 0x2,-0x2 0095 e5ff | | Load 0x2,-0x1 0096 8407 | | Call 0x2,0x7 0097 c403 | | Store 0x2,0x3 0098 00db | | Load_Top At_Offset_3 0099 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 009b e402 | | Load 0x2,0x2 009c e403 | | Load 0x2,0x3 009d e003 | | Load 0x0,0x3 009e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009f 450c |E | Exit_Suprogram New_Top_Offset 0xc 00a0 TRAP_0020: 00a0 e001 | | Load 0x0,0x1 00a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a2 010f | | Execute Exception,Equal 00a3 6808 |h | Jump_Zero 0xac 00a4 e404 | | Load 0x2,0x4 00a5 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 00a7 e402 | | Load 0x2,0x2 00a8 e403 | | Load 0x2,0x3 00a9 e003 | | Load 0x0,0x3 00aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ab 450c |E | Exit_Suprogram New_Top_Offset 0xc 00ac 4884 |H | Short_Literal 0x84 00ad 010f | | Execute Exception,Equal 00ae 6808 |h | Jump_Zero 0xb7 00af e404 | | Load 0x2,0x4 00b0 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 00b2 e402 | | Load 0x2,0x2 00b3 e403 | | Load 0x2,0x3 00b4 e003 | | Load 0x0,0x3 00b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b6 450c |E | Exit_Suprogram New_Top_Offset 0xc 00b7 e404 | | Load 0x2,0x4 00b8 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 00ba e402 | | Load 0x2,0x2 00bb e403 | | Load 0x2,0x3 00bc e003 | | Load 0x0,0x3 00bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00be 450c |E | Exit_Suprogram New_Top_Offset 0xc 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d4 | | .CONST 0x00d4 ; Address of begin 00c1 0163 | c | .CONST 0x0163 ; Address of exception handler 00c2 0007 | | .CONST 0x0007 ; Number of locals 00c3 INIT_00c0: 00c3 0092 0841 | A| Action Push_String_Extended,0x841 ; "Make_Path" 00c5 e001 | | Load 0x0,0x1 00c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c8 e002 | | Load 0x0,0x2 00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ca 02c7 | | Declare_Variable Any 00cb e5f1 | | Load 0x2,-0xf 00cc e002 | | Load 0x0,0x2 00cd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00ce a404 | | Store_Unchecked 0x2,0x4 00cf 00ea | | Load_Encached Null_String_Cache 00d0 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call 00d2 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 00d4 BODY_00c0: 00d4 00db | | Load_Top At_Offset_3 00d5 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 00d7 0092 0842 | B| Action Push_String_Extended,0x842 ; "From_Path" 00d9 e5ff | | Load 0x2,-0x1 00da e003 | | Load 0x0,0x3 00db 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00dc 01cc | | Execute Vector,Catenate 00dd 0092 0843 | C| Action Push_String_Extended,0x843 ; "New_Path_Name" 00df 01cc | | Execute Vector,Catenate 00e0 e5fe | | Load 0x2,-0x2 00e1 e003 | | Load 0x0,0x3 00e2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e3 01cc | | Execute Vector,Catenate 00e4 0092 0844 | D| Action Push_String_Extended,0x844 ; "Remote_Machine => " 00e6 01cc | | Execute Vector,Catenate 00e7 e5fd | | Load 0x2,-0x3 00e8 e003 | | Load 0x0,0x3 00e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ea 01cc | | Execute Vector,Catenate 00eb 0092 0845 | E| Action Push_String_Extended,0x845 ; "Remote_Directory => " 00ed 01cc | | Execute Vector,Catenate 00ee e5fc | | Load 0x2,-0x4 00ef e003 | | Load 0x0,0x3 00f0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f1 01cc | | Execute Vector,Catenate 00f2 0092 0846 | F| Action Push_String_Extended,0x846 ; "View_To_Modify" 00f4 01cc | | Execute Vector,Catenate 00f5 e5fb | | Load 0x2,-0x5 00f6 e003 | | Load 0x0,0x3 00f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f8 01cc | | Execute Vector,Catenate 00f9 0092 0847 | G| Action Push_String_Extended,0x847 ; "View_To_Import" 00fb 01cc | | Execute Vector,Catenate 00fc e5fa | | Load 0x2,-0x6 00fd e003 | | Load 0x0,0x3 00fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ff 01cc | | Execute Vector,Catenate 0100 0092 0848 | H| Action Push_String_Extended,0x848 ; "Only_Change_Imports => " 0102 01cc | | Execute Vector,Catenate 0103 e5f9 | | Load 0x2,-0x7 0104 00e1 | | Load_Encached Boolean_Cache 0105 011c | | Execute Any,Convert_Unchecked 0106 1c01 | | Execute_Immediate Run_Utility,0x1 0107 01cc | | Execute Vector,Catenate 0108 0092 0849 | I| Action Push_String_Extended,0x849 ; ", Model" 010a 01cc | | Execute Vector,Catenate 010b e5f8 | | Load 0x2,-0x8 010c e003 | | Load 0x0,0x3 010d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 010e 01cc | | Execute Vector,Catenate 010f 0092 084a | J| Action Push_String_Extended,0x84a ; "Join_Paths => " 0111 01cc | | Execute Vector,Catenate 0112 e5f7 | | Load 0x2,-0x9 0113 00e1 | | Load_Encached Boolean_Cache 0114 011c | | Execute Any,Convert_Unchecked 0115 1c01 | | Execute_Immediate Run_Utility,0x1 0116 01cc | | Execute Vector,Catenate 0117 0092 084b | K| Action Push_String_Extended,0x84b ; ", Remake_Demoted_Units => " 0119 01cc | | Execute Vector,Catenate 011a e5f6 | | Load 0x2,-0xa 011b 00e1 | | Load_Encached Boolean_Cache 011c 011c | | Execute Any,Convert_Unchecked 011d 1c01 | | Execute_Immediate Run_Utility,0x1 011e 01cc | | Execute Vector,Catenate 011f 0092 084c | L| Action Push_String_Extended,0x84c ; ", Goal => " 0121 01cc | | Execute Vector,Catenate 0122 e5f5 | | Load 0x2,-0xb 0123 e005 | | Load 0x0,0x5 0124 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0125 011c | | Execute Any,Convert_Unchecked 0126 1c01 | | Execute_Immediate Run_Utility,0x1 0127 01cc | | Execute Vector,Catenate 0128 0092 084d | M| Action Push_String_Extended,0x84d ; ", Comments" 012a 01cc | | Execute Vector,Catenate 012b e5f4 | | Load 0x2,-0xc 012c e003 | | Load 0x0,0x3 012d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 012e 01cc | | Execute Vector,Catenate 012f 0092 083e | >| Action Push_String_Extended,0x83e ; "Work_Order" 0131 01cc | | Execute Vector,Catenate 0132 e5f3 | | Load 0x2,-0xd 0133 e003 | | Load 0x0,0x3 0134 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0135 01cc | | Execute Vector,Catenate 0136 0092 084e | N| Action Push_String_Extended,0x84e ; "Volume =>" 0138 01cc | | Execute Vector,Catenate 0139 e5f2 | | Load 0x2,-0xe 013a 00e0 | | Load_Encached Standard_Cache 013b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 013c 01cc | | Execute Vector,Catenate 013d 0092 0840 | @| Action Push_String_Extended,0x840 ; ", Response" 013f 01cc | | Execute Vector,Catenate 0140 e5f1 | | Load 0x2,-0xf 0141 e003 | | Load 0x0,0x3 0142 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0143 01cc | | Execute Vector,Catenate 0144 e402 | | Load 0x2,0x2 0145 e003 | | Load 0x0,0x3 0146 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0147 8406 | | Call 0x2,0x6 0148 e403 | | Load 0x2,0x3 0149 e5f1 | | Load 0x2,-0xf 014a e5f2 | | Load 0x2,-0xe 014b e5f3 | | Load 0x2,-0xd 014c e5f4 | | Load 0x2,-0xc 014d e5f5 | | Load 0x2,-0xb 014e e5f6 | | Load 0x2,-0xa 014f e5f7 | | Load 0x2,-0x9 0150 e5f8 | | Load 0x2,-0x8 0151 e5f9 | | Load 0x2,-0x7 0152 e405 | | Load 0x2,0x5 0153 e5fc | | Load 0x2,-0x4 0154 e5fd | | Load 0x2,-0x3 0155 e5fa | | Load 0x2,-0x6 0156 e5fb | | Load 0x2,-0x5 0157 e5fe | | Load 0x2,-0x2 0158 e5ff | | Load 0x2,-0x1 0159 8407 | | Call 0x2,0x7 015a c403 | | Store 0x2,0x3 015b 00db | | Load_Top At_Offset_3 015c 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 015e e402 | | Load 0x2,0x2 015f e403 | | Load 0x2,0x3 0160 e003 | | Load 0x0,0x3 0161 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0162 4510 |E | Exit_Suprogram New_Top_Offset 0x10 0163 TRAP_00c0: 0163 e001 | | Load 0x0,0x1 0164 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0165 010f | | Execute Exception,Equal 0166 6808 |h | Jump_Zero 0x16f 0167 e404 | | Load 0x2,0x4 0168 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 016a e402 | | Load 0x2,0x2 016b e403 | | Load 0x2,0x3 016c e003 | | Load 0x0,0x3 016d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 016e 4510 |E | Exit_Suprogram New_Top_Offset 0x10 016f 4884 |H | Short_Literal 0x84 0170 010f | | Execute Exception,Equal 0171 6808 |h | Jump_Zero 0x17a 0172 e404 | | Load 0x2,0x4 0173 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 0175 e402 | | Load 0x2,0x2 0176 e403 | | Load 0x2,0x3 0177 e003 | | Load 0x0,0x3 0178 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0179 4510 |E | Exit_Suprogram New_Top_Offset 0x10 017a e404 | | Load 0x2,0x4 017b 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 017d e402 | | Load 0x2,0x2 017e e403 | | Load 0x2,0x3 017f e003 | | Load 0x0,0x3 0180 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0181 4510 |E | Exit_Suprogram New_Top_Offset 0x10 0182 0000 0000 | | .BLANK 0000[0x6] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 01a1 | | .CONST 0x01a1 ; Address of begin 0189 0217 | | .CONST 0x0217 ; Address of exception handler 018a 0008 | | .CONST 0x0008 ; Number of locals 018b INIT_0188: 018b 0092 084f | O| Action Push_String_Extended,0x84f ; "Make_Subpath" 018d e001 | | Load 0x0,0x1 018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0190 e002 | | Load 0x0,0x2 0191 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0192 02c7 | | Declare_Variable Any 0193 e5f4 | | Load 0x2,-0xc 0194 e002 | | Load 0x0,0x2 0195 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0196 a404 | | Store_Unchecked 0x2,0x4 0197 00ea | | Load_Encached Null_String_Cache 0198 e006 | | Load 0x0,0x6 0199 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019a 02c7 | | Declare_Variable Any 019b 00d8 | | Load_Top At_Offset_0 019c 1c00 | | Execute_Immediate Run_Utility,0x0 019d 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 019f 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call 01a1 BODY_0188: 01a1 e404 | | Load 0x2,0x4 01a2 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 01a4 0092 0842 | B| Action Push_String_Extended,0x842 ; "From_Path" 01a6 e5ff | | Load 0x2,-0x1 01a7 e003 | | Load 0x0,0x3 01a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01a9 01cc | | Execute Vector,Catenate 01aa 0092 0850 | P| Action Push_String_Extended,0x850 ; "New_Subpath_Extension" 01ac 01cc | | Execute Vector,Catenate 01ad e5fe | | Load 0x2,-0x2 01ae e003 | | Load 0x0,0x3 01af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b0 01cc | | Execute Vector,Catenate 01b1 0092 0839 | 9| Action Push_String_Extended,0x839 ; "Remote_Directory" 01b3 01cc | | Execute Vector,Catenate 01b4 e5fd | | Load 0x2,-0x3 01b5 e003 | | Load 0x0,0x3 01b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b7 01cc | | Execute Vector,Catenate 01b8 0092 0846 | F| Action Push_String_Extended,0x846 ; "View_To_Modify" 01ba 01cc | | Execute Vector,Catenate 01bb e5fc | | Load 0x2,-0x4 01bc e003 | | Load 0x0,0x3 01bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01be 01cc | | Execute Vector,Catenate 01bf 0092 0847 | G| Action Push_String_Extended,0x847 ; "View_To_Import" 01c1 01cc | | Execute Vector,Catenate 01c2 e5fb | | Load 0x2,-0x5 01c3 e003 | | Load 0x0,0x3 01c4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c5 01cc | | Execute Vector,Catenate 01c6 0092 0848 | H| Action Push_String_Extended,0x848 ; "Only_Change_Imports => " 01c8 01cc | | Execute Vector,Catenate 01c9 e5fa | | Load 0x2,-0x6 01ca 00e1 | | Load_Encached Boolean_Cache 01cb 011c | | Execute Any,Convert_Unchecked 01cc 1c01 | | Execute_Immediate Run_Utility,0x1 01cd 01cc | | Execute Vector,Catenate 01ce 0092 084b | K| Action Push_String_Extended,0x84b ; ", Remake_Demoted_Units => " 01d0 01cc | | Execute Vector,Catenate 01d1 e5f9 | | Load 0x2,-0x7 01d2 00e1 | | Load_Encached Boolean_Cache 01d3 011c | | Execute Any,Convert_Unchecked 01d4 1c01 | | Execute_Immediate Run_Utility,0x1 01d5 01cc | | Execute Vector,Catenate 01d6 0092 084c | L| Action Push_String_Extended,0x84c ; ", Goal => " 01d8 01cc | | Execute Vector,Catenate 01d9 e5f8 | | Load 0x2,-0x8 01da e005 | | Load 0x0,0x5 01db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01dc 011c | | Execute Any,Convert_Unchecked 01dd 1c01 | | Execute_Immediate Run_Utility,0x1 01de 01cc | | Execute Vector,Catenate 01df 0092 084d | M| Action Push_String_Extended,0x84d ; ", Comments" 01e1 01cc | | Execute Vector,Catenate 01e2 e5f7 | | Load 0x2,-0x9 01e3 e003 | | Load 0x0,0x3 01e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e5 01cc | | Execute Vector,Catenate 01e6 0092 083e | >| Action Push_String_Extended,0x83e ; "Work_Order" 01e8 01cc | | Execute Vector,Catenate 01e9 e5f6 | | Load 0x2,-0xa 01ea e003 | | Load 0x0,0x3 01eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ec 01cc | | Execute Vector,Catenate 01ed 0092 084e | N| Action Push_String_Extended,0x84e ; "Volume =>" 01ef 01cc | | Execute Vector,Catenate 01f0 e5f5 | | Load 0x2,-0xb 01f1 00e0 | | Load_Encached Standard_Cache 01f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f3 01cc | | Execute Vector,Catenate 01f4 0092 0840 | @| Action Push_String_Extended,0x840 ; ", Response" 01f6 01cc | | Execute Vector,Catenate 01f7 e5f4 | | Load 0x2,-0xc 01f8 e003 | | Load 0x0,0x3 01f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01fa 01cc | | Execute Vector,Catenate 01fb e402 | | Load 0x2,0x2 01fc e003 | | Load 0x0,0x3 01fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01fe 8407 | | Call 0x2,0x7 01ff e403 | | Load 0x2,0x3 0200 e5f4 | | Load 0x2,-0xc 0201 e5f5 | | Load 0x2,-0xb 0202 e5f6 | | Load 0x2,-0xa 0203 e5f7 | | Load 0x2,-0x9 0204 e5f8 | | Load 0x2,-0x8 0205 e5f9 | | Load 0x2,-0x7 0206 e5fa | | Load 0x2,-0x6 0207 e405 | | Load 0x2,0x5 0208 e5fd | | Load 0x2,-0x3 0209 e5fb | | Load 0x2,-0x5 020a e5fc | | Load 0x2,-0x4 020b e5fe | | Load 0x2,-0x2 020c e5ff | | Load 0x2,-0x1 020d 8408 | | Call 0x2,0x8 020e c403 | | Store 0x2,0x3 020f e404 | | Load 0x2,0x4 0210 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 0212 e402 | | Load 0x2,0x2 0213 e403 | | Load 0x2,0x3 0214 e003 | | Load 0x0,0x3 0215 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0216 450d |E | Exit_Suprogram New_Top_Offset 0xd 0217 TRAP_0188: 0217 e001 | | Load 0x0,0x1 0218 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0219 010f | | Execute Exception,Equal 021a 6808 |h | Jump_Zero 0x223 021b e404 | | Load 0x2,0x4 021c 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 021e e402 | | Load 0x2,0x2 021f e403 | | Load 0x2,0x3 0220 e003 | | Load 0x0,0x3 0221 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0222 450d |E | Exit_Suprogram New_Top_Offset 0xd 0223 4884 |H | Short_Literal 0x84 0224 010f | | Execute Exception,Equal 0225 6808 |h | Jump_Zero 0x22e 0226 e404 | | Load 0x2,0x4 0227 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 0229 e402 | | Load 0x2,0x2 022a e403 | | Load 0x2,0x3 022b e003 | | Load 0x0,0x3 022c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022d 450d |E | Exit_Suprogram New_Top_Offset 0xd 022e e404 | | Load 0x2,0x4 022f 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 0231 e402 | | Load 0x2,0x2 0232 e403 | | Load 0x2,0x3 0233 e003 | | Load 0x0,0x3 0234 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0235 450d |E | Exit_Suprogram New_Top_Offset 0xd 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0249 | I | .CONST 0x0249 ; Address of begin 0239 028f | | .CONST 0x028f ; Address of exception handler 023a 0005 | | .CONST 0x0005 ; Number of locals 023b INIT_0238: 023b 0092 0851 | Q| Action Push_String_Extended,0x851 ; "Destroy_View" 023d e001 | | Load 0x0,0x1 023e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0240 e002 | | Load 0x0,0x2 0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0242 02c7 | | Declare_Variable Any 0243 e5f9 | | Load 0x2,-0x7 0244 e002 | | Load 0x0,0x2 0245 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0246 a404 | | Store_Unchecked 0x2,0x4 0247 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 0249 BODY_0238: 0249 00d9 | | Load_Top At_Offset_1 024a 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 024c 0092 0852 | R| Action Push_String_Extended,0x852 ; "What_View" 024e e5ff | | Load 0x2,-0x1 024f e003 | | Load 0x0,0x3 0250 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0251 01cc | | Execute Vector,Catenate 0252 0092 0853 | S| Action Push_String_Extended,0x853 ; "Demote_Clients => " 0254 01cc | | Execute Vector,Catenate 0255 e5fe | | Load 0x2,-0x2 0256 00e1 | | Load_Encached Boolean_Cache 0257 011c | | Execute Any,Convert_Unchecked 0258 1c01 | | Execute_Immediate Run_Utility,0x1 0259 01cc | | Execute Vector,Catenate 025a 0092 0854 | T| Action Push_String_Extended,0x854 ; ", Destroy_Configuration_Also => " 025c 01cc | | Execute Vector,Catenate 025d e5fd | | Load 0x2,-0x3 025e 00e1 | | Load_Encached Boolean_Cache 025f 011c | | Execute Any,Convert_Unchecked 0260 1c01 | | Execute_Immediate Run_Utility,0x1 0261 01cc | | Execute Vector,Catenate 0262 0092 084d | M| Action Push_String_Extended,0x84d ; ", Comments" 0264 01cc | | Execute Vector,Catenate 0265 e5fb | | Load 0x2,-0x5 0266 e003 | | Load 0x0,0x3 0267 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0268 01cc | | Execute Vector,Catenate 0269 0092 083e | >| Action Push_String_Extended,0x83e ; "Work_Order" 026b 01cc | | Execute Vector,Catenate 026c e5fa | | Load 0x2,-0x6 026d e003 | | Load 0x0,0x3 026e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 026f 01cc | | Execute Vector,Catenate 0270 0092 0855 | U| Action Push_String_Extended,0x855 ; "Response" 0272 01cc | | Execute Vector,Catenate 0273 e5f9 | | Load 0x2,-0x7 0274 e003 | | Load 0x0,0x3 0275 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0276 01cc | | Execute Vector,Catenate 0277 e402 | | Load 0x2,0x2 0278 e003 | | Load 0x0,0x3 0279 1813 | | Execute Package,Field_Execute,Field_Number 0x13 027a 00d9 | | Load_Top At_Offset_1 027b e007 | | Load 0x0,0x7 027c 180f | | Execute Package,Field_Execute,Field_Number 0xf 027d 00da | | Load_Top At_Offset_2 027e e5f9 | | Load 0x2,-0x7 027f e5fa | | Load 0x2,-0x6 0280 e5fb | | Load 0x2,-0x5 0281 e5fc | | Load 0x2,-0x4 0282 e5fd | | Load 0x2,-0x3 0283 e5fe | | Load 0x2,-0x2 0284 e5ff | | Load 0x2,-0x1 0285 8405 | | Call 0x2,0x5 0286 005b | [ | Store_Top Discrete,At_Offset_3 0287 00d9 | | Load_Top At_Offset_1 0288 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 028a e402 | | Load 0x2,0x2 028b e403 | | Load 0x2,0x3 028c e003 | | Load 0x0,0x3 028d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 028e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 028f TRAP_0238: 028f e001 | | Load 0x0,0x1 0290 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0291 010f | | Execute Exception,Equal 0292 6808 |h | Jump_Zero 0x29b 0293 00da | | Load_Top At_Offset_2 0294 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 0296 e402 | | Load 0x2,0x2 0297 e403 | | Load 0x2,0x3 0298 e003 | | Load 0x0,0x3 0299 1814 | | Execute Package,Field_Execute,Field_Number 0x14 029a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 029b 4884 |H | Short_Literal 0x84 029c 010f | | Execute Exception,Equal 029d 6808 |h | Jump_Zero 0x2a6 029e 00da | | Load_Top At_Offset_2 029f 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 02a1 e402 | | Load 0x2,0x2 02a2 e403 | | Load 0x2,0x3 02a3 e003 | | Load 0x0,0x3 02a4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02a5 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02a6 00da | | Load_Top At_Offset_2 02a7 0092 0835 | 5| Action Push_String_Extended,0x835 ; "Rcf_Cmvc." 02a9 e402 | | Load 0x2,0x2 02aa e403 | | Load 0x2,0x3 02ab e003 | | Load 0x0,0x3 02ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02ad 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5fd | | Load 0x2,-0x3 02b4 4800 |H | Short_Literal 0x0 02b5 e5ff | | Load 0x2,-0x1 02b6 e008 | | Load 0x0,0x8 02b7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02b8 e5fd | | Load 0x2,-0x3 02b9 4800 |H | Short_Literal 0x0 02ba e5ff | | Load 0x2,-0x1 02bb e5fe | | Load 0x2,-0x2 02bc e008 | | Load 0x0,0x8 02bd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 02be 012f | / | Execute Any,Equal 02bf 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e404 | | Load 0x2,0x4 02c4 e007 | | Load 0x0,0x7 02c5 180f | | Execute Package,Field_Execute,Field_Number 0xf 02c6 e404 | | Load 0x2,0x4 02c7 0092 0836 | 6| Action Push_String_Extended,0x836 ; "Subsystem" 02c9 e5ff | | Load 0x2,-0x1 02ca e007 | | Load 0x0,0x7 02cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cc e404 | | Load 0x2,0x4 02cd 0092 0837 | 7| Action Push_String_Extended,0x837 ; "Working_View_Base_Name" 02cf e5fe | | Load 0x2,-0x2 02d0 e007 | | Load 0x0,0x7 02d1 180e | | Execute Package,Field_Execute,Field_Number 0xe 02d2 e404 | | Load 0x2,0x4 02d3 0092 083c | <| Action Push_String_Extended,0x83c ; "Model" 02d5 4801 |H | Short_Literal 0x1 02d6 e5f9 | | Load 0x2,-0x7 02d7 e007 | | Load 0x0,0x7 02d8 180d | | Execute Package,Field_Execute,Field_Number 0xd 02d9 e404 | | Load 0x2,0x4 02da 4800 |H | Short_Literal 0x0 02db e5ff | | Load 0x2,-0x1 02dc e007 | | Load 0x0,0x7 02dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02de e404 | | Load 0x2,0x4 02df e5fe | | Load 0x2,-0x2 02e0 e5ff | | Load 0x2,-0x1 02e1 8009 | | Call 0x0,0x9 02e2 e007 | | Load 0x0,0x7 02e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02e4 e404 | | Load 0x2,0x4 02e5 e006 | | Load 0x0,0x6 02e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02e7 e5f9 | | Load 0x2,-0x7 02e8 e007 | | Load 0x0,0x7 02e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02eb 0000 0000 | | .BLANK 0000[0x5] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 0318 | | .CONST 0x0318 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0007 | | .CONST 0x0007 ; Number of locals 02f3 INIT_02f0: 02f3 e002 | | Load 0x0,0x2 02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f5 02c7 | | Declare_Variable Any 02f6 e7f4 | | Load 0x3,-0xc 02f7 e002 | | Load 0x0,0x2 02f8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02f9 a602 | | Store_Unchecked 0x3,0x2 02fa e006 | | Load 0x0,0x6 02fb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fc 02c7 | | Declare_Variable Any 02fd 00d8 | | Load_Top At_Offset_0 02fe 1c00 | | Execute_Immediate Run_Utility,0x0 02ff e006 | | Load 0x0,0x6 0300 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0301 02c7 | | Declare_Variable Any 0302 00da | | Load_Top At_Offset_2 0303 4801 |H | Short_Literal 0x1 0304 e006 | | Load 0x0,0x6 0305 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0306 e7f8 | | Load 0x3,-0x8 0307 e008 | | Load 0x0,0x8 0308 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0309 a604 | | Store_Unchecked 0x3,0x4 030a e006 | | Load 0x0,0x6 030b 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 030c 0322 | " | Declare_Variable Record 030d 00db | | Load_Top At_Offset_3 030e 00da | | Load_Top At_Offset_2 030f e008 | | Load 0x0,0x8 0310 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0311 00d9 | | Load_Top At_Offset_1 0312 017d | } | Execute Record,Structure_Write 0313 e7fe | | Load 0x3,-0x2 0314 e7ff | | Load 0x3,-0x1 0315 8009 | | Call 0x0,0x9 0316 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 0318 BODY_02f0: 0318 8607 | | Call 0x3,0x7 0319 e602 | | Load 0x3,0x2 031a 4801 |H | Short_Literal 0x1 031b 00db | | Load_Top At_Offset_3 031c e008 | | Load 0x0,0x8 031d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 031e c603 | | Store 0x3,0x3 031f e7f3 | | Load 0x3,-0xd 0320 e602 | | Load 0x3,0x2 0321 4800 |H | Short_Literal 0x0 0322 4801 |H | Short_Literal 0x1 0323 e605 | | Load 0x3,0x5 0324 4801 |H | Short_Literal 0x1 0325 e7fb | | Load 0x3,-0x5 0326 e7fc | | Load 0x3,-0x4 0327 e7fd | | Load 0x3,-0x3 0328 e603 | | Load 0x3,0x3 0329 800a | | Call 0x0,0xa 032a c7f3 | | Store 0x3,-0xd 032b 450d |E | Exit_Suprogram New_Top_Offset 0xd 032c 0000 0000 | | .BLANK 0000[0x4] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 e404 | | Load 0x2,0x4 0334 e007 | | Load 0x0,0x7 0335 180f | | Execute Package,Field_Execute,Field_Number 0xf 0336 e404 | | Load 0x2,0x4 0337 0092 0843 | C| Action Push_String_Extended,0x843 ; "New_Path_Name" 0339 4801 |H | Short_Literal 0x1 033a e5fe | | Load 0x2,-0x2 033b e007 | | Load 0x0,0x7 033c 180d | | Execute Package,Field_Execute,Field_Number 0xd 033d e404 | | Load 0x2,0x4 033e 0092 0842 | B| Action Push_String_Extended,0x842 ; "From_Path" 0340 e5ff | | Load 0x2,-0x1 0341 e007 | | Load 0x0,0x7 0342 180e | | Execute Package,Field_Execute,Field_Number 0xe 0343 e404 | | Load 0x2,0x4 0344 00d8 | | Load_Top At_Offset_0 0345 4801 |H | Short_Literal 0x1 0346 e5ff | | Load 0x2,-0x1 0347 e008 | | Load 0x0,0x8 0348 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0349 e5f8 | | Load 0x2,-0x8 034a e007 | | Load 0x0,0x7 034b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 034c e404 | | Load 0x2,0x4 034d e5fe | | Load 0x2,-0x2 034e e5ff | | Load 0x2,-0x1 034f 800b | | Call 0x0,0xb 0350 e007 | | Load 0x0,0x7 0351 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0352 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0353 0000 0000 | | .BLANK 0000[0x5] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 036c | l | .CONST 0x036c ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0006 | | .CONST 0x0006 ; Number of locals 035b INIT_0358: 035b e002 | | Load 0x0,0x2 035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035d 02c7 | | Declare_Variable Any 035e e7f0 | | Load 0x3,-0x10 035f e002 | | Load 0x0,0x2 0360 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0361 a602 | | Store_Unchecked 0x3,0x2 0362 e7fe | | Load 0x3,-0x2 0363 e7ff | | Load 0x3,-0x1 0364 800b | | Call 0x0,0xb 0365 e005 | | Load 0x0,0x5 0366 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0367 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 0368 029f 0503 | | Declare_Subprogram INIT_0500,For_Call 036a 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 036c BODY_0358: 036c e7f8 | | Load 0x3,-0x8 036d 6814 |h | Jump_Zero 0x382 036e e602 | | Load 0x3,0x2 036f 4801 |H | Short_Literal 0x1 0370 4801 |H | Short_Literal 0x1 0371 e00c | | Load 0x0,0xc 0372 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0373 035b | [ | Declare_Type Array,Constrained 0374 0337 | 7 | Declare_Variable Array 0375 0092 0856 | V| Action Push_String_Extended,0x856 ; "Only_Change_Imports" 0377 e00c | | Load 0x0,0xc 0378 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0379 e00c | | Load 0x0,0xc 037a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037b 0119 | | Execute Any,Check_In_Formal_Type 037c 4801 |H | Short_Literal 0x1 037d 00da | | Load_Top At_Offset_2 037e 01d6 | | Execute Vector,Field_Write 037f 600c |` | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0000884a} 0380 e001 | | Load 0x0,0x1 0381 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0382 e7f5 | | Load 0x3,-0xb 0383 7003 |p | Jump_Nonzero 0x387 0384 4801 |H | Short_Literal 0x1 0385 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0386 7802 |x | Jump 0x389 0387 e7f4 | | Load 0x3,-0xc 0388 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0389 8605 | | Call 0x3,0x5 038a 8606 | | Call 0x3,0x6 038b 4511 |E | Exit_Suprogram New_Top_Offset 0x11 038c 0000 0000 | | .LITERAL {0x00000000, 0x0000884a} 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e404 | | Load 0x2,0x4 0394 e007 | | Load 0x0,0x7 0395 180f | | Execute Package,Field_Execute,Field_Number 0xf 0396 e404 | | Load 0x2,0x4 0397 0092 0850 | P| Action Push_String_Extended,0x850 ; "New_Subpath_Extension" 0399 4801 |H | Short_Literal 0x1 039a e5fe | | Load 0x2,-0x2 039b e007 | | Load 0x0,0x7 039c 180d | | Execute Package,Field_Execute,Field_Number 0xd 039d e404 | | Load 0x2,0x4 039e 0092 0842 | B| Action Push_String_Extended,0x842 ; "From_Path" 03a0 e5ff | | Load 0x2,-0x1 03a1 e007 | | Load 0x0,0x7 03a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a3 e404 | | Load 0x2,0x4 03a4 4801 |H | Short_Literal 0x1 03a5 e5ff | | Load 0x2,-0x1 03a6 e008 | | Load 0x0,0x8 03a7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03a8 c406 | | Store 0x2,0x6 03a9 e404 | | Load 0x2,0x4 03aa e406 | | Load 0x2,0x6 03ab e007 | | Load 0x0,0x7 03ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ad e404 | | Load 0x2,0x4 03ae e406 | | Load 0x2,0x6 03af e007 | | Load 0x0,0x7 03b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03b1 e404 | | Load 0x2,0x4 03b2 00d8 | | Load_Top At_Offset_0 03b3 e5fe | | Load 0x2,-0x2 03b4 e5ff | | Load 0x2,-0x1 03b5 800d | | Call 0x0,0xd 03b6 e007 | | Load 0x0,0x7 03b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b9 0000 0000 | | .BLANK 0000[0x7] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03ea | | .CONST 0x03ea ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0008 | | .CONST 0x0008 ; Number of locals 03c3 INIT_03c0: 03c3 e002 | | Load 0x0,0x2 03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c5 02c7 | | Declare_Variable Any 03c6 e7f3 | | Load 0x3,-0xd 03c7 e002 | | Load 0x0,0x2 03c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03c9 a602 | | Store_Unchecked 0x3,0x2 03ca 00d8 | | Load_Top At_Offset_0 03cb e7fe | | Load 0x3,-0x2 03cc e7ff | | Load 0x3,-0x1 03cd 800d | | Call 0x0,0xd 03ce e005 | | Load 0x0,0x5 03cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d0 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 03d1 e006 | | Load 0x0,0x6 03d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d3 02c7 | | Declare_Variable Any 03d4 00d8 | | Load_Top At_Offset_0 03d5 1c00 | | Execute_Immediate Run_Utility,0x0 03d6 e006 | | Load 0x0,0x6 03d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d8 02c7 | | Declare_Variable Any 03d9 e602 | | Load 0x3,0x2 03da 4801 |H | Short_Literal 0x1 03db e7ff | | Load 0x3,-0x1 03dc e008 | | Load 0x0,0x8 03dd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03de a606 | | Store_Unchecked 0x3,0x6 03df e006 | | Load 0x0,0x6 03e0 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 03e1 0322 | " | Declare_Variable Record 03e2 e602 | | Load 0x3,0x2 03e3 00da | | Load_Top At_Offset_2 03e4 e008 | | Load 0x0,0x8 03e5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03e6 00d9 | | Load_Top At_Offset_1 03e7 017d | } | Execute Record,Structure_Write 03e8 029f 0593 | | Declare_Subprogram INIT_0590,For_Call 03ea BODY_03c0: 03ea e7f8 | | Load 0x3,-0x8 03eb 7003 |p | Jump_Nonzero 0x3ef 03ec 4801 |H | Short_Literal 0x1 03ed a604 | | Store_Unchecked 0x3,0x4 03ee 7802 |x | Jump 0x3f1 03ef e7f7 | | Load 0x3,-0x9 03f0 a604 | | Store_Unchecked 0x3,0x4 03f1 e7f9 | | Load 0x3,-0x7 03f2 6814 |h | Jump_Zero 0x407 03f3 e602 | | Load 0x3,0x2 03f4 4801 |H | Short_Literal 0x1 03f5 4801 |H | Short_Literal 0x1 03f6 e00c | | Load 0x0,0xc 03f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f8 035b | [ | Declare_Type Array,Constrained 03f9 0337 | 7 | Declare_Variable Array 03fa 0092 0856 | V| Action Push_String_Extended,0x856 ; "Only_Change_Imports" 03fc e00c | | Load 0x0,0xc 03fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03fe e00c | | Load 0x0,0xc 03ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0400 0119 | | Execute Any,Check_In_Formal_Type 0401 4801 |H | Short_Literal 0x1 0402 00da | | Load_Top At_Offset_2 0403 01d6 | | Execute Vector,Field_Write 0404 601b |` | Indirect_Literal Discrete,0x420,{0x00000000, 0x0000884a} 0405 e001 | | Load 0x0,0x1 0406 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0407 8608 | | Call 0x3,0x8 0408 e602 | | Load 0x3,0x2 0409 4801 |H | Short_Literal 0x1 040a e603 | | Load 0x3,0x3 040b e008 | | Load 0x0,0x8 040c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 040d c605 | | Store 0x3,0x5 040e e7f2 | | Load 0x3,-0xe 040f e602 | | Load 0x3,0x2 0410 4800 |H | Short_Literal 0x0 0411 e604 | | Load 0x3,0x4 0412 e607 | | Load 0x3,0x7 0413 4801 |H | Short_Literal 0x1 0414 e7fa | | Load 0x3,-0x6 0415 e7fb | | Load 0x3,-0x5 0416 e602 | | Load 0x3,0x2 0417 e606 | | Load 0x3,0x6 0418 800e | | Call 0x0,0xe 0419 e605 | | Load 0x3,0x5 041a 800a | | Call 0x0,0xa 041b c7f2 | | Store 0x3,-0xe 041c 450e |E | Exit_Suprogram New_Top_Offset 0xe 041d 0000 0000 | | .XXX[0x3] 041f 0000 | | 0420 0000 0000 | | .LITERAL {0x00000000, 0x0000884a} 0424 0000 0000 | | .BLANK 0000[0x4] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0453 | S | .CONST 0x0453 ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 000e | | .CONST 0x000e ; Number of locals 042b INIT_0428: 042b e002 | | Load 0x0,0x2 042c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042d 02c7 | | Declare_Variable Any 042e e7f9 | | Load 0x3,-0x7 042f e002 | | Load 0x0,0x2 0430 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0431 a602 | | Store_Unchecked 0x3,0x2 0432 e001 | | Load 0x0,0x1 0433 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0434 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0435 e006 | | Load 0x0,0x6 0436 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0437 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0438 02c7 | | Declare_Variable Any 0439 00d8 | | Load_Top At_Offset_0 043a 1c00 | | Execute_Immediate Run_Utility,0x0 043b 00e1 | | Load_Encached Boolean_Cache 043c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 043d e006 | | Load 0x0,0x6 043e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043f 00e1 | | Load_Encached Boolean_Cache 0440 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0441 e006 | | Load 0x0,0x6 0442 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0443 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0444 02c7 | | Declare_Variable Any 0445 00d8 | | Load_Top At_Offset_0 0446 1c00 | | Execute_Immediate Run_Utility,0x0 0447 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call 0449 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call 044b 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 044d 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call 044f 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 0451 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call 0453 BODY_0428: 0453 e608 | | Load 0x3,0x8 0454 0120 | | Execute Any,Is_Value 0455 6804 |h | Jump_Zero 0x45a 0456 e006 | | Load 0x0,0x6 0457 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0458 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0459 7801 |x | Jump 0x45b 045a e608 | | Load 0x3,0x8 045b e00f | | Load 0x0,0xf 045c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 045d e010 | | Load 0x0,0x10 045e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 045f e006 | | Load 0x0,0x6 0460 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0461 180f | | Execute Package,Field_Execute,Field_Number 0xf 0462 c608 | | Store 0x3,0x8 0463 e602 | | Load 0x3,0x2 0464 4801 |H | Short_Literal 0x1 0465 e7ff | | Load 0x3,-0x1 0466 e008 | | Load 0x0,0x8 0467 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0468 c604 | | Store 0x3,0x4 0469 e602 | | Load 0x3,0x2 046a e00c | | Load 0x0,0xc 046b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 046c 6057 |`W | Indirect_Literal Discrete,0x4c4,{0x00000000, 0x00008875} 046d e001 | | Load 0x0,0x1 046e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 046f 00cf | | Action Mark_Auxiliary 0470 781d |x | Jump 0x48e 0471 e602 | | Load 0x3,0x2 0472 4801 |H | Short_Literal 0x1 0473 4801 |H | Short_Literal 0x1 0474 e00c | | Load 0x0,0xc 0475 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0476 035b | [ | Declare_Type Array,Constrained 0477 0337 | 7 | Declare_Variable Array 0478 e602 | | Load 0x3,0x2 0479 4801 |H | Short_Literal 0x1 047a e604 | | Load 0x3,0x4 047b e008 | | Load 0x0,0x8 047c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 047d e00c | | Load 0x0,0xc 047e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 047f e00c | | Load 0x0,0xc 0480 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0481 0119 | | Execute Any,Check_In_Formal_Type 0482 4801 |H | Short_Literal 0x1 0483 00da | | Load_Top At_Offset_2 0484 01d6 | | Execute Vector,Field_Write 0485 603a |`: | Indirect_Literal Discrete,0x4c0,{0x00000000, 0x00008876} 0486 e001 | | Load 0x0,0x1 0487 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0488 e604 | | Load 0x3,0x4 0489 e006 | | Load 0x0,0x6 048a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 048b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 048c c604 | | Store 0x3,0x4 048d 00c9 | | Action Pop_Auxiliary_Loop 048e e604 | | Load 0x3,0x4 048f e006 | | Load 0x0,0x6 0490 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0491 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0492 6fde |o | Jump_Zero 0x471 0493 00ce | | Action Pop_Auxiliary 0494 e602 | | Load 0x3,0x2 0495 4801 |H | Short_Literal 0x1 0496 4801 |H | Short_Literal 0x1 0497 e00c | | Load 0x0,0xc 0498 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0499 035b | [ | Declare_Type Array,Constrained 049a 0337 | 7 | Declare_Variable Array 049b 00ea | | Load_Encached Null_String_Cache 049c e00c | | Load 0x0,0xc 049d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 049e e00c | | Load 0x0,0xc 049f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04a0 0119 | | Execute Any,Check_In_Formal_Type 04a1 4801 |H | Short_Literal 0x1 04a2 00da | | Load_Top At_Offset_2 04a3 01d6 | | Execute Vector,Field_Write 04a4 601b |` | Indirect_Literal Discrete,0x4c0,{0x00000000, 0x00008876} 04a5 e001 | | Load 0x0,0x1 04a6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04a7 e604 | | Load 0x3,0x4 04a8 e006 | | Load 0x0,0x6 04a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04aa 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04ab c604 | | Store 0x3,0x4 04ac 00cf | | Action Mark_Auxiliary 04ad 7807 |x | Jump 0x4b5 04ae 860d | | Call 0x3,0xd 04af e604 | | Load 0x3,0x4 04b0 e006 | | Load 0x0,0x6 04b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04b3 c604 | | Store 0x3,0x4 04b4 00c9 | | Action Pop_Auxiliary_Loop 04b5 e604 | | Load 0x3,0x4 04b6 e006 | | Load 0x0,0x6 04b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04b9 6ff4 |o | Jump_Zero 0x4ae 04ba 00ce | | Action Pop_Auxiliary 04bb 860e | | Call 0x3,0xe 04bc 4508 |E | Exit_Suprogram New_Top_Offset 0x8 04bd 0000 0000 | | .XXX[0x3] 04bf 0000 | | 04c0 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 04c4 0000 0000 | | .LITERAL {0x00000000, 0x00008875} 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 04e0 | | .CONST 0x04e0 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 4801 |H | Short_Literal 0x1 04cc 4801 |H | Short_Literal 0x1 04cd 4800 |H | Short_Literal 0x0 04ce 4801 |H | Short_Literal 0x1 04cf e7f4 | | Load 0x3,-0xc 04d0 e008 | | Load 0x0,0x8 04d1 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04d2 e7f5 | | Load 0x3,-0xb 04d3 e7f6 | | Load 0x3,-0xa 04d4 e7f7 | | Load 0x3,-0x9 04d5 e604 | | Load 0x3,0x4 04d6 e008 | | Load 0x0,0x8 04d7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04d8 4800 |H | Short_Literal 0x0 04d9 e7f9 | | Load 0x3,-0x7 04da e7fa | | Load 0x3,-0x6 04db e7fe | | Load 0x3,-0x2 04dc e7ff | | Load 0x3,-0x1 04dd e004 | | Load 0x0,0x4 04de 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e0 TRAP_04c8: 04e0 0007 | | Action Break_Optional 04e1 e602 | | Load 0x3,0x2 04e2 4801 |H | Short_Literal 0x1 04e3 4801 |H | Short_Literal 0x1 04e4 e00c | | Load 0x0,0xc 04e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04e6 035b | [ | Declare_Type Array,Constrained 04e7 0337 | 7 | Declare_Variable Array 04e8 0092 0857 | W| Action Push_String_Extended,0x857 ; "Cmvc.Initial" 04ea e00c | | Load 0x0,0xc 04eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04ec e00c | | Load 0x0,0xc 04ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04ee 0119 | | Execute Any,Check_In_Formal_Type 04ef 4801 |H | Short_Literal 0x1 04f0 00da | | Load_Top At_Offset_2 04f1 01d6 | | Execute Vector,Field_Write 04f2 6005 |` | Indirect_Literal Discrete,0x4f8,{0x00000000, 0x0000881f} 04f3 e001 | | Load 0x0,0x1 04f4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04f5 e001 | | Load 0x0,0x1 04f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04f7 0257 | W | Execute Discrete,Raise 04f8 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 04fc 0000 0000 | | .BLANK 0000[0x4] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 050e | | .CONST 0x050e ; Address of begin 0501 0555 | U | .CONST 0x0555 ; Address of exception handler 0502 0003 | | .CONST 0x0003 ; Number of locals 0503 INIT_0500: 0503 e006 | | Load 0x0,0x6 0504 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0505 02c7 | | Declare_Variable Any 0506 e602 | | Load 0x3,0x2 0507 4801 |H | Short_Literal 0x1 0508 e7ff | | Load 0x3,-0x1 0509 e008 | | Load 0x0,0x8 050a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 050b a802 | | Store_Unchecked 0x4,0x2 050c 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call 050e BODY_0500: 050e e602 | | Load 0x3,0x2 050f 4801 |H | Short_Literal 0x1 0510 4801 |H | Short_Literal 0x1 0511 e00c | | Load 0x0,0xc 0512 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0513 035b | [ | Declare_Type Array,Constrained 0514 0337 | 7 | Declare_Variable Array 0515 0092 0858 | X| Action Push_String_Extended,0x858 ; "New Path is " 0517 e603 | | Load 0x3,0x3 0518 01cc | | Execute Vector,Catenate 0519 e00c | | Load 0x0,0xc 051a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 051b e00c | | Load 0x0,0xc 051c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 051d 0119 | | Execute Any,Check_In_Formal_Type 051e 4801 |H | Short_Literal 0x1 051f 00da | | Load_Top At_Offset_2 0520 01d6 | | Execute Vector,Field_Write 0521 6042 |`B | Indirect_Literal Discrete,0x564,{0x00000000, 0x00008876} 0522 e001 | | Load 0x0,0x1 0523 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0524 e001 | | Load 0x0,0x1 0525 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0526 4800 |H | Short_Literal 0x0 0527 e602 | | Load 0x3,0x2 0528 e7ff | | Load 0x3,-0x1 0529 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 052b 01cc | | Execute Vector,Catenate 052c e011 | | Load 0x0,0x11 052d 188c | | Execute Package,Field_Execute,Field_Number 0x8c 052e c7ef | | Store 0x3,-0x11 052f 4800 |H | Short_Literal 0x0 0530 e7ef | | Load 0x3,-0x11 0531 e001 | | Load 0x0,0x1 0532 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0533 7003 |p | Jump_Nonzero 0x537 0534 e001 | | Load 0x0,0x1 0535 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0536 0257 | W | Execute Discrete,Raise 0537 8803 | | Call 0x4,0x3 0538 e001 | | Load 0x0,0x1 0539 1b0d | | Execute Package,Field_Read,Field_Number 0xd 053a e602 | | Load 0x3,0x2 053b e603 | | Load 0x3,0x3 053c 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 053e 01cc | | Execute Vector,Catenate 053f e011 | | Load 0x0,0x11 0540 1883 | | Execute Package,Field_Execute,Field_Number 0x83 0541 c7ef | | Store 0x3,-0x11 0542 4800 |H | Short_Literal 0x0 0543 e7ef | | Load 0x3,-0x11 0544 e001 | | Load 0x0,0x1 0545 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0546 7003 |p | Jump_Nonzero 0x54a 0547 e001 | | Load 0x0,0x1 0548 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0549 0257 | W | Execute Discrete,Raise 054a e001 | | Load 0x0,0x1 054b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 054c e602 | | Load 0x3,0x2 054d e7ff | | Load 0x3,-0x1 054e 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 0550 01cc | | Execute Vector,Catenate 0551 e011 | | Load 0x0,0x11 0552 1884 | | Execute Package,Field_Execute,Field_Number 0x84 0553 c7ef | | Store 0x3,-0x11 0554 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0555 TRAP_0500: 0555 0007 | | Action Break_Optional 0556 e001 | | Load 0x0,0x1 0557 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0558 e602 | | Load 0x3,0x2 0559 e7ff | | Load 0x3,-0x1 055a 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 055c 01cc | | Execute Vector,Catenate 055d e011 | | Load 0x0,0x11 055e 1884 | | Execute Package,Field_Execute,Field_Number 0x84 055f c7ef | | Store 0x3,-0x11 0560 e001 | | Load 0x0,0x1 0561 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0562 0257 | W | Execute Discrete,Raise 0563 0000 | | .XXX[0x1] 0564 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 057d | } | .CONST 0x057d ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0003 | | .CONST 0x0003 ; Number of locals 056b INIT_0568: 056b e006 | | Load 0x0,0x6 056c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 056d 02c7 | | Declare_Variable Any 056e e602 | | Load 0x3,0x2 056f 4801 |H | Short_Literal 0x1 0570 e603 | | Load 0x3,0x3 0571 e008 | | Load 0x0,0x8 0572 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0573 a802 | | Store_Unchecked 0x4,0x2 0574 e006 | | Load 0x0,0x6 0575 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0576 0322 | " | Declare_Variable Record 0577 e602 | | Load 0x3,0x2 0578 00da | | Load_Top At_Offset_2 0579 e008 | | Load 0x0,0x8 057a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 057b 00d9 | | Load_Top At_Offset_1 057c 017d | } | Execute Record,Structure_Write 057d BODY_0568: 057d e7ef | | Load 0x3,-0x11 057e e602 | | Load 0x3,0x2 057f 4800 |H | Short_Literal 0x0 0580 e604 | | Load 0x3,0x4 0581 e803 | | Load 0x4,0x3 0582 4801 |H | Short_Literal 0x1 0583 e7f9 | | Load 0x3,-0x7 0584 e7fa | | Load 0x3,-0x6 0585 e7fb | | Load 0x3,-0x5 0586 e802 | | Load 0x4,0x2 0587 800a | | Call 0x0,0xa 0588 c7ef | | Store 0x3,-0x11 0589 4501 |E | Exit_Suprogram New_Top_Offset 0x1 058a 0000 0000 | | .BLANK 0000[0x6] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 05f4 | | .CONST 0x05f4 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 e602 | | Load 0x3,0x2 0594 4801 |H | Short_Literal 0x1 0595 4801 |H | Short_Literal 0x1 0596 e00c | | Load 0x0,0xc 0597 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0598 035b | [ | Declare_Type Array,Constrained 0599 0337 | 7 | Declare_Variable Array 059a 0092 085a | Z| Action Push_String_Extended,0x85a ; "New Subpath is " 059c e603 | | Load 0x3,0x3 059d 01cc | | Execute Vector,Catenate 059e e00c | | Load 0x0,0xc 059f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05a0 e00c | | Load 0x0,0xc 05a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05a2 0119 | | Execute Any,Check_In_Formal_Type 05a3 4801 |H | Short_Literal 0x1 05a4 00da | | Load_Top At_Offset_2 05a5 01d6 | | Execute Vector,Field_Write 05a6 6075 |`u | Indirect_Literal Discrete,0x61c,{0x00000000, 0x00008876} 05a7 e001 | | Load 0x0,0x1 05a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05a9 e001 | | Load 0x0,0x1 05aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ab 4800 |H | Short_Literal 0x0 05ac e602 | | Load 0x3,0x2 05ad e7ff | | Load 0x3,-0x1 05ae 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 05b0 01cc | | Execute Vector,Catenate 05b1 e011 | | Load 0x0,0x11 05b2 188c | | Execute Package,Field_Execute,Field_Number 0x8c 05b3 c7f2 | | Store 0x3,-0xe 05b4 4800 |H | Short_Literal 0x0 05b5 e7f2 | | Load 0x3,-0xe 05b6 e001 | | Load 0x0,0x1 05b7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05b8 7003 |p | Jump_Nonzero 0x5bc 05b9 e001 | | Load 0x0,0x1 05ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05bb 0257 | W | Execute Discrete,Raise 05bc 4801 |H | Short_Literal 0x1 05bd 4801 |H | Short_Literal 0x1 05be 4800 |H | Short_Literal 0x0 05bf 4801 |H | Short_Literal 0x1 05c0 e7f3 | | Load 0x3,-0xd 05c1 e008 | | Load 0x0,0x8 05c2 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 05c3 e7f4 | | Load 0x3,-0xc 05c4 e7f5 | | Load 0x3,-0xb 05c5 e7f6 | | Load 0x3,-0xa 05c6 4801 |H | Short_Literal 0x1 05c7 e7f8 | | Load 0x3,-0x8 05c8 e7f9 | | Load 0x3,-0x7 05c9 e7fc | | Load 0x3,-0x4 05ca e7fd | | Load 0x3,-0x3 05cb e7fe | | Load 0x3,-0x2 05cc e7ff | | Load 0x3,-0x1 05cd e004 | | Load 0x0,0x4 05ce 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05cf e001 | | Load 0x0,0x1 05d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d1 e602 | | Load 0x3,0x2 05d2 e603 | | Load 0x3,0x3 05d3 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 05d5 01cc | | Execute Vector,Catenate 05d6 e011 | | Load 0x0,0x11 05d7 1883 | | Execute Package,Field_Execute,Field_Number 0x83 05d8 c7f2 | | Store 0x3,-0xe 05d9 4800 |H | Short_Literal 0x0 05da e7f2 | | Load 0x3,-0xe 05db e001 | | Load 0x0,0x1 05dc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05dd 7003 |p | Jump_Nonzero 0x5e1 05de e001 | | Load 0x0,0x1 05df 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05e0 0257 | W | Execute Discrete,Raise 05e1 e001 | | Load 0x0,0x1 05e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e3 e602 | | Load 0x3,0x2 05e4 e7ff | | Load 0x3,-0x1 05e5 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 05e7 01cc | | Execute Vector,Catenate 05e8 e011 | | Load 0x0,0x11 05e9 1884 | | Execute Package,Field_Execute,Field_Number 0x84 05ea c7f2 | | Store 0x3,-0xe 05eb 4800 |H | Short_Literal 0x0 05ec e7f2 | | Load 0x3,-0xe 05ed e001 | | Load 0x0,0x1 05ee 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05ef 7003 |p | Jump_Nonzero 0x5f3 05f0 e001 | | Load 0x0,0x1 05f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05f2 0257 | W | Execute Discrete,Raise 05f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05f4 TRAP_0590: 05f4 0007 | | Action Break_Optional 05f5 e602 | | Load 0x3,0x2 05f6 4801 |H | Short_Literal 0x1 05f7 4801 |H | Short_Literal 0x1 05f8 e00c | | Load 0x0,0xc 05f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05fa 035b | [ | Declare_Type Array,Constrained 05fb 0337 | 7 | Declare_Variable Array 05fc 0092 085b | [| Action Push_String_Extended,0x85b ; "Cmvc.Make_Subpath" 05fe e00c | | Load 0x0,0xc 05ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0600 e00c | | Load 0x0,0xc 0601 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0602 0119 | | Execute Any,Check_In_Formal_Type 0603 4801 |H | Short_Literal 0x1 0604 00da | | Load_Top At_Offset_2 0605 01d6 | | Execute Vector,Field_Write 0606 6011 |` | Indirect_Literal Discrete,0x618,{0x00000000, 0x0000881f} 0607 e001 | | Load 0x0,0x1 0608 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0609 e001 | | Load 0x0,0x1 060a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 060b e602 | | Load 0x3,0x2 060c e7ff | | Load 0x3,-0x1 060d 0092 0859 | Y| Action Push_String_Extended,0x859 ; ".units" 060f 01cc | | Execute Vector,Catenate 0610 e011 | | Load 0x0,0x11 0611 1884 | | Execute Package,Field_Execute,Field_Number 0x84 0612 c7f2 | | Store 0x3,-0xe 0613 e001 | | Load 0x0,0x1 0614 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0615 0257 | W | Execute Discrete,Raise 0616 0000 0000 | | .XXX[0x2] 0618 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 061c 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0623 | # | .CONST 0x0623 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0001 | | .CONST 0x0001 ; Number of locals 0623 BODY_0620: 0623 INIT_0620: 0623 00da | | Load_Top At_Offset_2 0624 6803 |h | Jump_Zero 0x628 0625 0092 085c | \| Action Push_String_Extended,0x85c ; "<ALL_WORLDS>" 0627 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0628 0092 085d | ]| Action Push_String_Extended,0x85d ; "<WORLDS>" 062a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062b 0000 0000 | | .BLANK 0000[0x5] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 e605 | | Load 0x3,0x5 0634 6805 |h | Jump_Zero 0x63a 0635 00db | | Load_Top At_Offset_3 0636 00db | | Load_Top At_Offset_3 0637 e012 | | Load 0x0,0x12 0638 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0639 a605 | | Store_Unchecked 0x3,0x5 063a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 063b 0000 0000 | | .BLANK 0000[0x5] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 00da | | Load_Top At_Offset_2 0644 e608 | | Load 0x3,0x8 0645 e006 | | Load 0x0,0x6 0646 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0647 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0648 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0649 0000 0000 | | .BLANK 0000[0x7] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 065b | [ | .CONST 0x065b ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0003 | | .CONST 0x0003 ; Number of locals 0653 INIT_0650: 0653 e006 | | Load 0x0,0x6 0654 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0655 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0656 02c7 | | Declare_Variable Any 0657 00d8 | | Load_Top At_Offset_0 0658 1c00 | | Execute_Immediate Run_Utility,0x0 0659 029f 0813 | | Declare_Subprogram INIT_0810,For_Call 065b BODY_0650: 065b 00d9 | | Load_Top At_Offset_1 065c 0120 | | Execute Any,Is_Value 065d 6804 |h | Jump_Zero 0x662 065e e006 | | Load 0x0,0x6 065f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0660 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0661 7801 |x | Jump 0x663 0662 00d9 | | Load_Top At_Offset_1 0663 e00f | | Load 0x0,0xf 0664 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0665 e010 | | Load 0x0,0x10 0666 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0667 e9ff | | Load 0x4,-0x1 0668 e006 | | Load 0x0,0x6 0669 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 066a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 066b c802 | | Store 0x4,0x2 066c 00d9 | | Load_Top At_Offset_1 066d e006 | | Load 0x0,0x6 066e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 066f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0670 6802 |h | Jump_Zero 0x673 0671 00ea | | Load_Encached Null_String_Cache 0672 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0673 0092 085e | ^| Action Push_String_Extended,0x85e ; "[" 0675 8803 | | Call 0x4,0x3 0676 01cc | | Execute Vector,Catenate 0677 0092 085f | _| Action Push_String_Extended,0x85f ; "]" 0679 01cc | | Execute Vector,Catenate 067a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 067b 0000 0000 | | .BLANK 0000[0x5] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0698 | | .CONST 0x0698 ; Address of begin 0681 075d | ] | .CONST 0x075d ; Address of exception handler 0682 0004 | | .CONST 0x0004 ; Number of locals 0683 INIT_0680: 0683 e006 | | Load 0x0,0x6 0684 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0685 02c7 | | Declare_Variable Any 0686 e602 | | Load 0x3,0x2 0687 4801 |H | Short_Literal 0x1 0688 e604 | | Load 0x3,0x4 0689 e008 | | Load 0x0,0x8 068a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 068b a802 | | Store_Unchecked 0x4,0x2 068c 00d8 | | Load_Top At_Offset_0 068d e008 | | Load 0x0,0x8 068e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 068f e006 | | Load 0x0,0x6 0690 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0691 0322 | " | Declare_Variable Record 0692 e602 | | Load 0x3,0x2 0693 00db | | Load_Top At_Offset_3 0694 e008 | | Load 0x0,0x8 0695 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0696 00d9 | | Load_Top At_Offset_1 0697 017d | } | Execute Record,Structure_Write 0698 BODY_0680: 0698 e602 | | Load 0x3,0x2 0699 4801 |H | Short_Literal 0x1 069a 4801 |H | Short_Literal 0x1 069b e00c | | Load 0x0,0xc 069c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 069d 035b | [ | Declare_Type Array,Constrained 069e 0337 | 7 | Declare_Variable Array 069f e802 | | Load 0x4,0x2 06a0 e00c | | Load 0x0,0xc 06a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 06a2 e00c | | Load 0x0,0xc 06a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06a4 0119 | | Execute Any,Check_In_Formal_Type 06a5 4801 |H | Short_Literal 0x1 06a6 00da | | Load_Top At_Offset_2 06a7 01d6 | | Execute Vector,Field_Write 06a8 610b |a | Indirect_Literal Discrete,0x7b4,{0x00000000, 0x00008874} 06a9 e001 | | Load 0x0,0x1 06aa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06ab e602 | | Load 0x3,0x2 06ac 00db | | Load_Top At_Offset_3 06ad e007 | | Load 0x0,0x7 06ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06af e7fc | | Load 0x3,-0x4 06b0 6808 |h | Jump_Zero 0x6b9 06b1 00d8 | | Load_Top At_Offset_0 06b2 00db | | Load_Top At_Offset_3 06b3 e006 | | Load 0x0,0x6 06b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06b5 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 06b6 e012 | | Load 0x0,0x12 06b7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06b8 a605 | | Store_Unchecked 0x3,0x5 06b9 00da | | Load_Top At_Offset_2 06ba e008 | | Load 0x0,0x8 06bb 180e | | Execute Package,Field_Execute,Field_Number 0xe 06bc 7016 |p | Jump_Nonzero 0x6d3 06bd e602 | | Load 0x3,0x2 06be 4801 |H | Short_Literal 0x1 06bf 4801 |H | Short_Literal 0x1 06c0 e00c | | Load 0x0,0xc 06c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06c2 035b | [ | Declare_Type Array,Constrained 06c3 0337 | 7 | Declare_Variable Array 06c4 e802 | | Load 0x4,0x2 06c5 e00c | | Load 0x0,0xc 06c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 06c7 e00c | | Load 0x0,0xc 06c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06c9 0119 | | Execute Any,Check_In_Formal_Type 06ca 4801 |H | Short_Literal 0x1 06cb 00da | | Load_Top At_Offset_2 06cc 01d6 | | Execute Vector,Field_Write 06cd 60e2 |` | Indirect_Literal Discrete,0x7b0,{0x00000000, 0x0000882d} 06ce e001 | | Load 0x0,0x1 06cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06d0 e001 | | Load 0x0,0x1 06d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 06d2 0257 | W | Execute Discrete,Raise 06d3 00da | | Load_Top At_Offset_2 06d4 860b | | Call 0x3,0xb 06d5 e602 | | Load 0x3,0x2 06d6 00db | | Load_Top At_Offset_3 06d7 e008 | | Load 0x0,0x8 06d8 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 06d9 e008 | | Load 0x0,0x8 06da 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06db 701a |p | Jump_Nonzero 0x6f6 06dc e602 | | Load 0x3,0x2 06dd e00c | | Load 0x0,0xc 06de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06df 60cc |` | Indirect_Literal Discrete,0x7ac,{0x00000000, 0x00008833} 06e0 e001 | | Load 0x0,0x1 06e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06e2 e7f9 | | Load 0x3,-0x7 06e3 e002 | | Load 0x0,0x2 06e4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 06e5 e00c | | Load 0x0,0xc 06e6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06e7 60c0 |` | Indirect_Literal Discrete,0x7a8,{0x00000000, 0x00008822} 06e8 e001 | | Load 0x0,0x1 06e9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06ea 4801 |H | Short_Literal 0x1 06eb 4801 |H | Short_Literal 0x1 06ec 4800 |H | Short_Literal 0x0 06ed 4801 |H | Short_Literal 0x1 06ee e602 | | Load 0x3,0x2 06ef e008 | | Load 0x0,0x8 06f0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 06f1 4800 |H | Short_Literal 0x0 06f2 e802 | | Load 0x4,0x2 06f3 e013 | | Load 0x0,0x13 06f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06f6 00d8 | | Load_Top At_Offset_0 06f7 00db | | Load_Top At_Offset_3 06f8 e008 | | Load 0x0,0x8 06f9 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 06fa 7027 |p' | Jump_Nonzero 0x722 06fb e602 | | Load 0x3,0x2 06fc 4801 |H | Short_Literal 0x1 06fd 4801 |H | Short_Literal 0x1 06fe e00c | | Load 0x0,0xc 06ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0700 035b | [ | Declare_Type Array,Constrained 0701 0337 | 7 | Declare_Variable Array 0702 e802 | | Load 0x4,0x2 0703 e00c | | Load 0x0,0xc 0704 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0705 e00c | | Load 0x0,0xc 0706 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0707 0119 | | Execute Any,Check_In_Formal_Type 0708 4801 |H | Short_Literal 0x1 0709 00da | | Load_Top At_Offset_2 070a 01d6 | | Execute Vector,Field_Write 070b 6098 |` | Indirect_Literal Discrete,0x7a4,{0x00000000, 0x0000882a} 070c e001 | | Load 0x0,0x1 070d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 070e e7f9 | | Load 0x3,-0x7 070f e002 | | Load 0x0,0x2 0710 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0711 e00c | | Load 0x0,0xc 0712 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0713 6094 |` | Indirect_Literal Discrete,0x7a8,{0x00000000, 0x00008822} 0714 e001 | | Load 0x0,0x1 0715 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0716 4801 |H | Short_Literal 0x1 0717 4801 |H | Short_Literal 0x1 0718 4800 |H | Short_Literal 0x0 0719 4801 |H | Short_Literal 0x1 071a e602 | | Load 0x3,0x2 071b e008 | | Load 0x0,0x8 071c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 071d 4800 |H | Short_Literal 0x0 071e e802 | | Load 0x4,0x2 071f e013 | | Load 0x0,0x13 0720 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0721 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0722 e006 | | Load 0x0,0x6 0723 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0724 00e1 | | Load_Encached Boolean_Cache 0725 607a |`z | Indirect_Literal Discrete,0x7a0,{0x00000000, 0x00004000} 0726 e014 | | Load 0x0,0x14 0727 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0728 e802 | | Load 0x4,0x2 0729 e006 | | Load 0x0,0x6 072a 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 072b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 072c c607 | | Store 0x3,0x7 072d c606 | | Store 0x3,0x6 072e e607 | | Load 0x3,0x7 072f 680e |h | Jump_Zero 0x73e 0730 4800 |H | Short_Literal 0x0 0731 4800 |H | Short_Literal 0x0 0732 4800 |H | Short_Literal 0x0 0733 4801 |H | Short_Literal 0x1 0734 e7f9 | | Load 0x3,-0x7 0735 e008 | | Load 0x0,0x8 0736 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0737 4801 |H | Short_Literal 0x1 0738 e802 | | Load 0x4,0x2 0739 e006 | | Load 0x0,0x6 073a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 073b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 073c e015 | | Load 0x0,0x15 073d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 073e 4801 |H | Short_Literal 0x1 073f 4801 |H | Short_Literal 0x1 0740 4800 |H | Short_Literal 0x0 0741 4801 |H | Short_Literal 0x1 0742 e7f9 | | Load 0x3,-0x7 0743 e008 | | Load 0x0,0x8 0744 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0745 4800 |H | Short_Literal 0x0 0746 e7fe | | Load 0x3,-0x2 0747 8609 | | Call 0x3,0x9 0748 4801 |H | Short_Literal 0x1 0749 e803 | | Load 0x4,0x3 074a e005 | | Load 0x0,0x5 074b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 074c e001 | | Load 0x0,0x1 074d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 074e e602 | | Load 0x3,0x2 074f 0092 0860 | `| Action Push_String_Extended,0x860 ; "<DEFAULT>" 0751 0092 0860 | `| Action Push_String_Extended,0x860 ; "<DEFAULT>" 0753 0092 0860 | `| Action Push_String_Extended,0x860 ; "<DEFAULT>" 0755 e804 | | Load 0x4,0x4 0756 e802 | | Load 0x4,0x2 0757 e016 | | Load 0x0,0x16 0758 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0759 c603 | | Store 0x3,0x3 075a 4800 |H | Short_Literal 0x0 075b a603 | | Store_Unchecked 0x3,0x3 075c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 075d TRAP_0680: 075d e001 | | Load 0x0,0x1 075e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 075f 010f | | Execute Exception,Equal 0760 6801 |h | Jump_Zero 0x762 0761 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0762 4884 |H | Short_Literal 0x84 0763 010f | | Execute Exception,Equal 0764 681a |h | Jump_Zero 0x77f 0765 e602 | | Load 0x3,0x2 0766 e00c | | Load 0x0,0xc 0767 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0768 6043 |`C | Indirect_Literal Discrete,0x7ac,{0x00000000, 0x00008833} 0769 e001 | | Load 0x0,0x1 076a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 076b e7f9 | | Load 0x3,-0x7 076c e002 | | Load 0x0,0x2 076d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 076e e00c | | Load 0x0,0xc 076f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0770 6037 |`7 | Indirect_Literal Discrete,0x7a8,{0x00000000, 0x00008822} 0771 e001 | | Load 0x0,0x1 0772 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0773 4801 |H | Short_Literal 0x1 0774 4801 |H | Short_Literal 0x1 0775 4800 |H | Short_Literal 0x0 0776 4801 |H | Short_Literal 0x1 0777 e602 | | Load 0x3,0x2 0778 e008 | | Load 0x0,0x8 0779 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 077a 4800 |H | Short_Literal 0x0 077b e802 | | Load 0x4,0x2 077c e013 | | Load 0x0,0x13 077d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 077e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 077f e002 | | Load 0x0,0x2 0780 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0781 010f | | Execute Exception,Equal 0782 6815 |h | Jump_Zero 0x798 0783 e602 | | Load 0x3,0x2 0784 4801 |H | Short_Literal 0x1 0785 4801 |H | Short_Literal 0x1 0786 e00c | | Load 0x0,0xc 0787 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0788 035b | [ | Declare_Type Array,Constrained 0789 0337 | 7 | Declare_Variable Array 078a 0092 0861 | a| Action Push_String_Extended,0x861 ; "Cmvc.Destroy_View" 078c e00c | | Load 0x0,0xc 078d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 078e e00c | | Load 0x0,0xc 078f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0790 0119 | | Execute Any,Check_In_Formal_Type 0791 4801 |H | Short_Literal 0x1 0792 00da | | Load_Top At_Offset_2 0793 01d6 | | Execute Vector,Field_Write 0794 6007 |` | Indirect_Literal Discrete,0x79c,{0x00000000, 0x0000881f} 0795 e001 | | Load 0x0,0x1 0796 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0797 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0798 0100 | | Execute Exception,Raise 0799 0000 0000 | | .XXX[0x3] 079b 0000 | | 079c 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 07a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 07a4 0000 0000 | | .LITERAL {0x00000000, 0x0000882a} 07a8 0000 0000 | | .LITERAL {0x00000000, 0x00008822} 07ac 0000 0000 | | .LITERAL {0x00000000, 0x00008833} 07b0 0000 0000 | | .LITERAL {0x00000000, 0x0000882d} 07b4 0000 0000 | | .LITERAL {0x00000000, 0x00008874} 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07bd | | .CONST 0x07bd ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0002 | | .CONST 0x0002 ; Number of locals 07bb INIT_07b8: 07bb e608 | | Load 0x3,0x8 07bc 860c | | Call 0x3,0xc 07bd BODY_07b8: 07bd 4801 |H | Short_Literal 0x1 07be 4801 |H | Short_Literal 0x1 07bf 4800 |H | Short_Literal 0x0 07c0 4801 |H | Short_Literal 0x1 07c1 e7f9 | | Load 0x3,-0x7 07c2 e008 | | Load 0x0,0x8 07c3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 07c4 e7fa | | Load 0x3,-0x6 07c5 e7fb | | Load 0x3,-0x5 07c6 e7fd | | Load 0x3,-0x3 07c7 e7fe | | Load 0x3,-0x2 07c8 e802 | | Load 0x4,0x2 07c9 e004 | | Load 0x0,0x4 07ca 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 07cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07cc 0000 0000 | | .BLANK 0000[0x4] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d3 | | .CONST 0x07d3 ; Address of begin 07d1 07ee | | .CONST 0x07ee ; Address of exception handler 07d2 0001 | | .CONST 0x0001 ; Number of locals 07d3 BODY_07d0: 07d3 INIT_07d0: 07d3 4801 |H | Short_Literal 0x1 07d4 4801 |H | Short_Literal 0x1 07d5 4800 |H | Short_Literal 0x0 07d6 4801 |H | Short_Literal 0x1 07d7 e7f0 | | Load 0x3,-0x10 07d8 e008 | | Load 0x0,0x8 07d9 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 07da e7f1 | | Load 0x3,-0xf 07db e7f2 | | Load 0x3,-0xe 07dc e7f3 | | Load 0x3,-0xd 07dd 4801 |H | Short_Literal 0x1 07de e7f5 | | Load 0x3,-0xb 07df e7f6 | | Load 0x3,-0xa 07e0 e7f7 | | Load 0x3,-0x9 07e1 4801 |H | Short_Literal 0x1 07e2 4800 |H | Short_Literal 0x0 07e3 e602 | | Load 0x3,0x2 07e4 e7f7 | | Load 0x3,-0x9 07e5 e802 | | Load 0x4,0x2 07e6 8211 | | Call 0x1,0x11 07e7 e7fc | | Load 0x3,-0x4 07e8 e7fd | | Load 0x3,-0x3 07e9 e7fe | | Load 0x3,-0x2 07ea e7ff | | Load 0x3,-0x1 07eb e004 | | Load 0x0,0x4 07ec 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07ee TRAP_07d0: 07ee 0007 | | Action Break_Optional 07ef e602 | | Load 0x3,0x2 07f0 4801 |H | Short_Literal 0x1 07f1 4801 |H | Short_Literal 0x1 07f2 e00c | | Load 0x0,0xc 07f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07f4 035b | [ | Declare_Type Array,Constrained 07f5 0337 | 7 | Declare_Variable Array 07f6 0092 0862 | b| Action Push_String_Extended,0x862 ; "Cmvc.Make_Path" 07f8 e00c | | Load 0x0,0xc 07f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07fa e00c | | Load 0x0,0xc 07fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07fc 0119 | | Execute Any,Check_In_Formal_Type 07fd 4801 |H | Short_Literal 0x1 07fe 00da | | Load_Top At_Offset_2 07ff 01d6 | | Execute Vector,Field_Write 0800 6007 |` | Indirect_Literal Discrete,0x808,{0x00000000, 0x0000881f} 0801 e001 | | Load 0x0,0x1 0802 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0803 e001 | | Load 0x0,0x1 0804 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0805 0257 | W | Execute Discrete,Raise 0806 0000 0000 | | .XXX[0x2] 0808 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 080c 0000 0000 | | .BLANK 0000[0x4] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 081b | | .CONST 0x081b ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0002 | | .CONST 0x0002 ; Number of locals 0813 INIT_0810: 0813 e006 | | Load 0x0,0x6 0814 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0815 02c7 | | Declare_Variable Any 0816 e802 | | Load 0x4,0x2 0817 e006 | | Load 0x0,0x6 0818 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0819 181a | | Execute Package,Field_Execute,Field_Number 0x1a 081a aa02 | | Store_Unchecked 0x5,0x2 081b BODY_0810: 081b e802 | | Load 0x4,0x2 081c e006 | | Load 0x0,0x6 081d 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 081e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 081f c802 | | Store 0x4,0x2 0820 e802 | | Load 0x4,0x2 0821 e006 | | Load 0x0,0x6 0822 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0823 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0824 6805 |h | Jump_Zero 0x82a 0825 00d8 | | Load_Top At_Offset_0 0826 e006 | | Load 0x0,0x6 0827 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0828 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0829 00ca | | Action Exit_Nullary_Function 082a 00d8 | | Load_Top At_Offset_0 082b e006 | | Load 0x0,0x6 082c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 082d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 082e 0092 0863 | c| Action Push_String_Extended,0x863 ; "," 0830 01cc | | Execute Vector,Catenate 0831 8803 | | Call 0x4,0x3 0832 01cc | | Execute Vector,Catenate 0833 00ca | | Action Exit_Nullary_Function 0834 ; -------------------------------------------------------------------------------------- 0834 ; STRING TABLE 0834 ; -------------------------------------------------------------------------------------- 0834 0062 | b | .STRTAB 0x0062->0x0865 ; "Initial" 0835 0067 | g | .STRTAB 0x0067->0x0868 ; "Rcf_Cmvc." 0836 006e | n | .STRTAB 0x006e->0x086d ; "Subsystem" 0837 0075 | u | .STRTAB 0x0075->0x0871 ; "Working_View_Base_Name" 0838 0089 | | .STRTAB 0x0089->0x087c ; "Remote_Machine" 0839 0095 | | .STRTAB 0x0095->0x0883 ; "Remote_Directory" 083a 00a3 | | .STRTAB 0x00a3->0x088b ; "Subsystem_Type => " 083b 00b3 | | .STRTAB 0x00b3->0x0894 ; ", View_To_Import" 083c 00c1 | | .STRTAB 0x00c1->0x089c ; "Model" 083d 00c4 | | .STRTAB 0x00c4->0x089f ; "Comments" 083e 00ca | | .STRTAB 0x00ca->0x08a3 ; "Work_Order" 083f 00d2 | | .STRTAB 0x00d2->0x08a8 ; "Volume => " 0840 00da | | .STRTAB 0x00da->0x08ad ; ", Response" 0841 00e2 | | .STRTAB 0x00e2->0x08b2 ; "Make_Path" 0842 00e9 | | .STRTAB 0x00e9->0x08b6 ; "From_Path" 0843 00f0 | | .STRTAB 0x00f0->0x08bb ; "New_Path_Name" 0844 00fb | | .STRTAB 0x00fb->0x08c1 ; "Remote_Machine => " 0845 010b | | .STRTAB 0x010b->0x08ca ; "Remote_Directory => " 0846 011d | | .STRTAB 0x011d->0x08d4 ; "View_To_Modify" 0847 0129 | ) | .STRTAB 0x0129->0x08db ; "View_To_Import" 0848 0135 | 5 | .STRTAB 0x0135->0x08e2 ; "Only_Change_Imports => " 0849 014a | J | .STRTAB 0x014a->0x08ee ; ", Model" 084a 014f | O | .STRTAB 0x014f->0x08f1 ; "Join_Paths => " 084b 015b | [ | .STRTAB 0x015b->0x08f8 ; ", Remake_Demoted_Units => " 084c 0173 | s | .STRTAB 0x0173->0x0905 ; ", Goal => " 084d 017b | { | .STRTAB 0x017b->0x090a ; ", Comments" 084e 0183 | | .STRTAB 0x0183->0x090f ; "Volume =>" 084f 018a | | .STRTAB 0x018a->0x0914 ; "Make_Subpath" 0850 0194 | | .STRTAB 0x0194->0x091a ; "New_Subpath_Extension" 0851 01a7 | | .STRTAB 0x01a7->0x0924 ; "Destroy_View" 0852 01b1 | | .STRTAB 0x01b1->0x092a ; "What_View" 0853 01b8 | | .STRTAB 0x01b8->0x092f ; "Demote_Clients => " 0854 01c8 | | .STRTAB 0x01c8->0x0938 ; ", Destroy_Configuration_Also => " 0855 01e6 | | .STRTAB 0x01e6->0x0948 ; "Response" 0856 01ec | | .STRTAB 0x01ec->0x094c ; "Only_Change_Imports" 0857 01fd | | .STRTAB 0x01fd->0x0955 ; "Cmvc.Initial" 0858 0207 | | .STRTAB 0x0207->0x095b ; "New Path is " 0859 0211 | | .STRTAB 0x0211->0x0961 ; ".units" 085a 0215 | | .STRTAB 0x0215->0x0964 ; "New Subpath is " 085b 0222 | " | .STRTAB 0x0222->0x096c ; "Cmvc.Make_Subpath" 085c 0231 | 1 | .STRTAB 0x0231->0x0974 ; "<ALL_WORLDS>" 085d 023b | ; | .STRTAB 0x023b->0x097a ; "<WORLDS>" 085e 0241 | A | .STRTAB 0x0241->0x097e ; "[" 085f 0240 | @ | .STRTAB 0x0240->0x097f ; "]" 0860 023f | ? | .STRTAB 0x023f->0x097f ; "<DEFAULT>" 0861 0246 | F | .STRTAB 0x0246->0x0984 ; "Cmvc.Destroy_View" 0862 0255 | U | .STRTAB 0x0255->0x098c ; "Cmvc.Make_Path" 0863 0261 | a | .STRTAB 0x0261->0x0993 ; "," 0864 0260 | ` | .STREND 0x0260->0x0994 0865 496e 6974 |Init| .STRTAB_STRINGS 0994 0000 0000 | | .BLANK 0000[0x4] 0998 ; -------------------------------------------------------------------------------------- 0998 ; Debug Table 0998 ; -------------------------------------------------------------------------------------- 0998 0004 000d | | .DEBUG4 0x0004,0x000d,0x50d5,0x0000,0x0001,0x0000 099e 0000 0000 | | .BLANK 0000[0x2f] 09cd 012d 8700 | - | .XXX[0x2] 09cf 0000 0000 | | .BLANK 0000[0x31]