Tegam 2411B, Operation Manual

Page: 117 / 140

Chapter 8 Advanced Remote Operation
Waveform Memory Format - Binary Download Test Program for GPIB (continued)
Binary Download Test Program for GPIB (continued)
MakeHeader:
templ$ = "#6000000"
temp2$ = LTRIM$(STR$(2 * BlockSize&))
Header$ = LEFT$(templ$, LEN(templ$) - LEN(temp2$)) + temp2$
RETURN
AssembleData:
CurrentPosition& = 1
BinData$ = SPACE$(2 * (StopIndex& - Startlndex& + 1))
FOR IndexPointer& = StartIndex& TO StopIndex&
MID$(BinData$,CurrentPosition&,2) = CHR$(INT(ArbData&( IndexPointer&) / 256))
+ CHR$(ArbData&(IndexPointer&) AND 255)
CurrentPosition& = CurrentPosition& + 2
NEXT IndexPointer&
RETURN
CheckStatus:
CALL ibwrt(Arb%, "*ESR?")
InputString$ = SPACE$(100)
CALL IBRD(Arb%, InputString$)
IF VAL(InputString$) AND 1 THEN
PRINT ">> Operation Complete <<";
END IF
IF VAL(InputString$) AND 2 THEN
PRINT ">> Request Control ( N/I ) <<";
END IF
IF VAL(InputString$) AND 4 THEN
PRINT "» QUERY ERROR «";
END IF
IF VAL(InputString$) AND 8 THEN
PRINT “>>Device Dependant ERROR <<”;
END IF
IF VAL(InputString$) AND 16 THEN
PRINT ">> Execution ERROR <<";
END IF
IF VAL(InputString$) AND 32 THEN
PRINT "» Command ERROR «";
END IF
IF VAL(InputString$) AND 64 THEN
PRINT ">> User Request ( N/I ) <<";
END IF
IF VAL(InputString$) AND 128 THEN
PRINT ">> Power On <<";
END IF
IF VAL(InputString$) > 0 THEN
PRINT " Status read : "; VAL(InputString$)
END IF
IF VAL(InputString$) > 0 THEN CALL ibwrt(Arb%, "*CLS")
RETURN
8-27