Agilent Technologies 6683A Manual Do Utilizador

1530 CLEAR 

SCREEN

1540 

PRINT "This program should ONLY be completed if your power supply”

1550 

PRINT "EEPROM has been replaced or a component that will effect"

1560 

PRINT "the calibration AND the alignment of voltage, overvoltage"

1570 

PRINT "and current is complete AND unit has passed the performance"

1580 

PRINT "test.                          Enter C to continue, any other key to abort.”

1590 INPUT 

Cont_prog$

1600   IF (UPC$(Cont_prog$))< >"C" THEN GOTO Cal_off
1610

!

1620

CLEAR SCREEN

1630   PRINT "Transferring calibration data to factory preset locations."
1640

!

1650  Fact_cal_sour:             ! Address of factory calibration data source
1660  

DATA 2,6,68,72,20,24,76,80,150

1670

!

1680  Fact_cal_dest         :     ! Address of factory calibration data destination
1690  

DATA 84,88,92,96,100,104,108,112,116

1700

!

1710  Fact_cal_len:                ! Length of factory calibration data
1720

DATA 4,4,4,4,4,4,4,4,1

1730

!

1740 RESTORE 

Fact_cal_sour

1750 

FOR I=1 TO 9

1760 

    READ Cal_sour_addr(I)

1770

NEXT I

1780

!

1790 RESTORE 

Fact_cal_dest

1800 

FOR I=1 T0 9

1810 

    READ Cal_dest_addr(I)

1820 NEXT 

I

1830

!

1840 RESTORE 

Fact_cal_len

1850 

FOR I=1 T0 9

1860 

    READ Cal_length(I)

1870 NEXT 

I

1880

!

1890 

FOR I=1 T0 9

! Locations of good data

1900

    OUTPUT @Ps;"DIAG:EEPR? ";Cal_sour_addr(I);",";Cal_length(I)       !     Read good data

1910

    ENTER @Ps;Cal_data$

! Enter good data

1920

    OUTPUT @Ps;"DIAG:EEPR";Cal_dest_addr(I);",";Cal_length(I);”,”;Cal_data$

 !   Write good data to factory preset locations
1930

NEXT I

1940

!

1950

!

1960  Cal_off
1970

CLEAR SCREEN

1980

OUTPUT @Ps;"CaL:STATE OFF"

! Turn off cal mode

1990

!

2000

GOSUB Ps_error

! Check for errors