1 " Macro definitions for peripheral status table generation.
 2 "         created 12/1/74 by Noel I. Morris
 3 "         last modified 6/10/75 by Noel I. Morris
 4 "         last modified 4/79 by R.J.C. Kissel to make alm macros instead of mexp.
 5 "         last modified 7/83 by E. N. Kittlitz to add eurc_nobk.
 6 
 7           macro     status_table
 8 
 9           name      &1_status_table_
10 
11           segdef    &1_status_table_
12 
13 
14           bool      bk,400000           retry previous operation
15           bool      in,200000           set backup flag if status.initiate
16           bool      rp,100000           report this error online
17           bool      hlt,040000          this error stops device
18           bool      eurc_nobk,020000    ignore bk if eurc connection
19 
20 &1_status_table_:
21 
22 &(2&=&i,0&[         zero      0,0
23 &;        zero      m&x,lm&x
24           set       lm&x,0
25 &]&)
26 
27 &end
28 
29 
30           macro     status_entry
31 
32 m&1:      aci       "&2",24
33 
34 &end
35 
36 
37           macro     substat_entry
38           set       lm&1,lm&1+1
39           aci       "&2",6
40           vfd       o18/&3
41           aci       "&4",32
42 
43 &end
44 
45