source: buchla-68k/orig/IOLIB/PUTW.C@ 0acb7d0

Last change on this file since 0acb7d0 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.

  • Property mode set to 100755
File size: 498 bytes
Line 
1/*
2 ============================================================================
3 putw.c -- put a word onto a stream file
4 Version 3 -- 1987-10-15 -- D.N. Lynx Crowe
5
6 WARNING: This fails if the stream is ASCII.
7 ============================================================================
8*/
9
10#include "stdio.h"
11#include "stddefs.h"
12
13putw(w, stream)
14register unsigned w;
15FILE *stream;
16{
17 if (putc(((w >> 8) & 0xFF), stream) < 0 )
18 return;
19
20 putc((w & 0xFF), stream);
21}
Note: See TracBrowser for help on using the repository browser.