FTN4,L
      SUBROUTINE PSCTL(IUNIT,IP1,IP2,IP3,IP4,IP5),
     +09580-16412 1926 790426 
C 
C-------------------------------------
C 
C  HP DTU POWER SUPPLY PROGRAMMER.  THIS IS THE BASIC FRONT END FOR 
C  XSCTL (HP-09570-16559 REV. A)
C 
C  RELOCATABLE 09580-16412
C  SOURCE      09580-18412
C 
C  BOB RICHARDS  REV 1926 790426
C 
C------------------------------------ 
C 
C  !=================================================!
C  !                                                 !
C  ! (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979      !
C  !                ALL RIGHTS RESERVED              !
C  !                                                 !
C  ! NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,     !
C  ! REPRODUCED OR TRANSLATED INTO ANOTHER PROGRAM   !
C  ! LANGUAGE WITHOUT THE PRIOR WRITTEN CONSENT OF   !
C  ! THE HEWLETT-PACKARD COMPANY.                    !
C  !                                                 !
C  !-------------------------------------------------!
C  !                                                 !
C  ! TEST SYSTEM SOURCE SOFTWARE IS THE PROPRIETY    !
C  ! MATERIAL OF THE HEWLETT-PACKARD COMPANY.        !
C  !                                                 !
C  ! THIS SOURCE DATA SHALL BE USED SOLELY IN        !
C  ! CONJUCTION WITH ELECTRONIC COMPUTER SYSTEMS     !
C  ! SUPPLIED TO THE USER BY HEWLETT-PACKARD.        !
C  !                                                 !
C  ! THIS PROPRIETY DATA SHALL NOT BE COPIED OR      !
C  ! OTHERWISE REPRODUCED WITHOUT THE PRIOR WRITTEN  !
C  ! CONSENT OF HEWLETT-PACKARD, EXCEPT THAT ONE     !
C  ! COPY MAY BE MADE AND RETAINED BY THE USER FOR   !
C  ! ARCHIVE PURPOSES.                               !
C  !                                                 !
C  ! THE USER SHALL NOT DISCLOSE THIS DATA TO ANY    !
C  ! THIRD PARTIES WITHOUT THE PRIOR WRITTEN CONSENT !
C  ! OF HEWLETT-PACKARD. IN ADDITION, THE USER SHALL !
C  ! USE AT LEAST THE SAME CARE AND SAFEGUARDS TO    !
C  ! PROTECT THIS DATA FROM UNAUTHORIZED USE OR      !
C  ! DISCLOSURE AS THE USER USES TO PROTECT ITS OWN  !
C  ! PROPRIETARY DATA.                               !
C  !                                                 !
C  !=================================================!
C 
C  GENERAL: 
C  -------- 
C 
C 
C 
C 
C  BRANCH AND MNEMONIC TABLE ENTRIES: 
C  ---------------------------------- 
C 
C    PSCTL(I,I,I,I,I,I),    OV=XX,   ENT=PSCTL,   FIL=%PSCTL
C 
C------------------------------------ 
C 
C  PSCTL(IUNIT,IP1,IP2,IP3,IP4,IP5) 
C 
C    WHERE: 
C 
C       IUNIT = UNIT #
C 
C       IPN   = DTU POWER SUPPLY CONTROL WORDS, WHERE IPN = 0, SUPPLY OFF,
C               IPN = 1, SUPPLY ON. 
C 
C 
C 
C------------------------------------ 
      DIMENSION IERMS(5)
C 
C     USE DTU DEVICE TYPE NUMBER
C 
      DATA IDTN / 3 / 
      DATA IERMS / 10,5,2HPS,2HCT,2HL  /
C 
      IERMS=10
C 
C  FIND STATION AND LU #'S
C   ISTN = STATION #
C   LU1 = DTU POWER SUPPLY CONTROLLER LU. 
C   LUIB = HPIB LU
C 
      ISTN=ISN(DUMMY) 
      LU1=LUDV(ISTN,IDTN,IUNIT) 
      LUIB=IBLU0(LU1) 
      IF(LU1 .LE. 0 .OR. LUIB .LE. 0)GOTO 800 
C 
C  CALL X SUB 
C 
      CALL XSCTL(LU1,IERMS,IP1,IP2,IP3,IP4,IP5) 
      IF(IERMS)800,20,800 
C 
C  EXIT 
C 
20    RETURN
C 
C  ERROR EXIT 
C 
800   CALL ERROR(IERMS,IERMS(2))
      RETURN
      END 
      END$
                                                                                                                                                              