Programerski rekord
Program u prilogu ima samo 256 bajta!
> Koga zanima da li ista radi - nek' pokrene. :)
> ----------------------------------------------
> Koga više zanima, evo mašinskog koda dotiènog:
>
> [org 100h]
> [segment .text]
>
> SCREEN equ 160
> PIXBUF equ 204h
>
> mov al,13h
> int 10h
>
> push word 0A000h
> pop es
> mov ax,cs
> add ah,10h
> mov fs,ax
>
> xor cx,cx
> PAL1 mov dx,3C8h
> mov ax,cx
> out dx,al
> inc dx
> sar al,1
> js PAL2
> out dx,al
> mul al
> shr ax,6
> out dx,al
> PAL2 mov al,0
> out dx,al
> jns PAL3
> sub al,cl
> shr al,1
> out dx,al
> shr al,1
> out dx,al
> PAL3 mov bx,cx
> mov [fs:bx],bl
> loop PAL1
>
> TEX mov bx,cx
> add ax,cx
> rol ax,cl
> mov dh,al
> sar dh,5
> adc dl,dh
> adc dl,[fs:bx+255]
> shr dl,1
> mov [fs:bx],dl
> not bh
> mov [fs:bx],dl
> loop TEX
>
> fninit
> fldz
>
> MAIN add bh,8
> mov di,PIXBUF
> fadd dword [byte di-PIXBUF+TEXUV-4]
> push di
>
> mov dx,-80
> TUBEY mov bp,-160
> TUBEX mov si,TEXUV
> fild word [byte si-TEXUV+EYE]
>
> mov [si],bp
> fild word [si]
> mov [si],dx
> fild word [si]
>
> mov cl,2
> ROTATE fld st3
> fsincos
> fld st2
> fmul st0,st1
> fld st4
> fmul st0,st3
> fsubp st1,st0
> fxch st0,st3
> fmulp st2,st0
> fmulp st3,st0
> faddp st2,st0
> fxch st0,st2
> loop ROTATE
>
> fld st1
> fmul st0,st0
> fld st1
> fmul st0,st0
> faddp st1,st0
> fsqrt
> fdivp st3,st0
> fpatan
> fimul word [si-4]
> fistp word [si]
> fimul word [si-4]
> fistp word [si+1]
> mov si,[si]
>
> lea ax,[bx+si]
> add al,ah
> and al,64
> mov al,-5
> jz STORE
>
> shl si,2
> lea ax,[bx+si]
> sub al,ah
> mov al,-16
> jns STORE
>
> shl si,1
> mov al,-48
> STORE add al,[fs:bx+si]
> add [di],al
> inc di
>
> inc bp
> cmp bp,160
> EYE equ $-2
> jnz TUBEX
>
> inc dx
> cmp dx,byte 80
> jnz TUBEY
>
> pop si
> mov di,(100-SCREEN/2)*320
> mov ch,(SCREEN/2)*320/256
> rep movsw
>
> mov ch,SCREEN*320/256
> BLUR dec si
> sar byte [si],2
> loop BLUR
>
> in al,60h
> cbw
> dec ax
> jnz near MAIN
>
> mov al,03h
> int 10h
>
> db 41,0,0C3h,3Ch
> TEXUV db "baze"
>
 |  |
 |
