daima10.asm

<MCS-51系列单片机应用及接口技术>书中的源代码

	AX	EQU	20H
	AL	EQU	20H
	AH	EQU	21H
	BX	EQU	22H
	ADCH	EQU	30H
	ADPL	EQU	32H
	RESULTTAB	EQU	60H
	ORG	2080H
START:	LD	SP,#00C0H
	LDB		ADCH,#00H
NEXT:	ADDB	AD_COMMAND,BL,#08H   ；立即启动第0通道A/D转换
	NOP
	NOP
	NOP
	NOP
ADBUSY:	JBS	AD_RESULTLO,3,ADBUSY  ；查询A/D转换结束否
	LDB	AH,AD_RESULTHI
	LDB	AL,AD_RESULTLO
	SHR	AX,#6
	ADDB	ADPL,ADCH,ADCH
	LDBZE	DX,ADPL
	ST	AX,RESULTTAB[DX]
	INCB	ADCH
	ANDB	ADCH,#07H
	SJMP	NEXT
	END