Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsta +++|          CTEXT  COMPSTA - SET TERMINAL TABLE ADDRESS.
00002  M00S00002.compsta +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compsta +++|          QUAL   COMPSTA

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compsta +++| STA      SPACE  4
00006  M00S00005.compsta +++|***       STA - SET TERMINAL TABLE ADDRESS.
00007  M00S00006.compsta +++|*         R. E. TATE.        02/19/70.
00008  M00S00007.compsta +++| STA      SPACE  4
00009  M00S00008.compsta +++|***              SETS UP THE ABSOLUTE ADDRESS OF THE FIRST WORD
00010  M00S00009.compsta +++|*         ADDRESS OF THE TERMINAL TABLE FOR THE GIVEN TERMINAL.
00011  M00S00010.compsta +++|*         IF *TA* IS DEFINED, IT IS ASSUMED TO CONTAIN THE RA FOR
00012  M00S00011.compsta +++|*         TELEX.
00013  M00S00012.compsta +++|*
00014  M00S00013.compsta +++|*         ENTRY-
00015  M00S00014.compsta +++|*         (TN) = TERMINAL NUMBER.
00016  M00S00015.compsta +++|*
00017  M00S00016.compsta +++|*         EXIT-
00018  M00S00017.compsta +++|*         (A) = TERMINAL TABLE ADDRESS (ABSOLUTE).
00019  M00S00018.compsta +++|*         (TT - TT+1) = TERMINAL TABLE ADDRESS (ABSOLUTE).
00020  M00S00019.compsta +++|*
00021  M00S00020.compsta +++|*         USES-
00022  M00S00021.compsta +++|*         CM - CM+4.
00023  M00S00022.compsta +++|*
00024  M00S00023.compsta +++|*         CALLS-
00025  M00S00024.compsta +++|*         NONE.
00026  M00S00025.compsta +++|
00027  M00S00026.compsta +++|
00028  M00S00027.compsta +++| STA      SUBR               ENTRY/EXIT
00029  M00S00028.compsta +++|          IF     -DEF,TA
00030  M00S00029.compsta +++|          LDD    RA
00031  M00S00030.compsta +++|          ELSE   1
00032  M00S00031.compsta +++|          LDD    TA
00033  M00S00032.compsta +++|          SHN    6
00034  M00S00033.compsta +++|          IF     DEF,/REM/VTTP
00035  M00S00034.compsta +++|          ADN    /REM/VTTP   TELEX TERMINAL TABLE POINTER WORD
00036  M00S00035.compsta +++|          ELSE   1
00037  M00S00036.compsta +++|          ADN    VTTP        TELEX TERMINAL TABLE POINTER WORD
00038  M00S00037.compsta +++|          CRD    CM
00039  M00S00038.compsta +++|          TTAP
00040  M00S00039.compsta +++|          SHN    6
00041  M00S00040.compsta +++|          ADD    CM+1
00042  M00S00041.compsta +++|          SHN    6
00043  M00S00042.compsta +++|          IF     -DEF,TA
00044  M00S00043.compsta +++|          ADD    RA
00045  M00S00044.compsta +++|          ELSE   1
00046  M00S00045.compsta +++|          ADD    TA
00047  M00S00046.compsta +++|          SHN    6
00048  M00S00047.compsta +++|          ADD    CM+2
00049  M00S00048.compsta +++|          STD    TT+1        SET TERMINAL TABLE ADDRESS
00050  M00S00049.compsta +++|          SHN    -14
00051  M00S00050.compsta +++|          STD    TT
00052  M00S00051.compsta +++|          SHN    14
00053  M00S00052.compsta +++|          ADD    TT+1
00054  M00S00053.compsta +++|          UJN    STAX        EXIT WITH TERMINAL ADDRESS IN A REGISTER
00055  M00S00054.compsta +++|          SPACE  4
00056  M00S00055.compsta +++| QUAL$    IF     -DEF,QUAL$
00057  M00S00056.compsta +++|          QUAL   *
00058  M00S00057.compsta +++| STA      EQU    /COMPSTA/STA
00059  M00S00058.compsta +++| QUAL$    ENDIF
00060  M00S00059.compsta +++|          ENDX