pbitwi.asm

web51的开发库

; P-Code Aritmetic Library (c)Copyright 2000, 2001, Radek Benedikt
;	[e-mail], http://benedikt.lphard.cz

	.global	pbitwi
	.text
;
; *** PBITWI *** AND word (cpu IDATA mem), with WORD constant  ***
; pbitwi buffer_addr, wordconst
;	R7,	R4R5
pbitwi:	MOV     A,R7
	SETB	zflag
	MOV	R0,A
	MOV	A,@R0
	ANL	A,R4
	JZ	pbitwi0
	CLR	zflag
pbitwi0:INC	R0
	MOV	A,@R0
	ANL	A,R5
	JZ	pbitwi1
	CLR	zflag
pbitwi1:RET
	;; END