【正文】 ERROR CMP AL,31H 。ASCII31H,退出 JC ERROR AND AX,000FH 。將ASCII碼轉(zhuǎn)換成數(shù)字 MOV BUFFER,AX 。將數(shù)字存儲(chǔ)在內(nèi)存空間BUFFER中 JMP PLAYERROR:CMP AL,1BHJZ EXITJMP SCANPLAY:MOV DI,TONEFDEC AXADD AX,AX 。TABFx為雙字表,需要將獲得的ASCII符*2ADD DI,AXMOV BX,[DI] 。根據(jù)按鍵獲取的ASCII碼得到相應(yīng)的頻率值。 MOV DX,12HMOV AX,34DEH 。DIV BXOUT 42H,ALMOV AL,AH OUT 42H,AL。 CALL PAINTKEYCALL DELAY 。揚(yáng)聲器延時(shí)MOV AX,12H 。往揚(yáng)聲器送高頻，模擬關(guān)閉OUT 42H,ALMOV AL,AH OUT 42H,AL JMP SCANEXIT: MOV AH,4CH INT 21H。 DELAY PROCMOV AH,2DHMOV CX,0MOV DX,0INT 21H 。設(shè)置系統(tǒng)時(shí)間READ:MOV AH,2CHINT 21HMOV AL,100MUL DH MOV DH,0ADD AX,DXCMP AX,DTIMEJC READRETDELAY ENDP。MUSICA PROC NEARCALL HUAGANGQIN MOV DX,OFFSET MUSIA 。顯示提示信息 MOV AH,09H INT 21H PUSH DS SUB AX,AX PUSH AX LEA SI,MUS_FREQA LEA BP,DS:MUS_TIMEA MOV CX,0FREQA: LEA BX,MUS_JIEZOUA ADD BX,CX MOV DI,[BX] MOV BUFFER,DI MOV DI,[SI] CMP DI,1 JE END_MUSA MOV DX,DS:[BP] MOV BX,DX CALL PAINTKEY CALL GENSOUND ADD SI,2 ADD BP,2 ADD CX,2 JMP FREQAEND_MUSA:CALL INITCALL OPEN JMP STARTMUSICA ENDPGENSOUND PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSH DI MOV AL,0B6H OUT 43H,AL MOV DX,12H MOV AX,533H*896 DIV DI OUT 42H,AL MOV AL,AH OUT 42H,AL IN AL,61H MOV AH,AL OR AL,3 OUT 61H,ALWAIT1: MOV CX,0FFFFHDELAY1: LOOP DELAY1 DEC BX JNZ WAIT1 MOV AL,AH OUT 61H,AL POP DI POP DX POP CX POP BX POP AX RETGENSOUND ENDPMUSICB PROC NEARCALL HUAGANGQIN MOV DX,OFFSET MUSIB 。顯示提示信息 MOV AH,09H INT 21H PUSH DS SUB AX,AX PUSH AX LEA SI,MUS_FREQB LEA BP,DS:MUS_TIMEB MOV CX,0FREQB: LEA BX,MUS_JIEZOUB ADD BX,CX MOV DI,[BX] MOV BUFFER,DI MOV DI,[SI] CMP DI,1 JE END_MUSB MOV DX,DS:[BP] MOV BX,DX CALL PAINTKEY CALL GENSOUND ADD SI,2 ADD BP,2 ADD CX,2 JMP FREQBEND_MUSB:CALL INITCALL OPEN JMP START MUSICB ENDPMUSICC PROC NEARCALL HUAGANGQIN MOV DX,OFFSET MUSIC 。顯示提示信息 MOV AH,09H INT 21H PUSH DS SUB AX,AX PUSH AX LEA SI,MUS_FREQC LEA BP,DS:MUS_TIMEC MOV CX,0FREQC: LEA BX,MUS_JIEZOUC ADD BX,CX MOV DI,[BX] MOV BUFFER,DI MOV DI,[SI] CMP DI,1 JE END_MUSC MOV DX,DS:[BP] MOV BX,DX CALL PAINTKEY CALL GENSOUND ADD SI,2 ADD BP,2 ADD CX,2 JMP FREQCEND_MUSC: CALL INITCALL OPEN JMP STARTMUSICC ENDPOPEN PROCPUSH AXIN AL,61HOR AL,03HOUT 61H,ALPOP AXRETOPEN ENDP 。畫陰影抖動(dòng) 模擬動(dòng)態(tài)效果PAINTKEY PROCPUSH AXPUSH SIPUSH DIPUSH DXMOV AX,BUFFER MOV SI,OFFSET WLMOV DI,OFFSET WRDEC AXADD AX,AXADD SI,AXADD DI,AXMOV SI,WORD PTR[SI]MOV DI,WORD PTR[DI]。DRAW SI,230,DI,250,WHITE DRAW SI,230,DI,250,WHITE POP DXPOP DIPOP SIPOP AXRETPAINTKEY ENDP。HUAGANGQIN PROCCALL INITCALL OPEN MOV SI,190 。SI=START_X MOV DI,140 。DI=START_Y MOV BP,540 。BP=END_XDRAWW4: DRAWLINE0 SI,DI,BP,WHITE DEC SI DEC BP INC DI CMP DI,230 JC DRAWW4。畫陰影 DRAW 100,230,450,250,GRAY。側(cè)面陰影MOV SI,140PAINTSIDE4:DRAWOBILQUE 540,SI,450,GRAYINC SICMP SI,160JC PAINTSIDE4。黑鍵陰影MOV SI,140PAINTSIDE04:DRAWOBILQUE 255,SI,210,WHITEINC SICMP SI,150JC PAINTSIDE04 MOV SI,140PAINTSIDE14:DRAWOBILQUE 305,SI,260,WHITEINC SICMP SI,150JC PAINTSIDE14 MOV SI,140PAINTSIDE24:DRAWOBILQUE 405,SI,360,WHITEINC SICMP SI,150JC PAINTSIDE24 MOV SI,140PAINTSIDE34:DRAWOBILQUE 455,SI,410,WHITEINC SICMP SI,150JC PAINTSIDE34 MOV SI,140PAINTSIDE44:DRAWOBILQUE 505,SI,460,WHITEINC SICMP SI,150JC PAINTSIDE44 。畫分割線 MOV SI,240REDRAW04: MOV DI,SI SUB DI,90 DRAWOBILQUE SI,140,DI,BLACK ADD SI,50 CMP SI,540 JC REDRAW04 MOV SI,150REDRAW14: DRAWLINE1 SI,230,250,BLACK ADD SI,50 CMP SI,440 JC REDRAW14。畫黑鍵盤MOV BX,0 PAINTB4:MOV SI,OFFSET BLACKLMOV DI,OFFSET BLACKRMOV SI,[SI+BX]MOV BP,[DI+BX] MOV DI,140 DRAWB4: DRAWLINE0 SI,DI,BP,BLACK DEC SI DEC BP INC DI CMP DI,185 JC DRAWB4 ADD BX,2 CMP BX,9 JC PAINTB4。黑鍵底下陰影MOV BX,0PAINTBB4:MOV SI,OFFSET BBLMOV DI,OFFSET BBRMOV SI,[SI+BX]MOV BP,[DI+BX]DRAW SI,185,BP,195,BLACKADD BX,2 CMP BX,9 JC PAINTBB4HUAGANGQIN ENDPINIT PROCMOV AH,00HMOV AL,12H INT 10H MOV AL,80H 。對8255進(jìn)行初始化工作，A口、B口均為輸出狀態(tài)工作與方式0 OUT 63H,AL MOV AL,0B7H 。對計(jì)數(shù)器8254進(jìn)行初始化工作，選2號計(jì)數(shù)器，且先讀寫低8位后高8位，工作與模式3 OUT 43H,ALRETINIT ENDP CODES ENDS END START