5 - 48
XTC/3 Operating Manual
R38 x . . . Recorder Type x (0 = Rate 0 to 100 Å/s,
1 = Rate 0 to 1000 Å/s,
2 = Thickness 0 to 100 Å,
3 = Thickness 0 to 1000 Å,
4 = Power,
5 = Rate Deviation,
6 = Rate 0 to 100 Å/s smoothed,
7 = Rate 0 to 1000 Å/s smoothed)
R39. . . . . Not supported
R40. . . . . Not supported
R41. . . . . Not supported
R42. . . . . Not supported
R43. . . . . Not supported
5.3.5.7 XTC/2 Sample Host Programs
5.3.5.7.1 XTC/2 Program Without Checksum
10 ’----XTC/3 RS232 COMMUNICATIONS PROGRAM WITHOUT CHECKSUM----
20 ’
30 ’------THIS PROGRAM IS DESIGNED TO TRANSMIT INDIVIDUAL COMMANDS TO XTC/3 AND
ACCEPT THE APPROPRIATE RESPONSE FROM XTC/3, WRITTEN IN GWBASIC 2.32.
40 ’
50 OPEN "COM1:9600,N,8,1,CS,DS" AS #1 :’--OPEN COMM PORT 1
60 NAK$ = CHR$(21): ACK$ = CHR$(6) :’--DEFINE ASCII CODES
70 ’
80 INPUT "ENTER COMMAND"; CMD$ :’--ENTER COMMAND TO XTC/3
90 GOSUB 130 :’--GOTO TRANSMIT COMMAND
SUBROUTINE.
100 PRINT RESPONSE$ :’--PRINT XTC/3 RESPONSE
110 GOTO 80 :’--LOOP BACK FOR ANOTHER
COMMAND.
120 ’
130 ’----TRANSMIT COMMAND AND RECEIVE RESPONSE SUBROUTINE----
140 ’
150 ’----SEND COMMAND MESSAGE STREAM TO XTC/3----
160 PRINT #1, CMD$ + ACK$;
170 ’
180 ’----RECEIVE RESPONSE MESSAAGE FROM XTC/3----
190 RESPONSE$ = "" :’--NULL THE RESPONSE
200 TOUT = 3: GOSUB 260 :’ STRING AND SET TIMER.
210 IF I$ = ACK$ THEN RETURN :’--IF THE END OF RESPONSE