数码管动态扫描.asm

一些单片机汇编程序 流水灯 键盘 lcd A/D D/A等

;动态扫描数码显示程序
ORG 00H
MOV 20H,#0C0H
MOV 21H,#0F9H
MOV 22H,#0A4H
MOV 23H,#0B0H
MOV 24H,#99H
MOV 25H,#92H
START:CALL SCAN
      JMP START
SCAN:MOV A,#0FEH    ;扫描子程序
      MOV R0,#20H
      SETB C
      MOV R2,#06H
LOOP:RLC A

     MOV P2,A
     MOV P0,@R0
     INC R0
     CALL DELAY
     DJNZ R2,LOOP
     MOV R2,#07H
     RET
DELAY:MOV R3,#1  ;扫描延时
D1:MOV R4,#2
D2:MOV R5,#248
   DJNZ R5,$
   DJNZ R4,D2
   DJNZ R3,D1
   RET
   END