Radio Shack TRS-80 Operation Manual page 114

Computer Graphics Operation Manual
TRS-BO@
. .
~
~fHU8
JR NZ,BIT
~~~49
POP BC
~gg5g
DJNZ BYTE
~gg5l
~gg52
LD A,
240'
ggg53
CP C iLast Y address?
ggg54
JR Z, DONE
0'0'0'55
SLA D iNext bit in buffer
ggg56
JP P,NEWRW
~gg57
~gg58
CALL PRINT iPrint buffer
ggg59
JR
NEWLN
~gg6g
·
,
~gg6l
DONE CALL PRINT
ggg62
LD A,~FCH
ggg63
OUT
(STATUS) ,A
~gg64
LD HL,EGMODE iTurn off graphics print
ggg65
LD B,l
0'0'0'66
LD
c,,0DH
ggg67
CALL PRLINE
~gg68
POP IX
~gg69
POP
BC
~gg7g
POP DE
ggg71
POP HL
,0gg72
XOR A
,0gg73
RET
ggg74
·
,
,0gg75
PRINT
PUSH BC
0'0'0'76
LD DE,,0
iOffset for print buffer
0'0'0'77
PART
LD HL,BUF
0'0'0'78
ADD HL,DE
~gg79
XOR A
ggg8~
CP
(HL)
iEnd of buffer?
0'0'0'81
JR Z,EPRT
0'0'0'82
LD BC, (CTL)
0'0'0'83
CALL PRLINE
~gg84
LD HL,214
0'0'0'85
ADD HL,DE
iNext part of buffer
~gg86
EX
DE,HL
~gg87
JR PART
~gg88
EPRT
POP BC
~gg89
RET
0'0'0'90'
·
,
.00'0'91
PRLINE EQU
$
iPrint a line. HL==>line to print
0'0'0'92
PUSH
DE
ggg93
PRL2 LD A, (HL)
iB = # characters to print
0'0'0'94
INC HL
iC
=
EOL char (sent after line)
~gg95
CALL
3BH iHL, BC, AF, and DE used
0'0'0'96
DJNZ PRL2
---------lIadlOlllaell---------
-84-