12.8.asm

来自「温度控制器的protell制图和各个能实现的程序。」· 汇编 代码 · 共 43 行

ORG 0000H
LJMP MAIN
ORG 0020H
MAIN:MOV R1,#30H
     MOV 30H,#1
     MOV 31H,#2
     MOV 32H,#8
     MOV 33H,#10
     MOV R0,#0FEH
     MOV A,R0

 D0: MOV P2,A
     CLR P2.5
     JNB ACC.1,D2
     LJMP D1
  D2:MOV DPTR,#TABDIP
     LJMP D4
 D1: MOV DPTR,#TAB
 D4: MOV A,@R1
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     LCALL DEL
     SETB P2.5
     INC R1
     MOV A,R0
     RL A
     MOV R0,A
     MOV A,R0
     JNB ACC.4,MAIN
     LJMP D0

 TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ,0C6H
 TABDIP:DB 040H,079H,024H,030H,19H,12H,02H,78H,00H,10H
 DEL:MOV R6,#10
   DD2:MOV R7,#50
   DD1:DJNZ R7,DD1
      DJNZ R6,DD2
      RET
      END