Retro1.org codex

*DECK COM$NS
PROC COM$NS;                 # GLOBAL COMMON BLOCK AREA                #
# TITLE COM$NS - GLOBAL COMMON BLOCK.                                  #
 
      BEGIN    # COM$NS # 
# 
**    COM$NS - SYMPL TEXT FOR NS GLOBAL COMMON BLOCK. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS MAINLY A COMMON BLOCK OF 
*     SYMBOL AND ARRAY DEFINITIONS USED THROUGHOUT THE
*     NS PROGRAM. 
* 
# 
      CONTROL STEXT;
      COMMON COM$COM; 
      BEGIN # COM$COM # 
      ITEM NIN        C(3);  # NETWORK INOCATION NUMBER IN DISPLAY DEC #
      ITEM NDF$CT     I;     # FILE CATEGORY OF NPU DUMP FILE          #
      ITEM NSM        U;     # NETWORK STARTUP MODE                    #
      ITEM MC         U;     # DEBUG LOG FILE MESSAGE COUNT            #
      ITEM RT         U;     # RELEASE TRACE FILE OPTION               #
      ITEM DN         U;     # NPU DUMP FILE INDEX                     #
      ITEM GRADSHUT   B;     # GRADUAL SHUTDOWN FLAG                   #
      ITEM FORCESHUT  B;     # FORCE SHUTDOWN FLAG                     #
      ITEM MAX$PW     I;     # LEFT K-DISPLAY PAGE LENGTH              #
      ITEM MAX$RPW    I;     # RIGHT K-DISPLAY PAGE LENGTH             #
      ITEM NSNETON    B;     # SET IF NS NETTED ON                     #
      ITEM NSINITDONE B;     # SET IF INITIALIZATION COMPLETED         #
      ITEM HISTSBN    U;     # HISTORY BUFFER TSB NUMBER               #
      ITEM MODE$DEBUG B;     # SET IF DEBUG MODE ACTIVATED             #
      ITEM NATTSBN    U;     # NAT TSB NUMBER                          #
      ITEM NCTTSBN    U;     # NODE CONNECTION TABLE TSB NUMBER        #
      ITEM NLFINDTSBN U;     # NLF INDEX RECORD TSB NUMBER             #
      ITEM NMTIME     U;     # TIME TO REVERT TO NM MODE               #
      ITEM NPTTSBN    U;     # NPU TABLE TSB NUMBER                    #
      ITEM CURTIME    U;     # CURRENT TIME IN SECONDS                 #
      ARRAY DISPLAYCW [0:0] S(1); 
        BEGIN                # K-DISPLAY CONTROL WORD                  #
        ITEM DCW$WORD   U(00,00,60);   # WHOLE WORD                    #
        ITEM DCW$F$SKD  B(00,00,01);   # SET IF K-DISPLAY DATA TO SEND #
        ITEM DCW$F$IA   B(00,01,01);   # SET IF INPUT IS ALLOWED       #
        ITEM DCW$F$PWM  B(00,02,01);   # SET IF PAGE WAIT MODE IS ON   #
        ITEM DCW$F$IG   B(00,03,01);   # SET IF NAM IGNORES ALERT      #
        ITEM DCW$F$ASS  B(00,04,02);   # SET IF K-DISPLAY ASSIGNED     #
        ITEM DCW$F$HIS  B(00,04,01);   # SET IF HISTORY DISPLAY IS ON  #
        ITEM DCW$F$STS  B(00,05,01);   # SET IF STATUS DISPLAY IS ON   #
        ITEM DCW$F$PAGE B(00,06,01);   # SET IF MORE DATA .. IS SENT   #
        ITEM DCW$KDBTSB U(00,12,12);   # K-DISPLAY BUFFER TSB NUMBER   #
        ITEM DCW$PWBTSB U(00,24,12);   # PAGE-WAIT BUFFER TSB NUMBER   #
        ITEM DCW$LC     U(00,42,18);   # K-DISPLAY CURRENT LINE COUNT  #
        END 
      ARRAY NSUPWORD [0:0] S(1);
        BEGIN 
        ITEM NSU$WORD     U(00,00,60); # WHOLE WORD                    #
        ITEM NSU$C        B(00,00,01); # COMPLETE BIT                  #
        ITEM NSU$N        B(00,02,01); # NAM AVAILABLE BIT             #
        ITEM NSU$I        B(00,03,01); # INPUT AVAIALBLE BIT           #
        ITEM NSU$S        B(00,04,01); # SUPERVISORY MESSAGE AVAIL BIT #
        ITEM NSU$MC       U(00,30,30); # DEBUG LOG FILE MESSAGE COUNT  #
        END 
      ARRAY LOADTSBWRD [0:0] S(1);
        BEGIN                # LOAD TSB WORD                           #
        ITEM LTW$WORD     U(00,00,60); # WHOLE WORD                    #
        ITEM LTW$ACOUNT   U(00,00,18); # LOAD TSB ACTIVITY COUNT       #
        ITEM LTW$ZERO1    U(00,18,30); # NOT USED                      #
        ITEM LTW$LTSBN    U(00,48,12); # LOAD TSB NUMBER               #
        END 
      ARRAY NSVERSION [0:0] S(2); 
        BEGIN 
        ITEM NSVER        C(00,00,15); # NS VERSION STRING             #
        ITEM PRNAME       C(00,00,07); # PROGRAM NAME                  #
        ITEM PRVER        C(00,42,03);  # PROGRAM VERSION NUMBER       #
        ITEM PRLEV        C(01,00,05);  # PROGRAM MODIFICATION LEVEL   #
        END 
      ARRAY NSZDMBID [0:0] S(1);
        BEGIN # IDENTIFIER FOR NS DUMP RECORDS ON ZZZZDMB FILE         #
        ITEM ZDMBID     U(00,42,18); # DUMP RECORD ID                  #
        ITEM ZDMBID$NIN U(00,42,09); # 3 OCTAL DIGITS NIN              #
        ITEM ZDMBID$PID U(00,51,06); # 2 OCTAL DIGITS PROCESSOR ID     #
        ITEM ZDMBID$DN  U(00,57,03); # DUMP NUMBER                     #
        END 
      ITEM NRF1$LFN   C(10); # ZERO-FILLED LFN FOR NRF1                #
      ITEM NRF2$LFN   C(10); # ZERO-FILLED LFN FOR NRF2                #
      END   # COM$COM # 
      END   # COM$NS #
      TERM