Multitech MTCBA-G-F User Manual download pdf (Page 230)

192

else

result = 0

end if

end sub

sub function lecturarespuestaplanta() as byte 'Procedimiento que guarda

dim var1 as longint 'en la memoria RAM las respuestas enviadas por el

dim contador, var2 as byte 'módem celular

contador = 0

for var2 = 0 to 31

ingresodatos[var2] = 0x00

next var2

for var1 = 0 to 650000

if PORTA.1= 0 then

password()

break

end if

if Usart_Data_Ready = 1 then

ingresodatos[contador]= Usart_Read

contador = contador + 1

if ((((contador = 1)OR(contador = 2))OR(contador =3))OR(contador=4)) then

asm

nop

end asm

else

if ((((ingresodatos[contador-4]="O")AND(ingresodatos[contador-

3]="K"))AND(ingresodatos[contador-

2]=CHR(0X0D)))AND(ingresodatos[contador-1]=CHR(0X0A)))

1 2 ... 225 226 227 228 229 230 231 232 233 234 235 236 237

No comments

Multitech MTCBA-G-F User Manual Page 230