HP 8340B Manual page 87

Table 4-33.
HP 8340B/41B HP-IB
Operation Verification Programming Listing (For Use
with HP
9826A/36A)
10
•
HP 8340B/41B HP-IB OPERATION
20 •
VERIFICATION TEST
30
!
40 15 MARCH 86
50 i
60 [1=719
70
OUTPUT
I1;"IPS2TSTS"
80 !
90 OFF KEY
100 ON
KEY
1 LABEL "SYNTAX"
GOTO
Syntax
110 ON KEY
4
LABEL "DATA BIT" GOTO
Data—bit
120 LOCAL 7
130 OUTPUT 1
;
CHR»<125;
140 '
ISORead—status:
!
160
OUTPUT 11;"OS-
170 •
180 PR I NT
TABXYt
1,1);
"HP
8340B/41B STATUS BYTE 1 AND 2"
190
PRINT
200 PRINT "BYTE—---—BIT————————_"
210 PRINT "# 7 6543 2 1 0 VALUE"
220 PRINT
"———-----——————————————
230
PRINT
240 ENTER
II
USING
"#,B"
;
E
,F
250 FOR
1=1
TO
2
260 PRINT
I;
270 IF 1=1 THEN
N=E
280
IF 1=2 THEN
N=F
290 FOR
J=7TO 0 STEP
-1
300
A=BITCN,J>
310 PRINTA;
320
NEXT J
330
PRINTUSING"X,5D";N
340 PRINT
350
NEXT I
360 BEEP
200,.01
370 GOTO
Read—status
380 !
390Syntax:
!
400
!
410 OUTPUT 11;"XYZ"
420 GOTO
Read—status
430 !
440Data—bit:!
450 !
460 OUTPUT
1;CHR»(12>; •
Clear
screen
470 DISP
USING
"/,K";
TEST DATA BITS"
480 FORC=OT07
490 B°2*C
500
OUTPUT 11
USING"K,B";"TI",B
510 WAIT
.
1
520 ENTER 11 US I NG
"#
,
B";
D
S30
IFB-D<1
THEN GOTO
550
540
IFBoDTHENDtSP
" DATA BIT "; C
;;
NOT WORKING"
550
NEXTC
560 !
570
PRINT "ALL
DATA BITS WORKING"
580 DISP "PRESS CONTINUE"
590 PAUSE
600 DISP
610 GOTO
Read—status
620
END
4-88 Performance Tests
HP 8340B/41B