

            get$xs (4) --- get a character (byte) from an array      06/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 character function get$xs (array, position)
                 shortcall get$xs (4)

                 untyped array (ARB)
                 integer position

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


            _F_u_n_c_t_i_o_n

                 This  routine  extracts  a  byte quantity from the specified
                 array using highly  efficient  indexing  and  byte  swapping
                 operations.


            _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'.


            _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), put$xs (4)



















            get$xs (4)                    - 1 -                    get$xs (4)


