Retro1.org codex

*DECK     CSOROO
USETEXT TEXTCS; 
USETEXT TEXTSS; 
USETEXT TXTAPSS;
PROC CSOROO;
# TITLE CSOROO - ROUTE OPERATOR OUTPUT #
 
      BEGIN # CSOROO #
 
# 
**    CSOROO - ROUTE OPERATOR OUTPUT. 
* 
*     C. BRION          82/05/12. 
* 
*     THIS PROCEDURE EXTRACTS ENTRIES FROM THE OPERATOR DIRECTED EVENT
*     QUEUE AND THEN SETS UP THE ENTRY FOR QUEUING TO THE CONNECTION
*     TRAFFIC QUEUE.
* 
*     PROC CSOROO 
* 
*     ENTRY 
*       ENTRIES IN THE OPERATOR DIRECTED EVENT QUEUE(ODEQ). 
* 
*     EXIT
*       TERMINAL TEXT TO THE CONNECTION TRAFFIC QUEUE(CNQ). 
* 
# 
 
# 
****  PROC CSOROO XREF LIST.
# 
 
      XREF
        BEGIN 
        PROC SSTRQE;                     # SS-REMOVE QUEUE ENTRY #
        PROC SSTAQE;                     # SS-ACCEPT QUEUE ENTRY #
        END 
# 
****
# 
 
      ITEM I;                            # LOOP VAR # 
 
 
 
 
# 
*     EXECUTION CONTINUES UNTIL OPERATOR DIRECTED EVENT QUEUE IS
*     EMPTIED.
# 
 
      FOR I = 0 STEP 1 WHILE ODEQL NQ 0 
      DO
        BEGIN 
        SSTRQE(P<ODEQ>,WCBUF[0],ABH[0],MSGBUF[0]);
 
        WCB$IAF[0] = FALSE;              # RESET INPUT ALLOWED #
        WCB$SMID[0] = SMID"TTEXT";       # SET MSG ID # 
 
# 
*     SEND TO CONNECTION TRAFFIC QUEUE. 
# 
 
        SSTAQE(P<CNQ>,WCBUF[0],ABH[0],MSGBUF[0]); 
        END 
 
      END # CSSROO #
 TERM