Advertisement
SECTION IV
Model 4277A
TEST PROGRAM 3
PURPOSE:
This test program verifies that the 4277A has the following HP-IB capabilities;
(1)
Service Request
(2)
Serial Poll
PROGRAM LISTING:
■ 1 0
!
42??R HP-IB TEST No, 3
20
i
SRQ TEST
30 S-0 !}> M-7 ® M1»7'I7
40 ON INTR 7 GOSUB 560
50 CLERR
60 PRINT
4277R HP-IB TEST Mo. 3
70 PRINT "SRO TEST"
60 DISP "SRO TEST"
90 REMOTE M
100 fiEOPTIO (1
110 CLERR Ml
K'O DISP "DRTR READY SRQ TEST"
130 OUTPUT Ml
:"D1T2"
140 TRIGGER 1-11 '
ISO GOSUB 460
160 PRINT "DRTR READY
SRO TEST PASS"
1 ■'0 S'O
ISO DISP "SYNTAX ERROR SRQ TEST"
130 OUTPUT M1
;"D0fi6Dfl"
200 GOSUB 480
:M0 print "SYNTAX ERROR SRO TEST PASS"
220 5=0
230 DISP "SELF TEST END SRO TEST"
240 OUTPUT HI
;"S1"
250 DISP "SELF TEST in procjress"
260 GOSUB 4S0
270 IF BITCS,2)=0 THEN GOSUB 480
280 OUTPUT M1
["SO"
290 PRINT "SELF TEST END SRQ TEST PASS"
300 S*0
310 DISP "TRIGGER TOO FAST SRQ TEST"
320 DISP "MOMENTARILY GROUND"
330 DISP "
EXT TRG CONNECTOR"
.340 GOSUB 5 10
350 GOSUB 480
3E0 PRINT "TRG TOO FAST SRO TEST PASS"
370 S'O
380 DISP "OPERATIONAL ERROR SRO TEST"
390 OUTPUT Ml
j"N1N2''
400 GOSUB 400
410 PRINT "OPERATIONAL ERROR SRO TEST PASS"
420 PRINT "SRO TEST END"
430 CLERR Ml
440 RBORTIO M
450 LOCAL M
460 DISP "END"
470 END
480 ENABLE INTR 7;0
490 IF S>C THEN DISP S S' RETURN
500 GOTO 460
510 OUTPUT Ml
;"F1T2DR"
520 TRIGGER Ml
530 ENTER M1
;
R,B
540 IF S-0 THEN 510
550 RETURN
560 S»SPOLL(Mn ® STATUS 7,1
J
2
570 IF BIT(S,E:i-1
THEN 590
580 DISP "OTHER DEVICE SRO"
590 ENABLE INTR 7;8
600 RETURN
4-30
Advertisement
