COMPSMI 
COMMON
          CTEXT  COMPSMI - SET MACHINE INDEX. 
 SMI      SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   COMPSMI
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SMI      SPACE  4,10 
***       SMI - SET MACHINE INDEX.
*         J. J. EIKUM.       81/06/01.
 SMI      SPACE  4,10 
***              SMI DETERMINES THE MACHINE INDEX FOR A MASS STORAGE
*         DEVICE. 
* 
*         ENTRY  (T5) = EST ORDINAL.
* 
*         EXIT   (A) = MACHINE INDEX. 
* 
*         USES   CM - CM+4. 
* 
*         MACROS SFA. 
  
  
 SMI      SUBR               ENTRY/EXIT 
          SFA    EST,T5      GET MST ADDRESS
          ADK    EQDE 
          CRD    CM 
          LDD    CM+4        GET MACHINE INDEX FROM MST 
          SHN    3
          ADN    DULL 
          CRD    CM 
          LDD    CM+2 
          LPN    17 
          ADN    1
          UJN    SMIX        RETURN 
 SMI      SPACE  4,10 
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SMI      EQU    /COMPSMI/SMI 
 QUAL$    ENDIF 
          ENDX
