?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Load Options Routines:  Routines to Access System Initialization Control Values' ??
MODULE ram$load_options_routines;

{ PURPOSE:
{   This module contains the procedures that allow the accessing of the system initialization control
{   values from a higher ring.
{
{ NOTES:
{   These procedures compile to OSF$JOB_TEMPLATE_23D.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc oss$task_shared
*copyc ost$name
*copyc ost$status
?? POP ??
*copyc rav$development_deadstart
*copyc rav$installation_tape_values
*copyc rav$network_activation
*copyc rav$system_activation
*copyc syv$recovering_job_count
?? TITLE := 'Global Declarations Declared by This Module', EJECT ??

  VAR
    rav$console_task_restarted: [XDCL, #GATE, oss$task_shared] boolean := FALSE;

?? TITLE := '[XDCL, #GATE] rap$get_console_task_status', EJECT ??

{ PURPOSE:
{   The purpose of this request is to return the value of whether or not the Console Interaction task been
{   restarted.  On the initial call to this interface the value returned will be FALSE.  Every subsequent
{   call will return the value as TRUE.

  PROCEDURE [XDCL, #GATE] rap$get_console_task_status
    (VAR task_restarted: boolean);

    task_restarted := rav$console_task_restarted;
    rav$console_task_restarted := TRUE;

  PROCEND rap$get_console_task_status;

?? TITLE := '[XDCL, #GATE] rap$get_development_ds_value', EJECT ??

{ PURPOSE:
{   The purpose of this request is to return the value of whether or not this is a development deadstart.
{   This value was set at system core time.

  PROCEDURE [XDCL, #GATE] rap$get_development_ds_value
    (VAR development_deadstart: boolean);

    development_deadstart := rav$development_deadstart;

  PROCEND rap$get_development_ds_value;

?? TITLE := '[XDCL, #GATE] rap$get_inst_tape_values', EJECT ??

{ PURPOSE:
{   The purpose of this request is to return the values set by the
{   SET_INSTALLATION_TAPE command.
{
{ DESIGN:
{   The SET_INSTALLATION_TAPE command is entered at system core time.
{   This procedure retrieves the SET_INSTALLATION_TAPE values.  Since
{   system core runs at a privileged rings, this procedure must also run
{   at the those rings.
{
{   NOTES:
{

  PROCEDURE [XDCL, #GATE] rap$get_inst_tape_values
    (VAR installation_tape_values: rat$installation_tape_values);

    installation_tape_values := rav$installation_tape_values;

  PROCEND rap$get_inst_tape_values;

?? TITLE := '[XDCL, #GATE] rap$get_jobs_recovered_value', EJECT ??

{ PURPOSE:
{   The purpose of this request is to return the value of whether or not there are jobs to be recovered.

  PROCEDURE [XDCL, #GATE] rap$get_jobs_recovered_value
    (VAR jobs_recovered: boolean);

    IF syv$recovering_job_count <> 0 THEN
      jobs_recovered := TRUE;
    ELSE
      jobs_recovered := FALSE;
    IFEND;

  PROCEND rap$get_jobs_recovered_value;

?? TITLE := '[XDCL, #GATE] rap$get_network_activate_value', EJECT ??

{ PURPOSE:
{   The purpose of this request is to return the value of whether or not the network is to be
{   automatically activated.  This value was set at system core time.

  PROCEDURE [XDCL, #GATE] rap$get_network_activate_value
    (VAR network_activation: boolean);

    network_activation := rav$network_activation;

  PROCEND rap$get_network_activate_value;

?? TITLE := '[XDCL, #GATE] rap$get_system_activation_value', EJECT ??

{ PURPOSE:
{   The purpose of this request is to return the value of whether or not the system should be
{   automatically activated.  This value was set at system core time.

  PROCEDURE [XDCL, #GATE] rap$get_system_activation_value
    (VAR system_activation: boolean);

    system_activation := rav$system_activation;

  PROCEND rap$get_system_activation_value;

MODEND ram$load_options_routines;
