新手求助!感谢各位好心人!
protues吧
全部回复
仅看楼主
level 1
主要是亮不了灯,感
谢各位好心人,好人一生平安!
2016年06月14日 02点06分 1
level 1
16路的抢答器
ORG 0000H
LJMP MAIN
ORG 0013H
LJMP ESS1
ORG 0100H
MAIN:
SETB EA
SETB EX1
SETB IT1
L16:
MOV P1,#0FFH
MOV R2,#00H
CLR P1.0
INC R2
JB P1.4,L0
LCALL DE0
L0:
INC R2
JB P1.5,L1
LCALL DE0
L1:
INC R2
JB P1.6,L2
LCALL DE0
L2:
INC R2
JB P1.7,L3
LCALL DE0
L3:
SETB P1.0
CLR P1.1
INC R2
JB P1.4,L4
LCALL DE0
L4:
INC R2
JB P1.5,L5
LCALL DE0
L5:
INC R2
JB P1.6,L6
LCALL DE0
L6:
INC R2
JB P1.7,L7
LCALL DE0
L7:
SETB P1.1
CLR P1.2
INC R2
JB P1.4,L8
LCALL DE0
L8:
INC R2
JB P1.5,L9
LCALL DE0
L9:
INC R2
JB P1.6,L10
LCALL DE0
L10:
INC R2
JB P1.7,L11
LCALL DE0
L11:
SETB P1.2
CLR P1.3
INC R2
JB P1.4,L12
LCALL DE0
L12:
INC R2
JB P1.5,L13
LCALL DE0
L13:
INC R2
JB P1.6,L14
LCALL DE0
L14:
INC R2
JB P1.7,L15
LCALL DE0
L15:
LJMP L16
ESS1:
MOV 70H,#30D
MOV R7,#0CH
CLR P3.0
S2:
LCALL DELAY
DJNZ 70H,S2
SETB P3.0
MOV TMOD,#00010000B
MOV R3,#0AH
L20:
MOV 55H,#14H
L19:
MOV TH0,#3CH
MOV TL0,#0B0H
SETB TR1
MOV A,R3
MOV B,#0AH
DIV AB
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV 53,A
LCALL DELAY1
SETB P2.4
MOV A,B
MOVC A,@A+DPTR
MOV 54H,A
CLR P2.5
MOVC A,@A+DPTR
MOV 54H,A
CLR P2.5
MOV P0,54H
LCALL DELAY1
L18:
JNB TF1,L18
D6:
CJNE R3,#0FFFH,L21
LJMP L22
L21:
LJMP L20
L22:
MOV 73H,#02D
S5:
MOV 70H,#20D
MOV 71H,#20H
CLR P3.0
S4:
LCALL DELAY
DJNZ 70H,S4
SETB P3.0
S6:
LCALL DELAY
DJNZ 71H,S6
DJNZ 73H,S5
D5:
RETI
DE0:
MOV DPTR ,#TAB
MOV A,R2
MOV B,#0AH
S10:
MOV 72H,#20D
MOV 73H,#10D
CLR P3.0
S8:
LCALL LCC
DJNZ 72H,S8
SETB P3.0
S9:
LCALL LCC
DJNZ 73H,S9
DJNZ 71,S10
L17:
LCALL LCC
LCC:
CLR P2.4
MOV P0,50H
LCALL DELAY
DELAY1:
MOV P1,#0FFH
W0:
INC R2
JB P1.5,W1
LCALL DE1
W1:
INC R2
JB P1.6,W2
LCALL DE1
W2:
INC R2
JB P1.7,W3
LCALL DE1
W3:
SETB P1.0
CLR P1.1
INC R2
JB P1.4,W4
LCALL DE1
W4:
INC R2
JB P1.5,W5
LCALL DE1
W5:
INC R2
JB P1.6,W6
LCALL DE1
W6:
INC R2
JB P1.7,W7
LCALL DE1
W7:
SETB P1.1
CLR P1.2
INC R2
JB P1.4,W8
LCALL DE1
W8:
INC R2
JB P1.5,W9
LCALL DE1
W9:
INC R2
JB P1.6,W10
LCALL DE1
W10:
INC R2
JB P1.7,W11
LCALL DE1
W11:
SETB P1.2
CLR P1.3
INC R2
JB P1.4,W12
LCALL DE1
W12:
INC R2
JB P1.5,W13
LCALL DE1
W13:
INC R2
JB P1.6,W14
LCALL DE1
W14:
INC R2
JB P1.7,W15
LCALL DE1
W15:
DJNZ R4,W16
LJMP W18
W16:
LJMP W18
W18:RET
DE1:
MOV P1,#0FFH
MOV 70H,#20D
CLR P3.0
S3:
LCALL DELAY
DJNZ 70H,S3
SETB P3.0
SETB P2.0
SETB P2.1
MOV DPTR,#TAB
MOV A,R2
MOV A,B
MOVC A,@A+DPTR
MOV 57H,A
MOV TMOD,#00000001B
MOV R5,#16H
L32:
MOV R6,#14H
L31:
MOV TH0,#3CH
MOV TL0,#0B0H
SETB TR0
CLR P2.4
MOV P0,56H
LCALL DELAY
SETB P2.4
CLR P2.5
MOV P0,57H
LCALL DELAY
SETB P2.5
CJNE R5,#14H,L34
LJMP L35
L34:
JC L35
LJMP L30
L35:
MOV A,R5
MOV B,#0AH
DIV AB
MOVC A,@A+DPTR
MOV 58H,A
MOV A,B
MOVC A,@A+DPTR
MOV 59,A
CLR P2.6
MOV P0,58H
LCALL DELAY
SETB P2.6
CLR P2.7
MOV P0,59H
LCALL DELAY
SETB P2.7
L30:
JNB TF0,L30
CLR TF0
DJNZ R6,L31
DEC R5
CJNE R5,#0FFH,L32
MOV P1,#0FFH
MOV 70H,#50D
CLR P3.0
S7:
LCALL DELAY
DJNZ 70H,S7
SETB P3.0
MOV P2,#0FFH
MOV R3,#00H
MOV R7,#00H
RET
DELAY:
MOV 52H,#10D
D0:
MOV 52H,#248D
D1:
DJNZ 52H,D1
DJNZ 51H,D0
RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END
2016年06月14日 02点06分 2
level 1
程序在wave是编译成功的
2016年06月14日 02点06分 4
level 1
卤煮一姑娘,是不是不爆照的话就没人进来啊
2016年06月14日 02点06分 5
level 8
麻烦问一下蓝色的线怎么画的?
2016年06月20日 07点06分 6
1