Radio Shack TRS-80 Model III - Page 86

TRS-80
MODEL
III
Exit
Conditions
DE
is altered.
Sample
Z-80 Program
832 C
AF
832D
32FA41
8330
CD5A00
8333
CDC901
8336
CD2B00
8339
FE00
833B
2806
833D
CD3300
8340
CDS 5 00
8343
21E841
8346
CDS
000
8349
7E
834A FE00
834
C 28E8
834E
CD3300
835
1
18E3
£(353
C3191A
00127
00128
00129
00130
;
00131
00132
00 1 33
00134
00135 KEY
IN
00136
00137
00138
00139
00140
RSIN
00141
00142
00143
00144
00145
00146
00147
TERMINAL
PROGRAM
FOR DEMO
OF
ASSUME
16888
8: 16889
CONTAIN
XOR
LD
CALL
CALL
CALL
CP
JR
CALL
CALL
LD
CALL
LD
CP
JR
CALL
JR
JP
A
( 16890)
:
RS
I N I
T
VDCLS
KB CHAR
Z.RSIN
VDCHAR
RSTX
HL.
1687:
RBRCV
A. (HI.)
Z , KEY
I
N
VDCHAR
KEY IN
READY
A
RS--232-C
CALLS. 4-KBCHAR
AND
SVDCHAI
THE PROPER
INITIALIZATION
VALUES
ZERO
A TO SELECT
"DON'T
WAIT"
CHECK KEYBOARD
IF NOTHING;
CHECK RS232
SELF-ECHO
SEND IT TO
RS232
<HL)=CHAR. INPUT
BUFFER
CHECK
FOR RS232 INPUT
GET BUFFER CONTENTS
IF NOTHING.
CHECK
KB
ELSE DISPLAY
IT
CHECK
KB
RETURN
TO BASIC
$RSRCV—
80/X0050'
Receive
a
Character
from
the
RS-232-C
Interface
IfRS-23
2-C Wait
is enabled,
this
routine waits
for a
character
to be
received,
or until
[BREAK)
is pressed.
If Wait
is not
enabled,
it returns
whether
or not a
character
is received.
Entry
Conditions
None
Exit
Conditions
(16872)
=
Character
received
. Zero
indicates no
character.
DE is altered.
Sample
Z-80
Programming
SeeSRSlNlT.
76