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
5
6 ¯o status_table
7
8 name &1_status_table_
9
10 segdef &1_status_table_
11
12
13 bool bk,400000 retry previous operation
14 bool in,200000 set backup flag if status.initiate
15 bool rp,100000 report this error online
16 bool hlt,040000 this error stops device
17
18
19 &1_status_table_:
20
21 &2 ife &i0
22 zero 00
23 ifend
24 ine &i0
25 zero m&xlm&x
26 ifend
27 &
28
29 &2 ine &i0
30 set lm&x0
31 ifend
32 &
33
34 &end
35
36
37 ¯o status_entry
38
39 m&1: aci "&2",24
40
41 &end
42
43
44 ¯o substat_entry
45 set lm&1,lm&1+1
46 aci "&2",6
47 vfd o18/&3
48 aci "&4",32
49
50 &end
51
52