Common COMPIRA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compira +++|          CTEXT  COMPIRA - INITIALIZE RANDOM ACCESS PROCESSORS.
00002  M00S00002.compira +++| IRA      SPACE  4
00003  M00S00003.compira +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compira +++|          QUAL   COMPIRA

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.compira +++| IRA      SPACE  4
00008  M00S00007.compira +++|***       IRA - INITIALIZE RANDOM ACCESS PROCESSORS.
00009  M00S00008.compira +++|*         G. R. MANSFIELD.  70/08/09.
00010  M00S00009.compira +++|          SPACE  4
00011  M00S00010.compira +++|***              IRA INITIALIZES THE SEVERAL RANDOM ACCESS PROCESSORS.
00012  M00S00011.compira +++|*         IT MUST BE ASSEMBLED AFTER ALL RANDOM ACCESS PROCESSORS.
00013  M00S00012.compira +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00016  M00S00014.compira +++|*
00017  M00S00015.compira +++|*         EXIT   NONE.
00018  M00S00016.compira +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00017.242l642 ---|*         USES   CM - CM+4.
00020  M01S00018.242l642 ---|*
00021  M01S00019.242l642 ---|*         MACROS SETMS.
00022  M01S00020.242l642 ---|          SPACE  4
00023  M01S00021.242l642 ---|*         INSTRUCTIONS USED AS CONSTANTS.
00024  M01S00022.242l642 ---|
00025  M01S00023.242l642 ---|
00026  M01S00024.242l642 ---| ADCI     EQU    2100        ADC

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

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00001.242l642 +++|*         USES   T7, CM - CM+4.
00028  M01S00002.242l642 +++|*
00029  M01S00003.242l642 +++|*         MACROS SFA.
00030  M00S00025.compira +++|
00031  M00S00026.compira +++|
00032  M00S00027.compira +++| IRA      SUBR               ENTRY/EXIT

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

Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00028.242l642 ---|          SETMS
00034  M01S00029.242l642 ---|          LDD    CM+4        SET FWA OF TRT
00035  M01S00030.242l642 ---|          SHN    3

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00002.242l642 ---|          ADN    TRLL
00038  M02S00003.242l642 ---|          CRD    CM
00039  M02S00004.242l642 ---|          LDD    CM+3

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

Seq #  *Modification Id* Act 
----------------------------+
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

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

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00055  M01S00016.242l642 +++|          LMD    T7+4
00056  M00S00032.compira +++|          SBD    TH          4000/2
00057  M00S00033.compira +++|
00058  M00S00034.compira +++|          IF     DEF,CRA,1
00059  M00S00035.compira +++|          STM    CRAA+1
00060  M00S00036.compira +++|          IF     DEF,SEI,1
00061  M00S00037.compira +++|          STM    SEIA+1
00062  M00S00038.compira +++|          IF     DEF,SNT,1
00063  M00S00039.compira +++|          STM    SNTA+1
00064  M00S00040.compira +++|          IF     DEF,SRA,1
00065  M00S00041.compira +++|          STM    SRAA+1
00066  M00S00042.compira +++|
00067  M00S00043.compira +++|          SHN    -14
00068  M00S00044.compira +++|          LMC    ADCI
00069  M00S00045.compira +++|
00070  M00S00046.compira +++|          IF     DEF,CRA,1
00071  M00S00047.compira +++|          STM    CRAA
00072  M00S00048.compira +++|          IF     DEF,SEI,1
00073  M00S00049.compira +++|          STM    SEIA
00074  M00S00050.compira +++|          IF     DEF,SNT,1
00075  M00S00051.compira +++|          STM    SNTA
00076  M00S00052.compira +++|          IF     DEF,SRA,1
00077  M00S00053.compira +++|          STM    SRAA
00078  M00S00054.compira +++|
00079  M00S00055.compira +++|          LJM    IRAX        RETURN
00080  M00S00056.compira +++|          SPACE  4
00081  M00S00057.compira +++| QUAL$    IF     -DEF,QUAL$
00082  M00S00058.compira +++|          QUAL   *
00083  M00S00059.compira +++| IRA      EQU    /COMPIRA/IRA
00084  M00S00060.compira +++| QUAL$    ENDIF
00085  M00S00061.compira +++|          ENDX