Retro1.org codex

*DECK CSTDNQ
USETEXT TEXTCS
USETEXT TXTCTCS 
USETEXT TXTSMCS 
USETEXT TXTAPSS 
USETEXT TXTSUSS 
PROC CSTDNQ;
# TITLE CSTDNQ - DISPATCH NCF DATA QUEUE.                              #
 
      BEGIN  # CSTDNQ # 
# 
**    CSTDNQ - DISPATCH NCF DATA QUEUE. 
* 
*     L. T. NGUYEN           84/12/19.
* 
*     CSTDNQ SELECTS WHETHER TO SET OR RESET TERMINAL CHARACTERISTICS 
*     ACCORDING TO SM RECEIVED FROM CCP (CNF/TE/R OR CNF/RC)
*     IT CALLS CSTSCT FOR SET AND CSTRST TO RESET.
* 
*     PROC CSTDNQ 
* 
*     ENTRY   THE NCF DATA QUEUE CONTAINS ONE OR MORE COMPLETE ENTRIES, 
*             WHICH MAY BE FOLLOWED BY AN INCOMPLETE ENTRY. 
* 
*     EXIT    ALL COMPLETED NDQ ENTRIES ARE PROCESSED AND DELETED.
* 
*             ALL APPROPRIATE RESPONSES ( NORMAL OR ABNORMAL) ARE SENT. 
# 
 
# 
****  PROC CSTDNQ - XREF LIST.
# 
      XREF
        BEGIN 
        PROC CSTSCT;
        PROC CSTRCT ; 
        END 
# 
****
# 
 
 
      ITEM I ;              #LOOP INDUCTION VARIABLES                  #
 
 
      FOR I=0  WHILE NDQL NQ 0
        AND NDQ$CFLAG[0]
      DO                     # LOOP UNTIL NDQ EMPTY OR DOWN TO INC NTRY#
        BEGIN 
        NDQ$WORD[NDQL] = 1;  # INSURE CORRECT LOOP TERMINATION         #
 
        IF NDQ$PFSF[2] EQ CNFTE 
        THEN
          CSTSCT ;           # CONFIGUE THE TERMINAL                   #
        ELSE
          CSTRCT ;           # RESET CHARACTERISTICS OF TERMINAL       #
 
        END 
 
 
      END                  # CSTDNQ                                    #
      TERM