FTN4,L SUBROUTINE TSYTM(IUNIT,IEVNT,IEXTT,IMANT,INPUT,IFREQ), +09580-16455 REV.2001 790821 C C------------------------------------- C C HP 5359A TIME SYNTHESIZER C C RELOCATABLE 09580-16455 C SOURCE 09580-18455 C C BOB RICHARDS 790821 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 PROPRIETARY ! C ! MATERIAL OF THE HEWLETT-PACKARD COMPANY. ! C ! ! C ! THIS SOURCE DATA SHALL BE USED SOLELY IN ! C ! CONJUNCTION WITH ELECTRONIC COMPUTER SYSTEMS ! C ! SUPPLIED TO THE USER BY HEWLETT-PACKARD. ! C ! ! C ! THIS PROPRIETARY 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 THE FOLLOWING DEVICE SUBROUTINES ARE USED C TO PROGRAM THE HP-5359A TIME SYNTHESIZER. C C HARDWARE REQUIRED: C ------------------ C A. HP 5359A C B. HP59310 BUS INTERFACE KIT. C C JUMPER POSITION: C SW1-1 - 1 C SW1-2 TO SW1-8 - 0 C SW2-1 - 0 C SW2-2 - 0 C SW2-3 - 0 C SW2-4 - 0 C SW2-5 - 1 C SW2-6 - REN C SW2-7 - ICF C SW2-8 - CNX C C C. HP 21XX SERIES COMPUTER C C BRANCH AND MNEMONIC TABLE ENTRIES: C ---------------------------------- C C TSYTM(I,I,I,I,I,I) OV=XX, ENT=TSYTM, FIL=%TSYTM C C CONFIGURATION TABLE ENTRIES: C ---------------------------- C C R 51,1,42 C U1 C * C 0 * 42 "0" ENTRIES C 0 C 0 C 0 C . C . C C 0 C C C C------------------------------------ C C TSYTM(IUNIT,IEVNT,IEXTT,IMANT,INPUT,IFREQ) C C WHERE: C C IUNIT = UNIT # C C IEVNT = EVENTS SLOPE C -1 = - SLOPE C 0 = NO COMMAND C +1 = + SLOPE C C IEXTT = EXTERNAL TRIGGER SLOPE C -1 = - SLOPE C 0 = NO COMMAND C +1 = + SLOPE C C IMANT = TRIGGER MANUAL FUNCTION C -1 = MANUAL FUNCTION C 0 = NO COMMAND C +1 = AUTO TRIGGER C C INPUT = TRIGGER INPUT C -1 = DISABLE C 0 = NO COMMAND C 1 = ENABLE C C IFREQ = TRIGGER FREQUENCY C -1 = TRIGGERED FREQUENCY ON C 0 = NO COMMAND C 1 = NORMAL FREQUENCY - NO TRIGGER NEEDED C C C C C------------------------------------ DIMENSION IERMS(5) DATA IDTN / 51 / DATA IERMS / 10,5,2HTS,2HYT,2HM / C IERMS=10 C C FIND STATION AND LU #'S C ISTN = STATION # C LU1 = HP-5359A LU C LUIB = HP-IB 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 XSYTM(LU1,LUIB,IERMS,IUNIT,IEVNT,IEXTT,IMANT,INPUT,IFREQ) IF(IERMS)800,20,800 C C EXIT C 20 RETURN C C ERROR EXIT C 800 CALL ERROR(IERMS,IERMS(2)) RETURN END C C--------------------------------------------- C SUBROUTINE XSYTM(LU1,LUIB,IERMS,IUNIT,IET,IEXTT,IMANT,INPUT, +IFREQ),09580-16455 REV.2001 790821 DIMENSION IERMS(5),IOBUF(5),IFS(6) C C--------------------------------------------- C C C THE PARAMETERS IN THE CALLING SEQUENCE HAVE THE FOLLOWING C MEANINGS. C C LUIB = LU # OF HP-IB BUS. C LU1 = LU # OF HP-5359A C C IERMS IS A FIVE WORD ARRAY WITH IERR(1) CONTAINING C THE ERROR CODE. C C 0 = NO ERROR C 1 = PARAMETER ERROR C C ERROR MESSAGES THAT PERTAIN TO THE HP-IB. C C 9 = I/O CALL REJECTED C 10 = LUIB OR LU1 = 0 C 12 = I/O DEVICE TIME OUT C 13 = IFC DETECTED DURING I/O REQUEST C 14 = SRQ ABORTED C 15 = NON-EXISTENT ALARM PROGRAM C 16 = ILLEGAL CONTROL REQUEST C 17 = EQT EXTENSION AREA FULL C C IERMS(2) = ERROR MNEMONIC CHARACTER COUNT C IERMS(3) TO IERMS(5) = ERROR MNEMONIC C C C--------------------------------------------- C C C C C CHECK PARAMETERS C IERMS=1 IF (IET .LT. -1 .OR. IET .GT. 1) GO TO 8000 IF(IEXTT .LT. -1 .OR. IEXTT .GT. 1) GO TO 8000 IF(IMANT .LT. -1 .OR. IMANT .GT. 1) GO TO 8000 IF(INPUT .LT. -1 .OR. INPUT .GT. 1) GO TO 8000 IF(IFREQ .LT. -1 .OR. IFREQ .GT. 1) GO TO 8000 C C SET UP OUTPUT BUFFER C C DO 200 I = 1,5 IOBUF(I) = 20040B 200 CONTINUE C C IF (IET .EQ. -1) IOBUF(1) = 2HEN IF (IET .EQ. 1) IOBUF(1) = 2HEP IF (IEXTT .EQ. -1) IOBUF(2) = 2HTN IF (IEXTT .EQ. 1) IOBUF(2) = 2HTP IF (IMANT .EQ. -1) IOBUF(3) = 2HTM IF (INPUT .EQ. -1) IOBUF(4) = 2HID IF (INPUT .EQ. 1) IOBUF(4) = 2HIE IF (IFREQ .EQ. -1) IOBUF(5) = 2HTF IF (IFREQ .EQ. 1) IOBUF(5) = 2HNF INUM = 5 C C C REMOTE ENABLE C 2000 CALL EXEC(100003B,1600B+LUIB) GOTO 9000 70 CALL ABREG(IA,IB) IF(IB .LT. 0) GOTO 8500 C C SEND OUTPUT BUFFER C CALL REIO(100002B,LU1,IOBUF(1),INUM,IDUMY,0) GOTO 9000 71 CALL ABREG(IA,IB) IF(IB .LT. 0) GOTO 8500 C C C RETURN C IERMS=0 RETURN C C ERROR EXIT C 8500 IERMS=IAND(IA,377B)+11 GOTO 8000 9000 IERMS=9 8000 IERMS(2)=5 IERMS(3)=2HTS IERMS(4)=2HYT IERMS(5)=2HM RETURN END END$