; 數據監控系統
; 數據監控系統用于監控恒電位儀和陰極保護系統的運行。
; 主要功能如下：
; 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