|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0970 | p | .CONST 0x0970 ; 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 080c | | Action Push_String_Extended,0x80c ; "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 080d | | Action Push_String_Extended,0x80d ; "Rcf_Cmvc." 0037 0092 080e | | Action Push_String_Extended,0x80e ; "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 080f | | Action Push_String_Extended,0x80f ; "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 0810 | | Action Push_String_Extended,0x810 ; "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 0811 | | Action Push_String_Extended,0x811 ; "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 0812 | | Action Push_String_Extended,0x812 ; "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 0813 | | Action Push_String_Extended,0x813 ; ", 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 0814 | | Action Push_String_Extended,0x814 ; "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 0815 | | Action Push_String_Extended,0x815 ; "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 0816 | | Action Push_String_Extended,0x816 ; "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 0817 | | Action Push_String_Extended,0x817 ; "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 0818 | | Action Push_String_Extended,0x818 ; ", 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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 0819 | | Action Push_String_Extended,0x819 ; "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 080d | | Action Push_String_Extended,0x80d ; "Rcf_Cmvc." 00d7 0092 081a | | Action Push_String_Extended,0x81a ; "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 081b | | Action Push_String_Extended,0x81b ; "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 081c | | Action Push_String_Extended,0x81c ; "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 081d | | Action Push_String_Extended,0x81d ; "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 081e | | Action Push_String_Extended,0x81e ; "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 081f | | Action Push_String_Extended,0x81f ; "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 0820 | | Action Push_String_Extended,0x820 ; "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 0821 | !| Action Push_String_Extended,0x821 ; ", 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 0822 | "| Action Push_String_Extended,0x822 ; "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 0823 | #| Action Push_String_Extended,0x823 ; ", 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 0824 | $| Action Push_String_Extended,0x824 ; ", 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 0825 | %| Action Push_String_Extended,0x825 ; ", 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 0816 | | Action Push_String_Extended,0x816 ; "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 0826 | &| Action Push_String_Extended,0x826 ; "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 0818 | | Action Push_String_Extended,0x818 ; ", 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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 0827 | '| Action Push_String_Extended,0x827 ; "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 080d | | Action Push_String_Extended,0x80d ; "Rcf_Cmvc." 01a4 0092 081a | | Action Push_String_Extended,0x81a ; "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 0828 | (| Action Push_String_Extended,0x828 ; "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 0811 | | Action Push_String_Extended,0x811 ; "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 081e | | Action Push_String_Extended,0x81e ; "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 081f | | Action Push_String_Extended,0x81f ; "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 0820 | | Action Push_String_Extended,0x820 ; "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 0823 | #| Action Push_String_Extended,0x823 ; ", 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 0824 | $| Action Push_String_Extended,0x824 ; ", 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 0825 | %| Action Push_String_Extended,0x825 ; ", 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 0816 | | Action Push_String_Extended,0x816 ; "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 0826 | &| Action Push_String_Extended,0x826 ; "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 0818 | | Action Push_String_Extended,0x818 ; ", 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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 0829 | )| Action Push_String_Extended,0x829 ; "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 0423 | #| Declare_Subprogram INIT_0420,For_Call 0249 BODY_0238: 0249 00d9 | | Load_Top At_Offset_1 024a 0092 080d | | Action Push_String_Extended,0x80d ; "Rcf_Cmvc." 024c 0092 082a | *| Action Push_String_Extended,0x82a ; "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 082b | +| Action Push_String_Extended,0x82b ; "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 082c | ,| Action Push_String_Extended,0x82c ; ", 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 0825 | %| Action Push_String_Extended,0x825 ; ", 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 0816 | | Action Push_String_Extended,0x816 ; "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 082d | -| Action Push_String_Extended,0x82d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080d | | Action Push_String_Extended,0x80d ; "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 080e | | Action Push_String_Extended,0x80e ; "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 080f | | Action Push_String_Extended,0x80f ; "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 0814 | | Action Push_String_Extended,0x814 ; "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 04c3 | | Declare_Subprogram INIT_04c0,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 e7fb | | Load 0x3,-0x5 0325 e7fc | | Load 0x3,-0x4 0326 e7fd | | Load 0x3,-0x3 0327 e603 | | Load 0x3,0x3 0328 800a | | Call 0x0,0xa 0329 c7f3 | | Store 0x3,-0xd 032a 450d |E | Exit_Suprogram New_Top_Offset 0xd 032b 0000 0000 | | .BLANK 0000[0x5] 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 081b | | Action Push_String_Extended,0x81b ; "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 081a | | Action Push_String_Extended,0x81a ; "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 04fb | | Declare_Subprogram INIT_04f8,For_Call 036a 029f 058b | | Declare_Subprogram INIT_0588,For_Call 036c BODY_0358: 036c e7f8 | | Load 0x3,-0x8 036d 6813 |h | Jump_Zero 0x381 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 0334 | 4 | Declare_Variable Array,With_Constraint 0374 0092 082e | .| Action Push_String_Extended,0x82e ; "Only_Change_Imports" 0376 e00c | | Load 0x0,0xc 0377 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0378 e00c | | Load 0x0,0xc 0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037a 0119 | | Execute Any,Check_In_Formal_Type 037b 4801 |H | Short_Literal 0x1 037c 00da | | Load_Top At_Offset_2 037d 01d6 | | Execute Vector,Field_Write 037e 600d |` | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0000884a} 037f e001 | | Load 0x0,0x1 0380 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0381 e7f5 | | Load 0x3,-0xb 0382 7003 |p | Jump_Nonzero 0x386 0383 4801 |H | Short_Literal 0x1 0384 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0385 7802 |x | Jump 0x388 0386 e7f4 | | Load 0x3,-0xc 0387 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0388 8605 | | Call 0x3,0x5 0389 8606 | | Call 0x3,0x6 038a 4511 |E | Exit_Suprogram New_Top_Offset 0x11 038b 0000 | | .XXX[0x1] 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 0828 | (| Action Push_String_Extended,0x828 ; "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 081a | | Action Push_String_Extended,0x81a ; "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 05b3 | | Declare_Subprogram INIT_05b0,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 6813 |h | Jump_Zero 0x406 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 0334 | 4 | Declare_Variable Array,With_Constraint 03f9 0092 082e | .| Action Push_String_Extended,0x82e ; "Only_Change_Imports" 03fb e00c | | Load 0x0,0xc 03fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03fd e00c | | Load 0x0,0xc 03fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ff 0119 | | Execute Any,Check_In_Formal_Type 0400 4801 |H | Short_Literal 0x1 0401 00da | | Load_Top At_Offset_2 0402 01d6 | | Execute Vector,Field_Write 0403 6018 |` | Indirect_Literal Discrete,0x41c,{0x00000000, 0x0000884a} 0404 e001 | | Load 0x0,0x1 0405 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0406 8608 | | Call 0x3,0x8 0407 e602 | | Load 0x3,0x2 0408 4801 |H | Short_Literal 0x1 0409 e603 | | Load 0x3,0x3 040a e008 | | Load 0x0,0x8 040b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 040c c605 | | Store 0x3,0x5 040d e7f2 | | Load 0x3,-0xe 040e e602 | | Load 0x3,0x2 040f 4800 |H | Short_Literal 0x0 0410 e604 | | Load 0x3,0x4 0411 e607 | | Load 0x3,0x7 0412 e7fa | | Load 0x3,-0x6 0413 e7fb | | Load 0x3,-0x5 0414 e602 | | Load 0x3,0x2 0415 e606 | | Load 0x3,0x6 0416 800e | | Call 0x0,0xe 0417 e605 | | Load 0x3,0x5 0418 800a | | Call 0x0,0xa 0419 c7f2 | | Store 0x3,-0xe 041a 450e |E | Exit_Suprogram New_Top_Offset 0xe 041b 0000 | | .XXX[0x1] 041c 0000 0000 | | .LITERAL {0x00000000, 0x0000884a} 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 044b | K | .CONST 0x044b ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 000e | | .CONST 0x000e ; Number of locals 0423 INIT_0420: 0423 e002 | | Load 0x0,0x2 0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0425 02c7 | | Declare_Variable Any 0426 e7f9 | | Load 0x3,-0x7 0427 e002 | | Load 0x0,0x2 0428 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0429 a602 | | Store_Unchecked 0x3,0x2 042a e001 | | Load 0x0,0x1 042b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 042d e006 | | Load 0x0,0x6 042e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 042f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0430 02c7 | | Declare_Variable Any 0431 00d8 | | Load_Top At_Offset_0 0432 1c00 | | Execute_Immediate Run_Utility,0x0 0433 00e1 | | Load_Encached Boolean_Cache 0434 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0435 e006 | | Load 0x0,0x6 0436 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0437 00e1 | | Load_Encached Boolean_Cache 0438 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0439 e006 | | Load 0x0,0x6 043a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 043b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043c 02c7 | | Declare_Variable Any 043d 00d8 | | Load_Top At_Offset_0 043e 1c00 | | Execute_Immediate Run_Utility,0x0 043f 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call 0441 029f 064b | K| Declare_Subprogram INIT_0648,For_Call 0443 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 0445 029f 066b | k| Declare_Subprogram INIT_0668,For_Call 0447 029f 069b | | Declare_Subprogram INIT_0698,For_Call 0449 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call 044b BODY_0420: 044b e608 | | Load 0x3,0x8 044c 0120 | | Execute Any,Is_Value 044d 6804 |h | Jump_Zero 0x452 044e e006 | | Load 0x0,0x6 044f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0450 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0451 7801 |x | Jump 0x453 0452 e608 | | Load 0x3,0x8 0453 e00f | | Load 0x0,0xf 0454 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0455 e010 | | Load 0x0,0x10 0456 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0457 e006 | | Load 0x0,0x6 0458 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0459 180f | | Execute Package,Field_Execute,Field_Number 0xf 045a c608 | | Store 0x3,0x8 045b e602 | | Load 0x3,0x2 045c 4801 |H | Short_Literal 0x1 045d e7ff | | Load 0x3,-0x1 045e e008 | | Load 0x0,0x8 045f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0460 c604 | | Store 0x3,0x4 0461 e602 | | Load 0x3,0x2 0462 e00c | | Load 0x0,0xc 0463 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0464 6053 |`S | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00008875} 0465 e001 | | Load 0x0,0x1 0466 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0467 00cf | | Action Mark_Auxiliary 0468 781c |x | Jump 0x485 0469 e602 | | Load 0x3,0x2 046a 4801 |H | Short_Literal 0x1 046b 4801 |H | Short_Literal 0x1 046c e00c | | Load 0x0,0xc 046d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 046e 0334 | 4 | Declare_Variable Array,With_Constraint 046f e602 | | Load 0x3,0x2 0470 4801 |H | Short_Literal 0x1 0471 e604 | | Load 0x3,0x4 0472 e008 | | Load 0x0,0x8 0473 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0474 e00c | | Load 0x0,0xc 0475 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0476 e00c | | Load 0x0,0xc 0477 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0478 0119 | | Execute Any,Check_In_Formal_Type 0479 4801 |H | Short_Literal 0x1 047a 00da | | Load_Top At_Offset_2 047b 01d6 | | Execute Vector,Field_Write 047c 6037 |`7 | Indirect_Literal Discrete,0x4b4,{0x00000000, 0x00008876} 047d e001 | | Load 0x0,0x1 047e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 047f e604 | | Load 0x3,0x4 0480 e006 | | Load 0x0,0x6 0481 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0482 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0483 c604 | | Store 0x3,0x4 0484 00c9 | | Action Pop_Auxiliary_Loop 0485 e604 | | Load 0x3,0x4 0486 e006 | | Load 0x0,0x6 0487 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0488 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0489 6fdf |o | Jump_Zero 0x469 048a 00ce | | Action Pop_Auxiliary 048b e602 | | Load 0x3,0x2 048c 4801 |H | Short_Literal 0x1 048d 4801 |H | Short_Literal 0x1 048e e00c | | Load 0x0,0xc 048f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0490 0334 | 4 | Declare_Variable Array,With_Constraint 0491 00ea | | Load_Encached Null_String_Cache 0492 e00c | | Load 0x0,0xc 0493 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0494 e00c | | Load 0x0,0xc 0495 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0496 0119 | | Execute Any,Check_In_Formal_Type 0497 4801 |H | Short_Literal 0x1 0498 00da | | Load_Top At_Offset_2 0499 01d6 | | Execute Vector,Field_Write 049a 6019 |` | Indirect_Literal Discrete,0x4b4,{0x00000000, 0x00008876} 049b e001 | | Load 0x0,0x1 049c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 049d e604 | | Load 0x3,0x4 049e e006 | | Load 0x0,0x6 049f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04a1 c604 | | Store 0x3,0x4 04a2 00cf | | Action Mark_Auxiliary 04a3 7807 |x | Jump 0x4ab 04a4 860d | | Call 0x3,0xd 04a5 e604 | | Load 0x3,0x4 04a6 e006 | | Load 0x0,0x6 04a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04a9 c604 | | Store 0x3,0x4 04aa 00c9 | | Action Pop_Auxiliary_Loop 04ab e604 | | Load 0x3,0x4 04ac e006 | | Load 0x0,0x6 04ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04af 6ff4 |o | Jump_Zero 0x4a4 04b0 00ce | | Action Pop_Auxiliary 04b1 860e | | Call 0x3,0xe 04b2 4508 |E | Exit_Suprogram New_Top_Offset 0x8 04b3 0000 | | .XXX[0x1] 04b4 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 04b8 0000 0000 | | .LITERAL {0x00000000, 0x00008875} 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 04d8 | | .CONST 0x04d8 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 4801 |H | Short_Literal 0x1 04c4 4801 |H | Short_Literal 0x1 04c5 4800 |H | Short_Literal 0x0 04c6 4801 |H | Short_Literal 0x1 04c7 e7f4 | | Load 0x3,-0xc 04c8 e008 | | Load 0x0,0x8 04c9 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04ca e7f5 | | Load 0x3,-0xb 04cb e7f6 | | Load 0x3,-0xa 04cc e7f7 | | Load 0x3,-0x9 04cd e604 | | Load 0x3,0x4 04ce e008 | | Load 0x0,0x8 04cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04d0 4800 |H | Short_Literal 0x0 04d1 e7f9 | | Load 0x3,-0x7 04d2 e7fa | | Load 0x3,-0x6 04d3 e7fe | | Load 0x3,-0x2 04d4 e7ff | | Load 0x3,-0x1 04d5 e004 | | Load 0x0,0x4 04d6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d8 TRAP_04c0: 04d8 0007 | | Action Break_Optional 04d9 e602 | | Load 0x3,0x2 04da 4801 |H | Short_Literal 0x1 04db 4801 |H | Short_Literal 0x1 04dc e00c | | Load 0x0,0xc 04dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04de 0334 | 4 | Declare_Variable Array,With_Constraint 04df 0092 082f | /| Action Push_String_Extended,0x82f ; "Cmvc.Initial" 04e1 e00c | | Load 0x0,0xc 04e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e3 e00c | | Load 0x0,0xc 04e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04e5 0119 | | Execute Any,Check_In_Formal_Type 04e6 4801 |H | Short_Literal 0x1 04e7 00da | | Load_Top At_Offset_2 04e8 01d6 | | Execute Vector,Field_Write 04e9 6006 |` | Indirect_Literal Discrete,0x4f0,{0x00000000, 0x0000881f} 04ea e001 | | Load 0x0,0x1 04eb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04ec e001 | | Load 0x0,0x1 04ed 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04ee 0257 | W | Execute Discrete,Raise 04ef 0000 | | .XXX[0x1] 04f0 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 04f4 0000 0000 | | .BLANK 0000[0x4] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 0504 | | .CONST 0x0504 ; Address of begin 04f9 0561 | a | .CONST 0x0561 ; Address of exception handler 04fa 0002 | | .CONST 0x0002 ; Number of locals 04fb INIT_04f8: 04fb e006 | | Load 0x0,0x6 04fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04fd 02c7 | | Declare_Variable Any 04fe e602 | | Load 0x3,0x2 04ff 4801 |H | Short_Literal 0x1 0500 e7ff | | Load 0x3,-0x1 0501 e008 | | Load 0x0,0x8 0502 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0503 a802 | | Store_Unchecked 0x4,0x2 0504 BODY_04f8: 0504 e602 | | Load 0x3,0x2 0505 4801 |H | Short_Literal 0x1 0506 4801 |H | Short_Literal 0x1 0507 e00c | | Load 0x0,0xc 0508 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0509 0334 | 4 | Declare_Variable Array,With_Constraint 050a 0092 0830 | 0| Action Push_String_Extended,0x830 ; "New Path is " 050c e603 | | Load 0x3,0x3 050d 01cc | | Execute Vector,Catenate 050e e00c | | Load 0x0,0xc 050f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0510 e00c | | Load 0x0,0xc 0511 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0512 0119 | | Execute Any,Check_In_Formal_Type 0513 4801 |H | Short_Literal 0x1 0514 00da | | Load_Top At_Offset_2 0515 01d6 | | Execute Vector,Field_Write 0516 606d |`m | Indirect_Literal Discrete,0x584,{0x00000000, 0x00008876} 0517 e001 | | Load 0x0,0x1 0518 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0519 e001 | | Load 0x0,0x1 051a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 051b e602 | | Load 0x3,0x2 051c e7ff | | Load 0x3,-0x1 051d 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 051f 01cc | | Execute Vector,Catenate 0520 e011 | | Load 0x0,0x11 0521 1882 | | Execute Package,Field_Execute,Field_Number 0x82 0522 c7ef | | Store 0x3,-0x11 0523 e7ef | | Load 0x3,-0x11 0524 6803 |h | Jump_Zero 0x528 0525 e001 | | Load 0x0,0x1 0526 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0527 0257 | W | Execute Discrete,Raise 0528 4801 |H | Short_Literal 0x1 0529 4801 |H | Short_Literal 0x1 052a 4800 |H | Short_Literal 0x0 052b 4801 |H | Short_Literal 0x1 052c e7f0 | | Load 0x3,-0x10 052d e008 | | Load 0x0,0x8 052e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 052f e7f1 | | Load 0x3,-0xf 0530 e7f2 | | Load 0x3,-0xe 0531 e7f3 | | Load 0x3,-0xd 0532 4801 |H | Short_Literal 0x1 0533 e7f5 | | Load 0x3,-0xb 0534 e7f6 | | Load 0x3,-0xa 0535 e7f7 | | Load 0x3,-0x9 0536 4801 |H | Short_Literal 0x1 0537 4800 |H | Short_Literal 0x0 0538 e602 | | Load 0x3,0x2 0539 e7f7 | | Load 0x3,-0x9 053a e802 | | Load 0x4,0x2 053b 8211 | | Call 0x1,0x11 053c e7fc | | Load 0x3,-0x4 053d e7fd | | Load 0x3,-0x3 053e e7fe | | Load 0x3,-0x2 053f e7ff | | Load 0x3,-0x1 0540 e004 | | Load 0x0,0x4 0541 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0542 e001 | | Load 0x0,0x1 0543 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0544 e602 | | Load 0x3,0x2 0545 e603 | | Load 0x3,0x3 0546 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 0548 01cc | | Execute Vector,Catenate 0549 e011 | | Load 0x0,0x11 054a 1883 | | Execute Package,Field_Execute,Field_Number 0x83 054b c7ef | | Store 0x3,-0x11 054c e7ef | | Load 0x3,-0x11 054d 6803 |h | Jump_Zero 0x551 054e e001 | | Load 0x0,0x1 054f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0550 0257 | W | Execute Discrete,Raise 0551 e001 | | Load 0x0,0x1 0552 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0553 e602 | | Load 0x3,0x2 0554 e7ff | | Load 0x3,-0x1 0555 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 0557 01cc | | Execute Vector,Catenate 0558 e011 | | Load 0x0,0x11 0559 1884 | | Execute Package,Field_Execute,Field_Number 0x84 055a c7ef | | Store 0x3,-0x11 055b e7ef | | Load 0x3,-0x11 055c 6803 |h | Jump_Zero 0x560 055d e001 | | Load 0x0,0x1 055e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 055f 0257 | W | Execute Discrete,Raise 0560 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0561 TRAP_04f8: 0561 0007 | | Action Break_Optional 0562 e602 | | Load 0x3,0x2 0563 4801 |H | Short_Literal 0x1 0564 4801 |H | Short_Literal 0x1 0565 e00c | | Load 0x0,0xc 0566 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0567 0334 | 4 | Declare_Variable Array,With_Constraint 0568 0092 0832 | 2| Action Push_String_Extended,0x832 ; "Cmvc.Make_Path" 056a e00c | | Load 0x0,0xc 056b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 056c e00c | | Load 0x0,0xc 056d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 056e 0119 | | Execute Any,Check_In_Formal_Type 056f 4801 |H | Short_Literal 0x1 0570 00da | | Load_Top At_Offset_2 0571 01d6 | | Execute Vector,Field_Write 0572 677d |g} | Indirect_Literal Discrete,0x4f0,{0x00000000, 0x0000881f} 0573 e001 | | Load 0x0,0x1 0574 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0575 e001 | | Load 0x0,0x1 0576 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0577 e602 | | Load 0x3,0x2 0578 e7ff | | Load 0x3,-0x1 0579 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 057b 01cc | | Execute Vector,Catenate 057c e011 | | Load 0x0,0x11 057d 1884 | | Execute Package,Field_Execute,Field_Number 0x84 057e c7ef | | Store 0x3,-0x11 057f e001 | | Load 0x0,0x1 0580 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0581 0257 | W | Execute Discrete,Raise 0582 0000 0000 | | .XXX[0x2] 0584 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 059d | | .CONST 0x059d ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b e006 | | Load 0x0,0x6 058c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 058d 02c7 | | Declare_Variable Any 058e e602 | | Load 0x3,0x2 058f 4801 |H | Short_Literal 0x1 0590 e603 | | Load 0x3,0x3 0591 e008 | | Load 0x0,0x8 0592 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0593 a802 | | Store_Unchecked 0x4,0x2 0594 e006 | | Load 0x0,0x6 0595 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0596 0322 | " | Declare_Variable Record 0597 e602 | | Load 0x3,0x2 0598 00da | | Load_Top At_Offset_2 0599 e008 | | Load 0x0,0x8 059a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 059b 00d9 | | Load_Top At_Offset_1 059c 017d | } | Execute Record,Structure_Write 059d BODY_0588: 059d e7ef | | Load 0x3,-0x11 059e e602 | | Load 0x3,0x2 059f 4800 |H | Short_Literal 0x0 05a0 e604 | | Load 0x3,0x4 05a1 e803 | | Load 0x4,0x3 05a2 e7f9 | | Load 0x3,-0x7 05a3 e7fa | | Load 0x3,-0x6 05a4 e7fb | | Load 0x3,-0x5 05a5 e802 | | Load 0x4,0x2 05a6 800a | | Call 0x0,0xa 05a7 c7ef | | Store 0x3,-0x11 05a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a9 0000 0000 | | .BLANK 0000[0x7] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0609 | | .CONST 0x0609 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 e602 | | Load 0x3,0x2 05b4 4801 |H | Short_Literal 0x1 05b5 4801 |H | Short_Literal 0x1 05b6 e00c | | Load 0x0,0xc 05b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05b8 0334 | 4 | Declare_Variable Array,With_Constraint 05b9 0092 0833 | 3| Action Push_String_Extended,0x833 ; "New Subpath is " 05bb e603 | | Load 0x3,0x3 05bc 01cc | | Execute Vector,Catenate 05bd e00c | | Load 0x0,0xc 05be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05bf e00c | | Load 0x0,0xc 05c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05c1 0119 | | Execute Any,Check_In_Formal_Type 05c2 4801 |H | Short_Literal 0x1 05c3 00da | | Load_Top At_Offset_2 05c4 01d6 | | Execute Vector,Field_Write 05c5 606a |`j | Indirect_Literal Discrete,0x630,{0x00000000, 0x00008876} 05c6 e001 | | Load 0x0,0x1 05c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05c8 e001 | | Load 0x0,0x1 05c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ca e602 | | Load 0x3,0x2 05cb e7ff | | Load 0x3,-0x1 05cc 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 05ce 01cc | | Execute Vector,Catenate 05cf e011 | | Load 0x0,0x11 05d0 1882 | | Execute Package,Field_Execute,Field_Number 0x82 05d1 c7f2 | | Store 0x3,-0xe 05d2 e7f2 | | Load 0x3,-0xe 05d3 6803 |h | Jump_Zero 0x5d7 05d4 e001 | | Load 0x0,0x1 05d5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05d6 0257 | W | Execute Discrete,Raise 05d7 4801 |H | Short_Literal 0x1 05d8 4801 |H | Short_Literal 0x1 05d9 4800 |H | Short_Literal 0x0 05da 4801 |H | Short_Literal 0x1 05db e7f3 | | Load 0x3,-0xd 05dc e008 | | Load 0x0,0x8 05dd 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 05de e7f4 | | Load 0x3,-0xc 05df e7f5 | | Load 0x3,-0xb 05e0 e7f6 | | Load 0x3,-0xa 05e1 4801 |H | Short_Literal 0x1 05e2 e7f8 | | Load 0x3,-0x8 05e3 e7f9 | | Load 0x3,-0x7 05e4 e7fc | | Load 0x3,-0x4 05e5 e7fd | | Load 0x3,-0x3 05e6 e7fe | | Load 0x3,-0x2 05e7 e7ff | | Load 0x3,-0x1 05e8 e004 | | Load 0x0,0x4 05e9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05ea e001 | | Load 0x0,0x1 05eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ec e602 | | Load 0x3,0x2 05ed e603 | | Load 0x3,0x3 05ee 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 05f0 01cc | | Execute Vector,Catenate 05f1 e011 | | Load 0x0,0x11 05f2 1883 | | Execute Package,Field_Execute,Field_Number 0x83 05f3 c7f2 | | Store 0x3,-0xe 05f4 e7f2 | | Load 0x3,-0xe 05f5 6803 |h | Jump_Zero 0x5f9 05f6 e001 | | Load 0x0,0x1 05f7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05f8 0257 | W | Execute Discrete,Raise 05f9 e001 | | Load 0x0,0x1 05fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05fb e602 | | Load 0x3,0x2 05fc e7ff | | Load 0x3,-0x1 05fd 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 05ff 01cc | | Execute Vector,Catenate 0600 e011 | | Load 0x0,0x11 0601 1884 | | Execute Package,Field_Execute,Field_Number 0x84 0602 c7f2 | | Store 0x3,-0xe 0603 e7f2 | | Load 0x3,-0xe 0604 6803 |h | Jump_Zero 0x608 0605 e001 | | Load 0x0,0x1 0606 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0607 0257 | W | Execute Discrete,Raise 0608 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0609 TRAP_05b0: 0609 0007 | | Action Break_Optional 060a e602 | | Load 0x3,0x2 060b 4801 |H | Short_Literal 0x1 060c 4801 |H | Short_Literal 0x1 060d e00c | | Load 0x0,0xc 060e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 060f 0334 | 4 | Declare_Variable Array,With_Constraint 0610 0092 0834 | 4| Action Push_String_Extended,0x834 ; "Cmvc.Make_Subpath" 0612 e00c | | Load 0x0,0xc 0613 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0614 e00c | | Load 0x0,0xc 0615 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0616 0119 | | Execute Any,Check_In_Formal_Type 0617 4801 |H | Short_Literal 0x1 0618 00da | | Load_Top At_Offset_2 0619 01d6 | | Execute Vector,Field_Write 061a 6011 |` | Indirect_Literal Discrete,0x62c,{0x00000000, 0x0000881f} 061b e001 | | Load 0x0,0x1 061c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 061d e001 | | Load 0x0,0x1 061e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 061f e602 | | Load 0x3,0x2 0620 e7ff | | Load 0x3,-0x1 0621 0092 0831 | 1| Action Push_String_Extended,0x831 ; ".units" 0623 01cc | | Execute Vector,Catenate 0624 e011 | | Load 0x0,0x11 0625 1884 | | Execute Package,Field_Execute,Field_Number 0x84 0626 c7f2 | | Store 0x3,-0xe 0627 e001 | | Load 0x0,0x1 0628 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0629 0257 | W | Execute Discrete,Raise 062a 0000 0000 | | .XXX[0x2] 062c 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 0630 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 0634 0000 0000 | | .BLANK 0000[0x4] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 00da | | Load_Top At_Offset_2 063c 6803 |h | Jump_Zero 0x640 063d 0092 0835 | 5| Action Push_String_Extended,0x835 ; "<ALL_WORLDS>" 063f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0640 0092 0836 | 6| Action Push_String_Extended,0x836 ; "<WORLDS>" 0642 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0643 0000 0000 | | .BLANK 0000[0x5] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b e605 | | Load 0x3,0x5 064c 6805 |h | Jump_Zero 0x652 064d 00db | | Load_Top At_Offset_3 064e 00db | | Load_Top At_Offset_3 064f e012 | | Load 0x0,0x12 0650 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0651 a605 | | Store_Unchecked 0x3,0x5 0652 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0653 0000 0000 | | .BLANK 0000[0x5] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c e608 | | Load 0x3,0x8 065d e006 | | Load 0x0,0x6 065e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 065f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0660 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0661 0000 0000 | | .BLANK 0000[0x7] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 0673 | s | .CONST 0x0673 ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0003 | | .CONST 0x0003 ; Number of locals 066b INIT_0668: 066b e006 | | Load 0x0,0x6 066c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 066d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 066e 02c7 | | Declare_Variable Any 066f 00d8 | | Load_Top At_Offset_0 0670 1c00 | | Execute_Immediate Run_Utility,0x0 0671 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call 0673 BODY_0668: 0673 00d9 | | Load_Top At_Offset_1 0674 0120 | | Execute Any,Is_Value 0675 6804 |h | Jump_Zero 0x67a 0676 e006 | | Load 0x0,0x6 0677 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0678 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0679 7801 |x | Jump 0x67b 067a 00d9 | | Load_Top At_Offset_1 067b e00f | | Load 0x0,0xf 067c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 067d e010 | | Load 0x0,0x10 067e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 067f e9ff | | Load 0x4,-0x1 0680 e006 | | Load 0x0,0x6 0681 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0682 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0683 c802 | | Store 0x4,0x2 0684 00d9 | | Load_Top At_Offset_1 0685 e006 | | Load 0x0,0x6 0686 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0687 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0688 6802 |h | Jump_Zero 0x68b 0689 00ea | | Load_Encached Null_String_Cache 068a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 068b 0092 0837 | 7| Action Push_String_Extended,0x837 ; "[" 068d 8803 | | Call 0x4,0x3 068e 01cc | | Execute Vector,Catenate 068f 0092 0838 | 8| Action Push_String_Extended,0x838 ; "]" 0691 01cc | | Execute Vector,Catenate 0692 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0693 0000 0000 | | .BLANK 0000[0x5] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06b0 | | .CONST 0x06b0 ; Address of begin 0699 0772 | r | .CONST 0x0772 ; Address of exception handler 069a 0004 | | .CONST 0x0004 ; Number of locals 069b INIT_0698: 069b e006 | | Load 0x0,0x6 069c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 069d 02c7 | | Declare_Variable Any 069e e602 | | Load 0x3,0x2 069f 4801 |H | Short_Literal 0x1 06a0 e604 | | Load 0x3,0x4 06a1 e008 | | Load 0x0,0x8 06a2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 06a3 a802 | | Store_Unchecked 0x4,0x2 06a4 00d8 | | Load_Top At_Offset_0 06a5 e008 | | Load 0x0,0x8 06a6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06a7 e006 | | Load 0x0,0x6 06a8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 06a9 0322 | " | Declare_Variable Record 06aa e602 | | Load 0x3,0x2 06ab 00db | | Load_Top At_Offset_3 06ac e008 | | Load 0x0,0x8 06ad 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06ae 00d9 | | Load_Top At_Offset_1 06af 017d | } | Execute Record,Structure_Write 06b0 BODY_0698: 06b0 e602 | | Load 0x3,0x2 06b1 4801 |H | Short_Literal 0x1 06b2 4801 |H | Short_Literal 0x1 06b3 e00c | | Load 0x0,0xc 06b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06b5 0334 | 4 | Declare_Variable Array,With_Constraint 06b6 e802 | | Load 0x4,0x2 06b7 e00c | | Load 0x0,0xc 06b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 06b9 e00c | | Load 0x0,0xc 06ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06bb 0119 | | Execute Any,Check_In_Formal_Type 06bc 4801 |H | Short_Literal 0x1 06bd 00da | | Load_Top At_Offset_2 06be 01d6 | | Execute Vector,Field_Write 06bf 6108 |a | Indirect_Literal Discrete,0x7c8,{0x00000000, 0x00008874} 06c0 e001 | | Load 0x0,0x1 06c1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06c2 e602 | | Load 0x3,0x2 06c3 00db | | Load_Top At_Offset_3 06c4 e007 | | Load 0x0,0x7 06c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c6 e7fc | | Load 0x3,-0x4 06c7 6808 |h | Jump_Zero 0x6d0 06c8 00d8 | | Load_Top At_Offset_0 06c9 00db | | Load_Top At_Offset_3 06ca e006 | | Load 0x0,0x6 06cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06cc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 06cd e012 | | Load 0x0,0x12 06ce 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06cf a605 | | Store_Unchecked 0x3,0x5 06d0 00da | | Load_Top At_Offset_2 06d1 e008 | | Load 0x0,0x8 06d2 180e | | Execute Package,Field_Execute,Field_Number 0xe 06d3 7015 |p | Jump_Nonzero 0x6e9 06d4 e602 | | Load 0x3,0x2 06d5 4801 |H | Short_Literal 0x1 06d6 4801 |H | Short_Literal 0x1 06d7 e00c | | Load 0x0,0xc 06d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06d9 0334 | 4 | Declare_Variable Array,With_Constraint 06da e802 | | Load 0x4,0x2 06db e00c | | Load 0x0,0xc 06dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 06dd e00c | | Load 0x0,0xc 06de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06df 0119 | | Execute Any,Check_In_Formal_Type 06e0 4801 |H | Short_Literal 0x1 06e1 00da | | Load_Top At_Offset_2 06e2 01d6 | | Execute Vector,Field_Write 06e3 60e0 |` | Indirect_Literal Discrete,0x7c4,{0x00000000, 0x0000882d} 06e4 e001 | | Load 0x0,0x1 06e5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06e6 e001 | | Load 0x0,0x1 06e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 06e8 0257 | W | Execute Discrete,Raise 06e9 00da | | Load_Top At_Offset_2 06ea 860b | | Call 0x3,0xb 06eb e602 | | Load 0x3,0x2 06ec 00db | | Load_Top At_Offset_3 06ed e008 | | Load 0x0,0x8 06ee 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 06ef e008 | | Load 0x0,0x8 06f0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06f1 701a |p | Jump_Nonzero 0x70c 06f2 e602 | | Load 0x3,0x2 06f3 e00c | | Load 0x0,0xc 06f4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06f5 60ca |` | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008833} 06f6 e001 | | Load 0x0,0x1 06f7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06f8 e7f9 | | Load 0x3,-0x7 06f9 e002 | | Load 0x0,0x2 06fa 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 06fb e00c | | Load 0x0,0xc 06fc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06fd 60be |` | Indirect_Literal Discrete,0x7bc,{0x00000000, 0x00008822} 06fe e001 | | Load 0x0,0x1 06ff 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0700 4801 |H | Short_Literal 0x1 0701 4801 |H | Short_Literal 0x1 0702 4800 |H | Short_Literal 0x0 0703 4801 |H | Short_Literal 0x1 0704 e602 | | Load 0x3,0x2 0705 e008 | | Load 0x0,0x8 0706 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0707 4800 |H | Short_Literal 0x0 0708 e802 | | Load 0x4,0x2 0709 e013 | | Load 0x0,0x13 070a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 070b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 070c 00d8 | | Load_Top At_Offset_0 070d 00db | | Load_Top At_Offset_3 070e e008 | | Load 0x0,0x8 070f 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0710 7026 |p& | Jump_Nonzero 0x737 0711 e602 | | Load 0x3,0x2 0712 4801 |H | Short_Literal 0x1 0713 4801 |H | Short_Literal 0x1 0714 e00c | | Load 0x0,0xc 0715 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0716 0334 | 4 | Declare_Variable Array,With_Constraint 0717 e802 | | Load 0x4,0x2 0718 e00c | | Load 0x0,0xc 0719 181a | | Execute Package,Field_Execute,Field_Number 0x1a 071a e00c | | Load 0x0,0xc 071b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 071c 0119 | | Execute Any,Check_In_Formal_Type 071d 4801 |H | Short_Literal 0x1 071e 00da | | Load_Top At_Offset_2 071f 01d6 | | Execute Vector,Field_Write 0720 6097 |` | Indirect_Literal Discrete,0x7b8,{0x00000000, 0x0000882a} 0721 e001 | | Load 0x0,0x1 0722 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0723 e7f9 | | Load 0x3,-0x7 0724 e002 | | Load 0x0,0x2 0725 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0726 e00c | | Load 0x0,0xc 0727 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0728 6093 |` | Indirect_Literal Discrete,0x7bc,{0x00000000, 0x00008822} 0729 e001 | | Load 0x0,0x1 072a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 072b 4801 |H | Short_Literal 0x1 072c 4801 |H | Short_Literal 0x1 072d 4800 |H | Short_Literal 0x0 072e 4801 |H | Short_Literal 0x1 072f e602 | | Load 0x3,0x2 0730 e008 | | Load 0x0,0x8 0731 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0732 4800 |H | Short_Literal 0x0 0733 e802 | | Load 0x4,0x2 0734 e013 | | Load 0x0,0x13 0735 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0736 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0737 e006 | | Load 0x0,0x6 0738 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0739 00e1 | | Load_Encached Boolean_Cache 073a 6079 |`y | Indirect_Literal Discrete,0x7b4,{0x00000000, 0x00004000} 073b e014 | | Load 0x0,0x14 073c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 073d e802 | | Load 0x4,0x2 073e e006 | | Load 0x0,0x6 073f 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0740 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0741 c607 | | Store 0x3,0x7 0742 c606 | | Store 0x3,0x6 0743 e607 | | Load 0x3,0x7 0744 680e |h | Jump_Zero 0x753 0745 4800 |H | Short_Literal 0x0 0746 4800 |H | Short_Literal 0x0 0747 4800 |H | Short_Literal 0x0 0748 4801 |H | Short_Literal 0x1 0749 e7f9 | | Load 0x3,-0x7 074a e008 | | Load 0x0,0x8 074b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 074c 4801 |H | Short_Literal 0x1 074d e802 | | Load 0x4,0x2 074e e006 | | Load 0x0,0x6 074f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0750 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0751 e015 | | Load 0x0,0x15 0752 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0753 4801 |H | Short_Literal 0x1 0754 4801 |H | Short_Literal 0x1 0755 4800 |H | Short_Literal 0x0 0756 4801 |H | Short_Literal 0x1 0757 e7f9 | | Load 0x3,-0x7 0758 e008 | | Load 0x0,0x8 0759 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 075a 4800 |H | Short_Literal 0x0 075b e7fe | | Load 0x3,-0x2 075c 8609 | | Call 0x3,0x9 075d 4801 |H | Short_Literal 0x1 075e e803 | | Load 0x4,0x3 075f e005 | | Load 0x0,0x5 0760 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0761 e001 | | Load 0x0,0x1 0762 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0763 e602 | | Load 0x3,0x2 0764 0092 0839 | 9| Action Push_String_Extended,0x839 ; "<DEFAULT>" 0766 0092 0839 | 9| Action Push_String_Extended,0x839 ; "<DEFAULT>" 0768 0092 0839 | 9| Action Push_String_Extended,0x839 ; "<DEFAULT>" 076a e804 | | Load 0x4,0x4 076b e802 | | Load 0x4,0x2 076c e016 | | Load 0x0,0x16 076d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 076e c603 | | Store 0x3,0x3 076f 4800 |H | Short_Literal 0x0 0770 a603 | | Store_Unchecked 0x3,0x3 0771 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0772 TRAP_0698: 0772 e001 | | Load 0x0,0x1 0773 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0774 010f | | Execute Exception,Equal 0775 6801 |h | Jump_Zero 0x777 0776 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0777 4884 |H | Short_Literal 0x84 0778 010f | | Execute Exception,Equal 0779 681a |h | Jump_Zero 0x794 077a e602 | | Load 0x3,0x2 077b e00c | | Load 0x0,0xc 077c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 077d 6042 |`B | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008833} 077e e001 | | Load 0x0,0x1 077f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0780 e7f9 | | Load 0x3,-0x7 0781 e002 | | Load 0x0,0x2 0782 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0783 e00c | | Load 0x0,0xc 0784 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0785 6036 |`6 | Indirect_Literal Discrete,0x7bc,{0x00000000, 0x00008822} 0786 e001 | | Load 0x0,0x1 0787 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0788 4801 |H | Short_Literal 0x1 0789 4801 |H | Short_Literal 0x1 078a 4800 |H | Short_Literal 0x0 078b 4801 |H | Short_Literal 0x1 078c e602 | | Load 0x3,0x2 078d e008 | | Load 0x0,0x8 078e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 078f 4800 |H | Short_Literal 0x0 0790 e802 | | Load 0x4,0x2 0791 e013 | | Load 0x0,0x13 0792 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0793 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0794 e002 | | Load 0x0,0x2 0795 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0796 010f | | Execute Exception,Equal 0797 6814 |h | Jump_Zero 0x7ac 0798 e602 | | Load 0x3,0x2 0799 4801 |H | Short_Literal 0x1 079a 4801 |H | Short_Literal 0x1 079b e00c | | Load 0x0,0xc 079c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 079d 0334 | 4 | Declare_Variable Array,With_Constraint 079e 0092 083a | :| Action Push_String_Extended,0x83a ; "Cmvc.Destroy_View" 07a0 e00c | | Load 0x0,0xc 07a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07a2 e00c | | Load 0x0,0xc 07a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07a4 0119 | | Execute Any,Check_In_Formal_Type 07a5 4801 |H | Short_Literal 0x1 07a6 00da | | Load_Top At_Offset_2 07a7 01d6 | | Execute Vector,Field_Write 07a8 6007 |` | Indirect_Literal Discrete,0x7b0,{0x00000000, 0x0000881f} 07a9 e001 | | Load 0x0,0x1 07aa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07ac 0100 | | Execute Exception,Raise 07ad 0000 0000 | | .XXX[0x3] 07af 0000 | | 07b0 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 07b4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 07b8 0000 0000 | | .LITERAL {0x00000000, 0x0000882a} 07bc 0000 0000 | | .LITERAL {0x00000000, 0x00008822} 07c0 0000 0000 | | .LITERAL {0x00000000, 0x00008833} 07c4 0000 0000 | | .LITERAL {0x00000000, 0x0000882d} 07c8 0000 0000 | | .LITERAL {0x00000000, 0x00008874} 07cc 0000 0000 | | .BLANK 0000[0x4] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d5 | | .CONST 0x07d5 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0002 | | .CONST 0x0002 ; Number of locals 07d3 INIT_07d0: 07d3 e608 | | Load 0x3,0x8 07d4 860c | | Call 0x3,0xc 07d5 BODY_07d0: 07d5 4801 |H | Short_Literal 0x1 07d6 4801 |H | Short_Literal 0x1 07d7 4800 |H | Short_Literal 0x0 07d8 4801 |H | Short_Literal 0x1 07d9 e7f9 | | Load 0x3,-0x7 07da e008 | | Load 0x0,0x8 07db 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 07dc e7fa | | Load 0x3,-0x6 07dd e7fb | | Load 0x3,-0x5 07de e7fd | | Load 0x3,-0x3 07df e7fe | | Load 0x3,-0x2 07e0 e802 | | Load 0x4,0x2 07e1 e004 | | Load 0x0,0x4 07e2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 07e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07e4 0000 0000 | | .BLANK 0000[0x4] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07f3 | | .CONST 0x07f3 ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0002 | | .CONST 0x0002 ; Number of locals 07eb INIT_07e8: 07eb e006 | | Load 0x0,0x6 07ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ed 02c7 | | Declare_Variable Any 07ee e802 | | Load 0x4,0x2 07ef e006 | | Load 0x0,0x6 07f0 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 07f1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 07f2 aa02 | | Store_Unchecked 0x5,0x2 07f3 BODY_07e8: 07f3 e802 | | Load 0x4,0x2 07f4 e006 | | Load 0x0,0x6 07f5 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 07f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 07f7 c802 | | Store 0x4,0x2 07f8 e802 | | Load 0x4,0x2 07f9 e006 | | Load 0x0,0x6 07fa 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 07fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 07fc 6805 |h | Jump_Zero 0x802 07fd 00d8 | | Load_Top At_Offset_0 07fe e006 | | Load 0x0,0x6 07ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0800 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0801 00ca | | Action Exit_Nullary_Function 0802 00d8 | | Load_Top At_Offset_0 0803 e006 | | Load 0x0,0x6 0804 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0805 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0806 0092 083b | ;| Action Push_String_Extended,0x83b ; "," 0808 01cc | | Execute Vector,Catenate 0809 8803 | | Call 0x4,0x3 080a 01cc | | Execute Vector,Catenate 080b 00ca | | Action Exit_Nullary_Function 080c ; -------------------------------------------------------------------------------------- 080c ; STRING TABLE 080c ; -------------------------------------------------------------------------------------- 080c 0062 | b | .STRTAB 0x0062->0x083d ; "Initial" 080d 0067 | g | .STRTAB 0x0067->0x0840 ; "Rcf_Cmvc." 080e 006e | n | .STRTAB 0x006e->0x0845 ; "Subsystem" 080f 0075 | u | .STRTAB 0x0075->0x0849 ; "Working_View_Base_Name" 0810 0089 | | .STRTAB 0x0089->0x0854 ; "Remote_Machine" 0811 0095 | | .STRTAB 0x0095->0x085b ; "Remote_Directory" 0812 00a3 | | .STRTAB 0x00a3->0x0863 ; "Subsystem_Type => " 0813 00b3 | | .STRTAB 0x00b3->0x086c ; ", View_To_Import" 0814 00c1 | | .STRTAB 0x00c1->0x0874 ; "Model" 0815 00c4 | | .STRTAB 0x00c4->0x0877 ; "Comments" 0816 00ca | | .STRTAB 0x00ca->0x087b ; "Work_Order" 0817 00d2 | | .STRTAB 0x00d2->0x0880 ; "Volume => " 0818 00da | | .STRTAB 0x00da->0x0885 ; ", Response" 0819 00e2 | | .STRTAB 0x00e2->0x088a ; "Make_Path" 081a 00e9 | | .STRTAB 0x00e9->0x088e ; "From_Path" 081b 00f0 | | .STRTAB 0x00f0->0x0893 ; "New_Path_Name" 081c 00fb | | .STRTAB 0x00fb->0x0899 ; "Remote_Machine => " 081d 010b | | .STRTAB 0x010b->0x08a2 ; "Remote_Directory => " 081e 011d | | .STRTAB 0x011d->0x08ac ; "View_To_Modify" 081f 0129 | ) | .STRTAB 0x0129->0x08b3 ; "View_To_Import" 0820 0135 | 5 | .STRTAB 0x0135->0x08ba ; "Only_Change_Imports => " 0821 014a | J | .STRTAB 0x014a->0x08c6 ; ", Model" 0822 014f | O | .STRTAB 0x014f->0x08c9 ; "Join_Paths => " 0823 015b | [ | .STRTAB 0x015b->0x08d0 ; ", Remake_Demoted_Units => " 0824 0173 | s | .STRTAB 0x0173->0x08dd ; ", Goal => " 0825 017b | { | .STRTAB 0x017b->0x08e2 ; ", Comments" 0826 0183 | | .STRTAB 0x0183->0x08e7 ; "Volume =>" 0827 018a | | .STRTAB 0x018a->0x08ec ; "Make_Subpath" 0828 0194 | | .STRTAB 0x0194->0x08f2 ; "New_Subpath_Extension" 0829 01a7 | | .STRTAB 0x01a7->0x08fc ; "Destroy_View" 082a 01b1 | | .STRTAB 0x01b1->0x0902 ; "What_View" 082b 01b8 | | .STRTAB 0x01b8->0x0907 ; "Demote_Clients => " 082c 01c8 | | .STRTAB 0x01c8->0x0910 ; ", Destroy_Configuration_Also => " 082d 01e6 | | .STRTAB 0x01e6->0x0920 ; "Response" 082e 01ec | | .STRTAB 0x01ec->0x0924 ; "Only_Change_Imports" 082f 01fd | | .STRTAB 0x01fd->0x092d ; "Cmvc.Initial" 0830 0207 | | .STRTAB 0x0207->0x0933 ; "New Path is " 0831 0211 | | .STRTAB 0x0211->0x0939 ; ".units" 0832 0215 | | .STRTAB 0x0215->0x093c ; "Cmvc.Make_Path" 0833 0221 | ! | .STRTAB 0x0221->0x0943 ; "New Subpath is " 0834 022e | . | .STRTAB 0x022e->0x094b ; "Cmvc.Make_Subpath" 0835 023d | = | .STRTAB 0x023d->0x0953 ; "<ALL_WORLDS>" 0836 0247 | G | .STRTAB 0x0247->0x0959 ; "<WORLDS>" 0837 024d | M | .STRTAB 0x024d->0x095d ; "[" 0838 024c | L | .STRTAB 0x024c->0x095e ; "]" 0839 024b | K | .STRTAB 0x024b->0x095e ; "<DEFAULT>" 083a 0252 | R | .STRTAB 0x0252->0x0963 ; "Cmvc.Destroy_View" 083b 0261 | a | .STRTAB 0x0261->0x096b ; "," 083c 0260 | ` | .STREND 0x0260->0x096c 083d 496e 6974 |Init| .STRTAB_STRINGS 096c 0000 0000 | | .BLANK 0000[0x4] 0970 ; -------------------------------------------------------------------------------------- 0970 ; Debug Table 0970 ; -------------------------------------------------------------------------------------- 0970 0004 000c | | .DEBUG4 0x0004,0x000c,0x169d,0x0000,0x0001,0x0000 0976 0000 0000 | | .BLANK 0000[0x8a]