Retro1.org codex

*DECK     CSSDNS
USETEXT TEXTSS
USETEXT TEXTCS
USETEXT TXTAPSS 
USETEXT TXTSMCS 
PROC CSSDNS;
# TITLE CSSDNS - DISPATCH NPU SUPERVISION SMS # 
      BEGIN #CSSDNS # 
 
# 
**    CSSDNS - DISPATCH NPU SUPERVISION SMS.
* 
*     C. BRION   82/02/13.
* 
*     THIS PROC REMOVES NPU SUPERVISION SMS FROM THE NPU QUEUE AND
*     DISPATCHES THE CONTROL TO THE APPROPRIATE PROC FOR PROCESSING.
* 
*     PROC CSSDNS 
* 
*     ENTRY      AT LEAST ONE NPU SUPERVISION SM RESIDES IN THE NPU 
*                SUPERVISION QUEUE (NPUQ).
* 
*     EXIT       ALL NPU QUEUE ENTRIES HAVE BEEN PROCESSED. 
* 
****  PROC CSSDNS XREF LIST.
# 
      XREF
        BEGIN 
        PROC SSTRQE;                      # REMOVE QUEUE ENTRY #
        PROC CSSANS;                      # ACQUIRE NPU SUPERVISION # 
        PROC CSSTNS;                      # TERMINATE NPU SUPERVISION # 
        END 
# 
****
# 
 
 
      ITEM I;                             # LOOP VARIABLE # 
 
#     MAIN PROC START # 
 
      FOR I = 0 WHILE NPUQL NQ 0          # WHILE NPUQ ENTRY AVAIL #
      DO
        BEGIN 
        SSTRQE(P<NPUQ>,WCBUF[0],ABH[0],CSSM[0]); # REMOVE ENTRY # 
 
# 
*     IF A SUP/IN/R SM, ROUTE TO CSSANS TO PROCESS. OTHERWISE MUST
*     BE A SUP/CB SM AND CSSTNS SHOULD BE CALLED TO PROCESS.
# 
 
        IF WCB$SMID[0] EQ SMID"SUPIN" 
        THEN
          CSSANS; 
        ELSE
          CSSTNS; 
        END 
 
      END 
 
 TERM