Table of Contents

NVFOPHB

Table Of Contents

  • [00005] PROC NVFOPHB
  • [00010] NVFOPHC - PROCESS HOP/BRK.
  • [00033] PROC SSTAQE

Source Code

NVFOPHB.txt 
  1. *DECK     NVFOPHB 
  2. USETEXT    TEXTNVF
  3. USETEXT    TEXTSS 
  4. USETEXT    TXTAPSS
  5. PROC NVFOPHB; 
  6. #     TITLE NVFOPHC - PROCESS HOP/BRK                                  #
  7.  
  8.       BEGIN    # NVFOPHC #
  9. # 
  10. **    NVFOPHC - PROCESS HOP/BRK.
  11. * 
  12. *     A. LIM.    82/07/03.
  13. * 
  14. *     THIS PROCEDURE PROCESS A BREAK COMMAND FROM THE HOP.
  15. *     IT IS CALLED INTO EXECUTION BY:  *NVFOROC*
  16. * 
  17. *     PROC NVFOPHB
  18. * 
  19. *     ENTRY    NONE.
  20. * 
  21. *     EXIT     1.  *ABORTCMDF* FLAG IN TEXTNVF SET. 
  22. *              2.  A NULL TERMINAL TEXT SENT TO *CTQ* 
  23. *                  TO CLEAN UP THE PIPELINE.
  24. # 
  25.  
  26.  
  27. # 
  28. ****  PROC NVFOPHB XREF LIST
  29. # 
  30.  
  31.       XREF
  32.         BEGIN 
  33.         PROC SSTAQE;         # SS- ACCAEPT A QUEUE ENTRY               #
  34.         END 
  35.  
  36. # 
  37. ****
  38. # 
  39.  
  40.  
  41.  
  42.       ABORTCMDF = TRUE;      # SET ABORT CMD FLAG TO STOP SERIAL SEARCH#
  43.  
  44.       WCB$WORD[1] = 0;       # SEND A NULL TERMINAL TEXT TO *CTQ*      #
  45.       ABHWORD[1] = 0; 
  46.       WCB$WC[1] = 2;
  47.       WCB$IAF[1] = TRUE;
  48.       ABHABT[1] = HOPTX$; 
  49.       SSTAQE(P<CTQ>,WCBUF[1],ABHBUF[1],MSGBUF[1]);
  50.  
  51.  
  52.  
  53.       END    # NVFOPHC #
  54.  
  55. TERM