HP 8340B Manual page 83

Table 4-33. HP 8340B/41B HP-lB Operation Verification Programming Listing (For Use with HP 9826A/36A)
10 HP8340B/41BHP-IBOPERATION
20
VERIF ICATION TEST
30
40
15MARCH86
50
60
11=719
70
OUTPUT
80
90
OFF KEY
100
ON KEY 1 LABEL "SYNTAX" GOTO Syntax
ON KEY 4 LABEL "DATA BIT" GOTO Data......bit
110
120
LOCAL 7
130
OUTPUT 1; CHR$( 12);
140
160 Read......status:
160 OUTPUT I1;"OS"
170
PRINTTABXY(1,1);"HP8340B/41BSTATUSBYTE
180
190
PRINT
200 PRINT "BYTE
210
PRINT"#76543210VALUE"
220
PRINT"
230
PRINT
240 ENTER I1USING"#,B";E,F
FOR I 1 TO 2
250
=
260 PRINT I;
270
IF 1=1 THEN N=E
280
IF I==2 THEN N=F
290
FOR J=7 TO 0 STEP —1
A=BIT(N,J)
300
310
PRINT A;
320
NEXT J
330
PRINT USING "X,SD";N
340
PR I NT
350
NEXT I
360
BEEP 200, .01
370
GOTO Read.....status
380
390
Syntax:
400
410
OUTPUT Ii; "XYZ"
420
GOTO Read....etatus
430
440 Data..bit:
450
460
OUTPUT 1;CHR$(12);
470
DISP USING "/,K";
480
FOR C=O TO 7
490 B=2~C
OUTPUT Il USING"K,B";"TI",H
500
WAIT .1
510
520
ENTER Ii USING"#,B";D
530
IFB—D<1 THEN GOTO 550
540
IFB<>DTHENDISP"
550
NEXT C
560
570
PRINT "ALL DATA BITS WORKING"
580
DISP "PRESS CONTINUE"
590
PAUSE
600
DISP
610
GOTO Read......statua
620
END
4-88 Performance Tests
Ii ;"IP 62
TSTS"
BIT
Clear screen
TEST DATA BITS"
DATABIT
1 AND2"
";C;;NOTWORKING"
HP 8340B/41B