Omron SYSMAC CV Series Operation Manual page 128

Sample Programs Including Commands for Host Computer
190 INPUT #1,COMMAND$
200 T$=LEFT$(COMMAND$,LEN(COMMAND$)–3)
210 GOSUB *FCS
220 IF FCS$<>MID$(COMMAND$,LEN(COMMAND$)–2,2) THEN ENDCODE$="1004":GOTO *RE-
SPONSE
240 CMNDCODE$=MID$(COMMAND$,27,4)
250 IF CMNDCODE$<>"0101" THEN ENDCODE$="0401":GOTO *RESPONSE
260 FOR I=0 TO VAL("&H"+MID$(COMMAND$,39,4))–1 :'Set the data to be read.
270 RESPDATA$=RESPDATA$+CHDATA$(I)
280 NEXT I
290 PRINT "Reception data:";RESPDATA$
300 ENDCODE$="0000"
310 '*****************************************
320 *RESPONSE
330 RSV$=MID$(COMMAND$,9,2)
340 DA$=MID$(COMMAND$,19,6)
350 SA$=MID$(COMMAND$,13,6)
360 SID$=MID$(COMMAND$,25,2)
370 TS="@000F00C0"+RSV$+"02"+DA$+SA$+SID$+CMNDCODE$+ENDCODE$+RESPDATA$
380 GOSUB *FCS
390 RESPONSE$=T$+FCS$+"*"
410 PRINT #1,RESPONSE$
420 GOTO 180
430 '*****************************************
440 '******FCS Operation Processing Subroutine*******
450 '*****************************************
460 *FCS
470 L=LEN(T$)
480 A=0
490 FOR J=1 TO L
500 TJ$=MID$(T$,J,I)
510 A=ASC(TJ$) XOR A
520 NEXT J
530 FCS$=HEX$(A)
540 IF LEN(FCS$)=1 THEN FCS$="0"+FCS$
550 RETURN
560 '*****************************************
570 '**********
580 '*****************************************
590 *EROPE
600 PRINT "ERL=":ERL,"ERR";ERR
610 CLOSE 1
620 END
126
Error processing
**********
:'Data reception via the PC line.
:'Checks the FCS.
:'Checks the command code.
:'Assigns 0000 to the response code.
:'Creates a response frame.
:'Returns the RSV and SID that
:'were received.
:'Exchanges DNA, DA1, and DA2 with
:'SNA, SA1, and SA2 and returns them.
:'Transmits the data via the PC line.
:'Calculates the FCS.
Appendix D