1 
 2 /* Begin include file mc_trace_buf.incl.pl1 */
 3 
 4 /* Created in April 1977 by James A. Bush to define the contents of the machine condition trace buffer */
 5 
 6 dcl  bp ptr;                                                /* pointer to M. C. buffer */
 7 
 8 dcl 1 mc_trace_buf based (bp) aligned,                      /* trace buffer template */
 9     2 mc_lim fixed bin unal,                                /* end of machine condition storage area */
10     2 mc_nxtad fixed bin unal,                              /* the nxt avail. location for M. C. storage */
11     2 mc_strt fixed bin unal,                               /* the beginning of the M. C. storage area */
12     2 mc_cnt fixed bin unal,                                /* number of M. C.'s that can be stored */
13     2 hr_lim fixed bin unal,                                /* end of history register storage */
14     2 hr_nxtad fixed bin unal,                              /* the nxt avail. location for history register storage */
15     2 hr_strt fixed bin unal,                               /* the beginning of the H. R. storage area */
16     2 hr_cnt fixed bin unal,                                /* number of H. R.'s that can be stored */
17     2 pad (4) fixed bin,                                    /* pad to start of history register area */
18     2 h_regs (hr_cnt),                                      /* array of history register blocks */
19       3 ou_hr (16) bit (72),                                /* operations unit history registers */
20       3 cu_hr (16) bit (72),                                /* control unit history registers */
21       3 du_hr (16) bit (72),                                /* decimal unit history registers */
22       3 au_hr (16) bit (72),                                /* appending unit history registers */
23     2 mach_cond (mc_cnt),                                   /* array of machine conditions */
24       3 spri_dta (8) ptr,                                   /* pointer register storage */
25       3 sreg_dta (8) bit (36),                              /* processor register storage */
26       3 scu_dta (8) bit (36),                               /* SCU data  storage */
27       3 sw_dta (8) bit (36),                                /* software data storage */
28       3 spl_dta (8) bit (36);                               /* EIS ptrs and lengths data */
29 
30 dcl  mc_size fixed bin int static options (constant) init (48); /* size of M. C. block in words */
31 dcl  hr_size fixed bin int static options (constant) init (128); /* size of history register block */
32 dcl  max_buf_size fixed bin int static options (constant) init (16); /* max size of M. C. buffer in K */
33 dcl  buf_init bit (36) int static options (constant) init ("525252525252"b3); /* buffer init. constant */
34 
35 /* End include file mc_trace_buf.incl.pl1 */
36