十进制显.asm

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

ORG  0000H
START:MOV  DPTR,#TAB0
MOV  R0,#02H
MOV  P1,#01H
MOV  R1,#08H
MOV B,#0H
ASP:MOV P0,#0FFH
MOV A,P0
AA:RRC A
JNC  BB
INC B
BB:DEC R1
CJNE R1,#0H,EE
SJMP CC
EE:PUSH A
MOV A,R0
MUL AB
MOV B,A
POP A
SJMP AA
CC: MOV A,B
DD:MOV B,#0AH
DIV AB
PUSH A
MOV  A,B
MOVC  A,@A+DPTR
MOV  P2,A
POP A
JZ  START
PUSH A
MOV  A,P1
RLC  A
MOV   P1,A
POP A
SJMP DD
TAB0: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H
END