led灯显示.asm

来自「实现8段数码管显示.利用本代码」· 汇编 代码 · 共 74 行

ORG 0000H
AJMP MAIN
ORG 000BH
AJMP INT0
LOOO:DB 3FH,06H,5BH,4FH,66H,6DH
     DB 7DH,07H,7FH,6FH,5EH,
LEDBUF EQU 40H
MAIN:
     MOV TMOD,#05H
     MOV TH0,#00H
     MOV TL0,#00H
     SETB EA
     SETB ET0
     SETB TR0
     MOV LEDBUF+0,#5EH
     MOV LEDBUF+1,#3FH
     MOV LEDBUF+2,#4FH
     MOV LEDBUF+3,#3FH
     MOV LEDBUF+4,#6DH
     MOV LEDBUF+5,#06H
 LOOP2:LCALL DISPLAY
       SJMP LOOP2
 INT0: PUSH PSW
       PUSH DPH
       PUSH DPL
       PUSH ACC
       MOV DPTR,#LOOO
       MOV A,TL0
       ANL A,#0FH
       MOVC A,@A+DPTR
       MOV LEDBUF+5,A
       MOV A,TL0
       SWAP A
       ANL A,#0FH
       MOVC A,@A+DPTR
       MOV LEDBUF+4,A
       MOV A,TH0
       ANL A,#0FH
       MOVC A,@A+DPTR
       MOV LEDBUF+3,A
       MOV A,TH0
       SWAP A
       ANL A,#0FH
       MOVC A,@A+DPTR
       MOV LEDBUF+2,A
       POP ACC
       POP DPL
       POP DPH
       POP PSW
       RETI
  DISPLAY: MOV R1,#20H
           MOV R2,#6
           MOV R0,#LEDBUF
   LOOP1: MOV A,#00H
          MOV DPTR,#8002H
          MOVX @DPTR,A
          MOV DPTR,#8004H
          MOV  A,@R0
          MOVX @DPTR,A
          MOV A,R1
          MOV DPTR,#8002H
          MOVX @DPTR,A
          INC R0
          RR A
          MOV R1,A
          DJNZ R2,LOOP1
          SJMP DISPLAY
          RET
          END