ORG     8000H
STRT:	  MOV     R0,#39H
      	  MOV	  R7,#6
  	  MOV	  A,#1AH
LOP1:	  MOV	  @R0,A
	  JNC	  R0
	  DJNZ	  R7,LOP1
	  MOV	  39H,#0
	  MOV	  3AH,#0
LOP2:	  LCALL   0036H
	  MOV	  B,A
	  ANL	  A,#0FH
	  MOV	  39H,A
	  MOV	  A,B
	  ANL	  A,#0F0H
	  SWAP	  A
	  MOV	  3AH,A
	  SJMP	  LOP2
END 

四輸入子程序：
KEYI:   ACALL 	KS1
	JNZ 	LK1
N1:   	ACALL	DIR
AJMP 	KEY1
LK1:  	ACALL 	DIR
	ACALL 	KS1
	JNZ 	LK2
	ACALL 	DIR
	AJMP	KEYI
LK2:	MOV 	R2,#0FFH
        MOV	R4,#00H
LK4: 	MOV 	DPTR,#0101H
        MOV 	A,R2
	MOVX 	@DPTR,A
	INC 	DPTR
	INC 	DPTR
	MOVX 	A,@DPTR
	JB	Acc.0,LONE
	MOV	A,#00H
	AJMP 	LKP
LONE: 	JB 	Acc.1,LTO
	MOV 	A,@08H
	AJMP 	LKP
LTWO: 	JB	Acc.2,LTHR
	MOV 	A,#10H
	AJMP 	LKP
LTHR: 	JB 	Acc.3,NEXT
	MOV 	A,#18H
LKP: 	ADD 	A,R4
	PUSH 	A
LK3: 	ACALL 	DIR
	ACALL 	KS1
	JNZ 	LK3
	POP 	A
	RET
NEXT: 	INC 	R4
	MOV 	A,R2
	JNB 	Acc.7,KND
	RL 	A
	MOV 	R2,A
	AJMP 	LK4
KND:	AJMP	KEYI
KS1: 	MOV 	KPTR,	#1010H
	MOV 	A,#00H
	MOVX 	@DPTR,A
	INC 	DPTR
	INC 	DPTR
	MOVX 	A,@DPTR
	CPL 	A
	ANL 	A,#0FH
	RET