Omron CJ - REFERENCE MANUAL 07-2009 Reference Manual page 86

FINS Commands with Host Link Protocol
Programming Example for Host Computer Side (BASIC): Send
10 '***************************************
'**** CS1W-SCU21 Serial Communications Unit ****
20
'**** Command to Host Computer (SEND(090)) ****
30
'**** Sample Send Program ****
40
50 '***************************************
60 '
'============ Initial Settings ============
70
80 CLOSE 1
90 ON ERROR GOTO *EROPE
100 DIM CHDATA$ (300)
110 OPEN "COM:E73" AS #1
120 '
130 '============ Main Process ============
140 INPUT #1, COMMAND$
150 T$=LEFT$ (COMMAND$, LEN (COMMAND$) -3)
160 GOSUB *FCS
170 IF FCS$<>MID$ (COMMAND$, LEN (COMMAND$) -2, 2) THEN ENDCODE$="1004":GOTO *RESPONSE
180 CMNDCODE$=MID$ (COMMAND$, 27, 4)
190 IF CMNDCODE$<>"0102" THEN ENDCODE$="0401" :GOTO *RESPONSE
200 FOR I=0 TO VAL ("&H"+MID$ (COMMAND$, 39, 4) ) -1 :' Sets No. of write elements.
210 CHDATA$ (I) =MID$(COMMAND$, 43+I*4, 4)
220 PRINT "Data";":";CHDATA$(I)
230 NEXT I
240 ENDCODE$="0000"
250 '==========================================
260 *RESPONSE
270 RSV$=MID$ (COMMAND$, 9, 2)
280 DA$=MID$ (COMMAND$, 19, 6)
290 SA$=MID$ (COMMAND$, 13, 6)
300 SID$=MID$ (COMMAND$, 25, 2)
310 T$="@000F00C0"+RSV$+"02"+DA$+SA$+SID$+CMNDCODE$+ENDCODE$
320 GOSUB *FCS
330 RESPONSE$=T$+FCS$+"*"
340 PRINT #1, RESPONSE$
350 GOTO 140
360 '
370 '===== FCS Calculation Subroutine =====
380 *FCS
390 L=LEN (T$)
400 A=0
410 FOR J=1 TO L
420 TJ$=MID$ (T$, J, I)
430 A+ASC (TJ$)
440 NEXT J
450 FCS$=HEX$ (A)
460 IF LEN (FCS$) =1 THEN FCS$="0"+FCS$
470 RETURN
480 '
490 '========== Error processing ==========
500 *EROPE
510 PRINT "ERL=":ERL, "ERR";ERR
520 CLOSE 1
530 END
64
XOR A
:' Data array declaration
:' Opens port.
:' Receives data from PLC (line).
:' Checks FCS.
:' Checks command code.
:' Sets end code to "0000".
:' Creates a response frame.
:' Returns received RSV, SID
:' without change.
:' Swaps DNA, DA1, DA2
:' with SNA, SA1, and SA2.
:' Transmits data to PLC (line).
:' Adds FCS.
Section 3-5