Retro1.org codex

*DECK NP$USI
USETEXT AIPDEF
USETEXT NP$NWL
PROC NP$USI;
 #
*1DC  NP$USI
* 
*     1. PROC NAME           AUTHOR              DATE 
*        NP$USI              J.C. LEE            79/02/15 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        UPDATE S,I AND D BITS IN THE NSUP WORD 
* 
*     3. METHOD USED
*        UPDATE S AND I BITS IN THE NSUP WORD ACCORDING TO CONTENTS OF
*        ID$FLAG AND SD$FLAG AND THE SUPERVISORY MESSAGE BUFFER - SMB.
*        IT ALSO UPDATES THE DBIT OF THE NSUP ACCORDING 
*        TO THE D BIT OF THE DATA AVAILABLE WORD. 
* 
*     4. ENTRY CONDITIONS 
*        ID$FLAG - TRUE IF INPUT DATA QUEUED WITHIN NIP 
*        SD$FLAG - TRUE IF SUPERVISORY DATA QUEUED WITHIN NIP 
*        WD$FLAG  - TRUE IF DATA ARE DELIVERABLE TO 
*                   THE APPLICATION.
* 
*     5. EXIT CONDITIONS
*        S , I AND D BITS IN THE NSUP WORD UPDATED
* 
*     6. COMDECKS CALLED AND SUMPL TEXTS USED.
*        AIPDEF    NP$CRT    NP$NWL 
* 
*     7. ROUTINES CALLED
*        NONE 
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
 #
 
   BEGIN
 
*CALL NP$CRT
#**********************************************************************#
# 
      NP$USI EXECUTION BEGINS HERE
# 
# 
      NSUPWRD BASED ARRAY POINTER TO THE USER COMMUNICATION WORD
      WAS SET BY NETON.  THE ARRAY IS LOCATED IN NP$NWL COMDECK.
  
      UPDATE THE S AND I BITS IN THE USER COMMUNICATION WORD. 
# 
      I$FLAG = ID$FLAG NQ 0 OR GMBHEAD NQ GMBFOOT;
      S$FLAG = (SD$FLAG NQ 0) OR (HEAD NQ FOOT);
      D$FLAG = WD$FLAG; 
 
      RETURN; 
   END
TERM