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:  LGERR INTFC MOD 
*      SOURCE:  92840 - 18060 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM LGERR,7  92840-16001 REV.1819 780515
      ENT LGERR 
      EXT .OPTN,XGERR,PLTER 
      EXT PLTER 
* 
*     THIS IS THE INTERFACE MODULE FOR THE ERROR HANDLING COMMAND 
*  LGERR(LU). 
* 
LGERR NOP 
      LDA LGERR 
LG1   JSB .OPTN 
      DEF RTN 
      DEF PARM
      DEF M3
      DEF .1
      DEF .1        IGCB REQUIRED PARAMETER 
      DEF .1
      DEF DF0       DEFAULT LU = 1
      DEF RETRN 
RTN   JMP ERROR 
      JSB XGERR 
      DEF END 
PARM  BSS 3 
END   JMP RETRN,I 
* 
RETRN NOP 
M3    DEC -3
.1    DEC 1 
.0    OCT 0 
DF0   DEF .0
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .61 
IGCB  NOP 
RTNER JMP RETRN,I 
.61   DEC 61
      END 
                                                                                                                                                                                                                      