version 1.45, 1997/02/12 00:25:34
|
version 1.47, 1997/04/10 21:32:08
|
Line 100 also Forth definitions
|
Line 100 also Forth definitions
|
[IFDEF] asm-include asm-include [THEN] |
[IFDEF] asm-include asm-include [THEN] |
|
|
previous |
previous |
|
hex |
|
|
>CROSS |
>CROSS |
|
|
Line 245 VARIABLE VocTemp
|
Line 246 VARIABLE VocTemp
|
: <T get-current VocTemp ! also Ghosts definitions ; |
: <T get-current VocTemp ! also Ghosts definitions ; |
: T> previous VocTemp @ set-current ; |
: T> previous VocTemp @ set-current ; |
|
|
|
hex |
4711 Constant <fwd> 4712 Constant <res> |
4711 Constant <fwd> 4712 Constant <res> |
4713 Constant <imm> 4714 Constant <do:> |
4713 Constant <imm> 4714 Constant <do:> |
|
|
Line 543 ghost over ghost = ghost dr
|
Line 545 ghost over ghost = ghost dr
|
\ generic threading modell |
\ generic threading modell |
: docol, ( -- ) compile :docol T 0 , H ; |
: docol, ( -- ) compile :docol T 0 , H ; |
|
|
: dodoes, ( -- ) compile :doesjump T 0 , H ; |
: dodoes, ( -- ) T cfalign H compile :doesjump T 0 , H ; |
|
|
[IFUNDEF] (code) |
[IFUNDEF] (code) |
Defer (code) |
Defer (code) |
Line 553 Defer (end-code)
|
Line 555 Defer (end-code)
|
>TARGET |
>TARGET |
: Code |
: Code |
(THeader there resolve |
(THeader there resolve |
there 2 T cells H + T a, 0 , H |
[ has-prims 0= [IF] ITC [ELSE] true [THEN] ] [IF] |
|
there 2 T cells H + T a, 0 , H |
|
[THEN] |
depth (code) ; |
depth (code) ; |
|
|
: Code: |
: Code: |
Line 648 Cond: MAXI
|
Line 652 Cond: MAXI
|
docol, depth T ] H ; |
docol, depth T ] H ; |
|
|
: :noname ( -- colon-sys ) |
: :noname ( -- colon-sys ) |
T align H there docol, depth T ] H ; |
T cfalign H there docol, depth T ] H ; |
|
|
Cond: EXIT ( -- ) restrict? compile ;S ;Cond |
Cond: EXIT ( -- ) restrict? compile ;S ;Cond |
|
|
Line 669 Cond: [ restrict? state off ;Cond
|
Line 673 Cond: [ restrict? state off ;Cond
|
|
|
>TARGET |
>TARGET |
Cond: DOES> restrict? |
Cond: DOES> restrict? |
compile (does>) dodoes, tdoes @ ?dup IF @ T here H resolve THEN |
compile (does>) dodoes, tdoes @ ?dup IF @ T here H resolve THEN |
;Cond |
;Cond |
: DOES> dodoes, T here H !does depth T ] H ; |
: DOES> dodoes, T here H !does depth T ] H ; |
|
|
Line 1038 mach-file count included
|
Line 1042 mach-file count included
|
: undef-words ['] defined? IS skip? ; |
: undef-words ['] defined? IS skip? ; |
|
|
: \ postpone \ ; immediate |
: \ postpone \ ; immediate |
|
: \G T-\G ; immediate |
: ( postpone ( ; immediate |
: ( postpone ( ; immediate |
: include bl word count included ; |
: include bl word count included ; |
: .( [char] ) parse type ; |
: .( [char] ) parse type ; |