基于单片机的智能浇灌控制系统

JB ACC.7, LOOP4 MOV A, R2 RLC A MOV R2,A MOV A, R3 RLC A SUBB A,R5 JC DONE1 JNZ LOOP4 MOV A,R2 SUBB A,R4 JC DONE1 LOOP4:MOV A,R6 ADD A,#1 MOV R6,A MOV A,R7 ADDC A,#0 MOV R7,A DONE1: MOV HUMID,R6 CLR 0D3H RET

BCDTURN: MOV SHOWADR+3, #00H‘因湿度值只能小于100，故千位数为0 MOV B, #100 MOV A, HUMID DIV AB

MOV SHOWADR+2,A‘将百位数送SHOWADR+2显示地址 MOV A, #10 XCH A, B DIV AB

MOV SHOWADR+1,A‘将十位数送SHOWADR+1显示地址 MOV SHOWADR, B‘将个位数送SHOWADR显示地址

17

RET

MOV DPTR, #7FF8H;指向8155控制口 MOV A, #4DH;设置8155工作方式字 MOVX @DPTR, A;设A口、C口均为输出 SHOW: CLR OD3H SETB OD4H ;选中寄存器2组 MOV R4, #OFFH

SHOWSTART: MOV R0, SHOWADR+3 ;MOV R1, #4;显示4位LED SHOWLED: MOV R6, #20H MOV R7, #00H DIR 1:MOV A, #00H MOV DPTR, #7FFBH MOVX @DPTR, A MOV A,@R0 MOV DPTR, #TAB MOV A, @A+DPTR MOV DPTR, #7FF9H MOVX @DPTR,A MOV A,R6

MOV DPTR,# 7FFBH MOVX @DPTR,A HERE:DJNZ R7,HERE DEC RO CLR C MOV A,R6 RRC A MOV R6,A JNZ DIR1 DJNZ R1,SHOWLED

指向缓冲区末单元18

DJNZ R4,SHOWSTART CLR 0D4H

TAB:DB OCOH, OF9H, OA4H, OBOH DB 99H, 92H, 82H, OF8H DB 80H, 90H, 88H, 83H DB OC6H, OA1H, 86H, 8EH RET

19