[工學(xué)]單片機(jī)基礎(chǔ)教程第十章-資料下載頁(yè)
2025-10-09 23:49本頁(yè)面
【正文】 79H, 71H DELAY:。 延時(shí)子程序 MOV R7, 0 DELAYLOOP: DJNZR7, DELAYLOOP DJNZR6, DELAYLOOP RET DISPLAYLED: MOVR0, LEDBUF MOVR1, 6。 共 6個(gè)八段管 MOVR2, 00100000B 。 從左邊開(kāi)始顯示 LOOP: 實(shí)驗(yàn)步驟 第 10章 實(shí)訓(xùn) TESTKEY: MOV DPTR, OUTBIT MOV A, 0 MOVX @DPTR, A。 輸出線置為 0 MOV DPTR, IN MOVXA, @DPTR。 讀入鍵狀態(tài) CPLA ANLA, 0FH。 高四位不用 RET KEYTABLE:。 鍵碼定義 DB16H, 15H, 14H, 0FFH DB13H, 12H, 11H, 10H DB0DH, 0CH, 0BH, 0AH DB0EH, 03H, 06H, 09H DB0FH, 02H, 05H, 08H DB00H, 01H, 04H, 07H GETKEY: MOV DPTR, OUTBIT MOV P2, DPH MOV R0, LOW(IN) MOV R1, 00100000B MOV R2, 6 KLOOP: 實(shí)驗(yàn)步驟 第 10章 實(shí)訓(xùn) MOVA, R1。 找出鍵所在列 CPLA MOVX @DPTR, A CPL A RRA MOV R1, A 。 下一列 MOVX A, @R0 CPLA ANL A, 0FH JNZ GOON1 。 該列有鍵入 DJNZ R2, KLOOP MOV R2, 0FFH 。 沒(méi)有鍵按下 , 返回 0FFH SJMP EXIT GOON1: MOV R1, A。 鍵值 = 列 X 4 + 行 MOVA, R2 DECA RLA RLA MOV R2, A。 R2 = (R2 1)*4 MOV A, R1 。 R1中為讀入的行值 MOV R1, 4 LOOPC: RRCA 。 移位找出所在行 JC EXIT INC R2。 R2 = R2+ 行值 DJNZ R1, LOOPC EXIT: 實(shí)驗(yàn)步驟 第 10章 實(shí)訓(xùn) MOV A, R2 。 取出鍵碼 MOV DPTR, KEYTABLE MOVCA, @A+DPTR MOVR2, A WAITRELEASE: MOVDPTR, OUTBIT 。 等鍵釋放 CLR A MOVX @DPTR, A MOV R6, 10 CALLDELAY CALLTESTKEY JNZ WAITRELEASE MOV A, R2 RET START: MOVSP, 40H MOVLEDBUF, 0FFH。 顯示 . MOV LEDBUF+1, 0FFH MOV LEDBUF+2, 0FFH MOV LEDBUF+3, 0FFH MOV LEDBUF+4, 0 MOV LEDBUF+5, 0 MLOOP: CALL DISPLAYLED。 顯示 CALL TESTKEY 。 有鍵入 ? JZ MLOOP 。 無(wú)鍵入 , 繼續(xù)顯示 實(shí)驗(yàn)步驟 第 10章 實(shí)訓(xùn) MOV DPTR, LEDMAP MOVC A, @A+DPTR MOV LEDBUF+5, A LJMP MLOOP END 注意：固化后插入 89C51插座，按 0～ F鍵應(yīng)在顯示塊上顯示出來(lái)，若不正常，檢查硬件各部分直到正常為止。 實(shí)驗(yàn)步驟 第 10章 實(shí)訓(xùn)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1