version 1.65, 2000/11/12 18:14:09
|
version 1.67, 2000/12/13 10:15:26
|
Line 74
|
Line 74
|
\ xt.* XT |
\ xt.* XT |
\ wid.* WID |
\ wid.* WID |
\ f83name.* F83Name * |
\ f83name.* F83Name * |
|
|
|
\E get-current prefixes set-current |
|
\E |
|
\E s" Bool" single data-stack type-prefix f |
|
\E s" Char" single data-stack type-prefix c |
|
\E s" Cell" single data-stack type-prefix n |
|
\E s" Cell" single data-stack type-prefix w |
|
\E s" UCell" single data-stack type-prefix u |
|
\E s" DCell" double data-stack type-prefix d |
|
\E s" UDCell" double data-stack type-prefix ud |
|
\E s" Float" single fp-stack type-prefix r |
|
\E s" Cell *" single data-stack type-prefix a_ |
|
\E s" Char *" single data-stack type-prefix c_ |
|
\E s" Float *" single data-stack type-prefix f_ |
|
\E s" DFloat *" single data-stack type-prefix df_ |
|
\E s" SFloat *" single data-stack type-prefix sf_ |
|
\E s" Xt" single data-stack type-prefix xt |
|
\E s" WID" single data-stack type-prefix wid |
|
\E s" struct F83Name *" single data-stack type-prefix f83name |
|
\E |
|
\E return-stack stack-prefix R: |
|
\E inst-stream stack-prefix # |
|
\E |
|
\E set-current |
|
|
\ |
\ |
\ |
\ |
\ |
\ |
Line 150 SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST
|
Line 175 SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST
|
define(condbranch, |
define(condbranch, |
$1 $2 |
$1 $2 |
$3 SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST)); |
$3 SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST)); |
|
TAIL; |
} |
} |
else |
else |
INC_IP(1); |
INC_IP(1); |
Line 160 $4
|
Line 186 $4
|
$1-lp+!# $2_lp_plus_store_number |
$1-lp+!# $2_lp_plus_store_number |
$3 lp += (Cell)(IP[1]); |
$3 lp += (Cell)(IP[1]); |
SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST)); |
SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST)); |
|
TAIL; |
} |
} |
else |
else |
INC_IP(2); |
INC_IP(2); |
Line 169 else
|
Line 196 else
|
|
|
condbranch(?branch,( f -- ) f83 question_branch, |
condbranch(?branch,( f -- ) f83 question_branch, |
if (f==0) { |
if (f==0) { |
IF_spTOS(spTOS = sp[0]); |
|
,: |
,: |
0= dup \ !f !f |
0= dup \ !f !f |
r> dup @ \ !f !f IP branchoffset |
r> dup @ \ !f !f IP branchoffset |