ASMB,R,Q,C
*     NAME:   GTERR 
*     SOURCE: 92070-18258 
*     RELOC:  92070-1X258 
*     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 GTERR,7  92070-1X258  REV.1941  790606
      EXT .ENTP 
* 
*     PURPOSE:  TO READ THE MOST RECENT SESSION ERROR MNEMONIC
*               FROM THE SESSION CONTROL BLOCK
* 
*     DUMMY ROUTINE FOR NON-SESSION SYSTEMS 
* 
*     THIS ROUTINE RETURNS -1 TO INDICATE NON-SESSION OPERATION.
* 
      ENT GTERR 
INMIC NOP 
IERR  NOP 
GTERR NOP 
      CLA 
      STA IERR
      JSB .ENTP 
      DEF INMIC 
* 
      CCA 
      STA IERR,I    SET ERROR CODE
      JMP GTERR,I 
* 
      END 
                                                                                                                                                                                                                            