source: buchla-68k/orig/IOLIB/GETL.C@ 0580615

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

Imported original source code.

  • Property mode set to 100755
File size: 859 bytes
Line 
1/*
2 =============================================================================
3 getl.c -- get a 68000 long word from a stream file
4 Version 2 -- 1987-10-15 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "stdio.h"
9
10extern int fgetc();
11
12/*
13 =============================================================================
14 getl(stream) -- get a long word from 'stream'
15
16 Reads a long from 'stream' in Motorola 68000 byte order.
17 No special alignment is assumed in the file.
18 =============================================================================
19*/
20
21long
22getl(stream)
23register FILE *stream;
24{
25 long temp;
26 register char *t;
27
28 t = &temp;
29
30 *t++ = fgetc(stream);
31 *t++ = fgetc(stream);
32 *t++ = fgetc(stream);
33 *t = fgetc(stream);
34
35 return(temp);
36}
Note: See TracBrowser for help on using the repository browser.