Table of Contents

NP$USI

Table Of Contents

  • [00004] PROC NP$USI

Source Code

NP$USI.txt 
  1. *DECK NP$USI
  2. USETEXT AIPDEF
  3. USETEXT NP$NWL
  4. PROC NP$USI;
  5.  #
  6. *1DC  NP$USI
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        NP$USI              J.C. LEE            79/02/15 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION 
  12. *        UPDATE S,I AND D BITS IN THE NSUP WORD 
  13. * 
  14. *     3. METHOD USED
  15. *        UPDATE S AND I BITS IN THE NSUP WORD ACCORDING TO CONTENTS OF
  16. *        ID$FLAG AND SD$FLAG AND THE SUPERVISORY MESSAGE BUFFER - SMB.
  17. *        IT ALSO UPDATES THE DBIT OF THE NSUP ACCORDING 
  18. *        TO THE D BIT OF THE DATA AVAILABLE WORD. 
  19. * 
  20. *     4. ENTRY CONDITIONS 
  21. *        ID$FLAG - TRUE IF INPUT DATA QUEUED WITHIN NIP 
  22. *        SD$FLAG - TRUE IF SUPERVISORY DATA QUEUED WITHIN NIP 
  23. *        WD$FLAG  - TRUE IF DATA ARE DELIVERABLE TO 
  24. *                   THE APPLICATION.
  25. * 
  26. *     5. EXIT CONDITIONS
  27. *        S , I AND D BITS IN THE NSUP WORD UPDATED
  28. * 
  29. *     6. COMDECKS CALLED AND SUMPL TEXTS USED.
  30. *        AIPDEF    NP$CRT    NP$NWL 
  31. * 
  32. *     7. ROUTINES CALLED
  33. *        NONE 
  34. * 
  35. *     8. DAYFILE MESSAGES 
  36. *        NONE 
  37. * 
  38.  #
  39.  
  40.    BEGIN
  41.  
  42. *CALL NP$CRT
  43. #**********************************************************************#
  44. # 
  45.       NP$USI EXECUTION BEGINS HERE
  46. # 
  47. # 
  48.       NSUPWRD BASED ARRAY POINTER TO THE USER COMMUNICATION WORD
  49.       WAS SET BY NETON.  THE ARRAY IS LOCATED IN NP$NWL COMDECK.
  50.   
  51.       UPDATE THE S AND I BITS IN THE USER COMMUNICATION WORD. 
  52. # 
  53.       I$FLAG = ID$FLAG NQ 0 OR GMBHEAD NQ GMBFOOT;
  54.       S$FLAG = (SD$FLAG NQ 0) OR (HEAD NQ FOOT);
  55.       D$FLAG = WD$FLAG; 
  56.  
  57.       RETURN; 
  58.    END
  59. TERM