ASMB,R,Q,C
*     NAME:   OPMSG 
*     SOURCE: 92070-18151 
*     RELOC:  92070-16151 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM OPMSG,0  92070-16151  REV.1941  790807  
      ENT $BUSY,$ILCM,$INER,$NOID,$NOSM 
      ENT $UNAS,$DOWN,$$OPM,$.OPM 
* 
      EXT $MSEX 
* 
      SUP 
* 
* 
* 
$BUSY JSB $MSEX 
      DEC -12 
      ASC 6,PROGRAM BUSY
* 
$DOWN JSB $MSEX 
      DEC -18 
      ASC 9,PROGRAM DISC DOWN 
* 
$ILCM JSB $MSEX 
      DEC -16 
      ASC 8,ILLEGAL COMMAND 
* 
$INER JSB $MSEX 
      DEC -12 
      ASC 6,INPUT ERROR 
* 
$NOID JSB $MSEX 
      DEC -14 
      ASC 7,NO PROGRAM ID 
* 
$NOSM JSB $MSEX 
      DEC -18 
      ASC 9,(NO STRING MEMORY)
* 
$UNAS JSB $MSEX 
      DEC -10 
      ASC 5,UNASSIGNED
* 
* 
$$OPM EQU *         STANDARD MODULE 
$.OPM DEC 0         STANDARD MODULE 
* 
      END 
                                                                                                                                                                                                                                                          