Common COMPSSE

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsse ---|          CTEXT  COMPSSE - SYSTEM SECTOR ERROR PROCESSOR.
00002  M00S00002.compsse ---| SSE      SPACE  4
00003  M00S00003.compsse ---|          BASE   MIXED
00004  M00S00004.compsse ---|          IF     -DEF,QUAL$,1
00005  M00S00005.compsse ---|          QUAL   COMPSSE

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compsse +++| SSE      SPACE  4
00009  M00S00008.compsse +++|***       SSE - SYSTEM SECTOR ERROR PROCESSOR.
00010  M00S00009.compsse +++|*         L. C. HAAS.        75/06/04.
00011  M00S00010.compsse +++|*         R. M. DESSEL.      82/02/15.
00012  M00S00011.compsse +++| SSE      SPACE  4
00013  M00S00012.compsse +++|***              SSE BUILDS AND ISSUES A SYSTEM SECTOR ERROR MESSAGE.
00014  M00S00013.compsse +++|*
00015  M00S00014.compsse +++|*         IF *REL$* = 1 IS DEFINED, *COMPSSE* USES THE CONTENTS
00016  M00S00015.compsse +++|*         OF *LA* TO RELOCATE INSTRUCTIONS OTHER THAN THOSE
00017  M00S00016.compsse +++|*         ASSEMBLED WITH RELOCATION BY USE OF *COMPREL*.
00018  M00S00017.compsse +++|*
00019  M00S00018.compsse +++|*         ENTRY  (A) = OFFSET ADDRESS
00020  M00S00019.compsse +++|*                (A) = 0 IF ONLY TRACK NUMBER IS TO BE REPORTED.
00021  M00S00020.compsse +++|*                (T3) = 0, IF (A) = NFL ADDRESS.
00022  M00S00021.compsse +++|*                     = 1, IF (A) = EJT ADDRESS.
00023  M00S00022.compsse +++|*                     = 2, IF (A) = QFT ADDRESS.

Line S00023 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00023.ns22000 ---|*                (T5) = EQ NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00026  M00S00024.compsse +++|*                (T6) = FIRST TRACK.
00027  M00S00025.compsse +++|*
00028  M00S00026.compsse +++|*         EXIT   MESSAGE ISSUED TO ERROR LOG AND DAYFILE.
00029  M00S00027.compsse +++|*
00030  M00S00028.compsse +++|*         USES   T1, T2, T3, CM - CM+4.
00031  M00S00029.compsse +++|*
00032  M00S00030.compsse +++|*         CALLS  C2D, DFM.
00033  M01S00002.ns22000 +++|*
00034  M01S00003.ns22000 +++|*         MACROS SFA.
00035  M00S00031.compsse +++|
00036  M00S00032.compsse +++|
00037  M00S00033.compsse +++| SSE5     LDC    SSEA+ERLN   MESSAGE TO ERRLOG
00038  M00S00034.compsse +++| REL$     IF     DEF,REL$
00039  M00S00035.compsse +++| REL$     IFEQ   REL$,1
00040  M00S00036.compsse +++|          ADD    LA          RELOCATE ADDRESS
00041  M00S00037.compsse +++| REL$     ENDIF
00042  M00S00038.compsse +++|          RJM    DFM
00043  M00S00039.compsse +++|          LDC    SSEA        MESSAGE TO DAYFILE
00044  M00S00040.compsse +++| REL$     IF     DEF,REL$
00045  M00S00041.compsse +++| REL$     IFEQ   REL$,1
00046  M00S00042.compsse +++|          ADD    LA          RELOCATE ADDRESS
00047  M00S00043.compsse +++| REL$     ENDIF
00048  M00S00044.compsse +++|          RJM    DFM
00049  M00S00045.compsse +++|
00050  M00S00046.compsse +++| SSE      SUBR               ENTRY/EXIT
00051  M00S00047.compsse +++|          STD    T2
00052  M00S00048.compsse +++|          SHN    -14
00053  M00S00049.compsse +++|          STD    T1
00054  M00S00050.compsse +++| REL$     IF     DEF,REL$
00055  M00S00051.compsse +++| REL$     IFEQ   REL$,1
00056  M00S00052.compsse +++|          LDC    SSEA+14     RELOCATE INSTRUCTION ADDRESSES
00057  M00S00053.compsse +++|          ADD    LA
00058  M00S00054.compsse +++|          STM    SSEC
00059  M00S00055.compsse +++| REL$     ENDIF

Line S00056 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00060  M01S00056.ns22000 ---|          LDD    T5          SET EQ TYPE
00061  M01S00057.ns22000 ---|          ADM    ESTS

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

Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00004.ns22000 +++|          SFA    EST,T5      SET EQUIPMENT MNEMONIC
00063  M01S00005.ns22000 +++|          ADK    EQDE
00064  M00S00058.compsse +++|          CRD    CM
00065  M00S00059.compsse +++|          LDD    CM+3

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

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00060.252l678 ---|          LPC    3777
00067  M00S00061.compsse ---|          STM    SSEA

Line S00062 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00062.ns22000 ---|          LDD    T5          CONVERT EQ NUMBER

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

Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00006.ns22000 +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
00070  M01S00007.ns22000 +++|          SHN    -3
00071  M00S00063.compsse +++|          RJM    C2D
00072  M00S00064.compsse +++|          STM    SSEA+1
00073  M01S00008.ns22000 +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
00074  M01S00009.ns22000 +++|          LPN    7
00075  M01S00010.ns22000 +++|          SHN    6
00076  M01S00011.ns22000 +++|          ADC    2R0,
00077  M01S00012.ns22000 +++|          STM    SSEA+2
00078  M00S00065.compsse +++|          LDD    T6          CONVERT FIRST TRACK
00079  M00S00066.compsse +++|          SHN    -6
00080  M00S00067.compsse +++|          RJM    C2D
00081  M00S00068.compsse +++|          STM    SSEA+7
00082  M00S00069.compsse +++|          LDD    T6
00083  M00S00070.compsse +++|          RJM    C2D
00084  M00S00071.compsse +++|          STM    SSEA+10
00085  M00S00072.compsse +++|          LDD    T1          READ FILE NAME
00086  M00S00073.compsse +++|          SHN    14
00087  M00S00074.compsse +++|          LMD    T2
00088  M00S00075.compsse +++|          NJN    SSE1        IF ADDRESS PRESENT
00089  M00S00076.compsse +++|          STM    SSEA+12     SET END OF MESSAGE
00090  M00S00077.compsse +++|          LDC    2R.
00091  M00S00078.compsse +++|          STM    SSEA+11
00092  M00S00079.compsse +++|          LJM    SSE5
00093  M00S00080.compsse +++|
00094  M00S00081.compsse +++| REL$     IF     DEF,REL$
00095  M00S00082.compsse +++| REL$     IFEQ   REL$,1
00096  M00S00083.compsse +++| SSE1     CRM.   SSEA+14,ON
00097  M00S00084.compsse +++| REL$     ELSE
00098  M00S00085.compsse +++| SSE1     CRM    SSEA+14,ON
00099  M00S00086.compsse +++| REL$     ENDIF
00100  M00S00087.compsse +++| SSEC     EQU    *-1
00101  M00S00088.compsse +++|          LDC    SSEA+17+1
00102  M00S00089.compsse +++| REL$     IF     DEF,REL$
00103  M00S00090.compsse +++| REL$     IFEQ   REL$,1
00104  M00S00091.compsse +++|          ADD    LA          RELOCATE ADDRESS
00105  M00S00092.compsse +++| REL$     ENDIF
00106  M00S00093.compsse +++|          STD    T1
00107  M00S00094.compsse +++|          LDM    SSEA+17     CLEAR FILE BITS
00108  M00S00095.compsse +++|          SCN    77
00109  M00S00096.compsse +++|          STM    SSEA+17
00110  M00S00097.compsse +++|          LDD    T3
00111  M00S00098.compsse +++|          ZJN    SSE1.1      IF FNT NAME TYPE
00112  M00S00099.compsse +++|          LDN    0
00113  M00S00100.compsse +++|          STM    SSEA+16     REMOVE FO, UI ENTRY
00114  M00S00101.compsse +++|          STM    SSEA+17
00115  M00S00102.compsse +++|          UJN    SSE1.2      PROCESS QFT OR EJT TYPE
00116  M00S00103.compsse +++|
00117  M00S00104.compsse +++| SSE1.1   LDI    T1          GET FILE TYPE
00118  M00S00105.compsse +++|          SHN    -6
00119  M00S00106.compsse +++|          STD    T2
00120  M00S00107.compsse +++|          SBN    MXFT
00121  M00S00108.compsse +++|          PJN    SSE2        IF ILLEGAL TYPE
00122  M00S00109.compsse +++|          LDC    SSEB
00123  M00S00110.compsse +++|          UJN    SSE1.4      SET FILE TYPE
00124  M00S00111.compsse +++|
00125  M00S00112.compsse +++| SSE1.2   LDD    T3
00126  M00S00113.compsse +++|          LMN    1
00127  M00S00114.compsse +++|          NJN    SSE1.3      IF NOT EJT TYPE
00128  M00S00115.compsse +++|          LDC    2HEX
00129  M00S00116.compsse +++|          SHN    -6
00130  M00S00117.compsse +++|          UJN    SSE1.5      STORE JOB STATUS
00131  M00S00118.compsse +++|
00132  M00S00119.compsse +++| SSE1.3   LMN    2&1
00133  M00S00120.compsse +++|          NJN    SSE2        IF NOT QFT TYPE
00134  M00S00121.compsse +++|          LDI    T1          GET DISPOSITION TYPE
00135  M00S00122.compsse +++|          SHN    -11
00136  M00S00123.compsse +++|          STD    T2
00137  M00S00124.compsse +++|          SBN    NRQT
00138  M00S00125.compsse +++|          PJN    SSE2        IF ILLEGAL TYPE
00139  M00S00126.compsse +++|          LDC    SSED
00140  M00S00127.compsse +++| SSE1.4   BSS    0
00141  M00S00128.compsse +++| REL$     IF     DEF,REL$
00142  M00S00129.compsse +++| REL$     IFEQ   REL$,1
00143  M00S00130.compsse +++|          ADD    LA
00144  M00S00131.compsse +++| REL$     ENDIF
00145  M00S00132.compsse +++|          RAD    T2
00146  M00S00133.compsse +++|          LDI    T2
00147  M00S00134.compsse +++| SSE1.5   STM    SSEA+12
00148  M00S00135.compsse +++| SSE2     LDN    0
00149  M00S00136.compsse +++|          STI    T1
00150  M00S00137.compsse +++| SSE3     SOD    T1          DECREMENT POINTER
00151  M00S00138.compsse +++|          LDI    T1
00152  M00S00139.compsse +++|          ZJN    SSE3        IF NAME NOT IN THIS BYTE
00153  M00S00140.compsse +++|          LPN    77          CHECK LOWER CHARACTER
00154  M00S00141.compsse +++|          ZJN    SSE4        IF LOWER CHARACTER ZERO
00155  M00S00142.compsse +++|          AOD    T1
00156  M00S00143.compsse +++|          LDC    2R. &1R.
00157  M00S00144.compsse +++| SSE4     LMN    1R.
00158  M00S00145.compsse +++|          RAI    T1
00159  M00S00146.compsse +++|          LJM    SSE5
00160  M00S00147.compsse +++|
00161  M00S00148.compsse +++|

Line S00149 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00149.ns22000 ---| SSEA     DATA   C/EQXX, SSER, TKNNNN, **, FILENAM./

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

Seq #  *Modification Id* Act 
----------------------------+
00163  M01S00013.ns22000 +++| SSEA     DATA   C/EQXXX, SSER, TNNNN, **, FILENAM./
00164  M00S00150.compsse +++| SSEB     DATA   C*"NMFT"*
00165  M00S00151.compsse +++| SSED     DATA   C*"NMQT"*
00166  M00S00152.compsse +++| SSE      SPACE  4
00167  M00S00153.compsse +++|          BASE   *
00168  M00S00154.compsse +++| QUAL$    IF     -DEF,QUAL$
00169  M00S00155.compsse +++|          QUAL   *
00170  M00S00156.compsse +++| SSE      EQU    /COMPSSE/SSE
00171  M00S00157.compsse +++| QUAL$    ENDIF
00172  M00S00158.compsse +++|          ENDX