

            ctoa (2) --- convert character to address                01/07/83


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 long_int function ctoa (str, i)
                 character str (ARB)
                 integer i

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Ctoa'  converts  the address in ASCII character representa-
                 tion at position 'i' of the given string to  binary  format.
                 'I'  is  incremented to point to the position just after the
                 integer.  If the character at position 'i'  is  not  numeric
                 when  'ctoa'  is  entered,  the  value zero is returned (the
                 exceptions are blanks and tabs; these characters are ignored
                 at the start of the number).   'Ctoa'  recognizes  a  32-bit
                 address in the following format:
                 
                       [f]<ring>.<segment>.<word>
                 
                 The  presence  of  the character "f" at the beginning of the
                 address indicates that the pointer fault bit is to  be  set.
                 <Ring>,  <segment>,  and <word> are positive octal integers.
                 A bit number following the address is ignored, if present.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Ctoa' scans the string,  using  the  argument  'i'  as  the
                 starting  position.   Leading  blanks  and tabs are skipped.
                 The octal integers are  collected  with  'gctol'.   As  each
                 element  of  the  address  is collected, it is placed in the
                 proper bit positions of the long integer return value.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 i


            _C_a_l_l_s

                 gctol


            _B_u_g_s

                 Cannot return 48 bit indirect pointers.


            _S_e_e _A_l_s_o

                 atoc (2), other conversion routines  (?*toc  (2)  and  cto?*
                 (2))


            ctoa (2)                      - 1 -                      ctoa (2)


