COMSMSI 
COMMON
          CTEXT  COMSMSI - MSI/PP EQUIVALENCES. 
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSMSI - MSI/PP EQUIVALENCES.
*         P. D. HAAS.        76/03/02.
          SPACE  4
***              COMSMSI DEFINES EQUIVALENCES FOR COMMUNICATION 
*         BETWEEN MSI AND PP ROUTINES.
          SPACE  4,10 
**        MACRO DEFINITIONS.
  
  
          MACRO  DFCN,TAG,VAL 
          IFCP
 TAG      EQU    VAL*100B 
          ELSE   1
 TAG_F    EQU    VAL
          ENDM
          SPACE  4,10 
**        FUNCTION CODES FOR *MSI* / *IMS* COMMUNICATION. 
  
  
 IND      DFCN   01          INITIALIZE DEVICE
 EDT      DFCN   02          EDIT DIRECT ACCESS FILES 
 SFL      DFCN   03          SET FLAWS
 CSD      DFCN   04          CHECK SHARED DEVICE
 ILA      DFCN   05          INITIALIZE LOCAL AREAS 
 MMS      DFCN   06          MODIFY MASS STORAGE TABLES 
 CIN      DFCN   07          CLEAR INITIALIZE REQUEST 
 IDF      DFCN   10          INITIALIZE DAYFILES
 CIT      DFCN   11          CLEAR *CMS* INTERLOCK
 ISD      DFCN   12          INTERLOCK INDEPENDENT SHARED DEVICE
 IFMX     DFCN   13          MAXIMUM INITIALIZATION FUNCTION
          SPACE  4
**        ADDRESSES RELATIVE TO *RA*. 
  
  
 PREQ     EQU    20          LOCATION FOR PP REQUEST TO MSI 
          SPACE  4
**        FUNCTION CODES FOR PP REQUESTS. 
  
  
          LOC    1
 PCLR     BSS    1           CLEAR INITIALIZATION REQUEST 
 PRRN     BSS    1           PROCESS *RERUN* COMMAND
 PTKL     BSS    1           PROCESS TRACK LIMIT
          SPACE  4,10 
**        TABLE SIZE FOR FLAWS. 
  
  
 PNFE     EQU    16          MAXIMUM NUMBER OF FLAW ENTRIES 
          SPACE  4
          BASE   *
          ENDX
