|
|
本帖最后由 daniu 于 2014-12-25 13:15 編輯
- ORG 0000H
- MOV SCON,#01H
- SJMP STAR
- STAR:MOV DPTR,#JPTAB
- RL A
- JMP @A+DPTR
- JPTAB: AJMP K0
- AJMP K1
- AJMP K2
- AJMP K3
- K0:MOV P0,#0CFH
- MOV P2,#0CFH
- MOV R7,#25
- LCALL DELAY
- MOV A,#1
- LCALL STAR
- K1:MOV P0,#0A6H
- MOV P2,#09FH
- MOV R7,#5
- LCALL DELAY
- MOV A,#2
- LCALL STAR
- K2:MOV P0,#79H
- MOV P2,#7FH
- MOV R7,#25
- LCALL DELAY
- MOV A,#3
- LCALL STAR
- K3:MOV P0,#034H
- MOV P2,#0BFH
- MOV R7,#5
- LCALL DELAY
- MOV A,#0
- LCALL STAR
- DELAY: MOV R6,#0D0H
- D1: MOV R5,#0E0H
- D2: MOV R4,#10
- JNB P3.3,JJ
- DJNZ R4,$
- DJNZ R5,D2
- DJNZ R6,D1
- MOV A,R7
- MOV B,#10
- DIV AB
- MOV DPTR,#TAB
- MOVC A,@A+DPTR
- MOV R1,A
- MOV A,B
- MOVC A,@A+DPTR
- MOV R0,A
- MOV R3,#3
- L3: MOV SBUF,R1
- JNB TI,$
- CLR TI
- MOV SBUF,R0
- JNB TI,$
- CLR TI
- DJNZ R3,L3
- DJNZ R7,DELAY
- RET
- JJ:
- MOV P0,#06DH
- MOV P2,#0DFH
- JNB P3.3,$
- RET
- TAB:DB 088H,0BEH,0C4H,094H,0B2H
- DB 091H,081H,0BCH,080H,090H
- END
|
|
