1 # Demo of mouse support.
 2 #
 3 # To build a disk image:
 4 #   ./translate apps/ex10.mu       # emits code.img
 5 # To run:
 6 #   qemu-system-i386 code.img
 7 #
 8 # Expected output:
 9 #   Values between -256 and +255 as you move the mouse over the window.
10 #   You might need to click on the window once.
11 
12 fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
13   # repeatedly print out mouse driver results if non-zero
14   $main:event-loop: {
15     var dx/eax: int <- copy 0
16     var dy/ecx: int <- copy 0
17     dx, dy <- read-mouse-event
18     {
19       compare dx, 0
20       break-if-!=
21       compare dy, 0
22       break-if-!=
23       loop $main:event-loop
24     }
25     {
26       var dummy1/eax: int <- copy 0
27       var dummy2/ecx: int <- copy 0
28       dummy1, dummy2 <- draw-text-wrapping-right-then-down-over-full-screen screen, "         ", 0/x, 0x10/y, 0x31/fg, 0/bg
29     }
30     {
31       var dummy/ecx: int <- copy 0
32       dx, dummy <- draw-int32-decimal-wrapping-right-then-down-over-full-screen screen, dx, 0/x, 0x10/y, 0x31/fg, 0/bg
33     }
34     {
35       var dummy/eax: int <- copy 0
36       dummy, dy <- draw-int32-decimal-wrapping-right-then-down-over-full-screen screen, dy, 5/x, 0x10/y, 0x31/fg, 0/bg
37     }
38     loop
39   }
40 }