Common COMPSDI

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsdi +++|          CTEXT  COMPSDI - SET LOCAL MST UTILITY INTERLOCK.
00002  M01S00002.compsdi +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compsdi +++|          QUAL   COMPSDI
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compsdi +++|          SPACE  4
00006  M01S00005.compsdi +++|***       SDI - SET LOCAL MST UTILITY INTERLOCK.
00007  M01S00006.compsdi +++|*         J. L. WARDELL      72/08/23.
00008  M01S00007.compsdi +++|*         S. L. KSANDER.     75/05/26.
00009  M01S00008.compsdi +++|          SPACE  4
00010  M01S00009.compsdi +++|***              SDI SETS THE LOCAL MST UTILITY INTERLOCK.
00011  M01S00010.compsdi +++|*

Line S00011 Modification History
`M01` (Added by)	`compsdi`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00011.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER OF DEVICE TO INTERLOCK.
00013  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL OF DEVICE TO INTERLOCK.
00014  M01S00012.compsdi +++|*
00015  M01S00013.compsdi +++|*         EXIT   (A) .NE. 0, INTERLOCK SET.
00016  M01S00014.compsdi +++|*                IF (A) = 0, THEN *ORET* ERROR FLAG SET.
00017  M01S00015.compsdi +++|*
00018  M01S00016.compsdi +++|*         USES   CM - CM+4.
00019  M01S00017.compsdi +++|
00020  M01S00018.compsdi +++|
00021  M01S00019.compsdi +++| SDI2     LDN    1           SET INTERLOCK COMPLETE
00022  M01S00020.compsdi +++|
00023  M01S00021.compsdi +++| SDI      SUBR               ENTRY/EXIT

Line S00022 Modification History
`M01` (Added by)	`compsdi`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00022.ns22000 ---| SDI1     LDD    T5          SET EQUIPMENT NUMBER IN REQUEST
00025  M01S00002.ns22000 +++| SDI1     LDD    T5          SET EST ORDINAL IN REQUEST
00026  M01S00023.compsdi +++|          STD    CM+1
00027  M01S00024.compsdi +++|          LDN    SLBS        SET LOCAL MST BIT
00028  M01S00025.compsdi +++|          STD    CM+3
00029  M01S00026.compsdi +++|          LDN    1           SET INTERLOCK BIT NUMBER
00030  M01S00027.compsdi +++|          STD    CM+2

Line S00028 Modification History
`M01` (Added by)	`compsdi`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00028.253l688 ---|          MONITOR  STBM
00032  M01S00001.253l688 +++|          MONITOR  SMDM
00033  M01S00029.compsdi +++|          LDD    CM+1
00034  M01S00030.compsdi +++|          ZJN    SDI2        IF INTERLOCKED
00035  M01S00031.compsdi +++|          PAUSE
00036  M01S00032.compsdi +++|          DELAY
00037  M01S00033.compsdi +++|          LDD    CM+1

Line S00034 Modification History
`M01` (Added by)	`compsdi`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00034.251l664 ---|          LPN    37
00039  M01S00035.compsdi +++|          LMN    ORET
00040  M01S00036.compsdi +++|          NJN    SDI1        IF NOT OPERATOR OVERRIDE
00041  M01S00037.compsdi +++|          UJN    SDIX        RETURN WITH ERROR INDICATION
00042  M01S00038.compsdi +++|          SPACE  4
00043  M01S00039.compsdi +++| QUAL$    IF     -DEF,QUAL$
00044  M01S00040.compsdi +++|          QUAL   *
00045  M01S00041.compsdi +++| SDI      EQU    /COMPSDI/SDI
00046  M01S00042.compsdi +++| QUAL$    ENDIF
00047  M01S00043.compsdi +++|          ENDX