These words always output to the debug (serial) port even if video mode is enabled. This makes debugging the video routines much easier when starting QEMU with the -serial stdio option.
Signed-off-by: Mark Cave-Ayland mark.cave-ayland@ilande.co.uk --- openbios-devel/forth/bootstrap/bootstrap.fs | 2 ++ 1 file changed, 2 insertions(+)
diff --git a/openbios-devel/forth/bootstrap/bootstrap.fs b/openbios-devel/forth/bootstrap/bootstrap.fs index 6878449..0668cf7 100644 --- a/openbios-devel/forth/bootstrap/bootstrap.fs +++ b/openbios-devel/forth/bootstrap/bootstrap.fs @@ -660,6 +660,7 @@ defer emit
\ : type 0 do count emit loop drop ;
+: debug-type bounds ?do i c@ (emit) loop ;
\ \ 7.3.4.1 Text Input @@ -863,6 +864,7 @@ variable span 0 span ! \
: cr linefeed emit ; +: debug-cr linefeed (emit) ; : (cr carret emit ; : space bl emit ; : spaces 0 ?do space loop ;