COMS1RM 
COMMON
          CTEXT  COMS1RM - MASS STORAGE RECONFIGURATION EQUIVALENCES. 
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMS1RM  SPACE  4
***       COMS1RM - MASS STORAGE RECONFIGURATION EQUIVALENCES.
*         W. E. GOEBEL.      79/12/17.
          SPACE  4
***       *1RM* FUNCTION DEFINITIONS. 
  
  
 BEGIN    BSSN   1
 RUMF     BSSN   1           UPDATE MST FROM ECS
 RCLF     BSSN   1           CLEAR RECONFIGURATION REQUEST
 RCDF     BSSN   1           CLEAR *DAT* INTERLOCK
 RDDF     BSSN   1           REDEFINE DEVICE
 RSPF     BSSN   1           SUSPEND DEVICE ACTIVITY
  
 RMXF     BSSN               MAXIMUM *1RM* FUNCTION CODE
 END      BSSN
  
          SPACE  4,10 
***       CALL BLOCK DEFINITION.
* 
  
  
 BEGIN    BSSN
 RFNB     BSSN   1           FUNCTION PASSED TO *1RM* 
 TPAR     BSSN   1           COMMANDS TO BE ACCEPTED BY *1RM* 
 TCOM     BSSN   1           COMMAND TO PASS TO *1RM* 
 CUEQ     BSSN   1           EQUIPMENT FOR REDEFINITION 
 URCD     BSSN   1           UNITS FOR REDEFINTITION
 ESTD     BSSN   1           EST CONTAINING REDEFINITION PARAMETERS 
 MSTD     BSSN   MSTL        MST CONTAINING REDEFINITION PARAMETERS 
  
 CBMX     BSSN               CALL BLOCK LENGTH
 END      BSSN
 TPAR     SPACE  4,10 
**        CDEF - COMMAND DEFINITION.
* 
*         CDEF   C,E
*                C = COMMAND OR PARAMETER DEFINITION. 
*                E = EXPLANATION OF COMMAND OR PARAMETER. 
* 
*         *CDEF* DEFINES A TAG (.COMMAND) AND A COMMAND EXPLANATION 
*         FOR REMOTE TABLE *COMMAND* UPON EACH CALL.
  
  
 CDEF     MACRO  C,E
 .COMMAND MICRO  1,,=_C=
 .".COMMAND" EQU A
 A        SET    A+1
 COMMAND  RMT 
 B        MICRO  1,16,$_C 
          DATA   64L"B"_E 
 COMMAND  RMT 
          ENDM
  
 A        SET    1
          TITLE  KEYWORD DEFINITION FOR *1RM* COMMANDS. 
  CDEF   ABORT,(ABORT PROCESSING OF LAST COMMAND ENTERED.)
  CDEF   IGNORE,(IGNORE POSTED ERROR CONDITION.  USE CAUTIOUSLY.) 
  CDEF   NEXT,(CHECK SERVO TIMING ON NEXT UNIT.)
  CDEF   RECHECK,(RETRY OPERATION WHICH CAUSED ERROR TO BE POSTED.) 
  
          BASE   *
          ENDX
