ORG 0000H
AJMP LOOOOP //絕對轉移指令。
ORG 000BH
AJMP TIM0
ORG 001BH
RETI // 中斷返回指令
ORG 0023H
LOOOOP: MOV A,#01H
LOOOP: MOV P1,#3FH
MOV P2,A
RL A //A 左移
MOV R2,#0FFH
DELAY0: MOV R3,#0FFH
DJNZ R3,$ //$ 在某些 51 的匯編語言里表示本條指令的地址
DJNZ R3,$ 意思是 R3 減一，不為零跳轉到本條指令 ( 為零執行下
一條指令 )
MOV R4,#0FFH
DJNZ R4,$
DJNZ R2,DELAY0
JNB P3.3,START // 直接尋址位不為 1 轉
LJMP LOOOP //長調用指令
START: MOV P1,#06H
MOV R5,#00H / 初始化
MOV TMOD,#00010001B
MOV IE,#10101010B
MOV DPTR,#TAB2 // 裝第一首歌
MOV 30H,DPL //DPTR低 8 位送 30H暫存
MOV 31H,DPH //DPTR高 8 位送 31H暫存
START1: INC R4 寄存器內容加 1// 產生 8 位隨機數
MOV A,#01010101B
MOV B,R4
MUL AB
MOV P2,A
MOV DPL,30H
MOV DPH,31H
MOV A,#00H
MOVC A,@A+DPTR // 查表
MOV R0,A // 音符數據送 R0暫存
MOV A,#00H
INC DPTR //DPTR 的內容加 1
MOVC A,@A+DPTR // 查表
MOV R1,A // 節拍數據送 R1暫存
INC DPTR
MOV 30H,DPL
MOV 31H,DPH
CJNE A,#01H,ELECT// 立即數與 A 相比不相等則轉移 / 一首歌
沒結束轉 ELECT
INC R5
LJMP KEYWORK // 結束歌曲計數器加 1
ELECT: JZ START // 所有歌曲結束轉 START循環（累加器內容為
0 轉移）
MOV A,R0
JNZ SING （累加器內容不為 0 轉移）
CLR TR0 // 累加器內容清 0
SETB P3.7 // 置位直接位
LOOP1: ACALL DELAY // 絕對調用（調用延時子程序）
DJNZ R1,LOOP1
SJMP START1 // 相對轉移
SING: MOV DPTR,#TAB1 // 音符表首地址送 DPTR
DEC R0 //R0 內容減 1（計算音符）
MOV A,R0
MOV B,#02H
MUL AB //A 乘以 B
MOV R0,A
MOVC A,@A+DPTR
MOV 21H,A
INC DPTR // 數據之指針加 1
MOV A,R0
MOVC A,@A+DPTR
MOV 20H,A
MOV TL0,20H
MOV TH0,21H
SETB TR0 開 T0 定時器
LOOP2: ACALL DELAY
DJNZ R1,LOOP2
AJMP START1
TIM0: MOV TL0,20H
MOV TH0,21H
CPL P3.7
RETI 中斷返回
DELAY: MOV R2,#70
DELAY1: MOV R3,#252
DJNZ R3,$
JNB P3.3,AGAIN 重復正播放的曲子
JNB P3.4,FORM // 上一曲開關按下轉 FORM
JNB P3.5,NEXT // 下一曲開關按下轉 NEXT
DJNZ R2,DELAY1
RET
AGAIN: JNB P3.3,$ 等待鍵釋放
LJMP KEYWORK
FORM: CLR EA 關中斷
JNB P3.4,$ 等待鍵釋放
CJNE R5,#00H,ZERO 不是第一首歌曲轉 ZER0
MOV R5,#04H// 是第一首將最后一首歌曲裝入歌曲計數器
SJMP KEYWORK
ZERO: DEC R5 歌曲向上進一首
SJMP KEYWORK
NEXT: CLR EA
JNB P3.5,$
CJNE R5,#04H,LAST
MOV R5,#00H
LJMP KEYWORK
LAST: INC R5 歌曲下翻一首
LJMP KEYWORK
KEYWORK: MOV DPTR,#TAB// 將歌曲排列表裝入 DPTR
MOV A,R5// 將 R5的內容送 A
RL A //A 左移
SETB EA // 開中斷
JMP @A+DPTR // 根據 A的內容轉向不同歌曲
TAB: AJMP MUSIC2
AJMP MUSIC3
AJMP MUSIC4
AJMP MUSIC5
MUSIC2: MOV DPTR,#TAB2 //第二首歌曲送 DPTR
MOV P1,#06H
GONG: MOV 30H,DPL
MOV 31H,DPH
AJMP START1
MUSIC3: MOV DPTR,#TAB3
MOV P1,#5BH
SJMP GONG
MUSIC4: MOV DPTR,#TAB4
MOV P1,#4FH
SJMP GONG
MUSIC5: MOV DPTR,#TAB5
MOV P1,#66H
SJMP GONG
******************** （音符表） **********************;
TAB1:
DW 64021,64185,64331,64400,64524,64632,64732
DW 64777,64860,64934,64968,65030,65085,65134
DW 65157,65198,65235,65252,65283,65310,65335 ;
**********************( 因 為 愛
情)*************************;
TAB2:
DW 0910H,0A08H,0C08H,0C08H,0A18H,0010H,0C08H,0A08H
DW 0908H,0C08H,0C20H,0D08H,0E08H,0F08H,0F08H,0F08H
DW 0E08H,0F18H,0E04H,0E08H,0E08H,0C08H,0A08H,0A20H
DW 0C08H,0A08H,0C08H,0D08H,0D18H,0C08H,0D08H,0C08H
DW 0C08H,0808H,0820H,0608H,0808H,0A08H,0908H,0608H
DW 0A08H,0908H,0608H,0A08H,0908H,0608H,0D10H,0C20H
DW 0001H ;
*********************(
蘭花草
)***********************;
TAB3:
DW 0608H,0A08H,0A08H,0A08H,0A18H,0908H,0808H,0908H
DW 0808H,0708H,0620H,0D08H,0D08H,0D08H,0D08H,0D18H
DW 0C08H,0A08H,0C08H,0C08H,0B08H,0A20H,0A08H,0D08H
DW 0D08H,0C08H,0A18H,0908H,0808H,0908H,0808H,0708H
DW 0610H,0310H,0308H,0808H,0808H,0708H,0618H,0A08H
DW 0908H,0808H,0708H,0508H,0620H,0908H,0808H,0708H
DW 0508H,0640H,0001H ;
*********************( 我 只 在 乎
你)*****************************;
TAB4: DW 0A08H,0A08H,0A08H,0908H,0A10H,0C08H,0C08H,0C2
0H
DW 0D08H,0D08H,0D08H,0C08H,0A10H,0D08H,0C08H,0C20H
DW 0F08H,0F08H,0F08H,0D08H,1010H,0F08H,0C08H,0C20H
DW 0D08H,0D08H,0D08H,0F08H,0D08H,0C10H,0A10H,0920H
DW 0A08H,0A08H,0A08H,0908H,0A10H,0C08H,0C08H,0C20H
DW 0D08H,0D08H,0D08H,0C08H,0A10H,0C08H,0C08H,0C20H
DW 0F08H,0F10H,0D08H,1010H,1010H,0F08H,0C08H,0C20H
DW 1010H,0C10H,0F10H,1010H,1110H,1010H,0F10H,0E10H
DW 0F10H,0E10H,0D10H,0C10H,0D40H,0020H,0004H,0F08H
DW 1008H,1110H,1010H,0F10H,0E10H,0F10H,0E10H,0A10H
DW 0C10H,0D20H,0008H,0D08H,0C08H,0D10H,0F10H,0F20H
DW 0010H,0F20H,1010H,1110H,0F10H,1010H,0F10H,0D08H
DW 0D08H,1210H,1110H,1010H,0F08H,1208H,1210H,1110H
DW 1010H,0F10H,1030H,1110H,1008H,0F08H,0F20H,0F10H
DW 1010H,1120H,0F10H,1410H,1310H,1108H,1008H,0F10H
DW 0D30H,0010H,0C10H,0F10H,1110H,1310H,1408H,1108H
DW 1008H,0F10H,0D10H,0F10H,0F08H,1010HF08H,0F40H
DW 0001H
*********************( 童
年)****************************;
TAB5:
DW 0A08H,0C08H,0C10H,0C08H,0A08H,0D08H,0D08H,0E08H
DW 0D08H,0D08H,0D08H,0D08H,0C08H,0F10H,0F08H,0F08H
DW 0F08H,0D08H,0F08H,0D08H,0C40H,0A08H,0C08H,0C10H
DW 0C08H,0A08H,0D08H,0D08H,0E08H,0D08H,0D08H,0D08H
DW 0D08H,0C08H,0F10H,0F08H,0F08H,0F08H,0D08H,0D08H
DW 0F08H,1040H,1308H,1308H,1310H,1310H,1108H,1008H
DW 0F08H,0F10H,0D08H,0D08H,0F08H,0D08H,0F08H,1008H
DW 1008H,1008H,1008H,1008H,0F08H,1108H,1008H,1040H
DW 1108H,1110H,1108H,1108H,1008H,1010H,0F08H,0F10H
DW 0F08H,1008H,0F08H,0D08H,0C08H,0C08H,0C10H,0C08H
DW 0D08H,0C08H,1008H,1108H,0F40H,0001H,0000H
END
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
