Table of Contents

CSCDQE

Table Of Contents

  • [00005] PROC CSCDQE
  • [00006] CSCDQE - DISPATCH QUEUE ENTRIES FOR THE CONNECTION LAYER.
  • [00010] DISPATCH QUEUE ENTRIES FOR THE CONNECTION LAYER.
  • [00034] PROC CSCANT
  • [00035] PROC CSCBPA
  • [00036] PROC CSCCPA
  • [00037] PROC CSCPHT
  • [00038] PROC CSCPNT
  • [00039] PROC CSCUFS
  • [00040] PROC CSCUHS
  • [00041] PROC SSTRQE

Source Code

CSCDQE.txt 
  1. *DECK     CSCDQE
  2. USETEXT TEXTCS
  3. USETEXT TEXTSS
  4. USETEXT TXTAPSS 
  5. PROC CSCDQE;
  6. # TITLE CSCDQE - DISPATCH QUEUE ENTRIES FOR THE CONNECTION LAYER.  #
  7.  
  8.       BEGIN  # CSCDQE # 
  9. # 
  10. **    CSCDQE - DISPATCH QUEUE ENTRIES FOR THE CONNECTION LAYER. 
  11. * 
  12. *     D.G. DEPEW.            82/02/17.
  13. * 
  14. *     THIS PROCEDURE IS THE MAIN ROUTINE FOR THE CONNECTION LAYER.  ITS 
  15. *     MAIN FUNCTION IS TO ROUTE ENTRIES IN THE CONNECTION TRAFFIC QUEUE 
  16. *     (*CNQ*) TO THE INDIVIDUAL C-LAYER PROCESSORS. 
  17. * 
  18. *     PROC CSCDQE 
  19. * 
  20. *     ENTRY   1. THE CONNECTION TRAFFIC QUEUE CONTAINS ONE OR MORE
  21. *                ENTRIES. 
  22. * 
  23. *     EXIT    1. THE CONNECTION TRAFFIC QUEUE IS EMPTY. 
  24. *             2. VARIOUS ENTRIES HAVE BEEN PLACED IN THE OUTGOING 
  25. *                TRAFFIC QUEUE (*OTQ*), THE OPERATOR TYPEIN QUEUE 
  26. *                (*OPTQ*) AND THE PROTOCOL EVENT QUEUE (*PEQ*). 
  27. # 
  28.  
  29. # 
  30. ****  PROC CSCDQE - XREF LIST.
  31. # 
  32.       XREF
  33.         BEGIN 
  34.         PROC CSCANT;         # ACCEPT NOP TYPEIN (UPON INPUT)          #
  35.         PROC CSCBPA;         # BEGIN PROTOCOL ACTION                   #
  36.         PROC CSCCPA;         # COMPLETE PROTOCOL ACTION                #
  37.         PROC CSCPHT;         # PREPARE HOP TEXT (FOR OUTPUT)           #
  38.         PROC CSCPNT;         # PREPARE NOP TEXT (FOR OUTPUT)           #
  39.         PROC CSCUFS;         # UPDATE FLOW CONTROL STATUS              #
  40.         PROC CSCUHS;         # UPDATE HOP STATUS                       #
  41.         PROC SSTRQE;         # REMOVE QUEUE ENTRY                      #
  42.         END 
  43. # 
  44. ****
  45. # 
  46.  
  47.  
  48.       ITEM I;                # LOOP INDUCTION VARIABLE                 #
  49.  
  50.  
  51.  
  52.  
  53.  
  54.       FOR I=0  WHILE CNQL NQ 0
  55.       DO                     # PROCESS CONNECTION TRAFFIC Q TIL EMPTY  #
  56.         BEGIN 
  57.  
  58.  
  59. # 
  60. *     REMOVE THE ENTRY FROM THE CONNECTION TRAFFIC QUEUE AND CALL THE 
  61. *     APPROPRIATE C-LAYER ROUTINE IN ACCORDANCE WITH THE CS INTERNAL
  62. *     SM IDENTIFIER.
  63. # 
  64.         SSTRQE (P<CNQ>, WCBUF[0], ABHBUF[0], MSGBUF[0]);
  65.  
  66.         IF WCB$SMID[0] EQ SMID"DATAIN"
  67.         THEN                           # INBOUND DATA FROM A TERMINAL  #
  68.           CSCANT;                      # ACCEPT NOP TYPEIN             #
  69.  
  70.         ELSE IF WCB$SMID[0] EQ SMID"TTEXT"
  71.         THEN                           # OUTBOUND DATA TO AN OPERATOR  #
  72.           IF ABHADR[0] EQ HOPORD$ 
  73.           THEN
  74.             CSCPHT;                    # PREPARE HOP TEXT              #
  75.           ELSE
  76.             CSCPNT;                    # PREPARE NOP TEXT              #
  77.  
  78.         ELSE IF WCB$SMID[0] EQ SMID"SHUINS" 
  79.           OR WCB$SMID[0] EQ SMID"CONREQ"
  80.           OR WCB$SMID[0] EQ SMID"CONCB" 
  81.           OR WCB$SMID[0] EQ SMID"TCHTCH"
  82.           OR WCB$SMID[0] EQ SMID"CONENDN" 
  83.         THEN                           # CONNECTION PROTOCOL SM        #
  84.           CSCBPA;                      # BEGIN PROTOCOL ACTION         #
  85.  
  86.         ELSE IF WCB$SMID[0] EQ SMID"CONREQN"
  87.           OR WCB$SMID[0] EQ SMID"CONENDR" 
  88.           OR WCB$SMID[0] EQ SMID"HOPSRTN" 
  89.         THEN                           # PROTOCOL RESPONSE FM I-LAYER  #
  90.           CSCCPA;                      # COMPLETE PROTOCOL ACTION      #
  91.  
  92.         ELSE IF WCB$SMID[0] EQ SMID"FCACK"
  93.           OR WCB$SMID[0] EQ SMID"INTRUSR" 
  94.           OR WCB$SMID[0] EQ SMID"BIMARK"
  95.           OR WCB$SMID[0] EQ SMID"FCINA" 
  96.           OR WCB$SMID[0] EQ SMID"FCINIT"
  97.           OR WCB$SMID[0] EQ SMID"FCNAK" 
  98.         THEN                           # FLOW CONTROL SM               #
  99.           CSCUFS;                      # UPDATE FLOW STATUS            #
  100.  
  101.         ELSE                           # MUST BE SPEC HOST OPERATOR SM #
  102.           CSCUHS;                      # UPDATE HOP STATUS             #
  103.  
  104.         END 
  105.  
  106.       END  # CSCDQE # 
  107.  
  108.       TERM