xref: /csrg-svn/usr.bin/f77/pass1.vax/io.h (revision 22838)
1*22838Smckusick /*
2*22838Smckusick  * Copyright (c) 1980 Regents of the University of California.
3*22838Smckusick  * All rights reserved.  The Berkeley software License Agreement
4*22838Smckusick  * specifies the terms and conditions for redistribution.
5*22838Smckusick  *
6*22838Smckusick  *	@(#)io.h	5.1 (Berkeley) 06/07/85
7*22838Smckusick  */
8*22838Smckusick 
9*22838Smckusick #define NDDATA	1
10*22838Smckusick #define NDLABEL	2
11*22838Smckusick #define NDADDR	3
12*22838Smckusick #define NDNULL	4
13*22838Smckusick 
14*22838Smckusick 
15*22838Smckusick 
16*22838Smckusick 
17*22838Smckusick typedef
18*22838Smckusick   struct IoAddr
19*22838Smckusick     {
20*22838Smckusick       int stg;
21*22838Smckusick       int memno;
22*22838Smckusick       ftnint offset;
23*22838Smckusick     }
24*22838Smckusick   ioaddr;
25*22838Smckusick 
26*22838Smckusick 
27*22838Smckusick 
28*22838Smckusick typedef
29*22838Smckusick   union IoValue
30*22838Smckusick     {
31*22838Smckusick       Constp cp;
32*22838Smckusick       ftnint label;
33*22838Smckusick       struct IoAddr addr;
34*22838Smckusick     }
35*22838Smckusick   iovalue;
36*22838Smckusick 
37*22838Smckusick 
38*22838Smckusick 
39*22838Smckusick typedef
40*22838Smckusick   struct IoBlock
41*22838Smckusick     {
42*22838Smckusick       struct IoBlock *next;
43*22838Smckusick       int blkno;
44*22838Smckusick       ftnint len;
45*22838Smckusick       struct OffsetList *olist;
46*22838Smckusick     }
47*22838Smckusick   ioblock;
48*22838Smckusick 
49*22838Smckusick 
50*22838Smckusick 
51*22838Smckusick typedef
52*22838Smckusick   struct OffsetList
53*22838Smckusick     {
54*22838Smckusick       struct OffsetList *next;
55*22838Smckusick       ftnint offset;
56*22838Smckusick       int tag;
57*22838Smckusick       union IoValue val;
58*22838Smckusick     }
59*22838Smckusick   offsetlist;
60*22838Smckusick 
61*22838Smckusick 
62*22838Smckusick 
63*22838Smckusick 
64*22838Smckusick extern ioblock *iodata;
65*22838Smckusick 
66