COMSSTM 
COMMON
          CTEXT  COMSSTM - STIMULATOR EQUIVALENCES. 
          SPACE  4,10 
          BASE   MIXED
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
*****     COMSSTM - STIMULATOR EQUIVALENCES.
* 
*         R. A. JAPS.        78/06/09.
          SPACE  4,10 
***       COMSSTM DEFINES EQUIVALENCES USED BETWEEN *STIMULA* 
*         AND *1TS*.
          SPACE  4,10 
**        RA LOCATIONS (STIMULATOR USAGE) 
* 
*T RASC   1/F ,5/  ,18/LWA ,6/  ,18/FWA ,12/DTASK 
*T,RA+1   60/SYSTEM COMMUNICATIONS
*T,RANT   60/ADDRESS OF NEXT BEST TASK
*T,RATK   60/FWA OF TASK TABLE
*T,RACW   12/AC ,12/NT ,12/TM ,12/AD ,12/FL 
*T,RATK   12/EQ ,12/LN1 ,12/LN2 ,24/
*T,RAMD   12/ AI ,12/ LM ,12/ LS ,24/ 
*T,RAPP   60/NUMBER OF ENTRIES IN *TCWD*
* 
*         F      0, LOOP ON SESSION FILE
*                1, LOOP ON SESSION RECORD
* 
*         LWA    LWA+1 OF SESSION FILE
* 
*         FWA    FIRST WORD ADDRESS OF SESSION FILE 
* 
*         DTASK  NUMBER OF DEFAULT TASK CALLS 
* 
*         AC     ACTIVATION COUNT 
* 
*         NT     TOTAL NUMBER OF STIMULATED TERMINALS 
* 
*         TM     THINK TIME MASK
* 
*         AD     ACTIVATION DELAY 
* 
*         FL     FIELD LENGTH NEEDED FOR STIMULATION
* 
*         EQ     EQUIPMENT ORDINAL FOR MULTIPLEXOR
* 
*         LN1    MINIMUM LINE NUMBER TO RECOVER TRACE INFORMATION 
* 
*         LN2    MAXIMUM LINE NUMBER TO RECOVER TRACE INFORMATION 
* 
*         AI     ACTIVATION INDICATOR.  CONTAINS CONTROL TABLE
*                ORDINAL OF STIMULATION DRIVER CURRENTLY
*                ACTIVATING TERMINALS.
* 
*         LM     PRESET VALUE FOR LAST MILLISECOND CLOCK. 
* 
*         LS     PRESET VALUE FOR LAST SECOND CLOCK.
  
  
 RASC     EQU    0           SCRIPT ADDRESS 
 RANT     EQU    2           ADDRESS OF NEXT TASK 
 RATK     EQU    3           FWA OF TASK TABLE
 RACW     EQU    4           CONTROL WORD 
 RATR     EQU    5           TRACE INFORMATION
 RAMD     EQU    6           ACTIVATION INDICATOR 
 RAPP     EQU    7           NUMBER OF ENTRIES IN *TCWD*
          SPACE  4,10 
**        TCWD - TABLE OF CONTROL WORDS.
* 
*         ONE ENTRY FOR EACH STIMULATION DRIVER CALLED. 
* 
*T TCWD   1/C ,11/TB ,12/EQNT ,18/FET ,18/TTADD 
* 
*         C      COMPLETION BIT (SET BY *1TS*)
*                0 = STIMULATION DRIVER ACTIVE
*                1 = STIMULATION DRIVER COMPLETE
* 
*         TB     TERMINAL NUMBER BIAS (SET BY *STIMULA*)
* 
*         EQNT   FOR *1TS*  (SET BY *1TS) 
*                    12/ NT 
*                WHERE       NT=NUMBER OF TERMINALS FOR EQUIPMENT 
* 
*         FET    OUTPUT FILE FET (0 IF NO OUTPUT TO BE RECOVERED) 
*                (SET BY *STIMULA*) 
* 
*         TTADD  TERMINAL TABLE ENTRY ADDRESS 
*                (SET BY *STIMULA*) 
  
  
 TCWD     EQU    10          FWA OF CONTROL TABLE 
 TCWDL    EQU    10B         MAXIMUM NUMBER OF ENTRIES IN *TCWD*
  
 STMO     EQU    TCWD+TCWDL  STIMULATOR ORIGIN
          SPACE  4,10 
**        SPECIAL CHARACTER DEFINITIONS.
  
  
 .BTSK    EQU    4116        BEGIN TASK 
 .ETSK    EQU    4176        END TASK 
 .OPTT    EQU    4270        OPTIONAL THINK TIME
 .SACN    EQU    4371        SPECIAL ACCOUNT NUMBER FLAG
 .COMA    EQU    4131        COMMA
 .CRET    EQU    4033        CARRIAGE RETURN
 .AUTO    EQU    .COMA       AUTO INPUT CHARACTER 
 .ESC     EQU    4066        ESCAPE CHARACTER 
 .ETX     EQU    4006        END OF TEXT CHARACTER
 .ZER     EQU    4140        ZERO 
 .ONE     EQU    4143        ONE
 .TWO     EQU    4145        TWO
 .THR     EQU    4146        THREE
 .FOR     EQU    4151        FOUR 
 .FIV     EQU    4152        FIVE 
 .SIX     EQU    4154        SIX
 .SEV     EQU    4157        SEVEN
  
 .AENQ    EQU    5012        REQUEST ANSWERBACK 
 .IISI    EQU    5042        INITIATE INPUT 
 .IISE    EQU    5050        LOGOUT CHARACTER 
          SPACE  4,10 
**        THE FOLLOWING CHARACTERS ARE USED BY *1TS*
*         WHEN READING THE SCRIPT TEXT TO DETERMINE WHEN
*         END OF LINE AND END OF SCRIPT ARE ENCOUNTERED.
  
  
 .ELCR    EQU    2033        END OF LINE - CARRIAGE RETURN
 .ELXO    EQU    2047        END OF LINE - XOFF CODE (DC3)
 .ESCR    EQU    1033        END OF SCRIPT - CARRIAGE RETURN
 .ESXO    EQU    1047        END OF SCRIPT - XOFF CODE (DC3)
          SPACE  4,10 
          BASE   *
          ENDX
