Common COMPCLC

2 Modifications

Source

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