adc01.asm

ADC的源程式

		org	00h
		mov	a,#38h
		acall	command
		mov	a,#0eh
		acall	command
		mov	a,#01h
		acall	command
		mov	p0,#0ffh
back:		clr	p2.6
		setb	p2.6
here:		jb	p2.7,here
		mov	a,#01h
		acall	command
		mov	a,#86h
		acall	command
		mov	a,#06h
		acall	command
		clr	p2.5
		mov	a,p0
		acall	conversion
		mov	a,r2
		add	a,#30h
		mov	p1,a
		acall	display
		mov	a,#2eh
		mov	p1,a
		acall	display
		mov	a,r1
		anl	a,#0fh
		add	a,#30h
		mov	p1,a
		acall	display
		mov	a,r0
		anl	a,#0fh
		add	a,#30h
		mov	p1,a
		acall	display
		mov	a,#56h
		mov	p1,a
		acall	display
		setb	p2.5
		mov	r5,#01h
		acall	delay
		sjmp	back
conversion:	mov	20h,a
		mov	r0,#0
		mov	r1,#0
		mov	r2,#0
		jnb	00h,jmp2
		mov	a,r0
		add	a,#02
		mov	r0,a
jmp2:		jnb	01h,jmp3
		mov	a,r0
		add	a,#04
		mov	r0,a
jmp3:		jnb	02h,jmp4
		mov	a,r0
		add	a,#08
		mov	r0,a
jmp4:		jnb	03h,jmp5
		mov	a,r1
		add	a,#01
		mov	r1,a
		mov	a,r0
		add	a,#06
		mov	r0,a
jmp5:		jnb	04h,jmp6
		mov	a,r1
		add	a,#03
		mov	r1,a
		mov	a,r0
		add	a,#02
		mov	r0,a
jmp6:		jnb	05h,jmp7
		mov	a,r1
		add	a,#06
		mov	r1,a
		mov	a,r0
		add	a,#04
		mov	r0,a
jmp7:		jnb	06h,jmp8
		mov	a,r2
		add	a,#01
		mov	r2,a
		mov	a,r1
		add	a,#02
		mov	r1,a
		mov	a,r0
		add	a,#08
		mov	r0,a
jmp8:		jnb	07h,jmpend
		mov	a,r2
		add	a,#02
		mov	r2,a
		mov	a,r1
		add	a,#05
		mov	r1,a
		mov	a,r0
		add	a,#06
		mov	r0,a
jmpend:		mov	a,r0
		swap	a
		anl	a,#0fh
		mov	r3,a
		clr	psw.6
		mov	a,r0
		add	a,#06h
		jnb	psw.6,da1
		mov	r0,a
da1:		mov	a,r3
		jz	nocarry1
carry1:		mov	a,r0
		add	a,#06h
		mov	r0,a
		clr	psw.6
		add	a,#06h
		jnb	psw.6,noda1
		mov	r0,a		
noda1:		djnz	r3,carry1
nocarry1:	mov	a,r0
		swap	a
		anl	a,#0fh
		add	a,r1
		mov	r1,a
		mov	a,r1
		swap	a
		anl	a,#0fh
		mov	r3,a
		clr	psw.6
		mov	a,r1
		add	a,#06h
		jnb	psw.6,da10
		mov	r1,a
da10:		mov	a,r3
		jz	nocarry10
carry10:	mov	a,r1
		add	a,#06h
		mov	r1,a
		clr	psw.6
		add	a,#06h
		jnb	psw.6,noda10
		mov	r1,a		
noda10:		djnz	r3,carry10
nocarry10:	mov	a,r1
		swap	a
		anl	a,#0fh
		add	a,r2
		mov	r2,a
		ret
command:	acall	ready
		mov	p1,a
		clr	p2.0
		clr	p2.1
		setb	p2.2
		clr	p2.2
		ret
display:	acall	ready
		mov	p1,a
		setb	p2.0
		clr	p2.1
		setb	p2.2
		clr	p2.2
		ret
ready:		setb	p1.7
		clr	p2.0
		setb	p2.1
back1:		clr	p2.2
		setb	p2.2
		jb	p1.7,back1
		ret
delay:		mov	r6,#200
delay1:		mov	r7,#249
		djnz	r7,$
		djnz	r6,delay1
		djnz	r5,delay
		ret
		end