Common COMPSDI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsdi +++|          CTEXT  COMPSDI - SET LOCAL MST UTILITY INTERLOCK.
00002  M00S00002.compsdi +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compsdi +++|          QUAL   COMPSDI

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compsdi +++|          SPACE  4
00006  M00S00005.compsdi +++|***       SDI - SET LOCAL MST UTILITY INTERLOCK.
00007  M00S00006.compsdi +++|*         J. L. WARDELL      72/08/23.
00008  M00S00007.compsdi +++|*         S. L. KSANDER.     75/05/26.
00009  M00S00008.compsdi +++|          SPACE  4
00010  M00S00009.compsdi +++|***              SDI SETS THE LOCAL MST UTILITY INTERLOCK.
00011  M00S00010.compsdi +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00011.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER OF DEVICE TO INTERLOCK.

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

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL OF DEVICE TO INTERLOCK.
00014  M00S00012.compsdi +++|*
00015  M00S00013.compsdi +++|*         EXIT   (A) .NE. 0, INTERLOCK SET.
00016  M00S00014.compsdi +++|*                IF (A) = 0, THEN *ORET* ERROR FLAG SET.
00017  M00S00015.compsdi +++|*
00018  M00S00016.compsdi +++|*         USES   CM - CM+4.
00019  M00S00017.compsdi +++|
00020  M00S00018.compsdi +++|
00021  M00S00019.compsdi +++| SDI2     LDN    1           SET INTERLOCK COMPLETE
00022  M00S00020.compsdi +++|
00023  M00S00021.compsdi +++| SDI      SUBR               ENTRY/EXIT

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

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00022.ns22000 ---| SDI1     LDD    T5          SET EQUIPMENT NUMBER IN REQUEST

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

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00002.ns22000 +++| SDI1     LDD    T5          SET EST ORDINAL IN REQUEST
00026  M00S00023.compsdi +++|          STD    CM+1
00027  M00S00024.compsdi +++|          LDN    SLBS        SET LOCAL MST BIT
00028  M00S00025.compsdi +++|          STD    CM+3
00029  M00S00026.compsdi +++|          LDN    1           SET INTERLOCK BIT NUMBER
00030  M00S00027.compsdi +++|          STD    CM+2

Line S00028 Modification History
`M01` (Removed by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00028.253l688 ---|          MONITOR  STBM

Line S00001 Modification History
`M01` (Added by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00001.253l688 +++|          MONITOR  SMDM
00033  M00S00029.compsdi +++|          LDD    CM+1
00034  M00S00030.compsdi +++|          ZJN    SDI2        IF INTERLOCKED
00035  M00S00031.compsdi +++|          PAUSE
00036  M00S00032.compsdi +++|          DELAY
00037  M00S00033.compsdi +++|          LDD    CM+1

Line S00034 Modification History
`M01` (Removed by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00034.251l664 ---|          LPN    37
00039  M00S00035.compsdi +++|          LMN    ORET
00040  M00S00036.compsdi +++|          NJN    SDI1        IF NOT OPERATOR OVERRIDE
00041  M00S00037.compsdi +++|          UJN    SDIX        RETURN WITH ERROR INDICATION
00042  M00S00038.compsdi +++|          SPACE  4
00043  M00S00039.compsdi +++| QUAL$    IF     -DEF,QUAL$
00044  M00S00040.compsdi +++|          QUAL   *
00045  M00S00041.compsdi +++| SDI      EQU    /COMPSDI/SDI
00046  M00S00042.compsdi +++| QUAL$    ENDIF
00047  M00S00043.compsdi +++|          ENDX