Table of Contents
Advertisement
Appendix H: I/O Sample Programs
253
10
98034A HPIB CARD DRIVER
;21:3
3(1
nw
A:::;::; HfBL\' LAi--iGUAGE DF.: I VEFS FlF.:E PFW'/ I DED ••• Of-iE FOR OUTPUT AHD ONE
4~)
FOR nWUT..
BOTH Hf11,,"E PF:O\'I:::nm··I:::; FOF.:
H~CLUDHiG
A Bi...!S Cot'1t'1I=ir·m
STRU~G
50
FOR ADDRESSING THE BUS.
60
I CALL Hp i b_ .. out pi.At <
<
I ::;C
>,
<
C'·'iII
$: :::.,
I Cf=!U ... Hpi b .. _,;::·,···,te-r·
< ISC>, <O'1D!>.
<DATf=!$:> J )
10t~1
110
12t)
1:]0
14(1
l::i~)
16~)
<'.,,'f:IF<:!>
J
-<
I:::;C:>
<cr'iD!>
<DATA!>
(',/AF.:!>
INTERFBCE SELECT CODE <1 TO 14) (INTEGER)
STRING TO CUTPUT WITH
~rN
TRUE
STRING TO OUTPUT WITH ATN FALSE
STRING VARIABLE TO HOLD DFiTA READ FROM BUS
17(1
POSSIBLE ERRORS:
1:::f)
164
CAF.:D i,JA::::; t·40T AI··i I··WIE CfiF.:D
1
' 3 121
2(1~~1
210
220
~5(i(1
501
<Cf'iD:!::::·
Wl::;
1···IOH-t··IULL Pt..!T THE eAfU! l·JA:::;
r·~OT
ACTI'·lE Cm-nROLLER
<DFHA!>
~·.IAS
t··IOfl··NULL BUT THE Ci:jfUi
~,H1::;
t·WT ACTI'.,,'ER TAU:::EF.:
<
"lAR:!::> L,JAS ::;PEC
I
F
I
ED :BUT THE CARD t,.IA:::; t··IOT FiCT I '.,.'E
I...
I ::;TEt·4ER
;;;::::::0
240
I
cot'!
1000
250
INTEGER Se-lect code-
26~:~
DUI Crnd:!:[ 160:], Data.:!: [160],
"/:a.t~!
[
160]
2?0
I A:::;::;Et'lBLE
~2;::0
H·1F'I...iT "HPIB ::ELECT CODE?",S,;,,·lE·Ct COdE·
290
ON KEY #0 GOSUB Output
300
rn~
KEY #1 Ga::;UB Enter
3H3
PRHH "(E\'O = OI..JTPUT
1<:£'/1
E}·ITER"
:;:2(1
D I ::;p "I DLE"
::::::::0
C;OTO
3;?0
::::40 Output:
Ga::;UB Linput emd
350
LIt-Wi..JT ItDATfl TO :::;EHri:=.;It, LL3.t.;:iL!
:;:60
37(1
:;:::a3
~,~;i~~
i;·!pi
t:~
...
o~~~'~t :i;~~~.iE.e :.T,-'~ :~;.~:~~
. .
:~~rnd$,
D.:a.ta$)
F.:ETUF.:H
390 Enter:
GOSUB
Linr~t_emd
400
rCAlL Hpib
ente-r<Se-le-e~_eode,Cmd$,Var$)
4H3
F'f-":nn
It
_. DATFi PEAD
=It;",".::~.r ..
$:
420
F:ETUF:f-·/
4::::~3
!
440 L.
i
npU1:. end:
L.H~PI..JT
"CO!·'lr'~Al"·m
B'y'TE:;:;?", CflKU:
450
F.:ETUF.:t:~
460
490
500
510
C " - I I - ' :
._I~r,:,!
5:;:~Z1
540
55t3
56[1
570
600
61(1
~:;OUF.:CE
::;OUPC:E
::;CiI..iECE en·:d:
:::;OUFCE D.:a.t.;:iL:
i··jAi·'1 Hp·i b
D::T Ge-t
'.).::.t.·1 ' .
..Ie,
Pl.~t
IS:::;
::::i
EOU Cmd
SOUPCE Select code-:BSS
:::OUF::CE P.::lrrf,_t::t"t-·:
B:::;:::;
:::OUF.:CE L.t":
::;OUFCE Cr·:
SOUFCE
:::1:..:i 1:.
u~::·l
:
::;OUFCE ::::-t.:a.
t : ...
1:.::.2 :
::;OUF.:CE
:::>' - 3.
t :.4:::.4:
::;OUFCE
SOURCE Out p:a.nn:
SOUF.:CE
EG:!fj 1
~3
ES:::;
B::;::;
Ir·n
i.).:a. I.-Ie-
~
Er·r··or-·_,::·::<i t
STRI~;
TO HOLD CMD
I~TES
STRING TO HOLD DATA BYTES
INTERFACE SELECT CODE
POINTER TO PARM PSEUDO OPS
EOUATE:::;
4 WORD::: TO CONTAIN STATUS
BYTES FROM 98034
Advertisement
Table of Contents
