Common COMPRCS

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comprcs +++|          CTEXT  COMPRCS - READ CONTROL STATEMENT.
00002  M01S00002.comprcs +++| RCS      SPACE  4
00003  M01S00003.comprcs +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comprcs +++|          QUAL   COMPRCS

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.comprcs +++| RCS      SPACE  4
00008  M01S00007.comprcs +++|***       RCS - READ CONTROL STATEMENT.
00009  M01S00008.comprcs +++|*         G. R. MANSFIELD.  70/10/06.
00010  M01S00009.comprcs +++| RCS      SPACE  4
00011  M01S00010.comprcs +++|*                RCS READS THE NEXT CONTROL STATEMENT TO A PP BUFFER.
00012  M01S00011.comprcs +++|*         PP BUFFER MUST BE 9*5 WORDS LONG.
00013  M01S00012.comprcs +++|*         THE CONTROL STATEMENT BUFFER IN NEGATIVE FL
00014  M01S00013.comprcs +++|*         WILL BE REFILLED IF NECESSARY.
00015  M01S00014.comprcs +++|*
00016  M01S00015.comprcs +++|*         ENTRY  (SP - SP+4) = CONTROL STATEMENT POINTER.
00017  M01S00016.comprcs +++|*                *STMT* = ADDRESS OF PP BUFFER.
00018  M01S00017.comprcs +++|*
00019  M01S00018.comprcs +++|*         EXIT   (A) = (T4) = BUFFER INDEX OF CONTROL STATEMENT.
00020  M01S00019.comprcs +++|*                STATEMENT STORED STARTING AT *STMT* AND CONTINUING TO
00021  M01S00020.comprcs +++|*                A 0000 BYTE.  THE REST OF THE STATEMENT BUFFER WILL
00022  M01S00021.comprcs +++|*                BE CLEARED.
00023  M01S00001.242l642 +++|*                (A) .LT. 0 IF MASS STORAGE ERROR.
00024  M01S00022.comprcs +++|*
00025  M01S00023.comprcs +++|*         USES   T1 - T7, CM - CM+4, CN - CN+4.
00026  M01S00024.comprcs +++|*
00027  M01S00025.comprcs +++|*         CALLS  RNS.
00028  M01S00026.comprcs +++|*
00029  M01S00027.comprcs +++|*         MACROS ENDMS, NFA, SETMS.
00030  M01S00028.comprcs +++|
00031  M01S00029.comprcs +++|
00032  M01S00030.comprcs +++| RCS      SUBR               ENTRY/EXIT
00033  M01S00031.comprcs +++| RCS1     LDC    STMT        SET PP ADDRESS
00034  M01S00032.comprcs +++|          STD    T1
00035  M01S00033.comprcs +++|          LDD    SP+3        SET STATEMENT INDEX
00036  M01S00034.comprcs +++|          STD    T2
00037  M01S00035.comprcs +++|          STD    T4
00038  M01S00036.comprcs +++|
00039  M01S00037.comprcs +++|*         READ FIRST 90 CHARACTERS OF CONTROL CARD
00040  M01S00038.comprcs +++|*         FROM CONTROL CARD BUFFER.
00041  M01S00039.comprcs +++|
00042  M01S00040.comprcs +++| RCS2     LDD    T1          SET WORD ADDRESS
00043  M01S00041.comprcs +++|          STM    RCSA
00044  M01S00042.comprcs +++|          LDD    T2          CHECK BUFFER STATUS
00045  M01S00043.comprcs +++|          LMD    SP+4
00046  M01S00044.comprcs +++|          ZJN    RCS5        IF BUFFER EMPTY
00047  M01S00045.comprcs +++|          NFA    T2,R        READ WORD
00048  M01S00046.comprcs +++|          CRM    *,ON
00049  M01S00047.comprcs +++| RCSA     EQU    *-1
00050  M01S00048.comprcs +++|          SOD    T2          ADVANCE STATEMENT ADDRESS
00051  M01S00049.comprcs +++|          LDN    5           ADVANCE PP ADDRESS
00052  M01S00050.comprcs +++|          RAD    T1
00053  M01S00051.comprcs +++|          LMC    STMT+55
00054  M01S00052.comprcs +++|          ZJN    RCS3        IF 90 CHARACTERS
00055  M01S00053.comprcs +++|          LDM    -1,T1
00056  M01S00054.comprcs +++|          NJN    RCS2        IF NOT END OF STATEMENT
00057  M01S00055.comprcs +++|          UJN    RCS6        PROCESS END OF STATEMENT
00058  M01S00056.comprcs +++|
00059  M01S00057.comprcs +++|*         IGNORE REMAINING PORTION OF CONTROL CARD
00060  M01S00058.comprcs +++|*         (IGNORE CHARACTERS 81-160).
00061  M01S00059.comprcs +++|
00062  M01S00060.comprcs +++| RCS3     LDD    T1          SET COUNTER
00063  M01S00061.comprcs +++|          STD    T3
00064  M01S00062.comprcs +++|          SBN    5           RESET CHARACTER COUNT
00065  M01S00063.comprcs +++|          STD    T1
00066  M01S00064.comprcs +++|          LDM    4,T1
00067  M01S00065.comprcs +++|          ZJN    RCS6        IF END OF STATEMENT
00068  M01S00066.comprcs +++| RCS4     LDD    T2          CHECK BUFFER STATUS
00069  M01S00067.comprcs +++|          LMD    SP+4
00070  M01S00068.comprcs +++| RCS5     ZJN    RCS8        IF BUFFER EMPTY
00071  M01S00069.comprcs +++|          NFA    T2,R        READ WORD
00072  M01S00070.comprcs +++|          CRD    CM
00073  M01S00071.comprcs +++|          SOD    T2          ADVANCE STATEMENT ADDRESS
00074  M01S00072.comprcs +++|          LDD    CM+4
00075  M01S00073.comprcs +++|          ZJN    RCS6        IF END OF STATEMENT
00076  M01S00074.comprcs +++|          LDN    5
00077  M01S00075.comprcs +++|          RAD    T3
00078  M01S00076.comprcs +++|          LMC    STMT+120
00079  M01S00077.comprcs +++|          NJN    RCS4        IF NOT 160D CHARACTERS
00080  M01S00078.comprcs +++| RCS6     AOD    SP+2        ADVANCE CONTROL CARD COUNT
00081  M01S00079.comprcs +++|          SHN    -14
00082  M01S00080.comprcs +++|          RAD    SP+1
00083  M01S00081.comprcs +++| RCS7     LDN    0           CLEAR REMAINDER OF STATEMENT BUFFER
00084  M01S00082.comprcs +++|          STI    T1
00085  M01S00083.comprcs +++|          AOD    T1
00086  M01S00084.comprcs +++|          LMC    STMT+55
00087  M01S00085.comprcs +++|          NJN    RCS7        IF NOT END OF BUFFER
00088  M01S00086.comprcs +++|          LDD    T2          SET NEW STATEMENT INDEX
00089  M01S00087.comprcs +++|          STD    SP+3
00090  M01S00088.comprcs +++|          LDD    T4          CM BUFFER INDEX OF CONTROL STATEMENT
00091  M01S00089.comprcs +++|          LJM    RCSX        RETURN
00092  M01S00090.comprcs +++|
00093  M01S00091.comprcs +++|*         CHECK STATUS OF BUFFER.
00094  M01S00092.comprcs +++|
00095  M01S00093.comprcs +++| RCS8     LDD    SP+1
00096  M01S00094.comprcs +++|          SHN    6
00097  M01S00095.comprcs +++|          MJN    RCS7        IF EOR
00098  M01S00096.comprcs +++|          LDD    CP          FETCH FST INFORMATION
00099  M01S00097.comprcs +++|          ADN    CSSW
00100  M01S00098.comprcs +++|          CRD    CN
00101  M01S00099.comprcs +++|
00102  M01S00100.comprcs +++|*         MOVE CURRENT STATEMENT TO START OF BUFFER.
00103  M01S00101.comprcs +++|
00104  M01S00102.comprcs +++|          LDD    SP+3        SET CURRENT STATEMENT WORD COUNT
00105  M01S00103.comprcs +++|          SBD    T2

Line S00104 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00104.prcs2   ---|          STD    CN+4

Line S00105 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00105.prcs2   ---|          STD    T3
00108  M01S00106.comprcs +++|          SBN    10

Line S00107 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00107.prcs2   ---|          MJN    RCS9        IF LESS THAN 90 CHARACTERS
00110  M01S00001.prcs2   +++|          MJN    RCS9        IF LESS THAN 80 CHARACTERS

Line S00108 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00108.prcs2   ---|          LDN    10

Line S00109 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00109.prcs2   ---|          STD    T3

Line S00110 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00110.prcs2   ---| RCS9     LDC    CSBN        SET FIRST STATEMENT INDEX
00114  M01S00002.prcs2   +++|          LDN    0
00115  M01S00003.prcs2   +++| RCS9     ADN    10
00116  M01S00004.prcs2   +++|          STD    CN+4
00117  M01S00005.prcs2   +++|          LDC    CSBN        SET FIRST STATEMENT INDEX
00118  M01S00111.comprcs +++|          STD    SP+3
00119  M01S00006.prcs2   +++|          SBD    CN+4
00120  M01S00112.comprcs +++|          STD    SP+4
00121  M01S00113.comprcs +++|          LDD    CN+4
00122  M01S00114.comprcs +++|          ZJN    RCS10       IF NO CURRENT STATEMENT

Line S00115 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00115.prcs2   ---|          NFA    SP+4,R      STORE CURRENT STATEMENT

Line S00116 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00116.prcs2   ---|          CWM    STMT,T3

Line S00117 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00117.prcs2   ---|          LDD    SP+4        ADVANCE STATEMENT INDEX

Line S00118 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00118.prcs2   ---|          SBD    T3

Line S00119 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs2`

Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00119.prcs2   ---|          STD    SP+4
00128  M01S00007.prcs2   +++|          NFA    SP+3,R      STORE CURRENT STATEMENT
00129  M01S00008.prcs2   +++|          CWM    STMT,CN+4
00130  M01S00120.comprcs +++|
00131  M01S00121.comprcs +++|*         RELOAD STATEMENT BUFFER.
00132  M01S00122.comprcs +++|

Line S00123 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00123.ns22000 ---| RCS10    LDD    CN          SET EQUIPMENT NUMBER
00134  M01S00001.ns22000 +++| RCS10    LDD    CN          SET EST ORDINAL

Line S00124 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00124.ns22000 ---|          LPN    77
00136  M01S00002.ns22000 +++|          LPC    777
00137  M01S00125.comprcs +++|          STD    T5
00138  M01S00126.comprcs +++|          LDD    CN+2        SET TRACK
00139  M01S00127.comprcs +++|          NJN    RCS11       IF FILE DECLARED
00140  M01S00128.comprcs +++|          LJM    RCS15       SET EOR STATUS
00141  M01S00129.comprcs +++|
00142  M01S00130.comprcs +++| RCS11    STD    T6
00143  M01S00131.comprcs +++|          LDD    CN+3        SET SECTOR
00144  M01S00132.comprcs +++|          STD    T7

Line S00133 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00133.242l642 ---|          SETMS  READ,NE
00146  M01S00002.242l642 +++|          SETMS  IO,(NS)
00147  M01S00134.comprcs +++|          LDC    BFMS        READ NEXT SECTOR
00148  M01S00135.comprcs +++|          RJM    RNS

Line S00136 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00136.242l642 ---|          ENDMS
00150  M01S00003.242l642 +++|          PJN    RCS13       IF NO ERRORS
00151  M01S00004.242l642 +++|          SHN    21-12
00152  M01S00005.242l642 +++|          PJN    RCS12       IF RECOVERABLE ERROR
00153  M01S00006.242l642 +++|          LDC    4000        SET EOR
00154  M01S00007.242l642 +++|          STD    SP+1
00155  M01S00008.242l642 +++|          LDD    SP+3        SET BUFFER EMPTY
00156  M01S00009.242l642 +++|          STD    SP+4
00157  M01S00010.242l642 +++| RCS12    LDD    CP          STORE STATEMENT POINTER
00158  M01S00011.242l642 +++|          ADN    CSPW
00159  M01S00012.242l642 +++|          CWD    SP
00160  M01S00013.242l642 +++|          LDN    0           SPECIFY EMPTY COMMAND BUFFER
00161  M01S00014.242l642 +++|          STM    STMT
00162  M01S00015.242l642 +++|          LCN    0           SPECIFY ERROR
00163  M01S00016.242l642 +++|          LJM    RCSX        RETURN
00164  M01S00017.242l642 +++|
00165  M01S00018.242l642 +++| RCS13    ENDMS

Line S00137 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs1`

Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00137.prcs1   ---|          LDD    T1

Line S00138 Modification History
`M01` (Added by)	`comprcs`
`M02` (Updated by)	`prcs1`

Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00138.prcs1   ---|          ZJN    RCS15       IF NO DATA READ
00168  M01S00139.comprcs +++|          LDD    T6          UPDATE TRACK
00169  M01S00140.comprcs +++|          STD    CN+2
00170  M01S00141.comprcs +++|          LDD    T7          UPDATE SECTOR
00171  M01S00142.comprcs +++|          STD    CN+3
00172  M01S00001.prcs1   +++|          LDD    T1
00173  M01S00002.prcs1   +++|          ZJN    RCS15       IF NO DATA READ
00174  M01S00143.comprcs +++|          NFA    SP+4,R      STORE CONTROL STATEMENTS
00175  M01S00144.comprcs +++|          CWM    BFMS+2,T1
00176  M01S00145.comprcs +++|          LDD    SP+4        UPDATE STATEMENT LIMIT
00177  M01S00146.comprcs +++|          SBD    T1
00178  M01S00147.comprcs +++|          STD    SP+4
00179  M01S00148.comprcs +++|          LDD    T1          CHECK FOR EOR
00180  M01S00149.comprcs +++|          SHN    21-6
00181  M01S00150.comprcs +++|          MJN    RCS16       IF NOT EOR
00182  M01S00151.comprcs +++| RCS15    LDC    4000        SET EOR
00183  M01S00152.comprcs +++|          RAD    SP+1
00184  M01S00153.comprcs +++| RCS16    LDD    CP          STORE STATEMENT POINTER
00185  M01S00154.comprcs +++|          ADN    CSPW
00186  M01S00155.comprcs +++|          CWD    SP
00187  M01S00156.comprcs +++|          ADN    CSSW-CSPW   STORE FST ENTRY
00188  M01S00157.comprcs +++|          CWD    CN
00189  M01S00158.comprcs +++|          LJM    RCS1        CONTINUE PROCESSING
00190  M01S00159.comprcs +++|          SPACE  4
00191  M01S00160.comprcs +++| QUAL$    IF     -DEF,QUAL$
00192  M01S00161.comprcs +++|          QUAL   *
00193  M01S00162.comprcs +++| RCS      EQU    /COMPRCS/RCS
00194  M01S00163.comprcs +++| QUAL$    ENDIF
00195  M01S00164.comprcs +++|          ENDX