НЕСТАНДАРТНЫЕ МАГНИТОФОННЫЕ ЗАГРУЗЧИКИ.

Пишу вот по какому поводу. Все началось с того, что я слишком внимательно читал 6-ой номер ZX-ревю за 1994 год и в разделе "Читатель-читателю" наткнулся на статью "Нестандартные загрузчики". Появилась идея создать универсальную процедуру загрузки программ с магнитофона эффективным и оригинальным образом.

ИФК: Большинство читателей, которые пользуются дисководами, возможно, сталкивались с программами, которые в процессе загрузки еще и выводят текст на экран, проигрывают музыку и т.п. К таким можно отнести BATTLE COMMAND и INSULT MEGADEMO. Так вот, Сергей предлагает дать возможность использовать такие эффекты при загрузке с магнитофона. Но дадим слово автору.

При использовании метода, описанного ниже, можно во время загрузки блока кодов выполнять любую программу пользователя (естественно, она будет выполняться медленнее). Например, загружая игру, можно одновременно читать ее описание, которое постепенно будет выводиться на экран; можно грузить части программы в любое место памяти, тут же их декодировать и запускать (конечно, они должны вызывать процедуру загрузки). И это в одном неразрывном кодовом блоке.

Процедура загрузки файлов с магнитофона с параллельной работой программы пользователя Written by Kolotow Sergey Copyright SerzhSoft from Shadrinsk

;Процедура загрузки, аналогичная CALL 2050

150 LOADER CALL PROC ;вызвать процедуру загрузки

Главная процедура загрузки

На входе: IX - адрес начала загрузки файла DE - длина загружаемого файла A - флаг файл/заголовок: #00 - заголовок #FF - файл флаг C=1 - если загрузка (команда LOAD) флаг C=0 - если проверка (команда VERIFY)

400

JR

LPLOAD

;одному байту

;Процедура считывания одного байта

410 LOAD1B PUSH AF

;сохранили AF на стеке

;Закончить загрузку и выйти

SP,(MEM_SP) ;восстановили указатель стека HL ;восстановили HL'

;поменяли регистры A,H ;установка флагов

1 ;правильности/неправильности считывания

; возврат в точку вызова Процедура пользователя, "разбавленная" командами CALL LOAD1B -одного байта.

В распоряжении пользователя находятся регистры AF, BC, DE, HL, (IX-1) указывает на предыдущий загруженный байт L' - текущий загруженный байт

IX - адрес, куда запишется текущий байт командой CALL LOAD1B

При выходе из этой процедуры загрузка файла продолжится как ни в чем не бывало.

;сейчас никакой процедуры пользователя нет 0 ; счетчик длины загружаемого файла

0 ; ячейка сохранения указателя стека

17 ;буфер для загрузки заголовка

HEADER+13 ;адрес загрузки файла в заголовке

HEADER+11 ;длина файла в заголовке

Приводим дами памяти приведенной программы:

Описанная выше процедура имеет несколько точек входа:

1. Метка FILE - считывание первого попавшегося блока кодов с заголовком. При ошибке загрузки или нажатии BREAK (SPACE) выдаются соответствующие сообщения.

Вызывает процедуру ПЗУ по адресу 1366 (#0556) и затем переходит на метку LOADER.

2. Метка LOADER - загрузка, аналогичная CALL 2050 с выдачей сообщений об ошибке или нажатии BREAK.

Вход: IX - адрес загрузки блока кодов DE - длина блока кодов A=#00 - заголовок A=#FF - файл флаг ^включен - загрузка

выключен - проверка

3. Метка PROC - головная процедура загрузки. Ее вызывают все вышестоящие части программы. Входные данные аналогичны предыдущему пункту. Отличие состоит в том, что сообщения об ошибках не выдаются, хотя флаги и устанавливаются.

На выходе: флаг C включен - считывание данных произошло без ошибок; флаг C выключен - произошла ошибка. Во время запуска программы из любой точки входа выполняется следующее:

1. Считывается первый байт.

2. Вызывается процедура пользователя.

3. Если произошел возврат из пользовательской процедуры, то продолжается "обыкновенная" загрузка блока кодов до конца.

4. При появлении ошибки или нажатии BREAK производится экстренный выход из программы.

Процедура пользователя должна регулярно вызывать CALL LOAD1B. Ограничения, накладываемые на процедуру пользователя:

1. В распоряжении пользователя регистры:

AF, BC, DE, HL - при выполнении CALL LOAD1B они не будут портится;

B', E' - испортятся после CALL LOAD1B;

H' - контроль правильности загрузки - лучше не трогать;

L' - загруженный, но еще не записанный в память байт. Не менять!

D' - перед CALL LOAD1B всегда равен 0. Не менять!

C' - работа с бордюром. Не менять!

2. (IX-1) - указывает на предыдущий загруженный байт;

IX - указывает, куда будет записан только что загруженный байт;

3. IY - использовать, конечно, возможно, но лучше с BASIC'ом не конфликтовать;

4. SP - вообще лучше не трогать - плохо будет;

5. Во время работы программы, прерывания запрещены и разрешать их настоятельно не рекомендуется;

6. Вся процедура должна "разбавляться" командами CALL LOAD1B - чтение одного байта.

Для примера дальше приводится листинг процедуры пользователя. Для ее вызова необходимо заменить строку MYPROC RET на MYPROC JP PRINT

700 PRINT CALL LOAD1B

710 LD HL,(TXTADR) ;адрес следующего символа

72 0 LD A,(HL) ;взяли символ

730 INC HL ; адрес следующего символа

(C_COOR),DE HL

(TXTADR),HL

; смена атрибута печати A ;занести атрибут в переменную

;процедура возврата каретки

; процедура возврата курсора на одну ; позицию назад

NC,GO3

GO4

L,A

H, 0

HL, HL

HL, HL

HL, HL

DE,(CHARS)

HL, DE

DE,(C_COOR)

DE

B, 8

LOAD1B A, (HL) (DE),A HL D

LP2

LOAD1B D

A, D

3 88 D,A

A,(ATTR) (DE),A HL

L

NZ,GO3 A, H A,8 H,A

88

C, GO3 H, 64

(C_COOR),HL

TEXT ; адрес следующего символа

#4000 ;адрес вывода на экран

7 ; атрибуты печати

Итак, в тексте могут встречаться следующие управляющие коды:

Дальше идет дамп процедуры вместе с процедурой загрузки:

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

1. От редакции - вы держите в руках сдвоенный (4+5)-й номер ZX РЕВЮ. Впервые на 6-м году своего существования эти номера выходят так рано.
2. Авторская разработка - Адаптация игр 8-битовых видеоприставок для ZX-Spectrum с видеопроцессором.
3. Авторская разработка - винчестер для ZX spectrum.
4. Новые программы - STalker Stealth monitor. Версия 4.2. (STS v.4.2).
5. Новые программы - Теневой макроассемблер-отладчик ALASM 128/512 v.2.5.
6. TR-DOS для начинающих - продолжение (начало см. ZX РЕВЮ 96/1-2).
7. Читатель - читателю - multicolor - эффекты на бордюре и кое-что еще.
8. Читатель - читателю - получение случайных чисел.
9. Компьтеры, которые мы выбираем - доступ к верхней области памяти.
10. Этюды - о табличном программировании.
11. Этюды - вывод символа в восьмикратном увеличении.
12. Этюды - индикатор амплитуды звука.
13. Этюды - бегущая строка.
14. Этюды - способ вывода изображения на экран.
15. Этюды - эффекты для музыкального сопроцессора.
16. Этюды - процедуры "проявления" экрана.
17. Этюды - процедура-календарь.
18. Этюды - процедура поиска шрифтов и спрайтов.
19. Этюды - оригинальная бегущая строка.
20. Этюды - процедура опроса клавиатуры.
21. Этюды - программа гашения экрана случайным образом.
22. Этюды - загрузка Бейсик-программ без автостарта.
23. Этюды - компрессор символьной информации.
24. Этюды - быстрая печать шаблона 8*8.
25. Форум - установка порта #FD.
26. Форум - жесткая дешифрация порта #1FFD В ПК "Scorpion ZS-256.
27. Форум - доработка STS 3.3.
28. Форум - доработка Tasm 128.
29. Форум - доработка посекторных загрузчиков.
30. Форум - нестандартные магнитофонные загрузчики.
31. Форум - процедура печати 42 символов в строке.
32. Форум - настройка дисководов.
33. Форум - о программе G.A.C.
34. Форум - о вызове подпрограмм TR-DOS.
35. Форум - об управлении КР181ВГ93.
36. Форум - о компьютере "Hobbit".
37. Форум - усовершенствованная версия Advanced Drive FX.
38. Форум - недокументированные операторы LASER BASIC.
39. Форум - о настройке дисководов.
40. Форум - вопросы сегментации экрана.
41. Форум - магнитофонный загрузчик с индикатором.
42. Форум - об игре "LIFE".
43. Форум - проблемы развития ZX Spectrum.
44. Форум-Игры - рассмотрены следующие игры: Venturama, The sceptre, Carrier command, Elite, Sim city, Robin of the wood, Think, Hacker 2, Rampage, Звёздное наследие, "A.T.F.", Colony.
45. Перекресток - рассмотрены следующие адвентюры: He-man, Hampstead, Звёздное наследие, Rebel planet, The famous five, Terrormolinos, Sam spoon, Spiderman, Kentilla, Heavy on the magic, Magnetic moon.
46. Adventure project - анализ частей речи в русскоязычных ADVENTURE.
47. Советы экспертов - описание игры Rock star ate my hamster.
48. Советы экспертов - описание игры Dundees european challenge.
49. Советы экспертов - описание игры Winter games.
50. Советы экспертов - описание игры Carrier comand.
51. Советы экспертов - описание игры The ghostbusters 2.
52. Советы экспертов - описание игры Hacker.
53. Советы экспертов - описание игры Last battle.
54. Советы экспертов - описание игры Captain Fizz.
55. Компьютерная новелла - История в момент творения (по игре MYTH).
56. Компьютерная новелла - Nether Earth.
57. Tricks ZX - коды, пароли, хитрости.
58. Справочная информация - где можно приобрести наши издания.