ORG 0H
RESET
       MOV TMOD,#00100000B
	   MOV TH1,#-13           ;2400 baud
       MOV SCON,#01010000B    ;8,n,1 UART
WAIT
       CPL P1.7
       CALL DELAY
       JNB RI,WAIT
       CLR RI
       MOV A,SBUF
       SUBB A,#30H
       CALL TABLE
       MOV P1,A
       JMP WAIT
DELAY:
       MOV R7,#10
       DJNZ R7,$
       RET
TABLE: INC A
       MOVC A,@A+PC
       RET
;7_SEG_TABLE            ;パ0