INFICON XTC/3 Thin Film Deposition Controller Operating Manual - Manual (Page 162)

5 - 50
PN
07
4-
44
6-
P1
J
XTC/3 Operating Manual
280 ’
290 PRINT #1, STX$ + SIZEM$ + SIZEL$ + CMD$ + CHECKSUM$
300 ’
310 ’----RECEIVE RESPONSE MESSAGE FROM 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 :’ STRING.BUILD THE
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.