![Octagon 5554 User Manual Download Page 28](http://html.mh-extra.com/html/octagon/5554/5554_user-manual_723598028.webp)
RS–422/485 – 20
OUT (portbase), ASC(MID$(a$,I,1))
NEXT
IF (rs485(port)=1) THEN
'turn DTR off
'make sure last char went out; test shift register is empty
WHILE ((INP(p5) AND &H20)=0)
WEND
WHILE ((INP(p5) AND &H40)=0)
WEND
OUT (p4), &HB
'turn DTR on when done for 485
END IF
END SUB
SUB rcvchars()
status=INP(statusadd)
DO
port=1
portadd=boardadd
'poll to receive characters
WHILE (status<>0)
IF (status AND 1) THEN
rcvcnt (port)=rcvcnt(port)+1
rcvbuf(port,rcvcnt(port))=INP(portadd)
END IF
status=INT(status/2)
portadd=8
port=port+1
WEND
status=INP(statusadd)
LOOP WHILE (status<>0)
END SUB
Summary of Contents for 5554
Page 8: ...ii ...
Page 12: ...Preface 4 This page intentionally left blank ...
Page 14: ...Overview 6 This page intentionally left blank ...