kolibrios-gitea/programs/develop/libraries/TinyGL/asm_fork/zbuffer.inc

;
; Z buffer
;

include 'zfeatures.inc'

ZB_Z_BITS equ 16

ZB_POINT_Z_FRAC_BITS equ 14

ZB_POINT_S_MIN equ (1 shl 13)
ZB_POINT_S_MAX equ ( (1 shl 22)-(1 shl 13) )
ZB_POINT_T_MIN equ (1 shl 21)
ZB_POINT_T_MAX equ ( (1 shl 30)-(1 shl 21) )

ZB_POINT_RED_MIN equ (1 shl 8)
ZB_POINT_RED_MAX equ ( (1 shl 16)-1 )
ZB_POINT_GREEN_MIN equ (1 shl 8)
ZB_POINT_GREEN_MAX equ ( (1 shl 16)-1 )
ZB_POINT_BLUE_MIN equ (1 shl 8)
ZB_POINT_BLUE_MAX equ ( (1 shl 16)-1 )

; display modes
ZB_MODE_5R6G5B equ 1  ; true color 16 bits
ZB_MODE_INDEX  equ 2  ; color index 8 bits
ZB_MODE_RGBA   equ 3  ; 32 bit rgba mode
ZB_MODE_RGB24  equ 4  ; 24 bit rgb mode
ZB_NB_COLORS   equ 225 ; number of colors for 8 bit display

if TGL_FEATURE_RENDER_BITS eq 15

;#define RGB_TO_PIXEL(r,g,b) \
;  ((((r) >> 1) & 0x7c00) | (((g) >> 6) & 0x03e0) | ((b) >> 11))
;typedef unsigned short PIXEL;
; bytes per pixel
;PSZB equ 2
; bits per pixel = (1 << PSZH)
;PSZSH equ 4

else if TGL_FEATURE_RENDER_BITS eq 16

; 16 bit mode
;#define RGB_TO_PIXEL(r,g,b) \
;  (((r) & 0xF800) | (((g) >> 5) & 0x07E0) | ((b) >> 11))
;typedef unsigned short PIXEL;
;PSZB equ 2
;PSZSH equ 4

else if TGL_FEATURE_RENDER_BITS eq 24

macro RGB_TO_PIXEL r,g,b
{
	mov eax,b
	shr eax,8
	push eax
		mov eax,g
		and eax,0xff00
		or dword[esp],eax
		mov eax,r
		shl eax,8
		or dword[esp],eax
	pop eax
}

;typedef unsigned char PIXEL;
PSZB equ 3
PSZSH equ 5

else if TGL_FEATURE_RENDER_BITS eq 32

;#define RGB_TO_PIXEL(r,g,b) \
;  ((((r) << 8) & 0xff0000) | ((g) & 0xff00) | ((b) >> 8))
;typedef unsigned int PIXEL;
;PSZB equ 4
;PSZSH equ 5

else

;#error Incorrect number of bits per pixel

end if

struct ZBuffer
	xsize dd ? ;int
	ysize dd ? ;int
	linesize dd ? ;int ;line size, in bytes
	mode dd ? ;int
    
	zbuf dd ? ;*unsigned short
	pbuf dd ? ;*PIXEL
	frame_buffer_allocated dd ? ;int
    
	nb_colors dd ? ;int
	dctable dd ? ;*unsigned char
	ctable dd ? ;*int
	current_texture dd ? ;*PIXEL
ends

offs_zbuf_xsize equ 0
offs_zbuf_ysize equ 4
offs_zbuf_linesize equ 8
offs_zbuf_mode equ 16
offs_zbuf_zbuf equ 20
offs_zbuf_pbuf equ 24
offs_zbuf_frame_buffer_allocated equ 28
offs_zbuf_nb_colors equ 32
offs_zbuf_dctable equ 36
offs_zbuf_ctable equ 40
offs_zbuf_current_texture equ 44

struct ZBufferPoint
	x dd ? ;int ;integer coordinates in the zbuffer
	y dd ? ;int
	z dd ? ;int
	s dd ? ;int ;coordinates for the mapping
	t dd ? ;int
	r dd ? ;int ;color indexes
	g dd ? ;int
	b dd ? ;int

	fsz dd ? ;float ;temporary coordinates for mapping
	tz dd ? ;float
ends

offs_zbup_x equ  0
offs_zbup_y equ  4
offs_zbup_z equ  8
offs_zbup_s equ 12
offs_zbup_t equ 16
offs_zbup_r equ 20
offs_zbup_g equ 24
offs_zbup_b equ 28
offs_zbup_sz equ 32
offs_zbup_tz equ 36

; ztriangle.c

;
; Memory allocator for TinyGL
;

; modify these functions so that they suit your needs

align 4
proc gl_free uses eax ebx ecx, mptr:dword
	mov ecx,[mptr]
	or ecx,ecx
	jz @f
		mcall 68, 13
	@@:
	ret
endp

;description:
; выделение памяти
align 4
proc gl_malloc uses ebx ecx, size:dword
	mcall 68, 12, [size]
	ret
endp

;description:
; выделение очищеной памяти
align 4
proc gl_zalloc uses ebx ecx edi, size:dword
	mov ecx,[size]
	stdcall gl_malloc,ecx
	or eax,eax
	jz @f
		mov ebx,eax
		mov edi,eax
		xor eax,eax
		shr ecx,2
		rep stosd ;очистка памяти (пишем везде 0)
		mov eax,ebx
	@@:
	ret
endp