?? NEWTITLE := '~~~~~   common deck DSC$JOB_CONTROL_REGISTERS', EJECT ??
{***************************************************************

{  Job control register definitions, deck DSC$JOB_CONTROL_REGISTERS.

{***************************************************************

  CONST

{  R2 register values.

    xecute_trmve = 0,
    xecute_runve = 1;

  TYPE
    sense_switch_set = set of (sw6, sw5, sw4, sw3, sw2, sw1),
    job_control_information = PACKED RECORD
      global_error_flag: 0 .. 77(8),
      global_r1: 0 .. 777777(8),
      reserved: 0 .. 7777(8),
      exit_mode: 0 .. 7777(8),
      sense_switches: sense_switch_set,
      zero: 0 .. 77(8),
      error_flag: 0 .. 77(8),
      r3: 0 .. 777777(8),
      r2: 0 .. 777777(8),
      r1: 0 .. 777777(8),
    RECEND;

  VAR
    jcr: [XREF] job_control_information;


  PROCEDURE [XREF] jcrset; {set job control registers

  PROCEDURE [XREF] jcrget; {get job control registers
?? OLDTITLE ??
