[openfirmware] r1136 - cpu/x86/pc

svn at openfirmware.info svn at openfirmware.info
Thu Apr 2 20:47:36 CEST 2009


Author: wmb
Date: 2009-04-02 20:47:36 +0200 (Thu, 02 Apr 2009)
New Revision: 1136

Added:
   cpu/x86/pc/egareport.fth
Modified:
   cpu/x86/pc/boot.fth
Log:
x86 - factored EGA early-startup report code into a separate file.



Modified: cpu/x86/pc/boot.fth
===================================================================
--- cpu/x86/pc/boot.fth	2009-04-02 18:43:45 UTC (rev 1135)
+++ cpu/x86/pc/boot.fth	2009-04-02 18:47:36 UTC (rev 1136)
@@ -103,8 +103,10 @@
    h# 20 report
    " dx pop   cx pop   bx pop   ax pop" eval
 ;
+fload ${BP}/cpu/x86/pc/egareport.fth
 [else]
 : report  ( char -- )  drop  ;
+: v-report  ( char -- )  drop  ;
 : mdot  ( reg -- )  drop  ;
 [then]
 

Added: cpu/x86/pc/egareport.fth
===================================================================
--- cpu/x86/pc/egareport.fth	                        (rev 0)
+++ cpu/x86/pc/egareport.fth	2009-04-02 18:47:36 UTC (rev 1136)
@@ -0,0 +1,8 @@
+: v-report  ( char -- )
+   " # al mov  al h# b8000 #) mov  h# 1d # al mov  al h# b8001 #) mov" evaluate
+;
+: vr-report  ( char -- )  \ Real mode version
+   " ds push  h# b000 # push ds pop" evaluate   
+   " # al mov  al h# 8000 #) mov   h# 1d # al mov  al h# 8001 #) mov"  evaluate
+   " ds pop" evaluate
+;




More information about the openfirmware mailing list