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
-
dù không đẹp nhưng người ta nhiệt tình giúp đỡ những người chưa hiểu fantasy ah!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
-
code dis asm , có thành tinh may ra mới hiểuNguyê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
-
Hiểu chắc e thành thần roài.........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
-
bởi theidiotcatViệc lựa chọn một chiếc laptop gaming phù hợp với nhu cầu, ngân sách chưa bao giờ là dễ dàng. Và điều đó càng khó hơn trong năm 2026 khi mà mức giá liên tục tăng.
Nếu bạn chưa biết nên chọn một chiếc laptop gaming như thế nào...-
Channel: Đánh giá sản phẩm DTVN
Hôm qua, 10:29 -
-
bởi theidiotcatVới mức ngân sách 20 - 30 triệu đồng trong năm 2026, các bạn sinh viên và dân văn phòng có thể tìm thấy nhiều lựa chọn cao cấp, mạnh mẽ, pin “trâu”, đặc biệt là các mẫu laptop AI hỗ trợ cho học tập và làm việc.
Trong phân...-
Channel: Đánh giá sản phẩm DTVN
Hôm qua, 10:25 -
-
bởi theidiotcatDưới đây là một số mẫu laptop nổi bật trong phân khúc dưới 20 triệu giúp các bạn văn phòng, sinh viên và đặc biệt là tân sinh viên có thể dễ dàng lựa chọn được mẫu laptop phù hợp với nhu cầu và ngân sách của mình.
Thị...-
Channel: Đánh giá sản phẩm DTVN
Hôm qua, 10:07 -
-
bởi theidiotcatViệc chọn mua một bộ máy tính phục vụ cho các nhu cầu làm việc văn phòng và sử dụng cơ bản hàng ngày đang trở nên dễ dàng và tiết kiệm hơn bao giờ hết. Thay vì phải đau đầu trích ngân sách để mua cả vi xử lý lẫn card đồ họa rời...
-
Channel: Đánh giá sản phẩm DTVN
25-06-2026, 11:23 -
-
bởi theidiotcatViệc nâng cấp từ một dàn máy tính cũ lên cấu hình mới luôn khiến nhiều người đắn đo về mức chi phí bỏ ra. Nếu bạn đang tìm kiếm một sự lột xác hoàn toàn về hiệu năng mà vẫn cân đối được dòng tiền, combo giữa vi xử lý Ryzen...
-
Channel: Đánh giá sản phẩm DTVN
25-06-2026, 11:06 -
-
Trả lời cho Lực dọc trục làm hỏng ổ bi.bởi nguyendinhvanVí dụ một trang như thế này
...-
Channel: Điện tử công suất
24-06-2026, 19:57 -
-
Trả lời cho Lực dọc trục làm hỏng ổ bi.bởi nguyendinhvanỔ bi có loại chịu lực dọc, loại chịu lực ngang.
Bạn kiếm một quyển Data cũng một hãng vòng bi nào đó. Họ sẽ cấp cho bạn đủ thông số kỹ thuật.
Khi lựa chọn được mã sản phẩm, bạn chỉ việc tìm mua mã đó, hoặc đặt hàng....-
Channel: Điện tử công suất
24-06-2026, 19:52 -
-
bởi GargiChào mọi người, tôi đang gặp một vấn đề kỹ thuật và muốn được nghe ý kiến của mọi người.
Tôi đã lắp một đĩa xích vào trục đầu ra của hộp số hành tinh bánh răng xoắn dùng cho truyền động xích. Sau vài tháng hoạt động, ổ bi đầu ra bị hỏng.
Bản thân...-
Channel: Điện tử công suất
24-06-2026, 13:22 -
-
bởi vi van phamSau hàng chục năm, không biết có ai còn nghĩ gì về tôi? Riêng tôi, nhớ nhiều về dientuviet nam. net. Ngày ấy tìm 1 người bạn đam mê về điện từ khó như trúng số độc đăc. Tôi đã trúng số độc đắc khi được mời về dientuvietnam.net...
-
Channel: Tâm tình dân kỹ thuật
23-06-2026, 22:43 -
-
bởi FotiniChào mọi người.
Cấu trúc khung giàn của tôi sử dụng một động cơ servo tích hợp trên mỗi trục (https://www.oyostepper.es/category-8...integrado.html), với một dây nối đất chung.
Việc kích hoạt từng trục riêng lẻ hoạt động tốt, nhưng...-
Channel: Điện tử dành cho người mới bắt đầu
18-06-2026, 14:03 -

Comment