Common COMPSNT

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsnt +++|          CTEXT  COMPSNT - SET NEXT TRACK.
00002  M01S00002.compsnt +++| SNT      SPACE  4
00003  M01S00003.compsnt +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compsnt +++|          QUAL   COMPSNT

Line S00005 Modification History
`M01` (Added by)	`compsnt`
`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.compsnt +++| SNT      SPACE  4
00008  M01S00007.compsnt +++|***       SNT - SET NEXT TRACK.
00009  M01S00008.compsnt +++|*         G. R. MANSFIELD.  70/08/09.
00010  M01S00009.compsnt +++|          SPACE  4
00011  M01S00010.compsnt +++|***              SNT DETERMINES THE NEXT TRACK IN THE TRACK LINK
00012  M01S00011.compsnt +++|*         TABLE.
00013  M01S00012.compsnt +++|*
00014  M01S00013.compsnt +++|*         IF *IRA$* IS DEFINED, INITIALIZATION IS ASSUMED TO BE
00015  M01S00014.compsnt +++|*         PERFORMED.  DECK -COMPIRA- CAN BE USED TO DO THIS.
00016  M01S00015.compsnt +++|*

Line S00016 Modification History
`M01` (Added by)	`compsnt`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00016.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00018  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00019  M01S00017.compsnt +++|*                (T6) = CURRENT TRACK.
00020  M01S00018.compsnt +++|*
00021  M01S00019.compsnt +++|*         EXIT   (A) = NEXT TRACK LINK.
00022  M01S00020.compsnt +++|*                (CM - CM+4) = WORD READ FROM TRT.
00023  M01S00021.compsnt +++|*                (T1) = BYTE NUMBER.
00024  M01S00022.compsnt +++|*
00025  M01S00023.compsnt +++|*         USES   T1, CM - CM+4.
00026  M01S00024.compsnt +++|*

Line S00025 Modification History
`M01` (Added by)	`compsnt`
`M02` (Updated by)	`242l642`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00026.242l642 ---|          SPACE  4

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

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

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

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00030.242l642 ---| ADCI     EQU    2100        ADC
00033  M01S00001.242l642 +++|*         MACROS SFA.
00034  M01S00002.242l642 +++|*
00035  M01S00003.242l642 +++|*         XREF   COMSPIM.
00036  M01S00031.compsnt +++|
00037  M01S00032.compsnt +++|
00038  M01S00033.compsnt +++| SNT      SUBR               ENTRY/EXIT
00039  M01S00034.compsnt +++|
00040  M01S00035.compsnt +++|          IF     -DEF,IRA$

Line S00036 Modification History
`M01` (Added by)	`compsnt`
`M02` (Updated by)	`242l642`

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

Line S00039 Modification History
`M01` (Added by)	`compsnt`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00039.ns22000 ---|          ADN    MSTL
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  M01S00040.compsnt +++|          SBD    TH          4000/2
00055  M01S00041.compsnt +++|          STM    SNTA+1
00056  M01S00042.compsnt +++|          SHN    -14
00057  M01S00043.compsnt +++|          LMC    ADCI
00058  M01S00044.compsnt +++|          STM    SNTA
00059  M01S00045.compsnt +++|          ENDIF
00060  M01S00046.compsnt +++|
00061  M01S00047.compsnt +++|          LDD    T6          READ TRT WORD
00062  M01S00048.compsnt +++|          SHN    -2
00063  M01S00049.compsnt +++| SNTA     ADC    TRTS
00064  M01S00050.compsnt +++|          CRD    CM
00065  M01S00051.compsnt +++|          LDD    T6          SET BYTE INDEX
00066  M01S00052.compsnt +++|          LPN    3
00067  M01S00053.compsnt +++|          STD    T1
00068  M01S00054.compsnt +++|          LDM    CM,T1       RETURN WITH NEXT LINK

Line S00055 Modification History
`M01` (Added by)	`compsnt`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00055.242l642 ---|          UJN    SNTX
00070  M01S00007.242l642 +++|          UJP    SNTX        RETURN
00071  M01S00056.compsnt +++|          SPACE  4
00072  M01S00057.compsnt +++| QUAL$    IF     -DEF,QUAL$
00073  M01S00058.compsnt +++|          QUAL   *
00074  M01S00059.compsnt +++| SNT      EQU    /COMPSNT/SNT
00075  M01S00060.compsnt +++| SNTA     EQU    /COMPSNT/SNTA
00076  M01S00061.compsnt +++| QUAL$    ENDIF
00077  M01S00062.compsnt +++|          ENDX