gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.3, 1997/07/06 13:40:50	version 1.6, 1998/12/08 22:03:15
Line 1	Line 1
\ VARS.FS Kernal variables	\ VARS.FS Kernal variables

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 55 Create main-task 100 cells allot	Line 55 Create main-task 100 cells allot
main-task	main-task
UNLOCK tup ! LOCK	UNLOCK tup ! LOCK

Variable udp \ used by dovar:, must be variable	Variable udp

AUser next-task main-task next-task !	AUser next-task main-task next-task !
AUser prev-task main-task prev-task !	AUser prev-task main-task prev-task !
Line 63 AUser save-task 0 save-task !	Line 63 AUser save-task 0 save-task !
AUser sp0 \ used by douser:, must be user	AUser sp0 \ used by douser:, must be user
' sp0 Alias s0	' sp0 Alias s0
AUser rp0 ' rp0 Alias r0	AUser rp0 ' rp0 Alias r0
AUser fp0 ' fp0 Alias f0	AUser fp0 \ no f0, because this leads to unexpected results
AUser lp0 ' lp0 Alias l0	AUser lp0 ' lp0 Alias l0
AUser handler \ pointer to last throw frame	AUser handler \ pointer to last throw frame
\ AUser output	\ AUser output