[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.33,1.34

[Dirk B. <db...@us...>]

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

Modified Files:
	fkernel.f 
Log Message:
- IN-PREVIOUS added. It restores the data area after a call to IN-APPLICATION IN-SYSTEM or IN-CODE.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** fkernel.f	4 Aug 2006 09:48:43 -0000	1.33
--- fkernel.f	13 Aug 2006 07:58:59 -0000	1.34
***************
*** 3043,3047 ****
  CREATE CDP  0 , 0 , 0 , DP-LINK LINK, ," CODE" \ code
  
! ADP VALUE DP                     \ data pointer defaults to app space
  
  \ ----------------- Switching dictionary words ---------------
--- 3043,3048 ----
  CREATE CDP  0 , 0 , 0 , DP-LINK LINK, ," CODE" \ code
  
! ADP VALUE  DP                    \ data pointer defaults to app space
! ADP VALUE ODP                    \ data pointer defaults to app space
  
  \ ----------------- Switching dictionary words ---------------
***************
*** 3052,3057 ****
  \
  \ IN-xxxx is used in open code to switch HERE ALLOT , W, etc to point
! \ to the specific data area; no save is made of the current DP, so
! \ it has to be reset back explicitly.
  \
  \ >XXXX and XXXX> move to and from a specific data area, and save the
--- 3053,3058 ----
  \
  \ IN-xxxx is used in open code to switch HERE ALLOT , W, etc to point
! \ to the specific data area; the current DP is saved in ODP, so
! \ it can be reseted using IN-PREVIOUS.
  \
  \ >XXXX and XXXX> move to and from a specific data area, and save the
***************
*** 3060,3066 ****
  \
  
! : IN-APPLICATION ( -- ) ADP TO DP ;   \ set the correct pointer
! : IN-SYSTEM      ( -- ) SDP TO DP ;
! : IN-CODE        ( -- ) CDP TO DP ;
  
  : >DP           ( dp -- ) R>DROP DP R> 2>R TO DP ; \ save the current DP, set new
--- 3061,3079 ----
  \
  
! : IN-APPLICATION ( -- )         \ w32f
! \ *G Activate the application data area.
!         DP TO ODP ADP TO DP ;
! 
! : IN-SYSTEM      ( -- )         \ w32f
! \ *G Activate the system data area.
!         DP TO ODP SDP TO DP ;
! 
! : IN-CODE        ( -- )         \ w32f
! \ *G Activate the code data area.
!         DP TO ODP CDP TO DP ;
! 
! : IN-PREVIOUS    ( -- )         \ w32f
! \ *G Restore the data area after a call to IN-APPLICATION IN-SYSTEM or IN-CODE.
!         ODP TO DP ;
  
  : >DP           ( dp -- ) R>DROP DP R> 2>R TO DP ; \ save the current DP, set new