1 /* BEGIN include file bce_breakpoint_page.incl.pl1 */
 2 
 3 /* Description of hardcore breakpoint information saved in breakpoint_page.
 4 Keith Loepere, December 1983. */
 5 /* Sentinel added, July 1984 by Keith Loepere. */
 6 
 7 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
 8 
 9 dcl  1 bkpt_page                      aligned based (bkpt_page_ptr),
10        2 header                       aligned,
11          3 mc_                        aligned like mc,
12          3 mode_reg                   bit (36) aligned,
13          3 cache_mode_reg             bit (36) aligned,
14          3 dbr                        bit (72) aligned,
15          3 bar                        bit (36) aligned,
16          3 sentinel                   char (4) unal,
17          3 pad                        (10) bit (36),
18        2 bkpts                        (120) aligned like breakpoint;
19 dcl  bkpt_page_ptr                    ptr;
20 
21 dcl  1 breakpoint                     aligned based (breakpoint_ptr),
22        2 breakpoint_drl               bit (36),             /* drl -1 => breakpoint */
23        2 instructions                 (4) bit (36),
24        2 tra_back_offset              fixed bin (18) unal uns,
25        2 tra_back                     bit (18) unal,        /* tra back to original code */
26        2 original_instr_ptr           ptr unal,             /* ptr to where original instruction was */
27        2 original_instr               bit (36);             /* real instruction moved */
28 dcl  breakpoint_ptr                   ptr;
29 
30 dcl  BKPT_page_sentinel               char (4) static options (constant) init ("bkpt");
31 
32 /* END include file bce_breakpoint_page.incl.pl1 */