From f2f0b3d5a4aaad4928141b41d6d2980565a20280 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 20 Oct 1992 15:34:30 +0000 Subject: [PATCH] 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. --- v7/src/edwin/bios.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.25.1