[问答]

帮我看看这程序出错在哪

2330

问答对人有帮助，内容完整，我也想知道答案 0 本帖最后由 cccdddfff 于 2012-6-19 15:38 编辑 ORG 0000H LJMP MAIN ORG 0003H LJMP BREAK0 MAIN: SETB IT0 ;设置中断 SETB EX0 MOV TMOD,#01H ;设置定时器0方式1 MOV TH0,#0D8H ;初D8F0定时10ms MOV TL0,#0F0H CLR A MOV R0,#0H MOV R1,#0H MOV R4,#0H MOV R5,#0H CALL KEY MOV R0,A MOV A,#0E0H ;输出显示十位 MOV P2,A MOV A,R0 MOV DPTR,#TAB MOVC A,@A+DPTR MOV P1,A CALL KEY MOV R1,A ;输入个位 SETB EA ;设置中断允许 WAIT: CALL SHOW ;等待开始 JMP WAIT BEGIN: SETB EA ;设置中断允许 JP0: CALL SHOW DEC R5 CJNE R5,#0FFH,JP0 DEC R4 MOV R5,#9H CJNE R4,#0FFH,JP0 DEC R1 MOV R4,#5H CJNE R1,#0FFH,JP0 DEC R0 MOV R1,#9H CJNE R0,#0FFH,JP0 JMP BEEP SHOW: MOV R3,#25H LOOP: MOV R2,#0D0H ;设置分输出个位 MOV P2,R2 MOV A,R1 ;取分个位数值 MOV DPTR,#TAB MOVC A,@A+DPTR MOV P1,A ;输出 CALL DY12 MOV R2,#0E0H ;设置输出分十位 MOV P2,R2 MOV A,R0 MOV DPTR,#TAB MOVC A,@A+DPTR MOV P1,A CALL DY12 MOV R2,#70H ;设置输出秒个位 MOV P2,R2 MOV A,R5 MOV DPTR,#TAB MOVC A,@A+DPTR MOV P1,A CALL DY12 MOV R2,#0B0H ;设置输出秒十位 MOV P2,R2 MOV A,R4 MOV DPTR,#TAB MOVC A,@A+DPTR MOV P1,A CALL DY12 DJNZ R3,LOOP RET BREAK0: SETB EA CALL KEY0 ;中断程序 SETB EA RET STOP: SETB C MOV P3.7,C SETB EA JMP WAIT BEEP: SETB EA CLR C MOV P3.7,C MOV R1,#2H MOV R0,#0H MOV R4,#0H MOV R5,#0H JP1: CALL SHOW SETB EA DEC R5 CJNE R5,#0FFH,JP1 DEC R4 MOV R5,#9H CJNE R4,#0FFH,JP1 DEC R1 MOV R4,#5H CJNE R1,#0FFH,JP1 DEC R0 MOV R1,#9H CJNE R0,#0FFH,JP1 JMP MAIN KEY0: CLR A SETB RS1 ACALL KEY2 ;处理特殊键 CJNE A,#0AH,KK CLR RS1 JMP BEGIN KK: CJNE A,#0BH,KEND CLR RS1 AJMP STOP KEY2: ACALL KS1 JNZ LK11 AJMP KEND LK11: ACALL DY12 ACALL KS1 JNZ LK2 AJMP KEY2 KEY: CLR A SETB RS1 ACALL KEY1 ;处理特殊键 CJNE A,#0AH,KKK CLR RS1 JMP BEGIN KKK: CJNE A,#0BH,KEND CLR RS1 AJMP STOP KEY1: ACALL KS1 ;键盘程序 JNZ LK1 AJMP KEY1 LK1: ACALL DY12 ACALL KS1 JNZ LK2 AJMP KEY1 LK2: MOV R2,#0FEH MOV R4,#00H LK4: MOV A,R2 MOV P2,A MOV A,P0 JB ACC.0,LONE MOV A,#00H AJMP LKP LONE: JB ACC.1,LTWO MOV A,#04H AJMP LKP LTWO: JB ACC.2,LTHR MOV A,#08H AJMP LKP LTHR: JB ACC.3,NEXT MOV A,#0CH LKP: ADD A,R4 PUSH ACC LK3: ACALL KS1 JNZ LK3 POP ACC KEND: CLR RS1 RET NEXT: INC R4 MOV A,R2 JNB ACC.7,KND RL A MOV R2,A AJMP LK4 KND: AJMP KEY1 KS1: MOV A,#0E0H MOV P2,A MOV A,P0 CPL A ANL A,#0FH RET DY12: MOV R7,#25 DY1: MOV R6,#200 DY2: DJNZ R6,DY2 DJNZ R7,DY1 RET DY10: MOV TH0,#0D8H ;重装初值D8F0定时10ms MOV TL0,#0F0H SETB TR0 ;启动定时器 DYWAIT: JBC TF0,DYEND JMP DYWAIT DYEND: CLR TR0 RET TAB: DB 3FH,06H,5BH,4FH,66H,6DH DB 7DH,07H,7FH,6FH JMPTAB: JMP BEGIN JMP STOP END LO EQU 30H SI EQU 31H TC EQU 32H ORG 0000H JMP BEGIN ORG 000BH JMP TOINT BEGIN: MOV SP, #60H MOV TMOD, #00H MOV IE, #82H WAIT : MOV C,P1.4 JC RUN JMP WAIT RUN : ACALL SOUNDON ACALL PLAYSONG ACALL SOUNDOFF JMP WAIT PLAY : MOV C,P1.4 JC PLAY0 ACALL SOUNDOFF JMP WAIT PLAY0: ACALL LOADVALUE L1 : MOV R5, #30 ACALL DELAY DJNZ R3, L1 ACALL SOUNDOFF MOV R5, #3 ACALL DELAY ACALL SOUNDON RET PLAYSONG: MOV TC, #0 X0: MOV DPTR, #SONG MOV A, TC MOVC A, @A+DPTR MOV R4, A CJNE A, #0FFH, X1 RET X1: MOV DPTR, #LEN MOV A, TC MOVC A, @A+DPTR MOV R3, A ACALL PLAY INC TC JMP X0 RET SOUNDON: SETB TR0 RET SOUNDOFF: CLR TR0 RET LOADVALUE: MOV DPTR, #SILIST MOV A,R4 MOVC A,@A+DPTR MOV SI,A MOV DPTR, #LOLIST MOV A, R4 MOVC A, @A+DPTR MOV LO, A RET TOINT : MOV TL0, LO MOV TH0, SI CPL P3.4 REti DELAY : MOV R6, #35 D1 : MOV R7, #70 DJNZ R7, $ DJNZ R6, D1 DJNZ R5, DELAY RET SILIST: DB 196,202,208,211,216,220,224 DB 226,229,232,233,236,238,240 DB 241,242,244,244,246,247,248 LOLIST: DB 4,28,21,7,5,16,12 DB 4,13,10,20,3,8,6 SONG: DB 12,15,13,12,12,10,12,13,15,12,12,13,12,10,9,9,10,12,10,9,10,8 DB 12,15,13,15,12,10,12,9,10,12,10,12,13,15,12,13,12,10,12,8,10,9 DB 10,9,8,9,10,13,12,10,12,13,12,15,13,12,10,12,9,12,9,10,9,8,0F FH LEN: DB 2,1,1,2,2,1,1,1,1,2,2,2,1,1,2,2,2,1,1,1,1,3 DB 2,2,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2 DB 1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,2,0FFH END 音乐定时器图在附件 http://pan.baidu.com/netdisk/singlepublic?fid=411529_615487490 或者网盘下载 0 23333333333333.DSN 51.86 KB , 下载次数: 5
2012-6-19 15:36:38　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × 谢新貌该类别下有 43 个回答。邀请回答新星之火12138 该类别下有 39 个回答。邀请回答 911119qianhao 该类别下有 35 个回答。邀请回答 hgimtk 该类别下有 32 个回答。邀请回答 wang21cj 该类别下有 31 个回答。邀请回答独孤辉二该类别下有 27 个回答。邀请回答 wuli北该类别下有 25 个回答，其中被选为最佳答案 1 次。邀请回答 hy381 该类别下有 24 个回答。邀请回答周鹏生该类别下有 24 个回答。邀请回答牛牛爱吃草该类别下有 24 个回答。邀请回答修罗君该类别下有 24 个回答，其中被选为最佳答案 1 次。邀请回答 horayte 该类别下有 24 个回答，其中被选为最佳答案 1 次。邀请回答 butterflydw 该类别下有 24 个回答。邀请回答大洼球王该类别下有 23 个回答。邀请回答蔡甸一角该类别下有 23 个回答。邀请回答 32949523596693 该类别下有 23 个回答。邀请回答 hisysteeoke 该类别下有 23 个回答。邀请回答名士流该类别下有 23 个回答。邀请回答 testd27 该类别下有 22 个回答，其中被选为最佳答案 1 次。邀请回答 ggfx 该类别下有 22 个回答，其中被选为最佳答案 1 次。邀请回答举报 cccdddfff 相关推荐 • 大神们帮我看看这段程序问题在哪里？ 745 • protues 编辑激励源属性出错 7731 • 可以帮我看看吗 1322 • 写的一个运用DS1302时钟做，有一个警告麻烦看看 2580 • 帮我看看这个程序每步的解释，谢谢啦 2296 • stm32联网经常掉线 4041 • 大神帮我看看芯片驱动怎么写 4043 • 哪位大神帮我看看这个程序，为什么用proteus仿真不出来 2300 • 各位大神谁帮我看看哪里有问题啊？程序加载进去仿真不显示内容 2660 • 帮我看看这个单片机程序为什么运行不了？ 4394 1个回答