KDIS
          IDENT  KDIS 
          LCC    OVERLAY(KDIS,0,0)
          ENTRY  KDIS 
          TITLE  KDIS - TRANSACTION FACILITY K-DISPLAY COMMANDS.
  COMMENT 71/10/18. 71/12/24. TRANSACTION FACILITY K-DISPLAY COMMANDS.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 KDIS     SPACE  4,10 
*****     KDIS - TRANSACTION FACILITY K-DISPLAY COMMAND DIRECTORY 
*         DESCRIPTIONS. 
*         J. R. HOGUE  MSD   1971.
* 
*         *KDIS* IS A SYSTEM TASK USED TO DISPLAY A DIRECTORY OF
*         TRANSACTION FACILITY COMMANDS WHEN THE *K.SWITCH* 
*         COMMAND IS USED.
          SPACE  4
***       *KDIS* IS A SYSTEM TASK USED TO DISPLAY A DIRECTORY OF
*         TRANSACTION FACILITY K-DISPLAY COMMANDS WHEN THE *K.SWITCH* 
*         COMMAND IS USED.  THE PURPOSE OF THE TASK IS TO SAVE CORE IN
*         THE TRANSACTION EXECUTIVE BY PLACING THE DISPLAY IN A TASK. 
*         THE *K.SWITCH* COMMAND ALLOWS THE CONSOLE OPERATOR TO TOGGLE
*         BETWEEN THE RUN TIME TRANSACTION FACILITY K-DISPLAY AND THE 
*         COMMAND DIRECTORY.  UPON RECOGNITION OF THE COMMAND, THE
*         TRANSACTION FACILITY SCHEDULES *KDIS*.
*         K-DISPLAY ERROR MESSAGES ARE NOT DISPLAYED WHEN *KDIS*
*         IS RUNNING. 
 MACROS   TITLE  MACROS 
**        COMMON DECKS. 
  
  
*CALL     COMCDCM 
*CALL     COMCDCP 
*CALL     COMKMAC 
*CALL     COMSPRD 
 COMB     TITLE  COMMUNICATION BLOCK DEFINITION 
          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS 
          SPACE  4,10 
***       COMMUNICATION BLOCK HEADER WORDS. 
* 
*T  SEQC  12/     DB,24/      UA,24/      SEQ 
*T, TERC  42/     TN,18/
* 
*         DB     DATA BASE FOR TERMINAL.
*         UA     USER ARGUMENT FIELD FOR TERMINAL.
*         SEQ    TRANSACTION SEQUENCE NUMBER. 
*         TN     TERMINAL NAME. 
  
  
          BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK
 KDIS     TITLE  PROGRAM
**        KDIS - DISPLAY A LIST OF TRANSACTION FACILITY 
*         K-DISPLAY COMMANDS. 
  
  
 KDIS     SB1    1
          SX3    KDIS1
          RJ     PRK         PRESET *K-DISPLAY* BUFFER
          SYSTEM CTI,,DISPLAY,8  *SEND* REQUEST 
          SYSTEM SCT,,       *CEASE* REQUEST
 TEXT     SPACE  4
**        FORMAT A K-DISPLAY FOR COMMAND DESCRIPTION. 
  
  
 DISPLAY  BSS    0           START OF K-DISPLAY BUFFER
          VFD    12/0,6/0,18/0,24/2  FORMAT CONTROL WORD
  
*         DEFINE THE HEADER.
  
          KDL    22,T,(TAF K DISPLAY COMMANDS)
          KDL    10,K,(ASSIGN,EQ.)
          KDL    10,K,(ASSIGN,EQ,N.)
          KDL    10,K,(ASSIGN,EQ,DB,N.) 
          KDL    10,K,(CHNGLIN,TN=TERMINAL NAME,CH=NN,EQ=N,PT=NN.)
          KDL    10,K,(DEBUG.)
          KDL    10,K,(DROP,N.) 
          KDL    10,K,(DSDUMP,FW=ADR,LW=ADR,EP=N,DB=N,OQ=AA,QD=VALUE.)
          KDL    10,K,(DUMP.) 
          KDL    10,K,(DUMP,LWA.  OR  DUMP,FWA,LWA.)
          KDL    10,K,(DUMPLIM.  OR  DUMPLIM,N.)
          KDL    10,K,(IDLE.) 
          KDL    10,K,(JEND,DB,N.)
          KDL    10,K,(MAXFL,NNNNN.)
          KDL    10,K,(MESSAGE,TN=TERMINAL NAME.) 
          KDL    10,K,(NODEBUG.)
          KDL    10,K,(OFFTASK,AAAAAAA,DB.) 
          KDL    10,K,(ONTASK,AAAAAAA,DB.)
          KDL    10,K,(SWITCH.) 
          KDL    10,K,(TST,TN=TERMINAL NAME,DB=AA,RS=N,US=N,UU=NNNN,) 
          KDL    10,K,(    UL=NNNN,NN=NEW TERMINAL NAME.) 
          CON    0           TERMINATE DISPLAY BUFFER 
          SPACE  4,10 
*         Y-COORDINATE TABLE. 
  
 KDIS1    KDL    *
 PRK      HERE               REMOTE BLOCK FROM *COMCDCP*
  
  
          END    KDIS 
