*COMDECK NET$MAC
*#
*1DC  NET$MAC 
*     1. PROC NAME           AUTHOR              DATE 
*        NP$CLK              S.KRULEVITCH        77/09/29 
*        NP$DATE
*        NP$MSG 
*        NP$TIM 
*        NP$WRTR
*        NP$WRTW
*        NP$XCDD
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THESE COMPASS ROUTINES PROVIDE COMMUNICATION TO AIP"S SYMPL
*        ROUTINES WITH OPERATING SYSTEM MACROS. 
* 
*     3. METHOD USED
*        WHEN CALLING A PROCEDURE,SYMPL PASSES THE ADDRESS OF THE 
*        PARAMETER LIST IN A1. X1 CONTAINS THE ADDRESS OF THE FIRST 
*        PARAMETER. THE ADDRESS OF THE FIRST PARAMETER IS SAVED (IN X5).
*        THE MACRO CALL RETURNS ITS RESULT(TIME,DATE,CPU-TIME,ETC.) 
*        IN X1. ON LEAVING THE COMPASS ROUTINE THE RESULT IS RETURNED 
*        IN X6 AND A1 POINTS TO THE LOCATION OF THE FIRST PARAMETER 
*        (INSTEAD OF THE PARAMETER LIST OF ADDRESSES).
* 
*     4. ENTRY PARAMETERS 
*        SEE BELOW
* 
*     5. EXIT PARAMETERS
*        SEE BELOW
* 
*     6. COMDECKS CALLED
*        NETCLK    NETDATE   NETMSG    NETTIM    NETWRTR   NETWRTW
*        NETXCDD  COMCCDD  NP$CRT  NP$READ  NP$ROUT  NP$RTIM  NP$SLOF 
*        NP$WRTO
* 
*     7. ROUTINES CALLED
*        NONE 
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*     9. MACRO PARAMETERS 
*#
*CALL NP$CRT
          IDENT  NP$MSG 
          ENTRY  NP$MSG 
          TITLE  NP$MSG  - SEND MESSAGE.
          COMMENT   SEND MESSAGE. 
 NP$MSG   SPACE  4,10 
*#
*         NP$MSG - SEND MESSAGE.
* 
*         CALL NP$MSG  (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
*                         = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE
* 
*         NP$MSG (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 
  
*#
  
  
  
 NP$MSG   SUBR
*CALL NETMSG
 OUT      EQ     NP$MSGX
  
          END 
