Common COMPDTS

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compdts +++|          CTEXT  COMPDTS - DETERMINE TRACK INTERLOCK STATUS.
00002  M01S00002.compdts +++|          SPACE  4
00003  M01S00003.compdts +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compdts +++|          QUAL   COMPDTS

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compdts +++|          SPACE  4
00008  M01S00007.compdts +++|***       DTS - DETERMINE TRACK INTERLOCK STATUS.
00009  M01S00008.compdts +++|*         J. L. WARDELL.     72/06/01.
00010  M01S00009.compdts +++|*         S. L. KSANDER.     75/04/28.
00011  M01S00010.compdts +++|          SPACE  4

Line S00011 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00011.253l688 ---|***              COMPDTS DETERMINES IF WRITE INTERLOCK IS SET FOR
00013  M01S00001.253l688 +++|***       COMPDTS DETERMINES IF THE TRACK INTERLOCK IS SET FOR THE
00014  M01S00012.compdts +++|*         TRACK SPECIFIED.
00015  M01S00013.compdts +++|*
00016  M01S00002.253l688 +++|*         IF *DTS$* IS DEFINED, CHECK FOR INACCESSIBLE DEVICE.
00017  M01S00003.253l688 +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00014.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.
00019  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00020  M01S00015.compdts +++|*                (T6) = TRACK.
00021  M01S00016.compdts +++|*

Line S00017 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`253l688`

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

Line S00020 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00020.ns22000 ---|*                FIRST WORD OF THE MESSAGE BUFFER IS USED IF ECS

Line S00021 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00021.ns22000 ---|*                TRANSFER IS REQUIRED.

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

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00022.ns22000 ---|*

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

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00023.ns22000 ---|*         REQUIRES COMMON DECK *COMPMMF*.
00031  M01S00002.ns22000 +++|*
00032  M01S00003.ns22000 +++|*         MACROS MONITOR, SFA.
00033  M01S00024.compdts +++|          SPACE  4
00034  M01S00025.compdts +++|**        INSTRUCTIONS USED AS CONSTANTS.
00035  M01S00026.compdts +++|
00036  M01S00027.compdts +++|
00037  M01S00028.compdts +++| SHNI     EQU    1000        SHN
00038  M01S00029.compdts +++|
00039  M01S00030.compdts +++|
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  M01S00031.compdts +++| DTS      SUBR               ENTRY/EXIT

Line S00032 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00032.ns22000 ---|          LDM    ESTS        READ EST ENTRY

Line S00033 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00033.ns22000 ---|          ADD    T5
00047  M01S00004.ns22000 +++|          SFA    EST,T5      READ EST ENTRY
00048  M01S00005.ns22000 +++|          ADK    EQDE
00049  M01S00034.compdts +++|          CRD    CM
00050  M01S00035.compdts +++|          LDD    CM
00051  M01S00036.compdts +++|          SHN    21-11
00052  M01S00037.compdts +++|          PJN    DTS1        IF NOT SHARED DEVICE
00053  M01S00038.compdts +++|          LDD    T5          REQUEST UP-TO-DATE TRT
00054  M01S00010.253l688 +++| DTS$     IF     DEF,DTS$
00055  M01S00011.253l688 +++|          ADD    TH
00056  M01S00012.253l688 +++| DTS$     ENDIF
00057  M01S00039.compdts +++|          STD    CM+1
00058  M01S00040.compdts +++|          LDN    UTRS
00059  M01S00041.compdts +++|          STD    CM+3
00060  M01S00042.compdts +++|          MONITOR STBM
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  M01S00043.compdts +++| DTS1     LDD    T6          GET WORD OFFSET
00067  M01S00044.compdts +++|          LPC    3774
00068  M01S00045.compdts +++|          SHN    -2
00069  M01S00046.compdts +++|          STD    T0

Line S00047 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`ns22000`

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

Line S00049 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00049.ns22000 ---|          ADN    MSTL        ADD MST LENGTH
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  M01S00050.compdts +++|          ADD    T0          ADD TRT WORD OFFSET
00081  M01S00051.compdts +++|          CRD    CM          READ TRT WORD
00082  M01S00052.compdts +++|          LDD    T6          SET SHIFT COUNT
00083  M01S00053.compdts +++|          LPN    3
00084  M01S00054.compdts +++|          ADC    SHNI+12
00085  M01S00055.compdts +++|          STM    DTSA
00086  M01S00056.compdts +++|          LDD    CM+4
00087  M01S00057.compdts +++| DTSA     SHN    12

Line S00058 Modification History
`M01` (Added by)	`compdts`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00058.253l688 ---| DTS3     LJM    DTSX
00089  M01S00018.253l688 +++| DTS3     UJP    DTSX        RETURN
00090  M01S00059.compdts +++|          SPACE  4
00091  M01S00060.compdts +++| QUAL$    IF     -DEF,QUAL$
00092  M01S00061.compdts +++|          QUAL   *
00093  M01S00062.compdts +++| DTS      EQU    /COMPDTS/DTS
00094  M01S00063.compdts +++| QUAL$    ENDIF
00095  M01S00064.compdts +++|          ENDX