接收带发送1.asm

是我在电子竞赛期间写的一些单片机汇编程序

      ORG 0000H
      AJMP MAIN
      ORG 0030H
MAIN:
      MOV SP,#60H
      MOV TMOD,#20H
      MOV TH1,#0FDH
      MOV TL1,#0FDH
      SETB TR1
      MOV PCON,#00H
      MOV SCON,#40H		;串行通信方式1
	SETB REN			;允许接收
      MOV R0,#30H			
      MOV R7,#04H				
START:JNB RI,$			
      CLR RI
      MOV A,SBUF
      MOV @R0,A
      INC R0
      DJNZ R7,START
DISP:
      MOV R7,#04H
      MOV R0,#30H
      MOV 35H,#0F7H
LOOP:
     	MOV A,@R0
     	ANL A,#0FH
     	ACALL TABLE
     	MOV P2,A
     	MOV A,35H
     	MOV P0,A
     	ACALL DELAY
      MOV P0,#0FFH
     	RL A
    	MOV 35H,A
     	INC R0
     	DJNZ R7,LOOP
	MOV P3,#0FFH
	JB P3.3,DISP 		
KK:	ACALL BUZZER
	JNB P3.3 ,KK
	CLR REN
	MOV R7,#4
	MOV R0,#30H
AG:   MOV P3,#0FFH
	JB  P3.4, $
KK2:	ACALL BUZZER	
	JNB P3.4,KK2
	MOV P0,#0FFH 
	MOV A,@R0
	MOV SBUF,A
	JNB TI,$
	CLR TI
	INC R0
	DJNZ R7,AG
	JMP DISP
BUZZER:
	CLR P1.0
	ACALL DELAY
	SETB P1.0
	RET 	
TABLE:
      INC A
      MOVC A,@A+PC
      RET
DB    0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,80H,090H
DB	088H,083H,0C6H,0A1H,86H,8EH,0BFH,89H,8CH
DELAY:
      MOV R5,#10H
DL1:
      MOV R6,#40H
      DJNZ R6,$
      DJNZ R5,DL1
      RET
END