Annotation of gforth/vars.fs, revision 1.1
1.1 ! anton 1: \ VARS.FS Kernal variables
! 2:
! 3: hex \ everything now hex! 11may93jaw
! 4:
! 5: \ important constants 17dec92py
! 6:
! 7: \ dpANS6 (sect 3.1.3.1) says
! 8: \ "a true flag ... [is] a single-cell value with all bits set"
! 9: \ better definition: 0 0= constant true ( no dependence on 2's compl)
! 10: -1 Constant true \ see starts looking for
! 11: \ primitives after this word!
! 12: 0 Constant false
! 13:
! 14: 1 cells Constant cell
! 15:
! 16: 20 Constant bl
! 17:
! 18: FF Constant /line
! 19:
! 20: \ that's enough so long
! 21:
! 22: \ User variables 13feb93py
! 23:
! 24: \ doesn't produce real user variables now, but normal variables
! 25:
! 26: AUser s0
! 27: AUser r0
! 28: AUser f0
! 29: AUser handler
! 30: \ AUser output
! 31: \ AUser input
! 32:
! 33: AUser errorhandler
! 34:
! 35: AUser "error 0 "error !
! 36:
! 37: User >tib
! 38: User #tib
! 39: User >in 0 >in !
! 40: User blk 0 blk !
! 41: User loadfile 0 loadfile !
! 42:
! 43: User loadline \ number of the currently interpreted
! 44: \ (in TIB) line if the interpretation
! 45: \ is in a textfile
! 46: \ the first line is 1
! 47:
! 48: 2User linestart \ starting file postition of
! 49: \ the current interpreted line (in TIB)
! 50:
! 51: User base $A base !
! 52: User dpl -1 dpl !
! 53:
! 54: User state 0 state !
! 55: AUser dp
! 56: AUser LastCFA
! 57: AUser Last
! 58:
! 59:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>