Retro1.org codex

*DECK     NVFOPHB 
USETEXT    TEXTNVF
USETEXT    TEXTSS 
USETEXT    TXTAPSS
PROC NVFOPHB; 
#     TITLE NVFOPHC - PROCESS HOP/BRK                                  #
 
      BEGIN    # NVFOPHC #
# 
**    NVFOPHC - PROCESS HOP/BRK.
* 
*     A. LIM.    82/07/03.
* 
*     THIS PROCEDURE PROCESS A BREAK COMMAND FROM THE HOP.
*     IT IS CALLED INTO EXECUTION BY:  *NVFOROC*
* 
*     PROC NVFOPHB
* 
*     ENTRY    NONE.
* 
*     EXIT     1.  *ABORTCMDF* FLAG IN TEXTNVF SET. 
*              2.  A NULL TERMINAL TEXT SENT TO *CTQ* 
*                  TO CLEAN UP THE PIPELINE.
# 
 
 
# 
****  PROC NVFOPHB XREF LIST
# 
 
      XREF
        BEGIN 
        PROC SSTAQE;         # SS- ACCAEPT A QUEUE ENTRY               #
        END 
 
# 
****
# 
 
 
 
      ABORTCMDF = TRUE;      # SET ABORT CMD FLAG TO STOP SERIAL SEARCH#
 
      WCB$WORD[1] = 0;       # SEND A NULL TERMINAL TEXT TO *CTQ*      #
      ABHWORD[1] = 0; 
      WCB$WC[1] = 2;
      WCB$IAF[1] = TRUE;
      ABHABT[1] = HOPTX$; 
      SSTAQE(P<CTQ>,WCBUF[1],ABHBUF[1],MSGBUF[1]);
 
 
 
      END    # NVFOPHC #
 
TERM