|
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: 6144 (0x1800)
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 0a08 | | .CONST 0x0a08 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0016 | | .CONST 0x0016 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0013 00c7 | | Action Elaborate_Subprogram
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 BODY_0008:
0016 00bc | | Action Signal_Activated
0017 00bb | | Action Signal_Completion
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 004f | O | .CONST 0x004f ; Address of begin
0019 024b | K | .CONST 0x024b ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b 00da | | Load_Top At_Offset_2
001c e001 | | Load 0x0,0x1
001d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
001f e5fd | | Load 0x2,-0x3
0020 e5ff | | Load 0x2,-0x1
0021 8002 | | Call 0x0,0x2
0022 e003 | | Load 0x0,0x3
0023 180e | | Execute Package,Field_Execute,Field_Number 0xe
0024 00da | | Load_Top At_Offset_2
0025 e004 | | Load 0x0,0x4
0026 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0027 00d8 | | Load_Top At_Offset_0
0028 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0029 0007 | | Action Break_Optional
002a e003 | | Load 0x0,0x3
002b 180e | | Execute Package,Field_Execute,Field_Number 0xe
002c e402 | | Load 0x2,0x2
002d e004 | | Load 0x0,0x4
002e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
002f 4801 |H | Short_Literal 0x1
0030 00d9 | | Load_Top At_Offset_1
0031 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0032 00da | | Load_Top At_Offset_2
0033 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0034 01cf | | Execute Vector,Slice_Read
0035 e005 | | Load 0x0,0x5
0036 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0037 e403 | | Load 0x2,0x3
0038 0092 0581 | | Action Push_String_Extended,0x581 ; "/adafamily.add"
003a 01cc | | Execute Vector,Catenate
003b 0007 | | Action Break_Optional
003c 0092 0582 | | Action Push_String_Extended,0x582 ; "ada family_manager.new family="
003e e403 | | Load 0x2,0x3
003f 01cc | | Execute Vector,Catenate
0040 0007 | | Action Break_Optional
0041 e5fd | | Load 0x2,-0x3
0042 0092 0583 | | Action Push_String_Extended,0x583 ; "/adalib"
0044 01cc | | Execute Vector,Catenate
0045 0007 | | Action Break_Optional
0046 e006 | | Load 0x0,0x6
0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0048 02c7 | | Declare_Variable Any
0049 00d8 | | Load_Top At_Offset_0
004a 1c00 | | Execute_Immediate Run_Utility,0x0
004b 00e1 | | Load_Encached Boolean_Cache
004c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
004d 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
004f BODY_0018:
004f e007 | | Load 0x0,0x7
0050 7002 |p | Jump_Nonzero 0x53
0051 e5fb | | Load 0x2,-0x5
0052 681e |h | Jump_Zero 0x71
0053 e003 | | Load 0x0,0x3
0054 180e | | Execute Package,Field_Execute,Field_Number 0xe
0055 4809 |H | Short_Literal 0x9
0056 0092 0584 | | Action Push_String_Extended,0x584 ; "#~Build_Libraries (View_Obj => "
0058 e402 | | Load 0x2,0x2
0059 01cc | | Execute Vector,Catenate
005a 0092 0585 | | Action Push_String_Extended,0x585 ; ", Remote_Machine"
005c 01cc | | Execute Vector,Catenate
005d e5fe | | Load 0x2,-0x2
005e 8008 | | Call 0x0,0x8
005f 01cc | | Execute Vector,Catenate
0060 0092 0586 | | Action Push_String_Extended,0x586 ; ", Remote_Directory"
0062 01cc | | Execute Vector,Catenate
0063 e5fd | | Load 0x2,-0x3
0064 8008 | | Call 0x0,0x8
0065 01cc | | Execute Vector,Catenate
0066 0092 0587 | | Action Push_String_Extended,0x587 ; ", Remote_Program_Library"
0068 01cc | | Execute Vector,Catenate
0069 e5fc | | Load 0x2,-0x4
006a 8008 | | Call 0x0,0x8
006b 01cc | | Execute Vector,Catenate
006c 0092 0588 | | Action Push_String_Extended,0x588 ; ")"
006e 01cc | | Execute Vector,Catenate
006f e009 | | Load 0x0,0x9
0070 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0071 e003 | | Load 0x0,0x3
0072 180e | | Execute Package,Field_Execute,Field_Number 0xe
0073 4804 |H | Short_Literal 0x4
0074 0092 0589 | | Action Push_String_Extended,0x589 ; "Entering Build_Libraries"
0076 e009 | | Load 0x0,0x9
0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0078 e5fb | | Load 0x2,-0x5
0079 e404 | | Load 0x2,0x4
007a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
007b 800a | | Call 0x0,0xa
007c 680c |h | Jump_Zero 0x89
007d e5fa | | Load 0x2,-0x6
007e 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
0080 4802 |H | Short_Literal 0x2
0081 0092 058b | | Action Push_String_Extended,0x58b ; "Can't get Remote_Machine switch for view "
0083 e402 | | Load 0x2,0x2
0084 01cc | | Execute Vector,Catenate
0085 e00b | | Load 0x0,0xb
0086 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0087 c5fa | | Store 0x2,-0x6
0088 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0089 e5fb | | Load 0x2,-0x5
008a e406 | | Load 0x2,0x6
008b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
008c 800a | | Call 0x0,0xa
008d 680c |h | Jump_Zero 0x9a
008e e5fa | | Load 0x2,-0x6
008f 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
0091 4802 |H | Short_Literal 0x2
0092 0092 058c | | Action Push_String_Extended,0x58c ; "Can't get Remote_Directory switch for view "
0094 e402 | | Load 0x2,0x2
0095 01cc | | Execute Vector,Catenate
0096 e00b | | Load 0x0,0xb
0097 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0098 c5fa | | Store 0x2,-0x6
0099 4506 |E | Exit_Suprogram New_Top_Offset 0x6
009a e007 | | Load 0x0,0x7
009b 7002 |p | Jump_Nonzero 0x9e
009c e5fb | | Load 0x2,-0x5
009d 6816 |h | Jump_Zero 0xb4
009e e405 | | Load 0x2,0x5
009f 01db | | Execute Vector,Length
00a0 7003 |p | Jump_Nonzero 0xa4
00a1 e407 | | Load 0x2,0x7
00a2 01db | | Execute Vector,Length
00a3 6810 |h | Jump_Zero 0xb4
00a4 e003 | | Load 0x0,0x3
00a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a6 4802 |H | Short_Literal 0x2
00a7 0092 058d | | Action Push_String_Extended,0x58d ; "#~Old switch values: Remote_Machine "
00a9 e405 | | Load 0x2,0x5
00aa 8008 | | Call 0x0,0x8
00ab 01cc | | Execute Vector,Catenate
00ac 0092 058e | | Action Push_String_Extended,0x58e ; ", Remote_Directory "
00ae 01cc | | Execute Vector,Catenate
00af e407 | | Load 0x2,0x7
00b0 8008 | | Call 0x0,0x8
00b1 01cc | | Execute Vector,Catenate
00b2 e009 | | Load 0x0,0x9
00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b4 e403 | | Load 0x2,0x3
00b5 01db | | Execute Vector,Length
00b6 700d |p | Jump_Nonzero 0xc4
00b7 e5fa | | Load 0x2,-0x6
00b8 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
00ba 4802 |H | Short_Literal 0x2
00bb 0092 058f | | Action Push_String_Extended,0x58f ; "Can't derive a family name from the remote pathname "
00bd e5fd | | Load 0x2,-0x3
00be 800c | | Call 0x0,0xc
00bf 01cc | | Execute Vector,Catenate
00c0 e00b | | Load 0x0,0xb
00c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c2 c5fa | | Store 0x2,-0x6
00c3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00c4 e5fa | | Load 0x2,-0x6
00c5 00db | | Load_Top At_Offset_3
00c6 0120 | | Execute Any,Is_Value
00c7 6803 |h | Jump_Zero 0xcb
00c8 e006 | | Load 0x0,0x6
00c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ca 7801 |x | Jump 0xcc
00cb 00db | | Load_Top At_Offset_3
00cc e007 | | Load 0x0,0x7
00cd 7002 |p | Jump_Nonzero 0xd0
00ce e5fb | | Load 0x2,-0x5
00cf 7801 |x | Jump 0xd1
00d0 4801 |H | Short_Literal 0x1
00d1 e00d | | Load 0x0,0xd
00d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d3 e00d | | Load 0x0,0xd
00d4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d5 e5fe | | Load 0x2,-0x2
00d6 0092 0590 | | Action Push_String_Extended,0x590 ; "I386_Unix_Als_Xt"
00d8 e006 | | Load 0x0,0x6
00d9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00da c40b | | Store 0x2,0xb
00db c5fa | | Store 0x2,-0x6
00dc e5fb | | Load 0x2,-0x5
00dd e5fa | | Load 0x2,-0x6
00de 800a | | Call 0x0,0xa
00df 680c |h | Jump_Zero 0xec
00e0 e5fa | | Load 0x2,-0x6
00e1 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
00e3 4802 |H | Short_Literal 0x2
00e4 0092 0591 | | Action Push_String_Extended,0x591 ; "Can't acquire a connection to "
00e6 e5fe | | Load 0x2,-0x2
00e7 01cc | | Execute Vector,Catenate
00e8 e00b | | Load 0x0,0xb
00e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ea c5fa | | Store 0x2,-0x6
00eb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ec e5fa | | Load 0x2,-0x6
00ed e5fb | | Load 0x2,-0x5
00ee e40b | | Load 0x2,0xb
00ef 0092 0592 | | Action Push_String_Extended,0x592 ; "test -f "
00f1 e408 | | Load 0x2,0x8
00f2 01cc | | Execute Vector,Catenate
00f3 800e | | Call 0x0,0xe
00f4 c5fa | | Store 0x2,-0x6
00f5 4802 |H | Short_Literal 0x2
00f6 e5fa | | Load 0x2,-0x6
00f7 e00f | | Load 0x0,0xf
00f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f9 7011 |p | Jump_Nonzero 0x10b
00fa e007 | | Load 0x0,0x7
00fb 7002 |p | Jump_Nonzero 0xfe
00fc e5fb | | Load 0x2,-0x5
00fd 6880 |h | Jump_Zero 0x17e
00fe e003 | | Load 0x0,0x3
00ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0100 4802 |H | Short_Literal 0x2
0101 0092 0593 | | Action Push_String_Extended,0x593 ; "#~Reusing the existing Alsys family \x22"
0103 e403 | | Load 0x2,0x3
0104 01cc | | Execute Vector,Catenate
0105 0092 0594 | | Action Push_String_Extended,0x594 ; "\x22"
0107 01cc | | Execute Vector,Catenate
0108 e009 | | Load 0x0,0x9
0109 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010a 7873 |xs | Jump 0x17e
010b e007 | | Load 0x0,0x7
010c 680b |h | Jump_Zero 0x118
010d e003 | | Load 0x0,0x3
010e 180e | | Execute Package,Field_Execute,Field_Number 0xe
010f 4802 |H | Short_Literal 0x2
0110 0092 0595 | | Action Push_String_Extended,0x595 ; "#~"
0112 e5fa | | Load 0x2,-0x6
0113 e00f | | Load 0x0,0xf
0114 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0115 01cc | | Execute Vector,Catenate
0116 e009 | | Load 0x0,0x9
0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0118 e007 | | Load 0x0,0x7
0119 7002 |p | Jump_Nonzero 0x11c
011a e5fb | | Load 0x2,-0x5
011b 680d |h | Jump_Zero 0x129
011c e003 | | Load 0x0,0x3
011d 180e | | Execute Package,Field_Execute,Field_Number 0xe
011e 4802 |H | Short_Literal 0x2
011f 0092 0596 | | Action Push_String_Extended,0x596 ; "#~The remote file "
0121 e408 | | Load 0x2,0x8
0122 800c | | Call 0x0,0xc
0123 01cc | | Execute Vector,Catenate
0124 0092 0597 | | Action Push_String_Extended,0x597 ; " does not exist"
0126 01cc | | Execute Vector,Catenate
0127 e009 | | Load 0x0,0x9
0128 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0129 00e1 | | Load_Encached Boolean_Cache
012a e5fa | | Load 0x2,-0x6
012b e5fb | | Load 0x2,-0x5
012c e40b | | Load 0x2,0xb
012d e403 | | Load 0x2,0x3
012e 8010 | | Call 0x0,0x10
012f c5fa | | Store 0x2,-0x6
0130 005a | Z | Store_Top Discrete,At_Offset_2
0131 4802 |H | Short_Literal 0x2
0132 e5fa | | Load 0x2,-0x6
0133 e00f | | Load 0x0,0xf
0134 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0135 6801 |h | Jump_Zero 0x137
0136 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0137 00d9 | | Load_Top At_Offset_1
0138 6810 |h | Jump_Zero 0x149
0139 e5fa | | Load 0x2,-0x6
013a 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
013c 4802 |H | Short_Literal 0x2
013d 0092 0598 | | Action Push_String_Extended,0x598 ; "An Alsys family can only be created in a new directory, but the remote directory "
013f e403 | | Load 0x2,0x3
0140 800c | | Call 0x0,0xc
0141 01cc | | Execute Vector,Catenate
0142 0092 0599 | | Action Push_String_Extended,0x599 ; " already exists"
0144 01cc | | Execute Vector,Catenate
0145 e00b | | Load 0x0,0xb
0146 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0147 c5fa | | Store 0x2,-0x6
0148 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0149 840d | | Call 0x2,0xd
014a e003 | | Load 0x0,0x3
014b 180e | | Execute Package,Field_Execute,Field_Number 0xe
014c 4804 |H | Short_Literal 0x4
014d 0092 059a | | Action Push_String_Extended,0x59a ; "Creating remote family library "
014f e403 | | Load 0x2,0x3
0150 800c | | Call 0x0,0xc
0151 01cc | | Execute Vector,Catenate
0152 e009 | | Load 0x0,0x9
0153 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0154 e007 | | Load 0x0,0x7
0155 7002 |p | Jump_Nonzero 0x158
0156 e5fb | | Load 0x2,-0x5
0157 680a |h | Jump_Zero 0x162
0158 e003 | | Load 0x0,0x3
0159 180e | | Execute Package,Field_Execute,Field_Number 0xe
015a 4804 |H | Short_Literal 0x4
015b 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
015d e409 | | Load 0x2,0x9
015e 800c | | Call 0x0,0xc
015f 01cc | | Execute Vector,Catenate
0160 e009 | | Load 0x0,0x9
0161 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0162 e5fa | | Load 0x2,-0x6
0163 e5fb | | Load 0x2,-0x5
0164 e40b | | Load 0x2,0xb
0165 e409 | | Load 0x2,0x9
0166 800e | | Call 0x0,0xe
0167 c5fa | | Store 0x2,-0x6
0168 e5fb | | Load 0x2,-0x5
0169 e5fa | | Load 0x2,-0x6
016a 800a | | Call 0x0,0xa
016b 6812 |h | Jump_Zero 0x17e
016c e003 | | Load 0x0,0x3
016d 180e | | Execute Package,Field_Execute,Field_Number 0xe
016e 4807 |H | Short_Literal 0x7
016f 0092 059c | | Action Push_String_Extended,0x59c ; "Can't create the remote ada family in "
0171 e403 | | Load 0x2,0x3
0172 800c | | Call 0x0,0xc
0173 01cc | | Execute Vector,Catenate
0174 0092 059d | | Action Push_String_Extended,0x59d ; ". "
0176 01cc | | Execute Vector,Catenate
0177 e5fa | | Load 0x2,-0x6
0178 e00f | | Load 0x0,0xf
0179 1819 | | Execute Package,Field_Execute,Field_Number 0x19
017a 01cc | | Execute Vector,Catenate
017b e009 | | Load 0x0,0x9
017c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017d 4506 |E | Exit_Suprogram New_Top_Offset 0x6
017e e405 | | Load 0x2,0x5
017f 01db | | Execute Vector,Length
0180 681d |h | Jump_Zero 0x19e
0181 4801 |H | Short_Literal 0x1
0182 e405 | | Load 0x2,0x5
0183 e5fe | | Load 0x2,-0x2
0184 e005 | | Load 0x0,0x5
0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0186 7017 |p | Jump_Nonzero 0x19e
0187 e003 | | Load 0x0,0x3
0188 180e | | Execute Package,Field_Execute,Field_Number 0xe
0189 4806 |H | Short_Literal 0x6
018a 0092 059e | | Action Push_String_Extended,0x59e ; "Building new library on different machine "
018c e5fe | | Load 0x2,-0x2
018d 800c | | Call 0x0,0xc
018e 01cc | | Execute Vector,Catenate
018f 0092 059f | | Action Push_String_Extended,0x59f ; ". Old library "
0191 01cc | | Execute Vector,Catenate
0192 e407 | | Load 0x2,0x7
0193 800c | | Call 0x0,0xc
0194 01cc | | Execute Vector,Catenate
0195 0092 05a0 | | Action Push_String_Extended,0x5a0 ; " is on machine "
0197 01cc | | Execute Vector,Catenate
0198 e405 | | Load 0x2,0x5
0199 800c | | Call 0x0,0xc
019a 01cc | | Execute Vector,Catenate
019b e009 | | Load 0x0,0x9
019c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019d 7822 |x" | Jump 0x1c0
019e e407 | | Load 0x2,0x7
019f 01db | | Execute Vector,Length
01a0 681f |h | Jump_Zero 0x1c0
01a1 00e1 | | Load_Encached Boolean_Cache
01a2 e5fa | | Load 0x2,-0x6
01a3 e5fb | | Load 0x2,-0x5
01a4 e40b | | Load 0x2,0xb
01a5 e407 | | Load 0x2,0x7
01a6 8010 | | Call 0x0,0x10
01a7 c5fa | | Store 0x2,-0x6
01a8 005a | Z | Store_Top Discrete,At_Offset_2
01a9 4802 |H | Short_Literal 0x2
01aa e5fa | | Load 0x2,-0x6
01ab e00f | | Load 0x0,0xf
01ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ad 6801 |h | Jump_Zero 0x1af
01ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01af 00d9 | | Load_Top At_Offset_1
01b0 680f |h | Jump_Zero 0x1c0
01b1 e003 | | Load 0x0,0x3
01b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b3 4806 |H | Short_Literal 0x6
01b4 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "The old Remote_Directory "
01b6 e407 | | Load 0x2,0x7
01b7 800c | | Call 0x0,0xc
01b8 01cc | | Execute Vector,Catenate
01b9 0092 05a2 | | Action Push_String_Extended,0x5a2 ; " still exists on "
01bb 01cc | | Execute Vector,Catenate
01bc e5fe | | Load 0x2,-0x2
01bd 01cc | | Execute Vector,Catenate
01be e009 | | Load 0x0,0x9
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 00e1 | | Load_Encached Boolean_Cache
01c1 e5fa | | Load 0x2,-0x6
01c2 e5fb | | Load 0x2,-0x5
01c3 e40b | | Load 0x2,0xb
01c4 e5fd | | Load 0x2,-0x3
01c5 8010 | | Call 0x0,0x10
01c6 c5fa | | Store 0x2,-0x6
01c7 005a | Z | Store_Top Discrete,At_Offset_2
01c8 4802 |H | Short_Literal 0x2
01c9 e5fa | | Load 0x2,-0x6
01ca e00f | | Load 0x0,0xf
01cb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01cc 6801 |h | Jump_Zero 0x1ce
01cd 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01ce 00d9 | | Load_Top At_Offset_1
01cf 6815 |h | Jump_Zero 0x1e5
01d0 e003 | | Load 0x0,0x3
01d1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d2 4806 |H | Short_Literal 0x6
01d3 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "Directory "
01d5 e5fd | | Load 0x2,-0x3
01d6 800c | | Call 0x0,0xc
01d7 01cc | | Execute Vector,Catenate
01d8 0092 0599 | | Action Push_String_Extended,0x599 ; " already exists"
01da 01cc | | Execute Vector,Catenate
01db e009 | | Load 0x0,0x9
01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01dd e003 | | Load 0x0,0x3
01de 180e | | Execute Package,Field_Execute,Field_Number 0xe
01df 4802 |H | Short_Literal 0x2
01e0 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "Using an existing directory"
01e2 e009 | | Load 0x0,0x9
01e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e4 7816 |x | Jump 0x1fb
01e5 e003 | | Load 0x0,0x3
01e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e7 4802 |H | Short_Literal 0x2
01e8 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Creating the new remote directory "
01ea e5fd | | Load 0x2,-0x3
01eb 800c | | Call 0x0,0xc
01ec 01cc | | Execute Vector,Catenate
01ed e009 | | Load 0x0,0x9
01ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ef e5fa | | Load 0x2,-0x6
01f0 e5fb | | Load 0x2,-0x5
01f1 e40b | | Load 0x2,0xb
01f2 e5fd | | Load 0x2,-0x3
01f3 8011 | | Call 0x0,0x11
01f4 c5fa | | Store 0x2,-0x6
01f5 4802 |H | Short_Literal 0x2
01f6 e5fa | | Load 0x2,-0x6
01f7 e00f | | Load 0x0,0xf
01f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f9 6801 |h | Jump_Zero 0x1fb
01fa 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01fb 00e1 | | Load_Encached Boolean_Cache
01fc e5fa | | Load 0x2,-0x6
01fd e5fb | | Load 0x2,-0x5
01fe e40b | | Load 0x2,0xb
01ff e40a | | Load 0x2,0xa
0200 8010 | | Call 0x0,0x10
0201 c5fa | | Store 0x2,-0x6
0202 005a | Z | Store_Top Discrete,At_Offset_2
0203 4802 |H | Short_Literal 0x2
0204 e5fa | | Load 0x2,-0x6
0205 e00f | | Load 0x0,0xf
0206 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0207 6801 |h | Jump_Zero 0x209
0208 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0209 00d9 | | Load_Top At_Offset_1
020a 6812 |h | Jump_Zero 0x21d
020b e003 | | Load 0x0,0x3
020c 180e | | Execute Package,Field_Execute,Field_Number 0xe
020d 4806 |H | Short_Literal 0x6
020e 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "A program library already exists in "
0210 e40a | | Load 0x2,0xa
0211 800c | | Call 0x0,0xc
0212 01cc | | Execute Vector,Catenate
0213 e009 | | Load 0x0,0x9
0214 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0215 e003 | | Load 0x0,0x3
0216 180e | | Execute Package,Field_Execute,Field_Number 0xe
0217 4806 |H | Short_Literal 0x6
0218 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "The existing program library will be used"
021a e009 | | Load 0x0,0x9
021b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
021d e003 | | Load 0x0,0x3
021e 180e | | Execute Package,Field_Execute,Field_Number 0xe
021f 4802 |H | Short_Literal 0x2
0220 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Creating the new remote program library "
0222 e40a | | Load 0x2,0xa
0223 800c | | Call 0x0,0xc
0224 01cc | | Execute Vector,Catenate
0225 e009 | | Load 0x0,0x9
0226 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0227 e5fa | | Load 0x2,-0x6
0228 e5fb | | Load 0x2,-0x5
0229 e40b | | Load 0x2,0xb
022a e5fe | | Load 0x2,-0x2
022b e40a | | Load 0x2,0xa
022c e5fd | | Load 0x2,-0x3
022d e402 | | Load 0x2,0x2
022e 820f | | Call 0x1,0xf
022f c5fa | | Store 0x2,-0x6
0230 4802 |H | Short_Literal 0x2
0231 e5fa | | Load 0x2,-0x6
0232 e00f | | Load 0x0,0xf
0233 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0234 680d |h | Jump_Zero 0x242
0235 e5fa | | Load 0x2,-0x6
0236 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
0238 4802 |H | Short_Literal 0x2
0239 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Can't build remote program library "
023b e40a | | Load 0x2,0xa
023c 800c | | Call 0x0,0xc
023d 01cc | | Execute Vector,Catenate
023e e00b | | Load 0x0,0xb
023f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0240 c5fa | | Store 0x2,-0x6
0241 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0242 e5fa | | Load 0x2,-0x6
0243 e003 | | Load 0x0,0x3
0244 180e | | Execute Package,Field_Execute,Field_Number 0xe
0245 e5fd | | Load 0x2,-0x3
0246 e402 | | Load 0x2,0x2
0247 e004 | | Load 0x0,0x4
0248 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0249 c5fa | | Store 0x2,-0x6
024a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024b TRAP_0018:
024b 0007 | | Action Break_Optional
024c e5fa | | Load 0x2,-0x6
024d 0092 05aa | | Action Push_String_Extended,0x5aa ; "Build_Libraries"
024f e00b | | Load 0x0,0xb
0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0251 c5fa | | Store 0x2,-0x6
0252 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0266 | f | .CONST 0x0266 ; Address of begin
0259 03df | | .CONST 0x03df ; Address of exception handler
025a 0005 | | .CONST 0x0005 ; Number of locals
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e001 | | Load 0x0,0x1
025d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
025f e5fe | | Load 0x2,-0x2
0260 e5ff | | Load 0x2,-0x1
0261 8002 | | Call 0x0,0x2
0262 00e1 | | Load_Encached Boolean_Cache
0263 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0264 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
0266 BODY_0258:
0266 e007 | | Load 0x0,0x7
0267 7002 |p | Jump_Nonzero 0x26a
0268 e5fc | | Load 0x2,-0x4
0269 6813 |h | Jump_Zero 0x27d
026a e003 | | Load 0x0,0x3
026b 180e | | Execute Package,Field_Execute,Field_Number 0xe
026c 4809 |H | Short_Literal 0x9
026d 0092 05ab | | Action Push_String_Extended,0x5ab ; "#~Destroy_Library (Host_View"
026f e402 | | Load 0x2,0x2
0270 8008 | | Call 0x0,0x8
0271 01cc | | Execute Vector,Catenate
0272 0092 0586 | | Action Push_String_Extended,0x586 ; ", Remote_Directory"
0274 01cc | | Execute Vector,Catenate
0275 e5fe | | Load 0x2,-0x2
0276 8008 | | Call 0x0,0x8
0277 01cc | | Execute Vector,Catenate
0278 0092 0588 | | Action Push_String_Extended,0x588 ; ")"
027a 01cc | | Execute Vector,Catenate
027b e009 | | Load 0x0,0x9
027c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027d e003 | | Load 0x0,0x3
027e 180e | | Execute Package,Field_Execute,Field_Number 0xe
027f 4804 |H | Short_Literal 0x4
0280 0092 05ac | | Action Push_String_Extended,0x5ac ; "Executing Destroy_Library"
0282 e009 | | Load 0x0,0x9
0283 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0284 00da | | Load_Top At_Offset_2
0285 01db | | Execute Vector,Length
0286 700d |p | Jump_Nonzero 0x294
0287 e5fb | | Load 0x2,-0x5
0288 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
028a 4802 |H | Short_Literal 0x2
028b 0092 058f | | Action Push_String_Extended,0x58f ; "Can't derive a family name from the remote pathname "
028d e5fe | | Load 0x2,-0x2
028e 800c | | Call 0x0,0xc
028f 01cc | | Execute Vector,Catenate
0290 e00b | | Load 0x0,0xb
0291 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0292 c5fb | | Store 0x2,-0x5
0293 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0294 00e1 | | Load_Encached Boolean_Cache
0295 e5fb | | Load 0x2,-0x5
0296 e5fc | | Load 0x2,-0x4
0297 e5fd | | Load 0x2,-0x3
0298 e5fe | | Load 0x2,-0x2
0299 0092 0583 | | Action Push_String_Extended,0x583 ; "/adalib"
029b 01cc | | Execute Vector,Catenate
029c 8010 | | Call 0x0,0x10
029d c5fb | | Store 0x2,-0x5
029e 005a | Z | Store_Top Discrete,At_Offset_2
029f 4802 |H | Short_Literal 0x2
02a0 e5fb | | Load 0x2,-0x5
02a1 e00f | | Load 0x0,0xf
02a2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02a3 6801 |h | Jump_Zero 0x2a5
02a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02a5 00d9 | | Load_Top At_Offset_1
02a6 7010 |p | Jump_Nonzero 0x2b7
02a7 e003 | | Load 0x0,0x3
02a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
02a9 4806 |H | Short_Literal 0x6
02aa 0092 05ad | | Action Push_String_Extended,0x5ad ; "Remote directory "
02ac e5fe | | Load 0x2,-0x2
02ad 01cc | | Execute Vector,Catenate
02ae 0092 05ae | | Action Push_String_Extended,0x5ae ; " doesn't contain an Ada program library"
02b0 01cc | | Execute Vector,Catenate
02b1 0092 05af | | Action Push_String_Extended,0x5af ; ", so it can't be destroyed"
02b3 01cc | | Execute Vector,Catenate
02b4 e009 | | Load 0x0,0x9
02b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02b7 e007 | | Load 0x0,0x7
02b8 7002 |p | Jump_Nonzero 0x2bb
02b9 e5fc | | Load 0x2,-0x4
02ba 6815 |h | Jump_Zero 0x2d0
02bb e003 | | Load 0x0,0x3
02bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bd 4804 |H | Short_Literal 0x4
02be 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
02c0 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "ada lib_manager\x5c("
02c2 e403 | | Load 0x2,0x3
02c3 01cc | | Execute Vector,Catenate
02c4 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "\x5c).erase libraries="
02c6 01cc | | Execute Vector,Catenate
02c7 e5fe | | Load 0x2,-0x2
02c8 01cc | | Execute Vector,Catenate
02c9 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "/adalib confirm=no"
02cb 01cc | | Execute Vector,Catenate
02cc 800c | | Call 0x0,0xc
02cd 01cc | | Execute Vector,Catenate
02ce e009 | | Load 0x0,0x9
02cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d0 e003 | | Load 0x0,0x3
02d1 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d2 4804 |H | Short_Literal 0x4
02d3 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Erasing remote library "
02d5 e5fe | | Load 0x2,-0x2
02d6 800c | | Call 0x0,0xc
02d7 01cc | | Execute Vector,Catenate
02d8 e009 | | Load 0x0,0x9
02d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02da e5fb | | Load 0x2,-0x5
02db e5fc | | Load 0x2,-0x4
02dc e5fd | | Load 0x2,-0x3
02dd 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "ada lib_manager\x5c("
02df e403 | | Load 0x2,0x3
02e0 01cc | | Execute Vector,Catenate
02e1 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "\x5c).erase libraries="
02e3 01cc | | Execute Vector,Catenate
02e4 e5fe | | Load 0x2,-0x2
02e5 01cc | | Execute Vector,Catenate
02e6 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "/adalib confirm=no"
02e8 01cc | | Execute Vector,Catenate
02e9 800e | | Call 0x0,0xe
02ea c5fb | | Store 0x2,-0x5
02eb e5fc | | Load 0x2,-0x4
02ec e5fb | | Load 0x2,-0x5
02ed 800a | | Call 0x0,0xa
02ee 6812 |h | Jump_Zero 0x301
02ef e003 | | Load 0x0,0x3
02f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f1 4807 |H | Short_Literal 0x7
02f2 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "Can't erase the Ada library in "
02f4 e5fe | | Load 0x2,-0x2
02f5 800c | | Call 0x0,0xc
02f6 01cc | | Execute Vector,Catenate
02f7 0092 059d | | Action Push_String_Extended,0x59d ; ". "
02f9 01cc | | Execute Vector,Catenate
02fa e5fb | | Load 0x2,-0x5
02fb e00f | | Load 0x0,0xf
02fc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02fd 01cc | | Execute Vector,Catenate
02fe e009 | | Load 0x0,0x9
02ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0300 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0301 e5ff | | Load 0x2,-0x1
0302 8012 | | Call 0x0,0x12
0303 00e1 | | Load_Encached Boolean_Cache
0304 e5fb | | Load 0x2,-0x5
0305 e5fc | | Load 0x2,-0x4
0306 e5fd | | Load 0x2,-0x3
0307 e5fe | | Load 0x2,-0x2
0308 8010 | | Call 0x0,0x10
0309 c5fb | | Store 0x2,-0x5
030a 005a | Z | Store_Top Discrete,At_Offset_2
030b 4802 |H | Short_Literal 0x2
030c e5fb | | Load 0x2,-0x5
030d e00f | | Load 0x0,0xf
030e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
030f 6801 |h | Jump_Zero 0x311
0310 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0311 00d9 | | Load_Top At_Offset_1
0312 7012 |p | Jump_Nonzero 0x325
0313 e003 | | Load 0x0,0x3
0314 180e | | Execute Package,Field_Execute,Field_Number 0xe
0315 4806 |H | Short_Literal 0x6
0316 0092 05ad | | Action Push_String_Extended,0x5ad ; "Remote directory "
0318 e5fe | | Load 0x2,-0x2
0319 01cc | | Execute Vector,Catenate
031a 0092 05b5 | | Action Push_String_Extended,0x5b5 ; " doesn't exist for view "
031c 01cc | | Execute Vector,Catenate
031d e402 | | Load 0x2,0x2
031e 01cc | | Execute Vector,Catenate
031f 0092 05af | | Action Push_String_Extended,0x5af ; ", so it can't be destroyed"
0321 01cc | | Execute Vector,Catenate
0322 e009 | | Load 0x0,0x9
0323 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0324 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0325 8405 | | Call 0x2,0x5
0326 e007 | | Load 0x0,0x7
0327 7002 |p | Jump_Nonzero 0x32a
0328 e5fc | | Load 0x2,-0x4
0329 680d |h | Jump_Zero 0x337
032a e003 | | Load 0x0,0x3
032b 180e | | Execute Package,Field_Execute,Field_Number 0xe
032c 4804 |H | Short_Literal 0x4
032d 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
032f 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "cd;chmod -R 777 "
0331 e5fe | | Load 0x2,-0x2
0332 01cc | | Execute Vector,Catenate
0333 800c | | Call 0x0,0xc
0334 01cc | | Execute Vector,Catenate
0335 e009 | | Load 0x0,0x9
0336 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0337 e5fb | | Load 0x2,-0x5
0338 e5fc | | Load 0x2,-0x4
0339 e5fd | | Load 0x2,-0x3
033a 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "cd;chmod -R 777 "
033c e5fe | | Load 0x2,-0x2
033d 01cc | | Execute Vector,Catenate
033e 800e | | Call 0x0,0xe
033f c5fb | | Store 0x2,-0x5
0340 e5fc | | Load 0x2,-0x4
0341 e5fb | | Load 0x2,-0x5
0342 800a | | Call 0x0,0xa
0343 680c |h | Jump_Zero 0x350
0344 e003 | | Load 0x0,0x3
0345 180e | | Execute Package,Field_Execute,Field_Number 0xe
0346 4807 |H | Short_Literal 0x7
0347 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Can't change protections. "
0349 e5fb | | Load 0x2,-0x5
034a e00f | | Load 0x0,0xf
034b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
034c 01cc | | Execute Vector,Catenate
034d e009 | | Load 0x0,0x9
034e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0350 e007 | | Load 0x0,0x7
0351 7002 |p | Jump_Nonzero 0x354
0352 e5fc | | Load 0x2,-0x4
0353 680d |h | Jump_Zero 0x361
0354 e003 | | Load 0x0,0x3
0355 180e | | Execute Package,Field_Execute,Field_Number 0xe
0356 4804 |H | Short_Literal 0x4
0357 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
0359 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "chmod 777 "
035b e5fe | | Load 0x2,-0x2
035c 01cc | | Execute Vector,Catenate
035d 800c | | Call 0x0,0xc
035e 01cc | | Execute Vector,Catenate
035f e009 | | Load 0x0,0x9
0360 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0361 e5fb | | Load 0x2,-0x5
0362 e5fc | | Load 0x2,-0x4
0363 e5fd | | Load 0x2,-0x3
0364 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "chmod 777 "
0366 e5fe | | Load 0x2,-0x2
0367 01cc | | Execute Vector,Catenate
0368 800e | | Call 0x0,0xe
0369 c5fb | | Store 0x2,-0x5
036a e5fc | | Load 0x2,-0x4
036b e5fb | | Load 0x2,-0x5
036c 800a | | Call 0x0,0xa
036d 680c |h | Jump_Zero 0x37a
036e e003 | | Load 0x0,0x3
036f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0370 4807 |H | Short_Literal 0x7
0371 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Can't change protections. "
0373 e5fb | | Load 0x2,-0x5
0374 e00f | | Load 0x0,0xf
0375 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0376 01cc | | Execute Vector,Catenate
0377 e009 | | Load 0x0,0x9
0378 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0379 4505 |E | Exit_Suprogram New_Top_Offset 0x5
037a e007 | | Load 0x0,0x7
037b 7002 |p | Jump_Nonzero 0x37e
037c e5fc | | Load 0x2,-0x4
037d 6810 |h | Jump_Zero 0x38e
037e e003 | | Load 0x0,0x3
037f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0380 4804 |H | Short_Literal 0x4
0381 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
0383 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "cd "
0385 e5fe | | Load 0x2,-0x2
0386 01cc | | Execute Vector,Catenate
0387 0092 05ba | | Action Push_String_Extended,0x5ba ; ";cd .."
0389 01cc | | Execute Vector,Catenate
038a 800c | | Call 0x0,0xc
038b 01cc | | Execute Vector,Catenate
038c e009 | | Load 0x0,0x9
038d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038e e5fb | | Load 0x2,-0x5
038f e5fc | | Load 0x2,-0x4
0390 e5fd | | Load 0x2,-0x3
0391 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "cd "
0393 e5fe | | Load 0x2,-0x2
0394 01cc | | Execute Vector,Catenate
0395 0092 05ba | | Action Push_String_Extended,0x5ba ; ";cd .."
0397 01cc | | Execute Vector,Catenate
0398 800e | | Call 0x0,0xe
0399 c5fb | | Store 0x2,-0x5
039a e5fc | | Load 0x2,-0x4
039b e5fb | | Load 0x2,-0x5
039c 800a | | Call 0x0,0xa
039d 6811 |h | Jump_Zero 0x3af
039e e003 | | Load 0x0,0x3
039f 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a0 4807 |H | Short_Literal 0x7
03a1 0092 05bb | | Action Push_String_Extended,0x5bb ; "Can't go to the enclosing directory for "
03a3 e5fe | | Load 0x2,-0x2
03a4 01cc | | Execute Vector,Catenate
03a5 0092 059d | | Action Push_String_Extended,0x59d ; ". "
03a7 01cc | | Execute Vector,Catenate
03a8 e5fb | | Load 0x2,-0x5
03a9 e00f | | Load 0x0,0xf
03aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ab 01cc | | Execute Vector,Catenate
03ac e009 | | Load 0x0,0x9
03ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03af e007 | | Load 0x0,0x7
03b0 7002 |p | Jump_Nonzero 0x3b3
03b1 e5fc | | Load 0x2,-0x4
03b2 680d |h | Jump_Zero 0x3c0
03b3 e003 | | Load 0x0,0x3
03b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b5 4804 |H | Short_Literal 0x4
03b6 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
03b8 0092 05bc | | Action Push_String_Extended,0x5bc ; "rm -r "
03ba e5fe | | Load 0x2,-0x2
03bb 01cc | | Execute Vector,Catenate
03bc 800c | | Call 0x0,0xc
03bd 01cc | | Execute Vector,Catenate
03be e009 | | Load 0x0,0x9
03bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c0 e5fb | | Load 0x2,-0x5
03c1 e5fc | | Load 0x2,-0x4
03c2 e5fd | | Load 0x2,-0x3
03c3 0092 05bc | | Action Push_String_Extended,0x5bc ; "rm -r "
03c5 e5fe | | Load 0x2,-0x2
03c6 01cc | | Execute Vector,Catenate
03c7 800e | | Call 0x0,0xe
03c8 c5fb | | Store 0x2,-0x5
03c9 e5fc | | Load 0x2,-0x4
03ca e5fb | | Load 0x2,-0x5
03cb 800a | | Call 0x0,0xa
03cc 6811 |h | Jump_Zero 0x3de
03cd e003 | | Load 0x0,0x3
03ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cf 4807 |H | Short_Literal 0x7
03d0 0092 05bd | | Action Push_String_Extended,0x5bd ; "Can't remove the contents of "
03d2 e5fe | | Load 0x2,-0x2
03d3 800c | | Call 0x0,0xc
03d4 01cc | | Execute Vector,Catenate
03d5 0092 059d | | Action Push_String_Extended,0x59d ; ". "
03d7 01cc | | Execute Vector,Catenate
03d8 e5fb | | Load 0x2,-0x5
03d9 e00f | | Load 0x0,0xf
03da 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03db 01cc | | Execute Vector,Catenate
03dc e009 | | Load 0x0,0x9
03dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03de 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03df TRAP_0258:
03df 0007 | | Action Break_Optional
03e0 e5fb | | Load 0x2,-0x5
03e1 0092 05be | | Action Push_String_Extended,0x5be ; "Destroy_Library"
03e3 e00b | | Load 0x0,0xb
03e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e5 c5fb | | Store 0x2,-0x5
03e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03e7 0000 | | .XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 0412 | | .CONST 0x0412 ; Address of begin
03e9 04bc | | .CONST 0x04bc ; Address of exception handler
03ea 0004 | | .CONST 0x0004 ; Number of locals
03eb INIT_03e8:
03eb 00db | | Load_Top At_Offset_3
03ec e003 | | Load 0x0,0x3
03ed 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ee e5ff | | Load 0x2,-0x1
03ef e013 | | Load 0x0,0x13
03f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03f2 8002 | | Call 0x0,0x2
03f3 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "ada lib_manager\x5c("
03f5 00d9 | | Load_Top At_Offset_1
03f6 01cc | | Execute Vector,Catenate
03f7 0092 05bf | | Action Push_String_Extended,0x5bf ; "\x5c).new "
03f9 01cc | | Execute Vector,Catenate
03fa e5fe | | Load 0x2,-0x2
03fb 01cc | | Execute Vector,Catenate
03fc 0092 0583 | | Action Push_String_Extended,0x583 ; "/adalib"
03fe 01cc | | Execute Vector,Catenate
03ff 0007 | | Action Break_Optional
0400 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "ada lib_manager\x5c("
0402 00da | | Load_Top At_Offset_2
0403 01cc | | Execute Vector,Catenate
0404 0092 05bf | | Action Push_String_Extended,0x5bf ; "\x5c).new "
0406 01cc | | Execute Vector,Catenate
0407 e5fe | | Load 0x2,-0x2
0408 01cc | | Execute Vector,Catenate
0409 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "/adalib "
040b 01cc | | Execute Vector,Catenate
040c 0092 05c1 | | Action Push_String_Extended,0x5c1 ; "annotate=RCI_LIB::"
040e 01cc | | Execute Vector,Catenate
040f e5fe | | Load 0x2,-0x2
0410 01cc | | Execute Vector,Catenate
0411 0007 | | Action Break_Optional
0412 BODY_03e8:
0412 e007 | | Load 0x0,0x7
0413 7002 |p | Jump_Nonzero 0x416
0414 e5fa | | Load 0x2,-0x6
0415 681f |h | Jump_Zero 0x435
0416 e003 | | Load 0x0,0x3
0417 180e | | Execute Package,Field_Execute,Field_Number 0xe
0418 4809 |H | Short_Literal 0x9
0419 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "#~Create_Program_Library (Host_View"
041b e5ff | | Load 0x2,-0x1
041c 8008 | | Call 0x0,0x8
041d 01cc | | Execute Vector,Catenate
041e 0092 0586 | | Action Push_String_Extended,0x586 ; ", Remote_Directory"
0420 01cc | | Execute Vector,Catenate
0421 e5fe | | Load 0x2,-0x2
0422 8008 | | Call 0x0,0x8
0423 01cc | | Execute Vector,Catenate
0424 0092 0587 | | Action Push_String_Extended,0x587 ; ", Remote_Program_Library"
0426 01cc | | Execute Vector,Catenate
0427 e5fd | | Load 0x2,-0x3
0428 8008 | | Call 0x0,0x8
0429 01cc | | Execute Vector,Catenate
042a 0092 0585 | | Action Push_String_Extended,0x585 ; ", Remote_Machine"
042c 01cc | | Execute Vector,Catenate
042d e5fc | | Load 0x2,-0x4
042e 8008 | | Call 0x0,0x8
042f 01cc | | Execute Vector,Catenate
0430 0092 0588 | | Action Push_String_Extended,0x588 ; ")"
0432 01cc | | Execute Vector,Catenate
0433 e009 | | Load 0x0,0x9
0434 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0435 e003 | | Load 0x0,0x3
0436 180e | | Execute Package,Field_Execute,Field_Number 0xe
0437 4804 |H | Short_Literal 0x4
0438 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "Creating remote program library "
043a e5fd | | Load 0x2,-0x3
043b 800c | | Call 0x0,0xc
043c 01cc | | Execute Vector,Catenate
043d e009 | | Load 0x0,0x9
043e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043f 00d8 | | Load_Top At_Offset_0
0440 01db | | Execute Vector,Length
0441 e014 | | Load 0x0,0x14
0442 027d | } | Execute Discrete,Greater
0443 6815 |h | Jump_Zero 0x459
0444 e007 | | Load 0x0,0x7
0445 7002 |p | Jump_Nonzero 0x448
0446 e5fa | | Load 0x2,-0x6
0447 680a |h | Jump_Zero 0x452
0448 e003 | | Load 0x0,0x3
0449 180e | | Execute Package,Field_Execute,Field_Number 0xe
044a 4804 |H | Short_Literal 0x4
044b 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
044d e403 | | Load 0x2,0x3
044e 800c | | Call 0x0,0xc
044f 01cc | | Execute Vector,Catenate
0450 e009 | | Load 0x0,0x9
0451 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0452 e5f9 | | Load 0x2,-0x7
0453 e5fa | | Load 0x2,-0x6
0454 e5fb | | Load 0x2,-0x5
0455 e403 | | Load 0x2,0x3
0456 800e | | Call 0x0,0xe
0457 c5f9 | | Store 0x2,-0x7
0458 7814 |x | Jump 0x46d
0459 e007 | | Load 0x0,0x7
045a 7002 |p | Jump_Nonzero 0x45d
045b e5fa | | Load 0x2,-0x6
045c 680a |h | Jump_Zero 0x467
045d e003 | | Load 0x0,0x3
045e 180e | | Execute Package,Field_Execute,Field_Number 0xe
045f 4804 |H | Short_Literal 0x4
0460 0092 059b | | Action Push_String_Extended,0x59b ; "#~Executing remote command: "
0462 00db | | Load_Top At_Offset_3
0463 800c | | Call 0x0,0xc
0464 01cc | | Execute Vector,Catenate
0465 e009 | | Load 0x0,0x9
0466 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0467 e5f9 | | Load 0x2,-0x7
0468 e5fa | | Load 0x2,-0x6
0469 e5fb | | Load 0x2,-0x5
046a 00db | | Load_Top At_Offset_3
046b 800e | | Call 0x0,0xe
046c c5f9 | | Store 0x2,-0x7
046d e5fa | | Load 0x2,-0x6
046e e5f9 | | Load 0x2,-0x7
046f 800a | | Call 0x0,0xa
0470 684a |hJ | Jump_Zero 0x4bb
0471 e003 | | Load 0x0,0x3
0472 180e | | Execute Package,Field_Execute,Field_Number 0xe
0473 4807 |H | Short_Literal 0x7
0474 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "Can't create a remote ada library in "
0476 e5fe | | Load 0x2,-0x2
0477 800c | | Call 0x0,0xc
0478 01cc | | Execute Vector,Catenate
0479 0092 059d | | Action Push_String_Extended,0x59d ; ". "
047b 01cc | | Execute Vector,Catenate
047c e5f9 | | Load 0x2,-0x7
047d e00f | | Load 0x0,0xf
047e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
047f 01cc | | Execute Vector,Catenate
0480 e009 | | Load 0x0,0x9
0481 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0482 e003 | | Load 0x0,0x3
0483 180e | | Execute Package,Field_Execute,Field_Number 0xe
0484 4807 |H | Short_Literal 0x7
0485 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "Creation of the remote Ada library failed"
0487 e009 | | Load 0x0,0x9
0488 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0489 e003 | | Load 0x0,0x3
048a 180e | | Execute Package,Field_Execute,Field_Number 0xe
048b 4805 |H | Short_Literal 0x5
048c 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "Possible causes of this failure include:"
048e e009 | | Load 0x0,0x9
048f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0490 e003 | | Load 0x0,0x3
0491 180e | | Execute Package,Field_Execute,Field_Number 0xe
0492 4805 |H | Short_Literal 0x5
0493 0092 05c7 | | Action Push_String_Extended,0x5c7 ; " - Invalid Username & Password from Session Switches or "
0495 e009 | | Load 0x0,0x9
0496 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0497 e003 | | Load 0x0,0x3
0498 180e | | Execute Package,Field_Execute,Field_Number 0xe
0499 4805 |H | Short_Literal 0x5
049a 0092 05c8 | | Action Push_String_Extended,0x5c8 ; " remote passwords file"
049c e009 | | Load 0x0,0x9
049d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
049e e003 | | Load 0x0,0x3
049f 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a0 4805 |H | Short_Literal 0x5
04a1 0092 05c9 | | Action Push_String_Extended,0x5c9 ; " - Remote machine is not accessible via the network"
04a3 e009 | | Load 0x0,0x9
04a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04a5 e003 | | Load 0x0,0x3
04a6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a7 4805 |H | Short_Literal 0x5
04a8 0092 05ca | | Action Push_String_Extended,0x5ca ; " - Invalid permissions on the target"
04aa e009 | | Load 0x0,0x9
04ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ac e003 | | Load 0x0,0x3
04ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ae 4805 |H | Short_Literal 0x5
04af 0092 05cb | | Action Push_String_Extended,0x5cb ; " - Remote directory name is too long"
04b1 e009 | | Load 0x0,0x9
04b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b3 e003 | | Load 0x0,0x3
04b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
04b5 4805 |H | Short_Literal 0x5
04b6 0092 05cc | | Action Push_String_Extended,0x5cc ; "After resolving this problem, use Rci.Build_Remote_Library to create the Ada library on the target"
04b8 e009 | | Load 0x0,0x9
04b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ba 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04bb 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04bc TRAP_03e8:
04bc 0007 | | Action Break_Optional
04bd e5f9 | | Load 0x2,-0x7
04be 0092 05cd | | Action Push_String_Extended,0x5cd ; "Create_Program_Library"
04c0 e00b | | Load 0x0,0xb
04c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c2 c5f9 | | Store 0x2,-0x7
04c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04c4 0000 0000 | | .BLANK 0000[0x4]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cd | | .CONST 0x04cd ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0002 | | .CONST 0x0002 ; Number of locals
04cb INIT_04c8:
04cb e403 | | Load 0x2,0x3
04cc 8015 | | Call 0x0,0x15
04cd BODY_04c8:
04cd 00e1 | | Load_Encached Boolean_Cache
04ce e5fa | | Load 0x2,-0x6
04cf e5fb | | Load 0x2,-0x5
04d0 e40b | | Load 0x2,0xb
04d1 e602 | | Load 0x3,0x2
04d2 8010 | | Call 0x0,0x10
04d3 c5fa | | Store 0x2,-0x6
04d4 c40c | | Store 0x2,0xc
04d5 4802 |H | Short_Literal 0x2
04d6 e5fa | | Load 0x2,-0x6
04d7 e00f | | Load 0x0,0xf
04d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04d9 6802 |h | Jump_Zero 0x4dc
04da 00cc | | Action Pop_Block
04db 4506 |E | Exit_Suprogram New_Top_Offset 0x6
04dc e40c | | Load 0x2,0xc
04dd 7017 |p | Jump_Nonzero 0x4f5
04de e003 | | Load 0x0,0x3
04df 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e0 4802 |H | Short_Literal 0x2
04e1 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Creating the new remote directory "
04e3 00db | | Load_Top At_Offset_3
04e4 800c | | Call 0x0,0xc
04e5 01cc | | Execute Vector,Catenate
04e6 e009 | | Load 0x0,0x9
04e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e8 e5fa | | Load 0x2,-0x6
04e9 e5fb | | Load 0x2,-0x5
04ea e40b | | Load 0x2,0xb
04eb 00db | | Load_Top At_Offset_3
04ec 8011 | | Call 0x0,0x11
04ed c5fa | | Store 0x2,-0x6
04ee 4802 |H | Short_Literal 0x2
04ef e5fa | | Load 0x2,-0x6
04f0 e00f | | Load 0x0,0xf
04f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04f2 6802 |h | Jump_Zero 0x4f5
04f3 00cc | | Action Pop_Block
04f4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
04f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04f6 0000 0000 | | .XXX[0x2]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0506 | | .CONST 0x0506 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0004 | | .CONST 0x0004 ; Number of locals
04fb INIT_04f8:
04fb 4800 |H | Short_Literal 0x0
04fc e5ff | | Load 0x2,-0x1
04fd e016 | | Load 0x0,0x16
04fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04ff e001 | | Load 0x0,0x1
0500 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0501 02c7 | | Declare_Variable Any
0502 00d8 | | Load_Top At_Offset_0
0503 1c00 | | Execute_Immediate Run_Utility,0x0
0504 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0506 BODY_04f8:
0506 4801 |H | Short_Literal 0x1
0507 00db | | Load_Top At_Offset_3
0508 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0509 e00f | | Load 0x0,0xf
050a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
050b 6805 |h | Jump_Zero 0x511
050c 00da | | Load_Top At_Offset_2
050d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
050e c5fb | | Store 0x2,-0x5
050f 00cc | | Action Pop_Block
0510 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0511 00cf | | Action Mark_Auxiliary
0512 00db | | Load_Top At_Offset_3
0513 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0514 01dc | | Execute Vector,Last
0515 4801 |H | Short_Literal 0x1
0516 0263 | c | Execute Discrete,Above_Bound
0517 7003 |p | Jump_Nonzero 0x51b
0518 8604 | | Call 0x3,0x4
0519 00c8 | | Action Pop_Auxiliary_Range
051a 3ffd |? | Loop_Increasing 0x518
051b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0537 | 7 | .CONST 0x0537 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0005 | | .CONST 0x0005 ; Number of locals
0523 INIT_0520:
0523 e001 | | Load 0x0,0x1
0524 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0525 02c7 | | Declare_Variable Any
0526 e607 | | Load 0x3,0x7
0527 e602 | | Load 0x3,0x2
0528 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0529 01d7 | | Execute Vector,Field_Read
052a a802 | | Store_Unchecked 0x4,0x2
052b 00d8 | | Load_Top At_Offset_0
052c e001 | | Load 0x0,0x1
052d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
052e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
052f e003 | | Load 0x0,0x3
0530 180e | | Execute Package,Field_Execute,Field_Number 0xe
0531 00d9 | | Load_Top At_Offset_1
0532 e004 | | Load 0x0,0x4
0533 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0534 00d8 | | Load_Top At_Offset_0
0535 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0536 0007 | | Action Break_Optional
0537 BODY_0520:
0537 e5fc | | Load 0x2,-0x4
0538 00da | | Load_Top At_Offset_2
0539 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
053a 800a | | Call 0x0,0xa
053b 680e |h | Jump_Zero 0x54a
053c e5fb | | Load 0x2,-0x5
053d 0092 058a | | Action Push_String_Extended,0x58a ; "Library_Extensions Error"
053f 4802 |H | Short_Literal 0x2
0540 0092 05ce | | Action Push_String_Extended,0x5ce ; "Can't get remote directory name for imported view "
0542 e803 | | Load 0x4,0x3
0543 01cc | | Execute Vector,Catenate
0544 e00b | | Load 0x0,0xb
0545 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0546 c5fb | | Store 0x2,-0x5
0547 00cc | | Action Pop_Block
0548 00cc | | Action Pop_Block
0549 4505 |E | Exit_Suprogram New_Top_Offset 0x5
054a e007 | | Load 0x0,0x7
054b 6810 |h | Jump_Zero 0x55c
054c e003 | | Load 0x0,0x3
054d 180e | | Execute Package,Field_Execute,Field_Number 0xe
054e 4802 |H | Short_Literal 0x2
054f 0092 05cf | | Action Push_String_Extended,0x5cf ; "#~ Referencer"
0551 e607 | | Load 0x3,0x7
0552 00e0 | | Load_Encached Standard_Cache
0553 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0554 01cc | | Execute Vector,Catenate
0555 0092 05d0 | | Action Push_String_Extended,0x5d0 ; ": "
0557 01cc | | Execute Vector,Catenate
0558 e803 | | Load 0x4,0x3
0559 01cc | | Execute Vector,Catenate
055a e009 | | Load 0x0,0x9
055b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
055c e5fb | | Load 0x2,-0x5
055d e5fc | | Load 0x2,-0x4
055e 4801 |H | Short_Literal 0x1
055f e5fd | | Load 0x2,-0x3
0560 e805 | | Load 0x4,0x5
0561 00ea | | Load_Encached Null_String_Cache
0562 e803 | | Load 0x4,0x3
0563 e5ff | | Load 0x2,-0x1
0564 e00b | | Load 0x0,0xb
0565 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0566 c5fb | | Store 0x2,-0x5
0567 e5fc | | Load 0x2,-0x4
0568 e5fb | | Load 0x2,-0x5
0569 800a | | Call 0x0,0xa
056a 6815 |h | Jump_Zero 0x580
056b e003 | | Load 0x0,0x3
056c 180e | | Execute Package,Field_Execute,Field_Number 0xe
056d 4806 |H | Short_Literal 0x6
056e 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Can't remove remote import for "
0570 e402 | | Load 0x2,0x2
0571 01cc | | Execute Vector,Catenate
0572 0092 05d2 | | Action Push_String_Extended,0x5d2 ; " from "
0574 01cc | | Execute Vector,Catenate
0575 e803 | | Load 0x4,0x3
0576 01cc | | Execute Vector,Catenate
0577 0092 059d | | Action Push_String_Extended,0x59d ; ". "
0579 01cc | | Execute Vector,Catenate
057a e5fb | | Load 0x2,-0x5
057b e00f | | Load 0x0,0xf
057c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
057d 01cc | | Execute Vector,Catenate
057e e009 | | Load 0x0,0x9
057f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0580 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0581 ; --------------------------------------------------------------------------------------
0581 ; STRING TABLE
0581 ; --------------------------------------------------------------------------------------
0581 00a6 | | .STRTAB 0x00a6->0x05d4 ; "/adafamily.add"
0582 00b2 | | .STRTAB 0x00b2->0x05db ; "ada family_manager.new family="
0583 00ce | | .STRTAB 0x00ce->0x05ea ; "/adalib"
0584 00d3 | | .STRTAB 0x00d3->0x05ed ; "#~Build_Libraries (View_Obj => "
0585 00f0 | | .STRTAB 0x00f0->0x05fd ; ", Remote_Machine"
0586 00fe | | .STRTAB 0x00fe->0x0605 ; ", Remote_Directory"
0587 010e | | .STRTAB 0x010e->0x060e ; ", Remote_Program_Library"
0588 0124 | $ | .STRTAB 0x0124->0x061a ; ")"
0589 0123 | # | .STRTAB 0x0123->0x061a ; "Entering Build_Libraries"
058a 0139 | 9 | .STRTAB 0x0139->0x0626 ; "Library_Extensions Error"
058b 014f | O | .STRTAB 0x014f->0x0632 ; "Can't get Remote_Machine switch for view "
058c 0176 | v | .STRTAB 0x0176->0x0647 ; "Can't get Remote_Directory switch for view "
058d 019f | | .STRTAB 0x019f->0x065c ; "#~Old switch values: Remote_Machine "
058e 01c1 | | .STRTAB 0x01c1->0x066e ; ", Remote_Directory "
058f 01d2 | | .STRTAB 0x01d2->0x0678 ; "Can't derive a family name from the remote pathname "
0590 0204 | | .STRTAB 0x0204->0x0692 ; "I386_Unix_Als_Xt"
0591 0212 | | .STRTAB 0x0212->0x069a ; "Can't acquire a connection to "
0592 022e | . | .STRTAB 0x022e->0x06a9 ; "test -f "
0593 0234 | 4 | .STRTAB 0x0234->0x06ad ; "#~Reusing the existing Alsys family \x22"
0594 0257 | W | .STRTAB 0x0257->0x06bf ; "\x22"
0595 0256 | V | .STRTAB 0x0256->0x06c0 ; "#~"
0596 0256 | V | .STRTAB 0x0256->0x06c1 ; "#~The remote file "
0597 0266 | f | .STRTAB 0x0266->0x06ca ; " does not exist"
0598 0273 | s | .STRTAB 0x0273->0x06d1 ; "An Alsys family can only be created in a new directory, but the remote directory "
0599 02c2 | | .STRTAB 0x02c2->0x06fa ; " already exists"
059a 02cf | | .STRTAB 0x02cf->0x0701 ; "Creating remote family library "
059b 02ec | | .STRTAB 0x02ec->0x0711 ; "#~Executing remote command: "
059c 0306 | | .STRTAB 0x0306->0x071f ; "Can't create the remote ada family in "
059d 032a | * | .STRTAB 0x032a->0x0732 ; ". "
059e 032b | + | .STRTAB 0x032b->0x0733 ; "Building new library on different machine "
059f 0353 | S | .STRTAB 0x0353->0x0748 ; ". Old library "
05a0 035f | _ | .STRTAB 0x035f->0x074f ; " is on machine "
05a1 036c | l | .STRTAB 0x036c->0x0757 ; "The old Remote_Directory "
05a2 0383 | | .STRTAB 0x0383->0x0763 ; " still exists on "
05a3 0392 | | .STRTAB 0x0392->0x076c ; "Directory "
05a4 039a | | .STRTAB 0x039a->0x0771 ; "Using an existing directory"
05a5 03b3 | | .STRTAB 0x03b3->0x077e ; "Creating the new remote directory "
05a6 03d3 | | .STRTAB 0x03d3->0x078f ; "A program library already exists in "
05a7 03f5 | | .STRTAB 0x03f5->0x07a1 ; "The existing program library will be used"
05a8 041c | | .STRTAB 0x041c->0x07b6 ; "Creating the new remote program library "
05a9 0442 | B | .STRTAB 0x0442->0x07ca ; "Can't build remote program library "
05aa 0463 | c | .STRTAB 0x0463->0x07db ; "Build_Libraries"
05ab 0470 | p | .STRTAB 0x0470->0x07e3 ; "#~Destroy_Library (Host_View"
05ac 048a | | .STRTAB 0x048a->0x07f1 ; "Executing Destroy_Library"
05ad 04a1 | | .STRTAB 0x04a1->0x07fd ; "Remote directory "
05ae 04b0 | | .STRTAB 0x04b0->0x0806 ; " doesn't contain an Ada program library"
05af 04d5 | | .STRTAB 0x04d5->0x0819 ; ", so it can't be destroyed"
05b0 04ed | | .STRTAB 0x04ed->0x0826 ; "ada lib_manager\x5c("
05b1 04fc | | .STRTAB 0x04fc->0x082f ; "\x5c).erase libraries="
05b2 050d | | .STRTAB 0x050d->0x0838 ; "/adalib confirm=no"
05b3 051d | | .STRTAB 0x051d->0x0841 ; "Erasing remote library "
05b4 0532 | 2 | .STRTAB 0x0532->0x084d ; "Can't erase the Ada library in "
05b5 054f | O | .STRTAB 0x054f->0x085c ; " doesn't exist for view "
05b6 0565 | e | .STRTAB 0x0565->0x0868 ; "cd;chmod -R 777 "
05b7 0573 | s | .STRTAB 0x0573->0x0870 ; "Can't change protections. "
05b8 058c | | .STRTAB 0x058c->0x087e ; "chmod 777 "
05b9 0594 | | .STRTAB 0x0594->0x0883 ; "cd "
05ba 0595 | | .STRTAB 0x0595->0x0884 ; ";cd .."
05bb 0599 | | .STRTAB 0x0599->0x0887 ; "Can't go to the enclosing directory for "
05bc 05bf | | .STRTAB 0x05bf->0x089b ; "rm -r "
05bd 05c3 | | .STRTAB 0x05c3->0x089e ; "Can't remove the contents of "
05be 05de | | .STRTAB 0x05de->0x08ad ; "Destroy_Library"
05bf 05eb | | .STRTAB 0x05eb->0x08b4 ; "\x5c).new "
05c0 05f0 | | .STRTAB 0x05f0->0x08b8 ; "/adalib "
05c1 05f6 | | .STRTAB 0x05f6->0x08bc ; "annotate=RCI_LIB::"
05c2 0606 | | .STRTAB 0x0606->0x08c5 ; "#~Create_Program_Library (Host_View"
05c3 0627 | ' | .STRTAB 0x0627->0x08d6 ; "Creating remote program library "
05c4 0645 | E | .STRTAB 0x0645->0x08e6 ; "Can't create a remote ada library in "
05c5 0668 | h | .STRTAB 0x0668->0x08f9 ; "Creation of the remote Ada library failed"
05c6 068f | | .STRTAB 0x068f->0x090d ; "Possible causes of this failure include:"
05c7 06b5 | | .STRTAB 0x06b5->0x0921 ; " - Invalid Username & Password from Session Switches or "
05c8 06ef | | .STRTAB 0x06ef->0x093f ; " remote passwords file"
05c9 070b | | .STRTAB 0x070b->0x094e ; " - Remote machine is not accessible via the network"
05ca 0740 | @ | .STRTAB 0x0740->0x096a ; " - Invalid permissions on the target"
05cb 0766 | f | .STRTAB 0x0766->0x097e ; " - Remote directory name is too long"
05cc 078c | | .STRTAB 0x078c->0x0992 ; "After resolving this problem, use Rci.Build_Remote_Library to create the Ada library on the target"
05cd 07ec | | .STRTAB 0x07ec->0x09c3 ; "Create_Program_Library"
05ce 0800 | | .STRTAB 0x0800->0x09ce ; "Can't get remote directory name for imported view "
05cf 0830 | 0 | .STRTAB 0x0830->0x09e7 ; "#~ Referencer"
05d0 083c | < | .STRTAB 0x083c->0x09ee ; ": "
05d1 083c | < | .STRTAB 0x083c->0x09ef ; "Can't remove remote import for "
05d2 0859 | Y | .STRTAB 0x0859->0x09fe ; " from "
05d3 085d | ] | .STREND 0x085d->0x0a01
05d4 2f61 6461 |/ada| .STRTAB_STRINGS
0a02 0000 0000 | | .BLANK 0000[0x6]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; Debug Table
0a08 ; --------------------------------------------------------------------------------------
0a08 0004 0003 | | .DEBUG4 0x0004,0x0003,0xb90b,0x0000,0x0001,0x0008
0a0e 000b 0a2e | .| .DBG4T 0x000b,0x0a2e,0x0000,0x0000
0a12 0010 0a32 | 2| .DBG4T 0x0010,0x0a32,0x0000,0x0000
0a16 001b 0a37 | 7| .DBG4T 0x001b,0x0a37,0x0001,0x0000
0a1a 025b 0a8c | [ | .DBG4T 0x025b,0x0a8c,0x0001,0x0000
0a1e 03eb 0ac4 | | .DBG4T 0x03eb,0x0ac4,0x0001,0x0000
0a22 04cb 0adf | | .DBG4T 0x04cb,0x0adf,0x0004,0x0000
0a26 04fb 0aea | | .DBG4T 0x04fb,0x0aea,0x0004,0x0000
0a2a 0523 0af3 | # | .DBG4T 0x0523,0x0af3,0x0004,0x0000
0a2e ; --------------------------------------------------------------------------------------
0a2e ; Debug chain
0a2e ; --------------------------------------------------------------------------------------
0a2e 0002 0000 | | .DBGLEN 0x0002,0x0000
0a30 000b 000d | | .DBGLNO 0x000b,0x000d
0a32 ; --------------------------------------------------------------------------------------
0a32 ; Debug chain
0a32 ; --------------------------------------------------------------------------------------
0a32 0003 0000 | | .DBGLEN 0x0003,0x0000
0a34 0010 0012 | | .DBGLNO 0x0010,0x0012,0x0014
0a37 ; --------------------------------------------------------------------------------------
0a37 ; Debug chain
0a37 ; --------------------------------------------------------------------------------------
0a37 000b 0048 | H| .DBGLEN 0x000b,0x0048
0a39 001b 001f | | .DBGLNO 0x001b,0x001f,0x0022,0x0027,0x002a,0x002f,0x0037,0x003c,0x0041,0x0046,0x004b,0x004f,0x0053,0x0071,0x0078,0x007d,0x0088,0x0089,0x008e,0x0099,0x009a,0x009e,0x00a4,0x00b4,0x00b7,0x00c3,0x00c4,0x00dc,0x00e0,0x00eb,0x00ec,0x00f5,0x00fa,0x00fe,0x010b,0x010d,0x0118,0x011c,0x0129,0x0131,0x0136,0x0137,0x0139,0x0148,0x0149,0x014a,0x0154,0x0158,0x0162,0x0168,0x016c,0x017d,0x017e,0x0187,0x019e,0x01a1,0x01a9,0x01ae,0x01af,0x01b1,0x01c0,0x01c8,0x01cd,0x01ce,0x01d0,0x01dd,0x01e5,0x01ef,0x01f5,0x01fa,0x01fb,0x0203,0x0208,0x0209,0x020b,0x0215,0x021d,0x0227,0x0230,0x0235,0x0241,0x0242,0x024c
0a8c ; --------------------------------------------------------------------------------------
0a8c ; Debug chain
0a8c ; --------------------------------------------------------------------------------------
0a8c 0003 0033 | 3| .DBGLEN 0x0003,0x0033
0a8e 025b 025f | [ _| .DBGLNO 0x025b,0x025f,0x0262,0x0266,0x026a,0x027d,0x0284,0x0287,0x0293,0x0294,0x029f,0x02a4,0x02a5,0x02a7,0x02b6,0x02b7,0x02bb,0x02d0,0x02da,0x02eb,0x02ef,0x0300,0x0301,0x0303,0x030b,0x0310,0x0311,0x0313,0x0324,0x0325,0x0326,0x032a,0x0337,0x0340,0x0344,0x034f,0x0350,0x0354,0x0361,0x036a,0x036e,0x0379,0x037a,0x037e,0x038e,0x039a,0x039e,0x03ae,0x03af,0x03b3,0x03c0,0x03c9,0x03cd,0x03e0
0ac4 ; --------------------------------------------------------------------------------------
0ac4 ; Debug chain
0ac4 ; --------------------------------------------------------------------------------------
0ac4 0003 0016 | | .DBGLEN 0x0003,0x0016
0ac6 03eb 03f3 | | .DBGLNO 0x03eb,0x03f3,0x0400,0x0412,0x0416,0x0435,0x043f,0x0444,0x0448,0x0452,0x0459,0x045d,0x0467,0x046d,0x0471,0x0482,0x0489,0x0490,0x0497,0x049e,0x04a5,0x04ac,0x04b3,0x04ba,0x04bd
0adf ; --------------------------------------------------------------------------------------
0adf ; Debug chain
0adf ; --------------------------------------------------------------------------------------
0adf 0001 0008 | | .DBGLEN 0x0001,0x0008
0ae1 04cb 04cd | | .DBGLNO 0x04cb,0x04cd,0x04d5,0x04da,0x04dc,0x04de,0x04e8,0x04ee,0x04f3
0aea ; --------------------------------------------------------------------------------------
0aea ; Debug chain
0aea ; --------------------------------------------------------------------------------------
0aea 0002 0005 | | .DBGLEN 0x0002,0x0005
0aec 04fb 04ff | | .DBGLNO 0x04fb,0x04ff,0x0506,0x050c,0x050f,0x0512,0x0518
0af3 ; --------------------------------------------------------------------------------------
0af3 ; Debug chain
0af3 ; --------------------------------------------------------------------------------------
0af3 0004 0008 | | .DBGLEN 0x0004,0x0008
0af5 0523 052b | # +| .DBGLNO 0x0523,0x052b,0x052f,0x0534,0x0537,0x053c,0x0547,0x054a,0x054c,0x055c,0x0567,0x056b
0b01 0000 0000 | | .BLANK 0000[0xff]