Table of Contents
Advertisement
244
Appendix H: I/O Sample Programs
1f:!
THIS PF.: (1i:;F.: Ar'1 HiPUr:; A
~:;TF.:H~G
U::::I!"jG HHEf<:F.:UPT FF.:Of'1 A GPIC--LH=:E HHEFFACL
20
30
INTERFACE CARDS APPLICABLE ARE:
413
16 BIT
FA~::ALL.EL
BCD
6~~i
70
813
'38033
'38~):36
8ER I AL HHEPFACE .:: I tHERFJJFT
H~f'{BLE
B'y'TE :::HOULD BE CHtit'jGED::'
'30
I
Cot'1
1000
lee
DIM InputS[16e]
ALLOW FOR 160 CHARACTER STRING
1113
INTEGER Select code
BASIC VARIABLE TO
HC~D
THE SELECT CODE
1
~~e
I tiS::;Et'1BLE
1
:::0
I
HPUT
II
::;ELECT CODE TO F.:Ei=tD FRet,,!,,?!I,
~:;e
1
E'C 1:,_::: ode
140
m,j
nH
#::;e
1
ec
t
COdE:' GO TO I:=T
don~::'
::;ET UP
nm
OF L
It',:E
BF.:At'jCH
-
-
15(~!
ICfLL EntE't-' ___ !;)F:.i':",, __ int(::::elec
1
:,_codE')
!
::::Tf'iRT THE READ OPERiiTIOH
11::;0
!
17[1
I
CAI....L F::E',3,d j""'e::::,i ..
41 \. . : : I
npl.n,:$:)
1::;(1
I!I::;F' iIF'FiR··(ff:iL.
;:;:~E::;:JL."r:::::!';; Il···lf)t~t.$
WHILE WAITING RJR IT TO CCMPLETE.
DISFLAY THE PARTIFL RE8UI....TS
'
1
'3[1
GOTO
1
?~J
~:;::1~i
L:.f'"
donE':
ICALL
F:E',3,d,_,r"'E':=,U'!\.(Inpi..~tS)
,'220
DI::;P
II
HlPUT Cm'1PLETE •• " :::TPH,jG:::"; Input:$:
i"Fit'i
Enter~_",qpi
o_,i nt
26~J
:::OUF<:CE
:::OURCE
E>:;"r
C~t~·t
!').:'=i
OJ
: .
..J~=',
FltJt.
!.).::t.'~ t~t-:::·.
Er··r-·cij···:._E::'>::
-j
t.,
I
:::.f-~.-::t.C
C E":::·:=·
29~1
3~Xi
:310
:::::!:;~i
:36l1
::f.2~.3
;~~:~! ~:i
SOURCE Select code:BS;
:::OURCE :::,::i'''!!::<:::5:
~::;CHJRCE
Cr":
EQU l3
SOURCE Lf:
EQU 10
:::QURCE En::i,!::'
1.E'
f;'>:~5k ~
EOU
~:;::0~m
SCiURC:E
30URCE
30URCE
::;OUF:CE
F.:
CiiJ T H1E:::; TO HjF'UT i:i
::;"n::: If';c;
IHTEPFACE U3ING IHTERRUPT.
RESERVED TO HOLD SELECT CODE
!
RESERVED FOR 160 CHAR STRING
FiTE POINTER FOR ISR
!
TEr'1P FOR I SR
TEi"lP FOR
I :::;F:
EQUATES FOR CR/LF
98032 INTERPUPT ENABLE
MA~¥
FOLLOWED BY LF FROM A GPIO-LIKE
::;OUF:CE
SOUF:CE
EHTRY F'OINT:
Enter
o lnt
SOURCE
PARAMETER:
1)
INTEGER COHTAINING SELECT CODE
::;Ol...!f<:CE
I
POSSIBLE ERRORS:
19
SELECT CODE OUT OF RANGE
164
CARD OR F'ERIFHERAL DOWN
450
SOUPCE
1
t
4?0
SOURCE
SOURCE
PARAMETER:
540
':::OI...lF:CE
!
':;OURCE En'\,ET
'::OUF'CE
::;OURCE
::;OtWCE
620
SOURCE
I
f'~T
oint: LDA =Selec
GET THE SELECT CODE FARM
!
UJAD A WITH 3ELECT CODE
CHECK FOR VALID RANGE (1-14)
GIVE ERROR 1'3 IF 3ELECT CODE
1 ::;.
OUT OF
RAf,~C;E
Advertisement
Table of Contents
