Common COMPWVE

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compwve +++|          CTEXT  COMPWVE - WRITE AND VERIFY WITH EOI SECTORS.
00002  M01S00002.compwve +++| WVE      SPACE  4,10
00003  M01S00003.compwve +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compwve +++|          QUAL   COMPWVE
00005  M01S00005.compwve +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Added by)	`compwve`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1977.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compwve +++| WVE      SPACE  4,10
00009  M01S00008.compwve +++|*****     COMPWVE - WRITE AND VERIFY WITH EOI SECTORS.
00010  M01S00009.compwve +++|*
00011  M01S00010.compwve +++|*         R. J. THIELEN.     77/09/21.
00012  M01S00011.compwve +++|*
00013  M01S00012.compwve +++|*         *COMPWVE* WRITES EOI SECTORS ON A MASS STORAGE TRACK AND
00014  M01S00013.compwve +++|*         THEN READS THE TRACK, VERIFYING THAT THE EOI SECTORS WERE
00015  M01S00014.compwve +++|*         WRITTEN CORRECTLY.  ERROR STATUS IS RETURNED TO THE CALLER
00016  M01S00015.compwve +++|*         IF A MASS STORAGE READ ERROR, WRITE ERROR OR DATA
00017  M01S00016.compwve +++|*         VERIFICATION ERROR OCCURS.
00018  M01S00017.compwve +++| WVE      SPACE  4,30
00019  M01S00018.compwve +++|***       WVE - WRITE AND VERIFY WITH EOI SECTORS.
00020  M01S00019.compwve +++|*
00021  M01S00020.compwve +++|*         GIVEN A CURRENT TRACK AND SECTOR, *WVE* WRITES EOI SECTORS
00022  M01S00021.compwve +++|*         TO THE END OF TRACK AND THEN READS BACK THE EOI SECTORS TO
00023  M01S00022.compwve +++|*         VERIFY THAT THEY WERE WRITTEN CORRECTLY.  STANDARD EOI SECTOR
00024  M01S00023.compwve +++|*         INFORMATION IS WRITTEN.  THE PPU PROGRAM NAME (FROM INPUT
00025  M01S00024.compwve +++|*         REGISTER) IS USED AS THE FILE NAME.  THE PORTION OF THE
00026  M01S00025.compwve +++|*         SECTOR NOT CONTAINING EOI INFORMATION IS CLEARED.  IN ORDER
00027  M01S00026.compwve +++|*         TO MAINTAIN FULL MASS STORAGE SPEED DURING VERIFICATION,
00028  M01S00027.compwve +++|*         ONLY THE ACTUAL EOI SECTOR INFORMATION IS VERIFIED.
00029  M01S00028.compwve +++|*
00030  M01S00029.compwve +++|*         ENTRY  (T2) = FIRST TRACK.

Line S00030 Modification History
`M01` (Added by)	`compwve`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00030.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00032  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00033  M01S00031.compwve +++|*                (T6) = CURRENT TRACK.
00034  M01S00032.compwve +++|*                (T7) = CURRENT SECTOR.
00035  M01S00033.compwve +++|*                (A) = BUFFER ADDRESS.
00036  M01S00034.compwve +++|*
00037  M01S00035.compwve +++|*         EXIT   (A) = 0 IF NO ERRORS.
00038  M01S00036.compwve +++|*                    = .LT. 0 IF MASS STORAGE ERROR.
00039  M01S00037.compwve +++|*                    = .GT. 0 IF VERIFY ERROR.
00040  M01S00038.compwve +++|*                (T3) = BUFFER ADDRESS.
00041  M01S00039.compwve +++|*                (T7) = BAD SECTOR NUMBER IF (A) .NE. 0.
00042  M01S00040.compwve +++|*                     = SECTOR LIMIT IF (A) = 0.
00043  M01S00041.compwve +++|*
00044  M01S00042.compwve +++|*         USES   CM - CM+4, TO - T3, T7.
00045  M01S00043.compwve +++|*
00046  M01S00044.compwve +++|*         CALLS  RDS, WDS.
00047  M01S00001.242l642 +++|*
00048  M01S00045.compwve +++|*         MACROS ENDMS, SETMS.
00049  M01S00046.compwve +++|
00050  M01S00047.compwve +++|
00051  M01S00048.compwve +++| WVE      SUBR               ENTRY/EXIT
00052  M01S00049.compwve +++|
00053  M01S00050.compwve +++|*         INITIALIZE EOI DATA.
00054  M01S00051.compwve +++|
00055  M01S00052.compwve +++|          STD    T3          SAVE BUFFER ADDRESS
00056  M01S00053.compwve +++|          STM    WVEA
00057  M01S00054.compwve +++|          STM    WVEC
00058  M01S00055.compwve +++|          ADN    EOIDL
00059  M01S00056.compwve +++|          STM    WVEB
00060  M01S00057.compwve +++|          LDD    IA          SET FILE NAME TO PROGRAM NAME
00061  M01S00058.compwve +++|          CRD    CM
00062  M01S00059.compwve +++|          LDD    CM
00063  M01S00060.compwve +++|          STM    EOID+FNEI
00064  M01S00061.compwve +++|          LDD    CM+1
00065  M01S00062.compwve +++|          SCN    77
00066  M01S00063.compwve +++|          STM    EOID+FNEI+1
00067  M01S00064.compwve +++|          LDD    T2          SET FIRST TRACK
00068  M01S00065.compwve +++|          STM    EOID+FTEI
00069  M01S00066.compwve +++|          LDD    T6          SET EOI TRACK
00070  M01S00067.compwve +++|          STM    EOID+ETEI
00071  M01S00068.compwve +++|          LDD    T7          SET EOI SECTOR
00072  M01S00069.compwve +++|          STM    EOID+ESEI
00073  M01S00070.compwve +++|          LDN    PDTL        SET DATE AND TIME
00074  M01S00071.compwve +++|          CRM    EOID+DTEI,ON
00075  M01S00072.compwve +++|
00076  M01S00073.compwve +++|*         INITIALIZE SECTOR BUFFER.
00077  M01S00074.compwve +++|
00078  M01S00075.compwve +++| WVE1     LDN    EOIDL/5+1   MOVE EOI DATA
00079  M01S00076.compwve +++|          ERRPL  EOIDL/5+1-7 MESSAGE BUFFER OVERFLOW
00080  M01S00077.compwve +++|          STD    T1
00081  M01S00078.compwve +++|          LDD    MA
00082  M01S00079.compwve +++|          CWM    EOID,T1
00083  M01S00080.compwve +++|          LDD    MA
00084  M01S00081.compwve +++|          CRM    *,T1
00085  M01S00082.compwve +++| WVEA     EQU    *-1
00086  M01S00083.compwve +++|          LDC    502-EOIDL-1 CLEAR EOI
00087  M01S00084.compwve +++|          STD    T1
00088  M01S00085.compwve +++| WVE2     LDN    0
00089  M01S00086.compwve +++|          STM    **,T1
00090  M01S00087.compwve +++| WVEB     EQU    *-1
00091  M01S00088.compwve +++|          SOD    T1
00092  M01S00089.compwve +++|          PJN    WVE2        IF NOT END OF EOI SECTOR
00093  M01S00090.compwve +++|
00094  M01S00091.compwve +++|          LDD    T7          SET CURRENT SECTOR NUMBER
00095  M01S00092.compwve +++|          STM    ESEI,T3

Line S00093 Modification History
`M01` (Added by)	`compwve`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00093.242l642 ---|          SETMS  WRITE
00097  M01S00002.242l642 +++|          SETMS  IO
00098  M01S00094.compwve +++| WVE3     LDD    T3          WRITE CONSECUTIVE SECTOR
00099  M01S00095.compwve +++|          LMC    WCSF
00100  M01S00096.compwve +++|          RJM    WDS
00101  M01S00097.compwve +++|          PJN    WVE4        IF NO MASS STORAGE ERROR

Line S00098 Modification History
`M01` (Added by)	`compwve`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00098.242l642 ---|          SHN    21-0

Line S00099 Modification History
`M01` (Added by)	`compwve`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00099.242l642 ---|          PJN    WVE1        IF ERROR ON PREVIOUS SECTOR
00104  M01S00003.242l642 +++|          SHN    21-11
00105  M01S00004.242l642 +++|          MJN    WVE1        IF RECOVERED ERROR ON PREVIOUS SECTOR
00106  M01S00001.ns2366  +++|          SHN    12
00107  M01S00100.compwve +++|          LJM    WVEX        EXIT
00108  M01S00101.compwve +++|
00109  M01S00102.compwve +++| WVE4     AOM    ESEI,T3     ADVANCE SECTOR NUMBER
00110  M01S00103.compwve +++|          STD    T7
00111  M01S00104.compwve +++|          LMM    SLM
00112  M01S00105.compwve +++|          NJN    WVE3        IF MORE SECTORS TO WRITE
00113  M01S00106.compwve +++|
00114  M01S00107.compwve +++|*         READ AND VERIFY SECTORS.
00115  M01S00108.compwve +++|
00116  M01S00109.compwve +++|          LDM    EOID+ESEI   SET FIRST SECTOR NUMBER
00117  M01S00110.compwve +++|          STD    T7

Line S00111 Modification History
`M01` (Added by)	`compwve`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00111.242l642 ---|          SETMS  READ
00119  M01S00112.compwve +++| WVE5     LDD    T3          READ SECTOR
00120  M01S00113.compwve +++|          RJM    RDS
00121  M01S00114.compwve +++|          MJN    WVE8        IF MASS STORAGE ERROR
00122  M01S00115.compwve +++|          LDN    EOIDL-1     SET LENGTH-1 OF EOI SECTOR DATA
00123  M01S00116.compwve +++|          STD    T1
00124  M01S00117.compwve +++| WVE6     LDM    EOID,T1     COMPARE DATA
00125  M01S00118.compwve +++|          LMM    **,T1
00126  M01S00119.compwve +++| WVEC     EQU    *-1
00127  M01S00120.compwve +++|          NJN    WVE7        IF DATA MISMATCH - EXIT
00128  M01S00121.compwve +++|          SOD    T1
00129  M01S00122.compwve +++|          PJN    WVE6        IF NOT END OF DATA
00130  M01S00123.compwve +++|          AOD    T7          ADVANCE SECTOR NUMBER
00131  M01S00124.compwve +++|          STM    EOID+ESEI
00132  M01S00125.compwve +++|          LMM    SLM
00133  M01S00126.compwve +++|          NJN    WVE5        IF MORE SECTORS TO VERIFY
00134  M01S00127.compwve +++| WVE7     STD    T1          SAVE EXIT CONDITION
00135  M01S00128.compwve +++|          ENDMS
00136  M01S00129.compwve +++|          LDD    T1
00137  M01S00130.compwve +++| WVE8     LJM    WVEX        EXIT
00138  M01S00131.compwve +++|
00139  M01S00132.compwve +++| EOIDL    EQU    2+5*WCEI    LENGTH OF EOI SECTOR DATA
00140  M01S00133.compwve +++| EOID     BSSZ   EOIDL       EOI SECTOR DATA BUFFER
00141  M01S00134.compwve +++| WVE      SPACE  4,10
00142  M01S00135.compwve +++|          BASE   *
00143  M01S00136.compwve +++| QUAL$    IF     -DEF,QUAL$
00144  M01S00137.compwve +++|          QUAL   *
00145  M01S00138.compwve +++| WVE      EQU    /COMPWVE/WVE
00146  M01S00139.compwve +++| QUAL$    ENDIF
00147  M01S00140.compwve +++|          ENDX