From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 20 Oct 1992 15:34:30 +0000 (+0000)
Subject: Microcode Initialize only sets internal variables, and exit only clears them.
X-Git-Tag: 20090517-FFI~8832
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f2f0b3d5a4aaad4928141b41d6d2980565a20280;p=mit-scheme.git

Microcode Initialize only sets internal variables, and exit only clears them.
Neither does any screen operations.

Change the console driver in Edwin to accomodate the microcode
changes.
---

diff --git a/v7/src/edwin/bios.scm b/v7/src/edwin/bios.scm
index 9fad47226..767a4b87e 100644
--- a/v7/src/edwin/bios.scm
+++ b/v7/src/edwin/bios.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bios.scm,v 1.2 1992/10/17 23:14:22 jinx Exp $
+$Id: bios.scm,v 1.3 1992/10/20 15:34:30 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -116,11 +116,13 @@ MIT in each case. |#
   (bios:initialize!
    (default-attribute "EDWIN_FOREGROUND" 37)	; white foreground
    (default-attribute "EDWIN_BACKGROUND" 40))	; black background
+  (bios:clear-screen!)
+  (bios-move-cursor screen 0 0)
   unspecific)
 
 (define (bios-console-exit! screen)
-  (bios:exit!)
-  (bios-move-cursor screen 0 (fix:-1+ (screen-y-size screen))))
+  (bios-move-cursor screen 0 (fix:-1+ (screen-y-size screen)))
+  (bios:exit!))
 
 (define (bios-console-modeline-event! screen window type)
   screen window type