;=======================================================
;  THE FOLLOWING IS THE "OR" FUNCTION OF TWO INTEGERS
;  ON A BIT BY BIT BASIS.
;
; CALL AS:
;    FUNCTION ORMSK( VALX,VALY: INTEGER ): INTEGER; EXTERNAL;
;
;
VALX	EQU	10; LOC OF PARM X OFFSET TO (IX)
VALXH	EQU	11; HIGH BYTE OF 'X'
VALY	EQU	 8; LOC OF PARM Y OFFSET TO (IX)
VALYH	EQU	 9; HIGH BYTE OF 'Y'

	NAME	ORMSK
	ENTRY	ORMSK

ORMSK:
	ENTR	D,2,0
	MOV	A,VALY(IX)  ; GET LOW BYTE VALUE Y
	ORA	VALX(IX)    ; "OR" WITH L.O. VALUE X
	MOV	2(IX),A     ; MOVE 'A' TO THE FUNCTION RET VAL LOC
	MOV	A,VALYH(IX) ; GET HIGH BYTE VALUE Y
	ORA	VALXH(IX)   ; 'OR" WITH H.O. VAL X
	MOV	3(IX),A     ; FUNC RET VALUE LOC FOR H.O. VAL
	EXIT	D,4
	;
	;
 BYTE VALUE Y
	ORA	VALXH(IX)   ; 'OR" WITH H.