User Tools

Site Tools


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