1 # Draw a character using the built-in font (GNU unifont)
 2 #
 3 # To build a disk image:
 4 #   ./translate_mu_baremetal baremetal/ex4.mu     # emits disk.img
 5 # To run:
 6 #   qemu-system-i386 disk.img
 7 # Or:
 8 #   bochs -f baremetal/boot.bochsrc               # boot.bochsrc loads disk.img
 9 #
10 # Expected output: letter 'A' in green near the top-left corner of screen
11 
12 fn main {
13   var g/eax: grapheme <- copy 0x41  # 'A'
14   draw-grapheme 0, g, 2, 1, 0xa  # x of 2 graphemes = 16px from top-left; y of 1 grapheme = 16px down from top-left
15 }