ASMB,R,L
* 
* 
* 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
* 
* 
* 
*      NAME:  IGERR  INTFC MOD
*      SOURCE:  92840 - 18106 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM IGERR,7  92840-16001 REV.1819 780515
      ENT IGERR 
      EXT .OPTN,XIGER,PLTER 
      EXT PLTER 
* 
*     THIS IS THE INTERFACE MODULE FOR THE ERROR HANDLING COMMAND 
*  IGERR(LU). 
* 
IGERR NOP 
      LDA IGERR 
LG1   JSB .OPTN 
      DEF RTN 
      DEF PARM
      DEF M2
      DEF .1
      DEF .1        IGCB REQUIRED PARAMETER 
      DEF .0
      DEF RETRN 
RTN   JMP ERROR 
      JSB XIGER 
      DEF END 
PARM  NOP 
ERMSG NOP 
END   JMP RETRN,I 
* 
RETRN NOP 
M2    DEC -2
.1    DEC 1 
.2    OCT 2 
.0    OCT 0 
DF1   DEF .1
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .91 
IGCB  NOP 
RTNER LDA .6
      JMP RETRN,I 
.91   DEC 91
.6    OCT 6 
      END 
                                                                                                                                                                                                      