接下述程序代码
;
T0: MOV TL0,#<(65536-10000)
MOV TH0,#>(65536-10000)
PUSH A
PUSH PSW
SETB RS0
CLR RS1
MOV R0,#30H
MOV R1,#31H
MOV A,#E0H ；个位
XCHD A,@R0
MOV P2,A
MOV R2,#1
CALL DELAY
XCHD A,@R0
MOV A,@R0 ；十位
SWAP A
MOV @R0,A
MOV A,#D0H
XCHD A,@R0
MOV P2,A
MOV R2,#1
CALL DELAY
XCHD A,@R0
MOV A,@R0
SWAP A
MOV @R0,A
MOV A,#B0H ；百位
XCHD A,@R1
MOV P2,A
MOV R2,#1
CALL DELAY
XCHD A,@R1
MOV A,@R1 ；千位
SWAP A
MOV @R1,A
MOV A,#70H
XCHD A,@R1
MOV P2,A
MOV R2,#1
CALL DELAY
XCHD A,@R1
MOV A,@R1
SWAP A
MOV @R1,A
POP PSW
POP A
RETI
;
DELAY: MOV R3,#10
D1: MOV R4,#80
DJNZ R4,$
DJNZ R3,D1
DJNZ R2,DELAY
RET
END
|
楼主
