User Tools

Site Tools


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

Common COMPUPP

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compupp +++|          CTEXT  COMPUPP - UPDATE POT POINTER.
00002  M01S00002.compupp +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compupp +++|          QUAL   COMPUPP
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compupp +++| UPP      SPACE  4
00006  M01S00005.compupp +++|***       UPP - UPDATE POT POINTER.
00007  M01S00006.compupp +++|*         R. E. TATE.        02/19/70.
00008  M01S00007.compupp +++| UPP      SPACE  4
00009  M01S00008.compupp +++|***              UPP GIVEN A CURRENT POT POINTER GETS THE LINK TO
00010  M01S00009.compupp +++|*         THE NEXT POT IN THE CHAIN AND RETURNS IT.
00011  M01S00010.compupp +++|*         IF *TA* IS DEFINED IT IS ASSUMED TO CONTAIN THE RA FOR
00012  M01S00011.compupp +++|*         TELEX.
00013  M01S00012.compupp +++|*
00014  M01S00013.compupp +++|*         ENTRY-
00015  M01S00014.compupp +++|*         (PP) = CURRENT POT POINTER.
00016  M01S00015.compupp +++|*
00017  M01S00016.compupp +++|*         EXIT-
00018  M01S00017.compupp +++|*         (A) = POT POINTER.
00019  M01S00018.compupp +++|*         (PP) = UPDATED POT POINTER OR
00020  M01S00019.compupp +++|*         (PP) = 0 IF AT END OF POT CHAIN.
00021  M01S00020.compupp +++|*
00022  M01S00021.compupp +++|*         USES-
00023  M01S00022.compupp +++|*         T1, CM - CM+4.
00024  M01S00023.compupp +++|*         CALLS-
00025  M01S00024.compupp +++|*         NONE.
00026  M01S00025.compupp +++|
00027  M01S00026.compupp +++|
00028  M01S00027.compupp +++| UPP1     LDD    PP
00029  M01S00028.compupp +++|          LPN    3
00030  M01S00029.compupp +++|          STD    T1          BYTE POSITION IN LINK TABLE
00031  M01S00030.compupp +++|          LDD    PP
00032  M01S00031.compupp +++|          SHN    -2
00033  M01S00032.compupp +++| UPPB     ADC    *           LINK TABLE ABSOLUTE ADDRESS
00034  M01S00033.compupp +++|          CRD    CM
00035  M01S00034.compupp +++|          LDM    CM,T1
00036  M01S00035.compupp +++|          STD    PP          SET NEW POT POINTER
00037  M01S00036.compupp +++|
00038  M01S00037.compupp +++| UPP      SUBR               ENTRY/EXIT
00039  M01S00038.compupp +++|          IF     -DEF,TA
00040  M01S00039.compupp +++| UPPA     LDD    RA          SET UP ABSOLUTE ADDRESS OF LINK TABLE
00041  M01S00040.compupp +++|          ELSE   1
00042  M01S00041.compupp +++| UPPA     LDD    TA          SET UP ABSOLUTE ADDRESS OF LINK TABLE
00043  M01S00042.compupp +++|          SHN    6
00044  M01S00043.compupp +++|          IF     DEF,/REM/VPLP
00045  M01S00044.compupp +++|          ADN    /REM/VPLP   POT LINK POINTER
00046  M01S00045.compupp +++|          ELSE   1
00047  M01S00046.compupp +++|          ADN    VPLP        POT LINK POINTER
00048  M01S00047.compupp +++|          CRD    CM
00049  M01S00048.compupp +++|          LDD    CM+1
00050  M01S00049.compupp +++|          SHN    6
00051  M01S00050.compupp +++|          IF     -DEF,TA
00052  M01S00051.compupp +++|          ADD    RA
00053  M01S00052.compupp +++|          ELSE   1
00054  M01S00053.compupp +++|          ADD    TA
00055  M01S00054.compupp +++|          SHN    6
00056  M01S00055.compupp +++|          ADD    CM+2
00057  M01S00056.compupp +++|          STM    UPPB+1
00058  M01S00057.compupp +++|          SHN    -14
00059  M01S00058.compupp +++|          RAM    UPPB
00060  M01S00059.compupp +++|          LDM    UPPC
00061  M01S00060.compupp +++|          STM    UPPA
00062  M01S00061.compupp +++|          UJN    UPP1
00063  M01S00062.compupp +++|
00064  M01S00063.compupp +++| UPPC     BSS    0
00065  M01S00064.compupp +++|          LOC    UPPA
00066  M01S00065.compupp +++|          UJN    UPP1
00067  M01S00066.compupp +++|          LOC    *O
00068  M01S00067.compupp +++|          SPACE  4
00069  M01S00068.compupp +++| QUAL$    IF     -DEF,QUAL$
00070  M01S00069.compupp +++|          QUAL   *
00071  M01S00070.compupp +++| UPP      EQU    /COMPUPP/UPP
00072  M01S00071.compupp +++| QUAL$    ENDIF
00073  M01S00072.compupp +++|          ENDX
cdc/nos2.source/opl.opl871/common/compupp.txt ยท Last modified: by 127.0.0.1