求助大神级人物，帮忙改动一个程序，只要改后结果能正常运行即可，拜托拜托！ -

标题: 求助大神级人物，帮忙改动一个程序，只要改后结果能正常运行即可，拜托拜托！ [打印本页]

作者: 羊羊羊 时间: 2015-1-4 22:03
标题: 求助大神级人物，帮忙改动一个程序，只要改后结果能正常运行即可，拜托拜托！
ORG  0000H
AJMP 0050H
ORG 000BH
AJMP 0100H
ORG 0050H
MOV SP,#6FH
MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
SETB EA
SETB ET0
SETB PT0
MOV R3,#14H
MOV R4,#0
SETB TR0
SJMP $

ORG 0100H
DJNZ R3,NEXT0
MOV  R3,#14H

INC R4
CJNE R4,#1,NEXT1

L10:MOV R0,#7
MOV DPTR,#TABLE
L2:CLR A
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY1
INC DPTR
DJNZ R0,L2
SJMP NEXT0

DELAY1:MOV R1,#250
LOOP1:MOV R2,#250
LOOP2:NOP
   NOP
   NOP
   NOP
   NOP
   DJNZ R2,LooP2
   DJNZ R1,LooP1
   RET
NEXT1: CJNE R4,#2,NEXT2
L100:MOV R0,#15
MOV DPTR,#TABLE1
L20:CLR A
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY2
INC DPTR
DJNZ R0,L20
SJMP next0

DELAY2:MOV R1,#250
L00P3:MOV R2,#250
LOOP4:NOP
   NOP
   NOP
   NOP
   NOP
   DJNZ R2,LOOP4
   DJNZ R1,L00P3
   RET
NEXT2: CJNE R4,#3,NEXT0
L1000:MOV R0,#7
   MOV DPTR,#TABLE2
L3:CLR A
   MOVC A,@A+DPTR
   MOV P0,A
   ACALL DELAY3
   INC DPTR
   DJNZ R0,L3
   MOV R4,#0
   SJMP next0
DELAY3:MOV R1,#250
LooP5:MOV R2,#250
LOOP6:NOP
      NOP
      NOP
      NOP
      NOP
   DJNZ R2,LooP6
   DJNZ R1,LooP5
   RET
NEXT0 : MOV TH0,#3CH
      MOV TL0,#0B0H
      SETB TR0
      RETI
TABLE:
DB  7EH,0BDH,0DBH,0E7H,0DBH,0BDH,7EH
TABLE2:
DB 3FH,0CFH,0F3H,0FCH,0F3H,0CFH,3FH
TABLE1:
DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
END

作者: zjjhtony 时间: 2015-1-5 18:59
这个程序功能上能够实现P0接LED灯串接电阻上拉到电源。
LED灯循环点亮，有一定的变化。仿真没有问题。

欢迎光临 (http://www.51hei.com/bbs/)