Return to prim.fs CVS log | Up to [gforth] / gforth / arch / c165 |
version 1.1, 1998/05/02 21:33:51 | version 1.2, 2001/09/16 10:26:42 |
---|---|
Line 93 End-Code | Line 93 End-Code |
Code execute ( xt -- ) \ execute colon definition | Code execute ( xt -- ) \ execute colon definition |
'E dout, | 'E dout, |
rp -] , ip mov, \ store IP on return stack | |
temp1 , tos mov, | temp1 , tos mov, |
tos , sp ]+ mov, | tos , sp ]+ mov, |
Next1, | Next1, |