HP 5334B Service Manual page 66

Table 4-4. HP-ZB Operational Verification
Program Listing (Continued)
5610 ! CHECKPOINT 1 1
5620
I $ = "
S e r v i c e R e q u e s t "
5630 S=l 1
5640 GOSUB 7810
5650 DISP " F o r t h i s t e s t , c o n n e c t t h e TIME"
5660 DISP "BASE O u t p u t f r o m t h e back p a n e l "
5670 DISP " o f t h e 5334A/B t o INPUT CHANNEL A u s i n g a BNC c a b l e "
5680 DISP
5690 CUSP B$
5700 PAUSE
571 0 CLEAR
5720 DISP E $ ; " t h e c o u n t e r "
5730 DISP " w i l l c o u n t t h e t i m e b a s e , a n d s e r v i c e r e q u e s t mask w i l l b e "
5740 DISP " s e t . The SRQ lamp wS11 f l a s h "
5750 DISP " 5 t i m e s o n t h e c o u n t e r , a n d t h e "
5760 DISP "HP 85 s c r e e n
w i l l
d i s p l a y t h e
"
5770 DISP " c o u n t 5 t i m e s . "
5780 DISP
5790 DISP USING "#,K , / "
;
A$
5800 PAUSE
581 0 REMOTE A
5 8 2 0 OUTPUT A ; " I N FNI G A 1 SMI3 WAl"
5830 CLEAR
5840 1=0
5850 STATUS 7 , l
;
Z
5860 O N INTR 7 GOT0 5900
5870 ENABLE INTR 7 ; 8
5880 I F 1=0 THEN DISP " I s BNC c a b l e c o n n e c t e d ? "
5890 GOT0 5 8 9 0
5900 M=SPOLL(
A
)
5910 I F B I T ( M , Z ) THEN GOT0 6070
5920 I F B I T ( M ,3
)
THEN GOT0 6070
5930 ENTER
A
;
M$
5940 I F 1=0 THEN CLEAR
5950 DISP M$
5960 I = I + 1
5970 I F I < 5 THEN GOT0 5 8 7 0
5 9 8 0 CLEAR
5990 DISP
6000 DISP " D i s c o n n e c t BNC c a b l e . "
6010 DISP
6020 DISP F$
6030 PAUSE
6 0 4 0 GOT0 7960
6050 STATUS 7 , l
;
Z
6060 CLEAR
6070 R=O
6080 GOSUB 8750
6090 DISP " D i s c o n n e c t BNC c a b l e . "
6100 DISP
6110 DISP
F$
61 20 PAUSE
HP 5334B
-
Service Manual
4-56