Common COMPCUT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcut +++|          CTEXT  COMPCUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
00002  M00S00002.compcut +++|          SPACE  4
00003  M00S00003.compcut +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compcut +++|          QUAL   COMPCUT

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compcut +++| CUT      SPACE  4
00008  M00S00007.compcut +++|***       CUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
00009  M00S00008.compcut +++|*         R. J. THIELEN.     75/04/17.
00010  M00S00009.compcut +++|*         C. R. LUND.        81/06/09.
00011  M00S00010.compcut +++| CUT      SPACE  4
00012  M00S00011.compcut +++|***              CUT CLEARS THE PERMANENT FILE DEVICE INTERLOCK ON A
00013  M00S00012.compcut +++|*         MASS STORAGE EQUIPMENT.
00014  M00S00013.compcut +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00014.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT TO CLEAR INTERLOCK ON.

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

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL TO CLEAR INTERLOCK ON.
00017  M00S00015.compcut +++|*
00018  M00S00016.compcut +++|*         USES   CM - CM+4.
00019  M00S00017.compcut +++|*
00020  M00S00018.compcut +++|*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE
00021  M00S00019.compcut +++|*                OF *COMSCPS* AND *COMSEVT*.
00022  M00S00020.compcut +++|
00023  M00S00021.compcut +++|
00024  M00S00022.compcut +++| CUT      SUBR               ENTRY/EXIT

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00002.ns22000 +++|          LDD    T5          SET EST ORDINAL
00027  M00S00024.compcut +++|          STD    CM+1
00028  M00S00025.compcut +++|          LDN    CPIS        CLEAR DEVICE INTERLOCK
00029  M00S00026.compcut +++|          STD    CM+3
00030  M00S00027.compcut +++|          MONITOR STBM
00031  M00S00028.compcut +++|          LDN    ZERL
00032  M00S00029.compcut +++|          CRD    CM
00033  M00S00030.compcut +++|          LDN    PFUE        ISSUE EVENT NOTICE FOR CLEARED INTERLOCK
00034  M00S00031.compcut +++|          STD    CM+4
00035  M00S00032.compcut +++|          MONITOR  EATM
00036  M00S00033.compcut +++|          UJN    CUTX        EXIT
00037  M00S00034.compcut +++|          SPACE  4
00038  M00S00035.compcut +++| QUAL$    IF     -DEF,QUAL$
00039  M00S00036.compcut +++|          QUAL   *
00040  M00S00037.compcut +++| CUT      EQU    /COMPCUT/CUT
00041  M00S00038.compcut +++| QUAL$    ENDIF
00042  M00S00039.compcut +++|          ENDX