Tegam 1750 - Page 66

10 TEGAM WAY • GENEVA, OHIO 44041 • 440-466-6100 • FAX 440-466-6110 • sales@tegam.com
5-25
PROGRAMMING AND INTERFACING
d) This next example is a combination or examples a & b above, except that it will SRQ if an error
occurs and display the 1750 status. It will then trigger the 1750 and wait for a reading done SRQ
before taking a reading from the unit.
10 DIM B$ [50] ‘dimension receive string
20 REMOTE 712 ‘set IEEE-488 to remote
30 OUTPUT 712; “T7M33X” ‘program the 1750 to one shot GET trigger AND SRQ on
‘error or reading done state.
40 INPUT A$ ‘ask for user keyboard command
50 OUTPUT 712; A$ ‘send keyboard command to 1750
60 S=POLL (712) ‘read serial poll byte for any errors
70 IF S>85 THEN GOTO 200 ‘test for an error SRQ
80 TRIGGER 712 ‘no errors, trigger the 1750 to take a reading
70 ENTER 712; B$ ‘obtain a reading from the 1750
80 PRINT B$ ‘display the reading on the CRT
90 S=POLL (712) ‘read serial poll byte for any errors again
100 IF S<>65 THEN GOTO 90 ‘wait for the reading done SRQ
110 ENTER 712;B$ ‘retrieve the completed reading from the 1750
120 PRINT B$ ‘display the reading on the CRT
130 GOTO 40 ‘wait for the next keyboard command
200 OUTPUT 712; “U1X” ‘ask for the error status byte
210 ENTER 712;B$ ‘retrieve the error status byte from the 1750
220 PRINT “Error=”;B$ ‘display the status reading on the CRT
230 GOTO 40 ‘continue to wait for the next keyboard command
240 END