*DECK NP$SYM
IDENT SYMBOLS
*IF DEF,IMS
*#
*1DC NP$SYM
* 1. ROUTINE NAME AUTHOR DATE
* NP$SYM S.KRULEVITCH 77/09/30
*
* 2. FUNCTIONAL DESCRIPTION
* THIS ROUTINE SETS UP THE COMPASS USERS ACCESS TO THE SYMPL
* PFC/SFC COMMON DEFINITIONS FOR USER TYPE SUPERVISORY MESSAGES.
*
* 3. METHOD USED
* THE COMPASS PSEUDO INSTRUCTION HERE CAUSES ALL CODE IN THE
* MACRO NETMAC TO BE ASSEMBLED AT THE LOCATION SYMTAB.
*
* 4. ENTRY PARAMETERS
* NONE
*
* 5. EXIT PARAMETERS
* NONE
*
* 6. COMDECKS CALLED
* NP$CRT 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. ROUTINES CALLED
* NONE
*
* 8. DAYFILE MESSAGES
* NONE
*
* 9. NETMAC DESCRIPTION
*#
*ENDIF
ENTRY NP$SYM,NP$SYMI,NP$SYME
SST
*CALL NETMAC
NP$SYMP EQU 0
NETMAC
LIST D
*CALL NP$CRT
NP$SYM BSS 0
SYMTAB HERE
NP$SYME BSS 0
TABLTH EQU NP$SYME-NP$SYM+1
NUMSYM EQU TABLTH/2
VFD 60/NUMSYM
END