1 # Test out the video mode by filling in the screen with pixels.
 2 #
 3 # To build a disk image:
 4 #   ./translate ex2.mu             # emits code.img
 5 # To run:
 6 #   qemu-system-i386 code.img
 7 # Or:
 8 #   bochs -f bochsrc               # bochsrc loads code.img
 9 
10 fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
11   var y/eax: int <- copy 0
12   {
13     compare y, 0x300/screen-height=768
14     break-if->=
15     var x/edx: int <- copy 0
16     {
17       compare x, 0x400/screen-width=1024
18       break-if->=
19       var color/ecx: int <- copy x
20       color <- and pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.high