ASMB
      NAM YESNO,8 92082-1X003 REV.2001 791119 
* 
* 
* 
* 
*     DATE: 11-19-79
*     NAME: YESNO 
*     SOURCE: 92082-18003 
*     RELOC:  PART OF 92082-12001 
*     PGMR:   C.M.M.
* 
*  ***************************************************************
*  * (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 YESNO 
      EXT .ENTR 
* 
* 
*     ALL THIS ROUTINE DOES IS MAKE SURE THAT THE WORD
*     PASSED IN IS AN ASCII  ' YE '  OR  ' NO '.
* 
* 
*     CALLING SEGUENCE:      I = YESNO(K) 
* 
*     ON RETURN        A-REG = 177777B  (-1)   IF TRUE
*                            = 000000   ( 0)   IF FALSE 
* 
* 
*     MORE THAN ANYTHING ELSE THE ROUTINE WAS WRITTEN SO THAT 
*     Q.A. WON'T TURN IN A BUG REPORT.  PROBABLE A GOOD THING 
*     THAT Q.A. IS AROUND OR IT MIGHT NOT HAVE GOTTEN WRITTEN.
* 
* 
* 
* 
* 
* 
WORD  NOP 
YESNO NOP 
      JSB .ENTR 
      DEF WORD
* 
* 
      LDB WORD,I    GET THE WORD
      CPB YES       DID HE SAY YES
      RSS 
      CPB NO        OR DID HE SAY NO ?
      CCA,RSS       YES, HE SAID YES OR NO
      CLA            HE DIDN'T ANSWER WITH A YES OR A NO. 
      JMP YESNO,I    RETURN 
* 
* 
A     EQU 0 
B     EQU 1 
NO    ASC 1,NO
YES   ASC 1,YE
      END 
                                                                                                                                                                                                                            