put$xs (4) --- put a character (byte) into an array      06/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine put$xs (array, position, char)
                 shortcall put$xs (4)

                 untyped array (ARB)
                 integer position
                 character char

                 Library: shortlb
                 Also declared in =incl=/shortlb.r.i


            _F_u_n_c_t_i_o_n

                 This  routine  inserts  a  byte  quantity  into  'array'  at
                 'position', using highly efficient indexing and  byte  swap-
                 ping  operations.   The  byte  is  assumed  to  be the least
                 significant byte of 'char'.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 Implemented as a simple  PMA  routine  entered  via  a  JSXB
                 (shortcall).

                 Note that any routine using this call must be compiled using
                 the "-q" option of 'fc'.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 array


            _B_u_g_s

                 Does no bounds checking on the array (standard FTN problem),
                 but this may also be seen as a good point.

                 Locally supported.


            _S_e_e _A_l_s_o

                 fc (1), get$xs (4)












            put$xs (4)                    - 1 -                    put$xs (4)