SPL,L,O 
!     NAME:   F.UTM 
!     SOURCE: 92067-18239 
!     RELOC:  92067-16185 
!     PGMR:   G.A.A.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
      NAME F.UTM(8) "92067-16185 REV.1940 790725" 
! 
!  MODIFICATION RECORD: 
! 
!      DATE     REASON
! 
!  1) 790725    TO RETURN ERROR IF :LL WITH NO PARAMETERS (SST #4510) 
! 
      LET TMP.,I.BUF,N.OPL,CAM.O BE INTEGER,EXTERNAL
      LET OPEN.             BE SUBROUTINE,EXTERNAL
      LET G0..,.E.R.,.R.E.,S.CAP BE INTEGER,EXTERNAL
      LET .TTY,LUTRU        BE FUNCTION,EXTERNAL
      LET EC.HO             BE SUBROUTINE,EXTERNAL
! 
! 
LL..: SUBROUTINE(N14,LIS14,ER14)GLOBAL !LIST CHANGE SUBROUTINE
      RC_@LIS14+1  !SET LIST ADDRESSES
      IFNOT N14 THEN [ER14_50;RETURN]  !ERROR 50 IF NO PARAMETER
      IF LIS14 # 3 THEN [          \IF NOT ASCII, THEN
         IF S.CAP THEN [           \IF IN SESSION, THEN 
            T2 _ LUTRU($RC);       \CHECK IF LU DEFINED IN SST
            IF T2 = -1 THEN [      \IF NOT DEFINED, THEN
               ER14_43;RETURN]]]   !RETURN ERROR, LU NOT DEFINED
      OPEN.(I.BUF,$RC,N.OPL,410K)  !ATTEMPT OPEN
      T2_@TMP.  !SET LIST DEF ADDRESS 
      FOR T_RC TO RC+2 DO[\ 
         $T2_$T;T2_T2+1]
      DO[$T2_N.OPL;$(T2+1)_ -(I.BUF AND 77K);RETURN]
      END 
! 
! 
LO..:SUBROUTINE(N13,LI13,ER13) GLOBAL 
!     NEW LOG UNIT SUBROUTINE 
      IF .TTY([T_$(@LI13+1)]) THEN\ 
              CAM.O_T,\ 
              ELSE ER13_56
      RETURN
      END 
! 
SV..: SUBROUTINE(N15,LI15,ER15) GLOBAL
      RC_[T2_[T_@LI15+1]+4]+4 
       P7_@.R.E.+1                          !SET ADDRESS OF P7
       IF $RC # "IH" THEN [IFNOT $P7 THEN   \ECHO IF CONDITIONS ARE RIGHT 
           EC.HO] 
       IF $T2 THEN[                         \IF A GLOBAL PROVIDED SAVE THE
         IF $T2 > 0 THEN[                   \MAKE SURE IT IS LEGAL
            IF $T2 < 10 THEN[               \1-9 ONLY 
                 T2_@G0..+($T2 -< 2);       \SET BASE ADDRESS 
                 $T2_1;T2_T2+1;             \SET THE TYPE 
                 $T2_$P7;T2_T2+1;           \THE VALUE
                 $[REAL]T2_0.0;             \CLEAN THE OTHER WORDS
                 GO TO SETSV                \AND SKIP ERROR 
             ]   \
         ];      \
         ER15_56;RETURN                     \ILL NUMBER  EXIT 
       ]
SETSV:IF $T<0 THEN $T_0 
      IF $T>4 THEN $T_4 
      $(@.E.R.+1),$P7_$T
      RETURN
      END 
! 
      END 
      END$
                                                                                                                                                                                                                    