From 8e89dd5a787fcc4c161c491a40cf7ae690c64254 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 25 Apr 2021 17:55:17 -0700 Subject: devote 2/3rds of screen to definitions --- shell/main.mu | 4 ++-- shell/sandbox.mu | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'shell') diff --git a/shell/main.mu b/shell/main.mu index 01a46e8a..e89a0906 100644 --- a/shell/main.mu +++ b/shell/main.mu @@ -10,8 +10,8 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) initialize-sandbox sandbox, 1/with-screen load-state data-disk, sandbox, globals $main:loop: { - render-globals screen, globals, 0/x, 0/y, 0x40/xmax, 0x2f/screen-height-without-menu - render-sandbox screen, sandbox, 0x41/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu + render-globals screen, globals, 0/x, 0/y, 0x55/xmax, 0x2f/screen-height-without-menu + render-sandbox screen, sandbox, 0x56/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu { var key/eax: byte <- read-key keyboard compare key, 0 diff --git a/shell/sandbox.mu b/shell/sandbox.mu index aa8ed819..2fdbab8e 100644 --- a/shell/sandbox.mu +++ b/shell/sandbox.mu @@ -573,7 +573,7 @@ fn edit-sandbox _self: (addr sandbox), key: byte, globals: (addr global-table), { compare tweak-real-screen?, 0/false break-if-= - clear-sandbox-output real-screen, self, 0x41/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu + clear-sandbox-output real-screen, self, 0x56/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu } var screen-cell/eax: (addr handle cell) <- get self, screen-var clear-screen-cell screen-cell -- cgit 1.4.1-2-gfad0