|
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_c7f0e2
└─⟦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 0b08 | | .CONST 0x0b08 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0049 | I | .CONST 0x0049 ; Address of begin
0019 0216 | | .CONST 0x0216 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; Number of locals
001b INIT_0018:
001b 0092 045f | _| Action Push_String_Extended,0x45f ; "!Machine.Release.Rational_Access.Release1_0_1"
001d e001 | | Load 0x0,0x1
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 02c7 | | Declare_Variable Any
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 e002 | | Load 0x0,0x2
0023 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0024 e002 | | Load 0x0,0x2
0025 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0026 00e1 | | Load_Encached Boolean_Cache
0027 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0028 03e9 | | Declare_Variable Discrete,Duplicate
0029 03e9 | | Declare_Variable Discrete,Duplicate
002a 00e1 | | Load_Encached Boolean_Cache
002b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002c 03e9 | | Declare_Variable Discrete,Duplicate
002d e003 | | Load 0x0,0x3
002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002f 02c7 | | Declare_Variable Any
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 4801 |H | Short_Literal 0x1
0033 4806 |H | Short_Literal 0x6
0034 00e9 | | Load_Encached String_Cache
0035 0334 | 4 | Declare_Variable Array,With_Constraint
0036 52a9 |R | Indirect_Literal Any,0x2e0,{0x7463702f, 0x69702020}
0037 e004 | | Load 0x0,0x4
0038 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0039 e005 | | Load 0x0,0x5
003a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
003b e006 | | Load 0x0,0x6
003c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
003d e006 | | Load 0x0,0x6
003e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
003f e005 | | Load 0x0,0x5
0040 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0041 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0043 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0045 029f 030b | | Declare_Subprogram INIT_0308,For_Call
0047 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
0049 BODY_0018:
0049 00be | | Action Activate_Tasks
004a e5ff | | Load 0x2,-0x1
004b 0092 0460 | `| Action Push_String_Extended,0x460 ; "<<Machine where Rational Access is to be installed>>"
004d 01df | | Execute Vector,Equal
004e e5fe | | Load 0x2,-0x2
004f 0092 0461 | a| Action Push_String_Extended,0x461 ; "<<Username with privileges on install directory>>"
0051 01df | | Execute Vector,Equal
0052 0278 | x | Execute Discrete,Or
0053 e5fd | | Load 0x2,-0x3
0054 0092 0462 | b| Action Push_String_Extended,0x462 ; "<Password of Username account>>"
0056 01df | | Execute Vector,Equal
0057 0278 | x | Execute Discrete,Or
0058 e5fc | | Load 0x2,-0x4
0059 0092 0463 | c| Action Push_String_Extended,0x463 ; "<<Directory where Rational Access will be installed>>"
005b 01df | | Execute Vector,Equal
005c 0278 | x | Execute Discrete,Or
005d 680b |h | Jump_Zero 0x69
005e e007 | | Load 0x0,0x7
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 0092 0464 | d| Action Push_String_Extended,0x464 ; "Workstation_Install"
0062 e008 | | Load 0x0,0x8
0063 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0065 4801 |H | Short_Literal 0x1
0066 e007 | | Load 0x0,0x7
0067 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0068 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0069 0092 0465 | e| Action Push_String_Extended,0x465 ; "Rational Access is going to be installed in "
006b e5fc | | Load 0x2,-0x4
006c 01cc | | Execute Vector,Catenate
006d 0092 0466 | f| Action Push_String_Extended,0x466 ; ","
006f 01cc | | Execute Vector,Catenate
0070 e009 | | Load 0x0,0x9
0071 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0072 0092 0467 | g| Action Push_String_Extended,0x467 ; "on "
0074 e5ff | | Load 0x2,-0x1
0075 01cc | | Execute Vector,Catenate
0076 0092 0468 | h| Action Push_String_Extended,0x468 ; ", using account "
0078 01cc | | Execute Vector,Catenate
0079 e5fe | | Load 0x2,-0x2
007a 01cc | | Execute Vector,Catenate
007b 0092 0469 | i| Action Push_String_Extended,0x469 ; ". Continue. [y] "
007d 01cc | | Execute Vector,Catenate
007e 840e | | Call 0x2,0xe
007f a407 | | Store_Unchecked 0x2,0x7
0080 e407 | | Load 0x2,0x7
0081 7002 |p | Jump_Nonzero 0x84
0082 e00a | | Load 0x0,0xa
0083 0257 | W | Execute Discrete,Raise
0084 e5fb | | Load 0x2,-0x5
0085 e00b | | Load 0x0,0xb
0086 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0087 4801 |H | Short_Literal 0x1
0088 4800 |H | Short_Literal 0x0
0089 4800 |H | Short_Literal 0x0
008a 4802 |H | Short_Literal 0x2
008b e00c | | Load 0x0,0xc
008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008d 00ea | | Load_Encached Null_String_Cache
008e 00ea | | Load_Encached Null_String_Cache
008f 00ea | | Load_Encached Null_String_Cache
0090 e5fd | | Load 0x2,-0x3
0091 e5fe | | Load 0x2,-0x2
0092 4801 |H | Short_Literal 0x1
0093 e5ff | | Load 0x2,-0x1
0094 e00d | | Load 0x0,0xd
0095 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0096 840f | | Call 0x2,0xf
0097 0f01 | | Execute_Immediate Equal,0x1
0098 7002 |p | Jump_Nonzero 0x9b
0099 e00e | | Load 0x0,0xe
009a 0257 | W | Execute Discrete,Raise
009b 00ea | | Load_Encached Null_String_Cache
009c e00b | | Load 0x0,0xb
009d 180e | | Execute Package,Field_Execute,Field_Number 0xe
009e e00b | | Load 0x0,0xb
009f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00a0 e00b | | Load 0x0,0xb
00a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a2 e00b | | Load 0x0,0xb
00a3 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00a4 e00b | | Load 0x0,0xb
00a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a6 e00b | | Load 0x0,0xb
00a7 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00a8 e00b | | Load 0x0,0xb
00a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00aa e00b | | Load 0x0,0xb
00ab 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00ac e00b | | Load 0x0,0xb
00ad 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00ae 4802 |H | Short_Literal 0x2
00af e00b | | Load 0x0,0xb
00b0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00b1 e5fc | | Load 0x2,-0x4
00b2 e00d | | Load 0x0,0xd
00b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b4 840f | | Call 0x2,0xf
00b5 a404 | | Store_Unchecked 0x2,0x4
00b6 e404 | | Load 0x2,0x4
00b7 0f01 | | Execute_Immediate Equal,0x1
00b8 7068 |ph | Jump_Nonzero 0x121
00b9 e404 | | Load 0x2,0x4
00ba 0f0f | | Execute_Immediate Equal,0xf
00bb 6863 |hc | Jump_Zero 0x11f
00bc 0092 046a | j| Action Push_String_Extended,0x46a ; "Directory "
00be e5fc | | Load 0x2,-0x4
00bf 01cc | | Execute Vector,Catenate
00c0 0092 046b | k| Action Push_String_Extended,0x46b ; " does not exist, Create it? [y] "
00c2 01cc | | Execute Vector,Catenate
00c3 840e | | Call 0x2,0xe
00c4 6854 |hT | Jump_Zero 0x119
00c5 8411 | | Call 0x2,0x11
00c6 700d |p | Jump_Nonzero 0xd4
00c7 e00b | | Load 0x0,0xb
00c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c9 4802 |H | Short_Literal 0x2
00ca 0092 046c | l| Action Push_String_Extended,0x46c ; "Unable to create directory without privileges in .rhosts. Choose a different directory or create directory on workstation, and repeat the install procedure."
00cc e00f | | Load 0x0,0xf
00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ce e00b | | Load 0x0,0xb
00cf 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d0 e00d | | Load 0x0,0xd
00d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d2 e00a | | Load 0x0,0xa
00d3 0257 | W | Execute Discrete,Raise
00d4 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
00d6 0092 046e | n| Action Push_String_Extended,0x46e ; "<NONE>"
00d8 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
00da 00ea | | Load_Encached Null_String_Cache
00db e5fe | | Load 0x2,-0x2
00dc e5ff | | Load 0x2,-0x1
00dd 0092 046f | o| Action Push_String_Extended,0x46f ; "/bin/date"
00df 8010 | | Call 0x0,0x10
00e0 700d |p | Jump_Nonzero 0xee
00e1 e00b | | Load 0x0,0xb
00e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e3 4802 |H | Short_Literal 0x2
00e4 0092 0470 | p| Action Push_String_Extended,0x470 ; "Unable to start rshell. Choose a different directory or create directory on workstation, and repeat the install procedure."
00e6 e00f | | Load 0x0,0xf
00e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e8 e00b | | Load 0x0,0xb
00e9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ea e00d | | Load 0x0,0xd
00eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ec e00a | | Load 0x0,0xa
00ed 0257 | W | Execute Discrete,Raise
00ee e00b | | Load 0x0,0xb
00ef 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f0 4802 |H | Short_Literal 0x2
00f1 0092 0471 | q| Action Push_String_Extended,0x471 ; "Creating directory "
00f3 e5fc | | Load 0x2,-0x4
00f4 01cc | | Execute Vector,Catenate
00f5 0092 0472 | r| Action Push_String_Extended,0x472 ; " on "
00f7 01cc | | Execute Vector,Catenate
00f8 e5ff | | Load 0x2,-0x1
00f9 01cc | | Execute Vector,Catenate
00fa e00f | | Load 0x0,0xf
00fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fc 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
00fe 0092 046e | n| Action Push_String_Extended,0x46e ; "<NONE>"
0100 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
0102 00ea | | Load_Encached Null_String_Cache
0103 e5fe | | Load 0x2,-0x2
0104 e5ff | | Load 0x2,-0x1
0105 0092 0473 | s| Action Push_String_Extended,0x473 ; "mkdir -p "
0107 e5fc | | Load 0x2,-0x4
0108 01cc | | Execute Vector,Catenate
0109 0092 0474 | t| Action Push_String_Extended,0x474 ; "; chmod 755 "
010b 01cc | | Execute Vector,Catenate
010c e5fc | | Load 0x2,-0x4
010d 01cc | | Execute Vector,Catenate
010e 8010 | | Call 0x0,0x10
010f 7011 |p | Jump_Nonzero 0x121
0110 e00b | | Load 0x0,0xb
0111 180e | | Execute Package,Field_Execute,Field_Number 0xe
0112 4807 |H | Short_Literal 0x7
0113 0092 0475 | u| Action Push_String_Extended,0x475 ; "Unable to create the directory."
0115 e00f | | Load 0x0,0xf
0116 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0117 e011 | | Load 0x0,0x11
0118 0257 | W | Execute Discrete,Raise
0119 e00b | | Load 0x0,0xb
011a 180e | | Execute Package,Field_Execute,Field_Number 0xe
011b e00d | | Load 0x0,0xd
011c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011d e00a | | Load 0x0,0xa
011e 0257 | W | Execute Discrete,Raise
011f e011 | | Load 0x0,0x11
0120 0257 | W | Execute Discrete,Raise
0121 e00b | | Load 0x0,0xb
0122 180e | | Execute Package,Field_Execute,Field_Number 0xe
0123 4802 |H | Short_Literal 0x2
0124 0092 0476 | v| Action Push_String_Extended,0x476 ; "Transfering Rational Access files over to "
0126 e5ff | | Load 0x2,-0x1
0127 01cc | | Execute Vector,Catenate
0128 e00f | | Load 0x0,0xf
0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012a e012 | | Load 0x0,0x12
012b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
012c e00d | | Load 0x0,0xd
012d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
012e e00b | | Load 0x0,0xb
012f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0130 4800 |H | Short_Literal 0x0
0131 e5fc | | Load 0x2,-0x4
0132 0092 0477 | w| Action Push_String_Extended,0x477 ; "/install_release"
0134 01cc | | Execute Vector,Catenate
0135 0092 0478 | x| Action Push_String_Extended,0x478 ; "install_release"
0137 e00d | | Load 0x0,0xd
0138 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0139 e002 | | Load 0x0,0x2
013a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
013b e00d | | Load 0x0,0xd
013c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
013d e001 | | Load 0x0,0x1
013e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
013f c405 | | Store 0x2,0x5
0140 e405 | | Load 0x2,0x5
0141 0f0b | | Execute_Immediate Equal,0xb
0142 e405 | | Load 0x2,0x5
0143 0f09 | | Execute_Immediate Equal,0x9
0144 0278 | x | Execute Discrete,Or
0145 6802 |h | Jump_Zero 0x148
0146 e013 | | Load 0x0,0x13
0147 0257 | W | Execute Discrete,Raise
0148 e012 | | Load 0x0,0x12
0149 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014a e00d | | Load 0x0,0xd
014b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014c e00b | | Load 0x0,0xb
014d 180e | | Execute Package,Field_Execute,Field_Number 0xe
014e 4800 |H | Short_Literal 0x0
014f e5fc | | Load 0x2,-0x4
0150 0092 0479 | y| Action Push_String_Extended,0x479 ; "/rational.Z"
0152 01cc | | Execute Vector,Catenate
0153 0092 047a | z| Action Push_String_Extended,0x47a ; "ws_Files"
0155 e00d | | Load 0x0,0xd
0156 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0157 e002 | | Load 0x0,0x2
0158 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0159 e00d | | Load 0x0,0xd
015a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015b e001 | | Load 0x0,0x1
015c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
015d c405 | | Store 0x2,0x5
015e e405 | | Load 0x2,0x5
015f 0f0b | | Execute_Immediate Equal,0xb
0160 e405 | | Load 0x2,0x5
0161 0f09 | | Execute_Immediate Equal,0x9
0162 0278 | x | Execute Discrete,Or
0163 6802 |h | Jump_Zero 0x166
0164 e013 | | Load 0x0,0x13
0165 0257 | W | Execute Discrete,Raise
0166 e00b | | Load 0x0,0xb
0167 180e | | Execute Package,Field_Execute,Field_Number 0xe
0168 4802 |H | Short_Literal 0x2
0169 0092 047b | {| Action Push_String_Extended,0x47b ; "Rational Access files have been moved to workstation."
016b e00f | | Load 0x0,0xf
016c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016d 0092 047c | || Action Push_String_Extended,0x47c ; "Perform installation of Rational Access on workstation? [y] "
016f 840e | | Call 0x2,0xe
0170 a407 | | Store_Unchecked 0x2,0x7
0171 e407 | | Load 0x2,0x7
0172 7002 |p | Jump_Nonzero 0x175
0173 e014 | | Load 0x0,0x14
0174 0257 | W | Execute Discrete,Raise
0175 e00b | | Load 0x0,0xb
0176 180e | | Execute Package,Field_Execute,Field_Number 0xe
0177 4802 |H | Short_Literal 0x2
0178 0092 047d | }| Action Push_String_Extended,0x47d ; "Extracting Rational files from the tar file."
017a e00f | | Load 0x0,0xf
017b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017c e408 | | Load 0x2,0x8
017d 6842 |hB | Jump_Zero 0x1c0
017e 00ea | | Load_Encached Null_String_Cache
017f e00b | | Load 0x0,0xb
0180 180e | | Execute Package,Field_Execute,Field_Number 0xe
0181 e00b | | Load 0x0,0xb
0182 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0183 e00b | | Load 0x0,0xb
0184 180e | | Execute Package,Field_Execute,Field_Number 0xe
0185 e00b | | Load 0x0,0xb
0186 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0187 e00b | | Load 0x0,0xb
0188 180e | | Execute Package,Field_Execute,Field_Number 0xe
0189 e00b | | Load 0x0,0xb
018a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
018b e00b | | Load 0x0,0xb
018c 180e | | Execute Package,Field_Execute,Field_Number 0xe
018d e00b | | Load 0x0,0xb
018e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
018f e00b | | Load 0x0,0xb
0190 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0191 4802 |H | Short_Literal 0x2
0192 e00b | | Load 0x0,0xb
0193 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0194 00ea | | Load_Encached Null_String_Cache
0195 e00d | | Load 0x0,0xd
0196 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0197 8411 | | Call 0x2,0x11
0198 700d |p | Jump_Nonzero 0x1a6
0199 e00b | | Load 0x0,0xb
019a 180e | | Execute Package,Field_Execute,Field_Number 0xe
019b 4802 |H | Short_Literal 0x2
019c 0092 047e | ~| Action Push_String_Extended,0x47e ; "Unable to restore tar file without privileges in .rhosts. Manually modify the .rhosts file or perform workstation install manually."
019e e00f | | Load 0x0,0xf
019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a0 e00b | | Load 0x0,0xb
01a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a2 e00d | | Load 0x0,0xd
01a3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a4 e00a | | Load 0x0,0xa
01a5 0257 | W | Execute Discrete,Raise
01a6 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
01a8 0092 046e | n| Action Push_String_Extended,0x46e ; "<NONE>"
01aa 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
01ac 00ea | | Load_Encached Null_String_Cache
01ad e5fe | | Load 0x2,-0x2
01ae e5ff | | Load 0x2,-0x1
01af 0092 046f | o| Action Push_String_Extended,0x46f ; "/bin/date"
01b1 8010 | | Call 0x0,0x10
01b2 700d |p | Jump_Nonzero 0x1c0
01b3 e00b | | Load 0x0,0xb
01b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b5 4802 |H | Short_Literal 0x2
01b6 0092 047f | | Action Push_String_Extended,0x47f ; "Unable to start rshell. You must perform the workstation installation manually. Please refer to the install procedure for more information."
01b8 e00f | | Load 0x0,0xf
01b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ba e00b | | Load 0x0,0xb
01bb 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bc e00d | | Load 0x0,0xd
01bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01be e00a | | Load 0x0,0xa
01bf 0257 | W | Execute Discrete,Raise
01c0 0092 0480 | | Action Push_String_Extended,0x480 ; "<WINDOW>"
01c2 0092 0480 | | Action Push_String_Extended,0x480 ; "<WINDOW>"
01c4 0092 0480 | | Action Push_String_Extended,0x480 ; "<WINDOW>"
01c6 e5fc | | Load 0x2,-0x4
01c7 e5fe | | Load 0x2,-0x2
01c8 e5ff | | Load 0x2,-0x1
01c9 0092 0481 | | Action Push_String_Extended,0x481 ; "/bin/csh install_release "
01cb e5fc | | Load 0x2,-0x4
01cc 01cc | | Execute Vector,Catenate
01cd 0092 0482 | | Action Push_String_Extended,0x482 ; ";echo Attempting to check for font visibility on "
01cf 01cc | | Execute Vector,Catenate
01d0 e5ff | | Load 0x2,-0x1
01d1 01cc | | Execute Vector,Catenate
01d2 0092 0483 | | Action Push_String_Extended,0x483 ; ".; echo This check would fail if the xserver is not running.; "
01d4 01cc | | Execute Vector,Catenate
01d5 e5fc | | Load 0x2,-0x4
01d6 01cc | | Execute Vector,Catenate
01d7 0092 0484 | | Action Push_String_Extended,0x484 ; "/bin/checkfonts -display "
01d9 01cc | | Execute Vector,Catenate
01da e5ff | | Load 0x2,-0x1
01db 01cc | | Execute Vector,Catenate
01dc 0092 0485 | | Action Push_String_Extended,0x485 ; ":0"
01de 01cc | | Execute Vector,Catenate
01df 8010 | | Call 0x0,0x10
01e0 7026 |p& | Jump_Nonzero 0x207
01e1 e00b | | Load 0x0,0xb
01e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e3 4806 |H | Short_Literal 0x6
01e4 0092 0486 | | Action Push_String_Extended,0x486 ; "Unable to run install program on workstation or"
01e6 e00f | | Load 0x0,0xf
01e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e8 0092 0487 | | Action Push_String_Extended,0x487 ; "Fonts may have to be installed on "
01ea e5ff | | Load 0x2,-0x1
01eb 01cc | | Execute Vector,Catenate
01ec 0092 0488 | | Action Push_String_Extended,0x488 ; ". Run checkfonts"
01ee 01cc | | Execute Vector,Catenate
01ef e009 | | Load 0x0,0x9
01f0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f1 0092 0489 | | Action Push_String_Extended,0x489 ; "from "
01f3 e5fc | | Load 0x2,-0x4
01f4 01cc | | Execute Vector,Catenate
01f5 0092 048a | | Action Push_String_Extended,0x48a ; "/bin, on "
01f7 01cc | | Execute Vector,Catenate
01f8 e5ff | | Load 0x2,-0x1
01f9 01cc | | Execute Vector,Catenate
01fa 0092 048b | | Action Push_String_Extended,0x48b ; " with the x server running."
01fc 01cc | | Execute Vector,Catenate
01fd e009 | | Load 0x0,0x9
01fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ff 0092 048c | | Action Push_String_Extended,0x48c ; "If Rational Access fonts are not installed, run install_fonts to install"
0201 e009 | | Load 0x0,0x9
0202 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0203 0092 048d | | Action Push_String_Extended,0x48d ; "the fonts."
0205 e009 | | Load 0x0,0x9
0206 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0207 8410 | | Call 0x2,0x10
0208 e00b | | Load 0x0,0xb
0209 180e | | Execute Package,Field_Execute,Field_Number 0xe
020a e00d | | Load 0x0,0xd
020b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
020c e00b | | Load 0x0,0xb
020d 180e | | Execute Package,Field_Execute,Field_Number 0xe
020e 4802 |H | Short_Literal 0x2
020f 0092 048e | | Action Push_String_Extended,0x48e ; "Rational Access has been successfully installed on workstation "
0211 e5ff | | Load 0x2,-0x1
0212 01cc | | Execute Vector,Catenate
0213 e00f | | Load 0x0,0xf
0214 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0215 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0216 TRAP_0018:
0216 e013 | | Load 0x0,0x13
0217 010f | | Execute Exception,Equal
0218 682d |h- | Jump_Zero 0x246
0219 8410 | | Call 0x2,0x10
021a e00b | | Load 0x0,0xb
021b 180e | | Execute Package,Field_Execute,Field_Number 0xe
021c e00d | | Load 0x0,0xd
021d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
021e e00b | | Load 0x0,0xb
021f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0220 4807 |H | Short_Literal 0x7
0221 0092 048f | | Action Push_String_Extended,0x48f ; "Problem copying the file. Exception name: "
0223 4800 |H | Short_Literal 0x0
0224 4801 |H | Short_Literal 0x1
0225 e015 | | Load 0x0,0x15
0226 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0227 01cc | | Execute Vector,Catenate
0228 e00f | | Load 0x0,0xf
0229 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022a 0092 0490 | | Action Push_String_Extended,0x490 ; " "
022c e009 | | Load 0x0,0x9
022d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
022e 0092 0491 | | Action Push_String_Extended,0x491 ; "Unable to transfer file. Please check and fix:"
0230 e009 | | Load 0x0,0x9
0231 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0232 0092 0492 | | Action Push_String_Extended,0x492 ; "1) There is enough disk space.(12 Megabyte)"
0234 e009 | | Load 0x0,0x9
0235 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0236 0092 0493 | | Action Push_String_Extended,0x493 ; "2) The user has sufficient privileges for the install directory."
0238 e009 | | Load 0x0,0x9
0239 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
023a 0092 0490 | | Action Push_String_Extended,0x490 ; " "
023c e009 | | Load 0x0,0x9
023d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
023e e00b | | Load 0x0,0xb
023f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0240 4802 |H | Short_Literal 0x2
0241 0092 0494 | | Action Push_String_Extended,0x494 ; "Incomplete install, please take corrective action and rerun the install program."
0243 e00f | | Load 0x0,0xf
0244 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0245 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0246 e011 | | Load 0x0,0x11
0247 010f | | Execute Exception,Equal
0248 682d |h- | Jump_Zero 0x276
0249 8410 | | Call 0x2,0x10
024a e00b | | Load 0x0,0xb
024b 180e | | Execute Package,Field_Execute,Field_Number 0xe
024c e00d | | Load 0x0,0xd
024d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024e e00b | | Load 0x0,0xb
024f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0250 4807 |H | Short_Literal 0x7
0251 0092 0495 | | Action Push_String_Extended,0x495 ; "Unable to access directory. Exception name: "
0253 4800 |H | Short_Literal 0x0
0254 4801 |H | Short_Literal 0x1
0255 e015 | | Load 0x0,0x15
0256 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0257 01cc | | Execute Vector,Catenate
0258 e00f | | Load 0x0,0xf
0259 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025a 0092 0490 | | Action Push_String_Extended,0x490 ; " "
025c e009 | | Load 0x0,0x9
025d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
025e 0092 0496 | | Action Push_String_Extended,0x496 ; "Unable to access directory. Please check and fix:"
0260 e009 | | Load 0x0,0x9
0261 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0262 0092 0497 | | Action Push_String_Extended,0x497 ; "1) There is no file in the directory path."
0264 e009 | | Load 0x0,0x9
0265 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0266 0092 0493 | | Action Push_String_Extended,0x493 ; "2) The user has sufficient privileges for the install directory."
0268 e009 | | Load 0x0,0x9
0269 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
026a 0092 0490 | | Action Push_String_Extended,0x490 ; " "
026c e009 | | Load 0x0,0x9
026d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
026e e00b | | Load 0x0,0xb
026f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0270 4802 |H | Short_Literal 0x2
0271 0092 0494 | | Action Push_String_Extended,0x494 ; "Incomplete install, please take corrective action and rerun the install program."
0273 e00f | | Load 0x0,0xf
0274 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0275 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0276 e00e | | Load 0x0,0xe
0277 010f | | Execute Exception,Equal
0278 6828 |h( | Jump_Zero 0x2a1
0279 e00b | | Load 0x0,0xb
027a 180e | | Execute Package,Field_Execute,Field_Number 0xe
027b e00d | | Load 0x0,0xd
027c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027d e00b | | Load 0x0,0xb
027e 180e | | Execute Package,Field_Execute,Field_Number 0xe
027f 4807 |H | Short_Literal 0x7
0280 0092 0498 | | Action Push_String_Extended,0x498 ; "Check login parameters. Exception name: "
0282 4800 |H | Short_Literal 0x0
0283 4801 |H | Short_Literal 0x1
0284 e015 | | Load 0x0,0x15
0285 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0286 01cc | | Execute Vector,Catenate
0287 e00f | | Load 0x0,0xf
0288 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0289 0092 0490 | | Action Push_String_Extended,0x490 ; " "
028b e009 | | Load 0x0,0x9
028c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
028d 0092 0499 | | Action Push_String_Extended,0x499 ; "Unable to log in. Please check the values entered in Remote_machine,"
028f e009 | | Load 0x0,0x9
0290 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0291 0092 049a | | Action Push_String_Extended,0x49a ; "Remote_Username, and Remote_Password for validity."
0293 e009 | | Load 0x0,0x9
0294 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0295 0092 0490 | | Action Push_String_Extended,0x490 ; " "
0297 e009 | | Load 0x0,0x9
0298 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0299 e00b | | Load 0x0,0xb
029a 180e | | Execute Package,Field_Execute,Field_Number 0xe
029b 4802 |H | Short_Literal 0x2
029c 0092 0494 | | Action Push_String_Extended,0x494 ; "Incomplete install, please take corrective action and rerun the install program."
029e e00f | | Load 0x0,0xf
029f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02a1 e00a | | Load 0x0,0xa
02a2 010f | | Execute Exception,Equal
02a3 6809 |h | Jump_Zero 0x2ad
02a4 8410 | | Call 0x2,0x10
02a5 e00b | | Load 0x0,0xb
02a6 180e | | Execute Package,Field_Execute,Field_Number 0xe
02a7 4802 |H | Short_Literal 0x2
02a8 0092 0494 | | Action Push_String_Extended,0x494 ; "Incomplete install, please take corrective action and rerun the install program."
02aa e00f | | Load 0x0,0xf
02ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ac 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02ad e014 | | Load 0x0,0x14
02ae 010f | | Execute Exception,Equal
02af 6817 |h | Jump_Zero 0x2c7
02b0 8410 | | Call 0x2,0x10
02b1 e00b | | Load 0x0,0xb
02b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b3 e00d | | Load 0x0,0xd
02b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02b5 e00b | | Load 0x0,0xb
02b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b7 4802 |H | Short_Literal 0x2
02b8 0092 049b | | Action Push_String_Extended,0x49b ; "Files have been transfered to the workstation "
02ba e5ff | | Load 0x2,-0x1
02bb 01cc | | Execute Vector,Catenate
02bc 0092 049c | | Action Push_String_Extended,0x49c ; " in "
02be 01cc | | Execute Vector,Catenate
02bf e5fc | | Load 0x2,-0x4
02c0 01cc | | Execute Vector,Catenate
02c1 0092 049d | | Action Push_String_Extended,0x49d ; ". Please refer to the install notes to complete the workstation installation of Rational Access."
02c3 01cc | | Execute Vector,Catenate
02c4 e00f | | Load 0x0,0xf
02c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c6 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02c7 8410 | | Call 0x2,0x10
02c8 e00b | | Load 0x0,0xb
02c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ca e00d | | Load 0x0,0xd
02cb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02cc e00b | | Load 0x0,0xb
02cd 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ce 4807 |H | Short_Literal 0x7
02cf 0092 049e | | Action Push_String_Extended,0x49e ; "Raised exception "
02d1 4800 |H | Short_Literal 0x0
02d2 4801 |H | Short_Literal 0x1
02d3 e015 | | Load 0x0,0x15
02d4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d5 01cc | | Execute Vector,Catenate
02d6 e00f | | Load 0x0,0xf
02d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d8 e00b | | Load 0x0,0xb
02d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02da 4807 |H | Short_Literal 0x7
02db 0092 049f | | Action Push_String_Extended,0x49f ; "Problems encountered during installation."
02dd e00f | | Load 0x0,0xf
02de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02df 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02e0 7463 702f |tcp/| .LITERAL {0x7463702f, 0x69702020}
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed | | .CONST 0x02ed ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
02ed BODY_02e8:
02ed 00cf | | Action Mark_Auxiliary
02ee 00ea | | Load_Encached Null_String_Cache
02ef e009 | | Load 0x0,0x9
02f0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02f1 e7ff | | Load 0x3,-0x1
02f2 e009 | | Load 0x0,0x9
02f3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02f4 8602 | | Call 0x3,0x2
02f5 00c9 | | Action Pop_Auxiliary_Loop
02f6 7ff7 | | Jump 0x2ee
02f7 0000 | | .XXX[0x1]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fd | | .CONST 0x02fd ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0002 | | .CONST 0x0002 ; Number of locals
02fb INIT_02f8:
02fb e002 | | Load 0x0,0x2
02fc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02fd BODY_02f8:
02fd e002 | | Load 0x0,0x2
02fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02ff e00d | | Load 0x0,0xd
0300 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0301 e001 | | Load 0x0,0x1
0302 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0303 0059 | Y | Store_Top Discrete,At_Offset_1
0304 00d8 | | Load_Top At_Offset_0
0305 00ca | | Action Exit_Nullary_Function
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b e409 | | Load 0x2,0x9
030c 6832 |h2 | Jump_Zero 0x33f
030d e00b | | Load 0x0,0xb
030e 180e | | Execute Package,Field_Execute,Field_Number 0xe
030f 4802 |H | Short_Literal 0x2
0310 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Restoring the original .rhosts file."
0312 e00f | | Load 0x0,0xf
0313 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0314 e40a | | Load 0x2,0xa
0315 6815 |h | Jump_Zero 0x32b
0316 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
0318 0092 046e | n| Action Push_String_Extended,0x46e ; "<NONE>"
031a 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
031c 00ea | | Load_Encached Null_String_Cache
031d e5fe | | Load 0x2,-0x2
031e e5ff | | Load 0x2,-0x1
031f 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "/bin/rm .rhosts"
0321 8010 | | Call 0x0,0x10
0322 7007 |p | Jump_Nonzero 0x32a
0323 e00b | | Load 0x0,0xb
0324 180e | | Execute Package,Field_Execute,Field_Number 0xe
0325 4806 |H | Short_Literal 0x6
0326 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "Unable to remove the .rhosts file."
0328 e00f | | Load 0x0,0xf
0329 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032b 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
032d 0092 046e | n| Action Push_String_Extended,0x46e ; "<NONE>"
032f 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
0331 00ea | | Load_Encached Null_String_Cache
0332 e5fe | | Load 0x2,-0x2
0333 e5ff | | Load 0x2,-0x1
0334 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "/bin/mv .rhosts_RA .rhosts"
0336 8010 | | Call 0x0,0x10
0337 7007 |p | Jump_Nonzero 0x33f
0338 e00b | | Load 0x0,0xb
0339 180e | | Execute Package,Field_Execute,Field_Number 0xe
033a 4806 |H | Short_Literal 0x6
033b 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "Unable to restore the original .rhosts file."
033d e00f | | Load 0x0,0xf
033e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0345 | E | .CONST 0x0345 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 00e1 | | Load_Encached Boolean_Cache
0344 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0345 BODY_0340:
0345 4800 |H | Short_Literal 0x0
0346 a408 | | Store_Unchecked 0x2,0x8
0347 e00b | | Load 0x0,0xb
0348 180e | | Execute Package,Field_Execute,Field_Number 0xe
0349 4802 |H | Short_Literal 0x2
034a 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "Checking for Rshell privileges."
034c e00f | | Load 0x0,0xf
034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034e 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
0350 0092 046e | n| Action Push_String_Extended,0x46e ; "<NONE>"
0352 0092 046d | m| Action Push_String_Extended,0x46d ; "<DEFAULT>"
0354 00ea | | Load_Encached Null_String_Cache
0355 e5fe | | Load 0x2,-0x2
0356 e5ff | | Load 0x2,-0x1
0357 0092 046f | o| Action Push_String_Extended,0x46f ; "/bin/date"
0359 8010 | | Call 0x0,0x10
035a 70e6 |p | Jump_Nonzero 0x441
035b 0092 0490 | | Action Push_String_Extended,0x490 ; " "
035d e009 | | Load 0x0,0x9
035e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
035f 0092 04a6 | | Action Push_String_Extended,0x4a6 ; "Unable to use Rshell on workstation due to lack of privileges on the"
0361 e009 | | Load 0x0,0x9
0362 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0363 0092 04a7 | | Action Push_String_Extended,0x4a7 ; "workstation. To obtain privileges, the .rhosts file on account "
0365 e5fe | | Load 0x2,-0x2
0366 01cc | | Execute Vector,Catenate
0367 e009 | | Load 0x0,0x9
0368 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0369 0092 04a8 | | Action Push_String_Extended,0x4a8 ; "needs to be modified. The original .rhosts file will be copied to "
036b e009 | | Load 0x0,0x9
036c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
036d 0092 04a9 | | Action Push_String_Extended,0x4a9 ; ".rhosts_RA, and a new .rhosts will be created with the entry "
036f e009 | | Load 0x0,0x9
0370 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0371 0092 04aa | | Action Push_String_Extended,0x4aa ; "("
0373 e40c | | Load 0x2,0xc
0374 01cc | | Execute Vector,Catenate
0375 0092 0490 | | Action Push_String_Extended,0x490 ; " "
0377 01cc | | Execute Vector,Catenate
0378 e40d | | Load 0x2,0xd
0379 01cc | | Execute Vector,Catenate
037a 0092 04ab | | Action Push_String_Extended,0x4ab ; "). At the end of the install, the original "
037c 01cc | | Execute Vector,Catenate
037d e009 | | Load 0x0,0x9
037e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
037f 0092 04ac | | Action Push_String_Extended,0x4ac ; ".rhosts file will be restored."
0381 e009 | | Load 0x0,0x9
0382 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0383 0092 04ad | | Action Push_String_Extended,0x4ad ; "Modify the .rhosts file: [y] "
0385 840e | | Call 0x2,0xe
0386 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0387 00d8 | | Load_Top At_Offset_0
0388 a409 | | Store_Unchecked 0x2,0x9
0389 00d8 | | Load_Top At_Offset_0
038a 68b6 |h | Jump_Zero 0x441
038b 00ea | | Load_Encached Null_String_Cache
038c e00c | | Load 0x0,0xc
038d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
038e e00b | | Load 0x0,0xb
038f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0390 e00b | | Load 0x0,0xb
0391 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0392 e00b | | Load 0x0,0xb
0393 180e | | Execute Package,Field_Execute,Field_Number 0xe
0394 e00b | | Load 0x0,0xb
0395 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0396 e00b | | Load 0x0,0xb
0397 180e | | Execute Package,Field_Execute,Field_Number 0xe
0398 e00b | | Load 0x0,0xb
0399 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
039a e00b | | Load 0x0,0xb
039b 180e | | Execute Package,Field_Execute,Field_Number 0xe
039c e00b | | Load 0x0,0xb
039d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
039e e00b | | Load 0x0,0xb
039f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03a0 4802 |H | Short_Literal 0x2
03a1 e00b | | Load 0x0,0xb
03a2 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03a3 4800 |H | Short_Literal 0x0
03a4 0092 04ae | | Action Push_String_Extended,0x4ae ; "!Machine.Temporary.Original_Rhosts"
03a6 0092 04af | | Action Push_String_Extended,0x4af ; ".rhosts"
03a8 e00d | | Load 0x0,0xd
03a9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03aa e002 | | Load 0x0,0x2
03ab 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03ac e00d | | Load 0x0,0xd
03ad 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03ae e001 | | Load 0x0,0x1
03af 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b0 c405 | | Store 0x2,0x5
03b1 e405 | | Load 0x2,0x5
03b2 0f01 | | Execute_Immediate Equal,0x1
03b3 6836 |h6 | Jump_Zero 0x3ea
03b4 00ea | | Load_Encached Null_String_Cache
03b5 e00d | | Load 0x0,0xd
03b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b7 e00b | | Load 0x0,0xb
03b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b9 e00b | | Load 0x0,0xb
03ba 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03bb e00b | | Load 0x0,0xb
03bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bd e00b | | Load 0x0,0xb
03be 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03bf e00b | | Load 0x0,0xb
03c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c1 e00b | | Load 0x0,0xb
03c2 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
03c3 e00b | | Load 0x0,0xb
03c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c5 e00b | | Load 0x0,0xb
03c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03c7 e00b | | Load 0x0,0xb
03c8 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03c9 4802 |H | Short_Literal 0x2
03ca e00b | | Load 0x0,0xb
03cb 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03cc 4800 |H | Short_Literal 0x0
03cd 0092 04b0 | | Action Push_String_Extended,0x4b0 ; ".rhosts_RA"
03cf 0092 04ae | | Action Push_String_Extended,0x4ae ; "!Machine.Temporary.Original_Rhosts"
03d1 e00d | | Load 0x0,0xd
03d2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03d3 e002 | | Load 0x0,0x2
03d4 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03d5 e00d | | Load 0x0,0xd
03d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03d7 e001 | | Load 0x0,0x1
03d8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03d9 c405 | | Store 0x2,0x5
03da e405 | | Load 0x2,0x5
03db 0f0b | | Execute_Immediate Equal,0xb
03dc 680f |h | Jump_Zero 0x3ec
03dd e00b | | Load 0x0,0xb
03de 180e | | Execute Package,Field_Execute,Field_Number 0xe
03df 4807 |H | Short_Literal 0x7
03e0 0092 04b1 | | Action Push_String_Extended,0x4b1 ; "Unable to save the original .rhosts file."
03e2 e00f | | Load 0x0,0xf
03e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e4 e00b | | Load 0x0,0xb
03e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e6 e00d | | Load 0x0,0xd
03e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e8 e00a | | Load 0x0,0xa
03e9 0257 | W | Execute Discrete,Raise
03ea 4801 |H | Short_Literal 0x1
03eb a40a | | Store_Unchecked 0x2,0xa
03ec e40b | | Load 0x2,0xb
03ed 00ea | | Load_Encached Null_String_Cache
03ee 0092 04b2 | | Action Push_String_Extended,0x4b2 ; "!Machine.Temporary.Rhosts_file"
03f0 4801 |H | Short_Literal 0x1
03f1 e003 | | Load 0x0,0x3
03f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03f3 c40b | | Store 0x2,0xb
03f4 00ea | | Load_Encached Null_String_Cache
03f5 e40b | | Load 0x2,0xb
03f6 e003 | | Load 0x0,0x3
03f7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
03f8 e40c | | Load 0x2,0xc
03f9 0092 0490 | | Action Push_String_Extended,0x490 ; " "
03fb 01cc | | Execute Vector,Catenate
03fc e40d | | Load 0x2,0xd
03fd 01cc | | Execute Vector,Catenate
03fe e40b | | Load 0x2,0xb
03ff e003 | | Load 0x0,0x3
0400 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0401 e40b | | Load 0x2,0xb
0402 e003 | | Load 0x0,0x3
0403 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0404 c40b | | Store 0x2,0xb
0405 00ea | | Load_Encached Null_String_Cache
0406 e00d | | Load 0x0,0xd
0407 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0408 e00b | | Load 0x0,0xb
0409 180e | | Execute Package,Field_Execute,Field_Number 0xe
040a e00b | | Load 0x0,0xb
040b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
040c e00b | | Load 0x0,0xb
040d 180e | | Execute Package,Field_Execute,Field_Number 0xe
040e e00b | | Load 0x0,0xb
040f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0410 e00b | | Load 0x0,0xb
0411 180e | | Execute Package,Field_Execute,Field_Number 0xe
0412 e00b | | Load 0x0,0xb
0413 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0414 e00b | | Load 0x0,0xb
0415 180e | | Execute Package,Field_Execute,Field_Number 0xe
0416 e00b | | Load 0x0,0xb
0417 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0418 e00b | | Load 0x0,0xb
0419 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
041a 4802 |H | Short_Literal 0x2
041b e00b | | Load 0x0,0xb
041c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
041d 4800 |H | Short_Literal 0x0
041e 0092 04af | | Action Push_String_Extended,0x4af ; ".rhosts"
0420 0092 04b2 | | Action Push_String_Extended,0x4b2 ; "!Machine.Temporary.Rhosts_file"
0422 e00d | | Load 0x0,0xd
0423 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0424 e002 | | Load 0x0,0x2
0425 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0426 e00d | | Load 0x0,0xd
0427 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0428 e001 | | Load 0x0,0x1
0429 1819 | | Execute Package,Field_Execute,Field_Number 0x19
042a c405 | | Store 0x2,0x5
042b e405 | | Load 0x2,0x5
042c 0f0b | | Execute_Immediate Equal,0xb
042d e405 | | Load 0x2,0x5
042e 0f09 | | Execute_Immediate Equal,0x9
042f 0278 | x | Execute Discrete,Or
0430 6809 |h | Jump_Zero 0x43a
0431 e00b | | Load 0x0,0xb
0432 180e | | Execute Package,Field_Execute,Field_Number 0xe
0433 4807 |H | Short_Literal 0x7
0434 0092 04b3 | | Action Push_String_Extended,0x4b3 ; "Unable to create new .rhosts file."
0436 e00f | | Load 0x0,0xf
0437 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0438 e00a | | Load 0x0,0xa
0439 0257 | W | Execute Discrete,Raise
043a e00b | | Load 0x0,0xb
043b 180e | | Execute Package,Field_Execute,Field_Number 0xe
043c 4802 |H | Short_Literal 0x2
043d 0092 04b4 | | Action Push_String_Extended,0x4b4 ; ".rhosts file modified."
043f e00f | | Load 0x0,0xf
0440 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0441 00d8 | | Load_Top At_Offset_0
0442 00ca | | Action Exit_Nullary_Function
0443 0000 0000 | | .BLANK 0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044d | M | .CONST 0x044d ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0002 | | .CONST 0x0002 ; Number of locals
044b INIT_0448:
044b e009 | | Load 0x0,0x9
044c 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
044d BODY_0448:
044d 00d8 | | Load_Top At_Offset_0
044e 01db | | Execute Vector,Length
044f 680c |h | Jump_Zero 0x45c
0450 00d8 | | Load_Top At_Offset_0
0451 01dd | | Execute Vector,First
0452 00d9 | | Load_Top At_Offset_1
0453 01d7 | | Execute Vector,Field_Read
0454 0f79 | y | Execute_Immediate Equal,0x79
0455 00d9 | | Load_Top At_Offset_1
0456 01dd | | Execute Vector,First
0457 00da | | Load_Top At_Offset_2
0458 01d7 | | Execute Vector,Field_Read
0459 0f59 | Y | Execute_Immediate Equal,0x59
045a 0278 | x | Execute Discrete,Or
045b 7801 |x | Jump 0x45d
045c 4801 |H | Short_Literal 0x1
045d 00cb | | Action Pop_Block_With_Result
045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045f ; --------------------------------------------------------------------------------------
045f ; STRING TABLE
045f ; --------------------------------------------------------------------------------------
045f 00ae | | .STRTAB 0x00ae->0x04b6 ; "!Machine.Release.Rational_Access.Release1_0_1"
0460 00d9 | | .STRTAB 0x00d9->0x04cc ; "<<Machine where Rational Access is to be installed>>"
0461 010b | | .STRTAB 0x010b->0x04e6 ; "<<Username with privileges on install directory>>"
0462 013a | : | .STRTAB 0x013a->0x04ff ; "<Password of Username account>>"
0463 0157 | W | .STRTAB 0x0157->0x050e ; "<<Directory where Rational Access will be installed>>"
0464 018a | | .STRTAB 0x018a->0x0529 ; "Workstation_Install"
0465 019b | | .STRTAB 0x019b->0x0532 ; "Rational Access is going to be installed in "
0466 01c5 | | .STRTAB 0x01c5->0x0548 ; ","
0467 01c4 | | .STRTAB 0x01c4->0x0549 ; "on "
0468 01c5 | | .STRTAB 0x01c5->0x054a ; ", using account "
0469 01d3 | | .STRTAB 0x01d3->0x0552 ; ". Continue. [y] "
046a 01e2 | | .STRTAB 0x01e2->0x055b ; "Directory "
046b 01ea | | .STRTAB 0x01ea->0x0560 ; " does not exist, Create it? [y] "
046c 0208 | | .STRTAB 0x0208->0x0570 ; "Unable to create directory without privileges in .rhosts. Choose a different directory or create directory on workstation, and repeat the install procedure."
046d 02a3 | | .STRTAB 0x02a3->0x05be ; "<DEFAULT>"
046e 02aa | | .STRTAB 0x02aa->0x05c3 ; "<NONE>"
046f 02ae | | .STRTAB 0x02ae->0x05c6 ; "/bin/date"
0470 02b5 | | .STRTAB 0x02b5->0x05ca ; "Unable to start rshell. Choose a different directory or create directory on workstation, and repeat the install procedure."
0471 032e | . | .STRTAB 0x032e->0x0608 ; "Creating directory "
0472 033f | ? | .STRTAB 0x033f->0x0611 ; " on "
0473 0341 | A | .STRTAB 0x0341->0x0613 ; "mkdir -p "
0474 0348 | H | .STRTAB 0x0348->0x0618 ; "; chmod 755 "
0475 0352 | R | .STRTAB 0x0352->0x061e ; "Unable to create the directory."
0476 036f | o | .STRTAB 0x036f->0x062d ; "Transfering Rational Access files over to "
0477 0397 | | .STRTAB 0x0397->0x0642 ; "/install_release"
0478 03a5 | | .STRTAB 0x03a5->0x064a ; "install_release"
0479 03b2 | | .STRTAB 0x03b2->0x0652 ; "/rational.Z"
047a 03bb | | .STRTAB 0x03bb->0x0657 ; "ws_Files"
047b 03c1 | | .STRTAB 0x03c1->0x065b ; "Rational Access files have been moved to workstation."
047c 03f4 | | .STRTAB 0x03f4->0x0676 ; "Perform installation of Rational Access on workstation? [y] "
047d 042e | . | .STRTAB 0x042e->0x0694 ; "Extracting Rational files from the tar file."
047e 0458 | X | .STRTAB 0x0458->0x06aa ; "Unable to restore tar file without privileges in .rhosts. Manually modify the .rhosts file or perform workstation install manually."
047f 04da | | .STRTAB 0x04da->0x06ec ; "Unable to start rshell. You must perform the workstation installation manually. Please refer to the install procedure for more information."
0480 0565 | e | .STRTAB 0x0565->0x0732 ; "<WINDOW>"
0481 056b | k | .STRTAB 0x056b->0x0736 ; "/bin/csh install_release "
0482 0582 | | .STRTAB 0x0582->0x0743 ; ";echo Attempting to check for font visibility on "
0483 05b1 | | .STRTAB 0x05b1->0x075b ; ".; echo This check would fail if the xserver is not running.; "
0484 05ed | | .STRTAB 0x05ed->0x077a ; "/bin/checkfonts -display "
0485 0604 | | .STRTAB 0x0604->0x0787 ; ":0"
0486 0604 | | .STRTAB 0x0604->0x0788 ; "Unable to run install program on workstation or"
0487 0631 | 1 | .STRTAB 0x0631->0x079f ; "Fonts may have to be installed on "
0488 0651 | Q | .STRTAB 0x0651->0x07b0 ; ". Run checkfonts"
0489 0660 | ` | .STRTAB 0x0660->0x07b9 ; "from "
048a 0663 | c | .STRTAB 0x0663->0x07bb ; "/bin, on "
048b 066a | j | .STRTAB 0x066a->0x07c0 ; " with the x server running."
048c 0683 | | .STRTAB 0x0683->0x07cd ; "If Rational Access fonts are not installed, run install_fonts to install"
048d 06c9 | | .STRTAB 0x06c9->0x07f1 ; "the fonts."
048e 06d1 | | .STRTAB 0x06d1->0x07f6 ; "Rational Access has been successfully installed on workstation "
048f 070e | | .STRTAB 0x070e->0x0816 ; "Problem copying the file. Exception name: "
0490 0736 | 6 | .STRTAB 0x0736->0x082b ; " "
0491 0735 | 5 | .STRTAB 0x0735->0x082b ; "Unable to transfer file. Please check and fix:"
0492 0761 | a | .STRTAB 0x0761->0x0842 ; "1) There is enough disk space.(12 Megabyte)"
0493 078a | | .STRTAB 0x078a->0x0858 ; "2) The user has sufficient privileges for the install directory."
0494 07c8 | | .STRTAB 0x07c8->0x0878 ; "Incomplete install, please take corrective action and rerun the install program."
0495 0816 | | .STRTAB 0x0816->0x08a0 ; "Unable to access directory. Exception name: "
0496 0840 | @ | .STRTAB 0x0840->0x08b6 ; "Unable to access directory. Please check and fix:"
0497 086f | o | .STRTAB 0x086f->0x08ce ; "1) There is no file in the directory path."
0498 0897 | | .STRTAB 0x0897->0x08e3 ; "Check login parameters. Exception name: "
0499 08bd | | .STRTAB 0x08bd->0x08f7 ; "Unable to log in. Please check the values entered in Remote_machine,"
049a 08ff | | .STRTAB 0x08ff->0x0919 ; "Remote_Username, and Remote_Password for validity."
049b 092f | / | .STRTAB 0x092f->0x0932 ; "Files have been transfered to the workstation "
049c 095b | [ | .STRTAB 0x095b->0x0949 ; " in "
049d 095d | ] | .STRTAB 0x095d->0x094b ; ". Please refer to the install notes to complete the workstation installation of Rational Access."
049e 09bc | | .STRTAB 0x09bc->0x097c ; "Raised exception "
049f 09cb | | .STRTAB 0x09cb->0x0984 ; "Problems encountered during installation."
04a0 09f2 | | .STRTAB 0x09f2->0x0999 ; "Restoring the original .rhosts file."
04a1 0a14 | | .STRTAB 0x0a14->0x09ab ; "/bin/rm .rhosts"
04a2 0a21 | ! | .STRTAB 0x0a21->0x09b2 ; "Unable to remove the .rhosts file."
04a3 0a41 | A | .STRTAB 0x0a41->0x09c3 ; "/bin/mv .rhosts_RA .rhosts"
04a4 0a59 | Y | .STRTAB 0x0a59->0x09d0 ; "Unable to restore the original .rhosts file."
04a5 0a83 | | .STRTAB 0x0a83->0x09e6 ; "Checking for Rshell privileges."
04a6 0aa0 | | .STRTAB 0x0aa0->0x09f6 ; "Unable to use Rshell on workstation due to lack of privileges on the"
04a7 0ae2 | | .STRTAB 0x0ae2->0x0a18 ; "workstation. To obtain privileges, the .rhosts file on account "
04a8 0b20 | | .STRTAB 0x0b20->0x0a38 ; "needs to be modified. The original .rhosts file will be copied to "
04a9 0b61 | a | .STRTAB 0x0b61->0x0a59 ; ".rhosts_RA, and a new .rhosts will be created with the entry "
04aa 0b9c | | .STRTAB 0x0b9c->0x0a78 ; "("
04ab 0b9b | | .STRTAB 0x0b9b->0x0a78 ; "). At the end of the install, the original "
04ac 0bc5 | | .STRTAB 0x0bc5->0x0a8e ; ".rhosts file will be restored."
04ad 0be1 | | .STRTAB 0x0be1->0x0a9d ; "Modify the .rhosts file: [y] "
04ae 0bfc | | .STRTAB 0x0bfc->0x0aac ; "!Machine.Temporary.Original_Rhosts"
04af 0c1c | | .STRTAB 0x0c1c->0x0abd ; ".rhosts"
04b0 0c21 | ! | .STRTAB 0x0c21->0x0ac0 ; ".rhosts_RA"
04b1 0c29 | ) | .STRTAB 0x0c29->0x0ac5 ; "Unable to save the original .rhosts file."
04b2 0c50 | P | .STRTAB 0x0c50->0x0ada ; "!Machine.Temporary.Rhosts_file"
04b3 0c6c | l | .STRTAB 0x0c6c->0x0ae9 ; "Unable to create new .rhosts file."
04b4 0c8c | | .STRTAB 0x0c8c->0x0afa ; ".rhosts file modified."
04b5 0ca0 | | .STREND 0x0ca0->0x0b05
04b6 214d 6163 |!Mac| .STRTAB_STRINGS
0b05 0000 0000 | | .XXX[0x3]
0b07 0000 | |
0b08 ; --------------------------------------------------------------------------------------
0b08 ; Debug Table
0b08 ; --------------------------------------------------------------------------------------
0b08 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9d39,0x0000,0x0001,0x0000
0b0e 0000 0000 | | .BLANK 0000[0xea]
0bf8 31d8 0000 |1 | .XXX[0x8]
0bfa 0101 0101 | |
0bfc 0233 637b | 3c{|
0bfe 0ba1 0142 | B|