INFICON XTC/C Thin Film Deposition Controller User Manual
Page 101

3 - 37
IP
N 07
4-
18
3X
XTC/C - XTC/2 Operating Manual
610 IF LOC(1) < 1 THEN 610 ELSE TIMER OFF: I$ = INPUT$(1, #1)
620 IF C = 3 THEN 660
630 IF I$ = ACK$ THEN GOTO 580
640 IF I$ = NAK$ THEN RESPONSE$ = "COMMAND NOT ACKNOWLEDGED": GOTO 1010
650 IF I$ = EOT$ THEN 690 ELSE REPOSNSE$ = "DEVICE NOT ACKNOWLEDGED": GOTO 1010
660 IF I$ = ENQ$ THEN 790 ELSE RESPONSE$ = "DEVICE DID NOT BID FOR LINE": GOTO 1010
670 ’
680 ’
690 ’---SEND COMMAND TO XTC/2--
700 ’
710 ’
720 HEADER$ = BYTE1$ + BYTE2$ + STREAM$ + FUNCTION$ + BYTE5$ + BYTE6$ + BYTE7$ + BYTE8$
+ BYTE9$ + BYTE10$
730 PRINT #1, LTHBYT$; HEADER$; CMD$; CHEKSUMM$; CHEKSUML$;
740 GOTO 580
750 ’
760 ’
770 ’---WAIT FOR DATA FROM XTC/2---
780 ’
790 ’---FIND SIZE OF RESPONSE--
800 ’
810 PRINT #1, EOT$;
820 I$ = ""
830 ON TIMER(TOUT) GOSUB 1000: TIMER ON
840 IF LOC(1) < 1 THEN 840 ELSE TIMER OFF: I$ = INPUT$(1, #1)
850 S = ASC(I$): L = S - 13
860 S = S + 2
870 ’
880 ’---RECEIVE RESPONSE TO COMMAND---
890 ’
900 I$ = "": RESPONSE$ = ""
910 FOR R = 1 TO S
920 ON TIMER(TOUT) GOSUB 1000: TIMER ON
930 IF LOC(1) < 1 THEN 930 ELSE TIMER OFF: I$ = INPUT$(1, #1)
940 RESPONSE$ = RESPONSE$ + I$
950 NEXT R
960 PRINT #1, ACK$;
970 RESPONSE$ = MID$(RESPONSE$, 13, L)
980 ’
990 GOTO 1010
1000 TIMER OFF: RESPONSE$ = "RECEIVE TIMEOUT"
1010 PRINT RESPONSE$
1020 ’
1030 GOTO 90