HP 5334B Service Manual page 68

Table
4-4.
HP-ZB Operational Verification
Progrant Listing (Continued)
.
.
6640 ! CHECKPOINT 14
6650 I$=" H i g h Speed O u t p u t "
6660 S=14
6670 GOSUB 7810
6680 REMOTE A
6690 OUTPUT A ; " I N u
6700 IOEUFFER X$
6 7 1 0 DISF " I n t h i s t e s t , t h e 5334A/BW
6720 DISP " w i l l b e programmed t o o u t p u t f r e q u e n c y i n t h e h i g h speed d a t a "
6730 DISP " o u t p u t mode. F o r t h i s t e s t , c o n n e c t a BNC c a b l e f r o m t h e "
6740 DISP " T i m e Base O u t p u t o n t h e 5334A/BU
6750 DISP " b a c k p a n e l t o INPUT A . "
6768 DISF A$
6770 PAUSE
6780 CLEAR
6790 OUTPUT A ; " T R l G A . O O 1 H S I "
6800 OUTPUT A ; " T C "
6810 ENTER A
;
C I ,C2 ,C3 ,C4
6820 TRANSFER A TO X$ FHS
6830 DISP D $ ; " s h o w s 'FASt d A t A ' . "
6840 DISP
6 8 5 0 FOR J=O TO 4
6860 I F INT(NUM( X $ [ 8 * J + 1 , 8 * J + 1 1 ) / I 6 ) ) 9 THEN X ( J )=9.99E99 @ GOT0 7 0 7 0
6870 I F INT(NUMt X $ [ 8 * J + 4 , 8 * J + 4 1 ) / I 6 ) 9
THEN X ( J )=9.99E99 @ GOT0 7070
6880 FOR I = 1 TO 3
6890 R$E2*I--1 , ? * I - 1 I=CHR$( I N T i N U M ( X $ [ I t 8 * J , 1 + 8 * J l ) / I 6 ) + 4 8 )
6900 R$CZ*I , ? * I I=CHR$(BINAND(NUM(X$[ I + 8 * J , 1 + 8 * J l ) , 1 5 ) + 4 8 )
6910 NEXT I
6920 E=UAL( R5
)
6930 FOR 1=4 TO 6
6940 S $ [ ? * I - 7 , 2 * 1 - 7 I = C H R $ ( I N T ( N U M ( X $ [ I + 8 * J , I + 8 * J I ) / ! 6 ) + 4 8 )
6950 S $ [ Z + I - G , ? * I - 6 1 = C H R $ ( E I N A N D i N U M i X $ [ 1 + 8 * J , 1 + 8 * J I
)
* 1 5 ) + 4 8 )
6360 NEXT I
6970 B=VAL( S$
)
6380 C=NUMiX$[8*J+7,8*J+71!
6990 D=NUM( XOC 8 * J+B ,8* J + 8 1 !
7000 I F C-C3<-4 THEN C=C+256
7010 I F 0-GI(-4 THEN D=D+256
7020 T=B+( C-C3 ) / C 4 - ( D-Cl ) / C ?
7030 X ( J ) = E / T * 1 0 0 0 0 0 0 0
7 0 4 0 NEXT J
7050 DISP
7060 DISP F$
7070 PAUSE
7080 CLEAR
7090 DISP " U e r l f y t h a t t h e s c r e e n d i s p l a y s t h e t i m e b a s e f r e q u e n c y 5 t i m e s . "
7100 DISP
7110 FOR J=0 TO 4
7120 DISP USING 7130
;
J t 1 , X ( J )
71 3 0 IMAGE 3D ,2X, "FREQUENCY
= "
D.DDDDDeaU
H z "
71 40 NEXT J
7150 DISP
7160 DISP F $
HP 5334B
-
Service Manual
4-58