Common COMPCUT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compcut +++|          CTEXT  COMPCUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
00002  M01S00002.compcut +++|          SPACE  4
00003  M01S00003.compcut +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compcut +++|          QUAL   COMPCUT

Line S00005 Modification History
`M01` (Added by)	`compcut`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compcut +++| CUT      SPACE  4
00008  M01S00007.compcut +++|***       CUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
00009  M01S00008.compcut +++|*         R. J. THIELEN.     75/04/17.
00010  M01S00009.compcut +++|*         C. R. LUND.        81/06/09.
00011  M01S00010.compcut +++| CUT      SPACE  4
00012  M01S00011.compcut +++|***              CUT CLEARS THE PERMANENT FILE DEVICE INTERLOCK ON A
00013  M01S00012.compcut +++|*         MASS STORAGE EQUIPMENT.
00014  M01S00013.compcut +++|*

Line S00014 Modification History
`M01` (Added by)	`compcut`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00014.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT TO CLEAR INTERLOCK ON.
00016  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL TO CLEAR INTERLOCK ON.
00017  M01S00015.compcut +++|*
00018  M01S00016.compcut +++|*         USES   CM - CM+4.
00019  M01S00017.compcut +++|*
00020  M01S00018.compcut +++|*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE
00021  M01S00019.compcut +++|*                OF *COMSCPS* AND *COMSEVT*.
00022  M01S00020.compcut +++|
00023  M01S00021.compcut +++|
00024  M01S00022.compcut +++| CUT      SUBR               ENTRY/EXIT

Line S00023 Modification History
`M01` (Added by)	`compcut`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00023.ns22000 ---|          LDD    T5          SET EQUIPMENT PARAMETER
00026  M01S00002.ns22000 +++|          LDD    T5          SET EST ORDINAL
00027  M01S00024.compcut +++|          STD    CM+1
00028  M01S00025.compcut +++|          LDN    CPIS        CLEAR DEVICE INTERLOCK
00029  M01S00026.compcut +++|          STD    CM+3
00030  M01S00027.compcut +++|          MONITOR STBM
00031  M01S00028.compcut +++|          LDN    ZERL
00032  M01S00029.compcut +++|          CRD    CM
00033  M01S00030.compcut +++|          LDN    PFUE        ISSUE EVENT NOTICE FOR CLEARED INTERLOCK
00034  M01S00031.compcut +++|          STD    CM+4
00035  M01S00032.compcut +++|          MONITOR  EATM
00036  M01S00033.compcut +++|          UJN    CUTX        EXIT
00037  M01S00034.compcut +++|          SPACE  4
00038  M01S00035.compcut +++| QUAL$    IF     -DEF,QUAL$
00039  M01S00036.compcut +++|          QUAL   *
00040  M01S00037.compcut +++| CUT      EQU    /COMPCUT/CUT
00041  M01S00038.compcut +++| QUAL$    ENDIF
00042  M01S00039.compcut +++|          ENDX