[讨论]

求帮助啊哪位大神帮忙看看这两个程序哪个命令可以控制...

2012-6-6 23:03:24 1429

0 求帮助啊哪位大神帮忙看看这两个程序哪个命令可以控制灯亮啊感谢啊程序一： LEDDUAN EQU 8004H LEDWEI EQU 8002H KVALUE EQU 52H NUM EQU 50H ORG 0000H LJMP MAIN ORG 000BH LJMP COUNT ORG 0100H MAIN: CLR A CLR B MOV R0,#00H MOV R1,#00H MOV R2,#00H MOV R3,#00H MOV R4,#00H MOV R5,#00H MOV NUM,#10 MOV SP,#70H MOV DPTR,#LEDDUAN MOV A,#00H MOVX @DPTR,A MOV DPTR,#LEDWEI MOV A,#00H MOVX @DPTR,A J1S: MOV TMOD,#01H MOV TH0,#3CH MOV TL0,#0B0H SETB EA SETB ET0 SETB TR0 START: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,tiME LCALL CHANGE TIME: CJNE R0,#60,NEXT2 ;SECOND MOV R0,#00H INC R1 CJNE R1,#60,NEXT2 ;MINUTE MOV R1,#00H INC R2 CJNE R2,#24,NEXT2 ;HOUR MOV R2,#00H NEXT2: SJMP START ;*********CHANGE TIME************ CHANGE: CLR TR0 CHOUR: MOV R5,#01H CHOUR2: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,KEY1 LJMP CMIN KEY1: CJNE A,#10H,KEY2 LJMP ADHOUR KEY2: LJMP CHOUR2 ADHOUR:INC R2 CJNE R2,#24,JHOUR MOV R2,#00H JHOUR: LJMP CHOUR2 CMIN: MOV R5,#02H CMIN2: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,KEY3 LJMP CSEC KEY3: CJNE A,#10H,KEY4 LJMP ADMIN KEY4: LJMP CMIN2 ADMIN: INC R1 CJNE R1,#60,JMIN MOV R1,#00H JMIN: LJMP CMIN2 CSEC: MOV R5,#03H CSEC2: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,KEY5 LJMP EXCH KEY5: CJNE A,#10H,KEY6 LJMP ADSEC KEY6: LJMP CSEC2 ADSEC: INC R0 CJNE R0,#60,JSEC MOV R0,#00H JSEC: LJMP CSEC2 EXCH: MOV TH0,#3CH MOV TL0,#0B0H MOV R5,#00H SETB TR0 RET ;*********END*********** ;*******DISPLAY********* DISPLAY:MOV DPTR,#LEDWEI ;HOUR MOV A,#20H MOVX @DPTR,A MOV A,R2 MOV B,#10 DIV AB MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#01H,CMOD0 ORL A,#80H ;POINT CMOD0: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI MOV A,#10H MOVX @DPTR,A MOV A,B MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#00H,JU1 SJMP POI1 JU1: CJNE R5,#01H,CMOD1 POI1: ORL A,#80H ;POINT CMOD1: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI ;MINUTE MOV A,#08H MOVX @DPTR,A MOV A,R1 MOV B,#10 DIV AB MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#02H,CMOD2 ORL A,#80H ;POINT CMOD2: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI MOV A,#04H MOVX @DPTR,A MOV A,B MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#00H,JU2 SJMP POI2 JU2: CJNE R5,#02H,CMOD3 POI2: ORL A,#80H ;POINT CMOD3: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI ;SECOND MOV A,#02H MOVX @DPTR,A MOV A,R0 MOV B,#10 DIV AB MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#03H,CMOD4 ORL A,#80H ;POINT CMOD4: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI MOV A,#01H MOVX @DPTR,A MOV A,B MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#00H,JU3 SJMP POI3 JU3: CJNE R5,#03H,CMOD5 POI3: ORL A,#80H ;POINT CMOD5: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS RET ;******END********** D2MS: MOV R4,#0AH DL2: MOV R3,#32H DL1: NOP NOP DJNZ R3,DL1 DJNZ R4,DL2 RET D10MS: MOV R4,#64H DL4: MOV R3,#14H DL3: NOP NOP NOP DJNZ R3,DL3 DJNZ R4,DL4 RET COUNT: DJNZ NUM,NEXT INC R0 MOV NUM,#10 NEXT: MOV TH0,#3CH MOV TL0,#0B0H RETI ;***KEYBOARD********* KEYBOARD:MOV P1,#0FFH MOV KVALUE,#16H ;********************* WAIT: MOV A,P1 ANL A,#03H XRL A,#03H JZ NOKEY1 LCALL D10MS MOV A,P1 ANL A,#03H XRL A,#03H JZ NOKEY1 MOV A,P1 ANL A,#03H CJNE A,#02H,NK1 MOV KVALUE,#0FFH LJMP DK1A NK1: CJNE A,#01H,DK1A MOV KVALUE,#10H DK1A: MOV A,P1 ANL A,#03H XRL A,#03H JNZ DK1A ;*****LIE-2*********** NOKEY1: RET ;****END******** LEDTAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH 程序二： LEDDUAN EQU 8004H LEDWEI EQU 8002H KEYBUF EQU 51H KEYC EQU 8001H KEYA EQU 8002H KVALUE EQU 52H NUM EQU 50H ORG 0000H LJMP MAIN ORG 000BH LJMP COUNT ORG 0100H MAIN: CLR A CLR B MOV R0,#00H MOV R1,#00H MOV R2,#00H MOV R3,#00H MOV R4,#00H MOV R5,#00H MOV NUM,#10 MOV SP,#70H MOV DPTR,#LEDDUAN MOV A,#00H MOVX @DPTR,A MOV DPTR,#LEDWEI MOV A,#00H MOVX @DPTR,A J1S: MOV TMOD,#01H MOV TH0,#3CH MOV TL0,#0B0H SETB EA SETB ET0 SETB TR0 START: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,TIME LCALL CHANGE TIME: CJNE R0,#60,NEXT2 ;SECOND MOV R0,#00H INC R1 CJNE R1,#60,NEXT2 ;MINUTE MOV R1,#00H INC R2 CJNE R2,#24,NEXT2 ;HOUR MOV R2,#00H NEXT2: SJMP START ;*******CHANGE TIME************ CHANGE: CLR TR0 CHOUR: MOV R5,#01H CHOUR2: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,KEY1 LJMP CMIN KEY1: CJNE A,#10H,KEY2 LJMP ADHOUR KEY2: LJMP CHOUR2 ADHOUR:INC R2 CJNE R2,#24,JHOUR MOV R2,#00H JHOUR: LJMP CHOUR2 CMIN: MOV R5,#02H CMIN2: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,KEY3 LJMP CSEC KEY3: CJNE A,#10H,KEY4 LJMP ADMIN KEY4: LJMP CMIN2 ADMIN: INC R1 CJNE R1,#60,JMIN MOV R1,#00H JMIN: LJMP CMIN2 CSEC: MOV R5,#03H CSEC2: LCALL DISPLAY LCALL KEYBOARD MOV A,KVALUE CJNE A,#0FFH,KEY5 LJMP EXCH KEY5: CJNE A,#10H,KEY6 LJMP ADSEC KEY6: LJMP CSEC2 ADSEC: INC R0 CJNE R0,#60,JSEC MOV R0,#00H JSEC: LJMP CSEC2 EXCH: MOV TH0,#3CH MOV TL0,#0B0H MOV R5,#00H SETB TR0 RET ;*********END*********** ;*******DISPLAY********* DISPLAY:MOV DPTR,#LEDWEI ;HOUR MOV A,#20H MOVX @DPTR,A MOV A,R2 MOV B,#10 DIV AB MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#01H,CMOD0 ORL A,#80H ;POINT CMOD0: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI MOV A,#10H MOVX @DPTR,A MOV A,B MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#00H,JU1 SJMP POI1 JU1: CJNE R5,#01H,CMOD1 POI1: ORL A,#80H ;POINT CMOD1: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI ;MINUTE MOV A,#08H MOVX @DPTR,A MOV A,R1 MOV B,#10 DIV AB MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#02H,CMOD2 ORL A,#80H ;POINT CMOD2: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI MOV A,#04H MOVX @DPTR,A MOV A,B MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#00H,JU2 SJMP POI2 JU2: CJNE R5,#02H,CMOD3 POI2: ORL A,#80H ;POINT CMOD3: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI ;SECOND MOV A,#02H MOVX @DPTR,A MOV A,R0 MOV B,#10 DIV AB MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#03H,CMOD4 ORL A,#80H ;POINT CMOD4: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS MOV DPTR,#LEDWEI MOV A,#01H MOVX @DPTR,A MOV A,B MOV DPTR,#LEDTAB MOVC A,@A+DPTR CJNE R5,#00H,JU3 SJMP POI3 JU3: CJNE R5,#03H,CMOD5 POI3: ORL A,#80H ;POINT CMOD5: MOV DPTR,#LEDDUAN MOVX @DPTR,A LCALL D2MS RET ;******END********** D2MS: MOV R4,#0AH DL2: MOV R3,#32H DL1: NOP NOP DJNZ R3,DL1 DJNZ R4,DL2 RET D10MS: MOV R4,#64H DL4: MOV R3,#14H DL3: NOP NOP NOP DJNZ R3,DL3 DJNZ R4,DL4 RET COUNT: DJNZ NUM,NEXT INC R0 MOV NUM,#10 NEXT: MOV TH0,#3CH MOV TL0,#0B0H RETI ;***KEYBOARD********* KEYBOARD:MOV DPTR,#KEYC MOV A,#0FFH MOVX @DPTR,A MOV DPTR,#KEYA MOVX @DPTR,A MOV KVALUE,#16H ;*****LIE-1************ WAIT: MOV DPTR,#KEYA MOV A,#01FH MOVX @DPTR,A MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY1 LCALL D10MS MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY1 MOVX A,@DPTR ANL A,#0FH CJNE A,#07H,NK1 MOV KEYBUF,#0 LJMP DK1 NK1: CJNE A,#0BH,NK2 MOV KEYBUF,#1 LJMP DK1 NK2: CJNE A,#0DH,NK3 MOV KEYBUF,#2 LJMP DK1 NK3: CJNE A,#0EH,NK4 MOV KEYBUF,#3 LJMP DK1 NK4: NOP DK1: MOV A,KEYBUF MOV DPTR,#KEYTAB MOVC A,@A+DPTR MOV KVALUE,A DK1A: MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JNZ DK1A ;*****LIE-2*********** NOKEY1:MOV DPTR,#KEYA MOV A,#02FH MOVX @DPTR,A MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY2 LCALL D10MS MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY2 MOVX A,@DPTR ANL A,#0FH CJNE A,#07H,NK5 MOV KEYBUF,#4 LJMP DK2 NK5: CJNE A,#0BH,NK6 MOV KEYBUF,#5 LJMP DK2 NK6: CJNE A,#0DH,NK7 MOV KEYBUF,#6 LJMP DK2 NK7: CJNE A,#0EH,NK8 MOV KEYBUF,#7 LJMP DK2 NK8: NOP DK2: MOV A,KEYBUF MOV DPTR,#KEYTAB MOVC A,@A+DPTR MOV KVALUE,A DK2A: MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JNZ DK2A ;*****LIE-3********** NOKEY2:MOV DPTR,#KEYA MOV A,#037H MOVX @DPTR,A MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY3 LCALL D10MS MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY3 MOVX A,@DPTR ANL A,#0FH CJNE A,#07H,NK9 MOV KEYBUF,#8 LJMP DK3 NK9: CJNE A,#0BH,NK10 MOV KEYBUF,#9 LJMP DK3 NK10: CJNE A,#0DH,NK11 MOV KEYBUF,#10 LJMP DK3 NK11: CJNE A,#0EH,NK12 MOV KEYBUF,#11 LJMP DK3 NK12: NOP DK3: MOV A,KEYBUF MOV DPTR,#KEYTAB MOVC A,@A+DPTR MOV KVALUE,A DK3A: MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JNZ DK3A ;****LIE-4******* NOKEY3:MOV DPTR,#KEYA MOV A,#03BH MOVX @DPTR,A MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY4 LCALL D10MS MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY4 MOVX A,@DPTR ANL A,#0FH CJNE A,#07H,NK13 MOV KEYBUF,#12 LJMP DK4 NK13: CJNE A,#0BH,NK14 MOV KEYBUF,#13 LJMP DK4 NK14: CJNE A,#0DH,NK15 MOV KEYBUF,#14 LJMP DK4 NK15: CJNE A,#0EH,NK16 MOV KEYBUF,#15 LJMP DK4 NK16: NOP DK4: MOV A,KEYBUF MOV DPTR,#KEYTAB MOVC A,@A+DPTR MOV KVALUE,A DK4A: MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JNZ DK4A ;***LIE-5**** NOKEY4:MOV DPTR,#KEYA MOV A,#03DH MOVX @DPTR,A MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY5 LCALL D10MS MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY5 MOVX A,@DPTR ANL A,#0FH CJNE A,#07H,NK17 MOV KEYBUF,#16 LJMP DK5 NK17: CJNE A,#0BH,NK18 MOV KEYBUF,#17 LJMP DK5 NK18: CJNE A,#0DH,NK19 MOV KEYBUF,#18 LJMP DK5 NK19: CJNE A,#0EH,NK20 MOV KEYBUF,#19 LJMP DK5 NK20: NOP DK5: MOV A,KEYBUF MOV DPTR,#KEYTAB MOVC A,@A+DPTR MOV KVALUE,A DK5A: MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JNZ DK5A ;*****LIE-6******** NOKEY5:MOV DPTR,#KEYA MOV A,#03EH MOVX @DPTR,A MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY6 LCALL D10MS MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JZ NOKEY6 MOVX A,@DPTR ANL A,#0FH CJNE A,#07H,NK21 MOV KEYBUF,#20 LJMP DK6 NK21: CJNE A,#0BH,NK22 MOV KEYBUF,#21 LJMP DK6 NK22: CJNE A,#0DH,NK23 MOV KEYBUF,#22 LJMP DK6 NK23: CJNE A,#0EH,NK24 MOV KEYBUF,#23 LJMP DK6 NK24: NOP DK6: MOV A,KEYBUF MOV DPTR,#KEYTAB MOVC A,@A+DPTR MOV KVALUE,A DK6A: MOV DPTR,#KEYC MOVX A,@DPTR ANL A,#0FH XRL A,#0FH JNZ DK6A ;************************ NOKEY6: RET ;****END********** KEYTAB: DB 16H,15H,14H,0FFH DB 13H,12H,11H,10H DB 0DH,0CH,0BH,0AH DB 0EH,03H,06H,09H DB 0FH,02H,05H,08H DB 00H,01H,04H,07H LEDTAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH 0
2012-6-6 23:03:24　　评论淘帖0 举报相关推荐 • 求帮助啊哪位大神帮忙看看这两个程序哪个命令可以控制... 1900 • 求帮助啊哪位大神帮忙看看这两个程序哪个命令控制灯亮 2366 • 大神能帮忙看看这两个是什么吗？ 3650 • 帮忙看看这两个IC是什么型号，谢谢！ 3522 • 求帮助啊，怎么解决后两个问题 1693 • 怎么整合这两个程序，本人初学者，大神帮忙啊 5750 • 大神帮我看看这两个都是什么呗 3295 • 大神帮帮看看这两个元器件是什么 3378 • 求大神帮忙设计这两个程序框图，谢谢！ 2337 • 帮忙看下这两个问题 1616