ASMB
      NAM IEXIT,8 92082-1X007 REV.2001 791119 
* 
* 
* 
*     DATE:11-19-79 
*     NAME: IEXIT 
*     SOURCE: 92082-18007 
*     RELOC:  PART OF 92082-12001 
*     PGMR: 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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.       *
*  ***************************************************************
* 
* 
* 
* 
      ENT IEXIT 
      EXT .ENTR 
* 
* 
*     THIS ROUTINE HAS ONE ROLE IN LIFE 
*     IT IS USED TO SEE IF THE USER WANTS 
*     TO QUIT.
* 
*     CALLING SEGUENCE     I = IEXIT(K) 
* 
*     ON RETURN            I = -1  IF K = EX,/E,EN,AB,OR /A 
*                            = 0   IF NOT 
* 
* 
* 
IFLAG NOP 
IEXIT NOP 
      JSB .ENTR 
      DEF IFLAG 
* 
* 
      LDB IFLAG,I 
      CPB /E
      RSS 
      CPB EX
      RSS 
      CPB EN
      RSS 
      CPB /A
      RSS 
      CPB AB
      CCA,RSS 
      CLA 
      JMP IEXIT,I 
* 
* 
B     EQU 1 
A     EQU 0 
/E    ASC 1,/E
EX    ASC 1,EX
AB    ASC 1,AB
EN    ASC 1,EN
/A    ASC 1,/A
      END 
                                                                                                                                                                                                                                  