*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