236
Appendix B
Information for Replacing 4278A with 4288A
Example of Replacing Major Functions (comparison of programs)
Compensation
Table B-22 compares the programs used by the 4278A and 4288A to perform
Open/Short/Standard (Load) compensation.
Table B-22
Comparison of programs used to perform Open/Short/Standard (Load)
compensation
4278A
4288A
10
DIM Buff$[9],Inp_char$[9]
20
REAL Data1,Data2
30
ASSIGN @Agt4278a TO 717
40
!
50
!
60
OUTPUT @Agt4278a;"*SRE8"
70
!
80
OUTPUT @Agt4278a;"*CLS"
90
WAIT .1
100
!
110
ON INTR 7 GOTO Open_end
120
ENABLE INTR 7;2
130
PRINT "[Open mesurement]"
140
INPUT "Push [Enter] key to start",Inp_char$
150
OUTPUT @Agt4278a;"XOP"
160 Open_wait:GOTO Open_wait
170 Open_end:OFF INTR 7
180
OUTPUT @Agt4278a;"OPEN1"
! Open On
190
OUTPUT @Agt4278a;"OPM?"
200
ENTER @Agt4278a;Data1,Data2
210
PRINT " Open Compensation Data:"
220
PRINT " Cp:";Data1,"G:";Data2
230
!
240
OUTPUT @Agt4278a;"*CLS"
250
WAIT .1
260
!
270
ON INTR 7 GOTO Short_end
280
ENABLE INTR 7;2
290
PRINT "[Short mesurement]"
300
INPUT "Push [Enter] key to start",Inp_char$
310
OUTPUT @Agt4278a;"XSH"
320 Short_wait: GOTO Short_wait
330 Short_end: OFF INTR 7
340
OUTPUT @Agt4278a;"SHOR1"
! Short On
350
OUTPUT @Agt4278a;"SHM?"
360
ENTER @Agt4278a;Data1,Data2
370
PRINT " Short Compensation Data:"
380
PRINT " Ls:";Data1,"Rs:";Data2
390
!
400
! Load standard definition
410
OUTPUT @Agt4278a;"SPAR1"
420
OUTPUT @Agt4278a;"CSTD=47E-12"
430
OUTPUT @Agt4278a;"DSTD=0"
440
OUTPUT @Agt4278a;"*CLS"
450
WAIT .1
460
!
470
ON INTR 7 GOTO Load_end
480
ENABLE INTR 7;2
490
PRINT "[Load mesurement]"
500
INPUT "Push [Enter] key to start",Inp_char$
510
OUTPUT @Agt4278a;"XSTD"
520 Load_wait: GOTO Load_wait
530 Load_end: OFF INTR 7
540
OUTPUT @Agt4278a;"STD1"
! Standard On
550
OUTPUT @Agt4278a;"STM?"
560
ENTER @Agt4278a;Data1,Data2
570
PRINT " Load Compensation Data:"
580
PRINT " Cp:";Data1,"D:";Data2
590
!
600
END
10
DIM Buff$[9],Inp_char$[9]
20
REAL Data1,Data2
30
ASSIGN @Agt4288a TO 717
40
!
50
OUTPUT @Agt4288a;":STAT:OPER:ENAB 128"
60
OUTPUT @Agt4288a;"*SRE 128"
70
!
80
OUTPUT @Agt4288a;"*CLS"
90
OUTPUT @Agt4288a;"*OPC?"
100
ENTER @Agt4288a;Buff$
110
ON INTR 7 GOTO Open_end
120
ENABLE INTR 7;2
130
PRINT "[Open mesurement]"
140
INPUT "Push [Enter] key to start",Inp_char$
150
OUTPUT @Agt4288a;":CORR:COLL STAN1"
160 Open_wait:GOTO Open_wait
170 Open_end:OFF INTR 7
180
!
190
OUTPUT @Agt4288a;":CORR:DATA? STAN1"
200
ENTER @Agt4288a;Data1,Data2
210
PRINT " Open Compensation Data:"
220
PRINT " G:";Data1,"B:";Data2
230
!
240
OUTPUT @Agt4288a;"*CLS"
250
OUTPUT @Agt4288a;"*OPC?"
260
ENTER @Agt4288a;Buff$
270
ON INTR 7 GOTO Short_end
280
ENABLE INTR 7;2
290
PRINT "[Short mesurement]"
300
INPUT "Push [Enter] key to start",Inp_char$
310
OUTPUT @Agt4288a;":CORR:COLL STAN2"
320 Short_wait: GOTO Short_wait
330 Short_end: OFF INTR 7
340
!
350
OUTPUT @Agt4288a;":CORR:DATA? STAN2"
360
ENTER @Agt4288a;Data1,Data2
370
PRINT " Short Compensation Data:"
380
PRINT " R:";Data1,"X:";Data2
390
!
400
! Load standard definition
410
OUTPUT @Agt4288a;":CORR:CKIT:STAN3:FORM CPD"
420
OUTPUT @Agt4288a;":CORR:CKIT:STAN3 47E-12,0"
430
!
440
OUTPUT @Agt4288a;"*CLS"
450
OUTPUT @Agt4288a;"*OPC?"
460
ENTER @Agt4288a;Buff$
470
ON INTR 7 GOTO Load_end
480
ENABLE INTR 7;2
490
PRINT "[Load mesurement]"
500
INPUT "Push [Enter] key to start",Inp_char$
510
OUTPUT @Agt4288a;":CORR:COLL STAN3"
520 Load_wait: GOTO Load_wait
530 Load_end: OFF INTR 7
540
!
550
OUTPUT @Agt4288a;":CORR:DATA? STAN3"
560
ENTER @Agt4288a;Data1,Data2
570
PRINT " Load Compensation Data:"
580
PRINT " Cp:";Data1,"D:";Data2
590
!
600
END
Summary of Contents for 4288A
Page 18: ...16 Chapter1 Making Effective Use of This Manual How To Use This Manual ...
Page 212: ...210 AppendixA Manual Changes Manual Changes ...
Page 248: ...246 AppendixB Information for Replacing 4278A with 4288A Comparison of Interfaces ...
Page 258: ...256 AppendixC Status Reporting System Using the Status Reporting System ...
Page 288: ...286 Index Index ...