at$swt (6) --- Subsystem interlude to Primos ATCH$$      08/30/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine at$swt (name, namel, ldisk, passwd, key, code)
                 character name (MAXPATH)
                 packed_char passwd (3)
                 integer namel, ldisk, key, code

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'At$swt'  is  the  Subsystem  interlude to the Primos ATCH$$
                 subroutine.  It allows the  program  to  attach  to  another
                 directory, and takes the same arguments as ATCH$$.  If there
                 is  an  error  in  trying  to  reach the directory, 'at$swt'
                 returns E$BPAS in 'code', instead of  leaving  the  user  in
                 Primos.

                 'Name' is the name of the directory to attach to, 'namel' is
                 the  length  of 'name', 'ldisk' is the number of the logical
                 disk to be searched to find the given directory, 'passwd' is
                 the password of the directory (the characters are packed two
                 per word), 'key' is the composition of the  'REFERENCE'  and
                 'SETHOME'  subkeys  (see  the  _P_r_i_m_o_s  _S_u_b_r_o_u_t_i_n_e_s _R_e_f_e_r_e_n_c_e
                 _G_u_i_d_e, PDR3621), and 'code' is  an  integer  variable  which
                 contains the return code.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'At$swt'  first  sets  up an on-unit for the "BAD_PASSWORD$"
                 condition before it tries to call the Primos ATCH$$ routine.
                 It calls that Primos  routine  with  all  of  its  arguments
                 (which  are  not processed in any way), and returns normally
                 if there was no error in attaching to  the  directory.   Any
                 errors  cause  an  error message to be issued and control is
                 returned to the calling procedure.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 code


            _C_a_l_l_s

          |      Primos atch$$, Primos mkonu$, Primos pl1$nl


          | _B_u_g_s

          |      Should be converted to use the new Primos 'at$?*' routines.





            at$swt (6)                    - 1 -                    at$swt (6)




            at$swt (6) --- Subsystem interlude to Primos ATCH$$      08/30/84


            _S_e_e _A_l_s_o

                 follow (2), getto (2), tscan$ (6), Primos atch$$























































            at$swt (6)                    - 2 -                    at$swt (6)