Retro1.org codex

*DECK     CSSDTC
USETEXT TEXTCS; 
USETEXT TEXTSS; 
USETEXT TXCMDCS;
PROC CSSDTC;
# TITLE CSSDTC - DISPATCH TEST COMMAND #
 
      BEGIN 
 
# 
**    CSSDTC - DISPATCH TEST COMMAND. 
* 
*     C. BRION          82/04/13. 
* 
*     THIS PROCEDURE RECEIVES ALL TST DIAGNOSTIC COMMANDS AND CALLS 
*     THE APPROPRIATE PROCEDURE TO PROCESS EACH TYPE OF COMMAND.
* 
*     PROC CSSDTC 
* 
*     ENTRY 
*       1. WCBWORD[0] = WORD COUNT BUFFER.
*       2. HDRCMD[0] = COMMAND HEADER WORD. 
*       3. PARMS[0] = PARAMETER BLOCK CONTAINING THE ORIGINAL TYPEIN
*                       SYNTAX PARAMETER LIST, AND ADDRESS LIST.
* 
*     EXIT
*          NONE.
* 
# 
 
# 
****  PROC CSSDTC XREF LIST 
# 
 
      XREF
        BEGIN 
        PROC CSSATR;                     # ACTION TST REQUEST CMD # 
        PROC CSSATM;                     # ACTION TST MESSAGE CMD # 
        PROC CSSATD;                     # ACTION TST DROP COMMAND #
        END 
# 
****
# 
 
      ITEM TYPEINDX     U;               # INDEX VAR FOR CMD QUALIFIER# 
      ITEM DVAR;
 
 
 
 
 
      TYPEINDX = HDR$TXWCNT[0] + 2;      # SET INDEX LOC OF QUALIFIER # 
 
# 
*     CHECK QUALIFIER AND THE CALL PROCEDURE TO PROCESS COMMAND.
# 
 
      IF PAR$PCODE[TYPEINDX] EQ "RE0"    # TST REQUEST CMD #
      THEN
        CSSATR; 
      ELSE IF PAR$PCODE[TYPEINDX] EQ "MS0" # TST MSG CMD #
      THEN
        CSSATM; 
      ELSE                               # TST DROP CMD # 
        CSSATD; 
 
      DVAR = 1; 
 
      END # CSSDTC #
 
 TERM