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:  HARD ERROR
*      SOURCE:  92840 - 18058 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM HDERR,7  92840-16001 REV.1901 781020
      ENT HDERR 
      EXT .OPTN,HERR
      EXT PLTER 
* 
*     THIS IS THE INTERFACE MODULE FOR CHANGING                         EM1901
*  SOFT ERRORS TO FIRM ERRORS FOR REPORTING PURPOSES                    EM1901
* 
HDERR NOP 
      LDA HDERR 
      JSB .OPTN     GO RETRIEVE PARAMETERS
      DEF RTN 
      DEF PARM
      DEF M3                                                            EM1901
      DEF .1        CODE
      DEF .2        REQUIRED PARAMETERS 
      DEF .0        NO OPTIONAL PARAMETERS                              EM1901
      DEF DZERO 
      DEF RETRN 
RTN   JMP ERROR 
      JSB HERR
      DEF END 
PARM  BSS 3                                                             EM1901
END   JMP RETRN,I 
* 
*PARAMETER ERROR
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF ERTN
      DEF .57 
IGCB  NOP 
ERTN  JMP RETRN,I 
.57   DEC 57
.2    OCT 2 
* 
M3    DEC -3                                                            EM1901
RETRN NOP 
.1    OCT 1 
DZERO DEF .0
.0    OCT 0 
* 
      END 
                                                                                        