【正文】 tune,1 jmp scan_endkey_h7: cmp dl,39。u39。 。是否是u jne scan_end mov keynum,40 mov key_tune,1scan_end: cmp dl,39。p39。 。判斷是否按下了自動播放鍵 jnz hand_play 。若不是，繼續(xù)掃描 call do_song 。若是，調(diào)用演奏音樂子程序 jmp restart 。演奏結(jié)束，返回restarthand_play: cmp key_tune,1 。取按鍵狀態(tài)緩存值，判斷是否手動演奏，1為有，0為無 jnz again 。若不是，重新掃描有無鍵按下 ret 。若是音鍵，則返回并繼續(xù)進(jìn)行音鍵處理again:jmp new_scanscan_key endp。*********************播放音樂程序********************。功能：播放存放好的音樂。do_song proc near。 push bp push si push bx push di push ax draw 247,42,251,46,0bh 。調(diào)用矩形繪制宏，繪制燈1亮 lea bp,mus_time 。載入延時(shí)數(shù)據(jù)首地址 lea si,mus_freq 。載入頻率數(shù)據(jù)首地址freq: mov ah,01h 。讀鍵盤緩沖區(qū)字符 int 16h cmp ah,1ch 。是否是enter鍵，1ch為enter鍵的掃描碼 jnz continue 。不是繼續(xù) jmp play_end 。是結(jié)自動播放continue: mov ah,0ch 。清除鍵盤緩沖區(qū)字符 mov al,06h 。dos6號調(diào)用，當(dāng)dl中為ASCII碼時(shí)，輸出dl對應(yīng)的字符，這里是輸出39。I39。 mov dl,39。I39。 。自行修改顯示字符 int 21h 。可自行打開 mov di,[si] 。把頻率數(shù)據(jù)放入di cmp di,1 。判斷結(jié)束否 je play_end mov bx,[bp] 。bx存入節(jié)拍值 call play_auto 。發(fā)聲 add si,2 add bp,2 。下一頻率 jmp freqplay_end: pop ax pop di pop bx pop si pop bp ret do_song endp。*************************在屏幕上顯示字符************************。功能：顯示字符和說明。show_text proc near。初始化光標(biāo)的位置 lea di,text 。載入字符串首地址 mov dh,[di] 。2號功能，賦行值 inc di 。取得列 mov dl,[di] 。2號功能，賦列值 mov start_col,dl 。保存開始列 mov ah,2 。2號功能，設(shè)置光標(biāo)位置，dh=行號；dl=列號；bh=頁號 mov bh,0 。0頁 int 10h。取顏色值 inc di 。取得顏色值 mov bl,[di] 。賦顏色值。顯示字符char_write: inc di 。取得要顯示的字符 mov al,[di] cmp al,0ffh 。行結(jié)束否 je bump_row 。下一行 cmp al,0 。結(jié)束否 jz end_text call show_char 。顯示字符 jmp char_write 。下一個(gè)字符 end_text: ret。光標(biāo)下移一行bump_row: inc dh 。2號功能，下一行 mov dl,start_col 。2號功能，賦開始列值 mov ah,2 。2號功能，設(shè)光標(biāo)位置 mov bh,0 。2號功能，頁號 int 10h jmp char_writeshow_text endp。***********************顯示字符************************。功能：橫向顯示字符。show_char proc near mov ah,9 。9號功能，顯示字符bl=字符屬性，bh=頁號；al=字符ASCII碼；cx=寫入字符數(shù) mov bh,0 。0頁 mov cx,1 。寫入一個(gè)字符 int 10h inc dl 。2號功能，賦列值，這里為光標(biāo)右移一個(gè)字符位 mov ah,2 。設(shè)置光標(biāo)位置 mov bh,0 。0頁 int 10h retshow_char endp。***********************初始化*****************************。功能：初始化屏幕和顯示，顯示字符說明，繪制出電子琴。init proc near mov ax,data mov ds,ax 。屏幕以及顯示初始化 mov ah,0 。0號功能，設(shè)置屏幕 mov al,0dh 。文本分辨率40*25；像素框8*8；像素分辨率320*200；顏色16 int 10h mov ah,0bh 。11號功能，設(shè)置背景顏色，bh=0時(shí)，設(shè)置背景顏色 mov bh,0 mov bl,00h 。背景色 int 10h。顯示字符說明 call show_text 。顯示字符串。繪制電子琴 call draw_dzq 。繪制琴身和底座 ret init endp。************繪制電子琴***************。功能：繪制琴身和底座，黑白鍵，效果燈draw_dzq proc near draw_point 40,52,44,92,07h 。調(diào)用矩形點(diǎn)陣宏，繪制音響孔左 draw_point 288,52,292,92,07h 。調(diào)用矩形點(diǎn)陣宏，繪制音響孔右 drawsqre 38,50,292,92,07h 。調(diào)用矩形框繪制宏，繪制音響框 drawsqre 44,30,286,93,07h 。調(diào)用矩形框繪制宏，繪制底框1 draw 45,30,285,94,08h 。調(diào)用矩形繪制宏，繪制琴身顏色 drawsqre 45,30,285,94,07h 。調(diào)用矩形框繪制宏，繪制底框2 draw_point 150,34,282,38,07h 。調(diào)用矩形點(diǎn)陣宏，繪制正面音孔 drawsqre 46,31,284,32,00h 。調(diào)用矩形框繪制宏，繪制琴上邊 drawsqre 49,48,280,49,00h 。調(diào)用矩形框繪制宏，繪制琴擋 draw 55,38,60,41,0ah 。調(diào)用矩形繪制宏，繪制燈1 draw 65,38,70,41,07h 。調(diào)用矩形繪制宏，繪制燈2 draw 271,42,275,46,07h 。調(diào)用矩形繪制宏，繪制5個(gè)指示燈 draw 265,42,269,46,07h draw 259,42,263,46,07h draw 253,42,257,46,07h draw 247,42,251,46,07h。繪制白鍵 lea si,st_lx 。畫21個(gè)白色鍵 lea di,ed_lx mov cx,21init_draw: draw [si],st_y,[di],ed_y,0fh 。調(diào)用矩形繪制宏，繪制白色矩形作為白鍵 draw [si],90,[di],93,07h 。調(diào)用矩形繪制宏，繪制灰色矩形作為陰影 add si,2 add di,2 loop init_draw 。繪制黑鍵 lea si,bt_x 。畫15個(gè)黑色鍵 lea di,bd_x mov cx,15init_block: draw [si],bt_y,[di],bd_y,00h 。調(diào)用矩形繪制宏，繪制黑色矩形作為黑鍵 add si,2 add di,2 loop init_block retdraw_dzq endp。*************************進(jìn)度條顯示程序************************。功能：程序啟動時(shí)，顯示動態(tài)進(jìn)度條，快慢與waitf子程序有關(guān)show_load proc near mov ax,data mov ds,ax mov ah,0 。0號功能，設(shè)置屏幕 mov al,0dh 。文本分辨率40*25；像素框8*8；像素分辨率320*200；顏色16 int 10h mov ah,0bh 。11號功能，設(shè)置背景顏色，bh=0時(shí)，設(shè)置背景顏色 mov bh,0 mov bl,00h 。背景色 int 10h。初始化光標(biāo)的位置 lea di,st_load 。載入字符串首地址 mov dh,[di] 。2號功能，賦行值 inc di 。取得列 mov dl,[di] 。2號功能，賦列值 mov start_col,dl 。保存開始列 mov ah,2 。2號功能，設(shè)置光標(biāo)位置，dh=行號；dl=列號；bh=頁號 mov bh,0 。0頁 int 10h。取顏色值 inc di 。取得顏色值 mov bl,[di] 。賦顏色值。繪制矩形載入外框 drawsqre 31,78,296,88,08h 。調(diào)用矩形框繪制宏，繪制載入框 內(nèi)，灰色drawsqre 29,76,298,90,0fh 。調(diào)用矩形框繪制宏，繪制載入框 外，純白。顯示字符load_write: inc di 。取得要顯示的字符 mov al,[di] cmp al,0 。結(jié)束否 jz end_load call show_char 。調(diào)用顯示字符程序，行顯示 call waitf jmp load_write 。下一個(gè)字符 end_load: retshow_load endp。*************返回dos程序***************exit proc near mov ah,4ch int 21h retexit endpcode ends end start34