Графические устройства
Закрашивание прямоугольной полосы
Пример 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, то адрес начала следующей строки должна устанавливать подпрограмма.
