Common COMPRNS

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comprns +++|          CTEXT  COMPRNS - READ NEXT SECTOR.

Line S00002 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00002  M02S00002.242l642 ---| RNS      SPACE  4
00003  M01S00001.242l642 +++| RNS      SPACE  4,10
00004  M01S00003.comprns +++|          IF     -DEF,QUAL$,1
00005  M01S00004.comprns +++|          QUAL   COMPRNS

Line S00005 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

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

Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00006.242l642 ---| RNS      SPACE  4
00009  M01S00002.242l642 +++| RNS      SPACE  4,10
00010  M01S00007.comprns +++|***       RNS - READ NEXT SECTOR.
00011  M01S00008.comprns +++|*         G. R. MANSFIELD.  70/08/30.

Line S00009 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00009.242l642 ---| RNS      SPACE  4
00013  M01S00003.242l642 +++| RNS      SPACE  4,25
00014  M01S00010.comprns +++|***              RNS READS THE NEXT SECTOR OF A FILE TO A PP BUFFER.
00015  M01S00011.comprns +++|*
00016  M01S00012.comprns +++|*         IF *MSR$* IS DEFINED A CALL WILL BE MADE TO *MSR* ON A

Line S00013 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00013.242l642 ---|*         MASS STORAGE ERROR.  IT IS THE CALLERS RESPONSIBILTY TO HAVE

Line S00014 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00014.242l642 ---|*         SET THE FLAG INDICATING RETURN ON ERROR.
00019  M01S00004.242l642 +++|*         MASS STORAGE ERROR.  IF IT IS POSSIBLE FOR *MSR* TO CORRECT
00020  M01S00005.242l642 +++|*         THE ERROR, IT CAN RETURN TO *RNS* WHICH WILL UPDATE T1, T6,
00021  M01S00006.242l642 +++|*         AND T7 AND RETURN TO ITS CALLER.  IF *MSR$* IS NOT DEFINED,
00022  M01S00007.242l642 +++|*         (A) IS NEGATIVE ON EXIT AND T1, T6, AND T7 ARE NOT UPDATED.
00023  M01S00015.comprns +++|*
00024  M01S00016.comprns +++|*         ENTRY  (A) = 6/ FLAGS FOR DRIVER, 12/ PP BUFFER ADDRESS.

Line S00017 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00017.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00026  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00027  M01S00018.comprns +++|*                (T6) = TRACK.
00028  M01S00019.comprns +++|*                (T7) = SECTOR.
00029  M01S00020.comprns +++|*
00030  M01S00021.comprns +++|*         EXIT   (A) = (T1) = WORD COUNT OF SECTOR.
00031  M01S00022.comprns +++|*                (T3) = ADDRESS OF PP BUFFER.
00032  M01S00023.comprns +++|*                (T6 - T7) ADVANCED IF NO EOI.
00033  M01S00008.242l642 +++|*                (A) .LT. 0 IF MASS STORAGE ERROR AND *MSR$* NOT
00034  M01S00009.242l642 +++|*                            DEFINED. (A) = RESPONSE FROM DRIVER.
00035  M01S00024.comprns +++|*
00036  M01S00025.comprns +++|*         USES   T3.
00037  M01S00026.comprns +++|*
00038  M01S00027.comprns +++|*         CALLS  RDS.
00039  M01S00028.comprns +++|
00040  M01S00029.comprns +++|
00041  M01S00030.comprns +++| RNS2     LDD    T1          RETURN WITH (A) = WORD COUNT
00042  M01S00031.comprns +++|
00043  M01S00032.comprns +++| RNS      SUBR               ENTRY/EXIT
00044  M01S00033.comprns +++|          STD    T3          SET BUFFER ADDRESS
00045  M01S00034.comprns +++|          RJM    RDS         READ SECTOR
00046  M01S00035.comprns +++| MSR$     IF     DEF,MSR$
00047  M01S00036.comprns +++|          PJN    RNS0        IF NO ERROR
00048  M01S00037.comprns +++|          RJM    MSR         PROCESS MASS STORAGE READ ERROR
00049  M01S00038.comprns +++| RNS0     BSS    0
00050  M01S00010.242l642 +++| MSR$     ELSE
00051  M01S00011.242l642 +++|          MJN    RNSX        IF ERROR
00052  M01S00039.comprns +++| MSR$     ENDIF
00053  M01S00040.comprns +++|          LDM    1,T3        SET SECTOR WORD COUNT
00054  M01S00041.comprns +++|          STD    T1
00055  M01S00042.comprns +++|          LDI    T3          CHECK FIRST CONTROL BYTE
00056  M01S00043.comprns +++|          NJN    RNS1        IF NOT EOF
00057  M01S00044.comprns +++|          STD    T1          CLEAR WORD COUNT
00058  M01S00045.comprns +++|          LDM    1,T3        CHECK NEXT CONTROL BYTE
00059  M01S00046.comprns +++|          ZJN    RNSX        RETURN IF EOI
00060  M01S00047.comprns +++| RNS1     STD    T7          SET NEXT SECTOR
00061  M01S00048.comprns +++|          SHN    6
00062  M01S00049.comprns +++|          PJN    RNS2        IF NOT NEW TRACK
00063  M01S00050.comprns +++|          SHN    -6          SET NEXT TRACK
00064  M01S00051.comprns +++|          STD    T6
00065  M01S00052.comprns +++|          LDN    0           CLEAR SECTOR
00066  M01S00053.comprns +++|          STD    T7
00067  M01S00054.comprns +++|          UJN    RNS2        RETURN WITH (A) = WORD COUNT

Line S00055 Modification History
`M01` (Added by)	`comprns`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00055.242l642 ---|          SPACE  4
00069  M01S00012.242l642 +++|          SPACE  4,10
00070  M01S00056.comprns +++| QUAL$    IF     -DEF,QUAL$
00071  M01S00057.comprns +++|          QUAL   *
00072  M01S00058.comprns +++| RNS      EQU    /COMPRNS/RNS
00073  M01S00059.comprns +++| QUAL$    ENDIF
00074  M01S00060.comprns +++|          ENDX