О макросе бедном замолвите слово...
(c) Vitamin/CAIG:
Наверное, многие кодеры (по крайней ме-
ре, начинающие) сетовали на некоторые не-
достатки ассемблера, которые, впрочем, от-
сутствовали у языков более высокого уров-
ня. Это я речь веду о конструкциях. Но
ведь можно если и не превратить ассемблер
в паскаль или что-нибудь еще, то сделать
программирование более удобным. Для осуще-
ствления подобной затеи нам понадобится
ассемблер, поддерживающий макросы. Приве-
дённые ниже примеры написаны под Alasm
v4.4x. При особом желании их можно переде-
лать под любой другой макроассемблер. Так
вот, начнем с одного, то есть двух простых
макросов, которые могут сделать работу с
переменными более удобной, нежели раньше.
MACRO GET
IFN ?:1+1 ;проверяем на наличие
LD :0,(:1) ;переменной
ELSE
DISPLAY "Variable :1 is not found"
ENDIF
ENDM
И второй макрос:
MACRO PUT
IFN ?:0+1
LD (:0),:1
ELSE
DISPLAY "Variable :0 is not found"
ENDIF
ENDM
А пользоваться ими надо так:
xpos equ 32768 ;объявляем переменную
...
get b,xpos ;считали
...
put xpos,a ;записали
Регистры могут быть и парные.
В качестве переменных не могут использо-
ваться абсолютные адреса.
Еще несколько макросов на данную тему.
Пусть у нас есть какая-то сложная структу-
ра данных и нам надо поудобнее обратиться
к ее элементам. Пусть адрес структуры хра-
нится в IX.
MACRO MOV
IFN ?:1+1
LD :0,(IX+:1)
ELSE
DISPLAY "Field :1 is not defined"
ENDIF
ENDM
Пример использования:
BOX DB 0 ;x
DB 1 ;y
DB 2 ;width
DB 3 ;heigth
BOX_X EQU 0
BOX_Y EQU 1
BOX_W EQU 2
BOX_H EQU 3
LD IX,BOX
...
MOV A,BOX_X
...
И, чтобы закончить тему переменных,
расскажу о доступе к битовым полям.
MACRO MASK
IFN (?:0+1)&(?:1+1)
BIT :0,(IX+:1)
ELSE
DISPLAY "Field :0 or field :1 not defined"
ENDIF
ENDM
Для примера дополним предыдущий пример
строками:
BOX ...
DB 0 ;flag
...
BOX_FLAG EQU 4
BOX_FULL EQU 0
BOX_TURN EQU 1
BOX_CLOS EQU 2
...
MASK BOX_FULL,BOX_FLAG ;проверяем
JZ ... ;если что, переходим
Аналогично, можно добавить макросы для
установки и снятия битовых переменных.
Идем дальше. Каждому знакома ошибка вы-
хода за поле при компиляции команд относи-
тельного перехода. Тогда мы берем и испра-
вляем все jr на jp. А потом, когда все уже
соптимизировано, настроено и есть возмож-
ность некоторые jp заменить опять на jr,
но пойди найди их среди кучи себе подоб-
ных - зае..., пардон, забодаешься :) А
следующий макрос старается делать оптима-
льный код, автоматически ставя jr, когда
это возможно, а в остальных случаях - jp.
Но есть одна нехорошая особенность: он
хорошо работает только с конкретно задан-
ными адресами, либо с уже определенными
метками, имхо особенность аласма с его од-
нопроходностью. Если что, компилятор выда-
ст ошибку и вы поменяете jmp на jp. Риска
немного, зато во многих случаях он дейст-
вительно сэкономит вам пямять.
MACRO JMP
LOCAL ;локальные метки
DIFF=:0-$-2 ;разность хода
IF DIFFὀ ;если переход вперед
IF DIFF&#FF80 ;если укладываемся в
DB #18,DIFF ;короткий переход
ELSE
JP :0 ;если нет
ENDIF
ELSE
DIFF=-DIFF ;если переход назад
IF DIFF&#FF80
DB #18,-DIFF
ELSE
JP :0
ENDIF
ENDIF
ENDL
ENDM
Можно модернизировать данный макрос и
создать несколько новых с именами jz, jnz,
jc, jnc, которые будут оптимизировать ус-
ловные переходы, и макрос loop, который
будет выбирать между djnz и dec b:jp nz.
А этот макрос позволяет скопировать об-
ласть памяти.
MACRO COPY
LOCAL
OLDADR=$
DEST=:0
ORG :1
DUP :2
DB {DEST}
DEST=DEST+1
EDUP
ORG $
ENDL
ENDM
А пользоваться им надо так:
COPY from,to,length. Если длина пересылае-
мого блока кратна 2, то можно исправить DB
на DW и DEST=DEST+2. Только учтите, что
данный макрос очень медленно работает -
даже медленней,чем бейсик,да и строк доба-
вляет при компиляции 2*length. Он нужен
для копирования данных, которые должна вы-
полнять внешняя по отношению к данной про-
цедура.
Неплохая коллекция макросов поставляет-
ся в комплекте с аласмом, это и счетчик
билдов, и генератор случайной фигни :)
Как-то мне Steve отдал свои диски на
спектрум, причем некоторые ему отдал один
чувак по имени Unwinder, который был в на-
шей группе еще до того, как я в ней появи-
лся. Так вот, на одном диске я нашел игру-
шку "Питон", написанную целиком на макро-
сах и макросредствах ассемблера. Запуска-
лась она при компиляции и была адаптирова-
на под Tasm. Попытки перенести ее на Alasm
не увенчались успехом, к тому же я не ра-
зобраля в принципе ее работы. Но постара-
юсь ее найти и предоставить на всеобщее
обозрение.
На этом разрешите откланяться. Если что
еще придумаю - расскажу обязательно!
------------------------------------------
Alone Coder:
Со своей стороны могу прокомментиро-
вать, что питона под ALASM написать труд-
нее,поскольку придётся пропатчить резидент
ALASM'а, чтобы он включил прерывания при
ассемблировании. К счастью, он вроде бы не
использует нестандартных стеков...
...А J7n/4D, программируя под TASM,изобрёл
совершенно безумный макрос. Интересно, что
на ALASM он тоже работает!
;MACROS LIBRARY Revision 2.0
;J7n'n'MiKE/4D 98-2001
MACRO COP
IFN :1
:0
COP :0,:1-1
ENDIF
ENDM
Произвольная команда копируется произ-
вольное число раз! И это в одну строчку!
А вот оттуда же, новая вариация на тему
выравнивания кода по границе 256 байт:
MACRO OFFSET
IFN .$
DS #100-.$
ENDIF
ENDM
Вот мой макрос опроса портов клавиату-
ры. Вместо опроса порта #FEFE просто пишем
"i 2", можно с параметром, тогда можно вы-
делить нужную клавишу:
MACRO i
LD A,-:0
IN A,(-2)
IFN ?i:1-2
AND :1
ENDIF
ENDM
Как вы можете заметить, мои макросы од-
нобуквенные. Это для экономии места в ис-
ходнике. Для ещё большей экономии вызовы
макросов следует писать от поля метки, то
есть вот так:
i 2,1
Хотел я сделать такой макрос, но не по-
лучилось - русские буквы не понимаются:
;MACRO ы
;EX DE,HL
;ENDM
Поэтому придётся писать по-старинке:
DB "ы
А вот мой вариант JP/JR:
;Jp/r (UNDEFINED=JR)
MACRO j
IFN ?:0
JR :0
ELSE
IF :0-$+126/256
JR :0
ELSE
JP :0
ENDIF
ENDIF
ENDM
Правда, я им не пользуюсь.
Проверка HL на ноль с возможным перехо-
дом по нулю. Этот макрос не только убавля-
ет исходник,но и позволяет сменить условие
нахождения начала текста в ACEdit. (Макрос
используется во всех проверялках начала
текста в редакторе.)
MACRO b
LD A,H
OR L
IFN ?b:0-2
JR Z,:0
ENDIF
ENDM
Что делает следующий макрос, надеюсь,
объяслять не надо?
MACRO [
LD HL,(:0)
CALL :1
LD (:0),HL
ENDM
Этот макрос я использовал для хранения
таблицы скан-кодов клавиатуры в формате,
описанном в AlCoNews#6:
MACRO d
DB :0
DW :1
ENDM
Кстати, его можно зациклить! Только ещё
вопрос, будет ли это выгодно по размеру :)
Это просто копирование откуда-то куда-
то (позволяет экономить некоторое количес-
тво места в исходнике):
MACRO l
LD HL,(:0)
LD (:1),HL
ENDM
Сравнивалка 16-разрядных чисел.Если да-
ны параметры, то ещё и переход по условию!
MACRO s
OR A
SBC HL,BC
ADD HL,BC
IFN ?s:0-2
JR :0,:1
ENDIF
ENDM
Вот это интересный макрос.Такие вот ма-
кросы, совершенно неожиданные, появляются
при оптимизации программы. Эту последова-
тельность команд я нашёл весьма популяр-
ной, когда смотрел распечатку ACE. Вывод
таких макросов - первый шаг к поиску мест
для сокращения программы по длине.
Итак: цикл,в котором что-то вызывается,
и что-то (регистр-другой) инкрементирует-
ся!
MACRO c
LOCAL
cc
CALL :0
IFN ?c:1-2
INC :1
ENDIF
IFN ?c:2-2
INC :2
ENDIF
DJNZ cc
ENDL
ENDM
На самом деле можно было бы не прове-
рять наличие параметров (всё-таки ненаг-
лядная и недокументированная возможность
ALASM),но тогда при ассемблировании на эк-
ран будут выводиться ошибки,что некрасиво.
К тому же, лучше точная уверенность в ре-
зультате!
