Common COMPSRA

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsra +++|          CTEXT  COMPSRA - SET RANDOM ADDRESS.
00002  M01S00002.compsra +++| SRA      SPACE  4
00003  M01S00003.compsra +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compsra +++|          QUAL   COMPSRA

Line S00005 Modification History
`M01` (Added by)	`compsra`
`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.compsra +++| SRA      SPACE  4
00008  M01S00007.compsra +++|***       SRA - SET RANDOM ADDRESS.
00009  M01S00008.compsra +++|*         G. R. MANSFIELD.  70/08/09.
00010  M01S00009.compsra +++|          SPACE  4
00011  M01S00010.compsra +++|***              SRA DETERMINES THE RANDOM ADDRESS CORRESPONDING TO
00012  M01S00011.compsra +++|*         A GIVEN TRACK AND SECTOR.
00013  M01S00012.compsra +++|*
00014  M01S00013.compsra +++|*         IF *IRA$* IS DEFINED, INITIALIZATION IS ASSUMED TO BE
00015  M01S00014.compsra +++|*         PERFORMED.  DECK -COMPIRA- CAN BE USED TO DO THIS.
00016  M01S00015.compsra +++|*
00017  M01S00016.compsra +++|*         ENTRY  (A) = FIRST TRACK.

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

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00019  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00020  M01S00018.compsra +++|*                (T6) = CURRENT TRACK.
00021  M01S00019.compsra +++|*                (T7) = CURRENT SECTOR.
00022  M01S00020.compsra +++|*
00023  M01S00021.compsra +++|*         EXIT   (RI - RI+1) = RANDOM ADDRESS.
00024  M01S00022.compsra +++|*                (A) " 0 IF TRACK AND SECTOR NOT ON TRACK CHAIN.
00025  M01S00023.compsra +++|*
00026  M01S00024.compsra +++|*         USES   T1, T3, CM - CM+4.
00027  M01S00025.compsra +++|*

Line S00026 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00026.242l642 ---|*         MACROS SETMS, IF INITIALIZATION NEEDED.

Line S00027 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00027.242l642 ---|          SPACE  4

Line S00028 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00028.242l642 ---|*         INSTRUCTIONS USED AS CONSTANTS.

Line S00029 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00029.242l642 ---|

Line S00030 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00030.242l642 ---|

Line S00031 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00031.242l642 ---| ADCI     EQU    2100        ADC
00034  M01S00001.242l642 +++|*         MACROS SFA.
00035  M01S00002.242l642 +++|*
00036  M01S00003.242l642 +++|*         XREF   COMSPIM.
00037  M01S00032.compsra +++|
00038  M01S00033.compsra +++|
00039  M01S00034.compsra +++| SRA1     SHN    -6          CHECK TRACK
00040  M01S00035.compsra +++|          LMD    T6
00041  M01S00036.compsra +++|          ZJN    SRAX        IF CURRENT TRACK REACHED
00042  M01S00037.compsra +++|          LMD    T6          SET NEXT TRACK
00043  M01S00038.compsra +++|          STD    T0
00044  M01S00039.compsra +++|          LPN    3
00045  M01S00040.compsra +++|          STD    T1

Line S00041 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00041.242l642 ---|          LDM    SLM
00047  M01S00004.242l642 +++|          LDP    SLM
00048  M01S00042.compsra +++|          RAD    RI+1
00049  M01S00043.compsra +++|          SHN    -14
00050  M01S00044.compsra +++|          RAD    RI
00051  M01S00045.compsra +++|          LDD    T0          READ TRT WORD
00052  M01S00046.compsra +++|          SHN    -2
00053  M01S00047.compsra +++| SRAA     ADC    TRTS
00054  M01S00048.compsra +++|          CRD    CM
00055  M01S00049.compsra +++|          LDM    CM,T1       CHECK NEXT LINK
00056  M01S00050.compsra +++| SRA2     SHN    6
00057  M01S00051.compsra +++|          MJN    SRA1        IF NOT END OF CHAIN
00058  M01S00052.compsra +++|          LDN    1           RETURN ERROR RESPONSE
00059  M01S00053.compsra +++|
00060  M01S00054.compsra +++| SRA      SUBR               ENTRY/EXIT
00061  M01S00055.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  M01S00056.compsra +++|
00067  M01S00057.compsra +++|          IF     -DEF,IRA$

Line S00058 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00058.242l642 ---|          SETMS

Line S00059 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00059.242l642 ---|          LDD    CM+4        SET FWA OF TRT

Line S00060 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00060.242l642 ---|          SHN    3

Line S00061 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`ns22000`
`M03` (Updated by)	`242l642`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00002.242l642 ---|          ADN    TRLL

Line S00003 Modification History
`M01` (Added by)	`ns22000`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00003.242l642 ---|          CRD    CM

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

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00004.242l642 ---|          LDD    CM+3
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
00089  M01S00005.ns22000 +++|          LPN    77
00090  M01S00006.ns22000 +++|          SHN    14

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

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00007.242l642 ---|          LMD    CM+4
00092  M01S00023.242l642 +++|          LMD    T7+4
00093  M01S00062.compsra +++|          SBD    TH          4000/2
00094  M01S00063.compsra +++|          STM    SRAA+1
00095  M01S00064.compsra +++|          SHN    -14
00096  M01S00065.compsra +++|          LMC    ADCI
00097  M01S00066.compsra +++|          STM    SRAA
00098  M01S00067.compsra +++|          ENDIF
00099  M01S00068.compsra +++|

Line S00069 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00069.242l642 ---|          LDD    T7          RANDOM ADDRESS = CURRENT SECTOR

Line S00070 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00070.242l642 ---|          STD    RI+1

Line S00071 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00071.242l642 ---|          SHN    -14

Line S00072 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00072.242l642 ---|          STD    RI
00104  M01S00073.compsra +++|          LDD    T3          BEGIN WITH FIRST TRACK

Line S00074 Modification History
`M01` (Added by)	`compsra`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00074.242l642 ---|          UJN    SRA2
00106  M01S00024.242l642 +++|          UJP    SRA2        ENTER LOOP
00107  M01S00075.compsra +++|          SPACE  4
00108  M01S00076.compsra +++| QUAL$    IF     -DEF,QUAL$
00109  M01S00077.compsra +++|          QUAL   *
00110  M01S00078.compsra +++| SRA      EQU    /COMPSRA/SRA
00111  M01S00079.compsra +++| SRAA     EQU    /COMPSRA/SRAA
00112  M01S00080.compsra +++| QUAL$    ENDIF
00113  M01S00081.compsra +++|          ENDX