Tektronix DM 5010, Instruction Manual

Page: 72 / 347

Programming—DM 5010
Program Example 6:
1 REM DAC TEST USING DM5010 AND MI5010 WITH 50M30 DIGITAL I/O CARD
99 REM D = ADDRESS OF DM5010, M ' ADDRESS OF MI5010, C - CARD SLOT
100 D-16
110 M-Z3
120
C ’ l
130 ON SRQ THEN 1000
140 DIM R(256)
150 PRINT CD:"INIT;DCV 20;MODE TRIG;DIGIT 3.5"
160 PRINT ®M:"INIT;SEL ";C;M;CHA 1"
170 FOR K=0 TO 255
179 REM OUTPUT K TO DAC UNDER TEST
180 PRINT en/'DATA "; K; " ; DATA?"
189 REM WAIT FOR MI5010 TO SETTLE BY READING RESPONSE TO DATA QUERY
190 IbPUT €M:K$
199 REM TRIGGER DM5010 AND READ VOLTAGE FROM DAC UNDER TEST
200 INPUT @D:R(K+1)
210 bCXT K
220 REM DATA IN ARRAY R IS READY FOR PROCESSING
230 END
999 REM SERVICE REQUEST INTERRUPT SUBROUTINE
1000 POLL X,Y;D;M
1010 RETURN
Program Example 7:
1 REM MONITOR LINE VOLTAGES
99 REM D « ADDRESS OF DM5010
100 D=16
110 ON SRQ THEN 1000
120 PRINT SD:"INIT; ACV;LIMITS 105,120;MONITOR ON-
130 REM PLACE MAIN PROGRAM HERE
150
GO TO 130
160 END
999 REM SERVICE REQUEST INTERRUPT SUBROUTINE
1000 POLL X, Y;D
1005 PRINT Y
1009 REM TEST STATUS BYTE FOR BELOW LIMITS
1010 BELOW"
1020 IF Y-193 OR Y-209 THEN 1060
1029 REM TEST FOR ABOVE LIMITS
1030 2$'"ABOVE"
1040 IF Y-195 OR Y-211 THEN 1060
1044 REM TEST FOR OVERRANGE
1045 IF Y-102 OR Y-118 THEN 1110
1050 RETURN
1060 PRINT
eD:"DATA"
1070 IbPUT «D:W
1080
PRINT W; " IS ";Z$;" LIMITS-
1090 RETURN
1110 PRINT
“OVER-RANGE"
1120 RETURN
3-34
ADD JAN 1982