s11-1.asm

来自「市面上很流行的《手把手教你单片机》的光盘资料」· 汇编 代码 · 共 89 行

		ORG 0000H
		AJMP MAIN
		ORG 030H
MAIN:	LCALL SCAN_KEY
		JZ MAIN
		LCALL DEL10MS
MAIN1:	LCALL SCAN_KEY
		JZ MAIN
		MOV P0,#7FH  ;give #7fh to p3
	 	JNB P0.0,L3	 ;
		JNB P0.1,L6	
		JNB P0.2,L9	
		MOV P0,#0BFH
		JNB P0.0,L2
		JNB P0.1,L5				
		JNB P0.2,L8
		JNB P0.3,L0
		MOV P0,#0DFH
		JNB P0.0,L1
		JNB P0.1,L4		
		JNB P0.2,L7
 		AJMP MAIN
L0:		MOV A,#00H
		AJMP GOON
L1:		MOV A,#01H
		AJMP GOON
L2:		MOV A,#02H
		AJMP GOON
L3:		MOV A,#03H
		AJMP GOON
L4:		MOV A,#04H
		AJMP GOON
L5:		MOV A,#05H
		AJMP GOON
L6:		MOV A,#06H
		AJMP GOON
L7:		MOV A,#07H
		AJMP GOON
L8:		MOV A,#08H
		AJMP GOON
L9:		MOV A,#09H
GOON:	MOV 30H,A
GOON1:	MOV DPTR,#DIS_TAB
        MOV A,30H
		MOVC A,@A+DPTR
     	MOV P2,A
        MOV P1,#0F8H
		LCALL DEL10MS
		MOV A,30H
		MOV DPTR,#TAB
		MOVC A,@A+DPTR
		MOV DPTR,#DIS_TAB
		PUSH ACC
		ANL A,#0FH
		MOVC A,@A+DPTR
		MOV P2,A
		MOV P1,#0FDH
		LCALL DEL10MS
		POP ACC
		SWAP A
		ANL A,#0FH
		MOVC A,@A+DPTR
		MOV P2,A
		MOV P1,#0FCH
		LCALL DEL10MS
		LCALL SCAN_KEY
		JZ GOON1
		LJMP MAIN1
		ORG 0200H
SCAN_KEY:MOV P0,#0FH
		MOV A,P0
		ORL A,#0F0H
		CPL A
		RET
		ORG 0250H
DEL10MS:MOV R5,#0BH			
F1:		MOV R7,#01H
F2:		MOV R6,#0FFH
F3:		DJNZ R6,F3
		DJNZ R7,F2
		DJNZ R5,F1
		RET
		ORG 0300H
TAB:	DB 00H,01H,04H,09H,16H
		DB 25H,36H,49H,64H,81H
		ORG 0350H
DIS_TAB:DB 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,77H,7CH,39H,5EH,79H,71H,00H
		END