Common COMPCTI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcti +++|          CTEXT  COMPCTI - CLEAR TRACK INTERLOCK.

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

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00002.242l642 ---|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00001.242l642 +++| CTI      SPACE  4,10
00004  M00S00003.compcti +++|          IF     -DEF,QUAL$,1
00005  M00S00004.compcti +++|          QUAL   COMPCTI

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1972.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

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

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00006.242l642 ---|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00002.242l642 +++| CTI      SPACE  4,10
00010  M00S00007.compcti +++|***       CTI - CLEAR TRACK INTERLOCK.
00011  M00S00008.compcti +++|*         J. L. WARDELL      72/05/24.

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

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00009.242l642 ---|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00003.242l642 +++| CTI      SPACE  4,15
00014  M00S00010.compcti +++|***              CTI CLEARS WRITE INTERLOCK FOR TRACK SPECIFIED.
00015  M00S00011.compcti +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00012.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT ORDINAL.

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

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00001.242l642 ---|*         ENTRY  (T5) = EST ORDINAL.

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

Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00013.242l642 ---|*                (A) = TRACK.
00019  M01S00014.242l642 ---|*

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

Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00004.242l642 +++|*         ENTRY  (A) = TRACK NUMBER.
00021  M01S00005.242l642 +++|*                (T5) = EST ORDINAL.
00022  M01S00006.242l642 +++|*
00023  M01S00007.242l642 +++|*         EXIT   (A) = 0.
00024  M00S00015.compcti +++|*
00025  M00S00016.compcti +++|*         USES   CM - CM+4.
00026  M00S00017.compcti +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00018.242l642 ---|*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE OF COMSCPS.

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

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00008.242l642 +++|*         MACROS MONITOR.
00029  M01S00009.242l642 +++|*
00030  M01S00010.242l642 +++|*         XREF   COMSCPS.
00031  M00S00019.compcti +++|
00032  M00S00020.compcti +++|
00033  M00S00021.compcti +++| CTI      SUBR               ENTRY/EXIT
00034  M00S00022.compcti +++|          STD    CM+2        SET TRACK

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

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00023.ns22000 ---|          LDD    T5          SET EQUIPMENT NUMBER

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

Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00002.ns22000 +++|          LDD    T5          SET EST ORDINAL
00037  M00S00024.compcti +++|          STD    CM+1
00038  M00S00025.compcti +++|          LDN    CTIS        CLEAR TRACK INTERLOCK
00039  M00S00026.compcti +++|          STD    CM+3
00040  M00S00027.compcti +++|          MONITOR STBM

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

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00028.242l642 ---|          UJN    CTIX        EXIT
00042  M01S00029.242l642 ---|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00011.242l642 +++|*         LDN    0
00044  M01S00012.242l642 +++|          UJN    CTIX        RETURN
00045  M01S00013.242l642 +++|          SPACE  4,10
00046  M00S00030.compcti +++| QUAL$    IF     -DEF,QUAL$
00047  M00S00031.compcti +++|          QUAL   *
00048  M00S00032.compcti +++| CTI      EQU    /COMPCTI/CTI
00049  M00S00033.compcti +++| QUAL$    ENDIF
00050  M00S00034.compcti +++|          ENDX