Ничего себе... 3D шутер...

[DomiNick]

Создал новый сайт на Народе... Пока никакого оформления, но самые интересные творения коллектива "Farbrausch" уже там...

Плюс нашёл одну из первых их демосцен - "fr-0.1"! Для ДОСа!! Весом всего 64 байта!!!

Да ещё и с исходным кодом на Ассемблере!!!
Синтаксис мне не знаком, вероятно НЕ для TASM...

Нужен кто-то, кто просто "опупенно" разбирается в Ассемблере.......

[JTG]

Да синтаксис не важен, 64 байта разобрать легко, вот на FASM`е например, а вот допереть что-там за манипуляции с видеопамятью...

org 100h
use16

    mov     al, 13h
    cmc
    inc     dx
    int     10h
    push    0A000h
    pop     es

loc_1:
    mul     bx
    inc     ax
    add     ax, di
    adc     [si], bx
    div     word[si+0Ch]

loc_2:
    fmul    dword[si]
    fiadd   word[si]
    fistp   word[bx]
    sub     ax, 82h
    xchg    ax, [bx]
    xor     cx, ax
    fild    word[bx]
    fmul    st, st
    xor     bx, bp
    xchg    ax, dx
    fxch    st1
    jnz     loc_2

    faddp   st1, st
    fsqrt
    fdivr   dword[si]
    fild    word[bx]
    fild    word[bp+0]
    fpatan
    setalc
    xchg    ax, cx
    or      al, 87h
    stosb
    jmp     loc_1

[DomiNick]

Похоже.....

А где можно поподробнее узнать про эти "манипуляции с видеопамятью"..?
Чтоб как бы вводное для начинающих...

; fr-0.1: constant evolution (a tribute to baze)
; ryg/farbrausch 2003
;
; i wish you much fun understanding it. har har.

bits		16
org			100h

start		mov			al, 0x13
				cmc
				inc			dx
				int			0x10
				push		word 0xa000
				pop			es
				
pix			mul			bx
				inc			ax
				add			ax, di
				adc			[si], bx
				div		  word [si+12]

clp			fmul		dword [si]
				fiadd		word [si]
				fistp		word [bx]
				sub			ax, 130
				xchg		ax, [bx]
				xor			cx, ax
				fild		word [bx]
				fmul		st0
				xor			bx, bp
				xchg		ax, dx
				fxch		st1
				jnz			clp
	
				faddp		st1, st0
				fsqrt
				fdivr		dword [si]

				fild		word [bx]
				fild		word [bp]
				fpatan

				salc
				xchg		ax, cx
				or			al, 0x87
				stosb
				jmp			short pix

Только жалко у меня нет FASM`а (если это конечно на нём) - не могу сам скомпилировать и поэкспериментировать с константами...

[JTG]

i wish you much fun understanding it. har har.

убило

Только жалко у меня нет FASM`а (если это конечно на нём) - не могу сам скомпилировать и поэкспериментировать с константами...

Та бесполезно. Шаг влево, шаг вправо - расстрел

mov al,13h / int 10h - установка видеорежима 320х200х8bpp. По адресу A000:0000 находится видеопамять, двухмерный массив длиной 64 кб. Запись туда моментально отображается на экране. http://www.faqs.org/faqs/assembly-la...ection-12.html

[DomiNick]

Ясно... Спасибо, почитаем...

Сообщение от JTG

убило

Общий смысл фразы мне понятен, но может кто-то нормальный перевод дать..?
А слова "har" вообще в словаре нету...



Так это на FASM..?
А то я тут его скачал, жалуется на "bits 16"...

[Роман Радер]

Сообщение от DomiNick

Ясно... Спасибо, почитаем...


Общий смысл фразы мне понятен, но может кто-то нормальный перевод дать..?
А слова "har" вообще в словаре нету...

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

[Kj_ZloyiQ]

Не... игра прикольная. Размеры поражают, навряд демо версия игры будет столько весить.

[Kostia]

Меня зацепила программа на асме, приведенная выше.
После зловещих экспериментов я смог разобраться, как поставить одЫм пиксель на экран. Может кому будет интересно:

org 100h
use16
  mov  al, 13h
  int  10h

  mov  di, 0a000h
  mov  es, di

  mov bx, 10 ;x
  mov cx, 0 ;y
loc_1:
  mov ax, 320 ;for mul
  mul cx ;(y*320)
  add ax, bx ;+x

  mov di, ax ;set pos
  mov      al, 3h ;set color
  stosb
jmp loc_1

В di заносим координаты пикселя(y*320)+x ,а в al заносим "цвет".
Программа после компиляции в FASM весит 29 байт.

[JTG]

Сообщение от Kostia

Меня зацепила программа на асме, приведенная выше.
После зловещих экспериментов я смог разобраться, как поставить одЫм пиксель на экран. Может кому будет интересно:

У меня где-то валялась реализация "салфетки серпинского" в 25 байт, щас попробую отыскать


Вот, 23 байта, нормальный выход не предусмотрен

org 100h
use16

    mov     al, 13h
    int     10h
    mov     bx, 0A1E0h - 320
    mov     ds, bx

    mov     al, 15   ; можно убрать - будет 21 байт, но тускло

@@:
    mov     [bx-318], al
    mov     al, [bx+2]
    xor     al, [bx]
    dec     bx
    jnz     @b

[DomiNick]

ОСь переустановил, но эксперимент не удался - в мою винду уже был "вшит" DirectX 9.0c... (

Сообщение от JTG

Та бесполезно. Шаг влево, шаг вправо - расстрел

Во-первых, Ваш код оказался тем же самым "fr-0.1", только переделанный для FASM'а (кстати, откуда он у Вас?) - я просто не знаю ни FASM'а ни того, на котором мой оригинал и как-то не заметил сразу...

А во-вторых, отнюдь не бесполезно... Вот, например, поменяйте "adc [si], bx" на "adc [si], ax"... )