ORG 0000H
LJMP 0040H
ORG 0040H
MOV 30H,#00H
MOV 31H,#00H
MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
MOV IE,#82H
SETB TR0
MOV R1,#14H
MOV R2,#0AH
L0:MOV A,30H
MOV B,#0AH
DIV AB
MOV 40H,A
MOV 41H,B
MOV A,31H
MOV B,#0AH
DIV AB
MOV 42H,A
MOV 43H,B
MOV DPTR,#TAB
MOV R0,#40H
MOV R3,#7FH
L1:MOV A,@R0
MOVC A,@A+DPTR
MOV P1,A
MOV P2,R3
LCALL DEY5MS
MOV A,R3
RR A
MOV R3,A
INC R0
CJNE R0,#44H,L1
LJMP L0
ORG 000BH
MOV TH0,#3CH
MOV TL0,#0B0H
DJNZ R1,L2
MOV R1,#14H
INC 31H
DJNZ R2,L2
INC 30H
MOV 31H,#00H
MOV R2,#3CH
L2:NOP
RETI
DEY5MS:MOV R7,#05H
N0:MOV R6,#0FAH
N1:NOP
NOP
DJNZ R6,N1
DJNZ R7,N0
RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END
LJMP 0040H
ORG 0040H
MOV 30H,#00H
MOV 31H,#00H
MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
MOV IE,#82H
SETB TR0
MOV R1,#14H
MOV R2,#0AH
L0:MOV A,30H
MOV B,#0AH
DIV AB
MOV 40H,A
MOV 41H,B
MOV A,31H
MOV B,#0AH
DIV AB
MOV 42H,A
MOV 43H,B
MOV DPTR,#TAB
MOV R0,#40H
MOV R3,#7FH
L1:MOV A,@R0
MOVC A,@A+DPTR
MOV P1,A
MOV P2,R3
LCALL DEY5MS
MOV A,R3
RR A
MOV R3,A
INC R0
CJNE R0,#44H,L1
LJMP L0
ORG 000BH
MOV TH0,#3CH
MOV TL0,#0B0H
DJNZ R1,L2
MOV R1,#14H
INC 31H
DJNZ R2,L2
INC 30H
MOV 31H,#00H
MOV R2,#3CH
L2:NOP
RETI
DEY5MS:MOV R7,#05H
N0:MOV R6,#0FAH
N1:NOP
NOP
DJNZ R6,N1
DJNZ R7,N0
RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END
连线连到半夜,跟纳鞋底子似得。2楼上程序!
