WebSVN – Kolibri OS – Diff – /programs/develop/keyascii/trunk/keyascii.asm


;   Author: M. Lisovin
;   Compile with FASM for Menuet
;
 
use32
 
               org    0x0
 
               db     'MENUET01'              ; 8 byte id
               dd     0x01                    ; header version
               dd     START                   ; start of code
               dd     I_END                   ; size of image
               dd     0x1000                  ; memory for app
               dd     0x1000                  ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon
 
include 'lang.inc'
include '..\..\..\macros.inc'
 
START:                          ; start of execution
  red: 
     call draw_window
 
still:
 
    mov  eax,10                 ; wait here for event
    mcall
 
    cmp  eax,1                  ; redraw request ?
    je   red
    cmp  eax,2                  ; key in buffer ?
    je   key
    cmp  eax,3                  ; button in buffer ?
    je   button
 
    jmp  still
 
  key:                          ; key
    mov  eax,2                  ; just read it and ignore
    mcall
    mov  [keyid],ah
    call draw_window
    jmp  still
 
  button:                       ; button
    mov  eax,17                 ; get id
    mcall
 
    cmp  ah,1                   ; button id=1 ?
    jne  noclose
 
    or   eax,-1                 ; close this program
    mcall
  noclose:
 
    jmp  still
 
 
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,1                     ; 1, start of draw
    mcall
 
                                   ; DRAW WINDOW
    mov  eax,0                     ; function 0 : define and draw window
    mov  ebx,100*65536+270         ; [x start] *65536 + [x size]
    mov  ecx,100*65536+80          ; [y start] *65536 + [y size]
    mov  edx,0x34ffffff            ; color of work area RRGGBB,8->color gl
    mov  edi,title
    mcall
 
    mov  eax,4                     ; function 4 : write text to window
    xor  ecx,ecx
    mov  esi,4
    mov  ebx,8*65536+8
    mov  edx,tdec
    mcall
    add  ebx,23
    mov  edx,thex
    mcall
 
    mov  ecx,[keyid]
    mov  eax,47
    mov  ebx,3*65536
    mov  edx,40*65536+8
    mov  esi,0x224466
    mcall
    add  edx,23
    mov  bh,1
    mcall
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    mcall
 
    ret
 
 
; DATA AREA
 
 tdec:  db 'DEC:'
 thex:  db 'HEX:'
 title db 'KEYBOARD ASCIICODES-PRESS ANY KEY',0
 keyid: db  0
I_END:

Rev 485	Rev 551
1	; Author: M. Lisovin	1	; Author: M. Lisovin
2	; Compile with FASM for Menuet	2	; Compile with FASM for Menuet
3	;	3	;
4		4
5	use32	5	use32
6		6
7	org 0x0	7	org 0x0
8		8
9	db 'MENUET01' ; 8 byte id	9	db 'MENUET01' ; 8 byte id
10	dd 0x01 ; header version	10	dd 0x01 ; header version
11	dd START ; start of code	11	dd START ; start of code
12	dd I_END ; size of image	12	dd I_END ; size of image
13	dd 0x1000 ; memory for app	13	dd 0x1000 ; memory for app
14	dd 0x1000 ; esp	14	dd 0x1000 ; esp
15	dd 0x0 , 0x0 ; I_Param , I_Icon	15	dd 0x0 , 0x0 ; I_Param , I_Icon
16		16
17	include 'lang.inc'	17	include 'lang.inc'
18	include '..\..\..\macros.inc'	18	include '..\..\..\macros.inc'
19		19
20	START: ; start of execution	20	START: ; start of execution
21	red:	21	red:
22	call draw_window	22	call draw_window
23		23
24	still:	24	still:
25		25
26	mov eax,10 ; wait here for event	26	mov eax,10 ; wait here for event
27	mcall	27	mcall
28		28
29	cmp eax,1 ; redraw request ?	29	cmp eax,1 ; redraw request ?
30	je red	30	je red
31	cmp eax,2 ; key in buffer ?	31	cmp eax,2 ; key in buffer ?
32	je key	32	je key
33	cmp eax,3 ; button in buffer ?	33	cmp eax,3 ; button in buffer ?
34	je button	34	je button
35		35
36	jmp still	36	jmp still
37		37
38	key: ; key	38	key: ; key
39	mov eax,2 ; just read it and ignore	39	mov eax,2 ; just read it and ignore
40	mcall	40	mcall
41	mov [keyid],ah	41	mov [keyid],ah
42	call draw_window	42	call draw_window
43	jmp still	43	jmp still
44		44
45	button: ; button	45	button: ; button
46	mov eax,17 ; get id	46	mov eax,17 ; get id
47	mcall	47	mcall
48		48
49	cmp ah,1 ; button id=1 ?	49	cmp ah,1 ; button id=1 ?
50	jne noclose	50	jne noclose
51		51
52	or eax,-1 ; close this program	52	or eax,-1 ; close this program
53	mcall	53	mcall
54	noclose:	54	noclose:
55		55
56	jmp still	56	jmp still
57		57
58		58
59		59
60		60
61	; *********************************************	61	; *********************************************
62	; ***** WINDOW DEFINITIONS AND DRAW ******	62	; ***** WINDOW DEFINITIONS AND DRAW ******
63	; *********************************************	63	; *********************************************
64		64
65		65
66	draw_window:	66	draw_window:
67		67
68		68
69	mov eax,12 ; function 12:tell os about windowdraw	69	mov eax,12 ; function 12:tell os about windowdraw
70	mov ebx,1 ; 1, start of draw	70	mov ebx,1 ; 1, start of draw
71	mcall	71	mcall
72		72
73	; DRAW WINDOW	73	; DRAW WINDOW
74	mov eax,0 ; function 0 : define and draw window	74	mov eax,0 ; function 0 : define and draw window
75	mov ebx,10065536+270 ; [x start] 65536 + [x size]	75	mov ebx,10065536+270 ; [x start] 65536 + [x size]
76	mov ecx,10065536+80 ; [y start] 65536 + [y size]	76	mov ecx,10065536+80 ; [y start] 65536 + [y size]
77	mov edx,0x33ffffff ; color of work area RRGGBB,8->color gl	77	mov edx,0x34ffffff ; color of work area RRGGBB,8->color gl
78	mov edi,title	78	mov edi,title
79	mcall	79	mcall
80		80
81	mov eax,4 ; function 4 : write text to window	81	mov eax,4 ; function 4 : write text to window
82	xor ecx,ecx	82	xor ecx,ecx
83	mov esi,4	83	mov esi,4
84	mov ebx,8*65536+8	84	mov ebx,8*65536+8
85	mov edx,tdec	85	mov edx,tdec
86	mcall	86	mcall
87	add ebx,23	87	add ebx,23
88	mov edx,thex	88	mov edx,thex
89	mcall	89	mcall
90		90
91	mov ecx,[keyid]	91	mov ecx,[keyid]
92	mov eax,47	92	mov eax,47
93	mov ebx,3*65536	93	mov ebx,3*65536
94	mov edx,40*65536+8	94	mov edx,40*65536+8
95	mov esi,0x224466	95	mov esi,0x224466
96	mcall	96	mcall
97	add edx,23	97	add edx,23
98	mov bh,1	98	mov bh,1
99	mcall	99	mcall
100		100
101	mov eax,12 ; function 12:tell os about windowdraw	101	mov eax,12 ; function 12:tell os about windowdraw
102	mov ebx,2 ; 2, end of draw	102	mov ebx,2 ; 2, end of draw
103	mcall	103	mcall
104		104
105	ret	105	ret
106		106
107		107
108	; DATA AREA	108	; DATA AREA
109		109
110	tdec: db 'DEC:'	110	tdec: db 'DEC:'
111	thex: db 'HEX:'	111	thex: db 'HEX:'
112	title db 'KEYBOARD ASCIICODES-PRESS ANY KEY',0	112	title db 'KEYBOARD ASCIICODES-PRESS ANY KEY',0
113	keyid: db 0	113	keyid: db 0
114	I_END:	114	I_END:

Subversion Repositories Kolibri OS

(root)/programs/develop/keyascii/trunk/keyascii.asm – Rev 485 → 551