Common COMPSDA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsda +++|          CTEXT  COMPSDA - SET DEVICE AVAILABLE.
00002  M00S00002.compsda +++| SDA      SPACE  4,10
00003  M00S00003.compsda +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsda +++|          QUAL   COMPSDA

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compsda +++| SDA      SPACE  4,10
00008  M00S00007.compsda +++|***       SDA - SET DEVICE AVAILABLE.
00009  M00S00008.compsda +++|*         P. D. HAAS         86/04/16.
00010  M00S00009.compsda +++| SDA      SPACE  4,15
00011  M00S00010.compsda +++|***              SDA SETS A MASS STORAGE DEVICE AVAILABLE FOR
00012  M00S00011.compsda +++|*         USE BY THE SYSTEM.  PRIOR TO THIS, SDA WILL SET THE
00013  M00S00012.compsda +++|*         DEVICE SUSPECT FLAG IF DISK VALIDATION IS ENABLED,
00014  M00S00013.compsda +++|*         THUS ENABLING *1MV* TO PERFORM PATH VERIFICATION.
00015  M00S00014.compsda +++|*
00016  M00S00015.compsda +++|*
00017  M00S00016.compsda +++|*         ENTRY  (T5) = EST ORDINAL.
00018  M00S00017.compsda +++|*
00019  M00S00018.compsda +++|*         EXIT   (A) = 0.
00020  M00S00019.compsda +++|*
00021  M00S00020.compsda +++|*         USES   CM - CM+4.
00022  M00S00021.compsda +++|*
00023  M00S00022.compsda +++|*         MACROS MONITOR.
00024  M00S00023.compsda +++|
00025  M00S00024.compsda +++|
00026  M00S00025.compsda +++| SDA      SUBR               ENTRY/EXIT
00027  M00S00026.compsda +++|          LDN    SSTL
00028  M00S00027.compsda +++|          CRD    CM          FETCH SYSTEM STATUS WORD
00029  M00S00028.compsda +++|          LDD    CM+1
00030  M00S00029.compsda +++|          LPN    40
00031  M00S00030.compsda +++|          NJN    SDA1        IF DISK VALIDATION DISABLED
00032  M00S00031.compsda +++|          LDD    T5
00033  M00S00032.compsda +++|          STD    CM+1
00034  M00S00033.compsda +++|          LDN    SSES        SET SUBFUNCTION
00035  M00S00034.compsda +++|          STD    CM+2
00036  M00S00035.compsda +++|          MONITOR  SEQM      SET DEVICE SUSPECT
00037  M00S00036.compsda +++| SDA1     LDD    T5
00038  M00S00037.compsda +++|          STD    CM+1
00039  M00S00038.compsda +++|          LDC    -110        MASK (CLEAR UNAVAILABLE)
00040  M00S00039.compsda +++|          STD    CM+3
00041  M00S00040.compsda +++|          LDN    10          DEVICE ACTIVE FLAG
00042  M00S00041.compsda +++|          STD    CM+4
00043  M00S00042.compsda +++|          LDN    SB0S        SET DEVICE AVAILABLE
00044  M00S00043.compsda +++|          STD    CM+2
00045  M00S00044.compsda +++|          MONITOR  SEQM
00046  M00S00045.compsda +++|          UJN    SDAX        RETURN
00047  M00S00046.compsda +++| SDA      SPACE  4,10
00048  M00S00047.compsda +++|          IF     -DEF,QUAL$
00049  M00S00048.compsda +++|          QUAL   *
00050  M00S00049.compsda +++| SDA      EQU    /COMPSDA/SDA
00051  M00S00050.compsda +++|          ENDIF
00052  M00S00051.compsda +++|          ENDX