Retro1.org codex

          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