Случайно нарвался нас сайт одного е-бургского математика, http://neves.suncloud.ru/ Так автор сам отзывается о своей программе: А вот и сам код: Код (Text): mov al, 13h int 10h ; Set video mode push 0A000h ; Video Buf Segment pop ds mov si, 128 ; Y = 128 Row: mov di, -321 ; X = -321 dec si ; Y = Y - 1 Col: inc di ; X = X + 1 je Row mov cl, 46 ; Цвет Calc: mov bp, dx ; Re add bp, ax ; Re + Im sub dx, ax ; Re - Im imul bp, dx ; Re = (Re + Im) (Re - Im) jo Paint add dx, ax ; Re imul dx ; Im = Re * Im sar ax, 5 ; Im = Im/32 sar bp, 6 ; Re = Re/64 adc ax, si ; Im = Im + Y lea dx, [bp+di+127] ; Re = Re + X - 127 loop Calc Paint: xchg [bx], cl ; Put Pixel & clear cx imul cx ; (dx, ax) = 0 inc bx ; Next Pixel jne Col int 16h ; Wait aad 232 ; ax = 3 after ESC int 10h ; Set video mode ret По моему, действительно неплохой результат. Только ли сам он до этого дошел...
Код ниже я точно видел в каком-то компьютерном (русском) журнале за 1997 год. Вроде это был конкурс на минимальную прогу: Код (Text): ; Фрактал Мандельбротта ; size = 64 bytes text segment byte public 'code' org 100h assume cs:text,ds:text start: mov al,19 int 10h db 104,0,160 pop ds shr si,1 Rou: mov di,-321 dec si Col: inc di je Rou sub bp,bp mov cl,123 Calc: lea bp,[bp+di+127] add ax,si push ax imul bp db 193,248,5 inc ax pop dx db 15,175,237 db 15,175,210 jb Paint sub bp,dx db 193,253,6 loop Calc Paint: mov [bx],cl sub ax,ax inc bx jne Col int 16h mov ax,3 int 10h ret Text ends end start
