file: wpfiles\vertext_replacement\on_off.wpd jbh 7 june,04

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$AZIMUTH POWER UP, POWER DOWN, AND MONITORING

IF AZpwrCOMMAND=1

CALL AZPpwrUPseq (AZpwrSTATUS)

WRITE 5,AZpwrSTATUS

$ERROR CHECK: DID AZPWRSTATUS BECOME DEFICIENT TO
CONTINUE	BRAKE OFF	(RUN) STATUS?

IF (AZlastPWRstatus = BRAKEoff AND AZpwrSTATUS N.E. 'BRAKEoff)

THEN AZpwrMESSAGE = "AZ power being shut down for deficient status"
AZpwrCOMMAND=0

END IF

AZlastPWRstatus=AZpwrSTATUS

END IF

If AZPWRCOMMAND=0

CALL AZPWRDOWNSEQ(AZPWRSTATUS,AZPWRLASTSTATUS)

WRITE 7 AZPWRSTATUS

END IF

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$GREG POWER UP, POWER DOWN, AND MONITORING

IF GREGPWRCOMMAND=1

CALL GREGPWRUPSEQ(GREGPWRSTATUS)

WRITE 5,GREGPWRSTATUS

$ERROR CHECK: DID GREGPWRSTATUS BECOME DEFICIENT TO
CONTINUE	BRAKE OFF	(RUN) STATUS?

IF (GREGLASTPWRSTATUS = BRAKEOFF AND GREGPWRSTATUS N.E. 'BRAKEOFF)

THEN GREGPWRMESSAGE = "GREG power being shut down for deficient status"
GREGPWRCOMMAND=0

END IF

GREGPWRSTATUS=GREGPWRSTATUS

END IF

IF GREGPWRCOMMAND=0

CALL GREGPWRDOWNSEQ(GREGPWRSTATUS)

WRITE 7 GREGPWRSTATUS

END IF

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$---------------------------------------------------------------------------------------------------------------------------------------------------------------

$CH POWER UP, POWER DOWN, AND MONITORING

IF CHPWRCOMMAND=1

CALL CHPWRUPSEQ(CHPWRSTATUS)

WRITE 5,CHPWRSTATUS

$ERROR CHECK: DID CHPWRSTATUS BECOME DEFICIENT TO
CONTINUE	BRAKE OFF	(RUN) STATUS?

IF (CHLASTPWRSTATUS = BRAKEOFF AND CHPWRSTATUS N.E. 'BRAKEOFF)

THEN CHPWRMESSAGE = "CH power being shut down for deficient status"
CHPWRCOMMAND=0

END IF

CHLASTPWRSTATUS=CHPWRSTATUS

END IF

IFCHPWRCOMMAND=0

CALL CHPWRDOWNSEQ(CHPWRSTATUS)

WRITE 7 CHPWRSTATUS

END IF

$---------------------------------------------------------------------------------------------------------------------------------------------------------------