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