bcd.asm

BCD,红外遥控

LED1  EQU  21H
LED2  EQU  22H
LED3  EQU  23H
ORG 00H
JMP START
START:MOV DPTR,#TABLE
      MOV LED3,#10H
MAIN: MOV A,P1
      MOV B,#10H
      DIV AB
      MOV LED1,A
      MOV LED2,B
      CALL SCAN
      JMP MAIN
SCAN:MOV P2,#00001000B ;扫描子程序
     MOV A,LED3
     MOVC A,@A+DPTR
     MOV P0,A
     CALL DELAY1
     MOV P2,#00000100B
     MOV A,LED2
     MOVC A,@A+DPTR
     MOV P0,A
     CALL DELAY1
     MOV P2,#00000010B
     MOV A,LED1
     MOVC A,@A+DPTR
     MOV P0,A
     CALL DELAY1
     RET
DELAY1:MOV R6,#4    ;扫描延时
D3:    MOV R7,#248
       DJNZ R7,$
       DJNZ R6,D3
       RET

TABLE:       DB 3FH,06H,5BH,4FH,66H,6DH,7DH;共阴字码表
             DB 07H,7FH,6FH,77H,7CH,39H,5EH
             DB 79H,71H,76H,73H,3EH,00H