【正文】 微機原理實驗與課程設計指導書，中國電力出版社，第一版，2006年8月 【2】馬力妮，80x86匯編語言程序設計，機械工程出版社，第一版，2004年8月 【3】姜媛媛，任卓宜，IBM PC 80X86匯編語言程序設計，冶金工業(yè)出版社，第1版， 2007年8月【4】余朝琨，IBMPC匯編語言課程設計，機械工業(yè)出版社，第一版 ，2008年1月附錄：1. 簡易電子琴設計源程序及注釋CONTROL equ 0c003h 。 8255工作方式0,PB輸入PortB equ 9001h 。 控制字地址data segmentlast DB 0ToneTable1: 。 鍵碼定義 db 16h, 15h, 14h, 0ffh db 13h, 12h, 11h, 10h db 0dh, 0ch, 0bh, 0ah db 0eh, 03h, 06h, 09h db 0fh, 02h, 05h, 08h db 00h, 01h, 04h, 07hToneTable: 。 8253控制字 計數(shù)器1, 16位二進制,方式3。送計數(shù)器1端口地址 out dx, al mov al, ah out dx, al 。延時子程序 push cx mov cx,60000 loop $ pop cx retdelay endpstart PROC NEAR mov al, mode mov dx, CAddr out dx, al 。 讀入PortB cmp al,0 jz MUSIC 。由鍵盤輸入MUSIC: mov ax, data mov ds, ax mov al,N1 mov ah, 0 dec ax shl ax,1 mov si, ax mov bx, offset ToneTable1 mov ax, [bx+si] 。 call delay 。 關閉發(fā)音 call OutTone inc N1 call MUSIC jmp $TestKey proc near 。列輸出地址 mov al, 0 out dx, al 。行地址 in al, dx 。 高四位不用,判斷某一行是與否有鍵入，有鍵入對應位為高 retTestKey endpGetKey proc near mov ch, 00100000b mov cl, 6KLoop: mov dx, OUTBIT 。 找出鍵所在列 not al out dx, al shr ch, 1 mov dx, IN_KEY 。取低四位 jne Goon_ 。CL不等于0轉(zhuǎn) mov cl, 0ffh 。 鍵值 = 列 X 4 + 行，已經(jīng)完成CL*4 mov ch, 4 。AL與1相與 jnz Exit1 。完成列*4+行 dec ch jnz LoopC 。08002h mov al, 0 out dx, al mov ch, 0 mov bx, offset KeyTable add bx, cx mov al, [bx] 。 有鍵入,AL的值反應了鍵入狀態(tài)(某一行的) jz MLoop 。 讀入鍵碼 mov ah, 0 dec ax 。(AL1)*2 mov si, ax mov bx, offset ToneTable mov ax, [bx+si] 。 延時 mov ax, 2 。圖形方式顯示CAR DB 195 。253為屬性(文本模式)或顏色(圖形模式),11111101B,D0到D3，前景顏色 1101顯示淺品紅 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,1,0 DB 06H,253,0,12 DB 06H,253,1,1 DB 06H,253,1,1 DB 06H,253,1,1 DB 06H,253,1,1 DB 06H,253,1,1 DB 06H,253,1,1 DB 06H,253,1,1 DB 06H,253,1,1 D