ASMB,L
* 
*     NAME:   ORI 
*     SOURCE: 92070-18293 
*     RELOC:  92070-16293 
*     PGMR:   DAVE NEFF 
* 
****************************************************************
* (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.        *
****************************************************************
      NAM ORI 92070-1X293 REV.2001  790914  
* 
* ORI IS AN EFFICIENT FUNCTION OR PROCEDURE, CALLABLE FROM
* PASCAL, WHICH PERFORMS A LOGICAL BIT BY BIT OR OF TWO 16
* BIT INTEGERS. TO USE IT AS A FUNCTION, DECLARE
* FUNCTION ori(i1,i2:integer):integer;external; 
* AND TO USE IT AS A PROCEDURE DECLARE
* PROCEDURE ori(i1,i2,result:integer);external; 
* WHERE integer WAS DECLARED TO BE 16 BITS LONG.
* 
      EXT   .ENTR 
      ENT   ORI 
PARMB BSS   3       BLOCK FOR PASSED AND RETURNED PARAMS
ORI   BSS   1 
      JSB   .ENTR   PUT ADDRESSES OF PARAMS IN BLOCK
      DEF   PARMB 
      LDA   PARMB,I PUT FIRST INTEGER INTO REG A
      IOR   PARMB+1,I OR  SECOND INTEGER WITH FIRST 
      STA   PARMB+2,I STORE THE RESULT IN THE FUNCTION ADDRESS
      JMP   ORI,I   RETURN TO CALLING PROGRAM 
      END 
                                                                                                                                                                                                  