beautypg.com

INFICON XTC/C Thin Film Deposition Controller User Manual

Page 101

background image

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

This manual is related to the following products: