Listing 4-4. Reading The Lambda Dg-4/5'S Status - Sutter Instrument Lambda DG-4 Operation Manual

48
routine that could be used to monitor the status of the DG-4/5 (the example assumes that #1
has already been opened as the serial port to which the DG-4/5 is connected.
SENDITS: GOSUB SERCLEAR
SERIN:
SERIN1:
SERCLEAR:
Commands
DATANUM = 170 'OPEN SHUTTER
DATANUM = 171 'MARKER BETWEEN 235 OR 236 IN N.D. ADJUST
DATANUM = 172 'CLOSE SHUTTER
DATANUM = 186 'ENABLE TURBO BLANKING
DATANUM = 188 'DISABLE TURBO BLANKING
DATANUM = 202 'TRIGGERED BY STROBE
DATANUM = 203 'DISABLE TRIGGERED BY STROBE
DATANUM = 204 'SELECT VIDEO SYNC
DATANUM = 205 'DISABLE VIDEO SYNC
DATANUM = 206 'SELECT VIDEO SYNC GATED BY STROBE LOW
DATANUM = 207 'DISABLE VIDEO SYNC GATED BY STROBE LOW
DATANUM = 218 'FREEZE DISPLAY
DATANUM = 219 'TURN DISPLAY ON
DATANUM = 223 'START LOADING RING BUFFER (UP TO 256 VALUES)
DATANUM = 234 'START REMOTE CHANGE OF N.D. FILTER SETTING
DATANUM = 235 'INCREASE THE DAC GALVO VALUE-SEND 171 AS SPACE
DATANUM = 236 'DECREASE THE DAC GALVO VALUE-SEND 171 AS SPACE
DATANUM = 237 'END CHANGE OF N.D. FILTER SETTING AND SAVE
DATANUM = 238 'FORCE ON-LINE FOR CHANNEL THAT RECEIVED IT
DATANUM = 240 'END LOADING RING BUFFER FILTERS
DATANUM = 241 'RUN RING BUFFER (FIRST SELECT TRIGGER SOURCE)
DATANUM = 242 'END RING BUFFER RUN

Listing 4-4. Reading the Lambda DG-4/5's status.

IF DATANUM < 255 THEN PRINT #1, CHR$(DATANUM);
GOSUB SERIN
DTIME = 10
RETURN
D = 0 'Check the SERIAL PORT If characters are waiting
SerialInput$ = ""
IF LOC(1) > 0 THEN SerialInput$ = INPUT$(1, #1)
' if a character is waiting, transfers it to input
' variable
IF SerialInput$ <> "" THEN
IF DATANUM = ASC(SerialInput$) THEN
IF R = 1 THEN RETURN
' presets R (="return on echo" switch) to 1 if the last
' command did not require a carriage return
' character return=13 ends routine (DG-4 is ready)
IF SerialInput$ = CHR$(13) THEN RETURN
IF DATANUM = 238 THEN RETURN
D = D + 1
IF D > 10000 THEN RETURN
GOTO SERIN1
DO WHILE LOC(1) > 0
SerialInput$ = INPUT$(1, #1)
LOOP
RETURN
LAMBDA DG-4 & DG-5 OPERATION MANUAL – REV. 3.05C (20150414)
'clears receive buffer
'blanks the input variable
' characters waiting
'sends
'command