KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

new h2d2b from Alexei Ershov

Browse Source 
updated keyascii, scancode, example 1, cpuspeed

git-svn-id: svn://kolibrios.org@317 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
heavyiron
2007-02-04 01:40:26 +00:00
parent f2647d013c
commit 4256086104
5 changed files with 104 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
programs/develop/examples/cpuspeed/trunk/cpuspeed.asm
View File

@@ -38,7 +38,7 @@ START: ; start of execution
mov [edi],dl mov [edi],dl
sub edi,1 sub edi,1
loop newnum loop newnum
red:
call draw_window ; at first, draw the window call draw_window ; at first, draw the window
still: still:
@@ -55,10 +55,6 @@ still:
jmp still jmp still
red: ; redraw
call draw_window
jmp still
key: ; key key: ; key
mov eax,2 ; just read it and ignore mov eax,2 ; just read it and ignore
int 0x40 int 0x40
@@ -70,7 +66,7 @@ still:
cmp ah,1 ; button id=1 ? cmp ah,1 ; button id=1 ?
jnz still jnz still
mov eax,-1 ; close this program or eax,-1 ; close this program
int 0x40 int 0x40
@@ -96,39 +92,18 @@ draw_window:
mov ebx,100*65536+200 ; [x start] *65536 + [x size] mov ebx,100*65536+200 ; [x start] *65536 + [x size]
mov ecx,100*65536+65 ; [y start] *65536 + [y size] mov ecx,100*65536+65 ; [y start] *65536 + [y size]
mov edx,[sc.work] ; color of work area RRGGBB,8->color glide mov edx,[sc.work] ; color of work area RRGGBB,8->color glide
mov esi,[sc.grab] ; color of grab bar RRGGBB,8->color or edx,0x33000000 ; color of grab bar RRGGBB,8->color
or esi,0x80000000 mov edi,header ; WINDOW LABEL
mov edi,[sc.frame] ; color of frames RRGGBB
int 0x40 int 0x40
; WINDOW LABEL
mov eax,4 ; function 4 : write text to window
mov ebx,8*65536+8 ; [x start] *65536 + [y start]
mov ecx,[sc.grab_text] ; color of text RRGGBB
or ecx,0x10000000
mov edx,labelt ; pointer to text beginning
mov esi,labellen-labelt ; text length
int 0x40
; CLOSE BUTTON
mov eax,8 ; function 8 : define and draw button
mov ebx,(200-17)*65536+12 ; [x start] *65536 + [x size]
mov ecx,5*65536+12 ; [y start] *65536 + [y size]
mov edx,1 ; button id
mov esi,[sc.grab_button] ; button color RRGGBB
int 0x40
mov ebx,25*65536+35 ; draw info text with function 4 mov ebx,20*65536+14 ; draw info text with function 4
mov ecx,[sc.work_text] mov ecx,[sc.work_text]
mov edx,text mov edx,text
mov esi,40 mov esi,24
newline:
mov eax,4 mov eax,4
int 0x40 int 0x40
add ebx,10
add edx,40
cmp [edx],byte 'x'
jnz newline
mov eax,12 ; function 12:tell os about windowdraw mov eax,12 ; function 12:tell os about windowdraw
mov ebx,2 ; 2, end of draw mov ebx,2 ; 2, end of draw
int 0x40 int 0x40
@@ -140,12 +115,9 @@ draw_window:
text: text:
db 'CPU RUNNING AT MHZ ' db 'CPU RUNNING AT MHZ'
db 'x' ; <- END MARKER, DONT DELETE
labelt: header db 'CPU SPEED',0
db 'CPU SPEED'
labellen:
I_END: I_END:

33
programs/develop/examples/example/trunk/example.asm
View File

@@ -103,42 +103,23 @@ draw_window:
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
; mov eax,0 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 0 : <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD> ; mov eax,0 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 0 : <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD>
; mov ebx,200*65536+200 ; [x <20><><EFBFBD><EFBFBD><EFBFBD>] *65536 + [x ࠧ<><E0A0A7><EFBFBD>] ; mov ebx,200*65536+200 ; [x <20><><EFBFBD><EFBFBD><EFBFBD>] *65536 + [x ࠧ<><E0A0A7><EFBFBD>]
; mov ecx,200*65536+100 ; [y <20><><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y ࠧ<><E0A0A7><EFBFBD>] ; mov ecx,200*65536+50 ; [y <20><><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y ࠧ<><E0A0A7><EFBFBD>]
; mov edx,0x02aabbcc ; 梥<> ࠡ<>祩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RRGGBB,8->color gl ; mov edx,0x33aabbcc ; 梥<> ࠡ<>祩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RRGGBB,8->color gl
; mov esi,0x805080d0 ; 梥<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RRGGBB,8->color gl ; mov edi,header ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
; mov edi,0x005080d0 ; 梥<> ࠬ<><E0A0AC> RRGGBB
; int 0x40 ; int 0x40
mcall 0, <200,200>, <200,50>, 0x02AABBCC, 0x805080D0, 0x005080D0 mcall 0, <200,200>, <200,50>, 0x33AABBCC,,header
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
; mov eax,4 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 4 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> ⥪<><E2A5AA>
; mov ebx,8*65536+8 ; [x] *65536 + [y]
; mov ecx,0x10ddeeff ; <20><><EFBFBD><EFBFBD><EFBFBD> 1 <20> 梥<> ( 0xF0RRGGBB )
; mov edx,header ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
; mov esi,header.size ; <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
; int 0x40
mcall 4, <8,8>, 0x10DDEEFF, header, header.size
; mov eax,4 ; mov eax,4
; mov ebx,8 shl 16 + 30 ; mov ebx,3 shl 16 + 8
; mov ecx,0 ; mov ecx,0
; mov edx,message ; mov edx,message
; mov esi,message.size ; mov esi,message.size
; int 0x40 ; int 0x40
mcall 4, <8, 30>, 0, message, message.size mcall 4, <3, 8>, 0, message, message.size
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
; mov eax,8 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 8 : <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; mov ebx,(200-19)*65536+12 ; [x <20><><EFBFBD><EFBFBD><EFBFBD>] *65536 + [x ࠧ<><E0A0A7><EFBFBD>]
; mov ecx,5*65536+12 ; [y <20><><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y ࠧ<><E0A0A7><EFBFBD>]
; mov edx,1 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 1
; mov esi,0x6688dd ; 梥<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RRGGBB
; int 0x40
mcall 8, <200-19, 12>, <5, 12>, 1, 0x6688DD
mcall 12, 2 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 12: ᮮ<><E1AEAE><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD> mcall 12, 2 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 12: ᮮ<><E1AEAE><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD>
; 2, <20><><EFBFBD><EFBFBD><EFBFBD>稫<EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD> ; 2, <20><><EFBFBD><EFBFBD><EFBFBD>稫<EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD>

115
programs/develop/h2d2b/trunk/h2d2b.asm
View File

@@ -1,3 +1,6 @@
;; hex2dec2bin 0.2 by Alexei Ershov ;;
;; 16.11.2006 ;;
use32 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 32-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> use32 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 32-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
org 0x0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> org 0x0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>
@@ -10,8 +13,7 @@
dd 0x0 ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) dd 0x0 ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
dd 0x0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> dd 0x0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
include 'lang.inc' include 'MACROS.INC' ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
include 'macros.inc' ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
START: START:
@@ -109,8 +111,13 @@ next_digit:
jmp next_digit jmp next_digit
.done: .done:
mov [num], eax mov [num], eax ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
xor eax, eax
mov al, ' '
mov edi, string1
mov [index], edi
mov ecx, string1_end-string1
rep stosb ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
jmp red jmp red
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@@ -118,48 +125,66 @@ next_digit:
button: button:
mcall 17 ; 17 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> mcall 17 ; 17 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cmp ah, 1 ; <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1, cmp ah, 1 ; <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1,
jne still ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> jne @f
mcall -1
@@:
cmp ah, 2
jne @f
shl [num], 1
jmp red
@@:
cmp ah, 3
jne @f
shr [num], 1
jmp red
@@:
cmp ah, 4
jne still
sar [num], 1
jmp red
.exit: ;------------------------------------------------
mcall -1 ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> draw_window:
;------------------------------------------------
draw_window:
mcall 12, 1 mcall 12, 1
mcall 0, 200*65536+300, 200*65536+120, 0x02AABBCC, 0x805080D0, 0x005080D0 mcall 0, 200*65536+300, 200*65536+175, 0x13AABBCC,,header
mcall 4, 8*65536+8, 0x10DDEEFF, header, header_e - header
mcall , 15*65536+100, 0, numstr, 7 mcall 8, 15 *65536+ 38, 90*65536+ 15, 2, 0x6688DD ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> shl
mcall , 15*65536+72, , hexstr, 4 mcall , ,110*65536+ 15, , ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> sal
mcall , (300-53)*65536+ 38, 90*65536+ 15, 3, ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> shr
mcall , ,110*65536+ 15, 4, ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> sar
mcall 4, 15*65536+30, 0x80000000, binstr,
mcall , 15*65536+44, , decstr, mcall , 15*65536+44, , decstr,
mcall , 15*65536+30, , binstr, mcall , 15*65536+58, ,sdecstr,
mcall , 15*65536+58, ,sdecstr, 10 mcall , 15*65536+72, , hexstr,
mcall , 15*65536+150, , numstr,
mcall 8, (300-19)*65536+ 12, 5*65536+ 12, 1, 0x6688DD
mcall , 25*65536+93,0x10000000,shlstr,3
mcall , (300-43)*65536+93, , shrstr,
mcall , 25*65536+113, , salstr,
mcall , (300-43)*65536+113, , sarstr,
mov ecx, [num] mov ecx, [num]
mcall 47, 8*65536+256,,240*65536+72,0 ; 16-<2D><><EFBFBD> mcall 47, 8*65536+256,,240*65536+72,0 ; 16-<2D><><EFBFBD>
mcall , 10*65536, ,228*65536+44, ; 10-<2D><><EFBFBD> mcall , 10*65536, ,228*65536+44, ; 10-<2D><><EFBFBD>
mcall , 8*65536+512,,240*65536+30, ; 2-<2D><><EFBFBD> mcall , 8*65536+512,,240*65536+30, ; 2-<2D><><EFBFBD>
ror ecx, 8 ror ecx, 8
mcall , 8*65536+512,,(240-56)*65536+30, mcall , ,,(240-56)*65536+30,
ror ecx, 8 ror ecx, 8
mcall , 8*65536+512,,(240-56*2)*65536+30, mcall , ,,(240-56*2)*65536+30,
ror ecx, 8 ror ecx, 8
mcall , 8*65536+512,,(240-56*3)*65536+30, mcall , ,,(240-56*3)*65536+30,
ror ecx, 8 ror ecx, 8
mov byte [minus], '+' mov [minus], '+'
jnc @f jnc @f
mov byte [minus], '-' mov [minus], '-'
neg ecx neg ecx
@@: @@:
mcall , 10*65536,,228*65536+58, ; 10-<2D><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> mcall , 10*65536,,228*65536+58, ; 10-<2D><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mcall 4, 222*65536+58, 0, minus, 1 mcall 4, 222*65536+58, 0, minus, 1
call Draw_String mcall 38, 15*65536+300-15, 137*65536+137, 0x006688DD
call Draw_String
mcall 12, 2 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 12: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> mcall 12, 2 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 12: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
ret ret
@@ -167,19 +192,10 @@ ret
;------------------------------------------------- ;-------------------------------------------------
Draw_String: Draw_String:
;------------------------------------------------- ;-------------------------------------------------
mov eax, 13
mov ebx, 60*65536+ 6*33
mov ecx, 100*65536+ 9
mov edx, 0x02AABBCC
int 0x40
mov eax,4 mcall 4, 60*65536+150, 0x40A40473, \
mov ebx,60*65536+100 string1,string1_end-string1,0x00AABBCC
mov ecx,0xA40473 ret
mov edx,string1
mov esi,33
int 0x40
ret
;------------------------------------------------- ;-------------------------------------------------
GetBase: GetBase:
@@ -220,16 +236,19 @@ string1:
db 34 dup(' ') db 34 dup(' ')
string1_end: string1_end:
index dd string1 index dd string1
num dd 0 num dd 0
header db 'hex2dec2bin' header db 'hex2dec2bin 0.2',0
header_e:
minus db '-' minus db '-'
numstr db 'Number:' numstr db 'Number:',0
hexstr db 'hex:' hexstr db 'hex:',0
binstr db 'bin:' binstr db 'bin:',0
decstr db 'dec:' decstr db 'dec:',0
sdecstr db 'signed dec:' sdecstr db 'signed dec:',0
shlstr db 'shl'
salstr db 'sal'
shrstr db 'shr'
sarstr db 'sar'
I_END: ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> I_END: ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

34
programs/develop/keyascii/trunk/keyascii.asm
View File

@@ -18,7 +18,7 @@ include 'lang.inc'
include 'macros.inc' include 'macros.inc'
START: ; start of execution START: ; start of execution
red:
call draw_window call draw_window
still: still:
@@ -35,10 +35,6 @@ still:
jmp still jmp still
red: ; redraw
call draw_window
jmp still
key: ; key key: ; key
mov eax,2 ; just read it and ignore mov eax,2 ; just read it and ignore
int 0x40 int 0x40
@@ -53,7 +49,7 @@ still:
cmp ah,1 ; button id=1 ? cmp ah,1 ; button id=1 ?
jne noclose jne noclose
mov eax,-1 ; close this program or eax,-1 ; close this program
int 0x40 int 0x40
noclose: noclose:
@@ -78,20 +74,14 @@ draw_window:
mov eax,0 ; function 0 : define and draw window mov eax,0 ; function 0 : define and draw window
mov ebx,100*65536+270 ; [x start] *65536 + [x size] mov ebx,100*65536+270 ; [x start] *65536 + [x size]
mov ecx,100*65536+80 ; [y start] *65536 + [y size] mov ecx,100*65536+80 ; [y start] *65536 + [y size]
mov edx,0x83ffffff ; color of work area RRGGBB,8->color gl mov edx,0x33ffffff ; color of work area RRGGBB,8->color gl
mov esi,0x805080d0 ; color of grab bar RRGGBB,8->color gl mov edi,header
mov edi,0x005080d0 ; color of frames RRGGBB
int 0x40 int 0x40
mov eax,4 ; function 4 : write text to window mov eax,4 ; function 4 : write text to window
mov ebx,8*65536+8 ; [x start] *65536 + [y start] xor ecx,ecx
mov ecx,0x00ddeeff ; color of text RRGGBB
mov edx,labelt ; pointer to text beginning
mov esi,labellen-labelt ; text length
int 0x40
xor ecx,0xFFFFFF
mov esi,4 mov esi,4
add ebx,23 mov ebx,8*65536+8
mov edx,tdec mov edx,tdec
int 0x40 int 0x40
add ebx,23 add ebx,23
@@ -101,7 +91,7 @@ draw_window:
mov ecx,[keyid] mov ecx,[keyid]
mov eax,47 mov eax,47
mov ebx,3*65536 mov ebx,3*65536
mov edx,40*65536+31 mov edx,40*65536+8
mov esi,0x224466 mov esi,0x224466
int 0x40 int 0x40
add edx,23 add edx,23
@@ -117,11 +107,9 @@ draw_window:
; DATA AREA ; DATA AREA
tdec: db 'DEC:' tdec: db 'DEC:'
thex: db 'HEX:' thex: db 'HEX:'
labelt: header db 'KEYBOARD ASCIICODES-PRESS ANY KEY',0
db 'KEYBOARD ASCIICODES-PRESS ANY KEY' keyid: db 0
labellen:dd 0
keyid:db 0
I_END: I_END:

40
programs/develop/scancode/trunk/scancode.asm
View File

@@ -30,7 +30,7 @@ START: ; start of execution
mov ecx,1 ; base keymap mov ecx,1 ; base keymap
mov edx,keymap mov edx,keymap
int 0x40 int 0x40
red:
call draw_window call draw_window
still: still:
@@ -48,11 +48,6 @@ still:
jmp still jmp still
red: ; redraw
call draw_window
jmp still
key: ; key key: ; key
mov eax,2 ; just read it and ignore mov eax,2 ; just read it and ignore
int 0x40 int 0x40
@@ -167,24 +162,13 @@ draw_window:
mov ebx, 100*65536+200 ; [x start] *65536 + [x size] mov ebx, 100*65536+200 ; [x start] *65536 + [x size]
mov ecx, 100*65536+275 ; [y start] *65536 + [y size] mov ecx, 100*65536+275 ; [y start] *65536 + [y size]
mov edx, [sc.work] ; color of work area RRGGBB,8->color gl mov edx, [sc.work] ; color of work area RRGGBB,8->color gl
or edx, 0x03000000 or edx, 0x33000000
mov esi, [sc.grab] ; color of grab bar RRGGBB,8->color gl mov edi, header ; WINDOW LABEL
or esi, 0x80000000
mov edi, [sc.frame] ; color of frames RRGGBB
int 0x40 int 0x40
; WINDOW LABEL
mov eax, 4 ; function 4 : write text to window
mov ebx, 8*65536+8 ; [x start] *65536 + [y start]
mov ecx, [sc.grab_text] ; font 1 & color ( 0xF0RRGGBB )
or ecx, 0x10000000
mov edx, header ; pointer to text beginning
mov esi, header.len ; text length
int 0x40
mov eax, 4 mov eax, 4
mov ebx, 20*65536+35 mov ebx, 15*65536+10
mov ecx, 0 xor ecx, ecx
mov edx, text mov edx, text
mov esi, text.len mov esi, text.len
int 0x40 int 0x40
@@ -202,7 +186,7 @@ draw_codes:
mov eax,47 mov eax,47
mov ebx,6*65536 mov ebx,6*65536
mov edx,20*65536+60 mov edx,15*65536+35
mov edi,0 mov edi,0
mov esi,0 mov esi,0
newscan: newscan:
@@ -211,7 +195,7 @@ draw_codes:
shl ecx,16 shl ecx,16
add ecx,10 add ecx,10
mov eax,13 ; filled rectangle mov eax,13 ; filled rectangle
mov ebx,20*65536+160 mov ebx,15*65536+160
mov edx,[sc.work] mov edx,[sc.work]
int 0x40 int 0x40
popa popa
@@ -307,17 +291,13 @@ if lang eq ru
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
.len = $ - text .len = $ - text
header: header db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
.len = $ - header
else else
text: text:
db 'READING RAW SCANCODE DATA' db 'READING RAW SCANCODE DATA'
.len = $ - text .len = $ - text
header: header db 'KEYBOARD SCANCODES',0
db 'KEYBOARD SCANCODES'
.len = $ - header
end if end if
ext db 0x0 ext db 0x0