version 1.110, 2002/12/28 17:18:27
|
version 1.111, 2002/12/30 22:41:07
|
Line 2537 SUPER_CONTINUE;
|
Line 2537 SUPER_CONTINUE;
|
acondbranch(a?branch,f --,f83 aquestion_branch, |
acondbranch(a?branch,f --,f83 aquestion_branch, |
,if (f==0) { |
,if (f==0) { |
,: |
,: |
0= dup \ !f !f \ !! still uses relative addresses |
0= dup 0= \ !f f |
r> dup @ \ !f !f IP branchoffset |
r> tuck cell+ \ !f branchoffset f IP+ |
rot and + \ !f IP|IP+branchoffset |
and -rot @ and or \ f&IP+|!f&branch |
swap 0= cell and + \ IP'' |
|
>r ;) |
>r ;) |
|
|
\ we don't need an lp_plus_store version of the ?dup-stuff, because it |
\ we don't need an lp_plus_store version of the ?dup-stuff, because it |