# Demo of mouse support.
#
# To build a disk image:
# ./translate ex10.mu # emits disk.img
# To run:
# qemu-system-i386 disk.img
# Or:
# bochs -f bochsrc # bochsrc loads disk.img
fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
#? var x/esi: int <- copy 0x200
#? var y/edi: int <- copy 0x180
#? render-grid x, y
$main:event-loop: {
# read deltas from mouse
var dx/eax: int <- copy 0
var dy/ecx: int <- copy 0
dx, dy <- read-mouse-event
# loop if deltas are both 0
{
compare dx, 0
break-if-!=
compare dy, 0
break-if-!=
loop $main:event-loop
}
# render unclamped deltas
#? render-grid x, y
draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen screen, dx, 7/fg, 0/bg
draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, " ", 7/fg, 0/bg
draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen screen, dy, 7/fg, 0/bg
move-cursor-to-left-margin-of-next-line screen
#? {
#? var dummy1/eax: int <- copy 0
#? var dummy2/ecx: int <- copy 0
#? dummy1, dummy2 <- draw-text-wrapping-right-then-down-over-full-screen screen, " ", 0/x, 0x10/y, 0x31/fg, 0/bg
#? }
#? {
#? var ephemeral-dx/eax: int <- copy dx
#? var dummy/ecx: int <- copy 0
#? ephemeral-dx, dummy <- draw-int32-decimal-wrapping-right-then-down-over-full-screen screen, ephemeral-dx, 0/x, 0x10/y, 0x31/fg, 0/bg
#? }
#? {
#? var dummy/eax: int <- copy 0
#? var ephemeral-dy/ecx: int <- copy dy
#? dummy, ephemeral-dy <- draw-int32-decimal-wrapping-right-then-down-over-full-screen screen, ephemeral-dy, 5/x, 0x10/y, 0x31/fg, 0/bg
#? }
#? # clamp deltas
#? $clamp-dx: {
#? compare dx, -0xa
#? {
#? break-if->
#? dx <- copy -0xa
#? break $clamp-dx
#? }
#? compare dx, 0xa
#? {
#? break-if-<
#? dx <- copy 0xa
#? break $clamp-dx
#? }
#? dx <- copy 0
#? }
#? $clamp-dy: {
#? compare dy, -0xa
#? {
#? break-if->
#? dy <- copy -0xa
#? break $clamp-dy
#? }
#? compare dy, 0xa
#? {
#? break-if-<
#? dy <- copy 0xa
#? break $clamp-dy
#? }
#? dy <- copy 0
#? }
#? # render clamped deltas
#? {
#? var dummy1/eax: int <- copy 0
#? var dummy2/ecx: int <- copy 0
#? dummy1, dummy2 <- draw-text-wrapping-right-then-down-over-full-screen screen, " ", 0/x, 0x20/y, 0x31/fg, 0/bg
#? }
#? {
#? var save-dx/eax: int <- copy dx
#? var dummy/ecx: int <- copy 0
#? save-dx, dummy <- draw-int32-decimal-wrapping-right-then-down-over-full-screen screen, save-dx, 0/x, 0x20/y, 0x31/fg, 0/bg
#? }
#? {
#? var dummy/eax: int <- copy 0
#? var save-dy/ecx: int <- copy dy
#? dummy, save-dy <- draw-int32-decimal-wrapping-right-then-down-over-full-screen screen, save-dy, 5/x, 0x20/y, 0x31/fg, 0/bg
#? }
#? # loop if deltas are both 0
#? {
#? compare dx, 0
#? break-if-!=
#? compare dy, 0
#? break-if-!=
#? loop $main:event-loop
#? }
#? # accumulate deltas and clamp result within screen bounds
#? x <- add dx
#? compare x, 0
#? {
#? break-if->=
#? x <- copy 0
#? }
#? compare x, 0x400
#? {
#? break-if-<
#? x <- copy 0x3ff
#? }
#? y <- subtract dy # mouse y coordinates are reverse compared to screen
#? compare y, 0
#? {
#? break-if->=
#? y <- copy 0
#? }
#? compare y, 0x300
#? {
#? break-if-<
#? y <- copy 0x2ff
#? }
loop
}
}
#? fn render-grid curr-x: int, curr-y: int {
#? and-with curr-x, 0xfffffffc
#? and-with curr-y, 0xfffffffc
#? var y/eax: int <- copy 0
#? {
#? compare y, 0x300/screen-height=768
#? break-if->=
#? var x/edx: int <- copy 0
#? {
#? compare x, 0x400/screen-width=1024
#? break-if->=
#? var color/ecx: int <- copy 0
#? # set color if either x or y is divisible by 4
#? var tmp/ebx: int <- copy y
#? tmp <- and 3
#? compare tmp, 0
#? {
#? break-if-!=
#? color <- copy 3
#? }
#? tmp <- copy x
#? tmp <- and 3
#? compare tmp, 0
#? {
#? break-if-!=
#? color <- copy 3
#? }
#? # highlight color if x and y match curr-x and curr-y (quantized)
#? {
#? var xq/edx: int <- copy x
#? xq <- and 0xfffffffc
#? var yq/eax: int <- copy y
#? yq <- and 0xfffffffc
#? compare xq, curr-x
#? break-if-!=
#? compare yq, curr-y
#? break-if-!=
#? color <- copy 0xc
#? }
#? pixel-on-real-screen x, y, color
#? x <- increment
#? loop
#? }
#? y <- increment
#? loop
#? }
#? }