068random.mu « 1.vm « archive - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 3d73356c6167d697834c32cdfb242027cb76fba9 (plain) (tree)

760f683f ^

0c44f591 ^

4a48bedc ^

0c44f591 ^

dd660682 ^

0c44f591 ^

760f683f ^

0c44f591 ^

4a48bedc ^

0c44f591 ^

7a84094a ^

0c44f591 ^

4a48bedc ^

0c44f591 ^

4a48bedc ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-25 17:30:24 +0000

"nv">x, y, 1/live } x <- increment loop } y <- increment loop } } # color a square of size 'side' starting at x*side, y*side fn render-square _x: int, _y: int, color: int { var y/edx: int <- copy _y y <- shift-left 2/log2side var side/ebx: int <- copy 1 side <- shift-left 2/log2side var ymax/ecx: int <- copy y ymax <- add side { compare y, ymax break-if->= { var x/eax: int <- copy _x x <- shift-left 2/log2side var xmax/ecx: int <- copy x xmax <- add side { compare x, xmax break-if->= pixel-on-real-screen x, y, color x <- increment loop } } y <- increment loop } } fn render grid: (addr array boolean) { var y/ecx: int <- copy 0 { compare y, 0xc0/height break-if->= var x/edx: int <- copy 0 { compare x, 0x100/width break-if->= var state/eax: boolean <- state grid, x, y compare state, 0/false { break-if-= render-square x, y, 3/cyan } compare state, 0/false { break-if-!= render-square x, y, 0/black } x <- increment loop } y <- increment loop } } fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) { #? # allocate on the stack #? var grid1-storage: (array boolean 0xc000) # width * height #? var grid1/esi: (addr array boolean) <- address grid1-storage #? var grid2-storage: (array boolean 0xc000) # width * height #? var grid2/edi: (addr array boolean) <- address grid2-storage # allocate on the heap var grid1-storage: (handle array boolean) var grid1-ah/eax: (addr handle array boolean) <- address grid1-storage populate grid1-ah, 0xc000 # width * height var _grid1/eax: (addr array boolean) <- lookup *grid1-ah var grid1/esi: (addr array boolean) <- copy _grid1 var grid2-storage: (handle array boolean) var grid2-ah/eax: (addr handle array boolean) <- address grid2-storage populate grid2-ah, 0xc000 # width * height var _grid2/eax: (addr array boolean) <- lookup *grid2-ah var grid2/edi: (addr array boolean) <- copy _grid2 # initialize grid1 set-state grid1, 0x80, 0x5f, 1/live set-state grid1, 0x81, 0x5f, 1/live set-state grid1, 0x7f, 0x60, 1/live set-state grid1, 0x80, 0x60, 1/live set-state grid1, 0x80, 0x61, 1/live # render grid1 render grid1 { var key/eax: byte <- read-key keyboard compare key, 0 #? loop-if-= # press key to step break-if-!= # press key to quit # comment this out to run under bochs; I'm not sure why there's a newline in the keyboard buffer # iter: grid1 -> grid2 step grid1, grid2 render grid2 # iter: grid2 -> grid1 step grid2, grid1 render grid1 loop } }