|
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: 13312 (0x3400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1e5cd8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 15c0 | | .CONST 0x15c0 ; 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 000c | | .CONST 0x000c ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0011 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 00e1 | | Load_Encached Boolean_Cache 0015 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0016 0092 0f0b | | Action Push_String_Extended,0xf0b ; "/usr/lib/alsycomp/cifo" 0018 0092 0f0c | | Action Push_String_Extended,0xf0c ; "/usr/lib/alsycomp/posix" 001a 0092 0f0d | | Action Push_String_Extended,0xf0d ; "!TARGETS.I386_UNIX_ALS_XT.TARGET_INTERFACE.CIFO" 001c 0092 0f0e | | Action Push_String_Extended,0xf0e ; "!TARGETS.I386_UNIX_ALS_XT.TARGET_INTERFACE.POSIX" 001e 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0020 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 0022 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0024 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call 0026 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 0028 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 002a 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 002c 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 002e 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 0030 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0033 00c7 | | Action Elaborate_Subprogram 0034 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 0036 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 0038 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0039 00c7 | | Action Elaborate_Subprogram 003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003b 00c7 | | Action Elaborate_Subprogram 003c 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call 003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003f 00c7 | | Action Elaborate_Subprogram 0040 BODY_0008: 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 008e | | .CONST 0x008e ; Address of begin 0049 00df | | .CONST 0x00df ; Address of exception handler 004a 0013 | | .CONST 0x0013 ; Number of locals 004b INIT_0048: 004b e001 | | Load 0x0,0x1 004c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 004d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 004e 02c7 | | Declare_Variable Any 004f 00d8 | | Load_Top At_Offset_0 0050 1c00 | | Execute_Immediate Run_Utility,0x0 0051 e002 | | Load 0x0,0x2 0052 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0053 02c7 | | Declare_Variable Any 0054 00d8 | | Load_Top At_Offset_0 0055 1c00 | | Execute_Immediate Run_Utility,0x0 0056 e5fc | | Load 0x2,-0x4 0057 e5fd | | Load 0x2,-0x3 0058 8003 | | Call 0x0,0x3 0059 00e1 | | Load_Encached Boolean_Cache 005a 00e1 | | Load_Encached Boolean_Cache 005b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 005c 00e1 | | Load_Encached Boolean_Cache 005d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 005e e004 | | Load 0x0,0x4 005f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0060 02c7 | | Declare_Variable Any 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 e004 | | Load 0x0,0x4 0064 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0065 02c7 | | Declare_Variable Any 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 e004 | | Load 0x0,0x4 0069 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006a 02c7 | | Declare_Variable Any 006b e004 | | Load 0x0,0x4 006c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006d a40a | | Store_Unchecked 0x2,0xa 006e e001 | | Load 0x0,0x1 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 0322 | " | Declare_Variable Record 0071 00d8 | | Load_Top At_Offset_0 0072 1c00 | | Execute_Immediate Run_Utility,0x0 0073 e001 | | Load 0x0,0x1 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 0322 | " | Declare_Variable Record 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 e001 | | Load 0x0,0x1 0079 1b13 | | Execute Package,Field_Read,Field_Number 0x13 007a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 007b 02c7 | | Declare_Variable Any 007c 00d8 | | Load_Top At_Offset_0 007d 1c00 | | Execute_Immediate Run_Utility,0x0 007e e001 | | Load 0x0,0x1 007f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0080 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0081 02c7 | | Declare_Variable Any 0082 00d8 | | Load_Top At_Offset_0 0083 1c00 | | Execute_Immediate Run_Utility,0x0 0084 029f 0a13 | | Declare_Subprogram INIT_0a10,For_Call 0086 029f 0a4b | K| Declare_Subprogram INIT_0a48,For_Call 0088 029f 0abb | | Declare_Subprogram INIT_0ab8,For_Call 008a 029f 0bf3 | | Declare_Subprogram INIT_0bf0,For_Call 008c 029f 0c23 | #| Declare_Subprogram INIT_0c20,For_Call 008e BODY_0048: 008e 00be | | Action Activate_Tasks 008f e005 | | Load 0x0,0x5 0090 7002 |p | Jump_Nonzero 0x93 0091 e5fb | | Load 0x2,-0x5 0092 681e |h | Jump_Zero 0xb1 0093 e006 | | Load 0x0,0x6 0094 180e | | Execute Package,Field_Execute,Field_Number 0xe 0095 4809 |H | Short_Literal 0x9 0096 0092 0f0f | | Action Push_String_Extended,0xf0f ; "#~Batch_Import_Units (How_Many =>" 0098 e5fe | | Load 0x2,-0x2 0099 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 009a 00e0 | | Load_Encached Standard_Cache 009b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009c 01cc | | Execute Vector,Catenate 009d 0092 0f10 | | Action Push_String_Extended,0xf10 ; ", Into_View" 009f 01cc | | Execute Vector,Catenate 00a0 e5fd | | Load 0x2,-0x3 00a1 e004 | | Load 0x0,0x4 00a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00a4 8007 | | Call 0x0,0x7 00a5 01cc | | Execute Vector,Catenate 00a6 0092 0f11 | | Action Push_String_Extended,0xf11 ; ", Remote_Directory" 00a8 01cc | | Execute Vector,Catenate 00a9 e5fc | | Load 0x2,-0x4 00aa 8007 | | Call 0x0,0x7 00ab 01cc | | Execute Vector,Catenate 00ac 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 00ae 01cc | | Execute Vector,Catenate 00af e008 | | Load 0x0,0x8 00b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b1 e404 | | Load 0x2,0x4 00b2 01db | | Execute Vector,Length 00b3 700d |p | Jump_Nonzero 0xc1 00b4 e5fa | | Load 0x2,-0x6 00b5 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 00b7 4802 |H | Short_Literal 0x2 00b8 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 00ba e5fc | | Load 0x2,-0x4 00bb 8009 | | Call 0x0,0x9 00bc 01cc | | Execute Vector,Catenate 00bd e00a | | Load 0x0,0xa 00be 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bf c5fa | | Store 0x2,-0x6 00c0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00c1 e402 | | Load 0x2,0x2 00c2 4802 |H | Short_Literal 0x2 00c3 e5fd | | Load 0x2,-0x3 00c4 e001 | | Load 0x0,0x1 00c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c6 e001 | | Load 0x0,0x1 00c7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c9 c402 | | Store 0x2,0x2 00ca 00cf | | Action Mark_Auxiliary 00cb e5fe | | Load 0x2,-0x2 00cc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00cd 01dc | | Execute Vector,Last 00ce 4801 |H | Short_Literal 0x1 00cf 0263 | c | Execute Discrete,Above_Bound 00d0 7003 |p | Jump_Nonzero 0xd4 00d1 8413 | | Call 0x2,0x13 00d2 00c8 | | Action Pop_Auxiliary_Range 00d3 3ffd |? | Loop_Increasing 0xd1 00d4 00ce | | Action Pop_Auxiliary 00d5 e406 | | Load 0x2,0x6 00d6 7004 |p | Jump_Nonzero 0xdb 00d7 0092 0f15 | | Action Push_String_Extended,0xf15 ; "quit" 00d9 e5ff | | Load 0x2,-0x1 00da 8217 | | Call 0x1,0x17 00db e402 | | Load 0x2,0x2 00dc 8412 | | Call 0x2,0x12 00dd c402 | | Store 0x2,0x2 00de 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00df TRAP_0048: 00df 0007 | | Action Break_Optional 00e0 e402 | | Load 0x2,0x2 00e1 8412 | | Call 0x2,0x12 00e2 c402 | | Store 0x2,0x2 00e3 e5fa | | Load 0x2,-0x6 00e4 0092 0f16 | | Action Push_String_Extended,0xf16 ; "Batch_Import_Units" 00e6 e00a | | Load 0x0,0xa 00e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e8 c5fa | | Store 0x2,-0x6 00e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0102 | | .CONST 0x0102 ; Address of begin 00f1 013d | = | .CONST 0x013d ; Address of exception handler 00f2 0005 | | .CONST 0x0005 ; Number of locals 00f3 INIT_00f0: 00f3 e001 | | Load 0x0,0x1 00f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f6 02c7 | | Declare_Variable Any 00f7 00d8 | | Load_Top At_Offset_0 00f8 1c00 | | Execute_Immediate Run_Utility,0x0 00f9 e004 | | Load 0x0,0x4 00fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fb 02c7 | | Declare_Variable Any 00fc 00d8 | | Load_Top At_Offset_0 00fd 1c00 | | Execute_Immediate Run_Utility,0x0 00fe 029f 0c63 | c| Declare_Subprogram INIT_0c60,For_Call 0100 029f 0c93 | | Declare_Subprogram INIT_0c90,For_Call 0102 BODY_00f0: 0102 00be | | Action Activate_Tasks 0103 e005 | | Load 0x0,0x5 0104 7002 |p | Jump_Nonzero 0x107 0105 e5fb | | Load 0x2,-0x5 0106 681e |h | Jump_Zero 0x125 0107 e006 | | Load 0x0,0x6 0108 180e | | Execute Package,Field_Execute,Field_Number 0xe 0109 4809 |H | Short_Literal 0x9 010a 0092 0f17 | | Action Push_String_Extended,0xf17 ; "#~Import_Units (How_Many =>" 010c e5ff | | Load 0x2,-0x1 010d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 010e 00e0 | | Load_Encached Standard_Cache 010f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0110 01cc | | Execute Vector,Catenate 0111 0092 0f10 | | Action Push_String_Extended,0xf10 ; ", Into_View" 0113 01cc | | Execute Vector,Catenate 0114 e5fe | | Load 0x2,-0x2 0115 e004 | | Load 0x0,0x4 0116 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0117 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0118 8007 | | Call 0x0,0x7 0119 01cc | | Execute Vector,Catenate 011a 0092 0f11 | | Action Push_String_Extended,0xf11 ; ", Remote_Directory" 011c 01cc | | Execute Vector,Catenate 011d e5fd | | Load 0x2,-0x3 011e 8007 | | Call 0x0,0x7 011f 01cc | | Execute Vector,Catenate 0120 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 0122 01cc | | Execute Vector,Catenate 0123 e008 | | Load 0x0,0x8 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 00db | | Load_Top At_Offset_3 0126 4802 |H | Short_Literal 0x2 0127 e5fe | | Load 0x2,-0x2 0128 e001 | | Load 0x0,0x1 0129 180e | | Execute Package,Field_Execute,Field_Number 0xe 012a e001 | | Load 0x0,0x1 012b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 012c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 012d c402 | | Store 0x2,0x2 012e 00cf | | Action Mark_Auxiliary 012f e5ff | | Load 0x2,-0x1 0130 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0131 01dc | | Execute Vector,Last 0132 4801 |H | Short_Literal 0x1 0133 0263 | c | Execute Discrete,Above_Bound 0134 7003 |p | Jump_Nonzero 0x138 0135 8405 | | Call 0x2,0x5 0136 00c8 | | Action Pop_Auxiliary_Range 0137 3ffd |? | Loop_Increasing 0x135 0138 00ce | | Action Pop_Auxiliary 0139 00db | | Load_Top At_Offset_3 013a 8404 | | Call 0x2,0x4 013b c402 | | Store 0x2,0x2 013c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 013d TRAP_00f0: 013d 0007 | | Action Break_Optional 013e e402 | | Load 0x2,0x2 013f 8404 | | Call 0x2,0x4 0140 c402 | | Store 0x2,0x2 0141 e5fa | | Load 0x2,-0x6 0142 0092 0f18 | | Action Push_String_Extended,0xf18 ; "Import_Units" 0144 e00a | | Load 0x0,0xa 0145 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0146 c5fa | | Store 0x2,-0x6 0147 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0175 | u | .CONST 0x0175 ; Address of begin 0149 01e8 | | .CONST 0x01e8 ; Address of exception handler 014a 000a | | .CONST 0x000a ; Number of locals 014b INIT_0148: 014b e006 | | Load 0x0,0x6 014c 180e | | Execute Package,Field_Execute,Field_Number 0xe 014d 00db | | Load_Top At_Offset_3 014e e00b | | Load 0x0,0xb 014f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0150 4801 |H | Short_Literal 0x1 0151 00d9 | | Load_Top At_Offset_1 0152 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0153 00da | | Load_Top At_Offset_2 0154 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0155 01cf | | Execute Vector,Slice_Read 0156 0007 | | Action Break_Optional 0157 00d8 | | Load_Top At_Offset_0 0158 e006 | | Load 0x0,0x6 0159 180e | | Execute Package,Field_Execute,Field_Number 0xe 015a e5ff | | Load 0x2,-0x1 015b e00c | | Load 0x0,0xc 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 015e 8003 | | Call 0x0,0x3 015f e004 | | Load 0x0,0x4 0160 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0161 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0162 02c7 | | Declare_Variable Any 0163 e5fe | | Load 0x2,-0x2 0164 a405 | | Store_Unchecked 0x2,0x5 0165 e004 | | Load 0x0,0x4 0166 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0167 02c7 | | Declare_Variable Any 0168 00d8 | | Load_Top At_Offset_0 0169 1c00 | | Execute_Immediate Run_Utility,0x0 016a e004 | | Load 0x0,0x4 016b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016c e00d | | Load 0x0,0xd 016d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016e 02c7 | | Declare_Variable Any 016f 00d8 | | Load_Top At_Offset_0 0170 1c00 | | Execute_Immediate Run_Utility,0x0 0171 00e1 | | Load_Encached Boolean_Cache 0172 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0173 029f 0cd3 | | Declare_Subprogram INIT_0cd0,For_Call 0175 BODY_0148: 0175 e005 | | Load 0x0,0x5 0176 7002 |p | Jump_Nonzero 0x179 0177 e5fc | | Load 0x2,-0x4 0178 6813 |h | Jump_Zero 0x18c 0179 e006 | | Load 0x0,0x6 017a 180e | | Execute Package,Field_Execute,Field_Number 0xe 017b 4809 |H | Short_Literal 0x9 017c 0092 0f19 | | Action Push_String_Extended,0xf19 ; "#~Perform_Remote_Import (Host_View" 017e e5ff | | Load 0x2,-0x1 017f 8007 | | Call 0x0,0x7 0180 01cc | | Execute Vector,Catenate 0181 0092 0f1a | | Action Push_String_Extended,0xf1a ; ", Remote_Machine" 0183 01cc | | Execute Vector,Catenate 0184 e5fd | | Load 0x2,-0x3 0185 8007 | | Call 0x0,0x7 0186 01cc | | Execute Vector,Catenate 0187 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 0189 01cc | | Execute Vector,Catenate 018a e008 | | Load 0x0,0x8 018b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018c e5fc | | Load 0x2,-0x4 018d e402 | | Load 0x2,0x2 018e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 018f 800e | | Call 0x0,0xe 0190 680c |h | Jump_Zero 0x19d 0191 e5fb | | Load 0x2,-0x5 0192 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0194 4802 |H | Short_Literal 0x2 0195 0092 0f1b | | Action Push_String_Extended,0xf1b ; "Can't get remote directory name for view " 0197 e5ff | | Load 0x2,-0x1 0198 01cc | | Execute Vector,Catenate 0199 e00a | | Load 0x0,0xa 019a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019b c5fb | | Store 0x2,-0x5 019c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 019d e404 | | Load 0x2,0x4 019e 01db | | Execute Vector,Length 019f 700d |p | Jump_Nonzero 0x1ad 01a0 e5fb | | Load 0x2,-0x5 01a1 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 01a3 4802 |H | Short_Literal 0x2 01a4 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 01a6 e403 | | Load 0x2,0x3 01a7 8009 | | Call 0x0,0x9 01a8 01cc | | Execute Vector,Catenate 01a9 e00a | | Load 0x0,0xa 01aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ab c5fb | | Store 0x2,-0x5 01ac 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01ad e405 | | Load 0x2,0x5 01ae e004 | | Load 0x0,0x4 01af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01b1 6801 |h | Jump_Zero 0x1b3 01b2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b3 e006 | | Load 0x0,0x6 01b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b5 4804 |H | Short_Literal 0x4 01b6 0092 0f1c | | Action Push_String_Extended,0xf1c ; "Executing Perform_Remote_Import" 01b8 e008 | | Load 0x0,0x8 01b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ba 00cf | | Action Mark_Auxiliary 01bb 7826 |x& | Jump 0x1e2 01bc e004 | | Load 0x0,0x4 01bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01be e406 | | Load 0x2,0x6 01bf 0120 | | Execute Any,Is_Value 01c0 6803 |h | Jump_Zero 0x1c4 01c1 e004 | | Load 0x0,0x4 01c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c3 7801 |x | Jump 0x1c5 01c4 e406 | | Load 0x2,0x6 01c5 e405 | | Load 0x2,0x5 01c6 e004 | | Load 0x0,0x4 01c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01c8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01c9 c406 | | Store 0x2,0x6 01ca c407 | | Store 0x2,0x7 01cb e407 | | Load 0x2,0x7 01cc 680e |h | Jump_Zero 0x1db 01cd e006 | | Load 0x0,0x6 01ce 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cf 4806 |H | Short_Literal 0x6 01d0 0092 0f1d | | Action Push_String_Extended,0xf1d ; "Can't get imported view from iterator. Error Status = " 01d2 e407 | | Load 0x2,0x7 01d3 e004 | | Load 0x0,0x4 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 011c | | Execute Any,Convert_Unchecked 01d6 1c01 | | Execute_Immediate Run_Utility,0x1 01d7 01cc | | Execute Vector,Catenate 01d8 e008 | | Load 0x0,0x8 01d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01da 7801 |x | Jump 0x1dc 01db 840a | | Call 0x2,0xa 01dc e405 | | Load 0x2,0x5 01dd e004 | | Load 0x0,0x4 01de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01df 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01e0 c405 | | Store 0x2,0x5 01e1 00c9 | | Action Pop_Auxiliary_Loop 01e2 e405 | | Load 0x2,0x5 01e3 e004 | | Load 0x0,0x4 01e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01e6 6fd5 |o | Jump_Zero 0x1bc 01e7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01e8 TRAP_0148: 01e8 0007 | | Action Break_Optional 01e9 e5fb | | Load 0x2,-0x5 01ea 0092 0f1e | | Action Push_String_Extended,0xf1e ; "Perform_Remote_Import" 01ec e00a | | Load 0x0,0xa 01ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ee c5fb | | Store 0x2,-0x5 01ef 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 0222 | " | .CONST 0x0222 ; Address of begin 01f1 0310 | | .CONST 0x0310 ; Address of exception handler 01f2 000b | | .CONST 0x000b ; Number of locals 01f3 INIT_01f0: 01f3 e004 | | Load 0x0,0x4 01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f5 02c7 | | Declare_Variable Any 01f6 e006 | | Load 0x0,0x6 01f7 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f8 e5fe | | Load 0x2,-0x2 01f9 e00c | | Load 0x0,0xc 01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01fc a402 | | Store_Unchecked 0x2,0x2 01fd e5fc | | Load 0x2,-0x4 01fe 00d9 | | Load_Top At_Offset_1 01ff 8003 | | Call 0x0,0x3 0200 e5ff | | Load 0x2,-0x1 0201 e004 | | Load 0x0,0x4 0202 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0203 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0204 00d8 | | Load_Top At_Offset_0 0205 e004 | | Load 0x0,0x4 0206 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0207 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0208 e004 | | Load 0x0,0x4 0209 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 020a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 020b e00f | | Load 0x0,0xf 020c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020d 00da | | Load_Top At_Offset_2 020e 0092 0f1f | | Action Push_String_Extended,0xf1f ; "/imports" 0210 01cc | | Execute Vector,Catenate 0211 0007 | | Action Break_Optional 0212 00d8 | | Load_Top At_Offset_0 0213 0092 0f20 | | Action Push_String_Extended,0xf20 ; "/" 0215 01cc | | Execute Vector,Catenate 0216 00da | | Load_Top At_Offset_2 0217 01cc | | Execute Vector,Catenate 0218 0007 | | Action Break_Optional 0219 00e1 | | Load_Encached Boolean_Cache 021a e00d | | Load 0x0,0xd 021b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021c 02c7 | | Declare_Variable Any 021d e5fb | | Load 0x2,-0x5 021e a409 | | Store_Unchecked 0x2,0x9 021f 00e1 | | Load_Encached Boolean_Cache 0220 029f 0d63 | c| Declare_Subprogram INIT_0d60,For_Call 0222 BODY_01f0: 0222 e005 | | Load 0x0,0x5 0223 7002 |p | Jump_Nonzero 0x226 0224 e5f9 | | Load 0x2,-0x7 0225 6827 |h' | Jump_Zero 0x24d 0226 e006 | | Load 0x0,0x6 0227 180e | | Execute Package,Field_Execute,Field_Number 0xe 0228 4809 |H | Short_Literal 0x9 0229 0092 0f21 | !| Action Push_String_Extended,0xf21 ; "#~Remove_Remote_Import (View_To_Remove" 022b e404 | | Load 0x2,0x4 022c 8007 | | Call 0x0,0x7 022d 01cc | | Execute Vector,Catenate 022e 0092 0f22 | "| Action Push_String_Extended,0xf22 ; ", From_View" 0230 01cc | | Execute Vector,Catenate 0231 e5fe | | Load 0x2,-0x2 0232 8007 | | Call 0x0,0x7 0233 01cc | | Execute Vector,Catenate 0234 0092 0f1a | | Action Push_String_Extended,0xf1a ; ", Remote_Machine" 0236 01cc | | Execute Vector,Catenate 0237 e5fd | | Load 0x2,-0x3 0238 8007 | | Call 0x0,0x7 0239 01cc | | Execute Vector,Catenate 023a 0092 0f11 | | Action Push_String_Extended,0xf11 ; ", Remote_Directory" 023c 01cc | | Execute Vector,Catenate 023d e5fc | | Load 0x2,-0x4 023e 8007 | | Call 0x0,0x7 023f 01cc | | Execute Vector,Catenate 0240 0092 0f23 | #| Action Push_String_Extended,0xf23 ; ", Destroying_Library => " 0242 01cc | | Execute Vector,Catenate 0243 e5fa | | Load 0x2,-0x6 0244 00e1 | | Load_Encached Boolean_Cache 0245 011c | | Execute Any,Convert_Unchecked 0246 1c01 | | Execute_Immediate Run_Utility,0x1 0247 01cc | | Execute Vector,Catenate 0248 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 024a 01cc | | Execute Vector,Catenate 024b e008 | | Load 0x0,0x8 024c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024d e403 | | Load 0x2,0x3 024e 01db | | Execute Vector,Length 024f 700d |p | Jump_Nonzero 0x25d 0250 e5f8 | | Load 0x2,-0x8 0251 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0253 4802 |H | Short_Literal 0x2 0254 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 0256 e5fc | | Load 0x2,-0x4 0257 8009 | | Call 0x0,0x9 0258 01cc | | Execute Vector,Catenate 0259 e00a | | Load 0x0,0xa 025a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 025b c5f8 | | Store 0x2,-0x8 025c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 025d e006 | | Load 0x0,0x6 025e 180e | | Execute Package,Field_Execute,Field_Number 0xe 025f 4804 |H | Short_Literal 0x4 0260 0092 0f24 | $| Action Push_String_Extended,0xf24 ; "Executing Remove_Remote_Import" 0262 e008 | | Load 0x0,0x8 0263 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0264 e5fa | | Load 0x2,-0x6 0265 7028 |p( | Jump_Nonzero 0x28e 0266 e5f8 | | Load 0x2,-0x8 0267 00db | | Load_Top At_Offset_3 0268 0120 | | Execute Any,Is_Value 0269 6803 |h | Jump_Zero 0x26d 026a e00d | | Load 0x0,0xd 026b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026c 7801 |x | Jump 0x26e 026d 00db | | Load_Top At_Offset_3 026e e005 | | Load 0x0,0x5 026f 7002 |p | Jump_Nonzero 0x272 0270 e5f9 | | Load 0x2,-0x7 0271 7801 |x | Jump 0x273 0272 4801 |H | Short_Literal 0x1 0273 e010 | | Load 0x0,0x10 0274 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0275 e010 | | Load 0x0,0x10 0276 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0277 e5fd | | Load 0x2,-0x3 0278 0092 0f25 | %| Action Push_String_Extended,0xf25 ; "I386_Unix_Als_Xt" 027a e00d | | Load 0x0,0xd 027b 180f | | Execute Package,Field_Execute,Field_Number 0xf 027c c409 | | Store 0x2,0x9 027d c5f8 | | Store 0x2,-0x8 027e e5f9 | | Load 0x2,-0x7 027f e5f8 | | Load 0x2,-0x8 0280 800e | | Call 0x0,0xe 0281 680c |h | Jump_Zero 0x28e 0282 e5f8 | | Load 0x2,-0x8 0283 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0285 4802 |H | Short_Literal 0x2 0286 0092 0f26 | &| Action Push_String_Extended,0xf26 ; "Can't acquire a connection to " 0288 e5fd | | Load 0x2,-0x3 0289 01cc | | Execute Vector,Catenate 028a e00a | | Load 0x0,0xa 028b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 028c c5f8 | | Store 0x2,-0x8 028d 4508 |E | Exit_Suprogram New_Top_Offset 0x8 028e 4801 |H | Short_Literal 0x1 028f e5ff | | Load 0x2,-0x1 0290 8011 | | Call 0x0,0x11 0291 e403 | | Load 0x2,0x3 0292 e00f | | Load 0x0,0xf 0293 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0294 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0295 e5f8 | | Load 0x2,-0x8 0296 e5f9 | | Load 0x2,-0x7 0297 e409 | | Load 0x2,0x9 0298 e5fc | | Load 0x2,-0x4 0299 e402 | | Load 0x2,0x2 029a e5ff | | Load 0x2,-0x1 029b 8222 | " | Call 0x1,0x22 029c c5f8 | | Store 0x2,-0x8 029d e5f9 | | Load 0x2,-0x7 029e e5f8 | | Load 0x2,-0x8 029f 800e | | Call 0x0,0xe 02a0 680a |h | Jump_Zero 0x2ab 02a1 e5f8 | | Load 0x2,-0x8 02a2 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 02a4 4802 |H | Short_Literal 0x2 02a5 0092 0f27 | '| Action Push_String_Extended,0xf27 ; "Can't remove the imported units" 02a7 e00a | | Load 0x0,0xa 02a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02a9 c5f8 | | Store 0x2,-0x8 02aa 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02ab 00d9 | | Load_Top At_Offset_1 02ac 6801 |h | Jump_Zero 0x2ae 02ad 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02ae 00e1 | | Load_Encached Boolean_Cache 02af e5f8 | | Load 0x2,-0x8 02b0 e5f9 | | Load 0x2,-0x7 02b1 e409 | | Load 0x2,0x9 02b2 e407 | | Load 0x2,0x7 02b3 8012 | | Call 0x0,0x12 02b4 c5f8 | | Store 0x2,-0x8 02b5 c408 | | Store 0x2,0x8 02b6 4802 |H | Short_Literal 0x2 02b7 e5f8 | | Load 0x2,-0x8 02b8 e013 | | Load 0x0,0x13 02b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02ba 6801 |h | Jump_Zero 0x2bc 02bb 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02bc 00db | | Load_Top At_Offset_3 02bd 6843 |hC | Jump_Zero 0x301 02be e5fa | | Load 0x2,-0x6 02bf 6801 |h | Jump_Zero 0x2c1 02c0 7801 |x | Jump 0x2c2 02c1 840b | | Call 0x2,0xb 02c2 e006 | | Load 0x0,0x6 02c3 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c4 4802 |H | Short_Literal 0x2 02c5 0092 0f28 | (| Action Push_String_Extended,0xf28 ; "Removing imported library, which was copied from another family" 02c7 e008 | | Load 0x0,0x8 02c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c9 e006 | | Load 0x0,0x6 02ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cb 4804 |H | Short_Literal 0x4 02cc 0092 0f29 | )| Action Push_String_Extended,0xf29 ; "Erasing copied remote library " 02ce e407 | | Load 0x2,0x7 02cf 8009 | | Call 0x0,0x9 02d0 01cc | | Execute Vector,Catenate 02d1 e008 | | Load 0x0,0x8 02d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d3 e5f8 | | Load 0x2,-0x8 02d4 e5f9 | | Load 0x2,-0x7 02d5 e409 | | Load 0x2,0x9 02d6 0092 0f2a | *| Action Push_String_Extended,0xf2a ; "ada lib_manager\x5c(" 02d8 e403 | | Load 0x2,0x3 02d9 01cc | | Execute Vector,Catenate 02da 0092 0f2b | +| Action Push_String_Extended,0xf2b ; "\x5c).erase libraries=" 02dc 01cc | | Execute Vector,Catenate 02dd e407 | | Load 0x2,0x7 02de 01cc | | Execute Vector,Catenate 02df 0092 0f2c | ,| Action Push_String_Extended,0xf2c ; " confirm=no" 02e1 01cc | | Execute Vector,Catenate 02e2 8014 | | Call 0x0,0x14 02e3 c5f8 | | Store 0x2,-0x8 02e4 e5f9 | | Load 0x2,-0x7 02e5 e5f8 | | Load 0x2,-0x8 02e6 800e | | Call 0x0,0xe 02e7 6812 |h | Jump_Zero 0x2fa 02e8 e006 | | Load 0x0,0x6 02e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ea 4807 |H | Short_Literal 0x7 02eb 0092 0f2d | -| Action Push_String_Extended,0xf2d ; "Can't remove copied library " 02ed e407 | | Load 0x2,0x7 02ee 8009 | | Call 0x0,0x9 02ef 01cc | | Execute Vector,Catenate 02f0 0092 0f2e | .| Action Push_String_Extended,0xf2e ; ". " 02f2 01cc | | Execute Vector,Catenate 02f3 e5f8 | | Load 0x2,-0x8 02f4 e013 | | Load 0x0,0x13 02f5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02f6 01cc | | Execute Vector,Catenate 02f7 e008 | | Load 0x0,0x8 02f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f9 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02fa e5f8 | | Load 0x2,-0x8 02fb e5f9 | | Load 0x2,-0x7 02fc e409 | | Load 0x2,0x9 02fd e5fc | | Load 0x2,-0x4 02fe 8219 | | Call 0x1,0x19 02ff c5f8 | | Store 0x2,-0x8 0300 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0301 e006 | | Load 0x0,0x6 0302 180e | | Execute Package,Field_Execute,Field_Number 0xe 0303 4806 |H | Short_Literal 0x6 0304 e404 | | Load 0x2,0x4 0305 0092 0f2f | /| Action Push_String_Extended,0xf2f ; " isn't remotely imported into " 0307 01cc | | Execute Vector,Catenate 0308 e5fe | | Load 0x2,-0x2 0309 01cc | | Execute Vector,Catenate 030a 0092 0f30 | 0| Action Push_String_Extended,0xf30 ; ", so it can't be removed as an import" 030c 01cc | | Execute Vector,Catenate 030d e008 | | Load 0x0,0x8 030e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030f 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0310 TRAP_01f0: 0310 0007 | | Action Break_Optional 0311 e5f8 | | Load 0x2,-0x8 0312 0092 0f31 | 1| Action Push_String_Extended,0xf31 ; "Remove_Remote_Import" 0314 e00a | | Load 0x0,0xa 0315 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0316 c5f8 | | Store 0x2,-0x8 0317 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b e005 | | Load 0x0,0x5 031c 680b |h | Jump_Zero 0x328 031d 00da | | Load_Top At_Offset_2 031e 0092 0f32 | 2| Action Push_String_Extended,0xf32 ; "list" 0320 01df | | Execute Vector,Equal 0321 6803 |h | Jump_Zero 0x325 0322 0092 0f33 | 3| Action Push_String_Extended,0xf33 ; " detail=brief" 0324 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0325 0092 0f34 | 4| Action Push_String_Extended,0xf34 ; " detail=full" 0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0328 0092 0f33 | 3| Action Push_String_Extended,0xf33 ; " detail=brief" 032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e005 | | Load 0x0,0x5 0334 680c |h | Jump_Zero 0x341 0335 e006 | | Load 0x0,0x6 0336 180e | | Execute Package,Field_Execute,Field_Number 0xe 0337 480a |H | Short_Literal 0xa 0338 0092 0f35 | 5| Action Push_String_Extended,0xf35 ; "#~Batch file <= \x22" 033a e5fe | | Load 0x2,-0x2 033b 01cc | | Execute Vector,Catenate 033c 0092 0f36 | 6| Action Push_String_Extended,0xf36 ; "\x22" 033e 01cc | | Execute Vector,Catenate 033f e008 | | Load 0x0,0x8 0340 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0341 00db | | Load_Top At_Offset_3 0342 00db | | Load_Top At_Offset_3 0343 e015 | | Load 0x0,0x15 0344 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0345 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0346 0000 0000 | | .XXX[0x2] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034e | N | .CONST 0x034e ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0003 | | .CONST 0x0003 ; Number of locals 034b INIT_0348: 034b 00e1 | | Load_Encached Boolean_Cache 034c e004 | | Load 0x0,0x4 034d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 034e BODY_0348: 034e e004 | | Load 0x0,0x4 034f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0350 00e1 | | Load_Encached Boolean_Cache 0351 600e |` | Indirect_Literal Discrete,0x360,{0x00000000, 0x00004000} 0352 e016 | | Load 0x0,0x16 0353 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0354 e5ff | | Load 0x2,-0x1 0355 e004 | | Load 0x0,0x4 0356 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0357 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0358 005b | [ | Store_Top Discrete,At_Offset_3 0359 0059 | Y | Store_Top Discrete,At_Offset_1 035a 00d8 | | Load_Top At_Offset_0 035b 6802 |h | Jump_Zero 0x35e 035c 4800 |H | Short_Literal 0x0 035d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035e 00d9 | | Load_Top At_Offset_1 035f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0360 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0364 0000 0000 | | .BLANK 0000[0x4] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b e005 | | Load 0x0,0x5 036c 681f |h | Jump_Zero 0x38c 036d e211 | | Load 0x1,0x11 036e 681d |h | Jump_Zero 0x38c 036f e5fc | | Load 0x2,-0x4 0370 e5fd | | Load 0x2,-0x3 0371 e5fe | | Load 0x2,-0x2 0372 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "ada unit_manager\x5c(" 0374 e5ff | | Load 0x2,-0x1 0375 01cc | | Execute Vector,Catenate 0376 0092 0f38 | 8| Action Push_String_Extended,0xf38 ; "/adalib,read\x5c).list units=* link=yes" 0378 01cc | | Execute Vector,Catenate 0379 0092 0f32 | 2| Action Push_String_Extended,0xf32 ; "list" 037b 8216 | | Call 0x1,0x16 037c 01cc | | Execute Vector,Catenate 037d 8014 | | Call 0x0,0x14 037e c5fc | | Store 0x2,-0x4 037f e5fd | | Load 0x2,-0x3 0380 e5fc | | Load 0x2,-0x4 0381 800e | | Call 0x0,0xe 0382 6809 |h | Jump_Zero 0x38c 0383 e5fc | | Load 0x2,-0x4 0384 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0386 4802 |H | Short_Literal 0x2 0387 0092 0f39 | 9| Action Push_String_Extended,0xf39 ; "Can't list the units" 0389 e00a | | Load 0x0,0xa 038a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 038b c5fc | | Store 0x2,-0x4 038c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 038d 0000 0000 | | .XXX[0x3] 038f 0000 | | 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 039b | | .CONST 0x039b ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 e004 | | Load 0x0,0x4 0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0395 e004 | | Load 0x0,0x4 0396 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0397 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0398 02c7 | | Declare_Variable Any 0399 00d8 | | Load_Top At_Offset_0 039a 1c00 | | Execute_Immediate Run_Utility,0x0 039b BODY_0390: 039b e004 | | Load 0x0,0x4 039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039d 00d9 | | Load_Top At_Offset_1 039e 0120 | | Execute Any,Is_Value 039f 6804 |h | Jump_Zero 0x3a4 03a0 e004 | | Load 0x0,0x4 03a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03a3 7801 |x | Jump 0x3a5 03a4 00d9 | | Load_Top At_Offset_1 03a5 604e |`N | Indirect_Literal Discrete,0x3f4,{0x00000000, 0x00004000} 03a6 e016 | | Load 0x0,0x16 03a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a8 4800 |H | Short_Literal 0x0 03a9 e5ff | | Load 0x2,-0x1 03aa e004 | | Load 0x0,0x4 03ab 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ad c403 | | Store 0x2,0x3 03ae 005a | Z | Store_Top Discrete,At_Offset_2 03af 00d9 | | Load_Top At_Offset_1 03b0 6818 |h | Jump_Zero 0x3c9 03b1 e5fd | | Load 0x2,-0x3 03b2 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 03b4 4802 |H | Short_Literal 0x2 03b5 0092 0f3a | :| Action Push_String_Extended,0xf3a ; "Can't get default context for " 03b7 e5ff | | Load 0x2,-0x1 03b8 e004 | | Load 0x0,0x4 03b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03ba 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03bb 01cc | | Execute Vector,Catenate 03bc 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; ". Error Status = " 03be 01cc | | Execute Vector,Catenate 03bf e402 | | Load 0x2,0x2 03c0 e004 | | Load 0x0,0x4 03c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c2 011c | | Execute Any,Convert_Unchecked 03c3 1c01 | | Execute_Immediate Run_Utility,0x1 03c4 01cc | | Execute Vector,Catenate 03c5 e00a | | Load 0x0,0xa 03c6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03c7 c5fd | | Store 0x2,-0x3 03c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c9 e017 | | Load 0x0,0x17 03ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03cb e004 | | Load 0x0,0x4 03cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03ce c5fe | | Store 0x2,-0x2 03cf e004 | | Load 0x0,0x4 03d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d1 e017 | | Load 0x0,0x17 03d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03d3 00da | | Load_Top At_Offset_2 03d4 e004 | | Load 0x0,0x4 03d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03d7 005a | Z | Store_Top Discrete,At_Offset_2 03d8 00d9 | | Load_Top At_Offset_1 03d9 6818 |h | Jump_Zero 0x3f2 03da e5fd | | Load 0x2,-0x3 03db 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 03dd 4802 |H | Short_Literal 0x2 03de 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "Can't set default context to " 03e0 e5ff | | Load 0x2,-0x1 03e1 e004 | | Load 0x0,0x4 03e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03e3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03e4 01cc | | Execute Vector,Catenate 03e5 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; ". Error Status = " 03e7 01cc | | Execute Vector,Catenate 03e8 e402 | | Load 0x2,0x2 03e9 e004 | | Load 0x0,0x4 03ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03eb 011c | | Execute Any,Convert_Unchecked 03ec 1c01 | | Execute_Immediate Run_Utility,0x1 03ed 01cc | | Execute Vector,Catenate 03ee e00a | | Load 0x0,0xa 03ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03f0 c5fd | | Store 0x2,-0x3 03f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f3 0000 | | .XXX[0x1] 03f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fd | | .CONST 0x03fd ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e004 | | Load 0x0,0x4 03fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fd BODY_03f8: 03fd e004 | | Load 0x0,0x4 03fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ff e017 | | Load 0x0,0x17 0400 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0401 e5ff | | Load 0x2,-0x1 0402 e004 | | Load 0x0,0x4 0403 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0404 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0405 0059 | Y | Store_Top Discrete,At_Offset_1 0406 00d8 | | Load_Top At_Offset_0 0407 680d |h | Jump_Zero 0x415 0408 e006 | | Load 0x0,0x6 0409 180e | | Execute Package,Field_Execute,Field_Number 0xe 040a 4805 |H | Short_Literal 0x5 040b 0092 0f3d | =| Action Push_String_Extended,0xf3d ; "Can't restore default context. Error Status = " 040d 00db | | Load_Top At_Offset_3 040e e004 | | Load 0x0,0x4 040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0410 011c | | Execute Any,Convert_Unchecked 0411 1c01 | | Execute_Immediate Run_Utility,0x1 0412 01cc | | Execute Vector,Catenate 0413 e008 | | Load 0x0,0x8 0414 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0415 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0416 0000 0000 | | .XXX[0x2] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 042f | / | .CONST 0x042f ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0005 | | .CONST 0x0005 ; Number of locals 041b INIT_0418: 041b e004 | | Load 0x0,0x4 041c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 041d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 041e 02c7 | | Declare_Variable Any 041f 00d8 | | Load_Top At_Offset_0 0420 1c00 | | Execute_Immediate Run_Utility,0x0 0421 e013 | | Load 0x0,0x13 0422 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0423 02c7 | | Declare_Variable Any 0424 00d8 | | Load_Top At_Offset_0 0425 1c00 | | Execute_Immediate Run_Utility,0x0 0426 e004 | | Load 0x0,0x4 0427 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0428 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0429 02c7 | | Declare_Variable Any 042a 00d8 | | Load_Top At_Offset_0 042b 1c00 | | Execute_Immediate Run_Utility,0x0 042c e004 | | Load 0x0,0x4 042d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 042e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042f BODY_0418: 042f 00da | | Load_Top At_Offset_2 0430 00da | | Load_Top At_Offset_2 0431 e5ff | | Load 0x2,-0x1 0432 821a | | Call 0x1,0x1a 0433 c404 | | Store 0x2,0x4 0434 c403 | | Store 0x2,0x3 0435 4802 |H | Short_Literal 0x2 0436 00db | | Load_Top At_Offset_3 0437 e013 | | Load 0x0,0x13 0438 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0439 680f |h | Jump_Zero 0x449 043a e006 | | Load 0x0,0x6 043b 180e | | Execute Package,Field_Execute,Field_Number 0xe 043c 4805 |H | Short_Literal 0x5 043d 0092 0f3e | >| Action Push_String_Extended,0xf3e ; "#~" 043f e403 | | Load 0x2,0x3 0440 e013 | | Load 0x0,0x13 0441 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0442 01cc | | Execute Vector,Catenate 0443 e008 | | Load 0x0,0x8 0444 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0445 e004 | | Load 0x0,0x4 0446 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0447 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0448 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0449 e004 | | Load 0x0,0x4 044a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 044b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 044c e402 | | Load 0x2,0x2 044d 0120 | | Execute Any,Is_Value 044e 6804 |h | Jump_Zero 0x453 044f e004 | | Load 0x0,0x4 0450 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0451 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0452 7801 |x | Jump 0x454 0453 e402 | | Load 0x2,0x2 0454 602b |`+ | Indirect_Literal Discrete,0x480,{0x00000000, 0x00004000} 0455 e016 | | Load 0x0,0x16 0456 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0457 e017 | | Load 0x0,0x17 0458 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0459 e018 | | Load 0x0,0x18 045a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 045b 4801 |H | Short_Literal 0x1 045c 4800 |H | Short_Literal 0x0 045d e017 | | Load 0x0,0x17 045e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 045f e004 | | Load 0x0,0x4 0460 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0461 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0462 0092 0f3f | ?| Action Push_String_Extended,0xf3f ; "_" 0464 e5ff | | Load 0x2,-0x1 0465 e004 | | Load 0x0,0x4 0466 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0467 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0468 01cc | | Execute Vector,Catenate 0469 0092 0f40 | @| Action Push_String_Extended,0xf40 ; ".State.Exports" 046b 01cc | | Execute Vector,Catenate 046c e004 | | Load 0x0,0x4 046d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 046e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 046f c402 | | Store 0x2,0x2 0470 0059 | Y | Store_Top Discrete,At_Offset_1 0471 00d8 | | Load_Top At_Offset_0 0472 6806 |h | Jump_Zero 0x479 0473 00d9 | | Load_Top At_Offset_1 0474 821b | | Call 0x1,0x1b 0475 e004 | | Load 0x0,0x4 0476 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0477 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0478 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0479 00d9 | | Load_Top At_Offset_1 047a 821b | | Call 0x1,0x1b 047b 00db | | Load_Top At_Offset_3 047c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047d 0000 0000 | | .XXX[0x3] 047f 0000 | | 0480 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 04a0 | | .CONST 0x04a0 ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0005 | | .CONST 0x0005 ; Number of locals 048b INIT_0488: 048b e004 | | Load 0x0,0x4 048c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 048d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 048e 02c7 | | Declare_Variable Any 048f e006 | | Load 0x0,0x6 0490 180e | | Execute Package,Field_Execute,Field_Number 0xe 0491 e5ff | | Load 0x2,-0x1 0492 e00c | | Load 0x0,0xc 0493 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0494 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0495 821c | | Call 0x1,0x1c 0496 a402 | | Store_Unchecked 0x2,0x2 0497 e004 | | Load 0x0,0x4 0498 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0499 02c7 | | Declare_Variable Any 049a 00d8 | | Load_Top At_Offset_0 049b 1c00 | | Execute_Immediate Run_Utility,0x0 049c e004 | | Load 0x0,0x4 049d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049e 029f 0dab | | Declare_Subprogram INIT_0da8,For_Call 04a0 BODY_0488: 04a0 00cf | | Action Mark_Auxiliary 04a1 7818 |x | Jump 0x4ba 04a2 e004 | | Load 0x0,0x4 04a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a4 e403 | | Load 0x2,0x3 04a5 0120 | | Execute Any,Is_Value 04a6 6803 |h | Jump_Zero 0x4aa 04a7 e004 | | Load 0x0,0x4 04a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a9 7801 |x | Jump 0x4ab 04aa e403 | | Load 0x2,0x3 04ab e402 | | Load 0x2,0x2 04ac e004 | | Load 0x0,0x4 04ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ae 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 04af c403 | | Store 0x2,0x3 04b0 005b | [ | Store_Top Discrete,At_Offset_3 04b1 00da | | Load_Top At_Offset_2 04b2 7001 |p | Jump_Nonzero 0x4b4 04b3 8405 | | Call 0x2,0x5 04b4 e402 | | Load 0x2,0x2 04b5 e004 | | Load 0x0,0x4 04b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04b8 c402 | | Store 0x2,0x2 04b9 00c9 | | Action Pop_Auxiliary_Loop 04ba e402 | | Load 0x2,0x2 04bb e004 | | Load 0x0,0x4 04bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04bd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04be 6fe3 |o | Jump_Zero 0x4a2 04bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04cd | | .CONST 0x04cd ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0003 | | .CONST 0x0003 ; Number of locals 04c3 INIT_04c0: 04c3 0092 0f41 | A| Action Push_String_Extended,0xf41 ; "test -d " 04c5 00db | | Load_Top At_Offset_3 04c6 01cc | | Execute Vector,Catenate 04c7 0007 | | Action Break_Optional 04c8 e013 | | Load 0x0,0x13 04c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04ca 02c7 | | Declare_Variable Any 04cb 00d8 | | Load_Top At_Offset_0 04cc 1c00 | | Execute_Immediate Run_Utility,0x0 04cd BODY_04c0: 04cd 00d8 | | Load_Top At_Offset_0 04ce e5fd | | Load 0x2,-0x3 04cf e5fe | | Load 0x2,-0x2 04d0 e402 | | Load 0x2,0x2 04d1 8014 | | Call 0x0,0x14 04d2 c403 | | Store 0x2,0x3 04d3 4802 |H | Short_Literal 0x2 04d4 00d9 | | Load_Top At_Offset_1 04d5 e013 | | Load 0x0,0x13 04d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04d7 6820 |h | Jump_Zero 0x4f8 04d8 e005 | | Load 0x0,0x5 04d9 680b |h | Jump_Zero 0x4e5 04da e006 | | Load 0x0,0x6 04db 180e | | Execute Package,Field_Execute,Field_Number 0xe 04dc 4802 |H | Short_Literal 0x2 04dd 0092 0f3e | >| Action Push_String_Extended,0xf3e ; "#~" 04df 00db | | Load_Top At_Offset_3 04e0 e013 | | Load 0x0,0x13 04e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04e2 01cc | | Execute Vector,Catenate 04e3 e008 | | Load 0x0,0x8 04e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04e5 e005 | | Load 0x0,0x5 04e6 7002 |p | Jump_Nonzero 0x4e9 04e7 e5fd | | Load 0x2,-0x3 04e8 680d |h | Jump_Zero 0x4f6 04e9 e006 | | Load 0x0,0x6 04ea 180e | | Execute Package,Field_Execute,Field_Number 0xe 04eb 4802 |H | Short_Literal 0x2 04ec 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "#~The remote directory " 04ee e5ff | | Load 0x2,-0x1 04ef 8009 | | Call 0x0,0x9 04f0 01cc | | Execute Vector,Catenate 04f1 0092 0f43 | C| Action Push_String_Extended,0xf43 ; " does not exist" 04f3 01cc | | Execute Vector,Catenate 04f4 e008 | | Load 0x0,0x8 04f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04f6 4800 |H | Short_Literal 0x0 04f7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04f8 e005 | | Load 0x0,0x5 04f9 7002 |p | Jump_Nonzero 0x4fc 04fa e5fd | | Load 0x2,-0x3 04fb 680d |h | Jump_Zero 0x509 04fc e006 | | Load 0x0,0x6 04fd 180e | | Execute Package,Field_Execute,Field_Number 0xe 04fe 4802 |H | Short_Literal 0x2 04ff 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "#~The remote directory " 0501 e5ff | | Load 0x2,-0x1 0502 8009 | | Call 0x0,0x9 0503 01cc | | Execute Vector,Catenate 0504 0092 0f44 | D| Action Push_String_Extended,0xf44 ; " exists" 0506 01cc | | Execute Vector,Catenate 0507 e008 | | Load 0x0,0x8 0508 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0509 4801 |H | Short_Literal 0x1 050a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 050b 0000 0000 | | .BLANK 0000[0x5] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 054d | M | .CONST 0x054d ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 000c | | .CONST 0x000c ; Number of locals 0513 INIT_0510: 0513 e5fd | | Load 0x2,-0x3 0514 e006 | | Load 0x0,0x6 0515 180e | | Execute Package,Field_Execute,Field_Number 0xe 0516 e5fe | | Load 0x2,-0x2 0517 e00c | | Load 0x0,0xc 0518 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0519 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 051a 8003 | | Call 0x0,0x3 051b e004 | | Load 0x0,0x4 051c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 051d 02c7 | | Declare_Variable Any 051e e006 | | Load 0x0,0x6 051f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0520 e5ff | | Load 0x2,-0x1 0521 e00c | | Load 0x0,0xc 0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0523 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0524 a403 | | Store_Unchecked 0x2,0x3 0525 e006 | | Load 0x0,0x6 0526 180e | | Execute Package,Field_Execute,Field_Number 0xe 0527 e5ff | | Load 0x2,-0x1 0528 e00b | | Load 0x0,0xb 0529 1814 | | Execute Package,Field_Execute,Field_Number 0x14 052a 4801 |H | Short_Literal 0x1 052b 00d9 | | Load_Top At_Offset_1 052c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 052d 00da | | Load_Top At_Offset_2 052e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 052f 01cf | | Execute Vector,Slice_Read 0530 e00f | | Load 0x0,0xf 0531 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0532 00d8 | | Load_Top At_Offset_0 0533 00db | | Load_Top At_Offset_3 0534 8003 | | Call 0x0,0x3 0535 e5ff | | Load 0x2,-0x1 0536 e004 | | Load 0x0,0x4 0537 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0538 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0539 e004 | | Load 0x0,0x4 053a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 053b 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 053c e00f | | Load 0x0,0xf 053d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 053e 00da | | Load_Top At_Offset_2 053f 0092 0f45 | E| Action Push_String_Extended,0xf45 ; "/adalib/export.set" 0541 01cc | | Execute Vector,Catenate 0542 0007 | | Action Break_Optional 0543 e402 | | Load 0x2,0x2 0544 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "/imports/" 0546 01cc | | Execute Vector,Catenate 0547 00da | | Load_Top At_Offset_2 0548 01cc | | Execute Vector,Catenate 0549 0007 | | Action Break_Optional 054a 00e1 | | Load_Encached Boolean_Cache 054b 00e1 | | Load_Encached Boolean_Cache 054c 00e1 | | Load_Encached Boolean_Cache 054d BODY_0510: 054d e005 | | Load 0x0,0x5 054e 7002 |p | Jump_Nonzero 0x551 054f e5fb | | Load 0x2,-0x5 0550 6819 |h | Jump_Zero 0x56a 0551 e006 | | Load 0x0,0x6 0552 180e | | Execute Package,Field_Execute,Field_Number 0xe 0553 4809 |H | Short_Literal 0x9 0554 0092 0f47 | G| Action Push_String_Extended,0xf47 ; "#~Copy_Adalib (Imported_View" 0556 e5ff | | Load 0x2,-0x1 0557 8007 | | Call 0x0,0x7 0558 01cc | | Execute Vector,Catenate 0559 0092 0f48 | H| Action Push_String_Extended,0xf48 ; ", Host_View" 055b 01cc | | Execute Vector,Catenate 055c e5fe | | Load 0x2,-0x2 055d 8007 | | Call 0x0,0x7 055e 01cc | | Execute Vector,Catenate 055f 0092 0f49 | I| Action Push_String_Extended,0xf49 ; ", Into_Remote_Dir" 0561 01cc | | Execute Vector,Catenate 0562 e5fd | | Load 0x2,-0x3 0563 8007 | | Call 0x0,0x7 0564 01cc | | Execute Vector,Catenate 0565 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 0567 01cc | | Execute Vector,Catenate 0568 e008 | | Load 0x0,0x8 0569 1813 | | Execute Package,Field_Execute,Field_Number 0x13 056a e5fb | | Load 0x2,-0x5 056b e404 | | Load 0x2,0x4 056c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 056d 800e | | Call 0x0,0xe 056e 680c |h | Jump_Zero 0x57b 056f e5fa | | Load 0x2,-0x6 0570 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0572 4802 |H | Short_Literal 0x2 0573 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "Can't get remote directory name for imported view " 0575 e5ff | | Load 0x2,-0x1 0576 01cc | | Execute Vector,Catenate 0577 e00a | | Load 0x0,0xa 0578 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0579 c5fa | | Store 0x2,-0x6 057a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 057b e402 | | Load 0x2,0x2 057c 01db | | Execute Vector,Length 057d 700d |p | Jump_Nonzero 0x58b 057e e5fa | | Load 0x2,-0x6 057f 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0581 4802 |H | Short_Literal 0x2 0582 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 0584 e5fd | | Load 0x2,-0x3 0585 8009 | | Call 0x0,0x9 0586 01cc | | Execute Vector,Catenate 0587 e00a | | Load 0x0,0xa 0588 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0589 c5fa | | Store 0x2,-0x6 058a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 058b e406 | | Load 0x2,0x6 058c 01db | | Execute Vector,Length 058d 700d |p | Jump_Nonzero 0x59b 058e e5fa | | Load 0x2,-0x6 058f 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0591 4802 |H | Short_Literal 0x2 0592 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 0594 e405 | | Load 0x2,0x5 0595 8009 | | Call 0x0,0x9 0596 01cc | | Execute Vector,Catenate 0597 e00a | | Load 0x0,0xa 0598 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0599 c5fa | | Store 0x2,-0x6 059a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 059b e006 | | Load 0x0,0x6 059c 180e | | Execute Package,Field_Execute,Field_Number 0xe 059d 4804 |H | Short_Literal 0x4 059e 0092 0f4b | K| Action Push_String_Extended,0xf4b ; "Executing Copy_Adalib" 05a0 e008 | | Load 0x0,0x8 05a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05a2 e5fb | | Load 0x2,-0x5 05a3 e5fc | | Load 0x2,-0x4 05a4 e409 | | Load 0x2,0x9 05a5 821e | | Call 0x1,0x1e 05a6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 05a7 00d8 | | Load_Top At_Offset_0 05a8 6817 |h | Jump_Zero 0x5c0 05a9 e005 | | Load 0x0,0x5 05aa 7002 |p | Jump_Nonzero 0x5ad 05ab e5fb | | Load 0x2,-0x5 05ac 6812 |h | Jump_Zero 0x5bf 05ad e006 | | Load 0x0,0x6 05ae 180e | | Execute Package,Field_Execute,Field_Number 0xe 05af 4802 |H | Short_Literal 0x2 05b0 0092 0f4c | L| Action Push_String_Extended,0xf4c ; "#~The units in " 05b2 e407 | | Load 0x2,0x7 05b3 e00f | | Load 0x0,0xf 05b4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05b5 8009 | | Call 0x0,0x9 05b6 01cc | | Execute Vector,Catenate 05b7 0092 0f4d | M| Action Push_String_Extended,0xf4d ; " have already been copied into " 05b9 01cc | | Execute Vector,Catenate 05ba e5fd | | Load 0x2,-0x3 05bb 8009 | | Call 0x0,0x9 05bc 01cc | | Execute Vector,Catenate 05bd e008 | | Load 0x0,0x8 05be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05c0 e5fb | | Load 0x2,-0x5 05c1 e5fc | | Load 0x2,-0x4 05c2 e402 | | Load 0x2,0x2 05c3 0092 0f1f | | Action Push_String_Extended,0xf1f ; "/imports" 05c5 01cc | | Execute Vector,Catenate 05c6 821e | | Call 0x1,0x1e 05c7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 05c8 00d9 | | Load_Top At_Offset_1 05c9 700f |p | Jump_Nonzero 0x5d9 05ca e5fa | | Load 0x2,-0x6 05cb e5fb | | Load 0x2,-0x5 05cc e5fc | | Load 0x2,-0x4 05cd e402 | | Load 0x2,0x2 05ce 0092 0f1f | | Action Push_String_Extended,0xf1f ; "/imports" 05d0 01cc | | Execute Vector,Catenate 05d1 8019 | | Call 0x0,0x19 05d2 c5fa | | Store 0x2,-0x6 05d3 4802 |H | Short_Literal 0x2 05d4 e5fa | | Load 0x2,-0x6 05d5 e013 | | Load 0x0,0x13 05d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05d7 6801 |h | Jump_Zero 0x5d9 05d8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05d9 e5fa | | Load 0x2,-0x6 05da e5fb | | Load 0x2,-0x5 05db e5fc | | Load 0x2,-0x4 05dc e405 | | Load 0x2,0x5 05dd 8219 | | Call 0x1,0x19 05de c5fa | | Store 0x2,-0x6 05df e5fb | | Load 0x2,-0x5 05e0 e5fc | | Load 0x2,-0x4 05e1 e408 | | Load 0x2,0x8 05e2 821e | | Call 0x1,0x1e 05e3 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05e4 00da | | Load_Top At_Offset_2 05e5 7050 |pP | Jump_Nonzero 0x636 05e6 e5fa | | Load 0x2,-0x6 05e7 e5fb | | Load 0x2,-0x5 05e8 e5fc | | Load 0x2,-0x4 05e9 e405 | | Load 0x2,0x5 05ea e5ff | | Load 0x2,-0x1 05eb 821d | | Call 0x1,0x1d 05ec c5fa | | Store 0x2,-0x6 05ed e5fb | | Load 0x2,-0x5 05ee e5fa | | Load 0x2,-0x6 05ef 800e | | Call 0x0,0xe 05f0 680a |h | Jump_Zero 0x5fb 05f1 e5fa | | Load 0x2,-0x6 05f2 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 05f4 4802 |H | Short_Literal 0x2 05f5 0092 0f4e | N| Action Push_String_Extended,0xf4e ; "Can't fetch the link's exports" 05f7 e00a | | Load 0x0,0xa 05f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05f9 c5fa | | Store 0x2,-0x6 05fa 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05fb e006 | | Load 0x0,0x6 05fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 05fd 4804 |H | Short_Literal 0x4 05fe 0092 0f4f | O| Action Push_String_Extended,0xf4f ; "Creating export set for remote library " 0600 e405 | | Load 0x2,0x5 0601 8009 | | Call 0x0,0x9 0602 01cc | | Execute Vector,Catenate 0603 e008 | | Load 0x0,0x8 0604 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0605 e5fa | | Load 0x2,-0x6 0606 e5fb | | Load 0x2,-0x5 0607 e5fc | | Load 0x2,-0x4 0608 0092 0f2a | *| Action Push_String_Extended,0xf2a ; "ada lib_manager\x5c(" 060a e406 | | Load 0x2,0x6 060b 01cc | | Execute Vector,Catenate 060c 0092 0f50 | P| Action Push_String_Extended,0xf50 ; "\x5c).copy from=" 060e 01cc | | Execute Vector,Catenate 060f e405 | | Load 0x2,0x5 0610 01cc | | Execute Vector,Catenate 0611 0092 0f51 | Q| Action Push_String_Extended,0xf51 ; "/adalib to=" 0613 01cc | | Execute Vector,Catenate 0614 e408 | | Load 0x2,0x8 0615 01cc | | Execute Vector,Catenate 0616 0092 0f52 | R| Action Push_String_Extended,0xf52 ; " mode=export" 0618 01cc | | Execute Vector,Catenate 0619 00ea | | Load_Encached Null_String_Cache 061a 8216 | | Call 0x1,0x16 061b 01cc | | Execute Vector,Catenate 061c 8014 | | Call 0x0,0x14 061d c5fa | | Store 0x2,-0x6 061e e5fb | | Load 0x2,-0x5 061f e5fa | | Load 0x2,-0x6 0620 800e | | Call 0x0,0xe 0621 6814 |h | Jump_Zero 0x636 0622 e006 | | Load 0x0,0x6 0623 180e | | Execute Package,Field_Execute,Field_Number 0xe 0624 4807 |H | Short_Literal 0x7 0625 0092 0f53 | S| Action Push_String_Extended,0xf53 ; "Can't create the export set for " 0627 e405 | | Load 0x2,0x5 0628 e00f | | Load 0x0,0xf 0629 1814 | | Execute Package,Field_Execute,Field_Number 0x14 062a 8009 | | Call 0x0,0x9 062b 01cc | | Execute Vector,Catenate 062c 0092 0f2e | .| Action Push_String_Extended,0xf2e ; ". " 062e 01cc | | Execute Vector,Catenate 062f e5fa | | Load 0x2,-0x6 0630 e013 | | Load 0x0,0x13 0631 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0632 01cc | | Execute Vector,Catenate 0633 e008 | | Load 0x0,0x8 0634 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0635 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0636 e006 | | Load 0x0,0x6 0637 180e | | Execute Package,Field_Execute,Field_Number 0xe 0638 4804 |H | Short_Literal 0x4 0639 0092 0f54 | T| Action Push_String_Extended,0xf54 ; "Copying export set " 063b e408 | | Load 0x2,0x8 063c 8009 | | Call 0x0,0x9 063d 01cc | | Execute Vector,Catenate 063e 0092 0f55 | U| Action Push_String_Extended,0xf55 ; " into remote library " 0640 01cc | | Execute Vector,Catenate 0641 e409 | | Load 0x2,0x9 0642 8009 | | Call 0x0,0x9 0643 01cc | | Execute Vector,Catenate 0644 e008 | | Load 0x0,0x8 0645 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0646 e5fa | | Load 0x2,-0x6 0647 e5fb | | Load 0x2,-0x5 0648 e5fc | | Load 0x2,-0x4 0649 0092 0f2a | *| Action Push_String_Extended,0xf2a ; "ada lib_manager\x5c(" 064b e402 | | Load 0x2,0x2 064c 01cc | | Execute Vector,Catenate 064d 0092 0f50 | P| Action Push_String_Extended,0xf50 ; "\x5c).copy from=" 064f 01cc | | Execute Vector,Catenate 0650 e408 | | Load 0x2,0x8 0651 01cc | | Execute Vector,Catenate 0652 0092 0f56 | V| Action Push_String_Extended,0xf56 ; " to=" 0654 01cc | | Execute Vector,Catenate 0655 e409 | | Load 0x2,0x9 0656 01cc | | Execute Vector,Catenate 0657 0092 0f57 | W| Action Push_String_Extended,0xf57 ; " mode=import" 0659 01cc | | Execute Vector,Catenate 065a 00ea | | Load_Encached Null_String_Cache 065b 8216 | | Call 0x1,0x16 065c 01cc | | Execute Vector,Catenate 065d 8014 | | Call 0x0,0x14 065e c5fa | | Store 0x2,-0x6 065f e5fb | | Load 0x2,-0x5 0660 e5fa | | Load 0x2,-0x6 0661 800e | | Call 0x0,0xe 0662 6812 |h | Jump_Zero 0x675 0663 e006 | | Load 0x0,0x6 0664 180e | | Execute Package,Field_Execute,Field_Number 0xe 0665 4807 |H | Short_Literal 0x7 0666 0092 0f58 | X| Action Push_String_Extended,0xf58 ; "Can't copy the export set for " 0668 e5ff | | Load 0x2,-0x1 0669 8009 | | Call 0x0,0x9 066a 01cc | | Execute Vector,Catenate 066b 0092 0f2e | .| Action Push_String_Extended,0xf2e ; ". " 066d 01cc | | Execute Vector,Catenate 066e e5fa | | Load 0x2,-0x6 066f e013 | | Load 0x0,0x13 0670 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0671 01cc | | Execute Vector,Catenate 0672 e008 | | Load 0x0,0x8 0673 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0674 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0675 e5fa | | Load 0x2,-0x6 0676 e5fb | | Load 0x2,-0x5 0677 e5fc | | Load 0x2,-0x4 0678 e5fd | | Load 0x2,-0x3 0679 8219 | | Call 0x1,0x19 067a c5fa | | Store 0x2,-0x6 067b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 067c 0000 0000 | | .BLANK 0000[0x4] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 06a8 | | .CONST 0x06a8 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0008 | | .CONST 0x0008 ; Number of locals 0683 INIT_0680: 0683 00da | | Load_Top At_Offset_2 0684 e004 | | Load 0x0,0x4 0685 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0686 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0687 e00f | | Load 0x0,0xf 0688 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0689 00db | | Load_Top At_Offset_3 068a e004 | | Load 0x0,0x4 068b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 068c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 068d e5fc | | Load 0x2,-0x4 068e 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; "/adalib" 0690 01cc | | Execute Vector,Catenate 0691 0007 | | Action Break_Optional 0692 e001 | | Load 0x0,0x1 0693 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0694 0322 | " | Declare_Variable Record 0695 00d8 | | Load_Top At_Offset_0 0696 1c00 | | Execute_Immediate Run_Utility,0x0 0697 e001 | | Load 0x0,0x1 0698 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0699 0322 | " | Declare_Variable Record 069a 00d8 | | Load_Top At_Offset_0 069b 1c00 | | Execute_Immediate Run_Utility,0x0 069c e001 | | Load 0x0,0x1 069d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 069e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 069f 02c7 | | Declare_Variable Any 06a0 00d8 | | Load_Top At_Offset_0 06a1 1c00 | | Execute_Immediate Run_Utility,0x0 06a2 e001 | | Load 0x0,0x1 06a3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06a5 02c7 | | Declare_Variable Any 06a6 00d8 | | Load_Top At_Offset_0 06a7 1c00 | | Execute_Immediate Run_Utility,0x0 06a8 BODY_0680: 06a8 e005 | | Load 0x0,0x5 06a9 7002 |p | Jump_Nonzero 0x6ac 06aa e5f9 | | Load 0x2,-0x7 06ab 6822 |h" | Jump_Zero 0x6ce 06ac e006 | | Load 0x0,0x6 06ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 06ae 4809 |H | Short_Literal 0x9 06af 0092 0f5a | Z| Action Push_String_Extended,0xf5a ; "#~Import_Predefined_Unit (Imported_Unit" 06b1 e403 | | Load 0x2,0x3 06b2 8007 | | Call 0x0,0x7 06b3 01cc | | Execute Vector,Catenate 06b4 0092 0f10 | | Action Push_String_Extended,0xf10 ; ", Into_View" 06b6 01cc | | Execute Vector,Catenate 06b7 e5fe | | Load 0x2,-0x2 06b8 e004 | | Load 0x0,0x4 06b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ba 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 06bb 8007 | | Call 0x0,0x7 06bc 01cc | | Execute Vector,Catenate 06bd 0092 0f11 | | Action Push_String_Extended,0xf11 ; ", Remote_Directory" 06bf 01cc | | Execute Vector,Catenate 06c0 e5fc | | Load 0x2,-0x4 06c1 8007 | | Call 0x0,0x7 06c2 01cc | | Execute Vector,Catenate 06c3 0092 0f5b | [| Action Push_String_Extended,0xf5b ; ", Remote_Predef" 06c5 01cc | | Execute Vector,Catenate 06c6 e5fb | | Load 0x2,-0x5 06c7 8007 | | Call 0x0,0x7 06c8 01cc | | Execute Vector,Catenate 06c9 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 06cb 01cc | | Execute Vector,Catenate 06cc e008 | | Load 0x0,0x8 06cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ce e5ff | | Load 0x2,-0x1 06cf e405 | | Load 0x2,0x5 06d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06d1 e5ff | | Load 0x2,-0x1 06d2 e405 | | Load 0x2,0x5 06d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06d4 e002 | | Load 0x0,0x2 06d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06d6 e405 | | Load 0x2,0x5 06d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06d8 00d8 | | Load_Top At_Offset_0 06d9 0120 | | Execute Any,Is_Value 06da 6804 |h | Jump_Zero 0x6df 06db e001 | | Load 0x0,0x1 06dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06de 7801 |x | Jump 0x6e0 06df 00d8 | | Load_Top At_Offset_0 06e0 00da | | Load_Top At_Offset_2 06e1 0120 | | Execute Any,Is_Value 06e2 6804 |h | Jump_Zero 0x6e7 06e3 e001 | | Load 0x0,0x1 06e4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06e5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06e6 7801 |x | Jump 0x6e8 06e7 00da | | Load_Top At_Offset_2 06e8 e406 | | Load 0x2,0x6 06e9 e405 | | Load 0x2,0x5 06ea e5fd | | Load 0x2,-0x3 06eb e001 | | Load 0x0,0x1 06ec 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b 06ee 00d1 | | Pop_Control Pop_Count_1 06ef c407 | | Store 0x2,0x7 06f0 c408 | | Store 0x2,0x8 06f1 00d9 | | Load_Top At_Offset_1 06f2 e001 | | Load 0x0,0x1 06f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06f4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06f5 7016 |p | Jump_Nonzero 0x70c 06f6 e005 | | Load 0x0,0x5 06f7 7002 |p | Jump_Nonzero 0x6fa 06f8 e5f9 | | Load 0x2,-0x7 06f9 6811 |h | Jump_Zero 0x70b 06fa e006 | | Load 0x0,0x6 06fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 06fc 4802 |H | Short_Literal 0x2 06fd 0092 0f5c | \| Action Push_String_Extended,0xf5c ; "#~Reusing predefined link unit " 06ff e403 | | Load 0x2,0x3 0700 01cc | | Execute Vector,Catenate 0701 0092 0f5d | ]| Action Push_String_Extended,0xf5d ; " in view " 0703 01cc | | Execute Vector,Catenate 0704 e5fe | | Load 0x2,-0x2 0705 e004 | | Load 0x0,0x4 0706 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0707 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0708 01cc | | Execute Vector,Catenate 0709 e008 | | Load 0x0,0x8 070a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 070b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 070c e006 | | Load 0x0,0x6 070d 180e | | Execute Package,Field_Execute,Field_Number 0xe 070e 4804 |H | Short_Literal 0x4 070f 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; "Acquiring link to " 0711 e402 | | Load 0x2,0x2 0712 8009 | | Call 0x0,0x9 0713 01cc | | Execute Vector,Catenate 0714 0092 0f5f | _| Action Push_String_Extended,0xf5f ; " from " 0716 01cc | | Execute Vector,Catenate 0717 e5fb | | Load 0x2,-0x5 0718 8009 | | Call 0x0,0x9 0719 01cc | | Execute Vector,Catenate 071a 0092 0f55 | U| Action Push_String_Extended,0xf55 ; " into remote library " 071c 01cc | | Execute Vector,Catenate 071d e5fc | | Load 0x2,-0x4 071e 8009 | | Call 0x0,0x9 071f 01cc | | Execute Vector,Catenate 0720 e008 | | Load 0x0,0x8 0721 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0722 e5f8 | | Load 0x2,-0x8 0723 e5f9 | | Load 0x2,-0x7 0724 e5fa | | Load 0x2,-0x6 0725 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "ada unit_manager\x5c(" 0727 e404 | | Load 0x2,0x4 0728 01cc | | Execute Vector,Catenate 0729 0092 0f60 | `| Action Push_String_Extended,0xf60 ; ",update\x5c).acquire units=" 072b 01cc | | Execute Vector,Catenate 072c e402 | | Load 0x2,0x2 072d 01cc | | Execute Vector,Catenate 072e 0092 0f61 | a| Action Push_String_Extended,0xf61 ; " from=" 0730 01cc | | Execute Vector,Catenate 0731 e5fb | | Load 0x2,-0x5 0732 01cc | | Execute Vector,Catenate 0733 00ea | | Load_Encached Null_String_Cache 0734 8216 | | Call 0x1,0x16 0735 01cc | | Execute Vector,Catenate 0736 8014 | | Call 0x0,0x14 0737 c5f8 | | Store 0x2,-0x8 0738 e5f9 | | Load 0x2,-0x7 0739 e5f8 | | Load 0x2,-0x8 073a 800e | | Call 0x0,0xe 073b 680c |h | Jump_Zero 0x748 073c e006 | | Load 0x0,0x6 073d 180e | | Execute Package,Field_Execute,Field_Number 0xe 073e 4807 |H | Short_Literal 0x7 073f 0092 0f62 | b| Action Push_String_Extended,0xf62 ; "Can't acquire the predefined link. " 0741 e5f8 | | Load 0x2,-0x8 0742 e013 | | Load 0x0,0x13 0743 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0744 01cc | | Execute Vector,Catenate 0745 e008 | | Load 0x0,0x8 0746 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0747 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0748 e5f8 | | Load 0x2,-0x8 0749 e5f9 | | Load 0x2,-0x7 074a e5fa | | Load 0x2,-0x6 074b e5fc | | Load 0x2,-0x4 074c 8219 | | Call 0x1,0x19 074d c5f8 | | Store 0x2,-0x8 074e 00d8 | | Load_Top At_Offset_0 074f e405 | | Load 0x2,0x5 0750 e5fd | | Load 0x2,-0x3 0751 e001 | | Load 0x0,0x1 0752 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0753 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0754 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0755 0000 0000 | | .XXX[0x3] 0757 0000 | | 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 07b8 | | .CONST 0x07b8 ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0014 | | .CONST 0x0014 ; Number of locals 075b INIT_0758: 075b 00da | | Load_Top At_Offset_2 075c e004 | | Load 0x0,0x4 075d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 075e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 075f e00f | | Load 0x0,0xf 0760 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0761 00db | | Load_Top At_Offset_3 0762 e004 | | Load 0x0,0x4 0763 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0764 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0765 e004 | | Load 0x0,0x4 0766 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0767 02c7 | | Declare_Variable Any 0768 e006 | | Load 0x0,0x6 0769 180e | | Execute Package,Field_Execute,Field_Number 0xe 076a e5ff | | Load 0x2,-0x1 076b e00c | | Load 0x0,0xc 076c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 076d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 076e a404 | | Store_Unchecked 0x2,0x4 076f 00d8 | | Load_Top At_Offset_0 0770 e004 | | Load 0x0,0x4 0771 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0772 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0773 00d8 | | Load_Top At_Offset_0 0774 e004 | | Load 0x0,0x4 0775 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0776 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0777 e004 | | Load 0x0,0x4 0778 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0779 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 077a e00f | | Load 0x0,0xf 077b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 077c e006 | | Load 0x0,0x6 077d 180e | | Execute Package,Field_Execute,Field_Number 0xe 077e 00da | | Load_Top At_Offset_2 077f e00b | | Load 0x0,0xb 0780 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0781 00d8 | | Load_Top At_Offset_0 0782 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0783 0007 | | Action Break_Optional 0784 00d8 | | Load_Top At_Offset_0 0785 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; "/adalib" 0787 01cc | | Execute Vector,Catenate 0788 0007 | | Action Break_Optional 0789 e5fc | | Load 0x2,-0x4 078a 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; "/adalib" 078c 01cc | | Execute Vector,Catenate 078d 0007 | | Action Break_Optional 078e e001 | | Load 0x0,0x1 078f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0790 0322 | " | Declare_Variable Record 0791 00d8 | | Load_Top At_Offset_0 0792 1c00 | | Execute_Immediate Run_Utility,0x0 0793 e001 | | Load 0x0,0x1 0794 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0795 0322 | " | Declare_Variable Record 0796 00d8 | | Load_Top At_Offset_0 0797 1c00 | | Execute_Immediate Run_Utility,0x0 0798 e001 | | Load 0x0,0x1 0799 1b13 | | Execute Package,Field_Read,Field_Number 0x13 079a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 079b 02c7 | | Declare_Variable Any 079c 00d8 | | Load_Top At_Offset_0 079d 1c00 | | Execute_Immediate Run_Utility,0x0 079e e001 | | Load 0x0,0x1 079f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07a1 02c7 | | Declare_Variable Any 07a2 00d8 | | Load_Top At_Offset_0 07a3 1c00 | | Execute_Immediate Run_Utility,0x0 07a4 e002 | | Load 0x0,0x2 07a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07a6 02c7 | | Declare_Variable Any 07a7 00d8 | | Load_Top At_Offset_0 07a8 1c00 | | Execute_Immediate Run_Utility,0x0 07a9 e5fc | | Load 0x2,-0x4 07aa e5fe | | Load 0x2,-0x2 07ab 8003 | | Call 0x0,0x3 07ac e408 | | Load 0x2,0x8 07ad e404 | | Load 0x2,0x4 07ae 8003 | | Call 0x0,0x3 07af 00e1 | | Load_Encached Boolean_Cache 07b0 00e1 | | Load_Encached Boolean_Cache 07b1 00db | | Load_Top At_Offset_3 07b2 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "/imports/" 07b4 01cc | | Execute Vector,Catenate 07b5 e406 | | Load 0x2,0x6 07b6 01cc | | Execute Vector,Catenate 07b7 0007 | | Action Break_Optional 07b8 BODY_0758: 07b8 e005 | | Load 0x0,0x5 07b9 7002 |p | Jump_Nonzero 0x7bc 07ba e5fa | | Load 0x2,-0x6 07bb 681c |h | Jump_Zero 0x7d8 07bc e006 | | Load 0x0,0x6 07bd 180e | | Execute Package,Field_Execute,Field_Number 0xe 07be 4809 |H | Short_Literal 0x9 07bf 0092 0f63 | c| Action Push_String_Extended,0xf63 ; "#~Import_A_Unit (Imported_Unit" 07c1 e403 | | Load 0x2,0x3 07c2 8007 | | Call 0x0,0x7 07c3 01cc | | Execute Vector,Catenate 07c4 0092 0f10 | | Action Push_String_Extended,0xf10 ; ", Into_View" 07c6 01cc | | Execute Vector,Catenate 07c7 e5fe | | Load 0x2,-0x2 07c8 e004 | | Load 0x0,0x4 07c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07ca 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 07cb 8007 | | Call 0x0,0x7 07cc 01cc | | Execute Vector,Catenate 07cd 0092 0f11 | | Action Push_String_Extended,0xf11 ; ", Remote_Directory" 07cf 01cc | | Execute Vector,Catenate 07d0 e5fc | | Load 0x2,-0x4 07d1 8007 | | Call 0x0,0x7 07d2 01cc | | Execute Vector,Catenate 07d3 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 07d5 01cc | | Execute Vector,Catenate 07d6 e008 | | Load 0x0,0x8 07d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07d8 e5fa | | Load 0x2,-0x6 07d9 e407 | | Load 0x2,0x7 07da 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 07db 800e | | Call 0x0,0xe 07dc 680c |h | Jump_Zero 0x7e9 07dd e5f9 | | Load 0x2,-0x7 07de 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 07e0 4802 |H | Short_Literal 0x2 07e1 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "Can't get remote directory name for imported view " 07e3 e405 | | Load 0x2,0x5 07e4 01cc | | Execute Vector,Catenate 07e5 e00a | | Load 0x0,0xa 07e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07e7 c5f9 | | Store 0x2,-0x7 07e8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07e9 e410 | | Load 0x2,0x10 07ea 01db | | Execute Vector,Length 07eb 700d |p | Jump_Nonzero 0x7f9 07ec e5f9 | | Load 0x2,-0x7 07ed 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 07ef 4802 |H | Short_Literal 0x2 07f0 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 07f2 e5fc | | Load 0x2,-0x4 07f3 8009 | | Call 0x0,0x9 07f4 01cc | | Execute Vector,Catenate 07f5 e00a | | Load 0x0,0xa 07f6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07f7 c5f9 | | Store 0x2,-0x7 07f8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 07f9 00db | | Load_Top At_Offset_3 07fa 01db | | Execute Vector,Length 07fb 700d |p | Jump_Nonzero 0x809 07fc e5f9 | | Load 0x2,-0x7 07fd 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 07ff 4802 |H | Short_Literal 0x2 0800 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 0802 e408 | | Load 0x2,0x8 0803 8009 | | Call 0x0,0x9 0804 01cc | | Execute Vector,Catenate 0805 e00a | | Load 0x0,0xa 0806 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0807 c5f9 | | Store 0x2,-0x7 0808 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0809 4801 |H | Short_Literal 0x1 080a e411 | | Load 0x2,0x11 080b e410 | | Load 0x2,0x10 080c e00f | | Load 0x0,0xf 080d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 080e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 080f e5ff | | Load 0x2,-0x1 0810 e40b | | Load 0x2,0xb 0811 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0812 e404 | | Load 0x2,0x4 0813 e40b | | Load 0x2,0xb 0814 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0815 e002 | | Load 0x0,0x2 0816 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0817 e40b | | Load 0x2,0xb 0818 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0819 e40e | | Load 0x2,0xe 081a 0120 | | Execute Any,Is_Value 081b 6804 |h | Jump_Zero 0x820 081c e001 | | Load 0x0,0x1 081d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 081e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 081f 7801 |x | Jump 0x821 0820 e40e | | Load 0x2,0xe 0821 e40d | | Load 0x2,0xd 0822 0120 | | Execute Any,Is_Value 0823 6804 |h | Jump_Zero 0x828 0824 e001 | | Load 0x0,0x1 0825 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0826 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0827 7801 |x | Jump 0x829 0828 e40d | | Load 0x2,0xd 0829 e40c | | Load 0x2,0xc 082a e40b | | Load 0x2,0xb 082b e5fd | | Load 0x2,-0x3 082c e001 | | Load 0x0,0x1 082d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 082e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 082f 00d1 | | Pop_Control Pop_Count_1 0830 c40d | | Store 0x2,0xd 0831 c40e | | Store 0x2,0xe 0832 e40d | | Load 0x2,0xd 0833 e001 | | Load 0x0,0x1 0834 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0835 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0836 7087 |p | Jump_Nonzero 0x8be 0837 e40c | | Load 0x2,0xc 0838 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0839 e404 | | Load 0x2,0x4 083a 012f | / | Execute Any,Equal 083b 702b |p+ | Jump_Nonzero 0x867 083c e006 | | Load 0x0,0x6 083d 180e | | Execute Package,Field_Execute,Field_Number 0xe 083e 4806 |H | Short_Literal 0x6 083f 0092 0f64 | d| Action Push_String_Extended,0xf64 ; "Can't acquire link to " 0841 e403 | | Load 0x2,0x3 0842 01cc | | Execute Vector,Catenate 0843 e008 | | Load 0x0,0x8 0844 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0845 e006 | | Load 0x0,0x6 0846 180e | | Execute Package,Field_Execute,Field_Number 0xe 0847 4806 |H | Short_Literal 0x6 0848 0092 0f65 | e| Action Push_String_Extended,0xf65 ; "A link to " 084a e402 | | Load 0x2,0x2 084b e00f | | Load 0x0,0xf 084c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 084d 01cc | | Execute Vector,Catenate 084e 0092 0f66 | f| Action Push_String_Extended,0xf66 ; " already exists, but it came from view " 0850 01cc | | Execute Vector,Catenate 0851 e40c | | Load 0x2,0xc 0852 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0853 e004 | | Load 0x0,0x4 0854 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0855 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0856 01cc | | Execute Vector,Catenate 0857 0092 0f67 | g| Action Push_String_Extended,0xf67 ; ", acquired on " 0859 01cc | | Execute Vector,Catenate 085a 4800 |H | Short_Literal 0x0 085b 4800 |H | Short_Literal 0x0 085c 4800 |H | Short_Literal 0x0 085d e40c | | Load 0x2,0xc 085e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 085f e01a | | Load 0x0,0x1a 0860 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0861 e01a | | Load 0x0,0x1a 0862 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0863 01cc | | Execute Vector,Catenate 0864 e008 | | Load 0x0,0x8 0865 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0866 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0867 00d9 | | Load_Top At_Offset_1 0868 683f |h? | Jump_Zero 0x8a8 0869 e5ff | | Load 0x2,-0x1 086a e00a | | Load 0x0,0xa 086b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 086c c40f | | Store 0x2,0xf 086d e40c | | Load 0x2,0xc 086e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 086f e40f | | Load 0x2,0xf 0870 e002 | | Load 0x0,0x2 0871 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0872 681f |h | Jump_Zero 0x892 0873 e006 | | Load 0x0,0x6 0874 180e | | Execute Package,Field_Execute,Field_Number 0xe 0875 4802 |H | Short_Literal 0x2 0876 0092 0f68 | h| Action Push_String_Extended,0xf68 ; "Imported unit " 0878 e403 | | Load 0x2,0x3 0879 01cc | | Execute Vector,Catenate 087a 0092 0f69 | i| Action Push_String_Extended,0xf69 ; " was recompiled or changed, so we must reacquire it" 087c 01cc | | Execute Vector,Catenate 087d e008 | | Load 0x0,0x8 087e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 087f e004 | | Load 0x0,0x4 0880 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0881 e40c | | Load 0x2,0xc 0882 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0883 e004 | | Load 0x0,0x4 0884 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0885 e40c | | Load 0x2,0xc 0886 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0887 e01a | | Load 0x0,0x1a 0888 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0889 e40c | | Load 0x2,0xc 088a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 088b e40d | | Load 0x2,0xd 088c e40c | | Load 0x2,0xc 088d e5fd | | Load 0x2,-0x3 088e e001 | | Load 0x0,0x1 088f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0890 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0891 782c |x, | Jump 0x8be 0892 e005 | | Load 0x0,0x5 0893 7002 |p | Jump_Nonzero 0x896 0894 e5fa | | Load 0x2,-0x6 0895 6811 |h | Jump_Zero 0x8a7 0896 e006 | | Load 0x0,0x6 0897 180e | | Execute Package,Field_Execute,Field_Number 0xe 0898 4802 |H | Short_Literal 0x2 0899 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "#~Reusing link unit " 089b e403 | | Load 0x2,0x3 089c 01cc | | Execute Vector,Catenate 089d 0092 0f5d | ]| Action Push_String_Extended,0xf5d ; " in view " 089f 01cc | | Execute Vector,Catenate 08a0 e5fe | | Load 0x2,-0x2 08a1 e004 | | Load 0x0,0x4 08a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 08a3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 08a4 01cc | | Execute Vector,Catenate 08a5 e008 | | Load 0x0,0x8 08a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08a7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 08a8 e005 | | Load 0x0,0x5 08a9 7002 |p | Jump_Nonzero 0x8ac 08aa e5fa | | Load 0x2,-0x6 08ab 6811 |h | Jump_Zero 0x8bd 08ac e006 | | Load 0x0,0x6 08ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 08ae 4802 |H | Short_Literal 0x2 08af 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "#~Reusing link unit " 08b1 e403 | | Load 0x2,0x3 08b2 01cc | | Execute Vector,Catenate 08b3 0092 0f5d | ]| Action Push_String_Extended,0xf5d ; " in view " 08b5 01cc | | Execute Vector,Catenate 08b6 e5fe | | Load 0x2,-0x2 08b7 e004 | | Load 0x0,0x4 08b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 08b9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 08ba 01cc | | Execute Vector,Catenate 08bb e008 | | Load 0x0,0x8 08bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08bd 4507 |E | Exit_Suprogram New_Top_Offset 0x7 08be 00d9 | | Load_Top At_Offset_1 08bf 6830 |h0 | Jump_Zero 0x8f0 08c0 e006 | | Load 0x0,0x6 08c1 180e | | Execute Package,Field_Execute,Field_Number 0xe 08c2 4804 |H | Short_Literal 0x4 08c3 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; "Acquiring link to " 08c5 e402 | | Load 0x2,0x2 08c6 8009 | | Call 0x0,0x9 08c7 01cc | | Execute Vector,Catenate 08c8 0092 0f5f | _| Action Push_String_Extended,0xf5f ; " from " 08ca 01cc | | Execute Vector,Catenate 08cb e408 | | Load 0x2,0x8 08cc 8009 | | Call 0x0,0x9 08cd 01cc | | Execute Vector,Catenate 08ce 0092 0f55 | U| Action Push_String_Extended,0xf55 ; " into remote library " 08d0 01cc | | Execute Vector,Catenate 08d1 e5fc | | Load 0x2,-0x4 08d2 8009 | | Call 0x0,0x9 08d3 01cc | | Execute Vector,Catenate 08d4 e008 | | Load 0x0,0x8 08d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08d6 e5f9 | | Load 0x2,-0x7 08d7 e5fa | | Load 0x2,-0x6 08d8 e5fb | | Load 0x2,-0x5 08d9 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "ada unit_manager\x5c(" 08db e40a | | Load 0x2,0xa 08dc 01cc | | Execute Vector,Catenate 08dd 0092 0f60 | `| Action Push_String_Extended,0xf60 ; ",update\x5c).acquire units=" 08df 01cc | | Execute Vector,Catenate 08e0 e402 | | Load 0x2,0x2 08e1 01cc | | Execute Vector,Catenate 08e2 0092 0f61 | a| Action Push_String_Extended,0xf61 ; " from=" 08e4 01cc | | Execute Vector,Catenate 08e5 e409 | | Load 0x2,0x9 08e6 01cc | | Execute Vector,Catenate 08e7 0092 0f6b | k| Action Push_String_Extended,0xf6b ; " overwrite=yes" 08e9 01cc | | Execute Vector,Catenate 08ea 00ea | | Load_Encached Null_String_Cache 08eb 8216 | | Call 0x1,0x16 08ec 01cc | | Execute Vector,Catenate 08ed 8014 | | Call 0x0,0x14 08ee c5f9 | | Store 0x2,-0x7 08ef 784c |xL | Jump 0x93c 08f0 e5fa | | Load 0x2,-0x6 08f1 e5fb | | Load 0x2,-0x5 08f2 00da | | Load_Top At_Offset_2 08f3 821e | | Call 0x1,0x1e 08f4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 08f5 00da | | Load_Top At_Offset_2 08f6 7016 |p | Jump_Nonzero 0x90d 08f7 e5f9 | | Load 0x2,-0x7 08f8 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 08fa 4802 |H | Short_Literal 0x2 08fb 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "Can't acquire the link " 08fd e402 | | Load 0x2,0x2 08fe e00f | | Load 0x0,0xf 08ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0900 01cc | | Execute Vector,Catenate 0901 0092 0f6d | m| Action Push_String_Extended,0xf6d ; " because remote import directory " 0903 01cc | | Execute Vector,Catenate 0904 e414 | | Load 0x2,0x14 0905 01cc | | Execute Vector,Catenate 0906 0092 0f6e | n| Action Push_String_Extended,0xf6e ; " doesn't exist" 0908 01cc | | Execute Vector,Catenate 0909 e00a | | Load 0x0,0xa 090a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 090b c5f9 | | Store 0x2,-0x7 090c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 090d e006 | | Load 0x0,0x6 090e 180e | | Execute Package,Field_Execute,Field_Number 0xe 090f 4804 |H | Short_Literal 0x4 0910 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; "Acquiring link to " 0912 e402 | | Load 0x2,0x2 0913 8009 | | Call 0x0,0x9 0914 01cc | | Execute Vector,Catenate 0915 0092 0f5f | _| Action Push_String_Extended,0xf5f ; " from " 0917 01cc | | Execute Vector,Catenate 0918 00db | | Load_Top At_Offset_3 0919 8009 | | Call 0x0,0x9 091a 01cc | | Execute Vector,Catenate 091b 0092 0f55 | U| Action Push_String_Extended,0xf55 ; " into remote library " 091d 01cc | | Execute Vector,Catenate 091e e5fc | | Load 0x2,-0x4 091f 8009 | | Call 0x0,0x9 0920 01cc | | Execute Vector,Catenate 0921 e008 | | Load 0x0,0x8 0922 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0923 e5f9 | | Load 0x2,-0x7 0924 e5fa | | Load 0x2,-0x6 0925 e5fb | | Load 0x2,-0x5 0926 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "ada unit_manager\x5c(" 0928 e40a | | Load 0x2,0xa 0929 01cc | | Execute Vector,Catenate 092a 0092 0f60 | `| Action Push_String_Extended,0xf60 ; ",update\x5c).acquire units=" 092c 01cc | | Execute Vector,Catenate 092d e402 | | Load 0x2,0x2 092e 01cc | | Execute Vector,Catenate 092f 0092 0f61 | a| Action Push_String_Extended,0xf61 ; " from=" 0931 01cc | | Execute Vector,Catenate 0932 e414 | | Load 0x2,0x14 0933 01cc | | Execute Vector,Catenate 0934 0092 0f6f | o| Action Push_String_Extended,0xf6f ; " kind=all by=copy overwrite=yes" 0936 01cc | | Execute Vector,Catenate 0937 00ea | | Load_Encached Null_String_Cache 0938 8216 | | Call 0x1,0x16 0939 01cc | | Execute Vector,Catenate 093a 8014 | | Call 0x0,0x14 093b c5f9 | | Store 0x2,-0x7 093c e5fa | | Load 0x2,-0x6 093d e5f9 | | Load 0x2,-0x7 093e 800e | | Call 0x0,0xe 093f 680c |h | Jump_Zero 0x94c 0940 e006 | | Load 0x0,0x6 0941 180e | | Execute Package,Field_Execute,Field_Number 0xe 0942 4807 |H | Short_Literal 0x7 0943 0092 0f70 | p| Action Push_String_Extended,0xf70 ; "Can't acquire the prerequisite link. " 0945 e5f9 | | Load 0x2,-0x7 0946 e013 | | Load 0x0,0x13 0947 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0948 01cc | | Execute Vector,Catenate 0949 e008 | | Load 0x0,0x8 094a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 094b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 094c e5f9 | | Load 0x2,-0x7 094d e5fa | | Load 0x2,-0x6 094e e5fb | | Load 0x2,-0x5 094f e5fc | | Load 0x2,-0x4 0950 8219 | | Call 0x1,0x19 0951 c5f9 | | Store 0x2,-0x7 0952 e40e | | Load 0x2,0xe 0953 e40b | | Load 0x2,0xb 0954 e5fd | | Load 0x2,-0x3 0955 e001 | | Load 0x0,0x1 0956 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0957 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0958 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0959 0000 0000 | | .BLANK 0000[0x7] 0960 ; -------------------------------------------------------------------------------------- 0960 ; SUBPROGRAM 0960 ; -------------------------------------------------------------------------------------- 0960 0981 | | .CONST 0x0981 ; Address of begin 0961 0a04 | | .CONST 0x0a04 ; Address of exception handler 0962 0007 | | .CONST 0x0007 ; Number of locals 0963 INIT_0960: 0963 e001 | | Load 0x0,0x1 0964 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0965 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0966 02c7 | | Declare_Variable Any 0967 00d8 | | Load_Top At_Offset_0 0968 1c00 | | Execute_Immediate Run_Utility,0x0 0969 e001 | | Load 0x0,0x1 096a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 096b 0322 | " | Declare_Variable Record 096c 00d8 | | Load_Top At_Offset_0 096d 1c00 | | Execute_Immediate Run_Utility,0x0 096e e001 | | Load 0x0,0x1 096f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0970 0322 | " | Declare_Variable Record 0971 00d8 | | Load_Top At_Offset_0 0972 1c00 | | Execute_Immediate Run_Utility,0x0 0973 e001 | | Load 0x0,0x1 0974 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0975 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0976 02c7 | | Declare_Variable Any 0977 00d8 | | Load_Top At_Offset_0 0978 1c00 | | Execute_Immediate Run_Utility,0x0 0979 e001 | | Load 0x0,0x1 097a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 097b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 097c 02c7 | | Declare_Variable Any 097d 00d8 | | Load_Top At_Offset_0 097e 1c00 | | Execute_Immediate Run_Utility,0x0 097f 029f 0ddb | | Declare_Subprogram INIT_0dd8,For_Call 0981 BODY_0960: 0981 00be | | Action Activate_Tasks 0982 e402 | | Load 0x2,0x2 0983 4802 |H | Short_Literal 0x2 0984 e5fe | | Load 0x2,-0x2 0985 e001 | | Load 0x0,0x1 0986 180e | | Execute Package,Field_Execute,Field_Number 0xe 0987 e001 | | Load 0x0,0x1 0988 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0989 1819 | | Execute Package,Field_Execute,Field_Number 0x19 098a c402 | | Store 0x2,0x2 098b e5ff | | Load 0x2,-0x1 098c e403 | | Load 0x2,0x3 098d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 098e 00cf | | Action Mark_Auxiliary 098f 00da | | Load_Top At_Offset_2 0990 0120 | | Execute Any,Is_Value 0991 6804 |h | Jump_Zero 0x996 0992 e001 | | Load 0x0,0x1 0993 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0994 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0995 7801 |x | Jump 0x997 0996 00da | | Load_Top At_Offset_2 0997 e405 | | Load 0x2,0x5 0998 0120 | | Execute Any,Is_Value 0999 6804 |h | Jump_Zero 0x99e 099a e001 | | Load 0x0,0x1 099b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 099c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 099d 7801 |x | Jump 0x99f 099e e405 | | Load 0x2,0x5 099f e404 | | Load 0x2,0x4 09a0 e403 | | Load 0x2,0x3 09a1 e402 | | Load 0x2,0x2 09a2 e001 | | Load 0x0,0x1 09a3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 09a5 00d1 | | Pop_Control Pop_Count_1 09a6 c405 | | Store 0x2,0x5 09a7 c406 | | Store 0x2,0x6 09a8 00db | | Load_Top At_Offset_3 09a9 e001 | | Load 0x0,0x1 09aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09ab 181d | | Execute Package,Field_Execute,Field_Number 0x1d 09ac 6801 |h | Jump_Zero 0x9ae 09ad 7851 |xQ | Jump 0x9ff 09ae e006 | | Load 0x0,0x6 09af 180e | | Execute Package,Field_Execute,Field_Number 0xe 09b0 4804 |H | Short_Literal 0x4 09b1 0092 0f71 | q| Action Push_String_Extended,0xf71 ; "Erasing link to " 09b3 e404 | | Load 0x2,0x4 09b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09b5 e004 | | Load 0x0,0x4 09b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09b7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 09b8 e00f | | Load 0x0,0xf 09b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 09ba 8009 | | Call 0x0,0x9 09bb 01cc | | Execute Vector,Catenate 09bc 0092 0f72 | r| Action Push_String_Extended,0xf72 ; " from remote library " 09be 01cc | | Execute Vector,Catenate 09bf e5fd | | Load 0x2,-0x3 09c0 8009 | | Call 0x0,0x9 09c1 01cc | | Execute Vector,Catenate 09c2 e008 | | Load 0x0,0x8 09c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09c4 e5fa | | Load 0x2,-0x6 09c5 e5fb | | Load 0x2,-0x5 09c6 e5fc | | Load 0x2,-0x4 09c7 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "ada unit_manager\x5c(" 09c9 e5fd | | Load 0x2,-0x3 09ca 01cc | | Execute Vector,Catenate 09cb 0092 0f73 | s| Action Push_String_Extended,0xf73 ; "/adalib,update\x5c).erase units=" 09cd 01cc | | Execute Vector,Catenate 09ce e404 | | Load 0x2,0x4 09cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09d0 e004 | | Load 0x0,0x4 09d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09d2 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 09d3 e00f | | Load 0x0,0xf 09d4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 09d5 01cc | | Execute Vector,Catenate 09d6 0092 0f74 | t| Action Push_String_Extended,0xf74 ; " confirm=no kind=spec" 09d8 01cc | | Execute Vector,Catenate 09d9 8014 | | Call 0x0,0x14 09da c5fa | | Store 0x2,-0x6 09db e5fb | | Load 0x2,-0x5 09dc e5fa | | Load 0x2,-0x6 09dd 800e | | Call 0x0,0xe 09de 680c |h | Jump_Zero 0x9eb 09df e006 | | Load 0x0,0x6 09e0 180e | | Execute Package,Field_Execute,Field_Number 0xe 09e1 4807 |H | Short_Literal 0x7 09e2 0092 0f75 | u| Action Push_String_Extended,0xf75 ; "Can't remove the remote link. " 09e4 e5fa | | Load 0x2,-0x6 09e5 e013 | | Load 0x0,0x13 09e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 09e7 01cc | | Execute Vector,Catenate 09e8 e008 | | Load 0x0,0x8 09e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09ea 7814 |x | Jump 0x9ff 09eb e004 | | Load 0x0,0x4 09ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09ed e404 | | Load 0x2,0x4 09ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09ef e004 | | Load 0x0,0x4 09f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09f1 e404 | | Load 0x2,0x4 09f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09f3 e01a | | Load 0x0,0x1a 09f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09f5 e404 | | Load 0x2,0x4 09f6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09f7 00db | | Load_Top At_Offset_3 09f8 e404 | | Load 0x2,0x4 09f9 e402 | | Load 0x2,0x2 09fa e001 | | Load 0x0,0x1 09fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09fd 00c9 | | Action Pop_Auxiliary_Loop 09fe 7f90 | | Jump 0x98f 09ff 00ce | | Action Pop_Auxiliary 0a00 e402 | | Load 0x2,0x2 0a01 8407 | | Call 0x2,0x7 0a02 c402 | | Store 0x2,0x2 0a03 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a04 TRAP_0960: 0a04 0007 | | Action Break_Optional 0a05 e402 | | Load 0x2,0x2 0a06 8407 | | Call 0x2,0x7 0a07 c402 | | Store 0x2,0x2 0a08 e5fa | | Load 0x2,-0x6 0a09 0092 0f76 | v| Action Push_String_Extended,0xf76 ; "Remove_Imported_Units" 0a0b e00a | | Load 0x0,0xa 0a0c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a0d c5fa | | Store 0x2,-0x6 0a0e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a0f 0000 | | .XXX[0x1] 0a10 ; -------------------------------------------------------------------------------------- 0a10 ; SUBPROGRAM 0a10 ; -------------------------------------------------------------------------------------- 0a10 0a13 | | .CONST 0x0a13 ; Address of begin 0a11 0004 | | .CONST 0x0004 ; Address of exception handler 0a12 0001 | | .CONST 0x0001 ; Number of locals 0a13 BODY_0a10: 0a13 INIT_0a10: 0a13 e406 | | Load 0x2,0x6 0a14 6825 |h% | Jump_Zero 0xa3a 0a15 0092 0f77 | w| Action Push_String_Extended,0xf77 ; "unit_manager " 0a17 e5fc | | Load 0x2,-0x4 0a18 01cc | | Execute Vector,Catenate 0a19 0092 0f78 | x| Action Push_String_Extended,0xf78 ; "/adalib update" 0a1b 01cc | | Execute Vector,Catenate 0a1c e5ff | | Load 0x2,-0x1 0a1d 8217 | | Call 0x1,0x17 0a1e e405 | | Load 0x2,0x5 0a1f 7008 |p | Jump_Nonzero 0xa28 0a20 0092 0f79 | y| Action Push_String_Extended,0xf79 ; "default.acquire kind=all" 0a22 e5ff | | Load 0x2,-0x1 0a23 8217 | | Call 0x1,0x17 0a24 0092 0f7a | z| Action Push_String_Extended,0xf7a ; "default.acquire by=copy" 0a26 e5ff | | Load 0x2,-0x1 0a27 8217 | | Call 0x1,0x17 0a28 0092 0f7b | {| Action Push_String_Extended,0xf7b ; "default.acquire overwrite=yes" 0a2a e5ff | | Load 0x2,-0x1 0a2b 8217 | | Call 0x1,0x17 0a2c 0092 0f7c | || Action Push_String_Extended,0xf7c ; "default.acquire" 0a2e 00ea | | Load_Encached Null_String_Cache 0a2f 8216 | | Call 0x1,0x16 0a30 01cc | | Execute Vector,Catenate 0a31 e5ff | | Load 0x2,-0x1 0a32 8217 | | Call 0x1,0x17 0a33 4800 |H | Short_Literal 0x0 0a34 a406 | | Store_Unchecked 0x2,0x6 0a35 4801 |H | Short_Literal 0x1 0a36 a407 | | Store_Unchecked 0x2,0x7 0a37 e409 | | Load 0x2,0x9 0a38 c40a | | Store 0x2,0xa 0a39 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a3a e409 | | Load 0x2,0x9 0a3b e40a | | Load 0x2,0xa 0a3c 012f | / | Execute Any,Equal 0a3d 6803 |h | Jump_Zero 0xa41 0a3e 4800 |H | Short_Literal 0x0 0a3f a407 | | Store_Unchecked 0x2,0x7 0a40 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a41 4801 |H | Short_Literal 0x1 0a42 a407 | | Store_Unchecked 0x2,0x7 0a43 e409 | | Load 0x2,0x9 0a44 c40a | | Store 0x2,0xa 0a45 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a46 0000 0000 | | .XXX[0x2] 0a48 ; -------------------------------------------------------------------------------------- 0a48 ; SUBPROGRAM 0a48 ; -------------------------------------------------------------------------------------- 0a48 0a55 | U | .CONST 0x0a55 ; Address of begin 0a49 0004 | | .CONST 0x0004 ; Address of exception handler 0a4a 0003 | | .CONST 0x0003 ; Number of locals 0a4b INIT_0a48: 0a4b 00da | | Load_Top At_Offset_2 0a4c e004 | | Load 0x0,0x4 0a4d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a4e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0a4f e00f | | Load 0x0,0xf 0a50 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0a51 00db | | Load_Top At_Offset_3 0a52 e004 | | Load 0x0,0x4 0a53 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a54 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0a55 BODY_0a48: 0a55 e005 | | Load 0x0,0x5 0a56 6813 |h | Jump_Zero 0xa6a 0a57 e006 | | Load 0x0,0x6 0a58 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a59 4809 |H | Short_Literal 0x9 0a5a 0092 0f7d | }| Action Push_String_Extended,0xf7d ; "#~Batch_Import_Predefined_Unit (Imported_Unit" 0a5c 00db | | Load_Top At_Offset_3 0a5d 8007 | | Call 0x0,0x7 0a5e 01cc | | Execute Vector,Catenate 0a5f 0092 0f5b | [| Action Push_String_Extended,0xf5b ; ", Remote_Predef" 0a61 01cc | | Execute Vector,Catenate 0a62 e7fe | | Load 0x3,-0x2 0a63 8007 | | Call 0x0,0x7 0a64 01cc | | Execute Vector,Catenate 0a65 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 0a67 01cc | | Execute Vector,Catenate 0a68 e008 | | Load 0x0,0x8 0a69 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a6a e7ff | | Load 0x3,-0x1 0a6b e40b | | Load 0x2,0xb 0a6c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a6d e7ff | | Load 0x3,-0x1 0a6e e40b | | Load 0x2,0xb 0a6f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a70 e002 | | Load 0x0,0x2 0a71 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a72 e40b | | Load 0x2,0xb 0a73 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a74 e40e | | Load 0x2,0xe 0a75 0120 | | Execute Any,Is_Value 0a76 6804 |h | Jump_Zero 0xa7b 0a77 e001 | | Load 0x0,0x1 0a78 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0a79 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a7a 7801 |x | Jump 0xa7c 0a7b e40e | | Load 0x2,0xe 0a7c e40d | | Load 0x2,0xd 0a7d 0120 | | Execute Any,Is_Value 0a7e 6804 |h | Jump_Zero 0xa83 0a7f e001 | | Load 0x0,0x1 0a80 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0a81 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a82 7801 |x | Jump 0xa84 0a83 e40d | | Load 0x2,0xd 0a84 e40c | | Load 0x2,0xc 0a85 e40b | | Load 0x2,0xb 0a86 e402 | | Load 0x2,0x2 0a87 e001 | | Load 0x0,0x1 0a88 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0a89 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0a8a 00d1 | | Pop_Control Pop_Count_1 0a8b c40d | | Store 0x2,0xd 0a8c c40e | | Store 0x2,0xe 0a8d e40d | | Load 0x2,0xd 0a8e e001 | | Load 0x0,0x1 0a8f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0a90 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0a91 700c |p | Jump_Nonzero 0xa9e 0a92 e005 | | Load 0x0,0x5 0a93 6809 |h | Jump_Zero 0xa9d 0a94 e006 | | Load 0x0,0x6 0a95 180e | | Execute Package,Field_Execute,Field_Number 0xe 0a96 4802 |H | Short_Literal 0x2 0a97 0092 0f5c | \| Action Push_String_Extended,0xf5c ; "#~Reusing predefined link unit " 0a99 00db | | Load_Top At_Offset_3 0a9a 01cc | | Execute Vector,Catenate 0a9b e008 | | Load 0x0,0x8 0a9c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a9d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a9e 840f | | Call 0x2,0xf 0a9f e407 | | Load 0x2,0x7 0aa0 6806 |h | Jump_Zero 0xaa7 0aa1 0092 0f7e | ~| Action Push_String_Extended,0xf7e ; "default.acquire from=" 0aa3 e7fe | | Load 0x3,-0x2 0aa4 01cc | | Execute Vector,Catenate 0aa5 e5ff | | Load 0x2,-0x1 0aa6 8217 | | Call 0x1,0x17 0aa7 0092 0f7f | | Action Push_String_Extended,0xf7f ; "acquire units=" 0aa9 00da | | Load_Top At_Offset_2 0aaa 01cc | | Execute Vector,Catenate 0aab e5ff | | Load 0x2,-0x1 0aac 8217 | | Call 0x1,0x17 0aad e40e | | Load 0x2,0xe 0aae e40b | | Load 0x2,0xb 0aaf e402 | | Load 0x2,0x2 0ab0 e001 | | Load 0x0,0x1 0ab1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0ab2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ab3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ab4 0000 0000 | | .BLANK 0000[0x4] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0af3 | | .CONST 0x0af3 ; Address of begin 0ab9 0004 | | .CONST 0x0004 ; Address of exception handler 0aba 000b | | .CONST 0x000b ; Number of locals 0abb INIT_0ab8: 0abb 00da | | Load_Top At_Offset_2 0abc e004 | | Load 0x0,0x4 0abd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0abe 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0abf e00f | | Load 0x0,0xf 0ac0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0ac1 00db | | Load_Top At_Offset_3 0ac2 e004 | | Load 0x0,0x4 0ac3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ac4 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0ac5 e004 | | Load 0x0,0x4 0ac6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ac7 02c7 | | Declare_Variable Any 0ac8 e006 | | Load 0x0,0x6 0ac9 180e | | Execute Package,Field_Execute,Field_Number 0xe 0aca e7ff | | Load 0x3,-0x1 0acb e00c | | Load 0x0,0xc 0acc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0acd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0ace a604 | | Store_Unchecked 0x3,0x4 0acf 00d8 | | Load_Top At_Offset_0 0ad0 e004 | | Load 0x0,0x4 0ad1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ad2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0ad3 00d8 | | Load_Top At_Offset_0 0ad4 e004 | | Load 0x0,0x4 0ad5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ad6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0ad7 e004 | | Load 0x0,0x4 0ad8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ad9 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0ada e00f | | Load 0x0,0xf 0adb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0adc e006 | | Load 0x0,0x6 0add 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ade 00da | | Load_Top At_Offset_2 0adf e00b | | Load 0x0,0xb 0ae0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ae1 00d8 | | Load_Top At_Offset_0 0ae2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ae3 0007 | | Action Break_Optional 0ae4 00d8 | | Load_Top At_Offset_0 0ae5 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; "/adalib" 0ae7 01cc | | Execute Vector,Catenate 0ae8 0007 | | Action Break_Optional 0ae9 00d9 | | Load_Top At_Offset_1 0aea e604 | | Load 0x3,0x4 0aeb 8003 | | Call 0x0,0x3 0aec e404 | | Load 0x2,0x4 0aed 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "/imports/" 0aef 01cc | | Execute Vector,Catenate 0af0 e606 | | Load 0x3,0x6 0af1 01cc | | Execute Vector,Catenate 0af2 0007 | | Action Break_Optional 0af3 BODY_0ab8: 0af3 e005 | | Load 0x0,0x5 0af4 680d |h | Jump_Zero 0xb02 0af5 e006 | | Load 0x0,0x6 0af6 180e | | Execute Package,Field_Execute,Field_Number 0xe 0af7 4809 |H | Short_Literal 0x9 0af8 0092 0f80 | | Action Push_String_Extended,0xf80 ; "#~Batch_Import_A_Unit (Imported_Unit" 0afa e603 | | Load 0x3,0x3 0afb 8007 | | Call 0x0,0x7 0afc 01cc | | Execute Vector,Catenate 0afd 0092 0f12 | | Action Push_String_Extended,0xf12 ; ")" 0aff 01cc | | Execute Vector,Catenate 0b00 e008 | | Load 0x0,0x8 0b01 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b02 e5fb | | Load 0x2,-0x5 0b03 e607 | | Load 0x3,0x7 0b04 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b05 800e | | Call 0x0,0xe 0b06 680c |h | Jump_Zero 0xb13 0b07 e5fa | | Load 0x2,-0x6 0b08 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0b0a 4802 |H | Short_Literal 0x2 0b0b 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "Can't get remote directory name for imported view " 0b0d e605 | | Load 0x3,0x5 0b0e 01cc | | Execute Vector,Catenate 0b0f e00a | | Load 0x0,0xa 0b10 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b11 c5fa | | Store 0x2,-0x6 0b12 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b13 00d9 | | Load_Top At_Offset_1 0b14 01db | | Execute Vector,Length 0b15 700d |p | Jump_Nonzero 0xb23 0b16 e5fa | | Load 0x2,-0x6 0b17 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0b19 4802 |H | Short_Literal 0x2 0b1a 0092 0f14 | | Action Push_String_Extended,0xf14 ; "Can't derive a family name from the remote pathname " 0b1c e608 | | Load 0x3,0x8 0b1d 8009 | | Call 0x0,0x9 0b1e 01cc | | Execute Vector,Catenate 0b1f e00a | | Load 0x0,0xa 0b20 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b21 c5fa | | Store 0x2,-0x6 0b22 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b23 4801 |H | Short_Literal 0x1 0b24 00da | | Load_Top At_Offset_2 0b25 e404 | | Load 0x2,0x4 0b26 e00f | | Load 0x0,0xf 0b27 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b28 a405 | | Store_Unchecked 0x2,0x5 0b29 e7ff | | Load 0x3,-0x1 0b2a e40b | | Load 0x2,0xb 0b2b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b2c e604 | | Load 0x3,0x4 0b2d e40b | | Load 0x2,0xb 0b2e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b2f e002 | | Load 0x0,0x2 0b30 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b31 e40b | | Load 0x2,0xb 0b32 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b33 e40e | | Load 0x2,0xe 0b34 0120 | | Execute Any,Is_Value 0b35 6804 |h | Jump_Zero 0xb3a 0b36 e001 | | Load 0x0,0x1 0b37 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b38 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b39 7801 |x | Jump 0xb3b 0b3a e40e | | Load 0x2,0xe 0b3b e40d | | Load 0x2,0xd 0b3c 0120 | | Execute Any,Is_Value 0b3d 6804 |h | Jump_Zero 0xb42 0b3e e001 | | Load 0x0,0x1 0b3f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b40 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b41 7801 |x | Jump 0xb43 0b42 e40d | | Load 0x2,0xd 0b43 e40c | | Load 0x2,0xc 0b44 e40b | | Load 0x2,0xb 0b45 e402 | | Load 0x2,0x2 0b46 e001 | | Load 0x0,0x1 0b47 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b48 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0b49 00d1 | | Pop_Control Pop_Count_1 0b4a c40d | | Store 0x2,0xd 0b4b c40e | | Store 0x2,0xe 0b4c e40d | | Load 0x2,0xd 0b4d e001 | | Load 0x0,0x1 0b4e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b4f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0b50 7076 |pv | Jump_Nonzero 0xbc7 0b51 e40c | | Load 0x2,0xc 0b52 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b53 e604 | | Load 0x3,0x4 0b54 012f | / | Execute Any,Equal 0b55 702b |p+ | Jump_Nonzero 0xb81 0b56 e006 | | Load 0x0,0x6 0b57 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b58 4806 |H | Short_Literal 0x6 0b59 0092 0f64 | d| Action Push_String_Extended,0xf64 ; "Can't acquire link to " 0b5b e603 | | Load 0x3,0x3 0b5c 01cc | | Execute Vector,Catenate 0b5d e008 | | Load 0x0,0x8 0b5e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b5f e006 | | Load 0x0,0x6 0b60 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b61 4806 |H | Short_Literal 0x6 0b62 0092 0f65 | e| Action Push_String_Extended,0xf65 ; "A link to " 0b64 e602 | | Load 0x3,0x2 0b65 e00f | | Load 0x0,0xf 0b66 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b67 01cc | | Execute Vector,Catenate 0b68 0092 0f66 | f| Action Push_String_Extended,0xf66 ; " already exists, but it came from view " 0b6a 01cc | | Execute Vector,Catenate 0b6b e40c | | Load 0x2,0xc 0b6c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b6d e004 | | Load 0x0,0x4 0b6e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b6f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0b70 01cc | | Execute Vector,Catenate 0b71 0092 0f67 | g| Action Push_String_Extended,0xf67 ; ", acquired on " 0b73 01cc | | Execute Vector,Catenate 0b74 4800 |H | Short_Literal 0x0 0b75 4800 |H | Short_Literal 0x0 0b76 4800 |H | Short_Literal 0x0 0b77 e40c | | Load 0x2,0xc 0b78 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b79 e01a | | Load 0x0,0x1a 0b7a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0b7b e01a | | Load 0x0,0x1a 0b7c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0b7d 01cc | | Execute Vector,Catenate 0b7e e008 | | Load 0x0,0x8 0b7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b80 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b81 e405 | | Load 0x2,0x5 0b82 6838 |h8 | Jump_Zero 0xbbb 0b83 e7ff | | Load 0x3,-0x1 0b84 e00a | | Load 0x0,0xa 0b85 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b86 c403 | | Store 0x2,0x3 0b87 e40c | | Load 0x2,0xc 0b88 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b89 e403 | | Load 0x2,0x3 0b8a e002 | | Load 0x0,0x2 0b8b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0b8c 6822 |h" | Jump_Zero 0xbaf 0b8d e006 | | Load 0x0,0x6 0b8e 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b8f 4802 |H | Short_Literal 0x2 0b90 0092 0f68 | h| Action Push_String_Extended,0xf68 ; "Imported unit " 0b92 e603 | | Load 0x3,0x3 0b93 01cc | | Execute Vector,Catenate 0b94 0092 0f81 | | Action Push_String_Extended,0xf81 ; " was recompiled or changed, " 0b96 01cc | | Execute Vector,Catenate 0b97 0092 0f82 | | Action Push_String_Extended,0xf82 ; "so we must reacquire it" 0b99 01cc | | Execute Vector,Catenate 0b9a e008 | | Load 0x0,0x8 0b9b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b9c e004 | | Load 0x0,0x4 0b9d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b9e e40c | | Load 0x2,0xc 0b9f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0ba0 e004 | | Load 0x0,0x4 0ba1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ba2 e40c | | Load 0x2,0xc 0ba3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ba4 e01a | | Load 0x0,0x1a 0ba5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ba6 e40c | | Load 0x2,0xc 0ba7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0ba8 e40d | | Load 0x2,0xd 0ba9 e40c | | Load 0x2,0xc 0baa e402 | | Load 0x2,0x2 0bab e001 | | Load 0x0,0x1 0bac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0bad 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bae 7818 |x | Jump 0xbc7 0baf e005 | | Load 0x0,0x5 0bb0 6809 |h | Jump_Zero 0xbba 0bb1 e006 | | Load 0x0,0x6 0bb2 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bb3 4802 |H | Short_Literal 0x2 0bb4 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "#~Reusing link unit " 0bb6 e603 | | Load 0x3,0x3 0bb7 01cc | | Execute Vector,Catenate 0bb8 e008 | | Load 0x0,0x8 0bb9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0bba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bbb e005 | | Load 0x0,0x5 0bbc 6809 |h | Jump_Zero 0xbc6 0bbd e006 | | Load 0x0,0x6 0bbe 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bbf 4802 |H | Short_Literal 0x2 0bc0 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "#~Reusing link unit " 0bc2 e603 | | Load 0x3,0x3 0bc3 01cc | | Execute Vector,Catenate 0bc4 e008 | | Load 0x0,0x8 0bc5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0bc6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bc7 840f | | Call 0x2,0xf 0bc8 e405 | | Load 0x2,0x5 0bc9 680f |h | Jump_Zero 0xbd9 0bca e407 | | Load 0x2,0x7 0bcb 6806 |h | Jump_Zero 0xbd2 0bcc 0092 0f7e | ~| Action Push_String_Extended,0xf7e ; "default.acquire from=" 0bce 00db | | Load_Top At_Offset_3 0bcf 01cc | | Execute Vector,Catenate 0bd0 e5ff | | Load 0x2,-0x1 0bd1 8217 | | Call 0x1,0x17 0bd2 0092 0f7f | | Action Push_String_Extended,0xf7f ; "acquire units=" 0bd4 e602 | | Load 0x3,0x2 0bd5 01cc | | Execute Vector,Catenate 0bd6 e5ff | | Load 0x2,-0x1 0bd7 8217 | | Call 0x1,0x17 0bd8 780e |x | Jump 0xbe7 0bd9 e407 | | Load 0x2,0x7 0bda 6806 |h | Jump_Zero 0xbe1 0bdb 0092 0f7e | ~| Action Push_String_Extended,0xf7e ; "default.acquire from=" 0bdd 00d9 | | Load_Top At_Offset_1 0bde 01cc | | Execute Vector,Catenate 0bdf e5ff | | Load 0x2,-0x1 0be0 8217 | | Call 0x1,0x17 0be1 0092 0f7f | | Action Push_String_Extended,0xf7f ; "acquire units=" 0be3 e602 | | Load 0x3,0x2 0be4 01cc | | Execute Vector,Catenate 0be5 e5ff | | Load 0x2,-0x1 0be6 8217 | | Call 0x1,0x17 0be7 e40e | | Load 0x2,0xe 0be8 e40b | | Load 0x2,0xb 0be9 e402 | | Load 0x2,0x2 0bea e001 | | Load 0x0,0x1 0beb 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0bec 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bee 0000 0000 | | .XXX[0x2] 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 ; SUBPROGRAM 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 0bf3 | | .CONST 0x0bf3 ; Address of begin 0bf1 0c1b | | .CONST 0x0c1b ; Address of exception handler 0bf2 0001 | | .CONST 0x0001 ; Number of locals 0bf3 BODY_0bf0: 0bf3 INIT_0bf0: 0bf3 00da | | Load_Top At_Offset_2 0bf4 e001 | | Load 0x0,0x1 0bf5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0bf6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0bf7 c7ff | | Store 0x3,-0x1 0bf8 e005 | | Load 0x0,0x5 0bf9 6820 |h | Jump_Zero 0xc1a 0bfa 00da | | Load_Top At_Offset_2 0bfb 4800 |H | Short_Literal 0x0 0bfc e5fd | | Load 0x2,-0x3 0bfd e001 | | Load 0x0,0x1 0bfe 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bff e001 | | Load 0x0,0x1 0c00 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c01 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0c02 c7ff | | Store 0x3,-0x1 0c03 e006 | | Load 0x0,0x6 0c04 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c05 4802 |H | Short_Literal 0x2 0c06 0092 0f83 | | Action Push_String_Extended,0xf83 ; "#~Link table " 0c08 e5fd | | Load 0x2,-0x3 0c09 e001 | | Load 0x0,0x1 0c0a 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c0b 01cc | | Execute Vector,Catenate 0c0c 0092 0f84 | | Action Push_String_Extended,0xf84 ; " contains:" 0c0e 01cc | | Execute Vector,Catenate 0c0f e008 | | Load 0x0,0x8 0c10 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c11 00da | | Load_Top At_Offset_2 0c12 e001 | | Load 0x0,0x1 0c13 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c14 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0c15 00da | | Load_Top At_Offset_2 0c16 e001 | | Load 0x0,0x1 0c17 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c18 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0c19 c7ff | | Store 0x3,-0x1 0c1a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c1b TRAP_0bf0: 0c1b 0007 | | Action Break_Optional 0c1c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c1d 0000 0000 | | .XXX[0x3] 0c1f 0000 | | 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; SUBPROGRAM 0c20 ; -------------------------------------------------------------------------------------- 0c20 0c25 | % | .CONST 0x0c25 ; Address of begin 0c21 0c4f | O | .CONST 0x0c4f ; Address of exception handler 0c22 0002 | | .CONST 0x0002 ; Number of locals 0c23 INIT_0c20: 0c23 029f 0e0b | | Declare_Subprogram INIT_0e08,For_Call 0c25 BODY_0c20: 0c25 e416 | | Load 0x2,0x16 0c26 e5fe | | Load 0x2,-0x2 0c27 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c28 01d7 | | Execute Vector,Field_Read 0c29 c408 | | Store 0x2,0x8 0c2a e408 | | Load 0x2,0x8 0c2b e00c | | Load 0x0,0xc 0c2c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c2d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c2e 6802 |h | Jump_Zero 0xc31 0c2f 8602 | | Call 0x3,0x2 0c30 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c31 e006 | | Load 0x0,0x6 0c32 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c33 e408 | | Load 0x2,0x8 0c34 e00c | | Load 0x0,0xc 0c35 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c36 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0c37 c409 | | Store 0x2,0x9 0c38 e408 | | Load 0x2,0x8 0c39 8411 | | Call 0x2,0x11 0c3a e5fb | | Load 0x2,-0x5 0c3b e5fa | | Load 0x2,-0x6 0c3c 800e | | Call 0x0,0xe 0c3d 6810 |h | Jump_Zero 0xc4e 0c3e e006 | | Load 0x0,0x6 0c3f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c40 4806 |H | Short_Literal 0x6 0c41 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Can't import the prerequisite unit " 0c43 e408 | | Load 0x2,0x8 0c44 e004 | | Load 0x0,0x4 0c45 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c46 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0c47 01cc | | Execute Vector,Catenate 0c48 e008 | | Load 0x0,0x8 0c49 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c4a e5fa | | Load 0x2,-0x6 0c4b e013 | | Load 0x0,0x13 0c4c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c4d c5fa | | Store 0x2,-0x6 0c4e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c4f TRAP_0c20: 0c4f 0007 | | Action Break_Optional 0c50 e006 | | Load 0x0,0x6 0c51 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c52 4806 |H | Short_Literal 0x6 0c53 4800 |H | Short_Literal 0x0 0c54 4801 |H | Short_Literal 0x1 0c55 e01b | | Load 0x0,0x1b 0c56 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0c57 0092 0f86 | | Action Push_String_Extended,0xf86 ; " caught in Import_Units" 0c59 01cc | | Execute Vector,Catenate 0c5a e008 | | Load 0x0,0x8 0c5b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c5c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c5d 0000 0000 | | .XXX[0x3] 0c5f 0000 | | 0c60 ; -------------------------------------------------------------------------------------- 0c60 ; SUBPROGRAM 0c60 ; -------------------------------------------------------------------------------------- 0c60 0c63 | c | .CONST 0x0c63 ; Address of begin 0c61 0c8b | | .CONST 0x0c8b ; Address of exception handler 0c62 0001 | | .CONST 0x0001 ; Number of locals 0c63 BODY_0c60: 0c63 INIT_0c60: 0c63 00da | | Load_Top At_Offset_2 0c64 e001 | | Load 0x0,0x1 0c65 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c66 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0c67 c7ff | | Store 0x3,-0x1 0c68 e005 | | Load 0x0,0x5 0c69 6820 |h | Jump_Zero 0xc8a 0c6a 00da | | Load_Top At_Offset_2 0c6b 4800 |H | Short_Literal 0x0 0c6c e5fe | | Load 0x2,-0x2 0c6d e001 | | Load 0x0,0x1 0c6e 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c6f e001 | | Load 0x0,0x1 0c70 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c71 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0c72 c7ff | | Store 0x3,-0x1 0c73 e006 | | Load 0x0,0x6 0c74 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c75 4802 |H | Short_Literal 0x2 0c76 0092 0f83 | | Action Push_String_Extended,0xf83 ; "#~Link table " 0c78 e5fe | | Load 0x2,-0x2 0c79 e001 | | Load 0x0,0x1 0c7a 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c7b 01cc | | Execute Vector,Catenate 0c7c 0092 0f84 | | Action Push_String_Extended,0xf84 ; " contains:" 0c7e 01cc | | Execute Vector,Catenate 0c7f e008 | | Load 0x0,0x8 0c80 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c81 00da | | Load_Top At_Offset_2 0c82 e001 | | Load 0x0,0x1 0c83 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c84 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0c85 00da | | Load_Top At_Offset_2 0c86 e001 | | Load 0x0,0x1 0c87 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0c88 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0c89 c7ff | | Store 0x3,-0x1 0c8a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c8b TRAP_0c60: 0c8b 0007 | | Action Break_Optional 0c8c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c8d 0000 0000 | | .XXX[0x3] 0c8f 0000 | | 0c90 ; -------------------------------------------------------------------------------------- 0c90 ; SUBPROGRAM 0c90 ; -------------------------------------------------------------------------------------- 0c90 0c95 | | .CONST 0x0c95 ; Address of begin 0c91 0cbf | | .CONST 0x0cbf ; Address of exception handler 0c92 0002 | | .CONST 0x0002 ; Number of locals 0c93 INIT_0c90: 0c93 029f 0e93 | | Declare_Subprogram INIT_0e90,For_Call 0c95 BODY_0c90: 0c95 e408 | | Load 0x2,0x8 0c96 e5ff | | Load 0x2,-0x1 0c97 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c98 01d7 | | Execute Vector,Field_Read 0c99 c403 | | Store 0x2,0x3 0c9a e403 | | Load 0x2,0x3 0c9b e00c | | Load 0x0,0xc 0c9c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c9d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c9e 6802 |h | Jump_Zero 0xca1 0c9f 8602 | | Call 0x3,0x2 0ca0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ca1 e5fa | | Load 0x2,-0x6 0ca2 e5fb | | Load 0x2,-0x5 0ca3 e5fc | | Load 0x2,-0x4 0ca4 e5fd | | Load 0x2,-0x3 0ca5 e402 | | Load 0x2,0x2 0ca6 e5fe | | Load 0x2,-0x2 0ca7 e403 | | Load 0x2,0x3 0ca8 8221 | ! | Call 0x1,0x21 0ca9 c5fa | | Store 0x2,-0x6 0caa e5fb | | Load 0x2,-0x5 0cab e5fa | | Load 0x2,-0x6 0cac 800e | | Call 0x0,0xe 0cad 6810 |h | Jump_Zero 0xcbe 0cae e006 | | Load 0x0,0x6 0caf 180e | | Execute Package,Field_Execute,Field_Number 0xe 0cb0 4806 |H | Short_Literal 0x6 0cb1 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Can't import the prerequisite unit " 0cb3 e403 | | Load 0x2,0x3 0cb4 e004 | | Load 0x0,0x4 0cb5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0cb6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0cb7 01cc | | Execute Vector,Catenate 0cb8 e008 | | Load 0x0,0x8 0cb9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0cba e5fa | | Load 0x2,-0x6 0cbb e013 | | Load 0x0,0x13 0cbc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0cbd c5fa | | Store 0x2,-0x6 0cbe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cbf TRAP_0c90: 0cbf 0007 | | Action Break_Optional 0cc0 e006 | | Load 0x0,0x6 0cc1 180e | | Execute Package,Field_Execute,Field_Number 0xe 0cc2 4806 |H | Short_Literal 0x6 0cc3 4800 |H | Short_Literal 0x0 0cc4 4801 |H | Short_Literal 0x1 0cc5 e01b | | Load 0x0,0x1b 0cc6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0cc7 0092 0f86 | | Action Push_String_Extended,0xf86 ; " caught in Import_Units" 0cc9 01cc | | Execute Vector,Catenate 0cca e008 | | Load 0x0,0x8 0ccb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ccc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ccd 0000 0000 | | .XXX[0x3] 0ccf 0000 | | 0cd0 ; -------------------------------------------------------------------------------------- 0cd0 ; SUBPROGRAM 0cd0 ; -------------------------------------------------------------------------------------- 0cd0 0cd9 | | .CONST 0x0cd9 ; Address of begin 0cd1 0004 | | .CONST 0x0004 ; Address of exception handler 0cd2 0003 | | .CONST 0x0003 ; Number of locals 0cd3 INIT_0cd0: 0cd3 e406 | | Load 0x2,0x6 0cd4 e004 | | Load 0x0,0x4 0cd5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0cd6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0cd7 e406 | | Load 0x2,0x6 0cd8 8011 | | Call 0x0,0x11 0cd9 BODY_0cd0: 0cd9 00d8 | | Load_Top At_Offset_0 0cda 01db | | Execute Vector,Length 0cdb 700d |p | Jump_Nonzero 0xce9 0cdc e006 | | Load 0x0,0x6 0cdd 180e | | Execute Package,Field_Execute,Field_Number 0xe 0cde 4806 |H | Short_Literal 0x6 0cdf 0092 0f87 | | Action Push_String_Extended,0xf87 ; "Imported view " 0ce1 e602 | | Load 0x3,0x2 0ce2 01cc | | Execute Vector,Catenate 0ce3 0092 0f88 | | Action Push_String_Extended,0xf88 ; " has no remote family name. Same family assumed" 0ce5 01cc | | Execute Vector,Catenate 0ce6 e008 | | Load 0x0,0x8 0ce7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ce8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ce9 4801 |H | Short_Literal 0x1 0cea e404 | | Load 0x2,0x4 0ceb 00da | | Load_Top At_Offset_2 0cec e00f | | Load 0x0,0xf 0ced 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0cee 680f |h | Jump_Zero 0xcfe 0cef e005 | | Load 0x0,0x5 0cf0 680c |h | Jump_Zero 0xcfd 0cf1 e006 | | Load 0x0,0x6 0cf2 180e | | Execute Package,Field_Execute,Field_Number 0xe 0cf3 4802 |H | Short_Literal 0x2 0cf4 0092 0f89 | | Action Push_String_Extended,0xf89 ; "#~Skipping view " 0cf6 e602 | | Load 0x3,0x2 0cf7 01cc | | Execute Vector,Catenate 0cf8 0092 0f8a | | Action Push_String_Extended,0xf8a ; " in importer's family" 0cfa 01cc | | Execute Vector,Catenate 0cfb e008 | | Load 0x0,0x8 0cfc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0cfd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cfe e406 | | Load 0x2,0x6 0cff 8218 | | Call 0x1,0x18 0d00 7010 |p | Jump_Nonzero 0xd11 0d01 e006 | | Load 0x0,0x6 0d02 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d03 4807 |H | Short_Literal 0x7 0d04 0092 0f8b | | Action Push_String_Extended,0xf8b ; "Can only import view \x22" 0d06 e602 | | Load 0x3,0x2 0d07 01cc | | Execute Vector,Catenate 0d08 0092 0f8c | | Action Push_String_Extended,0xf8c ; "\x22 from another family " 0d0a 01cc | | Execute Vector,Catenate 0d0b 0092 0f8d | | Action Push_String_Extended,0xf8d ; "if it is a release view" 0d0d 01cc | | Execute Vector,Catenate 0d0e e008 | | Load 0x0,0x8 0d0f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d10 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d11 e409 | | Load 0x2,0x9 0d12 702b |p+ | Jump_Nonzero 0xd3e 0d13 e5fb | | Load 0x2,-0x5 0d14 e408 | | Load 0x2,0x8 0d15 0120 | | Execute Any,Is_Value 0d16 6803 |h | Jump_Zero 0xd1a 0d17 e00d | | Load 0x0,0xd 0d18 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d19 7801 |x | Jump 0xd1b 0d1a e408 | | Load 0x2,0x8 0d1b e005 | | Load 0x0,0x5 0d1c 7002 |p | Jump_Nonzero 0xd1f 0d1d e5fc | | Load 0x2,-0x4 0d1e 7801 |x | Jump 0xd20 0d1f 4801 |H | Short_Literal 0x1 0d20 e010 | | Load 0x0,0x10 0d21 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d22 e010 | | Load 0x0,0x10 0d23 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d24 e5fd | | Load 0x2,-0x3 0d25 0092 0f25 | %| Action Push_String_Extended,0xf25 ; "I386_Unix_Als_Xt" 0d27 e00d | | Load 0x0,0xd 0d28 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d29 c408 | | Store 0x2,0x8 0d2a c5fb | | Store 0x2,-0x5 0d2b e5fc | | Load 0x2,-0x4 0d2c e5fb | | Load 0x2,-0x5 0d2d 800e | | Call 0x0,0xe 0d2e 680d |h | Jump_Zero 0xd3c 0d2f e5fb | | Load 0x2,-0x5 0d30 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0d32 4802 |H | Short_Literal 0x2 0d33 0092 0f26 | &| Action Push_String_Extended,0xf26 ; "Can't acquire a connection to " 0d35 e5fd | | Load 0x2,-0x3 0d36 01cc | | Execute Vector,Catenate 0d37 e00a | | Load 0x0,0xa 0d38 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d39 c5fb | | Store 0x2,-0x5 0d3a 00cc | | Action Pop_Block 0d3b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d3c 4801 |H | Short_Literal 0x1 0d3d a409 | | Store_Unchecked 0x2,0x9 0d3e e5fb | | Load 0x2,-0x5 0d3f e5fc | | Load 0x2,-0x4 0d40 e408 | | Load 0x2,0x8 0d41 e403 | | Load 0x2,0x3 0d42 e5ff | | Load 0x2,-0x1 0d43 e602 | | Load 0x3,0x2 0d44 821f | | Call 0x1,0x1f 0d45 c5fb | | Store 0x2,-0x5 0d46 e5fc | | Load 0x2,-0x4 0d47 e5fb | | Load 0x2,-0x5 0d48 800e | | Call 0x0,0xe 0d49 6812 |h | Jump_Zero 0xd5c 0d4a e5fb | | Load 0x2,-0x5 0d4b 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0d4d 4802 |H | Short_Literal 0x2 0d4e 0092 0f8e | | Action Push_String_Extended,0xf8e ; "Can't copy adalib for " 0d50 e602 | | Load 0x3,0x2 0d51 01cc | | Execute Vector,Catenate 0d52 0092 0f8f | | Action Push_String_Extended,0xf8f ; " to " 0d54 01cc | | Execute Vector,Catenate 0d55 e5ff | | Load 0x2,-0x1 0d56 01cc | | Execute Vector,Catenate 0d57 e00a | | Load 0x0,0xa 0d58 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d59 c5fb | | Store 0x2,-0x5 0d5a 00cc | | Action Pop_Block 0d5b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d5c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d5d 0000 0000 | | .XXX[0x3] 0d5f 0000 | | 0d60 ; -------------------------------------------------------------------------------------- 0d60 ; SUBPROGRAM 0d60 ; -------------------------------------------------------------------------------------- 0d60 0d6c | l | .CONST 0x0d6c ; Address of begin 0d61 0004 | | .CONST 0x0004 ; Address of exception handler 0d62 0003 | | .CONST 0x0003 ; Number of locals 0d63 INIT_0d60: 0d63 4800 |H | Short_Literal 0x0 0d64 e5ff | | Load 0x2,-0x1 0d65 e01c | | Load 0x0,0x1c 0d66 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d67 e004 | | Load 0x0,0x4 0d68 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d69 02c7 | | Declare_Variable Any 0d6a 00d8 | | Load_Top At_Offset_0 0d6b 1c00 | | Execute_Immediate Run_Utility,0x0 0d6c BODY_0d60: 0d6c 4801 |H | Short_Literal 0x1 0d6d 00da | | Load_Top At_Offset_2 0d6e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0d6f e013 | | Load 0x0,0x13 0d70 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0d71 6805 |h | Jump_Zero 0xd77 0d72 00d9 | | Load_Top At_Offset_1 0d73 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0d74 c5f8 | | Store 0x2,-0x8 0d75 00cc | | Action Pop_Block 0d76 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0d77 00cf | | Action Mark_Auxiliary 0d78 00da | | Load_Top At_Offset_2 0d79 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0d7a 01dc | | Execute Vector,Last 0d7b 4801 |H | Short_Literal 0x1 0d7c 0263 | c | Execute Discrete,Above_Bound 0d7d 7029 |p) | Jump_Nonzero 0xda7 0d7e 00d8 | | Load_Top At_Offset_0 0d7f e602 | | Load 0x3,0x2 0d80 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0d81 01d7 | | Execute Vector,Field_Read 0d82 c603 | | Store 0x3,0x3 0d83 e005 | | Load 0x0,0x5 0d84 6813 |h | Jump_Zero 0xd98 0d85 e006 | | Load 0x0,0x6 0d86 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d87 4802 |H | Short_Literal 0x2 0d88 0092 0f90 | | Action Push_String_Extended,0xf90 ; "#~ Referencer" 0d8a 00db | | Load_Top At_Offset_3 0d8b 00e0 | | Load_Encached Standard_Cache 0d8c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d8d 01cc | | Execute Vector,Catenate 0d8e 0092 0f91 | | Action Push_String_Extended,0xf91 ; ": " 0d90 01cc | | Execute Vector,Catenate 0d91 e603 | | Load 0x3,0x3 0d92 e004 | | Load 0x0,0x4 0d93 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d94 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0d95 01cc | | Execute Vector,Catenate 0d96 e008 | | Load 0x0,0x8 0d97 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d98 00db | | Load_Top At_Offset_3 0d99 e402 | | Load 0x2,0x2 0d9a 012f | / | Execute Any,Equal 0d9b 7009 |p | Jump_Nonzero 0xda5 0d9c 4801 |H | Short_Literal 0x1 0d9d e603 | | Load 0x3,0x3 0d9e 8011 | | Call 0x0,0x11 0d9f e403 | | Load 0x2,0x3 0da0 e00f | | Load 0x0,0xf 0da1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0da2 6802 |h | Jump_Zero 0xda5 0da3 00cc | | Action Pop_Block 0da4 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0da5 00c8 | | Action Pop_Auxiliary_Range 0da6 3fd7 |? | Loop_Increasing 0xd7e 0da7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0da8 ; -------------------------------------------------------------------------------------- 0da8 ; SUBPROGRAM 0da8 ; -------------------------------------------------------------------------------------- 0da8 0db1 | | .CONST 0x0db1 ; Address of begin 0da9 0004 | | .CONST 0x0004 ; Address of exception handler 0daa 0002 | | .CONST 0x0002 ; Number of locals 0dab INIT_0da8: 0dab e403 | | Load 0x2,0x3 0dac e004 | | Load 0x0,0x4 0dad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0dae 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0daf e00f | | Load 0x0,0xf 0db0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0db1 BODY_0da8: 0db1 e5fb | | Load 0x2,-0x5 0db2 e5fc | | Load 0x2,-0x4 0db3 e5fd | | Load 0x2,-0x3 0db4 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "ada unit_manager\x5c(" 0db6 e5fe | | Load 0x2,-0x2 0db7 01cc | | Execute Vector,Catenate 0db8 0092 0f92 | | Action Push_String_Extended,0xf92 ; "/adalib,update\x5c).fetch unit=" 0dba 01cc | | Execute Vector,Catenate 0dbb e602 | | Load 0x3,0x2 0dbc 01cc | | Execute Vector,Catenate 0dbd 0092 0f93 | | Action Push_String_Extended,0xf93 ; " kind=body set=closure" 0dbf 01cc | | Execute Vector,Catenate 0dc0 00ea | | Load_Encached Null_String_Cache 0dc1 8216 | | Call 0x1,0x16 0dc2 01cc | | Execute Vector,Catenate 0dc3 8014 | | Call 0x0,0x14 0dc4 c5fb | | Store 0x2,-0x5 0dc5 e5fc | | Load 0x2,-0x4 0dc6 e5fb | | Load 0x2,-0x5 0dc7 800e | | Call 0x0,0xe 0dc8 680b |h | Jump_Zero 0xdd4 0dc9 e5fb | | Load 0x2,-0x5 0dca 0092 0f13 | | Action Push_String_Extended,0xf13 ; "Library_Extensions Error" 0dcc 4802 |H | Short_Literal 0x2 0dcd 0092 0f94 | | Action Push_String_Extended,0xf94 ; "Can't fetch the closure for exported unit " 0dcf e602 | | Load 0x3,0x2 0dd0 01cc | | Execute Vector,Catenate 0dd1 e00a | | Load 0x0,0xa 0dd2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0dd3 c5fb | | Store 0x2,-0x5 0dd4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dd5 0000 0000 | | .XXX[0x3] 0dd7 0000 | | 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 ; SUBPROGRAM 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 0ddb | | .CONST 0x0ddb ; Address of begin 0dd9 0e03 | | .CONST 0x0e03 ; Address of exception handler 0dda 0001 | | .CONST 0x0001 ; Number of locals 0ddb BODY_0dd8: 0ddb INIT_0dd8: 0ddb 00da | | Load_Top At_Offset_2 0ddc e001 | | Load 0x0,0x1 0ddd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0dde 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0ddf c7ff | | Store 0x3,-0x1 0de0 e005 | | Load 0x0,0x5 0de1 6820 |h | Jump_Zero 0xe02 0de2 00da | | Load_Top At_Offset_2 0de3 4800 |H | Short_Literal 0x0 0de4 e5fe | | Load 0x2,-0x2 0de5 e001 | | Load 0x0,0x1 0de6 180e | | Execute Package,Field_Execute,Field_Number 0xe 0de7 e001 | | Load 0x0,0x1 0de8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0de9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0dea c7ff | | Store 0x3,-0x1 0deb e006 | | Load 0x0,0x6 0dec 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ded 4802 |H | Short_Literal 0x2 0dee 0092 0f83 | | Action Push_String_Extended,0xf83 ; "#~Link table " 0df0 e5fe | | Load 0x2,-0x2 0df1 e001 | | Load 0x0,0x1 0df2 180e | | Execute Package,Field_Execute,Field_Number 0xe 0df3 01cc | | Execute Vector,Catenate 0df4 0092 0f84 | | Action Push_String_Extended,0xf84 ; " contains:" 0df6 01cc | | Execute Vector,Catenate 0df7 e008 | | Load 0x0,0x8 0df8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0df9 00da | | Load_Top At_Offset_2 0dfa e001 | | Load 0x0,0x1 0dfb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0dfc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0dfd 00da | | Load_Top At_Offset_2 0dfe e001 | | Load 0x0,0x1 0dff 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e00 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e01 c7ff | | Store 0x3,-0x1 0e02 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e03 TRAP_0dd8: 0e03 0007 | | Action Break_Optional 0e04 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e05 0000 0000 | | .XXX[0x3] 0e07 0000 | | 0e08 ; -------------------------------------------------------------------------------------- 0e08 ; SUBPROGRAM 0e08 ; -------------------------------------------------------------------------------------- 0e08 0e0f | | .CONST 0x0e0f ; Address of begin 0e09 0004 | | .CONST 0x0004 ; Address of exception handler 0e0a 0002 | | .CONST 0x0002 ; Number of locals 0e0b INIT_0e08: 0e0b e408 | | Load 0x2,0x8 0e0c e004 | | Load 0x0,0x4 0e0d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e0e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0e0f BODY_0e08: 0e0f 00d8 | | Load_Top At_Offset_0 0e10 01db | | Execute Vector,Length 0e11 0c30 | 0 | Execute_Immediate Greater_Equal,0x30 0e12 6833 |h3 | Jump_Zero 0xe46 0e13 4801 |H | Short_Literal 0x1 0e14 e214 | | Load 0x1,0x14 0e15 00da | | Load_Top At_Offset_2 0e16 01dd | | Execute Vector,First 0e17 00db | | Load_Top At_Offset_3 0e18 01dd | | Execute Vector,First 0e19 0a2e | . | Execute_Immediate Plus,0x2e 0e1a 00d8 | | Load_Top At_Offset_0 0e1b 00e2 | | Load_Encached Integer_Cache 0e1c 0260 | ` | Execute Discrete,In_Type 0e1d 7001 |p | Jump_Nonzero 0xe1f 0e1e 0801 | | Execute_Immediate Raise,0x1 0e1f e802 | | Load 0x4,0x2 0e20 01cf | | Execute Vector,Slice_Read 0e21 e00f | | Load 0x0,0xf 0e22 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e23 6822 |h" | Jump_Zero 0xe46 0e24 e006 | | Load 0x0,0x6 0e25 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e26 e214 | | Load 0x1,0x14 0e27 e00c | | Load 0x0,0xc 0e28 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e29 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e2a c409 | | Store 0x2,0x9 0e2b e212 | | Load 0x1,0x12 0e2c e408 | | Load 0x2,0x8 0e2d 8410 | | Call 0x2,0x10 0e2e e5fb | | Load 0x2,-0x5 0e2f e5fa | | Load 0x2,-0x6 0e30 800e | | Call 0x0,0xe 0e31 6813 |h | Jump_Zero 0xe45 0e32 e006 | | Load 0x0,0x6 0e33 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e34 4806 |H | Short_Literal 0x6 0e35 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Can't import the prerequisite unit " 0e37 e408 | | Load 0x2,0x8 0e38 e004 | | Load 0x0,0x4 0e39 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e3a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0e3b 01cc | | Execute Vector,Catenate 0e3c 0092 0f95 | | Action Push_String_Extended,0xf95 ; " from the CIFO library" 0e3e 01cc | | Execute Vector,Catenate 0e3f e008 | | Load 0x0,0x8 0e40 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e41 e5fa | | Load 0x2,-0x6 0e42 e013 | | Load 0x0,0x13 0e43 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e44 c5fa | | Store 0x2,-0x6 0e45 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e46 00d8 | | Load_Top At_Offset_0 0e47 01db | | Execute Vector,Length 0e48 0c31 | 1 | Execute_Immediate Greater_Equal,0x31 0e49 6833 |h3 | Jump_Zero 0xe7d 0e4a 4801 |H | Short_Literal 0x1 0e4b e215 | | Load 0x1,0x15 0e4c 00da | | Load_Top At_Offset_2 0e4d 01dd | | Execute Vector,First 0e4e 00db | | Load_Top At_Offset_3 0e4f 01dd | | Execute Vector,First 0e50 0a2f | / | Execute_Immediate Plus,0x2f 0e51 00d8 | | Load_Top At_Offset_0 0e52 00e2 | | Load_Encached Integer_Cache 0e53 0260 | ` | Execute Discrete,In_Type 0e54 7001 |p | Jump_Nonzero 0xe56 0e55 0801 | | Execute_Immediate Raise,0x1 0e56 e802 | | Load 0x4,0x2 0e57 01cf | | Execute Vector,Slice_Read 0e58 e00f | | Load 0x0,0xf 0e59 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e5a 6822 |h" | Jump_Zero 0xe7d 0e5b e006 | | Load 0x0,0x6 0e5c 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e5d e215 | | Load 0x1,0x15 0e5e e00c | | Load 0x0,0xc 0e5f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e60 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e61 c409 | | Store 0x2,0x9 0e62 e213 | | Load 0x1,0x13 0e63 e408 | | Load 0x2,0x8 0e64 8410 | | Call 0x2,0x10 0e65 e5fb | | Load 0x2,-0x5 0e66 e5fa | | Load 0x2,-0x6 0e67 800e | | Call 0x0,0xe 0e68 6813 |h | Jump_Zero 0xe7c 0e69 e006 | | Load 0x0,0x6 0e6a 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e6b 4806 |H | Short_Literal 0x6 0e6c 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Can't import the prerequisite unit " 0e6e e408 | | Load 0x2,0x8 0e6f e004 | | Load 0x0,0x4 0e70 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e71 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0e72 01cc | | Execute Vector,Catenate 0e73 0092 0f96 | | Action Push_String_Extended,0xf96 ; " from the POSIX library" 0e75 01cc | | Execute Vector,Catenate 0e76 e008 | | Load 0x0,0x8 0e77 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e78 e5fa | | Load 0x2,-0x6 0e79 e013 | | Load 0x0,0x13 0e7a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e7b c5fa | | Store 0x2,-0x6 0e7c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e7d e005 | | Load 0x0,0x5 0e7e 6809 |h | Jump_Zero 0xe88 0e7f e006 | | Load 0x0,0x6 0e80 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e81 4802 |H | Short_Literal 0x2 0e82 0092 0f97 | | Action Push_String_Extended,0xf97 ; "#~Skipping predefined unit " 0e84 00db | | Load_Top At_Offset_3 0e85 01cc | | Execute Vector,Catenate 0e86 e008 | | Load 0x0,0x8 0e87 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e88 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e89 0000 0000 | | .BLANK 0000[0x7] 0e90 ; -------------------------------------------------------------------------------------- 0e90 ; SUBPROGRAM 0e90 ; -------------------------------------------------------------------------------------- 0e90 0e97 | | .CONST 0x0e97 ; Address of begin 0e91 0004 | | .CONST 0x0004 ; Address of exception handler 0e92 0002 | | .CONST 0x0002 ; Number of locals 0e93 INIT_0e90: 0e93 e403 | | Load 0x2,0x3 0e94 e004 | | Load 0x0,0x4 0e95 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e96 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0e97 BODY_0e90: 0e97 00d8 | | Load_Top At_Offset_0 0e98 01db | | Execute Vector,Length 0e99 0c30 | 0 | Execute_Immediate Greater_Equal,0x30 0e9a 6830 |h0 | Jump_Zero 0xecb 0e9b 4801 |H | Short_Literal 0x1 0e9c e214 | | Load 0x1,0x14 0e9d 00da | | Load_Top At_Offset_2 0e9e 01dd | | Execute Vector,First 0e9f 00db | | Load_Top At_Offset_3 0ea0 01dd | | Execute Vector,First 0ea1 0a2e | . | Execute_Immediate Plus,0x2e 0ea2 00d8 | | Load_Top At_Offset_0 0ea3 00e2 | | Load_Encached Integer_Cache 0ea4 0260 | ` | Execute Discrete,In_Type 0ea5 7001 |p | Jump_Nonzero 0xea7 0ea6 0801 | | Execute_Immediate Raise,0x1 0ea7 e802 | | Load 0x4,0x2 0ea8 01cf | | Execute Vector,Slice_Read 0ea9 e00f | | Load 0x0,0xf 0eaa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0eab 681f |h | Jump_Zero 0xecb 0eac e5fa | | Load 0x2,-0x6 0ead e5fb | | Load 0x2,-0x5 0eae e5fc | | Load 0x2,-0x4 0eaf e212 | | Load 0x1,0x12 0eb0 e5fd | | Load 0x2,-0x3 0eb1 e402 | | Load 0x2,0x2 0eb2 e5fe | | Load 0x2,-0x2 0eb3 e403 | | Load 0x2,0x3 0eb4 8220 | | Call 0x1,0x20 0eb5 c5fa | | Store 0x2,-0x6 0eb6 e5fb | | Load 0x2,-0x5 0eb7 e5fa | | Load 0x2,-0x6 0eb8 800e | | Call 0x0,0xe 0eb9 6810 |h | Jump_Zero 0xeca 0eba e006 | | Load 0x0,0x6 0ebb 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ebc 4806 |H | Short_Literal 0x6 0ebd 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Can't import the prerequisite unit " 0ebf e403 | | Load 0x2,0x3 0ec0 e004 | | Load 0x0,0x4 0ec1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ec2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0ec3 01cc | | Execute Vector,Catenate 0ec4 e008 | | Load 0x0,0x8 0ec5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ec6 e5fa | | Load 0x2,-0x6 0ec7 e013 | | Load 0x0,0x13 0ec8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ec9 c5fa | | Store 0x2,-0x6 0eca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ecb 00d8 | | Load_Top At_Offset_0 0ecc 01db | | Execute Vector,Length 0ecd 0c31 | 1 | Execute_Immediate Greater_Equal,0x31 0ece 6830 |h0 | Jump_Zero 0xeff 0ecf 4801 |H | Short_Literal 0x1 0ed0 e215 | | Load 0x1,0x15 0ed1 00da | | Load_Top At_Offset_2 0ed2 01dd | | Execute Vector,First 0ed3 00db | | Load_Top At_Offset_3 0ed4 01dd | | Execute Vector,First 0ed5 0a2f | / | Execute_Immediate Plus,0x2f 0ed6 00d8 | | Load_Top At_Offset_0 0ed7 00e2 | | Load_Encached Integer_Cache 0ed8 0260 | ` | Execute Discrete,In_Type 0ed9 7001 |p | Jump_Nonzero 0xedb 0eda 0801 | | Execute_Immediate Raise,0x1 0edb e802 | | Load 0x4,0x2 0edc 01cf | | Execute Vector,Slice_Read 0edd e00f | | Load 0x0,0xf 0ede 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0edf 681f |h | Jump_Zero 0xeff 0ee0 e5fa | | Load 0x2,-0x6 0ee1 e5fb | | Load 0x2,-0x5 0ee2 e5fc | | Load 0x2,-0x4 0ee3 e213 | | Load 0x1,0x13 0ee4 e5fd | | Load 0x2,-0x3 0ee5 e402 | | Load 0x2,0x2 0ee6 e5fe | | Load 0x2,-0x2 0ee7 e403 | | Load 0x2,0x3 0ee8 8220 | | Call 0x1,0x20 0ee9 c5fa | | Store 0x2,-0x6 0eea e5fb | | Load 0x2,-0x5 0eeb e5fa | | Load 0x2,-0x6 0eec 800e | | Call 0x0,0xe 0eed 6810 |h | Jump_Zero 0xefe 0eee e006 | | Load 0x0,0x6 0eef 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ef0 4806 |H | Short_Literal 0x6 0ef1 0092 0f85 | | Action Push_String_Extended,0xf85 ; "Can't import the prerequisite unit " 0ef3 e403 | | Load 0x2,0x3 0ef4 e004 | | Load 0x0,0x4 0ef5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ef6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0ef7 01cc | | Execute Vector,Catenate 0ef8 e008 | | Load 0x0,0x8 0ef9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0efa e5fa | | Load 0x2,-0x6 0efb e013 | | Load 0x0,0x13 0efc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0efd c5fa | | Store 0x2,-0x6 0efe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0eff e005 | | Load 0x0,0x5 0f00 6809 |h | Jump_Zero 0xf0a 0f01 e006 | | Load 0x0,0x6 0f02 180e | | Execute Package,Field_Execute,Field_Number 0xe 0f03 4802 |H | Short_Literal 0x2 0f04 0092 0f97 | | Action Push_String_Extended,0xf97 ; "#~Skipping predefined unit " 0f06 00db | | Load_Top At_Offset_3 0f07 01cc | | Execute Vector,Catenate 0f08 e008 | | Load 0x0,0x8 0f09 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f0a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f0b ; -------------------------------------------------------------------------------------- 0f0b ; STRING TABLE 0f0b ; -------------------------------------------------------------------------------------- 0f0b 011c | | .STRTAB 0x011c->0x0f99 ; "/usr/lib/alsycomp/cifo" 0f0c 0130 | 0 | .STRTAB 0x0130->0x0fa4 ; "/usr/lib/alsycomp/posix" 0f0d 0145 | E | .STRTAB 0x0145->0x0faf ; "!TARGETS.I386_UNIX_ALS_XT.TARGET_INTERFACE.CIFO" 0f0e 0172 | r | .STRTAB 0x0172->0x0fc7 ; "!TARGETS.I386_UNIX_ALS_XT.TARGET_INTERFACE.POSIX" 0f0f 01a0 | | .STRTAB 0x01a0->0x0fdf ; "#~Batch_Import_Units (How_Many =>" 0f10 01bf | | .STRTAB 0x01bf->0x0fef ; ", Into_View" 0f11 01c8 | | .STRTAB 0x01c8->0x0ff5 ; ", Remote_Directory" 0f12 01d8 | | .STRTAB 0x01d8->0x0ffe ; ")" 0f13 01d7 | | .STRTAB 0x01d7->0x0ffe ; "Library_Extensions Error" 0f14 01ed | | .STRTAB 0x01ed->0x100a ; "Can't derive a family name from the remote pathname " 0f15 021f | | .STRTAB 0x021f->0x1024 ; "quit" 0f16 0221 | ! | .STRTAB 0x0221->0x1026 ; "Batch_Import_Units" 0f17 0231 | 1 | .STRTAB 0x0231->0x102f ; "#~Import_Units (How_Many =>" 0f18 024a | J | .STRTAB 0x024a->0x103d ; "Import_Units" 0f19 0254 | T | .STRTAB 0x0254->0x1043 ; "#~Perform_Remote_Import (Host_View" 0f1a 0274 | t | .STRTAB 0x0274->0x1054 ; ", Remote_Machine" 0f1b 0282 | | .STRTAB 0x0282->0x105c ; "Can't get remote directory name for view " 0f1c 02a9 | | .STRTAB 0x02a9->0x1070 ; "Executing Perform_Remote_Import" 0f1d 02c6 | | .STRTAB 0x02c6->0x1080 ; "Can't get imported view from iterator. Error Status = " 0f1e 02fb | | .STRTAB 0x02fb->0x109b ; "Perform_Remote_Import" 0f1f 030e | | .STRTAB 0x030e->0x10a6 ; "/imports" 0f20 0314 | | .STRTAB 0x0314->0x10aa ; "/" 0f21 0313 | | .STRTAB 0x0313->0x10aa ; "#~Remove_Remote_Import (View_To_Remove" 0f22 0337 | 7 | .STRTAB 0x0337->0x10bd ; ", From_View" 0f23 0340 | @ | .STRTAB 0x0340->0x10c3 ; ", Destroying_Library => " 0f24 0356 | V | .STRTAB 0x0356->0x10cf ; "Executing Remove_Remote_Import" 0f25 0372 | r | .STRTAB 0x0372->0x10de ; "I386_Unix_Als_Xt" 0f26 0380 | | .STRTAB 0x0380->0x10e6 ; "Can't acquire a connection to " 0f27 039c | | .STRTAB 0x039c->0x10f5 ; "Can't remove the imported units" 0f28 03b9 | | .STRTAB 0x03b9->0x1104 ; "Removing imported library, which was copied from another family" 0f29 03f6 | | .STRTAB 0x03f6->0x1124 ; "Erasing copied remote library " 0f2a 0412 | | .STRTAB 0x0412->0x1133 ; "ada lib_manager\x5c(" 0f2b 0421 | ! | .STRTAB 0x0421->0x113b ; "\x5c).erase libraries=" 0f2c 0432 | 2 | .STRTAB 0x0432->0x1145 ; " confirm=no" 0f2d 043b | ; | .STRTAB 0x043b->0x114a ; "Can't remove copied library " 0f2e 0455 | U | .STRTAB 0x0455->0x1158 ; ". " 0f2f 0456 | V | .STRTAB 0x0456->0x115a ; " isn't remotely imported into " 0f30 0472 | r | .STRTAB 0x0472->0x1169 ; ", so it can't be removed as an import" 0f31 0495 | | .STRTAB 0x0495->0x117b ; "Remove_Remote_Import" 0f32 04a7 | | .STRTAB 0x04a7->0x1185 ; "list" 0f33 04a9 | | .STRTAB 0x04a9->0x1187 ; " detail=brief" 0f34 04b4 | | .STRTAB 0x04b4->0x118e ; " detail=full" 0f35 04be | | .STRTAB 0x04be->0x1194 ; "#~Batch file <= \x22" 0f36 04cd | | .STRTAB 0x04cd->0x119c ; "\x22" 0f37 04cc | | .STRTAB 0x04cc->0x119d ; "ada unit_manager\x5c(" 0f38 04dc | | .STRTAB 0x04dc->0x11a6 ; "/adalib,read\x5c).list units=* link=yes" 0f39 04fe | | .STRTAB 0x04fe->0x11b8 ; "Can't list the units" 0f3a 0510 | | .STRTAB 0x0510->0x11c2 ; "Can't get default context for " 0f3b 052c | , | .STRTAB 0x052c->0x11d1 ; ". Error Status = " 0f3c 053d | = | .STRTAB 0x053d->0x11da ; "Can't set default context to " 0f3d 0558 | X | .STRTAB 0x0558->0x11e9 ; "Can't restore default context. Error Status = " 0f3e 0585 | | .STRTAB 0x0585->0x1200 ; "#~" 0f3f 0585 | | .STRTAB 0x0585->0x1201 ; "_" 0f40 0584 | | .STRTAB 0x0584->0x1202 ; ".State.Exports" 0f41 0590 | | .STRTAB 0x0590->0x1209 ; "test -d " 0f42 0596 | | .STRTAB 0x0596->0x120d ; "#~The remote directory " 0f43 05ab | | .STRTAB 0x05ab->0x1218 ; " does not exist" 0f44 05b8 | | .STRTAB 0x05b8->0x1220 ; " exists" 0f45 05bd | | .STRTAB 0x05bd->0x1223 ; "/adalib/export.set" 0f46 05cd | | .STRTAB 0x05cd->0x122c ; "/imports/" 0f47 05d4 | | .STRTAB 0x05d4->0x1231 ; "#~Copy_Adalib (Imported_View" 0f48 05ee | | .STRTAB 0x05ee->0x123f ; ", Host_View" 0f49 05f7 | | .STRTAB 0x05f7->0x1244 ; ", Into_Remote_Dir" 0f4a 0606 | | .STRTAB 0x0606->0x124d ; "Can't get remote directory name for imported view " 0f4b 0636 | 6 | .STRTAB 0x0636->0x1266 ; "Executing Copy_Adalib" 0f4c 0649 | I | .STRTAB 0x0649->0x1270 ; "#~The units in " 0f4d 0656 | V | .STRTAB 0x0656->0x1278 ; " have already been copied into " 0f4e 0673 | s | .STRTAB 0x0673->0x1287 ; "Can't fetch the link's exports" 0f4f 068f | | .STRTAB 0x068f->0x1296 ; "Creating export set for remote library " 0f50 06b4 | | .STRTAB 0x06b4->0x12aa ; "\x5c).copy from=" 0f51 06bf | | .STRTAB 0x06bf->0x12b0 ; "/adalib to=" 0f52 06c8 | | .STRTAB 0x06c8->0x12b6 ; " mode=export" 0f53 06d2 | | .STRTAB 0x06d2->0x12bc ; "Can't create the export set for " 0f54 06f0 | | .STRTAB 0x06f0->0x12cc ; "Copying export set " 0f55 0701 | | .STRTAB 0x0701->0x12d5 ; " into remote library " 0f56 0714 | | .STRTAB 0x0714->0x12e0 ; " to=" 0f57 0716 | | .STRTAB 0x0716->0x12e2 ; " mode=import" 0f58 0720 | | .STRTAB 0x0720->0x12e8 ; "Can't copy the export set for " 0f59 073c | < | .STRTAB 0x073c->0x12f7 ; "/adalib" 0f5a 0741 | A | .STRTAB 0x0741->0x12fa ; "#~Import_Predefined_Unit (Imported_Unit" 0f5b 0766 | f | .STRTAB 0x0766->0x130e ; ", Remote_Predef" 0f5c 0773 | s | .STRTAB 0x0773->0x1315 ; "#~Reusing predefined link unit " 0f5d 0790 | | .STRTAB 0x0790->0x1325 ; " in view " 0f5e 0797 | | .STRTAB 0x0797->0x1329 ; "Acquiring link to " 0f5f 07a7 | | .STRTAB 0x07a7->0x1332 ; " from " 0f60 07ab | | .STRTAB 0x07ab->0x1335 ; ",update\x5c).acquire units=" 0f61 07c1 | | .STRTAB 0x07c1->0x1341 ; " from=" 0f62 07c5 | | .STRTAB 0x07c5->0x1344 ; "Can't acquire the predefined link. " 0f63 07e7 | | .STRTAB 0x07e7->0x1356 ; "#~Import_A_Unit (Imported_Unit" 0f64 0803 | | .STRTAB 0x0803->0x1365 ; "Can't acquire link to " 0f65 0817 | | .STRTAB 0x0817->0x1370 ; "A link to " 0f66 081f | | .STRTAB 0x081f->0x1375 ; " already exists, but it came from view " 0f67 0844 | D | .STRTAB 0x0844->0x1389 ; ", acquired on " 0f68 0850 | P | .STRTAB 0x0850->0x1390 ; "Imported unit " 0f69 085c | \ | .STRTAB 0x085c->0x1397 ; " was recompiled or changed, so we must reacquire it" 0f6a 088d | | .STRTAB 0x088d->0x13b0 ; "#~Reusing link unit " 0f6b 089f | | .STRTAB 0x089f->0x13ba ; " overwrite=yes" 0f6c 08ab | | .STRTAB 0x08ab->0x13c1 ; "Can't acquire the link " 0f6d 08c0 | | .STRTAB 0x08c0->0x13cd ; " because remote import directory " 0f6e 08df | | .STRTAB 0x08df->0x13dd ; " doesn't exist" 0f6f 08eb | | .STRTAB 0x08eb->0x13e4 ; " kind=all by=copy overwrite=yes" 0f70 0908 | | .STRTAB 0x0908->0x13f4 ; "Can't acquire the prerequisite link. " 0f71 092c | , | .STRTAB 0x092c->0x1407 ; "Erasing link to " 0f72 093a | : | .STRTAB 0x093a->0x140f ; " from remote library " 0f73 094d | M | .STRTAB 0x094d->0x1419 ; "/adalib,update\x5c).erase units=" 0f74 0968 | h | .STRTAB 0x0968->0x1428 ; " confirm=no kind=spec" 0f75 097b | { | .STRTAB 0x097b->0x1432 ; "Can't remove the remote link. " 0f76 0998 | | .STRTAB 0x0998->0x1442 ; "Remove_Imported_Units" 0f77 09ab | | .STRTAB 0x09ab->0x144c ; "unit_manager " 0f78 09b6 | | .STRTAB 0x09b6->0x1453 ; "/adalib update" 0f79 09c2 | | .STRTAB 0x09c2->0x145a ; "default.acquire kind=all" 0f7a 09d8 | | .STRTAB 0x09d8->0x1466 ; "default.acquire by=copy" 0f7b 09ed | | .STRTAB 0x09ed->0x1471 ; "default.acquire overwrite=yes" 0f7c 0a08 | | .STRTAB 0x0a08->0x1480 ; "default.acquire" 0f7d 0a15 | | .STRTAB 0x0a15->0x1487 ; "#~Batch_Import_Predefined_Unit (Imported_Unit" 0f7e 0a40 | @ | .STRTAB 0x0a40->0x149e ; "default.acquire from=" 0f7f 0a53 | S | .STRTAB 0x0a53->0x14a8 ; "acquire units=" 0f80 0a5f | _ | .STRTAB 0x0a5f->0x14af ; "#~Batch_Import_A_Unit (Imported_Unit" 0f81 0a81 | | .STRTAB 0x0a81->0x14c1 ; " was recompiled or changed, " 0f82 0a9b | | .STRTAB 0x0a9b->0x14cf ; "so we must reacquire it" 0f83 0ab0 | | .STRTAB 0x0ab0->0x14db ; "#~Link table " 0f84 0abb | | .STRTAB 0x0abb->0x14e1 ; " contains:" 0f85 0ac3 | | .STRTAB 0x0ac3->0x14e6 ; "Can't import the prerequisite unit " 0f86 0ae4 | | .STRTAB 0x0ae4->0x14f8 ; " caught in Import_Units" 0f87 0af9 | | .STRTAB 0x0af9->0x1503 ; "Imported view " 0f88 0b05 | | .STRTAB 0x0b05->0x150a ; " has no remote family name. Same family assumed" 0f89 0b33 | 3 | .STRTAB 0x0b33->0x1522 ; "#~Skipping view " 0f8a 0b41 | A | .STRTAB 0x0b41->0x152a ; " in importer's family" 0f8b 0b54 | T | .STRTAB 0x0b54->0x1535 ; "Can only import view \x22" 0f8c 0b68 | h | .STRTAB 0x0b68->0x1540 ; "\x22 from another family " 0f8d 0b7c | | | .STRTAB 0x0b7c->0x154b ; "if it is a release view" 0f8e 0b91 | | .STRTAB 0x0b91->0x1556 ; "Can't copy adalib for " 0f8f 0ba5 | | .STRTAB 0x0ba5->0x1561 ; " to " 0f90 0ba7 | | .STRTAB 0x0ba7->0x1563 ; "#~ Referencer" 0f91 0bb3 | | .STRTAB 0x0bb3->0x156a ; ": " 0f92 0bb3 | | .STRTAB 0x0bb3->0x156b ; "/adalib,update\x5c).fetch unit=" 0f93 0bcd | | .STRTAB 0x0bcd->0x1579 ; " kind=body set=closure" 0f94 0be1 | | .STRTAB 0x0be1->0x1584 ; "Can't fetch the closure for exported unit " 0f95 0c09 | | .STRTAB 0x0c09->0x1599 ; " from the CIFO library" 0f96 0c1d | | .STRTAB 0x0c1d->0x15a4 ; " from the POSIX library" 0f97 0c32 | 2 | .STRTAB 0x0c32->0x15b0 ; "#~Skipping predefined unit " 0f98 0c4b | K | .STREND 0x0c4b->0x15bd 0f99 2f75 7372 |/usr| .STRTAB_STRINGS 15be 0000 0000 | | .XXX[0x2] 15c0 ; -------------------------------------------------------------------------------------- 15c0 ; Debug Table 15c0 ; -------------------------------------------------------------------------------------- 15c0 0004 0003 | | .DEBUG4 0x0004,0x0003,0xb90c,0x0000,0x0001,0x0020 15c6 000b 1646 | F| .DBG4T 0x000b,0x1646,0x0000,0x0000 15ca 0014 164c | L| .DBG4T 0x0014,0x164c,0x0000,0x0000 15ce 004b 1664 | K d| .DBG4T 0x004b,0x1664,0x0001,0x0000 15d2 00f3 1684 | | .DBG4T 0x00f3,0x1684,0x0001,0x0000 15d6 014b 1691 | K | .DBG4T 0x014b,0x1691,0x0001,0x4000 15da 01f3 16bf | | .DBG4T 0x01f3,0x16bf,0x0001,0x0000 15de 031b 16ec | | .DBG4T 0x031b,0x16ec,0x0002,0x0000 15e2 0333 16f3 | 3 | .DBG4T 0x0333,0x16f3,0x0001,0x0000 15e6 034b 16f8 | K | .DBG4T 0x034b,0x16f8,0x0002,0x0000 15ea 036b 1700 | k | .DBG4T 0x036b,0x1700,0x0001,0x0000 15ee 0393 1706 | | .DBG4T 0x0393,0x1706,0x0001,0x0000 15f2 03fb 1713 | | .DBG4T 0x03fb,0x1713,0x0001,0x0000 15f6 041b 1719 | | .DBG4T 0x041b,0x1719,0x0002,0x0000 15fa 048b 1729 | )| .DBG4T 0x048b,0x1729,0x0001,0x4000 15fe 04c3 1738 | 8| .DBG4T 0x04c3,0x1738,0x0002,0x0000 1602 0513 1746 | F| .DBG4T 0x0513,0x1746,0x0001,0x0000 1606 0683 177b | {| .DBG4T 0x0683,0x177b,0x0001,0x0000 160a 075b 1794 | [ | .DBG4T 0x075b,0x1794,0x0001,0x0000 160e 0963 17d9 | c | .DBG4T 0x0963,0x17d9,0x0001,0x4000 1612 0a13 1803 | | .DBG4T 0x0a13,0x1803,0x0001,0x0000 1616 0a4b 1813 | K | .DBG4T 0x0a4b,0x1813,0x0001,0x0000 161a 0abb 1826 | &| .DBG4T 0x0abb,0x1826,0x0001,0x0000 161e 0bf3 185b | [| .DBG4T 0x0bf3,0x185b,0x0001,0x0000 1622 0c23 1864 | # d| .DBG4T 0x0c23,0x1864,0x0004,0x0000 1626 0c63 186f | c o| .DBG4T 0x0c63,0x186f,0x0001,0x0000 162a 0c93 1878 | x| .DBG4T 0x0c93,0x1878,0x0004,0x0000 162e 0cd3 1882 | | .DBG4T 0x0cd3,0x1882,0x0004,0x0000 1632 0d63 1897 | c | .DBG4T 0x0d63,0x1897,0x0004,0x0000 1636 0dab 18a4 | | .DBG4T 0x0dab,0x18a4,0x0004,0x0000 163a 0ddb 18aa | | .DBG4T 0x0ddb,0x18aa,0x0001,0x0000 163e 0e0b 18b3 | | .DBG4T 0x0e0b,0x18b3,0x0004,0x0000 1642 0e93 18c4 | | .DBG4T 0x0e93,0x18c4,0x0004,0x0000 1646 ; -------------------------------------------------------------------------------------- 1646 ; Debug chain 1646 ; -------------------------------------------------------------------------------------- 1646 0004 0000 | | .DBGLEN 0x0004,0x0000 1648 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011 164c ; -------------------------------------------------------------------------------------- 164c ; Debug chain 164c ; -------------------------------------------------------------------------------------- 164c 0016 0000 | | .DBGLEN 0x0016,0x0000 164e 0014 0016 | | .DBGLNO 0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e 1664 ; -------------------------------------------------------------------------------------- 1664 ; Debug chain 1664 ; -------------------------------------------------------------------------------------- 1664 0011 000d | | .DBGLEN 0x0011,0x000d 1666 004b 0051 | K Q| .DBGLNO 0x004b,0x0051,0x0056,0x0059,0x005a,0x005c,0x005e,0x0063,0x0068,0x006e,0x0073,0x0078,0x007e,0x0084,0x0086,0x0088,0x008a,0x008f,0x0093,0x00b1,0x00b4,0x00c0,0x00c1,0x00cb,0x00d1,0x00d5,0x00d7,0x00db,0x00e0,0x00e3 1684 ; -------------------------------------------------------------------------------------- 1684 ; Debug chain 1684 ; -------------------------------------------------------------------------------------- 1684 0003 0008 | | .DBGLEN 0x0003,0x0008 1686 00f3 00f9 | | .DBGLNO 0x00f3,0x00f9,0x00fe,0x0103,0x0107,0x0125,0x012f,0x0135,0x0139,0x013e,0x0141 1691 ; -------------------------------------------------------------------------------------- 1691 ; Debug chain 1691 ; -------------------------------------------------------------------------------------- 1691 0008 0012 | | .DBGLEN 0x0008,0x0012 1693 014b 0150 | K P| .DBGLNO 0x014b,0x0150,0x0157,0x015f,0x0165,0x016a,0x016c,0x0171,0x0175,0x0179,0x018c,0x0191,0x019c,0x019d,0x01a0,0x01ac,0x01ad,0x01b2,0x01b3,0x01bc,0x01cb,0x01cd,0x01db,0x01dc,0x01e2,0x01e9 16ad 0001 0002 | | .XXX[0x12] 16af 0003 0004 | | 16b1 0005 0006 | | 16b3 0007 0008 | | 16b5 0009 000a | | 16b7 000b 000d | | 16b9 000e 000f | | 16bb 0010 0011 | | 16bd 000c 0012 | | 16bf ; -------------------------------------------------------------------------------------- 16bf ; Debug chain 16bf ; -------------------------------------------------------------------------------------- 16bf 0009 0022 | "| .DBGLEN 0x0009,0x0022 16c1 01f3 01fd | | .DBGLNO 0x01f3,0x01fd,0x0200,0x0204,0x020d,0x0212,0x0219,0x021a,0x021f,0x0222,0x0226,0x024d,0x0250,0x025c,0x025d,0x0264,0x0266,0x027e,0x0282,0x028d,0x028e,0x0295,0x029d,0x02a1,0x02aa,0x02ab,0x02ad,0x02ae,0x02b6,0x02bb,0x02bc,0x02be,0x02c0,0x02c1,0x02c2,0x02c9,0x02d3,0x02e4,0x02e8,0x02f9,0x02fa,0x0301,0x0311 16ec ; -------------------------------------------------------------------------------------- 16ec ; Debug chain 16ec ; -------------------------------------------------------------------------------------- 16ec 0000 0005 | | .DBGLEN 0x0000,0x0005 16ee 031b 031d | | .DBGLNO 0x031b,0x031d,0x0322,0x0325,0x0328 16f3 ; -------------------------------------------------------------------------------------- 16f3 ; Debug chain 16f3 ; -------------------------------------------------------------------------------------- 16f3 0000 0003 | | .DBGLEN 0x0000,0x0003 16f5 0333 0335 | 3 5| .DBGLNO 0x0333,0x0335,0x0341 16f8 ; -------------------------------------------------------------------------------------- 16f8 ; Debug chain 16f8 ; -------------------------------------------------------------------------------------- 16f8 0002 0004 | | .DBGLEN 0x0002,0x0004 16fa 034b 034c | K L| .DBGLNO 0x034b,0x034c,0x034e,0x035a,0x035c,0x035e 1700 ; -------------------------------------------------------------------------------------- 1700 ; Debug chain 1700 ; -------------------------------------------------------------------------------------- 1700 0000 0004 | | .DBGLEN 0x0000,0x0004 1702 036b 036f | k o| .DBGLNO 0x036b,0x036f,0x037f,0x0383 1706 ; -------------------------------------------------------------------------------------- 1706 ; Debug chain 1706 ; -------------------------------------------------------------------------------------- 1706 0002 0009 | | .DBGLEN 0x0002,0x0009 1708 0393 0395 | | .DBGLNO 0x0393,0x0395,0x039b,0x03af,0x03b1,0x03c8,0x03c9,0x03cf,0x03d8,0x03da,0x03f1 1713 ; -------------------------------------------------------------------------------------- 1713 ; Debug chain 1713 ; -------------------------------------------------------------------------------------- 1713 0001 0003 | | .DBGLEN 0x0001,0x0003 1715 03fb 03fd | | .DBGLNO 0x03fb,0x03fd,0x0406,0x0408 1719 ; -------------------------------------------------------------------------------------- 1719 ; Debug chain 1719 ; -------------------------------------------------------------------------------------- 1719 0004 000a | | .DBGLEN 0x0004,0x000a 171b 041b 0421 | !| .DBGLNO 0x041b,0x0421,0x0426,0x042c,0x042f,0x0435,0x043a,0x0445,0x0449,0x0471,0x0473,0x0475,0x0479,0x047b 1729 ; -------------------------------------------------------------------------------------- 1729 ; Debug chain 1729 ; -------------------------------------------------------------------------------------- 1729 0003 0005 | | .DBGLEN 0x0003,0x0005 172b 048b 0497 | | .DBGLNO 0x048b,0x0497,0x049c,0x04a2,0x04b1,0x04b3,0x04b4,0x04ba 1733 0002 0003 | | .XXX[0x5] 1735 0004 0005 | | 1737 0001 | | 1738 ; -------------------------------------------------------------------------------------- 1738 ; Debug chain 1738 ; -------------------------------------------------------------------------------------- 1738 0002 000a | | .DBGLEN 0x0002,0x000a 173a 04c3 04c8 | | .DBGLNO 0x04c3,0x04c8,0x04cd,0x04d3,0x04d8,0x04da,0x04e5,0x04e9,0x04f6,0x04f8,0x04fc,0x0509 1746 ; -------------------------------------------------------------------------------------- 1746 ; Debug chain 1746 ; -------------------------------------------------------------------------------------- 1746 000b 0028 | (| .DBGLEN 0x000b,0x0028 1748 0513 051b | | .DBGLNO 0x0513,0x051b,0x0525,0x052a,0x0532,0x0535,0x053e,0x0543,0x054a,0x054b,0x054c,0x054d,0x0551,0x056a,0x056f,0x057a,0x057b,0x057e,0x058a,0x058b,0x058e,0x059a,0x059b,0x05a2,0x05a7,0x05a9,0x05ad,0x05bf,0x05c0,0x05c8,0x05ca,0x05d3,0x05d8,0x05d9,0x05df,0x05e4,0x05e6,0x05ed,0x05f1,0x05fa,0x05fb,0x0605,0x061e,0x0622,0x0635,0x0636,0x0646,0x065f,0x0663,0x0674,0x0675 177b ; -------------------------------------------------------------------------------------- 177b ; Debug chain 177b ; -------------------------------------------------------------------------------------- 177b 0007 0010 | | .DBGLEN 0x0007,0x0010 177d 0683 0689 | | .DBGLNO 0x0683,0x0689,0x068d,0x0692,0x0697,0x069c,0x06a2,0x06a8,0x06ac,0x06ce,0x06d1,0x06d4,0x06d8,0x06f1,0x06f6,0x06fa,0x070b,0x070c,0x0722,0x0738,0x073c,0x0748,0x074e 1794 ; -------------------------------------------------------------------------------------- 1794 ; Debug chain 1794 ; -------------------------------------------------------------------------------------- 1794 0013 0030 | 0| .DBGLEN 0x0013,0x0030 1796 075b 0761 | [ a| .DBGLNO 0x075b,0x0761,0x0765,0x076f,0x0773,0x077c,0x0781,0x0784,0x0789,0x078e,0x0793,0x0798,0x079e,0x07a4,0x07a9,0x07ac,0x07af,0x07b0,0x07b1,0x07b8,0x07bc,0x07d8,0x07dd,0x07e8,0x07e9,0x07ec,0x07f8,0x07f9,0x07fc,0x0808,0x0809,0x080f,0x0812,0x0815,0x0819,0x0832,0x0837,0x083c,0x0845,0x0866,0x0867,0x0869,0x086d,0x0873,0x087f,0x0883,0x0887,0x088b,0x0892,0x0896,0x08a7,0x08a8,0x08ac,0x08bd,0x08be,0x08c0,0x08d6,0x08f0,0x08f5,0x08f7,0x090c,0x090d,0x0923,0x093c,0x0940,0x094c,0x0952 17d9 ; -------------------------------------------------------------------------------------- 17d9 ; Debug chain 17d9 ; -------------------------------------------------------------------------------------- 17d9 0006 0011 | | .DBGLEN 0x0006,0x0011 17db 0963 0969 | c i| .DBGLNO 0x0963,0x0969,0x096e,0x0973,0x0979,0x097f,0x0982,0x098b,0x098f,0x09a8,0x09ad,0x09ae,0x09c4,0x09db,0x09df,0x09ea,0x09eb,0x09ef,0x09f3,0x09f7,0x0a00,0x0a05,0x0a08 17f2 0001 0002 | | .XXX[0x11] 17f4 0004 0005 | | 17f6 0006 0007 | | 17f8 0008 0009 | | 17fa 000a 000b | | 17fc 000c 000d | | 17fe 000e 000f | | 1800 0010 0011 | | 1802 0012 | | 1803 ; -------------------------------------------------------------------------------------- 1803 ; Debug chain 1803 ; -------------------------------------------------------------------------------------- 1803 0000 000e | | .DBGLEN 0x0000,0x000e 1805 0a13 0a15 | | .DBGLNO 0x0a13,0x0a15,0x0a1e,0x0a20,0x0a24,0x0a28,0x0a2c,0x0a33,0x0a35,0x0a37,0x0a3a,0x0a3e,0x0a41,0x0a43 1813 ; -------------------------------------------------------------------------------------- 1813 ; Debug chain 1813 ; -------------------------------------------------------------------------------------- 1813 0002 000f | | .DBGLEN 0x0002,0x000f 1815 0a4b 0a51 | K Q| .DBGLNO 0x0a4b,0x0a51,0x0a55,0x0a57,0x0a6a,0x0a6d,0x0a70,0x0a74,0x0a8d,0x0a92,0x0a94,0x0a9d,0x0a9e,0x0a9f,0x0aa1,0x0aa7,0x0aad 1826 ; -------------------------------------------------------------------------------------- 1826 ; Debug chain 1826 ; -------------------------------------------------------------------------------------- 1826 000a 0029 | )| .DBGLEN 0x000a,0x0029 1828 0abb 0ac1 | | .DBGLNO 0x0abb,0x0ac1,0x0ac5,0x0acf,0x0ad3,0x0adc,0x0ae1,0x0ae4,0x0ae9,0x0aec,0x0af3,0x0af5,0x0b02,0x0b07,0x0b12,0x0b13,0x0b16,0x0b22,0x0b23,0x0b29,0x0b2c,0x0b2f,0x0b33,0x0b4c,0x0b51,0x0b56,0x0b5f,0x0b80,0x0b81,0x0b83,0x0b87,0x0b8d,0x0b9c,0x0ba0,0x0ba4,0x0ba8,0x0baf,0x0bb1,0x0bba,0x0bbb,0x0bbd,0x0bc6,0x0bc7,0x0bc8,0x0bca,0x0bcc,0x0bd2,0x0bd9,0x0bdb,0x0be1,0x0be7 185b ; -------------------------------------------------------------------------------------- 185b ; Debug chain 185b ; -------------------------------------------------------------------------------------- 185b 0000 0007 | | .DBGLEN 0x0000,0x0007 185d 0bf3 0bf8 | | .DBGLNO 0x0bf3,0x0bf8,0x0bfa,0x0c03,0x0c11,0x0c15,0x0c1c 1864 ; -------------------------------------------------------------------------------------- 1864 ; Debug chain 1864 ; -------------------------------------------------------------------------------------- 1864 0000 0009 | | .DBGLEN 0x0000,0x0009 1866 0c25 0c2a | % *| .DBGLNO 0x0c25,0x0c2a,0x0c2f,0x0c31,0x0c38,0x0c3a,0x0c3e,0x0c4a,0x0c50 186f ; -------------------------------------------------------------------------------------- 186f ; Debug chain 186f ; -------------------------------------------------------------------------------------- 186f 0000 0007 | | .DBGLEN 0x0000,0x0007 1871 0c63 0c68 | c h| .DBGLNO 0x0c63,0x0c68,0x0c6a,0x0c73,0x0c81,0x0c85,0x0c8c 1878 ; -------------------------------------------------------------------------------------- 1878 ; Debug chain 1878 ; -------------------------------------------------------------------------------------- 1878 0000 0008 | | .DBGLEN 0x0000,0x0008 187a 0c95 0c9a | | .DBGLNO 0x0c95,0x0c9a,0x0c9f,0x0ca1,0x0caa,0x0cae,0x0cba,0x0cc0 1882 ; -------------------------------------------------------------------------------------- 1882 ; Debug chain 1882 ; -------------------------------------------------------------------------------------- 1882 0002 0011 | | .DBGLEN 0x0002,0x0011 1884 0cd3 0cd7 | | .DBGLNO 0x0cd3,0x0cd7,0x0cd9,0x0cdc,0x0ce9,0x0cef,0x0cf1,0x0cfe,0x0d01,0x0d11,0x0d13,0x0d2b,0x0d2f,0x0d3a,0x0d3c,0x0d3e,0x0d46,0x0d4a,0x0d5a 1897 ; -------------------------------------------------------------------------------------- 1897 ; Debug chain 1897 ; -------------------------------------------------------------------------------------- 1897 0002 0009 | | .DBGLEN 0x0002,0x0009 1899 0d63 0d67 | c g| .DBGLNO 0x0d63,0x0d67,0x0d6c,0x0d72,0x0d75,0x0d78,0x0d7e,0x0d83,0x0d85,0x0d98,0x0da3 18a4 ; -------------------------------------------------------------------------------------- 18a4 ; Debug chain 18a4 ; -------------------------------------------------------------------------------------- 18a4 0001 0003 | | .DBGLEN 0x0001,0x0003 18a6 0dab 0db1 | | .DBGLNO 0x0dab,0x0db1,0x0dc5,0x0dc9 18aa ; -------------------------------------------------------------------------------------- 18aa ; Debug chain 18aa ; -------------------------------------------------------------------------------------- 18aa 0000 0007 | | .DBGLEN 0x0000,0x0007 18ac 0ddb 0de0 | | .DBGLNO 0x0ddb,0x0de0,0x0de2,0x0deb,0x0df9,0x0dfd,0x0e04 18b3 ; -------------------------------------------------------------------------------------- 18b3 ; Debug chain 18b3 ; -------------------------------------------------------------------------------------- 18b3 0001 000e | | .DBGLEN 0x0001,0x000e 18b5 0e0b 0e0f | | .DBGLNO 0x0e0b,0x0e0f,0x0e24,0x0e2b,0x0e2e,0x0e32,0x0e41,0x0e46,0x0e5b,0x0e62,0x0e65,0x0e69,0x0e78,0x0e7d,0x0e7f 18c4 ; -------------------------------------------------------------------------------------- 18c4 ; Debug chain 18c4 ; -------------------------------------------------------------------------------------- 18c4 0001 000c | | .DBGLEN 0x0001,0x000c 18c6 0e93 0e97 | | .DBGLNO 0x0e93,0x0e97,0x0eac,0x0eb6,0x0eba,0x0ec6,0x0ecb,0x0ee0,0x0eea,0x0eee,0x0efa,0x0eff,0x0f01 18d3 0000 0000 | | .BLANK 0000[0x12d]