/* returns INT16 datatype or converts input to int16 */
castint16(s)
{
        if (argc < 1)
        {
                /* signed byte */
                return(INT16);
        }
        else
        {
                /* convert to signed byte */
                return(castbyte({s}, INT16));
        }
}