COMSMRT 
COMMON
          CTEXT  COMSMRT - MACHINE RECOVERY EQUIVALENCES. 
  
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSMRT - MACHINE RECOVERY EQUIVALENCES.
*         R. J. PRIEVE.      75/02/15.
          SPACE  4
***       COMSMRT CONTAINS EQUIVALENCES WHICH ARE USED
*         BY THE MACHINE RECOVERY UTILITY *MREC* AND THE
*         MACHINE RECOVERY PROCESSOR *1MR*. 
          SPACE  4
**        FUNCTIONS ISSUED TO *1MR* BY *MREC*.
  
  
 BEGIN    BSSN   0
 RDI      BSSN   1           RETRIEVE DISPLAY INFORMATION 
 PMT      BSSN   1           PROCESS DAT-S, MRT-S AND RESERVES
 UMT      BSSN   1           UPDATE MST ENTRIES IN CM 
 CDV      BSSN   1           CLEAR DEVICE INTERLOCKS (*MTE*/*CPUMTR*) 
 PRB      BSSN   1           PROCESS RESERVES AND BAT-S 
 MFUN     BSSN   1           MAXIMUM FUNCTIONS
 END      BSSN
          SPACE  4
**        WORDS IN *MREC,S* FL READ AND WRITTEN BY *1MR*. 
  
  
 COM      EQU    150B        BEGINNING OF COMMON STORAGE
 MASK     EQU    COM         *MMFL* WORD OF DOWNED MACHINE
 RCLW     EQU    MASK+1      *1MR* RECALL WORD
 ERRW     EQU    RCLW+1      ERROR RETURN WORD
 TMID     EQU    ERRW+1      TABLE OF *MMFL* WORDS
 COML     EQU    TMID+MXMF+MMPF-COM  LENGTH OF COMMON STORAGE 
          SPACE  4
**        ERROR CODES - RETURNED TO WORD *ERRW* (BYTE 4) IN *MREC,S*
*         FIELD LENGTH IF LINK DEVICE ERROR.  IN THE CASE OF RESERVE
*         SITUATIONS, *ERRW* HAS THE FOLLOWING FORMAT.
* 
*T, ERRW  12/,12/ ID,12/ IN,12/ EQ,12/ EC 
* 
*         ID     RELATIVE UNIT NUMBER FOR UNIT RESERVE. 
*                CHANNEL NUMBER FOR CONTROLLER RESERVE. 
* 
*         IN     CURRENT POSITION IN *TRDV* TABLE.
* 
*         EQ     EST ORDINAL. 
* 
*         EC     ERROR CODE.
  
  
 RER      EQU    1           UNRECOVERABLE READ ERROR 
 WER      EQU    2           UNRECOVERABLE WRITE ERROR
 URS      EQU    3           UNIT RESERVED
 CRS      EQU    4           CONTROLLER RESERVED
          SPACE  4
**        CODES PLACED IN BYTE 0 OF APPROPRIATE EQUIPMENT ENTRY IN
*         TABLE *TRDV* IN *MREC,S* FL.  THESE CODES ARE USED WHEN 
*         PROCESSING UNIT AND CONTROLLER RESERVES.  THE OPTIONS TO
*         IGNORE A DEVICE OR RELEASE ALL RESERVES WILL BE DONE
*         ONLY IF SELECTED BY THE OPERATOR. 
  
  
 PRO      EQU    1           DEVICE HAS BEEN PROCESSED
 IGN      EQU    2           IGNORE DEVICE
 REL      EQU    3           RELEASE ALL UNIT RESERVES
          SPACE  4
          ENDX
