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

	NAME	ANDMSK
	ENTRY	ANDMSK

ANDMSK:
	ENTR	D,2,0
	MOV	A,VALY(IX)  ; GET LOW BYTE VALUE 'Y'
	ANA	VALX(IX)    ; "AND" WITH LOW BYTE VALUE 'X'
	MOV	2(IX),A     ; MOVE 'A' TO THE FUNCTION RET VAL LOC
	MOV	A,VALYH(IX) ; GET HIGH BYTE VALUE 'Y'
	ANA	VALXH(IX)   ; "AND" WITH HIGH BYTE VAL 'X'
	MOV	3(IX),A     ; FUNC RET VALUE LOC FOR HIGH BYTE
	EXIT	D,4
	;
	;
 'Y'
	ANA	VALXH(I