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

Small extension to 86duino GPIO Demo

Browse Source 
git-svn-id: svn://kolibrios.org@7295 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
hidnplayr 2018-07-01 10:38:31 +00:00
parent d00e5c3855
commit 077316eb68
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
programs/demos/gpio/gpio.asm
View File

@ -67,14 +67,14 @@ key: ; Keypress event handler
cmp ah, 'q' cmp ah, 'q'
jne @f jne @f
call read_gpio0 call read_gpio0
or al, 1 ; Set bit 0 or al, 1 shl 0 ; Set bit 0
call write_gpio0 call write_gpio0
jmp event_wait jmp event_wait
@@: @@:
cmp ah, 'w' cmp ah, 'w'
jne @f jne @f
call read_gpio0 call read_gpio0
and al, not 1 ; Clear bit 0 and al, not (1 shl 0) ; Clear bit 0
call write_gpio0 call write_gpio0
jmp event_wait jmp event_wait
@@: @@:
@ -84,16 +84,30 @@ key: ; Keypress event handler
mov ecx, eax mov ecx, eax
mcall 47, 0x00040100,,25 shl 16 + 25, 0x40000000, 0x00ffffff ; 4 digits hex number in ecx mcall 47, 0x00040100,,25 shl 16 + 25, 0x40000000, 0x00ffffff ; 4 digits hex number in ecx
jmp event_wait jmp event_wait
@@:
cmp ah, 'a'
jne @f
call read_gpio0
or al, 1 shl 2 ; Set bit 2
call write_gpio0
jmp event_wait
@@:
cmp ah, 's'
jne @f
call read_gpio0
and al, not (1 shl 2) ; Clear bit 2
call write_gpio0
jmp event_wait
@@: @@:
jmp event_wait ; Just read the key, ignore it and jump to event_wait. jmp event_wait ; Just read the key, ignore it and jump to event_wait.
button: ; Buttonpress event handler button: ; Buttonpress event handler
mov eax,17 ; The button number defined in window_draw mov eax, 17 ; The button number defined in window_draw
mcall ; is returned to ah. mcall ; is returned to ah.
cmp ah,1 ; button id=1 ? cmp ah, 1 ; button id=1 ?
jne noclose jne noclose
mov eax,-1 ; Function -1 : close this program mov eax, -1 ; Function -1 : close this program
mcall mcall
noclose: noclose: