© Матюшев Александр, г. Сланцы, 1996.

ПРОЦЕДУРА ПЕЧАТИ 42 СИМВОЛОВ В СТРОКЕ.

В ZX-РЕВЮ 95/5 на стр. 29 Вы поместили статью Сергеева Дмитрия "Процедура печати 42 символов в строке". Идея, заложенная в процедуре, мне понравилась. Давно хотелось иметь для использования в своих программах быстродействующую процедуру печати 42 символов в строке, полностью независящую от ПЗУ компьютера. Никак не хочу обидеть автора программы, но детально разобрав работу процедуры, удалось путем замены некоторых команд, новой процедуры расчета адреса атрибутов (позаимствована у Патрахина В.В., ZX-РЕВЮ 94/6, стр. 34), использования управляющих кодов в тексте, размещения переменных "ST" и "MNB" прямо в процедуре, существенно сократить объем и увеличить быстродействие процедуры. Использование управляющего кода "АТ" (#16) осталось таким же, управляющие коды "INK", "PAPER", "BRIGHT", "FLUSH" объединены и рассчитываются стандартно: INK+PAPER*8+BRIGHT*64+FLUSH*128. В тексте это число должно стоять после кода 16(#10). Встретив его, процедура положит следующее за ним число в переменную ATTR_T (23695=#5C8F) и установит временные атрибуты печати. В итоге получилось следующее:

A

(YTXT),A A

(XTXT),A A, (HL) HL A Z

32

C,WRIT2 PRSYM WRITE 16

N Z,WRIT3 A, (HL) (23695),A HL WR2 22

N Z,WRIT4 A, (HL) (YTXT),A HL

A,(HL) (XTXT),A HL

WRITE A, "?"

WRIT1

HL L,A H, 0 HL, HL HL, HL HL, HL DE,15360 HL, DE HL

DE, (XTXT)

A, E

A, A

E,A

A, A

A, E

E, 255

L,8

E

L

NC,CHPL1 A, L H,A A, L H

(SL1-1),A

(SL2-1),A A, D #18 A, #40 H,A A, D 7

Если использовать символьный набор шириной 6 пикселов, прижатый к левому верхнему углу знакоместа, можно изменить строку N900 на LD C,6, что сократит время выполнения цикла. Если не предусматривается возврат в BASIC, строки 410 и 1090 можно убрать, если нет необходимости сохранения регистров, которые будут испорчены процедурой, можно убрать строки 400 и 1100.