INFICON XTC/3 Gebrauchsanleitung Seite 160

XTC/3 Gebrauchsanleitung
240 FOR X = 1 TO LEN(CMD$) :' ZERO AND CALCULATE A
250 CHECKSUM = CHECKSUM + ASC(MID$(CMD$,X,1)) :' CHECKSUM ON THE COMMAND
260 NEXT X :' STRING.
270 CHECKSUM$ = CHR$(CHECKSUM AND 255) :'--USE LOW ORDER Byte AS CHECKSUM.
280 '
290 PRINT #1, STX$ + SIZEM$ + SIZEL$ + CMD$ + CHECKSUM$
300 '
310 '----RECEIVE RESPONSE MESSAGE FROM THE XTC/3----
320 TOUT = 3: GOSUB 510 :'--SET TIMER AND WAIT FOR
330 IF I$ <> STX$ THEN 290 :' START OF TRANSMISSION CHARACTER.
340 TOUT = 3: GOSUB 510 :'--RECEIVE HIGH ORDER Byte
350 SIZE = 256 * ASC(I$) :' OF TWO Byte RESPONSE SIZE.
360 TOUT = 3: GOSUB 510 :'--RECEIVE LOW ORDER Byte
370 SIZE = SIZE + ASC(I$) :' OF TWO Byte RESPONSE SIZE.
380 CHECKSUM = 0 :'--SET CHECKSUM TO ZERO
390 RESPONSE$ = "" :' AND NULL THE RESPONSE
400 FOR I = 1 TO SIZE :' BUILD THE STRING
410 TOUT = 3: GOSUB 510 :' RESPONSE STRING AND
420 RESPONSE$ = RESPONSE$ + I$ :' CALCULATE THE CHECKSUM
430 CHECKSUM = CHECKSUM + ASC(I$) :' CHARACTER BY CHARACTER.
440 NEXT I
450 TOUT = 3: GOSUB 510 :'--RECIEVE THE CHECKSUM
460 N = ASC(I$) :' CHARACTER AND COMPARE
470 Z = (CHECKSUM AND 255) :' IT TO THE LOW ORDER
480 IF N <> Z THEN PRINT "RESPONSE CHECKSUM ERROR" :' Byte OF THE CALCULATED
490 RETURN :' CHECKSUM.
500 '
510 '----READ SERIALLY EACH CHARACTER FROM THE INSTRUMENT INTO VARIABLE
I$----
520 ON TIMER (TOUT) GOSUB 550: TIMER ON
530 IF LOC(1) < 1 THEN 530 ELSE TIMER OFF: I$ = INPUT$(1,#1)
540 RETURN
550 TIMER OFF :'--INDICATE IF A CHARACTER
560 RESPONSE$ ="RECEIVE TIMEOUT": RETURN 570 :' IS NOT RECEIVED WITHIN
570 RETURN 490 :' 3 SECS.
5 - 48