blob: bf22d493f7bd802cee1a84d14bf1a8d82707669e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "iis.h"
# IISHDR -- Form IIS header.
procedure iishdr (id, count, subunit, x, y, z, t)
int id, count, subunit, x, y, z, t
int i, sum
include "iis.com"
begin
XFERID(hdr) = id
THINGCT(hdr) = count
SUBUNIT(hdr) = subunit
XREG(hdr) = x
YREG(hdr) = y
ZREG(hdr) = z
TREG(hdr) = t
CHECKSUM(hdr) = 1
if (THINGCT(hdr) > 0)
THINGCT(hdr) = -THINGCT(hdr)
sum = 0
for (i = 1; i <= LEN_IISHDR; i = i + 1)
sum = sum + hdr[i]
CHECKSUM(hdr) = -sum
end
|
