User Tools

Site Tools


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

Common COMPSDN

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsdn +++|          CTEXT  COMPSDN - SEARCH FOR DEVICE NUMBER.
00002  M01S00002.compsdn +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compsdn +++|          QUAL   COMPSDN
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compsdn +++| SDN      SPACE  4
00006  M01S00005.compsdn +++|***       SDN - SEARCH FOR DEVICE NUMBER.
00007  M01S00006.compsdn +++|*         J. L. WARDELL.     72/08/30.
00008  M01S00007.compsdn +++|*         P. D. HAAS.        74/10/16.
00009  M01S00008.compsdn +++|          SPACE  4
00010  M01S00009.compsdn +++|***              SDN SETS EST ORDINAL FOR DEVICE NUMBER SPECIFIED.
00011  M01S00010.compsdn +++|*
00012  M01S00011.compsdn +++|*         ENTRY  (A) = EST ORDINAL OF FAMILY.
00013  M01S00012.compsdn +++|*                (CM) = DEVICE NUMBER.
00014  M01S00013.compsdn +++|*
00015  M01S00014.compsdn +++|*         EXIT   (A) = MST/10 ADDRESS OF DEVICE FOUND.
00016  M01S00015.compsdn +++|*                (A) = -1 IF DEVICE NOT FOUND.
00017  M01S00016.compsdn +++|*                (A) = -2 IF DEVICE ACCESS DENIED BY *SETMS*.
00018  M01S00017.compsdn +++|*                (T5) = EST ORDINAL OF DEVICE.
00019  M01S00018.compsdn +++|*
00020  M01S00019.compsdn +++|*         USES   T0 - T7, CM - CM+6.
00021  M01S00020.compsdn +++|*
00022  M01S00021.compsdn +++|*         MACROS SETMS, SFA.
00023  M01S00022.compsdn +++|
00024  M01S00023.compsdn +++|
00025  M01S00024.compsdn +++|*         PROCESS DEVICE NOT FOUND.
00026  M01S00025.compsdn +++|
00027  M01S00026.compsdn +++| SDN6     LCN    1           SET EXIT CONDITION
00028  M01S00027.compsdn +++|
00029  M01S00028.compsdn +++| SDN      SUBR               ENTRY/EXIT
00030  M01S00029.compsdn +++|          SFA    EST         READ EST ENTRY
00031  M01S00030.compsdn +++|          ADK    EQDE
00032  M01S00031.compsdn +++|          CRD    T0
00033  M01S00032.compsdn +++|          LDD    T0+4        GET FAMILY NAME
00034  M01S00033.compsdn +++|          SHN    3
00035  M01S00034.compsdn +++|          ADN    PFGL
00036  M01S00035.compsdn +++|          CRM    SDNA,ON
00037  M01S00036.compsdn +++|          LDM    SDNA+3      SET PROPER DEVICE NUMBER FOR SEARCH
00038  M01S00037.compsdn +++|          SCN    77
00039  M01S00038.compsdn +++|          LMD    CM
00040  M01S00039.compsdn +++|          STM    SDNA+3
00041  M01S00040.compsdn +++|          LDN    ESTP        GET EST POINTERS
00042  M01S00041.compsdn +++|          CRD    T0
00043  M01S00042.compsdn +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00044  M01S00043.compsdn +++|          STD    T5
00045  M01S00044.compsdn +++|          LDD    T0+3        SET LAST MASS STORAGE ORDINAL + 1
00046  M01S00045.compsdn +++|          STD    T6
00047  M01S00046.compsdn +++|
00048  M01S00047.compsdn +++|*         SEARCH FOR DEVICE.
00049  M01S00048.compsdn +++|
00050  M01S00049.compsdn +++| SDN1     AOD    T5          ADVANCE EST ORDINAL
00051  M01S00050.compsdn +++|          LMD    T6
00052  M01S00051.compsdn +++|          ZJN    SDN6        IF END OF MASS STORAGE EST
00053  M01S00052.compsdn +++|          SFA    EST,T5      READ EST ENTRY
00054  M01S00053.compsdn +++|          ADK    EQDE
00055  M01S00054.compsdn +++|          CRD    T0
00056  M01S00055.compsdn +++|          LDD    T0          CHECK DEVICE STATUS
00057  M01S00056.compsdn +++|          SHN    -6
00058  M01S00057.compsdn +++|          LPN    41
00059  M01S00058.compsdn +++|          LMN    40
00060  M01S00059.compsdn +++|          NJN    SDN1        IF NOT AVAILABLE OR NON MS DEVICE
00061  M01S00060.compsdn +++|
00062  M01S00061.compsdn +++|*         DETERMINE IF DEVICE IS ACTIVE, AVAILABLE PF DEVICE.
00063  M01S00062.compsdn +++|
00064  M01S00063.compsdn +++|          LDD    T0+4        READ *STLL* WORD OF MST
00065  M01S00064.compsdn +++|          SHN    3
00066  M01S00065.compsdn +++|          ADN    STLL
00067  M01S00066.compsdn +++|          CRD    CM
00068  M01S00067.compsdn +++|          SBN    STLL-MDGL
00069  M01S00068.compsdn +++|          CRD    CM+1
00070  M01S00069.compsdn +++|          SBN    MDGL-PFGL   GET PF DESCRIPTOR WORD
00071  M01S00070.compsdn +++|          CRD    CM+2
00072  M01S00071.compsdn +++|          LDD    CM
00073  M01S00072.compsdn +++|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
00074  M01S00073.compsdn +++| SDN2     NJN    SDN1        IF UNAVAILABLE OR INITIALIZE PENDING
00075  M01S00074.compsdn +++|          LDD    CM+1
00076  M01S00075.compsdn +++|          SHN    21-12
00077  M01S00076.compsdn +++|          MJN    SDN1        IF AUXILIARY DEVICE
00078  M01S00077.compsdn +++|
00079  M01S00078.compsdn +++|*         COMPARE FAMILY NAME AND DEVICE NUMBER WITH THAT REQUESTED.
00080  M01S00079.compsdn +++|
00081  M01S00080.compsdn +++|          LDN    CM+2
00082  M01S00081.compsdn +++|          STD    T7
00083  M01S00082.compsdn +++| SDN3     LDM    SDNA-CM-2,T7
00084  M01S00083.compsdn +++|          LMI    T7
00085  M01S00084.compsdn +++|          NJN    SDN2        IF NAMES DONT MATCH
00086  M01S00085.compsdn +++|          AOD    T7          ADVANCE POINTER
00087  M01S00086.compsdn +++|          LMN    CM+6
00088  M01S00087.compsdn +++|          NJN    SDN3        LOOP FOR FOUR BYTES
00089  M01S00088.compsdn +++|
00090  M01S00089.compsdn +++|*         DETERMINE IF DEVICE CAN BE ACCESSED.
00091  M01S00090.compsdn +++|
00092  M01S00091.compsdn +++|          SETMS  STATUS
00093  M01S00001.ns2776  +++|          LDM    MSD
00094  M01S00002.ns2776  +++|          SHN    21-6
00095  M01S00092.compsdn +++|          MJN    SDN5        IF DEVICE NOT TO BE ACCESSED
00096  M01S00093.compsdn +++|          LDD    T0+4
00097  M01S00094.compsdn +++| SDN4     LJM    SDNX        RETURN
00098  M01S00095.compsdn +++|
00099  M01S00096.compsdn +++| SDN5     LCN    2
00100  M01S00097.compsdn +++|          UJN    SDN4        RETURN
00101  M01S00098.compsdn +++|
00102  M01S00099.compsdn +++|
00103  M01S00100.compsdn +++| SDNA     BSSZ   5           FAMILY NAME
00104  M01S00101.compsdn +++|          SPACE  4
00105  M01S00102.compsdn +++| QUAL$    IF     -DEF,QUAL$
00106  M01S00103.compsdn +++|          QUAL   *
00107  M01S00104.compsdn +++| SDN      EQU    /COMPSDN/SDN
00108  M01S00105.compsdn +++| QUAL$    ENDIF
00109  M01S00106.compsdn +++|          ENDX
cdc/nos2.source/opl.opl871/common/compsdn.txt ยท Last modified: by 127.0.0.1