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