cdc:nos2.source:opl.opl871:common:compclc
Common COMPCLC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compclc +++| CTEXT COMPCLC - CALCULATE DEVICE LABEL CHECKSUM. 00002 M00S00002.compclc +++| CLC SPACE 4 00003 M00S00003.compclc +++| IF -DEF,QUAL$,1 00004 M00S00004.compclc +++| QUAL COMPCLC
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1986.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M00S00006.compclc +++| CLC SPACE 4 00008 M00S00007.compclc +++|*** CLC - CALCULATE DEVICE LABEL CHECKSUM. 00009 M00S00008.compclc +++|* J. J. EIKUM. 86/10/13.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00009.ns2547 ---| RLS SPACE 4 00011 M01S00010.ns2547 ---|*** RLS - RECREATE LABEL SECTOR. 00012 M00S00011.compclc ---|* J. M. MAREK. 87/04/24. 00013 M00S00012.compclc ---|* 00014 M00S00013.compclc ---|* *RLS* IS ASSEMBLED ONLY WHEN *RLS$* IS DEFINED.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00014.compclc +++| CLC SPACE 4,15 00052 M00S00015.compclc +++|*** *CLC* CALCULATES THE CHECKSUM FOR A DEVICE LABEL 00053 M00S00016.compclc +++|* SECTOR. IT NORMALLY EXPECTS THE LABEL TO HAVE BEEN READ INTO 00054 M00S00017.compclc +++|* *BFMS*. BUT IF *BUF$* HAS BEEN DEFINED, *CLC* EXPECTS THE 00055 M00S00018.compclc +++|* FWA OF THE BUFFER IN A. IT USES A DIRECT CELL, *LB*, FOR 00056 M00S00019.compclc +++|* INDEXING INTO THE BUFFER. 00057 M00S00020.compclc +++|* 00058 M00S00021.compclc +++|* ENTRY (BFMS) = DEVICE LABEL SECTOR, IF *BUF$* NOT DEFINED. 00059 M00S00022.compclc +++|* (A) = FWA OF DEVICE LABEL SECTOR - *BFMS*, IF *BUF$* 00060 M00S00023.compclc +++|* IS DEFINED. 00061 M00S00024.compclc +++|* 00062 M00S00025.compclc +++|* EXIT (A) = CHECKSUM. 00063 M00S00026.compclc +++|* 00064 M00S00027.compclc +++|* USES LB, IF BUF$ IS DEFINED. 00065 M00S00028.compclc +++| 00066 M00S00029.compclc +++| 00067 M00S00030.compclc +++|* DEFINE INDEXING MICRO. 00068 M00S00031.compclc +++| 00069 M00S00032.compclc +++| IF DEF,BUF$,2 00070 M00S00033.compclc +++| LB MICRO 1,, LB 00071 M00S00034.compclc +++| ELSE 1 00072 M00S00035.compclc +++| LB MICRO 1,, 0 00073 M00S00036.compclc +++| 00074 M00S00037.compclc +++| 00075 M00S00038.compclc +++| CLC SUBR ENTRY/EXIT 00076 M00S00039.compclc +++| IF DEF,BUF$,1 00077 M00S00040.compclc +++| STD LB SET LABEL BUFFER OFFSET 00078 M00S00041.compclc +++| LDN 77 00079 M00S00042.compclc +++| ADM N4SS+SDGL*5+2,"LB" 00080 M00S00043.compclc +++| ADM N4SS+SDGL*5+3,"LB" 00081 M00S00044.compclc +++| ADM N4SS+SDGL*5+4,"LB" 00082 M00S00045.compclc +++| ADM N4SS+STLL*5+2,"LB"
| Line S00046 Modification History | |
|---|---|
M01 (Removed by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 00083 M01S00046.ns2547 ---| 00084 M01S00047.ns2547 ---| .DIT SET DISS 00085 M01S00048.ns2547 ---|*DIT DUP ,MISD 00086 M01S00049.ns2547 ---|* ADM .DIT+3,"LB" 00087 M01S00050.ns2547 ---|* ADM .DIT+4,"LB" 00088 M01S00051.ns2547 ---|*.DIT SET .DIT+5 00089 M01S00052.ns2547 ---|*DIT ENDD
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 00090 M01S00037.ns2547 +++| ADM DKSS 00091 M00S00053.compclc +++| STD T0 CONVERT TO 12 BIT VALUES 00092 M00S00054.compclc +++| SHN -14 00093 M00S00055.compclc +++| LMD T0 00094 M00S00056.compclc +++| UJP CLCX RETURN 00095 M00S00057.compclc +++| 00096 M00S00058.compclc +++| 00097 M00S00059.compclc +++| .RLS IF DEF,RLS$ 00098 M00S00060.compclc +++| RLS SPACE 4,25 00099 M00S00061.compclc +++|** RLS - RECREATE LABEL SECTOR. 00100 M00S00062.compclc +++|* 00101 M00S00063.compclc +++|* ENTRY (T5) = EST ORDINAL. 00102 M00S00064.compclc +++|* (T6) = LABEL TRACK. 00103 M00S00065.compclc +++|* (DT) = DEVICE TYPE. 00104 M00S00066.compclc +++|* (MS) = MST FWA. 00105 M00S00067.compclc +++|* (ES - ES+4) = EST *EQDE* WORD, IF *ISD$* NOT DEFINED. 00106 M00S00068.compclc +++|* BUF$ IS DEFINED IF *CLC* IS TO BE PASSED FWA-*BFMS* OF 00107 M00S00069.compclc +++|* LABEL BUFFER. 00108 M00S00070.compclc +++|* ISD$ IS DEFINED WHEN THE FOLLOWING CAN ALL BE ASSUMED - 00109 M00S00071.compclc +++|* (DL) = *MSTL* = *MISD*. 00110 M00S00072.compclc +++|* (DO) = *DIT* OFFSET. 00111 M00S00073.compclc +++|* (TA - TA+1) = TRT FWA. 00112 M00S00074.compclc +++|* THE DEVICE IS AN ISHARED DEVICE. 00113 M00S00075.compclc +++|* 00114 M00S00076.compclc +++|* EXIT *BFMS* CONTAINS THE LABEL. 00115 M00S00077.compclc +++|* (CA - CA+1) = TRT FWA, IF *ISD$* NOT DEFINED. 00116 M00S00078.compclc +++|* 00117 M00S00079.compclc +++|* USES T1, CM - CM+5. 00118 M00S00080.compclc +++|* 00119 M00S00081.compclc +++|* CALLS CLC. 00120 M00S00082.compclc +++|* 00121 M00S00083.compclc +++|* MACROS MONITOR. 00122 M00S00084.compclc +++| 00123 M00S00085.compclc +++| 00124 M00S00086.compclc +++| RLS SUBR ENTRY/EXIT 00125 M00S00087.compclc +++| LDC 3777 SET SYSTEM SECTOR CONTROL BYTES 00126 M00S00088.compclc +++| STM BFMS 00127 M00S00089.compclc +++| LDN 77 00128 M00S00090.compclc +++| STM BFMS+1 00129 M00S00091.compclc +++| LDD MA ENTER LABEL NAME 00130 M00S00092.compclc +++| CWM RLSA,ON 00131 M00S00093.compclc +++| SBN 1 00132 M00S00094.compclc +++| CRM FNSS,ON 00133 M00S00095.compclc +++| LDD T5 STORE EQUIPMENT 00134 M00S00096.compclc +++| STM EQSS 00135 M00S00097.compclc +++| LDD T6 STORE FIRST TRACK 00136 M00S00098.compclc +++| STM FTSS 00137 M00S00099.compclc +++| LDN FSMS 00138 M00S00100.compclc +++| STM NSSS SET NEXT SECTOR 00139 M00S00101.compclc +++| LDK CKSS-NSSS-2 00140 M00S00102.compclc +++| STD T1 00141 M00S00103.compclc +++| RLS1 LDN 0 CLEAR SYSTEM SECTOR 00142 M00S00104.compclc +++| STM NSSS+1,T1 00143 M00S00105.compclc +++| STM NSSS+2,T1 00144 M00S00106.compclc +++| LCN 2 00145 M00S00107.compclc +++| RAD T1 00146 M00S00108.compclc +++| PJN RLS1 IF MORE TO CLEAR 00147 M00S00109.compclc +++| LDN PDTL STORE PACKED DATE 00148 M00S00110.compclc +++| CRM DTSS,ON 00149 M00S00111.compclc +++| AOM DTSS SET ENHANCED EOI FLAG 00150 M00S00112.compclc +++| LDN 2 SET LABEL LEVEL 00151 M00S00113.compclc +++| STM LLSS 00152 M00S00114.compclc +++| LDD DT SET DEVICE TYPE 00153 M00S00115.compclc +++| STM E4SS 00154 M00S00116.compclc +++| 00155 M00S00117.compclc +++|* READ MST INTO LABEL. 00156 M00S00118.compclc +++| 00157 M00S00119.compclc +++| .ISD IF -DEF,ISD$ 00158 M00S00120.compclc +++| LDN MSTL SET LENGTH 00159 M00S00121.compclc +++| STD T1 00160 M00S00122.compclc +++| LDD MS 00161 M00S00123.compclc +++| SHN 3 00162 M00S00124.compclc +++| CRM N4SS,T1 00163 M00S00125.compclc +++| ADK TRLL-MSTL GET FWA OF TRT 00164 M00S00126.compclc +++| CRD CM 00165 M00S00127.compclc +++| LDD CM+3 00166 M00S00128.compclc +++| LPN 77 00167 M00S00129.compclc +++| STD CA 00168 M00S00130.compclc +++| LDD CM+4 00169 M00S00131.compclc +++| STD CA+1 SET ADDRESS OF TRT 00170 M00S00132.compclc +++| 00171 M00S00133.compclc +++|* GET SHARED DEVICE DATA. 00172 M00S00134.compclc +++| 00173 M00S00135.compclc +++| LDD ES 00174 M00S00136.compclc +++| SHN 21-11 00175 M00S00137.compclc +++| PJN RLS3 IF NOT SHARED DEVICE 00176 M00S00138.compclc +++| SHN 21-4-21+11 00177 M00S00139.compclc +++| MJN RLS2 IF ISHARED 00178 M00S00140.compclc +++| LDD T5 UPDATE THE TRT 00179 M00S00141.compclc +++| STD CM+1 00180 M00S00142.compclc +++| LDN UTRS 00181 M00S00143.compclc +++| STD CM+3 00182 M00S00144.compclc +++| MONITOR STBM 00183 M00S00145.compclc +++| UJN RLS3 SET CHECKSUM 00184 M00S00146.compclc +++| 00185 M00S00147.compclc +++| RLS2 LDN MISD LENGTH OF DIT 00186 M00S00148.compclc +++| STD T1 00187 M00S00149.compclc +++| LDM N4SS+5*TDGL+2 GET LENGTH OF TRT 00188 M00S00150.compclc +++| ADN 7 00189 M00S00151.compclc +++| SHN -3 DETERMINE LENGTH OF MRT 00190 M00S00152.compclc +++| ADM N4SS+5*TDGL+2 ADD LENGTH OF TRT 00191 M00S00153.compclc +++| SHN 6 00192 M00S00154.compclc +++| ADD CA ADD FWA OF TRT 00193 M00S00155.compclc +++| SHN 14 00194 M00S00156.compclc +++| ADD CA+1 00195 M00S00157.compclc +++| CRM DISS,T1 READ DIT 00196 M00S00158.compclc +++| .ISD ELSE 00197 M00S00159.compclc +++|* READ MST AND DIT. 00198 M00S00160.compclc +++| 00199 M00S00161.compclc +++| LDD MS MST ADDRESS 00200 M00S00162.compclc +++| SHN 3 00201 M00S00163.compclc +++| CRM N4SS,DL READ MST 00202 M00S00164.compclc +++| ERRNZ MSTL-MISD CODE ASSUMES MSTL = MISD 00203 M00S00165.compclc +++| LDD TA GET TRT ADDRESS 00204 M00S00166.compclc +++| SHN 14 00205 M00S00167.compclc +++| LMD TA+1 00206 M00S00168.compclc +++| ADD DO DIT OFFSET 00207 M00S00169.compclc +++| CRM DISS,DL READ DIT 00208 M00S00170.compclc +++| LDD MI MOVE LOCAL PF STATUS TO DIT 00209 M00S00171.compclc +++| SHN 2 00210 M00S00172.compclc +++| ADD MI 00211 M00S00173.compclc +++| STD T1 00212 M00S00174.compclc +++| LDM N4SS+DULL*5+1 00213 M00S00175.compclc +++| STM DISS-5,T1 00214 M00S00176.compclc +++| .ISD ENDIF 00215 M00S00177.compclc +++| 00216 M00S00178.compclc +++|* SET CHECKSUM. 00217 M00S00179.compclc +++|
| Line S00180 Modification History | |
|---|---|
M01 (Removed by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00180.ns2547 ---| RLS3 BSS 0 00219 M01S00181.ns2547 ---| IF DEF,BUF$,1 00220 M01S00182.ns2547 ---| LDN BFMS-BFMS 00221 M01S00183.ns2547 ---| RJM CLC CALCULATE LABEL CHECKSUM
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00038.ns2547 +++| RLS3 RJM CDC CALCULATE LABEL CHECKSUM 00223 M00S00184.compclc +++| STM CKSS 00224 M00S00185.compclc +++| LJM RLSX RETURN 00225 M00S00186.compclc +++| 00226 M00S00187.compclc +++| 00227 M00S00188.compclc +++| RLSA VFD 42/0LLABEL,6/1,6/SYFT,6/0 LABEL SECTOR FNT ENTRY 00228 M00S00189.compclc +++| .RLS ENDIF 00229 M00S00190.compclc +++| SPACE 4 00230 M00S00191.compclc +++| QUAL$ IF -DEF,QUAL$ 00231 M00S00192.compclc +++| QUAL * 00232 M01S00039.ns2547 +++| CDC EQU /COMPCLC/CDC 00233 M00S00193.compclc +++| CLC EQU /COMPCLC/CLC 00234 M00S00194.compclc +++| QUAL$ IF DEF,RLS$ 00235 M00S00195.compclc +++| RLS EQU /COMPCLC/RLS 00236 M00S00196.compclc +++| QUAL$ ENDIF 00237 M00S00197.compclc +++| ENDX
cdc/nos2.source/opl.opl871/common/compclc.txt · Last modified: (external edit)