dear all,
i would like to asking for help.
i would like to transfer data within contain 600 bytes that i take from P1.0 to the computer by serial port.
before i send the data i have to keep the record into internal memory MCS51 (128 bytes), then when it is full by the data record i have to send the data to the computer via RS232.
and then i have to do that again untill the data (within 600 bytes) moves to the computer.
my problem is this program could only send 92 bytes.
Please check this one out....!
this is my listing codes:

ORG 00H
SETB P1.0
MOV R0,#21H ; THE START ADDRESS OF INTERNAL MEMORY
JMP START
;************************************
INIT : MOV SCON,#52H ; INIT SERIAL PORT
MOV TMOD,#20H ;
MOV TH1,#0F4H ;
SETB TR1 ;
RET
;************************************
DATA_IN : MOV A,#001H
BEG_IN : MOV C,P1.0 ;INPUT DATA FROM P1.0
CALL DELLAY
RLC A
JNC BEG_IN
CJNE R0,#21H,DATA_OK
CJNE A,#0FFH,DATA_OK ;AVOID DATA = 00H
JMP DATA_IN
DATA_OK : MOV @R0,A
INC R0
CJNE R0,#0FFH,DATA_IN ;IF NOT THE LAST OF MEMORY,JUMP TO DATA_IN
MOV R0,#21H
RET
;************************************
DATA_OUT : MOV R2,#08H ; COUNTER 8 BIT
MOV A,@R0
OUTCHART : JNB TI,$ ;
CLR TI
TES_BIN : JB ACC.7,HIGH ; IF ACC.7 = 1, THEN SEND TO SERIAL PORT CHAR 1
LOW : MOV B,#'0' ; IF ACC.7 = 0, THEN SEND TO SERIAL PORT CHAR 0
JMP OUT ;
HIGH : MOV B,#'1' ;
OUT : MOV SBUF,B ; SEND CHAR "1" OR "0"
RL A
DJNZ R2,OUTCHART ; JUMP TO OUTCHART IF COUNTER NOT NULL
INC R0 ; INC COUNTER
CJNE R0,#0FFH,DATA_OUT ; IF THE LAST OF MEMORY,
MOV R0,#21H ; CHANGE TO THE BEGINING ADDRESS
RET
;***********************************
DELLAY : MOV R3,#20H
DJNZ R3,$
RET
;************************************
START : CALL INIT
OUT_1 : CALL DATA_IN
CALL DATA_OUT
JMP OUT_1
END
Thanx

Best Regards,
Giri