Retro1.org codex

*DECK     NVFODHC 
USETEXT    TXCMDNV
PROC NVFODHC; 
# TITLE NVFODHC - DISPATCH HOP COMMAND.                                #
 
      BEGIN    # NVFODHC #
# 
**    NVFODHC - DISPATCH HOP COMMAND. 
* 
*     A. LIM.    82/03/18.
* 
*     THIS PROCEDURE-S MAIN FUNCTION IS TO DISPATCH HOP COMMAND 
*     TO THE APPROPRIATE ROUTINE.  IT IS CALLED INTO EXECUTION BY:  
*       *NVFOROC* 
* 
*     PROC NVFODHC
* 
*     ENTRY    HOP COMMAND IN *WCBUF[1]*, *HDRCMD[1]*, AND *PARMS[0]*.
*              WITH *WCBUF* DEFINED IN TEXTSS, AND *HDRCMD* AND *PARMS* 
*              IN TXCMDNV.
* 
*     EXIT     THE COMMAND IS ROUTED TO THE APPROPRIATE ROUTINE TO BE 
*              PROCESSED. 
* 
*     METHOD   USE THE PROCESS-CODE OF THE COMMAND IN THE COMMAND 
*              -SYNTAX-TABLE TO DETERMINE THE ROUTINE TO ROUTE IT TO. 
# 
 
 
# 
****  PROC NVFODHC XREF LIST
# 
      XREF
        BEGIN 
        PROC NVFOPAC;        # PERFORM APPLICATION COMMAND             #
        PROC NVFOPHC;        # PERFORM HISTORY COMMAND                 #
        PROC NVFOPSC;        # PERFORM SHUTDOWN COMMAND                #
        PROC NVFOPSS;        # PREPARE STATUS SEARCH                   #
        END 
# 
****
# 
 
 
CONTROL EJECT;
 
# 
*     USE PROCESS CODE TO DISPATCH THE VALID HOP COMMAND TO THE 
*     APPROPRIATE ROUTINE.
# 
 
      IF PAR$PCODE[HDR$TXWCNT[1]+1] EQ APPL$
      THEN
        BEGIN 
        NVFOPAC;             # PERFORM APPLICATION COMMAND             #
        END 
      ELSE IF PAR$PCODE[HDR$TXWCNT[1]+1] EQ HISTORY$
      THEN
        BEGIN 
        NVFOPHC;             # PERFORM HISTORY COMMAND                 #
        END 
      ELSE IF PAR$PCODE[HDR$TXWCNT[1]+1] EQ HOST$ 
      THEN
        BEGIN 
        NVFOPSC;             # PERFORM SHUTDOWN COMMAND                #
        END 
      ELSE
        BEGIN 
        NVFOPSS;             # PREPARE STATUS SEARCH                   #
        END 
 
      END    # NVFODHC #
 
TERM