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