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 +;