Common COMPIRA

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compira +++|          CTEXT  COMPIRA - INITIALIZE RANDOM ACCESS PROCESSORS.
00002  M01S00002.compira +++| IRA      SPACE  4
00003  M01S00003.compira +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compira +++|          QUAL   COMPIRA

Line S00005 Modification History
`M01` (Added by)	`compira`
`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.compira +++| IRA      SPACE  4
00008  M01S00007.compira +++|***       IRA - INITIALIZE RANDOM ACCESS PROCESSORS.
00009  M01S00008.compira +++|*         G. R. MANSFIELD.  70/08/09.
00010  M01S00009.compira +++|          SPACE  4
00011  M01S00010.compira +++|***              IRA INITIALIZES THE SEVERAL RANDOM ACCESS PROCESSORS.
00012  M01S00011.compira +++|*         IT MUST BE ASSEMBLED AFTER ALL RANDOM ACCESS PROCESSORS.
00013  M01S00012.compira +++|*

Line S00013 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00013.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00015  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00016  M01S00014.compira +++|*
00017  M01S00015.compira +++|*         EXIT   NONE.
00018  M01S00016.compira +++|*

Line S00017 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00017.242l642 ---|*         USES   CM - CM+4.

Line S00018 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00018.242l642 ---|*

Line S00019 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00019.242l642 ---|*         MACROS SETMS.

Line S00020 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00020.242l642 ---|          SPACE  4

Line S00021 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`242l642`

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

Line S00022 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00022.242l642 ---|

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

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00023.242l642 ---|

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

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00024.242l642 ---| ADCI     EQU    2100        ADC
00027  M01S00001.242l642 +++|*         USES   T7, CM - CM+4.
00028  M01S00002.242l642 +++|*
00029  M01S00003.242l642 +++|*         MACROS SFA.
00030  M01S00025.compira +++|
00031  M01S00026.compira +++|
00032  M01S00027.compira +++| IRA      SUBR               ENTRY/EXIT

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

Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00028.242l642 ---|          SETMS

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00030.242l642 ---|          SHN    3

Line S00031 Modification History
`M01` (Added by)	`compira`
`M02` (Updated by)	`ns22000`
`M03` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00036  M03S00031.242l642 ---|          ADN    MSTL

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

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00004.242l642 ---|          LDD    CM+3
00040  M01S00004.242l642 +++|          SFA    EST,T5      READ EST ENTRY
00041  M01S00005.242l642 +++|          ADK    EQDE
00042  M01S00006.242l642 +++|          CRD    CM
00043  M01S00007.242l642 +++|          LDD    CM+4
00044  M01S00008.242l642 +++|          SHN    3
00045  M01S00009.242l642 +++|          ADK    MDGL
00046  M01S00010.242l642 +++|          CRD    CM
00047  M01S00011.242l642 +++|          ADK    TRLL-MDGL
00048  M01S00012.242l642 +++|          CRD    T7
00049  M01S00013.242l642 +++|          LDD    CM+4        SET SECTOR LIMIT
00050  M01S00014.242l642 +++|          STP    SLM
00051  M01S00015.242l642 +++|          LDD    T7+3        SET TRT FWA
00052  M01S00005.ns22000 +++|          LPN    77
00053  M01S00006.ns22000 +++|          SHN    14

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

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00007.242l642 ---|          LMD    CM+4
00055  M01S00016.242l642 +++|          LMD    T7+4
00056  M01S00032.compira +++|          SBD    TH          4000/2
00057  M01S00033.compira +++|
00058  M01S00034.compira +++|          IF     DEF,CRA,1
00059  M01S00035.compira +++|          STM    CRAA+1
00060  M01S00036.compira +++|          IF     DEF,SEI,1
00061  M01S00037.compira +++|          STM    SEIA+1
00062  M01S00038.compira +++|          IF     DEF,SNT,1
00063  M01S00039.compira +++|          STM    SNTA+1
00064  M01S00040.compira +++|          IF     DEF,SRA,1
00065  M01S00041.compira +++|          STM    SRAA+1
00066  M01S00042.compira +++|
00067  M01S00043.compira +++|          SHN    -14
00068  M01S00044.compira +++|          LMC    ADCI
00069  M01S00045.compira +++|
00070  M01S00046.compira +++|          IF     DEF,CRA,1
00071  M01S00047.compira +++|          STM    CRAA
00072  M01S00048.compira +++|          IF     DEF,SEI,1
00073  M01S00049.compira +++|          STM    SEIA
00074  M01S00050.compira +++|          IF     DEF,SNT,1
00075  M01S00051.compira +++|          STM    SNTA
00076  M01S00052.compira +++|          IF     DEF,SRA,1
00077  M01S00053.compira +++|          STM    SRAA
00078  M01S00054.compira +++|
00079  M01S00055.compira +++|          LJM    IRAX        RETURN
00080  M01S00056.compira +++|          SPACE  4
00081  M01S00057.compira +++| QUAL$    IF     -DEF,QUAL$
00082  M01S00058.compira +++|          QUAL   *
00083  M01S00059.compira +++| IRA      EQU    /COMPIRA/IRA
00084  M01S00060.compira +++| QUAL$    ENDIF
00085  M01S00061.compira +++|          ENDX