passwd.asm

web51的开发库

	.section cpu_dir, #alloc

	.word	'p'+'a'+'s'+'s'+'w'+'d'+'.'+'c'+'g'+'i'
	.byte	0x10		;cgi
	.byte	0		;reserved
	.word	cgibegin
	.word	cgiend

	.section cpu_files, #alloc

cgibegin:		;ipsetup.cgi
	.pcode passwd
	.pcode pret
cgiend:

	.global	passwd

	.text
	.using	0

password:.asciz	"1234"

passwd:	mov	state80,#'W'	; find password
	lcall	scanpar
	jb	zflag, process_param
process_param_error:
	clr	flagSecure	; missing / bad password
				; dont't exec secured CGI
	; error return - unattended char / password error
	clr	zflag
OKtest:	; O.K. return(zflag = 1)
	ret

process_param:
	;; cmdW
	mov	dptr,#password
pwtest:	clr	a
	movc	a,@a+dptr
	jz	OKtest
	xrl	a,@r0
	inc	dptr
	inc	r0
	jz	pwtest		;compare next char
	sjmp	process_param_error	;FAIL return
	;; END