Thông báo
Collapse
No announcement yet.
Led quay!
Collapse
X
-
Ko dám múa rìu qua mắt thợ nên các đại ca xem và học hỏi ở trang này nha!!http://hanhcd.mov.mn/Bùi Thành Hậu
Gmail:
Fb:
Comment
-
Nguyên văn bởi fantasy Xem bài viếtđồ án này nếu chấm điểm thì chỉ đạt 6 điểm,ko tính phần hỏi đáp.vì nhìn thiết kế của bạn ko bắt mắt cho lắm,bố trí led ko hôp lý nên chữ hiện ra ko đều .
ủng hộ tinh thần bạn!
Comment
-
[QUOTE][;================================================= =============
; 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
]Bùi Thành Hậu
Gmail:
Fb:
Comment
-
Nguyên văn bởi thanhhaudt33 Xem bài viếtĐoạn code rất dài và phức tạp,ai hiểu được thì cho vài dòng vào nha!thanks!
Comment
-
Nguyên văn bởi thanhhaudt33 Xem bài viếtĐoạn code rất dài và phức tạp,ai hiểu được thì cho vài dòng vào nha!thanks!
Comment
Bài viết mới nhất
Collapse
-
Trả lời cho Kiểm tra biến ápbởi lamvu0677nhân tiện cho mình hỏi thêm về cái phần test hipot (cao áp),là để kiểm tra độ bền cách điện giưa các cuộn dây,mà thấy thông số test thường ở mức 4kvac,vậy nếu mấy con fail đó xài bình thường vẫn dduocj phải không ạ,vì điện mình làm gì lên tới mức đó
-
Channel: Điện tử dành cho người mới bắt đầu
hôm nay, 08:52 -
-
Trả lời cho Kiểm tra biến ápbởi lamvu0677máy đo số vòng thì cty có ,mà nó to quá,tưởng có máy nào gọn gọn bỏ túi được thì tiện hơn,vì đi lại nhiều...
-
Channel: Điện tử dành cho người mới bắt đầu
hôm nay, 08:47 -
-
bởi tmcodonMình thấy diễn đàn có chuyên mục quảng cáo rồi mà. Bạn đóng góp để mở luồng riêng
-
Channel: Hướng dẫn sử dụng diễn đàn
Hôm qua, 13:36 -
-
bởi Nicole08Xin chào mọi người, tôi đã sử dụng Flashforge Inventor 2 được gần 5 năm và rất hài lòng với nó, nhưng tuần trước đã xảy ra sự cố. Có vẻ như động cơ bước đưa sợi in vào đầu nóng đã bị hỏng. Mọi thứ khác có vẻ ổn trên máy...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 12:55 -
-
Trả lời cho Hỏi về test hipot cao ápbởi nguyendinhvanCách nghĩ của bạn là theo duy tâm thôi. Còn trong công việc thì phải theo duy lý.
Bạn vào goggle và gõ từ : tiêu chuẩn an toàn cách điện.
Bạn sẽ thấy vô vàn các quy định, VN cũng có , quốc tế cũng có. Mỗi vùng , mỗi khu vực,...-
Channel: Điện tử dành cho người mới bắt đầu
02-11-2024, 20:04 -
-
bởi lamvu0677Chào mọi người, ai làm về điện, đặc biệt biến áp xung, mâý con nho nhỏ gắn vào mạch nguồn, cho e hỏi tí ą, e cũng làm trong ty về biển áp thì đo kiểm thành phẩm sẽ kiểm cao áp, tức là kiểm xem có phóng điện giữa các cuộn dây với...
-
Channel: Điện tử dành cho người mới bắt đầu
01-11-2024, 21:05 -
Comment