faberge by orbitaldecay

screenshot added by orby on 2010-04-04 21:17:05

platform :	MS-Dos MS-Dos
type :	128b 128b
release date :	april 2010

popularity : 52%

52%

0.73

alltime top: #19080

orby [code]

added on the 2010-04-04 21:17:05 by orby

popularity helper

increase the popularity of this prod by spreading this URL:

or via: facebook twitter pinterest tumblr bluesky threads

comments

youtube happy holidays to anyone who cares about holidays.

added on the 2010-04-04 21:18:33 by orby

wooo I watched it in H264!

added on the 2010-04-04 21:19:17 by guardian ٩๏̯͡๏۶

i like it!

rulez added on the 2010-04-04 21:21:41 by sq

cool!

rulez added on the 2010-04-04 22:39:54 by pera

kk.

added on the 2010-04-04 22:56:30 by comankh

Mean Faberge?

added on the 2010-04-05 00:18:12 by vscd

Quote:

Mean Faberge?

no, I meen fabrege, lik teh eegs

added on the 2010-04-05 02:44:30 by orby

cool, fixed. Thank you :)

added on the 2010-04-05 16:53:34 by orby

gut

rulez added on the 2010-04-05 17:35:49 by devreci

Found it! =D

rulez added on the 2010-04-05 23:04:25 by T$

Quote:

Found it! =D

lol, yes, got totally buried under the breakpoint releases. oh well :)

added on the 2010-04-06 04:50:48 by orby

Could be much better.

rulez added on the 2010-04-18 19:18:00 by Pirx

indeed, i've since optimized it down to 71 bytes, but I don't think it'll ever make it to 64 :(

added on the 2010-04-21 23:34:53 by orby

71 byte version (nasm)

Code:


[bits 16]
[org 100h]

            mov     al, 13h
            int     0x10
            les     bx, [bx]
main:       push    ax
            push    cx
            mov     bx, sp
            fild    word [hundred]
            fild    word [ninety]
            fild    word [bx]    
            fild    word [bx+2]  
            fdiv    st0, st3     
            fadd    st0, st1     
            fsincos                 
            fxch    st0, st2        
            fmul    st0, st3        
            fdiv    st0, st4        
            fcos                    
            fmulp                   
            fmul    st0, st2        
            faddp   st2, st0        
            fmul    st0, st2        
            fadd    st0, st2        
            fistp   word [bx+2]     
            faddp                   
            fistp   word [bx]
            pop     di
ninety:     dw 90       ; aka pop dx
hundred:    dw 100      ; aka add [si+0x0], ah
            imul    dx, 320
            add     di, dx
            stosb
            loop    main
            inc     ax
            jmp     short main

added on the 2010-04-21 23:37:39 by orby

Faberge would have killed himself over those colours, but for 128b it's forgivable :)

rulez added on the 2010-04-22 00:45:55 by psonice