wendu.asm

温度控制器的protell制图和各个能实现的程序。

ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:MOV R0,#30
     MOV R1,#10
START:JNB P3.4,JIA
      JNB P3.3,JIAN
      LCALL ZH
      LCALL DISP
      AJMP START
JIA: JB P3.4,JIA1
     LCALL DISP
     AJMP JIA
JIA1:
     INC R0
     CJNE R0,#38,START
     LJMP MAIN
JIAN:JB P3.3,JIAN1
     LCALL DISP
     AJMP JIAN
JIAN1: DEC R0
      CJNE R0,#24,START
      LJMP MAIN
ZH:  MOV B,#10
     MOV A,R0
     DIV AB
     MOV 41H,A
     MOV 40H,B
     RET
DISP:MOV DPTR,#TABLE
     MOV A,R1
      MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.3
     LCALL DEL
     SETB P2.3
     CLR P2.5

     MOV A,40H
     MOV DPTR,#TABLE
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.2
     LCALL DEL
      SETB P2.2

     MOV A,41H
     MOV DPTR,#TABLE
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.1
     LCALL DEL
     SETB P2.1
      RET

TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ,0C6H

 DEL:MOV R6,#50
   D2:MOV R7,#50
   D1:DJNZ R7,D1
      DJNZ R6,D2
      RET
      END