HP 5334B - Page 68

Table 4-4. HP-ZB Operational Verification
Progrant Listing (Continued) .
.
6640 ! CHECKPOINT 14
6650
I$=" High Speed Output"
6660
S=14
6670 GOSUB 7810
6680 REMOTE A
6690 OUTPUT A ;"INu
6700
IOEUFFER X$
6710 DISF "In this test, the 5334A/BW
6720 DISP "will be programmed to output frequency in the high speed data"
6730 DISP "output mode. For this test, connect a BNC cable from the"
6740 DISP "Time Base Output on the
5334A/BU
6750 DISP "back panel to INPUT A."
6768 DISF A$
6770 PAUSE
6780 CLEAR
6790 OUTPUT
A ;"TRl GA.OO1 HSI"
6800 OUTPUT A ;"TC"
6810 ENTER A ; CI ,C2 ,C3 ,C4
6820 TRANSFER A TO X$ FHS
6830 DISP
D$;"shows 'FASt dAtA'."
6840 DISP
6850 FOR J=O TO
4
6860 IF INT(NUM( X$[8*J+1 ,8*J+1 1 )/I6 ))9 THEN X( J )=9.99E99 @ GOT0 7070
6870 IF
INT(NUMt X$[8*J+4,8*J+41 )/I6 )9 THEN X( J )=9.99E99 @ GOT0 7070
6880 FOR
I=1 TO 3
6890
R$E2*I--1 ,?*I-1 I=CHR$( INTiNUM(X$[It8*J ,1+8*Jl )/I6 )+48)
6900 R$CZ*I ,?*I I=CHR$(BINAND(NUM(X$[ I+8*J ,1+8*Jl) ,15)+48)
6910 NEXT I
6920 E=UAL( R5 )
6930 FOR 1=4 TO 6
6940
S$[?*I-7,2*1-7I=CHR$( INT(NUM(X$[I+8*J ,I+8*J I )/!6 )+48)
6950 S$[Z+I-G ,?*I-61=CHR$(EINANDiNUMiX$[ 1+8*J ,1+8*JI ) *15)+48)
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+81 !
7000 IF C-C3<-4 THEN C=C+256
7010 IF 0-GI(-4 THEN D=D+256
7020 T=B+( C-C3 )/C4-( D-Cl )/C?
7030 X(J)=E/T*10000000
7040 NEXT J
7050 DISP
7060 DISP
F$
7070 PAUSE
7080 CLEAR
7090 DISP
"Uerlfy that the screen displays the time base frequency 5 times."
7100 DISP
7110 FOR
J=0 TO 4
7120 DISP USING 7130
; Jt1 ,X( J)
71 30 IMAGE 3D ,2X, "FREQUENCY = " D.DDDDDeaU Hz"
71 40 NEXT J
7150 DISP
7160 DISP
F$
HP 5334B - Service Manual
4-58