Common COMPSPA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compspa +++|          CTEXT  COMPSPA - SET POT ADDRESS.
00002  M00S00002.compspa +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compspa +++|          QUAL   COMPSPA

Line S00001 Modification History
`M01` (Added by)	`281l803`

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