Princeton FA-448 User Manual
Program
1 CLEAR , 59000! : IBINIT1=59000! : IBINIT2=1BINIT1+3 : BLOAD “bib.m”,IBINIT1
2 CALL IBINIT1 (IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, IBPPC, IBBNA, IBONL, IBRSC,
IB SRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, IBWRTF, IBTRAP)
3 CALL IBINIT2 (IBGTS, IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, IBSTOP, IBRPP,
IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, IBWRTIA, IBSTA%, IBERR%, IBCNT %)
4 GOTO 20
7 SAVE”DEVICE12",A:END
20 UDNAME$ ="DEV12"
30 CALL IBFIND (UDNAME$,UD%)
40 IF UD% < 0 THEN TOGO 200
43 INPUT “ENTER 1 TO GET ?FILTER, 2 TO SEND FILTER, 3 TO EXIT: “,Q
44 IF Q=1 THEN 50
45 IF Q=2 THEN 400
46 IF Q=3 THEN 430
47 GOTO 43
50 WRT$="?FILTER” +CHR$ (&HD)
60 CALL IBWRT (UD%,WRT$)
70 IF IBSTA% < 0 THEN GOTO 300
113 PRINT “IBSTA%="; IBSTA%
116 CALL IBRSP (UD%,SPR%)
117 IF ( (SPR% AND 129) <> 129 ) THEN 116
125 PRINT “SPR = “;SPR%
130 RD$=SPACE$(255)
140 CALL IBRD (UD%,RD$)
145 IF IBSTA% < 0 THEN GOTO 300
150 PRINT “ DATA RECEIVED ="; LEFT$(RD$,IBCNT%);
160 PRINT “ STATUS =" ; IBSTA%
170 GOTO 43
200 PRINT “ibfind error “: STOP
300 PRINT “gpib function call error” : STOP
400 WRT$="2 FILTER” + CHR$ (&HD)
410 CALL IBWRT (UD%,WRT$)
420 IF IBSTA% < 0 THEN GOTO 300
425 GOTO 43
430 CALL IBLOC (UD%)
440 IF IBSTA% < 0 THEN GOTO 300
500 END
2 CALL IBINIT1 (IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, IBPPC, IBBNA, IBONL, IBRSC,
IB SRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, IBWRTF, IBTRAP)
3 CALL IBINIT2 (IBGTS, IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, IBSTOP, IBRPP,
IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, IBWRTIA, IBSTA%, IBERR%, IBCNT %)
4 GOTO 20
7 SAVE”DEVICE12",A:END
20 UDNAME$ ="DEV12"
30 CALL IBFIND (UDNAME$,UD%)
40 IF UD% < 0 THEN TOGO 200
43 INPUT “ENTER 1 TO GET ?FILTER, 2 TO SEND FILTER, 3 TO EXIT: “,Q
44 IF Q=1 THEN 50
45 IF Q=2 THEN 400
46 IF Q=3 THEN 430
47 GOTO 43
50 WRT$="?FILTER” +CHR$ (&HD)
60 CALL IBWRT (UD%,WRT$)
70 IF IBSTA% < 0 THEN GOTO 300
113 PRINT “IBSTA%="; IBSTA%
116 CALL IBRSP (UD%,SPR%)
117 IF ( (SPR% AND 129) <> 129 ) THEN 116
125 PRINT “SPR = “;SPR%
130 RD$=SPACE$(255)
140 CALL IBRD (UD%,RD$)
145 IF IBSTA% < 0 THEN GOTO 300
150 PRINT “ DATA RECEIVED ="; LEFT$(RD$,IBCNT%);
160 PRINT “ STATUS =" ; IBSTA%
170 GOTO 43
200 PRINT “ibfind error “: STOP
300 PRINT “gpib function call error” : STOP
400 WRT$="2 FILTER” + CHR$ (&HD)
410 CALL IBWRT (UD%,WRT$)
420 IF IBSTA% < 0 THEN GOTO 300
425 GOTO 43
430 CALL IBLOC (UD%)
440 IF IBSTA% < 0 THEN GOTO 300
500 END
rem
The above program is for use with the National Instruments
rem
PC-IIA GPIB controller card for controlling filter wheel A.
rem
to control filter wheel B, change line 20 to read “DEV13"
rem
instead of “DEV12". The first three lines of the program
rem
are merged from National Instruments file DECL.BAS and may
rem
be different for your computer or GPIB controller card.
rem
To operate, load and run as a BASIC program and enter
rem
1 to request the filter position, 2 to sent the filter
rem
to position 2 ( this can be changed in line 400 or made
rem
a variable ) or enter 3 to return the control unit to
rem
local control mode ( thumbwheel switch ).
8