testp1.asm

web51的开发库

	.global	testP1

	.section cpu_dir, #alloc

	.word	't'+'e'+'s'+'t'+'P'+'1'+'.'+'c'+'g'+'i'
	.byte	0x10		;cgi
	.byte	0		;reserved
	.word	cgibegin
	.word	cgiend
;
	.section cpu_files, #alloc

cgibegin:		;testP1.cgi
	.pcode	testP1
	.pcode	pret
cgiend:

	.text

testP1:	mov	a,P1
	clr	zflag	
	anl	a,state80
	jnz	retP1
	setb	zflag
retP1:	ret

	;; END