Retro1.org codex

*DECK     CSODOO
USETEXT TEXTCS
USETEXT TEXTSS
USETEXT TXTAPSS 
USETEXT TXTSMCS 
      PROC CSODOO;
# TITLE - DISPATCH OPERATOR OUTPUT.                                    #
      BEGIN 
# 
**    CSODOO - DISPATCH OPERATOR OUTPUT.
* 
*     D.K. ENDO    82/04/08 
* 
*     THIS ROUTINE MAKES ENTRIES IN THE HISTORY BUFFER AND SENDS TEXT 
*     OUT TO THE APPROPRIATE OPERATORS BASED ON THE GROUP NUMBER. 
* 
*     PROC CSODOO 
* 
*     ENTRY        1. ENTRIES IN THE OPERATOR RESPONSE QUEUE. 
* 
*     EXIT         1. ENTRIES IN THE HISTORY BUFFER.
*                  2. TEXT SENT TO THE APPROPRIATE OPERATORS. 
* 
# 
# 
****  PROC CSODOO - XREF LIST BEGINS. 
# 
      XREF
        BEGIN 
        PROC SSTAQE;         # ADD QUEUE ENTRY                         #
        PROC SSTRQE;         # REMOVE QUEUE ENTRY                      #
        END 
# 
****
# 
 
      ITEM I;                # LOOP INDUCTION VARIABLE                 #
 
      CONTROL EJECT;
#                                                                      #
#                            CSODOO CODE BEGINS HERE                   #
#                                                                      #
# 
*     WHILE THERE ARE ENTRIES IN THE OPERATOR RESPONSE QUEUE SEND THEM
*     TO THE APPROPRIATE AUDIENCE GROUP BASED ON THE GROUP NUMBER.
# 
      FOR I=0 WHILE ORQL GR 0 
      DO
        BEGIN 
        SSTRQE(P<ORQ>,WCBUF[0],ABH[0],CSSM[0]); 
        WCB$WORD[1] = WCB$WORD[0];
        WCB$SMID[1] = SMID"TTEXT";
        WCB$IAF[1] = FALSE; 
        ABHWORD[1] = ABHWORD[0];
        ABHADR[1] = HOPORD$;
        SSTAQE(P<CNQ>,WCBUF[1],ABH[1],CSSM[0]); 
        END 
 
      RETURN;                # **** RETURN ****                        #
      END # CSODOO #
      TERM