adc.src

使用三星芯片的控制程序,可供三星8位MCU初学者参考!

.include	"define.mac"

.public  AD_judge


;***************************************************************
AD_judge:
        tm  temp_status,#01H
        jr  ne,AD_judge_end
        call  AD_convert
        ld  r2,#0bh
        ld  r3,temp_value
        ldc r0,#30h[rr2]
        cp  ad_hdata,r0
        jr  ugt,temp_ad_off
        
        ld  r2,#0bh
        ld  r3,temp_value
        ldc r0,#40h[rr2]
        cp  ad_hdata,r0
        jr  ult,temp_ad_on
AD_judge_end:
        ret
        
        
temp_ad_off:
        or  p0,#80h             ;set p0.7  heater off
        ret  
        
temp_ad_on:
        and p0,#7fh             ;clea p0.7  heater on
        ret       
;***************************************************************

;****************************************************************
AD_convert:
        ld  adcon,#00100101B   ;select P0.2  f=fosc/4  start convert
        call  delay2ms
        tm  adcon,#00001000B
        jr  z,ad_error
        ld  ad_hdata,addatah
        ld  ad_ldata,addatal
        jr  ad_done
ad_error:
        ld  ad_hdata,#00H
        ld  ad_ldata,#00H
ad_done:
        ret
;*****************************************************************
delay2ms:
        ld  r0,#0ffH
dalay_loop:
        dec r0
        nop
        jr z,delay2ms_end
        jr dalay_loop
delay2ms_end:       
        ret
;******************************************************************    
    .end