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