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