【正文】 正弦波產(chǎn)生子程序 SINE1: MOV DX,MY。有鍵按下則跳置 GETKEY2 GETKEY2_3: JMP JUCHI1 。有鍵壓下，延時消抖 CALL DELAY_SCAN CALL CCSCAN 。有鍵按下則跳置 GETKEY_1 JMP GETKEY2_3 。無鍵按下則繼續(xù)，有鍵按下則消抖 KEYBEGIN_3: CALL CCSCAN 。即 BL 變?yōu)?0 到 7 倍 。啟動 D/A轉(zhuǎn)換 OUT DX,AL CALL DELAY2 INC BL CMP BL,25H JNE UP2 MOV BL,00H MOV AL,AMP AND AL,0F0H 。即 BL 變?yōu)?0 到 7 倍 。D/A 轉(zhuǎn)換起始值 UP2: MOV AL,AMP AND AL,0F0H 。 為 0 則存為頻率值 MOV AMP,AL 。 讀 8255B 口數(shù)據(jù) IN AL,DX MOV BL,FLAG_FUPIN 。 通過 8255 的 C7 口發(fā)出一個低電平 MOV AL,00001110B OUT DX,AL 。否則跳回開始繼續(xù)循環(huán) FANHUI2: RET SANJIAO ENDP JUCHI PROC NEAR 。再次掃描按鍵 JNZ FANHUI2 。無按鍵則繼續(xù)向下執(zhí)行 GETKEY1_2: CALL DELAY_SCAN 。掃描按鍵 JNZ GETKEY1_2 。默認(rèn)值 AMP=7FH MUL BL MOV DX,DA0832 OUT DX,AL CALL DELAY2 DEC BL CMP BL,00H JNE DOWN 。AMP=00H~FFH ,AL=00H~07H SHR AL,4 。默認(rèn)值 AMP=7FH MUL BL MOV DX,DA0832 。AMP=00H~FFH ,AL=00H~07H SHR AL,4 。 不為 0 則存為振幅值 JMP NEXT1_2 PIN_2: MOV FRE,AL NEXT1_2: MOV BL,00H 。判斷幅頻標(biāo)志位，默認(rèn)為 0? CMP BL,0 JE PIN_2 。啟動 AD0809 MOV DX,MY8255_B 。三角波產(chǎn)生子程序 SANJIAO1: MOV DX,MY8255_MODE 。有鍵按下則跳置 GETKEY2 GETKEY2_1: JMP SQUARE1 。有鍵壓下，延時消抖 CALL DELAY_SCAN 28 CALL CCSCAN 。有鍵按下則跳置 GETKEY_1 JMP GETKEY2_1 。無鍵按下則繼續(xù)，有鍵按下則消抖 KEYBEGIN_1: CALL CCSCAN 。寫 AMP，輸出高電平 MOV AL,AMP 。 不為 0 則存為振幅值 JMP NEXT1_1 PIN_1: MOV FRE,AL NEXT1_1: MOV DX,DA0832 。判斷幅頻標(biāo)志位，默認(rèn)為 0? CMP BL,0 JE PIN_1 。啟動 AD0809 MOV DX,MY8255_B 。方波產(chǎn)生子程序 SQUARE1: MOV DX,MY8255_MODE 。讀 Y1～ Y4 27 NOT AL AND AL,0FH 。掃描是否有按鍵閉合子程序 MOV AL,00H MOV DX,MY8255_A 。將第 1 列的值加上當(dāng)前列數(shù)，確定按鍵值 MOV KEY,AL 。是則跳回到開始處 ROL AL,1 。當(dāng)前檢測的列數(shù)遞增 MOV AL,CH TEST AL,08H 。不是則繼續(xù)判斷 MOV AL,0CH 。設(shè)置第 3 行第 1 列的對應(yīng)的鍵值 JMP KCODE L4: TEST AL,08H 。是否為第 3 行 JNZ L4 。不是則繼續(xù)判斷 MOV AL,04H 。設(shè)置第 1 行第 1 列的對應(yīng)的鍵值 JMP KCODE 26 L2: TEST AL,02H 。是否為第 1 行 JNZ L2 。選取一列，將 X1～ X4 中一個置 0 MOV DX,MY8255_A OUT DX,AL MOV DX,MY8255_C 。返回到 DOS INT 21H SCAN PROC NEAR MOV CH,0FEH MOV CL,00H 。將波形對應(yīng)的鍵值存回 KEY 中 JMP LOOP1 。show message MOV AH,09H INT 21H JMP JIXU TIAOFU: MOV DX,OFFSET MES6 。不是則返回判斷波形或退出 25 JNE LOOP1 NOT BYTE PTR[FLAG_FUPIN] 。有鍵按下，調(diào)用鍵盤掃描子程序 MOV AL,KEY 。show message MOV AH,09H INT 21H CALL JUCHI MOV FLAG_BOXING,0EH JMP GETKEY3 A3: MOV DX,OFFSET MES4 。show message MOV AH,09H INT 21H CALL SQUARE MOV FLAG_BOXING,0CH JMP GETKEY3 A1: MOV DX,OFFSET MES2 。有鍵按下則跳置 GETKEY2 JMP KEYBEGIN 。有鍵壓下，延時消抖 CALL DELAY_SCAN CALL CCSCAN 。有鍵按下則跳置 GETKEY1 JMP KEYBEGIN 。無鍵按下則循環(huán)等待，有鍵按下則消抖 KEYBEGIN: CALL CCSCAN 。方式 0， A口、 C 口高四位輸出， OUT DX,AL 。show message MOV AH,09H INT 21H MOV DX,MY8255_MODE 。 FLAG_FUPIN DB 0 FRE DB 7FH AMP DB 7FH SIN DB 100, 102, 105, 107, 110, 112, 115, 117, 120, 122 DB 124, 127, 129, 132, 134, 136, 139, 141, 143, 145 22 DB 147, 150, 152, 154, 156, 158, 160, 162, 164, 166 DB 168, 169, 171, 173, 175, 176, 178, 179, 181, 182 DB 184, 185, 186, 187, 189, 190, 191, 192, 193, 194 DB 194, 195, 196, 197, 197, 198, 198, 199, 199, 199 DB 200, 200, 200, 200, 200, 200, 200, 200, 199, 199 DB 199, 198, 198, 197, 197, 196, 195, 194, 194, 193 DB 192, 191, 190, 189, 187, 186, 185, 184, 182, 181 DB 179, 178, 176, 175, 173, 171, 169, 168, 166, 164 DB 162, 160, 158, 156, 154, 152, 150, 147, 145, 143 DB 141, 139, 136, 134, 132, 129, 127, 124, 122, 120 DB