1 /* BEGIN INCLUDE FILE ... godata.incl.pl1 */
 2 
 3 dcl  WHITE fixed bin int static options (constant) init (-1);
 4 dcl  BLACK fixed bin int static options (constant) init (1);
 5 dcl  FREE fixed bin int static options (constant) init (0);
 6 dcl  COLOR (-1:1) char (5) int static options (constant) init ("white", "", "black");
 7 
 8 dcl  godatap ptr;
 9 
10 dcl 1 godata based (godatap) aligned,
11     2 board (19, 19) fixed bin,
12     2 inf (19, 19) fixed bin,
13     2 suminf (19, 19) fixed bin,
14     2 grpno (19, 19) fixed bin,
15     2 np (361) fixed bin,
16     2 gp_color (361) fixed bin,
17     2 gp_loc (361, 2) fixed bin,
18     2 dame (-1:1, 361) fixed bin,
19     2 gp_attr (361),
20       3 eye bit (1) unal,
21       3 double_eye bit (1) unal,
22       3 dead bit (1) unal,
23       3 surround (-1:1) bit (1) unal,
24       3 feye bit (1) unal,
25       3 rest bit (29) unal,
26     2 contact (19, 19, 4) fixed bin,
27     2 ngrp fixed bin,
28     2 handy_num fixed bin,
29     2 i_ko fixed bin,
30     2 j_ko fixed bin,
31     2 tbdead fixed bin,
32     2 twdead fixed bin,
33     2 n_moves fixed bin,
34     2 pass_count fixed bin,
35     2 tbstones fixed bin,
36     2 twstones fixed bin,
37     2 vm (19, 19) fixed bin,
38     2 vc (19, 19) fixed bin,
39     2 v2 (19, 19) fixed bin,
40     2 v3 (19, 19) fixed bin,
41     2 vs (19, 19) fixed bin,
42     2 vi (19, 19) fixed bin,
43     2 mv (19, 19) fixed bin,
44     2 tbeye fixed bin,
45     2 tweye fixed bin,
46     2 votes (19, 19) fixed bin,
47     2 first_dame (361),
48       3 dami1 fixed bin (8) unal,
49       3 damj1 fixed bin (8) unal,
50       3 dami2 fixed bin (8) unal,
51       3 damj2 fixed bin (8) unal,
52     2 flags,
53       3 endgame bit (1) unal,                               /* TRUE when endgame enters */
54       3 debugging bit (1) unal,
55       3 rest bit (34) unal,
56     2 nearby (19, 19) fixed bin,                            /* set by select_move for playing nearby */
57     2 dead (-1:1, 0:2) fixed bin,                           /* dead, atari, ladder for each color */
58     2 statistics (-1:1),
59       3 contact_plays fixed bin,
60       3 ataris fixed bin,
61       3 rejected_moves fixed bin,
62       3 pad (5) fixed bin;                                  /* Pad statistics out to 24 words */
63 
64 /* END INCLUDE FILE ... godata.incl.pl1 */