cdc:nos2.source:opl.opl871:common:comprss
Common COMPRSS
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comprss +++| CTEXT COMPRSS - READ SYSTEM SECTOR. 00002 M01S00002.comprss +++| COMPRSS SPACE 4,10 00003 M01S00003.comprss +++| QUAL$ IF -DEF,QUAL$ 00004 M01S00004.comprss +++| QUAL COMPRSS 00005 M01S00005.comprss +++| QUAL$ ENDIF
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT CONTROL DATA CORPORATION. 1979. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.comprss +++| RSS SPACE 4 00009 M01S00008.comprss +++|*** RSS - READ SYSTEM SECTOR. 00010 M01S00009.comprss +++|* G. R. MANSFIELD. 70/11/24. 00011 M01S00010.comprss +++| RSS SPACE 4 00012 M01S00011.comprss +++|*** RSS IS USED TO READ AND VERIFY THE SYSTEM SECTOR FOR 00013 M01S00012.comprss +++|* A FILE. 00014 M01S00013.comprss +++|*
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00015 M02S00014.242l642 ---|* IF *MSS$* IS DEFINED CONTROL IS TRANSFERED TO *MSS* IF
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00016 M02S00015.242l642 ---|* READ ERROR ENCOUNTERED. USER IS RESPONSIBLE FOR SELECTING
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00017 M02S00016.242l642 ---|* READ ERROR PROCESSING WHEN INITIALIZING MASS STORAGE.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00018 M02S00017.242l642 ---|* IF *MSS$* IS NOT DEFINED AND ERROR PROCESSING IS SELECTED
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00019 M02S00018.242l642 ---|* CONTROL IS RETURNED TO THE CALLER ON AN UNRECOVERABLE
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00019.242l642 ---|* ERROR WITH (A) = 1.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00021 M02S00020.242l642 ---|* SEE *COMSMSP* FOR FURTHER DESCRIPTION OF MASS STORAGE
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00022 M02S00021.242l642 ---|* ERROR PROCESSING.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00023 M02S00022.242l642 ---|* 00024 M01S00023.comprss +++|* IF *RIS$* IS DEFINED, THE EXISTING VALUE OF *T7* IS USED 00025 M01S00024.comprss +++|* AS THE SECTOR NUMBER. OTHERWISE, T7 IS SET TO ZERO. 00026 M01S00025.comprss +++|* 00027 M01S00026.comprss +++|* AFTER THE SECTOR IS READ, THE DISK IS POSITIONED TO 00028 M01S00027.comprss +++|* THE FIRST DATA SECTOR OF THE FILE. IF RIS$ IS DEFINED, 00029 M01S00028.comprss +++|* THIS SECTOR IS IDENTIFIED BY THE NEXT SECTOR/TRACK 00030 M01S00029.comprss +++|* POINTER FOUND IN *NSSS*. 00031 M01S00030.comprss +++|* 00032 M01S00031.comprss +++|* ENTRY (A) = ADDRESS OF FILE NAME FOR VERIFY. 00033 M01S00032.comprss +++|* IF (A) = 0, NO FILE NAME VERIFY WILL BE MADE.
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00034 M02S00033.ns22000 ---|* (T5) = EQUIPMENT NUMBER. 00035 M01S00001.ns22000 +++|* (T5) = EST ORDINAL. 00036 M01S00034.comprss +++|* (T6) = FIRST TRACK. 00037 M01S00035.comprss +++|* (T7) = FIRST SECTOR (IF *RIS$* DEFINED). 00038 M01S00036.comprss +++|*
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00039 M02S00037.242l642 ---|* EXIT (A) = 0 IF ALL DATA VERIFIES.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00040 M02S00038.242l642 ---|* (A) .LT. 0 IF ERROR IN FILE NAME.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00041 M02S00039.242l642 ---|* (A) .GT. 0 IF ERROR IN CONTROL INFORMATION.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00040.242l642 ---|* (A) = 1 IF ERROR IN *NSSS* ONLY. 00043 M01S00001.242l642 +++|* EXIT (A) .LT. 0, IF READ ERROR. (A)= RESPONSE FROM DRIVER. 00044 M01S00002.242l642 +++|* (A) = 0, IF READ SUCCESSFUL AND ALL DATA VERIFIES. 00045 M01S00003.242l642 +++|* = 1, IF ERROR IN *NSSS* (AND RIS$ DEFINED). 00046 M01S00004.242l642 +++|* = 2, IF ERROR IN LINKAGE BYTES. 00047 M01S00005.242l642 +++|* = 3, IF ERROR IN FILE NAME. 00048 M01S00041.comprss +++|* (T7) = FIRST DATA SECTOR. 00049 M01S00042.comprss +++|* (T6) = TRACK FOR FIRST DATA SECTOR. 00050 M01S00043.comprss +++|* DISK POSITIONED TO DATA SECTOR IF NO ERROR. 00051 M01S00044.comprss +++|* *ENDMS* PERFORMED IF ERROR. 00052 M01S00045.comprss +++|* 00053 M01S00046.comprss +++|* USES T1, T3, T6, T7. 00054 M01S00047.comprss +++|* 00055 M01S00048.comprss +++|* CALLS RDS. 00056 M01S00049.comprss +++|* 00057 M01S00050.comprss +++|* MACROS ENDMS. 00058 M01S00051.comprss +++| 00059 M01S00052.comprss +++| 00060 M01S00053.comprss +++| RSS8 ENDMS 00061 M01S00054.comprss +++| LDN 2 00062 M01S00055.comprss +++| 00063 M01S00056.comprss +++| RSS SUBR ENTRY/EXIT 00064 M01S00057.comprss +++| STD T3 SET ADDRESS OF NAME 00065 M01S00058.comprss +++| 00066 M01S00059.comprss +++| RIS$ IF -DEF,RIS$ 00067 M01S00060.comprss +++| 00068 M01S00061.comprss +++|* SET SECTOR ADDRESS. 00069 M01S00062.comprss +++| 00070 M01S00063.comprss +++| LDN 0 SET FIRST SECTOR 00071 M01S00064.comprss +++| STD T7 00072 M01S00065.comprss +++| RIS$ ENDIF 00073 M01S00066.comprss +++| 00074 M01S00067.comprss +++|* READ SECTOR. 00075 M01S00068.comprss +++| 00076 M01S00069.comprss +++| LDC BFMS READ SECTOR 00077 M01S00070.comprss +++| RJM RDS
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00071.242l642 ---| MSS$ IF DEF,MSS$
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00079 M02S00072.242l642 ---| PJN RSS1 IF NO READ ERROR
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00080 M02S00073.242l642 ---| RJM MSS PROCESS MASS STORAGE ERROR
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00081 M02S00074.242l642 ---| MSS$ ELSE
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00082 M02S00075.242l642 ---| MJN RSS8 IF DISK ERROR
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00083 M02S00076.242l642 ---| MSS$ ENDIF 00084 M01S00006.242l642 +++| MJN RSSX IF READ ERROR 00085 M01S00077.comprss +++| 00086 M01S00078.comprss +++|* CHECK CONTROL INFORMATION. 00087 M01S00079.comprss +++|
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00088 M02S00080.242l642 ---| RSS1 AOD T7 00089 M01S00007.242l642 +++| AOD T7 00090 M01S00081.comprss +++| ERRNZ FSMS-1 CODE DEPENDS ON *FSMS* = 1 00091 M01S00082.comprss +++| LDM BFMS 00092 M01S00083.comprss +++| LMC 3777 00093 M01S00084.comprss +++| NJN RSS8 IF ERROR IN FIRST LINKAGE BYTE 00094 M01S00085.comprss +++| LDM BFMS+1 00095 M01S00086.comprss +++| LMN 77 00096 M01S00087.comprss +++| NJN RSS8 IF ERROR IN SECOND LINKAGE BYTE 00097 M01S00088.comprss +++| LDM FTSS CHECK TRACK 00098 M01S00089.comprss +++| LMD T6 00099 M01S00090.comprss +++| NJN RSS8 IF ERROR IN TRACK 00100 M01S00091.comprss +++| STD T1 00101 M01S00092.comprss +++| LDD T3 00102 M01S00093.comprss +++| ZJN RSS4 IF NO FILE NAME VERIFY 00103 M01S00094.comprss +++| 00104 M01S00095.comprss +++|* VERIFY FILE NAME. 00105 M01S00096.comprss +++| 00106 M01S00097.comprss +++| RSS2 LDM FNSS,T1 00107 M01S00098.comprss +++| LMI T3 00108 M01S00099.comprss +++| NJN RSS3 IF FILE NAME ERROR 00109 M01S00100.comprss +++| AOD T3 00110 M01S00101.comprss +++| AOD T1 00111 M01S00102.comprss +++| LMN 3 00112 M01S00103.comprss +++| NJN RSS2 IF NOT END OF NAME 00113 M01S00104.comprss +++| LDM FNSS+3 00114 M01S00105.comprss +++| LMI T3 00115 M01S00106.comprss +++| SCN 77 00116 M01S00107.comprss +++| ZJN RSS4 IF NO ERROR IN NAME 00117 M01S00108.comprss +++| RSS3 ENDMS END MASS STORAGE OPERATION
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | comprss |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00118 M02S00109.242l642 ---| LCN 1 00119 M01S00008.242l642 +++| LDN 3 00120 M01S00110.comprss +++| RIS$ IF -DEF,RIS$ 00121 M01S00111.comprss +++| RSS4 LJM RSSX RETURN 00122 M01S00112.comprss +++| 00123 M01S00113.comprss +++| RIS$ ELSE 00124 M01S00114.comprss +++| UJN RSS7 RETURN 00125 M01S00115.comprss +++| 00126 M01S00116.comprss +++| RSS4 LDD T7 CHECK FOR NEW TRACK 00127 M01S00117.comprss +++| LMM SLM 00128 M01S00118.comprss +++| NJN RSS5 IF NOT END OF TRACK 00129 M01S00119.comprss +++| STD T7 RESET SECTOR 00130 M01S00120.comprss +++| LDM NSSS RESET TRACK 00131 M01S00121.comprss +++| STD T6 00132 M01S00122.comprss +++| SHN -13 00133 M01S00123.comprss +++| LMN 1 00134 M01S00124.comprss +++| UJN RSS6 RETURN 00135 M01S00125.comprss +++| 00136 M01S00126.comprss +++| RSS5 LDM NSSS CHECK FOR CORRECT SECTOR 00137 M01S00127.comprss +++| LMD T7 00138 M01S00128.comprss +++| RSS6 ZJN RSS7 IF NO ERROR 00139 M01S00129.comprss +++| ENDMS 00140 M01S00130.comprss +++| LDN 1 00141 M01S00131.comprss +++| RSS7 LJM RSSX RETURN 00142 M01S00132.comprss +++| RIS$ ENDIF 00143 M01S00133.comprss +++| SPACE 4 00144 M01S00134.comprss +++| QUAL$ IF -DEF,QUAL$ 00145 M01S00135.comprss +++| QUAL * 00146 M01S00136.comprss +++| RSS EQU /COMPRSS/RSS 00147 M01S00137.comprss +++| QUAL$ ENDIF 00148 M01S00138.comprss +++| ENDX
cdc/nos2.source/opl.opl871/common/comprss.txt · Last modified: by 127.0.0.1