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