8255掃描鍵盤、顯示程序
利用8255可編程并行口做一個掃描鍵盤實驗，
把按鍵輸入的鍵碼，顯示在由8279控制的七段數碼管上。
8255PA口做鍵盤輸入線，PB口作掃描線。

	D8255 EQU 8506H ;8255狀態/數據口地址
	D8255A EQU 8500H ;8255 PA口地址
	D8255B EQU 8502H ;8255 PB口地址
	Z8279 EQU 8701H ;8279狀態口地址
	D8279 EQU 8700H ;8279數據口地址
	DISPTR EQU 08H ;當前顯示位置
	KEYVAL EQU 09H ;讀到的鍵碼
	ORG 0000H
	LJMP START
	ORG 0040H
 MAIN:
	MOV SP,#60H
	LCALL DELAY ;延時
	MOV DISPTR,#30H ;顯示緩沖區頭指針
	MOV DPTR,#D8255
	MOV A,#90H ;置8255狀態
		   ;方式0,PB,PC口輸出,PA口輸入
	MOVX @DPTR,A
	MOV DPTR,#Z8279 ;置8279命令字
	MOV A,#0D3H
	MOVX @DPTR,A ;清LED顯示
	MOV A,#00H
	MOVX @DPTR,A
	MOV A,#38H
	MOVX @DPTR,A
	MOV A,#0D1H
 KB_DIS:
	LCALL RD_KB ;讀鍵盤
	MOV A,#0FFH
	CJNE A,KEYVAL,DISBUF ;判讀到鍵
	SJMP KB_DIS ;沒有則繼續讀鍵
 DISBUF:
	LCALL DISP ;把鍵移入顯存
	LCALL DELAY ;延時消抖
	LCALL DELAY
	SJMP KB_DIS
 DISP: ;顯存依次前移
	MOV R1,#31H ;在最后加入新鍵值
 MOVE:
	MOV A,@R1
	DEC R1
	MOV @R1,A
	INC R1
	INC R1
	CJNE R1,#38H,MOVE
	MOV 37H,KEYVAL
	MOV KEYVAL,#0FFH
	MOV DPTR,#Z8279
	MOV A,#90H
	MOVX @DPTR,A
	MOV R0,#08H
	MOV R1,#30H
	MOV DPTR,#D8279
 LP: MOV A,@R1
	MOVX @DPTR,A
	INC R1
	DJNZ R0,LP
	RET
 RD_KB: ;鍵盤掃描
	MOV A,#02H ;掃描第一行
	MOV DPTR,#D8255B
	MOVX @DPTR,A
	MOV DPTR,#D8255A
	MOVX A,@DPTR
	MOV R1,#00H
	CJNE A,#0FFH,KEYCAL ;判鍵是否按下
	MOV A,#01H ;掃描第二行
	MOV DPTR,#D8255B
	MOVX @DPTR,A
	MOV DPTR,#D8255A
	MOVX A,@DPTR
	MOV R1,#08H
	CJNE A,#0FFH,KEYCAL
	SJMP NOKEY ;無鍵按下
 KEYCAL: 		;計算鍵碼
	MOV R0,#08H
 SHIFT:
	RRC A
	JNC CALC
	INC R1
	DJNZ R0,SHIFT
	CALC: ;換算顯示碼
	MOV DPTR,#DL_DAT
	MOV A,R1
	MOVC A,@A+DPTR
	MOV KEYVAL,A
	RET
 NOKEY: MOV KEYVAL,#0FFH ;返回無鍵標志
	RET
 DELAY: MOV R0,#0H ;延時子程序
 DELAY1: MOV R1,#0H
	DJNZ R1,$
	DJNZ R0,DELAY1
	RET
 DL_DAT: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H ;0,1,2,3,4,5,6,7
	 DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H ;8,9,A,B,C,D,E,F
	END