Radio Shack TRS-80 Model III - Page 78

TRS-80 MODEL III
$DELAY
—
96/X0060'
Delay
for
a Specified
Interval
This is
a general-purpose
routine to
be used
whenever you
want
to pause
before
continuing
with
a program.
Entry
Conditions
BC
=
Delay
multiplier.
Actual delay
will be:
2.46
+ (14.8 *BC)
microseconds
When
BC
=
0000,
65536 is used.
This is
the
maximum
delay
(about one
second).
Exit
Conditions
BC
and
A are
altered.
Sample
Z-80
Programming
f'i0112
; SHOW
ALL
DISPLAY
CHARACTERS.
WITH
DELAY
AFTER
EACH
3E2B
001 13
CENTEI
i E<3U
3E20H
ROW
B. COLUMN
32
OF
VIDEO
8311
CD6900
001
14
CALL.
INITIO
RESTORE
ALL I/O
DRIVERS
83
1
4
CDC901
00
US
CALL
VDCLS
FIRST
CLEAR
SCREEN
83
1 7
3E00
00116
LD
A,0H
8319
I31FF7F-"
001
17
LD
BC.7FFFH
SLI
1/2
SEC DELAY
FACTOR
831
C
32203E
00118
L00P3
LD
(CENTER)
,
A
WRITE
CHARACTER
TO
VIDEO
83 IF
F5
00119
PUSH
AF
SAVE
LAST
CHAR. CODE
8320
C5
00120
PUSH
BC
AND DELAY
FACTOR
B321
CD6000
00121
CALL
DELAY
8324 CI
00122
POP
BC
8325 F1
00123
POP
AF
8326
3C
00124
INC
A
NEXT CHAR CODE
8327
20F3
00125
JR
N7.LOOP3
IF NOT ZERO.
DISPLAY IT
8329
C3191A
00126
JP
READY
ELSE END
$INITIO
—
105/X0069'
Initialize All I/O Drivers
Call SINITIO to
restore
all I/O drivers to their initial default conditions,
including
I/O
routes.
Entry
Conditions
None
Exit Conditions
All
registers
are altered.
68