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