led9999.asm

单片机应用的基本程序

	 ORG   0000H
    k7:  MOV 10H,#0AH     ;2004年6月22日
         MOV 11H,#0BH      ;4位LED显示 扫描显示0---9999   BC板调好程序
         MOV 12H,#0BH
         MOV 13H,#0AH
         MOV R1,#30H
         MOV DPTR,#TAB0
   CY0:  MOV A,#00H
         MOVC A,@A+DPTR
         MOV @R1,A
         INC DPTR
         INC R1
         DJNZ 10H,CY0
         MOV DPTR,#TAB0
         MOV A,R1
         CLR A
   CY2:  MOV A,R1
   CY4:  ADD A,#06H
         MOV R1,A
         MOV 10H,#0AH
         CJNE R1,#70H,CY0
   Y06:  MOV R1,#60H
         MOV 10H,#0BH
   Y061: MOV 70H,@R1   ;70H 74H
         INC R1
         MOV 74H,R1
         DJNZ 10H,Y05
         LJMP K7
   Y05:  MOV R1,#50H
         MOV 11H,#0BH
  Y051:  MOV 71H,@R1    ;71H   75H
         INC R1
         MOV 75H,R1
         DJNZ 11H,Y04
         MOV R1,74H
         LJMP Y061
   Y04:  MOV R1,#40H
  Y041:  MOV 72H,@R1   ;72H  76H
         INC R1
         MOV 76H,R1
         DJNZ 12H,Y03
         MOV R1,75H
         MOV 12H,#0BH
         AJMP Y051
   Y03:  MOV R1,#30H
         MOV 13H,#0BH
  Y031:  MOV 73H,@R1   ;73H  77H
         INC R1
         MOV 77H,R1
         LCALL DLY
         DJNZ 13H,OUT
         CLR A
         MOV A,76H
         MOV R1,A
         MOV 13H,#0AH
         LJMP Y041
   OUT:  MOV R0,#73H
         MOV R2,#01H
         MOV A,R2
         mov P2,#00H
    QP:  MOV P2,A
         MOV P0,@R0
         LCALL D1MS
         MOV p2,A
         DEC R0
         MOV A,R2
         JB ACC.3,QP1
         RL A
         MOV R2,A
         LCALL D2MS
         AJMP QP
   QP1:  LJMP Y031
  D1MS:  MOV R7,#0AH
   D11:  MOV R6,#0FFH
   D12:  DJNZ R6,D12
         DJNZ R7,D11
         RET
  D2MS:  MOV R7,#06H
   D21:  MOV R6,#0FFH
   D22:  DJNZ R6,D22
         DJNZ R7,D21
         RET
    DLY: MOV R7,#02H
     DL: MOV R6,#0FFH
    DL1: DJNZ R6,DL1
         DJNZ R7,DL
         RET
      ;TAB0为宜兴科达到5641B公阳极,低电位0显示代码
   TAB0: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
            ;0,   1,   2,   3,   4,  5,  6,  7,   8,  9    的代码分别
         DB 88H,83H,0C6H,0A1H,86H,8EH,8CH,0C7H,0C1H,0CEH, 00H,  0FFH
            ;A,  b,   C,   d,   E,  F,  P,  L,   U,  伽玛  全亮  全灭  的代码分别
         END