Retro1.org codex

*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