Santec TSL-210 - 10-4-B GP-IB Sample Program

TUNABLE LD LIGHT SOURCE TSL-210
10-13
10-4-B. GP-IB Sample Program
1000 ISET IFC
1010 ISET REN
1020 PRINT @1; "WA1500"
1030 GOSUB *MOTOR.CHK
1040 FOR SW=1500 TO 1580 STEP .1
1050 PRINT @1, "WA"+STR$(SW)
1060 GOSUB *MOTOR.CHK
1070 PRINT @1, "LP"
1080 INPUT @1, POW$
1090 NEXT
1100 *MOTOR.CHK
1110 PRINT @1, "SU"
1120 INPUT @1, ANS$
1130 IF(RIGHT$(ANS$,1)="0") THEN RETURN
1140 GOTO *MOTOR.CHK
1150 STOP
Sends out "IFC" signal.
Sets "REN" signal to TRUE.
Sets wavelength to "1500nm".
Checks whether wavelength tuning is ON or not.
Varies from 1500nm to 1580nm by 0.1nm, and
reads optical output power.
Sets wavelength.
Checks whether wavelength tuning is ON or not.
Sets output variable to optical output power (mW).
Sets reading output variable without echo back.
Reads data of optical output power (mW).
< Routine to check whether wavelength tuning is
ON or not >
Sets output variable to status.
Reads status.
Sees 1st digit to check whether it is busy or not.
[ Description ]
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com