┌──────────────────────────────┐
│ │
│ ЭТЮДЫ │
│ │
└──────────────────────────────┘
Music by ZET and MITCHELL
(c) Колотов Сергей, г.Шадринск,
SerzhSoft, июль, 1997
РЕМЕЙК НЕКОТОРЫХ ПРОЦЕДУР
1993 ГОДА
В ZX-РЕВЮ-93 с.121 была опу-
бликована процедура Н.М.Стинова
под названием DOORS, реализую-
щая эффект очистки экрана путем
раздвигания изображения в сторо-
ны. Процедура занимает 101 байт
и, честно говоря, написана не
очень эффективно. Использованы
альтернативные регистры, но ре-
гистр HL так нигде и не сохра-
няется, что не дает возможности
вызывать эту процедуру из BA-
SIC'а. Применив команды блочной
пересылки LDIR и LDDR, удалось
"сдружить" новую процедуру с
бейсиком (благо в ней альтерна-
тивные регистры вообще не ис-
пользуются), более чем вдвое со-
кратить обьем занимаемой памяти
и значительно повысить быстро-
действие. Новая процедура также
стала полностью перемещаемой.
При очистке изображения на экра-
не устанавливаются текущие сис-
темные атрибуты из ячейки 23693.
То есть существует возможность
изменить цвета прямо из бейсика
командами INK, PAPER, BRIGHT,
FLASH или напрямую подав коман-
ду POKE 23693,n перед вызовом
процедуры по RANDOMIZE USR adr.
Выполнив POKE adr+1,n (n=1..16),
можно установить количество
сдвигов, выполняемых за один за-
пуск процедуры.
140.
; SCREEN-APART
3;(c) SerzhSoft, 11 july 1997
;
ORG 60000 ;адрес ассемблирования
;
ATTR_P EQU 23693 ;текущие атрибуты основного экрана
;
APART
LD B,#10 ;число пар сдвигов экрана в стороны
LP_APR1 PUSH BC ;сохраняем счетчик сдвигов на стеке
LD A,(ATTR_P) ;A=атрибуты для заполн. после сдига
LD DE,#5AFF ;самый последний байт атрибутов
LP_APR2 LD H,D ;скопировали этот адрес
LD L,E ; в HL и уменьшили на 1:
DEC HL ; адрес предпоследнего байта линии
LD BC,#000F ;сдвигать: 15 байт
LDDR ;сдвиг правой полу-линии вправо
LD (DE),A ;устанавливаем новое значение
LD BC,#FFF2 ;коррекция р-ра HL - теперь он
ADD HL,BC ; указывает на второй байт линии
LD E,L ;DE=HL
DEC E ;первый байт слева в линии
LD BC,#000F ;будем сдвигать 15 байт
LDIR ;сдвиг левой полу-линии влево
LD (DE),A ;устанавливаем новый байт (очистка)
LD BC,#FFEF ;коррекция регистра DE -
ADD HL,BC ; переход на одну
EX DE,HL ; линию вверх в экране (атрибутах)
BIT 3,D ;если атрибуты не кончились,
JR NZ,LP_APR2 ; то крутим цикл
XOR A ;перешли в область графики
BIT 6,D ;если мы пока еще не залезли в ПЗУ,
JR NZ,LP_APR2 ; то продолжаем крутить цикл
POP BC ;восстанавливаем счетчик сдвигов
DJNZ LP_APR1 ;крутим цикл положенное число раз
RET ;выход из процедуры
2
Шестнадцатеричный дамп проце-
дуры APART:
EA60: 06 10 C5 3A 8D 5C 11 FF :58
EA68: 5A 62 6B 2B 01 0F 00 ED :A1
EA70: B8 12 01 F2 FF 09 5D 1D :99
EA78: 01 0F 00 ED B0 12 01 EF :11
EA80: FF 09 EB CB 5A 20 E2 AF :33
EA88: CB 72 20 DD C1 10 D3 C9 :19
Сохранение: SAVE "aрart.c" CODE
60000,48
На стр.35 ZX-РЕВЮ-93 была
опубликована программа "теневой
контур". Мне удалось существен-
но улучшить эту процедуру, для
этого просто переписав ее "с ну-
ля". Новая процедура занимает
138 байт (старая - 211 байт) и
стала релоцируемой. Как и преж-
де, чтобы получить псевдо-трех-
мерное изображение, достаточно
выделить атрибутами с повышен-
ной яркостью те места на экране,
которым необходима тень, и выз-
вать процедуру SHADOW. Сущес-
твует возможность изменять кон-
фигурацию самой тени. Для этого
необходимо поменять значения в
двух командах загрузки регистро-
вой пары DE, которые помечены
звездочками. В представленной
программе установлены значения
#5500, #5500 соответственно, что
дает тень с немного закруглен-
ными краями. Подставив #2A80,
#AA80, получим тень с прямыми
краями. Чтобы получить тот же
результат, что и в оригинальном
варианте, необходимо установить
#AA00, #2A80. Ну а значения
#7F80, #FF80 покажут Вам сплош-
ную, нештрихованную тень.
140.
;SHADOW-PROCESSOR
3; (c) SerzhSoft, 11 july 1997
;
ORG 60000 ;адрес ассемблирования
SHADOW
LD HL,#5AFF ;последний байт атрибутов
LP_SHD1 LD BC,#0020 ;число байт в одной линии атрибутов
DEC HL ;переход к предыдущему атрибуту
BIT 3,H ;мы еще не "заехали" в графику?
RET Z ; если уже, то выход из процедуры
BIT 6,(HL) ;это атрибут с повышенной яркостью?
LP_SHD0 JR Z,LP_SHD1 ; если нет, то предыдущий атрибут
PUSH HL ;сохраняем адрес атрибута на стеке
INC L ;переход к следующему атрибуту
LD A,L ;проверка на переход
AND #1F ; к следующей линии атрибутов
JR Z,GO_SHD2 ;если да, то перепрыгиваем
BIT 6,(HL) ;включена ли яркость?
JR NZ,GO_SHD2 ; если да, то перепрыгиваем
PUSH HL ;сохраняем адрес атрибута на стеке
ADD HL,BC ;переход к атрибуту на линию ниже
LD C,(HL) ;поместили этот атрибут в регистр C
POP HL ;восстанавливаем адрес атрибута
LD A,H ;расчет адреса
AND #03 ; верхней линии
RLCA ; знакоместа
RLCA ; в экране
RLCA ; по заданному
OR #40 ; адресу в
LD H,A ; области атрибутов
LD DE,#5500 ;* образ для создания тени справа *
LD B,#0C ;высота тени: 12 пикселов
LP_SHD2 LD A,E ;сдвигаемый байт образа линии тени
AND #F0 ;отбрасываем лишние "правые" биты
OR (HL) ;накладываем содержимое экрана
LD (HL),A ;и записываем новый байт в экран
INC H ;----------------------------------
LD A,H ;
AND #07 ;стандартная
JR NZ,GO_SHD0 ; последовательность
LD A,L ; команд для перехода
ADD A,#20 ; на линию ниже
LD L,A ; в экранной области
JR C,GO_SHD1 ;
LD A,H ;
SUB #08 ;
LD H,A ;----------------------------------
GO_SHD1 LD A,H ;старший байт адреса в графике
CP #58 ;провер. на выход за границы экрана
JR NC,GO_SHD2 ;если да, то перепрыгиваем
BIT 6,C ;проверка яркости: можно ли изобра-
JR NZ,GO_SHD2 ; жать тень. если нет, то прыжок
GO_SHD0 SRL D ;вращение образа
RR E ; линии тени вправо
DJNZ LP_SHD2 ;цикл по числу линий в тени
GO_SHD2 POP HL ;восстанавливаем адрес атрибута
PUSH HL ;сохраняем адрес атрибута на стеке
LD BC,#0020 ;число байт в одной линии атрибутов
ADD HL,BC ;переход к атрибуту под текущим
LD A,H ;проверка нового адреса атрибута
CP #5B ; на вхождение в границы экрана
JR NC,GO_SHD4 ;если за пределами, то переход
BIT 6,(HL) ;если же входит в экран, но яркость
JR NZ,GO_SHD4 ; включена, то все равно - переход
INC L ;следующий байт атрибутов (правый)
LD C,(HL) ; помещаем в регистр C
LD A,H ;расчет адреса
AND #03 ; верхней линии
RLCA ; знакоместа
RLCA ; в экране
RLCA ; по заданному
OR #40 ; адресу в
LD H,A ; области атрибутов
LD DE,#5500 ;* образ для создания тени снизу *
LD B,#04 ;высота тени снизу
LP_SHD3 DEC L ;возврат на байт назад
LD A,(HL) ;взяли байт с экрана
OR D ;наложили левый байт образа линии
LD (HL),A ; тени и поместили назад в экран
INC L ;переход на байт вправо
LD A,L ;проверка на выход
AND #1F ; за правую границу экрана:
JR Z,GO_SHD3 ; если да, то перепрыгиваем
BIT 6,C ;если же атрибут с яркостью,
JR NZ,GO_SHD3 ; то так же - перепрыгиваем
LD A,(HL) ;взяли байт с экрана
OR E ;наложили правый байт образа линии
LD (HL),A ; тени и поместили назад в экран
GO_SHD3 INC H ;переход к следующей линии
SRL D ;вращение образа одной
RR E ; линии тени вправо
DJNZ LP_SHD3 ;цикл по числу линий в образе тени
GO_SHD4 POP HL ;восстанавливаем адрес атрибута
XOR A ;уст. флаг Z, чтобы JR Z сработала
JR LP_SHD0 ;переходим на команду JR Z,LP_SHD1
2
Шестнадцатеричный дамп проце-
дуры SHADOW:
EA60: 21 FF 5A 01 20 00 2B CB :DB
EA68: 5C C8 CB 76 28 F5 E5 2C :E5
EA70: 7D E6 1F 28 3A CB 76 20 :9F
EA78: 36 E5 09 4E E1 7C E6 03 :1A
EA80: 07 07 07 F6 40 67 11 00 :2D
EA88: 55 06 0C 7B E6 F0 B6 77 :57
EA90: 24 7C E6 07 20 13 7D C6 :7D
EA98: 20 6F 38 04 7C D6 08 67 :0E
EAA0: 7C FE 58 30 0A CB 71 20 :F2
EAA8: 06 CB 3A CB 1B 10 DC E1 :50
EAB0: E5 01 20 00 09 7C FE 5B :7E
EAB8: 30 2C CB 76 20 28 2C 4E :01
EAC0: 7C E6 03 07 07 07 F6 40 :5A
EAC8: 67 11 00 55 06 04 2D 7E :34
EAD0: B2 77 2C 7D E6 1F 28 07 :C0
EAD8: CB 71 20 03 7E B3 77 24 :ED
EAE0: CB 3A CB 1B 10 E8 E1 AF :3D
EAE8: 18 82 00 00 00 00 00 00 :6C
Сохранение: SAVE "shadow.c" CODE
60000,13
В ZX-РЕВЮ-93 на стр.117 была
напечатана процедура LOOK BASIC
PROGRAMMS, автор - Бессонов Але-
ксандр. Она занимает 344 байта,
что на мой взгляд - просто ко-
щунственно! Мне удалось сокра-
тить эту программу более чем
вдвое (точнее, переписать ее за-
ново). Принцип работы почти не
изменился, правда, появилась од-
на новая возможность. При печа-
ти обозначения какого-либо упра-
вляющего кода вслед за ним выво-
дится значение его параметра.
Например, после упр. кода 16
(INK CTRL) идет байт значения
цвета, что на экране будет выг-
лядеть примерно так: I[7] (все
инверсно). А после кодов 22 и 23
(AT CTRL, TAB CTRL) должно сле-
довать два значения: A[2][10]
или T[18][0]. В остальном прог-
рамма работает так же, как и
оригинал. Процедура занимает 158
байт.
140.
;
; LOOK BASIC PROGRAMS II
3; (c) SerzhSoft, 11 july 1997
;
ORG 65000 ;адрес ассемблирования
;
PROG EQU #5C53 ;сист. пер. "адрес начала BASIC-программы"
VARS EQU #5C4B ;сис. пер. "адрес начала BASIC-переменных"
;
OUT_NUM_2 EQU #1A28 ;сис. пр-ра "печать номера строки (HL)"
CHAN_OPEN EQU #1601 ;сис. пр-ра "открытие канала вывода"
STACK_NUM EQU #33B4 ;сис. пр-ра "поместить (HL) на стек к-ра"
STACK_A EQU #2D28 ;сис. пр-ра "поместить A на стек кальк-ра"
STACK_BC EQU #2D2B ;сис. пр-ра "поместить BC на стек к-ра"
PRINT_FP EQU #2DE3 ;сис. пр-ра "печать содержимого стека к."
;
LBP_2
LD A,#02 ;открываем канал вывода
CALL CHAN_OPEN ; на основной экран
LD HL,(PROG) ;адрес начала BASIC-программы
LP_LBP1 LD DE,(VARS) ;адрес начала BASIC-переменных
AND A ;сброс флага переноса для SBC
SBC HL,DE ;проверка на окончание программы
RET NC ;если HL>=DE, то выход из процедуры
ADD HL,DE ;восстанавливаем значение HL
PUSH HL ;сохраняем адрес строки на стеке
CALL OUT_NUM_2 ;печать номера строки
POP HL ;восстан-ем адрес строки со стека
PUSH HL ; и - опять же - сохраняем
LD B,H ;скопировали
LD C,L ; HL в BC
140. CALL PRN_BC ;распечатали адрес строки в памяти
POP HL ;восстан-ем адрес строки со стека
INC HL ;переход к
INC HL ; длине строки
LD C,(HL) ;младший байт длины строки
INC HL ;дальше
LD B,(HL) ;старший байт длины строки
INC HL ;переход к содержимому строки
PUSH HL ;сохраняем адрес на стеке
CALL PRN_BC ;печать длины текущей BASIC-строки
POP HL ;восстанавливаем адрес со стека
LP_LBP2 LD A,(HL) ;текущий символ строки
INC HL ;переход к следующему
CP #0D ;проверка на конец строки
JR Z,GO_LBP1 ;если да, то переход на обработку
LD DE,LP_LBP2 ;адрес цикла по символам кидаем на
PUSH DE ; стек, чтобы "вернуться" по RET
CP #0E ;наткнулись на число?
JR Z,GO_LBP2 ; если да, то переход на обработку
CP #08 ;код сдвига на одну позицию назад?
JR Z,GO_LBP3 ;если да, то обрабатываем
CP #10 ;если код символа меньше 16,
JR C,GO_LBP0 ; то печатаем его и -> к сл. симв.
CP #18 ;если 16 <= код символа <= 23,
JR C,GO_LBP4 ; то переход на обработку упр. кода
GO_LBP0 RST #10 ;печать одного символа
RET ;переход на LP_LBP2
;
GO_LBP1 RST #10 ;печать кода #0D - перевод строки
LD A,#0D ;и еще раз
RST #10 ; переводим строку
JR LP_LBP1 ;переход к следующей BASIC-строке
;
GO_LBP2 PUSH HL ;сохраняем адрес на стеке
CALL STACK_NUM ;5-байтное число -> на стек кальк.
CALL PRN_NUM ;печатаем его
POP HL ;восстанавливаем адрес со стека
LD BC,#0005 ;переход к символу BASIC-строки за
ADD HL,BC ; данным 5-байтным числом
RET ;переход на LP_LBP2
;
GO_LBP3 ADD A,#07 ;корректировка кода для #08
GO_LBP4 SUB #0F 3;получили число #00...#07 и занесли
LD C,A ; его в BC - это индекс (позиция)
LD B,#00 ; обозначения упр. кода в таблице
PUSH HL ;сохраняем адрес на стеке
LD HL,TBLCODE ;адрес таблицы обозначений упр. к.
ADD HL,BC ;адресовали элемент в этой таблице
SET 2,(IY+87) ;включить инверсию при печати
LD A,(HL) ;взяли обозн. упр. кода из таблицы
RST #10 ;напечатали его (обозначение)
RES 2,(IY+87) ;отключаем инверсию при печати
POP HL ;восстанавливаем адрес со стека
LD A,C ;определяем размер управл. кода:
OR A ;если это был код #08,
RET Z ;то выходим (у него нет параметров)
CP #06 ;если это были коды #16, #17, то
CALL NC,GO_LBP5 ; надо печатать два пераметра
GO_LBP5 LD A,(HL) ;взяли один байт из памяти (пар-р)
PUSH HL ;сохраняем адрес на стеке
CALL STACK_A ;забрасываем значение A на стек к.
CALL PRN_NUM ;печатаем это значение (параметр)
POP HL ;восстанавливаем адрес со стека
INC HL ;переход к след. символу в строке
RET ;"возврат" на GO_LBP5 или LP_LBP2
;
PRN_BC CALL STACK_BC ;помещаем BC на стек калькулятора
;
PRN_NUM SET 2,(IY+87) ;включить инверсию при печати
LD A,"[" ;распечатываем
RST #10 ; левую скобку (открывающую),
CALL PRINT_FP ; затем - число со стека кальк-ра,
LD A,"]" ; и, наконец печатаем
RST #10 ; правую скобку (закрывающую)
RES 2,(IY+87) ;отключаем инверсию при печати
RET ;возврат из подпрограммы
;
TBLCODE DB "<IPFBVAT" ;таблица обозначений управл. кодов
2
Шестнадцатеричный дамп проце-
дуры LBP_2:
FDE8: 3E 02 CD 01 16 2A 53 5C :E2
FDF0: ED 5B 4B 5C A7 ED 52 D0 :92
FDF8: 19 E5 CD 28 1A E1 E5 44 :0C
FE00: 4D CD 69 FE E1 23 23 4E :F4
FE08: 23 46 23 E5 CD 69 FE E1 :8C
FE10: 7E 23 FE 0D 28 16 11 10 :19
FE18: FE D5 FE 0E 28 14 FE 08 :37
FE20: 28 1D FE 10 38 04 FE 18 :C3
FE28: 38 17 D7 C9 D7 3E 0D D7 :0E
FE30: 18 BE E5 CD B4 33 CD 6C :D6
FE38: FE E1 01 05 00 09 C9 C6 :B3
FE40: 07 D6 0F 4F 06 00 E5 21 :85
FE48: 7E FE 09 FD CB 57 D6 7E :3E
FE50: D7 FD CB 57 96 E1 79 B7 :EB
FE58: C8 FE 06 D4 5E FE 7E E5 :B5
FE60: CD 28 2D CD 6C FE E1 23 :BB
FE68: C9 CD 2B 2D FD CB 57 D6 :49
FE70: 3E 5B D7 CD E3 2D 3E 5D :56
FE78: D7 FD CB 57 96 C9 3C 49 :50
FE80: 50 46 42 56 41 54 00 00 :41
Сохранение: SAVE "lbp_02.c" CODE
65000,15
* * *
