1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4 " *                                                         *
 5 " * Copyright (c) 1972 by Massachusetts Institute of        *
 6 " * Technology and Honeywell Information Systems, Inc.      *
 7 " *                                                         *
 8 " ***********************************************************
 9 
10           segdef    in_dfast
11           segdef    in_fast_or_dfast
12           segdef    fortran_io_initiated
13           segdef    chaining
14           segdef    chain_entry
15           segdef    fortran_buffer_p
16           segdef    basic_area_p
17           segdef    terminate_run
18 
19 
20           use       internal_static
21 in_dfast:
22           dec       0
23 
24 in_fast_or_dfast:
25           dec       0
26 
27 fortran_io_initiated:
28           dec       0
29 
30 chaining:
31           dec       0
32 
33           even
34 fortran_buffer_p:
35           its       -1,1
36 
37 chain_entry:
38           its       -1,1
39           its       -1,1
40 
41 terminate_run:
42           its       -1,1
43           its       -1,1
44 
45 basic_area_p:
46           its       -1,1
47 
48           join      /link/internal_static
49           end