Michael,
so I fired up ff and this is what I can see:

ok<$,ram>
see see
26ea eca0 f00c call  '
26ee eccf f00c call  cr
26f2 df20      rcall (see)
26f4 50ed
26f6 10ee
26f8 e1fc      bnz   26f2
26fa 50ed
26fc 50ed
26fe 0012      return
ok<$,ram>
see drop
0e4c 50ed
0e4e 50ed
0e50 0012      return
ok<$,ram>
see constant
0a64 ecda f00c call  create
0a68 d8e2      rcall cell
0a6a da9f      rcall negate
0a6c ec6c f00e call
0a70 efbd f003 goto  i,
ok<$,ram>

There is "seen" as well, so this is with "seen":
ok<$,ram>
see interpret
16f4 dff3      rcall 'source
16f6 ec6d f006 call  2!
16fa daf5      rcall false
16fc dfe8      rcall >in
16fe deeb      rcall !
1700 da1e      rcall bl
1702 deaf      rcall word
1704 dfef      rcall dup
1706 dd9b      rcall c@
1708 dd31      rcall ?0=
170a e04a      bz 17a0
170c df2b      rcall find
170e dd33      rcall d0=
1710 e033      bz 1778
1712 dc51      rcall 1+
1714 da1b      rcall state
1716 dc9a      rcall 0=
1718 dc29      rcall or
171a dd28      rcall ?0=
171c e013      bz 1744
171e a858
1720 d009      bra 1734
1722 da14      rcall state
1724 dd23      rcall ?0=
1726 e106      bnz 1734
1728 ecf5 f006 call  (s"
172c 4305
172e 4d4f
1730 3f50
1732 d0f4      bra 191c
1734 9c46
1736 ec15 f005 call  execute
173a bc46
173c d7e1      bra 1700
173e 9846
1740 9a46
1742 d7de      bra 1700
1744 9846
1746 dfce      rcall dup
1748 d86a      rcall lit
174a 104c
174c dc8f      rcall =
174e dd0e      rcall ?0=
1750 e002      bz 1756
1752 8846
1754 d008      bra 1766
1756 9a46
1758 dfc5      rcall dup
175a d861      rcall lit
175c 0ee8
175e dc86      rcall =
1760 dd05      rcall ?0=
1762 e006      bz 1770
1764 8a46
1766 d912      rcall cf,
1768 9055
176a b858
176c 8055
176e d7c8      bra 1700
1770 aa58
1772 d7f9      bra 1766
1774 dba6      rcall in,
1776 d7c4      bra 1700
1778 9846
177a 9a46
177c ec26 f007 call  drop
1780 df51      rcall number?
1782 dcf4      rcall ?0=
1784 e006      bz 1792
1786 d9e2      rcall state
1788 dcf1      rcall ?0=
178a e0ba      bz 1700
178c ec35 f002 call  literal
1790 d7b7      bra 1700
1792 d851      rcall dp>
1794 de8e      rcall c...@+
1796 ecea f006 call  type
179a daa5      rcall false
179c d8b1      rcall ?abort?
179e d7b0      bra 1700
17a0 ef26 f007 goto  drop
ok<$,ram>

Pito


------------------------------------------------------------------------------
Start uncovering the many advantages of virtual appliances
and start using them to simplify application deployment and
accelerate your shift to cloud computing.
http://p.sf.net/sfu/novell-sfdev2dev
_______________________________________________
Amforth-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to