ORG 0H
       JMP RESET
       ORG 23H
       JMP RECEIVE
RESET
       MOV TMOD,#00100000B
       MOV TH1,#32           ;2400 baud
       MOV IE,#10010000B
       MOV IP,#00010000B
       SETB TR1
       MOV SCON,#01010000B   ;8,n,1 UART
       MOV A,#1
WAIT
       CPL P3.7
       RL A
       MOV P1,A
       CALL DELAY
       JMP WAIT
DELAY:
       MOV R7,#10
       DJNZ R7,$
       RET
TABLE: INC A
       MOVC A,@A+PC
       RET
;7_SEG_TABLE            ;パ0