Закрашивание прямоугольной полосы

Пример 3.12. Закрашивание прямоугольной полосы

stripe: PushReg <di,cx,Cur win>	; сохранение di, ex и Cur win
fillbar: push ex	; сохранение текущего значения сх
mov ex, horsize	; задание размера строки
call horline	; вывод очередной строки
pop ex	; восстановление счетчика строк
loop fillbar	; управление выводом строк
PopReg <Cur win,cx,di>	; восстановление Cur win, ex и di
call SetWin	; восстановление исходного окна
ret	; возврат из подпрограммы

Выполнение подпрограммы примера 3.12 начинается с сохранения в стеке содержимого регистров di, сх и переменной cur_win. Закрашивание производится в цикле, имеющем метку fillbar. Регистр сх используется в этом цикле в качестве счетчика. Кроме того, в нем передается размер строки для подпрограммы horline. Поэтому в начале цикла содержимое сх сохраняется в стеке и восстанавливается после возвращения из horline. Благодаря этому команда loop fillbar работает с той величиной, которая была указана в регистре сх при обращении к подпрограмме stripe.

После завершения цикла fillbar восстанавливаются сохраненные в стеке величины и исходное окно видеопамяти, для чего вызывается подпрограмма setwin. Последняя команда выполняет возврат из подпрограммы.

В рассмотренном примере ширина полосы равнялась ширине рабочей области экрана. В таком случае после записи последней точки текущей строки автоматически происходит переход к началу следующей строки, для этого не нужны никакие дополнительные действия подпрограммы. Если же ширина прямоугольной области меньше Horsize, то адрес начала следующей строки должна устанавливать подпрограмма.

Содержание  Назад  Вперед