Common COMPCLX

6 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compclx +++|          CTEXT  COMPCLX - CLEAR EXCHANGE PACKAGE.
00002  M01S00002.compclx +++| CLX      SPACE  4
00003  M01S00003.compclx +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compclx +++|          QUAL   COMPCLX

Line S00005 Modification History
`M01` (Added by)	`compclx`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compclx +++| CLX      SPACE  4
00008  M01S00007.compclx +++|***       CLX - CLEAR EXCHANGE PACKAGE.
00009  M01S00008.compclx +++|*         G. R. MANSFIELD.  70/08/30.
00010  M01S00009.compclx +++| CLX      SPACE  4
00011  M01S00010.compclx +++|***              CLX PRESETS THE EXCHANGE PACKAGE AS FOLLOWS -
00012  M01S00011.compclx +++|*         (P) = ENTRY ADDRESS.
00013  M01S00012.compclx +++|*         (A0) = FL.
00014  M01S00013.compclx +++|*         (X0) = ECS FL.
00015  M01S00014.compclx +++|*         ALL OTHER REGISTERS = 0.
00016  M01S00015.compclx +++|*         (RA) = SENSE SWITCHES.
00017  M01S00016.compclx +++|*         (RA+1) = 0.
00018  M01S00017.compclx +++|*
00019  M01S00018.compclx +++|*         ENTRY  (A) = ENTRY ADDRESS.
00020  M01S00019.compclx +++|*
00021  M01S00020.compclx +++|*         USES   T1, CM - CM+4.
00022  M01S00021.compclx +++|
00023  M01S00022.compclx +++|
00024  M01S00023.compclx +++| CLX      SUBR               ENTRY/EXIT
00025  M01S00024.compclx +++|          STD    CM+1        (P) = ENTRY ADDRESS
00026  M01S00025.compclx +++|          SHN    -14
00027  M01S00026.compclx +++|          STD    CM
00028  M01S00027.compclx +++|          LDD    FL          (A0) = FL
00029  M01S00028.compclx +++|          STD    CM+2
00030  M01S00029.compclx +++|          LDN    0           CLEAR WORD
00031  M01S00030.compclx +++|          STD    CM+3
00032  M01S00031.compclx +++|          STD    CM+4
00033  M01S00032.compclx +++|          LDD    CP          STORE (P), (A0)
00034  M01S00033.compclx +++|          CWD    CM
00035  M01S00034.compclx +++|          ADN    1
00036  M01S00035.compclx +++|          STD    T1
00037  M01S00036.compclx +++| CLX1     LDD    T1          READ EXCHANGE AREA
00038  M01S00037.compclx +++|          CRD    CM
00039  M01S00038.compclx +++|          LDN    0           CLEAR A, B REGISTERS
00040  M01S00039.compclx +++|          STD    CM+2
00041  M01S00040.compclx +++|          STD    CM+3
00042  M01S00041.compclx +++|          STD    CM+4

Line S00042 Modification History
`M01` (Added by)	`compclx`
`M02` (Updated by)	`pclx1`

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00042.pclx1   ---|          LDD    T1          RESTORE
00044  M01S00001.pclx1   +++|          LDD    T1
00045  M01S00002.pclx1   +++|          LPN    77
00046  M01S00003.pclx1   +++|          LMN    3
00047  M01S00004.pclx1   +++|          NJN    CLX1.1      IF NOT THE EXIT MODE WORD
00048  M01S00005.pclx1   +++|          STD    CM+1        CLEAR POSSIBLE *PSD* ERRORS
00049  M01S00006.pclx1   +++| CLX1.1   LDD    T1          RESTORE WORD
00050  M01S00043.compclx +++|          CWD    CM
00051  M01S00044.compclx +++|          AOD    T1          ADVANCE EXCHANGE ADDRESS
00052  M01S00045.compclx +++|          LPN    7
00053  M01S00046.compclx +++|          NJN    CLX1        LOOP FOR ALL A, B REGISTERS
00054  M01S00001.252l678 +++|          LDK    MEFL        GET USER EM SHIFT COUNT
00055  M01S00002.252l678 +++|          CRD    CM
00056  M01S00003.252l678 +++|          LDD    CM+2
00057  M01S00004.252l678 +++|          SHN    -11
00058  M01S00005.252l678 +++|          ADC    SHNI+17
00059  M01S00006.252l678 +++|          STM    CLXA
00060  M01S00047.compclx +++|          LDD    CP          FETCH ECS INFORMATION
00061  M01S00048.compclx +++|          ADN    ECSW
00062  M01S00049.compclx +++|          CRD    CM
00063  M01S00050.compclx +++|          LDN    0           CLEAR PROTECT FLAGS
00064  M01S00051.compclx +++|          STD    CM
00065  M01S00052.compclx +++|          STD    CM+1
00066  M01S00053.compclx +++|          STD    CM+2
00067  M01S00054.compclx +++|          LDD    CM+4        FLE

Line S00055 Modification History
`M01` (Added by)	`compclx`
`M02` (Updated by)	`ns2184`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00055.ns2184  ---|          SHN    17

Line S00001 Modification History
`M01` (Added by)	`ns2184`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00001.252l678 ---|          SHN    17+UESF
00070  M01S00007.252l678 +++| CLXA     SHN    17
00071  M01S00008.252l678 +++|*         SHN    17+UESC
00072  M01S00056.compclx +++|          STD    CM+3
00073  M01S00057.compclx +++|          SHN    -6

Line S00058 Modification History
`M01` (Added by)	`compclx`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00058.252l678 ---|          SCN    7
00075  M01S00009.252l678 +++|          SCN    77
00076  M01S00059.compclx +++|          STD    CM+4
00077  M01S00060.compclx +++|          LDD    T1          STORE X0
00078  M01S00061.compclx +++|          CWD    CM
00079  M01S00062.compclx +++|          LDD    CM+3
00080  M01S00063.compclx +++|          ADD    CM+4
00081  M01S00064.compclx +++|          NJN    CLX2        IF FLE (ECS FL IN ECSW) IS NON-ZERO
00082  M01S00001.ns22000 +++|          LDD    CP          CHECK FLX CONTROL
00083  M01S00002.ns22000 +++|          ADN    JCIW
00084  M01S00003.ns22000 +++|          CRD    CM
00085  M01S00004.ns22000 +++|          LDD    CM+3
00086  M01S00005.ns22000 +++|          SHN    21-12
00087  M01S00006.ns22000 +++|          MJN    CLX2        IF PRESERVING FLX AT JOB STEP
00088  M01S00007.ns22000 +++|          LDN    ZERL
00089  M01S00008.ns22000 +++|          CRD    CM
00090  M01S00065.compclx +++|          LDD    T1
00091  M01S00066.compclx +++|          SBN    3
00092  M01S00067.compclx +++|          CWD    CM          ZERO OUT FLX (WORD 5 OF EXCHANGE PACKAGE)
00093  M01S00068.compclx +++| CLX2     LDN    ZERL        SET TO CLEAR EXCANGE PACKAGE X REGS
00094  M01S00069.compclx +++|          CRD    CM
00095  M01S00070.compclx +++| CLX3     AOD    T1
00096  M01S00071.compclx +++|          CWD    CM
00097  M01S00072.compclx +++|          LPN    17
00098  M01S00073.compclx +++|          LMN    17
00099  M01S00074.compclx +++|          NJN    CLX3        IF NOT ALL X REGISTERS CLEARED
00100  M01S00075.compclx +++|          LDD    RA          CLEAR (RA+1)
00101  M01S00076.compclx +++|          SHN    6
00102  M01S00077.compclx +++|          ADN    1
00103  M01S00078.compclx +++|          CWD    CM
00104  M01S00079.compclx +++|          LDD    CP          READ SWITCH WORD
00105  M01S00080.compclx +++|          ADN    SNSW
00106  M01S00081.compclx +++|          CRD    CM
00107  M01S00082.compclx +++|          LDN    0           CLEAR UPPER BYTES
00108  M01S00083.compclx +++|          STD    CM
00109  M01S00084.compclx +++|          STD    CM+1
00110  M01S00085.compclx +++|          STD    CM+2
00111  M01S00086.compclx +++|          STD    CM+3
00112  M01S00001.ns2433a +++|          LDD    CM+4        COPY ONLY SENSE SWITCH BITS
00113  M01S00002.ns2433a +++|          SCN    77
00114  M01S00003.ns2433a +++|          STD    CM+4
00115  M01S00087.compclx +++|          LDD    RA          STORE SENSE SWITCHES
00116  M01S00088.compclx +++|          SHN    6
00117  M01S00089.compclx +++|          CWD    CM
00118  M01S00090.compclx +++|          LJM    CLXX        RETURN
00119  M01S00091.compclx +++|          SPACE  4
00120  M01S00092.compclx +++| QUAL$    IF     -DEF,QUAL$
00121  M01S00093.compclx +++|          QUAL   *
00122  M01S00094.compclx +++| CLX      EQU    /COMPCLX/CLX
00123  M01S00095.compclx +++| QUAL$    ENDIF
00124  M01S00096.compclx +++|          ENDX