CALLKTS 
          IDENT  CALLKTS
          ABS 
          SST 
          SYSCOM B1 
          LIST   C
          TITLE  KTS - TRANSACTION SUBSYSTEM COMMON DECKS.
*COMMENT  KTS - TRANSACTION SUBSYSTEM COMMON DECKS. 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 KTS      SPACE  4,10 
***       CALLKTS - CALL TRANSACTION SUBSYSTEM COMMON DECKS.
* 
*         J. C. BOHNHOFF.    72/07/11.
*         S. M. KEEFER.      80/10/10.
          SPACE  4,10 
*CALL     COMSNCD 
*CALL     COMSTRX 
*CALL     COMCMAC 
*CALL     COMCCOD 
*CALL     COMCSFN 
*CALL     COMCSNM 
*CALL     COMCSYS 
*CALL     COMKFLD 
*CALL     COMKOPD 
          LIST   X
          SPACE  4,10 
*         GLOBAL DEFINITIONS. 
  
 EVTO     EQU    2           TERMINAL OUTPUT THRESHOLD ROLLOUT
 INSO     FIELD  0,48,48     1, IF SYSTEM ORIGIN TRANSACTION
 LTIME    BSS    1           REAL-TIME CLOCK AT START OF INNER LOOP 
 PROD     MICRO  1,,*TAFXXX* XXX = *TS* OR *NAM*
 PRODL    MICCNT PROD 
 VERT     MICRO  1,3,*X.Y*   VERSION.LEVEL
  
 TFWA     EQU    0
*TFWA     EQU    2260B       FWA OF *TAFNAM* EXECUTIVE
*TFWA     EQU    111B        FWA OF *TAFTS* EXECUTIVE 
          SPACE  4,10 
*         DEFINITIONS FOR *COMKDPB*.
  
 CMRFL    BSS    1           SUM OF CM RESIDENT INITIAL FL + NUAPL
 CMRPF    BSS    1           SUM OF CM RESIDENT POTENTIAL FL
 DAYB     BSSZ   5           DAYFILE MESSAGE ASSEMBLY AREA
 MAXTTA   BSS    1           MAXIMUM SIZE OF TOTAL TASK AREA
 MINTTA   BSS    1           MINIMUM SIZE OF TOTAL TASK AREA
 MINXT    BSS    1           MINIMUM SIZE OF TRANSIENT TASK AREA
          SPACE  4,10 
*         DEFINITIONS FOR *COMKNWC*.
  
 BFPT     VFD    60/0        BUFFER POINTER 
 DBUG     EQU    1           NONZERO MEANS *NETIO* LOADED 
 INTO     FIELD  0,35,18     TERMINAL ORDINAL 
 ITAS     VFD    42/0LITASK,18/0  INITIAL TASK NAME 
 ITIME    BSS    1           REAL-TIME CLOCK AT LAST INPUT PROCESSING 
 LOVG     VFD    42/0LCIN,18/0  COMMUNICATION SUBSYSTEM INITIALIZATION
 O        BSS    1           NAME OF OUTPUT FET 
 PRINA    CON    0           INPUT OVERFLOW FLAG
 RDCBD    BSS    1           REAL-TIME CLOCK AT LAST INPUT
 SREG     CON    0           TASK POINTER WORD
 STAT9    BSSZ   1           RECALLS FOR *NAM* OUTPUT BLOCK LIMIT 
 STIN     CON    0           COMMUNICATION CONTROL WORD 
 TROA     BSSZ   1           ROLLOUT FLAG WORD
 TROF     CON    0           ROLLOUT INHIBIT FLAG 
          SPACE  4,10 
*         DEFINITIONS FOR *COMKTLX*.
  
 BTIME    BSS    1           REAL-TIME CLOCK AT LAST REJECTED *SIC* 
 CTIS     VFD    18/0,12/TXPS,30/0  IDENTIFIER FOR *SEND* 
 DTCPS    EQU    30          DIAL-UP TERMINAL CHARACTERS PER SECOND 
 DTRTL    EQU    10          DURATION OF MEMORY ROLLOUT 
 LOGFC    EQU    13B         LOGOFF FUNCTION CODE 
 PTCPS    EQU    15          POLLED TERMINAL CHARACTERS PER SECOND
 ROLTO    EQU    40          NUMBER OF WORDS TO CAUSE ROLLOUT 
 TPLW     CON    0           STATUS WORD FOR OUTSTANDING PPU REQUEST
 TXPS     EQU    -1          USED BY *CTIS* 
 VERM     DATA   C*VERSION "VERT".* 
  
 SBITS    MACRO  P1 
          MACREF SBITS
          SB1    1
*         DUMMY MACRO.
 SBITS    ENDM
          SPACE  4,10 
*         ERROR PROCESSORS USED.
  
 TERR2    BSS    0           MESSAGE OUT OF RANGE 
 TERR7    BSS    0           IF TERMINAL NOT FOUND
 TERR8    BSS    0           ILLEGAL WORD COUNT 
 TERR11   BSS    0           TASK NOT VALIDATED FOR REQUEST 
 TERR13   BSS    0           ILLEGAL FUNCTION CODE
 TERR27   BSS    0           *SEND* WITH NO RECALL
 TERR28   BSS    0           ILLEGAL *ACT*
 TERR29   BSS    0           ABORT TASK 
          SPACE  4,10 
*         *TAF* ROUTINES USED.
  
 CSM1     BSS    0           PROCESS ILLEGAL *SIC* REQUEST
 CTR      BSS    0           CHECK TASK ROLLOUT STATUS
 DCPT     BSS    0           DROP CPU FOR TASK
 EVS      BSS    0            ROLLIN TASK 
 EXIT     BSS    0           ERROR FROM NETWORK 
 FCB      BSS    0           FORMAT COMMUNICATION BLOCK 
 FFCB     BSS    0           FIND FREE COMMUNICATION BLOCK
 FFR      BSS    0           FIND FREE ROLLOUT TABLE ENTRY
 FNC      BSS    0           FIND AND CHAIN COMMUNICATION BLOCK 
 JOL      BSS    0           JOURNAL INPUT
 LOVL     BSS    0           LOAD OVERLAY 
 PRE      BSS    0           *TAF* PRESET 
 PRIN     BSS    0           PROCESS TRANSACTION INPUT
 RCPT     BSS    0           REQUEST CPU FOR TASK 
 REM      BSS    0           RESTORE END OF MESSAGE 
 RLC      BSS    0           RELEASE EXCESS COMMUNICATION BLOCKS
 RLCB     BSS    0           RELEASE COMMUNICATION BLOCK
 ROL3     BSS    0           ROLLOUT TASK 
 RSP      BSS    0           RESTORE (B2) AND (B7)
 RTK      BSS    0           SCHEDULE TASK WAITING FOR INPUT
 SCB      BSS    0           SEARCH FOR COMMUNICATION BLOCK 
 SCT1     BSS    0           PROCESS TASK CEASE 
 STST     BSS    0           SEARCH TERMINAL STATUS TABLE 
 TRCL2    BSS    0           PUT TASK IN RECALL 
 TRI      BSS    0           ROLL *TAF* IN
 TRN      BSS    0           SCHEDULE TASK
 TSSC     BSS    0           TIME SLICE SUBCONTROL POINTS 
 TSSC5    BSS    0           TIME SLICE IF *ITASK* SCHEDULED
          SPACE  4,10 
*CALLALL  COMK
  
  
          END 
