pcmpwi.asm

web51的开发库

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

	.global	pcmpwi
	.global	pcmpn
	.text
;
; *** PCMPWI *** compare STRING (cpu IDATA mem) with WORD constant ***
; pcmpwi buffer_addr, wordconst
;	R7,	R4R5
	.using	0
	.equ	AR5, 5
pcmpwi:	MOV	R1,#AR5
	MOV	R3,#2
	SJMP	pcmpni
;
; *** PCMPN *** compare two string ***
; pcmpn	buffer_addr1, buffer_addr2, length
;	R7,	R5,	R3
pcmpn:	MOV	A,R5
	ADD	A,R3
	MOV	R1,A
	DEC	R1
pcmpni:	MOV	A,R7
	ADD	A,R3
	MOV	R0,A
	DEC	R0
	SETB	zflag
	CLR	C
pcmpn0:	MOV	A,@R0
	SUBB	A,@R1
	JZ	pcmpn1
	CLR	zflag
pcmpn1:	DEC	R0
	DEC	R1
	DJNZ	R3,pcmpn0
	MOV	cflag,C
	RET
	;; END