*DECK NETTEXT 
          IDENT  NETTEXT
          STEXT 
*IF DEF,IMS 
*#
*1DC  NETTEXT 
*     1. MACRO   SUBMACRO    AUTHOR              DATE 
*        NETON               S.KRULEVITCH        77/10/10 
*        NETCHEK
*         NETFUNC '?NET#P 
*        NETOFF 
*        NETSETP
*        NETGET  '?NET#G
*        NETGETF '?NET#G
*         NETGETQ '?NET#Q 
*        NETGETL '?NET#G
*        NETGTFL '?NET#G
*         NETGTLQ '?NET#Q 
*        NETPUT  '?NET#P
*        NETWAIT '?NET#P
*        NETSTC  '?NET#P
*        NETPUTF '?NET#D
*         NETPUTS '?NET#D 
*        NETDBG  '?NET#D
* 
*     2. FUNCTIONAL DESCRIPTION 
*        NETTEXT CONTAINS THE COMPASS MACROS REQUIRED BY NAM. 
*        THE COMPASS MACROS THAT COMMUNICATE WITH AIP SYMPL ROUTINES
*        WILL CREATE A PARAMETER LIST,PASS THE ADDRESS OF A PARAMETER 
*        LIST,AND/OR CALL THE CORRESPONDING AIP ROUTINE.
* 
*     3. METHOD USED
*        A. IF THERE IS ONLY ONE PARAMETER PASSED TO A NETTEXT MACRO, 
*           THEN THE FORMAT MUST BE LIST=ADDRESS,WHERE ADDRESS IS THE 
*           LOCATION OF THE PARAMETER LIST. THAT PARAMETER LIST WILL
*           BE USED FOR THE SUBSEQUENT AIP CALL.
*        B. IF NETTEXT MACROS ARE CALLED WITH MORE THAN ONE PARAMETER,
*           THEN A PARAMETER LIST WILL BE BUILT.
*        C. IF THE LIS/LIST PARAMETER IS EMPTY THEN THE CORRESPONDING 
*           AIP SYMPL ROUTINE WILL BE CALLED. 
* 
*     4. ENTRY CONDITIONS 
*        PASSED PARAMETERS ARE ADDRESSES (LAST PARAMETER EXCLUDED)
* 
*     5. EXIT CONDITIONS
*        A. NONE
*        B. ADDRESS OF A PARAMETER LIST 
*        C. NONE
* 
*     6. COMDECKS CALLED
*        CMACROS - CONTAINS COMPASS MACROS
*        NETMAC  FAKEMIC  DEFMAC  ITMMAC  STSMAC  USERDEFS  HEADER
*        USERITMS 
*        USERDEFS CALLS THE FOLLOWING COMDECKS: 
*          CONDEF  CTRLDEF  DCDEF  ERRDEF  FCDEF  FILEDEF  LOUTDEF
*          LSTDEF  MSGDEF  SHUTDEF  TCHDEF
*        USERITMS CALLS THE FOLLOWING COMDECKS: 
*          SUPMSG  CON  CTRL  DC  ERR  FC  FILE  LOUT  LST  MSG  SHUT 
*          TCH
* 
*     7. PROCEDURES CALLED
*        NONE 
* 
*     8. DAYFILE/DIAGNOSTIC MESSAGES
*        MUST BE LIST=
*        NTH PARAMETER/ADDRESS MISSING
* 
*     9. NETMAC DESCRIPTION 
* 
*#
*ENDIF
*CALL NP$CRT
          SKIP   1
*CALL CMACROS 
*CALL NETMAC
          END    NETTEXT