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$