?? 溫度控制程序.asm
字號(hào):
;**************************************
;*
;* 溫度控制程序 w.asm *
;*
;* 作者：嚴(yán)天峰 *
;*
;說明：測(cè)試程序在KEIL 6。23版本下通過 *
;你可以無償使用這些代碼，但請(qǐng)標(biāo)明出處 *
;*********以下為一些偽指令定義*********
;************************
; The code meets all ad7416 family timing requirements when executed by an
; AT89Cx051 microcontroller with a 6 MHz clock. Code modifications may be
; required if a faster clock is substituted.
FADDR DATA 24H ; fixed address for Ad7416
zdata DATA 28H ; data register
address DATA 29h ; low address register
;addr_hi DATA 2Ah ; high address register
;
;*******Microcontroller connections to aad7416 OR AT24C02 serial bus lines.
SCL EQU P3.4 ; serial clock
SDA EQU P3.5 ; serial data
;******************ad7416 presodo************************
WD_H_KEY EQU P1.6;
WD_L_KEY EQU P1.7
H_KEY EQU P3.2
JDQ EQU P1.5
H_DATA DATA 50H ; H_DATA 存放溫度報(bào)警上限
L_DATA DATA 51H ; L_DATA 存放溫度報(bào)警上限
W_DATA DATA 52H
M_DATA DATA 53H
S_H_DATA DATA 59H
S_L_DATA DATA 5AH
;M_H DATA 6BH
;M_L DATA 6CH
ORG 0000H
AJMP MAIN
ORG 000BH
AJMP TIME_T0
ORG 0040H
TIME_T0:push acc
CLR TR0
MOV TH0,#0
MOV TL0,#0
INC 5FH
MOV A,5FH
XRL A,#20
JZ CLEAR0
RET_T0:
SETB TR0
pop acc
RETI
CLEAR0:
mov 5fh,#0
MOV A,W_DATA
; MOV BCD_DATA,A
LCALL HEX_BCD
MOV 69H,R5
MOV 6AH,R6
MOV 6BH,R7
MOV 6EH,#00h
MOV 6DH,#00h
MOV 6CH,#00h
AJMP RET_T0
ORG 0100H
;****************主程序開始*****************
MAIN:MOV SP,#70H
MOV TMOD,#01H
MOV TH0,#0
MOV TL0,#0
CLR ET0
CLR TR0
MOV 6EH,#00h
MOV 6DH,#00h
MOV 6CH,#00h
MOV 6BH,#00h
MOV 6AH,#00h
MOV 69H,#00h
MOV 5FH,#00h ;5FH存放100MS 單元
MOV H_DATA,#0
MOV L_DATA,#0
;MOV S_H_DATA,#0
;MOV S_L_DATA,#0
MOV W_DATA,#0
;
MOV DPTR,#0FB00H
MOV A,#03H
MOVX @DPTR,A
;
;********read at24c02 from address 00h,01h
; FADDR SET 90H
MOV FADDR,#0A0H
mov address,#00h
; mov addr_hi,#00h
mov a,#00h
lcall rd_rand
MOV S_H_DATA,A
mov address,#01h
; mov addr_hi,#00h
mov a,#00h
lcall rd_rand
MOV S_L_DATA,A
; FADDR SET 91H
;
SETB EA
SETB ET0
SETB TR0
START_1:
LCALL AD7416 ;call temperature sub _program
; MOV H_DATA, R7
; MOV L_DATA, R6
MOV R0,L_DATA
MOV R1,H_DATA
LCALL DIV25
MOV W_DATA,R4
; MOV A,W_DATA
; MOV BCD_DATA,A
; LCALL HEX_BCD
; MOV 69H,R5
; MOV 6AH,R6
; MOV 6BH,R7
;
; MOV A,S_DATA
; LCALL HEX_BCD
; MOV 69H,A
; MOV 6AH,B
;;
; MOV A,M_DATA
; LCALL HEX_BCD
; MOV 6BH,A
; MOV 6CH,B
;
; MOV A,H_DATA;
; ; LCALL HEX_BCD
; MOV 6DH,A
; MOV 6EH,B
;
LCALL DIS
LCALL KEY
; MOV FADDR,#0A0H
;mov address,#00h
; mov addr_hi,#00h
; mov a,#00h
; MOV ZDATA,S_H_DATA
; lcall wr_byte
; mov address,#01h
; mov a,#00h
; MOV ZDATA,S_L_DATA
; lcall wr_byte
; LCALL CONTROL
AJMP START_1
;***********顯示子程序*****************
DIS:PUSH ACC
MOV DPTR,#0FB00H
MOV A,#03H
MOVX @DPTR,A
YLED:MOV R0,#6EH
MOV R3,#01H
MOV A,R3
YB:MOV DPTR,#0FB01H
MOVX @DPTR,A
INC DPTR
MOV A,@R0
ADD A,#11H
MOVC A,@A+PC
MOVX @DPTR,A
LCALL DELL
DEC R0
MOV A,R3
JB ACC.5,EEND
RL A
MOV R3,A
SJMP YB
NOP
NOP
EEND:AJMP S_END
BD: DB 3FH,06H,5BH,4FH,66H,6DH
BD1: DB 7DH,07H,7FH,6FH,77H,7CH
BD2: DB 39H,5EH,79H,71H,73H,3EH
BD3: DB 31H,6EH,1CH,23H,40H,03H
S_END:POP ACC
RET
;**********end display*********************
;***********delay program******************
DELL:MOV R7,#04H
DEL:MOV R6,#0E7H
NN:DJNZ R6,NN
DJNZ R7,DEL
RET
;******************************************
;***************key（按鍵） program *******
KEY:
clr tr0
JB WD_H_KEY,L_SET
LCALL DELL
JB WD_H_KEY,L_SET
INC S_H_DATA
MOV A,S_H_DATA
CJNE A,#7FH,S_DIS
MOV S_H_DATA,#00H
S_DIS:
MOV A,S_H_DATA
LCALL HEX_BCD
MOV 69H,R5
MOV 6aH,R6
MOV 6BH,R7
; MOV A,S_H_DATA
; LCALL HEX_BCD
; MOV 69H,A
; MOV 6AH,B
MOV FADDR,#0A0H
mov address,#00h
; mov addr_hi,#00h
mov a,#00h
MOV ZDATA,S_H_DATA
lcall wr_byte
S_REP:LCALL DIS
JNB WD_H_KEY,S_REP
;
L_SET:
JB WD_L_KEY,SET_END
LCALL DELL
JB WD_L_KEY,SET_END
INC S_L_DATA
MOV A,S_L_DATA
CJNE A,#7FH,M_DIS
MOV S_L_DATA,#00H
M_DIS:
MOV A,S_L_DATA
LCALL HEX_BCD
MOV 6cH,R5
MOV 6dH,R6
MOV 6eH,R7
MOV FADDR,#0A0H
mov address,#01h
; mov addr_hi,#00h
mov a,#00h
MOV ZDATA,S_L_DATA
lcall wr_byte
; MOV 6BH,A
; MOV 6CH,B
M_REP:LCALL DIS
JNB WD_L_KEY,M_REP
;
;H_SET:
; JB H_KEY,SET_END
; LCALL DELL
; JB H_KEY,SET_END
; INC H_DATA
; MOV A,H_DATA
; CJNE A,#60,H_DIS
; MOV H_DATA,#00H
;H_DIS:MOV A,H_DATA
; LCALL HEX_BCD
; MOV 6DH,A
; MOV 6EH,B
;H_REP:LCALL DIS
; JNB H_KEY,H_REP
;
SET_END:setb tr0
RET
;***********key（按鍵） program 結(jié)束***
;*****************CONTROL JDQ*********
CONTROL:
MOV A,W_DATA
CJNE A,S_H_DATA,COMPARE1
OPEN1:CLR JDQ
AJMP CON_END
COMPARE1:
JNC OPEN1
MOV A,W_DATA
CJNE A,S_L_DATA,COMPARE2
OPEN2:CLR JDQ
AJMP CON_END
COMPARE2:
JC OPEN2
SETB JDQ
CON_END:RET
RET
;***********CONTROL JDQ END*************8
;
;************HEX_BCD 轉(zhuǎn)換子程序**********
;IN ACC, OUT :R5 R6 R7
HEX_BCD:MOV B,#10
DIV AB
MOV R5,B
; MOV A,B
MOV B,#10
DIV AB
MOV R6,B
MOV R7,A
RET
;**********ad7416 samping************
ad7416:
MOV FADDR,#090H
mov address,#00h
ii: mov a,#01h ;logcal address
lcall rd_rand
CLR C
RLC A
MOV 20H.1,C
RLC A
MOV 20H.0,C
; mov 4dh,a
; MOV 20H.1,C
; clr c
; RLC A
; MOV 20h.0,C
anl a,#11111100b
mov L_DATA,A
; MOV 20H.0,C
; MOV C,F0
; MOV ACC.1,C
MOV A,20H
ANL A,#00000011B
MOV H_DATA,A
; ret
; MOV ADDr_lo,#0
; mov address,#00h ;; Ad7416 溫度寄存器地址為０1Ｈ
; mov a,#00h
; lcall rd_rand
; mov a,r6
; anl a,#00111111b
; rl a
; rl a
; mov b,a
; mov a,r7
; rl a
; rl a
; mov r7,a
; mov a,b
; orl a,r7
; mov r6,a
; mov a,b
; anl a,#00000011b
; mov r7,a ;r7放置AD7416溫度值高2位,r6放置低8位
; CLR C
ret
;
wr_byte:NOP
; ; AT24Cxx Byte Write function.
; ; Called with programmable address in A, byte address in
; ; register pair ADDR_HI:ADDR_LO, data in register XDATA.
; ; Does not wait for write cycle to complete.
; ; Returns CY set to indicate that the bus is not available
; ; or that the addressed device failed to acknowledge.
; ; Destroys A.
LCALL start
jc x49 ; abort if bus not available
rl a ; programmable address to bits 3:1
orl a, FADDR ; add fixed address
clr acc.0 ; specify write operation
LCALL shout ; send device address
jc x48 ; abort if no acknowledge
; mov a, addr_hi ; send high byte of address
; LCALL shout ;
; jc x48 ; abort if no acknowledge
;
mov a, address ; send low byte of address
LCALL shout ;
jc x48 ; abort if no acknowledge
;
mov a, zdata ; get data
LCALL shout ; send data
jc x48 ; abort if no acknowledge
;
clr c ; clear error flag
x48: LCALL stop
x49: ret
;
rd_curr:NOP
;
; ; AT24Cxx Current Address Read function.
; ; Called with programmable address in A. Returns data in A.
; ; Returns CY set to indicate that the bus is not available
; ; or that the addressed device failed to acknowledge.
;
LCALL start
jc x45 ; abort if bus not available
;
rl a ; programmable address to bits 3:1
orl a, FADDR ; add fixed address
setb acc.0 ; specify read operation
LCALL shout ; send device address
jc x44 ; abort if no acknowledge
;
LCALL shin ; receive data byte
LCALL NAK ; do not acknowledge byte
clr c ; clear error flag
x44: LCALL stop
x45: ret
;
rd_rand:NOP
; AT24Cxx Random Read function.
; Called with programmable address in A, byte address in
; register pair ADDR_HI:ADDR_LO. Returns data in A.
; Returns CY set to indicate that the bus is not available
; or that the addressed device failed to acknowledge.
;
push b
mov b, a ; save copy of programmable address
;
; Send dummy write command to set internal address.
;
LCALL start
jc x47 ; abort if bus not available
;
rl a ; programmable address to bits 3:1
orl a, FADDR ; add fixed address
clr acc.0 ; specify write operation
LCALL shout ; send device address
jc x46 ; abort if no acknowledge
;
mov a, address ; send low byte of address
LCALL shout ;
jc x46 ; abort if no acknowledge
;
; ; Call Current Address Read function.
;
mov a, b ; get programmable address
LCALL rd_curr
Ljmp x47 ; exit
x46: LCALL stop
x47: pop b
ret
;
start:NOP
; Send START, defined as high-to-low SDA with SCL high.
; Return with SCL, SDA low.
; Returns CY set if bus is not available.
;
setb SDA
setb SCL
;
; Verify bus available.
;
jnb SDA, x40 ; jump if not high
jnb SCL, x40 ; jump if not high
;
nop ; enforce setup delay and cycle delay
clr SDA
nop ; enforce hold delay
nop ;
; nop ;
; nop ;;
; nop ;
clr SCL
;
clr c ; clear error flag
Ljmp x41
x40: setb c ; set error flag
x41: ret
;
;
stop: NOP
;
; ; Send STOP, defined as low-to-high SDA with SCL high.
; ; SCL expected low on entry. Return with SCL, SDA high.
;
clr SDA
nop ; enforce SCL low and data setup
nop
setb SCL
nop ; enforce setup delay
nop ;
; nop ;
; nop ;
; nop ;
setb SDA
ret
;
;
shout:NOP
;
; ; Shift out a byte to the AT24Cxx, most significant bit first.
; ; SCL, SDA expected low on entry. Return with SCL low.
; ; Called with data to send in A.
; ; Returns CY set to indicate failure by slave to acknowledge.
; ; Destroys A.
;
push b
mov b, #8 ; bit counter
x42: NOP
rlc a ; move bit into CY
mov SDA, c ; output bit
nop ; enforce SCL low and data setup
setb SCL ; raise clock
nop ; enforce SCL high
nop ;
; nop ;
; nop ;
clr SCL ; drop clock
djnz b, x42 ; next bit
;
setb SDA ; release SDA for ACK
nop ; enforce SCL low and tAA
nop ;
setb SCL ; raise ACK clock
nop ; enforce SCL high
nop ;
; nop ;
; nop ;
mov c, SDA ; get ACK bit
clr SCL ; drop ACK clock
;
pop b
ret
;
;
shin:NOP
;
; ; Shift in a byte from the AT24Cxx, most significant bit first.
; ; SCL expected low on entry. Return with SCL low.
; ; Returns received data byte in A.
;
setb SDA ; make SDA an input
;
push b
mov b, #8 ; bit count
x43: nop ; enforce SCL low and data setup
nop ;
; nop ;
setb SCL ; raise clock
nop ; enforce SCL high
nop ;
mov c, SDA ; input bit
rlc a ; move bit into byte
clr SCL ; drop clock
djnz b, x43 ; next bit
;
pop b
ret
;
NAK: NOP
; ; Clock out a negative acknowledge bit (high).
; ; SCL expected low on entry. Return with SCL low, SDA high.
setb SDA ; NAK bit
nop ; enforce SCL low and data setup
nop ;
setb SCL ; raise clock
nop ; enforce SCL high
nop ;
; nop ;
; nop ;
clr SCL ; drop clock
ret
;
;**************div4 subprogram***********
;DIVEND in r0,r1,DIVSOR 4,out r5,r4,
dIV25:NOP ;TDATA DATA 25
MOV R3, #4
MOV R2,#00H
MOV R4,#00H
MOV R5,#00H
MOV R7,#10H
CHU55:MOV A,R0
ADD A,R0
MOV R0,A
MOV A,R1
ADDC A,R1
MOV R1,A
MOV A,R2
ADDC A,R2
MOV R2,A
MOV A,R4
ADD A,R4
MOV R4,A
MOV A,R5
ADDC A,R5
MOV R5,A
CJNE R2,#4,LOOP05
LOOP05:JC LOOP15
MOV A,R2
SUBB A,R3
MOV R2,A
MOV A,R4
ADD A,#01H
MOV R4,A
MOV A,R5
ADDC A,#00H
MOV R5,A
LOOP15:DJNZ R7,CHU55
RET
;;**************************
;************結(jié)束 OK ********** *******
END
;**********-----所有程序結(jié)束----*****
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -