Common COMPSRA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsra +++|          CTEXT  COMPSRA - SET RANDOM ADDRESS.
00002  M00S00002.compsra +++| SRA      SPACE  4
00003  M00S00003.compsra +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsra +++|          QUAL   COMPSRA

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compsra +++| SRA      SPACE  4
00008  M00S00007.compsra +++|***       SRA - SET RANDOM ADDRESS.
00009  M00S00008.compsra +++|*         G. R. MANSFIELD.  70/08/09.
00010  M00S00009.compsra +++|          SPACE  4
00011  M00S00010.compsra +++|***              SRA DETERMINES THE RANDOM ADDRESS CORRESPONDING TO
00012  M00S00011.compsra +++|*         A GIVEN TRACK AND SECTOR.
00013  M00S00012.compsra +++|*
00014  M00S00013.compsra +++|*         IF *IRA$* IS DEFINED, INITIALIZATION IS ASSUMED TO BE
00015  M00S00014.compsra +++|*         PERFORMED.  DECK -COMPIRA- CAN BE USED TO DO THIS.
00016  M00S00015.compsra +++|*
00017  M00S00016.compsra +++|*         ENTRY  (A) = FIRST TRACK.

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00020  M00S00018.compsra +++|*                (T6) = CURRENT TRACK.
00021  M00S00019.compsra +++|*                (T7) = CURRENT SECTOR.
00022  M00S00020.compsra +++|*
00023  M00S00021.compsra +++|*         EXIT   (RI - RI+1) = RANDOM ADDRESS.
00024  M00S00022.compsra +++|*                (A) " 0 IF TRACK AND SECTOR NOT ON TRACK CHAIN.
00025  M00S00023.compsra +++|*
00026  M00S00024.compsra +++|*         USES   T1, T3, CM - CM+4.
00027  M00S00025.compsra +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00026.242l642 ---|*         MACROS SETMS, IF INITIALIZATION NEEDED.
00029  M01S00027.242l642 ---|          SPACE  4
00030  M01S00028.242l642 ---|*         INSTRUCTIONS USED AS CONSTANTS.
00031  M01S00029.242l642 ---|
00032  M01S00030.242l642 ---|
00033  M01S00031.242l642 ---| ADCI     EQU    2100        ADC

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

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00001.242l642 +++|*         MACROS SFA.
00035  M01S00002.242l642 +++|*
00036  M01S00003.242l642 +++|*         XREF   COMSPIM.
00037  M00S00032.compsra +++|
00038  M00S00033.compsra +++|
00039  M00S00034.compsra +++| SRA1     SHN    -6          CHECK TRACK
00040  M00S00035.compsra +++|          LMD    T6
00041  M00S00036.compsra +++|          ZJN    SRAX        IF CURRENT TRACK REACHED
00042  M00S00037.compsra +++|          LMD    T6          SET NEXT TRACK
00043  M00S00038.compsra +++|          STD    T0
00044  M00S00039.compsra +++|          LPN    3
00045  M00S00040.compsra +++|          STD    T1

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

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00041.242l642 ---|          LDM    SLM

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

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00004.242l642 +++|          LDP    SLM
00048  M00S00042.compsra +++|          RAD    RI+1
00049  M00S00043.compsra +++|          SHN    -14
00050  M00S00044.compsra +++|          RAD    RI
00051  M00S00045.compsra +++|          LDD    T0          READ TRT WORD
00052  M00S00046.compsra +++|          SHN    -2
00053  M00S00047.compsra +++| SRAA     ADC    TRTS
00054  M00S00048.compsra +++|          CRD    CM
00055  M00S00049.compsra +++|          LDM    CM,T1       CHECK NEXT LINK
00056  M00S00050.compsra +++| SRA2     SHN    6
00057  M00S00051.compsra +++|          MJN    SRA1        IF NOT END OF CHAIN
00058  M00S00052.compsra +++|          LDN    1           RETURN ERROR RESPONSE
00059  M00S00053.compsra +++|
00060  M00S00054.compsra +++| SRA      SUBR               ENTRY/EXIT
00061  M00S00055.compsra +++|          STD    T3          SAVE FIRST TRACK
00062  M01S00005.242l642 +++|          LDD    T7
00063  M01S00006.242l642 +++|          STD    RI+1
00064  M01S00007.242l642 +++|          SHN    -14         INITIAL ADDRESS = CURRENT SECTOR
00065  M01S00008.242l642 +++|          STD    RI
00066  M00S00056.compsra +++|
00067  M00S00057.compsra +++|          IF     -DEF,IRA$

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

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00058.242l642 ---|          SETMS
00069  M01S00059.242l642 ---|          LDD    CM+4        SET FWA OF TRT
00070  M01S00060.242l642 ---|          SHN    3

Line S00061 Modification History
`M01` (Removed by)	`ns22000`
`M02` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00061.242l642 ---|          ADN    MSTL

Line S00002 Modification History
`M01` (Added by)	`ns22000`
`M02` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00002.242l642 ---|          ADN    TRLL
00073  M02S00003.242l642 ---|          CRD    CM
00074  M02S00004.242l642 ---|          LDD    CM+3

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

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00009.242l642 +++|          SFA    EST,T5      READ EST ENTRY
00076  M01S00010.242l642 +++|          ADK    EQDE
00077  M01S00011.242l642 +++|          CRD    CM
00078  M01S00012.242l642 +++|          LDD    CM+4
00079  M01S00013.242l642 +++|          SHN    3
00080  M01S00014.242l642 +++|          ADK    MDGL
00081  M01S00015.242l642 +++|          CRD    CM
00082  M01S00016.242l642 +++|          ADK    TRLL-MDGL
00083  M01S00017.242l642 +++|          CRD    T7
00084  M01S00018.242l642 +++|          LDD    CM+4        SET SECTOR LIMIT
00085  M01S00019.242l642 +++|          STP    SLM
00086  M01S00020.242l642 +++|          LDD    RI+1        RESTORE SECTOR
00087  M01S00021.242l642 +++|          STD    T7
00088  M01S00022.242l642 +++|          LDD    T7+3        SET TRT FWA

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

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00005.ns22000 +++|          LPN    77
00090  M01S00006.ns22000 +++|          SHN    14

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

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00007.242l642 ---|          LMD    CM+4

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

Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00023.242l642 +++|          LMD    T7+4
00093  M00S00062.compsra +++|          SBD    TH          4000/2
00094  M00S00063.compsra +++|          STM    SRAA+1
00095  M00S00064.compsra +++|          SHN    -14
00096  M00S00065.compsra +++|          LMC    ADCI
00097  M00S00066.compsra +++|          STM    SRAA
00098  M00S00067.compsra +++|          ENDIF
00099  M00S00068.compsra +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00069.242l642 ---|          LDD    T7          RANDOM ADDRESS = CURRENT SECTOR
00101  M01S00070.242l642 ---|          STD    RI+1
00102  M01S00071.242l642 ---|          SHN    -14
00103  M01S00072.242l642 ---|          STD    RI
00104  M00S00073.compsra ---|          LDD    T3          BEGIN WITH FIRST TRACK
00105  M01S00074.242l642 ---|          UJN    SRA2

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

Seq #  *Modification Id* Act 
----------------------------+
00106  M01S00024.242l642 +++|          UJP    SRA2        ENTER LOOP
00107  M00S00075.compsra +++|          SPACE  4
00108  M00S00076.compsra +++| QUAL$    IF     -DEF,QUAL$
00109  M00S00077.compsra +++|          QUAL   *
00110  M00S00078.compsra +++| SRA      EQU    /COMPSRA/SRA
00111  M00S00079.compsra +++| SRAA     EQU    /COMPSRA/SRAA
00112  M00S00080.compsra +++| QUAL$    ENDIF
00113  M00S00081.compsra +++|          ENDX