Bird Technologies 6091P - Manuale (Pagina 59)

Sample Test
Programs
The following sample programs illustrate GPIB command Structure and data format
for operation of the Calorimeter in the remote mode.
47
Remote Operating Procedures
National GPIB-PCII:
10 REM INCLUDE LINES 20 THROUGH 40 (SUPPLIED WITH THE NATIONAL CONTROLLER)
20 CLEAR ,60000! : IBNIT1=60000! : IBINT2=IBINT1+3 : BLOAD "bib.m", IBINT1
30 CALL IBINIT1(IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, IBLOC, IBPPC, IBBNA, IBONL, INRSC,
IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT, IBRDF, IBWRTF, IBTRAP,
IBDEV, IBLN)
40 CALL IBINT2(IBGTS, IBCAC, IBWAIT, IBPOKE, IBWRT, IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA,
IBSTOP, IBRPP, IBRSP, IBDIAG, IBXTRC, IBRDI, IBWRTI, IBRDIA, IBWRTIA, IBSTA%, IBERR%,
IBCNT%)
50 REM CLEAR SCREEN
60 CLS
70 PRINT "TYPE END TO QUIT PROGRAM"
80 REM DEFINE DEVICE AND BOARD PARAMETERS
90 BI%=0:PAD%=24;SAD%=0:TMO%=13:EOT%=1:EOS%=&H40a:BRD%=0
100 CALL IBDEV(BI%,PAD%,SAD%,TMO%,EOT%,EOS%,BRD%)
110 REM SEND INTERFACE CLEAR
120 CALL IBCLR (BRD0%)
130 REM SEND COMMAND TO DISABLE TERMINATORS
140 CMD$="YN":CALL IBWRT(BRD%,CMD$)
150 REM ENTER COMMAND STRING
160 INPUT "COMMAND STRING";CMD$
170 CMD$="END" THEN 260
180 REM WRITE COMMAND STRING TO DEVICE
190 CALL IBWRT(BRD%,CMD$)
200 REM DEFINE READ STRING AND READ DATA
210 RD$=SPACE$(36)
220 CALL IBRD(BRD%,RD$)
230 REM PRINT DATA AND LOOP TO COMMAND STRING INPUT
240 PRINT RD$
250 GOTO 160
260 END