version 1.5, 1998/12/08 22:02:51
|
version 1.8, 2002/12/26 14:09:20
|
Line 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
\ made extra 26jan97jaw |
\ made extra 26jan97jaw |
|
|
Line 66
|
Line 66
|
|
|
create c-extend1 |
create c-extend1 |
' @local# A, ' c-@local# A, |
' @local# A, ' c-@local# A, |
' flit A, ' c-flit A, |
[ifdef] flit ' flit A, ' c-flit A, [then] |
' f@local# A, ' c-f@local# A, |
' f@local# A, ' c-f@local# A, |
' laddr# A, ' c-laddr# A, |
' laddr# A, ' c-laddr# A, |
' lp+!# A, ' c-lp+!# A, |
' lp+!# A, ' c-lp+!# A, |
' ?branch-lp+!# A, ' c-?branch-lp+!# A, |
' a?branch-lp+!# A, ' c-?branch-lp+!# A, |
' branch-lp+!# A, ' c-branch-lp+!# A, |
' abranch-lp+!# A, ' c-branch-lp+!# A, |
' (loop)-lp+!# A, ' c-loop-lp+!# A, |
' a(loop)-lp+!# A, ' c-loop-lp+!# A, |
' (+loop)-lp+!# A, ' c-loop-lp+!# A, |
' a(+loop)-lp+!# A, ' c-loop-lp+!# A, |
' (s+loop)-lp+!# A, ' c-loop-lp+!# A, |
' a(s+loop)-lp+!# A, ' c-loop-lp+!# A, |
' (-loop)-lp+!# A, ' c-loop-lp+!# A, |
' a(-loop)-lp+!# A, ' c-loop-lp+!# A, |
' (next)-lp+!# A, ' c-loop-lp+!# A, |
' a(next)-lp+!# A, ' c-loop-lp+!# A, |
0 , here 0 , |
0 , here 0 , |
|
|
\ extend see-table |
\ extend see-table |