【正文】 *************返回dos程序***************exit proc near mov ah,4ch int 21h retexit endpcode ends end start34。調(diào)用顯示字符程序，行顯示 call waitf jmp load_write 。取得要顯示的字符 mov al,[di] cmp al,0 。調(diào)用矩形框繪制宏，繪制載入框 外，純白。繪制矩形載入外框 drawsqre 31,78,296,88,08h 。取得顏色值 mov bl,[di] 。0頁 int 10h。保存開始列 mov ah,2 。取得列 mov dl,[di] 。載入字符串首地址 mov dh,[di] 。背景色 int 10h。文本分辨率40*25；像素框8*8；像素分辨率320*200；顏色16 int 10h mov ah,0bh 。功能：程序啟動時，顯示動態(tài)進(jìn)度條，快慢與waitf子程序有關(guān)show_load proc near mov ax,data mov ds,ax mov ah,0 。調(diào)用矩形繪制宏，繪制黑色矩形作為黑鍵 add si,2 add di,2 loop init_block retdraw_dzq endp。繪制黑鍵 lea si,bt_x 。調(diào)用矩形繪制宏，繪制白色矩形作為白鍵 draw [si],90,[di],93,07h 。繪制白鍵 lea si,st_lx 。調(diào)用矩形繪制宏，繪制燈2 draw 271,42,275,46,07h 。調(diào)用矩形框繪制宏，繪制琴擋 draw 55,38,60,41,0ah 。調(diào)用矩形點陣宏，繪制正面音孔 drawsqre 46,31,284,32,00h 。調(diào)用矩形繪制宏，繪制琴身顏色 drawsqre 45,30,285,94,07h 。調(diào)用矩形框繪制宏，繪制音響框 drawsqre 44,30,286,93,07h 。調(diào)用矩形點陣宏，繪制音響孔左 draw_point 288,52,292,92,07h 。************繪制電子琴***************。繪制電子琴 call draw_dzq 。顯示字符說明 call show_text 。11號功能，設(shè)置背景顏色，bh=0時，設(shè)置背景顏色 mov bh,0 mov bl,00h 。0號功能，設(shè)置屏幕 mov al,0dh 。init proc near mov ax,data mov ds,ax 。***********************初始化*****************************。設(shè)置光標(biāo)位置 mov bh,0 。寫入一個字符 int 10h inc dl 。9號功能，顯示字符bl=字符屬性，bh=頁號；al=字符ASCII碼；cx=寫入字符數(shù) mov bh,0 。功能：橫向顯示字符。2號功能，頁號 int 10h jmp char_writeshow_text endp。2號功能，賦開始列值 mov ah,2 。光標(biāo)下移一行bump_row: inc dh 。顯示字符 jmp char_write 。下一行 cmp al,0 。取得要顯示的字符 mov al,[di] cmp al,0ffh 。賦顏色值。取顏色值 inc di 。2號功能，設(shè)置光標(biāo)位置，dh=行號；dl=列號；bh=頁號 mov bh,0 。2號功能，賦列值 mov start_col,dl 。2號功能，賦行值 inc di 。初始化光標(biāo)的位置 lea di,text 。功能：顯示字符和說明。下一頻率 jmp freqplay_end: pop ax pop di pop bx pop si pop bp ret do_song endp。bx存入節(jié)拍值 call play_auto 。把頻率數(shù)據(jù)放入di cmp di,1 。自行修改顯示字符 int 21h 。I39。I39。清除鍵盤緩沖區(qū)字符 mov al,06h 。不是繼續(xù) jmp play_end 。讀鍵盤緩沖區(qū)字符 int 16h cmp ah,1ch 。載入延時數(shù)據(jù)首地址 lea si,mus_freq 。 push bp push si push bx push di push ax draw 247,42,251,46,0bh 。功能：播放存放好的音樂。若是音鍵，則返回并繼續(xù)進(jìn)行音鍵處理again:jmp new_scanscan_key endp。取按鍵狀態(tài)緩存值，判斷是否手動演奏，1為有，0為無 jnz again 。若是，調(diào)用演奏音樂子程序 jmp restart 。判斷是否按下了自動播放鍵 jnz hand_play 。p39。 。是否是y jne key_h7 mov keynum,38 mov key_tune,1 jmp scan_endkey_h7: cmp dl,39。y39。 。是否是r jne key_h5 mov keynum,34 mov key_tune,1 jmp scan_endkey_h5: cmp dl,39。r39。 。是否是w jne key_h3 mov keynum,30 mov key_tune,1 jmp scan_endkey_h3: cmp dl,39。w39。 。是否是j jne key_h1 mov keynum,26 mov key_tune,1 jmp scan_endkey_h1: cmp dl,39。j39。 。是否是g jne key_6 mov keynum,22 mov key_tune,1 jmp scan_endkey_6: cmp dl,39。g39。 。是否是d jne key_4 mov keynum,18 mov key_tune,1 jmp scan_endkey_4: cmp dl,39。d39。 。是否是a jne key_2 mov keynum,14 mov key_tune,1 jmp scan_end key_2: cmp dl,39。a39。 。是否是n jne key_l7 mov keynum,10 mov key_tune,1 jmp scan_endkey_l7: cmp dl,39。n39。 。是否是v jne key_l5 mov keynum,6 mov key_tune,1 jmp scan_endkey_l5: cmp dl,39。v39。 。是否是x jne key_l3 mov keynum,2 mov key_tune,1 jmp scan_endkey_l3: cmp dl,39。x39。改變按鍵狀態(tài)緩存 jmp scan_end 。不是則繼續(xù)掃描 mov keynum,0 。 。高音：q w e r t y uflag_scan: key_l1: cmp dl,39。低音：z x c v b n m。掃描琴鍵。若不是繼續(xù)檢測call exit 。檢測是否為結(jié)束鍵cmp ah,01h 。讀鍵盤，鍵盤掃描碼存入ah，ASCII碼存入alint 16hmov dl,al 。如果按下，則改變相應(yīng)的按鍵編號緩存和按鍵狀態(tài)緩存。功能：掃描鍵盤，檢測是否功能鍵被按下。調(diào)用矩形繪制宏，恢復(fù)背景色pop dipop siretkey_up endp。載入音鍵結(jié)束坐標(biāo)首地址draw [si+bx],90,[di+bx],93,07h 。key_up proc nearpush sipush dilea si,st_lx 。***************************彈起顯示程序************************。調(diào)用矩形繪制宏，bx為按鍵標(biāo)號緩存值,畫一小塊琴鍵色方塊draw [si+bx],92,[di+bx],94,07h 。載入音鍵起始坐標(biāo)首地址lea di,ed_lx 。功能：顯示按下鍵盤時相應(yīng)鍵盤狀態(tài)。 retwaitf endp。cx1不為0則回到waitf pop ax 。等待al變化 mov ah,al 。檢查pb4口 cmp al,ah 。t=delay_time*。************************任意時間延時程序************************waitf proc nearpush ax ?；謴?fù)寄存器狀態(tài) pop dx pop cx pop bx pop ax。完畢則關(guān)閉揚聲器 out 61h,al。bx存的是節(jié)拍值，在play_sound程序中賦值 jnz wait2 。延時t=bx*delay_time* call waitf 。調(diào)用矩形點陣宏，繪制正面音孔 mov soundcolor,0 。調(diào)用矩形點陣宏，繪制音響孔左draw_point 288,52,292,92,07h 。延時。調(diào)用矩形點陣宏，繪制正面音孔 mov soundcolor,1 。調(diào)用矩形點陣宏，繪制音響孔左draw_point 288,52,292,92,0fh 。跳到color2方案。取音色緩存值，與1比，為0則用color1方案；為1則用color2方案 jnz color1 。打開揚聲器 out 61h,al 。給定時器2寫入AX中存放的計數(shù)初值 mov al,ah out 42h,al in al,61h mov ah,al 。12348h存入DX:AX中，作32位運算，商存入AX，余數(shù)存入DX div di 。從而對定時器2初始化，準(zhǔn)備接收計數(shù)初值 mov dx,12h 。 mov al,0b6h 。 push ax 。功能：自動播放音樂時發(fā)聲。 retplay_hand endp。 pop di