Common COMPRSS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comprss +++|          CTEXT  COMPRSS - READ SYSTEM SECTOR.
00002  M00S00002.comprss +++| COMPRSS  SPACE  4,10
00003  M00S00003.comprss +++| QUAL$    IF     -DEF,QUAL$
00004  M00S00004.comprss +++|          QUAL   COMPRSS
00005  M00S00005.comprss +++| QUAL$    ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT  CONTROL DATA CORPORATION. 1979.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comprss +++| RSS      SPACE  4
00009  M00S00008.comprss +++|***       RSS - READ SYSTEM SECTOR.
00010  M00S00009.comprss +++|*         G. R. MANSFIELD.  70/11/24.
00011  M00S00010.comprss +++| RSS      SPACE  4
00012  M00S00011.comprss +++|***              RSS IS USED TO READ AND VERIFY THE SYSTEM SECTOR FOR
00013  M00S00012.comprss +++|*         A FILE.
00014  M00S00013.comprss +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00014.242l642 ---|*         IF *MSS$* IS DEFINED CONTROL IS TRANSFERED TO *MSS* IF
00016  M01S00015.242l642 ---|*         READ ERROR ENCOUNTERED. USER IS RESPONSIBLE FOR SELECTING
00017  M01S00016.242l642 ---|*         READ ERROR PROCESSING WHEN INITIALIZING MASS STORAGE.
00018  M01S00017.242l642 ---|*         IF *MSS$* IS NOT DEFINED AND ERROR PROCESSING IS SELECTED
00019  M01S00018.242l642 ---|*         CONTROL IS RETURNED TO THE CALLER ON AN UNRECOVERABLE
00020  M01S00019.242l642 ---|*         ERROR WITH (A) = 1.
00021  M01S00020.242l642 ---|*         SEE    *COMSMSP* FOR FURTHER DESCRIPTION OF MASS STORAGE
00022  M01S00021.242l642 ---|*         ERROR PROCESSING.
00023  M01S00022.242l642 ---|*
00024  M00S00023.comprss +++|*         IF *RIS$* IS DEFINED, THE EXISTING VALUE OF *T7* IS USED
00025  M00S00024.comprss +++|*         AS THE SECTOR NUMBER.  OTHERWISE, T7 IS SET TO ZERO.
00026  M00S00025.comprss +++|*
00027  M00S00026.comprss +++|*         AFTER THE SECTOR IS READ, THE DISK IS POSITIONED TO
00028  M00S00027.comprss +++|*         THE FIRST DATA SECTOR OF THE FILE.  IF RIS$ IS DEFINED,
00029  M00S00028.comprss +++|*         THIS SECTOR IS IDENTIFIED BY THE NEXT SECTOR/TRACK
00030  M00S00029.comprss +++|*         POINTER FOUND IN *NSSS*.
00031  M00S00030.comprss +++|*
00032  M00S00031.comprss +++|*         ENTRY  (A) = ADDRESS OF FILE NAME FOR VERIFY.
00033  M00S00032.comprss +++|*                IF (A) = 0, NO FILE NAME VERIFY WILL BE MADE.

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00036  M00S00034.comprss +++|*                (T6) = FIRST TRACK.
00037  M00S00035.comprss +++|*                (T7) = FIRST SECTOR (IF *RIS$* DEFINED).
00038  M00S00036.comprss +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00037.242l642 ---|*         EXIT   (A) = 0 IF ALL DATA VERIFIES.
00040  M01S00038.242l642 ---|*                (A) .LT. 0 IF ERROR IN FILE NAME.
00041  M01S00039.242l642 ---|*                (A) .GT. 0 IF ERROR IN CONTROL INFORMATION.
00042  M01S00040.242l642 ---|*                (A) = 1 IF ERROR IN *NSSS* ONLY.

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00041.comprss +++|*                (T7) = FIRST DATA SECTOR.
00049  M00S00042.comprss +++|*                (T6) = TRACK FOR FIRST DATA SECTOR.
00050  M00S00043.comprss +++|*                DISK POSITIONED TO DATA SECTOR IF NO ERROR.
00051  M00S00044.comprss +++|*                *ENDMS* PERFORMED IF ERROR.
00052  M00S00045.comprss +++|*
00053  M00S00046.comprss +++|*         USES   T1, T3, T6, T7.
00054  M00S00047.comprss +++|*
00055  M00S00048.comprss +++|*         CALLS  RDS.
00056  M00S00049.comprss +++|*
00057  M00S00050.comprss +++|*         MACROS ENDMS.
00058  M00S00051.comprss +++|
00059  M00S00052.comprss +++|
00060  M00S00053.comprss +++| RSS8     ENDMS
00061  M00S00054.comprss +++|          LDN    2
00062  M00S00055.comprss +++|
00063  M00S00056.comprss +++| RSS      SUBR               ENTRY/EXIT
00064  M00S00057.comprss +++|          STD    T3          SET ADDRESS OF NAME
00065  M00S00058.comprss +++|
00066  M00S00059.comprss +++| RIS$     IF     -DEF,RIS$
00067  M00S00060.comprss +++|
00068  M00S00061.comprss +++|*         SET SECTOR ADDRESS.
00069  M00S00062.comprss +++|
00070  M00S00063.comprss +++|          LDN    0           SET FIRST SECTOR
00071  M00S00064.comprss +++|          STD    T7
00072  M00S00065.comprss +++| RIS$     ENDIF
00073  M00S00066.comprss +++|
00074  M00S00067.comprss +++|*         READ SECTOR.
00075  M00S00068.comprss +++|
00076  M00S00069.comprss +++|          LDC    BFMS        READ SECTOR
00077  M00S00070.comprss +++|          RJM    RDS

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

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00071.242l642 ---| MSS$     IF     DEF,MSS$
00079  M01S00072.242l642 ---|          PJN    RSS1        IF NO READ ERROR
00080  M01S00073.242l642 ---|          RJM    MSS         PROCESS MASS STORAGE ERROR
00081  M01S00074.242l642 ---| MSS$     ELSE
00082  M01S00075.242l642 ---|          MJN    RSS8        IF DISK ERROR
00083  M01S00076.242l642 ---| MSS$     ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00006.242l642 +++|          MJN    RSSX        IF READ ERROR
00085  M00S00077.comprss +++|
00086  M00S00078.comprss +++|*         CHECK CONTROL INFORMATION.
00087  M00S00079.comprss +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00080.242l642 ---| RSS1     AOD    T7

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

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00007.242l642 +++|          AOD    T7
00090  M00S00081.comprss +++|          ERRNZ  FSMS-1      CODE DEPENDS ON *FSMS* = 1
00091  M00S00082.comprss +++|          LDM    BFMS
00092  M00S00083.comprss +++|          LMC    3777
00093  M00S00084.comprss +++|          NJN    RSS8        IF ERROR IN FIRST LINKAGE BYTE
00094  M00S00085.comprss +++|          LDM    BFMS+1
00095  M00S00086.comprss +++|          LMN    77
00096  M00S00087.comprss +++|          NJN    RSS8        IF ERROR IN SECOND LINKAGE BYTE
00097  M00S00088.comprss +++|          LDM    FTSS        CHECK TRACK
00098  M00S00089.comprss +++|          LMD    T6
00099  M00S00090.comprss +++|          NJN    RSS8        IF ERROR IN TRACK
00100  M00S00091.comprss +++|          STD    T1
00101  M00S00092.comprss +++|          LDD    T3
00102  M00S00093.comprss +++|          ZJN    RSS4        IF NO FILE NAME VERIFY
00103  M00S00094.comprss +++|
00104  M00S00095.comprss +++|*         VERIFY FILE NAME.
00105  M00S00096.comprss +++|
00106  M00S00097.comprss +++| RSS2     LDM    FNSS,T1
00107  M00S00098.comprss +++|          LMI    T3
00108  M00S00099.comprss +++|          NJN    RSS3        IF FILE NAME ERROR
00109  M00S00100.comprss +++|          AOD    T3
00110  M00S00101.comprss +++|          AOD    T1
00111  M00S00102.comprss +++|          LMN    3
00112  M00S00103.comprss +++|          NJN    RSS2        IF NOT END OF NAME
00113  M00S00104.comprss +++|          LDM    FNSS+3
00114  M00S00105.comprss +++|          LMI    T3
00115  M00S00106.comprss +++|          SCN    77
00116  M00S00107.comprss +++|          ZJN    RSS4        IF NO ERROR IN NAME
00117  M00S00108.comprss +++| RSS3     ENDMS              END MASS STORAGE OPERATION

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

Seq #  *Modification Id* Act 
----------------------------+
00118  M01S00109.242l642 ---|          LCN    1

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

Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00008.242l642 +++|          LDN    3
00120  M00S00110.comprss +++| RIS$     IF     -DEF,RIS$
00121  M00S00111.comprss +++| RSS4     LJM    RSSX        RETURN
00122  M00S00112.comprss +++|
00123  M00S00113.comprss +++| RIS$     ELSE
00124  M00S00114.comprss +++|          UJN    RSS7        RETURN
00125  M00S00115.comprss +++|
00126  M00S00116.comprss +++| RSS4     LDD    T7          CHECK FOR NEW TRACK
00127  M00S00117.comprss +++|          LMM    SLM
00128  M00S00118.comprss +++|          NJN    RSS5        IF NOT END OF TRACK
00129  M00S00119.comprss +++|          STD    T7          RESET SECTOR
00130  M00S00120.comprss +++|          LDM    NSSS        RESET TRACK
00131  M00S00121.comprss +++|          STD    T6
00132  M00S00122.comprss +++|          SHN    -13
00133  M00S00123.comprss +++|          LMN    1
00134  M00S00124.comprss +++|          UJN    RSS6        RETURN
00135  M00S00125.comprss +++|
00136  M00S00126.comprss +++| RSS5     LDM    NSSS        CHECK FOR CORRECT SECTOR
00137  M00S00127.comprss +++|          LMD    T7
00138  M00S00128.comprss +++| RSS6     ZJN    RSS7        IF NO ERROR
00139  M00S00129.comprss +++|          ENDMS
00140  M00S00130.comprss +++|          LDN    1
00141  M00S00131.comprss +++| RSS7     LJM    RSSX        RETURN
00142  M00S00132.comprss +++| RIS$     ENDIF
00143  M00S00133.comprss +++|          SPACE  4
00144  M00S00134.comprss +++| QUAL$    IF     -DEF,QUAL$
00145  M00S00135.comprss +++|          QUAL   *
00146  M00S00136.comprss +++| RSS      EQU    /COMPRSS/RSS
00147  M00S00137.comprss +++| QUAL$    ENDIF
00148  M00S00138.comprss +++|          ENDX