ASMB,R,L,C
      HED GTERR 
*    NAME:     GTERR
*    SOURCE:   92067-18485
*    RELO:     92067-16268
*    PGMR:     N.J.S. 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY.    * 
*  **************************************************************** 
* 
      NAM GTERR,7 92067-1X485 REV.2013 780930 
      ENT GTERR 
      EXT .ENTR, SESSN, ISMVE, $SMER
      SUP 
* 
* 
INMIC NOP 
IERR  DEF ZERO
GTERR NOP 
      JSB .ENTR 
      DEF INMIC 
* 
      JSB SESSN     GET SESSION TABLE ADDRESS 
      DEF *+2 
      DEF XEQT
      CCA 
      SEZ           IN SESSION? 
      JMP EXIT      NO - GO SET ERROR TO -1 
      STB ISESN 
* 
      JSB ISMVE     WRITE 4-WORD MNEUMONIC
      DEF *+5        IN SCB ERROR CODE
      DEF ISESN 
      DEF $SMER 
      DEF INMIC,I 
      DEF .4
      CLA 
* 
EXIT  STA IERR,I    SET ERROR CODE
      LDA D.ZER     RESET OPTIONAL
      STA IERR       ERROR PARAMETER
      JMP GTERR,I 
* 
XEQT  EQU 1717B 
ZERO  DEC 0 
.4    DEC 4 
ISESN NOP 
D.ZER DEF ZERO
* 
* 
END   END 
                                                                                                                                                                                    