tongxun.asm

RS232实现串行通讯,这是主机的,要重机的登陆http://user.qzone.qq.com/281149673

	        ORG	0000H
		LJMP    MAIN		
                ORG     0023H
                AJMP    SINT
		ORG     0030H

       MAIN:    CLR     EA
		CLR     A
		MOV     PSW,A
	        MOV	R0,#7FH           ;清内部和外部RAM，以及相应标志
       QING:	MOV	@R0,A
		DEC	R0
		CJNE	R0,#00H,QING
		MOV     SP,#60H
		
		


;========================================================= 

   SCANKEY:     MOV P1,#0FH
	L1:	JB P1.0,L2
		MOV A,#03H
		LJMP HANG
	L2:	JB P1.1,L3
		MOV A,#02H
		LJMP HANG
	L3:	JB P1.2,L4
		MOV A,#01H
		LJMP HANG
	L4:	JB P1.3,SCANKEY
		MOV A,#00H
		LJMP HANG
	
	HANG:	LCALL DEL

		MOV P1,#0F0H
	
	H1:	JB P1.7,H2
		MOV B,#00H
		LJMP MA
	H2:	JB P1.6,H3
		MOV B,#04H
		LJMP MA
	H3:	JB P1.5,H4
		MOV B,#08H
		LJMP MA
	H4:	JB P1.4,SCANKEY
		MOV B,#0cH
		LJMP MA
	
	MA:	ADD A,B
	        MOV     R1,#40H
	        MOV @R1,A
		
LIE1:	nop
        nop
	MOV P1,#0FH
L11:	JB P1.3,L22
	
	LJMP LIE1
L22:	JB P1.2,L33
	
	LJMP LIE1
L33:	JB P1.1,L44
	
	LJMP LIE1
L44:	JB P1.0,INI8255
	
	LJMP LIE1

;===================================
   INI8255:	MOV     DPTR,#2003H
		MOV     A,#80H
		MOVX    @DPTR,A
		MOV     A,#0FDH        ;显示位
		MOV     DPTR,#2000H
		MOVX    @DPTR,A 

		MOV     A,@R1
		MOV     DPTR,#DISCODE
		MOVC    A,@A+DPTR
		MOV     DPTR,#2001H
		MOVX    @DPTR,A
		LCALL   DEL
		
		;ljmp    scankey

	
;========================================
		MOV   TMOD,#20H         ;T1方式2定时
                MOV   TL1,#0FDH               
                MOV   TH1,#0FDH
		MOV   SCON,#50H             ;初始化串口
		MOV   PCON,#00H
                SETB  TR1
		SETB  ET1
		SETB  EA
                MOV   A,@R1
                MOV   SBUF,A 	  
;================================
DEL:   MOV  R6,#20
DEL1:  MOV  r7,#20
DEL2:  DJNZ R7,DEL2
       DJNZ R6,DEL1
       RET
;================================
     SINT:      JNB TI,$
        	CLR TI
                RETI                
;===============;=================

 DISCODE:       DB	0FAH,60H,0DCH,0F4H,66H,0B6H,0BEH,0E0H,0FEH,0F6H,0EEH,3EH,9AH,7CH,9EH,8EH
	 	END