ASMB,R,Q,C * NAME: OPMSG * SOURCE: 92071-18151 * RELOC: 92071-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 92071-16151 REV.2041 800414 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