Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/clib/getw.c

@@ -0,0 +1,30 @@
+/**************************************************************************
+*
+*			g e t w   F u n c t i o n
+*			-------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"getw" gets an WORD (2 byte) value from the input stream.
+*	Note that what's written (binary) by a PDP 11 (UNIX: lo byte, hi byte)
+*	system will NOT be compatible with what's written by a
+*	68K (NUXI: hi byte, lo byte) system.
+*
+*	Calling sequence:
+*		w = getw(stream)
+*	Where:
+*		w     = a 16-bit word value
+*		stream-> a (FILE *) input stream
+*
+*****************************************************************************/
+#include <stdio.h>
+WORD getw(sp)
+REG	FILE *sp;				/* the stream to get from   */
+{						/*			    */
+	WORD w;					/* place to get to	    */
+REG	BYTE *p;				/* make ptr to w	    */
+						/****************************/
+	p = (char *)&w;				/* point to w		    */
+	*p++ = getc(sp);			/* no way to distinguish    */
+	*p++ = getc(sp);			/*  twixt EOF & -1	    */
+	return(w);				/* there it is		    */
+}						/****************************/