[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