Common COMPSSE

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsse +++|          CTEXT  COMPSSE - SYSTEM SECTOR ERROR PROCESSOR.
00002  M01S00002.compsse +++| SSE      SPACE  4
00003  M01S00003.compsse +++|          BASE   MIXED
00004  M01S00004.compsse +++|          IF     -DEF,QUAL$,1
00005  M01S00005.compsse +++|          QUAL   COMPSSE

Line S00006 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compsse +++| SSE      SPACE  4
00009  M01S00008.compsse +++|***       SSE - SYSTEM SECTOR ERROR PROCESSOR.
00010  M01S00009.compsse +++|*         L. C. HAAS.        75/06/04.
00011  M01S00010.compsse +++|*         R. M. DESSEL.      82/02/15.
00012  M01S00011.compsse +++| SSE      SPACE  4
00013  M01S00012.compsse +++|***              SSE BUILDS AND ISSUES A SYSTEM SECTOR ERROR MESSAGE.
00014  M01S00013.compsse +++|*
00015  M01S00014.compsse +++|*         IF *REL$* = 1 IS DEFINED, *COMPSSE* USES THE CONTENTS
00016  M01S00015.compsse +++|*         OF *LA* TO RELOCATE INSTRUCTIONS OTHER THAN THOSE
00017  M01S00016.compsse +++|*         ASSEMBLED WITH RELOCATION BY USE OF *COMPREL*.
00018  M01S00017.compsse +++|*
00019  M01S00018.compsse +++|*         ENTRY  (A) = OFFSET ADDRESS
00020  M01S00019.compsse +++|*                (A) = 0 IF ONLY TRACK NUMBER IS TO BE REPORTED.
00021  M01S00020.compsse +++|*                (T3) = 0, IF (A) = NFL ADDRESS.
00022  M01S00021.compsse +++|*                     = 1, IF (A) = EJT ADDRESS.
00023  M01S00022.compsse +++|*                     = 2, IF (A) = QFT ADDRESS.

Line S00023 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00023.ns22000 ---|*                (T5) = EQ NUMBER.
00025  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00026  M01S00024.compsse +++|*                (T6) = FIRST TRACK.
00027  M01S00025.compsse +++|*
00028  M01S00026.compsse +++|*         EXIT   MESSAGE ISSUED TO ERROR LOG AND DAYFILE.
00029  M01S00027.compsse +++|*
00030  M01S00028.compsse +++|*         USES   T1, T2, T3, CM - CM+4.
00031  M01S00029.compsse +++|*
00032  M01S00030.compsse +++|*         CALLS  C2D, DFM.
00033  M01S00002.ns22000 +++|*
00034  M01S00003.ns22000 +++|*         MACROS SFA.
00035  M01S00031.compsse +++|
00036  M01S00032.compsse +++|
00037  M01S00033.compsse +++| SSE5     LDC    SSEA+ERLN   MESSAGE TO ERRLOG
00038  M01S00034.compsse +++| REL$     IF     DEF,REL$
00039  M01S00035.compsse +++| REL$     IFEQ   REL$,1
00040  M01S00036.compsse +++|          ADD    LA          RELOCATE ADDRESS
00041  M01S00037.compsse +++| REL$     ENDIF
00042  M01S00038.compsse +++|          RJM    DFM
00043  M01S00039.compsse +++|          LDC    SSEA        MESSAGE TO DAYFILE
00044  M01S00040.compsse +++| REL$     IF     DEF,REL$
00045  M01S00041.compsse +++| REL$     IFEQ   REL$,1
00046  M01S00042.compsse +++|          ADD    LA          RELOCATE ADDRESS
00047  M01S00043.compsse +++| REL$     ENDIF
00048  M01S00044.compsse +++|          RJM    DFM
00049  M01S00045.compsse +++|
00050  M01S00046.compsse +++| SSE      SUBR               ENTRY/EXIT
00051  M01S00047.compsse +++|          STD    T2
00052  M01S00048.compsse +++|          SHN    -14
00053  M01S00049.compsse +++|          STD    T1
00054  M01S00050.compsse +++| REL$     IF     DEF,REL$
00055  M01S00051.compsse +++| REL$     IFEQ   REL$,1
00056  M01S00052.compsse +++|          LDC    SSEA+14     RELOCATE INSTRUCTION ADDRESSES
00057  M01S00053.compsse +++|          ADD    LA
00058  M01S00054.compsse +++|          STM    SSEC
00059  M01S00055.compsse +++| REL$     ENDIF

Line S00056 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00056.ns22000 ---|          LDD    T5          SET EQ TYPE

Line S00057 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00057.ns22000 ---|          ADM    ESTS
00062  M01S00004.ns22000 +++|          SFA    EST,T5      SET EQUIPMENT MNEMONIC
00063  M01S00005.ns22000 +++|          ADK    EQDE
00064  M01S00058.compsse +++|          CRD    CM
00065  M01S00059.compsse +++|          LDD    CM+3

Line S00060 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`252l678`

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

Line S00062 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00062.ns22000 ---|          LDD    T5          CONVERT EQ NUMBER
00069  M01S00006.ns22000 +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
00070  M01S00007.ns22000 +++|          SHN    -3
00071  M01S00063.compsse +++|          RJM    C2D
00072  M01S00064.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  M01S00065.compsse +++|          LDD    T6          CONVERT FIRST TRACK
00079  M01S00066.compsse +++|          SHN    -6
00080  M01S00067.compsse +++|          RJM    C2D
00081  M01S00068.compsse +++|          STM    SSEA+7
00082  M01S00069.compsse +++|          LDD    T6
00083  M01S00070.compsse +++|          RJM    C2D
00084  M01S00071.compsse +++|          STM    SSEA+10
00085  M01S00072.compsse +++|          LDD    T1          READ FILE NAME
00086  M01S00073.compsse +++|          SHN    14
00087  M01S00074.compsse +++|          LMD    T2
00088  M01S00075.compsse +++|          NJN    SSE1        IF ADDRESS PRESENT
00089  M01S00076.compsse +++|          STM    SSEA+12     SET END OF MESSAGE
00090  M01S00077.compsse +++|          LDC    2R.
00091  M01S00078.compsse +++|          STM    SSEA+11
00092  M01S00079.compsse +++|          LJM    SSE5
00093  M01S00080.compsse +++|
00094  M01S00081.compsse +++| REL$     IF     DEF,REL$
00095  M01S00082.compsse +++| REL$     IFEQ   REL$,1
00096  M01S00083.compsse +++| SSE1     CRM.   SSEA+14,ON
00097  M01S00084.compsse +++| REL$     ELSE
00098  M01S00085.compsse +++| SSE1     CRM    SSEA+14,ON
00099  M01S00086.compsse +++| REL$     ENDIF
00100  M01S00087.compsse +++| SSEC     EQU    *-1
00101  M01S00088.compsse +++|          LDC    SSEA+17+1
00102  M01S00089.compsse +++| REL$     IF     DEF,REL$
00103  M01S00090.compsse +++| REL$     IFEQ   REL$,1
00104  M01S00091.compsse +++|          ADD    LA          RELOCATE ADDRESS
00105  M01S00092.compsse +++| REL$     ENDIF
00106  M01S00093.compsse +++|          STD    T1
00107  M01S00094.compsse +++|          LDM    SSEA+17     CLEAR FILE BITS
00108  M01S00095.compsse +++|          SCN    77
00109  M01S00096.compsse +++|          STM    SSEA+17
00110  M01S00097.compsse +++|          LDD    T3
00111  M01S00098.compsse +++|          ZJN    SSE1.1      IF FNT NAME TYPE
00112  M01S00099.compsse +++|          LDN    0
00113  M01S00100.compsse +++|          STM    SSEA+16     REMOVE FO, UI ENTRY
00114  M01S00101.compsse +++|          STM    SSEA+17
00115  M01S00102.compsse +++|          UJN    SSE1.2      PROCESS QFT OR EJT TYPE
00116  M01S00103.compsse +++|
00117  M01S00104.compsse +++| SSE1.1   LDI    T1          GET FILE TYPE
00118  M01S00105.compsse +++|          SHN    -6
00119  M01S00106.compsse +++|          STD    T2
00120  M01S00107.compsse +++|          SBN    MXFT
00121  M01S00108.compsse +++|          PJN    SSE2        IF ILLEGAL TYPE
00122  M01S00109.compsse +++|          LDC    SSEB
00123  M01S00110.compsse +++|          UJN    SSE1.4      SET FILE TYPE
00124  M01S00111.compsse +++|
00125  M01S00112.compsse +++| SSE1.2   LDD    T3
00126  M01S00113.compsse +++|          LMN    1
00127  M01S00114.compsse +++|          NJN    SSE1.3      IF NOT EJT TYPE
00128  M01S00115.compsse +++|          LDC    2HEX
00129  M01S00116.compsse +++|          SHN    -6
00130  M01S00117.compsse +++|          UJN    SSE1.5      STORE JOB STATUS
00131  M01S00118.compsse +++|
00132  M01S00119.compsse +++| SSE1.3   LMN    2&1
00133  M01S00120.compsse +++|          NJN    SSE2        IF NOT QFT TYPE
00134  M01S00121.compsse +++|          LDI    T1          GET DISPOSITION TYPE
00135  M01S00122.compsse +++|          SHN    -11
00136  M01S00123.compsse +++|          STD    T2
00137  M01S00124.compsse +++|          SBN    NRQT
00138  M01S00125.compsse +++|          PJN    SSE2        IF ILLEGAL TYPE
00139  M01S00126.compsse +++|          LDC    SSED
00140  M01S00127.compsse +++| SSE1.4   BSS    0
00141  M01S00128.compsse +++| REL$     IF     DEF,REL$
00142  M01S00129.compsse +++| REL$     IFEQ   REL$,1
00143  M01S00130.compsse +++|          ADD    LA
00144  M01S00131.compsse +++| REL$     ENDIF
00145  M01S00132.compsse +++|          RAD    T2
00146  M01S00133.compsse +++|          LDI    T2
00147  M01S00134.compsse +++| SSE1.5   STM    SSEA+12
00148  M01S00135.compsse +++| SSE2     LDN    0
00149  M01S00136.compsse +++|          STI    T1
00150  M01S00137.compsse +++| SSE3     SOD    T1          DECREMENT POINTER
00151  M01S00138.compsse +++|          LDI    T1
00152  M01S00139.compsse +++|          ZJN    SSE3        IF NAME NOT IN THIS BYTE
00153  M01S00140.compsse +++|          LPN    77          CHECK LOWER CHARACTER
00154  M01S00141.compsse +++|          ZJN    SSE4        IF LOWER CHARACTER ZERO
00155  M01S00142.compsse +++|          AOD    T1
00156  M01S00143.compsse +++|          LDC    2R. &1R.
00157  M01S00144.compsse +++| SSE4     LMN    1R.
00158  M01S00145.compsse +++|          RAI    T1
00159  M01S00146.compsse +++|          LJM    SSE5
00160  M01S00147.compsse +++|
00161  M01S00148.compsse +++|

Line S00149 Modification History
`M01` (Added by)	`compsse`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00149.ns22000 ---| SSEA     DATA   C/EQXX, SSER, TKNNNN, **, FILENAM./
00163  M01S00013.ns22000 +++| SSEA     DATA   C/EQXXX, SSER, TNNNN, **, FILENAM./
00164  M01S00150.compsse +++| SSEB     DATA   C*"NMFT"*
00165  M01S00151.compsse +++| SSED     DATA   C*"NMQT"*
00166  M01S00152.compsse +++| SSE      SPACE  4
00167  M01S00153.compsse +++|          BASE   *
00168  M01S00154.compsse +++| QUAL$    IF     -DEF,QUAL$
00169  M01S00155.compsse +++|          QUAL   *
00170  M01S00156.compsse +++| SSE      EQU    /COMPSSE/SSE
00171  M01S00157.compsse +++| QUAL$    ENDIF
00172  M01S00158.compsse +++|          ENDX