Tektronix DM 5010, Инструкция по эксплуатации

Страница: 74 / 347

Programming — DM 5010
Program Example 9:
1 REM POLL FOR NORMAL DEVICE DEPENDENT STATUS
3 GO TO 100
4 REM USER DEFINABLE KEY * 1 SENDS GROUP EXECUTE TRIGGER TO DM5010
5 MBYTE CD+32,8,63:
7 RETURN
19 REM USER DEFINABLE KEY * 5 DOES AN ERROR QUERY
20 PRINT £D:"ERR?"
21 INPUT
CD:
AS
22 PRINT
23 PRINT AS
24 RETURN
99 REM D = ADDRESS OF DM5010
100 D-16
109 REM DO SERIAL POLL TO CLEAR POWER ON SERVICE REQUEST
110 POLL X,Y;D
119 REM DISABLE SERVICE REQUESTS
120 PRINT £D:"INIT;DT TRIG;RQS OFF ”
129 REM S - PREVIOUS STATUS, SI = PRESENT STATUS
130 S'0
140 Sl-S
144
REM DO SERIAL POLL WITH WBYTE TO GET DEVICE DEPENDENT STATUS
145 SET NOKEY
150 WBYTE £24,D+64:
160 RBYTE S
170 WBYTE £25,95:
175 SET KEY
178 REM IF NEW STATUS IS SAME AS OLD STATUS THEN PRINT VERTICAL TAB
179 REM SO THAT STATUS MESSAGE WILL APPEAR BRIGHT
180
IF SOS"; THEN 200
190 PRINT "K";
198 REM DECODE STATUS BYTE
199 REM TEST FOR READING READY
200 IF S'132 OR S'148 OR S=140 OR S'156 THEN 300
209 REM TEST FOR WAITING FOR TRIGGER
210 IF S-136 OR S * 152 THEN 250
219 REM TEST FOR CONVERSION IN PROGRESS
220 IF S'128 OR S=144 THEN 280
230 PRINT S;" UNEXPECTED STATUS BYTE"
240 GO TO 140
250 PRINT S;" WAITING FOR TRIGGER"
270 GO TO 140
280 PRINT S; " CONVERSION IN PROGRESS"
290 GO TO 140
300 INPUT £D:R
310 PRINT S; " READING IS ";R
320 GO TO 140
3-36
ADD JAN 1982