Radio Shack TRS-80 Model III - Page 76

TRS-80
MODEL
III
V"
\—
I
Sample Z-80
Programmin
'8
00070
;
INPUT
A
KEYBiJARD
MESSAGE AND WRITE IT TO CASSETTE
8162
CDC901 0007
1
CALL VOCES
8
1 65 3E0D 00072 EUUP1
LD
A
, 0DH CARRIAGE RETURN
8167 CD3300 00073 CALL.
VDCHAR SKIP TO NEXT DISPLAY LINI
B16A 21A0B1 0007 4 LD HLiMSGl PROMPT MESSSA6E
S 1 6D
CD 15302 000 75 CALL
VDLINE
DISPLAY IT
8170 21EA81
00076 LD
HL.TXT1 256-BYTE
BUFFER
8173 06FF 00077
LD B,255
MAX
OF 255 CHARACTERS
8175 CD4000
0007B CALL KBL I
NE GET A
LINE FROM
KB
8178
38EB
00079 JR
C, LOO PI
LOOP IF <BREAK> WAS PRESS!
B17A 3E0D
00080
LD
A-0DH
81
7C
CD3300 00081
CALL VDCHAR
SKIP A LINE
BI7F CD4230 00082
CALL
BETCAS LET
USER SELECT BAUD RATE
8 1 82 2 1 B38
1
00083 LD
HL , MSG2
CASSETTE
PROMPT
8 1 85 CD1B02
00084 CALL
VDL 1
NE
8188 CD4900 00085 CALL. KBWAIT
WAIT UNTIL A KEY
IS
PRESSI
8 1 SB
CD8702 00086
CALL.
CBHWR WRITE CASSETTE HEADER
8 1 BE 2 1 1AS 1
00087 LD HLiTXTl
<
HL
)
=ME5SA6E
8191
7E
00088 LOOP
2
LD A
,
< HL )
A==ABCII
BYTE
8192
23
00089
INC HL
POINT
TO
NEX 1 BYTE
8 1 93 CD6402 00090 CALL
CBOUT
WRITE LAST BYTE TO TAPE
8 1 96
FE0D 00091
CP
0DH WAS
IT
A
CARRIAGE RETURN'
8198 20F7 00092
JR NZ,L00P2 IE NOj
THEN GET NEXT BYTE
8 1 9A
CDF80
1
00093 CALL
CBOFF
IF
YES,
TURN OFF CASSETTE
8191) C3191A 00094 JP
READY
81A0 54 00095 MSG1 DEFH 'TYPE
IN A
MESSSAGE
'
81B2 0D 00096 DEFB 0DH
81 133
4D
00097
MSG2 DEEM ' HESSSAGE
STORED. PRESS ANY KEY
WHEN
READY
81E9 0D 00098 DEFB 0DH END
OF
LINE
B 1 EA
00099 TXT1 DEFS 256
ED
ED
TO RECO
For
a
program
to read the tape in, see SCSHIN.
$CSOFF
—
504/X01F8'
Turn
Off Cassette
After
writing
data to
cassette, call this
subroutine
to
turn
off the
cassette
drive.
Entry
Conditions
None
Exit
Conditions
None
Sample
Z-80 Programming
SeeSCSHWR.
66