Revert "allow drawing all pixels"

It causes us to run out of memory during tests.

1 files changed, 3 insertions, 2 deletions

diff --git a/500fake-screen.mu b/500fake-screen.mu
index 3e74a5bd..fce0dc5d 100644
--- a/500fake-screen.mu
+++ b/500fake-screen.mu
@@ -52,9 +52,10 @@ 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 3/log2-font-width
-  tmp <- shift-left 4/log2-font-height
+  tmp <- shift-left 4
   populate-stream pixels-ah, tmp
   # screen->cursor-x = 0
   dest <- get screen, cursor-x