User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:compupp

Common COMPUPP

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compupp +++|          CTEXT  COMPUPP - UPDATE POT POINTER.
00002  M00S00002.compupp +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compupp +++|          QUAL   COMPUPP
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compupp +++| UPP      SPACE  4
00006  M00S00005.compupp +++|***       UPP - UPDATE POT POINTER.
00007  M00S00006.compupp +++|*         R. E. TATE.        02/19/70.
00008  M00S00007.compupp +++| UPP      SPACE  4
00009  M00S00008.compupp +++|***              UPP GIVEN A CURRENT POT POINTER GETS THE LINK TO
00010  M00S00009.compupp +++|*         THE NEXT POT IN THE CHAIN AND RETURNS IT.
00011  M00S00010.compupp +++|*         IF *TA* IS DEFINED IT IS ASSUMED TO CONTAIN THE RA FOR
00012  M00S00011.compupp +++|*         TELEX.
00013  M00S00012.compupp +++|*
00014  M00S00013.compupp +++|*         ENTRY-
00015  M00S00014.compupp +++|*         (PP) = CURRENT POT POINTER.
00016  M00S00015.compupp +++|*
00017  M00S00016.compupp +++|*         EXIT-
00018  M00S00017.compupp +++|*         (A) = POT POINTER.
00019  M00S00018.compupp +++|*         (PP) = UPDATED POT POINTER OR
00020  M00S00019.compupp +++|*         (PP) = 0 IF AT END OF POT CHAIN.
00021  M00S00020.compupp +++|*
00022  M00S00021.compupp +++|*         USES-
00023  M00S00022.compupp +++|*         T1, CM - CM+4.
00024  M00S00023.compupp +++|*         CALLS-
00025  M00S00024.compupp +++|*         NONE.
00026  M00S00025.compupp +++|
00027  M00S00026.compupp +++|
00028  M00S00027.compupp +++| UPP1     LDD    PP
00029  M00S00028.compupp +++|          LPN    3
00030  M00S00029.compupp +++|          STD    T1          BYTE POSITION IN LINK TABLE
00031  M00S00030.compupp +++|          LDD    PP
00032  M00S00031.compupp +++|          SHN    -2
00033  M00S00032.compupp +++| UPPB     ADC    *           LINK TABLE ABSOLUTE ADDRESS
00034  M00S00033.compupp +++|          CRD    CM
00035  M00S00034.compupp +++|          LDM    CM,T1
00036  M00S00035.compupp +++|          STD    PP          SET NEW POT POINTER
00037  M00S00036.compupp +++|
00038  M00S00037.compupp +++| UPP      SUBR               ENTRY/EXIT
00039  M00S00038.compupp +++|          IF     -DEF,TA
00040  M00S00039.compupp +++| UPPA     LDD    RA          SET UP ABSOLUTE ADDRESS OF LINK TABLE
00041  M00S00040.compupp +++|          ELSE   1
00042  M00S00041.compupp +++| UPPA     LDD    TA          SET UP ABSOLUTE ADDRESS OF LINK TABLE
00043  M00S00042.compupp +++|          SHN    6
00044  M00S00043.compupp +++|          IF     DEF,/REM/VPLP
00045  M00S00044.compupp +++|          ADN    /REM/VPLP   POT LINK POINTER
00046  M00S00045.compupp +++|          ELSE   1
00047  M00S00046.compupp +++|          ADN    VPLP        POT LINK POINTER
00048  M00S00047.compupp +++|          CRD    CM
00049  M00S00048.compupp +++|          LDD    CM+1
00050  M00S00049.compupp +++|          SHN    6
00051  M00S00050.compupp +++|          IF     -DEF,TA
00052  M00S00051.compupp +++|          ADD    RA
00053  M00S00052.compupp +++|          ELSE   1
00054  M00S00053.compupp +++|          ADD    TA
00055  M00S00054.compupp +++|          SHN    6
00056  M00S00055.compupp +++|          ADD    CM+2
00057  M00S00056.compupp +++|          STM    UPPB+1
00058  M00S00057.compupp +++|          SHN    -14
00059  M00S00058.compupp +++|          RAM    UPPB
00060  M00S00059.compupp +++|          LDM    UPPC
00061  M00S00060.compupp +++|          STM    UPPA
00062  M00S00061.compupp +++|          UJN    UPP1
00063  M00S00062.compupp +++|
00064  M00S00063.compupp +++| UPPC     BSS    0
00065  M00S00064.compupp +++|          LOC    UPPA
00066  M00S00065.compupp +++|          UJN    UPP1
00067  M00S00066.compupp +++|          LOC    *O
00068  M00S00067.compupp +++|          SPACE  4
00069  M00S00068.compupp +++| QUAL$    IF     -DEF,QUAL$
00070  M00S00069.compupp +++|          QUAL   *
00071  M00S00070.compupp +++| UPP      EQU    /COMPUPP/UPP
00072  M00S00071.compupp +++| QUAL$    ENDIF
00073  M00S00072.compupp +++|          ENDX
cdc/nos2.source/opl.opl871/common/compupp.txt ยท Last modified: (external edit)