Readme.md « edit - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 698e534b11f6471a5ff04fb1d13f75e0884157fa (plain) (tree)

9a81d746 ^

5ccf2653 ^

9a81d746 ^

5ccf2653 ^

ddf378d4 ^

5ccf2653 ^

ddf378d4 ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-17 22:47:40 +0000

>row: int, col1: int, col2: int { var col/eax: int <- copy col1 move-cursor screen, row, col { compare col, col2 break-if->= print-code-point screen, 0x2500 col <- increment loop } } fn draw-vertical-line screen: (addr screen), row1: int, row2: int, col: int { var row/eax: int <- copy row1 { compare row, row2 break-if->= move-cursor screen, row, col print-code-point screen, 0x2502 row <- increment loop } } fn draw-top-left-corner screen: (addr screen), row: int, col: int { move-cursor screen, row, col print-code-point screen, 0x250c } fn draw-top-right-corner screen: (addr screen), row: int, col: int { move-cursor screen, row, col print-code-point screen, 0x2510 } fn draw-bottom-left-corner screen: (addr screen), row: int, col: int { move-cursor screen, row, col print-code-point screen, 0x2514 } fn draw-bottom-right-corner screen: (addr screen), row: int, col: int { move-cursor screen, row, col print-code-point screen, 0x2518 } # erase parts of screen the slow way fn clear-rect screen: (addr screen), row1: int, col1: int, row2: int, col2: int { var i/eax: int <- copy row1 { compare i, row2 break-if-> var j/ecx: int <- copy col1 move-cursor screen, i, j { compare j, col2 break-if-> print-grapheme screen 0x20/space j <- increment loop } i <- increment loop } } fn clear-rect2 screen: (addr screen), row1: int, col1: int, w: int, h: int { var i/eax: int <- copy 0 var curr-row/esi: int <- copy row1 { compare i, w break-if->= move-cursor screen, curr-row, col1 var j/ecx: int <- copy 0 { compare j, h break-if->= print-grapheme screen 0x20/space j <- increment loop } i <- increment curr-row <- increment loop } }