Radio Shack TRS-80 Operation Manual page 115

Computer Graphics
Operation Manual
TRS-BO@
~
~~~97
LD A,C
~fl~98
OR
A
~flfl99
CALL NZ,3BH
~fl1flfl
POP DE
~fllfll
RET
~fllfl2
.
,
~fl1fl3
INITG -- Initialize Model III Graphics Board
~fllfl4
.
,
~fl1fl5
INITG LD
A,1flH
~fllfl6
OUT (236) ,A
;Turn on port
flfllfl7
LD
BC,15
~fl1fl8
LD HL,DATA
~fllfl9
LOOP
LD
A,B
;Program CRTC chip for 8~ by 24
flfl11~
OUT
(136) ,A
~fl111
LD A, (HL)
~fll12
OUT
(137) ,A
~fl113
INC HL
~fl114
INC B
~fl115
LD A,B
~fl116
CP C
~fl117
JR
NZ,LOOP
~fl118
RET
~~119
DATA DEFB 99
~fl12fl
DEFB
8~
~
~fl121
DEFB 85
~fl122
DEFB
8
~fl123
DEFB 25
~fl124
DEFB 4
~fl125
DEFB
24
~fl126
DEFB 24
~fl127
DEFB
10
~fl128
DEFB 9
~fl129
DEFB
10
~fl13f1
DEFB
~
~fl131
DEFB
~
~fl132
DEFB
10
f1fl133
DEFB
10
f1fl134
DEFB
10
~fl135
;
~fl136
BGMODE DEFB
12H
~fl137
EGMODE DEFB
lEH
1010138
CTL DEFB
10 ;Print 214 char, followed by null
f1fl139
DEFB 214
~fl14~
BUF
DEFS
64~
~f1141
DEFB
10 ;Filler
~f1142
DEFB f1DH
;Carriage return
~fl143
DEFB
~
;End of buffer signal
f1fl144
X EQU
8f1H
~fl145
y
EQU 81H
~
lIadl8l11aell
-85-