version 1.3, 1994/05/03 15:24:12
|
version 1.4, 1994/05/05 15:46:46
|
Line 466 Create ??? ," ???"
|
Line 466 Create ??? ," ???"
|
|
|
\ direct threading is implementation dependent |
\ direct threading is implementation dependent |
|
|
: Create Header reveal [ :dovar ] ALiteral cfa, ; |
: Create Header reveal [ :dovar ] Literal cfa, ; |
|
|
\ DOES> 17mar93py |
\ DOES> 17mar93py |
|
|
Line 483 Create ??? ," ???"
|
Line 483 Create ??? ," ???"
|
: User Variable ; |
: User Variable ; |
: AUser AVariable ; |
: AUser AVariable ; |
|
|
: (Constant) Header reveal [ :docon ] ALiteral cfa, ; |
: (Constant) Header reveal [ :docon ] Literal cfa, ; |
: Constant (Constant) , ; |
: Constant (Constant) , ; |
: AConstant (Constant) A, ; |
: AConstant (Constant) A, ; |
: 2Constant ( w1 w2 "name" -- ) \ double |
: 2Constant ( w1 w2 "name" -- ) \ double |
Line 511 Create ??? ," ???"
|
Line 511 Create ??? ," ???"
|
|
|
: EXIT ( -- ) postpone ;s ; immediate |
: EXIT ( -- ) postpone ;s ; immediate |
|
|
: : ( -- colon-sys ) Header [ :docol ] ALiteral cfa, 0 ] ; |
: : ( -- colon-sys ) Header [ :docol ] Literal cfa, 0 ] ; |
: ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; |
: ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; |
immediate restrict |
immediate restrict |
: :noname ( -- xt colon-sys ) here [ ' : @ ] ALiteral cfa, 0 ] ; |
: :noname ( -- xt colon-sys ) here [ :docol ] Literal cfa, 0 ] ; |
|
|
\ Search list handling 23feb93py |
\ Search list handling 23feb93py |
|
|
Line 794 Variable argc
|
Line 794 Variable argc
|
." ANS FORTH-93 (c) 1993 by the ANS FORTH-93 Team" cr quit ; |
." ANS FORTH-93 (c) 1993 by the ANS FORTH-93 Team" cr quit ; |
|
|
: boot ( **env **argv argc -- ) |
: boot ( **env **argv argc -- ) |
argc ! argv ! env ! |
argc ! argv ! env ! main-task up! |
sp@ dup s0 ! $10 + >tib ! rp@ r0 ! fp@ f0 ! cold ; |
sp@ dup s0 ! $10 + >tib ! rp@ r0 ! fp@ f0 ! cold ; |
|
|
: bye cr 0 (bye) ; |
: bye cr 0 (bye) ; |