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