Last change
on this file since f40d52b 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.