*DECK REG                                                               000500
      PROC REG;                                                         000510
*CALL COMREG                                                            000520
