ad7367.asm

ad7367的汇编编程源码

; 数据监控系统
; 数据监控系统用于监控恒电位仪和阴极保护系统的运行。
; 主要功能如下：
; AD7367:恒电位仪输出电流以及参比电极的AD转换（数据用于反馈及显示）
; AD7705: 恒电位仪输出电压以及阳极分电流的AD转换（数据用于显示）
; 89C51RB2 
;          P1.0  AD7367 BUSY
;          P1.1   AD7367 DOUTA
;          P1.2   AD7367 DOUTB
;          P1.3   AD7367 ADCS2
;          P1.4   AD7367 SCLK2  DTIN2
;          P1.5   AD7367 ADDR   SCLK2
;          P1.6   AD7367 CONST
;          P1.7   AD7705 DOUT
;          P2.0 P2.1 P2.2 74HC373 片选
;          P2.3  电流给定 SYNC1
;          P2.4  电压给定 SYNC2
;          P2.5   AD7705 READY
;          P2.6 P2.7 时间
;    


         ;  System reset
         BUSY   EQU P1.0
         DOUTA  EQU P1.1
         DOUTB  EQU P1.2
         ADCS2  EQU P1.3
         SCLK2  EQU P1.4
         ADDR   EQU P1.5
         CONST  EQU P1.6



         ORG     0000H
	 AJMP     MAIN
	 NOP
	 



	 ORG     0030H
MAIN:    
	 MOV     P0,#0FFH
	 MOV     P1,#0FFH
	 MOV     P2,#0FFH
         MOV     20H,#00H
         MOV     21H,#00H
         MOV     22H,#00H
         MOV     23H,#00H

        SETB ADDR
        
	CLR CONST
	SETB CONST
AD7367:	NOP
	JB  BUSY,AD7367 
	
	CLR  ADCS2
        MOV  C,DOUTB    ;DB13
        MOV  21H.5,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB     ;DB12
        MOV  21H.4,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB      ;DB11
        MOV  21H.3,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB      ;DB10
        MOV  21H.2,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB       ;DB9
        MOV  21H.1,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB        ;DB8
        MOV  21H.0,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB        ;DB7
        MOV  20H.7,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB         ;DB6
        MOV  20H.6,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB         ;DB5
        MOV  20H.5,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB         ;DB4
        MOV  20H.4,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB         ;DB3
        MOV  20H.3,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB       ;DB2
        MOV  20H.2,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB        ;DB1
        MOV  20H.1,C
        SETB  SCLK2
        CLR SCLK2
        MOV  C,DOUTB       ;DB0
        MOV  20H.0,C
        SETB  SCLK2
        CLR   SCLK2
	CLR CONST
	SETB CONST
        SETB ADCS2
        
        AJMP AD7367

	 
END