          CTEXT  COMPMDM - MAINTENANCE DISPLAY MACROS.                   R152_OS        1
 COMPMDM  SPACE  4,10                                                    R152_OS        2
***       COMPMDM - MAINTENANCE DISPLAY MACROS.                          R152_OS        3
*         B. R. HANSON.      81/09/10.                                   R152_OS        4
          SPACE  4,10                                                    R152_OS        5
***              COMPMDM DEFINES SEVERAL MACROS WHICH ARE USED IN TO     R152_OS        6
*         INTERFACE WITH THE MAINTENANCE DRIVER COMMON DECK              R152_OS        7
*         *COMPMDD*.                                                     R152_OS        8
 CMND     SPACE  4,10                                                    R152_OS        9
**        CMND - DEFINE COMMAND.                                         R152_OS       10
*                                                                        R152_OS       11
* XX      CMND   ADDR,(SYNTAX)                                           R152_OS       12
*                                                                        R152_OS       13
*         XX - TWO CHARACTER COMMAND.                                    R152_OS       14
*         ADDR - COMMAND PROCESSING ROUTINE.                             R152_OS       15
                                                                         R152_OS       16
                                                                         R152_OS       17
          MACRO  CMND,XX,ADDR,DTYP,PADR,SYNTX                            R152_OS       18
          LOCAL  PADDR                                                   R152_OS       19
          IFC    EQ,$PADR$$                                              R152_OS       20
 PADDR    EQU    *                                                       R152_OS       21
          ENDIF                                                          R152_OS       22
 CMDS     RMT                                                            R152_OS       23
          CON    2R_XX                                                   R152_OS       24
          CON    ADDR                                                    R152_OS       25
          IFC    EQ,$DTYP$$                                              R152_OS       26
          CON    0,0                                                     R152_OS       27
          ELSE                                                           R152_OS       28
          CON    PADR PADDR                                              R152_OS       29
          CON    DTYP/10000                                              R152_OS       30
          ENDIF                                                          R152_OS       31
          RMT                                                            R152_OS       32
 HELP     RMT                                                            R152_OS       33
          IFC    EQ,$SYNTX$$                                             R152_OS       34
          CON    0                                                       R152_OS       35
          ELSE   1                                                       R152_OS       36
          CON    =C*SYNTX*                                               R152_OS       37
          RMT                                                            R152_OS       38
          ENDM                                                           R152_OS       39
 INDEX    SPACE  4,10                                                    R152_OS       40
**        INDEX - FORM INDEXED TABLES OF DATA.                           R152_OS       41
*                                                                        R152_OS       42
* ORD     INDEX  V1,V2                                                   R152_OS       43
*                                                                        R152_OS       44
*         ORD = ORDINAL * 10000.                                         R152_OS       45
*         V1  = VALUE TO PLACE IN TABLE *TBLA*.                          R152_OS       46
*         V2  = VALUE TO PLACE IN TABLE *TBLB*.                          R152_OS       47
                                                                         R152_OS       48
                                                                         R152_OS       49
          PURGMAC INDEX                                                  R152_OS       50
          MACRO  INDEX,ORD,V1,V2                                         R152_OS       51
 ORD      EQU    TBLI*10000                                              R152_OS       52
 TBLI     SET    TBLI+1                                                  R152_OS       53
          IFC    NE,$V1$$,3                                              R152_OS       54
 TBLA     RMT                                                            R152_OS       55
          CON    V1                                                      R152_OS       56
          RMT                                                            R152_OS       57
          IFC    NE,$V2$$,3                                              R152_OS       58
 TBLB     RMT                                                            R152_OS       59
          CON    V2                                                      R152_OS       60
          RMT                                                            R152_OS       61
          ENDM                                                           R152_OS       62
 PRM      SPACE  4,10                                                    R152_OS       63
**        PRM - DEFINE PARAMETER LIST FOR COMMAND.                       R152_OS       64
*                                                                        R152_OS       65
* VAR     PRM    ADDR,WC                                                 R152_OS       66
*                                                                        R152_OS       67
*         VAR - PARAMETER NAME.                                          R152_OS       68
*         ADDR- ADDRESS TO STORE VALUE.                                  R152_OS       69
*         WC  - SIZE OF VALUE IN PP WORDS.                               R152_OS       70
*                                                                        R152_OS       71
*         IF *VAR* IS OMMITTED THEN THIS PARAMETER HAS A                 R152_OS       72
*         LIST OF SEVERAL NAMES WHICH MAY BE USED.  IN THIS              R152_OS       73
*         CASE, *ADDR* IS THE ADDRESS TO STORE THE ADDRESS               R152_OS       74
*         GIVEN IN THE SELECTED ALTERNATIVE.  IF *WC* IS                 R152_OS       75
*         OMMITTED, THE PARAMETER MUST BE ONE OF THE ALTERNATIVES        R152_OS       76
*         AND MAY NOT HAVE AN EQUIVALENCED VALUE.  IF *VAR*              R152_OS       77
*         IS OMMITTED, A LIST OF *PRMV* MACROS MUST FOLLOW WHICH         R152_OS       78
*         DEFINE THE ALTERNATE NAMES FOR THIS PARAMETER.                 R152_OS       79
                                                                         R152_OS       80
                                                                         R152_OS       81
          MACRO  PRM,VAR,ADDR,WC                                         R152_OS       82
          LOCAL  HDR                                                     R152_OS       83
          QUAL                                                           R152_OS       84
 PRMC     SET    PRMC+1                                                  R152_OS       85
 PRMV     DECMIC PRMC,4                                                  R152_OS       86
          QUAL   *                                                       R152_OS       87
 HDR      SET    WC 0                                                    R152_OS       88
          IFC    EQ,$VAR$$                                               R152_OS       89
 P"PRMV"  CON    HDR+4000,V"PRMV",ADDR                                   R152_OS       90
          ELSE                                                           R152_OS       91
 P"PRMV"  CON    HDR,V"PRMV"                                             R152_OS       92
 VAR      PRMV   ADDR                                                    R152_OS       93
          ENDIF                                                          R152_OS       94
          ENDM                                                           R152_OS       95
                                                                         R152_OS       96
 PRMC     SET    0                                                       R152_OS       97
 PRMV     SPACE  4,10                                                    R152_OS       98
**        PRMV - PARAMETER NAME DESCRIPTOR.                              R152_OS       99
*                                                                        R152_OS      100
* VAR     PRMV   ADDR                                                    R152_OS      101
*                                                                        R152_OS      102
*         THIS MACRO IS USED TO LIST OPTIONAL NAMES FOR A GIVEN          R152_OS      103
*         PARAMETER.                                                     R152_OS      104
*                                                                        R152_OS      105
*         VAR  - PARAMETER NAME.                                         R152_OS      106
*         ADDR - ADDRESS TO STORE THE VALUE OR VALUE ITSELF.             R152_OS      107
                                                                         R152_OS      108
                                                                         R152_OS      109
          MACRO  PRMV,VAR,ADDR                                           R152_OS      110
          LOCAL  PRML                                                    R152_OS      111
 PRML     DECMIC PRMC,4                                                  R152_OS      112
 PRMV     RMT                                                            R152_OS      113
          IF     -DEF,V"PRML",1                                          R152_OS      114
 V"PRML"  BSS    0                                                       R152_OS      115
          CON    2R_VAR                                                  R152_OS      116
          CON    P"PRML"                                                 R152_OS      117
          CON    ADDR                                                    R152_OS      118
          RMT                                                            R152_OS      119
          ENDM                                                           R152_OS      120
 PRME     SPACE  4,10                                                    R152_OS      121
**        PRME - END PARAMETER LIST.                                     R152_OS      122
*                                                                        R152_OS      123
*         PRME                                                           R152_OS      124
                                                                         R152_OS      125
                                                                         R152_OS      126
 PRME     MACRO                                                          R152_OS      127
          CON    0                                                       R152_OS      128
 PRMV     HERE                                                           R152_OS      129
          CON    0                                                       R152_OS      130
          ENDM                                                           R152_OS      131
 PRINT    SPACE  4,10                                                    R152_OS      132
**        PRINT - PRINT LINE.                                            R152_OS      133
*                                                                        R152_OS      134
                                                                         R152_OS      135
                                                                         R152_OS      136
 PRINT    MACRO  M                                                       R152_OS      137
          CODE   A                                                       R152_OS      138
          LDC    =C*M*+10000                                             R152_OS      139
          RJM    WTC                                                     R152_OS      140
          CODE   *                                                       R152_OS      141
          ENDM                                                           R152_OS      142
 MR       SPACE  4,10                                                    R152_OS      143
**        MR - DESCRIBE MAINTENANCE REGISTER.                            R152_OS      144
*                                                                        R152_OS      145
*                                                                        R152_OS      146
                                                                         R152_OS      147
                                                                         R152_OS      148
          MACRO  MR,HV,STR                                               R152_OS      149
          CON    0#;A                                                    R152_OS      150
          CON    =C*STR*                                                 R152_OS      151
          ENDM                                                           R152_OS      152
          ENDX                                                           R152_OS      153
