*COMDECK MESSAGE
          IDENT  MESSAGE
          ENTRY  MESSAGE
          SYSCOM B1 
          TITLE  MESSAGE - SEND MESSAGE.
          COMMENT SEND MESSAGE. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 MESSAGE  SPACE  4,10 
***       MESSAGE - SEND MESSAGE. 
* 
*         CALL MESSAGE (TEXT,OPTION)
* 
*         ENTRY  (TEXT) = MESSAGE ARRAY, TERMINATED BY ZERO BYTE
*                (OPTION) = 0, SEND MESSAGE TO SYSTEM DAYFILE,
*                              LOCAL JOB DAYFILE, AND A AND B DISPLAYS. 
*                         = 1, SEND MESSAGE TO LINE 1 OF CONTROL POINT. 
*                         = 2, SEND MESSAGE TO LINE 2 OF CONTROL POINT. 
*                         = 3, SEND MESSAGE TO USER DAYFILE AND LINE
*                              1 OF CONTROL POINT.
*                         = 4, SEND MESSAGE TO ERROR LOG DAYFILE. 
*                         = 5, SEND MESSAGE TO ACCOUNT DAYFILE. 
*                         = 6, SAME AS 0. 
*                         = 7, SAME AS 3. 
*                         = 9, SEND MESSAGE TO BINARY MAINTENANCE LOG.
*                         = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE. 
* 
*         MESSAGE(TEXT,OPTION);  (*SYMPL* CALL) 
* 
*         ENTRY   TEXT, AN ARRAY WITH THE TEXT IN IT, OR AN ITEM
*                       WITH TEXT IN IT.
*                 OPTION, AN ITEM CONTAINING ONE OF THE OPTIONS.
* 
*         USES   X - 2, 3, 4. 
*                A - 2, 3.
*                B - 1. 
* 
*         MACROS MESSAGE. 
  
  
 MESSAGE  SUBR               ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       ADDRESS OF OPTION
          SA2    X2          OPTION 
          SA3    =0HLOCAL 
          BX4    X2-X3
          ZR     X4,MES1     IF LOCAL 
          MESSAGE  X1,X2,R
          EQ     MESSAGEX 
  
  
 MES1     MESSAGE X1,LOCAL,R
          EQ     MESSAGEX 
  
          END 
