HP 9835A Programming Manual page 270

Appendix H: I/O Sample Programs 247
10 THIS
~~OGRAM
OUTPUTS A
STRI~~
USING DMA TO A
-10
NTERFACE.
30 INTERFACE CARIS APPLICABLE FPE:
CC)I"1
1. [101:::i
I
r'i
I
I"·!pi .
..it
::I:.
I:
16Ci J
NTEGER Select code
ri ' : : : ;
::;[I'iI: L..E
Hi
.L..U~·~
'ii·,
t;::>:i
C:HHRi:1Cn::F' '::;T'F'I
t··le;;
BASIC VAR[ABLE TO HOLD THE
S~LEc
CODE
i···iF\JT
n:=':;EL.ECT (:ODE TO l·.iF ITE TO?",
::::;,:::.'j
ec
N INT #Select code GOTO
141:::[
Inpi .
..it:
L.Ir·lFUT "'=':;'TFI
i"Y:;
TC)
I.'~P:::TE":)", I(;~:.;.xt.l
A:=' : :i< l.J3EF
i·-l...ib::
'::rrF:II··!C; TCl Oi...iTFUT
l$~i IC!:::!Li .... Oi . ..rt.P! . .
·it._ ...
':;W:,·i o __ . . .
cllY;.:::i.(::>,·l
'::-C1: ....
>::cck,·, I
(;p; ...
lt::l:.)
i :::::i~~ I::: I '1-·1
190
(~(}TO 1'?U
2UU
DO UTHEP WOPK WHILE INTERRUPT
ryJTPUT IS IN PROGRESS
!
COMPLETE .•. SO REPEHT
SC~RCE
NHM
Uutp~t_gpi
SOUPCE EXT
SOURCE Select
code:B~$1
::;Oi.JRCE
::::'i:. i'"'1
j"<:;::
340 SOURCE
TO HOLD SELECT CODE
RESERVED
F~~
16U CHAR STFING
RESERVED TO EXPAND STRING
T'E:i"lF' n)F: I '::;F'
' T E::i"' i F'
FOF:
I
:=' : ;F
EQUATES FC? CR/LF
ROUTINE TO
(~TFUT
A
STFI~~
FOL.L.OWED BY CR/LF TO A GPIO-LIKE
37U SOURCE
39U SOURCE
:=' : ;OL.W:CE
:=' : :Oi.JFCE
420
3C~RCE
46j~)
470
r.::··-·II··~
.. ) ..
:::I~.l
i::'".-i ,- ..
'._!'·'i'r':.1
r.::-t:"'-01
.. ..1 .. ) .. .:'
570
:::Oi...iFCE
::;OURCE
:::;QUF:CE
:::OUFCE
::;Ot..!RCE
::;OUF.:CE
::;OUFCE
::;OURCE
590 SOURCE
INTERFHCE USING DMH.
PHRAMETEFS:
1)
INTEGER CONTHINING SEL.ECT CODE
Te) 14
~,
STRING TO BE OUTPUT
POSSIBLE ERROFS: 19 SELECT CODE OUT OF FANGE
164 CAFD OF PERIPHERAL DOWN
T i-,l-r-
.i.!,!!
GET THE SELECT CODE PARM
LOAD H WITH SELECT CODE
CHECK FOR VALID RANGE (1-14)
GIVE EFFOR 19 IF SELECT CODE
::::;OUF<:CE
:::>:
ok:
::;Oi...iF' : CE
SEE IF CARD IS OK
FIRST COpy SELECT CODE TO PA
:::;OUF:CE SKIP IF CARD IS UP