FORUM

Как эффективнее всего освоить машинные коды? Опыт показывает, что лучше всего освоение проходит, когда берешь какую-нибудь несложную готовую программу в машинных кодах и пытаешься понять, что и как там делается. При этом неизбежно возникает вопросы: "А почему так? Может можно все это сделать по-другому?" Начинаешь пробовать сделать по-другому и выясняется, что по-другому не выходит. Тогда становится понятно, почему автор организовал программу именно так, а не иначе. Но иногда встречаются ситуации, когда приходят действительно ценные идеи. Именно потому, что "ход мысли" начинающего еще не оформился в каких-то рамках, он не знает, что "можно", а что "нельзя". И он пытается выполнить задачу по-своему, а это зачастую приводит к находке новых, оригинальных решений.

Александр Балашов из г. Конаково Тверской обл. пишет нам о том, что он начал заниматься машинными кодами совсем недавно. Исследуя программы компрессии и декомпрессии, опубликованные в "ZX-РЕВЮ" N 1-2 за 1991 г., Александр обратил внимание, что под счетчик числа одинаковых байтов используется двухбайтный регистр BC. Учитывая организацию экранной области "Спектрума", он предположил, что выгоднее, видимо, использовать один байт, так как 256 байтов перекрывают 8-ю штрихами третью часть экрана и старший байт двухбайтного регистра BC используется лишь при практически пустом экране. Число, записанное в этом регистре занимает в скомпрессированном блоке 2 байта, один из которых почти всегда в нуле.

Этот факт побудил Александра разработать свою программу компрессии, в которой под счетчик числа одинаковых байтов он использовал только регистр B. Этот вариант позволяет получать длину скомпрессированного блока на 10-20% меньшую. Лишь при почти незаполненном экране, когда длина скомпрессированного блока меньше 300-400 байтов, длина его скомпрессированной картинки равна или уступает указанному варианту компрессора. Кроме того, его вариант не приводит к сбоям, которые могут иметь место при определенных ситуациях в варианте компрессора, упомянутом выше.

Александр приводит результаты сравнительных испытаний двух компрессоров для взятых наугад нескольких экранов игровых программ. Вот полученные длины скомпрессированных блоков (в байтах) соответственно для двух вариантов компрессоров:

Вариант компрессора, который приводит Александр, заинтересовал нас и мы провели тестирование присланного им блока кодов, которое подтвердило основные моменты, изложенные выше. Но выяснилось, что полученный скомпрессированный блок кодов нельзя загружать для декомпрессии под любой адрес, а только под адрес, в котором он был скомпрессирован. Это серьезное ограничение для пользователей, которое может свести к нулю преимущество нового варианта компрессора. Хотя проблема в общем-то решается довольно просто. Те, кто регулярно читают "РЕВЮ", наверняка знают, как осуществить привязку к конкретным адресам загрузки.

Мы сделали такое усовершенствование программы, присланной Александром. Изменения коснулись программы декомпрессии (она стала длиннее на 7 байтов), из-за чего пришлось на 7 байтов отодвинуть программу компрессии в сторону младших адресов. В таком усовершенствованном виде мы предлагаем программу читателям (см. Лист. 1)

Листинг 1.

В HL указатель адреса в экранной области.

В BC счетчик байтов экрана. В DE задан адрес, куда будет производиться компрессирование.

PUSH DE

DEC DE INC DE

LD A,B OR C

JR Z,#7FC3 LD A,(HL) LDI

CP (HL)

JR NZ,#7F97 DEC C INC C

JR NZ,#7FA9 DEC B INC B

JR Z,#7FC3 LD (DE),A

INC DE

EX AF,AF'

LD A,#00 INC A

JR Z,#7F96

LD (DE),A INC HL DEC BC DEC C INC C

JR NZ,#7FBC DEC B INC B

JR Z,#7FC4 EX AF,AF'

CP (HL) JR NZ,#7F96 EX AF,AF' JR #7FAE

Он запоминается на стеке для того, чтобы потом можно было вычислить длину полученного скомпрес-сированного блока. Эта операция выполняется ввиду того, что при возврате из операции подсчета повторов и сравнений байтов в DE должен находиться адрес первого байта пустого места. Проверка BC на ноль, то есть определение конца компрессирования. Если ноль, то переход на END1 в аккумулятор заносится байт из экранной области и переносится по адресу, который указан в DE. DE и HL увеличиваются, а BC - уменьшается на единицу. Сравнение следующего байта с предыдущим.

Если не равны, то возврат на L1. Проверка BC на ноль (конец). В данном случае нельзя использовать аккумулятор, т.к. в нем находится байт из экранной области, который сравнивается со следующим.

Загрузка первого повторяющегося байта в приемник. Приращение DE для того, чтобы организовать по этому адресу счетчик повторов. Один повтор уже есть, поэтому сразу заносится единица, а не ноль. Это оказывается удобнее при декомпрессировании. Сохраняем в A экранный байт, вызываем альтерн. регистр для орга-низании в нем счетчика повторов. Как было сказано выше, в счетчик сразу заносится единица. Здесь будет организован счетчик повторов. Проверка на переполнение. Максимальное число повторов - 255. Запись в приемник числа повторов. Переход к следующему байту экрана. Уменьшение счетчика байтов экрана. Проверка BC на ноль без

задей-

ствовования

аккумулятора.

Обратный обмен регистров для сравнения текущего байта с предыдущим. Сравнение.

Если не равны, то возврат на L1 Если равны, то восстанавливаем счетчик повторов и переходим на L3 для наращивания счетчика. Эта операция нужна для того, чтобы при выходе из программы компрессии в DE содержался адрес последнего байта скомпрессированного блока. Берем последний байт из DE, инвертируем его

и записываем в следующий адрес ;

LD (DE),A

EX DE,HL POP DE

XOR A

SBC HL,DE

LD (#7FE5),HL

LD BC,#0026

XOR A ACD HL,BC PUSH HL POP BC INC BC RET это сделано для упрощения декодирующей процедуры, т.к. в ней можно будет избежать лишней проверки счетчика на ноль. Обмен DE и HL для сохранения DE. Возвращаем со стека начальное значение DE.

Сброс флага переноса, необходимо для выполнения следующей команды. Отняв от конечной величины DE (которая теперь в HL) начальную, получим число байт скомпрессированн-ной области, но без учета последнего контрольного байта, который является инверсной копией предпоследнего.

Подставляем полученное значение в программу декомпрессии. Смещение, учитывающее длину декомпрессирующей процедуры. Сброс флагов.

Получение в HL суммарной длины блока кодов с учетом декодирующей процедуры. Перезапись полученного значения в регистр BC и увеличение его на 1 для учета последнего (контрольного) байта.

Последняя часть программы (с 7FD0H) позволяет получить выходной параметр в удобном для последующего использования виде. Для этого он был предусмотрительно помещен в регистр BC. Подав команду PRINT USR 32651 (7F8BH) результат работы компрессирующей процедуры (из регистра BC) будет выведен на экран: длина скомпрессированного блока (с учетом контрольного байта) плюс длина декомпрессора. А при подаче команды LET L=USR 32651

- результат будет помещен в переменную L. На магнитную ленту должен быть выгружен блок кодов с адреса 32730 (7FDAH), длиной L.

Так выполняется привязка к адресу загрузки. В результате в HL получается адрес начала скомпрессированного блока кодов. Оно образуется в результате увеличения адреса загрузки на величину, занимаемую программой декомпрессии.

Сейчас здесь ноль, но при работе программы компрессии сюда будет подставлена длина скомпрессиро-ванного блока кодов. Адрес приемника - экрана. Проверка BC на ноль.

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

Сравнение его с предыдущим. Если не равен, то переход на L0 и повтор операции перезаписи и сравнения.

Переход к следующему байту, в котором находится кол-во повторов. Счетчик запоминается на стеке. Организуем в B счетчик повторов, число которых берется из HL. Запись байта в экран. Переход к следующему байту экрана. Уменьшение счетчика, если не 0 -то продолжение перезаписи байта из аккумулятора в экран. Снимаем BC со стека без проверки на ноль, т.к. переход в цикл загрузки одинаковых байтов может быть только из положительных значений BC (нулевой байт инвертирован по отношению к последнему). Переход к следующему байту ском-прессированной области. Теперь BC указывает на байт в HL, в котором находится число повторов и тоже не может быть в нуле. Уменьшение счетчика. Переход на проверку BC и перезапись байтов.

Скомпрессированный блок кодов.

Для того, чтобы можно было компрессировать экраны, записанные без заголовка, Александр рекомендует дополнить программу компрессора процедурой загрузки блока кодов без заголовка, которая использует процедуру 1386 (0556H) ПЗУ:

7F7E DD210040 LD IX,#4000

7F6E 11001B LD DE,#1B00

7F85 3EFF LD A,#FF

7F87 37 SCF

7F88 CD5605 CALL #0556

Эффективность той или иной программы во многом зависит от того, насколько продумана Бейсиковая ее часть. Мы приводим вариант программы "Компрессор", которая в основе содержит программу, присланную Александром. Она русифицирована способом, которым мы постоянно пользуемся (см. "ZX-РЕВЮ"-92 N 1,2, стр. 30).

1 GO TO 100

2 CLEAR 30000: LOAD "chr" CODE 64600

3 FOR N=32636 TO 32767: READ M: POKE N,M: NEXT N

4 RUN

5 SAVE "COMPR" LINE 2: STOP

6 POKE 23606,88: POKE 23607,251: RETURN 9 POKE 23606,0: POKE 23607,60: RETURN 100 BORDER 7: PAPER 7: INK 0: CLS

110 GO SUB 8

200 PRINT AT 7,1;"<1> - ЗАГРУЗКА ЭКРАННОГО ФАЙЛА" ' TAB 7; "С ЗАГОЛОВКОМ" 210 PRINT AT 10,1;"<2> - ЗАГРУЗКА БЛОКА КОДОВ-'TAB 7;"БЕЗ ЗАГОЛОВКА" TAB 7;"С КОНТРОЛЕМ СЧИТЫВАНИЯ"

220 PRINT AT 14,1;"<3> - ЗАГРУЗКА БЛОКА КОДОВ-'TAB 7;"БЕЗ ЗАГОЛОВКА" TAB 7;"БЕЗ КОНТРОЛЯ СЧИТЫВАНИЯ"

300 PAUSE 0: IF INKEY$<>"1" AND INKEY$<>"2" AND INKEY$<>"3" THEN GO TO 300 310 LET I$=INKEY$

400 CLS : PRINT #0; TAB 11; FLASH 1;" ЗАГРУЗКА ": GO SUB 9

410 IF I$="1" THEN LOAD ""CODE 16384,6912: LET L=USR 32651

420 IF I$="2" THEN POKE 32649,2: POKE 32650,8: LET L=USR 32638

430 IF I$="3" THEN POKE 32649,66: POKE 32650, 5: LET L=USR 32636

500 GO SUB 8: INPUT ; : PRINT #0; PAPER 0; INK 7; BRIGHT 1, FLASH 1;" ДЛИНА="; L.

510 BEEP .1,20: PAUSE 400 600 PRINT AT 21,0;"ИМЯ ФАЙЛА ДЛЯ ЗАПИСИ: ": GO SUB 9: INPUT F$

610 SAVE F$ CODE 32730,L

700 RUN

900 DATA 221,33,0,64,17,0,27,62,255,55,205,86,5

910 DATA 33,0,64,1,0,27,17,0,128,213,27,19,120,177,40,40,126

920 DATA 237,160,190,32,248,13,12,32,4,5,4,40,26,18,19,8,62,0

930 DATA 60,40,229,16,35,11,13,12,32,4,5,4,40,8,8,190,32,214,8

940 DATA 24,235,27,26,47,19,18,235,209,175,237,32,34,229,127,1,38,0,175,237,74,229,193,3,201

950 DATA 205,124,0,59,59,225,1,35,0,9,1,0,0,17,0,64,120,177,200

960 DATA 126,237,160,190,32,247,36,197,70,18,19,16,252,193,35,11,11,24,234

Со строки 200 выводится меню программы. Возможны три варианта загрузки. Первый - обычная загрузка экрана, записанного с заголовком. Второй и третий - загрузка экрана, записанного без заголовка. Эти два режима могут оказаться довольно удобными, так как во многих играх встречаются блоки кодов - экраны, записанные без заголовка. Режимы загрузки экрана без заголовка отличаются между собой тем, что в одном случае для загрузки вызывается подпрограмма 2050 из ПЗУ, которая в случае ошибки выводит сообщение: "Таре loading error", а в другом случае используется подпрограмма 1366 ПЗУ, при этом работа БЕЙСИКа не прекращается независимо от правильности считывания.

Сразу же после окончания загрузки внизу экрана Вы увидите результат работы компрессирующей программы: длину скомпрессированного блока кодов. После нажатия любой клавши программа предложит Вам ввести имя для записи полученного результата вместе с Программой декомпрессии в виде единого файла. После записи можете загружать скомпрессированной блок в произвольный адрес ADR. Вывод на экран - RANDOMIZE USR ADR.

Другой вариант компрессии.

Продолжая разговор о компрессорах экрана, приведем еще одну программу.

Очень часто при разработке каких-либо (например обучающих) программ, приходится решать вопрос размещения в памяти компьютера большого количества графической информации, рисунков, схем и т. д. Причем во многих случаях графика занимает не весь экран, а скажем, только средний сегмент экрана. При этом верхний и нижний сегменты используются для других целей. Поэтому за счет компрессии не полного экрана, а лишь одного его сегмента, можно значительно сократить длину скомпрессированного блока кодов. Кроме того, при декомпрессии можно вызывать сегменты из памяти независимо один от другого, не нарушая соседние, правда в этом случае придется компрессирование проводить за два этапа, отдельно для дисплейной части и атрибутов, так как между вами появляется разрыв.

Декомпрессирущий блок является единственным для всех скомпрессированных экранов. При таком подходе в памяти можно получать десятки (a если небольшие, то может быть даже сотни) экранов. Перед запуском декомпрессирующей программы надо номер нужного экрана занести в системную ячейку декомпрессора при помощи POKE, а затем вызывать декодирующую процедуру.

В основе приводимой программы содержится известный многим пользователям "Спектрума" блок кодов "compress" CODE 28000,650. Но Бейсиковая часть сделана практически заново, что позволило пользоваться программой с большим удобством и удовольствием. Кроме того, мы приводим два варианта программы: для магнитофона и для дисковода.

Этот вариант компрессора является более изощренным, чем приведенные до сих пор программы. (Достаточно обратить внимание на длину его кодового блока). Однако эта длина сама по себе ни о чем не говорит. Ведь важна длина конечного продукта -скомпрессированного экрана плюс программы декомпрессии. Этот вариант компрессора позволяет получить более высокую степень компрессии, чем те, которые мы приводили до сих пор. Мы провели сравнительные испытания этого компрессора для тех же экранов.

"Death Star" 3185 байт

"Cauldron" 2128 байт

"Scooby Doo" 3946 байт "XENO" 3439 байт

"Saboteur" 2545 байт

Кроме более высокой степени компрессии, этот вариант компрессора позволяет получить следующие режимы, недоступные другим программам:

Возможно компрессирование как всего экрана, так и произвольно взятых одного любого или двух соседних сегментов экрана. Программа анализирует расположение графической информации на экране и выбирает, в зависимости от этого, наиболее выгодный способ компрессирования. При этом во время декомпрессии Вы можете увидеть, что некоторые экраны разворачиваются сверху вниз, аналогично тому, как это происходит при загрузке. А другие экраны - разворачиваются слева направо, (что несомненно усиливает зрительный эффект). Правда работает эта программа медленнее, чем другие варианты компрессоров. Компрессия полного экрана занимает порядка 1-3 секунд (однако это время не имеет значения для конечного продукта).

Так как кодовый блок программы (мы его полностью приводим ниже) расположен с адреса 28000, при использовании программы с дисководом Вам может не хватить свободного места. Для этого в программе используются приемы по сохранению памяти. Мы уже приводили такие материалы в "РЕВЮ". Это, в частности, замена числа 0 на NOT PI, числа 1 - на SGN PI, использование вместо числа выражения: VAL "число". Без таких преобразований оставлены только строки программы, реализующие работу меню, чтобы не замедлять время выполнения этих операций. Все эти приемы могут оказаться излишними для магнитофонного варианта, но они обязательны для дискового. Текст БЕЙСИК-программы вначале приведен для магнитофонного варианта. Затем будут даны дополнительные строки, которые позволят Вам получить дисковый вариант программы.

Вот Бейсиковая часть программы. Она традиционно русифицирована по известной Вам схеме.

1 GO TO VAL "100"

2 BORDER VAL "7": PAPER VAL "7": INK NOT PI: CLEAR VAL "27995": LOAD "chr"CODE 64600

3 LOAD "compress"CODE 28000,650

4 GO TO NOT PI

5 SAVE "COMPRESS"LINE 2: SAVE "compress"CODE 28000, 650: STOP

8 POKE VAL "23606", VAL "86": POKE VAL "23607", VAL "251":RETURN

9 POKE VAL "23606"^ОТ PI: POKE VAL "23607",CODE "<": RETURN

30 BORDER 1: PAPER 0: INK 7: CLS : GO SUB 8: GO SUB 40

31 FOR M=1 TO NN: READ M$: PRINT INK 6;AT (Y0+(M-1)*DY),X0;M$: NEXT M: PRINT INK 4; AT Y1,

3; "SPACE,DOWN,UP,ENTER,BREAK"

32 IF MM<1 THEN LET MM=NN

33 IF MM>NN THEN LET MM=1

34 PRINT AT (Y0+(MM-1)*DY),X0-DX: PAPER 7; INK 2; BRIGHT 1; OVER 1;S$: BEEP .03,2*MM+10

35 PAUSE 0: LET I=(INKEY$=" " OR 1 INKEY$= "6" OR CODE INKEY$=10)+(INKEY$="7" OR CODE

INKEY$=11)*2+(INKEY$ = "0" OR CODE INKEY$=12 OR CODE INKEY$=13)*3: GO TO (35+I)

37 PRINT INK 6;AT (Y0+(MM-1)*DY),X0-DX; OVER 1;S$: LET MM=MM-2*I+3: GO TO 32

38 FOR M=1 TO NN: PRINT PAPER 8; INK 8; BRIGHT 6; FLASH (M=MM); OVER (M=MM);AT (Y0+(M-

1)*DY),X0-DX:S$: NEXT M: BEEP .1,36: PAUSE 10: RETURN 40 PRINT AT 2,9;"ЧИСЛО ЭКРАНОВ: ";SCR

42 PRINT AT 3,3;"КОМПРЕССИЯ СЕГМЕНТА : ";BEG;: IF END<>BEG THEN PRINT AT 3,21;"OB";AT 3,26:"-";END

44 PRINT AT 4,6: "СВОБОДНОЙ ПАМЯТИ : ";65536-LAST

49 RETURN

50 BORDER VAL "7": PAPER VAL "7": INK NOT PI: CLS

52 PRINT AT VAL "21",NOT Р^'ИМЯ ФАЙЛА:": GO SUB VAL "9": INPUТ F$: CLS 59 RETURN

100 LET BEG=SGN PI: LET END=VAL"3": LET SCR=NOT PI: LET FIRST=VAL "28350": LET LAST=VAL

"28650": LET S=NOT PI 190 LET MM=SGN PI

200 DATA "ЗАГРУЗКА ЭКРАНА","РЕЖИМ КОМПРЕССИИ","ПРОСМОТР ЭКРАНА","УДАЛЕНИЕ ЭКРАНА","ЗАПИСЬ

ФАЙЛА"

201 RESTORE VAL "200": LET NN=VAL "5": LET X0=VAL "8": LET V0=VAL "9": LET DY=SGN PI; LET

DX=VAL "3": LET S$=" ": LET Y1=VAL "19": GO SUB VAL "30" 210 IF SCR=NOT PI AND MM>=VAL "3" THEN PRINT #NOT PI; FLASH SGN PI;" НЕТ ЭКРАНОВ!

": BEEP SGN PI, NOT PI: PAUSE VAL "100": GO TO VAL "190" 220 GO TO VAL "1E3"*MM

300 DATA " ВЕСЬ ЭКРАН","СЕГМЕНТЫ 1-2","СЕГМЕНТЫ 2-3"," СЕГМЕНТ 1"," СЕГМЕНТ 2"," СЕГМЕНТ

3"

301 RESTORE VAL "300": LET NN=VAL "6": LET X0=VAL "10": LET Y0=VAL "8": LET DY=SGN PI: LET

DX=VAL "3": LET S$=" ": LET Y1=VAL "19": GO SUB VAL "30": RETURN

1000 GO SUB VAL "50" 1010 LOAD F$ CODE 16384,6912

1030 POKE VAL "28005",INT (LAST/VAL "256"): POKE VAL "28004",LAST-VAL "256"*PEEK VAL "28005 1040 POKE VAL "28006",BEG-SGN PI: POKE VAL "28007",END-(BEG-SGN PI) 1050 RANDOMIZE USR VAL "28010"

1060 LET LEN=PEEK VAL "28008"+VAL "256"*PEEK VAL "26009": LET LAST=LAST+LEN+SGN PI: LET

SCR=SCR+SGN PI: LET S=SCR-SGN PI 1070 GO SUB VAL "8": PRINT #NOT PI; PAPER NOT PI; INK VAL "7"; BRIGHT SGN PI; FLASH SGN PI;

ДЛИНА=";LEN;" " 1080 PAUSE VAL "400" 1090 GO TO VAL "200" 2000 LET MM SGN PI: GO SUB VAL "300"

2010 RESTORE VAL "2000": FOR N=SGN PI TO MM: READ BEG: READ END:NEXT N 2020 GO TO VAL "190"

2100 DATA SGN PI,VAL "3",SGN PI, VAL "2",VAL "2", VAL "3",SGN PI,SGN PI,VAL "2",VAL "2",VAL

"3",VAL "3" 3000 LET S=S*(S<SCR)+(S<=SCR)

3010 INPUT ("НОМЕР ЭКРАНА (1-";SCR;"): ";S;" : "); LINE F$: IF F$<>"" THEN LET S=VAL F$

3020 IF S<SGN PI OR S>SCR THEN GO TO VAL "3010"

3030 BORDER VAL "7": PAPER VAL "7": INK NOT PI: CLS

3040 POKE VAL "28352",S: RANDOMIZE USR VAL "28350": PAUSE NOT PI

3050 GO TO VAL "200"

4000 IF SCR SGN PI THEN LET LAST=VAL "28650": GO TO VAL "4100"

4010 LET A=NOT PI: LET C=A: LET LEN=VAL "28649": FOR N=SGN PI TO SCR: LET LEN=LEN+A+C*VAL

"256"+SGN PI: LET A=PEEK LEN: LET C=PEEK (LEN+SGN PI): NEXT N: LET LAST=LEN 4100 LET SCR=SCR-SGN PI: LET S=SCR-SGN PI 4110 GO TO VAL "200" 5000 GO SUB VAL "50" 5010 SAVE F$CODE 28350,LAST-FIRST 5030 VERIFY F$ CODE

5050 GO SUB VAL "8" : PRINT #NOT PI; INVERSE SGN PI; " ЗАПИСЬ И ВЕРИФИКАЦИЯ - O.K. " 5060 BEEP VAL ".1",VAL "26": BEEP VAL ".1",VAL "20": PAUSE VAL "100" 5070 GO TO VAL "190"

Программы, подобные этой, Вы уже встречали на страницах "РЕВЮ", поэтому не будем подробно останавливаться на каждой ее части. Перечислим только основные фрагменты:

Строка 2 - автостарт, загрузка кодовых блоков.

Строка 5 - самозапись программы на магнитную ленту.

Строки 8 и 9 - переключатели шрифтов, соответственно русского и латинского.

Строка 30 - подпрограмма работы меню. Она была подробно рассмотрена в "ZX-РЕВЮ" N 9-10 за 1992 г., стр. 197.

Строка 40 - вывод основных режимов и состояния компрессора. На экран выводится следующая информация: число скомпрессированных экранов, режим компрессии - какие сегменты заданы для компрессирования, количество оставшейся свободной памяти компьютера.

Строка 50 - ввод имени файла для загрузки и записи. Если при выполнении загрузки в ответ на запрос имени нажать ENTER, ничего не вводя, то загрузится первый встретившийся кодовый файл.

Строка 100 - инициализация.

Строка 200 - главное меню программы, задающее режимы работы компрессора.

Строка 300 - второе меню, задающее сегменты для компрессирования.

Строка 1000 - загрузка очередного экрана.

Строка 2000 - задание сегментов для режима компрессии (вызов второго меню).

Строка 3000 - просмотр скомпрессированных экранов. Здесь следует отметить организацию ввода номера просматриваемого экрана. При запросе предлагается вариант по соглашению. Если предложенное число Вас не устраивает, введите свое значение, если устраивает - просто нажмите ENTER. Предложение варианта по соглашению (строка 3000) организовано так, что после загрузки очередного экрана к просмотру предлагается этот последний экран. После его просмотра по соглашению в следующий раз будет предложен первый экран, после его просмотра - второй и так далее до последнего, затем опять первый и так далее. Так можно просмотреть все экраны, ничего не вводя, а можно в любой момент вмешаться в этот порядок и ввести свое значение.

Строка 4000 - удаление экрана. Надо ли здесь организовать запрос для подтверждения Вашего решения? Организуйте его сами, если хотите. Удаляется всегда только последний экран. Это может создавать некотрое неудобство. Хорошо, если бы можно было удалять любой из скомпрессированных экранов, но это потребует вмешательство в блок кодов. В общем-то ничего принципиально сложного здесь нет. Надо только рассчитать место удаляемого экрана, определить его длину и организовать при помощи машиннокодовой команды LDIR переброску следующих экранов на место удаляемого. Все, что необходимо для такого рассчета, находится в строках с 4000. Может быть кто-нибудь из читателей и сделает такое усовершенствование.

Строка 5000 - запись всех скомпрессированных экранов вместе с программой декомпрессии в виде единого файла. Если при задании имени файла нажать ENTER, ничего не вводя, то программа вернется в режим основного меню (см. строку 5000).

При работе с БЕТА-диском, должны быть изменены строки, связанные с загрузкой и выгрузкой. Мы приводим ниже вариант строк для адаптации программы под дисковод. Вы можете набрать и хранить их отдельно, а при адаптации подгрузить к основной БЕЙСИК-программе при помощи MERGE.

2 BORDER VAL "7": PAPER VAL "7": INK BIN : CLEAR VAL "27999": RANDOMIZE USR VAL "15619": REM

: LOAD "chr"CODE 64600

3 RANDOMIZE USR VAL "15619": REM : LOAD "compress"CODE 28000,650

5 GO SUB VAL "90": STOP

6 RANDOMIZE USR VAL "15616"

7 STOP

90 RANDOMIZE USR VAL "15619": REM : ERASE "COMPRESS" 92 RANDOMIZE USR VAL "15619": REM : SAVE "COMPRESS" LINE 2 99 RETURN

1000 GO SUB VAL "50": IF F$="" THEN GO TO VAL "200"

1010 LET ERR USR VAL "15619": REM : LOAD F$ CODE 16364,6912

1020 IF ERR<>NOT PI THEN GO TO VAL "1500"

1500 GO SUB VAL "8": PRINT AT VAL "10",VAL "9"; FLASH SGN PI;" ОШИБКА ";ERR:..... FLASH NOT

PI'" ВЫВОДИТЬ КАТАЛОГ ДИСКА? (Y/N)" 1510 BEEP SGN PI, NOT PI: PAUSE NОТ PI: IF INKEY$<>"y" AND INKEY$<>"Y" THEN GO TO VAL "200" 1520 GO SUB VAL "9": RANDOMIZE USR VAL "15619": RЕМ : CAT 1530 PAUSE VAL "400" 1540 GO TO VAL "200"

5010 LET ERR=USR VAL "15619": REM : SAVE F$ CODE 28350,LAST-FIRST

5020 IF ERR<>NOT PI THEN GO TO VAL "1500"

5030 LET ERR=USR VAL "15619": REM : VERIFY F$ CODE

5040 IF ERR<>NOT PI THEN GO TO VAL "1500"

Строка 5 - как и раньше, самозапись программы (только Бейсиковой части) на диск. Она выполняется при помощи подпрограммы со строки 90, так как в одной пятой БЕЙСИК-строке не может выполняться более одного оператора TRDOS.

Строка 6 - переход в TR-DOS для выполнения каких-либо действий. После возврата оттуда по команде RETURN, попадаем на STOP в строке 7.

Строки с 1000 - загрузка экрана с диска. Здесь в случае ошибки при загрузке (например отсутствие файла на диске), происходит переход на строку 1500. Выведенный на экран код ошибки позволит Вам сориентироваться, почему произошла ошибка (коды ошибок см. в руководстве по TR DOS).

Строка 1500 предлагает вывести каталог диска, для того, чтобы Вы могли еще раз уточнить, есть ли нужный файл на этом диске или нет. На строку 1500 программа может перейти и из строк с 5000.

Строка 5000 - режим записи файла на диск, а также выполнение его верификации после записи.

Для тех читателей, которым не знаком кодовый блок программы "COMPRESS", мы приводим его полностью. (Тем, у кого он есть, можно его не набирать, а взять из имеющейся программы в готовом виде.) Для набора его Вы можете воспользоваться рекомендациями и программой для шестнадцатиричного ввода см. '^-РЕВЮ"-91, N 3, с. 59.

Михайленко В.С., Турович А.К.

1. От редакции - с этого номера мы начинаем публикацию адресов пунктов, где вы можете приобрести наши материалы.
2. Спектрум в школе - в этот раз мы предлагаем учебную программу по математике.
3. Маленькие хитрости - стилизованные шрифты.
4. Применение ассемблера для создания быстроработающих программ - заканчивая рассмотрение вопросов выдачи информации на экран, мы должны еще обсудить возможность печати в нижней части экрана, т.е. в строках с номерами 22 и 23.
5. Форум - другой вариант компрессии изображений.
6. Профессиональный подход - методы взлома игр Билла Гильберта.
7. Sinclair logo - начинаем публикацию языка программирования "ЛОГО". Что такое ЛОГО? Первые шаги. Переменные.
8. African seeds - игровая программа для самостоятельного набора начинающими.
9. Cash-flow - игровая программа для самостоятельного набора начинающими.
10. Компьютерная новелла - Ответный удар Кракса (по игре JOE BLADE 2).
11. THE DARK WHEEL - окончание повести. Глава 7-8.