Context Navigation

PUTL.C@ 0170798

Last change on this file since 0170798 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Imported original source code.
Property mode set to `100755`
File size: 641 bytes

Rev	Line
[3ae31e9]	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 "stdio.h"
	11	#include "stddefs.h"
	12
	13	putl(w, stream)
	14	register long w;
	15	register FILE *stream;
	16	{
	17	if (putc(((w >> 24) & 0xFF), stream) < 0 )
	18	return;
	19
	20	if (putc(((w >> 16) & 0xFF), stream) < 0 )
	21	return;
	22
	23	if (putc(((w >> 8) & 0xFF), stream) < 0 )
	24	return;
	25
	26	putc((w & 0xFF), stream);
	27	}

Note: See TracBrowser for help on using the repository browser.