Radio Shack TRS-80 Model 3 - Page 76

TRS-80 MODEL III
Sample Z-80 Programming
0121070 ; INPUT
1\
f,EYBOAnD
MES£~M1E AND WRITE
n
TO CA~3SETTE
H162
COC901
00071 C/\I .... 1. VDCLS
B16:::,
3E0D
00072 LOOPl
LD
A,0DH
CARRIAGE RETURN
H161 CD;3300
00073 CALL VDCHAR
ShIP TO NEXT
DISPLAY L~INE
E:16A 21 A0El1
0Q)(£:17
L
f
LD HL,MSG1 PROMPT
MESSSA(;E
B16D
CD1B0:;~
00015 CAU. VDL.INE
DISPLAY
IT
0170 21EABl 00076 LD
!-·IL., TXT 1
256-BYTE
BUFFER
Ell ?J
lZJ6FF 00077
LD
I.-?, 25:')
MAX
OF :25~5
CHARACTER~3
[l17S CI)Lf000
00078 CALL
f\BL. I Nt: <:iET
A LINE
FROM
f\B
13178 3BE13
0'10}9 JR
C,LOOPl
LOOP
IF
<BREAfC· WAS
PRESSED
B17A
3E0D 00080
L.D
A,0DH
817C CDT300 000Ell CALL
VDCHAR
ShIP A LINE
t.:17F
CDL,·230
0008:2
CALL
SE'TeAS LET
USER
SEl.ECl BAUD
RAIE
8:lf.3:i:
:21B3Bl
'10li.H33
L.D
HL,I'1SG:2
CASSETTE
PROMPT
8185 CD1B02
000ElLf
CALL
VDLINE
BiBB CD4900 00085
CAL.L
hBWAIl
WAIT
UNTIL
A
f\EY
IS
PRESSED
BiBB CD8702 000El6 CALL CSHWR WRITE
CASSETTE HEADER
l318E 2H:::AB1 00087
I....D
HL,TXTl
(HL ) ::::I"!EBSAGE
B191 7E
000ElB LOOP2 L.D
A, (HL)
A=:ASCI I BYTE
B192
2;"~
Ci.l0089
INC HL.
POINT
TO NEXT BYTE
El193
CDc.,Lf02
00090 CALl
CSOUT WRITE LAS'"
BYTE TO
TAPE
D196 FE0D
00091 CP 0DH
WAS
IT
A
CARRIAGE
RETURN?
8198 20F7
00092
,..TR
NZ,LOOP2
IF
NO,
THEN GET
NEXT BYTE
B19A
CDF8'1l '10093 CAL.L
CSOFF
IF
YES,
TURN OFF
CASSETTE
El19D C3191A 00094 JP READY
81M)
5'+
00'195 MSGl DEFM 'TYPE
IN
A
MESSSAGE'
B1B2
0D
00096
DEFB
0DH
8183 4D 0'1097
I"IS(~2
DEFI"! 'MESSSAGE
STOHED.
PRESS ANY
hEY WHEN
READY TO
RECORD ••.
,
EllE9
0D 00098 DEFB
0DH
END
OF
LINE
B:LEA '10'199 TXTl DEFS 256
For a program to read the tape in, see $CSHIN.
$CSOFF- S04/X'OlF8'
Turn Off Cassette
Afterwriting data to cassette, call this subroutine to turn off the cassette drive.
Entry Conditions
None
Exit Conditions
None
Sample Z-80 Programming
See$CSHWR.
12/8