TRS-80 MODEL III
$DELAY
-96/X'0060'
Delay for a Specified Interval
This is a general-purposeroutine 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
3E:::~(2)
£)311
B:31't
rU17
FD19
BJ1C
831F
E:3::'::'0
E33::;-~
1
E::324
B,3~~:5
ElJ26
E3327
ElJ29
CD6900
CDcc/ll11
3E0'.1
01FF7F
32203E
F~':i
(;:)
CD6000
C1
F1
3C
20F'3
C3191A
~/1011:?
00113
0011A
0011')
00116
00117
0'.1118
00119
00120
00121
001
::.:::~~:
00123
001::;::4
00125
001~::6
;t:;HOW
ALL
DISPLAY
CI-·IARACTERS,
CENTER
EQU
3E20H
CALL
INITIO
CM
..
I
VDCLS
LD
A,0H
LD
BC,7FFFH
LOOP]
LD
(CENTER),A
PUSI-i
AF:
PUSH
BC
CAL.L
DELAY
POP
BC
POP
AF
INC
A
JR NZ,LOOP3
,-TP
READY
WITH
DELAY
AF1ER
EACH
ROW
8,
COLUMN
32
OF
VIDEO
RESTORE
ALL
I/O
DRIVE.RS
FIRST
CLEAR
SCREEN
SET
1/2-SEC
DELAY
FACTOR
WRITE
CHARACTER
TO
VIDEO
SAVE
LAST
CHAR.
CODE
AND
DELAY
FACTOR
NEXT
CHAR
CODE
IF
NOT
ZERO,
DISPLAY
IT
ELSE
END
$INITIO-IOS/X'0069'
Initialize All I/O Drivers
Call $INITIO to restore all lIO drivers to theirinitial default conditions, including
110
routes.
Entry
Conditions
None
ExitConditions
All registers are altered.
12/10
To Next Page
Loading...
