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 9fad4722696cace5ca8addcf4f2da51d64eb1990..767a4b87e1c6c9dad6286946be46a135c467816a 100644 (file)
--- 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