load:mov r0,#40h

LOOP:

cjne r0,#43h,send
sjmp load
send:mov sbuf,@r0

SJMP LOOP