Re: [問題] 鍵盤掃描的PORT問題

看板ASM (組合語言)作者ruemann (此人掛網中……)時間16年前 (2008/04/06 21:05)推噓2(2推 0噓 4→)

留言6則, 2人參與討論串2/2 (看更多)

ROW REG R2 ;ROW=R2 KEYFLAG REG R3 ;KEYFLAG=R3 START: MOV P0,#0 ;P0=0,8個LED熄滅 LOOP1: MOV P2,#0EFH ;P2=0EFH,初始掃描線 MOV ROW,#0 ;ROW=0,設為第0列 NEXT1: MOV A,P2 ;A=P2,獲得狀態 ANL A,#0FH ;A=A&0FH,保留低4Bits CJNE A,#0FH,OUT1 ;若A<>0FH(有按鍵),則跳至OUT1 MOV A,P2 ;A=P2 RL A ;A=A<-A,左移一位 ORL A, #0F0H ; 這行不一定要 MOV P2,A ;P2=A,得新掃描線 INC ROW ;ROW=ROW+1,下一列 CJNE ROW,#5,NEXT1 ;若ROW<>5,則跳至NEXT1 SJMP LOOP1 ;GOTO LOOP1 OUT1: ACALL DELAY20MS ;呼叫延遲20毫秒(消除彈跳) MOV A,P2 ;A=P2,獲得狀態 ANL A,#0FH ;A=A&0FH,保留低4Bits CJNE A,#0FH,OUT2 ;若A<>0FH(有按鍵),則跳至OUT2 SJMP LOOP1 ;GOTO LOOP1 OUT2: MOV DPTR,#IDXCOL ;DPTR=#IDXCOL之位址 MOVC A,@A+DPTR ;A=[DPTR+A]位址上的資料 MOV B,A ;B=A MOV A,ROW ;A=ROW RL A ;A=A<-A RL A ;A=A<-A,左移二次為其乘4 ANL A,#11111100B ;A=A&0FCH,去掉低2Bits ADD A,B ;A=A+B,獲得健值 MOV P0,A ;P0=A,輸出LED顯示 LOOP2: ;此處為避免重覆按鍵 MOV A,P2 ;A=P2,獲得狀態 ANL A,#0FH ;A=A&0FH,保留低4Bits CJNE A,#0FH,LOOP2 ;若A<>0FH(有按鍵),則跳至LOOP2 ACALL DELAY20MS ;呼叫延遲20毫秒(消除彈跳) MOV A,P2 ;A=P2 ANL A,#0FH ;A=A&0FH,保留低4Bits CJNE A,#0FH,LOOP2 ;若A<>0FH(有按鍵),則跳至LOOP2 SJMP LOOP1 ;GOTO LOOP1 DELAY20MS: ACALL DELAY10MS ;呼叫延遲10毫秒 ACALL DELAY10MS ;呼叫延遲10毫秒 RET include delay.inc ; IDXCOL: ;計算鍵值資料區 DB 0,1,0,2 DB 0,1,0,3 DB 0,1,0,2 DB 0,1,0,4 END ;程式結束以上是這套軟體裡面的範例，線路的設定是P1.0 P1.1 P1.2 P1.3為鍵盤的輸入， P2.0 P2.1 P2.2 P2.3為鍵盤的輸出，因為這樣的設定，會浪費到PORT1.4~1.7和2.4~2.7，所以想說把P1.0~P1.3的部分轉移到P2.4~2.7 沒有改幾行，不過應該可以達成你要的功能，先試試看吧 -- 我只是個想賺 P 幣的迷途小羔羊 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.70.244.225