Common COMPDTS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compdts +++|          CTEXT  COMPDTS - DETERMINE TRACK INTERLOCK STATUS.
00002  M00S00002.compdts +++|          SPACE  4
00003  M00S00003.compdts +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compdts +++|          QUAL   COMPDTS

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compdts +++|          SPACE  4
00008  M00S00007.compdts +++|***       DTS - DETERMINE TRACK INTERLOCK STATUS.
00009  M00S00008.compdts +++|*         J. L. WARDELL.     72/06/01.
00010  M00S00009.compdts +++|*         S. L. KSANDER.     75/04/28.
00011  M00S00010.compdts +++|          SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00011.253l688 ---|***              COMPDTS DETERMINES IF WRITE INTERLOCK IS SET FOR

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

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00001.253l688 +++|***       COMPDTS DETERMINES IF THE TRACK INTERLOCK IS SET FOR THE
00014  M00S00012.compdts +++|*         TRACK SPECIFIED.
00015  M00S00013.compdts +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00002.253l688 +++|*         IF *DTS$* IS DEFINED, CHECK FOR INACCESSIBLE DEVICE.
00017  M01S00003.253l688 +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00014.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00020  M00S00015.compdts +++|*                (T6) = TRACK.
00021  M00S00016.compdts +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00017.253l688 ---|*         EXIT   (A) .LT. 0 IF WRITE INTERLOCK SET FOR TRACK.

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

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00004.253l688 +++|*         EXIT   (A) .LT. 0 IF TRACK INTERLOCK SET.
00024  M01S00005.253l688 +++|*                (A) = 0 IF INACCESSIBLE DEVICE (DTS$ DEFINED).
00025  M00S00018.compdts +++|*
00026  M00S00019.compdts +++|*         USES   CM - CM+4.

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

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00020.ns22000 ---|*                FIRST WORD OF THE MESSAGE BUFFER IS USED IF ECS
00028  M01S00021.ns22000 ---|*                TRANSFER IS REQUIRED.
00029  M01S00022.ns22000 ---|*
00030  M01S00023.ns22000 ---|*         REQUIRES COMMON DECK *COMPMMF*.

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

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00002.ns22000 +++|*
00032  M01S00003.ns22000 +++|*         MACROS MONITOR, SFA.
00033  M00S00024.compdts +++|          SPACE  4
00034  M00S00025.compdts +++|**        INSTRUCTIONS USED AS CONSTANTS.
00035  M00S00026.compdts +++|
00036  M00S00027.compdts +++|
00037  M00S00028.compdts +++| SHNI     EQU    1000        SHN
00038  M00S00029.compdts +++|
00039  M00S00030.compdts +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00006.253l688 +++| DTS$     IF     DEF,DTS$
00041  M01S00007.253l688 +++| DTS4     LDN    0           RETURN INACCESSIBLE-DEVICE FLAG
00042  M01S00008.253l688 +++| DTS$     ENDIF
00043  M01S00009.253l688 +++|
00044  M00S00031.compdts +++| DTS      SUBR               ENTRY/EXIT

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

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00032.ns22000 ---|          LDM    ESTS        READ EST ENTRY
00046  M01S00033.ns22000 ---|          ADD    T5

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

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00004.ns22000 +++|          SFA    EST,T5      READ EST ENTRY
00048  M01S00005.ns22000 +++|          ADK    EQDE
00049  M00S00034.compdts +++|          CRD    CM
00050  M00S00035.compdts +++|          LDD    CM
00051  M00S00036.compdts +++|          SHN    21-11
00052  M00S00037.compdts +++|          PJN    DTS1        IF NOT SHARED DEVICE
00053  M00S00038.compdts +++|          LDD    T5          REQUEST UP-TO-DATE TRT

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

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00010.253l688 +++| DTS$     IF     DEF,DTS$
00055  M01S00011.253l688 +++|          ADD    TH
00056  M01S00012.253l688 +++| DTS$     ENDIF
00057  M00S00039.compdts +++|          STD    CM+1
00058  M00S00040.compdts +++|          LDN    UTRS
00059  M00S00041.compdts +++|          STD    CM+3
00060  M00S00042.compdts +++|          MONITOR STBM

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

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00013.253l688 +++| DTS$     IF     DEF,DTS$
00062  M01S00014.253l688 +++|          LDD    CM+1
00063  M01S00015.253l688 +++|          SHN    21-11
00064  M01S00016.253l688 +++|          MJN    DTS4        IF DEVICE IS INACCESSIBLE
00065  M01S00017.253l688 +++| DTS$     ENDIF
00066  M00S00043.compdts +++| DTS1     LDD    T6          GET WORD OFFSET
00067  M00S00044.compdts +++|          LPC    3774
00068  M00S00045.compdts +++|          SHN    -2
00069  M00S00046.compdts +++|          STD    T0

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

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00047.ns22000 ---|          LDD    CM+4        READ TRT WORD

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

Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00006.ns22000 +++|          LDD    CM+4        GET FWA OF TRT
00072  M00S00048.compdts +++|          SHN    3

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

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00049.ns22000 ---|          ADN    MSTL        ADD MST LENGTH

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

Seq #  *Modification Id* Act 
----------------------------+
00074  M01S00007.ns22000 +++|          ADN    TRLL
00075  M01S00008.ns22000 +++|          CRD    CM
00076  M01S00009.ns22000 +++|          LDD    CM+3
00077  M01S00010.ns22000 +++|          LPN    77
00078  M01S00011.ns22000 +++|          SHN    14
00079  M01S00012.ns22000 +++|          LMD    CM+4
00080  M00S00050.compdts +++|          ADD    T0          ADD TRT WORD OFFSET
00081  M00S00051.compdts +++|          CRD    CM          READ TRT WORD
00082  M00S00052.compdts +++|          LDD    T6          SET SHIFT COUNT
00083  M00S00053.compdts +++|          LPN    3
00084  M00S00054.compdts +++|          ADC    SHNI+12
00085  M00S00055.compdts +++|          STM    DTSA
00086  M00S00056.compdts +++|          LDD    CM+4
00087  M00S00057.compdts +++| DTSA     SHN    12

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

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00058.253l688 ---| DTS3     LJM    DTSX

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

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00018.253l688 +++| DTS3     UJP    DTSX        RETURN
00090  M00S00059.compdts +++|          SPACE  4
00091  M00S00060.compdts +++| QUAL$    IF     -DEF,QUAL$
00092  M00S00061.compdts +++|          QUAL   *
00093  M00S00062.compdts +++| DTS      EQU    /COMPDTS/DTS
00094  M00S00063.compdts +++| QUAL$    ENDIF
00095  M00S00064.compdts +++|          ENDX