Subversion Repositories Kolibri OS

;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;

;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;

;; Distributed under terms of the GNU General Public License    ;;

;; Distributed under terms of the GNU General Public License    ;;

;;                                                              ;;

;;                                                              ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision: 2322 $

$Revision: 2461 $

; // Alver 22.06.2008 // {

; // Alver 22.06.2008 // {

align 4

align 4

;

;

align 8

align 8

sdsh_data:

diff16 "sdsh_data      : ",0,$

include 'fonts/sd_data.asm'

include 'fonts/sd_data.asm'

; ecx	=	0x00RRGGBB

; ecx   =       0x00RRGGBB

; edx	=	if (bits[31:8] == 0)

; edx   =       if (bits[31:8] == 0)

;				then dl = single char to write 

;                               then dl = single char to write

;				else edx= pointer to asciiz-string

;                               else edx= pointer to asciiz-string

draw_char:

draw_char:

; font test

; font test

; bl=y; bh=x

; bl=y; bh=x

; dl=ascii

; dl=ascii

        movzx   eax, bh

	movzx	eax, bh

        movzx   ebx, bl

	movzx	ebx, bl

        movzx   ecx, dl

	movzx	ecx, dl

        xor     edi, edi

	xor	edi, edi

        mov     ebp, edi

sdsh_draw_char:

sdsh_draw_char:

; eax = left side X

; eax = left side X

; ebx = bottom Y

; ebx = bottom Y

        push    ecx

	push	ecx

        push    edx 

	push	edx

        push    ebp

	push	ebp

        shl     ebp, 4

	shl	ebp, 4

        add     ebp, sdsh_data.info

	add	ebp, sdsh_data.info

        mov     edx, [ebp + 4]              ; chartable addr

	mov	edx, [ebp + 4]		    ; chartable addr

        mov		cx, word[edx + ecx*2]       ; tick info

	mov	cx, word[edx + ecx*2]	    ; tick info

        mov		edx, ecx

	mov	edx, ecx

        and     ecx, 7                      ; cl = number of ticks

	and	ecx, 7			    ; cl = number of ticks

        jz      .blank

	jz	.blank

        shr     edx, 4                      ; offset in the chartable

	shr	edx, 4			    ; offset in the chartable

.next_tick:

.next_tick:

        call    parse_tick

	call	parse_tick

        dec     cl

	dec	cl

        jnz     .next_tick

	jnz	.next_tick

.blank:

.blank:

.exit:

.exit:

        pop     ebp 

	pop	ebp

        pop     ecx

	pop	ecx

        ret

	ret

parse_tick:

parse_tick:

diff16 "parse_tick     : ",0,$

; eax = left side X

; eax = left side X

; ebx = bottom Y

; ebx = bottom Y

; edx ->tickinfo

; edx ->tickinfo

.lntick.long:

.lntick.long:

        and     dl, 0x07

	and	dl, 0x07

        add     dl, 8

	add	dl, 8

.lntick.both:

.lntick.both:

        sub     dl, 2               ; num_vertice = num_points - 2

	sub	dl, 2		    ; num_vertice = num_points - 2

        shr     cl, 3

	shr	cl, 3

        mov     esi, sdsh_data.blank 

	mov	esi, sdsh_data.blank

.draw:

.draw:

; cl = rot; dl = numvert; dh = orig.xy 

; cl = rot; dl = numvert; dh = orig.xy

        push    ecx

	push	ecx

.exit:

.exit:

        popad

	popad

        ret

	ret

diff16 "draw_tick      : ",0,$

draw_tick:

draw_tick:

; eax = x-origin

; eax = x-origin

; edi = 0x0RRGGBB 

; edi = 0x0RRGGBB

;  cl = direction (0..7)  

;  cl = direction (0..7)

; esi -> tick bitfield  

;  dl = number of vertice  (dl)

; esi -> tick bitfield

    inc     dl                      ; -- that's to count down to 0 

	call	ch_putpixel			; the point of origin

	call	ch_putpixel		

	call	ch_putpixel

    dec     dl

        and     edx, 15

    jz      .done                   ; 2pix lines only

        jz	.done		       ; no vertex (2pix line)

    mov     esi, dword [esi]        ; max 16 vertice bitfield limit

        mov     esi, dword [esi]       ; 15 vertice will easily fit to 1dw

    xchg    esi, edx 

        xchg    esi, edx

    mov     ch, dl

        jz	.moved

    and     ch, 3

        dec     ch

    and     cl, 7

        dec     cl

.2:

.2:

    and     cl, 7

.moved:

    btc     ecx, 9                  ; just to zero ah

diff16 "moved          : ",0,$

.moved:

	lea	ebp, [.move000+ ecx*4]

	call	[.moves + ecx*4]        ; go new way

	call	ebp		    ; go new way

	call	ch_putpixel	

        shr     edx, 2

    shr     edx, 2	

        dec     esi

    dec     esi

        jnz     .move_and_draw

    jnz     .move_and_draw	         

	ret

.done:

	popad

; WARNING! The order matters! ------

	ret

diff16 "move000        : ",0,$

.move000:

.move000:

	inc		eax

	inc		eax

	ret

	ret

.move001:

.move001:

	inc		eax

	inc		eax

	dec		ebx

	dec		ebx

align 4

	ret

.move010:

.move010:

	dec		ebx

	dec		ebx

	ret

	ret

.move011:

.move011:

	dec		eax

	dec		eax

	dec		ebx

	dec		ebx

align 4

	ret

.move100:

.move100:

	dec		eax

	dec		eax

	ret

	ret

.move101:

.move101:

	dec		eax

	dec		eax

	inc		ebx

	inc		ebx

	inc		ebx

	ret

	ret

.move110:

	inc		ebx

align 4

	ret

.move111:

	inc		ebx

align 4

	ret

.moves dd .move000, .move001, .move010, .move011, .move100, .move101, .move110, .move111

;) ---------------

;)

align 4

align 4

diff16 "checkscreen    : ",0,$

ch_checkscreen:

     cmp	[Screen_Max_X], eax

     cmp	[Screen_Max_X], eax

     jb 	.getout

     jb		.getout

     cmp	[Screen_Max_Y], ebx

     cmp	[Screen_Max_Y], ebx

.getout:

.getout:

     ret

        pop     ebx

	pop	ebx

        pop     eax

	pop	eax

        ret

	ret

align 4

diff16 "ch_putpix      : ",0,$

ch_putpixel:

ch_putpixel:

; eax = x coordinate

; eax = x coordinate

; ebx = y coordinate

; ebx = y coordinate

; edi = 0x0RRGGBB    

; edi = 0x0RRGGBB