單片機(jī)課程設(shè)計(jì)音樂(lè)盒-文庫(kù)吧
2025-06-11 12:41 本頁(yè)面
【正文】 LCALL MODD MOV 52H,HIGH TABLE20 MOV 53H,LOW TABLE20 LCALL INITILE2 lcall MAIN0A22: CJNE A,03H,A33 LCALL MODD MOV 52H,HIGH TABLE30 MOV 53H,LOW TABLE30 LCALL INITILE2 lcall MAIN0 A33: CJNE A,04H,A44 LCALL MODD MOV 52H,HIGH TABLE40 MOV 53H,LOW TABLE40 LCALL INITILE2 lcall MAIN0A44: CJNE A,05H,A55 LCALL MODD MOV 52H,HIGH TABLE50 MOV 53H,LOW TABLE50 LCALL INITILE2 lcall MAIN0A55: CJNE A,06H,A66 LCALL MODD MOV 52H,HIGH TABLE60 MOV 53H,LOW TABLE60 LCALL INITILE2 lcall MAIN0 A66: CJNE A,07H,A77 LCALL MODD MOV 52H,HIGH TABLE70 MOV 53H,LOW TABLE70 LCALL INITILE2 lcall MAIN0 A77: CJNE A,08H,A88 LCALL MODD MOV 52H,HIGH TABLE80 MOV 53H,LOW TABLE80 LCALL INITILE2 lcall MAIN0A88: CJNE A,09H,A99 LCALL MODD MOV 52H,HIGH TABLE90 MOV 53H,LOW TABLE90 LCALL INITILE2 lcall MAIN0 A99: CJNE A,0AH,AAA LCALL MODD MOV 52H,HIGH TABLE100 MOV 53H,LOW TABLE100 LCALL INITILE2 lcall MAIN0 AAA: RET 。******************************************INITILE2: MOV L50MS,20 MOV L1MS,00H MOV L250MS,00H MOV SEC,00H MOV MIN,00H MOV HOU,00H MOV A,HOU MOV B,10 DIV AB ADD A,30H 。將BCD嗎轉(zhuǎn)化為ASIIC碼 MOV P0,0C8H 。顯示小時(shí)十位 CALL ENABLE CALL WRITE2 MOV A,B ADD A,30H MOV P0,0C9H 。顯示小時(shí)個(gè)位 CALL ENABLE CALL WRITE2 MOV A,3AH MOV P0,0DH 。顯示冒號(hào) CALL ENABLE CALL WRITE2 MOV A,MIN MOV B,10 DIV AB ADD A,30H MOV P0,0CBH 。顯示分十位 CALL ENABLE CALL WRITE2 MOV A,B ADD A,30H MOV P0,0CCH 。顯示分個(gè)位 CALL ENABLE CALL WRITE2 MOV A,3AH MOV P0,0CDH 。顯示冒號(hào) CALL ENABLE CALL WRITE2 MOV A,SEC MOV B,10 DIV AB ADD A,30H MOV P0,0CEH 。顯示秒十位 CALL ENABLE CALL WRITE2 MOV A,B ADD A,30H MOV P0,0CFH 。顯示秒個(gè)位 CALL ENABLE CALL WRITE2 MOV P0,0C0H 。設(shè)光標(biāo)地址 CALL ENABLE MOV DPTR,TABLE2。寫(xiě)數(shù)據(jù) CALL WRITE1 RET。*********************************************寫(xiě)指令ENABLE: CLR RS CLR RW CLR E LCALL DELAY SETB E RET。**********************************************寫(xiě)數(shù)據(jù)WRITE1: MOV R1,00HA1: MOV A,R1 MOVC A,@A+DPTR CALL WRITE2 INC R1 CJNE A,0FEH,A1 。未到字符串末尾繼續(xù) RETWRITE2: MOV P0,A SETB RS CLR RW CLR E CALL DELAY SETB E RET。**********************************************DELAY: MOV R4,05D1: MOV R5,0FFH DJNZ R5,$ DJNZ R4,D1 RET 。TAB: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h db 80h,90h,88h,83h,0c6h,0a1h,86h,8ehTAB1: db 89h,86h,0c7h,0c7h,0c0h TAB2: db 0c6h,88h,0c0hTABLE1: DB 39。WELCOM HERE39。,0FEHTABLE2: DB 39。DFF WB 39。,0FEHTABLE4: DB 39。CAU39。,0FEH TABLE3: DB 30H,31H,32H,33h DB 34H,35H,36H,37H DB 38h,39H,41H,42H DB 43H,44H,45H,46H 。播放歌曲程序。MAIN0: MOV TMOD,11H MOV IE,8aH 。MOV TH1, 3cH 。MOV TL1, 0b0H lcall ks jnz TTM12 MOV 40H,00H。NEXT20: MOV A,40H MOV DPH,52H MOV DPL,53H MOVC A,@A+DPTR MOV R2,A JZ STOP ANL A,0FH MOV R1,A MOV A,R2 SWAP A ANL A,0FH JNZ SING CLR TR0 JMP W1。SING: DEC A MOV 22H,A RL A MOV DPTR,TABLE00 MOVC A,@A+DPTR MOV TH0,A MOV 21H,A MOV A,22H RL A INC A MOVC A,@A+D
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1