Code:
; 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