Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.compclc +++| CTEXT COMPCLC - CALCULATE DEVICE LABEL CHECKSUM.
00002 M01S00002.compclc +++| CLC SPACE 4
00003 M01S00003.compclc +++| IF -DEF,QUAL$,1
00004 M01S00004.compclc +++| QUAL COMPCLC
| Line S00005 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1986.
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M01S00006.compclc +++| CLC SPACE 4
00008 M01S00007.compclc +++|*** CLC - CALCULATE DEVICE LABEL CHECKSUM.
00009 M01S00008.compclc +++|* J. J. EIKUM. 86/10/13.
| Line S00009 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00010 M02S00009.ns2547 ---| RLS SPACE 4
| Line S00010 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00011 M02S00010.ns2547 ---|*** RLS - RECREATE LABEL SECTOR.
00012 M01S00011.compclc +++|* J. M. MAREK. 87/04/24.
00013 M01S00012.compclc +++|*
00014 M01S00013.compclc +++|* *RLS* IS ASSEMBLED ONLY WHEN *RLS$* IS DEFINED.
00015 M01S00001.ns2547 +++| CDC SPACE 4,15
00016 M01S00002.ns2547 +++|*** *CDC* CALCULATES THE CHECKSUM FOR THE *DIT* IN THE
00017 M01S00003.ns2547 +++|* LABEL SECTOR. IT EXPECTS THE LABEL TO HAVE BEEN READ INTO
00018 M01S00004.ns2547 +++|* *BFMS*.
00019 M01S00005.ns2547 +++|*
00020 M01S00006.ns2547 +++|* ENTRY (BFMS) = DEVICE LABEL SECTOR, IF *BUF$* NOT DEFINED.
00021 M01S00007.ns2547 +++|*
00022 M01S00008.ns2547 +++|* EXIT (A) = LABEL CHECKSUM.
00023 M01S00009.ns2547 +++|* (DKSS) = *DIT* CHECKSUM.
00024 M01S00010.ns2547 +++|*
00025 M01S00011.ns2547 +++|* USES T1.
00026 M01S00012.ns2547 +++|*
00027 M01S00013.ns2547 +++|* CALLS CLC.
00028 M01S00014.ns2547 +++|
00029 M01S00015.ns2547 +++|
00030 M01S00016.ns2547 +++| CDC1 LDM -1,T1 ADD BYTES 3 AND 4 OF *DIT* ENTRY
00031 M01S00017.ns2547 +++| ADI T1
00032 M01S00018.ns2547 +++| RAI T0
00033 M01S00019.ns2547 +++| SHN -14
00034 M01S00020.ns2547 +++| LMI T0
00035 M01S00021.ns2547 +++| CDC2 STI T0
00036 M01S00022.ns2547 +++| LCN 5
00037 M01S00023.ns2547 +++| RAD T1
00038 M01S00024.ns2547 +++| ADC -DISS-4
00039 M01S00025.ns2547 +++| PJN CDC1 IF MORE ENTRIES
00040 M01S00026.ns2547 +++| IF DEF,BUF$,1
00041 M01S00027.ns2547 +++| LDN BFMS-BFMS
00042 M01S00028.ns2547 +++| RJM CLC CALCULATE LABEL CHECKSUM
00043 M01S00029.ns2547 +++|
00044 M01S00030.ns2547 +++| CDC SUBR ENTRY/EXIT
00045 M01S00031.ns2547 +++| LDC DKSS
00046 M01S00032.ns2547 +++| ERRNZ DISS+MISD*5+4-DKSS CODE ASSUMES VALUES
00047 M01S00033.ns2547 +++| STD T0
00048 M01S00034.ns2547 +++| STD T1
00049 M01S00035.ns2547 +++| LDN 0
00050 M01S00036.ns2547 +++| UJN CDC2 CONTINUE
00051 M01S00014.compclc +++| CLC SPACE 4,15
00052 M01S00015.compclc +++|*** *CLC* CALCULATES THE CHECKSUM FOR A DEVICE LABEL
00053 M01S00016.compclc +++|* SECTOR. IT NORMALLY EXPECTS THE LABEL TO HAVE BEEN READ INTO
00054 M01S00017.compclc +++|* *BFMS*. BUT IF *BUF$* HAS BEEN DEFINED, *CLC* EXPECTS THE
00055 M01S00018.compclc +++|* FWA OF THE BUFFER IN A. IT USES A DIRECT CELL, *LB*, FOR
00056 M01S00019.compclc +++|* INDEXING INTO THE BUFFER.
00057 M01S00020.compclc +++|*
00058 M01S00021.compclc +++|* ENTRY (BFMS) = DEVICE LABEL SECTOR, IF *BUF$* NOT DEFINED.
00059 M01S00022.compclc +++|* (A) = FWA OF DEVICE LABEL SECTOR - *BFMS*, IF *BUF$*
00060 M01S00023.compclc +++|* IS DEFINED.
00061 M01S00024.compclc +++|*
00062 M01S00025.compclc +++|* EXIT (A) = CHECKSUM.
00063 M01S00026.compclc +++|*
00064 M01S00027.compclc +++|* USES LB, IF BUF$ IS DEFINED.
00065 M01S00028.compclc +++|
00066 M01S00029.compclc +++|
00067 M01S00030.compclc +++|* DEFINE INDEXING MICRO.
00068 M01S00031.compclc +++|
00069 M01S00032.compclc +++| IF DEF,BUF$,2
00070 M01S00033.compclc +++| LB MICRO 1,, LB
00071 M01S00034.compclc +++| ELSE 1
00072 M01S00035.compclc +++| LB MICRO 1,, 0
00073 M01S00036.compclc +++|
00074 M01S00037.compclc +++|
00075 M01S00038.compclc +++| CLC SUBR ENTRY/EXIT
00076 M01S00039.compclc +++| IF DEF,BUF$,1
00077 M01S00040.compclc +++| STD LB SET LABEL BUFFER OFFSET
00078 M01S00041.compclc +++| LDN 77
00079 M01S00042.compclc +++| ADM N4SS+SDGL*5+2,"LB"
00080 M01S00043.compclc +++| ADM N4SS+SDGL*5+3,"LB"
00081 M01S00044.compclc +++| ADM N4SS+SDGL*5+4,"LB"
00082 M01S00045.compclc +++| ADM N4SS+STLL*5+2,"LB"
| Line S00046 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00083 M02S00046.ns2547 ---|
| Line S00047 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00084 M02S00047.ns2547 ---| .DIT SET DISS
| Line S00048 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00085 M02S00048.ns2547 ---|*DIT DUP ,MISD
| Line S00049 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00086 M02S00049.ns2547 ---|* ADM .DIT+3,"LB"
| Line S00050 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00087 M02S00050.ns2547 ---|* ADM .DIT+4,"LB"
| Line S00051 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00088 M02S00051.ns2547 ---|*.DIT SET .DIT+5
| Line S00052 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00089 M02S00052.ns2547 ---|*DIT ENDD
00090 M01S00037.ns2547 +++| ADM DKSS
00091 M01S00053.compclc +++| STD T0 CONVERT TO 12 BIT VALUES
00092 M01S00054.compclc +++| SHN -14
00093 M01S00055.compclc +++| LMD T0
00094 M01S00056.compclc +++| UJP CLCX RETURN
00095 M01S00057.compclc +++|
00096 M01S00058.compclc +++|
00097 M01S00059.compclc +++| .RLS IF DEF,RLS$
00098 M01S00060.compclc +++| RLS SPACE 4,25
00099 M01S00061.compclc +++|** RLS - RECREATE LABEL SECTOR.
00100 M01S00062.compclc +++|*
00101 M01S00063.compclc +++|* ENTRY (T5) = EST ORDINAL.
00102 M01S00064.compclc +++|* (T6) = LABEL TRACK.
00103 M01S00065.compclc +++|* (DT) = DEVICE TYPE.
00104 M01S00066.compclc +++|* (MS) = MST FWA.
00105 M01S00067.compclc +++|* (ES - ES+4) = EST *EQDE* WORD, IF *ISD$* NOT DEFINED.
00106 M01S00068.compclc +++|* BUF$ IS DEFINED IF *CLC* IS TO BE PASSED FWA-*BFMS* OF
00107 M01S00069.compclc +++|* LABEL BUFFER.
00108 M01S00070.compclc +++|* ISD$ IS DEFINED WHEN THE FOLLOWING CAN ALL BE ASSUMED -
00109 M01S00071.compclc +++|* (DL) = *MSTL* = *MISD*.
00110 M01S00072.compclc +++|* (DO) = *DIT* OFFSET.
00111 M01S00073.compclc +++|* (TA - TA+1) = TRT FWA.
00112 M01S00074.compclc +++|* THE DEVICE IS AN ISHARED DEVICE.
00113 M01S00075.compclc +++|*
00114 M01S00076.compclc +++|* EXIT *BFMS* CONTAINS THE LABEL.
00115 M01S00077.compclc +++|* (CA - CA+1) = TRT FWA, IF *ISD$* NOT DEFINED.
00116 M01S00078.compclc +++|*
00117 M01S00079.compclc +++|* USES T1, CM - CM+5.
00118 M01S00080.compclc +++|*
00119 M01S00081.compclc +++|* CALLS CLC.
00120 M01S00082.compclc +++|*
00121 M01S00083.compclc +++|* MACROS MONITOR.
00122 M01S00084.compclc +++|
00123 M01S00085.compclc +++|
00124 M01S00086.compclc +++| RLS SUBR ENTRY/EXIT
00125 M01S00087.compclc +++| LDC 3777 SET SYSTEM SECTOR CONTROL BYTES
00126 M01S00088.compclc +++| STM BFMS
00127 M01S00089.compclc +++| LDN 77
00128 M01S00090.compclc +++| STM BFMS+1
00129 M01S00091.compclc +++| LDD MA ENTER LABEL NAME
00130 M01S00092.compclc +++| CWM RLSA,ON
00131 M01S00093.compclc +++| SBN 1
00132 M01S00094.compclc +++| CRM FNSS,ON
00133 M01S00095.compclc +++| LDD T5 STORE EQUIPMENT
00134 M01S00096.compclc +++| STM EQSS
00135 M01S00097.compclc +++| LDD T6 STORE FIRST TRACK
00136 M01S00098.compclc +++| STM FTSS
00137 M01S00099.compclc +++| LDN FSMS
00138 M01S00100.compclc +++| STM NSSS SET NEXT SECTOR
00139 M01S00101.compclc +++| LDK CKSS-NSSS-2
00140 M01S00102.compclc +++| STD T1
00141 M01S00103.compclc +++| RLS1 LDN 0 CLEAR SYSTEM SECTOR
00142 M01S00104.compclc +++| STM NSSS+1,T1
00143 M01S00105.compclc +++| STM NSSS+2,T1
00144 M01S00106.compclc +++| LCN 2
00145 M01S00107.compclc +++| RAD T1
00146 M01S00108.compclc +++| PJN RLS1 IF MORE TO CLEAR
00147 M01S00109.compclc +++| LDN PDTL STORE PACKED DATE
00148 M01S00110.compclc +++| CRM DTSS,ON
00149 M01S00111.compclc +++| AOM DTSS SET ENHANCED EOI FLAG
00150 M01S00112.compclc +++| LDN 2 SET LABEL LEVEL
00151 M01S00113.compclc +++| STM LLSS
00152 M01S00114.compclc +++| LDD DT SET DEVICE TYPE
00153 M01S00115.compclc +++| STM E4SS
00154 M01S00116.compclc +++|
00155 M01S00117.compclc +++|* READ MST INTO LABEL.
00156 M01S00118.compclc +++|
00157 M01S00119.compclc +++| .ISD IF -DEF,ISD$
00158 M01S00120.compclc +++| LDN MSTL SET LENGTH
00159 M01S00121.compclc +++| STD T1
00160 M01S00122.compclc +++| LDD MS
00161 M01S00123.compclc +++| SHN 3
00162 M01S00124.compclc +++| CRM N4SS,T1
00163 M01S00125.compclc +++| ADK TRLL-MSTL GET FWA OF TRT
00164 M01S00126.compclc +++| CRD CM
00165 M01S00127.compclc +++| LDD CM+3
00166 M01S00128.compclc +++| LPN 77
00167 M01S00129.compclc +++| STD CA
00168 M01S00130.compclc +++| LDD CM+4
00169 M01S00131.compclc +++| STD CA+1 SET ADDRESS OF TRT
00170 M01S00132.compclc +++|
00171 M01S00133.compclc +++|* GET SHARED DEVICE DATA.
00172 M01S00134.compclc +++|
00173 M01S00135.compclc +++| LDD ES
00174 M01S00136.compclc +++| SHN 21-11
00175 M01S00137.compclc +++| PJN RLS3 IF NOT SHARED DEVICE
00176 M01S00138.compclc +++| SHN 21-4-21+11
00177 M01S00139.compclc +++| MJN RLS2 IF ISHARED
00178 M01S00140.compclc +++| LDD T5 UPDATE THE TRT
00179 M01S00141.compclc +++| STD CM+1
00180 M01S00142.compclc +++| LDN UTRS
00181 M01S00143.compclc +++| STD CM+3
00182 M01S00144.compclc +++| MONITOR STBM
00183 M01S00145.compclc +++| UJN RLS3 SET CHECKSUM
00184 M01S00146.compclc +++|
00185 M01S00147.compclc +++| RLS2 LDN MISD LENGTH OF DIT
00186 M01S00148.compclc +++| STD T1
00187 M01S00149.compclc +++| LDM N4SS+5*TDGL+2 GET LENGTH OF TRT
00188 M01S00150.compclc +++| ADN 7
00189 M01S00151.compclc +++| SHN -3 DETERMINE LENGTH OF MRT
00190 M01S00152.compclc +++| ADM N4SS+5*TDGL+2 ADD LENGTH OF TRT
00191 M01S00153.compclc +++| SHN 6
00192 M01S00154.compclc +++| ADD CA ADD FWA OF TRT
00193 M01S00155.compclc +++| SHN 14
00194 M01S00156.compclc +++| ADD CA+1
00195 M01S00157.compclc +++| CRM DISS,T1 READ DIT
00196 M01S00158.compclc +++| .ISD ELSE
00197 M01S00159.compclc +++|* READ MST AND DIT.
00198 M01S00160.compclc +++|
00199 M01S00161.compclc +++| LDD MS MST ADDRESS
00200 M01S00162.compclc +++| SHN 3
00201 M01S00163.compclc +++| CRM N4SS,DL READ MST
00202 M01S00164.compclc +++| ERRNZ MSTL-MISD CODE ASSUMES MSTL = MISD
00203 M01S00165.compclc +++| LDD TA GET TRT ADDRESS
00204 M01S00166.compclc +++| SHN 14
00205 M01S00167.compclc +++| LMD TA+1
00206 M01S00168.compclc +++| ADD DO DIT OFFSET
00207 M01S00169.compclc +++| CRM DISS,DL READ DIT
00208 M01S00170.compclc +++| LDD MI MOVE LOCAL PF STATUS TO DIT
00209 M01S00171.compclc +++| SHN 2
00210 M01S00172.compclc +++| ADD MI
00211 M01S00173.compclc +++| STD T1
00212 M01S00174.compclc +++| LDM N4SS+DULL*5+1
00213 M01S00175.compclc +++| STM DISS-5,T1
00214 M01S00176.compclc +++| .ISD ENDIF
00215 M01S00177.compclc +++|
00216 M01S00178.compclc +++|* SET CHECKSUM.
00217 M01S00179.compclc +++|
| Line S00180 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00218 M02S00180.ns2547 ---| RLS3 BSS 0
| Line S00181 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00219 M02S00181.ns2547 ---| IF DEF,BUF$,1
| Line S00182 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00220 M02S00182.ns2547 ---| LDN BFMS-BFMS
| Line S00183 Modification History |
M01 (Added by) | compclc |
M02 (Updated by) | ns2547 |
Seq # *Modification Id* Act
----------------------------+
00221 M02S00183.ns2547 ---| RJM CLC CALCULATE LABEL CHECKSUM
00222 M01S00038.ns2547 +++| RLS3 RJM CDC CALCULATE LABEL CHECKSUM
00223 M01S00184.compclc +++| STM CKSS
00224 M01S00185.compclc +++| LJM RLSX RETURN
00225 M01S00186.compclc +++|
00226 M01S00187.compclc +++|
00227 M01S00188.compclc +++| RLSA VFD 42/0LLABEL,6/1,6/SYFT,6/0 LABEL SECTOR FNT ENTRY
00228 M01S00189.compclc +++| .RLS ENDIF
00229 M01S00190.compclc +++| SPACE 4
00230 M01S00191.compclc +++| QUAL$ IF -DEF,QUAL$
00231 M01S00192.compclc +++| QUAL *
00232 M01S00039.ns2547 +++| CDC EQU /COMPCLC/CDC
00233 M01S00193.compclc +++| CLC EQU /COMPCLC/CLC
00234 M01S00194.compclc +++| QUAL$ IF DEF,RLS$
00235 M01S00195.compclc +++| RLS EQU /COMPCLC/RLS
00236 M01S00196.compclc +++| QUAL$ ENDIF
00237 M01S00197.compclc +++| ENDX