;File  LOGIAND.SRC   Created  14-Nov-80
;
;    This procedure will do a logical or of two operands passed to it
;    by a PascalZ program and then return the result
;
         NAME LOGIAND
         ENTRY LOGIAND

LOGIAND:  POP       H    ;Save the return address
         POP       D    ;Get first operand
         POP       B    ;Get second operand
         PUSH      H    ;Put back return vector

         MOV       A,D  ;AND the high byte
         ANA       B    ;of the two numbers
         MOV       D,A

         MOV       A,E  ;AND the low byte
         ANA       C    ;of the two numbers
         MOV       E,A

         XRA       A    ;Get ready for return to PascalZ
         RET            ;And return