1 /* Begin include file instruction.incl.pl1 2/82 BIM -- from db_inst */
 2 /* format: style3 */
 3 
 4 declare   1 instruction_right_half
 5                               based unaligned,              /* The second halfword */
 6             2 opcode          bit (10) unaligned,           /* what */
 7             2 inhibit         bit (1) unaligned,            /* interrupts */
 8             2 pr              bit (1) unaligned,            /* if ON, use instruction_pr */
 9                                                             /* else instruction_offset */
10             2 tag             bit (6) unaligned;            /* type of indirection */
11 
12 declare   instruction_ptr     pointer;
13 
14 declare   1 instruction_common
15                               aligned based (instruction_ptr),
16             2 pad_address     bit (18) unaligned,
17             2 right           unaligned like instruction_right_half;
18 
19 declare   1 instruction_off   aligned based (instruction_ptr),
20             2 offset          fixed bin (18) unsigned unaligned,
21             2 right           unaligned like instruction_right_half;
22 
23 declare   1 instruction_pr    aligned based (instruction_ptr),
24             2 address         unaligned,
25               3 pr            fixed bin (3) unsigned unaligned,
26               3 offset        fixed bin (14) unaligned,     /* this is signed */
27             2 right           unaligned like instruction_right_half;
28 
29 /* End include file instruction.incl.pl1 */