![Tektronix PFG 5105 Скачать руководство пользователя страница 83](http://html1.mh-extra.com/html/tektronix/pfg-5105/pfg-5105_instruction-manual_1077779083.webp)
Programming
Quick Basic Talker Listener Program For Tektronix PEP 301 Controllers
***********************************************************************************
******************** PFG 5105/5505 TALKER/L ISTENER PROGRAM ********************
r
***********************************************************************************
TH I S PROGRAM REQUI RES THAT THE PFG 51 05 ADDRESS TO BE SET
' TO THE FACTORY DEFAULT OF 8
COMMON SHARED I BSTA% , ! SERR% , I BCNT%
I D$
=
"TEKDEVl"
CALL I BF I ND ( I D$ , BO% )
PFG% =
8
CALL I BPAD ( B0% , PFG% )
I D$ = "GP I BO"
CALL I BF I ND ( I D$ , GP%)
REMOTE%
=
1
CALL I BSRE ( GP% , REMOTE%)
CLS
DOOVER :
p R I NT ,, ******************************************************************************
I I
PR I NT "****************** PFG 51 05/5505 TALKER L I STENER PROGRAM ****************"
PR I NT ''******************************************************************************''
PR I NT "RETURN TO EX I T :
I NPUT " ENTER MESSAGE ( S ) " ; WRT$
CALL I BWRT ( B0% , WRT$ )
GOSUB CHECKGP I B
I F WRT$
= " "
THEN GOTO TERMI NATE
**************************** INPUT FROM DEVICE *********************************
REPLY$
=
SPACE$ ( 255 )
CALL I BR D ( B0% , REPLY$ )
GOSUB CHECKGP I B
GOSUB CHECKDM
PR I NT
PR I NT " I NSTRUMENT REPLY " ; REPLY$
PR I NT
PR I NT "Returned status byte : " ; SPR% ,
PR I NT
PR I NT ERRM$
GOTO DOOVER
I
********************************
ERROR ROUTINES
*********************************
CHECKDM :
ERRM$
=
SPACE$ ( 50 )
CALL I BRSP ( B0% , SPR%)
CALL I BWRT ( BO%
I
"ERRM?" )
CALL I BRD( B0% , ERRM$ )
RETURN
CHECKGP I B :
I F I BSTA%
>=
0 AND BO%
>=
O AND I BSTA%
<
&H4000 AND I BERR%
< >
6 THEN RETURN
' no error to report
IF BO%
<
0 THEN PR I NT "dev i ce not i nsta l led - use I BCONF t hen reboot "
I F I BSTA%
>
0 AND I BSTA%
>=
&H4000 THEN PR I NT "t imeout"
I F I BERR%
6 THEN PR I NT "t imeout"
PR I NT "gp i b error " ; I SERR%
IF I BERR%
0 THEN PRI NT "DOS error dev i ce not i nsta l led"
IF I BERR%
1 THEN PR I NT "funct i on requ i res GP I B-PC to be C IC"
IF I BERR%
2 THEN PRI NT "no . l i stener on wr i te funct i on"
IF I SERR%
3 THEN PR I NT "GP I B-PC not addressed correct ly"
I F I BERR%
4 THEN PRI NT " i nva l i d argument to funct i on ca l l "
I F I BERR%
5 THEN PRI NT "GP I B-PC not system contro l ler as requ i red"
IF I BERR%
6 THEN PR I NT " I /0 operat i on aborted"
IF I BERR%
7 THEN PR I NT "non-ex i stent GP I B-PC board"
IF I BERR%
10 THEN PR I NT " I /0 started before prev i ous operat i on comp l eted"
IF I BERR%
1 1 THEN PR I NT "no capab i l i ty for operat i on"
I F I BERR%
12 THEN PR I NT "f i le system error"
IF ! SERR%
14 THEN PR I NT "cormnand error dur i ng dev i ce ca l l "
I F I BERR%
15 THEN PR I NT "ser i a l po l l status byte lost"
I F I BERR%
16 THEN PR I NT "SRQ stuck in on pos i t i on"
I NPUT " [ENTER] TO CONT I NUE" ; A$ ' i f he l p$ then
RETURN
r
******************************* TERMI NATE PROGRAM ******************************
TERM I NATE :
REMOTE%
=
0
CALL I BSRE ( GP% , REMOTE% )
PR I NT "PROGRAM TERM I NA TED . "
END
3-38
PFG 51 05/5505 I nstruction Manual
Содержание PFG 5105
Страница 1: ...PFG 5105 PF G 5505 Programmable Pulse Function Generator...
Страница 9: ...i I...
Страница 27: ......
Страница 87: ......
Страница 89: ......