新手求帮忙
时间：10-02
整理：3721RD
点击：
http://bbs.elecfans.com/forum.php?mod=attachment&aid=OTc1NDl8MzI4ODRiOWJlODM4ZDY0N2UzYzJiMWZmOTJmOTkxMDF8MTUwOTY1NzQ4OA%3D%3D&request=yes&_f=.jpg
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:MOV P3,#0F0H
START:MOV R1,#0FEH
MOV R0,#00H
MAIN1:MOV A,R1
MOV P3,A
SETB C
RLC A
MOV R1,A
MOV A,P3
MOV R2,A
ORL A,#0FH
CPL A
JNZ LOOP
INC R0
CJNE R0,#03H,MAIN1
LJMP START
LOOP:MOV A,R2
JNB ACC.4,LOOP1
MOV R1,#01H
LJMP ANSWER
LOOP1:JNB ACC.5,LOOP2
MOV R1,#02H
LJMP ANSWER
LOOP2:JNB ACC.6,LOOP3
MOV R1,#03H
LJMP ANSWER
LOOP3:MOV R1,#04H
ANSWER:MOV A,R0
MOV B,#04H
MUL AB
ADD A,R1
MOV P1,A
LCALL DELAY
LJMP MAIN1
DELAY: MOV R5,#04H
F3:MOV R6,#0FFH
F2:MOV R7,#0FFH
DJNZ R7,$
DJNZ R6,F2
DJNZ R5,F3
RET
END
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:MOV P3,#0F0H
START:MOV R1,#0FEH
MOV R0,#00H
MAIN1:MOV A,R1
MOV P3,A
SETB C
RLC A
MOV R1,A
MOV A,P3
MOV R2,A
ORL A,#0FH
CPL A
JNZ LOOP
INC R0
CJNE R0,#03H,MAIN1
LJMP START
LOOP:MOV A,R2
JNB ACC.4,LOOP1
MOV R1,#01H
LJMP ANSWER
LOOP1:JNB ACC.5,LOOP2
MOV R1,#02H
LJMP ANSWER
LOOP2:JNB ACC.6,LOOP3
MOV R1,#03H
LJMP ANSWER
LOOP3:MOV R1,#04H
ANSWER:MOV A,R0
MOV B,#04H
MUL AB
ADD A,R1
MOV P1,A
LCALL DELAY
LJMP MAIN1
DELAY: MOV R5,#04H
F3:MOV R6,#0FFH
F2:MOV R7,#0FFH
DJNZ R7,$
DJNZ R6,F2
DJNZ R5,F3
RET
END
高手快来呀