1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_OBCS |
5 |
# |
6 |
CADJ STORE shiftvel = tapelev3, key = ilev_3 |
7 |
# |
8 |
# ifdef ALLOW_OBCS_NORTH |
9 |
CADJ STORE StoreOBCSN = tapelev3, key = ilev_3 |
10 |
# endif /* ALLOW_OBCS_NORTH */ |
11 |
# |
12 |
# ifdef ALLOW_OBCS_SOUTH |
13 |
CADJ STORE StoreOBCSS = tapelev3, key = ilev_3 |
14 |
# endif /* ALLOW_OBCS_SOUTH */ |
15 |
# |
16 |
# ifdef ALLOW_OBCS_EAST |
17 |
CADJ STORE StoreOBCSE = tapelev3, key = ilev_3 |
18 |
# endif /* ALLOW_OBCS_EAST */ |
19 |
# |
20 |
# ifdef ALLOW_OBCS_WEST |
21 |
CADJ STORE StoreOBCSW = tapelev3, key = ilev_3 |
22 |
# endif /* ALLOW_OBCS_WEST */ |
23 |
# |
24 |
# ifdef ALLOW_PTRACERS |
25 |
# |
26 |
#ifdef ALLOW_OBCS_NORTH |
27 |
CADJ STORE OBNptr = tapelev3, key = ilev_3 |
28 |
#ifdef ALLOW_OBCS_PRESCRIBE |
29 |
CADJ STORE OBNptr0 = tapelev3, key = ilev_3 |
30 |
CADJ STORE OBNptr1 = tapelev3, key = ilev_3 |
31 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
32 |
#endif /* ALLOW_OBCS_NORTH */ |
33 |
#ifdef ALLOW_OBCS_SOUTH |
34 |
CADJ STORE OBSptr = tapelev3, key = ilev_3 |
35 |
#ifdef ALLOW_OBCS_PRESCRIBE |
36 |
CADJ STORE OBSptr0 = tapelev3, key = ilev_3 |
37 |
CADJ STORE OBSptr1 = tapelev3, key = ilev_3 |
38 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
39 |
#endif /* ALLOW_OBCS_SOUTH */ |
40 |
#ifdef ALLOW_OBCS_EAST |
41 |
CADJ STORE OBEptr = tapelev3, key = ilev_3 |
42 |
#ifdef ALLOW_OBCS_PRESCRIBE |
43 |
CADJ STORE OBEptr0 = tapelev3, key = ilev_3 |
44 |
CADJ STORE OBEptr1 = tapelev3, key = ilev_3 |
45 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
46 |
#endif /* ALLOW_OBCS_EAST */ |
47 |
#ifdef ALLOW_OBCS_WEST |
48 |
CADJ STORE OBWptr = tapelev3, key = ilev_3 |
49 |
#ifdef ALLOW_OBCS_PRESCRIBE |
50 |
CADJ STORE OBWptr0 = tapelev3, key = ilev_3 |
51 |
CADJ STORE OBWptr1 = tapelev3, key = ilev_3 |
52 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
53 |
#endif /* ALLOW_OBCS_WEST */ |
54 |
# |
55 |
# endif /* ALLOW_PTRACERS */ |
56 |
# |
57 |
#endif /* ALLOW_OBCS */ |