Table of Contents
Advertisement
254
Appendix H: I/O Sample Programs
64~::i
6:~50
660
6'30
·?CC
';;;;O:'.JF.~CE
::::Oi . .JF:CE:
::::Ot.iF:CE:
:;:;OUFCE
:;:;OUF:CE
:;;;;Ci..JFCE
:::;Oi...lF:CE
:;::OUF:U::
' : ;:OI..Ji?CE:
:::;OUPCE
'::;OUf~:CE:
' : ;;OI...lFCE
SOUf~:CE:
8S0
srn.JF.£E
CF'A
L..:D:B
:::::i'"
L..IiA :::;t.::t t.
iJ~::,4
t:ii"1I~
:::::::~·(iI::
I....DH
::::!:=.iCI:i.
}:::;I'·j
Fl····j···.:::.!""··
L.Dr{
=I\::i.t.:i
C: 1:: L.
. . mF
i?E·r
:;::IJB
I
t·rr
~=;l]fJF:~C:E
I::i"""it.
!·).::~.r··:
~:::;TF:
'340
1010
i
~~i2fi
SOUF:CE
1···1(,1
c:......;:::·nter···
~
L.DE =E:nt
!==,::j.r·m
:::;OUFCF
:::;OUFCE
PET
1
Ar·m
:::;;::fiF
F:ZA
.;.:.+:3
CHL.L SFTUF
ROUTIN~
i
IS THERE A DATA
FARHME:rEP~
NO, RE:TURN TO BHSIC
CHECi<
DO
l···!CrrH I !···lG
l' . iE;: r:iF'E: .. -:
;.':~
..... :;;ET
I
EL.SE GIVE: EPROR 501
!
OI . ..!TF't.IT H B,":'TE
SEE IF DONE WITH STFING
DONE, SO GO RPC: TO BASIC
!
CAL.L. SETUF ROUTINE
IS THERE H DATH
PF~AMETER?
NO,
l~EN
I/D DONE
!
1'11::II<E :::;I...!F:E
:r.
···!·' 1 H L..E;TE}·iE!?
LDA =502
EU3E GIVE EPROR 502
104~]
:i.(15C
i.~]60
1(1?0
1
~J;:::~~i
10'30
11~jO
111(1
l12~j
11:~;;0
; 17,.:<
.!oJ-i
I:'}
11'30
12~3fi
i;~~1~3
i22(i
L.DA =0
CLE:AP DATH STPING CC0NTER
SOUFCE
::;:;rA IL:::.
t
·::i
LDH =D3.i:..:i
ADr~1
:::1
::T=i C
CBL
SOUPCE Enter
loop:
SFC . ; . : .
SOURCE
LDA R4
:::;OUPCE
LIlA
!~S
CPA =Cr··
CPA =Lf
Ji'iP
Ent
clone
PEC A, I
I ::: 2: D.::;.
t
.3.
~~l
UP BYTE POINTER FOR DATA
STAPT ACCEPTOP HHNDSHAKE
READ DHTA
FP(~
CAFD
E: I T A
F:ETU~J(::O
IF SO, IGNORE IT
IS IT TERMINATOR?
ELSE PUT BYTE INTO STPING
BUMP STPING LENGTH
REPEAT FOP NEXT BYTE
Advertisement
Table of Contents
