about summary refs log tree commit diff
path: root/urt/vaxshort.c
blob: c39e78ecc436c21f56f889f27e7169d3e120a964 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
/*
 *                      V A X S H O R T
 *
 *  Code to manipulate 16-bit integers in VAX order in a
 *  machine independent manner.
 *
 *  (VAX is a trademark of Digital Equipment Corporation)
 *
 *  Author -
 *      Michael John Muuss
 *
 *  Source -
 *      SECAD/VLD Computing Consortium, Bldg 394
 *      The U. S. Army Ballistic Research Laboratory
 *      Aberdeen Proving Ground, Maryland  21005-5066
 *
 *  Distribution Status -
 *      Public Domain, Distribution Unlimited.
 */

#include "vaxshort.h"

/*
 *                      V A X _ G S H O R T
 *
 *  Obtain a 16-bit signed integer from two adjacent characters,
 *  stored in VAX order, regardless of word alignment.
 */
int
vax_gshort(char *msgp)
{
        unsigned char *p = (unsigned char *) msgp;
        int     i;

        if( (i = (p[1] << 8) | p[0]) & 0x8000 )
                return(i | ~0xFFFF);    /* Sign extend */
        return(i);
}

/*
 *                      V A X _ P S H O R T
 */
char *
vax_pshort(char *msgp, unsigned short s)
{

        msgp[0] = s & 0xFF;
        msgp[1] = s >> 8;
        return(msgp+2);
}