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