Table of Contents
Advertisement
65~J
670
6:::~3
69~:1
710
'300
91
~:1
920
930
940
990
1~':'100
H~i10
1[120
H3:~:O
1060
1~37ti
10:::~:i
1090
IHh3
1110
1130
1140
i
-i
.'-1-01:
11'='>':'
i
170
1 i::)3
1190
1200
i210
122~J
of
'-1'-11-.1
1
.:::.-.:'"~!
L..DA ::;.:,·1 ec
t
code
::;Tf:j
p:::.
~:;::;C:
C:.:ir·c!
ijC:i.=.i:'··1
LIlA
=
I
:=~r"
Appendix H: I/O Sample Programs
245
SEE IF CAPD IS OK
FIRST COpy SELECT CODE TO PA
::;KIP IF
DOW'4
::;ET UP
Ar'~
ISR
::;O!...!f~:CE
::;OUPCE
SOUPCE
::;Oi...1F.: CE
::;OUPCE
::;OUF.:CE
::;j]UI~:CE
::;OUF.:CE
::;OUF.:CE
L..DB =(iO*256)+(1*16)!
ADB
::;e'l
<:'C
t
C
odo::'
i0 TRIES. PESOURCE=1=ASYNC
.JSt'1
:r.
:::.r-·
·::!.cc
Eo';::·:::'
::;TA
::;t r- i
r'iI;!
LDA ::::::::;tr'inq
I=ml:j
=1
STA
B~~e
pointer
IF
COULDN~T
GET IT, RETPY
IHITU'1LI::E :E;'r'TE COUHT OF
STRING BUFFER AREA
::£T UP B,"!'TE
POIHTEI~:
FOP E;F.:
I
TO PUT
C Hfi
F.:::;
It~TO
:::rrR I ['iG
::;OUPCE
::{IUPCE
::;OUPCE
::;OI...iPCE
::;OUPCE
SFC *
WAIT FOP CAPD
LDA R4
START FIPST INPUT OPERATIOH
::;OURCE
C:::.t"··d dC,I ...
II···I:
SOURCE
':;OURCE
RET
LDf1 =164
.J:::;
t' 1
Er-r'0
t-·
e>:: i
i:.
::;CIi..JRCE
P::;;r'ri"!
::;.tr·:
::;Tf~:
::;OURCE
F.:e.::id
(·e~::·iJ
1
t : LDf1 =::;t
r'
i
1"';;;;i
SOUPCE
LDB =Parm str
::;OURCE
::;OUF-TE
::{IURCE
::;OUF.:CE
SOUF.:CE
SOURCE
::;OUF.:CE
::;OURCE
SOUF.:CE
::;OUF.:CE
::;OURCE
::;OURCE
::;OUPCE
::;OUF.:CE
~:ET
L.DA :34B
::;TA
::::~;F
L_I1i=i
CBL.
L.I1A F.:4
LIlA C
::;TA
B! .
..'te
pDinter'
LIlA
::;t
to.
inq
i=iDA
=i
::; Hi St. r"'i
r-<~
CPA =160
SOURCE
.JMP Terminate
SOURCE
another: STA R7
SOURCE
JMP Exit
::;OURCE
SOURCE Terminate:
LDA
=0
SOURCE
STA R5
::;OURCE
':;OUPCE
:=.:;otJPCE
:=' : ;OUF-:CE
ADA =-.;::
.JSM End i:::.r
low,I
..It'IF'
*+2
3SM End
i~~
iqh,I
EHAFLE THE CARD TO IHTERRUPT
GO BACK TO BASIC.
SINCE I' AM GOIHG TO DO STACK
OF'EF.J=iTI
ut·E,
I t' 1 U::::T :::;F!"/E
3:;
AND INITIALIZE IT
SET UP THE BYTE POINTER
SO I CAH PUT A DATA BYTE
FHO THE ::;TF:
I
He;
I
C;ET THE t··!E>-:;T CHARACTER F F. :
01'1
THEH CARD ••• IC;NORE CR/S
IF LINE FEED, THE TERMINATE
THE I
':;R
TFJH·~::::;FEf<:
EL:=' : ;E PUT CHAF'i=iCTEP I
r·i
STR I
i···iC
I
SAVE NEW
E~TE
POIHTER
HAVE WE RECEIVED i60 CHARS
IF YES, THEN SHUT DOWH
START ANOTHER HANDSHAKE
THEN EXIT THE ISR
DEPENDING ON WHETHER
n~E
SELECT CODE IS HIGH, OR L.OW
CALL THE CORRECT TERMINATION
Advertisement
Table of Contents
