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
|
