Retro1.org codex

          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