
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
; DATA
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
d5cntr          db      255

;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
; CODE
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
p50:
        movzx eax,d5cntr
        mov edi,eax
        shl edi,8
        and al,7fh
        cmp al,40h
        jb short p50f0
        xor al,7fh
p50f0:
        lea ebp,[eax-20h]
        mov edx,offset sincos0s
        xor dl,dl
        mov ch,8
p50l0:
        mov cl,8
p50l0a:
rept 4
        movsx ebx,byte ptr [edx]
        add dl,8
        imul ebx,ebp
        xor bl,bl
        lea eax,[ebx+0a000h]
        mov fs:[di+bx],ah
        mov fs:[di+bx+256],ah
        inc edi
endm
        dec cl
        jnz p50l0a
        dec ch
        jnz p50l0
        sub d5cntr,1
        jc setnext
        ret

