Download 4 - Textfiles

TS 800 User's Manual
.
,
to fill a square with the selected fill attributes using the
ihorizontal scan routine (c=7).
iSquare's corner points (xl=100,yl=50), (x2=200,y2=50), (x3=200,y3=100),
i (x4=100,y4=100) •
iHow
.,i
fill:
loop2:
mvi
lxi
roov
inx
mov
xchg
mvi
rst
mvi
lxi
mov
inx
mov
xchg
mvi
rst
rovi
lxi
mov
inx
rnov
xchg
rnvi
rst
c, 15
;Set fill interior style.
h, OFFOOh
e, m
h
d, m
;hl points to top of parameter table.
m, 3
;Select cross-hatch fill style
5
c, 16
;Set fill style index.
h, OFFOOh
e, m
h
d, rn
;hl points at top of parameter table.
rn, 0
;select vertical cross-hatch style.
5
c, 17
;Set fill color.
h, OFFOOh
e, m
h
d, m
m, 1
;hl points to top of paramteter table.
;select color = white.
5
lxi
h,
rnov
e,
inx
h
d,
rnov
xchg
m,
rnvi
inx
h
mvi
m,
inx
h
ro,
mvi
inx
h
mvi
m,
inx
h
m,
mvi
inx
h
mvi
m,
b,
mvi
push
b
c,
mvi
rst
5
pop
b
h,
lxi
move,
TeleVideo Systems, Inc.
OFFOOh
m
m
50
ihl points to top of parameter table.
;load y coordinate.
0
100
;load xl coordinate.
0
200
;load x2 coordinate.
0
50
iload scan line count.
isave count
7
;select horizontal scan routine.
OFFOOh
m
Page 6.25