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