allow drawing all pixels

So far we aren't running out of memory. Might as well loosen our belts.

1 files changed, 2 insertions, 3 deletions

diff --git a/500fake-screen.mu b/500fake-screen.mu
index fce0dc5d..3e74a5bd 100644
--- a/500fake-screen.mu
+++ b/500fake-screen.mu
@@ -52,10 +52,9 @@ fn initialize-screen _screen: (addr screen), width: int, height: int {
     tmp <- multiply width
     populate data-addr, tmp
   }
-  # allocate space for 16 pixels per 16x8 character. So one column of pixels
-  # per character.
   var pixels-ah/ecx: (addr handle stream pixel) <- get screen, pixels
-  tmp <- shift-left 4
+  tmp <- shift-left 3/log2-font-width
+  tmp <- shift-left 4/log2-font-height
   populate-stream pixels-ah, tmp
   # screen->cursor-x = 0
   dest <- get screen, cursor-x