Led quay!

[1991conga]

[QUOTE=thanhhaudt33;619333]

[;================================================= =============
; Disassembled Using DIS8051 - (C)1989 Data Sync Engineering ;
;================================================= =============
;
;
;
ORG 00000H
;
LJMP L07D4
;
;
ORG 007D4H
;
;
L07D4: MOV R0,#07FH
CLR A
;
L07D7: MOV @R0,A
DJNZ R0,L07D7
MOV SP,#02BH
LJMP L081B
;
;
ORG 00385H
;
;
L0385: ANL A,R5
NOP
AJMP L0002
;
RR A
INC A
INC 000H
INC @R0
INC @R1
NOP
INC R0
INC R1
INC R2
NOP
INC R3
INC R4
INC R5
INC R6
INC R4
NOP
INC R7
JBC 011H,L03B0
NOP
RRC A
DEC A
DEC 016H
DEC @R1
DEC R0
NOP
DEC R1
NOP
DEC R0
INC R3
DEC R2
DEC R2
LCALL L001B
INC R4
;
L03B0: DEC R4
DEC R5
DEC @R0
NOP
DEC R6
INC R2
DEC R7
INC R6
NOP
DEC R1
NOP
JB 00AH,L03DD
INC R6
NOP
INC R3
AJMP L0103
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
RET
;
;
L03DD: RET
;
RET
;
RET
;
;
L03E0: RET
;
RET
;
RET
;
RR A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC 0FFH
DEC R7
INC R7
INC @R1
MOVX @R1,A
MOV R3,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R0,A
MOVX @DPTR,A
MOVX A,@DPTR
XCH A,R7
DJNZ R7,L0409
MOV R7,A
MOV R7,A
MOV R7,A
INC @R0
MOV R7,A
DJNZ R7,L03E0
XCH A,@R1
MOVX A,@R1
ACALL L07E3
XCH A,@R1
XCH A,R7
DJNZ R7,L0418
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC R2
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
;
L0429: MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
XCH A,@R1
XCH A,@R1
XCH A,@R1
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC A
MOV R7,A
SUBB A,R7
SUBB A,@R1
INC R7
RR A
RR A
INC R7
SUBB A,@R1
SUBB A,R7
MOV R7,A
MOV R7,A
MOV R7,A
MOV R6,A
MOV R7,A
MOV R4,A
MOV R4,A
MOV R7,A
MOV R6,A
MOV R7,A
MOV R7,A
INC R1
MOV R7,A
MOV R3,A
MOVX @R1,A
INC @R1
INC R7
DEC R7
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
DJNZ R7,L0429
MOVX A,@DPTR
MOVX @DPTR,A
MOV R0,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC @R0
MOV R7,A
XCH A,R7
MOV 003H,@R1
RLC A
JMP @A+DPTR
;
MOVX @R1,A
CLR C
XCH A,@R1
XCH A,R7
MOV R7,A
MOVX @R1,A
MOVX A,@R1
CLR C
XCH A,R6
XCH A,R6
XCH A,R4
PUSH 0E1H
MOVX @R1,A
INC R2
MOV R7,A
RR A
RR A
RR A
MOV R7,A
MOV R7,A
MOV R7,A
RR A
RR A
RR A
MOV R7,A
MOV R4,A
MOV R0,A
MOVX @DPTR,A
MOVX A,@R1
XCH A,@R1
MOVX A,@R1
MOVX @DPTR,A
MOV R0,A
MOV R4,A
INC R2
MOV R7,A
RR A
RR A
RR A
JMP @A+DPTR
;
JMP @A+DPTR
;
JMP @A+DPTR
;
RR A
INC @R1
MOV 0FFH,R7
PUSH 0C0H
PUSH 0CEH
XCH A,R6
XCH A,R6
PUSH ACC
ACALL L070A
MOV R7,A
MOV R7,#07BH
JMP @A+DPTR
;
MOV A,@R1
MOV A,R7
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,A
MOVX @DPTR,A
MOVX A,@DPTR
PUSH 0CFH
XCH A,R7
MOVX A,@DPTR
PUSH 0C0H
MOV R7,A
INC R1
MOV R7,A
ADDC A,R7
ADDC A,R7
ADDC A,R7
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
AJMP L06C1
;
AJMP L06FF
;
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC A
MOV R7,A
MOVX A,@R1
MOVX @R1,A
MOVX @R1,A
RR A
RR A
RR A
MOVX @R1,A
MOVX @R1,A
MOVX A,@R1
MOV R7,A
MOV R7,A
MOV R7,A
DJNZ R7,L049A
PUSH 0C0H
DJNZ R7,L04DD
MOV R7,A
INC R2
MOV R7,A
RR A
RR A
RR A
MOV R7,A
MOV R7,#07FH
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
PUSH 0C0H
PUSH 0FCH
MOV R6,A
PUSH 0C0H
AJMP L06FF
;
INC R1
MOV R7,A
MOV R7,A
MOV @R1,A
XRL A,@R1
ORL A,R7
ANL A,R7
MOV R7,A
MOV R7,#07FH
MOV R7,A
MOV R7,A
ACALL L07E0
PUSH 0CEH
XCH A,R6
MOVX A,@DPTR
PUSH 0C0H
MOV R7,A
INC R1
MOV R7,A
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,A
MOV R7,A
PUSH 0C0H
PUSH 0FCH
MOV R6,A
MOV R6,A
PUSH 0C0H
AJMP L060A
;
MOV R7,A
RR A
RR A
RR A
MOV R7,#07FH
MOV R7,#003H
RR A
RR A
MOV R7,A
PUSH 0C0H
PUSH 0FEH
MOV R6,A
MOV R6,A
PUSH 0C0H
PUSH 00AH
MOV R7,A
MOV R7,A
DJNZ R7,L05A7
XRL A,@R1
XRL A,@R1
MOV A,R7
ANL A,R7
MOV R7,#0FFH
MOV R7,A
ACALL L07E0
PUSH 04EH
ORL A,R6
MOVX A,@DPTR
PUSH 0C0H
MOV R7,A
INC R1
MOV R7,A
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,A
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,A
MOVX @DPTR,A
MOVX A,@DPTR
PUSH 0CFH
XCH A,R7
MOVX A,@DPTR
PUSH 0C0H
MOV R7,A
INC R1
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,#03FH
DEC R7
MOV 0C7H,R7
MOVX A,@R1
XCH A,@R1
MOVX A,@R1
ACALL L07F8
MOV R4,A
MOV R6,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC R2
MOV R7,A
MOV R3,A
RR A
RR A
RR A
MOV R3,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
DJNZ R7,L0540
PUSH 0C0H
XCH A,R7
XCH A,R7
XCH A,R7
XCH A,@R1
CLR C
INC R2
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,#077H
JMP @A+DPTR
;
ADD A,R1
MOV 0DFH,R5
MOV R7,A
MOV R7,A
ACALL L07E0
PUSH 0CEH
XCH A,R6
PUSH ACC
ACALL L07FF
INC R1
MOV R7,A
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,#07FH
MOV R7,A
MOV R7,A
MOV R7,A
;
L05A7: MOV R7,A
NOP
;
L05A9: NOP
NOP
CLR A
MOV A,@R0
MOVX A,@DPTR
MOVX @DPTR,A
MOV R1,A
MOV R7,A
INC R1
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
XCH A,R4
XCH A,R4
XCH A,R4
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
INC A
MOV R7,A
INC R7
INC @R1
RR A
MOVX @R1,A
MOVX @R1,A
MOVX @R1,A
CLR C
XCH A,@R1
XCH A,R7
MOV R7,A
MOVX @DPTR,A
MOVX A,@DPTR
PUSH 0CFH
XCH A,R7
XCH A,R7
CLR C
MOVX A,@R1
MOVX @R1,A
INC R2
MOV R7,A
MOV R3,A
RR A
RR A
RR A
MOVX @R1,A
MOVX @R1,A
RR A
INC @R1
INC R7
MOV R7,A
DJNZ R7,L05A9
PUSH 0C0H
XCH A,R7
XCH A,R7
PUSH ACC
MOVX @DPTR,A
INC R2
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R4,A
MOV R4,A
MOV R4,A
MOV R4,A
MOV R4,A
MOV R4,A
MOV R7,A
MOV R7,A
MOV R7,A
INC @R1
MOV R7,A
XCH A,R7
ORL A,@R1
XRL 073H,#073H
RR A
INC @R1
MOV 0FFH,R7
MOV R7,A
MOVX @R1,A
MOVX A,@R0
XCH A,@R0
XCH A,R6
XCH A,R6
PUSH ACC
ACALL L07FF
INC R1
MOV R7,A
RR A
RR A
RR A
DEC R7
MOV 0C3H,R7
MOVX A,@R1
MOVX @R1,A
MOV R3,A
MOV R7,A
PUSH 0C0H
PUSH 0F8H
ACALL L07C3
XCH A,@R1
XCH A,R7
DJNZ R7,L063A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,#07FH
MOV R7,#07FH
MOV R7,A
MOV R7,A
MOV R7,A
;
L063A: MOV R7,A
ACALL L07E0
PUSH 0CEH
XCH A,R6
PUSH ACC
ACALL L07FF
INC R1
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,#07FH
MOV R7,A
MOV R7,A
ACALL L07E0
PUSH 0CEH
XCH A,R6
MOVX A,@DPTR
PUSH 0C0H
MOV R7,A
INC R1
MOV R7,A
MOV R3,#003H
RR A
RR A
JMP @A+DPTR
;
MOVX @R1,A
RR A
INC @R1
INC R7
MOV R7,A
DJNZ R6,L0627
PUSH 0C0H
XCH A,R6
XCH A,R7
PUSH ACC
MOVX @DPTR,A
INC R2
MOV R7,A
MOV R7,A
DJNZ R7,L06C2
XRL A,@R1
XRL A,@R1
ORL A,R7
DJNZ R7,L0677
MOV R7,A
MOV R7,A
ACALL L07E0
PUSH 04AH
ORL A,R2
XCH A,R0
MOV A,R4
MOV R7,A
MOV R7,A
INC R0
MOV R7,A
MOV R3,#003H
RR A
RR A
JMP @A+DPTR
;
MOVX @R1,A
RR A
INC @R1
INC R7
MOV R7,A
DJNZ R6,L0651
PUSH 0C0H
XCH A,R6
XCH A,R7
PUSH ACC
MOVX @DPTR,A
INC R2
MOV R7,#07FH
MOV R7,#0EBH
MOVX A,@R1
MOV @R1,#07FH
ADD A,R7
MOV 0DFH,R7
MOVX @DPTR,A
MOVX A,@DPTR
PUSH 0CFH
XCH A,R7
MOVX A,@DPTR
PUSH 0C0H
MOV R7,A
MOV R7,A
INC R2
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,#07FH
MOV R7,#0FFH
MOV R7,A
MOV R7,A
MOV R7,A
MOV R3,A
ACALL L07E0
SWAP A
XCH A,R6
DJNZ R7,L06BF
MOV R7,A
;
L06C1: MOV R7,A
;
L06C2: INC @R1
;
L06C3: MOV R6,A
MOV R4,A
MOV R0,A
MOVX @DPTR,A
MOVX A,@DPTR
PUSH P0
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
;
L06D3: MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R6,A
MOV R4,A
MOV R0,A
MOVX @DPTR,A
MOVX A,@DPTR
PUSH P0
NOP
;
ORG 00899H
;
LJMP L0800
;
NOP
LJMP L0A00
;
NOP
AJMP L0814
;
NOP
AJMP L080D
;
NOP
LJMP L1200
;
NOP
LJMP L0F00
;
NOP
LJMP L1600
;
NOP
AJMP L080C
;
NOP
AJMP L0815
;
NOP
AJMP L0811
;
NOP
AJMP L080E
;
NOP
AJMP L0E02
;
AJMP L0E03
;
AJMP L0E01
;
AJMP L0E00
;
;
ORG 00915H
;
;
L0915: MOV R6,007H
DEC R7
MOV A,R6
JNZ L0915
RET
;
;
ORG 00860H
;
;
L0860: MOV 008H,#001H
MOV 009H,#02CH
MOV DPTR,#L0385
CLR A
MOVC A,@A+DPTR
INC DPTR
MOVC A,@A+DPTR
MOV 014H,A
MOV 00CH,#005H
CLR A
MOV TMOD,A
SETB EA
SETB ET0
SETB TR0
MOV TH0,A
MOV TL0,A
SETB IT0
SETB EX0
CLR P3.5
MOV 012H,A
MOV 013H,#001H
LCALL L06E3
;
L088D: JNB 001H,L088D
CLR 001H
SETB 000H
LCALL L000E
SJMP L088D
;
ORG 00003H
;
LJMP L0006
;
;
L0006: CLR 000H
SETB TR0
RETI
;
LJMP L0908
;
;
ORG 00908H
;
;
L0908: MOV TH0,#0C0H
MOV TL0,#000H
CLR TR0
SETB 001H
CLR P3.6
RETI
;
;
ORG 0000EH
;
;
L000E: CLR A
MOV 025H,A
MOV 026H,A
MOV 027H,A
MOV 028H,A
INC 010H
MOV A,010H
;
L001B: JNZ L001F
INC 00FH
;
L001F: CLR A
MOV 00AH,A
MOV 00BH,A
MOV R6,016H
MOV R7,017H
MOV R4,A
MOV R5,#00AH
LCALL L08E6
CLR C
MOV A,010H
SUBB A,R7
MOV A,00FH
SUBB A,R6
JNC L003A
LJMP L00D0
;
;
L003A: CLR A
MOV 00FH,A
MOV 010H,A
MOV A,00CH
CJNE A,#001H,L005F
MOV 015H,#001H
SETB 002H
MOV 00DH,#001H
MOV DPTR,#L0385
CLR A
MOVC A,@A+DPTR
ADD A,#0FFH
MOV 017H,A
CLR A
ADDC A,#0FFH
MOV 016H,A
MOV 00CH,#002H
SJMP L00D0
;
L005F: MOV A,00CH
CJNE A,#002H,L007F
MOV 015H,#002H
CLR 002H
MOV 012H,#000H
MOV 013H,#001H
CLR A
MOV 00EH,A
MOV 00DH,#001H
MOV 016H,A
MOV 017H,#014H
MOV 00CH,#003H
SJMP L00D0
;
L007F: MOV A,00CH
CJNE A,#003H,L0099
LCALL L08FF
MOV 015H,#003H
CLR 002H
CLR 003H
MOV 016H,#000H
MOV 017H,#00AH
MOV 00CH,#004H
SJMP L00D0
;
L0099: MOV A,00CH
CJNE A,#004H,L00AE
MOV 00CH,#005H
MOV 015H,#004H
CLR A
MOV 016H,A
MOV 017H,A
LCALL L06E3
SJMP L00D0
;
L00AE: MOV A,00CH
CJNE A,#005H,L00D0
MOV 015H,#001H
CLR 002H
MOV 012H,#000H
MOV 013H,#001H
MOV 008H,#000H
MOV 009H,#001H
MOV 016H,#000H
MOV 017H,#032H
MOV 00CH,#001H
MOV 00DH,#001H
;
L00D0: MOV A,015H
XRL A,#002H
JNZ L00F3
MOV A,011H
CLR C
SUBB A,#00AH
JC L00EF
MOV A,00EH
SUBB A,#00FH
JNC L00E7
INC 00EH
SJMP L00EA
;
L00E7: LCALL L08FF
;
L00EA: CLR A
MOV 011H,A
SJMP L0108
;
L00EF: INC 011H
SJMP L0108
;
L00F3: MOV A,015H
CJNE A,#003H,L0108
MOV A,011H
CLR C
SUBB A,#004H
JC L0106
CLR A
MOV 011H,A
CPL 003H
SJMP L0108
;
L0106: INC 011H
;
L0108: JNB 002H,L014F
MOV A,013H
MOV DPTR,#L0385
MOVC A,@A+DPTR
MOV B,#015H
MUL AB
ADD A,#0F8H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
CLR A
MOVC A,@A+DPTR
DEC A
MOV R7,A
MOV A,00DH
CLR C
SUBB A,R7
JNC L012D
INC 00DH
SJMP L014F
;
L012D: CLR A
MOV 00DH,A
MOV DPTR,#L0385
MOVC A,@A+DPTR
MOV R7,A
CLR C
MOV A,013H
SUBB A,R7
MOV A,012H
SUBB A,#000H
JNC L0149
INC 013H
MOV A,013H
JNZ L014F
INC 012H
SJMP L014F
;
L0149: MOV 012H,#000H
MOV 013H,#001H
;
L014F: MOV A,013H
MOV DPTR,#L0385
MOVC A,@A+DPTR
MOV 024H,A
MOV 021H,00DH
;
L015A: MOV A,013H
MOV DPTR,#L0385
MOVC A,@A+DPTR
MOV B,#015H
MUL AB
ADD A,#0F8H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV R7,A
MOV A,021H
CLR C
SUBB A,R7
JC L017A
LJMP L023F
;
;
L017A: INC 00BH
MOV A,00BH
JNZ L0182
INC 00AH
;
L0182: MOV A,015H
XRL A,#001H
JNZ L018A
SJMP L01ED
;
L018A: MOV A,015H
XRL A,#002H
JNZ L01E4
MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0E4H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV R7,A
MOV A,00EH
MOV DPTR,#L06C3
MOVC A,@A+DPTR
MOV R6,A
MOV A,R7
ORL A,R6
MOV 022H,A
MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0EEH
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV R7,A
MOV A,00EH
MOV DPTR,#L06D3
MOVC A,@A+DPTR
MOV R6,A
MOV A,R7
ORL A,R6
MOV 023H,A
SJMP L0233
;
L01E4: MOV A,015H
XRL A,#003H
JNZ L022D
JNB 003H,L022D
;
L01ED: MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0E4H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV 022H,A
MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0EEH
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV 023H,A
SJMP L0233
;
L022D: MOV 022H,#0FFH
MOV 023H,#0FFH
;
L0233: MOV R5,023H
MOV R7,022H
LCALL L08C8
INC 021H
LJMP L015A
;
;
L023F: MOV 027H,012H
MOV 028H,013H
;
L0245: CLR C
MOV A,00BH
SUBB A,009H
MOV A,00AH
SUBB A,008H
JC L0253
LJMP L0370
;
;
L0253: JB 000H,L0259
LJMP L0370
;
;
L0259: INC 026H
MOV A,026H
JNZ L0261
INC 025H
;
L0261: ADD A,028H
MOV R7,A
MOV A,027H
ADDC A,025H
MOV R6,A
MOV DPTR,#L0385
CLR A
MOVC A,@A+DPTR
MOV R5,A
SETB C
MOV A,R7
SUBB A,R5
MOV A,R6
SUBB A,#000H
JNC L0245
MOV A,028H
ADD A,026H
MOVC A,@A+DPTR
MOV 024H,A
CLR A
MOV 021H,A
;
L0281: MOV A,028H
ADD A,026H
MOV DPTR,#L0385
MOVC A,@A+DPTR
MOV B,#015H
MUL AB
ADD A,#0F8H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV R7,A
MOV A,021H
CLR C
SUBB A,R7
JNC L0245
CLR C
MOV A,00BH
SUBB A,009H
MOV A,00AH
SUBB A,008H
JNC L0245
MOV A,015H
XRL A,#001H
JNZ L02B3
SJMP L0316
;
L02B3: MOV A,015H
XRL A,#002H
JNZ L030D
MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0E4H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV R7,A
MOV A,00EH
MOV DPTR,#L06C3
MOVC A,@A+DPTR
MOV R6,A
MOV A,R7
ORL A,R6
MOV 022H,A
MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0EEH
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV R7,A
MOV A,00EH
MOV DPTR,#L06D3
MOVC A,@A+DPTR
MOV R6,A
MOV A,R7
ORL A,R6
MOV 023H,A
SJMP L035C
;
L030D: MOV A,015H
XRL A,#003H
JNZ L0356
JNB 003H,L0356
;
L0316: MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0E4H
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV 022H,A
MOV B,#015H
MOV A,024H
MUL AB
ADD A,#0EEH
MOV DPL,A
MOV A,B
ADDC A,#003H
MOV DPH,A
MOV A,DPL
ADD A,021H
MOV DPL,A
CLR A
ADDC A,DPH
MOV DPH,A
CLR A
MOVC A,@A+DPTR
MOV 023H,A
SJMP L035C
;
L0356: MOV 022H,#0FFH
MOV 023H,#0FFH
;
L035C: MOV R5,023H
MOV R7,022H
LCALL L08C8
INC 00BH
MOV A,00BH
JNZ L036B
INC 00AH
;
L036B: INC 021H
LJMP L0281
;
;
L0370: JB 000H,L037C
MOV A,009H
DEC 009H
JNZ L0384
DEC 008H
RET
;
;
L037C: INC 009H
MOV A,009H
JNZ L0384
INC 008H
;
L0384: RET
;
;
ORG 006E3H
;
;
L06E3: CLR EX0
LCALL L08FF
CLR P3.6
CLR A
MOV R5,A
MOV R4,A
;
L06ED: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L06F7
INC R4
;
L06F7: CJNE R4,#001H,L06ED
CJNE R5,#0F4H,L06ED
MOV 02AH,#0FEH
MOV R5,#0FFH
MOV R7,02AH
LCALL L0903
CLR A
MOV R4,A
MOV R5,A
;
L070A: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L0714
INC R4
;
L0714: CJNE R4,#001H,L070A
CJNE R5,#0F4H,L070A
MOV 029H,#001H
;
L071D: MOV A,02AH
ADD A,ACC
MOV 02AH,A
MOV R5,#0FFH
MOV R7,A
LCALL L0903
CLR A
MOV R4,A
MOV R5,A
;
L072C: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L0736
INC R4
;
L0736: CJNE R4,#001H,L072C
CJNE R5,#0F4H,L072C
INC 029H
MOV A,029H
CLR C
SUBB A,#008H
JC L071D
MOV 02BH,#0FEH
MOV R5,02BH
MOV R7,02AH
LCALL L0903
CLR A
MOV R4,A
MOV R5,A
;
L0752: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L075C
INC R4
;
L075C: CJNE R4,#001H,L0752
CJNE R5,#0F4H,L0752
MOV 029H,#001H
;
L0765: MOV A,02BH
ADD A,ACC
MOV 02BH,A
MOV R5,A
MOV R7,02AH
LCALL L0903
CLR A
MOV R4,A
MOV R5,A
;
L0774: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L077E
INC R4
;
L077E: CJNE R4,#001H,L0774
CJNE R5,#0F4H,L0774
INC 029H
MOV A,029H
CLR C
SUBB A,#008H
JC L0765
MOV 029H,#001H
;
L0790: LCALL L08FF
CLR P3.6
CLR A
MOV R4,A
MOV R5,A
;
L0798: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L07A2
INC R4
;
L07A2: CJNE R4,#001H,L0798
CJNE R5,#0F4H,L0798
CLR A
MOV R5,A
MOV R7,A
LCALL L0903
SETB P3.6
CLR A
MOV R4,A
MOV R5,A
;
L07B3: MOV R7,#09BH
LCALL L0915
INC R5
CJNE R5,#000H,L07BD
INC R4
;
L07BD: CJNE R4,#001H,L07B3
CJNE R5,#0F4H,L07B3
;
L07C3: INC 029H
MOV A,029H
CLR C
SUBB A,#002H
JC L0790
LCALL L08FF
SETB P3.6
SETB EX0
RET
;
;
ORG 008C8H
;
;
L08C8: MOV 029H,R7
MOV 02AH,R5
LCALL L0903
LCALL L08F8
SETB P3.6
MOV R7,014H
LCALL L0915
MOV R5,02AH
MOV R7,029H
LCALL L0903
LCALL L08F8
SETB P3.6
RET
;
;
ORG 008F8H
;
;
L08F8: CLR P3.6
MOV R7,014H
LCALL L0915
;
L08FF: MOV R5,#0FFH
MOV R7,#0FFH
;
L0903: MOV P0,R7
MOV P1,R5
RET
;
;
ORG 007E0H
;
;
L07E0: LJMP L0860
;
;
L07E3: CLR A
MOVC A,@A+DPTR
INC DPTR
MOV R0,A
;
L07E7: CLR A
MOVC A,@A+DPTR
INC DPTR
JC L07EF
MOV @R0,A
SJMP L07F0
;
L07EF: MOVX @R0,A
;
L07F0: INC R0
DJNZ R7,L07E7
SJMP L081E
;
L07F5: CLR A
MOVC A,@A+DPTR
INC DPTR
;
L07F8: MOV R0,A
ANL A,#007H
ADD A,#00CH
XCH A,R0
CLR C
;
L07FF: RLC A
;
L0800: SWAP A
ANL A,#00FH
ORL A,#020H
XCH A,R0
MOVC A,@A+PC
JC L080D
CPL A
ANL A,@R0
SJMP L080E
;
L080D: ORL A,@R0
;
L080E: MOV @R0,A
DJNZ R7,L07F5
;
L0811: SJMP L081E
AJMP L0802
;
;
L0815: INC A
INC R0
JBC 020H,L085A
SJMP L07AC
INC R0
SUBB A,R1
;
L081E: CLR A
MOV R6,#001H
MOVC A,@A+DPTR
JZ L07E0
INC DPTR
MOV R7,A
ANL A,#03FH
JNB ACC.5,L0834
ANL A,#01FH
MOV R6,A
CLR A
MOVC A,@A+DPTR
INC DPTR
JZ L0834
INC R6
;
L0834: XCH A,R7
ANL A,#0C0H
ADD A,ACC
JZ L07E3
JC L07F5
CLR A
MOVC A,@A+DPTR
INC DPTR
MOV R2,A
CLR A
MOVC A,@A+DPTR
INC DPTR
MOV R0,A
;
L0845: CLR A
MOVC A,@A+DPTR
INC DPTR
XCH A,R0
XCH A,DPL
XCH A,R0
XCH A,R2
XCH A,DPH
XCH A,R2
MOVX @DPTR,A
INC DPTR
XCH A,R0
XCH A,DPL
XCH A,R0
XCH A,R2
XCH A,DPH
XCH A,R2
;
L085A: DJNZ R7,L0845
DJNZ R6,L0845
SJMP L081E
;
ORG 008C7H
;
NOP
;
ORG 008E6H
;
;
L08E6: MOV A,R7
MOV B,R5
MUL AB
MOV R0,B
XCH A,R7
MOV B,R4
MUL AB
ADD A,R0
XCH A,R6
MOV B,R5
MUL AB
ADD A,R6
MOV R6,A
RET
;
;
; Unresolved Address Reference list
;
;
L0002: EQU 00002H
L0103: EQU 00103H
L0409: EQU 00409H
L0418: EQU 00418H
L049A: EQU 0049AH
L04DD: EQU 004DDH
L0540: EQU 00540H
L060A: EQU 0060AH
L0627: EQU 00627H
L0651: EQU 00651H
L0677: EQU 00677H
L06BF: EQU 006BFH
L06FF: EQU 006FFH
L07AC: EQU 007ACH
L0802: EQU 00802H
L080C: EQU 0080CH
L0814: EQU 00814H
L081B: EQU 0081BH
L0A00: EQU 00A00H
L0E00: EQU 00E00H
L0E01: EQU 00E01H
L0E02: EQU 00E02H
L0E03: EQU 00E03H
L0F00: EQU 00F00H
L1200: EQU 01200H
L1600: EQU 01600H
;
;
END
]

nhìn thì bít chứ hỉu hết chắc ko bít đến bao giơ` đâu thì chịu

[thanhhaudt33]

uh!Mình là dân điện tử thì chỉ nên hiểu những thứ về điện tử thôi,những đoạn mã(thuộc về tin học) đó cứ cho máy tính hiểu đi.hi hi

[thanhhaudt33]

Đây!Nhúng vào chương trình dịch sẽ ra file hex.

[thanhhaudt33]

Hôm bảo vệ Đồ án mình được 10 điểm với nó đó,vì sự mới, lạ.hi hi.Chia sẻ mọi người ảnh của nó nè:hơi xấu và gù gề.he he

[congiola1991]

mấy bác cho e hỏi...
cái cuôn dây đồng cuốn ở đằng sau làm nv gi đó

[thanhhaudt33]

mấy bác cho e hỏi...
cái cuôn dây đồng cuốn ở đằng sau làm nv gi đó

''vì chưa có nhiều kinh nghiệm nên cần nó để giữ thăng bằng cho mình đấy mà!hi hi''-->vật để tạo đối xứng cho motor khi quay bớt rung đấy mà.

[hoadang]

Bạn có thể cho mọi người biết về nguyên lý của led quay không? vì thực ra code cũng là mô tả nguyên lý cho MCU hiểu thôi, nên cũng chỉ cần lý thuyết về led quay ,

[thanhhaudt33]

Bạn có thể cho mọi người biết về nguyên lý của led quay không? vì thực ra code cũng là mô tả nguyên lý cho MCU hiểu thôi, nên cũng chỉ cần lý thuyết về led quay ,

*Nguyên lý hoạt động: (Sơ đồ nguyên lý mình đã gửi)

Dựa theo nguyên lý quét Led Ma Trận theo cột. Việc quét cột được thực hiện nhờ quay của động cơ. Cặp thu phát hồng ngoại được hàn theo hình chữ U nhằm tạo ra ngắt cho vi điều khiển khi bị 1 vật cản xen giữa. Để dữ liệu được cố định trên vòng tròn quay, ta thực hiện bằng cách cứ ngắt xảy ra mới cho xuất dữ liệu, nếu trong thời gian thực hiện ngắt mà dữ liệu đã xuất hết thì thoát ngắt và chờ đến ngắt tiếp theo lại xuất dữ liệu.
Photo diode thu (led thu) được tín hiệu liên tục bởi led phát nên luôn trong tình trạng dẫn làm cho cực B của transistor luôn ở mức thấp khiến transistor không dẫn, điện áp cực C của transistor bằng điện áp chân INT0(chân 12 của 89C51) mặc định điện áp này bằng +5V(mức cao) – không có ngắt. Khi không có tín hiệu từ led phát thì led thu hở mạch làm dòng qua điện trở R3 phân cực cho transistor dẫn bão hòa khiến chân INT0 bị đưa xuống mức thấp(0V) và xảy ra ngắt.

[hoangvien]

em cứ tưởng anh tự thân vận động ai ngờ anh cũng lấy của người khác làm đồ án em cũng học CĐ công nghiệp nè anh làm em thất vọng quá

[youaremylife]

Toàn bộ đều là copy cả, ngay cả cái code cũng được dịch ngược từ file hex ra. Không hiểu bạn học được cái gì, chắc bạn cảm thấy thành quả của mình nó xứng đáng lắm hả,... Toàn đồ ăn sẵn.

[ga_con_chip]

cậu học trg chung vs nó ak? năm mấy rồi chú.?

[thanhhaudt33]

em cứ tưởng anh tự thân vận động ai ngờ anh cũng lấy của người khác làm đồ án em cũng học CĐ công nghiệp nè anh làm em thất vọng quá

Hi hi!Nếu nói mình là lấy của người khác thì mọi người đều ăn cắp định luật của ông Ôm,Kirchhoff,Niuton ...làm của mình đấy thôi.Sự học ko có từ lấy nha bạn-nếu bạn lấy được kinh nghiệm làm led quay của mình thì mình sẽ rất mừng đấy-hi hi

[thanhhaudt33]

Toàn bộ đều là copy cả, ngay cả cái code cũng được dịch ngược từ file hex ra. Không hiểu bạn học được cái gì, chắc bạn cảm thấy thành quả của mình nó xứng đáng lắm hả,... Toàn đồ ăn sẵn.

Mình còn nhớ 1 câu nói của nhà văn Lỗ Tấn(Trung Quốc)-hồi học trung học phổ thông,đại loại là:"làm gì có đường? Người ta đi mãi thì thành đường thôi."Con đường sự học của mỗi chúng ta đều do tiền nhân có công dọn sẵn đấy thôi.hi hi-Vấn đề là bạn có chịu đi(làm thử) và có dễ dàng ăn sẵn như bạn nói ko??

[thanhhaudt33]

Mình còn nhó 1 câu nói của nhà văn Lỗ Tấn(Trung Quốc)-hồi học trung học phổ thông,đại loại là:"làm gì có đường? Người ta đi mãi thì thành đường thôi."Con đường sự học của mỗi chúng ta đều do tiền nhân có công dọn sẵn đấy thôi.hi hi-Vấn đề là bạn có chịu đi(làm thử) và có dễ dàng ăn sẵn như bạn nói ko??

Xin lỗi mấy bác trong diễn đàn nha-vì mình phải trả lời những tin ko có ích cho diễn đàn.Xin mấy bác thông cảm cho em nha!hi hi

[thanhhaudt33]

Cải tiến 1 chút cho led quay!

Mọi người xem đoạn video này nha và so sánh với đoạn video lần trước em gửi:

Đều quay cùng 1 điện thoại cả.
Các bác sẽ thấy ảo giác chữ chạy ngược và chữ xuất ra sắc nét hơn trước đúng ko?
-->>Em đã fix cho thanh led quay cân bằng hơn-nên động cơ cũng quay nhanh và ổn định hơn,động cơ cũng bớt nóng hơn,tránh được tình trạng văng thanh led do mất đối xứng trong momen quay,hi hi-Kinh nghiệm cho các bác!