ASMB,L
****************************************************************
* (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:   ANDI
*     SOURCE: 92070-18292 
*     RELOC:  92070-16292 
*     PGMR:   DAVE NEFF 
* 
* 
      NAM ANDI 92070-1X292 REV.2001  790914 
* 
* 
* ANDI IS DESIGNED AS AN EFFICIENT FUNCTION, CALLABLE FROM
* PASCAL, WHICH RETURNS THE LOGICAL BIT BY BIT AND OF 
* TWO SIXTEEN BIT INTEGERS. USE THE FUNCTION BY DECLARING:
* FUNCTION andi(i1,i2:integer):integer;external;
* OR AS A PROCEDURE WITH THE RESULT IN PARAMETER 3 AS FOLLOWS:
* PROCEDURE andi(i1,i2,result:integer);external;
* WHERE integer WAS DEFINED AS 16 BITS. 
* 
* 
      EXT   .ENTR 
      ENT   ANDI
PARMB BSS   3       BLOCK FOR PASSED AND RETURNED PARAMS
ANDI  NOP 
      JSB   .ENTR   PUT ADDRESSES OF PARAMS IN BLOCK
      DEF   PARMB 
      LDA   PARMB,I PUT FIRST INTEGER INTO REG A
      AND   PARMB+1,I AND SECOND INTEGER WITH FIRST 
      STA   PARMB+2,I STORE THE RESULT IN THE FUNCTION ADDRESS
      JMP   ANDI,I  RETURN TO CALLING PROGRAM 
      END 
                                                                                                                                                                    