[Перевод] Как демо Memories умещается в 256 байт
Введение
Привет! Меня зовут «HellMood», а эта статья посвящена небольшой программе для MS DOS под названием «Memories». Эта программа имеет размер 256 байт, она выиграла в категории «PC 256 byte» соревнований демосцены«Revision» 2020 года, а также получила приз зрительских симпатий. Видео вывода программы можно посмотреть здесь (https://www.youtube.com/watch? v=Imquk_3oFf4), а видео с реакцией онлайн-аудитории и модераторов — здесь (https://www.twitch.tv/videos/589179638? t=7h02m40s). Скачать релиз и оставить комментарии можно здесь (https://www.pouet.net/prod.php? which=85227). В этой статье будет представлен глубокий анализ программы, рассказано об исторических отсылках и этапах разработки. Статья выложена в sizecoding wiki. Она не только позволит вам понять внутреннее устройство «Memories», но и поможет самим создать нечто похожее. Изучите её! Если вы новичок в sizecoding-е (написании программ в рамках нужного размера) или в ассемблере x86, то рекомендуется начинать с основ этой wiki. Принципы понять легко, но с подробностями реализации разобраться бывает не так просто.
Краткий обзор
В этой статье мы будем говорить об отправленной на конкурс версии для DosBox (256 байт). В архиве также содержатся версии для FreeDos и Windows XP DOS, которые на момент написания поста работали не на всех компьютерах. Эти альтернативные версии были включены в архив как proof of concept, чтобы показать, что программа не только работает в эмуляторе. В категории «PC 256 bytes» соревнований «Revision» 2020 года можно было указать в качестве платформы «FreeDos» или «DosBox» (последняя в конкретной конфигурации). Как доказывают альтернативные версии, на самом деле можно модифицировать версию для DosBox так, чтобы она работала во FreeDos, MS DOS, WinXP и Win98, но статья будет не об этом. Как бы то ни было, надёжные версии для всех платформ и компьютеров находятся в процессе разработкит. Что касается возможных дальнейших оптимизаций, я расскажу только об отправленной на конкурс версии, хоть я уже и нашёл несколько мест, в которых код можно оптимизировать. Так как эта демонстрация истории небольших эффектов, код почти ни одного из них неидеален, и его можно ещё сильнее уменьшить. Чтобы не путаться в разных версиях, я буду рассказывать только о конкурсной.
История небольших эффектов
Категории размеров на http://www.pouet.net
Мы, сайзкодеры, рассуждаем в категориях размеров. Для MS DOS такими категориями являются 256b, 128b, 64b и 32b. Это стандарты одного из крупнейших архивов демосцены http://www.pouet.net. Категории 16b нет, однако многие небольшие эффекты можно реализовать в 16 байтах. Почти все эффекты из «Memories» писались и оптимизировались мной ранее, и в основном их реализации стали попытками снизить уже существующий размер эффекта, или создать нечто похожее, но меньшего размера. Под снижением размера здесь подразумевается его уменьшение до одного из следующих меньших категорий 2^N. Например, если эффект был реализован в 33–64 байтах, то его уменьшают до 32 байт или меньше. Почти каждый раз, когда мне удавалось «спустить» эффект в более низкую категорию, я отправлял получившуюся крошечную программу на посвящённое демосцене мероприятие, в котором разрешалось участие удалённых участников в категории 256b, и/или публиковал результат на http://www.pouet.net. В этом разделе я познакомлю вас с эффектами, а также расскажу об их истории происхождения и авторах.
Array of chessboards
kasparov, 16 байт
Источником этого эффекта стал мой собственный «Kasparov 16b» 2018 года (https://www.pouet.net/prod.php? which=75912). Похоже (цитата из примечаний к релизу), я «просто сделал эту доску, уместил её в 17 байт, но это было не очень красиво, пока я не придумал трюк…». Раньше уже был похожий эффект, реализованный в 32 байтах: «ew» 2003 года от разработчика «headcrash». (https://www.pouet.net/prod.php? which=17567) В данном случае я стремился реализовать «настоящие» шахматные доски с полем 8×8 и узнаваемыми чёрными и белыми клетками, а также правильную ориентацию отдельных шахматных досок, то есть нижний правый угол (h1) должен был иметь белый цвет. Чтобы этот эффект работал с глобальным фреймворком, в «Memories» его пришлось реализовать заново при помощи другой техники: записи на экран; кроме того, было изменено направление скроллинга, чтобы он отличался от эффекта «scrolling tilted plane».
Zooming circles
Масштабируемые круги (zooming circles) должны были участвовать в демопати как интро на 32 байт, но я так этого и не сделал. У этого эффекта нет предшественника на 64 байт, потому что в категории 64b возможны гораздо более сложные эффекты. Zooming circles стали результатом моей отчаянной попытки попасть в категорию 32b с эффектом круглого «туннеля», для которого мой личный рекорд по-прежнему 52 байта («Neontube» — 2016 год) (https://www.pouet.net/prod.php? which=66808), который, в свою очередь, стал оптимизацией классического 64-байтного эффекта «constant evolution» разработчиков ryg/Farbrausch (2003 год) (https://www.pouet.net/prod.php? which=8697). В процедуре zooming circles расстояние и угол устранены/игнорируются, благодаря чему удалось попасть в категорию 32b.
Scrolling tilted plane
Floorcast, версия на 32 байта, вариация
Scrolling tilted plane — это один из моих собственных релизов, «floorcast 32b» 2018 года. Эффект «напольных покрытий» имеет собственную историю в sizecoding-е и постепенно уменьшился с 256 байт до 32 байт. Разные версии отличаются количеством плоскостей, в некоторых отображется две плоскости, в других — только одна. В релизе «floorcast 32b» я специально решил отказаться от текстуры «XOR», а в «Memories» снова её использовал, замаскировав её финальным штрихом в виде «AND».
Parallax checkerboards
Projektbeschreibung, 32 байт
Шахматные доски с параллаксом я выпустил в 2018 году в виде 32-байтного эффекта «Projektbeschreibung». В нём я пытался снизить размер «Follow the light» (https://www.pouet.net/prod.php? which=28543) из «Digimind» (2006 год) или моей собственной «Lucy» (2014 год) (https://www.pouet.net/prod.php? which=63293) до 32 байт. Очень полезными источниками вдохновения послужили «Paralaxa» автора Rrrolas (32 байт, 2007 год, https://www.pouet.net/prod.php? which=32281) и «Byteropolis» автора Sensenstahl (2013 год) (https://www.pouet.net/prod.php? which=61075). Техника рендеринга Rrrolas была очень близка к моему окончательному решению, код был изменён для исправления расположения плоскостей, замены треугольников на шахматные доски и улучшения цветов. В «Memories» использовала цветовая схема версии «Digimind». Кроме того, эффект был максимально модифицирован для снижения деформаций.
Sierpinski rotozoomer
colpinski, 16 байт
rotastic, 32 байт
Он состоит из двух эффектов: rotozoomer и эффекта Серпинского в качестве текстуры. Эффект Серпинского основан на моём собственном эффекте «Colpinski 16b» 2013 года (https://www.pouet.net/prod.php? which=62079), где максимум возможного удалось получить при помощи «frag» функции «fsqrt». У этого эффекта нет предшественника, потому что его можно реализовать напрямую комбинированием X и Y, а не использовать систему итерируемых функций (Iterated Function System) или клеточные автоматы. «Поворот и масштабирование» (rotozoomer) был выпущен мной в 2017 году как 32b-интро «rotastic» (https://www.pouet.net/prod.php? which=70112), он основан на идеях «ryg» разработчика Farbrausch (51 байт, 2002 год, https://www.pouet.net/prod.php? which=5015) и «Gargaj» группы «Conspiracy» (49 байт, 2002 год, https://www.pouet.net/prod.php? which=6088).
Raycast bent tunnel
Into a new era, 64-байтная версия
Изогнутый туннель с рейкастингом (raycast bent tunnel) стал модифицированной версией моего собственного 64-байтного релиза «Into a new era» (2018 год, https://www.pouet.net/prod.php? which=78044). Оригинальные цвета были заменены на цвета стандартной палитры, немного изменена геометрия и соответствующие вычисления, чтобы для вычисления значений текстур не использовался эффект глубины. Отдельная версия этого эффекта имеет размер 50 байт. Основными источниками вдохновения для создания 64-байтной версии стали два 128-байтных интро: «Spongy» от «TBC» (2009 год, https://www.pouet.net/prod.php? which=53871) и «Wolf128» автора Baudsurfer (2014 год, https://www.pouet.net/prod.php? which=63518), а алгоритм я разрабатывал самостоятельно.
Ocean night to day
Ocean, версия 64b
Эффект океана основан на моём собственном 64-байтном релизе «Ocean» 2016 года (https://www.pouet.net/prod.php? which=66857). Были вырезаны отдельная генерация цветов и музыки оригинала, оба генератора не были совместимы с основным фреймворком «Memories» без использования КУЧИ лишних байтов. Спецэффект «рассвета» происходит благодаря общей реализации структуры фреймворка. Об этом я расскажу в следующей главе.
Fading effect
Переход между двумя эффектами сам по себе является эффектом, у которого нет предшественников. Скорее, это идея, которая эволюционировала в течение нескольких лет, и возможно, она похожим образом была реализована многими другими. Если вкратце, то при вычислении кадра позиция каждого пикселя рандомизируется, а время, определяющее, какой эффект надо использовать, смещается на это значение рандомизации, которое было предварительно уменьшено. Это позволяет использовать стандартную VGA-палитру (изображение, источник), а не создавать собственные цвета для плавного смешивания, благодаря чему экономится пространство.
Фреймворк моего «крошечного мегадемо»
Чтобы объединить несколько маленьких эффектов в одно «мегадемо», в них должна использоваться одинаковая техника и они по большей мере не должны применять допущения (относительно содержимого памяти и регистров). Также они обязаны использовать одинаковые значения таймингов и работать в соответствии с общим временем. На подготовку отдельных эффектов, подходящих для фреймворка потребовалось довольно много времени, а поначалу — и много дополнительного места. Нужно заметить, что некоторые из самых впечатляющих эффектов (если судить по реакции зрителей и просмотрам в соцсетях) невозможно было включить в демо из-за ОГРОМНОГО избыточного использования памяти. После того, как работа всех эффектов была налажена, я мог начать думать над «вынесением за скобки» часто повторяющихся вычислений, что позволило бы сэкономить ещё немного байтов. Фреймворк выполняет следующие дейсвтия:
- Переключение в экранный режим 320×200 пикселей с 256 цветами
- Инициализация указателя на экран
- Установка обратного вызова для отсчёта времени и музыки
- Основной цикл
- Вычисление X и Y из текущей точки экрана
- P = псевдослучайное значение из точки экрана
- Смещение текущего времени T на отмасштабированную величину P'
- Выбор номера эффекта N в соответствии с T'
- Выполнение эффекта N (X, Y) для текущего пикселя
- На входе XY находятся в регистре DX (DL, DH)
- На входе текущее время находится в регистре BP
- На выходе в AL ожидается цвет пикселя
- Переход к следующему пикселю
- Тройной диагональный интерлейсинг для сглаживания
- Повторять до завершения кадра
- Вычисление X и Y из текущей точки экрана
- Установить таймер на темп примерно 35 FPS
- Проверить клавиатуру на нажатие ESC
- Выйти при нажатии ESC, в противном случае продолжать
Код фреймворка
org 100h
s:
mov al,0x13 ; set AL to mode 320*200 in 256 colors
int 0x10 ; call BIOS to set mode
xchg bp,ax ; set timing value to 0x13
push 0xa000-10 ; write the screen adress to register ES
pop es ; works in conjunction with Rrrola trick
mov ax,0x251c ; parameter for changing timer interrupt
mov dl,timer ; adress of timer routine, assume DH=1
int 0x21 ; install timer routine
top:
mov ax,0xcccd ; load magic Rrrola constant
mul di ; transform screen pointer to X, Y
add al,ah ; use transformation garbage as
xor ah,ah ; pseudorandom value and clear AH
add ax,bp ; add time value to random value
shr ax,9 ; divide by 512 (basically the speed)
and al,15 ; filter effect number
xchg bx,ax ; move effect number to BX
mov bh,1 ; reset BH to align with start of code
mov bl,[byte bx+table] ; read the effect address from the table
call bx ; call the effect
stosb ; write the return value and advance
inc di ; triple interlace trick for after
inc di ; effect and smoothing the animation
jnz top ; repeat until the frame is complete
mov al,tempo ; set AL to divider for timer
out 40h,al ; set timing (dual pass)
in al,0x60 ; read keyboard
dec al ; quit on ESC
jnz top ; otherwise repeat loop
sounds: db 0xc3, 11, 0x93; 0xc3 is MIDI/RET; fx2-s is used as volume
table: db fx2-s,fx1-s,fx0-s,fx3-s,fx4-s,fx5-s,fx6-s,sounds-s,stop-sОбъяснение эффектов
Array of chessboards
array of chessboards
Самый простой эффект, с которого хорошо начинать. После смещения строки на время применяется класссический паттерн XOR. Чтобы создать впечатление сетки из шахматных досок, в цвете задаются все биты, кроме двух. Настоящая хитрость заключается в сдвиге в «хорошее» место палитры. Та часть кадра, которая воспринимается чёрной, на самом деле не чёрная, а является тёмной частью стандартной VGA-палитры. Такой сдвиг позволяет придать тёмным и светлым клеткам ощущение древней шахматной доски.
xchg dx,ax ; get XY into AX
sub ax,bp ; subtract time from row
xor al,ah ; XOR pattern (x xor y)
or al,0xDB ; pattern for array of boards
add al,13h ; shift to good palette spotZooming circles
zooming circles
Расстояние D от точки (X, Y) до центра (0,0) равно sqrt (X²+Y²). Фреймворк предварительно делает так, чтобы DL содержал центрированную координату X, а DH=Y нужно центрировать в коде. Для выполнения операции вычисления квадратного корня в x86 требуется довольно много кода, но на самом деле его можно не использовать. При продуманном выборе цветов ощущение сходящихся кругов без квадратного корня кажется вполне убедительным.
mov al,dh ; get Y in AL
sub al,100 ; align Y vertically
imul al ; AL = Y²
xchg dx,ax ; Y²/256 in DH, X in AL
imul al ; AL = X²
add dh,ah ; DH = (X² + Y²)/256
mov al,dh ; AL = (X² + Y²)/256
add ax,bp ; offset color by time
and al,8+16 ; select special ringsScrolling tilted plane
scrolling tilted plane
Этот эффект реализован следующим образом: сначала для имитации расстояния большая константа делится на строку номер Y. Затем полученное значение используется дважды: a) умноженное на центрированное значение X и b) как смещённое на текущее время. Затем эти результаты комбинируются при помощи паттерна XOR, из которого выбирается специальный паттерн.
mov ax,0x1329 ; initialize with constant
add dh,al ; preventing divide overflow
div dh ; reverse divide AL = C/Y'
xchg dx,ax ; DL = C/Y', AL = X
imul dl ; AH = CX/Y'
sub dx,bp ; DL = C/Y'-T
xor ah,dl ; AH = (CX/Y') ^ (C/Y'-T)
mov al,ah ; move to AL
and al,4+8+16 ; select special patternParallax checkerboards
parallax checker boards
Это своего рода рейкастинг (испускание лучей) с динамической геометрией. Каждая плоскость объектов разделена по горизонтали из-за 16-битного умножения со знаком и по вертикали из-за операции неявной логики с номером столбца. Дополнительно применяется косвенное искажение, чтобы соединялись края получившейся сетки (4 «сплошных» областей, 4 «прозрачных» областей попеременно). Если луч пересекает одну из сплошных областей, цвет становится числом итерации (+смещением палитры в оттенках серого), а если нет, то плоскость смещается на указатель экрана, после чего процесс повторяется до достижения максимального числа итераций.
mov cx,bp ; set inital point to time
mov bx,-16 ; limit to 16 iterations
fx3L:
add cx,di ; offset point by screenpointer
mov ax,819 ; magic, related to Rrrola constant
imul cx ; get X',Y' in DX
ror dx,1 ; set carry flag on "hit"
inc bx ; increment iteration count
ja fx3L ; loop until "hit" or "iter=max"
lea ax,[bx+31] ; map value to standard gray scaleSierpinski rotozoomer
sierpinski rotozoomer
График 1/cos (atan (x)), созданный с помощью www.google.com
Для поворота с масштабированием обычно требуются тригонометрические функции или их хорошие приближенные значения. Давайте взглянем на обычное уравнение 2D-поворота и интерпретируем его особым образом, чтобы избавиться от тригонометрии в вычислениях:
x' = x*cos(a) - y*sin(a)
y' = x*sin(a) + y*cos(a)
Если мы добавим масштабирование, то это будет выглядеть вот так:
x' = z * (x*cos(a) - y*sin(a))
y' = z * (x*sin(a) + y*cos(a))
А теперь давайте допустим, что мы не задаём z самостоятельно, и вынесем 1/cos (a) за скобки:
x' = 1/cos(a) * (x - y*tan(a))
y' = 1/cos(a) * (x*tan(a) + y)
Теперь заменим tan (a) переменной времени, потому что функция тангенса при приближении к 180° стремится к бесконечности:
x' = 1/cos(atan(T)) * (x - y*T)
y' = 1/cos(atan(T)) * (x*T + y)
Если нас не волнует отсутствие возможности задания коэффициента масштабирования и мы не управляем углом напрямую, то теперь можно выполнять повороты от -180° до +180° без использования тригонометрических функций. Вследствие этого коэффициент масштабирования оказывается привязанным ко времени T. Функция для коэффициента показана на изображении, благодаря ей масштабирование происходит от бесконечно малого числа до единицы (исходного размера) и обратно к бесконечно малому. Порядочное количество байтов было потрачено на украшение этого эффекта, исправление смещения времени, ускорения анимации, увеличения пикселей треугольников Серпинского и создание красивых цветов, но я считаю, что оно того стоило.
lea cx,[bp-2048]; center time to pass zero
sal cx,3 ; speed up by factor 8!
movzx ax,dh ; get X into AL
movsx dx,dl ; get Y int DL
mov bx,ax ; save X in BX
imul bx,cx ; BX = X*T
add bh,dl ; BH = X*T/256+Y
imul dx,cx ; DX = Y*T
sub al,dh ; AL = X-Y*T/256
and al,bh ; AL = (X-Y*T/256)&(X*T/256+Y)
and al,252 ; thicker sierpinski
salc ; set pixel value to black
jnz fx4q ; leave black if not sierpinski
mov al,0x2A ; otherwise: a nice orange
fx4q:Raycast bent tunnel
raycast bent tunnel
Это разновидность туннеля с рейкастингом из «into a new era» (см. выше). Подробное описание этого эффекта для похожей программы «Essence» было опубликовано на reddit. Я избавился от уникальных цветов, изменил направление наклона, а геометрия стала более замкнутой для повышения производительности на старых компьютерах и в DosBox.
mov cl,-9 ; start with depth 9 (moves backwards)
fx5L:
push dx ; save DX, destroyed inside the loop
mov al,dh ; Get Y into AL
sub al,100 ; Centering Y has to be done "manually".
imul cl ; Multiply AL=Y by the current distance, to get a projection(1)
xchg ax,dx ; Get X into AL, while saving the result in DX (DH)
add al,cl ; add distance to projection, (bend to the right)
imul cl ; Multiply AL=X by the current distance, to get a projection(2)
mov al,dh ; Get projection(1) in AL
xor al,ah ; combine with projection(2)
add al,4 ; center the walls around 0
test al,-8 ; check if the wall is hit
pop dx ; restore DX
loopz fx5L ; repeat until "hit" or "iter=max"
sub cx,bp ; offset depth by time
xor al,cl ; XOR pattern for texture
aam 6 ; irregular pattern with MOD 6
add al,20 ; offset into grayscale paletteOcean night to day
oceannight
oceanday
Эффект океана — превосходный пример «счастливой случайности». Если загрузить значение в FPU как integer и хранить его как число с плавающей запятой, а затем снова интерпретировать его как integer, то мы получим отличный паттерн. Если скомбинировать это с обратным делением, то получится красивый эффект волн. Он работает в тесной связке с регистром DX, у которого есть перемена знака в нужной нам позиции, поэтому мы можем легко может отделить небо от моря. Однако финальным штрихом становится расцветка. В соответствии со структурой глобального фреймворка значение AL определяется на входе функции, он содержит адрес эффекта. Немного перетасовав код, можно получить цвет неба «бесплатно», не используя инструкций, так же, как цвет «перехода в день», который тоже является адресом эффекта. И это не счастливое совпадение. В других версиях, отличающихся от версии для DosBox, цвет неба по этой причине может варьироваться.
sub dh,120 ; check if pixel is in the sky
js fx6q ; quit if that's the case
mov [bx+si],dx ; move XY to a memory location
fild word [bx+si] ; read memory location as integer
fidivr dword [bx+si]; reverse divide by constant
fstp dword [bx+si-1]; store result as floating point
mov ax,[bx+si] ; get the result into AX
add ax,bp ; modify color by time
and al,128 ; threshold into two bands
dec ax ; beautify colors to blue/blackFading effect
Для удобства эффект изолирован от глобального фреймворка. По сути, он генерирует из указателя экрана псевдослучайное число, а затем выполняет смещение времени на его отмасштабированное значение, после чего вызывая нужный эффект.
mov ax,0xcccd ; load magic Rrrola constant
mul di ; transform screen pointer to X, Y
add al,ah ; use transformation garbage as
xor ah,ah ; pseudorandom value and clear AH
add ax,bp ; add time value to random value
shr ax,9 ; divide by 512 (basically the speed)
and al,15 ; filter effect number
xchg bx,ax ; move effect number to BX
mov bh,1 ; reset BH to align with start of code
mov bl,[byte bx+table] ; read the effect address from the tableMIDI-музыка
Этот раздел кода выполняет инкремент значения времени и создаёт звук. Выбрав канал 3, мы можем повторно использовать инструкцию «смена инструмента канала» в качестве «RET». Выполняя сдвиг кода эффектов, можно создать подходящее значение для громкости, что позволяет сэкономить ещё один байт. Стоит учесть, что эта часть кода работает, только если MIDI-устройство уже находится в режиме UART, в противном случае нужно будет потратить ещё три байта. Многие из зрителей и организаторов говорили мне, что мелодия немного напоминает «Incantations» Майка Олдфилда, но создавалась она очень простой техникой. Со времён «Hypnoteye» 2015 года я экспериментировал с процедурным MIDI и в конечном итоге выпустил небольшой MIDI-фреймворк (64 байта). Основной принцип его работы заключается в прыжках с фиксированным шагом по пространству тонов и преобразовании высоких значений в более низкие (делением по модулю). Простыми сочетаниями stepwidth и modvalue можно достичь интересных эффектов. Например, stepwidth=3 позволяет получить постоянно длящийся сниженный минорный аккорд, а stepwidth=4 или stepwidth=6 — тритональные эффекты. При хорошо подобранном modvalue эти паттерны могут создавать последовательности. Я пока не проводил должного теоретического анализа, а просто исследовал пространство тонов и отмечал интересные звуки.
sounds: db 0xc3, 11, 0x93, fx2-s
...
inc bp ; increment timing value
test bp, 7 ; play a note every 8th step
jnz nomuse ; quit if in between
mov dx,0x330 ; port number for MIDI
mov si,sounds ; adress for sound data
outsb ; change instrument of channel 3
outsb ; to vibraphone
outsb ; play a note on channel 3
imul ax,bp,-19*32*4 ; the magic melody constant
shr ax,10 ; scale down and implicit "and 63"
add al,22 ; pitch base is 22
out dx,al ; play THIS note on channel 3
outsb ; play it with THIS volumeПолный код релиза
; "memories" by HellMood/DESiRE
; the tiny megademo, 256 byte msdos intro
; shown in April 2020 @ REVISION
;
; (= WILL BE COMMENTED IN DETAIL LATER =)
;
; create : nasm.exe memories.asm -fbin -o memories.com
; CHOOSE YOUR TARGET PLATFORM (compo version is dosbox)
; be sure to use the dosbox.conf from this archive!
; only ONE of the defines should be active!
%define dosbox ; size : 256 bytes
;%define freedos ; size : 230 bytes
;%define winxpdos ; size : 263 bytes
; DON'T TOUCH THESE UNLESS YOU KNOW WHAT YOU'RE DOING
%ifdef winxpdos
%define music
%define switch_uart
%define safe_dx
%define safe_segment
%endif
%ifdef freedos
%define safe_dx
%endif
%ifdef dosbox
%define music
;%define safe_dx ; sometimes needed
%endif
; GLOBAL PARAMETERS, TUNE WITH CARE!
%define volume 127 ; not used on dosbox (optimization)
%define instrument 11
%define scale_mod -19*32*4;
%define time_mask 7
%define targetFPS 35
%define tempo 1193182/256/targetFPS
%define sierp_color 0x2A
%define tunnel_base_color 20
%define tunnel_pattern 6
%define tilt_plate_pattern 4+8+16
%define circles_pattern 8+16
org 100h
s:
%ifdef freedos
mov fs,ax
mov [fs:0x46c],ax
%endif
mov al,0x13
int 0x10
xchg bp,ax
push 0xa000-10
pop es
%ifndef freedos
mov ax,0x251c
%ifdef safe_dx
mov dx,timer
%else ; assume DH=1, mostly true on DosBox
mov dl,timer
%endif
int 0x21
%endif
top:
%ifdef freedos
mov bp,[fs:0x46c]
%endif
mov ax,0xcccd
mul di
add al,ah
xor ah,ah
add ax,bp
shr ax,9
and al,15
xchg bx,ax
mov bh,1
mov bl,[byte bx+table]
call bx
stosb
inc di
inc di
jnz top
mov al,tempo
out 40h,al
in al,0x60
dec al
jnz top
sounds:
db 0xc3 ; is MIDI/RET
%ifdef music
db instrument,0x93
%ifdef switch_uart
db volume ; without switch, volume is in table
db 0x3f
%endif
%endif
table: ; first index is volume, change order with care!
db fx2-s,fx1-s,fx0-s,fx3-s,fx4-s,fx5-s,fx6-s,sounds-s,stop-s
stop:
pop ax
ret
timer:
%ifndef freedos
%ifdef safe_segment
push cs
pop ds
%endif
inc bp
%ifdef music
test bp, time_mask
jnz nomuse
mov dx,0x330
mov si,sounds
outsb
outsb
outsb
imul ax,bp,scale_mod
shr ax,10
add al,22
out dx,al
outsb
%ifdef switch_uart
inc dx
outsb
%endif
%endif
nomuse:
iret
%endif
fx0: ; tilted plane, scrolling
mov ax,0x1329
add dh,al
div dh
xchg dx,ax
imul dl
sub dx,bp
xor ah,dl
mov al,ah
and al,tilt_plate_pattern
ret
fx2: ; board of chessboards
xchg dx,ax
sub ax,bp
xor al,ah
or al,0xDB
add al,13h
ret
fx1: ; circles, zooming
mov al,dh
sub al,100
imul al
xchg dx,ax
imul al
add dh,ah
mov al,dh
add ax,bp
and al,circles_pattern
ret
fx3: ; parallax checkerboards
mov cx,bp
mov bx,-16
fx3L:
add cx,di
mov ax,819
imul cx
ror dx,1
inc bx
ja fx3L
lea ax,[bx+31]
ret
fx4: ; sierpinski rotozoomer
lea cx,[bp-2048]
sal cx,3
movzx ax,dh
movsx dx,dl
mov bx,ax
imul bx,cx
add bh,dl
imul dx,cx
sub al,dh
and al,bh
and al,0b11111100
salc ; VERY slow on dosbox, but ok
jnz fx4q
mov al,sierp_color
fx4q:
ret
fx5: ; raycast bent tunnel
mov cl,-9
fx5L:
push dx
mov al,dh
sub al,100
imul cl
xchg ax,dx
add al,cl
imul cl
mov al,dh
xor al,ah
add al,4
test al,-8
pop dx
loopz fx5L
sub cx,bp
xor al,cl
aam tunnel_pattern; VERY slow on dosbox, but ok
add al,tunnel_base_color
ret
fx6: ; ocean night / to day sky
sub dh,120
js fx6q
mov [bx+si],dx
fild word [bx+si]
fidivr dword [bx+si]
fstp dword [bx+si-1]
mov ax,[bx+si]
add ax,bp
and al,128
dec ax
fx6q:
ret art : hammerfist
∂#MW%e _d$Ng,
'B, ∂b _jM@$QZb,cQ" )@
,edRB$b,l@ Wk,yGR$KM&$b, ,dP" Wl ]bsd%UR8BG6&$@DSyG#ZKM&$b,
,dP "T%L 'MGF "*∂R_ Tg "*4Zk,#I YP W" 7P "*∂R
4M gd@ ^ ∂@ d@b dQ$#@Z@R3L_ "*GMj 'W ,gd$ d@b 9Q$#%b
W#, `M Wb `* _4P `Qk *#N8L `H5 @b 'QR7YK `* _4F" Qk
`6@L dML '@ ,BK 'M ∂B *b, '#L
^QBb,_ _,4&M∞∂@=,_ _dGL _gQKM GL @k 'Mg,_ _dG,
"*BN5W$2#MNP" "*G3WRM8&B5P"`Y@QNW3Z5P" ∂#$W8BRM3XZN87 "*GW38M%EBDW5P"`
p r e s e n t s
4
d@,
_& `Wl
_,aP "#baedM$#@@K JP*"?ML
,ad@$#P" ,d@NEWVB" X,aQPYb,_
V@Mm,_ ,d@MW#BW' EMP" '¶R ,ngBP^fML
¶M@N@y Y#BNW#M" J9" `MQ9" "MgRBq ,QBMg,
VN#P` ,d@@ `WM@^ 7f ¶F` 7kY" ^G _.eQNE1.
]B _G@MWN$, `P ' 4b QP ¶w@F*^ ^Qb
]O@NRM#W@MNB, ; ^` j JP^ Yl
J#NRNWM@#BcT"^ ,A _J _q@ `X
'¶WM#B@WdY`,7 _G#YN#PM _,gG" M,
*BN#WP" dK ,Q@NRMB"]9 , _,M@Q* #A
"U^ V@h, iNBW#NT J' J9 s@QN" _; 'D,
¶RMBv&NMQR@9 .W .K' "9` ,6BA _JL ]l
Y#NE@W#NRP #[ `¶8 _d@MW#B_jW#W BN
"GQ@MR#W QL_ *B _,p#NBW#NQMG@WY 3Q
"Y@F ,XW@M%im,_Yb_ _,g5@#MW@QMNE@E@NRMB ,WM
` _,gP*"#REM#GB@N#MQbnd@N#M@MW#R8QSB^'WQERM@ ;4NB,
,GYKL ¶E#B8R8QSB@M@#BM#W@MNB"`_ , "^` N ,dW@Ql
_Q`'W`*t '¶@GS#MBQ#E@W#NQBW[ 'LvQ_ ,K _dNABGM#N
,F ' `^WAB@QGE9*"9^*@L jP7FY, ¶h,_.jWM#BR#GBM,
J; , _ ' ' "LL YxE#B8R8QSBNW@W;
AP _,Ag6^ _ J ¶A `"Q#M@MW#R8E#P
j@ `"XQW[ 'LvK,_ 'L_,/ @t Y#NE@WNR"
:M/ 9^*@L jP7F" _PYKL _,A; ¶RSNQ"
dKL ' ` ' "L "`'W`*t `"XQb `W^
Q`8t 'L_,/ , _ ' 9^Q
,W _PYKL _,Ag6^ ' W, _ ,#N&
!N _ J "`'W`*t `"XQW[ _ J N!_JG9^RwQ' *t
`W, 'LvK,_ ' _gGB8@L _ 'LvK,_ ,WgB' V 7L
_.,gm&@B&wBZF" j@'` "WL _gML jZd7Yb lN" dBWl
,g&QB*"^` `"*G@g, .gR&k,_ ,N" '@QF ¶k;gMF *QvQ jQ, ,@N@B#,
.eQF*` `Yb@" "*6Qg,gF , 7 XMN" 'MNB, ^¶QWSER@N;
,gP" qy, W' ^Q' &L ,g@W' `QMEL `"WBNWP
g7 ¶9 ,X M? 9" _q8MSK ¶EMt *@K
Vh _,m#L _AH le ,GBDNE9^A, *@F NMg
¶L,qQ@ND _.m@Bl We ,gM@B8#Q' ¶h_ lWE,
W9NHW@` JWM#B@] @e 4WR@NGF^ 'QL dRWl
VMd* "@BE@PM 'N *UP" VW, JRSB;
,@F j `¶WK W, ¶t XNt _A@E#N
_JP ,6& "GLdM XD, _.g8NMA@k,_ _,gG#NMGR;
"Z .JRER 'VMi _jNB#W&_ _,j@E@W#Nl ¶MBGMNQGNQMG@QBW9
¶h ,G@NRMBl `" ,d#R@M$F ¶Mg,_.gp&@@NEWVBWBMG *QMN8R8SBN$E@WF
Vb dW#R8QSRb, *YM@EQ,_ 'MENBW#NQMG#B@R@MW#l "BM@QNENRQG'
*WGS#MBMNEYL `^"*8M@Q@NRM#W@BWSNW@QBF"` `^*@QBF^ [HFT]
^M@MW#Q9 ^Wt `^¶RQ@W8NQGP*`
¶Q#@P Vk lA `"^`
Y" `MA J#,
*R@, ,MQl
Y#Wk, GWM8L
W8RQSt,_ AQ@MR#,
`@M@#SB@Mbm.,_ QNBW#NW
¶QB8R8SBN$WNRM@#GNtwg@NMQR@B'
*MBQ#8R8QS@NE@WNBW#NQMG@NR;
`WGS#MBQ#R8QSB@NE@W#NQBW9
*OMW@QMNE@E@NRMW@QMB@*
`^"YQW@Q#SB#NE@EGP
`^"*8R@GBQF`