ASMB,R,L,C
* 
*  **************************************************************** 
*  * (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 HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
*   NAME: PART OF MATH LIBRARY
*   SOURCE:  24998-18XXX  SEE NAM FOR LAST THREE DIGITS 
*   RELOC: PART OF 24998-12001
*   PGMR: BG & JTS
* 
      NAM IAND,7 24998-1X102 REV.2001 750701
      ENT IAND
IAND  NOP 
      LDA IAND,I    GET ADDRESS OF FIRST ARGUMENT 
      ISZ IAND
      LDB IAND,I    GET ADDRESS OF SECOND 
      LDA 0,I 
      AND 1,I 
      ISZ IAND
      JMP IAND,I
      END 
* 
* 
                                                                                                                                                                      