swj.asm

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

ORG 0000H
MAIN:LCALL INITAL
     MOV SCON,#0B8H
ALOOP:LCALL DISPLAY      ;调用显示
      MOV SBUF,#01H
      JNB  TI,ALOOP
      CLR TI
      CLR P1.1
      LJMP RECEIVE
      SETB P1.1
      LJMP ALOOP
INITAL:
       MOV R4,#100
       MOV R0,#30H
       MOV R2,#3
       MOV 30H,#0
       MOV 31H,#0
       MOV 32H,#0
       RET
RECEIVE:LCALL DISPLAY
        JNB RI,RECEIVE
        CLR RI
        MOV A,SBUF
        MOV @R0,A
        INC R0
    AAA:LCALL DISPLAY
        DJNZ R4,AAA
        DJNZ R2,ALOOP
        MOV R0,#30H
        MOV R2,#3
        LJMP MAIN
DISPLAY:MOV DPTR,#TABLE
     MOV A,30H
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.3
     LCALL DEL
     SETB P2.3

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

     MOV A,32H
     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