ASMB,R,L,C
      HED PTERR 
*    NAME:     PTERR
*    SOURCE:   92067-18484
*    RELO:     92067-16268
*    PGMR:     N.J.S. 
* 
*  **************************************************************** 
*  * (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 THE HEWLETT-PACKARD COMPANY.    * 
*  **************************************************************** 
* 
      NAM PTERR,7 92067-1X484 REV.2013 781013 
      ENT PTERR 
      EXT .ENTR, SESSN, $SMVE, $SMER
      SUP 
* 
* 
INMIC NOP 
IERR  DEF ZERO
PTERR 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 $SMVE     WRITE 4-WORD MNEUMONIC
      DEF *+6        IN SCB ERROR CODE
      DEF .2
      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 PTERR,I 
* 
XEQT  EQU 1717B 
ZERO  DEC 0 
.2    DEC 2 
.4    DEC 4 
ISESN NOP 
D.ZER DEF ZERO
* 
* 
END   END 
                                                                                                                                                        