Common COMPSNT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsnt +++|          CTEXT  COMPSNT - SET NEXT TRACK.
00002  M00S00002.compsnt +++| SNT      SPACE  4
00003  M00S00003.compsnt +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsnt +++|          QUAL   COMPSNT

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.compsnt +++| SNT      SPACE  4
00008  M00S00007.compsnt +++|***       SNT - SET NEXT TRACK.
00009  M00S00008.compsnt +++|*         G. R. MANSFIELD.  70/08/09.
00010  M00S00009.compsnt +++|          SPACE  4
00011  M00S00010.compsnt +++|***              SNT DETERMINES THE NEXT TRACK IN THE TRACK LINK
00012  M00S00011.compsnt +++|*         TABLE.
00013  M00S00012.compsnt +++|*
00014  M00S00013.compsnt +++|*         IF *IRA$* IS DEFINED, INITIALIZATION IS ASSUMED TO BE
00015  M00S00014.compsnt +++|*         PERFORMED.  DECK -COMPIRA- CAN BE USED TO DO THIS.
00016  M00S00015.compsnt +++|*

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00019  M00S00017.compsnt +++|*                (T6) = CURRENT TRACK.
00020  M00S00018.compsnt +++|*
00021  M00S00019.compsnt +++|*         EXIT   (A) = NEXT TRACK LINK.
00022  M00S00020.compsnt +++|*                (CM - CM+4) = WORD READ FROM TRT.
00023  M00S00021.compsnt +++|*                (T1) = BYTE NUMBER.
00024  M00S00022.compsnt +++|*
00025  M00S00023.compsnt +++|*         USES   T1, CM - CM+4.
00026  M00S00024.compsnt +++|*

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00001.242l642 +++|*         MACROS SFA.
00034  M01S00002.242l642 +++|*
00035  M01S00003.242l642 +++|*         XREF   COMSPIM.
00036  M00S00031.compsnt +++|
00037  M00S00032.compsnt +++|
00038  M00S00033.compsnt +++| SNT      SUBR               ENTRY/EXIT
00039  M00S00034.compsnt +++|
00040  M00S00035.compsnt +++|          IF     -DEF,IRA$

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

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00036.242l642 ---|          SETMS

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

Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00004.242l642 +++|          SFA    EST,T5      READ EST ENTRY
00043  M01S00005.242l642 +++|          ADK    EQDE
00044  M01S00006.242l642 +++|          CRD    CM
00045  M00S00037.compsnt +++|          LDD    CM+4        SET FWA OF TRT
00046  M00S00038.compsnt +++|          SHN    3

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

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00039.ns22000 ---|          ADN    MSTL

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

Seq #  *Modification Id* Act 
----------------------------+
00048  M01S00002.ns22000 +++|          ADN    TRLL
00049  M01S00003.ns22000 +++|          CRD    CM
00050  M01S00004.ns22000 +++|          LDD    CM+3
00051  M01S00005.ns22000 +++|          LPN    77
00052  M01S00006.ns22000 +++|          SHN    14
00053  M01S00007.ns22000 +++|          LMD    CM+4
00054  M00S00040.compsnt +++|          SBD    TH          4000/2
00055  M00S00041.compsnt +++|          STM    SNTA+1
00056  M00S00042.compsnt +++|          SHN    -14
00057  M00S00043.compsnt +++|          LMC    ADCI
00058  M00S00044.compsnt +++|          STM    SNTA
00059  M00S00045.compsnt +++|          ENDIF
00060  M00S00046.compsnt +++|
00061  M00S00047.compsnt +++|          LDD    T6          READ TRT WORD
00062  M00S00048.compsnt +++|          SHN    -2
00063  M00S00049.compsnt +++| SNTA     ADC    TRTS
00064  M00S00050.compsnt +++|          CRD    CM
00065  M00S00051.compsnt +++|          LDD    T6          SET BYTE INDEX
00066  M00S00052.compsnt +++|          LPN    3
00067  M00S00053.compsnt +++|          STD    T1
00068  M00S00054.compsnt +++|          LDM    CM,T1       RETURN WITH NEXT LINK

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

Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00055.242l642 ---|          UJN    SNTX

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

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00007.242l642 +++|          UJP    SNTX        RETURN
00071  M00S00056.compsnt +++|          SPACE  4
00072  M00S00057.compsnt +++| QUAL$    IF     -DEF,QUAL$
00073  M00S00058.compsnt +++|          QUAL   *
00074  M00S00059.compsnt +++| SNT      EQU    /COMPSNT/SNT
00075  M00S00060.compsnt +++| SNTA     EQU    /COMPSNT/SNTA
00076  M00S00061.compsnt +++| QUAL$    ENDIF
00077  M00S00062.compsnt +++|          ENDX