wbk2.asm

51单片机实验用的程序 希望对你能有所帮助 包括跑马 十进制显 电子琴

ORG  0000H
MOV  TMOD,#10H
MOV  R0,#0H
MOV  DPTR,#TAB
MOV  R1,#0AH
MOV  R2,#0CH
MOV  R3,#0BH
MOV TH1,#03CH
MOV TL1,#0B0H
SETB  TR1
COUN: JBC TF1,MIAO

MOV  B,#0AH
MOV A,R1
DIV AB
MOV  P1,#10H
MOVC A,@A+DPTR
MOV  P2,A
MOV  A,B
MOV P1,#20H
MOVC A,@A+DPTR
MOV  P2,A

MOV  B,#0AH
MOV  A,R2
DIV AB
MOV  P1,#04H
MOVC A,@A+DPTR
MOV  P2,A
MOV  A,B
MOV  P1,#08H
MOVC  A,@A+DPTR
MOV P2,A

MOV  B,#0AH
MOV  A,R3
DIV  AB
MOV  P1,#01H
MOVC A,@A+DPTR
MOV  P2,A
MOV  A,B
MOV  P1,#02H
MOVC A,@A+DPTR
MOV  P2,A
SJMP COUN
MIAO:INC R0
CJNE  R0,#14H,COUN
MOV  R0,#0H
SJMP  COUN

TAB: DB  3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END