       SPL,L,O
!     NAME:   OPMES 
!     SOURCE: 92067-18240 
!     RELOC:  92067-16185 
!     PGMR:   A.M.G.
! 
!  ***************************************************************
!  * (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 OPMES(8) "92067-16185 REV.1903 781229"
! 
!  MODIFICATION RECORD: 
! 
!        DATE   REASON
!  (1)  780720  TO ALLOW SESSION WRITE TO LU 1 BY TE..
! 
       LET EXEC,      \SYSTEM EXEC
           XLUEX,     \EXTENDED LU EXEC 
           EC.HO,     \ECHO A COMMAND IF NOT DONE SO ALREADY
           OPEN.,     \OPEN OR FAKE OPEN TO DCB 
           WRITF      \FMP WRITE RECORD 
              BE SUBROUTINE,EXTERNAL
! 
       LET .TTY       \DETERMINES IF LU IS A TTY. 
              BE FUNCTION,EXTERNAL
! 
       LET CAM.O,     \LOG DEVICE LU
           C.BUF,     \COMMAND INPUT BUFFER 
           ECH.,      \NUMBER OF WORDS IN COMMAND 
           NO.RD,     \NO-READ FLAG 
           CAD.,      \COMMAND TABLE ADDRESS
           TMP.,      \LIST FILE OR LU ARRAY
           O.BUF      \LIST OUTPUT DCB
               BE INTEGER,EXTERNAL
! 
! 
       LET LU(2),LENTH,PTR,DEV,DEV1 BE INTEGER
! 
       INITIALIZE DEV1 TO 0 
       INITIALIZE LU TO 0.0 
! 
! 
! 
! 
PA..:  SUBROUTINE(N,PLIST,ERR) GLOBAL 
       LET N,PLIST,ERR BE INTEGER 
       LU(1) _ @PLIST + 1 
       IFNOT $LU(1) THEN $LU(1) _ CAM.O     !DEFAULT TO LOG.
       IF PLIST=3 THEN GO TO ERX            !IF PRAM IS FILE ERROR
       IFNOT .TTY($LU(1)) THEN [            \IF DEVICE NOT
ERX:      ERR _ 20;  RETURN]                !INTERACTIVE, ERROR.
       IFNOT PLIST THEN PLIST _ 1 
       IFNOT ($LU(1) XOR CAM.O) AND 77K THEN[  \IF LOG DEVICE 
          CALL EC.HO;GO TO EX]              !PRINT ONLY IF NOT ECHOED 
       EXEC(2,$LU(1),C.BUF,ECH.)            !PRINT THE COMMAND. 
EX:    N,CAD.,NO.RD _ 1                     !SET UP FOR TR. 
       RETURN 
       END
! 
! 
TE..:  SUBROUTINE GLOBAL
       LU(1)_100001K                        !SET FOR NO LU SWITCH 
       XLUEX(2,LU,C.BUF,ECH.)               !PRINT COMMAND ON 
       RETURN                               !SYSTEM TTY 
       END
! 
! 
AN..:  SUBROUTINE(NO,PARM,ERROR) GLOBAL 
       LET NO,PARM,ERROR BE INTEGER 
       DEV _ $(@TMP.+3) 
       OPEN.(O.BUF,TMP.,DEV,212K)           !OPEN LIST DEVICE.
      B377_377K;UBLK_20000K                 !DEFINE CONSTANTS 
      ASSEMBLE["CCB";                       \BLANK DELIMITER IN COMMAND 
               "EXT C.DLM"; \ 
               "ADB C.DLM";                 \DELIMITER ADDRESS TO B 
               "CLE,ERB";                   \WORD ADDRESS NOW 
               "LDA 1,I";                   \DELIMITER TO A 
               "AND B377";                  \ISOLATE
               "IOR UBLK";                  \REPLACE WITH BLANK 
               "STA 1,I" ;                  \AND SET BACK 
               "SEZ";                       \SET UP THE B REG.
               "INB"]                       !AND EXIT 
      ADD_.B.                               !SET THE ADDRESS
       WRITF(O.BUF,ERROR,$ADD,@C.BUF-ADD+ECH.)!PRINT COMMAND. 
       RETURN 
       END
! 
       END
       END$ 
                                                                                      