WebSVN – Kolibri OS – Blame – /programs/demos/gpio/gpio.asm

Rev	Author	Line No.	Line
5558	hidnplayr	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	; ;
		3	; 86DUINO GPIO DEMO APPLICATION ;
		4	; ;
		5	; Compile with FASM ;
		6	; ;
		7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		8
		9	format binary as "" ; Binary file format without extension
		10
		11	use32 ; Tell compiler to use 32 bit instructions
		12
		13	org 0x0 ; the base address of code, always 0x0
		14
		15	; The header
		16
		17	db 'MENUET01'
		18	dd 0x01
		19	dd START
		20	dd I_END
		21	dd 0x100000
		22	dd 0x7fff0
		23	dd 0, 0
		24
		25	; The code area
		26
		27	include '../../macros.inc'
		28
		29	START: ; start of execution
		30
		31	mcall 68, 16, drv_name ; load the driver
		32	mov [IOCTL.handle], eax
		33
		34	call draw_window ; draw the window
		35
		36	; After the window is drawn, it's practical to have the main loop.
		37	; Events are distributed from here.
		38
		39	event_wait:
		40	mov eax, 10 ; function 10 : wait until event
		41	mcall ; event type is returned in eax
		42
		43	cmp eax, 1 ; Event redraw request ?
		44	je red ; Expl.: there has been activity on screen and
		45	; parts of the applications has to be redrawn.
		46
		47	cmp eax, 2 ; Event key in buffer ?
		48	je key ; Expl.: User has pressed a key while the
		49	; app is at the top of the window stack.
		50
		51	cmp eax, 3 ; Event button in buffer ?
		52	je button ; Expl.: User has pressed one of the
		53	; applications buttons.
		54
		55	jmp event_wait
		56
		57	; The next section reads the event and processes data.
		58
		59	red: ; Redraw event handler
		60	call draw_window ; We call the window_draw function and
		61	jmp event_wait ; jump back to event_wait
		62
		63	key: ; Keypress event handler
		64	mov eax, 2 ; The key is returned in ah. The key must be
		65	mcall ; read and cleared from the system queue.
		66
		67	cmp ah, 'q'
		68	jne @f
		69	call read_gpio0
		70	or al, 1 ; Set bit 0
		71	call write_gpio0
		72	jmp event_wait
		73	@@:
		74	cmp ah, 'w'
		75	jne @f
		76	call read_gpio0
		77	and al, not 1 ; Clear bit 0
		78	call write_gpio0
		79	jmp event_wait
		80	@@:
6878	hidnplayr	81	cmp ah, 'e'
		82	jne @f
		83	call read_adc0
		84	mov ecx, eax
		85	mcall 47, 0x00040100,,25 shl 16 + 25, 0x40000000, 0x00ffffff ; 4 digits hex number in ecx
		86	jmp event_wait
		87	@@:
5558	hidnplayr	88	jmp event_wait ; Just read the key, ignore it and jump to event_wait.
		89
		90	button: ; Buttonpress event handler
		91	mov eax,17 ; The button number defined in window_draw
		92	mcall ; is returned to ah.
		93
		94	cmp ah,1 ; button id=1 ?
		95	jne noclose
		96	mov eax,-1 ; Function -1 : close this program
		97	mcall
		98
		99	noclose:
		100	jmp event_wait ; This is for ignored events, useful at development
		101
		102	; *********************************************
		103	; **** WINDOW DEFINITIONS AND DRAW ******
		104	; *********************************************
		105	;
		106	; The static window parts are drawn in this function. The window canvas can
		107	; be accessed later from any parts of this code (thread) for displaying
		108	; processes or recorded data, for example.
		109	;
		110	; The static parts must be placed within the fn 12 , ebx = 1 and ebx = 2.
		111
		112	draw_window:
		113	mov eax, 12 ; function 12: tell os about windowdraw
		114	mov ebx, 1 ; 1, start of draw
		115	mcall
		116
		117	mov eax, 0 ; function 0 : define and draw window
		118	mov ebx, 100 * 65536 + 300 ; [x start] *65536 + [x size]
		119	mov ecx, 100 * 65536 + 120 ; [y start] *65536 + [y size]
		120	mov edx, 0x14ffffff ; color of work area RRGGBB
		121	; 0x02000000 = window type 4 (fixed size, skinned window)
		122	mov esi, 0x808899ff ; color of grab bar RRGGBB
		123	; 0x80000000 = color glide
		124	mov edi, title
		125	mcall
		126
		127	mov ebx, 25 * 65536 + 35 ; draw info text with function 4
		128	mov ecx, 0x224466
		129	mov edx, text
		130	mov esi, 40
		131	mov eax, 4
		132
		133	.newline: ; text from the DATA AREA
		134	mcall
		135	add ebx, 10
		136	add edx, 40
		137	cmp byte[edx], 0
		138	jne .newline
		139
		140	mov eax, 12 ; function 12:tell os about windowdraw
		141	mov ebx, 2 ; 2, end of draw
		142	mcall
		143
		144	ret
		145
		146	; Read GPIO0 port to AL register
		147	read_gpio0:
		148	mov [IOCTL.io_code], 1
		149	mcall 68, 17, IOCTL
		150	ret
		151
		152	; Write AL register to GPIO0 port
		153	write_gpio0:
		154	mov [IOCTL.io_code], 2
		155	mov [IOCTL.input], eax
		156	mcall 68, 17, IOCTL
		157	ret
6878	hidnplayr	158
		159	; Read ADC0
		160	read_adc0:
		161	mov [IOCTL.io_code], 3
		162	mcall 68, 17, IOCTL
		163	ret
5558	hidnplayr	164
		165	; *********************************************
		166	; *********** DATA AREA ***************
		167	; *********************************************
		168	;
		169	; Data can be freely mixed with code to any parts of the image.
		170	; Only the header information is required at the beginning of the image.
		171
		172	text db "This is an 86DUINO GPIO demo program "
		173	db " "
6878	hidnplayr	174	db "press q/w to toggle GPIO 0 pin 0 "
		175	db "or e to read ADC0 channel ", 0
5558	hidnplayr	176
		177	title db "86Duino Example application", 0
		178
		179	drv_name db '86DUINO-GPIO', 0
		180
		181	IOCTL:
		182	.handle dd ?
		183	.io_code dd ?
		184	.input dd ?
		185	.inp_size dd ?
		186	.output dd ?
		187	.out_size dd ?
		188
		189	I_END:

Subversion Repositories Kolibri OS

(root)/programs/demos/gpio/gpio.asm – Rev 6878