Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5274/win32forth/src/kernel
Modified Files:
fkernel.f
Log Message:
gah: Modified WinPause to work w/o the console (needs new KERNEL.EXE to build).
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** fkernel.f 28 Nov 2005 09:25:42 -0000 1.24
--- fkernel.f 13 Feb 2006 14:06:09 -0000 1.25
***************
*** 1909,1915 ****
\ -------------------- User Variables ---------------------------------------
! \ Task based variables are here. Each task has its own local copy of an uninitialised
! \ variable. All other VARIABLEs and VALUEs are global the the entire process, and must
! \ not be changed in a task unless locked or you know what you're doing.
VARIABLE NEXT-USER \ offset of next user variable
--- 1909,1915 ----
\ -------------------- User Variables ---------------------------------------
! \ *P Task based variables are here. Each task has its own local copy of an uninitialised
! \ ** variable. All other VARIABLEs and VALUEs are global the the entire process, and must
! \ ** not be changed in a task unless locked or you know what you're doing.
VARIABLE NEXT-USER \ offset of next user variable
***************
*** 2730,2743 ****
9 offset L>NAME ( lfa -- nfa )
-9 offset N>LINK ( nfa -- lfa )
-5 offset N>CFAPTR ( nfa -- cfa-ptr )
-1 offset N>BFA ( nfa -- bfa )
!
CODE LINK> ( link -- cfa )
mov ebx, 4 [ebx]
next c;
CODE NAME> ( nfa -- cfa )
mov ebx, -5 [ebx]
next c;
--- 2730,2748 ----
9 offset L>NAME ( lfa -- nfa )
+ \ *G Convert link address to name address.
-9 offset N>LINK ( nfa -- lfa )
+ \ *G Convert name address to link address.
-5 offset N>CFAPTR ( nfa -- cfa-ptr )
+ \ *G Convert name address to the address of the CFA pointer address.
-1 offset N>BFA ( nfa -- bfa )
! \ *G Convert neme address to the address of the bit fields.
CODE LINK> ( link -- cfa )
+ \ *G Convert the link address to the CFA (xt).
mov ebx, 4 [ebx]
next c;
CODE NAME> ( nfa -- cfa )
+ \ *G Convert the name address to the CFA (xt).
mov ebx, -5 [ebx]
next c;
***************
*** 4600,4605 ****
\ 07/07/2003 21:10:55 fkernel.f [ 745385 ] Bug in "Find Text in Files" Dialog
! : WINPAUSE ( -- ) \ release control to OS for a moment, pump message loop (in wrapper)
! KEY? DROP ;
--- 4605,4610 ----
\ 07/07/2003 21:10:55 fkernel.f [ 745385 ] Bug in "Find Text in Files" Dialog
! DEFER WINPAUSE ( -- ) \ release control to OS for a moment, pump message loop (in wrapper)
! : (WINPAUSE) KEY? DROP ; ' (WINPAUSE) IS WINPAUSE
|
