Common COMPCLX

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compclx +++|          CTEXT  COMPCLX - CLEAR EXCHANGE PACKAGE.
00002  M00S00002.compclx +++| CLX      SPACE  4
00003  M00S00003.compclx +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compclx +++|          QUAL   COMPCLX

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compclx +++| CLX      SPACE  4
00008  M00S00007.compclx +++|***       CLX - CLEAR EXCHANGE PACKAGE.
00009  M00S00008.compclx +++|*         G. R. MANSFIELD.  70/08/30.
00010  M00S00009.compclx +++| CLX      SPACE  4
00011  M00S00010.compclx +++|***              CLX PRESETS THE EXCHANGE PACKAGE AS FOLLOWS -
00012  M00S00011.compclx +++|*         (P) = ENTRY ADDRESS.
00013  M00S00012.compclx +++|*         (A0) = FL.
00014  M00S00013.compclx +++|*         (X0) = ECS FL.
00015  M00S00014.compclx +++|*         ALL OTHER REGISTERS = 0.
00016  M00S00015.compclx +++|*         (RA) = SENSE SWITCHES.
00017  M00S00016.compclx +++|*         (RA+1) = 0.
00018  M00S00017.compclx +++|*
00019  M00S00018.compclx +++|*         ENTRY  (A) = ENTRY ADDRESS.
00020  M00S00019.compclx +++|*
00021  M00S00020.compclx +++|*         USES   T1, CM - CM+4.
00022  M00S00021.compclx +++|
00023  M00S00022.compclx +++|
00024  M00S00023.compclx +++| CLX      SUBR               ENTRY/EXIT
00025  M00S00024.compclx +++|          STD    CM+1        (P) = ENTRY ADDRESS
00026  M00S00025.compclx +++|          SHN    -14
00027  M00S00026.compclx +++|          STD    CM
00028  M00S00027.compclx +++|          LDD    FL          (A0) = FL
00029  M00S00028.compclx +++|          STD    CM+2
00030  M00S00029.compclx +++|          LDN    0           CLEAR WORD
00031  M00S00030.compclx +++|          STD    CM+3
00032  M00S00031.compclx +++|          STD    CM+4
00033  M00S00032.compclx +++|          LDD    CP          STORE (P), (A0)
00034  M00S00033.compclx +++|          CWD    CM
00035  M00S00034.compclx +++|          ADN    1
00036  M00S00035.compclx +++|          STD    T1
00037  M00S00036.compclx +++| CLX1     LDD    T1          READ EXCHANGE AREA
00038  M00S00037.compclx +++|          CRD    CM
00039  M00S00038.compclx +++|          LDN    0           CLEAR A, B REGISTERS
00040  M00S00039.compclx +++|          STD    CM+2
00041  M00S00040.compclx +++|          STD    CM+3
00042  M00S00041.compclx +++|          STD    CM+4

Line S00042 Modification History
`M01` (Removed by)	`pclx1`

Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00042.pclx1   ---|          LDD    T1          RESTORE

Line S00001 Modification History
`M01` (Added by)	`pclx1`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00043.compclx +++|          CWD    CM
00051  M00S00044.compclx +++|          AOD    T1          ADVANCE EXCHANGE ADDRESS
00052  M00S00045.compclx +++|          LPN    7
00053  M00S00046.compclx +++|          NJN    CLX1        LOOP FOR ALL A, B REGISTERS

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00047.compclx +++|          LDD    CP          FETCH ECS INFORMATION
00061  M00S00048.compclx +++|          ADN    ECSW
00062  M00S00049.compclx +++|          CRD    CM
00063  M00S00050.compclx +++|          LDN    0           CLEAR PROTECT FLAGS
00064  M00S00051.compclx +++|          STD    CM
00065  M00S00052.compclx +++|          STD    CM+1
00066  M00S00053.compclx +++|          STD    CM+2
00067  M00S00054.compclx +++|          LDD    CM+4        FLE

Line S00055 Modification History
`M01` (Removed by)	`ns2184`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00001.252l678 ---|          SHN    17+UESF

Line S00007 Modification History
`M01` (Added by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00007.252l678 +++| CLXA     SHN    17
00071  M01S00008.252l678 +++|*         SHN    17+UESC
00072  M00S00056.compclx +++|          STD    CM+3
00073  M00S00057.compclx +++|          SHN    -6

Line S00058 Modification History
`M01` (Removed by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00074  M01S00058.252l678 ---|          SCN    7

Line S00009 Modification History
`M01` (Added by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00009.252l678 +++|          SCN    77
00076  M00S00059.compclx +++|          STD    CM+4
00077  M00S00060.compclx +++|          LDD    T1          STORE X0
00078  M00S00061.compclx +++|          CWD    CM
00079  M00S00062.compclx +++|          LDD    CM+3
00080  M00S00063.compclx +++|          ADD    CM+4
00081  M00S00064.compclx +++|          NJN    CLX2        IF FLE (ECS FL IN ECSW) IS NON-ZERO

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00065.compclx +++|          LDD    T1
00091  M00S00066.compclx +++|          SBN    3
00092  M00S00067.compclx +++|          CWD    CM          ZERO OUT FLX (WORD 5 OF EXCHANGE PACKAGE)
00093  M00S00068.compclx +++| CLX2     LDN    ZERL        SET TO CLEAR EXCANGE PACKAGE X REGS
00094  M00S00069.compclx +++|          CRD    CM
00095  M00S00070.compclx +++| CLX3     AOD    T1
00096  M00S00071.compclx +++|          CWD    CM
00097  M00S00072.compclx +++|          LPN    17
00098  M00S00073.compclx +++|          LMN    17
00099  M00S00074.compclx +++|          NJN    CLX3        IF NOT ALL X REGISTERS CLEARED
00100  M00S00075.compclx +++|          LDD    RA          CLEAR (RA+1)
00101  M00S00076.compclx +++|          SHN    6
00102  M00S00077.compclx +++|          ADN    1
00103  M00S00078.compclx +++|          CWD    CM
00104  M00S00079.compclx +++|          LDD    CP          READ SWITCH WORD
00105  M00S00080.compclx +++|          ADN    SNSW
00106  M00S00081.compclx +++|          CRD    CM
00107  M00S00082.compclx +++|          LDN    0           CLEAR UPPER BYTES
00108  M00S00083.compclx +++|          STD    CM
00109  M00S00084.compclx +++|          STD    CM+1
00110  M00S00085.compclx +++|          STD    CM+2
00111  M00S00086.compclx +++|          STD    CM+3

Line S00001 Modification History
`M01` (Added by)	`ns2433a`

Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00001.ns2433a +++|          LDD    CM+4        COPY ONLY SENSE SWITCH BITS
00113  M01S00002.ns2433a +++|          SCN    77
00114  M01S00003.ns2433a +++|          STD    CM+4
00115  M00S00087.compclx +++|          LDD    RA          STORE SENSE SWITCHES
00116  M00S00088.compclx +++|          SHN    6
00117  M00S00089.compclx +++|          CWD    CM
00118  M00S00090.compclx +++|          LJM    CLXX        RETURN
00119  M00S00091.compclx +++|          SPACE  4
00120  M00S00092.compclx +++| QUAL$    IF     -DEF,QUAL$
00121  M00S00093.compclx +++|          QUAL   *
00122  M00S00094.compclx +++| CLX      EQU    /COMPCLX/CLX
00123  M00S00095.compclx +++| QUAL$    ENDIF
00124  M00S00096.compclx +++|          ENDX