[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.53,1.54

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7196

Modified Files:
	fkernel.f 
Log Message:
Rod: need GETROWOFF for printing in DC.f

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** fkernel.f	23 Aug 2008 19:13:32 -0000	1.53
--- fkernel.f	25 Aug 2008 18:09:09 -0000	1.54
***************
*** 2157,2161 ****
  DEFER GET-CURSOR                                                  ' K_NOOP1 IS GET-CURSOR
  \ DEFER SETROWOFF                                                   ' DROP    IS SETROWOFF
! \ DEFER GETROWOFF                                                   ' K_NOOP1 IS GETROWOFF
  \ DEFER GETMAXCOLROW                                                ' K_NOOP2 IS GETMAXCOLROW
  \ DEFER SETMAXCOLROW                                                ' 2DROP   IS SETMAXCOLROW
--- 2157,2161 ----
  DEFER GET-CURSOR                                                  ' K_NOOP1 IS GET-CURSOR
  \ DEFER SETROWOFF                                                   ' DROP    IS SETROWOFF
! DEFER GETROWOFF    ( -- n ) ( first visible row in new console)   ' K_NOOP1 IS GETROWOFF
  \ DEFER GETMAXCOLROW                                                ' K_NOOP2 IS GETMAXCOLROW
  \ DEFER SETMAXCOLROW                                                ' 2DROP   IS SETMAXCOLROW