机电课程设计-------温度巡回检测仪
LCALL DISPLAY ;显示
DJNZ R5,LP1 ;未到1 S继续循环
LCALL GET1302 ;每过1s从DS1302读取一次时间 MOV R5,#25 SJMP LP1 SHOWTEM: MOV A, 30H JZ LP1
MOV A, 31H ；温度数值转化
MOV B,#20 MUL AB MOV B,#51 DIV AB
MOV R1,A MOV A,B MOV B,#10 MUL AB MOV B,#51 DIV AB MOV 32H,A MOV 31H,R1
;小数后一位放于32H ;结果存放31H
MOV B,#100 MOV A,31H DIV AB
MOV 73H,A ;温度的百位 MOV A,B MOV B,#10 DIV AB
MOV 72H,A ;温度的十位 MOV 71H,B MOV 70H, 32H MOV 75H, 30H
;温度的个位
;温度的十分位 ;通道数
MOV DPTR, #7FFFH MOV A, #80H
MOVX @DPTR,A ;设置8255控制字
温度巡回检测仪 31 机电课程设计-------温度巡回检测仪
MOV DPTR, #7FFDH
MOV DPTR, #7FFDH
MOV DPTR, #7FFDH
MOV A, #0FEH MOVX @DPTR, A MOV DPTR, #TAB1 MOV A, 70H MOVC A, @A+DPTR MOV DPTR, #7FFCH MOVX @DPTR, A LCALL DELAY
MOV A, #0FDH MOVX @DPTR, A MOV DPTR, #TAB2 MOV A, 71H MOVC A, @A+DPTR MOV DPTR, #7FFCH MOVX @DPTR, A LCALL DELAY MOV DPTR, #7FFDH MOV A, #0FBH MOVX @DPTR, A MOV DPTR, #TAB1 MOV A, 72H MOVC A, @A+DPTR MOV DPTR, #7FFCH MOVX @DPTR, A LCALL DELAY
MOV A, #0F7H MOVX @DPTR, A MOV DPTR, #TAB1 MOV A, 73H MOVC A, @A+DPTR MOV DPTR, #7FFCH MOVX @DPTR, A
温度巡回检测仪 32 机电课程设计-------温度巡回检测仪
LCALL DELAY
MOV DPTR, #7FFDH
MOV A, #0DFH MOVX @DPTR, A MOV DPTR, #TAB1
MOV A, 75H MOVC A, @A+DPTR MOV DPTR, #7FFCH MOVX @DPTR, A LCALL DELAY MOV A, 30H AJMP SHOWTEM LP3: LJMP LP1 DB 7FH,6FH DB 0FFH,0EFH
JZ LP3
TAB1: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H TAB2: DB 0DFH,86H,0DBH,0CFH,0E6H,0EDH,0FDH,87H
DISPLAY:
MOV DPTR, #7FFFH MOV A, #80H
MOVX @DPTR,A ;设置8255控制字 MOV R3,SECOND LCALL CHAG MOV DPTR, #7FFDH MOV A, #0FEH MOVX @DPTR, A MOV DPTR, #7FFCH MOV A, R2 MOVX @DPTR, A LCALL DELAY MOV DPTR, #7FFDH MOV A,#0FDH MOVX @DPTR, A MOV DPTR, #7FFCH MOV A, R3
温度巡回检测仪 33
机电课程设计-------温度巡回检测仪
MOVX @DPTR, A
LCALL DELAY MOV R3, MINUTE LCALL CHAG MOV DPTR, #7FFDH
MOV DPTR, #7FFDH
MOV R3, HOUR LCALL CHAG MOV DPTR, #7FFDH
MOV DPTR, #7FFDH
MOV A, #0DFH MOVX @DPTR,A MOV DPTR, #7FFCH MOV A, R3 MOVX @DPTR, A MOV A,#0EFH MOVX @DPTR, A MOV DPTR, #7FFCH MOV A, R2 MOVX @DPTR, A MOV A,#0F7H MOVX @DPTR,A MOV A, R3 MOVX @DPTR, A
MOV DPTR, #7FFCH MOV A,#0FBH MOVX @DPTR, A MOV DPTR, #7FFCH MOV A, R2 MOVX @DPTR, A
LCALL DELAY
LCALL DELAY
LCALL DELAY
LCALL DELAY RET
温度巡回检测仪 34 机电课程设计-------温度巡回检测仪
DELAY: MOV R7,#50 D1: MOV R6,#10 D2: DJNZ R6,$
CHAG: PUSH ACC
SET1302:
CLR T_RST CLR T_CLK SETB T_RST
;控制寄存器 ;写操作前WP=0
MOV A,R3 ANL A,#0FH MOV R2,A MOV A,R3 SWAP A ANL A,#0FH MOV R3,A
MOV DPTR,#DATATAB MOV A,R2 MOVC A,@A+DPTR MOV R2,A MOV A,R3 MOVC A,@A+DPTR MOV R3,A RET
;低字节放入R2，高字节放入R3
DJNZ R7,D1
RET
POP ACC
DATATAB: DB 0B7H,90H,3DH,0B9H,9AH,0ABH,0AFH,0B0H,0BFH,0BBH
MOV B, #8EH LCALL RTInputByte MOV B, #00H LCALL RTInputByte SETB T_CLK CLR T_RST MOV R0, #Second; MOV R7, #7 ;
温度巡回检测仪 35