XenOn/kolibrios-fun
1
1
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Wiki Activity

tinygl.obj: add some functions,

Browse Source 
load_img.inc: delete old file load_lib

git-svn-id: svn://kolibrios.org@8442 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
IgorA 2020-12-18 10:03:16 +00:00
parent fe8377e2c7
commit d72fcc2942
14 changed files with 465 additions and 361 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
programs/bcc32/include/l_tinygl.h
View File

@ -651,6 +651,21 @@ enum {
GL_ALL_ATTRIB_BITS = 0x000fffff GL_ALL_ATTRIB_BITS = 0x000fffff
}; };
/* some types */
typedef int GLenum;
typedef void GLvoid;
typedef unsigned char GLboolean;
typedef signed char GLbyte; /* 1-byte signed */
typedef short int GLshort; /* 2-byte signed */
typedef long int GLint; /* 4-byte signed */
typedef unsigned char GLubyte; /* 1-byte unsigned */
typedef unsigned short int GLushort; /* 2-byte unsigned */
typedef unsigned long int GLuint; /* 4-byte unsigned */
typedef float GLfloat; /* single precision float */
typedef double GLdouble; /* double precision float */
typedef int GLsizei;
struct ZBuffer struct ZBuffer
{ {
long int xsize, ysize; long int xsize, ysize;
@ -701,34 +716,34 @@ void (__stdcall* glVertex4d)(double x, double y, double z, double w) = (void (__
void (__stdcall* glVertex4fv)(float* v) = (void (__stdcall*)(float*))&"glVertex4fv"; void (__stdcall* glVertex4fv)(float* v) = (void (__stdcall*)(float*))&"glVertex4fv";
void (__stdcall* glVertex4dv)(double* v) = (void (__stdcall*)(double*))&"glVertex4dv"; void (__stdcall* glVertex4dv)(double* v) = (void (__stdcall*)(double*))&"glVertex4dv";
void (__stdcall* glColor3f)(float r, float g, float b) = (void (__stdcall*)(float, float, float))&"glColor3f"; void (__stdcall* glColor3f)(float r, float g, float b) = (void (__stdcall*)(float, float, float))&"glColor3f";
//void (__stdcall* glColor3d)(...) = (void (__stdcall*)(...))&"glColor3d"; void (__stdcall* glColor3d)(double r, double g, double b) = (void (__stdcall*)(double, double, double))&"glColor3d";
//void (__stdcall* glColor3fv)(...) = (void (__stdcall*)(...))&"glColor3fv"; void (__stdcall* glColor3fv)(float* v) = (void (__stdcall*)(float*))&"glColor3fv";
//void (__stdcall* glColor3dv)(...) = (void (__stdcall*)(...))&"glColor3dv"; void (__stdcall* glColor3dv)(double* v) = (void (__stdcall*)(double*))&"glColor3dv";
void (__stdcall* glColor3ub)(unsigned char r, unsigned char g, unsigned char b) = (void (__stdcall*)(unsigned char, unsigned char, unsigned char))&"glColor3ub"; void (__stdcall* glColor3ub)(unsigned char r, unsigned char g, unsigned char b) = (void (__stdcall*)(unsigned char, unsigned char, unsigned char))&"glColor3ub";
//void (__stdcall* glColor4f)(...) = (void (__stdcall*)(...))&"glColor4f"; void (__stdcall* glColor4f)(float r, float g, float b, float a) = (void (__stdcall*)(float, float, float, float))&"glColor4f";
//void (__stdcall* glColor4d)(...) = (void (__stdcall*)(...))&"glColor4d"; void (__stdcall* glColor4d)(double r, double g, double b, double a) = (void (__stdcall*)(double, double, double, double))&"glColor4d";
//void (__stdcall* glColor4fv)(...) = (void (__stdcall*)(...))&"glColor4fv"; void (__stdcall* glColor4fv)(float* v) = (void (__stdcall*)(float*))&"glColor4fv";
//void (__stdcall* glColor4dv)(...) = (void (__stdcall*)(...))&"glColor4dv"; void (__stdcall* glColor4dv)(double* v) = (void (__stdcall*)(double*))&"glColor4dv";
void (__stdcall* glNormal3f)(float x, float y, float z) = (void (__stdcall*)(float, float, float))&"glNormal3f"; void (__stdcall* glNormal3f)(float x, float y, float z) = (void (__stdcall*)(float, float, float))&"glNormal3f";
//void (__stdcall* glNormal3d)(...) = (void (__stdcall*)(...))&"glNormal3d"; void (__stdcall* glNormal3d)(double x, double y, double z) = (void (__stdcall*)(double, double, double))&"glNormal3d";
//void (__stdcall* glNormal3fv)(...) = (void (__stdcall*)(...))&"glNormal3fv"; void (__stdcall* glNormal3fv)(float* v) = (void (__stdcall*)(float*))&"glNormal3fv";
//void (__stdcall* glNormal3dv)(...) = (void (__stdcall*)(...))&"glNormal3dv"; void (__stdcall* glNormal3dv)(double* v) = (void (__stdcall*)(double*))&"glNormal3dv";
//void (__stdcall* glTexCoord1f)(...) = (void (__stdcall*)(...))&"glTexCoord1f"; void (__stdcall* glTexCoord1f)(float s) = (void (__stdcall*)(float))&"glTexCoord1f";
//void (__stdcall* glTexCoord1d)(...) = (void (__stdcall*)(...))&"glTexCoord1d"; void (__stdcall* glTexCoord1d)(double s) = (void (__stdcall*)(double))&"glTexCoord1d";
//void (__stdcall* glTexCoord1fv)(...) = (void (__stdcall*)(...))&"glTexCoord1fv"; void (__stdcall* glTexCoord1fv)(float* v) = (void (__stdcall*)(float*))&"glTexCoord1fv";
//void (__stdcall* glTexCoord1dv)(...) = (void (__stdcall*)(...))&"glTexCoord1dv"; void (__stdcall* glTexCoord1dv)(double* v) = (void (__stdcall*)(double*))&"glTexCoord1dv";
void (__stdcall* glTexCoord2f)(float s, float t) = (void (__stdcall*)(float, float))&"glTexCoord2f"; void (__stdcall* glTexCoord2f)(float s, float t) = (void (__stdcall*)(float, float))&"glTexCoord2f";
//void (__stdcall* glTexCoord2d)(...) = (void (__stdcall*)(...))&"glTexCoord2d"; void (__stdcall* glTexCoord2d)(double s, double t) = (void (__stdcall*)(double, double))&"glTexCoord2d";
void (__stdcall* glTexCoord2fv)(float* v) = (void (__stdcall*)(float*))&"glTexCoord2fv"; void (__stdcall* glTexCoord2fv)(float* v) = (void (__stdcall*)(float*))&"glTexCoord2fv";
//void (__stdcall* glTexCoord2dv)(...) = (void (__stdcall*)(...))&"glTexCoord2dv"; void (__stdcall* glTexCoord2dv)(double* v) = (void (__stdcall*)(double*))&"glTexCoord2dv";
//void (__stdcall* glTexCoord3f)(...) = (void (__stdcall*)(...))&"glTexCoord3f"; void (__stdcall* glTexCoord3f)(float s, float t, float r) = (void (__stdcall*)(float, float, float))&"glTexCoord3f";
//void (__stdcall* glTexCoord3d)(...) = (void (__stdcall*)(...))&"glTexCoord3d"; void (__stdcall* glTexCoord3d)(double s, double t, double r) = (void (__stdcall*)(double, double, double))&"glTexCoord3d";
//void (__stdcall* glTexCoord3fv)(...) = (void (__stdcall*)(...))&"glTexCoord3fv"; void (__stdcall* glTexCoord3fv)(float* v) = (void (__stdcall*)(float*))&"glTexCoord3fv";
//void (__stdcall* glTexCoord3dv)(...) = (void (__stdcall*)(...))&"glTexCoord3dv"; void (__stdcall* glTexCoord3dv)(double* v) = (void (__stdcall*)(double*))&"glTexCoord3dv";
void (__stdcall* glTexCoord4f)(float s, float t, float r, float q) = (void (__stdcall*)(float, float, float, float))&"glTexCoord4f"; void (__stdcall* glTexCoord4f)(float s, float t, float r, float q) = (void (__stdcall*)(float, float, float, float))&"glTexCoord4f";
//void (__stdcall* glTexCoord4d)(...) = (void (__stdcall*)(...))&"glTexCoord4d"; void (__stdcall* glTexCoord4d)(double s, double t, double r, double q) = (void (__stdcall*)(double, double, double, double))&"glTexCoord4d";
//void (__stdcall* glTexCoord4fv)(...) = (void (__stdcall*)(...))&"glTexCoord4fv"; void (__stdcall* glTexCoord4fv)(float* v) = (void (__stdcall*)(float*))&"glTexCoord4fv";
//void (__stdcall* glTexCoord4dv)(...) = (void (__stdcall*)(...))&"glTexCoord4dv"; void (__stdcall* glTexCoord4dv)(double* v) = (void (__stdcall*)(double*))&"glTexCoord4dv";
void (__stdcall* glEdgeFlag)(int flag) = (void (__stdcall*)(int))&"glEdgeFlag"; void (__stdcall* glEdgeFlag)(int flag) = (void (__stdcall*)(int))&"glEdgeFlag";
void (__stdcall* glMatrixMode)(int mode) = (void (__stdcall*)(int))&"glMatrixMode"; void (__stdcall* glMatrixMode)(int mode) = (void (__stdcall*)(int))&"glMatrixMode";
void (__stdcall* glLoadMatrixf)(const float* m) = (void (__stdcall*)(const float*))&"glLoadMatrixf"; void (__stdcall* glLoadMatrixf)(const float* m) = (void (__stdcall*)(const float*))&"glLoadMatrixf";
@ -761,28 +776,28 @@ void (__stdcall* glBindTexture)(int target, int texture) = (void (__stdcall*)(in
void (__stdcall* glTexImage2D)(int target, int level, int components, int width, int height, int border, int format, int type, void *pixels) = (void (__stdcall*)(int, int, int, int, int, int, int, int, void*))&"glTexImage2D"; void (__stdcall* glTexImage2D)(int target, int level, int components, int width, int height, int border, int format, int type, void *pixels) = (void (__stdcall*)(int, int, int, int, int, int, int, int, void*))&"glTexImage2D";
void (__stdcall* glTexEnvi)(int target, int pname, int param) = (void (__stdcall*)(int, int, int))&"glTexEnvi"; void (__stdcall* glTexEnvi)(int target, int pname, int param) = (void (__stdcall*)(int, int, int))&"glTexEnvi";
void (__stdcall* glTexParameteri)(int target, int pname, int param) = (void (__stdcall*)(int, int, int))&"glTexParameteri"; void (__stdcall* glTexParameteri)(int target, int pname, int param) = (void (__stdcall*)(int, int, int))&"glTexParameteri";
//void (__stdcall* glPixelStorei)(...) = (void (__stdcall*)(...))&"glPixelStorei"; void (__stdcall* glPixelStorei)(int pname, int param) = (void (__stdcall*)(int, int))&"glPixelStorei";
void (__stdcall* glMaterialfv)(int mode, int type, float* v) = (void (__stdcall*)(int, int, float*))&"glMaterialfv"; void (__stdcall* glMaterialfv)(int mode, int type, float* v) = (void (__stdcall*)(int, int, float*))&"glMaterialfv";
void (__stdcall* glMaterialf)(int mode, int type, float v) = (void (__stdcall*)(int, int, float))&"glMaterialf"; void (__stdcall* glMaterialf)(int mode, int type, float v) = (void (__stdcall*)(int, int, float))&"glMaterialf";
void (__stdcall* glColorMaterial)(int mode, int type) = (void (__stdcall*)(int, int))&"glColorMaterial"; void (__stdcall* glColorMaterial)(int mode, int type) = (void (__stdcall*)(int, int))&"glColorMaterial";
void (__stdcall* glLightfv)(int light, int type, float* v) = (void (__stdcall*)(int, int, float*))&"glLightfv"; void (__stdcall* glLightfv)(int light, int type, float* v) = (void (__stdcall*)(int, int, float*))&"glLightfv";
//void (__stdcall* glLightf)(...) = (void (__stdcall*)(...))&"glLightf"; void (__stdcall* glLightf)(int light, int type, float v) = (void (__stdcall*)(int, int, float))&"glLightf";
//void (__stdcall* glLightModeli)(...) = (void (__stdcall*)(...))&"glLightModeli"; void (__stdcall* glLightModeli)(int pname, int param) = (void (__stdcall*)(int, int))&"glLightModeli";
void (__stdcall* glLightModelfv)(int pname, float* param) = (void (__stdcall*)(int, float*))&"glLightModelfv"; void (__stdcall* glLightModelfv)(int pname, float* param) = (void (__stdcall*)(int, float*))&"glLightModelfv";
//void (__stdcall* glFlush)(...) = (void (__stdcall*)(...))&"glFlush"; void (__stdcall* glFlush)() = (void (__stdcall*)())&"glFlush";
//void (__stdcall* glHint)(...) = (void (__stdcall*)(...))&"glHint"; void (__stdcall* glHint)(int target, int mode) = (void (__stdcall*)(int, int))&"glHint";
//void (__stdcall* glGetIntegerv)(...) = (void (__stdcall*)(...))&"glGetIntegerv"; void (__stdcall* glGetIntegerv)(int pname, int *params) = (void (__stdcall*)(int, int*))&"glGetIntegerv";
//void (__stdcall* glGetFloatv)(...) = (void (__stdcall*)(...))&"glGetFloatv"; //void (__stdcall* glGetFloatv)(...) = (void (__stdcall*)(...))&"glGetFloatv";
//void (__stdcall* glFrontFace)(...) = (void (__stdcall*)(...))&"glFrontFace"; void (__stdcall* glFrontFace)(int mode) = (void (__stdcall*)(int))&"glFrontFace";
//void (__stdcall* glEnableClientState)(...) = (void (__stdcall*)(...))&"glEnableClientState"; void (__stdcall* glEnableClientState)(GLenum array) = (void (__stdcall*)(GLenum))&"glEnableClientState";
//void (__stdcall* glDisableClientState)(...) = (void (__stdcall*)(...))&"glDisableClientState"; void (__stdcall* glDisableClientState)(GLenum array) = (void (__stdcall*)(GLenum))&"glDisableClientState";
//void (__stdcall* glArrayElement)(...) = (void (__stdcall*)(...))&"glArrayElement"; void (__stdcall* glArrayElement)(GLint index) = (void (__stdcall*)(GLint))&"glArrayElement";
//void (__stdcall* glDrawArrays)(...) = (void (__stdcall*)(...))&"glDrawArrays"; void (__stdcall* glDrawArrays)(GLenum mode, GLint first, GLsizei count) = (void (__stdcall*)(GLenum, GLint, GLsizei))&"glDrawArrays";
//void (__stdcall* glDrawElements)(...) = (void (__stdcall*)(...))&"glDrawElements"; void (__stdcall* glDrawElements)(GLenum mode, GLsizei count, GLenum type, const GLvoid *indices) = (void (__stdcall*)(GLenum, GLsizei, GLenum, const GLvoid*))&"glDrawElements";
//void (__stdcall* glVertexPointer)(...) = (void (__stdcall*)(...))&"glVertexPointer"; void (__stdcall* glVertexPointer)(GLint size, GLenum type, GLsizei stride, const GLvoid* pointer) = (void (__stdcall*)(GLint, GLenum, GLsizei, const GLvoid*))&"glVertexPointer";
//void (__stdcall* glColorPointer)(...) = (void (__stdcall*)(...))&"glColorPointer"; void (__stdcall* glColorPointer)(GLint size, GLenum type, GLsizei stride, const GLvoid* pointer) = (void (__stdcall*)(GLint, GLenum, GLsizei, const GLvoid*))&"glColorPointer";
//void (__stdcall* glNormalPointer)(...) = (void (__stdcall*)(...))&"glNormalPointer"; void (__stdcall* glNormalPointer)(GLenum type, GLsizei stride, const GLvoid* pointer) = (void (__stdcall*)(GLenum, GLsizei, const GLvoid*))&"glNormalPointer";
//void (__stdcall* glTexCoordPointer)(...) = (void (__stdcall*)(...))&"glTexCoordPointer"; void (__stdcall* glTexCoordPointer)(GLint size, GLenum type, GLsizei stride, const GLvoid* pointer) = (void (__stdcall*)(GLint, GLenum, GLsizei, const GLvoid*))&"glTexCoordPointer";
//void (__stdcall* glPolygonOffset)(...) = (void (__stdcall*)(...))&"glPolygonOffset"; //void (__stdcall* glPolygonOffset)(...) = (void (__stdcall*)(...))&"glPolygonOffset";
//void (__stdcall* glOrtho)(...) = (void (__stdcall*)(...))&"glOrtho"; //void (__stdcall* glOrtho)(...) = (void (__stdcall*)(...))&"glOrtho";
//void (__stdcall* glDebug)(...) = (void (__stdcall*)(...))&"glDebug"; //void (__stdcall* glDebug)(...) = (void (__stdcall*)(...))&"glDebug";

234
programs/develop/libraries/TinyGL/asm_fork/api.asm
View File

@ -142,6 +142,19 @@ glNormal3f: ;x, y, z
pop eax pop eax
ret 16 ;=sizeof(dd)*4 ret 16 ;=sizeof(dd)*4
align 4
proc glNormal3d, x:qword, y:qword, z:qword
add esp,-12
fld qword[z]
fstp dword[esp+8]
fld qword[y]
fstp dword[esp+4]
fld qword[x]
fstp dword[esp]
call glNormal3f
ret
endp
align 4 align 4
proc glNormal3fv uses eax, v:dword proc glNormal3fv uses eax, v:dword
mov eax,[v] mov eax,[v]
@ -149,6 +162,20 @@ proc glNormal3fv uses eax, v:dword
ret ret
endp endp
align 4
proc glNormal3dv uses eax, v:dword
mov eax,[v]
add esp,-12
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glNormal3f
ret
endp
; glColor ; glColor
align 4 align 4
@ -179,6 +206,21 @@ endl
ret ret
endp endp
align 4
proc glColor4d, r:qword, g:qword, b:qword, a:qword
add esp,-16
fld qword[a]
fstp dword[esp+12]
fld qword[b]
fstp dword[esp+8]
fld qword[g]
fstp dword[esp+4]
fld qword[r]
fstp dword[esp]
call glColor4f
ret
endp
align 4 align 4
proc glColor4fv uses eax ebx, v:dword proc glColor4fv uses eax ebx, v:dword
mov eax,[v] mov eax,[v]
@ -192,6 +234,20 @@ proc glColor3f, r:dword, g:dword, b:dword
ret ret
endp endp
align 4
proc glColor3d, r:qword, g:qword, b:qword
push 1.0
add esp,-12
fld qword[b]
fstp dword[esp+8]
fld qword[g]
fstp dword[esp+4]
fld qword[r]
fstp dword[esp]
call glColor4f
ret
endp
align 4 align 4
proc glColor3fv uses eax, v:dword proc glColor3fv uses eax, v:dword
mov eax,[v] mov eax,[v]
@ -199,6 +255,21 @@ proc glColor3fv uses eax, v:dword
ret ret
endp endp
align 4
proc glColor3dv uses eax, v:dword
mov eax,[v]
push 1.0
add esp,-12
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glColor4f
ret
endp
align 4 align 4
fl_255 dd 255.0 fl_255 dd 255.0
@ -230,6 +301,22 @@ proc glColor3ub uses eax, r:dword, g:dword, b:dword
ret ret
endp endp
align 4
proc glColor4dv uses eax, v:dword
mov eax,[v]
add esp,-16
fld qword[eax+24]
fstp dword[esp+12]
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glColor4f
ret
endp
; TexCoord ; TexCoord
align 4 align 4
@ -242,12 +329,78 @@ glTexCoord4f: ;s, t, r, q
pop eax pop eax
ret 20 ;=sizeof(dd)*5 ret 20 ;=sizeof(dd)*5
align 4
proc glTexCoord4d, s:qword, t:qword, r:qword, q:qword
add esp,-16
fld qword[q]
fstp dword[esp+12]
fld qword[r]
fstp dword[esp+8]
fld qword[t]
fstp dword[esp+4]
fld qword[s]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4
proc glTexCoord1f, s:dword
stdcall glTexCoord4f,[s],0.0,0.0,1.0
ret
endp
align 4
proc glTexCoord1d, s:qword
push 1.0
push 0.0
push 0.0
add esp,-4
fld qword[s]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4
proc glTexCoord1fv uses eax, v:dword
mov eax,[v]
stdcall glTexCoord4f,[eax],0.0,0.0,1.0
ret
endp
align 4
proc glTexCoord1dv uses eax, v:dword
mov eax,[v]
push 1.0
push 0.0
push 0.0
add esp,-4
fld qword[eax]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4 align 4
proc glTexCoord2f, s:dword, t:dword proc glTexCoord2f, s:dword, t:dword
stdcall glTexCoord4f,[s],[t],0.0,1.0 stdcall glTexCoord4f,[s],[t],0.0,1.0
ret ret
endp endp
align 4
proc glTexCoord2d, s:qword, t:qword
push 1.0
push 0.0
add esp,-8
fld qword[t]
fstp dword[esp+4]
fld qword[s]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4 align 4
proc glTexCoord2fv uses eax, v:dword proc glTexCoord2fv uses eax, v:dword
mov eax,[v] mov eax,[v]
@ -255,6 +408,85 @@ proc glTexCoord2fv uses eax, v:dword
ret ret
endp endp
align 4
proc glTexCoord2dv uses eax, v:dword
mov eax,[v]
push 1.0
push 0.0
add esp,-8
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4
proc glTexCoord3f, s:dword, t:dword, r:dword
stdcall glTexCoord4f,[s],[t],[r],1.0
ret
endp
align 4
proc glTexCoord3d, s:qword, t:qword, r:qword
push 1.0
add esp,-12
fld qword[r]
fstp dword[esp+8]
fld qword[t]
fstp dword[esp+4]
fld qword[s]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4
proc glTexCoord3fv uses eax, v:dword
mov eax,[v]
stdcall glTexCoord4f,[eax],[eax+4],[eax+8],1.0
ret
endp
align 4
proc glTexCoord3dv uses eax, v:dword
mov eax,[v]
push 1.0
add esp,-12
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4
proc glTexCoord4fv uses eax, v:dword
mov eax,[v]
stdcall glTexCoord4f,[eax],[eax+4],[eax+8],[eax+12]
ret
endp
align 4
proc glTexCoord4dv uses eax, v:dword
mov eax,[v]
add esp,-16
fld qword[eax+24]
fstp dword[esp+12]
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glTexCoord4f
ret
endp
align 4 align 4
glEdgeFlag: ;flag glEdgeFlag: ;flag
push dword[esp] ;копируем адрес возврата push dword[esp] ;копируем адрес возврата
@ -883,7 +1115,7 @@ glHint: ;target, mode
align 4 align 4
proc glDebug uses eax, mode:dword proc glDebug uses eax, mode:dword
stdcall gl_get_context ;после вызова функции в eax указатель на GLContext call gl_get_context ;после вызова функции в eax указатель на GLContext
push dword[mode] push dword[mode]
pop dword[eax+GLContext.print_flag] pop dword[eax+GLContext.print_flag]
ret ret

45
programs/develop/libraries/TinyGL/asm_fork/get.asm Normal file
View File

@ -0,0 +1,45 @@
align 4
proc glGetIntegerv uses eax edi, pname:dword, params:dword
mov eax,[pname]
mov edi,[params]
cmp eax,GL_VIEWPORT
jne @f
push esi
call gl_get_context
lea esi,[eax+GLContext.viewport]
movsd ;m2m dword[edi],dword[eax+GLContext.viewport.xmin]
movsd ;copy .ymin
movsd ;copy .xsize
movsd ;copy .ysize
pop esi
jmp .endf
@@:
cmp eax,GL_MAX_MODELVIEW_STACK_DEPTH
jne @f
mov dword[edi],MAX_MODELVIEW_STACK_DEPTH
jmp .endf
@@:
cmp eax,GL_MAX_PROJECTION_STACK_DEPTH
jne @f
mov dword[edi],MAX_PROJECTION_STACK_DEPTH
jmp .endf
@@:
cmp eax,GL_MAX_LIGHTS
jne @f
mov dword[edi],MAX_LIGHTS
jmp .endf
@@:
cmp eax,GL_MAX_TEXTURE_SIZE
jne @f
mov dword[edi],4096
jmp .endf
@@:
cmp eax,GL_MAX_TEXTURE_STACK_DEPTH
jne @f
mov dword[edi],MAX_TEXTURE_STACK_DEPTH
jmp .endf
@@:
stdcall dbg_print,sz_kosglMakeCurrent,err_glGet
.endf:
ret
endp

39
programs/develop/libraries/TinyGL/asm_fork/tinygl.asm
View File

@ -21,7 +21,7 @@ include 'misc.asm'
include 'clear.asm' include 'clear.asm'
include 'light.asm' include 'light.asm'
include 'select.asm' include 'select.asm'
;include 'get.asm' include 'get.asm'
;include 'error.asm' ;include 'error.asm'
include 'zbuffer.asm' include 'zbuffer.asm'
include 'zline.asm' include 'zline.asm'
@ -52,14 +52,17 @@ m_6 db '(6)',13,10,0
m_7 db '(7)',13,10,0 m_7 db '(7)',13,10,0
m_8 db '(8)',13,10,0 m_8 db '(8)',13,10,0
m_9 db '(9)',13,10,0 m_9 db '(9)',13,10,0
f_fill_tr_nl db ' lines',0
f_zbz db ' ZB_line_z',0
f_zb db ' ZB_line',0
buf_param rb 80 buf_param rb 80
align 4 align 4
proc str_n_cat uses eax ecx edi esi, str1:dword, str2:dword, n_len:dword proc str_n_cat uses eax ecx edi esi, str1:dword, str2:dword, n_len:dword
mov esi,dword[str2] mov esi,[str2]
mov ecx,dword[n_len] mov ecx,[n_len]
mov edi,dword[str1] mov edi,[str1]
stdcall str_len,edi stdcall str_len,edi
add edi,eax add edi,eax
cld cld
@ -105,26 +108,6 @@ align 4
end if end if
; *** ; ***
glColor3d: ;(double ,double ,double)
glColor3dv: ;(double *)
glColor4d: ;(double ,double ,double, double )
glColor4dv: ;(double *)
glNormal3d: ;(double ,double ,double)
glNormal3dv: ;(double *)
glTexCoord1f: ;(float)
glTexCoord1d: ;(double)
glTexCoord1fv: ;(float *)
glTexCoord1dv: ;(double *)
glTexCoord2d: ;(double ,double)
glTexCoord2dv: ;(double *)
glTexCoord3f: ;(float ,float ,float)
glTexCoord3d: ;(double ,double ,double)
glTexCoord3fv: ;(float *)
glTexCoord3dv: ;(double *)
glTexCoord4d: ;(double ,double ,double, double )
glTexCoord4fv: ;(float *)
glTexCoord4dv: ;(double *)
glGetIntegerv: ;(int pname,int *params)
glGetFloatv: ;(int pname, float *v) glGetFloatv: ;(int pname, float *v)
align 4 align 4
@ -139,13 +122,7 @@ err_6 db 'unsupported option',13,10,0
err_7 db 'assert(target == GL_TEXTURE_2D && texture >= 0)',13,10,0 err_7 db 'assert(target == GL_TEXTURE_2D && texture >= 0)',13,10,0
err_8 db 'combinaison of parameters not handled',13,10,0 err_8 db 'combinaison of parameters not handled',13,10,0
err_9 db 'GL_INVALID_ENUM',13,10,0 err_9 db 'GL_INVALID_ENUM',13,10,0
f_zbz db ' ZB_line_z',0 err_glGet db 'glGet: option not implemented',0
f_zb db ' ZB_line',0
f_find_l db 'find_list',0
f_alloc_l db 'alloc_list',0
f_fill_tr db 'ZB_fillTriangle...',0
f_fill_tr_nl db ' lines',0
f_fill_tr_nll db ' len',0
align 4 align 4
proc dbg_print, fun:dword, mes:dword proc dbg_print, fun:dword, mes:dword

2
programs/load_img.inc
View File

@ -26,7 +26,7 @@
; ¯®¤ª«î祭¨¥ ­¥ª®â®àëå ­¥®¡å®¤¨¬ëå ä ©«®¢: ; ¯®¤ª«î祭¨¥ ­¥ª®â®àëå ­¥®¡å®¤¨¬ëå ä ©«®¢:
include 'dll.inc' include 'dll.inc'
include 'develop/libraries/box_lib/load_lib.mac' ;include 'load_lib.mac'
include 'develop/libraries/libs-dev/libio/libio.inc' include 'develop/libraries/libs-dev/libio/libio.inc'
align 4 align 4

2
programs/media/voxel_editor/trunk/build_ru.bat
View File

@ -1,7 +1,5 @@
if not exist bin mkdir bin if not exist bin mkdir bin
@copy *.vox bin\*.vox @copy *.vox bin\*.vox
if not exist bin\buf2d.obj @fasm.exe -m 16384 ..\..\..\develop\libraries\buf2d\trunk\buf2d.asm bin\buf2d.obj
@kpack bin\buf2d.obj
@fasm.exe -m 16384 voxel_editor.asm bin\voxel_editor.kex @fasm.exe -m 16384 voxel_editor.asm bin\voxel_editor.kex
@kpack bin\voxel_editor.kex @kpack bin\voxel_editor.kex
pause pause

57
programs/media/voxel_editor/trunk/voxel_editor.asm
View File

@ -3,15 +3,16 @@ use32
db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
dd 1, start, i_end, mem, stacktop, openfile_path, sys_path dd 1, start, i_end, mem, stacktop, openfile_path, sys_path
include '../../../../programs/macros.inc' include '../../../macros.inc'
include '../../../../programs/proc32.inc' include '../../../proc32.inc'
include '../../../../programs/KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../../programs/load_img.inc' include '../../../load_img.inc'
include '../../../load_lib.mac'
include 'vox_draw.inc' include 'vox_draw.inc'
include 'vox_rotate.inc' include 'vox_rotate.inc'
include 'str.inc' include 'str.inc'
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
caption db 'Voxel editor 22.03.18',0 ;¯®¤¯¨áì ®ª­  caption db 'Voxel editor 22.03.18',0 ;¯®¤¯¨áì ®ª­ 
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
@ -1730,39 +1731,21 @@ db 'VOX',0
db 0 db 0
head_f_i:
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
system_dir_0 db '/sys/lib/' system_dir_0 db '/sys/lib/'
lib_name_0 db 'proc_lib.obj',0 lib_name_0 db 'proc_lib.obj',0
err_message_found_lib_0 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
system_dir_1 db '/sys/lib/' system_dir_1 db '/sys/lib/'
lib_name_1 db 'libimg.obj',0 lib_name_1 db 'libimg.obj',0
err_message_found_lib_1 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
system_dir_2 db '/sys/lib/' system_dir_2 db '/sys/lib/'
lib_name_2 db 'buf2d.obj',0 lib_name_2 db 'buf2d.obj',0
err_msg_found_lib_2 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
system_dir_3 db '/sys/lib/' system_dir_3 db '/sys/lib/'
lib_name_3 db 'libini.obj',0 lib_name_3 db 'libini.obj',0
err_msg_found_lib_3 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libini.obj',39,0
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libini',39,0
l_libs_start: l_libs_start:
lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib
err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d
err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i lib_3 l_libs lib_name_3, file_name, system_dir_3, import_libini
lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\
err_msg_found_lib_3,head_f_l,import_libini,err_msg_import_3,head_f_i
l_libs_end: l_libs_end:
align 4 align 4
@ -1813,7 +1796,7 @@ import_libimg:
aimg_draw db 'img_draw',0 aimg_draw db 'img_draw',0
align 4 align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権 import_proclib:
OpenDialog_Init dd aOpenDialog_Init OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start OpenDialog_Start dd aOpenDialog_Start
dd 0,0 dd 0,0
@ -1913,12 +1896,6 @@ dd 0,0
aini_get_int db 'ini_get_int',0 aini_get_int db 'ini_get_int',0
aini_get_color db 'ini_get_color',0 aini_get_color db 'ini_get_color',0
mouse_dd dd 0x0
sc system_colors
align 16
procinfo process_information
;¡ãä¥à ®á­®¢­®£® ¨§®¡à ¦¥­¨ï ;¡ãä¥à ®á­®¢­®£® ¨§®¡à ¦¥­¨ï
align 4 align 4
buf_0: dd 0 ;㪠§ â¥«ì ­  ¤a­ë¥ ¨§®¡à ¦¥­¨ï buf_0: dd 0 ;㪠§ â¥«ì ­  ¤a­ë¥ ¨§®¡à ¦¥­¨ï
@ -1958,8 +1935,6 @@ buf_r_z:
rb BUF_STRUCT_SIZE rb BUF_STRUCT_SIZE
align 4 align 4
cursor_pointer dd 0 ;㪠§ â¥«ì ­  ¤ ­­ë¥ ¤«ï ªãàá®à 
buf_curs: ;¡ãä¥à á ªãàá®à ¬¨ buf_curs: ;¡ãä¥à á ªãàá®à ¬¨
.data: dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï .data: dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
dw 0 ;+4 left dw 0 ;+4 left
@ -2011,15 +1986,17 @@ buf_vox_g2:
align 16 align 16
i_end: i_end:
procinfo process_information
sc system_colors
mouse_dd dd ?
cursor_pointer dd ? ;㪠§ âĽŤě ­  ¤ ­­ëĽ ¤Ťď ŞăŕáŽŕ 
wnd_s_pos: ;¬¥áâ® ¤«ï ­ áâ஥ª áâ à⮢®© ¯®§¨æ¨¨ ®ª­  wnd_s_pos: ;¬¥áâ® ¤«ï ­ áâ஥ª áâ à⮢®© ¯®§¨æ¨¨ ®ª­ 
rq 0 rq 0
rb 4096 rb 4096
align 16 align 16
stacktop: stacktop:
sys_path rb 1024 sys_path rb 1024
file_name: file_name rb 2048 ;4096
rb 1024 ;4096
library_path rb 1024
plugin_path rb 1024 ;4096 plugin_path rb 1024 ;4096
openfile_path rb 4096 openfile_path rb 4096
filename_area rb 256 filename_area rb 256

66
programs/media/voxel_editor/utilites/vox_creator.asm
View File

@ -3,10 +3,11 @@ use32
db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
dd 1,start,i_end,mem,stacktop,openfile_path,sys_path dd 1,start,i_end,mem,stacktop,openfile_path,sys_path
include '../../../../programs/macros.inc' include '../../../macros.inc'
include '../../../../programs/proc32.inc' include '../../../proc32.inc'
include '../../../../programs/KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../../programs/load_img.inc' include '../../../load_img.inc'
include '../../../load_lib.mac'
include '../trunk/str.inc' include '../trunk/str.inc'
include 'lang.inc' include 'lang.inc'
@ -15,7 +16,7 @@ vox_offs_data equ 12
txt_buf rb 8 txt_buf rb 8
include '../trunk/vox_rotate.inc' include '../trunk/vox_rotate.inc'
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
if lang eq ru if lang eq ru
caption db '‘®§¤ â¥«ì ¢®ªá¥«¥© 04.05.20',0 ;¯®¤¯¨áì ®ª­  caption db '‘®§¤ â¥«ì ¢®ªá¥«¥© 04.05.20',0 ;¯®¤¯¨áì ®ª­ 
else else
@ -32,7 +33,6 @@ buf2d_size_lt equ dword[edi+4] ;
buf2d_color equ dword[edi+16] ;梥â ä®­  ¡ãä¥à  buf2d_color equ dword[edi+16] ;梥â ä®­  ¡ãä¥à 
buf2d_bits equ byte[edi+20] ;ª®«¨ç¥á⢮ ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï buf2d_bits equ byte[edi+20] ;ª®«¨ç¥á⢮ ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï
run_file_70 FileInfoBlock
vox_obj_size dd 0 ;à §¬¥à ¢®ªá¥«ì­®£® ®¡ê¥ªâ  (¤«ï ã᪮७¨ï ¢áâ ¢ª¨) vox_obj_size dd 0 ;à §¬¥à ¢®ªá¥«ì­®£® ®¡ê¥ªâ  (¤«ï ã᪮७¨ï ¢áâ ¢ª¨)
txt_space db ' ',0 txt_space db ' ',0
if lang eq ru if lang eq ru
@ -1278,40 +1278,12 @@ lib_name_2 db 'buf2d.obj',0
system_dir_3 db '/sys/lib/' system_dir_3 db '/sys/lib/'
lib_name_3 db 'msgbox.obj',0 lib_name_3 db 'msgbox.obj',0
align 4
head_f_i:
if lang eq ru
head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
err_message_found_lib_0 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'msgbox.obj',39,'" -tE',0
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'msgbox',39,'" -tE',0
else
head_f_l db '"System error',0
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'msgbox.obj',39,'" -tE',0
err_msg_import_3 db 'Error on load import library ',39,'msgbox',39,'" -tE',0
end if
align 4 align 4
l_libs_start: l_libs_start:
lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib
err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d
err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i lib_3 l_libs lib_name_3, file_name, system_dir_3, import_msgbox_lib
lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\
err_msg_found_lib_3,head_f_l,import_msgbox_lib,err_msg_import_3,head_f_i
l_libs_end: l_libs_end:
align 4 align 4
@ -1362,7 +1334,7 @@ import_libimg:
aimg_draw db 'img_draw',0 aimg_draw db 'img_draw',0
align 4 align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権 import_proclib:
OpenDialog_Init dd aOpenDialog_Init OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start OpenDialog_Start dd aOpenDialog_Start
dd 0,0 dd 0,0
@ -1455,13 +1427,6 @@ dd 0,0
; amb_reinit db 'mb_reinit',0 ; amb_reinit db 'mb_reinit',0
; amb_setfunctions db 'mb_setfunctions',0 ; amb_setfunctions db 'mb_setfunctions',0
mouse_dd dd 0
sc system_colors
last_time dd 0
align 16
procinfo process_information
align 4 align 4
buf_0: dd 0 buf_0: dd 0
dw 5 ;+4 left dw 5 ;+4 left
@ -1562,14 +1527,17 @@ buf_vox:
align 16 align 16
i_end: i_end:
procinfo process_information
sc system_colors
run_file_70 FileInfoBlock
mouse_dd dd ?
last_time dd ?
rb 2048 rb 2048
thread: thread:
rb 2048 rb 2048
stacktop: stacktop:
sys_path rb 1024 sys_path rb 1024
file_name: file_name rb 2048 ;4096
rb 1024 ;4096
library_path rb 1024
plugin_path rb 4096 plugin_path rb 4096
openfile_path rb 4096 openfile_path rb 4096
filename_area rb 256 filename_area rb 256

67
programs/media/voxel_editor/utilites/vox_mover.asm
View File

@ -3,24 +3,23 @@ use32
db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
dd 1, start, i_end, mem, stacktop, openfile_path, sys_path dd 1, start, i_end, mem, stacktop, openfile_path, sys_path
include '../../../../programs/macros.inc' include '../../../macros.inc'
include '../../../../programs/proc32.inc' include '../../../proc32.inc'
include '../../../../programs/KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../../programs/load_img.inc' include '../../../load_img.inc'
include '../../../load_lib.mac'
include '../trunk/vox_draw.inc' include '../trunk/vox_draw.inc'
include '../trunk/vox_rotate.inc' include '../trunk/vox_rotate.inc'
include '../trunk/str.inc' include '../trunk/str.inc'
include 'lang.inc' include 'lang.inc'
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
if lang eq ru if lang eq ru
caption db '<27>¥à¥¬¥é¥­¨¥ ¢®ªá¥«¥© 04.05.20',0 ;¯®¤¯¨áì ®ª­  caption db '<27>¥à¥¬¥é¥­¨¥ ¢®ªá¥«¥© 04.05.20',0 ;¯®¤¯¨áì ®ª­ 
else else
caption db 'Voxel mover 04.05.20',0 caption db 'Voxel mover 04.05.20',0
end if end if
run_file_70 FileInfoBlock
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
image_data_toolbar dd 0 image_data_toolbar dd 0
@ -61,7 +60,7 @@ align 4
start: start:
load_libraries l_libs_start,l_libs_end load_libraries l_libs_start,l_libs_end
;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª  ;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª 
mov ebp,lib_2 mov ebp,lib0
cmp dword [ebp+ll_struc_size-4],0 cmp dword [ebp+ll_struc_size-4],0
jz @f jz @f
mcall SF_TERMINATE_PROCESS mcall SF_TERMINATE_PROCESS
@ -1333,39 +1332,11 @@ lib_name_2 db 'buf2d.obj',0
system_dir_3 db '/sys/lib/' system_dir_3 db '/sys/lib/'
lib_name_3 db 'libini.obj',0 lib_name_3 db 'libini.obj',0
align 4
head_f_i:
if lang eq ru
head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
err_message_found_lib_0 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libini.obj',39,'" -tE',0
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libini',39,'" -tE',0
else
head_f_l db '"System error',0
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'libini.obj',39,'" -tE',0
err_msg_import_3 db 'Error on load import library ',39,'libini',39,'" -tE',0
end if
l_libs_start: l_libs_start:
lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ lib0 l_libs lib_name_0, file_name, system_dir_0, import_proclib
err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i lib1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ lib2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d
err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i lib3 l_libs lib_name_3, file_name, system_dir_3, import_libini
lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\
err_msg_found_lib_3,head_f_l,import_libini,err_msg_import_3,head_f_i
l_libs_end: l_libs_end:
align 4 align 4
@ -1416,7 +1387,7 @@ import_libimg:
aimg_draw db 'img_draw',0 aimg_draw db 'img_draw',0
align 4 align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権 import_proclib:
OpenDialog_Init dd aOpenDialog_Init OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start OpenDialog_Start dd aOpenDialog_Start
dd 0,0 dd 0,0
@ -1510,12 +1481,6 @@ dd 0,0
aini_get_int db 'ini_get_int',0 aini_get_int db 'ini_get_int',0
aini_get_color db 'ini_get_color',0 aini_get_color db 'ini_get_color',0
mouse_dd dd 0
sc system_colors
align 16
procinfo process_information
;¡ãä¥à ®á­®¢­®£® ¨§®¡à ¦¥­¨ï ;¡ãä¥à ®á­®¢­®£® ¨§®¡à ¦¥­¨ï
align 4 align 4
buf_0: dd 0 ;㪠§ â¥«ì ­  ¤a­ë¥ ¨§®¡à ¦¥­¨ï buf_0: dd 0 ;㪠§ â¥«ì ­  ¤a­ë¥ ¨§®¡à ¦¥­¨ï
@ -1576,14 +1541,16 @@ buf_vox:
align 16 align 16
i_end: i_end:
procinfo process_information
sc system_colors
run_file_70 FileInfoBlock
mouse_dd dd ?
wnd_s_pos: ;¬¥áâ® ¤«ï ­ áâ஥ª áâ à⮢®© ¯®§¨æ¨¨ ®ª­  wnd_s_pos: ;¬¥áâ® ¤«ï ­ áâ஥ª áâ à⮢®© ¯®§¨æ¨¨ ®ª­ 
rq 0 rq 0
rb 4096 ;2048 rb 4096 ;2048
stacktop: stacktop:
sys_path rb 1024 sys_path rb 1024
file_name: file_name rb 2048 ;4096
rb 1024 ;4096
library_path rb 1024
plugin_path rb 1024 ;4096 plugin_path rb 1024 ;4096
openfile_path rb 1024 ;4096 openfile_path rb 1024 ;4096
filename_area rb 256 filename_area rb 256

53
programs/media/voxel_editor/utilites/vox_tgl.asm
View File

@ -7,13 +7,14 @@ include '../../../macros.inc'
include '../../../proc32.inc' include '../../../proc32.inc'
include '../../../KOSfuncs.inc' include '../../../KOSfuncs.inc'
include '../../../load_img.inc' include '../../../load_img.inc'
include '../../../load_lib.mac'
include '../../../develop/libraries/TinyGL/asm_fork/opengl_const.inc' include '../../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
include '../../../develop/libraries/TinyGL/asm_fork/zbuffer.inc' include '../../../develop/libraries/TinyGL/asm_fork/zbuffer.inc'
include 'vox_3d.inc' include 'vox_3d.inc'
include '../trunk/str.inc' include '../trunk/str.inc'
include 'lang.inc' include 'lang.inc'
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
if lang eq ru if lang eq ru
caption db '<27>à®á¬®âà ¢®ªá¥«¥© 11.11.20',0 ;¯®¤¯¨áì ®ª­  caption db '<27>à®á¬®âà ¢®ªá¥«¥© 11.11.20',0 ;¯®¤¯¨áì ®ª­ 
else else
@ -27,7 +28,6 @@ end if
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3 IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*10 IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*10
image_data_toolbar dd 0
align 4 align 4
start: start:
@ -850,7 +850,6 @@ db 'TXT',0
db 0 db 0
system_dir_0 db '/sys/lib/' system_dir_0 db '/sys/lib/'
lib_name_0 db 'proc_lib.obj',0 lib_name_0 db 'proc_lib.obj',0
system_dir_1 db '/sys/lib/' system_dir_1 db '/sys/lib/'
@ -860,39 +859,11 @@ lib_name_2 db 'buf2d.obj',0
system_dir_3 db '/sys/lib/' system_dir_3 db '/sys/lib/'
lib_name_3 db 'tinygl.obj',0 lib_name_3 db 'tinygl.obj',0
align 4
head_f_i:
if lang eq ru
head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
err_message_found_lib_0 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'tinygl',39,'" -tE',0
else
head_f_l db '"System error',0
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_3 db 'Error on load import library ',39,'tinygl',39,'" -tE',0
end if
l_libs_start: l_libs_start:
lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib
err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d
err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i lib_3 l_libs lib_name_3, file_name, system_dir_3, import_tinygl
lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\
err_msg_found_lib_3,head_f_l,import_lib_tinygl,err_msg_import_3,head_f_i
l_libs_end: l_libs_end:
align 4 align 4
@ -945,7 +916,7 @@ import_libimg:
; aimg_convert db 'img_convert',0 ; aimg_convert db 'img_convert',0
align 4 align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権 import_proclib:
OpenDialog_Init dd aOpenDialog_Init OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start OpenDialog_Start dd aOpenDialog_Start
dd 0,0 dd 0,0
@ -1006,7 +977,7 @@ import_buf2d:
;-------------------------------------------------- ;--------------------------------------------------
align 4 align 4
import_lib_tinygl: import_tinygl:
macro E_LIB n macro E_LIB n
{ {
@ -1065,14 +1036,14 @@ lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ;
align 16 align 16
i_end: i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28 ctx1 rb 28 ;sizeof.TinyGLContext = 28
mouse_drag dd 0 ;०¨¬ ¯®¢®à®â  áæ¥­ë ®â ¯¥à¥¬¥é¥­¨¨ ªãàá®à  ¬ëè¨ image_data_toolbar dd ?
mouse_x dd 0 mouse_drag dd ? ;༌¨Ź ŻŽ˘ŽŕŽâ  áćĽ­ë Žâ ŻĽŕĽŹĽéĽ­¨¨ ŞăŕáŽŕ  Źëč¨
mouse_y dd 0 mouse_x dd ?
mouse_y dd ?
rb 4096 rb 4096
stacktop: stacktop:
sys_path rb 1024 sys_path rb 1024
file_name rb 2048 file_name rb 2048
library_path rb 1024
plugin_path rb 4096 plugin_path rb 4096
openfile_path rb 4096 openfile_path rb 4096
filename_area rb 256 filename_area rb 256

32
programs/network/ftpc/ftpc.asm
View File

@ -876,11 +876,31 @@ import libini, \
ini.get_str, 'ini_get_str', \ ini.get_str, 'ini_get_str', \
ini.get_int, 'ini_get_int' ini.get_int, 'ini_get_int'
param_user: db 'anonymous',0
rb 60
param_server_addr db 'kolibrios.org'
rb 1024
align 4
i_end: i_end:
; uninitialised data ; uninitialised data
run_file_70 FileInfoBlock ; required for libimg
new_dir_buf rb 64
folder_data rb 32+32*304
remote_list_buf rb 1024
file_name rb 4096 ; required for libimg
conv_tabl rb 128
ed_buffer rb 100
tedit_buffer rb 1024
el_focus dd ?
;-----------------------
procinfo process_information
interface_addr rd 1 interface_addr rd 1
status db ? status db ?
@ -915,10 +935,10 @@ filestruct:
filestruct2: filestruct2:
.subfn dd ? .subfn dd ?
.offset dd ? .offset dd ?
dd 0 dd ?
.size dd ? .size dd ?
.ptr dd ? .ptr dd ?
db 0 db ?
.name dd ? .name dd ?
folder_buf rb 40 folder_buf rb 40
@ -934,14 +954,8 @@ path rb 1024
initial_login rb 1 initial_login rb 1
param_user: db 'anonymous',0
rb 60
param_password rb 1024 param_password rb 1024
param_server_addr db 'kolibrios.org'
rb 1024
param_path rb 1024 param_path rb 1024
param_port rb 6 param_port rb 6

17
programs/network/ftpc/gui.inc
View File

@ -1,9 +1,9 @@
include '../../load_img.inc' include '../../load_img.inc'
include '../../develop/libraries/libs-dev/libimg/libimg.inc' include '../../develop/libraries/libs-dev/libimg/libimg.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../develop/libraries/box_lib/load_lib.mac' include '../../load_lib.mac'
@use_library_mem mem.Alloc, mem.Free, mem.ReAlloc, dll.Load @use_library
icon_tl_sys dd 0 icon_tl_sys dd 0
icon_tl_nod dd 0 icon_tl_nod dd 0
@ -1182,24 +1182,11 @@ import libimg, \
img_draw , 'img_draw' img_draw , 'img_draw'
run_file_70 FileInfoBlock ; required for libimg
auto_list db 1 ; to run LIST immediately after CWD auto_list db 1 ; to run LIST immediately after CWD
filter rb 512 filter rb 512
root_dir db '/tmp0/1' root_dir db '/tmp0/1'
rb 505 rb 505
new_dir_buf rb 64
folder_data rb 32+32*304
node_entry db '1111' node_entry db '1111'
rb 512 rb 512
node_entry2 db '1111' node_entry2 db '1111'
rb 512 rb 512
remote_list_buf rb 1024
file_name rb 4096 ; required for libimg
conv_tabl rb 128
ed_buffer rb 100
tedit_buffer rb 1024
el_focus dd 0
;-----------------------
procinfo process_information

80
programs/other/cnc_control/cnc_control.asm
View File

@ -1,5 +1,5 @@
;CNC CONTROL ;CNC CONTROL
;Igor Afanasyev (aka IgorA) and Sergey Efremenkov (aka theonlymirage), 2018 ;Igor Afanasyev (aka IgorA) and Sergey Efremenkov (aka theonlymirage), 2020
;02.10.18 - Only prototype UI ;02.10.18 - Only prototype UI
;08.10.18 - Add ComboBox (Button + KMenu), small text ;08.10.18 - Add ComboBox (Button + KMenu), small text
@ -14,6 +14,7 @@ include '../../macros.inc'
include '../../proc32.inc' include '../../proc32.inc'
include '../../KOSfuncs.inc' include '../../KOSfuncs.inc'
include '../../load_img.inc' include '../../load_img.inc'
include '../../load_lib.mac'
include '../../develop/libraries/libs-dev/libimg/libimg.inc' include '../../develop/libraries/libs-dev/libimg/libimg.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'lang.inc' include 'lang.inc'
@ -24,8 +25,8 @@ KMENUITEM_NORMAL equ 0
KMENUITEM_SUBMENU equ 1 KMENUITEM_SUBMENU equ 1
KMENUITEM_SEPARATOR equ 2 KMENUITEM_SEPARATOR equ 2
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
caption db 'CNC Control 22.05.19',0 ;¯®¤¯¨áì ®ª­  caption db 'CNC Control 18.12.20',0 ;¯®¤¯¨áì ®ª­ 
run_file_70 FileInfoBlock run_file_70 FileInfoBlock
@ -384,22 +385,17 @@ pushad
;delete port button, if it exist ;delete port button, if it exist
mov edx, 0x80000008 mov edx, 0x80000008
mcall 8 mcall SF_DEFINE_BUTTON
;draw button PORT ;draw button PORT
buttonPortX = 433 buttonPortX = 433
buttonPortY = 27 ;50 buttonPortY = 27 ;50
buttonPortTextXoffset = 5 buttonPortTextXoffset = 5
mov ebx, buttonPortX*65536 + 95 ;X + Width
mov ecx, buttonPortY*65536 + 20 ;Y + Height
mov edx, 0x00000008 ;button id
mov esi, 0x00AABBCC ;color button mov esi, 0x00AABBCC ;color button
mcall 8 mcall SF_DEFINE_BUTTON, buttonPortX*65536 + 95, buttonPortY*65536 + 20, 8
;draw text for button PORT ;draw text for button PORT
mov ebx, (buttonPortX+buttonPortTextXoffset) * 65536 + (buttonPortY+6) ;(x, y) mov ebx, (buttonPortX+buttonPortTextXoffset) * 65536 + (buttonPortY+6) ;(x, y)
mov ecx, 0xFFFFFF
mov edx, sz_PortMenu
mov esi, 11 mov esi, 11
mcall 4 mcall SF_DRAW_TEXT,, 0xFFFFFF, sz_PortMenu
;stdcall [kmainmenu_draw], [main_menu] ;stdcall [kmainmenu_draw], [main_menu]
;mov word[coord.x], 0 ;mov word[coord.x], 0
;mov word[coord.y], 0 ;mov word[coord.y], 0
@ -448,7 +444,7 @@ button:
cmp ah, 8 cmp ah, 8
jne @f jne @f
push eax ebx ecx push eax ebx ecx
mcall 9, pi, -1 ;get window coord mcall SF_THREAD_INFO, pi, -1 ;get window coord
mov eax, dword[pi+34] mov eax, dword[pi+34]
add eax, buttonPortX + 5 add eax, buttonPortX + 5
@ -676,8 +672,8 @@ proc conv_str_to_int uses ebx ecx esi, buf:dword
inc esi inc esi
jmp .cycle_16 jmp .cycle_16
@@: @@:
cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥ or ecx,ecx ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
jne @f jnz @f
sub ecx,eax sub ecx,eax
mov eax,ecx mov eax,ecx
@@: @@:
@ -752,45 +748,13 @@ lib_name_3 db 'box_lib.obj',0
system_dir_4 db '/sys/lib/' system_dir_4 db '/sys/lib/'
lib_name_4 db 'kmenu.obj',0 lib_name_4 db 'kmenu.obj',0
head_f_i:
if lang eq ru
head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
err_message_found_lib_0 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tW',0
err_message_found_lib_1 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tW',0
err_msg_found_lib_2 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tW',0
err_msg_found_lib_3 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,'" -tE',0
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,'" -tW',0
err_msg_found_lib_4 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'kmenu.obj',39,'" -tE',0
err_msg_import_4 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'kmenu',39,'" -tW',0
else
head_f_l db '"System error',0
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tW',0
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tW',0
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0
err_msg_import_3 db 'Error on load import library ',39,'box_lib',39,'" -tW',0
err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,'" -tE',0
err_msg_import_4 db 'Error on load import library ',39,'kmenu',39,'" -tW',0
end if
align 4 align 4
l_libs_start: l_libs_start:
lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib
err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ lib_2 l_libs lib_name_2, file_name, system_dir_2, import_buf2d
err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i lib_3 l_libs lib_name_3, file_name, system_dir_3, import_box_lib
lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\ lib_4 l_libs lib_name_4, file_name, system_dir_4, import_libkmenu
err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
lib_3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
err_msg_found_lib_3, head_f_l, import_box_lib,err_msg_import_3,head_f_i
lib_4 l_libs lib_name_4, sys_path, file_name, system_dir_4,\
err_msg_found_lib_4, head_f_l, import_libkmenu,err_msg_import_4,head_f_i
l_libs_end: l_libs_end:
align 4 align 4
@ -841,7 +805,7 @@ import_libimg:
aimg_draw db 'img_draw',0 aimg_draw db 'img_draw',0
align 4 align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権 import_proclib:
OpenDialog_Init dd aOpenDialog_Init OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start OpenDialog_Start dd aOpenDialog_Start
OpenDialog_Set_file_name dd aOpenDialog_Set_file_name OpenDialog_Set_file_name dd aOpenDialog_Set_file_name
@ -1048,9 +1012,9 @@ align 4
align 4 align 4
proc mem_copy uses ecx esi edi, destination:dword, source:dword, len:dword proc mem_copy uses ecx esi edi, destination:dword, source:dword, len:dword
cld cld
mov esi, dword[source] mov esi, [source]
mov edi, dword[destination] mov edi, [destination]
mov ecx, dword[len] mov ecx, [len]
rep movsb rep movsb
ret ret
endp endp
@ -1102,12 +1066,10 @@ thread_n_file:
rb 2048 rb 2048
stacktop: stacktop:
sys_path rb 1024 sys_path rb 1024
file_name: file_name rb 2048
rb 1024
library_path rb 1024
plugin_path rb 4096 plugin_path rb 4096
openfile_path rb 4096 openfile_path rb 4096
filename_area rb 256 filename_area rb 256
pi rb 1024 pi rb 1024
mem: mem:

39
programs/other/t_edit_synt/te_syntax.asm
View File

@ -11,13 +11,14 @@ include '../../macros.inc'
include '../../proc32.inc' include '../../proc32.inc'
include '../../KOSfuncs.inc' include '../../KOSfuncs.inc'
include '../../load_img.inc' include '../../load_img.inc'
include '../../load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../system/skincfg/trunk/kglobals.inc' include '../../system/skincfg/trunk/kglobals.inc'
include '../../system/skincfg/trunk/unpacker.inc' include '../../system/skincfg/trunk/unpacker.inc'
include 'te_data.inc' include 'te_data.inc'
include 'te_work.inc' ;text work functions include 'te_work.inc' ;text work functions
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
@ -324,8 +325,8 @@ align 4
but_ctrl_o: but_ctrl_o:
push eax push eax
call get_wnd_in_focus call get_wnd_in_focus
cmp eax,0 or eax,eax
je @f jz @f
stdcall [ted_open_file], eax,str_file_70,[edit1.text] stdcall [ted_open_file], eax,str_file_70,[edit1.text]
@@: @@:
pop eax pop eax
@ -336,8 +337,8 @@ align 4
but_ctrl_n: but_ctrl_n:
push eax push eax
call get_wnd_in_focus call get_wnd_in_focus
cmp eax,0 or eax,eax
je @f jz @f
stdcall [ted_clear], eax,1 stdcall [ted_clear], eax,1
stdcall [ted_draw], eax stdcall [ted_draw], eax
@@: @@:
@ -358,7 +359,7 @@ get_wnd_in_focus:
;@@: ;@@:
ret ret
hed db 'TextEditor syntax file converter 06.02.20',0 ;¯®¤¯¨áì ®ª­  hed db 'TextEditor syntax file converter 18.12.20',0 ;¯®¤¯¨áì ®ª­ 
conv_tabl rb 128 ; â ¡«¨æ  ¤«ï ª®­¢¥àâ¨à®¢ ­¨ï scan-ª®¤  ¢ ascii-ª®¤ conv_tabl rb 128 ; â ¡«¨æ  ¤«ï ª®­¢¥àâ¨à®¢ ­¨ï scan-ª®¤  ¢ ascii-ª®¤
txt_load_f db '‡ £à. ä ©«',0 txt_load_f db '‡ £à. ä ©«',0
@ -366,17 +367,10 @@ txt_save_f db '
txt_inp_file db 'ˆáå. ä ©«:',0 txt_inp_file db 'ˆáå. ä ©«:',0
txt_out_file db '‚ëå. ä ©«:',0 txt_out_file db '‚ëå. ä ©«:',0
head_f_i:
head_f_l db '"System error',0
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0
err_message_import_0 db 'Error on load import library ',39,'box_lib.obj',39,'" -tW',0
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0
;library structures ;library structures
l_libs_start: l_libs_start:
lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0, err_message_found_lib_0, head_f_l, import_box_lib,err_message_import_0, head_f_i lib0 l_libs lib_name_0, file_name, system_dir_0, import_box_lib
lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1, err_message_found_lib_1, head_f_l, import_libimg,err_message_import_1, head_f_i lib1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
load_lib_end: load_lib_end:
IncludeIGlobals IncludeIGlobals
@ -385,14 +379,11 @@ align 16
i_end: i_end:
IncludeUGlobals IncludeUGlobals
procinfo process_information procinfo process_information
rb 1024 rb 1024
thread: thread:
rb 1024 rb 1024
stacktop: stacktop:
sys_path: sys_path rb 4096
rb 4096 file_name rb 4096
file_name: file_name_rez rb 4096
rb 4096
file_name_rez:
rb 4096
mem: mem: