Retro1.org codex

*DECK     CSESDM
USETEXT TEXTCS
USETEXT TEXTSS
USETEXT TXTAPSS 
USETEXT TXTSMCS 
      PROC CSESDM;
# TITLE - SEND (STATUS) DONE MESSAGE.                                  #
      BEGIN 
# 
**    CSESDM - SEND (STATUS) DONE MESSAGE.
* 
*     D.K. ENDO    82/03/12 
* 
*     THIS PROCESS RECEIVES THE STATUS DONE ENTRIES IN THE EVENT QUEUE
*     AND SENDS A NULL TERMINAL TEXT TO THE C-LAYER.
* 
*     ENTRY        1. STATUS-DONE ENTRY FROM THE EVENT QUEUE. 
* 
*     EXIT         1. TERMINAL TEXT ENTRY TO THE C-LAYER QUEUE. 
* 
# 
# 
****  PROC CSESDM - XREF LIST BEGINS. 
# 
      XREF
        BEGIN 
        PROC SSTAQE;         # ADD QUEUE ENTRY                         #
        END 
# 
****
# 
#                                                                      #
#                            CSESDM CODE BEGINS HERE                   #
#                                                                      #
# 
*     SET THE SERVICE MESSAGE I.D. TO -TERMINAL TEXT-, AND SEND THE 
*     ENTRY OFF, AS IS, TO THE C-LAYER, WITH THE INPUT ALLOWED FLAG 
      SET.
# 
 
 
      WCB$WORD[1] = 0;
      WCB$SMID[1] = SMID"TTEXT";
      WCB$IAF[1] = TRUE;
      WCB$WC[1] = 2;
 
 
      ABHWORD[1] = 0; 
      ABHADR[1] = ABHADR[0];
 
 
      SSTAQE(P<CNQ>,WCBUF[1],ABH[1],CSSM[0]); 
 
 
      RETURN;                # **** RETURN ****                        #
      END # CSESDM #
      TERM