Common COMPSTA

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsta +++|          CTEXT  COMPSTA - SET TERMINAL TABLE ADDRESS.
00002  M01S00002.compsta +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compsta +++|          QUAL   COMPSTA
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compsta +++| STA      SPACE  4
00006  M01S00005.compsta +++|***       STA - SET TERMINAL TABLE ADDRESS.
00007  M01S00006.compsta +++|*         R. E. TATE.        02/19/70.
00008  M01S00007.compsta +++| STA      SPACE  4
00009  M01S00008.compsta +++|***              SETS UP THE ABSOLUTE ADDRESS OF THE FIRST WORD
00010  M01S00009.compsta +++|*         ADDRESS OF THE TERMINAL TABLE FOR THE GIVEN TERMINAL.
00011  M01S00010.compsta +++|*         IF *TA* IS DEFINED, IT IS ASSUMED TO CONTAIN THE RA FOR
00012  M01S00011.compsta +++|*         TELEX.
00013  M01S00012.compsta +++|*
00014  M01S00013.compsta +++|*         ENTRY-
00015  M01S00014.compsta +++|*         (TN) = TERMINAL NUMBER.
00016  M01S00015.compsta +++|*
00017  M01S00016.compsta +++|*         EXIT-
00018  M01S00017.compsta +++|*         (A) = TERMINAL TABLE ADDRESS (ABSOLUTE).
00019  M01S00018.compsta +++|*         (TT - TT+1) = TERMINAL TABLE ADDRESS (ABSOLUTE).
00020  M01S00019.compsta +++|*
00021  M01S00020.compsta +++|*         USES-
00022  M01S00021.compsta +++|*         CM - CM+4.
00023  M01S00022.compsta +++|*
00024  M01S00023.compsta +++|*         CALLS-
00025  M01S00024.compsta +++|*         NONE.
00026  M01S00025.compsta +++|
00027  M01S00026.compsta +++|
00028  M01S00027.compsta +++| STA      SUBR               ENTRY/EXIT
00029  M01S00028.compsta +++|          IF     -DEF,TA
00030  M01S00029.compsta +++|          LDD    RA
00031  M01S00030.compsta +++|          ELSE   1
00032  M01S00031.compsta +++|          LDD    TA
00033  M01S00032.compsta +++|          SHN    6
00034  M01S00033.compsta +++|          IF     DEF,/REM/VTTP
00035  M01S00034.compsta +++|          ADN    /REM/VTTP   TELEX TERMINAL TABLE POINTER WORD
00036  M01S00035.compsta +++|          ELSE   1
00037  M01S00036.compsta +++|          ADN    VTTP        TELEX TERMINAL TABLE POINTER WORD
00038  M01S00037.compsta +++|          CRD    CM
00039  M01S00038.compsta +++|          TTAP
00040  M01S00039.compsta +++|          SHN    6
00041  M01S00040.compsta +++|          ADD    CM+1
00042  M01S00041.compsta +++|          SHN    6
00043  M01S00042.compsta +++|          IF     -DEF,TA
00044  M01S00043.compsta +++|          ADD    RA
00045  M01S00044.compsta +++|          ELSE   1
00046  M01S00045.compsta +++|          ADD    TA
00047  M01S00046.compsta +++|          SHN    6
00048  M01S00047.compsta +++|          ADD    CM+2
00049  M01S00048.compsta +++|          STD    TT+1        SET TERMINAL TABLE ADDRESS
00050  M01S00049.compsta +++|          SHN    -14
00051  M01S00050.compsta +++|          STD    TT
00052  M01S00051.compsta +++|          SHN    14
00053  M01S00052.compsta +++|          ADD    TT+1
00054  M01S00053.compsta +++|          UJN    STAX        EXIT WITH TERMINAL ADDRESS IN A REGISTER
00055  M01S00054.compsta +++|          SPACE  4
00056  M01S00055.compsta +++| QUAL$    IF     -DEF,QUAL$
00057  M01S00056.compsta +++|          QUAL   *
00058  M01S00057.compsta +++| STA      EQU    /COMPSTA/STA
00059  M01S00058.compsta +++| QUAL$    ENDIF
00060  M01S00059.compsta +++|          ENDX