PORT1	EQU		P0
PORT2	EQU		P2
ORG		0H
JMP		MAIN
ORG		30H
MAIN:								
MOV	SP,#5FH
MOV	PORT2,#0FFH
LOOP:
MOV	R0,#4						
MOV	R1,#11101111B					
MOV	R2,#0FFH						
NLINE:
MOV	A,R1							
MOV 	PORT1,A
MOV 	A,PORT0						
ORL 	A,#0F0H
CJNE 	A,#OFFH,KEYIN
MOV 	A, R1
RL 		A
MOV 	R1,A
DJNZ 	R0,NLINE
JMP		LOOP
KEYIN:								
MOV 	R2,A
CALL 	DELAY1
NOPEN:
MOV 	A,PORTO0					
ORL 	#0F0H
CJNE 	A,#OFFH,NOPEN
CALL 	DELAY1
CALL 	TRANF						
CALL . 	CHANG						
MOV 	PORT2, A						
JMP		LOOP
DELAY1:								
MOV 	R7,#30
MOV 	R6,#0
T1:
DJNZ 	R6,＄
DJNZ 	R7,T1
RET
TRANF:
MOV 	B,#0
MOV 	A, R1						
LOOP1:
RRC 	A
JNC 		LOOP2
INC 		B							
INC 		B
INC		B
INC 		B
JMP		LOOP1
LOOP2:
MOV 	A, R2
RR 		A							
RR 		A
RR 		A
RR 		A							
LOOP3:
RRC 	A
JNC 		LOOP4
INC B
JMP 		LOOP3
LOOP4:
MOV 	A, B							
RET
CHANG：
INC 		A
MOVC 	A,@A+PC
RET								
DB 	0C0H,0F9H,0A4H,0B0H
DB 	99H,92H,82H,0F8H
DB 	80H,90H,88H,83H
DB 	0C6H,0A1H,86H,8EH
END