Common COMPWVE

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compwve +++|          CTEXT  COMPWVE - WRITE AND VERIFY WITH EOI SECTORS.
00002  M00S00002.compwve +++| WVE      SPACE  4,10
00003  M00S00003.compwve +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compwve +++|          QUAL   COMPWVE
00005  M00S00005.compwve +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1977.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compwve +++| WVE      SPACE  4,10
00009  M00S00008.compwve +++|*****     COMPWVE - WRITE AND VERIFY WITH EOI SECTORS.
00010  M00S00009.compwve +++|*
00011  M00S00010.compwve +++|*         R. J. THIELEN.     77/09/21.
00012  M00S00011.compwve +++|*
00013  M00S00012.compwve +++|*         *COMPWVE* WRITES EOI SECTORS ON A MASS STORAGE TRACK AND
00014  M00S00013.compwve +++|*         THEN READS THE TRACK, VERIFYING THAT THE EOI SECTORS WERE
00015  M00S00014.compwve +++|*         WRITTEN CORRECTLY.  ERROR STATUS IS RETURNED TO THE CALLER
00016  M00S00015.compwve +++|*         IF A MASS STORAGE READ ERROR, WRITE ERROR OR DATA
00017  M00S00016.compwve +++|*         VERIFICATION ERROR OCCURS.
00018  M00S00017.compwve +++| WVE      SPACE  4,30
00019  M00S00018.compwve +++|***       WVE - WRITE AND VERIFY WITH EOI SECTORS.
00020  M00S00019.compwve +++|*
00021  M00S00020.compwve +++|*         GIVEN A CURRENT TRACK AND SECTOR, *WVE* WRITES EOI SECTORS
00022  M00S00021.compwve +++|*         TO THE END OF TRACK AND THEN READS BACK THE EOI SECTORS TO
00023  M00S00022.compwve +++|*         VERIFY THAT THEY WERE WRITTEN CORRECTLY.  STANDARD EOI SECTOR
00024  M00S00023.compwve +++|*         INFORMATION IS WRITTEN.  THE PPU PROGRAM NAME (FROM INPUT
00025  M00S00024.compwve +++|*         REGISTER) IS USED AS THE FILE NAME.  THE PORTION OF THE
00026  M00S00025.compwve +++|*         SECTOR NOT CONTAINING EOI INFORMATION IS CLEARED.  IN ORDER
00027  M00S00026.compwve +++|*         TO MAINTAIN FULL MASS STORAGE SPEED DURING VERIFICATION,
00028  M00S00027.compwve +++|*         ONLY THE ACTUAL EOI SECTOR INFORMATION IS VERIFIED.
00029  M00S00028.compwve +++|*
00030  M00S00029.compwve +++|*         ENTRY  (T2) = FIRST TRACK.

Line S00030 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00030.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00033  M00S00031.compwve +++|*                (T6) = CURRENT TRACK.
00034  M00S00032.compwve +++|*                (T7) = CURRENT SECTOR.
00035  M00S00033.compwve +++|*                (A) = BUFFER ADDRESS.
00036  M00S00034.compwve +++|*
00037  M00S00035.compwve +++|*         EXIT   (A) = 0 IF NO ERRORS.
00038  M00S00036.compwve +++|*                    = .LT. 0 IF MASS STORAGE ERROR.
00039  M00S00037.compwve +++|*                    = .GT. 0 IF VERIFY ERROR.
00040  M00S00038.compwve +++|*                (T3) = BUFFER ADDRESS.
00041  M00S00039.compwve +++|*                (T7) = BAD SECTOR NUMBER IF (A) .NE. 0.
00042  M00S00040.compwve +++|*                     = SECTOR LIMIT IF (A) = 0.
00043  M00S00041.compwve +++|*
00044  M00S00042.compwve +++|*         USES   CM - CM+4, TO - T3, T7.
00045  M00S00043.compwve +++|*
00046  M00S00044.compwve +++|*         CALLS  RDS, WDS.

Line S00001 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00001.242l642 +++|*
00048  M00S00045.compwve +++|*         MACROS ENDMS, SETMS.
00049  M00S00046.compwve +++|
00050  M00S00047.compwve +++|
00051  M00S00048.compwve +++| WVE      SUBR               ENTRY/EXIT
00052  M00S00049.compwve +++|
00053  M00S00050.compwve +++|*         INITIALIZE EOI DATA.
00054  M00S00051.compwve +++|
00055  M00S00052.compwve +++|          STD    T3          SAVE BUFFER ADDRESS
00056  M00S00053.compwve +++|          STM    WVEA
00057  M00S00054.compwve +++|          STM    WVEC
00058  M00S00055.compwve +++|          ADN    EOIDL
00059  M00S00056.compwve +++|          STM    WVEB
00060  M00S00057.compwve +++|          LDD    IA          SET FILE NAME TO PROGRAM NAME
00061  M00S00058.compwve +++|          CRD    CM
00062  M00S00059.compwve +++|          LDD    CM
00063  M00S00060.compwve +++|          STM    EOID+FNEI
00064  M00S00061.compwve +++|          LDD    CM+1
00065  M00S00062.compwve +++|          SCN    77
00066  M00S00063.compwve +++|          STM    EOID+FNEI+1
00067  M00S00064.compwve +++|          LDD    T2          SET FIRST TRACK
00068  M00S00065.compwve +++|          STM    EOID+FTEI
00069  M00S00066.compwve +++|          LDD    T6          SET EOI TRACK
00070  M00S00067.compwve +++|          STM    EOID+ETEI
00071  M00S00068.compwve +++|          LDD    T7          SET EOI SECTOR
00072  M00S00069.compwve +++|          STM    EOID+ESEI
00073  M00S00070.compwve +++|          LDN    PDTL        SET DATE AND TIME
00074  M00S00071.compwve +++|          CRM    EOID+DTEI,ON
00075  M00S00072.compwve +++|
00076  M00S00073.compwve +++|*         INITIALIZE SECTOR BUFFER.
00077  M00S00074.compwve +++|
00078  M00S00075.compwve +++| WVE1     LDN    EOIDL/5+1   MOVE EOI DATA
00079  M00S00076.compwve +++|          ERRPL  EOIDL/5+1-7 MESSAGE BUFFER OVERFLOW
00080  M00S00077.compwve +++|          STD    T1
00081  M00S00078.compwve +++|          LDD    MA
00082  M00S00079.compwve +++|          CWM    EOID,T1
00083  M00S00080.compwve +++|          LDD    MA
00084  M00S00081.compwve +++|          CRM    *,T1
00085  M00S00082.compwve +++| WVEA     EQU    *-1
00086  M00S00083.compwve +++|          LDC    502-EOIDL-1 CLEAR EOI
00087  M00S00084.compwve +++|          STD    T1
00088  M00S00085.compwve +++| WVE2     LDN    0
00089  M00S00086.compwve +++|          STM    **,T1
00090  M00S00087.compwve +++| WVEB     EQU    *-1
00091  M00S00088.compwve +++|          SOD    T1
00092  M00S00089.compwve +++|          PJN    WVE2        IF NOT END OF EOI SECTOR
00093  M00S00090.compwve +++|
00094  M00S00091.compwve +++|          LDD    T7          SET CURRENT SECTOR NUMBER
00095  M00S00092.compwve +++|          STM    ESEI,T3

Line S00093 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00093.242l642 ---|          SETMS  WRITE

Line S00002 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00002.242l642 +++|          SETMS  IO
00098  M00S00094.compwve +++| WVE3     LDD    T3          WRITE CONSECUTIVE SECTOR
00099  M00S00095.compwve +++|          LMC    WCSF
00100  M00S00096.compwve +++|          RJM    WDS
00101  M00S00097.compwve +++|          PJN    WVE4        IF NO MASS STORAGE ERROR

Line S00098 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00098.242l642 ---|          SHN    21-0
00103  M01S00099.242l642 ---|          PJN    WVE1        IF ERROR ON PREVIOUS SECTOR

Line S00003 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00003.242l642 +++|          SHN    21-11
00105  M01S00004.242l642 +++|          MJN    WVE1        IF RECOVERED ERROR ON PREVIOUS SECTOR

Line S00001 Modification History
`M01` (Added by)	`ns2366`

Seq #  *Modification Id* Act 
----------------------------+
00106  M01S00001.ns2366  +++|          SHN    12
00107  M00S00100.compwve +++|          LJM    WVEX        EXIT
00108  M00S00101.compwve +++|
00109  M00S00102.compwve +++| WVE4     AOM    ESEI,T3     ADVANCE SECTOR NUMBER
00110  M00S00103.compwve +++|          STD    T7
00111  M00S00104.compwve +++|          LMM    SLM
00112  M00S00105.compwve +++|          NJN    WVE3        IF MORE SECTORS TO WRITE
00113  M00S00106.compwve +++|
00114  M00S00107.compwve +++|*         READ AND VERIFY SECTORS.
00115  M00S00108.compwve +++|
00116  M00S00109.compwve +++|          LDM    EOID+ESEI   SET FIRST SECTOR NUMBER
00117  M00S00110.compwve +++|          STD    T7

Line S00111 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00118  M01S00111.242l642 ---|          SETMS  READ
00119  M00S00112.compwve +++| WVE5     LDD    T3          READ SECTOR
00120  M00S00113.compwve +++|          RJM    RDS
00121  M00S00114.compwve +++|          MJN    WVE8        IF MASS STORAGE ERROR
00122  M00S00115.compwve +++|          LDN    EOIDL-1     SET LENGTH-1 OF EOI SECTOR DATA
00123  M00S00116.compwve +++|          STD    T1
00124  M00S00117.compwve +++| WVE6     LDM    EOID,T1     COMPARE DATA
00125  M00S00118.compwve +++|          LMM    **,T1
00126  M00S00119.compwve +++| WVEC     EQU    *-1
00127  M00S00120.compwve +++|          NJN    WVE7        IF DATA MISMATCH - EXIT
00128  M00S00121.compwve +++|          SOD    T1
00129  M00S00122.compwve +++|          PJN    WVE6        IF NOT END OF DATA
00130  M00S00123.compwve +++|          AOD    T7          ADVANCE SECTOR NUMBER
00131  M00S00124.compwve +++|          STM    EOID+ESEI
00132  M00S00125.compwve +++|          LMM    SLM
00133  M00S00126.compwve +++|          NJN    WVE5        IF MORE SECTORS TO VERIFY
00134  M00S00127.compwve +++| WVE7     STD    T1          SAVE EXIT CONDITION
00135  M00S00128.compwve +++|          ENDMS
00136  M00S00129.compwve +++|          LDD    T1
00137  M00S00130.compwve +++| WVE8     LJM    WVEX        EXIT
00138  M00S00131.compwve +++|
00139  M00S00132.compwve +++| EOIDL    EQU    2+5*WCEI    LENGTH OF EOI SECTOR DATA
00140  M00S00133.compwve +++| EOID     BSSZ   EOIDL       EOI SECTOR DATA BUFFER
00141  M00S00134.compwve +++| WVE      SPACE  4,10
00142  M00S00135.compwve +++|          BASE   *
00143  M00S00136.compwve +++| QUAL$    IF     -DEF,QUAL$
00144  M00S00137.compwve +++|          QUAL   *
00145  M00S00138.compwve +++| WVE      EQU    /COMPWVE/WVE
00146  M00S00139.compwve +++| QUAL$    ENDIF
00147  M00S00140.compwve +++|          ENDX