User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:compsdn

Common COMPSDN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsdn ---|          CTEXT  COMPSDN - SEARCH FOR DEVICE NUMBER.
00002  M00S00002.compsdn ---|          IF     -DEF,QUAL$,1
00003  M00S00003.compsdn ---|          QUAL   COMPSDN
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compsdn +++| SDN      SPACE  4
00006  M00S00005.compsdn +++|***       SDN - SEARCH FOR DEVICE NUMBER.
00007  M00S00006.compsdn +++|*         J. L. WARDELL.     72/08/30.
00008  M00S00007.compsdn +++|*         P. D. HAAS.        74/10/16.
00009  M00S00008.compsdn +++|          SPACE  4
00010  M00S00009.compsdn +++|***              SDN SETS EST ORDINAL FOR DEVICE NUMBER SPECIFIED.
00011  M00S00010.compsdn +++|*
00012  M00S00011.compsdn +++|*         ENTRY  (A) = EST ORDINAL OF FAMILY.
00013  M00S00012.compsdn +++|*                (CM) = DEVICE NUMBER.
00014  M00S00013.compsdn +++|*
00015  M00S00014.compsdn +++|*         EXIT   (A) = MST/10 ADDRESS OF DEVICE FOUND.
00016  M00S00015.compsdn +++|*                (A) = -1 IF DEVICE NOT FOUND.
00017  M00S00016.compsdn +++|*                (A) = -2 IF DEVICE ACCESS DENIED BY *SETMS*.
00018  M00S00017.compsdn +++|*                (T5) = EST ORDINAL OF DEVICE.
00019  M00S00018.compsdn +++|*
00020  M00S00019.compsdn +++|*         USES   T0 - T7, CM - CM+6.
00021  M00S00020.compsdn +++|*
00022  M00S00021.compsdn +++|*         MACROS SETMS, SFA.
00023  M00S00022.compsdn +++|
00024  M00S00023.compsdn +++|
00025  M00S00024.compsdn +++|*         PROCESS DEVICE NOT FOUND.
00026  M00S00025.compsdn +++|
00027  M00S00026.compsdn +++| SDN6     LCN    1           SET EXIT CONDITION
00028  M00S00027.compsdn +++|
00029  M00S00028.compsdn +++| SDN      SUBR               ENTRY/EXIT
00030  M00S00029.compsdn +++|          SFA    EST         READ EST ENTRY
00031  M00S00030.compsdn +++|          ADK    EQDE
00032  M00S00031.compsdn +++|          CRD    T0
00033  M00S00032.compsdn +++|          LDD    T0+4        GET FAMILY NAME
00034  M00S00033.compsdn +++|          SHN    3
00035  M00S00034.compsdn +++|          ADN    PFGL
00036  M00S00035.compsdn +++|          CRM    SDNA,ON
00037  M00S00036.compsdn +++|          LDM    SDNA+3      SET PROPER DEVICE NUMBER FOR SEARCH
00038  M00S00037.compsdn +++|          SCN    77
00039  M00S00038.compsdn +++|          LMD    CM
00040  M00S00039.compsdn +++|          STM    SDNA+3
00041  M00S00040.compsdn +++|          LDN    ESTP        GET EST POINTERS
00042  M00S00041.compsdn +++|          CRD    T0
00043  M00S00042.compsdn +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00044  M00S00043.compsdn +++|          STD    T5
00045  M00S00044.compsdn +++|          LDD    T0+3        SET LAST MASS STORAGE ORDINAL + 1
00046  M00S00045.compsdn +++|          STD    T6
00047  M00S00046.compsdn +++|
00048  M00S00047.compsdn +++|*         SEARCH FOR DEVICE.
00049  M00S00048.compsdn +++|
00050  M00S00049.compsdn +++| SDN1     AOD    T5          ADVANCE EST ORDINAL
00051  M00S00050.compsdn +++|          LMD    T6
00052  M00S00051.compsdn +++|          ZJN    SDN6        IF END OF MASS STORAGE EST
00053  M00S00052.compsdn +++|          SFA    EST,T5      READ EST ENTRY
00054  M00S00053.compsdn +++|          ADK    EQDE
00055  M00S00054.compsdn +++|          CRD    T0
00056  M00S00055.compsdn +++|          LDD    T0          CHECK DEVICE STATUS
00057  M00S00056.compsdn +++|          SHN    -6
00058  M00S00057.compsdn +++|          LPN    41
00059  M00S00058.compsdn +++|          LMN    40
00060  M00S00059.compsdn +++|          NJN    SDN1        IF NOT AVAILABLE OR NON MS DEVICE
00061  M00S00060.compsdn +++|
00062  M00S00061.compsdn +++|*         DETERMINE IF DEVICE IS ACTIVE, AVAILABLE PF DEVICE.
00063  M00S00062.compsdn +++|
00064  M00S00063.compsdn +++|          LDD    T0+4        READ *STLL* WORD OF MST
00065  M00S00064.compsdn +++|          SHN    3
00066  M00S00065.compsdn +++|          ADN    STLL
00067  M00S00066.compsdn +++|          CRD    CM
00068  M00S00067.compsdn +++|          SBN    STLL-MDGL
00069  M00S00068.compsdn +++|          CRD    CM+1
00070  M00S00069.compsdn +++|          SBN    MDGL-PFGL   GET PF DESCRIPTOR WORD
00071  M00S00070.compsdn +++|          CRD    CM+2
00072  M00S00071.compsdn +++|          LDD    CM
00073  M00S00072.compsdn +++|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
00074  M00S00073.compsdn +++| SDN2     NJN    SDN1        IF UNAVAILABLE OR INITIALIZE PENDING
00075  M00S00074.compsdn +++|          LDD    CM+1
00076  M00S00075.compsdn +++|          SHN    21-12
00077  M00S00076.compsdn +++|          MJN    SDN1        IF AUXILIARY DEVICE
00078  M00S00077.compsdn +++|
00079  M00S00078.compsdn +++|*         COMPARE FAMILY NAME AND DEVICE NUMBER WITH THAT REQUESTED.
00080  M00S00079.compsdn +++|
00081  M00S00080.compsdn +++|          LDN    CM+2
00082  M00S00081.compsdn +++|          STD    T7
00083  M00S00082.compsdn +++| SDN3     LDM    SDNA-CM-2,T7
00084  M00S00083.compsdn +++|          LMI    T7
00085  M00S00084.compsdn +++|          NJN    SDN2        IF NAMES DONT MATCH
00086  M00S00085.compsdn +++|          AOD    T7          ADVANCE POINTER
00087  M00S00086.compsdn +++|          LMN    CM+6
00088  M00S00087.compsdn +++|          NJN    SDN3        LOOP FOR FOUR BYTES
00089  M00S00088.compsdn +++|
00090  M00S00089.compsdn +++|*         DETERMINE IF DEVICE CAN BE ACCESSED.
00091  M00S00090.compsdn +++|
00092  M00S00091.compsdn +++|          SETMS  STATUS
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00093  M01S00001.ns2776  +++|          LDM    MSD
00094  M01S00002.ns2776  +++|          SHN    21-6
00095  M00S00092.compsdn +++|          MJN    SDN5        IF DEVICE NOT TO BE ACCESSED
00096  M00S00093.compsdn +++|          LDD    T0+4
00097  M00S00094.compsdn +++| SDN4     LJM    SDNX        RETURN
00098  M00S00095.compsdn +++|
00099  M00S00096.compsdn +++| SDN5     LCN    2
00100  M00S00097.compsdn +++|          UJN    SDN4        RETURN
00101  M00S00098.compsdn +++|
00102  M00S00099.compsdn +++|
00103  M00S00100.compsdn +++| SDNA     BSSZ   5           FAMILY NAME
00104  M00S00101.compsdn +++|          SPACE  4
00105  M00S00102.compsdn +++| QUAL$    IF     -DEF,QUAL$
00106  M00S00103.compsdn +++|          QUAL   *
00107  M00S00104.compsdn +++| SDN      EQU    /COMPSDN/SDN
00108  M00S00105.compsdn +++| QUAL$    ENDIF
00109  M00S00106.compsdn +++|          ENDX
cdc/nos2.source/opl.opl871/common/compsdn.txt ยท Last modified: by 127.0.0.1