;0804的基本應用，轉動電位器，P0口顯示取到的數

;//定義ADC的連接端口
ad_cs   equ P3.6
ad_wr   equ P2.0
ad_rd   equ P3.7
ad_input_port   equ p1

    org 0000h
    ajmp    main
    org 0030h
main:
    lcall adc_demo
    ajmp    main

;//==========================================
;// 啟動AD轉換
;//==========================================
Adc_Start:
    clr ad_cs
    nop
    clr ad_wr
    nop
    setb    ad_wr
    nop
    setb    ad_cs
    nop
    ret
;//==========================================
;// 讀AD轉換
;//==========================================
Adc_Read:
    mov ad_input_port,#0ffh
    clr ad_cs
    nop
    clr ad_rd
    nop
    nop
    mov a,AD_INPUT_PORT
    nop
    setb    ad_rd
    nop
    setb    ad_cs
    ret
;//==========================================
;// AD轉換讀取延時程序，顯示讀到的數值
;//==========================================
Adc_Demo:
	lcall Adc_Start
	lcall delay1ms
	lcall adc_read
	clr p2.0
    clr p2.3
	mov p0,a
	ret

delay1ms:
	mov	r7,#10
tt1:
	mov	r6,#50
	djnz	r6,$		;2us
	djnz	r7,tt1
	ret
	end