aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

*kernel - fixes in 15.2 by Mario79 and 67 by mike.dld

Browse Source 
updated sysfunc.txt
*programs 
         new icons and logo for CPUID and ICON
         added new version of @ICON and ICONMNGR
         fixes in iconedit and calendar from DedOK
         new algoritm of fill background in pic4
         all apps (fasm-writen only) rewriten to use common macros.inc for easy recompile in fastcall mode (there is a bug in https; run need rewrite to use common macros.inc)
         small fixes in build_all.bat script
         

git-svn-id: svn://kolibrios.org@485 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
heavyiron
2007-05-10 13:48:35 +00:00
parent 0f7aa4d574
commit 4daae89053
545 changed files with 31819 additions and 34012 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
programs/demos/trantest/trunk/ascgl.inc
View File

@@ -373,7 +373,7 @@ macro drawfbox x,y,xs,ys,color
wordstoreg ecx,y,ys ;y*65536+ys
mov edx,color
mov eax,13
int 0x40
mcall
}
; FPS - Set Frame Per Second Display
@@ -390,7 +390,7 @@ ttt dd 0
spdat:
get_time:
mov eax,3
int 0x40
mcall
cmp eax,[savetime]
jne new_time
inc [fps_cntr]
@@ -409,7 +409,7 @@ if ~(delcolor eq )
mov ecx,y*65536+7
mov edx,delcolor
mov eax,13
int 0x40
mcall
end if
mov dword [ttt],fps_show_frequency
mov eax,47
@@ -418,7 +418,7 @@ end if
mov edx,x*65536+y
mov esi,color
mov ecx,[fps]
int 0x40
mcall
no_out_fps:
}
@@ -496,7 +496,7 @@ macro setimg x , y ,arg3
add cx,[arg3+4]
; wordstoreg ecx,[arg3],[arg3+4]
wordstoreg edx, x , y ;arg1*65536+arg2
int 0x40
mcall
}
macro setframe x , y ,arg3
@@ -507,7 +507,7 @@ macro setframe x , y ,arg3
wordstoreg edx, x , y ;arg1*65536+arg2
add edx,dword [arg3]
mov ecx,dword [arg3+4]
int 0x40
mcall
}

76
programs/demos/trantest/trunk/ascl.inc
View File

@@ -48,14 +48,14 @@ open:
mov dword [fileinfo+8],1 ; how many blocks to read (1)
mov eax,58
mov ebx,fileinfo
int 0x40
mcall
mov eax,[file_load_area+2]
shr eax,9 ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 512 <EFBFBD> <EFBFBD>ਡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>稬 <EFBFBD><EFBFBD>᫮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
inc eax
mov dword [fileinfo+8],eax
mov eax,58
mov ebx,fileinfo
int 0x40
mcall
}
@@ -91,7 +91,7 @@ asd:
mov edx,id
mov esi,bcolor
mov eax,8
int 0x40
mcall
mov eax,asd-lab ;calc size
mov ebx,6
@@ -116,7 +116,7 @@ asd:
mov edx,lab
mov esi,asd-lab ;calc size
mov eax,4
int 0x40
mcall
}
@@ -145,7 +145,7 @@ mov [dlg_pid_get],0
mov eax,9
mov ebx,procinfo
mov ecx,-1
int 0x40
mcall
; convert eax bin to param dec
mov eax,dword [procinfo+30] ;offset of myPID
@@ -179,12 +179,12 @@ new_d:
mov ebx,1 ; define IPC
mov ecx,path ; offset of area
mov edx,150 ; size 150 bytes
int 0x40
mcall
; change wanted events list 7-bit IPC event
mov eax,40
mov ebx,01000111b
int 0x40
mcall
;
; STEP 3 run SYSTEM XTREE with parameters
@@ -192,7 +192,7 @@ new_d:
mov eax,58
mov ebx,run_fileinfo
int 0x40
mcall
call redproc
@@ -200,7 +200,7 @@ new_d:
getmesloop:
mov eax,23
mov ebx,50 ;0.5 sec
int 0x40
mcall
cmp eax,1
je mred
@@ -215,14 +215,14 @@ getmesloop:
mov ebx,procinfo
mov ecx,-1
mov eax,9
int 0x40
mcall
mov ebp,eax
loox:
mov eax,9
mov ebx,procinfo
mov ecx,ebp
int 0x40
mcall
mov eax,[DLGPID]
cmp [procinfo+30],eax ;IF Dialog find
je dlg_is_work ;jmp to dlg_is_work
@@ -247,15 +247,15 @@ mred:
jmp getmesloop
mkey:
mov eax,2
int 0x40 ; read (eax=2)
mcall ; read (eax=2)
jmp getmesloop
mbutton:
mov eax,17 ; get id
int 0x40
mcall
cmp ah,1 ; button id=1 ?
jne getmesloop
mov eax,-1 ; close this program
int 0x40
mcall
mgetmes:
; If dlg_pid_get then second message get jmp to still
@@ -357,7 +357,7 @@ mov [dlg_pid_get],0
mov eax,9
mov ebx,procinfo
mov ecx,-1
int 0x40
mcall
; convert eax bin to param dec
mov eax,dword [procinfo+30] ;offset of myPID
@@ -391,12 +391,12 @@ new_d:
mov ebx,1 ; define IPC
mov ecx,path ; offset of area
mov edx,120 ; size 150 bytes
int 0x40
mcall
; change wanted events list 7-bit IPC event
mov eax,40
mov ebx,01000111b
int 0x40
mcall
;
; STEP 3 run SYSTEM XTREE with parameters
@@ -404,7 +404,7 @@ new_d:
mov eax,58
mov ebx,run_fileinfo
int 0x40
mcall
call redproc
@@ -412,7 +412,7 @@ new_d:
getmesloop:
mov eax,23
mov ebx,50 ;0.5 sec
int 0x40
mcall
cmp eax,1
je mred
@@ -427,14 +427,14 @@ getmesloop:
mov ebx,procinfo
mov ecx,-1
mov eax,9
int 0x40
mcall
mov ebp,eax
loox:
mov eax,9
mov ebx,procinfo
mov ecx,ebp
int 0x40
mcall
mov eax,[DLGPID]
cmp [procinfo+30],eax ;IF Dialog find
je dlg_is_work ;jmp to dlg_is_work
@@ -458,15 +458,15 @@ mred:
call redproc
jmp getmesloop
mkey:
int 0x40 ; read (eax=2)
mcall ; read (eax=2)
jmp getmesloop
mbutton:
mov eax,17 ; get id
int 0x40
mcall
cmp ah,1 ; button id=1 ?
jne getmesloop
mov eax,-1 ; close this program
int 0x40
mcall
mgetmes:
; If dlg_pid_get then second message get jmp to still
@@ -618,7 +618,7 @@ rxproc:
macro scank
{
mov eax,10
int 0x40
mcall
}
macro putpix x,y,color
@@ -627,7 +627,7 @@ macro putpix x,y,color
mov ecx,y
mov edx,color
mov eax,1
int 0x40
mcall
}
macro puttxt x,y,offs,size,color
@@ -640,7 +640,7 @@ macro puttxt x,y,offs,size,color
mov edx,offs
mov esi,size
mov eax,4
int 0x40
mcall
}
macro outcount data, x, y, color, numtype
@@ -652,7 +652,7 @@ macro outcount data, x, y, color, numtype
wordstoreg edx,x,y
mov esi,color
mov eax,47
int 0x40
mcall
}
; SCEVENT - Scan event
@@ -660,7 +660,7 @@ macro outcount data, x, y, color, numtype
macro scevent red,key,but
{
mov eax,11
int 0x40
mcall
dec eax
jz red
dec eax
@@ -674,7 +674,7 @@ macro scevent red,key,but
macro wtevent red,key,but
{
mov eax,10
int 0x40
mcall
dec eax
jz red
dec eax
@@ -689,7 +689,7 @@ macro timeevent xfps,noevent,red,key,but
{
mov eax,23
mov ebx,xfps
int 0x40
mcall
cmp eax,0
je noevent
dec eax
@@ -706,7 +706,7 @@ macro timeevent xfps,noevent,red,key,but
macro close
{
mov eax,-1
int 0x40
mcall
}
; DELAY - Create delay 1/100 sec
@@ -717,7 +717,7 @@ macro delay arg1
{
mov eax,5
mov ebx,arg1
int 0x40
mcall
}
; WINDOW - Draw window
@@ -732,7 +732,7 @@ macro window arg1,arg2,arg3,arg4,arg5
wordstoreg ecx,arg2,arg4
mov edx,arg5
mov eax,0
int 0x40
mcall
}
macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
@@ -743,7 +743,7 @@ macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
mov esi,arg6
mov edi,arg7
mov eax,0
int 0x40
mcall
}
@@ -753,7 +753,7 @@ macro startwd
{
mov eax,12
mov ebx,1
int 0x40
mcall
}
; ENDWD - End window draw
@@ -762,7 +762,7 @@ macro endwd
{
mov eax,12
mov ebx,2
int 0x40
mcall
}
; LABEL - Put text to frame
@@ -785,7 +785,7 @@ end if
mov edx,lab
mov esi,asd-lab ;calc size
mov eax,4
int 0x40
mcall
}
;Key's

19
programs/demos/trantest/trunk/trantest.asm
View File

@@ -19,6 +19,7 @@ use32
SCREEN_X equ 320 ;800
SCREEN_Y equ 200 ;600
include '..\..\..\macros.inc'
include 'lang.inc'
include 'ascl.inc'
include 'ascgl.inc'
@@ -66,37 +67,37 @@ count dd 100
key:
mov eax,2
int 0x40
mcall
jmp still
button:
mov eax,17
int 0x40
mcall
cmp ah,1
jne still
exit:
mov eax,-1
int 0x40
mcall
;Draw window
draw_window:
mov eax,12 ;Start
mov ebx,1
int 0x40
mcall
xor eax,eax ;Draw window
mov ebx,100*65536+(SCREEN_X+9) ;x start*65536+x size
mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
mov edx,0x13000000 ;0x13 use skinned window
mov edi,header
int 0x40
mov edi,title
mcall
mov eax,12 ;End
mov ebx,2
int 0x40
mcall
ret
header db '3D TEST SAMPLE',0
title db '3D TEST SAMPLE',0
outscr:
@@ -105,7 +106,7 @@ outscr:
mov ecx,SCREEN_X*65536+SCREEN_Y
mov edx,5*65536+22
mov ax,7
int 0x40
mcall
ret