Specifications

4-3
Transferring USER Patterns over HP-IB
Pattern Upload/Download Example
230 !
240 Readupatlength: !
250 OUTPUT Pg;“SOURCE1:PATT:UPAT0:LENGTH?”
260 ENTER Pg;Upatbitlen
270 DISP Upatbitlen
280 WAIT 1
290 RETURN
300 !
310 Uloadupat: !
320 OUTPUT Pg;“SOURCE1:PATT:FORMAT PACK, ”&VAL$(Bitsperbyte)
330 OUTPUT Pg;“SOURCE1:PATT:UPAT0:DATA?”
340 ENTER Pg USING “#,A,D”;Line$,Nooflendigits
350 Upatbytelen=0
360 FOR Lendig=1 TO Nooflendigits
370 ENTER Pg USING “#,D”;Num
380 Upatbytelen=10*Upatbytelen+Num
390 NEXT Lendig
400 DISP “no of upat data block bytes = ”;Upatbytelen
410 Rowno=0
420 Rowbyteno=0
430 FOR Byteno=0 TO Upatbytelen-1
440 ENTER Pg USING “#,B”;Upat(Rowno,Rowbyteno)
450 IF (Rowbyteno>=SQRT(Upatbytelen)) THEN
460 Rowno=Rowno+1
470 Rowbyteno=0
480 DISP “Uploaded”;INT(100*(Rowno/SQRT(Upatbytelen)));“ % of pattern”
490 ELSE
500 Rowbyteno=Rowbyteno+1
510 END IF
520 NEXT Byteno
530 DISP “Uploaded Pattern”
540 RETURN
550 Makeblockhdr: !
560 Header$=“#”&VAL$(LEN(VAL$(Upatbytelen)))&VAL$(Upatbytelen)
570 RETURN
580 Dloadupat: !
590 OUTPUT Ed;“SENSE1:PATT:UPAT0:LABEL ”&Upatlabel$
600 OUTPUT Ed;“SENSE1:PATT:UPAT0:USE STR”
610 OUTPUT Ed;“SENSE1:PATT:UPAT0:LENGTH ”&VAL$(Upatbitlen)
620 OUTPUT Ed;“SENSE1:PATT:FORMAT PACK, ”&VAL$(Bitsperbyte)