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