source: buchla-68k/libcio/putl.c@ 6099cac

Last change on this file since 6099cac was f261cc8, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Minor cleanup.

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